; UPDATE RMACRO.003 08.15.72 ; UPDATE RMACRO.002 08.03.72 ; UPDATE RMACRO.001 07.31.72 .TITLE RMACRO (GEES/DDS) V004 26 AUG 1972 .MACRO GVNUM  ;GEN VERSION NUMBER .ASCII /DDS4/ ; 08/26/72 .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 FDOSV4= 0  ;DOS VERSION 4 COMPATIBLE LMPBU; L LVACMC IN  ERNTOI PCKLO BUSIOEVPRD AN ;+ 2)(R+,P)(S OVM E YP TVESA;+ 2)(R5,RV MO  ONTINATIES DRECOE AK MS,YE;2 ,R)+SP(V MO  NO ; $ 1E BN  H?UGROTH;1 ,RNDBEMS#P CM  OTSLE OR CARLE;C  )+R1(R CL  EMITN AERXF;+ 2)(R),R1(V MO $: 1S ERNTOI PRECOD AN ;) SP-(1,RV MO  ONTINATIES DVESA;) SP-(2,RV MO  PETYTORO POFT ARSTO TERNTOI;P R1K,BLSB#M OVM T ARSTO TNTOI;P  2)(R-T TS  CKLO BGERATO S AET;G  LKTBGE LLCA  ELEV LNGTIES NROAC MSHPU;   : SHPUEVEL COUNT RETURN   ;RETURN WITH R2 POINTING AT MSBTXT MPOP:    ;POP MACRO NESTING LEVEL MOV #MSBARG+2,R2 ;POINT ONE SLOT PAST ARG MOV -(R2),R0 ;GET POINTER TO ARG BLOCK BEQ 1$  ;BRANCH IF NULL CALL REMMAC  ;REMOVE IT 1$: MOV -(R2),R0 ;POINT TO TEXT BLOCK BEQ 2$  ;BRANCH IF NULL CALL DECMAC  ;DECREMENT LEVEL 2$: MOV -(R2),R1 ;GET PREVIOUS BLOCK TST -(R2)  ;POINT TO START MOV R1,R0  ;SAVE BLOCK POINTER CALL XMIT0- ;XFER OR NOW .GLOBL PSTBAS, PSTTOP ;PERM SYMBOL TABLE .GLOBL WRDSYM  ;".WORD" DEFAULT .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 M RNTURE X:MAEM RT NXAC,M)+SP(V MO  0)(RT,NXACMV MO $: 2 $ 1R B K IN LO,;N  R0),R0(V MO  ES Y;  2$ EQB ? INHA COFD EN; ) R0(T TS $: 1R TEINPOE AV;S P)(S,-R0 OVM: ACMMRE VETIGANEN-NOF IITEXT US;J  AXMMRE PLB E AGORSTO CRMAT ENEMCRDE; ) R02( ECD: ACCMDE RNTURE  CEENEREF RROAC MNTMERENC;I  0)(R2C IN C:MANC I N URETR T ISTPAT INPO, LLCEK IN LARLE;C  )+R2(R CL  R20,RV MO $: 2N AICHW NET SE;T NXAC,M0)(R OVM: 1$ NO; BLOCK CLR (R0)  ;CLEAR LINK CALL REMMAC  ;RETURN BLOCK FOR DEPOSIT DEC MACLVL  ;DECREMENT LEVEL COUNT RETURN ENTSEC IMPURE MSBBLK:    ;PUSHABLE BLOCK (MUST BE ORDERED) MSBTYP: .BLKW   ;BLOCK TYPE MSBPBP: .BLKW   ;PREVIOUS BLOCK POINTER MSBTXT: .BLKW   ;POINTER TO BASIC TEXT BLOCK MSBARG: .BLKW   ;POINTER TO ARG BLOCK MSBCNT: .BLKW 2  ;REPEAT COUNT, ETC. MSBMRP: .BLKW   ;MACRO READ POINTER MSBEND:    ;END OF ORDERED STORAGE MACNXT: .B .MACRO ENTOVR N .IF NE OVRLVL .PRINT OVRLVL ; NOT = 0 .ENDC .IF NDF 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 PDPV45 = 0 ; DEFINE TO USE THE /45 INSTRUCTION ; SET IN THE ASSEMBLER ITSELF.  7 21 ORRRSE  ES Y;  2$ HIB  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-1MBBPLKW MACLVL: .BLKW   ;MACRO LEVEL COUNT CONCNT: .BLKW ARGMAX: .BLKW MACNAM: .BLKW 2 MACGSB: .BLKW   ;MACRO GENERATED SYMBOL BITS XITSEC .GLOBL MCALL  ;.MCALL MCALL: ENTOVR 6 CALL SMLTST  ;TEST FOR UNDEFINED ARGUMENTS BEQ 5$  ; BRANCH IF NONE .IF NDF XSML  ;ERROR IF NOT IMPLEMENTED TST PASS  ;FOUND SOME, PASS ONE? BNE 4$  ; NO, ERROR CLR SMLFIL+6 .INIT #SMLLNK 10$: .OPEN #SMLLNK,#SMLFIL ;OK, OPEN THE FILE NUMOVR XXX= XXX+1 .IRP N,<\XXX> .CSECT OVR'N OVR'N'B: .ENDM .ENDR .RADIX 8 OVRLVL= 0 .CSECT OVRBLD .IFF OVRLVL= 0 .MACRO ENTOVR NAME .ENDM .MACRO XITOVR .ENDM .ENDC .MACRO ENTSEC NAME .CSECT NAME .ENDM .MACRO XITSEC .CSECT MAIN .ENDM XITSEC .IIF DF X45, XFLTG=0 ;X45 IMPLIES XFLTG .IIF DF XMACRO, XSML=0;XMACRO IMPLIES XSML .MACRO LDRMAP MNE ;PUT ; UPDATE RPST.002 08/26/72 ; 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 #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 ECTSXI  RSAI PREMOR FOM OO;R  *23W LK.B  LFSEITR TEACARCH; 1 KWBL. R TEACARCH" EDOWRRBO "TOR TEINPO; 1 KWBL.: LKABGM ERFFBUG INOWLLFOO TERNTOI;P  1W LK.B T:PNMA GS PAMPIC SENTE N URETR T PNMA 1$: 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 SUPPRESSED ITEMS ON LOADER MAP .IF DF MNE!XALL MNE= 0 .LIST .GLOBL MNE .NLIST .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 XEDW  ;DIRECTIVE USES BYTE MODE DFLCND= 004   ;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 ,GR0 OVM B TNSE  NTRPCH),R0(V MO  0)(R DCA 5 RL AS  ERCTRAHA CINRGVIE ORSTRE;) R0@(5,RB OVM ) R0-( STT R TEACARCHT SE;5 ,R0)(R- 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 MSRCH   ;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] RP  ;ED.WRP LDRMAP XEDCDR  ;CARD READER FORMAT LDRMAP XZERR  ;"Z" ERRORS LDRMAP 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 DE .ENDC .ENDC .GLOBL NAME .RAD50 /.'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 $:22 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 BR 10$ .IFTF 4$: ERROR U 5$: CLR SMLCNT  ;MAKE SURE COUNT IS ZAPPED CLR ENDFLG  ;DITTO FOR END FLAG RETURN SMLTST:    ;TEST MCALL ARGUMENTS 1$: GSARG   ;FETCH NEXT ARGUMENT BEQ 3$  ; EXIT IF THROUGH MSRCH   ;OK, TEST FOR MACROS BNE 2$  ; FOUND, NOT INTERESTED INSERT   ;INSERT WITH ZERO POINTER INC SMLCNT  ;BUMP COUNT 2$: CRFDEF   ;CREF IT BR 1$ 3$: MOV SMLCNT,R0 ;FINISHED, COUNT TO R0 RETURN ENFAULT PARAMETERS .IIF NDF MNE, MNE= VALUE .LIST MNE= MNE .NLIST .ENDM PARAM 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 IOPCDEF , 09, 073000, DR2, X45 OPCDEF , 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 , OVM 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  >"", 02, 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 /4 ED.'MNE= ED.'MNE+ED.'MNE .& >, 04, 102000, OPCDEF , 04, 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  ;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 )ENDR .GLOBL ED.'MNE .RAD50 /MNE/ .IF NB SUBR .WORD SUBR .IFF .WORD 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   ;UNN*MP >, 02, 020000, OPCDEF , 02, 120000, OPCDEF , 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, 1 PIFE RU;T  DTCITQ BE  KSANBLY ANS ASYP;B   NBETS T ENUMRG ATELASO;I  GFARGM LLCA  LLNUF IOK; X ERCBT EQB L NAIOITNDCO" FB"I;    B:TC F, IDTC F,DI NDNCGE  IDTC N,ID NDNCGE  F, CBT, NB NDNCGE  CBT, B NDNCGE  N URETR: 1$ ORRR EO, N;  OR ROER  OP PS,YE ; $ 1E BN  O?CRMAN ;I EXDMCNL,LVACMV MO  ITEXT EAEP/RROAC;M    T:XIME EXYPNT BR  AR ROER R:PETY N T ENNMIGSS AGHOUHR TITEX; F MTSGAP JM  UEAL VET SND, .ALLOC #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-AMED IS STANDARD .SBTTL SUBROUTINE CALL DEFINITIONS .IF NDF TRAPS .MACRO GENCAL NAME ;CAN BE CHANGED TO OPDEFS OR TRAPS .MACRO NAME JSR PC,NAME .ENDM .ENDM .IFF ENTSEC TRPSEC  ;SET SECTOR FOR TRAPS TRPTBL:    ;MARK BASE XITSEC .MACRO GENCAL NAME ENTSEC TRPSEC .IRP OFFSET, <\.-TRPTBL> ;GENERATE NUMERIC TRP'OFFSET= TRAP+<.-TRPTBL> .WORD NAME .MACRO NAME +TRP'OFFSET .ENDM .ENDM XITSEC .ENDM .04000, OPCDEF , 00, 000000, OPCDEF , 01, 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 A; UEAL,VR3 OVM E OD MARLE;C  DEMO LRC: EXYPNT 1)(R,-)+SP(V MO  OLMBSYE ORSTRE;) R1-(+,P)(S OVM E OD CEDATEREN GNY AARLE;C  OLDRCO APZ T ULES RET;S  R30,RV MO  TEUAALEV; P EXAL ALC ) SP-(+,1)(R OVM L BOYM SVEERESPR;) SP-(+,1)(R OVM 1 ,ROLMBSY#V MO  ASMMCOY ANS ASYP;B   RGTATS  ORRR E;  ERYPNT EQB L BOYM SHE TET;G  RGSAGL ALC E OD MONSIESPREXT ES;T    E:YPNT EXYPNT BR  RSTEMILIDEG ARE OVEM;R  RGMARL ALC: 2$ ND EOT NIFP OO;L  1$ NE0 R0  ;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) 1 .ENDC .IIF DF OVLAY, GENCAL CALOVR GENCAL SAVREG GENCAL EXPR GENCAL 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 MSRC2OPCDEF , 11, 172400, DR2, X45 OPCDEF , 14, 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 OPB R TEACARCHT EX NHE TET;G   HRTCGE  NTOU CMPBU; 3 RC IN $: 1S YE ; $ 2Q BE  ONTILEMPCOR FOT ES TCKUI;Q  R5 STT L UL NIFO ER Z;  EXYPNT EQB T ENUMRG ATELASO;I  RGMAGL ALC L BOYM SNOD IORRR E;  ERYPNT EQB G ARGS LLCA  RSTEACARCHF OERMBNU;   : HRNC EXYPNT BR  ERMBNUT SE;3 ,R+2NTBCMS OVM G INSSMIF IORRR;E  ERYPNT EQB L BOYM S AET;G  RGSAGL ALC S NTMEGUARF OERMBNU;   : RGNA ITEXM, PETYN, HRNC G,ARNL OBGL. 4MOV #1640,-(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 5H GENCAL LSRCH GENCAL SETPF0 GENCAL SETPF1 GENCAL DNC GENCAL CVTNUM 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 DEC6CDEF , 02, 010000, DR2 OPCDEF , 02, 110000, 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 VRTOXI  4$ BR  HRTCGE $: 9T CNONCC IN $: 8 $ 1R B N LINDEL ALC $ 9E BN  MTCIWL ALC $ 8Q BE  CL.XCH,#R5 MPC: 7$ 6$ GTB 0 R5ETG: 1$ 6T IMWC LLCA  1$6E BN  R4 STT: 6$ YMTSSE $: 5T CNONCC DE  MTCIWL ALC T CNONCC DE  R5 EGN 5 ,RPDLURO OVM $ 5Q BE  R40,RV MO  OLARDM ANSC  7$ EQB M SYETG: 4$ HRTCSE  NTRPCHF,BUIN#L OVM: 3$ DCEN. E OR MOR FSTTE, ES;Y  STLTSM LLCA  NO ; $ 3Q BE  D?TEES NS,YE;0 ,RMCLSDF#T BI  NO ; $ FCALOVR:    ;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,OVE REG BNE ADDR .ENDM .ENDC    ;ROLL HANDLER CALLS .MACRO SEARCH ROLNUM ;BINARY SEARCH MOV #ROLNUM,R0 CALL SEARCH .ENDM .MACRO SCAN ROLNUM ;LINEAR SCAN MOV #ROLNUM,R0 CALL SCAN .ENDM .MACRO SCANW ROLNUM ;LINEAR SCAN, ONE WORD MOV #ROLNUM,R0 CALL SCANW .ENDM .MACRO NEXT ROLNUM ;FETCH NEXT ENTRY MOV #ROLNUM,R0 CALL NEXT .ENDM .MACRO APPEND ROLNUM ;APPEND TO END OF ROLL MOV G, OPCDEF , 00, 000005, OPCDEF , 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 w   f5eU@  [*   & * G &( 8L'4e Q$ BBB"   U@ U e  "U%Gef. U U Bb 0 * B.&0 M &0 & I#ROLNUM,R0 CALL APPEND .ENDM .MACRO ZAP ROLNUM ;CLEAR ROLL MOV #ROLNUM,R0 CALL 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 RJRSIP ;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 #TRNLNKK >, 00, 000270, OPCDEF , 00, 170011,  , X45 OPCDEF , 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 OPCNET SE; 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,BASGL OVM T UNCOP UM BL,BOYM SEDATEREN;G  METURN RTS PC .ENDM .MACRO PUTKB ADDR ;LIST TO KB JSR R5,PUTKB .WORD ADDR .ENDM .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 .-, 12, 175400, DR2, X45 OPCDEF , 12, 175400, 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 OPCDEFASGBLS NCI: 0$ 3B LSEDXF NDF .I  5$ BR  R5+,P)(S OVM S EG RRETOES;R R3+,P)(S OVM T IMWC LLCA  R5 LRC I CIASO TRTVEON;C  0$4L ALC 1 RTOE LUVA; 1 ,RR0 OVM X DIRAT ENRRCUN IUT OAKRE;B R3X,DIRACV MO  P)(S,-R3 OVM R TEACARCHK ACST;) SP-(5,RV MO  BS AN,IOSSREXP ETEUAALEV;  P EXBSA S ASYP B","\;   NBETG: 0$2 RNTURE  R0+,P)(S OVM: 2$ 1G LACF,LMCC.#L ISB: 1$ 1 $ 12 BR  ELAB LLYONT IS LS,YE;L NDCE,LR0 OVM E IN LRETIENS QDDR> .IF LE .--254. BR ADDR .MEXIT .ENDC .ENDC JMP ADDR .ENDM .MACRO 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 ;SR ENTSEC 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 S , 02, 160000, DR2 OPCDEF , 11, 173000, DR2, X45 OPCDEF , 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 ESPRUP SO, N;  1$1Q BE  L?BELAA E WVEHA, ES;Y R0D,ENBLLV MO  NO ; $ 12 EQB ? ONSIESPRUP SLLCAO CRMA;K ASCM,LMCC.#L ITB 5 RM CO  MTCIWL ALC 5 RM CO $:10 6$ BR  MTCIWL ALC 5 RR CL  0$1Q BE  MTCIWL ALC: 7$ HRTCGE  NTGCAR NCI: 6$ 1$ BR  NE OEROVT BIN IOATEREN GVEMO; B GSACM 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. UET ADDR TO NON-ZERO FOR T/F FLAGS MOV SP,ADDR .ENDM .MACRO INIT FILE ;INIT A FILE MOV #FILE'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 PARAMETER ;CLOSE 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 W DIRDEF , DFLGBM DIRDEF , DFLGBM DIRDEF  DIRDEF  DIRDEF , DFLGEV DIRDEF ; ;07.31.72 DIRDEF , DFLGBM DIRDEF  DIRDEF ; 08/26/72 DIRDEF  DIRDEF  DIRDEF  DIRDEF , DFLCND DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF  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=Z7rl$ %j' %j[H %j ABEILMNOPQRTUZxgze|g~a ]]cؔ.[T > DIRDEF  DIRDEF  DIRDEF , DFLGEV, XFLTG DIRDEF , DFLGEV, XFLTG DIRDEF  DIRDEF  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 ,  1$ BR  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 EN] '9 DEFFLG= 000010 RELFLG= 000040 GLBFLG= 000100 REGFLG= 000001 LBLFLG= 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^]\dt0[tJؔY&֗F[Y@VQFsPMU& -0w :j/ 1*xر1 D/ -F!J/d/X! MACRO VDDS4  ך0߮,w DS! Sf::^_DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF  DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF , DFLGEV DIRDEF  DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF , DFLSMC, XMACRO DIRDEF  , , XMACRO DIRDEF  , , XMACRO DIRDEF  , , XMACRO DIRDEF  DIRDEF  , , UMRG AMYUM DARLE;C  OLARDM APZ 6 VRTOEN  GSARO CRMAS ESOCPR;   : MAROP VRTOXI  RNTURE  AR ROER $: 1 F PTRE MPJ 5 ,RRP.IMT#V MO  MTROP LLCA  INDLEN LLCA  P)(S,-R0 OVM ) SP-(3,RV MO  P)(S,-NTGCAR OVM + 2)(R LRC K BLETGL ALC G ARRM LLCA  R30,RV MO  CFOMPR LLCA  TSENUMRG AOFR BEUM NNY;A AXGMAR7,7777#1 OVM $ 1Q BE  RGMAGL ALC G ARRM LLCA  MAROPL ALC $ 1Q BE  RGMAGL ALC 6 VRTOEN  P:IR R3 NCI: PCIR a RLDT07= 07 ; NEW CSECT RLDT10= 10 ; SEQUENCE BREAK RLDT11= 11 ; LIMIT RLDT15= 15 ; SECTOR ADDITIVE RELOCATION 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  ;b,0ŝ&) 0.ҕ? w @Dw,d@&  w ,ҨB!e )7P')L' z, N eeE. h6, !'  @/- ,D w 4w (D wRB j cXMACRO DIRDEF  DIRDEF ; 07.31.72 DIRDEF  DIRDEF  DIRDEF  DIRDEF , DFLGEV DIRDEF ; 08/26/72 DIRDEF  DIRDEF , DFLMAC, XMACRO DIRDEF  DIRDEF  WRDSYM: DIRDEF <WORD >, DFLGEV DIRDEF <WORD2>, DFLGEV, XFLTG ;07.31.72 PSTTOP:    ;TPCIR P,IR BLLO.G ������������������������ R OVITX  RNTURE  HRTCSE  TECALEEP RND A; )+R2,()+R2(V MO  NTOU CNTMEGUARN ILLFI;) R2,(NTGCAR OVM R TEINPOT ENUMRG AND A; )+R2,(R3 OVM R TEINPOT EX TET;S )+R2,()+SP(V MO  RPBMMS+,P)(S OVM L VELEG INSTNEH US;P  SHPUML ALC 5 ,RAC.MMT#V MO  ERNTOI PCKLO BVESA; 3 ,RR0 OVM S NTMEGUARL AL CSSCERO;P  MCROPL ALC R TEINPOE AV;S P)(S,-R0 OVM S IT BOLMBSYD TERANEGED AN ;B GSAC,M)+R0(V MO  GSARF OERMBNUT SE;X MARG,Ae� TRANSFER ADDRESS GSDT04= 04*400  ; SYMBOL DECLARATION GSDT05= 05*400  ; LOCAL SECTION NAME GSDT06= 06*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 FORMATf�Ҫ|D&����������,� ERRORS DETECTED: � FREE CORE: �. ���������WORDS� # �*���������,�x�� H��&/5�w �&� &=��������,�&   e@� F� � ( h��������,�ĩ � (� >RR JR��������,�& &� e�5``&7&��������,�� (ҕ � 7* * R����������������"�6 ӄ* 7 �+7 + %7 "��������*�R%%%  %]*w ��f��������,�vf�w� � % + 7 * % �������OP LIMIT .END ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������)+R0(V MO  TSLO SOFE PLOU C AUPE OV;M )+R0,()+R0(P CM  CEENEREF RNTMERENC;I  ACCMIN LLCA  P)(S,-R0 OVM 6 VRTOEN  LLNUF IORRR E;  RRCEOP EQB R TEINPOK OCBLT GE;0 ,RUEALVV MO  ONTICALOK AR;M   F0TPSE  LLCAO CRMA;   : OCCRMA������������������������ R OVITX N URETR R CHETS R KEAR MND EET;S  MTCIWL ALC 5 ,RAC.MMT#V MO $: 3A ORRRE: 2$ 3$ EQB 2 M+NAAC,M+2OLMBSY MPC $ 2E BN  AMCNMA0,RP CM  3$ EQB M SYETG T EX THE TSSCERO;P  MTROPL ALC i� ERROR SB.DPE= 040  ;DEVICE PARITY ERROR SB.EOF= 100  ;EOF SB.EOM= 100  ;EOM    ;DIRECTIVE 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:j�����,(&(~&��������,�P % � �  , )w����������ت����������������B��������,�ڪ0  ff7 J% {��������$��v >%-8%% w ) ')����������������� v'z'7 l'���������&�4h' )! ! �f�������� �T� �������� �kQ4d�������������� �\PA�2����������^Z��������*�Z 7$� h)7`d)b)7 X)7 ���������~R) $7 B)ӷ)r���������������tԼ) )e)vk����������.�� 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��@�� ;E IN LFF OSHLIPO; N LINDEL ALC G LACF,LMDC.#L ISB S IT BOLMBSYD TERANEGED AN ;+ 2)(RB,GSACMV MO  GSARF OERMBNUP EE;K )+R2,(NTGCAR OVM T UNCOL VELER EACL; + 2)(R LRC S RG AMYUM DSSCERO;P  MAROPL ALC F DERFC E BLTAN IRTSEIN;  T ERNSI R TEINPOT SE; ) R4,(R0 OVM K OCBLE AGORSTA T GE; K BLETGL ALC: 1$ CEENEREF RHE TNTMEREEC;D  ACCMDE LLCA  LLNUF ICHANBR; $ 1Q BE  ERNTOI PHE TET;G  R0),R4(V MO  LEAB THE TCHARSE;  H RCMS  +2AMCNMA2,L+BOYMSV MO m� ENTSEC ROLSIZ  ;ENTRY SIZE ROLSIZ: XITSEC    ;START OF TABLE TO BE FILLED IN GENROL SYM, 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) n���������&� )[&5'�U �)@ ]�)-��������,�ʫ( U�n) /D D` W! � W!��������,� �W! � (RE@ 5@�5@�r$+��������,�e� �JU�)� ) |���������<'$5�@$7'��������,�Rp(  v(d(� �! ! �f��������,�xDDg'@(Q$  B� ��������,�*f( � -'' �~��������,�Ĭ⋁w'U�|(5�A tUA��������,� �Z(R� pw�l 7 * U3�����o���@�� ;@��uL`;@��{L�}@��m��������.��kQp@��kQr@��QL@�� R`;@��W+@����������.���Xp@��iYy@��Zd@��d^��@��C`O@��X��������.��C`O@��C`O@��C`O@��C`O@��C`O@����������.��C`O@��C`O@��C`O@��C`O@��C`O@��v��������.��C`O@��C`O@��C`O@��C`O@��+dD@��?��������.��/d@@��fZ@��p�<@��pp@��Nq��@����������.��Uq��@��Xq�}@��$w~@��|~K@��*�@����������.��*�@������(�� gw(p g h�� ghhp����������zh`�b��������������� AMCNMAL,BOYMSV MO  6R OVNTE : OFCRMA LLNUF IORRR E;  DMEN EQB E AM NHE TET;G   RGSAG N IOITINEF DROAC;M    R:AC M: ROAC M M NDE, CRMA O,CRMA BLLO.G ������������������������ N URETR O ORRRE: RRCEOP R:ND E: DMEN OPMP MPJ G LA FITEX MARLE;C  EXDMCN LRC: 1$ RNTURE  NKLIS ASYP;B  0)(R4,#D AD  ERNTOI PADRET SE, NO;) R0,(XTBTMS OVM S YE ; $ 1T BG  H?UGROTH;+ 0)(R+,0)(R MPC T IMPBU; ) R0(C IN  NTOU CTOR TEINPOT SE;0 ,RNTBCMS#V MO C:MAq� GENROL CND,CNDBAS,CNDTOP,2 ;CONDITIONAL ARGUMENTS GENROL SWT,SWTBAS,SWTTOP,2 ;COMMAND STRING SWITCHES 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  r����"��4(& .#' #H "(%5�M��������$�,"(A J#>55�>#'(5�������������������"�J0#�(c+5�#E���������$�f'=#'!8$ 5�"#��������,�V ҕ �   xӪ't��������$�tԦ'#  R?' %��������,�ȭ5�"`Z  H ^ ��������,� 25`�ʕ'�5@�ʕG� Ը��������,�W  H H5�P" &ҕ ���������,�: & �'  ?��������,�`&( "5s������������� gw��q��������.�����%��@  @��@��������.�� 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 @ND E R TEACARCHE ORSTRE;  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 LRCu� ;UPDATE IF NON-ZERO ENTSEC PSTSEC  ;CONTROL LOCATION OF PST XITSEC ������������������������������������������ ENTSEC 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: .BLKv�$�"  � -!���������!!!w�(' ���������,�H H5�!  Ӡʕ � Q��������,�Įҕ �Z5�!  Lҕ � ^վ��������,�5�!�  *5`�ҕ'�5@���������,�G�ҕ �  ' f&E���������,�6 !ы7 &R@   7 7 ���������\ �' ��������� �tr|��������,�nl%]n%= 4W!:�VW!=�R  r��������,�w�d  w�` � W!$� .��������,�W!:� v h%5Uw���������.�� C`O�C`O�C`O�!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�� K OCBLE AGORSTA T GE;  LKTBGE LLCA  NGTIIS LHE TRKMA;  1 PFETS T UNCOE AV;S P)(S,-R0 OVM T UNCOE ATLUVA;E   XPSEAB  ERDLAN HATPERE;   : PTRE DREN T,EPRL OBGL. C MAT.M= AX.MMT 037617 C=MAT. M2 60771= RP.IMT 017617 T=RPT. M O CRMAXF NDF .I  RSLENDHAO CRMA TLBT.S ������������������������ C ND.E  NERU PND ACHANBR;C ,P)+SP@( OVM S ESDRADM OR;F P)(SP,RA-TBLPTTR#D AD  ITK ACST;) SP-(+,P)(S@V MO  ONTIUCTRNS IAPTRO TNTOI;P  P)(S2,#B SU  UPS ESDRy�B 1 CLCLOC: .BLKW 1 CLCMAX: .BLKW 1 ENTSEC IMPPAS  ;CLEAR EACH PASS CHRPNT: .BLKW   ;CHARACTER POINTER SYMBEG: .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 CALLz��t% d5 ��������,�௘0&  �5�U�L% ������������������,�� W!=� W!:�   � ��������,�,�;-%- 6  5� E��������$�R�U �7P5�-9��������,�pU�$U�  t U���������,�$ L$$$w� >*ff  J��������,�X *5� $-X % U�ff @E��������,�ⰿU \ ыwGwBU@�H$ , ���������,�* :55� U�"$5� ��������,�.$ � {��%�������������������&�� 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�^�ADN URET RVEMO;) SP2(),SP(V MO  ORSSCERO PAPTR;   : ROPPTR PSRATF DIF. N URETR L UL NTOK AC BNTOI PD,EN; ) R2-( TBTS  LLNUN-NOF IOPLO; $ 1E BN  NE OVEMO;+ 2)(R+,1)(R VBMO $: 1G INTR STEBYE OV;M    T:BYOV M N URETR: R0CL X+ 2)(R LRC 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 }� XCTPRG  ;CLEAN THINGS UP A BIT ; CLR CMOLNK .INIT #CMOLNK  ;INIT KEYBOARD OUTPUT PUTKB HELLO  ;SAY HELLO ; CLR 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 ENTO~� H� $ w$�Ew#u��������,�T & f Af�E� � ��������,�zw# Ί� &1P� &@�E)��������,��%P�%E% 5�E%�p��������,�ƱE%E%�% � A A �,���������5�U�@P#���������,����������������H����������������������� �����������������,�� 5U�<#E�  ��������,�   e�5�U� #����������,�F f " ׭� � ���������.��@�K &@�K8@�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`MO 4:ITXM )+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 OV�VR 1 CALL XCTPRG  ;INIT FOR PROGRAM ; CLR SRCLNK ; CLR LSTLNK ; CLR OBJLNK .IF DF DOSV4 .SYSDV   ;GET SYSTEM 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    ;GEN� * ��������,�lX�� H� � v �P����������������,��  D :0U�"@�7 ��������,� "& W!@� 5�U�v"U� W!��������,�޲#� % �^" * U�^W!-� ��������,�!! W!(� �U �SW!(� �W!��������,�*+� U�F5�U�@ 5  ��������,�PvW!(�5�3 5� 5@�b��������,�v5� U�U7� �5�U�!��������,�E�ffff �PU0� &� ��������(�³� U�  ,�O�C`O�C`O�%C`O�0��������.����� 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��M 3 ,R)+SP(V MO  R2+,P)(S OVM S ERSTGIREE ORSTRE;1 ,R)+SP(V MO  TFIF. : 2$ +6OPNTMO1,RV MO  2$ ISBH  +6OPNTMO1,RP CM  R1P,TOONMB SU  R14,P+TOONMV MO $: 14 P+TOON,MSP OVM $ 1S HIB 4 P+TOON,MSP MPC G BUDE DFF .I  LLCAE THN URET;R )+SP@(C,PR JS X:REAV S) SP.(,8R4 OVM P TON OSSREDD ARNTUREE ACPL;) SP-(),SP.(6V MO  P)(S,-R1 OVM ) SP-(2,RV MO  P)(S,-R3 OVM S ERSTGIREE AV;S    G:REAV S E AGORSTR TEISEGRL TTSB.� ���������������������� � RNTURE �ERATE VERSION NUMBER .ASCIZ / / ENTSEC MIXED PRGLIM: .LIMIT   ;OVER-WRITTEN BY OVRBLD XITSEC ������������������������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 FLA�W!)�U�l!� ��������� �xI��������,�7  7 =# ˵@�2Q��������,� ˵ �1ы#-�7 )˵@�!Q ��������,�0ыʋыE�& e m2$77"��������"�V _$ m 7  ы.�������� �|ke)��������,�r5�ɋ W )W )U� |��������������,�J ԋ� � �U� #��������� Հ��C���������#� �����������,�ƴ � j�  D5�JU@�B Zj��������,� @U�P �   ���w������������.��C`O�C`O�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�,��������.� R4E,LUVA#V MO  R3E,OD#M OVM 2 ,RORCTSE#V MO  R1L,BOYM#S OVM S ERSTGIREN IOSSREXP EET;S    R:XPET S X REAVS 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�G BEQ 10$  ; OK MOVB #CH.QM,(R2)+ ;ERROR, SET "?" CLRB (R2)  ; AND TERMINATOR PUTKB CMIBUF .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 LL� $��������� &Jw��������� �xշ ����������,� p�   ^� v�  m��������,�F U �   &4 w���������"�lf b  5�7 ���������7  ��������� �ףn��������,� P4& j� R \ � "������������������,� �  � U�p�7vo��������,�Fr Jҋ  ѡr��������,�ɕ �w �  R(  )%��������,�,5� H/   x��(Yz �z�� �d�� ��� �|��������.�� 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|@ ��(`��������.��֯����֯�����֯x���֯���֯������������� q!`t!��t!"t!@Q[��������.�� R3),R5Z(SIOLRB OVM P TOT ENRRCU;2 ,R5)(ROPLTRO OVM E AS BNTREUR;C R1),R5S(BAOLRV MO  EXND IET;S R5X,NDOLR OVM R TEACARCHT ENRRCUD AN ;) SP-(5,RV MO  RSTEISEG RVESA;  G REAVS S ESDRADN URET RVESA;0 ,R)+SP(V MO F:ROET ST ENUMRG AET;S DXLNRO0,RV MO  RSTEISEG RLLROT SE;   : OLTRSE������������������������ N URETR T UNCOY TRENR EACL; 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|�TBL+2  ;ASSUME TERMINAL BIT #000400,R3 ;TRUE? BNE 21$  ; YES MOV #2+<3*400>,LLTBL+2 ;NO, SET FOR 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 CUR�~ ��������,�R�-�z � �D �����������x ��  �re0�J ����������/TABLE OF CONTENTS�5��������,� *7 \ � * `� ���������,� �U�U�~ 6  >�C��������,�ܶU�d�   n�C!w�?��������,�  ` � E��U����������,�( �  � �U�7 �������� �N��������� ��65����������,�R�e�E�� N �7 �7 U � ���������,�x h F��� ���ׯ�}����گr����ޯp!��������P$��������$��t!p !��""`"W$t'���������.�� ���$^����l!����n�����n���n3��������$��t'-`8Z09��&49%��������.��2!���n%���n+���n,���n.�����������$��59@j69��79�� 79@(79�}��������.��Xn�K���nK���n N���n&X���nHX����������� <9��<9@<9�}">9��������.��~��n[���n�}���n}���n���q%��������$��>9@ >9D9��D9%$J9����������.������z�d���zxd���鰼R�; $ ,6R3 OBS 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  D?EN; 2 ,RR0 MPC: 3$ WNDOY TRENN AVEMO;+ 2)(R+,1)(R OVM: 2$ 172R ROERS K OO, N;  3$ HIB ? OWFLEROV;P TOAC,MR2 MPC N OW DOTSLE ONS NTOI PR2; 2 ,RR3 UBS 2 ,RR1 OVM E AS BTELUSOABT GE, NO;1 ,R+0ASLBRO OVM 0 ,RR3 UBS T IFFTU SSTx�RENT LISTING FLAGS MOV #LCSBAK,R2 CALL XMIT0-LCSAVL MOV EDMASK,EDMBAK ;DITTO FOR ENABL/DSABL FLAGS 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�   L *`��������,�!7 ~7 | 0 � �J��������,�ķBGW!<�! (@@B!   *���������,�E 0� � ( ) �(��������,�&  �  (�U�&�\��������,�6 e  W �  v �U���������,�\��  7  > ��������,�>&f&f& l@ABCe) #��������,� E�� e8�EU�1��������,�θ ��      B A @ Z��������&�����y���� *��������$��9�� ;�� ;uL`;&{L�}P������������������.����� ��� ,��� |����1q����;��������$��kQpkQrQL R`;(W+d��������.��34����<L;����DŞ����\�����x��A���������� �XpiYyZd"d^����������.����,����:����ѱ����ѱ���ձ%>����������������$��+dD /d@fZp�<$pp��������.��<����ձ@Q����ձ g���,����)~����x��������$��Nq��Uq��Xq�}$w~&|~K����������b q���@q�������������*�JU, ES Y;  5$ 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������������������������������������������������t� TO BUFFER SIZE CMP R2,(SP)  ;NEW HIGH? BLOS 15$ MOV R2,(SP)  ; YES, SAVE IT 15$: .RLSE #SRCLNK  ;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 �U�FlL ~w�^=�������������������� �"_�������� �(��������$� 6 2 lt! W q��������,�2dA�.%+�%-�� ���������,�X5�   j 0�bab b b mj��������,�~ %.�w ށ%E� L< ���������,�6 T U�& ( 7`@@T@T@Th��������,�ʹ 1"3 �  �e�~ x��������,� t   � � 5� � i��������,�� � �  �> 8 4 �@��������,�<e�(#U��*�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� S RG AARLE CD,UNFOT NO;) R34(0+LRXC 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 ? DSp�#STKSIZ+BPMB,(SP) ;LEAVE ROOM FOR STACK BIC #BPMB-1,(SP) ;MACRO BLOCKS MUST BE MODULO MOV (SP),MACTOP ;SET 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 MA�� b(J�  ����������������,�b� 5�  Ulб�r l U��������*�  U�m7 7 7��������,� 8 �" 0�  B� $� �H��������,�Һ 4� $� �l�a �� k��������,�   � b b b �w� � %6��������,�,�  5�Hw7 &w�, ��������,�D) \� R�W"�  ! ! @��������(�jpjC f \ 7 V��������,�  U��U�� � f��������*�, ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������OR WSTIR FONH TCMA, NO;) R1,(4)(R MPC 0 RC IN  SEAL FITEX, ES Y;  NFCASQ BE  D?EN; 1 ,RR2 MPC: 1$ SEAL FMESUAS; 0 RR CL  RSTEISEG RLLROT SE; L ROETSL ALC N CA SLLROR EAIN;L    N:CA S T XI ENS ARYNT EVEMO;) R30(ITXM MPJ E IZ SRYNT ETEGANE; 3 RG NE  L"BOYM"SO TNTOI;P  R24,RV MO $: 2 E LSFAT XI ES,YE;   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 l�CTOP,R1 ROR R1 DNC .IF NDF DEBUG MOV #FINMS2,R1 ;". WORDS" MOVBYT .IFF MOV #MONTOP,R4 49$: 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 �n  I�U�v ����������!ֻHX׻ֻ[׻.K���������+ N軈,�K�������� �&X��������,�ֻ  C �    ��������,�  0� 5�@  C BW!&�W!��������,�"!�B  C �C J  '��������,�H  ` �  �B ~ P#��������,�n0 @0�` � PU�;�������� ��T���������� �`LI�*��������� �b8NL�-����������f6��������� 8U����������&�&֙w[M y%` ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������T UNCOY TRENY LLTA; 0 RC IN $: 1E LSFAE UMSS;A  R0 LRC S ERSTGIRET SE; L ROETS LLCA  RDWOE ONN CA;S    W:ANSC NFCASR B X ANSC LOB 2 ,RR1 MPC 0 ,RR3 DDA 1 ,RR0 DDA 0 ,RPDLURO OVM  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$ h�SUB #<5+6+5+6+10>*2,SP MOV SP,R2 MOV #LSTLNK-2,R1 CALL XMIT5 MOV #LSTFIL-4,R1 CALL XMIT6 MOV #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 �QQR RK-[z���������� �|�����������| Z��������,�C � *  �B ~ ~P��������*�̼0@ PF U�Z� �������� ���������� ��������� �hEN�$��������� �jרDS���������� �nצCR���������������r��������,� z � � ~P �������� �v�-X rU�����������Fv@Q�d@w��������,�0$ ^E T Jw@ v��`��������&�VR-6x � b� &7 $-d���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� 6$ BR  EXND IEROW;L  R10,RB SU $: 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 Rd� XITSEC .ENDC FIN: CALL FINF JMP CONT FINF: ENTOVR 1 MOV #FINTBL,R1 1$: MOV (R1)+,R2 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: .A�,�vV� H� A ѭ ��������,�2 &�  �ҋU�U�R��������,�½7�% �R�ҕ �Ў��������"�轢" &w &ל7 �y�������� �A���������� �P0&(���������$�����z&���������������������0PM(H�y��������,�B?:� fA�ʕ� R���������,�>fA� ��� ��e�ʕ}���������d� Jҋ� ~� ���������.�����E�����Ed��������,�x  w�� 5���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������R CL  ZESIE UTMPCO; 3 ,RR1 UBS 3 ,RR2 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�������������������������� � DCEN. B LS BLSA.D  RNTURE $: 2E AS BOLMBSYD TERANEGER EACL; S BASGLR CL  ENEVS ITE UR SBE;S BASY,L#1 ICB E AS BEW NET;S ASYBLSC,LOLCCV MO  CKLO BEW NAGFL; G FLSYLC IN $: 1S YE ; $ 2Q BE  E?ID-REROVB LSN ;I SKMAEDB,LSD.#E ITB: ETBSLS 1$ BR  DS /IFS ASYP;B  `�SCIZ <CR><LF> /#/ <VT> XITSEC ������������������������    ;ROUTINE TO INIT FILES    ;IN - R4 - POINTER 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 � Z^5��������,��  � RT &��������,�ľ�& R� 'D*E�EUO��������,�Qa7 (& n��� 5@�r��������(�ŭEU�E$U��������,�2J 4� \�h �^7 � v ���������X7  w F؇����������F END OF PASS 1���������,�l  "w�  X] "��������*� �  :5�7��������$� \5�@X7 7 L:��������,�Կ�� , ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2$ NEB: STBTLS SBLL ABEN. K OCBLL BOYM SALOC;L ,1STBTLSB,LS DTNEGE  ECTSXI  LSBOYM SEDATEREN GOR FSEBA;  W LK.B S:BASG LE AS BONTIEC;S   KWBL.: ASYBLS ERMBNUK OCBL;  W LK.B N:BKSY L" L:BELA "ATD PEUM;B   KWBL.: LGYFLS ASPPIM ECTSEN  RNTURE  LLROE THH RCEA;S  OLYRLS CHARSE $: 3R ROERG LA FS,YE; T ORRRE: 2$ 3$ OSBL  27 1 >OR ;7 12^D,#0)(R MPC O ER ZIFR ROER; $ 2Q BE  0)(RE,LUVA OVM " OLMBSY "TOINE OV;M )+R0,(KNYBLS OVM 0 ,ROLMBSY#V MO\� 1$: MOV 6(R0),-(SP) ;ANY DEVICE? BEQ 2$  ; NO .INIT R0  ;OK, INIT THE DEVICE .STAT R0  ;GET CHARACTERISTICS 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 F�V �*5� 2^��������,�V t�+ɥ�a (ҕ �5�Q��������,� Z Tև "҇ 2�7  (�� ����������,�F ҕ �, ҕ �)  ��������(�l� Ӈ� ��4�����������V =�% �R �G @����������V******�SYMBOL TABLE�]��������,� � 8 L  ĝ zn  p��������,�N \ 7 `5 �\E�f��������$�Y  ��>���������<; -4  ��������,�  �� x��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� $: 1R BEUM NCKLO BMPBU; N BKSYLC IN  ITR EACL, ES;Y  LGYFLS LRC O N;  1$ EQB ? ET SAGFL; G FLSYLT TS  CHARSEL BOYM SALOC;L    H:RCLS SBDLXE DF NIF. C ND.E  RNTURE  OLCRMA CHARSE H:RCMS ROACXM DF NIF. N URETR L ROSTPH RCEAS H RCEA SDECOP-;O    H:RCOS RNTURE  OLMRSY CHARSE  CHARSED ANEROPD NEFIDER SE;U    H:RCSS RSLENDHAL OLRL TTSB.� ���������������������� � R5 TSR: 2$ SEBAN IDD;A  R01,RD AD  R0P UANLE CS,YE;0 ,R007417#C BIX�LAGS RETURN ������������������������OPENO:    ;OPEN OUTPUT FILE SAVREG TST (R4)+  ;MOVE PAST COMMAND 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 R�@a �` ��������*�2lW 5�B� ҝ��������&�V@  K������������������ �v0ѝ ѝw waX���������T�  ����������&�f������������������������� �w+=�������� �3f��������*���9��- ���������|w �|ӆ-~5����������� �||����������v|w �|x��������&�”~Ԑ� &f% "j��������������,���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  NO ; $ 1E BN  Y?GUE THS HI;T P)(S+,1)(R PBCM  ROZEF IEDSHNIFI; $ 2Q BE  ETFSOFT EX NCHET;F R0+,1)(R VBMO $: 11 RNGRIBEOBCL, EXND IET;G R1+,5)(R OVM E INUTRON CA SERCTRAHA;C    N:CAHS C N URETR: 1$ ERCTRAHA CIDALNV IIFP OO;L  HRTCGE MIB C ND.E  AP MSECAR WELOR FOY TR; 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  NTRPCHT�2,R1  ;ASSUME NAME SPECIFIED TST (R2)  ;TRUE? BNE 1$  ; YES MOV #DEFNAM,R1 ;NO, USE DEFAULT NAME 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$�0 j  � ҕ+� ��������(�V� H�w �w �4�Z�������� �j PAGE �S�������������,�x���fA ��f5�@��������,� w  < �w Ҵ1h��������,� Rŀ�ɕ?��ҥ �.��������,�ҕ �ҕ �# 0w 0״���������Ä  ��������������������շ! Y��������*�$qؚ  ҕ � ��������� �q.MAIN.�(���������,�H �� rf e0�R�&�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� NCI R TEACARCHT EX NHE TET;G    R:CHET 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 LP�: RETURN ENTSEC IMPURE DEFNAM: .BLKW 2  ;DEFAULT NAME XITSEC ������������������������TSTSW:    ;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�&��������,�n@ �(� �@ �!*�� r :��������"� �e �ee �e ��W�����������������0Ҡ0Ѫ���������r0|Ӹk��������,� 4 F& *,Rw B,E X ��������,� U�dU�\U�0��������,�&  �U�2%X ���������,�"Ĕ$ e �+ -b*v/T&X!�� � 7 b$*��������,�HČb((5`�5`�5@�5@�2�� ��������,�nU � E �SSST�w�`�J B�R���������,�Ā&�  N p@  �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ,LC, C L ,LC, C L ,LC<T CTENG > C L ,LC, 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 > L� DELIMITER DEC R3  ;END? BEQ 4$  ; YES MOV -(R4),CHRPNT ;SET CHARACTER POINTER DEC CHRPNT  ;GET 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 DIRECT� N G��������,�� r � �  5@�P  ��������,�5`�B 7 < 7 < U�P0 �7  ��������,� �E�7  5 �  Hw� 7<��������,�,�� �-  5�U@�5�a��������������������,�R5@�GU� E@�A4&  8M��������,�xU �5    U�  (@ .��������,�Ś'U�W!.� W!$�U� 5��������,� �  �W!.� `U� d  R��������,���w  +-&"&':%F<T^�� 0��������,� ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������CX PX,PC, CX PP,AL, CX PX,PC, CX P ,SP<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, 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 LOCOH�IVE DEC CSIFLG MOV (SP)+,R4 BIS ERRBTS,R5 ;R5 AND ERROR BITS MUST BOTH BE ZERO BEQ 1$ 5$: SERROR 203 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 NXT�U�*� w�  ɟW��������,�6ƌŀ�  U��  pW!>���������,�\ w p  CDOB*F�� L ��������,�w�\e�e�e�FB p:� @��������,� p� 4  *! ! -- @� ^��������,�� � ` &�   �2 T��������,�Ƈ� & e� �@4� $�x��������������,� A� �@�� � t��������,�@ ~ ~ C0� �  Bp` �e�Z��������,�fw� �  87 ^U� � �@)�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������I-EM S;  002= MC.SCT HALP ASECAR WELO ; 0 10 C=.LCT ARLLDO, OT DA,PHAL;  400= LP.ACT ICERUM N; 0 02 M=NUT. CR TEACARCHG INNTRI P; 0 01 X=PCT. CE ACSP;  040= SPT. CB TA;  020= AB.TCT MAOM C; 1 00 M=COT. CL EO;  000= OL.ECT������������������������ C SEITX D REUIEQ RMAOM CENWHT SE;  W LK.B G:FLXP ET ENUMRG ASTLAF ORTTA;S   KWBL.: NTGPAR NTOU CNTMEGUAR;  W LK.B T:CNRG AE IN LCHEAR EACL; N LIMPIC SENTE N URETR S AGFLT SE;0 ,R007617#C BI  ERNTD�PAS  ;PROCESS PASS INC PASS  ;SET FOR PASS 2 NXTPAS: CALL XCTPAS  ;INIT FOR PASS CALL SECINI  ;INIT THE 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 .EN����&�ǘ  5� U� - ��������,�Ǹ  F�>� ,�U�  � 7 I���������ǔ  E���������,�������������������������������� ��������,�  .��������,� �@@@@@@@@@@@@@@@@@��������� @@@@@@@@@�������������&�  �� şu���������� a�������� �xK&��������,��A@NE�@`��� j��,��������,�(� `��� V�� 7 &Э��������&�N ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������OI PVESA;T PNRG,ANTRPCH OVM  LGPFEX LRC: 2$ 1T UNCOT ENUMRG ANTMERENC;I  NTGCAR NCI: 1$ 1A MMCOS ASYP;B   NBETG: 0$ 1 N AIAGY TRW NO; $ 1R B R ROERG LA;F  AR ROER  NKLA-BON NTOT SE, NO;  B TNSE  SSPABY, ES Y;  3$ NEB ) R5L(TBCTC,SMT.-COM.CCTB-TAT.+CSPT.+CPCT.#C TBBI  PSOO LIDVO ATOS ASYP BO,;N   HRTCGE $: 3K OS,YE ; $ 11 NEB ? NGHIYTANE USY ODYBAND DI;T PNRG,ANTRPCH MPC: 2$ ORRR EAGFL, ES;Y  AR ROER  NO ; $ 2Q BE  D?REUIEQ RNE OAS WO,;N  @�DC 1$: CALL SETSRC  ;SET SOURCE SCAN LINE: CALL GETLIN  ;GET THE NEXT INPUT LINE BNE 1$  ; BRANCH IF EOF 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 G�"�U� � $���������� �Mn��������$�n5�   E� 7 ��������,�Ȥ � C� �@ @   #1-��������,��� ` E�Q$) �H`a��������,�`B ! �� #`B � � s�`��������,� ��  #1-��`74� w a��������,�$ 7 s�ʒ$s�& f� 7  \�u��������"�J `ص z��������,�fB w R x���������,�Ƀ ~� �u5؇�7t  <�fh ��������,�Ax��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������LGPFEX STT T ISSPABY, ES Y;  0$1E BN  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 RA<�ETSRC:    ;GET THE NEXT SOURCE FILE MOV #SRCLNK,R1 TST (R1)  ;FILE OPEN? BEQ 1$  ; NO .CLOSE R1  ;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�BC& �f& �t��������,�&+*,Ї�f�6� V��������,�Ʉ �RRRRRRR�       ���������,�$R⋇� &  & & � ��������,�JH d N   Ԉ $��������,�p4 e��7 d w�U� � ��������,�$  � Z *  x �e��������,�   U@� ,  7 -S��������,�D U�Z   � (&��������������,� $7 7 & �  ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������NEGET ES;T   RGTATS  NTMEGUARC LIBOYM S 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 8�, TRY ".MAC" AND ".PAL" 2$: MOV #2$,SRCFIL-4 ;SET ERROR RETURN MOV (R2)+,SRCFIL+4 ;MOVE IN NEXT DEFAULT BNE 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��������,�.2  �  @� > ��������,�Td l� ( t  & >��������,�zw�U� �� 7 7 * � ��������,�%?�S : � ~�  � ��������,�7 & #- &   %\���������,�0   :   | ��������,�̷ N  E xE 5�F ��������,�8 7 U� � f~��������,�^ 8� < e?�f �7��������,� �$�  � rf��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������BE  S?ESOCPRO TTSBIE OR MNY;A  R4 STT: 4$ IND AD; ) SP,(R1 DDA N IOATULUMCC ANOF ICHANBR; $ 4C BC  IXAD RFTHI;S  R4 SRA: 3$ ACP EM;T  P)(S-R CL  IXAD RNTREUR COFY OP;C  R42,RV MO  45PVPD DF NIF. : 2$ NTOU CORRR EN" "MPBU, NO;  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 FVESA4�: .RAD50 /MAC/ R50PAL: .RAD50 /PAL/ .RAD50 / /  ;TERMINATOR ENTSEC IMPPAS CSISAV: .BLKW   ;SET NON-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 NU� S��������,�̅e0�w� U@� B5�  %e��������������(�̄X  � d5� Ӂ��������,�  �     B��������,�   ~ W!'� n ߱��������,�>ͻ t  *\! $ � ��������,�d    &ff ,��������,� � �7 w�U�A���������2U�����������׀ W8n͛��������,�  L� &U�x� 6�  ;��������,�ͤ� �@B ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;G BEYM,SNTRPCH OVM R TOLAMUCUACC RIMENU; 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;    IXAD R 2 R- IN;     ICERUM NTOT EX TRTVEON;C    M:NUVT�C���������������������� � RNTURE  ICETABPHAL; 0 ,R00#1 UBS: 5$ ITIG DT,DO;0 ,R00-122#B SU $: 4R LAOL;D R02,-211#B SU $: 3E ACSP;0 ,R11E-ACSP#B SU $: 2S NU0�MBER MOV #-1,PAGEXT ; CLR LINNUM ;INIT NEW CREF SEQUENCE .DELETED CLR FFCNT 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 ��    C w��n��������,� ~<  Ԧ<�>�C!W!^���������,�.8�  C D C!D!��������,�T U�U�6ՐP:_��������������,�z�� |7� x�� H 7( Ly��������,�7� f'� �7 5�\��������,�� �>�� R� ׀e�- ��������,�w ۏ7 � �� � & �}��������,�� ԦfR %��������,�8R v�Ԁ   @ .��������,���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������MIE RCFO, IDALNV;I R0E,ACSP0+0000#1 OVM: 1$ HALP;A  5$ BR  ITIG DORT DO; $ 4O BL  .AET#L0,RP CM  ARLLDO; $ 3Q BE  CEPA;S  2$ LOB R LAOL DRY TS,YE;L DOH.#C0,RP CM  USIN MITEX, NO ; $ 1Q BE  E?ACSPR OC,RIMENU, HALP;A 0)(RBLTT,CSPT.!CUM.NCTP!ALT.#C TBBI 0:R5ST T0 ,RR5 OVM: 50TRSE HRTCGE 0:R5ET�G���������������������� � RNTURE  R0+,P)(S DDA 0 RL AS  R0 SLA ) SP-(0,RV MO  R0 SLA 0 RL AS  R0 SLA 0 5 *R0Y PLTIUL;M    0:R5UL M N URETR,�.WAIT #SRCLNK INC LINNUM MOVB SRCHDR+3,R0 ;GET CODE BYTE BIT #047,R0  ;ANYTHING BAD? BEQ 32$  ; NO 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 ;�^Ϥ L� �D �>7 D��������,�PD *  l5�, %��������,�τ %�  p  v+��������,�D jD  ldU|��������,�� N7 H7 � f  $ 2 . ���������$����������B����x�z�zkQx����c���������Շ���������,�أ�%��@  @��@��������,��`�@�%@�@ ��@�t@ @�vD ��l������������,�ـ D J �� J ���� ��������,�>����Y ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� 0 ,ROLMBSY OVM: 5$ NBETS: 4$ 1$ BR  )+R1(T TS  3$ EQB $ 2S BC  R2 SRA $ 4E BL  50TRGE $: 3) R1,(R0 DDA $ 1S BC  R2 SRA: 2$ 50LRMU LLCA $: 1$ 5E BG  36,#R0 MPC $ 5E BL  50TRSE  R25,4526#V MO  1)(R-R CL  1)(R-R CL  R14,L+BOYM#S OVM N CAES ROFE AS CINE AV;S EGMBSYT,PNHRCV MO  EGVRSA  M:SYET G S ERDLAN HERCTRAHA/COLMBSY TLBT.S ������������������������ C ND.E  RNTURE  LLNUF IORRR;E  41RMTE EQB G INATLO FRDWOE ONS ESOCPR; W G1LT(�GET LAST CHAR CMP R5,#CR  ;IF > CR BHI 6$ CMP R5,#LF  ; OR < LF BLO 6$  ; MOVE ON CMP R5,#FF  ;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 �� ���� ���� ����s��������,�d v�� ��@�@ @� ��@�P @��������,�� ����0 ��e����o����ov��������,���t������������ ���� ��������,�����P������������;������������,�ٳ�������������  ��������,�"���%�����������U��������,�H��  �����%�� ����%V��������,�n��@ % @��  ~��@�rt��������,�~�@�~%@�\!����42�}���s:��S��������,�ڀ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������FL ALC S NKLA BSSPABY;  B TNGE $: 5G LTXF DF NIF. N URETR X DIRAE ORSTRE;X DIRA,C)+SP(V MO  RMTEE ATLUVA;E  40RMTE LLCA  ALOC LTHWIE ACPLRE;X DIRA,CR2 OVM X DIRAT ENRRCUK ACST;) SP-(X,DIRACV MO  R2.,#2 DDA: 4$ R2.,#6 DDA: 3$ R2.,#2 DDA: 2$ TELUSOABE BSTMU; T TSBSAP JM  UEAL VNTMELEMPCO; ) R4(M CO  TELUSOABS ESOCPR; 0 M4ERTL ALC: 1$ 0D OR.W  DCEN. F ^; 5$ F,T.LE BLHTGC  TGFLXF NDF .I  ^B ;$ 4B T.LE BLHTGC  ^O ;$ 3, .OETLL $� ADD #240,R5  ;YES, END UP WITH "200 + LC" .ENDC 4$: SUB #40,R5  ;CONVERT LOWER TO UPPER CASE BR 5$  ;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 B�s: :����@���@�A���K��������������,�@�K &@�K8@�K09@�KK@�K��������,�K@�K��@�K@�K��@�Kf�@��������,�,۳K�K �zQD�� @R��@@R@8���������,�R@ S�@�S%@�S��@�S @�pT���������,�xۀpT@8 T��@�pT�@�T%@�OX��������,���� OX �OX�OX%Y������������,�[q`"��r��@ r @r��� r ��������,��s����s���s����w�� w b��������,�܀;w����w����w����w�� w��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������TBCHG D ^; 2$ D,T.LE BLHTGC  ^C ;$ 1, .CETLL TBCHG E BLTAW ROARP ;U    L:TBAR U 8 M2ERTR B E INUTROL AL;C  0)(R LLCA  ORRR ED,LIVAIN ; 1 M4ERTQ BE  ERCTRAHA CXTNEN OANSC; L TBARUN CAHSC W ROARP USSPABY;  R CHETG " "^;    0:M5ER�T���������������������� � ITEXD ANS ASYP BS,YE; 7 M2ERTR B R ROER, NO ; 41RMTE NEB ? >";" AB.RCH,#R5 MPC N IOSSREXP ELLNUN-NOS ESOCPR;  P EXLBG S ASYP B","<;   NBETG: 47RMTE RNTURE  ITG LA;F 3)(RG, �IT #ED.CDR,EDMASK ;CARD READER TYPE? BNE 38$  ; NO CLRB LINBUF+72. ;YES, FORCE EOL .ENDC 38$: MOV #LINBUF,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 ;REA���������,�6܀%�w@8�w�K� w����w����B��������,�\y���~Ly����y�y�y@Q��������,��yh@�y@�y &@�y&@�y`'9��������������,�@�y��@�y@�y��@�yfyp��������,�܀�y�} z��@� z�@� z%@�o��������,�Yz �z�� �d�� ��� ���������,� ��@ %�@�}��j��@�x;1k��������,�@�;B�;�� \E��\XH�_;��������,�ft��Ti}���2%����д��]��������,�ݦ֯��֯���֯x��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������FLEG#R ISB T TSBSA N IOSSREXP EERSTGIRE; 0 M4ERTL ALC: 46RMTE ARCHT AS LSSPABY; 7 M2ERT 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 �D IT .WAIT #SMLLNK  ; AND WAIT MOVB LINBUF-3,ENDFLG ;MARK IF EOF BNE GETL09  ;BRANCH IF EOF CMP (R1)+,(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 ��֯�֯h��������,��ׯ�}��Rگr��Ķޯp!����j��������,�P�h$^��дl!��n���Rn�F��������,�n!�Fn%�rn+�Fn,�Fn.���������,�$Fn�K�FnK�Fn N�Fn&X�FnHX<��������,�J�Fn[�Fn�}�ln}�xn�Fq��������������,�pހ%��z�d�<zxd�:鰼R�y��8e��������,� � � ,�l |��1q����������,�J34��V<L;��6DŞ��t\��� x]��������,���^,��:��ѱ��&ѱ�ձ��������,�߀%������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������TSBSAP JM  UEAL VTEGANE; ) R4(G NE  USPLY 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 �POINTER MOV MSBARG,R1 TST (R1)+ MOV R2,R3  ; AND WRITE POINTER NEG R0  ;ASSUME MACRO CMP MSBTYP,#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��дձ@Q��ڶձ g�,,��)~�����������.̵ q�@q�`���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� UETRT XI;E  28RMTE BR  SSCERO PND AGO, 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���������������������������������������� � RNTURE 9:M2ER TD UNFOS AAGFL; 0 RZ TNSE  NKLA-BON NTOG INNTOI PRNTURE;  B TNSE 8:M2ER TR LAOL DORT DOS ASYP;B   HRTCGE 7:M2ER TD NEFIDEUNS AAGFL, NO ; U ORRRE: 26RMTE DCEN. D UNFOF ICHANBR; 7 M2ERTE BN  OLMBSYL CALO, NO;  H RCLS  SBDLXE � 19$: MOV R1,MSBMRP ;END OF LINE, SAVE POINTER BIS #LC.ME,LCFLAG ;FLAG AS MACRO EXPANSION BR GETL09 20$: 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 J����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������DF NIF. S YE ; 7 M2ERTQ BE  L?MACIDE;T DOH.#C5,RP CM $: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�MP GETL01 .ENDC ENTSEC IMPPAS LPPCNT: .BLKW 1  ;FORCE NEW PAGE WHEN NEGATIVE LINNUM: .BLKW 2  ;CREF 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 ER����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;  TR ROER  W?LORFVE ONY AR,BEUM;N  2$2L BP  INGA AEDSSMI, PENO ; 0 M3ERTQ BE  RTVEON;C   UMTNCV $:21 IXAD RNTREUR CR,BEUM NMESUAS;2 ,RIXADCR OVM : 20RMTE�������������������������������������� � 28RMTE BR  ROZES IDEMOE UR SBE; ) R3(R CL $:17 UR ROER  EDINEFND UAST ERNS IE,BLTAN IOT;N   RTSEIN  RSTEINPOH RCEA SET;S   CHSRS S YE; $ 17 MIB ? DECOP ;O  3)(R STT ? DECOP- OANS APRHPE, EDINEF DERUST NO;  H RCOS $:16 28RMTE BR  AGFLT SE, NO;) �ROR Q 1$: CLR -(SP)  ;INIT LISTING FLAG .IF NDF XEDCDR MOVB CDRSAV,LINBUF+72. ;REPLACE BORROWED CHAR .ENDC 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$  ; N����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������R3,(LGLFRE#S BI  ES Y;  28RMTE EQB ? ONTIEC STELUSOAB; ) R3( STT S AGFLR EACL; ) R3(B LRC 4 ITXM LLCA  R2L,BOYM#S OVM A RE ANGKIOR WTOE OV MT,DO;1 ,RAMCNCL#V MO $:14 28RMTE BR  AGFLL BALO GALRNTEINR EACL;) R3,(LGBFGL#C BI $:12 ORRR EEDINEFND UO,;N  UR ROER  ES Y;  28RMTE NEB ? ALOBGL, NO;) R3,(LGBFGL#T BI  ES Y;  2$1E BN  D?NEFIDE;) R3,(LGFFDE#T BI $:11 ES Y;  MR ROER  NO ; $ 11 EQB ? EDINEF DLYIPLTMU;) R3,(LGFFMD#T BI  NDOU FO MOV CHRPNT,LCENDL ;YES, ASSUME WE'RE SITTING AT COMMENT 2$: BIT #LC.SRC,LCMASK ;LINE SUPPRESSION? BEQ 3$  ; 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$: BI����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������OT NIFH NCRA;B  6$1Q BE  LEAB TOLMBSYE THH RCEA;S   CHSRS L IAECSPT EATR, ES Y;  4$1Q BE  R?TEUNCON IOATOC;L OT0DR5L,BOYMSP CM  EFFRCR  DXLNROL,ROYM#S OVM L BOYM S AOT NIFH NCRA;B  20RMTE EQB L BOYM S AOR FRY;T   YMTSGE 0:M1ER T T SE0 RND ANKLA-BON NTHWIT XI;E  NBETSP JM  ONSIESPREXS ARKMA; G FLXPEC IN $: 1E BLTACALORE, NO ; L LVELRC IN  1$ EQB ? UETR;) R3,(LGLFRE#T BI  TELUSOABE UMSS;A  VLLLRE LRC S OUNERAXT EARLE;C 3)(RG,FLDF!MLGLFLBG!FLEFSB LLTBL+2,(SP) ;LISTING DEVICE? BNE 8$  ; YES, USE IT INC (SP)  ;NO, TO KB 8$: BIT #LC.TTM,LCMASK ;TELETYPE 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#D ICB S ESOCPR; 0 M1ERTL ALC E LUVAD AN ; ) R4(R CL  DEMOR EACL; ) R3(R CL  PRVXSA  ORATLUVA ERMTE;   : RMTE ORATLUVA ERMTE TLBT.S ���������������������������������� � 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  ONSIESPR� +2,(SP) ;SET LISTING DEVICE CODE 9$: CALL PCROLL  ;PROCESS ENTRY ON CODE ROLL ������������������������ENDL10: TST (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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������EXL UL-NON;N    P:EXLB G E LUVAO TET SR0;   R ROERS SEAU CLDIE FLLNU;   R XP ETOT INPOY TRENL IAECSP;   � ���������������������� ������������������������� C ND.E  1$ BR  R3 SLA: 2$ R0 DCA 1 ,RR3 DDA $ 2C BC  P)(S ORR S YE ; T XIIVDQ BE  H?UGROTH; ) SP(T TS $: 11 RR CL  TSULES RARLE;C  R0 LRC Y GUT RSFIE THT GE;) SP-(0,RV MO  NETIOU RLYIPLTMUL RANEGE;   : UL M N URETR K ACSTE UNPR; + P)(S STT: ITVXDI R0O TLTSURE;0 ,R)+SP(V MO  MOV #OCTPF0,R2 ;YES, POINT TO IT CALL SETWRD  ;UNPACK INTO BUFFER 14$: CLR (R1)  ;CLEAR PF0 MOV #PF1,R1 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 ; ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  R1N IERNDAIEM RCELA;P  R10,RV MO  1$ NEB D ENR FOT ES;T  P)(S2C DE $: 2T ULES RMPBU; ) SP(C IN  ES;Y  R03,RB SU  NO ; $ 2T BL  N?IOATEROPR FOH UGNO EIG;B  R30,RP CM  ERSTGIREE BLOU D;  R0 OLR S ERSTGIREK OR WFTHI;S  R1 SLA T ULES RFTHI;S  P)(S SLA: 1$ UTNP IR0E ORGN;I  R0 LRC T ULES;R  P)(S-R CL  NTOU COPLO;) SP-(.,16#V MO  NETIOU RDEVIDIL RANEGE;   : IV D0 ,RR3L MU;   ) EDORGN IR0 ( R03, RIV;D     45PVPD DF NIF.� ���� 08.03.72 YESYES: ; 08.03.72 MOV (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 ; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� � RNTURE  LTSURET SE; ) R4,(R0 OVM: 1$ ITE ATEG NO,;N  R0 EGN S IASK O;  1$ PLB T ULES RSTTE; + P)(S STT: VXPDEX R03,RV DI  TERAPE;O  R0 LRC: 2$ P)(S OMC 1 RG NE  !!N!AIAG; $ 2L BP  NTIEOTQUT SE; 1 ,R2)(R OVM: 1$ USTHT IKEMA; 3 RG NE  USPLF ICHANBR; $ 1L BP  PYCOA E AV;S P)(S,-R3 OVM R SOVIDIT SE; 3 ,R4)(R OVM / ;    V:DIXP E E IDIV DGHOUHR TITEX; X DVXPER B T XI EOR FET;S  R01,RV MO  LYIPLTMU; 0  08.03.72 NONO: ; 08.03.72 CMP 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 CONCATE����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������,RR3 ULM: 2$ GNSIT ULES RLEGGTO;  P)(S OMC + T IKEMA, VETIGANE; 3 RG NE  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,()+NATION ENDL19: MOV LCBEGL,R1 ;POINT TO START OF LISTING LINE MOVBYT   ;MOVE OVER MOV (SP),R0  ;SET FLAGS MOV #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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������R1(V MO  )+R3,()+R1(V MO $: 4 N URETR: 3$ 4)(RG,FLEL!R007417#C BI  3$ NEB L 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)+,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 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? B���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� M HE TDD;A 4)(R),R2( DDA S ELEV LEL RTOT INPO;+ 4)(R+,2)(R MPC S UEAL VDD A+,; 4)(R),R2(D AD 2:OP B L LVEL RND A;  VLLLRE EGN E LUVAE ATEG N-,;  4)(R EGN S ALOBGLO NRESUE AK;M   STLTRE 1:OP B 0 RDWO. " "!; 11OPB, OR.ICH BLHTGC  &" ";0 P1BO D,ANH.CL TBCHG " "/; IVPDEX V,DIH.CL TBCHG " "*; ULPMEX L,MUH.CL TBCHG " "-; P1BO B,SUH.CL TBCHG  +" ";2 OPB, DD.ACH BLHTGC  LEAB TOPY ARIN;B    L:TBOP�B���������������������� � OPLO; $ 1R !EQ 28$  ; NO CALL PCROLL 28$: .IFT BISB @LCBEGL,R0 .IFTF BEQ ENDL30  ;EXIT IF EMPTY 29$: BIT #LC.BEX!LC.BIN,LCMASK ;BINARY 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������B M ER TUSIOEVPRE UNPR; P ,S0.#1 DDA E INUTROUB SLLCA; + P)(S@L ALC: 2$ 1S ERSTGIREE 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% .ENDC ������������������������ENDL50: MOV #OCTBUF,R2 ;POINT TO START OF BUFFER CALL TSTERR  ;SET ERROR FLAGS MOV #LINNUM,R0 MOV (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$:����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������-( OVM ) DSOR WWO(TL BOYM S; P)(S,-3)(R-V MO  DEMO ;) SP-(),R3-( OVM E LUVAS OUVIRE PTOS NTOI PR2; 2 ,RSP OVM E LUVA ; P)(S,-3)(R-V MO  ELEV LEL RCKTA;S P)(S,-3)(R-V MO  RMTES OUVIRE PCKTA STOT SE;3 ,R0.+1OLMBSY#V MO $:10 RNTURE $: 5E RU TET;S  R0 NZETS T BIR TEISEG RGEER;M 3)(R+,P)(S ISB: 4$ ONRICALORER PEROMP;I  AR ROER $: 3 $ 4R B R ROER, EG RND AEL;R  RR ROER  ET SOT NIFH NCRA;B  4$ EQB G LA FERSTGIRET ES TE,BLTACALORE; ) SP(T TS  0IF) 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) 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"? B����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������H NCRA;B  4$ CCB 1 R O 0OT NIFH NCRA;B  3$ NEB L VELEN TOCALORET ES;T  VLLLRE 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;  -EQ 4$  ; YES INC ERRCNT  ;BUMP ERROR COUNT 4$: MOV #ERRMNE-1,R1 1$: TSTB (R1)+  ;MOVE CHAR PNTR AND CLEAR CARRY ROR ERRBTS  ;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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  R:XP E R TOUAALEVN IOSSREXPEL TTSB.� ���������������������� � ECTSXI  /2ENDLRL KWBL.: UFDBRL 3W LK.B R:HDLD R 1 KWBL.: NDNELI /2ENNLLI KWBL.: UFNBLI F>BUCT-O<.N-LECTOB LK.B 1:PFCT O7 KBBL.: F0TPOC 2B LK.B Q:SECT O0 KBBL.: RPTEOC F:BUCT O 4 KWBL.: ILJFOB 2W LK.B  /2ENJLOB KWBL.: UFJBOB 3W LK.B R:HDBJ O 4 KWBL.: NKJLOB 1W LK.B  4W LK.B L:FIST L2 KWBL. 1 2+>/ENNLLIN+LECT<O KWBL.: UFTBLS 3W LK.B R:HDST L 4 KWBL.: NKTLLS 1W LK.B1ERRCNT: .BLKW   ;ERROR COUNTER ENTSEC IMPLIN ERRBTS: .BLKW   ;ERROR FLAGS XITSEC .IF NDF XEDCDR GENEDT CDR,,1 ENTSEC IMPURE 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  REPUIM ECTSEN  ILJFOB K,LNBJO, UFDBCM RDWO.: SIJCOB ILTFLS K,LNSTL, UFDBCM RDWO.: SITCLS REPUDC SENTE 4 KWBL.: ILCFSR 2W LK.B  +2/2ENCLSR KWBL.: UFCBSR 3W LK.B R:HDRC S 4 KWBL.: NKCLSR 1W LK.B  REPUIM ECTSEN  ILCFSR K,LNRCS, UFDBCM RDWO.: SICCSR REPUDC SENTE S ERFFBUO I/ TLBT.S �������������������������� N URETR T IFFTU;S )+R2,(R0 VBMO  R00,#4 DDA: 3$ 20 ,R400-10#D AD $:22 R00,101-#1 DDA: 1$ 2R LAOL DORT DO;0 ,R112-#2 DD5 .IF NDF XMACRO MSRCH BEQ 2$ CRFREF JMP MACROC  ;MACRO CALL .ENDC 2$: OSRCH BEQ 30$ CRFREF 10$: JMP PROPC  ;PROCESS 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? BE����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������A R LAOL;D  1$2Q BE  HALP;A  2$2T BL  LEDDMIT ES;T  33,#R0 MPC S YE ; $ 23 EQB ? CEPA;S  R0 STT: 1$ 10 ,RR3 IVD 0 RR CL $:10 RNTURE  ERSTGIREE ORSTRE, ES;Y R4+,P)(S OVM O N;  1$ NEB ? GHOUHR;T +4OLMBSY,#R4 MPC Y GUT AS LSHNIFI; $ 11 LLCA  R01,RV MO  XTNER FON AIAG; $ 10 LLCA  R30,#5 OVM T IFFTU SND ADEVIDI; $ 10 LLCA  ORISIV DET;S R30,*550#V MO  RDWOT EX NET;G R1+,4)(R OVM: 1$ GERATO SOLMBSYO TNTOI;P R4L,BOYM#S OVM G 9Q 21$  ; YES ERROR A  ;NO, ERROR 21$: LSRCH   ;YES, DO A LOCAL SYMBOL SEARCH BR LABELF  ;EXIT THROUGH LABEL PROCESSOR .ENDC 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? ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������REE AV;S P)(S,-R4 OVM E INUTROK ACNP U50D RA;   : NP0UR5 RNTURE  RETO;S )+R2,(R1 VBMO  IISC ATOT ERNVCO;1 ,R.0IG#D DDA R BEUM NVEIETRRE;1 ,R)+SP(V MO $: 1E RSCURE; F NCDL ALC O ER ZSSLEUN ; $ 1Q BE  DEVIDIT EX NOR FET;S  R10,RV MO  ERNDAIEM RVESA;) SP-(1,RV MO  R1E IDIV;D  R03,RV DI  R0 LRC L MACIDEN HA TERTH OOR FRYNT;E    F:NC DR SOVIDIT SE; 3 ,R0.#1 OVM N IORSVEON CERMBNUL MACIDE;   : NC�D���������������������� � VRTOXI  ECTSXI  = BNE 10$  ; YES, PROCESS IT BIS #LC.CND,LCFLAG ;MARK AS UNSAT CONDITIONAL 41$: CLR R5 42$: RETURN   ;IGNORE LINE ������������������������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$  ;BR���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ENEV. R FEUF BLEIT-TUB;S +1ENLLST KBBL.: UFLBST ASPPIM ECTSEN  ND ELEIT;T   KWBL.: NDLETT NGNIINEG BLEIT;T   KWBL.: EGLBTT ENEV. . TC E#,E AG PE,AT;D  4.4B LK.B 2:BUTL TE AGORSTE TLTI;N LETL+T1B LK.B F:BUTL TE URMPIC SENTE H GTEN LLEIT-TUB;S   4.6= ENLLST THNGLEE TLTI;  . 32 N=LETL T E TLTIT ULFADE;/ N.AI.M/Z CIAS.: D1THSE YTTBTX ECTSEN  RNTURE  NDLETT2,RV MO  DCEN. 2 ,R5.#D AD  METID AN ; 2 ,R#1 DTVT.C  )+R2,(CEPA#S VBMO  TEDAD REAANCH IF DIRECTIVE 3$: CLR R0  ;FALSE 4$: RETURN ASGMTP: BR ASGMT ������������������������LABEL:    ;LABEL PROCESSOR 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������TO SSTPAE OV;M  R2.,#9 DDA E AT DHE TRTVEON;C  R20,#T TDCV. 4 SVDO DF NIF. # N IORSVER FOO TTDI;  T BYOVM 1 ,R+2LOEL#H OVM + 2)(RB,TA#B OVM A RE ANTTANSCOO TNTOI;P R22,BUTL#T OVM R FEUF BND ALEIT TET;S  LEITTL ALC R CHETS E IN LALRET ANGKIOO LREE' WNDTERE;P NTRPCH1,HDET#S OVM 1 VRTOEN  ERFFBUR DEEA HHE TITIN;   : DRTHSE ECTSXI  AMGRRO POFT ARSTT AREHEE OM;C  DRTHSE LLCA  RGTPXC ECTSEN ���������������������������� � ECTSXI  +3BLLTLB NCI ERELOCATION FLAG BIS #DEFFLG!LBLFLG,R0 ;FLAG AS LABEL BIS R0,MODE  ;SET MODE MOV CLCLOC,VALUE ; AND CURRENT LOCATION BR 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 LOCA����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������B KTOT NI;I  +1BLLTLB NCI G PRCTXC SENTE S AGFLT AI;W  1W LK.B T:AILW LG INPPMAE ICEV 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 CERITION FIELD BR 5$ 4$: ERROR Q 5$: GETNB   ;BYPASS COLON MOV CHRPNT,LBLEND ;MARK AND OF LABEL JMP STMNT  ;TRY FOR MORE ����������������������������������������� .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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������CTRAHA CTEPUOM;C  R23,RB SU $: 5F LET;S )+R2,(LF#B OVM R CFFTU;S )+R2,(CR#B OVM F /LCRO 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;M,R1 ;REINSTATE INDEX FOR NEWCOMERS BIT #ERR.U,ERRBTS ;ANY UNDEFINED'S? BNE 3$  ; YES, DON'T DEFINE CMP SYMBOL,R50DOT ;MESSING WITH THE PC? 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 SECT���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� $ 4Q BE  R0T SED ANP UCKBA, ALCIPE;S R0),R2-( VBMO  ALCIPE SNGHIOT NIFP OO;L  3$ GTB R FEUF BUTTPOUO TERCTRAHA CVEMO;+ 2)(R+,1)(R VBMO $: 3Y OP C AVESA; 3 ,RR2 OVM R PEOPSTT SE; )+R2(R CL  EXND IONTINATIES DET;S R22,F-BUST#L OVM G INDOG INTHNOF IITEX; $ 9Q BE  UTTPOUL CASIHY PTOT ERNVCO; R4),R0L(TBLL VBMO $: 2R HDST,LNKTLLS OFITWA  2$ CCB P LOR FTOIT;D  ITWALL SRA S ERSTGIREK ACST;  G REAVS E IN L AUTTPOU;   : INTLPU������������������������QOR? BNE 2$  ; NO, ERROR MOV (R1)+,CLCLOC ;YES, SET NEW LOCATION BR 3$ 2$: ERROR M 3$: CRFDEF RETURN ���������������������������������������������� .SBTTL 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, CURREN���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� T OUB OM;B  022R ROERS L IARTPAE OSCL, ES;Y  NFFI LLCA  OK, NO ; X KBUTPQ BE  M?EO;+ 5)(R,@00*4OM.ESB#T BI  UTTPOUN OITWA; + 5)(R ITWA.: OFITWA R5 TSR: BXTKPU R1+,P)(S OVM E IN LHE TUTTPOU;  N LIUTP G ARH TCFE;1 ,R)+R5(V MO  EG RVESA;) SP-(1,RV MO F:KBUT PP L &KBO TUTTPOU;  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 UTLY 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 BYTMOD  ;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 ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� NELIT PUUT OOW;N  INTLPU BR  R0+,P)(S OVM 1 ,R)+SP(V MO $: 1T UNCOE IN LEW NET;S NTPCLPP,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 MOYMOVB 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 TABLE 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  METIT NOF IIPSK; $ 1E BG  NTOU CNTMEREEC DS,YE; NTPCLP ECD O N;  1$ EQB ? CEVIDEG INSTLIL CASIHY;P  +2BLLTLB STT ) SP-(1,RV MO  GSLA FNGTIIS LVESA;) SP-(0,RV MO  EGVRSA  NELIT PUUT OND AERADHER FOT ES;T    R:HDST T T PUUT ONGTIISLL TTSB.� ���������������������� � ECTSXI  KWBL.: YPKTBL KWBL.: NTDPRL KWBL.: NTJPOB REPUIM ECTSEN  RNTURE X:INBJ OT PNLD,R+2UFDBRL#V MO  NTJPOBF,BUBJ#O OVM: NIJIOB $: 9R HDLD,RNKJLOB OFITWA  DRDHRL,#NKJLOB#]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 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������E ITWR. ) R0-(1,#V MO  0)(RF,BULD#R UBS ) R0-(T,PNLDRV MO  0)(RP,TYLKBV MO  R0F,BULD#R 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 aTERMINATOR ������������������������ .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 ; 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) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������)+R0,(#1 OVM 0 ,R+2DRJHOB#V MO  ERFFBUT ECBJ OHE TMPDU;   : MPJDOB������������������������ 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 e 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 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 <S���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� * ;2 .7038. 0 LD ROFE IZ S 7 0-S IT B * ;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 * ;iUBR2>, .BYTE SUBR2-OPJBAS .IIF B <SUBR2>, .BYTE 0 .BYTE SC2+0 .ENDM ENTSEC DPURE OPJTBL:    ;OP CODE JUMP TABLE GENOPJ 00 GENOPJ 01, AEXP GENOPJ 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 1����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2 .7038. 0 * ;2 .7158. 0ALICYSPHD 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; m2, DRGEXP, 6, AEXP, 0 GENOPJ 13, SPLOP GENOPJ 14, AEXP, 0, DRGEXP, 6 .ENDC ENTSEC IMPLIN OPCLAS: .BLKW   ;OP CODE CLASS XITSEC ������������������������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 R����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  : BLRTPC REPUDC SENTE N URETR 2 ,RNTDPRL OVM P DMBJOL ALC R TEINPOD RLT SE;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  ERNTOIqELEXP 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$ 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$: ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� PVESA;T PNLD,RR2 OVM: 2$ 2T IVEMO, ES;Y )+R2,(UEALVV MO  NO ; $ 22 CCB ? UEAL VNY;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 ; uZAP CODROL  ;CLEAR CODE ROLL STCODE   ;STORE ADDRESS MOV #100000,MODE ;SET FOR ABSOLUTE BYTE SWAB (SP) MOV (SP)+,VALUE ;SET ORIGIONAL VALUE STCODE 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 B����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������$ 15 EQB ? UTTPOUS AB;K ASDM,EBS.AED#T BI  BSDAXE DF NIF. O N;  6$1E BN  M?TE 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$1 HIB ? OMRO;1 N-LEBJ+OUFJBOB,#R0 MPC D ENW NEE UTMPCO; 0 ,RR5 DDA R TEINPOE OD CET;G R0T,PNBJOV MO $:14 ERFFBUP UM;D  MPRDPC LLCA $:13 PCW NET SE;+ 2)(RC,LOLCCV MO $:12 )+R2,(10DTRL#V MO $:11 ERFFBUT ENRRCUP UM DyACKWARDS BR MASKB6  ;MASK TO SIX BITS SPLOP:    ;SPL TYPE ABSEXP MOV #177770,R3 ;ONLY THREE BITS ALLOWED BR MASKR3 MARKOP:    ;MARK OPERATOR 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������S,YE; P DMCRPL ALC S YE ; $ 11 OSBL  R?FEUF BLD RNTREUR CINM OO;R -4ENDLRLF+BULD#R2,RP CM  NO ; $ 14 EQB ? USN OVEMOC PID;D OCJLOBC,LOLCCP CM $:10������������������������ $ 12 BR  ECJSOBC,SELCCB OVM + 2)(R2,M+NALCCV MO  MENAR TOEC SEW NND A; )+R2,(AMCNCL OVM 7 E YP TLD RET;S )+R2,(07DTRL#V MO $: 4S ERFFBUT ENRRCUP UM DS,YE; P DMCRPL ALC S YE ; $ 4S LOB ? LD RNTREUR CINM OO;R 10N-LELD+RUFDBRL,#R2 MPC O N;  0$1Q BE  E?NGHA CORCTSE;C SEBJ,OEC} 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, SECOND 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������CSCL PBCM  ERFFBUD RLO TERNTOI PET;S R2T,PNLDRV MO  RYNT ELEAB TEROPPRT GE;4 ,R4)(RBLRTPC OVM S IT BERRD OGHHIR EACL, ES;Y R40,4077#1 ICB C ND.E  ES Y;  L2ROPC NEB ? EDBLSADIH NCPU;K ASDM,ENC.PED#T BI  NCDPXE DF NIF. O N;  L2ROPC EQB ? OR FEDLLCAE OD CCTJEOBY AN; P TYLKBT TS $: 3E YT BASG LA;F  +1F1PB EGN T NOF ICHANBR ; $ 3C BC  E?YT;B  R4 SLA E OND ELFIT INPRT SE;  1 PFETS: 2$ ROZEN UMOL CSTLI;  0 PFETS S YE ; $ 2I BM  E?IN LONSI9$  ;BRANCH IF OK .ENDC 8$: GLBEXP   ;EVALUATE EXPRESSION 9$: BIS #27,(SP) ;SET BITS BR AEXP32  ;USE COMMON EXIT 10$: CMP R5,#CH.SUB ;PERHAPS 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-INCRE����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ENXT;E  NTRCPC NCI C PTEDAUPT US JS,YE ; 2 OLCRPQ BE  E?ONS AS;P  SSPA STT: 1$ 1TOP UM BD,OR W;  R5 NCI  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 FLELR RDWOMENT (+)? BNE 14$  ; NO GETNB   ;YES, POLISH IT OFF BIS #20,(SP) ;SET BITS BR AEXP36 14$: BIT #10,(SP) ;INDIRECT SEEN? BNE 16$  ; YES 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������. / R /I CIAS. G FLEGRD OR.W  //% IISC.A  LGLFLB RDWO. / =/I CIAS. : 2TDPEN REPUDC SENTE N URETR + 2)(R0,RB OVM: 2$ 30 RB WAS $ 32 NEB E OD,M)+R3(T BI  R0+,3)(R OVM: 1$ 3$ 31 LLCA C:P2ND E N URETR: 2DDPEN ERFFBUF ORTTA STOT SERE;2 ,RUFNBLI#V MO  DRTHTS LLCA  R1F,BUIN#L OVM 0 ,R#2 OVM ) R2(B LRC: 2BDPEN 1$2R B R BEUM NRYNT EHE TND A;  YTTBSE LLCA  R12,R-TOEC#S OVM + 2)(RB,TA#B OVM , UEAL VHE T;  RDTWSE LLCA  R1E,LUVA#V MOXEDPIC&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$ 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$����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  )+R2,(AB#T VBMO  E,AM NHE TNTRI;P   NP0UR5  LLROF OND EIFT XI E;  2DDPEN EQB Y TRENT EX NHE TET;G  OLCRSE XTNE  NELIT PUUT;O  2BDPEN LLCA $:21 ANSCR TOEC SOR FET;S  PDLURO LRC: 2ADPEN���������������������������� � NELIT EX;N  2$ BR  NELIT PUUT;O  2BDPEN LLCA  726//208 . LLFUS INELIF IREHE; $:50 726//208 T.YEL UL FOT NNELI; 3$ O BL 726//208 E)IN LM/SY3 (TM TOR FREHE; |: MOV (R1)+,-(SP) ;STACK CURRENT VALUE MOV (R1)+,-(SP) MOV (R1)+,-(SP) MOV (R1)+,-(SP) CALL AEXPLP  ;PROCESS INDEX MOV (SP)+,-(R1) ;RESTORE 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$  ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� .>252*+<UFNBLI,#R2 P CM $:51 726//208 LLFUS INELI; $ 50 BR 726//208 T.YEL UL FOT NNELI; 3$ O BL 726//207 E)IN/LYM S(5P LOR FREHE; .>254*+<UFNBLI,#R2 P CM 726//208 H NCRA BTM TIF; $ 51 E BN 726//208 P? LORM TT; SKMALCM,TTC.#L T BI ORATAREP;S )+R2,(AB#T VBMO $:10 YTTBSE LLCA  1)(R,-1)x; YES ERROR Q  ;NO RETURN 1$: GETNB RETURN .IF NDF XEDAMA GENEDT AMA,,1  ;ABSOLUTE MODE ADDRESSING .ENDC ������������������������ .SBTTL 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(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 ; $ 4Q BE  D?NEFIDE;) R1,(LGFFDE#T BI  TSBIE OD MTOT INPO;1 ,RDEMO#V MO  2CDPEN LLCA  R3T,P2ND#E OVM L BOYM SHE TCKPAUN;  P UN50R E OR MNO ; A P2NDE 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 MOV #SETR17,R1 ;POINT TO PACKED PHYSICAL CODE '17' 08.15.72 BR SETDSX ;GO PROCESS IT ; 08/26/72 SET000: ; 08/26/72 MOV #IMMMOD,R1 ;SET TABLE INDEX TST ENDFLG  ;SPECIAL FOR .END? BNE SETDS1  ; YES BITB #GLBFLG,(R3) ;EXTERNAL? BNE SETDS3  ; YES, USE COMMON HANDLER CMPB (R1)+,(R1)+ ;MOVE INDEX BITB ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������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 ALC 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; MPDDRL LLCA  ND EET;S YPKTBL6,T0LK#B OVM T IMPDU, ES;Y  MPJDOB LLCA  NO ; $ 1Q BE  T?PUUT OCTJEOBY AN; P TYLKBT TS  LEIT-TUB SE"BLTAL BOp#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 BITB #GLBFLG,(R3) ;EXTERNAL? BNE SETDS3  ; YES, TEST FOR ADDITIVE CMPB (R1)+,(R1)+ CMPB (R2),CLCSEC ;CURRENT SECTOR? BEQ SETDS2  ; YES TSTB (R1)����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������YM"ST SE;  T BYOVM 2 ,RUFLBST#V MO  R1T,TXYM#S OVM C ND.E  $: 8R FEUF BSELO CND AMPDU, ES;Y  MPFDCR LLCA  NO ; $ 8Q BE  S?ESGRRO PINF RE CNY;A R2T,PNRFCV MO  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 l+ 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 ROLL MOV (R0)+,SYMBOL ;XFER SECTOR NAME TO SYMBOL MOV (R0)+,SYMBOL+2 BR SETDSX ������������������������SETDS2: MOVB ROLSIZ+CODROL+1,R0 ;GET CODE ROLL ENTRY NU���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� 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 EXTNEE 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 hMBER 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 (R2),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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������C+VEND,EG>FLEL<R^C#C BI A:P1ND�E���������������������� � ITT PUUT;O  2$1 BR  4PETYT SE;E OD,M04DTGS#S BI  STMOR EACL;E OD,MG>FLLB!GLGLFREG!FLEF<D^C#C BI  NO ; $ 13 NEB ? ORCTSER PERO PS,YE;5 ,RORCTSE PBCM  NO ; $ 13 EQB ? ALOBGL;E OD,MLGBFGL#T BI  UY GISTHH IT WEDSHNIFI ; $ 10 EQB L BOYM SXTNEE THH TCFE; L ROYMST EXN: 3$ 1K OCBLS HI TUTTPOU; P DMSDGL ALC 1 ,ROLMBSY#V MO $:12 ANSCR NEINR FOT SE; PDLURO LRC: 1$ 1X MAT SE, EL R; 1)(R,-1)(R OVMd 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 A  ;FLAG ERROR CLRB (R2) 3$: CLRB (R4) BISB #200,(R2) ;FLAG AS BYTE 4$: RETURN ENTSEC TXTBYT IMMMOD: .BYTE RLDT02, RLDT05, RLDT00, RLDT01, R���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ! 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 ; 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 AL`LDT15, 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 REF,DEF ; 08/26/72 GLOBL:    ;GLOBAL HANDLER REF: ; ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������C 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 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;  BJOO ENOP $: 8C ND.E  N/BI/0 D5RA. E UTOLBS AOR FET SO,;N R5+,C)(P OVM S YE ; $ 8E BN  S?ESGUD OO;G SKMAEDS,ABD.#E ITB S ABEDXF NDF .I  J/OB/0 D5RA. E BLTACALORE\ 08/26/72 DEF: ; 08/26/72 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 I����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������E UMSS;A R5+,C)(P OVM O N;  1BDPEN EQB ? CTJEOBY AN, NE OSSPA; K LNBJOT TS  NO ; $ 1Q BE  D?UNFO;S BTRR,E.ERR#E ITB F EOO TVEMO; N LIETGL ALC: 1$ 2SSPAF ICHANBR; 2 DPEN MPJ $ 1Q BE  E?ONS AS;P  SSPA STT X MAETSL ALC 4 VRTOEN  ERDLAN HSSPAF OND;E    P:ND E S ERDLAN HDECOT ECBJOL TTSB.� ���������������������� � ECTSXI  7. KWBL.: AVDSCM /21>N+LEMI<C KWBL.: UFIBCM 3 KWBL.: DRIHCM ERADHER FEUF BNDMAOM;C  7. KWBL.: UFDBCM 3.8= XF NON-NULL INC (R4)  ;NULL, MAKE IT A ONE 1$: CALL RELTST  ;NO GLOBALS 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 ;����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������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 ;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  TSET ". ABS." MOV R50ABS+2,SYMBOL+2 BR CSECTF  ;USE COMMON EXIT CSECT: 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 NE����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������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 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 SEPW LOCAL SYMBOL BASE .IFF JMP XMIT5  ;MOVE AND EXIT .ENDC ENTSEC IMPURE 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ITX 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 S N URETR N IOATOC LET;S +2F0,POCCLCL OVM D OR WMESUAS; 1 0+PF CBIN  GSLA FONTICALOT ENRRCUT SE; F0,PGSCFCL VBMO  ROZED ELFIT INPRT SE;   : F0TPSE FFTU SNGTIISLL TTSB.� ���������������������� � DCEN. C SEITX 4 KWBL.: ILFFCR 2W LK.B  REPUIM ECTSEN  Y//S 50AD.R  1D OR.W  F/LONTO ROLL SAVREG   ;PLAY IT SAFE MOV #CLCNAM,R1 MOV #SYMBOL,R2 CALL 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������CR/0 D5RA. 0 RDWO.: NKFLCR 0D OR.W  EDIXMC SENTE L FIRFC, NKFLCR F,BUMDCD OR.W I:CSRF CE URDP ECTSEN  OLRRER TEBY. L ROECSE YT.B  OLTRPS TEBY. C ND.E  -1 TEBY. F IF. L ROACME YT.B  ROACXM DF NIF. L ROYMSE YT.B  P:TYRF CT BYXTTC SENTE S AGFL" "*D AN" "#;  2B LK.B L:DFRF CN LIMPIC SENTE 2 N/LERFCW LK.B F:BURF C3 KWBL.: DRFHCR AGFLO -GNO;  W LK.B F:NGRF CW LK.B T:PNRF CW LK.B N:LIRF CW LK.B G:PARF CG LA FONSIER;V   KWBL.: ERFVH1$  ; ERROR IF NULL ERROR A RETURN 1$: MOV R0,PRGTTL ;MOVE INTO STORAGE 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 #F����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������CR KWBL.: LGFFCR REPUIM ECTSEN  RNTURE  SELO CND A;  NTFPCR LRC N IOETPLOM CITWA;A DRFHCRK,LNRFCF TOAIW R HDRF#CK,LNRF#C TERI.W  IISC AEDTTMAOR;F  2)(R-R CL  ITE ORST;) R2-(+,P)(S OVM H GTEN LTEPUOM;C  P)(S2,RB SU  RTTA STOT INPO;2 ,RUFFBCR#V MO  ND ETOR TEINPOE AV;S P)(S,-R2 OVM D ENT SE;+ 2)(RT,#V VBMO  ERFFBUF RE CMPDU;   : MPFDCR RNTURE  TEBYE THE ORST;+ 2)(R1,RB OVM: 1$ NELIW NET ARST;2 ,RUFFBCR#V MO  NTREUR CMPDU, NO; P DMRFCL ALCDF,(R1) ;SET PAGE EJECT MOV R1,TTLBEG ;MARK BEGINNING CLR R5  ;NO "Q" ERRORS 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� S YE ; $ 1I BH  W?FEA E ORSTO TOMRO;2 ,R12N-LERF+CUFFBCR#P CM  TEBYE ORSTD ANM OO ROR FSTTE;   : STFTCR������������������������ N URETR L DFRFCB LRC: 9$ ERNTOI PEW NRETO;S NTFPCR2,RV MO $: 8+ 2)(R1,RB OVM R TONAMIER TET;S R1M,SYR.#C ISB: 6$ R12,#S BI  *" "NOF ICHANBR; $ 6L BP  IT B#" "ET;S R1L,DFRFCV MO  )+R2(B STT $ 5Q BE  KSANBLG INILRA TIMTR;) R2-(E,ACSP#B MPC: 5$ NP0UR5  STFTCR LLCA  R1M,SYR.-C+1YPFTCR#B SU  8$ CCB 0 RR AS  4$ NEB@,LCMASK BNE 4$ MOV #TOCTXT,R1 MOVBYT   ;SET TABLE OF CONTENTS CALL 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 #5,R4 ; # DIGITS IN A NUMBER 08/26/72 11$: MOVB #SPACE,-(���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� E YP TEFCRO TERMBNUL OL RAP;M )+R1,(DXLNRO PBCM  R0 SRA: 4$ R0G,FLRFCV MO  R1P,TYRF#C OVM: 3$ 2$ BR  INFLCR NCI T TSRFC LLCA  R1N,LIR.#C OVM O N;  3$ ISBH  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 <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 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 TW����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������,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; T PNRFCT TS  CEENEREF REFCR;   : EFFRCR ONTINIFIDEF RE;C  FLFDCR CBIN F:DERF�C���������������������� � VRTOXI  ECTSXI  P:TORF CM ND.E  G/AR/0 D5RA. E PCSMG,AR PCIR. : ASFBCR REPUDC SENTE N URETR A ORRRE: 6$ 1$ BR  AGFLP UM BS,YE; F NGRFCC IN  ORRR EO, N;  6$ NEB / NG/8O WORDS? BLO 1$  ; NO MOV #GSDT06,(R2)+ ;YES, SET GSD TYPE ZAP CODROL  ;CLEAR CODE ROLL RETURN XITOVR ENTSEC IMPURE 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$: RET����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������0 D5RA. ? CHITSWO -GNO;+ C)(PL,BOYMSP CM $: 5 N URETR G LA FVESA;G FLRF,CR3 OVM: 4$ P" "UT BLL AO, N; R30,C1#^ OVM S YE ; $ 4E BN  S?RG ANY;A  R3 STT: 3$ 1$ BR  GSLA FTELAMUCUAC; 3 ,RR2 ISB $ ,2R0 OBS 2 RL AS $: 22 ,R#1 OVM R ROER, REHE TOT N;  5$ EQB T IOR FLLRON CA;S  OLFRCR NWCAS D HEISIN F;  3$ EQB T ENUMRG AOR FRY;T   RGSAG: 1$ 2R OVNTE R SOESOCPRH TCWI SEFCR;   : ETFSCR LLROY MMDU;  1 L=RORR E T SERF,CCR WTNSGE  OL4URN .DSABL LSB .GLOBL REM REM:    ; ".REM" DIRECTIVE MOV R5,R3  ;SET TERMINATING CHARACTER BNE 1$  ;BRANCH IF NON-NULL 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������MBSY;  0 02 M=SYR. CE IN LEW;N   030= IN.LCR GEPAW NE;  2 00 G=PAR. C1 #ONSIER V1,E YP;T  0>401*00+<010= ER.VCR THNGLER FEUF BEFCR;  . 321= ENFLCR EFCRXF NDF .I  RSLENDHAE NCREFERES OSCR TLBT.S �������������������������� S IETRENE BLTAH TCWI SDS /ND A; BLSA,DDS WTNSGE  EN /TERANEGE;L ABENN,ET SWENG C SEITX S AS PCHEAT SE;K ASDM,EAKMBED OVM S PACTXC SENTE S ONTIDION CLTAUEF DET;S AKMBEDT,NIDI#E OVM 1 -W LK.B  S:ITDB E1 KWBL. S ITDBEL 0GETNB  ;YES, BYPASS AND EXIT ������������������������ .GLOBL BLKW, BLKB, EVEN, ODD, RADIX, EOT BLKW: INC R3  ;FLAG WORD TYPE BLKB: 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)  ;����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������OBGL. G PRCTXC SENTE 2 S AS POR FITINE- RTO;  W LK.B K:BADM EE IDRRVE OSI COR FTSBI;  W LK.B I:CSDM ES AGFLT SES INTAON;C   KWBL.: SKMAED REPUIM ECTSEN  VRTOXI  RNTURE $: 8A ORRRE: 7$ 1$ BR  NETIOU RLLCA; + P)(S@L ALC S AGFLT SE; 3 RT TS  IC PITE AK;M P)(S,-+2OLMBSY OVM: 5$ ITR EACL, NO;K ASDM,ER2 ISB R EACLT IVEEA LS,YE ; $ 5Q BE  E?BLND;E  R3 STT T BID TEECEL SARLE CO,;N SKMAED2,RC BI $: 4T IRENOIG, ES Y;  1$ NEB ? SI COMFRN ,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 R0,#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 ; ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������DEID-REROV;I CSDM,ER2 ITB: 3$ STTES ASYP BND A;  4$ BR  TSBIE BLSADIT SE, ES;Y SIMCED2,RS BI  NO ; $ 3Q BE  G?INTR SNDMAOM COMFRD LEAL;C  LGIFCS STT $ ,2R0 OBS 2 RL RO $: 2C SE  ONTISIPOT BIE UTMPCO; 2 R 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.( 07.31.72 .GLOBL BOUND,PACK ; 07.31.72 ; 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ���������������������� � 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 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$.72 ;* 07.31.72 ;* PACKED PHYSICAL DIRECTIVE: .PACK LOC 07.31.72 ;* 07.31.72 PACK: ; 07.31.72 EXPR ;EVALUATE THE EXPRESSION 07.31.72 CLC ;CONVERT 07.31.72 ROR ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� 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 CNGTIIS;L    E:AVCS LE URMPIC SENTE : OPTTLC LLNU; > < CTNLGE  YMST LCENG C TO CTNLGE  726//208 E.OD MLPO TLTAUEF DGEANCH; 1 M,TT CTNLGE ,1D LT LCENG D CN CTNLGE  ,1EBMT LCENG 1 ,ME CTNLGE  MC CTNLGE  MD CTNLGE  EXBT LCENG M CO CTNLGE  RCST LC  VALUE ; TO 07.31.72 CLC ; PACKED 07.31.72 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ENG N BI CTNLGE  OCLT LCENG Q SE CTNLGE  S:BACT LE URDP ECTSEN  0= ITINLC DMEN. C ND.E  NE'MC.+LITINLC T=NICIL > ITIN<B NIF. / NE/M 50AD.R  NE'MC.LL OBGL. R ND.E  NE'MC.+LNE'MC.L= NE'MC. L2 >/ASTBLC.-<T EP.R  1= NE'MC. LE BLTAL RONTCOG INSTLIE ATEREN;G ITINE,MN CTNLGE ROAC.M ������������������������������ N URETR 2 .7317. 0 ; X:EXAG P2 .7317. 0 E IVCTREDIG INSTLIS AAGFL ; AGFLLCD,.L ;THEN INSERT IN OBJECT CODE 07.31.72 RETURN ;AND EXIT 07.31.72 PCKODE: .WORD 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������LC # IS B 2 .7317. 0 ; X EXAG P R B: EXAG PD TELEDE . E IVCTREDIG INSTLIS AAGFL ; AGFLLCD,.LLC # IS BX:GEPA ;E IN LISTHR TEAFF FTELAMUSI; T CNFF NCI: GEPA GEPA BLLO.G  VRTOXI  ESRINT ECHITSWL /ND AN ;T ISNLL,NT SWENG I /LE ATEREN;G  STLII,LT SWENG N URETR: 7$ AR ROER $: 6 E OR MOR FRY;T  1$ BR $: 5K ASCM,LR2 ISB H NCRA BT,IS.L; $ 5L BP  R3 STT: 4$ OLTRON CNGTIIS LET;S  EXAGPL ALC  EXPR   ;PROCESS GENERAL EXPRESSION SETIMM   ;CONVERT TO OBJECT FORMAT STCODE   ;PUT ON CODE ROLL ADD R3,(R2)  ;UPDATE PC BR 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  ; ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������T UNCOL VELEE ATPD US,YE;L LVLC3,RD AD  NO ; $ 4Q BE  L?UL;N  C.#L2,RT BI  SKMALC2,RC BI $:12 ES Y;  5$ NEB ? TSMILIF OFG LA FISTH;I CSCM,LR2 ITB: 1$ 1 T ES TIPSKD AN ; $ 12 BR  TSBIE BLSADIT SE, ES;Y SIMCLC2,RS BI  NO ; $ 11 EQB ? NGRISTD ANMMCOM RO FEDLLCA; G FLSICT TS  3$0,RB SO  R2 OLR: 3$ ECS 2 RR CL  NDOU FOT NIFR ROER ; $ 6Q BE  LEAB THE TINP UITK OO;L  OLDRLC NWCAS L BOYM S AOR FRY;T   YMTSGE $: 2T IRKMA, ES;Y  NTGCAR  ".ASCII", SET TO 0 RAD50: ENTOVR 3 DEC R3  ; ".RAD50", SET TO -1 CALL 23$  ;INIT REGS 1$: MOV R5,R2  ;SET TERMINATOR BEQ 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$: MO����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������NCI H UGROTHE 'RWE, NO ; $ 7E BN  T?RSFI, LLNU; T CNRGAT TS  IDAL V;  2$ NEB T ENUMRG AERTHNO AOR FSTTE;  G ARSTT: 1$ -11/W NO; 3 RC IN  -20/3 RKEMA; 3 RL AS  2R OVNTE  T:IS L1 -R3E AK;M  R3 OMC: STLI N T ISL, STLINL 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;  KWBL.: RDDWCN D)REDEORE BSTMU (GERATO SALONTIDIV CHRPNT,R0 ;FETCH POSSIBLE LOWER CASE MOVB (R0),R0 BIC #177600,R0 ;CLEAR POSSIBLE SIGN BIT .IFF BPL 4$  ;RAD50? TSTR50   ; 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, AN����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ON;C     ASPPIM ECTSEN  RNTURE $: 6E GLOG TO,;N  R3 OMC S YE ; $ 6Q BE  F?FD;I  R1 STT: 5$ INGA ARY;T  1$ BR  OPS ASYP;B   NBETG: 4$ DEMOE GLOG TS,YE; 2 RM CO  NO ; $ 5E BN  R? OPSHAER;P OR.ICH,#R5 MPC S ESGUD OO GIFH NCRA B;  4$ EQB " "&; ND.ACH,#R5 MPC " "&E UMSS;A  R21,RV MO $: 33 RM CO  NO ; 3 ,RR2 OVM T SEL AL, ES Y;  3$ EQB ? CHAT MS,YE; 3 ,RR0 MPC: 2$ LEGGTO, NO; 0 RM CO  ES Y;  2$ NEB ? SSUE GODGO YTHING IN PROGRESS? BEQ 29$  ; NO, NORMAL EXIT CALL 20$  ;YES, PROCESS BR 6$  ;LOOP UNTIL WORD COMPLETED 10$: MOV (R4),-(SP) ;"<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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;E OD,MLGFFDE#T BI  EDINEF DMESUAS; 0 RR CL  EFFRCR  LEAB TOLMBSYR SE UCHARSE;  H RCSS  YM S AOT NIFR ROER ; R ERFAIQ BE  OLMBSYA T GE;  M SYETG: 1$ UETRF OFT ARST; 3 RR CL  &" "ET;S  R2 LRC N IOITNDCOL IAITINE AV;S  R13,RV MO  DF/IIF;   : DFONTC FAONTC BR  TRONTC LTB P EXBSA: LTONTC FAONTC BR  TRONTC GTB P EXBSA: GTONTC ITEXT US JE,RU;T   RNTURE R:NTCO TE GLOG TE,LSFA ; 3 RM CO A:NFCO TT SAF ICHANBR; R NTCOTQ BE  ONSIESPR$: MOV R0,-(SP) ;SAVE CURRENT CHAR MOV (R4),R0  ;GET PARTIAL CALL MULR50  ;MULTIPLY ADD (SP)+,R0 ;ADD IN CURRENT MOV R0,(R4)  ;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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������EXT ES TE,/NEQ;  P EXBSA: EQONTC������������������������������������������ F F,NDCOT, DFND CNENG F NDCOT, DF NDNCGE  LTONTC L, NDNCGE  F, LTONTC E,GD CNENG T NLCOT, LT NDNCGE  GTONTC G, NDNCGE  F, GTONTC E,LD CNENG T NGCOT, GT NDNCGE  F, EQONTC Z,ND CNENG Q NECOT, ZD CNENG F Q,NECOT, NE NDNCGE  EQONTC Q,ED CNENG N URETR R ROER" "QO ;N  R5 LRC: RXAEIF AR ROER R:ERFA I R LENDHAH UGROTHT XI EO,;N  R1@P JM  MAOM CSSPABY;  G ARST������������������������������ .IF NDF XFLTG .GLOBL FLT2, FLT4 .GLOBL WORD2 ; 07.31.72 ; 07.31.72 DBLINT: .WORD 0 ;0 = FLT2 OR FLT4, 1 = WORD2 07.31.72 ; 07.31.72 WORD2: ; 07.31.72 INC DBLINT ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������T T XI ESTJU, ES Y;  RXAEIF NEB ? ATNS UDYEALR;A  RDDWCN STT ) ENEVD AN (ALRMNOO TCKBA; 1 RL AS  DD OIF1 -TOS OE GR3; 3 RC SB  AGFLE GLOG TOR FEDUST BIW LO; 1 RR AS  SSREDD AET;G R12,L+BOYMSV MO  NDOU FOT NIFR ROER ; R ERFAIQ BE  NTMEGUARR FON CA;S  OLDRCN NWCAS: NFCO TL BOYM S AET;G   RGSAG N IOITNDCOT ES;T    N:CO�T���������������������� � RNTURE  ORRR EONTIDION;C  OR ROER R:ERFO I N URETR L NAIOITNDCOK AR;M AGFLLCD,CNC.#L ISB: CXND ED OR�  ;SET .WORD2 FLAG 07.31.72 INC R3 ;SET FOR .FLT4 PROCESSING 08.03.72 BR FLT2X ; 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: ;���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� WSTTED AN ; ) R1-( SLA K AS MCEDURE; ) R1-( SLA T ENEMCRDE, ES;Y  1)(R ECD R ROER, NO ; R ERFOIE BL  L?NAIOITNDCON ;I  1)(R STT L VELEO TNTOI;P R1L,LVND#C OVM L NAIOITNDCOF OND;E    C:ND E X DCEN BR  ONV MO; D WRNDCR RO  RYAR CET;S  R3 SLA G LA FNTREUR CFF OVEMO; D WRNDCL AS  ORRR EO, N;  RROEIF LEB ? SSREOGPRN IALONTIDION;C  VLDLCN STT ) LYCTREDID LEAL CENWH0 3=(R;   L NAIOITNDCOB-SUL NAIOITNDCOUN;   : TFIF GHOUHR TLLFAD AN  08.03.72 1$: TSTARG BEQ DGTEST MOV FLTPNT-2(R3),-(SP) ;EVALUATE NUMBER CALL @(SP)+ ; BNE 2$ ;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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������T ENEMPLOM CSE;U  R3 OMC N IOITNDCOT ENRRCUT GE;3 ,RSKDMCN OVM L NAIOITNDCOB-SUE LSFAF ;I    F:IF CHANBRD AN ; F FTIR B T ENRRCUT GE;3 ,RSKDMCN OVM L NAIOITNDCOB-SUE RU TIF;   : FT�I���������������������� � CXNDER B D WRND COR FTOIT;D  1)(R-R RO  R3 SLA  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,LVR0 AND R1 07.31.72 MOV R1,-(SP) ; 07.31.72 MOV R4,-(SP) ;AND R4 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ND#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'AIF 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  (R5)+,R1 ; DOUBLE PRECISION 07.31.72 MOV (R5)+,R2 ; FLOATING POINT 07.31.72 MOV (R5)+,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 ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� 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 ICHANBR ; $ 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.: DCTW;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 EXIT 07.31.72 ; 07.31.72 WORD2A: ; 07.31.72 INC (SP) ;SET SIGN NEGATIVE 07.31.72 ; ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������FL 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;   : EGTBFL REPUIM ECTSEN  T4MIXP JM  R24,RV MO  AVTSFLO TUFTBFLE OV;M  R13,RV MO V:GSLT F N URETR ) R2-( OLR ) R2-( OLR ) R2-( OLR ) R2-( SLA 2 ,RR4 OVM T IFSHT EF;L    S:GLLT F N URETR 07.31.72 WORD3A: ; 07.31.72 ASR R4 ;PUT 07.31.72 ASR R4 ; THE 07.31.72 ASR R4 ; EXPONENT 07.31.72 ASR R4 ; AT 07.31.72 ASR R4 ; BINARY ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� + 1)(R ORR + 1)(R ORR + 1)(R ORR + 1)(R ORR E ATOT RHTIG;R  R13,RV MO  FTHI SHTIG;R   LCC: RSTGFL������������������������������������������������ N URETR O N;  1$ NEB ? GHOUHR;T  R32,RP CM  RYSAESEC NIF, LEPPRIE NUTION;C  2$ CSB  IND AD; ) R1-( DCA: 2$ ESRIAR 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 ;*  ! 07.31.72 ASR R4 ; ZERO 07.31.72 ASR R4 ; 07.31.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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  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   NBETS: 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 % ;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 #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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������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 TEBYO TRTVEON;C  R2 SLA: 8$ RDWOE GLIN;S  R2 NCI E YP TETESPR; 8$ NEB E BLOU;D  R2 SLA T UNCOE IZ SET;G R2C,WDLTFV MO  DCEN. S YE ; $ 7Q BE  N?IOATNCRU;T SKMAEDT,FPD.) ;NORMALIZED FLOATING POINT NUMBER 07.31.72 CLC ;ALL THE WAY DOWN TO DOUBLEWORD 07.31.72 ROR R0 ;BINARY ZERO 07.31.72 ROR R1 ; 07.31.72 ROR R2 ; 07.31.72 ROR R3 ; 07.31.72 BR WORD2B ; ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#E ITB T FPEDXF NDF .I  RYAR CGHHIT SE; ) R4(R RO  HTIG RCELA PNE OFTHI;S  RSTGFL LLCA  4$ NEB ? ND;E  R32,RP CM  !!PCT OUE-IDNS IHE TOFE AREW;B  2)(R ABSW  TEBYA P UVEMO;) R2,(1)(R VBMO  RDWOE ONN OW;D 2)(R,-1)(R-P CM $: 42 RANTHR WELOE ONS IR1; ) R1-( STT 1 ,RR2 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,F- 07.31.72 ; 07.31.72 WORD2C: ; 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������00#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 TREMOE 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  SV1 07.31.72 COM R1 ; COMPLEMENT 07.31.72 COM R0 ; TO THE NUMBER 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.3����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������TGFL 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 ;  XPTEFL ECD: 3$ 38 Y BND A; EXTBFL.,#3 DDA 4 5/Y BLYIPLTMU; 4 M5LTFL ALC: 2$ 3 $ 33 BR  WO TBYD AN ; X BELTFC IN  5BYY PLTIUL MS,YE; 0 M5LTFL ALC O N;  2$3I BH  5? *WEN CA, LYIPLTMU;6 4231#0),R3(P CM  ROZE. LT .IFE IDIV;D  1$51.72 ; 07.31.72 WORD2E: ; 07.31.72 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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������4T BL  ROZEF INIFI; 5 TGFL EQB E ALSCO TMETI; P EXLTFT TS $:31 SOF IITEX; X GELTFQ BE  R0+,1)(R ISB 0 ,R)+R1(S BI  R0+,1)(R ISB O ER ZOR FSTTE;0 ,R)+R1(V MO  R13,RV MO 3:TGFL���������������������������� � GHOUHR TLLFA; 3 TGFL BR  ;T ENONXP ETEDAUP;P EXLT,FR0 DDA E UTOLBS ATS IRESUE AK;M   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.#19 #2,R3 ;MAKE FLT2/4 THINK IT'S FLT2 FORMAT 07.31.72 BR FF2 ;AND WE'RE DONE 08.03.72 ; 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 FLOATIN���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� 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 HA CALTINI IARLE;C  P)(S LRC N IOCTRA FNGSIESOCPRF INTMEREEC;D XPTEFLT,DOLTFD AD $:13 2)(R-C AD  2)(R-C AD  RYAR CLEPPRI; ) R2-( DCA N IDD;A 2)(R,-R5=G POINT BUFFER FF3: ; 08.03.72 3$: MOV (R1)+,(R4) ;MOVE IN NEXT NUMBER STCODE   ;PLACE ON CODE ROLL 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 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� DDA R FEUF BOFD ENO TNTOI;P  R24,RV MO  TELUSOABE AK;M R50,G.DI#B SU  10 *ATTHE AK MN,IOCTREOR;C  LSTGFL LLCA  5BYY PLTIUL;M  50TMFL LLCA $:12 3$1R B B NU SHE TOR FTESAENMPCO, NO; P EXLTFC IN  ES Y;  2$1Q BE  N?IOATICPLTIUL MOR FOMRO, ICERUM;N 3)(R0,0074#1 ITB O N;  0$2Q BE  C?RIMENU;) R5L(TBCTM,NUT.#C TBBI $:11 ERCTRAHA CXTNEE THT GE;  R CHETG: 0$ 1R HA CSSPABYD ANN IG SET SS,YE;N SGLT,F000010#V MO  NO ;  1$1E BN  "?"-; R5B,SUH.#C ���������FLTG4W: INC FLTWDC  ;FLOATING POINT NUMBER EVALUATOR FLTG2W: INC FLTWDC FLTG1W: ENTOVR 5 SAVREG   ;SAVE REGISTERS MOV CHRPNT,-(SP) ;STACK CURRENT 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������