File: AJKTAB.PA of Disk: V50/Source/Source-Listing-PAL-2
(Source file text)
EJECT AJKTAB /MAINDEC-08-AJKTAB KT8A MQL=7421 MQA=7501 SWAB=7431 SWBA=7447 SCL=7403 ACS=7403 MUY=7405 DVI=7407 NMI=7411 SHL=7413 ASR=7415 LSR=7417 SCA=7441 DAD=7443 DST=7445 DPSZ=7451 DPIC=7573 DCM=7575 SAM=7457 SKON=6000 SRQ=6003 GTF=6004 RTF=6005 SGT=6006 CAF=6007 CINT=6204 RDF=6214 RIF=6224 RIB=6234 RMF=6244 SINT=6254 CUF=6264 SUF=6274 KCF=6030 TFL=6040 TSF=6041 TCF=6042 TPC=6044 TSK=6045 TLS=6046 DBST=6570 /SKIP IF DEMAND SET AND CLEAR IT DBSK=6571 /SKIP IN READY DBRD=6572 /READ DATA IN DBCF=6573 /CLEAR IN READY DBTD=6574 /LOAD COMPLEMENT OF AC0-11 TO TRANSMIT BUFFER DBSE=6575 /SET INTERRUPT ENABLE DBCE=6576 /CLEAR INTERRUPT ENABLE DBSS=6577 /SEND STROBE PULSE RTM=6304 SKME=6314 SKMM=6324 LTM=6334 LRM=6344 SMME=6364 CMME=6374 LBM=6170 RBM=6171 RLB=6172 RMR=6173 MBC=6174 RACA=6175 RACB=6176 RACC=6177 LXM=6200 GTS=6210 RTS=6220 RXM=6230 LRR=6240 RRR=6250 LUSR=6260 RUSR=6270 EMM=4000 EN5=2000 EN9=1000 ERVF=0400 DIOI=0200 EBM=0100 MAINT=0040 FIELD 0 *0000 INTVER, 302 /00000-0302 CB INT1, DCA AC /00001-3114 YL RMR /00002-6173 1; DCA MAINTR /00003-3111 YI JMP I .+1 /00004-5405 ,E INTRPT, INTRP /00005-4416 $N 2324 /00006-2324 ST 0515 /00007-0515 EM 0000 /00010-0000 @@ 0000 /00011-0000 @@ 0000 /00012-0000 @@ 0000 /00013-0000 @@ 0000 /00014-0000 @@ 0000 /00015-0000 @@ 0000 /00016-0000 @@ 0000 /00017-0000 @@ SWITCH, 0000 /00020-0000 @@ SWISOF, 4000 /00021-4000 @ SWITCH X8, 0000 /00022-0000 @@ 0000 /00023-0000 @@ PRTPOS, 0000 /00024-0000 @@ TSTUSR, USRTST /00025-6000 0@ CDFION, IONCDF /00026-0741 G! CIFION, IONCIF /00027-4353 #+ GETSWI, SWIGET /00030-0732 GZ HALTAT, ATHALT /00031-5600 .@ SETFLD, FLDSET /00032-5323 +S SETTST, TSTSET /00033-4263 "3 SETINI, INISET /00034-4336 #^ NXTFLD, FLDNXT /00035-5557 -/ PRTBNK, BNKPRT /00036-5412 ,J CKGDBD, GDBDCK /00037-4717 'O SHFL, SHUFFL /00040-4732 'Z MAKCDI, CDIMAK /00041-5405 ,E MAKCDF, CDFMAK /00042-5622 .R MAKCIF, CIFMAK /00043-5400 ,@ SETKT, KTSET /00044-5475 ,= ERRTGB, TGBERR /00045-3740 _ ERRCGB, CGBERR /00046-5114 )L ERACGB, ACGBER /00047-5040 ( ERBNKS, BNKSER /00050-5006 (F ECDBGB, CDBGBE /00051-5200 *@ ERSNGL, SNGLER /00052-5070 (8 CKBNKS, BNKSCK /00053-4515 %M PRTMSG, MSGPRT /00054-4437 $_ CHKX8, X8CHK /00055-4653 &+ RANDOM, DOMRAN /00056-4701 'A PRTIO, IOPRT /00057-6036 0^ PRCRLF, CRLFPR /00060-4504 %D GETTTY, TTYGET /00061-4400 $@ GETMEM, MEMGET /00062-4600 &@ INTOUT, OUTINT /00063-5000 (@ PRTNUM, NUMPRT /00064-5436 ,^ SETLUP, LUPSET /00065-4560 %0 GO, 0000 /00066-0000 @@ GO2, 0000 /00067-0000 @@ INTSWI, 0000 /00070-0000 @@ RSTTY, 0000 /00071-0000 @@ GOTUSR, 0000 /00072-0000 @@ WHATIS, 0000 /00073-0000 @@ IONTTY, 0000 /00074-0000 @@ AVLMEM, 0037 /00075-0037 @_ TMP, 0000 /00076-0000 @@ TEMP, 0000 /00077-0000 @@ TEMIND, 0000 /00100-0000 @@ MEMLIM, 0000 /00101-0000 @@ ONCE, -1 /00102-7777 ?? ERRLOC, 0000 /00103-0000 @@ ERRNXT, 0000 /00104-0000 @@ ERRTYP, 0000 /00105-0000 @@ TEMFLD, 0000 /00106-0000 @@ COUNT, 0000 /00107-0000 @@ BANK3, 0000 /00110-0000 @@ MAINTR, 0000 /00111-0000 @@ CDBITS, 0000 /00112-0000 @@ LINK, 0000 /00113-0000 @@ AC, 0000 /00114-0000 @@ O3, 3 /00115-0003 @C O7, 7 /00116-0007 @G O17, 17 /00117-0017 @O O37, 37 /00120-0037 @_ O40, 40 /00121-0040 @ O70, 70 /00122-0070 @8 O77, 77 /00123-0077 @? O200, 200 /00124-0200 B@ O240, 240 /00125-0240 B O260, 260 /00126-0260 B0 O400, 0400 /00127-0400 D@ O1000, 1000 /00130-1000 H@ O2000, 2000 /00131-2000 P@ O4000, 4000 /00132-4000 @ O7000, 7000 /00133-7000 8@ O7740, 7740 /00134-7740 ? OM4, -4 /00135-7774 ?< OM7, -7 /00136-7771 ?9 OM15, -15 /00137-7763 ?3 OM37, -37 /00140-7741 ?! OM40, -40 /00141-7740 ? OM76, -76 /00142-7702 ?B OM215, -215 /00143-7563 =3 LSTBNK, 0000 /00144-0000 @@ 0004 /00145-0004 @D O100, 0100 /00146-0100 A@ O104, 0104 /00147-0104 AD CCDF, CDF 0 /00150-6201 2A CCIF, CIF 0 /00151-6202 2B CCDI, CIF CDF 0 /00152-6203 2C THSFLD, 0000 /00153-0000 @@ 6067 /00154-6067 07 BRKLST, LSTBRK /00155-6070 08 BD1, 0000 /00156-0000 @@ GD, 0000 /00157-0000 @@ BD, 0000 /00160-0000 @@ PASNUM, 0000 /00161-0000 @@ BRKMSK, 0000 /00162-0000 @@ BRKADR, 0000 /00163-0000 @@ BRKBNK, 0000 /00164-0000 @@ FIELD7, 0000 /00165-0000 @@ CNT, 0000 /00166-0000 @@ MRBITS, 0000 /00167-0000 @@ SHFLD, 0000 /00170-0000 @@ LOOP, -101 /00171-7677 >? LPINI, -101 /00172-7677 >? SMA SNL HLT /00173-7522 =R 0240 /00174-0240 B SMA SZA /00175-7540 = AND 0034 /00176-0034 @\ NOP /00177-7000 8@ PAGE 1 START, CLA CLL /00200-7300 ;@ CIF CDF 0 /00201-6203 2C DCA INTSWI /00202-3070 X8 TAD (JMP I 0 /00203-1377 K? DCA INT1 /00204-3001 XA CAF /00205-6007 0G CUF /00206-6264 24 ION /00207-6001 0A NOP /00210-7000 8@ SKON /00211-6000 0@ SKP /00212-7410 <H SKP CLA /00213-7610 >H HLT /00214-7402 <B START2, CLA CLL /00215-7300 ;@ TAD (DCA AC /00216-1376 K> DCA INT1 /00217-3001 XA TAD (START2 /00220-1375 K= DCA GO /00221-3066 X6 TAD X8 /00222-1022 HR SMA CLA /00223-7700 ?@ JMP START3 /00224-5230 *X STRSOF, TAD SWISOF /00225-1021 HQ AND O37 /00226-0120 AP JMP START4 /00227-5252 ** START3, JMS I (DBST1 /00230-4774 '< JMS I PRTMSG /00231-4454 $, AJKTAB /00232-6516 5N STRTGM, JMS I PRTMSG /00233-4454 $, AMNTMM /00234-6543 5# TAD O37 /00235-1120 IP ION /00236-6001 0A JMS I GETMEM /00237-4462 $2 JMP STRTGM /00240-5233 *[ DCA TMP /00241-3076 X> TAD TMP /00242-1076 H> SNA CLA /00243-7650 >( JMP START4 /00244-5252 ** TAD OM37 /00245-1140 I TAD TMP /00246-1076 H> SMA SZA CLA /00247-7740 ? JMP STRTGM /00250-5233 *[ TAD TMP /00251-1076 H> START4, DCA AVLMEM /00252-3075 X= JMS I CHKX8 /00253-4455 $- NOP /00254-7000 8@ ION /00255-6001 0A T01GO, CLA CLL IAC /00256-7301 ;A Test 1 START MQL /00257-7421 <Q TAD GO2 /00260-1067 H7 SZA CLA /00261-7640 > JMP START5 /00262-5273 *; T01LP, DCA GD /00263-3157 Y/ RXM /00264-6230 2X DCA BD /00265-3160 Y0 JMS I CKGDBD /00266-4437 $_ JMP START5 /00267-5273 *; JMS I ERRCGB /00270-4446 $& EXRFCL /00271-6630 6X T01LP /00272-0263 B3 START5, CLA CMA /00273-7240 : DCA LPCNT /00274-3352 [* JMS I SETTST /00275-4433 $[ Test 2 LXM->RXM T02GO, CLA CLL /00276-7300 ;@ TAD O4000 /00277-1132 IZ DCA GD /00300-3157 Y/ TAD GD /00301-1157 I/ LXM /00302-6200 2@ SZA /00303-7440 < JMP T02ERR /00304-5316 +N RXM /00305-6230 2X DCA BD /00306-3160 Y0 JMS I CKGDBD /00307-4437 $_ JMP .+4 /00310-5314 +L JMS I ERRCGB /00311-4446 $& 0406 /00312-0406 DF T02GO /00313-0276 B> JMP I .+1 /00314-5715 /M T03GO /00315-0401 DA T02ERR, DCA BD /00316-3160 Y0 DCA GD /00317-3157 Y/ JMS I ERACGB /00320-4447 $' 0400 /00321-0400 D@ T02GO /00322-0276 B> JMP T02ERR-2 /00323-5314 +L LPSET, AND 0000 /00324-0000 @@ DCA GO2 /00325-3067 X7 JMS LPX8 /00326-4353 #+ JMS I GETSWI /00327-4430 $X AND O1000 /00330-0130 AX SNA CLA /00331-7650 >( JMP LPEX /00332-5343 +# MQA CLA /00333-7701 ?A DCA TEMIND /00334-3100 Y@ JMS I GETSWI /00335-4430 $X AND O77 /00336-0123 AS CMA IAC /00337-7041 8! TAD TEMIND /00340-1100 I@ SNA CLA /00341-7650 >( JMP I GO /00342-5466 ,6 LPEX, ISZ LPCNT /00343-2352 S* JMP I GO /00344-5466 ,6 TAD OM15 /00345-1137 I_ DCA LPCNT /00346-3352 [* TAD GO2 /00347-1067 H7 DCA GO /00350-3066 X6 JMP I LPSET /00351-5724 /T LPCNT, -1 /00352-7777 ?? LPX8, AND 0000 /00353-0000 @@ TAD X8 /00354-1022 HR SMA CLA /00355-7700 ?@ JMP I LPX8 /00356-5753 /+ ISZ LOOP /00357-2171 Q9 JMP I LPX8 /00360-5753 /+ TAD LPINI /00361-1172 I: DCA LOOP /00362-3171 Y9 IOF /00363-6002 0B CDF 0 /00364-6201 2A CIF 70 /00365-6272 2: JMS I .+3 /00366-4771 '9 ION /00367-6001 0A JMP I LPX8 /00370-5753 /+ 6500 /00371-6500 5@ JMP I 0367 /00372-5767 /7 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 ,@ PAGE 2 OM100, SMA CLA /00400-7700 ?@ T03GO, JMS I SETTST /00401-4433 $[ Test 3 LXM->RXM CLA CLL /00402-7300 ;@ TAD OM100 /00403-1200 J@ DCA COUNT /00404-3107 YG DCA CNT /00405-3166 Y6 T03LP, JMS I SHFL /00406-4440 $ CNT /00407-0166 A6 BSW /00410-7002 8B CLL RAR /00411-7110 9H TAD O4000 /00412-1132 IZ AND O7740 /00413-0134 A\ DCA GD /00414-3157 Y/ TAD GD /00415-1157 I/ LXM /00416-6200 2@ SZA /00417-7440 < JMP T03GO2 /00420-5236 *^ RXM /00421-6230 2X DCA BD /00422-3160 Y0 JMS I CKGDBD /00423-4437 $_ SKP /00424-7410 <H JMP T03ERR /00425-5232 *Z ISZ CNT /00426-2166 Q6 ISZ COUNT /00427-2107 QG JMP T03LP /00430-5206 *F JMP T03GO2-1 /00431-5235 *] T03ERR, JMS I ERRCGB /00432-4446 $& 0406 /00433-0406 DF T03LP /00434-0406 DF JMP T04GO /00435-5243 *# T03GO2, DCA BD /00436-3160 Y0 DCA GD /00437-3157 Y/ JMS I ERACGB /00440-4447 $' 0400 /00441-0400 D@ T03LP /00442-0406 DF T04GO, JMS I SETTST /00443-4433 $[ TEST 4 MAINT INTERRUPT CLA CLL IAC /00444-7301 ;A DCA WHATIS /00445-3073 X; JMS I SETKT /00446-4444 $$ EMM MAINT /00447-4040 CIF 0 /00450-6202 2B JMP .+1 /00451-5252 ** NOP /00452-7000 8@ ISZ GOTUSR /00453-2072 P: JMP .+2 /00454-5256 *. JMP T05GO /00455-5261 *1 JMS I ERRCGB /00456-4446 $& UINTCL /00457-7033 8[ T04GO+1 /00460-0444 D$ T05GO, JMS I SETTST /00461-4433 $[ TEST 5 MAINT NO EN59 CLA CLL /00462-7300 ;@ JMS I SETKT /00463-4444 $$ EMM MAINT /00464-4040 DCA GD /00465-3157 Y/ JMS I CKBNKS /00466-4453 $+ TAD BD1 /00467-1156 I. SNA CLA /00470-7650 >( JMP T06GO /00471-5275 *= JMS I ERBNKS /00472-4450 $( 0000 /00473-0000 @@ T05GO+1 /00474-0462 D2 T06GO, JMS I SETTST /00475-4433 $[ TEST 6 MAINT EN9 CLA CLL /00476-7300 ;@ JMS I SETKT /00477-4444 $$ EMM EN9 MAINT /00500-5040 ( CLL CML RAR /00501-7130 9X DCA GD /00502-3157 Y/ JMS I CKBNKS /00503-4453 $+ TAD BD1 /00504-1156 I. CMA IAC /00505-7041 8! TAD GD /00506-1157 I/ SNA CLA /00507-7650 >( JMP T07GO /00510-5314 +L JMS I ERBNKS /00511-4450 $( 0000 /00512-0000 @@ T06GO+1 /00513-0476 D> T07GO, JMS I SETTST /00514-4433 $[ TEST 7 MAINT EN5 JMS I SETKT /00515-4444 $$ EMM EN5 MAINT /00516-6040 0 CLA CLL CML RTR /00517-7332 ;Z DCA GD /00520-3157 Y/ JMS I CKBNKS /00521-4453 $+ TAD BD1 /00522-1156 I. CMA IAC /00523-7041 8! TAD GD /00524-1157 I/ SNA CLA /00525-7650 >( JMP T10GO /00526-5332 +Z JMS I ERBNKS /00527-4450 $( 0000 /00530-0000 @@ T07GO+1 /00531-0515 EM T10GO, JMS I SETTST /00532-4433 $[ TEST 10 MAINT EN59 CLA CLL /00533-7300 ;@ LXM /00534-6200 2@ JMS I SETKT /00535-4444 $$ EMM EN5 EN9 MAINT /00536-7040 8 TAD O7000 /00537-1133 I[ DCA GD /00540-3157 Y/ JMS I CKBNKS /00541-4453 $+ TAD BD1 /00542-1156 I. CMA IAC /00543-7041 8! TAD GD /00544-1157 I/ SNA CLA /00545-7650 >( JMP .+4 /00546-5352 +* JMS I ERBNKS /00547-4450 $( 0000 /00550-0000 @@ T10GO+1 /00551-0533 E[ JMP I .+1 /00552-5753 /+ T11GO /00553-0600 F@ TELLX8, AND 0000 /00554-0000 @@ TAD X8 /00555-1022 HR SMA CLA /00556-7700 ?@ JMP I TELLX8 /00557-5754 /, TAD ERRLOC /00560-1103 IC IOF /00561-6002 0B CDF 0 /00562-6201 2A CIF 70 /00563-6272 2: JMP I .+1 /00564-5765 /5 6520 /00565-6520 5P AND 0032 /00566-0032 @Z AND I 0122 /00567-0522 ER TAD I 0500 /00570-1700 O@ JMS 0000 /00571-4000 @ AND 0000 /00572-0000 @@ AND 0000 /00573-0000 @@ AND 0000 /00574-0000 @@ AND 0000 /00575-0000 @@ AND 0000 /00576-0000 @@ AND 0000 /00577-0000 @@ PAGE 3 T11GO, JMS I SETINI /00600-4434 $\ Test 11 CDF>RIB JMS I SETFLD /00601-4432 $Z JMS I SETKT /00602-4444 $$ EMM EN5 EN9 MAINT /00603-7040 8 TAD BANK3 /00604-1110 IH CLL RAL /00605-7104 9D BSW /00606-7002 8B TAD FIELD7 /00607-1165 I5 DCA GD /00610-3157 Y/ JMS I CDFION /00611-4426 $V JMS I MAKCDF /00612-4442 $" RIB /00613-6234 2\ DCA BD /00614-3160 Y0 JMS I CKGDBD /00615-4437 $_ SKP /00616-7410 <H JMP .+4 /00617-5223 *S JMS I NXTFLD /00620-4435 $] JMP T11GO+2 /00621-5202 *B JMP .+4 /00622-5226 *V JMS I ERRCGB /00623-4446 $& 0104 /00624-0104 AD T11GO+2 /00625-0602 FB T12GO, JMS I SETINI /00626-4434 $\ Test 12 CDF>RMR JMS I SETFLD /00627-4432 $Z JMS I SETKT /00630-4444 $$ EMM EN5 EN9 MAINT /00631-7040 8 TAD MRBITS /00632-1167 I7 DCA GD /00633-3157 Y/ JMS I MAKCDF /00634-4442 $" HLT /00635-7402 <B TAD I O7000 /00636-1533 M[ CLA CLL /00637-7300 ;@ RMR /00640-6173 1; DCA BD /00641-3160 Y0 CIF CDF 0 /00642-6203 2C JMS I CKGDBD /00643-4437 $_ SKP /00644-7410 <H JMP .+4 /00645-5251 *) JMS I NXTFLD /00646-4435 $] JMP T12GO+2 /00647-5230 *X JMP T13GO /00650-5254 *, JMS I ERRCGB /00651-4446 $& 0113 /00652-0113 AK T12GO+2 /00653-0630 FX T13GO, JMS I SETINI /00654-4434 $\ Test 13 CDF>RDF JMS I SETFLD /00655-4432 $Z JMS I SETKT /00656-4444 $$ EMM EN5 EN9 MAINT /00657-7040 8 TAD CDBITS /00660-1112 IJ DCA GD /00661-3157 Y/ JMS I MAKCDF /00662-4442 $" HLT /00663-7402 <B RDF /00664-6214 2L DCA BD /00665-3160 Y0 CIF CDF 0 /00666-6203 2C JMS I CKGDBD /00667-4437 $_ SKP /00670-7410 <H JMP .+4 /00671-5275 *= JMS I NXTFLD /00672-4435 $] JMP T13GO+2 /00673-5256 *. JMP T14GO /00674-5300 +@ JMS I ERRCGB /00675-4446 $& 0102 /00676-0102 AB T13GO+2 /00677-0656 F. T14GO, JMS I SETINI /00700-4434 $\ Test 14 RMF>RDF JMS I SETFLD /00701-4432 $Z JMS I SETKT /00702-4444 $$ EMM EN5 EN9 MAINT /00703-7040 8 TAD CDBITS /00704-1112 IJ DCA GD /00705-3157 Y/ JMS I CDFION /00706-4426 $V JMS I MAKCDF /00707-4442 $" RMF /00710-6244 2$ NOP /00711-7000 8@ RDF /00712-6214 2L DCA BD /00713-3160 Y0 CIF CDF 0 /00714-6203 2C JMS I CKGDBD /00715-4437 $_ SKP CLA /00716-7610 >H JMP 0723 /00717-5323 +S JMS I NXTFLD /00720-4435 $] JMP T14GO+2 /00721-5302 +B JMP .+4 /00722-5326 +V JMS I ERRCGB /00723-4446 $& 1302 /00724-1302 KB T14GO+2 /00725-0702 GB JMP I .+1 /00726-5727 /W T15GO /00727-1000 H@ AND 0000 /00730-0000 @@ JMP I 0730 /00731-5730 /X SWIGET, AND 0000 /00732-0000 @@ CLA CLL /00733-7300 ;@ TAD SWISOF /00734-1021 HQ SPA CLA /00735-7710 ?H SKP CLA OSR /00736-7614 >L TAD SWITCH /00737-1020 HP JMP I SWIGET /00740-5732 /Z IONCDF, AND 0000 /00741-0000 @@ CLA CMA /00742-7240 : DCA INTSWI /00743-3070 X8 TAD I IONCDF /00744-1741 O! ISZ IONCDF /00745-2341 S! DCA .+1 /00746-3347 [' HLT /00747-7402 <B HLT /00750-7402 <B IOF /00751-6002 0B TFL /00752-6040 0 ION /00753-6001 0A JMP .+1 /00754-5355 +- NOP /00755-7000 8@ TAD INTSWI /00756-1070 H8 SZA CLA /00757-7640 > JMP .+2 /00760-5362 +2 JMP I IONCDF /00761-5741 /! JMS I PRTMSG /00762-4454 $, INTNFN /00763-6561 51 JMS I HALTAT /00764-4431 $Y JMP I IONCDF /00765-5741 /! SMA SZA /00766-7540 = AND I 0777 /00767-0777 G? AND 0730 /00770-0330 CX CLA DVI /00771-7607 >G AND 0600 /00772-0200 B@ SMA SZA CLA OSR HLT /00773-7746 ?& SRQ /00774-6003 0C TAD 0757 /00775-1357 K/ CLA MUY /00776-7605 >E TAD 0000 /00777-1000 H@ PAGE 4 T15GO, JMS I SETINI /01000-4434 $\ Test 15 CDF>GTF JMS I SETFLD /01001-4432 $Z JMS I SETKT /01002-4444 $$ EMM EN5 EN9 MAINT /01003-7040 8 TAD FIELD7 /01004-1165 I5 DCA GD /01005-3157 Y/ JMS I CDFION /01006-4426 $V JMS I MAKCDF /01007-4442 $" GTF /01010-6004 0D AND O77 /01011-0123 AS DCA BD /01012-3160 Y0 CIF CDF 0 /01013-6203 2C JMS I CKGDBD /01014-4437 $_ SKP /01015-7410 <H JMP .+4 /01016-5222 *R JMS I NXTFLD /01017-4435 $] JMP T15GO+2 /01020-5202 *B JMP T16GO /01021-5225 *U JMS I ERRCGB /01022-4446 $& 0101 /01023-0101 AA T15GO+2 /01024-1002 HB T16GO, JMS I SETTST /01025-4433 $[ Test 16 RTF>RMR JMS I SETFLD /01026-4432 $Z JMS I SETKT /01027-4444 $$ EMM EN5 EN9 MAINT /01030-7040 8 TAD MRBITS /01031-1167 I7 DCA GD /01032-3157 Y/ IOF /01033-6002 0B TAD FIELD7 /01034-1165 I5 RTF /01035-6005 0E NOP /01036-7000 8@ SKON /01037-6000 0@ JMP T16ER /01040-5261 *1 ION /01041-6001 0A TAD I O7000 /01042-1533 M[ CLA CLL /01043-7300 ;@ RMR /01044-6173 1; DCA BD /01045-3160 Y0 CIF CDF 0 /01046-6203 2C JMS I CKGDBD /01047-4437 $_ SKP /01050-7410 <H JMP .+4 /01051-5255 *- JMS I NXTFLD /01052-4435 $] JMP T16GO+2 /01053-5227 *W JMP .+4 /01054-5260 *0 JMS I ERRCGB /01055-4446 $& 0513 /01056-0513 EK T16GO+2 /01057-1027 HW JMP T17GO /01060-5264 *4 T16ER, JMS I ERRCGB /01061-4446 $& 7013 /01062-7013 8K T16GO+2 /01063-1027 HW T17GO, JMS I SETINI /01064-4434 $\ Test 17 CDF>GTS JMS I SETFLD /01065-4432 $Z JMS I SETKT /01066-4444 $$ EMM EN5 EN9 MAINT /01067-7040 8 TAD BANK3 /01070-1110 IH CLL RAL /01071-7104 9D BSW /01072-7002 8B TAD FIELD7 /01073-1165 I5 DCA GD /01074-3157 Y/ JMS I CDFION /01075-4426 $V JMS I MAKCDF /01076-4442 $" GTS /01077-6210 2H DCA BD /01100-3160 Y0 CIF CDF 0 /01101-6203 2C JMS I CKGDBD /01102-4437 $_ SKP /01103-7410 <H JMP .+4 /01104-5310 +H JMS I NXTFLD /01105-4435 $] JMP T17GO+2 /01106-5266 *6 JMP T20GO /01107-5313 +K JMS I ERRCGB /01110-4446 $& 0105 /01111-0105 AE T17GO+2 /01112-1066 H6 T20GO, JMS I SETINI /01113-4434 $\ Test 20 RTS>RMR JMS I SETFLD /01114-4432 $Z JMS I SETKT /01115-4444 $$ EMM EN5 EN9 MAINT /01116-7040 8 TAD MRBITS /01117-1167 I7 DCA GD /01120-3157 Y/ TAD BANK3 /01121-1110 IH CLL RAL /01122-7104 9D BSW /01123-7002 8B TAD FIELD7 /01124-1165 I5 RTS /01125-6220 2P SZA /01126-7440 < JMP T20ER /01127-5347 +' TAD I O7000 /01130-1533 M[ CLA CLL /01131-7300 ;@ RMR /01132-6173 1; DCA BD /01133-3160 Y0 CIF CDF 0 /01134-6203 2C JMS I CKGDBD /01135-4437 $_ SKP /01136-7410 <H JMP T20ER0 /01137-5343 +# JMS I NXTFLD /01140-4435 $] JMP T20GO+2 /01141-5315 +M JMP T20ER-1 /01142-5346 +& T20ER0, JMS I ERRCGB /01143-4446 $& 0613 /01144-0613 FK T20GO+2 /01145-1115 IM JMP T21GO /01146-5354 +, T20ER, DCA BD /01147-3160 Y0 DCA GD /01150-3157 Y/ JMS I ERACGB /01151-4447 $' 0600 /01152-0600 F@ T20GO+2 /01153-1115 IM T21GO, JMS I SETTST /01154-4433 $[ TEST 21 LINK->RTF JMS I (CLRMEM /01155-4777 '? TAD T21IN /01156-1361 K1 DCA GO /01157-3066 X6 JMP I T21IN /01160-5761 /1 T21IN, T21NX /01161-1200 J@ JMP I 0075 /01162-5475 ,= CDF 10 /01163-6211 2I DCA I 0041 /01164-3441 \! JMP 1161 /01165-5361 +1 TAD 1053 /01166-1253 J+ TAD IONTTY /01167-1074 H< DCA 0034 /01170-3034 X\ JMS I 1176 /01171-4776 '> TAD 0073 /01172-1073 H; JMS I 0023 /01173-4423 $S JMP I 1166 /01174-5766 /6 MQA MQL DCM /01175-7575 == TAD 1062 /01176-1262 J2 /JMP I 1134 /01177-5734 /\ PAGE 5 T21NX, CLA CLL /01200-7300 ;@ JMS I SETKT /01201-4444 $$ EMM /01202-4000 @ T21SL, CLL CML RAR /01203-7130 9X RTF /01204-6005 0E SZL /01205-7430 <X JMP .+4 /01206-5212 *J JMS I ERRCGB /01207-4446 $& LNKSET /01210-6721 7Q T21SL /01211-1203 JC T21CL, CLA CLL CML /01212-7320 ;P RTF /01213-6005 0E SNL /01214-7420 <P JMP T22GO /01215-5221 *Q JMS I ERRCGB /01216-4446 $& LNKCLR /01217-6733 7[ T21CL /01220-1212 JJ T22GO, JMS I SETTST /01221-4433 $[ TEST 22 CIF->RIB CLA CLL /01222-7300 ;@ JMS I SETFLD /01223-4432 $Z JMS I SETKT /01224-4444 $$ EMM EN5 EN9 MAINT /01225-7040 8 TAD BANK3 /01226-1110 IH BSW /01227-7002 8B TAD FIELD7 /01230-1165 I5 CLL RTL /01231-7106 9F RAL /01232-7004 8D DCA GD /01233-3157 Y/ JMS I CIFION /01234-4427 $W JMS I MAKCIF /01235-4443 $# RIB /01236-6234 2\ DCA BD /01237-3160 Y0 JMS I CKGDBD /01240-4437 $_ SKP /01241-7410 <H JMP .+4 /01242-5246 *& JMS I NXTFLD /01243-4435 $] JMP T22GO+3 /01244-5224 *T JMP T23GO /01245-5251 *) JMS I ERRCGB /01246-4446 $& 0204 /01247-0204 BD T22GO+3 /01250-1224 JT T23GO, JMS I SETINI /01251-4434 $\ TEST 23 CIF->RMR JMS I SETFLD /01252-4432 $Z JMS I SETKT /01253-4444 $$ EMM EN5 EN9 MAINT /01254-7040 8 TAD MRBITS /01255-1167 I7 DCA GD /01256-3157 Y/ JMS I MAKCIF /01257-4443 $# HLT /01260-7402 <B JMP .+1 /01261-5262 *2 NOP /01262-7000 8@ TAD MAINTR /01263-1111 II DCA BD /01264-3160 Y0 JMS I CKGDBD /01265-4437 $_ SKP /01266-7410 <H JMP .+4 /01267-5273 *; JMS I NXTFLD /01270-4435 $] JMP T23GO+2 /01271-5253 *+ JMP T24GO /01272-5276 *> JMS I ERRCGB /01273-4446 $& 0213 /01274-0213 BK TAD T23GO+2 /01275-1253 J+ T24GO, JMS I SETINI /01276-4434 $\ TEST 24 CIF->RMF JMS I SETFLD /01277-4432 $Z CLA CLL /01300-7300 ;@ JMS I SETKT /01301-4444 $$ EMM EN5 EN9 MAINT /01302-7040 8 JMS I CIFION /01303-4427 $W JMS I MAKCIF /01304-4443 $# RMF /01305-6244 2$ JMP .+1 /01306-5307 +G NOP /01307-7000 8@ TAD MAINTR /01310-1111 II DCA BD /01311-3160 Y0 CIF CDF 0 /01312-6203 2C TAD MRBITS /01313-1167 I7 DCA GD /01314-3157 Y/ JMS I CKGDBD /01315-4437 $_ SKP CLA /01316-7610 >H JMP .+4 /01317-5323 +S JMS I NXTFLD /01320-4435 $] JMP T24GO+2 /01321-5300 +@ JMP T25GO /01322-5326 +V JMS I ERRCGB /01323-4446 $& 1313 /01324-1313 KK T24GO+2 /01325-1300 K@ T25GO, JMS I SETTST /01326-4433 $[ TEST 25 CIF->GTF JMS I SETFLD /01327-4432 $Z JMS I SETKT /01330-4444 $$ EMM EN5 EN9 MAINT /01331-7040 8 TAD CDBITS /01332-1112 IJ AND O70 /01333-0122 AR DCA GD /01334-3157 Y/ JMS I CIFION /01335-4427 $W JMS I MAKCIF /01336-4443 $# GTF /01337-6004 0D AND O77 /01340-0123 AS DCA BD /01341-3160 Y0 CIF CDF 0 /01342-6203 2C JMS I CKGDBD /01343-4437 $_ SKP /01344-7410 <H JMP .+4 /01345-5351 +) JMS I NXTFLD /01346-4435 $] JMP T25GO+2 /01347-5330 +X JMP 1354 /01350-5354 +, JMS I ERRCGB /01351-4446 $& 0201 /01352-0201 BA T25GO+2 /01353-1330 KX JMP I .+1 /01354-5755 /- T26GO /01355-1400 L@ JMP 1352 /01356-5352 +* JMS I 0101 /01357-4501 %A JMP I 0157 /01360-5557 -/ AND 0000 /01361-0000 @@ TAD 0064 /01362-1064 H4 JMS I 0151 /01363-4551 %) TAD 0063 /01364-1063 H3 DCA 1375 /01365-3375 [= JMP 1372 /01366-5372 +: TAD 0031 /01367-1031 HY SNA CLA /01370-7650 >( JMP I 0062 /01371-5462 ,2 JMS I 0162 /01372-4562 %2 AND 1201 /01373-0201 BA AND I 0000 /01374-0400 D@ AND 0067 /01375-0067 @7 JMP 0001 /01376-5001 (A JMP I 0061 /01377-5461 ,1 PAGE 6 T26GO, JMS I SETINI /01400-4434 $\ TEST 26 CIF->GTS JMS I SETFLD /01401-4432 $Z JMS I SETKT /01402-4444 $$ EMM EN5 EN9 MAINT /01403-7040 8 TAD BANK3 /01404-1110 IH BSW /01405-7002 8B TAD FIELD7 /01406-1165 I5 CLL RTL /01407-7106 9F RAL /01410-7004 8D DCA GD /01411-3157 Y/ JMS I CIFION /01412-4427 $W JMS I MAKCIF /01413-4443 $# GTS /01414-6210 2H DCA BD /01415-3160 Y0 CIF CDF 0 /01416-6203 2C JMS I CKGDBD /01417-4437 $_ SKP /01420-7410 <H JMP .+4 /01421-5225 *U JMS I NXTFLD /01422-4435 $] JMP T26GO+2 /01423-5202 *B JMP T27GO /01424-5230 *X JMS I ERRCGB /01425-4446 $& 0205 /01426-0205 BE T26GO+2 /01427-1402 LB T27GO, JMS I SETTST /01430-4433 $[ TEST 27 CDF,LINK->GTF JMS I SETKT /01431-4444 $$ EMM /01432-4000 @ DCA CDBITS /01433-3112 YJ CLA CLL /01434-7300 ;@ T27LP, JMS I CDFION /01435-4426 $V JMS I MAKCDF /01436-4442 $" GTF /01437-6004 0D AND O4000 /01440-0132 AZ DCA BD /01441-3160 Y0 DCA GD /01442-3157 Y/ JMS I CKGDBD /01443-4437 $_ SKP CLA /01444-7610 >H JMP T27ER /01445-5260 *0 CLA CLL CML /01446-7320 ;P JMS I CDFION /01447-4426 $V JMS I MAKCDF /01450-4442 $" GTF /01451-6004 0D AND O4000 /01452-0132 AZ DCA BD /01453-3160 Y0 CLA CLL CML RAR /01454-7330 ;X DCA GD /01455-3157 Y/ JMS I CKGDBD /01456-4437 $_ JMP T30GO /01457-5263 *3 T27ER, JMS I ERRCGB /01460-4446 $& 1701 /01461-1701 OA T27LP /01462-1435 L] T30GO, JMS I SETTST /01463-4433 $[ TEST 30 CDF,LINK->GTS JMS I SETKT /01464-4444 $$ EMM /01465-4000 @ CLA CLL /01466-7300 ;@ T30LP, JMS I CDFION /01467-4426 $V JMS I MAKCDF /01470-4442 $" GTS /01471-6210 2H DCA BD /01472-3160 Y0 DCA GD /01473-3157 Y/ JMS I CKGDBD /01474-4437 $_ SKP CLA /01475-7610 >H JMP T30ER /01476-5310 +H CLA CLL CML /01477-7320 ;P JMS I CDFION /01500-4426 $V JMS I MAKCDF /01501-4442 $" GTS /01502-6210 2H DCA BD /01503-3160 Y0 CLA CLL CML RAR /01504-7330 ;X DCA GD /01505-3157 Y/ JMS I CKGDBD /01506-4437 $_ JMP T31GO /01507-5313 +K T30ER, JMS I ERRCGB /01510-4446 $& 1705 /01511-1705 OE T30LP /01512-1467 L7 T31GO, JMS I SETTST /01513-4433 $[ TEST 31 RTF->RMR JMS I SETFLD /01514-4432 $Z JMS I SETKT /01515-4444 $$ EMM EN5 EN9 MAINT /01516-7040 8 TAD MRBITS /01517-1167 I7 DCA GD /01520-3157 Y/ IOF /01521-6002 0B TAD CDBITS /01522-1112 IJ RTF /01523-6005 0E NOP /01524-7000 8@ SKON /01525-6000 0@ JMP T31ERI /01526-5347 +' ION /01527-6001 0A JMP .+1 /01530-5331 +Y NOP /01531-7000 8@ TAD MAINTR /01532-1111 II DCA BD /01533-3160 Y0 CIF CDF 0 /01534-6203 2C JMS I CKGDBD /01535-4437 $_ SKP /01536-7410 <H JMP .+4 /01537-5343 +# JMS I NXTFLD /01540-4435 $] JMP T31GO+2 /01541-5315 +M JMP .+4 /01542-5346 +& JMS I ERRCGB /01543-4446 $& 0513 /01544-0513 EK T31GO+2 /01545-1515 MM JMP .+4 /01546-5352 +* T31ERI, JMS I ERRCGB /01547-4446 $& RTFINT /01550-7013 8K T31GO+2 /01551-1515 MM JMP I .+1 /01552-5753 /+ T32GO /01553-1600 N@ AND 0000 /01554-0000 @@ JMS I 0026 /01555-4426 $V JMS 0101 /01556-4101 !A AND I 1400 /01557-0600 F@ AND 0000 /01560-0000 @@ JMP 1567 /01561-5367 +7 TAD 1556 /01562-1356 K. JMS I 1576 /01563-4776 '> TAD 1560 /01564-1360 K0 DCA 1560 /01565-3360 [0 JMP I 1554 /01566-5754 /, JMS I 0100 /01567-4500 %@ ISZ 1501 /01570-2301 SA ISZ I 1405 /01571-2605 VE JMS 0005 /01572-4005 E ISZ 1422 /01573-2222 RR TAD I 1522 /01574-1722 OR AND 0000 /01575-0000 @@ TAD I 1565 /01576-1765 O5 CLL RAR /01577-7110 9H PAGE 7 T32GO, JMS I SETINI /01600-4434 $\ TEST 32 RTS->RMR JMS I SETFLD /01601-4432 $Z JMS I SETKT /01602-4444 $$ EMM EN5 EN9 MAINT /01603-7040 8 TAD MRBITS /01604-1167 I7 DCA GD /01605-3157 Y/ TAD BANK3 /01606-1110 IH CLL RAL /01607-7104 9D RTL /01610-7006 8F BSW /01611-7002 8B TAD CDBITS /01612-1112 IJ AND (7770 /01613-0377 C? RTS /01614-6220 2P SZA /01615-7440 < JMP 1635 /01616-5235 *] JMP .+1 /01617-5220 *P NOP /01620-7000 8@ TAD MAINTR /01621-1111 II DCA BD /01622-3160 Y0 JMS I CKGDBD /01623-4437 $_ SKP /01624-7410 <H JMP 1631 /01625-5231 *Y JMS I NXTFLD /01626-4435 $] JMP T32GO+2 /01627-5202 *B JMP .+4 /01630-5234 *\ JMS I ERRCGB /01631-4446 $& 0613 /01632-0613 FK T32GO+2 /01633-1602 NB JMP 1642 /01634-5242 *" DCA BD /01635-3160 Y0 DCA GD /01636-3157 Y/ JMS I ERACGB /01637-4447 $' 0600 /01640-0600 F@ T32GO+2 /01641-1602 NB T33GO, JMS I SETTST /01642-4433 $[ TEST 33 CDI->RIB JMS I SETFLD /01643-4432 $Z JMS I SETKT /01644-4444 $$ EMM EN5 EN9 MAINT /01645-7040 8 TAD CDBITS /01646-1112 IJ AND O70 /01647-0122 AR TAD FIELD7 /01650-1165 I5 DCA GD /01651-3157 Y/ TAD BANK3 /01652-1110 IH CLL RTL /01653-7106 9F TAD BANK3 /01654-1110 IH RAL /01655-7004 8D BSW /01656-7002 8B TAD GD /01657-1157 I/ DCA GD /01660-3157 Y/ JMS I CIFION /01661-4427 $W JMS I MAKCDI /01662-4441 $! RIB /01663-6234 2\ DCA BD /01664-3160 Y0 CIF CDF 0 /01665-6203 2C JMS I CKGDBD /01666-4437 $_ SKP /01667-7410 <H JMP .+4 /01670-5274 *< JMS I NXTFLD /01671-4435 $] JMP T33GO+2 /01672-5244 *$ JMP T34GO /01673-5277 *? JMS I ERRCGB /01674-4446 $& 0304 /01675-0304 CD T33GO+2 /01676-1644 N$ T34GO, JMS I SETINI /01677-4434 $\ TEST 34 CDI->RDF JMS I SETFLD /01700-4432 $Z JMS I SETKT /01701-4444 $$ EMM EN5 EN9 MAINT /01702-7040 8 TAD CDBITS /01703-1112 IJ DCA GD /01704-3157 Y/ JMS I MAKCDI /01705-4441 $! HLT /01706-7402 <B RDF /01707-6214 2L DCA BD /01710-3160 Y0 CIF CDF 0 /01711-6203 2C JMS I CKGDBD /01712-4437 $_ SKP /01713-7410 <H JMP 1720 /01714-5320 +P JMS I NXTFLD /01715-4435 $] JMP T34GO+2 /01716-5301 +A JMP T35GO /01717-5323 +S JMS I ERRCGB /01720-4446 $& 0302 /01721-0302 CB T34GO+2 /01722-1701 OA T35GO, JMS I SETINI /01723-4434 $\ TEST 35 CDF->RMR JMS I SETFLD /01724-4432 $Z JMS I SETKT /01725-4444 $$ EMM EN5 EN9 MAINT /01726-7040 8 TAD MRBITS /01727-1167 I7 DCA GD /01730-3157 Y/ JMS I MAKCDI /01731-4441 $! HLT /01732-7402 <B TAD I O7000 /01733-1533 M[ CLA CLL /01734-7300 ;@ RMR /01735-6173 1; DCA BD /01736-3160 Y0 CIF CDF 0 /01737-6203 2C JMS I CKGDBD /01740-4437 $_ SKP /01741-7410 <H JMP 1746 /01742-5346 +& JMS I NXTFLD /01743-4435 $] JMP T35GO+2 /01744-5325 +U JMP .+4 /01745-5351 +) JMS I ERRCGB /01746-4446 $& 0113 /01747-0113 AK T35GO+2 /01750-1725 OU JMP I .+1 /01751-5752 /* T36GO /01752-2000 P@ JMP 1724 /01753-5324 +T CIF 10 /01754-6212 2J JMS I 1763 /01755-4763 '3 AND 0007 /01756-0007 @G AND 0000 /01757-0000 @@ OSR /01760-7404 <D 7400 /01761-7400 <@ SMA SZA SNL CLA HLT /01762-7762 ?2 SMA CLA /01763-7700 ?@ AND 0000 /01764-0000 @@ AND 0000 /01765-0000 @@ CLL RTR /01766-7112 9J RTR /01767-7012 8J RTR /01770-7012 8J AND 1777 /01771-0377 C? SNA /01772-7450 <( TAD 1777 /01773-1377 K? IAC /01774-7001 8A CLL RAR /01775-7110 9H JMP I 1765 /01776-5765 /5 /SPA SNA SZL CLA /01777-7770 ?8 PAGE 10 T36GO, JMS I SETINI /02000-4434 $\ TEST 36 RMF->RDF JMS I SETFLD /02001-4432 $Z CLA CLL /02002-7300 ;@ JMS I SETKT /02003-4444 $$ EMM EN5 EN9 MAINT /02004-7040 8 TAD CDBITS /02005-1112 IJ DCA GD /02006-3157 Y/ JMS I CIFION /02007-4427 $W JMS I MAKCDI /02010-4441 $! RMF /02011-6244 2$ RDF /02012-6214 2L DCA BD /02013-3160 Y0 JMP .+1 /02014-5215 *M NOP /02015-7000 8@ TAD MAINTR /02016-1111 II DCA TMP /02017-3076 X> CIF CDF 0 /02020-6203 2C JMS I CKGDBD /02021-4437 $_ SKP CLA /02022-7610 >H JMP T36ER1 /02023-5237 *_ TAD MRBITS /02024-1167 I7 DCA GD /02025-3157 Y/ TAD TMP /02026-1076 H> DCA BD /02027-3160 Y0 CIF CDF 0 /02030-6203 2C JMS I CKGDBD /02031-4437 $_ SKP CLA /02032-7610 >H JMP T36ER2 /02033-5243 *# JMS I NXTFLD /02034-4435 $] JMP T36GO+2 /02035-5202 *B JMP 2042 /02036-5242 *" T36ER1, JMS I ERRCGB /02037-4446 $& 1302 /02040-1302 KB T36GO+2 /02041-2002 PB JMP T37GO /02042-5246 *& T36ER2, JMS I ERRCGB /02043-4446 $& 1313 /02044-1313 KK T36GO+2 /02045-2002 PB T37GO, JMS I SETINI /02046-4434 $\ TEST 37 CDI->GTF JMS I SETFLD /02047-4432 $Z JMS I SETKT /02050-4444 $$ EMM EN5 EN9 MAINT /02051-7040 8 TAD CDBITS /02052-1112 IJ AND O70 /02053-0122 AR TAD FIELD7 /02054-1165 I5 DCA GD /02055-3157 Y/ JMS I CIFION /02056-4427 $W JMS I MAKCDI /02057-4441 $! GTF /02060-6004 0D AND O77 /02061-0123 AS DCA BD /02062-3160 Y0 CIF CDF 0 /02063-6203 2C JMS I CKGDBD /02064-4437 $_ SKP /02065-7410 <H JMP .+4 /02066-5272 *: JMS I NXTFLD /02067-4435 $] JMP T37GO+2 /02070-5250 *( JMP T40GO /02071-5275 *= JMS I ERRCGB /02072-4446 $& 0301 /02073-0301 CA T37GO+2 /02074-2050 P( T40GO, JMS I SETINI /02075-4434 $\ TEST 40 CDI->GTS JMS I SETFLD /02076-4432 $Z JMS I SETKT /02077-4444 $$ EMM EN5 EN9 MAINT /02100-7040 8 TAD CDBITS /02101-1112 IJ AND O70 /02102-0122 AR TAD FIELD7 /02103-1165 I5 DCA GD /02104-3157 Y/ TAD BANK3 /02105-1110 IH CLL RTL /02106-7106 9F TAD BANK3 /02107-1110 IH RAL /02110-7004 8D BSW /02111-7002 8B TAD GD /02112-1157 I/ DCA GD /02113-3157 Y/ JMS I CIFION /02114-4427 $W JMS I MAKCDI /02115-4441 $! GTS /02116-6210 2H DCA BD /02117-3160 Y0 CIF CDF 0 /02120-6203 2C JMS I CKGDBD /02121-4437 $_ SKP /02122-7410 <H JMP .+4 /02123-5327 +W JMS I NXTFLD /02124-4435 $] JMP T40GO+2 /02125-5277 *? JMP T41GO /02126-5332 +Z JMS I ERRCGB /02127-4446 $& 0305 /02130-0305 CE T40GO+2 /02131-2077 P? T41GO, JMS I SETTST /02132-4433 $[ TEST 41 RTF->RMR JMS I SETFLD /02133-4432 $Z JMS I SETKT /02134-4444 $$ EMM EN5 EN9 MAINT /02135-7040 8 TAD MRBITS /02136-1167 I7 DCA GD /02137-3157 Y/ IOF /02140-6002 0B TAD CDBITS /02141-1112 IJ AND O70 /02142-0122 AR TAD FIELD7 /02143-1165 I5 RTF /02144-6005 0E NOP /02145-7000 8@ SKON /02146-6000 0@ JMP T41ER2 /02147-5370 +8 ION /02150-6001 0A TAD I O7000 /02151-1533 M[ CLA CLL /02152-7300 ;@ RMR /02153-6173 1; DCA BD /02154-3160 Y0 CIF CDF 0 /02155-6203 2C JMS I CKGDBD /02156-4437 $_ SKP /02157-7410 <H JMP T41ER1 /02160-5364 +4 JMS I NXTFLD /02161-4435 $] JMP T41GO+2 /02162-5334 +\ JMP .+4 /02163-5367 +7 T41ER1, JMS I ERRCGB /02164-4446 $& 0513 /02165-0513 EK T41GO+2 /02166-2134 Q\ JMP .+4 /02167-5373 +; T41ER2, JMS I ERRCGB /02170-4446 $& RTFINT /02171-7013 8K T41GO+2 /02172-2134 Q\ JMP I .+1 /02173-5774 /< T42GO /02174-2200 R@ JMS 2027 /02175-4227 "W MQA MQL CLA SAM /02176-7777 ?? AND I 0061 /02177-0461 D1 PAGE 11 T42GO, JMS I SETINI /02200-4434 $\ TEST 42 RTS->RMR JMS I SETFLD /02201-4432 $Z JMS I SETKT /02202-4444 $$ EMM EN5 EN9 MAINT /02203-7040 8 TAD CDBITS /02204-1112 IJ AND O70 /02205-0122 AR TAD FIELD7 /02206-1165 I5 DCA COUNT /02207-3107 YG TAD BANK3 /02210-1110 IH CLL RTL /02211-7106 9F TAD BANK3 /02212-1110 IH RAL /02213-7004 8D BSW /02214-7002 8B TAD COUNT /02215-1107 IG RTS /02216-6220 2P SZA /02217-7440 < JMP T42ER2 /02220-5252 ** RDF /02221-6214 2L DCA TEMIND /02222-3100 Y@ JMP .+1 /02223-5224 *T NOP /02224-7000 8@ TAD MRBITS /02225-1167 I7 DCA GD /02226-3157 Y/ TAD MAINTR /02227-1111 II DCA BD /02230-3160 Y0 JMS I CKGDBD /02231-4437 $_ SKP CLA /02232-7610 >H JMP T42ER1 /02233-5246 *& TAD CDBITS /02234-1112 IJ DCA GD /02235-3157 Y/ TAD TEMIND /02236-1100 I@ DCA BD /02237-3160 Y0 JMS I CKGDBD /02240-4437 $_ SKP CLA /02241-7610 >H JMP 2246 /02242-5246 *& JMS I NXTFLD /02243-4435 $] JMP T42GO+2 /02244-5202 *B JMP T43GO /02245-5257 */ T42ER1, JMS I ERRCGB /02246-4446 $& 0613 /02247-0613 FK T42GO+2 /02250-2202 RB JMP T43GO /02251-5257 */ T42ER2, DCA BD /02252-3160 Y0 DCA GD /02253-3157 Y/ JMS I ERACGB /02254-4447 $' 0600 /02255-0600 F@ T42GO+2 /02256-2202 RB T43GO, JMS I SETTST /02257-4433 $[ TEST 43 LRR->RRR TAD OM40 /02260-1141 I! DCA COUNT /02261-3107 YG DCA SHFLD /02262-3170 Y8 JMS I SETKT /02263-4444 $$ EMM EN5 EN9 /02264-7000 8@ JMS I SHFL /02265-4440 $ SHFLD /02266-0170 A8 DCA GD /02267-3157 Y/ TAD GD /02270-1157 I/ LRR /02271-6240 2 SZA /02272-7440 < JMP T43ER2 /02273-5314 +L RRR /02274-6250 2( DCA BD /02275-3160 Y0 LRR /02276-6240 2 JMS I CKGDBD /02277-4437 $_ SKP /02300-7410 <H JMP T43ER1 /02301-5306 +F ISZ SHFLD /02302-2170 Q8 ISZ COUNT /02303-2107 QG JMP T43GO+4 /02304-5263 *3 JMP T44GO /02305-5317 +O T43ER1, JMS I ERRCGB /02306-4446 $& 0707 /02307-0707 GG T43GO+4 /02310-2263 R3 JMP T44GO /02311-5317 +O DCA BD /02312-3160 Y0 DCA GD /02313-3157 Y/ T43ER2, JMS I ERACGB /02314-4447 $' 0700 /02315-0700 G@ T43GO+4 /02316-2263 R3 T44GO, JMS I SETTST /02317-4433 $[ TEST 44 LUSR->RUSR JMS I SETKT /02320-4444 $$ EMM EN5 EN9 /02321-7000 8@ TAD OM40 /02322-1141 I! DCA COUNT /02323-3107 YG DCA SHFLD /02324-3170 Y8 T44LP, JMS I SHFL /02325-4440 $ SHFLD /02326-0170 A8 DCA GD /02327-3157 Y/ TAD GD /02330-1157 I/ LUSR /02331-6260 20 SZA /02332-7440 < JMP T44ER2 /02333-5351 +) RUSR /02334-6270 28 DCA BD /02335-3160 Y0 JMS I CKGDBD /02336-4437 $_ SKP /02337-7410 <H JMP T44ER1 /02340-5345 +% ISZ SHFLD /02341-2170 Q8 ISZ COUNT /02342-2107 QG JMP T44LP /02343-5325 +U JMP T45GO /02344-5356 +. T44ER1, JMS I ERRCGB /02345-4446 $& 1010 /02346-1010 HH T44LP /02347-2325 SU JMP T45GO /02350-5356 +. T44ER2, DCA BD /02351-3160 Y0 DCA GD /02352-3157 Y/ JMS I ERACGB /02353-4447 $' 1000 /02354-1000 H@ T44LP /02355-2325 SU T45GO, JMS I SETINI /02356-4434 $\ TEST 45 LUSR->CDF TRAP CLA CMA /02357-7240 : DCA WHATIS /02360-3073 X; CLA CLL /02361-7300 ;@ DCA TEMFLD /02362-3106 YF TAD OM40 /02363-1141 I! DCA COUNT /02364-3107 YG T45LP1, JMS I SETKT /02365-4444 $$ EMM EN5 EN9 /02366-7000 8@ CLA CLL /02367-7300 ;@ TAD TEMFLD /02370-1106 IF DCA THSFLD /02371-3153 Y+ JMS I SETFLD /02372-4432 $Z TAD CDBITS /02373-1112 IJ TAD CCDF /02374-1150 I( DCA GD /02375-3157 Y/ DCA THSFLD /02376-3153 Y+ DCA CDBITS /02377-3112 YJ PAGE 12 TAD TEMFLD /02400-1106 IF LUSR /02401-6260 20 NOP /02402-7000 8@ SUF /02403-6274 2< JMP .+1 /02404-5205 *E T45LP2, TAD CDBITS /02405-1112 IJ TAD CCDF /02406-1150 I( DCA .+1 /02407-3210 ZH T45CDF, 0000 /02410-0000 @@ CDF 0 /02411-6201 2A ISZ GOTUSR /02412-2072 P: SKP CLA /02413-7610 >H JMP .+3 /02414-5217 *O JMS I NXTFLD /02415-4435 $] JMP T45LP2 /02416-5205 *E TAD T45CDF /02417-1210 JH DCA BD /02420-3160 Y0 JMS I CKGDBD /02421-4437 $_ SKP /02422-7410 <H JMP T45ER /02423-5230 *X ISZ TEMFLD /02424-2106 QF ISZ COUNT /02425-2107 QG JMP I (T45LP1 /02426-5777 /? JMP T46GO /02427-5233 *[ T45ER, JMS I ERRTGB /02430-4445 $% USLTRP /02431-6320 3P T45LP1 /02432-2365 S5 T46GO, JMS I SETINI /02433-4434 $\ TEST 46 LUSR->CIF TRAP CLA CLL /02434-7300 ;@ DCA TEMFLD /02435-3106 YF TAD OM40 /02436-1141 I! DCA COUNT /02437-3107 YG JMS I SETKT /02440-4444 $$ EMM EN5 EN9 DIOI /02441-7200 :@ CLA CLL /02442-7300 ;@ TAD TEMFLD /02443-1106 IF DCA THSFLD /02444-3153 Y+ JMS I SETFLD /02445-4432 $Z TAD CDBITS /02446-1112 IJ TAD CCIF /02447-1151 I) DCA GD /02450-3157 Y/ DCA THSFLD /02451-3153 Y+ DCA CDBITS /02452-3112 YJ TAD TEMFLD /02453-1106 IF LUSR /02454-6260 20 SUF /02455-6274 2< JMP .+1 /02456-5257 */ T46LP, TAD CDBITS /02457-1112 IJ TAD CCIF /02460-1151 I) DCA .+1 /02461-3262 Z2 T46CIF, 0000 /02462-0000 @@ CIF CDF 0 /02463-6203 2C ISZ GOTUSR /02464-2072 P: SKP CLA /02465-7610 >H JMP .+3 /02466-5271 *9 JMS I NXTFLD /02467-4435 $] JMP T46LP /02470-5257 */ TAD T46CIF /02471-1262 J2 DCA BD /02472-3160 Y0 JMS I CKGDBD /02473-4437 $_ SKP /02474-7410 <H JMP T46ER /02475-5302 +B ISZ TEMFLD /02476-2106 QF ISZ COUNT /02477-2107 QG JMP T46GO+5 /02500-5240 * JMP T47GO /02501-5305 +E T46ER, JMS I ERRTGB /02502-4445 $% USLTRP /02503-6320 3P T46GO+5 /02504-2440 T T47GO, JMS I SETTST /02505-4433 $[ TEST 47 LRR->RMR TAD OM40 /02506-1141 I! DCA COUNT /02507-3107 YG DCA SHFLD /02510-3170 Y8 JMS I SETKT /02511-4444 $$ EMM EN5 EN9 DIOI /02512-7200 :@ TAD O40 /02513-1121 IQ LUSR /02514-6260 20 T47LP, JMS I SHFL /02515-4440 $ SHFLD /02516-0170 A8 DCA TEMP /02517-3077 X? TAD TEMP /02520-1077 H? CLL RTR /02521-7112 9J RAR /02522-7010 8H AND O3 /02523-0115 AM TAD (MRLIST /02524-1376 K> DCA TEMIND /02525-3100 Y@ TAD I TEMIND /02526-1500 M@ DCA TEMIND /02527-3100 Y@ TAD TEMP /02530-1077 H? AND O7 /02531-0116 AN TAD TEMIND /02532-1100 I@ DCA GD /02533-3157 Y/ TAD TEMP /02534-1077 H? LRR /02535-6240 2 SUF /02536-6274 2< JMP .+1 /02537-5340 + CDF 0 /02540-6201 2A TAD I O7000 /02541-1533 M[ CLA CLL /02542-7300 ;@ RMR /02543-6173 1; DCA BD /02544-3160 Y0 CDF 0 /02545-6201 2A CUF /02546-6264 24 JMS I CKGDBD /02547-4437 $_ SKP /02550-7410 <H JMP T47ER /02551-5360 +0 CLA CLL /02552-7300 ;@ LRR /02553-6240 2 ISZ SHFLD /02554-2170 Q8 ISZ COUNT /02555-2107 QG JMP T47LP /02556-5315 +M JMP .+4 /02557-5363 +3 T47ER, JMS I ERRTGB /02560-4445 $% RELERR /02561-6266 26 T47LP /02562-2515 UM JMP I .+1 /02563-5764 /4 T50GO /02564-2600 V@ JMS 0010 /02565-4010 H SPA SNA SZL CLA HLT /02566-7772 ?: AND 0000 /02567-0000 @@ MQL CLA DPSZ /02570-7671 >9 ISZ 2414 /02571-2214 RL 6061 /02572-6061 01 AND 0000 /02573-0000 @@ ISZ I 0030 /02574-2430 TX JMS 0170 /02575-4170 !8 /6064 /02576-6064 04 /ISZ 2565 /02577-2365 S5 PAGE 13 T50GO, JMS I SETTST /02600-4433 $[ TEST 50 LRR->RMR INT TAD OM40 /02601-1141 I! DCA COUNT /02602-3107 YG DCA SHFLD /02603-3170 Y8 JMS I SETKT /02604-4444 $$ EMM EN5 EN9 DIOI MAINT /02605-7240 : TAD O40 /02606-1121 IQ LUSR /02607-6260 20 T50LP, JMS I SHFL /02610-4440 $ SHFLD /02611-0170 A8 DCA TEMFLD /02612-3106 YF TAD TEMFLD /02613-1106 IF CLL RTR /02614-7112 9J RAR /02615-7010 8H AND O3 /02616-0115 AM TAD (MRLIST /02617-1377 K? DCA TEMIND /02620-3100 Y@ TAD I TEMIND /02621-1500 M@ DCA TEMIND /02622-3100 Y@ TAD TEMFLD /02623-1106 IF AND O7 /02624-0116 AN TAD TEMIND /02625-1100 I@ DCA GD /02626-3157 Y/ IOF /02627-6002 0B TAD TEMFLD /02630-1106 IF LRR /02631-6240 2 SUF /02632-6274 2< JMP .+1 /02633-5234 *\ CINT /02634-6204 2D CIF 0 /02635-6202 2B ION /02636-6001 0A JMP .+1 /02637-5240 * NOP /02640-7000 8@ TAD MAINTR /02641-1111 II DCA BD /02642-3160 Y0 CUF /02643-6264 24 CDF 0 /02644-6201 2A JMS I CKGDBD /02645-4437 $_ SKP /02646-7410 <H JMP 2656 /02647-5256 *. CLA CLL /02650-7300 ;@ LRR /02651-6240 2 ISZ SHFLD /02652-2170 Q8 ISZ COUNT /02653-2107 QG JMP T50LP /02654-5210 *H JMP T51GO /02655-5261 *1 JMS I ERRTGB /02656-4445 $% RELERR /02657-6266 26 T50LP /02660-2610 VH T51GO, JMS I SETINI /02661-4434 $\ TEST 51 LRR->RDF DCA GOTUSR /02662-3072 X: CLA CLL CML RAR /02663-7330 ;X DCA WHATIS /02664-3073 X; JMS I SETFLD /02665-4432 $Z T51LP, JMS I SETKT /02666-4444 $$ EMM EN5 EN9 ERVF /02667-7400 <@ TAD O40 /02670-1121 IQ LUSR /02671-6260 20 TAD THSFLD /02672-1153 I+ CMA IAC /02673-7041 8! AND O37 /02674-0120 AP LRR /02675-6240 2 SUF /02676-6274 2< JMP .+1 /02677-5300 +@ TAD CDBITS /02700-1112 IJ DCA GD /02701-3157 Y/ JMS I MAKCDF /02702-4442 $" HLT /02703-7402 <B RDF /02704-6214 2L DCA BD /02705-3160 Y0 JMS I TSTUSR /02706-4425 $U T51LP /02707-2666 V6 JMP T52GO /02710-5322 +R JMS I CKGDBD /02711-4437 $_ SKP CLA /02712-7610 >H JMP .+4 /02713-5317 +O JMS I NXTFLD /02714-4435 $] JMP T51LP /02715-5266 *6 JMP T52GO /02716-5322 +R JMS I ERRCGB /02717-4446 $& 0102 /02720-0102 AB T51LP /02721-2666 V6 T52GO, JMS I SETINI /02722-4434 $\ TEST 52 LRR->CDF,RIF ISZ WHATIS /02723-2073 P; JMS I SETFLD /02724-4432 $Z JMS I SETKT /02725-4444 $$ EMM EN5 EN9 ERVF /02726-7400 <@ TAD O40 /02727-1121 IQ LUSR /02730-6260 20 TAD THSFLD /02731-1153 I+ CMA IAC /02732-7041 8! AND O37 /02733-0120 AP LRR /02734-6240 2 SUF /02735-6274 2< JMP .+1 /02736-5337 +_ TAD CDBITS /02737-1112 IJ DCA GD /02740-3157 Y/ JMS I MAKCIF /02741-4443 $# HLT /02742-7402 <B JMP .+1 /02743-5344 +$ NOP /02744-7000 8@ RIF /02745-6224 2T DCA BD /02746-3160 Y0 JMS I TSTUSR /02747-4425 $U T52GO+3 /02750-2725 WU JMP T52EX /02751-5363 +3 JMS I CKGDBD /02752-4437 $_ SKP CLA /02753-7610 >H JMP .+4 /02754-5360 +0 JMS I NXTFLD /02755-4435 $] JMP T52GO+3 /02756-5325 +U JMP T52EX /02757-5363 +3 JMS I ERRCGB /02760-4446 $& 0203 /02761-0203 BC T52GO+3 /02762-2725 WU T52EX, JMP I .+1 /02763-5764 /4 T53GO /02764-3001 XA 6023 /02765-6023 0S 6063 /02766-6063 03 6023 /02767-6023 0S 6063 /02770-6063 03 6023 /02771-6023 0S 6063 /02772-6063 03 6023 /02773-6023 0S 6063 /02774-6063 03 6023 /02775-6023 0S 6063 /02776-6063 03 /6064 /02777-6064 04 PAGE 14 T53M14, -14 /03000-7764 ?4 T53GO, JMS I SETTST /03001-4433 $[ TEST 53 LBM->RBM JMS I SETLUP /03002-4465 $5 -1 /03003-7777 ?? CLA CMA /03004-7240 : DCA I (LPCNT /03005-3777 _? DCA BANK3 /03006-3110 YH DCA 0015 /03007-3015 XM T53LPX, DCA BRKMSK /03010-3162 Y2 TAD OM15 /03011-1137 I_ DCA COUNT /03012-3107 YG T53LP0, JMS I SETKT /03013-4444 $$ EMM EBM /03014-4100 !@ TAD BANK3 /03015-1110 IH AND O3 /03016-0115 AM DCA BRKBNK /03017-3164 Y4 T53LP, JMS I SHFL /03020-4440 $ AND BRKMSK /03021-0162 A2 DCA BRKADR /03022-3163 Y3 TAD BRKADR /03023-1163 I3 TAD T53M14 /03024-1200 J@ SPA CLA /03025-7710 ?H JMP .+3 /03026-5231 *Y ISZ BRKMSK /03027-2162 Q2 JMP T53LP /03030-5220 *P TAD BRKADR /03031-1163 I3 TAD BRKLST /03032-1155 I- DCA TEMIND /03033-3100 Y@ TAD BRKBNK /03034-1164 I4 DCA I TEMIND /03035-3500 ]@ TAD BRKADR /03036-1163 I3 CLL RTL /03037-7106 9F TAD BRKBNK /03040-1164 I4 LBM /03041-6170 18 SZA /03042-7440 < JMP T53ER2 /03043-5334 +\ TAD BRKADR /03044-1163 I3 CLL RTL /03045-7106 9F TAD BRKBNK /03046-1164 I4 DCA GD /03047-3157 Y/ TAD BRKADR /03050-1163 I3 CLL RTL /03051-7106 9F RBM /03052-6171 19 DCA BD /03053-3160 Y0 JMS I CKGDBD /03054-4437 $_ SKP /03055-7410 <H JMP T53ER1 /03056-5330 +X ISZ BANK3 /03057-2110 QH ISZ BRKMSK /03060-2162 Q2 ISZ COUNT /03061-2107 QG JMP T53LP0 /03062-5213 *K JMS I (LPX8 /03063-4776 '> DCA BRKADR /03064-3163 Y3 TAD BRKLST /03065-1155 I- DCA TEMIND /03066-3100 Y@ TAD T53M14 /03067-1200 J@ DCA COUNT /03070-3107 YG T53LP1, JMS I SETKT /03071-4444 $$ EMM EBM /03072-4100 !@ TAD I TEMIND /03073-1500 M@ DCA BRKBNK /03074-3164 Y4 TAD BRKADR /03075-1163 I3 CLL RTL /03076-7106 9F TAD BRKBNK /03077-1164 I4 DCA GD /03100-3157 Y/ TAD BRKADR /03101-1163 I3 CLL RTL /03102-7106 9F RBM /03103-6171 19 DCA BD /03104-3160 Y0 JMS I CKGDBD /03105-4437 $_ SKP CLA /03106-7610 >H JMP T53ER0 /03107-5324 +T ISZ BRKADR /03110-2163 Q3 ISZ TEMIND /03111-2100 Q@ ISZ COUNT /03112-2107 QG JMP T53LP1 /03113-5271 *9 CLA CLL CMA RTL /03114-7346 ;& TAD 0015 /03115-1015 HM SNA CLA /03116-7650 >( JMP I (T54GO /03117-5775 /= ISZ 0015 /03120-2015 PM TAD 0015 /03121-1015 HM DCA BANK3 /03122-3110 YH JMP T53LPX /03123-5210 *H T53ER0, JMS I ECDBGB /03124-4451 $) 1111 /03125-1111 II T53LP1 /03126-3071 X9 JMP I (T54GO /03127-5775 /= T53ER1, JMS I ECDBGB /03130-4451 $) 1111 /03131-1111 II T53LP0 /03132-3013 XK JMP I (T54GO /03133-5775 /= T53ER2, DCA BD /03134-3160 Y0 DCA GD /03135-3157 Y/ JMS I ERACGB /03136-4447 $' 1100 /03137-1100 I@ T53LP0 /03140-3013 XK JMP I (T54GO /03141-5775 /= MBCRMR, 0000 /03142-0000 @@ TAD TEMIND /03143-1100 I@ MBC /03144-6174 1< CLA /03145-7200 :@ RMR /03146-6173 1; DCA BD /03147-3160 Y0 JMS I CKGDBD /03150-4437 $_ ISZ MBCRMR /03151-2342 S" JMP I MBCRMR /03152-5742 /" 6412 /03153-6412 4J AND 0070 /03154-0070 @8 JMP 0041 /03155-5041 (! TAD 0056 /03156-1056 H. AND 0076 /03157-0076 @> AND I 0043 /03160-0443 D# TAD I 0001 /03161-1401 LA TAD 0011 /03162-1011 HI SNA HLT /03163-7452 <* TAD I 0012 /03164-1412 LJ 7036 /03165-7036 8^ AND 0040 /03166-0040 @ JMP 0043 /03167-5043 (# TAD 0042 /03170-1042 H" SNL HLT /03171-7422 <R AND 0075 /03172-0075 @= AND 0000 /03173-0000 @@ AND 0032 /03174-0032 @Z /DCA 3000 /03175-3200 Z@ /AND 3153 /03176-0353 C+ /AND 3152 /03177-0352 C* PAGE 15 T54GO, JMS I SETTST /03200-4433 $[ TEST 54 LBM->MBC,RLB JMS I SETLUP /03201-4465 $5 -101 /03202-7677 >? CUF /03203-6264 24 JMS I SETKT /03204-4444 $$ EMM EBM /03205-4100 !@ CLA CLL /03206-7300 ;@ TAD OM15 /03207-1137 I_ DCA COUNT /03210-3107 YG DCA BRKMSK /03211-3162 Y2 TAD BRKMSK /03212-1162 I2 CLL RTL /03213-7106 9F LBM /03214-6170 18 ISZ BRKMSK /03215-2162 Q2 ISZ COUNT /03216-2107 QG JMP .-5 /03217-5212 *J DCA BRKMSK /03220-3162 Y2 TAD OM15 /03221-1137 I_ DCA COUNT /03222-3107 YG T54LP, TAD BRKMSK /03223-1162 I2 DCA BRKADR /03224-3163 Y3 DCA BRKBNK /03225-3164 Y4 TAD BRKMSK /03226-1162 I2 CLL RTL /03227-7106 9F DCA GD /03230-3157 Y/ TAD BRKMSK /03231-1162 I2 CMA /03232-7040 8 DCA TEMFLD /03233-3106 YF CLL CML /03234-7120 9P RAR /03235-7010 8H ISZ TEMFLD /03236-2106 QF JMP .-2 /03237-5235 *] MBC /03240-6174 1< CLA CLL /03241-7300 ;@ RLB /03242-6172 1: DCA BD /03243-3160 Y0 JMS I CKGDBD /03244-4437 $_ SKP /03245-7410 <H JMP T54ER /03246-5256 *. ISZ BRKMSK /03247-2162 Q2 ISZ COUNT /03250-2107 QG JMP T54LP /03251-5223 *S DCA BRKMSK /03252-3162 Y2 TAD OM15 /03253-1137 I_ DCA COUNT /03254-3107 YG JMP T55GO /03255-5261 *1 T54ER, JMS I ECDBGB /03256-4451 $) 1212 /03257-1212 JJ T54LP /03260-3223 ZS T55GO, JMS I SETTST /03261-4433 $[ TEST 55 LBM->MBC,RLB JMS I SETLUP /03262-4465 $5 -15 /03263-7763 ?3 CLA CLL /03264-7300 ;@ JMS I SETKT /03265-4444 $$ EMM EBM /03266-4100 !@ TAD OM15 /03267-1137 I_ DCA COUNT /03270-3107 YG DCA BRKADR /03271-3163 Y3 TAD BRKADR /03272-1163 I3 CLL RTL /03273-7106 9F LBM /03274-6170 18 CLA /03275-7200 :@ ISZ BRKADR /03276-2163 Q3 ISZ COUNT /03277-2107 QG JMP .-6 /03300-5272 *: CLA CLL IAC /03301-7301 ;A DCA COUNT /03302-3107 YG T55LP, DCA BRKADR /03303-3163 Y3 DCA BRKBNK /03304-3164 Y4 TAD COUNT /03305-1107 IG CLL RAL /03306-7104 9D SZL /03307-7430 <X JMP .+3 /03310-5313 +K ISZ BRKADR /03311-2163 Q3 JMP .-4 /03312-5306 +F CLA CLL /03313-7300 ;@ TAD BRKADR /03314-1163 I3 CLL RTL /03315-7106 9F DCA GD /03316-3157 Y/ TAD COUNT /03317-1107 IG MBC /03320-6174 1< CLA /03321-7200 :@ RLB /03322-6172 1: DCA BD /03323-3160 Y0 JMS I CKGDBD /03324-4437 $_ SKP CLA /03325-7610 >H JMP .+4 /03326-5332 +Z ISZ COUNT /03327-2107 QG JMP T55LP /03330-5303 +C JMP .+4 /03331-5335 +] JMS I ECDBGB /03332-4451 $) 1212 /03333-1212 JJ T55LP /03334-3303 [C JMP I .+1 /03335-5736 /^ T56GO /03336-3400 \@ DBST1, AND 0000 /03337-0000 @@ TAD SWISOF /03340-1021 HQ AND (100 /03341-0377 C? SNA CLA /03342-7650 >( JMP I DBST1 /03343-5737 /_ CAF /03344-6007 0G DBST /03345-6570 58 DBCF /03346-6573 5; JMP .-3 /03347-5344 +$ DBST /03350-6570 58 DBSK /03351-6571 59 JMP I (STRSOF /03352-5776 /> CAF /03353-6007 0G JMP I (STRSOF /03354-5776 /> DBST2, AND 0000 /03355-0000 @@ TAD SWISOF /03356-1021 HQ AND (100 /03357-0377 C? SZA CLA /03360-7640 > DBSK /03361-6571 59 ISZ DBST2 /03362-2355 S- JMP I DBST2 /03363-5755 /- TAD 0066 /03364-1066 H6 DCA I 3212 /03365-3612 ^J DCA I 0024 /03366-3424 \T ISZ 0044 /03367-2044 P$ DCA I 0156 /03370-3556 ]. ISZ I 0000 /03371-2400 T@ DCA I 0155 /03372-3555 ]- DCA I 0130 /03373-3530 ]X DCA I 0157 /03374-3557 ]/ JMP 0107 /03375-5107 )G /AND 3225 /03376-0225 BU /AND 0100 /03377-0100 A@ PAGE 16 T56GO, JMS I SETTST /03400-4433 $[ TEST 56 LBM->RBM JMS I SETLUP /03401-4465 $5 -101 /03402-7677 >? JMS I SETKT /03403-4444 $$ EMM /03404-4000 @ TAD OM15 /03405-1137 I_ DCA COUNT /03406-3107 YG TAD BRKLST /03407-1155 I- DCA TEMIND /03410-3100 Y@ JMS I RANDOM /03411-4456 $. AND O3 /03412-0115 AM DCA I TEMIND /03413-3500 ]@ ISZ TEMIND /03414-2100 Q@ ISZ COUNT /03415-2107 QG JMP .-5 /03416-5211 *I DCA BRKADR /03417-3163 Y3 TAD OM15 /03420-1137 I_ DCA COUNT /03421-3107 YG TAD BRKLST /03422-1155 I- DCA TEMIND /03423-3100 Y@ TAD BRKADR /03424-1163 I3 CLL RTL /03425-7106 9F TAD I TEMIND /03426-1500 M@ LBM /03427-6170 18 ISZ BRKADR /03430-2163 Q3 ISZ TEMIND /03431-2100 Q@ ISZ COUNT /03432-2107 QG JMP .-7 /03433-5224 *T DCA BRKADR /03434-3163 Y3 TAD OM15 /03435-1137 I_ DCA COUNT /03436-3107 YG T56LP1, TAD BRKADR /03437-1163 I3 TAD BRKLST /03440-1155 I- DCA TEMFLD /03441-3106 YF TAD I TEMFLD /03442-1506 MF DCA BRKBNK /03443-3164 Y4 TAD BRKADR /03444-1163 I3 CLL RTL /03445-7106 9F TAD BRKBNK /03446-1164 I4 DCA GD /03447-3157 Y/ TAD BRKADR /03450-1163 I3 CLL RTL /03451-7106 9F RBM /03452-6171 19 DCA BD /03453-3160 Y0 JMS I CKGDBD /03454-4437 $_ SKP /03455-7410 <H JMP T56ER1 /03456-5350 +( ISZ BRKADR /03457-2163 Q3 ISZ COUNT /03460-2107 QG JMP T56LP1 /03461-5237 *_ TAD OM15 /03462-1137 I_ DCA COUNT /03463-3107 YG T56LP2, JMS I RANDOM /03464-4456 $. AND O17 /03465-0117 AO DCA BRKADR /03466-3163 Y3 TAD BRKADR /03467-1163 I3 TAD OM15 /03470-1137 I_ SMA CLA /03471-7700 ?@ JMP T56LP2 /03472-5264 *4 TAD BRKADR /03473-1163 I3 TAD BRKLST /03474-1155 I- DCA TEMFLD /03475-3106 YF TAD I TEMFLD /03476-1506 MF SPA CLA /03477-7710 ?H JMP T56LP2 /03500-5264 *4 TAD BRKADR /03501-1163 I3 CMA /03502-7040 8 DCA TEMIND /03503-3100 Y@ CLL CML /03504-7120 9P RAR /03505-7010 8H ISZ TEMIND /03506-2100 Q@ JMP .-2 /03507-5305 +E DCA TEMIND /03510-3100 Y@ T56LP0, JMS I SETKT /03511-4444 $$ EMM EN5 EN9 /03512-7000 8@ TAD (2100 /03513-1377 K? DCA GD /03514-3157 Y/ JMS I (MBCRMR /03515-4776 '> JMP T56ER4 /03516-5364 +4 T56LP3, JMS I SETKT /03517-4444 $$ EMM EN5 EN9 EBM /03520-7100 9@ TAD I TEMFLD /03521-1506 MF DCA BRKBNK /03522-3164 Y4 TAD BRKBNK /03523-1164 I4 TAD (MRLIST /03524-1375 K= DCA BRKMSK /03525-3162 Y2 TAD I BRKMSK /03526-1562 M2 DCA GD /03527-3157 Y/ JMS I (MBCRMR /03530-4776 '> JMP T56ER2 /03531-5354 +, TAD BRKADR /03532-1163 I3 CLL RTL /03533-7106 9F DCA GD /03534-3157 Y/ RLB /03535-6172 1: DCA BD /03536-3160 Y0 JMS I CKGDBD /03537-4437 $_ SKP /03540-7410 <H JMP T56ER3 /03541-5360 +0 CLA CLL CML RAR /03542-7330 ;X TAD I TEMFLD /03543-1506 MF DCA I TEMFLD /03544-3506 ]F ISZ COUNT /03545-2107 QG JMP T56LP2 /03546-5264 *4 JMP I (T57GO /03547-5774 /< T56ER1, JMS I ECDBGB /03550-4451 $) 1111 /03551-1111 II T56LP1 /03552-3437 \_ JMP I (T57GO /03553-5774 /< T56ER2, JMS I ECDBGB /03554-4451 $) 1213 /03555-1213 JK T56LP3 /03556-3517 ]O JMP I (T57GO /03557-5774 /< T56ER3, JMS I ECDBGB /03560-4451 $) 1212 /03561-1212 JJ T56LP3 /03562-3517 ]O JMP I (T57GO /03563-5774 /< T56ER4, JMS I ECDBGB /03564-4451 $) 1213 /03565-1213 JK T56LP0 /03566-3511 ]I JMP 3576 /03567-5376 +> ?? DCA I 3412 /03570-3612 ^J DCA 0047 /03571-3047 X' SKON /03572-6000 0@ NOP /03573-7000 8@ /DCA I 3400 /03574-3600 ^@ /6064 /03575-6064 04 /DCA 0142 /03576-3142 Y" /ISZ 0100 /03577-2100 Q@ PAGE 17 T57GO, JMS I SETTST /03600-4433 $[ TEST 57 RACA JMS I SETLUP /03601-4465 $5 -1 /03602-7777 ?? CLA CLL /03603-7300 ;@ DCA FIELD7 /03604-3165 Y5 T57LP, JMS I SETKT /03605-4444 $$ EMM /03606-4000 @ TAD FIELD7 /03607-1165 I5 AND O104 /03610-0147 A' DCA TEMIND /03611-3100 Y@ TAD TEMIND /03612-1100 I@ CLL RTR /03613-7112 9J DCA GD /03614-3157 Y/ TAD TEMIND /03615-1100 I@ BSW /03616-7002 8B CLL RAL /03617-7104 9D TAD GD /03620-1157 I/ AND O3 /03621-0115 AM CLL RAL /03622-7104 9D BSW /03623-7002 8B DCA GD /03624-3157 Y/ TAD FIELD7 /03625-1165 I5 AND O70 /03626-0122 AR CLL RTR /03627-7112 9J RAR /03630-7010 8H TAD GD /03631-1157 I/ DCA GD /03632-3157 Y/ TAD FIELD7 /03633-1165 I5 RACA /03634-6175 1= DCA BD /03635-3160 Y0 JMS I CKGDBD /03636-4437 $_ SKP /03637-7410 <H JMP T57ER /03640-5244 *$ ISZ FIELD7 /03641-2165 Q5 JMP T57LP /03642-5205 *E JMP T60GO /03643-5247 *' T57ER, JMS I ERACGB /03644-4447 $' 1400 /03645-1400 L@ T57LP /03646-3605 ^E T60GO, JMS I SETTST /03647-4433 $[ TEST 60 RACB CLA CLL /03650-7300 ;@ DCA FIELD7 /03651-3165 Y5 T60LP, JMS I SETKT /03652-4444 $$ EMM /03653-4000 @ TAD FIELD7 /03654-1165 I5 AND (600 /03655-0377 C? CLL RTL /03656-7106 9F DCA GD /03657-3157 Y/ TAD FIELD7 /03660-1165 I5 AND O7 /03661-0116 AN CLL RTL /03662-7106 9F RAL /03663-7004 8D TAD GD /03664-1157 I/ DCA GD /03665-3157 Y/ TAD FIELD7 /03666-1165 I5 RACB /03667-6176 1> DCA BD /03670-3160 Y0 JMS I CKGDBD /03671-4437 $_ SKP /03672-7410 <H JMP T60ER /03673-5277 *? ISZ FIELD7 /03674-2165 Q5 JMP T60LP /03675-5252 ** JMP T61GO /03676-5302 +B T60ER, JMS I ERACGB /03677-4447 $' 1500 /03700-1500 M@ T60LP /03701-3652 ^* T61GO, JMS I SETTST /03702-4433 $[ TEST 61 RACC CLA CLL /03703-7300 ;@ DCA FIELD7 /03704-3165 Y5 T61LP, JMS I SETKT /03705-4444 $$ EMM /03706-4000 @ TAD FIELD7 /03707-1165 I5 CLL RTR /03710-7112 9J RAR /03711-7010 8H BSW /03712-7002 8B AND O3 /03713-0115 AM TAD (LSTBNK /03714-1376 K> DCA GD /03715-3157 Y/ TAD FIELD7 /03716-1165 I5 AND O70 /03717-0122 AR TAD I GD /03720-1557 M/ DCA GD /03721-3157 Y/ TAD FIELD7 /03722-1165 I5 RACC /03723-6177 1? DCA BD /03724-3160 Y0 JMS I CKGDBD /03725-4437 $_ SKP /03726-7410 <H JMP T61ER /03727-5333 +[ ISZ FIELD7 /03730-2165 Q5 JMP T61LP /03731-5305 +E JMP T61EX /03732-5336 +^ T61ER, JMS I ERACGB /03733-4447 $' 1600 /03734-1600 N@ T61LP /03735-3705 _E T61EX, JMP I .+1 /03736-5737 /_ T62GO /03737-4000 @ TGBERR, AND 0000 /03740-0000 @@ JMS I (ERRARG /03741-4775 '= TGBERR /03742-3740 _ JMP .+4 /03743-5347 +' JMS I (COMERR /03744-4774 '< NOP /03745-7000 8@ JMS I (ERRPGB /03746-4773 '; JMS I (ERRSWI /03747-4772 ': JMP I TGBERR /03750-5740 / JMP 3754 /03751-5354 +, JMS I 0150 /03752-4550 %( DCA 0160 /03753-3160 Y0 JMS I 0150 /03754-4550 %( DCA 0170 /03755-3170 Y8 JMS I 0161 /03756-4561 %1 JMP I 3725 /03757-5725 /U AND 0000 /03760-0000 @@ DCA I 0000 /03761-3400 \@ TAD I 0067 /03762-1467 L7 AND 0061 /03763-0061 @1 AND 0055 /03764-0055 @- AND 0016 /03765-0016 @N SPA SZL OSR HLT /03766-7536 =^ IAC RTL /03767-7007 8G AND 0006 /03770-0006 @F 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@ PAGE 20 T62GO, JMS I SETTST /04000-4433 $[ TEST 62 OSR->GTF JMS I SETLUP /04001-4465 $5 -101 /04002-7677 >? T62LP, SUF /04003-6274 2< JMP .+1 /04004-5205 *E OSR /04005-7404 <D ISZ GOTUSR /04006-2072 P: JMP .+2 /04007-5211 *I JMP .+4 /04010-5214 *L JMS I ERSNGL /04011-4452 $* 0014 /04012-0014 @L T62LP /04013-4003 C GTF /04014-6004 0D AND O100 /04015-0146 A& DCA BD /04016-3160 Y0 TAD O100 /04017-1146 I& DCA GD /04020-3157 Y/ JMS I CKGDBD /04021-4437 $_ JMP T63GO /04022-5226 *V JMS I ERRCGB /04023-4446 $& 2001 /04024-2001 PA T62LP /04025-4003 C T63GO, JMS I SETTST /04026-4433 $[ TEST 63 CLA OSR->GTS JMS I SETKT /04027-4444 $$ EMM /04030-4000 @ SUF /04031-6274 2< JMP .+1 /04032-5233 *[ CLA OSR /04033-7604 >D ISZ GOTUSR /04034-2072 P: JMP .+2 /04035-5237 *_ JMP .+4 /04036-5242 *" JMS I ERSNGL /04037-4452 $* 0015 /04040-0015 @M T63GO+1 /04041-4027 W GTS /04042-6210 2H AND O100 /04043-0146 A& DCA BD /04044-3160 Y0 TAD O100 /04045-1146 I& DCA GD /04046-3157 Y/ JMS I CKGDBD /04047-4437 $_ JMP T64GO /04050-5254 *, JMS I ERRCGB /04051-4446 $& 2005 /04052-2005 PE T63GO+1 /04053-4027 W T64GO, JMS I SETTST /04054-4433 $[ TEST 64 TFL->RIB SUF /04055-6274 2< JMP .+1 /04056-5257 */ TFL /04057-6040 0 ISZ GOTUSR /04060-2072 P: JMP .+2 /04061-5263 *3 JMP .+4 /04062-5266 *6 JMS I ERSNGL /04063-4452 $* 0016 /04064-0016 @N T64GO+1 /04065-4055 - RIB /04066-6234 2\ AND O100 /04067-0146 A& DCA BD /04070-3160 Y0 TAD O100 /04071-1146 I& DCA GD /04072-3157 Y/ JMS I CKGDBD /04073-4437 $_ JMP T65GO /04074-5300 +@ JMS I ERRCGB /04075-4446 $& 2004 /04076-2004 PD T64GO+1 /04077-4055 - T65GO, JMS I SETTST /04100-4433 $[ TEST 65 HLT SUF /04101-6274 2< JMP .+1 /04102-5303 +C HLT /04103-7402 <B ISZ GOTUSR /04104-2072 P: JMP .+2 /04105-5307 +G JMP .+4 /04106-5312 +J JMS I ERSNGL /04107-4452 $* 0017 /04110-0017 @O T65GO+1 /04111-4101 !A T66GO, JMS I SETTST /04112-4433 $[ TEST 66 TCF DIOI CUF /04113-6264 24 JMS I SETKT /04114-4444 $$ EMM DIOI /04115-4200 "@ DCA GOTUSR /04116-3072 X: SUF /04117-6274 2< JMP .+1 /04120-5321 +Q TCF /04121-6042 0" ISZ GOTUSR /04122-2072 P: SKP /04123-7410 <H JMP .+3 /04124-5327 +W CUF /04125-6264 24 JMP T67GO /04126-5332 +Z JMS I ERRCGB /04127-4446 $& DINOTR /04130-6746 7& T66GO+1 /04131-4113 !K T67GO, JMS I SETTST /04132-4433 $[ TEST 67 END JMS I (CHKMEM /04133-4777 '? CLA CLL IAC /04134-7301 ;A MQL /04135-7421 <Q JMS I PRTMSG /04136-4454 $, AJKTBM /04137-6511 5I JMS I PRTMSG /04140-4454 $, PASSN /04141-6505 5E ISZ PASNUM /04142-2161 Q1 NOP /04143-7000 8@ TAD PASNUM /04144-1161 I1 JMS I PRTNUM /04145-4464 $4 JMS I SETLUP /04146-4465 $5 -101 /04147-7677 >? JMS I GETSWI /04150-4430 $X AND O400 /04151-0127 AW SNA CLA /04152-7650 >( JMP I (START5 /04153-5776 /> JMS I CHKX8 /04154-4455 $- JMS I HALTAT /04155-4431 $Y JMP I (START5 /04156-5776 /> AND 0000 /04157-0000 @@ AND 0000 /04160-0000 @@ AND 0000 /04161-0000 @@ AND 0000 /04162-0000 @@ AND 0000 /04163-0000 @@ AND 0000 /04164-0000 @@ AND 0000 /04165-0000 @@ AND 0000 /04166-0000 @@ AND 0000 /04167-0000 @@ AND 0000 /04170-0000 @@ AND 0000 /04171-0000 @@ AND 0000 /04172-0000 @@ AND 0000 /04173-0000 @@ AND 0000 /04174-0000 @@ AND 0000 /04175-0000 @@ /AND 4073 /04176-0273 B; /JMP I 4103 /04177-5703 /C PAGE 21 LODCHK, AND 0000 /04200-0000 @@ CLA CLL CMA /04201-7340 ; TAD THSFLD /04202-1153 I+ SNA CLA /04203-7650 >( TAD O200 /04204-1124 IT DCA TMP /04205-3076 X> LODLP, JMS I MAKCDF /04206-4442 $" HLT /04207-7402 <B TAD TEMP /04210-1077 H? TAD THSFLD /04211-1153 I+ DCA GD /04212-3157 Y/ TAD GD /04213-1157 I/ DCA I TEMP /04214-3477 \? TAD I TEMP /04215-1477 L? DCA BD /04216-3160 Y0 CDF 0 /04217-6201 2A JMS I CKGDBD /04220-4437 $_ SKP CLA /04221-7610 >H JMS LODTTL /04222-4235 "] SKP /04223-7410 <H JMP I LODCHK /04224-5600 .@ ISZ TEMP /04225-2077 P? NOP /04226-7000 8@ ISZ TMP /04227-2076 P> JMP LODLP /04230-5206 *F DCA TEMP /04231-3077 X? JMS I NXTFLD /04232-4435 $] JMP LODLP /04233-5206 *F JMP I LODCHK /04234-5600 .@ LODTTL, AND 0000 /04235-0000 @@ ISZ ONCE /04236-2102 QB JMP LODPR /04237-5245 *% JMS I PRTMSG /04240-4454 $, LODERR /04241-6414 4L JMS I PRTMSG /04242-4454 $, FLGDBD /04243-6422 4R JMS I PRCRLF /04244-4460 $0 LODPR, JMS I (CHKPRT /04245-4777 '? SKP /04246-7410 <H ISZ LODTTL /04247-2235 R] JMP I LODTTL /04250-5635 .] RDBTTL, AND 0000 /04251-0000 @@ ISZ ONCE /04252-2102 QB JMP RDBPR /04253-5261 *1 JMS I PRTMSG /04254-4454 $, RDBKER /04255-6434 4\ JMS I PRTMSG /04256-4454 $, FLGDBD /04257-6422 4R JMS I PRCRLF /04260-4460 $0 RDBPR, JMS I (CHKPRT /04261-4777 '? JMP I RDBTTL /04262-5651 .) TSTSET, AND 0000 /04263-0000 @@ LXM /04264-6200 2@ CIF CDF 0 /04265-6203 2C TAD TSTSET /04266-1263 J3 JMS I (LPSET /04267-4776 '> MQA CLA /04270-7701 ?A IAC /04271-7001 8A MQL /04272-7421 <Q TAD OM7 /04273-1136 I^ DCA MEMLIM /04274-3101 YA DCA THSFLD /04275-3153 Y+ ION /04276-6001 0A JMP I TSTSET /04277-5663 .3 RDBCHK, AND 0000 /04300-0000 @@ DCA TEMP /04301-3077 X? RDB1, CLA CLL IAC /04302-7301 ;A SKP /04303-7410 <H RDB2, CLA CLL IAC RAL /04304-7305 ;E DCA THSFLD /04305-3153 Y+ JMS I SETFLD /04306-4432 $Z RDBLP, TAD TEMP /04307-1077 H? TAD THSFLD /04310-1153 I+ DCA GD /04311-3157 Y/ JMS I MAKCDF /04312-4442 $" HLT /04313-7402 <B TAD I TEMP /04314-1477 L? DCA BD /04315-3160 Y0 CDF 0 /04316-6201 2A JMS I CKGDBD /04317-4437 $_ SKP CLA /04320-7610 >H JMS RDBTTL /04321-4251 ") JMS I NXTFLD /04322-4435 $] JMP RDBLP /04323-5307 +G ISZ TEMP /04324-2077 P? SKP /04325-7410 <H JMP I RDBCHK /04326-5700 /@ TAD TEMP /04327-1077 H? BSW /04330-7002 8B AND O77 /04331-0123 AS TAD OM76 /04332-1142 I" SPA CLA /04333-7710 ?H JMP RDB1 /04334-5302 +B JMP RDB2 /04335-5304 +D INISET, AND 0000 /04336-0000 @@ LXM /04337-6200 2@ CIF CDF 0 /04340-6203 2C TAD INISET /04341-1336 K^ JMS I (LPSET /04342-4776 '> MQA CLA /04343-7701 ?A IAC /04344-7001 8A MQL /04345-7421 <Q TAD OM37 /04346-1140 I DCA MEMLIM /04347-3101 YA DCA THSFLD /04350-3153 Y+ ION /04351-6001 0A JMP I INISET /04352-5736 /^ IONCIF, AND 0000 /04353-0000 @@ TAD I IONCIF /04354-1753 O+ ISZ IONCIF /04355-2353 S+ DCA .+1 /04356-3357 [/ HLT /04357-7402 <B HLT /04360-7402 <B JMP .+1 /04361-5362 +2 NOP /04362-7000 8@ ISZ GOTUSR /04363-2072 P: JMP .+2 /04364-5366 +6 JMP I IONCIF /04365-5753 /+ JMS I PRTMSG /04366-4454 $, INTNFN /04367-6561 51 JMS I HALTAT /04370-4431 $Y JMP I IONCIF /04371-5753 /+ AND 0000 /04372-0000 @@ AND 0000 /04373-0000 @@ AND 0000 /04374-0000 @@ AND 0000 /04375-0000 @@ /AND 4324 /04376-0324 CT /JMP I 4227 /04377-5627 .W PAGE 22 TTYGET, AND 0000 /04400-0000 @@ CLA CMA /04401-7240 : DCA IONTTY /04402-3074 X< TAD (WKTTY /04403-1377 K? DCA RSTTY /04404-3071 X9 JMP . /04405-5205 *E WKTTY, DCA TMP /04406-3076 X> DCA IONTTY /04407-3074 X< TAD TMP /04410-1076 H> JMS I 0055 /04411-4455 $- JMS I PRTIO /04412-4457 $/ TAD TMP /04413-1076 H> ION /04414-6001 0A JMP I TTYGET /04415-5600 .@ INTRP, RAR /04416-7010 8H DCA LINK /04417-3113 YK SINT /04420-6254 2, SKP /04421-7410 <H JMP I (INTUSR /04422-5776 /> KSF /04423-6031 0Y SKP /04424-7410 <H JMP I (INTKRB /04425-5775 /= TSF /04426-6041 0! SKP /04427-7410 <H JMP I (INTTLS /04430-5774 /< CUF /04431-6264 24 CAF /04432-6007 0G JMS I PRTMSG /04433-4454 $, UNDINT /04434-6603 6C JMS I HALTAT /04435-4431 $Y JMP I GO /04436-5466 ,6 MSGPRT, AND 0000 /04437-0000 @@ ISZ PRTPOS /04440-2024 PT TAD INTSWI /04441-1070 H8 DCA TEMP /04442-3077 X? DCA INTSWI /04443-3070 X8 TAD I MSGPRT /04444-1637 N_ DCA MSGTMP /04445-3314 [L ISZ MSGPRT /04446-2237 R_ MSGLUP, TAD I MSGTMP /04447-1714 OL RTR /04450-7012 8J RTR /04451-7012 8J RTR /04452-7012 8J JMS MSGBYT /04453-4260 "0 TAD I MSGTMP /04454-1714 OL JMS MSGBYT /04455-4260 "0 ISZ MSGTMP /04456-2314 SL JMP MSGLUP /04457-5247 *' MSGBYT, AND 0000 /04460-0000 @@ AND O77 /04461-0123 AS SNA /04462-7450 <( JMP MSGEND /04463-5275 *= TAD OM37 /04464-1140 I SNA /04465-7450 <( JMP BYTEND /04466-5302 +B TAD (-1 /04467-1373 K; SPA /04470-7510 =H TAD O100 /04471-1146 I& TAD O240 /04472-1125 IU JMS I PRTIO /04473-4457 $/ JMP I MSGBYT /04474-5660 .0 MSGEND, CLA CLL /04475-7300 ;@ TAD TEMP /04476-1077 H? DCA INTSWI /04477-3070 X8 DCA PRTPOS /04500-3024 XT JMP I MSGPRT /04501-5637 ._ BYTEND, JMS I PRCRLF /04502-4460 $0 JMP I MSGBYT /04503-5660 .0 CRLFPR, AND 0000 /04504-0000 @@ TAD CR /04505-1313 KK JMS I PRTIO /04506-4457 $/ TAD LF /04507-1312 KJ JMS I PRTIO /04510-4457 $/ JMP I CRLFPR /04511-5704 /D LF, 212 /04512-0212 BJ CR, 215 /04513-0215 BM MSGTMP, AND 0000 /04514-0000 @@ BNKSCK, AND 0000 /04515-0000 @@ CLA CLL /04516-7300 ;@ TAD (MRLIST /04517-1372 K: DCA 0010 /04520-3010 XH TAD I 0010 /04521-1410 LH DCA TMP /04522-3076 X> CDF 4 /04523-6205 2E JMS GETRMR /04524-4346 #& CLA CLL CML RAR /04525-7330 ;X DCA BD1 /04526-3156 Y. TAD I 0010 /04527-1410 LH DCA TMP /04530-3076 X> CDF 100 /04531-6301 3A JMS GETRMR /04532-4346 #& CLA CLL CML RTR /04533-7332 ;Z TAD BD1 /04534-1156 I. DCA BD1 /04535-3156 Y. TAD I 0010 /04536-1410 LH DCA TMP /04537-3076 X> CDF 104 /04540-6305 3E JMS GETRMR /04541-4346 #& TAD O1000 /04542-1130 IX TAD BD1 /04543-1156 I. DCA BD1 /04544-3156 Y. JMP I BNKSCK /04545-5715 /M GETRMR, AND 0000 /04546-0000 @@ TAD I O7000 /04547-1533 M[ CLA CLL /04550-7300 ;@ RMR /04551-6173 1; CMA IAC /04552-7041 8! TAD TMP /04553-1076 H> SZA CLA /04554-7640 > ISZ GETRMR /04555-2346 S& CDF 0 /04556-6201 2A JMP I GETRMR /04557-5746 /& LUPSET, AND 0000 /04560-0000 @@ TAD I LUPSET /04561-1760 O0 DCA LPINI /04562-3172 Y: ISZ LUPSET /04563-2360 S0 TAD LPINI /04564-1172 I: DCA LOOP /04565-3171 Y9 JMP I LUPSET /04566-5760 /0 JMS 0151 /04567-4151 !) JMS 0135 /04570-4135 !] 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 PAGE 23 MEMGET, AND 0000 /04600-0000 @@ DCA AVLMEM /04601-3075 X= CLA CLL CMA RTL /04602-7346 ;& DCA MGCNT /04603-3252 Z* DCA MGREG /04604-3251 Z) MGNXT, JMS I GETTTY /04605-4461 $1 DCA MGCHR /04606-3250 Z( TAD MGCHR /04607-1250 J( TAD OM215 /04610-1143 I# SNA CLA /04611-7650 >( JMP MGDEF /04612-5236 *^ TAD MGCHR /04613-1250 J( TAD OM260 /04614-1246 J& SPA CLA /04615-7710 ?H JMP I MEMGET /04616-5600 .@ TAD MGCHR /04617-1250 J( TAD OM270 /04620-1247 J' SMA CLA /04621-7700 ?@ JMP I MEMGET /04622-5600 .@ TAD MGCHR /04623-1250 J( AND O7 /04624-0116 AN DCA MGCHR /04625-3250 Z( TAD MGREG /04626-1251 J) CLL RTL /04627-7106 9F RAL /04630-7004 8D TAD MGCHR /04631-1250 J( DCA MGREG /04632-3251 Z) ISZ MGCNT /04633-2252 R* JMP MGNXT /04634-5205 *E JMP I MEMGET /04635-5600 .@ MGDEF, JMS I PRCRLF /04636-4460 $0 ISZ MEMGET /04637-2200 R@ CLA CLL CML IAC RAL /04640-7325 ;U TAD MGCNT /04641-1252 J* SNA CLA /04642-7650 >( TAD AVLMEM /04643-1075 H= TAD MGREG /04644-1251 J) JMP I MEMGET /04645-5600 .@ OM260, SMA SNL /04646-7520 =P OM270, SPA /04647-7510 =H MGCHR, AND 0000 /04650-0000 @@ MGREG, AND 0000 /04651-0000 @@ MGCNT, AND 0000 /04652-0000 @@ X8CHK, AND 0000 /04653-0000 @@ IOF /04654-6002 0B DCA X8TMP /04655-3300 [@ TAD X8 /04656-1022 HR AND O400 /04657-0127 AW SZA CLA /04660-7640 > JMP .+4 /04661-5265 *5 TAD X8TMP /04662-1300 K@ ION /04663-6001 0A JMP I X8CHK /04664-5653 .+ RIF /04665-6224 2T TAD (0 /04666-1377 K? TAD (CIF 0 /04667-1376 K> DCA 4671 /04670-3271 Z9 HLT /04671-7402 <B TAD X8TMP /04672-1300 K@ JMS I X87222 /04673-4677 &? ISZ X8CHK /04674-2253 R+ ION /04675-6001 0A JMP I X8CHK /04676-5653 .+ X87222, 7222 /04677-7222 :R X8TMP, 0000 /04700-0000 @@ DOMRAN, JMP 4701 /04701-5301 +A CLA CLL IAC /04702-7301 ;A TAD R1 /04703-1315 KM TAD R2 /04704-1316 KN CLL RTL /04705-7106 9F DCA R1 /04706-3315 [M TAD R2 /04707-1316 KN RTR /04710-7012 8J TAD R1 /04711-1315 KM DCA R2 /04712-3316 [N TAD R2 /04713-1316 KN JMP I DOMRAN /04714-5701 /A R1, 1234 /04715-1234 J\ R2, 5670 /04716-5670 .8 GDBDCK, AND 0000 /04717-0000 @@ CLA /04720-7200 :@ CIF CDF 0 /04721-6203 2C JMS I (DBST2 /04722-4775 '= JMP 4730 /04723-5330 +X TAD BD /04724-1160 I0 CMA IAC /04725-7041 8! TAD GD /04726-1157 I/ SZA CLA /04727-7640 > ISZ GDBDCK /04730-2317 SO JMP I GDBDCK /04731-5717 /O SHUFFL, AND 0000 /04732-0000 @@ TAD (-13 /04733-1374 K< DCA SHCNT /04734-3371 [9 DCA SHRES /04735-3370 [8 TAD I SHUFFL /04736-1732 OZ DCA SHARG /04737-3367 [7 TAD I SHARG /04740-1767 O7 ISZ SHUFFL /04741-2332 SZ DCA SHARG /04742-3367 [7 SHF0, TAD SHARG /04743-1367 K7 CLL RAL /04744-7104 9D DCA SHARG /04745-3367 [7 TAD SHARG /04746-1367 K7 SMA CLA /04747-7700 ?@ JMP SHF1 /04750-5354 +, SNL /04751-7420 <P JMP SHF2 /04752-5355 +- JMP SHF3 /04753-5357 +/ SHF1, SZL /04754-7430 <X SHF2, CLL CML /04755-7120 9P SKP /04756-7410 <H SHF3, CLL /04757-7100 9@ TAD SHRES /04760-1370 K8 RAL /04761-7004 8D DCA SHRES /04762-3370 [8 ISZ SHCNT /04763-2371 S9 JMP SHF0 /04764-5343 +# TAD SHRES /04765-1370 K8 JMP I SHUFFL /04766-5732 /Z SHARG, AND 0000 /04767-0000 @@ SHRES, AND 0000 /04770-0000 @@ SHCNT, AND 0000 /04771-0000 @@ MQA MQL DAD /04772-7563 =3 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 @@ PAGE 24 OUTINT, TAD LINK /05000-1113 IK CLL RAL /05001-7104 9D CLA /05002-7200 :@ TAD AC /05003-1114 IL ION /05004-6001 0A JMP I INTVER /05005-5400 ,@ BNKSER, AND 0000 /05006-0000 @@ JMS I (ERRARG /05007-4777 '? BNKSER /05010-5006 (F JMP BNKSEX /05011-5236 *^ JMS I PRTMSG /05012-4454 $, MSPC /05013-6445 4% TAD ERRLOC /05014-1103 IC JMS I PRTNUM /05015-4464 $4 JMS I PRTMSG /05016-4454 $, MSBSEL /05017-6673 6; TAD BD1 /05020-1156 I. SZA CLA /05021-7640 > JMP .+4 /05022-5226 *V JMS I PRTMSG /05023-4454 $, MSNSLB /05024-6375 3= JMP BNKSEX /05025-5236 *^ JMS I PRTMSG /05026-4454 $, MSSLBE /05027-7052 8* TAD GD /05030-1157 I/ JMS I PRTBNK /05031-4436 $^ JMS I PRTMSG /05032-4454 $, MSSLBF /05033-7064 84 TAD BD1 /05034-1156 I. JMS I PRTBNK /05035-4436 $^ BNKSEX, JMS I (ERRSWI /05036-4776 '> JMP I BNKSER /05037-5606 .F ACGBER, AND 0000 /05040-0000 @@ JMS I (ERRARG /05041-4777 '? ACGBER /05042-5040 ( JMP EXACGB /05043-5266 *6 JMS I PRTMSG /05044-4454 $, MSPC /05045-6445 4% TAD ERRLOC /05046-1103 IC JMS I PRTNUM /05047-4464 $4 JMS I PRTMSG /05050-4454 $, BADAC /05051-6343 3# JMS I PRTMSG /05052-4454 $, CMDCOL /05053-6361 31 TAD ERRTYP /05054-1105 IE BSW /05055-7002 8B AND O37 /05056-0120 AP TAD (INSMS1 /05057-1375 K= DCA TMP /05060-3076 X> TAD I TMP /05061-1476 L> DCA .+2 /05062-3264 Z4 JMS I PRTMSG /05063-4454 $, 0000 /05064-0000 @@ JMS I (ERRPGB /05065-4774 '< EXACGB, JMS I (ERRSWI /05066-4776 '> JMP I ACGBER /05067-5640 . SNGLER, AND 0000 /05070-0000 @@ JMS I (ERRARG /05071-4777 '? SNGLER /05072-5070 (8 JMP SNGLEX /05073-5312 +J JMS I PRTMSG /05074-4454 $, MSPC /05075-6445 4% TAD ERRLOC /05076-1103 IC JMS I PRTNUM /05077-4464 $4 TAD ERRTYP /05100-1105 IE AND O37 /05101-0120 AP TAD (INSMS2 /05102-1373 K; DCA TMP /05103-3076 X> TAD I TMP /05104-1476 L> DCA .+2 /05105-3307 [G JMS I PRTMSG /05106-4454 $, 0000 /05107-0000 @@ JMS I PRTMSG /05110-4454 $, NOTRAP /05111-6620 6P SNGLEX, JMS I (ERRSWI /05112-4776 '> JMP I SNGLER /05113-5670 .8 CGBERR, AND 0000 /05114-0000 @@ JMS I (ERRARG /05115-4777 '? CGBERR /05116-5114 )L JMP .+3 /05117-5322 +R JMS COMERR /05120-4324 #T JMS I (ERRPGB /05121-4774 '< JMS I (ERRSWI /05122-4776 '> JMP I CGBERR /05123-5714 /L COMERR, AND 0000 /05124-0000 @@ JMS I PRTMSG /05125-4454 $, MSPC /05126-6445 4% TAD ERRLOC /05127-1103 IC JMS I PRTNUM /05130-4464 $4 TAD ERRTYP /05131-1105 IE SMA CLA /05132-7700 ?@ JMP COMTP1 /05133-5341 +! TAD ERRTYP /05134-1105 IE DCA .+2 /05135-3337 [_ JMS I PRTMSG /05136-4454 $, 0000 /05137-0000 @@ JMP COMEXI /05140-5371 +9 COMTP1, TAD ERRTYP /05141-1105 IE BSW /05142-7002 8B AND O37 /05143-0120 AP SNA /05144-7450 <( JMP COMTP2 /05145-5356 +. TAD (INSMS1 /05146-1375 K= DCA COMTP2-1 /05147-3355 [- TAD I COMTP2-1 /05150-1755 O- DCA COMTP2-1 /05151-3355 [- JMS I PRTMSG /05152-4454 $, LDCOL /05153-6356 3. JMS I PRTMSG /05154-4454 $, 0000 /05155-0000 @@ COMTP2, TAD ERRTYP /05156-1105 IE AND O37 /05157-0120 AP TAD (INSMS2 /05160-1373 K; DCA COMEXI-2 /05161-3367 [7 TAD I COMEXI-2 /05162-1767 O7 DCA COMEXI-2 /05163-3367 [7 JMS I PRTMSG /05164-4454 $, CMDCOL /05165-6361 31 JMS I PRTMSG /05166-4454 $, 0000 /05167-0000 @@ SKP CLA /05170-7610 >H COMEXI, ISZ COMERR /05171-2324 ST 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 PAGE 25 CDBGBE, AND 0000 /05200-0000 @@ JMS ERRARG /05201-4260 "0 CDBGBE /05202-5200 *@ JMP 5216 /05203-5216 *N JMS I (COMERR /05204-4777 '? JMS I PRTMSG /05205-4454 $, DEVCOL /05206-6450 4( TAD BRKADR /05207-1163 I3 JMS I PRTNUM /05210-4464 $4 JMS I PRTMSG /05211-4454 $, BNKCOL /05212-6454 4, TAD BRKBNK /05213-1164 I4 JMS I PRTNUM /05214-4464 $4 JMS ERRPGB /05215-4220 "P JMS ERRSWI /05216-4245 "% JMP I CDBGBE /05217-5600 .@ ERRPGB, AND 0000 /05220-0000 @@ TAD ERRTYP /05221-1105 IE TAD (-1400 /05222-1376 K> SPA /05223-7510 =H JMP ERRNPT /05224-5234 *\ TAD (-200 /05225-1375 K= SMA SZA CLA /05226-7740 ? JMP ERRNPT /05227-5234 *\ JMS I PRTMSG /05230-4454 $, PTCOL /05231-6364 34 TAD FIELD7 /05232-1165 I5 JMS I PRTNUM /05233-4464 $4 ERRNPT, JMS I PRTMSG /05234-4454 $, GDCOL /05235-6367 37 TAD GD /05236-1157 I/ JMS I PRTNUM /05237-4464 $4 JMS I PRTMSG /05240-4454 $, BDCOL /05241-6372 3: TAD BD /05242-1160 I0 JMS I PRTNUM /05243-4464 $4 JMP I ERRPGB /05244-5620 .P ERRSWI, AND 0000 /05245-0000 @@ JMS I GETSWI /05246-4430 $X SMA CLA /05247-7700 ?@ JMS I HALTAT /05250-4431 $Y JMS I GETSWI /05251-4430 $X AND O2000 /05252-0131 AY SZA CLA /05253-7640 > JMP I ERRNXT /05254-5504 -D CLA CMA /05255-7240 : DCA I (LPCNT /05256-3774 _< JMP I ERRSWI /05257-5645 .% ERRARG, AND 0000 /05260-0000 @@ CLA /05261-7200 :@ CDF 0 /05262-6201 2A TAD I ERRARG /05263-1660 N0 DCA TMP /05264-3076 X> CLA CMA /05265-7240 : TAD I TMP /05266-1476 L> DCA ERRLOC /05267-3103 YC ISZ ERRARG /05270-2260 R0 TAD I TMP /05271-1476 L> DCA TEMP /05272-3077 X? TAD I TEMP /05273-1477 L? DCA ERRTYP /05274-3105 YE ISZ TEMP /05275-2077 P? TAD I TEMP /05276-1477 L? ISZ TEMP /05277-2077 P? DCA ERRNXT /05300-3104 YD TAD TEMP /05301-1077 H? DCA I TMP /05302-3476 \> JMS I GETSWI /05303-4430 $X AND O200 /05304-0124 AT SNA CLA /05305-7650 >( ISZ ERRARG /05306-2260 R0 TAD ERRTYP /05307-1105 IE AND (7700 /05310-0373 C; TAD (-400 /05311-1372 K: SNA CLA /05312-7650 >( LXM /05313-6200 2@ JMS I (TELLX8 /05314-4771 '9 JMP I ERRARG /05315-5660 .0 INTUSR, CINT /05316-6204 2D CLA CMA /05317-7240 : DCA GOTUSR /05320-3072 X: ION /05321-6001 0A JMP I INTVER /05322-5400 ,@ FLDSET, AND 0000 /05323-0000 @@ CLA CLL /05324-7300 ;@ TAD THSFLD /05325-1153 I+ AND O7 /05326-0116 AN DCA FIELD7 /05327-3165 Y5 TAD THSFLD /05330-1153 I+ CLL RTR /05331-7112 9J RAR /05332-7010 8H AND O3 /05333-0115 AM DCA BANK3 /05334-3110 YH TAD (LSTBNK /05335-1370 K8 TAD BANK3 /05336-1110 IH DCA XLSTBN /05337-3364 [4 TAD (MRLIST /05340-1367 K7 TAD BANK3 /05341-1110 IH DCA MRBITS /05342-3167 Y7 TAD WHATIS /05343-1073 H; SNA CLA /05344-7650 >( JMP .+3 /05345-5350 +( TAD FIELD7 /05346-1165 I5 JMP .+3 /05347-5352 +* JMS I SHFL /05350-4440 $ FIELD7 /05351-0165 A5 DCA FIELD7 /05352-3165 Y5 TAD I MRBITS /05353-1567 M7 TAD FIELD7 /05354-1165 I5 DCA MRBITS /05355-3167 Y7 TAD FIELD7 /05356-1165 I5 CLL RTL /05357-7106 9F RAL /05360-7004 8D TAD I XLSTBN /05361-1764 O4 DCA CDBITS /05362-3112 YJ JMP I FLDSET /05363-5723 /S XLSTBN, AND 0000 /05364-0000 @@ JMP I 0107 /05365-5507 -G 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 PAGE 26 CIFMAK, AND 0000 /05400-0000 @@ TAD CDBITS /05401-1112 IJ TAD CCIF /05402-1151 I) DCA I CIFMAK /05403-3600 ^@ JMP I CIFMAK /05404-5600 .@ CDIMAK, AND 0000 /05405-0000 @@ TAD CDBITS /05406-1112 IJ TAD CCDI /05407-1152 I* DCA I CDIMAK /05410-3605 ^E JMP I CDIMAK /05411-5605 .E BNKPRT, AND 0000 /05412-0000 @@ DCA TEMP /05413-3077 X? TAD OM4 /05414-1135 I] DCA TMP /05415-3076 X> TAD O260 /05416-1126 IV DCA 0012 /05417-3012 XJ BPL1, TAD 0012 /05420-1012 HJ JMS I PRTIO /05421-4457 $/ TAD O240 /05422-1125 IU JMS I PRTIO /05423-4457 $/ BPL2, ISZ 0012 /05424-2012 PJ ISZ TMP /05425-2076 P> SKP /05426-7410 <H JMP I BNKPRT /05427-5612 .J TAD TEMP /05430-1077 H? CLL RAL /05431-7104 9D DCA TEMP /05432-3077 X? SMA SNL /05433-7520 =P JMP BPL2 /05434-5224 *T JMP BPL1 /05435-5220 *P NUMPRT, AND 0000 /05436-0000 @@ DCA PRTVAL /05437-3272 Z: ISZ PRTPOS /05440-2024 PT TAD OM4 /05441-1135 I] DCA 0014 /05442-3014 XL TAD PRTVAL /05443-1272 J: RAL /05444-7004 8D PRTLUP, RAL /05445-7004 8D RTL /05446-7006 8F DCA PRTVAL /05447-3272 Z: TAD PRTVAL /05450-1272 J: AND O7 /05451-0116 AN TAD O260 /05452-1126 IV DCA PRTTEM /05453-3273 Z; RAR /05454-7010 8H DCA PRTLNK /05455-3274 Z< TAD PRTTEM /05456-1273 J; JMS I PRTIO /05457-4457 $/ TAD PRTLNK /05460-1274 J< CLL RAL /05461-7104 9D TAD PRTVAL /05462-1272 J: ISZ 0014 /05463-2014 PL JMP PRTLUP /05464-5245 *% CLA CLL /05465-7300 ;@ TAD O240 /05466-1125 IU JMS I PRTIO /05467-4457 $/ DCA PRTPOS /05470-3024 XT JMP I NUMPRT /05471-5636 .^ PRTVAL, AND 0000 /05472-0000 @@ PRTTEM, AND 0000 /05473-0000 @@ PRTLNK, AND 0000 /05474-0000 @@ KTSET, AND 0000 /05475-0000 @@ TAD I KTSET /05476-1675 N= ISZ KTSET /05477-2275 R= DCA CNT /05500-3166 Y6 KTLP, TAD CNT /05501-1166 I6 DCA GD /05502-3157 Y/ TAD GD /05503-1157 I/ LXM /05504-6200 2@ SZA /05505-7440 < JMP KTERR /05506-5322 +R RXM /05507-6230 2X DCA BD /05510-3160 Y0 TAD BD /05511-1160 I0 CMA IAC /05512-7041 8! TAD GD /05513-1157 I/ SNA CLA /05514-7650 >( JMP I KTSET /05515-5675 .= JMS I ERRCGB /05516-4446 $& 0406 /05517-0406 DF JMP I 0077 /05520-5477 ,? JMP I KTSET /05521-5675 .= KTERR, DCA BD /05522-3160 Y0 DCA GD /05523-3157 Y/ JMS I ERACGB /05524-4447 $' 0400 /05525-0400 D@ KTLP /05526-5501 -A JMP I KTSET /05527-5675 .= INTKRB, KRB /05530-6036 0^ AND P177 /05531-0346 C& TAD O200 /05532-1124 IT DCA TMP /05533-3076 X> TAD IONTTY /05534-1074 H< SZA CLA /05535-7640 > JMP INTKNO /05536-5343 +# TAD TMP /05537-1076 H> JMS I CHKX8 /05540-4455 $- NOP /05541-7000 8@ JMP I GO /05542-5466 ,6 INTKNO, TAD TMP /05543-1076 H> JMP I RSTTY /05544-5471 ,9 0000 /05545-0000 @@ P177, 177 /05546-0177 A? INTTLS, TAD INTSWI /05547-1070 H8 SZA CLA /05550-7640 > JMP .+3 /05551-5354 +, JMS I PRTMSG /05552-4454 $, INTUNX /05553-6654 6, DCA INTSWI /05554-3070 X8 TCF /05555-6042 0" JMP I INTOUT /05556-5463 ,3 FLDNXT, AND 0000 /05557-0000 @@ CIF CDF 0 /05560-6203 2C DCA INTSWI /05561-3070 X8 TAD THSFLD /05562-1153 I+ TAD MEMLIM /05563-1101 IA SPA CLA /05564-7710 ?H JMP .+4 /05565-5371 +9 DCA THSFLD /05566-3153 Y+ ISZ FLDNXT /05567-2357 S/ SKP /05570-7410 <H ISZ THSFLD /05571-2153 Q+ JMS I SETFLD /05572-4432 $Z JMP I FLDNXT /05573-5757 // JMP 5472 /05574-5272 *: JMP 5530 /05575-5330 +X JMP 5475 /05576-5275 *= AND 0047 /05577-0047 @' PAGE 27 ATHALT, AND 0000 /05600-0000 @@ JMS I PRTMSG /05601-4454 $, HLTAPC /05602-6460 40 CLA CMA /05603-7240 : TAD ATHALT /05604-1200 J@ JMS I PRTNUM /05605-4464 $4 JMS I CHKX8 /05606-4455 $- SKP CLA /05607-7610 >H JMP .+4 /05610-5214 *L JMS I GETTTY /05611-4461 $1 TAD OM215 /05612-1143 I# SNA CLA /05613-7650 >( JMP .+4 /05614-5220 *P JMS I PRTMSG /05615-4454 $, QMRKER /05616-6616 6N JMP .-6 /05617-5211 *I JMS I PRCRLF /05620-4460 $0 JMP I ATHALT /05621-5600 .@ CDFMAK, AND 0000 /05622-0000 @@ TAD CDBITS /05623-1112 IJ TAD CCDF /05624-1150 I( DCA I CDFMAK /05625-3622 ^R JMP I CDFMAK /05626-5622 .R CHKPRT, AND 0000 /05627-0000 @@ JMS I GETSWI /05630-4430 $X AND O200 /05631-0124 AT SZA CLA /05632-7640 > JMP I CHKPRT /05633-5627 .W JMS I PRCRLF /05634-4460 $0 TAD THSFLD /05635-1153 I+ JMS I PRTNUM /05636-4464 $4 TAD TEMP /05637-1077 H? JMS I PRTNUM /05640-4464 $4 TAD GD /05641-1157 I/ JMS I PRTNUM /05642-4464 $4 TAD BD /05643-1160 I0 JMS I PRTNUM /05644-4464 $4 TAD BD /05645-1160 I0 SZA CLA /05646-7640 > JMP I CHKPRT /05647-5627 .W TAD ONCE /05650-1102 IB TAD OM7 /05651-1136 I^ SZA CLA /05652-7640 > JMP I CHKPRT /05653-5627 .W TAD TEMP /05654-1077 H? TAD OM7 /05655-1136 I^ SZA CLA /05656-7640 > JMP I CHKPRT /05657-5627 .W CLA CMA /05660-7240 : TAD THSFLD /05661-1153 I+ DCA AVLMEM /05662-3075 X= JMS I PRCRLF /05663-4460 $0 TAD AVLMEM /05664-1075 H= JMS I PRTNUM /05665-4464 $4 JMS I PRTMSG /05666-4454 $, EFLDAV /05667-6467 47 ISZ CHKPRT /05670-2227 RW TAD AVLMEM /05671-1075 H= CMA IAC /05672-7041 8! DCA MEMLIM /05673-3101 YA TAD AVLMEM /05674-1075 H= SZA CLA /05675-7640 > JMP I CHKPRT /05676-5627 .W JMS I PRTMSG /05677-4454 $, NEXFLD /05700-7001 8A JMS I HALTAT /05701-4431 $Y JMP I CHKPRT /05702-5627 .W CHKMEM, AND 0000 /05703-0000 @@ TAD X8 /05704-1022 HR SPA CLA /05705-7710 ?H JMP I CHKMEM /05706-5703 /C TAD AVLMEM /05707-1075 H= SNA CLA /05710-7650 >( JMP I CHKMEM /05711-5703 /C CLA CLL IAC /05712-7301 ;A DCA THSFLD /05713-3153 Y+ DCA TEMP /05714-3077 X? CLA CMA /05715-7240 : DCA WHATIS /05716-3073 X; TAD AVLMEM /05717-1075 H= CMA IAC /05720-7041 8! DCA MEMLIM /05721-3101 YA JMS I SETKT /05722-4444 $$ EMM EN5 EN9 /05723-7000 8@ JMS I SETFLD /05724-4432 $Z CLA CLL CMA /05725-7340 ; DCA ONCE /05726-3102 YB JMS I (LODCHK /05727-4777 '? CLA CMA /05730-7240 : DCA ONCE /05731-3102 YB JMS I (RDBCHK /05732-4776 '> JMP I CHKMEM /05733-5703 /C CLRMEM, AND 0000 /05734-0000 @@ CLA CLL IAC /05735-7301 ;A DCA THSFLD /05736-3153 Y+ CLA CMA /05737-7240 : DCA WHATIS /05740-3073 X; TAD AVLMEM /05741-1075 H= TAD OM7 /05742-1136 I^ SMA SZA CLA /05743-7740 ? TAD CLOM30 /05744-1372 K: TAD OM7 /05745-1136 I^ DCA MEMLIM /05746-3101 YA JMS I SETKT /05747-4444 $$ EMM EN5 EN9 /05750-7000 8@ JMS I SETFLD /05751-4432 $Z CLA CLL CML RTR /05752-7332 ;Z DCA TMP /05753-3076 X> DCA TEMP /05754-3077 X? CLRLUP, JMS I MAKCDF /05755-4442 $" HLT /05756-7402 <B DCA I TEMP /05757-3477 \? CDF 0 /05760-6201 2A ISZ TEMP /05761-2077 P? NOP /05762-7000 8@ ISZ TMP /05763-2076 P> JMP CLRLUP /05764-5355 +- JMS I NXTFLD /05765-4435 $] JMP CLRLUP-3 /05766-5352 +* TAD OM7 /05767-1136 I^ DCA MEMLIM /05770-3101 YA JMP I CLRMEM /05771-5734 /\ CLOM30, -30 /05772-7750 ?( MQA MQL CLA DPIC /05773-7773 ?; SMA SZA SNL CLA HLT /05774-7762 ?2 ISZ 5600 /05775-2200 R@ /JMS 5700 /05776-4300 #@ /JMS 5600 /05777-4200 "@ PAGE 30 USRTST, AND 0000 /06000-0000 @@ TAD GOTUSR /06001-1072 H: CUF /06002-6264 24 DCA GOTUSR /06003-3072 X: LRR /06004-6240 2 TAD I USRTST /06005-1600 N@ DCA ERRNXT /06006-3104 YD CLA CMA /06007-7240 : TAD USRTST /06010-1200 J@ ISZ USRTST /06011-2200 R@ DCA ERRLOC /06012-3103 YC ISZ GOTUSR /06013-2072 P: SKP CLA /06014-7610 >H JMP 6021 /06015-5221 *Q DCA GOTUSR /06016-3072 X: ISZ USRTST /06017-2200 R@ JMP I USRTST /06020-5600 .@ JMS I GETSWI /06021-4430 $X AND O200 /06022-0124 AT SZA CLA /06023-7640 > JMP 6033 /06024-5233 *[ JMS I PRTMSG /06025-4454 $, MSPC /06026-6445 4% TAD ERRLOC /06027-1103 IC JMS I PRTNUM /06030-4464 $4 JMS I PRTMSG /06031-4454 $, ILUSIN /06032-6765 75 JMS I .+2 /06033-4635 &] JMP I USRTST /06034-5600 .@ ERRSWI /06035-5245 *% IOPRT, AND 0000 /06036-0000 @@ DCA IOTEMP /06037-3254 Z, TAD X8 /06040-1022 HR SPA CLA /06041-7710 ?H JMP I IOPRT /06042-5636 .^ SKON /06043-6000 0@ JMP IONION /06044-5251 *) TAD IOTEMP /06045-1254 J, JMS IOTLS /06046-4255 "- ION /06047-6001 0A JMP I IOPRT /06050-5636 .^ IONION, TAD IOTEMP /06051-1254 J, JMS IOTLS /06052-4255 "- JMP I IOPRT /06053-5636 .^ IOTEMP, AND 0000 /06054-0000 @@ IOTLS, AND 0000 /06055-0000 @@ TLS /06056-6046 0& TSF /06057-6041 0! JMP .-1 /06060-5257 */ TCF /06061-6042 0" CLA /06062-7200 :@ JMP I IOTLS /06063-5655 .- MRLIST, ISZ 0100 /06064-2100 Q@ TAD 0040 /06065-1040 H AND I 0020 /06066-0420 DP AND 6010 /06067-0210 BH LSTBRK, AND 0000 /06070-0000 @@ AND 0000 /06071-0000 @@ AND 0000 /06072-0000 @@ AND 0000 /06073-0000 @@ AND 0000 /06074-0000 @@ AND 0000 /06075-0000 @@ AND 0000 /06076-0000 @@ AND 0000 /06077-0000 @@ AND 0000 /06100-0000 @@ AND 0000 /06101-0000 @@ AND 0000 /06102-0000 @@ AND 0000 /06103-0000 @@ AND 0000 /06104-0000 @@ INSMS1, 0000 /06105-0000 @@ TXCDF /06106-6146 1& TXCIF /06107-6151 1) TXCDI /06110-6154 1, TXLXM /06111-6157 1/ TXRTF /06112-6162 12 TXRTS /06113-6165 15 TXLRR /06114-6170 18 TXLUSR /06115-6173 1; TXLBM /06116-6177 1? TXMBC /06117-6202 2B TXRMF /06120-6205 2E TXRACA /06121-6301 3A TXRACB /06122-6304 3D TXRACC /06123-6307 3G TXLINK /06124-6312 3J TXSUF /06125-6315 3M INSMS2, 0000 /06126-0000 @@ TXGTF /06127-6210 2H TXRDF /06130-6213 2K TXRIF /06131-6216 2N TXRIB /06132-6221 2Q TXGTS /06133-6224 2T TXRXM /06134-6227 2W TXRRR /06135-6232 2Z TXRUSR /06136-6235 2] TXRBM /06137-6241 2! TXRLB /06140-6244 2$ TXRMR /06141-6247 2' TXOSR /06142-6252 2* TXLAS /06143-6255 2- TXTPL /06144-6260 20 TXHLT /06145-6263 23 TXCDF, JMS 0003 /06146-4003 C AND I 0006 /06147-0406 DF JMS 0000 /06150-4000 @ TXCIF, JMS 0003 /06151-4003 C TAD 0106 /06152-1106 IF JMS 0000 /06153-4000 @ TXCDI, JMS 0003 /06154-4003 C AND I 0011 /06155-0411 DI JMS 0000 /06156-4000 @ TXLXM, JMS 0014 /06157-4014 L DCA 0015 /06160-3015 XM JMS 0000 /06161-4000 @ TXRTF, JMS 0022 /06162-4022 R ISZ I 0006 /06163-2406 TF JMS 0000 /06164-4000 @ TXRTS, JMS 0022 /06165-4022 R ISZ I 0023 /06166-2423 TS JMS 0000 /06167-4000 @ TXLRR, JMS 0014 /06170-4014 L ISZ 6022 /06171-2222 RR JMS 0000 /06172-4000 @ TXLUSR, JMS 0014 /06173-4014 L ISZ I 0123 /06174-2523 US ISZ 6040 /06175-2240 R AND 0000 /06176-0000 @@ TXLBM, JMS 0014 /06177-4014 L AND 6215 /06200-0215 BM JMS 0000 /06201-4000 @ TXMBC, JMS 0015 /06202-4015 M AND 6203 /06203-0203 BC JMS 0000 /06204-4000 @ TXRMF, JMS 0022 /06205-4022 R TAD I 0106 /06206-1506 MF JMS 0000 /06207-4000 @ TXGTF, JMS 0007 /06210-4007 G ISZ I 0006 /06211-2406 TF JMS 0000 /06212-4000 @ TXRDF, JMS 0022 /06213-4022 R AND I 0006 /06214-0406 DF JMS 0000 /06215-4000 @ TXRIF, JMS 0022 /06216-4022 R TAD 0106 /06217-1106 IF JMS 0000 /06220-4000 @ TXRIB, JMS 0022 /06221-4022 R TAD 0102 /06222-1102 IB JMS 0000 /06223-4000 @ TXGTS, JMS 0007 /06224-4007 G ISZ I 0023 /06225-2423 TS JMS 0000 /06226-4000 @ TXRXM, JMS 0022 /06227-4022 R DCA 0015 /06230-3015 XM JMS 0000 /06231-4000 @ TXRRR, JMS 0022 /06232-4022 R ISZ 6222 /06233-2222 RR JMS 0000 /06234-4000 @ TXRUSR, JMS 0022 /06235-4022 R ISZ I 0123 /06236-2523 US ISZ 6240 /06237-2240 R AND 0000 /06240-0000 @@ TXRBM, JMS 0022 /06241-4022 R AND 6215 /06242-0215 BM JMS 0000 /06243-4000 @ TXRLB, JMS 0022 /06244-4022 R TAD I 0002 /06245-1402 LB JMS 0000 /06246-4000 @ TXRMR, JMS 0022 /06247-4022 R TAD I 0122 /06250-1522 MR JMS 0000 /06251-4000 @ TXOSR, DCA I 6317 /06252-3717 _O ISZ 6322 /06253-2322 SR AND 0000 /06254-0000 @@ TXLAS, DCA I 6314 /06255-3714 _L AND 0123 /06256-0123 AS AND 0000 /06257-0000 @@ TXTPL, DCA I 6324 /06260-3724 _T ISZ 0014 /06261-2014 PL AND 0000 /06262-0000 @@ TXHLT, DCA I 6310 /06263-3710 _H TAD I 0024 /06264-1424 LT AND 0000 /06265-0000 @@ RELERR, DCA I 6322 /06266-3722 _R AND I 0114 /06267-0514 EL TAD I 6303 /06270-1703 OC AND 0124 /06271-0124 AT TAD 0117 /06272-1117 IO TAD I 6240 /06273-1640 N AND I 6201 /06274-0601 FA TAD 0114 /06275-1114 IL ISZ I 0122 /06276-2522 UR AND I 0137 /06277-0537 E_ AND 0000 /06300-0000 @@ TXRACA, ISZ 6201 /06301-2201 RA AND 6301 /06302-0301 CA JMS 0000 /06303-4000 @ TXRACB, ISZ 6201 /06304-2201 RA AND 6302 /06305-0302 CB JMS 0000 /06306-4000 @ TXRACC, ISZ 6201 /06307-2201 RA AND 6303 /06310-0303 CC JMS 0000 /06311-4000 @ TXLINK, TAD I 0011 /06312-1411 LI TAD I 6213 /06313-1613 NK AND 0000 /06314-0000 @@ TXSUF, ISZ 6325 /06315-2325 SU AND I 6240 /06316-0640 F AND 0000 /06317-0000 @@ USLTRP, DCA I 6325 /06320-3725 _U ISZ 6305 /06321-2305 SE ISZ 6240 /06322-2240 R TAD I 0011 /06323-1411 LI TAD I 0111 /06324-1511 MI ISZ I 0040 /06325-2440 T AND I 6201 /06326-0601 FA TAD 0114 /06327-1114 IL AND I 0104 /06330-0504 ED JMS 0024 /06331-4024 T TAD I 6340 /06332-1740 O ISZ I 0022 /06333-2422 TR AND 0120 /06334-0120 AP JMS 0020 /06335-4020 P ISZ 6217 /06336-2217 RO ISZ 0005 /06337-2005 PE ISZ 6214 /06340-2214 RL DCA 0137 /06341-3137 Y_ AND 0000 /06342-0000 @@ BADAC, DCA I 6311 /06343-3711 _I TAD I 6203 /06344-1603 NC TAD I 6322 /06345-1722 OR ISZ 6205 /06346-2205 RE AND 6324 /06347-0324 CT JMS 0001 /06350-4001 A AND 6340 /06351-0340 C ISZ I 6201 /06352-2601 VA TAD I 0025 /06353-1425 LU AND I 0137 /06354-0537 E_ AND 0000 /06355-0000 @@ LDCOL, TAD I 0004 /06356-1404 LD CLA CMA /06357-7240 : AND 0000 /06360-0000 @@ CMDCOL, AND 6315 /06361-0315 CM AND I 0072 /06362-0472 D: JMS 0000 /06363-4000 @ PTCOL, ISZ 0024 /06364-2024 PT CLA CMA /06365-7240 : AND 0000 /06366-0000 @@ GDCOL, AND I 6304 /06367-0704 GD CLA CMA /06370-7240 : AND 0000 /06371-0000 @@ BDCOL, AND 6204 /06372-0204 BD CLA CMA /06373-7240 : AND 0000 /06374-0000 @@ MSNSLB, DCA I 6303 /06375-3703 _C AND 0116 /06376-0116 AN TAD I 6217 /06377-1617 NO ISZ I 0040 /06400-2440 T ISZ 6505 /06401-2305 SE TAD I 0005 /06402-1405 LE AND 6524 /06403-0324 CT JMS 0005 /06404-4005 E DCA 0024 /06405-3024 XT AND I 0116 /06406-0516 EN AND I 0005 /06407-0405 DE AND I 0040 /06410-0440 D AND 6401 /06411-0201 BA TAD I 6413 /06412-1613 NK ISZ 6500 /06413-2300 S@ LODERR, DCA I 6514 /06414-3714 _L TAD I 6501 /06415-1701 OA AND I 0040 /06416-0440 D AND I 0122 /06417-0522 ER ISZ 6417 /06420-2217 RO ISZ 6400 /06421-2200 R@ FLGDBD, DCA I 6506 /06422-3706 _F TAD I 0004 /06423-1404 LD JMS 0040 /06424-4040 AND 0104 /06425-0104 AD AND I 0022 /06426-0422 DR JMS 0007 /06427-4007 G TAD I 6517 /06430-1717 OO AND I 0040 /06431-0440 D AND 6401 /06432-0201 BA AND I 0000 /06433-0400 D@ RDBKER, DCA I 6522 /06434-3722 _R AND I 0101 /06435-0501 EA AND I 0040 /06436-0440 D AND 6401 /06437-0201 BA AND 6513 /06440-0313 CK JMS 0005 /06441-4005 E ISZ 6422 /06442-2222 RR TAD I 6522 /06443-1722 OR AND 0000 /06444-0000 @@ MSPC, DCA I 6520 /06445-3720 _P AND 6572 /06446-0372 C: JMS 0000 /06447-4000 @ DEVCOL, JMS 0004 /06450-4004 D AND I 0126 /06451-0526 EV CLA CMA /06452-7240 : AND 0000 /06453-0000 @@ BNKCOL, JMS 0002 /06454-4002 B TAD I 6413 /06455-1613 NK CLA CMA /06456-7240 : AND 0000 /06457-0000 @@ HLTAPC, DCA I 6510 /06460-3710 _H AND 0114 /06461-0114 AL ISZ I 0040 /06462-2440 T AND 0124 /06463-0124 AT JMS 0020 /06464-4020 P AND 6540 /06465-0340 C AND 0000 /06466-0000 @@ EFLDAV, AND I 0130 /06467-0530 EX ISZ I 0005 /06470-2405 TE TAD I 6404 /06471-1604 ND AND I 0104 /06472-0504 ED JMS 0006 /06473-4006 F TAD 0105 /06474-1105 IE TAD I 0004 /06475-1404 LD ISZ 6540 /06476-2340 S AND 0126 /06477-0126 AV AND 0111 /06500-0111 AI TAD I 0001 /06501-1401 LA AND 6414 /06502-0214 BL AND I 0140 /06503-0540 E AND 0000 /06504-0000 @@ PASSN, JMS 0020 /06505-4020 P AND 0123 /06506-0123 AS ISZ 6540 /06507-2340 S AND 0000 /06510-0000 @@ AJKTBM, DCA I 6501 /06511-3701 _A TAD 6413 /06512-1213 JK ISZ I 0001 /06513-2401 TA AND 6460 /06514-0260 B0 JMS 0000 /06515-4000 @ AJKTAB, DCA I 6501 /06516-3701 _A TAD 6413 /06517-1213 JK ISZ I 0001 /06520-2401 TA AND 6460 /06521-0260 B0 JMS 0013 /06522-4013 K ISZ I 0070 /06523-2470 T8 JMP I 0101 /06524-5501 -A JMS 0015 /06525-4015 M AND I 0115 /06526-0515 EM TAD I 6522 /06527-1722 OR DCA 0140 /06530-3140 Y TAD I 0101 /06531-1501 MA TAD I 6401 /06532-1601 NA AND I 6505 /06533-0705 GE TAD I 0105 /06534-1505 ME TAD I 6424 /06535-1624 NT JMS 0017 /06536-4017 O ISZ 0024 /06537-2024 PT TAD 0117 /06540-1117 IO TAD I 6437 /06541-1637 N_ AND 0000 /06542-0000 @@ AMNTMM, DCA I 6537 /06543-3737 __ AND 0115 /06544-0115 AM TAD I 6525 /06545-1725 OU TAD I 6424 /06546-1624 NT JMS 0017 /06547-4017 O AND I 6440 /06550-0640 F TAD I 0105 /06551-1505 ME TAD I 0117 /06552-1517 MO ISZ 6431 /06553-2231 RY JMS 0077 /06554-4077 ? JMP 0061 /06555-5061 (1 JMP I 0163 /06556-5563 -3 6751 /06557-6751 7) JMS 0000 /06560-4000 @ INTNFN, DCA I 6511 /06561-3711 _I TAD I 6424 /06562-1624 NT AND I 0122 /06563-0522 ER ISZ 6425 /06564-2225 RU ISZ 0024 /06565-2024 PT JMS 0005 /06566-4005 E DCA 0020 /06567-3020 XP AND I 0103 /06570-0503 EC ISZ I 0005 /06571-2405 TE AND I 0040 /06572-0440 D AND 6425 /06573-0225 BU ISZ I 0040 /06574-2440 T TAD I 6417 /06575-1617 NO ISZ I 0040 /06576-2440 T AND I 6417 /06577-0617 FO ISZ I 0116 /06600-2516 UN AND I 0056 /06601-0456 D. DCA I 6700 /06602-3700 _@ UNDINT, DCA I 6737 /06603-3737 __ ISZ I 0116 /06604-2516 UN AND I 0005 /06605-0405 DE AND I 6611 /06606-0611 FI TAD I 6605 /06607-1605 NE AND I 0040 /06610-0440 D TAD 0116 /06611-1116 IN ISZ I 0005 /06612-2405 TE ISZ 6622 /06613-2222 RR ISZ I 0120 /06614-2520 UP ISZ I 0000 /06615-2400 T@ QMRKER, JMS 0077 /06616-4077 ? DCA I 6700 /06617-3700 _@ NOTRAP, JMS 0006 /06620-4006 F AND 0111 /06621-0111 AI TAD I 0005 /06622-1405 LE AND I 0040 /06623-0440 D ISZ I 0017 /06624-2417 TO JMS 0024 /06625-4024 T ISZ 6601 /06626-2201 RA ISZ 0000 /06627-2000 P@ EXRFCL, DCA I 6705 /06630-3705 _E DCA 0020 /06631-3020 XP AND 0116 /06632-0116 AN AND I 0005 /06633-0405 DE AND I 0040 /06634-0440 D TAD I 0117 /06635-1517 MO AND I 0005 /06636-0405 DE JMS 0022 /06637-4022 R AND I 0107 /06640-0507 EG TAD 0123 /06641-1123 IS ISZ I 0005 /06642-2405 TE ISZ 6640 /06643-2240 R AND I 6601 /06644-0601 FA TAD 0114 /06645-1114 IL AND I 0104 /06646-0504 ED JMS 0024 /06647-4024 T TAD I 6740 /06650-1740 O AND 6714 /06651-0314 CL AND I 0101 /06652-0501 EA ISZ 6600 /06653-2200 R@ INTUNX, DCA I 6725 /06654-3725 _U TAD I 6605 /06655-1605 NE DCA 0020 /06656-3020 XP AND I 0103 /06657-0503 EC ISZ I 0005 /06660-2405 TE AND I 0040 /06661-0440 D ISZ 0022 /06662-2022 PR TAD 0116 /06663-1116 IN ISZ I 0005 /06664-2405 TE ISZ 6640 /06665-2240 R TAD 0116 /06666-1116 IN ISZ I 0005 /06667-2405 TE ISZ 6622 /06670-2222 RR ISZ I 0120 /06671-2520 UP ISZ I 0000 /06672-2400 T@ MSBSEL, DCA I 6702 /06673-3702 _B AND 0116 /06674-0116 AN TAD 6740 /06675-1340 K ISZ 6705 /06676-2305 SE TAD I 0005 /06677-1405 LE AND 6724 /06700-0324 CT JMS 0005 /06701-4005 E ISZ 6622 /06702-2222 RR TAD I 6722 /06703-1722 OR AND 0000 /06704-0000 @@ INTNON, DCA I 6716 /06705-3716 _N TAD I 6740 /06706-1740 O TAD 0116 /06707-1116 IN ISZ I 0005 /06710-2405 TE ISZ 6622 /06711-2222 RR ISZ I 0120 /06712-2520 UP ISZ I 0040 /06713-2440 T AND I 0005 /06714-0405 DE ISZ I 0005 /06715-2405 TE AND 6724 /06716-0324 CT AND I 0104 /06717-0504 ED AND 0000 /06720-0000 @@ LNKSET, DCA I 6714 /06721-3714 _L TAD 0116 /06722-1116 IN TAD 6740 /06723-1340 K AND I 6601 /06724-0601 FA TAD 0114 /06725-1114 IL AND I 0104 /06726-0504 ED JMS 0024 /06727-4024 T TAD I 6740 /06730-1740 O ISZ 6705 /06731-2305 SE ISZ I 0000 /06732-2400 T@ LNKCLR, DCA I 6714 /06733-3714 _L TAD 0116 /06734-1116 IN TAD 6740 /06735-1340 K AND I 6601 /06736-0601 FA TAD 0114 /06737-1114 IL AND I 0104 /06740-0504 ED JMS 0024 /06741-4024 T TAD I 6740 /06742-1740 O AND 6714 /06743-0314 CL AND I 0101 /06744-0501 EA ISZ 6600 /06745-2200 R@ DINOTR, DCA I 6704 /06746-3704 _D TAD 0117 /06747-1117 IO TAD 0140 /06750-1140 I AND I 6601 /06751-0601 FA TAD 0114 /06752-1114 IL AND I 0104 /06753-0504 ED JMS 0024 /06754-4024 T TAD I 6740 /06755-1740 O AND I 0011 /06756-0411 DI ISZ 6701 /06757-2301 SA AND 6614 /06760-0214 BL AND I 0140 /06761-0540 E ISZ I 0022 /06762-2422 TR AND 0120 /06763-0120 AP JMP I 6600 /06764-5600 .@ ILUSIN, DCA I 6711 /06765-3711 _I TAD I 0014 /06766-1414 LL AND I 0107 /06767-0507 EG AND 0114 /06770-0114 AL JMS 0025 /06771-4025 U ISZ 6705 /06772-2305 SE ISZ 6640 /06773-2240 R TAD 0116 /06774-1116 IN ISZ I 0005 /06775-2405 TE ISZ 6622 /06776-2222 RR ISZ I 0120 /06777-2520 UP ISZ I 0000 /07000-2400 T@ NEXFLD, DCA I 7116 /07001-3716 _N TAD I 7140 /07002-1740 O AND I 0130 /07003-0530 EX ISZ I 0005 /07004-2405 TE TAD I 7004 /07005-1604 ND AND I 0104 /07006-0504 ED JMS 0006 /07007-4006 F TAD 0105 /07010-1105 IE TAD I 0004 /07011-1404 LD ISZ 7100 /07012-2300 S@ RTFINT, DCA I 7122 /07013-3722 _R ISZ I 0006 /07014-2406 TF JMS 0006 /07015-4006 F AND 0111 /07016-0111 AI TAD I 0005 /07017-1405 LE AND I 0040 /07020-0440 D ISZ I 0017 /07021-2417 TO JMS 0005 /07022-4005 E TAD I 7001 /07023-1601 NA AND 7014 /07024-0214 BL AND I 0140 /07025-0540 E TAD 0116 /07026-1116 IN ISZ I 0005 /07027-2405 TE ISZ 7022 /07030-2222 RR ISZ I 0120 /07031-2520 UP ISZ I 0000 /07032-2400 T@ UINTCL, DCA I 7125 /07033-3725 _U ISZ 7105 /07034-2305 SE ISZ 7040 /07035-2240 R TAD 0116 /07036-1116 IN ISZ I 0005 /07037-2405 TE ISZ 7022 /07040-2222 RR ISZ I 0120 /07041-2520 UP ISZ I 0040 /07042-2440 T AND I 7001 /07043-0601 FA TAD 0114 /07044-1114 IL AND I 0104 /07045-0504 ED JMS 0024 /07046-4024 T TAD I 7140 /07047-1740 O ISZ 7105 /07050-2305 SE ISZ I 0000 /07051-2400 T@ MSSLBE, DCA I 7102 /07052-3702 _B AND 0116 /07053-0116 AN TAD 7150 /07054-1350 K( ISZ 7151 /07055-2351 S) JMS 0005 /07056-4005 E DCA 0020 /07057-3020 XP AND I 0103 /07060-0503 EC ISZ I 0005 /07061-2405 TE AND I 0075 /07062-0475 D= AND 0000 /07063-0000 @@ MSSLBF, DCA I 7102 /07064-3702 _B AND 0116 /07065-0116 AN TAD 7150 /07066-1350 K( ISZ 7151 /07067-2351 S) JMS 0006 /07070-4006 F TAD I 7125 /07071-1725 OU TAD I 7004 /07072-1604 ND SMA /07073-7500 =@ CMA RTR /07074-7052 8* CML IAC RAL /07075-7025 8U AND 0000 /07076-0000 @@ SKON /07077-6000 0@ JMP 7105 /07100-5305 +E DCA 7133 /07101-3333 [[ TAD 0107 /07102-1107 IG DCA 7130 /07103-3330 [X JMP 7110 /07104-5310 +H DCA 7133 /07105-3333 [[ TAD 7177 /07106-1377 K? DCA 7130 /07107-3330 [X TAD 0022 /07110-1022 HR AND 0046 /07111-0046 @& SNA CLA /07112-7650 >( JMP 7130 /07113-5330 +X RIF /07114-6224 2T TAD 7176 /07115-1376 K> TAD 7175 /07116-1375 K= DCA 7120 /07117-3320 [P HLT /07120-7402 <B TAD 7133 /07121-1333 K[ JMS I 7132 /07122-4732 'Z ISZ 7076 /07123-2276 R> TAD 0020 /07124-1020 HP CDF 10 /07125-6211 2I DCA I 7174 /07126-3774 _< CDF 0 /07127-6201 2A HLT /07130-7402 <B JMP I 7076 /07131-5676 .> DCA I 0022 /07132-3422 \R AND 0000 /07133-0000 @@ AND 0000 /07134-0000 @@ IOF /07135-6002 0B JMS I 0135 /07136-4535 %] AND 0023 /07137-0023 @S TAD 0024 /07140-1024 HT BSW /07141-7002 8B TAD 7173 /07142-1373 K; DCA I 0103 /07143-3503 ]C JMS I 0135 /07144-4535 %] AND 0001 /07145-0001 @A TAD I 0103 /07146-1503 MC JMS I 0135 /07147-4535 %] AND 0000 /07150-0000 @@ DCA I 0103 /07151-3503 ]C JMS I 0135 /07152-4535 %] AND 0021 /07153-0021 @Q DCA I 0103 /07154-3503 ]C JMS I 0135 /07155-4535 %] AND 0024 /07156-0024 @T DCA I 0103 /07157-3503 ]C JMS I 0142 /07160-4542 %" JMP I 7134 /07161-5734 /\ AND 0000 /07162-0000 @@ CIF 10 /07163-6212 2J JMS I 7166 /07164-4766 '6 JMP I 7162 /07165-5762 /2 TAD 0064 /07166-1064 H4 JMS I 7174 /07167-4774 '< JMP I 7106 /07170-5706 /F TFL /07171-6040 0 CLA RAL /07172-7204 :D AND I 0003 /07173-0403 DC AND 0020 /07174-0020 @P CIF 0 /07175-6202 2B AND 0010 /07176-0010 @H IOF /07177-6002 0B PAGE 35 AND 0000 /07200-0000 @@ CIF CDF 0 /07201-6203 2C CDF 0 /07202-6201 2A AND 0000 /07203-0000 @@ AND 0000 /07204-0000 @@ AND 0000 /07205-0000 @@ MQA MQL CLA DCM /07206-7775 ?= SPA SNA SZL CLA OSR /07207-7774 ?< MQA MQL CLA DPIC /07210-7773 ?; SPA SNA SZL CLA /07211-7770 ?8 SMA SNL /07212-7520 =P AND 0007 /07213-0007 @G AND 7240 /07214-0240 B AND 7260 /07215-0260 B0 AND 7275 /07216-0275 B= AND 7277 /07217-0277 B? AND 7322 /07220-0322 CR AND 7323 /07221-0323 CS AND 0000 /07222-0000 @@ DCA 7200 /07223-3200 Z@ RDF /07224-6214 2L TAD 7201 /07225-1201 JA DCA 7205 /07226-3205 ZE RIF /07227-6224 2T TAD 7202 /07230-1202 JB DCA 7241 /07231-3241 Z! TAD I 7377 /07232-1777 O? SPA CLA /07233-7710 ?H SKP CLA OSR /07234-7614 >L TAD I 7376 /07235-1776 O> DCA 7203 /07236-3203 ZC TAD I 7375 /07237-1775 O= DCA 7204 /07240-3204 ZD HLT /07241-7402 <B TAD 7222 /07242-1222 JR DCA I 7374 /07243-3774 _< TAD 7205 /07244-1205 JE DCA I 7373 /07245-3773 _; TAD 7200 /07246-1200 J@ SZA /07247-7440 < JMP I 7372 /07250-5772 /: JMS I 7371 /07251-4771 '9 TAD 7221 /07252-1221 JQ JMS I 7370 /07253-4770 '8 TAD 7220 /07254-1220 JP JMS I 7370 /07255-4770 '8 TAD 7216 /07256-1216 JN JMS I 7370 /07257-4770 '8 TAD 7207 /07260-1207 JG DCA 7205 /07261-3205 ZE TAD 7203 /07262-1203 JC RAL /07263-7004 8D RAL /07264-7004 8D RTL /07265-7006 8F DCA 7203 /07266-3203 ZC TAD 7203 /07267-1203 JC AND 7213 /07270-0213 BK TAD 7215 /07271-1215 JM JMS I 7370 /07272-4770 '8 TAD 7203 /07273-1203 JC ISZ 7205 /07274-2205 RE JMP 7264 /07275-5264 *4 CLA CLL /07276-7300 ;@ TAD 7210 /07277-1210 JH DCA 7205 /07300-3205 ZE DCA I 7367 /07301-3767 _7 DCA I 7366 /07302-3766 _6 TAD 7214 /07303-1214 JL JMS I 7370 /07304-4770 '8 JMS I 7365 /07305-4765 '5 DCA 7200 /07306-3200 Z@ TAD 7200 /07307-1200 J@ TAD 7364 /07310-1364 K4 SNA /07311-7450 <( JMP I 7363 /07312-5763 /3 TAD 7207 /07313-1207 JG SNA /07314-7450 <( JMP I 7362 /07315-5762 /2 TAD 7206 /07316-1206 JF SNA /07317-7450 <( JMP I 7361 /07320-5761 /1 TAD 7206 /07321-1206 JF SNA CLA /07322-7650 >( JMP I 7360 /07323-5760 /0 TAD 7200 /07324-1200 J@ JMS I 7370 /07325-4770 '8 TAD 7200 /07326-1200 J@ TAD 7212 /07327-1212 JJ SPA /07330-7510 =H JMP 7351 /07331-5351 +) TAD 7211 /07332-1211 JI SMA CLA /07333-7700 ?@ JMP 7351 /07334-5351 +) CLA CMA /07335-7240 : DCA I 7366 /07336-3766 _6 TAD 7200 /07337-1200 J@ AND 7213 /07340-0213 BK DCA 7200 /07341-3200 Z@ TAD I 7367 /07342-1767 O7 CLL RTL /07343-7106 9F RAL /07344-7004 8D TAD 7200 /07345-1200 J@ DCA I 7367 /07346-3767 _7 ISZ 7205 /07347-2205 RE JMP 7305 /07350-5305 +E CLA CLL /07351-7300 ;@ TAD 7217 /07352-1217 JO JMS I 7370 /07353-4770 '8 JMS I 7371 /07354-4771 '9 JMP 7251 /07355-5251 *) NOP /07356-7000 8@ JMS I 0146 /07357-4546 %& SMA SZA /07360-7540 = MQA MQL DVI /07361-7527 =W SAM /07362-7457 </ MQL DST /07363-7465 <5 MQA MQL DCM /07364-7575 == SPA HLT /07365-7512 =J ACS /07366-7403 <C 7400 /07367-7400 <@ SMA /07370-7500 =@ MQA MQL /07371-7521 =Q SNL /07372-7420 <P MQA SCA /07373-7541 =! HLT /07374-7402 <B AND 0024 /07375-0024 @T AND 0020 /07376-0020 @P AND 0021 /07377-0021 @Q PAGE 36 AND 0000 /07400-0000 @@ AND 7473 /07401-0273 B; AND 0000 /07402-0000 @@ AND 0000 /07403-0000 @@ AND 0000 /07404-0000 @@ CC177, AND 0177 /07405-0177 A? CC200, AND 7400 /07406-0200 B@ AND 0077 /07407-0077 @? SMA SZA CLA /07410-7740 ? AND 0100 /07411-0100 A@ CC215, AND 7415 /07412-0215 BM CC212, AND 7412 /07413-0212 BJ AND 7503 /07414-0303 CC AND 7507 /07415-0307 CG AND 7536 /07416-0336 C^ CLA MUY /07417-7605 >E TAD 7577 /07420-1377 K? SNA /07421-7450 <( JMP 7465 /07422-5265 *5 TAD 7576 /07423-1376 K> SNA /07424-7450 <( JMP 7457 /07425-5257 */ TAD 7575 /07426-1375 K= SNA /07427-7450 <( JMP 7455 /07430-5255 *- TAD 7574 /07431-1374 K< SNA /07432-7450 <( JMP 7437 /07433-5237 *_ DCA I 7573 /07434-3773 _; ISZ 7404 /07435-2204 RD JMP 7475 /07436-5275 *= CLA CMA /07437-7240 : DCA 7404 /07440-3204 ZD TAD I 7573 /07441-1773 O; SNA CLA /07442-7650 >( JMP 7541 /07443-5341 +! CLA CMA /07444-7240 : DCA 7404 /07445-3204 ZD JMS READ /07446-4312 #J TAD 7577 /07447-1377 K? SNA /07450-7450 <( JMP 7465 /07451-5265 *5 TAD 7572 /07452-1372 K: SZA CLA /07453-7640 > JMP 7444 /07454-5244 *$ DCA 7404 /07455-3204 ZD JMP 7541 /07456-5341 +! JMS CRLF /07457-4321 #Q TAD 7416 /07460-1216 JN JMS WRITE /07461-4300 #@ TAD 7415 /07462-1215 JM JMS WRITE /07463-4300 #@ JMP I 7571 /07464-5771 /9 DCA 7404 /07465-3204 ZD TAD 7416 /07466-1216 JN JMS WRITE /07467-4300 #@ TAD 7414 /07470-1214 JL JMS WRITE /07471-4300 #@ CIF CDF 0 /07472-6203 2C LXM /07473-6200 2@ JMP I 7417 /07474-5617 .O TAD I 7570 /07475-1770 O8 JMS WRITE /07476-4300 #@ JMP 7541 /07477-5341 +! WRITE, AND 0000 /07500-0000 @@ ISZ 7404 /07501-2204 RD SKP /07502-7410 <H JMP 7444 /07503-5244 *$ TLS /07504-6046 0& TSF /07505-6041 0! JMP 7505 /07506-5305 +E TCF /07507-6042 0" CLA /07510-7200 :@ JMP I WRITE /07511-5700 /@ READ, AND 0000 /07512-0000 @@ KSF /07513-6031 0Y JMP 7513 /07514-5313 +K KRB /07515-6036 0^ AND CC177 /07516-0205 BE TAD CC200 /07517-1206 JF JMP I READ /07520-5712 /J CRLF, AND 0000 /07521-0000 @@ TAD CC215 /07522-1212 JJ JMS WRITE /07523-4300 #@ TAD CC212 /07524-1213 JK JMS WRITE /07525-4300 #@ JMP I CRLF /07526-5721 /Q JMS CRLF /07527-4321 #Q TAD 7541 /07530-1341 K! DCA 7532 /07531-3332 [Z HLT /07532-7402 <B ISZ 7403 /07533-2203 RC JMP I 7401 /07534-5601 .A TAD 7400 /07535-1200 J@ DCA I 7567 /07536-3767 _7 JMP I 7401 /07537-5601 .A JMS CRLF /07540-4321 #Q HLT /07541-7402 <B CLA CLL /07542-7300 ;@ ISZ 7403 /07543-2203 RC JMP I 7402 /07544-5602 .B TAD 7400 /07545-1200 J@ DCA I 7567 /07546-3767 _7 JMP I 7402 /07547-5602 .B DCA 7426 /07550-3226 ZV DCA 0105 /07551-3105 YE DCA 0112 /07552-3112 YJ CLA IAC RAR /07553-7211 :I AND 0000 /07554-0000 @@ AND 0004 /07555-0004 @D AND 0010 /07556-0010 @H AND 0014 /07557-0014 @L AND 0020 /07560-0020 @P AND 0024 /07561-0024 @T AND 0030 /07562-0030 @X AND 0034 /07563-0034 @\ AND 0040 /07564-0040 @ AND 0044 /07565-0044 @$ JMS I 0032 /07566-4432 $Z AND 0020 /07567-0020 @P CLA /07570-7200 :@ CLA CMA IAC RAR /07571-7251 :) SMA SZA SNL CLA HLT /07572-7762 ?2 CLA RAL /07573-7204 :D SPA SNA SZL CLA OSR HLT /07574-7776 ?> SMA SZA SNL CLA OSR HLT /07575-7766 ?6 SPA SNA SZL CLA OSR /07576-7774 ?< MQA MQL DCM /07577-7575 == $