1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-02-26 00:34:04 +00:00
Files
pkimpel.retro-220/software/BALGOL/BALGOL-Library/READ.baca

146 lines
5.3 KiB
Plaintext

.00.0 0000 REORD
.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 0100 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