File: DJFPAB.PA of Disk: Disks/Working/MyProgs-22-04-07
(Source file text)
/DJFPAB 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 SINT=6254 CUF=6264 SUF=6274 SDSS=6771 SPL=6102 SBE=6101 CAL=6103 KCF=6030 TFL=6040 TSF=6041 TCF=6042 TPC=6044 TSK=6045 TLS=6046 LBM=6170 RBM=6171 RLB=6162 RMR=6173 MBC=6174 RACA=6175 RACB=6176 RACC=6177 FPINT=6551 FPICL=6552 FPCOM=6553 FPHLT=6554 FPST=6555 FPRST=6556 FPIST=6557 FPEP=6567 FFST=6550 FMODE=6561 FMRB=6563 FMRP=6564 FMDO=6565 /FPP OPCODES: FLDA=0000 FADD=1000 FSUB=2000 FDIV=3000 FMUL=4000 FADDM=5000 FSTA=6000 FMULM=7000 LONG=400 /TWO-WORD ADDRESSING BASE=200 /BASEPAGE ADDRESSING IND=600 /INDIRECT ADDRESSING FEXIT=0000 FNORM=0004 STARTF=0005 STARTD=0006 JAC=0007 ATX=0020 XTA=0030 STARTE=0050 LDX=0100 JA=1030 JNE=1040 TRAP3=3000 LXM=6200 GTS=6210 RTS=6220 RXM=6230 LRR=6240 RRR=6250 LUSR=6260 RUSR=6270 RTM=6304 SKME=6314 SKMM=6324 LTM=6334 LRM=6344 SMME=6364 CMME=6374 /STATI - FPRST FPIST DPMOD=4000 TRPEX=2000 HLTEX=1000 DIVEX=0400 MANOV=0200 EXPOV=0100 EXPUN=0040 MMINS=0020 LOCKO=0010 EPMOD=0004 FPPAU=0002 FPRUN=0001 /COMMANDS - FPCOM DPSEL=4000 EXPEX=2000 MEM4K=1000 FPENA=0400 FPCON=0360 LOCON=0010 FIELD 1 *0000 JMS I 0050 /10000-4450 $( AND 0070 /10001-0070 @8 AND 0000 /10002-0000 @@ 1720 /10003-1720 OP NOP /10004-7000 8@ NOP /10005-7000 8@ NOP /10006-7000 8@ AND I 0022 /10007-0422 DR 2330 /10010-2330 SX 2300 /10011-2300 S@ MQA MQL CLA DPIC /10012-7773 ?; 0303 /10013-0303 CC TAD I 0000 /10014-1400 L@ AND 0000 /10015-0000 @@ 2330 /10016-2330 SX TAD I 0110 /10017-1510 MH SPA SNA CLA OSR HLT /10020-7756 ?. AND I 0011 /10021-0411 DI 2205 /10022-2205 RE 0324 /10023-0324 CT AND 0016 /10024-0016 @N AND 0000 /10025-0000 @@ AND 0016 /10026-0016 @N AND 0016 /10027-0016 @N AND 0016 /10030-0016 @N AND 0000 /10031-0000 @@ CLA /10032-7200 :@ 1660 /10033-1660 N0 SKP OSR /10034-7414 <L 7453 /10035-7453 <+ TAD I 0105 /10036-1505 ME 1242 /10037-1242 J" TAD I 0000 /10040-1400 L@ TAD I 0006 /10041-1406 LF 0600 /10042-0600 F@ AND I 0131 /10043-0531 EY AND I 0105 /10044-0505 EE 1203 /10045-1203 JC 0731 /10046-0731 GY 1322 /10047-1322 KR 1343 /10050-1343 K# XAPTPR, APTPRE /10051-1523 MS XSKFLG, PRSKFG /10052-1634 N\ XSTATC, STATCK /10053-1671 N9 XREGSR, REGSRD /10054-2011 PI 2200 /10055-2200 R@ 2231 /10056-2231 RY 2312 /10057-2312 SJ 2344 /10060-2344 S$ XCHAPT, APTCHK /10061-2471 T9 XIDXCH, IDXCHK /10062-2617 VO ISZ I 0000 /10063-2400 T@ 0747 /10064-0747 G' XENVSE, ENVSET /10065-3055 X- NUMTST, TSTNUM /10066-0122 AR XCODE, CODE /10067-0156 A. XCNSTP, CNTSTP /10070-0145 A% AND 0165 /10071-0165 A5 X6400, C6400 /10072-0167 A7 X7200, 7200 /10073-7200 :@ XAPT, APT /10074-7200 :@ XFPCAD, FPCADR /10075-7201 :A CLA CML /10076-7220 :P CLA CML IAC /10077-7221 :Q INDX7, INDEX+7 /10100-7222 :R AND 0000 /10101-0000 @@ YALL, NALL /10102-0123 AS 2643 /10103-2643 V# 2650 /10104-2650 V( 2655 /10105-2655 V- 2707 /10106-2707 WG 2714 /10107-2714 WL 2721 /10110-2721 WQ 3252 /10111-3252 Z* 3265 /10112-3265 Z5 4511 /10113-4511 %I 3240 /10114-3240 Z 2502 /10115-2502 UB 3544 /10116-3544 ]$ AND 0000 /10117-0000 @@ AND 0000 /10120-0000 @@ AND 0000 /10121-0000 @@ AND 0000 /10122-0000 @@ AND 0000 /10123-0000 @@ AND 0000 /10124-0000 @@ AND 0000 /10125-0000 @@ AND 0000 /10126-0000 @@ AND 0000 /10127-0000 @@ AND 0000 /10130-0000 @@ AND 0000 /10131-0000 @@ AND 0000 /10132-0000 @@ AND 0000 /10133-0000 @@ AND 0000 /10134-0000 @@ AND 0000 /10135-0000 @@ AND 0000 /10136-0000 @@ AND 0000 /10137-0000 @@ AND 0000 /10140-0000 @@ AND 0000 /10141-0000 @@ TAD I 0141 /10142-1541 M! DCA 0166 /10143-3166 Y6 TAD 0177 /10144-1177 I? DCA 0010 /10145-3010 XH DCA 0011 /10146-3011 XI CLA CLL CMA RTL /10147-7346 ;& DCA 0123 /10150-3123 YS RIF /10151-6224 2T TAD 0155 /10152-1155 I- DCA 0157 /10153-3157 Y/ TAD I 0010 /10154-1410 LH CDF 0 /10155-6201 2A DCA I 0011 /10156-3411 \I CDF 0 /10157-6201 2A ISZ 0123 /10160-2123 QS JMP 0154 /10161-5154 ), ISZ 0141 /10162-2141 Q! JMP I 0141 /10163-5541 -! RMF /10164-6244 2$ JMP I 0003 /10165-5403 ,C AND 0000 /10166-0000 @@ AND I 0007 /10167-0407 DG TAD I 0103 /10170-1503 MC AND 0102 /10171-0102 AB 2326 /10172-2326 SV 2570 /10173-2570 U8 7772 /10174-7772 ?: 0410 /10175-0410 DH 1320 /10176-1320 KP AND 0163 /10177-0163 A3 TST20X, FPICL /10200-6552 5* TAD (20 /10201-1377 K? CDF 0 /10202-6201 2A DCA I NUMTST /10203-3466 \6 TAD (242 /10204-1376 K> DCA I XCODE /10205-3467 \7 DCA I XCNSTP /10206-3470 \8 CDF 10 /10207-6211 2I CIF 0 /10210-6202 2B JMS I XAPTPR /10211-4451 $) CDF 0 /10212-6201 2A CLA IAC /10213-7201 :A DCA I XAPT /10214-3474 \< TAD 0375 /10215-1375 K= DCA I XFPCAD /10216-3475 \= TAD I X6400 /10217-1472 L: FPCOM /10220-6553 5+ CLA /10221-7200 :@ TAD 0374 /10222-1374 K< DCA I INDX7 /10223-3500 ]@ CDF 10 /10224-6211 2I TAD X7200 /10225-1073 H; FPST /10226-6555 5- SKP /10227-7410 <H JMP 0234 /10230-5234 *\ CIF 0 /10231-6202 2B JMS I XSKFLG /10232-4452 $* JMP 0200 /10233-5200 *@ DCA 0101 /10234-3101 YA ISZ 0101 /10235-2101 QA JMP 0235 /10236-5235 *] CIF 0 /10237-6202 2B JMS I XSKFLG /10240-4452 $* JMP 0200 /10241-5200 *@ CIF 0 /10242-6202 2B JMS I XSTATC /10243-4453 $+ JMS 0000 /10244-4000 @ JMP 0200 /10245-5200 *@ CIF 0 /10246-6202 2B JMS I XCHAPT /10247-4461 $1 TAD 0001 /10250-1001 HA TAD I 0273 /10251-1673 N; CLA IAC RTR /10252-7213 :K 7237 /10253-7237 :_ TAD I 0262 /10254-1662 N2 AND 0001 /10255-0001 @A MQA MQL CLA SAM /10256-7777 ?? JMP I 0377 /10257-5777 /? AND 0004 /10260-0004 @D AND 0005 /10261-0005 @E AND 0006 /10262-0006 @F JMP 0200 /10263-5200 *@ FPICL /10264-6552 5* CIF 0 /10265-6202 2B JMS I XAPTPR /10266-4451 $) CDF 0 /10267-6201 2A TAD 0373 /10270-1373 K; DCA I XCODE /10271-3467 \7 CLA IAC /10272-7201 :A DCA I XAPT /10273-3474 \< TAD 0372 /10274-1372 K: DCA I XFPCAD /10275-3475 \= TAD I 0071 /10276-1471 L9 FPCOM /10277-6553 5+ CLA /10300-7200 :@ TAD 0371 /10301-1371 K9 DCA I 0077 /10302-3477 \? CDF 10 /10303-6211 2I TAD X7200 /10304-1073 H; FPST /10305-6555 5- SKP /10306-7410 <H JMP 0313 /10307-5313 +K CIF 0 /10310-6202 2B JMS I XSKFLG /10311-4452 $* JMP 0264 /10312-5264 *4 DCA 0101 /10313-3101 YA ISZ 0101 /10314-2101 QA JMP 0314 /10315-5314 +L CIF 0 /10316-6202 2B JMS I XSKFLG /10317-4452 $* JMP 0264 /10320-5264 *4 CIF 0 /10321-6202 2B JMS I XSTATC /10322-4453 $+ AND 0010 /10323-0010 @H JMP 0264 /10324-5264 *4 CIF 0 /10325-6202 2B JMS I XCHAPT /10326-4461 $1 AND 0001 /10327-0001 @A TAD I 0277 /10330-1677 N? CLA IAC RTR /10331-7213 :K CLA CMA IAC RAL /10332-7245 :% 7356 /10333-7356 ;. DCA I 0377 /10334-3777 _? DCA I 0377 /10335-3777 _? MQA MQL CLA SAM /10336-7777 ?? AND 0004 /10337-0004 @D AND 0005 /10340-0005 @E AND 0006 /10341-0006 @F JMP 0200 /10342-5200 *@ JMP I 0370 /10343-5770 /8 ISZ 0014 /10344-2014 PL DCA 0205 /10345-3205 ZE AND 0070 /10346-0070 @8 SPA CLA /10347-7710 ?H TAD I 0001 /10350-1401 LA JMP I 0226 /10351-5626 .V AND 0007 /10352-0007 @G DCA I 0300 /10353-3700 _@ DCA 0023 /10354-3023 XS 7600 /10355-7600 >@ AND 0171 /10356-0171 A9 DCA I 0117 /10357-3517 ]O ISZ I 0073 /10360-2473 T; 6141 /10361-6141 1! AND I 0200 /10362-0600 F@ DCA I 0001 /10363-3401 \A CLA RAL /10364-7204 :D LRM /10365-6344 3$ ISZ 0215 /10366-2215 RM ISZ 0223 /10367-2223 RS AND I 0000 /10370-0400 D@ AND 0006 /10371-0006 @F TAD I 0273 /10372-1673 N; AND 0321 /10373-0321 CQ AND 0005 /10374-0005 @E TAD I 0267 /10375-1667 N7 /AND 0242 /10376-0242 B" /AND 0020 /10377-0020 @P PAGE FPICL /10400-6552 5* CIF 0 /10401-6202 2B JMS I XAPTPR /10402-4451 $) CDF 0 /10403-6201 2A TAD 0577 /10404-1377 K? DCA I XCODE /10405-3467 \7 CLA IAC /10406-7201 :A DCA I XAPT /10407-3474 \< TAD 0576 /10410-1376 K> DCA I XFPCAD /10411-3475 \= TAD I 0071 /10412-1471 L9 FPCOM /10413-6553 5+ CLA CLL CML RAR /10414-7330 ;X FPEP /10415-6567 57 TAD 0575 /10416-1375 K= DCA I 0076 /10417-3476 \> CDF 10 /10420-6211 2I TAD X7200 /10421-1073 H; FPST /10422-6555 5- SKP /10423-7410 <H JMP 0430 /10424-5230 *X CIF 0 /10425-6202 2B JMS I XSKFLG /10426-4452 $* JMP 0400 /10427-5200 *@ DCA 0101 /10430-3101 YA ISZ 0101 /10431-2101 QA JMP 0431 /10432-5231 *Y CIF 0 /10433-6202 2B JMS I XSKFLG /10434-4452 $* JMP 0400 /10435-5200 *@ CIF 0 /10436-6202 2B JMS I XSTATC /10437-4453 $+ AND 0014 /10440-0014 @L JMP 0400 /10441-5200 *@ CIF 0 /10442-6202 2B JMS I XCHAPT /10443-4461 $1 TAD 0001 /10444-1001 HA TAD I 0503 /10445-1703 OC CLA IAC RTR /10446-7213 :K CLA CMA CML IAC RTL /10447-7267 :7 TAD I 0463 /10450-1663 N3 MQA MQL CLA SAM /10451-7777 ?? JMP I 0577 /10452-5777 /? MQA MQL CLA SAM /10453-7777 ?? TAD 0010 /10454-1010 HH AND 0402 /10455-0202 BB DCA 0030 /10456-3030 XX JMP 0400 /10457-5200 *@ CDF 0 /10460-6201 2A TAD I YALL /10461-1502 MB CDF 10 /10462-6211 2I SZA CLA /10463-7640 > JMP I 0574 /10464-5774 /< JMP I 0573 /10465-5773 /; JMS I 0050 /10466-4450 $( JMS I 0075 /10467-4475 $= SKP /10470-7410 <H JMS I 0050 /10471-4450 $( JMS I 0047 /10472-4447 $' JMS I 0046 /10473-4446 $& TAD 0575 /10474-1375 K= DCA 0140 /10475-3140 Y JMS I 0055 /10476-4455 $- JMS I 0111 /10477-4511 %I JMS I 0100 /10500-4500 %@ ION /10501-6001 0A JMS I 0102 /10502-4502 %B JMS I 0103 /10503-4503 %C JMS I 0050 /10504-4450 $( JMS I 0107 /10505-4507 %G SKP CLA /10506-7610 >H JMS I 0050 /10507-4450 $( JMS I 0060 /10510-4460 $0 CLA CLL IAC /10511-7301 ;A JMS I 0100 /10512-4500 %@ JMS I 0056 /10513-4456 $. JMS I 0103 /10514-4503 %C JMS I 0050 /10515-4450 $( JMS I 0107 /10516-4507 %G JMS I 0050 /10517-4450 $( CLA /10520-7200 :@ ISZ 0117 /10521-2117 QO JMS I 0050 /10522-4450 $( DCA 0117 /10523-3117 YO JMS I 0100 /10524-4500 %@ ION /10525-6001 0A JMS I 0103 /10526-4503 %C JMS I 0050 /10527-4450 $( JMS I 0107 /10530-4507 %G SKP CLA /10531-7610 >H JMS I 0050 /10532-4450 $( JMS I 0104 /10533-4504 %D JMS I 0103 /10534-4503 %C SKP CLA /10535-7610 >H JMS I 0050 /10536-4450 $( JMS I 0075 /10537-4475 $= SKP CLA /10540-7610 >H JMS I 0050 /10541-4450 $( JMS I 0047 /10542-4447 $' AND 0000 /10543-0000 @@ AND 0000 /10544-0000 @@ AND 0000 /10545-0000 @@ AND 0000 /10546-0000 @@ AND 0000 /10547-0000 @@ AND 0000 /10550-0000 @@ AND 0000 /10551-0000 @@ AND 0000 /10552-0000 @@ AND 0000 /10553-0000 @@ AND 0000 /10554-0000 @@ AND 0000 /10555-0000 @@ AND 0000 /10556-0000 @@ AND 0000 /10557-0000 @@ AND 0000 /10560-0000 @@ AND 0000 /10561-0000 @@ AND 0000 /10562-0000 @@ AND 0000 /10563-0000 @@ AND 0000 /10564-0000 @@ AND 0000 /10565-0000 @@ AND 0000 /10566-0000 @@ AND 0000 /10567-0000 @@ AND 0000 /10570-0000 @@ AND 0000 /10571-0000 @@ AND 0000 /10572-0000 @@ AND I 0400 /10573-0600 F@ AND 0400 /10574-0200 B@ AND 0006 /10575-0006 @F TAD I 0477 /10576-1677 N? AND I 0036 /10577-0436 D^ TST21X, FPICL /10600-6552 5* CIF 0 /10601-6202 2B JMS I XENVSE /10602-4465 $5 AND 0021 /10603-0021 @Q TSTNUM AND I 0621 /10604-0621 FQ CODE AND 0000 /10605-0000 @@ MCODE AND 0000 /10606-0000 @@ FPCF SZA OSR HLT /10607-7446 <& FPCADR 6400 /10610-6400 4@ FPCOM AND 0000 /10611-0000 @@ FPEP JMP 0600 /10612-5200 *@ DCA 0101 /10613-3101 YA ISZ 0101 /10614-2101 QA JMP 0614 /10615-5214 *L CIF 0 /10616-6202 2B JMS I XSKFLG /10617-4452 $* JMP 0600 /10620-5200 *@ CIF 0 /10621-6202 2B JMS I XSTATC /10622-4453 $+ JMS 0600 /10623-4200 "@ JMP 0600 /10624-5200 *@ CIF 0 /10625-6202 2B JMS I XCHAPT /10626-4461 $1 AND 0000 /10627-0000 @@ 7453 /10630-7453 <+ CLA IAC RTR /10631-7213 :K 7234 /10632-7234 :\ 7455 /10633-7455 <- AND 0001 /10634-0001 @A JMS 0000 /10635-4000 @ AND 0000 /10636-0000 @@ AND 0004 /10637-0004 @D AND 0005 /10640-0005 @E AND 0006 /10641-0006 @F JMP 0600 /10642-5200 *@ CIF 0 /10643-6202 2B JMS I XENVSE /10644-4465 $5 AND 0021 /10645-0021 @Q TSTNUM AND I 0663 /10646-0663 F3 CODE AND 0000 /10647-0000 @@ MCODE AND 0000 /10650-0000 @@ FPCF SNA OSR HLT /10651-7456 <. FPCADR ISZ I 0010 /10652-2410 TH FPCOM AND 0000 /10653-0000 @@ FPEP JMP 0600 /10654-5200 *@ DCA 0101 /10655-3101 YA ISZ 0101 /10656-2101 QA JMP 0656 /10657-5256 *. CIF 0 /10660-6202 2B JMS I XSKFLG /10661-4452 $* JMP 0600 /10662-5200 *@ CIF 0 /10663-6202 2B JMS I XSTATC /10664-4453 $+ AND 0110 /10665-0110 AH JMP 0600 /10666-5200 *@ CIF 0 /10667-6202 2B JMS I XCHAPT /10670-4461 $1 AND 0000 /10671-0000 @@ 7465 /10672-7465 <5 CLA IAC RTR /10673-7213 :K 7234 /10674-7234 :\ 7473 /10675-7473 <; JMS 0000 /10676-4000 @ ISZ I 0125 /10677-2525 UU ISZ I 0125 /10700-2525 UU AND 0004 /10701-0004 @D AND 0005 /10702-0005 @E AND 0006 /10703-0006 @F JMP 0600 /10704-5200 *@ CIF 0 /10705-6202 2B JMS I XENVSE /10706-4465 $5 AND 0021 /10707-0021 @Q TSTNUM AND I 0725 /10710-0725 GU CODE AND 0000 /10711-0000 @@ MCODE AND 0000 /10712-0000 @@ FPCF SNA SZL OSR /10713-7474 << FPCADR ISZ I 0010 /10714-2410 TH FPCOM JMS 0000 /10715-4000 @ FPEP JMP 0600 /10716-5200 *@ DCA 0101 /10717-3101 YA ISZ 0101 /10720-2101 QA JMP 0720 /10721-5320 +P CIF 0 /10722-6202 2B JMS I XSKFLG /10723-4452 $* JMP 0600 /10724-5200 *@ CIF 0 /10725-6202 2B JMS I XSTATC /10726-4453 $+ AND 0054 /10727-0054 @, JMP 0600 /10730-5200 *@ CIF 0 /10731-6202 2B JMS I XCHAPT /10732-4461 $1 AND 0000 /10733-0000 @@ MQA /10734-7501 =A CLA IAC RTR /10735-7213 :K 7234 /10736-7234 :\ SPA HLT /10737-7512 =J JMS 0001 /10740-4001 A ISZ 0622 /10741-2222 RR ISZ 0622 /10742-2222 RR ISZ 0622 /10743-2222 RR ISZ 0622 /10744-2222 RR ISZ 0623 /10745-2223 RS JMP 0600 /10746-5200 *@ CDF 0 /10747-6201 2A TAD I YALL /10750-1502 MB CDF 10 /10751-6211 2I SZA CLA /10752-7640 > JMP 0600 /10753-5200 *@ JMP I 0777 /10754-5777 /? JMP I 0750 /10755-5750 /( AND 0000 /10756-0000 @@ CLA /10757-7200 :@ AND I 0777 /10760-0777 G? CLA CML IAC RTR /10761-7233 :[ 6544 /10762-6544 5$ CLA CML IAC RAR /10763-7231 :Y AND 0037 /10764-0037 @_ CLA CMA RTR /10765-7252 :* CLA CLL /10766-7300 ;@ AND 0007 /10767-0007 @G JMS I 0106 /10770-4506 %F JMS I 0050 /10771-4450 $( ION /10772-6001 0A NOP /10773-7000 8@ AND 0017 /10774-0017 @O DCA 0124 /10775-3124 YT AND 0006 /10776-0006 @F TAD 0000 /10777-1000 H@ TST22X, FPICL /11000-6552 5* DCA 0101 /11001-3101 YA CIF 0 /11002-6202 2B JMS I XENVSE /11003-4465 $5 AND 0022 /11004-0022 @R TSTNUM TAD 0107 /11005-1107 IG CODE AND 0000 /11006-0000 @@ MCODE AND 0001 /11007-0001 @A FPCF TAD 0137 /11010-1137 I_ FPCADR ISZ I 0010 /11011-2410 TH FPCOM JMS 0000 /11012-4000 @ FPEP JMP 1000 /11013-5200 *@ FPRST /11014-6556 5. AND 1177 /11015-0377 C? SZA CLA /11016-7640 > JMP 1025 /11017-5225 *U ISZ 0101 /11020-2101 QA JMP 1014 /11021-5214 *L CIF 0 /11022-6202 2B JMS I XSKFLG /11023-4452 $* JMP 1000 /11024-5200 *@ CIF 0 /11025-6202 2B JMS I XIDXCH /11026-4462 $2 AND 0000 /11027-0000 @@ MQA CLA /11030-7701 ?A AND 0000 /11031-0000 @@ AND 0000 /11032-0000 @@ AND 0000 /11033-0000 @@ AND 0000 /11034-0000 @@ AND 0000 /11035-0000 @@ AND 0077 /11036-0077 @? JMP 1000 /11037-5200 *@ DCA 0101 /11040-3101 YA FPST /11041-6555 5- SKP /11042-7410 <H JMP 1047 /11043-5247 *' CIF 0 /11044-6202 2B JMS I XSKFLG /11045-4452 $* JMP 1000 /11046-5200 *@ FPRST /11047-6556 5. AND 1177 /11050-0377 C? SZA CLA /11051-7640 > JMP 1060 /11052-5260 *0 ISZ 0101 /11053-2101 QA JMP 1047 /11054-5247 *' CIF 0 /11055-6202 2B JMS I XSKFLG /11056-4452 $* JMP 1000 /11057-5200 *@ CIF 0 /11060-6202 2B JMS I XIDXCH /11061-4462 $2 AND 0000 /11062-0000 @@ AND 0000 /11063-0000 @@ AND 0000 /11064-0000 @@ AND 0000 /11065-0000 @@ AND 0000 /11066-0000 @@ AND 0000 /11067-0000 @@ AND 0000 /11070-0000 @@ MQA MQL CLA SAM /11071-7777 ?? JMP 1000 /11072-5200 *@ DCA 0101 /11073-3101 YA FPST /11074-6555 5- SKP /11075-7410 <H JMP 1102 /11076-5302 +B CIF 0 /11077-6202 2B JMS I XSKFLG /11100-4452 $* JMP 1000 /11101-5200 *@ ISZ 0101 /11102-2101 QA JMP 1102 /11103-5302 +B CIF 0 /11104-6202 2B JMS I XSKFLG /11105-4452 $* JMP 1000 /11106-5200 *@ CIF 0 /11107-6202 2B JMS I XSTATC /11110-4453 $+ AND 0014 /11111-0014 @L JMP 1000 /11112-5200 *@ CIF 0 /11113-6202 2B JMS I XCHAPT /11114-4461 $1 AND 0001 /11115-0001 @A TAD 0160 /11116-1160 I0 CLA IAC RTR /11117-7213 :K CLA CML IAC BSW /11120-7223 :S CLA CML BSW /11121-7222 :R AND 0001 /11122-0001 @A AND 0002 /11123-0002 @B AND 0003 /11124-0003 @C AND 0004 /11125-0004 @D AND 0005 /11126-0005 @E AND 0006 /11127-0006 @F JMP 1000 /11130-5200 *@ CDF 0 /11131-6201 2A TAD I YALL /11132-1502 MB CDF 10 /11133-6211 2I SZA CLA /11134-7640 > JMP 1000 /11135-5200 *@ JMP I 1176 /11136-5776 /> AND 0101 /11137-0101 AA MQA CLA /11140-7701 ?A AND 0107 /11141-0107 AG AND 0077 /11142-0077 @? AND 0001 /11143-0001 @A AND 0111 /11144-0111 AI AND 0077 /11145-0077 @? AND 0117 /11146-0117 AO SMA CLA /11147-7700 ?@ AND 0001 /11150-0001 @A ISZ 0111 /11151-2111 QI TAD 0155 /11152-1155 I- JMS 0001 /11153-4001 A TAD 0153 /11154-1153 I+ ISZ 0171 /11155-2171 Q9 TAD 0160 /11156-1160 I0 AND 0000 /11157-0000 @@ JMS 0001 /11160-4001 A TAD 0160 /11161-1160 I0 TAD I 0031 /11162-1431 LY JMP 0015 /11163-5015 (M TAD I 1116 /11164-1716 ON MQL LSR /11165-7437 <_ DCA I 1137 /11166-3737 __ CLA DVI /11167-7607 >G CMA RAR /11170-7050 8( JMP 0000 /11171-5000 (@ JMP 0124 /11172-5124 )T ISZ I 0116 /11173-2516 UN JMS I 0074 /11174-4474 $< AND 0012 /11175-0012 @J TAD 1000 /11176-1200 J@ AND 0002 /11177-0002 @B TST23X, CLA /11200-7200 :@ FPICL /11201-6552 5* TAD 1342 /11202-1342 K" DCA 1351 /11203-3351 [) TAD 1343 /11204-1343 K# DCA 1353 /11205-3353 [+ TAD 1344 /11206-1344 K$ DCA 1355 /11207-3355 [- TAD 1200 /11210-1200 J@ DCA 0161 /11211-3161 Y1 TAD 1346 /11212-1346 K& DCA 1345 /11213-3345 [% TAD 1377 /11214-1377 K? DCA 1225 /11215-3225 ZU TAD 1225 /11216-1225 JU DCA 1246 /11217-3246 Z& CIF 0 /11220-6202 2B JMS I XENVSE /11221-4465 $5 AND 0023 /11222-0023 @S TSTNUM TAD 1240 /11223-1240 J CODE AND 0000 /11224-0000 @@ MCODE AND 0001 /11225-0001 @A FPCF TAD 1351 /11226-1351 K) FPCADR ISZ I 0010 /11227-2410 TH FPCOM JMS 0000 /11230-4000 @ FPEP JMP 1200 /11231-5200 *@ DCA 0101 /11232-3101 YA ISZ 0101 /11233-2101 QA JMP 1233 /11234-5233 *[ CIF 0 /11235-6202 2B JMS I XSKFLG /11236-4452 $* JMP 1200 /11237-5200 *@ CIF 0 /11240-6202 2B JMS I XSTATC /11241-4453 $+ ISZ 0014 /11242-2014 PL JMP 1200 /11243-5200 *@ CIF 0 /11244-6202 2B JMS I XCHAPT /11245-4461 $1 AND 0001 /11246-0001 @A TAD 1357 /11247-1357 K/ CLA IAC RTR /11250-7213 :K CLA CML IAC BSW /11251-7223 :S TAD 1355 /11252-1355 K- AND 0001 /11253-0001 @A AND 0002 /11254-0002 @B AND 0003 /11255-0003 @C AND 0004 /11256-0004 @D AND 0005 /11257-0005 @E AND 0006 /11260-0006 @F JMP 1200 /11261-5200 *@ NOP /11262-7000 8@ ISZ 1353 /11263-2353 S+ TAD 1246 /11264-1246 J& TAD 1376 /11265-1376 K> DCA 1246 /11266-3246 Z& TAD 1246 /11267-1246 J& DCA 1225 /11270-3225 ZU ISZ 1345 /11271-2345 S% JMP 1220 /11272-5220 *P CLA IAC /11273-7201 :A DCA 1246 /11274-3246 Z& TAD 1343 /11275-1343 K# DCA 1353 /11276-3353 [+ TAD 1346 /11277-1346 K& DCA 1345 /11300-3345 [% TAD 1347 /11301-1347 K' DCA 1262 /11302-3262 Z2 ISZ 1351 /11303-2351 S) TAD 1375 /11304-1375 K= TAD 1246 /11305-1246 J& DCA 1246 /11306-3246 Z& TAD 1246 /11307-1246 J& DCA 1225 /11310-3225 ZU ISZ 1345 /11311-2345 S% JMP 1220 /11312-5220 *P CLA IAC /11313-7201 :A DCA 1246 /11314-3246 Z& TAD 1342 /11315-1342 K" DCA 1351 /11316-3351 [) TAD 1346 /11317-1346 K& DCA 1345 /11320-3345 [% TAD 1350 /11321-1350 K( DCA 1262 /11322-3262 Z2 ISZ 1355 /11323-2355 S- TAD 1374 /11324-1374 K< TAD 1246 /11325-1246 J& DCA 1246 /11326-3246 Z& TAD 1246 /11327-1246 J& DCA 1225 /11330-3225 ZU ISZ 1345 /11331-2345 S% JMP 1220 /11332-5220 *P CDF 0 /11333-6201 2A TAD I YALL /11334-1502 MB CDF 10 /11335-6211 2I SZA CLA /11336-7640 > JMP 1200 /11337-5200 *@ CIF CDF 0 /11340-6203 2C JMP I 1373 /11341-5773 /; TAD 0110 /11342-1110 IH TAD 0100 /11343-1100 I@ JMS 0000 /11344-4000 @ JMS 0000 /11345-4000 @ MQA MQL CLA DPSZ /11346-7771 ?9 JMP 1303 /11347-5303 +C JMP 1323 /11350-5323 +S TAD 0110 /11351-1110 IH CLA CML IAC BSW /11352-7223 :S TAD 0100 /11353-1100 I@ CLA IAC RTR /11354-7213 :K JMS 0000 /11355-4000 @ TAD 1355 /11356-1355 K- JMS I 0047 /11357-4447 $' AND 0077 /11360-0077 @? AND 1241 /11361-0241 B! ISZ 0031 /11362-2031 PY DCA I XCNSTP /11363-3470 \8 6400 /11364-6400 4@ MQA MQL CLA DCM /11365-7775 ?= 6737 /11366-6737 7_ AND 0017 /11367-0017 @O AND 0125 /11370-0125 AU AND 1252 /11371-0252 B* AND 0016 /11372-0016 @N DCA 0000 /11373-3000 X@ TAD 0000 /11374-1000 H@ AND 0100 /11375-0100 A@ AND 0010 /11376-0010 @H AND 0001 /11377-0001 @A TST24X, CLA /11400-7200 :@ TAD 1577 /11401-1377 K? DCA 0011 /11402-3011 XI TAD 1576 /11403-1376 K> DCA 0012 /11404-3012 XJ TAD 1575 /11405-1375 K= DCA 1467 /11406-3267 Z7 TAD I 0011 /11407-1411 LI CDF 0 /11410-6201 2A DCA I 0012 /11411-3412 \J CDF 10 /11412-6211 2I ISZ 1467 /11413-2267 R7 JMP 1407 /11414-5207 *G TAD 1574 /11415-1374 K< CDF 0 /11416-6201 2A DCA I XCODE /11417-3467 \7 CDF 10 /11420-6211 2I FPICL /11421-6552 5* FMODE /11422-6561 51 CIF 0 /11423-6202 2B JMS I 0036 /11424-4436 $^ AND 1573 /11425-0373 C; CMA IAC /11426-7041 8! DCA 1467 /11427-3267 Z7 TAD 1471 /11430-1271 J9 FPCOM /11431-6553 5+ CLA /11432-7200 :@ TAD 1472 /11433-1272 J: SZA /11434-7440 < FPEP /11435-6567 57 CLA /11436-7200 :@ TAD X7200 /11437-1073 H; FPST /11440-6555 5- NOP /11441-7000 8@ FMDO /11442-6565 55 ISZ 1467 /11443-2267 R7 JMP 1442 /11444-5242 *" CIF 0 /11445-6202 2B JMS I 0036 /11446-4436 $^ SPA CLA /11447-7710 ?H JMP 1460 /11450-5260 *0 FMRP /11451-6564 54 MQL /11452-7421 <Q CLA /11453-7200 :@ FMRB /11454-6563 53 ISZ 1470 /11455-2270 R8 JMP 1455 /11456-5255 *- JMP 1400 /11457-5200 *@ FPHLT /11460-6554 5, FMDO /11461-6565 55 FMDO /11462-6565 55 FMDO /11463-6565 55 FMDO /11464-6565 55 FMDO /11465-6565 55 JMP 1400 /11466-5200 *@ AND 0000 /11467-0000 @@ AND 0000 /11470-0000 @@ ISZ I 1570 /11471-2770 W8 AND 0000 /11472-0000 @@ AND 0001 /11473-0001 @A TAD I 0106 /11474-1506 MF CLA IAC RTR /11475-7213 :K CLA CML IAC BSW /11476-7223 :S AND 0000 /11477-0000 @@ AND 0001 /11500-0001 @A AND 0002 /11501-0002 @B AND 0003 /11502-0003 @C AND 0004 /11503-0004 @D AND 0005 /11504-0005 @E AND 0006 /11505-0006 @F AND 0000 /11506-0000 @@ AND 0000 /11507-0000 @@ AND 0000 /11510-0000 @@ AND 0000 /11511-0000 @@ AND 0000 /11512-0000 @@ AND 0000 /11513-0000 @@ AND 0000 /11514-0000 @@ TAD I 1573 /11515-1773 O; DCA 1470 /11516-3270 Z8 TAD 1470 /11517-1270 J8 TAD 1572 /11520-1372 K: DCA 1471 /11521-3271 Z9 TAD 1470 /11522-1270 J8 TAD 1571 /11523-1371 K9 DCA 1472 /11524-3272 Z: TAD 1470 /11525-1270 J8 TAD 1570 /11526-1370 K8 DCA 1473 /11527-3273 Z; TAD I 1471 /11530-1671 N9 CMA IAC /11531-7041 8! TAD 1467 /11532-1267 J7 SZA CLA /11533-7640 > JMP 1474 /11534-5274 *< TAD I 1472 /11535-1672 N: CMA IAC /11536-7041 8! TAD 1466 /11537-1266 J6 SPA CLA /11540-7710 ?H JMP 1474 /11541-5274 *< TAD I 1473 /11542-1673 N; CMA IAC /11543-7041 8! TAD 1466 /11544-1266 J6 SMA SZA CLA /11545-7740 ? JMP 1474 /11546-5274 *< JMS 0141 /11547-4141 !! LXM /11550-6200 2@ JMS I 0047 /11551-4447 $' AND 0000 /11552-0000 @@ AND 0000 /11553-0000 @@ AND 0000 /11554-0000 @@ AND 0000 /11555-0000 @@ AND 0000 /11556-0000 @@ AND 0000 /11557-0000 @@ JMS 1430 /11560-4230 "X JMS 1430 /11561-4230 "X JMS 1430 /11562-4230 "X JMS 1430 /11563-4230 "X JMS 1430 /11564-4230 "X JMS 1430 /11565-4230 "X JMS 1450 /11566-4250 "( JMS 1450 /11567-4250 "( TAD I 1440 /11570-1640 N TAD I 1420 /11571-1620 NP TAD I 1400 /11572-1600 N@ DCA I 1577 /11573-3777 _? TAD I 0000 /11574-1400 L@ MQA MQL CLA SWBA /11575-7767 ?7 7177 /11576-7177 9? TAD I 0072 /11577-1472 L: FPCA4, 0001 /FPAUSE /11600-0001 @A 0002 /FCLA /11601-0002 @B 0000 /FEXIT /11602-0000 @@ 0050 /STARTE /11603-0050 @( 4001 /TRAP4 1 /11604-4001 A 1604 / 1604 /11605-1604 ND FPCA10, 0032 /XTA 2 /11606-0032 @Z 0040 /FNOP /11607-0040 @ 3001 /TRAP3 1 /11610-3001 XA 1610 / 1610 /11611-1610 NH 0000 /FEXIT /11612-0000 @@ AND 0000 /11613-0000 @@ TAD 0131 /11614-1131 IY TAD I 1612 /11615-1612 NJ AND 0000 /11616-0000 @@ AND I 0001 /11617-0401 DA TAD I 1661 /11620-1661 N1 TAD 0001 /11621-1001 HA TAD I 1657 /11622-1657 N/ TAD 0011 /11623-1011 HI TAD I 1655 /11624-1655 N- TAD 0021 /11625-1021 HQ TAD I 1631 /11626-1631 NY DCA 0000 /11627-3000 X@ TAD I 1627 /11630-1627 NW TAD 0041 /11631-1041 H! TAD I 1635 /11632-1635 N] DCA 0000 /11633-3000 X@ TAD I 1633 /11634-1633 N[ TAD 0051 /11635-1051 H) TAD I 1641 /11636-1641 N! DCA 0000 /11637-3000 X@ TAD I 1637 /11640-1637 N_ TAD 0061 /11641-1061 H1 TAD I 1653 /11642-1653 N+ TAD 0071 /11643-1071 H9 TAD I 1651 /11644-1651 N) TAD 0030 /11645-1030 HX CLA CLL CML RAL /11646-7324 ;T DCA 0000 /11647-3000 X@ TAD I 1647 /11650-1647 N' DCA 0000 /11651-3000 X@ TAD I 1651 /11652-1651 N) DCA 0000 /11653-3000 X@ TAD I 1653 /11654-1653 N+ DCA 0000 /11655-3000 X@ TAD I 1655 /11656-1655 N- DCA 0000 /11657-3000 X@ TAD I 1657 /11660-1657 N/ MQA MQL CLA SAM /11661-7777 ?? JMP I 1777 /11662-5777 /? MQA MQL CLA SAM /11663-7777 ?? TAD 0010 /11664-1010 HH AND 1602 /11665-0202 BB DCA 0030 /11666-3030 XX TAD 0110 /11667-1110 IH 7237 /11670-7237 :_ AND I 1777 /11671-0777 G? AND 0000 /11672-0000 @@ TAD 0110 /11673-1110 IH CLA CMA IAC RAL /11674-7245 :% AND I 1666 /11675-0666 F6 AND 0000 /11676-0000 @@ TAD 0110 /11677-1110 IH CLA CMA CML IAC RTL /11700-7267 :7 AND I 1651 /11701-0651 F) AND 0000 /11702-0000 @@ MCOD2, 1700 /11703-1700 O@ 0000 /11704-0000 @@ TAD I 1701 /11705-1701 OA AND 0000 /11706-0000 @@ TAD I 1702 /11707-1702 OB MQA MQL CLA SAM /11710-7777 ?? TAD I 1703 /11711-1703 OC AND 0000 /11712-0000 @@ TAD I 1704 /11713-1704 OD AND 0001 /11714-0001 @A TAD I 1705 /11715-1705 OE SPA SNA SZL CLA OSR HLT /11716-7776 ?> TAD I 1706 /11717-1706 OF AND 0002 /11720-0002 @B TAD I 1707 /11721-1707 OG MQA MQL CLA DPIC /11722-7773 ?; TAD I 1710 /11723-1710 OH AND 0003 /11724-0003 @C TAD I 1711 /11725-1711 OI SPA SNA SZL CLA HLT /11726-7772 ?: TAD I 1712 /11727-1712 OJ AND 0014 /11730-0014 @L TAD I 1713 /11731-1713 OK SMA SZA SNL CLA OSR /11732-7764 ?4 TAD I 1714 /11733-1714 OL ISZ 0000 /11734-2000 P@ TAD I 1715 /11735-1715 OM MQA CLA DPSZ /11736-7751 ?) TAD I 1716 /11737-1716 ON DCA I 1777 /11740-3777 _? TAD I 1717 /11741-1717 OO SPA SNA CLA /11742-7750 ?( TAD I 1720 /11743-1720 OP MQA CLA MUY /11744-7705 ?E TAD 1733 /11745-1333 K[ 7776 /11746-0000 @@ 7776 FOR Rev 50, 0 for 0 TAD 1734 /11747-1334 K\ AND 0000 /11750-0000 @@ TAD 1735 /11751-1335 K] SPA SNA SZL CLA OSR HLT /11752-7776 ?> TAD 1736 /11753-1336 K^ SPA SNA SZL CLA OSR HLT /11754-7776 ?> TAD 1737 /11755-1337 K_ AND 0000 /11756-0000 @@ TAD 1740 /11757-1340 K SPA SNA SZL CLA HLT /11760-7772 ?: TAD 1741 /11761-1341 K! SPA SNA SZL CLA HLT /11762-7772 ?: TAD 1742 /11763-1342 K" SMA SZA SNL CLA OSR /11764-7764 ?4 TAD 1743 /11765-1343 K# SMA SZA SNL CLA OSR /11766-7764 ?4 TAD 1744 /11767-1344 K$ MQA CLA DPSZ /11770-7751 ?) TAD 1745 /11771-1345 K% MQA CLA DPSZ /11772-7751 ?) TAD I 1721 /11773-1721 OQ MQA MQL CLA DPIC /11774-7773 ?; TAD 1714 /11775-1314 KL MQA MQL CLA DPIC /11776-7773 ?; TAD 1715 /11777-1315 KM AND 0000 /12000-0000 @@ TAD 2116 /12001-1316 KN SPA SNA SZL CLA OSR HLT /12002-7776 ?> TAD 2117 /12003-1317 KO AND 0001 /12004-0001 @A TAD 2120 /12005-1320 KP SPA SNA SZL CLA OSR HLT /12006-7776 ?> TAD 2121 /12007-1321 KQ SPA SNA SZL CLA HLT /12010-7772 ?: TAD 2122 /12011-1322 KR AND 0003 /12012-0003 @C TAD 2123 /12013-1323 KS SPA SNA SZL CLA HLT /12014-7772 ?: TAD 2124 /12015-1324 KT SMA SZA SNL CLA OSR /12016-7764 ?4 TAD 2125 /12017-1325 KU AND 0014 /12020-0014 @L TAD 2126 /12021-1326 KV SMA SZA SNL CLA OSR /12022-7764 ?4 TAD 2127 /12023-1327 KW MQA CLA DPSZ /12024-7751 ?) TAD 2130 /12025-1330 KX ISZ 0000 /12026-2000 P@ TAD 2131 /12027-1331 KY MQA CLA DPSZ /12030-7751 ?) TAD 2132 /12031-1332 KZ MQA MQL CLA DPIC /12032-7773 ?; TAD I 2122 /12033-1722 OR AND 0002 /12034-0002 @B TAD I 2123 /12035-1723 OS MQA MQL CLA DPIC /12036-7773 ?; TAD I 2124 /12037-1724 OT AND 0001 /12040-0001 @A TAD I 2125 /12041-1725 OU AND 0002 /12042-0002 @B TAD I 2126 /12043-1726 OV MQA CLA MUY /12044-7705 ?E TAD I 2127 /12045-1727 OW AND 0003 /12046-0003 @C TAD I 2130 /12047-1730 OX AND 0014 /12050-0014 @L TAD I 2131 /12051-1731 OY ISZ 0000 /12052-2000 P@ TAD I 2132 /12053-1732 OZ DCA I 2177 /12054-3777 _? TAD I 2133 /12055-1733 O[ MQA MQL CLA SAM /12056-7777 ?? TAD I 2134 /12057-1734 O\ DCA I 2177 /12060-3777 _? TAD I 2135 /12061-1735 O] MQA CLA MUY /12062-7705 ?E TAD I 2136 /12063-1736 O^ SPA SNA CLA /12064-7750 ?( TAD I 2137 /12065-1737 O_ DCA I 2171 /12066-3771 _9 TAD I 2140 /12067-1740 O ISZ 0015 /12070-2015 PM TAD I 2141 /12071-1741 O! AND 0001 /12072-0001 @A TAD I 2142 /12073-1742 O" MQA MQL CLA DCM /12074-7775 ?= TAD I 2143 /12075-1743 O# TAD 2177 /12076-1377 K? TAD I 2144 /12077-1744 O$ AND 0000 /12100-0000 @@ TAD I 2145 /12101-1745 O% AND 0000 /12102-0000 @@ TAD I 2146 /12103-1746 O& JMS 0000 /12104-4000 @ TAD I 2147 /12105-1747 O' AND 0030 /12106-0030 @X TAD I 2150 /12107-1750 O( AND 0110 /12110-0110 AH TAD I 2151 /12111-1751 O) AND I 2060 /12112-0660 F0 TAD I 2152 /12113-1752 O* ISZ 0066 /12114-2066 P6 TAD I 2153 /12115-1753 O+ TAD 2000 /12116-1200 J@ TAD I 2154 /12117-1754 O, AND 0000 /12120-0000 @@ TAD I 2155 /12121-1755 O- TAD 0031 /12122-1031 HY TAD I 2156 /12123-1756 O. AND 0000 /12124-0000 @@ TAD I 2157 /12125-1757 O/ AND 0001 /12126-0001 @A TAD I 2160 /12127-1760 O0 JMP 0033 /12130-5033 ([ TAD I 2161 /12131-1761 O1 JMS 0002 /12132-4002 B TAD I 2162 /12133-1762 O2 AND 0004 /12134-0004 @D TAD I 2163 /12135-1763 O3 AND 0011 /12136-0011 @I AND 0165 /12137-0165 A5 AND 0022 /12140-0022 @R TAD I 2164 /12141-1764 O4 MQA MQL CLA SAM /12142-7777 ?? TAD I 2165 /12143-1765 O5 MQA MQL CLA SAM /12144-7777 ?? TAD I 2166 /12145-1766 O6 MQA MQL CLA SAM /12146-7777 ?? AND 0165 /12147-0165 A5 SPA SNA SZL CLA OSR HLT /12150-7776 ?> TAD I 2167 /12151-1767 O7 AND 0000 /12152-0000 @@ TAD I 2170 /12153-1770 O8 AND 0000 /12154-0000 @@ TAD I 2171 /12155-1771 O9 AND 0030 /12156-0030 @X TAD I 2172 /12157-1772 O: AND 0000 /12160-0000 @@ TAD I 2173 /12161-1773 O; AND 0030 /12162-0030 @X TAD I 2174 /12163-1774 O< AND 0030 /12164-0030 @X AND 0001 /12165-0001 @A AND 0030 /12166-0030 @X MCOD3, 0300 /12167-0300 C@ 7200 /12170-7200 :@ 0321 /12171-0321 CQ 0000 /12172-0000 @@ AND 0107 /12173-0107 AG DCA I 2146 /12174-3746 _& TAD 0000 /12175-1000 H@ AND 0000 /12176-0000 @@ AND 0160 /12177-0160 A0 AND 0000 /12200-0000 @@ AND 0163 /12201-0163 A3 DCA I 2347 /12202-3747 _' MCOD4, AND 2300 /12203-0300 C@ CLA /12204-7200 :@ AND 2321 /12205-0321 CQ AND 0001 /12206-0001 @A AND 2321 /12207-0321 CQ TAD I 2200 /12210-1600 N@ AND 2321 /12211-0321 CQ CLA IAC RTR /12212-7213 :K AND 2307 /12213-0307 CG CLA CML IAC BSW /12214-7223 :S AND 2321 /12215-0321 CQ AND 0001 /12216-0001 @A AND 2321 /12217-0321 CQ AND 0002 /12220-0002 @B AND 2313 /12221-0313 CK AND 0003 /12222-0003 @C AND 0010 /12223-0010 @H AND 0004 /12224-0004 @D AND 0010 /12225-0010 @H AND 0005 /12226-0005 @E AND 0107 /12227-0107 AG AND 0006 /12230-0006 @F AND 0002 /12231-0002 @B AND 0001 /12232-0001 @A AND 0020 /12233-0020 @P AND 0001 /12234-0001 @A TAD 0002 /12235-1002 HB AND 0002 /12236-0002 @B TAD 0050 /12237-1050 H( AND 0002 /12240-0002 @B TAD 0051 /12241-1051 H) AND 0002 /12242-0002 @B TAD 0052 /12243-1052 H* AND 0000 /12244-0000 @@ TAD 0053 /12245-1053 H+ AND 0000 /12246-0000 @@ TAD 0054 /12247-1054 H, AND 0000 /12250-0000 @@ TAD 0055 /12251-1055 H- AND 0000 /12252-0000 @@ AND 0020 /12253-0020 @P AND 0000 /12254-0000 @@ TAD 0000 /12255-1000 H@ AND 0000 /12256-0000 @@ TAD 0001 /12257-1001 HA AND 0000 /12260-0000 @@ AND 2324 /12261-0324 CT AND 0000 /12262-0000 @@ AND 2327 /12263-0327 CW AND 0000 /12264-0000 @@ AND 0170 /12265-0170 A8 AND 0000 /12266-0000 @@ AND 2332 /12267-0332 CZ AND 0000 /12270-0000 @@ AND 2336 /12271-0336 C^ AND 0000 /12272-0000 @@ AND 2341 /12273-0341 C! AND 0000 /12274-0000 @@ AND 0165 /12275-0165 A5 AND 0000 /12276-0000 @@ AND 0165 /12277-0165 A5 TAD I 2203 /12300-1603 NC AND 0165 /12301-0165 A5 CLA IAC RTR /12302-7213 :K AND 0165 /12303-0165 A5 CLA CML IAC BSW /12304-7223 :S AND 2351 /12305-0351 C) TAD I 2200 /12306-1600 N@ MCOD5, AND 2300 /12307-0300 C@ CLA /12310-7200 :@ AND 2321 /12311-0321 CQ AND 0000 /12312-0000 @@ AND 2321 /12313-0321 CQ JMS 2322 /12314-4322 #R AND 2321 /12315-0321 CQ CLA IAC RTR /12316-7213 :K AND 2307 /12317-0307 CG CLA CML IAC BSW /12320-7223 :S AND 2321 /12321-0321 CQ JMS 0015 /12322-4015 M AND 2321 /12323-0321 CQ AND 0000 /12324-0000 @@ AND 2313 /12325-0313 CK TAD 0111 /12326-1111 II AND 0010 /12327-0010 @H AND 0000 /12330-0000 @@ AND 0010 /12331-0010 @H AND 0000 /12332-0000 @@ AND 0107 /12333-0107 AG AND 0001 /12334-0001 @A TAD 0004 /12335-1004 HD AND 0003 /12336-0003 @C TAD 2334 /12337-1334 K\ AND 0003 /12340-0003 @C TAD 2335 /12341-1335 K] AND 0003 /12342-0003 @C TAD 2336 /12343-1336 K^ AND 0000 /12344-0000 @@ TAD 2337 /12345-1337 K_ AND 0000 /12346-0000 @@ TAD 2340 /12347-1340 K AND 0000 /12350-0000 @@ TAD 2341 /12351-1341 K! AND 0000 /12352-0000 @@ TAD 2342 /12353-1342 K" AND 0000 /12354-0000 @@ TAD 2343 /12355-1343 K# AND 0000 /12356-0000 @@ TAD 2344 /12357-1344 K$ AND 0001 /12360-0001 @A TAD 2345 /12361-1345 K% AND 0001 /12362-0001 @A TAD 0005 /12363-1005 HE TAD 0111 /12364-1111 II TAD 0072 /12365-1072 H: TAD 0111 /12366-1111 II TAD 0133 /12367-1133 I[ TAD 0111 /12370-1111 II TAD 0134 /12371-1134 I\ TAD 0111 /12372-1111 II TAD 0135 /12373-1135 I] AND 0000 /12374-0000 @@ TAD 0136 /12375-1136 I^ AND 0001 /12376-0001 @A TAD 0137 /12377-1137 I_ MQA MQL CLA SAM /12400-7777 ?? TAD 0140 /12401-1140 I AND 0000 /12402-0000 @@ TAD 0141 /12403-1141 I! MQA MQL CLA SAM /12404-7777 ?? TAD 0142 /12405-1142 I" AND 0000 /12406-0000 @@ TAD 0143 /12407-1143 I# MQA MQL CLA SAM /12410-7777 ?? TAD 0144 /12411-1144 I$ TAD 0111 /12412-1111 II TAD 0145 /12413-1145 I% 6666 /12414-6666 66 TAD 0073 /12415-1073 H; AND 0000 /12416-0000 @@ TAD 2550 /12417-1350 K( MQA MQL CLA SAM /12420-7777 ?? TAD 2551 /12421-1351 K) MQA MQL CLA SAM /12422-7777 ?? TAD 2552 /12423-1352 K* MQA MQL CLA SAM /12424-7777 ?? TAD 2553 /12425-1353 K+ MQA MQL CLA SAM /12426-7777 ?? TAD 2554 /12427-1354 K, MQA MQL CLA SAM /12430-7777 ?? TAD 2555 /12431-1355 K- MQA MQL CLA SAM /12432-7777 ?? TAD 2556 /12433-1356 K. MQA MQL CLA SAM /12434-7777 ?? TAD 2557 /12435-1357 K/ MQA MQL CLA SAM /12436-7777 ?? TAD 2560 /12437-1360 K0 MQA MQL CLA SAM /12440-7777 ?? AND 0020 /12441-0020 @P 6666 /12442-6666 66 TAD 0006 /12443-1006 HF AND 0004 /12444-0004 @D TAD 0007 /12445-1007 HG AND 0004 /12446-0004 @D TAD 0070 /12447-1070 H8 AND 0004 /12450-0004 @D TAD 2534 /12451-1334 K\ JMS 0015 /12452-4015 M TAD 2535 /12453-1335 K] MQA MQL CLA SAM /12454-7777 ?? TAD 2536 /12455-1336 K^ MQA MQL CLA SAM /12456-7777 ?? TAD 2537 /12457-1337 K_ AND 0000 /12460-0000 @@ TAD 2540 /12461-1340 K MQA MQL CLA SAM /12462-7777 ?? TAD 2541 /12463-1341 K! MQA MQL CLA SAM /12464-7777 ?? TAD 2542 /12465-1342 K" MQA MQL CLA SAM /12466-7777 ?? TAD 2543 /12467-1343 K# MQA MQL CLA SAM /12470-7777 ?? TAD 2544 /12471-1344 K$ MQA MQL CLA SAM /12472-7777 ?? TAD 2545 /12473-1345 K% MQA MQL CLA SAM /12474-7777 ?? TAD 0071 /12475-1071 H9 6666 /12476-6666 66 TAD I 0046 /12477-1446 L& 6666 /12500-6666 66 TAD 0177 /12501-1177 I? 6666 /12502-6666 66 TAD 2400 /12503-1200 J@ 6666 /12504-6666 66 TAD 2401 /12505-1201 JA MQA MQL CLA SAM /12506-7777 ?? TAD 2415 /12507-1215 JM 6666 /12510-6666 66 TAD 2416 /12511-1216 JN MQA MQL CLA SAM /12512-7777 ?? TAD 2417 /12513-1217 JO JMS 0001 /12514-4001 A TAD 2420 /12515-1220 JP 6666 /12516-6666 66 TAD 2421 /12517-1221 JQ 6666 /12520-6666 66 TAD 2422 /12521-1222 JR MQA MQL CLA SAM /12522-7777 ?? TAD 2423 /12523-1223 JS MQA MQL CLA SAM /12524-7777 ?? TAD 2424 /12525-1224 JT MQA MQL CLA SAM /12526-7777 ?? TAD 2425 /12527-1225 JU MQA MQL CLA SAM /12530-7777 ?? TAD 2426 /12531-1226 JV MQA MQL CLA SAM /12532-7777 ?? TAD 2427 /12533-1227 JW MQA MQL CLA SAM /12534-7777 ?? TAD 2430 /12535-1230 JX AND 0000 /12536-0000 @@ TAD 2401 /12537-1201 JA AND 0000 /12540-0000 @@ TAD 2402 /12541-1202 JB AND 0000 /12542-0000 @@ TAD 2403 /12543-1203 JC MQA MQL CLA SAM /12544-7777 ?? TAD 2404 /12545-1204 JD MQA MQL CLA SAM /12546-7777 ?? TAD 2405 /12547-1205 JE AND 0000 /12550-0000 @@ TAD 2406 /12551-1206 JF AND 0000 /12552-0000 @@ TAD 2407 /12553-1207 JG AND 0000 /12554-0000 @@ TAD 2410 /12555-1210 JH SPA SNA SZL CLA OSR HLT /12556-7776 ?> TAD 2411 /12557-1211 JI MQA MQL CLA SAM /12560-7777 ?? TAD 2412 /12561-1212 JJ MQA MQL CLA SAM /12562-7777 ?? TAD 2404 /12563-1204 JD JMP I 0155 /12564-5555 -- TAD 2413 /12565-1213 JK JMS 0000 /12566-4000 @ TAD 2414 /12567-1214 JL AND 0000 /12570-0000 @@ TAD 2437 /12571-1237 J_ AND 0000 /12572-0000 @@ TAD 2440 /12573-1240 J AND 0000 /12574-0000 @@ TAD 2447 /12575-1247 J' AND 0000 /12576-0000 @@ TAD I 0047 /12577-1447 L' AND 0000 /12600-0000 @@ TAD I 0051 /12601-1451 L) AND 0000 /12602-0000 @@ TAD I 0052 /12603-1452 L* JMS 0000 /12604-4000 @ TAD 2747 /12605-1347 K' JMS 0000 /12606-4000 @ TAD 2750 /12607-1350 K( JMS 0000 /12610-4000 @ TAD 2751 /12611-1351 K) JMP I 0155 /12612-5555 -- TAD 2752 /12613-1352 K* JMP I 0155 /12614-5555 -- TAD 2753 /12615-1353 K+ MQA MQL CLA SAM /12616-7777 ?? TAD 2754 /12617-1354 K, MQA MQL CLA SAM /12620-7777 ?? TAD 2755 /12621-1355 K- SPA SNA SZL CLA OSR HLT /12622-7776 ?> TAD 2756 /12623-1356 K. SPA SNA SZL CLA OSR HLT /12624-7776 ?> TAD 2757 /12625-1357 K/ AND 0000 /12626-0000 @@ TAD 2760 /12627-1360 K0 AND 0000 /12630-0000 @@ AND 0020 /12631-0020 @P MQA MQL CLA SAM /12632-7777 ?? AND 0074 /12633-0074 @< DCA 0000 /12634-3000 X@ TAD 0000 /12635-1000 H@ JMS 2724 /12636-4324 #T TAD 0001 /12637-1001 HA JMS 2724 /12640-4324 #T AND 2724 /12641-0324 CT JMS 2724 /12642-4324 #T AND 2727 /12643-0327 CW MQA MQL CLA SAM /12644-7777 ?? AND 0170 /12645-0170 A8 AND 0000 /12646-0000 @@ AND 2732 /12647-0332 CZ SPA SNA SZL CLA OSR HLT /12650-7776 ?> AND 2736 /12651-0336 C^ MQA MQL CLA SAM /12652-7777 ?? AND 2741 /12653-0341 C! JMP I 0155 /12654-5555 -- AND 0165 /12655-0165 A5 JMS 0000 /12656-4000 @ AND 0165 /12657-0165 A5 JMS 2726 /12660-4326 #V AND 0165 /12661-0165 A5 CLA IAC RTR /12662-7213 :K AND 0165 /12663-0165 A5 CLA CML IAC BSW /12664-7223 :S AND 2751 /12665-0351 C) JMS 2724 /12666-4324 #T MCOD6, AND 2700 /12667-0300 C@ CLA /12670-7200 :@ AND 2721 /12671-0321 CQ AND 0000 /12672-0000 @@ AND 2721 /12673-0321 CQ JMS I 0143 /12674-4543 %# AND 2721 /12675-0321 CQ CLA IAC RTR /12676-7213 :K AND 2707 /12677-0307 CG CLA CML IAC BSW /12700-7223 :S AND 2721 /12701-0321 CQ AND 0001 /12702-0001 @A AND 2721 /12703-0321 CQ AND 0001 /12704-0001 @A AND 2713 /12705-0313 CK TAD I 2603 /12706-1603 NC AND 0010 /12707-0010 @H AND 0004 /12710-0004 @D AND 0010 /12711-0010 @H AND 0005 /12712-0005 @E AND 0107 /12713-0107 AG AND 0006 /12714-0006 @F TAD 0010 /12715-1010 HH AND 0005 /12716-0005 @E TAD 0074 /12717-1074 H< AND 0005 /12720-0005 @E TAD 0075 /12721-1075 H= AND 0005 /12722-0005 @E TAD 2734 /12723-1334 K\ AND 0005 /12724-0005 @E TAD 2735 /12725-1335 K] AND 0001 /12726-0001 @A TAD 2736 /12727-1336 K^ AND 0001 /12730-0001 @A TAD 2737 /12731-1337 K_ AND 0000 /12732-0000 @@ TAD 2740 /12733-1340 K AND 0004 /12734-0004 @D TAD 2741 /12735-1341 K! AND 0004 /12736-0004 @D TAD 2742 /12737-1342 K" AND 0005 /12740-0005 @E TAD 2743 /12741-1343 K# AND 0005 /12742-0005 @E TAD 2744 /12743-1344 K$ AND 0006 /12744-0006 @F TAD 2745 /12745-1345 K% AND 0006 /12746-0006 @F TAD 0076 /12747-1076 H> TAD I 2603 /12750-1603 NC TAD 0077 /12751-1077 H? TAD I 2603 /12752-1603 NC TAD 2640 /12753-1240 J AND 0001 /12754-0001 @A TAD 2641 /12755-1241 J! AND 0001 /12756-0001 @A TAD 2642 /12757-1242 J" AND 0001 /12760-0001 @A TAD 2643 /12761-1243 J# AND 0001 /12762-0001 @A TAD 2644 /12763-1244 J$ JMS 0004 /12764-4004 D TAD 2645 /12765-1245 J% TAD I 2603 /12766-1603 NC TAD 2646 /12767-1246 J& AND 0001 /12770-0001 @A TAD 2647 /12771-1247 J' AND 0000 /12772-0000 @@ TAD 0100 /12773-1100 I@ AND 0000 /12774-0000 @@ TAD I 0047 /12775-1447 L' AND 0000 /12776-0000 @@ TAD I 0051 /12777-1451 L) AND 0000 /13000-0000 @@ TAD I 0052 /13001-1452 L* AND 0001 /13002-0001 @A TAD 3147 /13003-1347 K' AND 0001 /13004-0001 @A TAD 3150 /13005-1350 K( AND 0001 /13006-0001 @A TAD 3157 /13007-1357 K/ AND 0001 /13010-0001 @A TAD 3160 /13011-1360 K0 AND 0001 /13012-0001 @A AND 0020 /13013-0020 @P TAD I 3003 /13014-1603 NC TAD 0012 /13015-1012 HJ AND 0006 /13016-0006 @F TAD 0013 /13017-1013 HK AND 0006 /13020-0006 @F AND 0020 /13021-0020 @P AND 0006 /13022-0006 @F TAD 0014 /13023-1014 HL AND 0007 /13024-0007 @G TAD 0015 /13025-1015 HM AND 0007 /13026-0007 @G TAD 0011 /13027-1011 HI AND 0007 /13030-0007 @G TAD 0003 /13031-1003 HC TAD I 3003 /13032-1603 NC AND 0020 /13033-0020 @P AND 0000 /13034-0000 @@ TAD 0020 /13035-1020 HP AND 0050 /13036-0050 @( TAD 0021 /13037-1021 HQ AND 0050 /13040-0050 @( TAD 0022 /13041-1022 HR AND 0050 /13042-0050 @( TAD 0023 /13043-1023 HS AND 0000 /13044-0000 @@ AND 0020 /13045-0020 @P AND 0000 /13046-0000 @@ AND 0074 /13047-0074 @< JMS 0001 /13050-4001 A TAD 0000 /13051-1000 H@ TAD I 3004 /13052-1604 ND TAD 0001 /13053-1001 HA TAD I 3004 /13054-1604 ND AND 3124 /13055-0324 CT TAD I 3004 /13056-1604 ND AND 3127 /13057-0327 CW TAD I 3003 /13060-1603 NC AND 0170 /13061-0170 A8 AND 0000 /13062-0000 @@ AND 3132 /13063-0332 CZ AND 0000 /13064-0000 @@ AND 3136 /13065-0336 C^ AND 0000 /13066-0000 @@ AND 3141 /13067-0341 C! AND 0001 /13070-0001 @A AND 0165 /13071-0165 A5 AND 0001 /13072-0001 @A AND 0165 /13073-0165 A5 TAD I 3006 /13074-1606 NF AND 0165 /13075-0165 A5 CLA IAC RTR /13076-7213 :K AND 0165 /13077-0165 A5 CLA CML IAC BSW /13100-7223 :S AND 3151 /13101-0351 C) TAD I 3004 /13102-1604 ND MCOD7, AND 3100 /13103-0300 C@ CLA /13104-7200 :@ AND 3121 /13105-0321 CQ AND 0000 /13106-0000 @@ AND 3121 /13107-0321 CQ JMS I 3136 /13110-4736 '^ AND 3121 /13111-0321 CQ CLA IAC RTR /13112-7213 :K AND 3107 /13113-0307 CG CLA CML IAC BSW /13114-7223 :S AND 3121 /13115-0321 CQ AND 0027 /13116-0027 @W AND 3121 /13117-0321 CQ ISZ 0002 /13120-2002 PB AND 3113 /13121-0313 CK AND 0003 /13122-0003 @C AND 0010 /13123-0010 @H AND 0004 /13124-0004 @D AND 0010 /13125-0010 @H AND 0005 /13126-0005 @E AND 0107 /13127-0107 AG AND 0006 /13130-0006 @F AND 0070 /13131-0070 @8 AND 0017 /13132-0017 @O TAD 0031 /13133-1031 HY AND 0030 /13134-0030 @X TAD 0032 /13135-1032 HZ AND 0030 /13136-0030 @X TAD 0033 /13137-1033 H[ AND 0030 /13140-0030 @X TAD 0034 /13141-1034 H\ MQA MQL CLA SAM /13142-7777 ?? TAD 0064 /13143-1064 H4 AND 0030 /13144-0030 @X TAD 3134 /13145-1334 K\ AND 0001 /13146-0001 @A TAD 3135 /13147-1335 K] ISZ 0002 /13150-2002 PB TAD 3136 /13151-1336 K^ ISZ 0002 /13152-2002 PB TAD 3137 /13153-1337 K_ AND 0000 /13154-0000 @@ TAD 3140 /13155-1340 K AND 0004 /13156-0004 @D TAD 3141 /13157-1341 K! AND 0004 /13160-0004 @D TAD 3142 /13161-1342 K" AND 0005 /13162-0005 @E TAD 3143 /13163-1343 K# AND 0005 /13164-0005 @E TAD 3144 /13165-1344 K$ AND 0006 /13166-0006 @F TAD 3145 /13167-1345 K% AND 0006 /13170-0006 @F TAD 0065 /13171-1065 H5 AND 0003 /13172-0003 @C TAD 0066 /13173-1066 H6 AND 0003 /13174-0003 @C TAD 3060 /13175-1260 J0 AND 0003 /13176-0003 @C TAD 3061 /13177-1261 J1 MQA MQL CLA SAM /13200-7777 ?? TAD 3262 /13201-1262 J2 MQA MQL CLA SAM /13202-7777 ?? TAD 3264 /13203-1264 J4 AND 0013 /13204-0013 @K TAD 3265 /13205-1265 J5 AND 0013 /13206-0013 @K TAD 3266 /13207-1266 J6 AND 0013 /13210-0013 @K TAD 3267 /13211-1267 J7 MQA MQL CLA SAM /13212-7777 ?? TAD 3270 /13213-1270 J8 AND 0000 /13214-0000 @@ TAD 3273 /13215-1273 J; TAD 0001 /13216-1001 HA TAD 3274 /13217-1274 J< AND 0001 /13220-0001 @A TAD 3275 /13221-1275 J= JMS 0002 /13222-4002 B TAD 3276 /13223-1276 J> AND 0002 /13224-0002 @B TAD 3277 /13225-1277 J? JMS 0003 /13226-4003 C TAD 0067 /13227-1067 H7 AND 0000 /13230-0000 @@ TAD 0073 /13231-1073 H; AND 0000 /13232-0000 @@ TAD 3350 /13233-1350 K( AND 0000 /13234-0000 @@ TAD 3351 /13235-1351 K) TAD 0001 /13236-1001 HA TAD 3352 /13237-1352 K* TAD 0001 /13240-1001 HA TAD 3353 /13241-1353 K+ JMS 0002 /13242-4002 B TAD 3354 /13243-1354 K, JMS 0002 /13244-4002 B TAD 3355 /13245-1355 K- AND 0002 /13246-0002 @B TAD 3356 /13247-1356 K. AND 0002 /13250-0002 @B TAD 3357 /13251-1357 K/ JMS 0003 /13252-4003 C TAD 3360 /13253-1360 K0 JMS 0003 /13254-4003 C AND 0020 /13255-0020 @P AND 0001 /13256-0001 @A TAD 0040 /13257-1040 H AND 0022 /13260-0022 @R TAD 0041 /13261-1041 H! AND 0022 /13262-0022 @R TAD 0042 /13263-1042 H" AND 0022 /13264-0022 @R TAD 0043 /13265-1043 H# 7215 /13266-7215 :M TAD 3333 /13267-1333 K[ AND 0001 /13270-0001 @A TAD 3334 /13271-1334 K\ AND 0001 /13272-0001 @A TAD 3335 /13273-1335 K] TAD 0001 /13274-1001 HA TAD 3336 /13275-1336 K^ TAD 0001 /13276-1001 HA TAD 3337 /13277-1337 K_ AND 0000 /13300-0000 @@ TAD 3340 /13301-1340 K JMS 0002 /13302-4002 B TAD 3341 /13303-1341 K! JMS 0002 /13304-4002 B TAD 3342 /13305-1342 K" AND 0002 /13306-0002 @B TAD 3343 /13307-1343 K# AND 0002 /13310-0002 @B TAD 3344 /13311-1344 K$ JMS 0003 /13312-4003 C TAD 3345 /13313-1345 K% JMS 0003 /13314-4003 C TAD 0044 /13315-1044 H$ AND 0001 /13316-0001 @A TAD 0045 /13317-1045 H% AND 0001 /13320-0001 @A TAD 0046 /13321-1046 H& AND 0001 /13322-0001 @A TAD 0147 /13323-1147 I' AND 0001 /13324-0001 @A TAD 0150 /13325-1150 I( MQA MQL CLA SAM /13326-7777 ?? TAD 0151 /13327-1151 I) MQA MQL CLA SAM /13330-7777 ?? TAD 0153 /13331-1153 I+ AND 0013 /13332-0013 @K TAD 0154 /13333-1154 I, AND 0013 /13334-0013 @K TAD 0155 /13335-1155 I- AND 0013 /13336-0013 @K TAD 0162 /13337-1162 I2 MQA MQL CLA SAM /13340-7777 ?? TAD 0163 /13341-1163 I3 AND 0000 /13342-0000 @@ TAD 0164 /13343-1164 I4 AND 0006 /13344-0006 @F TAD 0157 /13345-1157 I/ AND 0005 /13346-0005 @E TAD 0160 /13347-1160 I0 AND 0004 /13350-0004 @D TAD 0161 /13351-1161 I1 AND 0003 /13352-0003 @C TAD 0047 /13353-1047 H' ISZ 0002 /13354-2002 PB AND 3253 /13355-0253 B+ ISZ 0002 /13356-2002 PB AND 0020 /13357-0020 @P AND 0003 /13360-0003 @C TAD 0012 /13361-1012 HJ AND 0006 /13362-0006 @F TAD 0013 /13363-1013 HK AND 0006 /13364-0006 @F AND 0020 /13365-0020 @P AND 0006 /13366-0006 @F TAD 0040 /13367-1040 H AND 0026 /13370-0026 @V TAD 0041 /13371-1041 H! AND 0026 /13372-0026 @V TAD 0042 /13373-1042 H" AND 0026 /13374-0026 @V TAD 0043 /13375-1043 H# CLA CML IAC /13376-7221 :Q TAD 3333 /13377-1333 K[ AND 0001 /13400-0001 @A TAD 3534 /13401-1334 K\ AND 0001 /13402-0001 @A TAD 3546 /13403-1346 K& TAD 0001 /13404-1001 HA TAD 3544 /13405-1344 K$ TAD 0001 /13406-1001 HA TAD 3545 /13407-1345 K% AND 0000 /13410-0000 @@ TAD 0044 /13411-1044 H$ AND 0001 /13412-0001 @A AND 3453 /13413-0253 B+ AND 0001 /13414-0001 @A AND 0020 /13415-0020 @P AND 0001 /13416-0001 @A AND 0074 /13417-0074 @< JMS 0000 /13420-4000 @ TAD 0000 /13421-1000 H@ JMS I 3542 /13422-4742 '" TAD 0001 /13423-1001 HA JMS I 3542 /13424-4742 '" AND 3524 /13425-0324 CT JMS I 3542 /13426-4742 '" AND 3536 /13427-0336 C^ JMS 0003 /13430-4003 C AND 3541 /13431-0341 C! TAD 0001 /13432-1001 HA AND 0165 /13433-0165 A5 AND 0030 /13434-0030 @X AND 0165 /13435-0165 A5 JMS I 3544 /13436-4744 '$ AND 0165 /13437-0165 A5 CLA IAC RTR /13440-7213 :K AND 0165 /13441-0165 A5 CLA CML IAC BSW /13442-7223 :S AND 3551 /13443-0351 C) JMS I 3542 /13444-4742 '" MCOD10, AND 3500 /13445-0300 C@ CLA /13446-7200 :@ AND 3521 /13447-0321 CQ AND 0001 /13450-0001 @A AND 3521 /13451-0321 CQ TAD I 3406 /13452-1606 NF AND 3521 /13453-0321 CQ CLA IAC RTR /13454-7213 :K AND 3507 /13455-0307 CG CLA CML IAC BSW /13456-7223 :S AND 3521 /13457-0321 CQ AND 0001 /13460-0001 @A AND 3521 /13461-0321 CQ AND 0002 /13462-0002 @B AND 3513 /13463-0313 CK AND 0003 /13464-0003 @C AND 0010 /13465-0010 @H AND 0004 /13466-0004 @D AND 0010 /13467-0010 @H AND 0005 /13470-0005 @E AND 0107 /13471-0107 AG AND 0006 /13472-0006 @F AND 0072 /13473-0072 @: AND 0032 /13474-0032 @Z TAD 0103 /13475-1103 IC JMP 3452 /13476-5252 ** TAD 0104 /13477-1104 ID JMP 3452 /13500-5252 ** TAD 0105 /13501-1105 IE MQA MQL CLA SAM /13502-7777 ?? TAD 0106 /13503-1106 IF MQA MQL CLA SAM /13504-7777 ?? TAD 0107 /13505-1107 IG AND 0027 /13506-0027 @W TAD 0110 /13507-1110 IH AND 0000 /13510-0000 @@ TAD 0070 /13511-1070 H8 AND 0000 /13512-0000 @@ TAD 3534 /13513-1334 K\ AND 0000 /13514-0000 @@ TAD 3535 /13515-1335 K] MQA MQL CLA SAM /13516-7777 ?? TAD 3536 /13517-1336 K^ MQA MQL CLA SAM /13520-7777 ?? TAD 3537 /13521-1337 K_ AND 0000 /13522-0000 @@ TAD 3540 /13523-1340 K AND 0000 /13524-0000 @@ TAD 3541 /13525-1341 K! AND 0000 /13526-0000 @@ TAD 3542 /13527-1342 K" AND 0000 /13530-0000 @@ TAD 3543 /13531-1343 K# AND 0000 /13532-0000 @@ TAD 3544 /13533-1344 K$ AND 0000 /13534-0000 @@ TAD 3545 /13535-1345 K% AND 0000 /13536-0000 @@ TAD 0071 /13537-1071 H9 JMP 3452 /13540-5252 ** TAD I 0046 /13541-1446 L& JMP 3452 /13542-5252 ** TAD 0177 /13543-1177 I? JMP 3452 /13544-5252 ** TAD 3400 /13545-1200 J@ JMP 3452 /13546-5252 ** TAD 3401 /13547-1201 JA MQA MQL CLA SAM /13550-7777 ?? TAD 3415 /13551-1215 JM JMP 3452 /13552-5252 ** TAD 3416 /13553-1216 JN AND 0000 /13554-0000 @@ TAD 3417 /13555-1217 JO AND 0013 /13556-0013 @K TAD 3420 /13557-1220 JP JMP 3452 /13560-5252 ** TAD 3421 /13561-1221 JQ JMP 3452 /13562-5252 ** TAD 3422 /13563-1222 JR AND 0000 /13564-0000 @@ TAD 3423 /13565-1223 JS AND 0000 /13566-0000 @@ TAD 3424 /13567-1224 JT AND 0000 /13570-0000 @@ TAD 3425 /13571-1225 JU AND 0000 /13572-0000 @@ TAD 3426 /13573-1226 JV AND 0000 /13574-0000 @@ TAD 3427 /13575-1227 JW AND 0000 /13576-0000 @@ TAD 3430 /13577-1230 JX AND 0000 /13600-0000 @@ TAD 3601 /13601-1201 JA AND 0000 /13602-0000 @@ TAD 3602 /13603-1202 JB AND 0000 /13604-0000 @@ TAD 3637 /13605-1237 J_ AND 0000 /13606-0000 @@ TAD 3640 /13607-1240 J AND 0000 /13610-0000 @@ TAD 3647 /13611-1247 J' AND 0000 /13612-0000 @@ TAD I 0047 /13613-1447 L' AND 0000 /13614-0000 @@ TAD I 0051 /13615-1451 L) AND 0000 /13616-0000 @@ TAD I 0052 /13617-1452 L* AND 0013 /13620-0013 @K TAD 3747 /13621-1347 K' AND 0013 /13622-0013 @K TAD 3750 /13623-1350 K( AND 0013 /13624-0013 @K TAD 3751 /13625-1351 K) JMP 3652 /13626-5252 ** TAD 3752 /13627-1352 K* JMP 3652 /13630-5252 ** TAD 3753 /13631-1353 K+ AND 0000 /13632-0000 @@ TAD 3754 /13633-1354 K, AND 0000 /13634-0000 @@ TAD 3755 /13635-1355 K- AND 0000 /13636-0000 @@ TAD 3756 /13637-1356 K. AND 0000 /13640-0000 @@ TAD 3757 /13641-1357 K/ AND 0000 /13642-0000 @@ TAD 3760 /13643-1360 K0 AND 0000 /13644-0000 @@ AND 0020 /13645-0020 @P AND 0000 /13646-0000 @@ AND 0020 /13647-0020 @P AND 0040 /13650-0040 @ AND 0074 /13651-0074 @< DCA 0001 /13652-3001 XA TAD 0000 /13653-1000 H@ TAD I 3610 /13654-1610 NH TAD 0001 /13655-1001 HA TAD I 3610 /13656-1610 NH AND 3724 /13657-0324 CT TAD I 3610 /13660-1610 NH AND 3727 /13661-0327 CW AND 0000 /13662-0000 @@ AND 0170 /13663-0170 A8 AND 0000 /13664-0000 @@ AND 3732 /13665-0332 CZ AND 0000 /13666-0000 @@ AND 3736 /13667-0336 C^ AND 0000 /13670-0000 @@ AND 3741 /13671-0341 C! JMP 3652 /13672-5252 ** AND 0165 /13673-0165 A5 AND 0013 /13674-0013 @K AND 0165 /13675-0165 A5 TAD I 3612 /13676-1612 NJ AND 0165 /13677-0165 A5 CLA IAC RTR /13700-7213 :K AND 0165 /13701-0165 A5 CLA CML IAC BSW /13702-7223 :S AND 3751 /13703-0351 C) TAD I 3610 /13704-1610 NH MCOD11, AND 3700 /13705-0300 C@ CLA /13706-7200 :@ AND 3721 /13707-0321 CQ AND I 3770 /13710-0770 G8 AND 3721 /13711-0321 CQ JMP 3706 /13712-5306 +F AND 3721 /13713-0321 CQ 6543 /13714-6543 5# AND 3707 /13715-0307 CG TAD 3634 /13716-1234 J\ AND 3721 /13717-0321 CQ AND 0001 /13720-0001 @A AND 3721 /13721-0321 CQ AND 0002 /13722-0002 @B AND 3713 /13723-0313 CK AND 0003 /13724-0003 @C AND 0010 /13725-0010 @H AND 0004 /13726-0004 @D AND 0010 /13727-0010 @H AND 0005 /13730-0005 @E AND 0107 /13731-0107 AG AND 0006 /13732-0006 @F AND 0034 /13733-0034 @\ TAD 0100 /13734-1100 I@ AND 0020 /13735-0020 @P CLA IAC RTR /13736-7213 :K AND 0036 /13737-0036 @^ TAD 0110 /13740-1110 IH AND 0020 /13741-0020 @P CLA CML IAC BSW /13742-7223 :S AND 0050 /13743-0050 @( TAD 0121 /13744-1121 IQ AND 0052 /13745-0052 @* TAD I 3612 /13746-1612 NJ AND 0055 /13747-0055 @- TAD 0030 /13750-1030 HX AND 0020 /13751-0020 @P JMP 3714 /13752-5314 +L AND 0060 /13753-0060 @0 TAD 0131 /13754-1131 IY AND 0062 /13755-0062 @2 TAD I 3612 /13756-1612 NJ AND 0065 /13757-0065 @5 TAD 0031 /13760-1031 HY AND 0020 /13761-0020 @P TAD I 3616 /13762-1616 NN AND 0014 /13763-0014 @L TAD 0030 /13764-1030 HX AND 0020 /13765-0020 @P JMP 3714 /13766-5314 +L AND 0014 /13767-0014 @L TAD 0030 /13770-1030 HX AND 0020 /13771-0020 @P CLA CML RAL /13772-7224 :T AND 0014 /13773-0014 @L TAD 0031 /13774-1031 HY AND 0020 /13775-0020 @P TAD I 3616 /13776-1616 NN TAD 0000 /13777-1000 H@ AND 0000 /14000-0000 @@ TAD 0001 /14001-1001 HA AND 0000 /14002-0000 @@ AND 4124 /14003-0324 CT AND 0000 /14004-0000 @@ AND 4127 /14005-0327 CW AND 0003 /14006-0003 @C AND 0170 /14007-0170 A8 AND 0006 /14010-0006 @F AND 4132 /14011-0332 CZ AND 0005 /14012-0005 @E AND 4136 /14013-0336 C^ AND 0004 /14014-0004 @D AND 4141 /14015-0341 C! AND 0002 /14016-0002 @B AND 0165 /14017-0165 A5 AND 0001 /14020-0001 @A AND 0165 /14021-0165 A5 TAD I 4017 /14022-1617 NO AND 0165 /14023-0165 A5 CLA IAC RTR /14024-7213 :K AND 0165 /14025-0165 A5 CLA CML IAC BSW /14026-7223 :S AND 4151 /14027-0351 C) TAD I 4012 /14030-1612 NJ MCOD12, AND 4100 /14031-0300 C@ CLA /14032-7200 :@ AND 4121 /14033-0321 CQ AND 0000 /14034-0000 @@ AND 4121 /14035-0321 CQ 7275 /14036-7275 := AND 4121 /14037-0321 CQ CLA IAC RTR /14040-7213 :K AND 4107 /14041-0307 CG CLA CML IAC BSW /14042-7223 :S AND 4121 /14043-0321 CQ AND 0001 /14044-0001 @A AND 4121 /14045-0321 CQ AND 0002 /14046-0002 @B AND 4113 /14047-0313 CK AND 0003 /14050-0003 @C AND 0010 /14051-0010 @H AND 0004 /14052-0004 @D AND 0010 /14053-0010 @H AND 0005 /14054-0005 @E AND 0107 /14055-0107 AG AND 0006 /14056-0006 @F TAD 0002 /14057-1002 HB AND 0002 /14060-0002 @B TAD 0050 /14061-1050 H( AND 0002 /14062-0002 @B TAD 0051 /14063-1051 H) AND 0002 /14064-0002 @B TAD 0052 /14065-1052 H* AND 0000 /14066-0000 @@ TAD 0053 /14067-1053 H+ AND 0000 /14070-0000 @@ TAD 0054 /14071-1054 H, AND 0000 /14072-0000 @@ TAD 0055 /14073-1055 H- AND 0000 /14074-0000 @@ AND 0020 /14075-0020 @P AND 0000 /14076-0000 @@ AND 0014 /14077-0014 @L TAD 0000 /14100-1000 H@ AND 0020 /14101-0020 @P CLA CLL BSW /14102-7302 ;B AND 0014 /14103-0014 @L TAD 0010 /14104-1010 HH AND 0020 /14105-0020 @P CLA CLL RTL /14106-7306 ;F AND 0014 /14107-0014 @L TAD 0020 /14110-1020 HP AND 0020 /14111-0020 @P CLA CLL RTR /14112-7312 ;J AND 0024 /14113-0024 @T TAD 0040 /14114-1040 H AND 0024 /14115-0024 @T TAD 0050 /14116-1050 H( AND 0024 /14117-0024 @T TAD 0060 /14120-1060 H0 AND 0024 /14121-0024 @T TAD 0070 /14122-1070 H8 AND 0014 /14123-0014 @L TAD 0031 /14124-1031 HY AND 0020 /14125-0020 @P TAD I 4017 /14126-1617 NO AND 0114 /14127-0114 AL AND I 0001 /14130-0401 DA AND 0141 /14131-0141 A! TAD I 4061 /14132-1661 N1 AND 0010 /14133-0010 @H MQA MQL CLA SAM /14134-7777 ?? AND 4004 /14135-0204 BD JMP I 4177 /14136-5777 /? AND 4010 /14137-0210 BH MQA MQL CLA SAM /14140-7777 ?? AND 4012 /14141-0212 BJ TAD 0010 /14142-1010 HH AND 4014 /14143-0214 BL AND 4002 /14144-0202 BB AND 0020 /14145-0020 @P DCA 0030 /14146-3030 XX AND 0024 /14147-0024 @T TAD 0001 /14150-1001 HA AND 0024 /14151-0024 @T TAD 0011 /14152-1011 HI AND 0014 /14153-0014 @L TAD 0021 /14154-1021 HQ AND 0020 /14155-0020 @P TAD I 4031 /14156-1631 NY AND 0014 /14157-0014 @L TAD 0041 /14160-1041 H! AND 0020 /14161-0020 @P TAD I 4035 /14162-1635 N] AND 0014 /14163-0014 @L TAD 0051 /14164-1051 H) AND 0020 /14165-0020 @P TAD I 4041 /14166-1641 N! AND 0024 /14167-0024 @T TAD 0061 /14170-1061 H1 AND 0024 /14171-0024 @T TAD 0071 /14172-1071 H9 AND 0014 /14173-0014 @L TAD 0030 /14174-1030 HX AND 0020 /14175-0020 @P CLA CLL CML RAL /14176-7324 ;T AND 0114 /14177-0114 AL AND I 0000 /14200-0400 D@ AND 0141 /14201-0141 A! 7354 /14202-7354 ;, AND 0010 /14203-0010 @H DCA I 4377 /14204-3777 _? AND 4204 /14205-0204 BD DCA I 4377 /14206-3777 _? AND 4210 /14207-0210 BH MQA MQL CLA SAM /14210-7777 ?? AND 4212 /14211-0212 BJ JMS 0040 /14212-4040 AND 4214 /14213-0214 BL AND I 0105 /14214-0505 EE AND 0020 /14215-0020 @P 6060 /14216-6060 00 AND 0024 /14217-0024 @T TAD 0000 /14220-1000 H@ AND 0014 /14221-0014 @L TAD 0010 /14222-1010 HH AND 0020 /14223-0020 @P 7334 /14224-7334 ;\ AND 0024 /14225-0024 @T TAD 0020 /14226-1020 HP AND 0014 /14227-0014 @L TAD 0040 /14230-1040 H AND 0020 /14231-0020 @P CLA CLL CMA BSW /14232-7342 ;" AND 0024 /14233-0024 @T TAD 0050 /14234-1050 H( AND 0014 /14235-0014 @L TAD 0060 /14236-1060 H0 AND 0020 /14237-0020 @P CLA CLL CMA RAR /14240-7350 ;( AND 0014 /14241-0014 @L TAD 0070 /14242-1070 H8 AND 0020 /14243-0020 @P 7400 /14244-7400 <@ TAD 0000 /14245-1000 H@ AND 0000 /14246-0000 @@ TAD 0001 /14247-1001 HA AND 0000 /14250-0000 @@ AND 4324 /14251-0324 CT AND 0000 /14252-0000 @@ AND 4327 /14253-0327 CW MQA MQL CLA SAM /14254-7777 ?? AND 0170 /14255-0170 A8 6060 /14256-6060 00 AND 4332 /14257-0332 CZ AND I 0105 /14260-0505 EE AND 4336 /14261-0336 C^ JMS 0040 /14262-4040 AND 4341 /14263-0341 C! DCA I 4377 /14264-3777 _? AND 0165 /14265-0165 A5 DCA I 4377 /14266-3777 _? AND 0165 /14267-0165 A5 7401 /14270-7401 <A AND 0165 /14271-0165 A5 CLA IAC RTR /14272-7213 :K AND 0165 /14273-0165 A5 CLA CML IAC BSW /14274-7223 :S AND 4351 /14275-0351 C) 7356 /14276-7356 ;. MCOD13, AND 4300 /14277-0300 C@ CLA /14300-7200 :@ AND 4321 /14301-0321 CQ AND 0000 /14302-0000 @@ AND 4321 /14303-0321 CQ 7401 /14304-7401 <A AND 4321 /14305-0321 CQ CLA IAC RTR /14306-7213 :K AND 4307 /14307-0307 CG CLA CML IAC BSW /14310-7223 :S AND 4321 /14311-0321 CQ AND 0001 /14312-0001 @A AND 4321 /14313-0321 CQ AND 0002 /14314-0002 @B AND 4313 /14315-0313 CK AND 0003 /14316-0003 @C AND 0010 /14317-0010 @H AND 0004 /14320-0004 @D AND 0010 /14321-0010 @H AND 0005 /14322-0005 @E AND 0107 /14323-0107 AG AND 0006 /14324-0006 @F AND 0114 /14325-0114 AL SKON /14326-6000 0@ AND 0141 /14327-0141 A! MUY /14330-7405 <E TAD 0060 /14331-1060 H0 AND 0000 /14332-0000 @@ TAD 0061 /14333-1061 H1 MUY /14334-7405 <E AND 0020 /14335-0020 @P MUY /14336-7405 <E TAD 0010 /14337-1010 HH AND 0005 /14340-0005 @E TAD 0074 /14341-1074 H< AND 0005 /14342-0005 @E TAD 0101 /14343-1101 IA AND 0005 /14344-0005 @E TAD 0102 /14345-1102 IB AND 0005 /14346-0005 @E AND 0020 /14347-0020 @P AND 0005 /14350-0005 @E TAD 0014 /14351-1014 HL AND 0007 /14352-0007 @G TAD 0015 /14353-1015 HM AND 0007 /14354-0007 @G TAD 0011 /14355-1011 HI AND 0007 /14356-0007 @G TAD 0003 /14357-1003 HC MUY /14360-7405 <E AND 0020 /14361-0020 @P AND 0000 /14362-0000 @@ AND 0112 /14363-0112 AJ 6100 /14364-6100 1@ AND 0114 /14365-0114 AL 6100 /14366-6100 1@ AND 0141 /14367-0141 A! NMI /14370-7411 <I TAD 0060 /14371-1060 H0 AND 0000 /14372-0000 @@ TAD 0061 /14373-1061 H1 NMI /14374-7411 <I AND 0020 /14375-0020 @P NMI /14376-7411 <I TAD 0010 /14377-1010 HH AND 0005 /14400-0005 @E TAD 0074 /14401-1074 H< AND 0005 /14402-0005 @E TAD 0101 /14403-1101 IA AND 0005 /14404-0005 @E TAD 0102 /14405-1102 IB AND 0005 /14406-0005 @E AND 0020 /14407-0020 @P AND 0005 /14410-0005 @E TAD 0014 /14411-1014 HL AND 0007 /14412-0007 @G TAD 0015 /14413-1015 HM AND 0007 /14414-0007 @G TAD 0011 /14415-1011 HI AND 0007 /14416-0007 @G TAD 0003 /14417-1003 HC NMI /14420-7411 <I AND 0020 /14421-0020 @P AND 0000 /14422-0000 @@ AND 0134 /14423-0134 A\ IAC /14424-7001 8A AND 0010 /14425-0010 @H AND 0000 /14426-0000 @@ AND 0141 /14427-0141 A! SKP OSR /14430-7414 <L TAD 0060 /14431-1060 H0 AND 0000 /14432-0000 @@ TAD 0061 /14433-1061 H1 SKP OSR /14434-7414 <L AND 0020 /14435-0020 @P SKP OSR /14436-7414 <L TAD 0010 /14437-1010 HH AND 0005 /14440-0005 @E TAD 0074 /14441-1074 H< AND 0005 /14442-0005 @E TAD 0101 /14443-1101 IA AND 0005 /14444-0005 @E TAD 0102 /14445-1102 IB AND 0005 /14446-0005 @E AND 0020 /14447-0020 @P AND 0005 /14450-0005 @E TAD 0014 /14451-1014 HL AND 0007 /14452-0007 @G TAD 0015 /14453-1015 HM AND 0007 /14454-0007 @G TAD 0011 /14455-1011 HI AND 0007 /14456-0007 @G TAD 0003 /14457-1003 HC SKP OSR /14460-7414 <L AND 0020 /14461-0020 @P AND 0000 /14462-0000 @@ AND 0132 /14463-0132 AZ CLL BSW /14464-7102 9B AND 0134 /14465-0134 A\ CLL BSW /14466-7102 9B AND 0010 /14467-0010 @H AND 0000 /14470-0000 @@ AND 0141 /14471-0141 A! SKP OSR HLT /14472-7416 <N TAD 0060 /14473-1060 H0 AND 0000 /14474-0000 @@ TAD 0061 /14475-1061 H1 SKP OSR HLT /14476-7416 <N AND 0020 /14477-0020 @P SKP OSR HLT /14500-7416 <N TAD 0014 /14501-1014 HL AND 0007 /14502-0007 @G TAD 0015 /14503-1015 HM AND 0007 /14504-0007 @G TAD 0011 /14505-1011 HI AND 0007 /14506-0007 @G TAD 0003 /14507-1003 HC SKP OSR HLT /14510-7416 <N AND 0020 /14511-0020 @P AND 0000 /14512-0000 @@ TAD 0016 /14513-1016 HN JMP 0067 /14514-5067 (7 TAD 0055 /14515-1055 H- JMP 0067 /14516-5067 (7 AND 0020 /14517-0020 @P JMP 0067 /14520-5067 (7 TAD 0026 /14521-1026 HV JMP 0000 /14522-5000 (@ TAD 0050 /14523-1050 H( JMP 0000 /14524-5000 (@ TAD 0055 /14525-1055 H- JMP 0000 /14526-5000 (@ AND 0020 /14527-0020 @P AND 0000 /14530-0000 @@ AND 0114 /14531-0114 AL SKON /14532-6000 0@ AND 0141 /14533-0141 A! SNL OSR /14534-7424 <T AND 0010 /14535-0010 @H AND 0000 /14536-0000 @@ TAD 0037 /14537-1037 H_ AND 0002 /14540-0002 @B TAD I 0004 /14541-1404 LD AND 0002 /14542-0002 @B TAD I 0140 /14543-1540 M AND 0002 /14544-0002 @B TAD I 0141 /14545-1541 M! AND 0002 /14546-0002 @B TAD I 0050 /14547-1450 L( AND 0000 /14550-0000 @@ TAD 0111 /14551-1111 II AND 0000 /14552-0000 @@ TAD 0112 /14553-1112 IJ AND 0000 /14554-0000 @@ TAD 0116 /14555-1116 IN AND 0000 /14556-0000 @@ TAD I 0051 /14557-1451 L) AND 0000 /14560-0000 @@ TAD I 0052 /14561-1452 L* AND 0000 /14562-0000 @@ TAD 4547 /14563-1347 K' AND 0000 /14564-0000 @@ TAD 4550 /14565-1350 K( AND 0000 /14566-0000 @@ TAD 4557 /14567-1357 K/ AND 0000 /14570-0000 @@ TAD 4561 /14571-1361 K1 AND 0000 /14572-0000 @@ TAD 0013 /14573-1013 HK AND 0000 /14574-0000 @@ AND 0020 /14575-0020 @P AND 0000 /14576-0000 @@ AND 0074 /14577-0074 @< DCA 0000 /14600-3000 X@ TAD 0000 /14601-1000 H@ SNL HLT /14602-7422 <R TAD 0001 /14603-1001 HA SNL HLT /14604-7422 <R AND 4724 /14605-0324 CT SNL HLT /14606-7422 <R AND 4736 /14607-0336 C^ AND 0006 /14610-0006 @F AND 4741 /14611-0341 C! AND 0000 /14612-0000 @@ AND 0165 /14613-0165 A5 AND 0000 /14614-0000 @@ AND 0165 /14615-0165 A5 SNL OSR /14616-7424 <T AND 0165 /14617-0165 A5 CLA IAC RTR /14620-7213 :K AND 0165 /14621-0165 A5 CLA CML IAC BSW /14622-7223 :S AND 4751 /14623-0351 C) SNL HLT /14624-7422 <R MCOD14, AND 4700 /14625-0300 C@ CLA /14626-7200 :@ AND 4721 /14627-0321 CQ AND 0000 /14630-0000 @@ AND 4721 /14631-0321 CQ 6115 /14632-6115 1M AND 4721 /14633-0321 CQ CLA IAC RTR /14634-7213 :K AND 4707 /14635-0307 CG CLA CML IAC BSW /14636-7223 :S AND 4721 /14637-0321 CQ AND 0001 /14640-0001 @A AND 4721 /14641-0321 CQ AND 0002 /14642-0002 @B AND 4713 /14643-0313 CK AND 0003 /14644-0003 @C AND 0010 /14645-0010 @H AND 0004 /14646-0004 @D AND 0010 /14647-0010 @H AND 0005 /14650-0005 @E AND 0107 /14651-0107 AG AND 0006 /14652-0006 @F TAD 0012 /14653-1012 HJ AND 0006 /14654-0006 @F TAD 0013 /14655-1013 HK AND 0006 /14656-0006 @F AND 0020 /14657-0020 @P AND 0006 /14660-0006 @F AND 0134 /14661-0134 A\ TAD I 4603 /14662-1603 NC AND 0010 /14663-0010 @H AND 0000 /14664-0000 @@ AND 0141 /14665-0141 A! 6122 /14666-6122 1R AND 0010 /14667-0010 @H ISZ I 4777 /14670-2777 W? TAD 0037 /14671-1037 H_ MQA MQL CLA SAM /14672-7777 ?? TAD I 0000 /14673-1400 L@ MQA MQL CLA SAM /14674-7777 ?? TAD I 0013 /14675-1413 LK MQA MQL CLA SAM /14676-7777 ?? TAD 4744 /14677-1344 K$ AND 0002 /14700-0002 @B TAD 4745 /14701-1345 K% AND 0002 /14702-0002 @B TAD I 0014 /14703-1414 LL AND 0003 /14704-0003 @C TAD I 0015 /14705-1415 LM AND 0003 /14706-0003 @C TAD I 0016 /14707-1416 LN AND 0002 /14710-0002 @B TAD I 0017 /14711-1417 LO DCA 0002 /14712-3002 XB TAD I 0020 /14713-1420 LP DCA 0002 /14714-3002 XB TAD I 0021 /14715-1421 LQ DCA 0002 /14716-3002 XB TAD 4750 /14717-1350 K( DCA 0002 /14720-3002 XB TAD 4757 /14721-1357 K/ DCA 0002 /14722-3002 XB TAD 4760 /14723-1360 K0 DCA 0002 /14724-3002 XB AND 0020 /14725-0020 @P AND 0002 /14726-0002 @B TAD 0020 /14727-1020 HP AND 0050 /14730-0050 @( TAD 0021 /14731-1021 HQ AND 0050 /14732-0050 @( TAD 0022 /14733-1022 HR AND 0050 /14734-0050 @( TAD 0023 /14735-1023 HS AND 0000 /14736-0000 @@ AND 0020 /14737-0020 @P AND 0000 /14740-0000 @@ AND 0134 /14741-0134 A\ TAD I 4604 /14742-1604 ND AND 0010 /14743-0010 @H AND 0000 /14744-0000 @@ AND 0141 /14745-0141 A! 6124 /14746-6124 1T AND 0010 /14747-0010 @H AND 0001 /14750-0001 @A AND 0010 /14751-0010 @H AND I 4675 /14752-0675 F= AND 4645 /14753-0245 B% SPA SNA SZL CLA OSR HLT /14754-7776 ?> AND 4647 /14755-0247 B' MQA MQL CLA SAM /14756-7777 ?? AND 4651 /14757-0251 B) AND 0000 /14760-0000 @@ TAD 0037 /14761-1037 H_ MQA MQL CLA SAM /14762-7777 ?? TAD I 0001 /14763-1401 LA MQA MQL CLA SAM /14764-7777 ?? TAD I 0022 /14765-1422 LR MQA MQL CLA SAM /14766-7777 ?? TAD I 0023 /14767-1423 LS AND 0001 /14770-0001 @A TAD 4733 /14771-1333 K[ AND 0001 /14772-0001 @A TAD 4734 /14773-1334 K\ AND 0001 /14774-0001 @A TAD 4735 /14775-1335 K] DCA 0002 /14776-3002 XB TAD 4736 /14777-1336 K^ DCA 0002 /15000-3002 XB TAD 5137 /15001-1337 K_ AND 0000 /15002-0000 @@ TAD 5140 /15003-1340 K AND 0000 /15004-0000 @@ TAD 5141 /15005-1341 K! AND 0000 /15006-0000 @@ TAD 5142 /15007-1342 K" AND 0000 /15010-0000 @@ TAD 5143 /15011-1343 K# AND 0000 /15012-0000 @@ TAD 5144 /15013-1344 K$ AND 0000 /15014-0000 @@ TAD 5145 /15015-1345 K% AND 0000 /15016-0000 @@ TAD I 0024 /15017-1424 LT AND 0002 /15020-0002 @B TAD I 0025 /15021-1425 LU AND 0002 /15022-0002 @B TAD I 0026 /15023-1426 LV AND 0000 /15024-0000 @@ TAD I 0027 /15025-1427 LW AND 0000 /15026-0000 @@ TAD I 0030 /15027-1430 LX AND 0000 /15030-0000 @@ TAD I 0031 /15031-1431 LY AND 0000 /15032-0000 @@ TAD I 0032 /15033-1432 LZ AND 0000 /15034-0000 @@ TAD I 0033 /15035-1433 L[ AND 0030 /15036-0030 @X TAD I 0034 /15037-1434 L\ AND 0073 /15040-0073 @; TAD I 0035 /15041-1435 L] AND 0073 /15042-0073 @; TAD 5114 /15043-1314 KL AND 0073 /15044-0073 @; TAD 5115 /15045-1315 KM AND 0001 /15046-0001 @A TAD 5116 /15047-1316 KN DCA 0002 /15050-3002 XB TAD 5117 /15051-1317 KO AND I 5075 /15052-0675 F= TAD 5120 /15053-1320 KP DCA 0002 /15054-3002 XB TAD 5121 /15055-1321 KQ AND 0000 /15056-0000 @@ TAD 5122 /15057-1322 KR MQA MQL CLA SAM /15060-7777 ?? TAD 5123 /15061-1323 KS AND 0000 /15062-0000 @@ TAD 5124 /15063-1324 KT AND 0000 /15064-0000 @@ TAD 5125 /15065-1325 KU AND 0000 /15066-0000 @@ TAD 5126 /15067-1326 KV AND 0000 /15070-0000 @@ TAD 5127 /15071-1327 KW AND 0000 /15072-0000 @@ TAD 5130 /15073-1330 KX MQA MQL CLA SAM /15074-7777 ?? TAD 5131 /15075-1331 KY AND 0000 /15076-0000 @@ TAD 5132 /15077-1332 KZ AND 0002 /15100-0002 @B TAD I 0036 /15101-1436 L^ SPA SNA SZL CLA OSR HLT /15102-7776 ?> TAD 5060 /15103-1260 J0 AND 0002 /15104-0002 @B TAD 5061 /15105-1261 J1 AND 0002 /15106-0002 @B TAD 5062 /15107-1262 J2 AND 0000 /15110-0000 @@ TAD 5063 /15111-1263 J3 AND 0014 /15112-0014 @L TAD I 0037 /15113-1437 L_ AND 0014 /15114-0014 @L TAD I 0040 /15115-1440 L AND 0000 /15116-0000 @@ TAD I 0041 /15117-1441 L! MQA MQL CLA SAM /15120-7777 ?? TAD I 0042 /15121-1442 L" AND 0000 /15122-0000 @@ TAD I 0043 /15123-1443 L# MQA MQL CLA SAM /15124-7777 ?? TAD I 0044 /15125-1444 L$ AND 0000 /15126-0000 @@ TAD I 0045 /15127-1445 L% DCA I 5100 /15130-3700 _@ TAD I 0046 /15131-1446 L& AND 0001 /15132-0001 @A TAD 0177 /15133-1177 I? AND 0001 /15134-0001 @A TAD 5000 /15135-1200 J@ AND 0001 /15136-0001 @A TAD 5001 /15137-1201 JA DCA I 5100 /15140-3700 _@ TAD 5002 /15141-1202 JB AND 0000 /15142-0000 @@ TAD 5037 /15143-1237 J_ MQA MQL CLA SAM /15144-7777 ?? TAD 5040 /15145-1240 J AND 0000 /15146-0000 @@ TAD 5047 /15147-1247 J' AND 0000 /15150-0000 @@ TAD I 0047 /15151-1447 L' AND 0000 /15152-0000 @@ TAD I 0051 /15153-1451 L) AND 0000 /15154-0000 @@ TAD I 0052 /15155-1452 L* AND 0001 /15156-0001 @A TAD 5147 /15157-1347 K' AND 0001 /15160-0001 @A TAD 5150 /15161-1350 K( AND 0001 /15162-0001 @A TAD 5151 /15163-1351 K) DCA I 5100 /15164-3700 _@ TAD 5152 /15165-1352 K* DCA I 5100 /15166-3700 _@ TAD 5153 /15167-1353 K+ MQA MQL CLA SAM /15170-7777 ?? TAD 5154 /15171-1354 K, MQA MQL CLA SAM /15172-7777 ?? TAD 5155 /15173-1355 K- AND 0000 /15174-0000 @@ TAD 5156 /15175-1356 K. AND 0000 /15176-0000 @@ TAD 5157 /15177-1357 K/ MQA MQL CLA SAM /15200-7777 ?? TAD 5360 /15201-1360 K0 MQA MQL CLA SAM /15202-7777 ?? AND 0020 /15203-0020 @P AND 0000 /15204-0000 @@ TAD 0000 /15205-1000 H@ AND 0000 /15206-0000 @@ TAD 0001 /15207-1001 HA AND 0000 /15210-0000 @@ AND 5324 /15211-0324 CT AND 0000 /15212-0000 @@ AND 5327 /15213-0327 CW AND 0000 /15214-0000 @@ AND 0170 /15215-0170 A8 MQA MQL CLA SAM /15216-7777 ?? AND 5332 /15217-0332 CZ AND 0000 /15220-0000 @@ AND 5336 /15221-0336 C^ MQA MQL CLA SAM /15222-7777 ?? AND 5341 /15223-0341 C! DCA I 5300 /15224-3700 _@ AND 0165 /15225-0165 A5 AND 0001 /15226-0001 @A AND 0165 /15227-0165 A5 6122 /15230-6122 1R AND 0165 /15231-0165 A5 CLA IAC RTR /15232-7213 :K AND 0165 /15233-0165 A5 CLA CML IAC BSW /15234-7223 :S AND 5351 /15235-0351 C) 6126 /15236-6126 1V MCOD15, AND 5300 /15237-0300 C@ CLA /15240-7200 :@ AND 5321 /15241-0321 CQ AND 0000 /15242-0000 @@ AND 5321 /15243-0321 CQ SNL OSR HLT /15244-7426 <V AND 5321 /15245-0321 CQ CLA IAC RTR /15246-7213 :K AND 5307 /15247-0307 CG CLA CML IAC BSW /15250-7223 :S AND 5321 /15251-0321 CQ AND 0001 /15252-0001 @A AND 5321 /15253-0321 CQ AND 0002 /15254-0002 @B AND 5313 /15255-0313 CK AND 0003 /15256-0003 @C AND 0010 /15257-0010 @H AND 0004 /15260-0004 @D AND 0010 /15261-0010 @H AND 0005 /15262-0005 @E AND 0107 /15263-0107 AG AND 0006 /15264-0006 @F AND 0100 /15265-0100 A@ JMS 5205 /15266-4205 "E AND 0010 /15267-0010 @H AND 0001 /15270-0001 @A AND 0010 /15271-0010 @H AND 0000 /15272-0000 @@ AND 5245 /15273-0245 B% AND 0000 /15274-0000 @@ AND 5247 /15275-0247 B' AND 0000 /15276-0000 @@ AND 5251 /15277-0251 B) AND 0000 /15300-0000 @@ TAD 0037 /15301-1037 H_ AND 0000 /15302-0000 @@ TAD I 0002 /15303-1402 LB AND 0000 /15304-0000 @@ TAD I 0072 /15305-1472 L: AND 0000 /15306-0000 @@ TAD I 0050 /15307-1450 L( AND 0001 /15310-0001 @A TAD 0111 /15311-1111 II AND 0000 /15312-0000 @@ TAD 0112 /15313-1112 IJ AND 0000 /15314-0000 @@ TAD 0113 /15315-1113 IK AND 0000 /15316-0000 @@ TAD 0114 /15317-1114 IL AND 0000 /15320-0000 @@ TAD 0115 /15321-1115 IM AND 0000 /15322-0000 @@ TAD 0116 /15323-1116 IN AND 0000 /15324-0000 @@ TAD I 0051 /15325-1451 L) AND 0000 /15326-0000 @@ TAD I 0052 /15327-1452 L* AND 0000 /15330-0000 @@ TAD 5347 /15331-1347 K' AND 0000 /15332-0000 @@ TAD 5350 /15333-1350 K( AND 0000 /15334-0000 @@ TAD 5351 /15335-1351 K) AND 0000 /15336-0000 @@ TAD 5352 /15337-1352 K* AND 0000 /15340-0000 @@ TAD 5353 /15341-1353 K+ AND 0000 /15342-0000 @@ TAD 5354 /15343-1354 K, AND 0000 /15344-0000 @@ TAD 5355 /15345-1355 K- AND 0000 /15346-0000 @@ TAD 5356 /15347-1356 K. AND 0000 /15350-0000 @@ TAD 5357 /15351-1357 K/ AND 0000 /15352-0000 @@ TAD 5361 /15353-1361 K1 AND 0000 /15354-0000 @@ TAD 5362 /15355-1362 K2 AND 0000 /15356-0000 @@ AND 0020 /15357-0020 @P AND 0000 /15360-0000 @@ AND 0134 /15361-0134 A\ CLA DVI /15362-7607 >G AND 0010 /15363-0010 @H AND 0000 /15364-0000 @@ AND 0141 /15365-0141 A! CLA IAC RTR /15366-7213 :K AND 0010 /15367-0010 @H DCA I 5377 /15370-3777 _? AND 0010 /15371-0010 @H DCA I 5377 /15372-3777 _? AND 5245 /15373-0245 B% MQA MQL CLA SAM /15374-7777 ?? AND 5247 /15375-0247 B' JMS 0040 /15376-4040 AND 5251 /15377-0251 B) AND I 0105 /15400-0505 EE TAD 0037 /15401-1037 H_ 6060 /15402-6060 00 TAD I 0002 /15403-1402 LB 6060 /15404-6060 00 TAD I 0072 /15405-1472 L: 6060 /15406-6060 00 TAD I 0073 /15407-1473 L; AND 0000 /15410-0000 @@ TAD I 0050 /15411-1450 L( DCA I 5577 /15412-3777 _? TAD 0111 /15413-1111 II AND 0000 /15414-0000 @@ TAD 0112 /15415-1112 IJ AND 0000 /15416-0000 @@ TAD 0113 /15417-1113 IK AND 0000 /15420-0000 @@ TAD 0114 /15421-1114 IL AND 0000 /15422-0000 @@ TAD 0115 /15423-1115 IM AND 0000 /15424-0000 @@ TAD 0116 /15425-1116 IN AND 0000 /15426-0000 @@ TAD I 0051 /15427-1451 L) AND 0000 /15430-0000 @@ AND 5553 /15431-0353 C+ AND 0000 /15432-0000 @@ AND 5557 /15433-0357 C/ AND 0000 /15434-0000 @@ AND 5561 /15435-0361 C1 AND 0000 /15436-0000 @@ AND 5570 /15437-0370 C8 AND 0000 /15440-0000 @@ AND 5570 /15441-0370 C8 AND 0000 /15442-0000 @@ AND 5570 /15443-0370 C8 AND 0000 /15444-0000 @@ AND 0020 /15445-0020 @P AND 0000 /15446-0000 @@ AND 0114 /15447-0114 AL AND I 0000 /15450-0400 D@ AND 0141 /15451-0141 A! 7354 /15452-7354 ;, AND 0010 /15453-0010 @H DCA I 5577 /15454-3777 _? AND 5404 /15455-0204 BD DCA I 5577 /15456-3777 _? AND 5410 /15457-0210 BH MQA MQL CLA SAM /15460-7777 ?? AND 5412 /15461-0212 BJ JMS 0040 /15462-4040 AND 5414 /15463-0214 BL AND I 0105 /15464-0505 EE AND 0020 /15465-0020 @P 6060 /15466-6060 00 AND 0100 /15467-0100 A@ DCA 5405 /15470-3205 ZE AND 0010 /15471-0010 @H AND 0001 /15472-0001 @A AND 0010 /15473-0010 @H AND 0000 /15474-0000 @@ AND 5445 /15475-0245 B% AND 0000 /15476-0000 @@ AND 5447 /15477-0247 B' AND 0000 /15500-0000 @@ AND 5451 /15501-0251 B) AND 0000 /15502-0000 @@ TAD 0037 /15503-1037 H_ AND 0000 /15504-0000 @@ TAD I 0003 /15505-1403 LC AND 0000 /15506-0000 @@ TAD I 0162 /15507-1562 M2 AND 0000 /15510-0000 @@ TAD I 5430 /15511-1630 NX SPA SNA SZL CLA OSR HLT /15512-7776 ?> TAD I 5431 /15513-1631 NY AND 0000 /15514-0000 @@ TAD 0000 /15515-1000 H@ AND 0000 /15516-0000 @@ TAD 0001 /15517-1001 HA AND 0000 /15520-0000 @@ AND 5524 /15521-0324 CT AND 0000 /15522-0000 @@ AND 5527 /15523-0327 CW MQA MQL CLA SAM /15524-7777 ?? AND 0170 /15525-0170 A8 6060 /15526-6060 00 AND 5532 /15527-0332 CZ AND I 0105 /15530-0505 EE AND 5536 /15531-0336 C^ JMS 0040 /15532-4040 AND 5541 /15533-0341 C! DCA I 5577 /15534-3777 _? AND 0165 /15535-0165 A5 DCA I 5577 /15536-3777 _? AND 0165 /15537-0165 A5 MQL SHL /15540-7433 <[ AND 0165 /15541-0165 A5 CLA IAC RTR /15542-7213 :K AND 0165 /15543-0165 A5 CLA CML IAC BSW /15544-7223 :S AND 5551 /15545-0351 C) CLA CMA RAL /15546-7244 :$ MCOD16, AND 5500 /15547-0300 C@ CLA /15550-7200 :@ AND 5521 /15551-0321 CQ AND 0000 /15552-0000 @@ AND 0107 /15553-0107 AG 6530 /15554-6530 5X AND 0114 /15555-0114 AL AND I 0000 /15556-0400 D@ AND 0141 /15557-0141 A! 6542 /15560-6542 5" AND 0010 /15561-0010 @H MQA MQL CLA SAM /15562-7777 ?? AND 5404 /15563-0204 BD JMP I 0155 /15564-5555 -- AND 5410 /15565-0210 BH JMP I 0155 /15566-5555 -- AND 5412 /15567-0212 BJ AND 0077 /15570-0077 @? AND 5414 /15571-0214 BL AND I 5570 /15572-0770 G8 AND 0020 /15573-0020 @P SMA CLA /15574-7700 ?@ AND 0114 /15575-0114 AL 6400 /15576-6400 4@ AND 0141 /15577-0141 A! CLA IAC RAL /15600-7205 :E AND 5622 /15601-0222 BR MQA MQL CLA SAM /15602-7777 ?? AND 5626 /15603-0226 BV JMP I 0155 /15604-5555 -- AND 5770 /15605-0370 C8 JMP I 0155 /15606-5555 -- AND 5770 /15607-0370 C8 AND 0077 /15610-0077 @? AND 5770 /15611-0370 C8 AND I 5770 /15612-0770 G8 AND 0020 /15613-0020 @P SMA CLA /15614-7700 ?@ TAD 0012 /15615-1012 HJ AND 0006 /15616-0006 @F TAD 0013 /15617-1013 HK AND 0006 /15620-0006 @F AND 0020 /15621-0020 @P AND 0006 /15622-0006 @F AND 0036 /15623-0036 @^ TAD 0110 /15624-1110 IH AND 0020 /15625-0020 @P CLA IAC RTR /15626-7213 :K AND 0102 /15627-0102 AB LXM /15630-6200 2@ AND 5626 /15631-0226 BV JMP I 0155 /15632-5555 -- AND 0020 /15633-0020 @P JMP I 0155 /15634-5555 -- AND 0114 /15635-0114 AL JMS I 0000 /15636-4400 $@ AND 0141 /15637-0141 A! FFST /15640-6550 5( AND 0010 /15641-0010 @H ISZ 0020 /15642-2020 PP TAD 0037 /15643-1037 H_ ISZ 0020 /15644-2020 PP TAD I 0002 /15645-1402 LB ISZ 0020 /15646-2020 PP TAD I 0072 /15647-1472 L: ISZ 0020 /15650-2020 PP TAD I 0073 /15651-1473 L; MQA MQL CLA SAM /15652-7777 ?? TAD I 0074 /15653-1474 L< ISZ 0020 /15654-2020 PP TAD 0111 /15655-1111 II AND 0000 /15656-0000 @@ TAD 0112 /15657-1112 IJ MQA MQL CLA SAM /15660-7777 ?? TAD 0116 /15661-1116 IN AND 0000 /15662-0000 @@ TAD I 0075 /15663-1475 L= AND 0000 /15664-0000 @@ TAD I 0132 /15665-1532 MZ AND 0000 /15666-0000 @@ TAD I 0133 /15667-1533 M[ AND 0000 /15670-0000 @@ TAD I 0156 /15671-1556 M. JMP I 0155 /15672-5555 -- TAD I 0157 /15673-1557 M/ DCA 5733 /15674-3333 [[ TAD I 0133 /15675-1533 M[ DCA 5733 /15676-3333 [[ TAD I 0156 /15677-1556 M. DCA 5733 /15700-3333 [[ TAD I 0157 /15701-1557 M/ 6666 /15702-6666 66 TAD I 0133 /15703-1533 M[ 6666 /15704-6666 66 TAD I 0156 /15705-1556 M. 6666 /15706-6666 66 TAD I 0157 /15707-1557 M/ JMP I 0155 /15710-5555 -- TAD I 0133 /15711-1533 M[ JMP I 0155 /15712-5555 -- TAD I 0156 /15713-1556 M. JMP I 0155 /15714-5555 -- TAD I 0157 /15715-1557 M/ DCA 5733 /15716-3333 [[ TAD I 0133 /15717-1533 M[ DCA 5733 /15720-3333 [[ TAD I 0156 /15721-1556 M. DCA 5733 /15722-3333 [[ TAD I 0157 /15723-1557 M/ 6666 /15724-6666 66 TAD I 0133 /15725-1533 M[ 6666 /15726-6666 66 TAD I 0156 /15727-1556 M. 6666 /15730-6666 66 TAD I 0157 /15731-1557 M/ JMP I 0155 /15732-5555 -- TAD I 0133 /15733-1533 M[ JMP I 0155 /15734-5555 -- TAD I 0156 /15735-1556 M. JMP I 0155 /15736-5555 -- TAD I 0157 /15737-1557 M/ DCA 5733 /15740-3333 [[ TAD I 0133 /15741-1533 M[ DCA 5733 /15742-3333 [[ TAD I 0156 /15743-1556 M. DCA 5733 /15744-3333 [[ TAD I 0157 /15745-1557 M/ 6666 /15746-6666 66 TAD I 0133 /15747-1533 M[ 6666 /15750-6666 66 TAD I 0156 /15751-1556 M. 6666 /15752-6666 66 TAD I 0157 /15753-1557 M/ JMP I 0155 /15754-5555 -- TAD I 0133 /15755-1533 M[ JMP I 0155 /15756-5555 -- TAD I 0156 /15757-1556 M. JMP I 0155 /15760-5555 -- TAD I 0157 /15761-1557 M/ DCA 5733 /15762-3333 [[ TAD I 0133 /15763-1533 M[ DCA 5733 /15764-3333 [[ TAD I 0156 /15765-1556 M. DCA 5733 /15766-3333 [[ TAD I 0157 /15767-1557 M/ 6666 /15770-6666 66 TAD I 0133 /15771-1533 M[ 6666 /15772-6666 66 TAD I 0156 /15773-1556 M. 6666 /15774-6666 66 TAD I 0157 /15775-1557 M/ JMP I 0155 /15776-5555 -- TAD I 0134 /15777-1534 M\ JMP I 0155 /16000-5555 -- TAD 0125 /16001-1125 IU JMP I 0155 /16002-5555 -- TAD 0126 /16003-1126 IV JMP I 0155 /16004-5555 -- TAD 0127 /16005-1127 IW JMP I 0155 /16006-5555 -- TAD 0130 /16007-1130 IX ISZ I 6115 /16010-2715 WM TAD 0131 /16011-1131 IY ISZ I 6115 /16012-2715 WM TAD 0132 /16013-1132 IZ TAD 6146 /16014-1346 K& TAD I 0135 /16015-1535 M] AND 0000 /16016-0000 @@ TAD I 0136 /16017-1536 M^ AND 0000 /16020-0000 @@ TAD I 0155 /16021-1555 M- JMP I 0155 /16022-5555 -- TAD I 0156 /16023-1556 M. DCA 6133 /16024-3333 [[ TAD I 0157 /16025-1557 M/ DCA 6133 /16026-3333 [[ TAD I 0136 /16027-1536 M^ DCA 6133 /16030-3333 [[ TAD I 0155 /16031-1555 M- DCA 6133 /16032-3333 [[ MDJFPA, DCA I 6136 /16033-3736 _^ JMS 0006 /16034-4006 F ISZ 0020 /16035-2020 PP JMP I 0170 /16036-5570 -8 AND 0140 /16037-0140 A AND I 0011 /16040-0411 DI AND 0107 /16041-0107 AG TAD I 6017 /16042-1617 NO ISZ 6124 /16043-2324 ST TAD 0103 /16044-1103 IC JMS 0004 /16045-4004 D TAD 6006 /16046-1206 JF ISZ 0001 /16047-2001 PA JMP I 0102 /16050-5502 -B AND 0000 /16051-0000 @@ MRUNAL, DCA I 6136 /16052-3736 _^ JMS 0022 /16053-4022 R ISZ I 0116 /16054-2516 UN JMS 0001 /16055-4001 A TAD I 0014 /16056-1414 LL JMS 0024 /16057-4024 T AND I 0123 /16060-0523 ES ISZ I 0023 /16061-2423 TS SMA CLA /16062-7700 ?@ MCONTI, DCA I 6136 /16063-3736 _^ JMS 0003 /16064-4003 C TAD I 6116 /16065-1716 ON ISZ I 0011 /16066-2411 TI TAD I 6025 /16067-1625 NU AND I 0140 /16070-0540 E SMA SZA CLA /16071-7740 ? AND 0000 /16072-0000 @@ MUNINT, DCA I 6136 /16073-3736 _^ JMS 0025 /16074-4025 U TAD I 6004 /16075-1604 ND AND I 0106 /16076-0506 EF TAD 0116 /16077-1116 IN AND I 0104 /16100-0504 ED JMS 0011 /16101-4011 I TAD I 6024 /16102-1624 NT AND I 0122 /16103-0522 ER ISZ 6025 /16104-2225 RU ISZ 0024 /16105-2024 PT JMS 0000 /16106-4000 @ MSREQ, JMS 0040 /16107-4040 ISZ 6122 /16110-2322 SR SMA SZA /16111-7540 = JMS 0000 /16112-4000 @ MCRLF, DCA I 6136 /16113-3736 _^ JMS 0000 /16114-4000 @ MTSTNO, DCA I 6136 /16115-3736 _^ JMS 0005 /16116-4005 E TAD I 6024 /16117-1624 NT AND I 0122 /16120-0522 ER JMS 0024 /16121-4024 T AND I 0123 /16122-0523 ES ISZ I 0040 /16123-2440 T TAD I 6025 /16124-1625 NU TAD I 0102 /16125-1502 MB AND I 0122 /16126-0522 ER JMS 0040 /16127-4040 AND 0000 /16130-0000 @@ MSETSW, DCA I 6136 /16131-3736 _^ JMS 0023 /16132-4023 S AND I 0124 /16133-0524 ET ISZ I 0120 /16134-2520 UP JMS 0003 /16135-4003 C TAD I 6116 /16136-1716 ON ISZ I 0022 /16137-2422 TR TAD I 6114 /16140-1714 OL JMS 0023 /16141-4023 S ISZ I 6111 /16142-2711 WI ISZ I 0003 /16143-2403 TC TAD 0005 /16144-1005 HE ISZ 6140 /16145-2340 S SMA SZA /16146-7540 = AND 0000 /16147-0000 @@ MINTST, JMS 0011 /16150-4011 I ISZ 6140 /16151-2340 S TAD 0116 /16152-1116 IN AND 6117 /16153-0317 CO ISZ 6022 /16154-2222 RR AND I 0103 /16155-0503 EC ISZ I 0040 /16156-2440 T ISZ I 0005 /16157-2405 TE ISZ 6124 /16160-2324 ST JMS 0016 /16161-4016 N ISZ I 0115 /16162-2515 UM AND 6005 /16163-0205 BE ISZ 6040 /16164-2240 R TAD I 0017 /16165-1417 LO AND 6140 /16166-0340 C AND 0000 /16167-0000 @@ PSHERR, DCA I 6136 /16170-3736 _^ JMS 0023 /16171-4023 S ISZ I 0001 /16172-2401 TA AND 6113 /16173-0313 CK JMS 0020 /16174-4020 P ISZ I 0123 /16175-2523 US TAD 0040 /16176-1040 H AND I 0122 /16177-0522 ER ISZ 6217 /16200-2217 RO ISZ 6240 /16201-2240 R ISZ 6205 /16202-2205 RE ISZ 6324 /16203-2324 ST AND 0122 /16204-0122 AR ISZ I 0011 /16205-2411 TI TAD I 6207 /16206-1607 NG JMS 0000 /16207-4000 @ POPERR, DCA I 6336 /16210-3736 _^ JMS 0023 /16211-4023 S ISZ I 0001 /16212-2401 TA AND 6313 /16213-0313 CK JMS 0020 /16214-4020 P TAD I 6320 /16215-1720 OP JMS 0005 /16216-4005 E ISZ 6222 /16217-2222 RR TAD I 6322 /16220-1722 OR JMS 0022 /16221-4022 R AND I 0123 /16222-0523 ES ISZ I 0001 /16223-2401 TA ISZ 6224 /16224-2224 RT TAD 0116 /16225-1116 IN AND I 6340 /16226-0740 G AND 0000 /16227-0000 @@ MSTAER, DCA I 6336 /16230-3736 _^ DCA I 6240 /16231-3640 ^ AND I 6220 /16232-0620 FP ISZ 0040 /16233-2040 P ISZ 6324 /16234-2324 ST AND 0124 /16235-0124 AT ISZ I 0123 /16236-2523 US JMS 0005 /16237-4005 E ISZ 6222 /16240-2222 RR TAD I 6322 /16241-1722 OR JMS 0040 /16242-4040 JMS 0014 /16243-4014 L TAD I 6303 /16244-1703 OC CLA CMA /16245-7240 : AND 0000 /16246-0000 @@ MSKPFG, DCA I 6336 /16247-3736 _^ JMS 0006 /16250-4006 F ISZ 0020 /16251-2020 PP JMS 0023 /16252-4023 S TAD 6311 /16253-1311 KI ISZ 0040 /16254-2040 P AND I 6214 /16255-0614 FL AND 0107 /16256-0107 AG JMS 0005 /16257-4005 E ISZ 6222 /16260-2222 RR TAD I 6322 /16261-1722 OR JMS 0014 /16262-4014 L TAD I 6303 /16263-1703 OC CLA CMA /16264-7240 : AND 0000 /16265-0000 @@ MPCERR, DCA I 6336 /16266-3736 _^ JMS 0006 /16267-4006 F ISZ 0020 /16270-2020 PP JMS 0015 /16271-4015 M ISZ 0003 /16272-2003 PC JMS 0005 /16273-4005 E ISZ 6222 /16274-2222 RR TAD I 6322 /16275-1722 OR JMS 0040 /16276-4040 JMS 0040 /16277-4040 JMS 0040 /16300-4040 JMS 0014 /16301-4014 L TAD I 6303 /16302-1703 OC CLA CMA /16303-7240 : AND 0000 /16304-0000 @@ MDBERR, DCA I 6336 /16305-3736 _^ JMS 0006 /16306-4006 F ISZ 0020 /16307-2020 PP JMS 0004 /16310-4004 D AND 6240 /16311-0240 B AND I 0122 /16312-0522 ER ISZ 6217 /16313-2217 RO ISZ 6240 /16314-2240 R JMS 0040 /16315-4040 JMS 0040 /16316-4040 JMS 0040 /16317-4040 JMS 0014 /16320-4014 L TAD I 6303 /16321-1703 OC CLA CMA /16322-7240 : AND 0000 /16323-0000 @@ MACFPP, AND 0103 /16324-0103 AC ISZ I 0025 /16325-2425 TU AND 0114 /16326-0114 AL JMS 0006 /16327-4006 F ISZ 0020 /16330-2020 PP AND 0000 /16331-0000 @@ MACTUA, DCA I 6336 /16332-3736 _^ JMS 0001 /16333-4001 A AND 6324 /16334-0324 CT ISZ I 0101 /16335-2501 UA TAD I 0072 /16336-1472 L: JMS 0000 /16337-4000 @ MEXPEC, AND I 0130 /16340-0530 EX ISZ 0005 /16341-2005 PE AND 6324 /16342-0324 CT AND I 0104 /16343-0504 ED CLA CMA /16344-7240 : AND 0000 /16345-0000 @@ MSTAT, ISZ 6324 /16346-2324 ST AND 0124 /16347-0124 AT ISZ I 0123 /16350-2523 US CLA CMA /16351-7240 : AND 0000 /16352-0000 @@ MSTEP, ISZ 6324 /16353-2324 ST AND I 0120 /16354-0520 EP CLA CMA /16355-7240 : AND 0000 /16356-0000 @@ MTEST, ISZ I 0005 /16357-2405 TE ISZ 6324 /16360-2324 ST CLA CMA /16361-7240 : AND 0000 /16362-0000 @@ MADDRS, AND 0104 /16363-0104 AD AND I 0022 /16364-0422 DR AND I 0123 /16365-0523 ES ISZ 6372 /16366-2372 S: JMS 0000 /16367-4000 @ MINCOR, JMS 0011 /16370-4011 I ISZ 6340 /16371-2340 S TAD 0116 /16372-1116 IN AND 6317 /16373-0317 CO ISZ 6222 /16374-2222 RR AND I 0103 /16375-0503 EC ISZ I 0040 /16376-2440 T AND 0103 /16377-0103 AC JMS 0040 /16400-4040 JMS 0040 /16401-4040 JMS 0040 /16402-4040 JMS 0040 /16403-4040 JMS 0014 /16404-4014 L TAD I 6503 /16405-1703 OC JMS 0000 /16406-4000 @ MMCREV, DCA I 6536 /16407-3736 _^ JMS 0006 /16410-4006 F ISZ 0020 /16411-2020 PP JMS 0015 /16412-4015 M TAD 0103 /16413-1103 IC ISZ 6417 /16414-2217 RO JMS 0003 /16415-4003 C TAD I 6504 /16416-1704 OD AND I 0140 /16417-0540 E ISZ 6405 /16420-2205 RE ISZ I 6440 /16421-2640 V SMA SZA /16422-7540 = AND 0000 /16423-0000 @@ MIRVRM, DCA I 6536 /16424-3736 _^ JMS 0011 /16425-4011 I TAD I 6403 /16426-1603 NC TAD I 6522 /16427-1722 OR ISZ 6405 /16430-2205 RE AND 6524 /16431-0324 CT JMS 0022 /16432-4022 R AND I 0126 /16433-0526 EV JMS 0016 /16434-4016 N ISZ I 0115 /16435-2515 UM JMS 0011 /16436-4011 I TAD I 6440 /16437-1640 N ISZ 6417 /16440-2217 RO TAD I 0100 /16441-1500 M@ MAPTER, DCA I 6536 /16442-3736 _^ JMS 0001 /16443-4001 A ISZ 0024 /16444-2024 PT JMS 0024 /16445-4024 T AND 0102 /16446-0102 AB TAD I 0005 /16447-1405 LE JMS 0005 /16450-4005 E ISZ 6422 /16451-2222 RR TAD I 6522 /16452-1722 OR JMS 0040 /16453-4040 TAD I 0017 /16454-1417 LO AND 6572 /16455-0372 C: JMS 0000 /16456-4000 @ MAPTHL, DCA I 6536 /16457-3736 _^ JMS 0006 /16460-4006 F TAD I 0004 /16461-1404 LD JMS 0040 /16462-4040 AND I 6420 /16463-0620 FP AND 6540 /16464-0340 C JMS 0011 /16465-4011 I ISZ 6440 /16466-2240 R JMS 0040 /16467-4040 AND 6401 /16470-0201 BA ISZ 6505 /16471-2305 SE JMS 0017 /16472-4017 O ISZ 0005 /16473-2005 PE ISZ 6440 /16474-2240 R AND I 0130 /16475-0530 EX ISZ 0040 /16476-2040 P JMS 0015 /16477-4015 M ISZ 6527 /16500-2327 SW JMS 0040 /16501-4040 TAD I 0023 /16502-1423 LS ISZ I 6540 /16503-2740 W JMS 0014 /16504-4014 L ISZ 6527 /16505-2327 SW 6140 /16506-6140 1 TAD I 0023 /16507-1423 LS ISZ I 6562 /16510-2762 W2 JMS 0014 /16511-4014 L ISZ 6527 /16512-2327 SW CIF CDF 134 /16513-6337 3_ DCA I 6440 /16514-3640 ^ AND 0000 /16515-0000 @@ MNORUN, DCA I 6536 /16516-3736 _^ JMS 0016 /16517-4016 N TAD I 6524 /16520-1724 OT JMS 0022 /16521-4022 R ISZ I 0116 /16522-2516 UN TAD I 6411 /16523-1611 NI TAD I 6407 /16524-1607 NG JMS 0040 /16525-4040 JMS 0040 /16526-4040 JMS 0040 /16527-4040 TAD I 0017 /16530-1417 LO AND 6572 /16531-0372 C: JMS 0000 /16532-4000 @ MDATBR, DCA I 6536 /16533-3736 _^ JMS 0004 /16534-4004 D AND 0124 /16535-0124 AT AND 0140 /16536-0140 A AND 6422 /16537-0222 BR AND I 0101 /16540-0501 EA TAD 6540 /16541-1340 K AND I 0122 /16542-0522 ER ISZ 6417 /16543-2217 RO ISZ 6440 /16544-2240 R JMS 0040 /16545-4040 TAD I 0017 /16546-1417 LO AND 6572 /16547-0372 C: JMS 0000 /16550-4000 @ MRUNIN, DCA I 6536 /16551-3736 _^ JMS 0022 /16552-4022 R ISZ I 0116 /16553-2516 UN TAD I 6411 /16554-1611 NI TAD I 6407 /16555-1607 NG DCA I 6536 /16556-3736 _^ AND 0000 /16557-0000 @@ MBADM0, JMS 0040 /16560-4040 JMS 0040 /16561-4040 JMS 0040 /16562-4040 JMS 0040 /16563-4040 AND 6401 /16564-0201 BA AND I 0040 /16565-0440 D TAD I 0117 /16566-1517 MO AND I 0025 /16567-0425 DU TAD I 0005 /16570-1405 LE JMS 0011 /16571-4011 I ISZ 6540 /16572-2340 S TAD I 0170 /16573-1570 M8 6461 /16574-6461 41 SKON /16575-6000 0@ MBADM1, JMS 0040 /16576-4040 JMS 0040 /16577-4040 JMS 0040 /16600-4040 JMS 0040 /16601-4040 AND 6601 /16602-0201 BA AND I 0040 /16603-0440 D TAD I 0117 /16604-1517 MO AND I 0025 /16605-0425 DU TAD I 0005 /16606-1405 LE JMS 0011 /16607-4011 I ISZ 6740 /16610-2340 S TAD I 0170 /16611-1570 M8 6461 /16612-6461 41 6100 /16613-6100 1@ MUNEXI, ISZ I 0116 /16614-2516 UN AND I 0130 /16615-0530 EX ISZ 0005 /16616-2005 PE AND 6724 /16617-0324 CT AND I 0104 /16620-0504 ED JMS 0006 /16621-4006 F ISZ 0020 /16622-2020 PP JMS 0011 /16623-4011 I TAD I 6624 /16624-1624 NT AND I 0122 /16625-0522 ER ISZ 6625 /16626-2225 RU ISZ 0024 /16627-2024 PT JMS 0022 /16630-4022 R AND I 0121 /16631-0521 EQ ISZ I 0105 /16632-2505 UE ISZ 6724 /16633-2324 ST JMS 0014 /16634-4014 L TAD I 6703 /16635-1703 OC CLA CMA /16636-7240 : AND 0000 /16637-0000 @@ MXRERR, DCA I 6736 /16640-3736 _^ JMS 0011 /16641-4011 I TAD I 6604 /16642-1604 ND AND I 0130 /16643-0530 EX JMS 0022 /16644-4022 R AND I 0107 /16645-0507 EG TAD 0123 /16646-1123 IS ISZ I 0005 /16647-2405 TE ISZ 6640 /16650-2240 R AND I 0122 /16651-0522 ER ISZ 6617 /16652-2217 RO ISZ 6640 /16653-2240 R JMS 0040 /16654-4040 TAD I 0017 /16655-1417 LO AND 6772 /16656-0372 C: JMS 0000 /16657-4000 @ MINDXP, DCA I 6736 /16660-3736 _^ JMS 0011 /16661-4011 I ISZ 6660 /16662-2260 R0 JMS 0040 /16663-4040 TAD 0122 /16664-1122 IR 6140 /16665-6140 1 JMS 0011 /16666-4011 I ISZ 6662 /16667-2262 R2 JMS 0040 /16670-4040 TAD 0122 /16671-1122 IR 6340 /16672-6340 3 JMS 0011 /16673-4011 I ISZ 6664 /16674-2264 R4 JMS 0040 /16675-4040 TAD 0122 /16676-1122 IR 6540 /16677-6540 5 JMS 0011 /16700-4011 I ISZ 6666 /16701-2266 R6 JMS 0040 /16702-4040 TAD 0122 /16703-1122 IR 6740 /16704-6740 7 DCA I 6736 /16705-3736 _^ JMS 0000 /16706-4000 @ MPWRLO, DCA I 6736 /16707-3736 _^ JMS 0020 /16710-4020 P TAD I 6727 /16711-1727 OW AND I 0122 /16712-0522 ER JMS 0014 /16713-4014 L TAD I 6727 /16714-1727 OW JMS 0006 /16715-4006 F TAD I 0001 /16716-1401 LA AND I 6740 /16717-0740 G ISZ 6705 /16720-2305 SE ISZ I 0040 /16721-2440 T ISZ 6605 /16722-2205 RE ISZ 6724 /16723-2324 ST AND 0122 /16724-0122 AR ISZ I 0011 /16725-2411 TI TAD I 6607 /16726-1607 NG AND 0000 /16727-0000 @@ MDJPAS, AND I 0012 /16730-0412 DJ AND I 6620 /16731-0620 FP AND 0155 /16732-0155 A- AND 6640 /16733-0240 B ISZ 0001 /16734-2001 PA ISZ 6723 /16735-2323 SS AND 0000 /16736-0000 @@ MTST24, ISZ I 0005 /16737-2405 TE ISZ 6724 /16740-2324 ST JMS 0062 /16741-4062 2 6440 /16742-6440 4 DCA I 6736 /16743-3736 _^ AND 0000 /16744-0000 @@ JMP I 6723 /16745-5723 /S AND 0002 /16746-0002 @B CLA DVI /16747-7607 >G HLT /16750-7402 <B TAD 6746 /16751-1346 K& JMP I 6737 /16752-5737 /_ AND 6600 /16753-0200 B@ JMP 0000 /16754-5000 (@ ISZ I 0113 /16755-2513 UK ISZ I 0116 /16756-2516 UN JMP 0152 /16757-5152 )* JMP 0015 /16760-5015 (M JMP 0124 /16761-5124 )T 6135 /16762-6135 1] AND 0007 /16763-0007 @G MQA MQL CLA DPSZ /16764-7771 ?9 6546 /16765-6546 5& AND 0003 /16766-0003 @C 6550 /16767-6550 5( 6547 /16770-6547 5' AND 0037 /16771-0037 @_ 6340 /16772-6340 3 AND 0106 /16773-0106 AF CIF CDF 134 /16774-6337 3_ 6037 /16775-6037 0_ AND 0017 /16776-0017 @O SZA SNL CLA OSR HLT /16777-7666 >6 FIELD 0 *0000 302 /00000-0302 CB JMP I .+1 /00001-5402 ,B INTRPT /00002-0400 D@ 2741 /00003-2741 W! HLT /00004-7402 <B HLT /00005-7402 <B HLT /00006-7402 <B HLT /00007-7402 <B STACK, AND 0000 /00010-0000 @@ AND 0000 /00011-0000 @@ AND 0000 /00012-0000 @@ AND 0000 /00013-0000 @@ AND 0000 /00014-0000 @@ MQA MQL CLA SAM /00015-7777 ?? AND 0000 /00016-0000 @@ AND 0000 /00017-0000 @@ OPTS, AND 0000 /00020-0000 @@ AND 0000 /00021-0000 @@ X8MOD, AND 0000 /00022-0000 @@ AND 0000 /00023-0000 @@ AND 0000 /00024-0000 @@ AND 0000 /00025-0000 @@ AND 0000 /00026-0000 @@ AND 0000 /00027-0000 @@ AND 0000 /00030-0000 @@ AND 0000 /00031-0000 @@ AND 0000 /00032-0000 @@ AND 0000 /00033-0000 @@ AND 0000 /00034-0000 @@ AND 0000 /00035-0000 @@ XOPT, OPTRED /00036-1505 ME MSG, MESG /00037-1242 J" PUSH, PSHRTE /00040-1400 L@ POP, POPRTE /00041-1406 LF GETC, CGET /00042-0600 F@ NUMPRT, PRTNUM /00043-0531 EY LOOP, WAIT /00044-0505 EE CHRPRT, PRTCHR /00045-1203 JC 0731 /00046-0731 GY 1322 /00047-1322 KR STSMSG, MSGSTS /00050-1343 K# PREAPT, APTPRE /00051-1523 MS SKFGPR, PRSKFG /00052-1634 N\ CKSTAT, STATCK /00053-1671 N9 RDREGS, REGSRD /00054-2011 PI ACBAD, BADAC /00055-2200 R@ BRKERR, ERRBRK /00056-2231 RY ABORT, ORTAB /00057-2312 SJ NORUN, RUNNO /00060-2344 S$ CHKAPT, APTCHK /00061-2471 T9 CHKIDX, IDXCHK /00062-2617 VO ROMVER, VERROM /00063-2400 T@ XX8, X8TST /00064-0747 G' SETENV, ENVSET /00065-3055 X- C1, 1 /00066-0001 @A C3, 3 /00067-0003 @C C4, 4 /00070-0004 @D C5, 5 /00071-0005 @E C7, 7 /00072-0007 @G C11, 11 /00073-0011 @I C12, 12 /00074-0012 @J C15, 15 /00075-0015 @M C23, 23 /00076-0023 @S C77, 77 /00077-0077 @? C177, 177 /00100-0177 A? C200, START /00101-0200 B@ ALSO 200 C260, 260 /00102-0260 B0 C277, 277 /00103-0277 B? C1000, 1000 /00104-1000 H@ C2000, 2000 /00105-2000 P@ C3777, 3777 /00106-3777 _? C4000, 4000 /00107-4000 @ C5777, 5777 /00110-5777 /? C7700, 7700 /00111-7700 ?@ CM23, -23 /00112-7755 ?- CM13, -13 /00113-7765 ?5 CM12, -12 /00114-7766 ?6 C7777, 7777 /00115-7777 ?? INFLAG, AND 0000 /00116-0000 @@ QFLAG, AND 0000 /00117-0000 @@ AND 0000 /00120-0000 @@ CTGONC, AND 0000 /00121-0000 @@ TSTNUM, AND 0000 /00122-0000 @@ NALL, AND 0000 /00123-0000 @@ INPUT, AND 0000 /00124-0000 @@ AC, AND 0000 /00125-0000 @@ MQ, AND 0000 /00126-0000 @@ GTFS, AND 0000 /00127-0000 @@ AC1, AND 0000 /00130-0000 @@ MQ1, AND 0000 /00131-0000 @@ GTFS1, AND 0000 /00132-0000 @@ AC2, AND 0000 /00133-0000 @@ MQ2, AND 0000 /00134-0000 @@ GTFS2, AND 0000 /00135-0000 @@ NUMLEN, AND 0000 /00136-0000 @@ CNT, AND 0000 /00137-0000 @@ AND 0000 /00140-0000 @@ AND 0000 /00141-0000 @@ OCTNUM, AND 0000 /00142-0000 @@ MSGSWI, AND 0000 /00143-0000 @@ ONCONL, AND 0000 /00144-0000 @@ CNTSTP, AND 0000 /00145-0000 @@ APTP, APT /00146-7200 :@ STATUS, AND 0000 /00147-0000 @@ MPC, AND 0000 /00150-0000 @@ MDB, AND 0000 /00151-0000 @@ AND 0000 /00152-0000 @@ TSTC, AND 0000 /00153-0000 @@ TSTN, AND 0000 /00154-0000 @@ TSTL, AND 0000 /00155-0000 @@ CODE, AND 0000 /00156-0000 @@ MCODE, AND 0000 /00157-0000 @@ INTTEM, AND 0000 /00160-0000 @@ CIFCDF, CIF CDF 0 /00161-6203 2C C2370, EXPEX FPCON LOCON /00162-2370 S8 C2770, EXPEX FPENA FPCON LOCON /00163-2770 W8 C6410, DPSEL EXPEX FPENA LOCON /00164-6410 4H C2410, EXPEX FPENA LOCON /00165-2410 TH C2760, EXPEX FPENA FPCON /00166-2760 W0 C6400, DPSEL EXPEX FPENA /00167-6400 4@ MQL SAM /00170-7477 <? SMA SZA SNL CLA OSR HLT /00171-7766 ?6 SPA SNA SZL CLA OSR HLT /00172-7776 ?> SMA SNL HLT /00173-7522 =R 0240 /00174-0240 B SMA SZA /00175-7540 = AND 0034 /00176-0034 @\ NOP /00177-7000 8@ PAGE START, CAF /00200-6007 0G MQL CLA /00201-7621 >Q JMS INIT /00202-4343 ## ION /00203-6001 0A TAD X8MOD /00204-1022 HR SMA CLA /00205-7700 ?@ JMP 0211 /00206-5211 *I ISZ ONCONL /00207-2144 Q$ JMP I 0377 /00210-5777 /? JMS I MSG /00211-4437 $_ MDJFPA /00212-6033 0[ JMS I MSG /00213-4437 $_ MRUNAL /00214-6052 0* JMS I GETC /00215-4442 $" JMP XTST /00216-5223 *S NO JMP 0213 /00217-5213 *K ERROR JMP 0213 /00220-5213 *K RETURN DCA TSTNUM /00221-3122 YR YES JMP XSET /00222-5235 *] XTST, JMS I MSG /00223-4437 $_ MTSTNO /00224-6115 1M JMS I GETC /00225-4442 $" JMP XTST /00226-5223 *S NO JMP XTST /00227-5223 *S ERROR SKP /00230-7410 <H RETURN JMP XTST /00231-5223 *S YES TAD OCTNUM /00232-1142 I" DCA TSTNUM /00233-3122 YR ISZ NALL /00234-2123 QS XSET, JMS I MSG /00235-4437 $_ MSETSW /00236-6131 1Y JMS I XOPT /00237-4436 $^ JMS I NUMPRT /00240-4443 $# TAD 0021 /00241-1021 HQ SMA CLA /00242-7700 ?@ JMP 0253 /00243-5253 *+ JMS I MSG /00244-4437 $_ MCONTI /00245-6063 03 JMS I GETC /00246-4442 $" NOP /00247-7000 8@ NO NOP /00250-7000 8@ ERROR NOP /00251-7000 8@ RETURN JMP XRUN /00252-5266 *6 YES JMS I GETC /00253-4442 $" JMP XCONT /00254-5274 *< NO JMP XSET /00255-5235 *] ERROR SKP /00256-7410 <H RETURN JMP XSET /00257-5235 *] YES TAD NUMLEN /00260-1136 I^ TAD C4 /00261-1070 H8 SPA CLA /00262-7710 ?H JMP XRUN /00263-5266 *6 TAD OCTNUM /00264-1142 I" DCA OPTS /00265-3020 XP XRUN, JMS I MSG /00266-4437 $_ MRUNIN /00267-6551 5) TAD NALL /00270-1123 IS SZA CLA /00271-7640 > JMP XALL /00272-5303 +C JMP I (TST1 /00273-5777 /? XCONT, CLA CLL IAC RTL /00274-7307 ;G TAD NUMLEN /00275-1136 I^ SPA CLA /00276-7710 ?H JMP I C200 /00277-5501 -A TAD OCTNUM /00300-1142 I" DCA OPTS /00301-3020 XP JMP I C200 /00302-5501 -A XALL, DCA TSTC /00303-3153 Y+ TAD (TSNLST /00304-1376 K> DCA TSTN /00305-3154 Y, TAD (TSTLST /00306-1375 K= DCA TSTL /00307-3155 Y- JMS NEXTST /00310-4311 #I NEXTST, HLT /00311-7402 <B TAD I TSTN /00312-1554 M, SNA /00313-7450 <( JMP 0324 /00314-5324 +T TAD TSTNUM /00315-1122 IR SNA CLA /00316-7650 >( JMP NEXOK /00317-5334 +\ ISZ TSTC /00320-2153 Q+ ISZ TSTN /00321-2154 Q, JMP 0312 /00322-5312 +J JMS I NORUN /00323-4460 $0 TAD TSTNUM /00324-1122 IR JMS I NUMPRT /00325-4443 $# JMS I MSG /00326-4437 $_ MINTST /00327-6150 1( CLA CMA /00330-7240 : TAD NEXTST /00331-1311 KI JMS I NUMPRT /00332-4443 $# JMP 0223 /00333-5223 *S NEXOK, TAD TSTL /00334-1155 I- TAD TSTC /00335-1153 I+ DCA NEXIND /00336-3342 [" TAD I NEXIND /00337-1742 O" DCA NEXIND /00340-3342 [" JMP I NEXIND /00341-5742 /" NEXIND, AND 0000 /00342-0000 @@ INIT, HLT /00343-7402 <B CIF CDF 0 /00344-6203 2C TAD (-4 /00345-1374 K< DCA I (CM4 /00346-3773 _; DCA NALL /00347-3123 YS DCA CNTSTP /00350-3145 Y% DCA INFLAG /00351-3116 YN TAD C23 /00352-1076 H> DCA STACK /00353-3010 XH DCA QFLAG /00354-3117 YO DCA 0120 /00355-3120 YP DCA CTGONC /00356-3121 YQ DCA MSGSWI /00357-3143 Y# DCA ONCONL /00360-3144 Y$ DCA 0152 /00361-3152 Y* DCA I 0372 /00362-3772 _: JMP I INIT /00363-5743 /# SMA CLA /00364-7700 ?@ AND 0000 /00365-0000 @@ JMP 0337 /00366-5337 +_ TAD I 0000 /00367-1400 L@ TAD I 0013 /00370-1413 LK SNA /00371-7450 <( DCA 0054 /00372-3054 X, /DCA 0051 /00373-3051 X) /SPA SNA SZL CLA OSR /00374-7774 ?< /JMP I 0123 /00375-5523 -S /JMP I 0076 /00376-5476 ,> /DCA 0200 /00377-3200 Z@ PAGE INTRPT, SPL /00400-6102 1B SKP /00401-7410 <H JMP I (INTSPL /00402-5777 /? DCA AC /00403-3125 YU GTF /00404-6004 0D DCA GTFS /00405-3127 YW MQA CLA /00406-7701 ?A DCA MQ /00407-3126 YV MQL CLA /00410-7621 >Q JMS I 0040 /00411-4440 $ TSF /00412-6041 0! SKP /00413-7410 <H JMP I (INTTSF /00414-5776 /> KSF /00415-6031 0Y SKP /00416-7410 <H JMP I (INTKSF /00417-5775 /= FPIST /00420-6557 5/ SKP /00421-7410 <H JMP I (INTFPI /00422-5774 /< CAF /00423-6007 0G TAD 0000 /00424-1000 H@ DCA INTTEM /00425-3160 Y0 TAD (.-3 /00426-1373 K; JMS I XX8 /00427-4464 $4 JMS I MSG /00430-4437 $_ MUNINT /00431-6073 0; TAD INTTEM /00432-1160 I0 JMS I NUMPRT /00433-4443 $# JMS I 0047 /00434-4447 $' SKP /00435-7410 <H JMP I C200 /00436-5501 -A JMS I (INIT /00437-4772 ': JMP I (XRUN /00440-5771 /9 RETRN0, CLA CLL /00441-7300 ;@ TAD MQ /00442-1126 IV MQL /00443-7421 <Q KCF /00444-6030 0X TAD GTFS /00445-1127 IW RTF /00446-6005 0E CLA /00447-7200 :@ TAD AC /00450-1125 IU JMP I 0000 /00451-5400 ,@ RETRN1, CLA CLL /00452-7300 ;@ TAD MQ1 /00453-1131 IY MQL /00454-7421 <Q KCF /00455-6030 0X TAD GTFS1 /00456-1132 IZ RTF /00457-6005 0E CLA /00460-7200 :@ TAD AC1 /00461-1130 IX JMP I 0000 /00462-5400 ,@ RETRN2, CLA CLL /00463-7300 ;@ TAD MQ2 /00464-1134 I\ MQL /00465-7421 <Q KCF /00466-6030 0X TAD GTFS2 /00467-1135 I] RTF /00470-6005 0E CLA /00471-7200 :@ TAD AC2 /00472-1133 I[ JMP I 0000 /00473-5400 ,@ SAV2, HLT /00474-7402 <B CLA /00475-7200 :@ TAD AC /00476-1125 IU DCA AC2 /00477-3133 Y[ TAD MQ /00500-1126 IV DCA MQ2 /00501-3134 Y\ TAD GTFS /00502-1127 IW DCA GTFS2 /00503-3135 Y] JMP I SAV2 /00504-5674 .< WAIT, HLT /00505-7402 <B ION /00506-6001 0A TAD 0152 /00507-1152 I* SZA CLA /00510-7640 > JMP LP2 /00511-5323 +S CLA CLL CMA RAL /00512-7344 ;$ LP1, RAL /00513-7004 8D ISZ SPIN /00514-2330 SX JMP .-1 /00515-5314 +L ISZ SPIN /00516-2330 SX JMP .-1 /00517-5316 +N ISZ SPIN /00520-2330 SX JMP .-1 /00521-5320 +P JMP LP1 /00522-5313 +K LP2, TAD MPC /00523-1150 I( MQL /00524-7421 <Q CLA /00525-7200 :@ TAD MDB /00526-1151 I) JMP .-2 /00527-5325 +U SPIN, AND 0000 /00530-0000 @@ PRTNUM, HLT /00531-7402 <B DCA 0140 /00532-3140 Y TAD MSGSWI /00533-1143 I# TAD C4000 /00534-1107 IG DCA MSGSWI /00535-3143 Y# TAD M4 /00536-1370 K8 DCA NUMCNT /00537-3362 [2 TAD 0140 /00540-1140 I RTL /00541-7006 8F RAL /00542-7004 8D DCA 0140 /00543-3140 Y TAD 0140 /00544-1140 I RAL /00545-7004 8D AND C7 /00546-0072 @: TAD C260 /00547-1102 IB JMS I CHRPRT /00550-4445 $% ISZ NUMCNT /00551-2362 S2 JMP 0540 /00552-5340 + TAD NUMSPC /00553-1361 K1 JMS I CHRPRT /00554-4445 $% TAD MSGSWI /00555-1143 I# AND C3777 /00556-0106 AF DCA MSGSWI /00557-3143 Y# JMP I PRTNUM /00560-5731 /Y NUMSPC, 240 /00561-0240 B NUMCNT, AND 0000 /00562-0000 @@ ISZ I 0103 /00563-2503 UC AND 0026 /00564-0026 @V AND I 0162 /00565-0562 E2 AND 0032 /00566-0032 @Z AND I 0122 /00567-0522 ER M4, -4 /00570-7774 ?< /AND 0466 /00571-0266 B6 /AND 0543 /00572-0343 C# /AND I 0023 /00573-0423 DS /TAD I 0400 /00574-1600 N@ /TAD 0000 /00575-1000 H@ /TAD 0430 /00576-1230 JX /ISZ I 0537 /00577-2737 W_ PAGE CGET, HLT /00600-7402 <B CLA /00601-7200 :@ TAD CM5 /00602-1325 KU DCA NUMLEN /00603-3136 Y^ DCA OCTNUM /00604-3142 Y" ISZ INFLAG /00605-2116 QN TAD MSGSWI /00606-1143 I# AND C2000 /00607-0105 AE SZA CLA /00610-7640 > JMP 0613 /00611-5213 *K JMS I LOOP /00612-4444 $$ TAD MSGSWI /00613-1143 I# AND C5777 /00614-0110 AH DCA MSGSWI /00615-3143 Y# TAD (WAIT+1 /00616-1377 K? DCA 0000 /00617-3000 X@ JMS I PUSH /00620-4440 $ DCA MSGSWI /00621-3143 Y# TAD INPUT /00622-1124 IT JMP .+1 /00623-5224 *T CGETY, TAD CM331 /00624-1326 KV 331 Y SNA /00625-7450 <( JMP CGY /00626-5275 *= TAD C13 /00627-1330 KX 316 N SNA /00630-7450 <( JMP CGN /00631-5300 +@ TAD C101 /00632-1327 KW 215 CR SNA /00633-7450 <( JMP CGCR /00634-5310 +H TAD C3 /00635-1067 H7 212 LF SNA CLA /00636-7650 >( JMP CGLF /00637-5313 +K TAD INPUT /00640-1124 IT TAD (-260 /00641-1376 K> 0 SPA CLA /00642-7710 ?H JMP CGERR /00643-5303 +C TAD INPUT /00644-1124 IT TAD (-270 /00645-1375 K= 8 SMA CLA /00646-7700 ?@ JMP CGERR /00647-5303 +C ISZ NUMLEN /00650-2136 Q^ JMP CGNUM /00651-5260 *0 JMS I (SAV2 /00652-4774 '< TAD INPUT /00653-1124 IT JMS I CHRPRT /00654-4445 $% TAD C277 /00655-1103 IC JMS I CHRPRT /00656-4445 $% JMP CGRET1 /00657-5316 +N CGNUM, TAD OCTNUM /00660-1142 I" CLL RTL /00661-7106 9F RAL /00662-7004 8D DCA OCTNUM /00663-3142 Y" TAD INPUT /00664-1124 IT AND C7 /00665-0072 @: TAD OCTNUM /00666-1142 I" DCA OCTNUM /00667-3142 Y" JMS I (SAV2 /00670-4774 '< TAD INPUT /00671-1124 IT JMS I CHRPRT /00672-4445 $% JMS I POP /00673-4441 $! JMP I (RETRN2 /00674-5773 /; CGY, TAD INPUT /00675-1124 IT JMS I CHRPRT /00676-4445 $% JMP CGRET3 /00677-5314 +L CGN, TAD INPUT /00700-1124 IT JMS I CHRPRT /00701-4445 $% JMP CGRET0 /00702-5317 +O CGERR, TAD INPUT /00703-1124 IT JMS I CHRPRT /00704-4445 $% TAD C277 /00705-1103 IC JMS I CHRPRT /00706-4445 $% JMP CGRET1 /00707-5316 +N CGCR, JMS I MSG /00710-4437 $_ MCRLF /00711-6113 1K JMP CGRET2 /00712-5315 +M CGLF, JMP CGRET0 /00713-5317 +O CGRET3, ISZ CGET /00714-2200 R@ YES CGRET2, ISZ CGET /00715-2200 R@ RETURN CGRET1, ISZ CGET /00716-2200 R@ ERROR CGRET0, JMS I POP /00717-4441 $! NO DCA INFLAG /00720-3116 YN JMS I MSG /00721-4437 $_ MCRLF /00722-6113 1K ION /00723-6001 0A JMP I CGET /00724-5600 .@ CM5, MQA MQL CLA DPIC /00725-7773 ?; CM331, SWBA /00726-7447 <' C101, AND C200 /00727-0101 AA C13, AND 0013 /00730-0013 @K HLT /00731-7402 <B CLA /00732-7200 :@ TAD MSGSWI /00733-1143 I# AND C2000 /00734-0105 AE SZA CLA /00735-7640 > SKP /00736-7410 <H JMP I 0731 /00737-5731 /Y TAD MSGSWI /00740-1143 I# AND C5777 /00741-0110 AH DCA MSGSWI /00742-3143 Y# TAD 0731 /00743-1331 KY DCA 0000 /00744-3000 X@ JMS I PUSH /00745-4440 $ JMP I 0772 /00746-5772 /: X8TST, HLT /00747-7402 <B DCA 0762 /00750-3362 [2 TAD X8MOD /00751-1022 HR SMA CLA /00752-7700 ?@ JMP I 0747 /00753-5747 /' IOF /00754-6002 0B CLA CMA /00755-7240 : TAD 0762 /00756-1362 K2 CIF 70 /00757-6272 2: JMP I 0771 /00760-5771 /9 HLT /00761-7402 <B AND 0000 /00762-0000 @@ AND 0077 /00763-0077 @? AND MSG /00764-0037 @_ MQL SAM /00765-7477 <? SMA SZA /00766-7540 = AND I 0777 /00767-0777 G? AND 0730 /00770-0330 CX 6520 /00771-6520 5P TAD 0004 /00772-1004 HD /AND I 0063 /00773-0463 D3 /AND I 0074 /00774-0474 D< /SPA /00775-7510 =H /SMA SNL /00776-7520 =P /AND I 0106 /00777-0506 EF PAGE INTKSF, KRB /01000-6036 0^ AND C177 /01001-0100 A@ TAD C200 /01002-1101 IA DCA INPUT /01003-3124 YT TAD INPUT /01004-1124 IT TAD (-223 /01005-1377 K? ^S SNA /01006-7450 <( JMP I (CTRLS /01007-5776 /> TAD (2 /01010-1375 K= ^Q SNA /01011-7450 <( JMP CTRLQ /01012-5332 +Z TAD C12 /01013-1074 H< SNA /01014-7450 <( JMP CTRLG /01015-5255 *- ^G BELL TAD C4 /01016-1070 H8 SNA CLA /01017-7650 >( JMP 1050 /01020-5250 *( ^C TAD INFLAG /01021-1116 IN SZA CLA /01022-7640 > JMP GETOUT /01023-5246 *& TAD MSGSWI /01024-1143 I# SZA CLA /01025-7640 > JMP 1040 /01026-5240 * JMS I (SAV2 /01027-4774 '< TAD INPUT /01030-1124 IT JMS I CHRPRT /01031-4445 $% TAD C277 /01032-1103 IC JMS I CHRPRT /01033-4445 $% JMS I MSG /01034-4437 $_ MCRLF /01035-6113 1K JMS I POP /01036-4441 $! JMP I (RETRN2 /01037-5773 /; TAD MSGSWI /01040-1143 I# AND C5777 /01041-0110 AH TAD C2000 /01042-1105 IE DCA MSGSWI /01043-3143 Y# JMS I POP /01044-4441 $! JMP I (RETRN0 /01045-5772 /: GETOUT, TAD INPUT /01046-1124 IT JMP I (CGETY /01047-5771 /9 JMS I POP /01050-4441 $! CIF CDF 0 /01051-6203 2C CAF /01052-6007 0G JMP I .+1 /01053-5654 ., 7600 /01054-7600 >@ CTRLG, TAD MSGSWI /01055-1143 I# AND (4001 /01056-0370 C8 SZA CLA /01057-7640 > JMP 1123 /01060-5323 +S TAD CHRG /01061-1331 KY DCA INPUT /01062-3124 YT TAD CTGONC /01063-1121 IQ SNA CLA /01064-7650 >( JMP 1071 /01065-5271 *9 KCF /01066-6030 0X JMS I (CTRLPR /01067-4767 '7 JMP I C200 /01070-5501 -A ISZ CTGONC /01071-2121 QQ TAD AC /01072-1125 IU DCA AC1 /01073-3130 YX TAD MQ /01074-1126 IV DCA MQ1 /01075-3131 YY TAD GTFS /01076-1127 IW DCA GTFS1 /01077-3132 YZ JMS I (CTRLPR /01100-4767 '7 JMS I MSG /01101-4437 $_ MSREQ /01102-6107 1G JMS I XOPT /01103-4436 $^ JMS I NUMPRT /01104-4443 $# JMS I GETC /01105-4442 $" JMP I C200 /01106-5501 -A NO JMP 1101 /01107-5301 +A ERROR SKP /01110-7410 <H RETURN JMP 1101 /01111-5301 +A YES TAD NUMLEN /01112-1136 I^ TAD C4 /01113-1070 H8 SPA CLA /01114-7710 ?H JMP 1120 /01115-5320 +P TAD OCTNUM /01116-1142 I" DCA OPTS /01117-3020 XP DCA CTGONC /01120-3121 YQ JMS I POP /01121-4441 $! JMP I (RETRN1 /01122-5766 /6 TAD MSGSWI /01123-1143 I# AND C5777 /01124-0110 AH TAD C2000 /01125-1105 IE DCA MSGSWI /01126-3143 Y# JMS I POP /01127-4441 $! JMP I (RETRN0 /01130-5772 /: CHRG, "G /01131-0307 CG CTRLQ, DCA QFLAG /01132-3117 YO TAD 0120 /01133-1120 IP SZA CLA /01134-7640 > JMP 1140 /01135-5340 + JMS I POP /01136-4441 $! JMP I 1172 /01137-5772 /: DCA 0120 /01140-3120 YP KCF /01141-6030 0X JMS I POP /01142-4441 $! ION /01143-6001 0A JMP I 1165 /01144-5765 /5 TAD 0040 /01145-1040 H RAL /01146-7004 8D DCA 0040 /01147-3040 X JMP I 1141 /01150-5741 /! TAD TSTN /01151-1154 I, DCA 0014 /01152-3014 XL TAD AC /01153-1125 IU DCA 0041 /01154-3041 X! CDF 10 /01155-6211 2I DCA I 0014 /01156-3414 \L ISZ 0041 /01157-2041 P! JMP 1156 /01160-5356 +. CIF CDF 0 /01161-6203 2C JMP I 0075 /01162-5475 ,= CDF 10 /01163-6211 2I DCA I 0041 /01164-3441 \! TAD 1005 /01165-1205 JE /AND I 0052 /01166-0452 D* /TAD I 0074 /01167-1474 L< /JMS 0001 /01170-4001 A /AND I 1024 /01171-0624 FT /AND I 0041 /01172-0441 D! /AND I 0063 /01173-0463 D3 /AND I 0074 /01174-0474 D< /AND 0002 /01175-0002 @B /TAD 1000 /01176-1200 J@ /MQA DCM /01177-7555 =- PAGE CTRLS, ISZ QFLAG /01200-2117 QO JMS I POP /01201-4441 $! JMP I (RETRN0 /01202-5777 /? PRTCHR, HLT /01203-7402 <B DCA CHRTEM /01204-3241 Z! TAD QFLAG /01205-1117 IO SZA CLA /01206-7640 > JMP 1237 /01207-5237 *_ TAD CHRTEM /01210-1241 J! AND (300 /01211-0376 C> SZA CLA /01212-7640 > JMP 1223 /01213-5223 *S TAD CHRTEM /01214-1241 J! AND (40 /01215-0375 C= SNA CLA /01216-7650 >( TAD (100 /01217-1374 K< TAD C200 /01220-1101 IA TAD CHRTEM /01221-1241 J! DCA CHRTEM /01222-3241 Z! ISZ MSGSWI /01223-2143 Q# ION /01224-6001 0A TAD CHRTEM /01225-1241 J! TLS /01226-6046 0& JMS I LOOP /01227-4444 $$ INTTSF, JMS I POP /01230-4441 $! TCF /01231-6042 0" TAD MSGSWI /01232-1143 I# AND (7776 /01233-0373 C; DCA MSGSWI /01234-3143 Y# ION /01235-6001 0A JMP I PRTCHR /01236-5603 .C ISZ 0120 /01237-2120 QP JMS I LOOP /01240-4444 $$ CHRTEM, AND 0000 /01241-0000 @@ MESG, HLT /01242-7402 <B CLA /01243-7200 :@ TAD MSGSWI /01244-1143 I# TAD C4000 /01245-1107 IG DCA MSGSWI /01246-3143 Y# TAD I MESG /01247-1642 N" DCA MSGADR /01250-3317 [O ISZ MESG /01251-2242 R" CDF 10 /01252-6211 2I TAD I MSGADR /01253-1717 OO CDF 0 /01254-6201 2A DCA MSGWRD /01255-3320 [P TAD MSGWRD /01256-1320 KP AND C7700 /01257-0111 AI BSW /01260-7002 8B JMS MESDEC /01261-4271 "9 JMS I CHRPRT /01262-4445 $% TAD MSGWRD /01263-1320 KP AND C77 /01264-0077 @? JMS MESDEC /01265-4271 "9 JMS I CHRPRT /01266-4445 $% ISZ MSGADR /01267-2317 SO JMP 1252 /01270-5252 ** MESDEC, HLT /01271-7402 <B SNA /01272-7450 <( JMP MESEND /01273-5312 +J TAD (-37 /01274-1372 K: SZA /01275-7440 < JMP .+4 /01276-5302 +B CLA /01277-7200 :@ TAD (215 /01300-1371 K9 JMP I MESDEC /01301-5671 .9 TAD C1 /01302-1066 H6 SZA /01303-7440 < JMP .+4 /01304-5310 +H CLA /01305-7200 :@ TAD (212 /01306-1370 K8 JMP I MESDEC /01307-5671 .9 TAD MSG36 /01310-1321 KQ JMP I MESDEC /01311-5671 .9 MESEND, TAD MSGSWI /01312-1143 I# AND C3777 /01313-0106 AF DCA MSGSWI /01314-3143 Y# ION /01315-6001 0A JMP I MESG /01316-5642 ." MSGADR, AND 0000 /01317-0000 @@ MSGWRD, AND 0000 /01320-0000 @@ MSG36, 36 /01321-0036 @^ HLT /01322-7402 <B JMS I XOPT /01323-4436 $^ SPA CLA /01324-7710 ?H JMP 1333 /01325-5333 +[ TAD 1367 /01326-1367 K7 DCA 0000 /01327-3000 X@ DCA GTFS2 /01330-3135 Y] JMS I PUSH /01331-4440 $ JMP I 1366 /01332-5766 /6 JMS I XOPT /01333-4436 $^ RAL /01334-7004 8D SMA CLA /01335-7700 ?@ SKP /01336-7410 <H ISZ 1322 /01337-2322 SR DCA 0152 /01340-3152 Y* JMS I 0046 /01341-4446 $& JMP I 1322 /01342-5722 /R MSGSTS, HLT /01343-7402 <B JMS I MSG /01344-4437 $_ MSTAT /01345-6346 3& TAD STATUS /01346-1147 I' JMS I NUMPRT /01347-4443 $# JMS I MSG /01350-4437 $_ MTEST /01351-6357 3/ TAD TSTNUM /01352-1122 IR JMS I NUMPRT /01353-4443 $# JMS I MSG /01354-4437 $_ MSTEP /01355-6353 3+ TAD CNTSTP /01356-1145 I% JMS I NUMPRT /01357-4443 $# JMS I MSG /01360-4437 $_ MCRLF /01361-6113 1K JMP I MSGSTS /01362-5743 /# JMS I 0151 /01363-4551 %) TAD ROMVER /01364-1063 H3 DCA 1375 /01365-3375 [= TAD 0055 /01366-1055 H- TAD 1333 /01367-1333 K[ /AND 1212 /01370-0212 BJ /AND 1215 /01371-0215 BM /MQA CLA SCA /01372-7741 ?! /7776 /01373-7776 ?> /AND 0100 /01374-0100 A@ /AND 0040 /01375-0040 @ /AND 1300 /01376-0300 C@ /AND I 0041 /01377-0441 D! PAGE PSHRTE, HLT /01400-7402 <B JMS STKCHK /01401-4252 "* JMP PSHR /01402-5222 *R TAD 0000 /01403-1000 H@ DCA I STACK /01404-3410 \H JMP I PSHRTE /01405-5600 .@ POPRTE, HLT /01406-7402 <B CLA CMA /01407-7240 : TAD STACK /01410-1010 HH DCA STACK /01411-3010 XH JMS STKCHK /01412-4252 "* JMP POPR /01413-5232 *Z TAD I STACK /01414-1410 LH DCA 0000 /01415-3000 X@ CLA CMA /01416-7240 : TAD STACK /01417-1010 HH DCA STACK /01420-3010 XH JMP I POPRTE /01421-5606 .F PSHR, TAD PSHRTE /01422-1200 J@ DCA PTEMP /01423-3251 Z) TAD C23 /01424-1076 H> DCA STACK /01425-3010 XH DCA MSGSWI /01426-3143 Y# JMS I MSG /01427-4437 $_ PSHERR /01430-6170 18 JMP PSPR /01431-5241 *! POPR, TAD POPRTE /01432-1206 JF DCA PTEMP /01433-3251 Z) TAD C23 /01434-1076 H> DCA STACK /01435-3010 XH DCA 0143 /01436-3143 Y# JMS I MSG /01437-4437 $_ POPERR /01440-6210 2H PSPR, TAD PTEMP /01441-1251 J) JMS I NUMPRT /01442-4443 $# TAD STEMP /01443-1250 J( JMS I NUMPRT /01444-4443 $# TAD INTTEM /01445-1160 I0 JMS I NUMPRT /01446-4443 $# JMP I C200 /01447-5501 -A STEMP, AND 0000 /01450-0000 @@ PTEMP, AND 0000 /01451-0000 @@ STKCHK, HLT /01452-7402 <B CLA /01453-7200 :@ TAD STACK /01454-1010 HH TAD CM23 /01455-1112 IJ SPA /01456-7510 =H JMP STKCHR /01457-5265 *5 TAD CM12 /01460-1114 IL SMA CLA /01461-7700 ?@ JMP STKCHR /01462-5265 *5 ISZ STKCHK /01463-2252 R* JMP I STKCHK /01464-5652 .* STKCHR, TAD STKCHK /01465-1252 J* JMS I XX8 /01466-4464 $4 TAD STACK /01467-1010 HH DCA STEMP /01470-3250 Z( TAD 0000 /01471-1000 H@ DCA INTTEM /01472-3160 Y0 JMP I STKCHK /01473-5652 .* CTRLPR, HLT /01474-7402 <B JMS I MSG /01475-4437 $_ MCRLF /01476-6113 1K TAD .+5 /01477-1304 KD JMS I CHRPRT /01500-4445 $% TAD INPUT /01501-1124 IT JMS I CHRPRT /01502-4445 $% JMP I CTRLPR /01503-5674 .< "^ /01504-0336 C^ OPTRED, HLT /01505-7402 <B CLA /01506-7200 :@ RDF /01507-6214 2L TAD CIFCDF /01510-1161 I1 DCA 1521 /01511-3321 [Q CDF 0 /01512-6201 2A TAD 0021 /01513-1021 HQ SMA CLA /01514-7700 ?@ JMP 1520 /01515-5320 +P CLA OSR /01516-7604 >D DCA OPTS /01517-3020 XP TAD OPTS /01520-1020 HP HLT /01521-7402 <B JMP I OPTRED /01522-5705 /E APTPRE, HLT /01523-7402 <B CLA CLL /01524-7300 ;@ RDF /01525-6214 2L TAD CIFCDF /01526-1161 I1 DCA APTPEX /01527-3364 [4 CDF 0 /01530-6201 2A TAD (APT-1 /01531-1377 K? DCA 0011 /01532-3011 XI DCA I 0011 /01533-3411 \I FPCF: FIELD BITS TAD (FPCA3 /01534-1376 K> DCA I 0011 /01535-3411 \I FPCADR TAD (INDEX /01536-1375 K= DCA I 0011 /01537-3411 \I INDEX TAD (BASEP /01540-1374 K< DCA I 0011 /01541-3411 \I BASE DCA I 0011 /01542-3411 \I OPER CLA IAC /01543-7201 :A DCA I 0011 /01544-3411 \I EXP CLA CLL CML RTL /01545-7326 ;V DCA I 0011 /01546-3411 \I 2 CLA CLL CML IAC RAL /01547-7325 ;U DCA I 0011 /01550-3411 \I 3 CLA CLL IAC RTL /01551-7307 ;G DCA I 0011 /01552-3411 \I 4 TAD C5 /01553-1071 H9 DCA I 0011 /01554-3411 \I 5 CLA CLL CML IAC RTL /01555-7327 ;W DCA I 0011 /01556-3411 \I 6 TAD (-10 /01557-1373 K; DCA CNT /01560-3137 Y_ DCA I 0011 /01561-3411 \I CLEAR INDEXES ISZ CNT /01562-2137 Q_ JMP .-2 /01563-5361 +1 APTPEX, HLT /01564-7402 <B JMP I APTPRE /01565-5723 /S 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 /SPA SNA SZL CLA /01573-7770 ?8 /CLA CML IAC BSW /01574-7223 :S /CLA IAC RTR /01575-7213 :K /DCA I 1546 /01576-3746 _& /7177 /01577-7177 9? PAGE INTFPI, DCA STATUS /01600-3147 Y' TAD GTFS /01601-1127 IW DCA 1633 /01602-3233 Z[ TAD CODE /01603-1156 I. SZA CLA /01604-7640 > JMP 1627 /01605-5227 *W TAD 1600 /01606-1200 J@ JMS I XX8 /01607-4464 $4 JMS I XOPT /01610-4436 $^ AND C1000 /01611-0104 AD SZA CLA /01612-7640 > JMP 1627 /01613-5227 *W JMS I MSG /01614-4437 $_ MUNEXI /01615-6614 6L TAD 0000 /01616-1000 H@ JMS I NUMPRT /01617-4443 $# JMS I MSG /01620-4437 $_ MBADM0 /01621-6560 50 JMS I MSG /01622-4437 $_ MCRLF /01623-6113 1K JMS I STSMSG /01624-4450 $( JMS I 0047 /01625-4447 $' NOP /01626-7000 8@ JMS I POP /01627-4441 $! TAD 1633 /01630-1233 J[ RTF /01631-6005 0E JMP I CODE /01632-5556 -. AND 0000 /01633-0000 @@ PRSKFG, HLT /01634-7402 <B CLA /01635-7200 :@ RDF /01636-6214 2L TAD CIFCDF /01637-1161 I1 DCA 1667 /01640-3267 Z7 CDF 0 /01641-6201 2A TAD PRSKFG /01642-1234 J\505/5 JMS I XX8 /01643-4464 $4 FPRST /01644-6556 5. DCA STATUS /01645-3147 Y' JMS I XOPT /01646-4436 $^ AND C1000 /01647-0104 AD SZA CLA /01650-7640 > JMP 1664 /01651-5264 *4 JMS I MSG /01652-4437 $_ MSKPFG /01653-6247 2' CLA CMA /01654-7240 : TAD PRSKFG /01655-1234 J\ JMS I NUMPRT /01656-4443 $# JMS I MSG /01657-4437 $_ MBADM0 /01660-6560 50 JMS I MSG /01661-4437 $_ MCRLF /01662-6113 1K JMS I STSMSG /01663-4450 $( ISZ 0152 /01664-2152 Q* JMS I 0047 /01665-4447 $' ISZ PRSKFG /01666-2234 R\ HLT /01667-7402 <B JMP I PRSKFG /01670-5634 .\ STATCK, HLT /01671-7402 <B CLA /01672-7200 :@ RDF /01673-6214 2L TAD CIFCDF /01674-1161 I1 DCA ERRFLD /01675-3342 [" TAD I STATCK /01676-1671 N9 CDF 0 /01677-6201 2A DCA ERRTEM /01700-3344 [$ TAD ERRTEM /01701-1344 K$ CMA IAC /01702-7041 8! TAD STATUS /01703-1147 I' SZA CLA /01704-7640 > JMP 1710 /01705-5310 +H ISZ STATCK /01706-2271 R9 JMP 1741 /01707-5341 +! TAD STATCK /01710-1271 J9 JMS I XX8 /01711-4464 $4 JMS I XOPT /01712-4436 $^ AND C1000 /01713-0104 AD SNA CLA /01714-7650 >( JMP 1720 /01715-5320 +P ISZ STATCK /01716-2271 R9 JMP 1737 /01717-5337 +_ JMS I MSG /01720-4437 $_ MSTAER /01721-6230 2X CLA CMA /01722-7240 : TAD STATCK /01723-1271 J9 JMS I NUMPRT /01724-4443 $# JMS I MSG /01725-4437 $_ MACTUA /01726-6332 3Z TAD STATUS /01727-1147 I' JMS I NUMPRT /01730-4443 $# JMS I MSG /01731-4437 $_ MEXPEC /01732-6340 3 TAD 1744 /01733-1344 K$ JMS I NUMPRT /01734-4443 $# JMS I STSMSG /01735-4450 $( ISZ STATCK /01736-2271 R9 ISZ 0152 /01737-2152 Q* JMS I 0047 /01740-4447 $' ISZ STATCK /01741-2271 R9 ERRFLD, HLT /01742-7402 <B JMP I STATCK /01743-5671 .9 ERRTEM, AND 0000 /01744-0000 @@ VERMSG, HLT /01745-7402 <B TAD ONCONL /01746-1144 I$ SZA CLA /01747-7640 > JMP I VERMSG /01750-5745 /% TAD MDB /01751-1151 I) JMS I ROMVER /01752-4463 $3 TAD VER /01753-1374 K< DCA VER /01754-3374 [< JMS I MSG /01755-4437 $_ MMCREV /01756-6407 4G TAD VER /01757-1374 K< BSW /01760-7002 8B AND C77 /01761-0077 @? TAD C260 /01762-1102 IB JMS I CHRPRT /01763-4445 $% TAD VER /01764-1374 K< AND C77 /01765-0077 @? TAD C260 /01766-1102 IB JMS I CHRPRT /01767-4445 $% JMS I MSG /01770-4437 $_ MCRLF /01771-6113 1K ISZ ONCONL /01772-2144 Q$ JMP I VERMSG /01773-5745 /% VER, 0000 /01774-0000 @@ CLL RAR /01775-7110 9H JMP I 1765 /01776-5765 /5 AND MSG /01777-0037 @_ PAGE VERMS0, HLT /02000-7402 <B TAD ONCONL /02001-1144 I$ SZA CLA /02002-7640 > JMP I VERMS0 /02003-5600 .@ TAD MDB /02004-1151 I) JMS I ROMVER /02005-4463 $3 BSW /02006-7002 8B DCA I (VER /02007-3777 _? JMP I VERMS0 /02010-5600 .@ REGSRD, HLT /02011-7402 <B FMRB /02012-6563 53 DCA MDB /02013-3151 Y) FMRP /02014-6564 54 DCA MPC /02015-3150 Y( FPRST /02016-6556 5. DCA STATUS /02017-3147 Y' DCA RRFMDB /02020-3300 [@ DCA RRFMPC /02021-3277 Z? TAD CNTSTP /02022-1145 I% CLL RAL /02023-7104 9D TAD MCODE /02024-1157 I/ DCA RRIND /02025-3301 [A CDF 10 /02026-6211 2I TAD I RRIND /02027-1701 OA DCA RRMPC /02030-3275 Z= ISZ RRIND /02031-2301 SA TAD I RRIND /02032-1701 OA DCA RRMDB /02033-3276 Z> CDF 0 /02034-6201 2A TAD I REGSRD /02035-1611 NI SNA CLA /02036-7650 >( JMP 2053 /02037-5253 *+ TAD RRMPC /02040-1275 J= CMA IAC /02041-7041 8! TAD MPC /02042-1150 I( SZA CLA /02043-7640 > ISZ RRFMPC /02044-2277 R? TAD RRMDB /02045-1276 J> CMA IAC /02046-7041 8! TAD MDB /02047-1151 I) SZA CLA /02050-7640 > ISZ RRFMDB /02051-2300 S@ JMP 2056 /02052-5256 *. ISZ RRFMPC /02053-2277 R? ISZ RRFMDB /02054-2300 S@ JMP 2056 /02055-5256 *. TAD RRFMPC /02056-1277 J? SNA CLA /02057-7650 >( JMP 2063 /02060-5263 *3 JMS ERRMPC /02061-4302 #B JMP 2073 /02062-5273 *; TAD RRFMDB /02063-1300 K@ SNA CLA /02064-7650 >( JMP 2070 /02065-5270 *8 JMS ERRMDB /02066-4335 #] JMP 2073 /02067-5273 *; ISZ REGSRD /02070-2211 RI ISZ REGSRD /02071-2211 RI JMP I REGSRD /02072-5611 .I ISZ REGSRD /02073-2211 RI JMP I REGSRD /02074-5611 .I RRMPC, AND 0000 /02075-0000 @@ RRMDB, AND 0000 /02076-0000 @@ RRFMPC, AND 0000 /02077-0000 @@ RRFMDB, AND 0000 /02100-0000 @@ RRIND, AND 0000 /02101-0000 @@ ERRMPC, HLT /02102-7402 <B TAD REGSRD /02103-1211 JI JMS I XX8 /02104-4464 $4 JMS I XOPT /02105-4436 $^ AND C1000 /02106-0104 AD SZA CLA /02107-7640 > JMP 2131 /02110-5331 +Y JMS I MSG /02111-4437 $_ MPCERR /02112-6266 26 CLA CMA /02113-7240 : TAD REGSRD /02114-1211 JI JMS I NUMPRT /02115-4443 $# JMS I MSG /02116-4437 $_ MBADM0 /02117-6560 50 JMS I MSG /02120-4437 $_ MACTUA /02121-6332 3Z TAD MPC /02122-1150 I( JMS I NUMPRT /02123-4443 $# JMS I MSG /02124-4437 $_ MEXPEC /02125-6340 3 TAD RRMPC /02126-1275 J= JMS I NUMPRT /02127-4443 $# JMS I STSMSG /02130-4450 $( ISZ 0152 /02131-2152 Q* JMS I 0047 /02132-4447 $' ISZ ERRMPC /02133-2302 SB JMP I ERRMPC /02134-5702 /B ERRMDB, HLT /02135-7402 <B TAD 2011 /02136-1211 JI JMS I XX8 /02137-4464 $4 JMS I XOPT /02140-4436 $^ AND C1000 /02141-0104 AD SZA CLA /02142-7640 > JMP 2164 /02143-5364 +4 JMS I MSG /02144-4437 $_ MDBERR /02145-6305 3E CLA CMA /02146-7240 : TAD 2011 /02147-1211 JI JMS I NUMPRT /02150-4443 $# JMS I MSG /02151-4437 $_ MBADM1 /02152-6576 5> JMS I MSG /02153-4437 $_ MACTUA /02154-6332 3Z TAD MDB /02155-1151 I) JMS I NUMPRT /02156-4443 $# JMS I MSG /02157-4437 $_ MEXPEC /02160-6340 3 TAD RRMDB /02161-1276 J> JMS I NUMPRT /02162-4443 $# JMS I STSMSG /02163-4450 $( ISZ 0152 /02164-2152 Q* JMS I 0047 /02165-4447 $' ISZ ERRMDB /02166-2335 S] JMP I ERRMDB /02167-5735 /] TAD 2175 /02170-1375 K= DCA 0060 /02171-3060 X0 JMP I 2174 /02172-5774 /< ISZ I 2152 /02173-2752 W* ISZ 2000 /02174-2200 R@ DCA I 2000 /02175-3600 ^@ ISZ 0052 /02176-2052 P* /TAD I 2174 /02177-1774 O< PAGE BADAC, HLT /02200-7402 <B DCA 0140 /02201-3140 Y TAD BADAC /02202-1200 J@ JMS I XX8 /02203-4464 $4 JMS I XOPT /02204-4436 $^ AND C1000 /02205-0104 AD SZA CLA /02206-7640 > JMP 2226 /02207-5226 *V JMS I MSG /02210-4437 $_ MCRLF /02211-6113 1K TAD 0140 /02212-1140 I JMS I NUMPRT /02213-4443 $# JMS I MSG /02214-4437 $_ MINCOR /02215-6370 38 CLA CMA /02216-7240 : TAD BADAC /02217-1200 J@ JMS I NUMPRT /02220-4443 $# JMS I MSG /02221-4437 $_ MBADM1 /02222-6576 5> JMS I MSG /02223-4437 $_ MCRLF /02224-6113 1K JMS I STSMSG /02225-4450 $( JMS I 0047 /02226-4447 $' ISZ BADAC /02227-2200 R@ JMP I BADAC /02230-5600 .@ ERRBRK, HLT /02231-7402 <B MQL /02232-7421 <Q RDF /02233-6214 2L CDF 0 /02234-6201 2A TAD CIFCDF /02235-1161 I1 DCA 2307 /02236-3307 [G CLA CLL CMA RAL /02237-7344 ;$ TAD 2307 /02240-1307 KG DCA 2265 /02241-3265 Z5 TAD 2265 /02242-1265 J5 DCA 2273 /02243-3273 Z; MQA MQL /02244-7521 =Q DCA 2311 /02245-3311 [I TAD ERRBRK /02246-1231 JY JMS I XX8 /02247-4464 $4 JMS I XOPT /02250-4436 $^ AND C1000 /02251-0104 AD SZA CLA /02252-7640 > JMP 2304 /02253-5304 +D JMS I MSG /02254-4437 $_ MDATBR /02255-6533 5[ CLA CMA /02256-7240 : TAD ERRBRK /02257-1231 JY JMS I NUMPRT /02260-4443 $# JMS I MSG /02261-4437 $_ MCRLF /02262-6113 1K JMS I MSG /02263-4437 $_ MACTUA /02264-6332 3Z HLT /02265-7402 <B TAD I 2311 /02266-1711 OI CDF 0 /02267-6201 2A JMS I NUMPRT /02270-4443 $# JMS I MSG /02271-4437 $_ MEXPEC /02272-6340 3 HLT /02273-7402 <B TAD I ERRBRK /02274-1631 NY CDF 0 /02275-6201 2A JMS I NUMPRT /02276-4443 $# JMS I MSG /02277-4437 $_ MADDRS /02300-6363 33 TAD 2311 /02301-1311 KI JMS I NUMPRT /02302-4443 $# JMS I STSMSG /02303-4450 $( JMS I 0047 /02304-4447 $' ISZ ERRBRK /02305-2231 RY ISZ ERRBRK /02306-2231 RY HLT /02307-7402 <B JMP I ERRBRK /02310-5631 .Y AND 0000 /02311-0000 @@ ORTAB, HLT /02312-7402 <B JMS I XOPT /02313-4436 $^ AND C177 /02314-0100 A@ CMA IAC /02315-7041 8! TAD CNTSTP /02316-1145 I% TAD C1 /02317-1066 H6 SZA /02320-7440 < JMP 2337 /02321-5337 +_ IOF /02322-6002 0B FPHLT /02323-6554 5, FMDO /02324-6565 55 NOP /02325-7000 8@ FMDO /02326-6565 55 FMDO /02327-6565 55 FMDO /02330-6565 55 FMDO /02331-6565 55 FMDO /02332-6565 55 FPICL /02333-6552 5* NOP /02334-7000 8@ ION /02335-6001 0A JMP I ORTAB /02336-5712 /J SPA CLA /02337-7710 ?H JMP 2342 /02340-5342 +" JMP 2343 /02341-5343 +# ISZ ORTAB /02342-2312 SJ JMP I ORTAB /02343-5712 /J RUNNO, HLT /02344-7402 <B CLA /02345-7200 :@ TAD RUNNO /02346-1344 K$ JMS I XX8 /02347-4464 $4 FPRST /02350-6556 5. DCA STATUS /02351-3147 Y' JMS I MSG /02352-4437 $_ MNORUN /02353-6516 5N CLA CMA /02354-7240 : TAD RUNNO /02355-1344 K$ JMS I NUMPRT /02356-4443 $# JMS I MSG /02357-4437 $_ MCRLF /02360-6113 1K JMS I STSMSG /02361-4450 $( JMP I C200 /02362-5501 -A TAD 0053 /02363-1053 H+ IAC /02364-7001 8A AND 0041 /02365-0041 @! DCA 0053 /02366-3053 X+ ISZ 0060 /02367-2060 P0 ISZ 0034 /02370-2034 P\ SKP CLA /02371-7610 >H JMP I 2375 /02372-5775 /= JMP I 2374 /02373-5774 /< ISZ I 0000 /02374-2400 T@ ISZ I 0003 /02375-2403 TC ISZ 2256 /02376-2256 R. JMS 2200 /02377-4200 "@ PAGE VERROM, HLT /02400-7402 <B SZA /02401-7440 < SKP /02402-7410 <H JMP 2466 /02403-5266 *6 TAD C7777 /02404-1115 IM SZA /02405-7440 < SKP /02406-7410 <H JMP 2465 /02407-5265 *5 TAD C7777 /02410-1115 IM SZA /02411-7440 < SKP /02412-7410 <H JMP 2464 /02413-5264 *4 TAD C7777 /02414-1115 IM SZA /02415-7440 < SKP /02416-7410 <H JMP 2463 /02417-5263 *3 TAD C4 /02420-1070 H8 SZA /02421-7440 < SKP /02422-7410 <H JMP 2462 /02423-5262 *2 TAD C1 /02424-1066 H6 SZA /02425-7440 < SKP /02426-7410 <H JMP 2461 /02427-5261 *1 TAD C3 /02430-1067 H7 SZA /02431-7440 < SKP /02432-7410 <H JMP 2460 /02433-5260 *0 TAD C1 /02434-1066 H6 SZA /02435-7440 < SKP /02436-7410 <H JMP 2457 /02437-5257 */ TAD C21 /02440-1267 J7 SZA /02441-7440 < SKP /02442-7410 <H JMP 2456 /02443-5256 *. TAD C44 /02444-1270 J8 SZA /02445-7440 < SKP /02446-7410 <H JMP 2455 /02447-5255 *- TAD (.+1 /02450-1377 K? JMS I XX8 /02451-4464 $4 JMS I MSG /02452-4437 $_ MIRVRM /02453-6424 4T JMP I VERROM /02454-5600 .@ IAC /02455-7001 8A -73 IAC /02456-7001 8A -27 IAC /02457-7001 8A -6 IAC /02460-7001 8A -5 IAC /02461-7001 8A -2 IAC /02462-7001 8A -1 IAC /02463-7001 8A 3 IAC /02464-7001 8A 2 IAC /02465-7001 8A 1 JMP I VERROM /02466-5600 .@ 0 C21, 0021 /02467-0021 @Q C44, 0044 /02470-0044 @$ APTCHK, HLT /02471-7402 <B CLA CLL /02472-7300 ;@ RDF /02473-6214 2L TAD CIFCDF /02474-1161 I1 CDF 0 /02475-6201 2A DCA APTRET /02476-3373 [; CLA CLL CMA RAL /02477-7344 ;$ TAD APTRET /02500-1373 K; DCA APTCDF /02501-3312 [J TAD APTCDF /02502-1312 KJ DCA I (APTNXT /02503-3776 _> TAD APTCHK /02504-1271 J9 DCA 0141 /02505-3141 Y! TAD CM13 /02506-1113 IK DCA CNT /02507-3137 Y_ TAD (APT-1 /02510-1375 K= DCA 0012 /02511-3012 XJ APTCDF, HLT /02512-7402 <B TAD I APTCHK /02513-1671 N9 CDF 0 /02514-6201 2A CMA IAC /02515-7041 8! TAD I 0012 /02516-1412 LJ SZA CLA /02517-7640 > JMP 2525 /02520-5325 +U ISZ APTCHK /02521-2271 R9 ISZ CNT /02522-2137 Q_ JMP APTCDF /02523-5312 +J JMP 2571 /02524-5371 +9 TAD 0141 /02525-1141 I! JMS I XX8 /02526-4464 $4 JMS I XOPT /02527-4436 $^ AND C1000 /02530-0104 AD SZA CLA /02531-7640 > JMP 2564 /02532-5364 +4 FPRST /02533-6556 5. DCA STATUS /02534-3147 Y' JMS I MSG /02535-4437 $_ MAPTER /02536-6442 4" CLA CMA /02537-7240 : TAD 0141 /02540-1141 I! DCA 0012 /02541-3012 XJ TAD 0012 /02542-1012 HJ JMS I NUMPRT /02543-4443 $# JMS I MSG /02544-4437 $_ MCRLF /02545-6113 1K JMS I STSMSG /02546-4450 $( JMS I MSG /02547-4437 $_ MAPTHL /02550-6457 4/ TAD CM13 /02551-1113 IK DCA CNT /02552-3137 Y_ JMP I (APTNXT /02553-5776 /> APTNX2, TAD I 0012 /02554-1412 LJ JMS I NUMPRT /02555-4443 $# ISZ CNT /02556-2137 Q_ JMP 2554 /02557-5354 +, JMS I MSG /02560-4437 $_ MACFPP /02561-6324 3T JMS I MSG /02562-4437 $_ MCRLF /02563-6113 1K TAD 0141 /02564-1141 I! TAD C12 /02565-1074 H< DCA APTCHK /02566-3271 Z9 JMS I 0047 /02567-4447 $' ISZ APTCHK /02570-2271 R9 ISZ APTCHK /02571-2271 R9 JMS I 0046 /02572-4446 $& APTRET, HLT /02573-7402 <B JMP I APTCHK /02574-5671 .9 /7177 /02575-7177 9? /ISZ I 2400 /02576-2600 V@ /ISZ I 0051 /02577-2451 T) PAGE APTNXT, HLT /02600-7402 <B TAD I 0012 /02601-1412 LJ CDF 0 /02602-6201 2A JMS I NUMPRT /02603-4443 $# ISZ CNT /02604-2137 Q_ JMP APTNXT /02605-5200 *@ JMS I MSG /02606-4437 $_ MEXPEC /02607-6340 3 JMS I MSG /02610-4437 $_ MCRLF /02611-6113 1K TAD CM13 /02612-1113 IK DCA CNT /02613-3137 Y_ TAD (APT-1 /02614-1377 K? DCA 0012 /02615-3012 XJ JMP I (APTNX2 /02616-5776 /> IDXCHK, HLT /02617-7402 <B RDF /02620-6214 2L TAD CIFCDF /02621-1161 I1 DCA 2735 /02622-3335 [] CLA CLL CMA RAL /02623-7344 ;$ TAD 2735 /02624-1335 K] DCA 2636 /02625-3236 Z^ TAD 2636 /02626-1236 J^ DCA 2677 /02627-3277 Z? TAD IDXCHK /02630-1217 JO DCA 0141 /02631-3141 Y! TAD 2775 /02632-1375 K= DCA CNT /02633-3137 Y_ TAD 2774 /02634-1374 K< DCA 0012 /02635-3012 XJ HLT /02636-7402 <B TAD I IDXCHK /02637-1617 NO CMA IAC /02640-7041 8! CDF 0 /02641-6201 2A TAD I 0012 /02642-1412 LJ SZA CLA /02643-7640 > JMP 2651 /02644-5251 *) ISZ IDXCHK /02645-2217 RO ISZ CNT /02646-2137 Q_ JMP 2636 /02647-5236 *^ JMP 2733 /02650-5333 +[ TAD 0141 /02651-1141 I! JMS I XX8 /02652-4464 $4 JMS I XOPT /02653-4436 $^ AND C1000 /02654-0104 AD SZA CLA /02655-7640 > JMP 2725 /02656-5325 +U FPRST /02657-6556 5. DCA STATUS /02660-3147 Y' JMS I MSG /02661-4437 $_ MXRERR /02662-6640 6 CLA CMA /02663-7240 : TAD 0141 /02664-1141 I! DCA 0012 /02665-3012 XJ TAD 0012 /02666-1012 HJ JMS I NUMPRT /02667-4443 $# JMS I MSG /02670-4437 $_ MCRLF /02671-6113 1K JMS I STSMSG /02672-4450 $( JMS I MSG /02673-4437 $_ MINDXP /02674-6660 60 TAD 2775 /02675-1375 K= DCA CNT /02676-3137 Y_ HLT /02677-7402 <B TAD I 0012 /02700-1412 LJ CDF 0 /02701-6201 2A JMS I NUMPRT /02702-4443 $# ISZ CNT /02703-2137 Q_ JMP 2677 /02704-5277 *? JMS I MSG /02705-4437 $_ MEXPEC /02706-6340 3 JMS I MSG /02707-4437 $_ MCRLF /02710-6113 1K TAD 2775 /02711-1375 K= DCA CNT /02712-3137 Y_ TAD 2774 /02713-1374 K< DCA 0012 /02714-3012 XJ TAD I 0012 /02715-1412 LJ JMS I NUMPRT /02716-4443 $# ISZ CNT /02717-2137 Q_ JMP 2715 /02720-5315 +M JMS I MSG /02721-4437 $_ MACFPP /02722-6324 3T JMS I MSG /02723-4437 $_ MCRLF /02724-6113 1K CLA /02725-7200 :@ TAD 0141 /02726-1141 I! TAD C7 /02727-1072 H: DCA IDXCHK /02730-3217 ZO JMS I 0047 /02731-4447 $' ISZ IDXCHK /02732-2217 RO ISZ IDXCHK /02733-2217 RO JMS I 0046 /02734-4446 $& HLT /02735-7402 <B JMP I IDXCHK /02736-5617 .O INTSPL, TAD 2757 /02737-1357 K/ DCA 0000 /02740-3000 X@ CLA CLL CMA RTL /02741-7346 ;& DCA 0140 /02742-3140 Y ISZ 0141 /02743-2141 Q! JMP 2743 /02744-5343 +# ISZ 0140 /02745-2140 Q JMP 2743 /02746-5343 +# CAF /02747-6007 0G ION /02750-6001 0A JMP 2754 /02751-5354 +, TAD 2773 /02752-1373 K; JMS I XX8 /02753-4464 $4 JMS I MSG /02754-4437 $_ MPWRLO /02755-6707 7G JMP I 2772 /02756-5772 /: JMP I 0003 /02757-5403 ,C TAD 0055 /02760-1055 H- DCA 0061 /02761-3061 X1 TAD 0060 /02762-1060 H0 JMS I 0070 /02763-4470 $8 CLA /02764-7200 :@ JMS I 0076 /02765-4476 $> DCA 0062 /02766-3062 X2 JMS I 0114 /02767-4514 %L JMS I 0111 /02770-4511 %I JMP I 2772 /02771-5772 /: AND 2666 /02772-0266 B6 ISZ I 2737 /02773-2737 W_ CLA RTR /02774-7212 :J SPA SNA SZL CLA /02775-7770 ?8 /ISZ I 0154 /02776-2554 U, /7177 /02777-7177 9? PAGE TAD X8MOD /03000-1022 HR SMA CLA /03001-7700 ?@ JMP 3012 /03002-5212 *J IOF /03003-6002 0B CDF 0 /03004-6201 2A CIF 70 /03005-6272 2: JMS I (6500 /03006-4777 '? CIF CDF 0 /03007-6203 2C ION /03010-6001 0A JMP I (TST1 /03011-5776 /> TAD 3053 /03012-1253 J+ SZA CLA /03013-7640 > JMP 3020 /03014-5220 *P TAD 3052 /03015-1252 J* CMA /03016-7040 8 DCA 3053 /03017-3253 Z+ ISZ 3053 /03020-2253 R+ JMP I (TST1 /03021-5776 /> ISZ 3054 /03022-2254 R, JMS I XOPT /03023-4436 $^ AND C1000 /03024-0104 AD SZA CLA /03025-7640 > JMP 3041 /03026-5241 *! JMS I MSG /03027-4437 $_ MDJPAS /03030-6730 7X TAD 3054 /03031-1254 J, JMS I NUMPRT /03032-4443 $# ISZ 3051 /03033-2251 R) JMP 3041 /03034-5241 *! TAD (-4 /03035-1375 K= DCA 3051 /03036-3251 Z) JMS I MSG /03037-4437 $_ MCRLF /03040-6113 1K JMS I XOPT /03041-4436 $^ AND (400 /03042-0374 C< SNA CLA /03043-7650 >( JMP I (TST1 /03044-5776 /> TAD (.-1 /03045-1373 K; DCA 0000 /03046-3000 X@ JMS I PUSH /03047-4440 $ JMP I (CTRLG /03050-5772 /: CM4, SPA SNA SZL CLA OSR /03051-7774 ?< AND 3150 /03052-0350 C( SPA SNA SZL CLA /03053-7770 ?8 AND 0000 /03054-0000 @@ ENVSET, HLT /03055-7402 <B RDF /03056-6214 2L TAD CIFCDF /03057-1161 I1 DCA 3133 /03060-3333 [[ CLA CLL CMA RAL /03061-7344 ;$ TAD 3133 /03062-1333 K[ DCA 3072 /03063-3272 Z: TAD 3072 /03064-1272 J: DCA 3107 /03065-3307 [G TAD 3107 /03066-1307 KG DCA 3114 /03067-3314 [L CDF 0 /03070-6201 2A JMS I PREAPT /03071-4451 $) HLT /03072-7402 <B TAD I ENVSET /03073-1655 N- TSTNUM DCA TSTNUM /03074-3122 YR ISZ ENVSET /03075-2255 R- TAD I ENVSET /03076-1655 N- CODE DCA CODE /03077-3156 Y. ISZ ENVSET /03100-2255 R- TAD I ENVSET /03101-1655 N- MCODE FLD 1 DCA MCODE /03102-3157 Y/ ISZ ENVSET /03103-2255 R- TAD I ENVSET /03104-1655 N- FPCF CDF 0 /03105-6201 2A DCA I (APT /03106-3771 _9 HLT /03107-7402 <B ISZ ENVSET /03110-2255 R- TAD I ENVSET /03111-1655 N- FPCADR CDF 0 /03112-6201 2A DCA I (FPCADR /03113-3770 _8 HLT /03114-7402 <B ISZ ENVSET /03115-2255 R- TAD I ENVSET /03116-1655 N- FPCOM FPCOM /03117-6553 5+ CLA /03120-7200 :@ ISZ ENVSET /03121-2255 R- TAD I ENVSET /03122-1655 N- FPEP SZA /03123-7440 < FPEP /03124-6567 57 CDF 0 /03125-6201 2A DCA CNTSTP /03126-3145 Y% ISZ ENVSET /03127-2255 R- TAD APTP /03130-1146 I& FPST /03131-6555 5- JMP 3137 /03132-5337 +_ HLT /03133-7402 <B ISZ ENVSET /03134-2255 R- CLA /03135-7200 :@ JMP I ENVSET /03136-5655 .- TAD ENVSET /03137-1255 J- JMS I XX8 /03140-4464 $4 JMS I SKFGPR /03141-4452 $* SKP /03142-7410 <H ISZ ENVSET /03143-2255 R- JMP 3133 /03144-5333 +[ TAD 3171 /03145-1371 K9 DCA 0061 /03146-3061 X1 CLA CLL CMA RAL /03147-7344 ;$ DCA 0035 /03150-3035 X] DCA 0060 /03151-3060 X0 TAD 3167 /03152-1367 K7 JMS I 0070 /03153-4470 $8 CLA /03154-7200 :@ TAD GETC /03155-1042 H" JMS I C200 /03156-4501 %A CLA /03157-7200 :@ JMS I 0066 /03160-4466 $6 JMP 3164 /03161-5364 +4 JMS I 0107 /03162-4507 %G JMS I 0107 /03163-4507 %G JMP I 3166 /03164-5766 /6 DCA 3032 /03165-3232 ZZ DCA 3000 /03166-3200 Z@ DCA I 3177 /03167-3777 _? /CLA IAC /03170-7201 :A /CLA /03171-7200 :@ /TAD 0055 /03172-1055 H- /DCA 0044 /03173-3044 X$ /AND I 0000 /03174-0400 D@ /SPA SNA SZL CLA OSR /03175-7774 ?< /DCA 3000 /03176-3200 Z@ /6500 /03177-6500 5@ PAGE TST1, CLA IAC /03200-7201 :A DCA TSTNUM /03201-3122 YR DCA CODE /03202-3156 Y. FPICL /03203-6552 5* FPINT /03204-6551 5) JMP 3210 /03205-5210 *H JMS I SKFGPR /03206-4452 $* JMP 3200 /03207-5200 *@ FPIST /03210-6557 5/ JMP 3214 /03211-5214 *L JMS I SKFGPR /03212-4452 $* JMP 3200 /03213-5200 *@ CLA CMA /03214-7240 : FPCOM /03215-6553 5+ JMS 3243 /03216-4243 "# FPEP /03217-6567 57 JMS 3243 /03220-4243 "# FMODE /03221-6561 51 JMS 3243 /03222-4243 "# FMRB /03223-6563 53 JMS 3243 /03224-4243 "# FMRP /03225-6564 54 JMS 3243 /03226-4243 "# FMDO /03227-6565 55 JMS 3243 /03230-4243 "# 6562 /03231-6562 52 JMS 3243 /03232-4243 "# FPHLT /03233-6554 5, JMS 3243 /03234-4243 "# FPRST /03235-6556 5. DCA STATUS /03236-3147 Y' JMS I CKSTAT /03237-4453 $+ HLTEX LOCKO EPMOD /03240-1014 HL JMP 3200 /03241-5200 *@ JMP 3265 /03242-5265 *5 HLT /03243-7402 <B CLA /03244-7200 :@ SZA /03245-7440 < JMP 3251 /03246-5251 *) CLA CMA /03247-7240 : JMP I 3243 /03250-5643 .# CAF /03251-6007 0G ION /03252-6001 0A CLA CLL CMA RAL /03253-7344 ;$ TAD 3243 /03254-1243 J# DCA 3243 /03255-3243 Z# TAD 3243 /03256-1243 J# JMS I ACBAD /03257-4455 $- JMP I 3243 /03260-5643 .# CLA IAC RAL /03261-7205 :E TAD 3243 /03262-1243 J# DCA 3243 /03263-3243 Z# JMP I 3243 /03264-5643 .# CLA /03265-7200 :@ FPCOM /03266-6553 5+ FPRST /03267-6556 5. DCA STATUS /03270-3147 Y' JMS I CKSTAT /03271-4453 $+ HLTEX /03272-1000 H@ FPHLT JMP 3265 /03273-5265 *5 TAD C6410 /03274-1164 I4 DPSEL EXPEX FPENA LOCON FPCOM /03275-6553 5+ CMA IAC /03276-7041 8! TAD C6410 /03277-1164 I4 SNA /03300-7450 <( JMP 3304 /03301-5304 +D JMS I ACBAD /03302-4455 $- JMP 3274 /03303-5274 *< FPRST /03304-6556 5. DCA STATUS /03305-3147 Y' JMS I CKSTAT /03306-4453 $+ DPMOD HLTEX LOCKO /03307-5010 (H JMP 3274 /03310-5274 *< CLA CLL CML RAR /03311-7330 ;X FPEP /03312-6567 57 SNA /03313-7450 <( JMP 3317 /03314-5317 +O JMS I ACBAD /03315-4455 $- JMP 3311 /03316-5311 +I FPRST /03317-6556 5. DCA STATUS /03320-3147 Y' JMS I CKSTAT /03321-4453 $+ HLTEX LOCKO EPMOD /03322-1014 HL JMP 3311 /03323-5311 +I TAD C4000 /03324-1107 IG FPCOM /03325-6553 5+ FPRST /03326-6556 5. DCA STATUS /03327-3147 Y' JMS I CKSTAT /03330-4453 $+ DPMOD HLTEX /03331-5000 (@ JMP 3324 /03332-5324 +T FPICL /03333-6552 5* FPRST /03334-6556 5. DCA STATUS /03335-3147 Y' JMS I CKSTAT /03336-4453 $+ 0000 /03337-0000 @@ JMP 3324 /03340-5324 +T TAD C6410 /03341-1164 I4 DPSEL EXPEX FPENA LOCON FPCOM /03342-6553 5+ CLA CLL CML RAR /03343-7330 ;X FPEP /03344-6567 57 FPRST /03345-6556 5. DCA STATUS /03346-3147 Y' JMS I CKSTAT /03347-4453 $+ LOCKO EPMOD /03350-0014 @L JMP 3341 /03351-5341 +! FPICL /03352-6552 5* FPRST /03353-6556 5. DCA STATUS /03354-3147 Y' JMS I CKSTAT /03355-4453 $+ LOCKO /03356-0010 @H JMP 3341 /03357-5341 +! TAD C6410 /03360-1164 I4 DPSEL EXPEX FPENA LOCON FPCOM /03361-6553 5+ CLA /03362-7200 :@ FPEP /03363-6567 57 FPRST /03364-6556 5. DCA STATUS /03365-3147 Y' JMS I CKSTAT /03366-4453 $+ LOCKO /03367-0010 @H JMP 3360 /03370-5360 +0 JMP I (TST1B /03371-5777 /? SZA SNL CLA /03372-7660 >0 AND 0040 /03373-0040 @ JMS NORUN /03374-4060 0 AND 0101 /03375-0101 AA SMA SZA CLA OSR HLT /03376-7746 ?& /DCA I 0000 /03377-3400 \@ PAGE TST1B, CLA CMA /03400-7240 : NOP /03401-7000 8@ FMRP /03402-6564 54 SNA /03403-7450 <( JMP 3407 /03404-5207 *G JMS I ACBAD /03405-4455 $- JMP 3400 /03406-5200 *@ CLA /03407-7200 :@ TAD C7777 /03410-1115 IM FMODE /03411-6561 51 FMRB /03412-6563 53 DCA 3432 /03413-3232 ZZ CLA IAC /03414-7201 :A TAD 3432 /03415-1232 JZ SNA CLA /03416-7650 >( JMP 3423 /03417-5223 *S TAD 3432 /03420-1232 JZ JMS I ACBAD /03421-4455 $- JMP 3407 /03422-5207 *G CLA /03423-7200 :@ NOP /03424-7000 8@ FMODE /03425-6561 51 FMRB /03426-6563 53 SNA /03427-7450 <( JMP 3433 /03430-5233 *[ JMS I ACBAD /03431-4455 $- AND 0000 /03432-0000 @@ CLA /03433-7200 :@ TAD NALL /03434-1123 IS SZA CLA /03435-7640 > JMP I (TST1 /03436-5777 /? JMP 3440 /03437-5240 * TST2, CLA CLL IAC RAL /03440-7305 ;E DCA TSTNUM /03441-3122 YR DCA CODE /03442-3156 Y. TAD I C7777 /03443-1515 MM DCA I (BATTMP /03444-3776 _> TAD (MCOD2 /03445-1375 K= DCA MCODE /03446-3157 Y/ TST2LP, FPICL /03447-6552 5* DCA CNTSTP /03450-3145 Y% TAD C15 /03451-1075 H= DCA STAT2 /03452-3270 Z8 TAD C2370 /03453-1162 I2 EXPEX FPCON LOCON FPCOM /03454-6553 5+ CLA CLL CML RAR /03455-7330 ;X FPEP /03456-6567 57 FMODE /03457-6561 51 FFST /03460-6550 5( FPINT /03461-6551 5) JMP .+3 /03462-5265 *5 JMS I SKFGPR /03463-4452 $* JMP TST2LP /03464-5247 *' TST2L2, FPRST /03465-6556 5. DCA STATUS /03466-3147 Y' JMS I CKSTAT /03467-4453 $+ STAT2, LOCKO EPMOD FPRUN /03470-0015 @M JMP TST2LP /03471-5247 *' JMS I RDREGS /03472-4454 $, 4000 /03473-4000 @ JMP TST2LP /03474-5247 *' TAD T2M21 /03475-1352 K* -21 TAD CNTSTP /03476-1145 I% SNA /03477-7450 <( JMS I (VERMS0 /03500-4774 '< TAD C7777 /03501-1115 IM -22 SZA /03502-7440 < SKP /03503-7410 <H JMS I (VERMSG /03504-4773 '; TAD T2M106 /03505-1351 K) -130 SZA /03506-7440 < JMP .+4 /03507-5313 +K TAD (14 /03510-1372 K: DCA STAT2 /03511-3270 Z8 JMP .+5 /03512-5317 +O TAD C7777 /03513-1115 IM -131 SZA CLA /03514-7640 > JMP .+2 /03515-5317 +O JMP 3532 /03516-5332 +Z JMS I XOPT /03517-4436 $^ AND C200 /03520-0101 AA SNA CLA /03521-7650 >( JMP .+3 /03522-5325 +U JMS I ABORT /03523-4457 $/ JMP TST2LP+1 /03524-5250 *( ISZ CNTSTP /03525-2145 Q% SKP /03526-7410 <H JMS I NORUN /03527-4460 $0 FMDO /03530-6565 55 JMP TST2L2 /03531-5265 *5 FPINT /03532-6551 5) SKP /03533-7410 <H JMP .+3 /03534-5337 +_ JMS I SKFGPR /03535-4452 $* JMP TST2LP /03536-5247 *' FPST /03537-6555 5- JMP 3543 /03540-5343 +# JMS I SKFGPR /03541-4452 $* JMP 3447 /03542-5247 *' TAD C4000 /03543-1107 IG FPCOM /03544-6553 5+ JMP I (TST2NX /03545-5771 /9 JMS I SKFGPR /03546-4452 $* JMP TST2LP /03547-5247 *' JMP I (TST2NX /03550-5771 /9 T2M106, 7672 /03551-7672 >: 7670 T2M21, 7757 /03552-7757 ?/ 7761 TAD 0054 /03553-1054 H, TAD 3575 /03554-1375 K= DCA 0054 /03555-3054 X, ISZ 0055 /03556-2055 P- TAD 0054 /03557-1054 H, SMA CLA /03560-7700 ?@ JMP I 3566 /03561-5766 /6 JMS I 0106 /03562-4506 %F JMP I 3572 /03563-5772 /: DCA 0035 /03564-3035 X] AND 3533 /03565-0333 C[ DCA 3516 /03566-3316 [N AND 0040 /03567-0040 @ JMS NORUN /03570-4060 0 /DCA I 3400 /03571-3600 ^@ /AND 0014 /03572-0014 @L /TAD I 3545 /03573-1745 O% /ISZ 0000 /03574-2000 P@ /TAD I 3503 /03575-1703 OC /DCA I 3462 /03576-3662 ^2 /DCA 3400 /03577-3200 Z@ PAGE TST2NX, TAD C4000 /03600-1107 IG SNA /03601-7450 <( JMP .+3 /03602-5205 *E JMS I ACBAD /03603-4455 $- JMP I (TST2LP /03604-5777 /? FPRST /03605-6556 5. DCA STATUS /03606-3147 Y' JMS I CKSTAT /03607-4453 $+ LOCKO EPMOD /03610-0014 @L JMP I (TST2LP /03611-5777 /? FPIST /03612-6557 5/ SKP /03613-7410 <H JMP .+3 /03614-5217 *O JMS I SKFGPR /03615-4452 $* JMP I (TST2LP /03616-5777 /? DCA STATUS /03617-3147 Y' FPINT /03620-6551 5) JMP .+3 /03621-5224 *T JMS I SKFGPR /03622-4452 $* JMP I (TST2LP /03623-5777 /? CLA /03624-7200 :@ JMS I CKSTAT /03625-4453 $+ LOCKO EPMOD /03626-0014 @L JMP I (TST2LP /03627-5777 /? FPRST /03630-6556 5. DCA STATUS /03631-3147 Y' JMS I CKSTAT /03632-4453 $+ LOCKO EPMOD /03633-0010 @H WAS 14 IN ORIG JMP I (TST2LP /03634-5777 /? TAD 0015 /03635-1015 HM CMA /03636-7040 8 SNA CLA /03637-7650 >( JMP 3645 /03640-5245 *% TAD (15 /03641-1376 K> JMS I BRKERR /03642-4456 $. MQA MQL CLA SAM /03643-7777 ?? JMP I 3777 /03644-5777 /? TAD I C7777 /03645-1515 MM SNA CLA /03646-7650 >( JMP 3654 /03647-5254 *, TAD C7777 /03650-1115 IM JMS I BRKERR /03651-4456 $. AND 0000 /03652-0000 @@ JMP I (TST2LP /03653-5777 /? TAD BATTMP /03654-1262 J2 DCA I C7777 /03655-3515 ]M TAD NALL /03656-1123 IS SZA CLA /03657-7640 > JMP I (TST2LP /03660-5777 /? JMP TST3 /03661-5263 *3 BATTMP, AND 0000 /03662-0000 @@ TST3, FPICL /03663-6552 5* FMODE /03664-6561 51 JMS I SETENV /03665-4465 $5 3 /03666-0003 @C TSTNUM REC3 /03667-3721 _Q CODE MCOD3 /03670-2167 Q7 MCODE 0000 /03671-0000 @@ FPCF FPCA3 /03672-3746 _& FPCADR 2770 /03673-2770 W8 FPCOM 4000 /03674-4000 @ FPEP JMP TST3 /03675-5263 *3 ERR FPRST /03676-6556 5. DCA STATUS /03677-3147 Y' JMS I CKSTAT /03700-4453 $+ LOCKO EPMOD FPRUN /03701-0015 @M JMP 3663 /03702-5263 *3 JMS I RDREGS /03703-4454 $, JMS 0000 /03704-4000 @ JMP 3663 /03705-5263 *3 JMS I XOPT /03706-4436 $^ AND C200 /03707-0101 AA SNA CLA /03710-7650 >( JMP 3714 /03711-5314 +L JMS I ABORT /03712-4457 $/ JMP 3664 /03713-5264 *4 ISZ CNTSTP /03714-2145 Q% SKP /03715-7410 <H JMS I NORUN /03716-4460 $0 FMDO /03717-6565 55 JMP 3676 /03720-5276 *> REC3, CLA /03721-7200 :@ JMS I CKSTAT /03722-4453 $+ LOCKO EPMOD /03723-0014 @L JMP 3663 /03724-5263 *3 JMS I CHKAPT /03725-4461 $1 AND 0000 /03726-0000 @@ DCA I 3747 /03727-3747 _' CLA IAC RTR /03730-7213 :K CLA CML IAC BSW /03731-7223 :S AND 0000 /03732-0000 @@ AND 0001 /03733-0001 @A AND 0002 /03734-0002 @B AND 0003 /03735-0003 @C AND 0004 /03736-0004 @D AND 0005 /03737-0005 @E AND 0006 /03740-0006 @F JMP 3663 /03741-5263 *3 TAD NALL /03742-1123 IS SZA CLA /03743-7640 > JMP 3663 /03744-5263 *3 JMP I 3775 /03745-5775 /= FPCA3, AND 0000 /03746-0000 @@ JMP 3762 /03747-5362 +2 JMP 3764 /03750-5364 +4 JMP 3766 /03751-5366 +6 JMP 3770 /03752-5370 +8 DCA I 3714 /03753-3714 _L DCA I 3721 /03754-3721 _Q DCA I 3671 /03755-3671 ^9 JMS 0000 /03756-4000 @ JMP 0014 /03757-5014 (L AND 0063 /03760-0063 @3 JMP 0010 /03761-5010 (H AND 0062 /03762-0062 @2 JMS I 3741 /03763-4741 '! JMP 0041 /03764-5041 (! JMS I 3635 /03765-4635 &] JMS I 3670 /03766-4670 &8 JMS I 3600 /03767-4600 &@ JMS I 0000 /03770-4400 $@ JMS I 3777 /03771-4777 '? JMP 0004 /03772-5004 (D JMP 0037 /03773-5037 (_ AND 0061 /03774-0061 @1 JMS 0000 /03775-4000 @ /AND 0015 /03776-0015 @M /DCA I 0047 /03777-3447 \' PAGE TST4, FPICL /04000-6552 5* CLA CLL IAC RTL /04001-7307 ;G DCA TSTNUM /04002-3122 YR TAD (REC4 /04003-1377 K? DCA CODE /04004-3156 Y. DCA CNTSTP /04005-3145 Y% TAD (MCOD4 /04006-1376 K> DCA MCODE /04007-3157 Y/ JMS I PREAPT /04010-4451 $) TAD (FPCA4 /04011-1375 K= DCA I (FPCADR /04012-3774 _< CLA IAC /04013-7201 :A DCA I (APT /04014-3773 _; TAD C6410 /04015-1164 I4 DPSEL EXPEX FPENA LOCON FPCOM /04016-6553 5+ CLA CLL CML RAR /04017-7330 ;X FPEP /04020-6567 57 FMODE /04021-6561 51 TAD APTP /04022-1146 I& FPST /04023-6555 5- SKP CLA /04024-7610 >H JMP 4030 /04025-5230 *X JMS I SKFGPR /04026-4452 $* JMP 4000 /04027-5200 *@ FPRST /04030-6556 5. DCA STATUS /04031-3147 Y' JMS I CKSTAT /04032-4453 $+ LOCKO EPMOD FPRUN /04033-0015 @M JMP 4000 /04034-5200 *@ JMS I RDREGS /04035-4454 $, JMS 0000 /04036-4000 @ JMP 4000 /04037-5200 *@ JMS I XOPT /04040-4436 $^ AND C200 /04041-0101 AA SNA CLA /04042-7650 >( JMP 4046 /04043-5246 *& JMS I ABORT /04044-4457 $/ JMP 4001 /04045-5201 *A ISZ CNTSTP /04046-2145 Q% SKP /04047-7410 <H JMS I NORUN /04050-4460 $0 FMDO /04051-6565 55 TAD CNTSTP /04052-1145 I% TAD CM13 /04053-1113 IK SZA CLA /04054-7640 > JMP 4030 /04055-5230 *X FPRST /04056-6556 5. DCA STATUS /04057-3147 Y' JMS I CKSTAT /04060-4453 $+ LOCKO EPMOD FPPAU FPRUN /04061-0017 @O JMP 4000 /04062-5200 *@ JMS I RDREGS /04063-4454 $, JMS 0000 /04064-4000 @ JMP 4000 /04065-5200 *@ FPST /04066-6555 5- JMP 4073 /04067-5273 *; ISZ CNTSTP /04070-2145 Q% JMP 4030 /04071-5230 *X JMS I NORUN /04072-4460 $0 CLA /04073-7200 :@ JMS I SKFGPR /04074-4452 $* JMP 4000 /04075-5200 *@ JMP 4030 /04076-5230 *X REC4, CLA /04077-7200 :@ JMS I CKSTAT /04100-4453 $+ LOCKO EPMOD /04101-0014 @L JMP 4000 /04102-5200 *@ JMS I CHKAPT /04103-4461 $1 TAD 0001 /04104-1001 HA TAD I 4003 /04105-1603 NC CLA IAC RTR /04106-7213 :K CLA CML IAC BSW /04107-7223 :S TAD I 4000 /04110-1600 N@ AND 0000 /04111-0000 @@ AND 0000 /04112-0000 @@ AND 0000 /04113-0000 @@ AND 0000 /04114-0000 @@ AND 0000 /04115-0000 @@ AND 0000 /04116-0000 @@ JMP 4000 /04117-5200 *@ TAD NALL /04120-1123 IS SZA CLA /04121-7640 > JMP 4000 /04122-5200 *@ JMP I 4172 /04123-5772 /: SPA SNA SZL CLA HLT /04124-7772 ?: AND 0000 /04125-0000 @@ AND 0000 /04126-0000 @@ AND 0000 /04127-0000 @@ AND 0000 /04130-0000 @@ AND 0000 /04131-0000 @@ AND 0000 /04132-0000 @@ AND 0000 /04133-0000 @@ AND 0000 /04134-0000 @@ AND 0000 /04135-0000 @@ AND 0000 /04136-0000 @@ AND 0000 /04137-0000 @@ TAD 4034 /04140-1234 J\ MQA MQL CLA SAM /04141-7777 ?? AND 0000 /04142-0000 @@ AND 0000 /04143-0000 @@ AND I 0011 /04144-0411 DI ISZ 4040 /04145-2240 R TAD I 0020 /04146-1420 LP ISZ I 0072 /04147-2472 T: SNL HLT /04150-7422 <R TAD 4101 /04151-1301 KA 6072 /04152-6072 0: JMP I 0022 /04153-5422 ,R TAD 4102 /04154-1302 KB 6072 /04155-6072 0: JMP I 4105 /04156-5705 /E SMA SZA SNL OSR /04157-7564 =4 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 @@ JMS 4000 /04172-4200 "@ /CLA /04173-7200 :@ /CLA IAC /04174-7201 :A /TAD I 4000 /04175-1600 N@ /ISZ 4003 /04176-2203 RC /JMS 0077 /04177-4077 ? PAGE TST5, FPICL /04200-6552 5* TAD C5 /04201-1071 H9 DCA TSTNUM /04202-3122 YR TAD (REC5 /04203-1377 K? DCA CODE /04204-3156 Y. DCA CNTSTP /04205-3145 Y% TAD (MCOD5 /04206-1376 K> DCA MCODE /04207-3157 Y/ TAD C15 /04210-1075 H= DCA 4244 /04211-3244 Z$ JMS I PREAPT /04212-4451 $) TAD (FPCA5 /04213-1375 K= DCA I (FPCADR /04214-3774 _< TAD C4015 /04215-1321 KQ DCA I (FACEXP /04216-3773 _; TAD C1111 /04217-1320 KP DCA I (FACMA1 /04220-3772 _: DCA I (FACMA0 /04221-3771 _9 DCA I (FACMA2 /04222-3770 _8 DCA I (FACMA3 /04223-3767 _7 CLA IAC /04224-7201 :A DCA I (FACMA4 /04225-3766 _6 TAD C6410 /04226-1164 I4 DPSEL EXPEX FPINT LOCON FPCOM /04227-6553 5+ CLA CLL CML RAR /04230-7330 ;X FPEP /04231-6567 57 FMODE /04232-6561 51 TAD APTP /04233-1146 I& FPST /04234-6555 5- SKP /04235-7410 <H JMP 4241 /04236-5241 *! JMS I SKFGPR /04237-4452 $* JMP 4200 /04240-5200 *@ FPRST /04241-6556 5. DCA STATUS /04242-3147 Y' JMS I CKSTAT /04243-4453 $+ LOCKO EPMOD FPRUN /04244-0015 @M JMP 4200 /04245-5200 *@ JMS I RDREGS /04246-4454 $, JMS 0000 /04247-4000 @ JMP 4200 /04250-5200 *@ JMS I XOPT /04251-4436 $^ AND C200 /04252-0101 AA SNA CLA /04253-7650 >( JMP 4257 /04254-5257 */ JMS I ABORT /04255-4457 $/ JMP 4201 /04256-5201 *A ISZ CNTSTP /04257-2145 Q% SKP /04260-7410 <H JMS I NORUN /04261-4460 $0 FMDO /04262-6565 55 CLA /04263-7200 :@ TAD CNTSTP /04264-1145 I% TAD 4365 /04265-1365 K5 SZA CLA /04266-7640 > JMP 4241 /04267-5241 *! TAD 4364 /04270-1364 K4 DCA 4244 /04271-3244 Z$ JMP 4241 /04272-5241 *! REC5, CLA /04273-7200 :@ JMS I CKSTAT /04274-4453 $+ TRPEX LOCKO EPMOD /04275-2014 PL JMP 4200 /04276-5200 *@ JMS I CHKAPT /04277-4461 $1 AND 0000 /04300-0000 @@ JMS 4326 /04301-4326 #V CLA IAC RTR /04302-7213 :K CLA CML IAC BSW /04303-7223 :S JMS 4324 /04304-4324 #T JMS 0000 /04305-4000 @ JMP I 0155 /04306-5555 -- MQA MQL CLA SAM /04307-7777 ?? MQA MQL CLA SAM /04310-7777 ?? SPA SNA SZL CLA OSR HLT /04311-7776 ?> AND 0000 /04312-0000 @@ JMP 4200 /04313-5200 *@ TAD NALL /04314-1123 IS SZA CLA /04315-7640 > JMP 4200 /04316-5200 *@ JMP I 4363 /04317-5763 /3 C1111, TAD 0111 /04320-1111 II C4015, JMS 0015 /04321-4015 M FPCA5, 0003 /FNEG /04322-0003 @C 0004 /FNORM /04323-0004 @D 3000 /TRAP3 0 /04324-3000 X@ 4324 / 4324 /04325-4324 #T AND 0000 /04326-0000 @@ AND 0000 /04327-0000 @@ AND 0000 /04330-0000 @@ AND 0000 /04331-0000 @@ AND 0000 /04332-0000 @@ AND 0000 /04333-0000 @@ AND 0000 /04334-0000 @@ AND 0000 /04335-0000 @@ AND 0000 /04336-0000 @@ AND 0000 /04337-0000 @@ AND 0000 /04340-0000 @@ AND 0000 /04341-0000 @@ AND 0000 /04342-0000 @@ AND 0000 /04343-0000 @@ AND 0000 /04344-0000 @@ AND 0000 /04345-0000 @@ AND 0000 /04346-0000 @@ AND 0000 /04347-0000 @@ AND 0000 /04350-0000 @@ AND 0000 /04351-0000 @@ AND 0000 /04352-0000 @@ AND 0000 /04353-0000 @@ AND 0000 /04354-0000 @@ AND 0000 /04355-0000 @@ AND 0000 /04356-0000 @@ AND 0000 /04357-0000 @@ AND 0000 /04360-0000 @@ AND 0000 /04361-0000 @@ AND 0000 /04362-0000 @@ JMS I 0000 /04363-4400 $@ ISZ 0015 /04364-2015 PM MQL CLA MUY /04365-7625 >U /CLA RTR /04366-7212 :J /CLA IAC RAR /04367-7211 :I /CLA RAR /04370-7210 :H /CLA RTL /04371-7206 :F /CLA IAC RTL /04372-7207 :G /CLA IAC RAL /04373-7205 :E /CLA IAC /04374-7201 :A /JMS 4322 /04375-4322 #R /ISZ 4307 /04376-2307 SG /JMS 4273 /04377-4273 "; PAGE TST6, FPICL /04400-6552 5* CLA CLL CML IAC RTL /04401-7327 ;W DCA TSTNUM /04402-3122 YR TAD (REC6 /04403-1377 K? DCA CODE /04404-3156 Y. DCA CNTSTP /04405-3145 Y% TAD (MCOD6 /04406-1376 K> DCA MCODE /04407-3157 Y/ JMS I PREAPT /04410-4451 $) TAD (FPCA6 /04411-1375 K= DCA I (FPCADR /04412-3774 _< TAD (1603 /04413-1373 K; DCA I (FACMA1 /04414-3772 _: CLA IAC /04415-7201 :A DCA I (FACMA0 /04416-3771 _9 TAD C15 /04417-1075 H= DCA 4437 /04420-3237 Z_ TAD C6410 /04421-1164 I4 DPSEL EXPEX FPENA LOCON FPCOM /04422-6553 5+ CLA CLL CML RAR /04423-7330 ;X FPEP /04424-6567 57 FMODE /04425-6561 51 TAD APTP /04426-1146 I& FPST /04427-6555 5- SKP /04430-7410 <H JMP 4434 /04431-5234 *\ JMS I SKFGPR /04432-4452 $* JMP 4400 /04433-5200 *@ FPRST /04434-6556 5. DCA STATUS /04435-3147 Y' JMS I CKSTAT /04436-4453 $+ LOCKO EPMOD FPRUN /04437-0015 @M JMP 4400 /04440-5200 *@ JMS I RDREGS /04441-4454 $, JMS 0000 /04442-4000 @ JMP 4400 /04443-5200 *@ JMS I XOPT /04444-4436 $^ AND C200 /04445-0101 AA SNA CLA /04446-7650 >( JMP 4452 /04447-5252 ** JMS I ABORT /04450-4457 $/ JMP 4401 /04451-5201 *A FMDO /04452-6565 55 ISZ CNTSTP /04453-2145 Q% SKP /04454-7410 <H JMS I NORUN /04455-4460 $0 TAD CNTSTP /04456-1145 I% TAD 4542 /04457-1342 K" SZA /04460-7440 < SKP /04461-7410 <H JMP 4502 /04462-5302 +B TAD CM23 /04463-1112 IJ SZA /04464-7440 < SKP /04465-7410 <H JMP 4501 /04466-5301 +A TAD 4541 /04467-1341 K! SZA /04470-7440 < SKP /04471-7410 <H JMP 4505 /04472-5305 +E TAD 4570 /04473-1370 K8 SZA CLA /04474-7640 > SKP /04475-7410 <H JMP 4510 /04476-5310 +H CLA /04477-7200 :@ JMP 4434 /04500-5234 *\ TAD C4000 /04501-1107 IG TAD 4540 /04502-1340 K DCA 4437 /04503-3237 Z_ JMP 4434 /04504-5234 *\ TAD C15 /04505-1075 H= DCA 4437 /04506-3237 Z_ JMP 4434 /04507-5234 *\ TAD 4567 /04510-1367 K7 DCA 4437 /04511-3237 Z_ JMP 4434 /04512-5234 *\ REC6, CLA /04513-7200 :@ JMS I CKSTAT /04514-4453 $+ TRPEX LOCKO EPMOD /04515-2014 PL JMP 4400 /04516-5200 *@ JMS I CHKAPT /04517-4461 $1 TAD 0001 /04520-1001 HA TAD I 4406 /04521-1606 NF CLA IAC RTR /04522-7213 :K CLA CML IAC BSW /04523-7223 :S TAD I 4404 /04524-1604 ND AND 0001 /04525-0001 @A AND 0001 /04526-0001 @A TAD I 4403 /04527-1603 NC AND 0000 /04530-0000 @@ AND 0000 /04531-0000 @@ AND 0000 /04532-0000 @@ JMP 4400 /04533-5200 *@ TAD NALL /04534-1123 IS SZA CLA /04535-7640 > JMP 4400 /04536-5200 *@ JMP I 4566 /04537-5766 /6 AND 0011 /04540-0011 @I MQA MQL CLA SWBA /04541-7767 ?7 MQA CLA SWBA /04542-7747 ?' FPCA6, 0005 /STARTF /04543-0005 @E 0006 /STARTD /04544-0006 @F 0007 /JAC /04545-0007 @G 0727 /FLDA % BASE+25X2+ /04546-0727 GW 0727 /FLDA % BASE+25X2+ /04547-0727 GW 0327 /FLDA BASE+405 /04550-0327 CW 5333 /FADDM BASE+421 /04551-5333 +[ 0000 /FEXIT /04552-0000 @@ 0000 /FEXIT /04553-0000 @@ SPA SNA CLA OSR /04554-7754 ?, AND 0000 /04555-0000 @@ AND 0000 /04556-0000 @@ TAD 0061 /04557-1061 H1 CMA IAC /04560-7041 8! TAD 0062 /04561-1062 H2 SNA CLA /04562-7650 >( ISZ 4556 /04563-2356 S. JMP I 4556 /04564-5756 /. AND 0003 /04565-0003 @C JMS I 4400 /04566-4600 &@ ISZ 0015 /04567-2015 PM SPA SNA SZL CLA OSR /04570-7774 ?< /CLA RTL /04571-7206 :F /CLA IAC RTL /04572-7207 :G /TAD I 4403 /04573-1603 NC /CLA IAC /04574-7201 :A /JMS I 0143 /04575-4543 %# /ISZ I 4467 /04576-2667 V7 /JMS I 0113 /04577-4513 %K PAGE TST7, FPICL /04600-6552 5* TAD C7 /04601-1072 H: DCA TSTNUM /04602-3122 YR TAD (REC7 /04603-1377 K? DCA CODE /04604-3156 Y. DCA CNTSTP /04605-3145 Y% TAD (MCOD7 /04606-1376 K> DCA MCODE /04607-3157 Y/ JMS I PREAPT /04610-4451 $) TAD (2002 /04611-1375 K= DCA I (FACMA0 /04612-3774 _< TAD (FPCA7 /04613-1373 K; DCA I (FPCADR /04614-3772 _: TAD (27 /04615-1371 K9 DCA I (FACEXP /04616-3770 _8 TAD (30 /04617-1367 K7 DCA I (INDEX+7 /04620-3766 _6 TAD C15 /04621-1075 H= DCA 4641 /04622-3241 Z! TAD C6410 /04623-1164 I4 DPSEL EXPEX FPENA LOCON FPCOM /04624-6553 5+ CLA CLL CML RAR /04625-7330 ;X FPEP /04626-6567 57 FMODE /04627-6561 51 TAD APTP /04630-1146 I& FPST /04631-6555 5- SKP /04632-7410 <H JMP 4636 /04633-5236 *^ JMS I SKFGPR /04634-4452 $* JMP 4600 /04635-5200 *@ FPRST /04636-6556 5. DCA STATUS /04637-3147 Y' JMS I CKSTAT /04640-4453 $+ LOCKO EPMOD FPRUN /04641-0015 @M JMP 4600 /04642-5200 *@ JMS I RDREGS /04643-4454 $, JMS 0000 /04644-4000 @ JMP 4600 /04645-5200 *@ JMS I XOPT /04646-4436 $^ AND C200 /04647-0101 AA SNA CLA /04650-7650 >( JMP 4654 /04651-5254 *, JMS I ABORT /04652-4457 $/ JMP 4601 /04653-5201 *A ISZ CNTSTP /04654-2145 Q% JMP 4657 /04655-5257 */ JMS I NORUN /04656-4460 $0 FMDO /04657-6565 55 TAD CNTSTP /04660-1145 I% TAD (-130 /04661-1365 K5 SNA /04662-7450 <( JMP 4672 /04663-5272 *: TAD (-17 /04664-1364 K4 SZA CLA /04665-7640 > JMP 4636 /04666-5236 *^ TAD 4763 /04667-1363 K3 DCA 4641 /04670-3241 Z! JMP 4636 /04671-5236 *^ TAD 4762 /04672-1362 K2 DCA 4641 /04673-3241 Z! JMP 4636 /04674-5236 *^ REC7, CLA /04675-7200 :@ JMS I CKSTAT /04676-4453 $+ DPMOD TRPEX LOCKO /04677-6010 0H JMP 4600 /04700-5200 *@ JMS I CHKAPT /04701-4461 $1 AND 0000 /04702-0000 @@ JMS I 4744 /04703-4744 '$ CLA IAC RTR /04704-7213 :K CLA CML IAC BSW /04705-7223 :S JMS I 4742 /04706-4742 '" AND 0030 /04707-0030 @X TAD 0001 /04710-1001 HA AND 0001 /04711-0001 @A AND 0004 /04712-0004 @D AND 0005 /04713-0005 @E AND 0006 /04714-0006 @F JMP 4600 /04715-5200 *@ JMS I CHKIDX /04716-4462 $2 AND 0000 /04717-0000 @@ AND 0000 /04720-0000 @@ AND 0003 /04721-0003 @C AND 0000 /04722-0000 @@ AND 0000 /04723-0000 @@ AND 0000 /04724-0000 @@ AND 0001 /04725-0001 @A AND 0030 /04726-0030 @X JMP 4600 /04727-5200 *@ TAD NALL /04730-1123 IS SZA CLA /04731-7640 > JMP 4600 /04732-5200 *@ JMP I 4761 /04733-5761 /1 MQA MQL CLA DAD /04734-7763 ?3 JMP 4652 /04735-5252 ** FPCA7, 0017 /ALN 7 /04736-0017 @O 0022 /ATX 2 /04737-0022 @R 0006 /STARTD /04740-0006 @F 0026 /ATX 6 /04741-0026 @V 4000 /TRAP4 0 /04742-4000 @ 4742 / 4742 /04743-4742 '" JMS I 0107 /04744-4507 %G JMS I 0107 /04745-4507 %G DCA 0060 /04746-3060 X0 DCA 0061 /04747-3061 X1 TAD 4767 /04750-1367 K7 DCA 0034 /04751-3034 X\ CLA CLL CML RAR /04752-7330 ;X JMS I 0070 /04753-4470 $8 CLA /04754-7200 :@ JMS I 0077 /04755-4477 $? DCA 0062 /04756-3062 X2 JMS I 0114 /04757-4514 %L JMS I 0111 /04760-4511 %I JMP 0000 /04761-5000 (@ JMS 0011 /04762-4011 I 6011 /04763-6011 0I /MQA MQL CLA SCA /04764-7761 ?1 /SNA CLA /04765-7650 >( /CLA CML BSW /04766-7222 :R /AND 0030 /04767-0030 @X /CLA IAC RAL /04770-7205 :E /AND 0027 /04771-0027 @W /CLA IAC /04772-7201 :A /JMS I 4736 /04773-4736 '^ /CLA RTL /04774-7206 :F /ISZ 0002 /04775-2002 PB /DCA 0103 /04776-3103 YC /JMS I 4675 /04777-4675 &= PAGE TST10, FPICL /05000-6552 5* TAD 5124 /05001-1324 KT DCA TSTNUM /05002-3122 YR TAD (REC10 /05003-1377 K? DCA CODE /05004-3156 Y. DCA CNTSTP /05005-3145 Y% TAD (MCOD10 /05006-1376 K> DCA MCODE /05007-3157 Y/ TAD C15 /05010-1075 H= DCA 5037 /05011-3237 Z_ JMS I PREAPT /05012-4451 $) TAD (FPCA10 /05013-1375 K= DCA I (FPCADR /05014-3774 _< TAD (5252 /05015-1373 K; DCA I (INDEX+2 /05016-3772 _: CLA IAC /05017-7201 :A DCA I (APT /05020-3771 _9 TAD C6410 /05021-1164 I4 DPSEL EXPEX FPENA LOCON FPCOM /05022-6553 5+ CLA CLL CML RAR /05023-7330 ;X FPEP /05024-6567 57 FMODE /05025-6561 51 TAD APTP /05026-1146 I& FPST /05027-6555 5- SKP /05030-7410 <H JMP 5034 /05031-5234 *\ JMS I SKFGPR /05032-4452 $* JMP 5000 /05033-5200 *@ FPRST /05034-6556 5. DCA STATUS /05035-3147 Y' JMS I CKSTAT /05036-4453 $+ LOCKO EPMOD FPRUN /05037-0015 @M JMP 5000 /05040-5200 *@ JMS I RDREGS /05041-4454 $, JMS 0000 /05042-4000 @ JMP 5000 /05043-5200 *@ JMS I XOPT /05044-4436 $^ AND C200 /05045-0101 AA SNA CLA /05046-7650 >( JMP 5052 /05047-5252 ** JMS I ABORT /05050-4457 $/ JMP 5001 /05051-5201 *A ISZ CNTSTP /05052-2145 Q% SKP /05053-7410 <H JMS I NORUN /05054-4460 $0 FMDO /05055-6565 55 TAD CNTSTP /05056-1145 I% TAD (-103 /05057-1370 K8 SZA CLA /05060-7640 > JMP 5034 /05061-5234 *\ TAD 5167 /05062-1367 K7 DCA 5037 /05063-3237 Z_ JMP 5034 /05064-5234 *\ REC10, CLA /05065-7200 :@ JMS I CKSTAT /05066-4453 $+ TRPEX LOCKO EPMOD /05067-2014 PL JMP 5000 /05070-5200 *@ JMS I CHKAPT /05071-4461 $1 TAD 0001 /05072-1001 HA TAD I 5012 /05073-1612 NJ CLA IAC RTR /05074-7213 :K CLA CML IAC BSW /05075-7223 :S TAD I 5010 /05076-1610 NH AND 0013 /05077-0013 @K JMP 5052 /05100-5252 ** AND 0000 /05101-0000 @@ AND 0000 /05102-0000 @@ AND 0000 /05103-0000 @@ AND 0000 /05104-0000 @@ JMP 5000 /05105-5200 *@ JMS I CHKIDX /05106-4462 $2 AND 0000 /05107-0000 @@ AND 0000 /05110-0000 @@ JMP 5052 /05111-5252 ** AND 0000 /05112-0000 @@ AND 0000 /05113-0000 @@ AND 0000 /05114-0000 @@ AND 0000 /05115-0000 @@ AND 0000 /05116-0000 @@ JMP 5000 /05117-5200 *@ TAD NALL /05120-1123 IS SZA CLA /05121-7640 > JMP 5000 /05122-5200 *@ JMP I 5166 /05123-5766 /6 AND 0010 /05124-0010 @H SKP CLA /05125-7610 >H JMS I 0107 /05126-4507 %G JMS I 5171 /05127-4771 '9 DCA 0060 /05130-3060 X0 DCA 0061 /05131-3061 X1 TAD 5170 /05132-1370 K8 DCA 0034 /05133-3034 X\ TAD 0060 /05134-1060 H0 JMS I 0070 /05135-4470 $8 CLA /05136-7200 :@ JMS I 0076 /05137-4476 $> DCA 0062 /05140-3062 X2 JMS I 0114 /05141-4514 %L JMS I 0111 /05142-4511 %I ISZ 0060 /05143-2060 P0 ISZ 0034 /05144-2034 P\ JMP 5134 /05145-5334 +\ JMP I 0026 /05146-5426 ,V AND 0000 /05147-0000 @@ JMS 5120 /05150-4320 #P TAD I 5127 /05151-1727 OW AND I 0122 /05152-0522 ER JMS 0006 /05153-4006 F AND 0111 /05154-0111 AI TAD I 0025 /05155-1425 LU ISZ 5005 /05156-2205 RE JMS 5100 /05157-4300 #@ AND 0000 /05160-0000 @@ CLA /05161-7200 :@ JMS I 0112 /05162-4512 %J RTL /05163-7006 8F SPA CLA /05164-7710 ?H JMP I 0026 /05165-5426 ,V JMP 5000 /05166-5200 *@ ISZ 0015 /05167-2015 PM /MQL CLA DCM /05170-7675 >= /CLA /05171-7200 :@ /7215 /05172-7215 :M /JMP 5052 /05173-5252 ** /CLA IAC /05174-7201 :A /TAD I 5006 /05175-1606 NF /DCA I 0045 /05176-3445 \% /JMP 0065 /05177-5065 (5 PAGE TST11, FPICL /05200-6552 5* TAD C11 /05201-1073 H; DCA TSTNUM /05202-3122 YR TAD (REC11 /05203-1377 K? DCA CODE /05204-3156 Y. DCA CNTSTP /05205-3145 Y% TAD (MCOD11 /05206-1376 K> DCA MCODE /05207-3157 Y/ TAD C15 /05210-1075 H= DCA 5241 /05211-3241 Z! JMS I PREAPT /05212-4451 $) TAD 5375 /05213-1375 K= DCA I 5374 /05214-3774 _< TAD 5373 /05215-1373 K; DCA I 5372 /05216-3772 _: TAD 5371 /05217-1371 K9 DCA I 5370 /05220-3770 _8 TAD 5367 /05221-1367 K7 DCA I 5366 /05222-3766 _6 TAD C6410 /05223-1164 I4 DPSEL EXPEX FPENA LOCON FPCOM /05224-6553 5+ CLA CLL CML RAR /05225-7330 ;X FPEP /05226-6567 57 FMODE /05227-6561 51 TAD APTP /05230-1146 I& FPST /05231-6555 5- SKP /05232-7410 <H JMP 5236 /05233-5236 *^ JMS I SKFGPR /05234-4452 $* JMP 5200 /05235-5200 *@ FPRST /05236-6556 5. DCA STATUS /05237-3147 Y' JMS I CKSTAT /05240-4453 $+ LOCKO EPMOD FPRUN /05241-0015 @M JMP 5200 /05242-5200 *@ JMS I RDREGS /05243-4454 $, JMS 0000 /05244-4000 @ JMP 5200 /05245-5200 *@ JMS I XOPT /05246-4436 $^ AND C200 /05247-0101 AA SNA CLA /05250-7650 >( JMP 5254 /05251-5254 *, JMS I ABORT /05252-4457 $/ JMP 5201 /05253-5201 *A ISZ CNTSTP /05254-2145 Q% SKP /05255-7410 <H JMS I NORUN /05256-4460 $0 FMDO /05257-6565 55 JMP 5236 /05260-5236 *^ REC11, CLA /05261-7200 :@ JMS I CKSTAT /05262-4453 $+ LOCKO EPMOD /05263-0014 @L JMP 5200 /05264-5200 *@ JMS I CHKAPT /05265-4461 $1 TAD 0001 /05266-1001 HA TAD I 5217 /05267-1617 NO CLA IAC RTR /05270-7213 :K CLA CML IAC BSW /05271-7223 :S TAD I 5212 /05272-1612 NJ AND 0001 /05273-0001 @A AND 0002 /05274-0002 @B AND 0003 /05275-0003 @C AND 0004 /05276-0004 @D AND 0005 /05277-0005 @E AND 0006 /05300-0006 @F JMP 5200 /05301-5200 *@ TAD NALL /05302-1123 IS SZA CLA /05303-7640 > JMP 5200 /05304-5200 *@ JMP I 5365 /05305-5765 /5 TAD C177 /05306-1100 I@ CLA IAC RTR /05307-7213 :K TAD 0110 /05310-1110 IH CLA CML IAC BSW /05311-7223 :S TAD 0121 /05312-1121 IQ TAD I 5212 /05313-1612 NJ TAD 0030 /05314-1030 HX CLA CML RAL /05315-7224 :T DCA 5276 /05316-3276 Z> JMP 5274 /05317-5274 *< DCA 5343 /05320-3343 [# TAD OPTS /05321-1020 HP CLL RTL /05322-7106 9F RAL /05323-7004 8D TAD 5343 /05324-1343 K# DCA OPTS /05325-3020 XP ISZ 5344 /05326-2344 S$ JMP 5274 /05327-5274 *< TAD 5375 /05330-1375 K= CMA IAC /05331-7041 8! TAD 5276 /05332-1276 J> SNA CLA /05333-7650 >( JMP I 5256 /05334-5656 .. JMS I 0116 /05335-4516 %N JMP 5347 /05336-5347 +' JMS I 0112 /05337-4512 %J JMS I 0124 /05340-4524 %T JMS I 0127 /05341-4527 %W JMP I 5256 /05342-5656 .. AND 0000 /05343-0000 @@ AND 0000 /05344-0000 @@ JMS I 5373 /05345-4773 '; JMP 5274 /05346-5274 *< JMS 5323 /05347-4323 #S ISZ 5275 /05350-2275 R= AND 0000 /05351-0000 @@ MQA CLA DAD /05352-7743 ?# AND 0000 /05353-0000 @@ DCA I 5203 /05354-3603 ^C JMS 5300 /05355-4300 #@ DCA I 5207 /05356-3607 ^G JMS 5300 /05357-4300 #@ AND 0175 /05360-0175 A= AND 0000 /05361-0000 @@ AND 5275 /05362-0275 B= AND 0000 /05363-0000 @@ AND 5375 /05364-0375 C= JMP I 0000 /05365-5400 ,@ CLA IAC /05366-7201 :A JMP 5306 /05367-5306 +F CLA BSW /05370-7202 :B 6543 /05371-6543 5# CLA /05372-7200 :@ AND I 5370 /05373-0770 G8 CLA IAC BSW /05374-7203 :C TAD 5234 /05375-1234 J\ /DCA I 5305 /05376-3705 _E /JMP 5261 /05377-5261 *1 PAGE TST12, FPICL /05400-6552 5* TAD C12 /05401-1074 H< DCA TSTNUM /05402-3122 YR TAD (REC12 /05403-1377 K? DCA CODE /05404-3156 Y. DCA CNTSTP /05405-3145 Y% TAD (MCOD12 /05406-1376 K> DCA MCODE /05407-3157 Y/ JMS I PREAPT /05410-4451 $) TAD 5575 /05411-1375 K= DCA I 5574 /05412-3774 _< TAD C2410 /05413-1165 I5 FPCOM /05414-6553 5+ CLA CLL CML RAR /05415-7330 ;X FPEP /05416-6567 57 FMODE /05417-6561 51 TAD APTP /05420-1146 I& FPST /05421-6555 5- SKP /05422-7410 <H JMP 5426 /05423-5226 *V JMS I SKFGPR /05424-4452 $* JMP 5400 /05425-5200 *@ FPRST /05426-6556 5. DCA STATUS /05427-3147 Y' JMS I CKSTAT /05430-4453 $+ LOCKO EPMOD FPRUN /05431-0015 @M JMP 5400 /05432-5200 *@ JMS I RDREGS /05433-4454 $, JMS 0000 /05434-4000 @ JMP 5400 /05435-5200 *@ JMS I XOPT /05436-4436 $^ AND C200 /05437-0101 AA SNA CLA /05440-7650 >( JMP 5444 /05441-5244 *$ JMS I ABORT /05442-4457 $/ JMP 5401 /05443-5201 *A ISZ CNTSTP /05444-2145 Q% SKP /05445-7410 <H JMS I NORUN /05446-4460 $0 FMDO /05447-6565 55 JMP 5426 /05450-5226 *V REC12, CLA /05451-7200 :@ JMS I CKSTAT /05452-4453 $+ LOCKO EPMOD /05453-0014 @L JMP 5400 /05454-5200 *@ JMS I CHKAPT /05455-4461 $1 AND 0000 /05456-0000 @@ 7401 /05457-7401 <A CLA IAC RTR /05460-7213 :K CLA CML IAC BSW /05461-7223 :S 7356 /05462-7356 ;. DCA I 5577 /05463-3777 _? DCA I 5577 /05464-3777 _? MQA MQL CLA SAM /05465-7777 ?? JMS 0040 /05466-4040 AND I 0105 /05467-0505 EE 6060 /05470-6060 00 JMP 5400 /05471-5200 *@ TAD NALL /05472-1123 IS SZA CLA /05473-7640 > JMP 5400 /05474-5200 *@ JMP I 5573 /05475-5773 /; TSNLST, MQA MQL CLA SAM /05476-7777 ?? SPA SNA SZL CLA OSR HLT /05477-7776 ?> MQA MQL CLA DCM /05500-7775 ?= SPA SNA SZL CLA OSR /05501-7774 ?< MQA MQL CLA DPIC /05502-7773 ?; SPA SNA SZL CLA HLT /05503-7772 ?: MQA MQL CLA DPSZ /05504-7771 ?9 SPA SNA SZL CLA /05505-7770 ?8 MQA MQL CLA SWBA /05506-7767 ?7 SMA SZA SNL CLA OSR HLT /05507-7766 ?6 MQA MQL CLA DST /05510-7765 ?5 SMA SZA SNL CLA OSR /05511-7764 ?4 MQA MQL CLA DAD /05512-7763 ?3 SMA SZA SNL CLA HLT /05513-7762 ?2 MQA MQL CLA SCA /05514-7761 ?1 SMA SZA SNL CLA /05515-7760 ?0 MQA CLA SAM /05516-7757 ?/ SPA SNA CLA OSR HLT /05517-7756 ?. 7755 /05520-7755 ?- SPA SNA CLA OSR /05521-7754 ?, AND 0000 /05522-0000 @@ TSTLST, DCA 5400 /05523-3200 Z@ DCA I 0040 /05524-3440 \ DCA I 5463 /05525-3663 ^3 JMS 0000 /05526-4000 @ JMS 5400 /05527-4200 "@ JMS I 0000 /05530-4400 $@ JMS I 5400 /05531-4600 &@ JMP 0000 /05532-5000 (@ JMP 5400 /05533-5200 *@ JMP I 0000 /05534-5400 ,@ JMP I 5400 /05535-5600 .@ SKON /05536-6000 0@ LXM /05537-6200 2@ 6400 /05540-6400 4@ 6600 /05541-6600 6@ CLL CMA IAC RAL /05542-7145 9% CLL CMA RAR /05543-7150 9( CLL CMA IAC RTR /05544-7153 9+ 7156 /05545-7156 9. CLL CMA CML IAC /05546-7161 91 TAD ACBAD /05547-1055 H- JMS I 0102 /05550-4502 %B DCA 0057 /05551-3057 X/ TAD 0056 /05552-1056 H. CMA IAC /05553-7041 8! TAD 0057 /05554-1057 H/ SZA CLA /05555-7640 > JMP I 5511 /05556-5711 /I ISZ 5511 /05557-2311 SI JMP I 5511 /05560-5711 /I AND 0000 /05561-0000 @@ AND 0000 /05562-0000 @@ ISZ 0130 /05563-2130 QX SPA SNA SZL CLA OSR HLT /05564-7776 ?> CLA CMA RTR /05565-7252 :* CLA CLL /05566-7300 ;@ AND 5577 /05567-0377 C? AND 0100 /05570-0100 A@ AND 0160 /05571-0160 A0 AND 0017 /05572-0017 @O JMP I 5400 /05573-5600 .@ CLA IAC /05574-7201 :A 7275 /05575-7275 := /JMS 0031 /05576-4031 Y /JMP I 0051 /05577-5451 ,) PAGE TST13, FPICL /05600-6552 5* FMODE /05601-6561 51 TAD C15 /05602-1075 H= DCA 5620 /05603-3220 ZP JMS I SETENV /05604-4465 $5 13 /05605-0013 @K TSTNUM REC13 /05606-5706 /F CODE MCOD13 /05607-4277 "? MCODE 0000 /05610-0000 @@ FPCF 7401 /05611-7401 <A FPCADR 2410 /05612-2410 TH FPCOM 4000 /05613-4000 @ FPEP JMP TST13 /05614-5200 *@ ERR FPRST /05615-6556 5. DCA STATUS /05616-3147 Y' JMS I CKSTAT /05617-4453 $+ LOCKO EPMOD FPRUN /05620-0015 @M JMP 5600 /05621-5200 *@ JMS I RDREGS /05622-4454 $, JMS 0000 /05623-4000 @ JMP 5600 /05624-5200 *@ JMS I XOPT /05625-4436 $^ AND C200 /05626-0101 AA SNA CLA /05627-7650 >( JMP 5633 /05630-5233 *[ JMS I ABORT /05631-4457 $/ JMP 5601 /05632-5201 *A ISZ CNTSTP /05633-2145 Q% SKP /05634-7410 <H JMS I NORUN /05635-4460 $0 FMDO /05636-6565 55 TAD CNTSTP /05637-1145 I% TAD 5777 /05640-1377 K? SZA /05641-7440 < SKP /05642-7410 <H JMP 5702 /05643-5302 +B TAD 5776 /05644-1376 K> SZA /05645-7440 < SKP /05646-7410 <H JMP 5703 /05647-5303 +C TAD CM13 /05650-1113 IK SZA /05651-7440 < SKP /05652-7410 <H JMP 5702 /05653-5302 +B TAD 5776 /05654-1376 K> SZA /05655-7440 < SKP /05656-7410 <H JMP 5703 /05657-5303 +C TAD CM13 /05660-1113 IK SZA /05661-7440 < SKP /05662-7410 <H JMP 5702 /05663-5302 +B TAD 5776 /05664-1376 K> SZA /05665-7440 < SKP /05666-7410 <H JMP 5703 /05667-5303 +C TAD 5775 /05670-1375 K= SZA /05671-7440 < SKP /05672-7410 <H JMP 5702 /05673-5302 +B TAD 5774 /05674-1374 K< SZA CLA /05675-7640 > SKP /05676-7410 <H JMP 5701 /05677-5301 +A JMP 5615 /05700-5215 *M TAD C2000 /05701-1105 IE TAD C4000 /05702-1107 IG TAD C11 /05703-1073 H; DCA 5620 /05704-3220 ZP JMP 5615 /05705-5215 *M REC13, CLA /05706-7200 :@ JMS I CKSTAT /05707-4453 $+ DPMOD TRPEX LOCKO /05710-6010 0H JMP 5600 /05711-5200 *@ JMS I CHKAPT /05712-4461 $1 AND 0000 /05713-0000 @@ SNL OSR /05714-7424 <T CLA IAC RTR /05715-7213 :K CLA CML IAC BSW /05716-7223 :S SNL HLT /05717-7422 <R AND 0000 /05720-0000 @@ AND 0000 /05721-0000 @@ AND 0000 /05722-0000 @@ AND 0004 /05723-0004 @D AND 0005 /05724-0005 @E AND 0006 /05725-0006 @F JMP 5600 /05726-5200 *@ JMS I CHKIDX /05727-4462 $2 AND 0002 /05730-0002 @B AND 0000 /05731-0000 @@ AND 0000 /05732-0000 @@ AND 0000 /05733-0000 @@ AND 0000 /05734-0000 @@ AND 0000 /05735-0000 @@ AND 0000 /05736-0000 @@ AND 0000 /05737-0000 @@ JMP 5600 /05740-5200 *@ TAD NALL /05741-1123 IS SZA CLA /05742-7640 > JMP 5600 /05743-5200 *@ JMP I 5773 /05744-5773 /; AND 0054 /05745-0054 @, AND 0055 /05746-0055 @- AND 0056 /05747-0056 @. AND 0057 /05750-0057 @/ AND 0000 /05751-0000 @@ AND 0060 /05752-0060 @0 AND 0061 /05753-0061 @1 AND 0062 /05754-0062 @2 AND 0000 /05755-0000 @@ JMS 5703 /05756-4303 #C TAD I 5704 /05757-1704 OD AND I 0175 /05760-0575 E= AND 0000 /05761-0000 @@ ISZ 0003 /05762-2003 PC SMA /05763-7500 =@ AND I 0003 /05764-0403 DC SMA /05765-7500 =@ SPA SNA SZL CLA OSR /05766-7774 ?< ISZ I 0015 /05767-2415 TM JMP 5656 /05770-5256 *. DCA I 5746 /05771-3746 _& JMS 0147 /05772-4147 !' SKON /05773-6000 0@ SPA SZL CLA OSR HLT /05774-7736 ?^ SMA SZA SNL CLA OSR /05775-7764 ?4 MQA MQL CLA DPIC /05776-7773 ?; SMA SZA SNL CLA HLT /05777-7762 ?2 PAGE TST14, FPICL /06000-6552 5* TAD 6072 /06001-1272 J: DCA TSTNUM /06002-3122 YR TAD (REC14 /06003-1377 K? DCA CODE /06004-3156 Y. DCA CNTSTP /06005-3145 Y% TAD (MCOD14 /06006-1376 K> DCA MCODE /06007-3157 Y/ TAD C15 /06010-1075 H= DCA 6033 /06011-3233 Z[ JMS I PREAPT /06012-4451 $) TAD 6175 /06013-1375 K= DCA I 6174 /06014-3774 _< TAD C2410 /06015-1165 I5 FPCOM /06016-6553 5+ CLA CLL CML RAR /06017-7330 ;X FPEP /06020-6567 57 FMODE /06021-6561 51 TAD APTP /06022-1146 I& FPST /06023-6555 5- SKP /06024-7410 <H JMP 6030 /06025-5230 *X JMS I SKFGPR /06026-4452 $* JMP 6000 /06027-5200 *@ FPRST /06030-6556 5. DCA STATUS /06031-3147 Y' JMS I CKSTAT /06032-4453 $+ LOCKO EPMOD FPRUN /06033-0015 @M JMP 6000 /06034-5200 *@ JMS I RDREGS /06035-4454 $, JMS 0000 /06036-4000 @ JMP 6000 /06037-5200 *@ JMS I XOPT /06040-4436 $^ AND C200 /06041-0101 AA SNA CLA /06042-7650 >( JMP 6046 /06043-5246 *& JMS I ABORT /06044-4457 $/ JMP 6001 /06045-5201 *A ISZ CNTSTP /06046-2145 Q% SKP /06047-7410 <H JMS I NORUN /06050-4460 $0 FMDO /06051-6565 55 TAD CNTSTP /06052-1145 I% TAD 6173 /06053-1373 K; SZA /06054-7440 < SKP /06055-7410 <H JMP 6064 /06056-5264 *4 TAD 6172 /06057-1372 K: SZA CLA /06060-7640 > SKP /06061-7410 <H JMP 6065 /06062-5265 *5 JMP 6030 /06063-5230 *X TAD 6171 /06064-1371 K9 TAD C15 /06065-1075 H= DCA 6033 /06066-3233 Z[ JMP 6030 /06067-5230 *X REC14, CLA /06070-7200 :@ JMS I CKSTAT /06071-4453 $+ LOCKO EPMOD /06072-0014 @L JMP 6000 /06073-5200 *@ JMS I CHKAPT /06074-4461 $1 AND 0000 /06075-0000 @@ 6122 /06076-6122 1R CLA IAC RTR /06077-7213 :K CLA CML IAC BSW /06100-7223 :S 6126 /06101-6126 1V AND 0001 /06102-0001 @A DCA I 6100 /06103-3700 _@ AND 0000 /06104-0000 @@ MQA MQL CLA SAM /06105-7777 ?? AND 0000 /06106-0000 @@ MQA MQL CLA SAM /06107-7777 ?? JMP 6000 /06110-5200 *@ TAD NALL /06111-1123 IS SZA CLA /06112-7640 > JMP 6000 /06113-5200 *@ JMP I 6170 /06114-5770 /8 AND 0006 /06115-0006 @F TAD I 6003 /06116-1603 NC AND 0050 /06117-0050 @( TAD I 6004 /06120-1604 ND AND 0000 /06121-0000 @@ ISZ I 6177 /06122-2777 W? MQA MQL CLA SAM /06123-7777 ?? AND 0001 /06124-0001 @A AND I 6075 /06125-0675 F= SPA SNA SZL CLA OSR HLT /06126-7776 ?> MQA MQL CLA SAM /06127-7777 ?? AND 0000 /06130-0000 @@ MQA MQL CLA SAM /06131-7777 ?? JMP I 0040 /06132-5440 , RBM /06133-6171 19 AND 0000 /06134-0000 @@ 6144 /06135-6144 1$ 6147 /06136-6147 1' 6151 /06137-6151 1) 6153 /06140-6153 1+ 6156 /06141-6156 1. 6162 /06142-6162 12 6165 /06143-6165 15 ISZ 6101 /06144-2301 SA ISZ I 0025 /06145-2425 TU ISZ 6000 /06146-2200 R@ ISZ 6125 /06147-2325 SU TAD I 6000 /06150-1600 N@ TAD I 0117 /06151-1517 MO TAD I 6000 /06152-1600 N@ ISZ I 0025 /06153-2425 TU AND I 0123 /06154-0523 ES AND 0000 /06155-0000 @@ ISZ I 6105 /06156-2705 WE AND I 0016 /06157-0416 DN AND I 0123 /06160-0523 ES AND 0000 /06161-0000 @@ ISZ I 0010 /06162-2410 TH ISZ I 0122 /06163-2522 UR ISZ 6100 /06164-2300 S@ AND I 6022 /06165-0622 FR TAD 0100 /06166-1100 I@ JMS 6102 /06167-4302 #B LXM /06170-6200 2@ DCA I 6174 /06171-3774 _< MQA CLA DPSZ /06172-7751 ?) SMA SZA SNL CLA OSR /06173-7764 ?4 CLA IAC /06174-7201 :A 6115 /06175-6115 1M /JMS I 6025 /06176-4625 &U /6070 /06177-6070 08 PAGE TST15, FPICL /06200-6552 5* TAD C15 /06201-1075 H= DCA TSTNUM /06202-3122 YR TAD (REC15 /06203-1377 K? DCA CODE /06204-3156 Y. DCA CNTSTP /06205-3145 Y% TAD (MCOD15 /06206-1376 K> DCA MCODE /06207-3157 Y/ TAD C15 /06210-1075 H= DCA 6253 /06211-3253 Z+ JMS I PREAPT /06212-4451 $) TAD 6375 /06213-1375 K= DCA 0013 /06214-3013 XK TAD 6374 /06215-1374 K< DCA 0014 /06216-3014 XL TAD I 0014 /06217-1414 LL DCA I 0013 /06220-3413 \K TAD I 0014 /06221-1414 LL DCA I 0013 /06222-3413 \K TAD I 0014 /06223-1414 LL DCA I 0013 /06224-3413 \K TAD I 0014 /06225-1414 LL DCA I 0013 /06226-3413 \K TAD I 0014 /06227-1414 LL DCA I 0013 /06230-3413 \K TAD I 0014 /06231-1414 LL DCA I 0013 /06232-3413 \K TAD 6373 /06233-1373 K; DCA I 6372 /06234-3772 _: TAD C2410 /06235-1165 I5 FPCOM /06236-6553 5+ CLA CLL CML RAR /06237-7330 ;X FPEP /06240-6567 57 FMODE /06241-6561 51 TAD APTP /06242-1146 I& FPST /06243-6555 5- SKP /06244-7410 <H JMP 6250 /06245-5250 *( JMS I SKFGPR /06246-4452 $* JMP 6200 /06247-5200 *@ FPRST /06250-6556 5. DCA STATUS /06251-3147 Y' JMS I CKSTAT /06252-4453 $+ LOCKO EPMOD FPRUN /06253-0015 @M JMP 6200 /06254-5200 *@ JMS I RDREGS /06255-4454 $, JMS 0000 /06256-4000 @ JMP 6200 /06257-5200 *@ JMS I XOPT /06260-4436 $^ AND C200 /06261-0101 AA SNA CLA /06262-7650 >( JMP 6266 /06263-5266 *6 JMS I ABORT /06264-4457 $/ JMP 6201 /06265-5201 *A ISZ CNTSTP /06266-2145 Q% SKP /06267-7410 <H JMS I NORUN /06270-4460 $0 FMDO /06271-6565 55 TAD CNTSTP /06272-1145 I% TAD 6371 /06273-1371 K9 SZA /06274-7440 < SKP /06275-7410 <H JMP 6310 /06276-5310 +H TAD 6370 /06277-1370 K8 SZA /06300-7440 < SKP /06301-7410 <H JMP 6313 /06302-5313 +K TAD 6367 /06303-1367 K7 SZA CLA /06304-7640 > SKP /06305-7410 <H JMP 6312 /06306-5312 +J JMP 6250 /06307-5250 *( TAD 6366 /06310-1366 K6 SKP /06311-7410 <H TAD 6365 /06312-1365 K5 TAD C15 /06313-1075 H= DCA 6253 /06314-3253 Z+ JMP 6250 /06315-5250 *( REC15, CLA /06316-7200 :@ JMS I CKSTAT /06317-4453 $+ DIVEX LOCKO EPMOD /06320-0414 DL JMP 6200 /06321-5200 *@ JMS I CHKAPT /06322-4461 $1 AND 0000 /06323-0000 @@ MQL SHL /06324-7433 <[ CLA IAC RTR /06325-7213 :K CLA CML IAC BSW /06326-7223 :S CLA CMA RAL /06327-7244 :$ DCA I 6377 /06330-3777 _? DCA I 6377 /06331-3777 _? MQA MQL CLA SAM /06332-7777 ?? JMS 0040 /06333-4040 AND I 0105 /06334-0505 EE 6060 /06335-6060 00 JMP 6200 /06336-5200 *@ JMS I CHKIDX /06337-4462 $2 AND 0000 /06340-0000 @@ AND 0000 /06341-0000 @@ AND 0000 /06342-0000 @@ AND 0000 /06343-0000 @@ AND 0000 /06344-0000 @@ AND 0000 /06345-0000 @@ AND 0000 /06346-0000 @@ AND 0000 /06347-0000 @@ JMP 6200 /06350-5200 *@ TAD NALL /06351-1123 IS SZA CLA /06352-7640 > JMP 6200 /06353-5200 *@ JMP I 6364 /06354-5764 /4 SMA SZA SNL CLA OSR HLT /06355-7766 ?6 CLA CMA CML IAC RAR /06356-7271 :9 JMP I 0157 /06357-5557 -/ 6446 /06360-6446 4& 6437 /06361-6437 4_ 6451 /06362-6451 4) 6443 /06363-6443 4# 6400 /06364-6400 4@ AND I 0000 /06365-0400 D@ AND 0020 /06366-0020 @P SPA SNA CLA OSR HLT /06367-7756 ?. MQA CLA DST /06370-7745 ?% MQA MQL CLA DVI /06371-7727 ?W CLA IAC /06372-7201 :A SNL OSR HLT /06373-7426 <V CLA CLL CMA IAC RTR /06374-7353 ;+ CLA RTR /06375-7212 :J /JMP 6237 /06376-5237 *_ /CIF 114 /06377-6316 3N PAGE TST16, FPICL /06400-6552 5* TAD (16 /06401-1377 K? DCA TSTNUM /06402-3122 YR NOP /06403-7000 8@ DCA CODE /06404-3156 Y. DCA CNTSTP /06405-3145 Y% TAD (MCOD16 /06406-1376 K> DCA MCODE /06407-3157 Y/ TAD 6575 /06410-1375 K= DCA 6433 /06411-3233 Z[ JMS I PREAPT /06412-4451 $) TAD 6574 /06413-1374 K< DCA I 6573 /06414-3773 _; TAD C2760 /06415-1166 I6 FPCOM /06416-6553 5+ CLA CLL CML RAR /06417-7330 ;X FPEP /06420-6567 57 FMODE /06421-6561 51 TAD APTP /06422-1146 I& FPST /06423-6555 5- SKP /06424-7410 <H JMP 6430 /06425-5230 *X JMS I SKFGPR /06426-4452 $* JMP 6400 /06427-5200 *@ FPRST /06430-6556 5. DCA STATUS /06431-3147 Y' JMS I CKSTAT /06432-4453 $+ EPMOD FPRUN /06433-0005 @E JMP 6400 /06434-5200 *@ JMS I RDREGS /06435-4454 $, JMS 0000 /06436-4000 @ JMP 6400 /06437-5200 *@ JMS I XOPT /06440-4436 $^ AND C200 /06441-0101 AA SNA CLA /06442-7650 >( JMP 6446 /06443-5246 *& JMS I ABORT /06444-4457 $/ JMP 6401 /06445-5201 *A ISZ CNTSTP /06446-2145 Q% SKP /06447-7410 <H JMS I NORUN /06450-4460 $0 FMDO /06451-6565 55 TAD CNTSTP /06452-1145 I% TAD 6572 /06453-1372 K: SZA /06454-7440 < SKP /06455-7410 <H JMP 6464 /06456-5264 *4 TAD 6571 /06457-1371 K9 SZA CLA /06460-7640 > SKP /06461-7410 <H JMP 6467 /06462-5267 *7 JMP 6430 /06463-5230 *X TAD 6570 /06464-1370 K8 DCA 6433 /06465-3233 Z[ JMP 6430 /06466-5230 *X FPICL /06467-6552 5* FPRST /06470-6556 5. DCA STATUS /06471-3147 Y' JMS I CKSTAT /06472-4453 $+ 0000 /06473-0000 @@ JMP 6400 /06474-5200 *@ JMS I CHKAPT /06475-4461 $1 AND 0000 /06476-0000 @@ 6530 /06477-6530 5X CLA IAC RTR /06500-7213 :K CLA CML IAC BSW /06501-7223 :S AND 0000 /06502-0000 @@ MQA MQL CLA SAM /06503-7777 ?? JMP I 0155 /06504-5555 -- JMP I 0155 /06505-5555 -- AND 0077 /06506-0077 @? AND I 6570 /06507-0770 G8 SMA CLA /06510-7700 ?@ JMP 6400 /06511-5200 *@ JMS I CHKIDX /06512-4462 $2 AND 0000 /06513-0000 @@ JMP I 0155 /06514-5555 -- JMP I 0155 /06515-5555 -- AND 0000 /06516-0000 @@ AND 0000 /06517-0000 @@ AND 0000 /06520-0000 @@ AND 0000 /06521-0000 @@ AND 0000 /06522-0000 @@ JMP 6400 /06523-5200 *@ TAD NALL /06524-1123 IS SZA CLA /06525-7640 > JMP 6400 /06526-5200 *@ JMP I 6567 /06527-5767 /7 AND I 0000 /06530-0400 D@ 6542 /06531-6542 5" 6400 /06532-6400 4@ CLA IAC RAL /06533-7205 :E AND 0006 /06534-0006 @F TAD 0110 /06535-1110 IH CLA IAC RTR /06536-7213 :K LXM /06537-6200 2@ JMS I 0000 /06540-4400 $@ FFST /06541-6550 5( MQA MQL CLA SAM /06542-7777 ?? JMP I 0155 /06543-5555 -- JMP I 0155 /06544-5555 -- AND 0077 /06545-0077 @? AND I 6570 /06546-0770 G8 SMA CLA /06547-7700 ?@ ISZ 0020 /06550-2020 PP ISZ 0020 /06551-2020 PP AND 0000 /06552-0000 @@ AND 0002 /0FPCOM-0002 @B AND 0005 /06554-0005 @E AND 0000 /06555-0000 @@ AND 0003 /06556-0003 @C AND 0006 /06557-0006 @F AND 0001 /06560-0001 @A AND 0004 /06561-0004 @D AND 0006 /06562-0006 @F JMS I 0123 /06563-4523 %S ISZ I 0120 /06564-2520 UP AND I 0122 /06565-0522 ER ISZ 6505 /06566-2305 SE 6600 /06567-6600 6@ JMS 0001 /06570-4001 A SNA SZL CLA HLT /06571-7672 >: SPA SNA CLA OSR /06572-7754 ?, CLA IAC /06573-7201 :A 6530 /06574-6530 5X AND 0005 /06575-0005 @E /JMP I 0147 /06576-5547 -' /AND 0016 /06577-0016 @N PAGE TST17, FPICL /06600-6552 5* TAD (17 /06601-1377 K? DCA TSTNUM /06602-3122 YR DCA CNTSTP /06603-3145 Y% TAD (REC17 /06604-1376 K> DCA CODE /06605-3156 Y. JMS I PREAPT /06606-4451 $) TAD 6775 /06607-1375 K= DCA I 6774 /06610-3774 _< TAD C2410 /06611-1165 I5 FPCOM /06612-6553 5+ CLA CLL CML RAR /06613-7330 ;X FPEP /06614-6567 57 TAD APTP /06615-1146 I& FPST /06616-6555 5- JMP 6622 /06617-5222 *R FPHLT /06620-6554 5, JMP 6624 /06621-5224 *T JMS I SKFGPR /06622-4452 $* JMP 6600 /06623-5200 *@ DCA 0140 /06624-3140 Y ISZ 0140 /06625-2140 Q JMP 6625 /06626-5225 *U JMS I SKFGPR /06627-4452 $* JMP 6600 /06630-5200 *@ REC17, CLA /06631-7200 :@ JMS I CKSTAT /06632-4453 $+ LOCKO EPMOD /06633-0014 @L JMP 6600 /06634-5200 *@ JMS I CHKAPT /06635-4461 $1 AND 0000 /06636-0000 @@ DCA I 6747 /06637-3747 _' CLA IAC RTR /06640-7213 :K CLA CML IAC BSW /06641-7223 :S DCA I 6746 /06642-3746 _& AND 0001 /06643-0001 @A AND 0002 /06644-0002 @B AND 0003 /06645-0003 @C AND 0004 /06646-0004 @D AND 0005 /06647-0005 @E AND 0006 /06650-0006 @F JMP 6600 /06651-5200 *@ FPICL /06652-6552 5* JMS I SETENV /06653-4465 $5 0017 /06654-0017 @O TSTNUM 6677 /06655-6677 6? CODE 0000 /06656-0000 @@ MCODE 0000 /06657-0000 @@ FPCF 7443 /06660-7443 <# FPCADR 2410 /06661-2410 TH FPCOM 4000 /06662-4000 @ FPEP JMP 6652 /06663-5252 ** ERR FPRST /06664-6556 5. DCA STATUS /06665-3147 Y' JMS I CKSTAT /06666-4453 $+ LOCKO EPMOD FPPAU FPRUN /06667-0017 @O JMP 6652 /06670-5252 ** FPHLT /06671-6554 5, DCA 0140 /06672-3140 Y ISZ 0140 /06673-2140 Q JMP 6673 /06674-5273 *; JMS I SKFGPR /06675-4452 $* JMP 6652 /06676-5252 ** CLA /06677-7200 :@ JMS I CKSTAT /06700-4453 $+ HLTEX LOCKO EPMOD /06701-1014 HL JMP 6652 /06702-5252 ** JMS I CHKAPT /06703-4461 $1 AND 0000 /06704-0000 @@ DAD /06705-7443 <# CLA IAC RTR /06706-7213 :K CLA CML IAC BSW /06707-7223 :S DAD /06710-7443 <# AND 0001 /06711-0001 @A AND 0002 /06712-0002 @B AND 0003 /06713-0003 @C AND 0004 /06714-0004 @D AND 0005 /06715-0005 @E AND 0006 /06716-0006 @F JMP 6652 /06717-5252 ** FPICL /06720-6552 5* TAD 6773 /06721-1373 K; DCA CODE /06722-3156 Y. JMS I PREAPT /06723-4451 $) TAD 6772 /06724-1372 K: DCA I 6774 /06725-3774 _< TAD C2410 /06726-1165 I5 CLA CLL CML RAR /06727-7330 ;X FPEP /06730-6567 57 TAD APTP /06731-1146 I& FPST /06732-6555 5- JMP 6736 /06733-5336 +^ FPHLT /06734-6554 5, JMP 6740 /06735-5340 + JMS I SKFGPR /06736-4452 $* JMP 6720 /06737-5320 +P DCA 0140 /06740-3140 Y ISZ 0140 /06741-2140 Q JMP 6741 /06742-5341 +! JMS I SKFGPR /06743-4452 $* JMP 6720 /06744-5320 +P CLA /06745-7200 :@ JMS I CKSTAT /06746-4453 $+ HLTEX LOCKO EPMOD /06747-1014 HL JMP 6720 /06750-5320 +P JMS I CHKAPT /06751-4461 $1 AND 0000 /06752-0000 @@ JMS 6723 /06753-4323 #S CLA IAC RTR /06754-7213 :K CLA CML IAC BSW /06755-7223 :S JMS 6722 /06756-4322 #R AND 0001 /06757-0001 @A MQA MQL CLA DCM /06760-7775 ?= SPA SNA SZL CLA OSR /06761-7774 ?< MQA MQL CLA DPIC /06762-7773 ?; SPA SNA SZL CLA HLT /06763-7772 ?: SPA SNA SZL CLA HLT /06764-7772 ?: JMP 6720 /06765-5320 +P JMP I 6771 /06766-5771 /9 ISZ I C7777 /06767-2515 UM AND 6605 /06770-0205 BE NOP /06771-7000 8@ JMS 6722 /06772-4322 #R 6745 /06773-6745 7% CLA IAC /06774-7201 :A DCA I 6746 /06775-3746 _& /6631 /06776-6631 6Y /AND 0017 /06777-0017 @O PAGE FPICL /07000-6552 5* FPHLT /07001-6554 5, JMS I SETENV /07002-4465 $5 0017 /07003-0017 @O TSTNUM 7020 /07004-7020 8P CODE 0000 /07005-0000 @@ MCODE 0000 /07006-0000 @@ FPCF 7433 /07007-7433 <[ FPCADR 2410 /07010-2410 TH FPCOM 4000 /07011-4000 @ FPEP JMP 7000 /07012-5200 *@ ERR DCA 0140 /07013-3140 Y ISZ 0140 /07014-2140 Q JMP 7014 /07015-5214 *L JMS I SKFGPR /07016-4452 $* JMP 7000 /07017-5200 *@ CLA /07020-7200 :@ JMS I CKSTAT /07021-4453 $+ HLTEX LOCKO EPMOD /07022-1014 HL JMP 7000 /07023-5200 *@ JMS I CHKAPT /07024-4461 $1 AND 0000 /07025-0000 @@ MQL ASR /07026-7435 <] CLA IAC RTR /07027-7213 :K CLA CML IAC BSW /07030-7223 :S AND 0111 /07031-0111 AI JMS 0000 /07032-4000 @ JMP I 7177 /07033-5777 /? SMA CLA /07034-7700 ?@ 7755 /07035-7755 ?- MQA MQL CLA DST /07036-7765 ?5 SMA SZA SNL CLA OSR HLT /07037-7766 ?6 JMP 7000 /07040-5200 *@ FPHLT /07041-6554 5, JMS I SETENV /07042-4465 $5 0017 /07043-0017 @O TSTNUM 7060 /07044-7060 80 CODE 0000 /07045-0000 @@ MCODE 0000 /07046-0000 @@ FPCF 7435 /07047-7435 <] FPCADR 2410 /07050-2410 TH FPCOM 0000 /07051-0000 @@ FPEP JMP 7041 /07052-5241 *! ERR DCA 0140 /07053-3140 Y ISZ 0140 /07054-2140 Q JMP 7054 /07055-5254 *, JMS I SKFGPR /07056-4452 $* JMP 7041 /07057-5241 *! CLA /07060-7200 :@ JMS I CKSTAT /07061-4453 $+ HLTEX LOCKO /07062-1010 HH JMP 7000 /07063-5200 *@ JMS I CHKAPT /07064-4461 $1 AND 0000 /07065-0000 @@ MQL LSR /07066-7437 <_ CLA IAC RTR /07067-7213 :K CLA CML IAC BSW /07070-7223 :S AND 0103 /07071-0103 AC AND 7000 /07072-0200 B@ AND 7060 /07073-0260 B0 AND 7077 /07074-0277 B? AND 0004 /07075-0004 @D AND 0005 /07076-0005 @E AND 0006 /07077-0006 @F JMP 7000 /07100-5200 *@ FPHLT /07101-6554 5, JMS I SETENV /07102-4465 $5 AND 0017 /07103-0017 @O TSTNUM CLL CML /07104-7120 9P CODE AND 0000 /07105-0000 @@ MCODE AND 0000 /07106-0000 @@ FPCF MQL LSR /07107-7437 <_ FPCADR 6400 /07110-6400 4@ FPCOM AND 0000 /07111-0000 @@ FPEP JMP 7101 /07112-5301 +A DCA 0140 /07113-3140 Y ISZ 0140 /07114-2140 Q JMP 7114 /07115-5314 +L JMS I SKFGPR /07116-4452 $* JMP 7101 /07117-5301 +A CLA /07120-7200 :@ JMS I CKSTAT /07121-4453 $+ DPMOD HLTEX /07122-5000 (@ JMP 7101 /07123-5301 +A JMS I CHKAPT /07124-4461 $1 AND 0000 /07125-0000 @@ SCA /07126-7441 <! CLA IAC RTR /07127-7213 :K CLA CML IAC BSW /07130-7223 :S AND 0071 /07131-0071 @9 AND 0001 /07132-0001 @A AND 0004 /07133-0004 @D AND 0005 /07134-0005 @E AND 0004 /07135-0004 @D AND 0005 /07136-0005 @E AND 0006 /07137-0006 @F JMP 7101 /07140-5301 +A TAD NALL /07141-1123 IS SZA CLA /07142-7640 > JMP I (TST17 /07143-5777 /? JMP TST20 /07144-5345 +% TST20, CLA /07145-7200 :@ CIF CDF 10 /07146-6213 2K JMP I (TST20X /07147-5776 /> TST21, CLA /07150-7200 :@ CIF CDF 10 /07151-6213 2K JMP I (TST21X /07152-5775 /= TST22, CLA /07153-7200 :@ CIF CDF 10 /07154-6213 2K JMP I (TST22X /07155-5774 /< TST23, CLA /07156-7200 :@ CIF CDF 10 /07157-6213 2K JMP I (TST23X /07160-5773 /; TST24, JMS I MSG /07161-4437 $_ MTST24 /07162-6737 7_ CIF CDF 10 /07163-6213 2K JMP I .+1 /07164-5765 /5 TST24X /07165-1400 L@ CLA CLL CMA IAC RAL /07166-7345 ;% MQA MQL /07167-7521 =Q CLA CLL CMA CML /07170-7360 ;0 AND 7077 /07171-0277 B? 7335 /07172-7335 ;] /TAD 7000 /07173-1200 J@ /TAD 0000 /07174-1000 H@ /AND I 7000 /07175-0600 F@ /AND 7000 /07176-0200 B@ /6600 /07177-6600 6@ PAGE APT, AND 0000 /07200-0000 @@ FPCADR, AND 0000 /07201-0000 @@ INDADR, AND 0000 /07202-0000 @@ BASADR, AND 0000 /07203-0000 @@ OPEADR, AND 0000 /07204-0000 @@ FACEXP, AND 0000 /07205-0000 @@ FACMA0, AND 0000 /07206-0000 @@ FACMA1, AND 0000 /07207-0000 @@ FACMA2, AND 0000 /07210-0000 @@ FACMA3, AND 0000 /07211-0000 @@ FACMA4, AND 0000 /07212-0000 @@ INDEX, AND 0000 /07213-0000 @@ AND 0000 /07214-0000 @@ AND 0000 /07215-0000 @@ AND 0000 /07216-0000 @@ AND 0000 /07217-0000 @@ AND 0000 /07220-0000 @@ AND 0000 /07221-0000 @@ AND 0000 /07222-0000 @@ BASEP, AND 0000 /07223-0000 @@ AND 0000 /07224-0000 @@ AND 0000 /07225-0000 @@ AND 0000 /07226-0000 @@ AND 0000 /07227-0000 @@ SKP OSR /07230-7414 <L AND 0000 /07231-0000 @@ AND 0000 /07232-0000 @@ SKP OSR HLT /07233-7416 <N AND 0000 /07234-0000 @@ AND 0000 /07235-0000 @@ 6122 /07236-6122 1R AND 0000 /07237-0000 @@ AND 0000 /07240-0000 @@ 6124 /07241-6124 1T AND 0001 /07242-0001 @A AND 0000 /07243-0000 @@ AND 0000 /07244-0000 @@ AND 0000 /07245-0000 @@ AND 0000 /07246-0000 @@ AND 0000 /07247-0000 @@ AND 0000 /07250-0000 @@ AND 0000 /07251-0000 @@ CLA IAC RTR /07252-7213 :K AND 0000 /07253-0000 @@ AND 0000 /07254-0000 @@ SNA HLT /07255-7452 <* AND 0000 /07256-0000 @@ AND 0000 /07257-0000 @@ MQL DAD /07260-7463 <3 AND 0000 /07261-0000 @@ AND 0000 /07262-0000 @@ SMA HLT /07263-7502 =B AND 0000 /07264-0000 @@ AND 0001 /07265-0001 @A TAD I 7245 /07266-1645 N% AND 0000 /07267-0000 @@ AND 0000 /07270-0000 @@ CLA CLL CML RTR /07271-7332 ;Z AND 0000 /07272-0000 @@ AND 0001 /07273-0001 @A TAD I 7215 /07274-1615 NM AND 0002 /07275-0002 @B TAD 0000 /07276-1000 H@ CLA CLL BSW /07277-7302 ;B DCA 0000 /07300-3000 X@ CLA CLL /07301-7300 ;@ TAD 0010 /07302-1010 HH CLA CLL RTL /07303-7306 ;F DCA 0000 /07304-3000 X@ CLA CLL RAL /07305-7304 ;D TAD 0020 /07306-1020 HP CLA CLL RTR /07307-7312 ;J DCA 0000 /07310-3000 X@ CLA CLL RAR /07311-7310 ;H TAD 0040 /07312-1040 H 7376 /07313-7376 ;> TAD 0050 /07314-1050 H( 7374 /07315-7374 ;< TAD 0060 /07316-1060 H0 CLA CLL CMA CML RTR /07317-7372 ;: TAD 0070 /07320-1070 H8 CLA CLL CMA CML RAR /07321-7370 ;8 TAD 0031 /07322-1031 HY TAD I 7217 /07323-1617 NO AND I 0000 /07324-0400 D@ 7354 /07325-7354 ;, TAD 0000 /07326-1000 H@ CLA CLL CMA CML RTL /07327-7366 ;6 TAD 0010 /07330-1010 HH 7334 /07331-7334 ;\ DCA 0000 /07332-3000 X@ CLA CLL CML RTR /07333-7332 ;Z TAD 0020 /07334-1020 HP CLA CLL CMA CML RAL /07335-7364 ;4 TAD 0040 /07336-1040 H CLA CLL CMA BSW /07337-7342 ;" DCA 0000 /07340-3000 X@ CLA CLL CMA /07341-7340 ; TAD 0050 /07342-1050 H( CLA CLL CMA CML BSW /07343-7362 ;2 TAD 0060 /07344-1060 H0 CLA CLL CMA RAR /07345-7350 ;( DCA 0000 /07346-3000 X@ CLA CLL CMA RTL /07347-7346 ;& TAD 0070 /07350-1070 H8 7400 /07351-7400 <@ DCA 0000 /07352-3000 X@ CLA CLL CMA RTR /07353-7352 ;* DCA I 7377 /07354-3777 _? DCA I 7377 /07355-3777 _? MQA MQL CLA SAM /07356-7777 ?? JMS 0040 /07357-4040 AND I 0105 /07360-0505 EE 6060 /07361-6060 00 DCA 0000 /07362-3000 X@ CLA CLL CMA CML BSW /07363-7362 ;2 DCA 0000 /07364-3000 X@ CLA CLL CMA CML RAL /07365-7364 ;4 DCA 0000 /07366-3000 X@ CLA CLL CMA CML RTL /07367-7366 ;6 DCA 0000 /07370-3000 X@ CLA CLL CMA CML RAR /07371-7370 ;8 DCA 0000 /07372-3000 X@ CLA CLL CMA CML RTR /07373-7372 ;: DCA 0000 /07374-3000 X@ 7374 /07375-7374 ;< DCA 0000 /07376-3000 X@ 7376 /07377-7376 ;> AND 0000 /07400-0000 @@ SKON /07401-6000 0@ MUY /07402-7405 <E AND 0005 /07403-0005 @E AND 0007 /07404-0007 @G 6100 /07405-6100 1@ NMI /07406-7411 <I AND 0005 /07407-0005 @E AND 0007 /07410-0007 @G IAC /07411-7001 8A AND 0005 /07412-0005 @E AND 0007 /07413-0007 @G CLL BSW /07414-7102 9B AND 0007 /07415-0007 @G JMP 0067 /07416-5067 (7 JMP 0000 /07417-5000 (@ SKON /07420-6000 0@ SNL OSR /07421-7424 <T DCA 0000 /07422-3000 X@ SNL HLT /07423-7422 <R AND 0000 /07424-0000 @@ AND 0002 /07425-0002 @B JMS 7405 /07426-4205 "E CLA DVI /07427-7607 >G AND I 0000 /07430-0400 D@ 7354 /07431-7354 ;, DCA 7405 /07432-3205 ZE AND I 0110 /07433-0510 EH AND 0101 /07434-0101 AA AND I 0110 /07435-0510 EH AND 0076 /07436-0076 @> AND I 0130 /07437-0530 EX AND 0066 /07440-0066 @6 JMS 0000 /07441-4000 @ SCA /07442-7441 <! AND 0001 /07443-0001 @A JMS 0000 /07444-4000 @ SZA OSR /07445-7444 <$ AND I 0110 /07446-0510 EH CLA CLL CMA IAC RTR /07447-7353 ;+ TAD 0110 /07450-1110 IH 7234 /07451-7234 :\ TAD I 7575 /07452-1775 O= AND 0000 /07453-0000 @@ AND 0000 /07454-0000 @@ AND 0001 /07455-0001 @A TAD 0110 /07456-1110 IH 7234 /07457-7234 :\ AND I 0120 /07460-0520 EP MQL DAD /07461-7463 <3 AND 0103 /07462-0103 AC AND 0002 /07463-0002 @B JMS I 7436 /07464-4636 &^ AND 0000 /07465-0000 @@ DCA I 7577 /07466-3777 _? ISZ I 0125 /07467-2525 UU ISZ I 0125 /07470-2525 UU AND 0002 /07471-0002 @B ISZ 0000 /07472-2000 P@ AND 0000 /07473-0000 @@ TAD 0110 /07474-1110 IH 7234 /07475-7234 :\ AND I 0130 /07476-0530 EX SNA SZL OSR /07477-7474 << DCA I 7567 /07500-3767 _7 AND 0000 /07501-0000 @@ MQA MQL CLA SAM /07502-7777 ?? JMP I 0155 /07503-5555 -- JMP I 0155 /07504-5555 -- JMP I 0155 /07505-5555 -- JMP I 0155 /07506-5555 -- JMP I 0155 /07507-5555 -- JMS 0001 /07510-4001 A 7400 /07511-7400 <@ AND 0000 /07512-0000 @@ AND 0000 /07513-0000 @@ AND 0000 /07514-0000 @@ AND 0000 /07515-0000 @@ KCC /07516-6032 0Z JMS 7521 /07517-4321 #Q JMP I 7506 /07520-5706 /F AND 0000 /07521-0000 @@ KSF /07522-6031 0Y JMP 7522 /07523-5322 +R KRB /07524-6036 0^ AND 7566 /07525-0366 C6 TAD 7564 /07526-1364 K4 SNA /07527-7450 <( JMP I 7563 /07530-5763 /3 TAD 7562 /07531-1362 K2 SNA /07532-7450 <( JMP I 7561 /07533-5761 /1 TAD 7562 /07534-1362 K2 SZA CLA /07535-7640 > JMP 7522 /07536-5322 +R JMP I 7521 /07537-5721 /Q AND 0000 /07540-0000 @@ JMS I 0137 /07541-4537 %_ 6760 /07542-6760 70 AND 0023 /07543-0023 @S JMP I 7540 /07544-5740 / TAD C5 /07545-1071 H9 JMP I 7536 /07546-5736 /^ 6014 /07547-6014 0L 6011 /07550-6011 0I JMP 7550 /07551-5350 +( 6012 /07552-6012 0J JMP 7544 /07553-5344 +$ AND 7500 /07554-0300 C@ AND 0000 /07555-0000 @@ AND 0000 /07556-0000 @@ AND 0000 /07557-0000 @@ AND 0000 /07560-0000 @@ AND 7400 /07561-0200 B@ MQA MQL CLA DPSZ /07562-7771 ?9 CLL IAC RAL /07563-7105 9E MQA MQL CLA DCM /07564-7775 ?= 7755 /07565-7755 ?- AND 0177 /07566-0177 A? 6731 /07567-6731 7Y 6143 /07570-6143 1# HLT /07571-7402 <B JMP I 7400 /07572-5600 .@ 6713 /07573-6713 7K CLA CLL CML IAC BSW /07574-7323 ;S CLA CLL CML IAC RTR /07575-7333 ;[ 6602 /07576-6602 6B 6701 /07577-6701 7A AND 0000 /07600-0000 @@ AND 0000 /07601-0000 @@ AND 0000 /07602-0000 @@ AND 0000 /07603-0000 @@ AND 0000 /07604-0000 @@ AND 0000 /07605-0000 @@ AND 0000 /07606-0000 @@ AND 0000 /07607-0000 @@ AND 0000 /07610-0000 @@ AND 0000 /07611-0000 @@ AND 0000 /07612-0000 @@ AND 0000 /07613-0000 @@ AND 0000 /07614-0000 @@ AND 0000 /07615-0000 @@ AND 0000 /07616-0000 @@ AND 0000 /07617-0000 @@ AND 0000 /07620-0000 @@ AND 0000 /07621-0000 @@ AND 0000 /07622-0000 @@ AND 0000 /07623-0000 @@ AND 0000 /07624-0000 @@ AND 0000 /07625-0000 @@ AND 0000 /07626-0000 @@ AND 0000 /07627-0000 @@ AND 0000 /07630-0000 @@ AND 0000 /07631-0000 @@ AND 0000 /07632-0000 @@ AND 0000 /07633-0000 @@ AND 0000 /07634-0000 @@ AND 0000 /07635-0000 @@ AND 0000 /07636-0000 @@ AND 0000 /07637-0000 @@ AND 0000 /07640-0000 @@ AND 0000 /07641-0000 @@ AND 0000 /07642-0000 @@ AND 0000 /07643-0000 @@ AND 0000 /07644-0000 @@ AND 0000 /07645-0000 @@ AND 0000 /07646-0000 @@ AND 0000 /07647-0000 @@ AND 0000 /07650-0000 @@ AND 0000 /07651-0000 @@ AND 0000 /07652-0000 @@ AND 0000 /07653-0000 @@ AND 0000 /07654-0000 @@ AND 0000 /07655-0000 @@ AND 0000 /07656-0000 @@ AND 0000 /07657-0000 @@ AND 0000 /07660-0000 @@ AND 0000 /07661-0000 @@ AND 0000 /07662-0000 @@ AND 0000 /07663-0000 @@ AND 0000 /07664-0000 @@ AND 0000 /07665-0000 @@ AND 0000 /07666-0000 @@ AND 0000 /07667-0000 @@ AND 0000 /07670-0000 @@ AND 0000 /07671-0000 @@ AND 0000 /07672-0000 @@ AND 0000 /07673-0000 @@ $