mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-02-26 00:34:04 +00:00
64 lines
10 KiB
Plaintext
64 lines
10 KiB
Plaintext
1 REM THE MONITOR SUBROUTINE .00.0
|
|
1 ERROR DEFN 100 .00.0
|
|
1 MONTR BCS *,10 .00.0
|
|
1 STB 6 ERROR+49 B .00.0
|
|
1 LDB 8 E+ .00.0
|
|
1 BOF 6 ERROR+21 .00.0
|
|
1 STA 6 ERROR+52 .00.0
|
|
1 LDB 8 MONTR .00.0
|
|
1 DLB - 9999,44,0 .00.0
|
|
1 LDR - 0 .00.0
|
|
1 STR 8 OUT .00.0
|
|
1 LDB 8 MONTR .00.0
|
|
1 CLL 8 OUT+3 .00.0
|
|
1 CLL 8 OUT+4 .00.0
|
|
1 STB 8 OUT+1,64 .00.0
|
|
1 CAD - 9997 .00.0
|
|
1 BPA 8 *+2 .00.0
|
|
1 SUB 6 ERROR+49 B .00.0
|
|
1 STA 8 B+,04 .00.0
|
|
1 *E CLA 8 MONTR+4 .00.0
|
|
1 LDR - 9998 .00.0
|
|
1 BFR 8 *+3,11,8 .00.0
|
|
1 *B ADD * .00.0
|
|
1 BUN 8 *+2 .00.0
|
|
1 ADD 6 ERROR+52 .00.0
|
|
1 BFR 8 A+,21,0 .00.0
|
|
1 STA 8 OUT+2 .00.0
|
|
1 BPA 8 C+ .00.0
|
|
1 IFL 8 OUT+1,42,20 .00.0
|
|
1 *C STB 8 F+,04 .00.0
|
|
1 F4246 0504,44,0200 .00.0
|
|
1 F4246 OUT,30,0200 .00.0
|
|
1 *D CAD 6 ERROR+52 .00.0
|
|
1 LDB 6 ERROR+49 B .00.0
|
|
1 *F BUN * .00.0
|
|
1 BUN * .00.0
|
|
1 *A SRT 8 .00.0
|
|
1 CLL 8 OUT+2 .00.0
|
|
1 STR 8 OUT+2,88 .00.0
|
|
1 BSA 8 *+2,0 .00.0
|
|
1 IFL 8 OUT+1,42,20 .00.0
|
|
1 LSA 0 .00.0
|
|
1 BFR 8 *+2,88,0 .00.0
|
|
1 SUB 8 +50 .00.0
|
|
1 IFL 8 OUT+3,02,23 .00.0
|
|
1 IFL 8 OUT+1,62,03 .00.0
|
|
1 STA 8 OUT+4,01 .00.0
|
|
1 SLA 1 .00.0
|
|
1 STA 8 OUT+4,89 .00.0
|
|
1 IFL 8 OUT+4,91,8 .00.0
|
|
1 IFL 8 OUT+4,71,8 .00.0
|
|
1 BUN 8 C- .00.0
|
|
1 OUT CNST 0 .00.0
|
|
1 CNST $= $ .00.0
|
|
1 CNST 0 .00.0
|
|
1 CNST 0 .00.0
|
|
1 CNST 0 .00.0
|
|
1 LOCN LOCN *+1 .00.0
|
|
1 CNST 40000990000 .00.0
|
|
1 CNST $MONIT ERROR=1 RITE=2 $ .00.0
|
|
1 CNST 90000000000 .00.0
|
|
1 LOCN LOCN .00.0
|
|
1 FINI MONTR .00.0
|