mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-05-01 13:57:29 +00:00
130 lines
5.9 KiB
Plaintext
130 lines
5.9 KiB
Plaintext
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-11 06:52
|
||
|
||
Source File: SQRT.card
|
||
START PASS 1
|
||
|
||
.00.0 0000 ERROR DEFN 100
|
||
.00.0 0000 SQRT CLB
|
||
.00.0 0001 LDB 8 SQRT
|
||
.00.0 0002 BZA - 0
|
||
.00.0 0003 BMA 8 A+
|
||
.00.0 0004 STA 8 A,08
|
||
.00.0 0005 STA 8 EXP,23
|
||
.00.0 0006 CAD 6 ERROR+48 =5(11)=
|
||
.00.0 0007 MUL 8 EXP
|
||
.00.0 0008 SUB 8 +2550000000
|
||
.00.0 0009 STA 8 EXP,23
|
||
.00.0 0010 CFA 8 EXP,31
|
||
.00.0 0011 BCE 8 *+3
|
||
.00.0 0012 BMA 8 *+2
|
||
.00.0 0013 IFL 8 EXP,22,1
|
||
.00.0 0014 CAD 8 -4916450338
|
||
.00.0 0015 FMU 8 A
|
||
.00.0 0016 FAD 8 +5041117101
|
||
.00.0 0017 FMU 8 A
|
||
.00.0 0018 FAD 8 +5062697923
|
||
.00.0 0019 STA 6 ERROR+49 B
|
||
.00.0 0020 CAD 8 A
|
||
.00.0 0021 FDV 6 ERROR+49 B
|
||
.00.0 0022 FAD 6 ERROR+49 B
|
||
.00.0 0023 FMU 8 +5050000000
|
||
.00.0 0024 STA 6 ERROR+49 B
|
||
.00.0 0025 CAD 8 A
|
||
.00.0 0026 FDV 6 ERROR+49 B
|
||
.00.0 0027 FAD 6 ERROR+49 B
|
||
.00.0 0028 ADD 8 EXP
|
||
.00.0 0029 BCE 8 B+
|
||
.00.0 0030 FMU 8 +5015811388
|
||
.00.0 0031 BUN - 0
|
||
.00.0 0032 *B FMU 8 +5050000000
|
||
.00.0 0033 BUN - 0
|
||
.00.0 0034 *A LDR 8 $SQRT$
|
||
.00.0 0035 BUN 6 ERROR+7
|
||
.00.0 0036 A CNST 5110000000
|
||
.00.0 0037 EXP CNST 0
|
||
.00.0 0038 LOCN LOCN *+7
|
||
.00.0 0045 CNST 40000990000
|
||
.00.0 0046 CNST $SQRT,REAL(REAL) ERROR=1 $
|
||
.00.0 0051 CNST 90000000000
|
||
.00.0 0052 LOCN LOCN
|
||
.00.0 0038 FINI 1
|
||
0038 +2550000000
|
||
0039 -4916450338
|
||
0040 +5041117101
|
||
0041 +5062697923
|
||
0042 +5050000000
|
||
0043 +5015811388
|
||
0044 $SQRT
|
||
|
||
|
||
END PASS 1, ERRORS = 0
|
||
|
||
START PASS 2
|
||
|
||
.00.0 1 0000 ERROR DEFN 100
|
||
.00.0 2 0000 0 0004 45 0000 SQRT CLB
|
||
.00.0 3 0001 8 0000 42 0000 LDB 8 SQRT
|
||
.00.0 4 0002 1 0000 36 0000 BZA - 0
|
||
.00.0 5 0003 8 0001 33 0034 BMA 8 A+
|
||
.00.0 6 0004 8 0810 40 0036 STA 8 A,08
|
||
.00.0 7 0005 8 2310 40 0037 STA 8 EXP,23
|
||
.00.0 8 0006 6 0000 10 0148 CAD 6 ERROR+48 =5(11)=
|
||
.00.0 9 0007 8 0000 14 0037 MUL 8 EXP
|
||
.00.0 10 0008 8 0000 13 0038 SUB 8 +2550000000
|
||
.00.0 11 0009 8 2310 40 0037 STA 8 EXP,23
|
||
.00.0 12 0010 8 3110 18 0037 CFA 8 EXP,31
|
||
.00.0 13 0011 8 0000 35 0014 BCE 8 *+3
|
||
.00.0 14 0012 8 0001 33 0014 BMA 8 *+2
|
||
.00.0 15 0013 8 2201 26 0037 IFL 8 EXP,22,1
|
||
.00.0 16 0014 8 0000 10 0039 CAD 8 -4916450338
|
||
.00.0 17 0015 8 0000 24 0036 FMU 8 A
|
||
.00.0 18 0016 8 0000 22 0040 FAD 8 +5041117101
|
||
.00.0 19 0017 8 0000 24 0036 FMU 8 A
|
||
.00.0 20 0018 8 0000 22 0041 FAD 8 +5062697923
|
||
.00.0 21 0019 6 0000 40 0149 STA 6 ERROR+49 B
|
||
.00.0 22 0020 8 0000 10 0036 CAD 8 A
|
||
.00.0 23 0021 6 0000 25 0149 FDV 6 ERROR+49 B
|
||
.00.0 24 0022 6 0000 22 0149 FAD 6 ERROR+49 B
|
||
.00.0 25 0023 8 0000 24 0042 FMU 8 +5050000000
|
||
.00.0 26 0024 6 0000 40 0149 STA 6 ERROR+49 B
|
||
.00.0 27 0025 8 0000 10 0036 CAD 8 A
|
||
.00.0 28 0026 6 0000 25 0149 FDV 6 ERROR+49 B
|
||
.00.0 29 0027 6 0000 22 0149 FAD 6 ERROR+49 B
|
||
.00.0 30 0028 8 0000 12 0037 ADD 8 EXP
|
||
.00.0 31 0029 8 0000 35 0032 BCE 8 B+
|
||
.00.0 32 0030 8 0000 24 0043 FMU 8 +5015811388
|
||
.00.0 33 0031 1 0000 30 0000 BUN - 0
|
||
.00.0 34 0032 8 0000 24 0042 *B FMU 8 +5050000000
|
||
.00.0 35 0033 1 0000 30 0000 BUN - 0
|
||
.00.0 36 0034 8 0000 41 0044 *A LDR 8 $SQRT$
|
||
.00.0 37 0035 6 0000 30 0107 BUN 6 ERROR+7
|
||
.00.0 38 0036 0 5110 00 0000 A CNST 5110000000
|
||
.00.0 39 0037 0 0000 00 0000 EXP CNST 0
|
||
.00.0 40 0038 LOCN LOCN *+7
|
||
.00.0 41 0045 4 0000 99 0000 CNST 40000990000
|
||
.00.0 42 0046 2 6258 59 6323 CNST $SQRT,REAL(REAL) ERROR=1 $
|
||
0047 2 5945 41 5324
|
||
0048 2 5945 41 5304
|
||
0049 2 0045 59 5956
|
||
0050 2 5933 81 0000
|
||
.00.0 43 0051 9 0000 00 0000 CNST 90000000000
|
||
.00.0 44 0052 LOCN LOCN
|
||
.00.0 45 0038 FINI 1
|
||
0038 0 2550 00 0000 +2550000000
|
||
0039 1 4916 45 0338 -4916450338
|
||
0040 0 5041 11 7101 +5041117101
|
||
0041 0 5062 69 7923 +5062697923
|
||
0042 0 5050 00 0000 +5050000000
|
||
0043 0 5015 81 1388 +5015811388
|
||
0044 2 6258 59 6300 $SQRT
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
44 $SQRT 34 *A..1 32 *B..1 38 +2550000000 43 +5015811388
|
||
40 +5041117101 42 +5050000000 41 +5062697923 39 -4916450338 36 A
|
||
8 BMOD 100 ERROR 37 EXP 38 LOCN 1 RLO
|
||
0 SQRT
|
||
|
||
END PASS 2, ERRORS = 0
|