Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
1235 lines (1233 sloc) 83.1 KB
CHECK SUM 7278780947
LOAD
________________________________________________________________________
200 SHELL-ASSEMBLER-M2.SHELL 00 00 00
0311 LAST 0120 MTW 8000
INVALID OPERATION PAIR
0376 FEED CAD NU3 SET NU TO 3
INVALID OPERATION PAIR
0709 .V BA
INVALID OPERATION PAIR
0
0001 TAG 7
0002 ORG 1200
0003 MCTBL EQU 1000
0004 ASIGN EQU 3000
0005 FBDS EQU 0000
0006 FBWS EQU 0520
0007 IMAGE EQU 0320
0008 SAVE EQU 0500
0009 PRCOD EQU 4000 ASSIGN TAPE RECORD VARIABLES
0010 REMRK EQU 4001
0011 SINC EQU 4007
0012 SADR EQU 4008
0013 STAG EQU 4009
0014 SPARE EQU 4011
0015 SOPR EQU 4010
0016 SLOC EQU 4012
0017 INSTR EQU 4013
0018 ABLOC EQU 4014
0019 NUMB EQU 4015
0020 FLAG EQU 4016
0021 ABSPR EQU 4017
0022 NDEX2 EQU 4018
0023 NDEX1 EQU 4019
0024 SEQ EQU 6000 ASSIGN PROBLEM VARIABLES
0025 QUANT EQU 6001
0026 CTR EQU 6002
0027 CLTLY EQU 6003
0028 FDTLY EQU 6004
0029 SNTLY EQU 6005
0030 RPTLY EQU 6006
0031 TEMP EQU 6007
0032 NMBR EQU 5013
0033 CLINC EQU 5014
0034 MCTAL EQU 5015
0035 SUM EQU 5016
0036 SRL EQU 5017
0037 RTNPT EQU 5018
0038 ENDPT EQU 5019
0039
0040 1200 0 0000 64 1657 MOV2 CAD X NU1 SET NU SWITCH TO ONE
0041 1201 0 0000 02 1442 STC X NU
0042 1202 0 0000 64 1470 CAD X THET1 SET THETA SWITCH TO ONE
0043 1203 0 0000 02 1417 STC X THETA
0044 1204 0 0000 36 8000 BT6 8000
0045 1205 0 0000 26 0500 BF6 SAVE
0046 1206 0 0000 35 0500 BT5 SAVE ZERO QAB 5
0047 1207 0 0000 64 7213 CAD &Z SET CTR TO EIGHT
0048 1208 0 0000 02 6002 STC CTR
0049 1209 0 0000 74 7214 AD &Z &0001 SET FMB SELECT DIGITS TO BE
0050 1210 0 0000 12 5000 ST 5000
0051 1211 0 0000 12 5012 ST 5012
0052 1212 0 0000 30 1215 CUB &G
0053 1213 0 0000 00 0008 .Z NUM 0000000008
0054 1214 0 0000 00 0001 NUM 0000000001
0055 1215 0 0110 40 8000 .G 0110 MTR 8000 READ A COMMAND
0056 1216 0 0000 28 7215 CC -0001
0057 1217 0 0000 72 4000 DAHM SB PRCOD DIVIDE COMMANDS ACCORDING TO
0058 1218 1 0000 20 7219 - CU &Z PROCESS CODE
0059 1219 0 0000 30 1228 .Z CUB &A PROCESS CODE IS ZERO
0060 1220 0 0000 30 1453 CUB SUE ONE
0061 1221 0 0000 30 1425 CUB CRY TWO
0062 1222 0 0000 08 1222 STOP THREE
0063 1223 0 0000 30 1515 CUB CUB FOUR
0064 1224 0 0000 30 1457 CUB &C FIVE
0065 1225 0 0000 30 1425 CUB CRY SIX
0066 1226 0 0000 30 1536 CUB FEED SEVEN
0067 1227 0 0000 30 1471 CUB LAST EIGHT
0068 1228 0 0000 64 7246 .A CAD &Z -0001
0069 1229 0 0000 02 1281 STC X &I
0070 1230 0 0000 64 4019 CAD NDEX1 TEST FOR ABSOLUTE ADDRESS
0071 1231 0 0000 73 7231 OSGD
0072 1232 0 0000 28 7237 CC &X
0073 1233 0 0000 75 7245 SU &Z -0002 IS ABSOLUTE ADDRESS 9999
0074 1234 0 0000 04 7236 CNZ &0002
0075 1235 0 0000 30 1417 CUB THETA YES
0076 1236 0 0000 30 1252 CUB &P
0077 1237 0 0000 72 4019 .X SB NDEX1 GO GET ASSIGNMENT
0078 1238 1 0000 64 3000 - CAD X ASIGN
0079 1239 0 0000 74 7244 AD &Z -0003 HAS THE SYMBOL BEEN ASSIGNED
0080 1240 0 0000 38 1247 CCB &Z
0081 1241 0 0000 75 7244 SU &Z -0003 YES. RESTORE IT
0082 1242 0 0000 12 4019 ST NDEX1
0083 1243 0 0000 30 1252 CUB &P
0084 1244 0 0000 00 0001 NUM 0000000001
0085 1245 0 0000 00 9999 NUM 0000009999
0086 1246 0 0000 74 6010 AD TEMP &0003
0087 1247 0 0050 21 2205 .Z 0050 CUR X MARK W.E.M. UNDEFINED OPERAND
0088 1248 0 0000 64 7251 CAD &Z
0089 1249 0 0000 12 4019 ST NDEX1
0090 1250 0 0000 30 1417 CUB THETA
0091 1251 0 0000 00 9999 .Z NUM 0000009999
0092 1252 0 0000 64 4007 .P CAD SINC
0093 1253 0 0000 04 7255 CNZ &0002 IS SINC BLANK
0094 1254 0 0000 30 1291 CUB &E YES
0095 1255 0 0000 63 7268 EX &Z NO. GET SIGN OF INCREMENT
0096 1256 0 0000 75 7269 SU &W IS IT &
0097 1257 0 0000 04 7259 CNZ &0002
0098 1258 0 0000 20 7264 CU &Z -0004
0099 1259 0 0000 75 7269 SU &W NO. IS IT -
0100 1260 0 0000 04 7267 CNZ &V
0101 1261 0 0000 64 1281 CAD X &I YES
0102 1262 0 0000 74 7270 AD &X
0103 1263 0 0000 02 1281 STC X &I
0104 1264 0 0000 64 4007 CAD SINC CONVERT SINC TO NUMERICAL FORM
0105 1265 0 0000 13 0008 SR 0008 AND TEST FOR VALID NUMBER
0106 1266 0 0000 30 1271 CUB &R
0107 1267 0 0000 30 1289 .V CUB &Y
0108 1268 0 1100 00 0000 .Z NUM 1100000000
0109 1269 0 1000 00 0000 .W NUM 1000000000
0110 1270 0 0000 01 0000 .X NUM 0000010000
0111 1271 0 0000 02 6010 .R STC TEMP &0003 CLEAR A AND TEMP&0003
0112 1272 0 0000 72 7287 SB &Z
0113 1273 0 0000 02 6010 STC TEMP &0003
0114 1274 0 0000 14 0001 SL 0001
0115 1275 0 0000 04 7284 CNZ &I &0003
0116 1276 0 0000 74 6010 AD TEMP &0003
0117 1277 0 0000 14 0001 SL 0001
0118 1278 0 0000 22 7273 DB -R &0002 IS THE CONVERSION COMPLETE
0119 1279 0 0000 02 6010 STC TEMP &0003 YES
0120 1280 0 0000 64 4019 CAD NDEX1 INCREMENT THE ADDRESS
0121 1281 0 0000 74 6010 .I AD TEMP &0003
0122 1282 0 0000 12 4019 ST NDEX1
0123 1283 0 0000 30 1291 CUB &E
0124 1284 0 0000 75 7288 SU &Z &0001
0125 1285 0 0000 04 7289 CNZ &Y
0126 1286 0 0000 20 7276 CU -I -0005
0127 1287 0 0000 00 0003 .Z NUM 0000000003
0128 1288 0 0000 00 0008 NUM 0000000008
0129 1289 0 0060 21 2205 .Y 0060 CUR X MARK W.E.M. INVALID INCREMENT
0130 1290 0 0000 30 1291 CUB &E
0131 1291 0 0000 64 7310 .E CAD &Z COMPARE NDEX1 WITH 4000
0132 1292 0 0000 75 4019 SU NDEX1
0133 1293 0 0000 73 7293 OSGD
0134 1294 0 0000 28 7298 CC &0004
0135 1295 0 0000 64 4009 CAD STAG IS TAG ZERO
0136 1296 0 0000 13 0006 SR 0006
0137 1297 0 0000 04 7299 CNZ &0002
0138 1298 0 0000 30 1417 CUB THETA
0139 1299 0 0000 02 6010 STC TEMP &0003
0140 1300 0 0000 64 4019 CAD NDEX1 MAKE Q.A.B. ADDRESS
0141 1301 0 0000 14 0007 SL 0007
0142 1302 0 0000 74 7309 AD &Y
0143 1303 0 0000 28 7305 CC &0002
0144 1304 0 0000 75 7309 SU &Y
0145 1305 0 0000 13 0007 SR 0007
0146 1306 0 0000 74 6010 AD TEMP &0003
0147 1307 0 0000 12 4019 ST NDEX1
0148 1308 0 0000 30 1417 CUB THETA
0149 1309 0 1000 00 0000 .Y NUM 1000000000
0150 1310 0 0000 00 4000 .Z NUM 0000004000
0151 1311 0 0000 64 4013 CNVRT CAD INSTR CONVERT CARDATRON CODE
0152 1312 0 0000 13 0010 SR 0010 TO FLEXOWRITER CODE
0153 1313 0 0000 72 7325 SB &F
0154 1314 0 0000 02 4013 STC INSTR
0155 1315 0 0000 14 0002 MOAN SL 0002
0156 1316 0 0000 74 7326 AD &I
0157 1317 0 0000 02 7318 STC &0001
0158 1318 0 0000 08 1318 STOP
0159 1319 0 0000 13 0002 SR 0002
0160 1320 0 0000 64 4013 CAD INSTR
0161 1321 0 0000 14 0002 SL 0002
0162 1322 0 0000 02 4013 STC INSTR
0163 1323 0 0000 22 7315 DB MOAN
0164 1324 0 0000 30 1425 CUB CRY
0165 1325 0 0000 00 0004 .F NUM 0000000004
0166 1326 0 0000 64 1327 .I CAD X TABLE
0167 1327 0 0000 00 0034 TABLE NUM 34 BLANK
0168 1328 0 0000 00 0000 NUM
0169 1329 0 0000 00 0000 NUM
0170 1330 0 0000 00 0032 NUM 32 .
0171 1331 0 0000 00 0033 NUM 33 ¤ APOSTROPHE
0172 1332 0 0000 00 0000 NUM
0173 1333 0 0000 00 0000 NUM
0174 1334 0 0000 00 0000 NUM
0175 1335 0 0000 00 0000 NUM
0176 1336 0 0000 00 0000 NUM
0177 1337 0 0000 00 0024 NUM 24
0178 1338 0 0000 00 0000 NUM
0179 1339 0 0000 00 0000 NUM
0180 1340 0 0000 00 0026 NUM 26 $ SEMICOLON
0181 1341 0 0000 00 0007 NUM 7 ¤ STOP
0182 1342 0 0000 00 0000 NUM
0183 1343 0 0000 00 0000 NUM
0184 1344 0 0000 00 0000 NUM
0185 1345 0 0000 00 0000 NUM
0186 1346 0 0000 00 0000 NUM
0187 1347 0 0000 00 0025 NUM 25
0188 1348 0 0000 00 0001 NUM 1 / BACK SPACE
0189 1349 0 0000 00 0000 NUM
0190 1350 0 0000 00 0031 NUM 31 ,
0191 1351 0 0000 00 0004 NUM 4 ¤ TABULATE
0192 1352 0 0000 00 0000 NUM
0193 1353 0 0000 00 0000 NUM
0194 1354 0 0000 00 0000 NUM
0195 1355 0 0000 00 0000 NUM
0196 1356 0 0000 00 0000 NUM
0197 1357 0 0000 00 0000 NUM
0198 1358 0 0000 00 0000 NUM
0199 1359 0 0000 00 0000 NUM
0200 1360 0 0000 00 0005 NUM 5 # CARRIAGE RETURN
0201 1361 0 0000 00 0035 NUM 35 ¤ COLOR SHIFT
0202 1362 0 0000 00 0000 NUM
0203 1363 0 0000 00 0000 NUM
0204 1364 0 0000 00 0000 NUM
0205 1365 0 0000 00 0000 NUM
0206 1366 0 0000 00 0000 NUM
0207 1367 0 0000 00 0030 NUM 30 PLUS ZERO UPPER CASE
0208 1368 0 0000 00 0020 NUM 20 A
0209 1369 0 0000 00 0061 NUM 61 B
0210 1370 0 0000 00 0062 NUM 62 C
0211 1371 0 0000 00 0063 NUM 63 D
0212 1372 0 0000 00 0064 NUM 64 E
0213 1373 0 0000 00 0065 NUM 65 F
0214 1374 0 0000 00 0066 NUM 66 G
0215 1375 0 0000 00 0067 NUM 67 H
0216 1376 0 0000 00 0070 NUM 70 I
0217 1377 0 0000 00 0027 NUM 27 MINUS ZERO LOWER CASE
0218 1378 0 0000 00 0071 NUM 71 J
0219 1379 0 0000 00 0072 NUM 72 K
0220 1380 0 0000 00 0036 NUM 36 L
0221 1381 0 0000 00 0073 NUM 73 M
0222 1382 0 0000 00 0074 NUM 74 N
0223 1383 0 0000 00 0075 NUM 75 O
0224 1384 0 0000 00 0076 NUM 76 P
0225 1385 0 0000 00 0077 NUM 77 Q
0226 1386 0 0000 00 0021 NUM 21 R
0227 1387 0 0000 00 0000 NUM
0228 1388 0 0000 00 0000 NUM
0229 1389 0 0000 00 0022 NUM 22 S
0230 1390 0 0000 00 0023 NUM 23 T
0231 1391 0 0000 00 0052 NUM 52 U
0232 1392 0 0000 00 0053 NUM 53 V
0233 1393 0 0000 00 0054 NUM 54 W
0234 1394 0 0000 00 0055 NUM 55 X
0235 1395 0 0000 00 0056 NUM 56 Y
0236 1396 0 0000 00 0057 NUM 57 Z
0237 1397 0 0000 00 0000 NUM
0238 1398 0 0000 00 0000 NUM
0239 1399 0 0000 00 0000 NUM
0240 1400 0 0000 00 0000 NUM
0241 1401 0 0000 00 0000 NUM
0242 1402 0 0000 00 0000 NUM
0243 1403 0 0000 00 0000 NUM
0244 1404 0 0000 00 0000 NUM
0245 1405 0 0000 00 0000 NUM
0246 1406 0 0000 00 0000 NUM
0247 1407 0 0000 00 0040 NUM 40
0248 1408 0 0000 00 0041 NUM 41 1
0249 1409 0 0000 00 0042 NUM 42 2
0250 1410 0 0000 00 0043 NUM 43 3
0251 1411 0 0000 00 0044 NUM 44 4
0252 1412 0 0000 00 0045 NUM 45 5
0253 1413 0 0000 00 0046 NUM 46 6
0254 1414 0 0000 00 0047 NUM 47 7
0255 1415 0 0000 00 0050 NUM 50 8
0256 1416 0 0000 00 0051 NUM 51 9
0257 1417 0 0000 66 4017 THETA CADA ABSPR MAKE INSTRUCTION
0258 1418 0 0000 74 4019 AD NDEX1
0259 1419 0 0000 74 4013 AD INSTR
0260 1420 0 0000 13 0010 SR 0010
0261 1421 0 0000 64 4017 CAD ABSPR
0262 1422 0 0000 14 0010 SL 0010
0263 1423 0 0000 02 4013 STC INSTR
0264 1424 0 0000 30 1425 CUB CRY
0265 1425 0 0000 72 6002 CRY SB CTR SET UP TO PUNCH FIVE PER CARD
0266 1426 0 0000 64 4014 CAD ABLOC
0267 1427 1 0000 12 5002 - ST 5002
0268 1428 0 0000 64 4013 CAD INSTR
0269 1429 1 0000 12 5001 - ST 5001
0270 1430 0 0000 22 7432 DB &0002
0271 1431 0 0000 30 1443 CUB NU &0001
0272 1432 0 0000 22 7433 DB &0001
0273 1433 0 0000 11 7433 BA
0274 1434 0 0000 12 6002 ST CTR
0275 1435 0 4030 54 4001 .F 4030 CDW 4001 PRINT A LINE
0276 1436 0 0120 50 8000 0120 MTW 8000 WRITE A BLOCK
0277 1437 0 0000 28 7436 CC -0001
0278 1438 0 0000 64 5016 CAD SUM FORM CHECK SUM
0279 1439 0 0000 76 4013 ADA INSTR
0280 1440 0 0000 28 7441 CC &0001
0281 1441 0 0000 02 5016 STC SUM
0282 1442 0 0000 30 1215 NU CUB -G
0283 1443 0 0020 54 5000 0020 CDW 5000 PUNCH A CARD
0284 1444 0 0000 64 7452 CAD &Z
0285 1445 0 0000 12 6002 ST CTR
0286 1446 0 0000 72 5017 SB SRL
0287 1447 0 0000 32 7447 IB
0288 1448 0 0000 11 7448 BA
0289 1449 0 0000 12 5011 ST 5011
0290 1450 0 0000 12 5017 ST SRL
0291 1451 0 0000 30 1435 CUB -F
0292 1452 0 0000 00 0008 .Z NUM 0000000008
0293 1453 0 4230 54 4000 SUE 4230 CDW 4000 PRINT PSEUDO-OPERATION
0294 1454 0 0120 50 8000 0120 MTW 8000
0295 1455 0 0000 28 7454 CC -0001
0296 1456 0 0000 30 1215 CUB -G
0297 1457 0 0000 64 7460 .C CAD THET2 SET THETA SWITCH TO TWO
0298 1458 0 0000 02 1417 STC X THETA
0299 1459 0 0000 30 1228 CUB -A TRANSLATE OPERAND
0300 1460 0 0000 30 1461 THET2 CUB &D
0301 1461 0 0000 64 4019 .D CAD NDEX1
0302 1462 0 0000 72 4018 SB NDEX2
0303 1463 1 0000 12 3000 - ST X ASIGN
0304 1464 0 0230 54 4000 0230 CDW 4000
0305 1465 0 0120 50 8000 0120 MTW 8000
0306 1466 0 0000 28 7465 CC -0001
0307 1467 0 0000 64 7470 CAD THET1 RESET THETA SWITCH TO ONE
0308 1468 0 0000 12 1417 ST X THETA
0309 1469 0 0000 30 1215 CUB -G
0310 1470 0 0000 66 4017 THET1 CADA ABSPR
X 0311 1471 0 0120 50 8000 LAST 0120 MTW 8000
0312 1472 0 0000 28 7471 CC -0001
0313 1473 0 0000 07 0500 PTWF 0500 WRITE CHECK SUM
0314 1474 0 0000 07 0500 PTWF 0500
0315 1475 0 0000 64 7482 CAD &Z
0316 1476 0 0000 03 0410 PTW 0410
0317 1477 0 0000 64 7483 CAD &Z &0001
0318 1478 0 0000 03 0410 PTW 0410
0319 1479 0 0000 64 5016 CAD SUM
0320 1480 0 0000 03 0310 PTW 0310
0321 1481 0 0000 30 1484 CUB SOB
0322 1482 0 4348 45 4352 .Z FLX CHECK
0323 1483 0 0062 64 5400 FLX SUM
0324 1484 0 0000 64 6002 SOB CAD CTR
0325 1485 0 0000 75 7499 SU &Z
0326 1486 0 0000 04 1513 CNZ X &Y
0327 1487 0 0010 52 0000 0010 MTRW 0000 REWIND DATA READERS
0328 1488 0 0000 28 7487 CC -0001
0329 1489 0 0020 52 0000 0020 MTRW 0000
0330 1490 0 0000 28 7489 CC -0001
0331 1491 0 0000 36 8000 BT6 8000
0332 1492 0 0830 58 6000 0830 CDWF 6000
0333 1493 0 0220 58 6000 0220 CDWF 6000
0334 1494 0 1830 54 6000 1830 CDW 6000 EJECT TWO PAGES ON PRINTER
0335 1495 0 1830 54 6000 1830 CDW 6000
0336 1496 0 0220 54 6000 0220 CDW 6000 EJECT LAST TWO CARDS
0337 1497 0 0220 54 6000 0220 CDW 6000
0338 1498 0 0000 30 1500 CUB &0002
0339 1499 0 0000 00 0008 .Z NUM 0000000008
0340 1500 0 0000 07 0500 PTWF 0500
0341 1501 0 0000 64 7507 CAD &X
0342 1502 0 0000 03 0410 PTW 0410
0343 1503 0 0000 13 0010 SR 0010
0344 1504 0 0000 10 7504 DAD LOAD, NON-ZERO--DO NOT LOAD
0345 1505 0 0000 04 7508 CNZ &0003
0346 1506 0 0000 30 2307 CUB TART
0347 1507 0 5356 41 4400 .X FLX LOAD
0348 1508 0 8900 42 0000 8900 MTS 0000 HALT PROCEDURE
0349 1509 0 0000 28 7508 CC -0001
0350 1510 0 1500 40 3700 1500 MTR 3700
0351 1511 0 0000 28 7510 CC -0001
0352 1512 0 0010 44 6000 0010 CDR 6000
0353 1513 0 0020 54 5000 .Y 0020 CDW 5000 PUNCH LAST CARD
0354 1514 0 0000 30 1487 CUB SOB &0003
0355 1515 0 0000 72 5015 CUB SB MCTAL
0356 1516 0 0000 32 7516 IB INCREMENT MACRO TALLY
0357 1517 1 0000 64 0999 - CAD X MCTBL-0001 GET LOCATION OF MACRO INST.
0358 1518 0 0000 13 0004 SR 0004
0359 1519 0 0000 04 7516 CNZ -0003 IS IT A LOCATION
0360 1520 0 0000 14 0004 SL 0004
0361 1521 0 0000 74 4013 AD INSTR FORM CUB INSTRUCTION
0362 1522 0 0000 02 4013 STC INSTR
0363 1523 0 0000 11 7523 BA
0364 1524 0 0000 02 5015 STC MCTAL
0365 1525 0 0000 64 7528 CAD THET3 SET THETA SWITCH TO THREE
0366 1526 0 0000 02 1417 STC X THETA
0367 1527 0 0000 30 1228 CUB -A EVALUATE THE OPERAND
0368 1528 0 0000 30 1529 THET3 CUB THET3&0001
0369 1529 0 0000 64 4019 CAD NDEX1
0370 1530 0 0000 72 4018 SB NDEX2
0371 1531 1 0000 02 3000 - STC X ASIGN
0372 1532 0 0000 64 7535 CAD &0003 RESET THETA SWITCH
0373 1533 0 0000 02 1417 STC X THETA
0374 1534 0 0000 30 1425 CUB CRY
0375 1535 0 0000 66 4017 CADA ABSPR
X 0376 1536 0 0000 64 7548 FEED CAD NU3 SET NU TO 3
0377 1537 0 0000 02 1442 STC X NU
0378 1538 0 0000 64 4015 CAD NUMB
0379 1539 0 0000 02 5013 STC NMBR
0380 1540 0 0000 02 6001 STC QUANT ZERO QUANT
0381 1541 0 0000 64 7549 CAD &A
0382 1542 0 0000 12 1921 ST X CROTH-0001
0383 1543 0 0000 02 1977 STC X MALO -0003
0384 1544 0 0000 64 7547 CAD SIG1 SET SIGMA TO ONE
0385 1545 0 0000 02 2139 STC X SIGMA
0386 1546 0 0000 30 1550 CUB &B
0387 1547 0 0000 30 2141 SIG1 CUB OMEGA
0388 1548 0 0000 30 1640 NU3 CUB &Z
0389 1549 3 3333 33 3330 .A NUM 3 3333333330
0390 1550 0 0000 02 6014 .B STC TEMP &0007 ZERO TEMP&0007
0391 1551 0 0000 02 6004 STC FDTLY
0392 1552 0 0000 02 6005 STC SNTLY
0393 1553 0 0000 02 6003 STC CLTLY
0394 1554 0 0000 64 7568 CAD &D SET QUANT CLEAR
0395 1555 0 0000 12 6009 ST TEMP &0002
0396 1556 0 0000 02 6010 STC TEMP &0003
0397 1557 0 0000 64 7567 CAD &E
0398 1558 0 0000 02 6011 STC TEMP &0004
0399 1559 0 0000 64 4014 CAD ABLOC
0400 1560 0 0000 02 6000 STC SEQ
0401 1561 0 0000 02 6012 STC TEMP &0005 ZERO TEMP&0005
0402 1562 0 0000 72 4019 SB NDEX1 SET PSI FROM INDEX 1
0403 1563 1 0000 64 1596 - CAD X PSI1
0404 1564 0 0000 02 1595 STC X PSI
0405 1565 0 0000 02 6008 .B STC TEMP & 1 SET L TO 0
0406 1566 0 0000 30 1569 CUB &G
0407 1567 0 0000 30 1573 .E CUB KICK
0408 1568 0 0000 02 6001 .D STC QUANT
0409 1569 0 0000 72 6008 .G SB TEMP & 1
0410 1570 1 0000 24 0320 - BF4 IMAGE PRESERVE QAB 4
0411 1571 0 0000 64 7584 CAD &C SET J TO 5
0412 1572 0 0000 02 6013 STC TEMP &0006 TEMP &0006 CONTAINS J
0413 1573 0 0000 64 7585 KICK CAD &E PUT TWO DIGITS IN THE
0414 1574 0 0000 75 6004 SU FDTLY A REGISTER
0415 1575 0 0000 73 7575 OSGD
0416 1576 0 0000 28 1586 CC X &F IS FDTLY TOO LARGE
0417 1577 0 0000 72 6013 SB TEMP &0006 NO
0418 1578 1 0000 64 4001 - CAD REMRK
0419 1579 0 0000 04 7582 CNZ &D IS REMRK BLANK
0420 1580 0 0000 22 7578 DB -0002 YES
0421 1581 0 0000 30 1599 CUB &A
0422 1582 0 0000 33 7582 .D CR
0423 1583 0 0000 30 1588 CUB &G
0424 1584 0 0000 00 0005 .C NUM 0000000005
0425 1585 0 0000 00 0316 .E NUM 0000000316
0426 1586 0 0000 21 2219 .F 0000 CUR X GOOF WRITE FORMAT BAND TOO LONG
0427 1587 0 0000 30 1980 CUB MALO
0428 1588 0 0000 14 0002 .G SL 0002
0429 1589 1 0000 02 4001 - STC REMRK
0430 1590 0 0000 11 7590 BA
0431 1591 0 0000 02 6013 STC TEMP &0006
0432 1592 0 0000 14 0010 SL 0010 EXAMINE NEXT TWO DIGITS
0433 1593 0 0000 04 7595 CNZ PSI ARE THEY ZERO
0434 1594 0 0000 30 1578 CUB KICK &0005 YES
0435 1595 0 0000 08 1595 PSI STOP NO
0436 1596 0 0000 30 1658 PSI1 CUB RFBG
0437 1597 0 0000 30 2000 PSI2 CUB PFBG
0438 1598 0 0000 30 2004 PSI3 CUB WFBG
0439 1599 0 0110 40 8000 .A 0110 MTR 8000 READ A BLOCK OF TAPE
0440 1600 0 0000 28 7599 CC -0001
0441 1601 0 0000 64 4000 CAD PRCOD
0442 1602 0 0000 75 7611 SU &D
0443 1603 0 0000 04 7607 CNZ &E IS PROCESS CODE 3
0444 1604 0 0000 64 6008 CAD TEMP &0001 YES
0445 1605 0 0000 74 7610 AD &F INCREASE L BY 20
0446 1606 0 0000 30 1565 CUB -B
0447 1607 0 0000 64 7611 .E CAD &D GO TO PERIOD ROUTINE
0448 1608 0 0000 24 0500 BF4 SAVE
0449 1609 0 0000 20 1595 CU X PSI
0450 1610 0 0000 00 0020 .F NUM 0000000020
0451 1611 0 0000 00 0003 .D NUM 0000000003
0452 1612 0 0000 02 6007 JOIN STC TEMP
0453 1613 0 0000 02 6007 STC TEMP SET LL TO 0
0454 1614 0 0000 02 6009 STC TEMP &0002 SET I TO 0
0455 1615 0 0000 64 6007 .C CAD TEMP
0456 1616 0 0000 75 6008 SU TEMP &0001
0457 1617 0 0000 73 7617 OSGD
0458 1618 0 0000 38 1625 CCB &D IS LL GREATER THAN L
0459 1619 0 0000 02 7619 STC
0460 1620 0 0000 72 7624 SB &0004
0461 1621 1 0000 02 4001 - STC 4001
0462 1622 0 0000 22 7621 DB -0001
0463 1623 0 0000 30 1627 CUB &E
0464 1624 0 0000 00 0015 NUM 0000000015
0465 1625 0 0000 72 6007 .D SB TEMP NO
0466 1626 1 0000 34 0320 - BT4 IMAGE
0467 1627 0 0000 72 6009 .E SB TEMP & 2
0468 1628 1 0000 64 0520 - CAD X FBWS WRITE OUT GENERATED
0469 1629 0 0000 02 4013 STC INSTR FORMAT BAND
0470 1630 0 0000 64 6000 CAD SEQ
0471 1631 0 0000 12 4014 ST ABLOC
0472 1632 0 0000 74 7639 AD &F INCREASE SEQ BY 1
0473 1633 0 0000 02 6000 STC SEQ
0474 1634 0 0000 64 5013 CAD NMBR
0475 1635 0 0000 12 4015 ST NUMB
0476 1636 0 0000 74 7639 AD &F
0477 1637 0 0000 02 5013 STC NMBR
0478 1638 0 0000 30 1425 CUB CRY
0479 1639 0 0000 00 0001 .F NUM 0000000001
0480 1640 0 0000 64 6009 .Z CAD TEMP &0002 NU 3
0481 1641 0 0000 74 7656 AD &D INCREASE I BY 1
0482 1642 0 0000 12 6009 ST TEMP &0002
0483 1643 0 0000 75 7655 SU &E
0484 1644 0 0000 73 7644 OSGD
0485 1645 0 0000 28 7650 CC &F IS I LESS THAN 29
0486 1646 0 0000 34 0500 BT4 SAVE NO
0487 1647 0 0000 64 7657 CAD NU1 SE NU TO 1
0488 1648 0 0000 02 1442 STC X NU
0489 1649 0 0000 30 1217 CUB DAHM
0490 1650 0 0000 64 6007 .F CAD TEMP INCREASE LL BY 20
0491 1651 0 0000 74 7654 AD &G
0492 1652 0 0000 02 6007 STC TEMP
0493 1653 0 0000 30 1615 CUB -C
0494 1654 0 0000 00 0020 .G NUM 0000000020
0495 1655 0 0000 00 0028 .E NUM 0000000028
0496 1656 0 0000 00 0001 .D NUM 0000000001
0497 1657 0 0000 30 1215 NU1 CUB DAHM -0002
0498 1658 0 0000 12 6007 RFBG ST TEMP THIS PROGRAM ASSUMES THAT
0499 1659 0 0000 13 0001 SR 0001 TWO FORMAT BAND SPECIFIL
0500 1660 0 0000 75 7671 SU &X CATION DIGITS ARE IN
0501 1661 0 0000 04 7668 CNZ &T L.O. POSITION OF A R.
0502 1662 0 0000 64 6001 CAD QUANT AT START
0503 1663 0 0000 14 0001 SL 0001
0504 1664 0 0000 12 6001 ST QUANT TO GET MORE SUCH
0505 1665 0 0000 64 7670 CAD &A
0506 1666 0 0000 02 1997 STC X TODOS
0507 1667 0 0000 30 1573 CUB KICK DIGITS I CUB TO KICK
0508 1668 0 0000 72 7671 .T SB &X
0509 1669 0 0000 30 1672 CUB &S
0510 1670 0 0000 30 1890 .A CUB BUENO
0511 1671 0 0000 00 0008 .X NUM 0000000008
0512 1672 1 0000 64 7680 .S - CAD TABL1 TABLE SEARCH
0513 1673 0 0000 13 0008 SR 0008
0514 1674 0 0000 75 6007 SU TEMP
0515 1675 0 0000 04 7677 CNZ &R
0516 1676 1 0000 20 7680 - CU TABL1
0517 1677 0 0000 22 7672 .R DB -S
0518 1678 0 0020 21 2219 0020 CUR X GOOF IF NOT IN TABLE, W. E. M.
0519 1679 0 0000 30 1980 CUB MALO INVALID CHARACTER
0520 1680 0 0300 30 1883 TABL1 0300 CUB ENDI TABLE DOUBLE STORED WITH
0521 1681 0 0400 30 1818 0400 CUB LOZNG BRANCH COMMANDS
0522 1682 0 1000 30 1689 1000 CUB PLUS
0523 1683 0 4100 30 1700 4100 CUB AAAA
0524 1684 0 4200 30 1791 4200 CUB BBBBI
0525 1685 0 6900 30 1722 6900 CUB ZZZZI
0526 1686 0 5500 30 1761 5500 CUB NNNNI
0527 1687 0 5700 30 1739 5700 CUB PPPPI
0528 1688 0 6700 30 1749 6700 CUB XXXXX
0529 1689 0 0000 64 6005 PLUS CAD SNTLY IF SNTLY NOT ELEVEN
0530 1690 0 0000 04 7692 CNZ &0002
0531 1691 0 0000 30 1573 CUB KICK
0532 1692 0 0000 75 7699 SU &E W. E. M. WRONG NUMBER
0533 1693 0 0000 04 7697 CNZ &F OF DIGITS
0534 1694 0 0000 02 7699 STC &E
0535 1695 0 0000 12 6005 ST SNTLY
0536 1696 0 0000 30 1573 CUB KICK
0537 1697 0 0030 21 2219 .F 0030 CUR X GOOF
0538 1698 0 0000 30 1980 CUB MALO
0539 1699 0 0000 00 0011 .E NUM 0000000011
0540 1700 0 0000 72 6004 AAAA SB FDTLY FORMAT DIGITS 11
0541 1701 0 0000 64 7718 CAD &A
0542 1702 1 0000 12 0000 - ST X FBDS
0543 1703 0 0000 32 7703 IB
0544 1704 1 0000 12 0000 - ST X FBDS
0545 1705 0 0000 74 6003 AD CLTLY INCREASE CLTLY BY 1 AND
0546 1706 0 0000 12 6003 ST CLTLY SNTLY BY 2
0547 1707 0 0000 64 6005 CAD SNTLY
0548 1708 0 0000 74 7718 AD &A
0549 1709 0 0000 74 7718 AD &A
0550 1710 0 0000 12 6005 ST SNTLY
0551 1711 0 0000 32 7711 IB
0552 1712 0 0000 64 6001 CAD QUANT
0553 1713 0 0000 75 7718 SU &A DECREASE QUANT BY 1
0554 1714 0 0000 12 6001 ST QUANT
0555 1715 0 0000 73 7715 OSGD IS QUANT LESS THAN 1
0556 1716 0 0000 38 1719 CCB &B YES
0557 1717 0 0000 20 7701 CU AAAA &0001 NO
0558 1718 0 0000 00 0001 .A NUM 0000000001
0559 1719 0 0000 11 7719 .B BA TEMP&0002 HOLDS STC QUANT
0560 1720 0 0000 02 6004 STC FDTLY TEMP&0003 HOLDS STC QUANT
0561 1721 0 0000 20 6009 CU TEMP &0002 TEMP&0004 HOLDS CUB KICK
0562 1722 0 0000 72 6004 ZZZZI SB FDTLY FORMAT DIGIT 0
0563 1723 0 0000 64 7738 CAD &A
0564 1724 0 0000 13 0001 SR 0001
0565 1725 1 0000 02 0000 - STC X FBDS
0566 1726 0 0000 14 0001 SL 0001
0567 1727 0 0000 74 6005 AD SNTLY INCREASE SNTLY BY 1
0568 1728 0 0000 12 6005 ST SNTLY
0569 1729 0 0000 32 7729 IB
0570 1730 0 0000 64 6001 CAD QUANT
0571 1731 0 0000 75 7738 SU &A DECREASE QUANT BY 1
0572 1732 0 0000 12 6001 ST QUANT
0573 1733 0 0000 73 7725 OSGD ZZZZI&0003 IS QUANT LESS THAN 1
0574 1734 0 0000 28 7723 CC ZZZZI&0001 YES
0575 1735 0 0000 11 7735 BA NO
0576 1736 0 0000 12 6004 ST FDTLY
0577 1737 0 0000 20 6009 CU TEMP &0002 CLEAR QUANT
0578 1738 0 0000 00 0001 .A NUM 0000000001
0579 1739 0 0000 64 6005 PPPPI CAD SNTLY
0580 1740 0 0000 04 7742 CNZ &B IS SNTLY ZERO
0581 1741 0 0000 30 1722 CUB ZZZZI YES
0582 1742 0 0040 21 2219 .B 0040 CUR X GOOF NO W E M PLUS SIGN MISSING
0583 1743 0 0000 64 0336 CAD X IMAGE&0016
0584 1744 0 0000 13 0010 SR 0010
0585 1745 0 0000 74 2218 AD X GOOF -0001
0586 1746 0 0000 14 0008 SL 0008
0587 1747 0 0000 02 0336 STC X IMAGE&0016
0588 1748 0 0000 30 1722 CUB ZZZZI
0589 1749 0 0000 64 7760 XXXXX CAD &H FORMAT DIGIT 1
0590 1750 0 0000 12 6012 ST TEMP &0005 TEMP&0005 IS DELTA SWITCH
0591 1751 0 0000 72 6004 SB FDTLY IF ZERO, DELTA SET TO ONE
0592 1752 1 0000 12 0000 - ST X FBDS
0593 1753 0 0000 64 6005 CAD SNTLY
0594 1754 0 0000 74 7760 AD &H INCREASE SNTLY BY ONE
0595 1755 0 0000 02 6005 STC SNTLY
0596 1756 0 0000 32 7756 IB
0597 1757 0 0000 11 7757 BA
0598 1758 0 0000 12 6004 ST FDTLY
0599 1759 0 0000 30 1573 CUB KICK
0600 1760 0 0000 00 0001 .H NUM 0000000001
0601 1761 0 0000 64 6012 NNNNI CAD TEMP &0005 FORMAT DIGITS 31
0602 1762 0 0000 72 6004 SB FDTLY 1 AFTER X
0603 1763 0 0000 04 7768 CNZ &W
0604 1764 0 0000 64 7777 CAD &G
0605 1765 1 0000 02 0000 - STC X FBDS
0606 1766 0 0000 32 7766 IB
0607 1767 0 0000 20 7770 CU &0003
0608 1768 0 0000 02 6012 .W STC TEMP &0005
0609 1769 0 0000 12 6012 ST TEMP &0005
0610 1770 0 0000 64 7778 CAD &F
0611 1771 1 0000 12 0000 - ST X FBDS
0612 1772 0 0000 74 6003 AD CLTLY INCREASE CLTLY BY 1
0613 1773 0 0000 12 6003 ST CLTLY
0614 1774 0 0000 64 6005 CAD SNTLY INCREASE SNTLY BY 1
0615 1775 0 0000 74 7778 AD &F
0616 1776 0 0000 30 1779 CUB &K
0617 1777 0 0000 00 0003 .G NUM 0000000003
0618 1778 0 0000 00 0001 .F NUM 0000000001
0619 1779 0 0000 12 6005 .K ST SNTLY
0620 1780 0 0000 32 7780 IB
0621 1781 0 0000 64 6001 CAD QUANT
0622 1782 0 0000 75 7790 SU &A DECREASE QUANT BY 1
0623 1783 0 0000 12 6001 ST QUANT
0624 1784 0 0000 73 7784 OSGD IS QUANT LESS THAN 1
0625 1785 0 0000 28 7787 CC &0002 YES
0626 1786 0 0000 30 1764 CUB NNNNI&0003 NO
0627 1787 0 0000 11 7787 BA
0628 1788 0 0000 02 6004 STC FDTLY
0629 1789 0 0000 20 6009 CU TEMP &0002 CLEAR QUANT
0630 1790 0 0000 00 0001 .A NUM 0000000001
0631 1791 0 0000 64 6012 BBBBI CAD TEMP &0005 FORMAT DIGITS 33
0632 1792 0 0000 72 6004 SB FDTLY 3 AFTER X
0633 1793 0 0000 04 7798 CNZ &W
0634 1794 0 0000 64 7810 CAD &G
0635 1795 1 0000 02 0000 - STC X FBDS
0636 1796 0 0000 32 7796 IB
0637 1797 0 0000 20 7800 CU &0003
0638 1798 0 0000 02 6012 .W STC TEMP &0005
0639 1799 0 0000 12 6012 ST TEMP &0005
0640 1800 0 0000 64 7810 CAD &G
0641 1801 1 0000 12 0000 - ST X FBDS
0642 1802 0 0000 64 6003 CAD CLTLY
0643 1803 0 0000 74 7809 AD &F INCREASE CLTLY BY 1
0644 1804 0 0000 12 6003 ST CLTLY
0645 1805 0 0000 32 7805 IB
0646 1806 0 0000 64 6001 CAD QUANT
0647 1807 0 0000 75 7809 SU &F DECREASE QUANT BY 1
0648 1808 0 0000 30 1811 CUB &L
0649 1809 0 0000 00 0001 .F NUM 0000000001
0650 1810 0 0000 00 0003 .G NUM 0000000003
0651 1811 0 0000 12 6001 .L ST QUANT
0652 1812 0 0000 73 7812 OSGD IS QUANT LESS THAN 1
0653 1813 0 0000 28 7815 CC &0002 YES
0654 1814 0 0000 30 1794 CUB BBBBI&0003 NO
0655 1815 0 0000 11 7815 BA
0656 1816 0 0000 02 6004 STC FDTLY
0657 1817 0 0000 20 6009 CU TEMP &0002 CLEAR QUANT
0658 1818 0 0000 64 6014 LOZNG CAD TEMP &0007 REPEAT
0659 1819 0 0000 04 7829 CNZ &F TEMP&0007 IS SIGMA SWITCH
0660 1820 0 0000 64 6003 CAD CLTLY IF ZERO, SIGMA SET TO 1
0661 1821 0 0000 02 5014 STC CLINC
0662 1822 0 0000 64 7828 CAD &0006
0663 1823 0 0000 12 6014 ST TEMP &0007
0664 1824 0 0000 64 6001 CAD QUANT THE VARIABLE L IS KEPT IN
0665 1825 0 0000 12 6006 ST RPTLY TEMP&0008
0666 1826 0 0000 64 6004 CAD FDTLY STORE FDTLY AT FIRST
0667 1827 0 0000 12 5018 ST RTNPT REPEAT SIGN IN RTNPT
0668 1828 0 0000 20 6009 CU TEMP &0002
0669 1829 0 0000 64 6004 .F CAD FDTLY STORE FDTLY AT SECOND
0670 1830 0 0000 12 5019 ST ENDPT REPEAT SIGN IN ENDPT
0671 1831 0 0000 64 6003 CAD CLTLY
0672 1832 0 0000 75 5014 SU CLINC
0673 1833 0 0000 02 5014 STC CLINC
0674 1834 0 0000 12 6014 ST TEMP &0007
0675 1835 0 0000 30 1836 CUB &0001
0676 1836 0 0000 12 6015 .G ST TEMP &0008 SET L TO ZERO
0677 1837 0 0000 64 6004 CAD FDTLY
0678 1838 0 0000 75 7843 SU &A
0679 1839 0 0000 73 7839 OSGD
0680 1840 0 0000 38 1844 CCB &0004 IS FDTLY GREATER THAN 316
0681 1841 0 0000 21 2219 0000 CUR X GOOF YES
0682 1842 0 0000 30 1980 CUB MALO
0683 1843 0 0000 00 0316 .A NUM 0000000316
0684 1844 0 0000 64 7849 CAD &H NO
0685 1845 0 0000 75 6006 SU RPTLY IF RPTLY IS GREATER THAN 1,
0686 1846 0 0000 73 7846 OSGD REPEAT FORMAT DIGITS
0687 1847 0 0000 38 1850 CCB &R GENERATED BETWEEN REPEAT
0688 1848 0 0000 20 6009 CU TEMP &0002 SIGNS
0689 1849 0 0000 00 0002 .H NUM 0000000002
0690 1850 0 0000 72 6004 .R SB FDTLY
0691 1851 0 0000 64 7868 CAD &X
0692 1852 0 0000 74 5018 AD RTNPT
0693 1853 0 0000 74 6015 AD TEMP &0008
0694 1854 0 0000 12 7855 ST &0001
0695 1855 0 0000 08 1855 STOP
0696 1856 1 0000 12 0000 - ST X FBDS
0697 1857 0 0000 32 7857 IB
0698 1858 0 0000 64 7867 CAD &J
0699 1859 0 0000 74 6015 AD TEMP &0008
0700 1860 0 0000 12 6015 ST TEMP &0008
0701 1861 0 0000 65 5019 CSU ENDPT
0702 1862 0 0000 74 5018 AD RTNPT HAVE ALL THE DIGITS
0703 1863 0 0000 74 6015 AD TEMP &0008 GENERATED BETWEEN REPEAT
0704 1864 0 0000 73 7864 OSGD SIGNS BEEN REPEATED
0705 1865 0 0000 28 7851 CC -R &0001 NO
0706 1866 0 0000 30 1869 CUB &V YES
0707 1867 0 0000 00 0001 .J NUM 0000000001
0708 1868 0 0000 64 0000 .X CAD X FBDS
X 0709 1869 0 0000 11 7869 .V BA
0710 1870 0 0000 02 6004 STC FDTLY PREPARE TO REPEAT AGAIN
0711 1871 0 0000 64 5019 CAD ENDPT
0712 1872 0 0000 12 5018 ST RTNPT
0713 1873 0 0000 74 6015 AD TEMP &0008
0714 1874 0 0000 12 5019 ST ENDPT
0715 1875 0 0000 64 6006 CAD RPTLY
0716 1876 0 0000 75 7882 SU &N
0717 1877 0 0000 02 6006 STC RPTLY
0718 1878 0 0000 64 6003 CAD CLTLY
0719 1879 0 0000 74 5014 AD CLINC
0720 1880 0 0000 02 6003 STC CLTLY
0721 1881 0 0000 30 1836 CUB -G
0722 1882 0 0000 00 0001 .N NUM 0000000001
0723 1883 0 0000 64 6003 ENDI CAD CLTLY THE VARIABLE J IS KEPT IN
0724 1884 0 0000 75 7002 SU &Z TEMP&0009
0725 1885 0 0000 04 7897 CNZ &K
0726 1886 0 0000 64 7001 CAD &Y M IS KEPT IN TEMP&0010
0727 1887 0 0000 75 6004 SU FDTLY
0728 1888 0 0000 73 7888 OSGD
0729 1889 0 0000 28 7899 CC &T TEMP&0011 IS THE EPSILON
0730 1890 0 0000 02 6016 BUENO STC TEMP &0009 SWITCH
0731 1891 0 0000 12 6016 ST TEMP &0009 TEMP&0012 IS THE GAMMA
0732 1892 0 0000 12 6018 ST TEMP &0011 SWITCH
0733 1893 0 0000 12 6013 ST TEMP &0006 TEMP&0006 IS THE ETA
0734 1894 0 0000 12 6019 ST TEMP &0012 SWITCH
0735 1895 0 0000 12 6017 ST TEMP &0010 ALL SWITCHES ABOVE ARE
0736 1896 0 0000 30 1903 CUB SWITZ SET TO ONE IF LOCATIONS
0737 CONTAIN ZERO
0738 1897 0 0010 21 2219 .K 0010 CUR X GOOF WEM WRONG NUMBER OF
0739 1898 0 0000 30 1991 CUB OLE COLUMNS
0740 1899 0 0000 21 2219 .T 0000 CUR X GOOF WEM FORMAT BAND TOO LONG
0741 1900 0 0000 30 1991 CUB OLE
0742 1901 0 0000 00 0316 .Y NUM 0000000316
0743 1902 0 0000 00 0080 .Z NUM 0000000080
0744 1903 0 0000 64 6018 SWITZ CAD TEMP &0011 THE PURPOSE OF THE ETA
0745 1904 0 0000 04 7007 CNZ EPP22 SWITCH IS TO ENABLE THE
0746 1905 0 0000 72 6004 SB FDTLY INACTIVE SEGMENT OF THE
0747 1906 0 0000 30 1922 CUB CROTH F. B. TO BE MADE MORE
0748 1907 0 0000 64 6019 EPP22 CAD TEMP &0012 QUICKLY
0749 1908 0 0000 04 7013 CNZ &0005
0750 1909 0 0000 64 7021 CAD &W
0751 1910 0 0000 13 0001 SR 0001
0752 1911 0 0000 02 1921 STC X &W
0753 1912 0 0000 30 1942 CUB ALEPH
0754 1913 0 0000 64 7021 CAD &W
0755 1914 0 0000 01 0009 CIRA 0009
0756 1915 0 0000 14 0010 SL 0010
0757 1916 0 0000 72 6016 SB TEMP &0009
0758 1917 1 0000 12 0520 - ST X FBWS
0759 1918 0 0000 64 1976 CAD X MALO -0004
0760 1919 0 0000 12 1977 ST X MALO -0003
0761 1920 0 0000 30 1942 CUB ALEPH
0762 1921 0 0000 08 1921 .W STOP
0763 1922 0 0000 22 7023 CROTH DB &0001
0764 1923 1 0000 64 0000 - CAD X FBDS COLLECT THE GENERATED
0765 1924 0 0000 12 7039 ST &R DIGITS INTO 29 WORDS
0766 1925 0 0000 11 7025 BA
0767 1926 0 0000 12 6004 ST FDTLY
0768 1927 0 0000 64 6019 CAD TEMP &0012
0769 1928 0 0000 04 7033 CNZ &G
0770 1929 0 0000 64 7039 CAD &R
0771 1930 0 0000 13 0001 SR 0001
0772 1931 0 0000 64 6004 .Q CAD FDTLY
0773 1932 0 0000 30 1940 CUB &J
0774 1933 0 0000 64 7039 .G CAD &R
0775 1934 0 0000 01 0009 CIRA 0009
0776 1935 0 0000 14 0010 SL 0010
0777 1936 0 0000 72 6016 SB TEMP &0009
0778 1937 1 0000 12 0520 - ST X FBWS
0779 1938 0 0000 20 7031 CU -Q
0780 1939 0 0000 08 1939 .R STOP
0781 1940 0 0000 04 7042 .J CNZ ALEPH
0782 1941 0 0000 20 7054 CU &T
0783 1942 0 0000 64 6017 ALEPH CAD TEMP &0010
0784 1943 0 0000 75 7058 SU &X
0785 1944 0 0000 73 7044 OSGD
0786 1945 0 0000 28 7047 CC &A
0787 1946 0 0000 30 1960 CUB &N
0788 1947 0 0000 04 7050 .A CNZ &0003
0789 1948 0 0000 64 7059 CAD &D
0790 1949 0 0000 12 6019 ST TEMP &0012
0791 1950 0 0000 64 7059 CAD &D
0792 1951 0 0000 74 6017 AD TEMP &0010
0793 1952 0 0000 12 6017 ST TEMP &0010
0794 1953 0 0000 30 1903 CUB SWITZ
0795 1954 0 0000 64 7059 .T CAD &D
0796 1955 0 0000 12 6013 ST TEMP &0006
0797 1956 0 0000 12 6018 ST TEMP &0011
0798 1957 0 0000 20 7042 CU ALEPH
0799 1958 0 0000 00 0009 .X NUM 0000000009
0800 1959 0 0000 00 0001 .D NUM 0000000001
0801 1960 0 0000 64 6016 .N CAD TEMP &0009 IF ALL THE DIGITS HAVE BEEN
0802 1961 0 0000 74 7079 AD &U COLLECTED, GO TO JOIN
0803 1962 0 0000 12 6016 ST TEMP &0009
0804 1963 0 0000 75 7078 SU &V
0805 1964 0 0000 73 7064 OSGD
0806 1965 0 0000 28 7067 CC &0002
0807 1966 0 0000 30 1612 CUB JOIN
0808 1967 0 0000 64 6013 CAD TEMP &0006
0809 1968 0 0000 04 7070 CNZ &A
0810 1969 0 0000 30 1894 CUB BUENO&0004
0811 1970 0 0000 72 6016 .A SB TEMP &0009
0812 1971 0 0000 64 7077 CAD &W
0813 1972 1 0000 12 0520 - ST X FBWS
0814 1973 0 0000 64 7076 CAD &X
0815 1974 0 0000 12 7077 ST &W
0816 1975 0 0000 20 7060 CU -N
0817 1976 3 3333 33 3333 .X NUM 3 3333333333
0818 1977 0 0000 08 1977 .W STOP
0819 1978 0 0000 00 0028 .V NUM 0000000028
0820 1979 0 0000 00 0001 .U NUM 0000000001
0821 1980 0 0110 40 8000 MALO 0110 MTR 8000 READ THE NEXT BLOCK
0822 1981 0 0000 28 7080 CC -0001
0823 1982 0 0000 64 4000 CAD PRCOD
0824 1983 0 0000 75 7099 SU &A IS PRCOD 3
0825 1984 0 0000 04 7091 CNZ OLE NO
0826 1985 0 0000 64 6008 CAD TEMP &0001 YES
0827 1986 0 0000 74 7098 AD &C
0828 1987 0 0000 12 6008 ST TEMP &0001
0829 1988 0 0000 72 6008 SB TEMP &0001
0830 1989 1 0000 24 0320 - BF4 IMAGE
0831 1990 0 0000 20 7080 CU MALO
0832 1991 0 0000 24 0500 OLE BF4 SAVE
0833 1992 0 0000 64 0336 CAD X IMAGE&0016
0834 1993 0 0000 13 0010 SR 0010
0835 1994 0 0000 74 2218 AD X GOOF -0001
0836 1995 0 0000 14 0008 SL 0008
0837 1996 0 0000 02 0336 STC X IMAGE&0016
0838 1997 0 0000 30 1890 TODOS CUB BUENO
0839 1998 0 0000 00 0020 .C NUM 0000000020
0840 1999 0 0000 00 0003 .A NUM 0000000003
0841 2000 0 0000 02 6007 PFBG STC TEMP TEMP HOLDS 2 FB SPEC. DIGITS
0842 2001 0 0000 64 7009 CAD &A SET COLNO TO 80
0843 2002 0 0000 02 2093 STC X COLNO
0844 2003 0 0000 30 2010 CUB OFBG
0845 2004 0 0000 02 6007 WFBG STC TEMP TEMP HOLDS 2 FB SPEC. DIGITS
0846 2005 0 0000 64 7008 CAD &C SET COLNO TO 120
0847 2006 0 0000 02 2093 STC X COLNO
0848 2007 0 0000 30 2010 CUB OFBG
0849 2008 0 0000 00 0120 .C NUM 0000000120
0850 2009 0 0000 00 0080 .A NUM 0000000080
0851 2010 0 0000 64 7027 OFBG CAD &D
0852 2011 0 0000 02 1595 STC X PSI
0853 2012 0 0000 64 7025 CAD &E
0854 2013 0 0000 02 1997 STC X TODOS
0855 2014 0 0000 64 6007 CAD TEMP
0856 2015 0 0000 12 6007 ST TEMP
0857 2016 0 0000 13 0001 SR 0001
0858 2017 0 0000 75 7026 SU &A
0859 2018 0 0000 04 7023 CNZ &B IS CHARACTER NUMERICAL
0860 2019 0 0000 64 6001 CAD QUANT YES
0861 2020 0 0000 14 0001 SL 0001
0862 2021 0 0000 02 6001 STC QUANT
0863 2022 0 0000 30 1573 CUB KICK
0864 2023 0 0000 72 7026 .B SB &A
0865 2024 0 0000 30 2028 CUB &C
0866 2025 0 0000 30 2075 .E CUB &Z
0867 2026 0 0000 00 0008 .A NUM 0000000008
0868 2027 0 0000 30 2015 .D CUB OFBG &0005
0869 2028 1 0000 64 7036 .C - CAD TABL2 SEARCH TABLE FOR CHARACTER
0870 2029 0 0000 13 0008 SR 0008
0871 2030 0 0000 75 6007 SU TEMP
0872 2031 0 0000 04 7033 CNZ &A
0873 2032 1 0000 20 7036 - CU TABL2 FOUND
0874 2033 0 0000 22 7028 .A DB -C
0875 2034 0 0020 21 2219 0020 CUR X GOOF W.E.M INVALID CHARACTER
0876 2035 0 0000 30 1980 CUB MALO
0877 2036 0 0300 30 2072 TABL2 0300 CUB ENDO TABLE
0878 2037 0 0400 30 1818 0400 CUB LOZNG
0879 2038 0 1000 30 1689 1000 CUB PLUS
0880 2039 0 4100 30 1700 4100 CUB AAAA
0881 2040 0 4200 30 2181 4200 CUB BBBBO
0882 2041 0 6900 30 2045 6900 CUB ZZZZO
0883 2042 0 5500 30 2153 5500 CUB NNNNO
0884 2043 0 5700 30 2062 5700 CUB PPPPO
0885 2044 0 6700 30 1749 6700 CUB XXXXX
0886 2045 0 0000 72 6004 ZZZZO SB FDTLY FORMAT BAND DIGIT IS 3
0887 2046 0 0000 64 7061 CAD &A
0888 2047 1 0000 02 0000 .C - STC X FBDS
0889 2048 0 0000 64 6005 CAD SNTLY INCREASE SNTLY BY 1
0890 2049 0 0000 74 7060 AD &B
0891 2050 0 0000 02 6005 STC SNTLY
0892 2051 0 0000 32 7051 IB INCREASE FDTLY BY 1
0893 2052 0 0000 64 6001 CAD QUANT
0894 2053 0 0000 75 7060 SU &B
0895 2054 0 0000 12 6001 ST QUANT
0896 2055 0 0000 73 7047 OSGD -C
0897 2056 0 0000 28 7046 CC ZZZZO&0001 IS QUANT GREATER THAN 0
0898 2057 0 0000 11 7057 BA
0899 2058 0 0000 12 6004 ST FDTLY NO
0900 2059 0 0000 20 6009 CU TEMP &0002
0901 2060 0 0000 00 0001 .B NUM 0000000001
0902 2061 0 0000 00 0003 .A NUM 0000000003
0903 2062 0 0000 64 6005 PPPPO CAD SNTLY
0904 2063 0 0000 04 7065 CNZ &A IS SNTLY 0
0905 2064 0 0000 30 2045 CUB ZZZZO YES
0906 2065 0 0040 21 2219 .A 0040 CUR X GOOF W.E.M. PLUS SIGN MISSING
0907 2066 0 0000 64 0336 CAD X IMAGE&0016
0908 2067 0 0000 13 0010 SR 0010
0909 2068 0 0000 74 2218 AD X GOOF -0001
0910 2069 0 0000 14 0008 SL 0008
0911 2070 0 0000 02 0336 STC X IMAGE&0016
0912 2071 0 0000 30 2045 CUB ZZZZO
0913 2072 0 0000 64 6003 ENDO CAD CLTLY COLLECT THE GENERATED
0914 2073 0 0000 75 2093 SU X COLNO DIGITS INTO 29 WORDS
0915 2074 0 0000 04 2151 CNZ X &Q TEST THE NUMBER OF COLUMNS
0916 2075 0 0000 02 6007 .Z STC TEMP SET J TO 0
0917 2076 0 0000 64 2092 CAD X &B RIGHT NUMBER OF COLUMNS
0918 2077 0 0000 75 6004 SU FDTLY NACSG IS KEPT IN TEMP &0002
0919 2078 0 0000 75 7091 .D SU &A
0920 2079 0 0000 73 7079 OSGD
0921 2080 0 0000 38 2094 CCB &E IS NACSG GREATER THAN 22
0922 2081 0 0000 02 6009 STC TEMP &0002 YES
0923 2082 0 0000 72 6007 SB TEMP
0924 2083 1 0000 02 0520 - STC X FBWS INSERT TWO WORDS OF ZEROS
0925 2084 0 0000 32 7084 IB
0926 2085 1 0000 02 0520 - STC X FBWS
0927 2086 0 0000 32 7086 IB
0928 2087 0 0000 11 7087 BA
0929 2088 0 0000 02 6007 STC TEMP INCREASE J BY 2
0930 2089 0 0000 64 6009 CAD TEMP &0002
0931 2090 0 0000 20 7078 CU -D
0932 2091 0 0000 00 0022 .A NUM 0000000022
0933 2092 0 0000 00 0316 .B NUM 0000000316
0934 2093 0 0000 08 2093 COLNO STOP
0935 2094 0 0000 74 7105 .E AD &B
0936 2095 0 0000 02 6009 STC TEMP &0002
0937 2096 0 0000 64 7106 CAD &G
0938 2097 0 0000 02 6005 STC SNTLY SET M TO 10
0939 2098 0 0000 64 6009 CAD TEMP &0002 DECREASE NACSG BY 2
0940 2099 0 0000 75 7107 .H SU &D
0941 2100 0 0000 73 7100 OSGD
0942 2101 0 0000 28 7108 CC &E IS NCASG NEGATIVE
0943 2102 0 0000 75 7107 SU &D
0944 2103 0 0000 02 6009 STC TEMP &0002 NO
0945 2104 0 0000 30 2124 CUB &F
0946 2105 0 0000 00 0022 .B NUM 0000000022
0947 2106 0 0000 00 0010 .G NUM 0000000010
0948 2107 0 0000 00 0001 .D NUM 0000000001
0949 2108 0 0000 64 7110 .E CAD SIG2 SET SIGMA TO 2
0950 2109 0 0000 02 2139 STC X SIGMA
0951 2110 0 0000 30 2111 SIG2 CUB &A
0952 2111 0 0000 72 6004 .A SB FDTLY
0953 2112 0 0000 22 7119 DB &B DECREASE FDTLY BY 1
0954 2113 0 0000 64 7123 CAD &A
0955 2114 0 0000 14 0009 SL 0009 FDTLY IS NEGATIVE
0956 2115 0 0000 72 6005 SB SNTLY
0957 2116 1 0000 12 9999 - SR 0000-0001
0958 2117 0 0000 02 0548 STC X FBWS &0028
0959 2118 0 0000 30 1612 CUB JOIN
0960 2119 0 0000 11 7119 .B BA NON-NEGATIVE
0961 2120 0 0000 12 6004 ST FDTLY
0962 2121 1 0000 64 0000 - CAD X FBDS
0963 2122 0 0000 30 2124 CUB &0002
0964 2123 0 0000 00 0003 .A NUM 0000000003
0965 2124 0 0000 72 6005 .F SB SNTLY
0966 2125 0 0000 22 7136 DB &D DECREASE M BY 1
0967 2126 0 0000 01 0009 CIRA 0009 M IS 0
0968 2127 0 0000 14 0010 SL 0010
0969 2128 0 0000 72 6007 SB TEMP
0970 2129 1 0000 02 0520 - STC X FBWS
0971 2130 0 0000 64 7140 CAD &A
0972 2131 0 0000 02 6005 STC SNTLY
0973 2132 0 0000 32 7132 IB
0974 2133 0 0000 11 7133 BA
0975 2134 0 0000 12 6007 ST TEMP
0976 2135 0 0000 20 7139 CU SIGMA
0977 2136 0 0000 13 0001 .D SR 0001
0978 2137 0 0000 11 7137 BA
0979 2138 0 0000 12 6005 ST SNTLY
0980 2139 0 0000 08 2139 SIGMA STOP
0981 2140 0 0000 00 0010 .A NUM 0000000010
0982 2141 0 0000 20 7142 OMEGA CU &A
0983 2142 0 0000 64 7145 .A CAD OMEG2 SET OMEGA TO 2
0984 2143 0 0000 02 2141 STC X OMEGA
0985 2144 0 0000 30 2124 CUB -F
0986 2145 0 0000 20 7146 OMEG2 CU &B
0987 2146 0 0000 64 7150 .B CAD OMEG1 SET OMEGA TO 1
0988 2147 0 0000 02 2141 STC X OMEGA
0989 2148 0 0000 64 6009 CAD TEMP &0002
0990 2149 0 0000 30 2099 CUB -H
0991 2150 0 0000 20 7142 OMEG1 CU -A
0992 2151 0 0010 21 2219 .Q 0010 CUR X GOOF W.E.M.WRONG NUMBER OF COLUMNS
0993 2152 0 0000 30 1991 CUB OLE
0994 2153 0 0000 64 6012 NNNNO CAD TEMP &0005 TEMP&0005 IS DELTA SWITCH
0995 2154 0 0000 04 7157 CNZ &A FEED SETS DELTA TO 1
0996 2155 0 0000 64 7170 .F CAD &B DELTA IS 1
0997 2156 0 0000 20 7160 CU &C
0998 2157 0 0000 02 6012 .A STC TEMP &0005 DELTA IS 2
0999 2158 0 0000 02 6012 STC TEMP &0005
1000 2159 0 0000 64 7169 CAD &D
1001 2160 0 0000 72 6004 .C SB FDTLY
1002 2161 1 0000 02 0000 - STC X FBDS
1003 2162 0 0000 11 7162 BA
1004 2163 0 0000 74 7169 AD &D INCREASE FDTLY BY 1
1005 2164 0 0000 02 6004 STC FDTLY
1006 2165 0 0000 64 6003 CAD CLTLY
1007 2166 0 0000 74 7169 AD &D INCREASE CLTLY BY 1
1008 2167 0 0000 02 6003 STC CLTLY
1009 2168 0 0000 30 2171 CUB &E
1010 2169 0 0000 00 0001 .D NUM 0000000001
1011 2170 0 0000 00 0002 .B NUM 0000000002
1012 2171 0 0000 64 6005 .E CAD SNTLY
1013 2172 0 0000 74 7180 AD &A INCREASE SNTLY BY 1
1014 2173 0 0000 02 6005 STC SNTLY
1015 2174 0 0000 64 6001 CAD QUANT
1016 2175 0 0000 75 7180 SU &A DECREASE QUANT BY 1
1017 2176 0 0000 73 7176 OSGD
1018 2177 0 0000 28 6009 CC TEMP &0002
1019 2178 0 0000 02 6001 STC QUANT
1020 2179 0 0000 30 2155 CUB -F
1021 2180 0 0000 00 0001 .A NUM 0000000001
1022 2181 0 0000 64 6012 BBBBO CAD TEMP &0005
1023 2182 0 0000 04 7187 CNZ &A
1024 2183 0 0000 72 6004 .E SB FDTLY DELTA IS 1
1025 2184 1 0000 02 0000 - STC X FBDS
1026 2185 0 0000 32 7185 IB INCREASE FDTLY BY 1
1027 2186 0 0000 20 7190 CU &B
1028 2187 0 0000 72 6004 .A SB FDTLY DELTA IS 2
1029 2188 0 0000 02 7188 STC
1030 2189 0 0000 02 6012 STC TEMP &0005
1031 2190 1 0000 02 0000 .B - STC X FBDS
1032 2191 0 0000 32 7191 IB
1033 2192 0 0000 11 7192 BA INCREASE FDTLY BY 1
1034 2193 0 0000 02 6004 STC FDTLY
1035 2194 0 0000 64 6003 CAD CLTLY
1036 2195 0 0000 74 7200 AD &C INCREASE CLTLY BY 1
1037 2196 0 0000 02 6003 STC CLTLY
1038 2197 0 0000 64 6001 CAD QUANT DECREASE QUANT BY 1
1039 2198 0 0000 75 7200 SU &C
1040 2199 0 0000 30 2201 CUB &D
1041 2200 0 0000 00 0001 .C NUM 0000000001
1042 2201 0 0000 73 7201 .D OSGD
1043 2202 0 0000 28 6009 CC TEMP &0002
1044 2203 0 0000 02 6001 STC QUANT
1045 2204 0 0000 30 2183 CUB -E
1046 TAG X
1047 2205 0 0000 02 2263 MARK STC T1
1048 2206 0 0000 14 0004 SL 0004 SET UP EXIT
1049 2207 0 0000 02 2263 STC T1
1050 2208 0 0000 07 0500 PTWF 0500
1051 2209 0 0000 64 4015 CAD NUMB
1052 2210 0 0000 14 0006 SL 0006
1053 2211 0 0000 03 0304 PTW 0304
1054 2212 0 0000 64 4016 CAD FLAG ADD AN E TO FLAG
1055 2213 0 0000 13 0010 SR 0010
1056 2214 0 0000 74 2218 AD &A
1057 2215 0 0000 14 0008 SL 0008
1058 2216 0 0000 02 4016 STC FLAG
1059 2217 0 0000 20 2226 CU &B
1060 2218 0 0000 00 0045 .A ALF E
1061 2219 0 0000 02 2263 GOOF STC T1
1062 2220 0 0000 14 0004 SL 0004
1063 2221 0 0000 02 2263 STC T1
1064 2222 0 0000 07 0500 PTWF 0500 CARRIAGE RETURN
1065 2223 0 0000 64 5013 CAD NMBR
1066 2224 0 0000 14 0006 SL 0006
1067 2225 0 0000 03 0304 PTW 0304
1068 2226 0 0000 11 2226 .B BA
1069 2227 0 0000 02 2262 STC T0
1070 2228 0 0000 72 2263 SB T1
1071 2229 0 0000 22 2230 DB &0001
1072 2230 1 0000 64 0000 - CAD 0000
1073 2231 0 0000 13 0007 SR 0007
1074 2232 0 0000 60 2256 M &C
1075 2233 0 0000 14 0010 SL 0010
1076 2234 0 0000 74 2260 AD &I
1077 2235 0 0000 12 2264 ST T2
1078 2236 0 0000 64 2261 CAD &J
1079 2237 0 0000 03 0406 PTW 0406
1080 2238 0 0000 72 2264 SB T2
1081 2239 1 0000 64 2265 .F - CAD MSTBL
1082 2240 0 0000 75 2261 SU &J
1083 2241 0 0000 04 2249 CNZ &D
1084 2242 0 0000 64 2259 .E CAD &F
1085 2243 0 0000 74 2263 AD T1
1086 2244 0 0000 02 2248 STC &G
1087 2245 0 0000 72 2262 SB T0
1088 2246 0 0000 64 2258 CAD &H
1089 2247 0 0000 02 2255 STC &C -0001
1090 2248 0 0000 08 2248 .G STOP
1091 2249 1 0000 64 2265 .D - CAD MSTBL
1092 2250 0 0000 03 0410 PTW 0410 WRITE FIVE CHARACTERS
1093 2251 0 0000 64 2255 CAD &0004
1094 2252 0 0000 74 2257 AD &G
1095 2253 0 0000 28 2242 CC -E
1096 2254 0 0000 02 2255 STC &0001
1097 2255 0 9940 22 2239 9940 DB -F
1098 2256 0 0000 00 0006 .C NUM 0000000006
1099 2257 0 0010 00 0000 .G NUM 0010000000
1100 2258 0 9940 22 2239 .H 9940 DB -F
1101 2259 0 0000 20 0000 .F CU 0000
1102 2260 0 0000 00 0005 .I NUM 0000000005
1103 2261 0 0000 00 0000 .J FLX
1104 2262 0 0000 08 2262 T0 STOP
1105 2263 0 0000 08 2263 T1 STOP
1106 2264 0 0000 08 2264 T2 STOP
1107 TAG 7
1108 2265 0 0000 00 0000 MSTBL FLXS 0006 FORMAT BAND TOO LONG
1109 2266 0 0000 00 0000
1110 2267 0 0053 56 5547
1111 2268 0 4400 63 5656
1112 2269 0 6300 42 4155
1113 2270 0 4656 59 5441
1114 2271 0 0000 00 0000 FLXS 0006 WRONG NUMBER OF COLUMNS
1115 2272 0 5455 62 0000
1116 2273 0 0043 56 5364
1117 2274 0 4559 00 5646
1118 2275 0 0055 64 5442
1119 2276 0 6659 56 5547
1120 2277 0 0000 00 0000 FLXS 0006 INVALID CHARACTER
1121 2278 0 0000 00 0000
1122 2279 0 4559 00 0000
1123 2280 0 4159 41 4363
1124 2281 0 4944 00 4348
1125 2282 0 4955 65 4153
1126 2283 0 0000 00 0000 FLXS 0006 WRONG NUMBER OF DIGITS
1127 2284 0 6362 00 0000
1128 2285 0 0044 49 4749
1129 2286 0 4559 00 5646
1130 2287 0 0055 64 5442
1131 2288 0 6659 56 5547
1132 2289 0 0000 00 0000 FLXS 0006 PLUS SIGN MISSING
1133 2290 0 0000 00 0000
1134 2291 0 5547 00 0000
1135 2292 0 5449 62 6249
1136 2293 0 6249 47 5500
1137 2294 0 5753 64 6200
1138 2295 0 0000 00 0000 FLXS 0006 UNDEFINED OPERAND
1139 2296 0 0000 00 0000
1140 2297 0 5544 00 0000
1141 2298 0 5657 45 5941
1142 2299 0 4955 45 4400
1143 2300 0 6455 44 4546
1144 2301 0 0000 00 0000 FLXS 0006 INVALID INCREMENT
1145 2302 0 0000 00 0000
1146 2303 0 5563 00 0000
1147 2304 0 4359 45 5445
1148 2305 0 4944 00 4955
1149 2306 0 4955 65 4153
1150 2307 0 0020 42 0000 TART 0020 MTS 0000
1151 2308 0 0000 28 7307 CC -0001
1152 2309 0 0000 36 8000 BT6 8000
1153 2310 0 0000 26 0000 BF6 0000
1154 2311 0 0000 34 0000 BT4 0000
1155 2312 0 0000 36 2355 BT6 &E FOR LOADING ASSEMBLED
1156 2313 0 0000 35 2337 BT5 &L PROGRAM
1157 2314 0 0000 64 7316 CAD &A
1158 2315 0 0000 30 2317 CUB &Z
1159 2316 0 8000 24 0000 .A 8000 BF4 0000
1160 2317 0 0000 12 7318 .Z ST &0001
1161 2318 0 0000 08 2318 STOP CLEAR MEMORY
1162 2319 0 0000 74 7322 AD &C
1163 2320 0 0000 28 7323 CC &B
1164 2321 0 0000 20 7317 CU -Z
1165 2322 0 0010 00 0020 .C NUM 0010000020
1166 2323 0 0120 40 8000 .B 0120 MTR 8000 READ TAPE BLOCK
1167 2324 0 0000 28 7323 CC -0001
1168 2325 0 0000 72 4000 SB PRCOD
1169 2326 1 0000 20 7327 - CU CODE
1170 2327 0 0000 20 5337 CODE CU 5 &L ZERO MACHINE INSTRUCTION
1171 2328 0 0000 20 7323 CU -B ONE PSEUDO INSTRUCTION
1172 2329 0 0000 20 5337 CU 5 &L TWO CONSTANT
1173 2330 0 0000 20 5337 CU 5 &L THREE FORMAT BAND
1174 2331 0 0000 20 5337 CU 5 &L FOUR MACRO INSTRUCTION
1175 2332 0 0000 20 7323 CU -B FIVE MACRO INSTRUCTION
1176 2333 0 0000 20 5337 CU 5 &L SIX FLEXOWRITER CODE
1177 2334 0 0000 20 5337 CU 5 &L SEVEN FORMAT BAND
1178 2335 0 0000 20 6355 CU 6 &E EIGHT END OF TAPE
1179 2336 0 5356 66 0000 .N FLX LOW
1180 TAG 5
1181 2337 0 0000 72 4014 .L SB ABLOC PLACE INSTRUCTION IN MEMORY
1182 2338 0 0000 64 4013 CAD INSTR
1183 2339 1 0000 02 0000 - STC 0000
1184 2340 0 0000 11 5340 BA
1185 2341 0 0000 75 5354 SU HIGH
1186 2342 0 0000 73 5342 OSGD
1187 2343 0 0000 28 5346 CC &0003
1188 2344 0 0000 11 5344 BA
1189 2345 0 0000 02 5354 STC HIGH
1190 2346 0 0000 11 5346 BA
1191 2347 0 0000 75 5353 SU LOW
1192 2348 0 0000 73 5339 OSGD -L &0002
1193 2349 0 0000 28 5352 CC &0003
1194 2350 0 0000 11 5350 BA
1195 2351 0 0000 02 5353 STC LOW
1196 2352 0 0000 20 7323 CU 7 -B
1197 2353 0 9999 99 9999 LOW NUM 9999999999
1198 2354 0 0000 00 0000 HIGH NUM 0000000000
1199 TAG 6
1200 2355 0 0020 52 0000 .E 0020 MTRW 0000 REWIND UNIT TWO
1201 2356 0 0000 28 6355 CC -0001
1202 2357 0 0000 07 0500 PTWF 0500
1203 2358 0 0000 64 6374 CAD &M PRINT OUT PROGRAM
1204 2359 0 0000 03 0410 PTW 0410 DELIMINATION
1205 2360 0 0000 64 5354 CAD 5 HIGH
1206 2361 0 0000 14 0006 SL 0006
1207 2362 0 0000 03 0304 PTW 0304
1208 2363 0 0000 07 0500 PTWF 0500
1209 2364 0 0000 64 7336 CAD 7 -N
1210 2365 0 0000 03 0410 PTW 0410
1211 2366 0 0000 64 5353 CAD 5 LOW
1212 2367 0 0000 14 0006 SL 0006
1213 2368 0 0000 03 0304 PTW 0304
1214 2369 0 8900 42 0000 8900 MTS 0000 LOAD SLIM AND TRANSFER
1215 2370 0 0000 28 6369 CC -0001 CONTROL TO IT
1216 2371 0 1500 40 3700 1500 MTR 3700
1217 2372 0 0000 28 6371 CC -0001
1218 2373 0 0010 44 6000 0010 CDR 6000
1219 2374 0 4849 47 4800 .M FLX HIGH
1220 END
0
0