mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-02-26 08:44:04 +00:00
232 lines
12 KiB
Plaintext
232 lines
12 KiB
Plaintext
|
||
|
||
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2017-12-21 08:28
|
||
|
||
Source File: LOG.card
|
||
|
||
START PASS 1
|
||
|
||
.00.0 0000 ERROR DEFN 100
|
||
.00.0 0000 LOG CRB
|
||
.00.0 0001 BMA 8 F+
|
||
.00.0 0002 BZA 8 F+
|
||
.00.0 0003 SRT 2
|
||
.00.0 0004 STA 8 EXP,42
|
||
.00.0 0005 SLT 4
|
||
.00.0 0006 CFA 8 CP1+
|
||
.00.0 0007 BCL 8 SMALL
|
||
.00.0 0008 CFA 8 CP2+
|
||
.00.0 0009 BCH 8 SMALL
|
||
.00.0 0010 SRT 1
|
||
.00.0 0011 ADD 8 +316227766
|
||
.00.0 0012 STA 6 ERROR+52
|
||
.00.0 0013 SUB 8 +632455532
|
||
.00.0 0014 *CP1 F4246 1014,15,ERROR+52
|
||
.00.0 0015 STA 6 ERROR+52
|
||
.00.0 0016 MUL 6 ERROR+52 V
|
||
.00.0 0017 STA 6 ERROR+49 B V**2
|
||
.00.0 0018 MUL 8 +0410597044 A1
|
||
.00.0 0019 ADD 8 +0057228327 A2
|
||
.00.0 0020 MUL 6 ERROR+49 B
|
||
.00.0 0021 ADD 8 +0250341093 A3
|
||
.00.0 0022 MUL 6 ERROR+49 B
|
||
.00.0 0023 ADD 8 +0282433571 A4
|
||
.00.0 0024 MUL 6 ERROR+49 B
|
||
.00.0 0025 ADD 8 +0400193033 A5
|
||
.00.0 0026 MUL 6 ERROR+49 B
|
||
.00.0 0027 ADD 8 +0666661710 A6
|
||
.00.0 0028 MUL 6 ERROR+49 B
|
||
.00.0 0029 ADD 8 +2000000037 A7
|
||
.00.0 0030 MUL 6 ERROR+52
|
||
.00.0 0031 ADD 8 +1151292547 A8
|
||
.00.0 0032 *A BFA 8 D+,22,00
|
||
.00.0 0033 *CP2 F424 9858,48,1
|
||
.00.0 0034 IBB 8 A-,1
|
||
.00.0 0035 *D STA 9 RGN,08
|
||
.00.0 0036 *B CAD 8 EXP
|
||
.00.0 0037 FSU 8 +5251000000
|
||
.00.0 0038 BCL 8 *+2
|
||
.00.0 0039 FAD 6 ERROR+51 =1.0=
|
||
.00.0 0040 FMU 8 +5123025851
|
||
.00.0 0041 FAD 9 RGN
|
||
.00.0 0042 LDB 8 LOG
|
||
.00.0 0043 BUN - 0
|
||
.00.0 0044 SMALL BFA 8 A+,11,1
|
||
.00.0 0045 SRT 1
|
||
.00.0 0046 SUB 8 +2000000000
|
||
.00.0 0047 *A FAD 8 +1000000000
|
||
.00.0 0048 BZA 8 E+
|
||
.00.0 0049 STA 6 ERROR+52
|
||
.00.0 0050 IFL 6 ERROR+52,22,39
|
||
.00.0 0051 CAD 6 ERROR+52
|
||
.00.0 0052 FMU 8 -5025000000
|
||
.00.0 0053 FAD 8 +5033333333
|
||
.00.0 0054 FMU 6 ERROR+52
|
||
.00.0 0055 FAD 8 -5050000000
|
||
.00.0 0056 FMU 6 ERROR+52
|
||
.00.0 0057 FMU 6 ERROR+52
|
||
.00.0 0058 FAD 6 ERROR+52
|
||
.00.0 0059 *E STA 8 RGN+3
|
||
.00.0 0060 IBB 8 B-,3
|
||
.00.0 0061 *F LDR 8 $LOG$
|
||
.00.0 0062 LDB 8 LOG
|
||
.00.0 0063 BUN 6 ERROR+7
|
||
.00.0 0064 RGN CNST 4900000000
|
||
.00.0 0065 5000000000
|
||
.00.0 0066 5100000000
|
||
.00.0 0067 0000000000
|
||
.00.0 0068 EXP 5200000000
|
||
.00.0 0069 LOCN LOCN *+18
|
||
.00.0 0087 CNST 40000990000
|
||
.00.0 0088 CNST $LOG,REAL(REAL) ERROR=1 $
|
||
.00.0 0093 CNST 90000000000
|
||
.00.0 0094 LOCN LOCN
|
||
.00.0 0069 FINI LOG
|
||
0069 +0316227766
|
||
0070 +0632455532
|
||
0071 +0410597044
|
||
0072 +0057228327
|
||
0073 +0250341093
|
||
0074 +0282433571
|
||
0075 +0400193033
|
||
0076 +0666661710
|
||
0077 +2000000037
|
||
0078 +1151292547
|
||
0079 +5251000000
|
||
0080 +5123025851
|
||
0081 +2000000000
|
||
0082 +1000000000
|
||
0083 -5025000000
|
||
0084 +5033333333
|
||
0085 -5050000000
|
||
0086 $LOG
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
86 $LOG 32 *A..1 47 *A..2 36 *B..1 14 *CP11
|
||
33 *CP21 35 *D..1 59 *E..1 61 *F..1 72 +0057228327
|
||
73 +0250341093 74 +0282433571 69 +0316227766 75 +0400193033 71 +0410597044
|
||
70 +0632455532 76 +0666661710 82 +1000000000 78 +1151292547 81 +2000000000
|
||
77 +2000000037 84 +5033333333 80 +5123025851 79 +5251000000 83 -5025000000
|
||
85 -5050000000 8 BMOD 100 ERROR 68 EXP 69 LOCN
|
||
0 LOG 64 RGN 1 RLO 44 SMALL
|
||
|
||
END PASS 1, ERRORS = 0
|
||
|
||
|
||
START PASS 2
|
||
|
||
.00.0 1 0000 ERROR DEFN 100
|
||
.00.0 2 0000 0 0006 45 0000 LOG CRB
|
||
.00.0 3 0001 8 0001 33 0061 BMA 8 F+
|
||
.00.0 4 0002 8 0000 36 0061 BZA 8 F+
|
||
.00.0 5 0003 0 0001 48 0002 SRT 2
|
||
.00.0 6 0004 8 4210 40 0068 STA 8 EXP,42
|
||
.00.0 7 0005 0 0001 49 0004 SLT 4
|
||
.00.0 8 0006 8 0000 18 0014 CFA 8 CP1+
|
||
.00.0 9 0007 8 0001 34 0044 BCL 8 SMALL
|
||
.00.0 10 0008 8 0000 18 0033 CFA 8 CP2+
|
||
.00.0 11 0009 8 0000 34 0044 BCH 8 SMALL
|
||
.00.0 12 0010 0 0001 48 0001 SRT 1
|
||
.00.0 13 0011 8 0000 12 0069 ADD 8 +316227766
|
||
.00.0 14 0012 6 0000 40 0152 STA 6 ERROR+52
|
||
.00.0 15 0013 8 0000 13 0070 SUB 8 +632455532
|
||
.00.0 16 0014 6 1014 15 0152 *CP1 F4246 1014,15,ERROR+52
|
||
.00.0 17 0015 6 0000 40 0152 STA 6 ERROR+52
|
||
.00.0 18 0016 6 0000 14 0152 MUL 6 ERROR+52 V
|
||
.00.0 19 0017 6 0000 40 0149 STA 6 ERROR+49 B V**2
|
||
.00.0 20 0018 8 0000 14 0071 MUL 8 +0410597044 A1
|
||
.00.0 21 0019 8 0000 12 0072 ADD 8 +0057228327 A2
|
||
.00.0 22 0020 6 0000 14 0149 MUL 6 ERROR+49 B
|
||
.00.0 23 0021 8 0000 12 0073 ADD 8 +0250341093 A3
|
||
.00.0 24 0022 6 0000 14 0149 MUL 6 ERROR+49 B
|
||
.00.0 25 0023 8 0000 12 0074 ADD 8 +0282433571 A4
|
||
.00.0 26 0024 6 0000 14 0149 MUL 6 ERROR+49 B
|
||
.00.0 27 0025 8 0000 12 0075 ADD 8 +0400193033 A5
|
||
.00.0 28 0026 6 0000 14 0149 MUL 6 ERROR+49 B
|
||
.00.0 29 0027 8 0000 12 0076 ADD 8 +0666661710 A6
|
||
.00.0 30 0028 6 0000 14 0149 MUL 6 ERROR+49 B
|
||
.00.0 31 0029 8 0000 12 0077 ADD 8 +2000000037 A7
|
||
.00.0 32 0030 6 0000 14 0152 MUL 6 ERROR+52
|
||
.00.0 33 0031 8 0000 12 0078 ADD 8 +1151292547 A8
|
||
.00.0 34 0032 8 2200 36 0035 *A BFA 8 D+,22,00
|
||
.00.0 35 0033 0 9858 48 0001 *CP2 F424 9858,48,1
|
||
.00.0 36 0034 8 0001 20 0032 IBB 8 A-,1
|
||
.00.0 37 0035 9 0810 40 0064 *D STA 9 RGN,08
|
||
.00.0 38 0036 8 0000 10 0068 *B CAD 8 EXP
|
||
.00.0 39 0037 8 0000 23 0079 FSU 8 +5251000000
|
||
.00.0 40 0038 8 0001 34 0040 BCL 8 *+2
|
||
.00.0 41 0039 6 0000 22 0151 FAD 6 ERROR+51 =1.0=
|
||
.00.0 42 0040 8 0000 24 0080 FMU 8 +5123025851
|
||
.00.0 43 0041 9 0000 22 0064 FAD 9 RGN
|
||
.00.0 44 0042 8 0000 42 0000 LDB 8 LOG
|
||
.00.0 45 0043 1 0000 30 0000 BUN - 0
|
||
.00.0 46 0044 8 1101 36 0047 SMALL BFA 8 A+,11,1
|
||
.00.0 47 0045 0 0001 48 0001 SRT 1
|
||
.00.0 48 0046 8 0000 13 0081 SUB 8 +2000000000
|
||
.00.0 49 0047 8 0000 22 0082 *A FAD 8 +1000000000
|
||
.00.0 50 0048 8 0000 36 0059 BZA 8 E+
|
||
.00.0 51 0049 6 0000 40 0152 STA 6 ERROR+52
|
||
.00.0 52 0050 6 2239 26 0152 IFL 6 ERROR+52,22,39
|
||
.00.0 53 0051 6 0000 10 0152 CAD 6 ERROR+52
|
||
.00.0 54 0052 8 0000 24 0083 FMU 8 -5025000000
|
||
.00.0 55 0053 8 0000 22 0084 FAD 8 +5033333333
|
||
.00.0 56 0054 6 0000 24 0152 FMU 6 ERROR+52
|
||
.00.0 57 0055 8 0000 22 0085 FAD 8 -5050000000
|
||
.00.0 58 0056 6 0000 24 0152 FMU 6 ERROR+52
|
||
.00.0 59 0057 6 0000 24 0152 FMU 6 ERROR+52
|
||
.00.0 60 0058 6 0000 22 0152 FAD 6 ERROR+52
|
||
.00.0 61 0059 8 0000 40 0067 *E STA 8 RGN+3
|
||
.00.0 62 0060 8 0003 20 0036 IBB 8 B-,3
|
||
.00.0 63 0061 8 0000 41 0086 *F LDR 8 $LOG$
|
||
.00.0 64 0062 8 0000 42 0000 LDB 8 LOG
|
||
.00.0 65 0063 6 0000 30 0107 BUN 6 ERROR+7
|
||
.00.0 66 0064 0 4900 00 0000 RGN CNST 4900000000
|
||
.00.0 67 0065 0 5000 00 0000 5000000000
|
||
.00.0 68 0066 0 5100 00 0000 5100000000
|
||
.00.0 69 0067 0 0000 00 0000 0000000000
|
||
.00.0 70 0068 0 5200 00 0000 EXP 5200000000
|
||
.00.0 71 0069 LOCN LOCN *+18
|
||
.00.0 72 0087 4 0000 99 0000 CNST 40000990000
|
||
.00.0 73 0088 2 5356 47 2359 CNST $LOG,REAL(REAL) ERROR=1 $
|
||
0089 2 4541 53 2459
|
||
0090 2 4541 53 0400
|
||
0091 2 4559 59 5659
|
||
0092 2 0081 00 0000
|
||
.00.0 74 0093 9 0000 00 0000 CNST 90000000000
|
||
.00.0 75 0094 LOCN LOCN
|
||
.00.0 76 0069 FINI LOG
|
||
0069 0 0316 22 7766 +0316227766
|
||
0070 0 0632 45 5532 +0632455532
|
||
0071 0 0410 59 7044 +0410597044
|
||
0072 0 0057 22 8327 +0057228327
|
||
0073 0 0250 34 1093 +0250341093
|
||
0074 0 0282 43 3571 +0282433571
|
||
0075 0 0400 19 3033 +0400193033
|
||
0076 0 0666 66 1710 +0666661710
|
||
0077 0 2000 00 0037 +2000000037
|
||
0078 0 1151 29 2547 +1151292547
|
||
0079 0 5251 00 0000 +5251000000
|
||
0080 0 5123 02 5851 +5123025851
|
||
0081 0 2000 00 0000 +2000000000
|
||
0082 0 1000 00 0000 +1000000000
|
||
0083 1 5025 00 0000 -5025000000
|
||
0084 0 5033 33 3333 +5033333333
|
||
0085 1 5050 00 0000 -5050000000
|
||
0086 2 5356 47 0000 $LOG
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
86 $LOG 32 *A..1 47 *A..2 36 *B..1 14 *CP11
|
||
33 *CP21 35 *D..1 59 *E..1 61 *F..1 72 +0057228327
|
||
73 +0250341093 74 +0282433571 69 +0316227766 75 +0400193033 71 +0410597044
|
||
70 +0632455532 76 +0666661710 82 +1000000000 78 +1151292547 81 +2000000000
|
||
77 +2000000037 84 +5033333333 80 +5123025851 79 +5251000000 83 -5025000000
|
||
85 -5050000000 8 BMOD 100 ERROR 68 EXP 69 LOCN
|
||
0 LOG 64 RGN 1 RLO 44 SMALL
|
||
|
||
END PASS 2, ERRORS = 0
|
||
|