Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape28a_acorn_eu_1991_october.wav » GCHRSRC
GCHRSRC
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape28a_acorn_eu_1991_october.wav |
| Filename: | GCHRSRC |
| Read OK: | ✔ |
| File size: | 0227 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » mu » mu_5_25_discs_Micro_User_09_08_D-MU09_08.ssd » GCHRSRC
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape28a_acorn_eu_1991_october.wav » GCHRSRC
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape28b_acorn_eu_1991_october.wav » GCHRSRC
File contents
10REM Keyboard Graphics 20REM listing one 30REM By Peter Harris 40REM (C) The Micro User 50oldvec=&20E:newvec=&230 60FORI%=0TO2STEP2 70P%=&A60 80[OPTI% 85.init 90LDA oldvec 100STA newvec 110LDA oldvec+1 120STA newvec+1 130LDA#start MOD &100 140STA oldvec 150LDA#start DIV &100 160STA oldvec+1 170RTS 180.start 190PHA 200LDA&D0 210AND#1 220CMP#1 230BNE restore 240PLA 250CMP#33 260BCCold 270ADC#127 275.old 280JMP(newvec) 290.restore 300PLA 310JMP old 320] 330P%=P%+1 340NEXT 350x$="SAVE GCHRS "+STR$~init+" "+STR$~P% 360DIM B 30:$B=x$:X%=B MOD &100:Y%=B DIV &100 370CALL &FFF7
� Keyboard Graphics � listing one � By Peter Harris (� (C) The Micro User 2oldvec=&20E:newvec=&230 < �I%=0�2�2 F P%=&A60 P [OPTI% U .init ZLDA oldvec dSTA newvec nLDA oldvec+1 xSTA newvec+1 �LDA#start � &100 �STA oldvec �LDA#start � &100 �STA oldvec+1 �RTS � .start �PHA � LDA&D0 ��#1 � CMP#1 �BNE restore �PLA � CMP#33 BCCold ADC#127 .old JMP(newvec) " .restore ,PLA 6 JMP old @] J P%=P%+1 T� ^$x$="SAVE GCHRS "+�~init+" "+�~P% h(� B 30:$B=x$:X%=B � &100:Y%=B � &100 r � &FFF7 �
00000000 0d 00 0a 17 f4 20 4b 65 79 62 6f 61 72 64 20 47 |..... Keyboard G| 00000010 72 61 70 68 69 63 73 0d 00 14 11 f4 20 6c 69 73 |raphics..... lis| 00000020 74 69 6e 67 20 6f 6e 65 0d 00 1e 15 f4 20 42 79 |ting one..... By| 00000030 20 50 65 74 65 72 20 48 61 72 72 69 73 0d 00 28 | Peter Harris..(| 00000040 18 f4 20 28 43 29 20 54 68 65 20 4d 69 63 72 6f |.. (C) The Micro| 00000050 20 55 73 65 72 0d 00 32 1b 6f 6c 64 76 65 63 3d | User..2.oldvec=| 00000060 26 32 30 45 3a 6e 65 77 76 65 63 3d 26 32 33 30 |&20E:newvec=&230| 00000070 0d 00 3c 0d e3 49 25 3d 30 b8 32 88 32 0d 00 46 |..<..I%=0.2.2..F| 00000080 0b 50 25 3d 26 41 36 30 0d 00 50 0a 5b 4f 50 54 |.P%=&A60..P.[OPT| 00000090 49 25 0d 00 55 09 2e 69 6e 69 74 0d 00 5a 0e 4c |I%..U..init..Z.L| 000000a0 44 41 20 6f 6c 64 76 65 63 0d 00 64 0e 53 54 41 |DA oldvec..d.STA| 000000b0 20 6e 65 77 76 65 63 0d 00 6e 10 4c 44 41 20 6f | newvec..n.LDA o| 000000c0 6c 64 76 65 63 2b 31 0d 00 78 10 53 54 41 20 6e |ldvec+1..x.STA n| 000000d0 65 77 76 65 63 2b 31 0d 00 82 14 4c 44 41 23 73 |ewvec+1....LDA#s| 000000e0 74 61 72 74 20 83 20 26 31 30 30 0d 00 8c 0e 53 |tart . &100....S| 000000f0 54 41 20 6f 6c 64 76 65 63 0d 00 96 14 4c 44 41 |TA oldvec....LDA| 00000100 23 73 74 61 72 74 20 81 20 26 31 30 30 0d 00 a0 |#start . &100...| 00000110 10 53 54 41 20 6f 6c 64 76 65 63 2b 31 0d 00 aa |.STA oldvec+1...| 00000120 07 52 54 53 0d 00 b4 0a 2e 73 74 61 72 74 0d 00 |.RTS.....start..| 00000130 be 07 50 48 41 0d 00 c8 0a 4c 44 41 26 44 30 0d |..PHA....LDA&D0.| 00000140 00 d2 07 80 23 31 0d 00 dc 09 43 4d 50 23 31 0d |....#1....CMP#1.| 00000150 00 e6 0f 42 4e 45 20 72 65 73 74 6f 72 65 0d 00 |...BNE restore..| 00000160 f0 07 50 4c 41 0d 00 fa 0a 43 4d 50 23 33 33 0d |..PLA....CMP#33.| 00000170 01 04 0a 42 43 43 6f 6c 64 0d 01 0e 0b 41 44 43 |...BCCold....ADC| 00000180 23 31 32 37 0d 01 13 08 2e 6f 6c 64 0d 01 18 0f |#127.....old....| 00000190 4a 4d 50 28 6e 65 77 76 65 63 29 0d 01 22 0c 2e |JMP(newvec).."..| 000001a0 72 65 73 74 6f 72 65 0d 01 2c 07 50 4c 41 0d 01 |restore..,.PLA..| 000001b0 36 0b 4a 4d 50 20 6f 6c 64 0d 01 40 05 5d 0d 01 |6.JMP old..@.]..| 000001c0 4a 0b 50 25 3d 50 25 2b 31 0d 01 54 05 ed 0d 01 |J.P%=P%+1..T....| 000001d0 5e 24 78 24 3d 22 53 41 56 45 20 47 43 48 52 53 |^$x$="SAVE GCHRS| 000001e0 20 22 2b c3 7e 69 6e 69 74 2b 22 20 22 2b c3 7e | "+.~init+" "+.~| 000001f0 50 25 0d 01 68 28 de 20 42 20 33 30 3a 24 42 3d |P%..h(. B 30:$B=| 00000200 78 24 3a 58 25 3d 42 20 83 20 26 31 30 30 3a 59 |x$:X%=B . &100:Y| 00000210 25 3d 42 20 81 20 26 31 30 30 0d 01 72 0b d6 20 |%=B . &100..r.. | 00000220 26 46 46 46 37 0d ff |&FFF7..| 00000227
.