@ȋ ȋ _V`ȋ _ `ȋ    '@@  w Hw U!w  w  w  b`5@5%E`$* N7 J z5@w * w pd  w TF   %mp   nȋ H W A A 5P7\wZ5@7@w>`^ A A (*$&7` w w`7`w w` mw mw ---d (-F n  w "5rw "w5`U%]?8RU`Hd 5Ee0ww !w5  Pnȋw 5w R! w "h '(w d 6 vw P zn   Rȕȋ ]w xPw  l w " ('w w  -   @' ` w 6f"wJDFDCDK*DPDTMT$:,<F_F/TRx/DI`/PL`/RW/RE/SK/BO(/NO /HE/NUj/FI/DA2/VEV/WLN/FO ^& ыBwp`ɋVB`Gh  5 Pw 55U:704UU@ "  w & h 5.@0 70nӋ:! ! [[נAנZנ0נ9@  aW `߇  ww P  P weeeeeeeeeee t = cFe w,-JAN--FEB-~-MAR-t-APR-p-MAY-l-JUN-h-JUL-d-AUG-`-SEP-\-OCT-X-NOV-T-DEC-Pw F B w  w r w:DF|:DT:DK:DC:MT:DP'2#(($T` `  ! 2 !2J !5 5 PR5P ( ww 2 wF N:00S7P5~75r  =97w5Nw5B |w w( :, 09A Z  5wp  ͋   ` 'w    wv&& \P>0 !! !5ɋ 855ߕ  0A A A A e0wNw Fw >7 w( G e e N`  ",  7 7    e%le^ w w`J  ee נ w B -, -$&w B" ww <'#w<-w #w "A#w  w g#w*w # w V#wE7 75@w7 7  5@ w77 5e[7 5w:K7 F7 J7 D7 >7 8) E7$ 7 w$  wU7 5 EwVp 02I'F7@`w dh4fm\& n HF`ߕ w ~K$( f&  # w PK M##wN  |'7w dh xf& 7 lhd X # %d#`#l C _### b  ΕP5 (0L! 0 Ha 7# ȝ5Pȕ Е Ee0v w \KwʋW Me0w  8#40w N w   &eBen  R' w <h  # h#7$$7$!$r5 T ȕ ȋ +7 .- 7   xw !w PMww * wxw !w nK5 ~7 xh  X'w Bh #7Pw L"PrP  N7 5 0 : *#7x7 v   VJH ɝ0ɋ   @ 7`lB hU J H5t 5 `w p@"i5@ LD w R!Zw J!w : wh50  -   w  Mfw *  wNY Rɕ T ɋ5@A 7 Q$%   8-PFw x!.Rȕȋ P ȕ T ɕ ɋP5 ɕ 5 w >>!wRe@ fe  m@f4@ . E   w7 ~%E ^7 X\  " "   $\ @  j wN @ Re@^ N H _% ' 7n 7 7 7 7 ~7 |7 D7 F7 D7 J7 H7 v7 t7 x7 v7 t7 t7 nlV 88<2%7 (@  0!  C  C C eC eaC  &f& &ȋ    prtvTHE STANDARD COMMAND STRING FORMAT IS: #DEV:[/FORMAT OPTION],.MACRO QIOSY$ ARG,ARG1,ARG2.ENDM .ENDC) .IIF IDN,<$$$GBL>,, .GLOBL QI.VER; .WORD. SYM,LO,HI.MACRO .WORD. SYM,LO,HISYM =HI*400+LO#.IIF IDN <$$$GBL>,DEF$G, .GLOBL SYM .ENDM .WORD.; .BYTE. SYM,LO.MACRO .BYTE. SYM,LOSYM =LO#.IIF IDN <$$$GBL>,DEF$G, .GLOBL SYM. .ENDM .BYTE. .MACRO .IOMG. SYM,LO,MSG .IF IDN,,<$$$MSG>C .WORD - .ASCIZ ^MSG^. .EVEN# .IIF LT,<$$$MAX+>,$$$MAX=-$ .ENDC .ENDM .IOMG.$ .MACRO .IOER. SYM,LO,MSGD .BYTE. SYM,LO .IOMG. SYM,LO, .ENDM .IOER.E .MACRO .QIOE. SYM,LO,MSG$ .BYTE. SYM,LO .IOMG. SYM,,, .ENDM .QIOE.D .WORD. IQ.X,001,000 .WORD. IQ.Q,002,000;;; .WORD. IQ.,004,000 .WORD. IO.KIL,012,000 .WORD. IO.RDN,022,000 .WORD. IO.UNL,042,000 .WORD. IO.LTK,050,000 .WORD. IO.RTK,060,000 .WORD. IO.WLB,000,001 .WORD. IO.WLV,100,001 .WORD. IO.RLB,000,002 .WORD. IO.RLV,100,002 .WORD. IO.LOV,010,002 .WORD. IO.RNC,004,002 .WORD. IO.RAL,010,002 .WORD. IO.RNE,020,002 .WORD. IO.RDB,200,002 .WORD. IO.R1C,000,005 .WORD. IO.RBC,000,006 .WORD. IO.RTC,000,007 .WORD. IO.ATT,000,003 .WORD. IO.DET,000,004 .WORD. IO.RWD,000,005 .WORD. IO.SPB,020,005 .WORD. IO.SPF,040,005 .WORD. IO.EOF,000,006 .WORD. IO.STC,100,005 .WORD. IO.SEC,120,005 .WORD. IO.RWU,140,005 .WORD. IO.SMO,160,005 .WORD. IO.SAO,000,010 .WORD. IO.SSO,000,011 .WORD. IO.MSO,000,012 .WORD. IO.SLO,000,013 .WORD. IO.MLO,000,014 .WORD. IO.SCS,000,026 .WORD. IO.MCS,000,027 .WORD. IO.CCI,000,030 .WORD. IO.DCI,000,031 .WORD. IO.RCI,000,032 .WORD. IO.CTI,000,033 .WORD. IO.DTI,000,034 .WORD. IO.RTI,000,035 .WORD. IO.ITI,000,036 .WORD. IO.FNA,000,011 .WORD. IO.RNA,000,013 .WORD. IO.ENA,000,014 .WORD. IO.ACR,000,015 .WORD. IO.ACW,000,016 .WORD. IO.ACE,000,017 .WORD. IO.DAC,000,020 .WORD. IO.RVB,000,021 .WORD. IO.WVB,000,022 .WORD. IO.EXT,000,023 .WORD. IO.CRE,000,024 .WORD. IO.DEL,000,025 .WORD. IO.RAT,000,026 .WORD. IO.WAT,000,027 .QIOE. IE.UPN,-01.C .QIOE. IE.ULN,-05.O .QIOE. IE.HWR,-06.  .BYTE. IE.IPR,-95.D .BYTE. IE.ILU,-96.O .BYTE. IE.IEF,-97.. .BYTE. IE.ADP,-98. .BYTE. IE.SDP,-99.6 .IOER. IE.BAD,-01.0 ;O .IOER. IE.IFC,-02.. .IOER. IE.DNR,-03. .IOER. IE.VER,-04.5 .IOER. IE.SPC,-06.0 .IOER. IE.DNA,-07.0 .IOER. IE.DAA,-08.0 .IOER. IE.DUN,-09.B .IOER. IE.EOF,-10.W .IOER. IE.EOV,-11.O .IOER. IE.WLK,-12.  .IOER. IE.DAO,-13.D .IOER. IE.SRE,-14.O .IOER. IE.ABO,-15.. .IOER. IE.PRI,-16. .IOER. IE.OVR,-18. .IOER. IE.BYT,-19. .IOER. IE.BLK,-20. .IOER. IE.MOD,-21. .IOER. IE.CON,-22. .IOER. IE.BBE,-56. .IOER. IE.STK,-58. .IOER. IE.FHE,-59. .IOER. IE.EOT,-62. .IOER. IE.NOD,-23.C .IOER. IE.DFU,-24.R .IOER. IE.IFU,-25.R .IOER. IE.NSF,-26.C .IOER. IE.LCK,-27.A .IOER. IE.HFU,-28.A .IOER. IE.WAC,-29.N .IOER. IE.CKS,-30.F .IOER. IE.WAT,-31.V .IOER. IE.RER,-32.K .IOER. IE.WER,-33.O .IOER. IE.ALN,-34.E .IOER. IE.SNC,-35.O .IOER. IE.SQC,-36.I .IOER. IE.NLN,-37.R .IOER. IE.CLO,-38.T .IOER. IE.DUP,-57.K .IOER. IE.BVR,-63.D .IOER. IE.NBF,-39.N .IOER. IE.RBG,-40.E .IOER. IE.NBK,-41.K .IOER. IE.ILL,-42.E .IOER. IE.BTP,-43.T .IOER. IE.RAC,-44.D .IOER. IE.RAT,-45.U .IOER. IE.RCN,-46.U .IOER. IE.MBK,-47.F .IOER. IE.2DV,-48.K .IOER. IE.FEX,-49.U .IOER. IE.BDR,-50.C .IOER. IE.RNM,-51.S .IOER. IE.BDI,-52.T .IOER. IE.FOP,-53.R .IOER. IE.BNM,-54.R .IOER. IE.BDV,-55.N .IOER. IE.NFI,-60.C .IOER. IE.ISQ,-61.C .BYTE. IS.PND,+00.N .BYTE. IS.SUC,+01.O .BYTE. IS.BV,+05. .WORD. IS.CR,+01.,15R .WORD. IS.ESC,+01.,33 .ENDM QIOSY$E G .MACRO PRINT$ FDB,ERR,?LBL .MCALL CALL,CLOSE$,LDR0$,SDRQ$S LDR0$ FDB TST F.BDB(R0) BEQ LBL BITB #FD.REC,F.RCTL(R0) BNE LBL MOV R1,-(SP)K MOV R2,-(SP)  MOV (PC)+,-(SP) .RAD50 /.../U MOV (PC)+,-(SP) .RAD50 /PRT/E MOV SP,R1 MOV R0,R2 ;COPY FBD ADDRESSE ADD #F.FNB,R2( MOV N.DID+4(R2),-(SP);PUSH DIRECTORY ID MOV N.DID+2(R2),-(SP);R MOV N.DID(R2),-(SP) ; MOV N.FID+4(R2),-(SP) MOV N.FID+2(R2),-(SP) MOV N.FID(R2),-(SP) MOV N.UNIT(R2),-(SP)C MOV N.DVNM(R2),-(SP)E MOV N.FVER(R2),-(SP)B MOV N.FTYP(R2),-(SP)L MOV N.FNAM+4(R2),-(SP)R MOV N.FNAM+2(R2),-(SP)B MOV N.FNAM(R2),-(SP). MOV SP,R2 CLOSE$ R0 SDRQ$S R1,,,,,R2, ROR R1M ADD #<13.*2>+<2*2>,SP ROL R1M MOV (SP)+,R2 MOV (SP)+,R1 .IF NB ERRM BCC LBL CALL ERRD .ENDCLBL: .ENDM* .MACRO GCMLB$ MAXD,PRMPT,UBUF,?FILNM,?BUF0.MCALL FDBDF$,FDAT$A,FDOP$A,NMBLK$,FDOFF$,FDBF$A FDBDF$D FDAT$A 2) FDOP$A 1,,FILNM FDBF$A ,,1N .BYTE 0,3; DEFAULT @ AND( .BLKW 4! .IIF NB , .BYTE 0,MAXD,0,0E .IIF B , .BLKB 4( .IIF NB , .WORD UBUF, .IIF B , .WORD BUF($$$=.M) .IIF NB , .ASCII <15><12>%PRMPT>%0' .IIF B , .ASCII <15><12>% >%..=$$$+6,FILNM: NMBLK$ CMI,CMD+ FDOFF$ DEF$L+' .IIF NB , .BLKB *<6+S.FNB> .IIF B ,BUF: .BLKB 82.C .ENDM GCMLB$, .MACRO GCML$ NAME,ADPR,LNPR.MCALL GCMLD$,LDR0$$ GCMLD$ DEF$L LDR0$ NAMEA .IF NB  MOV LNPR,G.PSDS(R0) .IIF B , .ERROR& .IIF NB , MOV ADPR,G.PSDS+2(R0) .ENDC .IIF B , CLR G.PSDS(R0) .GLOBL .GCML1 JSR PC,.GCML1 .ENDM GCML$ .MACRO RCML$ NAME .MCALL LDR0$ LDR0$ NAME< .GLOBL .GCML2 JSR PC,.GCML2 .ENDM RCML$ .MACRO GCMLD$ GBL .MCALL FDBSZ$M FDBSZ$F .IF IDN ,!.GLOBL G.ERR,G.MODE,G.PSDS,G.CMLDI7.GLOBL GE.COM,GE.IND,GE.IOR,GE.OPR,GE.BIF,GE.MDE,GE.EOF  .ENDC G.ERR =S.FDBG.MODE =G.ERR+1GG.PSDS =G.ERR+2RG.CMLD =G.ERR+6 GE.COM =1V GE.IND =2S GE.IOR =-1 GE.OPR =-2 GE.BIF =-3 GE.MDE =-4 GE.EOF =-10. .MACRO GCMLD$ GBLX  .ENDM .ENDM GCMLD$) . .MACRO CSI$1 CSBLK,BUFF,LEN .GLOBL .CSI1. .MCALL CSI$,LDR0$ .IF NDF C.SIZE$ CSI$ .ENDC LDR0$ CSBLK .IF NB  MOV BUFF,C.CMLD+2(R0) .ENDC .IF NB B MOV LEN,C.CMLD(R0)< .ENDC JSR PC,.CSI1M .ENDM .MACRO CSI$2 CSBLK,IO,SWTAB .GLOBL .CSI2R .MCALL CSI$,LDR0$ .IF NDF C.SIZE  CSI$ .ENDC LDR0$ CSBLK .IF NB  .IF IDN ,M MOVB #CS.INP,(R0) .IFF1 .IF IDN , MOVB #CS.OUT,(R0) .IFF .ERRORC .ENDC .ENDC .ENDC .IF NB . MOV SWTAB,C.SWAD(R0)L .ENDC JSR PC,.CSI2C .ENDM( .MACRO CSI$SW SW,MK,MKW,CLR,NEGS,VALTAB$$=. .IF NB SW .ASCII /SW/ .IFF, .ERRORR .ENDC.=$$+2 .IF NB MK .WORD MKC .IFF< .WORD 0 .ENDC$$=0 .IF NB CLRA .IF IDN ,$$=1 .IFFI .IF IDN , .IFFN .ERROR  .ENDC .ENDC .ENDC .WORD MKW+$$ $$=0 .IF NB NEGS .IF IDN ,,$$=1 .IFF .ERROR< .ENDC .ENDC .WORD VALTAB+$$ .ENDM .MACRO CSI$ND .WORD 0 .ENDM# .MACRO CSI$SV TYPE,ADDR,LEN,VALTAB0 .IF NB VALTABVALTAB:C .ENDC .IF NB TYPE .IF IDN ,T .BYTE 1 .IFF  .IF IDN ,. .BYTE 2 .IFF= .ERRORF .ENDC .ENDC .IFFF .BYTE 1 .ENDC .IF NB LENF .BYTE LEN .IFF< .ERRORL .BYTE 0 .ENDC .IF NB ADDR .WORD ADDRN .IFFO .ERRORC .WORD 0 .ENDC .ENDM .MACRO LDR0$ ARGN .IIF B,ARG,.MEXIT .NTYPE PAR$$$,ARG .IIF EQ,PAR$$$,.MEXIT MOV ARG,R0D .ENDM .MACRO CSI$ GBL .IF IDN ,E.GLOBL C.TYPR,C.STAT,C.CMLD,C.DEVD,C.DIRD,C.FILD,C.SWAD,C.MKW1,C.MKW2N".GLOBL C.SIZE,C.DSDS,CS.INP,CS.OUT).GLOBL CS.NMF,CS.DIF,CS.DVF,CS.WLD,CS.MOR> .ENDC C.TYPR =0 C.STAT =1R C.CMLD =2C C.DEVD =6. C.DIRD =12 C.FILD =16 C.SWAD =22 C.MKW1 =24 C.MKW2 =26 C.SIZE =54C.DSDS =C.DEVD CS.INP =1 CS.OUT =2N CS.NMF =1. CS.DIF =2O CS.DVF =4C CS.WLD =10 CS.MOR =20 .MACRO CSI$ X .ENDM CSI$T .ENDM CSI$G; .MACRO MOUT$S STR,PRM,NUM,ACT,DST,BUF,SIZ,IOST,LUN,ERR,NOWG( .MCALL RVP$,MVB$,MOV$,DIR$,MODF$,MOWT$S MODF$ .NLISTE$$$T3=9. .IIF NB ,$$$T3=10. .IIF NB ,$$$T3=12. .LIST .IIF EQ $$$T3-12., RVP$ BUF,SIZ .IIF GT $$$T3-9., MOV$ PRMR RVP$ NUM,STRR .IF B  MOVB #HE$ADR!SY$STM,-(SP) .IFF .IF IDN , MOVB #BU$FFR,-(SP)4 .IFFS .IF IDN ,O! MOVB #HE$ADR!SY$STM!BU$FFR,-(SP)D .IFF .IF IDN , MOVB #HE$ADR!SY$STM,-(SP) .IFFM MOVB DST,-(SP)O .ENDC .ENDC .ENDC .ENDC .IF B  MOVB #C$ONT,1(SP) .IFF$ .IF IDN , MOVB #A$BRT,1(SP) .IFFI .IF IDN , MOVB #S$USP,1(SP) .IFFI .IF IDN ,  MOVB #C$ONT,1(SP) .IFF3 MOVB ACT,1(SP)R .ENDC .ENDC .ENDC .ENDC RVP$ IOST,S MOV #30.,-(SP) .IF NB < .IFT MOV LUN,-(SP) .IFF. MOV .MOLUN,-(SP)> .ENDC RVP$ <<.BYTE 1,$$$T3>>,#400 DIR$ ,ERR .IF B  MOWT$S ACT,ERRM .IFF$ .IF DIF , MOWT$S ACT,ERRO .ENDC .ENDC .ENDM MOUT$SC> .MACRO MOUT$C STR,PRM,NUM,ACT,DST,BUF,SIZ,IOST,LUN,CS,ERR,NOW .MCALL MOUT$,MOWT$S,DIR$F .IF NDF $$$GLB> .PSECT $DPB$$S$$$=.S .IFTF+ MOUT$ STR,PRM,NUM,ACT,DST,BUF,SIZ,IOST,LUN) .IFT3 .PSECT CS DIR$ #$$$,ERR .IF B  MOWT$S ACT,ERRO .IFFM .IF DIF , MOWT$S ACT,ERRM .ENDC .ENDC .ENDC .ENDM MOUT$C2 .MACRO MOUT$ STR,PRM,NUM,ACT,DST,BUF,SIZ,IOST,LUN .MCALL OFF$,MODF$ .IF NDF $$$GLB MODF$ .NLISTW$$$T3=9. .IIF NB ,$$$T3=10. .IIF NB ,$$$T3=12. .LIST .BYTE 1,$$$T3T .WORD 400U .WORD LUN .BYTE 30.,0T .WORD IOST .WORD 0. .IF B $ .BYTE HE$ADR!SY$STMP .IFFA .IF IDN , .BYTE BU$FFR .IFFR .IF IDN , .BYTE HE$ADR!SY$STM!BU$FFR .IFF> .IF IDN , .BYTE HE$ADR!SY$STMC .IFFM .BYTE DST .ENDC .ENDC .ENDC .ENDC .IF B N .BYTE C$ONTD .IFFF .IF IDN , .BYTE A$BRT .IFFB .IF IDN , .BYTE S$USP. .IFFT .IF IDN ,. .BYTE C$ONTO .IFF .BYTE ACT .ENDC .ENDC .ENDC .ENDC .WORD NUM .WORD STR& .IIF GT $$$T3-9., .WORD PRM% .IIF EQ $$$T3-12., .WORD BUF,SIZ .ENDC .IF NDF M.OLUN .NLIST > .IRP X,<,<$$$T3,2>,,<$$$T3,2>,,<$$$T3,2>> OFF$ X$ .ENDM@ .IRP X,<,,,,> OFF$ X  .ENDM OFF$ M.OBUF,2< OFF$ M.OSIZ,2E .LIST .ENDC .ENDM MOUT$> .MACRO MOWT$S ACT,ERR,?LBL. .MCALL EXIT$S,WTSE$SO .IF NB WTSE$S #30. .IFFE .IF IDN , BCC LBL EXIT$SDLBL: WTSE$S #30. .IFFI BCS LBL WTSE$S #30.LBL: .ENDC .ENDC .ENDM MOWT$SD .MACRO MODF$. .IIF NDF C$ONT, C$ONT=0 .IIF NDF A$BRT,A$BRT=12 .IIF NDF S$USP, S$USP=2 .IIF NDF SY$STM, SY$STM=1 .IIF NDF BU$FFR, BU$FFR=4 .IIF NDF HE$ADR, HE$ADR=10T .ENDM MODF$ .MACRO MOWA$S .MCALL WTSE$S WTSE$S #30. .ENDM MOWA$S6 .TITLE FCSMAC-FILE CONTROL SERVICES MACRO DEFINITIONS .IDENT /0716/ T .MACRO FCSMC$1 .MCALL OPEN$R,OPEN$W,OPEN$M,OPEN$U,OPEN$A,CLOSE$B* .MCALL OPNS$R,OPNS$W,OPNS$M,OPNS$U,OPNS$A2 .MCALL READ$,WRITE$,WAIT$,GET$,PUT$,DELET$,FINIT$8 .MCALL FSRSZ$,FDBDF$,FDAT$A,FDRC$A,FDOP$A,FDBF$A,FDBK$A1 .MCALL FDAT$R,FDRC$R,FDOP$R,FDBF$R,FDBK$R,NMBLK$2 .MACRO FCSMC$ .ENDM FCSMC$. .ENDM FCSMC$ . .MACRO OPEN$R FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$O. OPEN$ FDB,#FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPEN$RM. .MACRO OPEN$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$/ OPEN$ FDB,#FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERR$ .ENDM OPEN$WB. .MACRO OPEN$M FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$T/ OPEN$ FDB,#FO.MFY,LUN,FNPT,,RACC,URBA,URBS,ERRF .ENDM OPEN$MR. .MACRO OPEN$U FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$D/ OPEN$ FDB,#FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERRN .ENDM OPEN$UA. .MACRO OPEN$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$E/ OPEN$ FDB,#FO.APD,LUN,FNPT,,RACC,URBA,URBS,ERRM .ENDM OPEN$AR P. .MACRO OPNS$R FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$B5 OPEN$ FDB,#FA.SHR!FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNS$RF. .MACRO OPNS$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$M6 OPEN$ FDB,#FA.SHR!FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNS$WN. .MACRO OPNS$M FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$N6 OPEN$ FDB,#FA.SHR!FO.MFY,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNS$M,. .MACRO OPNS$U FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$,6 OPEN$ FDB,#FA.SHR!FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNS$UA. .MACRO OPNS$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$F6 OPEN$ FDB,#FA.SHR!FO.APD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNS$AA. .MACRO OPNT$D FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPNT$W# OPNT$W FDB,LUN,FNPT,RACC,URBA,URBS$ BCS .+6 JSR PC,.MRKDL ERR$ ERRU .ENDM OPNT$D.. .MACRO OPNT$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$S6 OPEN$ FDB,#FA.TMP!FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNT$W.7 .MACRO OPEN$ FDB,FACC,LUN,FNPT,DFNB,RACC,URBA,URBS,ERRB! .MCALL FDOP$R,FDRC$R,ERR$,CMOV$B  FDOP$R FDB,LUN,FNPT,DFNB,FACC FDRC$R ,RACC,URBA,URBSO .GLOBL .OPENR JSR PC,.OPENT ERR$ ERR, .ENDM OPEN$ O. .MACRO OFID$R FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$ . OFID$ FDB,#FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFID$R,. .MACRO OFID$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$,/ OFID$ FDB,#FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERRA .ENDM OFID$W,. .MACRO OFID$M FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$C/ OFID$ FDB,#FO.MFY,LUN,FNPT,,RACC,URBA,URBS,ERRR .ENDM OFID$MO. .MACRO OFID$U FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$/ OFID$ FDB,#FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERRM .ENDM OFID$UA. .MACRO OFID$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$I/ OFID$ FDB,#FO.APD,LUN,FNPT,,RACC,URBA,URBS,ERRM .ENDM OFID$AR7 .MACRO OFID$ FDB,FACC,LUN,FNPT,DFNB,RACC,URBA,URBS,ERR! .MCALL FDOP$R,FDRC$R,ERR$,CMOV$BR FDOP$R FDB,LUN,FNPT,DFNB,FACC FDRC$R ,RACC,URBA,URBS, .GLOBL .OPFID JSR PC,.OPFID ERR$ ERRF .ENDM OFID$ P. .MACRO OFNB$R FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$F. OFNB$ FDB,#FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFNB$RF. .MACRO OFNB$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$N/ OFNB$ FDB,#FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERRF .ENDM OFNB$WF. .MACRO OFNB$M FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$C/ OFNB$ FDB,#FO.MFY,LUN,FNPT,,RACC,URBA,URBS,ERRR .ENDM OFNB$MO. .MACRO OFNB$U FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$/ OFNB$ FDB,#FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERRM .ENDM OFNB$UA. .MACRO OFNB$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$N/ OFNB$ FDB,#FO.APD,LUN,FNPT,,RACC,URBA,URBS,ERRM .ENDM OFNB$AR7 .MACRO OFNB$ FDB,FACC,LUN,FNPT,DFNB,RACC,URBA,URBS,ERR! .MCALL FDOP$R,FDRC$R,ERR$,CMOV$BR FDOP$R FDB,LUN,FNPT,DFNB,FACC FDRC$R ,RACC,URBA,URBS, .GLOBL .OPFNB JSR PC,.OPFNB ERR$ ERRF .ENDM OFNB$ P .MACRO CLOSE$ FDB,ERR .MCALL LDFDB$,ERR$R LDFDB$ FDBL .GLOBL .CLOSE JSR PC,.CLOSE ERR$ ERR .ENDM CLOSE$U3 .MACRO READ$ FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN,ERRA .MCALL FDBK$R,ERR$P) FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN$ .GLOBL .READN JSR PC,.READA ERR$ ERR .ENDM READ$4 .MACRO WRITE$ FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN,ERR .MCALL FDBK$R,ERR$F) FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDNN .GLOBL .WRITE JSR PC,.WRITE ERR$ ERRO .ENDM WRITE$O .MACRO WAIT$ FDB,EFN,BKST,ERR! .MCALL LDFDB$,CMOV$W,CMOV$B,ERR$ LDFDB$ FDB CMOV$B EFN,F.EFNB CMOV$W BKST,F.BKSTO .GLOBL .WAIT JSR PC,.WAIT ERR$ ERRD .ENDM WAIT$ K! .MACRO GET$ FDB,INADR,MAXCNT,ERRK .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDB, CMOV$W INADR,F.URBD+2 CMOV$W MAXCNT,F.URBDR .GLOBL .GET JSR PC,.GET ERR$ ERRB .ENDM GET$V. .MACRO GET$R FDB,INADR,MAXCNT,LRCNM,HRCNM,ERR .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDB. CMOV$W INADR,F.URBD+2 CMOV$W MAXCNT,F.URBDM CMOV$W LRCNM,F.RCNM+2 CMOV$W HRCNM,F.RCNM .GLOBL .GET JSR PC,.GET ERR$ ERR .ENDM GET$R" .MACRO GET$S FDB,INADR,MAXCNT,ERR .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDB CMOV$W INADR,F.URBD+2 CMOV$W MAXCNT,F.URBD, .GLOBL .GETSQ JSR PC,.GETSQ ERR$ ERRD .ENDM GET$S ," .MACRO PUT$ FDB,OUTADR,OUTCNT,ERR .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDBN CMOV$W OUTADR,F.NRBD+2D CMOV$W OUTCNT,F.NRBDC .GLOBL .PUT JSR PC,.PUT ERR$ ERRF .ENDM PUT$O/ .MACRO PUT$R FDB,OUTADR,OUTCNT,LRCNM,HRCNM,ERR$ .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDB. CMOV$W OUTADR,F.NRBD+2 CMOV$W OUTCNT,F.NRBDR CMOV$W LRCNM,F.RCNM+2 CMOV$W HRCNM,F.RCNM .GLOBL .PUT JSR PC,.PUT ERR$ ERR$ .ENDM PUT$R# .MACRO PUT$S FDB,OUTADR,OUTCNT,ERRG .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDBG CMOV$W OUTADR,F.NRBD+2B CMOV$W OUTCNT,F.NRBDC .GLOBL .PUTSQ JSR PC,.PUTSQ ERR$ ERR$ .ENDM PUT$S D .MACRO DELET$ FDB,ERR .MCALL LDFDB$,ERR$P LDFDB$ FDB  .GLOBL .DELET JSR PC,.DELET ERR$ ERRR .ENDM DELET$R .MACRO FINIT$ .GLOBL .FINIT JSR PC,.FINIT .ENDM FINIT$A" .MACRO FSRSZ$ NFILES,BFSPAC,PSECT .MCALL BDOFF$,DEF$L .IF NDF,S.BFHD, BDOFF$ DEF$N DEF$L S.BFHDP .ENDC .GLOBL .FSRPT .PSECT $$FSR1,GBL,OVR,D .IF NB,BFSPAC .IFTL .BLKB NFILES*S.BFHD+BFSPAC  .IFFC .BLKB NFILES*$ .ENDC .PSECT PSECTB .ENDM FSRSZ$P .MACRO FDBDF$ .MCALL FDBSZ$ FDBSZ$. ...PC1=.$ .BLKB S.FDB .ENDM FDBDF$P L' .MACRO FDAT$A RTYP,RATT,RSIZ,CNTG,ALOCT .MCALL FDOF$L,CBYTE$,CWORD$ FDOF$LI CBYTE$ ,F.RTYPJ CBYTE$ ,F.RATTN CWORD$ ,F.RSIZI CWORD$ ,F.CNTGL CWORD$ ,F.ALOCF .ENDM FDAT$AF .MACRO FDRC$A RACC,URBA,URBSC .MCALL FDOF$L,CBYTE$,CWORD$ FDOF$LR CBYTE$ ,F.RACCF CWORD$ ,F.URBD+2B CWORD$ ,F.URBDN .ENDM FDRC$A1! .MACRO FDOP$A LUN,FNPT,DFNB,FACCM .MCALL FDOF$L,CBYTE$,CWORD$ FDOF$L$ CBYTE$ ,F.LUN$ CWORD$ ,F.DSPTF CWORD$ ,F.DFNBT CBYTE$ ,F.FACCA .ENDM FDOP$AD! .MACRO FDBF$A EFN,OVBS,MBCT,MBFGE .MCALL FDOF$L,CBYTE$,CWORD$ FDOF$LN CBYTE$ ,F.EFNI CWORD$ ,F.OVBST CBYTE$ ,F.MBCTO CBYTE$ ,F.MBFGA .ENDM FDBF$A,, .MACRO FDBK$A BKAD,BKSZ,BKVB,BKEF,BKST,BKDN .MCALL FDOF$L,CBYTE$,CWORD$ FDOF$LU CWORD$ ,F.BKDS+2U CWORD$ ,F.BKDSR CWORD$ ,F.BKVB+2F CBYTE$ ,F.BKEF  CWORD$ ,F.BKSTF CWORD$ ,F.BKDN. .ENDM FDBK$AF >+ .MACRO FDAT$R FDB,RTYP,RATT,RSIZ,CNTG,ALOCC .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBE CMOV$B RTYP,F.RTYP. CMOV$B RATT,F.RATTW CMOV$W RSIZ,F.RSIZE CMOV$W CNTG,F.CNTGD CMOV$W ALOC,F.ALOCY .ENDM FDAT$RC! .MACRO FDRC$R FDB,RACC,URBA,URBSF .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBB CMOV$B RACC,F.RACCF CMOV$W URBA,F.URBD+2$ CMOV$W URBS,F.URBDB .ENDM FDRC$R % .MACRO FDOP$R FDB,LUN,FNPT,DFNB,FACCF .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBB CMOV$B LUN,F.LUN> CMOV$W FNPT,F.DSPT$ CMOV$W DFNB,F.DFNBR CMOV$B FACC,F.FACCN .ENDM FDOP$RL% .MACRO FDBF$R FDB,EFN,OVBS,MBCT,MBFGC .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBC CMOV$B EFN,F.EFN CMOV$W OVBS,F.OVBS CMOV$B MBCT,F.MBCT CMOV$B MBFG,F.MBFGR .ENDM FDBF$RC0 .MACRO FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN# .MCALL LDFDB$,CMOV$B,CMOV$W,CMOV$2 LDFDB$ FDB$ CMOV$W BKAD,F.BKDS+2 CMOV$W BKSZ,F.BKDSR CMOV$2 BKVB,F.BKVB, CMOV$B BKEF,F.BKEFD CMOV$W BKST,F.BKSTL CMOV$W BKDN,F.BKDNU .ENDM FDBK$R$ N .MACRO FDBSZ$ .IIF DF,S.FDB,.MEXIT$ .MCALL FDOFF$,DEF$L FDOFF$ DEF$NR DEF$L S.FDB .ENDM FDBSZ$F .MACRO FDOF$L .MCALL FDOFF$ FDOFF$ DEF$L .ENDM FDOF$LF+ .MACRO NMBLK$ FNAME,FTYPE,VERS,DEVNAM,UNIT .MCALL RAD50$,CWORD$,NBOF$L NBOF$L .IIF NDF,...PC1,...PC1=0Z ...PC3=...PC1 ...PC1=.L .=...PC1+N.FNAM RAD50$ ,S.FNAM/2 .=...PC1+N.FTYP RAD50$ ,S.FTYP/2 CWORD$ ,N.FVER, .IF NB,DEVNAM .=...PC1+N.DVNM .WORD "DEVNAM .ENDC CWORD$ ,N.UNIT$ .=...PC1+S.FNBS ...PC1=...PC3 .ENDM NMBLK$C .MACRO NBOF$L .MCALL NBOFF$ NBOFF$ DEF$L .ENDM NBOF$L .MACRO LDFDB$ FDB .IIF B,FDB,.MEXIT .NTYPE PAR$$$,FDB .IIF EQ,PAR$$$,.MEXIT MOV FDB,R0E .ENDM LDFDB$C  .MACRO CMOV$W VAR,OFFSET$ .IF IDN,<#0>,. CLR OFFSET(R0)= .MEXIT. .ENDC .IIF NB,VAR, MOV VAR,OFFSET(R0) .ENDM CMOV$W. .MACRO CMOV$B VAR,OFFSETE .IF IDN,<#0>,V CLRB OFFSET(R0) .MEXITM .ENDC! .IIF NB,VAR, MOVB VAR,OFFSET(R0) .ENDM CMOV$BN .MACRO CMOV$2 VAR,OFFSET. .IIF B,VAR,.MEXIT MOV VAR,-(SP) MOV @(SP),OFFSET(R0)$ ADD #2,(SP) MOV @(SP)+,OFFSET+2(R0) .ENDM CMOV$2. .MACRO CBYTE$ VAR,OFFSETA .IF NB,VARI ...PC2=., .=...PC1+OFFSET .BYTE VAR .=...PC2 .ENDC .ENDM CBYTE$E .MACRO CWORD$ VAR,OFFSETC .IF NB,VAR= ...PC2=. .=...PC1+OFFSET .WORD VAR .=...PC2 .ENDC .ENDM CWORD$  V .MACRO FCSBT$ GLOBL .MCALL DEFIN$ ...GBL=0T" .IIF IDN,,,...GBL=1 DEFIN$ FD.FTN,1 DEFIN$ FD.CR,2$ DEFIN$ FD.BLK,10V DEFIN$ FD.RWM,1 DEFIN$ FD.RAN,2 DEFIN$ FD.PLC,4 DEFIN$ FD.INS,10A DEFIN$ FD.REC,1 DEFIN$ FD.CCL,2 DEFIN$ FD.TTY,4 DEFIN$ FD.DIR,10O DEFIN$ FD.SDI,20I DEFIN$ FD.SQD,40. DEFIN$ NB.VER,1 DEFIN$ NB.TYP,2 DEFIN$ NB.NAM,4 DEFIN$ NB.SVR,10$ DEFIN$ NB.STP,20N DEFIN$ NB.SNM,40 DEFIN$ NB.DIR,100 DEFIN$ NB.DEV,200 DEFIN$ NB.SD1,400 DEFIN$ NB.SD2,1000B DEFIN$ R.FIX,1  DEFIN$ R.VAR,2T DEFIN$ FA.RD,1L DEFIN$ FA.WRT,2 DEFIN$ FA.EXT,4 DEFIN$ FA.CRE,10 DEFIN$ FA.TMP,20 DEFIN$ FA.SHR,40D DEFIN$ FA.APD,100 DEFIN$ FA.NSP,100 DEFIN$ FO.RD,FA.RD # DEFIN$ FO.WRT,FA.WRT!FA.EXT!FA.CRED# DEFIN$ FO.APD,FA.WRT!FA.EXT!FA.APDD DEFIN$ FO.MFY,FA.WRTD DEFIN$ FO.UPD,FA.WRT!FA.EXT DEFIN$ FD.RAH,1 DEFIN$ FD.WBH,2 .MACRO FCSBT$ ARG .ENDM FCSBT$D .ENDM FCSBT$ .MACRO DEFIN$ SYM,VAL .IIF EQ,...GBL-1,.GLOBL SYM SYM=VAL .ENDM DEFIN$0  .MACRO FDOFF$ OFFSETN .MCALL OFFSET,DEF$I,NBOFF$ NBOFF$ OFFSET DEF$I 0 OFFSET F.RTYP,1 OFFSET F.RATT,1 OFFSET F.RSIZ,2 OFFSET F.HIBK,4 OFFSET F.EFBK,4 OFFSET F.FFBY,2 OFFSET S.FATT OFFSET F.RACC,1 OFFSET F.RCTL,1 OFFSET F.BKDS OFFSET F.URBD,4 OFFSET F.BKST OFFSET F.NRBD,2 OFFSET F.BKDN OFFSET ,2 OFFSET F.OVBS OFFSET F.NREC,2 OFFSET F.EOBB,2 OFFSET F.CNTG OFFSET F.RCNM,2 OFFSET F.STBK OFFSET ,2 OFFSET F.ALOC,2 OFFSET F.LUN,1S OFFSET F.FACC,1 OFFSET F.DSPT,2 OFFSET F.DFNB,2 OFFSET F.BKEF OFFSET F.EFN,1F OFFSET F.BKP1,1 OFFSET F.ERR,21 OFFSET F.MBCT,1 OFFSET F.MBC1,1 OFFSET F.MBFG,1 OFFSET F.BGBC,1 OFFSET F.VBSZ,2 OFFSET F.BBFS,2 OFFSET F.BKVB OFFSET F.VBN,41 OFFSET F.BDB,2 OFFSET ,8.D OFFSET F.FNB,S.FNBO! .IIF IDN,,,.MEXITF .IF IDN,,F* .GLOBL F.FNAM,F.FTYP,F.FVER,F.DVNM,F.UNIT .ENDC F.FNAM=N.FNAM+F.FNB F.FTYP=N.FTYP+F.FNB F.FVER=N.FVER+F.FNB F.DVNM=N.DVNM+F.FNB F.UNIT=N.UNIT+F.FNB OFFSET S.FDBF .MACRO FDOFF$ ARG .ENDM FDOFF$, .ENDM FDOFF$K 1 .MACRO BDOFF$ OFFSETF .MCALL OFFSET,DEF$I DEF$I 0 OFFSET ,4 OFFSET B.VBN,4G OFFSET B.BBFS,2 OFFSET B.NXBD,2 OFFSET ,1 OFFSET B.BFST,1 OFFSET ,2 OFFSET S.BFHD! .IIF IDN,,,.MEXIT .MACRO BDOFF$ ARG .ENDM BDOFF$ .ENDM BDOFF$T .MACRO NBOFF$ OFFSETN .MCALL OFFSET,DEF$I,DEF$L DEF$I 0 OFFSET S.FNAM OFFSET S.FTYP OFFSET S.FNTY OFFSET S.FNBW S.FNAM=6= S.FTYP=2B S.FNTY=/2F OFFSET N.FID,6R OFFSET N.FNAM,S.FNAMO OFFSET N.FTYP,S.FTYP1 OFFSET N.FVER,2 OFFSET S.NFEN DEF$L S.NFEND OFFSET N.STAT,2 OFFSET N.NEXT,2 OFFSET N.DID,62 OFFSET N.DVNM,2 OFFSET N.UNIT,2 OFFSET S.FNBO DEF$L S.FNB S.FNBW=S.FNB/2 ! .IIF IDN,,,.MEXITR .MACRO NBOFF$ ARG .ENDM NBOFF$M .ENDM NBOFF$R B .MACRO FSROF$ OFFSETF .MCALL OFFSET,DEF$I,DEF$L DEF$I 0 OFFSET ,4 OFFSET A.BFSR,2 OFFSET A.EFSR,2 OFFSET A.OWUI,2 OFFSET A.FIPR,2 OFFSET A.IOST,4 OFFSET A.DFDR,24. OFFSET A.DFBC,2 OFFSET S.FSR2 DEF$L S.FSR2 DEF$I 0 OFFSET ,14. OFFSET D.DFID,6 OFFSET D.DFDV,2 OFFSET D.DFUN,2! .IIF IDN,,,.MEXIT. .MACRO FSROF$ ARG .ENDM FSROF$. .ENDM FSROF$F .MACRO FDSOF$ OFFSET. .MCALL OFFSET,DEF$I,DEF$L DEF$I 0 OFFSET N.DEVD,4 OFFSET N.DIRD,4 OFFSET N.FNMD,4 OFFSET S.FIDS .IF IDN,,D DEF$L S.FIDS .MEXIT4 .ENDC .MACRO FDSOF$ ARG .ENDM FDSOF$E .ENDM FDSOF$F  .MACRO DEF$G VAR,SIZT .MCALL DEF$LF .IIF NB,VAR,.GLOBL VAR DEF$L VAR,SIZ .ENDM DEF$G .MACRO DEF$N VAR,SIZ. .MCALL DEF$LD DEF$L ,SIZ. .ENDM DEF$N .MACRO DEF$I IVAL ...TPC=IVAL .ENDM DEF$I .MACRO DEF$L SYM,SIZN .IF NB,SYM. SYM=...TPC .ENDC .IF NB,SIZ. ...TPC=...TPC+SIZ .ENDC .ENDM DEF$L .MACRO RAD50$ STRING,MAXWRD ...PC2=.  .RAD50 /STRING/ .IF GT,<.-...PC2>-<2*MAXWRD>T3 .ERROR STRING ;RAD50 - STRING TOO LONG, TRUNCATEDA .=...PC2+2*MAXWRD .MEXITS .ENDC .REPT MAXWRD-<<.-...PC2>/2> .WORD 0 .ENDR .ENDM RAD50$A  .MACRO CALL ADR JSR PC,ADR. .ENDM CALLA .MACRO RETURN RTS PCD .ENDM RETURNN .MACRO .INH MOV @#177776,-(SP)P BIS #340,@#177776 .ENDM .INH$ .MACRO .ENB MOV (SP)+,@#177776P .ENDM .ENB. .MACRO .PARAM .ENDM .PARAM .MACRO ABRT$C TSK,PSCT,ERR  .MCALL ABRT$,DIR$ .IF NDF $$$GLBA .PSECT $DPB$$$$$=.. .IFTF ABRT$ TSK .IFTO .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ABRT$C. .MACRO ABRT$S NADR,ERR. .MCALL RFA$,DIR$- RFA$ NADR MOV (PC)+,-(SP) .BYTE 83.,3 DIR$ ,ERR .ENDM ABRT$S .MACRO ABRT$ TSKM .MCALL R50$,OFF$U .IF NDF $$$GLBN .BYTE 83.,3 R50$ TSK .ENDC .IF NDF A.BTTNS .NLIST7 OFF$. OFF$ A.BTTN,4 .LIST .ENDC .ENDM ABRT$ .MACRO ALTP$C TN,PR,CS,ERRM .MCALL ALTP$,DIR$ .IF NDF $$$GLBP .PSECT $DPB$$$$$=., .IFTF ALTP$ TN,PR .IFTC .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ALTP$CC .MACRO ALTP$S TNAD,PRI,ERRC .MCALL MOV$,RFA$,DIR$ MOV$ PRID RFA$ TNAD MOV (PC)+,-(SP) .BYTE 9.,4V DIR$ ,ERR .ENDM ALTP$S .MACRO ALTP$ TN,PRR .MCALL R50$,OFF$  .IF NDF $$$GLB$ .BYTE 9.,4N R50$ TN .WORD PR. .ENDC .IF NDF A.LTTN. .NLISTB OFF$. OFF$ A.LTTN,4 OFF$ A.LTPR,2 .LIST .ENDC .ENDM ALTP$ .MACRO ALUN$C LUN,DA,DU,CS,ERRC .MCALL ALUN$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$$$$$=.F .IFTF ALUN$ LUN,DA,DU .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ALUN$C  .MACRO ALUN$S LUN,DA,DU,ERR .MCALL RVP$,DIR$,NBL$ NBL$  .IF EQ $$$ARG RVP$ <<.BYTE 7,2>>,LUNR .IFFM RVP$ <<.BYTE 7,4>>,LUN,DA,DU .ENDC DIR$ ,ERR .ENDM ALUN$S$ .MACRO ALUN$ LUN,DA,DU .MCALL OFF$,NBL$ .IF NDF $$$GLB NBL$ . .IF EQ $$$ARG .BYTE 7,2 .IFF. .BYTE 7,4 .IFTF .WORD LUN .IFFN .NLIST,$$$T1=0C .LIST .IRPC X,. .IF LT $$$T1-2. .ASCII /X/ .NLIST. $$$T1=$$$T1+1N .LIST .ENDC .ENDM .IIF EQ $$$T1, .ASCII / /. .IIF EQ $$$T1-1, .ASCII / / .WORD DUR .ENDC .ENDC .IF NDF A.LULUD .NLIST.+ .IRP X,<,,,>M OFF$ X< .ENDM .LIST .ENDC .ENDM ALUN$ .MACRO ASTX$C PSCT,ERRA .MCALL ASTX$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$$$$$=.N .IFTF ASTX$ .IFT$ .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ASTX$CL .MACRO ASTX$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 115.,1T DIR$ ,ERR .ENDM ASTX$S. .MACRO ASTX$N .IF NDF $$$GLB .BYTE 115.,1Q .ENDC .ENDM ASTX$ .MACRO CLEF$C EFN,CS,ERR/ .MCALL CLEF$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$$$$$=.R .IFTF CLEF$ EFN .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CLEF$CN .MACRO CLEF$S EFN,ERR .MCALL RVP$,DIR$  RVP$ <<.BYTE 31.,2>>,EFNL DIR$ ,ERR .ENDM CLEF$S. .MACRO CLEF$ EFN$ .MCALL OFF$ .IF NDF $$$GLB .BYTE 31.,2 .WORD EFN .ENDC .IF NDF C.LEEF  .NLISTV OFF$- OFF$ C.LEEF,2 .LIST .ENDC .ENDM CLEF$ .MACRO CMKT$C EFN,AST,PSCT,ERRL .MCALL CMKT$,DIR$ .IF NDF $$$GLBT .PSECT $DPB$$$$$=.C .IFTF CMKT$ EFN,AST .IFTF .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM CMKT$CE .MACRO CMKT$S EFN,AST,ERR .MCALL NBL$,RVP$,DIR$ NBL$ R .IF EQ $$$ARG MOV (PC)+,-(SP) .BYTE 27.,1 .IFF, RVP$ <<.BYTE 27.,3>>,EFN,ASTE .ENDC DIR$ ,ERR .ENDM CMKT$SF .MACRO CMKT$ EFN,AST. .MCALL NBL$,OFF$E .IF NDF $$$GLBN NBL$ S .IF EQ $$$ARG .BYTE 27.,1 .IFF. .BYTE 27.,3 .WORD EFN .WORD AST .ENDC .ENDC .IF NDF C.MKEF$ .NLISTF .IRP X,<,,> OFF$ XC .ENDM .LIST .ENDC .ENDM CMKT$ .MACRO CSRQ$C TT,RT,CS,ERRC .MCALL CSRQ$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.N .IFTF CSRQ$ TT,RT .IFTG .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CSRQ$CB .MACRO CSRQ$S TN,RN,ERR .MCALL RFA$,DIR$N .IF NB  RFA$ RN .IFTF RFA$ TN MOV (PC)+,-(SP) .IFT$ .BYTE 25.,5 .IFFS .BYTE 25.,3 .ENDC DIR$ ,ERR .ENDM CSRQ$S. .MACRO CSRQ$ TT,RTD .MCALL R50$,OFF$C .IF NDF $$$GLB$ .IF B . .BYTE 25.,3 .IFF. .BYTE 25.,5 .IFTF R50$ TT .IFFN R50$ RT .ENDC .ENDC .IF NDF C.SRTNR .NLISTL OFF$, OFF$ C.SRTN,4 OFF$ C.SRRN,4 .LIST .ENDC .ENDM CSRQ$ .MACRO DECL$C EFN,CS,ERR .MCALL DECL$,DIR$ .IF NDF $$$GLBB .PSECT $DPB$$$$$=.E .IFTF DECL$ EFN .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM DECL$CS .MACRO DECL$S EFN,ERR .MCALL RVP$,DIR$. .IF B  MOV (PC)+,-(SP) .BYTE 35.,1 .IFF  RVP$ <<.BYTE 35.,2>>,EFN .ENDC DIR$ ,ERR .ENDM DECL$SY .MACRO DECL$ EFN. .MCALL OFF$ .IF NDF $$$GLB. .IF B .BYTE 35.,1 .IFFF .BYTE 35.,2 .WORD EFN .ENDC .ENDC .IF NDF D.CLEFN .NLISTT OFF$C OFF$ D.CLEF,2 .LIST .ENDC .ENDM DECL$ .MACRO DSBL$C TASK,CS,ERR .MCALL DSBL$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$$$$$=.. .IFTF DSBL$ TASKE .IFTN .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM DSBL$C  .MACRO DSBL$S TN,ERR> .MCALL RFA$,DIR$ RFA$ TN MOV (PC)+,-(SP) .BYTE 91.,3 DIR$ ,ERR .ENDM DSBL$S .MACRO DSBL$ TASK .MCALL R50$,OFF$C .IF NDF $$$GLBF .BYTE 91.,3 R50$ TASK .ENDC .IF NDF D.SBTNE .NLIST. OFF$N OFF$ D.SBTN,4 .LIST .ENDC .ENDM DSBL$ .MACRO DSCP$C CS,ERR .MCALL DSCP$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$$$$$=.C .IFTF DSCP$ .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM DSCP$CS .MACRO DSCP$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 95.,1 DIR$ ,ERR .ENDM DSCP$SL .MACRO DSCP$R .IF NDF $$$GLB+ .BYTE 95.,1 .ENDC .ENDM DSCP$ .MACRO ENBL$C TN,CS,ERR .MCALL ENBL$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.R .IFTF ENBL$ TN. .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ENBL$C. .MACRO ENBL$S TN,ERRA .MCALL RFA$,DIR$ RFA$ TN MOV (PC)+,-(SP) .BYTE 93.,3 DIR$ ,ERR .ENDM ENBL$S .MACRO ENBL$ TN .MCALL R50$,OFF$$ .IF NDF $$$GLBN .BYTE 93.,3 R50$ TN .ENDC .IF NDF E.NBTNV .NLISTS OFF$Y OFF$ E.NBTN,4 .LIST .ENDC .ENDM ENBL$ .MACRO ENAR$C CS,ERR+ .MCALL ENAR$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.R .IFTF ENAR$ .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ENAR$CB .MACRO ENAR$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 101.,1 DIR$ ,ERR .ENDM ENAR$SC .MACRO ENAR$ .IF NDF $$$GLBC .BYTE 101.,1E .ENDC .ENDM ENAR$ .MACRO ENCP$C CS,ERRN .MCALL ENCP$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.R .IFTF ENCP$ .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ENCP$C .MACRO ENCP$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 97.,1 DIR$ ,ERR .ENDM ENCP$SD .MACRO ENCP$. .IF NDF $$$GLBF .BYTE 97.,1 .ENDC .ENDM ENCP$% .MACRO EXEC$C TN,PN,PRI,GC,UP,CS,ERR .MCALL EXEC$,DIR$ .IF NDF $$$GLBE .PSECT $DPB$$$$$=.. .IFTF EXEC$ TN,PN,PRI,GC,UP .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EXEC$CR! .MACRO EXEC$S TN,PN,PR,GC,PG,ERR$ .MCALL MVB$,MOV$,RFA$,DIR$D MVB$ PG,GC MOV$ PR RFA$ PN RFA$ TN MOV (PC)+,-(SP) .BYTE 13.,7 DIR$ ,ERR .ENDM EXEC$SS .MACRO EXEC$ TN,PN,PR,GC,UP .MCALL R50$,OFF$1 .IF NDF $$$GLBN .BYTE 13.,7 R50$ TN R50$ PN .WORD PR .BYTE UP,GC .ENDC .IF NDF E.XCTNA .NLISTCA .IRP X,<,,,,,>S OFF$ X$ .ENDM .LIST .ENDC .ENDM EXEC$ .MACRO EXIF$C EFN,CS,ERRR .MCALL EXIF$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.C .IFTF EXIF$ EFN .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EXIF$C  .MACRO EXIF$S EFN,ERR .MCALL RVP$,DIR$E RVP$ <<.BYTE 53.,2>>,EFN DIR$ ,ERR .ENDM EXIF$SL .MACRO EXIF$ EFNN .MCALL OFF$ .IF NDF $$$GLB .BYTE 53.,2 .WORD EFN .ENDC .IF NDF E.XFEFF .NLISTT OFF$L OFF$ E.XFEF,2 .LIST .ENDC .ENDM EXIF$ .MACRO EXIT$C CS,ERR> .MCALL EXIT$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.X .IFTF EXIT$ .IFTL .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EXIT$C= .MACRO EXIT$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 51.,1 DIR$ ,ERR .ENDM EXIT$SX .MACRO EXIT$. .IF NDF $$$GLB .BYTE 51.,1 .ENDC .ENDM EXIT$ .MACRO FIX$C TN,CS,ERRR .MCALL FIX$,DIR$L .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.. .IFTF FIX$ TN .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM FIX$C .MACRO FIX$S TN,ERR .MCALL RFA$,DIR$, RFA$ TN MOV (PC)+,-(SP) .BYTE 85.,3 DIR$ ,ERR .ENDM FIX$S .MACRO FIX$ TN. .MCALL R50$,OFF$D .IF NDF $$$GLBN .BYTE 85.,3 R50$ TN .ENDC .IF NDF F.IXTNI .NLIST( OFF$S OFF$ F.IXTN,4 .LIST .ENDC .ENDM FIX$ .MACRO GCOM$C BLK,BUF,CS,ERR .MCALL GCOM$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.R .IFTF GCOM$ BLK,BUF .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GCOM$C. .MACRO GCOM$S BLK,BUF,ERR .MCALL OFF$,RFA$,MOV$,DIR$. MOV$ BUF RFA$ BLKC MOV (PC)+,-(SP) .BYTE 67.,4 DIR$ ,ERR .IF NDF G.COBBR .NLIST.$$$OST=05 .IRP X,<,,,>N OFF$ X8 .ENDM5 .IRP X,<,,,>F OFF$ X4 .ENDM .LIST .ENDC .ENDM GCOM$S  .MACRO GCOM$ BLK,BUF .MCALL OFF$,R50$ .IF NDF $$$GLB .BYTE 67.,4 R50$ BLK. .WORD BUF .ENDC .IF NDF G.COBN  .NLIST  OFF$R OFF$ G.COBN,4 OFF$ G.COBA,2 .IF NDF G.COBBE$$$OST=05 .IRP X,<,,,>C OFF$ X .ENDM5 .IRP X,<,,,> OFF$ X< .ENDM .ENDC .LIST .ENDC .ENDM GCOM$ .MACRO GPRT$C PRT,BUF,CS,ERRO .MCALL GPRT$,DIR$ .IF NDF $$$GLB> .PSECT $DPB$$$$$=.. .IFTF GPRT$ PRT,BUF .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GPRT$C$ .MACRO GPRT$S PRT,BUF,ERR .MCALL MOV$,RFA$,DIR$ MOV$ BUFG RFA$ PRTL MOV (PC)+,-(SP) .BYTE 65.,4 DIR$ ,ERR .IF NDF G.PRPBE .NLIST0$$$OST=0* .IRP X,<,,> OFF$ X  .ENDM .LIST .ENDC .ENDM GPRT$S, .MACRO GPRT$ PRT,BUF> .MCALL OFF$,R50$M .IF NDF $$$GLB .BYTE 65.,4 R50$ PRTA .WORD BUF .ENDC .IF NDF G.PRPNP .NLIST OFF$F OFF$ G.PRPN,4 OFF$ G.PRBA,2 .IF NDF G.PRPBP$$$OST=0* .IRP X,<,,> OFF$ X$ .ENDM .ENDC .LIST .ENDC .ENDM GPRT$ .MACRO GLUN$C LUN,BUFD,CS,ERR .MCALL GLUN$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$$$$$=. .IFTF GLUN$ LUN,, .IFTB .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GLUN$CT .MACRO GLUN$S LUN,BUFD,ERRA .MCALL RVP$,DIR$ RVP$ BUFD .NLIST.$$$T1=$$$ARG+2 .LIST RVP$ <<.BYTE 5,$$$T1>>,LUN DIR$ ,ERR .IF NDF G.LUNAL .NLISTF$$$OST=06 .IRP X,<,,,> OFF$ X. .ENDM .LIST .ENDC .ENDM GLUN$S$ .MACRO GLUN$ LUN,BUFD .MCALL OFF$ .IF NDF $$$GLB  .NLISTU$$$ARG=2 .IRP X,$$$ARG=$$$ARG+1F .ENDM .LIST .BYTE 5,$$$ARG .WORD LUN .IRP X, .WORD X .ENDM .ENDC .IF NDF G.LULU .NLISTU+ .IRP X,<,,,>V OFF$ X .ENDM .IF NDF G.LUNAT$$$OST=06 .IRP X,<,,,> OFF$ XN .ENDM .ENDC .LIST .ENDC .ENDM GLUN$ .MACRO GMCR$C CS,ERRL .MCALL GMCR$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.. .IFTF GMCR$ .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GMCR$C. .MACRO GMCR$$ .MCALL OFF$ .IF NDF $$$GLB .BYTE 127.,41. .BLKW 40. .ENDC .IF NDF G.MCRB .NLIST. OFF$. OFF$ G.MCRB,80. .LIST .ENDC .ENDM GMCR$ .MACRO GSSW$C CS,ERR .MCALL GSSW$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.A .IFTF GSSW$ .IFT1 .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GSSW$C. .MACRO GSSW$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 125.,1F DIR$ ,ERR .ENDM GSSW$S$ .MACRO GSSW$F .IF NDF $$$GLB .BYTE 125.,1R .ENDC .ENDM GSSW$ .MACRO GTIM$C BUFA,CS ERR .MCALL GTIM$,DIR$ .IF NDF $$$GLBY .PSECT $DPB$$$$$=.. .IFTF GTIM$ BUFAM .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GTIM$C. .MACRO GTIM$S BUFA,ERRC .MCALL RVP$,DIR$,OFF$ RVP$ <<.BYTE 61.,2>>,BUFA DIR$ ,ERR .IF NDF G.TIYRG .NLISTF$$$OST=05 .IRP X,<,,,>S OFF$ X .ENDM5 .IRP X,<,,,>N OFF$ X$ .ENDM .LIST .ENDC .ENDM GTIM$SY .MACRO GTIM$ BUFA .MCALL OFF$ .IF NDF $$$GLBF .BYTE 61.,2 .WORD BUFA$ .ENDC .IF NDF G.TIBAC .NLIST OFF$ OFF$ G.TIBA,2 .IF NDF G.TIYRS$$$OST=05 .IRP X,<,,,>F OFF$ X. .ENDM5 .IRP X,<,,,>. OFF$ XT .ENDM .ENDC .LIST .ENDC .ENDM GTIM$ .MACRO GTSK$C BUFA,CS,ERR .MCALL GTSK$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.I .IFTG GTSK$ BUFAO .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GTSK$CM .MACRO GTSK$S BUFA,ERRF .MCALL RVP$,DIR$,OFF$ RVP$ <<.BYTE 63.,2>>,BUFA DIR$ ,ERR .IF NDF G.TSTNF .NLIST $$$OST=0@ .IRP X,<,,,,> OFF$ XH .ENDM@ .IRP X,<,,,,> OFF$ XO .ENDM OFF$ G.TSVL,2 .LIST .ENDC .ENDM GTSK$S. .MACRO GTSK$ BUFA .MCALL OFF$ .IF NDF $$$GLBN .BYTE 63.,2 .WORD BUFA .ENDC .IF NDF G.TSBAF .NLIST OFF$C OFF$ G.TSBA,2 .IF NDF G.TSTNN$$$OST=0@ .IRP X,<,,,,> OFF$ XU .ENDM@ .IRP X,<,,,,> OFF$ X> .ENDM OFF$ G.TSVL,2 .ENDC .LIST .ENDC .ENDM GTSK$ .MACRO IHAR$C CS,ERR< .MCALL IHAR$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$$$$$=.S .IFTF IHAR$ .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM IHAR$CF .MACRO IHAR$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 99.,1 DIR$ ,ERR .ENDM IHAR$S. .MACRO IHAR$F .IF NDF $$$GLB0 .BYTE 99.,1 .ENDC .ENDM IHAR$" .MACRO MRKT$C EF,TM,TU,AST,CS,ERR .MCALL MRKT$,DIR$ .IF NDF $$$GLBT .PSECT $DPB$$$$$=.F .IFTF MRKT$ EF,TM,TU,AST. .IFTO .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM MRKT$C .MACRO MRKT$S EF,TM,TU,AST,ERRH .MCALL RVP$,DIR$$" RVP$ <<.BYTE 23.,5>>,EF,TM,TU,AST DIR$ ,ERR .ENDM MRKT$S  .MACRO MRKT$ EFN,TM,TU,AST. .MCALL OFF$ .IF NDF $$$GLBR .BYTE 23.,5 .WORD EFN .WORD TMY .WORD TUD .WORD AST .ENDC .IF NDF M.KTEFR .NLISTN6 .IRP X,<,,,,> OFF$ X, .ENDM .LIST .ENDC .ENDM MRKT$6 .MACRO QIO$C FNC,LUN,EFN,PRI,IOST,AST,PRMLST,PSCT,ERR .MCALL QDPB$,DIR$ .IF NDF $$$GLBD .PSECT $DPB$$$$$=.. .IFTF* QDPB$ 1,FNC,LUN,EFN,PRI,IOST,AST, .IFT$ .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM QIO$C1 .MACRO QIO$S FNC,LUN,EFN,PRI,IOST,AST,PRMLST,ERR. .MCALL QDPB$S/ QDPB$S 1,FNC,LUN,EFN,PRI,IOST,AST,,ERRY .ENDM QIO$S, .MACRO QIO$ FNC,LUN,EFN,PRI,IOST,AST,PRMLST .MCALL QDPB$K* QDPB$ 1,FNC,LUN,EFN,PRI,IOST,AST, .ENDM QIO$M5 .MACRO QIOW$C FNC,LUN,EFN,PRI,IOST,AST,PRMLST,CS,ERRF .MCALL QDPB$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$$$$$=.$ .IFTF* QDPB$ 3,FNC,LUN,EFN,PRI,IOST,AST, .IFTN .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM QIOW$C 2 .MACRO QIOW$S FNC,LUN,EFN,PRI,IOST,AST,PRMLST,ERR .MCALL QDPB$S/ QDPB$S 3,FNC,LUN,EFN,PRI,IOST,AST,,ERR, .ENDM QIOW$ST- .MACRO QIOW$ FNC,LUN,EFN,PRI,IOST,AST,PRMLSTL .MCALL QDPB$,* QDPB$ 3,FNC,LUN,EFN,PRI,IOST,AST, .ENDM QIOW$1 .MACRO QDPB$ DIC,FNC,LUN,EFN,PRI,IOST,AST,PRMLSTE .MCALL OFF$ .IF NDF $$$GLB .NLISTD$$$ARG=6 .IRP X,$$$ARG=$$$ARG+1$ .ENDM .LIST .BYTE DIC,$$$ARGP .WORD FNC .WORD LUN .BYTE EFN,PRI .WORD IOSTE .WORD AST .IRP XTMP,R .WORD XTMPL .ENDM .ENDC .IF NDF Q.IOFN. .NLISTB9 .IRP XTMP,<,,,,>M OFF$ XTMP .ENDM+ .IRP XTMP,<,,> OFF$ XTMP .ENDM .LIST .ENDC .ENDM QDPB$6 .MACRO QDPB$S DIC,FNC,LUN,EFN,PRI,IOST,AST,PRMLST,ERR .MCALL RVP$,MVB$,DIR$ RVP$ PRMLST .NLISTL$$$T1=$$$ARG+6 .LIST RVP$ IOST,AST MVB$ EFN,PRIN! RVP$ <<.BYTE DIC,$$$T1>>,FNC,LUNO DIR$ ,ERR .ENDM QDPB$SE .MACRO RDAF$C BA,CS,ERR .MCALL RDAF$,DIR$ .IF NDF $$$GLBX .PSECT $DPB$$$$$=.. .IFTF RDAF$ BAL .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RDAF$C, .MACRO RDAF$S BA,ERRM .MCALL RVP$,DIR$S RVP$ <<.BYTE 39.,2>>,BA DIR$ ,ERR .ENDM RDAF$ST .MACRO RDAF$ BA .MCALL OFF$ .IF NDF $$$GLBN .BYTE 39.,2 .WORD BAE .ENDC .IF NDF R.DABA$ .NLISTR OFF$. OFF$ R.DABA,2.A .LIST .ENDC .ENDM RDAF$ .MACRO RDEF$C EF,CS,ERR .MCALL RDEF$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.  .IFTF RDEF$ EF. .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RDEF$C .MACRO RDEF$S EF,ERRF .MCALL RVP$,DIR$R RVP$ <<.BYTE 37.,2>>,EF DIR$ ,ERR .ENDM RDEF$S, .MACRO RDEF$ EFND .MCALL OFF$ .IF NDF $$$GLB .BYTE 37.,2 .WORD EFN .ENDC .IF NDF R.DEEFL .NLIST. OFF$$ OFF$ R.DEEF,2 .LIST .ENDC .ENDM RDEF$ .MACRO RCVD$C TN,BA,CS,ERR. .MCALL RCVD$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.F .IFTF RCVD$ TN,BA .IFTI .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RCVD$CF .MACRO RCVD$S TN,BA,ERR .MCALL MOV$,RFA$,DIR$ MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 75.,4 DIR$ ,ERR .ENDM RCVD$ST .MACRO RCVD$ TN,BAE .MCALL R50$,OFF$ .IF NDF $$$GLBD .BYTE 75.,4 R50$ TN .WORD BA. .ENDC .IF NDF R.VDTN. .NLISTF .IRP X,<,,> OFF$ XF .ENDM .LIST .ENDC .ENDM RCVD$ .MACRO RCVS$C TN,BA,CS,ERRC .MCALL RCVS$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$$$$$=.F .IFTF RCVS$ TN,BA .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RCVS$CA .MACRO RCVS$S TN,BA,ERR .MCALL MOV$,RFA$,DIR$ MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 79.,4 DIR$ ,ERR .ENDM RCVS$SA .MACRO RCVS$ TN,BAC .MCALL R50$,OFF$F .IF NDF $$$GLBY .BYTE 79.,4 R50$ TN .WORD BAN .ENDC .IF NDF R.VSTNL .NLISTR .IRP X,<,,> OFF$ XN .ENDM .LIST .ENDC .ENDM RCVS$ .MACRO RCVX$C TN,BA,CS,ERRC .MCALL RCVX$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$$$$$=.F .IFTF RCVX$ TN,BA .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RCVX$CA .MACRO RCVX$S TN,BA,ERR .MCALL MOV$,RFA$,DIR$ MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 77.,4 DIR$ ,ERR .ENDM RCVX$SA .MACRO RCVX$ TN,BAC .MCALL R50$,OFF$F .IF NDF $$$GLBY .BYTE 77.,4 R50$ TN .WORD BAN .ENDC .IF NDF R.VXTNL .NLISTR .IRP X,<,,> OFF$ XN .ENDM .LIST .ENDC .ENDM RCVX$# .MACRO RQST$C TN,PN,PR,GC,P,CS,ERRX .MCALL RQST$,DIR$ .IF NDF $$$GLBB .PSECT $DPB$$$$$=.V .IFTF RQST$ TN,PN,PR,GC,P .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM .MACRO RQST$S TN,PN,PR,GC,P,ERR .MCALL MVB$,MOV$,RFA$,DIR$( MVB$ P,GC MOV$ PR RFA$ PN RFA$ TN MOV (PC)+,-(SP) .BYTE 11.,7 DIR$ ,ERR .ENDM RQST$SN .MACRO RQST$ TN,PN,PR,GC,P0 .MCALL R50$,OFF$. .IF NDF $$$GLBV .BYTE 11.,7 R50$ TN R50$ PN .WORD PR2 .BYTE P,GC .ENDC .IF NDF R.QSTN. .NLIST$A .IRP X,<,,,,,>F OFF$ X .ENDM .LIST .ENDC .ENDM RQST$ .MACRO RSUM$C TN,CS,ERR .MCALL RSUM$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$$$$$=.N .IFTF RSUM$ TNL .IFTM .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RSUM$CA .MACRO RSUM$S TN,ERR .MCALL RFA$,DIR$  RFA$ TN MOV (PC)+,-(SP) .BYTE 47.,3 DIR$ ,ERR .ENDM RSUM$S. .MACRO RSUM$ TN .MCALL R50$,OFF$0 .IF NDF $$$GLB. .BYTE 47.,3 R50$ TN .ENDC .IF NDF R.SUTN .NLIST OFF$, OFF$ R.SUTN,4 .LIST .ENDC .ENDM RSUM$/ .MACRO RUN$C TN,PN,PR,UG,UP,SM,SU,RM,RU,CS,ERR. .MCALL RUN$,DIR$  .IF NDF $$$GLB .PSECT $DPB$$$$$=.F .IFTF RUN$ TN,PN,PR,UG,UP,SM,SU,RM,RU .IFTU .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RUN$C, .MACRO RUN$S TN,PN,PR,UG,UP,SM,SU,RM,RU,ERR .MCALL RVP$,MVB$,MOV$,RFA$,DIR$ RVP$ SM,SU,RM,RU. MVB$ UP,UGR MOV$ PR RFA$ PN RFA$ TN MOV (PC)+,-(SP) .BYTE 17.,11. DIR$ ,ERR .ENDM RUN$S& .MACRO RUN$ TN,PN,PR,GC,P,SM,SU,RM,RU .MCALL R50$,OFF$. .IF NDF $$$GLB. .BYTE 17.,11. R50$ TN R50$ PN .WORD PRP .BYTE P,GCC .IRP X,R .WORD X .ENDM .ENDC .IF NDF R.UNTNF .NLISTA .IRP X,<,,,,,>R OFF$ X .ENDM5 .IRP X,<,,,>C OFF$ XM .ENDM .LIST .ENDC .ENDM RUN$.4 .MACRO SCHD$C TN,PN,PR,UG,UC,H,M,S,T,RM,RU,CS,ERR .MCALL SCHD$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.U .IFTF# SCHD$ TN,PN,PR,UG,UC,H,M,S,T,RM,RUF .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SCHD$C./ .MACRO SCHD$S TN,PN,PR,UG,UP,H,M,S,T,RM,RU,ERR. .MCALL RVP$,MVB$,MOV$,RFA$,DIR$ RVP$ H,M,S,T,RM,RUR MVB$ UP,UG, MOV$ PR RFA$ PN RFA$ TN MOV (PC)+,-(SP) .BYTE 15.,13. DIR$ ,ERR .ENDM SCHD$SU* .MACRO SCHD$ TN,PN,PR,UG,UP,H,M,S,T,RM,RU .MCALL R50$,OFF$C .IF NDF $$$GLB. .BYTE 15.,13. R50$ TN R50$ PN .WORD PRE .BYTE UP,UG .IRP X, .WORD X .ENDM .ENDC .IF NDF S.CHTN, .NLISTU6 .IRP X,<,,,,> OFF$ XN .ENDM5 .IRP X,<,,,>. OFF$ X$ .ENDM* .IRP X,<,,> OFF$ XV .ENDM .LIST .ENDC .ENDM SCHD$ .MACRO SDAT$C TN,BA,EFN,CS,ERR .MCALL SDAT$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$$$$$=.. .IFTF SDAT$ TN,BA,EFN .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SDAT$C. .MACRO SDAT$S TN,BA,EFN,ERR .MCALL RVP$,RFA$,DIR$ RVP$ BA,EFN RFA$ TN MOV (PC)+,-(SP) .BYTE 71.,5 DIR$ ,ERR .ENDM SDAT$S. .MACRO SDAT$ TN,BA,EFNM .MCALL R50$,OFF$1 .IF NDF $$$GLBH .BYTE 71.,5 R50$ TN .WORD BAM .WORD EFN .ENDC .IF NDF S.DATNH .NLISTO+ .IRP X,<,,,> OFF$ XD .ENDM .LIST .ENDC .ENDM SDAT$+ .MACRO SDRQ$C TN,PN,PR,UG,UP,BA,EFN,CS,ERR. .MCALL SDRQ$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.R .IFTF SDRQ$ TN,PN,PR,UG,UP,BA,EFN .IFTA .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SDRQ$CA( .MACRO SDRQ$S TN,PN,PR,UG,UP,BA,EFN,ERR .MCALL RVP$,MVB$,MOV$,RFA$,DIR$ RVP$ BA,EFN MVB$ UP,UG$ MOV$ PR RFA$ PN RFA$ TN MOV (PC)+,-(SP) .BYTE 73.,9.. DIR$ ,ERR .ENDM SDRQ$SS# .MACRO SDRQ$ TN,PN,PR,UG,UP,BA,EFN> .MCALL R50$,OFF$, .IF NDF $$$GLB. .BYTE 73.,9.. R50$ TN R50$ PN .WORD PRQ .BYTE UP,UG .WORD BAC .WORD EFN .ENDC .IF NDF S.DRTN$ .NLIST.+ .IRP X,<,,,>, OFF$ XE .ENDM5 .IRP X,<,,,> OFF$ XD .ENDM .LIST .ENDC .ENDM SDRQ$ .MACRO SETF$C EFN,CS,ERR .MCALL SETF$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.V .IFTF SETF$ EFN .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SETF$CR .MACRO SETF$S EFN,ERR .MCALL RVP$,DIR$F RVP$ <<.BYTE 33.,2>>,EFNR DIR$ ,ERR .ENDM SETF$SQ .MACRO SETF$ EFNO .MCALL OFF$ .IF NDF $$$GLBF .BYTE 33.,2 .WORD EFN .ENDC .IF NDF S.ETEFN .NLISTP OFF$ OFF$ S.ETEF,2 .LIST .ENDC .ENDM SETF$ .MACRO$ SFPA$C AST,CS,ERR .MCALL SFPA$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$$$$$=.C .IFTF SFPA$ AST .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SFPA$CF .MACRO SFPA$S AST,ERR .MCALL RVP$,DIR$$ RVP$ <<.BYTE 111.,2>>,AST DIR$ ,ERR .ENDM SFPA$S .MACRO SFPA$ AST .MCALL OFF$ .IF NDF $$$GLBR .BYTE 111.,2S .WORD AST .ENDC .IF NDF S.FPAEF .NLISTN OFF$L OFF$ S.FPAE,2 .LIST .ENDC .ENDM .MACRO SPND$C CS,ERRP .MCALL SPND$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$$$$$=.R .IFTF SPND$ .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SPND$C .MACRO SPND$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 45.,1 DIR$ ,ERR .ENDM SPND$SR .MACRO SPND$R .IF NDF $$$GLBR .BYTE 45.,1 .ENDC .ENDM SPND$ .MACRO SPRA$C AST,CS,ERRA .MCALL SPRA$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$$$$$=.S .IFTF SPRA$ AST .IFTN .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SPRA$CT .MACRO SPRA$S AST,ERR .MCALL RVP$,DIR$. RVP$ <<.BYTE 109.,2>>,AST DIR$ ,ERR .ENDM SPRA$S= .MACRO SPRA$ AST .MCALL OFF$ .IF NDF $$$GLBE .BYTE 109.,2N .WORD AST .ENDC .IF NDF S.PRAEL .NLISTM OFF$+ OFF$ S.PRAE,2 .LIST .ENDC .ENDM SPRA$ .MACRO SRDA$C AST,CS,ERRF .MCALL SRDA$,DIR$ .IF NDF $$$GLBM .PSECT $DPB$$$$$=.A .IFTF SRDA$ AST .IFTI .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SRDA$CF .MACRO SRDA$S AST,ERR .MCALL RVP$,DIR$$ RVP$ <<.BYTE 107.,2>>,AST DIR$ ,ERR .ENDM SRDA$S. .MACRO SRDA$ ASTR .MCALL OFF$ .IF NDF $$$GLB .BYTE 107.,2R .WORD AST .ENDC .IF NDF S.RDAE$ .NLISTF OFF$E OFF$ S.RDAE,2 .LIST .ENDC .ENDM SRDA$ .MACRO SVDB$C AD,LN,CS,ERRO .MCALL SVDB$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$$$$$=.T .IFTF SVDB$ AD,LN .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SVDB$CS .MACRO SVDB$S AD,LN,ERR .MCALL RVP$,DIR$ RVP$ <<.BYTE 103.,3>>,AD,LN DIR$ ,ERR .ENDM SVDB$SV .MACRO SVDB$ A,LB .MCALL OFF$ .IF NDF $$$GLB. .BYTE 103.,3. .WORD A .WORD L .ENDC .IF NDF S.VDTAL .NLISTE .IRP X,<,,> OFF$ XA .ENDM .LIST .ENDC .ENDM SVDB$ .MACRO SVTK$C ADR,LEN,CS,ERR. .MCALL SVTK$,DIR$ .IF NDF $$$GLBV .PSECT $DPB$$$$$=.L .IFTF SVTK$ ADR,LEN .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SVTK$CR .MACRO SVTK$S ADR,LEN,ERR .MCALL RVP$,DIR$E RVP$ <<.BYTE 105.,3>>,ADR,LEN DIR$ ,ERR .ENDM SVTK$S  .MACRO SVTK$ TA,TL .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 105.,3L .WORD TA1 .WORD TLO .ENDC .IF NDF S.VTTA. .NLISTV .IRP X,<,,> OFF$ XL .ENDM .LIST .ENDC .ENDM SVTK$3 .MACRO SYNC$C TN,PN,PR,UG,UP,SM,SU,SY,RM,RU,CS,ERRL .MCALL SYNC$,DIR$ .IF NDF $$$GLBC .PSECT $DPB$$$$$=.F .IFTF$ SYNC$ TN,PN,PR,UG,UP,SM,SU,SY,RM,RU .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SYNC$C0 .MACRO SYNC$S TN,PN,PR,UG,UP,SM,SU,SY,RM,RU,ERR .MCALL RVP$,MVB$,MOV$,RFA$,DIR$ RVP$ SM,SU,SY,RM,RU MVB$ UP,UGF MOV$ PR RFA$ PN RFA$ TN MOV (PC)+,-(SP) .BYTE 19.,12. DIR$ ,ERR .ENDM SYNC$S.+ .MACRO SYNC$ TN,PN,PR,UG,UP,SM,SU,SY,RM,RUN .MCALL R50$,OFF$ .IF NDF $$$GLBA .BYTE 19.,12. R50$ TN R50$ PN .WORD PRL .BYTE UP,UG .IRP X, .WORD X .ENDM .ENDC .IF NDF S.YNTNN .NLIST,A .IRP X,<,,,,,>S OFF$ X. .ENDM@ .IRP X,<,,,,> OFF$ XR .ENDM .LIST .ENDC .ENDM SYNC$ .MACRO UFIX$C TN,CS,ERR .MCALL UFIX$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$$$$$=. .IFTF UFIX$ TN, .IFTP .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM UFIX$CL .MACRO UFIX$S TN,ERR0 .MCALL RFA$,DIR$O RFA$ TN MOV (PC)+,-(SP) .BYTE 87.,3 DIR$ ,ERR .ENDM UFIX$SN .MACRO UFIX$ TN .MCALL R50$,OFF$  .IF NDF $$$GLB. .BYTE 87.,3 R50$ TN .ENDC .IF NDF U.FXTN  .NLISTM OFF$  OFF$ U.FXTN,4 .LIST .ENDC .ENDM UFIX$ .MACRO WSIG$C CS,ERR .MCALL WSIG$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.R .IFTF WSIG$ .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM WSIG$CI .MACRO WSIG$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 49.,1 DIR$ ,ERR .ENDM WSIG$S. .MACRO WSIG$O .IF NDF $$$GLB( .BYTE 49.,1 .ENDC .ENDM WSIG$ .MACRO WTLO$C SET,MASK,CS,ERR .MCALL WTLO$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$$$$$=.  .IFTF WTLO$ SET,  .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM WTLO$CU#; OPERAND REPRESENTING A MASK WORD  .MACRO WTLO$S SET,MSK,ERR .MCALL MOV$,RVP$,DIR$ .IF EQ SET-4$ .NLIST$$$T1=0S .IRP X,R $$$T1=$$$T1+1M .ENDM .LIST .REPT <4-$$$T1> CLR -(SP) .ENDR RVP$ MSKY .IFF1 MOV$ MSKR .IF NE SET$ MOV #SET,-(SP)O .IFFN CLR -(SP) .ENDC .IFTF MOV (PC)+,-(SP) .IFTR .BYTE 43.,5 .IFFE .BYTE 43.,3 .ENDC DIR$ ,ERR .ENDM WTLO$S  .MACRO WTLO$ SET,MASK .IF NDF $$$GLB .IF EQ SET-4C .BYTE 43.,5 .IRP X, .WORD X .ENDM .IFFD .BYTE 43.,3 .WORD SET .WORD MASKO .ENDC .ENDC .ENDM WTLO$ .MACRO WTSE$C EF,CS,ERR .MCALL WTSE$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.. .IFTF WTSE$ EFT .IFTR .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM WTSE$CF .MACRO WTSE$S EF,ERRP .MCALL RVP$,DIR$S RVP$ <<.BYTE 41.,2>>,EF DIR$ ,ERR .ENDM WTSE$S4 .MACRO WTSE$ EFNE .MCALL OFF$ .IF NDF $$$GLBN .BYTE 41.,2 .WORD EFN .ENDC .IF NDF W.TSEF  .NLIST  OFF$ OFF$ W.TSEF,2 .LIST .ENDC .ENDM WTSE$ .MACRO DIR$ ADR,ERR .MCALL ERR$ .IF NB . MOV ADR,-(SP) .ENDC EMT 377 .IIF NB , ERR$ ERR .ENDM DIR$ .MACRO ERR$ ERR .MCALL CALL .IF NB F .NLISTE .NTYPE $$$T1,ERR  .LIST .IIF EQ $$$T1-27, BCC .+6 .IIF EQ $$$T1-37, BCC .+6 .IF GE $$$T1-60 BCC .+6 .IFFT .IF NE $$$T1-27 .IIF NE $$$T1-37, BCC .+4 .ENDC .ENDC CALL ERR$ .ENDC .ENDM ERR$. .MACRO MVB$ LOW,HIGH .IF B .IF B L CLR -(SP) .IFF CLRB -(SP)I MOVB HIGH,1(SP) .ENDC .IFF .IF B . CLR -(SP) MOVB LOW,(SP) .IFFR MOVB LOW,-(SP)E MOVB HIGH,1(SP) .ENDC .ENDC .ENDM MVB$ .MACRO NBL$ LIST. .NLISTL$$$ARG=0 .IRP X, .IIF NB ,$$$ARG=$$$ARG+1 .ENDM .LIST .ENDM NBL$. .MACRO OFF$ SYMB,LEN6 .IF NB  .IF NDF $$$GLBF SYMB=$$$OST$ .IFF SYMB==$$$OST .ENDC .IF NB .$$$OST=$$$OST+LEN. .ENDC .IFFR$$$OST=2 .ENDC .ENDM OFF$F .MACRO RFA$ ADR .IF NB S .NLIST  .NTYPE $$$T2,ADRV .LIST .IF LT $$$T2-6F MOV 2(ADR),-(SP) MOV (ADR),-(SP) .IFF) MOV ADR,-(SP) MOV @(SP),-(SP) ADD #2,2(SP)N MOV @2(SP),2(SP)M .ENDC .IFFB CLR -(SP) CLR -(SP) .ENDC .ENDM RFA$* .MACRO RVP$ P0,P1,P2,P3,P4,P5,P6,P7,P8,P9 .MCALL MOV$ .NLIST .NARG $$$ARG .LIST .IIF GT $$$ARG-9., MOV$ $ .IIF GT $$$ARG-8., MOV$ . .IIF GT $$$ARG-7, MOV$  .IIF GT $$$ARG-6, MOV$  .IIF GT $$$ARG-5, MOV$  .IIF GT $$$ARG-4, MOV$  .IIF GT $$$ARG-3, MOV$  .IIF GT $$$ARG-2, MOV$  .IIF GT $$$ARG-1, MOV$  .IIF GT $$$ARG, MOV$ .ENDM RVP$) .MACRO R50$ NAMEP .NLIST@ .NCHR $$$T1,NAMEC .LIST .IF EQ $$$T1C .WORD 0,0 .IFF. .IF GT $$$T1-6R $$$T4=.+41 .IFTF .RAD50 /NAME/ .IFTL.=$$$T4. .ENDC .IIF LT $$$T1-4, .WORD 0I .ENDC .ENDM R50$< .MACRO MOV$ ARG .IF B CLR -(SP) .IFFR .IF IDN ,<#0> CLR -(SP) .MEXIT> .ENDC .NLIST-$$$T2=0P .IRPC X, .IF EQ $$$T2>$$$T2=1T .LIST .IF IDN ^/X/,^/ MOV (PC)+,-(SP) XX- .ENDM .IFF. MOV ARG,-(SP) .ENDC .ENDC .MEXIT. .ENDM .ENDC .ENDM MOV$. .MACRO CALL ADR JSR PC,ADRE .ENDM CALLO .MACRO RETURN RTS PC$ .ENDM RETURN+41 .IFTF .RAD50 /NAME/ .IFTL.=$$$T4. .ENDC .IIF LT $$$T1-4, .WORD 0I .ENDC .ENDM R50$< .MACRO MOV$ ARG .IF B CLR -(SP) .IFFR .IF IDN ,<#0> CLR -(SP) .MEXIT> .ENOJ %t^rsXfee@jfmff4f\~gmfg9 h*9 n'h*F VNYM h* (2 %2 2&2 (2 :2 `2 2 2(2}h.a h.ph.2gh.`^h.T2Pjz&zbzl *zk*z*z*z4!*zK*z L*z7M*zR*zY*zT[*zf*zr*zt*zt*zw*zw*zy*zy*zt*z*z*"{&2&{t 2&{P2&{82&{W2&{W2&{W2&{Z2&{y2&{2.{V&2_oda h.m`^h.v8h';}s@:C~pK,CpZDTpvw@p8F`W;3a~WV4a` XBa8"X:dw@epC>evCDfTC~afZDTkf`;DxkfKqE"\gF\ghyH kzI2qWL7qLP7qqN8IqN"VqMN\qO4s)@s"&PHtLP tyQvq)vXuQ w`*KqQh~RHRxYSTwS}SjTf(_TaU*`X1e1 qe18wf1hyf7Xg;VNY;dh*T0 h.\iyXYTYr= @="hi`0jd &kHkJ`'l`wlZZ֯Z֯L Z֯[ ޯg'[R\B Pwm S,\,H:nj,VN]@,Q],:d]~,^J-lvL ^wL mju~^Z\M^\D$kTmfnos_(ұ`qxձ`$ձz`#`hepxq Xa&aya` zb 4fb>._oV'bjMc:xc*r(ܲ""cܲ#d@ܲ`dܲ)ddPܲ@webs;hq:[rozJp* SpL`@=@*@=@}@ 8r@hp!@:@*}@o@(?Sh@Sh   *w  8ag5je5l (<o*&5 @# [AdBbAhp!*Lep@p @ $}*rpnP @ A } *Buhfɥ;?a**@j a  5`@@*   e,`* w je5lj ɥ@o*0aujk, p*V 5f fʇȕ Ňȕ=@=*|  eSY@=*@p$# e,w|e, @hp!* Dl$5ljaCe``*#~@#  hp!":** wjDl@ TeB 8r*:B~5l@ An)f& `*` D    2  C*  @nДՀa &@J*=L\D@o@(=h *w ,  pp*C o*&p(˥˥ ˥˥ ђ˥*L=  (p(  (*rp(p& `!  rC e* e{ttttxt&tt "t$t&x(ttxttxttxx*tx t txttxxttxxxxx*ttx  xxxx*BBBxxBx,:];/=[!"BBB x xBx&* E͋  #Z*2 A90**X .$ *~! 0 %  %*  v%@ w  *8 &   ] \D* W! ʥ*wx@&*&   wX ʥ*\D*<w6-   w@*b %w  @ w *   % wȥ.*  % ȥ* V  ςpJ*@=L\D@o@(l@=h *w 00 0  (ȥȥo*& * B J 5:: ] BJ*L ]&fŔ` eΤd*reDB Ŕ`Ӌ ` *Ţ l*  ť/ ť= *(* P &f& ʥ-*  @  6L!e*00] 0]5$0M*V E  ]E  M *|EW/W: W=W,* l  V&fע*ĬĜ& Ĝ* e  $\D*&lR![ŕ]  R!:͋ ŕ=E :/=,XXҥ* J*\DLo@( D"(v\Dh  D"*w &Ba & W.   o*&+- 0   *Lb `    rJ* L 5@W@"(H& & & & ` fܲ)d*&RRRR@   (ܲ#L JNh*4fNhLܲ#@ܲ)d@(64fh *  2f& & & ܲ)d&wܲ#~JN*RNLܲ`@('Rh  Uw ܲ`JN*,NL(,h   C @AW P ~JN*,VNNLܲ#@ܲ)d@(,VNh  R ܲ)dܲ#JN*,QNLܲ)d@(.,Qh * P)&( ܲ)d &~JN*,:dNLܲ#@ܲ)d@"(0,h,:dh *A C & & & ܲ)dܲ)d&&&w ܲ#JN*,NLܲ#@ܲ)d@(,h   ?ܲ)dܲ#~JN*vL NLܲ#@(q:yh  & cܲ#JN*u~NLܲ#@ܲ)d@(zQDh   RRRr ܲ)dܲ#.JN*\MNL)` @@"ܲ)d@(||S]h *  4ܲ)d*&e   e  )` *Lf &f& )` r%sJN*sNL)%@ܲ#@"ܲ)d@(Tgh *& & e m&ܲ)d)%$ܲ#*&f&fe  )% LsJN*ձNLܲ)d@(P"Kq hKq^h Kq`h *KOM & & &ܲ)d*&&& @ '  LJN*#NLܲ)d@ܲ@w@"(#hYqh    wܲ)dܲ@w~JN*ձzNLܲ`@([qMh  /w ܲ`JN* XNLܲ#@ܲ)d@(wh     Gܲ)dܲ#JN*NLܲ)d@ܲ@w@(xrh I w ܲ)dܲ@wJN(*yN(Lܲ#@(6Iqh(y}h * B W/=v7 &f& }ܲ#$JN* zNLܲ)d@ܲ@w@*(dsh"@whzhB * x$w  ܲ)d$ܲ@w*& Xew ܲ)dܲ@w&ܲ)dLewܲ@w~JN* 4fNLܲ#@(z4fh  & -ܲ#~JN*V'NLܲ`@(v:h@;(h Yh0/hJ  * F@_ @@@ .@ &*& B =v@ A@x L@JN*\NLwL @("\h & & & af& L wL JN(*hN(Lp@2g@*P<@2g@)p @)p @)@*w@wL @ܲ)d@(@8h@8h" *  z ܲ)d)p (ܲ)d*&<  X 6)p *L6` e gAL `B ~&2g*r  ew 2g pP<"w* a ewL ()f& LJN(*0N(L)@\@*w@ܲ)d@(.@8h@8h  * BAeAܲ)d&) & w\ wJN(* &N(L\@$y@**@ܲ)d@(Rnh * C  ܲ)d$y\*&; e  ", @ 2@* L$JN(*N(L\@$y@**@ܲ)d@(Zhhh  *   $ ܲ)d$y\*&&v %,~ *Le;$JN(*`'N(L\@w@"$y@(&^Kh *&    v vvw$y\(wJN*wNL*@( whzh $   e%*JN*-NL)@(4$yh *BA AaAW eA B )& BaB B JN(*kTN(L\@z@*$y@ܲ)d@(>h^@Qh kKhLw@8h *     ܲ)d&  %w$y \zJN*wL NL(*wL h  *  U> e,s&JN* PwNL(( \qh* Pwh xh zh h  *& & & & Aff& &JN*NL Pw@4u~@(,ysh * fB A  & & f4u~ &w PwJN(*,H:N(L(.4u~h  *W &=epr  &  JN*._NL Pw@("_h &fD e& & & &&& w$ PwJN*NL \q@ z@*4u~@*@(6}h *f BwA & f  z4u~&ww \q*|JN*rNL}@a @*p@`^@P<@2g@da @*m`^@)p @)p @da @m`^@"($q@8h4q@8hh *&  x  )p p}da "m`^*& A }Wt} - a `^}"}&}*L 4 e4-&&}2g2gP<2g&)p *r ==e&pda m`^`^ a (2g*we a   `` 2g"4tWW- a  `^JN(*heN(L\@w@*$y@ܲ)d@(6k@Qhq gh  q ghs@8h *   ܲ)d&  w$y \wJN(*xN(L)H)p H*)` H)%H)p H)H,0z@(JN*ұ`NLn@(4ph * $& avCpN`n&Gd zJN**NL(*h  )  ܲ)d&  w$y \wJN(*xN(L)H)p H*)` H)%H)p H)H,0z@(N(*ұ`NLn@(4ph * $& avC*f&f&7 Z"ON$Ԫ&Of(Z&ԪԪ  Ԫ &ԪԪ  Ԫ,&ԪԪ  Ԫ*8~B \ ~ Of B(*^ f&&&&& \  *e\5>愾 >Fl.&ź+ k*>''+$IriL?̨̔몿@:J*dL쨀p@vp@*p@:@Ԫp@ON@@"p@(#h *D f C_  fW & @ &&&&&7 nxn&ONnԪpx:nB~*vpp~ Ԫp 쨀pvp쨀p*P^de\\;@&쨀pvp^ 쨀p dԪp*v\ \N @   =@f*&ysE[\pCf&f&\%* a @   "pnJ*xdL@i@*v@p@,@Ԫ@ON@*Of@@(dh *fD 2 C+  F$e*&&&&&\);@7 d ON"Ԫ$d&i(L*d:&,* d i:,*Z0dd@  *0d d ԪOf$p*  I6Af& *l>f&"yB7 &ON(@vR&@Ԫ Ԫ vR* ffff7 &v ON Ԫ"*  a  *&\e\ \\&&&*L&\\*r\ \@3eޘ@7Q@׋@êg{H~J*+L쨀p@vp@*p@:@Ԫp@ON@p@"(/+h/0h *& Dr)&&\  *& 5@5@7 $ON&p(L~(쨀pvp  Ԫp~\*Ԫp쨀p Ԫp 쨀pԪp쨀pj(Ԫp쨀p : Ԫp쨀p*xf&\  \& Ԫp*\\r1@\*[?\ e ?U?p *@ڪATJ*l+L@v@*p@,@Ԫ@ON@Of@*@(+h0h *& fDezr&*&&&&A  e3*L5@e35@7 (ONr& v Ԫ*OfԪ  ԪԪ&Ԫ Ԫ Ԫ(Ԫ  ,Ԫ*$$e Cf $Ԫ $p*&&&&& \\*& \\z*r1@\ r(7[?\*@ -?v9?uοMc?kA`5?I f2f?(*@ A/~J*L(hh 6 6 \J*@8L( h"h@8hph $    \jJ*ԪL쨀p@Ԫp@*ON@p@(|Ԫh *&7   ONԪp*&7 47 L( ON Ԫp쨀p4$ON&Ԫp(L*L7 feONԪppfre\DJ*v________________________________________________________________________________________________________________________________@^^JSYSYSYSYLPTT[O w * 8R)   B !)&*& &eP&eB * hep*&*&#   <p* pw  ( 6*0))*" & 8p0 *  *)    Dep    E` E :p &,#C#  x   Epe*w z  w 8ww#w w0 *0 0 0  0 0 40 60)  p Y# HQ  *w 2s qp0p202 #* P) !@#**ffff $ w8e 82&e ^/p8q +0 00  000  **#&*eB *****] #U # U#&&# f&eB $ bF 6  #?@#040 6&# X@#0l **# 028   ! p0p2w V ]U*T&   B  22 6f6   E  2 x ~ E *** 2 <*0,  @**  L)*) B ,#" #0Z (f  t  ` E ep ) l 0, , < ** w w  C  )0406 l0 &ff 141612epl2l0p8e2 1f& e% e&&eH&eP&f ^ p  f &* t* *) l0, *) $ )*)0,40,6     ff   *w TB C %, ? e 1 $e f  D 0, *  DP5R~RRR~ 8  **w h*    6 p 4 0`p  bf) 64 e* e0,0, f 톇p   w      % f&eB v plp **&f  EU   pr0 =B@&& p&  N pv C`B `v 0rr D wC r UeeA e* 0s rp v& sBvrp   )  6 4* *82e& 0 0 0 80 B0 0 0 0# 00l 0e6p 4 8 v   &6&4f  , $eB  8 $& w * nso#k   U@e ff  ,, Me <&e * 1-1- 111! rrrrr 1   xĔ%.%%;?~ 5%5@<D ͥ*Ce BX%wUO5@ U U*U  U@5 U*U  ʥ*%C!-D` )eC5U5  5 5@e*w l*D B UqqC ӥ: ~Ce    *Ce DBe  De 4  /1 z 1  qqq1 1 1 1 1 1 1 1 1 *w L ҥ[, ]  sf&5ҕ[ V5ҕ, F5ҕ]&e* p PqLa  ~@(Et55tF e0ҐtIC~ D "W!ZW!AW!9W!0@w 0fBC "& 4 SY*p0p2q1 "f  e e p* : f( f)f ɥ1 Bep`p ) N!f  e) \e6p 4 08*  4f& ( & "&f ɗ+8e ދe ~@v     ȥ7 D % %CA3,3,# C&  N  CA   QF!ۂ e e D AU%  B C  <& &&  U &&& & &&e& N& E) ʋU&f& v w eE D` bl lrw Z  B eE!s   s-  Csl&f w 6&Ba & W.   +- 0   b `    zz[qO4[`H[yH[\}H D""Xhh2ɪKrhwhhhhWhBz;Ph@;VNh\`h4}h6 Xh8 }h\DhVhp!h}sh kYkZIDpoq go q go $q@8m4q@8mIqYIq_vKq ^:Kq^^:Kq`^:Yq^[qM^s@8o s`0t<2,t 2,@w`0Lw@8k|w_<w0 Yxr_y}_vyslz4f`Tjz&z`0zl *zk*z*z*z4!*zK*z L*z7M*zR*zY*zT[*zf*zr*zt*zt*zw*zw*zy*zy*zt*z*z*"{&2,&{t 2,&{P2,&{82,&{W2,&{W2,&{W2,&{Z2,&{y2,&{2,.{V&2,_mda fDm`^fDv<`&}m~Y`aPÐHXa:YXS9x& :%j:%j:_%j:`%jh';}s@:BѲ:SѲ:SѲ:Pܲ""aܲ#bVܲ#bVܲ`bܲ)dbfܲ@wc*aK+a[M+aVN*b+.bG+cIq- d?!.Bd;/e&0ze&0zeZ.e$+e?+f-ft:.fy:4lwSmlE8|mS7me7mo7p# @pJ,BpK,BXpZCpvw@pF`W;3a~Ul4a` VBa8"V*:dw@epBevBXDfTBafZCkf`;CkfKqD\gE\ghyGkzID2qWK7qK7qqLIqLVqMM|\qN64s)@s"&NtLNtyOzvq)vXuOrw`*KqOh~PHPYQwQ0}QR(_SaS*`V1c1 qc18wd1hyd7Xe;VNW;df@T0 fD\gyXWTW= @="hgv0hz &i^i``'jvwj.X*X֯X&֯L X֯Y"ޯg'YRZX Pwl S,Z,H:l,VN[V,Q[,:d[,\`-jvL \wL ku~\p\M]\D$kTk|lms]>ұ`oձ^:ձz^#^heo xo X_<_y_v z`0 4f`T._mV'`jMaPxa*p>ܲ""aܲ#bVܲ`bܲ)dbfܲ@wc*bs;fq:YrmJp* SpL`@=@*@=@}@ 8r@hp!@:@*}@o@(?Sh@Sh   *w  8ag5je5l (<o*&5 @# [AdBbAhp!*Lep@p @ $}*rpnP @ A } *Buhfɥ;?a**@j a  5`@@*   e,`* w je5lj ɥ@o*0aujk, p*V 5f fʇȕ Ňȕ=@=*|  eSY@=*@p$# e,w|e, @hp!* Dl$5ljaCe``*#~@#  hp!":** wjDl@ TeB 8r*:B~5l@ An)f& `*` D    2  C*  @nДՀa &@J*=L\D@o@(=h *w ,  pp*C o*&p(˥˥ ˥˥ ђ˥*L=  (p(  (*rp(p& `!  rC e* e{ttttxt&tt "t$t&x(ttxttxttxx*tx t txttxxttxxxxx*ttx  xxxx*BBBxxBx,:];/=[!"BBB x xBx&* E͋  #Z*2 A90**X .$ *~! 0 %  %*  v%@ w  *8 &   ] \D* W! ʥ*wx@&*&   wX ʥ*\D*<w6-   w@*b %w  @ w *   % wȥ.*  % ȥ* V  ςpJ*@=L\D@o@(l@=h *w 00 0  (ȥȥo*& * B J 5:: ] BJ*L ]&fŔ` eΤd*reDB Ŕ`Ӌ ` *Ţ l*  ť/ ť= *(* P &f& ʥ-*  @  6L!e*00] 0]5$0M*V E  ]E  M *|EW/W: W=W,* l  V&fע*ĬĜ& Ĝ* e  $\D*&lR![ŕ]  R!:͋ ŕ=E :/=,XXҥ* J*\DLo@( D"(v\Dh  D"*w &Ba & W.   o*&+- 0   *Lb `    rJ* L 5@W@"(H& & & & ` fܲ)d*&RRRR@   (ܲ#L JNh*4fNhLܲ#@ܲ)d@(64fh *  2f& & & ܲ)d&wܲ#~JN*RNLܲ`@('Rh  Uw ܲ`JN*,NL(,h   C @AW P ~JN*,VNNLܲ#@ܲ)d@(,VNh  R ܲ)dܲ#JN*,QNLܲ)d@(.,Qh * P)&( ܲ)d &~JN*,:dNLܲ#@ܲ)d@"(0,h,:dh *A C & & & ܲ)dܲ)d&&&w ܲ#JN*,NLܲ#@ܲ)d@(,h   ?ܲ)dܲ#~JN*vL NLܲ#@(q:yh  & cܲ#JN*u~NLܲ#@ܲ)d@(zQDh   RRRr ܲ)dܲ#.JN*\MNL)` @@"ܲ)d@(||S]h *  4ܲ)d*&e   e  )` *Lf &f& )` r%sJN*sNL)%@ܲ#@"ܲ)d@(Tgh *& & e m&ܲ)d)%$ܲ#*&f&fe  )% LsJN*ձNLܲ)d@(P"Kq hKq^h Kq`h *KOM & & &ܲ)d*&&& @ '  LJN*#NLܲ)d@ܲ@w@"(#hYqh    wܲ)dܲ@w~JN*ձzNLܲ`@([qMh  /w ܲ`JN* XNLܲ#@ܲ)d@(wh     Gܲ)dܲ#JN*NLܲ)d@ܲ@w@(xrh I w ܲ)dܲ@wJN(*yN(Lܲ#@(6Iqh(y}h * B W/=v7 &f& }ܲ#$JN* zNLܲ)d@ܲ@w@*(dsh"@whzhB * x$w  ܲ)d$ܲ@w*& Xew ܲ)dܲ@w&ܲ)dLewܲ@w~JN* 4fNLܲ#@(z4fh  & -ܲ#~JN*V'NLܲ`@(v:h@;(h Yh0/hJ  * F@_ @@@ .@ &*& B =v@ A@x L@JN*\NLwL @("\h & & & af& L wL JN(*hN(Lp@2g@*P<@2g@)p @)p @)@*w@wL @ܲ)d@(@8h@8h" *  z ܲ)d)p (ܲ)d*&<  X 6)p *L6` e gAL `B ~&2g*r  ew 2g pP<"w* a ewL ()f& LJN(*0N(L)@\@*w@ܲ)d@(.@8h@8h  * BAeAܲ)d&) & w\ wJN(* &N(L\@$y@**@ܲ)d@(Rnh * C  ܲ)d$y\*&; e  ", @ 2@* L$JN(*N(L\@$y@**@ܲ)d@(Zhhh  *   $ ܲ)d$y\*&&v %,~ *Le;$JN(*`'N(L\@w@"$y@(&^Kh *&    v vvw$y\(wJN*wNL*@( whzh $   e%*JN*-NL)@(4$yh *BA AaAW eA B )& BaB B JN(*kTN(L\@z@*$y@ܲ)d@(>h^@Qh kKhLw@8h *     ܲ)d&  %w$y \zJN*wL NL(*wL h  *  U> e,s&JN* PwNL(( \qh* Pwh xh zh h  *& & & & Aff& &JN*NL Pw@4u~@(,ysh * fB A  & & f4u~ &w PwJN(*,H:N(L(.4u~h  *W &=epr  &  JN*._NL Pw@("_h &fD e& & & &&& w$ PwJN*NL \q@ z@*4u~@*@(6}h *f BwA & f  z4u~&ww \q*|JN*rNL}@a @*p@`^@P<@2g@da @*m`^@)p @)p @da @m`^@"($q@8h4q@8hh *&  x  )p p}da "m`^*& A }Wt} - a `^}"}&}*L 4 e4-&&}2g2gP<2g&)p *r ==e&pda m`^`^ a (2g*we a   `` 2g"4tWW- a  `^JN(*heN(L\@w@*$y@ܲ)d@(6k@Qhq gh  q ghs@8h *   ܲ)d&  w$y \wJN(*xN(L)H)p H*)` H)%H)p H)H,0z@(JN*ұ`NLn@(4ph * $