File: AJKTAB.LS of Tape: Test/Tests/PAL-FILES4
(Source file text)
EJECT AJKTAB PAL8-V50X 23-NOV-87 PAGE 1 EJECT AJKTAB /MAINDEC-08-AJKTAB KT8A 7421 MQL=7421 7501 MQA=7501 7431 SWAB=7431 7447 SWBA=7447 7403 SCL=7403 7403 ACS=7403 7405 MUY=7405 7407 DVI=7407 7411 NMI=7411 7413 SHL=7413 7415 ASR=7415 7417 LSR=7417 7441 SCA=7441 7443 DAD=7443 7445 DST=7445 7451 DPSZ=7451 7573 DPIC=7573 7575 DCM=7575 7457 SAM=7457 6000 SKON=6000 6003 SRQ=6003 6004 GTF=6004 6005 RTF=6005 6006 SGT=6006 6007 CAF=6007 6204 CINT=6204 6214 RDF=6214 6224 RIF=6224 6234 RIB=6234 6244 RMF=6244 6254 SINT=6254 6264 CUF=6264 6274 SUF=6274 6030 KCF=6030 6040 TFL=6040 6041 TSF=6041 6042 TCF=6042 6044 TPC=6044 6045 TSK=6045 6046 TLS=6046 6570 DBST=6570 /SKIP IF DEMAND SET AND CLEAR IT 6571 DBSK=6571 /SKIP IN READY 6572 DBRD=6572 /READ DATA IN 6573 DBCF=6573 /CLEAR IN READY 6574 DBTD=6574 /LOAD COMPLEMENT OF AC0-11 TO TRANSMIT BUFFER 6575 DBSE=6575 /SET INTERRUPT ENABLE 6576 DBCE=6576 /CLEAR INTERRUPT ENABLE 6577 DBSS=6577 /SEND STROBE PULSE AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-2 6304 RTM=6304 6314 SKME=6314 6324 SKMM=6324 6334 LTM=6334 6344 LRM=6344 6364 SMME=6364 6374 CMME=6374 6170 LBM=6170 6171 RBM=6171 6172 RLB=6172 6173 RMR=6173 6174 MBC=6174 6175 RACA=6175 6176 RACB=6176 6177 RACC=6177 6200 LXM=6200 6210 GTS=6210 6220 RTS=6220 6230 RXM=6230 6240 LRR=6240 6250 RRR=6250 6260 LUSR=6260 6270 RUSR=6270 4000 EMM=4000 2000 EN5=2000 1000 EN9=1000 0400 ERVF=0400 0200 DIOI=0200 0100 EBM=0100 0040 MAINT=0040 0000 FIELD 0 0000 *0000 000000 0302 INTVER, 302 /00000-0302 CB 000001 3114 INT1, DCA AC /00001-3114 YL 000002 6173 RMR /00002-6173 1; 000003 3111 DCA MAINTR /00003-3111 YI 000004 5405 JMP I .+1 /00004-5405 ,E 000005 4416 INTRPT, INTRP /00005-4416 $N 000006 2324 2324 /00006-2324 ST 000007 0515 0515 /00007-0515 EM 000010 0000 0000 /00010-0000 @@ 000011 0000 0000 /00011-0000 @@ 000012 0000 0000 /00012-0000 @@ 000013 0000 0000 /00013-0000 @@ 000014 0000 0000 /00014-0000 @@ 000015 0000 0000 /00015-0000 @@ 000016 0000 0000 /00016-0000 @@ 000017 0000 0000 /00017-0000 @@ 000020 0000 SWITCH, 0000 /00020-0000 @@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-3 000021 4000 SWISOF, 4000 /00021-4000 @ SWITCH 000022 0000 X8, 0000 /00022-0000 @@ 000023 0000 0000 /00023-0000 @@ 000024 0000 PRTPOS, 0000 /00024-0000 @@ 000025 6000 TSTUSR, USRTST /00025-6000 0@ 000026 0741 CDFION, IONCDF /00026-0741 G! 000027 4353 CIFION, IONCIF /00027-4353 #+ 000030 0732 GETSWI, SWIGET /00030-0732 GZ 000031 5600 HALTAT, ATHALT /00031-5600 .@ 000032 5323 SETFLD, FLDSET /00032-5323 +S 000033 4263 SETTST, TSTSET /00033-4263 "3 000034 4336 SETINI, INISET /00034-4336 #^ 000035 5557 NXTFLD, FLDNXT /00035-5557 -/ 000036 5412 PRTBNK, BNKPRT /00036-5412 ,J 000037 4717 CKGDBD, GDBDCK /00037-4717 'O 000040 4732 SHFL, SHUFFL /00040-4732 'Z 000041 5405 MAKCDI, CDIMAK /00041-5405 ,E 000042 5622 MAKCDF, CDFMAK /00042-5622 .R 000043 5400 MAKCIF, CIFMAK /00043-5400 ,@ 000044 5475 SETKT, KTSET /00044-5475 ,= 000045 3740 ERRTGB, TGBERR /00045-3740 _ 000046 5114 ERRCGB, CGBERR /00046-5114 )L 000047 5040 ERACGB, ACGBER /00047-5040 ( 000050 5006 ERBNKS, BNKSER /00050-5006 (F 000051 5200 ECDBGB, CDBGBE /00051-5200 *@ 000052 5070 ERSNGL, SNGLER /00052-5070 (8 000053 4515 CKBNKS, BNKSCK /00053-4515 %M 000054 4437 PRTMSG, MSGPRT /00054-4437 $_ 000055 4653 CHKX8, X8CHK /00055-4653 &+ 000056 4701 RANDOM, DOMRAN /00056-4701 'A 000057 6036 PRTIO, IOPRT /00057-6036 0^ 000060 4504 PRCRLF, CRLFPR /00060-4504 %D 000061 4400 GETTTY, TTYGET /00061-4400 $@ 000062 4600 GETMEM, MEMGET /00062-4600 &@ 000063 5000 INTOUT, OUTINT /00063-5000 (@ 000064 5436 PRTNUM, NUMPRT /00064-5436 ,^ 000065 4560 SETLUP, LUPSET /00065-4560 %0 000066 0000 GO, 0000 /00066-0000 @@ 000067 0000 GO2, 0000 /00067-0000 @@ 000070 0000 INTSWI, 0000 /00070-0000 @@ 000071 0000 RSTTY, 0000 /00071-0000 @@ 000072 0000 GOTUSR, 0000 /00072-0000 @@ 000073 0000 WHATIS, 0000 /00073-0000 @@ 000074 0000 IONTTY, 0000 /00074-0000 @@ 000075 0037 AVLMEM, 0037 /00075-0037 @_ 000076 0000 TMP, 0000 /00076-0000 @@ 000077 0000 TEMP, 0000 /00077-0000 @@ 000100 0000 TEMIND, 0000 /00100-0000 @@ 000101 0000 MEMLIM, 0000 /00101-0000 @@ 000102 7777 ONCE, -1 /00102-7777 ?? 000103 0000 ERRLOC, 0000 /00103-0000 @@ 000104 0000 ERRNXT, 0000 /00104-0000 @@ 000105 0000 ERRTYP, 0000 /00105-0000 @@ 000106 0000 TEMFLD, 0000 /00106-0000 @@ 000107 0000 COUNT, 0000 /00107-0000 @@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-4 000110 0000 BANK3, 0000 /00110-0000 @@ 000111 0000 MAINTR, 0000 /00111-0000 @@ 000112 0000 CDBITS, 0000 /00112-0000 @@ 000113 0000 LINK, 0000 /00113-0000 @@ 000114 0000 AC, 0000 /00114-0000 @@ 000115 0003 O3, 3 /00115-0003 @C 000116 0007 O7, 7 /00116-0007 @G 000117 0017 O17, 17 /00117-0017 @O 000120 0037 O37, 37 /00120-0037 @_ 000121 0040 O40, 40 /00121-0040 @ 000122 0070 O70, 70 /00122-0070 @8 000123 0077 O77, 77 /00123-0077 @? 000124 0200 O200, 200 /00124-0200 B@ 000125 0240 O240, 240 /00125-0240 B 000126 0260 O260, 260 /00126-0260 B0 000127 0400 O400, 0400 /00127-0400 D@ 000130 1000 O1000, 1000 /00130-1000 H@ 000131 2000 O2000, 2000 /00131-2000 P@ 000132 4000 O4000, 4000 /00132-4000 @ 000133 7000 O7000, 7000 /00133-7000 8@ 000134 7740 O7740, 7740 /00134-7740 ? 000135 7774 OM4, -4 /00135-7774 ?< 000136 7771 OM7, -7 /00136-7771 ?9 000137 7763 OM15, -15 /00137-7763 ?3 000140 7741 OM37, -37 /00140-7741 ?! 000141 7740 OM40, -40 /00141-7740 ? 000142 7702 OM76, -76 /00142-7702 ?B 000143 7563 OM215, -215 /00143-7563 =3 000144 0000 LSTBNK, 0000 /00144-0000 @@ 000145 0004 0004 /00145-0004 @D 000146 0100 O100, 0100 /00146-0100 A@ 000147 0104 O104, 0104 /00147-0104 AD 000150 6201 CCDF, CDF 0 /00150-6201 2A 000151 6202 CCIF, CIF 0 /00151-6202 2B 000152 6203 CCDI, CIF CDF 0 /00152-6203 2C 000153 0000 THSFLD, 0000 /00153-0000 @@ 000154 6067 6067 /00154-6067 07 000155 6070 BRKLST, LSTBRK /00155-6070 08 000156 0000 BD1, 0000 /00156-0000 @@ 000157 0000 GD, 0000 /00157-0000 @@ 000160 0000 BD, 0000 /00160-0000 @@ 000161 0000 PASNUM, 0000 /00161-0000 @@ 000162 0000 BRKMSK, 0000 /00162-0000 @@ 000163 0000 BRKADR, 0000 /00163-0000 @@ 000164 0000 BRKBNK, 0000 /00164-0000 @@ 000165 0000 FIELD7, 0000 /00165-0000 @@ 000166 0000 CNT, 0000 /00166-0000 @@ 000167 0000 MRBITS, 0000 /00167-0000 @@ 000170 0000 SHFLD, 0000 /00170-0000 @@ 000171 7677 LOOP, -101 /00171-7677 >? 000172 7677 LPINI, -101 /00172-7677 >? 000173 7522 SMA SNL HLT /00173-7522 =R 000174 0240 0240 /00174-0240 B 000175 7540 SMA SZA /00175-7540 = AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-5 000176 0034 AND 0034 /00176-0034 @\ 000177 7000 NOP /00177-7000 8@ 0200 PAGE 1 000200 7300 START, CLA CLL /00200-7300 ;@ 000201 6203 CIF CDF 0 /00201-6203 2C 000202 3070 DCA INTSWI /00202-3070 X8 000203 1377 TAD (JMP I 0 /00203-1377 K? 000204 3001 DCA INT1 /00204-3001 XA 000205 6007 CAF /00205-6007 0G 000206 6264 CUF /00206-6264 24 000207 6001 ION /00207-6001 0A 000210 7000 NOP /00210-7000 8@ 000211 6000 SKON /00211-6000 0@ 000212 7410 SKP /00212-7410 <H 000213 7610 SKP CLA /00213-7610 >H 000214 7402 HLT /00214-7402 <B 000215 7300 START2, CLA CLL /00215-7300 ;@ 000216 1376 TAD (DCA AC /00216-1376 K> 000217 3001 DCA INT1 /00217-3001 XA 000220 1375 TAD (START2 /00220-1375 K= 000221 3066 DCA GO /00221-3066 X6 000222 1022 TAD X8 /00222-1022 HR 000223 7700 SMA CLA /00223-7700 ?@ 000224 5230 JMP START3 /00224-5230 *X 000225 1021 STRSOF, TAD SWISOF /00225-1021 HQ 000226 0120 AND O37 /00226-0120 AP 000227 5252 JMP START4 /00227-5252 ** 000230 4774 START3, JMS I (DBST1 /00230-4774 '< 000231 4454 JMS I PRTMSG /00231-4454 $, 000232 6516 AJKTAB /00232-6516 5N 000233 4454 STRTGM, JMS I PRTMSG /00233-4454 $, 000234 6543 AMNTMM /00234-6543 5# 000235 1120 TAD O37 /00235-1120 IP 000236 6001 ION /00236-6001 0A 000237 4462 JMS I GETMEM /00237-4462 $2 000240 5233 JMP STRTGM /00240-5233 *[ 000241 3076 DCA TMP /00241-3076 X> 000242 1076 TAD TMP /00242-1076 H> 000243 7650 SNA CLA /00243-7650 >( 000244 5252 JMP START4 /00244-5252 ** 000245 1140 TAD OM37 /00245-1140 I 000246 1076 TAD TMP /00246-1076 H> 000247 7740 SMA SZA CLA /00247-7740 ? 000250 5233 JMP STRTGM /00250-5233 *[ 000251 1076 TAD TMP /00251-1076 H> 000252 3075 START4, DCA AVLMEM /00252-3075 X= 000253 4455 JMS I CHKX8 /00253-4455 $- 000254 7000 NOP /00254-7000 8@ 000255 6001 ION /00255-6001 0A 000256 7301 T01GO, CLA CLL IAC /00256-7301 ;A Test 1 START 000257 7421 MQL /00257-7421 <Q 000260 1067 TAD GO2 /00260-1067 H7 000261 7640 SZA CLA /00261-7640 > 000262 5273 JMP START5 /00262-5273 *; AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-6 000263 3157 T01LP, DCA GD /00263-3157 Y/ 000264 6230 RXM /00264-6230 2X 000265 3160 DCA BD /00265-3160 Y0 000266 4437 JMS I CKGDBD /00266-4437 $_ 000267 5273 JMP START5 /00267-5273 *; 000270 4446 JMS I ERRCGB /00270-4446 $& 000271 6630 EXRFCL /00271-6630 6X 000272 0263 T01LP /00272-0263 B3 000273 7240 START5, CLA CMA /00273-7240 : 000274 3352 DCA LPCNT /00274-3352 [* 000275 4433 JMS I SETTST /00275-4433 $[ Test 2 LXM->RXM 000276 7300 T02GO, CLA CLL /00276-7300 ;@ 000277 1132 TAD O4000 /00277-1132 IZ 000300 3157 DCA GD /00300-3157 Y/ 000301 1157 TAD GD /00301-1157 I/ 000302 6200 LXM /00302-6200 2@ 000303 7440 SZA /00303-7440 < 000304 5316 JMP T02ERR /00304-5316 +N 000305 6230 RXM /00305-6230 2X 000306 3160 DCA BD /00306-3160 Y0 000307 4437 JMS I CKGDBD /00307-4437 $_ 000310 5314 JMP .+4 /00310-5314 +L 000311 4446 JMS I ERRCGB /00311-4446 $& 000312 0406 0406 /00312-0406 DF 000313 0276 T02GO /00313-0276 B> 000314 5715 JMP I .+1 /00314-5715 /M 000315 0401 T03GO /00315-0401 DA 000316 3160 T02ERR, DCA BD /00316-3160 Y0 000317 3157 DCA GD /00317-3157 Y/ 000320 4447 JMS I ERACGB /00320-4447 $' 000321 0400 0400 /00321-0400 D@ 000322 0276 T02GO /00322-0276 B> 000323 5314 JMP T02ERR-2 /00323-5314 +L 000324 0000 LPSET, AND 0000 /00324-0000 @@ 000325 3067 DCA GO2 /00325-3067 X7 000326 4353 JMS LPX8 /00326-4353 #+ 000327 4430 JMS I GETSWI /00327-4430 $X 000330 0130 AND O1000 /00330-0130 AX 000331 7650 SNA CLA /00331-7650 >( 000332 5343 JMP LPEX /00332-5343 +# 000333 7701 MQA CLA /00333-7701 ?A 000334 3100 DCA TEMIND /00334-3100 Y@ 000335 4430 JMS I GETSWI /00335-4430 $X 000336 0123 AND O77 /00336-0123 AS 000337 7041 CMA IAC /00337-7041 8! 000340 1100 TAD TEMIND /00340-1100 I@ 000341 7650 SNA CLA /00341-7650 >( 000342 5466 JMP I GO /00342-5466 ,6 000343 2352 LPEX, ISZ LPCNT /00343-2352 S* 000344 5466 JMP I GO /00344-5466 ,6 000345 1137 TAD OM15 /00345-1137 I_ 000346 3352 DCA LPCNT /00346-3352 [* 000347 1067 TAD GO2 /00347-1067 H7 000350 3066 DCA GO /00350-3066 X6 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-7 000351 5724 JMP I LPSET /00351-5724 /T 000352 7777 LPCNT, -1 /00352-7777 ?? 000353 0000 LPX8, AND 0000 /00353-0000 @@ 000354 1022 TAD X8 /00354-1022 HR 000355 7700 SMA CLA /00355-7700 ?@ 000356 5753 JMP I LPX8 /00356-5753 /+ 000357 2171 ISZ LOOP /00357-2171 Q9 000360 5753 JMP I LPX8 /00360-5753 /+ 000361 1172 TAD LPINI /00361-1172 I: 000362 3171 DCA LOOP /00362-3171 Y9 000363 6002 IOF /00363-6002 0B 000364 6201 CDF 0 /00364-6201 2A 000365 6272 CIF 70 /00365-6272 2: 000366 4771 JMS I .+3 /00366-4771 '9 000367 6001 ION /00367-6001 0A 000370 5753 JMP I LPX8 /00370-5753 /+ 000371 6500 6500 /00371-6500 5@ 000372 5767 JMP I 0367 /00372-5767 /7 000373 4562 JMS I 0162 /00373-4562 %2 /DCA 0337 /00374-3337 [_ /AND 0215 /00375-0215 BM /DCA AC /00376-3114 YL /JMP I 0000 /00377-5400 ,@ 000374 3337 000375 0215 000376 3114 000377 5400 0400 PAGE 2 000400 7700 OM100, SMA CLA /00400-7700 ?@ 000401 4433 T03GO, JMS I SETTST /00401-4433 $[ Test 3 LXM->RXM 000402 7300 CLA CLL /00402-7300 ;@ 000403 1200 TAD OM100 /00403-1200 J@ 000404 3107 DCA COUNT /00404-3107 YG 000405 3166 DCA CNT /00405-3166 Y6 000406 4440 T03LP, JMS I SHFL /00406-4440 $ 000407 0166 CNT /00407-0166 A6 000410 7002 BSW /00410-7002 8B 000411 7110 CLL RAR /00411-7110 9H 000412 1132 TAD O4000 /00412-1132 IZ 000413 0134 AND O7740 /00413-0134 A\ 000414 3157 DCA GD /00414-3157 Y/ 000415 1157 TAD GD /00415-1157 I/ 000416 6200 LXM /00416-6200 2@ 000417 7440 SZA /00417-7440 < 000420 5236 JMP T03GO2 /00420-5236 *^ 000421 6230 RXM /00421-6230 2X 000422 3160 DCA BD /00422-3160 Y0 000423 4437 JMS I CKGDBD /00423-4437 $_ 000424 7410 SKP /00424-7410 <H 000425 5232 JMP T03ERR /00425-5232 *Z 000426 2166 ISZ CNT /00426-2166 Q6 000427 2107 ISZ COUNT /00427-2107 QG AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-8 000430 5206 JMP T03LP /00430-5206 *F 000431 5235 JMP T03GO2-1 /00431-5235 *] 000432 4446 T03ERR, JMS I ERRCGB /00432-4446 $& 000433 0406 0406 /00433-0406 DF 000434 0406 T03LP /00434-0406 DF 000435 5243 JMP T04GO /00435-5243 *# 000436 3160 T03GO2, DCA BD /00436-3160 Y0 000437 3157 DCA GD /00437-3157 Y/ 000440 4447 JMS I ERACGB /00440-4447 $' 000441 0400 0400 /00441-0400 D@ 000442 0406 T03LP /00442-0406 DF 000443 4433 T04GO, JMS I SETTST /00443-4433 $[ TEST 4 MAINT INTERRUPT 000444 7301 CLA CLL IAC /00444-7301 ;A 000445 3073 DCA WHATIS /00445-3073 X; 000446 4444 JMS I SETKT /00446-4444 $$ 000447 4040 EMM MAINT /00447-4040 000450 6202 CIF 0 /00450-6202 2B 000451 5252 JMP .+1 /00451-5252 ** 000452 7000 NOP /00452-7000 8@ 000453 2072 ISZ GOTUSR /00453-2072 P: 000454 5256 JMP .+2 /00454-5256 *. 000455 5261 JMP T05GO /00455-5261 *1 000456 4446 JMS I ERRCGB /00456-4446 $& 000457 7033 UINTCL /00457-7033 8[ 000460 0444 T04GO+1 /00460-0444 D$ 000461 4433 T05GO, JMS I SETTST /00461-4433 $[ TEST 5 MAINT NO EN59 000462 7300 CLA CLL /00462-7300 ;@ 000463 4444 JMS I SETKT /00463-4444 $$ 000464 4040 EMM MAINT /00464-4040 000465 3157 DCA GD /00465-3157 Y/ 000466 4453 JMS I CKBNKS /00466-4453 $+ 000467 1156 TAD BD1 /00467-1156 I. 000470 7650 SNA CLA /00470-7650 >( 000471 5275 JMP T06GO /00471-5275 *= 000472 4450 JMS I ERBNKS /00472-4450 $( 000473 0000 0000 /00473-0000 @@ 000474 0462 T05GO+1 /00474-0462 D2 000475 4433 T06GO, JMS I SETTST /00475-4433 $[ TEST 6 MAINT EN9 000476 7300 CLA CLL /00476-7300 ;@ 000477 4444 JMS I SETKT /00477-4444 $$ 000500 5040 EMM EN9 MAINT /00500-5040 ( 000501 7130 CLL CML RAR /00501-7130 9X 000502 3157 DCA GD /00502-3157 Y/ 000503 4453 JMS I CKBNKS /00503-4453 $+ 000504 1156 TAD BD1 /00504-1156 I. 000505 7041 CMA IAC /00505-7041 8! 000506 1157 TAD GD /00506-1157 I/ 000507 7650 SNA CLA /00507-7650 >( 000510 5314 JMP T07GO /00510-5314 +L 000511 4450 JMS I ERBNKS /00511-4450 $( 000512 0000 0000 /00512-0000 @@ 000513 0476 T06GO+1 /00513-0476 D> 000514 4433 T07GO, JMS I SETTST /00514-4433 $[ TEST 7 MAINT EN5 000515 4444 JMS I SETKT /00515-4444 $$ 000516 6040 EMM EN5 MAINT /00516-6040 0 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-9 000517 7332 CLA CLL CML RTR /00517-7332 ;Z 000520 3157 DCA GD /00520-3157 Y/ 000521 4453 JMS I CKBNKS /00521-4453 $+ 000522 1156 TAD BD1 /00522-1156 I. 000523 7041 CMA IAC /00523-7041 8! 000524 1157 TAD GD /00524-1157 I/ 000525 7650 SNA CLA /00525-7650 >( 000526 5332 JMP T10GO /00526-5332 +Z 000527 4450 JMS I ERBNKS /00527-4450 $( 000530 0000 0000 /00530-0000 @@ 000531 0515 T07GO+1 /00531-0515 EM 000532 4433 T10GO, JMS I SETTST /00532-4433 $[ TEST 10 MAINT EN59 000533 7300 CLA CLL /00533-7300 ;@ 000534 6200 LXM /00534-6200 2@ 000535 4444 JMS I SETKT /00535-4444 $$ 000536 7040 EMM EN5 EN9 MAINT /00536-7040 8 000537 1133 TAD O7000 /00537-1133 I[ 000540 3157 DCA GD /00540-3157 Y/ 000541 4453 JMS I CKBNKS /00541-4453 $+ 000542 1156 TAD BD1 /00542-1156 I. 000543 7041 CMA IAC /00543-7041 8! 000544 1157 TAD GD /00544-1157 I/ 000545 7650 SNA CLA /00545-7650 >( 000546 5352 JMP .+4 /00546-5352 +* 000547 4450 JMS I ERBNKS /00547-4450 $( 000550 0000 0000 /00550-0000 @@ 000551 0533 T10GO+1 /00551-0533 E[ 000552 5753 JMP I .+1 /00552-5753 /+ 000553 0600 T11GO /00553-0600 F@ 000554 0000 TELLX8, AND 0000 /00554-0000 @@ 000555 1022 TAD X8 /00555-1022 HR 000556 7700 SMA CLA /00556-7700 ?@ 000557 5754 JMP I TELLX8 /00557-5754 /, 000560 1103 TAD ERRLOC /00560-1103 IC 000561 6002 IOF /00561-6002 0B 000562 6201 CDF 0 /00562-6201 2A 000563 6272 CIF 70 /00563-6272 2: 000564 5765 JMP I .+1 /00564-5765 /5 000565 6520 6520 /00565-6520 5P 000566 0032 AND 0032 /00566-0032 @Z 000567 0522 AND I 0122 /00567-0522 ER 000570 1700 TAD I 0500 /00570-1700 O@ 000571 4000 JMS 0000 /00571-4000 @ 000572 0000 AND 0000 /00572-0000 @@ 000573 0000 AND 0000 /00573-0000 @@ 000574 0000 AND 0000 /00574-0000 @@ 000575 0000 AND 0000 /00575-0000 @@ 000576 0000 AND 0000 /00576-0000 @@ 000577 0000 AND 0000 /00577-0000 @@ 0600 PAGE 3 000600 4434 T11GO, JMS I SETINI /00600-4434 $\ Test 11 CDF>RIB 000601 4432 JMS I SETFLD /00601-4432 $Z AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-10 000602 4444 JMS I SETKT /00602-4444 $$ 000603 7040 EMM EN5 EN9 MAINT /00603-7040 8 000604 1110 TAD BANK3 /00604-1110 IH 000605 7104 CLL RAL /00605-7104 9D 000606 7002 BSW /00606-7002 8B 000607 1165 TAD FIELD7 /00607-1165 I5 000610 3157 DCA GD /00610-3157 Y/ 000611 4426 JMS I CDFION /00611-4426 $V 000612 4442 JMS I MAKCDF /00612-4442 $" 000613 6234 RIB /00613-6234 2\ 000614 3160 DCA BD /00614-3160 Y0 000615 4437 JMS I CKGDBD /00615-4437 $_ 000616 7410 SKP /00616-7410 <H 000617 5223 JMP .+4 /00617-5223 *S 000620 4435 JMS I NXTFLD /00620-4435 $] 000621 5202 JMP T11GO+2 /00621-5202 *B 000622 5226 JMP .+4 /00622-5226 *V 000623 4446 JMS I ERRCGB /00623-4446 $& 000624 0104 0104 /00624-0104 AD 000625 0602 T11GO+2 /00625-0602 FB 000626 4434 T12GO, JMS I SETINI /00626-4434 $\ Test 12 CDF>RMR 000627 4432 JMS I SETFLD /00627-4432 $Z 000630 4444 JMS I SETKT /00630-4444 $$ 000631 7040 EMM EN5 EN9 MAINT /00631-7040 8 000632 1167 TAD MRBITS /00632-1167 I7 000633 3157 DCA GD /00633-3157 Y/ 000634 4442 JMS I MAKCDF /00634-4442 $" 000635 7402 HLT /00635-7402 <B 000636 1533 TAD I O7000 /00636-1533 M[ 000637 7300 CLA CLL /00637-7300 ;@ 000640 6173 RMR /00640-6173 1; 000641 3160 DCA BD /00641-3160 Y0 000642 6203 CIF CDF 0 /00642-6203 2C 000643 4437 JMS I CKGDBD /00643-4437 $_ 000644 7410 SKP /00644-7410 <H 000645 5251 JMP .+4 /00645-5251 *) 000646 4435 JMS I NXTFLD /00646-4435 $] 000647 5230 JMP T12GO+2 /00647-5230 *X 000650 5254 JMP T13GO /00650-5254 *, 000651 4446 JMS I ERRCGB /00651-4446 $& 000652 0113 0113 /00652-0113 AK 000653 0630 T12GO+2 /00653-0630 FX 000654 4434 T13GO, JMS I SETINI /00654-4434 $\ Test 13 CDF>RDF 000655 4432 JMS I SETFLD /00655-4432 $Z 000656 4444 JMS I SETKT /00656-4444 $$ 000657 7040 EMM EN5 EN9 MAINT /00657-7040 8 000660 1112 TAD CDBITS /00660-1112 IJ 000661 3157 DCA GD /00661-3157 Y/ 000662 4442 JMS I MAKCDF /00662-4442 $" 000663 7402 HLT /00663-7402 <B 000664 6214 RDF /00664-6214 2L 000665 3160 DCA BD /00665-3160 Y0 000666 6203 CIF CDF 0 /00666-6203 2C 000667 4437 JMS I CKGDBD /00667-4437 $_ 000670 7410 SKP /00670-7410 <H AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-11 000671 5275 JMP .+4 /00671-5275 *= 000672 4435 JMS I NXTFLD /00672-4435 $] 000673 5256 JMP T13GO+2 /00673-5256 *. 000674 5300 JMP T14GO /00674-5300 +@ 000675 4446 JMS I ERRCGB /00675-4446 $& 000676 0102 0102 /00676-0102 AB 000677 0656 T13GO+2 /00677-0656 F. 000700 4434 T14GO, JMS I SETINI /00700-4434 $\ Test 14 RMF>RDF 000701 4432 JMS I SETFLD /00701-4432 $Z 000702 4444 JMS I SETKT /00702-4444 $$ 000703 7040 EMM EN5 EN9 MAINT /00703-7040 8 000704 1112 TAD CDBITS /00704-1112 IJ 000705 3157 DCA GD /00705-3157 Y/ 000706 4426 JMS I CDFION /00706-4426 $V 000707 4442 JMS I MAKCDF /00707-4442 $" 000710 6244 RMF /00710-6244 2$ 000711 7000 NOP /00711-7000 8@ 000712 6214 RDF /00712-6214 2L 000713 3160 DCA BD /00713-3160 Y0 000714 6203 CIF CDF 0 /00714-6203 2C 000715 4437 JMS I CKGDBD /00715-4437 $_ 000716 7610 SKP CLA /00716-7610 >H 000717 5323 JMP 0723 /00717-5323 +S 000720 4435 JMS I NXTFLD /00720-4435 $] 000721 5302 JMP T14GO+2 /00721-5302 +B 000722 5326 JMP .+4 /00722-5326 +V 000723 4446 JMS I ERRCGB /00723-4446 $& 000724 1302 1302 /00724-1302 KB 000725 0702 T14GO+2 /00725-0702 GB 000726 5727 JMP I .+1 /00726-5727 /W 000727 1000 T15GO /00727-1000 H@ 000730 0000 AND 0000 /00730-0000 @@ 000731 5730 JMP I 0730 /00731-5730 /X 000732 0000 SWIGET, AND 0000 /00732-0000 @@ 000733 7300 CLA CLL /00733-7300 ;@ 000734 1021 TAD SWISOF /00734-1021 HQ 000735 7710 SPA CLA /00735-7710 ?H 000736 7614 SKP CLA OSR /00736-7614 >L 000737 1020 TAD SWITCH /00737-1020 HP 000740 5732 JMP I SWIGET /00740-5732 /Z 000741 0000 IONCDF, AND 0000 /00741-0000 @@ 000742 7240 CLA CMA /00742-7240 : 000743 3070 DCA INTSWI /00743-3070 X8 000744 1741 TAD I IONCDF /00744-1741 O! 000745 2341 ISZ IONCDF /00745-2341 S! 000746 3347 DCA .+1 /00746-3347 [' 000747 7402 HLT /00747-7402 <B 000750 7402 HLT /00750-7402 <B 000751 6002 IOF /00751-6002 0B 000752 6040 TFL /00752-6040 0 000753 6001 ION /00753-6001 0A 000754 5355 JMP .+1 /00754-5355 +- AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-12 000755 7000 NOP /00755-7000 8@ 000756 1070 TAD INTSWI /00756-1070 H8 000757 7640 SZA CLA /00757-7640 > 000760 5362 JMP .+2 /00760-5362 +2 000761 5741 JMP I IONCDF /00761-5741 /! 000762 4454 JMS I PRTMSG /00762-4454 $, 000763 6561 INTNFN /00763-6561 51 000764 4431 JMS I HALTAT /00764-4431 $Y 000765 5741 JMP I IONCDF /00765-5741 /! 000766 7540 SMA SZA /00766-7540 = 000767 0777 AND I 0777 /00767-0777 G? 000770 0330 AND 0730 /00770-0330 CX 000771 7607 CLA DVI /00771-7607 >G 000772 0200 AND 0600 /00772-0200 B@ 000773 7746 SMA SZA CLA OSR HLT /00773-7746 ?& 000774 6003 SRQ /00774-6003 0C 000775 1357 TAD 0757 /00775-1357 K/ 000776 7605 CLA MUY /00776-7605 >E 000777 1000 TAD 0000 /00777-1000 H@ 1000 PAGE 4 001000 4434 T15GO, JMS I SETINI /01000-4434 $\ Test 15 CDF>GTF 001001 4432 JMS I SETFLD /01001-4432 $Z 001002 4444 JMS I SETKT /01002-4444 $$ 001003 7040 EMM EN5 EN9 MAINT /01003-7040 8 001004 1165 TAD FIELD7 /01004-1165 I5 001005 3157 DCA GD /01005-3157 Y/ 001006 4426 JMS I CDFION /01006-4426 $V 001007 4442 JMS I MAKCDF /01007-4442 $" 001010 6004 GTF /01010-6004 0D 001011 0123 AND O77 /01011-0123 AS 001012 3160 DCA BD /01012-3160 Y0 001013 6203 CIF CDF 0 /01013-6203 2C 001014 4437 JMS I CKGDBD /01014-4437 $_ 001015 7410 SKP /01015-7410 <H 001016 5222 JMP .+4 /01016-5222 *R 001017 4435 JMS I NXTFLD /01017-4435 $] 001020 5202 JMP T15GO+2 /01020-5202 *B 001021 5225 JMP T16GO /01021-5225 *U 001022 4446 JMS I ERRCGB /01022-4446 $& 001023 0101 0101 /01023-0101 AA 001024 1002 T15GO+2 /01024-1002 HB 001025 4433 T16GO, JMS I SETTST /01025-4433 $[ Test 16 RTF>RMR 001026 4432 JMS I SETFLD /01026-4432 $Z 001027 4444 JMS I SETKT /01027-4444 $$ 001030 7040 EMM EN5 EN9 MAINT /01030-7040 8 001031 1167 TAD MRBITS /01031-1167 I7 001032 3157 DCA GD /01032-3157 Y/ 001033 6002 IOF /01033-6002 0B 001034 1165 TAD FIELD7 /01034-1165 I5 001035 6005 RTF /01035-6005 0E 001036 7000 NOP /01036-7000 8@ 001037 6000 SKON /01037-6000 0@ 001040 5261 JMP T16ER /01040-5261 *1 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-13 001041 6001 ION /01041-6001 0A 001042 1533 TAD I O7000 /01042-1533 M[ 001043 7300 CLA CLL /01043-7300 ;@ 001044 6173 RMR /01044-6173 1; 001045 3160 DCA BD /01045-3160 Y0 001046 6203 CIF CDF 0 /01046-6203 2C 001047 4437 JMS I CKGDBD /01047-4437 $_ 001050 7410 SKP /01050-7410 <H 001051 5255 JMP .+4 /01051-5255 *- 001052 4435 JMS I NXTFLD /01052-4435 $] 001053 5227 JMP T16GO+2 /01053-5227 *W 001054 5260 JMP .+4 /01054-5260 *0 001055 4446 JMS I ERRCGB /01055-4446 $& 001056 0513 0513 /01056-0513 EK 001057 1027 T16GO+2 /01057-1027 HW 001060 5264 JMP T17GO /01060-5264 *4 001061 4446 T16ER, JMS I ERRCGB /01061-4446 $& 001062 7013 7013 /01062-7013 8K 001063 1027 T16GO+2 /01063-1027 HW 001064 4434 T17GO, JMS I SETINI /01064-4434 $\ Test 17 CDF>GTS 001065 4432 JMS I SETFLD /01065-4432 $Z 001066 4444 JMS I SETKT /01066-4444 $$ 001067 7040 EMM EN5 EN9 MAINT /01067-7040 8 001070 1110 TAD BANK3 /01070-1110 IH 001071 7104 CLL RAL /01071-7104 9D 001072 7002 BSW /01072-7002 8B 001073 1165 TAD FIELD7 /01073-1165 I5 001074 3157 DCA GD /01074-3157 Y/ 001075 4426 JMS I CDFION /01075-4426 $V 001076 4442 JMS I MAKCDF /01076-4442 $" 001077 6210 GTS /01077-6210 2H 001100 3160 DCA BD /01100-3160 Y0 001101 6203 CIF CDF 0 /01101-6203 2C 001102 4437 JMS I CKGDBD /01102-4437 $_ 001103 7410 SKP /01103-7410 <H 001104 5310 JMP .+4 /01104-5310 +H 001105 4435 JMS I NXTFLD /01105-4435 $] 001106 5266 JMP T17GO+2 /01106-5266 *6 001107 5313 JMP T20GO /01107-5313 +K 001110 4446 JMS I ERRCGB /01110-4446 $& 001111 0105 0105 /01111-0105 AE 001112 1066 T17GO+2 /01112-1066 H6 001113 4434 T20GO, JMS I SETINI /01113-4434 $\ Test 20 RTS>RMR 001114 4432 JMS I SETFLD /01114-4432 $Z 001115 4444 JMS I SETKT /01115-4444 $$ 001116 7040 EMM EN5 EN9 MAINT /01116-7040 8 001117 1167 TAD MRBITS /01117-1167 I7 001120 3157 DCA GD /01120-3157 Y/ 001121 1110 TAD BANK3 /01121-1110 IH 001122 7104 CLL RAL /01122-7104 9D 001123 7002 BSW /01123-7002 8B 001124 1165 TAD FIELD7 /01124-1165 I5 001125 6220 RTS /01125-6220 2P 001126 7440 SZA /01126-7440 < 001127 5347 JMP T20ER /01127-5347 +' AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-14 001130 1533 TAD I O7000 /01130-1533 M[ 001131 7300 CLA CLL /01131-7300 ;@ 001132 6173 RMR /01132-6173 1; 001133 3160 DCA BD /01133-3160 Y0 001134 6203 CIF CDF 0 /01134-6203 2C 001135 4437 JMS I CKGDBD /01135-4437 $_ 001136 7410 SKP /01136-7410 <H 001137 5343 JMP T20ER0 /01137-5343 +# 001140 4435 JMS I NXTFLD /01140-4435 $] 001141 5315 JMP T20GO+2 /01141-5315 +M 001142 5346 JMP T20ER-1 /01142-5346 +& 001143 4446 T20ER0, JMS I ERRCGB /01143-4446 $& 001144 0613 0613 /01144-0613 FK 001145 1115 T20GO+2 /01145-1115 IM 001146 5354 JMP T21GO /01146-5354 +, 001147 3160 T20ER, DCA BD /01147-3160 Y0 001150 3157 DCA GD /01150-3157 Y/ 001151 4447 JMS I ERACGB /01151-4447 $' 001152 0600 0600 /01152-0600 F@ 001153 1115 T20GO+2 /01153-1115 IM 001154 4433 T21GO, JMS I SETTST /01154-4433 $[ TEST 21 LINK->RTF 001155 4777 JMS I (CLRMEM /01155-4777 '? 001156 1361 TAD T21IN /01156-1361 K1 001157 3066 DCA GO /01157-3066 X6 001160 5761 JMP I T21IN /01160-5761 /1 001161 1200 T21IN, T21NX /01161-1200 J@ 001162 5475 JMP I 0075 /01162-5475 ,= 001163 6211 CDF 10 /01163-6211 2I 001164 3441 DCA I 0041 /01164-3441 \! 001165 5361 JMP 1161 /01165-5361 +1 001166 1253 TAD 1053 /01166-1253 J+ 001167 1074 TAD IONTTY /01167-1074 H< 001170 3034 DCA 0034 /01170-3034 X\ 001171 4776 JMS I 1176 /01171-4776 '> 001172 1073 TAD 0073 /01172-1073 H; 001173 4423 JMS I 0023 /01173-4423 $S 001174 5766 JMP I 1166 /01174-5766 /6 001175 7575 MQA MQL DCM /01175-7575 == 001176 1262 TAD 1062 /01176-1262 J2 /JMP I 1134 /01177-5734 /\ 001177 5734 1200 PAGE 5 001200 7300 T21NX, CLA CLL /01200-7300 ;@ 001201 4444 JMS I SETKT /01201-4444 $$ 001202 4000 EMM /01202-4000 @ 001203 7130 T21SL, CLL CML RAR /01203-7130 9X 001204 6005 RTF /01204-6005 0E 001205 7430 SZL /01205-7430 <X 001206 5212 JMP .+4 /01206-5212 *J 001207 4446 JMS I ERRCGB /01207-4446 $& 001210 6721 LNKSET /01210-6721 7Q 001211 1203 T21SL /01211-1203 JC 001212 7320 T21CL, CLA CLL CML /01212-7320 ;P 001213 6005 RTF /01213-6005 0E AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-15 001214 7420 SNL /01214-7420 <P 001215 5221 JMP T22GO /01215-5221 *Q 001216 4446 JMS I ERRCGB /01216-4446 $& 001217 6733 LNKCLR /01217-6733 7[ 001220 1212 T21CL /01220-1212 JJ 001221 4433 T22GO, JMS I SETTST /01221-4433 $[ TEST 22 CIF->RIB 001222 7300 CLA CLL /01222-7300 ;@ 001223 4432 JMS I SETFLD /01223-4432 $Z 001224 4444 JMS I SETKT /01224-4444 $$ 001225 7040 EMM EN5 EN9 MAINT /01225-7040 8 001226 1110 TAD BANK3 /01226-1110 IH 001227 7002 BSW /01227-7002 8B 001230 1165 TAD FIELD7 /01230-1165 I5 001231 7106 CLL RTL /01231-7106 9F 001232 7004 RAL /01232-7004 8D 001233 3157 DCA GD /01233-3157 Y/ 001234 4427 JMS I CIFION /01234-4427 $W 001235 4443 JMS I MAKCIF /01235-4443 $# 001236 6234 RIB /01236-6234 2\ 001237 3160 DCA BD /01237-3160 Y0 001240 4437 JMS I CKGDBD /01240-4437 $_ 001241 7410 SKP /01241-7410 <H 001242 5246 JMP .+4 /01242-5246 *& 001243 4435 JMS I NXTFLD /01243-4435 $] 001244 5224 JMP T22GO+3 /01244-5224 *T 001245 5251 JMP T23GO /01245-5251 *) 001246 4446 JMS I ERRCGB /01246-4446 $& 001247 0204 0204 /01247-0204 BD 001250 1224 T22GO+3 /01250-1224 JT 001251 4434 T23GO, JMS I SETINI /01251-4434 $\ TEST 23 CIF->RMR 001252 4432 JMS I SETFLD /01252-4432 $Z 001253 4444 JMS I SETKT /01253-4444 $$ 001254 7040 EMM EN5 EN9 MAINT /01254-7040 8 001255 1167 TAD MRBITS /01255-1167 I7 001256 3157 DCA GD /01256-3157 Y/ 001257 4443 JMS I MAKCIF /01257-4443 $# 001260 7402 HLT /01260-7402 <B 001261 5262 JMP .+1 /01261-5262 *2 001262 7000 NOP /01262-7000 8@ 001263 1111 TAD MAINTR /01263-1111 II 001264 3160 DCA BD /01264-3160 Y0 001265 4437 JMS I CKGDBD /01265-4437 $_ 001266 7410 SKP /01266-7410 <H 001267 5273 JMP .+4 /01267-5273 *; 001270 4435 JMS I NXTFLD /01270-4435 $] 001271 5253 JMP T23GO+2 /01271-5253 *+ 001272 5276 JMP T24GO /01272-5276 *> 001273 4446 JMS I ERRCGB /01273-4446 $& 001274 0213 0213 /01274-0213 BK 001275 1253 TAD T23GO+2 /01275-1253 J+ 001276 4434 T24GO, JMS I SETINI /01276-4434 $\ TEST 24 CIF->RMF 001277 4432 JMS I SETFLD /01277-4432 $Z 001300 7300 CLA CLL /01300-7300 ;@ 001301 4444 JMS I SETKT /01301-4444 $$ 001302 7040 EMM EN5 EN9 MAINT /01302-7040 8 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-16 001303 4427 JMS I CIFION /01303-4427 $W 001304 4443 JMS I MAKCIF /01304-4443 $# 001305 6244 RMF /01305-6244 2$ 001306 5307 JMP .+1 /01306-5307 +G 001307 7000 NOP /01307-7000 8@ 001310 1111 TAD MAINTR /01310-1111 II 001311 3160 DCA BD /01311-3160 Y0 001312 6203 CIF CDF 0 /01312-6203 2C 001313 1167 TAD MRBITS /01313-1167 I7 001314 3157 DCA GD /01314-3157 Y/ 001315 4437 JMS I CKGDBD /01315-4437 $_ 001316 7610 SKP CLA /01316-7610 >H 001317 5323 JMP .+4 /01317-5323 +S 001320 4435 JMS I NXTFLD /01320-4435 $] 001321 5300 JMP T24GO+2 /01321-5300 +@ 001322 5326 JMP T25GO /01322-5326 +V 001323 4446 JMS I ERRCGB /01323-4446 $& 001324 1313 1313 /01324-1313 KK 001325 1300 T24GO+2 /01325-1300 K@ 001326 4433 T25GO, JMS I SETTST /01326-4433 $[ TEST 25 CIF->GTF 001327 4432 JMS I SETFLD /01327-4432 $Z 001330 4444 JMS I SETKT /01330-4444 $$ 001331 7040 EMM EN5 EN9 MAINT /01331-7040 8 001332 1112 TAD CDBITS /01332-1112 IJ 001333 0122 AND O70 /01333-0122 AR 001334 3157 DCA GD /01334-3157 Y/ 001335 4427 JMS I CIFION /01335-4427 $W 001336 4443 JMS I MAKCIF /01336-4443 $# 001337 6004 GTF /01337-6004 0D 001340 0123 AND O77 /01340-0123 AS 001341 3160 DCA BD /01341-3160 Y0 001342 6203 CIF CDF 0 /01342-6203 2C 001343 4437 JMS I CKGDBD /01343-4437 $_ 001344 7410 SKP /01344-7410 <H 001345 5351 JMP .+4 /01345-5351 +) 001346 4435 JMS I NXTFLD /01346-4435 $] 001347 5330 JMP T25GO+2 /01347-5330 +X 001350 5354 JMP 1354 /01350-5354 +, 001351 4446 JMS I ERRCGB /01351-4446 $& 001352 0201 0201 /01352-0201 BA 001353 1330 T25GO+2 /01353-1330 KX 001354 5755 JMP I .+1 /01354-5755 /- 001355 1400 T26GO /01355-1400 L@ 001356 5352 JMP 1352 /01356-5352 +* 001357 4501 JMS I 0101 /01357-4501 %A 001360 5557 JMP I 0157 /01360-5557 -/ 001361 0000 AND 0000 /01361-0000 @@ 001362 1064 TAD 0064 /01362-1064 H4 001363 4551 JMS I 0151 /01363-4551 %) 001364 1063 TAD 0063 /01364-1063 H3 001365 3375 DCA 1375 /01365-3375 [= 001366 5372 JMP 1372 /01366-5372 +: 001367 1031 TAD 0031 /01367-1031 HY 001370 7650 SNA CLA /01370-7650 >( AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-17 001371 5462 JMP I 0062 /01371-5462 ,2 001372 4562 JMS I 0162 /01372-4562 %2 001373 0201 AND 1201 /01373-0201 BA 001374 0400 AND I 0000 /01374-0400 D@ 001375 0067 AND 0067 /01375-0067 @7 001376 5001 JMP 0001 /01376-5001 (A 001377 5461 JMP I 0061 /01377-5461 ,1 1400 PAGE 6 001400 4434 T26GO, JMS I SETINI /01400-4434 $\ TEST 26 CIF->GTS 001401 4432 JMS I SETFLD /01401-4432 $Z 001402 4444 JMS I SETKT /01402-4444 $$ 001403 7040 EMM EN5 EN9 MAINT /01403-7040 8 001404 1110 TAD BANK3 /01404-1110 IH 001405 7002 BSW /01405-7002 8B 001406 1165 TAD FIELD7 /01406-1165 I5 001407 7106 CLL RTL /01407-7106 9F 001410 7004 RAL /01410-7004 8D 001411 3157 DCA GD /01411-3157 Y/ 001412 4427 JMS I CIFION /01412-4427 $W 001413 4443 JMS I MAKCIF /01413-4443 $# 001414 6210 GTS /01414-6210 2H 001415 3160 DCA BD /01415-3160 Y0 001416 6203 CIF CDF 0 /01416-6203 2C 001417 4437 JMS I CKGDBD /01417-4437 $_ 001420 7410 SKP /01420-7410 <H 001421 5225 JMP .+4 /01421-5225 *U 001422 4435 JMS I NXTFLD /01422-4435 $] 001423 5202 JMP T26GO+2 /01423-5202 *B 001424 5230 JMP T27GO /01424-5230 *X 001425 4446 JMS I ERRCGB /01425-4446 $& 001426 0205 0205 /01426-0205 BE 001427 1402 T26GO+2 /01427-1402 LB 001430 4433 T27GO, JMS I SETTST /01430-4433 $[ TEST 27 CDF,LINK->GTF 001431 4444 JMS I SETKT /01431-4444 $$ 001432 4000 EMM /01432-4000 @ 001433 3112 DCA CDBITS /01433-3112 YJ 001434 7300 CLA CLL /01434-7300 ;@ 001435 4426 T27LP, JMS I CDFION /01435-4426 $V 001436 4442 JMS I MAKCDF /01436-4442 $" 001437 6004 GTF /01437-6004 0D 001440 0132 AND O4000 /01440-0132 AZ 001441 3160 DCA BD /01441-3160 Y0 001442 3157 DCA GD /01442-3157 Y/ 001443 4437 JMS I CKGDBD /01443-4437 $_ 001444 7610 SKP CLA /01444-7610 >H 001445 5260 JMP T27ER /01445-5260 *0 001446 7320 CLA CLL CML /01446-7320 ;P 001447 4426 JMS I CDFION /01447-4426 $V 001450 4442 JMS I MAKCDF /01450-4442 $" 001451 6004 GTF /01451-6004 0D 001452 0132 AND O4000 /01452-0132 AZ 001453 3160 DCA BD /01453-3160 Y0 001454 7330 CLA CLL CML RAR /01454-7330 ;X 001455 3157 DCA GD /01455-3157 Y/ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-18 001456 4437 JMS I CKGDBD /01456-4437 $_ 001457 5263 JMP T30GO /01457-5263 *3 001460 4446 T27ER, JMS I ERRCGB /01460-4446 $& 001461 1701 1701 /01461-1701 OA 001462 1435 T27LP /01462-1435 L] 001463 4433 T30GO, JMS I SETTST /01463-4433 $[ TEST 30 CDF,LINK->GTS 001464 4444 JMS I SETKT /01464-4444 $$ 001465 4000 EMM /01465-4000 @ 001466 7300 CLA CLL /01466-7300 ;@ 001467 4426 T30LP, JMS I CDFION /01467-4426 $V 001470 4442 JMS I MAKCDF /01470-4442 $" 001471 6210 GTS /01471-6210 2H 001472 3160 DCA BD /01472-3160 Y0 001473 3157 DCA GD /01473-3157 Y/ 001474 4437 JMS I CKGDBD /01474-4437 $_ 001475 7610 SKP CLA /01475-7610 >H 001476 5310 JMP T30ER /01476-5310 +H 001477 7320 CLA CLL CML /01477-7320 ;P 001500 4426 JMS I CDFION /01500-4426 $V 001501 4442 JMS I MAKCDF /01501-4442 $" 001502 6210 GTS /01502-6210 2H 001503 3160 DCA BD /01503-3160 Y0 001504 7330 CLA CLL CML RAR /01504-7330 ;X 001505 3157 DCA GD /01505-3157 Y/ 001506 4437 JMS I CKGDBD /01506-4437 $_ 001507 5313 JMP T31GO /01507-5313 +K 001510 4446 T30ER, JMS I ERRCGB /01510-4446 $& 001511 1705 1705 /01511-1705 OE 001512 1467 T30LP /01512-1467 L7 001513 4433 T31GO, JMS I SETTST /01513-4433 $[ TEST 31 RTF->RMR 001514 4432 JMS I SETFLD /01514-4432 $Z 001515 4444 JMS I SETKT /01515-4444 $$ 001516 7040 EMM EN5 EN9 MAINT /01516-7040 8 001517 1167 TAD MRBITS /01517-1167 I7 001520 3157 DCA GD /01520-3157 Y/ 001521 6002 IOF /01521-6002 0B 001522 1112 TAD CDBITS /01522-1112 IJ 001523 6005 RTF /01523-6005 0E 001524 7000 NOP /01524-7000 8@ 001525 6000 SKON /01525-6000 0@ 001526 5347 JMP T31ERI /01526-5347 +' 001527 6001 ION /01527-6001 0A 001530 5331 JMP .+1 /01530-5331 +Y 001531 7000 NOP /01531-7000 8@ 001532 1111 TAD MAINTR /01532-1111 II 001533 3160 DCA BD /01533-3160 Y0 001534 6203 CIF CDF 0 /01534-6203 2C 001535 4437 JMS I CKGDBD /01535-4437 $_ 001536 7410 SKP /01536-7410 <H 001537 5343 JMP .+4 /01537-5343 +# 001540 4435 JMS I NXTFLD /01540-4435 $] 001541 5315 JMP T31GO+2 /01541-5315 +M 001542 5346 JMP .+4 /01542-5346 +& 001543 4446 JMS I ERRCGB /01543-4446 $& 001544 0513 0513 /01544-0513 EK AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-19 001545 1515 T31GO+2 /01545-1515 MM 001546 5352 JMP .+4 /01546-5352 +* 001547 4446 T31ERI, JMS I ERRCGB /01547-4446 $& 001550 7013 RTFINT /01550-7013 8K 001551 1515 T31GO+2 /01551-1515 MM 001552 5753 JMP I .+1 /01552-5753 /+ 001553 1600 T32GO /01553-1600 N@ 001554 0000 AND 0000 /01554-0000 @@ 001555 4426 JMS I 0026 /01555-4426 $V 001556 4101 JMS 0101 /01556-4101 !A 001557 0600 AND I 1400 /01557-0600 F@ 001560 0000 AND 0000 /01560-0000 @@ 001561 5367 JMP 1567 /01561-5367 +7 001562 1356 TAD 1556 /01562-1356 K. 001563 4776 JMS I 1576 /01563-4776 '> 001564 1360 TAD 1560 /01564-1360 K0 001565 3360 DCA 1560 /01565-3360 [0 001566 5754 JMP I 1554 /01566-5754 /, 001567 4500 JMS I 0100 /01567-4500 %@ 001570 2301 ISZ 1501 /01570-2301 SA 001571 2605 ISZ I 1405 /01571-2605 VE 001572 4005 JMS 0005 /01572-4005 E 001573 2222 ISZ 1422 /01573-2222 RR 001574 1722 TAD I 1522 /01574-1722 OR 001575 0000 AND 0000 /01575-0000 @@ 001576 1765 TAD I 1565 /01576-1765 O5 001577 7110 CLL RAR /01577-7110 9H 1600 PAGE 7 001600 4434 T32GO, JMS I SETINI /01600-4434 $\ TEST 32 RTS->RMR 001601 4432 JMS I SETFLD /01601-4432 $Z 001602 4444 JMS I SETKT /01602-4444 $$ 001603 7040 EMM EN5 EN9 MAINT /01603-7040 8 001604 1167 TAD MRBITS /01604-1167 I7 001605 3157 DCA GD /01605-3157 Y/ 001606 1110 TAD BANK3 /01606-1110 IH 001607 7104 CLL RAL /01607-7104 9D 001610 7006 RTL /01610-7006 8F 001611 7002 BSW /01611-7002 8B 001612 1112 TAD CDBITS /01612-1112 IJ 001613 0377 AND (7770 /01613-0377 C? 001614 6220 RTS /01614-6220 2P 001615 7440 SZA /01615-7440 < 001616 5235 JMP 1635 /01616-5235 *] 001617 5220 JMP .+1 /01617-5220 *P 001620 7000 NOP /01620-7000 8@ 001621 1111 TAD MAINTR /01621-1111 II 001622 3160 DCA BD /01622-3160 Y0 001623 4437 JMS I CKGDBD /01623-4437 $_ 001624 7410 SKP /01624-7410 <H 001625 5231 JMP 1631 /01625-5231 *Y 001626 4435 JMS I NXTFLD /01626-4435 $] 001627 5202 JMP T32GO+2 /01627-5202 *B 001630 5234 JMP .+4 /01630-5234 *\ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-20 001631 4446 JMS I ERRCGB /01631-4446 $& 001632 0613 0613 /01632-0613 FK 001633 1602 T32GO+2 /01633-1602 NB 001634 5242 JMP 1642 /01634-5242 *" 001635 3160 DCA BD /01635-3160 Y0 001636 3157 DCA GD /01636-3157 Y/ 001637 4447 JMS I ERACGB /01637-4447 $' 001640 0600 0600 /01640-0600 F@ 001641 1602 T32GO+2 /01641-1602 NB 001642 4433 T33GO, JMS I SETTST /01642-4433 $[ TEST 33 CDI->RIB 001643 4432 JMS I SETFLD /01643-4432 $Z 001644 4444 JMS I SETKT /01644-4444 $$ 001645 7040 EMM EN5 EN9 MAINT /01645-7040 8 001646 1112 TAD CDBITS /01646-1112 IJ 001647 0122 AND O70 /01647-0122 AR 001650 1165 TAD FIELD7 /01650-1165 I5 001651 3157 DCA GD /01651-3157 Y/ 001652 1110 TAD BANK3 /01652-1110 IH 001653 7106 CLL RTL /01653-7106 9F 001654 1110 TAD BANK3 /01654-1110 IH 001655 7004 RAL /01655-7004 8D 001656 7002 BSW /01656-7002 8B 001657 1157 TAD GD /01657-1157 I/ 001660 3157 DCA GD /01660-3157 Y/ 001661 4427 JMS I CIFION /01661-4427 $W 001662 4441 JMS I MAKCDI /01662-4441 $! 001663 6234 RIB /01663-6234 2\ 001664 3160 DCA BD /01664-3160 Y0 001665 6203 CIF CDF 0 /01665-6203 2C 001666 4437 JMS I CKGDBD /01666-4437 $_ 001667 7410 SKP /01667-7410 <H 001670 5274 JMP .+4 /01670-5274 *< 001671 4435 JMS I NXTFLD /01671-4435 $] 001672 5244 JMP T33GO+2 /01672-5244 *$ 001673 5277 JMP T34GO /01673-5277 *? 001674 4446 JMS I ERRCGB /01674-4446 $& 001675 0304 0304 /01675-0304 CD 001676 1644 T33GO+2 /01676-1644 N$ 001677 4434 T34GO, JMS I SETINI /01677-4434 $\ TEST 34 CDI->RDF 001700 4432 JMS I SETFLD /01700-4432 $Z 001701 4444 JMS I SETKT /01701-4444 $$ 001702 7040 EMM EN5 EN9 MAINT /01702-7040 8 001703 1112 TAD CDBITS /01703-1112 IJ 001704 3157 DCA GD /01704-3157 Y/ 001705 4441 JMS I MAKCDI /01705-4441 $! 001706 7402 HLT /01706-7402 <B 001707 6214 RDF /01707-6214 2L 001710 3160 DCA BD /01710-3160 Y0 001711 6203 CIF CDF 0 /01711-6203 2C 001712 4437 JMS I CKGDBD /01712-4437 $_ 001713 7410 SKP /01713-7410 <H 001714 5320 JMP 1720 /01714-5320 +P 001715 4435 JMS I NXTFLD /01715-4435 $] 001716 5301 JMP T34GO+2 /01716-5301 +A 001717 5323 JMP T35GO /01717-5323 +S AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-21 001720 4446 JMS I ERRCGB /01720-4446 $& 001721 0302 0302 /01721-0302 CB 001722 1701 T34GO+2 /01722-1701 OA 001723 4434 T35GO, JMS I SETINI /01723-4434 $\ TEST 35 CDF->RMR 001724 4432 JMS I SETFLD /01724-4432 $Z 001725 4444 JMS I SETKT /01725-4444 $$ 001726 7040 EMM EN5 EN9 MAINT /01726-7040 8 001727 1167 TAD MRBITS /01727-1167 I7 001730 3157 DCA GD /01730-3157 Y/ 001731 4441 JMS I MAKCDI /01731-4441 $! 001732 7402 HLT /01732-7402 <B 001733 1533 TAD I O7000 /01733-1533 M[ 001734 7300 CLA CLL /01734-7300 ;@ 001735 6173 RMR /01735-6173 1; 001736 3160 DCA BD /01736-3160 Y0 001737 6203 CIF CDF 0 /01737-6203 2C 001740 4437 JMS I CKGDBD /01740-4437 $_ 001741 7410 SKP /01741-7410 <H 001742 5346 JMP 1746 /01742-5346 +& 001743 4435 JMS I NXTFLD /01743-4435 $] 001744 5325 JMP T35GO+2 /01744-5325 +U 001745 5351 JMP .+4 /01745-5351 +) 001746 4446 JMS I ERRCGB /01746-4446 $& 001747 0113 0113 /01747-0113 AK 001750 1725 T35GO+2 /01750-1725 OU 001751 5752 JMP I .+1 /01751-5752 /* 001752 2000 T36GO /01752-2000 P@ 001753 5324 JMP 1724 /01753-5324 +T 001754 6212 CIF 10 /01754-6212 2J 001755 4763 JMS I 1763 /01755-4763 '3 001756 0007 AND 0007 /01756-0007 @G 001757 0000 AND 0000 /01757-0000 @@ 001760 7404 OSR /01760-7404 <D 001761 7400 7400 /01761-7400 <@ 001762 7762 SMA SZA SNL CLA HLT /01762-7762 ?2 001763 7700 SMA CLA /01763-7700 ?@ 001764 0000 AND 0000 /01764-0000 @@ 001765 0000 AND 0000 /01765-0000 @@ 001766 7112 CLL RTR /01766-7112 9J 001767 7012 RTR /01767-7012 8J 001770 7012 RTR /01770-7012 8J 001771 0377 AND 1777 /01771-0377 C? 001772 7450 SNA /01772-7450 <( 001773 1377 TAD 1777 /01773-1377 K? 001774 7001 IAC /01774-7001 8A 001775 7110 CLL RAR /01775-7110 9H 001776 5765 JMP I 1765 /01776-5765 /5 /SPA SNA SZL CLA /01777-7770 ?8 001777 7770 2000 PAGE 10 002000 4434 T36GO, JMS I SETINI /02000-4434 $\ TEST 36 RMF->RDF 002001 4432 JMS I SETFLD /02001-4432 $Z 002002 7300 CLA CLL /02002-7300 ;@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-22 002003 4444 JMS I SETKT /02003-4444 $$ 002004 7040 EMM EN5 EN9 MAINT /02004-7040 8 002005 1112 TAD CDBITS /02005-1112 IJ 002006 3157 DCA GD /02006-3157 Y/ 002007 4427 JMS I CIFION /02007-4427 $W 002010 4441 JMS I MAKCDI /02010-4441 $! 002011 6244 RMF /02011-6244 2$ 002012 6214 RDF /02012-6214 2L 002013 3160 DCA BD /02013-3160 Y0 002014 5215 JMP .+1 /02014-5215 *M 002015 7000 NOP /02015-7000 8@ 002016 1111 TAD MAINTR /02016-1111 II 002017 3076 DCA TMP /02017-3076 X> 002020 6203 CIF CDF 0 /02020-6203 2C 002021 4437 JMS I CKGDBD /02021-4437 $_ 002022 7610 SKP CLA /02022-7610 >H 002023 5237 JMP T36ER1 /02023-5237 *_ 002024 1167 TAD MRBITS /02024-1167 I7 002025 3157 DCA GD /02025-3157 Y/ 002026 1076 TAD TMP /02026-1076 H> 002027 3160 DCA BD /02027-3160 Y0 002030 6203 CIF CDF 0 /02030-6203 2C 002031 4437 JMS I CKGDBD /02031-4437 $_ 002032 7610 SKP CLA /02032-7610 >H 002033 5243 JMP T36ER2 /02033-5243 *# 002034 4435 JMS I NXTFLD /02034-4435 $] 002035 5202 JMP T36GO+2 /02035-5202 *B 002036 5242 JMP 2042 /02036-5242 *" 002037 4446 T36ER1, JMS I ERRCGB /02037-4446 $& 002040 1302 1302 /02040-1302 KB 002041 2002 T36GO+2 /02041-2002 PB 002042 5246 JMP T37GO /02042-5246 *& 002043 4446 T36ER2, JMS I ERRCGB /02043-4446 $& 002044 1313 1313 /02044-1313 KK 002045 2002 T36GO+2 /02045-2002 PB 002046 4434 T37GO, JMS I SETINI /02046-4434 $\ TEST 37 CDI->GTF 002047 4432 JMS I SETFLD /02047-4432 $Z 002050 4444 JMS I SETKT /02050-4444 $$ 002051 7040 EMM EN5 EN9 MAINT /02051-7040 8 002052 1112 TAD CDBITS /02052-1112 IJ 002053 0122 AND O70 /02053-0122 AR 002054 1165 TAD FIELD7 /02054-1165 I5 002055 3157 DCA GD /02055-3157 Y/ 002056 4427 JMS I CIFION /02056-4427 $W 002057 4441 JMS I MAKCDI /02057-4441 $! 002060 6004 GTF /02060-6004 0D 002061 0123 AND O77 /02061-0123 AS 002062 3160 DCA BD /02062-3160 Y0 002063 6203 CIF CDF 0 /02063-6203 2C 002064 4437 JMS I CKGDBD /02064-4437 $_ 002065 7410 SKP /02065-7410 <H 002066 5272 JMP .+4 /02066-5272 *: 002067 4435 JMS I NXTFLD /02067-4435 $] 002070 5250 JMP T37GO+2 /02070-5250 *( 002071 5275 JMP T40GO /02071-5275 *= AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-23 002072 4446 JMS I ERRCGB /02072-4446 $& 002073 0301 0301 /02073-0301 CA 002074 2050 T37GO+2 /02074-2050 P( 002075 4434 T40GO, JMS I SETINI /02075-4434 $\ TEST 40 CDI->GTS 002076 4432 JMS I SETFLD /02076-4432 $Z 002077 4444 JMS I SETKT /02077-4444 $$ 002100 7040 EMM EN5 EN9 MAINT /02100-7040 8 002101 1112 TAD CDBITS /02101-1112 IJ 002102 0122 AND O70 /02102-0122 AR 002103 1165 TAD FIELD7 /02103-1165 I5 002104 3157 DCA GD /02104-3157 Y/ 002105 1110 TAD BANK3 /02105-1110 IH 002106 7106 CLL RTL /02106-7106 9F 002107 1110 TAD BANK3 /02107-1110 IH 002110 7004 RAL /02110-7004 8D 002111 7002 BSW /02111-7002 8B 002112 1157 TAD GD /02112-1157 I/ 002113 3157 DCA GD /02113-3157 Y/ 002114 4427 JMS I CIFION /02114-4427 $W 002115 4441 JMS I MAKCDI /02115-4441 $! 002116 6210 GTS /02116-6210 2H 002117 3160 DCA BD /02117-3160 Y0 002120 6203 CIF CDF 0 /02120-6203 2C 002121 4437 JMS I CKGDBD /02121-4437 $_ 002122 7410 SKP /02122-7410 <H 002123 5327 JMP .+4 /02123-5327 +W 002124 4435 JMS I NXTFLD /02124-4435 $] 002125 5277 JMP T40GO+2 /02125-5277 *? 002126 5332 JMP T41GO /02126-5332 +Z 002127 4446 JMS I ERRCGB /02127-4446 $& 002130 0305 0305 /02130-0305 CE 002131 2077 T40GO+2 /02131-2077 P? 002132 4433 T41GO, JMS I SETTST /02132-4433 $[ TEST 41 RTF->RMR 002133 4432 JMS I SETFLD /02133-4432 $Z 002134 4444 JMS I SETKT /02134-4444 $$ 002135 7040 EMM EN5 EN9 MAINT /02135-7040 8 002136 1167 TAD MRBITS /02136-1167 I7 002137 3157 DCA GD /02137-3157 Y/ 002140 6002 IOF /02140-6002 0B 002141 1112 TAD CDBITS /02141-1112 IJ 002142 0122 AND O70 /02142-0122 AR 002143 1165 TAD FIELD7 /02143-1165 I5 002144 6005 RTF /02144-6005 0E 002145 7000 NOP /02145-7000 8@ 002146 6000 SKON /02146-6000 0@ 002147 5370 JMP T41ER2 /02147-5370 +8 002150 6001 ION /02150-6001 0A 002151 1533 TAD I O7000 /02151-1533 M[ 002152 7300 CLA CLL /02152-7300 ;@ 002153 6173 RMR /02153-6173 1; 002154 3160 DCA BD /02154-3160 Y0 002155 6203 CIF CDF 0 /02155-6203 2C 002156 4437 JMS I CKGDBD /02156-4437 $_ 002157 7410 SKP /02157-7410 <H 002160 5364 JMP T41ER1 /02160-5364 +4 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-24 002161 4435 JMS I NXTFLD /02161-4435 $] 002162 5334 JMP T41GO+2 /02162-5334 +\ 002163 5367 JMP .+4 /02163-5367 +7 002164 4446 T41ER1, JMS I ERRCGB /02164-4446 $& 002165 0513 0513 /02165-0513 EK 002166 2134 T41GO+2 /02166-2134 Q\ 002167 5373 JMP .+4 /02167-5373 +; 002170 4446 T41ER2, JMS I ERRCGB /02170-4446 $& 002171 7013 RTFINT /02171-7013 8K 002172 2134 T41GO+2 /02172-2134 Q\ 002173 5774 JMP I .+1 /02173-5774 /< 002174 2200 T42GO /02174-2200 R@ 002175 4227 JMS 2027 /02175-4227 "W 002176 7777 MQA MQL CLA SAM /02176-7777 ?? 002177 0461 AND I 0061 /02177-0461 D1 2200 PAGE 11 002200 4434 T42GO, JMS I SETINI /02200-4434 $\ TEST 42 RTS->RMR 002201 4432 JMS I SETFLD /02201-4432 $Z 002202 4444 JMS I SETKT /02202-4444 $$ 002203 7040 EMM EN5 EN9 MAINT /02203-7040 8 002204 1112 TAD CDBITS /02204-1112 IJ 002205 0122 AND O70 /02205-0122 AR 002206 1165 TAD FIELD7 /02206-1165 I5 002207 3107 DCA COUNT /02207-3107 YG 002210 1110 TAD BANK3 /02210-1110 IH 002211 7106 CLL RTL /02211-7106 9F 002212 1110 TAD BANK3 /02212-1110 IH 002213 7004 RAL /02213-7004 8D 002214 7002 BSW /02214-7002 8B 002215 1107 TAD COUNT /02215-1107 IG 002216 6220 RTS /02216-6220 2P 002217 7440 SZA /02217-7440 < 002220 5252 JMP T42ER2 /02220-5252 ** 002221 6214 RDF /02221-6214 2L 002222 3100 DCA TEMIND /02222-3100 Y@ 002223 5224 JMP .+1 /02223-5224 *T 002224 7000 NOP /02224-7000 8@ 002225 1167 TAD MRBITS /02225-1167 I7 002226 3157 DCA GD /02226-3157 Y/ 002227 1111 TAD MAINTR /02227-1111 II 002230 3160 DCA BD /02230-3160 Y0 002231 4437 JMS I CKGDBD /02231-4437 $_ 002232 7610 SKP CLA /02232-7610 >H 002233 5246 JMP T42ER1 /02233-5246 *& 002234 1112 TAD CDBITS /02234-1112 IJ 002235 3157 DCA GD /02235-3157 Y/ 002236 1100 TAD TEMIND /02236-1100 I@ 002237 3160 DCA BD /02237-3160 Y0 002240 4437 JMS I CKGDBD /02240-4437 $_ 002241 7610 SKP CLA /02241-7610 >H 002242 5246 JMP 2246 /02242-5246 *& 002243 4435 JMS I NXTFLD /02243-4435 $] 002244 5202 JMP T42GO+2 /02244-5202 *B AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-25 002245 5257 JMP T43GO /02245-5257 */ 002246 4446 T42ER1, JMS I ERRCGB /02246-4446 $& 002247 0613 0613 /02247-0613 FK 002250 2202 T42GO+2 /02250-2202 RB 002251 5257 JMP T43GO /02251-5257 */ 002252 3160 T42ER2, DCA BD /02252-3160 Y0 002253 3157 DCA GD /02253-3157 Y/ 002254 4447 JMS I ERACGB /02254-4447 $' 002255 0600 0600 /02255-0600 F@ 002256 2202 T42GO+2 /02256-2202 RB 002257 4433 T43GO, JMS I SETTST /02257-4433 $[ TEST 43 LRR->RRR 002260 1141 TAD OM40 /02260-1141 I! 002261 3107 DCA COUNT /02261-3107 YG 002262 3170 DCA SHFLD /02262-3170 Y8 002263 4444 JMS I SETKT /02263-4444 $$ 002264 7000 EMM EN5 EN9 /02264-7000 8@ 002265 4440 JMS I SHFL /02265-4440 $ 002266 0170 SHFLD /02266-0170 A8 002267 3157 DCA GD /02267-3157 Y/ 002270 1157 TAD GD /02270-1157 I/ 002271 6240 LRR /02271-6240 2 002272 7440 SZA /02272-7440 < 002273 5314 JMP T43ER2 /02273-5314 +L 002274 6250 RRR /02274-6250 2( 002275 3160 DCA BD /02275-3160 Y0 002276 6240 LRR /02276-6240 2 002277 4437 JMS I CKGDBD /02277-4437 $_ 002300 7410 SKP /02300-7410 <H 002301 5306 JMP T43ER1 /02301-5306 +F 002302 2170 ISZ SHFLD /02302-2170 Q8 002303 2107 ISZ COUNT /02303-2107 QG 002304 5263 JMP T43GO+4 /02304-5263 *3 002305 5317 JMP T44GO /02305-5317 +O 002306 4446 T43ER1, JMS I ERRCGB /02306-4446 $& 002307 0707 0707 /02307-0707 GG 002310 2263 T43GO+4 /02310-2263 R3 002311 5317 JMP T44GO /02311-5317 +O 002312 3160 DCA BD /02312-3160 Y0 002313 3157 DCA GD /02313-3157 Y/ 002314 4447 T43ER2, JMS I ERACGB /02314-4447 $' 002315 0700 0700 /02315-0700 G@ 002316 2263 T43GO+4 /02316-2263 R3 002317 4433 T44GO, JMS I SETTST /02317-4433 $[ TEST 44 LUSR->RUSR 002320 4444 JMS I SETKT /02320-4444 $$ 002321 7000 EMM EN5 EN9 /02321-7000 8@ 002322 1141 TAD OM40 /02322-1141 I! 002323 3107 DCA COUNT /02323-3107 YG 002324 3170 DCA SHFLD /02324-3170 Y8 002325 4440 T44LP, JMS I SHFL /02325-4440 $ 002326 0170 SHFLD /02326-0170 A8 002327 3157 DCA GD /02327-3157 Y/ 002330 1157 TAD GD /02330-1157 I/ 002331 6260 LUSR /02331-6260 20 002332 7440 SZA /02332-7440 < 002333 5351 JMP T44ER2 /02333-5351 +) AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-26 002334 6270 RUSR /02334-6270 28 002335 3160 DCA BD /02335-3160 Y0 002336 4437 JMS I CKGDBD /02336-4437 $_ 002337 7410 SKP /02337-7410 <H 002340 5345 JMP T44ER1 /02340-5345 +% 002341 2170 ISZ SHFLD /02341-2170 Q8 002342 2107 ISZ COUNT /02342-2107 QG 002343 5325 JMP T44LP /02343-5325 +U 002344 5356 JMP T45GO /02344-5356 +. 002345 4446 T44ER1, JMS I ERRCGB /02345-4446 $& 002346 1010 1010 /02346-1010 HH 002347 2325 T44LP /02347-2325 SU 002350 5356 JMP T45GO /02350-5356 +. 002351 3160 T44ER2, DCA BD /02351-3160 Y0 002352 3157 DCA GD /02352-3157 Y/ 002353 4447 JMS I ERACGB /02353-4447 $' 002354 1000 1000 /02354-1000 H@ 002355 2325 T44LP /02355-2325 SU 002356 4434 T45GO, JMS I SETINI /02356-4434 $\ TEST 45 LUSR->CDF TRAP 002357 7240 CLA CMA /02357-7240 : 002360 3073 DCA WHATIS /02360-3073 X; 002361 7300 CLA CLL /02361-7300 ;@ 002362 3106 DCA TEMFLD /02362-3106 YF 002363 1141 TAD OM40 /02363-1141 I! 002364 3107 DCA COUNT /02364-3107 YG 002365 4444 T45LP1, JMS I SETKT /02365-4444 $$ 002366 7000 EMM EN5 EN9 /02366-7000 8@ 002367 7300 CLA CLL /02367-7300 ;@ 002370 1106 TAD TEMFLD /02370-1106 IF 002371 3153 DCA THSFLD /02371-3153 Y+ 002372 4432 JMS I SETFLD /02372-4432 $Z 002373 1112 TAD CDBITS /02373-1112 IJ 002374 1150 TAD CCDF /02374-1150 I( 002375 3157 DCA GD /02375-3157 Y/ 002376 3153 DCA THSFLD /02376-3153 Y+ 002377 3112 DCA CDBITS /02377-3112 YJ 2400 PAGE 12 002400 1106 TAD TEMFLD /02400-1106 IF 002401 6260 LUSR /02401-6260 20 002402 7000 NOP /02402-7000 8@ 002403 6274 SUF /02403-6274 2< 002404 5205 JMP .+1 /02404-5205 *E 002405 1112 T45LP2, TAD CDBITS /02405-1112 IJ 002406 1150 TAD CCDF /02406-1150 I( 002407 3210 DCA .+1 /02407-3210 ZH 002410 0000 T45CDF, 0000 /02410-0000 @@ 002411 6201 CDF 0 /02411-6201 2A 002412 2072 ISZ GOTUSR /02412-2072 P: 002413 7610 SKP CLA /02413-7610 >H 002414 5217 JMP .+3 /02414-5217 *O 002415 4435 JMS I NXTFLD /02415-4435 $] 002416 5205 JMP T45LP2 /02416-5205 *E 002417 1210 TAD T45CDF /02417-1210 JH 002420 3160 DCA BD /02420-3160 Y0 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-27 002421 4437 JMS I CKGDBD /02421-4437 $_ 002422 7410 SKP /02422-7410 <H 002423 5230 JMP T45ER /02423-5230 *X 002424 2106 ISZ TEMFLD /02424-2106 QF 002425 2107 ISZ COUNT /02425-2107 QG 002426 5777 JMP I (T45LP1 /02426-5777 /? 002427 5233 JMP T46GO /02427-5233 *[ 002430 4445 T45ER, JMS I ERRTGB /02430-4445 $% 002431 6320 USLTRP /02431-6320 3P 002432 2365 T45LP1 /02432-2365 S5 002433 4434 T46GO, JMS I SETINI /02433-4434 $\ TEST 46 LUSR->CIF TRAP 002434 7300 CLA CLL /02434-7300 ;@ 002435 3106 DCA TEMFLD /02435-3106 YF 002436 1141 TAD OM40 /02436-1141 I! 002437 3107 DCA COUNT /02437-3107 YG 002440 4444 JMS I SETKT /02440-4444 $$ 002441 7200 EMM EN5 EN9 DIOI /02441-7200 :@ 002442 7300 CLA CLL /02442-7300 ;@ 002443 1106 TAD TEMFLD /02443-1106 IF 002444 3153 DCA THSFLD /02444-3153 Y+ 002445 4432 JMS I SETFLD /02445-4432 $Z 002446 1112 TAD CDBITS /02446-1112 IJ 002447 1151 TAD CCIF /02447-1151 I) 002450 3157 DCA GD /02450-3157 Y/ 002451 3153 DCA THSFLD /02451-3153 Y+ 002452 3112 DCA CDBITS /02452-3112 YJ 002453 1106 TAD TEMFLD /02453-1106 IF 002454 6260 LUSR /02454-6260 20 002455 6274 SUF /02455-6274 2< 002456 5257 JMP .+1 /02456-5257 */ 002457 1112 T46LP, TAD CDBITS /02457-1112 IJ 002460 1151 TAD CCIF /02460-1151 I) 002461 3262 DCA .+1 /02461-3262 Z2 002462 0000 T46CIF, 0000 /02462-0000 @@ 002463 6203 CIF CDF 0 /02463-6203 2C 002464 2072 ISZ GOTUSR /02464-2072 P: 002465 7610 SKP CLA /02465-7610 >H 002466 5271 JMP .+3 /02466-5271 *9 002467 4435 JMS I NXTFLD /02467-4435 $] 002470 5257 JMP T46LP /02470-5257 */ 002471 1262 TAD T46CIF /02471-1262 J2 002472 3160 DCA BD /02472-3160 Y0 002473 4437 JMS I CKGDBD /02473-4437 $_ 002474 7410 SKP /02474-7410 <H 002475 5302 JMP T46ER /02475-5302 +B 002476 2106 ISZ TEMFLD /02476-2106 QF 002477 2107 ISZ COUNT /02477-2107 QG 002500 5240 JMP T46GO+5 /02500-5240 * 002501 5305 JMP T47GO /02501-5305 +E 002502 4445 T46ER, JMS I ERRTGB /02502-4445 $% 002503 6320 USLTRP /02503-6320 3P 002504 2440 T46GO+5 /02504-2440 T 002505 4433 T47GO, JMS I SETTST /02505-4433 $[ TEST 47 LRR->RMR 002506 1141 TAD OM40 /02506-1141 I! 002507 3107 DCA COUNT /02507-3107 YG AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-28 002510 3170 DCA SHFLD /02510-3170 Y8 002511 4444 JMS I SETKT /02511-4444 $$ 002512 7200 EMM EN5 EN9 DIOI /02512-7200 :@ 002513 1121 TAD O40 /02513-1121 IQ 002514 6260 LUSR /02514-6260 20 002515 4440 T47LP, JMS I SHFL /02515-4440 $ 002516 0170 SHFLD /02516-0170 A8 002517 3077 DCA TEMP /02517-3077 X? 002520 1077 TAD TEMP /02520-1077 H? 002521 7112 CLL RTR /02521-7112 9J 002522 7010 RAR /02522-7010 8H 002523 0115 AND O3 /02523-0115 AM 002524 1376 TAD (MRLIST /02524-1376 K> 002525 3100 DCA TEMIND /02525-3100 Y@ 002526 1500 TAD I TEMIND /02526-1500 M@ 002527 3100 DCA TEMIND /02527-3100 Y@ 002530 1077 TAD TEMP /02530-1077 H? 002531 0116 AND O7 /02531-0116 AN 002532 1100 TAD TEMIND /02532-1100 I@ 002533 3157 DCA GD /02533-3157 Y/ 002534 1077 TAD TEMP /02534-1077 H? 002535 6240 LRR /02535-6240 2 002536 6274 SUF /02536-6274 2< 002537 5340 JMP .+1 /02537-5340 + 002540 6201 CDF 0 /02540-6201 2A 002541 1533 TAD I O7000 /02541-1533 M[ 002542 7300 CLA CLL /02542-7300 ;@ 002543 6173 RMR /02543-6173 1; 002544 3160 DCA BD /02544-3160 Y0 002545 6201 CDF 0 /02545-6201 2A 002546 6264 CUF /02546-6264 24 002547 4437 JMS I CKGDBD /02547-4437 $_ 002550 7410 SKP /02550-7410 <H 002551 5360 JMP T47ER /02551-5360 +0 002552 7300 CLA CLL /02552-7300 ;@ 002553 6240 LRR /02553-6240 2 002554 2170 ISZ SHFLD /02554-2170 Q8 002555 2107 ISZ COUNT /02555-2107 QG 002556 5315 JMP T47LP /02556-5315 +M 002557 5363 JMP .+4 /02557-5363 +3 002560 4445 T47ER, JMS I ERRTGB /02560-4445 $% 002561 6266 RELERR /02561-6266 26 002562 2515 T47LP /02562-2515 UM 002563 5764 JMP I .+1 /02563-5764 /4 002564 2600 T50GO /02564-2600 V@ 002565 4010 JMS 0010 /02565-4010 H 002566 7772 SPA SNA SZL CLA HLT /02566-7772 ?: 002567 0000 AND 0000 /02567-0000 @@ 002570 7671 MQL CLA DPSZ /02570-7671 >9 002571 2214 ISZ 2414 /02571-2214 RL 002572 6061 6061 /02572-6061 01 002573 0000 AND 0000 /02573-0000 @@ 002574 2430 ISZ I 0030 /02574-2430 TX 002575 4170 JMS 0170 /02575-4170 !8 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-29 /6064 /02576-6064 04 /ISZ 2565 /02577-2365 S5 002576 6064 002577 2365 2600 PAGE 13 002600 4433 T50GO, JMS I SETTST /02600-4433 $[ TEST 50 LRR->RMR INT 002601 1141 TAD OM40 /02601-1141 I! 002602 3107 DCA COUNT /02602-3107 YG 002603 3170 DCA SHFLD /02603-3170 Y8 002604 4444 JMS I SETKT /02604-4444 $$ 002605 7240 EMM EN5 EN9 DIOI MAINT /02605-7240 : 002606 1121 TAD O40 /02606-1121 IQ 002607 6260 LUSR /02607-6260 20 002610 4440 T50LP, JMS I SHFL /02610-4440 $ 002611 0170 SHFLD /02611-0170 A8 002612 3106 DCA TEMFLD /02612-3106 YF 002613 1106 TAD TEMFLD /02613-1106 IF 002614 7112 CLL RTR /02614-7112 9J 002615 7010 RAR /02615-7010 8H 002616 0115 AND O3 /02616-0115 AM 002617 1377 TAD (MRLIST /02617-1377 K? 002620 3100 DCA TEMIND /02620-3100 Y@ 002621 1500 TAD I TEMIND /02621-1500 M@ 002622 3100 DCA TEMIND /02622-3100 Y@ 002623 1106 TAD TEMFLD /02623-1106 IF 002624 0116 AND O7 /02624-0116 AN 002625 1100 TAD TEMIND /02625-1100 I@ 002626 3157 DCA GD /02626-3157 Y/ 002627 6002 IOF /02627-6002 0B 002630 1106 TAD TEMFLD /02630-1106 IF 002631 6240 LRR /02631-6240 2 002632 6274 SUF /02632-6274 2< 002633 5234 JMP .+1 /02633-5234 *\ 002634 6204 CINT /02634-6204 2D 002635 6202 CIF 0 /02635-6202 2B 002636 6001 ION /02636-6001 0A 002637 5240 JMP .+1 /02637-5240 * 002640 7000 NOP /02640-7000 8@ 002641 1111 TAD MAINTR /02641-1111 II 002642 3160 DCA BD /02642-3160 Y0 002643 6264 CUF /02643-6264 24 002644 6201 CDF 0 /02644-6201 2A 002645 4437 JMS I CKGDBD /02645-4437 $_ 002646 7410 SKP /02646-7410 <H 002647 5256 JMP 2656 /02647-5256 *. 002650 7300 CLA CLL /02650-7300 ;@ 002651 6240 LRR /02651-6240 2 002652 2170 ISZ SHFLD /02652-2170 Q8 002653 2107 ISZ COUNT /02653-2107 QG 002654 5210 JMP T50LP /02654-5210 *H 002655 5261 JMP T51GO /02655-5261 *1 002656 4445 JMS I ERRTGB /02656-4445 $% 002657 6266 RELERR /02657-6266 26 002660 2610 T50LP /02660-2610 VH AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-30 002661 4434 T51GO, JMS I SETINI /02661-4434 $\ TEST 51 LRR->RDF 002662 3072 DCA GOTUSR /02662-3072 X: 002663 7330 CLA CLL CML RAR /02663-7330 ;X 002664 3073 DCA WHATIS /02664-3073 X; 002665 4432 JMS I SETFLD /02665-4432 $Z 002666 4444 T51LP, JMS I SETKT /02666-4444 $$ 002667 7400 EMM EN5 EN9 ERVF /02667-7400 <@ 002670 1121 TAD O40 /02670-1121 IQ 002671 6260 LUSR /02671-6260 20 002672 1153 TAD THSFLD /02672-1153 I+ 002673 7041 CMA IAC /02673-7041 8! 002674 0120 AND O37 /02674-0120 AP 002675 6240 LRR /02675-6240 2 002676 6274 SUF /02676-6274 2< 002677 5300 JMP .+1 /02677-5300 +@ 002700 1112 TAD CDBITS /02700-1112 IJ 002701 3157 DCA GD /02701-3157 Y/ 002702 4442 JMS I MAKCDF /02702-4442 $" 002703 7402 HLT /02703-7402 <B 002704 6214 RDF /02704-6214 2L 002705 3160 DCA BD /02705-3160 Y0 002706 4425 JMS I TSTUSR /02706-4425 $U 002707 2666 T51LP /02707-2666 V6 002710 5322 JMP T52GO /02710-5322 +R 002711 4437 JMS I CKGDBD /02711-4437 $_ 002712 7610 SKP CLA /02712-7610 >H 002713 5317 JMP .+4 /02713-5317 +O 002714 4435 JMS I NXTFLD /02714-4435 $] 002715 5266 JMP T51LP /02715-5266 *6 002716 5322 JMP T52GO /02716-5322 +R 002717 4446 JMS I ERRCGB /02717-4446 $& 002720 0102 0102 /02720-0102 AB 002721 2666 T51LP /02721-2666 V6 002722 4434 T52GO, JMS I SETINI /02722-4434 $\ TEST 52 LRR->CDF,RIF 002723 2073 ISZ WHATIS /02723-2073 P; 002724 4432 JMS I SETFLD /02724-4432 $Z 002725 4444 JMS I SETKT /02725-4444 $$ 002726 7400 EMM EN5 EN9 ERVF /02726-7400 <@ 002727 1121 TAD O40 /02727-1121 IQ 002730 6260 LUSR /02730-6260 20 002731 1153 TAD THSFLD /02731-1153 I+ 002732 7041 CMA IAC /02732-7041 8! 002733 0120 AND O37 /02733-0120 AP 002734 6240 LRR /02734-6240 2 002735 6274 SUF /02735-6274 2< 002736 5337 JMP .+1 /02736-5337 +_ 002737 1112 TAD CDBITS /02737-1112 IJ 002740 3157 DCA GD /02740-3157 Y/ 002741 4443 JMS I MAKCIF /02741-4443 $# 002742 7402 HLT /02742-7402 <B 002743 5344 JMP .+1 /02743-5344 +$ 002744 7000 NOP /02744-7000 8@ 002745 6224 RIF /02745-6224 2T 002746 3160 DCA BD /02746-3160 Y0 002747 4425 JMS I TSTUSR /02747-4425 $U AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-31 002750 2725 T52GO+3 /02750-2725 WU 002751 5363 JMP T52EX /02751-5363 +3 002752 4437 JMS I CKGDBD /02752-4437 $_ 002753 7610 SKP CLA /02753-7610 >H 002754 5360 JMP .+4 /02754-5360 +0 002755 4435 JMS I NXTFLD /02755-4435 $] 002756 5325 JMP T52GO+3 /02756-5325 +U 002757 5363 JMP T52EX /02757-5363 +3 002760 4446 JMS I ERRCGB /02760-4446 $& 002761 0203 0203 /02761-0203 BC 002762 2725 T52GO+3 /02762-2725 WU 002763 5764 T52EX, JMP I .+1 /02763-5764 /4 002764 3001 T53GO /02764-3001 XA 002765 6023 6023 /02765-6023 0S 002766 6063 6063 /02766-6063 03 002767 6023 6023 /02767-6023 0S 002770 6063 6063 /02770-6063 03 002771 6023 6023 /02771-6023 0S 002772 6063 6063 /02772-6063 03 002773 6023 6023 /02773-6023 0S 002774 6063 6063 /02774-6063 03 002775 6023 6023 /02775-6023 0S 002776 6063 6063 /02776-6063 03 /6064 /02777-6064 04 002777 6064 3000 PAGE 14 003000 7764 T53M14, -14 /03000-7764 ?4 003001 4433 T53GO, JMS I SETTST /03001-4433 $[ TEST 53 LBM->RBM 003002 4465 JMS I SETLUP /03002-4465 $5 003003 7777 -1 /03003-7777 ?? 003004 7240 CLA CMA /03004-7240 : 003005 3777 DCA I (LPCNT /03005-3777 _? 003006 3110 DCA BANK3 /03006-3110 YH 003007 3015 DCA 0015 /03007-3015 XM 003010 3162 T53LPX, DCA BRKMSK /03010-3162 Y2 003011 1137 TAD OM15 /03011-1137 I_ 003012 3107 DCA COUNT /03012-3107 YG 003013 4444 T53LP0, JMS I SETKT /03013-4444 $$ 003014 4100 EMM EBM /03014-4100 !@ 003015 1110 TAD BANK3 /03015-1110 IH 003016 0115 AND O3 /03016-0115 AM 003017 3164 DCA BRKBNK /03017-3164 Y4 003020 4440 T53LP, JMS I SHFL /03020-4440 $ 003021 0162 AND BRKMSK /03021-0162 A2 003022 3163 DCA BRKADR /03022-3163 Y3 003023 1163 TAD BRKADR /03023-1163 I3 003024 1200 TAD T53M14 /03024-1200 J@ 003025 7710 SPA CLA /03025-7710 ?H 003026 5231 JMP .+3 /03026-5231 *Y 003027 2162 ISZ BRKMSK /03027-2162 Q2 003030 5220 JMP T53LP /03030-5220 *P 003031 1163 TAD BRKADR /03031-1163 I3 003032 1155 TAD BRKLST /03032-1155 I- AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-32 003033 3100 DCA TEMIND /03033-3100 Y@ 003034 1164 TAD BRKBNK /03034-1164 I4 003035 3500 DCA I TEMIND /03035-3500 ]@ 003036 1163 TAD BRKADR /03036-1163 I3 003037 7106 CLL RTL /03037-7106 9F 003040 1164 TAD BRKBNK /03040-1164 I4 003041 6170 LBM /03041-6170 18 003042 7440 SZA /03042-7440 < 003043 5334 JMP T53ER2 /03043-5334 +\ 003044 1163 TAD BRKADR /03044-1163 I3 003045 7106 CLL RTL /03045-7106 9F 003046 1164 TAD BRKBNK /03046-1164 I4 003047 3157 DCA GD /03047-3157 Y/ 003050 1163 TAD BRKADR /03050-1163 I3 003051 7106 CLL RTL /03051-7106 9F 003052 6171 RBM /03052-6171 19 003053 3160 DCA BD /03053-3160 Y0 003054 4437 JMS I CKGDBD /03054-4437 $_ 003055 7410 SKP /03055-7410 <H 003056 5330 JMP T53ER1 /03056-5330 +X 003057 2110 ISZ BANK3 /03057-2110 QH 003060 2162 ISZ BRKMSK /03060-2162 Q2 003061 2107 ISZ COUNT /03061-2107 QG 003062 5213 JMP T53LP0 /03062-5213 *K 003063 4776 JMS I (LPX8 /03063-4776 '> 003064 3163 DCA BRKADR /03064-3163 Y3 003065 1155 TAD BRKLST /03065-1155 I- 003066 3100 DCA TEMIND /03066-3100 Y@ 003067 1200 TAD T53M14 /03067-1200 J@ 003070 3107 DCA COUNT /03070-3107 YG 003071 4444 T53LP1, JMS I SETKT /03071-4444 $$ 003072 4100 EMM EBM /03072-4100 !@ 003073 1500 TAD I TEMIND /03073-1500 M@ 003074 3164 DCA BRKBNK /03074-3164 Y4 003075 1163 TAD BRKADR /03075-1163 I3 003076 7106 CLL RTL /03076-7106 9F 003077 1164 TAD BRKBNK /03077-1164 I4 003100 3157 DCA GD /03100-3157 Y/ 003101 1163 TAD BRKADR /03101-1163 I3 003102 7106 CLL RTL /03102-7106 9F 003103 6171 RBM /03103-6171 19 003104 3160 DCA BD /03104-3160 Y0 003105 4437 JMS I CKGDBD /03105-4437 $_ 003106 7610 SKP CLA /03106-7610 >H 003107 5324 JMP T53ER0 /03107-5324 +T 003110 2163 ISZ BRKADR /03110-2163 Q3 003111 2100 ISZ TEMIND /03111-2100 Q@ 003112 2107 ISZ COUNT /03112-2107 QG 003113 5271 JMP T53LP1 /03113-5271 *9 003114 7346 CLA CLL CMA RTL /03114-7346 ;& 003115 1015 TAD 0015 /03115-1015 HM 003116 7650 SNA CLA /03116-7650 >( 003117 5775 JMP I (T54GO /03117-5775 /= 003120 2015 ISZ 0015 /03120-2015 PM 003121 1015 TAD 0015 /03121-1015 HM AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-33 003122 3110 DCA BANK3 /03122-3110 YH 003123 5210 JMP T53LPX /03123-5210 *H 003124 4451 T53ER0, JMS I ECDBGB /03124-4451 $) 003125 1111 1111 /03125-1111 II 003126 3071 T53LP1 /03126-3071 X9 003127 5775 JMP I (T54GO /03127-5775 /= 003130 4451 T53ER1, JMS I ECDBGB /03130-4451 $) 003131 1111 1111 /03131-1111 II 003132 3013 T53LP0 /03132-3013 XK 003133 5775 JMP I (T54GO /03133-5775 /= 003134 3160 T53ER2, DCA BD /03134-3160 Y0 003135 3157 DCA GD /03135-3157 Y/ 003136 4447 JMS I ERACGB /03136-4447 $' 003137 1100 1100 /03137-1100 I@ 003140 3013 T53LP0 /03140-3013 XK 003141 5775 JMP I (T54GO /03141-5775 /= 003142 0000 MBCRMR, 0000 /03142-0000 @@ 003143 1100 TAD TEMIND /03143-1100 I@ 003144 6174 MBC /03144-6174 1< 003145 7200 CLA /03145-7200 :@ 003146 6173 RMR /03146-6173 1; 003147 3160 DCA BD /03147-3160 Y0 003150 4437 JMS I CKGDBD /03150-4437 $_ 003151 2342 ISZ MBCRMR /03151-2342 S" 003152 5742 JMP I MBCRMR /03152-5742 /" 003153 6412 6412 /03153-6412 4J 003154 0070 AND 0070 /03154-0070 @8 003155 5041 JMP 0041 /03155-5041 (! 003156 1056 TAD 0056 /03156-1056 H. 003157 0076 AND 0076 /03157-0076 @> 003160 0443 AND I 0043 /03160-0443 D# 003161 1401 TAD I 0001 /03161-1401 LA 003162 1011 TAD 0011 /03162-1011 HI 003163 7452 SNA HLT /03163-7452 <* 003164 1412 TAD I 0012 /03164-1412 LJ 003165 7036 7036 /03165-7036 8^ 003166 0040 AND 0040 /03166-0040 @ 003167 5043 JMP 0043 /03167-5043 (# 003170 1042 TAD 0042 /03170-1042 H" 003171 7422 SNL HLT /03171-7422 <R 003172 0075 AND 0075 /03172-0075 @= 003173 0000 AND 0000 /03173-0000 @@ 003174 0032 AND 0032 /03174-0032 @Z /DCA 3000 /03175-3200 Z@ /AND 3153 /03176-0353 C+ /AND 3152 /03177-0352 C* 003175 3200 003176 0353 003177 0352 3200 PAGE 15 003200 4433 T54GO, JMS I SETTST /03200-4433 $[ TEST 54 LBM->MBC,RLB 003201 4465 JMS I SETLUP /03201-4465 $5 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-34 003202 7677 -101 /03202-7677 >? 003203 6264 CUF /03203-6264 24 003204 4444 JMS I SETKT /03204-4444 $$ 003205 4100 EMM EBM /03205-4100 !@ 003206 7300 CLA CLL /03206-7300 ;@ 003207 1137 TAD OM15 /03207-1137 I_ 003210 3107 DCA COUNT /03210-3107 YG 003211 3162 DCA BRKMSK /03211-3162 Y2 003212 1162 TAD BRKMSK /03212-1162 I2 003213 7106 CLL RTL /03213-7106 9F 003214 6170 LBM /03214-6170 18 003215 2162 ISZ BRKMSK /03215-2162 Q2 003216 2107 ISZ COUNT /03216-2107 QG 003217 5212 JMP .-5 /03217-5212 *J 003220 3162 DCA BRKMSK /03220-3162 Y2 003221 1137 TAD OM15 /03221-1137 I_ 003222 3107 DCA COUNT /03222-3107 YG 003223 1162 T54LP, TAD BRKMSK /03223-1162 I2 003224 3163 DCA BRKADR /03224-3163 Y3 003225 3164 DCA BRKBNK /03225-3164 Y4 003226 1162 TAD BRKMSK /03226-1162 I2 003227 7106 CLL RTL /03227-7106 9F 003230 3157 DCA GD /03230-3157 Y/ 003231 1162 TAD BRKMSK /03231-1162 I2 003232 7040 CMA /03232-7040 8 003233 3106 DCA TEMFLD /03233-3106 YF 003234 7120 CLL CML /03234-7120 9P 003235 7010 RAR /03235-7010 8H 003236 2106 ISZ TEMFLD /03236-2106 QF 003237 5235 JMP .-2 /03237-5235 *] 003240 6174 MBC /03240-6174 1< 003241 7300 CLA CLL /03241-7300 ;@ 003242 6172 RLB /03242-6172 1: 003243 3160 DCA BD /03243-3160 Y0 003244 4437 JMS I CKGDBD /03244-4437 $_ 003245 7410 SKP /03245-7410 <H 003246 5256 JMP T54ER /03246-5256 *. 003247 2162 ISZ BRKMSK /03247-2162 Q2 003250 2107 ISZ COUNT /03250-2107 QG 003251 5223 JMP T54LP /03251-5223 *S 003252 3162 DCA BRKMSK /03252-3162 Y2 003253 1137 TAD OM15 /03253-1137 I_ 003254 3107 DCA COUNT /03254-3107 YG 003255 5261 JMP T55GO /03255-5261 *1 003256 4451 T54ER, JMS I ECDBGB /03256-4451 $) 003257 1212 1212 /03257-1212 JJ 003260 3223 T54LP /03260-3223 ZS 003261 4433 T55GO, JMS I SETTST /03261-4433 $[ TEST 55 LBM->MBC,RLB 003262 4465 JMS I SETLUP /03262-4465 $5 003263 7763 -15 /03263-7763 ?3 003264 7300 CLA CLL /03264-7300 ;@ 003265 4444 JMS I SETKT /03265-4444 $$ 003266 4100 EMM EBM /03266-4100 !@ 003267 1137 TAD OM15 /03267-1137 I_ 003270 3107 DCA COUNT /03270-3107 YG AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-35 003271 3163 DCA BRKADR /03271-3163 Y3 003272 1163 TAD BRKADR /03272-1163 I3 003273 7106 CLL RTL /03273-7106 9F 003274 6170 LBM /03274-6170 18 003275 7200 CLA /03275-7200 :@ 003276 2163 ISZ BRKADR /03276-2163 Q3 003277 2107 ISZ COUNT /03277-2107 QG 003300 5272 JMP .-6 /03300-5272 *: 003301 7301 CLA CLL IAC /03301-7301 ;A 003302 3107 DCA COUNT /03302-3107 YG 003303 3163 T55LP, DCA BRKADR /03303-3163 Y3 003304 3164 DCA BRKBNK /03304-3164 Y4 003305 1107 TAD COUNT /03305-1107 IG 003306 7104 CLL RAL /03306-7104 9D 003307 7430 SZL /03307-7430 <X 003310 5313 JMP .+3 /03310-5313 +K 003311 2163 ISZ BRKADR /03311-2163 Q3 003312 5306 JMP .-4 /03312-5306 +F 003313 7300 CLA CLL /03313-7300 ;@ 003314 1163 TAD BRKADR /03314-1163 I3 003315 7106 CLL RTL /03315-7106 9F 003316 3157 DCA GD /03316-3157 Y/ 003317 1107 TAD COUNT /03317-1107 IG 003320 6174 MBC /03320-6174 1< 003321 7200 CLA /03321-7200 :@ 003322 6172 RLB /03322-6172 1: 003323 3160 DCA BD /03323-3160 Y0 003324 4437 JMS I CKGDBD /03324-4437 $_ 003325 7610 SKP CLA /03325-7610 >H 003326 5332 JMP .+4 /03326-5332 +Z 003327 2107 ISZ COUNT /03327-2107 QG 003330 5303 JMP T55LP /03330-5303 +C 003331 5335 JMP .+4 /03331-5335 +] 003332 4451 JMS I ECDBGB /03332-4451 $) 003333 1212 1212 /03333-1212 JJ 003334 3303 T55LP /03334-3303 [C 003335 5736 JMP I .+1 /03335-5736 /^ 003336 3400 T56GO /03336-3400 \@ 003337 0000 DBST1, AND 0000 /03337-0000 @@ 003340 1021 TAD SWISOF /03340-1021 HQ 003341 0377 AND (100 /03341-0377 C? 003342 7650 SNA CLA /03342-7650 >( 003343 5737 JMP I DBST1 /03343-5737 /_ 003344 6007 CAF /03344-6007 0G 003345 6570 DBST /03345-6570 58 003346 6573 DBCF /03346-6573 5; 003347 5344 JMP .-3 /03347-5344 +$ 003350 6570 DBST /03350-6570 58 003351 6571 DBSK /03351-6571 59 003352 5776 JMP I (STRSOF /03352-5776 /> 003353 6007 CAF /03353-6007 0G 003354 5776 JMP I (STRSOF /03354-5776 /> 003355 0000 DBST2, AND 0000 /03355-0000 @@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-36 003356 1021 TAD SWISOF /03356-1021 HQ 003357 0377 AND (100 /03357-0377 C? 003360 7640 SZA CLA /03360-7640 > 003361 6571 DBSK /03361-6571 59 003362 2355 ISZ DBST2 /03362-2355 S- 003363 5755 JMP I DBST2 /03363-5755 /- 003364 1066 TAD 0066 /03364-1066 H6 003365 3612 DCA I 3212 /03365-3612 ^J 003366 3424 DCA I 0024 /03366-3424 \T 003367 2044 ISZ 0044 /03367-2044 P$ 003370 3556 DCA I 0156 /03370-3556 ]. 003371 2400 ISZ I 0000 /03371-2400 T@ 003372 3555 DCA I 0155 /03372-3555 ]- 003373 3530 DCA I 0130 /03373-3530 ]X 003374 3557 DCA I 0157 /03374-3557 ]/ 003375 5107 JMP 0107 /03375-5107 )G /AND 3225 /03376-0225 BU /AND 0100 /03377-0100 A@ 003376 0225 003377 0100 3400 PAGE 16 003400 4433 T56GO, JMS I SETTST /03400-4433 $[ TEST 56 LBM->RBM 003401 4465 JMS I SETLUP /03401-4465 $5 003402 7677 -101 /03402-7677 >? 003403 4444 JMS I SETKT /03403-4444 $$ 003404 4000 EMM /03404-4000 @ 003405 1137 TAD OM15 /03405-1137 I_ 003406 3107 DCA COUNT /03406-3107 YG 003407 1155 TAD BRKLST /03407-1155 I- 003410 3100 DCA TEMIND /03410-3100 Y@ 003411 4456 JMS I RANDOM /03411-4456 $. 003412 0115 AND O3 /03412-0115 AM 003413 3500 DCA I TEMIND /03413-3500 ]@ 003414 2100 ISZ TEMIND /03414-2100 Q@ 003415 2107 ISZ COUNT /03415-2107 QG 003416 5211 JMP .-5 /03416-5211 *I 003417 3163 DCA BRKADR /03417-3163 Y3 003420 1137 TAD OM15 /03420-1137 I_ 003421 3107 DCA COUNT /03421-3107 YG 003422 1155 TAD BRKLST /03422-1155 I- 003423 3100 DCA TEMIND /03423-3100 Y@ 003424 1163 TAD BRKADR /03424-1163 I3 003425 7106 CLL RTL /03425-7106 9F 003426 1500 TAD I TEMIND /03426-1500 M@ 003427 6170 LBM /03427-6170 18 003430 2163 ISZ BRKADR /03430-2163 Q3 003431 2100 ISZ TEMIND /03431-2100 Q@ 003432 2107 ISZ COUNT /03432-2107 QG 003433 5224 JMP .-7 /03433-5224 *T 003434 3163 DCA BRKADR /03434-3163 Y3 003435 1137 TAD OM15 /03435-1137 I_ 003436 3107 DCA COUNT /03436-3107 YG 003437 1163 T56LP1, TAD BRKADR /03437-1163 I3 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-37 003440 1155 TAD BRKLST /03440-1155 I- 003441 3106 DCA TEMFLD /03441-3106 YF 003442 1506 TAD I TEMFLD /03442-1506 MF 003443 3164 DCA BRKBNK /03443-3164 Y4 003444 1163 TAD BRKADR /03444-1163 I3 003445 7106 CLL RTL /03445-7106 9F 003446 1164 TAD BRKBNK /03446-1164 I4 003447 3157 DCA GD /03447-3157 Y/ 003450 1163 TAD BRKADR /03450-1163 I3 003451 7106 CLL RTL /03451-7106 9F 003452 6171 RBM /03452-6171 19 003453 3160 DCA BD /03453-3160 Y0 003454 4437 JMS I CKGDBD /03454-4437 $_ 003455 7410 SKP /03455-7410 <H 003456 5350 JMP T56ER1 /03456-5350 +( 003457 2163 ISZ BRKADR /03457-2163 Q3 003460 2107 ISZ COUNT /03460-2107 QG 003461 5237 JMP T56LP1 /03461-5237 *_ 003462 1137 TAD OM15 /03462-1137 I_ 003463 3107 DCA COUNT /03463-3107 YG 003464 4456 T56LP2, JMS I RANDOM /03464-4456 $. 003465 0117 AND O17 /03465-0117 AO 003466 3163 DCA BRKADR /03466-3163 Y3 003467 1163 TAD BRKADR /03467-1163 I3 003470 1137 TAD OM15 /03470-1137 I_ 003471 7700 SMA CLA /03471-7700 ?@ 003472 5264 JMP T56LP2 /03472-5264 *4 003473 1163 TAD BRKADR /03473-1163 I3 003474 1155 TAD BRKLST /03474-1155 I- 003475 3106 DCA TEMFLD /03475-3106 YF 003476 1506 TAD I TEMFLD /03476-1506 MF 003477 7710 SPA CLA /03477-7710 ?H 003500 5264 JMP T56LP2 /03500-5264 *4 003501 1163 TAD BRKADR /03501-1163 I3 003502 7040 CMA /03502-7040 8 003503 3100 DCA TEMIND /03503-3100 Y@ 003504 7120 CLL CML /03504-7120 9P 003505 7010 RAR /03505-7010 8H 003506 2100 ISZ TEMIND /03506-2100 Q@ 003507 5305 JMP .-2 /03507-5305 +E 003510 3100 DCA TEMIND /03510-3100 Y@ 003511 4444 T56LP0, JMS I SETKT /03511-4444 $$ 003512 7000 EMM EN5 EN9 /03512-7000 8@ 003513 1377 TAD (2100 /03513-1377 K? 003514 3157 DCA GD /03514-3157 Y/ 003515 4776 JMS I (MBCRMR /03515-4776 '> 003516 5364 JMP T56ER4 /03516-5364 +4 003517 4444 T56LP3, JMS I SETKT /03517-4444 $$ 003520 7100 EMM EN5 EN9 EBM /03520-7100 9@ 003521 1506 TAD I TEMFLD /03521-1506 MF 003522 3164 DCA BRKBNK /03522-3164 Y4 003523 1164 TAD BRKBNK /03523-1164 I4 003524 1375 TAD (MRLIST /03524-1375 K= 003525 3162 DCA BRKMSK /03525-3162 Y2 003526 1562 TAD I BRKMSK /03526-1562 M2 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-38 003527 3157 DCA GD /03527-3157 Y/ 003530 4776 JMS I (MBCRMR /03530-4776 '> 003531 5354 JMP T56ER2 /03531-5354 +, 003532 1163 TAD BRKADR /03532-1163 I3 003533 7106 CLL RTL /03533-7106 9F 003534 3157 DCA GD /03534-3157 Y/ 003535 6172 RLB /03535-6172 1: 003536 3160 DCA BD /03536-3160 Y0 003537 4437 JMS I CKGDBD /03537-4437 $_ 003540 7410 SKP /03540-7410 <H 003541 5360 JMP T56ER3 /03541-5360 +0 003542 7330 CLA CLL CML RAR /03542-7330 ;X 003543 1506 TAD I TEMFLD /03543-1506 MF 003544 3506 DCA I TEMFLD /03544-3506 ]F 003545 2107 ISZ COUNT /03545-2107 QG 003546 5264 JMP T56LP2 /03546-5264 *4 003547 5774 JMP I (T57GO /03547-5774 /< 003550 4451 T56ER1, JMS I ECDBGB /03550-4451 $) 003551 1111 1111 /03551-1111 II 003552 3437 T56LP1 /03552-3437 \_ 003553 5774 JMP I (T57GO /03553-5774 /< 003554 4451 T56ER2, JMS I ECDBGB /03554-4451 $) 003555 1213 1213 /03555-1213 JK 003556 3517 T56LP3 /03556-3517 ]O 003557 5774 JMP I (T57GO /03557-5774 /< 003560 4451 T56ER3, JMS I ECDBGB /03560-4451 $) 003561 1212 1212 /03561-1212 JJ 003562 3517 T56LP3 /03562-3517 ]O 003563 5774 JMP I (T57GO /03563-5774 /< 003564 4451 T56ER4, JMS I ECDBGB /03564-4451 $) 003565 1213 1213 /03565-1213 JK 003566 3511 T56LP0 /03566-3511 ]I 003567 5376 JMP 3576 /03567-5376 +> ?? 003570 3612 DCA I 3412 /03570-3612 ^J 003571 3047 DCA 0047 /03571-3047 X' 003572 6000 SKON /03572-6000 0@ 003573 7000 NOP /03573-7000 8@ /DCA I 3400 /03574-3600 ^@ /6064 /03575-6064 04 /DCA 0142 /03576-3142 Y" /ISZ 0100 /03577-2100 Q@ 003574 3600 003575 6064 003576 3142 003577 2100 3600 PAGE 17 003600 4433 T57GO, JMS I SETTST /03600-4433 $[ TEST 57 RACA 003601 4465 JMS I SETLUP /03601-4465 $5 003602 7777 -1 /03602-7777 ?? 003603 7300 CLA CLL /03603-7300 ;@ 003604 3165 DCA FIELD7 /03604-3165 Y5 003605 4444 T57LP, JMS I SETKT /03605-4444 $$ 003606 4000 EMM /03606-4000 @ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-39 003607 1165 TAD FIELD7 /03607-1165 I5 003610 0147 AND O104 /03610-0147 A' 003611 3100 DCA TEMIND /03611-3100 Y@ 003612 1100 TAD TEMIND /03612-1100 I@ 003613 7112 CLL RTR /03613-7112 9J 003614 3157 DCA GD /03614-3157 Y/ 003615 1100 TAD TEMIND /03615-1100 I@ 003616 7002 BSW /03616-7002 8B 003617 7104 CLL RAL /03617-7104 9D 003620 1157 TAD GD /03620-1157 I/ 003621 0115 AND O3 /03621-0115 AM 003622 7104 CLL RAL /03622-7104 9D 003623 7002 BSW /03623-7002 8B 003624 3157 DCA GD /03624-3157 Y/ 003625 1165 TAD FIELD7 /03625-1165 I5 003626 0122 AND O70 /03626-0122 AR 003627 7112 CLL RTR /03627-7112 9J 003630 7010 RAR /03630-7010 8H 003631 1157 TAD GD /03631-1157 I/ 003632 3157 DCA GD /03632-3157 Y/ 003633 1165 TAD FIELD7 /03633-1165 I5 003634 6175 RACA /03634-6175 1= 003635 3160 DCA BD /03635-3160 Y0 003636 4437 JMS I CKGDBD /03636-4437 $_ 003637 7410 SKP /03637-7410 <H 003640 5244 JMP T57ER /03640-5244 *$ 003641 2165 ISZ FIELD7 /03641-2165 Q5 003642 5205 JMP T57LP /03642-5205 *E 003643 5247 JMP T60GO /03643-5247 *' 003644 4447 T57ER, JMS I ERACGB /03644-4447 $' 003645 1400 1400 /03645-1400 L@ 003646 3605 T57LP /03646-3605 ^E 003647 4433 T60GO, JMS I SETTST /03647-4433 $[ TEST 60 RACB 003650 7300 CLA CLL /03650-7300 ;@ 003651 3165 DCA FIELD7 /03651-3165 Y5 003652 4444 T60LP, JMS I SETKT /03652-4444 $$ 003653 4000 EMM /03653-4000 @ 003654 1165 TAD FIELD7 /03654-1165 I5 003655 0377 AND (600 /03655-0377 C? 003656 7106 CLL RTL /03656-7106 9F 003657 3157 DCA GD /03657-3157 Y/ 003660 1165 TAD FIELD7 /03660-1165 I5 003661 0116 AND O7 /03661-0116 AN 003662 7106 CLL RTL /03662-7106 9F 003663 7004 RAL /03663-7004 8D 003664 1157 TAD GD /03664-1157 I/ 003665 3157 DCA GD /03665-3157 Y/ 003666 1165 TAD FIELD7 /03666-1165 I5 003667 6176 RACB /03667-6176 1> 003670 3160 DCA BD /03670-3160 Y0 003671 4437 JMS I CKGDBD /03671-4437 $_ 003672 7410 SKP /03672-7410 <H 003673 5277 JMP T60ER /03673-5277 *? 003674 2165 ISZ FIELD7 /03674-2165 Q5 003675 5252 JMP T60LP /03675-5252 ** AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-40 003676 5302 JMP T61GO /03676-5302 +B 003677 4447 T60ER, JMS I ERACGB /03677-4447 $' 003700 1500 1500 /03700-1500 M@ 003701 3652 T60LP /03701-3652 ^* 003702 4433 T61GO, JMS I SETTST /03702-4433 $[ TEST 61 RACC 003703 7300 CLA CLL /03703-7300 ;@ 003704 3165 DCA FIELD7 /03704-3165 Y5 003705 4444 T61LP, JMS I SETKT /03705-4444 $$ 003706 4000 EMM /03706-4000 @ 003707 1165 TAD FIELD7 /03707-1165 I5 003710 7112 CLL RTR /03710-7112 9J 003711 7010 RAR /03711-7010 8H 003712 7002 BSW /03712-7002 8B 003713 0115 AND O3 /03713-0115 AM 003714 1376 TAD (LSTBNK /03714-1376 K> 003715 3157 DCA GD /03715-3157 Y/ 003716 1165 TAD FIELD7 /03716-1165 I5 003717 0122 AND O70 /03717-0122 AR 003720 1557 TAD I GD /03720-1557 M/ 003721 3157 DCA GD /03721-3157 Y/ 003722 1165 TAD FIELD7 /03722-1165 I5 003723 6177 RACC /03723-6177 1? 003724 3160 DCA BD /03724-3160 Y0 003725 4437 JMS I CKGDBD /03725-4437 $_ 003726 7410 SKP /03726-7410 <H 003727 5333 JMP T61ER /03727-5333 +[ 003730 2165 ISZ FIELD7 /03730-2165 Q5 003731 5305 JMP T61LP /03731-5305 +E 003732 5336 JMP T61EX /03732-5336 +^ 003733 4447 T61ER, JMS I ERACGB /03733-4447 $' 003734 1600 1600 /03734-1600 N@ 003735 3705 T61LP /03735-3705 _E 003736 5737 T61EX, JMP I .+1 /03736-5737 /_ 003737 4000 T62GO /03737-4000 @ 003740 0000 TGBERR, AND 0000 /03740-0000 @@ 003741 4775 JMS I (ERRARG /03741-4775 '= 003742 3740 TGBERR /03742-3740 _ 003743 5347 JMP .+4 /03743-5347 +' 003744 4774 JMS I (COMERR /03744-4774 '< 003745 7000 NOP /03745-7000 8@ 003746 4773 JMS I (ERRPGB /03746-4773 '; 003747 4772 JMS I (ERRSWI /03747-4772 ': 003750 5740 JMP I TGBERR /03750-5740 / 003751 5354 JMP 3754 /03751-5354 +, 003752 4550 JMS I 0150 /03752-4550 %( 003753 3160 DCA 0160 /03753-3160 Y0 003754 4550 JMS I 0150 /03754-4550 %( 003755 3170 DCA 0170 /03755-3170 Y8 003756 4561 JMS I 0161 /03756-4561 %1 003757 5725 JMP I 3725 /03757-5725 /U 003760 0000 AND 0000 /03760-0000 @@ 003761 3400 DCA I 0000 /03761-3400 \@ 003762 1467 TAD I 0067 /03762-1467 L7 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-41 003763 0061 AND 0061 /03763-0061 @1 003764 0055 AND 0055 /03764-0055 @- 003765 0016 AND 0016 /03765-0016 @N 003766 7536 SPA SZL OSR HLT /03766-7536 =^ 003767 7007 IAC RTL /03767-7007 8G 003770 0006 AND 0006 /03770-0006 @F 003771 7530 SPA SZL /03771-7530 =X /JMP 3645 /03772-5245 *% /JMP 3620 /03773-5220 *P /JMP 0124 /03774-5124 )T /JMP 3660 /03775-5260 *0 /AND 0144 /03776-0144 A$ /AND I 3600 /03777-0600 F@ 003772 5245 003773 5220 003774 5124 003775 5260 003776 0144 003777 0600 4000 PAGE 20 004000 4433 T62GO, JMS I SETTST /04000-4433 $[ TEST 62 OSR->GTF 004001 4465 JMS I SETLUP /04001-4465 $5 004002 7677 -101 /04002-7677 >? 004003 6274 T62LP, SUF /04003-6274 2< 004004 5205 JMP .+1 /04004-5205 *E 004005 7404 OSR /04005-7404 <D 004006 2072 ISZ GOTUSR /04006-2072 P: 004007 5211 JMP .+2 /04007-5211 *I 004010 5214 JMP .+4 /04010-5214 *L 004011 4452 JMS I ERSNGL /04011-4452 $* 004012 0014 0014 /04012-0014 @L 004013 4003 T62LP /04013-4003 C 004014 6004 GTF /04014-6004 0D 004015 0146 AND O100 /04015-0146 A& 004016 3160 DCA BD /04016-3160 Y0 004017 1146 TAD O100 /04017-1146 I& 004020 3157 DCA GD /04020-3157 Y/ 004021 4437 JMS I CKGDBD /04021-4437 $_ 004022 5226 JMP T63GO /04022-5226 *V 004023 4446 JMS I ERRCGB /04023-4446 $& 004024 2001 2001 /04024-2001 PA 004025 4003 T62LP /04025-4003 C 004026 4433 T63GO, JMS I SETTST /04026-4433 $[ TEST 63 CLA OSR->GTS 004027 4444 JMS I SETKT /04027-4444 $$ 004030 4000 EMM /04030-4000 @ 004031 6274 SUF /04031-6274 2< 004032 5233 JMP .+1 /04032-5233 *[ 004033 7604 CLA OSR /04033-7604 >D 004034 2072 ISZ GOTUSR /04034-2072 P: 004035 5237 JMP .+2 /04035-5237 *_ 004036 5242 JMP .+4 /04036-5242 *" 004037 4452 JMS I ERSNGL /04037-4452 $* 004040 0015 0015 /04040-0015 @M 004041 4027 T63GO+1 /04041-4027 W AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-42 004042 6210 GTS /04042-6210 2H 004043 0146 AND O100 /04043-0146 A& 004044 3160 DCA BD /04044-3160 Y0 004045 1146 TAD O100 /04045-1146 I& 004046 3157 DCA GD /04046-3157 Y/ 004047 4437 JMS I CKGDBD /04047-4437 $_ 004050 5254 JMP T64GO /04050-5254 *, 004051 4446 JMS I ERRCGB /04051-4446 $& 004052 2005 2005 /04052-2005 PE 004053 4027 T63GO+1 /04053-4027 W 004054 4433 T64GO, JMS I SETTST /04054-4433 $[ TEST 64 TFL->RIB 004055 6274 SUF /04055-6274 2< 004056 5257 JMP .+1 /04056-5257 */ 004057 6040 TFL /04057-6040 0 004060 2072 ISZ GOTUSR /04060-2072 P: 004061 5263 JMP .+2 /04061-5263 *3 004062 5266 JMP .+4 /04062-5266 *6 004063 4452 JMS I ERSNGL /04063-4452 $* 004064 0016 0016 /04064-0016 @N 004065 4055 T64GO+1 /04065-4055 - 004066 6234 RIB /04066-6234 2\ 004067 0146 AND O100 /04067-0146 A& 004070 3160 DCA BD /04070-3160 Y0 004071 1146 TAD O100 /04071-1146 I& 004072 3157 DCA GD /04072-3157 Y/ 004073 4437 JMS I CKGDBD /04073-4437 $_ 004074 5300 JMP T65GO /04074-5300 +@ 004075 4446 JMS I ERRCGB /04075-4446 $& 004076 2004 2004 /04076-2004 PD 004077 4055 T64GO+1 /04077-4055 - 004100 4433 T65GO, JMS I SETTST /04100-4433 $[ TEST 65 HLT 004101 6274 SUF /04101-6274 2< 004102 5303 JMP .+1 /04102-5303 +C 004103 7402 HLT /04103-7402 <B 004104 2072 ISZ GOTUSR /04104-2072 P: 004105 5307 JMP .+2 /04105-5307 +G 004106 5312 JMP .+4 /04106-5312 +J 004107 4452 JMS I ERSNGL /04107-4452 $* 004110 0017 0017 /04110-0017 @O 004111 4101 T65GO+1 /04111-4101 !A 004112 4433 T66GO, JMS I SETTST /04112-4433 $[ TEST 66 TCF DIOI 004113 6264 CUF /04113-6264 24 004114 4444 JMS I SETKT /04114-4444 $$ 004115 4200 EMM DIOI /04115-4200 "@ 004116 3072 DCA GOTUSR /04116-3072 X: 004117 6274 SUF /04117-6274 2< 004120 5321 JMP .+1 /04120-5321 +Q 004121 6042 TCF /04121-6042 0" 004122 2072 ISZ GOTUSR /04122-2072 P: 004123 7410 SKP /04123-7410 <H 004124 5327 JMP .+3 /04124-5327 +W 004125 6264 CUF /04125-6264 24 004126 5332 JMP T67GO /04126-5332 +Z 004127 4446 JMS I ERRCGB /04127-4446 $& 004130 6746 DINOTR /04130-6746 7& AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-43 004131 4113 T66GO+1 /04131-4113 !K 004132 4433 T67GO, JMS I SETTST /04132-4433 $[ TEST 67 END 004133 4777 JMS I (CHKMEM /04133-4777 '? 004134 7301 CLA CLL IAC /04134-7301 ;A 004135 7421 MQL /04135-7421 <Q 004136 4454 JMS I PRTMSG /04136-4454 $, 004137 6511 AJKTBM /04137-6511 5I 004140 4454 JMS I PRTMSG /04140-4454 $, 004141 6505 PASSN /04141-6505 5E 004142 2161 ISZ PASNUM /04142-2161 Q1 004143 7000 NOP /04143-7000 8@ 004144 1161 TAD PASNUM /04144-1161 I1 004145 4464 JMS I PRTNUM /04145-4464 $4 004146 4465 JMS I SETLUP /04146-4465 $5 004147 7677 -101 /04147-7677 >? 004150 4430 JMS I GETSWI /04150-4430 $X 004151 0127 AND O400 /04151-0127 AW 004152 7650 SNA CLA /04152-7650 >( 004153 5776 JMP I (START5 /04153-5776 /> 004154 4455 JMS I CHKX8 /04154-4455 $- 004155 4431 JMS I HALTAT /04155-4431 $Y 004156 5776 JMP I (START5 /04156-5776 /> 004157 0000 AND 0000 /04157-0000 @@ 004160 0000 AND 0000 /04160-0000 @@ 004161 0000 AND 0000 /04161-0000 @@ 004162 0000 AND 0000 /04162-0000 @@ 004163 0000 AND 0000 /04163-0000 @@ 004164 0000 AND 0000 /04164-0000 @@ 004165 0000 AND 0000 /04165-0000 @@ 004166 0000 AND 0000 /04166-0000 @@ 004167 0000 AND 0000 /04167-0000 @@ 004170 0000 AND 0000 /04170-0000 @@ 004171 0000 AND 0000 /04171-0000 @@ 004172 0000 AND 0000 /04172-0000 @@ 004173 0000 AND 0000 /04173-0000 @@ 004174 0000 AND 0000 /04174-0000 @@ 004175 0000 AND 0000 /04175-0000 @@ /AND 4073 /04176-0273 B; /JMP I 4103 /04177-5703 /C 004176 0273 004177 5703 4200 PAGE 21 004200 0000 LODCHK, AND 0000 /04200-0000 @@ 004201 7340 CLA CLL CMA /04201-7340 ; 004202 1153 TAD THSFLD /04202-1153 I+ 004203 7650 SNA CLA /04203-7650 >( 004204 1124 TAD O200 /04204-1124 IT 004205 3076 DCA TMP /04205-3076 X> 004206 4442 LODLP, JMS I MAKCDF /04206-4442 $" 004207 7402 HLT /04207-7402 <B 004210 1077 TAD TEMP /04210-1077 H? 004211 1153 TAD THSFLD /04211-1153 I+ 004212 3157 DCA GD /04212-3157 Y/ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-44 004213 1157 TAD GD /04213-1157 I/ 004214 3477 DCA I TEMP /04214-3477 \? 004215 1477 TAD I TEMP /04215-1477 L? 004216 3160 DCA BD /04216-3160 Y0 004217 6201 CDF 0 /04217-6201 2A 004220 4437 JMS I CKGDBD /04220-4437 $_ 004221 7610 SKP CLA /04221-7610 >H 004222 4235 JMS LODTTL /04222-4235 "] 004223 7410 SKP /04223-7410 <H 004224 5600 JMP I LODCHK /04224-5600 .@ 004225 2077 ISZ TEMP /04225-2077 P? 004226 7000 NOP /04226-7000 8@ 004227 2076 ISZ TMP /04227-2076 P> 004230 5206 JMP LODLP /04230-5206 *F 004231 3077 DCA TEMP /04231-3077 X? 004232 4435 JMS I NXTFLD /04232-4435 $] 004233 5206 JMP LODLP /04233-5206 *F 004234 5600 JMP I LODCHK /04234-5600 .@ 004235 0000 LODTTL, AND 0000 /04235-0000 @@ 004236 2102 ISZ ONCE /04236-2102 QB 004237 5245 JMP LODPR /04237-5245 *% 004240 4454 JMS I PRTMSG /04240-4454 $, 004241 6414 LODERR /04241-6414 4L 004242 4454 JMS I PRTMSG /04242-4454 $, 004243 6422 FLGDBD /04243-6422 4R 004244 4460 JMS I PRCRLF /04244-4460 $0 004245 4777 LODPR, JMS I (CHKPRT /04245-4777 '? 004246 7410 SKP /04246-7410 <H 004247 2235 ISZ LODTTL /04247-2235 R] 004250 5635 JMP I LODTTL /04250-5635 .] 004251 0000 RDBTTL, AND 0000 /04251-0000 @@ 004252 2102 ISZ ONCE /04252-2102 QB 004253 5261 JMP RDBPR /04253-5261 *1 004254 4454 JMS I PRTMSG /04254-4454 $, 004255 6434 RDBKER /04255-6434 4\ 004256 4454 JMS I PRTMSG /04256-4454 $, 004257 6422 FLGDBD /04257-6422 4R 004260 4460 JMS I PRCRLF /04260-4460 $0 004261 4777 RDBPR, JMS I (CHKPRT /04261-4777 '? 004262 5651 JMP I RDBTTL /04262-5651 .) 004263 0000 TSTSET, AND 0000 /04263-0000 @@ 004264 6200 LXM /04264-6200 2@ 004265 6203 CIF CDF 0 /04265-6203 2C 004266 1263 TAD TSTSET /04266-1263 J3 004267 4776 JMS I (LPSET /04267-4776 '> 004270 7701 MQA CLA /04270-7701 ?A 004271 7001 IAC /04271-7001 8A 004272 7421 MQL /04272-7421 <Q 004273 1136 TAD OM7 /04273-1136 I^ 004274 3101 DCA MEMLIM /04274-3101 YA 004275 3153 DCA THSFLD /04275-3153 Y+ 004276 6001 ION /04276-6001 0A AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-45 004277 5663 JMP I TSTSET /04277-5663 .3 004300 0000 RDBCHK, AND 0000 /04300-0000 @@ 004301 3077 DCA TEMP /04301-3077 X? 004302 7301 RDB1, CLA CLL IAC /04302-7301 ;A 004303 7410 SKP /04303-7410 <H 004304 7305 RDB2, CLA CLL IAC RAL /04304-7305 ;E 004305 3153 DCA THSFLD /04305-3153 Y+ 004306 4432 JMS I SETFLD /04306-4432 $Z 004307 1077 RDBLP, TAD TEMP /04307-1077 H? 004310 1153 TAD THSFLD /04310-1153 I+ 004311 3157 DCA GD /04311-3157 Y/ 004312 4442 JMS I MAKCDF /04312-4442 $" 004313 7402 HLT /04313-7402 <B 004314 1477 TAD I TEMP /04314-1477 L? 004315 3160 DCA BD /04315-3160 Y0 004316 6201 CDF 0 /04316-6201 2A 004317 4437 JMS I CKGDBD /04317-4437 $_ 004320 7610 SKP CLA /04320-7610 >H 004321 4251 JMS RDBTTL /04321-4251 ") 004322 4435 JMS I NXTFLD /04322-4435 $] 004323 5307 JMP RDBLP /04323-5307 +G 004324 2077 ISZ TEMP /04324-2077 P? 004325 7410 SKP /04325-7410 <H 004326 5700 JMP I RDBCHK /04326-5700 /@ 004327 1077 TAD TEMP /04327-1077 H? 004330 7002 BSW /04330-7002 8B 004331 0123 AND O77 /04331-0123 AS 004332 1142 TAD OM76 /04332-1142 I" 004333 7710 SPA CLA /04333-7710 ?H 004334 5302 JMP RDB1 /04334-5302 +B 004335 5304 JMP RDB2 /04335-5304 +D 004336 0000 INISET, AND 0000 /04336-0000 @@ 004337 6200 LXM /04337-6200 2@ 004340 6203 CIF CDF 0 /04340-6203 2C 004341 1336 TAD INISET /04341-1336 K^ 004342 4776 JMS I (LPSET /04342-4776 '> 004343 7701 MQA CLA /04343-7701 ?A 004344 7001 IAC /04344-7001 8A 004345 7421 MQL /04345-7421 <Q 004346 1140 TAD OM37 /04346-1140 I 004347 3101 DCA MEMLIM /04347-3101 YA 004350 3153 DCA THSFLD /04350-3153 Y+ 004351 6001 ION /04351-6001 0A 004352 5736 JMP I INISET /04352-5736 /^ 004353 0000 IONCIF, AND 0000 /04353-0000 @@ 004354 1753 TAD I IONCIF /04354-1753 O+ 004355 2353 ISZ IONCIF /04355-2353 S+ 004356 3357 DCA .+1 /04356-3357 [/ 004357 7402 HLT /04357-7402 <B 004360 7402 HLT /04360-7402 <B 004361 5362 JMP .+1 /04361-5362 +2 004362 7000 NOP /04362-7000 8@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-46 004363 2072 ISZ GOTUSR /04363-2072 P: 004364 5366 JMP .+2 /04364-5366 +6 004365 5753 JMP I IONCIF /04365-5753 /+ 004366 4454 JMS I PRTMSG /04366-4454 $, 004367 6561 INTNFN /04367-6561 51 004370 4431 JMS I HALTAT /04370-4431 $Y 004371 5753 JMP I IONCIF /04371-5753 /+ 004372 0000 AND 0000 /04372-0000 @@ 004373 0000 AND 0000 /04373-0000 @@ 004374 0000 AND 0000 /04374-0000 @@ 004375 0000 AND 0000 /04375-0000 @@ /AND 4324 /04376-0324 CT /JMP I 4227 /04377-5627 .W 004376 0324 004377 5627 4400 PAGE 22 004400 0000 TTYGET, AND 0000 /04400-0000 @@ 004401 7240 CLA CMA /04401-7240 : 004402 3074 DCA IONTTY /04402-3074 X< 004403 1377 TAD (WKTTY /04403-1377 K? 004404 3071 DCA RSTTY /04404-3071 X9 004405 5205 JMP . /04405-5205 *E 004406 3076 WKTTY, DCA TMP /04406-3076 X> 004407 3074 DCA IONTTY /04407-3074 X< 004410 1076 TAD TMP /04410-1076 H> 004411 4455 JMS I 0055 /04411-4455 $- 004412 4457 JMS I PRTIO /04412-4457 $/ 004413 1076 TAD TMP /04413-1076 H> 004414 6001 ION /04414-6001 0A 004415 5600 JMP I TTYGET /04415-5600 .@ 004416 7010 INTRP, RAR /04416-7010 8H 004417 3113 DCA LINK /04417-3113 YK 004420 6254 SINT /04420-6254 2, 004421 7410 SKP /04421-7410 <H 004422 5776 JMP I (INTUSR /04422-5776 /> 004423 6031 KSF /04423-6031 0Y 004424 7410 SKP /04424-7410 <H 004425 5775 JMP I (INTKRB /04425-5775 /= 004426 6041 TSF /04426-6041 0! 004427 7410 SKP /04427-7410 <H 004430 5774 JMP I (INTTLS /04430-5774 /< 004431 6264 CUF /04431-6264 24 004432 6007 CAF /04432-6007 0G 004433 4454 JMS I PRTMSG /04433-4454 $, 004434 6603 UNDINT /04434-6603 6C 004435 4431 JMS I HALTAT /04435-4431 $Y 004436 5466 JMP I GO /04436-5466 ,6 004437 0000 MSGPRT, AND 0000 /04437-0000 @@ 004440 2024 ISZ PRTPOS /04440-2024 PT 004441 1070 TAD INTSWI /04441-1070 H8 004442 3077 DCA TEMP /04442-3077 X? AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-47 004443 3070 DCA INTSWI /04443-3070 X8 004444 1637 TAD I MSGPRT /04444-1637 N_ 004445 3314 DCA MSGTMP /04445-3314 [L 004446 2237 ISZ MSGPRT /04446-2237 R_ 004447 1714 MSGLUP, TAD I MSGTMP /04447-1714 OL 004450 7012 RTR /04450-7012 8J 004451 7012 RTR /04451-7012 8J 004452 7012 RTR /04452-7012 8J 004453 4260 JMS MSGBYT /04453-4260 "0 004454 1714 TAD I MSGTMP /04454-1714 OL 004455 4260 JMS MSGBYT /04455-4260 "0 004456 2314 ISZ MSGTMP /04456-2314 SL 004457 5247 JMP MSGLUP /04457-5247 *' 004460 0000 MSGBYT, AND 0000 /04460-0000 @@ 004461 0123 AND O77 /04461-0123 AS 004462 7450 SNA /04462-7450 <( 004463 5275 JMP MSGEND /04463-5275 *= 004464 1140 TAD OM37 /04464-1140 I 004465 7450 SNA /04465-7450 <( 004466 5302 JMP BYTEND /04466-5302 +B 004467 1373 TAD (-1 /04467-1373 K; 004470 7510 SPA /04470-7510 =H 004471 1146 TAD O100 /04471-1146 I& 004472 1125 TAD O240 /04472-1125 IU 004473 4457 JMS I PRTIO /04473-4457 $/ 004474 5660 JMP I MSGBYT /04474-5660 .0 004475 7300 MSGEND, CLA CLL /04475-7300 ;@ 004476 1077 TAD TEMP /04476-1077 H? 004477 3070 DCA INTSWI /04477-3070 X8 004500 3024 DCA PRTPOS /04500-3024 XT 004501 5637 JMP I MSGPRT /04501-5637 ._ 004502 4460 BYTEND, JMS I PRCRLF /04502-4460 $0 004503 5660 JMP I MSGBYT /04503-5660 .0 004504 0000 CRLFPR, AND 0000 /04504-0000 @@ 004505 1313 TAD CR /04505-1313 KK 004506 4457 JMS I PRTIO /04506-4457 $/ 004507 1312 TAD LF /04507-1312 KJ 004510 4457 JMS I PRTIO /04510-4457 $/ 004511 5704 JMP I CRLFPR /04511-5704 /D 004512 0212 LF, 212 /04512-0212 BJ 004513 0215 CR, 215 /04513-0215 BM 004514 0000 MSGTMP, AND 0000 /04514-0000 @@ 004515 0000 BNKSCK, AND 0000 /04515-0000 @@ 004516 7300 CLA CLL /04516-7300 ;@ 004517 1372 TAD (MRLIST /04517-1372 K: 004520 3010 DCA 0010 /04520-3010 XH 004521 1410 TAD I 0010 /04521-1410 LH 004522 3076 DCA TMP /04522-3076 X> 004523 6205 CDF 4 /04523-6205 2E 004524 4346 JMS GETRMR /04524-4346 #& 004525 7330 CLA CLL CML RAR /04525-7330 ;X 004526 3156 DCA BD1 /04526-3156 Y. AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-48 004527 1410 TAD I 0010 /04527-1410 LH 004530 3076 DCA TMP /04530-3076 X> 004531 6301 CDF 100 /04531-6301 3A 004532 4346 JMS GETRMR /04532-4346 #& 004533 7332 CLA CLL CML RTR /04533-7332 ;Z 004534 1156 TAD BD1 /04534-1156 I. 004535 3156 DCA BD1 /04535-3156 Y. 004536 1410 TAD I 0010 /04536-1410 LH 004537 3076 DCA TMP /04537-3076 X> 004540 6305 CDF 104 /04540-6305 3E 004541 4346 JMS GETRMR /04541-4346 #& 004542 1130 TAD O1000 /04542-1130 IX 004543 1156 TAD BD1 /04543-1156 I. 004544 3156 DCA BD1 /04544-3156 Y. 004545 5715 JMP I BNKSCK /04545-5715 /M 004546 0000 GETRMR, AND 0000 /04546-0000 @@ 004547 1533 TAD I O7000 /04547-1533 M[ 004550 7300 CLA CLL /04550-7300 ;@ 004551 6173 RMR /04551-6173 1; 004552 7041 CMA IAC /04552-7041 8! 004553 1076 TAD TMP /04553-1076 H> 004554 7640 SZA CLA /04554-7640 > 004555 2346 ISZ GETRMR /04555-2346 S& 004556 6201 CDF 0 /04556-6201 2A 004557 5746 JMP I GETRMR /04557-5746 /& 004560 0000 LUPSET, AND 0000 /04560-0000 @@ 004561 1760 TAD I LUPSET /04561-1760 O0 004562 3172 DCA LPINI /04562-3172 Y: 004563 2360 ISZ LUPSET /04563-2360 S0 004564 1172 TAD LPINI /04564-1172 I: 004565 3171 DCA LOOP /04565-3171 Y9 004566 5760 JMP I LUPSET /04566-5760 /0 004567 4151 JMS 0151 /04567-4151 !) 004570 4135 JMS 0135 /04570-4135 !] 004571 4212 JMS 4412 /04571-4212 "J /6064 /04572-6064 04 /MQA MQL CLA SAM /04573-7777 ?? /JMP I 0147 /04574-5547 -' /JMP I 0130 /04575-5530 -X /JMP 4516 /04576-5316 +N /JMS I 0006 /04577-4406 $F 004572 6064 004573 7777 004574 5547 004575 5530 004576 5316 004577 4406 4600 PAGE 23 004600 0000 MEMGET, AND 0000 /04600-0000 @@ 004601 3075 DCA AVLMEM /04601-3075 X= 004602 7346 CLA CLL CMA RTL /04602-7346 ;& AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-49 004603 3252 DCA MGCNT /04603-3252 Z* 004604 3251 DCA MGREG /04604-3251 Z) 004605 4461 MGNXT, JMS I GETTTY /04605-4461 $1 004606 3250 DCA MGCHR /04606-3250 Z( 004607 1250 TAD MGCHR /04607-1250 J( 004610 1143 TAD OM215 /04610-1143 I# 004611 7650 SNA CLA /04611-7650 >( 004612 5236 JMP MGDEF /04612-5236 *^ 004613 1250 TAD MGCHR /04613-1250 J( 004614 1246 TAD OM260 /04614-1246 J& 004615 7710 SPA CLA /04615-7710 ?H 004616 5600 JMP I MEMGET /04616-5600 .@ 004617 1250 TAD MGCHR /04617-1250 J( 004620 1247 TAD OM270 /04620-1247 J' 004621 7700 SMA CLA /04621-7700 ?@ 004622 5600 JMP I MEMGET /04622-5600 .@ 004623 1250 TAD MGCHR /04623-1250 J( 004624 0116 AND O7 /04624-0116 AN 004625 3250 DCA MGCHR /04625-3250 Z( 004626 1251 TAD MGREG /04626-1251 J) 004627 7106 CLL RTL /04627-7106 9F 004630 7004 RAL /04630-7004 8D 004631 1250 TAD MGCHR /04631-1250 J( 004632 3251 DCA MGREG /04632-3251 Z) 004633 2252 ISZ MGCNT /04633-2252 R* 004634 5205 JMP MGNXT /04634-5205 *E 004635 5600 JMP I MEMGET /04635-5600 .@ 004636 4460 MGDEF, JMS I PRCRLF /04636-4460 $0 004637 2200 ISZ MEMGET /04637-2200 R@ 004640 7325 CLA CLL CML IAC RAL /04640-7325 ;U 004641 1252 TAD MGCNT /04641-1252 J* 004642 7650 SNA CLA /04642-7650 >( 004643 1075 TAD AVLMEM /04643-1075 H= 004644 1251 TAD MGREG /04644-1251 J) 004645 5600 JMP I MEMGET /04645-5600 .@ 004646 7520 OM260, SMA SNL /04646-7520 =P 004647 7510 OM270, SPA /04647-7510 =H 004650 0000 MGCHR, AND 0000 /04650-0000 @@ 004651 0000 MGREG, AND 0000 /04651-0000 @@ 004652 0000 MGCNT, AND 0000 /04652-0000 @@ 004653 0000 X8CHK, AND 0000 /04653-0000 @@ 004654 6002 IOF /04654-6002 0B 004655 3300 DCA X8TMP /04655-3300 [@ 004656 1022 TAD X8 /04656-1022 HR 004657 0127 AND O400 /04657-0127 AW 004660 7640 SZA CLA /04660-7640 > 004661 5265 JMP .+4 /04661-5265 *5 004662 1300 TAD X8TMP /04662-1300 K@ 004663 6001 ION /04663-6001 0A 004664 5653 JMP I X8CHK /04664-5653 .+ 004665 6224 RIF /04665-6224 2T 004666 1377 TAD (0 /04666-1377 K? 004667 1376 TAD (CIF 0 /04667-1376 K> 004670 3271 DCA 4671 /04670-3271 Z9 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-50 004671 7402 HLT /04671-7402 <B 004672 1300 TAD X8TMP /04672-1300 K@ 004673 4677 JMS I X87222 /04673-4677 &? 004674 2253 ISZ X8CHK /04674-2253 R+ 004675 6001 ION /04675-6001 0A 004676 5653 JMP I X8CHK /04676-5653 .+ 004677 7222 X87222, 7222 /04677-7222 :R 004700 0000 X8TMP, 0000 /04700-0000 @@ 004701 5301 DOMRAN, JMP 4701 /04701-5301 +A 004702 7301 CLA CLL IAC /04702-7301 ;A 004703 1315 TAD R1 /04703-1315 KM 004704 1316 TAD R2 /04704-1316 KN 004705 7106 CLL RTL /04705-7106 9F 004706 3315 DCA R1 /04706-3315 [M 004707 1316 TAD R2 /04707-1316 KN 004710 7012 RTR /04710-7012 8J 004711 1315 TAD R1 /04711-1315 KM 004712 3316 DCA R2 /04712-3316 [N 004713 1316 TAD R2 /04713-1316 KN 004714 5701 JMP I DOMRAN /04714-5701 /A 004715 1234 R1, 1234 /04715-1234 J\ 004716 5670 R2, 5670 /04716-5670 .8 004717 0000 GDBDCK, AND 0000 /04717-0000 @@ 004720 7200 CLA /04720-7200 :@ 004721 6203 CIF CDF 0 /04721-6203 2C 004722 4775 JMS I (DBST2 /04722-4775 '= 004723 5330 JMP 4730 /04723-5330 +X 004724 1160 TAD BD /04724-1160 I0 004725 7041 CMA IAC /04725-7041 8! 004726 1157 TAD GD /04726-1157 I/ 004727 7640 SZA CLA /04727-7640 > 004730 2317 ISZ GDBDCK /04730-2317 SO 004731 5717 JMP I GDBDCK /04731-5717 /O 004732 0000 SHUFFL, AND 0000 /04732-0000 @@ 004733 1374 TAD (-13 /04733-1374 K< 004734 3371 DCA SHCNT /04734-3371 [9 004735 3370 DCA SHRES /04735-3370 [8 004736 1732 TAD I SHUFFL /04736-1732 OZ 004737 3367 DCA SHARG /04737-3367 [7 004740 1767 TAD I SHARG /04740-1767 O7 004741 2332 ISZ SHUFFL /04741-2332 SZ 004742 3367 DCA SHARG /04742-3367 [7 004743 1367 SHF0, TAD SHARG /04743-1367 K7 004744 7104 CLL RAL /04744-7104 9D 004745 3367 DCA SHARG /04745-3367 [7 004746 1367 TAD SHARG /04746-1367 K7 004747 7700 SMA CLA /04747-7700 ?@ 004750 5354 JMP SHF1 /04750-5354 +, 004751 7420 SNL /04751-7420 <P 004752 5355 JMP SHF2 /04752-5355 +- 004753 5357 JMP SHF3 /04753-5357 +/ 004754 7430 SHF1, SZL /04754-7430 <X AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-51 004755 7120 SHF2, CLL CML /04755-7120 9P 004756 7410 SKP /04756-7410 <H 004757 7100 SHF3, CLL /04757-7100 9@ 004760 1370 TAD SHRES /04760-1370 K8 004761 7004 RAL /04761-7004 8D 004762 3370 DCA SHRES /04762-3370 [8 004763 2371 ISZ SHCNT /04763-2371 S9 004764 5343 JMP SHF0 /04764-5343 +# 004765 1370 TAD SHRES /04765-1370 K8 004766 5732 JMP I SHUFFL /04766-5732 /Z 004767 0000 SHARG, AND 0000 /04767-0000 @@ 004770 0000 SHRES, AND 0000 /04770-0000 @@ 004771 0000 SHCNT, AND 0000 /04771-0000 @@ 004772 7563 MQA MQL DAD /04772-7563 =3 004773 2000 ISZ 0000 /04773-2000 P@ /MQA MQL CLA DST /04774-7765 ?5 /DCA 4755 /04775-3355 [- /CIF 0 /04776-6202 2B /AND 0000 /04777-0000 @@ 004774 7765 004775 3355 004776 6202 004777 0000 5000 PAGE 24 005000 1113 OUTINT, TAD LINK /05000-1113 IK 005001 7104 CLL RAL /05001-7104 9D 005002 7200 CLA /05002-7200 :@ 005003 1114 TAD AC /05003-1114 IL 005004 6001 ION /05004-6001 0A 005005 5400 JMP I INTVER /05005-5400 ,@ 005006 0000 BNKSER, AND 0000 /05006-0000 @@ 005007 4777 JMS I (ERRARG /05007-4777 '? 005010 5006 BNKSER /05010-5006 (F 005011 5236 JMP BNKSEX /05011-5236 *^ 005012 4454 JMS I PRTMSG /05012-4454 $, 005013 6445 MSPC /05013-6445 4% 005014 1103 TAD ERRLOC /05014-1103 IC 005015 4464 JMS I PRTNUM /05015-4464 $4 005016 4454 JMS I PRTMSG /05016-4454 $, 005017 6673 MSBSEL /05017-6673 6; 005020 1156 TAD BD1 /05020-1156 I. 005021 7640 SZA CLA /05021-7640 > 005022 5226 JMP .+4 /05022-5226 *V 005023 4454 JMS I PRTMSG /05023-4454 $, 005024 6375 MSNSLB /05024-6375 3= 005025 5236 JMP BNKSEX /05025-5236 *^ 005026 4454 JMS I PRTMSG /05026-4454 $, 005027 7052 MSSLBE /05027-7052 8* 005030 1157 TAD GD /05030-1157 I/ 005031 4436 JMS I PRTBNK /05031-4436 $^ 005032 4454 JMS I PRTMSG /05032-4454 $, 005033 7064 MSSLBF /05033-7064 84 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-52 005034 1156 TAD BD1 /05034-1156 I. 005035 4436 JMS I PRTBNK /05035-4436 $^ 005036 4776 BNKSEX, JMS I (ERRSWI /05036-4776 '> 005037 5606 JMP I BNKSER /05037-5606 .F 005040 0000 ACGBER, AND 0000 /05040-0000 @@ 005041 4777 JMS I (ERRARG /05041-4777 '? 005042 5040 ACGBER /05042-5040 ( 005043 5266 JMP EXACGB /05043-5266 *6 005044 4454 JMS I PRTMSG /05044-4454 $, 005045 6445 MSPC /05045-6445 4% 005046 1103 TAD ERRLOC /05046-1103 IC 005047 4464 JMS I PRTNUM /05047-4464 $4 005050 4454 JMS I PRTMSG /05050-4454 $, 005051 6343 BADAC /05051-6343 3# 005052 4454 JMS I PRTMSG /05052-4454 $, 005053 6361 CMDCOL /05053-6361 31 005054 1105 TAD ERRTYP /05054-1105 IE 005055 7002 BSW /05055-7002 8B 005056 0120 AND O37 /05056-0120 AP 005057 1375 TAD (INSMS1 /05057-1375 K= 005060 3076 DCA TMP /05060-3076 X> 005061 1476 TAD I TMP /05061-1476 L> 005062 3264 DCA .+2 /05062-3264 Z4 005063 4454 JMS I PRTMSG /05063-4454 $, 005064 0000 0000 /05064-0000 @@ 005065 4774 JMS I (ERRPGB /05065-4774 '< 005066 4776 EXACGB, JMS I (ERRSWI /05066-4776 '> 005067 5640 JMP I ACGBER /05067-5640 . 005070 0000 SNGLER, AND 0000 /05070-0000 @@ 005071 4777 JMS I (ERRARG /05071-4777 '? 005072 5070 SNGLER /05072-5070 (8 005073 5312 JMP SNGLEX /05073-5312 +J 005074 4454 JMS I PRTMSG /05074-4454 $, 005075 6445 MSPC /05075-6445 4% 005076 1103 TAD ERRLOC /05076-1103 IC 005077 4464 JMS I PRTNUM /05077-4464 $4 005100 1105 TAD ERRTYP /05100-1105 IE 005101 0120 AND O37 /05101-0120 AP 005102 1373 TAD (INSMS2 /05102-1373 K; 005103 3076 DCA TMP /05103-3076 X> 005104 1476 TAD I TMP /05104-1476 L> 005105 3307 DCA .+2 /05105-3307 [G 005106 4454 JMS I PRTMSG /05106-4454 $, 005107 0000 0000 /05107-0000 @@ 005110 4454 JMS I PRTMSG /05110-4454 $, 005111 6620 NOTRAP /05111-6620 6P 005112 4776 SNGLEX, JMS I (ERRSWI /05112-4776 '> 005113 5670 JMP I SNGLER /05113-5670 .8 005114 0000 CGBERR, AND 0000 /05114-0000 @@ 005115 4777 JMS I (ERRARG /05115-4777 '? 005116 5114 CGBERR /05116-5114 )L 005117 5322 JMP .+3 /05117-5322 +R AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-53 005120 4324 JMS COMERR /05120-4324 #T 005121 4774 JMS I (ERRPGB /05121-4774 '< 005122 4776 JMS I (ERRSWI /05122-4776 '> 005123 5714 JMP I CGBERR /05123-5714 /L 005124 0000 COMERR, AND 0000 /05124-0000 @@ 005125 4454 JMS I PRTMSG /05125-4454 $, 005126 6445 MSPC /05126-6445 4% 005127 1103 TAD ERRLOC /05127-1103 IC 005130 4464 JMS I PRTNUM /05130-4464 $4 005131 1105 TAD ERRTYP /05131-1105 IE 005132 7700 SMA CLA /05132-7700 ?@ 005133 5341 JMP COMTP1 /05133-5341 +! 005134 1105 TAD ERRTYP /05134-1105 IE 005135 3337 DCA .+2 /05135-3337 [_ 005136 4454 JMS I PRTMSG /05136-4454 $, 005137 0000 0000 /05137-0000 @@ 005140 5371 JMP COMEXI /05140-5371 +9 005141 1105 COMTP1, TAD ERRTYP /05141-1105 IE 005142 7002 BSW /05142-7002 8B 005143 0120 AND O37 /05143-0120 AP 005144 7450 SNA /05144-7450 <( 005145 5356 JMP COMTP2 /05145-5356 +. 005146 1375 TAD (INSMS1 /05146-1375 K= 005147 3355 DCA COMTP2-1 /05147-3355 [- 005150 1755 TAD I COMTP2-1 /05150-1755 O- 005151 3355 DCA COMTP2-1 /05151-3355 [- 005152 4454 JMS I PRTMSG /05152-4454 $, 005153 6356 LDCOL /05153-6356 3. 005154 4454 JMS I PRTMSG /05154-4454 $, 005155 0000 0000 /05155-0000 @@ 005156 1105 COMTP2, TAD ERRTYP /05156-1105 IE 005157 0120 AND O37 /05157-0120 AP 005160 1373 TAD (INSMS2 /05160-1373 K; 005161 3367 DCA COMEXI-2 /05161-3367 [7 005162 1767 TAD I COMEXI-2 /05162-1767 O7 005163 3367 DCA COMEXI-2 /05163-3367 [7 005164 4454 JMS I PRTMSG /05164-4454 $, 005165 6361 CMDCOL /05165-6361 31 005166 4454 JMS I PRTMSG /05166-4454 $, 005167 0000 0000 /05167-0000 @@ 005170 7610 SKP CLA /05170-7610 >H 005171 2324 COMEXI, ISZ COMERR /05171-2324 ST 005172 5724 JMP I COMERR /05172-5724 /T /6126 /05173-6126 1V /JMP 5020 /05174-5220 *P /6105 /05175-6105 1E /JMP 5045 /05176-5245 *% /JMP 5060 /05177-5260 *0 005173 6126 005174 5220 005175 6105 005176 5245 005177 5260 5200 PAGE 25 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-54 005200 0000 CDBGBE, AND 0000 /05200-0000 @@ 005201 4260 JMS ERRARG /05201-4260 "0 005202 5200 CDBGBE /05202-5200 *@ 005203 5216 JMP 5216 /05203-5216 *N 005204 4777 JMS I (COMERR /05204-4777 '? 005205 4454 JMS I PRTMSG /05205-4454 $, 005206 6450 DEVCOL /05206-6450 4( 005207 1163 TAD BRKADR /05207-1163 I3 005210 4464 JMS I PRTNUM /05210-4464 $4 005211 4454 JMS I PRTMSG /05211-4454 $, 005212 6454 BNKCOL /05212-6454 4, 005213 1164 TAD BRKBNK /05213-1164 I4 005214 4464 JMS I PRTNUM /05214-4464 $4 005215 4220 JMS ERRPGB /05215-4220 "P 005216 4245 JMS ERRSWI /05216-4245 "% 005217 5600 JMP I CDBGBE /05217-5600 .@ 005220 0000 ERRPGB, AND 0000 /05220-0000 @@ 005221 1105 TAD ERRTYP /05221-1105 IE 005222 1376 TAD (-1400 /05222-1376 K> 005223 7510 SPA /05223-7510 =H 005224 5234 JMP ERRNPT /05224-5234 *\ 005225 1375 TAD (-200 /05225-1375 K= 005226 7740 SMA SZA CLA /05226-7740 ? 005227 5234 JMP ERRNPT /05227-5234 *\ 005230 4454 JMS I PRTMSG /05230-4454 $, 005231 6364 PTCOL /05231-6364 34 005232 1165 TAD FIELD7 /05232-1165 I5 005233 4464 JMS I PRTNUM /05233-4464 $4 005234 4454 ERRNPT, JMS I PRTMSG /05234-4454 $, 005235 6367 GDCOL /05235-6367 37 005236 1157 TAD GD /05236-1157 I/ 005237 4464 JMS I PRTNUM /05237-4464 $4 005240 4454 JMS I PRTMSG /05240-4454 $, 005241 6372 BDCOL /05241-6372 3: 005242 1160 TAD BD /05242-1160 I0 005243 4464 JMS I PRTNUM /05243-4464 $4 005244 5620 JMP I ERRPGB /05244-5620 .P 005245 0000 ERRSWI, AND 0000 /05245-0000 @@ 005246 4430 JMS I GETSWI /05246-4430 $X 005247 7700 SMA CLA /05247-7700 ?@ 005250 4431 JMS I HALTAT /05250-4431 $Y 005251 4430 JMS I GETSWI /05251-4430 $X 005252 0131 AND O2000 /05252-0131 AY 005253 7640 SZA CLA /05253-7640 > 005254 5504 JMP I ERRNXT /05254-5504 -D 005255 7240 CLA CMA /05255-7240 : 005256 3774 DCA I (LPCNT /05256-3774 _< 005257 5645 JMP I ERRSWI /05257-5645 .% 005260 0000 ERRARG, AND 0000 /05260-0000 @@ 005261 7200 CLA /05261-7200 :@ 005262 6201 CDF 0 /05262-6201 2A AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-55 005263 1660 TAD I ERRARG /05263-1660 N0 005264 3076 DCA TMP /05264-3076 X> 005265 7240 CLA CMA /05265-7240 : 005266 1476 TAD I TMP /05266-1476 L> 005267 3103 DCA ERRLOC /05267-3103 YC 005270 2260 ISZ ERRARG /05270-2260 R0 005271 1476 TAD I TMP /05271-1476 L> 005272 3077 DCA TEMP /05272-3077 X? 005273 1477 TAD I TEMP /05273-1477 L? 005274 3105 DCA ERRTYP /05274-3105 YE 005275 2077 ISZ TEMP /05275-2077 P? 005276 1477 TAD I TEMP /05276-1477 L? 005277 2077 ISZ TEMP /05277-2077 P? 005300 3104 DCA ERRNXT /05300-3104 YD 005301 1077 TAD TEMP /05301-1077 H? 005302 3476 DCA I TMP /05302-3476 \> 005303 4430 JMS I GETSWI /05303-4430 $X 005304 0124 AND O200 /05304-0124 AT 005305 7650 SNA CLA /05305-7650 >( 005306 2260 ISZ ERRARG /05306-2260 R0 005307 1105 TAD ERRTYP /05307-1105 IE 005310 0373 AND (7700 /05310-0373 C; 005311 1372 TAD (-400 /05311-1372 K: 005312 7650 SNA CLA /05312-7650 >( 005313 6200 LXM /05313-6200 2@ 005314 4771 JMS I (TELLX8 /05314-4771 '9 005315 5660 JMP I ERRARG /05315-5660 .0 005316 6204 INTUSR, CINT /05316-6204 2D 005317 7240 CLA CMA /05317-7240 : 005320 3072 DCA GOTUSR /05320-3072 X: 005321 6001 ION /05321-6001 0A 005322 5400 JMP I INTVER /05322-5400 ,@ 005323 0000 FLDSET, AND 0000 /05323-0000 @@ 005324 7300 CLA CLL /05324-7300 ;@ 005325 1153 TAD THSFLD /05325-1153 I+ 005326 0116 AND O7 /05326-0116 AN 005327 3165 DCA FIELD7 /05327-3165 Y5 005330 1153 TAD THSFLD /05330-1153 I+ 005331 7112 CLL RTR /05331-7112 9J 005332 7010 RAR /05332-7010 8H 005333 0115 AND O3 /05333-0115 AM 005334 3110 DCA BANK3 /05334-3110 YH 005335 1370 TAD (LSTBNK /05335-1370 K8 005336 1110 TAD BANK3 /05336-1110 IH 005337 3364 DCA XLSTBN /05337-3364 [4 005340 1367 TAD (MRLIST /05340-1367 K7 005341 1110 TAD BANK3 /05341-1110 IH 005342 3167 DCA MRBITS /05342-3167 Y7 005343 1073 TAD WHATIS /05343-1073 H; 005344 7650 SNA CLA /05344-7650 >( 005345 5350 JMP .+3 /05345-5350 +( 005346 1165 TAD FIELD7 /05346-1165 I5 005347 5352 JMP .+3 /05347-5352 +* AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-56 005350 4440 JMS I SHFL /05350-4440 $ 005351 0165 FIELD7 /05351-0165 A5 005352 3165 DCA FIELD7 /05352-3165 Y5 005353 1567 TAD I MRBITS /05353-1567 M7 005354 1165 TAD FIELD7 /05354-1165 I5 005355 3167 DCA MRBITS /05355-3167 Y7 005356 1165 TAD FIELD7 /05356-1165 I5 005357 7106 CLL RTL /05357-7106 9F 005360 7004 RAL /05360-7004 8D 005361 1764 TAD I XLSTBN /05361-1764 O4 005362 3112 DCA CDBITS /05362-3112 YJ 005363 5723 JMP I FLDSET /05363-5723 /S 005364 0000 XLSTBN, AND 0000 /05364-0000 @@ 005365 5507 JMP I 0107 /05365-5507 -G 005366 5506 JMP I 0106 /05366-5506 -F /6064 /05367-6064 04 /0144 /05370-0144 A$ /AND I 0154 /05371-0554 E, /7400 /05372-7400 <@ /SMA CLA /05373-7700 ?@ /AND 5352 /05374-0352 C* /7600 /05375-7600 >@ /6400 /05376-6400 4@ /JMP 0124 /05377-5124 )T 005367 6064 005370 0144 005371 0554 005372 7400 005373 7700 005374 0352 005375 7600 005376 6400 005377 5124 5400 PAGE 26 005400 0000 CIFMAK, AND 0000 /05400-0000 @@ 005401 1112 TAD CDBITS /05401-1112 IJ 005402 1151 TAD CCIF /05402-1151 I) 005403 3600 DCA I CIFMAK /05403-3600 ^@ 005404 5600 JMP I CIFMAK /05404-5600 .@ 005405 0000 CDIMAK, AND 0000 /05405-0000 @@ 005406 1112 TAD CDBITS /05406-1112 IJ 005407 1152 TAD CCDI /05407-1152 I* 005410 3605 DCA I CDIMAK /05410-3605 ^E 005411 5605 JMP I CDIMAK /05411-5605 .E 005412 0000 BNKPRT, AND 0000 /05412-0000 @@ 005413 3077 DCA TEMP /05413-3077 X? 005414 1135 TAD OM4 /05414-1135 I] 005415 3076 DCA TMP /05415-3076 X> 005416 1126 TAD O260 /05416-1126 IV 005417 3012 DCA 0012 /05417-3012 XJ 005420 1012 BPL1, TAD 0012 /05420-1012 HJ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-57 005421 4457 JMS I PRTIO /05421-4457 $/ 005422 1125 TAD O240 /05422-1125 IU 005423 4457 JMS I PRTIO /05423-4457 $/ 005424 2012 BPL2, ISZ 0012 /05424-2012 PJ 005425 2076 ISZ TMP /05425-2076 P> 005426 7410 SKP /05426-7410 <H 005427 5612 JMP I BNKPRT /05427-5612 .J 005430 1077 TAD TEMP /05430-1077 H? 005431 7104 CLL RAL /05431-7104 9D 005432 3077 DCA TEMP /05432-3077 X? 005433 7520 SMA SNL /05433-7520 =P 005434 5224 JMP BPL2 /05434-5224 *T 005435 5220 JMP BPL1 /05435-5220 *P 005436 0000 NUMPRT, AND 0000 /05436-0000 @@ 005437 3272 DCA PRTVAL /05437-3272 Z: 005440 2024 ISZ PRTPOS /05440-2024 PT 005441 1135 TAD OM4 /05441-1135 I] 005442 3014 DCA 0014 /05442-3014 XL 005443 1272 TAD PRTVAL /05443-1272 J: 005444 7004 RAL /05444-7004 8D 005445 7004 PRTLUP, RAL /05445-7004 8D 005446 7006 RTL /05446-7006 8F 005447 3272 DCA PRTVAL /05447-3272 Z: 005450 1272 TAD PRTVAL /05450-1272 J: 005451 0116 AND O7 /05451-0116 AN 005452 1126 TAD O260 /05452-1126 IV 005453 3273 DCA PRTTEM /05453-3273 Z; 005454 7010 RAR /05454-7010 8H 005455 3274 DCA PRTLNK /05455-3274 Z< 005456 1273 TAD PRTTEM /05456-1273 J; 005457 4457 JMS I PRTIO /05457-4457 $/ 005460 1274 TAD PRTLNK /05460-1274 J< 005461 7104 CLL RAL /05461-7104 9D 005462 1272 TAD PRTVAL /05462-1272 J: 005463 2014 ISZ 0014 /05463-2014 PL 005464 5245 JMP PRTLUP /05464-5245 *% 005465 7300 CLA CLL /05465-7300 ;@ 005466 1125 TAD O240 /05466-1125 IU 005467 4457 JMS I PRTIO /05467-4457 $/ 005470 3024 DCA PRTPOS /05470-3024 XT 005471 5636 JMP I NUMPRT /05471-5636 .^ 005472 0000 PRTVAL, AND 0000 /05472-0000 @@ 005473 0000 PRTTEM, AND 0000 /05473-0000 @@ 005474 0000 PRTLNK, AND 0000 /05474-0000 @@ 005475 0000 KTSET, AND 0000 /05475-0000 @@ 005476 1675 TAD I KTSET /05476-1675 N= 005477 2275 ISZ KTSET /05477-2275 R= 005500 3166 DCA CNT /05500-3166 Y6 005501 1166 KTLP, TAD CNT /05501-1166 I6 005502 3157 DCA GD /05502-3157 Y/ 005503 1157 TAD GD /05503-1157 I/ 005504 6200 LXM /05504-6200 2@ 005505 7440 SZA /05505-7440 < AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-58 005506 5322 JMP KTERR /05506-5322 +R 005507 6230 RXM /05507-6230 2X 005510 3160 DCA BD /05510-3160 Y0 005511 1160 TAD BD /05511-1160 I0 005512 7041 CMA IAC /05512-7041 8! 005513 1157 TAD GD /05513-1157 I/ 005514 7650 SNA CLA /05514-7650 >( 005515 5675 JMP I KTSET /05515-5675 .= 005516 4446 JMS I ERRCGB /05516-4446 $& 005517 0406 0406 /05517-0406 DF 005520 5477 JMP I 0077 /05520-5477 ,? 005521 5675 JMP I KTSET /05521-5675 .= 005522 3160 KTERR, DCA BD /05522-3160 Y0 005523 3157 DCA GD /05523-3157 Y/ 005524 4447 JMS I ERACGB /05524-4447 $' 005525 0400 0400 /05525-0400 D@ 005526 5501 KTLP /05526-5501 -A 005527 5675 JMP I KTSET /05527-5675 .= 005530 6036 INTKRB, KRB /05530-6036 0^ 005531 0346 AND P177 /05531-0346 C& 005532 1124 TAD O200 /05532-1124 IT 005533 3076 DCA TMP /05533-3076 X> 005534 1074 TAD IONTTY /05534-1074 H< 005535 7640 SZA CLA /05535-7640 > 005536 5343 JMP INTKNO /05536-5343 +# 005537 1076 TAD TMP /05537-1076 H> 005540 4455 JMS I CHKX8 /05540-4455 $- 005541 7000 NOP /05541-7000 8@ 005542 5466 JMP I GO /05542-5466 ,6 005543 1076 INTKNO, TAD TMP /05543-1076 H> 005544 5471 JMP I RSTTY /05544-5471 ,9 005545 0000 0000 /05545-0000 @@ 005546 0177 P177, 177 /05546-0177 A? 005547 1070 INTTLS, TAD INTSWI /05547-1070 H8 005550 7640 SZA CLA /05550-7640 > 005551 5354 JMP .+3 /05551-5354 +, 005552 4454 JMS I PRTMSG /05552-4454 $, 005553 6654 INTUNX /05553-6654 6, 005554 3070 DCA INTSWI /05554-3070 X8 005555 6042 TCF /05555-6042 0" 005556 5463 JMP I INTOUT /05556-5463 ,3 005557 0000 FLDNXT, AND 0000 /05557-0000 @@ 005560 6203 CIF CDF 0 /05560-6203 2C 005561 3070 DCA INTSWI /05561-3070 X8 005562 1153 TAD THSFLD /05562-1153 I+ 005563 1101 TAD MEMLIM /05563-1101 IA 005564 7710 SPA CLA /05564-7710 ?H 005565 5371 JMP .+4 /05565-5371 +9 005566 3153 DCA THSFLD /05566-3153 Y+ 005567 2357 ISZ FLDNXT /05567-2357 S/ 005570 7410 SKP /05570-7410 <H 005571 2153 ISZ THSFLD /05571-2153 Q+ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-59 005572 4432 JMS I SETFLD /05572-4432 $Z 005573 5757 JMP I FLDNXT /05573-5757 // 005574 5272 JMP 5472 /05574-5272 *: 005575 5330 JMP 5530 /05575-5330 +X 005576 5275 JMP 5475 /05576-5275 *= 005577 0047 AND 0047 /05577-0047 @' 5600 PAGE 27 005600 0000 ATHALT, AND 0000 /05600-0000 @@ 005601 4454 JMS I PRTMSG /05601-4454 $, 005602 6460 HLTAPC /05602-6460 40 005603 7240 CLA CMA /05603-7240 : 005604 1200 TAD ATHALT /05604-1200 J@ 005605 4464 JMS I PRTNUM /05605-4464 $4 005606 4455 JMS I CHKX8 /05606-4455 $- 005607 7610 SKP CLA /05607-7610 >H 005610 5214 JMP .+4 /05610-5214 *L 005611 4461 JMS I GETTTY /05611-4461 $1 005612 1143 TAD OM215 /05612-1143 I# 005613 7650 SNA CLA /05613-7650 >( 005614 5220 JMP .+4 /05614-5220 *P 005615 4454 JMS I PRTMSG /05615-4454 $, 005616 6616 QMRKER /05616-6616 6N 005617 5211 JMP .-6 /05617-5211 *I 005620 4460 JMS I PRCRLF /05620-4460 $0 005621 5600 JMP I ATHALT /05621-5600 .@ 005622 0000 CDFMAK, AND 0000 /05622-0000 @@ 005623 1112 TAD CDBITS /05623-1112 IJ 005624 1150 TAD CCDF /05624-1150 I( 005625 3622 DCA I CDFMAK /05625-3622 ^R 005626 5622 JMP I CDFMAK /05626-5622 .R 005627 0000 CHKPRT, AND 0000 /05627-0000 @@ 005630 4430 JMS I GETSWI /05630-4430 $X 005631 0124 AND O200 /05631-0124 AT 005632 7640 SZA CLA /05632-7640 > 005633 5627 JMP I CHKPRT /05633-5627 .W 005634 4460 JMS I PRCRLF /05634-4460 $0 005635 1153 TAD THSFLD /05635-1153 I+ 005636 4464 JMS I PRTNUM /05636-4464 $4 005637 1077 TAD TEMP /05637-1077 H? 005640 4464 JMS I PRTNUM /05640-4464 $4 005641 1157 TAD GD /05641-1157 I/ 005642 4464 JMS I PRTNUM /05642-4464 $4 005643 1160 TAD BD /05643-1160 I0 005644 4464 JMS I PRTNUM /05644-4464 $4 005645 1160 TAD BD /05645-1160 I0 005646 7640 SZA CLA /05646-7640 > 005647 5627 JMP I CHKPRT /05647-5627 .W 005650 1102 TAD ONCE /05650-1102 IB 005651 1136 TAD OM7 /05651-1136 I^ 005652 7640 SZA CLA /05652-7640 > 005653 5627 JMP I CHKPRT /05653-5627 .W AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-60 005654 1077 TAD TEMP /05654-1077 H? 005655 1136 TAD OM7 /05655-1136 I^ 005656 7640 SZA CLA /05656-7640 > 005657 5627 JMP I CHKPRT /05657-5627 .W 005660 7240 CLA CMA /05660-7240 : 005661 1153 TAD THSFLD /05661-1153 I+ 005662 3075 DCA AVLMEM /05662-3075 X= 005663 4460 JMS I PRCRLF /05663-4460 $0 005664 1075 TAD AVLMEM /05664-1075 H= 005665 4464 JMS I PRTNUM /05665-4464 $4 005666 4454 JMS I PRTMSG /05666-4454 $, 005667 6467 EFLDAV /05667-6467 47 005670 2227 ISZ CHKPRT /05670-2227 RW 005671 1075 TAD AVLMEM /05671-1075 H= 005672 7041 CMA IAC /05672-7041 8! 005673 3101 DCA MEMLIM /05673-3101 YA 005674 1075 TAD AVLMEM /05674-1075 H= 005675 7640 SZA CLA /05675-7640 > 005676 5627 JMP I CHKPRT /05676-5627 .W 005677 4454 JMS I PRTMSG /05677-4454 $, 005700 7001 NEXFLD /05700-7001 8A 005701 4431 JMS I HALTAT /05701-4431 $Y 005702 5627 JMP I CHKPRT /05702-5627 .W 005703 0000 CHKMEM, AND 0000 /05703-0000 @@ 005704 1022 TAD X8 /05704-1022 HR 005705 7710 SPA CLA /05705-7710 ?H 005706 5703 JMP I CHKMEM /05706-5703 /C 005707 1075 TAD AVLMEM /05707-1075 H= 005710 7650 SNA CLA /05710-7650 >( 005711 5703 JMP I CHKMEM /05711-5703 /C 005712 7301 CLA CLL IAC /05712-7301 ;A 005713 3153 DCA THSFLD /05713-3153 Y+ 005714 3077 DCA TEMP /05714-3077 X? 005715 7240 CLA CMA /05715-7240 : 005716 3073 DCA WHATIS /05716-3073 X; 005717 1075 TAD AVLMEM /05717-1075 H= 005720 7041 CMA IAC /05720-7041 8! 005721 3101 DCA MEMLIM /05721-3101 YA 005722 4444 JMS I SETKT /05722-4444 $$ 005723 7000 EMM EN5 EN9 /05723-7000 8@ 005724 4432 JMS I SETFLD /05724-4432 $Z 005725 7340 CLA CLL CMA /05725-7340 ; 005726 3102 DCA ONCE /05726-3102 YB 005727 4777 JMS I (LODCHK /05727-4777 '? 005730 7240 CLA CMA /05730-7240 : 005731 3102 DCA ONCE /05731-3102 YB 005732 4776 JMS I (RDBCHK /05732-4776 '> 005733 5703 JMP I CHKMEM /05733-5703 /C 005734 0000 CLRMEM, AND 0000 /05734-0000 @@ 005735 7301 CLA CLL IAC /05735-7301 ;A 005736 3153 DCA THSFLD /05736-3153 Y+ 005737 7240 CLA CMA /05737-7240 : 005740 3073 DCA WHATIS /05740-3073 X; AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-61 005741 1075 TAD AVLMEM /05741-1075 H= 005742 1136 TAD OM7 /05742-1136 I^ 005743 7740 SMA SZA CLA /05743-7740 ? 005744 1372 TAD CLOM30 /05744-1372 K: 005745 1136 TAD OM7 /05745-1136 I^ 005746 3101 DCA MEMLIM /05746-3101 YA 005747 4444 JMS I SETKT /05747-4444 $$ 005750 7000 EMM EN5 EN9 /05750-7000 8@ 005751 4432 JMS I SETFLD /05751-4432 $Z 005752 7332 CLA CLL CML RTR /05752-7332 ;Z 005753 3076 DCA TMP /05753-3076 X> 005754 3077 DCA TEMP /05754-3077 X? 005755 4442 CLRLUP, JMS I MAKCDF /05755-4442 $" 005756 7402 HLT /05756-7402 <B 005757 3477 DCA I TEMP /05757-3477 \? 005760 6201 CDF 0 /05760-6201 2A 005761 2077 ISZ TEMP /05761-2077 P? 005762 7000 NOP /05762-7000 8@ 005763 2076 ISZ TMP /05763-2076 P> 005764 5355 JMP CLRLUP /05764-5355 +- 005765 4435 JMS I NXTFLD /05765-4435 $] 005766 5352 JMP CLRLUP-3 /05766-5352 +* 005767 1136 TAD OM7 /05767-1136 I^ 005770 3101 DCA MEMLIM /05770-3101 YA 005771 5734 JMP I CLRMEM /05771-5734 /\ 005772 7750 CLOM30, -30 /05772-7750 ?( 005773 7773 MQA MQL CLA DPIC /05773-7773 ?; 005774 7762 SMA SZA SNL CLA HLT /05774-7762 ?2 005775 2200 ISZ 5600 /05775-2200 R@ /JMS 5700 /05776-4300 #@ /JMS 5600 /05777-4200 "@ 005776 4300 005777 4200 6000 PAGE 30 006000 0000 USRTST, AND 0000 /06000-0000 @@ 006001 1072 TAD GOTUSR /06001-1072 H: 006002 6264 CUF /06002-6264 24 006003 3072 DCA GOTUSR /06003-3072 X: 006004 6240 LRR /06004-6240 2 006005 1600 TAD I USRTST /06005-1600 N@ 006006 3104 DCA ERRNXT /06006-3104 YD 006007 7240 CLA CMA /06007-7240 : 006010 1200 TAD USRTST /06010-1200 J@ 006011 2200 ISZ USRTST /06011-2200 R@ 006012 3103 DCA ERRLOC /06012-3103 YC 006013 2072 ISZ GOTUSR /06013-2072 P: 006014 7610 SKP CLA /06014-7610 >H 006015 5221 JMP 6021 /06015-5221 *Q 006016 3072 DCA GOTUSR /06016-3072 X: 006017 2200 ISZ USRTST /06017-2200 R@ 006020 5600 JMP I USRTST /06020-5600 .@ 006021 4430 JMS I GETSWI /06021-4430 $X AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-62 006022 0124 AND O200 /06022-0124 AT 006023 7640 SZA CLA /06023-7640 > 006024 5233 JMP 6033 /06024-5233 *[ 006025 4454 JMS I PRTMSG /06025-4454 $, 006026 6445 MSPC /06026-6445 4% 006027 1103 TAD ERRLOC /06027-1103 IC 006030 4464 JMS I PRTNUM /06030-4464 $4 006031 4454 JMS I PRTMSG /06031-4454 $, 006032 6765 ILUSIN /06032-6765 75 006033 4635 JMS I .+2 /06033-4635 &] 006034 5600 JMP I USRTST /06034-5600 .@ 006035 5245 ERRSWI /06035-5245 *% 006036 0000 IOPRT, AND 0000 /06036-0000 @@ 006037 3254 DCA IOTEMP /06037-3254 Z, 006040 1022 TAD X8 /06040-1022 HR 006041 7710 SPA CLA /06041-7710 ?H 006042 5636 JMP I IOPRT /06042-5636 .^ 006043 6000 SKON /06043-6000 0@ 006044 5251 JMP IONION /06044-5251 *) 006045 1254 TAD IOTEMP /06045-1254 J, 006046 4255 JMS IOTLS /06046-4255 "- 006047 6001 ION /06047-6001 0A 006050 5636 JMP I IOPRT /06050-5636 .^ 006051 1254 IONION, TAD IOTEMP /06051-1254 J, 006052 4255 JMS IOTLS /06052-4255 "- 006053 5636 JMP I IOPRT /06053-5636 .^ 006054 0000 IOTEMP, AND 0000 /06054-0000 @@ 006055 0000 IOTLS, AND 0000 /06055-0000 @@ 006056 6046 TLS /06056-6046 0& 006057 6041 TSF /06057-6041 0! 006060 5257 JMP .-1 /06060-5257 */ 006061 6042 TCF /06061-6042 0" 006062 7200 CLA /06062-7200 :@ 006063 5655 JMP I IOTLS /06063-5655 .- 006064 2100 MRLIST, ISZ 0100 /06064-2100 Q@ 006065 1040 TAD 0040 /06065-1040 H 006066 0420 AND I 0020 /06066-0420 DP 006067 0210 AND 6010 /06067-0210 BH 006070 0000 LSTBRK, AND 0000 /06070-0000 @@ 006071 0000 AND 0000 /06071-0000 @@ 006072 0000 AND 0000 /06072-0000 @@ 006073 0000 AND 0000 /06073-0000 @@ 006074 0000 AND 0000 /06074-0000 @@ 006075 0000 AND 0000 /06075-0000 @@ 006076 0000 AND 0000 /06076-0000 @@ 006077 0000 AND 0000 /06077-0000 @@ 006100 0000 AND 0000 /06100-0000 @@ 006101 0000 AND 0000 /06101-0000 @@ 006102 0000 AND 0000 /06102-0000 @@ 006103 0000 AND 0000 /06103-0000 @@ 006104 0000 AND 0000 /06104-0000 @@ 006105 0000 INSMS1, 0000 /06105-0000 @@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-63 006106 6146 TXCDF /06106-6146 1& 006107 6151 TXCIF /06107-6151 1) 006110 6154 TXCDI /06110-6154 1, 006111 6157 TXLXM /06111-6157 1/ 006112 6162 TXRTF /06112-6162 12 006113 6165 TXRTS /06113-6165 15 006114 6170 TXLRR /06114-6170 18 006115 6173 TXLUSR /06115-6173 1; 006116 6177 TXLBM /06116-6177 1? 006117 6202 TXMBC /06117-6202 2B 006120 6205 TXRMF /06120-6205 2E 006121 6301 TXRACA /06121-6301 3A 006122 6304 TXRACB /06122-6304 3D 006123 6307 TXRACC /06123-6307 3G 006124 6312 TXLINK /06124-6312 3J 006125 6315 TXSUF /06125-6315 3M 006126 0000 INSMS2, 0000 /06126-0000 @@ 006127 6210 TXGTF /06127-6210 2H 006130 6213 TXRDF /06130-6213 2K 006131 6216 TXRIF /06131-6216 2N 006132 6221 TXRIB /06132-6221 2Q 006133 6224 TXGTS /06133-6224 2T 006134 6227 TXRXM /06134-6227 2W 006135 6232 TXRRR /06135-6232 2Z 006136 6235 TXRUSR /06136-6235 2] 006137 6241 TXRBM /06137-6241 2! 006140 6244 TXRLB /06140-6244 2$ 006141 6247 TXRMR /06141-6247 2' 006142 6252 TXOSR /06142-6252 2* 006143 6255 TXLAS /06143-6255 2- 006144 6260 TXTPL /06144-6260 20 006145 6263 TXHLT /06145-6263 23 006146 4003 TXCDF, JMS 0003 /06146-4003 C 006147 0406 AND I 0006 /06147-0406 DF 006150 4000 JMS 0000 /06150-4000 @ 006151 4003 TXCIF, JMS 0003 /06151-4003 C 006152 1106 TAD 0106 /06152-1106 IF 006153 4000 JMS 0000 /06153-4000 @ 006154 4003 TXCDI, JMS 0003 /06154-4003 C 006155 0411 AND I 0011 /06155-0411 DI 006156 4000 JMS 0000 /06156-4000 @ 006157 4014 TXLXM, JMS 0014 /06157-4014 L 006160 3015 DCA 0015 /06160-3015 XM 006161 4000 JMS 0000 /06161-4000 @ 006162 4022 TXRTF, JMS 0022 /06162-4022 R 006163 2406 ISZ I 0006 /06163-2406 TF 006164 4000 JMS 0000 /06164-4000 @ 006165 4022 TXRTS, JMS 0022 /06165-4022 R 006166 2423 ISZ I 0023 /06166-2423 TS AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-64 006167 4000 JMS 0000 /06167-4000 @ 006170 4014 TXLRR, JMS 0014 /06170-4014 L 006171 2222 ISZ 6022 /06171-2222 RR 006172 4000 JMS 0000 /06172-4000 @ 006173 4014 TXLUSR, JMS 0014 /06173-4014 L 006174 2523 ISZ I 0123 /06174-2523 US 006175 2240 ISZ 6040 /06175-2240 R 006176 0000 AND 0000 /06176-0000 @@ 006177 4014 TXLBM, JMS 0014 /06177-4014 L 006200 0215 AND 6215 /06200-0215 BM 006201 4000 JMS 0000 /06201-4000 @ 006202 4015 TXMBC, JMS 0015 /06202-4015 M 006203 0203 AND 6203 /06203-0203 BC 006204 4000 JMS 0000 /06204-4000 @ 006205 4022 TXRMF, JMS 0022 /06205-4022 R 006206 1506 TAD I 0106 /06206-1506 MF 006207 4000 JMS 0000 /06207-4000 @ 006210 4007 TXGTF, JMS 0007 /06210-4007 G 006211 2406 ISZ I 0006 /06211-2406 TF 006212 4000 JMS 0000 /06212-4000 @ 006213 4022 TXRDF, JMS 0022 /06213-4022 R 006214 0406 AND I 0006 /06214-0406 DF 006215 4000 JMS 0000 /06215-4000 @ 006216 4022 TXRIF, JMS 0022 /06216-4022 R 006217 1106 TAD 0106 /06217-1106 IF 006220 4000 JMS 0000 /06220-4000 @ 006221 4022 TXRIB, JMS 0022 /06221-4022 R 006222 1102 TAD 0102 /06222-1102 IB 006223 4000 JMS 0000 /06223-4000 @ 006224 4007 TXGTS, JMS 0007 /06224-4007 G 006225 2423 ISZ I 0023 /06225-2423 TS 006226 4000 JMS 0000 /06226-4000 @ 006227 4022 TXRXM, JMS 0022 /06227-4022 R 006230 3015 DCA 0015 /06230-3015 XM 006231 4000 JMS 0000 /06231-4000 @ 006232 4022 TXRRR, JMS 0022 /06232-4022 R 006233 2222 ISZ 6222 /06233-2222 RR 006234 4000 JMS 0000 /06234-4000 @ 006235 4022 TXRUSR, JMS 0022 /06235-4022 R 006236 2523 ISZ I 0123 /06236-2523 US 006237 2240 ISZ 6240 /06237-2240 R 006240 0000 AND 0000 /06240-0000 @@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-65 006241 4022 TXRBM, JMS 0022 /06241-4022 R 006242 0215 AND 6215 /06242-0215 BM 006243 4000 JMS 0000 /06243-4000 @ 006244 4022 TXRLB, JMS 0022 /06244-4022 R 006245 1402 TAD I 0002 /06245-1402 LB 006246 4000 JMS 0000 /06246-4000 @ 006247 4022 TXRMR, JMS 0022 /06247-4022 R 006250 1522 TAD I 0122 /06250-1522 MR 006251 4000 JMS 0000 /06251-4000 @ 006252 3717 TXOSR, DCA I 6317 /06252-3717 _O 006253 2322 ISZ 6322 /06253-2322 SR 006254 0000 AND 0000 /06254-0000 @@ 006255 3714 TXLAS, DCA I 6314 /06255-3714 _L 006256 0123 AND 0123 /06256-0123 AS 006257 0000 AND 0000 /06257-0000 @@ 006260 3724 TXTPL, DCA I 6324 /06260-3724 _T 006261 2014 ISZ 0014 /06261-2014 PL 006262 0000 AND 0000 /06262-0000 @@ 006263 3710 TXHLT, DCA I 6310 /06263-3710 _H 006264 1424 TAD I 0024 /06264-1424 LT 006265 0000 AND 0000 /06265-0000 @@ 006266 3722 RELERR, DCA I 6322 /06266-3722 _R 006267 0514 AND I 0114 /06267-0514 EL 006270 1703 TAD I 6303 /06270-1703 OC 006271 0124 AND 0124 /06271-0124 AT 006272 1117 TAD 0117 /06272-1117 IO 006273 1640 TAD I 6240 /06273-1640 N 006274 0601 AND I 6201 /06274-0601 FA 006275 1114 TAD 0114 /06275-1114 IL 006276 2522 ISZ I 0122 /06276-2522 UR 006277 0537 AND I 0137 /06277-0537 E_ 006300 0000 AND 0000 /06300-0000 @@ 006301 2201 TXRACA, ISZ 6201 /06301-2201 RA 006302 0301 AND 6301 /06302-0301 CA 006303 4000 JMS 0000 /06303-4000 @ 006304 2201 TXRACB, ISZ 6201 /06304-2201 RA 006305 0302 AND 6302 /06305-0302 CB 006306 4000 JMS 0000 /06306-4000 @ 006307 2201 TXRACC, ISZ 6201 /06307-2201 RA 006310 0303 AND 6303 /06310-0303 CC 006311 4000 JMS 0000 /06311-4000 @ 006312 1411 TXLINK, TAD I 0011 /06312-1411 LI 006313 1613 TAD I 6213 /06313-1613 NK AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-66 006314 0000 AND 0000 /06314-0000 @@ 006315 2325 TXSUF, ISZ 6325 /06315-2325 SU 006316 0640 AND I 6240 /06316-0640 F 006317 0000 AND 0000 /06317-0000 @@ 006320 3725 USLTRP, DCA I 6325 /06320-3725 _U 006321 2305 ISZ 6305 /06321-2305 SE 006322 2240 ISZ 6240 /06322-2240 R 006323 1411 TAD I 0011 /06323-1411 LI 006324 1511 TAD I 0111 /06324-1511 MI 006325 2440 ISZ I 0040 /06325-2440 T 006326 0601 AND I 6201 /06326-0601 FA 006327 1114 TAD 0114 /06327-1114 IL 006330 0504 AND I 0104 /06330-0504 ED 006331 4024 JMS 0024 /06331-4024 T 006332 1740 TAD I 6340 /06332-1740 O 006333 2422 ISZ I 0022 /06333-2422 TR 006334 0120 AND 0120 /06334-0120 AP 006335 4020 JMS 0020 /06335-4020 P 006336 2217 ISZ 6217 /06336-2217 RO 006337 2005 ISZ 0005 /06337-2005 PE 006340 2214 ISZ 6214 /06340-2214 RL 006341 3137 DCA 0137 /06341-3137 Y_ 006342 0000 AND 0000 /06342-0000 @@ 006343 3711 BADAC, DCA I 6311 /06343-3711 _I 006344 1603 TAD I 6203 /06344-1603 NC 006345 1722 TAD I 6322 /06345-1722 OR 006346 2205 ISZ 6205 /06346-2205 RE 006347 0324 AND 6324 /06347-0324 CT 006350 4001 JMS 0001 /06350-4001 A 006351 0340 AND 6340 /06351-0340 C 006352 2601 ISZ I 6201 /06352-2601 VA 006353 1425 TAD I 0025 /06353-1425 LU 006354 0537 AND I 0137 /06354-0537 E_ 006355 0000 AND 0000 /06355-0000 @@ 006356 1404 LDCOL, TAD I 0004 /06356-1404 LD 006357 7240 CLA CMA /06357-7240 : 006360 0000 AND 0000 /06360-0000 @@ 006361 0315 CMDCOL, AND 6315 /06361-0315 CM 006362 0472 AND I 0072 /06362-0472 D: 006363 4000 JMS 0000 /06363-4000 @ 006364 2024 PTCOL, ISZ 0024 /06364-2024 PT 006365 7240 CLA CMA /06365-7240 : 006366 0000 AND 0000 /06366-0000 @@ 006367 0704 GDCOL, AND I 6304 /06367-0704 GD 006370 7240 CLA CMA /06370-7240 : 006371 0000 AND 0000 /06371-0000 @@ 006372 0204 BDCOL, AND 6204 /06372-0204 BD AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-67 006373 7240 CLA CMA /06373-7240 : 006374 0000 AND 0000 /06374-0000 @@ 006375 3703 MSNSLB, DCA I 6303 /06375-3703 _C 006376 0116 AND 0116 /06376-0116 AN 006377 1617 TAD I 6217 /06377-1617 NO 006400 2440 ISZ I 0040 /06400-2440 T 006401 2305 ISZ 6505 /06401-2305 SE 006402 1405 TAD I 0005 /06402-1405 LE 006403 0324 AND 6524 /06403-0324 CT 006404 4005 JMS 0005 /06404-4005 E 006405 3024 DCA 0024 /06405-3024 XT 006406 0516 AND I 0116 /06406-0516 EN 006407 0405 AND I 0005 /06407-0405 DE 006410 0440 AND I 0040 /06410-0440 D 006411 0201 AND 6401 /06411-0201 BA 006412 1613 TAD I 6413 /06412-1613 NK 006413 2300 ISZ 6500 /06413-2300 S@ 006414 3714 LODERR, DCA I 6514 /06414-3714 _L 006415 1701 TAD I 6501 /06415-1701 OA 006416 0440 AND I 0040 /06416-0440 D 006417 0522 AND I 0122 /06417-0522 ER 006420 2217 ISZ 6417 /06420-2217 RO 006421 2200 ISZ 6400 /06421-2200 R@ 006422 3706 FLGDBD, DCA I 6506 /06422-3706 _F 006423 1404 TAD I 0004 /06423-1404 LD 006424 4040 JMS 0040 /06424-4040 006425 0104 AND 0104 /06425-0104 AD 006426 0422 AND I 0022 /06426-0422 DR 006427 4007 JMS 0007 /06427-4007 G 006430 1717 TAD I 6517 /06430-1717 OO 006431 0440 AND I 0040 /06431-0440 D 006432 0201 AND 6401 /06432-0201 BA 006433 0400 AND I 0000 /06433-0400 D@ 006434 3722 RDBKER, DCA I 6522 /06434-3722 _R 006435 0501 AND I 0101 /06435-0501 EA 006436 0440 AND I 0040 /06436-0440 D 006437 0201 AND 6401 /06437-0201 BA 006440 0313 AND 6513 /06440-0313 CK 006441 4005 JMS 0005 /06441-4005 E 006442 2222 ISZ 6422 /06442-2222 RR 006443 1722 TAD I 6522 /06443-1722 OR 006444 0000 AND 0000 /06444-0000 @@ 006445 3720 MSPC, DCA I 6520 /06445-3720 _P 006446 0372 AND 6572 /06446-0372 C: 006447 4000 JMS 0000 /06447-4000 @ 006450 4004 DEVCOL, JMS 0004 /06450-4004 D 006451 0526 AND I 0126 /06451-0526 EV 006452 7240 CLA CMA /06452-7240 : 006453 0000 AND 0000 /06453-0000 @@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-68 006454 4002 BNKCOL, JMS 0002 /06454-4002 B 006455 1613 TAD I 6413 /06455-1613 NK 006456 7240 CLA CMA /06456-7240 : 006457 0000 AND 0000 /06457-0000 @@ 006460 3710 HLTAPC, DCA I 6510 /06460-3710 _H 006461 0114 AND 0114 /06461-0114 AL 006462 2440 ISZ I 0040 /06462-2440 T 006463 0124 AND 0124 /06463-0124 AT 006464 4020 JMS 0020 /06464-4020 P 006465 0340 AND 6540 /06465-0340 C 006466 0000 AND 0000 /06466-0000 @@ 006467 0530 EFLDAV, AND I 0130 /06467-0530 EX 006470 2405 ISZ I 0005 /06470-2405 TE 006471 1604 TAD I 6404 /06471-1604 ND 006472 0504 AND I 0104 /06472-0504 ED 006473 4006 JMS 0006 /06473-4006 F 006474 1105 TAD 0105 /06474-1105 IE 006475 1404 TAD I 0004 /06475-1404 LD 006476 2340 ISZ 6540 /06476-2340 S 006477 0126 AND 0126 /06477-0126 AV 006500 0111 AND 0111 /06500-0111 AI 006501 1401 TAD I 0001 /06501-1401 LA 006502 0214 AND 6414 /06502-0214 BL 006503 0540 AND I 0140 /06503-0540 E 006504 0000 AND 0000 /06504-0000 @@ 006505 4020 PASSN, JMS 0020 /06505-4020 P 006506 0123 AND 0123 /06506-0123 AS 006507 2340 ISZ 6540 /06507-2340 S 006510 0000 AND 0000 /06510-0000 @@ 006511 3701 AJKTBM, DCA I 6501 /06511-3701 _A 006512 1213 TAD 6413 /06512-1213 JK 006513 2401 ISZ I 0001 /06513-2401 TA 006514 0260 AND 6460 /06514-0260 B0 006515 4000 JMS 0000 /06515-4000 @ 006516 3701 AJKTAB, DCA I 6501 /06516-3701 _A 006517 1213 TAD 6413 /06517-1213 JK 006520 2401 ISZ I 0001 /06520-2401 TA 006521 0260 AND 6460 /06521-0260 B0 006522 4013 JMS 0013 /06522-4013 K 006523 2470 ISZ I 0070 /06523-2470 T8 006524 5501 JMP I 0101 /06524-5501 -A 006525 4015 JMS 0015 /06525-4015 M 006526 0515 AND I 0115 /06526-0515 EM 006527 1722 TAD I 6522 /06527-1722 OR 006530 3140 DCA 0140 /06530-3140 Y 006531 1501 TAD I 0101 /06531-1501 MA 006532 1601 TAD I 6401 /06532-1601 NA 006533 0705 AND I 6505 /06533-0705 GE 006534 1505 TAD I 0105 /06534-1505 ME AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-69 006535 1624 TAD I 6424 /06535-1624 NT 006536 4017 JMS 0017 /06536-4017 O 006537 2024 ISZ 0024 /06537-2024 PT 006540 1117 TAD 0117 /06540-1117 IO 006541 1637 TAD I 6437 /06541-1637 N_ 006542 0000 AND 0000 /06542-0000 @@ 006543 3737 AMNTMM, DCA I 6537 /06543-3737 __ 006544 0115 AND 0115 /06544-0115 AM 006545 1725 TAD I 6525 /06545-1725 OU 006546 1624 TAD I 6424 /06546-1624 NT 006547 4017 JMS 0017 /06547-4017 O 006550 0640 AND I 6440 /06550-0640 F 006551 1505 TAD I 0105 /06551-1505 ME 006552 1517 TAD I 0117 /06552-1517 MO 006553 2231 ISZ 6431 /06553-2231 RY 006554 4077 JMS 0077 /06554-4077 ? 006555 5061 JMP 0061 /06555-5061 (1 006556 5563 JMP I 0163 /06556-5563 -3 006557 6751 6751 /06557-6751 7) 006560 4000 JMS 0000 /06560-4000 @ 006561 3711 INTNFN, DCA I 6511 /06561-3711 _I 006562 1624 TAD I 6424 /06562-1624 NT 006563 0522 AND I 0122 /06563-0522 ER 006564 2225 ISZ 6425 /06564-2225 RU 006565 2024 ISZ 0024 /06565-2024 PT 006566 4005 JMS 0005 /06566-4005 E 006567 3020 DCA 0020 /06567-3020 XP 006570 0503 AND I 0103 /06570-0503 EC 006571 2405 ISZ I 0005 /06571-2405 TE 006572 0440 AND I 0040 /06572-0440 D 006573 0225 AND 6425 /06573-0225 BU 006574 2440 ISZ I 0040 /06574-2440 T 006575 1617 TAD I 6417 /06575-1617 NO 006576 2440 ISZ I 0040 /06576-2440 T 006577 0617 AND I 6417 /06577-0617 FO 006600 2516 ISZ I 0116 /06600-2516 UN 006601 0456 AND I 0056 /06601-0456 D. 006602 3700 DCA I 6700 /06602-3700 _@ 006603 3737 UNDINT, DCA I 6737 /06603-3737 __ 006604 2516 ISZ I 0116 /06604-2516 UN 006605 0405 AND I 0005 /06605-0405 DE 006606 0611 AND I 6611 /06606-0611 FI 006607 1605 TAD I 6605 /06607-1605 NE 006610 0440 AND I 0040 /06610-0440 D 006611 1116 TAD 0116 /06611-1116 IN 006612 2405 ISZ I 0005 /06612-2405 TE 006613 2222 ISZ 6622 /06613-2222 RR 006614 2520 ISZ I 0120 /06614-2520 UP 006615 2400 ISZ I 0000 /06615-2400 T@ 006616 4077 QMRKER, JMS 0077 /06616-4077 ? 006617 3700 DCA I 6700 /06617-3700 _@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-70 006620 4006 NOTRAP, JMS 0006 /06620-4006 F 006621 0111 AND 0111 /06621-0111 AI 006622 1405 TAD I 0005 /06622-1405 LE 006623 0440 AND I 0040 /06623-0440 D 006624 2417 ISZ I 0017 /06624-2417 TO 006625 4024 JMS 0024 /06625-4024 T 006626 2201 ISZ 6601 /06626-2201 RA 006627 2000 ISZ 0000 /06627-2000 P@ 006630 3705 EXRFCL, DCA I 6705 /06630-3705 _E 006631 3020 DCA 0020 /06631-3020 XP 006632 0116 AND 0116 /06632-0116 AN 006633 0405 AND I 0005 /06633-0405 DE 006634 0440 AND I 0040 /06634-0440 D 006635 1517 TAD I 0117 /06635-1517 MO 006636 0405 AND I 0005 /06636-0405 DE 006637 4022 JMS 0022 /06637-4022 R 006640 0507 AND I 0107 /06640-0507 EG 006641 1123 TAD 0123 /06641-1123 IS 006642 2405 ISZ I 0005 /06642-2405 TE 006643 2240 ISZ 6640 /06643-2240 R 006644 0601 AND I 6601 /06644-0601 FA 006645 1114 TAD 0114 /06645-1114 IL 006646 0504 AND I 0104 /06646-0504 ED 006647 4024 JMS 0024 /06647-4024 T 006650 1740 TAD I 6740 /06650-1740 O 006651 0314 AND 6714 /06651-0314 CL 006652 0501 AND I 0101 /06652-0501 EA 006653 2200 ISZ 6600 /06653-2200 R@ 006654 3725 INTUNX, DCA I 6725 /06654-3725 _U 006655 1605 TAD I 6605 /06655-1605 NE 006656 3020 DCA 0020 /06656-3020 XP 006657 0503 AND I 0103 /06657-0503 EC 006660 2405 ISZ I 0005 /06660-2405 TE 006661 0440 AND I 0040 /06661-0440 D 006662 2022 ISZ 0022 /06662-2022 PR 006663 1116 TAD 0116 /06663-1116 IN 006664 2405 ISZ I 0005 /06664-2405 TE 006665 2240 ISZ 6640 /06665-2240 R 006666 1116 TAD 0116 /06666-1116 IN 006667 2405 ISZ I 0005 /06667-2405 TE 006670 2222 ISZ 6622 /06670-2222 RR 006671 2520 ISZ I 0120 /06671-2520 UP 006672 2400 ISZ I 0000 /06672-2400 T@ 006673 3702 MSBSEL, DCA I 6702 /06673-3702 _B 006674 0116 AND 0116 /06674-0116 AN 006675 1340 TAD 6740 /06675-1340 K 006676 2305 ISZ 6705 /06676-2305 SE 006677 1405 TAD I 0005 /06677-1405 LE 006700 0324 AND 6724 /06700-0324 CT 006701 4005 JMS 0005 /06701-4005 E 006702 2222 ISZ 6622 /06702-2222 RR AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-71 006703 1722 TAD I 6722 /06703-1722 OR 006704 0000 AND 0000 /06704-0000 @@ 006705 3716 INTNON, DCA I 6716 /06705-3716 _N 006706 1740 TAD I 6740 /06706-1740 O 006707 1116 TAD 0116 /06707-1116 IN 006710 2405 ISZ I 0005 /06710-2405 TE 006711 2222 ISZ 6622 /06711-2222 RR 006712 2520 ISZ I 0120 /06712-2520 UP 006713 2440 ISZ I 0040 /06713-2440 T 006714 0405 AND I 0005 /06714-0405 DE 006715 2405 ISZ I 0005 /06715-2405 TE 006716 0324 AND 6724 /06716-0324 CT 006717 0504 AND I 0104 /06717-0504 ED 006720 0000 AND 0000 /06720-0000 @@ 006721 3714 LNKSET, DCA I 6714 /06721-3714 _L 006722 1116 TAD 0116 /06722-1116 IN 006723 1340 TAD 6740 /06723-1340 K 006724 0601 AND I 6601 /06724-0601 FA 006725 1114 TAD 0114 /06725-1114 IL 006726 0504 AND I 0104 /06726-0504 ED 006727 4024 JMS 0024 /06727-4024 T 006730 1740 TAD I 6740 /06730-1740 O 006731 2305 ISZ 6705 /06731-2305 SE 006732 2400 ISZ I 0000 /06732-2400 T@ 006733 3714 LNKCLR, DCA I 6714 /06733-3714 _L 006734 1116 TAD 0116 /06734-1116 IN 006735 1340 TAD 6740 /06735-1340 K 006736 0601 AND I 6601 /06736-0601 FA 006737 1114 TAD 0114 /06737-1114 IL 006740 0504 AND I 0104 /06740-0504 ED 006741 4024 JMS 0024 /06741-4024 T 006742 1740 TAD I 6740 /06742-1740 O 006743 0314 AND 6714 /06743-0314 CL 006744 0501 AND I 0101 /06744-0501 EA 006745 2200 ISZ 6600 /06745-2200 R@ 006746 3704 DINOTR, DCA I 6704 /06746-3704 _D 006747 1117 TAD 0117 /06747-1117 IO 006750 1140 TAD 0140 /06750-1140 I 006751 0601 AND I 6601 /06751-0601 FA 006752 1114 TAD 0114 /06752-1114 IL 006753 0504 AND I 0104 /06753-0504 ED 006754 4024 JMS 0024 /06754-4024 T 006755 1740 TAD I 6740 /06755-1740 O 006756 0411 AND I 0011 /06756-0411 DI 006757 2301 ISZ 6701 /06757-2301 SA 006760 0214 AND 6614 /06760-0214 BL 006761 0540 AND I 0140 /06761-0540 E 006762 2422 ISZ I 0022 /06762-2422 TR 006763 0120 AND 0120 /06763-0120 AP 006764 5600 JMP I 6600 /06764-5600 .@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-72 006765 3711 ILUSIN, DCA I 6711 /06765-3711 _I 006766 1414 TAD I 0014 /06766-1414 LL 006767 0507 AND I 0107 /06767-0507 EG 006770 0114 AND 0114 /06770-0114 AL 006771 4025 JMS 0025 /06771-4025 U 006772 2305 ISZ 6705 /06772-2305 SE 006773 2240 ISZ 6640 /06773-2240 R 006774 1116 TAD 0116 /06774-1116 IN 006775 2405 ISZ I 0005 /06775-2405 TE 006776 2222 ISZ 6622 /06776-2222 RR 006777 2520 ISZ I 0120 /06777-2520 UP 007000 2400 ISZ I 0000 /07000-2400 T@ 007001 3716 NEXFLD, DCA I 7116 /07001-3716 _N 007002 1740 TAD I 7140 /07002-1740 O 007003 0530 AND I 0130 /07003-0530 EX 007004 2405 ISZ I 0005 /07004-2405 TE 007005 1604 TAD I 7004 /07005-1604 ND 007006 0504 AND I 0104 /07006-0504 ED 007007 4006 JMS 0006 /07007-4006 F 007010 1105 TAD 0105 /07010-1105 IE 007011 1404 TAD I 0004 /07011-1404 LD 007012 2300 ISZ 7100 /07012-2300 S@ 007013 3722 RTFINT, DCA I 7122 /07013-3722 _R 007014 2406 ISZ I 0006 /07014-2406 TF 007015 4006 JMS 0006 /07015-4006 F 007016 0111 AND 0111 /07016-0111 AI 007017 1405 TAD I 0005 /07017-1405 LE 007020 0440 AND I 0040 /07020-0440 D 007021 2417 ISZ I 0017 /07021-2417 TO 007022 4005 JMS 0005 /07022-4005 E 007023 1601 TAD I 7001 /07023-1601 NA 007024 0214 AND 7014 /07024-0214 BL 007025 0540 AND I 0140 /07025-0540 E 007026 1116 TAD 0116 /07026-1116 IN 007027 2405 ISZ I 0005 /07027-2405 TE 007030 2222 ISZ 7022 /07030-2222 RR 007031 2520 ISZ I 0120 /07031-2520 UP 007032 2400 ISZ I 0000 /07032-2400 T@ 007033 3725 UINTCL, DCA I 7125 /07033-3725 _U 007034 2305 ISZ 7105 /07034-2305 SE 007035 2240 ISZ 7040 /07035-2240 R 007036 1116 TAD 0116 /07036-1116 IN 007037 2405 ISZ I 0005 /07037-2405 TE 007040 2222 ISZ 7022 /07040-2222 RR 007041 2520 ISZ I 0120 /07041-2520 UP 007042 2440 ISZ I 0040 /07042-2440 T 007043 0601 AND I 7001 /07043-0601 FA 007044 1114 TAD 0114 /07044-1114 IL 007045 0504 AND I 0104 /07045-0504 ED 007046 4024 JMS 0024 /07046-4024 T 007047 1740 TAD I 7140 /07047-1740 O 007050 2305 ISZ 7105 /07050-2305 SE AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-73 007051 2400 ISZ I 0000 /07051-2400 T@ 007052 3702 MSSLBE, DCA I 7102 /07052-3702 _B 007053 0116 AND 0116 /07053-0116 AN 007054 1350 TAD 7150 /07054-1350 K( 007055 2351 ISZ 7151 /07055-2351 S) 007056 4005 JMS 0005 /07056-4005 E 007057 3020 DCA 0020 /07057-3020 XP 007060 0503 AND I 0103 /07060-0503 EC 007061 2405 ISZ I 0005 /07061-2405 TE 007062 0475 AND I 0075 /07062-0475 D= 007063 0000 AND 0000 /07063-0000 @@ 007064 3702 MSSLBF, DCA I 7102 /07064-3702 _B 007065 0116 AND 0116 /07065-0116 AN 007066 1350 TAD 7150 /07066-1350 K( 007067 2351 ISZ 7151 /07067-2351 S) 007070 4006 JMS 0006 /07070-4006 F 007071 1725 TAD I 7125 /07071-1725 OU 007072 1604 TAD I 7004 /07072-1604 ND 007073 7500 SMA /07073-7500 =@ 007074 7052 CMA RTR /07074-7052 8* 007075 7025 CML IAC RAL /07075-7025 8U 007076 0000 AND 0000 /07076-0000 @@ 007077 6000 SKON /07077-6000 0@ 007100 5305 JMP 7105 /07100-5305 +E 007101 3333 DCA 7133 /07101-3333 [[ 007102 1107 TAD 0107 /07102-1107 IG 007103 3330 DCA 7130 /07103-3330 [X 007104 5310 JMP 7110 /07104-5310 +H 007105 3333 DCA 7133 /07105-3333 [[ 007106 1377 TAD 7177 /07106-1377 K? 007107 3330 DCA 7130 /07107-3330 [X 007110 1022 TAD 0022 /07110-1022 HR 007111 0046 AND 0046 /07111-0046 @& 007112 7650 SNA CLA /07112-7650 >( 007113 5330 JMP 7130 /07113-5330 +X 007114 6224 RIF /07114-6224 2T 007115 1376 TAD 7176 /07115-1376 K> 007116 1375 TAD 7175 /07116-1375 K= 007117 3320 DCA 7120 /07117-3320 [P 007120 7402 HLT /07120-7402 <B 007121 1333 TAD 7133 /07121-1333 K[ 007122 4732 JMS I 7132 /07122-4732 'Z 007123 2276 ISZ 7076 /07123-2276 R> 007124 1020 TAD 0020 /07124-1020 HP 007125 6211 CDF 10 /07125-6211 2I 007126 3774 DCA I 7174 /07126-3774 _< 007127 6201 CDF 0 /07127-6201 2A 007130 7402 HLT /07130-7402 <B 007131 5676 JMP I 7076 /07131-5676 .> 007132 3422 DCA I 0022 /07132-3422 \R 007133 0000 AND 0000 /07133-0000 @@ 007134 0000 AND 0000 /07134-0000 @@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-74 007135 6002 IOF /07135-6002 0B 007136 4535 JMS I 0135 /07136-4535 %] 007137 0023 AND 0023 /07137-0023 @S 007140 1024 TAD 0024 /07140-1024 HT 007141 7002 BSW /07141-7002 8B 007142 1373 TAD 7173 /07142-1373 K; 007143 3503 DCA I 0103 /07143-3503 ]C 007144 4535 JMS I 0135 /07144-4535 %] 007145 0001 AND 0001 /07145-0001 @A 007146 1503 TAD I 0103 /07146-1503 MC 007147 4535 JMS I 0135 /07147-4535 %] 007150 0000 AND 0000 /07150-0000 @@ 007151 3503 DCA I 0103 /07151-3503 ]C 007152 4535 JMS I 0135 /07152-4535 %] 007153 0021 AND 0021 /07153-0021 @Q 007154 3503 DCA I 0103 /07154-3503 ]C 007155 4535 JMS I 0135 /07155-4535 %] 007156 0024 AND 0024 /07156-0024 @T 007157 3503 DCA I 0103 /07157-3503 ]C 007160 4542 JMS I 0142 /07160-4542 %" 007161 5734 JMP I 7134 /07161-5734 /\ 007162 0000 AND 0000 /07162-0000 @@ 007163 6212 CIF 10 /07163-6212 2J 007164 4766 JMS I 7166 /07164-4766 '6 007165 5762 JMP I 7162 /07165-5762 /2 007166 1064 TAD 0064 /07166-1064 H4 007167 4774 JMS I 7174 /07167-4774 '< 007170 5706 JMP I 7106 /07170-5706 /F 007171 6040 TFL /07171-6040 0 007172 7204 CLA RAL /07172-7204 :D 007173 0403 AND I 0003 /07173-0403 DC 007174 0020 AND 0020 /07174-0020 @P 007175 6202 CIF 0 /07175-6202 2B 007176 0010 AND 0010 /07176-0010 @H 007177 6002 IOF /07177-6002 0B 7200 PAGE 35 007200 0000 AND 0000 /07200-0000 @@ 007201 6203 CIF CDF 0 /07201-6203 2C 007202 6201 CDF 0 /07202-6201 2A 007203 0000 AND 0000 /07203-0000 @@ 007204 0000 AND 0000 /07204-0000 @@ 007205 0000 AND 0000 /07205-0000 @@ 007206 7775 MQA MQL CLA DCM /07206-7775 ?= 007207 7774 SPA SNA SZL CLA OSR /07207-7774 ?< 007210 7773 MQA MQL CLA DPIC /07210-7773 ?; 007211 7770 SPA SNA SZL CLA /07211-7770 ?8 007212 7520 SMA SNL /07212-7520 =P 007213 0007 AND 0007 /07213-0007 @G 007214 0240 AND 7240 /07214-0240 B 007215 0260 AND 7260 /07215-0260 B0 007216 0275 AND 7275 /07216-0275 B= 007217 0277 AND 7277 /07217-0277 B? 007220 0322 AND 7322 /07220-0322 CR 007221 0323 AND 7323 /07221-0323 CS AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-75 007222 0000 AND 0000 /07222-0000 @@ 007223 3200 DCA 7200 /07223-3200 Z@ 007224 6214 RDF /07224-6214 2L 007225 1201 TAD 7201 /07225-1201 JA 007226 3205 DCA 7205 /07226-3205 ZE 007227 6224 RIF /07227-6224 2T 007230 1202 TAD 7202 /07230-1202 JB 007231 3241 DCA 7241 /07231-3241 Z! 007232 1777 TAD I 7377 /07232-1777 O? 007233 7710 SPA CLA /07233-7710 ?H 007234 7614 SKP CLA OSR /07234-7614 >L 007235 1776 TAD I 7376 /07235-1776 O> 007236 3203 DCA 7203 /07236-3203 ZC 007237 1775 TAD I 7375 /07237-1775 O= 007240 3204 DCA 7204 /07240-3204 ZD 007241 7402 HLT /07241-7402 <B 007242 1222 TAD 7222 /07242-1222 JR 007243 3774 DCA I 7374 /07243-3774 _< 007244 1205 TAD 7205 /07244-1205 JE 007245 3773 DCA I 7373 /07245-3773 _; 007246 1200 TAD 7200 /07246-1200 J@ 007247 7440 SZA /07247-7440 < 007250 5772 JMP I 7372 /07250-5772 /: 007251 4771 JMS I 7371 /07251-4771 '9 007252 1221 TAD 7221 /07252-1221 JQ 007253 4770 JMS I 7370 /07253-4770 '8 007254 1220 TAD 7220 /07254-1220 JP 007255 4770 JMS I 7370 /07255-4770 '8 007256 1216 TAD 7216 /07256-1216 JN 007257 4770 JMS I 7370 /07257-4770 '8 007260 1207 TAD 7207 /07260-1207 JG 007261 3205 DCA 7205 /07261-3205 ZE 007262 1203 TAD 7203 /07262-1203 JC 007263 7004 RAL /07263-7004 8D 007264 7004 RAL /07264-7004 8D 007265 7006 RTL /07265-7006 8F 007266 3203 DCA 7203 /07266-3203 ZC 007267 1203 TAD 7203 /07267-1203 JC 007270 0213 AND 7213 /07270-0213 BK 007271 1215 TAD 7215 /07271-1215 JM 007272 4770 JMS I 7370 /07272-4770 '8 007273 1203 TAD 7203 /07273-1203 JC 007274 2205 ISZ 7205 /07274-2205 RE 007275 5264 JMP 7264 /07275-5264 *4 007276 7300 CLA CLL /07276-7300 ;@ 007277 1210 TAD 7210 /07277-1210 JH 007300 3205 DCA 7205 /07300-3205 ZE 007301 3767 DCA I 7367 /07301-3767 _7 007302 3766 DCA I 7366 /07302-3766 _6 007303 1214 TAD 7214 /07303-1214 JL 007304 4770 JMS I 7370 /07304-4770 '8 007305 4765 JMS I 7365 /07305-4765 '5 007306 3200 DCA 7200 /07306-3200 Z@ 007307 1200 TAD 7200 /07307-1200 J@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-76 007310 1364 TAD 7364 /07310-1364 K4 007311 7450 SNA /07311-7450 <( 007312 5763 JMP I 7363 /07312-5763 /3 007313 1207 TAD 7207 /07313-1207 JG 007314 7450 SNA /07314-7450 <( 007315 5762 JMP I 7362 /07315-5762 /2 007316 1206 TAD 7206 /07316-1206 JF 007317 7450 SNA /07317-7450 <( 007320 5761 JMP I 7361 /07320-5761 /1 007321 1206 TAD 7206 /07321-1206 JF 007322 7650 SNA CLA /07322-7650 >( 007323 5760 JMP I 7360 /07323-5760 /0 007324 1200 TAD 7200 /07324-1200 J@ 007325 4770 JMS I 7370 /07325-4770 '8 007326 1200 TAD 7200 /07326-1200 J@ 007327 1212 TAD 7212 /07327-1212 JJ 007330 7510 SPA /07330-7510 =H 007331 5351 JMP 7351 /07331-5351 +) 007332 1211 TAD 7211 /07332-1211 JI 007333 7700 SMA CLA /07333-7700 ?@ 007334 5351 JMP 7351 /07334-5351 +) 007335 7240 CLA CMA /07335-7240 : 007336 3766 DCA I 7366 /07336-3766 _6 007337 1200 TAD 7200 /07337-1200 J@ 007340 0213 AND 7213 /07340-0213 BK 007341 3200 DCA 7200 /07341-3200 Z@ 007342 1767 TAD I 7367 /07342-1767 O7 007343 7106 CLL RTL /07343-7106 9F 007344 7004 RAL /07344-7004 8D 007345 1200 TAD 7200 /07345-1200 J@ 007346 3767 DCA I 7367 /07346-3767 _7 007347 2205 ISZ 7205 /07347-2205 RE 007350 5305 JMP 7305 /07350-5305 +E 007351 7300 CLA CLL /07351-7300 ;@ 007352 1217 TAD 7217 /07352-1217 JO 007353 4770 JMS I 7370 /07353-4770 '8 007354 4771 JMS I 7371 /07354-4771 '9 007355 5251 JMP 7251 /07355-5251 *) 007356 7000 NOP /07356-7000 8@ 007357 4546 JMS I 0146 /07357-4546 %& 007360 7540 SMA SZA /07360-7540 = 007361 7527 MQA MQL DVI /07361-7527 =W 007362 7457 SAM /07362-7457 </ 007363 7465 MQL DST /07363-7465 <5 007364 7575 MQA MQL DCM /07364-7575 == 007365 7512 SPA HLT /07365-7512 =J 007366 7403 ACS /07366-7403 <C 007367 7400 7400 /07367-7400 <@ 007370 7500 SMA /07370-7500 =@ 007371 7521 MQA MQL /07371-7521 =Q 007372 7420 SNL /07372-7420 <P 007373 7541 MQA SCA /07373-7541 =! 007374 7402 HLT /07374-7402 <B 007375 0024 AND 0024 /07375-0024 @T 007376 0020 AND 0020 /07376-0020 @P AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-77 007377 0021 AND 0021 /07377-0021 @Q 7400 PAGE 36 007400 0000 AND 0000 /07400-0000 @@ 007401 0273 AND 7473 /07401-0273 B; 007402 0000 AND 0000 /07402-0000 @@ 007403 0000 AND 0000 /07403-0000 @@ 007404 0000 AND 0000 /07404-0000 @@ 007405 0177 CC177, AND 0177 /07405-0177 A? 007406 0200 CC200, AND 7400 /07406-0200 B@ 007407 0077 AND 0077 /07407-0077 @? 007410 7740 SMA SZA CLA /07410-7740 ? 007411 0100 AND 0100 /07411-0100 A@ 007412 0215 CC215, AND 7415 /07412-0215 BM 007413 0212 CC212, AND 7412 /07413-0212 BJ 007414 0303 AND 7503 /07414-0303 CC 007415 0307 AND 7507 /07415-0307 CG 007416 0336 AND 7536 /07416-0336 C^ 007417 7605 CLA MUY /07417-7605 >E 007420 1377 TAD 7577 /07420-1377 K? 007421 7450 SNA /07421-7450 <( 007422 5265 JMP 7465 /07422-5265 *5 007423 1376 TAD 7576 /07423-1376 K> 007424 7450 SNA /07424-7450 <( 007425 5257 JMP 7457 /07425-5257 */ 007426 1375 TAD 7575 /07426-1375 K= 007427 7450 SNA /07427-7450 <( 007430 5255 JMP 7455 /07430-5255 *- 007431 1374 TAD 7574 /07431-1374 K< 007432 7450 SNA /07432-7450 <( 007433 5237 JMP 7437 /07433-5237 *_ 007434 3773 DCA I 7573 /07434-3773 _; 007435 2204 ISZ 7404 /07435-2204 RD 007436 5275 JMP 7475 /07436-5275 *= 007437 7240 CLA CMA /07437-7240 : 007440 3204 DCA 7404 /07440-3204 ZD 007441 1773 TAD I 7573 /07441-1773 O; 007442 7650 SNA CLA /07442-7650 >( 007443 5341 JMP 7541 /07443-5341 +! 007444 7240 CLA CMA /07444-7240 : 007445 3204 DCA 7404 /07445-3204 ZD 007446 4312 JMS READ /07446-4312 #J 007447 1377 TAD 7577 /07447-1377 K? 007450 7450 SNA /07450-7450 <( 007451 5265 JMP 7465 /07451-5265 *5 007452 1372 TAD 7572 /07452-1372 K: 007453 7640 SZA CLA /07453-7640 > 007454 5244 JMP 7444 /07454-5244 *$ 007455 3204 DCA 7404 /07455-3204 ZD 007456 5341 JMP 7541 /07456-5341 +! 007457 4321 JMS CRLF /07457-4321 #Q 007460 1216 TAD 7416 /07460-1216 JN 007461 4300 JMS WRITE /07461-4300 #@ 007462 1215 TAD 7415 /07462-1215 JM 007463 4300 JMS WRITE /07463-4300 #@ AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-78 007464 5771 JMP I 7571 /07464-5771 /9 007465 3204 DCA 7404 /07465-3204 ZD 007466 1216 TAD 7416 /07466-1216 JN 007467 4300 JMS WRITE /07467-4300 #@ 007470 1214 TAD 7414 /07470-1214 JL 007471 4300 JMS WRITE /07471-4300 #@ 007472 6203 CIF CDF 0 /07472-6203 2C 007473 6200 LXM /07473-6200 2@ 007474 5617 JMP I 7417 /07474-5617 .O 007475 1770 TAD I 7570 /07475-1770 O8 007476 4300 JMS WRITE /07476-4300 #@ 007477 5341 JMP 7541 /07477-5341 +! 007500 0000 WRITE, AND 0000 /07500-0000 @@ 007501 2204 ISZ 7404 /07501-2204 RD 007502 7410 SKP /07502-7410 <H 007503 5244 JMP 7444 /07503-5244 *$ 007504 6046 TLS /07504-6046 0& 007505 6041 TSF /07505-6041 0! 007506 5305 JMP 7505 /07506-5305 +E 007507 6042 TCF /07507-6042 0" 007510 7200 CLA /07510-7200 :@ 007511 5700 JMP I WRITE /07511-5700 /@ 007512 0000 READ, AND 0000 /07512-0000 @@ 007513 6031 KSF /07513-6031 0Y 007514 5313 JMP 7513 /07514-5313 +K 007515 6036 KRB /07515-6036 0^ 007516 0205 AND CC177 /07516-0205 BE 007517 1206 TAD CC200 /07517-1206 JF 007520 5712 JMP I READ /07520-5712 /J 007521 0000 CRLF, AND 0000 /07521-0000 @@ 007522 1212 TAD CC215 /07522-1212 JJ 007523 4300 JMS WRITE /07523-4300 #@ 007524 1213 TAD CC212 /07524-1213 JK 007525 4300 JMS WRITE /07525-4300 #@ 007526 5721 JMP I CRLF /07526-5721 /Q 007527 4321 JMS CRLF /07527-4321 #Q 007530 1341 TAD 7541 /07530-1341 K! 007531 3332 DCA 7532 /07531-3332 [Z 007532 7402 HLT /07532-7402 <B 007533 2203 ISZ 7403 /07533-2203 RC 007534 5601 JMP I 7401 /07534-5601 .A 007535 1200 TAD 7400 /07535-1200 J@ 007536 3767 DCA I 7567 /07536-3767 _7 007537 5601 JMP I 7401 /07537-5601 .A 007540 4321 JMS CRLF /07540-4321 #Q 007541 7402 HLT /07541-7402 <B 007542 7300 CLA CLL /07542-7300 ;@ 007543 2203 ISZ 7403 /07543-2203 RC 007544 5602 JMP I 7402 /07544-5602 .B 007545 1200 TAD 7400 /07545-1200 J@ 007546 3767 DCA I 7567 /07546-3767 _7 AJKTAB PAL8-V50X 23-NOV-87 PAGE 1-79 007547 5602 JMP I 7402 /07547-5602 .B 007550 3226 DCA 7426 /07550-3226 ZV 007551 3105 DCA 0105 /07551-3105 YE 007552 3112 DCA 0112 /07552-3112 YJ 007553 7211 CLA IAC RAR /07553-7211 :I 007554 0000 AND 0000 /07554-0000 @@ 007555 0004 AND 0004 /07555-0004 @D 007556 0010 AND 0010 /07556-0010 @H 007557 0014 AND 0014 /07557-0014 @L 007560 0020 AND 0020 /07560-0020 @P 007561 0024 AND 0024 /07561-0024 @T 007562 0030 AND 0030 /07562-0030 @X 007563 0034 AND 0034 /07563-0034 @\ 007564 0040 AND 0040 /07564-0040 @ 007565 0044 AND 0044 /07565-0044 @$ 007566 4432 JMS I 0032 /07566-4432 $Z 007567 0020 AND 0020 /07567-0020 @P 007570 7200 CLA /07570-7200 :@ 007571 7251 CLA CMA IAC RAR /07571-7251 :) 007572 7762 SMA SZA SNL CLA HLT /07572-7762 ?2 007573 7204 CLA RAL /07573-7204 :D 007574 7776 SPA SNA SZL CLA OSR HLT /07574-7776 ?> 007575 7766 SMA SZA SNL CLA OSR HLT /07575-7766 ?6 007576 7774 SPA SNA SZL CLA OSR /07576-7774 ?< 007577 7575 MQA MQL DCM /07577-7575 == $ AJKTAB PAL8-V50X 23-NOV-87 PAGE 2 AC 0114 COMTP1 5141 GETMEM 0062 LRR 6240 ACGBER 5040 COMTP2 5156 GETRMR 4546 LSR 7417 ACS 7403 COUNT 0107 GETSWI 0030 LSTBNK 0144 AJKTAB 6516 CR 4513 GETTTY 0061 LSTBRK 6070 AJKTBM 6511 CRLF 7521 GO 0066 LTM 6334 AMNTMM 6543 CRLFPR 4504 GOTUSR 0072 LUPSET 4560 ASR 7415 CUF 6264 GO2 0067 LUSR 6260 ATHALT 5600 DAD 7443 GTS 6210 LXM 6200 AVLMEM 0075 DBCE 6576 HALTAT 0031 MAINT 0040 BADAC 6343 DBCF 6573 HLTAPC 6460 MAINTR 0111 BANK3 0110 DBRD 6572 ILUSIN 6765 MAKCDF 0042 BD 0160 DBSE 6575 INISET 4336 MAKCDI 0041 BDCOL 6372 DBSK 6571 INSMS1 6105 MAKCIF 0043 BD1 0156 DBSS 6577 INSMS2 6126 MBC 6174 BNKCOL 6454 DBST 6570 INTKNO 5543 MBCRMR 3142 BNKPRT 5412 DBST1 3337 INTKRB 5530 MEMGET 4600 BNKSCK 4515 DBST2 3355 INTNFN 6561 MEMLIM 0101 BNKSER 5006 DBTD 6574 INTNON 6705 MGCHR 4650 BNKSEX 5036 DCM 7575 INTOUT 0063 MGCNT 4652 BPL1 5420 DEVCOL 6450 INTRP 4416 MGDEF 4636 BPL2 5424 DINOTR 6746 INTRPT 0005 MGNXT 4605 BRKADR 0163 DIOI 0200 INTSWI 0070 MGREG 4651 BRKBNK 0164 DOMRAN 4701 INTTLS 5547 MRBITS 0167 BRKLST 0155 DPIC 7573 INTUNX 6654 MRLIST 6064 BRKMSK 0162 DPSZ 7451 INTUSR 5316 MSBSEL 6673 BYTEND 4502 DST 7445 INTVER 0000 MSGBYT 4460 CCDF 0150 DVI 7407 INT1 0001 MSGEND 4475 CCDI 0152 EBM 0100 IONCDF 0741 MSGLUP 4447 CCIF 0151 ECDBGB 0051 IONCIF 4353 MSGPRT 4437 CC177 7405 EFLDAV 6467 IONION 6051 MSGTMP 4514 CC200 7406 EMM 4000 IONTTY 0074 MSNSLB 6375 CC212 7413 EN5 2000 IOPRT 6036 MSPC 6445 CC215 7412 EN9 1000 IOTEMP 6054 MSSLBE 7052 CDBGBE 5200 ERACGB 0047 IOTLS 6055 MSSLBF 7064 CDBITS 0112 ERBNKS 0050 KTERR 5522 MUY 7405 CDFION 0026 ERRARG 5260 KTLP 5501 NEXFLD 7001 CDFMAK 5622 ERRCGB 0046 KTSET 5475 NMI 7411 CDIMAK 5405 ERRLOC 0103 LBM 6170 NOTRAP 6620 CGBERR 5114 ERRNPT 5234 LDCOL 6356 NUMPRT 5436 CHKMEM 5703 ERRNXT 0104 LF 4512 NXTFLD 0035 CHKPRT 5627 ERRPGB 5220 LINK 0113 OM100 0400 CHKX8 0055 ERRSWI 5245 LNKCLR 6733 OM15 0137 CIFION 0027 ERRTGB 0045 LNKSET 6721 OM215 0143 CIFMAK 5400 ERRTYP 0105 LODCHK 4200 OM260 4646 CINT 6204 ERSNGL 0052 LODERR 6414 OM270 4647 CKBNKS 0053 ERVF 0400 LODLP 4206 OM37 0140 CKGDBD 0037 EXACGB 5066 LODPR 4245 OM4 0135 CLOM30 5772 EXRFCL 6630 LODTTL 4235 OM40 0141 CLRLUP 5755 FIELD7 0165 LOOP 0171 OM7 0136 CLRMEM 5734 FLDNXT 5557 LPCNT 0352 OM76 0142 CMDCOL 6361 FLDSET 5323 LPEX 0343 ONCE 0102 CMME 6374 FLGDBD 6422 LPINI 0172 OUTINT 5000 CNT 0166 GD 0157 LPSET 0324 O100 0146 COMERR 5124 GDBDCK 4717 LPX8 0353 O1000 0130 COMEXI 5171 GDCOL 6367 LRM 6344 O104 0147 AJKTAB PAL8-V50X 23-NOV-87 PAGE 2-1 O17 0117 SAM 7457 TXLBM 6177 T24GO 1276 O200 0124 SCA 7441 TXLINK 6312 T25GO 1326 O2000 0131 SCL 7403 TXLRR 6170 T26GO 1400 O240 0125 SETFLD 0032 TXLUSR 6173 T27ER 1460 O260 0126 SETINI 0034 TXLXM 6157 T27GO 1430 O3 0115 SETKT 0044 TXMBC 6202 T27LP 1435 O37 0120 SETLUP 0065 TXOSR 6252 T30ER 1510 O40 0121 SETTST 0033 TXRACA 6301 T30GO 1463 O400 0127 SHARG 4767 TXRACB 6304 T30LP 1467 O4000 0132 SHCNT 4771 TXRACC 6307 T31ERI 1547 O7 0116 SHFL 0040 TXRBM 6241 T31GO 1513 O70 0122 SHFLD 0170 TXRDF 6213 T32GO 1600 O7000 0133 SHF0 4743 TXRIB 6221 T33GO 1642 O77 0123 SHF1 4754 TXRIF 6216 T34GO 1677 O7740 0134 SHF2 4755 TXRLB 6244 T35GO 1723 PASNUM 0161 SHF3 4757 TXRMF 6205 T36ER1 2037 PASSN 6505 SHL 7413 TXRMR 6247 T36ER2 2043 PRCRLF 0060 SHRES 4770 TXRRR 6232 T36GO 2000 PRTBNK 0036 SHUFFL 4732 TXRTF 6162 T37GO 2046 PRTIO 0057 SINT 6254 TXRTS 6165 T40GO 2075 PRTLNK 5474 SKME 6314 TXRUSR 6235 T41ER1 2164 PRTLUP 5445 SKMM 6324 TXRXM 6227 T41ER2 2170 PRTMSG 0054 SMME 6364 TXSUF 6315 T41GO 2132 PRTNUM 0064 SNGLER 5070 TXTPL 6260 T42ER1 2246 PRTPOS 0024 SNGLEX 5112 T01GO 0256 T42ER2 2252 PRTTEM 5473 START 0200 T01LP 0263 T42GO 2200 PRTVAL 5472 START2 0215 T02ERR 0316 T43ER1 2306 PTCOL 6364 START3 0230 T02GO 0276 T43ER2 2314 P177 5546 START4 0252 T03ERR 0432 T43GO 2257 QMRKER 6616 START5 0273 T03GO 0401 T44ER1 2345 RACA 6175 STRSOF 0225 T03GO2 0436 T44ER2 2351 RACB 6176 STRTGM 0233 T03LP 0406 T44GO 2317 RACC 6177 SUF 6274 T04GO 0443 T44LP 2325 RANDOM 0056 SWAB 7431 T05GO 0461 T45CDF 2410 RBM 6171 SWBA 7447 T06GO 0475 T45ER 2430 RDBCHK 4300 SWIGET 0732 T07GO 0514 T45GO 2356 RDBKER 6434 SWISOF 0021 T10GO 0532 T45LP1 2365 RDBLP 4307 SWITCH 0020 T11GO 0600 T45LP2 2405 RDBPR 4261 TELLX8 0554 T12GO 0626 T46CIF 2462 RDBTTL 4251 TEMFLD 0106 T13GO 0654 T46ER 2502 RDB1 4302 TEMIND 0100 T14GO 0700 T46GO 2433 RDB2 4304 TEMP 0077 T15GO 1000 T46LP 2457 READ 7512 TGBERR 3740 T16ER 1061 T47ER 2560 RELERR 6266 THSFLD 0153 T16GO 1025 T47GO 2505 RLB 6172 TMP 0076 T17GO 1064 T47LP 2515 RMR 6173 TSTSET 4263 T20ER 1147 T50GO 2600 RRR 6250 TSTUSR 0025 T20ER0 1143 T50LP 2610 RSTTY 0071 TTYGET 4400 T20GO 1113 T51GO 2661 RTFINT 7013 TXCDF 6146 T21CL 1212 T51LP 2666 RTM 6304 TXCDI 6154 T21GO 1154 T52EX 2763 RTS 6220 TXCIF 6151 T21IN 1161 T52GO 2722 RUSR 6270 TXGTF 6210 T21NX 1200 T53ER0 3124 RXM 6230 TXGTS 6224 T21SL 1203 T53ER1 3130 R1 4715 TXHLT 6263 T22GO 1221 T53ER2 3134 R2 4716 TXLAS 6255 T23GO 1251 T53GO 3001 AJKTAB PAL8-V50X 23-NOV-87 PAGE 2-2 T53LP 3020 T53LPX 3010 T53LP0 3013 T53LP1 3071 T53M14 3000 T54ER 3256 T54GO 3200 T54LP 3223 T55GO 3261 T55LP 3303 T56ER1 3550 T56ER2 3554 T56ER3 3560 T56ER4 3564 T56GO 3400 T56LP0 3511 T56LP1 3437 T56LP2 3464 T56LP3 3517 T57ER 3644 T57GO 3600 T57LP 3605 T60ER 3677 T60GO 3647 T60LP 3652 T61ER 3733 T61EX 3736 T61GO 3702 T61LP 3705 T62GO 4000 T62LP 4003 T63GO 4026 T64GO 4054 T65GO 4100 T66GO 4112 T67GO 4132 UINTCL 7033 UNDINT 6603 USLTRP 6320 USRTST 6000 WHATIS 0073 WKTTY 4406 WRITE 7500 XLSTBN 5364 X8 0022 X8CHK 4653 X8TMP 4700 X87222 4677 ERRORS DETECTED: 0 LINKS GENERATED: 0