Home » CEEFAX disks » telesoftware12.adl » 17-02-89/Code
17-02-89/Code
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 » CEEFAX disks » telesoftware12.adl |
| Filename: | 17-02-89/Code |
| Read OK: | ✔ |
| File size: | 00E2 bytes |
| Load address: | 0000 |
| Exec address: | FFFFFFFF |
File contents
REM main code section P%=base REM this is an A writer [OPTI%:.a1:LDX #&0A REM loop to here for more A's [OPTI%:.a2:LDA #ASC"A":JSR &FFEE:DEX:BNE a2 REM no more A's so exit [OPTI%:RTS IF I%=2 PROCa ELSE I%=2:*EXEC code
00000000 52 45 4d 20 6d 61 69 6e 20 63 6f 64 65 20 73 65 |REM main code se| 00000010 63 74 69 6f 6e 0d 0d 50 25 3d 62 61 73 65 0d 0d |ction..P%=base..| 00000020 52 45 4d 20 74 68 69 73 20 69 73 20 61 6e 20 41 |REM this is an A| 00000030 20 77 72 69 74 65 72 0d 0d 5b 4f 50 54 49 25 3a | writer..[OPTI%:| 00000040 2e 61 31 3a 4c 44 58 20 23 26 30 41 0d 0d 52 45 |.a1:LDX #&0A..RE| 00000050 4d 20 6c 6f 6f 70 20 74 6f 20 68 65 72 65 20 66 |M loop to here f| 00000060 6f 72 20 6d 6f 72 65 20 41 27 73 0d 0d 5b 4f 50 |or more A's..[OP| 00000070 54 49 25 3a 2e 61 32 3a 4c 44 41 20 23 41 53 43 |TI%:.a2:LDA #ASC| 00000080 22 41 22 3a 4a 53 52 20 26 46 46 45 45 3a 44 45 |"A":JSR &FFEE:DE| 00000090 58 3a 42 4e 45 20 61 32 0d 0d 52 45 4d 20 6e 6f |X:BNE a2..REM no| 000000a0 20 6d 6f 72 65 20 41 27 73 20 73 6f 20 65 78 69 | more A's so exi| 000000b0 74 0d 0d 5b 4f 50 54 49 25 3a 52 54 53 0d 0d 49 |t..[OPTI%:RTS..I| 000000c0 46 20 49 25 3d 32 20 50 52 4f 43 61 20 45 4c 53 |F I%=2 PROCa ELS| 000000d0 45 20 49 25 3d 32 3a 2a 45 58 45 43 20 63 6f 64 |E I%=2:*EXEC cod| 000000e0 65 0d |e.| 000000e2
.