13cb294274
New Hardware support: - IBM 653 Storage Unit: provides machine opcodes for Floating Point, Immediate Access Storage (IAS), Three Index registers, Cards Punch-read synchronizers 2 and 3. New Software included: - FORTRANSIT: version II (S), plus run time PACKAGE with standard Fortran functions. - Reorganized sw directory, separating each language in its own folder. Each one Includes a 00_readme.txt file with restoration notes and comments. New features: - Support for SOAP opcode mnemonics in addition to regular IBM mnemonics - FAST / REALTIME CPU options - PROP pseudo register - CARDDECK ECHOLAST command
1449 lines
99 KiB
Text
1449 lines
99 KiB
Text
1 SOAP 2
|
|
1
|
|
1 SYMBOLIC OPTIMAL ASSEMBLY PROG
|
|
1
|
|
1 FOR THE
|
|
1
|
|
1 IBM 650
|
|
1
|
|
1 DATA PROCESSING SYSTEM
|
|
1
|
|
REG S0000 0399 SYMBOL TAB
|
|
REG E0400 0599 EQUIV TABL
|
|
REG A0600 0799 AVAIL TABL
|
|
REG N0800 0899 NUM OP TAB
|
|
BLR 1000 1000 ENTRY
|
|
BLR 1001 1012 PSEUDO ENT
|
|
BLR 1021 1049 REG TABLE
|
|
REG C1050 1164 SYM OP TAB
|
|
BLA 1098 1099
|
|
BLA 1148 1149
|
|
BLR 1900 1900 MANUAL PAT
|
|
SYN READC 1950
|
|
BLR 1951 1962 READ AREA
|
|
REG T1990 1992 TYPE
|
|
REG P1977 1986 PUNCH AREA
|
|
BLR 1998 1999
|
|
EQU XXXX1 1961
|
|
EQU XXXX2 1962
|
|
BLR 1563 1570 TYPE2
|
|
BLA 1565 1565
|
|
BLA 1569 1569
|
|
REG B0900 0901 SUB 2
|
|
REG H0902 0904 TYPE 2
|
|
REG M0905 0907
|
|
REG Q0908 0909
|
|
REG R1200 1207 SUB 5
|
|
REG U1250 1259 SUB 13
|
|
REG V0910 0912 EQU SYN
|
|
REG X0913 0914 TYPE 0
|
|
REG Y0915 0916 EQU SYN
|
|
REG Z0917 0919
|
|
REG W0920 0922
|
|
BLR 0923 0968 MULTIPLE R
|
|
REG I1300 1307 SUB 13
|
|
1
|
|
1 CONTROL PROGRAM
|
|
1
|
|
1000 LDD READC SUB16 ENTRY 1000 69 1950 1353
|
|
1
|
|
READC RCD 1999 1998 READ CARD 1950 70 1999 1998
|
|
1998 LDD 1951 TRANSFER 1998 69 1951 1354
|
|
STD P0001 ALPHABETIC 1354 24 1977 0980
|
|
LDD 1952 INPUT 0980 69 1952 1355
|
|
STD P0002 TO 1355 24 1978 0981
|
|
LDD 1953 OUTPUT 0981 69 1953 1356
|
|
STD P0003 1356 24 1979 0982
|
|
LDD 1954 0982 69 1954 1357
|
|
STD P0004 1357 24 1980 0983
|
|
LDD 1955 0983 69 1955 1208
|
|
STD P0005 1208 24 1981 0984
|
|
LDD 1956 0984 69 1956 1209
|
|
STD P0006 1209 24 1982 0985
|
|
RAL P0009 STEP 0985 65 1985 0989
|
|
ALO 1IXXX CARD 0989 15 0992 0997
|
|
STL P0009 NUMBER 0997 20 1985 0988
|
|
RAU 1960 STORE 0988 60 1960 1015
|
|
SRT 0002 CONTROL 1015 30 0002 0971
|
|
STU P0008 INFO 0971 21 1984 0987
|
|
AUP TORG 0987 10 0990 0995
|
|
STL P0010 8003 TRANSFER 0995 20 1986 8003
|
|
8003 NOP 0000 9999 TO TYPE 8003 00 0000 9999
|
|
1
|
|
PUNCH PCH P0001 READC PUNCH READ 1350 71 1977 1950
|
|
1
|
|
SETCC RAU READC SUB10 SUDO EXIT 1400 60 1950 1405
|
|
1
|
|
1900 LDD READC SUB14 MANUAL PAT 1900 69 1950 1403
|
|
T0001 LDD X SUBR3 TYPE 0 1990 69 0993 0996
|
|
1
|
|
X0001 LDD PROCL 650 0913 69 1016 0969
|
|
LDD PROCD COMMAND OR 1016 69 1019 0972
|
|
LDD PUNCH PROCI CONSTANTS 1019 69 1350 1453
|
|
1
|
|
X0002 NOP 0000 8003 PSEUDO OP 0914 00 0000 8003
|
|
1
|
|
T0002 RAU READC SUB10 TYPE 1 COM 1991 60 1950 1405
|
|
1
|
|
X 00 0000 X0001 0993 00 0000 0913
|
|
1
|
|
1 RELOCATE ROUTINE
|
|
1
|
|
HED T
|
|
T0003 LDD Q SUBR3 PROCESS OP 1992 69 1195 0996
|
|
Q0002 NOP 0000 ILLOP ILLEGAL OP 0909 00 0000 1013
|
|
Q0001 RAL 1951 IS L FIXED 0908 65 1951 1455
|
|
SLT 0002 1455 35 0002 1211
|
|
NZU REL 1211 44 1165 1166
|
|
RAU 1957 FIXED L 1165 60 1957 1261
|
|
SUP 2000I DRUM CORE 1261 11 1014 1169
|
|
BMI FC 1169 46 1172 0973
|
|
AUP 8001 RES FIXED DRUM 1172 10 8001 0979
|
|
FC RAL 1957 SETL FIXED CORE 0973 65 1957 1311
|
|
SR RAL XXXX1 SETL SET L 1450 65 1961 1311
|
|
SETL SLT 0004 1311 35 0004 1171
|
|
LDD P0008 1171 69 1984 1187
|
|
SDA P0008 PROD 1187 22 1984 1237
|
|
REL RAU 1957 DRUM CORE 1166 60 1957 1361
|
|
SUP 2000I 1361 11 1014 1219
|
|
BMI RC 1219 46 1222 1173
|
|
AUP DDIFF RELOCATE 1222 10 0975 1179
|
|
BMI BL DRUM ADDR 1179 46 1182 1183
|
|
AUP 2000I RES 1182 10 1014 0979
|
|
RES STU XXXX1 0979 21 1961 1214
|
|
LDD SR SUB2R RESERVE L 1214 69 1450 1503
|
|
RC RAL 1957 RELOCATE 1173 65 1957 1411
|
|
ALO CDIFF CORE 1411 15 1264 1269
|
|
SLO 9060 1269 16 1272 0977
|
|
BMI BL 0977 46 1180 1183
|
|
ALO 8001 SETL 1180 15 8001 1311
|
|
BL RAU PROD SUB12 BLANK L 1183 60 1237 0991
|
|
1
|
|
REG J0944 0944 D TYPE 2
|
|
REG G0941 0941
|
|
1
|
|
PROD LDD PROI SET D EXIT 1237 69 1190 1193
|
|
STD EXITX 1193 24 1196 0999
|
|
RAU 1952 WHAT IS D 0999 60 1952 1407
|
|
LDD H SUBR4 1407 69 1210 1213
|
|
H0001 RAL 1958 RELOCATE 0902 65 1958 1263
|
|
SLO 2000I D OR C 1263 16 1014 1319
|
|
BMI 1564 1563 1319 46 1564 1563
|
|
H0002 SRT 0008 C D OR F 0903 30 0008 1221
|
|
AUP 1500 8003 1221 10 0974 8003
|
|
1563 RAL CDIFF CDD C 1563 65 1264 1369
|
|
1564 RAL DDIFF CDD D 1564 65 0975 1369
|
|
1566 RAL 1958 J0001 F 1566 65 1958 0944
|
|
CDD ALO 1958 J0001 1369 15 1958 0944
|
|
H0003 NOP 0000 G0003 SYMBOLIC 0904 00 0000 0943
|
|
1
|
|
REG J0960 0960 I
|
|
REG F0955 0955
|
|
1
|
|
PROI LDD PUNCH SET I EXIT 1190 69 1350 1553
|
|
STD EXITX 1553 24 1196 1099
|
|
RAU 1953 WHAT IS I 1099 60 1953 1457
|
|
LDD M SUBR4 1457 69 1260 1213
|
|
M0001 RAL 1959 RELOCATE 0905 65 1959 1313
|
|
SLO 2000I D OR C 1313 16 1014 1419
|
|
BMI 1568 1567 1419 46 1568 1567
|
|
M0002 SRT 0008 C D OR F 0906 30 0008 1175
|
|
AUP 1504 8003 1175 10 0978 8003
|
|
1567 RAL CDIFF CDI C 1567 65 1264 1469
|
|
1568 RAL DDIFF CDI D 1568 65 0975 1469
|
|
1570 RAL 1959 J0001 F 1570 65 1959 0960
|
|
CDI ALO 1959 J0001 1469 15 1959 0960
|
|
M0003 NOP 0000 F0003 SYMBOLIC 0907 00 0000 0957
|
|
1
|
|
Q 00 0000 Q0001 CONSTANTS 1195 00 0000 0908
|
|
9060 00 0000 9060 1272 00 0000 9060
|
|
H 00 0000 H0001 1210 00 0000 0902
|
|
1500 00 0000 1500 0974 00 0000 1500
|
|
M 00 0000 M0001 1260 00 0000 0905
|
|
1504 00 0000 1504 0978 00 0000 1504
|
|
XXXX1 01 0000 XXXX1 ERASEABLE 1961 01 0000 1961
|
|
HED
|
|
1
|
|
1 BOP ROUTINE
|
|
1
|
|
1001 LDD SUB16 INITIALIZE 1001 69 1404 1353
|
|
RAU READC SUB10 PUNCH 1404 60 1950 1405
|
|
1
|
|
1 BLR ROUTINE
|
|
1
|
|
1002 RAL 1959 BLR RESERVE 1002 65 1959 1363
|
|
BLR SLO 1958 FWA TO 1363 16 1958 1413
|
|
AUP 8001 LWA 1413 10 8001 1271
|
|
LDD SETCC SUB2R 1271 69 1400 1503
|
|
1
|
|
1 RBR ROUTINE
|
|
1
|
|
1012 RAU DDIFF 1012 60 0975 1229
|
|
ALO 1959 BLR 1229 15 1959 1363
|
|
1
|
|
1 BLA ROUTINE
|
|
1
|
|
1003 LDD H8XXX SET DRUM 1003 69 1406 1309
|
|
STD DRUMT TAG TO 8 1309 24 1212 1215
|
|
RAL 1959 UNRESERVE 1215 65 1959 1463
|
|
SLO 1958 FWA 1463 16 1958 1513
|
|
AUP 8001 TO 1513 10 8001 1321
|
|
LDD SETCC SUB2U LWA 1321 69 1400 1603
|
|
1
|
|
1 REG ROUTINE
|
|
1
|
|
HED R
|
|
1004 RAL 1952 IS 1004 65 1952 1507
|
|
SRT 0008 REGION 1507 30 0008 1225
|
|
SLO 90XXX CHARACTER 1225 16 1178 1233
|
|
BMI 1002 ALPHABETIC 1233 46 0986 1002
|
|
ALO 29XXX 0986 15 1189 1243
|
|
BMI 1002 1243 46 1002 1197
|
|
SLT 0004 STORE 1197 35 0004 1557
|
|
ALO ST REGION 1557 15 1310 1265
|
|
AUP 1958 ORIGIN 1265 10 1958 1613
|
|
AUP H9XXX 8002 1613 10 1216 8002
|
|
8002 STU 9999 1002 8002 21 9999 1002
|
|
1
|
|
ST STU 1021 1002 CONSTANTS 1310 21 1021 1002
|
|
HED
|
|
1
|
|
1 EQU REQ AND SYN ROUTINE
|
|
1
|
|
HED Z
|
|
1005 LDD H8XXX BOTH EQU 1005 69 1406 1359
|
|
1006 LDD H9XXX BOTH SYN 1006 69 1216 1359
|
|
BOTH STD TAG 1359 24 1262 1315
|
|
RAU 1953 WHAT IS I 1315 60 1953 1607
|
|
LDD Z SUBR4 1607 69 1360 1213
|
|
Z0001 RAL 1959 Y0001 ABSOLUTE 0917 65 1959 0915
|
|
Z0002 LDD Y SUBR9 REGIONAL 0918 69 1371 1174
|
|
Y0001 STL E TD 0915 20 1519 1322
|
|
Y0002 RAL P0010 BP REG ERROR 0916 65 1986 1191
|
|
Z0003 LDD W SUBR6 SYMBOLIC 0919 69 1372 1275
|
|
W0001 RAL EQUIV Y0001 S DEFINED 0920 65 1223 0915
|
|
W0002 RAL P0010 BP S UNDEFIND 0921 65 1986 1191
|
|
W0003 RAL P0010 BP S TAB FULL 0922 65 1986 1191
|
|
1
|
|
TD RAU 1952 HEAD D 1322 60 1952 1657
|
|
LDD SUB15 AND EQUATE 1657 69 1410 1663
|
|
LDD V SUBR6 TO E 1410 69 1713 1275
|
|
V0003 RAL P0010 BP S TAB FULL 0912 65 1986 1191
|
|
V0001 ALO E SD 0910 15 1519 1273
|
|
V0002 ALO E SD 0911 15 1519 1273
|
|
SD LDD TT SUBR7 1273 69 0976 1279
|
|
1
|
|
TT LDD TAG TEST TAG 0976 69 1262 1365
|
|
BDO SETCC 1365 90 1400 0970
|
|
RAU E RESERVE E 0970 60 1519 1323
|
|
LDD SETCC SUB2R 1323 69 1400 1503
|
|
1
|
|
1011 LDD H8XXX REQ 1011 69 1406 1409
|
|
STD TAG ROUTINE 1409 24 1262 1415
|
|
RAL 1959 IS I 1415 65 1959 1763
|
|
SLO 2000I DRUM O COR 1763 16 1014 1569
|
|
BMI D 1569 46 1422 1373
|
|
ALO CDIFF CD 1373 15 1264 1619
|
|
D ALO DDIFF CD 1422 15 0975 1619
|
|
CD ALO 2000I Y0001 1619 15 1014 0915
|
|
1
|
|
Z 00 0000 Z0001 CONSTANTS 1360 00 0000 0917
|
|
Y 00 0089 Y0001 1371 00 0089 0915
|
|
W 00 0000 W0001 1372 00 0000 0920
|
|
V 00 0000 V0001 1713 00 0000 0910
|
|
88 00 8800 0000 1500 00 8800 0000
|
|
1
|
|
BP ALO 88 BY PASS 1191 15 1500 1505
|
|
STL P0010 PUNCH 1505 20 1986 1350
|
|
1
|
|
TAG 01 0000 TAG ERASEABLE 1262 01 0000 1262
|
|
E 01 0000 E 1519 01 0000 1519
|
|
HED
|
|
1
|
|
1 ALF ROUTINE
|
|
1
|
|
1007 LDD PROCL PROCES LOC 1007 69 1460 0969
|
|
LDD 1952 1460 69 1952 1555
|
|
STD P0007 1555 24 1983 1186
|
|
RAL 1953 REPLACE 1186 65 1953 1707
|
|
NZE PUNCH BLANK I 1707 45 1350 1461
|
|
LDD SOAP2 BY 1461 69 1314 1017
|
|
STD P0003 PUNCH SOAP2 1017 24 1979 1350
|
|
SOAP2 ALF SOAP2 SOAP2 CONSTANT 1314 82 7661 7792
|
|
1
|
|
1 PAT ROUTINE
|
|
1
|
|
1008 RAU SUB10 1008 60 1511 1405
|
|
LDD READC SUB14 1511 69 1950 1403
|
|
1
|
|
1 HED ROUTINE
|
|
1
|
|
1009 RAL 1952 STORE 1009 65 1952 1757
|
|
SRT 0008 HEADING 1757 30 0008 1325
|
|
STL 0000H SETCC CHARACTER 1325 20 1329 1400
|
|
1
|
|
1 REL ROUTINE
|
|
1
|
|
HED M
|
|
1010 RAL 1952 SET 1010 65 1952 1807
|
|
NZE SDD DRUM 1807 45 1510 1561
|
|
RAL 1958 SDD AND 1510 65 1958 1561
|
|
SDD STL DDIFF CORE 1561 20 0975 1228
|
|
RAL 1953 DELTAS 1228 65 1953 1857
|
|
NZE SCD 1857 45 1560 1611
|
|
RAL 1959 SCD 1560 65 1959 1611
|
|
SCD STL CDIFF SETCC 1611 20 1264 1400
|
|
1
|
|
DDIFF 01 0000 DDIFF ERASEABLE 0975 01 0000 0975
|
|
CDIFF 01 0000 CDIFF 1264 01 0000 1264
|
|
HED
|
|
1
|
|
1 LOAD AVAILABLITY TABLE
|
|
1
|
|
HED L
|
|
1999 RAL 1951 CALC 1999 65 1951 1605
|
|
SRT 0004 LOC 1605 30 0004 1465
|
|
SLT 0004 W2 1465 35 0004 1375
|
|
ALO 8002 1375 15 8002 1283
|
|
ALO 8002 1283 15 8002 1241
|
|
ALO C1 1241 15 0994 1149
|
|
AUP C2 8003 1149 10 1352 8003
|
|
8003 LDD 9995 8002 LOAD 8003 69 9995 8002
|
|
8002 STD 9994 TUP TABLE 8002 24 9994 1247
|
|
TUP SUP TW 1247 11 1550 1655
|
|
NZU READC 1655 44 1459 1950
|
|
AUP TWP2 1459 10 1312 1167
|
|
ALO 1DXXX 8003 1167 15 1020 8003
|
|
1
|
|
C1 STD A0001 TUP CONSTANTS 0994 24 0600 1247
|
|
C2 LDD 1952 8002 1352 69 1952 8002
|
|
TW LDD 1958 8002 1550 69 1958 8002
|
|
TWP2 LDD 1960 8002 1312 69 1960 8002
|
|
HED
|
|
1 OPTIMIZING TABLE
|
|
1
|
|
N0001 00 0404 0998 NOP 0800 00 0404 0998
|
|
N0002 00 0404 0998 HLT 0801 00 0404 0998
|
|
N0003 33 2322 0999 UFA 0802 33 2322 0999
|
|
N0004 00 0505 0998 RTC 0803 00 0505 0998
|
|
N0005 00 0505 0998 RTN 0804 00 0505 0998
|
|
N0006 00 0505 0998 RTA 0805 00 0505 0998
|
|
N0007 00 0505 0998 WTN 0806 00 0505 0998
|
|
N0008 00 0505 0998 WTA 0807 00 0505 0998
|
|
N0009 33 1212 0999 LIB 0808 33 1212 0999
|
|
N0010 33 0202 0999 LDI 0809 33 0202 0999
|
|
N0011 33 0504 0999 AUP 0810 33 0504 0999
|
|
N0012 33 0504 0999 SUP 0811 33 0504 0999
|
|
N0013 99 9999 9999 NOT USED 0812 99 9999 9999
|
|
N0014 99 9999 9999 NOT USED 0813 99 9999 9999
|
|
N0015 33 1110 0999 DIV 0814 33 1110 0999
|
|
N0016 33 0504 0999 ALO 0815 33 0504 0999
|
|
N0017 33 0504 0999 SLO 0816 33 0504 0999
|
|
N0018 33 0504 0999 AML 0817 33 0504 0999
|
|
N0019 33 0504 0999 SML 0818 33 0504 0999
|
|
N0020 33 2120 0999 MPY 0819 33 2120 0999
|
|
N0021 54 0303 0999 STL 0820 54 0303 0999
|
|
N0022 45 0303 0999 STU 0821 45 0303 0999
|
|
N0023 34 0303 0999 SDA 0822 34 0303 0999
|
|
N0024 34 0303 0999 SIA 0823 34 0303 0999
|
|
N0025 33 0303 0999 STD 0824 33 0303 0999
|
|
N0026 44 0505 0998 NTS 0825 44 0505 0998
|
|
N0027 00 0505 0998 BIN 0826 00 0505 0998
|
|
N0028 00 0505 0998 SET 0827 00 0505 0998
|
|
N0029 33 1212 0999 SIB 0828 33 1212 0999
|
|
N0030 33 0202 0999 STI 0829 33 0202 0999
|
|
N0031 00 0000 0988 SRT 0830 00 0000 0988
|
|
N0032 00 0000 0888 SRD 0831 00 0000 0888
|
|
N0033 33 2726 0999 FAD 0832 33 2726 0999
|
|
N0034 33 2726 0999 FSB 0833 33 2726 0999
|
|
N0035 33 0000 0999 FDV 0834 33 0000 0999
|
|
N0036 00 0000 0988 SLT 0835 00 0000 0988
|
|
N0037 00 0000 0988 SCT 0836 00 0000 0988
|
|
N0038 33 2726 0999 FAM 0837 33 2726 0999
|
|
N0039 33 2726 0999 FSM 0838 33 2726 0999
|
|
N0040 33 0000 0999 FMP 0839 33 0000 0999
|
|
N0041 33 0404 0998 NZA 0840 33 0404 0998
|
|
N0042 33 0404 0998 BMZ 0841 33 0404 0998
|
|
N0043 33 0404 0998 NZB 0842 33 0404 0998
|
|
N0044 33 0404 0998 BMB 0843 33 0404 0998
|
|
N0045 34 0405 0998 NZU 0844 34 0405 0998
|
|
N0046 43 0504 0998 NZE 0845 43 0504 0998
|
|
N0047 33 0404 0998 BMI 0846 33 0404 0998
|
|
N0048 33 0505 0998 BOV 0847 33 0505 0998
|
|
N0049 33 0404 0998 NZC 0848 33 0404 0998
|
|
N0050 33 0404 0998 BMC 0849 33 0404 0998
|
|
N0051 00 0000 0898 AXA 0850 00 0000 0898
|
|
N0052 00 0000 0898 SXA 0851 00 0000 0898
|
|
N0053 00 0000 0898 AXB 0852 00 0000 0898
|
|
N0054 00 0000 0898 SXB 0853 00 0000 0898
|
|
N0055 44 0505 0998 NEF 0854 44 0505 0998
|
|
N0056 00 0505 0998 RWD 0855 00 0505 0998
|
|
N0057 00 0505 0998 WTM 0856 00 0505 0998
|
|
N0058 00 0505 0998 BST 0857 00 0505 0998
|
|
N0059 00 0000 0898 AXC 0858 00 0000 0898
|
|
N0060 00 0000 0898 SXC 0859 00 0000 0898
|
|
N0061 33 0504 0999 RAU 0860 33 0504 0999
|
|
N0062 33 0504 0999 RSU 0861 33 0504 0999
|
|
N0063 99 9999 9999 NOT USED 0862 99 9999 9999
|
|
N0064 99 9999 9999 NOT USED 0863 99 9999 9999
|
|
N0065 33 1110 0999 DVR 0864 33 1110 0999
|
|
N0066 33 0504 0999 RAL 0865 33 0504 0999
|
|
N0067 33 0504 0999 RSL 0866 33 0504 0999
|
|
N0068 33 0504 0999 RAM 0867 33 0504 0999
|
|
N0069 33 0504 0999 RSM 0868 33 0504 0999
|
|
N0070 33 0303 0999 LDD 0869 33 0303 0999
|
|
N0071 00 0000 0999 RD1 0870 00 0000 0999
|
|
N0072 00 0000 0999 WR1 0871 00 0000 0999
|
|
N0073 00 0000 0999 RC1 0872 00 0000 0999
|
|
N0074 00 0000 0999 RD2 0873 00 0000 0999
|
|
N0075 00 0000 0999 WR2 0874 00 0000 0999
|
|
N0076 00 0000 0999 RC2 0875 00 0000 0999
|
|
N0077 00 0000 0999 RD3 0876 00 0000 0999
|
|
N0078 00 0000 0999 WR3 0877 00 0000 0999
|
|
N0079 00 0000 0999 RC3 0878 00 0000 0999
|
|
N0080 00 0505 0999 RPY 0879 00 0505 0999
|
|
N0081 00 0000 0898 RAA 0880 00 0000 0898
|
|
N0082 00 0000 0898 RSA 0881 00 0000 0898
|
|
N0083 00 0000 0898 RAB 0882 00 0000 0898
|
|
N0084 00 0000 0898 RSB 0883 00 0000 0898
|
|
N0085 33 0506 0999 TLU 0884 33 0506 0999
|
|
N0086 00 0606 0998 SDS 0885 00 0606 0998
|
|
N0087 00 0606 0998 RDS 0886 00 0606 0998
|
|
N0088 00 0606 0998 WDS 0887 00 0606 0998
|
|
N0089 00 0000 0898 RAC 0888 00 0000 0898
|
|
N0090 00 0000 0898 RSC 0889 00 0000 0898
|
|
N0091 44 0505 0998 BDO 0890 44 0505 0998
|
|
N0092 33 0505 0998 BD1 0891 33 0505 0998
|
|
N0093 33 0505 0998 BD2 0892 33 0505 0998
|
|
N0094 33 0505 0998 BD3 0893 33 0505 0998
|
|
N0095 33 0505 0998 BD4 0894 33 0505 0998
|
|
N0096 33 0505 0998 BD5 0895 33 0505 0998
|
|
N0097 33 0505 0998 BD6 0896 33 0505 0998
|
|
N0098 33 0505 0998 BD7 0897 33 0505 0998
|
|
N0099 33 0505 0998 BD8 0898 33 0505 0998
|
|
N0100 44 0505 0998 BD9 0899 44 0505 0998
|
|
1
|
|
1 SYMBOLIC OP TABLE
|
|
1
|
|
C0001 61 7366 1007 ALF 1050 61 7366 1007
|
|
C0002 61 7376 0015 ALO 1051 61 7376 0015
|
|
C0003 61 7473 0017 AML 1052 61 7473 0017
|
|
C0004 61 8477 0010 AUP 1053 61 8477 0010
|
|
C0005 61 8761 0050 AXA 1054 61 8761 0050
|
|
C0006 61 8762 0052 AXB 1055 61 8762 0052
|
|
C0007 61 8763 0058 AXC 1056 61 8763 0058
|
|
C0008 62 6476 0090 BDO 1057 62 6476 0090
|
|
C0009 62 6491 0091 BD1 1058 62 6491 0091
|
|
C0010 62 6492 0092 BD2 1059 62 6492 0092
|
|
C0011 62 6493 0093 BD3 1060 62 6493 0093
|
|
C0012 62 6494 0094 BD4 1061 62 6494 0094
|
|
C0013 62 6495 0095 BD5 1062 62 6495 0095
|
|
C0014 62 6496 0096 BD6 1063 62 6496 0096
|
|
C0015 62 6497 0097 BD7 1064 62 6497 0097
|
|
C0016 62 6498 0098 BD8 1065 62 6498 0098
|
|
C0017 62 6499 0099 BD9 1066 62 6499 0099
|
|
C0018 62 6975 0026 BIN 1067 62 6975 0026
|
|
C0019 62 7361 1003 BLA 1068 62 7361 1003
|
|
C0020 62 7379 1002 BLR 1069 62 7379 1002
|
|
C0021 62 7461 0041 BMA 1070 62 7461 0041
|
|
C0022 62 7462 0043 BMB 1071 62 7462 0043
|
|
C0023 62 7463 0049 BMC 1072 62 7463 0049
|
|
C0024 62 7469 0046 BMI 1073 62 7469 0046
|
|
C0025 62 7677 1001 BOP 1074 62 7677 1001
|
|
C0026 62 7685 0047 BOV 1075 62 7685 0047
|
|
C0027 62 8283 0057 BST 1076 62 8283 0057
|
|
C0028 64 6985 0014 DIV 1077 64 6985 0014
|
|
C0029 64 8579 0064 DVR 1078 64 8579 0064
|
|
C0030 65 7884 1005 EQU 1079 65 7884 1005
|
|
C0031 66 6164 0032 FAD 1080 66 6164 0032
|
|
C0032 66 6174 0037 FAM 1081 66 6174 0037
|
|
C0033 66 6485 0034 FDV 1082 66 6485 0034
|
|
C0034 66 7477 0039 FMP 1083 66 7477 0039
|
|
C0035 66 8262 0033 FSB 1084 66 8262 0033
|
|
C0036 66 8274 0038 FSM 1085 66 8274 0038
|
|
C0037 68 6564 1009 HED 1086 68 6564 1009
|
|
C0038 68 7383 0001 HLT 1087 68 7383 0001
|
|
C0039 73 6464 0069 LDD 1088 73 6464 0069
|
|
C0040 73 6469 0009 LDI 1089 73 6469 0009
|
|
C0041 73 6962 0008 LIB 1090 73 6962 0008
|
|
C0042 74 7788 0019 MPY 1091 74 7788 0019
|
|
C0043 75 6566 0054 NEF 1092 75 6566 0054
|
|
C0044 75 7677 0000 NOP 1093 75 7677 0000
|
|
C0045 75 8382 0025 NTS 1094 75 8382 0025
|
|
C0046 75 8961 0040 NZA 1095 75 8961 0040
|
|
C0047 75 8962 0042 NZB 1096 75 8962 0042
|
|
C0048 75 8963 0048 NZC 1097 75 8963 0048
|
|
C0051 75 8965 0045 NZE 1100 75 8965 0045
|
|
C0052 75 8984 0044 NZU 1101 75 8984 0044
|
|
C0053 77 6183 1008 PAT 1102 77 6183 1008
|
|
C0054 77 6368 0071 PCH 1103 77 6368 0071
|
|
C0055 79 6161 0080 RAA 1104 79 6161 0080
|
|
C0056 79 6162 0082 RAB 1105 79 6162 0082
|
|
C0057 79 6163 0088 RAC 1106 79 6163 0088
|
|
C0058 79 6173 0065 RAL 1107 79 6173 0065
|
|
C0059 79 6174 0067 RAM 1108 79 6174 0067
|
|
C0060 79 6184 0060 RAU 1109 79 6184 0060
|
|
C0061 79 6279 1012 RBR 1110 79 6279 1012
|
|
C0062 79 6364 0070 RCD 1111 79 6364 0070
|
|
C0063 79 6391 0072 RC1 1112 79 6391 0072
|
|
C0064 79 6392 0075 RC2 1113 79 6392 0075
|
|
C0065 79 6393 0078 RC3 1114 79 6393 0078
|
|
C0066 79 6482 0086 RDS 1115 79 6482 0086
|
|
C0067 79 6491 0070 RD1 1116 79 6491 0070
|
|
C0068 79 6492 0073 RD2 1117 79 6492 0073
|
|
C0069 79 6493 0076 RD3 1118 79 6493 0076
|
|
C0070 79 6567 1004 REG 1119 79 6567 1004
|
|
C0071 79 6573 1010 REL 1120 79 6573 1010
|
|
C0072 79 6578 1011 REQ 1121 79 6578 1011
|
|
C0073 79 7788 0079 RPY 1122 79 7788 0079
|
|
C0074 79 8261 0081 RSA 1123 79 8261 0081
|
|
C0075 79 8262 0083 RSB 1124 79 8262 0083
|
|
C0076 79 8263 0089 RSC 1125 79 8263 0089
|
|
C0077 79 8273 0066 RSL 1126 79 8273 0066
|
|
C0078 79 8274 0068 RSM 1127 79 8274 0068
|
|
C0079 79 8284 0061 RSU 1128 79 8284 0061
|
|
C0080 79 8361 0005 RTA 1129 79 8361 0005
|
|
C0081 79 8363 0003 RTC 1130 79 8363 0003
|
|
C0082 79 8375 0004 RTN 1131 79 8375 0004
|
|
C0083 79 8664 0055 RWD 1132 79 8664 0055
|
|
C0084 82 6383 0036 SCT 1133 82 6383 0036
|
|
C0085 82 6461 0022 SDA 1134 82 6461 0022
|
|
C0086 82 6482 0085 SDS 1135 82 6482 0085
|
|
C0087 82 6583 0027 SET 1136 82 6583 0027
|
|
C0088 82 6961 0023 SIA 1137 82 6961 0023
|
|
C0089 82 6962 0028 SIB 1138 82 6962 0028
|
|
C0090 82 7376 0016 SLO 1139 82 7376 0016
|
|
C0091 82 7383 0035 SLT 1140 82 7383 0035
|
|
C0092 82 7473 0018 SML 1141 82 7473 0018
|
|
C0093 82 7964 0031 SRD 1142 82 7964 0031
|
|
C0094 82 7983 0030 SRT 1143 82 7983 0030
|
|
C0095 82 8364 0024 STD 1144 82 8364 0024
|
|
C0096 82 8369 0029 STI 1145 82 8369 0029
|
|
C0097 82 8373 0020 STL 1146 82 8373 0020
|
|
C0098 82 8384 0021 STU 1147 82 8384 0021
|
|
C0101 82 8477 0011 SUP 1150 82 8477 0011
|
|
C0102 82 8761 0051 SXA 1151 82 8761 0051
|
|
C0103 82 8762 0053 SXB 1152 82 8762 0053
|
|
C0104 82 8763 0059 SXC 1153 82 8763 0059
|
|
C0105 82 8875 1006 SYN 1154 82 8875 1006
|
|
C0106 83 7384 0084 TLU 1155 83 7384 0084
|
|
C0107 84 6661 0002 UFA 1156 84 6661 0002
|
|
C0108 86 6482 0087 WDS 1157 86 6482 0087
|
|
C0109 86 7991 0071 WR1 1158 86 7991 0071
|
|
C0110 86 7992 0074 WR2 1159 86 7992 0074
|
|
C0111 86 7993 0077 WR3 1160 86 7993 0077
|
|
C0112 86 8361 0007 WTA 1161 86 8361 0007
|
|
C0113 86 8374 0056 WTM 1162 86 8374 0056
|
|
C0114 86 8375 0006 WTN 1163 86 8375 0006
|
|
C0115 99 9999 0001 TABLE END 1164 99 9999 0001
|
|
1
|
|
1 SUB 1 STORE K IN FWA TO LWA
|
|
1
|
|
HED 1
|
|
SUBR1 STD EXITX STORE EXIT 1600 24 1196 1199
|
|
STU XXXX1 STORE K 1199 21 1961 1364
|
|
LDD FWA SET 1364 69 1217 1170
|
|
SDA FWA FWA 1170 22 1217 1220
|
|
SLT 0004 LWA 1220 35 0004 1181
|
|
SDA XXXX2 ADDRESSES 1181 22 1962 1515
|
|
RAU FWA 1515 60 1217 1421
|
|
ALO XXXX1 8003 1421 15 1961 8003
|
|
8003 STL 9999 NEXT STORE K 8003 20 9999 1402
|
|
NEXT SUP XXXX2 END OF 1402 11 1962 1267
|
|
NZU EXITX LOOP TEST 1267 44 1471 1196
|
|
AUP 8001 1471 10 8001 1379
|
|
AUP 1DXXX 8003 STEP 1379 10 1020 8003
|
|
1
|
|
FWA STL 9998 NEXT CONSTANTS 1217 20 9998 1402
|
|
XXXX2 01 0000 XXXX2 ERASEABLE 1962 01 0000 1962
|
|
HED
|
|
1
|
|
1 SUB 2 RESERVE UNRESERVE
|
|
1
|
|
HED 2
|
|
SUB2R STD EXITY RESERVE 1503 24 1456 1509
|
|
LDD Z RU ENTRY 1509 69 1362 1565
|
|
SUB2U STD EXITY UNRESERVE 1603 24 1456 1559
|
|
LDD 1I RU ENTRY 1559 69 1412 1565
|
|
RU STD W SET W 1565 24 1018 1521
|
|
STL N STORE N 1521 20 1425 1278
|
|
SLO 8001 CALC AO 1278 16 8001 1185
|
|
AUP 8003 AND PO 1185 10 8003 1293
|
|
SRT 0003 1293 30 0003 1351
|
|
STU X 1351 21 1506 1609
|
|
SUP 8001 1609 11 8001 1317
|
|
SLT 0001 1317 35 0001 1423
|
|
STU P 1423 21 1328 1231
|
|
SUP 8001 1231 11 8001 1239
|
|
SLT 0002 1239 35 0002 1245
|
|
AUP 8003 1245 10 8003 1653
|
|
AUP X 1653 10 1506 1661
|
|
ALO P 1661 15 1328 1333
|
|
SLT 0004 1333 35 0004 1343
|
|
ALO C1 1343 15 1246 1401
|
|
STL B0002 1401 20 0901 1454
|
|
LDD C2 1454 69 1907 1610
|
|
SDA SPR 1610 22 1813 1266
|
|
AUP C3 SU 1266 10 1669 1473
|
|
SU STU SA 1473 21 1378 1281
|
|
AUP C4 8003 1281 10 1184 8003
|
|
8003 RAL 9992 B0002 8003 65 9992 0901
|
|
B0002 SLT 0009 XX 0901 35 0009 1571
|
|
XX STU UH 1571 21 1176 1429
|
|
SLT 0001 1429 35 0001 1235
|
|
RAL 8002 1235 65 8002 1393
|
|
AUP W 1393 10 1018 1523
|
|
SRT 0001 1523 30 0001 1479
|
|
AUP UH SPR 1479 10 1176 1813
|
|
SPR SRT 0009 SA 1813 30 0009 1378
|
|
SA STL 9983 B0001 1378 20 9983 0900
|
|
B0001 RAL N IS N ZERO 0900 65 1425 1529
|
|
NZE EXITY 1529 45 1232 1456
|
|
SLO 1I REDUCE N 1232 16 1412 1367
|
|
STL N BY 1 1367 20 1425 1428
|
|
RAU SA IS AI 1428 60 1378 1383
|
|
SUP A197 IN LAST 1383 11 1236 1291
|
|
BMI TP BLOCK OF 1291 46 1194 1295
|
|
AUP A201 SU 4 1194 10 1297 1473
|
|
1
|
|
TP RAL SPR IS P 9 1295 65 1813 1417
|
|
SLO C2 1417 16 1907 1711
|
|
NZE ZP 1711 45 1414 1615
|
|
ALO C5 STEP P 1414 15 1467 1621
|
|
LDD C1 1621 69 1246 1249
|
|
SDA B0002 1249 22 0901 1504
|
|
STL SPR 1504 20 1813 1316
|
|
RAU SA REDUCE AI 1316 60 1378 1433
|
|
SUP C6 SU BY 196 1433 11 1286 1473
|
|
1
|
|
ZP LDD C1 SET P 1615 69 1246 1299
|
|
STD B0002 TO ZERO 1299 24 0901 1554
|
|
LDD C7 1554 69 1308 1761
|
|
STD SPR 1761 24 1813 1366
|
|
RAU SA REDUCE AI 1366 60 1378 1483
|
|
SUP C8 SU BY 195 1483 11 1336 1473
|
|
1
|
|
C1 SLT 0000 XX CONSTANTS 1246 35 0000 1571
|
|
C2 SRT 0009 SA 1907 30 0009 1378
|
|
C3 STL A0001 B0001 1669 20 0600 0900
|
|
C4 45 0000 0001 1184 45 0000 0001
|
|
1I 00 0000 0001 1412 00 0000 0001
|
|
A197 STL A0197 B0001 1236 20 0796 0900
|
|
A201 STL A0201 B0001 1297 20 0800 0900
|
|
C5 SRT 0010 SA 1467 30 0010 1378
|
|
C6 00 0196 0000 1286 00 0196 0000
|
|
C7 SRT 0000 SA 1308 30 0000 1378
|
|
C8 00 0195 0000 1336 00 0195 0000
|
|
Z 00 0000 0000 1362 00 0000 0000
|
|
W 01 0000 W ERASEABLE 1018 01 0000 1018
|
|
N 01 0000 N 1425 01 0000 1425
|
|
B0002 01 0000 B0002 0901 01 0000 0901
|
|
SPR 01 0000 SPR 1813 01 0000 1813
|
|
SA 01 0000 SA 1378 01 0000 1378
|
|
UH 01 0000 UH 1176 01 0000 1176
|
|
X 01 0000 X 1506 01 0000 1506
|
|
HED
|
|
1
|
|
1 SUB 3 PROCESS OP CODE
|
|
1
|
|
HED 3
|
|
SUBR3 STD EXITX STORE EXIT 0996 24 1196 1349
|
|
RAL 1954 1349 65 1954 1659
|
|
SRT 0004 IS OP 1659 30 0004 1719
|
|
NZE ILLOP BLANK 1719 45 1472 1013
|
|
SLT 0006 IS OP 1472 35 0006 1287
|
|
NZU NUM NUMERIC 1287 44 1341 1192
|
|
SRT 0002 1341 30 0002 1347
|
|
STL XXXX1 SEARCH 1347 20 1961 1464
|
|
SLO 8001 SYMBOLIC 1464 16 8001 1671
|
|
TLU C0001 OP TABLE 1671 84 1050 1705
|
|
ALO 1 8002 1705 15 1358 8002
|
|
8002 RAL 9997 NEXT IS 8002 65 9997 1451
|
|
NEXT SLO XXXX1 SYM OP 1451 16 1961 1665
|
|
SLT 0006 LEGAL 1665 35 0006 1579
|
|
NZU ILLOP 1579 44 1013 1234
|
|
SLT 0001 TEST FOR 1234 35 0001 1391
|
|
NZU PSEU PSEUDO OP 1391 44 1345 1296
|
|
SLT 0001 SNO STORE NUM 1296 35 0001 1703
|
|
SNO STL P0007 650 OP 1703 20 1983 1386
|
|
SRT 0004 GET OPTIM 1386 30 0004 1397
|
|
ALO 3 8002 CONSTANTS 1397 15 1650 8002
|
|
8002 LDD 9996 NEX 8002 69 9996 1399
|
|
NEX STD OPTIM EXITX 1399 24 1452 1196
|
|
1
|
|
NUM SLO 4 FORM 1192 16 1395 1449
|
|
SLT 0002 NUMERIC 1449 35 0002 1755
|
|
SLO 8002 OP 1755 16 8002 1863
|
|
SRT 0001 CODE 1863 30 0001 1769
|
|
ALO 8001 SNO 1769 15 8001 1703
|
|
1
|
|
ILLOP RAL P0010 ILLEGAL OP 1013 65 1986 1441
|
|
ALO 5 SET 8 1441 15 1244 1499
|
|
STL P0010 FOR BLANK 1499 20 1986 1289
|
|
LDD 6 NEX OP 1289 69 1242 1399
|
|
1
|
|
PSEU SLT 0003 PSEUDO 1345 35 0003 1753
|
|
ALO EXITX OP 1753 15 1196 1501
|
|
ALO 1IXXX 8002 1501 15 0992 8002
|
|
1
|
|
1 RAL 0000 NEXT CONSTANTS 1358 65 0000 1451
|
|
2 10 0000 0000 1700 10 0000 0000
|
|
3 LDD N0001 NEX 1650 69 0800 1399
|
|
4 90 9000 0000 1395 90 9000 0000
|
|
5 00 0000 0008 1244 00 0000 0008
|
|
6 55 0505 0999 1242 55 0505 0999
|
|
HED
|
|
1
|
|
1 SUB 4 WHAT IS ADDRESS
|
|
1
|
|
HED 4
|
|
SUBR4 STD EXITZ STORE EXIT 1213 24 1416 1819
|
|
STU XXXX1 STORE ADDR 1819 21 1961 1514
|
|
SRT 0008 IS C5 1514 30 0008 1533
|
|
NZU EXITZ BLANK 1533 44 1337 1416
|
|
STU XXXX2 SAVE C5 1337 21 1962 1715
|
|
RAU 8002 ARE LOW 4 1715 60 8002 1573
|
|
AUP 90XXX CHARACTERS 1573 10 1178 1583
|
|
BOV LOOP LOOP NUMERIC 1583 47 1436 1436
|
|
LOOP AUP H1 1436 10 1339 1443
|
|
BOV SYM 1443 47 1346 0998
|
|
SLT 0002 1346 35 0002 1803
|
|
NZU LOOP 1803 44 1436 1408
|
|
RAL XXXX2 LOW 4 NUM 1408 65 1962 1517
|
|
SLO 90XXX IS C5 1517 16 1178 1633
|
|
BMI SYM ALPHABETIC 1633 46 1486 0998
|
|
ALO 29XXX 1486 15 1189 1493
|
|
BMI SYM 1493 46 0998 1447
|
|
RAL 1IXXX REGIONAL 1447 65 0992 1497
|
|
AUP XXXX1 AEX 1497 10 1961 1765
|
|
AEX ALO EXITZ 1765 15 1416 1721
|
|
SLO 8002 8001 1721 16 8002 8001
|
|
SYM RAU XXXX1 HED SYMBOL 0998 60 1961 1815
|
|
LDD SUB15 1815 69 1168 1663
|
|
ALO 2IXXX STEP EXIT 1168 15 1771 1475
|
|
STU HSYMB AEX 1475 21 1230 1765
|
|
H1 10 0000 0000 1339 10 0000 0000
|
|
HSYMB 01 0000 HSYMB ERASEABLE 1230 01 0000 1230
|
|
HED
|
|
1
|
|
1 SUB 5 TEST ABSOLUTE ADDRE
|
|
1
|
|
HED 5
|
|
SUBR5 STD EXITZ STORE EXIT 1750 24 1416 1869
|
|
STL XXXX1 STORE A 1869 20 1961 1614
|
|
SLT 0004 1614 35 0004 1525
|
|
SLO 8002 1525 16 8002 1683
|
|
TLU R0001 TLU 1683 84 1200 1805
|
|
ALO GET 8002 RANGE 1805 15 1458 8002
|
|
8002 RAU 9972 X TABLE 8002 60 9972 1177
|
|
X SLT 0006 1177 35 0006 1491
|
|
SRT 0006 1491 30 0006 1855
|
|
AUP EXITZ 1855 10 1416 1821
|
|
ALO XXXX1 1821 15 1961 1865
|
|
SUP 8003 8001 1865 11 8003 8001
|
|
GET RAU 0000 X 1458 60 0000 1177
|
|
R0001 00 1999 0000 RANGE 1200 00 1999 0000
|
|
R0002 00 7999 0003 TABLE 1201 00 7999 0003
|
|
R0003 00 8003 0001 1202 00 8003 0001
|
|
R0004 00 8004 0003 1203 00 8004 0003
|
|
R0005 00 8007 0001 1204 00 8007 0001
|
|
R0006 00 8999 0003 1205 00 8999 0003
|
|
R0007 00 9059 0002 1206 00 9059 0002
|
|
R0008 99 9999 0003 1207 99 9999 0003
|
|
HED
|
|
1
|
|
1 SUB 6 SYMBOL TEST ROUTINE
|
|
1
|
|
HED 6
|
|
SUBR6 STD EXITZ STORE EXIT 1275 24 1416 1919
|
|
STU S STORE SYMB 1919 21 1224 1227
|
|
LDD SWOF SET SWITCH 1227 69 1280 1733
|
|
STD SW OFF 1733 24 1536 1389
|
|
MPY SC SCRAMBLE 1389 19 1292 1913
|
|
RAL 8002 SYMBOL 1913 65 8002 1871
|
|
SLT 0003 GIVING 1871 35 0003 1629
|
|
MPY CF LO 1629 19 1282 1853
|
|
SRT 0001 1853 30 0001 1709
|
|
SLT 0004 SET 1709 35 0004 1969
|
|
ALO L1P1 TEST 1969 15 1522 1277
|
|
STL LOP1 WORD 1277 20 1331 1284
|
|
SLO 1DXXX 1284 16 1020 1575
|
|
STL LO SLI SAVE LO 1575 20 1679 1332
|
|
SLI STL LI 8001 INIT LI 1332 20 1387 8001
|
|
8001 RAL 9990 A IS CONT OF 8001 65 9990 1445
|
|
A NZE UND LI ZERO 1445 45 1098 1549
|
|
SLO S IS CONT OF 1098 16 1224 1729
|
|
NZE SW DEF LI SYMB 1729 45 1536 1783
|
|
SW RAL LI OFF IS LI 1536 65 1387 1541
|
|
OFF SLO LMAX MAXIMUM 1541 16 1294 1599
|
|
NZE MAX 1599 45 1502 1903
|
|
ALO LMP1 SLI STEP LI 1502 15 1905 1332
|
|
ON SLO LO IS LI EQUA 1800 16 1679 1833
|
|
NZE SWSYM TO LO 1833 45 1586 1437
|
|
ALO LOP1 SLI STEP LI 1586 15 1331 1332
|
|
MAX LDD SWON SET 1903 69 1556 1759
|
|
STD SW SWITCH ON 1759 24 1536 1439
|
|
RAL L1 SLI ZERO LI 1439 65 1342 1332
|
|
1
|
|
UND RAL EXITZ UNDEFINED 1549 65 1416 1921
|
|
ALO 1IXXX STEP 1921 15 0992 1547
|
|
STL EXITZ EXIT 1547 20 1416 1270
|
|
RAL LI 1270 65 1387 1591
|
|
SLO L1 1591 16 1342 1597
|
|
STL LSYMB ASU 1597 20 1551 1604
|
|
1
|
|
DEF RAL LI DEFINED 1783 65 1387 1641
|
|
LDD ASU SUBR8 GET 1641 69 1604 1508
|
|
ASU AUP S EXITZ EQUIVALENT 1604 10 1224 1416
|
|
1
|
|
SWSYM HLT 0111 SYMOF S TAB FULL 1437 01 0111 1691
|
|
SYMOF LDD SYMON SET SW SYM 1691 69 1344 1647
|
|
STD SWSYM SYMON ON 1647 24 1437 1344
|
|
SYMON RAL EXITZ 1344 65 1416 1971
|
|
ALO 2IXXX 8002 1971 15 1771 8002
|
|
1
|
|
SWOF RAL LI OFF CONSTANTS 1280 65 1387 1541
|
|
SWON RAL LI ON 1556 65 1387 1800
|
|
SC 10 0100 1001 1292 10 0100 1001
|
|
CF 00 0000 0004 1282 00 0000 0004
|
|
L1 RAL 0000 A 1342 65 0000 1445
|
|
L1P1 RAL 0001 A 1522 65 0001 1445
|
|
LMAX RAL E0000 A 1294 65 0399 1445
|
|
LMP1 RAL E0001 A 1905 65 0400 1445
|
|
S 01 0000 S ERASABLE 1224 01 0000 1224
|
|
SW 01 0000 SW 1536 01 0000 1536
|
|
LO 01 0000 LO 1679 01 0000 1679
|
|
LI 01 0000 LI 1387 01 0000 1387
|
|
LSYMB 01 0000 LSYMB 1551 01 0000 1551
|
|
HED
|
|
1
|
|
1 SUB 7 STORE SYMBOL AND EQ
|
|
1
|
|
HED 7
|
|
SUBR7 STD EXITZ STORE EXIT 1279 24 1416 1320
|
|
LDD SS 1320 69 1623 1226
|
|
SDA XXXX2 8001 STORE 1226 22 1962 8001
|
|
8001 STU 9988 A SYMBOL 8001 21 9988 1741
|
|
A SUP 8001 1741 11 8001 1649
|
|
STL XXXX1 SAVE E 1649 20 1961 1664
|
|
SRT 0004 1664 30 0004 1625
|
|
DIV 2IXXX CALCULATE 1625 14 1771 1381
|
|
SLT 0004 LOCATION 1381 35 0004 1791
|
|
ALO C1 OF 1791 15 1394 1699
|
|
LDD C2 E 1699 69 1552 1606
|
|
SDA SEL AND 1606 22 1809 1462
|
|
LDD C3 STORE 1462 69 1915 1218
|
|
SDA SER 1218 22 1572 1675
|
|
STL OBEE 1675 20 1779 1382
|
|
SLO 8001 1382 16 8001 1489
|
|
ALO XXXX1 OBEE 1489 15 1961 1779
|
|
OBEE LDD 9986 B 1779 69 9986 1539
|
|
B NZU SER 1539 44 1572 1444
|
|
SLT 0004 SEL 1444 35 0004 1809
|
|
SS STU 9987 A CONSTANTS 1623 21 9987 1741
|
|
C1 LDD E0001 B 1394 69 0400 1539
|
|
C2 SDA 9985 EXITZ 1552 22 9985 1416
|
|
C3 SIA 9984 EXITZ 1915 23 9984 1416
|
|
OBEE 01 0000 OBEE ERASABLE 1779 01 0000 1779
|
|
SEL 01 0000 SEL 1809 01 0000 1809
|
|
SER 01 0000 SER 1572 01 0000 1572
|
|
HED
|
|
1
|
|
1 SUB 8 GIVEN SYM LOC GET EQU
|
|
1
|
|
HED 8
|
|
SUBR8 STD EXIT STORE EXIT 1508 24 1811 1714
|
|
LDD 8003 1714 69 8003 1370
|
|
SDA LSYMB STORE L 1370 22 1551 1654
|
|
RAL 8001 1654 65 8001 1861
|
|
DIV 2DXXX 1861 14 1764 1725
|
|
SLT 0004 1725 35 0004 1285
|
|
ALO E1 8002 1285 15 1188 8002
|
|
8002 LDD 9975 TR 8002 69 9975 1478
|
|
TR NZU LH 1478 44 1431 1432
|
|
RAM 8001 LR GET E RH 1431 67 8001 1589
|
|
LH RAM 8001 GET E LH 1432 67 8001 1639
|
|
SRT 0004 LR 1639 30 0004 1589
|
|
LR LDD 8003 1589 69 8003 1396
|
|
SIA EQUIV 1396 23 1223 1276
|
|
RAL LSYMB EXIT 1276 65 1551 1811
|
|
E1 LDD E0001 TR CONSTANT 1188 69 0400 1478
|
|
EXIT 01 0000 EXIT ERASEABLE 1811 01 0000 1811
|
|
EQUIV 01 0000 EQUIV 1223 01 0000 1223
|
|
HED
|
|
1
|
|
1 SUB 9 CALCULATE REG ADDRE
|
|
HED 9
|
|
SUBR9 STD EXITZ STORE EXIT 1174 24 1416 1420
|
|
SRT 0008 1420 30 0008 1689
|
|
RAL 8003 1689 65 8003 1697
|
|
SLT 0004 1697 35 0004 1558
|
|
ALO C 8002 IS 1558 15 1911 8002
|
|
8002 RAL 9991 NEX REGION 8002 65 9991 1495
|
|
NEX BDO ILL DEFINED 1495 90 1749 1850
|
|
SLT 0001 1850 35 0001 1608
|
|
RAL 8002 1608 65 8002 1617
|
|
SRT 0001 1617 30 0001 1673
|
|
LDD EXITZ 1673 69 1416 1470
|
|
BD6 L 1470 96 1723 1775
|
|
BD5 D I 1723 95 1326 1528
|
|
L ALO 1957 ALL 1775 15 1957 1512
|
|
D ALO 1958 ALL 1326 15 1958 1512
|
|
I ALO 1959 ALL 1528 15 1959 1512
|
|
ALL SLO 1IXXX 1512 16 0992 1747
|
|
BMI ILL EXITZ 1747 46 1749 1416
|
|
ILL RAL EXITZ UNDEFINED 1749 65 1416 1622
|
|
ALO 1IXXX 8002 OR ILLEG 1622 15 0992 8002
|
|
1
|
|
C RAL 0960 NEX CONSTANT 1911 65 0960 1495
|
|
HED
|
|
1 SUB 10 SET CC 8 AND PUNCH
|
|
1
|
|
SUB10 ALO P0010 1405 15 1986 1841
|
|
ALO 84TH 1841 15 1494 1799
|
|
STL P0010 1799 20 1986 1739
|
|
PCH P0001 8003 1739 71 1977 8003
|
|
1
|
|
84TH 00 0800 0000 CONSTANT 1494 00 0800 0000
|
|
1
|
|
1 SUB 11 FIND AND RESERVE B
|
|
1
|
|
HED 0
|
|
SUB11 LDD DRUMT TEST 1601 69 1212 1965
|
|
BDO SEX DRUM TAG 1965 90 1520 1620
|
|
STL EXIT IS ADR L 1520 20 1825 1578
|
|
BD6 DI 1578 96 1481 1883
|
|
RAL 8003 SSW L 1883 65 8003 1891
|
|
DI LDD F D OR I 1481 69 1334 1487
|
|
SDA XXXX1 SUB13 FIND OPTIM 1487 22 1961 1814
|
|
GDA SLT 0004 DYNAM ADR 1651 35 0004 1562
|
|
ALO 8002 1562 15 8002 1672
|
|
ALO 8002 SSW 1672 15 8002 1891
|
|
SSW LDD OFF SET SW OFF 1891 69 1544 1797
|
|
STD SW 1797 24 1701 1704
|
|
ALO A1P1 GET TABLE 1704 15 1658 1963
|
|
STL BP1 START ADDR 1963 20 1667 1670
|
|
SLO 1DXXX 1670 16 1020 1875
|
|
STL AO SAI SAVE AO 1875 20 1829 1482
|
|
SAI STL AI 8001 1482 20 1537 8001
|
|
8001 RAU 9975 TA IS LOCAT 8001 60 9975 1879
|
|
TA NZU YES SW AVAILABLE 1879 44 1933 1701
|
|
SW RAU AI SWOF 1701 60 1537 1941
|
|
SWOF SLO AMAX IS AI MAX 1941 16 1594 1849
|
|
NZE MAX 1849 45 1602 1754
|
|
ALO AMP1 SAI STEP AI 1602 15 1656 1482
|
|
SWON SLO AO IS AI EQUA 1751 16 1829 1384
|
|
NZE FULL TO AO 1384 45 1238 1789
|
|
ALO BP1 SAI STEP AI 1238 15 1667 1482
|
|
MAX LDD ON SET SW ON 1754 69 1708 1612
|
|
STD SW 1612 24 1701 1804
|
|
RAL A1 SAI SET AI TO 1804 65 1758 1482
|
|
1
|
|
FULL HLT 0222 DRUM PAKED 1789 01 0222 1543
|
|
LDD H9XXX SET DRUM 1543 69 1216 1720
|
|
STD DRUMT TAG TO 9 1720 24 1212 1466
|
|
RAL EXIT SEX STEP EXIT 1466 65 1825 1620
|
|
SEX ALO 1IXXX 8002 1620 15 0992 8002
|
|
1
|
|
YES SCT 0000 RESERVE 1933 36 0000 1706
|
|
SLT 0001 LOCATION 1706 35 0001 1864
|
|
SRT 0001 FOUND 1864 30 0001 1722
|
|
STL XXXX2 SAVE P 1722 20 1962 1516
|
|
SUP 8003 1516 11 8003 1773
|
|
SLT 0004 1773 35 0004 1434
|
|
AUP 8001 1434 10 8001 1392
|
|
ALO SRP 8002 1392 15 1545 8002
|
|
8002 SRT 0009 SCA NULIFY SCT 8002 30 0009 1772
|
|
SCA RAU 8003 1772 60 8003 1929
|
|
ALO AI 1929 15 1537 1442
|
|
LDD ST 1442 69 1595 1148
|
|
SDA ERAS 8001 1148 22 1801 8001
|
|
8001 STU 9972 CA 8001 21 9972 1925
|
|
CA SUP 8001 CALCULATE 1925 11 8001 1484
|
|
SLO A1 LOCATION 1484 16 1758 1914
|
|
SRT 0004 FOUND 1914 30 0004 1975
|
|
DIV 4I 1975 14 1628 1839
|
|
MPY 500 1839 19 1492 1964
|
|
ALO 8003 1964 15 8003 1822
|
|
SUP 8001 1822 11 8001 1330
|
|
AUP XXXX2 1330 10 1962 1717
|
|
MPY 50 1717 19 1770 1542
|
|
ALO 8003 1542 15 8003 1899
|
|
SUP 8001 EXIT 1899 11 8001 1825
|
|
F 00 0000 GDA CONSTANTS 1334 00 0000 1651
|
|
OFF RAL AI SWOF 1544 65 1537 1941
|
|
A1P1 RAU A0002 TA 1658 60 0601 1879
|
|
AMAX RAU A0200 TA 1594 60 0799 1879
|
|
AMP1 RAU A0201 TA 1656 60 0800 1879
|
|
ON RAL AI SWON 1708 65 1537 1751
|
|
A1 RAU A0001 TA 1758 60 0600 1879
|
|
SRP SRT 0000 SCA 1545 30 0000 1772
|
|
ST STU 9999 CA 1595 21 9999 1925
|
|
4I 00 0000 0004 1628 00 0000 0004
|
|
500 00 0000 0500 1492 00 0000 0500
|
|
50 00 0000 0050 1770 00 0000 0050
|
|
FON RAL 8001 STEPX 1851 65 8001 1859
|
|
AO 01 0000 AO ERASABLE 1829 01 0000 1829
|
|
AI 01 0000 AI 1537 01 0000 1537
|
|
BP1 01 0000 BP1 1667 01 0000 1667
|
|
EXIT 01 0000 EXIT 1825 01 0000 1825
|
|
HED
|
|
1
|
|
1 SUB 12 SET BLANK L 8
|
|
1
|
|
SUB12 ALO P0010 0991 15 1986 1592
|
|
ALO 87TH 1592 15 1645 1949
|
|
STL P0010 8003 1949 20 1986 8003
|
|
1
|
|
87TH 00 0000 8000 CONSTANT 1645 00 0000 8000
|
|
1
|
|
1 SUB 13 CAL OPTIMUM DYNAMI
|
|
1
|
|
HED Y
|
|
SUB13 STD EXITZ STORE EXIT 1814 24 1416 1820
|
|
BD5 I D OR I 1820 95 1823 1376
|
|
RAL OPTIM D 1823 65 1452 1808
|
|
SLT 0001 1808 35 0001 1616
|
|
SLO 8002 1616 16 8002 1426
|
|
SLT 0001 1426 35 0001 1534
|
|
ALO 8001 1534 15 8001 1642
|
|
SRT 0003 SEO 1642 30 0003 1901
|
|
I RAL OPTIM I 1376 65 1452 1858
|
|
BD2 SHOP SHIFT TEST 1858 92 1662 1666
|
|
BD3 XAS XAS TEST 1666 93 1870 1872
|
|
SLT 0002 SEO 1872 35 0002 1901
|
|
SEO STL XXXX1 SAVE EV OD 1901 20 1961 1716
|
|
RAL OPREG IS BASE 1716 65 1920 1476
|
|
DIV 2IXXX EVEN OR OD 1476 14 1771 1531
|
|
RAU 8003 1531 60 8003 1889
|
|
ALO XXXX1 1889 15 1961 1766
|
|
NZU RB 1766 44 1970 1922
|
|
SLT 0002 1970 35 0002 1327
|
|
RAL 8002 RB 1327 65 8002 1922
|
|
RB SRT 0008 GET BASE 1922 30 0008 1692
|
|
ALO OPREG PLUS DELTA 1692 15 1920 1526
|
|
DIV 50 MOD 50 1526 14 1380 1742
|
|
RAL 8003 EXITZ 1742 65 8003 1416
|
|
1
|
|
SHOP RAL P0007 TLU UNITS 1662 65 1983 1587
|
|
SRT 0004 DIGIT OF 1587 30 0004 1847
|
|
SLT 0009 D ADDRESS 1847 35 0009 1767
|
|
SLO 8002 1767 16 8002 1576
|
|
TLU U0001 1576 84 1250 1756
|
|
ALO GU 8002 1756 15 1909 8002
|
|
8002 RAL 9969 TOP 8002 65 9969 1873
|
|
TOP SLT 0002 1873 35 0002 1430
|
|
LDD OPTIM IS OP SRD 1430 69 1452 1806
|
|
BD3 SEO 1806 93 1660 1901
|
|
SLT 0004 SEO SRD 1660 35 0004 1901
|
|
1
|
|
XAS RAL P0007 TLU 1870 65 1983 1637
|
|
SRT 0004 D ADDRESS 1637 30 0004 1897
|
|
SLT 0006 1897 35 0006 1712
|
|
SLO 8002 1712 16 8002 1972
|
|
TLU I0001 1972 84 1300 1856
|
|
ALO GXD 8002 1856 15 1710 8002
|
|
8002 RAL 9968 NXT 8002 65 9968 1923
|
|
NXT SLT 0004 SEO 1923 35 0004 1901
|
|
1
|
|
U0001 00 2322 2524 SHIFT 1250 00 2322 2524
|
|
U0002 10 0706 0706 OPTIMIZING 1251 10 0706 0706
|
|
U0003 20 0706 0908 TABLE 1252 20 0706 0908
|
|
U0004 30 0908 1110 1253 30 0908 1110
|
|
U0005 40 1110 1312 1254 40 1110 1312
|
|
U0006 50 1312 1514 1255 50 1312 1514
|
|
U0007 60 1514 1716 1256 60 1514 1716
|
|
U0008 70 1716 1918 1257 70 1716 1918
|
|
U0009 80 1918 2120 1258 80 1918 2120
|
|
U0010 90 2120 2322 1259 90 2120 2322
|
|
1
|
|
I0001 19 9906 0600 X ACCUM 1300 19 9906 0600
|
|
I0002 79 9907 0700 ADD SUB 1301 79 9907 0700
|
|
I0003 80 0008 0800 TABLE 1302 80 0008 0800
|
|
I0004 80 0106 0600 1303 80 0106 0600
|
|
I0005 80 0209 0800 1304 80 0209 0800
|
|
I0006 80 0308 0900 1305 80 0308 0900
|
|
I0007 90 5908 0800 1306 90 5908 0800
|
|
I0008 99 9909 0900 1307 99 9909 0900
|
|
1
|
|
GU RAL 0000 TOP CONSTANTS 1909 65 0000 1873
|
|
GXD RAL 0000 NXT 1710 65 0000 1923
|
|
50 00 0000 0050 1380 00 0000 0050
|
|
HED
|
|
1
|
|
1 SUB 14 PUNCH AVAIL TABLE
|
|
1
|
|
HED P
|
|
SUB14 STD EXITX STORE EXIT 1403 24 1196 1652
|
|
LDD 85TH SET PUNCH 1652 69 1906 1760
|
|
STD P0010 8 1760 24 1986 1939
|
|
LDD A1 INIT A1 1939 69 1792 1695
|
|
STD XXXX1 1695 24 1961 1816
|
|
RAL RS1 LOOP INIT RS 1816 65 1973 1377
|
|
LOOP AUP C1 8001 1377 10 1480 8001
|
|
8001 STL 9999 NEXT SET LOCAT 8001 20 9999 1702
|
|
NEXT SUP TW1 1702 11 1908 1866
|
|
NZU SRS 1866 44 1274 1324
|
|
AUP C2 1274 10 1427 1581
|
|
ALO C3 8003 1581 15 1584 8003
|
|
SRS STL XXXX2 SAVE RS 1324 20 1962 1916
|
|
RAU C4 1916 60 1374 1530
|
|
ALO XXXX1 8002 1530 15 1961 8002
|
|
8002 LDD 9998 8003 STORE 8002 69 9998 8003
|
|
8003 STD 9997 TP AV TABLE 8003 24 9997 1752
|
|
TP SUP TW2 1752 11 1810 1966
|
|
NZU PUN 1966 44 1424 1474
|
|
AUP C5 1424 10 1477 1631
|
|
ALO C6 8002 1631 15 1634 8002
|
|
PUN PCH P0001 1474 71 1977 1527
|
|
SLO AIM IS AI MAX 1527 16 1580 1335
|
|
NZE EXITX 1335 45 1288 1196
|
|
ALO AMP1 STEP AI 1288 15 1842 1947
|
|
STL XXXX1 1947 20 1961 1817
|
|
RAL XXXX2 1817 65 1962 1867
|
|
SLO C7 LOOP 1867 16 1524 1377
|
|
1
|
|
C1 STL P0001 NEXT CONSTANTS 1480 20 1977 1702
|
|
C2 STL P0009 NEXT 1427 20 1985 1702
|
|
C3 00 0500 0500 1584 00 0500 0500
|
|
C4 STD P0002 TP 1374 24 1978 1752
|
|
C5 STD P0010 TP 1477 24 1986 1752
|
|
C6 00 0001 0000 1634 00 0001 0000
|
|
C7 00 1499 1499 1524 00 1499 1499
|
|
TW1 STL P0007 NEXT 1908 20 1983 1702
|
|
TW2 STD P0008 TP 1810 24 1984 1752
|
|
85TH 00 0080 0000 1906 00 0080 0000
|
|
A1 LDD A0001 8003 1792 69 0600 8003
|
|
RS1 00 0000 0450 1973 00 0000 0450
|
|
AIM LDD A0200 8003 1580 69 0799 8003
|
|
AMP1 LDD A0201 8003 1842 69 0800 8003
|
|
HED
|
|
1
|
|
1 SUB 15 HEADING ROUTINE
|
|
1
|
|
HED H
|
|
SUB15 STD EXITY SAVE EXIT 1663 24 1456 1860
|
|
LDD 8003 IS C1 1860 69 8003 1917
|
|
SLT 0008 BLANK 1917 35 0008 1385
|
|
NZU DH 1385 44 1989 1240
|
|
RAU 8001 HEAD 1240 60 8001 1997
|
|
AUP 0000H EXITY 1997 10 1329 1456
|
|
DH RAU 8001 EXITY DONT HEAD 1989 60 8001 1456
|
|
HED
|
|
1
|
|
1 SUB 16 INITIALIZATION
|
|
1
|
|
SUB16 STD EXITY STORE EXIT 1353 24 1456 1910
|
|
RAL I1 1910 65 1967 1574
|
|
STU P0009 ZERO CARD 1574 21 1985 1338
|
|
STD 0000H ZERO HEAD 1338 24 1329 1532
|
|
LDD SUBR1 ZERO SYM T 1532 69 1435 1600
|
|
RAL I2 MAKE DRUM 1435 65 1388 1593
|
|
AUP I3 AVAILABLE 1593 10 1446 1802
|
|
LDD SUBR1 1802 69 1762 1600
|
|
LDD H8XXX SET DRUM 1762 69 1406 1812
|
|
STD DRUMT TAG TO 8 1812 24 1212 1268
|
|
LDD I4 SET SWSYM 1268 69 1624 1577
|
|
STD SWSYM OFF 1577 24 1437 1290
|
|
RAL I5 UNDEFINE 1290 65 1643 1198
|
|
AUP H8XXX REGIONS 1198 10 1406 1862
|
|
LDD EXITY SUBR1 1862 69 1456 1600
|
|
1
|
|
I1 00 S0001 E0200 CONSTANTS 1967 00 0000 0599
|
|
I2 00 A0001 A0200 1388 00 0600 0799
|
|
I3 11 1111 1111 1446 11 1111 1111
|
|
I4 01 0111 SYMOF 1624 01 0111 1691
|
|
I5 00 1021 1049 1643 00 1021 1049
|
|
PACOF BD6 FINDI FINDL 1852 96 1912 1318
|
|
1
|
|
1 SUB 17 CALC 800X EQUIVALE
|
|
1
|
|
HED X
|
|
SB17D LDD DEQ DI D EQUIV 1902 69 1368 1674
|
|
SB17I LDD IEQ DI I EQUIV 1854 69 1418 1674
|
|
DI STD XXXX1 SAVE TAG 1674 24 1961 1468
|
|
STU EXITY STORE EXIT 1468 21 1456 1518
|
|
STL XXXX2 STORE 800X 1518 20 1962 1618
|
|
LDD XXXX1 SUB13 GET OPTIM 1618 69 1961 1814
|
|
SDA STL XXXX1 DYNAM ADDR 1904 20 1961 1668
|
|
DIV 2IXXX IS DY ADDR 1668 14 1771 1681
|
|
NZU OD EV EVEN OR OD 1681 44 1485 1636
|
|
OD RAL 8002 EO 1485 65 1438 1693
|
|
EV RAL 8003 EO 1636 65 1340 1693
|
|
EO SLO XXXX2 1693 16 1962 1718
|
|
NZE ADD1 1718 45 1724 1774
|
|
RAL XXXX1 EXITY 1724 65 1961 1456
|
|
ADD1 RAL XXXX1 1774 65 1961 1768
|
|
ALO 1IXXX EXITY 1768 15 0992 1456
|
|
1
|
|
DEQ 00 0008 SDA CONSTANTS 1368 00 0008 1904
|
|
IEQ 00 0009 SDA 1418 00 0009 1904
|
|
8002 00 0000 8002 1438 00 0000 8002
|
|
8003 00 0000 8003 1340 00 0000 8003
|
|
HED
|
|
1
|
|
1 SUB 18 INDEX ADDRESS
|
|
1
|
|
HED W
|
|
INDEX STD EXITY STORE EXIT 1818 24 1456 1868
|
|
STL XXXX1 STORE ADDR 1868 20 1961 1918
|
|
RAU 1954 1918 60 1954 1968
|
|
SLT 0007 1968 35 0007 1535
|
|
LDD EXITY 1535 69 1456 1824
|
|
BD5 D D OR I 1824 95 1627 1630
|
|
SLT 0002 D 1630 35 0002 1627
|
|
D SRT 0009 1627 30 0009 1248
|
|
MPY 2000I 1248 19 1014 1585
|
|
LDD EXITY 1585 69 1456 1874
|
|
BD6 DS DRUM 0 COR 1874 96 1677 1680
|
|
SRT 0001 DS CORE 1680 30 0001 1677
|
|
DS ALO XXXX1 EXITY 1677 15 1961 1456
|
|
1
|
|
EXITY 01 0000 EXITY ERASABELE 1456 01 0000 1456
|
|
HED
|
|
1
|
|
1 SUB 19 PROCESS LOCATI
|
|
1
|
|
REG D0923 0923 PROC L
|
|
REG G0925 0925
|
|
REG J0928 0928
|
|
REG K0931 0931
|
|
REG L0933 0933
|
|
1
|
|
HED A
|
|
PROCL STD EXITX STORE EXIT 0969 24 1196 1924
|
|
RAU 1951 IS L BLANK 1924 60 1951 1974
|
|
NZU NB 1974 44 1727 1678
|
|
LDD DRUMT BLANK TEST 1678 69 1212 1626
|
|
BDO B D0002 DRUM TAG 1626 90 1730 0924
|
|
B RAL OPREG SETL BLANK 1730 65 1920 1676
|
|
SETL SLT 0004 SET L 1676 35 0004 1687
|
|
LDD P0008 TO DR 1687 69 1984 1737
|
|
SDA P0008 EXITX 1737 22 1984 1196
|
|
NB LDD G SUBR4 WHAT IS L 1727 69 1780 1213
|
|
G0001 RAL 1957 K0001 ABSOLUTE 0925 65 1957 0931
|
|
G0002 LDD K SUBR9 REGIONAL 0926 69 1830 1174
|
|
G0003 LDD J SUBR6 SYMBOLIC 0927 69 1880 1275
|
|
K0001 LDD L SUBR5 TEST RANGE 0931 69 1684 1750
|
|
K0002 RAU 87TH X REG ERROR 0932 60 1635 1390
|
|
X AUP P0010 SET BLANK 1390 10 1986 1892
|
|
STU P0010 SETL L8 1892 21 1986 1676
|
|
L0001 STL OPREG SETL DRUM ADDR 0933 20 1920 1676
|
|
L0002 AUP 86TH 800X 800X 0934 10 1787 1942
|
|
L0003 LDD ORCEQ 89X CORE ADDR 0935 69 1488 1743
|
|
L0004 RAU 87TH X OTHER 0936 60 1635 1390
|
|
800X LDD ORXEQ 89X 1942 69 1745 1743
|
|
89X STD OPREG X 1743 24 1920 1390
|
|
J0001 RAL EQUIV K0001 SYM DEFIND 0928 65 1223 0931
|
|
J0002 RAL D SUB11 SYM UNDEF 0929 65 1582 1601
|
|
J0003 RAU 87TH X S TAB FULL 0930 60 1635 1390
|
|
D0001 STL OPREG SS S EQ FOUND 0923 20 1920 1726
|
|
D0002 RAU 87TH X DRUM PAKED 0924 60 1635 1390
|
|
SS AUP HSYMB STORE 1726 10 1230 1685
|
|
ALO LSYMB SYMBOL 1685 15 1551 1776
|
|
LDD B SUBR7 1776 69 1730 1279
|
|
1
|
|
G 00 0000 G0001 CONSTANTS 1780 00 0000 0925
|
|
K 00 0090 K0001 1830 00 0090 0931
|
|
J 00 0000 J0001 1880 00 0000 0928
|
|
L 00 0000 L0001 1684 00 0000 0933
|
|
D 00 0090 D0001 1582 00 0090 0923
|
|
86TH 00 0008 0000 1787 00 0008 0000
|
|
87TH 00 0000 8000 1635 00 0000 8000
|
|
EXITX 01 0000 EXITX ERASEABLE 1196 01 0000 1196
|
|
HED
|
|
1
|
|
1 SUB 20 PROCESS DATA ADDRE
|
|
1
|
|
REG D0937 0937 PROC D
|
|
REG F0939 0939
|
|
REG G0941 0941
|
|
REG J0944 0944
|
|
REG K0946 0946
|
|
REG L0949 0949
|
|
1
|
|
HED B
|
|
PROCD STD EXITX STORE EXIT 0972 24 1196 1826
|
|
RAU 1952 IS D BLANK 1826 60 1952 1876
|
|
NZU NB 1876 44 1930 1731
|
|
RAL D SUB11 FIND 1731 65 1734 1601
|
|
D0001 STL ORBAL L0004 OPTIMUM 0937 20 1793 0952
|
|
D0002 RAU 88TH X DRUM PAKED 0938 60 1843 1298
|
|
BT LDD OPTIM IS OP 1926 69 1452 1976
|
|
BD1 EXITX A BRANCH 1976 91 1196 1781
|
|
STL OPREG EXITX D TO OR 1781 20 1920 1196
|
|
X AUP P0010 SET BLANK 1298 10 1986 1893
|
|
STU P0010 EXITX 1893 21 1986 1196
|
|
NB LDD G SUBR4 WHAT IS D 1930 69 1784 1213
|
|
G0001 RAL 1958 J0001 ABSOLUTE 0941 65 1958 0944
|
|
G0002 LDD J SUBR9 REGIONAL 0942 69 1795 1174
|
|
G0003 LDD K SUBR6 SYMBOLIC 0943 69 1496 1275
|
|
J0001 LDD L SUBR5 TEST RANGE 0944 69 1348 1750
|
|
J0002 RAU 88TH X REG ERROR 0945 60 1843 1298
|
|
L0001 LDD AXD INDEX DRUM ADDR 0949 69 1777 1818
|
|
L0002 SLT 0004 800X 800X 0950 35 0004 1827
|
|
L0003 LDD AXC INDEX CORE ADDR 0951 69 1877 1818
|
|
L0004 SLT 0004 SD OTHER 0952 35 0004 1927
|
|
800X LDD P0007 SET 800X D 1827 69 1983 1686
|
|
SDA P0007 1686 22 1983 1736
|
|
SRT 0004 1736 30 0004 1398
|
|
AUP XEQ SB17D GET 800X E 1398 10 1728 1902
|
|
SCD SLT 0004 SET CORE D 1778 35 0004 1440
|
|
LDD P0007 1440 69 1983 1786
|
|
SDA P0007 1786 22 1983 1836
|
|
SRT 0004 1836 30 0004 1448
|
|
LDD CEQ SUB13 GET CORE E 1448 69 1828 1814
|
|
SCEQ STL ORCEQ BT SAVE CORE 1878 20 1488 1926
|
|
K0001 RAL EQUIV J0001 SYM DEFIND 0946 65 1223 0944
|
|
K0002 RAL F SUB11 SYM UNDEF 0947 65 1928 1601
|
|
K0003 RAU 88TH X S TAB FULL 0948 60 1843 1298
|
|
F0001 STL EQ SS SAVE EQ 0939 20 1943 1546
|
|
F0002 RAU 88TH X DRUM PAKED 0940 60 1843 1298
|
|
SS AUP HSYMB STORE 1546 10 1230 1735
|
|
ALO LSYMB SYMBOL 1735 15 1551 1831
|
|
LDD SUBR7 1831 69 1834 1279
|
|
RAL EQ L0004 1834 65 1943 0952
|
|
SD LDD P0007 SET D ADDR 1927 69 1983 1886
|
|
SDA P0007 1886 22 1983 1936
|
|
SRT 0004 BT 1936 30 0004 1926
|
|
D 00 0088 D0001 CONSTANTS 1734 00 0088 0937
|
|
G 00 0000 G0001 1784 00 0000 0941
|
|
J 00 0088 J0001 1795 00 0088 0944
|
|
L 00 0000 L0001 1348 00 0000 0949
|
|
F 00 0088 F0001 1928 00 0088 0939
|
|
K 00 0000 K0001 1496 00 0000 0946
|
|
AXD 00 0088 D0001 1777 00 0088 0937
|
|
AXC 00 0098 SCD 1877 00 0098 1778
|
|
XEQ STL ORXEQ BT 1728 20 1745 1926
|
|
CEQ 00 0008 SCEQ 1828 00 0008 1878
|
|
88TH 00 0000 0800 1843 00 0000 0800
|
|
EQ 01 0000 EQ ERASABLE 1943 01 0000 1943
|
|
HED
|
|
1
|
|
1 SUB 21 PROCESS INSTR ADDR
|
|
1
|
|
REG D0953 0953 PROC I
|
|
REG F0955 0955
|
|
REG G0958 0958
|
|
REG J0960 0960
|
|
REG K0962 0962
|
|
REG L0965 0965
|
|
1
|
|
HED C
|
|
PROCI STD EXITX STORE EXIT 1453 24 1196 1881
|
|
RAU 1953 IS I BLANK 1881 60 1953 1931
|
|
NZU NB 1931 44 1785 1837
|
|
RAU 1952 IS D BLANK 1837 60 1952 1632
|
|
NZU DNB 1632 44 1835 1887
|
|
LDD DRUMT D I BLANK 1887 69 1212 1682
|
|
BDO G0002 TEST DRUM 1682 90 1937 0959
|
|
RAL ORBAL L0004 TAG 1937 65 1793 0968
|
|
DNB RAL D SUB11 FIND BEST 1835 65 1538 1601
|
|
D0001 STL ORBAL L0004 FOUND 0953 20 1793 0968
|
|
D0002 RAL P0010 X DRUM PAKED 0954 65 1986 1993
|
|
X ALO 89TH 1993 15 1596 1732
|
|
STL P0010 EXITX 1732 20 1986 1196
|
|
NB LDD F SUBR4 WHAT IS I 1785 69 1588 1213
|
|
F0001 RAL 1959 J0001 ABSOLUTE 0955 65 1959 0960
|
|
F0002 LDD J SUBR9 REGIONAL 0956 69 1782 1174
|
|
F0003 LDD K SUBR6 SYMBOLIC 0957 69 1832 1275
|
|
J0001 LDD L SUBR5 TEST RANGE 0960 69 1882 1750
|
|
J0002 RAL P0010 X REG ERROR 0961 65 1986 1993
|
|
L0001 LDD AXD INDEX DRUM ADDR 0965 69 1932 1818
|
|
L0002 LDD P0007 800X 800X 0966 69 1983 1987
|
|
L0003 LDD AXC INDEX CORE ADDR 0967 69 1884 1818
|
|
L0004 LDD P0007 OTHER 0968 69 1983 1638
|
|
SIA P0007 MOR 1638 23 1983 1688
|
|
800X SIA P0007 1987 23 1983 1738
|
|
AUP XEQ SB17I GET 800X E 1738 10 1644 1854
|
|
90XX LDD P0007 SET CORE 1934 69 1983 1788
|
|
SIA P0007 ADDRESS 1788 23 1983 1838
|
|
LDD CEQ SUB13 GET CORE E 1838 69 1694 1814
|
|
K0001 RAL EQUIV J0001 SYM DEFIND 0962 65 1223 0960
|
|
K0002 RAL G SUB11 SYM UNDEF 0963 65 1885 1601
|
|
K0003 RAL P0010 X S TAB FULL 0964 65 1986 1993
|
|
G0001 LDD P0007 SI FOUND BEST 0958 69 1983 1888
|
|
G0002 RAL P0010 X DRUM PAKED 0959 65 1986 1993
|
|
SI SIA P0007 1888 23 1983 1938
|
|
AUP HSYMB STORE 1938 10 1230 1935
|
|
ALO LSYMB SYMBOL 1935 15 1551 1988
|
|
LDD MOR SUBR7 1988 69 1688 1279
|
|
MOR LDD ORBAL SET OR 1688 69 1793 1646
|
|
STD OPREG EXITX TO ORB 1646 24 1920 1196
|
|
SCEQ STL ORCEQ MOR SAVE CORE 1490 20 1488 1688
|
|
1
|
|
D 00 0089 D0001 CONSTANTS 1538 00 0089 0953
|
|
F 00 0000 F0001 1588 00 0000 0955
|
|
J 00 0089 J0001 1782 00 0089 0960
|
|
K 00 0000 K0001 1832 00 0000 0962
|
|
L 00 0000 L0001 1882 00 0000 0965
|
|
G 00 0089 G0001 1885 00 0089 0958
|
|
89TH 00 0000 0080 1596 00 0000 0080
|
|
AXD 00 0089 L0004 1932 00 0089 0968
|
|
AXC 00 0099 90XX 1884 00 0099 1934
|
|
XEQ STL ORXEQ MOR 1644 20 1745 1688
|
|
CEQ 00 0009 SCEQ 1694 00 0009 1490
|
|
HED
|
|
1
|
|
1IXXX 00 0000 0001 CONSTANTS 0992 00 0000 0001
|
|
1DXXX 00 0001 0000 1020 00 0001 0000
|
|
2IXXX 00 0000 0002 1771 00 0000 0002
|
|
2DXXX 00 0002 0000 1764 00 0002 0000
|
|
H8XXX 80 0000 0000 1406 80 0000 0000
|
|
H9XXX 90 0000 0000 1216 90 0000 0000
|
|
90XXX 00 0000 0090 1178 00 0000 0090
|
|
29XXX 00 0000 0029 1189 00 0000 0029
|
|
2000I 00 0000 2000 CONSTANT 1014 00 0000 2000
|
|
TORG 00 0000 T0001 0990 00 0000 1990
|
|
1
|
|
PAT
|
|
0000 0000000000 0450 0500 0000000000 0950 1000 0000000000 1450 1500 0000000000 1950
|
|
0001 0000000000 0451 0501 0000000000 0951 1001 0000000000 1451 1501 0000000000 1951
|
|
0002 0000000000 0452 0502 0000000000 0952 1002 0000000000 1452 1502 0000000000 1952
|
|
0003 0000000000 0453 0503 0000000000 0953 1003 0000000000 1453 1503 0000000000 1953
|
|
0004 0000000000 0454 0504 0000000000 0954 1004 0000000000 1454 1504 0000000000 1954
|
|
0005 0000000000 0455 0505 0000000000 0955 1005 0000000000 1455 1505 0000000000 1955
|
|
0006 0000000000 0456 0506 0000000000 0956 1006 0000000000 1456 1506 0000000000 1956
|
|
0007 0000000000 0457 0507 0000000000 0957 1007 0000000000 1457 1507 0000000000 1957
|
|
0008 0000000000 0458 0508 0000000000 0958 1008 0000000000 1458 1508 0000000000 1958
|
|
0009 0000000000 0459 0509 0000000000 0959 1009 0000000000 1459 1509 0000000000 1959
|
|
0010 0000000000 0460 0510 0000000000 0960 1010 0000000000 1460 1510 0000000000 1960
|
|
0011 0000000000 0461 0511 0000000000 0961 1011 0000000000 1461 1511 0000000000 1961
|
|
0012 0000000000 0462 0512 0000000000 0962 1012 0000000000 1462 1512 0000000000 1962
|
|
0013 0000000000 0463 0513 0000000000 0963 1013 0000000000 1463 1513 0000000000 1963
|
|
0014 0000000000 0464 0514 0000000000 0964 1014 0000000000 1464 1514 0000000000 1964
|
|
0015 0000000000 0465 0515 0000000000 0965 1015 0000000000 1465 1515 0000000000 1965
|
|
0016 0000000000 0466 0516 0000000000 0966 1016 0000000000 1466 1516 0000000000 1966
|
|
0017 0000000000 0467 0517 0000000000 0967 1017 0000000000 1467 1517 0000000000 1967
|
|
0018 0000000000 0468 0518 0000000000 0968 1018 0000000000 1468 1518 0000000000 1968
|
|
0019 0000000000 0469 0519 0000000000 0969 1019 0000000000 1469 1519 0000000000 1969
|
|
0020 0000000000 0470 0520 0000000000 0970 1020 0000000000 1470 1520 0000000000 1970
|
|
0021 0000000000 0471 0521 0000000000 0971 1021 0000000000 1471 1521 0000000000 1971
|
|
0022 0000000000 0472 0522 0000000000 0972 1022 0000000000 1472 1522 0000000000 1972
|
|
0023 0000000000 0473 0523 0000000000 0973 1023 0000000000 1473 1523 0000000000 1973
|
|
0024 0000000000 0474 0524 0000000000 0974 1024 0000000000 1474 1524 0000000000 1974
|
|
0025 0000000000 0475 0525 0000000000 0975 1025 0000000000 1475 1525 0000000000 1975
|
|
0026 0000000000 0476 0526 0000000000 0976 1026 0000000000 1476 1526 0000000000 1976
|
|
0027 0000000000 0477 0527 0000000000 0977 1027 0000000000 1477 1527 0000000000 1977
|
|
0028 0000000000 0478 0528 0000000000 0978 1028 0000000000 1478 1528 0000000000 1978
|
|
0029 0000000000 0479 0529 0000000000 0979 1029 0000000000 1479 1529 0000000000 1979
|
|
0030 0000000000 0480 0530 0000000000 0980 1030 0000000000 1480 1530 0000000000 1980
|
|
0031 0000000000 0481 0531 0000000000 0981 1031 0000000000 1481 1531 0000000000 1981
|
|
0032 0000000000 0482 0532 0000000000 0982 1032 0000000000 1482 1532 0000000000 1982
|
|
0033 0000000000 0483 0533 0000000000 0983 1033 0000000000 1483 1533 0000000000 1983
|
|
0034 0000000000 0484 0534 0000000000 0984 1034 0000000000 1484 1534 0000000000 1984
|
|
0035 0000000000 0485 0535 0000000000 0985 1035 0000000000 1485 1535 0000000000 1985
|
|
0036 0000000000 0486 0536 0000000000 0986 1036 0000000000 1486 1536 0000000000 1986
|
|
0037 0000000000 0487 0537 0000000000 0987 1037 0000000000 1487 1537 0000000000 1987
|
|
0038 0000000000 0488 0538 0000000000 0988 1038 0000000000 1488 1538 0000000000 1988
|
|
0039 0000000000 0489 0539 0000000000 0989 1039 0000000000 1489 1539 0000000000 1989
|
|
0040 0000000000 0490 0540 0000000000 0990 1040 0000000000 1490 1540 1111111110 1990
|
|
0041 0000000000 0491 0541 0000000000 0991 1041 0000000000 1491 1541 0000000000 1991
|
|
0042 0000000000 0492 0542 0000000000 0992 1042 0000000000 1492 1542 0000000000 1992
|
|
0043 0000000000 0493 0543 0000000000 0993 1043 0000000000 1493 1543 0000000000 1993
|
|
0044 0000000000 0494 0544 0000000000 0994 1044 0000000000 1494 1544 0000111111 1994
|
|
0045 0000000000 0495 0545 0000000000 0995 1045 0000000000 1495 1545 0000001111 1995
|
|
0046 0000000000 0496 0546 0000000000 0996 1046 0000000000 1496 1546 0001111111 1996
|
|
0047 0000000000 0497 0547 0000000000 0997 1047 0000000000 1497 1547 0000000000 1997
|
|
0048 0000000000 0498 0548 0000000000 0998 1048 0000000001 1498 1548 1111111110 1998
|
|
0049 0000000000 0499 0549 0000000000 0999 1049 0000000000 1499 1549 0000000000 1999
|