mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-24 19:34:04 +00:00
152 lines
6.9 KiB
Plaintext
152 lines
6.9 KiB
Plaintext
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-11 06:34
|
||
|
||
Source File: MONIT.card
|
||
HEAD THE MONITOR SUBROUTINE
|
||
START PASS 1
|
||
|
||
.00.0 0000 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
|
||
0055 +0000000050
|
||
|
||
|
||
END PASS 1, ERRORS = 0
|
||
|
||
START PASS 2
|
||
|
||
.00.0 2 0000 ERROR DEFN 100
|
||
.00.0 3 0000 0 0000 38 0000 MONTR BCS *,10
|
||
.00.0 4 0001 6 0002 40 0149 STB 6 ERROR+49 B
|
||
.00.0 5 0002 8 0000 42 0017 LDB 8 E+
|
||
.00.0 6 0003 6 0000 31 0121 BOF 6 ERROR+21
|
||
.00.0 7 0004 6 0000 40 0152 STA 6 ERROR+52
|
||
.00.0 8 0005 8 0000 42 0000 LDB 8 MONTR
|
||
.00.0 9 0006 1 4400 28 9999 DLB - 9999,44,0
|
||
.00.0 10 0007 1 0000 41 0000 LDR - 0
|
||
.00.0 11 0008 8 0001 40 0050 STR 8 OUT
|
||
.00.0 12 0009 8 0000 42 0000 LDB 8 MONTR
|
||
.00.0 13 0010 8 0000 46 0053 CLL 8 OUT+3
|
||
.00.0 14 0011 8 0000 46 0054 CLL 8 OUT+4
|
||
.00.0 15 0012 8 6412 40 0051 STB 8 OUT+1,64
|
||
.00.0 16 0013 1 0000 10 9997 CAD - 9997
|
||
.00.0 17 0014 8 0000 33 0016 BPA 8 *+2
|
||
.00.0 18 0015 6 0000 13 0149 SUB 6 ERROR+49 B
|
||
.00.0 19 0016 8 0410 40 0020 STA 8 B+,04
|
||
.00.0 20 0017 8 0001 45 0004 *E CLA 8 MONTR+4
|
||
.00.0 21 0018 1 0000 41 9998 LDR - 9998
|
||
.00.0 22 0019 8 1108 37 0022 BFR 8 *+3,11,8
|
||
.00.0 23 0020 0 0000 12 0020 *B ADD *
|
||
.00.0 24 0021 8 0000 30 0023 BUN 8 *+2
|
||
.00.0 25 0022 6 0000 12 0152 ADD 6 ERROR+52
|
||
.00.0 26 0023 8 2100 37 0034 BFR 8 A+,21,0
|
||
.00.0 27 0024 8 0000 40 0052 STA 8 OUT+2
|
||
.00.0 28 0025 8 0000 33 0027 BPA 8 C+
|
||
.00.0 29 0026 8 4220 26 0051 IFL 8 OUT+1,42,20
|
||
.00.0 30 0027 8 0412 40 0032 *C STB 8 F+,04
|
||
.00.0 31 0028 6 0504 44 0200 F4246 0504,44,0200
|
||
.00.0 32 0029 6 0050 30 0200 F4246 OUT,30,0200
|
||
.00.0 33 0030 6 0000 10 0152 *D CAD 6 ERROR+52
|
||
.00.0 34 0031 6 0000 42 0149 LDB 6 ERROR+49 B
|
||
.00.0 35 0032 0 0000 30 0032 *F BUN *
|
||
.00.0 36 0033 0 0000 30 0033 BUN *
|
||
.00.0 37 0034 0 0001 48 0008 *A SRT 8
|
||
.00.0 38 0035 8 0000 46 0052 CLL 8 OUT+2
|
||
.00.0 39 0036 8 8811 40 0052 STR 8 OUT+2,88
|
||
.00.0 40 0037 8 0000 33 0039 BSA 8 *+2,0
|
||
.00.0 41 0038 8 4220 26 0051 IFL 8 OUT+1,42,20
|
||
.00.0 42 0039 0 0000 43 0000 LSA 0
|
||
.00.0 43 0040 8 8800 37 0042 BFR 8 *+2,88,0
|
||
.00.0 44 0041 8 0000 13 0055 SUB 8 +50
|
||
.00.0 45 0042 8 0223 26 0053 IFL 8 OUT+3,02,23
|
||
.00.0 46 0043 8 6203 26 0051 IFL 8 OUT+1,62,03
|
||
.00.0 47 0044 8 0110 40 0054 STA 8 OUT+4,01
|
||
.00.0 48 0045 0 0000 49 0001 SLA 1
|
||
.00.0 49 0046 8 8910 40 0054 STA 8 OUT+4,89
|
||
.00.0 50 0047 8 9108 26 0054 IFL 8 OUT+4,91,8
|
||
.00.0 51 0048 8 7108 26 0054 IFL 8 OUT+4,71,8
|
||
.00.0 52 0049 8 0000 30 0027 BUN 8 C-
|
||
.00.0 53 0050 0 0000 00 0000 OUT CNST 0
|
||
.00.0 54 0051 2 3300 00 0000 CNST $= $
|
||
.00.0 55 0052 0 0000 00 0000 CNST 0
|
||
.00.0 56 0053 0 0000 00 0000 CNST 0
|
||
.00.0 57 0054 0 0000 00 0000 CNST 0
|
||
.00.0 58 0055 LOCN LOCN *+1
|
||
.00.0 59 0056 4 0000 99 0000 CNST 40000990000
|
||
.00.0 60 0057 2 5456 55 4963 CNST $MONIT ERROR=1 RITE=2 $
|
||
0058 2 0045 59 5956
|
||
0059 2 5933 81 0059
|
||
0060 2 4963 45 3382
|
||
0061 2 0000 00 0000
|
||
.00.0 61 0062 9 0000 00 0000 CNST 90000000000
|
||
.00.0 62 0063 LOCN LOCN
|
||
.00.0 63 0055 FINI MONTR
|
||
0055 0 0000 00 0050 +0000000050
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
34 *A..1 20 *B..1 27 *C..1 30 *D..1 17 *E..1
|
||
32 *F..1 55 +0000000050 8 BMOD 100 ERROR 55 LOCN
|
||
0 MONTR 50 OUT 1 RLO
|
||
|
||
END PASS 2, ERRORS = 0
|