mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-02-26 00:34:04 +00:00
162 lines
7.1 KiB
Plaintext
162 lines
7.1 KiB
Plaintext
|
||
|
||
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2017-12-21 08:27
|
||
|
||
Source File: LABEL.card
|
||
|
||
START PASS 1
|
||
|
||
THE LABEL PROCESSING SUBROUTINE
|
||
.00.0 0000 ERROR DEFN 100
|
||
.00.0 0000 LABEL BCS *,8
|
||
.00.0 0001 LDB 8 NUMLB
|
||
.00.0 0002 BOF 6 ERROR+21
|
||
.00.0 0003 LDB 8 LABEL
|
||
.00.0 0004 DLB - 9998,44,1
|
||
.00.0 0005 STB 8 HOLD
|
||
.00.0 0006 LDB 8 LABEL
|
||
.00.0 0007 DLB - 9999,44,0
|
||
.00.0 0008 STA 8 HOLD1
|
||
.00.0 0009 CAD - 0
|
||
.00.0 0010 STA 6 ERROR+49 B
|
||
.00.0 0011 SRT 10
|
||
.00.0 0012 STP 8 NUMLX
|
||
.00.0 0013 BSA 8 NUMLB,1
|
||
.00.0 0014 STA 6 ERROR+44
|
||
.00.0 0015 STR 6 ERROR+45
|
||
.00.0 0016 CAA 8 HOLD
|
||
.00.0 0017 SUB 8 +10000
|
||
.00.0 0018 SRT 10
|
||
.00.0 0019 STP 8 NUMLX
|
||
.00.0 0020 BUN 8 NUMLB
|
||
.00.0 0021 STR 6 ERROR+46,08
|
||
.00.0 0022 *I BUN 8 *+1
|
||
.00.0 0023 IFL 6 ERROR+46,22,24
|
||
.00.0 0024 IFL 6 ERROR+47,22,04
|
||
.00.0 0025 IFL 8 I-,04,3
|
||
.00.0 0026 BCS 8 PRINT,7
|
||
.00.0 0027 EXIT LDB 8 LABEL
|
||
.00.0 0028 CAD 8 HOLD1
|
||
.00.0 0029 BUN - 0
|
||
|
||
.00.0 0030 PRINT LDB 8 *+2
|
||
.00.0 0031 RTF 6 ERROR+24,1 ZERO
|
||
.00.0 0032 RTF 6 ERROR+37,5
|
||
.00.0 0033 STP 6 ERROR+36
|
||
.00.0 0034 BUN 6 ERROR+34
|
||
.00.0 0035 BUN 8 EXIT
|
||
|
||
|
||
.00.0 0036 NUMLB F4248 8001,45,LABEL+3
|
||
.00.0 0037 SLA 1
|
||
.00.0 0038 SLT 1
|
||
.00.0 0039 SUB 8 +80
|
||
.00.0 0040 IFL 8 NUMLB,11,8
|
||
.00.0 0041 BOF 8 NUMLB+1
|
||
.00.0 0042 IFL 8 *-1,11,5
|
||
.00.0 0043 BOF 8 A+
|
||
.00.0 0044 STA 6 ERROR+50 C
|
||
.00.0 0045 BUN 8 NUMLB
|
||
.00.0 0046 *A SRT 10
|
||
.00.0 0047 CAD 6 ERROR+50 C
|
||
.00.0 0048 NUMLX BUN *
|
||
.00.0 0049 LOCN LOCN *+4
|
||
.00.0 0053 CNST 40000990000
|
||
.00.0 0054 CNST $LABEL ERROR=1 $
|
||
.00.0 0057 CNST 90000000000
|
||
.00.0 0058 LOCN LOCN
|
||
.00.0 0049 FINI LABEL
|
||
0049 HOLD
|
||
0050 HOLD1
|
||
0051 +0000010000
|
||
0052 +0000000080
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
46 *A..1 22 *I..1 52 +0000000080 51 +0000010000 8 BMOD
|
||
100 ERROR 27 EXIT 49 HOLD 50 HOLD1 0 LABEL
|
||
49 LOCN 36 NUMLB 48 NUMLX 30 PRINT 1 RLO
|
||
|
||
END PASS 1, ERRORS = 0
|
||
|
||
|
||
START PASS 2
|
||
|
||
THE LABEL PROCESSING SUBROUTINE
|
||
.00.0 2 0000 ERROR DEFN 100
|
||
.00.0 3 0000 0 8000 38 0000 LABEL BCS *,8
|
||
.00.0 4 0001 8 0000 42 0036 LDB 8 NUMLB
|
||
.00.0 5 0002 6 0000 31 0121 BOF 6 ERROR+21
|
||
.00.0 6 0003 8 0000 42 0000 LDB 8 LABEL
|
||
.00.0 7 0004 1 4401 28 9998 DLB - 9998,44,1
|
||
.00.0 8 0005 8 0002 40 0049 STB 8 HOLD
|
||
.00.0 9 0006 8 0000 42 0000 LDB 8 LABEL
|
||
.00.0 10 0007 1 4400 28 9999 DLB - 9999,44,0
|
||
.00.0 11 0008 8 0000 40 0050 STA 8 HOLD1
|
||
.00.0 12 0009 1 0000 10 0000 CAD - 0
|
||
.00.0 13 0010 6 0000 40 0149 STA 6 ERROR+49 B
|
||
.00.0 14 0011 0 0001 48 0010 SRT 10
|
||
.00.0 15 0012 8 0000 44 0048 STP 8 NUMLX
|
||
.00.0 16 0013 8 0001 33 0036 BSA 8 NUMLB,1
|
||
.00.0 17 0014 6 0000 40 0144 STA 6 ERROR+44
|
||
.00.0 18 0015 6 0001 40 0145 STR 6 ERROR+45
|
||
.00.0 19 0016 8 0001 10 0049 CAA 8 HOLD
|
||
.00.0 20 0017 8 0000 13 0051 SUB 8 +10000
|
||
.00.0 21 0018 0 0001 48 0010 SRT 10
|
||
.00.0 22 0019 8 0000 44 0048 STP 8 NUMLX
|
||
.00.0 23 0020 8 0000 30 0036 BUN 8 NUMLB
|
||
.00.0 24 0021 6 0811 40 0146 STR 6 ERROR+46,08
|
||
.00.0 25 0022 8 0000 30 0023 *I BUN 8 *+1
|
||
.00.0 26 0023 6 2224 26 0146 IFL 6 ERROR+46,22,24
|
||
.00.0 27 0024 6 2204 26 0147 IFL 6 ERROR+47,22,04
|
||
.00.0 28 0025 8 0403 26 0022 IFL 8 I-,04,3
|
||
.00.0 29 0026 8 7000 38 0030 BCS 8 PRINT,7
|
||
.00.0 30 0027 8 0000 42 0000 EXIT LDB 8 LABEL
|
||
.00.0 31 0028 8 0000 10 0050 CAD 8 HOLD1
|
||
.00.0 32 0029 1 0000 30 0000 BUN - 0
|
||
|
||
.00.0 34 0030 8 0000 42 0032 PRINT LDB 8 *+2
|
||
.00.0 35 0031 6 0010 29 0124 RTF 6 ERROR+24,1 ZERO
|
||
.00.0 36 0032 6 0050 29 0137 RTF 6 ERROR+37,5
|
||
.00.0 37 0033 6 0000 44 0136 STP 6 ERROR+36
|
||
.00.0 38 0034 6 0000 30 0134 BUN 6 ERROR+34
|
||
.00.0 39 0035 8 0000 30 0027 BUN 8 EXIT
|
||
|
||
|
||
.00.0 42 0036 8 8001 45 0003 NUMLB F4248 8001,45,LABEL+3
|
||
.00.0 43 0037 0 0000 49 0001 SLA 1
|
||
.00.0 44 0038 0 0001 49 0001 SLT 1
|
||
.00.0 45 0039 8 0000 13 0052 SUB 8 +80
|
||
.00.0 46 0040 8 1108 26 0036 IFL 8 NUMLB,11,8
|
||
.00.0 47 0041 8 0000 31 0037 BOF 8 NUMLB+1
|
||
.00.0 48 0042 8 1105 26 0041 IFL 8 *-1,11,5
|
||
.00.0 49 0043 8 0000 31 0046 BOF 8 A+
|
||
.00.0 50 0044 6 0000 40 0150 STA 6 ERROR+50 C
|
||
.00.0 51 0045 8 0000 30 0036 BUN 8 NUMLB
|
||
.00.0 52 0046 0 0001 48 0010 *A SRT 10
|
||
.00.0 53 0047 6 0000 10 0150 CAD 6 ERROR+50 C
|
||
.00.0 54 0048 0 0000 30 0048 NUMLX BUN *
|
||
.00.0 55 0049 LOCN LOCN *+4
|
||
.00.0 56 0053 4 0000 99 0000 CNST 40000990000
|
||
.00.0 57 0054 2 5341 42 4553 CNST $LABEL ERROR=1 $
|
||
0055 2 0045 59 5956
|
||
0056 2 5900 81 0000
|
||
.00.0 58 0057 9 0000 00 0000 CNST 90000000000
|
||
.00.0 59 0058 LOCN LOCN
|
||
.00.0 60 0049 FINI LABEL
|
||
0049 0 0000 00 0000 HOLD
|
||
0050 0 0000 00 0000 HOLD1
|
||
0051 0 0000 01 0000 +0000010000
|
||
0052 0 0000 00 0080 +0000000080
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
46 *A..1 22 *I..1 52 +0000000080 51 +0000010000 8 BMOD
|
||
100 ERROR 27 EXIT 49 HOLD 50 HOLD1 0 LABEL
|
||
49 LOCN 36 NUMLB 48 NUMLX 30 PRINT 1 RLO
|
||
|
||
END PASS 2, ERRORS = 0
|
||
|