.TITLE TECO .IDENT /V36/ .ASECT .GLOBL ALLERR .GLOBL CLSFIL ;isassembled from TECO.OBJ via DOB .GLOBL CLSOUT .GLOBL CMDQRG .GLOBL DATE .GLOBL DELCHR .GLOBL DELLIN .GLOBL ED$CTL .GLOBL ED$EXP .GLOBL ED$IMD .GLOBL ED$INC .GLOBL ED$SRH .GLOBL ED$YNK .GLOBL ET$BIN .GLOBL ET$CC .GLOBL ET$CCO .GLOBL ET$CKE .GLOBL ET$CRT .GLOBL ET$DET .GLOBL ET$IAS .GLOBL ET$LC .GLOBL ET$NCH .GLOBL ET$RFS .GLOBL ET$TRU .GLOBL ET$XIT .GLOBL E$$TXT .GLOBL FLAGRW .GLOBL GETBUF .GLOBL GETFLS .GLOBL GEXIT .GLOBL INPSAV .GLOBL KILFIL .GLOBL LISTEN .GLOBL NOCTLO .GLOBL OUTSAV .GLOBL PRINT .GLOBL PRINTB .GLOBL PRINTF .GLOBL PUTBUF .GLOBL SIZER .GLOBL SIZERB .GLOBL STOPON .GLOBL SWITCH .GLOBL TEXIT .GLOBL TIME .GLOBL TLISTN .GLOBL TYPE .GLOBL TYPEB .GLOBL TYPEF .GLOBL VERSON .GLOBL WATCH .GLOBL XITNOW .PSECT .PSECT ..ABS.,OVR,ABS,D .GLOBL CFLG .GLOBL CLNF .GLOBL CNDN .GLOBL CRTYPE .GLOBL CURFRE .GLOBL EDIT .GLOBL EHELP .GLOBL EOFLAG .GLOBL ERRPOS .GLOBL ESFLAG .GLOBL ETYPE .GLOBL EUFLAG .GLOBL EVFLAG .GLOBL FFFLAG .GLOBL FILBUF .GLOBL INDIR .GLOBL INPNTR .GLOBL ITRCNT .GLOBL ITRST .GLOBL LSCHSZ .GLOBL M .GLOBL MPDL .GLOBL N .GLOBL NACC .GLOBL NFLG .GLOBL NMRBAS .GLOBL NOPR .GLOBL NP .GLOBL NWATCH .GLOBL OFLG .GLOBL OSCANP .GLOBL OUPNTR .GLOBL OUTDNE .GLOBL P .GLOBL PCNT .GLOBL PDL .GLOBL PST .GLOBL QARRAY .GLOBL QBASE .GLOBL QCMND .GLOBL QFLG .GLOBL QLCMD .GLOBL QLENGT .GLOBL QMAX .GLOBL QNMBR .GLOBL QPNTR .GLOBL QRSTOR .GLOBL QUOTE .GLOBL QZ .GLOBL REPFLG .GLOBL RWSIZE .GLOBL SCANP .GLOBL SCHBUF .GLOBL SFLG .GLOBL SYMSPC .GLOBL TAGBUF .GLOBL TECOJP .GLOBL TECOPD .GLOBL TECOSP .GLOBL TEMP .GLOBL TFLG .GLOBL TXSTOR .GLOBL ZMAX .GLOBL ZZ .PSECT TECORO,RO .GLOBL CMDDNE .GLOBL CRLF .GLOBL CRLFNO .GLOBL DIVD .GLOBL ERROR .GLOBL IOERR .GLOBL IOERRS .GLOBL PRTLIN .GLOBL SIZEQR .GLOBL TECO .GLOBL TECOCR .GLOBL UPPERC .GLOBL ZEROD .GLOBL $E$BNI .GLOBL $E$CPQ .GLOBL $E$DTB .GLOBL $E$IEC .GLOBL $E$IFC .GLOBL $E$IIA .GLOBL $E$ILL .GLOBL $E$ILN .GLOBL $E$IPA .GLOBL $E$IQC .GLOBL $E$IQN .GLOBL $E$IRA .GLOBL $E$ISA .GLOBL $E$ISS .GLOBL $E$IUC .GLOBL $E$MEM .GLOBL $E$MRP .GLOBL $E$NAB .GLOBL $E$NAC .GLOBL $E$NAE .GLOBL $E$NAP .GLOBL $E$NAQ .GLOBL $E$NAS .GLOBL $E$NAU .GLOBL $E$NYA .GLOBL $E$PDO .GLOBL $E$POP .GLOBL $E$SNI .GLOBL $E$SRH .GLOBL $E$STL .GLOBL $E$UTC .GLOBL $E$UTM .GLOBL $E$XAB .GLOBL $E$YCA .GLOBL .III.I .GLOBL .VVV.V .GLOBL .YYY.Y .PSECT TECOLS,OVR,RO,GBL .PSECT TECOCH,OVR,RO,GBL,D .GLOBL TECOCH .PSECT TECOER,RO,D .PSECT TECOLS I00000: JMP LISTEN .PSECT TECOCH TECOCH: .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .WORD ERROR .PSECT TECORO ERROR: $E$ILL: JSR R4,G07650 .RAD50 /ILL/ .WORD M00000 .PSECT TECOER M00000: .ASCIZ /Illegal command/ .EVEN .PSECT TECORO G00010: TST 400(R5) BEQ G00046 DEC 150(R5) DEC 400(R5) G00026: MOV 150(R5),R3 ADD 144(R5),R3 MOVB (R3),R0 SEC MOV 400(R5),R4 G00046: RETURN G00050: TST 54(R5) BPL G00102 G00056: CLRB 55(R5) CALL STOPON $E$XAB: JSR R4,G07650 .RAD50 /XAB/ .WORD M00020 .PSECT TECOER M00020: .ASCIZ /Execution aborted/ .EVEN .PSECT TECOCH .=.+177662 .WORD G00076 .PSECT TECORO G00076: COMB 54(R5) G00102: RETURN G00104: INC 44(R5) BR G00146 G00112: CMP (SP),#G01220 BNE G00212 CMP 2(R5),74(R5) BNE G00212 JSR R4,G11006 JSR R0,R4 MOV 4(R5),R0 CALL G10576 G00146: MOV (R5),R0 CMP R0,42(R5) BCC G00112 ADD 66(R5),R0 ADD 144(R5),R0 MOVB (R0),R0 BIC #177600,R0 INC (R5) G00176: TST 54(R5) BEQ G00102 BMI G00056 JMP TYPE G00212: TST (SP)+ TST 2(R5) BEQ G00512 $E$UTM: JSR R4,G07650 .RAD50 /UTM/ .WORD M00042 .PSECT TECOER M00042: .ASCIZ /Unterminated macro/ .EVEN .PSECT TECOCH .=.+177606 .WORD G00232 .PSECT TECORO G00232: JSR R4,G11446 BPT BCS G00252 CMP 4(R5),#46 BNE TECO G00252: JMP TEXIT G00256: MOV #177777,R1 TST 400(R5) BNE G00360 CALL LISTEN CALL G10122 MOV 402(R5),R0 ADD R0,150(R5) MOV R0,400(R5) CALL G10512 MOV R2,R3 MOV #46,R0 CALL G10156 ADD 144(R5),R3 ADD 144(R5),R2 MOV (R1),R1 G00344: DEC R1 BMI TECOCR MOVB (R2)+,(R3)+ BR G00344 G00354: MOV #12,R1 G00360: CMP 52(R5),#7 BNE G00720 CALL CRLFNO CALL G00010 BEQ G00612 CALL G01114 BR G00652 G00410: MOV #100000,72(R5) CMP R0,52(R5) BNE G00724 CALL G00010 MOV R4,402(R5) BR TECOCR G00436: CALL CRLFNO G00442: MOV 72(R5),R4 BLE G00720 MOV 66(R5),R3 ADD 144(R5),R3 CALL PRINT MOV #77,R0 CALL TYPE TECOCR: CALL CRLFNO TECO: MOV 404(R5),SP MOV 406(R5),74(R5) G00512: CMP SP,404(R5) BNE $E$UTC CMP 74(R5),406(R5) BNE $E$UTC MOV #46,R0 CALL G10146 CALL G10512 CALL NOCTLO TST 130(R5) BNE G00622 G00556: BIC #ET$XIT,104(R5) G00562= G00556+4 MOV 120(R5),R0 CLR 16(R5) CALL WATCH MOV 100(R5),R0 BLE G00612 CALL G04730 G00612: MOV #52,R0 CALL TYPE G00622: MOV 4(R5),R0 MOV R5,R1 ADD #62,R1 G00634: CLR -(R1) CMP R1,R5 BHI G00634 MOV R0,4(R5) CALL G07522 G00652: CLR 52(R5) G00656: MOV 72(R5),R0 TST 400(R5) BNE G00672 INC R0 G00672: CALL I00000 CMP R0,#33 BEQ G01152 TST 130(R5) BNE G00720 JSR R4,G11314 .WORD G14374 G00720: CLR 72(R5) G00724: CLR 402(R5) MOV #G00656,-(SP) MOV R0,52(R5) G00740: MOV 150(R5),R1 CMP R1,146(R5) BCC $E$MEM INC 150(R5) INC 400(R5) ADD 144(R5),R1 MOVB R0,(R1) SUB 144(R5),R1 ADD #144,R1 CALL SIZEQR BCS G01016 MOV #7,R0 CALL TYPEB G01016: RETURN $E$UTC: JSR R4,G07650 .RAD50 /UTC/ .WORD M00065 .PSECT TECOER M00065: .ASCIZ /Unterminated command/ .EVEN .PSECT TECORO $E$MEM: JSR R4,G07650 .RAD50 /MEM/ .WORD M00112 .PSECT TECOER M00112: .ASCIZ /Memory overflow/ .EVEN .PSECT TECORO G01040: CALL G00010 BCC TECOCR CALL DELCHR BR G00652 G01054: CALL G00010 BCC G01074 CMP R0,#12 BNE G01054 CALL G00740 G01074: CALL DELLIN MOV #G00652,-(SP) PRTLIN: CALL G00026 MOV #12,R1 G01114: DEC R4 BMI G01140 CMPB R1,-(R3) BNE G01114 INC R3 G01126: COM R4 ADD 400(R5),R4 JMP PRINT G01140: MOV #52,R0 CALL TYPE BR G01126 G01152: CMP R0,52(R5) G01156: BNE G00720 CALL G00740 MOV 400(R5),402(R5) TST 130(R5) BNE G01204 CALL CRLFNO G01204: MOV #46,R0 CALL G10576 G01214: CALL G00146 G01220: CALL UPPERC G01224: MOV R0,R1 CLR R0 MOV R1,R2 CMP R2,#141 BCS G01244 SUB #32,R2 G01244: ASL R2 ADD 416(R5),R2 CALL @(R2)+ CMDDNE: TST 16(R5) BMI G01214 CLR 20(R5) CLR 16(R5) BR G01214 .PSECT TECOCH .=.+264 .WORD G01274 .PSECT TECORO G01274: CALL G11226 BR G01224 G01302: MOV R0,R1 TST 400(R5) BNE G01156 MOV #TECO,-(SP) MOV #15,R0 CALL TYPE SUB #11,R1 BPL G01344 G01334: MOV #12,R0 CALL TYPE G01344: MOV 64(R5),R4 MOV R1,R0 CALL .VVV.V TST 100(R5) BNE G01404 CMP R1,R4 BNE G01400 TST R1 BNE G01404 CALL G01404 G01400: MOV #G04726,-(SP) G01404: BIT #ET$CRT,104(R5) BEQ G01516 MOV #12,R0 CALL DELCHR JMP DELLIN .PSECT TECOCH .=.+177732 .WORD G01430 .PSECT TECORO G01430: CALL G11110 .VVV.V: MOV 136(R5),R2 MOV 64(R5),R1 ADD R2,R1 MOV #14,R3 TST R0 BLE G01520 ADD 142(R5),R2 G01462: CMP R1,R2 BCC G01506 CMPB R3,(R1)+ BCS G01462 CMPB 177777(R1),#12 BCS G01462 DEC R0 BGT G01462 G01506: SUB 136(R5),R1 MOV R1,64(R5) G01516: RETURN G01520: CMP R1,R2 BLOS G01506 CMPB R3,-(R1) BCS G01520 CMPB (R1),#12 BCS G01520 INC R0 BLE G01520 INC R1 BR G01506 G01546: MOV 6(R5),(R5) BR G01636 .PSECT TECOCH .=.+177736 .WORD G01554 .PSECT TECORO G01554: JSR R4,G10756 BGT G01566 MOV (R5),6(R5) G01566: CLR 10(R5) INC 16(R5) BNE G01636 MOV 20(R5),10(R5) BLE G01752 BR G01636 .PSECT TECOCH .=.+2 .WORD G01612 .PSECT TECORO G01612: TST 10(R5) BEQ G01626 DEC 10(R5) BEQ G01662 G01626: MOV 6(R5),R4 BEQ $E$BNI MOV R4,(R5) G01636: CLR 26(R5) CLR 24(R5) CLR 30(R5) CLR 16(R5) JMP G07522 G01662: TST R0 BEQ G02006 BR G01752 .PSECT TECOCH .=.+177670 .WORD G01670 .PSECT TECORO G01670: JSR R4,G11446 .WORD 33 BCC G01636 MOV 42(R5),(R5) RETURN $E$BNI: JSR R4,G07650 .RAD50 /BNI/ .WORD M00132 .PSECT TECOER M00132: .ASCIZ /> not in iteration/ .EVEN .PSECT TECOCH .=.+76 .WORD G01716 ; " " " " .PSECT TECORO G01716: TST 6(R5) ; "u " "A6U F" BEQ $E$SNI ; " " " S7" INC 16(R5) ; "5 " "A.U N" BNE $E$NAS ; " " " MV" INC 30(R5) ; "5 " "A.U X" BNE G01744 ; " " " L4" COM 20(R5) ; "u " "AZ7 P" G01744: TST 20(R5) ; "u " "A6U P" BMI G01636 ; "Z " "T1B" G01752: MOV 6(R5),-(SP) ; "f " "D.F F" G01756: JSR R4,G07344 ; "7 r " "AR9A0B" .WORD 76 ; "> " " AV" MOV #G01756,-(SP) ; "f " "CTF " CMP 2(SP),6(R5) ; "5- " "GLU B F" BNE G02006 ; " " " L5" CMP (SP)+,(SP)+ ; " %" "F V" CALL G00176 ; "w x|" "AW1 O2" G02006: JSR R4,G11006 ; "7 | " "AR9BIT" CLR R2 ; " " "AXB" BR G01636 ; "H " " KP" $E$SNI: JSR R4,G07650 ; "7 " "AR9A4F" XOR R3,@M00155(R1) ; "yx " "SNI " .PSECT TECOER M00155: .BYTE 73 ; ";" "" ADD @72157(R0),-(R0) ; " not" "QX2RYG" ADD -(R4),-(R0) ; " i" "P22" CMP R1,@-(SP) ; "n " "EGV" ASH @-(R1),R1 ; "it" "RYA" DIV -(R5),R1 ; "er" "RLE" ASH -(R1),R1 ; "at" "RX3" ADD @156(R5),@-(R1) ; "ion " "Q3A B0" .PSECT TECORO $E$NAS: JSR R4,G07600 ; "7 f " "AR9A28" BIT @-(R4),(R3)+ ; " ;" "IRC" .PSECT TECOCH .=.+2 .WORD G02034 ; " " " " .PSECT TECORO G02034: INC 16(R5) ; "5 " "A.U N" BNE $E$NAE ; "# " " M$" MOV 70(R5),-(SP) ; "f 8 " "D.F AP" CLR 70(R5) ; "5 8 " "AYM AP" JSR R4,G11446 ; "7 x " "AR9BO2" .WORD 75 ; "= " " AU" ADC 70(R5) ; "u 8 " "A3M AP" JSR R4,G11446 ; "7 n " "AR9BOV" .WORD 75 ; "= " " AU" BCC G02100 ; " " "UQZ" NEG 70(R5) ; "5 8 " "A1/ AP" G02100: JSR R3,ZEROD ; "w " "AQOBS0" .WORD TYPEB ; " " " " MOV (SP)+,70(R5) ; "5 8 " "CR7 AP" INC 30(R5) ; "5 " "A.U X" BEQ G02240 ; "( " " TH" CLR 30(R5) ; "5 " "AYM X" MOV #15,R0 ; "@ " "CSH M" CALL TYPEB ; "w " "AW1 " MOV #177776,R0 ; "@ ~ " "CSH 8N" .PSECT TECOCH .=.+177634 .WORD G02140 ; " " " " .PSECT TECORO G02140: ADD #14,R0 ; "@e " "PKH L" JMP TYPEB ; "w " " B9 " $E$NAE: JSR R4,G07600 ; "7 " "AR9A06" .WORD 36405 ; " =" "I0U" .PSECT TECOCH .=.+50 .WORD G02156 ; " " " " .PSECT TECORO G02156: CMP (R0)+,(R0)+ ; " $" "E02" .PSECT TECOCH .=.+177676 .WORD G02160 ; " " " " .PSECT TECORO G02160: MOV R0,R2 ; " " "BVR" CLR 16(R5) ; "5 " "AYM N" MOV R1,36(R5) ; "u " "BYM 0" CALL G11124 ; "w V " "AW1BHV" MOV R0,R4 ; " " "BVT" ADD 66(R5),R3 ; "Cm6 " "QSK AN" ADD 144(R5),R3 ; "Cmd " "QSK BT" ADD R2,PC ; " `" "OQ1" CALL PRINTB ; "w " "AW1 " BR G02240 ; " " " FX" .PSECT TECOCH .=.+264 .WORD G02220 ; " " " " .PSECT TECORO G02220: CLR 76(R5) ; "5 > " "AYM AV" INC 16(R5) ; "5 " "A.U N" BNE G02242 ; " " " L6" JSR R3,ZEROD ; "w < " "AQOBQT" .WORD G03636 ; " " " " G02240: RETURN ; " " " CO" G02242: CALL G06170 ; "w R " "AW1AJB" CALL G10700 ; "w " "AW1BC0" BCC G02240 ; "z " "UW4" SUB #53,R0 ; "@e+ " "60P AC" BEQ G02274 ; " " " SM" CMP R0,#2 ; " " "EEO B" BNE G02300 ; " " " L6" MOV R0,12(R5) ; "5 " "BW/ J" G02274: CALL G03666 ; "w v " "AW1 R8" G02300: CALL G10700 ; "w | " "AW1BCD" BCC G02240 ; "m " "UWU" TST 70(R5) ; "u 8 " "A6U AP" BGE G02334 ; " " " Y2" CALL UPPERC ; "w 4 " "AW1BG." CMP R0,#101 ; " A " "EEO AY" BCS G02334 ; " " "UXC" CMP R0,#106 ; " F " "EEO A0" BLOS G02356 ; " " "T8Y" G02334: CALL G11354 ; "w " "AW1BI6" BCC G02240 ; "_ " "UWG" TST 70(R5) ; "u 8 " "A6U AP" BLE G02356 ; " " "AD5" CMP R0,#70 ; " 8 " "EEO AP" BCC G02240 ; "Y " "UWA" G02356: MOV R0,R1 ; " " "BVQ" CALL G06040 ; "w , " "AW1AE6" BR G02274 ; "c " " LC" .PSECT TECOCH .=.+177612 .WORD G02366 ; " " " " .PSECT TECORO G02366: INC 16(R5) ; "5 " "A.U N" BNE $E$NAQ ; " " " L8" JSR R4,G11302 ; "7 B " "AR9BHB" .WORD G14154 ; " " " " $E$IQC: JSR R4,G07614 ; "7 " "AR9A$N" CMP (R1),(R5)+ ; "U"" "ES/" $E$NAQ: JSR R4,G07600 ; "7 t " "AR9AZ6" CMP (R0),(R1)+ ; " "" "ERA" G02416: ADD #14,R2 ; "Be " "PKJ L" G02422: ADD #34,R2 ; "Be " "PKJ ." G02426: ADD #14,R2 ; "Be " "PKJ L" G02432: ADD #177734,R2 ; "Be\ " "PKJ 7T" G02436: ADD #6,R2 ; "Be " "PKJ F" G02442: ADD #G11412,R2 ; "Be " "PKJ " MOV R3,R0 ; "@ " "B$H" CALL (R2) ; "J " "AVZ" BCS G02534 ; " " "UXX" BR G02502 ; " " " FZ" G02456: TST R3 ; "C " "A5K" BNE G02534 ; " " " MM" BR G02502 ; " " " FW" G02464: NEG R3 ; " " "A0S" BVS G02502 ; " " "UKM" G02470: TST R3 ; "C " "A5K" BMI G02534 ; " " "TZ " BR G02502 ; " " " FR" G02476: TST R3 ; "C " "A5K" BEQ G02534 ; " " " SU" G02502: CLR R4 ; " " "AXD" G02504: CLR 44(R5) ; "5 $ " "AYM 6" G02510: JSR R4,G07344 ; "7 " "AR9AUP" .WORD 76047 ; "'|" "S4W" CMP R0,R4 ; " " "ED6" BEQ G02544 ; " " " SQ" TST 44(R5) ; "u $ " "A6U 6" BNE G02544 ; " " " L8" CALL G00176 ; "w "{" "AW1 GJ" .PSECT TECOCH .=.+10 .WORD G02534 ; " " " " .PSECT TECORO G02534: CLR 16(R5) ; "5 " "AYM N" JMP G07522 ; "w n " " B9AWV" G02544: CMP R0,#174 ; " | " "EEO CD" BEQ G02510 ; "o " " YG" DEC 44(R5) ; "u $ " "A0E 6" BPL G02510 ; "l " "TYD" BR G02504 ; "i " " LI" .PSECT TECOCH .=.+164 .WORD G02562 ; " " " " .PSECT TECORO G02562: MOV #174,R4 ; "D | " "CSL CD" BR G02504 ; "f " " LF" G02570: MOV #47,R4 ; "D ' " "CSL 9" BR G02504 ; "c " " LC" .PSECT TECOCH .=.+177544 .WORD G02576 ; " " " " .PSECT TECORO G02576: JSR R4,G02744 ; "7 b " "AR9 BR" CALL G11124 ; "w N " "AW1BA8" BNE G02630 ; " " " M " INC 16(R5) ; "5 " "A.U N" BNE G02636 ; " " " M " INC R0 ; " " "A$H" MOV (SP),-(SP) ; "& " "CE0" MOV #G02736,2(SP) ; "v " "CTV B" G02630: INC 16(R5) ; "5 " "A.U N" BEQ $E$IIA ; "- " " TM" G02636: ADD (SP),R0 ; " c" "O62" CALL G10512 ; "w & " "AW1A4V" CLR 16(R5) ; "5 " "AYM N" MOV 34(R5),R0 ; "@ " "D$H ." ADD 66(R5),R0 ; "@m6 " "QSH AN" ADD 144(R5),R0 ; "@md " "QSH BT" BR G02714 ; " " " F$" .PSECT TECOCH .=.+204 .WORD G02666 ; " " " " .PSECT TECORO G02666: JSR R4,G02744 ; "7 * " "AR9 AB" CALL G11546 ; "w ( " "AW1BGP" ADD (SP),R0 ; " c" "O62" CALL G10512 ; "w " "AW1A30" MOV 22(R5),R0 ; "@ " "D$H R" ADD 136(R5),R0 ; "@m^ " "QSH BN" G02714: ADD (SP),R2 ; " c" "O64" ADD 144(R5),R2 ; "Bmd " "QSJ BT" MOV (R1),R1 ; "A " "B63" SUB (SP)+,R1 ; " e" "6.3" G02726: DEC R1 ; "A " "A.3" BMI G02742 ; " " "TY." MOVB (R0)+,(R2)+ ; " " "W$Z" BR G02726 ; "| " " L." G02736: MOVB 20(R5),-(R2) ; "b " "YGJ P" G02742: RETURN ; " " " CO" G02744: CALL G10116 ; "w f " "AW1AZV" MOV (R1),(SP) ; "N " "B7F" TST 30(R5) ; "u " "A6U X" BMI G02762 ; " " "TYY" CLR (SP) ; " " "AXN" G02762: CLR 30(R5) ; "5 " "AYM X" JMP (R4) ; "L " " A6" $E$IIA: JSR R4,G07650 ; "7 , " "AR9AU6" BIT -(SP),@-(R1) ; ")9" "IIA" .WORD M00200 ; " " " " .PSECT TECOER M00200: ADD 62554(R1),(R1) ; "Ille" "QMAPID" ADD R5,-(PC) ; "ga" "OWO" CMP R1,@-(R4) ; "l " "EGT" ADD @62563(R1),@-(R1) ; "inse" "QZYPIK" ASH 60440(R2),R1 ; "rt a" "RYJOUX" .WORD 63562 ; "rg" "PVB" .BYTE 0 ; " " "" .PSECT TECOCH .=.+177732 .WORD G03000 ; " " " " .PSECT TECORO G03000: JSR R4,G11310 ; "7 D " "AR9BA." .WORD G14336 ; " " " " $E$IFC: JSR R4,G07614 ; "7 " "AR9AT4" BIC @(R0)+,@(SP)+ ; " F" "KH0" G03014: MOV #177777,60(R5) ; "u 0 " "CTU 8O AH" G03022: CALL G12434 ; "w " "AW1BPF" BR G03042 ; " " " FU" G03030: MOV #177777,60(R5) ; "u 0 " "CTU 8O AH" .PSECT TECOCH .=.+30 .WORD G03036 ; " " " " .PSECT TECORO G03036: CALL G12552 ; "w H " "AW1BQ2" G03042: TST 60(R5) ; "u 0 " "A6U AH" BEQ G03114 ; " " " SZ" MOVB R1,-(SP) ; "f " "WDF" CALL G11042 ; "w t " "AW1A6T" MOVB (SP)+,R1 ; " " "W63" BEQ G03110 ; " " " SS" MOV 50(R5),R0 ; "@ ( " "D$H A " SUB 64(R5),R0 ; "@m4 " "78P AL" MOV 50(R5),64(R5) ; "u ( 4 " "D.U A AL" CALL G03710 ; "w " "AW1 I." MOV #177777,R1 ; "A " "CSI 8O" G03110: CLR 60(R5) ; "5 0 " "AYM AH" G03114: CALL G07522 ; "w " "AW1AQZ" MOVB R1,R0 ; "@ " "WCH" CALL G06170 ; "w " " "AW1 9J" TST 30(R5) ; "u " "A6U X" BMI G03316 ; "9 " "T$A" CLR 30(R5) ; "5 " "AYM X" MOV 6(R5),R4 ; "D " "D$L F" BEQ G03252 ; "" " " TB" MOVB 54(R5),-(SP) ; "f , " "YGN AD" CLRB 54(R5) ; "5 , " "VDU AD" JSR R4,G11446 ; "7 4 " "AR9BAL" .WORD 73 ; "; " " AS" BCS G03310 ; ") " "UYA" JSR R4,G11446 ; "7 , " "AR9BAD" .WORD 72 ; ": " " AR" BCC G03210 ; " " "UQ/" JSR R4,G11446 ; "7 $ " "AR9B 6" .WORD 73 ; "; " " AS" BCS G03306 ; " " "UX2" DEC (R5) ; "M " "A/E" G03210: MOVB (SP)+,54(R5) ; "5 , " "W8E AD" CLR 16(R5) ; "5 " "AYM N" TST 20(R5) ; "u " "A6U P" BMI G03322 ; " " "TZN" CALL CRLFNO ; "w 8 " "AW1BAP" MOV #M00223,R3 ; "C " "CSK " .PSECT TECOER M00223: .BYTE 45 ; "%" "" ADD (R5)+,(R3)+ ; "Se" "PHS" DIV -(R1),R1 ; "ar" "RLA" ADD -(R1),-(R3) ; "ch" "P.C" ADD @(R0)+,-(R0) ; " f" "PMX" ADD -(R5),-(R1) ; "ai" "P4Q" CMP R1,@-(R4) ; "l " "EGT" ADD @64440(R1),@-(R1) ; "in i" "QZYP22" ADD (R5)+,6562(R4) ; "ter " "PILBFB" M00250: .WORD 12 ; " " " J" M00251= M00250+1 .PSECT TECORO MOV #26,R4 ; "D " "CSL V" CALL PRINT ; "w " "AW1 " JMP G01752 ; "w @}" " B9 T2" G03252: CLR 16(R5) ; "5 " "AYM N" TST 20(R5) ; "u " "A6U P" BPL $E$SRH ; " " "TSM" MOV 106(R5),R0 ; "@ F " "D$H A0" BEQ G03316 ; " " " SR" JMP G04730 ; "w " " B9 S4" $E$SRH: JSR R4,G07640 ; "7 ^ " "AR9AP0" XOR SP,@(R0)+ ; " y" "SRH" .WORD M00251 ; " " " " .PSECT TECOER .=.+177777 .BYTE 123 ; "S" "" ADD R5,-(R5) ; "ea" "OWM" ADD (R5),20150(R2) ; "rch " "O6REGP" ADD R5,-(SP) ; "fa" "OWN" ADD 71165(R1),@-(R1) ; "ilur" "QM3RLU" LDCDF -(R5),R1 ; "e " " 4U" .BYTE 0 ; " " "" .PSECT TECORO G03306: DEC (R5) ; "M " "A/E" G03310: DEC (R5) ; "M " "A/E" MOVB (SP)+,54(R5) ; "5 , " "W8E AD" G03316: CLR 30(R5) ; "5 " "AYM X" G03322: RETURN ; " " " CO" G03324: TST #261 ; "W 1 " "A51 DQ" G03326= G03324+2 MOV #177777,60(R5) ; "u 0 " "CTU 8O AH" BIC R0,R0 ; " @" "JIX" BCC G03344 ; " " "UQY" .PSECT TECOCH .=.+26 .WORD G03342 ; " " " " .PSECT TECORO G03342: CMP (R0)+,(R0)+ ; " $" "E02" .PSECT TECOCH .=.+177734 .WORD G03344 ; " " " " .PSECT TECORO G03344: MOV R0,52(R5) ; "5 * " "BW/ AB" CALL G12552 ; "w ~ " "AW1BL0" G03354: BMI G03042 ; " " "T/R" MOV R2,-(SP) ; "& " "BZV" ADD 52(R5),PC ; "Gm* " "QSO AB" CALL G04030 ; "w " "AW1 GH" CALL G04226 ; "w " "AW1 JJ" G03374: MOV (SP)+,R2 ; " " "CQZ" BIC R1,R1 ; "A@" "JKI" BCS G03042 ; " " "U$X" CALL G00050 ; "w "y" "AW194R" CALL G12640 ; "w " "AW1BMN" BR G03354 ; "p " " LP" G03414: MOV #36,R0 ; "@ " "CSH 0" BR G03344 ; "i " " LI" CALL .YYY.Y ; "w $ " "AW1 JT" BR G03374 ; "r " " LR" G03430: CALL G11124 ; "w 8 " "AW1A12" MOV 76(R5),R0 ; "@ > " "D$H AV" CALL G06734 ; "w 8 " "AW1AC " MOV 76(R5),R0 ; "@ > " "D$H AV" BR G03710 ; "O " " HO" .PSECT TECOCH .=.+177760 .WORD G03452 ; " " " " .PSECT TECORO G03452: CLR 16(R5) ; "5 " "AYM N" CALL G11654 ; "w z " "AW1A94" BCC G03506 ; " " "UQ3" INC 30(R5) ; "5 " "A.U X" BEQ G03550 ; " " " S1" G03472: CLR 30(R5) ; "5 " "AYM X" MOV R2,-(SP) ; "& " "BZV" MOV R0,-(SP) ; "& " "BWN" COM (SP) ; "N " "AY8" BR G03732 ; "J " " HJ" G03506: MOV R2,R4 ; " " "BY." ADD R0,R4 ; " `" "ONT" INC 30(R5) ; "5 " "A.U X" BEQ G03554 ; " " " SV" CLR R2 ; " " "AXB" CALL G03472 ; "w d " "AW1 7." MOV 76(R5),R3 ; "C > " "D$K AV" BEQ G03546 ; " " " SM" G03534: MOVB -(R4),-(R1) ; "! " "XTA" BICB #177600,(R1) ; "IE " "1Y3 5H" INC R3 ; " " "A$K" BNE G03534 ; "{ " " SC" G03546: RETURN ; " " " CO" G03550: ADD 144(R5),R2 ; "Bmd " "QSJ BT" G03554: MOV R0,R4 ; " " "BVT" MOV R2,R3 ; " " "BY$" JMP PRINTF ; "w " " B9 " .PSECT TECOCH .=.+177602 .WORD G03564 ; " " " " .PSECT TECORO G03564: CALL G11124 ; "w \ " "AW1A/T" DEC 34(R5) ; "u " "A0E ." CALL G03700 ; "w @ " "AW1 AX" ADD 76(R5),R1 ; "Am> " "QSI AV" MOVB #11,(R1) ; "I " "W8Y I" RETURN ; " " " CO" .PSECT TECOCH .=.+176 .WORD G03612 ; " " " " .PSECT TECORO G03612: CALL G11124 ; "w F " "AW1A.8" BNE G03700 ; " " " MP" INC 16(R5) ; "5 " "A.U N" BNE G03706 ; " " " MP" MOV 20(R5),R0 ; "@ " "D$H P" .III.I: CLR 76(R5) ; "5 > " "AYM AV" G03636: BIC #177400,R0 ; "@E " "KFP 2 " MOV R0,-(SP) ; "& " "BWN" MOV #1,R0 ; "@ " "CSH A" CALL G07014 ; "w ` " "AW1A 2" MOV 64(R5),R1 ; "A 4 " "D$I AL" ADD 136(R5),R1 ; "Am^ " "QSI BN" MOVB (SP)+,(R1) ; " " "W7A" G03666: INC 64(R5) ; "5 4 " "A.U AL" DEC 76(R5) ; "u > " "A0E AV" RETURN ; " " " CO" G03700: INC 16(R5) ; "5 " "A.U N" BEQ G04002 ; " " " S8" G03706: CLR R0 ; " " "AX " G03710: MOV 34(R5),R3 ; "C " "D$K ." MOV R3,-(SP) ; "f " "B.F" ADD 66(R5),(SP) ; "Nm6 " "QSV AN" SUB (R5),R3 ; "Cc" "6NS" SUB R3,R0 ; "@`" "58P" DEC R0 ; "@ " "A.2" MOV R3,-(SP) ; "f " "B.F" G03732: CALL G07014 ; "w . " "AW1 9V" MOV (SP)+,R3 ; " " "CQ$" INC R3 ; " " "A$K" MOV (SP)+,R2 ; " " "CQZ" ADD 144(R5),R2 ; "Bmd " "QSJ BT" MOV R3,76(R5) ; "u > " "B.U AV" BEQ G04000 ; " " " SQ" MOV 64(R5),R1 ; "A 4 " "D$I AL" SUB R3,64(R5) ; "u`4 " "59/ AL" ADD 136(R5),R1 ; "Am^ " "QSI BN" G03772: MOVB (R2)+,(R1)+ ; " " "W03" INC R3 ; " " "A$K" BNE G03772 ; "} " " SE" G04000: RETURN ; " " " CO" G04002: JMP $E$IIA ; "w r}" " B9 YJ" $E$IPA: JSR R4,G07650 ; "7 " "AR9AH0" BIT @-(R3),R1 ; "A:" "IPA" .WORD M00271 ; " " " " .PSECT TECOER M00271: .BYTE 111 ; "I" "" ADD 63545(R1),@-(R4) ; "lleg" "QM6PU/" ADD 50040(R1),-(R1) ; "al P" "QMYL22" ADD R4,-(R0) ; " a" "OUX" .WORD 63562 ; "rg" "PVB" .BYTE 0 ; " " "" .PSECT TECORO G04016: MOV #177777,R2 ; "B " "CSJ 8O" TSTB 52(R5) ; "u * " "VO/ AB" BMI G04034 ; " " "TYZ" G04030: MOV 62(R5),R2 ; "B 2 " "D$J AJ" G04034: MOV 136(R5),R0 ; "@ ^ " "D$H BN" MOV 142(R5),R1 ; "A b " "D$I BR" BR G04162 ; "& " " GN" .PSECT TECOCH .=.+14 .WORD G04046 ; " " " " .PSECT TECORO G04046: JSR R4,G11446 ; "7 | " "AR9A0L" JMP #106065 ; "W 5 " " BGVQM" .WORD 52 ; "* " " AB" TST 26(R5) ; "u " "A6U V" BMI G04142 ; " " "TZF" CALL G11110 ; "w " "AW1AXN" MOV R0,R4 ; " " "BVT" BLE $E$IPA ; "d " "AJT" MOV #G04140,-(SP) ; "f " "CTF " G04102: CALL G04016 ; "w H " "AW1 7 " TSTB 52(R5) ; "u * " "VO/ AB" BMI G04126 ; " " "TY/" CALL .YYY.Y ; "w j " "AW1 BZ" MOV #G05260,(SP) ; "N " "CSV " BCS G04140 ; " " "UXE" G04126: CALL G00050 ; "w Nw" "AW19Y8" DEC R4 ; "D " "A.6" BNE G04102 ; "r " " R4" G04136: CLC ; "! " " DA" G04140: RETURN ; " " " CO" G04142: CALL G11546 ; "w " "AW1A0P" MOV R0,R1 ; " " "BVQ" MOV 22(R5),R0 ; "@ " "D$H R" ADD 136(R5),R0 ; "@m^ " "QSH BN" CLR R2 ; " " "AXB" G04162: CALL PUTBUF ; "w " "AW1 " BCC G04140 ; "t " "UW." IOERR: MOV SP,R4 ; " " "B2D" IOERRS: JSR R2,G07654 ; "7 . " "AO1AE8" .PSECT TECOCH .=.+20 .WORD G04176 ; " " " " .PSECT TECORO G04176: SUB #131,R0 ; "@eY " "60P BI" INC 16(R5) ; "5 " "A.U N" BEQ $E$NYA ; " " " S/" MOVB R0,52(R5) ; "5 * " "WB7 AB" MOV #G05260,-(SP) ; "f " "CTF " TST 142(R5) ; "u b " "A6U BR" BEQ .YYY.Y ; " " " SZ" G04226: TST @134(R5) ; "} \ " "A6/ BL" BEQ .YYY.Y ; " " " SW" TSTB 52(R5) ; "u * " "VO/ AB" BEQ .YYY.Y ; " " " ST" BIT 112(R5),#ED$YNK ; "W=J " "I2W A4 " BNE .YYY.Y ; " " " M " $E$YCA: JSR R4,G07650 ; "7 z " "AR9ADZ" .WORD 116271 ; "9 " "YCA" .WORD M00307 ; " " " " .PSECT TECOER M00307: .BYTE 131 ; "Y" "" ADD (R4),-(R0) ; " c" "O4P" ADD 60555(R5),@-(PC) ; "omma" "QTOOWU" ADD (R1)+,@-(SP) ; "nd" "PB0" ADD R4,-(R0) ; " a" "OUX" ADD @72162(R5),-(R2) ; "bort" "Q24RYJ" ADD (R1)+,-(R5) ; "ed" "PBU" .BYTE 0 ; " " "" .PSECT TECORO $E$NYA: JSR R4,G07650 ; "7 r " "AR9ADR" BIS @-(R5),@-(R1) ; "i[" "NYA" .WORD M00331 ; " " " " .PSECT TECOER M00331: .BYTE 116 ; "N" "" ADD 71145(R5),61551(R5) ; "umeric" "QTURLEO6I" ADD R4,-(R0) ; " a" "OUX" ADD @(R5)+,73440(R2) ; "rg w" "PVBSBP" ASH @-(R1),R1 ; "it" "RYA" CMP R1,@-(R0) ; "h " "EGP" JMP @(R1)+ ; "Y " " BI" .PSECT TECORO .YYY.Y: CALL G14072 ; "w | " "AW1BSD" CLRB 53(R5) ; "5 + " "VDU AC" G04302: CMP #0,116(R5) ; "u% N " "FB7 A8" BCS G04140 ; "K " "U/C" MOV 142(R5),R0 ; "@ b " "D$H BR" MOV 140(R5),R1 ; "A ` " "D$I BP" DEC R1 ; "A " "A.3" MOV R1,R2 ; "B " "BXB" ASR R2 ; " " "B B" ASR R2 ; " " "B B" CMP R2,#400 ; " " "EHW FP" BCC G04344 ; " " "UQZ" MOV #400,R2 ; "B " "CSJ FP" G04344: SUB R0,R1 ; " `" "53Y" TSTB 53(R5) ; "u + " "VO/ AC" BPL G04356 ; " " "TSI" MOV R1,R2 ; "B " "BXB" G04356: ADD 136(R5),R0 ; "@m^ " "QSH BN" CALL GETBUF ; "w " "AW1 " G04366: BCS IOERR ; "@ " "U.2" MOV 62(R5),R1 ; "A 2 " "D$I AJ" BIS 116(R5),R1 ; "A]N " "N63 A8" BNE G04136 ; ". " " QF" TSTB 53(R5) ; "u + " "VO/ AC" BMI G04136 ; "+ " "T/5" MOV #SIZERB,R1 ; "A " "CSI " CMP R1,152(R5) ; "u j " "EG/ BZ" BLOS G04136 ; "& " "UBV" BIT 112(R5),#ED$EXP ; "W=J " "I2W A4 " BNE G04136 ; "" " " P4" CALL SIZER ; "w " "AW1 " BCS G04136 ; " " "U$9" G04440: CALL G14102 ; "w " "AW1BP0" BR G04302 ; "N " " KV" .PSECT TECOCH .=.+177726 .WORD G04446 ; " " " " .PSECT TECORO G04446: MOV 16(R5),R3 ; "C " "D$K N" CLR 16(R5) ; "5 " "AYM N" JSR R4,G11306 ; "7 " "AR9AUL" .WORD G14246 ; " " " " $E$IEC: JSR R4,G07614 ; "7 T " "AR9A T" BIC (R4)+,@(R1)+ ; " E" "KBI" G04472: SUB #122,R0 ; "@eR " "60P BB" MOV 412(R5),R4 ; "D " "D$L FZ" CALL G12060 ; "w j " "AW1A/4" CLRB (R4) ; " " "VCT" CALL G07522 ; "w " "AW1 8V" CALL G11150 ; "w " "AW1ARH" CMP R2,#177765 ; " u " "EHW 8E" BEQ G04664 ; "/ " " TO" CALL GETFLS ; "w " "AW1 " BCC G04556 ; " " "UQ3" CLR R4 ; " " "AXD" CMP R0,#23666 ; " 6'" "EEOFNF" BNE IOERRS ; " " " PK" TST 16(R5) ; "u " "A6U N" BPL IOERRS ; " " "TVX" CLR 20(R5) ; "5 " "AYM P" G04556: RETURN ; " " " CO" G04560: CALL .YYY.Y ; "w F " "AW1 30" BCS G04632 ; " " "UXR" CALL G00050 ; "w .v" "AW19R0" G04572: MOV 136(R5),R0 ; "@ ^ " "D$H BN" MOV 142(R5),R1 ; "A b " "D$I BR" BNE G04612 ; " " " L5" TST @134(R5) ; "} \ " "A6/ BL" BEQ G04632 ; " " " SP" G04612: MOV 62(R5),R2 ; "B 2 " "D$J AJ" CALL PUTBUF ; "w " "AW1 " BCS G04366 ; "1 " "U.Q" TST @132(R5) ; "} Z " "A6/ BJ" BNE G04560 ; "k " " R$" G04632: CALL CLSFIL ; "w " "AW1 " G04636: BCS G04366 ; "+ " "U.K" BR G04556 ; "f " " LF" G04642: CALL KILFIL ; "w " "AW1 " BR G04636 ; "{ " " L$" G04650: CALL INPSAV ; "w " "AW1 " BR G04636 ; "x " " LX" G04656: CALL OUTSAV ; "w " "AW1 " BR G04636 ; "u " " LU" G04664: MOV #GEXIT,-(SP) ; "f " "CTF " BR G04676 ; " " " FR" G04672: MOV #TEXIT,-(SP) ; "f " "CTF " G04676: CALL XITNOW ; "w " "AW1 " TST 16(R5) ; "u " "A6U N" BMI G04556 ; "S " "T05" G04710: CALL G04572 ; "w . " "AW1 6N" JMP G14072 ; "w j " " B9BLJ" G04720: CALL CLSOUT ; "w " "AW1 " BR G04636 ; "d " " LD" G04726: CLR R0 ; " " "AX " G04730: CLR 16(R5) ; "5 " "AYM N" CLR 26(R5) ; "5 " "AYM V" .PSECT TECOCH .=.+40 .WORD G04740 ; " " " " .PSECT TECORO G04740: MOV R0,-(SP) ; "& " "BWN" MOVB 1(SP),R0 ; " " "YH A" BGT G04754 ; " " " 8R" MOV #1,R0 ; "@ " "CSH A" G04754: INC 16(R5) ; "5 " "A.U N" BNE G04766 ; " " " L4" MOV 20(R5),R0 ; "@ " "D$H P" G04766: MOV R0,-(SP) ; "& " "BWN" INC 26(R5) ; "5 " "A.U V" BNE G05002 ; " " " L4" MOV 22(R5),R0 ; "@ " "D$H R" G05002: NEG R0 ; " " "A0P" INC R0 ; " " "A$H" CALL G05042 ; "w " "AW1 X" MOVB 2(SP),R0 ; " " "YH B" BLE G05036 ; " " "AD9" CMP R0,#40 ; " " "EEO 2" BCC G05032 ; " " "UQZ" MOV #12,R0 ; "@ " "CSH J" G05032: CALL TYPEF ; "w " "AW1 " G05036: MOV (SP)+,R0 ; " " "CQX" TST (SP)+ ; "V " "A50" G05042: CALL G06170 ; "w R " "AW1 N4" .PSECT TECOCH .=.+177772 .WORD G05046 ; " " " " .PSECT TECORO G05046: CALL G11546 ; "w < " "AW1ASD" MOV 22(R5),R3 ; "C " "D$K R" ADD 136(R5),R3 ; "Cm^ " "QSK BN" MOV R0,R4 ; " " "BVT" JMP PRINTF ; "w " " B9 " .PSECT TECOCH .=.+4 .WORD G05070 ; " " " " .PSECT TECORO G05070: MOV 20(R5),-(SP) ; "f " "D.F P" INC 16(R5) ; "5 " "A.U N" BEQ G05116 ; " " " SN" MOV 120(R5),(SP) ; "N P " "D$V B " TST 30(R5) ; "u " "A6U X" BPL G05116 ; " " "TSI" CLR (SP) ; " " "AXN" G05116: CALL G11150 ; "w " "AW1AK0" MOV (SP)+,R0 ; " " "CQX" CALL WATCH ; "w " "AW1 " MOV R0,20(R5) ; "5 " "BW/ P" BMI G05150 ; " " "TY/" TST 16(R5) ; "u " "A6U N" BMI G05150 ; " " "TYZ" MOV R0,120(R5) ; "5 P " "BW/ B " G05150: RETURN ; " " " CO" .PSECT TECOCH .=.+177556 .WORD G05152 ; " " " " .PSECT TECORO G05152: INC R0 ; " " "A$H" .PSECT TECOCH .=.+177750 .WORD G05154 ; " " " " .PSECT TECORO G05154: MOV R0,70(R5) ; "5 8 " "BW/ AP" RETURN ; " " " CO" G05162: JMP $E$MEM ; "w "w" " B99X4" G05166: MOV 16(R5),52(R5) ; "u * " "D.U N AB" BMI G05210 ; " " "TY/" G05176: MOV #1,20(R5) ; "u " "CTU A P" CLR 52(R5) ; "5 * " "AYM AB" G05210: MOV 142(R5),R1 ; "A b " "D$I BR" ADD #400,R1 ; "Ae " "PKI FP" JSR R4,G13600 ; "7 l " "AR9BB." JMP -(R0) ; "` " " BP" BCC G05162 ; "m " "UWU" CALL G04440 ; "w ~" "AW1 .6" BCS G05252 ; " " "UXF" TST 62(R5) ; "u 2 " "A6U AJ" BNE G05254 ; " " " L6" DEC 20(R5) ; "u " "A0E P" BNE G05210 ; "o " " R1" G05252: INC (SP) ; " " "A$V" G05254: CMP 142(R5),(SP)+ ; "V-b " "GJF BR" G05260: ROR -(SP) ; "& " "A70" CALL G11150 ; "w 2 " "AW1AIJ" ASL (SP)+ ; "V " "BBF" BCC G05276 ; " " "UQZ" CLR 20(R5) ; "5 " "AYM P" G05276: RETURN ; " " " CO" .PSECT TECOCH .=.+170 .WORD G05300 ; " " " " .PSECT TECORO G05300: MOV 142(R5),-(SP) ; "f b " "D.F BR" TST 30(R5) ; "u " "A6U X" BMI G05166 ; "V " "T08" INC 16(R5) ; "5 " "A.U N" BNE G05176 ; "W " " RG" COM R0 ; "@ " "AYX" MOV 20(R5),R1 ; "A " "D$I P" ADD 64(R5),R1 ; "Am4 " "QSI AL" CMP R1,(SP)+ ; "V " "EF8" BCC G05620 ; "Y " "US3" ADD 136(R5),R1 ; "Am^ " "QSI BN" CLR R0 ; " " "AX " BISB (R1),R0 ; "@R" "3YX" BR G05620 ; "T " " HT" .PSECT TECOCH .=.+177630 .WORD G05350 ; " " " " .PSECT TECORO G05350: MOV 116(R5),R0 ; "@ N " "D$H A8" BR G05620 ; "Q " " HQ" .PSECT TECOCH .=.+177746 .WORD G05356 ; " " " " .PSECT TECORO G05356: CALL DATE ; "w " "AW1 " BR G05620 ; "N " " HN" .PSECT TECOCH .=.+40 .WORD G05364 ; " " " " .PSECT TECORO G05364: MOV 76(R5),R0 ; "@ > " "D$H AV" BR G05620 ; "K " " HK" .PSECT TECOCH .=.+177744 .WORD G05372 ; " " " " .PSECT TECORO G05372: CALL SWITCH ; "w " "AW1 " BR G05620 ; "H " " HH" .PSECT TECOCH .=.+2 .WORD G05400 ; " " " " .PSECT TECORO G05400: CALL TIME ; "w " "AW1 " BR G05620 ; "E " " HE" .PSECT TECOCH .=.+176 .WORD G05406 ; " " " " .PSECT TECORO G05406: CLR 20(R5) ; "5 " "AYM P" CALL G05456 ; "w " "AW1 2" .PSECT TECOCH .=.+42 .WORD G05416 ; " " " " .PSECT TECORO G05416: MOV 142(R5),R0 ; "@ b " "D$H BR" BR G05620 ; "> " " G8" .PSECT TECOCH .=.+177574 .WORD G05424 ; " " " " .PSECT TECORO G05424: CALL G05442 ; "w " "AW1 J" ADD 76(R5),20(R5) ; "um> " "QTU AV P" CALL G05456 ; "w " "AW1 L" .PSECT TECOCH .=.+50 .WORD G05442 ; " " " " .PSECT TECORO G05442: MOV 64(R5),R0 ; "@ 4 " "D$H AL" BR G05620 ; "4 " " G." .PSECT TECOCH .=.+177772 .WORD G05450 ; " " " " .PSECT TECORO G05450: INC 16(R5) ; "5 " "A.U N" BNE $E$NAC ; " " " MA" G05456: MOV 20(R5),22(R5) ; "u " "D.U P R" CLR 20(R5) ; "5 " "AYM P" MOV #177777,26(R5) ; "u " "CTU 8O V" .PSECT TECOCH .=.+177646 .WORD G05476 ; " " " " .=.+22 .WORD G05476 ; " " " " .=.+4 .WORD G05476 ; " " " " .=.+44 .WORD G05476 ; " " " " .=.+210 .WORD G05476 ; " " " " .PSECT TECORO G05476: RETURN ; " " " CO" $E$NAC: JSR R4,G07600 ; "7 < " "AR9 $D" .WORD 26003 ; " ," "GA$" .PSECT TECOCH .=.+177534 .WORD G05506 ; " " " " .PSECT TECORO G05506: INC 16(R5) ; "5 " "A.U N" BNE G05524 ; " " " L6" MOV 20(R5),R0 ; "@ " "D$H P" JMP TYPEB ; "w " " B9 " G05524: CALL TLISTN ; "w " "AW1 " BR G05620 ; " " " GC" .PSECT TECOCH .=.+22 .WORD G05532 ; " " " " .PSECT TECORO G05532: CALL G00146 ; "w u" "AW19HH" BR G05620 ; " " " G " G05540: MOV #44,R0 ; "@ $ " "CSH 6" BR G05620 ; " " " F7" .PSECT TECOCH .=.+177766 .WORD G05546 ; " " " " .PSECT TECORO G05546: MOV 150(R5),R0 ; "@ h " "D$H BX" BR G05620 ; " " " F4" .PSECT TECOCH .=.+177724 .WORD G05554 ; " " " " .PSECT TECORO G05554: MOV 62(R5),R0 ; "@ 2 " "D$H AJ" BR G05620 ; " " " F1" .PSECT TECOCH .=.+226 .WORD G05562 ; " " " " .PSECT TECORO G05562: INC 16(R5) ; "5 " "A.U N" BNE G05632 ; " " " MI" CALL G10116 ; "w R " "AW1 04" MOV 20(R5),R3 ; "C " "D$K P" COM R0 ; "@ " "AYX" CMP R3,(R1) ; "I " "EI3" BCC G06170 ; "y " "UTY" ADD R2,R3 ; " `" "OQ$" ADD 144(R5),R3 ; "Cmd " "QSK BT" CLR R0 ; " " "AX " BISB (R3),R0 ; "@R" "3.2" G05620: BR G06170 ; "s " " IK" .PSECT TECOCH .=.+177646 .WORD G05622 ; " " " " .PSECT TECORO G05622: CALL G11110 ; "w 2 " "AW1AB4" CLR 30(R5) ; "5 " "AYM X" G05632: MOV R0,R3 ; " " "BVS" CALL G10112 ; "w * " "AW1 /4" INC 30(R5) ; "5 " "A.U X" BNE G05650 ; " " " L3" TST -(R1) ; "a " "A6A" G05650: CLR 30(R5) ; "5 " "AYM X" ADD R3,-(R1) ; "a`" "OTA" MOV (R1),R0 ; "@ " "B62" BR G06170 ; "c " " H5" .PSECT TECOCH .WORD G05662 ; " " " " .PSECT TECORO G05662: MOV #177766,R0 ; "@ v " "CSH 8F" .PSECT TECOCH .=.+177770 .WORD G05666 ; " " " " .PSECT TECORO G05666: ADD #177742,R0 ; "@eb " "PKH 7Z" .PSECT TECOCH .=.+26 .WORD G05672 ; " " " " .PSECT TECORO G05672: ADD #30,R0 ; "@e " "PKH X" .PSECT TECOCH .=.+177764 .WORD G05676 ; " " " " .PSECT TECORO G05676: ADD #102,R0 ; "@eB " "PKH AZ" .PSECT TECOCH .=.+4 .WORD G05702 ; " " " " .PSECT TECORO G05702: TST (R0)+ ; "P " "A5X" .PSECT TECOCH .=.+177772 .WORD G05704 ; " " " " .PSECT TECORO G05704: MOV R0,12(R5) ; "5 " "BW/ J" MOV 20(R5),14(R5) ; "u " "D.U P L" CLR 46(R5) ; "5 & " "AYM 8" MOV #177777,24(R5) ; "u " "CTU 8O T" CLR 16(R5) ; "5 " "AYM N" RETURN ; " " " CO" .PSECT TECOCH .=.+177770 .WORD G05736 ; " " " " .PSECT TECORO G05736: TST 24(R5) ; "u " "A6U T" BNE G05750 ; " " " L4" CALL G06170 ; "w " "AW1 CX" G05750: INC 56(R5) ; "5 . " "A.U AF" JSR R4,G10764 ; "7 " "AR9 8T" CLR R2 ; " " "AXB" BR G05704 ; "h " " LH" .PSECT TECOCH .WORD G05764 ; " " " " .PSECT TECORO G05764: TST 16(R5) ; "u " "A6U N" BPL $E$NAP ; " " "TSQ" DEC 56(R5) ; "u . " "A0E AF" BMI $E$NAP ; " " "TY0" JSR R4,G11006 ; "7 " "AR9 8R" .WORD 7002 ; " " "BIZ" MOV 20(R5),R0 ; "@ " "D$H P" BR G06124 ; "$ " " GL" $E$NAP: JSR R4,G07600 ; "7 p " "AR9 V " CMP -(R4),(R0)+ ; " )" "FV2" $E$ILN: JSR R4,G07650 ; "7 " "AR9 V4" BIT @-(R0),@-(SP) ; ".:" "ILN" .WORD M00354 ; " " " " .PSECT TECOER M00354: ADD 62554(R1),(R1) ; "Ille" "QMAPID" ADD R5,-(PC) ; "ga" "OWO" CMP R1,@-(R4) ; "l " "EGT" ASH @-(SP),R5 ; "nu" "R1V" ADD (R1),@-(R5) ; "mb" "O/7" DIV -(R5),R1 ; "er" "RLE" .BYTE 0 ; " " "" .PSECT TECOCH .=.+36 .WORD G06032 ; " " " " .=.+177774 .WORD G06032 ; " " " " .PSECT TECORO G06032: TST 70(R5) ; "u 8 " "A6U AP" BGT $E$ILN ; "y " "ADY" .PSECT TECOCH .=.+177774 .WORD G06040 ; " " " " .=.+177774 .WORD G06040 ; " " " " .=.+177774 .WORD G06040 ; " " " " .=.+177774 .WORD G06040 ; " " " " .=.+177774 .WORD G06040 ; " " " " .=.+177774 .WORD G06040 ; " " " " .=.+177774 .WORD G06040 ; " " " " .=.+177774 .WORD G06040 ; " " " " .PSECT TECORO G06040: SUB #60,R1 ; "Ae0 " "60Q AH" CMP R1,#11 ; "W " "EF9 I" BLOS G06056 ; " " "T8R" SUB #7,R1 ; "Ae " "60Q G" G06056: INC 16(R5) ; "5 " "A.U N" BNE G06160 ; " " " MV" MOV 46(R5),R0 ; "@ & " "D$H 8" MOV R0,-(SP) ; "& " "BWN" ASL R0 ; "@ " "BAX" ASL R0 ; "@ " "BAX" TST 70(R5) ; "u 8 " "A6U AP" BEQ G06112 ; " " " SK" BGT G06110 ; " " " 8Q" ASL R0 ; "@ " "BAX" G06110: CLR (SP) ; " " "AXN" G06112: ADD (SP)+,R0 ; " e" "PIX" ASL R0 ; "@ " "BAX" ADD R1,R0 ; "@`" "OP " MOV R0,46(R5) ; "5 & " "BW/ 8" G06124: ADD 12(R5),PC ; "Gm " "QSO J" BR G06134 ; " " " FQ" NEG R0 ; " " "A0P" G06134: ADD 14(R5),R0 ; "@m " "QSH L" G06140: MOV R0,20(R5) ; "5 " "BW/ P" MOV #177777,16(R5) ; "u " "CTU 8O N" CLR 24(R5) ; "5 " "AYM T" RETURN ; " " " CO" G06160: MOV R1,R0 ; "@ " "BX " MOV R1,46(R5) ; "u & " "BYM 8" BR G06174 ; " " " FR" .PSECT TECOCH .=.+42 .WORD G06170 ; " " " " .PSECT TECORO G06170: CLR 46(R5) ; "5 & " "AYM 8" G06174: TST 24(R5) ; "u " "A6U T" BNE G06124 ; "i " " RY" CLR 14(R5) ; "5 " "AYM L" CLR 12(R5) ; "5 " "AYM J" BR G06124 ; "d " " LD" MOV 14(R5),R1 ; "A " "D$I L" COM R1 ; "A " "AYY" BIC R1,R0 ; "@@" "JKH" BR G06140 ; "e " " LE" BIS 14(R5),R0 ; "@] " "N62 L" BR G06140 ; "b " " LB" CLR R1 ; " " "AXA" MOV #21,R2 ; "B " "CSJ Q" G06242: CLC ; "! " " DA" ROR R1 ; " " "A63" ROR R0 ; " " "A62" BCC G06256 ; " " "UQZ" ADD 14(R5),R1 ; "Am " "QSI L" G06256: DEC R2 ; "B " "A.4" BGT G06242 ; "x " "ADX" BR G06140 ; "V " " K0" MOV R0,R2 ; " " "BVR" MOV 14(R5),R0 ; "@ " "D$H L" MOV #G06140,-(SP) ; "f " "CTF " DIVD: CLR R1 ; " " "AXA" MOV #20,R3 ; "C " "CSK P" G06304: ASL R0 ; "@ " "BAX" ROL R1 ; "A " "A8Q" CMP R2,R1 ; " " "EHA" BHI G06320 ; " " "T2B" SUB R2,R1 ; " `" "563" INC R0 ; " " "A$H" G06320: DEC R3 ; "C " "A.5" BGT G06304 ; "x " "ADX" RETURN ; " " " CO" .PSECT TECOCH .=.+177670 .WORD G06326 ; " " " " .PSECT TECORO G06326: TST 16(R5) ; "u " "A6U N" BPL $E$NAB ; " " "TSK" COM 20(R5) ; "u " "AZ7 P" RETURN ; " " " CO" $E$NAB: JSR R4,G07600 ; "7 " "AR9 PZ" .WORD 17402 ; " " "D8R" .PSECT TECOCH .=.+177760 .WORD G06350 ; " " " " .PSECT TECORO G06350: MOV 16(R5),R3 ; "C " "D$K N" CLR 16(R5) ; "5 " "AYM N" MOV #2,R2 ; "B " "CSJ B" G06364: TST (R2)+ ; "R " "A5Z" G06366: TST (R2)+ ; "R " "A5Z" G06370: TST (R2)+ ; "R " "A5Z" G06372: TST (R2)+ ; "R " "A5Z" G06374: TST (R2)+ ; "R " "A5Z" G06376: ADD #100,R2 ; "Be@ " "PKJ AX" CMP R3,#177777 ; "W " "EJG 8O" BNE G06440 ; " " " MD" MOV 20(R5),R0 ; "@ " "D$H P" INC 26(R5) ; "5 " "A.U V" BNE G06434 ; " " " L7" ADD R5,R2 ; "Ba" "OVR" BIS (R2),R0 ; " R" "MH " BIC 22(R5),R0 ; "@M " "LNP R" SUB R5,R2 ; "Ba" "6AZ" G06434: CLR 26(R5) ; "5 " "AYM V" G06440: CALL FLAGRW ; "w " "AW1 " ADD R5,R2 ; "Ba" "OVR" INC R3 ; " " "A$K" BEQ G06456 ; " " " SJ" MOV (R2),R0 ; " " "B8P" BR G06170 ; "% " " JU" G06456: MOV R0,(R2) ; " " "BVZ" RETURN ; " " " CO" G06462: MOV 20(R5),R0 ; "@ " "D$H P" CALL FLAGRW ; "w " "AW1 " BR G06170 ; " " " JN" .PSECT TECOCH .=.+177760 .WORD G06474 ; " " " " .PSECT TECORO G06474: MOV 64(R5),-(SP) ; "f 4 " "D.F AL" CALL G01430 ; "w Tu" "AW19ML" MOV (SP),64(R5) ; "5 4 " "CFE AL" MOV R1,R0 ; "@ " "BX " SUB (SP)+,R0 ; " e" "6.2" G06514: BR G06170 ; " " " JE" .PSECT TECOCH .=.+206 .WORD G06516 ; " " " " .PSECT TECORO G06516: INC 16(R5) ; "5 " "A.U N" BNE $E$NAU ; " " " MD" CALL G10112 ; "w r " "AW1 R4" MOV 20(R5),-(R1) ; "a " "D.A P" MOV 22(R5),R0 ; "@ " "D$H R" INC 26(R5) ; "5 " "A.U V" BEQ G06514 ; "s " " YK" CLR 26(R5) ; "5 " "AYM V" RETURN ; " " " CO" $E$NAU: JSR R4,G07600 ; "7 " "AR9 MH" BIS (R4)+,(R5)+ ; " U" "MXU" .PSECT TECOCH .=.+177570 .WORD G06562 ; " " " " .PSECT TECORO G06562: INC 16(R5) ; "5 " "A.U N" BEQ G06614 ; " " " SR" MOV #10,R0 ; "@ " "CSH H" TST 70(R5) ; "u 8 " "A6U AP" BGT G06514 ; "e " "ADE" BEQ G06610 ; " " " SJ" ADD #6,R0 ; "@e " "PKH F" G06610: TST (R0)+ ; "P " "A5X" BR G06514 ; "` " " L " G06614: MOV 20(R5),R1 ; "A " "D$I P" CMP R1,#12 ; "W " "EF9 J" BEQ G06646 ; " " " SP" INC R0 ; " " "A$H" CMP R1,#10 ; "W " "EF9 H" BEQ G06646 ; " " " SL" NEG R0 ; " " "A0P" CMP R1,#20 ; "W " "EF9 P" BNE $E$IRA ; " " " L5" G06646: MOV R0,70(R5) ; "5 8 " "BW/ AP" RETURN ; " " " CO" $E$IRA: JSR R4,G07650 ; "7 x " "AR9 LX" BIT @-(R4),(R1)+ ; " ;" "IRA" .WORD M00373 ; " " " " .PSECT TECOER M00373: .BYTE 111 ; "I" "" ADD 63545(R1),@-(R4) ; "lleg" "QM6PU/" ADD 71040(R1),-(R1) ; "al r" "QMYRJP" ADD (R1)+,-(R1) ; "ad" "PBQ" XOR R1,@-(R1) ; "ix" "SJY" ADD R4,-(R0) ; " a" "OUX" .WORD 63562 ; "rg" "PVB" .BYTE 0 ; " " "" .PSECT TECOCH .=.+116 .WORD G06664 ; " " " " .PSECT TECORO G06664: MOV #177777,30(R5) ; "u " "CTU 8O X" JSR R4,G11446 ; "7 h " "AR9 4X" .WORD 72 ; ": " " AR" SBC 30(R5) ; "5 " "A47 X" RETURN ; " " " CO" .PSECT TECOCH .=.+36 .WORD G06706 ; " " " " .PSECT TECORO G06706: CLR 16(R5) ; "5 " "AYM N" MOV 20(R5),R0 ; "@ " "D$H P" BR G06740 ; " " " FX" .PSECT TECOCH .=.+16 .WORD G06720 ; " " " " .PSECT TECORO G06720: CALL G11110 ; "w t " "AW1 .T" NEG R0 ; " " "A0P" BR G06734 ; " " " FR" .PSECT TECOCH .=.+177740 .WORD G06730 ; " " " " .PSECT TECORO G06730: CALL G11110 ; "w l " "AW1 .L" G06734: ADD 64(R5),R0 ; "@m4 " "QSH AL" G06740: CALL G11062 ; "w N " "AW1 $V" MOV R0,64(R5) ; "5 4 " "BW/ AL" RETURN ; " " " CO" .PSECT TECOCH .WORD G06752 ; " " " " .PSECT TECORO G06752: TST 26(R5) ; "u " "A6U V" BMI G07000 ; " " "TY2" CALL G11110 ; "w T " "AW1 $." MOV R0,R1 ; " " "BVQ" BPL G07012 ; " " "TSQ" CALL G06734 ; "w ` " "AW1 7X" MOV R1,R0 ; "@ " "BX " BR G07014 ; " " " FV" .PSECT TECOCH .=.+14 .WORD G07000 ; " " " " .PSECT TECORO G07000: CALL G11546 ; "w b " "AW1 4R" MOV 22(R5),64(R5) ; "u 4 " "D.U R AL" G07012: NEG R0 ; " " "A0P" G07014: MOV 64(R5),R2 ; "B 4 " "D$J AL" MOV 142(R5),R3 ; "C b " "D$K BR" MOV R0,R1 ; " " "BVQ" BMI G07114 ; " " "TZJ" BEQ G07106 ; " " " S0" ADD R3,R1 ; "A`" "OSI" JSR R4,G13600 ; "7 ` " "AR9AT " JMP -(R0) ; "` " " BP" BCC G07110 ; " " "URB" MOV R1,142(R5) ; "u b " "BYM BR" MOV 136(R5),R0 ; "@ ^ " "D$H BN" G07054: CMP R2,R3 ; " " "EHC" BEQ G07106 ; " " " SS" ADD R0,R1 ; " `" "ONQ" ADD R0,R2 ; " `" "ONR" ADD R0,R3 ; " `" "ONS" MOVB (R2),R0 ; " " "WQX" CLRB (R2) ; " " "VCR" G07072: MOVB -(R3),-(R1) ; "a " "XRQ" BNE G07072 ; "~ " " SF" CMP R3,R2 ; "B " "EIZ" BHI G07072 ; "| " "T8L" MOVB R0,(R2) ; " " "WA4" MOVB R0,(R1) ; " " "WA3" G07106: RETURN ; " " " CO" G07110: JMP $E$MEM ; "w Ls" " B99 L" G07114: MOV R2,R1 ; " " "BYY" SUB R0,R2 ; " `" "53Z" CMP R2,R3 ; " " "EHC" BHI $E$DTB ; " " "T2R" ADD R0,142(R5) ; "5`b " "OO/ BR" MOV 136(R5),R0 ; "@ ^ " "D$H BN" G07134: CMP R2,R3 ; " " "EHC" BEQ G07166 ; " " " SS" ADD R0,R1 ; " `" "ONQ" ADD R0,R2 ; " `" "ONR" ADD R0,R3 ; " `" "ONS" MOVB -(R3),R0 ; "@ " "XQX" CLRB (R3) ; " " "VCS" G07152: MOVB (R2)+,(R1)+ ; " " "W03" BNE G07152 ; "~ " " SF" CMP R2,R3 ; " " "EHC" BLOS G07152 ; "| " "UD." MOVB R0,-(R1) ; "! " "WBQ" MOVB R0,(R3) ; " " "WA5" G07166: RETURN ; " " " CO" $E$DTB: JSR R4,G07650 ; "7 , " "AR9 GT" MOV M00415(R0),-(R2) ; "" " "DTB " .PSECT TECOER M00415: .BYTE 104 ; "D" "" ADD 72145(R1),-(R5) ; "elet" "QM/RX7" CMP R1,-(R5) ; "e " "EGM" ADD @20157(R5),64542(R4) ; "too bi" "Q3LEGWP4R" JMP -(PC) ; "g " " BW" .PSECT TECOCH .=.+6 .WORD G07200 ; " " " " .PSECT TECORO G07200: MOV 414(R5),R4 ; "D " "D$L F." MOV R4,-(SP) ; "& " "B/0" CALL G12060 ; "w & " "AW1 6F" INC 16(R5) ; "5 " "A.U N" BEQ G07302 ; " " " S3" G07220: MOV R4,-(SP) ; "& " "B/0" CLR 16(R5) ; "5 " "AYM N" MOV 6(R5),(R5) ; "M " "D$U F" G07232: JSR R4,G07344 ; "7 F " "AR9 A0" .WORD 41 ; "! " " 3" CALL G00176 ; "w Zq" "AW18$4" MOV R0,36(R5) ; "5 " "BW/ 0" CALL G07530 ; "w , " "AW1 DL" MOV 2(SP),R4 ; " " "D.6 B" G07260: CALL G11270 ; "w " "AW1 Y." BEQ G07334 ; " " " S$" CMPB R0,(R4)+ ; " " "YXT" BEQ G07260 ; "{ " " YS" CALL G11052 ; "w l " "AW1 U6" BR G07232 ; "m " " LM" G07300: MOV R4,(SP) ; " " "B/F" G07302: MOV (SP),R4 ; " " "CD6" G07304: CMPB (R4),#54 ; " #, " "ZC1 AD" BEQ G07320 ; " " " SK" TSTB (R4)+ ; "T " "VN6" BNE G07304 ; "{ " " SC" DEC R4 ; "D " "A.6" G07320: DEC 20(R5) ; "u " "A0E P" BMI G07220 ; "] " "T1E" TSTB (R4)+ ; "T " "VN6" BNE G07300 ; "s " " R5" MOV R4,-(SP) ; "& " "B/0" G07334: CMP R4,(SP) ; " !" "EKV" BNE G07232 ; "] " " RM" CMP (SP)+,(SP)+ ; " %" "F V" BR G07522 ; "7 " " G1" G07344: CALL G07522 ; "w j " "AW1 BZ" MOVB 54(R5),52(R5) ; "u , * " "YG/ AD AB" CLRB 54(R5) ; "5 , " "VDU AD" G07362: CALL G11200 ; "w " "AW1 VZ" G07366: CMPB R0,(R4) ; " " "YXL" BEQ G07420 ; " " " SS" TST R0 ; "@ " "A5H" BEQ G07404 ; " " " SK" CMPB R0,1(R4) ; "4 " "YYL A" BEQ G07420 ; " " " SN" G07404: MOV #G07362,-(SP) ; "f " "CTF " JSR R4,G11314 ; "7 @ " "AR9 X " .WORD G14446 ; " " " " RETURN ; " " " CO" G07420: MOVB 52(R5),54(R5) ; "u * , " "YG/ AB AD" TST (R4)+ ; "T " "A5." RTS R4 ; " " " CL" G07432: CALL G11226 ; "w x " "AW1 VH" BR G07366 ; "k " " LK" G07440: CALL G11200 ; "w \ " "AW1 UT" MOV (R2)+,R1 ; " " "CKI" G07446: CMPB R0,-(R1) ; "! " "YX3" BHI G07446 ; "~ " "T8N" RTS R2 ; " " " CJ" G07454: JSR R2,G07440 ; "7 p " "AO1 8 " .WORD G14540 ; " " " " BEQ G07516 ; " " " SU" RETURN ; " " " CO" G07466: JSR R2,G07440 ; "7 f " "AO1 70" .WORD G14550 ; " " " " BCS G07552 ; " " "UXV" CMP R0,#102 ; " B " "EEO AZ" BEQ G07516 ; " " " SM" CMP R0,#122 ; " R " "EEO BB" BEQ G07516 ; " " " SJ" CALL G11042 ; "w T " "AW1 RD" G07516: CALL G11042 ; "w P " "AW1 R " G07522: MOV #33,R0 ; "@ " "CSH $" BR G07542 ; " " " FU" G07530: TST 32(R5) ; "u " "A6U Z" BEQ G07552 ; " " " SN" CALL G00146 ; "w q" "AW18VT" G07542: CLR 32(R5) ; "5 " "AYM Z" G07546: MOV R0,36(R5) ; "5 " "BW/ 0" G07552: RETURN ; " " " CO" G07554: MOV #G07516,-(SP) ; "f " "CTF " BR G07546 ; "z " " LZ" G07562: CALL G00146 ; "w pp" "AW18V " BR G07516 ; "k " " LK" .PSECT TECOCH .=.+177740 .WORD G07570 ; " " " " .PSECT TECORO G07570: MOV #177777,32(R5) ; "u " "CTU 8O Z" RETURN ; " " " CO" G07600: MOVB (R4)+,R0 ; " " "W3X" ADD #53650,R0 ; "@e(W" "PKHNA " MOV #M00434,-(SP) ; "f " "CTF " .PSECT TECOER M00434: ADD @60440(R5),(SP) ; "No a" "Q2NOUX" ADD @(R5)+,61040(R2) ; "rg b" "PVBO. " ADD @(R1)+,-(R5) ; "ef" "POM" DIV @-(PC),R1 ; "or" "RLO" CMP R1,-(R5) ; "e " "EGM" .WORD 377 ; " " " FO" .PSECT TECORO BR G07634 ; " " " FX" G07614: MOVB (R4)+,R0 ; " " "W3X" ASL R0 ; "@ " "BAX" ASL R0 ; "@ " "BAX" ASL R0 ; "@ " "BAX" ADD #34103,R0 ; "@eC8" "PKHI C" MOV #M00454,-(SP) ; "f " "CTF " .PSECT TECOER M00454: ADD 62554(R1),(R1) ; "Ille" "QMAPID" ADD R5,-(PC) ; "ga" "OWO" CMP R1,@-(R4) ; "l " "EGT" CMP R3,@M64633 ; " ch" "EKGP.C" DIV -(R1),R1 ; "ar" "RLA" ADD (R5),-(R1) ; "ac" "O6A" ADD (R5)+,162(R4) ; "ter " "PIL B4" .PSECT TECORO G07634: MOVB (R4)+,R4 ; " " "W3." BR G07654 ; " " " FV" G07640: MOV (R4)+,R0 ; " " "CNP" MOV (R4)+,-(SP) ; "& " "CON" CLR R4 ; " " "AXD" BR G07654 ; " " " FR" G07650: MOV (R4)+,R0 ; " " "CNP" MOV (R4)+,-(SP) ; "& " "CON" G07654: MOV (R5),72(R5) ; "u : " "CDU AR" MOV 110(R5),R2 ; "B H " "D$J A2" BIC #177774,R2 ; "BE| " "KFR 8L" DEC R2 ; "B " "A.4" BNE G07676 ; " " " L3" CLR (SP) ; " " "AXN" G07676: MOV (SP)+,52(R5) ; "5 * " "CR7 AB" MOV #TECOCR,-(SP) ; "f " "CTF " BIT 110(R5),#4 ; "W=H " "I2W A2 D" BEQ G07722 ; " " " SJ" MOV #G00436,(SP) ; "N " "CSV " G07722: CALL ALLERR ; "w " "AW1 " MOV #50,R2 ; "B ( " "CSJ A " CLR -(SP) ; "& " "AX8" G07734: CALL DIVD ; "w ^|" "AW1 RN" MOV R1,-(SP) ; "f " "BX8" TST R0 ; "@ " "A5H" BNE G07734 ; "{ " " SC" CALL CRLFNO ; "w h " "AW1 U2" MOV #177777,R0 ; "@ " "CSH 8O" G07756: ADD #100,R0 ; "@e@ " "PKH AX" CMP R0,#132 ; " Z " "EEO BJ" BLOS G07774 ; " " "T8R" ADD #177722,R0 ; "@eR " "PKH 7J" G07774: CALL TYPE ; "w " "AW1 " MOV (SP)+,R0 ; " " "CQX" BNE G07756 ; "u " " R7" MOV 52(R5),R1 ; "A * " "D$I AB" BEQ G10110 ; " " " S9" MOV 412(R5),R2 ; "B " "D$J FZ" MOV #11,R0 ; "@ " "CSH I" G10022: CALL TYPE ; "w " "AW1 " MOVB (R1)+,R0 ; "@ " "W.2" BGT G10022 ; "| " "AD." BEQ G10044 ; " " " SL" MOV R4,R0 ; " " "B.2" BNE G10022 ; "y " " SA" MOV 410(R5),R2 ; "B " "D$J FX" G10044: TST R4 ; "D " "A5L" BNE G10110 ; " " " MH" MOV #40,R0 ; "@ " "CSH 2" CALL TYPE ; "w " "AW1 " MOV #42,R0 ; "@ " " "CSH 4" G10064: BIC #177600,R0 ; "@E " "KFP 5H" CALL TYPEF ; "w " "AW1 " MOVB (R2)+,R0 ; " " "W0P" BNE G10064 ; "z " " SB" MOV #42,R0 ; "@ " " "CSH 4" CALL TYPE ; "w " "AW1 " G10110: RETURN ; " " " CO" G10112: MOV #G10202,-(SP) ; "f " "CTF " G10116: CALL G11200 ; "w . " "AW1 M8" G10122: CALL G11412 ; "w 4 " "AW1 QL" BCC $E$IQN ; " " "URK" G10130: CMP R0,#101 ; " A " "EEO AY" BCS G10142 ; " " "UXB" ADD #177725,R0 ; "@eU " "PKH 7M" G10142: ADD #177753,R0 ; "@ek " "PKH 75" G10146: MOV R0,40(R5) ; "5 " "BW/ 2" G10152: MOV 40(R5),R0 ; "@ " "D$H 2" G10156: MOV #154,R1 ; "A l " "CSI B." ADD R5,R1 ; "Aa" "OVQ" CLR R2 ; " " "AXB" CMP (SP),#G10202 ; " # " "E$1 " BNE G10210 ; " " " L8" ASL R0 ; "@ " "BAX" ASL R0 ; "@ " "BAX" ADD R0,R1 ; " `" "ONQ" G10202: RETURN ; " " " CO" G10204: ADD (R1)+,R2 ; "Bd" "PAZ" TST (R1)+ ; "Q " "A5Y" G10210: DEC R0 ; "@ " "A.2" BGT G10204 ; "| " "AD." G10214: RETURN ; " " " CO" $E$IQN: JSR R4,G07650 ; "7 " "AR9 2V" BIT @-(R3),M00500(SP) ; "v: " "IQN " .PSECT TECOER M00500: ADD 62554(R1),(R1) ; "Ille" "QMAPID" ADD R5,-(PC) ; "ga" "OWO" CMP R1,@-(R4) ; "l " "EGT" CMP 62562(R5),(R1)+ ; "Q-re" "GJAPIJ" CMP R1,-(PC) ; "g " "EGO" ADD R5,@-(SP) ; "na" "OWV" ADD (R5)+,@-(R5) ; "me" "PIE" .BYTE 0 ; " " "" .PSECT TECOCH .=.+64 .WORD G10226 ; " " " " .PSECT TECORO G10226: CALL G10116 ; "w 4 " "AW1 6T" MOV 40(R5),-(SP) ; "f " "D.F 2" MOV (R1),R4 ; "D " "B66" MOV #45,40(R5) ; "u % " "CTU 7 2" CALL G10152 ; "w @ " "AW1 62" MOV (R1),R0 ; "@ " "B62" ADD R4,R0 ; " a" "OT2" ADD #4,R0 ; "@e " "PKH D" CALL G10512 ; "w " "AW1 C." ADD (R1),R2 ; "Bb" "O.4" MOV R2,R4 ; " " "BY." MOV (SP)+,R0 ; " " "CQX" CALL G10156 ; "w . " "AW1 6N" ADD 144(R5),R2 ; "Bmd " "QSJ BT" ADD 144(R5),R4 ; "Dmd " "QSL BT" CMP (R1)+,(R1)+ ; "Q$" "E2Q" MOVB -(R1),-(R4) ; "d " "XOL" MOVB -(R1),-(R4) ; "d " "XOL" MOVB -(R1),-(R4) ; "d " "XOL" MOVB -(R1),-(R4) ; "d " "XOL" MOV (R1),R1 ; "A " "B63" G10324: DEC R1 ; "A " "A.3" BMI G10214 ; "Z " "T1B" MOVB (R2)+,-(R4) ; "$ " "W1L" BR G10324 ; "| " " L." G10334: TST 16(R5) ; "u " "A6U N" BPL $E$CPQ ; " " "TSK" MOV (SP)+,20(R5) ; "5 " "CR7 P" RETURN ; " " " CO" $E$CPQ: JSR R4,G07650 ; "7 <~" "AR9 0L" MOV (R5)+,(R1)+ ; "Q " "CPQ" .WORD M00523 ; " " " " .PSECT TECOER M00523: .BYTE 103 ; "C" "" ADD @72047(R1),-(R1) ; "an't" "QZQRWO" MUL -(R0),R0 ; " p" "Q7X" MUL @-(PC),R1 ; "op" "Q9W" BIS R4,-(R0) ; " Q" "L9H" DIV @-(R5),R0 ; "-r" "RJ/" ADD @(R5)+,-(R5) ; "eg" "PU/" .BYTE 0 ; " " "" .PSECT TECOCH .=.+2 .WORD G10360 ; " " " " .PSECT TECORO G10360: CALL G11154 ; "w x " "AW1 IP" CALL G10116 ; "w V " "AW1 4F" MOV #45,R0 ; "@ % " "CSH 7" CALL G10156 ; "w n " "AW1 40" MOV (R1),-(SP) ; "f " "B70" BEQ G10334 ; "l " " YD" ADD (R1),R2 ; "Bb" "O.4" ADD 144(R5),R2 ; "Bmd " "QSJ BT" MOVB -(R2),-(SP) ; "& " "XP8" SWAB (SP) ; "N " " EF" MOVB -(R2),(SP) ; " " "XPN" MOVB -(R2),R0 ; " " "XP " SWAB R0 ; "@ " " D2" BISB -(R2),R0 ; " X" "4YX" CALL G10512 ; "w 0 " "AW1 AH" SUB (R1)+,2(SP) ; "vd " "6VF B" MOV (SP)+,(R1) ; " " "CQ3" MOV -(R1),R3 ; "C " "C5K" MOV R2,R4 ; " " "BY." MOV #45,40(R5) ; "u % " "CTU 7 2" CALL G10152 ; "w < " "AW1 3T" ADD (R1),R2 ; "Bb" "O.4" ADD 144(R5),R2 ; "Bmd " "QSJ BT" ADD 144(R5),R4 ; "Dmd " "QSL BT" SUB #4,R2 ; "Be " "60R D" G10474: DEC R3 ; "C " "A.5" BMI G10504 ; " " "TYZ" MOVB -(R2),(R4)+ ; " " "XPT" BR G10474 ; "| " " L." G10504: MOV (SP)+,R0 ; " " "CQX" SUB #4,R0 ; "@e " "60P D" G10512: MOV R0,R4 ; " " "BVT" CALL G10152 ; "w " "AW1 2Z" MOV 150(R5),R3 ; "C h " "D$K BX" MOV R1,R0 ; "@ " "BX " MOV R4,R1 ; " " "B.3" ADD (R0),R2 ; " b" "O$J" SUB (R0),R1 ; " b" "6FQ" BCS G10620 ; " " "UXY" BEQ G10566 ; " " " SS" ADD R3,R1 ; "A`" "OSI" CALL SIZEQR ; "w l " "AW1ADL" BCC G10642 ; " " "URM" MOV R4,(R0) ; " " "B/ " MOV R1,150(R5) ; "u h " "BYM BX" MOV 144(R5),R0 ; "@ d " "D$H BT" CALL G07054 ; "w 6|" "AW1 QN" G10566: MOV 4(R5),R0 ; "@ " "D$H D" MOV #G10152,-(SP) ; "f " "CTF " G10576: MOV R0,4(R5) ; "5 " "BW/ D" CALL G10156 ; "w h~" "AW1 1P" MOV R2,66(R5) ; "5 6 " "BZ7 AN" MOV (R1),42(R5) ; "u " " "B8E 4" RETURN ; " " " CO" G10620: MOV R4,(R0) ; " " "B/ " ADD R1,150(R5) ; "u`h " "OQM BX" ADD R2,R1 ; " `" "OQY" MOV 144(R5),R0 ; "@ d " "D$H BT" CALL G07134 ; "w <|" "AW1 QT" BR G10566 ; "j " " LJ" G10642: JMP $E$MEM ; "w rp" " B98R4" .PSECT TECOCH .=.+177736 .WORD G10646 ; " " " " .PSECT TECORO G10646: CALL G10116 ; "w $~" "AW1 /." JSR R4,G10756 ; "7 @ " "AR9 AX" IOT ; " " " D" MOV R2,2(R5) ; "5 " "BZ7 B" CLR (R5) ; " " "AXM" CLR 6(R5) ; "5 " "AYM F" MOV 40(R5),R0 ; "@ " "D$H 2" BR G10576 ; "_ " " K9" G10700: MOV 64(R5),R0 ; "@ 4 " "D$H AL" CMP R0,142(R5) ; "5 b " "EFE BR" BCC G10726 ; " " "UQ0" ADD 136(R5),R0 ; "@m^ " "QSH BN" MOVB (R0),R0 ; " " "WNP" BIC #177600,R0 ; "@E " "KFP 5H" SEC ; "1 " " DQ" G10726: RETURN ; " " " CO" G10730: MOV R0,-(SP) ; "& " "BWN" MOVB (R4)+,R0 ; " " "W3X" MOVB (R4)+,R1 ; " " "W3Y" ADD R5,R1 ; "Aa" "OVQ" MOV 74(R5),R2 ; "B < " "D$J AT" CALL @(SP)+ ; "^ " "AWF" MOV R2,74(R5) ; "5 < " "BZ7 AT" MOV (SP)+,R0 ; " " "CQX" RTS R4 ; " " " CL" G10756: TST 56(R5) ; "u . " "A6U AF" BNE $E$MRP ; " " " MK" G10764: JSR R0,G10730 ; "7 ` " "ALW 7X" G10770: CMP R2,410(R5) ; "5 " "EIM FX" BCC $E$PDO ; " " "UQ4" MOV (R1)+,(R2)+ ; "R " "CJB" DEC R0 ; "@ " "A.2" BNE G10770 ; "z " " SB" RETURN ; " " " CO" G11006: JSR R0,G10730 ; "7 N " "ALW 7F" G11012: MOV -(R2),-(R1) ; "! " "C7Y" DEC R0 ; "@ " "A.2" BNE G11012 ; "} " " SE" RETURN ; " " " CO" $E$PDO: JSR R4,G07650 ; "7 }" "AR9 V4" ADD (R2)+,@-(PC) ; "/d" "PDO" .WORD M00543 ; " " " " .PSECT TECOER M00543: .BYTE 120 ; "P" "" DIV 26550(R5),R5 ; "ush-" "RR7GJX" ADD @67167(R5),-(R4) ; "down" "Q26QZ9" ADD 71551(R0),-(R0) ; " lis" "QL RRY" CMP R1,73157(R4) ; "t ov" "EG.R79" DIV -(R5),R1 ; "er" "RLE" ADD 73557(R1),-(SP) ; "flow" "QM0SDO" .BYTE 0 ; " " "" .PSECT TECORO $E$MRP: JSR R4,G07650 ; "7 }" "AR9 VZ" BIS (R0)+,-(R0) ; " T" "MRP" .WORD M00573 ; " " " " .PSECT TECOER M00573: .BYTE 115 ; "M" "" DIV @-(R1),R5 ; "is" "RRY" ADD -(R5),63556(R3) ; "sing" "P45PU8" CMP -(R4),-(R0) ; " )" "FWH" .BYTE 0 ; " " "" .PSECT TECORO G11042: CALL G07530 ; "w 2}" "AW1 TR" MOV (R5),34(R5) ; "u " "CDU ." G11052: CALL G11270 ; "w " "AW1 CR" BNE G11052 ; "} " " SE" G11060: RETURN ; " " " CO" G11062: CMP R0,142(R5) ; "5 b " "EFE BR" BLOS G11060 ; "| " "UD." $E$POP: JSR R4,G07650 ; "7 l}" "AR9 U6" ADD @(R1)+,@-(R0) ; "hf" "POP" .WORD M00605 ; " " " " .PSECT TECOER M00605: .BYTE 120 ; "P" "" ADD -(R5),@-(PC) ; "oi" "P41" ASH @-(SP),R1 ; "nt" "RYF" DIV -(R5),R1 ; "er" "RLE" ADD @63146(R4),-(R0) ; " off" "Q1HPON" MUL -(R0),R0 ; " p" "Q7X" ADD @(R5)+,-(R1) ; "ag" "PUY" JMP -(R5) ; "e " " BU" .PSECT TECORO G11100: MOV #1,R0 ; "@ " "CSH A" CALL G06170 ; "w 0z" "AW1 AH" G11110: MOV 20(R5),R0 ; "@ " "D$H P" INC 16(R5) ; "5 " "A.U N" BNE G11100 ; "w " " R9" RETURN ; " " " CO" G11124: CALL G11042 ; "w J " "AW1 7B" CALL G07522 ; "w v|" "AW1 R8" MOV 34(R5),R3 ; "C " "D$K ." MOV (R5),R0 ; "@ " "CCH" DEC R0 ; "@ " "A.2" SUB R3,R0 ; "@`" "58P" RETURN ; " " " CO" G11150: CLR 16(R5) ; "5 " "AYM N" G11154: TST 30(R5) ; "u " "A6U X" BPL G11172 ; " " "TSL" MOV #177777,R0 ; "@ " "CSH 8O" CALL G06170 ; "w ~y" "AW1998" G11172: CLR 30(R5) ; "5 " "AYM X" RETURN ; " " " CO" G11200: CALL G00146 ; "w bm" "AW18BR" UPPERC: CMP R0,#141 ; " a " "EEO BQ" BCS G11224 ; " " "UXE" CMP R0,#172 ; " z " "EEO CB" BHI G11224 ; " " "T2B" BIC #40,R0 ; "@E " "KFP 2" G11224: RETURN ; " " " CO" G11226: MOV (SP)+,(SP) ; " " "CQ8" CALL G00146 ; "w Jm" "AW18A4" G11234: CALL UPPERC ; "w d " "AW1 7." CMP R0,#100 ; " @ " "EEO AX" BCS $E$IUC ; " " "UXF" CMP R0,#137 ; " _ " "EEO BO" BHI $E$IUC ; " " "T2C" BIC #100,R0 ; "@E@ " "KFP AX" RETURN ; " " " CO" $E$IUC: JSR R4,G07614 ; "7 V|" "AR9 RF" G11266: BIS @4767(R1),@-(R1) ; "i^w " "ODIAW1" G11270= G11266+2 SUB 20065(SP),@-(R2) ; "*m5 " "8ABEFE" .WORD 36 ; " " " 0" RETURN ; " " " CO" G11302: MOV 20(R5),R3 ; "C " "D$K P" G11306: CLR R2 ; " " "AXB" G11310: CALL G11200 ; "w 4 " "AW1 6T" G11314: MOV (R4)+,R1 ; " " "CNQ" G11316: CMPB R0,-(R1) ; "! " "YX3" BHI G11316 ; "~ " "T8N" BCS G11336 ; " " "UXE" SUB -(R4),R1 ; " i" "7KI" COM R1 ; "A " "AYY" ASL R1 ; "A " "BAY" ADD (R4),R1 ; " c" "O3Y" MOV (R1),R4 ; "D " "B66" G11336: RTS R4 ; " " " CL" G11340: CMP R0,#15 ; " " "EEO M" BCC G11352 ; " " "UQZ" G11346: CMP #11,R0 ; "@% " "FAX I" G11352: RETURN ; " " " CO" G11354: CMP R0,#72 ; " : " "EEO AR" BCC G11366 ; " " "UQZ" CMP #57,R0 ; "@%/ " "FAX AG" G11366: RETURN ; " " " CO" G11370: CMP R0,#56 ; " . " "EEO AF" BEQ G11346 ; "t " " YL" CMP R0,#44 ; " $ " "EEO 6" BEQ G11346 ; "q " " YI" CMP R0,126(R5) ; "5 V " "EFE BF" BEQ G11346 ; "n " " YF" G11412: CALL G11354 ; "w ^ " "AW1 7V" BCS G11436 ; " " "UXG" G11420: CALL UPPERC ; "w p " "AW1 42" G11424: CMP R0,#133 ; " [ " "EEO BK" BCC G11436 ; " " "UQZ" CMP #100,R0 ; "@%@ " "FAX AX" G11436: RETURN ; " " " CO" G11440: SUB #40,R0 ; "@e " "60P 2" BR G11424 ; "w " " LW" G11446: MOV (R4)+,-(SP) ; "& " "CON" MOV (R5),R0 ; "@ " "CCH" CMP R0,42(R5) ; "5 " " "EFE 4" BCC G11516 ; " " "UQ9" ADD 66(R5),R0 ; "@m6 " "QSH AN" ADD 144(R5),R0 ; "@md " "QSH BT" MOVB (R0),R0 ; " " "WNP" BIC #177600,R0 ; "@E " "KFP 5H" CALL UPPERC ; "w B " "AW1 3Z" CMP R0,(SP) ; " " "EEF" BNE G11516 ; " " " L6" INC (R5) ; " " "A$U" CALL G00176 ; "w 2m" "AW178B" COM (SP) ; "N " "AY8" G11516: ASL (SP)+ ; "V " "BBF" RTS R4 ; " " " CL" CRLFNO: CALL NOCTLO ; "w " "AW1 " CRLF: MOV #15,R0 ; "@ " "CSH M" CALL TYPE ; "w " "AW1 " MOV #12,R0 ; "@ " "CSH J" JMP TYPE ; "w " " B9 " G11546: INC 26(R5) ; "5 " "A.U V" BEQ G11606 ; " " " SU" CLR 26(R5) ; "5 " "AYM V" MOV 64(R5),22(R5) ; "u 4 " "D.U AL R" CALL G01430 ; "w o" "AW18MV" MOV 64(R5),20(R5) ; "u 4 " "D.U AL P" MOV 22(R5),64(R5) ; "u 4 " "D.U R AL" G11606: CLR 16(R5) ; "5 " "AYM N" MOV 20(R5),R0 ; "@ " "D$H P" CMP R0,22(R5) ; "5 " "EFE R" BCC G11642 ; " " "UQ1" MOV 22(R5),20(R5) ; "u " "D.U R P" MOV R0,22(R5) ; "5 " "BW/ R" MOV 20(R5),R0 ; "@ " "D$H P" G11642: CALL G11062 ; "w ~" "AW1 /D" SUB 22(R5),R0 ; "@m " "78P R" RETURN ; " " " CO" G11654: MOV 410(R5),R2 ; "B " "D$J FX" JSR R4,G11446 ; "7 r " "AR9 44" JMP @#103406 ; "_ " " BOUXF" JSR R4,G11446 ; "7 j " "AR9 4Z" .WORD 52 ; "* " " AB" BCC G11720 ; " " "UQ2" MOV 412(R5),R2 ; "B " "D$J FZ" MOV R2,R0 ; " " "BYX" G11706: TSTB (R0)+ ; "P " "VN2" BNE G11706 ; "~ " " SF" SUB R2,R0 ; " `" "562" DEC R0 ; "@ " "A.2" RETURN ; " " " CO" G11720: CALL G10116 ; "w z|" "AW1 O4" MOV (R1),R0 ; "@ " "B62" SEC ; "1 " " DQ" RETURN ; " " " CO" ZEROD: MOV (R3)+,R4 ; "D " "CL6" MOV R3,(SP) ; "N " "B$V" MOV 20(R5),-(SP) ; "f " "D.F P" BPL G11762 ; " " "TSO" TST 70(R5) ; "u 8 " "A6U AP" BNE G11762 ; " " " L6" MOV #55,R0 ; "@ - " "CSH AE" CALL (R4) ; "L " "AV." NEG (SP) ; " " "A00" G11762: MOV (SP)+,R0 ; " " "CQX" MOV #10,R2 ; "B " "CSJ H" TST 70(R5) ; "u 8 " "A6U AP" BGT G12006 ; " " " 8T" BEQ G12004 ; " " " SJ" ADD #6,R2 ; "Be " "PKJ F" G12004: TST (R2)+ ; "R " "A5Z" G12006: CALL DIVD ; "w 4x" "AW191." MOV R1,-(SP) ; "f " "BX8" TST R0 ; "@ " "A5H" BNE G12006 ; "{ " " SC" G12020: MOV (SP)+,R0 ; " " "CQX" CMP R0,#17 ; " " "EEO O" BHI G12052 ; " " "T2I" ADD #60,R0 ; "@e0 " "PKH AH" CMP R0,#71 ; " 9 " "EEO AQ" BLOS G12046 ; " " "T8R" ADD #7,R0 ; "@e " "PKH G" G12046: CALL (R4) ; "L " "AV." BR G12020 ; "s " " LS" G12052: JMP (R0) ; "H " " A2" G12054: MOV 410(R5),R4 ; "D " "D$L FX" G12060: MOV R0,-(SP) ; "& " "BWN" MOV R4,-(SP) ; "& " "B/0" CALL G07530 ; "w {" "AW1 GH" G12070: CLR R2 ; " " "AXB" G12072: TST R2 ; "B " "A5J" BNE G12320 ; "I " " NY" CALL G11270 ; "w v~" "AW1 .V" BEQ G12422 ; "g " " U1" CMP R0,#136 ; " ^ " "EEO BN" BNE G12134 ; " " " MA" BIT 112(R5),#ED$CTL ; "W=J " "I2W A4 " BNE G12134 ; " " " L7" CALL G11270 ; "w b~" "AW1 .B" BEQ $E$ISS ; " " " S9" CALL G11234 ; "w @~" "AW1 $H" G12134: CLR R1 ; " " "AXA" CMP R0,#21 ; " " "EEO Q" BEQ G12172 ; " " " SS" CMP R0,#22 ; " " "EEO R" BEQ G12172 ; " " " SP" COM R1 ; "A " "AYY" CMP R0,#26 ; " " "EEO V" BEQ G12172 ; " " " SL" CMP R0,#27 ; " " "EEO W" BNE G12332 ; "1 " " NA" NEG R1 ; " " "A0Q" G12172: CALL G11270 ; "w :~" "AW1 $B" BEQ $E$ISS ; " " " SS" ASL R1 ; "A " "BAY" BEQ G12366 ; "9 " " TY" BIT R0,#100 ; " 0@ " "G$1 AX" BEQ G12366 ; "6 " " TV" BIS #40,R0 ; "@U " "M.2 2" BCS G12366 ; "3 " "UYK" BIC #40,R0 ; "@E " "KFP 2" BR G12366 ; "0 " " GX" $E$ISS: JSR R4,G07650 ; "7 {" "AR9 F0" BIT @-(R5),(R3) ; "K;" "ISS" .WORD M00626 ; " " " " .PSECT TECOER M00626: ADD 62554(R1),(R1) ; "Ille" "QMAPID" ADD R5,-(PC) ; "ga" "OWO" CMP R1,@-(R4) ; "l " "EGT" ADD (R5)+,71141(R3) ; "sear" "PIKRLA" ADD -(R1),-(R3) ; "ch" "P.C" DIV -(R0),R4 ; " s" "RP2" DIV 67151(R4),R1 ; "trin" "RLTQZY" JMP -(PC) ; "g " " BW" .PSECT TECORO G12236: TST R2 ; "B " "A5J" BNE G12362 ; "( " " M2" JSR R4,G11446 ; "7 ~" "AR9 .2" JMP (R5)+ ; "U " " BE" BCC G12266 ; " " "UQ0" CALL G10112 ; "w {" "AW1 JL" MOV -(R1),R0 ; "@ " "C5H" BIC #177600,R0 ; "@E " "KFP 5H" BR G12366 ; " " " GH" G12266: JSR R4,G11446 ; "7 l~" "AR9 .L" JMP (R1)+ ; "Q " " BA" MOV #205,R0 ; "@ " "CSH CM" BCC G12366 ; " " "URJ" CALL G11654 ; "w f~" "AW1 1N" DEC (SP) ; "N " "A/F" MOV R0,R1 ; " " "BVQ" BCC G12320 ; " " "UQZ" ADD 144(R5),R2 ; "Bmd " "QSJ BT" G12320: DEC R1 ; "A " "A.3" BMI G12070 ; "2 " "T0B" MOVB (R2)+,R0 ; " " "W0P" BIC #177600,R0 ; "@E " "KFP 5H" G12332: CMP R0,#5 ; " " "EEO E" BEQ G12236 ; "_ " " X1" CMP R0,#16 ; " " "EEO N" BEQ G12362 ; " " " SN" CMP R0,#23 ; " " "EEO S" BEQ G12362 ; " " " SK" CMP R0,#30 ; " " "EEO X" BNE G12366 ; " " " L4" G12362: BIS #200,R0 ; "@U " "M.2 CH" G12366: MOVB R0,(R4)+ ; " " "WBD" BNE G12400 ; " " " L5" MOVB #200,177777(R4) ; "t " "W9. CH 8O" G12400: CMPB 1(R4),#177777 ; " - " "$$1 A 8O" BNE G12072 ; " " " PY" CLRB (R4) ; " " "VCT" $E$STL: JSR R4,G07650 ; "7 z" "AR9 C4" XOR PC,@-(R4) ; "ly" "STL" .WORD M00654 ; " " " " .PSECT TECOER M00654: ASH (R3)+,R1 ; "St" "RXS" ADD -(R5),63556(R2) ; "ring" "P44PU8" ASH -(R0),R0 ; " t" "RWH" ADD @66040(R5),@-(PC) ; "oo l" "Q3GQL " ADD @147(R1),@-(PC) ; "ong " "QZ1 BW" .PSECT TECORO G12422: CMP R4,(SP)+ ; " !" "EK0" BEQ G12430 ; " " " SI" CLRB (R4) ; " " "VCT" G12430: MOV (SP)+,R2 ; " " "CQZ" RETURN ; " " " CO" G12434: MOV 22(R5),R0 ; "@ " "D$H R" INC 26(R5) ; "5 " "A.U V" BEQ G12466 ; " " " SP" CLR 26(R5) ; "5 " "AYM V" CALL G06474 ; "w x" "AW19$V" MOV 64(R5),R0 ; "@ 4 " "D$H AL" ADD R0,20(R5) ; "5` " "OO/ P" G12466: CALL G11062 ; "w x|" "AW1 S " MOV R0,-(SP) ; "& " "BWN" CALL G11110 ; "w }" "AW1 SP" CALL G11062 ; "w n|" "AW1 R0" CALL G12054 ; "w d~" "AW1 1L" MOV (SP),R1 ; " " "CD3" MOV #177400,(SP) ; "N " "CSV 2 " MOV R2,-(SP) ; "& " "BZV" MOV R2,-(SP) ; "& " "BZV" MOV #1,R2 ; "B " "CSJ A" SUB R1,2(SP) ; "v` " "56V B" BPL G12654 ; "( " "TTH" MOV R1,(SP) ; "N " "BXN" NEG R2 ; " " "A0R" NEG 2(SP) ; "6 " "A10 B" INC 2(SP) ; "6 " "A.V B" BR G12654 ; "! " " GI" G12552: CLR -(SP) ; "& " "AX8" MOV 22(R5),-(SP) ; "f " "D.F R" BPL G12564 ; " " "TSI" NEG (SP) ; " " "A00" G12564: INC 26(R5) ; "5 " "A.U V" BEQ G12612 ; " " " SP" CLR 26(R5) ; "5 " "AYM V" CLR (SP) ; " " "AXN" CMP 30(R5),#177776 ; "W- ~ " "GJG X 8N" BNE G12616 ; " " " L5" INC (SP) ; " " "A$V" G12612: COMB 3(SP) ; "v " "VFF C" G12616: CALL G11110 ; "w 6|" "AW1 QN" CALL G12054 ; "w ~" "AW1 /N" BNE G12644 ; " " " L8" $E$ISA: JSR R4,G07650 ; "7 z" "AR9 L" BIT @-(R4),@M00674(R1) ; "9; " "ISA " .PSECT TECOER M00674: ADD 62554(R1),(R1) ; "Ille" "QMAPID" ADD R5,-(PC) ; "ga" "OWO" CMP R1,@-(R4) ; "l " "EGT" ADD (R5)+,71141(R3) ; "sear" "PIKRLA" ADD -(R1),-(R3) ; "ch" "P.C" ADD R4,-(R0) ; " a" "OUX" .WORD 63562 ; "rg" "PVB" .BYTE 0 ; " " "" .PSECT TECORO G12640: CLR -(SP) ; "& " "AX8" CLR -(SP) ; "& " "AX8" G12644: MOV 64(R5),R1 ; "A 4 " "D$I AL" MOV 142(R5),-(SP) ; "f b " "D.F BR" G12654: ADD 136(R5),R1 ; "Am^ " "QSI BN" ADD 136(R5),(SP) ; "Nm^ " "QSV BN" MOV #1,-(SP) ; "f " "CTF A" MOV R2,-(SP) ; "& " "BZV" BPL G12706 ; " " "TSM" NEG 2(SP) ; "6 " "A10 B" RORB 11(SP) ; "6 " "VQN I" NEG (SP) ; " " "A00" G12706: CLR 76(R5) ; "5 > " "AYM AV" G12712: MOV R1,R3 ; "C " "BXC" MOV 410(R5),R4 ; "D " "D$L FX" MOV #177777,R2 ; "B " "CSJ 8O" G12724: INC R2 ; " " "A$J" BNE G13010 ; " " " MP" G12730: CMP R3,4(SP) ; "v " "EJ8 D" BCS G12772 ; " " "UXN" TSTB (R4) ; "L " "VN." BEQ G13054 ; "% " " TE" TST 2(SP) ; "v " "A6V B" BMI G13010 ; " " "TZ " G12750: ASRB 11(SP) ; "6 " "VTV I" BCS G13120 ; "1 " "UYI" BIT #ED$SRH,112(R5) ; "u5 J " "HYM A4" BNE G13120 ; "- " " M7" CLR R3 ; " " "AXC" BR G13114 ; ") " " GQ" G12772: MOVB (R4)+,R0 ; " " "W3X" BMI G13202 ; "B " "T$J" BEQ G13054 ; " " " S0" G13000: CMPB R0,(R3)+ ; " " "YXS" BNE G13132 ; "+ " " M5" G13004: INC R2 ; " " "A$J" BNE G12730 ; "h " " RX" G13010: MOV #177777,R4 ; "D " "CSL 8O" G13014: INC R4 ; " " "A$L" BGT G12712 ; "] " "AC7" ADD 2(SP),R1 ; " m " "QT3 B" DEC 6(SP) ; "v " "A0F F" BEQ G12750 ; "g " " X9" CMP R1,136(R5) ; "u ^ " "EG/ BN" BCC G13014 ; "v " "UW0" BR G12750 ; "c " " LC" G13042: BIT #ED$INC,112(R5) ; "u5 J " "HYM A4" BEQ G13014 ; "q " " YI" BR G13010 ; "n " " LN" G13054: MOV R1,50(R5) ; "u ( " "BYM A " MOV R1,R4 ; "D " "BXD" SUB R3,R4 ; "D`" "58T" DEC (SP) ; "N " "A/F" BGT G13042 ; "u " "ADU" MOV R4,76(R5) ; "5 > " "B0E AV" SUB 136(R5),R3 ; "Cm^ " "78S BN" SUB 136(R5),50(R5) ; "um^ ( " "79/ BN A " MOV #177777,10(SP) ; "v " "CTV 8O H" G13114: MOV R3,64(R5) ; "u 4 " "B.U AL" G13120: MOV (SP)+,R2 ; " " "CQZ" ADD #6,SP ; "Fe " "PKN F" MOV (SP)+,R1 ; " " "CQY" RETURN ; " " " CO" G13132: TST 114(R5) ; "u L " "A6U A6" BNE G12724 ; ": " " QR" CMPB 177777(R3),#100 ; "W, @ " "$ZG 8O AX" BCS G12724 ; "6 " "U.V" CMP R0,#100 ; " @ " "EEO AX" BCS G12724 ; "3 " "U.S" ADD #40,R0 ; "@e " "PKH 2" TSTB R0 ; "@ " "VNP" BPL G13172 ; " " "TSJ" SUB #100,R0 ; "@e@ " "60P AX" G13172: CMPB R0,177777(R3) ; "3 " "YYK 8O" BEQ G13004 ; "B " " XB" BR G12724 ; ") " " JY" G13202: CMPB R0,#223 ; " " "YXW C$" BEQ G13252 ; " " " SY" BHI G13226 ; " " "T2F" CMPB R0,#205 ; " " "YXW CM" BEQ G13264 ; " " " SZ" BHI G13232 ; " " "T2D" CLR R0 ; " " "AX " G13224: BR G13000 ; "5 " " J7" G13226: INC R3 ; " " "A$K" BR G13004 ; "5 " " J7" G13232: MOV #177777,R2 ; "B " "CSJ 8O" BR G12730 ; " " " JL" G13240: MOV (R0),(SP) ; " " "B5V" MOVB (R3)+,R0 ; "@ " "W2 " CALL @(SP)+ ; "^ " "AWF" G13246: BCS G13004 ; ". " "U.N" BR G12724 ; " " " JE" G13252: MOVB (R3)+,R0 ; "@ " "W2 " CALL G11412 ; "w Z|" "AW1 OB" G13260: BCC G13004 ; ") " "UU3" BR G12724 ; " " " J " G13264: MOVB (R4)+,R0 ; " " "W3X" CALL UPPERC ; "w J{" "AW1 KR" CMPB R0,#123 ; " S " "YXW BC" BEQ G13352 ; " " " S/" CMPB R0,#130 ; " X " "YXW BH" BEQ G13226 ; "h " " Y " CMPB R0,#107 ; " G " "YXW A1" BEQ G13466 ; "5 " " TU" CMPB R0,#102 ; " B " "YXW AZ" BEQ G13252 ; "l " " YD" MOV R0,-(SP) ; "& " "BWN" MOV #G13540,R0 ; "@ " "CSH " G13330: CMP (SP),(R0)+ ; " #" "E$X" BEQ G13240 ; "b " " X4" TST (R0)+ ; "P " "A5X" BNE G13330 ; "| " " SD" TST (SP)+ ; "V " "A50" G13342: DEC R4 ; "D " "A.6" MOVB #5,R0 ; "@ " "W8P E" BR G13224 ; "U " " K/" G13352: MOV R3,-(SP) ; "f " "B.F" G13354: CMP R3,6(SP) ; "v " "EJ8 F" BCC G13402 ; " " "UQ2" MOVB (R3)+,R0 ; "@ " "W2 " CMP R0,#40 ; " " "EEO 2" BEQ G13354 ; "y " " YQ" CMP R0,#11 ; " " "EEO I" BEQ G13354 ; "v " " YN" DEC R3 ; "C " "A.5" G13402: TST 4(SP) ; "v " "A6V D" BPL G13456 ; " " "TS$" CMP R3,(SP) ; "N " "EI8" BEQ G13456 ; " " " SY" CMP R1,(SP) ; "N " "EF0" BNE G13456 ; " " " MG" G13420: CMP R1,136(R5) ; "u ^ " "EG/ BN" BLOS G13456 ; " " "T8." CMPB -(R1),#40 ; "W( " "Z7O 2" BEQ G13442 ; " " " SK" CMPB (R1),#11 ; "W" " "Y89 I" BNE G13454 ; " " " L7" G13442: DEC 10(SP) ; "v " "A0F H" BNE G13420 ; "t " " R6" INC 10(SP) ; "6 " "A.V H" G13454: INC R1 ; " " "A$I" G13456: CMP (SP)+,R3 ; " %" "F C" BCS G13246 ; ": " "U.Z" INC R3 ; " " "A$K" BR G13246 ; "8 " " K " G13466: MOVB (R4),R0 ; " " "WT2" CALL G11412 ; "w N{" "AW1 KV" BCC G13342 ; "R " "UV4" INC R4 ; " " "A$L" MOV R1,-(SP) ; "f " "BX8" MOV R2,-(SP) ; "& " "BZV" CALL G10130 ; "w y" "AW194 " MOVB (R3)+,R0 ; "@ " "W2 " MOV (R1),R1 ; "A " "B63" ADD 144(R5),R2 ; "Bmd " "QSJ BT" G13520: SUB #1,R1 ; "Ae " "60Q A" BCS G13532 ; " " "UXB" CMPB R0,(R2)+ ; " " "YXR" BNE G13520 ; "{ " " SC" G13532: MOV (SP)+,R2 ; " " "CQZ" MOV (SP)+,R1 ; " " "CQY" BR G13260 ; "( " " JX" G13540: JMP R1 ; "A " " AY" .WORD G11420 ; " " " " JMP R3 ; "C " " A$" .WORD G11370 ; " " " " JMP R4 ; "D " " A." .WORD G11354 ; " " " " JMP (R4) ; "L " " A6" .WORD G11340 ; " " " " JMP (R2)+ ; "R " " BB" .WORD G11412 ; " " " " JMP (SP)+ ; "V " " BF" .WORD G11440 ; " " " " JMP #G11424 ; "W " " BG " G13574: BPL G13574 ; " " "TYW" HALT ; " " " " G13600: MOV R0,-(SP) ; "& " "BWN" MOV (R4)+,R0 ; " " "CNP" TST R1 ; "A " "A5I" BMI G14066 ; "W " "T$1" MOV R1,-(SP) ; "f " "BX8" MOV R2,-(SP) ; "& " "BZV" MOV R3,-(SP) ; "f " "B.F" MOV R0,-(SP) ; "& " "BWN" ADD R5,R0 ; "@a" "OVP" BIS #37,R1 ; "AU " "M.3 1" SUB (R0),R1 ; " b" "6FQ" BCS G14056 ; "J " "UY4" MOV #140,R2 ; "B ` " "CSJ BP" MOV 142(R5),R3 ; "C b " "D$K BR" SUB R2,(SP) ; " `" "57F" BNE G13656 ; " " " L6" MOV #146,R2 ; "B f " "CSJ BV" MOV 150(R5),R3 ; "C h " "D$K BX" G13656: JSR R4,G14010 ; "7 V " "AR9 BF" NEG R3 ; " " "A0S" ADD R5,R2 ; "Ba" "OVR" ADD (R2),R3 ; " b" "O0S" SUB #620,R3 ; "Ce " "60S J " BLOS G13752 ; " " "T88" SUB R3,(R2) ; "J`" "58Z" ADD R3,152(R5) ; "u`j " "OTU BZ" TST (SP) ; "N " "A5V" BEQ G13746 ; " " " SW" MOV R0,-(SP) ; "& " "BWN" MOV R1,-(SP) ; "f " "BX8" MOV 144(R5),R0 ; "@ d " "D$H BT" SUB R3,144(R5) ; "u`d " "59/ BT" CLR R2 ; " " "AXB" NEG R3 ; " " "A0S" MOV R3,R1 ; "A " "B$I" MOV 146(R5),R3 ; "C f " "D$K BV" CALL G07134 ; "w zv" "AW19QR" MOV (SP)+,R1 ; " " "CQY" MOV (SP)+,R0 ; " " "CQX" G13746: JSR R4,G14010 ; "7 " "AR9 0" G13752: CMP R4,#G14120 ; " ! " "EK1 " BEQ G14002 ; " " " SQ" MOV R1,-(SP) ; "f " "BX8" SUB 152(R5),R1 ; "Amj " "78Q BZ" CALL SIZER ; "w " "AW1 " MOV (SP)+,R1 ; " " "CQY" BCC G13746 ; "t " "UW." TST (SP)+ ; "V " "A50" BR G14060 ; " " " F9" G14002: MOV 152(R5),R1 ; "A j " "D$I BZ" BR G13746 ; "o " " LO" G14010: CMP R1,152(R5) ; "u j " "EG/ BZ" BHI G14070 ; " " "T2U" SUB R1,152(R5) ; "u`j " "56U BZ" MOV (SP)+,R4 ; " " "CQ." ADD R1,(R0) ; "H`" "OPH" TST (SP) ; "N " "A5V" BNE G14056 ; " " " MB" MOV 144(R5),R0 ; "@ d " "D$H BT" ADD R1,144(R5) ; "u`d " "OQM BT" MOV 146(R5),R3 ; "C f " "D$K BV" ADD R3,R1 ; "A`" "OSI" CLR R2 ; " " "AXB" CALL G07054 ; "w ~u" "AW19NN" G14056: COM (SP)+ ; "V " "AZF" G14060: MOV (SP)+,R3 ; " " "CQ$" MOV (SP)+,R2 ; " " "CQZ" MOV (SP)+,R1 ; " " "CQY" G14066: MOV (SP)+,R0 ; " " "CQX" G14070: RTS R4 ; " " " CL" G14072: CLR 64(R5) ; "5 4 " "AYM AL" CLR 142(R5) ; "5 b " "AYM BR" G14102: CLR 62(R5) ; "5 2 " "AYM AJ" MOV #77777,R1 ; "A " "CSITSG" JSR R4,G13600 ; "7 2 " "AR9 3J" JMP -(R0) ; "` " " BP" G14120: RETURN ; " " " CO" SIZEQR: JSR R4,G13600 ; "7 * " "AR9 3B" JMP -(SP) ; "f " " BV" RETURN ; " " " CO" BIS @#52526,@G65664 ; " WVUTS" "NCGMZFMML" BIC @43514(R1),(R2)+ ; "RNLG" "LUJKPL" BIC (R5)+,SP ; "FE" "KCN" BIC (R5),R4 ; "DC" "J0T" BIT @36075(R1),R1 ; "A>=<" "I8QIYU" G14154: .WORD G02470 ; " " " " .WORD G02476 ; " " " " .WORD G02464 ; " " " " .WORD G02436 ; " " " " .WORD G02426 ; " " " " .WORD G02432 ; " " " " .WORD G02476 ; " " " " .WORD G02476 ; " " " " .WORD G02464 ; " " " " .WORD G02470 ; " " " " .WORD G02456 ; " " " " .WORD G02442 ; " " " " .WORD G02470 ; " " " " .WORD G02470 ; " " " " .WORD G02476 ; " " " " .WORD G02416 ; " " " " .WORD G02422 ; " " " " .=.+1 .BYTE 377 ; " " "" BIS -(R5),@#53530 ; "_YXW" "NK9M9 " BIS (R5)+,(SP)+ ; "VU" "MZF" BIS (R5),(R4)+ ; "TS" "MML" BIS R1,(R2)+ ; "RP" "L4B" BIC @45113(R1),(PC) ; "ONKJ" "LUGK5S" BIC -(R1),(R1) ; "IH" "KVY" BIC @(R1)+,PC ; "GF" "KI1" BIC (R5),R4 ; "DC" "J0T" BIC R5,R2 ; "BA" "JQZ" G14246: .WORD G04656 ; " " " " .WORD G04472 ; " " " " .WORD G04710 ; " " " " .WORD G06364 ; " " " " .WORD G04720 ; " " " " .WORD G04472 ; " " " " .WORD G06366 ; " " " " .WORD G04472 ; " " " " .WORD G06462 ; " " " " .WORD G04642 ; " " " " .WORD G04472 ; " " " " .WORD G05540 ; " " " " .WORD G04650 ; " " " " .WORD G04472 ; " " " " .WORD G06370 ; " " " " .WORD G06372 ; " " " " .WORD G06374 ; " " " " .WORD G06376 ; " " " " .WORD G04472 ; " " " " .WORD G04672 ; " " " " .WORD G04176 ; " " " " .WORD G03414 ; " " " " .=.+1 .BYTE 377 ; " " "" BIS @51123(R5),@41516(R4) ; "|_SRNC" "OKDMF5J00" BIT @23474(R1),R2 ; "B><'" "I8RFKD" G14336: .WORD G02562 ; " " " " .WORD G01546 ; " " " " .WORD G01612 ; " " " " .WORD G03022 ; " " " " .WORD G03014 ; " " " " .WORD G03324 ; " " " " .WORD G03430 ; " " " " .WORD G03030 ; " " " " .WORD G03326 ; " " " " .WORD G02570 ; " " " " .=.+1 .BYTE 377 ; " " "" BIT @20052(R5),@G21417 ; " ?* " "JFOEE4AXU" BLE G14414 ; " " "AE " G14374: .WORD G00410 ; " " " " .WORD G01302 ; " " " " .WORD G01302 ; " " " " .WORD G01054 ; " " " " .WORD G00354 ; " " " " .WORD G00256 ; " " " " .WORD G00442 ; " " " " .WORD G01040 ; " " " " G14414: BIS @G73156,@G70555 ; " _^][X" "ONON7VNES" BIS (R5),(R5)+ ; "US" "MMM" BIC @46516(R5),(R1)+ ; "QONM" "L$YLN0" .BYTE 111 ; "I" "" .BYTE 107 ; "G" "" BIC (R5)+,SP ; "FE" "KCN" BIT @22474(R1),R0 ; "@><%" "I8PE8L" CMP R4,-(R2) ; ""!" "ELB" MOV (R4)+,@(SP)+ ; " " "COF" BR G14470 ; " " " FY" G14446: .WORD G07554 ; " " " " .WORD G07516 ; " " " " .WORD G07562 ; " " " " .WORD G00146 ; " " " " .WORD G07554 ; " " " " .WORD G00104 ; " " " " .WORD G00146 ; " " " " .WORD G01554 ; " " " " .WORD G02006 ; " " " " G14470: .WORD G07570 ; " " " " .WORD G07454 ; " " " " .WORD G07466 ; " " " " .WORD G00146 ; " " " " .WORD G07516 ; " " " " .WORD G00146 ; " " " " .WORD G07516 ; " " " " .WORD G07516 ; " " " " .WORD G00146 ; " " " " .WORD G07516 ; " " " " .WORD G00146 ; " " " " .WORD G00146 ; " " " " .WORD G00146 ; " " " " .WORD G00146 ; " " " " .WORD G07432 ; " " " " .WORD G07516 ; " " " " .=.+1 .BYTE 377 ; " " "" BIS (R1),#44516 ; "WRNI" "MF9K/F" BIC (R1),PC ; "GB" "JXG" .=.+1 .BYTE 377 ; " " "" BIS (R5),@#47122 ; "_SRN" "MMWLUJ" BIC (R1),R3 ; "CB" "JXC" E$$TXT= 1 VERSON= 44 CMDQRG= 46 .PSECT ..ABS. SCANP= .+0 MPDL= .+2 QCMND= .+4 ITRST= .+6 ITRCNT= .+10 NOPR= .+12 NACC= .+14 NFLG= .+16 N= .+20 M= .+22 OFLG= .+24 CFLG= .+26 CLNF= .+30 QFLG= .+32 OSCANP= .+34 QUOTE= .+36 QNMBR= .+40 QLENGT= .+42 CNDN= .+44 NP= .+46 PST= .+50 TEMP= .+52 TFLG= .+54 PCNT= .+56 REPFLG= .+60 FFFLAG= .+62 P= .+64 QBASE= .+66 NMRBAS= .+70 ERRPOS= .+72 PDL= .+74 LSCHSZ= .+76 EVFLAG= .+100 EUFLAG= .+102 ETYPE= .+104 ESFLAG= .+106 EHELP= .+110 EDIT= .+112 SFLG= .+114 EOFLAG= .+116 NWATCH= .+120 CRTYPE= .+122 OUTDNE= .+124 SYMSPC= .+126 INDIR= .+130 INPNTR= .+132 OUPNTR= .+134 TXSTOR= .+136 ZMAX= .+140 ZZ= .+142 QRSTOR= .+144 QMAX= .+146 QZ= .+150 CURFRE= .+152 QARRAY= .+154 QPNTR= .+400 QLCMD= .+402 TECOSP= .+404 TECOPD= .+406 SCHBUF= .+410 FILBUF= .+412 TAGBUF= .+414 TECOJP= .+416 RWSIZE= .+420 .PSECT TECORO .=.-14550 G14540= .+14540 G14550= .+14550 G21417= .+21417 G65664= .+65664 G70555= .+70555 G73156= .+73156 .PSECT TECOER .BLKB 1 .=.-720 M64633= .+64633 .END