B ; UPDATE RMACRO.003 08.15.72 ; UPDATE RMACRO.002 08.03.72 ; UPDATE RMACRO.001 07.31.72 .TITLE MACRO V004A 06-JUN-72 .MACRO GVNUM  ;GEN VERSION NUMBER .ASCII /004A/ .ENDM ; COPYRIGHT 1972 DIGITAL EQUIPMENT CORPORATION R0= %0 R1= %1 R2= %2 R3= %3 R4= %4 R5= %5 SP= %6 PC= %7 PRGBEG:    ;START OF PROGRAM XEDWRP= 0  ;FLUSH FOR NOW .GLOBL PSTBAS, PSTTOP ;PERM SYMBOL TABLE .GLOBL WRDSYM  ;".WORD" DEFA; UPDATE RPST.001 07.31.72 .TITLE PST PERMANENT SYMBOL TABLE ; COPYRIGHT 1972 DIGITAL EQUIPMENT CORPORATION .CSECT PSTSEC .GLOBL PSTBAS, PSTTOP  ;LIMITS .GLOBL WRDSYM  ;POINTER TO .WORD DR1= 200   ;DESTRUCTIVE REFERENCE IN FIRST FIELD DR2= 100   ;DESTRUCTIVE REFERENCE IN SECOND FIELD .GLOBL DFLGEV, DFLGBM, DFLCND, DFLMAC, DFLSMC DFLGEV= 020   ;DIRECTIVE REQUIRES EVEN LOCATION DFLGBM= 010   ;DIRECTIVE USES BYTE MODE DFLCND= 00$: 1E IL FHE TENOP, OK;L FIML#SK,LNML#S ENOP.: 0$ 1K LNML#S ITIN. 6 L+FIMLSR CL  ORRR EO, N;  4$ NEB ? NE OSSPA, MESOD UNFO; S ASPT TS  EDNTMELEMP IOT NIFR ROER; L SMXF NDF .I  NENOF ICHANBR ; $ 5Q BE  TSENUMRG AEDINEFND UOR FSTTE; T TSMLSL ALC 6 VRTOEN  L:ALMC LLCA.M; L ALMC BLLO.G  C SEITX S IT BOLMBSYD TERANEGEO CRMA;  W LK.B B:GSAC M2 KWBL.: AMCNMA KWBL.: AXGMAR KWBL.: NTNCCO NTOU CELEV LROAC;M   KWBL.: VLCLMA  CLR R3  ;SET COUNT TO ZERO 2$: CALL XCTLIN  ;INIT FOR NEW LINE CALL GETLIN  ;GET ONE BNE 3$  ;EXIT IF EOF CALL SETCLI  ;TEST FOR DIRECTIVE BIT #DFLMAC,R0 ;MACRO/ENDM? BEQ 2$  ; NO MOV #VALUE,R4 ;SET FOR LOCAL AND MACROF DEC R3  ;YES, ASSUME .ENDM CMP #ENDM,(R4) ;GOOD GUESS? BEQ 2$  ; YES INC R3  ;NO, BUMP COUNT INC R3 CMP #1,R3  ;OUTER LEVEL? BNE 2$  ; NO GSARG   ;YES, GET NAME BEQ 3$  ; ERROR IF NULL MSR ULT .MCALL .CLOSE, .CSI1, .CSI2, .DELET .MCALL .EXIT, .INIT, .MONF, .OPEN, .READ .MCALL .RLSE, .RSTRT, .STAT, .TRAP, .WAIT .MCALL .WRITE .IF NDF DOSV4 .MCALL .CVTDT, .FLUSH, .RUN, .STSTK .IFF .MCALL .SYSDV .MACRO .FLUSH CODE .ENDM .MACRO .STSTK ADDR .ENDM .ENDC .IF DF OVLAY NUMOVR= 8.  ;NUMBER OF OVERLAYS .MACRO ENTOVR N .IF NE OVRLVL .PRINT OVRLVL ; NOT = 0 .ENDC .IF NDF 4   ;CONDITIONAL DIRECTIVE DFLMAC= 002   ;MACRO DIRECTIVE DFLSMC= 001   ;MCALL .IIF DF X45, XFLTG= 0 .IIF DF XMACRO, XSMCAL= 0 .MACRO OPCDEF NAME, CLASS, VALUE, FLAGS, COND .IF NB  .IF DF COND .MEXIT .ENDC .ENDC .RAD50 /NAME/ .BYTE FLAGS+0 .GLOBL OPCL'CLASS .BYTE 200+OPCL'CLASS .WORD VALUE .ENDM .MACRO DIRDEF NAME, FLAGS, COND .IF NB  .IF DF COND .MEXIT .ENDC .ENDC .GLOBL NAME .RAD5KWBL.: XTCNMA GERATO SEDERRD OOFD EN;   : NDBEMS ERNTOI PADREO CRMA;  W LK.B P:MRSB M. TC ET,UNCOT EAEP;R  2W LK.B T:CNSB MK OCBLG ARO TERNTOI;P   KWBL.: RGBAMS CKLO BXTTEC SIBAO TERNTOI;P   KWBL.: XTBTMS ERNTOI PCKLO BUSIOEVPR;  W LK.B P:PBSB ME YP TCKLO;B   KWBL.: YPBTMS D)REDEORE BSTMU (CKLO BLEABSHPU;   : LKBBMS REPUIM ECTSEN  RNTURE  NTOU CELEV LNTMEREEC;D  VLCLMA ECD T SIPODER FOK OCBLN URET;R  ACMMRE LLCA  NKLIR EACL; ) R0(R CL  CK CH   ;SEARCH TABLE BEQ 2$  ;IGNORE IF NOT THERE TST (R4)  ;FOUND, VALUE OF ZERO? BNE 2$  ; NO, NOT INTERESTED CALL MACROF  ;GOOD, DEFINE IT DEC SMLCNT  ;DECREMENT COUNT BGT 1$  ;LOOP IF MORE TO GO 3$: .CLOSE #SMLLNK  ;CLOSE IT TST SMLCNT  ;ANY MORE? BGT SMLERR  ; YES, BE SURE TO TRY [1,1] 11$: .RLSE #SMLLNK BR 5$ SMLERR= . TST SMLFIL+6 ;LOOKING LOCALLY? BNE 11$  ; NO, GIVE UP MOV #000401,SMLFIL+6 ;YES, TRY [1,1] BR 1 XOVR'N OVRLVL= 1 OVRBAS= OVR'N'B .CSECT OVR'N OVRTMP= . .CSECT MAIN CALOVR .WORD OVRTMP .MACRO XITSEC .CSECT OVR'N .ENDM XITSEC .ENABL PIC .IFF OVRLVL= -1 .ENDC .ENDM .MACRO XITOVR .IF EQ OVRLVL .PRINT OVRLVL ; NOT = 1 .ENDC OVRLVL= 0 .MACRO XITSEC .CSECT MAIN .ENDM XITSEC .DSABL PIC .ENDM XXX= 0 .RADIX 10 .REPT NUMOVR XXX= XXX+1 .IRP N,<\XXX> .CSECT OVR'N OVR'N'B: .ENDM .ENDR .RAD0 /.'NAME/ .BYTE FLAGS+0 .BYTE 0 .WORD NAME .ENDM PSTBAS:    ;BASE OPCDEF , 01, 170600, DR1, X45 OPCDEF , 01, 170600, DR1, X45 OPCDEF , 01, 005500, DR1 OPCDEF , 01, 105500, DR1 OPCDEF , 02, 060000, DR2 OPCDEF , 11, 172000, DR2, X45 OPCDEF , 11, 172000, DR2, X45 OPCDEF , 09, 072000, DR2, X45 OPCDEF , 09, 073000, DR2, X45LO BERXF;> LKBBMSD-ENSB, 01, 006300, DR1 OPCDEF , 01, 106300, DR1 OPCDEF , 01, 006200, DR1 OPCDEF , 01, 106200, DR1 OPCDEF , 04, 103000, OPCDEF , 04, 103400, OPCDEF , 04, 001400, OPCDEF , 04, 002000, OPCDEF , 04, 003000, OPCDEF , 04, 101000, OPCDEF , 04, 103000, OPCDEF , 02, 040000, DR2 OPCDEF , 02, 140000, DR2 OPCDEF , 02VELEP UM;B  VLCLMA NCI R TEINPOK OCBLS OUVIRE PND A; )+R2,()+SP(V MO  PETYE AV;S )+R2,(R5 OVM N IOATINSTDEE OR CKEMA, ES;Y R2+,P)(S OVM O N;  1$ NEB ? GHOUHR;T R1D,ENSB#M MPC T LO SRECOR EACL; + 1)(R LRC M TE IANR FE;X )+R2,(1)(R OVM: 1$ RSTEINPOE OR CND A; P)(S,-R1 OVM N IOATINSTDEE AV;S P)(S,-R2 OVM E YPOTOTPRF ORTTA STOR TEINPO;1 ,RLKBBMS#V MO  RTTA STOT INPO; ) R2-( STT K OCBLE AGORSTA T GE; K BLETGL ALC L VELEG INSTNEO CRMAH US;P    H:IMPPAS SMLCNT: .BLKW   ;MCALL HIT COUNT XITSEC .IFT ENTSEC MIXED .WORD 0 SMLLNK: .WORD 0 .RAD50 /SML/ .BYTE 1,0 .RAD50 /SY/ .WORD SMLERR .BYTE 4,0 SMLFIL: .RAD50 /SYSMAC/ .RAD50 /SML/ .WORD 0,0 XITSEC .ENDC   ;XSML XITOVR .ENDC   ;XMACRO .IF DF OVLAY ENTSEC OVRBLD .MCALL .INIT, .STAT, .LOOK, .ALLOC, .TRAN, .WAIT OVRBLD:    ;OVERLAY BUILD/INIT .INIT #TRNLNK  ;INITST .ENDC .ENDM LDRMAP XMACRO  ;ALL GENERATED CODE (MACRO, REPT, ETC.) LDRMAP XSML  ;SYSTEM MACROS LDRMAP X45  ;PDP-11/45 FEATURES LDRMAP XFLTG  ;FLOATING POINT EVALUATION LDRMAP XEDABS  ;ED.ABS LDRMAP XEDAMA  ;ED.AMA LDRMAP XEDPIC  ;ED.PIC LDRMAP XEDFPT  ;ED.FPT LDRMAP XEDLSB  ;ED.LSB LDRMAP XEDPNC  ;ED.PNC LDRMAP XEDLC  ;ED.LC LDRMAP XEDWRP  ;ED.WRP LDRMAP XEDCDR  ;CARD READER FORMAT LDRMAP XZERR  ;"Z" ERRORS L, 050000, DR2 OPCDEF , 02, 150000, DR2 OPCDEF , 02, 030000, OPCDEF , 02, 130000, OPCDEF , 04, 003400, OPCDEF , 04, 103400, OPCDEF , 04, 101400, OPCDEF , 04, 002400, OPCDEF , 04, 100400, OPCDEF , 04, 001000, OPCDEF , 04, 100000, OPCDEF , 00, 000003,  , X45 OPCDEF 
, 04, 000400, OPCDEF , 04, 102000, OPCDEF , 0USMP N URETR: AXMMRE XTCNMA+,P)(S OVM ) R0,(XTCNMA OVM: 2$ 1$ BR  NKLI, NO; 0 ,R0)(R OVM S YE ; $ 2Q BE  N?AICHF OND;E  0)(R STT: 1$ ERNTOI PVESA;) SP-(0,RV MO C:MAEM R E IVATEG-NON NIFT XI ESTJU; X MAEMRL BP  GERATO SROAC MNTMEREEC;D  0)(R2C DE C:MAEC D N URETR E NCREFEREO CRMAT ENEMCRIN; ) R02( NCI: ACCMIN RNTURE  ITT AS PNTOI PL,EL CNKLIR EACL; + 2)(R LRC 2 ,RR0 OVM: 2$ INHA CEW NET;S XTCNMA),R0(V MO $: 1 O  (ONCE ONLY) .STAT #TRNLNK  ;TEST STATUS CMP (SP)+,(SP)+ ;PRUNE TWO, LEAVING WORDS/BLOCK MOV #OVRTBL,R4 ;POINT TO STARTING ADDRESS BLOCK MOV #OVRBKN,R5 ; AND STARTING BLOCK NUMBER TABLES CLR (R5)  ;ZERO FIRST ENTRY 1$: MOV (R4)+,R1 ;STARTING ADDRESS SUB (R4),R1  ;START OF NEXT NEG R1  ;MAKE POSITIVE ASR R1  ;CONVERT TO WORDS CLR R0  ;SINGLE PRECISION MOV (SP),R3  ;WORDS/BLOCK DIV R3,R0  ;COMPUTE NUMBER OF BLOCKS TST R1  ;REMAINDER? DRMAP XCREF  ;CREF SUPPRESSION .IIF DF DEBUG, .GLOBL DEBUG ;DEBUG VERSION .IIF DF DOSV4, .GLOBL DOSV4 ;DOS V4 COMPATIBLE .IIF DF KNIGHT, .GLOBL KNIGHT ;SET FOR DAVE'S TIMING TEST .IIF DF PDPV45, .GLOBL PDPV45 ;PDP-11/45 INSTRUCTIONS .IIF DF TRAPS, .GLOBL TRAPS ;ENABLE TRAPS FOR CALLS .IIF DF OVLAY, .GLOBL OVLAY ;ENABLE OVERLAYS .MACRO PARAM MNE, VALUE ;DEFINE DEFAULT PARAMETERS .IIF NDF MNE, MNE= VALUE .LIST MNE= MNE .NLIST .ENDM 4, 102400, OPCDEF , 00, 000257, OPCDEF , 00, 170000,  , X45 OPCDEF , 00, 000241, OPCDEF , 00, 000250, OPCDEF , 01, 005000, DR1 OPCDEF , 01, 105000, DR1 OPCDEF , 01, 170400, DR1, X45 OPCDEF , 01, 170400, DR1, X45 OPCDEF , 00, 000242, OPCDEF , 00, 000244, OPCDEF , 02, 020000, OPCDEF , 02, 120000, OPCDEF ;N  172R ROERS S YE ; $ 2I BH  M?OO;R 2)(R0,S+BAOLRP CM  OP TEW NTEPUOM;C 2)(RB,PM#B DDA 0 ,R2)(R OVM E AGORSTF OOP TTOT INPO, NO;2 ,ROPCTMA#V MO  ITE US, ES Y;  1$ NEB E AGRBGAN ICKLO BOR FSTTE;0 ,RXTCNMA OVM K OCBLO CRMAA T GE;   : LKTBGE RNTURE  ET SGSLA FNGVIEA LE,ITWR;+ 2)(R5,RB OVM: 3$ )+SP(T TS  NKLIW NET SE;) SP@(0,RV MO  LKTBGE LLCA  P)(S,-R2 OVM K IN LTOT INPO, NO;2 ,RMBBP#B SU  ES Y;  3$ NEB ? CKLO BISTHN IOMRO;2 ,R-1MB BEQ 2$  ; NO INC R0  ;YES, ROUND UP 2$: ADD (R5)+,R0 ;ADD PREVIOUS BLOCK NUMBER MOV R0,(R5)  ;SET NEW ONE CMP R4,#OVRTBL+ ;END? BLO 1$  ; NO .LOOK #TRNLNK,#TRNFIL,1 ;YES, LOOK IT UP MOV (SP)+,TRNSBN ;SET STARTING BLOCK NUMBER BNE 10$  ;BRANCH IF FOUND CMP (SP)+,(SP)+ ;NOT FOUND, PRUNE SURPLUS MOV (SP),R3  ;WORDS/BLOCK MUL R3,R0  ;COMPUTE NUMBER OF DSK WORDS MOV #64.,R3 DIV R3,R0  ;COMPUTE # OF 64. WORD BLOCKS .ALLOCPARAM CPL, 80. ;CHARACTERS PER LISTING LINE ; PARAM LPP, 56. ;LINES PER PAGE .DELETED PARAM LPP, 52. ;LINES PER PAGE 07.31.72 PARAM SRCLEN, 132. ;SOURCE STATEMENT LENGTH PARAM STKSIZ, 4000 ;STACK SIZE AND FUDGE FACTOR .SBTTL SECTOR INITIALIZATION ENTSEC IMPURE  ;IMPURE STORAGE AREA IMPURE: ENTSEC IMPPAS  ;CLEARED EACH PASS IMPPAS: ENTSEC IMPLIN  ;CLEARED EACH, 11, 173400,  , X45 OPCDEF , 11, 173400,  , X45 OPCDEF , 00, 000254, OPCDEF , 01, 005100, DR1 OPCDEF , 01, 105100, DR1 OPCDEF , 01, 005300, DR1 OPCDEF , 01, 105300, DR1 OPCDEF 
, 07, 071000, DR2, X45 OPCDEF , 11, 174400, DR2, X45 OPCDEF , 11, 174400, DR2, X45 OPCDEF , 06, 104000, OPCDEF , 00, 000000, OPCDEF , 01,BP#T BI $: 2T CNONCR CL $: 1 T IMWC BR  R5+,P)(S OVM $ 2L ALC 5 ,RCL.XCH#V MO  ERCTRAHA CNTREUR CCKTA SS,YE;) SP-(5,RV MO  NO ; $ 1I BM  G?INNDPES ARCHN IOATENATNCCOY AN; T CNONCC DE  EETRO CRMAN IERCTRAHA CTERI;W    T:IMWC C SEITX S IRPAE OR MOR FOMRO; 2 3* KWBL. F ELTS IERCTRAHA;C  1W LK.B  ERCTRAHA CD"WEROOR"BO TERNTOI;P  1W LK.B K:BLMA GR FEUF BNGWILOOL FTOR TEINPO; 1 KWBL.: NTAPGM ASPPIM ECTSEN  RNTURE  NTAPGM #TRNLNK,#TRNFIL,R0 ;GET CONTIGUOUS BLOCKS INC (SP)+  ;GOOD (RETURN= -1)? BNE 20$  ; NO, ERROR .LOOK #TRNLNK,#TRNFIL,1 ;YES, GET STARTING ADDRESS MOV (SP)+,TRNSBN ;SAVE IT MOV #OVRTBL,R4 ;PREPARE TO WRITE OUT MOV #OVRBKN,R5 3$: MOV #TRNBLO,R3 ;POINT TO OUTPUT TRAN BLOCK MOV TRNSBN,(R3) ;SET STARTING BLOCK NUMBER ADD (R5)+,(R3)+;ADD IN OFFSET MOV (R4)+,(R3) ;STARTING ADDRESS MOV (R4),R0  ;ENDING ADDRESS SUB (R3)+,R0 ;BYTE LENGTH ASR R0  ;! LINE IMPLIN: ENTSEC XCTPRG  ;PROGRAM INITIALIZATION CODE XCTPRG: MOV #IMPURE,R0 1$: CLR (R0)+  ;CLEAR IMPURE AREA CMP #IMPTOP,R0 BHI 1$ ENTSEC XCTPAS  ;PASS INITIALIZATION CODE XCTPAS: MOV #IMPPAS,R0 1$: CLR (R0)+  ;CLEAR IMPURE PART CMP #IMPTOP,R0 BHI 1$ ENTSEC XCTLIN  ;LINE INITIALIZATION CODE XCTLIN: MOV #IMPLIN,R0 1$: CLR (R0)+ CMP #IMPTOP,R0 BHI 1$ ENTSEC DPURE  ;MISCELLANEOUS D-SPACE PURE ENTSEC MIXED  ;MIXED" 005200, DR1 OPCDEF , 01, 105200, DR1 OPCDEF , 00, 000004, OPCDEF , 01, 000100, OPCDEF , 05, 004000, DR1 OPCDEF , 11, 177400, DR2, X45 OPCDEF , 11, 177400, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 11, 172400, DR2, X45 OPCDEF , 10,RV MO  NBETS T PNHR,C0)(R OVM ) R0(C AD  R5 SLA R TEACARCHN GIIR VRETOES;R 0)(R,@R5 VBMO  0)(R-T TS  ERCTRAHA CET;S R5),R0-( OVM S EMITD VESAO TERNTOI PET;S R0T,PNMAGV MO  NTMEGUARO CRMAE OVEM;R    G:ARRM N URETR: GXARGM ERNTOI PERFFBUW NEE AV;S NTAPGM0,RV MO  5ERSTGIRET SE;  R CHETS G ARF ORTTA STOT INPO;) R2,()+SP(V MO  ORATINRMTEL UL NET;S  2)(R@B LRC R TEACARCHD AN ;+ 0)(R5,RV MO  ERNTOI PVESA;+ 0)(R),R2(V MO $:$CONVERT TO WORDS MOV R0,(R3)+ ;PLACE IN BLOCK BEQ 4$  ;DON'T WRITE IF EMPTY .TRAN #TRNLNK,#TRNBLO ;WRITE SEGEMENT OUT .WAIT #TRNLNK  ;AWAIT COMPLETION BIT #140000,(R3) ;ANY ERRORS? BNE 21$  ; YES 4$: CMP R4,#OVRTBL+ ;FINISHED? BLO 3$  ; NO 10$: CMP (SP)+,(SP)+ ;FINISHED, PRUNE ".LOOK" RETURNS TST (SP)+  ; AND WORDS/BLOCK INC OVRFLG  ;DON'T RETURN MOV #OVRXCT,PRGLIM ;SET NEW STACK BASE RETURN 20$: CLR -(SP) MOV #16% MODE SECTOR ENTSEC SWTSEC  ;SWITCH TABLE SWTBAS:    ;MARK THE BASE .MACRO GENSWT MNE,ADDR ;TO GENERATE ENTRIES ENTSEC SWTSEC XXX= . .ASCIZ /MNE/ .= XXX+2 .WORD ADDR XITSEC .ENDM ENTSEC EDTSEC  ;ENABLE/DSABLE ARGUMENTS EDTBAS: .MACRO GENEDT MNE,SUBR,INIT ENTSEC EDTSEC ED.'MNE= 1 .REPT <.-EDTBAS>/4 ED.'MNE= ED.'MNE+ED.'MNE .ENDR .GLOBL ED.'MNE .RAD50 /MNE/ .IF NB SUBR .WORD SUBR .IFF .WORD &4, 176400, DR2, X45 OPCDEF , 11, 172400, DR2, X45 OPCDEF , 01, 170100,  , X45 OPCDEF , 00, 170004,  , X45 OPCDEF , 00, 170003,  , X45 OPCDEF , 10, 006400,  , X45 OPCDEF , 01, 106500,  , X45 OPCDEF , 01, 006500,  , X45 OPCDEF , 11, 171400, DR2, X45 OPCDEF , 11, 171400, DR2, X45 OPCDEF , 02, 010000, DR2 OPCDEF , 02, 11000022 SOO ;D R0K,BLMA#G OVM D ZELIIAITINF ICHANBR; $ 22 NEB R TEINPOE AV SRG ANTREUR CET;G R0T,PNMAGV MO $:21 AR ROER $:20 1$2R B G ARRMN ISTPAE OV MSTMU;5 ,R000010#S BI  <" "STPAT INPO; ) SP(C IN  GHOUHR TOT NIFP OO;L  1$1L BP  R1 NCI: 2$ 11 RC DE  NTOU CELEV LNTMEREEC DS,YE; 1 RC DE  INGA ARY TO, N;  1$1E BN  "?">, NO; 4 ,RR5 MPC S YE ; $ 12 EQB ? <" "; 3 ,RR5 MPC L EOF IORRR E;  0$2Q BE  HRTCGE $:11 NTLEVAUIEQ" ">; 4 ,RR5 OVV40,-(SP) BR 24$ 21$: CLR -(SP) MOV #2207,-(SP) 24$: IOT .EXIT .WORD 0 .WORD 13  ;OPENO TRNFIL: .RAD50 /MACRO / .RAD50 /OVR/ .WORD 0 .WORD 0 TRNBLO:    ;TRAN OUTPUT BLOCK .BLKW   ;DEVICE BLOCK NUMBER .BLKW   ;MEMORY ADDRESS .BLKW   ;WORD COUNT .WORD 2  ;FUNCTION (OUTPUT) .WORD 0  ;NUMBER OF WORDS NOT TRAN'D ENTSEC MIXED .WORD 0 TRNLNK: .WORD 0 .RAD50 /OVR/ .WORD 1 .RAD50 /SY/ XITSEC )CPOPJ .ENDC XITSEC .IIF NB INIT, EDINIT= EDINIT!ED.'MNE .ENDM GENEDT .IIF NDF EDINIT, EDINIT= 0 ENTSEC CNDSEC  ;CONDITIONAL TABLE SECTOR CNDBAS:    ;BASE OF CONDITIONAL ROLL .MACRO GENCND MNE, SUBR, TOGGLE ;GENERATE CONDITIONAL ENTSEC CNDSEC .RAD50 /MNE/ .IF B  .WORD SUBR .IFF .WORD SUBR+1 .ENDC XITSEC .ENDM XITSEC   ;UNNAMED IS STANDARD .SBTTL SUBROUTINE CALL DEFINITIONS .IF *, DR2 OPCDEF , 01, 106600, DR1, X45 OPCDEF , 01, 006600, DR1, X45 OPCDEF , 07, 070000, DR2, X45 OPCDEF , 11, 171000, DR2, X45 OPCDEF , 11, 171000, DR2, X45 OPCDEF , 01, 005400, DR1 OPCDEF , 01, 105400, DR1 OPCDEF , 01, 170700, DR1, X45 OPCDEF , 01, 170700, DR1, X45 OPCDEF , 00, 000240, OPCDEF , 00, 000005, OPCM T ENALIVQU E<" "NO; 3 RM CO  ERNTOI PEW NET;S P)(S),R2(V MO  LLNUF IORRR;E  0$2Q BE  ITS ASYP B","^;   NBETG: 0$ 1 $ 1R B N OVEMO, ES;Y   HRTCGE  NO ; $ 21 EQB ? ERCTRAHA CNGTIINPR;) R5L(TBCTC,SMT.-COM.CCTC-.PCT#B ITB: 1$ ES Y;  0$1Q BE  W?ROARP-;U AR.UCH,#R5 MPC S YE ; $ 11 EQB ? UETR; 3 ,RR5 MPC 4 ,RAB.RCH#V MO  >"" ;GENERATE NUMERIC TRP'OFFSET= TRAP+<.-TRPTBL> .WORD NAME .MACRO NAME +TRP'OFFSET .ENDM .ENDM XITSEC .ENDM .ENDC .IIF DF OVLAY, GENCAL CALOVR GENCAL SAVREG GENCAL EXPR GENC.DEF , 01, 006100, DR1 OPCDEF , 01, 106100, DR1 OPCDEF , 01, 006000, DR1 OPCDEF , 01, 106000, DR1 OPCDEF , 00, 000002, OPCDEF , 03, 000200, DR1 OPCDEF , 00, 000006,  , X45 OPCDEF , 01, 005600, DR1 OPCDEF , 01, 105600, DR1 OPCDEF , 00, 000277, OPCDEF , 00, 000261, OPCDEF , 00, 000270, OPCDEF , 00, 170011,  , X45 OC S ERSTGIREH ASST;  G REAVS: GFARGM ITEXT US JS,YE ; X RGMAGQ BE  LLNUR FOT ES;T   RGTATS  NTMEGUARO CRMAT GE;   : RGMAG NTMEGUARE ORSTRE, OK; G ARRM MPJ: DTCI TN IOITNDCOE GLOG TE,LSFA; 3 RM CO F:IDTC INGA ARY;T  1$ BR  ERNTOI PRG ASTIR FCEANDV;A  R1 NCI R TEACARCHT EX NHE TET GO,;N   HRTCGE  OWSHD OO GS,YE ; T IDTC EQB ? EDSHNIFI, ES;Y  R5 STT O N;  DFCITE BN  H?TCMA; 5 ,RR0 MPC: 2$ ITR EACL, ES;Y  R0 LR0@ % @  ~@r~@~%@\!E~ڝ42}s: s: :@@AW  H _ب8@K09@KK@KK@K@K@K@~RKf@KK zQD @R@@R@8@ S@S%@S@S @pTpT@8 T@pT@T%@q~ʞOX OX OXOX%Y[q`"r@ r @r r sssw w ~B;wwww w1AL TERM GENCAL RELEXP GENCAL RELTST GENCAL ABSEXP GENCAL ABSTST GENCAL ABSERR GENCAL GLBEXP GENCAL GETSYM GENCAL SETSYM GENCAL GETR50 GENCAL SETR50 GENCAL TSTR50 GENCAL GETNB GENCAL SETNB GENCAL GETCHR GENCAL SETCHR GENCAL GSARG GENCAL TSTARG GENCAL SETIMM GENCAL SETDSP GENCAL STCODE GENCAL SSRCH GENCAL OSRCH GENCAL MSRCH GENCAL LSRCH GENCAL SETPF0 GENCAL SETPF1 GENCAL DNC GENCAL CVTNUM2PCDEF , 00, 170001,  , X45 OPCDEF , 00, 170002,  , X45 OPCDEF , 00, 170012,  , X45 OPCDEF , 00, 000262, OPCDEF , 00, 000264, OPCDEF , 08, 077000, DR1, X45 OPCDEF , 13, 000230,  , X45 OPCDEF , 00, 170005,  , X45 OPCDEF , 00, 170006,  , X45 OPCDEF , 12, 176000, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 175C O N;  2$ NEB ? STLAE THT IIS; 2 ,RR1 MPC D ELFIT RSFIM RO FERCTRAHA CET;S  R0),R1(B OVM: 1$ RRBETC EQB T EX NHE TET;G  RGMAGL ALC G ARS HI TRNTURE; G ARRM LLCA  ORATINRMTEO TERNTOI;P R2),R0-( OVM ) R0-( STT R TEINPOR TEACARCHE AV;S R1T,PNHRCV MO  RG ASTIR FTELASO;I  GFARGM LLCA  RG ALLNUF IORRR;E  RRBETC EQB L NAIOITNDCO" DNFI"I;    D:CI T N URETR: RXBETC TYGHAU;N  AR ROER R:ERCB T E LSFAE LS;E  DFCITR B R TEMILIDET ANGTIINPOF I4%w@8wK wwy~Lyyyy@yh@~y@y &@y&@y`'@y@y@y@yfyy} z@ z@ z%@Yz z ~2d @ %@}j@x;1^;B\;į\E\XH_ti}(֯~H֯J֯֯x*֯x֯xׯ}گrlޯp! P$^tl!8nnd5 GENCAL R50UNP GENCAL MOVBYT .MACRO SAVXPR  ;SAVE REGS AND SET EXPRESSION REGS JSR R4,SAVXPR .ENDM GENCAL SETXPR .IF NDF PDPV45 .MACRO MUL SRC,DST .IIF DIF ,, .PRINT ;ILLEGAL ARGS CALL MUL .ENDM .MACRO DIV SRC,DST .IIF DIF ,, .PRINT ;ILLEGAL ARGS CALL DIV .ENDM .MACRO SOB REG,ADDR DEC REG BNE ADDR .ENDM .ENDC    ;ROLL HANDLER CALL6400, DR2, X45 OPCDEF , 12, 176000, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 174000, DR2, X45 OPCDEF , 12, 175000, DR2, X45 OPCDEF , 12, 174000, DR2, X45 OPCDEF , 01, 170200, DR1, X45 OPCDEF , 00, 170007,  , X45 OPCDEF , 01, 170300, DR1, X45 OPCDEF , 02, 160000, DR2 OPCDEF , 11, 173000, DR2,UETR; T IDTC EQB S NKLA BNY ASSPABY;  B TNSE  NTMEGUARE ATOLIS; F RGMAGL ALC L UL NIFK ;O  RXBETC EQB L NAIOITNDCO" FB"I;    B:TC F, IDTC F,DI NDNCGE  IDTC N,ID NDNCGE  F, CBT, NB NDNCGE  CBT, BD CNENG RNTURE $: 1R ROER, NO ; O ORRRE P PO, ES Y;  1$ NEB ? ROAC MIN;X MEND,CVLCLMA OVM T XI EATPEREO/CRMA;   : ITEX M X PETYNR B A ORRRE: ERYPNT NTMEGNSIASH UGROTHT XI;E  TFGMAS MPJ E LUVAT SED AN ;E G~"n!n%n+n,n.nKnKn Nn&XnHXn[n} n}nq%v~zd0zxd.鰼RZyض   ,b |1q@34L, 11, 173000, DR2, X45 OPCDEF , 01, 000300, DR1 OPCDEF , 01, 006700, DR1, X45 OPCDEF , 06, 104400, OPCDEF , 01, 005700, OPCDEF , 01, 105700, OPCDEF , 01, 170500,  , X45 OPCDEF , 01, 170500,  , X45 OPCDEF , 00, 000001, OPCDEF , 05, 074000, DR2, X45 DIRDEF , DFLGBM DIRDEF , DFLGBM DIRDEF w   f5eU@  [*   & * G &( 8L'4e Q$ BBB"   U@ U e  "U%Gef. U U Bb 0 * B.&0 M &0 & IALL ZAP .ENDM GENCAL INSERT  ;INSERT (MUST BE PRECEDED BY ONE OF    ;THE ABOVE TO SET POINTERS) .IF NDF XCREF GENCAL CRFREF  ;CROSS REFERENCE A SYMBOL GENCAL CRFDEF  ;DITTO, DEFINING IT .IFF .MACRO CRFREF  ;DUMMY IF NO CREF .ENDM .MACRO CRFDEF .ENDM .ENDC .MACRO CALL ADDRESS JSR PC,ADDRESS .ENDM .MACRO RETURN RTS PC .ENDM .MACRO PUTKB ADDR ;LIST TO KB JSR R5,PUTKB .WORD ADDR .EJSECT> DIRDEF  DIRDEF , DFLGEV DIRDEF ; ;07.31.72 DIRDEF , DFLGBM DIRDEF  DIRDEF  DIRDEF  DIRDEF  DIRDEF , DFLCND DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF  DIRDEF  DIRDEF  DIRDEF , DFLGEV, XFLTG DIRDEF , DFLGEV, XFLTG DIRDEF  DIRDEF  Kw :wt&T~ !)  z  `x)5l) w  >(  % erx !((7 (}4d"~z6& t w B!e )7')'  Nz eeE6. h 6!V'  &!~n/ .  ! w w : wRB   H&/5w & &&   e~j@ F ^   ( 4RR J& &CTRAHA CXTNEE THT GE;  R CHETG T UNCOP UM;B  R3 NCI: 1$ ES Y;  2$ EQB N IOETPLOM COR FSTTEK ICQU; 5 RT TS  LLNUF IROZE ; X PETYNQ BE  NTMEGUARE ATOLIS; G ARGM LLCA  OLMBSYO NIDR ROER ; R PETYNQ BE  RGSAGL ALC S ERCTRAHA COFR BEUM;N    R:CH N X PETYNR B R BEUM NET;S R32,T+CNSBMV MO  NGSIIS MIFR ROER; R PETYNQ BE  OLMBSYA T GE; G ARGS LLCA  TSENUMRG AOFR BEUM;N    G:AR N T XIME E,YPNT R,CHN, RGNA BLLO.G  R OVMNDM .MACRO PUTLP ADDR ;LIST TO LP JSR R5,PUTLP .WORD ADDR .ENDM .MACRO PUTKBL ADDR ;LIST TO KB AND LP JSR R5,PUTKBL .WORD ADDR .ENDM GENCAL PUTLIN  ;GENERIC OF ABOVE .MACRO SERROR NUMBER JSR R5,SERROR .WORD 2000!NUMBER .ENDM .MACRO ERROR ARG ; SERROR <''ARG> BIS #ERR.'ARG,ERRBTS .ENDM .MACRO BRJMP ADDR .IF GE .- .IF LE .--254. BR ADDR .MEXIT .ENDC .ENDC JMP ADDR .ENDM .MACNDIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF  DIRDEF , DFLMAC, XMACRO DIRDEO e5``&7N& (ҕ ~ 7* * R κ* 7 6+7 N+ *&7 && &  &]+w f\fw  % <+ 7 + % ~Z,)&)&@ &    . **w& T ff7 %t v v%-p%N% w ~ҥ) 'ޥ''7 '' ) ! ! f 7% )7`))7 )7 ) $7 x)V~Jη)j) )eH)v  R)&5'U ITX $ 4R B R CHETG: 9$ NTNCCO NCI: 8$ 1$ BR  INDLEN LLCA  9$ NEB T IMWC LLCA  8$ EQB L XCH.#C5,RP CM $: 7$ 6T BG  50TRGE $:61 MTCIWL ALC $ 61 NEB 4 RT TS $: 6M SYETS: 5$ NTNCCO ECD T IMWC LLCA  NTNCCO ECD 5 RG NE  R5D,UPOLRV MO  5$ EQB 4 ,RR0 OVM L ROMADN CAS $ 7Q BE  YMTSGE $: 4R CHETS T PNHR,CUFNBLI#V MO $: 3C ND.E  REMOR FOT ES TS,YE; T TSMLSL ALC O N;  3$ EQB ? EDSTNE, ES;Y R0C,SMFL#D ITB O N;  3$ EQBQRO CHSCAN TABLE ;CHARACTER SCAN JSR R5,CHSCAN .WORD TABLE .ENDM .MACRO GCHTBL CHAR, ADDR ;GEN CHARACTER SCAN TABLE .BYTE ADDR-.-2, CHAR .ENDM ENTSEC TXTBYT ERRMNE: .IRPC CHAR, < ABEILMNOPQRTUZ> ERR.'CHAR= 1 .REPT <.-ERRMNE> ERR.'CHAR= ERR.'CHAR+ERR.'CHAR .ENDR .ASCII /CHAR/ .ENDM XITSEC .MACRO SETNZ ADDR ;SET ADDR TO NON-ZERO FOR T/F FLAGS MOV SP,ADDR .ENDM .MACRO INIT FILE ;INIT A FILE MOV #FRF , DFLMAC, XMACRO DIRDEF , DFLGEV DIRDEF  DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF , DFLSMC, XMACRO DIRDEF  , , XMACRO DIRDEF  , , XMACRO DIRDEF  , , XMACRO DIRDEF  DIRDEF  , , XMACRO DIRDEF  DIRDEF ; 07.31.72 DIRDEF  DIRDEF  DIRDEFS)@ ]6)2) U) /D D` W! W! W!  )RE~¦@ 5@5@$e JUR) F) 0(>$5x$7"(Φ(  (( ! ! f2~:2'v(Q$  D +f>(  -.(.(  ⋁w(U(5A jU (R~ wj 7 H* Uh(& d#R' :#H V(%5V(A #>55t#'B(5f#4(+5R#E(=$~*F#(!n$ 5  O?CRMAM TEYS SIN; T CNMLST TS  MLXS DF NIF. : 3$ 6 N URETR: 2$ 3$ PLB 3 RC DE  R3 ECD $ 3E BN  UEAL,VDMEN#P CM  R3 NCI $ 63 EQB 0 ,RACLMDF#T BI  LITCSE LLCA  AGFLLCD,.MLC#S BI  2$ NEB N LIETGL ALC: 1$ R3 LRC 6 VRTOEN  T:OMPR R OVITX T XI END AEETRN ITERI;W  MTCIWP JM  IISC ATOT ERNVCO;5 ,R.0IG#D DDA R BEUM NET;G  R5+,P)(S OVM: 1$ 4E RSCURE, NO ; $ 40 LLCA  O?ER ZTON OW;D  1$4Q BE  ERMBNUW NET SEUILE'CSI,R4 CALL INIT .ENDM .MACRO OPENO FILE ;OPEN AN OUTPUT FILE MOV #FILE'CSI,R4 CALL OPENO .ENDM .MACRO WAITOF LNKBLK,BUFHDR ;WAIT ON OUTPUT FILE JSR R5,WAITOF .WORD LNKBLK,BUFHDR+2 .ENDM .IF DF DEBUG .MACRO EMT NUMBER ;TRAP THE EMT'S MOV #104000+NUMBER,-(SP) CALL TSTEMT .ENDM .ENDC .SBTTL PARAMETERS TAB= 11 LF= 12 VT= 13 FF= 14 CR= 15 SPACE= 40 CH.IOR= '! CH.QTM= '" CH.HSH= '# CH.  DIRDEF , DFLGEV DIRDEF  DIRDEF , DFLMAC, XMACRO DIRDEF  DIRDEF  WRDSYM: DIRDEF <WORD >, DFLGEV DIRDEF <WORD2>, DFLGEV, XFLTG ;07.31.72 PSTTOP:    ;TOP LIMIT .END �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������W�2#B ҕ �   P'j'2$  M?' %5�"[N  ��������~�. R  5`�ʕ'�5@�ʕG� _� H5�" &ҕ � & �@'  ?.'+��������~�( 5$�H"  � P-!!!!w�d' �H H5�"  tΠʕ � ҕ �N5�! +��������~� <ҕ � R5�!�  5`�ҕ'�5@�G�ҕ �  4( HX&E� L!ы7 B&R@   �������; 1 ,RR0 OVM R DEINMAREK ACST;) SP-(1,RV MO  R03,RV DI  R0 LRC R TEERNVCOR BEUM NROAC;M    $:40 DCEN. N URET;R  4$ BR  R5+,P)(S OVM S EG RRETOES;R R3+,P)(S OVM T IMWC LLCA  R5 LRC " "$E ITWR; T IMWC LLCA  R5L,DOH.#C OVM I CIASO TRTVEON;C  0$4L ALC L MACIDET IKEMA; 3 ,R0.#1 OVM 3 RND;A P)(S,-R3 OVM R HA CNTREUR CCKTA;S P)(S,-R5 OVM . 64T ARTTA;S R1>,-164D<#^ DDA T ICHET;F R1S,BASGLV MO  NTOU CMPBU, OLMBSYD TERANEGE; S BASGLY�DOL= '$ CH.PCT= '% CH.AND= '& CH.XCL= '' CH.LP= '( CH.RP= ') CH.MUL= '* CH.ADD= '+ CH.COM= ', CH.SUB= '- CH.DOT= '. CH.DIV= '/ CH.COL= ': CH.SMC= '; CH.LAB= '< CH.EQU= '= CH.RAB= '> CH.QM= '? CH.IND= '@ CH.BSL= '\ CH.UAR= '^ LET.A= 'A LET.B= 'B LET.C= 'C LET.D= 'D LET.E= 'E LET.F= 'F LET.G= 'G LET.O= 'O LET.Z= 'Z DIG.0= '0 DIG.9= '9 ������������������������DEFFLG= 000010 RELFLG= 000040 GLBFLG= 000100 REGFLG= 000001 LBLFLGZ�������������������������CALOVR:    ;OVERLAY CALLING ROUTINE ; MOV @(SP),OVRADR ;STORE ADDRESS ; ADD #2,(SP)  ;MOVE PAST IT MOV @(SP)+,OVRADR MOV OVRSIP,-(SP) ;STACK SECTOR IN PROGRESS MOV R0,-(SP) ;SAVE REGISTERS MOV R1,-(SP) MOV #OVRTBL+2,R1 ;POINT TO BASES OF OVERLAYS 1$: CMP OVRADR,(R1)+ ;TEST FOR FIRST OUT OF RANGE BHIS 1$ TST -(R1) MOV -(R1),R0 ;GET BASE SUB #OVRXCT,R0 ;COMPUTE SWAPPED-IN ADDRESS SUB R0,OVRADR ;SAVE IT MOV R1,OVRSIP [��~� 7 !7 !�' �%]%= XW!:�VW!=�R  w�  w�` � W!$� jW!:�  %5K��������~�U�% 5 >J X �5�U�% � W!=� W!:�  @B � �;-2 %- r  ��������~�5� ( E�U �7P  5�� -  U�%U�  d U�$ b$$w� z ff > *��������~�rH  5� $-F% U�ff |EU  ыwwU@�$  �  055� UC IN $:30 SBDLXE DF NIF. $ 5R B 5 ,R)+SP(V MO  GSREE ORSTRE;3 ,R)+SP(V MO  MTCIWL ALC 5 RR CL  IISC ATOT ERNVCO; $ 40 LLCA  R1O TUEAL;V  R10,RV MO  IXAD RNTREUR CINT OUK EABR;3 ,RIXADCR OVM ) SP-(3,RV MO  ERCTRAHA CCKTA;S P)(S,-R5 OVM S AB, ONSIESPREXE ATLUVA;E   XPSEAB  SSPABY, \" ";  B TNGE $:20������������������������ N URETR 0 ,R)+SP(V MO $:12 AGFLLCC,.MLC#S BI $:11 2$1R B L BELAY NL OSTLI, ES;Y DLENLC0,RV MO  NELIE IRNT ESSREPPSU]�= 000002 MDFFLG= 000004    ;RLD TYPES RLDT00= 00 ; ABSOLUTE DATA RLDT01= 01 ; INTERNAL RELOCATION  TST #C RLDT02= 02 ; GLOBAL RELOCATION  TST #G RLDT03= 03 ; INTERNAL DISPLACED RELOCATION TST ABS RLDT04= 04 ; GLOBAL DISPLACED RELOCATION TST X RLDT05= 05 ; GLOBAL ADDITIVE RELOCATION TST #X+6 RLDT06= 06 ; GLOBAL ADDITIVE DISPLACED RELOCATION TST #X+6 RLDT07= 07 ; NEW CSECT RLDT10= 10 ; SEQUENCE BREAK RLDT11= 11 ; LIMIT RLDT15= 15 ; SECTOR ADDITIVE R^�;SET "IN PROGRESS" CALL 2$  ;SWAP IN, IF NECESSARY MOV (SP)+,R1 ;RESTORE REGISTERS MOV (SP)+,R0 CALL @OVRADR  ;CALL IT MOV (SP)+,OVRSIP ;RESET PREVIOUS SECTOR IN PROGRESS BEQ 5$  ;BYPASS IF RESIDENT 2$: MOV R0,-(SP) ;SET TO TRAN MOV R1,-(SP) MOV OVRSIP,R1 CMP R1,OVRSIC BEQ 4$ MOV #TRNBLI,R0 MOV OVRBKN-OVRTBL(R1),(R0) ADD TRNSBN,(R0)+ MOV #OVRXCT,(R0)+ MOV (R1)+,(R0) NEG (R0) ADD (R1),(R0) ASR (R0)+ .TRAN #TRNLNK,#TRNB_��`$5� Z$ <��������~��  H�^$ nwM$�Ew4$ & f Af�E� R� w$ Ί� .'1P�  '@�E�%P�%E��������~�b% 5�E%�pE%E%�% � A A �5�U�@#�� 5U�z#E� Q] X ��������~�ڬ e�5�U�J#��& L <# ׭�  � � h F�� 6� � v ��  h��������~�R ^0U�"@�7 L "& W!@� 5�U�"U� JW!#� >%, NO ; $ 11 EQB ? ELAB L AWEE AV HS,YE;0 ,RNDLELB OVM O N;  2$1Q BE  N?IOSSREPPSUL AL CROAC;M SKMALCC,.MLC#T BI  R5 OMC T IMWC LLCA  R5 OMC: 0$ 1 $ 6R B T IMWC LLCA  R5 LRC $ 10 EQB T IMWC LLCA $: 7R CHETG T CNRGAC IN $: 6 $ 1R B E ONR VE OIT BONTIRANEGEE OV;M  SBCGMA SLA: 5$ RGMARL ALC: 4$ 3$ BR  HRTCGE  4$ EQB T IMWC LLCA $: 3: 2$ DCEN. S YE ; $ 30 MIB ? EDSTUEEQ RONTIRANEGE, NO; B GSACMT TS  SBDLXE DF NIF. S YE ;a�ELOCATION TST #O RLDT16= 16 ;SECTOR ADDITIVE DISPLACED RELOCATION TST #O+6 RLDT17 = 17 ;INTERNAL RELOCATION PACKED PHYSICAL 08.03.72 ; .PACK X 08.03.72 GSDT00= 00*400  ; OBJECT MODULE NAME GSDT01= 01*400  ; PROGRAM SECTION NAME GSDT02= 02*400  ; INTERNAL SYMBOL TABLE GSDT03= 03*400  ; TRANSFER ADDRESS GSDT04= 04*400  ; SYMBOL DECLARATION GSDT05= 05*400  ; LOCAL SECTION NAME GSDT06= 06*b�LI .WAIT #TRNLNK BIT #140000,(R0) BEQ 3$ SERROR 207 3$: MOV R1,OVRSIC 4$: MOV (SP)+,R1 MOV (SP)+,R0 5$: TST R0 RETURN ENTSEC MIXED TRNBLI: .BLKW .BLKW .BLKW .WORD 4 .WORD 0 XITSEC ������������������������ ENTSEC MIXED OVRSIC: .WORD 0  ;SECTOR IN CORE OVRSIP: .WORD 0  ;SECTOR IN PROGRESS OVRADR: .WORD 0  ;OVERLAY ADDRESS OVRFLG: .WORD 0  ;SET WHEN OVRBLD COMPLETED TRNSBN: .WORD 0  ;TRAN STARTING BLOCK ADDRESS Ec� �"  U�^W!-� !! W!(���������~�ʭ �U �SW!(� �W!+� U�F5�U�@ 5  W!(�5�3 5�`5@�5�JU�U7� ��������~�B|�5�U�!E�ffff �PU0� &� �� U� X ,W!)�U�!� B�7  !˵@�1Q˵ �0ы��������������~�s,7 ˵@�!Q[ыʋыE�& e mz$7&7$ $ m( 7  ы5�bɋ  W W @��������~�2U��!J ԋ� � �U� $ 2E BN  S?NTMEGUARY AN; 5 RT TS  NTMEGUART GE; F RGMAGL ALC S YE ; $ 20 EQB ? \" ";5 ,RSL.BCH#P CM $: 9H UGROTH, NO ; $ 10 EQB ? FTLEF UFSTD TERANEGEY AN, LLNU; B GSACMT TS  LLNUN-NOF IOK; $ 9E BN  MAOM CNY ASSPABY;  G ARSTT $ 10 OSBL  NTGCARX,MARGAP CM $: 1$ 7E BN  R3 STT ) SP-(0,RV MO  LKTBGE LLCA  NTGCAR LRC 6 VRTOEN  F:MCRO P3 RR CL C:OMPR������������������������ R OVITX N URETR K ACSTE UNPR; + P)(S STT: 3$ 1$ BR e�400  ; VERSION IDENTIFICATION BLKT01= 01  ;GSD BLKT02= 02  ; GSD END BLKT03= 03  ; TEXT BLOCK BLKT04= 04  ; RLD BLOCK BLKT05= 05  ; ISD BLKT06= 06  ; MODULE END OCTLEN= ^D<8*6> LINLEN= SRCLEN OBJLEN= 42. RLDLEN= 42. BPMB= 8.*2  ;BYTES PER MACRO BLOCK SB.ILE= 001  ;INVALID LINE ERROR SB.CSE= 002  ;CHECK SUM ERROR SB.PFE= 004  ;PARITY FORMAT ERROR SB.DPE= 040  ;DEVICE PARITY ERROR SB.EOF= 100  ;EOF SB.EOM= 100  ;EOM    ;DIRECTIVE f�NTSEC MIXED OVRLEN= 0 OVRTBL: XXX= 0 .RADIX 10 .REPT NUMOVR XXX= XXX+1 .IRP N,<\XXX> ENTSEC OVR'N .IIF GT .-OVR'N'B-OVRLEN, OVRLEN=.-OVR'N'B ENTSEC MIXED .WORD OVR'N'B .ENDM .ENDR .RADIX 8 ENTSEC OVRBLD OVRXCT= .-OVRLEN  ;START OF EXECUTION AREA .GLOBL OVRXCT ENTSEC MIXED .WORD OVRBLD OVRBKN: .BLKW NUMOVR+1  ;PHYSICAL BLOCK POINTERS XITSEC .ENDC ������������������������ .SBTTL FIN ENTSEC IMPURE  ;CLOSg� Հ�� � �  5�U@�  BU� �  ��������~�  @w�: p� N J ^� �  \3U �* >  * w�R  � ��������~�"5�V7 7  � * �   � �  � U��7 FJҋ ��������~�P ̡ɕ �wD � \ R( $ 5�  6   �-� � � ��������~� �� �� IT BYM SEDATEREN GFTHI;S  P)(S ORR C CL  LLROA DMO TNDPEAP; L ROMADD ENPPA T ENUMRG AICOLMBSYT GE; F RGSAGL ALC: 2$ ITS ASYP;B   NBETG T BIR PERO PET SS,YE;B GSAC,MP)(S ISB O N;  2$ NEB ? PETYD TERANEGE, ES;Y R5M,.QCH#P CM  MEHOO GND AITQU, NO ; $ 3Q BE  S?RG AREMOY AN;  G ARSTT: 1$ IT BOLMBSYD TERANEGET RSFIK ACST;) SP-(0,0000#1 OVM N ERTTPAT BID TERANEGER EACL; B GSACMR CL  TSENUMRG ATHWIT ARSTH ESFRA T GE; T CNRGAR CL  LLROT ENUMRG AMYUMi�FLAGS DEFINED IN PST .GLOBL DFLCND, DFLMAC, DFLGEV, DFLGBM, DFLSMC ������������������������ .SBTTL ROLL DEFINITIONS .MACRO GENROL NAME, BASE, TOP, SIZE ENTSEC ROLBAS NAME'ROL= .-ROLBAS .WORD BASE ENTSEC ROLTOP .WORD TOP ENTSEC ROLSIZ .WORD SIZE*2 XITSEC .ENDM ENTSEC ROLBAS  ;ROLL BASE ROLBAS: ENTSEC ROLTOP  ;ROLL TOP ROLTOP: ENTSEC ROLSIZ  ;ENTRY SIZE ROLSIZ: XITSEC    ;START OF TABLE TO BE FILLED IN GENROL SYM, ��E OUT IMPURE SECTORS ENTSEC IMPPAS ENTSEC IMPLIN IMPTOP: ENTSEC XCTPRG ENTSEC XCTPAS ENTSEC XCTLIN RETURN   ;RETURN FROM ANY OF THE ABOVE ENTSEC SWTSEC SWTTOP: ENTSEC EDTSEC EDTTOP: ENTSEC CNDSEC CNDTOP:    ;TOP OF CONDITIONAL ROLL XITSEC   ;BE NEAT .END START ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������k� � <e0�J � $7 R � t V� � &�U�U� 4  <�CU���������~�� Z  " �C!w�0   ` � E��U�� �  � �U�N7 ��e�E��������~��� B �7 �7 UA� z F�  L  ` ,`[!7 7  D � �BGW!<�! x@@B!��������~�z   b.�E 0� @� ( ) �& �  �  (�U�h&� e  W �  x����� DARLE;C  OLARDM APZ 6 VRTOEN  GSARO CRMAS ESOCPR;   : MARO�P���������������������� � VRTOXI  RNTURE  AR ROER $: 1 F PTRE MPJ 5 ,RRP.IMT#V MO  MTROPL ALC N LINDEL ALC ) SP-(0,RV MO  P)(S,-R3 OVM ) SP-(T,CNRGAV MO  )+R2(R CL  LKTBGE LLCA  RGMARL ALC 3 ,RR0 OVM F MCROPL ALC S NTMEGUARF OERMBNUY AN;X MARG,A777717#V MO  1$ EQB G ARGM LLCA  RGMARL ALC A OMPR LLCA  1$ EQB G ARGM LLCA  6R OVNTE : RP I3 RC IN C:RP I C RPI, RPIm� 0, 0,4 ;SYMBOL TABLE .IF NDF XMACRO GENROL MAC, 0, 0,4 ;MACRO ROLL GENROL DMA, 0, 0,2 ;DUMMY ARGUMENT ROLL .ENDC .IF NDF XEDLSB GENROL LSY, 0, 0,4 ;LOCAL SYMBOL ROLL .ENDC GENROL SEC, 0, 0,5 ;SECTION ROLL GENROL COD, 0, 0,4 ;CODE ROLL GENROL DUM, 0, 0,0 ;DUMMY (SEPARATES VARIABLE FROM FIXED) GENROL CND,CNDBAS,CNDTOP,2 ;CONDITIONAL ARGUMENTS GENROL SWT,SWTBAS,SWTTOP,2 ;COMMAND STRING SWITCHES n�����������ққ.Dԛ>��kQr�����������~�қ�� ,.w {/ �ͱ,1I �/ -F�!//�!w S�! S�f>��������~�J�0ŝ)0 .ҕ?� w @w�t0 "�@)*  $  `)5�) w  f( E��������~�œ % e !<(>(7 (}�d&  �w B�!e *7'*'  N$ ��������~�:�eeE�f. h \!~'  L!/<. o����~� �U�>�� � �� f > >&f&f& b@ABCe) # E�� e8�E��������~�jU� ��      B A @ �U�bL ~_�   bj! W ZA�%+���������~�%-��l �5� Z  j 0�bab b b m<< %.�w ,ށ%E�  � U�z b ��������~�Z7`�@@T@T@Th 1"3 �  �e�     � � 5� � � � BLLO.G ������������������������ R OVITX N URETR R CHETS E ATECPLRED AN ;+ 2)(R+,2)(R OVM T UNCOT ENUMRG AINL IL;F 2)(RT,CNRGAV MO  ERNTOI PNTMEGUARD AN ;+ 2)(R3,RV MO  ERNTOI PXTTET SE;+ 2)(R+,P)(S OVM P MRSB,M)+SP(V MO  ELEV LNGTIES NSHPU; H USMP LLCA  R5C,MAT.#M OVM R TEINPOK OCBLE AV;S  R30,RV MO  TSENUMRG ALLCAS ESOCPR; C OMPR LLCA  ERNTOI PVESA;) SP-(0,RV MO  TSBIL BOYM SEDATEREN GND A; SBCGMA+,0)(R OVM S RG AOFR BEUM NET;S AXGMAR+,0)(R OVMq� GENROL EDT,EDTBAS,EDTTOP,2 ;ENABL/DSABL GENROL LCD,LCTBAS,LCTTOP,1 ;LISTING CONTROL GENROL PST,PSTBAS,PSTTOP,4 ;PERMANENT SYMBOL TABLE .IF NDF XCREF GENROL CRF,CRFBAS,CRFTOP,1 ;CREF MNEMONIC ROLL .ENDC ENTSEC MIXED  ;DON'T CLEAR MACTOP: .BLKW   ;TOP OF MACRO STORAGE ROLNDX: .BLKW   ;ROLL INDEX ROLPNT: .BLKW   ;ROLL POINTER ROLUPD: .BLKW   ;UPDATE IF NON-ZERO ENTSEC PSTSEC  ;CONTROL LOCATION OF PST XITSEC ������������������������ ENTSr�  6! w 4w ( �w�RdB  ��K��������~�� H��&/5�w �&� &&   e@� F� �  � ((� RR J& ��������~�*&� F e�5``&7v&� "(ҕ � 7* * R * 7 `+7 x+ R&7 6&0&2&  @&]@+.��������~�w ��f֛f�w� � % h+ 7 *+ % ,.)&*)& 88& � �  . T*w�06��������~� z ff7 % v s��  � ��������~�Ҵ  �e�~yU�L b(J�  � 5�r0  Ub˱�r b  U�m 7 7 ���������~�J7j �" 0�  B� $� � 4� $� �l�a ��    � b b b �w�J � %,���������������~�µ &   5�wl7 zw�B )40 \� R�W"�  ! ! C   7   UV��������~�:��U��  � ~  n  I�U� � > C S OTSLF OLEUPCOA P UVEMO;+ 0)(R+,0)(R MPC E NCREFERET ENEMCRIN; C MANCIL ALC ) SP-(0,RV MO  6R OVNTE L UL NIFR ROER ; R ERPCOQ BE  ERNTOI PCKLO BET;G R0E,LUVA OVM N IOATOC LRKMA;  0 PFETS L AL CROAC;M    C:ROAC�M���������������������� � VRTOXI  RNTURE  HRTCSE  ERRKMAD ENT SE; T IMWC LLCA  R5C,MAT.#M OVM: 3$ AR ROER $: 2$ 3Q BE  +2AMCNMA2,L+BOYMSP CM  2$ NEB M NAAC,MR0 MPC $ 3Q BE  YMTSGE  XTTEE THS ESOCPR; T OMPR LLCA  NELIF OFH u�EC IMPURE PASS: .BLKW    ;NEXT GROUP MUST STAY TOGETHER SYMBOL: .BLKW 2  ;SYMBOL ACCUMULATOR MODE: FLAGS: .BLKB 1  ;FLAG BITS SECTOR: .BLKB 1  ;SYMBOL/EXPRESSION TYPE VALUE: .BLKW 1  ;EXPRESSION VALUE RELLVL: .BLKW 1 .BLKW 2  ;END OF GROUPED DATA CLCNAM: .BLKW 2  ;CURRENT LOCATION COUNTER SYMBOL CLCFGS: .BLKB 1 CLCSEC: .BLKB 1 CLCLOC: .BLKW 1 CLCMAX: .BLKW 1 ENTSEC IMPPAS  ;CLEAR EACH PASS CHRPNT: .BLKW   ;CHARACTER POINTER SYMBEGv�%-%v% w * 'xX''7 '�'8 )! ! �f�@��������~� 7B%� )7`))7 )7 ) �%7 )ȷ * * *ep)v |)&5'�U �)@ ]`)\) J��������~� U�) /D D` W! � W! �W! � 6)RE@0 5@�5@�$e� �JU�|)� p) X(f$5�$��������������������~�7J((  ((� �! ! �f'(Q$  D� +ff( � -V(V( �n��������w�� 4  ,    p 6� 5�t@  ��������~�C BW!&�W!!�B   C �C  r( l �  �B  0Ph0b @X0�`P � f��������~�*PBU�� U��C  !� z  �B  P0 @ P U�� � 0 ��������~�� P �-XX U�h�r E  w v��R- � b� v7 t-��������~�n� H� ^-N ѭ ISOL;P  INDLEN LLCA  AGFLLCD,.MLC#S BI  TSBIL BOYM SEDATEREN GND A; )+R2,(SBCGMA OVM S RG AOFR BEUM NEPKE;+ 2)(RT,CNRGAV MO  NTOU CELEV LARLE;C  )+R2(R CL  GSARY MMDUS ESOCPR; A OMPR LLCA  EFFDCR  LEAB TINT ERNS;I   RTSEIN  ERNTOI PET;S  4)(R0,RV MO  CKLO BGERATO S AET;G  LKTBGE LLCA $: 1E NCREFEREE THT ENEMCRDE; C MAECDL ALC L UL NIFH NCRA;B  1$ EQB R TEINPOE THT GE; 0 ,R4)(R OVM E BLTAE THH RCEA;S   CHSRM 2 M+NAAC,M+2OLMBSY OVM M NAAC,MOLy�: .BLKW   ;POINTER TO START OF SYMBOL ENDFLG: .BLKW XITSEC   ;RETURN TO NORMAL ������������������������ .SBTTL PROGRAM INITIALIZATION .GLOBL START, CONT, FIN START: .IIF DF TRAPS, .TRAP #0,#TRPPRO ;ENABLE TRAPS .IF DF OVLAY TST OVRFLG  ;FIRST TIME? BNE 1$  ; NO CALL OVRBLD  ;YES, CHECK THINGS OUT 1$: .ENDC CALL XCTPRG  ;CLEAN THINGS UP A BIT ; CLR CMOLNK .INIT #CMOLNK  ;INIT KEYBOARD OUTPUT PUTKB HELLO  ;SAY HELLO ; CLR z�~� ⋁wB(U�(5�A U �(R� w�j B7 x* 0U�(& #z' b#H (%5�(A #>5��������~�r5�#'l(5�#^(+5�z#E�F(=n#@(!ݖ$ 5�Z#X ҕ �  X v( (,��������~�Z$  R?'X %5�#` Z T  a >5`�ʕ'�5@�ʕG� XfW  H H5B��������~�b�" &ҕ � &X �h`' *X ?N') 5$�f"  � l-"" " "{� &�  �ҋU�U�R"7�% �R�ҕ �ˎ" ��������~�w Ғ7 �x�`X� fA�ʕ� R�fA� ��� ��e�ʕ��������~� � Jҋ� �  w�� 5� 4Z^5�4  "�B BJ4 �& � D '��������~� E�EUQa7 n n���  5@�jŭeE\U�VErUl@ 4� L� �7 =��������~�� 7  . MBSY OVM 6 VRTOEN  F:ROAC ML UL NIFR ROER ; M NDEQ BE  MENAE THT GE;  G ARGS  ONTINIFIDEO CRMA;   : CRMA O:CRMA DMEN R,ACM, ROACML OBGL.� ���������������������� � RNTURE  OR ROER R:ERPC O: DREN M:ND E P POMP JM  AGFLT XIMER EACL; X MENDCR CL $: 1 N URETR K IN LSSPABY; ) R0,(#4 DDA R TEINPOD EA RET SO,;N 0)(RT,TXSBMV MO  ES Y;  1$ GTB ? GHOUHR;T )+R0,()+R0(P CM  ITP UM;B  0)(R NCI T UNCOO TERNTOI PET;S R0T,CNSB#M OVM: ACDMEN ERCT}�CMILNK .INIT #CMILNK CONT: MOV PRGLIM,SP ;SET STACK POINTER MOV #DUMROL,R1 ;POINT TO SEPARATOR ROLL 2$: MOV SP,ROLBAS(R1) ;FILL IN VARIABLE BASE MOV SP,ROLTOP(R1) ; AND TOP CLRB ROLSIZ+1(R1) ;CURRENT SIZE DEC R1 DEC R1 BGE 2$  ;LOOP IF MORE ROLLS SUB #400,SP MOV SP,MACTOP ;SET NEW SP AND SET TOP OF MACRO STORAGE ENTOVR 1 CALL XCTPRG  ;INIT FOR PROGRAM ; CLR SRCLNK ; CLR LSTLNK ; CLR OBJLNK .IF DF DOSV4 .SYSDV   ;GET SYSTE~�w�'X �fG��������~�ڢH H5�,"  _Ƞʕ � _ҕ �5�"  Xҕ � 5�!�  65`�ҕ'�5@�G�ҕ �n��������~�R  Z( dx&E� j!kы7 b&R@   7*!7 (!�( �%]%= tW!:�VW!=�R (��������~�ʣ w�  w�` � W!$� W!:�  %5U�% 5 Z0 t �5�U�% ���������~�B W!=� W!:� " \` � �;-P &-  6 5�> F E�U�w �2Ӈ�  w� f VI d �X *5�,D7< <T5�@P��������~�r7 J7 �� : $ rF � 5� 0B l d�!ɥ�a &ҕ � ڇ 2�7 8 (��  ҕ �Y��������~�" ҕ �  � ·� ��4�� �   ĝ n  \ j 7 B`5��������~�b �\E�V*a  ��C -<   ��| x�@a �` W 5_���RAHA CRETOES;R   HRTCSE  AX;M )+R2,()+SP(V MO  ERNTOU;C  )+R2(R CL  ERNTOI PRG ARETO;S )+R2,()+SP(V MO  ERNTOI PXTTEE ORST;+ 2)(R+,P)(S OVM K OCBLO CRMAS OUVIRE PSHPU; H USMP LLCA  MTCIWL ALC: TFEP R" ATPEREF OND"EN AGEUD;F R5T,RPT.#M OVM F UFSTO CRMAE US; T OMPR LLCA  ATPERER FOS RG AMYUM DNO; L ROMADP ZA  NELIF OFH ISOL;P  INDLEN LLCA  CKLO BOFT ARSTD AN ;) SP-(0,RV MO  TSENUMRG ANO; ) SP-( LRC D OR WRDHI TINT ARST; + 2)(R LRC K OCBLE AG�M DEVICE .IF NDF XCREF MOV (SP),CRFLNK+6 .ENDC .IF NDF XSML MOV (SP)+,SMLLNK+6 .IFF TST (SP)+ .ENDC .ENDC ������������������������3$: .RSTRT #FIN  ;SET RESTART ADDRESS .IF DF KNIGHT 4$: .=3$ BR 4$  ;BYPASS .RSTRT .=4$ .ENDC ENTSEC TXTBYT HELLO: .ASCII <CR><LF> /MACRO V/ ;INTRO MESSAGE GVNUM    ;GENERATE VERSION NUMBER .ASCIZ / / ENTSEC MIXED PRGLIM: .LIMIT   ;OVER-WRITTEN BY OVRBLD XITSEC ���������������������� �7P, 8 ( 5� -(    U���������~�$%U��  U�% $%w� ff Z d 5� $-j% U�ff EU  ыww��������~�2U@�$ 8 � 55� U�$5� z$ �  H�~$ wm$�EwT$ & f A~f�E�-��������~� n� 4w9$ Ί� V'1P� H'@�E�%P�%E% 5�E%�pE%E%�% � A A ��������~�"�5�U�@#�� 5U�#E� o{������~�ڻ��H ҝ1@  ѝ ѝw| wa �j �b����|�n��������~�RH- zrw �r|-,t5�rr�lrw �rnt� &&f% ".��������������~�ʼ L V @ � ҕ+� � H�w �w �4����fA ��f5�@ w  ��������~�B ^w ͪ1 Rŀ�ɕ?��ҥ �ҕ �ҕ �# ORSTA T GE; K BLETGL ALC G INSTLIE THK AR;M   F1TPSE  NTOU CVESA;) SP-(0,RV MO  NTOU CTEUAALEV;  P EXBSA R LENDHAT EAEP;R    T:EP R R NDE, PTRE BLLO.G  AC.MMT X=MAT. M3 60771= AC.MMT 027617 P=IRT. M1 60771= PT.RMT ROACXM DF NIF. S ERDLAN HROACML TTSB.� ���������������������� � DCEN. E UNPRD ANH NCRA;B PC+,P)(S@V MO  SSREDD ARMFO;) SP,(APTRL-TBRP#T DDA T ICKTA;S P)(S,-)+SP@( OVM N IOCTRUSTINP RA TTOT INPO; ) SP,(#2 UBS P USSREDD ARNTUREE OV�������������������������CONT2: PUTKB HASH  ;TYPE "#" MOV #CMIHDR+6,R1 MOV #CMILEN,-(R1) CLR -(R1) MOV #CMILEN,-(R1) .READ #CMILNK,R1 .WAIT #CMILNK TSTB 3(R1)  ;EOF? BEQ 9$  ; NO .EXIT   ;YES,GOOD-BYE 9$: MOVB CMIBUF,R5 ;FETCH FIRST CHAR TSTB CTTBL(R5) ;EOL? BEQ 8$  ; YES, IGNORE .CSI1 #CMDBUF MOV (SP)+,R2 ;GET ERROR FLAG BEQ 10$  ; OK MOVB #CH.QM,(R2)+ ;ERROR, SET "?" CLRB (R2)  ; AND TERMINATOR PUTKB CMIBUF� v  e�5�U�j#��D h \# ׭3� *��������~�� �  X�� H� � v ��   z0U�"@�7 h #& W!@� 5�U�"U� k��������~�fW!#� Z% �" 0 U�^W!-� "" 2W!(� �U �SW!(� �W!+� U�F5�U�@ 5  =��������������~�W!(�5�3 5�~5@�#5�hU�U7� �5�U� "E�ffff �PU0� &� � U���������~� t ,W!)�U�!�w Ҫ̈́  4��������~��] * ҕ � >� �� ~f e0�R�&@ �(� �@ �! �� <  ��������~�2�e �ee �e ��  &  "Rw ȾE  U�U�U�&& 4 .��������~�U�%&X �$ e �+ -b*x/T&X!�� � 7 D b$b((5`�5`�5@�5@�2�� U �  E �SSST���������~�"w��J B�R�&�  N H�@   N � � � ;M P)(S,2P)(S OVM R SOESOCPRP RA;T    O:PRRP TS APTR DFF .I  RNTURE  LLNUO TCKBAT INPO, ND;E  2)(R-B STT L UL-NON NIFP OO;L  1$ NEB E ONE OV;M )+R2,()+R1(B OVM: 1$ NGRISTE YT BVEMO;   : YTVBMO RNTURE 0:LRXC )+R2(R CL 1:LRXC )+R2(R CL 2:LRXC )+R2(R CL 3:LRXC )+R2(R CL 4:LRXC )+R2(R CL 5:LRXC )+R2(R CL 6:LRXC )+R2(R CL 7:LRXC RNTURE 0:ITXM )+R2,()+R1(V MO 1:ITXM )+R2,()+R1(V MO 2:ITXM )+R2,()+R1(V MO 3:ITXM )+R2,()+R1(V MO 4:ITXM )+� .FLUSH #1 8$: JMP CONT 10$: MOV #CMDBUF,R1 MOV #CMDSAV,R2 CALL XMIT7  ;SAVE INITIAL CMD HEADER MOV #2,CMDBUF INIT OBJ  ;PROCESS OBJECT FIRST MOV R2,-(SP) ;STACK BUFFER SIZE ASR R1  ;ANY MORE OUTPUT FIELDS? BCS 11$  ; NO INIT LST  ;YES, PROCESS LISTING FIELD BEQ 21$  ;BRANCH IF EMPTY ADD R2,(SP)  ;UPDATE BUFFER SIZE INCB LLTBL+2  ;ASSUME TERMINAL BIT #000400,R3 ;TRUE? BNE 21$  ; YES MOV #2+<3*400>,LLTBL+2 ;NO, SET F�� ^�7 : 7 T= &!˵@�2Q˵ �1ы-�7 ˵@�!QgыʋыE���������~�z& e m$7270 $ m4 7  ы5�nɋ W W U�!J !ԋ� � �U(��������~�� Հ�� � �  5�U@�  LU� �     w�D p�!Z !VQ��������~�j ^� �  h?U �6 H   w�\   5�b7 7  �  ��������� ��& � @   � �&�   ��������~�`@   5@�l  5`�^ 7 X 7 X U�jL �7  �E�7 8 5 � . bw� 7�� - ��������~� 5�U@�5�5@�GU� E@�A*  8U �5    U�  (Z 'U�W!.� m��������~�W!$�U� � , �W!.� xU� ~ * �w 0 +-&"&':%F<T^��  U�D� w�4��������~�  ɟŀ�  U��R2,()+R1(V MO 5:ITXM )+R2,()+R1(V MO 6:ITXM )+R2,()+R1(V MO 7:ITXM������������������������ C ND.E  KWBL.: 3$ RNTURE  P)(S$,3V MO $: 2P TOON,MP)(S OVM . G=BUDE 2$ ISBH  P)(SP,TOONMP CM  NFMO ., 41T EM;.  410+00041D OR.W  P)(S,-02#1 OVM W LK.B $: 1$ ,1)+SP(V MO  3$+,P)(S OVM: MTTETS ECTSXI  +6OPNTMO OMC 4 P+TOONMM CO  RGTPXC ECTSEN  4W LK.B P:TOON ME URMPIC SENTE T IF. N URETR S DECON IOITNDCOT SE; 0 RT TS  R4+,P)(S OVM 3 ,R)+SP(|�OR LP 21$: ASR R1 BCS 11$  ;BRANCH IF LAST SPEC SERROR 204  ; NO, ERROR ������������������������11$: .IF NDF XCREF TST CRFFLG  ;CREF REQUESTED? BEQ 12$  ; NO .INIT #CRFLNK  ;YES, INIT IT .STAT #CRFLNK CMP (SP)+,(SP)+ ;THROW AWAY TOP TWO ASL (SP)  ;BYTES TO WORDS ADD (SP)+,(SP) ;ADD IN SIZE .ENDC 12$: MOV #LCSAVE,R1 ;SAVE CURRENT LISTING FLAGS MOV #LCSBAK,R2 CALL XMIT0-LCSAVL MOV EDMASK,EDMBAK ;DITTO FOR ENABL/DSABL FLAGS ��~�   � �  � U��7 PJJҋ Z jkơɕ �wP � h R(g��������~�Z . 5�  @  � �-� � � �� ��  � Fe0�J � *��������~�Ҫ7  � ~ � � 0�U�U� >  F�CU�� d   h�C!w�:  ��������~�J  ` � E��U��  �  � �U�\7 ��e�E�� L �7 �7 U ��  pW!>� w J  CDOB*F�� L w�\e�e�e�`\ p��������~�zT� X 6� N&& ! ! -- @� � � ` &�   N � & e� @4� $���������~� A� �@�� �   C0� �  & N`  U�` �e�w� �  ��������~�j7 \U� � �@  5� U� -  F�>� ,�U�  � 7  E�  �;��������~�� OVM 2 ,R)+SP(V MO  RSTEISEG RRETOES;R R1+,P)(S OVM F FT.I  $: 26 P+TOON,MR1 OVM $ 2S HIB 6 P+TOON,MR1 MPC 1 ,ROPNTMO UBS 1 ,R+4OPNTMO OVM: 1$ +4OPNTMOP,SV MO  1$ ISBH  +4OPNTMOP,SP CM  UGEBDF DIF. L AL CHE TRNTURE;+ P)(S,@PC SRJ: EXVRSA P)(S8.4,RV MO  OP TONS ESDRADN URET RCELA;P P)(S,-P)(S6. OVM ) SP-(1,RV MO  P)(S,-R2 OVM ) SP-(3,RV MO  RSTEISEG RVESA;   : EGVRSA GERATO SERSTGIRE TLBT.S ������������������������ N URETR 4 ,RUEAL#V x�CLR CMDBUF  ;SET FOR INPUT MOV (PC)+,@(PC)+ ;SET DEFAULT FILE NAME .RAD50 /TEM/ .WORD DEFNAM MOV (PC)+,@(PC)+ .RAD50 /P / .WORD DEFNAM+2 CLR -(SP)  ;INIT FOR MONF ������������������������CONT4: 13$: INIT SRC  ;SET FOR SOURCE BNE 14$  ;BRANCH IF NON-NULL SERROR 206  ;YOU LOSE!! 14$: .MONF   ;CHECK TH MONITOR SIZE ADD (SP)+,R2 ;ADD TO BUFFER SIZE CMP R2,(SP)  ;NEW HIGH? BLOS 15$ MOV R2,(SP)  ; YES, SAVE IT 15$: .RLSE #SRCLN� � d B���v��������~�«  P  H &`o!7 7  , � �BGW!<�! |@@B!   f6�E 0� D0��������~�:� ( ) �& $   �  (�U�p&� e  W �  r �U�F��  7 ��������~�h > >&f&f& @ABCe) # E�� e8�EU� ��      B A @ V��������~�*�U�L w�\    ! W �ş �A@NE�@`��� j��� `��� V�� 7  "�U� ���������~�Z $��5�   E� 7 � C� �@ @   #1-�� ` E�Q$) �D``B !��������������~� �� #`B � � s� ��  #1-��`78� w  7 s�Œ$s� h� 7  ^� '��������~�J`~ӵ f B w R d~�  � �u~5Ӈ�7n  <�fb AdB~C �OVM 3 ,RDEMO#V MO  R2R,TOEC#S OVM 1 ,ROLMBSY#V MO  RSTEISEG RONSIESPREXT SE;   : PRTXSE EXVRSA BR  RSTEISEG RONSIESPREXT SE;  R XPETS S ESDRADN URET RCKTA;S P)(S,-R4 OVM ) SP-(1,RV MO  P)(S,-R2 OVM L AL CBYE AV SAS WR4;) SP-(3,RV MO  ONSIESPREXR FOT SED ANS EG RVESA;   : PRVXSA GSREF OSTRED AN ;  N URETR R TEACARCHT ENRRCUE ORSTRE;5 ,R)+SP(V MO  NETIOU REROPPRL AL;C  0)(R LLCA  OLMBSYO TERNTOI;P R4L,BOYM#S OVM E IZ SRYNT;E R3),R5Z(SIOLt�K  ;RELEASE DEVICE ; CLR SRCLNK MOV SRCFIL,R0 ;GET SOURCE FILE NAME BEQ 16$  ; BRANCH IF NULL MOV R0,DEFNAM ;NON-NULL, SET DEFAULT NAME MOV SRCFIL+2,DEFNAM+2 16$: ASR R1  ;ANY MORE? BCC 13$  ; YES MOV (PC)+,R5 ;SET DEFAULT LISTING EXTENSION .RAD50 /LST/ OPENO LST  ;OPEN LISTING FILE ADD (SP)+,(SP) ;ADD INPUT SIZE TO OUTPUT ADD #STKSIZ+BPMB,(SP) ;LEAVE ROOM FOR STACK BIC #BPMB-1,(SP) ;MACRO BLOCKS MUST BE MODULO MOV (SP),MACTOP ;S�A�%+�%-��n �05� v��������~�\  j 0�bab b b m>> %.�w .ށ%E�  � U�~ b 7`@@T@T@Th 1"3 -��������~��  �e�     � � 5� � � � �  �   �e�{U�P;��������������~� b(J�  � 5�t4  Uű�r   U� m"7 7 7n �" 0�  B�W��������~� $� � 4� $� �l�a ���f��������~�& �! "ˇ�f�6�  �RRRRRRR�       �R⋇� &  & & 0��������~�:� H f P   ψ $6 e��7 d w�U� � & " � \ ,  * � ��������~�  U@�  7 -F U�Z   � *& $7 7 & �  2  (��������~�*�  @� @ f l� * v  & V @w�U� �� 7 RB OVM P TOT ENRRCU;2 ,R5)(ROPLTRO OVM E AS BNTREUR;C R1),R5S(BAOLRV MO  EXND IET;S R5X,NDOLRV MO  ERCTRAHA CNTREUR CND A; P)(S,-R5 OVM S ERSTGIREE AV;S   EGVRSA  SSREDD ARNTUREE AV;S R0+,P)(S OVM: OFTRSE NTMEGUART SE;X NDOL,RR0 OVM S ERSTGIREL OL RET;S    L:ROET�S���������������������� � RNTURE  NTOU CRYNT EARLE;C 5)(R+1IZLSRO RBCL  OMTTBO= P TOE AK;M 5)(ROPLTRO1,RV MO  OLTRSE LLCA  LLROA Y PTEM;   : AP Z N URETR D ENT NOF IOPLO; $ ,6R3 OBSp�ET FINAL MACRO BASE MOV (SP),SP  ; AND STACK BASE .IF DF DEBUG MOV SP,MONTOP+2 .ENDC .STSTK MACTOP ������������������������CONT6: CALL ASSEMB  ;CALL THE ASSEMBLER MOV #FINMSG,R1 ;SET FOR FINAL MESSAGE MOV #LINBUF,R2 MOVBYT   ;MOVE INTO LINBUF MOV ERRCNT,R1 DNC   ;PRINT IN DECIMAL MOV #FINMS1,R1 MOVBYT MOV ROLBAS+0,R1 SUB MACTOP,R1 ROR R1 DNC .IF NDF DEBUG MOV #FINMS2,R1 ;". WORDS" MOVBYT .IFF MOV #MONTOP,R4 49�    � b b b �w�J � %,� &   5�wp7 ~w�&��������~� )62 \� R�zW"�  ! ! C   7 z  U� �U��  � ~  ��������~� r  I�U� � > C � 4  ,    p 6� 5�v@  C BW!&�W!!�B   W��������~�rC �C  v( p �  �B  2Pj0d @Z0�`R � PDU�� U��C ��������~�  !� z  � 7 , � %?�S 8Y��������~� � |�  � 7 & #- &   %\�0   :   ~  N   ��������~�E zE 5�H  7 U� � nf~ 8� > e?�f � �$�  � ��������~� f e0�w� rU@� 5�  %xX  � b5�   �    ��������~�    ~ W!'� n ߻ t  *\ E ACPLO NT IRYNT EANE OV;M )+R0,()+R4(V MO $: 6T UNCOE IZ SVEAL;H  R3 SRA: 5$ ES Y;  4$ GEB ? LSOL RREMO; 5 ,R#2 UBS ) R5P(TOOL,RR3 UBS S ERNTOI PNTMEREEC;D 5)(RASLBRO3,RB SU $: 4O N;  2$ NEB ? ND;E  R20,RP CM $: 3N OW DRYNT EANE OV;M )+R2,()+R1(V MO $: 2 7 21 ORRRSE  OK, NO ; $ 3I BH  W?LORFVE;O OPCTMA2,RP CM  WNDOT LO SNE OTSINPO2 ;R  R23,RB SU  R21,RV MO  SEBAE UTOLBS AET GO,;N R10,S+BAOLRV MO  R03,RB SU  ITF UFSTT US JS,YE ; $ 5l�$: MOVB #CH.COM,(R2)+ MOV (R4)+,R1 ;GET PROPER MONTOP ENTRY ASR R1 DNC CMP R4,#MONTOP+10 BNE 49$ .ENDC CLRB (R2) PUTKBL LINBUF  ;LIST TO KB & LP PUTLP CMIBUF  ;PRINT THE COMMAND STRING XITOVR .IF DF DOSV4!XCREF .IFF TST CRFFLG BEQ FIN TST CRFNGF  ;NO-GO? BNE FIN  ; YES CALL FINF .RLSE #CMILNK .RLSE #CMOLNK SUB #<5+6+5+6+10>*2,SP MOV SP,R2 MOV #LSTLNK-2,R1 CALL XMIT5 MOV #LSTFIL-4,R1 CALL XMIT6 MO��B  P0@ P U�� � 0 � P �-��������~�bZX U�l�v E  w v��R- � b� x7 v-p� H� `P ѭq��������~�ڱ  &�  �ҋU�U�R$7�% �8R�ҕ �8Ŏ" 2w 47 ���������~�Rz�bZ� fA�ʕ� R�fA� ��� ��e�ʕ� Jҋ� � $������! $ �     ff y��������~� � 7 w�U�0U��  L� "U�v� 6�  � �@B �    C ��������~�w�� z<  Ϧ<�>�C!W!^�8�  C D C!D! U�U�*АP:����������~�rɊ x7� x�� H 7& H7� f'� �7 5�� �>�� R� Ҁe�- w HۏL��������~�7 � �� � & � NEB ? LSOL RENWEET BAP;G 5)(R+2ASLBRO2,RP CM  ERNTOI POP TTEDAUP;) R5P(TOOL,RR3 DDA T UNCOY TRENE ATPD;U 5)(R+1IZLSRO CBIN  ES Y;  5$ NEB ? UETRH RCEA SAS;W  PDLURO STT T LO SEROPPRO TTSINPO;0 ,RNTLPRO OVM: RFSEIN G)ARO NUT(BS ERSTGIREL OL RET;S  OFTRSE LLCA  LLRON IRTSEIN;   : RTSEIN RFSEIN BR  PDLURO LRC R TEINPOT SE;T PNOL,RR2 OVM L ROETSL ALC L OL ROFD ENO TNDPEAP;   : NDPEAP������������������������ S RG AARLE CD,UNFOT NO;) R34(0+LRXC h�V #CRFLNK-2,R1 CALL XMIT5 MOV #CRFFIL-4,R1 CALL XMIT6 .RUN #RUNBLK HALT ������������������������ ENTSEC MIXED RUNBLK: .WORD ^B0100000000010011 .WORD RUNFIL .WORD RUNLNK .WORD 2 .WORD 0 RUNLNK: .WORD 0 .RAD50 /RUN/ .WORD 1 .RAD50 /SY/ .WORD 0 .WORD 4 RUNFIL: .RAD50 /CREF / .RAD50 / / .BYTE 0,0 .WORD 0 XITSEC .ENDC FIN: CALL FINF JMP CONT FINF: ENTOVR 1 MOV #FINTBL,R1 1$: MOV (R1)+,R2 ����~�ʲw�� 5� 6Z^5�6 * �D B6 �& � D 'E�EUQa7 xĬ��������~�B n���  5@�lŭgE^U�XEtUn 4� L� �7 � 7  . w �̇� 6K��������~� w� h V f �Z *5�.F7> >T5�@P7 N7 �� : $ r ��������~�2�5� 0 l d�ɥ�a &ҕ � ڇ 2�7 B (��  ҕ � ҕ ��� ϦfR %R v�π   @  L�z��������~�b �D �>7 2>2 &  ,5�" %x %�  l  t2 h2h��������������~�  d\U� L7 F7 � b   . , "�����������������������������������������������������������������~�R������������������������������������������������������������������������������������������������������������������������d��������~�������MPJ F ELTS IOLMBSYS ASYP;B )+R2,()+R2(P CM $: 1 S NTMEGUARR FE XD,UNFO;) R30(ITXM MPJ D UNFOT NOF ICHANBR; $ 1Q BE  AGFLE AV;S PDLURO0,RV MO  ZESIY TRENE ATEG;N  R3 EGN " OLMBSY "TOR TEINPO; 2 ,RR4 OVM R TEINPOY TRENT SE;T PNOL,RR1 OVM: NXCA ST XI ESEAL;F  R0 LRC P TMEC,SR0 OVM: NFCA S $ 1R B E IZ SBYT ENEMCRIN; 1 ,RR3 DDA: 2$ ES Y;  NXCASQ BE  D?ONEC SUTBO AOW HO,;N 1)(R,24)(R2P CM  ES Y;  2$ NEB ? DSOR WSTIR FONH TCMA, NO;) R1,(4)(R MPCd�TST (R2) BEQ 2$ .CLOSE R2 .RLSE R2 2$: TST (R1) BNE 1$ RETURN ENTSEC DPURE FINTBL: .WORD SRCLNK, LSTLNK, OBJLNK .IIF NDF XSML, .WORD SMLLNK .IIF NDF XCREF,  .WORD CRFLNK .WORD 0 ENTSEC TXTBYT FINMSG: .ASCIZ <CR><LF>/ERRORS DETECTED: / FINMS1: .ASCII <CR><LF>/FREE CORE: / CRLF: .ASCIZ // FINMS2: .ASCIZ /. WORDS/ HASH: .ASCIZ <CR><LF> /#/ <VT> XITSEC ������������������������    ;ROUTINE TO INIT FILES    ;IN - R4 - POI�  �p��������~� ȇ� ��4�� �   ĝ n  \ j 7 D`5 �\E�,e 6-��������~�" ��G -@  : ��~ x�@a K�` >W "5��J ҝ3@" s��������������~� ѝ ѝ w~ wa �l �d�����J-" w �-.��������~�5��w �"� &���������������������������������������������������������������������������������������������������������������������������~�B������������������������������������������������������������������������������������������������������������������������s��������~���������������������������������������������������������������������������������������������������������������������������������~�2������������������������������������������������������������������������������������������������������������������  R0 NCI E LSFAT XI ES,YE ; F ANSC EQB ? ND;E  R12,RP CM $: 1E LSFAE UMSS;A  R0 LRC S ERSTGIREL OL RET;S  OLTRSE LLCA  ANSCL OL RARNELI;   : ANSC ITEXS ANY TRENE OV;M 3)(RT0MIXP JM  ZESIY TRENE ATEG;N  R3 EGN " OLMBSY "TOT INPO; 2 ,RR4 OVM: 2$ SEAL FITEX, ES;Y   RNTURE  R0 LRC O N;  1$ LOB ? EDSHNIFI; 2 ,RR1 MPC R TEINPOT ENEMCRIN, NO; 1 ,RR3 DDA S YE ; $ 2Q BE  H?TCMA;) R1,(4)(R MPC T UNCOY TRENY LLTA; 0 RC IN $: 1E LS`�NTER TO CSI BUFFER    ;OUT - R0 - DEVNAM (TESTED)    ; R1 - RESULT OF .CSI2    ; R2 - BUFFER SIZE    ; R3- STATUS WORD INIT: MOV 2(R4),R0 ;GET POINTER TO LINK BLOCK CLR R2  ;CLEAR BUFFER SIZE MOV #72.,4(R0) ;SET FOR MANY SWITCHES .CSI2 R4  ;TEST THE FIELD BIT #2,(SP)  ;TOO MANY SWITCHES? BEQ 1$  ; NO SERROR 203 1$: MOV 6(R0),-(SP) ;ANY DEVICE? BEQ 2$  ; NO .INIT R0  ;OK, INIT THE DEVICE .STAT R0  ;GET C�&f% �"0 N  @ � ҕ+���������~� � H�w �w �4����fA ��f5�@ w   `w BLD1N R��������~�ŀ�ɕ?��0ҥ �ҕ �ҕ �# Jw LDŽ JB �  * kҕ �} >��������~�z� �� ~f e0�R�&@ �(� �@ �!�� <  �e �ee �e ��  ��������~�& Rw hE  U���������������~������������������������������������������������������������������������������������������������������������������������� ��������~�"��������������������������������������������������������������������������������������������������������������������������������~���������������������������������������������������������������������������������������������������������������������������������~�����������������������������������������������������������������������������������������FAE UMSS;A  R0 LRC S ERSTGIRET SE; L ROETSL ALC D OR WNE OANSC;   : NWCA S F ANSC BR  NXCASO BL  R21,RP CM  R03,RD AD  R10,RD AD  R0D,UPOLRV MO  OLTRSE LLCA  RYNT EXTNEE THT GE;   : XTNE������������������������ N CA SGHOUHR TITEX; X ANSC BR  R3+,P)(S OVM: 7$ OTSLN IORTSEINO TNTOI PS,YE;+ 1)(R+,1)(R MPC O N;  2$ NEB ? ND;E  R02,#C BI  ETFSOFE LVHA, ONTIRATE IOFD EN; 0 RR AS $: 61 ,RR0 DDA: 5$ 6$ BR  EXND IEROW;L  R10,RB SU $:\�HARACTERISTICS MOV (SP)+,R3 ;SAVE STATUS WORD TST (SP)+  ;PRUNE DEVICE NAME MOV (SP)+,R2 ;SET SIZE ASL R2  ;****BUFFER SIZE IN BYTES??**** ADD #100,R2  ;(32 WORDS)*(2 BYTES/WORD) FIB 2$: MOV R0,R4  ;POINT TO LINK BLOCK CALL TSTSW  ;TEST SWITCHES MOV (SP)+,R0 ; AND DEVICE NAME (SETTING FLAGS) MOV (SP)+,R1 ;SET TERMINATOR TST R0  ;SET FLAGS RETURN ������������������������OPENO:    ;OPEN OUTPUT FILE SAVREG TST (R4)+  ;MOVE PAST COMMAN��U�U�& 4 .U�%ƸX �$ e �+/��������~�j -b*x/T&X!�� � 7 F b$b((5`�5`�5@�5@�2�� U �  E �SSST�w��J B�R�&�  N F��������~�H�@   N � � � ��& � @   � �&�   `@   5@�n  ��������~�Z5`�` 7 Z 7 Z U�nN �7  �E�7 : 5 � 0 fw� 7�� -  5�U@�5�5@���������~�ҹGU� E@�A�����������������������������������������~�������������������������������������������������������������������������������������������������������������������������(��������~��������������������������������������������������������������������������������������������� %^ � ���������~�zз%# 6 %^�8xr \w-< %^�̠r2�����kQ4d�����������������H���x��������~�м������������w[M y%` QQR RK- 4H IG HOO TIFH NCRA BO,;N  5$ HIB: 3$ NDOU FS,YE ; $ 7Q BE  D?ONEC SUTBO AOW HS,YE;) R12(),R42( MPC O N;  3$ NEB ? CHAT MDSOR WSTIR FO,;N 1)(R),R4(P CM  ES Y;  4$ OSBL  D?AN L'SNSMAO- NINF OF; 1 ,RR2 MPC: 2$ NTOI PAY-WLFHAT ARTTA;S  5$ BR  NO ; $ 1E BN  E?ONT AS L. IT BNGDIONSPREOR CARLE;C  R30,RC BI  IT BFTHI;S  R0 OLR: 1$ G)LA F/F TASS LEUBDO0 (R ;  C SE  ETFSOFH RCEA STEPUOM CTOT SET GE; 0 RR CL  ZESIE UTMPCO; 3 ,RR1 UBS 3 ,RX�D BUFFER POINTER MOV (R4)+,R3 ;LINK BLOCK POINTER TO R3 TST (R3)  ;INITTED? BEQ 4$  ; NO MOV (R4),R0  ;YES, FILE BLOCK POINTER TO R0 CMP -(R0),-(R0) ;BACK UP TO ERROR SLOT MOV R0,R2  ;GET A WORKING COPY .IF LE OVRLVL MOV #3$,(R2)+ ;IGNORE DELETION ERROR .IFF MOV #OVRXCT+<3$-OVRBAS>,(R2)+ .ENDC MOV #2,(R2)+ ;FLAG FOR OUTPUT MOV R2,R1  ;ASSUME NAME SPECIFIED TST (R2)  ;TRUE? BNE 1$  ; YES MOV #DEFNAM,R1 ;NO, USE DEFAULT NAME �  8U �5    U�  (^ 'U�W!.� W!$�U� � , ���������~�JW!.� xU�  * �w 0x +-&"&':%F<T^��  U�H� w�  ɟŀ�  ��������~�ºU��  pW!>� w   CDOB*F�� L w�\e�e�e�d` pX� X 6� N**! n��������~�:! -- @� � � ` &�   P � & e� @4�0 $� A� �@�����[z��v@Q�d@& =�% �R �G @����������������~�j������&̖&̠h&rή�������������������������������   ��������������~��@@@@@@@@@@@@@@@@@@@@@@@@@@�������������0�����z�����E�����E����x�z�zkQx����PALIضNLֶENJDS'��������~�ZHCRrIke(3f@xKM`!vHXwv[w.K+ N,�K&X W8n ABEILMNOPQRTUZ M��������~�ACRO V004A � ERRORS DETECTED:R2 OVM W LOT LO SNE ONTOI;P  R13,RB SU  P)(S,-R3 OVM S ERSTGIREL OL RET;S  OLTRSE LLCA  CHARSEL OL RRYNABI;   : CHARSE������������������������ C ND.E  SBLL ABDS. N URETR: 2$ SEBAL BOYM SEDATEREN GARLE;C  ASGBLS LRC N VE ETS IRESUE ;B ASYBLS1,#C BI  SEBAW NET SE;S BASY,LOCCLCL OVM K OCBLW NEG LA;F  LGYFLS NCI: 1$ ES Y;  2$ EQB ? DERIR-VE OSB LIN;K ASDM,ESB.LED#T BI T:SESB L $ 1R B S /DF ISSPABY; $ 2E BN T:TSSB LB LS BLNA.E  CKLO BOLMBT� 1$: MOV (R1)+,(R2)+ ;XFER NAME MOV (R1)+,(R2)+ TST (R2)  ;EXPLICIT EXTENSION? BNE 2$  ; YES MOV R5,(R2)  ;NO, USE DEFAULT 2$: ; CMP R50MAC,(R2) ;IF EXTENSION OF .MAC ; BEQ 3$ ; CMP R50PAL,(R2) ; OR .PAL, ; BEQ 3$  ; DON'T DELETE .DELET R3,(R4)  ;DELETE CURRENT 3$: CLR (R0)  ;CLEAR ERROR ADDRESS .OPEN R3,(R4)  ;OPEN THE FILE 4$: RETURN ENTSEC IMPURE DEFNAM: .BLKW 2  ;DEFAULT NAME XITSEC ������������������������TSTSW:    ������~�� �   C0� �  & N`  U�` �e�w� �  7 dU� � �@0  5b��������~�*� U� -  F�>�0 ,�U�  � 7  E�  ��0 ş �A@ ��������������~�NE�@`��� j��� `��� V�� 7  "�U� � $��5�   E�g��������~� 7 � C� �@ @   #1-�� ` E�Q$) �N``B ! �� � FREE CORE: �. WORDS� # �� ���TABLE OF CONTENTS�� END OF PASS 1�******�S��������~�JYMBOL TABLE� PAGE �.MAIN.���������������H`6��������������`Ҁ6Z@���� ����������W ����������~�������������������������Z��Z .........��������������������������� ++��������~�:+ 7 w�+w 7w  7xw w XĝZ7t+7J F �t+"l+!�0w���������~� & SYL CALO;1 T,TSSB,LSBLT EDENG C SEITX S OLMBSYD TERANEGER FOE AS;B   KWBL.: ASGBLS SEBAN IOCTSE;  W LK.B S:BASY LR BEUM NCKLO;B   KWBL.: KNYBLS :"ELAB"LT AEDMPBU;  W LK.B G:FLSY LS PAMPIC SENTE N URETR L OL RHE TCHARSE; L ROSYLH RCEAS: 3$ ORRR EAGFL, ES;Y  TR ROER $: 2$ 3S LOB 7 12> R O; 27D1#^),R0(P CM  ROZEF IORRR;E  2$ EQB ) R0,(UEALVV MO  L"BOYM"SO NT IVEMO;+ 0)(RN,BKSYLV MO  R0L,BOYM#S OVM: 1$ ERMBNUK OCBLP UM;B  KNYBLS NCI T P�;SWITCH TEST SAVREG ADD #8.,R4  ;R4 POINTED TO LINK BLOCK 1$: MOV (R4)+,R3 ;THROUGH? BEQ 6$  ; YES ADD R3,R4  ;NO, MOVE TO END OF BLOCK ADD R3,R4 MOV R4,-(SP) ;MARK THE PLACE MOV -(R4),SYMBOL ;SET FOR SCAN SCANW SWTROL  ;DO SO BEQ 5$  ;ERROR IF NOT IN TABLE MOV #LINBUF,R2 ;USE LINE BUFFER FOR UNPACKING 2$: MOVB #SPACE,(R2)+ ;SET DELIMITER DEC R3  ;END? BEQ 4$  ; YES MOV -(R4),CHRPNT ;SET CHARACTER POINTER DEC CHRPNT  ;GE�� #`B � � s� ��������~���  #1-��`7:� w  7 s�$s� h� 7  ^� I`,͵ B w r��������~� R ,�  � �u,5I͇�7x  <�fl AB,CH �f& �ć�fP��������~��6�  �RRRRRRR�       �R⋇� &  & & ^� H f P   ^��������~�FɈ $8 e��7 h w�U� � ( $ � � �r+l+@�*� D A  &DCc  w @w  w  �' �7  �&w \�w ��������~�*w�Xw w  fw � w 7 w�tw�hw  %-E eӂ w�hD  =�w TD = E��������~�w H6 w @/ w 8 �w 0w 8 �7 w *7 w "7 7  X�w�7  w�w (�b w�w ���������~�ւw �A B` %�� w�| 7w�rxw�hu E 7~w�h^ E IARLE CS,YE; G FLSYLR CL  NO ; $ 1Q BE  T?SEG LA;F  LGYFLS STT H RCEA SOLMBSYL CALO;   : CHSR LB LSEDXF NDF .I  DCEN. N URETR L ROACMH RCEAS: CHSR MO CRMAXF NDF .I  RNTURE  OLTRPS CHARSE  CHARSEE OD-COP;   : CHSR O N URETR L ROYMSH RCEAS H RCEA SNDRAPE OEDINEF DERUS;   : CHSR S S ERDLAN HLLRO TLBT.S ������������������������ 5 RS RT $: 2E AS BIND AD; 0 ,RR1 DDA 0 RUPN EACL, ES;Y R00,4077#1 ICB O N;  1$ NEB ? UY GHE TISTH;) SP,(L�T A RUNNING START 3$: GETR50   ;GET CHAR AND TEST FOR A/N BLE 2$  ; NO, THROUGH MOVB R5,(R2)+ ;OK, STUFF IT BR 3$ 4$: CLRB (R2)  ;SET TERMINATOR MOV #LINBUF,CHRPNT SETNB CLR ERRBTS CLR ARGCNT INC CSIFLG  ;INDICATE WE'RE IN THE COMMAND STRING CLR MODE MOV SYMBOL+2,VALUE ;MAKE IT LOOK LIKE PST CALL PROPC  ;PROCESS AS IF DIRECTIVE DEC CSIFLG MOV (SP)+,R4 BIS ERRBTS,R5 ;R5 AND ERROR BITS MUST BOTH BE ZERO BEQ 1$ 5$: SERROR 203�\ ,  * �   U@�  7 \��������~�r-H U�^   � ,& $7 7 & �  6  �  @� @ h .��������~� l� * v  & 0 @w�U� �� 7 7 . � %?�S 8 � |�  � 7 )��������~�b& #- &   %\�0   :   ~  R  E zE 5�J  7 U��������~�� � nf 8� >� t��������~�P Iw ,-�%�� w  =�w $�7  =�w e0�w ,�w %��@w v��������~� ׌k�e=��w @w fww��w��=�w  w  rw 8Ae0�w ,�w |V�PTw ��������~�D-� <@7: �(6 4,*w � ?�w "7 w �777    w %0� %7�E��������~� `  1 W �ֆ m7 y�6n|؆\Մ@dִ�)+R1(B MPC O ER ZIFD HEISIN;F  2$ EQB T SEFF OXTNEH TCFE;0 ,R)+R1(B OVM: 1$ R1G INERBBLO CX,DEINT GE;1 ,R)+R5(V MO  NETIOU RANSCR TEACARCH;   : ANSCCH RNTURE $: 1R TEACARCHD LIVAINF IOPLO; R CHETGI BM  DCEN. P MAE AS CEROW LOR FRY;T R50,+4007617#B SU  IT BGNSIO NIFK ;O  1$ PLB F OFO TLTAUEF DE,AS CEROW;L  ,1C,LT EDENG C DLXE DF NIF. S AGFLD ANR TEISEG RET;S R5T,PNHR@C VBMO R:CHET SR TEINPOP UM;B  NTRPCH NCI R TEACARCHT EX NHE TET;G    R:CHETH� 6$: RETURN ENTSEC IMPURE CSIFLG: .BLKW   ;SET WHEN ROUTINES CALLED FROM CSI XITSEC XITOVR   ; 1 SERROR:    ;"S" ERROR MOV R5,-(SP) ;DISPLAY ADDRESS SUB #PRGBEG+2,(SP) ;GIVE RELATIVE ADDRESS MOV (R5),-(SP) ; AND NUMBER IOT BRJMP FIN ������������������������ .SBTTL ASSEMBLER PROPER ASSEMB:    ;ASSEMBLER PROPER CALL NXTPAS  ;PROCESS PASS INC PASS  ;SET FOR PASS 2 NXTPAS: CALL XCTPAS  ;INIT FOR PASS CALL SECINI  ;INIT T� e?�f � �$�  � f e0�w� L��������~�RU@� 5�  %Z  � f5�   �        ~ W!'�A��������~� n b߻ v  *^! $ �     ff  � 7 w�U�O��������~�B4U��  L� "U�z� 6�  � �@B �    C w�� z<  \ɦ<�>�C!��������~�W!^�8�0�RH|:מ׼B׆԰ԃ���������~�rطh7c�JD �@ 7<76%�.* "w %�=�w (w  �w w� w�w���������������~�   7mw �w %�/�w \�  j~~.  L ��������~�be  !B !=L !�644 Ԥ .!�4�4  %� �w *  @w @ &��������~� % %� w  w�w�  � G S AGFLG INTTSE, ITEX; R CHETSR B S ASYP BS,YE ; B TNGE NEB ? NKLA;B 5)(RBLTT,CAB.TCTP!.SCT#B ITB S AGFLD ANR TEISEG RET;S   HRTCSE B:TNSE ERNTOI PMPBU; T PNHRCC IN  ERCTRAHA CNKLA-BON N AET;G    B:TNGE GSLA FND AERCTRAHA CET;S  HRTCSE BR  ERNTOI PHE TET;S NTRPCHG,BEYMSV MO  ANSCE- ROR FOLMBSYT SE;   : YMTSSE������������������������ C SEITX > OL EL,EO, OL EL,EO, OL E ,LC, C L ,LC<T CTENG > C L ,LC, C L ,LC, C L ,LC, C L ,LC<T CTENG > C L ,LCD�HE SECTOR ROLL CLR PF1  ;GOT SET BY SECTOR INIT .IF NDF XCREF TST PASS BEQ 1$  ;BRANCH IF PASS 1 TST CRFLNK BEQ 1$  ; OR IF NO CREF INITTED MOV LSTFIL,CRFFIL ;XFER LIST FILE NAME TO CREF FILE MOV LSTFIL+2,CRFFIL+2 MOV (PC)+,R5 ;SET DEFAULT EXTENSION .RAD50 /CRF/ OPENO CRF  ;OPEN CREF FILE MOV #CRFBUF,CRFPNT ;INIT FOR CREF .ENDC 1$: CALL SETSRC  ;SET SOURCE SCAN LINE: CALL GETLIN  ;GET THE NEXT INPUT LINE BNE 1$  ; BRANCH IF EO�  C D C!D! U�U�ɐP:�� x7� x�� H 7*@��������~�2 H7� f'� �7 5�� �>�� R� ˀe�- w "ۏ7 � �� � & ���������������~�� >ɦfR %LR x�Fɀ   @  N� �D �>7 ��������~�" , p 5� % %�  l  x l  nfU� P7 J7 �D  &C@AEPA&fw w /�w w HC��������~�Rڂw   ` E��� ` V �F w8�Z%w 7-U�&"E�w b7D7��������~��E�"%�  p��%w V׭��$U��7�w @P��������~�Bŝŝ�w$vt wj�t! w �w Jw @e�>%ĕ�t�72 Ԫ�w � ��������~�B�w .e`� w ;�w , C L ,LC, C L ,LC, C L ,LC<T CTENG > C L ,LC, C L ,LC, C L ,LC, C LL,EO<T CTENG > CX PX,PC, CX PX,PC, CX PP,AL, LP AP,AL<T CTENG > LP AP,AL, LP AP,AL, LP AP,AL, LP AP,AL<T CTENG > LP AP,AL, LP AP,AL, LP AP,AL, LP AP,AL<T CTENG > LP AP,AL, LP AP,AL, LP AP,AL, LP AX,PC<T CTENG > CX PX,PC, CX PX,PC, MC SX,PC, UM NM,NU<T CTENG > UM NM,NU, UM NM,NU, UM NM,NU, UM NM,NU<T CTENG > CX PP,AL, CX PM,CO, CX PX,PC, CX PX,PC<T CTENG > CX PX,PC, CX PP,AL, CX PX,PC, CX P ,SP<T CTEN@�F CALL STMNT  ;PROCESS THE STATEMENT 1$: CALL ENDLIN  ;POLISH OFF LINE TST ENDFLG  ;END SEEN? BEQ LINE  ; NO, CONTINUE JMP ENDP ENTSEC DPURE R50ABS: .RAD50 /. ABS./ R50DOT: .RAD50 /. / XITSEC ������������������������SETSRC:    ;SET SOURCE FOR BEGINNING OF PASS MOV #CMDSAV,R1 MOV #CMDBUF,R2 CALL XMIT7  ;SET CSI BUFFER GETSRC:    ;GET THE NEXT SOURCE FILE MOV #SRCLNK,R1 TST (R1)  ;FILE OPEN? BEQ 1$  ; NO .CLOSE R1����������~� b   . 0 &�����������������������������������������������������������������������������������������O��������~���������������������������������������������������������������������������������������������������������������������������������~�������������������������������������������������������������������������������������������������������������������������2��������~���������������������������������������������������������������������������������������������ĝ�w w�f&f � ��4��������~�2 �0#.#7$#7$# #�w r#5�##g"b"�V  <ӄ !���%�&��������~�� �&e�� N @ e0�w &�  �  �"7~"�r"n"E� � w ��������~�"ݾ �� �w ׭4"� ^�w U�w w�r�� nj � 7,XR-P D�w@ 78��������~� G > OL EL,EO, OL EL,EO, OL EL,EO, OL EL,EO<T CTENG > OL EL,EO, OL EL,EO, OL EL,EO, OL EL,EO<T CTENG > OL EL,EO, OL EL,EO, OL EL,EO, AB TL,EO<T CTENG > OL EL,EO, OL EL,EO, OL EL,EO, OL EL,EO<T CTENG E BLTAE YP TERCTRAHA;C    L:TBCT REPUDC SENTE M ND.E  DMEN. A .'CT TEBY. > RG<A A, RP.I  LEAB TPETYR TEACARCHE ATEREN;G RGAT CTENGO CRMA. S ARCHG INNTRI;P LP.ACTM!NUT.!CCX.PCTC!SMT.!COM.CCT C=.PCT T)BIS NUMI (N LOCOI-EM S;  002= MC.SCT HALP ASECAR WELO ;<�  ;YES, CLOSE IT .RLSE R1 1$: CLR PASSSW  ;CLEAR PASS SWITCH INIT SRC  ;INIT THE SOURCE FILE DEC PASSSW  ;ANY PASS SWITCH? BMI 5$  ; NO CMP PASSSW,PASS ;YES, THIS PASS? BNE GETSRC  ; NO, IGNORE FILE 5$: ROR R1 ROL CSISAV  ;FLAG POSSIBLE TERMINATOR TST SRCFIL+4 ;EXPLICIT EXTENSION? BNE 3$  ; YES, USE IT MOV #R50MAC,R2 ;NO, TRY ".MAC" AND ".PAL" 2$: MOV #2$,SRCFIL-4 ;SET ERROR RETURN MOV (R2)+,SRCFIL+4 ;MOVE IN NEXT DEFAULT BNE ���������������������������������������~�z������������������������������������������������������������������������������������������������������������������������A��������~���������������������������������������������������������������������������������������������������������������������������������~�j������������������������������������������������������������������������������������������������������������������������P��������~������������������������������������������������������������������%�(!�  %�??��w N�%��w ��77�w Z e0�w ,�D��������~�w ����w p�������� Cå �å$� נA� �� � �  e` �9��������~��  Ëנ�e �e�e �e �ѐ  �@(����������@������ ODT-11R V003ABEZ�� *;l��������~�/\ $G _<^,OWEBP@>SRC-FI!XASPM��CFR�������B��'��'���b��)eJ� x   N� Ê <�  001= LCT. CR LAOL DT,DO, HALP A; 0 04 P=ALT. CC RIMENU;  200= UM.NCT ERCTRAHA CNGTIINPR;  100= CX.PCT CEPA S; 4 00 P=.SCT AB T; 2 00 B=TAT. CA MMCO;  010= OM.CCT OL E; 0 00 L=EOT.�C���������������������� � ECTSXI  EDIRQUREA MMCON HE WET;S   KWBL.: LGPFEX NTMEGUART AS LOFT ARST;  W LK.B T:PNRG AT UNCOT ENUMRG;A   KWBL.: NTGCAR NELIH AC EARLE;C  INPLIM ECTSEN  RNTURE  GSLA FET;S R00,6077#1 ICB R TEINPOE AV;S NTGPART,PNHRCV MO  LGPFEX LRC8�4$  ;BRANCH IF NON-NULL 3$: CLR SRCFIL-4 ;NO MORE ERRORS ALLOWED 4$: MOV #4,SRCFIL-2 ;INPUT .OPEN #SRCLNK,#SRCFIL INC FFCNT  ;START A NEW PAGE INPSRC:    ;INPUT A SOURCE BUFFER MOV #SRCBUF,R1 CLR -(R1)  ;CLEAR COUNT CLR -(R1)  ; AND MODE MOV #SRCLEN,-(R1) ;SET MAX LENGTH .READ #SRCLNK,R1 ;READ IT RETURN ENTSEC DPURE R50MAC: .RAD50 /MAC/ R50PAL: .RAD50 /PAL/ .RAD50 / /  ;TERMINATOR ENTSEC IMPPAS CSISAV: .BLKW   ;SET NO�����������������������������������������������������������������~�Z������������������������������������������������������������������������������������������������������������������������_��������~���������������������������������������������������������������������������������������������������������������������������������~�J������������������������������������������������������������������������������������������������������������������������n��������~������������������������������������������%�! ��������~�z,�c ��ѐj�ˋÜ�`E� �&�  �P�  �� cL�|���w�Z�� ɋ���������������r��߷ p���������Z����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� $:12 NTOU CNTMEGUART ENEMCRIN; T CNRGAC IN $:11 MAOM CSSPABY;  B TNGE $:10 INGA ARY TOW;N  1$ BR  ORRR EAGFL; A ORRRE K ANBLN-NOO TET SO,;N   NBETS S ASYP BS,YE ; $ 3E BN  5)(RBLTT,CMC.SCTM-COT.-CAB.TCTP+.SCTC+.PCT#B ITB S OPLOD OIAVO TSSPABY, NO;  R CHETG: 3$ OK, ES Y;  1$1E BN  G?INTHNY ASE UDYBONY AID;D NTGPART,PNHRCP CM $: 2R ROERG LA FS,YE; A ORRRE O N;  2$ EQB ? EDIRQUREE ONS WA, NO; G FLXPET TS  ITS ASYP BS,YE ; $ 10 NEB4�N-ZERO ON LAST SRC FILE XITSEC GENSWT PA,PASSSP PASSSP: ABSEXP   ;/PASS, EVALUATE NUMBER MOV R0,PASSSW ;STORE RESULT RETURN ENTSEC IMPURE PASSSW: .BLKW   ;PASS SWITCH XITSEC ������������������������GETLIN:    ;GET AN INPUT LINE SAVREG GETL01: MOV FFCNT,R0 ;ANY RESERVED FF'S? BEQ 31$  ; NO ADD R0,PAGNUM ;YES, UPDATE PAGE NUMBER MOV #-1,PAGEXT ; CLR LINNUM ;INIT NEW CREF SEQUENCE .DELETED CLR FFCNT ����������������������������� % � ��! 0\ %��������~�:�6 Vw+ %���B˾�����kQ4d�����������������H�������������������������~�ʜ����XTw[M y%` QQR RK-[z��v@Q�d@ž =�% �R �G @��������������Ş8B M��������~�*P�������������������������������   �@@@@@@@@@@@@@@@@@l��������~�@@@@@@����������.�� g��������; 9@��; P<@��= @����������.��k @��k@�� X@��|@@��@����������.��H�,H�,H�kQH�xH���������.��`@��q!`@��t!��@��t!@��t!@Q@����������.��t!p@��!��@��""`@��"W@��t'�@����������.��t'@��-`@��8Z@��09��@��49%@����������.��59@j@��69��@��79��@��79@@��79�}@����������.��<9��@��<9@@��<9�}@��>9@��>9@@����������.��>9@��D9��@��D9%@��J9��@��9��@����������.�� ;��@�� ;  A?MMCO, NO;0 ,ROM.CCT#T BI  ISS AODGO, ES Y;  1$1Q BE  T?ENUMRG ASTIR;F  NTGCAR STT N LOCOI-EM SORL EOF IGHOUHR;T  2$1E BL  CSTIISERCTRAHA CET;G R0),R5L(TBCT VBMO $: 1T ENUMRG ASTTE;   : RGTATS RNTURE $: 2L UL NASS ORRR ELL AATRE;T  R0 LRC A ORRRE: 1$ OK, NO ; $ 2E BN  "?". ;T DO50,RR0 MPC L BOYM SOT NIFR ROER ; $ 1Q BE  OLMBSYR FOY TR, RG;A   YMTSGE  .= GFARGS LLNUT XI E;  2$ EQB L RANEGET ES;T   RGTATS  NTMEGUARC LIBOYM S0�CLR SEQEND TST PASS BEQ 31$ CLR LPPCNT 31$: MOV #LINBUF,R2 MOV R2,LCBEGL ;SEAT UP BEGINNING MOV #LINEND,LCENDL ; AND END OF LINE MARKERS .IF NDF XSML TST SMLCNT  ;IN SYSTEM MACRO? BNE GETL40  ; YES, SPECIAL .ENDC .IF NDF XMACRO MOV MSBMRP,R1 ;ASSUME MACRO IN PROGRESS BNE GETL10  ;BRANCH IF SO .IFTF MOV #SRCBUF,R1 .WAIT #SRCLNK INC LINNUM MOVB SRCHDR+3,R0 ;GET CODE BYTE BIT #047,R0  ;ANYTHING BAD? BEQ 32$  ; NO �@@@�������������қ0�����z�����E�����E����x�z|�zkQx������PALIxNLvENDSCR4r2I2ke22��������~�̨(23fxK2M�!HX[. K!+ N(,)�K(0&X1 RWS8hni ABEILMNOPQRTUZ MACRO V004A � ERRORS��������~� DETECTED: � FREE CORE: �. WORDS� # �� ���TABLE OF CONTENTS�� END OF PASS 1�******�SYMBOL TABLE� PAGE �.��������~� MAIN.���������������, ̾d����������������l ,������ �������������%��@ �@��uL`;@��{L�}@��kQp@����������.��kQr@��QL@�� R`;@��W+@���Xp@����������.��iYy@��Zd@��d^��@��C`O@��C`O@����������.��C`O@��C`O@��C`O@��C`O@��C`O@����������.��C`O@��C`O@��C`O@��C`O@��C`O@��S��������.��C`O@��C`O@��C`O@��+dD@��/d@@��6��������.��fZ@��p�<@��pp@��Uq��@��Xq�}@��t��������.��$w~@��|~K@��*�@��*�@������(����������.�� gw(` g h�� ghh`zhP���������������������� gw��q��������.� AET;G    G:ARGS������������������������ 0 RNGTIES TN,URET;R   RNTURE  E"LUVA "INT ULES RN URET;R UEAL,VR1 OVM: 9$ 1$ BR  NTOU CERCTRAHA CLYAL;T R00,4000#0 DDA R TEACARCHR HEOTANT GE;  R CHETG R BEUM NNTREUR CIND AD; 1 ,RR3 DDA C ND.E  R12,RL MU  FF.I  ERMBNUW NET SE;1 ,R)+SP(V MO $: 5 $ 3R B T IAGFL H. OH,;O R00,0000#1 ISB W LORFVE ONOF ICHANBR; $ 3C BC  RNTEAT PFTHI SS,YE; 1 RL AS  NO ; $ 5Q BE  S?ESOCPRO TTSBIE OR MNY;A  R4 STT,� ERROR L  ;YES, ERROR 32$: ROLB R0  ;EOF? BPL GETL02  ; NO BIS CSISAV,ENDFLG BNE 34$ CALL GETSRC BR GETL01 34$: ERROR E CLRB (R2)  ;MAKE INTO NULL LINE BR GETL09 ������������������������GETL02: MOV -(R1),R4 ;GET BYTE COUNT CLR (R1)+  ;SET STOPPER ADD R1,R4  ;COMPUTE END 3$: CLRB (R4)  ;FORM ASCIZ MOVB -(R4),R5 ;GET LAST CHAR CMP R5,#CR  ;IF > CR BHI 6$ CMP R5,#LF  ; OR < LF BLO 6$  ; MOVE ON CMP R5,#FF � ��������~�@��@�`�@�%@�@ ��@�t@ @�vD �� D J �� J ���� ����Y ���� ���� ���� ���o��������~�� v�� ��@�@ @� ��@�P @� ����0 ��e����o����ov��t������������ �������f��������~�r�P������������;�����������������  ���%�������������  ���������~�����%�� ����%��@ % @��  ~��@�r~�@�~%@�\!��������%��@  @��@��������.�� C`O�C`O�C`O�!C`O�)C`O�q��������.��&��`�@�%@�@ ��@�t@ @�vD ��3��������&�� C`O�C`O�C`O�#C`O���������.��L� D J �� J ���� ��������.��C`O� C`O�C`O�C`O�%C`O���������.��r�����Y ���� ���� ���� ����'����������������.��C`O�C`O�C`O�C`O�'C`O�m��������.��� v�� ��@�@ @� ��@�P @��������.�� C`O�C`O�C`O $: 4N IDD;A  P)(S1,RD AD  ONTILAMUCUACO NIFH NCRA;B  4$ CCB X DIRAT IFSH; 4 RR AS $: 3C AMPTE; ) SP-( LRC X DIRAT ENRRCUF OPYCO; 4 ,RR2 OVM 5 V4DPPF NDF .I  $: 2T UNCOR ROER" "NP UM BO,;N  R0 NCI S YE ; $ 2O BL  X?DIRAN HA TSSLE, ES;Y  R23,RP CM  GHOUHR TREE' WO, N;  9$ HIB ? ICERUM;N  9.,#R3 MPC E UTOLBS ATOT ERNVCO;3 ,R.0IG#D UBS R HA CNTREUR CHE TOFY OP C AET;G  R35,RV MO $: 1N CAES ROR FVESA;G BEYM,SNTRPCH OVM R TOLAMUCUACC RIMENU(� ;FORM FEED? BNE 3$  ; NO, LOOP INC FFCNT  ;COUNT THE PAGE BR 3$ 5$: MOVB R5,(R2)+ ;MOVE INTO LINBUF 6$: MOVB (R1)+,R5 ;FETCH NEXT CHAR MOVB CTTBL(R5),R0 ;GET CHARACTERISTICS BEQ 7$  ;QUESTIONABLE BIT #CT.LC,R0 ;LOWER CASE? BEQ 5$  ; NO .IF NDF XEDLC BIT #ED.LC,EDMASK ;LOWER CASE ENABLED? BNE 4$  ; NO, CONVERT TO UPPER ADD #240,R5  ;YES, END UP WITH "200 + LC" .ENDC 4$: SUB #40,R5  ;CONVERT LOWER TO UPPER CASE BR 5$  ;��42�}���s:�� s: :�����������~�b�@���@�A���K@�K &@�K8@�K09@�KK@�KK@�K��@�K@�K��@�Kf�@K�K �zQD���������~�� @R��@@R@8�@ S�@�S%@�S��@�S @�pT�pT@8 T��@�pT�@�T%@�OX��� OX �OX�OX%#��������~�RY����[q`"��r��@ r @r��� r �s����s���s����w�� w ;w����w����w����w�� ��������~� w%�w@8�w�K� w����w����y���~Ly����y��!C`O�)C`O�k��������.���� ����0 ��e����o����ov��������&�� C`O�C`O�C`O�#C`O�Y��������.�����t������������ ������������.��C`O� C`O�C`O�C`O�%C`O�w����������������.�� ����P������������;������������.��C`O�C`O�C`O�C`O�'C`O�u��������.��0�������������  ��������.�� C`O�C`O�C`O�!C`O�)C`O�u��������.��V���%����������������; 1 RR CL  ERSTGIREG LA FLTSURE; 0 RR CL  EGVRSA  NTOU CZESIEROV- E YT BW LO- ;   T UNCOR TEACARCH- E YT BGHHI- ;   W LORFVE O -T BIH IG H -R0;     LTSUREE LUVA -UT O;   X DIRA R2 -N I;   C RIMENUO TXTTET ERNVCO;   : UMTNCV������������������������ N URETR C TIBEHALP;A  R00,10#B SU $: 5T GIDI, OT;D R00,102-#2 UBS: 4$ ARLLDO;0 ,R221-#1 UBS: 3$ CEPA;S R01,-1CEPA#S UBS: 2$ USIN MCEOR FD,LIVAIN;0 ,RCEPA+S000010#V MO $:$�STORE 7$: MOVB R5,(R2)  ;QUESTIONABLE, ASCIZ NULL? BEQ 8$  ; YES, ALL SET ERROR I  ;NO, ILLEGAL CHARACTER MOV #200,R5  ;STORE ZERO WITH FLAG BIT BR 5$ 8$: .IF NDF XSML TST SMLCNT BNE GETL09 .ENDC CALL INPSRC  ;ALL SET FOR THE NEXT BUFFER ������������������������GETL09: .IF NDF XEDCDR MOVB LINBUF+72.,CDRSAV ;SAVE COLUMN 73 BIT #ED.CDR,EDMASK ;CARD READER TYPE? BNE 38$  ; NO CLRB LINBUF+72. ;YES, FORCE EOL .ENDC 38$: MOV #LI��y�y@�yh@�y@�y &@�y&@�y`'@ ��������~�B�y��@�y@�y��@�yfy�y�} z��@� z�@� z%@�Yz �z�� �d�� ��� � �����������������~�@ %�@�}��j��@�x;1�;B�;��Z\E��B\XH�@_t��i}�ī��l��֯��֯���6֯x�M��������~�2ʯ֯�֯�ׯ�}��گr��ޯp!��V��P�$^�� l!��Ϊn���n�n!�n%�n+�n,�>��������~�҆n.�n�K�nK�n N����&�� C`O�C`O�C`O�#C`O�c��������.��|��  �����%�� ����%����������������.��C`O� C`O�C`O�C`O�%C`O�5��������.����@ % @��  ~��@�r��������.��C`O�C`O�C`O�C`O�'C`O�v��������.��~�@�~%@�\!����42�}���s:����������.�� C`O�C`O�C`O�!C`O�)C`O���������.�� s: :����@���@�A���KF��������&�� C`O�C`O�C`O�#C`O�^����������������.��@�K &@�K 1 A PHAL; $ 5R B T GIDIR OOT;D  4$ LOB A T.LE,#R0 MPC R LAOL;D  3$ EQB E ACSP; $ 2O BL  ARLLDOY TR, ES;Y OL.DCH,#R0 MPC S NUMIT XI EO, N;  1$ EQB ? CEPA SOR, ICERUM NA,PHAL;) R0L(TBCTP,.SCTM!NUT.!CLP.ACT#B ITB: 50TRTS R05,RV MO 0:R5ET SR CHETG: 50TRGE������������������������ N URETR 0 ,R)+SP(D AD  R0 SLA 0 RL AS  P)(S,-R0 OVM 0 RL AS  R0 SLA 0 RL AS  50* 0 RLYIPLTMU;   : 50LRMU RNTURE  R0L,BOYMSV MO $: 5B TNSE $: 4 $ 1R B �NBUF,CHRPNT SETNB BNE 39$  ;ALL SET IF NON-NULL LINE TST FFCNT  ;NULL, FORM FEED? BNE GETL01  ;YES, JUST BUMP PAGE COUNT 39$: MOV ENDFLG,R0 ;RETURN WITH "ENDFLG" AS ARGUMENT NEG R0 RETURN .IF NDF XSML GETL40: MOV #LINBUF,R1 ;SYSTEM MACRO, CLR -(R1)  ; MOVE RIGHT INTO LINBUF CLR -(R1) MOV #SRCLEN,-(R1) .READ #SMLLNK,R1 ;READ IT .WAIT #SMLLNK  ; AND WAIT MOVB LINBUF-3,ENDFLG ;MARK IF EOF BNE GETL09  ;BRANCH IF EOF CMP (R1)��n&X�nHX�n[�n�}�n}�n�q%��Tz�d�пzxd�ο鰼R�y��d��������~�"x � � ,� |��B1q��34��<L;��vDŞ�� \���^x��,��ڰ:��ѱ��dѱ�ձ@Q����������~�ձ g�,��L)~�� q�«@q�������������� �������������қ���������������ԛ@@@@@��������~�@@@@��������������������������� +++ 7 w�+w 7w  7xw ��������~�w X�8@�K09@�KK@�K��������.��C`O� C`O�C`O�C`O�%C`O���������.��:K@�K��@�K@�K��@�Kf�@��������.��C`O�C`O�C`O�C`O�'C`O���������.��`K�K �zQD�� @R��@@R@8�K��������.�� C`O�C`O�C`O�!C`O�)C`O�M��������.��@ S�@�S%@�S��@�S @�pT�l��������&�� C`O�C`O�C`O�#C`O���������.��pT@8 T��@�pT�@�T%@�OX��������.��C`O� C`O�C`O�C`O�%C`O�0������� + 1)(R STT $ 3Q BE  2$ CSB 2 RR AS  4$ LEB 0 R5ETG: 3$ 1)(R0,RD AD  1$ CSB 2 RR AS $: 20 R5ULML ALC: 1$ 5$ GEB 6 #30,RP CM  5$ LEB 0 R5ETS 2 ,R5564#2 OVM ) R1-( LRC ) R1-( LRC 1 ,R+4OLMBSY#V MO  ANSCREF OSECAN IVESA;G BEYM,SNTRPCH OVM G REAVS : YMTSGE RSLENDHAR TEACARCHL/BOYMSL TTSB.� ���������������������� � DCEN. N URETR L UL NIFR ROER; 1 M4ERTQ BE  NGTIOAFLD OR WNE OSSCERO;P  1WTGFL LLCA  KSANBLS ASYP;B   NBETG: 5$ TG�+,(R1)+ ;ELSE MOVE INDEX DEC (R1)+  ;BYPASS FF, POINT TO LINBUF BR GETL02  ;PROCESS NORMAL .ENDC ������������������������ .IFT GETL10: CALL 20$  ;MOVE A CHARACTER BGT GETL10  ;LOOP IF GT ZERO BEQ 19$  ;END IF ZERO MOVB -(R2),R0 ;TERMINATOR, BACK UP POINTER CMP R0,#MT.MAX ;END OF TYPE? BLOS 22$  ; YES MOV R1,-(SP) ;REMEMBER READ POINTER MOV MSBARG,R1 TST (R1)+ MOV R2,R3  ; AND WRITE POINTER NEG R0  ;ASSUME MACRO CMP MSBTYP,#�ĝZ7b+7J F �b+4Z+!�0w� & �`+Z+@�*� D A  &DCc  w @w U��������~� w  �' �7  �&w \�w w�Xw w  fw � w 7 w�tw�hw / s��������~�z%?E eӂ w�h(D  =�w TD = w H6 w @/ w 8 �w 0w 8 �7 w *7 w "7 7 [��������~� X�w�7  w�w (�b w�w �w �A B` %�� w�| ��.����� OX �OX�OX%Y����b��������.��C`O�C`O�C`O�C`O�'C`O�}��������.��[q`"��r��@ r @r��� r a��������.�� C`O�C`O�C`O�!C`O�)C`O�s����������������.���s����s���s����w�� w ��������&�� C`O�C`O�C`O�#C`O�a��������.��D;w����w����w����w�� w[��������.��C`O� C`O�C`O�C`O�%C`O���������.��j%�w@8�w�K� w����w������������.��C`O�C`O�FLXF NDF .I  RNTURE  IXAD RRETOES;R IXADCR+,P)(S OVM M ER TTEUAALEV; 0 M4ERTL ALC L CALOH IT WCELAEP;R IXADCR2,RV MO  IXAD RNTREUR CCKTA;S P)(S,-IXADCR OVM 2 ,R2.#D AD $: 42 ,R6.#D AD $: 32 ,R2.#D AD $: 2 E UTOLBS ABET US;M  STSTAB MPJ E LUVAT ENEMPLOM;C  4)(R OMC E UTOLBS ASSCERO;P  40RMTE LLCA $: 1 0 RDWO. C ND.E  ^F ;$ 5, .FETLL TBCHG G LTXF DF NIF. B ^; 4$ .BETLL TBCHG O ^; 3$ O,T.LE BLHTGC  ^D ;$ 2, .DETLL TBCHG C ^; �MT.MAC ;TRUE? BEQ 12$  ; YES, USE IT MOV MSBCNT,R0 ;GET ARG NUMBER 12$: MOV R3,R2  ;RESET WRITE POINTER 13$: CALL 20$  ;MOVE A BYTE BGT 13$  ;LOOP IF PNZ BLT 14$  ;END IF LESS THAN ZERO SOB R0,12$  ;LOOP IF NOT THROUGH 14$: TSTB -(R2)  ;YES, BACK UP POINTER MOV (SP)+,R1 ;RESET READ POINTER BR GETL10  ;END OF ARGUMENT SUBSTITUTION 19$: MOV R1,MSBMRP ;END OF LINE, SAVE POINTER BIS #LC.ME,LCFLAG ;FLAG AS MACRO EXPANSION BR GETL09 20$:�7w���������~�jrxw�hu E 7~w�h^ E tP Iw ,-�%�� w  =�w $�U��������~�7  =�w e0�w ,�w %��@w k�e=��w @w fww��w��=�w !��������~�Zפ w  rw 8Ae0�w ,�w |V�PTw D-� <@7: �(6 4,*w ���������~� ?�w "7 w �777    w %0� %7�E `  1 W ��C`O�C`O�'C`O���������.��y���~Ly����y�y�y@����������������.�� C`O�C`O�C`O�!C`O�)C`O���������.���yh@�y@�y &@�y&@�y`' ��������&�� C`O�C`O�C`O�#C`O���������.��@�y��@�y@�y��@�yfyA��������.��C`O� C`O�C`O�C`O�%C`O���������.���y�} z��@� z�@� z%@�'��������.��C`O�C`O�C`O�C`O�'C`O�,����������������.��(Yz �z�� �d�� ��� 1$ C,T.LE BLHTGC  LEAB TOWRR AUP;   : BLRTUA 28RMTE BR  NETIOU RLLCA; ) R0(L ALC R ROER, IDALNV I;  41RMTE EQB R TEACARCHT EX NONN CA;S  BLRTUA ANSCCH  OWRR AUPS ASYP;B   HRTCGE  ^" ";   : 50RMTE������������������������ T XI END ASSPABY, ES;Y  27RMTE BR  ORRR EO, N;  41RMTE NEB ? >";" AB.RCH,#R5 MPC N IOSSREXP ELLNUN-NOS ESOCPR;  P EXLBG S ASYP B","<;   NBETG: 47RMTE RNTURE  ITG LA;F 3)(RG,FLEG#R ISB T TSBSA N IOSSREXP EERSTGIRE;� BIT #BPMB-1,R1 ;MACRO, END OF BLOCK? BNE 21$  ; NO MOV -BPMB(R1),R1 ;YES, POINT TO NEXT BLOCK TST (R1)+  ;MOVE PAST LINK 21$: CMP R2,#LINBUF+SRCLEN ;OVERFLOW? BLOS 23$  ; NO ERROR L  ;YES, FLAG ERROR TSTB -(R2)  ; AND MOVE POINTER BACK 23$: MOVB (R1)+,(R2)+ ;MOVE CHAR INTO LINE BUFFER RETURN 22$: CALL ENDMAC  ;CLOSE MACRO JMP GETL01 .ENDC ENTSEC IMPPAS LPPCNT: .BLKW 1  ;FORCE NEW PAGE WHEN NEGATIVE LINNUM: .BLKW 2  ;CREF �ֆ m7 y�H؀(��������~�J؎ؘnՖRvd(0Z֎ LװTטԃh7c�JD �@ 7<76%�.* "��������������~�w %�=�w (w  �w w� w�w�   7mw �w H��������~�:٢%�/�w \�  j~~@  L e  !B !=L !�644 Ԥ @!�b��������~�ٞ4�,4  %� �w *  @w � �|��������.�� C`O�C`O�C`O�!C`O�)C`O�m��������.��N ��@ %�@�}��j��@�x;1��������&�� C`O�C`O�C`O�#C`O�^��������.��t���;B���;����\E����\XH���_��������$��; 9; P<= k &kb��������.��t����i}�����������֯������������$�� X|@ `(q!`��������.��֯�����֯x���֯���֯���ׯ�}��3���������� t!��t!t!@Q"t!p����������������.����گr����ޯp!��������P���$^  40RMTE LLCA 6:M4ER T R HA CSTLAS ASYP;B  27RMTE BR  ES Y;  1$ EQB R TEACARCHR HEOTAN; 2 RC DE  DCEN. + 1)(R5,RB OVM F IF. X DEIND ANT BIN IG SLEIBSSPOR EACL;+ 1)(R0,20#B ICB R HA CTELUSOABE ORST;) R1,(NTRPCH@B OVM C DLXE DF NIF. L EOF IORRR;E  41RMTE EQB R TEACARCHT EX NHE TET;G   HRTCGE $: 1R TEISEG RRETO SMPTET SE, '" "; 1 ,RR4 OVM: 45RMTE ITK AR M","";  R2 NCI: 44RMTE TELUSOABS ITE UR SBE; T TSBSAP JM  UEAL VTEGANE; ) R4(G NE  US�LINE NUMBER SEQEND: .BLKW FFCNT: .BLKW 1  ;UNPROCESSED FF COUNT PAGNUM: .BLKW 2  ;PAGE NUMBER PAGEXT: .BLKW 1  ;PAGE NUMBER EXTENSION XITSEC ������������������������ENDLIN:    ;END OF LINE PROCESSOR SAVREG CLR ROLUPD  ;SET TO FETCH FROM CODE ROLL TST R5  ;EOL? BEQ 1$  ; YES TSTB CTTBL(R5) ;NO, SEMI-COLON? BMI 1$  ; YES ERROR Q 1$: CLR -(SP)  ;INIT LISTING FLAG .IF NDF XEDCDR MOVB CDRSAV,LINBUF+72. ;REPLACE BORROWED CHAR .EN�@ % %� w  w�w�  �D ��������~�* &C@AEPA&fw w /�w w Hw   ` E��� ` V ��������~��F w8�H%w 7-U�&"E�w b7D�E�%�  p�$w V׭� ��������~��$U��7�w @ŝŝ�w$vt wj�t! w �k��������~�w Jw @e�>%ĕ���������$��!�� ""`"Wt'�$t'h��������.�� ����l!����n�����n���n!���nf��������$��-`8Z09��49%&59@jk��������.��2%���n+���n,���n.���n�K���n����������$��69��79��79@ 79�}(<9��E��������.��XnK���n N���n&X���nHX���n[�=���������� <9@<9�}>9">9@a��������.��~��n�}���n}���n���q%����z�d��������$��>9 D9��D9%J9��$9����������.�����zxd���鰼R���y���� ��� W��������$�� ;�� ;PLY ARUNW ROOR;B  40RMTE LLCA 2:M4ER T N URETR R ROERS ESDRAD ; A ORRRE: 41RMTE LLNUN-NOF IUETRT XI;E  28RMTE NEB M ER TTEUAALEV;  M ERT P ORYNA USSPABY;  B TNGE 0:M4ER T 0 RDWO. " "^; 50RMTE R,UAH.CL TBCHG " "<; 47RMTE B,LAH.CL TBCHG " "%; 46RMTE T,PCH.CL TBCHG " "'; 45RMTE L,XCH.CL TBCHG " ""; 44RMTE M,QTH.CL TBCHG " "-; 42RMTE B,SUH.CL TBCHG " "+; 40RMTE D,ADH.CL TBCHG : BLPTUO UETRT XI;E  28RMTE BR  SSCERO PND AGO, �DC TST PASS  ;PASS 1? BEQ 9$  ; YES TST ERRBTS  ;ANY ERRORS? BNE 5$  ; YES, GO DIRECTLY, DO NOT COLLECT, ETC. BIT #LC.LD,LCFLAG ;LISTING DIRECTIVE? BNE 9$  ; YES TST LCLVL  ;TEST OVER-UNDER RIDE BLT 9$  ;IF <0, LIST ONLY IF ERRORS BGT 6$  ;IF >0, LIST UNCONDITIONALLY BIT #LC.COM,LCMASK ;COMMENT SUPPRESSION? BEQ 2$  ; NO MOV CHRPNT,LCENDL ;YES, ASSUME WE'RE SITTING AT COMMENT 2$: BIT #LC.SRC,LCMASK ;LINE SUPPRESSION? BEQ 3$  ��t�72 Ԫ�w �B�w .e`� w ;�w �ĝ�w w�ӥ��������~� f&f � ��4, �##7#7##�w r#5�""B��������~�g"b"�V  <,Ԅ !���%�&� �&e�� N @ e0�w &�  � P��������~� �p"7l"�`"\"E� � w  �� �w ׭""� ^�w U�w w�r�� j��������~�r��uL`;{L�}&kQp��������.����� ,��� |����1q����34������������$��kQrQL R`; W+(�Xp��������.��<L;����DŞ����\�����x����,��C���������� iYyZdd^��"+dD��������.����:����ѱ����ѱ���ձ@Q����ձ g+��������$��/d@ fZp�<pp$Uq��������������������,��<���,����)~���� q���@q�����������$��Xq�}$w~|~K*�&*�d�������������������������������������������������������������������������������������������NDOU;F  0)(R LLCA  SE URETUFUR FOR EACL; 2 RR CL  REHE TOT N;  29RMTE EQB E BLTAR TORAPE ORYNA UANSC; L TBOPUN CAHSC : 30RMTE������������������������ N URETR: 29RMTE NDOU FASG LA;F  R0 NZETS K ANBLN-NOO TNGTIINPON URET;R   NBETS: 28RMTE ARLLDOR OOT DSSPABY;  R CHETG: 27RMTE EDINEFND UASG LA FO, N;  UR ROER 6:M2ER TC ND.E  NDOU FIFH NCRA;B  27RMTE NEB L BOYM SALOC LO,;N   CHSRL B LSEDXF NDF .I  ES Y;  27RMTE EQB ? ALIMEC;D OT.DCH,#R5 MPC; NO MOV #LINBUF,LCENDL ;YES, POINT TO START OF BUFFER 3$: .IF NDF XMACRO TSTB ROLSIZ+CODROL+1 ;ANYTHING IN CODE ROLL? BEQ 4$  ; NO BIT #LC.MEB,LCMASK ;MACRO BINARY EXPANSION? BNE 4$  ; NO BIC #LC.ME,LCFLAG ;YES, IGNORE ME FLAG .ENDC 4$: BIT LCMASK,LCFLAG ;ANYTHING SUPPRESSED? BNE 9$  ; YES, DON'T LIST BR 7$  ;YES 5$: BISB LLTBL+2,(SP) ;LISTING DEVICE? BNE 8$  ; YES, USE IT INC (SP)  ;NO, TO KB 8$: BIT #LC.TTM,LCMASK ;TELEnj � 7,XR-P D�w@ 78 %�(!�  %�??���������~�w N�%��w ��77�w Z e0�w ,�w ����w p�������� Cå ���������~�bå$� נA� �� � �  e` ��  Ëנ�e �e�e �e �ѐ  �@%��������~�(����&&��������@������ ODT-11R V003ABEԛ������ *;/\ $G _<^,OWEBP@>SRC-FI!XASPM��CFR�������B��)e���������.��kQr������@��,@��,@��H��������.��kQ@��x@��kЎH��H�IH���������.��rH�(H�xKH@�MH�keH�]��������.��3fH �K��H�K` H �K H�KH���������.��K%H�KKH�K[MH�KQH�KQH@���������.��KRH�K RH�KwH�KyH�KzH�@��������.��K[H� K-H�C`OH��C`OH�C`OH���������.��C`OH�C`OH�C`OH�C`OH�C`OH�b��������.��C`OH�C`OH �C`OH �C`OH �C`OH ���������.��C`OH �C` $:25 1$2R B X DIRAL MACIDEH IT WINGA ARY T;  R2.,10#V MO  O,;N   YMTSSE  ES Y;  5$2Q BE  L?MACIDEE WREWE, $" "OR" ".; . 10,#R2 MPC: 4$ 2 8 M2ERTR B T IAGFL, ES;Y  NR ROER  NO ; 8 M2ERTQ BE  E?NGRAF OUT ORSBEUM NNY AO,;N  R0 TBTS  DCEN. S YE ; $ 24 EQB ? OLMBSYL CALO, NO;L DOH.#C5,RP CM  SBDLXE DF NIF. S YE ; $ 24 EQB ? ALIMEC DR,BEUM;N OT.DCH,#R5 MPC: 2$ 2T IAGFL, ES Y;  TR ROER  W?LORFVE ONY AR,BEUM;N  2$2L BP  INGA ATYPE MODE? BNE 6$  ; NO, BYPASS EXTRA LINE MOV #STARS,R1 ;"******" MOV #OCTBUF,R2 MOVBYT   ;MOVE INTO OCTAL BUFFER MOVB #SPACE,(R2)+ CALL TSTERR  ;SET ERRORS CLRB (R2)  ;FORM ASCIZ MOV (SP),R0 MOV #OCTBUF,R1 CALL TSTHDR  ;DRAW THE USER'S ATTENTION 6$: MOV #LINBUF,LCBEGL ;LIST ENTIRE LINE MOV #LINEND,LCENDL 7$: BISB LLTBL+2,(SP) ;SET LISTING DEVICE CODE 9$: CALL PCROLL  ;PROCESS ENTRY ON CODE ROLL ������������������������ENDL10: TST ��J� x ��������~�R  N� Ê <��%�! ,�c ��ѐj�ˋÜ�`E� �&�  �P�  ��@��������������<� cL�|���w�Z�� ɋr��߷ p���������ԛ�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������OH� g @�� gh@��z@����������.��̖H������(��qQW((; 9h&; P<h$��������.��= h k hnkhl Xh|@h��������.��&�}h�h `hq!`ht!��hb ��������.��t!ht!@QhD#t!phD#!��h""`h.��������.��"Wh&��ht'�ht'h-`h6 ��������.��8Zh09��h49%h59@jh69��hG��������.��79��h79@h79�}h<9��h<9@hf��������.��<9�}h>9h>9@h>9hD9��hW��������.��D9%hJ9��h9��h ;��h# ;EDSSMI, PENO ; 0 M3ERTQ BE  RTVEON;C   UMTNCV $:21 IXAD RNTREUR CR,BEUM NMESUAS;2 ,RIXADCR OVM : 20RMTE������������������������ 8 M2ERTR B O ER ZISE OD MRESUE ;B  3)(R LRC: 7$ 1U ORRRE D NEFIDEUNS ARTSEIN, LEAB TINT NO;  T ERNSI S ERNTOI PCHARSET SE;  H RCSS  ES;Y  7$1I BM  E?OD COP; ) R3(T TS  E?OD-COPN APSHAER PD,NEFIDER SE UOT;N   CHSRO: 6$ 1 8 M2ERTR B G LA FET SO,;N 3)(RG,FLEL#R ISB S YE ; 8 M2ERTQ BE  N?IOCTSEE UTOLBS;A  3)(R STT� (SP)  ;ANYTHING REQUESTED? BEQ ENDL20  ; NO CLRB @LCENDL  ;SET ASCIZ TERMINATOR MOV #OCTBUF,R2 11$: MOV #SPACE*400+SPACE,(R2)+ ;BLANK FILL CMP #LINBUF,R2 ;TEST FOR END (BEGINNING OF LINE BUFFER) BNE 11$ BIT #LC.TTM,LCMASK ;TELETYPE MODE? BNE ENDL50  ; NO MOV #PF0,R1 TST (R1)  ;ANYTHING FOR FIRST PRINT FIELD? BEQ 14$  ; NO MOV #OCTPF0,R2 ;YES, POINT TO IT CALL SETWRD  ;UNPACK INTO BUFFER 14$: CLR (R1)  ;CLEAR PF0 MOV #PF1,R1 ����������PP8P����kQr�����������~�P ,.Dw N/ �ر1 �/ -F�!// �!w 2XS�! S�fNNd��������~�ȧ�0ŝ) D.ҕ?� w @Xw�tD "�@)    `)5�) w  f( ��������~�@:: % e !<(>(7 (}R�dT&  �w B�!e *7'*'  N ���������~�eeE�f. h \!~'  L!/<. h#��������.��uL`;h{L�}hkQphL#kQrhL#QLh.(��������.�� R`;hn&W+h &�Xph&iYyhZdh6&��������.��d^��h+dDh/d@hfZh&p�<h}��������.��pph(Uq��hDXq�}h"$w~hxysh����������.��|~Kh2*�h*�hX:(X:;d(���������.��X:vL("�f((�s;h�zKs;h�;d((�K��������.��vL(�Hq(LR(B�lzw(�w( ���������.��w(@�Ԁ|(�r (�rh(�rBx(�}���������� gw(��qQW(���������������������������������  GSLA FARLE;C  3)(R RBCL  T4MIXL ALC 2 ,ROLMBSY#V MO  EAARG INRKWOO TVEMO, OT;D R1M,NALC#C OVM: 4$ 1 8 M2ERTR B G LA FALOBGLL NAERNT IARLE;C 3)(RG,FLLB#G ICB: 2$ 1R ROERD NEFIDEUN, NO; U ORRRE S YE ; 8 M2ERTE BN  L?BALO GO,;N 3)(RG,FLLB#G ITB S YE ; $ 12 NEB ? EDINEF;D 3)(RG,FLEF#D ITB: 1$ 1S YE ; M ORRRE O N;  1$1Q BE  D?NEFIDEY PLTIUL;M 3)(RG,FLDF#M ITB D UNFOT NOF ICHANBR; $ 16 EQB E BLTAL BOYM SHE TCHARSE;  H RCSS  ALCIPE S  TST (R1)  ;ANYTHING FOR SECOND FIELD? BEQ 15$  ; NO MOV #OCTPF1,R2 CALL SETWDB  ;LIST WORD OR BYTE BIT #GLBFLG!RELFLG,(R1) BEQ 15$ MOVB #CH.XCL,(R2) ; "'" BIT #GLBFLG,(R1) BEQ 15$ MOVB #LET.G,(R2) 15$: CLR (R1)  ;CLEAR PF1 MOV #OCTSEQ,R2 MOV #LINNUM,R0 ;POINT TO CREF LINE NUMBER ; 08.03.72 YESYES: ; 08.03.72 M* 6! w 4w (X �w�RB  �����������~�0 H��&/5�w �&� &&   e@� F� �  � (� RRR J& &��������~�� F e�5``&7v&� "(ҕ � 7* * R * 7 `+7 x+ R&7 6&0&2&  @&]@+w N��������~� ��fRf�w� � % h+ 7 *+ % ,.)&*)&d 8& � �  . T*w�D ��������~�z ff7 % v %f���������������� %"�t���������� X:�� X:vL"��;d��F�������������� %"�t�������������������� X:;d�� X:vL"��vL���������������� %"�t���������� X:vL�� X:vL"��Ԁ|��������������� ABEILMNOPQRTUZ������������r ���������� �����������������rh���������� �����������������rBx���������� ����������������r ��������� ����������������rh��������� ����������������rBx��������� �����������������r ��ATRE TS,YE ; $ 14 EQB ? ERNTOU CONTICALO;T DO50,ROLMBSY MPC F RERFC X NDOL,ROLMRSY#V MO  OLMBSYA T NOF ICHANBR; 0 M2ERTQ BE  OLMBSYA R FOY TR;  M SYETG: 10RMTE ET SR0D ANK ANBLN-NOH IT WITEX; B TNSE MPJ N IOSSREXP EASK AR;M  LGPFEX NCI: 1$ LEABATOCEL RO, N;  VLLLRE NCI $ 1Q BE  E?RU;T 3)(RG,FLEL#R ITB E UTOLBS AMESUAS; L LVELRR CL  USEOANTREXR EACL;) R3,(LGFFMDG!FLBL!LLGFFDE#C BI  SSCERO;P  10RMTE LLCA  UEAL VND A;  4)(R LRC E OD MARLEOV (R0)+,R1 CMP R1,#1000. ;WE DON'T WANT TH ELINE NUMBER 08.03.72 BNE NONO ;TO EXCEED THREE DIGITS 08.03.72 CLR -(R0) ;RESET THE LINE NUMBER TO ZERO 08.03.72 BR YESYES ; 08.03.72 ; 08.03.72 NONO: ; 08.03.72 CM-%v% w * 'Ԫ''7 '�' )(! ! �f� {��������~�7B%� )7`))7 )7 ) �%7 )Է ** *ep)v( |)&5'�U �)@ ]`)\) ��������~�U�) /D D` W! � W! �W! � 6)RE@ 5@�5@�$e� �JU�|)� p) X(f$5�$7��������������������~��J((  ((� �! ! �fXX'(Q$  D� +ff( � -V(V( � ��������������� ����������������rh��������� ����������������rBx��������� ���������������������r ��������� ����������������rh��������� ����������������rBx��������� ���������������������r ��������� ����������������rh��������� ����������������rBx��������� ��� ������������������r ��������� �� ��������������rh ��������� �� ��������������rBx ��������� �� �������������������r ��������;C  3)(R LRC R XPAVS R TOUAALEVM ER;T    M:ER T R TOUAALEVM ERTL TTSB.� ���������������������� � RNTURE  R0N IUEAL VTHWIN URET;R R0E,LUVA OVM: RXSEAB AR ROER F:ERBS AL LVELRR CL  DEMO LRC: RRSEAB RXSEAB EQB S AGFLG,FLEL!RLGBFGL#T BI T:TSBS AP EXLBG : XPSEAB RRSEAB BR  RXSEAB EQB S AGFLG,FLLB#G ITB: STLTRE XPBEGL  P:EXEL R X ERBSAR B R ERBSAQ BE  PREX  ONSIESPREXL UL-NON;N    P:EXLB G E LUVAO TET SR0;   R ROERS SEAU CLDIE FLLNU;   P R1,(R0)  ;NEW CREF NUMBER TO PUT OUT? BEQ 16$  ; NO MOV R1,(R0)  ;YES, CLEAR FLAG BIT #LC.SEQ,LCMASK ;SUPPRESSED? BNE 16$  ; YES DNC MOV R2,SEQEND ;MARK HIGHEST SEQUENCE END 16$: MOVB #SPACE,(R2)+ CMP R2,SEQEND ;THROUGH? BLOS 16$  ; NO MOV #OCTERP,R2 CALL TSTERR  ;TEST FOR ERRORS MOV #OCTBUF+16.,R2 ;SET FOR CONCATENATION ENDL19: MOV LCBEGL,R1 ;POINT TO START OF LISTING LINE MOVBYT   ;MOVE OVER MOV (SP),R0  ;SET FLAGS MO~�x⋁wB(U�(5�A U �(R� w�j B7 x* U�(& #z' b#H (%5�(A #>55��������~��#'l(5�#^(+5�z#E�F(=n#@(!ݖ$ 5�Z#j ҕ �   v((Z$$��������~�h  R?' %5�#`n  T r  >5`�ʕ'�5@�ʕG� W  H H5���������~�୮" &ҕ � & �`' * ?N') 5$�f"  � l-"" " "w�� �� ��������������rh ��������� �� ��������������rBx ��������� �� ��������������������r ��������� ��������������� w���rh�x�������� ���@����������� w@��rBx�e���������������� ���������������r ��������� ��������������� lzw���rh��������� �������������� lzw��rBx��������� ���������������r ��������� ��������������� w���rh�i�������� ��� ��������������������� w ��rBx�v�����  PREXO TNTOI PRYNT EALCIPE;S    ������������������������� ���������������������� � DCEN. $ 1R B 3 RL AS $: 20 RC AD  R13,RD AD  2$ CCB ) SP(R RO  ES Y;  ITVXDI EQB ? GHOUHR;T  P)(S STT: 1$ R1 LRC S LTSURER EACL; 0 RR CL  UY GSTIR FHE TET;G P)(S,-R0 OVM E INUTROY PLTIUL MALEREN;G    L:MU RNTURE  CKTA SNERU;P  )+SP(T TS T:XIIV D0 RTOT ULES;R R0+,P)(S OVM 1 RINR DEINMAREE ACPL; 1 ,RR0 OVM $ 1E BN  ND EOR FSTTE; ) SP2( ECD: 2$V #OCTBUF,R1 ;POINT TO OCTAL BUFFER CALL TSTHDR  ;TEST FOR HEADER AND LIST ������������������������ENDL20: .IF NDF XEDWRP BIT #ED.WRP,EDMASK ;WRAP-AROUND REQUESTED? BNE 26$  ; NO MOV LCBEGL,R1 ;YES, POINT TO CURRENT START MOV #-<CPL-OCTLEN>,R3 ;INIT TO MINUS CHARS PER LINE 21$: MOV R1,R2  ;LCBEGL TO R2 22$: MOVB (R1)+,R0 ;FETCH THE NEXT CHARACTER BEQ 24$  ; END CMP R0,#TAB  ;TAB? BNE 23$  ; NO BIS #7,R3  ;YES, ADVANCE TO N-1 23$: INC' ���������~�XH H5�,"  Ӡʕ � ҕ �n5�"  Xҕ � r5�!�  65`�ҕ'�5@�G�ҕ � ��������~�Ю  Z( dx&E� j!ы7 b&R@   7*!7 (!�( �%]%= tW!:�VW!=�R  +��������~�H w�  w�` � W!$� W!:�  %5U�% 5 Z0: t �5�U�% � o��������~�W!=� W!:� " \` � �;-P &-  6 5�> F E�U ���� ���������������r ��������� ���Z����������� HqZ��rh����������������� ���z�d���������� Hqz��rBx��������� ���������������r ��������� ��������������� g �rh�M�������� ��������������� gh�rBx�Z�������� ���������������r ��������� ���z�`���������� Hqz��rh��������� ����V���������� Hq��rBx��������� ���������������qQW��M��������(���� ���w �"�� ���������.�� LTSUREP UM;B  P)(S NCI S YE; 0 ,RR3 UBS O N;  2$ LTB ? ONTIRAPE OOR FGHOUENG BI; 3 ,RR0 MPC R TEISEG RLEUBDO ; 0 RL RO  RSTEISEG RRKWOT IFSH; 1 RL AS  LTSURET IFSH; ) SP(L AS $: 1T PUIN0 RRENOIG; 0 RR CL  LTSURE; ) SP-( LRC T UNCOP OO;L P)(S,-6.#1 OVM E INUTROE IDIV DALEREN;G    V:DI R03, RUL;M     D)RENOIG0 (R 0 ,RR3V DI;   5 V4DPPF NDF .I ������������������������ N URETR T ULES RET;S  4)(R0,RV MO $: 1T ITEGANE, NO; 0 R R3  ;BUMP COUNT BNE 22$  ;TEST FOR START OF NEW SEGMENT BR 21$ 24$: TST R3  ;ANY WRAP? BLE 26$  ; NO 25$: MOVB #TAB,-(R2) ;STUFF A TAB ADD #10,R3 CMP R3,#CPL-OCTLEN-10 ;ENOUGH? BLOS 25$  ; NO MOV R2,LCBEGL ;YES BR 27$ .IFTF 26$: CLRB @LCBEGL  ; NO 27$: MOV ROLUPD,R0 ;ANY MORE CODE? BEQ 28$  ; NO CALL PCROLL 28$: .IFT BISB @LCBEGL,R0 .IFTF BEQ ENDL30  ;EXIT IF EMPTY 29$: BIT #LC.BEX!LC.BIN,LCMASK ;BINA7P, 8 ( 5� -(    U�$%��������~�8U��  U�% $%w� >ff Z d >5� $-j% U�ff EU  ыww��������~�U@�$ 8 �> N55� U�$5� z$ �  H�~$ wm$�EwT$ & f Af�E� ��������~�(n� w9$ Ί� V'1P� H'@�E�%P�%E% 5�E%�pE%E%�% � A A �:��������~�5�U�@#�� 5U�#E� o{ f�� R� Ԁ|� R"�R�s��������,�� �����1� ��� ��F�!y��������.�� r �� rh�� rBx�R��f��_����������D��2��!0��������"��R�R2� �Ԁ|������������ MACRO V004A �������������R��������� ����������������� �qQWT���������.��T�w J� S�! S�f"�"����������&�� Ԁ|J� X:  R"� "R"�q��������.��z�0ŝ �  .ҕ?� w @ w���������&�� X:  Hq� X:  &G NE  ISS AOK ; $ 1L BP  LTSURET ES;T  )+SP(T TS X:DVXP E 0 ,RR3 IVD E ATEROP; 0 RR CL $: 2) SP(M CO  R1 EGN ! !!INGA;A  2$ PLB T ENTIUO QET;S  R1),R2(V MO $: 1S HU TITE AK;M  R3 EGN S LU PIFH NCRA;B  1$ PLB Y OP C AVESA;) SP-(3,RV MO  ORISIV DET;S  R3),R4(V MO  /;   : IVPDEX DEVIDIH UGROTHT XI;E  VXPDEX BR  ITEXR FOT SE; 0 ,RR1 OVM Y PLTIUL;M  R03,RL MU $: 2N IG SLTSUREE GLOG;T  P)(S OMC + T IKEMA, VETIGANE; 3 RG NE  !RY EXTENSION SUPPRESSED? BEQ ENDL10  ; NO BR ENDL20  ;YES, DON'T LIST ENDL30: TST (SP)+  ;PRUNE LISTING FLAG ZAP CODROL  ;CLEAR THE CODE ROLL CMP CLCLOC,CLCMAX ;NEW HIGH FOR SECTOR? BLOS 31$  ; NO MOV CLCLOC,CLCMAX ;YES, SET IT 31$: JMP XCTLIN  ;INIT FOR NEXT LINE AND EXIT .IFT GENEDT WRP,,1  ;/ED:WRP .ENDC ������������������������ENDL50: MOV #OCTBUF,R2 ;POINT TO START OF BUFFER CALL TSTERR  ;SET ERROR FLAGS MOV #LINNUM,R0 MOV"v  e�5�U�j#��D h \# ׭3� *�a��������~� �  X�� H� � v ��   z0U�"@�7 h #& W!@� 5�U�"U� f��������~�W!#� Z% �" 0 U�^W!-� "" 2W!(� �U �SW!(� �W!+� U�F5�U�@ 5  h��������������~�W!(�5�3 5�~5@�#5�hU�U7� �5�U� "E�ffff �PU0� &� � U� P��������~�t ,W!)�U�!�#X: C��������.���t t "� �  ���������.�� X:  X:tX:  Hq� (Hq���������.���  `5� w  j�����������X:X:(X:j�\��������,��� �� % eX�^� !d�a��������.�� R� R� X:X� X:^�&X:d�8��������.��h�7 }��d�& � �w ��������.��X:h�X:  X:� X:� Hq���������.��6B�!e |7�~� ��������.�� X:X:|X:VETISIPOF ICHANBR; $ 2L BP  RG ANDCOSET SE; 3 ,R4)(R OVM: 1$ SOT IKEMA, NO ; 0 RG NE  E?IVITOS;P  1$ PLB Y OP C AVESA;) SP-(0,RV MO  RG ASTIR FCHET;F  R0),R2(V MO  *;   : ULPMEX������������������������ N URETR ) R4,(2)(R ISB: 11OP B N URETR ) R4,(2)(R ICB ) R2(M CO 0:P1BO GEAN RBS AOFT ARST;   : BSPABO RRSEAB MPJ: 5$ RNTURE  )+R3,()+R1(S BI  )+R3,()+R1(V MO  )+R3,()+R1(V MO $: 4 N URETR: 3$ 4)(RG,FLEL!R007417#C BI  3$ NEB % (R0)+,R1 CMP R1,(R0) BEQ 2$ MOV R1,(R0) BIT #LC.SEQ,LCMASK BNE 2$ MOV R2,R4 DNC MOV #OCTBUF+7,R0 1$: MOVB -(R2),-(R0) MOVB #SPACE,(R2) CMP R2,R4 BHI 1$ MOV #OCTBUF+7,R2 2$: MOVB #TAB,(R2)+ MOV #PF0,R1 BIT #LC.LOC,LCMASK BNE 4$ TST (R1) BEQ 3$ CALL SETWRD 3$: MOVB #TAB,(R2)+ 4$: CLR (R1) MOV #PF1,R1 BIT #LC.BIN,LCMASK BNE ENDL19 MOV #3,R4 5$: TST (R1) BEQ 6$ CALL SETWDB BIT #GLBFLG!RELFLG,(R1& ^�7 : 7 г=7 &!˵@�2Q˵ �1ы-�7 =˵@�!QgыʋыE�&d��������~� e m$7270 $ m4 7  ы5�nɋ W =W =U�!J !ԋ� � �U���������~�p Հ�� � �  5�U@�  LU� �     :^w�D p�!Z !V��������~� ^� �  h?U �6 H  :H w�\   5�b7 7  � H: � �������'�"X:~$X:���������.��\ N� �eeE��� h����������� Hq�R�� &Ԁ|�1��������.�� \!"� 3� L!���� ��������.�� X: X:"� Ԁ|3�r �� R����������.��B� 6! w 4w (  �w�R��B ��������&�� Ԁ|B� X: X:  "Hq������������������ �1�����������Hq��}������������X,������������.�� X: X: X:X R,� R������������Ԁ|���������.��� ERRORS DETECL LVELRT TS  4)(RG,FLEL#R ISB R ROER, NO ; $ 5E BN  R?TOEC SMESA, EL R+-L RE;) R21(),R41( PBCM  5$ NEB ) R4,(LGBFGL#T BI  5$ NEB L BALO GERTHEIF IORRR;E 2)(RG,FLLB#G ITB S AGFLD OL, ES Y;  4$ EQB ? BS A *XX;X 4)(RG,FLEL!RLGBFGL#T BI  ET SLL AS,YE ; $ 3Q BE  X?XX* S AB;) R2,(LGLFREG!FLLB#G ITB S AGFLO TND A; 4)(R,-2)(R-P CM  ESLUVAO TCKBAT INPO;) R4-(),R2-( MPC M HE TDD;A 4)(R),R2(D AD  LSVELEL REO TNTOI;P )+R4,()+R2(P CM  ESLUVAD AD, +)) BEQ 6$ MOVB #CH.XCL,(R2)+ BIT #GLBFLG,(R1) BEQ 6$ MOVB #LET.G,-1(R2) 6$: MOVB #TAB,(R2)+ CLR (R1) DEC R4 BEQ ENDL19 TST ROLUPD BEQ 6$ CALL PCROLL BR 5$ ������������������������TSTERR:    ;TEST AND PROCESS ERRORS MOV ERRBTS,R0 ;ANY ERRORS? BEQ 3$  ; NO BIC #ERR.,R0 ;YES, ".PRINT"? BEQ 4$  ; YES INC ERRCNT  ;BUMP ERROR COUNT 4$: MOV #ERRMNE-1,R1 1$: TSTB (R1)+  ;MOVE CHAR PNTR AND CLEAR CARRY ROR ERRBTS  ;*�~�`  � �  � U��7 PJҋ Z ѡɕ �wP � h R( ��������~�ص. =5� C @  � �-� � � �� ��  � Fe0�J � *7 ��������~�P p � ~ t� � 0�U�U� >  F�CU�� d   h�C!w�:  @��������~�ȶ ` � E��U��  �  � �U�\7 ��e�E�� L �7 �7 U �+TED: � FREE CORE: �. ����������D�WORDS� # �������������qQWp��������.���� H��&/5�w �&� &|��������.��&   e@� F� � J������������������.��( � (T� �RR J����������T X:���������.��N& &� F e�5``&7�����������(X:���������.��t� "(ҕ � 7�� �� R���������� X:X:;d�� X:;d�� ������������$�� �� 7 ��7 � �7 ��������.�� X:;) R4,(2)(R DDA: P2BO VLLLRED AN ; L LVELRG NE  UEAL VTEGANE, -; ) R4(G NE  LSBALO GNOE UR SKEMA;  T TSELR: P1BO 0D OR.W  !" ";1 P1BO R,IOH.CL TBCHG " "&; 10OPB, ND.ACH BLHTGC  /" ";V DIXPE, IV.DCH BLHTGC  *" ";L MUXPE, UL.MCH BLHTGC  -" ";1 OPB, UB.SCH BLHTGC  +" ";2 OPB, DD.ACH BLHTGC  LEAB TOPY ARIN;B    L:TBOP�B���������������������� � OPLO; $ 1R B M ER TUSIOEVPRE UNPR; P ,S0.#1 DDA E INUTROUB SLLCA; + P)(S@L ALC: 2$ 1S ERST-ROTATE ERROR BITS BCC 2$ MOVB (R1),(R2)+ .IF NDF XCREF MOVB (R1),R0  ;FETCH CHARACTER TSTR50   ;CONVERT TO RAD50 CALL MULR50  ;LEFT JUSTIFY CALL MULR50 MOV R0,SYMBOL ;STORE CLR SYMBOL+2 MOV #ERRROL,ROLNDX ;PREPARE TO CREF CRFREF   ;DO SO .ENDC BR 1$ 2$: BNE 1$ 3$: RETURN ENTSEC IMPURE ERRCNT: .BLKW   ;ERROR COUNTER ENTSEC IMPLIN ERRBTS: .BLKW   ;ERROR FLAGS XITSEC .IF NDF XEDCDR GENEDT CDR,,1 ENTSEC . � d B��� `��������~�@  P  H &`o!7 7  , � �BGW!<�! |@@B!   f6�E 0� Dr��������~�� ( ) �& $   �  (�U�p&� e  W �  r �U�F��  7 h��������~�04 > >&f&f& @ABCe) # E�� e8�EU� ��      B A @ ��������~��U�L w�\   ! W x/ X:;d��X:vL��X:vL�X:���������,�����  �]��w ��f��������.��X:�X:� X:�X:�X:vL����������.���f�w� � �� �� 7 � �� ��������.�� �����X:��;d�� X:vL�$X:��������������NP��������.��R� X:N X:X:PX:��������.��� |�r� � �  . �w�,��������&�� Hq� X:|�X:r�$X:;d��������� ��<�����������Hq �q���������� �����������GIREE ORSTRE;+ 4)(R+,2)(R MPC E UTOLBS AOR FSTTE; T TSBSAL ALC S AGFLE RGME, ES;Y 4)(R,-2)(R-S BI  NELIN ICKHE CO, N;  2$1T BG  Y?NL OTELUSOAB;) SP,(BSPABO#P CM $:11 ORRR EL,UL N;  AR ROER  OKF ICHANBR; $ 11 NEB N ER TXTNEE ATLUVA;E   RMTE  OPS ASYP;B   NBETG S ESDRADR TORAPE;O P)(S,-R0 OVM L BOYM SUSIOEVPRO TTSINPO1 ;R  R1P,SV MO  L"BOYM"SO TET SR3;) SP-(),R3-( OVM ) DSOR WWO(TL BOYM S; P)(S,-3)(R-V MO  DEMO ;) SP-(),R3-( OVM E LUVAS 1IMPURE CDRSAV: .BLKW   ;SAVED CHAR FROM CARD FORMAT .ENDC XITSEC ������������������������ .SBTTL STATEMENT PROCESSOR STMNT: MOV CNDWRD,R0 ;IN CONDITIONAL? BIS CNDMEX,R0 ; OR MEXIT? BNE 40$  ; YES, BRANCH IF SUPPRESSED GETSYM BEQ 20$ CMP R5,#CH.COL ; ":" BEQ LABEL CMP R5,#CH.EQU ; "=" BEQ ASGMTP .IF NDF XMACRO MSRCH BEQ 2$ CRFREF JMP MACROC  ;MACRO CALL .ENDC 2$: OSRCH BEQ 30$ CRFREF 10$: JMP PROPC  ;PROC2A�%+�%-��n �5� \��������~�  j 0�bab b b m>> %.�w .ށ%E�  � U�~ b 7`@@T@T@Th 1"3 ���������~�  �e�     � � 5� � � � �  �   �e�{U�P��������������~� b(J�  � 5�t4  Uб�r  U� m"7 7 7n �" 0�  B� P��������~�$� � 4� $� �l�a �� 3����qQW> ��������.��>t  z ff7 �� +��������.�� X:t X:  X:"X: � &Hq���������&��dv �- ��� w � )��������������������.��X: �X: �X:��X:;d�X:�����������x7 x���������*�� Hq� X:xX:X:x`��������(��z| �! ! �f��������.��X:z X:| X:X:;d� X:�������������������=���������� X:�Hq�@�����������kQ4d�����OUVIRE PTOS NTOI PR2; 2 ,RSP OVM E LUVA ;) SP-(),R3-( OVM L VELEL REK ACST;) SP-(),R3-( OVM M ER TUSIOEVPRK ACSTO TET;S R3.,10L+BOYM#S OVM: 0$ 1 N URETR: 5$ UETRT SE; 0 RZ TNSE  IT BERSTGIREE RGME;) R3,()+SP(S BI $: 4N IOAROCEL REROPPRIM; A ORRRE: 3$ 4$ BR  ORRR EG,RED ANL RE; R ORRRE T SET NOF ICHANBR; $ 4Q BE  AGFLR TEISEG RSTTE, LEABATOCEL;R  P)(S STT 0 F ICHANBR; $ 4C BC  1OR0 T NOF ICHANBR; $ 3E BN  ELEV LONATOCEL RSTTE; L LVELR5ESS OP CODE ������������������������20$: .IF NDF XEDLSB MOV #10.,R2  ;NOT SYMBOL, PERHAPS LOCAL SYMBOL? CVTNUM BEQ 30$  ; NO CMP R5,#CH.DOL ;NUMBER, TERMINATED BY "$"? BNE 30$  ; NO GETNB CMP R5,#CH.COL BNE 30$ MOV CLCLOC,R0 SUB LSYBAS,R0 ;COMPUTE LOCAL OFFSET BIT #177401,R0 ;IN RANGE AND EVEN? BEQ 21$  ; YES ERROR A  ;NO, ERROR 21$: LSRCH   ;YES, DO A LOCAL SYMBOL SEARCH BR LABELF  ;EXIT THROUGH LABEL PROCESSOR .ENDC 6   � b b b �w�J � %,� &   5�wp7 ~w�& ��������~��)62 \� R�W"�  ! ! C   7   U� �U��  � ~  ��������~�x r  I�U� � > C � 4  ,    p 6� 5�v@  C BW!&�W!!�B   C ��������~��C  v( p �  �B  2Pj0d @Z0�`R � PDU�� U��C ��������~�h !� z  �7��������lzw���������� ����PA�`������������������� ������������ ���/���������� qQW�qQW��������,�� 7 �� �7`��7 �7 ����������������.�� X: �X:;d�X:;d� X:;d�$X:;d������������ ��7 � ���������.��X:;d�X:��X:;d� X:X:vL �G����������P � �ev��������.�� X:PX:vL � X:;d�X: X:��������(�� �5'�U ���@ ]����������.�� X: X:;d �X:X:vL��"X: SRA G LA FERSTGIRET BUL ALK AS;M P)(SG,FLEG-R-1#C BI  NDOU FIFH NCRA;B  0$1E BN  LEAB TORATEROPY ARIN BHE TANSC; L TBOPBN CAHSC G LA FERSTGIREE AV;S P)(S),R3(S BI  R4E,LUVA#V MO  RSTEINPOF OLEUPCOA T SE;3 ,RDEMO#V MO $: 1E AGORSTG LA FERSTGIRET SE, LLNUN-NO; ) SP-( LRC L UL NIFT XI;E  5$ EQB M ER T AOR FRY;T   RMTE  RSTEISEG RVESA;  G REAVS N IOATLUVA EONSIESPREX;   : PREX ORATLUVA EONSIESPREX TLBT.S ������������������������ C SEITX 2 N/LELDR9 30$: SETSYM   ;RESET CHAR POINTER AND FLAGS TSTB CTTBL(R5) BLE 42$  ;NULL IF END OF LINE MOV #WRDSYM,R1 ;NEITHER, FUDGE ".WORD" DIRECTIVE MOV #SYMBOL,R2 CALL XMIT4  ;MOVE PST ENTRY TO "SYMBOL" BR 10$ 40$: CALL SETCLI  ;UNSAT CONDITIONAL, TEST DIRECTIVE BMI 41$  ; BRANCH IF EOF BIT #DFLCND,R0 ;CONDITIONAL? BNE 10$  ; YES, PROCESS IT BIS #LC.CND,LCFLAG ;MARK AS UNSAT CONDITIONAL 41$: CLR R5 42$: RETURN   ;IGNORE LINE ����������������:B  P0@ P U�� � 0 � P �-Z��������~�༘X U�l�v E  w v��R- � b� x7 v-p� H� `UP ѭ��������~�X F &�  �ҋU�U�R$7�%. �R�ҕ �Ў" :w :װ7 ���������~�нz�bZ� fA�ʕ� R�fA� ��� ��e�ʕ� Jҋ� � w������;;d�?��������.��.� U��� /D D` W! � W!����������X:;d�X:vL��*��������.��T �W! � �RE@� 5@�5@�d�+����������X:;d� Hq�(X:d�[��������.��ze� �JU���� � ����������X:vL��"X:;d�����������$�5�d�7!��������.��X:X:$�X:d�X: X:��������.����  ��� �! ! �f������������������&��X:;d��X:;d�X:;d� X:��������.��,�,��Q$  D�W LK.B F:BULD R3 KWBL.: DRDHRL 1W LK.B D:ENIN L2 N/LEINLW LK.B F:BUIN L> UFTBOC.--<ENTLOC KBBL.: F1TPOC 7B LK.B 0:PFCT O2 KBBL.: EQTSOC 0B LK.B P:ERCT O: UFTBOC 4W LK.B L:FIBJ O2 KWBL. 2 N/LEBJOW LK.B F:BUBJ O3 KWBL.: DRJHOB 4W LK.B K:LNBJ O1 KWBL. 4 KWBL.: ILTFLS 2W LK.B  +1/2N>LEIN+LENTLOC<W LK.B F:BUST L3 KWBL.: DRTHLS 4W LK.B K:LNST L1 KWBL. E URMPIC SENTE L FIBJO, NKJLOB F,BUMDCD OR.W I:CSBJ O L FISTL, NKTLLS F,BU=������������������������SETCLI: 1$: GETSYM   ;TRY FOR SYMBOL BEQ 3$  ; EXIT IF NO SYMBOL CMP R5,#CH.EQU ;ASSIGNMENT (=)? BEQ 3$  ; YES, IGNORE THIS LINE CMP R5,#CH.COL ;LABEL (:)? BNE 2$  ; NO GETNB   ;YES, BYPASS COLON BR 1$  ; AND CONTINUE 2$: OSRCH   ;TRY FOR OP-CODE MOV MODE,R0  ;MODE TO R0 BPL 4$  ;BRANCH IF DIRECTIVE 3$: CLR R0  ;FALSE 4$: RETURN ASGMTP: BR ASGMT ������������������������LABEL:    ;LABEL PROCESSOR >���~�H� 5� 6Z^5�6  �D Bh6 �& � D '>E�EUQa7 x: z��������~�n���  5@�lŭgE^U�XEtUn^ 4� L� �7 � 7  . w �Z؇�  +��������~�8w� h Vq f �Z *5�.F7> >T5�@P7 N7 �� : $ rj ���������~�>5� 0j l d�?ɥ�a &ҕ � 6ڇ 2�7 B (��  ҕ �@ ҕ �? ��������&�� R,� R,�X:X:;d���������.��+f � - � ���������� X:X:X:R��������.��(⋁wU��5�A P����������X:X:vL� &X:P��������.��NU ���R� w�j B7 � � ����������X:vL��R� &Hq���������&��tU���& $� ��H ��%5�c��������.��X:vL��X:$�X:X:��X:vL����������&���A Z�>55�X��� �5�,��������.��X:vL� X:Z�MDCD OR.W I:CSST L E URDP ECTSEN  4W LK.B L:FIRC S2 KWBL. 2 2+N/LERCSW LK.B F:BURC S3 KWBL.: DRCHSR 4W LK.B K:LNRC S1 KWBL. E URMPIC SENTE L FIRCS, NKCLSR F,BUMDCD OR.W I:CSRC SE URDP ECTSEN  RSFEUF B/OIL TTSB.� ���������������������� � RNTURE  ITF UFST;+ 2)(R0,RB OVM 0 ,R40#D AD $:23 R00,-400#1 DDA: 2$ 20 ,R00-111#D AD $:21 ARLLDOR OOT;D R01,-122#D AD  ARLLDO; $ 21 EQB A PHAL; $ 22 LTB E DLID MSTTE; 3 #30,RP CM  ES Y;  3$A CMP SYMBOL,R50DOT ;PERIOD? BEQ 4$  ; YES, ERROR .IF NDF XEDLSB CALL LSBSET  ;FLAG START OF NEW LOCAL SYMBOL BLOCK .ENDC SSRCH   ;NO, SEARCH THE SYMBOL TABLE CRFDEF LABELF= . BIT #DEFFLG,FLAGS ;ALREADY DEFINED? BNE 1$  ; YES MOV CLCFGS,R0 ;NO, GET CURRENT LOCATION CHARACTERISTICS BIC #377-<RELFLG>,R0 ;CLEAR ALL BUT RELOCATION FLAG BIS #DEFFLG!LBLFLG,R0 ;FLAG AS LABEL BIS R0,MODE  ;SET MODE MOV CLCLOC,VALUE ; AND CURRENT LOCATION BB=  � ��������~�(ԇ� ��4�� �   ĝ n  \ j 7 D`5 �\E�z,e  ��������~���G -@   ��~ x�@a �` W 5��J ҝ3@ ��������������~� ѝ ѝ w~ wa �l �d�����J- w �Ӛ-.a��������~�5��w �ӌ� &&CX:X�X:;d��X:vL �6����������������$��X� � �5�X�E���������.��X:X� X: X:vL �rBx �X:X���������&���=X��!݊ 5�X���������.��X:vL�X:X� X:vL�X:X:X���������.��� ҕ �   v ���������.�� Ԁ|� X: X: $X:&X:vL ���������&��P �݊  R? � %��������.�� X:PX:vL � X:X:vL � X:��������.��.5�X�`�  T � U��������.�� X:2Q BE  E?ACSP; 0 RT TS $:11 R03,RV DI  R0 LRC: 0$ 1 N URETR R TEISEG RRETOES RS,YE;4 ,R)+SP(V MO  NO ; $ 1E BN  H?UGROTH;4 L+BOYM#S4,RP CM  UY GSTLAH ISIN;F  1$1L ALC 0 ,RR1 OVM T EX NOR FINGA;A  0$1L ALC 3 ,R50#V MO  ITF UFSTD ANE IDIV;D  0$1L ALC R SOVIDIT SE;3 ,R500*#5 OVM D OR WXTNET GE;1 ,R)+R4(V MO $: 1E AGORSTL BOYM STOT INPO;4 ,ROLMBSY#V MO  EG RVESA;) SP-(4,RV MO  NETIOU RCKPAUN0 5AD;R    P:UN50 R N URETR E ORST;+ 2)(RER 3$  ;INSERT 1$: BIT #LBLFLG,FLAGS ;DEFINED, AS LABEL? BEQ 2$  ; NO, INVALID CMP CLCLOC,VALUE ;HAS ANYBODY MOVED? BNE 2$  ; YES CMPB CLCSEC,SECTOR ;SAME SECTOR? BEQ 3$  ; YES, OK 2$: ERROR P  ;NO, FLAG ERROR BIS #MDFFLG,FLAGS ;FLAG AS MULTIPLY DEFINED 3$: INSERT   ;INSERT/UPDATE SETPF0   ;BE SURE TO PRINT LOCATION FIELD BR 5$ 4$: ERROR Q 5$: GETNB   ;BYPASS COLON MOV CHRPNT,LBLEND ;MARK AND OF LABEL JMP STMNT  ;TRY FOR Ff% �"0 N ~ @ � ҕ+� ��������~�� H�w �w �)4����fA ��f5�@ w   `w 1 R��������~�€ŀ�ɕ?��ҥ �ҕ �ҕ �# Dw D҄  � * ҕ � >>��������~�� �� ~f e0�R�&:@ �(� �@ �!>�� <  �e �ee �e ��  F��������~�p& >@Rw E  U�G X:X� X:vL� X: $X:vL� ��������.��T >5`�ʕ'�5@�ʕG�  �h���������� X: $X: (X:;d ���������.��zW  H H5�X� �ҕ �����������X:X�$X:;d���������.�� � � � * ?��������������������.��X:;d� X: X:X:vL � "X:��������.�� �� 5$�X�  � l-���������&��X:vL �R�X:X�(X:��������� �����w��� ���������.��X:� X:� X:�1,RB OVM I CIASO TRTVEON;C R10,G.DI#D AD  ERMBNUE EVRIET;R R1+,P)(S OVM: 1$ SEUREC;R  CFDN LLCA  ROZES ESNL U;  1$ EQB E IDIV DXTNER FOT SE; 1 ,RR0 OVM R DEINMAREE AV;S P)(S,-R1 OVM 1 RDEVIDI; 0 ,RR3 IVD 0 RR CL  ALIMEC DANTHR HEOTR FOY TREN;   : CFDN ORISIV DET;S  R3.,10#V MO  ONSIERNVCOR BEUM NALIMEC;D    C:DN������������������������ R OVITX C SEITX N VE.E  ERFFBUE TLTIB-SU;1 N+LETLSB LK.B F:BUTL SS PAMPIC SENTE D ENE TLTI;  W IMORE ������������������������ .SBTTL ASSIGNMENT PROCESSOR ASGMT: GETNB   ;BYPASS "=" MOV #SYMBOL+4,R1 ;SET MIX-MASTER REGISTER MOV -(R1),-(SP) ;STACK SYMBOL MOV -(R1),-(SP) RELEXP   ;GET NON-EXTERNAL EXPRESSION MOV (SP)+,(R1)+ ;RESTORE SYMBOL MOV (SP)+,(R1)+ ASGMTF: SETPF1   ;SET LISTING FIELD MOV #MODE,R1 ;REINSTATE INDEX FOR NEWCOMERS BIT #ERR.U,ERRBTS ;ANY UNDEFINED'S? BNE 3$  ; YES, DON'T DEFINE CMP SYMBOL,R50DOT ;MESSING WITH THE PCJU�U�D& 4 .U�%BX �$ e �+ -L��������~�b*x/T&X!�� � 7 F b$b((5`�5`�5@�5@�2�� U �  E �SSST�w��J B�R�&�  N H���������~�`@   N � � � ��& � @   � �&�   `@   5@�n  ��������~�5`�` 7 Z 7 Z U�nN �7  �E�7 : 5 � 0 fw� 7�� -  5�U@�5�5@�G��������~�PU� E@�AHKvL�� X:������������.�� �H H5�X�  ʕ � ���������� X:;d �X:X� X:��������.��*ҕ ��5�X�  Xҕ � ���������&�� X: X:vL�X:X� (X:vL�(��������.��P5�X��  65`�ҕ'�5@�y����������������X:X�R��������.��vG�ҕ �  � d��E�����������R� X:vL��*��������.�� "�ы7 ��R@   7�7 ��������&��X:"� Ԁ|X:vL��&X:�������������� �LK.B D:ENTL TG INNNGIBEE TLTI;  W LK.B G:BETL TN VE.E  C.ET, #GEPA, TEDA; . 44 KBBL.: U2LBTT GERATO SLEIT;T ENLLTT1+ KBBL.: UFLBTT REPUIM ECTSEN  THNGLEE TLTIB-SU;  . 64 N=LETL S H GTEN LLEIT;T   2.3= ENLLTT LEIT TLTAUEF;D ./INMA/. IZSC.A 1:HDET ST BYXTTC SENTE N URETR D ENTL,TR2 OVM C ND.E  R2.,#5 DDA E IM TND A;  R21,#T TDCV. + 2)(RE,ACSP#B OVM E AT DEDORSTT AS PVEMO; 2 ,R9.#D AD  TEDAE THT ERNVCO; 2 ,R#0 DTVT.C  V4OSDF NDF .I  #ONM? BEQ 1$  ; YES BIS #DEFFLG,(R1) ;FLAG AS DEFINED MOV (R1)+,-(SP) ;NO, STACK VALUE MOV (R1)+,-(SP) SSRCH   ;SEARCH SYMBOL TABLE MOV (SP)+,-(R1) ;RESTORE VALUE BIC #-1-GLBFLG,-(R1) BIS (SP)+,(R1) INSERT   ;INSERT NEW VALUE BR 3$ 1$: TSTB (R1)+  ;PC, MOVE PAST FLAGS CMPB (R1)+,CLCSEC ;SAME SECTOR? BNE 2$  ; NO, ERROR MOV (R1)+,CLCLOC ;YES, SET NEW LOCATION BR 3$ 2$: ERROR M 3$: CRFDEF RETURN ������������������������ .N:  8U �5    U�  (^ 'U�W!.� W!$�U� � , ���������~�W!.� xU�  * �w 0 +-&"&':%F<T^��  U�H� w�  ɟŀ�  ��������~�@U��  pW!>� w f  CDOB*F�� L w�\e�e�e�d` pX� X 6� N**>! ! ?��������~�-- @� � � ` &�   P � & e� @4� $� A� �@�����O����������������������X:� R��w��S�������� ����r^ ���������� qQW^ �qQWV��������.���] �= tW!:�VW!=�R  ����������X:;d� X:;d ���������.��w�  w�` � W!$� ��������.�� W!:� �l�5U��� 5 Z���������� X:�X:;dl�X:vL��G��������.��F���� t �5��U�� ��������������*�� Hq� z X:�&X:vL���������.��l� W!=� W!:� " \�� =����������$SIER VOR FTOIT;D   YTVBMO  R12,O+LLHE#V MO  )+R2,(AB#T VBMO  EAART ANSTON CTOT INPO;2 ,RU2LBTT#V MO  ERFFBUD ANE TLTIT SE; E TLTI LLCA  HRTCSE  NELIL EA RATG INOKLOE 'RWED ENETPR;T PNHR,CD1THSE#V MO  1R OVNTE R FEUF BERADHEE THT NI;I    R:HDET S C SEITX M RAOGPRF ORTTA SATE ER HMECO; R HDETSL ALC G PRCTXC SENTE� ���������������������� � ECTSXI  +3BLLTLB NCI B KTOT NI;I  +1BLLTLB NCI G PRCTXC SENTE S AGFLT AI;W  1W LK.B T:AILW LG INPPMAE ICQSBTTL OP CODE PROCESSOR PROPC:    ;PROCESS OP CODE MOV #MODE,R4 ;POINT TO MODE MOV (R4),R1  ;LEAVE RESULT IN R1 CLR (R4)+  ;SET TO ZERO, POINT TO VALUE MOV #CLCLOC,R2 ;POINT R2 TO LOCATION COUNTER BIT #100000+DFLGEV,R1 ;OP CODE OR EVEN DIRECTIVE? BEQ 1$  ; NO BIT #1,(R2)  ;YES, CURRENTLY EVEN? BEQ 1$  ; YES INC (R2)  ;NO, MAKE IT EVEN ERROR B  ; AND FLAG ERROR 1$: BIT #DFLGBM,R1 ;BYTE MODE DIRECTIVE? BEQ 2$  ; NO INC BYTMODR�����~�0 �   C0� �  & N`  U�` �e�w� �  7 dU� � �@  5���������~� U� -  F�>� ,�U�  � 7  E�  �� ş �A@l��������������~� NE�@`��� j��� `��� V�� 7 : "�U� � $��5�   E� ��������~�7 � C� �@ @   #1-�� ` E�Q$) �N``B ! �� SX:���������.���;-��-  6 5�� �E��������&�� X:� Hq� X:�&X:�%��������&���U �7P���5��-���������.�� X:�X:�X:�X:� X:���������.�����U���U��  U�i��������.��X:� X:� X:�X:vL��X:� ��������.���� ���w� �ff Z q��������&��X:vL�� X:;d��X:vL� X:�L��������.��" d �5� ��-�� U�ff E��������&�� X:�X:vL��X:�EV DALICYSPHO TALICOG;L  2W LK.B L:TBLL REPUIM ECTSEN  RNTURE $: 9G LA FITWAT SE; T AILWLC IN  ITE ITWR;R HDST#LK,LNST#L TERI.W  NO ; $ 9C BC  E?ICEV DNGTIIS LUTBO AOW;H  R4 SRA: 7$ ONTILEMPCOT AIAW;R HDST,LNKOLCM OFITWA  PETY, ES;Y DRTHLS,#NKOLCM#E ITWR. O N;  7$ CCB ? EDSTUEEQ RKB; 4 RR AS  DEMOR EACL; ) R3-( LRC T UNCOT SE;) R3-(2,RV MO  NTOU CERCTRAHA CTEPUOM;C  R23,RB SU $: 5F LET;S )+R2,(LF#B OVM R CFFTU;S )+R2,(CR#B OVM F /LU  ;YES, SET FLAG 2$: TST R1  ;OP-CODE? BMI 10$  ; YES MOV (R4),R0  ;NO, DIRECTIVE. ADDR TO R0 CLR (R4)  ;CLEAR VALUE CLR R3  ;START WITH R3=0 JMP (R0)  ;GO TO PROPER HANDLER 10$: MOV #077776,PCRCNT ;LIST LOCATION OF FIRST WORD ONLY STCODE   ;STUFF BASIC VALUE .IF NDF XCREF MOVB R1,CRFDFL+1 ;SET "*" CREF MARKERS .ENDC SWAB R1 BIC #177600,R1 ;CLEAR HIGH ORDER BITS MOV R1,OPCLAS ;SAVE CLASS ASL R1 ASL R1  ;FOUR BYTES PER TV #`B � � s�" ���������~��  #1-��`7:� w  7 s�"ʒ$s�6 h� 7  ^� `ص B w R��������~� �  � �u5؇�7x  <�fl ABC: �f& �:?>@Ї�f��������~���6�  �RRRRRRR�       �R⋇� &  & & ^� H f P   ��������~�xԈ $8 e��7 h w�U� � ( $ � \WHq�/��������.��H U  ыw�w�U@��� 8 �����������X:�X:� X:vL����������.��n � �5�5� U���5�� ��������,�� X:� X:�,� X:vL��$,��������.�� � �  H�� w��Ew�Q��������&��X:vL�X:vL�X:vL�(X:vL���������.�� & f� A�f�E� n� ` ���������� Hq� Hq�(` ��������.�� w� Ί�  �1P�  �@�Em����������X:vL�r � r ���������.�� �%P�%ECRO NS,YE ; $ 5Q BE  T? V AD,ENO TVEMO;+ 2)(RT,#V PBCM  ITM RI TS,YE ; $ 4E BN  K?ANBL;) R0L(TBCTB,TAT.!CSPT.#C TBBI  ARCHG INEDECPRH TCFE;0 ,R2)(R-B OVM: 4$ 3$ BR  DCEN. " "?T SE, ARCHL GALEIL;) R1-(M,.QCH#B OVM F IF. R ROERE BSTMU;) R1,(QMH.#C VBMO  SECAR WELOF IRETO-SRE; $ 3E BN  CEURSON IIT BGNSIR EACL;) R1-(0,20#B ICB C DLXE DF NIF. L UL NIFD EN; $ 4Q BE  R0T SED ANP UCKBA, ALCIPE;S R0),R2-( VBMO  ALCIPE SNGHIOT NIFP OO;L  3$ GTBYABLE ENTRY CLR -(SP)  ;SET A STOPPER MOV OPJTBL+2(R1),-(SP) ;STACK SECOND ARG BNE 11$  ;BRANCH IF TWO ARGS TST (SP)+  ;ONE ARG, PRUNE TERMINATOR 11$: MOV OPJTBL(R1),R1 ;SET THE FIRST ARGUMENT BEQ 14$  ;BRANCH IF NO ARGS 12$: MOV R1,-(SP) ;SAVE A COPY OF THE ARG SWAB (SP)  ;SHIFT COUNT TO RIGHT HALF BIC #177400,R1 ;ISOLATE LOW BYTE TSTARG   ;COMMA TEST CLR R0  ;FUNCTION REGISTER CALL OPJBAS(R1) ;CALL PROPER ROUTINE .IF NDF XCREF ROLB Z ,  * �   U@�  7 ��������~�-H U�^   � ,& $7 7 & �  6  �  @� @ h ��������~�hl� * v  & 0 @w�U� �� 7 7 . � %?�S 8 � |�  � 7 &i��������~� #- &   %\�0   :   ~  R  E zE 5�J  7 U���������~�X � nf 8� >[% 5�E%�p$��������.��, E%E%�% � A A �h����������R 5�U�@���u��������������������X:vL���Hq���������.������������������H������:����������@����������v���������������qQW` ��������.��` � 5U���E� �� Z����������X:vL��"X:�$X:���������������������.�� �  e�5�U����������������X:�X:vL��(X:���������.�� h � ׭�� ��  ERFFBUT PUUT OTOR TEACARCHE OV;M )+R2,()+R1(B OVM: 3$ PYCOA E AV;S  R32,RV MO  ERPPTO SET;S  )+R2(R CL  EXND IONTINATIES DET;S R22,F-BUST#L OVM G INDOG INTHNOF IITEX; $ 9Q BE  UTTPOUL CASIHY PTOT ERNVCO;4 ,R0)(RBLLTLB OVM: 2$ DRTHLSK,LNSTLF TOAIW $ 2C BC  LPR FOO TTDI; T AILWLR AS  RSTEISEG RCKTA;S   EGVRSA  NELIA T PUUT;O    N:LIUT�P���������������������� � UT OMBBO; 2 20 ORRRSE  ALTIAR PSELO CS,YE; F INFL ALC K OO, N;  BXTKPU EQB ? OM]CRFDFL+1 ;MOVE SECOND FIELD BIT .ENDC 13$: ASL R0  ;SHIFT RESULT DECB (SP)  ;COUNT IN SP, RH BGE 13$ ROR R0  ;WE WENT ONE TOO MANY MOV ROLBAS+CODROL,R1 BIS R0,6(R1) ;SET EXPRESSION BITS TST (SP)+  ;PRUNE WORK ENTRY 14$: MOV (SP)+,R1 ;GET NEXT ARG FROM STACK BNE 12$  ;BRANCH IF NOT TERMINATOR ������������������������ .IF NDF XZERR MOV ROLBAS+CODROL,R1 MOV 6(R1),R0 ;SET FOR "Z" ERROR TESTS MOV R0,R1 BIC #000007,R1 CMP #000120,R1 ; ^ e?�f � �$�  � f e0�w� LUm��������~�@� 5�  %Z  � f5�   �        ~ W!'� ��������~�Hn b߻ v  *^! $ �     :ff  � 7 w�U�)��������~�4U��  L� "U�z� 6�  � �@B �    C w�� z<  Ԧ<�>�C!��������~�8W!^�8�_ �  o���������� X:vL�X:�X:���������.�� X���� H� � v �!���������� X:�X:�G��������.�� �   z0U���@�7 ����������"X:vL��i��������.�� h �& W!@� 5�U���U� fW!����������X:vL �X:vL����������.��D #� Z% �� 0 U�^W!-� ����������X:vL�y��������.��j ��� 2W!(� �U �SW!(� �W!)����������X:;d��X:;d�W��������.�� +� U�F5�U�@ 5  �����;E )+R5@(0,40M*EOB.#S ITB T PUUT OONT AI;W  )+R5(T AI.W F:TOAI W 5 RS RT X:KBUT P1 ,R)+SP(V MO  NELIE THT PUUT;O   INTLPU  RG ACHET;F R1+,5)(R OVM G REE AV;S P)(S,-R1 OVM: BFTKPU LP& B KTOT PUUT;O  R03,#V MO L:KBUT P F KBUTPR B P LTOT PUUT;O  R02,#V MO P:TLPU BFTKPU BR  KBO TUTTPOU; 0 ,R#1 OVM: KBUT P C SEITX / E AG P/Z CIAS.: D1THTS YTTBTX ECTSEN  NELIT PUUT OOW;N  INTLPU BR  R0+,P)(S OVM 1 ,R)+SP(V MO $: 1T UNCOE IN LEW NET;S NTPCa JMP (R)+ BEQ 22$ BIC #000700,R1 CMP #004020,R1 ; JSR X,(R1)+ BEQ 22$ MOV R0,R1 BIT #007000,R1 ;FIRST ARG TYPE 0? BNE 23$  ; NO, OK BIC #100777,R1 BEQ 23$ CMP #070000,R1 ;DOUBLE ADDRESS TYPE? BEQ 23$  ; NO MOV R0,R1 BIC #170017,R1 CMP #000760,R1 ; MOV PC,[@]X(R) BEQ 22$ BIC #177717,R1 CMP #000020,R1 ; (R)+ BEQ 21$ CMP #000040,R1 ; -(R) BNE 23$ 21$: MOV R0,R1 ROL R1 ROL R1 SWAB R1 SUB R0,R1 b  C D C!D! U�U�JՐP:�� x7� x�� H 7* ��������~�H7� f'� �7 5�� �>�� R� ,׀e�- w "ۏ7 � �� � & �&��������������~�(Ϟ� ԦfR %R x�Ԁ   @  N� �D �>7 XdX ��������~� , p 5�@ % %�  l  xX lX  nfU� P7 J7 c���.�� W!(�5�3 5�d�5@������������X:d�&X:���������.�� 5�d�U�U7� �5�U������������� X:d�(X:vL����������.�� E�ffff �PU0� &� ��������*��( � U� t ,W!)�U���� ^�����������X:vL���w�G�������� ���I^ 3���������� qQW^ �qQWJ ��������.��J 7 : 7  =O� �˵@�2Q���������� Ԁ|O�X:;d���������.��p ˵ �1ы�-�7 U�˵@�!Q�����������X:�LPP,LP#V MO  NELIK ANBLA D AN ; F RLCP TLPU  E,TLTIB-SU ; F BUTLSP TLPU  ITT PUUT;O   INTLPU  LEIT TOFT ARSTO TNTOI;P R1G,BETLTV MO  R02,#V MO  2)(R RBCL $: 2+ 2)(RD,ADH.#C VBMO  2$ EQB T EXAGPC IN  ALIMEC DTOT ERNVCO;  C DN  R1M,NUAGPV MO  ONTISIPOO NT IE"AG"PE OV;M   YTVBMO  R11,HDST#T OVM $ 2Q BE  SSPA STT R BEUM NGEPAO TNTOI;P R2D,ENTLTV MO  METIT NOF IIPSK; $ 1E BG  NTOU CNTMEREEC DS,YE; T CNPPLC DE  NO ; $ 1Q BE  E?ICe BIT #000007,R1 ; R1=R2 BNE 23$ 22$: ERROR Z 23$: .ENDC CPOPJ: RETURN ������������������������ .MACRO GENOPJ NUMBER,SUBR1,SC1,SUBR2,SC2 ;OP CODE JUMP TABLE .GLOBL OPCL'NUMBER OPCL'NUMBER= <.-OPJTBL>/4 .IIF NB <SUBR1>, .BYTE SUBR1-OPJBAS .IIF B <SUBR1>, .BYTE 0 .BYTE SC1+0 .IIF NB <SUBR2>, .BYTE SUBR2-OPJBAS .IIF B <SUBR2>, .BYTE 0 .BYTE SC2+0 .ENDM ENTSEC DPURE OPJTBL:    ;OP CODE JUMP TABLE GENOPJ 00 GENOPJ 01, AEXP GEf� 9��������~�b   . 0 &���������������������������������������������������������������������������������������������������~�������������������������������������������������������������������������������������������������������������������������!��������~���������������������������������������������������������������������������������������������������������������������������������~�������������������������������������������������������������������������������������������g Ԁ|U�(X:���������.�� ыʋыE�& e m�7�7����������� r �$X:�(X:���������$��  � m� 7 � ы��������&��rBx �X:�X:��w��������� ���ke^ �������������������� qQW^ �qQW M��������.�� 5�d�ɋ �W U�W U�U���f��������.��X:d�X:� Ԁ|U� Ԁ|U�(X:vL��~��������.�� J �ԋ� � �U��� ����������X:vL�&X:vL������������$ Հ�������������������Ԁ|O��������EV DNGTIIS LALICYSPH; 2 L+TBLL TBTS  P)(S,-R1 OVM S AGFLG INSTLIE AV;S P)(S,-R0 OVM G REAVS E IN LUTTPOUD ANR DEEA HOR FSTTE;   : DRTHTS UTTPOUG INSTLI TLBT.S ������������������������ C SEITX W LK.B P:TYLK BW LK.B T:PNLD RW LK.B T:PNBJ OE URMPIC SENTE N URETR: NXJIOB NTDPRL2,F+BULD#R OVM T PNBJ,OUFJBOB#V MO I:INBJ O : 9$ DRDHRLK,LNBJOF TOAIW R HDLD#RK,LNBJ#O TERI.W  0)(R,-#1 OVM ) R0,(UFDBRL#B SU  0)(R,-NTDPRL OVM ) R0,(YPKTBL OVM 0 ,RUFDBRL#iNOPJ 02, AEXP, 6, AEXP GENOPJ 03, REGEXP GENOPJ 04, BROP GENOPJ 05, REGEXP, 6, AEXP GENOPJ 06, TRAPOP .IF NDF X45 GENOPJ 07, AEXP, 0, REGEXP, 6 GENOPJ 08, REGEXP, 6, SOBOP GENOPJ 09, AEXP, 0, REGEXP, 6 GENOPJ 10, MARKOP GENOPJ 11, AEXP, 0, DRGEXP, 6 GENOPJ 12, DRGEXP, 6, AEXP, 0 GENOPJ 13, SPLOP GENOPJ 14, AEXP, 0, DRGEXP, 6 .ENDC ENTSEC IMPLIN OPCLAS: .BLKW   ;OP CODE CLASS XITSEC ���������������j������������������������������0��������~���������������������������������������������������������������������������������������������������������������������������������~�p������������������������������������������������������������������������������������������������������������������������?��������~���������������������������������������������������������������������������������������������������������������������������������~�`����������������������������������������������������������������k���O�� ���i�����������qQW, ��������.��,  � �  5��U@�� ����������X:�$X:�#��������.��R LU����   � X����������X:vL��"X:;d�����������������������x  �&�w�D���������� X:� X:&��f ��������� �� � ,�����������X:,��qQW E����������������.�� p� ���� ^� �  ��������&�� Hq � X:�Hq�X:���������.�� .��U �� H  �� w�������� OVM C ND.E  LD RNO, ES Y;  NIJIOB EQB ? UTTPOUS AB;K ASDM,EBS.AED#T BI  BSDAXE DF NIF. : MPDDRL ITINT US JO, N;  NIJIOB OSBL  D?RLN INGHIYTAN;2 F+BULD#RT,PNLDRP CM $: 1: 9$ DRJHOBK,LNBJOF TOAIW R HDBJ#OK,LNBJ#O TERI.W  TYMP EIFH NCRA B;  1$ EQB E IZ STEPUOM;C 0)(RF,BUBJ#O UBS ) EDTTNI IOT(NL UL NIFT XI;E  NXJIOB EQB ) R0,(NTJPOB OVM Y ARIN BEDTTMAOR;F )+R0,(#1 OVM 0 ,R+2DRJHOB#V MO  ERFFBUT ECBJ OHE TMPDU;   : MPJDOB������������������������m������������������������OPJBAS:    ;INDEX BASE FOR FOLLOWING ROUTINES RETURN REGEXP:    ;REGISTER EXPRESSION CALL ABSEXP  ;EVALUATE ABSOLUTE BIT #177770,R0 ;ANY OVERFLOW? BEQ 1$  ; NO ERROR R  ;YES, FLAG ERROR BIC #177770,R0 ;CLEAR OVERFLOW 1$: RETURN BROP:    ;BRANCH DISPLACEMENT TYPE RELEXP CMPB SECTOR,CLCSEC BNE 2$ SUB CLCLOC,R0 ASR R0 BCS 2$ DEC R0 TSTB R0 BPL 1$ ADD #000400,R0 1$: BIT #177400,R0 BEQ 3$n��������������������������������������������������������N��������~���������������������������������������������������������������������������������������������������������������������������������~�P������������������������������������������������������������������������������������������������������������������������]��������~���������������������������������������������������������������������������������������������������������������������������������~�@��������������������������������������o�.��X:.�X:�X:� X:� "X:���������$�� \ ���� 5�d�7 ��������.��Hq � X:�Hq�X:�X:d�`���������� �7 � �x����������X:�X:��w �-�������������� �� � Z���������� qQW �qQW ��������.�� �� �   � ���������� X:� X:�G��������.��  �  � U����70�Y���������� X:vL��&X:0���������.��F�2� PJҋ Z ��������.��X:������� C ND.E  RNTURE  AKRE BCEENQUSEE RCFO;C SEBJ,O77#3 VBMO T:SENC P L RONTCOH NCPU;T SENC,PNCPT EDENG C PNEDXF NDF .I  ECTSXI  AKRE BCEENQUSEE RCFO; C SEBJOB OMC S AS PCHEAE UTECEX; S PACTXC SENTE N IOATOC LLEFIT ECBJ;O  1W LK.B C:LOBJ OR TOEC SLEFIT ECBJ;O  1B LK.B C:SEBJ OD OD. S PAMPIC SENTE 2 .7038. 0 * ;2 .7038. 0 LD ROFE IZ S 7 0-S IT B q 2$: ERROR A MOV #000377,R0 3$: RETURN TRAPOP:    ;TRAP TYPE MOV VALUE,-(SP) ;SAVE THE VALUE EXPR   ;EVALUATE THE EXPRESSION (NULL OK) INC BYTMOD  ;TREAT AS BYTE SETIMM CMPB SECTOR,#200 ;ABSOLUTE? BNE 1$  ; NO TST (SP)+  ;YES, PRUNE STACK MOV VALUE,R0 ;VALUE TO MERGE RETURN 1$: ZAP CODROL  ;CLEAR CODE ROLL STCODE   ;STORE ADDRESS MOV #100000,MODE ;SET FOR ABSOLUTE BYTE SWAB (SP) MOV (SP)+,VALUE ;SET ORIGIONAL VALUE r��������������������������8 %~ � ��! 0 %~���������~�6 Vw+\ %~���ҾҐX:�����kQ4d�����������������H��������������������������~�0���Ըиw[M y%` QQR RK-[z��v@Q�d@D:< =�% �R �G @��������������DҴDѾ҆Dw��������~�֐�������������������������������   �@@@@@@@@@@@@@@@@@@@��������~� @@@@@@sX:2� X: X: $X:+��������.��lɕ �w �&� �� R( . e�⋎��������&�� X: X:;d&�X:�� $X:;de�%��������.��5� X�[� @  ��� � ��������&�� X:X� Ԁ|[�"X:;d��&X:;d ���������.���-�� � � ��╣���������� X:;d�X:��������$�� ��  � Fe0�J ������������Ԁ|[�����������[�TABLE OF CONTENTS������������qQWE��������.�� *7 �8� � ~� <�� ���������&�� R * ;2 .7038. 0 T ENESPRE LUVAY ARIN B1 = 3 1IT B * ;2 .7038. 0 ) C.ET, BLLO GOR F(GT ENESPRL BOYM S1 = 4 1IT B * ;2 .7038. 0 NTSERE PLD R1 = 5 1IT B * ;2 .7038. 0 * ;2 .7038. 0 S:IETRENL TBCR POFN IOITINEF D * ;2 .7038. 0 * ;2 .7158. 0ALuSTCODE CLR R0 RETURN ������������������������ .IF NDF X45 DRGEXP:    ;DOUBLE REGISTER EXPRESSION CALL REGEXP  ;EVALUATE NORMAL MOV #177774,R3 ;TEST FOR OVERFLOW BR MASKR3 SOBOP:    ;SOB OPERATOR CALL BROP  ;FREE-LOAD OFF BRANCH OPERATOR MOVB R0,R0  ;EXTEND SIGN NEG R0  ;POSITIVE FOR BACKWARDS BR MASKB6  ;MASK TO SIX BITS SPLOP:    ;SPL TYPE ABSEXP MOV #177770,R3 ;ONLY THREE BITS ALLOWED BR MASKR3 MARKOP:    ;MARK OPv@�������������P0�����z�����E�����E����x�z�zkQx������PALINLENfDSdCRrIke$|��������~�(3f\xKM|!HX[.K+ N,�K&X W8n ABEILMNOPQRTUZ MACRO V004A � ERRORS D��������~�ETECTED: � FREE CORE: �. WORDS� # �� ���TABLE OF CONTENTS�� END OF PASS 1�******�SYMBOL TABLE� PAGE �.MAI��������~�IN.���������������p׈:Z����������������׈רZ@d������ �������������%��@ w� X:8�X:� X:<�5��������.��  0�U���U��� >  F�C����������X:vL��X:vL����������.��FU���� d   h�C!w�:Z���������� X:vL����������.��l   ` � E��U����������.��� ��  � �U���7� *��������&��X:;d� X:;d� X:vL��&X:;d��������� ��������������;d ����������� �������������X:;d��qQW��������.���e�E�� L �7 ��7 �U �� �D����������X:ICYSPHD KEAC PLEABATOCEL R-- -17DTRL ; 4 0020 1 RDWO . 6 T1LD;R  100016 RDWO. 5 T1LD;R  100016 RDWO. 0 RDWO. 0 RDWO. 0 RDWO. 1 T1LD;R  000010 RDWO. 0 RDWO. 0 RDWO. 6 T0LD;R  100016 RDWO. 5 T0LD;R  100016 RDWO. 4 T0LD;R  060014 RDWO. 3 T0LD;R  040012 RDWO. 2 T0LD;R  060014 RDWO. 1 T0LD;R  040012 RDWO. 0 RDWO. E YP TLD RBYE BLTA;   : BLRTPC REPUDC SENTE N URETR 2 ,RNTDPRL OVM P DMBJOL ALC R TEINPOD RLT SE;yERATOR ABSEXP   ;EVALUATE ABSOLUTE MASKB6: MOV #177700,R3 ;SET TO MASK HIGH ORDER MASKR3: BIT R3,R0  ;OVERFLOW? BEQ 1$  ; NO ERROR T  ;YES, FLAG TRUNCATION ERROR BIC R3,R0  ;CLEAR EXCESS 1$: RETURN .ENDC ������������������������AEXP:    ;ADDRESS EXPRESSION EVALUATION SAVXPR   ;SAVE REGS AND SET FOR EXPRESSION INC EXPFLG CLR -(SP)  ;ACCUMULATE ON TOP OF STACK 2$: CMP R5,#CH.IND ;INDIRECT (@)? BNE 6$  ; NO BIT #10,(SP) ;YES, SECOz @i��������~����@�`�@�%@�@ ��@�t@ @�vD �� D J �� J ���� ����Y ���� ���� ���� ����.��������~�x v�� ��@�@ @� ��@�P @� ����0 ��e����o����ov��t������������ ��������[��������~�P������������;�����������������  ���%�������������  ����������~�h���%�� ����%��@ % @��  ~��@�r~�@�~%@�\!����{�X:�$X:���������.�� d B���  P  H &`��������.�� �7 �7 � , � ����������� rBx �X:�X:���������.��.BGW!<�! |@@B!   f���M����������&X:;d����������.��TE 0� D�� ( ) ����������� Hq�����������������.��z& $   �  (�U���&�N����������$X:vL��g��������.�� e  W �  r �U�������������(X:vL��c��������.����  7 T PNLD,RR2 OVM : MPRDPC������������������������ C SEITX G LA FNELIN IONSTEEX;  W LK.B T:CNCR PN LIMPIC SENTE N URETR: L3ROPC RNTUREE RU TET;S  R0 NZETS K EABRE NCUEEQ SET;S OCJLOBC,LOLCCV MO  PCE ATPD;U OCCLCL5,RD AD  2OR1 T UNCOE AK;M  R5 NCI: L2ROPC NTJPOB1,RV MO $:29 )+R1,(+1UEALVB OVM N IOCTRUSTINE YT BIFH NCRA;B  9$2Q BE  R5 STT + 1)(RE,LUVA VBMO  ERNTOI PVESA;T PNLD,RR2 OVM: 2$ 2T IVEMO, ES;Y )+R2,(UEALVV MO  NO ; $ 22 CCB ? UEAL V}ND TIME AROUND? BEQ 4$  ; NO ERROR Q  ; YES 4$: BIS #10,(SP) ;SET IT GETNB   ;MOVE PAST BR 2$ 6$: CMP R5,#CH.HSH ;LITERAL (#)? BNE 10$  ; NO GETNB   ;YES, MOVE PAST .IF NDF XFLTG CMP #OPCL11,OPCLAS ;CLASS 11? BNE 8$  ; NO CALL FLTG1W  ;YES, TRY FOR ONE-WORD FLOATING BNE 9$  ;BRANCH IF OK .ENDC 8$: GLBEXP   ;EVALUATE EXPRESSION 9$: BIS #27,(SP) ;SET BITS BR AEXP32  ;USE COMMON EXIT 10$: CMP R5,#CH.SUB ;PERHAP~42�}���s:�� s: :������������~�ژ@���@�A���K@�K &@�K8@�K09@�KK@�KK@�K��@�K@�K��@�Kf�@K�K �zQD�� ,��������~�X@R��@@R@8�@ S�@�S%@�S��@�S @�pT�pT@8 T��@�pT�@�T%@�OX��� OX �OX�OX%��������~�Y����[q`"��r��@ r @r��� r �s����s���s����w�� w ;w����w����w����w�� 8��������~�Hܜw%�w@8�w�K� w����w����y���~Ly����y� hT� > b���������� "HqT���������.��>&f&f& H�@ABCe) #���������� X:H�W��������.�� E�� e8�EU�i��������.��8 ��      B A @ ��������*��^�U���H�L w�\����������X:vL�� X:H��HqV� ������������ ��V�t���������� qQW qQW�w�5�������� ���(^ <���������� qQW^ �qQW��������&�� � � ��H�P�! W ��������.��X:vL� X:vL�X:;d��NY;A  R4 SLA: 1$ 2+ 2)(R2,L+BOYMSV MO  ITE OV MS,YE;+ 2)(RL,BOYMSV MO  NO ; $ 21 CCB ? EDSTUEEQ ROLMBSYY AN; 4 RL AS 1:OLCR P+ 2)(R0,RB OVM X DEINE UTMPCO;0 ,RUFJBOB#B SU  R01,RV MO  DECOT SE, ES;Y )+R2,(ORCTSE VBMO  NO ; 1 OLCRPC BC  D?RLY AN; 4 RL AS $:16 SSREDD ANGTIARSTD AN ;+ 1)(RC,LOLCCV MO $:15 PETYK OCBLT SE, ES;Y )+R1,(03KTBL#V MO  DCEN. S YE ; $ 15 EQB ? UTTPOUS AB;K ASDM,EBS.AED#T BI  BSDAXE DF NIF. O N;  6$1E BN  M?TES AUTO-DECREMENT (-)? BNE 12$  ; NO MOV CHRPNT,SYMBEG ;PERHAPS, SAVE JUST IN CASE GETNB CMP R5,#CH.LP ;YES? BNE AEXP20  ; NOT A CHANCE CALL AEXPLP  ;PROCESS PARENS BIS #40,(SP) BR AEXP36 12$: CMP R5,#CH.LP ; "("? BNE AEXP22 CALL AEXPLP  ;EVALUATE REGISTER CMP R5,#CH.ADD ;AUTO-INCREMENT (+)? BNE 14$  ; NO GETNB   ;YES, POLISH IT OFF BIS #20,(SP) ;SET BITS BR AEXP36 14$: BIT #10,(SP) ;INDIRECT SEEN? BNE 16$  ; Yy�y@�yh@�y@�y &@�y&@�y`'@�~��������~�y��@�y@�y��@�yfy�y�} z��@� z�@� z%@�Yz �z�� �d�� ��� � ��@A��������������~�8 %�@�}��j��@�x;1�v;B�t;��ִ\E��\XH�_t��i}�@��贳��d֯��f֯���֯x�F ��������~�֯�֯�ׯ�}�� گr��~ޯp!��Ҷ��$P�"$^��l!��Jn���n�n!�n%�.n+�n,���������~�(n.�n�K�nK�n N� X:H� X:P�`��������.��@�A�F�%+�%-��@� ��8��������&�� X:@� X:F�X:@� (Hq���������.��5� D�  j 0�bab b b mx����������X:D�`��������.��B�D� %.�w B�ށ%E� � ���������&��X:B�X:D�X:B�$X:;d���������.��� U���� b 7`D�@@T@T@Th0��������&��X:;d�X:vL��X:;d�X:D���������.��6 D�1"3 � F� �e�F� D�i��������&��X:D�X:F�$X:F�(X:D�k��������.��\ ISTIR;F UFJBOB,#R1 MPC 1 ,RNTJPOB OVM R FEUF BMPDU, OMROO N;  3$1I BH  ENDLRLF+BULD#R0,RP CM  R02,RD AD  ZESID RLT GE, ES;Y  R04,RB OVM O N;  3$1I BH  M?OO;R -1ENJLOBF+BUBJ#O0,RP CM  ND EEW NTEPUOM;C  R05,RD AD  ERNTOI PDECOT GE;0 ,RNTJPOB OVM: 4$ 1R FEUF BMPDU; P DMCRPL ALC: 3$ 1C PEW NET;S )+R2,(OCCLCL OVM: 2$ 1+ 2)(R0,T1LD#R OVM: 1$ 1R FEUF BNTREUR CMPDU, ES;Y  MPRDPC LLCA  ES Y;  1$1S LOB ? ERFFBUD RLT ENRRCUN IOMRO;4 N-LELD+RUFDBRL,#ES BIS #10,(SP) ;NO, SET BIT BR AEXP36 16$: CLR (R3)  ;MODE CLR (R4)  ; AND VALUE BR AEXP30 ������������������������AEXP20: SETSYM   ;AUTO-DEC FAILURE, POINT TO - AEXP22: GLBEXP   ;GET AN EXPRESSION CMP R5,#CH.LP ;INDEXED? BEQ 24$  ; YES BIT #REGFLG,(R3) ;FLAGS BNE AEXP36 .IF NDF XEDPIC&XEDAMA TST (SP) BNE 23$ .IF NDF XEDPIC BIT #ED.PIC,EDMASK BNE 1$ BIT #GLBFLG,(R3) BNE 2$ CMPB (R2),CLCSEC BEQ 23$ BR 2$n&X�nHX�n[�n�}�(n}�4n�q%��кz�d�Lzxd�J鰼R�ly����������~� � � ,�~ |��1q��\34��h<L;��DŞ��\���ڶx��,��V:��vѱ��ѱ�xձ@Q����������~�ձ g�<,��ȵ)~�� q�>@q�)eJ� x   N� Ê <��%�! ,�c ��ѐx��������v�j�ˋÜ�`E� �&�  �P�  �� cL�|���w�Z�� ɋr��߷ pC���������P����������� F�   � � 5� � ����������X:F�d��������.��� � �  �F� D� F� �����������X:F�X:D�"X:F���������.��e�F�G�U��� b(J�  ����������X:F�X:G�X:vL��L��������.��� 5�d��  UH��r H� 2������������������&�� X:d�X:vL� X:H� &X:H�f��������,��  U���m@�7 �7 ��7Q��������.��X:vL��X:@�X:�X:vL� X:���������.���� �" 0� F� B� $� R2 MPC O N;  4$1Q BE  S? UONE OV MPCD DI;C LOBJ,OOCCLCL MPC: 0$�1���������������������� � 2$1R B C SEBJ,OECCSCL VBMO  )+R2,(+2AMCNCL OVM E AM NORCTSEW NED AN ;+ 2)(RM,NALCCV MO  7PETYD RLT SE;+ 2)(R7,T0LD#R OVM: 4$ RSFEUF BNTREUR CMPDU, ES;Y  MPRDPC LLCA  ES Y;  4$ OSBL  D?RLT ENRRCUN IOMRO;0 -1ENDLRLF+BULD#R2,RP CM  NO ; $ 10 EQB ? GEANCHR TOEC;S ECJSOBC,SELCCB MPC R FEUF BLD RTOR TEINPOT SE;2 ,RNTDPRL OVM Y TRENE BLTAR PERO PET;G R4),R4L(TB 1$: .ENDC .IF NDF XEDAMA BIT #ED.AMA,EDMASK ;ABSOLUTE MODE REQUESTED? BNE 23$  ; NO .ENDC 2$: BIS #37,(SP) ;OK, SET ABS MODE BR AEXP32 .ENDC 23$: BIS #67,(SP) ;NO SETDSP   ;SET DISPLACEMENT BR AEXP34 24$: BIT #REGFLG,(R3) ;FLAGS BEQ 26$ ERROR R BIC #REGFLG,(R3) ;FLAGS 26$: MOV (R1)+,-(SP) ;STACK CURRENT VALUE MOV (R1)+,-(SP) MOV (R1)+,-(SP) MOV (R1)+,-(SP) CALL AEXPLP  ;PROCESS INDEX MOV (SP)+,-(R1) ;RESTORE �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� �����������X:;d��X:F���������.��> 4� $� �l�a �� ��������.��d   � b b b �w�J � %��������.��,� & ��  5�X�w �7 �w�& ��������&��X:;d��X:X�X:vL �"X:vL���������.��)�� \� R��W"�  ! ! ����������������X:� X:� X:;d���������*����C � � 7 �*��������.��X:;d�X:;d�X:;d�X:;d� X:;d���������.���  U���U����  � `����������CRPV MO  TSBIR DEORH IG HARLE CS,YE;4 ,R007417#C BI  DCEN. S YE ; 2 OLCRPE BN  D?LEABIS DCHUN;P SKMAEDC,PND.#E ITB C PNEDXF NDF .I  NO ; 2 OLCRPQ BE  R?FOD LEAL CDECOT ECBJ ONY;A  YPKTBL STT: 3$ TEBYS AAGFL; 1 1+PF GBNE  OT NIFH NCRA B;  3$ CCB ? TEBY; 4 RL AS  NE OLDIE FNTRI PET;S   F1TPSE $: 2O ER ZMNLUCOT IS;L   F0TPSE  ES Y;  2$ MIB ? NELIN IONSTEEX; T CNCRPC IN  PCE ATPD USTJU, ES Y;  L2ROPC EQB ? NE OSSPA; S ASPT TS $: 1| MOV (SP)+,-(R1) MOV (SP)+,-(R1) MOV (SP)+,-(R1) AEXP30: BIS R0,(SP) BIS #60,(SP) AEXP32: SETIMM AEXP34: STCODE CLR R0 AEXP36: BIS (SP)+,R0 RETURN AEXPLP:    ;AEXP PAREN PROCESSOR GETNB   ;BYPASS PAREN CALL REGEXP  ;GET A REGISTER EXPRESSION CMP R5,#CH.RP ;HAPPY ENDING ")"? BEQ 1$  ; YES ERROR Q  ;NO RETURN 1$: GETNB RETURN .IF NDF XEDAMA GENEDT AMA,,1  ;ABSOLUTE MODE ADDRESSING .ENDC ������������������������ .�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� X:;d�X:vL�X:vL����������,��~ � �  I�U��� ���������&�� X:�X:;d�"X:vL���w��������������!BHXCB[C.LKM����������������.�� qQWB qQWC qQWB qQWC qQWL�����������M+L NT,U�KTo��������.�� qQWM qQWL qQWT qQWU qQWTY����������*�\&X]e���������� qQW\ qQW]�qQWB��������.��B > C � 4  ,   '��������.��h p 6� 5��@  C BW!&�W!����������X:��������1 O TMPBU, RDWO ; 5 RC IN  TEBYF ICHANBR; $ 1I BM  PETYD RLE THT GE;4 ,RORCTSE VBMO  TEBYE UMSS;A  R5 LRC G REAVS D EN ; 3 OLCRPQ BE  RYNT ELLROE OD CXTNET GE; L ROODCT EXN L OL RDECOS ESOCPR;   : LLROPC������������������������ R OVITX C SEITX / LEAB TOLMBSY/Z CIAS.: XTMTSY */****/* IZSC.A S:ARST YTTBTX ECTSEN  LGBFGL RDWO. / G /I CIAS. G FLELRD OR.W  //R IISC.A  LGGFRE RDWO. / % /I CIAS. G FLBLLD OR.W  =// IISC.A  T:P2ND EE xSBTTL EXPRESSION TO CODE-ROLL CONVERSIONS SETIMM:    ;SET IMMEDIATE MODE SAVXPR TST PCKODE ;IS THIS A PACKED PHYSICAL DIRECTIVE 08.15.72 BEQ SET000 ;BRANCH IF NO 08.15.72 CLR PCKODE ;CLEAR THE FLAG FOR THE NEXT GUY 08.15.72 MOV #SETR17,R1 ;POINT TO PACKED PHYSICAL CODE '17' 08.15.72 BR SETDSX ;GO PROCESS IT MOV #IMMMOD,R1 ;SET TABLE INDEX TST���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.��!�B   C �C  �(w����������&X:vL�I��������.�� � �  �B  �P\�:����������X:vL�"X:�(X:\�����������.��0\� @X�0�`Z� � PX�UU��������&��X:\�X:X�X:Z�$X:X�1���������������P��������������X:vL���lzw��������� ���LI�X��������� ������������ ���NL������������ qQW� �u������������������ �� �2���������� qQW�qQW���������� �U�������������X:URDP ECTSEN  RNTURE  )+R2,(R0 VBMO $:32 R0 ABSW  2$3E BN  DEMO+,3)(R ITB 0 ,R)+R3(V MO $:31 1$3L ALC: 2CDPEN RNTURE D:P2ND ER FEUF BOFT ARSTO TETES;R R2F,BUIN#L OVM R HDSTTL ALC 1 ,RUFNBLI#V MO  R02,#V MO  2)(R RBCL B:P2ND E $ 21 BR  ERMBNUY TRENE THD AN ; T BYETSL ALC 1 ,R-2ORCTSE#V MO  )+R2,(AB#T VBMO  E,LUVAE TH ; D WRETSL ALC 1 ,RUEAL#V OVM + 2)(RB,TA#B OVM , MENAE THT INPR;  P UN50R L OL ROFD ENF IITEX ; D P2NDEQ BE  t ENDFLG  ;SPECIAL FOR .END? BNE SETDS1  ; YES BITB #GLBFLG,(R3) ;EXTERNAL? BNE SETDS3  ; YES, USE COMMON HANDLER CMPB (R1)+,(R1)+ ;MOVE INDEX BITB #RELFLG,(R3) ;RELOCATABLE? BEQ SETDSX  ; NO, ALL SET TSTB (R1)+ CMPB (R2),CLCSEC ;YES, CURRENT SECTOR? BEQ SETDSX  ; YES BR SETDS1  ;NO SETR17: .WORD RLDT17 ; 08.15.72 SETDSP:    ;SET DISPLACEMENT MODE SAVXPR MOV #DSPMOD,R1 ;SET INDEX ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;d�X:vL��HqZ�F������������������(��Z�w[M y%` QQR RK-[z��s�����������f�w������������ ^�i����������X:^��;d�j���������������^�X� "��������&�� X:^� X:X�qQW"�qQW/��������.��C  !� z  �B  �Pf�'����������"X:�(X:f���������.��:0f�@d� Pd�� U����8��������.��X:f�X:d�X:d�X:�&X:vL�������������f�q������������h�����������X:h��;d�T����������RYNT EXTNEE THT GE; L ROECST EXN E IN LUTTPOU; B P2NDEL ALC: 1$ 2N CA SORCTSER FOT SE; D UPOLRR CL A:P2ND�E���������������������� � NELIT EX;N  2$ BR  NELIT PUUT;O  2BDPEN LLCA  NO ; $ 3O BL  E?IN LNE OOR FGHOUEN;. 50F+BUIN#L2,RP CM  ORATAREP;S )+R2,(AB#T VBMO $:10 YTTBSE LLCA  1)(R,-1)(R-B MPC $ 10 GEB ) R1,(#1 PBCM  R1R,TOEC#S OVM C P2NDEL ALC: 6$ ******E UTITSTUB SD,NEFIDEUN;  T BYOVM 1 ,RRSTA#S OVM: 4$ 6$ BR  RDTWSE LLCA  NO ; p BITB #GLBFLG,(R3) ;EXTERNAL? BNE SETDS3  ; YES, TEST FOR ADDITIVE CMPB (R1)+,(R1)+ CMPB (R2),CLCSEC ;CURRENT SECTOR? BEQ SETDS2  ; YES TSTB (R1)+ TSTB (R2)  ;LOOKING AT ABSOLUTE? BEQ SETDSX  ; YES SETDS1: TSTB (R1)+ MOVB (R2),R0  ;FETCH SECTOR BIC #177400,R0 ;CLEAR HIGH BITS MOV R0,-(SP) ;SAVE A COPY ASL R0  ;MULTIPLY BY FIVE ASL R0 ADD (SP)+,R0 ASL R0  ;TWO BYTES TO WORD ADD ROLBAS+SECROL,R0 ;COMPUTE BASE OF SECTOR R���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������h�d�����������X:h�X:d��lzw ��������� �� �EN�R��������� ������������ ���DS������������ qQW���������� ���CR������������ qQW���������� ���`g���������� qQW`�qQW`��������.��` � 0 � P j��������$��j��-�X t�U����\��������.��X:j� X:�X:t�X:vL���Hqz�����������z�v@Q�d@�����������qQW��������.��� r�E r� l�wl� v��;��������.��X:vL� X: 4$ EQB ? EDINEF;D 1)(RG,FLEF#D ITB S IT BDEMOO TNTOI;P R1E,OD#M OVM C P2NDEL ALC 3 ,R2TDPEN#V MO  OLMBSYE THK ACNP;U   NP0UR5  REMOO N;  2ADPEN EQB L BOYM SXTNEE THT GE; L ROYMST EXN: 3$ GERATO STOT INPO;2 ,RUFNBLI#V MO $: 2N CA SLEAB TOLMBSYR FOT SE; D UPOLRR CL  GEPAW NEE RCFO; T CNPPLR CL  ES Y;  2DDPEN NEB ? ONSIESPRUP SLEAB TOLMBSY;K ASCM,LYM.SLC#T BI  NO ; D P2NDEQ BE  T?PUUT ONGTIIS LNY;A  +2BLLTLB STT: 1$ DCEN. P DMBJOL ALClOLL MOV (R0)+,SYMBOL ;XFER SECTOR NAME TO SYMBOL MOV (R0)+,SYMBOL+2 BR SETDSX ������������������������SETDS2: MOVB ROLSIZ+CODROL+1,R0 ;GET CODE ROLL ENTRY NUMBER INC R0 ASL R0  ;MAKE IT 4 OR 6 ADD CLCLOC,R0 SUB R0,(R4) CLR MODE BR SETDSX SETDS3: TST (R4)  ;EXTERNAL, ANY OFFSET? BEQ SETDSX  ; NO TSTB (R1)+  ;YES, ADVANCE INDEX SETDSX: .IF NDF XEDPIC GENEDT PIC,,1 BIT #ED.PIC,EDMASK BNE 12$ TSTB (R1) BEQ 12$ CMPB (R��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������r�X:r�X:l�"X:l�U��������(��R-n�� � b� n�7 p�-p�@��������.��X:n� X:;d�X:n�X:p�"X:p�l��������.�� �� H� p�m�j� ѭ� :��������.��X:;d �X:p� Ԁ|m�X:j�"R�M��������.��^� &�  �ҋ�U�U�Rp���������� Ԁ|^�X:vL���������.��4r�7��%� �|�R�ҕ �|���������.��X:r�X:vL� X:� X:|� &X:|���������$��Z" v��w �x�7 r����������.�� X:v� R� R� T PNBJ,OR0 OVM R TOEC VND EET;S )+R0,(+6ECDVEN OVM 0 ,RNTJPOB OVM O N;  1$ NEB ? UTTPOUS AB;K ASDM,EBS.AED#T BI  BSDAXE DF NIF. T IMPDU; P DMLDRL ALC D ENT SE;P TYLK,B06KTBL#V MO  ITP UM DS,YE; P DMBJOL ALC O N;  1$ EQB ? UTTPOUT ECBJ ONY;A  YPKTBL STT E TLTIB-SU" LEAB TOLMBSY "ET;S   YTVBMO  R2F,BUTL#S OVM 1 ,RXTMTSY#V MO  DCEN. : 8$ ERFFBUE OSCLD ANP UM DS,YE; P DMRFCL ALC O N;  8$ EQB ? SSREOGPRN IEFCRY AN;2 ,RNTFPCR OVMh2),CLCSEC BEQ 10$ CMP R1,#DSPMOD BHIS 11$ BR 12$ 10$: CMP R1,#DSPMOD BHIS 12$ 11$: ERROR R 12$: .ENDC MOVB (R1),(R2) ;FILL IN TYPE TST BYTMOD  ;IN BYTE MODE? BEQ 4$  ; NO TSTB (R4)+  ;MOVE TO HIGH BYTE OF "VALUE" MOVB (R4),R0  ;ANY HIGH ORDER BITES? BEQ 1$  ; NO, OK INC R0  ;YES, ALL ONES? BNE 2$  ; NO, YOU LOSE 1$: CMPB (R2),#RLDT01 ;ERROR IF RLD TYPE 1 BEQ 2$ CMPB (R2),#RLDT15 ; OR 15 BNE 3$ 2$: ERROR �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� X:x�X:r������������Ԁ|m��������� ��m��a������������Hq������������ �J��������&�� X:  R� X:�R ����������� ������z�����������qQWv����������v��������������.��X:�X:vL� X:vL�X:�X:vL���������.�������� fA�ʕ� R���������.��X:�X:vL� X:vL�X:�X:vL���������.��fA� ��� ��e�ʕ����������� Jҋ� ������������R�  EFCRXF NDF .I  2SSPAF OND;E    2:DPEN������������������������ S RDWOR OU FVEMO; 4 ITXM MPJ: 1$ NTREUR CMPDU, NO; P DMCRPL ALC S YE ; $ 1S LOB ? ERTHNO AOR FOMRO;0 -1ENDLRLF+BULD#R2,RP CM  CKLO BSD G AMPDU;   : MPDDGS ECTSXI  1/S AS POFD EN>/LF><CR<Z CIAS.: 1MDPEN YTTBTX ECTSEN  RNTURE  SG MS1AS POFD EN; M P1NDEB TKPU $:32 1$3R B E BLTAN ICKBAT PU;  T ERNSI C PETES RD,UNFO; E LUVA LRC D HEISIN FIFH NCRA B;  2$3Q BE  RYNT EXTdA  ;FLAG ERROR CLRB (R2) 3$: CLRB (R4) BISB #200,(R2) ;FLAG AS BYTE 4$: RETURN ENTSEC TXTBYT IMMMOD: .BYTE RLDT02, RLDT05, RLDT00, RLDT01, RLDT15, 0 DSPMOD: .BYTE RLDT04, RLDT06, RLDT00, RLDT03, RLDT16, 0 ENTSEC IMPLIN BYTMOD: .BLKW   ;BYTE MODE IF NON-ZERO XITSEC ������������������������ .SBTTL CODE ROLL STORAGE STCODE: APPEND CODROL  ;APPEND TO CODROL RETURN ������������������������ .SBTTL DIRECTIVES .GLOBL GLOBL GLOBL: ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������E�����EN�����������qQWK��������.�� ��w�� 5��� XZ^5:���������� X:��X:vL�� X:Xf��������.���d� � � B0� ��������.��X:d� Hq�X: "X:0�&X:��������.��8�& �� D '��E�EU���������� R�R� X:���������.��^Qa7 �� n���  5@������������R� X:�&X:���������*��ŭ�E�U��E*�U*������������NEE THT GE; L ROECST EXN: 1$ 3N CA SITINE- ROR FET;S  PDLURO LRC: 1BDPEN KSOCBLT EX TOR FITIN;P TYLK,B04KTBL#V MO  MPDDRL LLCA  D"GSF OND"ET SE;P TYLK,B02KTBL#V MO  ITP UM;D  MPRDPC LLCA  CKLO BND EUTTPOU; P DMSDGL ALC 1 ,RECDVEN#V MO  +4ECDVENG,FLEF+D03DTGS#S BI  AGFLL RET BUL ALR EACL;4 C+VEND,EG>FLEL<R^C#C BI A:P1ND�E���������������������� � ITT PUUT;O  2$1R B 4 E YP TET;S DEMO4,T0SD#G ISB T OS MARLE;C DEMO>,LGBFGLG!FLEL!RLGFFDEC<#^ ICB O N;  3$`   ;GLOBAL HANDLER 1$: GSARG   ;GET A SYMBOL BEQ 3$  ; END SSRCH   ;NO, SEARCH USER SYMBOL TABLE BIT #REGFLG,FLAGS ;REGISTER? BNE 2$  ; YES, ERROR BIS #GLBFLG,FLAGS ;NO, FLAG AS GLOBL INSERT   ;UPDATE/INSERT CRFDEF BR 1$ 2$: ERROR R BR 1$ 3$: RETURN .GLOBL END END:    ;TEMP END DIRECTIVE EXPR   ;EVALUATE THE EXPRESSION BNE 1$  ; BRANCH IF NON-NULL INC (R4)  ;NULL, MAKE IT A ONE 1$: CALL RELTST  ;NO GLOB�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.��X:�X:�X:�X:*�"X:*���������.��&� 4� L� �7 �� ��������&�� X:&�X:X: R�z����������7 � . w �r������������X:� Ԁ|r��Ԁ|r�����������r� END OF PASS 1�'�����������qQWV��������.�� z w� r� V�&� ��������&�� X:zX:r� Ԁ|� "X:;d&�<��������,�� � *5�d�,�7��������.��X:X:X:d� X:$X:,���������&��* 1E BN  R?TOEC SEROPPR, ES;Y R5R,TOECSB MPC O N;  3$1Q BE  L?BALO;G DEMOG,FLLB#G ITB Y GUS HI TTHWID HEISIN F;  0$1Q BE  OLMBSYT EX NHE TCHET;F  OLMRSY XTNE $:13 CKLO BISTHT PUUT;O  MPDDGS LLCA  R1L,BOYM#S OVM: 2$ 1N CA SERNN IOR FET;S  PDLURO LRC: 1$ 1X MAT SE, EL R; 1)(R,-1)(R OVM ! PSOO ; $ 11 EQB S ABE UMSS;A )+R1,(R5 OVM D NEFIDE, 1PETYO TET;S )+R1,(LGFFDE>+01DTGS#< ISB T BIL RET BUL ALR EACL;) R1,(G>FLEL<R^C#C BI  HTIG RINE ACPLD AN ;\ALS ALLOWED INC ENDFLG SETIMM   ;FILL OUT BLOCK SETPF1   ;LIST FIELD 1 MOV #SYMBOL,R1 MOV #ENDVEC,R2 JMP XMIT4  ;MOVE TO END VECTOR ENTSEC IMPURE ENDVEC: .BLKW 4  ;END VECTOR STORAGE ENTSEC XCTPRG INC ENDVEC+6 ;DEFAULT TO NO END VECTOR XITSEC ������������������������ .GLOBL ASECT, CSECT ASECT: CALL SETMAX  ;CLEAN UP CURRENT SECTOR MOV R50ABS,SYMBOL ;SET ". ABS." MOV R50ABS+2,SYMBOL+2 BR CSECTF  ;USE COMMON EXIT CSECT:��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������T5�@X�P7 �7 �K��������.��X: X:X:X�X:;d�R���������.��H�� : $ r� ��5� 0���������� X: Hq� X:�\��������.��n� l d��ɥ�a &ҕ � i���������� Ԁ|� X:� (X:��������.��ڇ 2�7 � (��  ҕ ������������R� (X:�H��������.�� ҕ ��  � �"���������� X:� X: &X::���������� ��4������������� X:��Hq�������� 5 RB WAS T ITELASO;I  R5 RBCL  ORCTSEE AV;S  R5),R1(V MO  R1E,OD#M OVM R KEAR MVESA;) SP-(D,UPOLRV MO  GHOUHR TIFH NCRA;B  1ADPEN EQB R TOEC SXTNEE THT GE; L ROECST EXN R KEAR MANSCT SE;D UPOL,R)+SP(V MO $:10 ANSCR TOEC SOR FITIN; ) SP-( LRC: 9$ DCEN. T IFFTU SS,YE; P DMSDGL ALC O N;  9$ EQB ? ET;S  1)(R4T TS  ERFFBUL TTB-SUO TNTOI;P R1N,IDRG#P OVM 4 SVDO DF NIF. K OCBLD GST PUUT;O  MPDDGS LLCA  EXND IO""TD AN ;2 ,RNTDPRL OVM X CALL SETMAX  ;CLEAN UP CURRENT SECTOR GETSYM   ;GET ARGUMENT (OR NULL) CSECTF: SCAN SECROL  ;SCAN FOR MATCH BNE 3$  ; BRANCH IF MATCH MOVB SECTMP,SECTOR ;NEW GUY, SET SECTOR BEQ 2$  ;BRANCH IF ABS SECTOR (FOR NOW) BIS #RELFLG,MODE 2$: INSERT   ;ATTACH TO ROLL 3$: SETPF1 CRFREF MOV #SYMBOL,R1 MOV #CLCNAM,R2 .IF NDF XEDLSB CALL XMIT5 JMP LSBSET  ;SET NEW LOCAL SYMBOL BASE .IFF JMP XMIT5  ;MOVE AND EXIT .ENDC ENTSEC ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ =�% �R �G @�|�����������Ԁ|������������******�SYMBOL TABLE������������qQWC������������������.�� �   ĝ� ��n � ����������X:�X:��$X:vL���������.��\ j 7� `5 �d�\E����������&��X:vL�X:X:d� &Hq���������&��>�#� z �����������.��X:X:� X:;d#� X:zX:�����������\��#� -�$�  ^��������.��X:�X:� X:;d#�X:�X:;d$���������.��X DEIN" OMFR "ET;S R1L,TTRG#P OVM S ERNTOI PHE TITIN; I INBJOL ALC 1 1 YP TCKLO BET;S YPKTBL1,T0LK#B OVM E IL FHE TENOP; J OB NOPEO: 8$ DCEN. / IN/B 50AD.R  TELUSOABR FOT SE, NO;5 ,R)+PC(V MO  ES Y;  8$ NEB ? SSUE GODGO;K ASDM,EBS.AED#T BI  BSDAXE DF NIF. / BJ/O 50AD.R  LEABATOCEL RMESUAS;5 ,R)+PC(V MO  NO ; B P1NDEQ BE  T?ECBJ ONY AE,ONS AS;P  NKJLOB STT O N;  1$ EQB ? NDOU;F TSRBERE,R.ER#T BI  OF ETOE OV;M  INTLGE LLCA $: 1 2 S ASTIMPURE SECTMP: .BLKW XITSEC SECINI: MOV R50ABS,SYMBOL ;SET ". ABS." MOV R50ABS+2,SYMBOL+2 CALL CSECTF  ;MOVE ONTO ROLL .IF NDF XEDABS BIT #ED.ABS,EDMASK ;ABS MODE? BEQ 1$  ; YES .ENDC CLR SYMBOL  ;DITTO FOR BLANK CSECT CLR SYMBOL+2 CALL CSECTF 1$: RETURN .IF NDF XEDABS GENEDT ABS,SECINI,1 .ENDC ������������������������SETMAX:    ;SET MAX AND ENTER ONTO ROLL SAVREG   ;PLAY IT SAFE MOV #CLCNAM,R1 MOV #SYMBOL,R2 CA��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������p~ ��� x�@a �` b��������&�� X:~X:�X: X:��������,��W f5�d��� ҝ��������.�� X: X: X:fX:d� X:�j��������(���@f �� ���������.��X:� X:fX:�X:� X:���������"��ѝ� ѝ �w wa���������.��X:X:�X: �X:X:�-�����������$�� ��8��������.��X:�X:;d$�X:X:�Hq�a������������(����� PIFH NCRA;B  P2NDEP JM  1$ EQB ? NE OSSPA; S ASPT TS  AXTMSE LLCA  4R OVNTE R LENDHAS AS POFD EN;   : DPEN RSLENDHAE OD CCTJEOB TLBT.S ������������������������ C SEITX . 7W LK.B V:SAMD C2 >/+1ENILCM<W LK.B F:BUMI C3 KWBL.: DRIHCM ERADHER FEUF BNDMAOM;C  7. KWBL.: UFDBCM 3.8= ENILCM REPUIM ECTSEN  B//K 50AD.R  1D OR.W  I/CM/0 D5RA. K IN LUTNP IKB; 0 RDWO.: NKILCM 0D OR.W  B//K 50AD.R  1D OR.W  O/CM/0 D5RA. K IN LUTTPOUB PLL XMIT2  ;MOVE NAME TO SYMBOL SCAN SECROL  ;SCAN SECTOR ROLL CALL XMIT3  ;SET REMAINDER OF ENTRIES INSERT   ;UPDATE ROLL RETURN .GLOBL LIMIT LIMIT: CALL OBJDMP CLR (R4)  ;CLEAR VALUE MOV #RLDT11*400,-(R4) ;SET RLD TYPE STCODE CLR (R4) STCODE RETURN ������������������������ .GLOBL TITLE, SBTTL, IDENT TITLE: ENTOVR 2 GETSYM   ;GET A SYMBOL BNE 1$  ; ERROR IF NULL ERROR A RETURN 1$: MOV R0,PRGTTL ;MOVE INTO S������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;d$��������� ��$�w#�����������X:;d#��w�M�������������� ���3f ���������� qQW �qQW O��������,�� ��#��b�-f `E��������.�� X:;d#� X:bX: X:f $X:`Z�������� ��.Xw �Xb-Z5���������.�� X:X X:X X:bX: X:Zh����������"��Fd�XX���������.��X:d� X:XX:X: X:X<����������`RXw �XTf��������.�� X:R ;K  0D OR.W K:LNMO C0 RDWO. D XEMI ECTSEN  RSLENDHAD ARBOEYKL TTSB.� ���������������������� � RNTURE  R1+,P)(S OVM X BYET,SR0 OBS 0 RB WAS + 2)(R TBTS  1$ GTB 0 RB ECD ) R2(B OLR 1 RL AS $: 1) R2,(100/G.DI#B OVM 0 ,R#3 DDA 0 RB WAS: YXTBSE R03,#V MO  R1 ORR C CL  UY GSTLAE THT GE; 1 RB ORR F AL HFTLEO TTELAPUNIMA; 1 RB WAS + 2)(R0,RB OVM + 2)(R0,RB OVM S CEPA STHWID PA;+ 2)(R0,RB OVM 0 ,RCEPA#S OVM E LUVAT GE;1 ,R1)(R2B LTORAGE MOV SYMBOL+2,PRGTTL+2 CALL SETSYM  ;POINT TO START OF TITLE MOV #TTLBUF,R2 ;POINT TO BUFFER CLRB (R2)+  ;SET STOPPER 2$: MOVB R5,(R2)  ;STORE CHARACTER BEQ 3$  ; BRANCH IF END TSTB (R2)+ GETCHR   ;GET THE NEXT CMP R2,#TTLBU2-1 ;END OF BUFFER? BLO 2$  ; NO 3$: MOV #TTLBU2,R1 ;SET DESTINATION REG 4$: MOVB -(R2),-(R1) ;MOVE CHARACTER UP BNE 4$ MOVB #FF,(R1) ;SET PAGE EJECT MOV R1,TTLBEG ;MARK BEGINNING CLR R5  ;NO "Q" E��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������X:X X:X X:T X:f��������(��tZ� &&f% �"0��������.��X: X:Z X:X:X:;d�^��������.�� �� � @� � �ҕ+� ��������.��X:X:�� Ԁ|�X:;d�X:;d���������*��� H�w �&�w �A�4����������.��X: X:;d&� Ԁ|A�X:;d��Ԁ|���������������� PAGE �������������qQWW��������.�����fA ��f5�@��������.�� w   w 1�������OVM X DEINK ACST;) SP-(1,RV MO T:BYET S X BYETSR B 0 ,R#5 OVM T BIN IVEMO; + 2)(R LBRO  R1 SLA E IVITIMPRT SE;) R2,(/2.0IG#D VBMO  UEAL VALTUACT GE;1 ,R1)(R2V MO  EG RCKTA;S P)(S,-R1 OVM: RDTWSE TEBY, NO ; T BYETSI BM  E?IVITOS;P  1)(R STT E YT BORD OR WET;S    B:WDET S C SEITX 2 KWBL.: F1 P2 KWBL.: F0 PN LIMPIC SENTE N URETR 2 1+PFE,LUVA OVM 1 1+PF CBIN  UEAL VNTREUR COFE OD MET;S F1,PDEMO VBMO  NE OLDIE FNTRI PET;S    1:PFET SHRRORS RETURN XITOVR ������������������������SBTTL:    ;SUB-TITLE DIRECTIVE ENTOVR 2 MOV #STLBUF,R2 ;POINT TO SUB-TITLE BUFFER TST PASS  ;PASS ONE? BEQ 2$  ; YES 1$: MOVB R5,(R2)+ ;MOVE CHARACTER IN BEQ 4$  ; BRANCH IF END GETCHR   ;GET THE NEXT CHARACTER CMP R2,#STLBUF+STLLEN-1 ;TEST FOR END BLO 1$ TSTB -(R2)  ;POLISH OFF LINE BR 1$ 2$: BIT #LC.TOC,LCMASK BNE 4$ MOV #TOCTXT,R1 MOVBYT   ;SET TABLE OF CONTENTS CALL���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.��X: X: X: "X: (X:N��������.��( Rŀ�ɕ?���ҥ ����������� "Hq���������.��Nҕ �ҕ �# �w ���������&�� X: R� &R� (X:M����������t  ���������&�� X: X:X:�f������������ ������������������&��X: X:qQW�qQW��������,����� * ҕ �� >�w��������.�� Ԁ|�X:;d�� X: Ԁ|�$X:����������� N URETR N IOATOC LET;S +2F0,POCCLCL OVM D OR WMESUAS; 1 0+PF CBIN  GSLA FONTICALOT ENRRCUT SE;0 PFS,FGLCCB OVM O ER ZLDIE FNTRI PET;S    0:PFET S F UFSTG INSTLI TLBT.S ������������������������ C ND.E  ECTSXI  4W LK.B L:FIRF C2 KWBL. E URMPIC SENTE / SY/0 D5RA. 1 RDWO. / RF/C 50AD.R  0D OR.W K:LNRF C0 RDWO. D XEMI ECTSEN  ILFFCR K,LNRFC, UFDBCM RDWO.: SIFCCR REPUDC SENTE L RORREE YT.B  OLCRSE TEBY. L ROSTPE YT.B  DCEN. 1 D SETSYM  ;POINT TO ".SBTTL" 3$: GETR50   ;GET RADIX-50 CHAR BGT 3$  ;STOP AT FIRST TERMINATOR MOV CHRPNT,R2 ;SET POINTER MOV LINNUM,R0 CALL 10$ MOVB #CH.SUB,-(R2) MOV PAGNUM,R0 CALL 10$ MOVB #SPACE,-(R2) MOV R2,R1 MOVB LLTBL+2,R0 BEQ 4$ CALL TSTHDR 4$: RETURN 10$: MOV #3,R4 11$: MOVB #SPACE,-(R2) MOV R0,R1 BEQ 12$ CLR R0 MOV #^D10,R3 DIV R3,R0 ADD #DIG.0,R1 MOVB R1,(R2) 12$: SOB R4,11$ RETURN XITOVR ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Ԁ|�i�����������.MAIN.�������������qQW��������.�� �� ~f e0�R�&����������� &X:���������.��@ �(� �@ �!��� <���������� X:���������������(��  �e �ee �e �������������Hq������������ | -��������.�� X:  X: X:| X:  X:�����������N X��������.�� X:N X:  X:X X:�qQW��������.��  & ��Rw E ���������"�� X:-E YT.B  FF.I  OLCRMA TEBY. O CRMAXF NDF .I  OLMRSY TEBY. : YPFTCR YTTBTX ECTSEN  GSLA F*" "ND A#" "; 2 KBBL.: FLFDCR INPLIM ECTSEN  /2ENFLCR KWBL.: UFFBCR 3W LK.B R:HDRF C G LA FGOO-;N   KWBL.: GFFNCR KWBL.: NTFPCR KWBL.: INFLCR KWBL.: AGFPCR AGFLN IORSVE;  W LK.B R:VERF CW LK.B G:FLRF CE URMPIC SENTE N URETR E OSCLD AN ; T PNRFCR CL  ONTILEMPCOT AIAW;R HDRF,CNKFLCR OFITWA  DRFHCR,#NKFLCR#E ITWR. I CIASD TEATRMFO; ) R2-( LRC T @ ENTSEC TXTBYT TOCTXT: .ASCIZ /TABLE OF CONTENTS/ XITSEC ������������������������IDENT:    ;IDENT DIRECTIVE ENTOVR 2 CALL RAD50  ;TREAT AS RAD50 CLR ROLUPD  ;POINT TO START OF CODE-ROLL MOV #PRGIDN,R2 ; AND TO IDENT BLOCK 1$: NEXT CODROL  ;GET NEXT ITEM MOV VALUE,(R2)+ ;STORE IT CMP R2,#PRGIDN+4 ;PROCESSED TWO WORDS? BLO 1$  ; NO MOV #GSDT06,(R2)+ ;YES, SET GSD TYPE ZAP CODROL  ;CLEAR CODE ROLL RETURN XITOVR ENTSEC IMPURE ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� X:�(X: ���������.��> U���U���U� �����������X:vL��X:vL�� "X: ���������.��d& 4 .U���%X �����������X:vL�� <����������������.��$ e �+ -b*x/T&X!�� � 7 �b$����������$X: ���������.��b((5`�5`�5@�5@�2�� ��������.��U � �E �SSST�w��J B�R����������� X: ���������.��&�  N H�@   ��������.��"N � � � ��& � IRETO;S 2)(R,-)+SP(V MO  THNGLEE UTMPCO; ) SP,(R2 UBS T ARSTO TNTOI;P R2F,BURF#C OVM D ENO TERNTOI PVESA;) SP-(2,RV MO  ND EET;S )+R2,(VT#B OVM R FEUF BEFCRP UM;D    P:DMRF C N URETR E YT BHE TRETO;S )+R2,(R1 VBMO $: 1E IN LEW NRTTA;S R2F,BURF#C OVM T ENRRCUP UM DO,;N  MPFDCR LLCA  ES Y;  1$ HIB ? EW F ARETO STOM OO;R R22,-1ENFLCRF+BURF#C MPC E YT BRETO SND AOMROR FOT ES;T    T:TSRF�C���������������������� � RNTURE  FLFDCR RBCL $: 9R TEINPOW NE<PRGTTL: .BLKW 4 PRGIDN: .BLKW 4  ;IDENT BLOCK XITSEC ������������������������ .GLOBL PRINT, ERROR .ENABL LSB PRINT: ERROR <>  ;NULL ERROR (DON'T COUNT) BR 1$ ERROR: ERROR P 1$: SETPF0   ;PRINT LOCATION FIELD EXPR   ;EVALUATE EXPRESSION BEQ 2$  ;BRANCH IF NULL SETPF1   ;NON-NULL, LIST VALUE 2$: RETURN .DSABL LSB .GLOBL REM REM:    ; ".REM" DIRECTIVE MOV R5,R3  ;SET TERMINATING CHARACTER BNE 1$  ;BRANCH IF NON-N��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������@  ��������.��H � �&�   `@ ������������������.��n  5@�� 5`��7 �4����������X:�"X:�(X:���������.��7 �U�����7  �E�7 �5F��������&��X: � X:vL��X:�&X: �^��������.�� � � �w� 7��� -����������������.�� X: �X:vL �R�&X:�(Hq���������.�� 5�U@���5�5@�GU� ������������X:vL��(X:vL����������.��E@�A��  8U �5 E ORST;T PNRF,CR2 OVM: 8$ )+R2,(R1 VBMO  ORATINRMTET SE;1 ,RYM.SCR#S BI $: 61 ,R#2 ISB " "*O NIFH NCRA;B  6$ PLB T BI" "#T SE;1 ,RFLFDCR OVM + 2)(R TBTS  5$ EQB S NKLA BNGLIAITRM RI;T 2)(R,-CEPA#S PBCM $: 5P UN50R T TSRFCL ALC 1 ,RYM.SCR1-P+TYRF#C UBS $ 8C BC  R0 SRA $ 4E BN  PETYF RE CTOR BEUM NLLROP MA;+ 1)(RX,NDOLRB MPC 0 RR AS $: 40 ,RLGFFCR OVM 1 ,RYPFTCR#V MO $: 3 $ 2R B N LIRFCC IN  STFTCR LLCA  R1N,LIR.#C OVM O N;  3$ IS8ULL ERROR A  ;ERROR, NO DELIMITING CHARACTER RETURN 1$: GETCHR   ;GET THE NEXT CHARACTER 2$: TST R5  ;END OF LINE? BNE 3$  ; NO CALL ENDLIN  ;YES, POLISH OFF LINE CALL GETLIN  ;GET NEXT LINE BEQ 2$  ;LOOP IF NO EOF RETURN   ;EOF, EXIT 3$: CMP R5,R3  ;IS THIS THE TERMINATOR? BNE 1$  ; NO JMP GETNB  ;YES, BYPASS AND EXIT ������������������������ .GLOBL BLKW, BLKB, EVEN, ODD, RADIX, EOT BLKW: INC R3  ;FLAG WORD TYPE BLKB�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� i���������� X:� X:�C��������.��,  U� �� (� 'U���W!F����������X:vL��X:;d�&X:vL��t��������.��R.� W!$�U��� � , �|��������������������X:vL��u��������.��xW!.� xU� �� * �w 0����������X:vL��&��������.�� +-&"&':%F<T^��  U�������������(X:vL��c��������.��� w�  ɟ��ŀ�  ����������X:;d����������.�� U��  pW!>� w -��������BH  R?BEUM NNELIW NE;M NUIN,LINFLCR MPC: 2$ 1$ BR  INFLCR LRC G PARFCC IN  STFTCR LLCA  AGFLD EN SS,YE;1 ,RAG.PCR#V MO  NO ; $ 2S HIB ? GEPAW NE;M NUAG,PAGFPCR MPC: 1$ ERMBNUN IORSVEF UFST;+ 2)(R1,RB OVM 1 RB WAS T SIPODED ANT ES;T  STFTCR LLCA  AGFLT SE;R VERF,CR1 OVM 1 ,RER.VCR#V MO  ES Y;  1$ NEB ? ET YNTSER BEUM NONSIER;V  ERFVCR STT R TEINPOR FEUF BETESPR;2 ,RNTFPCR OVM G REAVS O N;  9$ EQB ? METIS HI TATT PUUT OEFCRY AN; 4: EXPR   ;EVALUATE THE EXPRESSION BNE 1$  ;BRANCH IF NON-NULL INC (R4)  ;NULL, MAKE IT ONE 1$: CALL ABSTST  ;MUST BE ABSOLUTE 2$: ADD R0,(R2)  ;UPDATE PC ASR R3  ;WORD? BCS 2$  ; YES, DOUBLE VALUE RETURN EVEN: INC (R2)  ;INCREMENT THE PC BIC #1,(R2)  ;CLEAR IF NO CARRY RETURN ODD: BIS #1,(R2)  ;SET LOW ORDER PC BYTE RETURN RADIX: MOV CRADIX,R2 ;SAVE IN CASE OF FAILURE MOV #10.,CRADIX ABSEXP CMP R0,#2. BLT 1$ CMP R�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ��(��������.��  CDOB*F�� L w�\e�e�e9��������.��6��� p�� X 6� N~����������X:;d� X:;d�X:;d���������.��\����! ! -- @� � � `����������X:;d��X:;d� X:� ��������.�� &�   �� & t����������������������X:���������.��e� @4�� $� A� ���������� Hq���������.���@�� �  ���C0����������� X:;d��"X:;d�#��������.�� NTFPCR STT E NCREFEREF RE;C    F:RERF CN IOITINEF DEFCR; L DFRFCB NCI: EFFDCR������������������������ R OVITX C SEITX : OPFTCR DMEN. / RG/A 50AD.R  CEMP,SRGAC RP.I  S:BARF CE URDP ECTSEN  RNTURE  AR ROER $: 6 $ 1R B G LA FMPBU, ES;Y  GFFNCR NCI R ROER, NO ; $ 6E BN  G//N 50AD.R  H?TCWI SGOO-;N )+PC,(OLMBSY MPC: 5$ RNTURE  AGFLE AV;S LGFFCR3,RV MO $: 4" "PT BUL AL, NO ;3 ,R10^C#V MO  ES Y;  4$ NEB ? GSARY AN; 3 RT TS $: 3 $ 100,#10. BLE 2$ 1$: ERROR A MOV R2,R0 2$: MOV R0,CRADIX SETPF1 RETURN ENTSEC IMPPAS  ;IMPURE AREA CRADIX: .BLKW   ;CURRENT RADIX ENTSEC XCTPAS  ;TO BE EXECUTED EACH PASS MOV #8.,CRADIX ;INIT TO OCTAL RADIX XITSEC   ;BACK TO NORMAL EOT: RETURN ; 07.31.72 .GLOBL BOUND,PACK ; 07.31.72 ; �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� �  & N`  U�a��������.�� ` �e�w�� �  7 �U����������X:�$Hq���������.��@ ���� �@�  �5� �U���K������������.��X:vL�� Hq�X:vL� X:vL �(X:vL��W��������.��f -��� F�>�� ,�U��� � ��������&��X:;d��X:vL� Hq� X:vL��0���������� �7 ����E�|��������.��X:vL�X:vL � X:;d��X:vL��Hq�������������������.���������������������������������� ��������.���R B S AGFLE ATULUMCC;A  R32,RS BI  2$0,RB SO  R2 SLA: 2$ R21,#V MO  ORRR EE,ERTHT NO ; $ 5Q BE  ITR FOL OL RANSC; L RORFCW ANSC  EDSHNIFI ; $ 3Q BE  NTMEGUARR FOY TR;  G ARGS $: 12 VRTOEN  ORSSCERO PCHITSWF RE;C    T:SERF CL OL RMYUM;D   1= OLRRER ETFSCRR,CT SWENG L BOYM;S   200= YM.SCR NELIW NE;  3 00 N=LIR. CE AG PEW;N   020= AG.PCR #1N IORSVE, 1PETY; > 00*401<01+00 R=VER. C H GTEN LERFFBUF RE;C   2.13 N=LERF C F REXC DF NIF, 07.31.72 BOUND: ; 07.31.72 ADD #3,(R2) ;FORCE TO A 07.31.72 BIC #3,(R2) ;DOUBLEWORD BOUNDARY 07.31.72 RETURN ; 07.31.72 ;* 07.31.72 ;* PACKED PHYSICAL DIRECTIVE: .PACK LOC ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  ��������.�� �@@@@@@@@@@@@@@@@@m����������>@@@@@@@@@�����g�����������qQW ��������(�� ���  �� ��� ��ş��������.��X:;d�X:;d��X:;d�� Hq� X:;d��9�������� �� ������������X:;d���w�n�������� ���xK^ ���������� qQW^ �qQW Q��������.�� �A@NE�@`��� j����������.�� � `��� V�� h�7 h� j��&��������&��X:;dh� X:;dh�$X:;dj� (X:���������(�� !j�. S ERDLAN HCEENEREF RSSROCL TTSB.� ���������������������� � ESRINT ELEAB TCHITSWS /DD AN ;L ABDSS,DT SWENG N /EE ATEREN;G BLNA,EEN WTNSGE  ECTSXI  SSPAH AC EET;S SKMAEDK,BADMEV MO  ASTPXC ECTSEN  NSIOITNDCOT ULFADET SE;K BADM,EITINED#V MO  -1 KWBL. : TSBIED 1W LK.B  TSBIED BLLO.G  RGTPXC ECTSEN  2SSPAR FOT NI-IREO ;T   KWBL.: AKMBED DERIEROVI CSR FOS IT;B   KWBL.: SIMCED GSLA FET SNSAINTCO;  W LK.B K:ASDM EE URMPIC SENTE R OVITX ( 07.31.72 ;* 07.31.72 PACK: ; 07.31.72 EXPR ;EVALUATE THE EXPRESSION 07.31.72 CLC ;CONVERT 07.31.72 ROR VALUE ; TO 07.31.72 CLC ; PACKED 07.31.72���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������"�U���� $��=��������&��X:;dj� X:�X:vL���w�'�������� ���M,!@���������� qQW,!�qQW,!��������&��,!5�d�  h��l�E�l�7 ��������.�� X:d�X:;dh�X:�X:;dl�X:;dl�v��������.��J!n�� C� �@ @   #1-�����������X:;dn�<��������.��p!�� ` E�Q$) ��`����������&R���������.��!`B ! �� #`B � � s�"*�������� ��("��������.��! ��  #1-��`7.�� w�Q�������N URETR: 8$ AR ROER $: 7 $ 1R B E INUTROL AL;C  )+SP@( LLCA  GSLA FET;S  R3 STT C PIT IKEMA;) SP-(2,L+BOYMSV MO $: 5T IARLE CO,;N SKMAED2,RS BI  ARLE CITE AVLE, ES Y;  5$ EQB ? LEDBEN; 3 RT TS  IT BEDCTLESER EACL, NO;K ASDM,ER2 ICB: 4$ ITE ORGN IS,YE ; $ 1E BN  I?CSM RO FENDDRIR-VE;O SIMCED2,RT BI $: 3 T ES TSSPABYD AN ; $ 4R B S IT BLEABIS DET SS,YE;I CSDM,ER2 ISB O N;  3$ EQB ? NGRISTD ANMMCOM RO FEDLLCA; G FLSICT TS  2$0,RB SO $ ROR VALUE ; PHYSICAL 07.31.72 BIS #RELFLG,FLAGS ;SET RELOCATABLE FLAG 08.03.72 INC PCKODE ;SET PACKED PHYSICAL CODE 08.15.72 SETIMM ;CONVERT TO OBJECT FORMAT 07.31.72 STCODE ;THEN INSERT IN OBJECT CODE 07.31.72 RETURN ;AND EXIT 07.31.72 PCKODE: .WORD �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������"X:.�(R���������.��! 7�s�"$s�" h��7 � ^���������&�� R�""R�"R���������$��"� ��`�� ���������.��R� R� rBx� rh�� r ���������.��$"��B ��w R �������������&��r �� R�� r �� "rh����������.��J"  � �u��5��7� <�f���������� rh�� rBx�R� ����������.��p"�A��B��C��� �f& �d��������.��R� r �� rh�� r R2 OLR: 2$ ECS N IOITOS PIT BTEPUOM;C  R2 LRC R ROER, REHE TOT N;  7$ EQB E BLTAE THH RCEA;S  OLTRED NWCAS L UL NIFD EN; $ 8Q BE  NTMEGUARC LIBOYM S AET;G   RGSAG: 1$ 2R OVNTE 0 3=;R    L:ABEN -13=;R  R3 OMC: BLSA D L ABDS L,ABEN BLLO.G  NSIOCTUN FBLSA/DBLNAEL TTSB.� ���������������������� � ECTSXI  VLSALC0-ITXM LLCA  R2E,AVCS#L OVM S AGFLG INSTLIT SERE;1 ,RAKSBLC#V MO  SSPAH AC EDECOS HI TTECUXE;E  ASTPXC ECTSEN  GSLA FLTAUEF;D  0 ; 08.15.72 ������������������������ .SBTTL  DATA-GENERATING DIRECTIVES .GLOBL BYTE, WORD WORD: INC R3  ;"WORD" DIRECTIVE, SET TO 2 BYTE: ENTOVR 3 INC R3  ;"BYTE" DIRECTIVE, SET TO 1 MOV (R2),-(SP) ;STACK CURRENT PC 1$: TSTARG   ;TEST FOR ARGUMENT BEQ 2$  ; END EXPR   ;PROCESS GENERAL EXPRESSION SETIMM   ;CONVERT TO OBJECT FORMAT STCODE   ;PUT ON CODE ROLL ADD R3,(R2)  ;UPDATE PC ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Bx�� X:���������.��"�����f�6� ��������&�� X:� X:� X:� X:���������.��" �RRRRRRR�       X��������.��"�R⋇� &  & & ^���������.��# H f P    ������������������ &X:��������.��.#$e��7 �w�U���� ���������� X:X:;d �X:vL����������������������.��T#�� � \ ,  * ��������&��X:�X: X:� X:�E>AVCS-LSKMALC+<AKSBLCT,NICI#L OVM 1 -W LK.B  S:ITCB L1 KWBL. S ITCBLL OBGL. G PRCTXC SENTE ) NGSIAR POR(FL BELAF OND;E   KWBL.: NDLELB NELIF OND ETOR TEINPO;  W LK.B L:NDCE LE IN LOFT ARSTO TERNTOI;P   KWBL.: GLBELC TSBIG LA;F   KWBL.: AGFLLC INPLIM ECTSEN  2SSPAG INTTNI IOR;F /2VLSALC KWBL.: AKSBLC VESALC.- L=AVCS LE AGORSTG INTR SNDMAOM;C   KWBL.: SIMCLC NTOU CELEV;L   KWBL.: VLCL LS IT BSKMA;  W LK.B K:ASCM LK OCBLE AV SOLTRON CNGTIISBR 1$  ;TEST FOR MORE 2$: MOV (SP)+,(R2) ;RESTORE INITIAL PC DGTEST: TSTB ROLSIZ+CODROL+1 ;ANY CODE GENERATED? BNE 1$  ; YES CLR MODE  ;NO, STORE A ZERO CLR VALUE SETIMM STCODE 1$: RETURN XITOVR ������������������������ .GLOBL RAD50, ASCII, ASCIZ ASCIZ: INC R3  ; ".ASCIZ", SET TO 1 ASCII: INC R3  ; ".ASCII", SET TO 0 RAD50: ENTOVR 3 DEC R3  ; ".RAD50", SET TO -1 CALL 23$  ;INIT REGS 1$: MOV R5,R2  ;SET TERMINATOR BEQ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.��z#� �U@��  7 ��������&�� X:vL�X:X:vL�&X:��������.��#-�U���  � � ��������&��X:�X:X:vL��&X:���������.��#& $77& � e����������X:X:&X:��������.��#� �  @� @  ����������X:vL�g��������.��$ l� * v �& 0 @H����������X:X:vL�r��������.��8$w�U����� 7 �7 � V�����;L    E:AVCS LE URMPIC SENTE : OPTTLC LLNU; > < CTNLGE  YMST LCENG C TO CTNLGE  TMTT LCENG 1 ,LD CTNLGE  NDCT LCENG 1 B,ME CTNLGE  ,1E MT LCENG C MT LCENG D MT LCENG X BE CTNLGE  OMCT LCENG C SR CTNLGE  INBT LCENG C LO CTNLGE  EQST LCENG : ASTBLC REPUDC SENTE 0 T=NICI L M ND.E  DCEN. E MN.'LCT+NICIL= ITINLC  T>NI<I NBF .I  E/MN/0 D5RA. E MN.'LC BLLO.G  DREN. E MN.'LCE+MN.'LC E=MN.'LC /2S>BACT-L<. PTRE. 1 E= 28$  ;ERROR IF EOL 2$: CMP R5,#CH.LAB ; "<", EXPRESSION? BEQ 10$  ; YES 3$: GETCHR   ;NO, GET NEXT CHAR MOV R5,R0  ;SET IN WORK REGISTER BEQ 28$  ;ERROR IF EOL CMP R5,R2  ;TERMINATOR? BEQ 5$  ; YES TST R3  ;NO .IF NDF XEDLC BPL 8$  ;BRANCH IF ASCII/Z TSTR50   ;TEST RADIX 50 BR 4$ 8$: MOV CHRPNT,R0 ;FETCH POSSIBLE LOWER CASE MOVB (R0),R0 BIC #177600,R0 ;CLEAR POSSIBLE SIGN BIT .IFF BPL 4$  ;RAD50? TSTR50   �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������X:vL��X:vL� X:��������.��^$%?�S 8 � |�  �����������X:��������.��$ 7 � & #-�&   %��������&��X:vL�X:X:vL�$X:��������.��$\�0   :   ~ d������������������X:(X:��������.��$ �  E zE 5�X�����������X:vL�(X:X���������������������.��$ �7 �U��� nf.����������X:vL�X:vL �X:vL�i��������.��%� MN.'LC LEAB TOLTRON CNGTIIS LTERANEGE;T NI,INEMT LCENGO CRMA.� ���������������������� � RNTURE  721..307 ; : XXGEPA 721..307 VETIECIR DNGTIIS LASG LA;F G LACF,LLDC.#L S BI 721..307 ; XXGEPA BR X:GEPA EDETEL.D VETIECIR DNGTIIS LASG LA;F G LACF,LLDC.#L S BI: EXAG;P NELIS HI TERFT AFFE ATULIM;S  NTFCFC IN E:AG PE AGPL OBGL. R OVITX ; YES, CONVERT .ENDC 4$: CALL 20$  ;PROCESS THE ITEM BR 3$  ;BACK FOR ANOTHER 5$: GETNB   ;BYPASS TERMINATOR 6$: TSTB CTTBL(R5) ;EOL OR COMMENT? BGT 1$  ; NO 7$: CLR R0  ;YES, PREPARE TO CLEAN UP TST R3  ;TEST MODE BEQ 24$  ;NORMAL EXIT IF .ASCII BPL 20$  ;ONE ZERO BYTE IF .ASCIZ TST R1  ;.RAD50, ANYTHING IN PROGRESS? BEQ 29$  ; NO, NORMAL EXIT CALL 20$  ;YES, PROCESS BR 6$  ;LOOP UNTIL WORD COMPLETED 10$: MOV (R4),-(SP��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������8� > n�n�e?�f����������X:;d�X:;dn�X:;dn���������.��B% � �$�  � f��������.��h% e0�w� LU@�� 5�� N����������X:vL�&kQf��������.��% %D#�  � �5�� ������������(��D# X:�X:;d�x (X:��������.��%��  �  �  D����������X:;d��R�$X:`��������.��%   ~ W!'� n b����������X:��������.���&   S IETRENH TCWI SNL /ND A; STLI,NNL WTNSGE  LI /TERANEGE; T IS,LLI WTNSGE  RNTURE $: 7A ORRRE: 6$ REMOR FOY TR; $ 1R B: 5$ SKMALC2,RS BI  CHANBR, STLI;.  5$ PLB 3 RT TS $: 4L RONTCOG INSTLIT SE; X GEPA LLCA  NTOU CELEV LTEDAUP, ES;Y VLCL,LR3 DDA O N;  4$ EQB ? LLNU; . LC,#R2 ITB K ASCM,LR2 ICB: 2$ 1S YE ; $ 5E BN  S?ITIM LFF OAGFLS HI;T SIMCLC2,RT BI $:11 STTEP KI SND A;  2$1R B S IT BLEABIS DET SS,YE;I CSCM,LR2 ISB O N;  ) ;"<EXPRESSION>", SAVE PARTIAL TERM   ;PROCESS AS TERM CALL ABSTST  ;TEST ABSOLUTE AND SET R0 MOV (SP)+,(R4) ;RESTORE PARTIAL CALL 20$  ;PROCESS BYTE BR 6$  ;TEST FOR END ������������������������20$: TST R3  ;RAD50? BPL 22$  ; NO CMP R0,#50  ;YES, WITHIN RANGE? BLO 21$  ; YES ERROR T  ;NO, ERROR 21$: MOV R0,-(SP) ;SAVE CURRENT CHAR MOV (R4),R0  ;GET PARTIAL CALL MULR50  ;MULTIPLY ADD (SP)+,R0 ;ADD IN CURRENT MOV R0,(R4��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������*! $ � w����������X:X:'��������.��&&    �ff ���������� X:�����������.��L& � 7 ��w�U�����������&��X:�X:�"X:vL��(X:����������r& �U����W����������X:;d � X:vL���w0�����������0� ~&W&8&n&��������.�� qQW~& qQW& qQW& qQW&�qQW~&��������.��~&  L� "U���� 6���  ����������X:vL��"X:;d�� ��������.��&� �@B �    1$1Q BE  G?INTR SNDMAOM COMFRD LEAL;C  LGIFCS STT $ ,3R0 OBS 2 RL RO $: 3C SE  R2 LRC D UNFOT NOF IORRR E;  6$ EQB E BLTAE THN IUPT IOKLO; L ROCDLW ANSC  OLMBSYA R FOY TR;  M SYETG: 2$ ITK AR MS,YE; T CNRGAC IN  GHOUHR TREE' WO, N;  7$ NEB ? STIR FL,UL;N  NTGCAR STT D LIVA ; $ 2E BN  NTMEGUARR HEOTANR FOT ES;T   RGTATS $: 11 /- 1OW;N  R3 NCI 2 /- 0R3E AK;M  R3 SLA 2 VRTOEN  T:IS L1 -R3E AK;M  R3 OMC: STLI N T ISL, STLINL )  ;SAVE INC R1  ;BUMP COUNT CMP R1,#3  ;WORD COMPLETE? BNE 24$  ; NO 22$: MOV R0,(R4)  ;STUFF IN VALUE SETIMM   ;CONVERT TO OBJ MODE STCODE   ;STOW IT 23$: CLR R1  ;CLEAR LOOP COUNT CLR (R4)  ; AND VALUE 24$: RETURN 28$: ERROR A 29$: BR DGTEST  ;TEST FOR DATA PROCESSED XITOVR ������������������������ .IF NDF XFLTG .GLOBL FLT2, FLT4 .GLOBL WORD2 ; 07.31.72 ; �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� C w��R��������.��& z<  ��<�>�C!W!^����������� X:;d����������.��&8��  C D C!D!p���������� Hq���������.��' U�U���p�r�P:����������X:vL��X:;dp� "X:;dr���������.��<'�� x7p��p� x�� H 7�� H����������X:;dp�X:;dp�$X:;d����������.��b'7p�� f'� �7 5�E����������X:;dp� X: X:V��������.��'� �>�� R� ��e�-�����������������OBGL. L RONTCOG INSTLI TLBT.S ������������������������ C SEITX G LA FITEX;M   KWBL.: EXDMCN ELEV LNGTIES;N   KWBL.: VLDLCN SKMAN IOITNDCO;  W LK.B K:MSND CD OR WSTTE;  W LK.B D:WRND C) EDERRD OBET US(ME AGORSTL NAIOITNDCO;   S PAMPIC SENTE N URETR: 6$ LEGGTO, NO; 3 RM CO  ES Y;  6$ EQB ? DFIF; 1 RT TS $: 5 N AIAGY TR; $ 1R B P OSSPABY;  B TNGE $: 4E OD MLEGGTO, ES;Y  R2 OMC O N;  5$ NEB ? ORS APRHPE;R IOH.#C5,RP CM  SSUE G 07.31.72 DBLINT: .WORD 0 ;0 = FLT2 OR FLT4, 1 = WORD2 07.31.72 ; 07.31.72 WORD2: ; 07.31.72 INC DBLINT ;SET .WORD2 FLAG 07.31.72 INC R3 ;SET FOR .FLT4 PROCESSING 08.03.72 BR FLT2X ; �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������X: R��(r ��g��������.��'w "ۏ7 � �� � & �����������X:��������������������.��'� fR %��������&��X: X: X: $X:Y��������.��'R �   @ ���������� X: X:2��������.�� ( � �D ��>7 >�,���������&��X:X:�� R>� $R,���������.��F(8�,� �� p 5��� %w��������,�� R8� R,�vL��kQ $X:�ODGOF ICHANBR ; $ 4Q BE  &" ";D ANH.#C5,RP CM  &" "MESUAS; 2 ,RR1 OVM: 3$ R3 OMC O N;  R32,RV MO  ET SLL AS,YE ; $ 3Q BE  H?TCMA, ES;Y  R30,RP CM $: 2E GLOG TO,;N  R0 OMC S YE ; $ 2E BN  S?ESGUD OO;G DEMOG,FLEF#D ITB D NEFIDEE UMSS;A  R0 LRC F RERFC E BLTAL BOYM SERUSH RCEA;S   CHSRS M SYA T NOF IORRR E;  RRAEIF EQB L BOYM S AET;G   YMTSGE $: 1E RU TFF ORTTA;S  R3 LRC " "&T SE; 2 RR CL  ONTIDION CALTINI IVESA; 1 ,RR3 OV 07.31.72 FLT4: INC R3 FLT2: CLR DBLINT ; 07.31.72 FLT2X: ; 07.31.72 ENTOVR 3 INC R3  ;MAKE IT 1 OR 2 ASL R3  ;NOW 2 OR 4 FF1: ; 08.03.72 1$: TSTARG BEQ DGTEST MOV FLTPNT-2(R3),-(SP) ;EVALUATE NUMBER CALL @(SP)+ ; BNE 2$ ;������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.��l(D# %�  l  �����������D#(X:;d���������.��(,� �,�  >�>�U��������.�� R,�X:;d� R,�R>�$R>�T��������.��(� ��7 �7 �� b   . � ��������&��X:vL�� X:;d�X:;d�$X:;d�l����������(�� ����������X:;d��R*��������� ��*�����x�z(�zkQx����2���������� qQW(�vL �j�������� �� ��_���������������������������������������������������������������������������M F IDF/;I    F:NDCO T A NFCOTR B R NTCOTT BL  XPSEAB T:NLCO T A NFCOTR B R NTCOTT BG  XPSEAB T:NGCO T T XI ESTJU, UETR;  N URETR: TRONTC LEGGTO, SEAL F;  R3 OMC: FAONTC AT SIFH NCRA;B  TRONTC EQB N IOSSREXP ESTTE, NEQ/;E   XPSEAB Q:NECO�T���������������������� � F, DFONTC F,ND NDNCGE  DFONTC F,DD CNENG T NLCOT, LD CNENG F T,NLCOT, GE NDNCGE  LTONTC T,LD CNENG T NGCOT, GD CNENG F T,NGCOT, LE NDNCGE  GTONTC T,GD CNENG F Q,NE� BRANCH IF NOT NULL .DELETED BEQ FLTERR ;BRANCH IF NULL 07.31.72 TST DBLINT ;IS THIS A .WORD2 DIRECTIVE? 07.31.72 BEQ FF2 ;BRANCH IF NO - MUST BE FL. PT. 08.03.72 MOV R0,-(SP) ;YES - SAVE R0 AND R1 07.31.72 MOV R1,-(SP) ; 07.31.72 MOV R4,-(SP) ;AND R4 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������COT, NZ NDNCGE  EQONTC Z, NDNCGE  F, EQONTC E,ND CNENG Q NECOT, EQ NDNCGE  RNTURE  ORRR EQ" "NO; 5 RR CL X:ERFA IA ORRRE: RRAEIF ERDLAN HGHOUHR TITEX, NO; 1 @R MPJ A MMCOS ASYP;B   RGTATS  ITEXT US JS,YE ; X ERFAIE BN  T?SAUNY ADREAL; D WRNDCT TS  N)VE END(AL MAOR NTOK AC;B  R1 SLA D ODF I-1O TESGO3 ;R  R3 BCS G LA FLEGGTOR FOD SE UIT BOW;L  R1 SRA S ESDRADT GE;1 ,R+2OLMBSY OVM D UNFOT NOF IORRR E;  RRAEIF EQB T ENUMRG AOR F  07.31.72 MOV R5,-(SP) ;AND R5 07.31.72 CLR -(SP) ;SET SIGN FLAG POSITIVE 07.31.72 MOV #FLTBUF,R5 ;GET ADDRESS OF FL. PT. BINARY NO. 07.31.72 MOV (R5)+,R0 ;AND LOAD THE MOV (R5)+,R1 ; DOUBLE PRECISION 07.31.72 MOV (R5)+,R2 ; FLOATING POINT 07.31.72 MOV (R5)+����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ANSC; L RONDCW ANSC F:ONTC OLMBSYA T GE;  G ARGS  ONTIDION CSTTE;   : ONTC������������������������ N URETR R ROERN IOITNDCO; O ORRRE: RROEIF RNTURE  ALONTIDION CRKMA;G LACF,LND.CLC#S BI X:DCEN RDWOT ES TND A;  1)(R-L AS  SKMAE UCED;R  1)(R-L AS  NTMEREEC DS,YE; ) R1(C DE  ORRR EO, N;  RROEIF LEB ? ALONTIDION CIN; ) R1(T TS  ELEV LTOT INPO;1 ,RVLDLCN#V MO  ALONTIDION COFD EN;   : DCEN CXNDER B N OOV;M  RDDWCN ORR Y RRCAT SE; 3 ,R3 ; NUMBER 07.31.72 CMP -(R5),-(R5) ;BACK R5 UP TWO NOTCHES 07.31.72 MOV R0,R4 ;FIRST WORD HAS THE EXPONENT 07.31.72 BGT WORD3A ;BRANCH IF NUMBER IS POSITIVE 07.31.72 BLT WORD2A ;BRANCH IF THE NUMBER IS NEGATIVE 07.31.72 TST (SP)+ ;IT'S ZERO, SO POP OFF THE SIGN FLAG 07.31.72 BR WORD2E ;AND GO����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������RL AS  AGFLT ENRRCUF OFE OV;M  RDDWCN SLA R ROER, NO ; R ERFOIE BL  S?ESGRRO PINL NAIOITNDCO; L LVNDCT TS  Y)TLECIR DEDLLCAN HE W=0R3;(     ALONTIDION-CUB SALONTIDIONNC;U    F:FT I H UGROTHL AL FND ANTMELEMPCOE US; 3 RM CO  ONTIDION CNTREUR CET;G R3K,MSNDCV MO  ALONTIDION-CUB SSEAL FIF;   : FF I H NCRA BND A;  TFIF BR  NTREUR CET;G R3K,MSNDCV MO  ALONTIDION-CUB SUETRF ;I    T:IF������������������������ X DCEN BR  RDDWCNR FOO TTDI; ) R1-( ORR EXIT 07.31.72 ; 07.31.72 WORD2A: ; 07.31.72 INC (SP) ;SET SIGN NEGATIVE 07.31.72 ; 07.31.72 WORD3A: ; 07.31.72 ASR R4 ;PUT ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� 3 RL AS  SKDMCNO NT ITETARO; ) R1-( ORR ) (1E LSFAR O0) (UETRO TRYAR CET;S  R3 SLA L VELEP UM BS,YE; ) R1(C IN  ORRR EO, N;  RROEIF GTB ? ERTHNO AOR FOMRO;. 15,#1)(R MPC L VELEO TNTOI;P R1L,LVND#C OVM: F1 IT ENUMRG ASTTE; N COTL ALC L NAIOITNDCOD MEMMRAOGPRO-CRMI;   : IF DCEN F,FTI, FFI, FTI, IF BLLO.G  AMRESTN AI MHE TTOIN; 1 IF BR  ITE INAMEX; F ONTC LLCA  NTMEGUARS ALFHAD ONEC SATRE;T OLMBSY2,L+BOYMSV MO  DMEN. : RG'AIF RG'A 07.31.72 ASR R4 ; THE 07.31.72 ASR R4 ; EXPONENT 07.31.72 ASR R4 ; AT 07.31.72 ASR R4 ; BINARY 07.31.72 ASR R4 ; ZERO 07.31.72 ASR R4 ; 07.����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������IF BLLO.G  F>NDF,,D,ZNZL,G,E,,NLTE,,LGTE,,GEQ<, RGAP IR. S ALONTIDION CEDATENATNCCO;   X DCEN BR  ORRR EQ" "NOT BU, SEAL;F  R5 LRC: 3$ NTMETETA STOK AC;B  NTTMSP JM  NTGCAR LRC: 2$ MAOM CTOP ULL ASSREPPSU, ES;Y GLBELC1,RV MO  NO ; $ 2Q BE  N?IOSSREPPSUL NAIOITNDCO;K ASCM,LND.CLC#T BI  NKLA-BOM NTOT SE;  B TNSE  ONTICALOT ENRRCUE AV;S R1T,PNHRCV MO $: 1S ASYP BS,YE;  R CHETG O N;  1$ NEB ? MAOM;C R5M,COH.#C MPC D IESFTISAUNF ICHANBR31.72 BIC #177400,R4 ;GET RID OF EXTRANEOUS BITS 08.03.72 SUB #200,R4 ;GET RID OF BASE 200 (128 DECIMAL) 07.31.72 NEG R4 ; 07.31.72 ADD #56.,R4 ;R4 NOW EQUALS THE NO. BITS TO SHIFT 07.31.72 ;THE FL. PT. NUMBER RIGHT 07.31.72 BIC #177600,R0 ;GET RID OF SIGN AND EXP IN FL. PT. NO. 08.03.72 BIS���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ; $ 3I BM  R3 STT T ENUMRG ASTTE; N COTL ALC S ERDLAN HTEIAEDMM;I    F:II IFIL OBGL. S ALONTIDIONCL TTSB.� ���������������������� � DCEN. R OVITX C SEITX T UNCOD OR;W   KWBL.: DCTWFL INPLIM ECTSEN  4W LK.B V:SALT FC AINMA; 4 KWBL.: UFTBFL F)BULT FEDCERE PSTMU (NTNEPOEXY ARIN;B  1W LK.B X:BELT FT ENONXP EALIMEC;D   KWBL.: XPTEFL AGFLT INPOL MACIDE;  W LK.B T:DOLT FT BIN IG;S   KWBL.: GNTSFL REPUIMT INPOG INATLO FOFT ARST;   ! #200,R0 ;PUT IN 'HIDDEN' BIT 07.31.72 ; 07.31.72 WORD2B: ; 07.31.72 DEC R4 ;NOW WE'LL BEGIN SHIFTING THE 07.31.72 BLT WORD2C ;NORMALIZED FLOATING POINT NUMBER 07.31.72 CLC ;ALL THE WAY DOWN TO DOUBLEWORD 07.31.72 ROR R0 ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� G:BELT FE URMPIC SENTE 4 ITXM MPJ 2 ,RR4 OVM V SALT FTOF BULT FVEMO; 1 ,RR3 OVM: SVTGFL RNTURE  2)(R-L RO  2)(R-L RO  2)(R-L RO  2)(R-L AS  R24,RV MO  FTHI SFTLE;   : LSTGFL RNTURE  )+R1(R RO  )+R1(R RO  )+R1(R RO  )+R1(R RO  TETAROT GHRI; 1 ,RR3 OVM T IFSHT GHRI;  C CL S:GRLT�F���������������������� � RNTURE  NO ; $ 1E BN  H?UGROTH; 3 ,RR2 MPC Y ARSSCENEF IE,PLIP RUEINNTCO; $ 2S BC  IND AD; ) R1-( DCA: 2$ ESRIAR% ;BINARY ZERO 07.31.72 ROR R1 ; 07.31.72 ROR R2 ; 07.31.72 ROR R3 ; 07.31.72 BR WORD2B ; 07.31.72 ; 07.31.72 WORD2C: ; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� COR FET;S  R12,RV MO  RDWON IDD;A 2)(R,-2)(R6D AD $: 1A RE AVESAO TNTOI;P  R24,RV MO  UFTBFLO TERFFBUE AV SDD;A    D:GALT F S GLLTFL ALC S GLLTFL ALC V GSLTFL ALC 5 ;*    0:M5LT F D GALTFR B S GRLTFL ALC T GHRIE ALSC; S GRLTFL ALC P KUAC BINE AV;S  SVTGFL LLCA $: 1X BELTFC IN  RSTGFL LLCA  1$ LOB ? OMRO;4 3146#1),R3(P CM  /4*5;   : 54TMFL������������������������ N URETR 0 RING LA FET;S  R03,RV MO  NKLA-BON NTHWIN URET;R   NBET) 07.31.72 TST (SP)+ ;SEE IF THE SIGN IS NEGATIVE 07.31.72 BEQ WORD2D ;BRANCH IF POSITIVE 07.31.72 NEG R3 ;UDDERWISE, 07.31.72 COM R2 ; DO A 2'S 07.31.72 COM R1 ; COMPLEMENT 07.31.72 COM R0 ; TO THE NUMBER ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������S: 1$ SEAL FASG LA;F  R3 LRC N IMECAE WREHE WTOT SERE, NENO;T PNHR,CR0 OVM D SEESOCPRS ITIG DNY AIF) ODGO (ROZE; $ 1Q BE  ERNTOI PARCHL NAIOIGOR;0 ,R)+SP(V MO  UEAL VINY GUT RSFIE ACPL;E LUVA),R3(V MO  NTOU CARLE;C  DCTWFL LRC E UTOLBS AKEMA; E ODMR CL X:GELT FY ANF IN,IG SET;S 3)(RN,SGLTFD AD $: 7T ORRRE: 6$ VETISIPOF IOK; $ 7L BP  ONTISIPON IG SSTTE; ) R3(T TS  5$ GEB 2 RC DE  R2 ECD ) R2F(BULTFC AD $: 5C SE  2)(RUFTBFL7,7777#0 ISB S - 07.31.72 ; 07.31.72 WORD2D: ; 07.31.72 MOV R3,-(R5) ;STORE THE DOUBLEWORD 07.31.72 MOV R2,-(R5) ; INTEGER WHERE IT BELONGS 07.31.72 ; 07.31.72 WORD2E: ; 07.31.72 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������TEBYO TRTVEON;C  R2 SLA: 8$ RDWOE GLIN;S  R2 NCI E YP TETESPR; $ 8E BN  LEUBDO; 2 RL AS  NTOU CZESIT GE;2 ,RDCTWFL OVM C ND.E  ES Y;  7$ EQB ? ONTICAUNTR;K ASDM,EPT.FED#T BI  PTDFXE DF NIF. Y RRCAH IG HET;S  4)(R ORR T GHRIE ACPLE ONT IFSH; S GRLTFL ALC $ 4E BN  D?EN; 3 ,RR2 MPC ! C! PUT-ODESIINE THF OREWABE; ) R2(B WAS E YT B AUPE OV;M 2)(R),R1(B OVM D OR WNE OWNDO;) R2-(),R1-( MPC: 4$ R2N HA TEROW LNE OIS1 ;R  1)(R-T TS  R12,R1 MOV (SP)+,R5 ;RESTORE 07.31.72 MOV (SP)+,R4 ; THE 07.31.72 MOV (SP)+,R1 ; GENERAL 07.31.72 MOV (SP)+,R0 ; REGISTERS 07.31.72 MOV #2,R3 ;MAKE FLT2/4 THINK IT'S FLT2 FORMAT 07.31.72 BR FF2 ;AND WE'RE DONE 08.03.72 ; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� OVM S IT BHTIG EFTHI STOT SE; 2 ,RR4 OVM: 3$ ORRR EO,;N  NR ROER $: 2S YE ; $ 3Q BE  O?ER ZERRD OGHHI;1 X+BELTFB STT W LO-FERND UIFH NCRA;B  2$ LEB . 28 1SSCEEXT SE;X BELT,F00#2 DDA T BIE ONE OS;L  G5LTFC BC  LSTGFL LLCA  FTTIUS JFTLE; X BELTFC DE 5:TGFL������������������������ $ 31 BR  XPTEFL NCI X BELT,F3.#B SU  CKTA SNERU PS,YE; + P)(S STT O N;  2$4T BG  P?OO LOFD EN; ) SP(C DE  ERFFBUE AV SIND AD; D GALTFL ALC T GHRIE THO TRE5 07.31.72 FLTERR: ; 07.31.72 ERROR A  ; NULL, FLAG ERROR FF2: ; 08.03.72 2$: MOV R3,R2  ;GET A WORKING COUNT MOV #FLTBUF,R1 ;POINT TO FLOATING POINT BUFFER FF3: ; 08.03.72 3$: MOV (R1)+,(R4) ;MOVE IN NEXT NUMBER STCODE   ;PLACE ON CODE ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������MOE NC;O  RSTGFL LLCA $:43 RSTGFL LLCA  HTIG RTSBIF OLEUPCOA E OV;M  RSTGFL LLCA  ES Y;  3$4E BN  P?LAD OD; ) SP,(#1 ITB: 2$ 4R FEUF BVESAN ICELA;P  SVTGFL LLCA  HTIG RFTHI;S  RSTGFL LLCA  ERNN I 2R,TEOU6 ;1 P)(S,-*26.#1 OVM P OO LO, N;  0$4L BP  T?SET BIN IG;S  3)(R STT: 1$ 4S GLLTFL ALC S IT BFYTIUS JFTLE, ONSIVIDI; X BELTFC DE $:40 1$3R B 0 1EROV ; P EXLTFC DE $:33 8BYD AN ;X BELT,F3.#D AD  /4 5BYY PLTIUL;M  54TMFL LLCA $:329ROLL SOB R2,FF3 ;LOOP ON WORD COUNT 08.03.72 JMP FF1 ;CONTINUE 08.03.72 ENTSEC DPURE FLTPNT: .WORD FLTG2W, FLTG4W XITSEC .IF NDF XEDFPT GENEDT FPT,,1  ;FLOATING POINT TRUNCATION .ENDC XITOVR ������������������������FLTG4W: INC FLTWDC  ;FLOATING POINT NUMBER EVALUATOR FLTG2W: INC FLTWDC FLTG1W: ENTOVR 5 SAVREG   ;SAVE REGISTERS MOV CHRPNT,-(SP) ;STACK CU���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� 3$3R B O TWY BND A;  EXTBFL NCI 5 Y BLYIPLTMU, ES;Y  50TMFL LLCA  NO ; $ 32 HIB ? *5E WAN CY,PLTIUL;M 261403,#3)(R MPC O ER ZT..LF IDEVIDI; $ 41 LTB O ER ZIFI IN;F  G5LTFQ BE  LECA STOE IM;T  XPTEFL STT: 1$ 3O SIFT XI;E  EXTGFL EQB 0 ,R)+R1(S BI  R0+,1)(R ISB 0 ,R)+R1(S BI  ROZER FOT ES;T R0+,1)(R OVM 1 ,RR3 OVM: G3LT�F���������������������� � GHOUHR TLLFA; 3 TGFL BR  ;T ENONXP ETEDAUP;P EXLT,FR0 DDA E UTOLBS ATS IRESUE AK;M   =RRENT CHARACTER POINTER MOV #FLTBUF,R3 ;CONVENIENT COPY OF POINTERS MOV #FLTSAV,R4 ; TO BUFFER AND SAVE AREA MOV R4,R1 1$: CLR -(R1)  ;INIT VARIABLES CMP R1,#FLTBEG BHI 1$  ;LOOP UNTIL DONE MOV #65.,FLTBEX ;INIT BINARY EXPONENT CMP #CH.ADD,R5 ; "+"? BEQ 10$  ; YES, BYPASS AND IGNORE CMP #CH.SUB,R5 ; "-"? BNE 11$  ; NO MOV #100000,FLTSGN ;YES, SET SIGN AND BYPASS CHAR 10$: GETCHR   ;GET THE NEXT CHARACTER 11$: BITB #CT.NUM,CTTBL(R5) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������STSTAB  IXAD RRETOES;R IXADCR+,P)(S OVM: 2$ 2L UL NR,ROER ; A ORRRE L UL-NON NIFH NCRA;B  2$2E BN  RMTEE ATLUVA;E   RMTE  ALIMEC DTOT SE;X DIRA,C0.#1 OVM X DIRAT ENRRCUK ACST;) SP-(X,DIRACV MO  KSANBLD AN" "ES ASYP BS,YE;  B TNGE  NO ; 3 TGFL NEB ? NTNEPOEX;5 ,R.EET#L MPC: 1$ 2D UNRO AMETIT RSFIF IOPLO; $ 10 MIB T IRKMA, ES;Y  OTTDFL OMC O N;  1$2E BN  T?INPOL MACIDE;5 ,ROT.DCH#P CM $:20 REMOR FOY TR; $ 10 BR  D)OO GREE'(WR TEINPOR ;NUMERIC? BEQ 20$  ; NO BIT #174000,(R3) ;NUMERIC, ROOM FOR MULTIPLICATION? BEQ 12$  ; YES INC FLTEXP  ;NO, COMPENSATE FOR THE SNUB BR 13$ 12$: CALL FLTM50  ;MULTIPLY BY 5 CALL FLTGLS  ;CORRECTION, MAKE THAT *10 SUB #DIG.0,R5 ;MAKE ABSOLUTE MOV R4,R2  ;POINT TO END OF BUFFER ADD R5,-(R2) ;ADD IN ADC -(R2)  ;RIPPLE CARRY ADC -(R2) ADC -(R2) 13$: ADD FLTDOT,FLTEXP ;DECREMENT IF PROCESSING FRACTION CLR (SP)  ;CLEAR INITIAL CHA��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������