github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-28 20:58:56 +00:00
Code Issues Releases Wiki Activity
Files
714993f651e5f0654e79d6f74ca80ba18170cfcb
pkimpel.retro-220/software/BALGOL/BALGOL-Library/WRITE-List.lst
Paul Kimpel f288264276 Commit BALGOL compiler reconstruction WIP as of 2018-01-11: 
1. Updated compiler and library sources after second proofing pass.
2. Updated Generator and Compiler object code and build decks.
3. Updated Generator and Compiler loadable object tapes.
4. Corrections to BAC-Assembler and enhancements for additional card/tape output options.
5. Minor corrections to GEN-Assembler.
6. Updates to miscellaneous utilities and example programs.
2018-01-12 08:16:52 -08:00

559 lines
28 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-11 06:57
Source File: WRITE.card
HEAD THE WRITE PROCEDURE
REORD
START PASS 1
.00.0 0000 ERROR DEFN 100
.01.0 0000 RITE DEFN 200
.02.0 0000 LOCN 0
.03.0 0000 ZOUT DEFN 125
.04.0 0000 ALPHA DEFN 126
.05.0 0000 BETA DEFN 127
.06.0 0000 GAMMA DEFN 128
.07.0 0000 WIDTH DEFN 129
.08.0 0000 OP DEFN 130
.09.0 0000 DEC DEFN 131
.10.0 0000 NEXTN DEFN 132
.11.0 0000 DELTA DEFN 133
.12.0 0000 THISN DEFN 134
.13.0 0000 WRITE CNST 0100010000
.14.0 0001 STA 8 FORMT,04
.15.0 0002 LDB 8 *+2
.16.0 0003 RTF 8 SIGN2,1
.17.0 0004 RTF 101,30
.18.0 0005 LDB 8 WRITE
.19.0 0006 STB 8 XIT,04
.20.0 0007 LDR - 9999
.21.0 0008 LSA 9,7557
.22.0 0009 BFR 8 I+,22,00
.23.0 0010 LDB 100
.24.0 0011 STP - 0
.25.0 0012 BFR - 1,22,01
.26.0 0013 *I STA NEXTN
.27.0 0014 STB 8 OUT,04
.28.0 0015 LDR OP
.29.0 0016 BZR 8 OVTST
.30.0 0017 CAD THISN
.31.0 0018 CLL DELTA
.32.0 0019 BFR 8 FF,52,46
.33.0 0020 BFR 8 XX,52,67
.34.0 0021 BFR 8 II,52,49
.35.0 0022 BFR 8 SS,52,62
.36.0 0023 BFR 8 AA,52,41
.37.0 0024 BUN 8 ERR
.38.0 0025 AA LDR 8 NNINE
.39.0 0026 *A DFL WIDTH,0,1
.40.0 0027 STP 8 EXIT1
.41.0 0028 BUN 8 SUBR2
.42.0 0029 CAD WIDTH
.43.0 0030 BZA 8 CYCLE
.44.0 0031 BFR 8 D+,22,99
.45.0 0032 SLT 10
.46.0 0033 BUN 8 A-
.47.0 0034 OVTST LDB 8 WRITE+1
.48.0 0035 BOF 6 ERROR+21
.49.0 0036 FORMT CAD 9999
.50.0 0037 IFL 8 FORMT,04,1
.51.0 0038 BPA 8 O+
.52.0 0039 LDR 8 NNINE
.53.0 0040 BMA 8 R+
.54.0 0041 *C BFA 8 FORMT,22,14
.55.0 0042 STP 8 EXIT1
.56.0 0043 NNINE F4248 9900,30,SUBR2
.57.0 0044 BFR 8 FORMT,22,99
.58.0 0045 SLT 10
.59.0 0046 BUN 8 C-
.60.0 0047 BB CAD WIDTH
.61.0 0048 ADL ZOUT
.62.0 0049 ADL ZOUT
.63.0 0050 CYCLE CAD OP
.64.0 0051 BFA 8 OVTST,33,0
.65.0 0052 *O BFA 8 *+2,33,00
.66.0 0053 SUB 8 +0010000000
.67.0 0054 STA OP
.68.0 0055 STA DEC,02
.69.0 0056 I2 SRT 2
.70.0 0057 STA WIDTH,03
.71.0 0058 BFA 8 BB,72,42
.72.0 0059 BFA 8 WW,72,66
.73.0 0060 BFA 8 PP,72,57
.74.0 0061 BFA 8 TT,72,63
.75.0 0062 BFA 8 CC,72,43
.76.0 0063 BFA 8 FORMT,03,00
.77.0 0064 *D CAD NEXTN
.78.0 0065 STA THISN
.79.0 0066 BSA 8 BB,9
.80.0 0067 OUT BUN 9999
.81.0 0068 *R LDB 8 FORMT
.82.0 0069 BFA 8 Z+,66,00
.83.0 0070 SLT 3
.84.0 0071 BFR 8 S+,03,00
.85.0 0072 *B SUB 8 +0010000000
.86.0 0073 BFA 8 I9999,33,00
.87.0 0074 DFL - 9999,63,1
.88.0 0075 *A LDR - 9999
.89.0 0076 STR 8 FORMT,04
.90.0 0077 BUN 8 FORMT
.91.0 0078 *S STA - 9999,33
.92.0 0079 BUN 8 B-
.93.0 0080 I9999 CAD - 9999
.94.0 0081 I03 SRT 3
.95.0 0082 STA - 9999,66
.96.0 0083 BUN 8 FORMT
.97.0 0084 *Z CAD NEXTN
.98.0 0085 XIT BSA 9999,9
.99.0 0086 BUN 8 A-
1.00.0 0087 CC CWR 124,51
01.01.0 0088 WW SRT 3
01.02.0 0089 STR 8 *+1,31
01.03.0 0090 F4246 2408,44,0200
1.04.0 0091 F4246 0101,30,0200
01.05.0 0092 *C LDB 8 *+2
01.06.0 0093 RTF 8 SIGN2,1
01.07.0 0094 RTF 101,24
1.08.0 0095 BUN 8 CYCLE
1.09.0 0096 PP CWR 124,51
1.10.0 0097 BUN 8 C-
1.11.0 0098 TT BFA 8 A+,03,0
1.12.0 0099 SPO 8 B+,1
1.13.0 0100 ADA 8 I9999
1.14.0 0101 BUN 8 TT
1.15.0 0102 *B CNST 21602020202
1.16.0 0103 *A CAD ZOUT
1.17.0 0104 BZA 8 CYCLE
1.18.0 0105 ADD 8 I8
1.19.0 0106 SRT 4
1.20.0 0107 STR 8 *+1,32
1.21.0 0108 SPO 101,99
1.22.0 0109 BUN 8 C-
1.23.0 0110 II LDB 8 I10
1.24.0 0111 BZA 8 Q+
1.25.0 0112 *C BFA 8 I51,11,0
1.26.0 0113 *S STA THISN
1.27.0 0114 I80 CAR 80
1.28.0 0115 MAJOR STB GAMMA
1.29.0 0116 CLL ALPHA
01.30.0 0117 STA ALPHA,04
01.31.0 0118 STR BETA
1.32.0 0119 CAD THISN
1.33.0 0120 I10 SRS 10
1.34.0 0121 I23 LSA 1,23
1.35.0 0122 ADD WIDTH
1.36.0 0123 SUB GAMMA
1.37.0 0124 BMA 8 ERR
1.38.0 0125 H0 ADL ZOUT
1.39.0 0126 H50 F424 5000,19,ZOUT
1.40.0 0127 CAD THISN
1.41.0 0128 LDR 8 I20
1.42.0 0129 STP 8 EXIT1
1.43.0 0130 BMA 8 SUBR1
1.44.0 0131 DFL GAMMA,00,1
1.45.0 0132 BRP 8 F+
1.46.0 0133 LDR BETA
1.47.0 0134 BZR 8 CYCLE
1.48.0 0135 LDR 8 I23
1.49.0 0136 STP 8 EXIT1
1.50.0 0137 BUN 8 SUBR1
1.51.0 0138 CAD BETA
1.52.0 0139 SUB 8 H50
1.53.0 0140 LDB 8 I2
1.54.0 0141 CLL WIDTH
1.55.0 0142 IFL WIDTH,00,3
1.56.0 0143 BUN 8 S-
1.57.0 0144 *F DFL ALPHA,00,1
1.58.0 0145 LDR ALPHA
1.59.0 0146 BZR 8 H+
1.60.0 0147 LDR DELTA
1.61.0 0148 BZR 8 I+
1.62.0 0149 DFL DELTA,00,1
1.63.0 0150 LDR 8 I80
1.64.0 0151 BUN 8 SUBR1
1.65.0 0152 *H LDR 8 I03
1.66.0 0153 BUN 8 SUBR1
1.67.0 0154 *I CAD THISN
01.68.0 0155 LDR 8 I8
01.69.0 0156 I1 SLT 1
01.70.0 0157 STA THISN
01.71.0 0158 SUBR1 SLT 18
01.72.0 0159 SUBR2 SRT 8
01.73.0 0160 LBC ZOUT
01.74.0 0161 SLA - 8
01.75.0 0162 DLB ZOUT,94,0
01.76.0 0163 DBB 8 EXIT1,24
01.77.0 0164 I20 LSA 0,20
01.78.0 0165 ADD - 125
01.79.0 0166 STA - 125,00
1.80.0 0167 IFL ZOUT,00,2
1.81.0 0168 EXIT1 BUN 9999
1.82.0 0169 *Q DBB 8 I80,9
1.83.0 0170 I51 SLA 51
1.84.0 0171 DBB 8 C-,1
1.85.0 0172 XX CLR 7557
1.86.0 0173 I8 SRT 8
1.87.0 0174 CFA 8 +50,04
1.88.0 0175 STR THISN
1.89.0 0176 BCL 8 D+
1.90.0 0177 *E STA 8 TEMP,04
1.91.0 0178 DFL 8 TEMP,04,49
1.92.0 0179 LDB 8 TEMP
1.93.0 0180 CAD OP
1.94.0 0181 SRT 4
1.95.0 0182 STR 8 B+,42
1.96.0 0183 CAD 8 TEMP
1.97.0 0184 TEMP CLR 9999
1.98.0 0185 *B IBB 8 MAJOR,0000
1.99.0 0186 *D LSA 0,7557
2.00.0 0187 SUB 8 +50
02.01.0 0188 STA DELTA,02
02.02.0 0189 CFR OP,02
02.03.0 0190 BCE 8 *+3
02.04.0 0191 *F CAD 8 +50
02.05.0 0192 BUN 8 E-
02.06.0 0193 CAD 8 I51
2.07.0 0194 STA THISN,11
2.08.0 0195 BUN 8 E-
2.09.0 0196 FF DFL WIDTH,03,4
2.10.0 0197 BRP 8 A+
02.11.0 0198 BUN 8 ERR1
2.12.0 0199 CAD 8 +5000000000
02.13.0 0200 *A BZA 8 *-1
02.14.0 0201 CLR 7557
02.15.0 0202 STA 8 H0,22
02.16.0 0203 SRT 8
02.17.0 0204 STR THISN
02.18.0 0205 SRS 10
02.19.0 0206 ADD OP
2.20.0 0207 EXT 8 I51
2.21.0 0208 CFA WIDTH,03
02.22.0 0209 BCL 8 C+
2.23.0 0210 ERR1 IFL WIDTH,0,4
02.24.0 0211 ERR CAD WIDTH
2.25.0 0212 ADL ZOUT
2.26.0 0213 ADL ZOUT
2.27.0 0214 DFL ZOUT,0,2
2.28.0 0215 LDR 8 I14
2.29.0 0216 STP 8 EXIT1
2.30.0 0217 BUN 8 SUBR1
2.31.0 0218 BUN 8 CYCLE
2.32.0 0219 *C LDR 8 H0
2.33.0 0220 *E CAD 8 I1
2.34.0 0221 *D LDB DEC
2.35.0 0222 IBB 8 MAJOR,1
2.36.0 0223 SS CLR 7557
2.37.0 0224 SRT 8
2.38.0 0225 STR THISN
2.39.0 0226 I14 LSA 0,14
2.40.0 0227 SUB 8 +50
2.41.0 0228 CLR 7557
2.42.0 0229 BMA 8 A+
2.43.0 0230 *C CFA OP,02
2.44.0 0231 BCH 8 ERR
2.45.0 0232 ADD 8 I1
2.46.0 0233 BUN 8 D-
2.47.0 0234 *A STA DELTA,00
2.48.0 0235 BUN 8 E-
2.49.0 0236 SIGN2 CNST 20000000000
2.50.0 0237 LOCN LOCN *+3
2.51.0 0240 CNST 40000990000
2.52.0 0241 CNST $WRITE ERROR=1 RITE=2 $
2.53.0 0246 CNST 90000000000
2.54.0 0247 LOCN LOCN
2.55.0 0237 FINI WRITE
0237 +0010000000
0238 +0000000050
0239 +5000000000
END PASS 1, ERRORS = 0
START PASS 2
.00.0 3 0000 ERROR DEFN 100
.01.0 4 0000 RITE DEFN 200
.02.0 5 0000 LOCN 0
.03.0 6 0000 ZOUT DEFN 125
.04.0 7 0000 ALPHA DEFN 126
.05.0 8 0000 BETA DEFN 127
.06.0 9 0000 GAMMA DEFN 128
.07.0 10 0000 WIDTH DEFN 129
.08.0 11 0000 OP DEFN 130
.09.0 12 0000 DEC DEFN 131
.10.0 13 0000 NEXTN DEFN 132
.11.0 14 0000 DELTA DEFN 133
.12.0 15 0000 THISN DEFN 134
.13.0 16 0000 0 0100 01 0000 WRITE CNST 0100010000
.14.0 17 0001 8 0410 40 0036 STA 8 FORMT,04
.15.0 18 0002 8 0000 42 0004 LDB 8 *+2
.16.0 19 0003 8 0010 29 0236 RTF 8 SIGN2,1
.17.0 20 0004 0 0300 29 0101 RTF 101,30
.18.0 21 0005 8 0000 42 0000 LDB 8 WRITE
.19.0 22 0006 8 0412 40 0085 STB 8 XIT,04
.20.0 23 0007 1 0000 41 9999 LDR - 9999
.21.0 24 0008 0 0009 43 7557 LSA 9,7557
.22.0 25 0009 8 2200 37 0013 BFR 8 I+,22,00
.23.0 26 0010 0 0000 42 0100 LDB 100
.24.0 27 0011 1 0000 44 0000 STP - 0
.25.0 28 0012 1 2201 37 0001 BFR - 1,22,01
.26.0 29 0013 0 0000 40 0132 *I STA NEXTN
.27.0 30 0014 8 0412 40 0067 STB 8 OUT,04
.28.0 31 0015 0 0000 41 0130 LDR OP
.29.0 32 0016 8 0000 37 0034 BZR 8 OVTST
.30.0 33 0017 0 0000 10 0134 CAD THISN
.31.0 34 0018 0 0000 46 0133 CLL DELTA
.32.0 35 0019 8 5246 37 0196 BFR 8 FF,52,46
.33.0 36 0020 8 5267 37 0172 BFR 8 XX,52,67
.34.0 37 0021 8 5249 37 0110 BFR 8 II,52,49
.35.0 38 0022 8 5262 37 0223 BFR 8 SS,52,62
.36.0 39 0023 8 5241 37 0025 BFR 8 AA,52,41
.37.0 40 0024 8 0000 30 0211 BUN 8 ERR
.38.0 41 0025 8 0000 41 0043 AA LDR 8 NNINE
.39.0 42 0026 0 0001 27 0129 *A DFL WIDTH,0,1
.40.0 43 0027 8 0000 44 0168 STP 8 EXIT1
.41.0 44 0028 8 0000 30 0159 BUN 8 SUBR2
.42.0 45 0029 0 0000 10 0129 CAD WIDTH
.43.0 46 0030 8 0000 36 0050 BZA 8 CYCLE
.44.0 47 0031 8 2299 37 0064 BFR 8 D+,22,99
.45.0 48 0032 0 0001 49 0010 SLT 10
.46.0 49 0033 8 0000 30 0026 BUN 8 A-
.47.0 50 0034 8 0000 42 0001 OVTST LDB 8 WRITE+1
.48.0 51 0035 6 0000 31 0121 BOF 6 ERROR+21
.49.0 52 0036 0 0000 10 9999 FORMT CAD 9999
.50.0 53 0037 8 0401 26 0036 IFL 8 FORMT,04,1
.51.0 54 0038 8 0000 33 0052 BPA 8 O+
.52.0 55 0039 8 0000 41 0043 LDR 8 NNINE
.53.0 56 0040 8 0001 33 0068 BMA 8 R+
.54.0 57 0041 8 2214 36 0036 *C BFA 8 FORMT,22,14
.55.0 58 0042 8 0000 44 0168 STP 8 EXIT1
.56.0 59 0043 8 9900 30 0159 NNINE F4248 9900,30,SUBR2
.57.0 60 0044 8 2299 37 0036 BFR 8 FORMT,22,99
.58.0 61 0045 0 0001 49 0010 SLT 10
.59.0 62 0046 8 0000 30 0041 BUN 8 C-
.60.0 63 0047 0 0000 10 0129 BB CAD WIDTH
.61.0 64 0048 0 0000 19 0125 ADL ZOUT
.62.0 65 0049 0 0000 19 0125 ADL ZOUT
.63.0 66 0050 0 0000 10 0130 CYCLE CAD OP
.64.0 67 0051 8 3300 36 0034 BFA 8 OVTST,33,0
.65.0 68 0052 8 3300 36 0054 *O BFA 8 *+2,33,00
.66.0 69 0053 8 0000 13 0237 SUB 8 +0010000000
.67.0 70 0054 0 0000 40 0130 STA OP
.68.0 71 0055 0 0210 40 0131 STA DEC,02
.69.0 72 0056 0 0001 48 0002 I2 SRT 2
.70.0 73 0057 0 0310 40 0129 STA WIDTH,03
.71.0 74 0058 8 7242 36 0047 BFA 8 BB,72,42
.72.0 75 0059 8 7266 36 0088 BFA 8 WW,72,66
.73.0 76 0060 8 7257 36 0096 BFA 8 PP,72,57
.74.0 77 0061 8 7263 36 0098 BFA 8 TT,72,63
.75.0 78 0062 8 7243 36 0087 BFA 8 CC,72,43
.76.0 79 0063 8 0300 36 0036 BFA 8 FORMT,03,00
.77.0 80 0064 0 0000 10 0132 *D CAD NEXTN
.78.0 81 0065 0 0000 40 0134 STA THISN
.79.0 82 0066 8 0009 33 0047 BSA 8 BB,9
.80.0 83 0067 0 0000 30 9999 OUT BUN 9999
.81.0 84 0068 8 0000 42 0036 *R LDB 8 FORMT
.82.0 85 0069 8 6600 36 0084 BFA 8 Z+,66,00
.83.0 86 0070 0 0001 49 0003 SLT 3
.84.0 87 0071 8 0300 37 0078 BFR 8 S+,03,00
.85.0 88 0072 8 0000 13 0237 *B SUB 8 +0010000000
.86.0 89 0073 8 3300 36 0080 BFA 8 I9999,33,00
.87.0 90 0074 1 6301 27 9999 DFL - 9999,63,1
.88.0 91 0075 1 0000 41 9999 *A LDR - 9999
.89.0 92 0076 8 0411 40 0036 STR 8 FORMT,04
.90.0 93 0077 8 0000 30 0036 BUN 8 FORMT
.91.0 94 0078 1 3310 40 9999 *S STA - 9999,33
.92.0 95 0079 8 0000 30 0072 BUN 8 B-
.93.0 96 0080 1 0000 10 9999 I9999 CAD - 9999
.94.0 97 0081 0 0001 48 0003 I03 SRT 3
.95.0 98 0082 1 6610 40 9999 STA - 9999,66
.96.0 99 0083 8 0000 30 0036 BUN 8 FORMT
.97.0 100 0084 0 0000 10 0132 *Z CAD NEXTN
.98.0 101 0085 0 0009 33 9999 XIT BSA 9999,9
.99.0 102 0086 8 0000 30 0075 BUN 8 A-
1.00.0 103 0087 0 1008 61 0124 CC CWR 124,51
01.01.0 104 0088 0 0001 48 0003 WW SRT 3
01.02.0 105 0089 8 3111 40 0090 STR 8 *+1,31
01.03.0 106 0090 6 2408 44 0200 F4246 2408,44,0200
1.04.0 107 0091 6 0101 30 0200 F4246 0101,30,0200
01.05.0 108 0092 8 0000 42 0094 *C LDB 8 *+2
01.06.0 109 0093 8 0010 29 0236 RTF 8 SIGN2,1
01.07.0 110 0094 0 0240 29 0101 RTF 101,24
1.08.0 111 0095 8 0000 30 0050 BUN 8 CYCLE
1.09.0 112 0096 0 1008 61 0124 PP CWR 124,51
1.10.0 113 0097 8 0000 30 0092 BUN 8 C-
1.11.0 114 0098 8 0300 36 0103 TT BFA 8 A+,03,0
1.12.0 115 0099 8 0010 09 0102 SPO 8 B+,1
1.13.0 116 0100 8 0001 12 0080 ADA 8 I9999
1.14.0 117 0101 8 0000 30 0098 BUN 8 TT
1.15.0 118 0102 2 1602 02 0202 *B CNST 21602020202
1.16.0 119 0103 0 0000 10 0125 *A CAD ZOUT
1.17.0 120 0104 8 0000 36 0050 BZA 8 CYCLE
1.18.0 121 0105 8 0000 12 0173 ADD 8 I8
1.19.0 122 0106 0 0001 48 0004 SRT 4
1.20.0 123 0107 8 3211 40 0108 STR 8 *+1,32
1.21.0 124 0108 0 0990 09 0101 SPO 101,99
1.22.0 125 0109 8 0000 30 0092 BUN 8 C-
1.23.0 126 0110 8 0000 42 0120 II LDB 8 I10
1.24.0 127 0111 8 0000 36 0169 BZA 8 Q+
1.25.0 128 0112 8 1100 36 0170 *C BFA 8 I51,11,0
1.26.0 129 0113 0 0000 40 0134 *S STA THISN
1.27.0 130 0114 0 0003 45 0080 I80 CAR 80
1.28.0 131 0115 0 0002 40 0128 MAJOR STB GAMMA
1.29.0 132 0116 0 0000 46 0126 CLL ALPHA
01.30.0 133 0117 0 0410 40 0126 STA ALPHA,04
01.31.0 134 0118 0 0001 40 0127 STR BETA
1.32.0 135 0119 0 0000 10 0134 CAD THISN
1.33.0 136 0120 0 0002 48 0010 I10 SRS 10
1.34.0 137 0121 0 0001 43 0023 I23 LSA 1,23
1.35.0 138 0122 0 0000 12 0129 ADD WIDTH
1.36.0 139 0123 0 0000 13 0128 SUB GAMMA
1.37.0 140 0124 8 0001 33 0211 BMA 8 ERR
1.38.0 141 0125 0 0000 19 0125 H0 ADL ZOUT
1.39.0 142 0126 0 5000 19 0125 H50 F424 5000,19,ZOUT
1.40.0 143 0127 0 0000 10 0134 CAD THISN
1.41.0 144 0128 8 0000 41 0164 LDR 8 I20
1.42.0 145 0129 8 0000 44 0168 STP 8 EXIT1
1.43.0 146 0130 8 0001 33 0158 BMA 8 SUBR1
1.44.0 147 0131 0 0001 27 0128 DFL GAMMA,00,1
1.45.0 148 0132 8 0000 32 0144 BRP 8 F+
1.46.0 149 0133 0 0000 41 0127 LDR BETA
1.47.0 150 0134 8 0000 37 0050 BZR 8 CYCLE
1.48.0 151 0135 8 0000 41 0121 LDR 8 I23
1.49.0 152 0136 8 0000 44 0168 STP 8 EXIT1
1.50.0 153 0137 8 0000 30 0158 BUN 8 SUBR1
1.51.0 154 0138 0 0000 10 0127 CAD BETA
1.52.0 155 0139 8 0000 13 0126 SUB 8 H50
1.53.0 156 0140 8 0000 42 0056 LDB 8 I2
1.54.0 157 0141 0 0000 46 0129 CLL WIDTH
1.55.0 158 0142 0 0003 26 0129 IFL WIDTH,00,3
1.56.0 159 0143 8 0000 30 0113 BUN 8 S-
1.57.0 160 0144 0 0001 27 0126 *F DFL ALPHA,00,1
1.58.0 161 0145 0 0000 41 0126 LDR ALPHA
1.59.0 162 0146 8 0000 37 0152 BZR 8 H+
1.60.0 163 0147 0 0000 41 0133 LDR DELTA
1.61.0 164 0148 8 0000 37 0154 BZR 8 I+
1.62.0 165 0149 0 0001 27 0133 DFL DELTA,00,1
1.63.0 166 0150 8 0000 41 0114 LDR 8 I80
1.64.0 167 0151 8 0000 30 0158 BUN 8 SUBR1
1.65.0 168 0152 8 0000 41 0081 *H LDR 8 I03
1.66.0 169 0153 8 0000 30 0158 BUN 8 SUBR1
1.67.0 170 0154 0 0000 10 0134 *I CAD THISN
01.68.0 171 0155 8 0000 41 0173 LDR 8 I8
01.69.0 172 0156 0 0001 49 0001 I1 SLT 1
01.70.0 173 0157 0 0000 40 0134 STA THISN
01.71.0 174 0158 0 0001 49 0018 SUBR1 SLT 18
01.72.0 175 0159 0 0001 48 0008 SUBR2 SRT 8
01.73.0 176 0160 0 0001 42 0125 LBC ZOUT
01.74.0 177 0161 1 0000 49 0008 SLA - 8
01.75.0 178 0162 0 9400 28 0125 DLB ZOUT,94,0
01.76.0 179 0163 8 0024 21 0168 DBB 8 EXIT1,24
01.77.0 180 0164 0 0000 43 0020 I20 LSA 0,20
01.78.0 181 0165 1 0000 12 0125 ADD - 125
01.79.0 182 0166 1 0010 40 0125 STA - 125,00
1.80.0 183 0167 0 0002 26 0125 IFL ZOUT,00,2
1.81.0 184 0168 0 0000 30 9999 EXIT1 BUN 9999
1.82.0 185 0169 8 0009 21 0114 *Q DBB 8 I80,9
1.83.0 186 0170 0 0000 49 0051 I51 SLA 51
1.84.0 187 0171 8 0001 21 0112 DBB 8 C-,1
1.85.0 188 0172 0 0002 45 7557 XX CLR 7557
1.86.0 189 0173 0 0001 48 0008 I8 SRT 8
1.87.0 190 0174 8 0410 18 0238 CFA 8 +50,04
1.88.0 191 0175 0 0001 40 0134 STR THISN
1.89.0 192 0176 8 0001 34 0186 BCL 8 D+
1.90.0 193 0177 8 0410 40 0184 *E STA 8 TEMP,04
1.91.0 194 0178 8 0449 27 0184 DFL 8 TEMP,04,49
1.92.0 195 0179 8 0000 42 0184 LDB 8 TEMP
1.93.0 196 0180 0 0000 10 0130 CAD OP
1.94.0 197 0181 0 0001 48 0004 SRT 4
1.95.0 198 0182 8 4211 40 0185 STR 8 B+,42
1.96.0 199 0183 8 0000 10 0184 CAD 8 TEMP
1.97.0 200 0184 0 0002 45 9999 TEMP CLR 9999
1.98.0 201 0185 8 0000 20 0115 *B IBB 8 MAJOR,0000
1.99.0 202 0186 0 0000 43 7557 *D LSA 0,7557
2.00.0 203 0187 8 0000 13 0238 SUB 8 +50
02.01.0 204 0188 0 0210 40 0133 STA DELTA,02
02.02.0 205 0189 0 0211 18 0130 CFR OP,02
02.03.0 206 0190 8 0000 35 0193 BCE 8 *+3
02.04.0 207 0191 8 0000 10 0238 *F CAD 8 +50
02.05.0 208 0192 8 0000 30 0177 BUN 8 E-
02.06.0 209 0193 8 0000 10 0170 CAD 8 I51
2.07.0 210 0194 0 1110 40 0134 STA THISN,11
2.08.0 211 0195 8 0000 30 0177 BUN 8 E-
2.09.0 212 0196 0 0304 27 0129 FF DFL WIDTH,03,4
2.10.0 213 0197 8 0000 32 0200 BRP 8 A+
02.11.0 214 0198 8 0000 30 0210 BUN 8 ERR1
2.12.0 215 0199 8 0000 10 0239 CAD 8 +5000000000
02.13.0 216 0200 8 0000 36 0199 *A BZA 8 *-1
02.14.0 217 0201 0 0002 45 7557 CLR 7557
02.15.0 218 0202 8 2210 40 0125 STA 8 H0,22
02.16.0 219 0203 0 0001 48 0008 SRT 8
02.17.0 220 0204 0 0001 40 0134 STR THISN
02.18.0 221 0205 0 0002 48 0010 SRS 10
02.19.0 222 0206 0 0000 12 0130 ADD OP
2.20.0 223 0207 8 0000 17 0170 EXT 8 I51
2.21.0 224 0208 0 0310 18 0129 CFA WIDTH,03
02.22.0 225 0209 8 0001 34 0219 BCL 8 C+
2.23.0 226 0210 0 0004 26 0129 ERR1 IFL WIDTH,0,4
02.24.0 227 0211 0 0000 10 0129 ERR CAD WIDTH
2.25.0 228 0212 0 0000 19 0125 ADL ZOUT
2.26.0 229 0213 0 0000 19 0125 ADL ZOUT
2.27.0 230 0214 0 0002 27 0125 DFL ZOUT,0,2
2.28.0 231 0215 8 0000 41 0226 LDR 8 I14
2.29.0 232 0216 8 0000 44 0168 STP 8 EXIT1
2.30.0 233 0217 8 0000 30 0158 BUN 8 SUBR1
2.31.0 234 0218 8 0000 30 0050 BUN 8 CYCLE
2.32.0 235 0219 8 0000 41 0125 *C LDR 8 H0
2.33.0 236 0220 8 0000 10 0156 *E CAD 8 I1
2.34.0 237 0221 0 0000 42 0131 *D LDB DEC
2.35.0 238 0222 8 0001 20 0115 IBB 8 MAJOR,1
2.36.0 239 0223 0 0002 45 7557 SS CLR 7557
2.37.0 240 0224 0 0001 48 0008 SRT 8
2.38.0 241 0225 0 0001 40 0134 STR THISN
2.39.0 242 0226 0 0000 43 0014 I14 LSA 0,14
2.40.0 243 0227 8 0000 13 0238 SUB 8 +50
2.41.0 244 0228 0 0002 45 7557 CLR 7557
2.42.0 245 0229 8 0001 33 0234 BMA 8 A+
2.43.0 246 0230 0 0210 18 0130 *C CFA OP,02
2.44.0 247 0231 8 0000 34 0211 BCH 8 ERR
2.45.0 248 0232 8 0000 12 0156 ADD 8 I1
2.46.0 249 0233 8 0000 30 0221 BUN 8 D-
2.47.0 250 0234 0 0010 40 0133 *A STA DELTA,00
2.48.0 251 0235 8 0000 30 0220 BUN 8 E-
2.49.0 252 0236 2 0000 00 0000 SIGN2 CNST 20000000000
2.50.0 253 0237 LOCN LOCN *+3
2.51.0 254 0240 4 0000 99 0000 CNST 40000990000
2.52.0 255 0241 2 6659 49 6345 CNST $WRITE ERROR=1 RITE=2 $
0242 2 0045 59 5956
0243 2 5933 81 0059
0244 2 4963 45 3382
0245 2 0000 00 0000
2.53.0 256 0246 9 0000 00 0000 CNST 90000000000
2.54.0 257 0247 LOCN LOCN
2.55.0 258 0237 FINI WRITE
0237 0 0010 00 0000 +0010000000
0238 0 0000 00 0050 +0000000050
0239 0 5000 00 0000 +5000000000
SYMBOL TABLE
26 *A..1 75 *A..2 103 *A..3 200 *A..4 234 *A..5
72 *B..1 102 *B..2 185 *B..3 41 *C..1 92 *C..2
112 *C..3 219 *C..4 230 *C..5 64 *D..1 186 *D..2
221 *D..3 177 *E..1 220 *E..2 144 *F..1 191 *F..2
152 *H..1 13 *I..1 154 *I..2 52 *O..1 169 *Q..1
68 *R..1 78 *S..1 113 *S..2 84 *Z..1 238 +0000000050
237 +0010000000 239 +5000000000 25 AA 126 ALPHA 47 BB
127 BETA 8 BMOD 87 CC 50 CYCLE 131 DEC
133 DELTA 211 ERR 210 ERR1 100 ERROR 168 EXIT1
196 FF 36 FORMT 128 GAMMA 125 H0 126 H50
81 I03 156 I1 120 I10 226 I14 56 I2
164 I20 121 I23 170 I51 173 I8 114 I80
80 I9999 110 II 237 LOCN 115 MAJOR 132 NEXTN
43 NNINE 130 OP 67 OUT 34 OVTST 96 PP
200 RITE 1 RLO 236 SIGN2 223 SS 158 SUBR1
159 SUBR2 184 TEMP 134 THISN 98 TT 129 WIDTH
0 WRITE 88 WW 85 XIT 172 XX 125 ZOUT
END PASS 2, ERRORS = 0
Reference in New Issue View Git Blame Copy Permalink