github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-05-05 07:24:55 +00:00
Code Issues Releases Wiki Activity
Files
3b3dedbcaa1e50a437e55664e48c3ab7fecbb43d
pkimpel.retro-220/software/BALGOL/BALGOL-Library/READ-List.lst
Paul Kimpel 3b3dedbcaa Commit current BALGOL compiler WIP: 
1. Corrections and enhancements to BAC-Assembler and GEN-Assembler, including the ability to pre-load literal pools in order to obtain literal address assignments that match the transcription.
2. Additional proofing corrections to compiler and library.
3. Current versions of Generator and Compiler tapes -- do not reflect the most recent BALGOL-Main corrections.
2018-01-03 08:11:08 -08:00

335 lines
16 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 -- 2017-12-28 09:51
Source File: READ.card
REORD
START PASS 1
.00.0 0000 READ F4247 SW,1,*
,01.0 0001 STA 8 X,04
.02.0 0002 STA 8 Y,04
.03.0 0003 IFL 8 Y,04,1
.04.0 0004 STP 8 U
.05.0 0005 BUN 8 X
.06.0 0006 LDB 8 SW
.07.0 0007 CLL - 0
.08.0 0008 CLL 8 S6
.09.0 0009 A STP 6 0100
.10.0 0010 F4246 0117,30,0100
.11.0 0011 CLL 8 I
.12.0 0012 IFL 8 I,05,2
.13.0 0013 LDB 8 SW
.14.0 0014 IBB 8 B,9999
.15.0 0015 DLB 8 S6,64,0
.16.0 0016 CAD M+1
.17.0 0017 IBB 8 AC,9999
.18.0 0018 B DLB 8 I,94,0
.19.0 0019 CAD - M+1
.20.0 0020 LDB 8 I
.21.0 0021 SLA - 0
.22.0 0022 IFL 8 I,05,2
.23.0 0023 LDR 8 S6
.24.0 0024 BFR 8 AD,00,0
.25.0 0025 DBB 8 A,160
.26.0 0026 DLB 8 S6,44,0
.27.0 0027 BFA 8 K,22,13
.28.0 0028 SRA 8
.29.0 0029 SLA - 0
.30.0 0030 ADL 8 N
.31.0 0031 DFL 8 S6,41,2
.32.0 0032 BRP 8 B
.33.0 0033 CAD 8 N
.34.0 0034 STP 8 U
.35.0 0035 BUN 8 X
.36.0 0036 *B DFL 8 S6,52,12
.37.0 0037 BUN 8 B
.38.0 0038 AD DBB 8 A,162
.39.0 0039 BFA 8 G,11,8
.40.0 0040 BFA 8 P,22,03
.41.0 0041 BFA 8 Q,22,20
.42.0 0042 BFA 8 Q,22,34
.43.0 0043 BFA 8 C,22,23
.44.0 0044 BFA 8 CD,22,13
.45.0 0045 BFA 8 A+,22,14
.46.0 0046 O LDB 8 S3
.47.0 0047 IBB 8 B,9999
.48.0 0048 STP 8 U
.49.0 0049 BUN 8 W
.50.0 0050 BUN 8 B
.51.0 0051 *A IFL 8 I,94,16
.52.0 0052 BUN 8 O
.53.0 0053 K CLL 8 S6
.54.0 0054 CAD 8 N
.55.0 0055 STP 8 U
.56.0 0056 IBB 8 X,9992
.57.0 0057 BUN 8 B
.58.0 0058 C IFL 8 S5,00,1
.59.0 0059 STP 8 U
.60.0 0060 BUN 8 W
.61.0 0061 IFL 8 S2,00,1
.62.0 0062 BUN 8 B
.63.0 0063 Q IFL 8 S1,00,1
.64.0 0064 BUN 8 B
.65.0 0065 P LDR 8 T
.66.0 0066 STR 8 D,22
.67.0 0067 IFL 8 S4,00,1
.68.0 0068 BUN 8 B
.69.0 0069 G SLA 0 1
.70.0 0070 LDR 8 N
.71.0 0071 SLT 0 1
.72.0 0072 STR 8 N
.73.0 0073 DFL 8 D,22,1
.74.0 0074 IFL 8 S3,00,1
.75.0 0075 BUN 8 B
.76.0 0076 W LDR 8 S2
.77.0 0077 BZR 8 E
.78.0 0078 LDB 8 S1
.79.0 0079 CSU 8 N
.80.0 0080 SLA 8
.81.0 0081 IBB 8 *+2,9999
.82.0 0082 LSA 0
.83.0 0083 SUA 8 F
.84.0 0084 DFL 8 F,12,10
.85.0 0085 BRP 8 X
.86.0 0086 LSA 0
.87.0 0087 BUN 8 X
.88.0 0088 J LDB 8 S5
.89.0 0089 DBB 8 L,1
.90.0 0090 X STP 0 *
.91.0 0091 Y BUN 0 *
.92.0 0092 BSA 8 Z,9
.93.0 0093 STB 8 Y,04
.94.0 0094 V LDB 8 S
.95.0 0095 CLL 8 D
.96.0 0096 RTF 8 D,7
.97.0 0097 U BUN 0 *
.98.0 0098 L STA 8 F
.99.0 0099 BUN 8 V
01.00.0 0100 Z LDB 8 READ
01.01.0 0101 CLL 8 SW
1.02.0 0102 BUN - 0
1.03.0 0103 E CAD 8 N
01.04.0 0104 LDB 8 S4
01.05.0 0105 IBB 8 S,9999
01.06.0 0106 ADD 8 D
01.07.0 0107 FAD 8 D
01.08.0 0108 S LDB 8 S1
01.09.0 0109 IBB 8 J,9999
01.10.0 0110 LSA 0 1
01.11.0 0111 BUN 8 J
01.12.0 0112 AC CFA 8 ST1,08
01.13.0 0113 BCU 8 B
01.14.0 0114 LDR M+2
01.15.0 0115 CFR 8 ST2,00
01.16.0 0116 BCU 8 B
01.17.0 0117 LDB 8 SW
01.18.0 0118 IFL - 0,00,1
01.19.0 0119 BUN 8 Z
01.20.0 0120 CD LDB 8 S3
01.21.0 0121 IBB 8 B-,9999
01.22.0 0122 DFL 8 I,05,2
01.23.0 0123 BUN 8 O+2
01.24.0 0124 T CNST +5800000000
01.25.0 0125 ST1 CNST $5SENT$
01.26.0 0126 ST2 CNST $INEL $
01.27.0 0127 R CNST +5110000000
01.28.0 0128 SW HLT 0 0
01.29.0 0129 D HLT 0 0
1.30.0 0130 S1 HLT 0 0
01.31.0 0131 S2 HLT 0 0
01.32.0 0132 S3 HLT 0 0
01.33.0 0133 S4 HLT 0 0
01.34.0 0134 S5 HLT 0 0
01.35.0 0135 N HLT 0 0
01.36.0 0136 S6 HLT 0 0
01.37.0 0137 F HLT 0 0
01.38.0 0138 I HLT 0 0
01.39.0 0139 M DEFN 100
01.40.0 0139 CNST 40000990000
01.41.0 0140 CNST $READ REED=1 $
1.42.0 0143 CNST 90000000000
01.43.0 0144 FINI 1
SYMBOL TABLE
51 *A..1 36 *B..1 9 A 112 AC 38 AD
18 B 8 BMOD 58 C 120 CD 129 D
103 E 137 F 69 G 138 I 88 J
53 K 98 L 100 M 135 N 46 O
65 P 63 Q 127 R 0 READ 1 RLO
108 S 130 S1 131 S2 132 S3 133 S4
134 S5 136 S6 125 ST1 126 ST2 128 SW
124 T 97 U 94 V 76 W 90 X
91 Y 100 Z
END PASS 1, ERRORS = 0
START PASS 2
.00.0 2 0000 7 0128 01 0000 READ F4247 SW,1,*
,01.0 3 0001 8 0410 40 0090 STA 8 X,04
.02.0 4 0002 8 0410 40 0091 STA 8 Y,04
.03.0 5 0003 8 0401 26 0091 IFL 8 Y,04,1
.04.0 6 0004 8 0000 44 0097 STP 8 U
.05.0 7 0005 8 0000 30 0090 BUN 8 X
.06.0 8 0006 8 0000 42 0128 LDB 8 SW
.07.0 9 0007 1 0000 46 0000 CLL - 0
.08.0 10 0008 8 0000 46 0136 CLL 8 S6
.09.0 11 0009 6 0000 44 0100 A STP 6 0100
.10.0 12 0010 6 0117 30 0100 F4246 0117,30,0100
.11.0 13 0011 8 0000 46 0138 CLL 8 I
.12.0 14 0012 8 0502 26 0138 IFL 8 I,05,2
.13.0 15 0013 8 0000 42 0128 LDB 8 SW
.14.0 16 0014 8 9999 20 0018 IBB 8 B,9999
.15.0 17 0015 8 6400 28 0136 DLB 8 S6,64,0
.16.0 18 0016 0 0000 10 0101 CAD M+1
.17.0 19 0017 8 9999 20 0112 IBB 8 AC,9999
.18.0 20 0018 8 9400 28 0138 B DLB 8 I,94,0
.19.0 21 0019 1 0000 10 0101 CAD - M+1
.20.0 22 0020 8 0000 42 0138 LDB 8 I
.21.0 23 0021 1 0000 49 0000 SLA - 0
.22.0 24 0022 8 0502 26 0138 IFL 8 I,05,2
.23.0 25 0023 8 0000 41 0136 LDR 8 S6
.24.0 26 0024 8 0000 37 0038 BFR 8 AD,00,0
.25.0 27 0025 8 0160 21 0009 DBB 8 A,160
.26.0 28 0026 8 4400 28 0136 DLB 8 S6,44,0
.27.0 29 0027 8 2213 36 0053 BFA 8 K,22,13
.28.0 30 0028 0 0000 48 0008 SRA 8
.29.0 31 0029 1 0000 49 0000 SLA - 0
.30.0 32 0030 8 0000 19 0135 ADL 8 N
.31.0 33 0031 8 4102 27 0136 DFL 8 S6,41,2
.32.0 34 0032 8 0000 32 0018 BRP 8 B
.33.0 35 0033 8 0000 10 0135 CAD 8 N
.34.0 36 0034 8 0000 44 0097 STP 8 U
.35.0 37 0035 8 0000 30 0090 BUN 8 X
.36.0 38 0036 8 5212 27 0136 *B DFL 8 S6,52,12
.37.0 39 0037 8 0000 30 0018 BUN 8 B
.38.0 40 0038 8 0162 21 0009 AD DBB 8 A,162
.39.0 41 0039 8 1108 36 0069 BFA 8 G,11,8
.40.0 42 0040 8 2203 36 0065 BFA 8 P,22,03
.41.0 43 0041 8 2220 36 0063 BFA 8 Q,22,20
.42.0 44 0042 8 2234 36 0063 BFA 8 Q,22,34
.43.0 45 0043 8 2223 36 0058 BFA 8 C,22,23
.44.0 46 0044 8 2213 36 0120 BFA 8 CD,22,13
.45.0 47 0045 8 2214 36 0051 BFA 8 A+,22,14
.46.0 48 0046 8 0000 42 0132 O LDB 8 S3
.47.0 49 0047 8 9999 20 0018 IBB 8 B,9999
.48.0 50 0048 8 0000 44 0097 STP 8 U
.49.0 51 0049 8 0000 30 0076 BUN 8 W
.50.0 52 0050 8 0000 30 0018 BUN 8 B
.51.0 53 0051 8 9416 26 0138 *A IFL 8 I,94,16
.52.0 54 0052 8 0000 30 0046 BUN 8 O
.53.0 55 0053 8 0000 46 0136 K CLL 8 S6
.54.0 56 0054 8 0000 10 0135 CAD 8 N
.55.0 57 0055 8 0000 44 0097 STP 8 U
.56.0 58 0056 8 9992 20 0090 IBB 8 X,9992
.57.0 59 0057 8 0000 30 0018 BUN 8 B
.58.0 60 0058 8 0001 26 0134 C IFL 8 S5,00,1
.59.0 61 0059 8 0000 44 0097 STP 8 U
.60.0 62 0060 8 0000 30 0076 BUN 8 W
.61.0 63 0061 8 0001 26 0131 IFL 8 S2,00,1
.62.0 64 0062 8 0000 30 0018 BUN 8 B
.63.0 65 0063 8 0001 26 0130 Q IFL 8 S1,00,1
.64.0 66 0064 8 0000 30 0018 BUN 8 B
.65.0 67 0065 8 0000 41 0124 P LDR 8 T
.66.0 68 0066 8 2211 40 0129 STR 8 D,22
.67.0 69 0067 8 0001 26 0133 IFL 8 S4,00,1
.68.0 70 0068 8 0000 30 0018 BUN 8 B
.69.0 71 0069 0 0000 49 0001 G SLA 0 1
.70.0 72 0070 8 0000 41 0135 LDR 8 N
.71.0 73 0071 0 0001 49 0001 SLT 0 1
.72.0 74 0072 8 0001 40 0135 STR 8 N
.73.0 75 0073 8 2201 27 0129 DFL 8 D,22,1
.74.0 76 0074 8 0001 26 0132 IFL 8 S3,00,1
.75.0 77 0075 8 0000 30 0018 BUN 8 B
.76.0 78 0076 8 0000 41 0131 W LDR 8 S2
.77.0 79 0077 8 0000 37 0103 BZR 8 E
.78.0 80 0078 8 0000 42 0130 LDB 8 S1
.79.0 81 0079 8 0000 11 0135 CSU 8 N
.80.0 82 0080 0 0000 49 0008 SLA 8
.81.0 83 0081 8 9999 20 0083 IBB 8 *+2,9999
.82.0 84 0082 0 0000 43 0000 LSA 0
.83.0 85 0083 8 0001 13 0137 SUA 8 F
.84.0 86 0084 8 1210 27 0137 DFL 8 F,12,10
.85.0 87 0085 8 0000 32 0090 BRP 8 X
.86.0 88 0086 0 0000 43 0000 LSA 0
.87.0 89 0087 8 0000 30 0090 BUN 8 X
.88.0 90 0088 8 0000 42 0134 J LDB 8 S5
.89.0 91 0089 8 0001 21 0098 DBB 8 L,1
.90.0 92 0090 0 0000 44 0090 X STP 0 *
.91.0 93 0091 0 0000 30 0091 Y BUN 0 *
.92.0 94 0092 8 0009 33 0100 BSA 8 Z,9
.93.0 95 0093 8 0412 40 0091 STB 8 Y,04
.94.0 96 0094 8 0000 42 0108 V LDB 8 S
.95.0 97 0095 8 0000 46 0129 CLL 8 D
.96.0 98 0096 8 0070 29 0129 RTF 8 D,7
.97.0 99 0097 0 0000 30 0097 U BUN 0 *
.98.0 100 0098 8 0000 40 0137 L STA 8 F
.99.0 101 0099 8 0000 30 0094 BUN 8 V
01.00.0 102 0100 8 0000 42 0000 Z LDB 8 READ
01.01.0 103 0101 8 0000 46 0128 CLL 8 SW
1.02.0 104 0102 1 0000 30 0000 BUN - 0
1.03.0 105 0103 8 0000 10 0135 E CAD 8 N
01.04.0 106 0104 8 0000 42 0133 LDB 8 S4
01.05.0 107 0105 8 9999 20 0108 IBB 8 S,9999
01.06.0 108 0106 8 0000 12 0129 ADD 8 D
01.07.0 109 0107 8 0000 22 0129 FAD 8 D
01.08.0 110 0108 8 0000 42 0130 S LDB 8 S1
01.09.0 111 0109 8 9999 20 0088 IBB 8 J,9999
01.10.0 112 0110 0 0001 43 0000 LSA 0 1
01.11.0 113 0111 8 0000 30 0088 BUN 8 J
01.12.0 114 0112 8 0810 18 0125 AC CFA 8 ST1,08
01.13.0 115 0113 8 0001 35 0018 BCU 8 B
01.14.0 116 0114 0 0000 41 0102 LDR M+2
01.15.0 117 0115 8 0011 18 0126 CFR 8 ST2,00
01.16.0 118 0116 8 0001 35 0018 BCU 8 B
01.17.0 119 0117 8 0000 42 0128 LDB 8 SW
01.18.0 120 0118 1 0001 26 0000 IFL - 0,00,1
01.19.0 121 0119 8 0000 30 0100 BUN 8 Z
01.20.0 122 0120 8 0000 42 0132 CD LDB 8 S3
01.21.0 123 0121 8 9999 20 0036 IBB 8 B-,9999
01.22.0 124 0122 8 0502 27 0138 DFL 8 I,05,2
01.23.0 125 0123 8 0000 30 0048 BUN 8 O+2
01.24.0 126 0124 0 5800 00 0000 T CNST +5800000000
01.25.0 127 0125 2 8562 45 5563 ST1 CNST $5SENT$
01.26.0 128 0126 2 4955 45 5300 ST2 CNST $INEL $
01.27.0 129 0127 0 5110 00 0000 R CNST +5110000000
01.28.0 130 0128 0 0000 00 0000 SW HLT 0 0
01.29.0 131 0129 0 0000 00 0000 D HLT 0 0
1.30.0 132 0130 0 0000 00 0000 S1 HLT 0 0
01.31.0 133 0131 0 0000 00 0000 S2 HLT 0 0
01.32.0 134 0132 0 0000 00 0000 S3 HLT 0 0
01.33.0 135 0133 0 0000 00 0000 S4 HLT 0 0
01.34.0 136 0134 0 0000 00 0000 S5 HLT 0 0
01.35.0 137 0135 0 0000 00 0000 N HLT 0 0
01.36.0 138 0136 0 0000 00 0000 S6 HLT 0 0
01.37.0 139 0137 0 0000 00 0000 F HLT 0 0
01.38.0 140 0138 0 0000 00 0000 I HLT 0 0
01.39.0 141 0139 M DEFN 100
01.40.0 142 0139 4 0000 99 0000 CNST 40000990000
01.41.0 143 0140 2 5945 41 4400 CNST $READ REED=1 $
0141 2 5945 45 4433
0142 2 8100 00 0000
1.42.0 144 0143 9 0000 00 0000 CNST 90000000000
01.43.0 145 0144 FINI 1
SYMBOL TABLE
51 *A..1 36 *B..1 9 A 112 AC 38 AD
18 B 8 BMOD 58 C 120 CD 129 D
103 E 137 F 69 G 138 I 88 J
53 K 98 L 100 M 135 N 46 O
65 P 63 Q 127 R 0 READ 1 RLO
108 S 130 S1 131 S2 132 S3 133 S4
134 S5 136 S6 125 ST1 126 ST2 128 SW
124 T 97 U 94 V 76 W 90 X
91 Y 100 Z
END PASS 2, ERRORS = 0
Reference in New Issue View Git Blame Copy Permalink