Home » CEEFAX disks » telesoftware12.adl » 17-02-89/Init
17-02-89/Init
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/Init |
| Read OK: | ✔ |
| File size: | 01E0 bytes |
| Load address: | 0000 |
| Exec address: | FFFFFFFF |
File contents
REM initialiser REM and error trap PAGE=&900 LOAD"PROC" LOMEM=&7000 brkv=&202 P%=&C00 [OPT2:.store:EQUW &FFFF [OPT2:.err:PHP:PHA:TXA:PHA:TYA:PHA [OPT2:LDA #&77:JSR &FFF4 [OPT2:SEI:LDA store:STA brkv [OPT2:LDA store+1:STA brkv+1:CLI [OPT2:PLA:TAY:PLA:TAX:PLA:PLP:JMP (brkv) [OPT2:.set:SEI [OPT2:LDA brkv:STA store [OPT2:LDA brkv+1:STA store+1 [OPT2:LDA #err MOD256:STA brkv [OPT2:LDA #err DIV256:STA brkv+1 [OPT2:CLI:RTS CALL set OLD LOMEM=&1A00 base=&1900 I%=0 *EXEC code
00000000 52 45 4d 20 20 69 6e 69 74 69 61 6c 69 73 65 72 |REM initialiser| 00000010 0d 52 45 4d 20 20 61 6e 64 20 65 72 72 6f 72 20 |.REM and error | 00000020 74 72 61 70 0d 0d 50 41 47 45 3d 26 39 30 30 0d |trap..PAGE=&900.| 00000030 4c 4f 41 44 22 50 52 4f 43 22 0d 0d 4c 4f 4d 45 |LOAD"PROC"..LOME| 00000040 4d 3d 26 37 30 30 30 0d 62 72 6b 76 3d 26 32 30 |M=&7000.brkv=&20| 00000050 32 0d 50 25 3d 26 43 30 30 0d 0d 5b 4f 50 54 32 |2.P%=&C00..[OPT2| 00000060 3a 2e 73 74 6f 72 65 3a 45 51 55 57 20 26 46 46 |:.store:EQUW &FF| 00000070 46 46 0d 0d 5b 4f 50 54 32 3a 2e 65 72 72 3a 50 |FF..[OPT2:.err:P| 00000080 48 50 3a 50 48 41 3a 54 58 41 3a 50 48 41 3a 54 |HP:PHA:TXA:PHA:T| 00000090 59 41 3a 50 48 41 0d 5b 4f 50 54 32 3a 4c 44 41 |YA:PHA.[OPT2:LDA| 000000a0 20 23 26 37 37 3a 4a 53 52 20 26 46 46 46 34 0d | #&77:JSR &FFF4.| 000000b0 5b 4f 50 54 32 3a 53 45 49 3a 4c 44 41 20 73 74 |[OPT2:SEI:LDA st| 000000c0 6f 72 65 3a 53 54 41 20 62 72 6b 76 0d 5b 4f 50 |ore:STA brkv.[OP| 000000d0 54 32 3a 4c 44 41 20 73 74 6f 72 65 2b 31 3a 53 |T2:LDA store+1:S| 000000e0 54 41 20 62 72 6b 76 2b 31 3a 43 4c 49 0d 5b 4f |TA brkv+1:CLI.[O| 000000f0 50 54 32 3a 50 4c 41 3a 54 41 59 3a 50 4c 41 3a |PT2:PLA:TAY:PLA:| 00000100 54 41 58 3a 50 4c 41 3a 50 4c 50 3a 4a 4d 50 20 |TAX:PLA:PLP:JMP | 00000110 28 62 72 6b 76 29 0d 0d 5b 4f 50 54 32 3a 2e 73 |(brkv)..[OPT2:.s| 00000120 65 74 3a 53 45 49 0d 5b 4f 50 54 32 3a 4c 44 41 |et:SEI.[OPT2:LDA| 00000130 20 62 72 6b 76 3a 53 54 41 20 73 74 6f 72 65 0d | brkv:STA store.| 00000140 5b 4f 50 54 32 3a 4c 44 41 20 62 72 6b 76 2b 31 |[OPT2:LDA brkv+1| 00000150 3a 53 54 41 20 73 74 6f 72 65 2b 31 0d 5b 4f 50 |:STA store+1.[OP| 00000160 54 32 3a 4c 44 41 20 23 65 72 72 20 4d 4f 44 32 |T2:LDA #err MOD2| 00000170 35 36 3a 53 54 41 20 62 72 6b 76 0d 5b 4f 50 54 |56:STA brkv.[OPT| 00000180 32 3a 4c 44 41 20 23 65 72 72 20 44 49 56 32 35 |2:LDA #err DIV25| 00000190 36 3a 53 54 41 20 62 72 6b 76 2b 31 0d 5b 4f 50 |6:STA brkv+1.[OP| 000001a0 54 32 3a 43 4c 49 3a 52 54 53 0d 0d 43 41 4c 4c |T2:CLI:RTS..CALL| 000001b0 20 73 65 74 0d 4f 4c 44 0d 4c 4f 4d 45 4d 3d 26 | set.OLD.LOMEM=&| 000001c0 31 41 30 30 0d 62 61 73 65 3d 26 31 39 30 30 0d |1A00.base=&1900.| 000001d0 49 25 3d 30 0d 2a 45 58 45 43 20 63 6f 64 65 0d |I%=0.*EXEC code.| 000001e0
.