mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-02-26 08:44:04 +00:00
65 lines
2.5 KiB
Plaintext
65 lines
2.5 KiB
Plaintext
.00.0 THE MONITOR SUBROUTINE
|
|
.00.0 0100 ERROR DEFN 100
|
|
.00.0 0000 MONTR BCS *,10
|
|
.00.0 0001 STB 6 ERROR+49 B
|
|
.00.0 0002 LDB 8 E+
|
|
.00.0 0003 BOF 6 ERROR+21
|
|
.00.0 0004 STA 6 ERROR+52
|
|
.00.0 0005 LDB 8 MONTR
|
|
.00.0 0006 DLB - 9999,44,0
|
|
.00.0 0007 LDR - 0
|
|
.00.0 0008 STR 8 OUT
|
|
.00.0 0009 LDB 8 MONTR
|
|
.00.0 0010 CLL 8 OUT+3
|
|
.00.0 0011 CLL 8 OUT+4
|
|
.00.0 0012 STB 8 OUT+1,64
|
|
.00.0 0013 CAD - 9997
|
|
.00.0 0014 BPA 8 *+2
|
|
.00.0 0015 SUB 6 ERROR+49 B
|
|
.00.0 0016 STA 8 B+,04
|
|
.00.0 0017 *E CLA 8 MONTR+4
|
|
.00.0 0018 LDR - 9998
|
|
.00.0 0019 BFR 8 *+3,11,8
|
|
.00.0 0020 *B ADD *
|
|
.00.0 0021 BUN 8 *+2
|
|
.00.0 0022 ADD 6 ERROR+52
|
|
.00.0 0023 BFR 8 A+,21,0
|
|
.00.0 0024 STA 8 OUT+2
|
|
.00.0 0025 BPA 8 C+
|
|
.00.0 0026 IFL 8 OUT+1,42,20
|
|
.00.0 0027 *C STB 8 F+,04
|
|
.00.0 0028 F4246 0504,44,0200
|
|
.00.0 0029 F4246 OUT,30,0200
|
|
.00.0 0030 *D CAD 6 ERROR+52
|
|
.00.0 0031 LDB 6 ERROR+49 B
|
|
.00.0 0032 *F BUN *
|
|
.00.0 0033 BUN *
|
|
.00.0 0034 *A SRT 8
|
|
.00.0 0035 CLL 8 OUT+2
|
|
.00.0 0036 STR 8 OUT+2,88
|
|
.00.0 0037 BSA 8 *+2,0
|
|
.00.0 0038 IFL 8 OUT+1,42,20
|
|
.00.0 0039 LSA 0
|
|
.00.0 0040 BFR 8 *+2,88,0
|
|
.00.0 0041 SUB 8 +50
|
|
.00.0 0042 IFL 8 OUT+3,02,23
|
|
.00.0 0043 IFL 8 OUT+1,62,03
|
|
.00.0 0044 STA 8 OUT+4,01
|
|
.00.0 0045 SLA 1
|
|
.00.0 0046 STA 8 OUT+4,89
|
|
.00.0 0047 IFL 8 OUT+4,91,8
|
|
.00.0 0048 IFL 8 OUT+4,71,8
|
|
.00.0 0049 BUN 8 C-
|
|
.00.0 0050 OUT CNST 0
|
|
.00.0 0051 CNST $= $
|
|
.00.0 0052 CNST 0
|
|
.00.0 0053 CNST 0
|
|
.00.0 0054 CNST 0
|
|
.00.0 0055 LOCN LOCN *+1
|
|
.00.0 0056 CNST 40000990000
|
|
.00.0 0057 CNST $MONIT ERROR=1 RITE=2 $
|
|
.00.0 0062 CNST 90000000000
|
|
.00.0 0063 LOCN LOCN
|
|
.00.0 0055 FINI MONTR
|
|
55 +0000000050
|