skQxc,<0Q  !UT8.;.`K. 6{N48h/4;h/h4Kh/85[15[05[0|L 82L ;1lL K2$r /Hr /r 0/ &(K-M.")}E8O~: O f6836;26K2)42)3)4w85;4K5ύ؍N8;K% Ct2CtCt( )7B)6)6/./ 08;KΫϫ\xn8H{n7n7qg;qz8O9L;O8KO8:%>ة,(,-,f{"zwFks8t9t9t9`8h:P;h:(Kh:2/2/2 0|[ R !!!!!! |'!);'!):'!);h6!8R6!;6!K[!8N[!;([!Kq!t<q!t;q!t<ls!8h=`s!;h<8s!Kh<""w #)= #)= #)=t #8> #;> #K>l#8?#;?J#K?#HAR#H@# I@ &  &Q !&9!&Jt"& "&)"&)"&Hb"& I"&z/&&%/&)V/&9h/&Jh2&2& ^3&^+&^&b&:z&{; (^*(z\;,x<;,{<|;,<bA,x<A,{<lA,<DE,kKE,KE,8OE,s{<s<&;s8Y.;s;X;sKX|Us)Us)Us)BsxUZs{UYXsUZs[s8ZRs[8ty$vz9wx 9w{ J9w 9wKODwx<Dw{<0Dw<aw8].aw;\awK\rw`rwrw vrw8hrw;hrwKhw)^tw)]2w)]wx _rw{ ^.w ^x/ x/\x 00x8h yS.y fy_.y`y `Cy:tEyx aEy{ `Ey a>Ny8bNy;aNyKb:Ryx cFRy{ bRy bWy[FWy[Wy[yx dFy{ cy cyx eFy{ dy dy)y)y)y8f^y;eyKeyx <y{ y y)gxy)f(y)fy}6yxUhpy{UgByUh yayafy b*y8hy;h:yKhyx#y{#y#X4zjZ4zi4ziDzHkDzHj:Dz Ij[X3c')l')k|')l2I8h8I;hIKhL:L8h`L;hLKhS8mS;lSKlSzn0SzmS {nxS8oS;oRSKo"|x q|{ p| pr,r sr8bS`b (}>/t/s^ 0tau at btx#v{#vN#v\,E&\tH\ Ijla w,"HwtRh\a e^a DB^ .BLKB NFILES*S.BFHD+B .IFF .BLKB NFILES*T .ENDC .PSECT PSECTL .ENDM FSRSZ$fQ  .MACRO FDBDF$ .MCALL FDBSZ$ FDBSZ$B ...PC1=.L .BLKB S.FDB .ENDM FDBDF$EQ ' .MACRO FDAT$A RTYP,RATT,RSIZ,CNTG,ALOC .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$L, CBYTE$ ,F.RTYPA CBYTE$ ,F.RATTC CWORD$ ,F.RSIZD CWORD$ ,F.CNTG CWORD$ ,F.ALOCS .ENDM FDAT$AQ  .MACRO FDRC$A RACC,URBA,URBS, .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LF CBYTE$ ,F.RACCH CWORD$ ,F.URBD+2  CWORD$ ,F.URBD .ENDM FDRC$AQ ( .MACRO FDOP$A LUN,FNPT,DFNB,FACC,FACTRL .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$L. CBYTE$ ,F.LUNT CWORD$ ,F.DSPTL CWORD$ ,F.DFNB CBYTE$ ,F.FACC  CWORD$ ,F.ACTLR .ENDM FDOP$ACQ ! .MACRO FDBF$A EFN,OVBS,MBCT,MBFG  .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$L CBYTE$ ,F.EFNC CWORD$ ,F.OVBSD CBYTE$ ,F.MBCTO CBYTE$ ,F.MBFGC .ENDM FDBF$AOQ , .MACRO FDBK$A BKAD,BKSZ,BKVB,BKEF,BKST,BKDN .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LF CWORD$ ,F.BKDS+2$ CWORD$ ,F.BKDS  CWORD$ ,F.BKVB+2U CBYTE$ ,F.BKEFP CWORD$ ,F.BKSTN CWORD$ ,F.BKDNC .ENDM FDBK$ACQ + .MACRO FDAT$R FDB,RTYP,RATT,RSIZ,CNTG,ALOCE .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBW CMOV$B RTYP,F.RTYP CMOV$B RATT,F.RATT CMOV$W RSIZ,F.RSIZD CMOV$W CNTG,F.CNTGC CMOV$W ALOC,F.ALOCM .ENDM FDAT$RBQ ! .MACRO FDRC$R FDB,RACC,URBA,URBS, .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDB$ CMOV$B RACC,F.RACCO CMOV$W URBA,F.URBD+2C CMOV$W URBS,F.URBD .ENDM FDRC$RFQ , .MACRO FDOP$R FDB,LUN,FNPT,DFNB,FACC,FACTRL .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDB CMOV$B LUN,F.LUNT CMOV$W FNPT,F.DSPT, CMOV$W DFNB,F.DFNBD CMOV$B FACC,F.FACCL CMOV$W FACTRL,F.ACTLP .ENDM FDOP$R$Q % .MACRO FDBF$R FDB,EFN,OVBS,MBCT,MBFGC .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDB CMOV$B EFN,F.EFNR CMOV$W OVBS,F.OVBSA CMOV$B MBCT,F.MBCT$ CMOV$B MBFG,F.MBFGB .ENDM FDBF$R Q 0 .MACRO FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN# .MCALL LDFDB$,CMOV$B,CMOV$W,CMOV$2P LDFDB$ FDBP CMOV$W BKAD,F.BKDS+2C CMOV$W BKSZ,F.BKDSV CMOV$2 BKVB,F.BKVBO CMOV$B BKEF,F.BKEF$ CMOV$W BKST,F.BKST$ CMOV$W BKDN,F.BKDN$ .ENDM FDBK$R~Q  .MACRO FDBSZ$ .IIF DF,S.FDB,.MEXIT .MCALL FDOFF$,DEF$L FDOFF$ DEF$NC DEF$L S.FDB .ENDM FDBSZ$BRQ  .MACRO FDOF$L .MCALL FDOFF$ FDOFF$ DEF$L .ENDM FDOF$LCQ + .MACRO NMBLK$ FNAME,FTYPE,VERS,DEVNAM,UNITD .MCALL RAD50$,CWORD$,NBOFF$ NBOFF$ DEF$LL .IIF NDF,...PC1,...PC1=0$ ...PC3=...PC1 ...PC1=.K .=...PC1+N.FNAM RAD50$ ,S.FNAM/2 .=...PC1+N.FTYP RAD50$ ,S.FTYP/2 CWORD$ ,N.FVERK .IF NB,DEVNAM .=...PC1+N.DVNM .WORD "DEVNAM .ENDC CWORD$ ,N.UNITI .=...PC1+S.FNB$ ...PC1=...PC3 .ENDM NMBLK$SRQ  .MACRO NBOF$L .MCALL NBOFF$ NBOFF$ DEF$LD .ENDM NBOF$LEQ  .MACRO LDFDB$ FDB .IIF B,FDB,.MEXIT .NTYPE PAR$$$,FDB .IIF EQ,PAR$$$,.MEXIT MOV FDB,R0 .ENDM LDFDB$Q  .MACRO CMOV$W VAR,OFFSET. .IF IDN,<#0>,. CLR OFFSET(R0)A .MEXITM .ENDC .IIF NB,VAR, MOV VAR,OFFSET(R0) .ENDM CMOV$WVQ  .MACRO CMOV$B VAR,OFFSETM .IF IDN,<#0>,N CLRB OFFSET(R0) .MEXIT .ENDC! .IIF NB,VAR, MOVB VAR,OFFSET(R0)B .ENDM CMOV$BQ  .MACRO CMOV$2 VAR,OFFSETF .IIF B,VAR,.MEXIT MOV VAR,-(SP) MOV @(SP),OFFSET(R0)F ADD #2,(SP) MOV @(SP)+,OFFSET+2(R0) .ENDM CMOV$2RQ  .MACRO CBYTE$ VAR,OFFSET .IF NB,VAR ...PC2=.V .=...PC1+OFFSET .BYTE VAR .=...PC2R .ENDC .ENDM CBYTE$Q  .MACRO CWORD$ VAR,OFFSETN .IF NB,VAR ...PC2=. .=...PC1+OFFSET .WORD VAR .=...PC2< .ENDC .ENDM CWORD$TQ & .MACRO CSTRG$ VAR,OFFSET,MAXLG,FILL=04 .IF NB, ; IF THE STRING TO INSERT IS NON NULL, .NCHR ...PC3, ; PICK UP STRING LENGTH1 .IF GE MAXLG-...PC3 ; VERIFY IT IS NOT TOO LONGF ...PC2=. ; SAVE CURRENT PC+ .=...PC1+OFFSET ; ADDRESS DESIRED OFFSETF) .ASCII ^VAR^ ; INSERT VALUE AT OFFSETY- .REPT MAXLG-...PC3 ; PAD TO MAXIMUM LENGTH .BYTE FILL. .ENDR$ .=...PC2 ; RETURN TO PREVIOUS PC .IFF .ERROR ; ARGUMENT TOO LONGC .ENDCC .ENDC .ENDM CSTRG$ZQ  .MACRO CGET$B OFFSET,VARI" .IIF NB MOVB OFFSET(R0),VAR .ENDMZQ  .MACRO CGET$W OFFSET,VARP! .IIF NB MOV OFFSET(R0),VARC .ENDM~ Q  .MACRO FCSBT$ GLOBL .MCALL DEFIN$ ...GBL=0+" .IIF IDN,,,...GBL=1 DEFIN$ FD.FTN,1 DEFIN$ FD.CR,2F DEFIN$ FD.PRN,4 DEFIN$ FD.BLK,10M DEFIN$ FD.RWM,1 DEFIN$ FD.RAN,2 DEFIN$ FD.PLC,4 DEFIN$ FD.INS,10U DEFIN$ FD.REC,1 DEFIN$ FD.CCL,2 DEFIN$ FD.TTY,4 DEFIN$ FD.DIR,10C DEFIN$ FD.SDI,20 DEFIN$ FD.SQD,40B DEFIN$ FD.ISP,2000B DEFIN$ FD.OSP,4000) DEFIN$ FD.PSE,10000 DEFIN$ FD.COM,20000 DEFIN$ FD.F11,40000 DEFIN$ FD.MNT,100000, DEFIN$ NB.VER,1 DEFIN$ NB.TYP,2 DEFIN$ NB.NAM,4 DEFIN$ NB.SVR,10. DEFIN$ NB.STP,20G DEFIN$ NB.SNM,40L DEFIN$ NB.DIR,100 DEFIN$ NB.DEV,200 DEFIN$ NB.SD1,400 DEFIN$ NB.SD2,1000F- DEFIN$ NB.ANS,2000 ;SET IF QUOTED NAME FOUND47 DEFIN$ NB.WCH,4000 ;WILD CHARACTER PROCESSING REQUIRED>; ***** BEWARE MORE BITS IN N.STAT USED BY FCS AND PIP LOCALLY$; CHECK DEFINITION SECTION IN FCSPRE;N DEFIN$ R.FIX,1D DEFIN$ R.VAR,20 DEFIN$ R.SEQ,32& DEFIN$ R.STM,4 ;STREAM ASCII RECORDS DEFIN$ FA.RD,1N DEFIN$ FA.WRT,2 DEFIN$ FA.EXT,4 DEFIN$ FA.CRE,10  DEFIN$ FA.TMP,20  DEFIN$ FA.SHR,40 I; BIT VALUE 200 IN F.FACC IS RESERVED FOR USE BY RSTS/E, FOR THEIR FO.TSKF; TASK IMAGE FILE ACCESS.B;S DEFIN$ FA.APD,100 DEFIN$ FA.NSP,100;B DEFIN$ FO.RD,FA.RDC# DEFIN$ FO.WRT,FA.WRT!FA.EXT!FA.CREA# DEFIN$ FO.APD,FA.WRT!FA.EXT!FA.APDD DEFIN$ FO.MFY,FA.WRTE DEFIN$ FO.UPD,FA.WRT!FA.EXT DEFIN$ FA.ENB,100000FA DEFIN$ FA.SEQ,40000 ;ENABLE SEQUENTIAL PROCESSING ONLY (NON-RSX)R( DEFIN$ FA.WCK,20000 ;ENABLE WRITE CHECK: DEFIN$ FA.POS,10000 ; FILE CREATION POS. CTRL FOR MAGTAPE7 DEFIN$ FA.RWD,4000 ; ENABLE REWIND CONTROL FOR MAGTAPE 0 DEFIN$ FA.EXL,4000 ;ENABLE MANUAL BLOCK LOCKING* DEFIN$ FA.LKL,2000 ;ENABLE BLOCK BLOCKING& DEFIN$ FA.EXC,2000 ;EXCLUSIVE USE BIT6 DEFIN$ FA.DLK,1000 ; ENABLE NO LOCK ON ABNORMAL CLOSE> DEFIN$ CH.AND,1 ;ANSI FORMAT MAG TAPE: 'D' (VARIABLE LENGTH),/ ;OR 'F' (FIXED LENGTH, INCLUDING BLOCK I/O)0;; DEFIN$ FD.RAH,1 DEFIN$ FD.WBH,2 DEFIN$ FF.RWD,1 DEFIN$ FF.POE,2 DEFIN$ FF.NV,3D DEFIN$ FF.SPC,4 DEFIN$ FF.CHR,5 DEFIN$ FF.RWF,6I; DEFINE BITS USED IN .FCTYP TO DESCRIBE FCS CONDITIONAL ASSEMBLY OPTIONSL;0;E= DEFIN$ FT.ANI,1 ; ANSI MAG TAPE FCS (CONDITIONAL R$$ANI > 1)L0 DEFIN$ FT.BBF,2 ; BIG BUFFERED FCS (R$$BBF > 1)2 DEFIN$ FT.MBF,4 ; MULTI BUFFERED FCS (R$$MBF > 1);D .MACRO FCSBT$ ARG .ENDM FCSBT$E .ENDM FCSBT$ fQ  .MACRO DEFIN$ SYM,VAL .IIF EQ,...GBL-1,.GLOBL SYM SYM=^O .ENDM DEFIN$DQ  .MACRO FDOFF$ OFFSET  .MCALL OFFSET,DEF$I,NBOFF$D 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,1M 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,10 ;ALSO USED FOR ANSI TAPE INPUT BUFFER OFFSET OFFSET F.VBSZ,2 OFFSET F.BBFS,2 OFFSET F.BKVB OFFSET F.VBN,4T OFFSET F.BDB,22 OFFSET F.SPDV,2 OFFSET F.SPUN,1 OFFSET F.CHR,1  OFFSET F.ACTL,2 OFFSET F.SEQN,2 OFFSET F.FNB,S.FNBM! .IIF IDN,,,.MEXITF .IF IDN,,,* .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.FDBG .MACRO FDOFF$ ARG .ENDM FDOFF$D .ENDM FDOFF$IQ  .MACRO BDOFF$ OFFSETF .MCALL OFFSET,DEF$I DEF$I 0 OFFSET ,4 OFFSET B.VBN,4, OFFSET B.BBFS,2 OFFSET B.NXBD,2 OFFSET ,1 OFFSET B.BFST,1 OFFSET ,2 OFFSET S.BFHD! .IIF IDN,,,.MEXITF .MACRO BDOFF$ ARG .ENDM BDOFF$S .ENDM BDOFF$.Q  .MACRO NBOFF$ OFFSET .MCALL OFFSET,DEF$I,DEF$L DEF$I 0 OFFSET S.FNAM OFFSET S.FTYP OFFSET S.FNTY OFFSET S.FNBW OFFSET S.ANM1 OFFSET S.ANM2% S.FNAM=6 ;SIZE OF FILENAME IN BYTESN& S.FTYP=2 ;SIZE OF FILE TYPE IN BYTES' S.ANM1=12. ;SIZE OF ANSI NAME FIELD 1I& S.ANM2=5. ;SIZE OF ANSI NAME FIELD 2< S.FNTY=/2 ;SIZE OF FILENAME + TYPE IN WORDS4 OFFSET N.FID,2 ;FILE ID (REALLY 6 BYTES, FOR DISK)= OFFSET N.ANM1,4 ;ANM1 OVERLAYS FID WORDS 2 AND 3, FNAM, FTYP OFFSET N.FNAM,S.FNAM ;FILENAMEE OFFSET N.FTYP,S.FTYPI OFFSET N.FVER,2 OFFSET S.NFEN DEF$L S.NFEN OFFSET N.STAT,2 OFFSET N.NEXT,2) OFFSET N.ANM2 ;ANSI NAME 2 OVERLAYS DIDE OFFSET N.DID,6Y OFFSET N.DVNM,2 OFFSET N.UNIT,2 OFFSET S.FNBM DEF$L S.FNB S.FNBW=S.FNB/2 ! .IIF IDN,,,.MEXITF .MACRO NBOFF$ ARG .ENDM NBOFF$; .ENDM NBOFF$EQ  .MACRO FSROF$ OFFSETI .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.DPB,24.P OFFSET A.IOST,41 OFFSET A.DFDR,26. ;DEFAULT DIRECTORY INFORMATION. OFFSET A.DFBC,2 OFFSET A.DFUI,2;25; DEFINE POINTER TO INDIRECT JUMP TABLE FOR LIBRARIES ;V0 OFFSET A.JUMP,4 ;ADDRESS OF JUMP TABLE AND SIZE;1; DEFINE M-PLUS SUPERVISOR MODE LIBRARY FLAG WORDF;.5 OFFSET A.MODE,2 ; 0 = USER MODE, 1 = SUPERVISOR MODE OFFSET S.FSR2 DEF$L S.FSR2E DEF$I 0 OFFSET ,16. OFFSET D.DFID,6 OFFSET D.DFDV,2 OFFSET D.DFUN,2! .IIF IDN,,,.MEXITE .MACRO FSROF$ ARG .ENDM FSROF$F .ENDM FSROF$OQ  .MACRO FDSOF$ OFFSETM .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,,F DEF$L S.FIDS  .MEXIT .ENDC .MACRO FDSOF$ ARG .ENDM FDSOF$G .ENDM FDSOF$FrQ  .MACRO DEF$G VAR,SIZS .MCALL DEF$LE .IIF NB,VAR,.GLOBL VAR DEF$L VAR,SIZ .ENDM DEF$GVQ  .MACRO DEF$N VAR,SIZF .MCALL DEF$L, DEF$L ,SIZE .ENDM DEF$NFQ  .MACRO DEF$I IVAL ...TPC=^O .ENDM DEF$IQ  .MACRO DEF$L SYM,SIZI .IF NB,SYMI SYM=^O<...TPC>D .ENDC .IF NB,SIZ ...TPC=^O<...TPC+SIZ> .ENDC .ENDM DEF$LQ  .MACRO RAD50$ STRING,MAXWRD ...PC2=.D .RAD50 /STRING/ .IF GT,<.-...PC2>-^O<2*MAXWRD>3 .ERROR ;STRING RAD50 - STRING TOO LONG, TRUNCATED  .=^O<...PC2+<2*MAXWRD>> .MEXIT .ENDC .REPT ^O/2>> .WORD 0 .ENDR .ENDM RAD50$F@Q  .MACRO CALL ADR JSR PC,ADR .ENDM CALL.<Q  .MACRO RETURN RTS PC .ENDM RETURN$>Q  .MACRO CALLR ADRT JMP ADR .ENDM CALLRQ  .MACRO ABRT$C TSK,PSCT,ERRL .MCALL ABRT$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$$$$$=. .IFTF ABRT$ TSK .IFT. .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ABRT$CNQ  .MACRO ABRT$S NADR,ERRW .MCALL RFA$,DIR$N RFA$ NADR MOV (PC)+,-(SP) .BYTE 83.,3 DIR$ ,ERR .ENDM ABRT$SQ  .MACRO ABRT$ TSKJ .MCALL R50$,OFF$C .IF NDF $$$GLB .BYTE 83.,3 R50$ TSKS .ENDC .IF NDF A.BTTN .NLIST OFF$A OFF$ A.BTTN,4 .LIST .ENDC .ENDM ABRT$Q # .MACRO ALTP$C TTASK,NPRIO,PSCT,ERR, .MCALL ALTP$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.$ .IFTF ALTP$ TTASK,NPRIO .IFT$ .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ALTP$CAQ  .MACRO ALTP$S NAME,PRI,ERR  .MCALL MOV$,RFA$,DIR$ MOV$ PRI3 RFA$ NAME MOV (PC)+,-(SP) .BYTE 9.,4 DIR$ ,ERR .ENDM ALTP$SCQ  .MACRO ALTP$ NAME,PRI .MCALL R50$,OFF$. .IF NDF $$$GLBB .BYTE 9.,4 R50$ NAME .WORD PRI .ENDC .IF NDF A.LTTNA .NLIST OFF$ OFF$ A.LTTN,4 OFF$ A.LTPR,2 .LIST .ENDC .ENDM ALTP$Q  .MACRO ALUN$C LUN,DA,DU,CS,ERR .MCALL ALUN$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$$$$$=.N .IFTF ALUN$ LUN,DA,DU .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ALUN$C,Q  .MACRO ALUN$S LUN,DA,DU,ERR .MCALL MOV$,DIR$  MOV$ DU MOV$ DA MOV$ LUN MOV (PC)+,-(SP) .BYTE 7,4  DIR$ ,ERR .ENDM ALUN$SNRQ  .MACRO ALUN$ LUN,DA,DUD .MCALL OFF$ .IF NDF $$$GLB .BYTE 7,4 .WORD LUN .IF B F .WORD 0 .IFFT .NCHR $$$T1,T$$$T2=. .ASCII /DA/ .=$$$T2+2C .ENDC .WORD DU .ENDC .IF NDF A.LULUN .NLISTS+ .IRP X,<,,,>D OFF$ XF .ENDM .LIST .ENDC .ENDM ALUN$Q  .MACRO ASTX$C PSCT,ERR  .MCALL ASTX$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$$$$$=. .IFTF ASTX$ .IFT- .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ASTX$CQ  .MACRO ASTX$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 115.,1D DIR$. .IIF NB , JSR PC,ERR .ENDM ASTX$S<ZQ  .MACRO ASTX$$ .IF NDF $$$GLB. .BYTE 115.,1C .ENDC .ENDM ASTX$Q 0 .MACRO CINT$C VEC,BASE,ISR,DSI,PSW,AST,PSCT,ERR .MCALL CINT$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.S .IFTF CINT$ VEC,BASE,ISR,DSI,PSW,ASTN .IFTL .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM CINT$C.Q + .MACRO CINT$S VEC,BASE,ISR,DSI,PSW,AST,ERR .MCALL RVP$,DIR$S RVP$ VEC,BASE,ISR,DSI,PSW,AST MOV (PC)+,-(SP) .BYTE 129.,7I DIR$ ,ERR .ENDM CINT$SNLQ & .MACRO CINT$ VEC,BASE,ISR,DSI,PSW,AST .MCALL OFF$ .IF NDF $$$GLB. .BYTE 129.,7 .WORD VEC .WORD BASET .WORD ISR .WORD DSI .WORD PSW .WORD AST .ENDC .IF NDF C.INVE OFF$C OFF$ C.INVE,2 OFF$ C.INBA,2 OFF$ C.INIS,2 OFF$ C.INDI,2 OFF$ C.INPS,2 OFF$ C.INAS,2 .ENDC .ENDM CINT$Q  .MACRO CLEF$C EFN,CS,ERR, .MCALL CLEF$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$$$$$=.D .IFTF CLEF$ EFN .IFT) .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CLEF$CQ  .MACRO CLEF$S EFN,ERR .MCALL MOV$,DIR$F MOV$ EFNF MOV (PC)+,-(SP) .BYTE 31.,2 DIR$ ,ERR .ENDM CLEF$SIQ  .MACRO CLEF$ EFNT .MCALL OFF$ .IF NDF $$$GLBF .BYTE 31.,2 .WORD EFN .ENDC .IF NDF C.LEEF .NLISTN OFF$O OFF$ C.LEEF,2 .LIST .ENDC .ENDM CLEF$Q  .MACRO CMKT$C EFN,AST,PSCT,ERR .MCALL CMKT$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=. .IFTF CMKT$ EFN,AST .IFTS .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM CMKT$CQ  .MACRO CMKT$S EFN,AST,ERR .MCALL DIR$,RVP$F $$$T1=0 .IIF NB EFN $$$T1=1 .IIF NB AST $$$T1=1 .IF EQ $$$T1 MOV (PC)+,-(SP) .BYTE 27.,1 .IFFF RVP$ EFN,AST$ MOV (PC)+,-(SP) .BYTE 27.,3 .ENDC DIR$ ,ERR .ENDM CMKT$S>Q  .MACRO CMKT$ EFN,AST. .MCALL OFF$ .IF NDF $$$GLB. $$$T1=0 .IIF NB EFN $$$T1=1 .IIF NB AST $$$T1=1 .IF EQ $$$T1 .BYTE 27.,1 .IFF .BYTE 27.,3 .WORD EFN .WORD AST .ENDC .ENDC .IF NDF C.MKEF .NLISTK OFF$ OFF$ C.MKEF,2 OFF$ C.MKAE,2 .LIST .ENDC .ENDM CMKT$Q  .MACRO CRGF$C GROUP,CS,ERR$ .MCALL CRGF$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$$$$$=.F .IFTF CRGF$ GROUP .IFT- .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CRGF$C$Q  .MACRO CRGF$S GROUP,ERR .MCALL MOV$,DIR$F MOV$ GROUP MOV (PC)+,-(SP) .BYTE 157.,2. DIR$ ,ERR .ENDM CRGF$S Q  .MACRO CRGF$ GROUP. .MCALL OFF$ .IF NDF $$$GLBN .BYTE 157.,2F .WORD GROUP .ENDC .IF NDF C.RGRP. .NLISTO OFF$K OFF$ C.RGRP,2 .LIST .ENDC .ENDM CRGF$Q  .MACRO CSRQ$C TT,RT,CS,ERRR .MCALL CSRQ$,DIR$ .IF NDF $$$GLBD .PSECT $DPB$$$$$=.C .IFTF CSRQ$ TT,RT .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CSRQ$CQ  .MACRO CSRQ$S TN,RN,ERR .MCALL RFA$,DIR$U RFA$ TN MOV (PC)+,-(SP) .BYTE 25.,3 DIR$ ,ERR .ENDM CSRQ$SQ  .MACRO CSRQ$ TT,RTC .MCALL R50$,OFF$$ .IF NDF $$$GLB7 .BYTE 25.,3 R50$ TT .ENDC .IF NDF C.SRTNL .NLISTF OFF$F OFF$ C.SRTN,4 OFF$ C.SRRN,4 .LIST .ENDC .ENDM CSRQ$Q  .MACRO DECL$C EFN,PSCT,ERR .MCALL DECL$,DIR$ .IF NDF $$$GLB= .PSECT $DPB$$$$$=.T .IFTF DECL$ EFN .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM DECL$C.tQ  .MACRO DECL$S EFN,ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 35.,1 DIR$ ,ERR .ENDM DECL$S\Q  .MACRO DECL$ EFN .IF NDF $$$GLB$ .BYTE 35.,1 .ENDC .ENDM DECL$Q  .MACRO DSAR$C PSCT,ERR .MCALL DSAR$,DIR$ .IF NDF $$$GLB4 .PSECT $DPB$$$$$=.M .IFTF DSAR$ .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM DSAR$C.pQ  .MACRO DSAR$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 99.,1 DIR$ ,ERR .ENDM DSAR$SMXQ  .MACRO DSAR$R .IF NDF $$$GLB .BYTE 99.,1 .ENDC .ENDM DSAR$Q  .MACRO DSCP$C PSCT,ERR .MCALL DSCP$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$$$$$=.1 .IFTF DSCP$ .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM DSCP$CSpQ  .MACRO DSCP$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 95.,1 DIR$ ,ERR .ENDM DSCP$SCXQ  .MACRO DSCP$ .IF NDF $$$GLBE .BYTE 95.,1 .ENDC .ENDM DSCP$Q  .MACRO ELGF$C GROUP,CS,ERR .MCALL ELGF$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.. .IFTF ELGF$ GROUP .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ELGF$C$Q  .MACRO ELGF$S GROUP,ERR .MCALL MOV$,DIR$F MOV$ GROUPS MOV (PC)+,-(SP) .BYTE 159.,2M DIR$ ,ERR .ENDM ELGF$SQ  .MACRO ELGF$ GROUP( .MCALL OFF$ .IF NDF $$$GLB .BYTE 159.,2C .WORD GROUP .ENDC .IF NDF E.LGRP .NLIST$ OFF$ OFF$ E.LGRP,2 .LIST .ENDC .ENDM ELGF$Q  .MACRO ENAR$C PSCT,ERRL .MCALL ENAR$,DIR$ .IF NDF $$$GLBC .PSECT $DPB$$$$$=.F .IFTF ENAR$ .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ENAR$CrQ  .MACRO ENAR$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 101.,1+ DIR$ ,ERR .ENDM ENAR$SRZQ  .MACRO ENAR$ .IF NDF $$$GLBL .BYTE 101.,1C .ENDC .ENDM ENAR$Q  .MACRO ENCP$C PSCT,ERR .MCALL ENCP$,DIR$ .IF NDF $$$GLBO .PSECT $DPB$$$$$=.. .IFTF ENCP$ .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ENCP$C,pQ  .MACRO ENCP$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 97.,1 DIR$ ,ERR .ENDM ENCP$S.XQ  .MACRO ENCP$. .IF NDF $$$GLB .BYTE 97.,1 .ENDC .ENDM ENCP$Q  .MACRO EXIF$C EFN,CS,ERR .MCALL EXIF$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=. .IFTF EXIF$ EFN .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EXIF$C,Q  .MACRO EXIF$S EFN,ERR .MCALL MOV$,DIR$$ MOV$ EFN. MOV (PC)+,-(SP) .BYTE 53.,2 DIR$ ,ERR .ENDM EXIF$SQ  .MACRO EXIF$ EFN .MCALL OFF$ .IF NDF $$$GLB9 .BYTE 53.,2 .WORD EFN .ENDC .IF NDF E.XFEF .NLISTN OFF$. OFF$ E.XFEF,2 .LIST .ENDC .ENDM EXIF$Q  .MACRO EXIT$C PSCT,ERRC .MCALL EXIT$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=. .IFTF EXIT$ .IFTE .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM EXIT$CMQ  .MACRO EXIT$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 51.,1 DIR$C .IIF NB , CALL ERR .ENDM EXIT$SMXQ  .MACRO EXIT$R .IF NDF $$$GLBC .BYTE 51.,1 .ENDC .ENDM EXIT$Q  .MACRO EXST$C STS,CS,ERR. .MCALL EXST$,DIR$ .IF NDF $$$GLBT .PSECT $DPB$$$$$=. .IFTF EXST$ STS .IFTX .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EXST$C$Q  .MACRO EXST$S STS,ERR .MCALL MOV$,DIR$,OFF$ MOV$ STSR MOV (PC)+,-(SP) .BYTE 29.,2 DIR$ ,ERR .NLISTX$$$OST=05 .IRP X,<,,,>. OFF$ XR .ENDM .LIST .ENDM EXST$SQ  .MACRO EXST$ STSN .MCALL OFF$ .IF NDF $$$GLBC .BYTE 29.,2 .WORD STS .ENDC .IF NDF E.XSTSS .NLIST OFF$  OFF$ E.XSTS,2$$$OST=05 .IRP X,<,,,> OFF$ XS .ENDM .LIST .ENDC .ENDM EXST$Q  .MACRO EXTK$C INC,CS,ERR .MCALL EXTK$,DIR$ .IF NDF $$$GLBM .PSECT $DPB$$$$$=.2 .IFTF EXTK$ INC .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EXTK$C,Q  .MACRO EXTK$S INC,ERR .MCALL MOV$,DIR$  CLR -(SP) MOV$ INCT MOV (PC)+,-(SP) .BYTE 89.,3 DIR$ ,ERR .ENDM EXTK$SDQ  .MACRO EXTK$ INCS .MCALL OFF$ .IF NDF $$$GLBO .BYTE 89.,3 .WORD INC .WORD 0 .ENDC .IF NDF E.XTIN .NLIST OFF$ OFF$ E.XTIN,2 .LIST .ENDC .ENDM EXTK$fQ - .MACRO GIN$C SFCN,P1,P2,P3,P4,P5,P6,P7,P8,P9M .MCALL GIN$,DIR$,GFN$,OFF$F .IF NDF $$$GLB. .PSECT $DPB$$$$$=.  .IFTF GFN$C .NARG $$$N$ $$$I=$$$N .BYTE 169.,$$$N+1. .IRP $$$PRM, .IF EQ $$$I .MEXITS .IFFY $$$I=$$$I-1R .ENDC .WORD $$$PRM .ENDR .IF NDF G.INSF  .NLISTS6 .IRP X,<,,,,> OFF$ XD .ENDR* .IRP X,<,,> OFF$ X2 .ENDR* .IRP X,<,,> OFF$ X$ .ENDR .ENDC .IFT6 .PSECT CS DIR$ #$$$ .ENDC .ENDM GIN$C<Q - .MACRO GIN$S SFCN,P1,P2,P3,P4,P5,P6,P7,P8,P9$ .MCALL MOV$,DIR$,OFF$,MVB$,GFN$ GFN$$ .NARG $$$N, $$$I=$$$N,$$$K=9.P. .IRP $$$PRM, .IF GT $$$I-$$$K$ MOV$ $$$PRM .ENDC $$$K=$$$K-1L .ENDR MOV (PC)+,-(SP) .BYTE 169.,$$$N+1 DIR$P .ENDM GIN$SQ , .MACRO GIN$ SFCN,P1,P2,P3,P4,P5,P6,P7,P8,P9 .MCALL OFF$,GFN$< .IF NDF $$$GLB, GFN$P .NARG $$$N $$$I=$$$N .BYTE 169.,$$$N+1. .IRP $$$PRM, .IF EQ $$$I .MEXIT$ .IFFP $$$I=$$$I-1, .ENDC .WORD $$$PRMO .ENDR .ENDC .IF NDF G.INSF. .NLIST,6 .IRP X,<,,,,> OFF$ XS .ENDM* .IRP X,<,,> OFF$ X .ENDR* .IRP X,<,,> OFF$ XG .ENDR .ENDC .ENDM GIN$RQ  .MACRO GLUN$C LUN,BUFA,CS,ERR$ .MCALL GLUN$,DIR$ .IF NDF $$$GLBA .PSECT $DPB$$$$$=.. .IFTF GLUN$ LUN,BUFA$ .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GLUN$CIQ  .MACRO GLUN$S LUN,BUFA,ERRO .MCALL MOV$,DIR$,OFF$ MOV$ BUFA MOV$ LUN. MOV (PC)+,-(SP) .BYTE 5,3 DIR$ ,ERR .IF NDF G.LUNA  .NLISTM$$$OST=06 .IRP X,<,,,> OFF$ X. .ENDM .LIST .ENDC .ENDM GLUN$SG`Q  .MACRO GLUN$ LUN,BUFA .MCALL OFF$ .IF NDF $$$GLBA .BYTE 5,3 .WORD LUN .WORD BUFAF .ENDC .IF NDF G.LULU .NLIST.+ .IRP X,<,,,>D OFF$ XE .ENDM .IF NDF G.LUNAI$$$OST=06 .IRP X,<,,,> OFF$ XM .ENDM .ENDC .LIST .ENDC .ENDM GLUN$Q  .MACRO GMCR$C CS,ERRS .MCALL GMCR$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$$$$$=.C .IFTF GMCR$ .IFTM .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GMCR$CQ  .MACRO GMCR$F .MCALL OFF$ .IF NDF $$$GLB3 .BYTE 127.,41.O .BLKW 40. .ENDC .IF NDF G.MCRB. .NLIST. OFF$, OFF$ G.MCRB,80. .LIST .ENDC .ENDM GMCR$Q  .MACRO GPRT$C PRT,BUF,CS,ERRA .MCALL GPRT$,DIR$ .IF NDF $$$GLB> .PSECT $DPB$$$$$=.N .IFTF GPRT$ PRT,BUF .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GPRT$C Q  .MACRO GPRT$S PRT,BUF,ERR .MCALL MOV$,RFA$,DIR$,OFF$M MOV$ BUFS RFA$ PRT$ MOV (PC)+,-(SP) .BYTE 65.,4 DIR$ ,ERR .IF NDF G.PRPBF .NLIST $$$OST=0* .IRP X,<,,> OFF$ X. .ENDM .LIST .ENDC .ENDM GPRT$S BQ  .MACRO GPRT$ PRT,BUF .MCALL OFF$,R50$. .IF NDF $$$GLBB .BYTE 65.,4 R50$ PRT, .WORD BUF .ENDC .IF NDF G.PRPN$ .NLIST OFF$ OFF$ G.PRPN,4 OFF$ G.PRBA,2 .IF NDF G.PRPBR$$$OST=0* .IRP X,<,,> OFF$ XB .ENDM .ENDC .LIST .ENDC .ENDM GPRT$Q  .MACRO GSSW$C PSCT,ERR. .MCALL GSSW$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$$$$$=., .IFTF GSSW$ .IFT< .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM GSSW$CGrQ  .MACRO GSSW$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 125.,1B DIR$ ,ERR .ENDM GSSW$SZQ  .MACRO GSSW$P .IF NDF $$$GLBF .BYTE 125.,1N .ENDC .ENDM GSSW$Q  .MACRO GTIM$C BUFA,CS ERR .MCALL GTIM$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$$$$$=.N .IFTF GTIM$ BUFA .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GTIM$CVQ  .MACRO GTIM$S BUFA,ERR. .MCALL MOV$,DIR$,OFF$ MOV$ BUFA MOV (PC)+,-(SP) .BYTE 61.,2 DIR$ ,ERR .IF NDF G.TIYRA .NLISTS$$$OST=05 .IRP X,<,,,> OFF$ XS .ENDM5 .IRP X,<,,,>E OFF$ X .ENDM .LIST .ENDC .ENDM GTIM$StQ  .MACRO GTIM$ BUFA .MCALL OFF$ .IF NDF $$$GLBS .BYTE 61.,2 .WORD BUFA .ENDC .IF NDF G.TIBAS .NLISTD OFF$$ OFF$ G.TIBA,2 .IF NDF G.TIYR$$$OST=05 .IRP X,<,,,>M OFF$ X .ENDM5 .IRP X,<,,,>. OFF$ X$ .ENDM .ENDC .LIST .ENDC .ENDM GTIM$Q  .MACRO GTSK$C BUFA,CS,ERR .MCALL GTSK$,DIR$ .IF NDF $$$GLBC .PSECT $DPB$$$$$=.M .IFTT GTSK$ BUFAN .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GTSK$CFQ  .MACRO GTSK$S BUFA,ERRB .MCALL MOV$,DIR$,OFF$ MOV$ BUFA MOV (PC)+,-(SP) .BYTE 63.,2 DIR$ ,ERR .IF NDF G.TSTNR .NLISTI$$$OST=0@ .IRP X,<,,,,> OFF$ XS .ENDM@ .IRP X,<,,,,> OFF$ X$ .ENDM OFF$ G.TSVL,2 OFF$ G.TSTS,2 OFF$ G.TSSY,2 OFF$ G.TSDU,2$$$OST=05 .IRP X,<,,,>$ OFF$ X  .ENDM .LIST .ENDC .ENDM GTSK$S$Q  .MACRO GTSK$ BUFA .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 63.,2 .WORD BUFAS .ENDC .IF NDF G.TSBAE .NLISTN OFF$T OFF$ G.TSBA,2 .IF NDF G.TSTN<$$$OST=0@ .IRP X,<,,,,> OFF$ X. .ENDM@ .IRP X,<,,,,> OFF$ XL .ENDM OFF$ G.TSVL,2 OFF$ G.TSTS,2 OFF$ G.TSSY,2 OFF$ G.TSDU,2$$$OST=05 .IRP X,<,,,>. OFF$ XN .ENDM .ENDC .LIST .ENDC .ENDM GTSK$^Q  .MACRO IHAR$C PSCT,ERR .MCALL DSAR$C DSAR$C PSCT,ERR .ENDM IHAR$CBTQ  .MACRO IHAR$S ERR .MCALL DSAR$S DSAR$S ERR. .ENDM IHAR$S4HQ  .MACRO IHAR$> .MCALL DSAR$O DSAR$ .ENDM IHAR$Q " .MACRO MRKT$C EF,TM,TU,AST,CS,ERR .MCALL MRKT$,DIR$ .IF NDF $$$GLB2 .PSECT $DPB$$$$$=.  .IFTF MRKT$ EF,TM,TU,ASTO .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM MRKT$C.Q  .MACRO MRKT$S EF,TM,TU,AST,ERRG .MCALL RVP$,DIR$ RVP$ EF,TM,TU,AST MOV (PC)+,-(SP) .BYTE 23.,5 DIR$ ,ERR .ENDM MRKT$SQ  .MACRO MRKT$ EFN,TM,TU,ASTS .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 23.,5 .WORD EFN .WORD TM .WORD TUR .WORD AST .ENDC .IF NDF M.KTEF .NLISTA6 .IRP X,<,,,,> OFF$ XL .ENDM .LIST .ENDC .ENDM MRKT$Q 6 .MACRO QIO$C FNC,LUN,EFN,PRI,IOST,AST,PRMLST,PSCT,ERR .MCALL QDPB$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$$$$$=.C .IFTF* QDPB$ 1,FNC,LUN,EFN,PRI,IOST,AST, .IFTE .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM QIO$CQ 1 .MACRO QIO$S FNC,LUN,EFN,PRI,IOST,AST,PRMLST,ERRE .MCALL QDPB$S/ QDPB$S 1,FNC,LUN,EFN,PRI,IOST,AST,,ERR. .ENDM QIO$SQ , .MACRO QIO$ FNC,LUN,EFN,PRI,IOST,AST,PRMLST .MCALL QDPB$.* QDPB$ 1,FNC,LUN,EFN,PRI,IOST,AST, .ENDM QIO$AQ 7 .MACRO QIOW$C FNC,LUN,EFN,PRI,IOST,AST,PRMLST,PSCT,ERRF .MCALL QDPB$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.N .IFTF* QDPB$ 3,FNC,LUN,EFN,PRI,IOST,AST, .IFT$ .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM QIOW$C Q 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$SIQ - .MACRO QIOW$ FNC,LUN,EFN,PRI,IOST,AST,PRMLSTL .MCALL QDPB$,* QDPB$ 3,FNC,LUN,EFN,PRI,IOST,AST, .ENDM QIOW$vQ 6 .MACRO QDPB$S DIC,FNC,LUN,EFN,PRI,IOST,AST,PRMLST,ERR .MCALL RVP$,MVB$,DIR$ .NLIST$$$ARG=0 .IRP X,$$$ARG=$$$ARG+1M .ENDM .LIST .IF GT 6-$$$ARG .REPT <6-$$$ARG>. CLR -(SP) .ENDR .ENDC .IIF NB , RVP$ PRMLST RVP$ IOST,AST MVB$ EFN, RVP$ FNC,LUNP MOV (PC)+,-(SP) .BYTE DIC,12. DIR$ ,ERR .ENDM QDPB$S"Q 1 .MACRO QDPB$ DIC,FNC,LUN,EFN,PRI,IOST,AST,PRMLSTC .MCALL OFF$ .IF NDF $$$GLBN .BYTE DIC,12. .WORD FNC .WORD LUN .BYTE EFN,0 .WORD IOSTB .WORD AST .NLISTI$$$ARG=0 .LIST .IRP X, .WORD X .NLIST$$$ARG=$$$ARG+1, .LIST .ENDM .IF GT 6-$$$ARG .REPT <6-$$$ARG>- .WORD 0 .ENDR .ENDC .ENDC .IF NDF Q.IOFNN .NLIST 6 .IRP X,<,,,,> OFF$ XU .ENDM( .IRP X,<,,> OFF$ XP .ENDM .LIST .ENDC .ENDM QDPB$Q  .MACRO RDAF$C BA,CS,ERR .MCALL RDAF$,DIR$ .IF NDF $$$GLB1 .PSECT $DPB$$$$$=.L .IFTF RDAF$ BA. .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RDAF$C,Q  .MACRO RDAF$S BA,ERRR .MCALL MOV$,DIR$M MOV$ BA MOV (PC)+,-(SP) .BYTE 39.,2 DIR$ ,ERR .ENDM RDAF$SNQ  .MACRO RDAF$ BA .MCALL OFF$ .IF NDF $$$GLBI .BYTE 39.,2 .WORD BA  .ENDC .IF NDF R.DABAO .NLISTI OFF$< OFF$ R.DABA,2.P .LIST .ENDC .ENDM RDAF$Q  .MACRO RDEF$C EFN,CS,ERR, .MCALL RDEF$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=. .IFTF RDEF$ EFN .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RDEF$CRQ  .MACRO RDEF$S EFN,ERR .MCALL MOV$,DIR$$ MOV$ EFNV MOV (PC)+,-(SP) .BYTE 37.,2 DIR$ ,ERR .ENDM RDEF$SAQ  .MACRO RDEF$ EFN .MCALL OFF$ .IF NDF $$$GLBL .BYTE 37.,2 .WORD EFN .ENDC .IF NDF R.DEEFB .NLISTS OFF$F OFF$ R.DEEF,2.2 .LIST .ENDC .ENDM RDEF$Q  .MACRO RDXF$C BA,CS,ERR .MCALL RDXF$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.$ .IFTF RDXF$ BA$ .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RDXF$CEQ  .MACRO RDXF$S BA,ERRN .MCALL MOV$,DIR$D CLR -(SP) MOV$ BA MOV (PC)+,-(SP) .BYTE 39.,3. DIR$ ,ERR .ENDM RDXF$SQ  .MACRO RDXF$ BA .MCALL OFF$ .IF NDF $$$GLBY .BYTE 39.,3.D .WORD BAC .WORD 0 .ENDC .IF NDF R.DABAF .NLIST. OFF$2 OFF$ R.DABA,2. .LIST .ENDC .ENDM RDXF$Q  .MACRO RCVD$C TN,BA,CS,ERR .MCALL RCVD$,DIR$ .IF NDF $$$GLB= .PSECT $DPB$$$$$=. .IFTF RCVD$ TN,BA .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RCVD$CAQ  .MACRO RCVD$S TN,BA,ERR .MCALL MOV$,DIR$, RFA$C MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 75.,4 DIR$ ,ERR .ENDM RCVD$S Q  .MACRO RCVD$ TN,BAY .MCALL OFF$, R50$ .IF NDF $$$GLB0 .BYTE 75.,4 R50$ TN .WORD BA. .ENDC .IF NDF R.VDTN .NLIST .IRP X,<,,> OFF$ XA .ENDM .LIST .ENDC .ENDM RCVD$Q  .MACRO RCVX$C TN,BA,CS,ERR .MCALL RCVX$,DIR$ .IF NDF $$$GLBC .PSECT $DPB$$$$$=.. .IFTF RCVX$ TN,BA .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RCVX$CRQ  .MACRO RCVX$S TN,BA,ERR .MCALL MOV$,DIR$, RFA$E MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 77.,4 DIR$ ,ERR .ENDM RCVX$SQ  .MACRO RCVX$ TN,BAN .MCALL OFF$, R50$ .IF NDF $$$GLB .BYTE 77.,4 R50$ TN .WORD BA. .ENDC .IF NDF R.VXTNM .NLIST  .IRP X,<,,> OFF$ XA .ENDM .LIST .ENDC .ENDM RCVX$dQ  .MACRO RMAF$S ERR MOV (PC)+,-(SP) .BYTE 163.,1 DIR$ ,ERR .ENDM RMAF$S$Q # .MACRO RQST$C TN,PN,PR,GC,P,CS,ERRR .MCALL RQST$,DIR$ .IF NDF $$$GLB, .PSECT $DPB$$$$$=.  .IFTF RQST$ TN,PN,PR,GC,P .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMQ  .MACRO RQST$S TN,PN,PR,GC,P,ERR .MCALL MVB$,RFA$,DIR$ MVB$ P,GC CLR -(SP) RFA$F RFA$ TN MOV (PC)+,-(SP) .BYTE 11.,7 DIR$ ,ERR .ENDM RQST$S.*Q  .MACRO RQST$ TN,PN,PR,GC,P .MCALL R50$,OFF$S .IF NDF $$$GLB- .BYTE 11.,7 R50$ TN .WORD 0,0 .WORD 0 .BYTE P,GC .ENDC .IF NDF R.QSTN, .NLISTPA .IRP X,<,,,,,>= OFF$ XF .ENDM .LIST .ENDC .ENDM RQST$Q  .MACRO RSUM$C TN,CS,ERR .MCALL RSUM$,DIR$ .IF NDF $$$GLBC .PSECT $DPB$$$$$=.A .IFTF RSUM$ TN .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RSUM$C7Q  .MACRO RSUM$S TN,ERR .MCALL RFA$,DIR$  RFA$ TN MOV (PC)+,-(SP) .BYTE 47.,3 DIR$ ,ERR .ENDM RSUM$SRQ  .MACRO RSUM$ TN .MCALL R50$,OFF$F .IF NDF $$$GLBL .BYTE 47.,3 R50$ TN .ENDC .IF NDF R.SUTN< .NLIST, OFF$, OFF$ R.SUTN,4 .LIST .ENDC .ENDM RSUM$Q / .MACRO RUN$C TN,PN,PR,UG,UP,SM,SU,RM,RU,CS,ERRI .MCALL RUN$,DIR$C .IF NDF $$$GLB .PSECT $DPB$$$$$=.T .IFTF RUN$ TN,PN,PR,UG,UP,SM,SU,RM,RU .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RUN$CQ , .MACRO RUN$S TN,PN,PR,UG,UP,SM,SU,RM,RU,ERR .MCALL RVP$,MVB$,RFA$,DIR$R RVP$ SM,SU,RM,RU MVB$ UP,UG CLR -(SP) RFA$F RFA$ TN MOV (PC)+,-(SP) .BYTE 17.,11. DIR$ ,ERR .ENDM RUN$SQ & .MACRO RUN$ TN,PN,PR,GC,P,SM,SU,RM,RU .MCALL R50$,OFF$ .IF NDF $$$GLB$ .BYTE 17.,11. R50$ TN .WORD 0,0 .WORD 0 .BYTE P,GCF .WORD SM .WORD SUD .WORD RMT .WORD RUR .ENDC .IF NDF R.UNTNR .NLISTFA .IRP X,<,,,,,> OFF$ XR .ENDM5 .IRP X,<,,,>D OFF$ XP .ENDM .LIST .ENDC .ENDM RUN$SQ  .MACRO SDAT$C TN,BA,EFN,CS,ERR1 .MCALL SDAT$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.T .IFTF SDAT$ TN,BA,EFN .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SDAT$C Q  .MACRO SDAT$S TN,BA,EFN,ERR .MCALL MOV$,RFA$,DIR$ MOV$ EFNR MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 71.,5 DIR$ ,ERR .ENDM SDAT$S,Q  .MACRO SDAT$ TN,BA,EFNM .MCALL R50$,OFF$2 .IF NDF $$$GLBN .BYTE 71.,5 R50$ TN .WORD BAM .WORD EFN .ENDC .IF NDF S.DATN .NLIST+ .IRP X,<,,,>D OFF$ X .ENDM .LIST .ENDC .ENDM SDAT$Q  .MACRO SETF$C EFN,CS,ERR  .MCALL SETF$,DIR$ .IF NDF $$$GLBA .PSECT $DPB$$$$$=. .IFTF SETF$ EFN .IFTR .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SETF$CAQ  .MACRO SETF$S EFN,ERR .MCALL MOV$,DIR$$ MOV$ EFN MOV (PC)+,-(SP) .BYTE 33.,2 DIR$ ,ERR .ENDM SETF$SFQ  .MACRO SETF$ EFN .MCALL OFF$ .IF NDF $$$GLB .BYTE 33.,2 .WORD EFN .ENDC .IF NDF S.ETEF. .NLISTS OFF$> OFF$ S.ETEF,2 .LIST .ENDC .ENDM SETF$Q  .MACRO SFPA$C AST,CS,ERR, .MCALL SFPA$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.$ .IFTF SFPA$ AST .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SFPA$CTQ  .MACRO SFPA$S AST,ERR .MCALL MOV$,DIR$D MOV$ AST  MOV (PC)+,-(SP) .BYTE 111.,2. DIR$ ,ERR .ENDM SFPA$S$Q  .MACRO SFPA$ ASTF .MCALL OFF$ .IF NDF $$$GLBL .BYTE 111.,22 .WORD AST .ENDC .IF NDF S.FPAE. .NLISTS OFF$> OFF$ S.FPAE,2 .LIST .ENDC .ENDM SFPA$Q  .MACRO SNXC$ DEVICE,UNIT, .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 127.,3. .WORD DEVICE .BYTE UNIT$ .BYTE 0 .ENDC .IF NDF S.NXDV$ .IRP X,<,,> OFF$ X .ENDM .ENDC .ENDM SNXC$Q ! .MACRO SNXC$C DEVICE,UNIT,CS,ERRE .MCALL SNXC$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.R .IFTF SNXC$ DEVICE,UNIT .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SNXC$CNQ  .MACRO SNXC$S DEVICE,UNIT,ERR .MCALL DIR$,MOV$S MOV$ UNIT MOV$ DEVICE MOV (PC)+,-(SP) .BYTE 127.,3. DIR$ ,ERR .ENDM SNXC$SYQ  .MACRO SPEA$C AST,CS,ERRY .MCALL SPEA$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$$$$$=.1 .IFTF SPEA$ AST .IFTC .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SPEA$CVQ  .MACRO SPEA$S AST,ERR .MCALL MOV$,DIR$C MOV$ AST$ MOV (PC)+,-(SP) .BYTE 165.,2 DIR$ ,ERR .ENDM SPEA$S$Q  .MACRO SPEA$ AST .MCALL OFF$ .IF NDF $$$GLBC .BYTE 165.,2C .WORD AST .ENDC .IF NDF S.PEAEI .NLIST( OFF$S OFF$ S.PEAE,2 .LIST .ENDC .ENDM SPEA$Q  .MACRO SPND$C PSCT,ERRR .MCALL SPND$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$$$$$=.= .IFTF SPND$ .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM SPND$CEpQ  .MACRO SPND$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 45.,1 DIR$ ,ERR .ENDM SPND$SXQ  .MACRO SPND$ .IF NDF $$$GLBA .BYTE 45.,1 .ENDC .ENDM SPND$Q  .MACRO SPRA$C AST,CS,ERRC .MCALL SPRA$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=. .IFTF SPRA$ AST .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SPRA$C,Q  .MACRO SPRA$S AST,ERR .MCALL MOV$,DIR$$ MOV$ AST. MOV (PC)+,-(SP) .BYTE 109.,2C DIR$ ,ERR .ENDM SPRA$SQ  .MACRO SPRA$ ASTI .MCALL OFF$ .IF NDF $$$GLB. .BYTE 109.,2 .WORD AST .ENDC .IF NDF S.PRAEA .NLIST OFF$N OFF$ S.PRAE,2 .LIST .ENDC .ENDM SPRA$Q  .MACRO SRDA$C AST,CS,ERRC .MCALL SRDA$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=. .IFTF SRDA$ AST .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SRDA$C,Q  .MACRO SRDA$S AST,ERR .MCALL MOV$,DIR$$ MOV$ AST. MOV (PC)+,-(SP) .BYTE 107.,2C DIR$ ,ERR .ENDM SRDA$SQ  .MACRO SRDA$ ASTI .MCALL OFF$ .IF NDF $$$GLB. .BYTE 107.,2 .WORD AST .ENDC .IF NDF S.RDAEA .NLIST OFF$N OFF$ S.RDAE,2 .LIST .ENDC .ENDM SRDA$Q  .MACRO SREA$C AST,CS,ERRC .MCALL SREA$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=. .IFTF SREA$ AST .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SREA$C,Q  .MACRO SREA$S AST,ERR .MCALL MOV$,DIR$$ MOV$ AST. MOV (PC)+,-(SP) .BYTE 167.,2C DIR$ ,ERR .ENDM SREA$SQ  .MACRO SREA$ ASTI .MCALL OFF$ .IF NDF $$$GLB. .BYTE 167.,2 .WORD AST .ENDC .IF NDF S.REAEA .NLIST OFF$N OFF$ S.REAE,2 .LIST .ENDC .ENDM SREA$Q  .MACRO SREX$C AST,BUF,CS,ERR. .MCALL SREX$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.. .IFTF SREX$ AST,BUF .IFTC .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SREX$CQ  .MACRO SREX$S AST,BUF,ERR .MCALL MOV$,DIR$. CLR -(SP) MOV$ ASTY MOV (PC)+,-(SP) .BYTE 167.,3E DIR$ ,ERR .ENDM SREX$SAQ  .MACRO SREX$ AST,BUF$ .MCALL OFF$ .IF NDF $$$GLBT .BYTE 167.,3N .WORD AST .WORD 0 .ENDC .IF NDF S.REAE. .NLISTN OFF$N OFF$ S.REAE,2 .LIST .ENDC .ENDM SREX$Q  .MACRO STAF$C AFF,CS,ERR$ .MCALL STAF$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=. .IFTF STAF$ AFF .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STAF$CRQ  .MACRO STAF$S AFF,ERR .MCALL DIR$,MOV$,AFF$ AFF$- MOV$ AFFE MOV (PC)+,-(SP) .BYTE 161.,2. DIR$ ,ERR .ENDM STAF$SRQ  .MACRO STAF$ AFFN .MCALL AFF$,OFF$1 .IF NDF $$$GBLT AFF$D .BYTE 161.,2. .WORD AFF .ENDC .IF NDF S.AFAF  .NLIST OFF$ OFF$ S.AFAF,2 .LIST .ENDC .ENDM STAF$Q  .MACRO STIM$C NBUF,OBUF,CS,ERR$ .MCALL STIM$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$$$$$=.. .IFTF STIM$ NBUF,OBUF .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STIM$CFfQ  .MACRO STIM$S NBUF,OBUF,ERR .MCALL MOV$,DIR$,OFF$ MOV$ OBUF MOV$ NBUF MOV (PC)+,-(SP) .BYTE 61.,3 DIR$ ,ERR .IF NDF S.TIYR  .NLIST1$$$OST=05 .IRP X,<,,,>. OFF$ XA .ENDM5 .IRP X,<,,,>S OFF$ X .ENDM .LIST .ENDC .ENDM STIM$SCQ  .MACRO STIM$ NBUF,OBUFF .MCALL OFF$ .IF NDF $$$GLBF .BYTE 61.,3 .WORD NBUF .WORD OBUFD .ENDC .IF NDF S.TIBAN .NLISTF OFF$ OFF$ S.TIBA,2 OFF$ S.TIBO,2 .IF NDF S.TIYR $$$OST=05 .IRP X,<,,,>6 OFF$ XR .ENDM5 .IRP X,<,,,>2 OFF$ X, .ENDM .ENDC .LIST .ENDC .ENDM STIM$Q  .MACRO SVDB$C AD,LN,CS,ERRC .MCALL SVDB$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$$$$$=. .IFTF SVDB$ AD,LN .IFTB .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SVDB$C.Q  .MACRO SVDB$S AD,LN,ERR .MCALL MOV$,DIR$S MOV$ LN MOV$ AD MOV (PC)+,-(SP) .BYTE 103.,3S DIR$ ,ERR .ENDM SVDB$S<Q  .MACRO SVDB$ A,LH .MCALL OFF$ .IF NDF $$$GLB .BYTE 103.,3S .WORD A .WORD L .ENDC .IF NDF S.VDTA. .NLISTN .IRP X,<,,> OFF$ X .ENDM .LIST .ENDC .ENDM SVDB$Q  .MACRO SVTK$C ADR,LEN,CS,ERRB .MCALL SVTK$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$$$$$=.$ .IFTF SVTK$ ADR,LEN .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SVTK$C Q  .MACRO SVTK$S ADR,LEN,ERR .MCALL MOV$,DIR$ MOV$ LEN MOV$ ADR$ MOV (PC)+,-(SP) .BYTE 105.,3B DIR$ ,ERR .ENDM SVTK$SNQ  .MACRO SVTK$ TA,TL. .MCALL OFF$ .IF NDF $$$GLB. .BYTE 105.,3R .WORD TAT .WORD TLL .ENDC .IF NDF S.VTTA. .NLISTN .IRP X,<,,> OFF$ X  .ENDM .LIST .ENDC .ENDM SVTK$Q  .MACRO ULGF$C CS,ERR$ .MCALL ULGF$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$ $$$=.R .IFTF ULGF$ .IFT  .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ULGF$CCrQ  .MACRO ULGF$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 159.,1 DIR$ ,ERR .ENDM ULGF$SZQ  .MACRO ULGF$L .IF NDF $$$GLB$ .BYTE 159.,11 .ENDC .ENDM ULGF$Q % .MACRO VRCD$C TN,BA,BL=13.,TI,CS,ERRS .MCALL VRCD$,DIR$ .IF NDF $$$GLBM .PSECT $DPB$$$$$=.M .IFTF VRCD$ TN,BA,BL,TI .IFTL .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VRCD$CQ # .MACRO VRCD$S TN,BA,BL=#13.,TI,ERRC .MCALL MOV$,DIR$, RFA$N MOV$ TI MOV$ BL MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 75.,6.M DIR$ ,ERR .ENDM VRCD$S,"Q  .MACRO VRCD$ TN,BA,BL=13.,TI .MCALL OFF$, R50$ .IF NDF $$$GLBY .BYTE 75.,6.N R50$ TN .WORD BA .WORD BL .WORD TIR .ENDC .IF NDF R.VDTNR .NLISTL6 .IRP X,<,,,,> OFF$ XV .ENDM .LIST .ENDC .ENDM VRCD$Q % .MACRO VRCS$C TN,BA,BL=13.,TI,CS,ERR .MCALL VRCS$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.N .IFTF VRCS$ TN,BA,BL,TI .IFTA .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VRCS$CQ # .MACRO VRCS$S TN,BA,BL=#13.,TI,ERRL .MCALL MOV$,DIR$, RFA$5 MOV$ TI MOV$ BL MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 139.,6. DIR$ ,ERR .ENDM VRCS$SR"Q  .MACRO VRCS$ TN,BA,BL=13.,TI, .MCALL OFF$, R50$ .IF NDF $$$GLBN .BYTE 139.,6. R50$ TN .WORD BA .WORD BL .WORD TIR .ENDC .IF NDF R.VSTNR .NLISTL6 .IRP X,<,,,,> OFF$ XV .ENDM .LIST .ENDC .ENDM VRCS$Q % .MACRO VRCX$C TN,BA,BL=13.,TI,CS,ERR .MCALL VRCX$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.5 .IFTF VRCX$ TN,BA,BL,TI .IFTA .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VRCX$CQ # .MACRO VRCX$S TN,BA,BL=#13.,TI,ERRL .MCALL MOV$,DIR$, RFA$5 MOV$ TI MOV$ BL MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 77.,6.. DIR$ ,ERR .ENDM VRCX$SR"Q  .MACRO VRCX$ TN,BA,BL=13.,TI, .MCALL OFF$, R50$ .IF NDF $$$GLBN .BYTE 77.,6.N R50$ TN .WORD BA .WORD BL .WORD TIR .ENDC .IF NDF R.VXTNR .NLISTL6 .IRP X,<,,,,> OFF$ XV .ENDM .LIST .ENDC .ENDM VRCX$Q . .MACRO VSDA$C TN,BA,BL=13.,EFN,SPRI,TI,CS,ERR .MCALL VSDA$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$$$$$=.  .IFTF VSDA$ TN,BA,BL,EFN,SPRI,TIV .IFT- .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VSDA$CQ , .MACRO VSDA$S TN,BA,BL=#13.,EFN,SPRI,TI,ERR .MCALL MOV$,RFA$,DIR$ MOV$ TI MOV$ SPRI MOV$ BL MOV$ EFNB MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 71.,8.. DIR$ ,ERR .ENDM VSDA$S2xQ & .MACRO VSDA$ TN,BA,BL=13.,EFN,SPRI,TI .MCALL R50$,OFF$ .IF NDF $$$GLBA .BYTE 71.,8.A R50$ TN .WORD BAS .WORD EFN .WORD BL$ .WORD SPRI$ .WORD TIC .ENDC .IF NDF S.DATN .NLIST,+ .IRP X,<,,,>  OFF$ X .ENDM* .IRP X,<,,> OFF$ XA .ENDM .LIST .ENDC .ENDM VSDA$VQ + .MACRO VSRC$ TNAME,BUF,BUFLEN,EFN,EAST,ESBA .MCALL OFF$,R50$C .IF NDF $$$GLB7 .BYTE 141.,8. R50$ TNAMED .WORD BUF .WORD EFN .WORD BUFLENN .WORD EASTN .WORD ESB .ENDC .IF NDF V.SRTNFL .IRP X,<,,,,,,> OFF$ X. .ENDM .ENDC .ENDM VSRC$Q 3 .MACRO VSRC$C TNAME,BUF,BUFLEN,EFN,EAST,ESB,CS,ERR .MCALL VSRC$,DIR$ .IF NDF $$$GLB> .PSECT $DPB$$$$$=. .IFTF$ VSRC$ TNAME,BUF,BUFLEN,EFN,EAST,ESB .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VSRC$CCQ 0 .MACRO VSRC$S TNAME,BUF,BUFLEN,EFN,EAST,ESB,ERR .MCALL DIR$,MOV$,RFA$,MVB$F MOV$ ESBD MOV$ EAST MOV$ BUFLEN MOV$ EFNV MOV$ BUFR RFA$ TNAME, MOV (PC)+,-(SP) .BYTE 141.,72 DIR$ ,ERR .ENDM VSRC$SOQ  .MACRO WSIG$C PSCT,ERR .MCALL WSIG$,DIR$ .IF NDF $$$GLBB .PSECT $DPB$$$$$=.R .IFTF WSIG$ .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM WSIG$CRpQ  .MACRO WSIG$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 49.,1 DIR$ ,ERR .ENDM WSIG$SXQ  .MACRO WSIG$F .IF NDF $$$GLB. .BYTE 49.,1 .ENDC .ENDM WSIG$Q  .MACRO WTLO$C SET,MASK,CS,ERR .MCALL WTLO$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.R .IFTF WTLO$ SET, .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM WTLO$CNzQ  .MACRO WTLO$S SET,MSK,ERR .MCALL MOV$,DIR$C$$$T1=1D .IF EQ SET-4.$$$T1=0N .IRP X, $$$T1=$$$T1+1. .ENDM .IF NE $$$T1-1 ) .ERROR SET ;UNSUPPORTED EXECUTIVE OPTION  .ENDC .ENDC .IF EQ $$$T1-1 MOV$ MSKR .IF NE SETF MOV #SET,-(SP)Y .IFF1 CLR -(SP) .ENDC MOV (PC)+,-(SP) .BYTE 43.,3 .ENDC DIR$ ,ERR .ENDM WTLO$S,.Q  .MACRO WTLO$ SET,MASK .IF NDF $$$GLBL$$$T1=1A .IF EQ SET-4.$$$T1=0 .IRP X, $$$T1=$$$T1+1W .ENDM .IF NE $$$T1-1) .ERROR SET ;UNSUPPORTED EXECUTIVE OPTIONR .ENDC .ENDC .IF EQ $$$T1-1T .BYTE 43.,3 .WORD SET .WORD MASK. .ENDC .ENDC .ENDM WTLO$Q  .MACRO WTSE$C EF,CS,ERR .MCALL WTSE$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$$$$$=.E .IFTF WTSE$ EFC .IFT) .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM WTSE$CDQ  .MACRO WTSE$S EF,ERR .MCALL MOV$,DIR$, MOV$ EF MOV (PC)+,-(SP) .BYTE 41.,2 DIR$ ,ERR .ENDM WTSE$SMQ  .MACRO WTSE$ EFN .MCALL OFF$ .IF NDF $$$GLBT .BYTE 41.,2 .WORD EFN .ENDC .IF NDF W.TSEF- .NLISTE OFF$ OFF$ W.TSEF,2 .LIST .ENDC .ENDM WTSE$Q  .MACRO DIR$ ADR,ERR .IF NB . MOV ADR,-(SP) .ENDC EMT ^O<377> .IIF NB , .MCALL ERR$ .IIF NB , ERR$ ERR .ENDM DIR$$*Q  .MACRO ERR$ ERR .IF NB . .NLISTE .NTYPE $$$T1,ERR  .LIST .IIF EQ ^O<$$$T1-27>, BCC .+6 .IIF EQ ^O<$$$T1-37>, BCC .+6 .IF GE ^O<$$$T1-60> BCC .+6 .IFFE .IF NE ^O<$$$T1-27> .IIF NE ^O<$$$T1-37>, BCC .+4 .ENDC .ENDC CALL ERRF .ENDC .ENDM ERR$OQ  .MACRO MVB$ LOW,HIGHN .IF B .IF B . CLR -(SP) .IFF CLRB -(SP). MOVB HIGH,1(SP) .ENDC .IFF< .IF B < CLR -(SP) MOVB LOW,(SP) .IFF  MOVB LOW,-(SP)D MOVB HIGH,1(SP) .ENDC .ENDC .ENDM MVB$NQ  .MACRO OFF$ SYMB,LEN. .IF B <'SYMB'LEN>$$$OST=2 .MEXIT. .ENDC .IF NB  .IF NDF $$$GLB$ SYMB=$$$OSTC .IFF. SYMB==$$$OST .ENDC .ENDC .IF NB -$$$OST = ^O<$$$OST+LEN>N .ENDC .ENDM OFF$CQ  .MACRO RFA$ ADR .IF NB H .NLISTF .NTYPE $$$T2,ADRI .LIST .IF LT $$$T2-6 MOV 2(ADR),-(SP)  MOV (ADR),-(SP) .IFF< MOV ADR,-(SP) MOV @(SP),-(SP) ADD #2,2(SP)F MOV @2(SP),2(SP)D .ENDC .IFFS CLR -(SP) CLR -(SP) .ENDC .ENDM RFA$Q * .MACRO RVP$ P0,P1,P2,P3,P4,P5,P6,P7,P8,P9 .MCALL MOV$ .NLIST .NARG $$$ARGF .LIST .IIF GT $$$ARG-9., MOV$ $ .IIF GT $$$ARG-8., MOV$ L .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$(Q  .MACRO R50$ NAMEF .NLIST- .NCHR $$$T1,NAME. .LIST .IF EQ $$$T1 .WORD 0,0 .IFFR .IF GT $$$T1-63 $$$T4=.+47 .IFTF .RAD50 /NAME/ .IFT.=$$$T4$ .ENDC .IIF LT $$$T1-4, .WORD 0O .ENDC .ENDM R50$$Q  .MACRO MOV$ ARG .IF NB . .IF DIF <ARG>,<#0>  MOV ARG,-(SP) .MEXITM .ENDC .ENDC CLR -(SP) .ENDM MOV$.Q  .MACRO AFF$CPA=1$CPB=2MCPC=4>CPD=10UBE=20UBF=40UBH=100.UBJ=200$UBK=400 UBL=1000UBM=2000UBN=4000 UBP=10000A UBR=20000M UBS=40000- UBT=100000 .ENDM AFF$Q  .MACRO GFN$GI.GAS=0GI.UIC=1GI.DEF=2GI.FMK=3GI.QMC=4GI.UAB=5GI.DEV=6 GI.SPR=7.. GI.REN=8. GI.APR=9. GI.TSK=10. .ENDMQ  .MACRO QIOSY$ $$$GBL,$$$MSG) .IIF IDN,<$$$GBL>,, .GLOBL QI.VERA .IF IDN,<$$$MSG>, $$$MAX=0R $$MSG=1 .IFFV $$MSG=0 .ENDC .MCALL IOERR$ IOERR$ $$$GBL .MCALL DRERR$ DRERR$ $$$GBL .IF DIF,<$$$MSG>,0 .MCALL FILIO$ FILIO$ $$$GBL .MCALL SPCIO$ SPCIO$ $$$GBL .MACRO QIOSY$ ARG,ARG1,ARG2 .ENDM QIOSY$ .ENDC .ENDM QIOSY$S Q  .MACRO IOERR$ $$$GBL4 .MCALL .IOER.,DEFIN$I .IF IDN,<$$$GBL>,R ...GBL=1K .IFF. ...GBL=0 .ENDC .IIF NDF,$$MSG,$$MSG=0, .IOER. IE.BAD,-01.$ .IOER. IE.IFC,-02.Q .IOER. IE.DNR,-03.M .IOER. IE.VER,-04.= .IOER. IE.ONP,-05. .IOER. IE.SPC,-06.C .IOER. IE.DNA,-07.$ .IOER. IE.DAA,-08. .IOER. IE.DUN,-09.D .IOER. IE.EOF,-10. .IOER. IE.EOV,-11.O .IOER. IE.WLK,-12.I .IOER. IE.DAO,-13.. .IOER. IE.SRE,-14., .IOER. IE.ABO,-15. .IOER. IE.PRI,-16.S .IOER. IE.RSU,-17.. .IOER. IE.OVR,-18. .IOER. IE.BYT,-19.I .IOER. IE.BLK,-20.D .IOER. IE.MOD,-21.. .IOER. IE.CON,-22.N .IOER. IE.BBE,-56.$ .IOER. IE.STK,-58.D .IOER. IE.FHE,-59.C .IOER. IE.EOT,-62.R .IOER. IE.OFL,-65.R .IOER. IE.BCC,-66.P+ .IOER. IE.NFW,-69. ;-+ .IOER. IE.DIS,-69. ;91 .IOER. IE.NDR,-72. ;O .IOER. IE.TMO,-95.O .IOER. IE.CNR,-96.O .IOER. IE.NOD,-23.O .IOER. IE.DFU,-24.O .IOER. IE.IFU,-25.O .IOER. IE.NSF,-26.O .IOER. IE.LCK,-27.O .IOER. IE.HFU,-28.O .IOER. IE.WAC,-29.O .IOER. IE.CKS,-30.O .IOER. IE.WAT,-31.O .IOER. IE.RER,-32.O .IOER. IE.WER,-33.O .IOER. IE.ALN,-34.O .IOER. IE.SNC,-35.O .IOER. IE.SQC,-36.O .IOER. IE.NLN,-37.O .IOER. IE.CLO,-38.h .IOER. IE.DUP,-57.. .IOER. IE.BVR,-63.a .IOER. IE.BHD,-64. .IOER. IE.EXP,-75.< .IOER. IE.BTF,-76.l .IOER. IE.ALC,-84.O .IOER. IE.ULK,-85.R .IOER. IE.WCK,-86.D .IOER. IE.DSQ,-90.U .IOER. IE.NBF,-39.U .IOER. IE.RBG,-40.F .IOER. IE.NBK,-41.K .IOER. IE.ILL,-42.U .IOER. IE.BTP,-43.C .IOER. IE.RAC,-44.S .IOER. IE.RAT,-45.T .IOER. IE.RCN,-46.R .IOER. IE.2DV,-48.R .IOER. IE.FEX,-49.N .IOER. IE.BDR,-50.C .IOER. IE.RNM,-51.C .IOER. IE.BDI,-52.N .IOER. IE.FOP,-53.O .IOER. IE.BNM,-54.P .IOER. IE.BDV,-55.R .IOER. IE.NFI,-60.D .IOER. IE.ISQ,-61.P .IOER. IE.NNC,-77.F .IOER. IE.NNN,-68.C .IOER. IE.BLB,-70.K .IOER. IE.URJ,-73.K .IOER. IE.NRJ,-74.Q .IOER. IE.NDA,-78.F .IOER. IE.IQU,-91.G .IOER. IE.RES,-92.K .IOER. IE.TML,-93.L .IOER. IE.NNT,-94.P .IOER. IE.UKN,-97.C .IOER. IE.NLK,-79.T .IOER. IE.NST,-80.N .IOER. IE.FLN,-81.V .IOER. IE.IES,-82.X .IOER. IE.PES,-83.R .IOER. IE.ICE,-47.M .IOER. IE.ONL,-67.I .IOER. IE.SZE,-98.P .IOER. IE.NTR,-87.M .IOER. IE.REJ,-88.V .IOER. IE.FLG,-89.I DEFIN$ IS.PND,+00.Q DEFIN$ IS.SUC,+01.C DEFIN$ IS.RDD,+02.N DEFIN$ IS.TNC,+02.B DEFIN$ IS.BV,+05. DEFIN$ IS.DAO,+02.N DEFIN$ IS.CR,<15*400+1> DEFIN$ IS.ESC,<33*400+1> DEFIN$ IS.CC,<3*400+1>O DEFIN$ IS.ESQ,<233*400+1> DEFIN$ IS.PES,<200*400+1> DEFIN$ IS.EOT,<4*400+1> DEFIN$ IS.TAB,<11*400+1>O DEFIN$ IS.TMO,+2. .IF EQ,$$MSG2 .MACRO IOERR$ A .ENDM IOERR$  .ENDC .ENDM IOERR$EBQ  .MACRO DRERR$ $$$GBL  .MCALL .QIOE.,DEFIN$E .IF IDN,<$$$GBL>,- ...GBL=1N .IFFD ...GBL=0F .ENDC .IIF NDF,$$MSG,$$MSG=0+3 .QIOE. IE.UPN,-01. ;N .QIOE. IE.INS,-02.N .QIOE. IE.PTS,-03.D .QIOE. IE.UNS,-04.1 .QIOE. IE.ULN,-05.4 .QIOE. IE.HWR,-06.Q .QIOE. IE.ACT,-07.  .QIOE. IE.ITS,-08.D .QIOE. IE.FIX,-09.> .QIOE. IE.CKP,-10.4 .QIOE. IE.TCH,-11.O .QIOE. IE.RBS,-15. .QIOE. IE.PRI,-16.N .QIOE. IE.RSU,-17.. .QIOE. IE.NSW,-18. .QIOE. IE.ILV,-19.R .QIOE. IE.AST,-80.Q .QIOE. IE.MAP,-81.N .QIOE. IE.IOP,-83.. .QIOE. IE.ALG,-84.. .QIOE. IE.WOV,-85.  .QIOE. IE.NVR,-86.. .QIOE. IE.NVW,-87.n .QIOE. IE.ITP,-88.o .QIOE. IE.IBS,-89.S .QIOE. IE.LNL,-90.S .QIOE. IE.IUI,-91.S .QIOE. IE.IDU,-92.N .QIOE. IE.ITI,-93.R .QIOE. IE.PNS,-94.T .QIOE. IE.IPR,-95.S .QIOE. IE.ILU,-96.X .QIOE. IE.IEF,-97.P .QIOE. IE.ADP,-98.H .QIOE. IE.SDP,-99.S DEFIN$ IS.CLR,0 DEFIN$ IS.SET,2 DEFIN$ IS.SPD,2 .IF EQ,$$MSG8 .MACRO DRERR$ A .ENDM DRERR$  .ENDC .ENDM DRERR$EQ  .MACRO FILIO$ $$$GBL  .MCALL .WORD.,DEFIN$E .IF IDN,<$$$GBL>,- ...GBL=1E .IFFW ...GBL=0I .ENDC .WORD. IQ.X,001,000 .WORD. IQ.Q,002,000 .WORD. IQ.S,004,000 .WORD. IQ.UMD,004,000 .WORD. IQ.LCK,200,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.SET,030,000 .WORD. IO.WLB,000,001 .WORD. IO.RLB,000,002 .WORD. IO.LOV,010,002 .WORD. IO.LDO,110,002 .WORD. IO.ATT,000,003 .WORD. IO.DET,000,004 .WORD. IO.FNA,000,011 .WORD. IO.RNA,000,013 .WORD. IO.ENA,000,014 .WORD. IO.CLN,000,007 .WORD. IO.ULK,000,012 .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 .WORD. IO.APV,010,030 .WORD. IO.APC,000,030 .MACRO FILIO$ A .ENDM FILIO$ .ENDM FILIO$0x Q  .MACRO SPCIO$ $$$GBLO .MCALL .WORD.,DEFIN$O .IF IDN,<$$$GBL>,A ...GBL=1. .IFFO ...GBL=07 .ENDC .WORD. IO.WLV,100,001 .WORD. IO.WLS,010,001 .WORD. IO.WNS,020,001 .WORD. IO.WAL,010,001 .WORD. IO.WMS,020,001 .WORD. IO.CCO,040,001 .WORD. IO.WBT,100,001 .WORD. IO.WLT,010,001 .WORD. IO.WLC,020,001 .WORD. IO.WPB,040,001 .WORD. IO.WDD,140,001 .WORD. IO.RSN,140,002 .WORD. IO.RLV,100,002 .WORD. IO.RST,001,002 .WORD. IO.RAL,010,002 .WORD. IO.RNE,020,002 .WORD. IO.RNC,040,002 .WORD. IO.RTM,200,002 .WORD. IO.RDB,200,002 .WORD. IO.SCF,200,002 .WORD. IO.RHD,010,002 .WORD. IO.RNS,020,002 .WORD. IO.CRC,040,002 .WORD. IO.RPB,040,002 .WORD. IO.RLC,020,002 .WORD. IO.ATA,010,003 .WORD. IO.GTS,000,005 .WORD. IO.R1C,000,005 .WORD. IO.INL,000,005 .WORD. IO.TRM,010,005 .WORD. IO.RWD,000,005 .WORD. IO.SPB,020,005 .WORD. IO.RPL,020,005 .WORD. IO.SPF,040,005 .WORD. IO.STC,100,005 .WORD. IO.SMD,110,005 .WORD. IO.SEC,120,005 .WORD. IO.RWU,140,005 .WORD. IO.SMO,160,005 .WORD. IO.HNG,000,006 .WORD. IO.RBC,000,006 .WORD. IO.MOD,000,006 .WORD. IO.HDX,010,006 .WORD. IO.FDX,020,006 .WORD. IO.SYN,040,006 .WORD. IO.EOF,000,006 .WORD. IO.ERS,020,006 .WORD. IO.DSE,040,006 .WORD. IO.RTC,000,007 .WORD. IO.SAO,000,010 .WORD. IO.SSO,000,011 .WORD. IO.RPR,000,011 .WORD. IO.MSO,000,012 .WORD. IO.RTT,001,012 .WORD. IO.SLO,000,013 .WORD. IO.MLO,000,014 .WORD. IO.LED,000,024 .WORD. IO.SDO,000,025 .WORD. IO.SDI,000,026 .WORD. IO.SCS,000,026 .WORD. IO.REL,000,027 .WORD. IO.MCS,000,027 .WORD. IO.ADS,000,030 .WORD. IO.CCI,000,030 .WORD. IO.LOD,000,030 .WORD. IO.MDI,000,031 .WORD. IO.DCI,000,031 .WORD. IO.PAD,000,031 .WORD. HT.RPP,010,000 .WORD. IO.XMT,000,031 .WORD. IO.XNA,010,031 .WORD. IO.INI,000,031 .WORD. IO.HIS,000,032 .WORD. IO.RCI,000,032 .WORD. IO.RCV,000,032 .WORD. IO.CLK,000,032 .WORD. IO.CSR,000,032 .WORD. IO.MDO,000,033 .WORD. IO.CTI,000,033 .WORD. IO.CON,000,033 .WORD. IO.STA,000,033 .WORD. IO.DTI,000,034 .WORD. IO.DIS,000,034 .WORD. IO.MDA,000,034 .WORD. IO.DPT,010,034 .WORD. IO.RTI,000,035 .WORD. IO.CTL,000,035 .WORD. IO.STP,000,035 .WORD. IO.SWI,000,035 .WORD. IO.CNT,000,036 .WORD. IO.ITI,000,036 .WORD. IO.CPR,010,033 .WORD. IO.CAS,020,033 .WORD. IO.CRJ,040,033 .WORD. IO.CBO,110,033 .WORD. IO.CTR,210,033 .WORD. IO.GNI,010,035 .WORD. IO.GLI,020,035 .WORD. IO.GLC,030,035 .WORD. IO.GRI,040,035 .WORD. IO.GRC,050,035 .WORD. IO.GRN,060,035 .WORD. IO.CSM,070,035 .WORD. IO.CIN,100,035 .WORD. IO.SPW,110,035 .WORD. IO.CPW,120,035 .WORD. IO.NLB,130,035 .WORD. IO.DLB,140,035 .WORD. IO.CTY,000,007 .WORD. IO.DTY,000,015 .WORD. IO.LDI,000,016 .WORD. IO.UDI,010,023 .WORD. IO.LTI,000,017 .WORD. IO.UTI,020,023 .WORD. IO.LTY,000,020 .WORD. IO.UTY,030,023 .WORD. IO.LKE,000,024 .WORD. IO.UER,040,023 .WORD. IO.NLK,000,023 .WORD. IO.ONL,000,037 .WORD. IO.FLN,000,025 .WORD. IO.RAD,000,021 .WORD. IO.MAO,010,007 .WORD. IO.LEI,010,017 .WORD. IO.RDD,010,020 .WORD. IO.RMT,020,020 .WORD. IO.LSI,000,022 .WORD. IO.UEI,050,023 .WORD. IO.USI,060,023 .WORD. IO.CSI,000,026 .WORD. IO.DSI,000,027 .WORD. IO.ATX,000,001 .WORD. IO.ATF,000,002 .WORD. IO.CRX,000,031 .WORD. IO.DRX,000,032 .WORD. IO.RTF,000,033 .MACRO SPCIO$ A .ENDM SPCIO$ .ENDM SPCIO$0\Q  .MACRO UMDIO$ $$$GBLO .MCALL .WORD.,DEFIN$O .IF IDN <$$$GBL>,N...GBL=1 .IFF ...GBL=0 .ENDC .WORD. IQ.UMD,004,000 .WORD. IO.HMS,000,010 .WORD. IO.BLS,010,010 .WORD. IO.OFF,020,010 .WORD. IO.RDH,030,010 .WORD. IO.WDH,040,010 .WORD. IO.WCK,050,010 .WORD. IO.RNF,060,010 .WORD. IO.RNR,070,010 .WORD. IO.LPC,100,010 .WORD. IO.RTD,120,010 .WORD. IO.WTD,130,010 .WORD. IO.TDD,140,010 .WORD. IO.DGN,150,010 .WORD. IO.WPD,160,010 .WORD. IO.RPD,170,010 .WORD. IO.CER,200,010 .WORD. IO.CEW,210,010 .MACRO UMDIO$ A .ENDM .ENDM UMDIO$GQ  .MACRO .IOER. SYM,LO,MSGD DEFIN$ SYM,LO .IF GT,$$MSGS .MCALL .IOMG. .IOMG. SYM,LO, .ENDC .ENDM .IOER.OQ  .MACRO .QIOE. SYM,LO,MSG. DEFIN$ SYM,LO .IF GT,$$MSGO .MCALL .IOMG. .IOMG. SYM,,  .ENDC .ENDM .QIOE. Q  .MACRO .IOMG. SYM,LO,MSGD .WORD -^O .ENABL LC .ASCIZ ^MSG^. .DSABL LC .EVEN' .IIF LT,^O<$$$MAX+>,$$$MAX=-^O2 .ENDM .IOMG. VQ  .MACRO .WORD. SYM,LO,HI DEFIN$ SYM, .ENDM .WORD.IQ  .MACRO SNPDF$ GBL .IF IDN ,7 .GLOBL SB.CTL,SB.DEV,SB.UNT,SB.EFN,SB.ID,SB.LM1,SB.PMD1 .GLOBL SC.HDR,SC.LUN,SC.OVL,SC.STK,SC.WRD,SC.BYTO .ENDC$ SB.CTL = 0 SB.DEV = 2 SB.UNT = 4#SB.DSW = 5 ;DIRECTIVE STATUS WORD SB.EFN = 6SB.ID = ^O<10>ISB.LM1 = ^O<12>SB.PMD = ^O<32>. SC.HDR = 1 SC.LUN = 2 SC.OVL = 4SC.STK = ^O<10>TSC.WRD = ^O<20>$SC.BYT = ^O<40>. .MACRO SNPDF$ X .ENDM .ENDM SNPDF$WQ : .MACRO SNPBK$ DEV,UNIT,CTL,EFN,ID,L1,H1,L2,H2,L3,H3,L4,H4 .IF DF ..SPBK .IIF NE <..SPBK-.>, .MEXITL .ENDC .MCALL SNPDF$ SNPDF$B..SPBK::.WORD CTL .ASCII /DEV/S .IF NE .-<..SPBK+SB.DEV+2>.% .ERROR ;INVALID DEVICE NAME ''DEV''2 .MEXIT= .ENDC: .BYTE UNIT,0 ;DEVICE UNIT NUMBER & DIRECTIVE STATUS WORD .WORD EFN ;EVENT FLAG NUMBER .WORD IDH .WORD L1,H1 .WORD L2,H2 .WORD L3,H3 .WORD L4,H4 .RAD50 /PMD.../ .ENDM SNPBK$AQ < .MACRO SNAP$ CTL,EFN,ID,L1,H1,L2,H2,L3,H3,L4,H4,?LBL1,?LBL2* .MCALL SNPDF$,WTSE$S,SDAT$S,RQST$S,CLEF$S SNPDF$.% .IIF NB , MOV CTL,..SPBK+SB.CTLC% .IIF NB , MOV EFN,..SPBK+SB.EFN" .IIF NB , MOV ID,..SPBK+SB.IDC MOVB @#$DSW,..SPBK+SB.DSW ;MOVE REQUESTING TASK'S DSW TO SNAP BLOC...SNP = SB.LM1E! .IRP X, .IF NB E MOV X,..SPBK+...SNP .ENDC...SNP = ...SNP+2 .ENDM CLEF$S ..SPBK+SB.EFNO BCS LBL2. SDAT$S #..SPBK+SB.PMD,#..SPBK BCS LBL2 RQST$S #..SPBK+SB.PMD BCC LBL11 CMP #IE.ACT,@#$DSWB BEQ LBL1. SEC BR LBL2LBL1: WTSE$S ..SPBK+SB.EFNLBL2: .ENDM SNAP$Q  .MACRO ISTAT$ STTBL,KEYTBL,DEBUG .MCALL MTRAN$ .IF DF $RONLY .PSECT $STATE,D,ROV .IFFW .PSECT $STATE,D .ENDCSTTBL::K .IF DF $RONLY .PSECT $KTAB,D,RO .IFFR .PSECT $KTAB,DL .ENDCKEYTBL:: .IF DF $RONLY .PSECT $KSTR,D,RO .IFFS .PSECT $KSTR,D. .ENDC .IF IDN ,<$DEBUG>L .MACRO DBGTP$ .LIST .=. .NLISTL .ENDM .IFFS .MACRO DBGTP$ .ENDM .ENDC $$$KEY = -1 $$$FLG = -1 $EXIT = 0 $LAMDA = 300. $NUMBR = 302B $STRNG = 304A $BLANK = 306 $SUBXP = 310T $EOS = 312L $DNUMB = 314 $RAD50 = 316 $ANY = 320 $ALPHA = 322. $DIGIT = 324S .PSECT. .ENDM ISTAT$Q .MACRO STATE$ LABEL. .PSECT $STATE $$$FLG = $$$FLG!200 MTRAN$D .IF NB LABELCLABEL: .ENDC $$$FLG = -1 .PSECT .ENDM STATE$Q (.MACRO TRAN$ TYPE,LABEL,ACTION,MASK,ADDR .PSECT $STATE MTRAN$. DBGTP$T .IF NB ACTION $$$FLG = $$$FLG!2 .MACRO $$$ACT .WORD ACTION .ENDM $$$ACT  .ENDC .IF NB MASK $$$FLG = $$$FLG!30U .IF B ADDR$" .ERROR "MASK ADDRESS NOT PRESENT" .ENDC .MACRO $$$BIT .WORD MASK,ADDR .ENDM $$$BIT .ENDC .IF NB LABEL $$$FLG = $$$FLG!4 $$$STA = LABEL. .ENDC .IRPC $$$$$X, .IF IDN <$$$$$X>,<">F .PSECT $KSTRE $$$TMP = .$ .ASCII TYPE<377> .PSECT $KTAB .WORD $$$TMP .MACRO $$$TYP .BYTE $$$KEY!200S .ENDM $$$TYP  $$$KEY = $$$KEY+1 .IF GT $$$KEY-63. .ERROR "TOO MANY KEYWORDS"R .ENDC .MEXITA .ENDC .IF IDN <$$$$$X>, $$$FLG = $$$FLG!1 .MACRO $$$EXT .WORD 0'TYPE. .ENDM $$$EXTR .MACRO $$$TYP .BYTE $SUBXPR .ENDM $$$TYPD .MEXITR .ENDC .MACRO $$$TYP .BYTE TYPEE .ENDM $$$TYP$ .MEXIT$ .ENDM .PSECT. .ENDM TRAN$$xQ  .MACRO MTRAN$" .PSECT $STATE .IF EQ $$$FLG+1 $$$FLG = 03 .MEXITS .ENDC $$$TYPD .BYTE $$$FLGR .IF NE $$$FLG&1 $$$EXTS .ENDC .IF NE $$$FLG&2 $$$ACT1 .ENDC .IF NE $$$FLG&10O $$$BITN .ENDC .IF NE $$$FLG&4 .WORD $$$STA. .IFF< .IF EQ $$$FLG&200 .ERROR "BAD DEFAULT TRANSITION" .ENDC .ENDC $$$FLG = 0. .ENDM MTRAN$Q  .MACRO TTSYM$ $$$GBL .MCALL DEFIN$ ...GBL=0Y .IF IDN,<$$$GBL>,. ...GBL=1N .ENDC DEFIN$ TC.WID,1. DEFIN$ TC.LPP,2.M DEFIN$ TC.RSP,3.C DEFIN$ TC.XSP,4.$ DEFIN$ TC.STB,5.3 DEFIN$ TC.ISL,6. DEFIN$ TC.RAT,7.$ DEFIN$ TC.TTP,8.G DEFIN$ TC.SCR,9.C DEFIN$ TC.SCP,10. DEFIN$ TC.HFL,11. DEFIN$ TC.VFL,12. DEFIN$ TC.NL ,13. DEFIN$ TC.SFF,14. DEFIN$ TC.HFF,15. DEFIN$ TC.LVF,16. DEFIN$ TC.HHT,17. DEFIN$ TC.NST,18. DEFIN$ TC.BSP,19. DEFIN$ TC.ACR,20. DEFIN$ TC.SMR,21. DEFIN$ TC.SMP,22. DEFIN$ TC.SMO,23. DEFIN$ TC.CCF,24. DEFIN$ TC.ALT,25. DEFIN$ TC.IMG,26. DEFIN$ TC.NKB,27. DEFIN$ TC.NPR,28. DEFIN$ TC.ESQ,29. DEFIN$ TC.LCP,30. DEFIN$ TC.PAR,31. DEFIN$ TC.EPA,32. DEFIN$ TC.DLU,33. DEFIN$ TC.BLK,34. DEFIN$ TC.FRM,35. DEFIN$ TC.HLD,36. DEFIN$ TC.TAP,37. DEFIN$ TC.CEQ,38. DEFIN$ TC.NEC,39. DEFIN$ TC.SLV,40. DEFIN$ TC.PRI,41. DEFIN$ TC.UC0,42. DEFIN$ TC.UC1,43. DEFIN$ TC.UC2,44. DEFIN$ TC.UC3,45. DEFIN$ TC.UC4,46. DEFIN$ TC.UC5,47. DEFIN$ TC.UC6,48. DEFIN$ TC.UC7,49. DEFIN$ TC.UC8,50. DEFIN$ TC.UC9,51. DEFIN$ TC.FDX,52. DEFIN$ TC.BIN,53. DEFIN$ TC.REM,54. DEFIN$ TC.8BC,55. DEFIN$ TC.P8B,56. DEFIN$ TC.TBF,57. DEFIN$ TC.CTS,58. DEFIN$ TC.ANS,59. DEFIN$ TC.CSQ,60. DEFIN$ TC.CTC,61. DEFIN$ TC.ASP,62. DEFIN$ TC.ABD,63. DEFIN$ TC.TBS,64. DEFIN$ TC.TBM,65. DEFIN$ TC.NBR,66. DEFIN$ TC.ACD,67. DEFIN$ TC.MAX,68. DEFIN$ SE.ICN,1.N DEFIN$ SE.FIX,2.N DEFIN$ SE.BIN,3.N DEFIN$ SE.VAL,4.N DEFIN$ SE.TER,5.N DEFIN$ SE.SPD,6.N DEFIN$ SE.SPL,7.N DEFIN$ SE.PAR,8.N DEFIN$ SE.LPR,9.N DEFIN$ SE.NSC,10. DEFIN$ SE.UPN,11. DEFIN$ SE.NIH,12. DEFIN$ SF.SSC, 2400!020 DEFIN$ SF.SMC, 2400!040 DEFIN$ SF.RDF, 2400!060 DEFIN$ SF.STT, 2400!100 DEFIN$ SF.STS, 2400!120 DEFIN$ SF.GSC, 2400!140 DEFIN$ SF.GMC, 2400!160 DEFIN$ SF.GAC, 2400!200 DEFIN$ SF.SAC, 2400!220 DEFIN$ SF.DEF, 010D DEFIN$ S.0 ,1.D DEFIN$ S.50 ,2.D DEFIN$ S.75 ,3.D DEFIN$ S.100 ,4.D DEFIN$ S.110 ,5.D DEFIN$ S.134 ,6.D DEFIN$ S.150 ,7.D DEFIN$ S.200 ,8.D DEFIN$ S.300 ,9.D DEFIN$ S.600 ,10. DEFIN$ S.1200,11. DEFIN$ S.1800,12. DEFIN$ S.2000,13. DEFIN$ S.2400,14. DEFIN$ S.3600,15. DEFIN$ S.4800,16. DEFIN$ S.7200,17. DEFIN$ S.9600,18. DEFIN$ S.EXTA,19. DEFIN$ S.EXTB,20. DEFIN$ T.UNK0,0.N DEFIN$ T.AS33,1. DEFIN$ T.KS33,2.0 DEFIN$ T.AS35,3.C DEFIN$ T.L30S,4.  DEFIN$ T.L30P,5.N DEFIN$ T.LA36,6.N DEFIN$ T.VT05,7.N DEFIN$ T.VT50,8.N DEFIN$ T.VT52,9.N DEFIN$ T.VT55,10. DEFIN$ T.VT61,11. DEFIN$ T.L180,12. DEFIN$ T.V100,13. DEFIN$ T.L120,14. DEFIN$ T.SCR0,15. DEFIN$ T.LA12,16. DEFIN$ T.L100,17. DEFIN$ T.LA34,18. DEFIN$ T.LA38,19. DEFIN$ T.V101,20. DEFIN$ T.V102,21. DEFIN$ T.V105,22. DEFIN$ T.V125,23. DEFIN$ T.V131,24. DEFIN$ T.V132,25. DEFIN$ T.USR0,27. DEFIN$ T.USR1,T.USR0+1S DEFIN$ T.USR2,T.USR1+1C DEFIN$ T.USR3,T.USR2+1F DEFIN$ T.USR4,T.USR3+1. DEFIN$ F1.ACR,0000015 DEFIN$ F1.BTW,000002N DEFIN$ F1.BUF,000004D DEFIN$ F1.UIA,000010N DEFIN$ F1.CCO,000020. DEFIN$ F1.ESQ,0000400 DEFIN$ F1.HLD,000100. DEFIN$ F1.LWC,000200D DEFIN$ F1.RNE,000400N DEFIN$ F1.RPR,001000. DEFIN$ F1.RST,0020008 DEFIN$ F1.RUB,004000. DEFIN$ F1.SYN,010000D DEFIN$ F1.TRW,020000N DEFIN$ F1.UTB,040000. DEFIN$ F1.VBF,1000002 DEFIN$ F2.SCH,000001. DEFIN$ F2.GCH,000002+ DEFIN$ F2.DCH,000004R DEFIN$ F2.DKL,000010U DEFIN$ F2.ALT,000020T DEFIN$ F2.SFF,000040R DEFIN$ F2.CUP,000100W DEFIN$ F2.FDX,000200F DEFIN$ TF.RST,001 DEFIN$ TF.BIN,002 DEFIN$ TF.RAL,010 DEFIN$ TF.RNE,020 DEFIN$ TF.RNC,040 DEFIN$ TF.XOF,100 DEFIN$ TF.TMO,200 DEFIN$ TF.RCU,001 DEFIN$ TF.WAL,010 DEFIN$ TF.WMS,020 DEFIN$ TF.CCO,040 DEFIN$ TF.WBT,100 DEFIN$ TF.SYN,200 DEFIN$ TF.XCC,001 DEFIN$ TF.NOT,002 DEFIN$ TF.AST,010 DEFIN$ TF.ESQ,020 DEFIN$ TF.UCH,040 .MACRO TTSYM$ NULLD .ENDM .ENDM TTSYM$DQ  .MACRO FHDOF$ GLOBALN .MCALL FHDO1$ ...GBL=02 .IF B,GLOBALD FHDO1$ DEF$L0 .IFFD .IF IDN,,F ...GBL=1D .ENDC FHDO1$ GLOBAL .ENDC .IF DIF,,D .MACRO FHDOF$ ARG1F .ENDM FHDOF$ .ENDC .ENDM FHDOF$FQ  .MACRO FHDO1$ OFFSETN .MCALL DEF$I,OFFSET,DEFIN$1 DEF$I 0 OFFSET H.IDOF,1 OFFSET H.MPOF,1 OFFSET H.FNUM,2 OFFSET H.FSEQ,2 OFFSET H.FLEV,2 OFFSET H.FOWN OFFSET H.PROG,1 OFFSET H.PROJ,1 OFFSET H.FPRO,2 DEFIN$ FP.RDV,1 DEFIN$ FP.WRV,2 DEFIN$ FP.EXT,4 DEFIN$ FP.DEL,10F OFFSET H.FCHA OFFSET H.UCHA,1 DEFIN$ UC.CON,200 DEFIN$ UC.DLK,100 DEFIN$ UC.CNB,40L DEFIN$ UC.WCK,20D DEFIN$ UC.RCK,10D DEFIN$ UC.WBC,4 DEFIN$ UC.NIB,2 OFFSET H.SCHA,1 DEFIN$ SC.MDL,200 DEFIN$ SC.BAD,100 DEFIN$ SC.DIR,40  DEFIN$ SC.SPL,201 OFFSET H.UFAT,32. OFFSET S.HDHD DEF$I 0 OFFSET I.FNAM,6 OFFSET I.FTYP,2 OFFSET I.FVER,2 OFFSET I.RVNO,2 OFFSET I.RVDT,7 OFFSET I.RVTI,6 OFFSET I.CRDT,7 OFFSET I.CRTI,6 OFFSET I.EXDT,7 OFFSET ,1 OFFSET S.IDHD DEFIN$ I.DASZ,7 DEFIN$ I.TISZ,6 DEF$I 0 OFFSET M.ESQN,1 OFFSET M.ERVN,1 OFFSET M.EFNU,2 OFFSET M.EFSQ,2 OFFSET M.CTSZ,1 OFFSET M.LBSZ,1 OFFSET M.USE,1C OFFSET M.MAX,1. OFFSET M.RTRV OFFSET S.MPHD DEFIN$ H.CKSM,510.N .IF DIF,,L .MACRO FHDO1$ ARG13 .ENDM FHDO1$D .ENDC .ENDM FHDO1$.Q  .MACRO HMBOF$ GLOBAL2 .MCALL HMBO1$ ...GBL=0 .IF B,GLOBALE HMBO1$ DEF$LF .IFFR .IF IDN,,F ...GBL=17 .ENDC HMBO1$ GLOBAL .ENDC .IF DIF,,I .MACRO HMBOF$ ARG1E .ENDM HMBOF$F .ENDC .ENDM HMBOF$.Q  .MACRO HMBO1$ OFFSET1 .MCALL DEF$I,OFFSET,DEFIN$. DEF$I 0 OFFSET H.IBSZ,2 OFFSET H.IBLB,4 OFFSET H.FMAX,2 OFFSET H.SBCL,2 OFFSET H.DVTY,2 OFFSET H.VLEV,2 OFFSET H.VNAM,12. OFFSET ,4 OFFSET H.VOWN,2 OFFSET H.VPRO,2 OFFSET H.VCHA,2 DEFIN$ CH.SDI,400 OFFSET H.DFPR,2 OFFSET ,6 OFFSET H.WISZ,1 OFFSET H.FIEX,1 OFFSET H.LRUC,1 OFFSET H.REVD,7 OFFSET H.REVC,2 OFFSET ,2 OFFSET H.CHK1,2 OFFSET H.VDAT,14. OFFSET ,382.H OFFSET H.PKSR,4 OFFSET ,12. OFFSET H.INDN,12. OFFSET H.INDO,12. OFFSET H.INDF,12. OFFSET ,2 OFFSET H.CHK2,2 .IF DIF,, .MACRO HMBO1$ ARG1F .ENDM HMBO1$O .ENDC .ENDM HMBO1$ Q  .MACRO CSI$1 CSBLK,BUFF,LEN .GLOBL .CSI1F .MCALL CSI$,LDR0$ .IF NDF C.SIZEN CSI$I .ENDC LDR0$ CSBLK .IF NB  MOV BUFF,C.CMLD+2(R0) .ENDC .IF NB C MOV LEN,C.CMLD(R0) .ENDC JSR PC,.CSI1E .ENDMQ  .MACRO CSI$2 CSBLK,IO,SWTAB .GLOBL .CSI2K .MCALL CSI$,LDR0$ .IF NDF C.SIZE. CSI$E .ENDC LDR0$ CSBLK .IF NB  .IF IDN ,2 MOVB #CS.INP,(R0) .IFFN .IF IDN , MOVB #CS.OUT,(R0) .IFF.# .ERROR ;INCORRECT REQUEST TO .CSI2R .ENDC .ENDC .ENDC .IF NB . MOV SWTAB,C.SWAD(R0)N .ENDC JSR PC,.CSI2N .ENDMVQ , .MACRO CSI$SW SW,MK,MKW,CLR,NEGS,VALTAB,LNG .IF B,SWM .ERROR ;MISSING SWITCH NAME .IFFC .EVEN .NCHR SIZ$$,SW .IF GT,SIZ$$-2$ .IF B,LNG SIZ$$=2 .ENDC .ENDC CNT$$=0 .IRPC CHR$$$,SW CHR$$=''CHR$$$N CNT$$=CNT$$+1 .IF GE,>N .IF LE,>R CHR$$=CHR$$-^O40N .ENDC .ENDC .IF LE,CNT$$-SIZ$$. $$=0. .IF NB,LNGE .IF IDN,, .IF GT,CNT$$&1N .IF GE,CNT$$+1-SIZ$$M $$=^O200S .ENDC .IFFC .IF LT,CNT$$-SIZ$$N $$=^O200 .ENDC .ENDC .IFFW .IF IDN,,T .IF EQ,CNT$$&1M .IF LT,CNT$$-SIZ$$I $$=^O200. .ENDC .ENDC .IFFZ- .ERROR ;ILLEGAL "LONG" OR "EXACT" SPECIFIER .ENDC .ENDC .ENDC .BYTE CHR$$!$$W .ENDC .ENDM .EVEN .ENDC .IF NB MK .WORD MK^ .IFF .WORD 0 .ENDC$$=0 .IF NB CLRR .IF IDN ,$$=1 .IFF$ .IF IDN , .IFFE .ERROR ;INVALID SET/CLEAR SPEC, .ENDC .ENDC .ENDC .WORD MKW+$$O$$=0 .IF NB NEGS .IF IDN ,$$=1 .IFF. .ERROR ;INVALID NEGATE SPEC .ENDC .ENDC .WORD VALTAB+$$ .ENDM4Q  .MACRO CSI$ND .WORD 0 .ENDM$Q # .MACRO CSI$SV TYPE,ADDR,LEN,VALTAB. .IF NB VALTABVALTAB:$ .ENDC .IF NB TYPE .IF IDN ,K .BYTE 1 .IFFF .IF IDN , .BYTE 2 .IFFF .IF IDN , .BYTE 2 .IFF< .IF IDN ,  .BYTE 3 .IFFR .ERROR ;INVALID CONVERSION TYPE .ENDC .ENDC .ENDC .ENDC .IFFI .BYTE 1 .ENDC .IF NB LEN .BYTE LEN .IFFG .ERROR ;LENGTH MISSING .BYTE 0 .ENDC .IF NB ADDR .WORD ADDR. .IFFS .ERROR ;VALUE ADDRESS MISSING .WORD 0 .ENDC .ENDM|Q  .MACRO LDR0$ ARG .IIF B,ARG,.MEXIT .NTYPE PAR$$$,ARG .IIF EQ,PAR$$$,.MEXIT MOV ARG,R0. .ENDMQ  .MACRO CSI$ GBL .IF IDN ,E.GLOBL C.TYPR,C.STAT,C.CMLD,C.DEVD,C.DIRD,C.FILD,C.SWAD,C.MKW1,C.MKW2O".GLOBL C.SIZE,C.DSDS,CS.INP,CS.OUT0.GLOBL CS.NMF,CS.DIF,CS.DVF,CS.WLD,CS.MOR,CS.EQU .ENDC C.TYPR =0E C.STAT =1G C.CMLD =2L C.DEVD =6NC.DIRD =^O<12>C.FILD =^O<16>C.SWAD =^O<22>C.MKW1 =^O<24>C.MKW2 =^O<26>C.SIZE =^O<54>C.DSDS =C.DEVD CS.INP =1 CS.OUT =2. CS.NMF =1 CS.DIF =2 CS.DVF =4TCS.WLD =^O<10>CS.MOR =^O<20>CS.EQU =^O<40> .MACRO CSI$ X .ENDM CSI$ .ENDM CSI$RLQ @ .MACRO GCMLB$ MAXD,PRMPT,UBUF,LUN,PDL,SIZE=80.,?PDL1,?DFNB,?BUF1 .MCALL FDBDF$,FDAT$A,FDOP$A,NMBLK$,FDBF$A,CBYTE$, FDBDF$G FDAT$A 2, .IF NB S FDOP$A LUN,,DFNB .IFF FDOP$A 1,,DFNBT .ENDC FDBF$A ,,1E% CBYTE$ ,F.RCTL .MCALL GCMLD$ GCMLD$O .BYTE 0 .IF LE " .BYTE GE.COM!GE.IND!GE.CLO!GE.SIZ .IFF=) .BYTE GE.COM!GE.IND!GE.CLO!GE.CON!GE.SIZW .ENDC .BLKW 4 .BYTE -1,MAXD .IF B .WORD PDL1. .IFFI .WORD PDL .ENDC .IF NB .WORD UBUF$ .IFFR .WORD BUF .ENDC$$$=.P .ASCII <15><12> .IF NB $ .ASCII /PRMPT>/ .IFFY .ASCII / >/ .ENDC.=$$$+6NDFNB: NMBLK$ CMI,CMD .WORD SIZEG.LPDL=*<6+<5*2>> .IF B PDL1: .BLKB G.LPDL .ENDC .IF B CBUF: .BLKB SIZE+2. .ENDC .ENDM GCMLB$Z Q  .MACRO GCML$ NAME,ADPR,LNPR .MCALL GCMLD$,LDR0$ GCMLD$ DEF$LN LDR0$ NAMEN .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$rQ  .MACRO RCML$ NAME .MCALL LDR0$$ LDR0$ NAMEM .GLOBL .GCML2 JSR PC,.GCML2 .ENDM RCML$pQ  .MACRO CCML$ BLK. .MCALL LDR0$. LDR0$ BLK .GLOBL .GCML3 JSR PC,.GCML3 .ENDM CCML$Q  .MACRO GCMLD$ GBL .IF NDF S.FDB .MCALL FDBSZ$ FDBSZ$E .ENDC .MCALL GCML$D GCML$D GBLM .MACRO GCMLD$ X .ENDM .ENDM GCMLD$RQ  .MACRO GCML$D GBL .IF IDN ," .GLOBL G.ERR,G.MODE,G.PSDS,G.CMLD0 .GLOBL GE.COM,GE.IND,GE.CLO,GE.LC,GE.CON,GE.SIZ* .GLOBL GE.IOR,GE.OPR,GE.BIF,GE.MDE,GE.EOF .ENDC G.ERR = S.FDBRG.MODE = G.ERR+1G.PSDS = G.ERR+2G.CMLD = G.ERR+6 G.ISIZ = 16.G.DPRM = G.ERR+G.ISIZG.SIZE = G.DPRM+6+S.FNBG GE.COM = 1 GE.IND = 2 GE.CLO = 4 GE.LC = 10 GE.CON = 20F GE.SIZ = 40. GE.IOR = -1 GE.OPR = -2N GE.BIF = -3C GE.MDE = -4 GE.EOF = -10.C GE.RBG = -40. .MACRO GCML$D X .ENDM .ENDM GCML$D Q . .MACRO PRINT$ FDB,ERR,?LBL,A,B,C,D,E,F,?LBL2 .MCALL CALL,CLOSE$,LDR0$,GLUN$S% LDR0$ FDB ;LOAD FDB ADDRESS INTO R0. TST F.BDB(R0) BEQ LBL MOV R1,-(SP) MOV R2,-(SP)= MOV R3,-(SP)S/ MOV SP,R1 ;SAVE POINTER TO END OF SEND BUFFERM/ SUB #<8.*2>,SP ;ALLOCATE A GET LUN INFO BUFFERM MOV SP,R2 MOVB F.LUN(R0),R3 GLUN$S R3,R2N% MOV G.LUCW(R2),R3 ;SAVE CHAR. WORD 1O MOV R0,R2 ;COPY FDB ADDRESS=4 ADD #F.FNB+N.DID+6,R2 ;POINT TO END OF DIRECTORY ID$ MOV -(R2),-(R1) ; PUSH DIRECTORY ID MOV -(R2),-(R1) ; MOV -(R2),-(R1) ;/ ADD #N.FID+6-N.DID,R2 ;POINT TO END OF FILE IDL MOV -(R2),-(R1) ;PUSH FILE ID MOV -(R2),-(R1) ; MOV -(R2),-(R1) ;' CLRB -(R1) ;CLEAR LUN INFO FLAGS BYTEM@ ADD #N.FVER+2-N.FID,R2 ;POINT TO END OF FILENAME, TYPE, VERSION* MOV -(R2),-(SP) ;PUSH FILE VERSION NUMBER MOV -(R2),-(SP) ;PUSH FILE TYPE MOV -(R2),-(SP) ;PUSH FILENAMEW MOV -(R2),-(SP) ; MOV -(R2),-(SP) ;' MOV SP,R1 ;SET POINTER TO SEND BUFFERI CLOSE$ R0 ;CLOSE FILER BCS LBL2I: BIT #FD.REC!FD.OSP,R3 ;RECORD ORIENTED OR SPOOLED DEVICE? BNE LBL2 ;IF NE YESO MOV R0,R2 ;SAVE FDB ADDRESSR# MOV #^RPRT,R0 ;GET "PRT" IN RAD-50, CALL $DSPAT ;SEND DATA TO ...PRT OR PRT...$ MOV R0,F.ERR(R2) ;GET RETURN STATUS MOV R2,R0 ;RESTORE FDB ADDRESSLBL2: ROR R1 ;SAVE CARRY; ADD #<13.*2>,SP ;CLEAN STACK- ROL R1 ;RESTORE CARRYE MOV (SP)+,R3S MOV (SP)+,R2M MOV (SP)+,R1- .IF NB ERR- BCC LBL CALL ERR, .ENDCLBL: .ENDM PRINT$EQ  .MACRO COMDF$ DEF .NLIST# .IF IDN ,8.GLOBL B.OT,B.UN,B.RC,B.RN,B.RP,B.RU,B.NA,B.UA,B.MN,B.MX.GLOBL CT.IN,CT.CN,LB.N,LB.E.GLOBL NT.IN,NT.NS.GLOBL CR.UR,CR.NR,CR.MXD.GLOBL CR.N0,CR.N1,CR.N2,CR.N3,CR.N4,CR.N5,CR.N6,CR.N9,CR.N10,CR.N11.GLOBL CR.N7,CR.N8.GLOBL CR.DI,CR.DT,CR.DA".GLOBL IA.ISM,IA.ABO,IA.DIS,IA.NFW.GLOBL CN.IN,CN.OU,CN.UT,CN.NTB.GLOBL OB.TA,OB.FS,OB.SQ,OB.BO,OB.TC,OB.RD,OB.RA,OB.ND,OB.DD,OB.BM<.GLOBL OB.TH,OB.TB,OB.TI,OB.CR,OB.LP,OB.PR,OB.PP,OB.PL,OB.MT*.GLOBL OB.DT,OB.CS,OB.CP,OB.FH,OB.MH,OB.FL .ENDC B.OT = 0> B.UN = 1O B.RC = B.OT+2 B.RN = B.RC+2 B.RP = B.RN+4 B.RU = B.RP+4 B.NA = B.RU+4 B.UA = B.NA+2 B.MN = B.UA B.MX = B.MN+10O NT.IN = 101 NT.NS = 1 CR.UR = 2 CR.NR = 3 CR.MX = 6 CR.N0 = 0. CR.N1 = 1O CR.N2 = 2T CR.N3 = 3L CR.N4 = 4O CR.N5 = 5W CR.N6 = 6N CR.N7 = 7C CR.N8 = 8. CR.N9 = 11 CR.N10 = 12O CR.N11 = 13D CR.DI = 4 CR.DT = 5 CR.DA = 6 LB.N=0O LB.E=2R CT.IN = 0 CT.CN = 1 IA.ABO = -5 IA.DIS = -7 IA.NFW = 177673 IA.ISM = 1 CN.IN = 1 CN.OU = 2 CN.UT = 4 CN.NT = 10 OB.TA = 0 OB.FS = 1 OB.SQ = 2 OB.BO = 3 OB.TC = 4 OB.RD = 5 OB.RA = 6 OB.ND = 7 OB.DD = 10S OB.BM = 11= OB.TH = 203 OB.TB = 21 OB.TI = 22 OB.CR = 23 OB.LP = 24 OB.PR = 25 OB.PP = 26 OB.PL = 27 OB.MT = 30 OB.DT = 31 OB.CS = 32 OB.CP = 33 OB.FH = 34O OB.MH = 351 OB.FL = 364 .MACRO COMDF$ A .ENDM .LIST .ENDM"Q  .MACRO RDBDF$ GBL .MCALL .BLKW.,.BLK. .BLK. .BLKW. 1,R.GID,GBLC .BLKW. 1,R.GSIZ,GBL .BLKW. 2,R.GNAM,GBL .BLKW. 2,R.GPAR,GBL .BLKW. 1,R.GSTS,GBL .BLKW. 1,R.GPRO,GBL .BLKW. 0,R.GLGH,GBL .IF IDN ,1 .GLOBL RS.CRR,RS.UNM,RS.MDL,RS.NDL,RS.ATT,RS.NEX=# .GLOBL RS.DEL,RS.EXT,RS.WRT,RS.RED. .ENDCRS.CRR=^O<100000>.RS.UNM=^O<40000>RS.MDL=^O<200>RS.NDL=^O<100> RS.ATT=^O<40> RS.NEX=^O<20>O RS.DEL=^O<10>. RS.EXT=^O<4> RS.WRT=^O<2> RS.RED=^O<1> .MACRO RDBDF$ X .ENDM .ENDM RDBDF$$Q " .MACRO RDBBK$ SIZ,NAM,PAR,STS,PRO .MCALL RDBDF$,R50$G RDBDF$W .WORD 0 .WORD SIZ R50$ NAMG R50$ PAR .WORD STS .WORD PRO .ENDM RDBBK$LQ  .MACRO ATRG$ RDBB .MCALL OFF$ .IF NDF $$$GLBL .BYTE 57.,2 .WORD RDB .ENDC .IF NDF A.TRBAT OFF$. OFF$ A.TRBA,2 .ENDC .ENDM ATRG$Q  .MACRO ATRG$C RDB,CS,ERRA .MCALL ATRG$,DIR$ .IF NDF $$$GLB< .PSECT $DPB$$$$$=.W .IFTF ATRG$ RDB .IFTA .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ATRG$CQ  .MACRO ATRG$S RDB,ERR .MCALL DIR$,MOV$ MOV$ RDB. MOV (PC)+,-(SP) .BYTE 57.,2 DIR$ ,ERR .ENDM ATRG$SOQ  .MACRO CPCR$ NAME .MCALL R50$,OFF$D .IF NDF $$$GLB .BYTE 205.,3L R50$ NAME .ENDC .IF NDF S.RETN. OFF$A OFF$ C.PCNM,2 .ENDC .ENDM CPCR$Q  .MACRO CPCR$C NAME,CS,ERR .MCALL CPCR$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.  .IFTF CPCR$ NAMEF .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CPCR$C.Q  .MACRO CPCR$S NAME,ERRG .MCALL DIR$,MOV$,RFA$ RFA$ NAME MOV (PC)+,-(SP) .BYTE 205.,35 DIR$ ,ERR .ENDM CPCR$SRQ  .MACRO CRRG$ RDB .MCALL OFF$ .IF NDF $$$GLBN .BYTE 55.,2 .WORD RDB .ENDC .IF NDF C.RRBAF OFF$R OFF$ C.RRBA,2 .ENDC .ENDM CRRG$Q  .MACRO CRRG$C RDB,CS,ERRC .MCALL CRRG$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$$$$$=.D .IFTF CRRG$ RDB .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CRRG$CQ  .MACRO CRRG$S RDB,ERR .MCALL DIR$,MOV$. MOV$ RDBM MOV (PC)+,-(SP) .BYTE 55.,2 DIR$ ,ERR .ENDM CRRG$SRQ  .MACRO DTRG$ RDB .MCALL OFF$ .IF NDF $$$GLB .BYTE 59.,2 .WORD RDB .ENDC .IF NDF D.TRBA. OFF$. OFF$ D.TRBA,2 .ENDC .ENDM DTRG$Q  .MACRO DTRG$C RDB,CS,ERRA .MCALL DTRG$,DIR$ .IF NDF $$$GLB, .PSECT $DPB$$$$$=. .IFTF DTRG$ RDB .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM DTRG$CQ  .MACRO DTRG$S RDB,ERR .MCALL DIR$,MOV$E MOV$ RDB  MOV (PC)+,-(SP) .BYTE 59.,2 DIR$ ,ERR .ENDM DTRG$SRHQ  .MACRO GREG$ RID,BUF .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 65.,4 .WORD 0,RID .WORD BUF .ENDC .IF NDF G.RGIDT .NLISTF OFF$F OFF$ ,2 OFF$ G.RGID,2 OFF$ G.RGBA,2 .IF NDF G.RGRB $$$OST=0* .IRP X,<,,> OFF$ XC .ENDM .ENDC .LIST .ENDC .ENDM GREG$Q  .MACRO GREG$C RID,BUF,CS,ERR .MCALL GREG$,DIR$ .IF NDF $$$GLBB .PSECT $DPB$$$$$=.E .IFTF GREG$ RID,BUF .IFT .PSECT CS DIR$ #$$$,ERR .ENDC  .ENDM GREG$CQ  .MACRO GREG$S RID,BUF,ERR .MCALL MOV$,DIR$,OFF$ MOV$ BUFO MOV$ RID. CLR -(SP) MOV (PC)+,-(SP) .BYTE 65.,4 DIR$ ,ERR .IF NDF G.RGRBG .NLISTF$$$OST=0* .IRP X,<,,> OFF$ XR .ENDM .LIST .ENDC .ENDM GREG$S.8Q  .MACRO WDBDF$ GBL .MCALL .BLKW.,.BLKB.,.BLK.C .BLK. .BLKB. 1,W.NID,GBLG .BLKB. 1,W.NAPR,GBL .BLKW. 1,W.NBAS,GBL .BLKW. 1,W.NSIZ,GBL .BLKW. 1,W.NRID,GBL .BLKW. 1,W.NOFF,GBL .BLKW. 1,W.NLEN,GBL .BLKW. 1,W.NSTS,GBL .BLKW. 1,W.NSRB,GBL .BLKW. 0,W.NLGH,GBL .IF IDN ,1 .GLOBL WS.CRW,WS.UNM,WS.ELW,WS.RRF,WS.64B,WS.SISD1 .GLOBL WS.MAP,WS.RCX,WS.DEL,WS.EXT,WS.WRT,WS.REDR* .GLOBL WS.BPS,WS.NBP,WS.UDS,WS.NAT,WS.RES .ENDCWS.CRW=^O<100000>CWS.UNM=^O<40000>WS.ELW=^O<20000>WS.RRF=^O<10000>WS.BPS=^O<4000>.WS.NBP=^O<4000>LWS.RES=^O<2000>IWS.NAT=^O<1000>,WS.64B=^O<400>WS.MAP=^O<200>WS.RCX=^O<100> WS.SIS=^O<40> WS.UDS=^O<20>. WS.DEL=^O<10>G WS.EXT=^O<4> WS.WRT=^O<2> WS.RED=^O<1>WS.EDS=WS.SIS!WS.UDS .MACRO WDBDF$ X .ENDM .ENDM WDBDF$$Q * .MACRO WDBBK$ APR,SIZ,RID,OFF,LEN,STS,SRB .MCALL WDBDF$ WDBDF$D .BYTE 0,APR .WORD 0 .WORD SIZ .WORD RID .WORD OFF .WORD LEN .WORD STS .WORD SRB .ENDM WDBBK$0Q  .MACRO CRAW$ WDB> .MCALL OFF$ .IF NDF $$$GLB0 .BYTE 117.,2< .WORD WDB .ENDC .IF NDF C.RABA0 OFF$M OFF$ C.RABA,2 .ENDC .ENDM CRAW$Q  .MACRO CRAW$C WDB,CS,ERR^ .MCALL CRAW$,DIR$ .IF NDF $$$GLBE .PSECT $DPB$$$$$=.R .IFTF CRAW$ WDB .IFTW .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CRAW$CDQ  .MACRO CRAW$S WDB,ERR .MCALL DIR$,MOV$O MOV$ WDBD MOV (PC)+,-(SP) .BYTE 117.,2O DIR$ ,ERR .ENDM CRAW$SSQ  .MACRO ELAW$ WDB .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 119.,2L .WORD WDB .ENDC .IF NDF E.LABAC OFF$N OFF$ E.LABA,2 .ENDC .ENDM ELAW$Q  .MACRO ELAW$C WDB,CS,ERR  .MCALL ELAW$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.S .IFTF ELAW$ WDB .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ELAW$CNQ  .MACRO ELAW$S WDB,ERR .MCALL DIR$,MOV$ MOV$ WDB$ MOV (PC)+,-(SP) .BYTE 119.,2S DIR$ ,ERR .ENDM ELAW$SEQ  .MACRO GMCX$ WVEC .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 113.,2L .WORD WVEC9 .ENDC .IF NDF G.MCVA OFF$F OFF$ G.MCVA,2 .ENDC .ENDM GMCX$Q  .MACRO GMCX$C WVEC,CS,ERR .MCALL GMCX$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.C .IFTF GMCX$ WVECF .IFTA .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GMCX$CQ  .MACRO GMCX$S WVEC,ERRL .MCALL DIR$,MOV$L MOV$ WVEC MOV (PC)+,-(SP) .BYTE 113.,2. DIR$ ,ERR .ENDM GMCX$S.Q  .MACRO MAP$ WDB .MCALL OFF$ .IF NDF $$$GLB. .BYTE 121.,2 .WORD WDB .ENDC .IF NDF M.APBA OFF$F OFF$ M.APBA,2 .ENDC .ENDM MAP$NQ  .MACRO MAP$C WDB,CS,ERR .MCALL MAP$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.S .IFTF MAP$ WDB .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM MAP$CQ  .MACRO MAP$S WDB,ERR .MCALL DIR$,MOV$, MOV$ WDBL MOV (PC)+,-(SP) .BYTE 121.,2C DIR$ ,ERR .ENDM MAP$SQ  .MACRO RREF$ WDB .MCALL OFF$ .IF NDF $$$GLBL .BYTE 81.,2 .WORD WDB .ENDC .IF NDF R.REBAB OFF$C OFF$ R.REBA,2 .ENDC .ENDM RREF$Q  .MACRO RREF$C WDB,CS,ERR .MCALL RREF$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.$ .IFTF RREF$ WDB .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RREF$CRQ  .MACRO RREF$S WDB,ERR .MCALL DIR$,MOV$R MOV$ WDB  MOV (PC)+,-(SP) .BYTE 81.,2 DIR$ ,ERR .ENDM RREF$SDQ  .MACRO SREF$ TASK,WDB,EFN .MCALL R50$,OFF$C .IF NDF $$$GLBF .BYTE 69.,5 R50$ TASK .WORD EFN .WORD WDB .ENDC .IF NDF S.RETN + .IRP X,<,,,> OFF$ XR .ENDM .ENDC .ENDM SREF$Q " .MACRO SREF$C TASK,WDB,EFN,CS,ERR .MCALL SREF$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$$$$$=.C .IFTF SREF$ TASK,WDB,EFN .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SREF$C Q ! .MACRO SREF$S TSKADR,WDB,EFN,ERRR .MCALL DIR$,MOV$,RFA$ MOV$ WDBR MOV$ EFNB RFA$ TSKADR MOV (PC)+,-(SP) .BYTE 69.,5 DIR$ ,ERR .ENDM SREF$SOQ  .MACRO SRRA$ ASTS .MCALL OFF$ .IF NDF $$$GLB. .BYTE 21.,2 .WORD AST .ENDC .IF NDF S.RRAEN .NLIST OFF$ OFF$ S.RRAE,2 .LIST .ENDC .ENDM SRRA$Q  .MACRO SRRA$C AST,CS,ERR  .MCALL SRRA$,DIR$ .IF NDF $$$GLBD .PSECT $DPB$$$$$=.  .IFTF SRRA$ AST .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SRRA$CKQ  .MACRO SRRA$S AST,ERR .MCALL MOV$,DIR$F MOV$ ASTS MOV (PC)+,-(SP) .BYTE 21.,2 DIR$ ,ERR .ENDM SRRA$SEQ  .MACRO UMAP$ WDB .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 123.,2. .WORD WDB .ENDC .IF NDF U.MABAA OFF$L OFF$ U.MABA,2 .ENDC .ENDM UMAP$Q  .MACRO UMAP$C WDB,CS,ERRR .MCALL UMAP$,DIR$ .IF NDF $$$GLBI .PSECT $DPB$$$$$=.. .IFTF UMAP$ WDB .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM UMAP$C.Q  .MACRO UMAP$S WDB,ERR .MCALL DIR$,MOV$R MOV$ WDBO MOV (PC)+,-(SP) .BYTE 123.,2- DIR$ ,ERR .ENDM UMAP$SEQ  .MACRO .BLKB. NUM,SYM,GBL .IF NB C .IF IDN ,SYM==$$$ .IFF.SYM=$$$W .ENDC .ENDC $$$=$$$+NUM .ENDM .BLKB..Q  .MACRO .BLKW. NUM,SYM,GBL .IF NB C .IF IDN ,SYM==$$$ .IFFFSYM=$$$ .ENDC .ENDC$$$=$$$+<2*NUM>U .ENDM .BLKW.F8Q  .MACRO .BLK.N$$$=0N .ENDM .BLK.Q ! .MACRO CRVT$ IAST,OAST,AAST,MLENM .MCALL OFF$ .IF NDF $$$GLBS .BYTE 149.,5, .WORD IASTR .WORD OAST$ .WORD AAST .WORD MLENR .ENDC .IF NDF C.RVIAF6 .IRP X,<,,,,> OFF$ X. .ENDM .ENDC .ENDM CRVT$Q ) .MACRO CRVT$C IAST,OAST,AAST,MLEN,CS,ERR. .MCALL CRVT$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.$ .IFTF CRVT$ IAST,OAST,AAST,MLEN .IFTM .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CRVT$CQ & .MACRO CRVT$S IAST,OAST,AAST,MLEN,ERR .MCALL DIR$,MOV$F MOV$ MLEN MOV$ AAST MOV$ OAST MOV$ IAST MOV (PC)+,-(SP) .BYTE 149.,5. DIR$ ,ERR .ENDM CRVT$SFQ  .MACRO ELVT$ UNUM .MCALL OFF$ .IF NDF $$$GLBF .BYTE 151.,2. .WORD UNUMC .ENDC .IF NDF E.LVNM. OFF$R OFF$ E.LVNM,2 .ENDC .ENDM ELVT$Q  .MACRO ELVT$C UNUM,CS,ERR .MCALL ELVT$,DIR$ .IF NDF $$$GLBA .PSECT $DPB$$$$$=.C .IFTF ELVT$ UNUM .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ELVT$CSQ  .MACRO ELVT$S UNUM,ERRM .MCALL DIR$,MOV$T MOV$ UNUM MOV (PC)+,-(SP) .BYTE 151.,2. DIR$ ,ERR .ENDM ELVT$S.Q F .MACRO SPWN$ TNAME,PN,PR,UGC,UMC,EFN,EAST,ESB,CMDLIN,CMDLEN,UNIT,DNAM .MCALL OFF$,R50$U .IF NDF $$$GLBN .IF B DNAMO .BYTE 11.,13. .IFF. .BYTE 11.,14. .ENDC R50$ TNAME .BLKW 3 .BYTE UMC,UGC .WORD EFN .WORD EASTF .WORD ESB .WORD CMDLIN$ .WORD CMDLENF .WORD UNIT .IF NB DNAM$$$T2=.D .ASCII /DNAM/ .=$$$T2+2M .ENDC .ENDC .IF NDF S.PWTNRA .IRP X,<,,,,,>) OFF$ X1 .ENDM@ .IRP X,<,,,,> OFF$ X, .ENDM .IRP X,<> OFF$ XM .ENDR $$$OST=8. OFF$ SP.WX8 .ENDC .ENDM SPWN$"Q N .MACRO SPWN$C TNAME,PN,PR,UGC,UMC,EFN,EAST,ESB,CMDLIN,CMDLEN,UNIT,DNAM,CS,ERR .MCALL SPWN$,DIR$ .IF NDF $$$GLBI .PSECT $DPB$$$$$=.O .IFTF; SPWN$ TNAME,,,UGC,UMC,EFN,EAST,ESB,CMDLIN,CMDLEN,UNIT,DNAM .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SPWN$CSQ K .MACRO SPWN$S TNAME,PN,PR,UGC,UMC,EFN,EAST,ESB,CMDLIN,CMDLEN,UNIT,DNAM,ERRS .MCALL DIR$,MOV$,MVB$,RFA$, .IF NB DNAM MOV$ DNAM .ENDC MOV$ UNIT MOV$ CMDLEN MOV$ CMDLIN MOV$ ESB. MOV$ EAST MOV$ EFN MVB$ UMC,UGCP CLR -(SP) CLR -(SP) CLR -(SP) RFA$ TNAMEE MOV (PC)+,-(SP) .IF B DNAMN .BYTE 11.,13. .IFFI .BYTE 11.,14. .ENDC DIR$ ,ERR .ENDM SPWN$SCQ  .MACRO CNCT$ TNAME,EFN,EAST,ESB .MCALL OFF$,R50$ .IF NDF $$$GLB. .BYTE 143.,6 R50$ TNAME .WORD EFN .WORD EAST, .WORD ESB .ENDC .IF NDF C.NCTN,6 .IRP X,<,,,,> OFF$ X  .ENDM .ENDC .ENDM CNCT$Q ( .MACRO CNCT$C TNAME,EFN,EAST,ESB,CS,ERR .MCALL CNCT$,DIR$ .IF NDF $$$GLB) .PSECT $DPB$$$$$=.M .IFTF CNCT$ TNAME,EFN,EAST,ESB .IFT1 .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CNCT$CQ % .MACRO CNCT$S TNAME,EFN,EAST,ESB,ERR, .MCALL DIR$,MOV$,RFA$,MVB$ MOV$ ESB$ MOV$ EAST MOV$ EFNR RFA$ TNAME. MOV (PC)+,-(SP) .BYTE 143.,6B DIR$ ,ERR .ENDM CNCT$SQ  .MACRO EMST$ TNAME,STATUS .MCALL OFF$,R50$ .IF NDF $$$GLB. .BYTE 147.,4 R50$ TNAME .WORD STATUST .ENDC .IF NDF E.MSTN OFF$  OFF$ E.MSTN,4 OFF$ E.MSST,2 .ENDC .ENDM EMST$Q " .MACRO EMST$C TNAME,STATUS,CS,ERR .MCALL EMST$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$$$$=.. .IFTF EMST$ TNAME,STATUSS .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EMST$CTQ  .MACRO EMST$S TNAME,STATUS,ERRE .MCALL DIR$,MOV$,RFA$ MOV$ STATUS RFA$ TNAME MOV (PC)+,-(SP) .BYTE 147.,4. DIR$ ,ERR .ENDM EMST$S$Q  .MACRO STLO$ GRP,MSKO .MCALL OFF$ .IF NDF $$$GLBM .BYTE 137.,3O .WORD GRP .WORD MSK .ENDC .IF NDF S.TLGR$ OFF$ OFF$ S.TLGR,2 OFF$ S.TLMS,2 .ENDC .ENDM STLO$Q  .MACRO STLO$C GRP,MSK,CS,ERR$ .MCALL STLO$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=.  .IFTF STLO$ GRP,MSK .IFTT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STLO$CEQ  .MACRO STLO$S GRP,MSK,ERR .MCALL DIR$,MOV$- MOV$ MSKE .IF NB GRPR MOV #GRP,-(SP)S .IFF CLR -(SP) .ENDC MOV (PC)+,-(SP) .BYTE 137.,3 DIR$ ,ERR .ENDM STLO$S7Q  .MACRO STSE$ EFN .MCALL OFF$ .IF NDF $$$GLB .BYTE 135.,2 .WORD EFN .ENDC .IF NDF S.TSEF OFF$ OFF$ S.TSEF,2 .ENDC .ENDM STSE$Q  .MACRO STSE$C EFN,CS,ERRD .MCALL STSE$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.R .IFTF STSE$ EFN .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STSE$CRQ  .MACRO STSE$S EFN,ERR .MCALL DIR$,MOV$P MOV$ EFN MOV (PC)+,-(SP) .BYTE 135.,2S DIR$ ,ERR .ENDM STSE$SEZQ  .MACRO STOP$ .IF NDF $$$GLB .BYTE 131.,1F .ENDC .ENDM STOP$Q  .MACRO STOP$C CS,ERRN .MCALL STOP$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$$$$$=. .IFTF STOP$ .IFTT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STOP$CLrQ  .MACRO STOP$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 131.,1. DIR$ ,ERR .ENDM STOP$SQ  .MACRO USTP$ TNAMEC .MCALL OFF$,R50$V .IF NDF $$$GLB+ .BYTE 133.,31 R50$ TNAME  .ENDC .IF NDF U.STTN OFF$ OFF$ U.STTN,2 .ENDC .ENDM USTP$Q  .MACRO USTP$C TNAME,CS,ERR .MCALL USTP$,DIR$ .IF NDF $$$GLBC .PSECT $DPB$$$$$=.F .IFTF USTP$ TNAME .IFT= .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM USTP$CEQ  .MACRO USTP$S TNAME,ERR .MCALL DIR$,RFA$R RFA$ TNAME$ MOV (PC)+,-(SP) .BYTE 133.,3. DIR$ ,ERR .ENDM USTP$S4Q $ .MACRO SDRC$ TNAME,BUF,EFN,EAST,ESB .MCALL OFF$,R50$L .IF NDF $$$GLB1 .BYTE 141.,7 R50$ TNAMEN .WORD BUF .WORD EFN .WORD EAST. .WORD ESB .ENDC .IF NDF S.DRTNA .IRP X,<,,,,,> OFF$ XD .ENDM .ENDC .ENDM SDRC$Q , .MACRO SDRC$C TNAME,BUF,EFN,EAST,ESB,CS,ERR .MCALL SDRC$,DIR$ .IF NDF $$$GLBA .PSECT $DPB$$$$$=.A .IFTF SDRC$ TNAME,BUF,EFN,EAST,ESBY .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SDRC$C.Q ) .MACRO SDRC$S TNAME,BUF,EFN,EAST,ESB,ERRN .MCALL DIR$,MOV$,RFA$,MVB$R MOV$ ESB MOV$ EAST MOV$ EFN MOV$ BUF. RFA$ TNAME MOV (PC)+,-(SP) .BYTE 141.,7, DIR$ ,ERR .ENDM SDRC$SDQ  .MACRO RCST$ TNAME,BUF. .MCALL OFF$,R50$M .IF NDF $$$GLB .BYTE 139.,4 R50$ TNAMEB .WORD BUF .ENDC .IF NDF R.CSTN, OFF$. OFF$ R.CSTN,4 OFF$ R.CSBF,2 .ENDC .ENDM RCST$Q  .MACRO RCST$C TNAME,BUF,CS,ERR  .MCALL RCST$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.D .IFTF RCST$ TNAME,BUF .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RCST$CTQ  .MACRO RCST$S TNAME,BUF,ERR .MCALL DIR$,MOV$,RFA$ MOV$ BUFR RFA$ TNAME$ MOV (PC)+,-(SP) .BYTE 139.,4T DIR$ ,ERR .ENDM RCST$SRQ  .MACRO SCAL$S SRAD,CRAD .MCALL DIR$,MOV$F MOV$ CRAD MOV$ SRAD MOV (PC)+,-(SP) .BYTE 155.,3 DIR$ ,ERR .ENDM SCAL$SS"Q  .MACRO EGCMI$ .MACRO GCMLD$ GLOB .ASECTC .=0G.MODE: .BLKW 2L GE.COM = 1D GE.IND = 2 GE.CLO = 4$ GE.LC = 10 GE.CON = 20 GE.XXX = 40 GE.MUL = 100. GE.LIB = 200 GE.MCR = 400 GE.IEF = 1000 GE.RWD = 2000 GE.FOP = 4000 GE.RPR = 10000 GE.SDE = 20000V GE.SER = 40000Y GE.SLB = 100000 ; G2.XXX = 1G.IMPS: .BLKB 1G.OVBC: .BLKB 1CG.FILE: .BLKW 1.G.ERR: .BLKB 1 GE.IOR = -1 GE.OPR = -2 GE.BIF = -3 GE.MDE = -4 GE.CMD = -5 GE.VRS = -6 GE.EOF = -10. GE.RBG = -40.G.CDEP: .BLKB 1LG.FUNC: .BLKB 1CG.MAXD: .BLKB 1BG.TERM: .BLKB 1 G.TIOS: .BLKB 1G.TIOP: .BLKW 1.G.PRMP: .BLKW 2 G.CMLD: .BLKW 20G.FRAG: .BLKW 2G.BUFF: .BLKW 2GG.DFPR: .BLKB 6.G.CSIB: .BLKW 1WG.PPTR: .BLKW 1 G.SWIT: .BLKW 1 G.LBMN: .BLKB 6 G.FQFN: .BLKW 1 G.DDIR: .BLKW 2 G.ISIZ:  .ASECT1 .=0G.SUSR: .BLKW 1VG.SDID: .BLKW 5IG.SFID: .BLKW 3RG.SRAT: .BLKB 16. G.SPOS: .BLKW 32G.SBST: .BLKW 1GG.SRWP: .BLKW 3MG.PLFS:G .PSECT6 .MACRO GCMLD$ X .ENDM .ENDMN .MACRO ECMLB$ FILE,LUN=1,MAXD=3,PRMP=< >,BFAD,BFSZ=80.,PDL,SWIT,?GF,?GB,?GS# .MCALL GCMLD$,CWORD$,CBYTE$,CSTRG$B .MCALL CSI$SW,CSI$SV,CSI$ND .IIF NDF FCS$$ FCS$$=1K GCMLD$F ...PC1=.. .BLKB G.ISIZ  CBYTE$ ,G.IMPSW, CWORD$ ,G.MODE CBYTE$ ,G.MAXD. CBYTE$ <15>,G.DFPR0 CBYTE$ <12>,G.DFPR+1D CSTRG$ ,G.DFPR+2,3  CBYTE$ <-1>,G.CDEP  CBYTE$ ,G.TIOST CWORD$ <0>,G.TIOP CWORD$ <0>,G.FQFN CBYTE$ <0>,G.OVBC .IF B  ...TMP = <*G.PLFS>,...PDL: .BLKB ...TMP CWORD$ <...PDL+...TMP>,G.PPTR .IFF. .ENDC .IF B TGB: .BLKB BFSZ+2 CWORD$ ,G.BUFF+2 .IFFD CWORD$ ,G.BUFF+2F .ENDC CWORD$ ,G.BUFF+0Y .IF B I...SWI: GCMSW$ ...PC1,GS CWORD$ <...SWI>,G.SWIT .IFF  CWORD$ ,G.SWIT  .ENDC .IF NB  CWORD$ ,G.FILEP .IFFD CWORD$ ,G.FILE> .IF DF FCS$$E* .MCALL FDBDF$,FDAT$A,FDOP$A,NMBLK$,FDBF$A GF: FDBDF$ FDAT$A 2  FDOP$A LUN,,...FNAD FDBF$A ,,1 % CBYTE$ ,F.RCTLP...FNA: NMBLK$ CMI,CMD .IFFR .IF DF RMS$$C .MCALL FAB$B,RAB$B,NAM$B GF: .WORD 1,...RAB .WORD 1,...FABD ...RAB: RAB$B> R$FAB ...FABN  R$RAC RB$SEQS RAB$E ...FAB: FAB$BW F$DNA ...DNA+3S F$DNS 7 F$FNA ...FNA. F$FAC FB$GET. F$LCH LUN F$NAM ...NAM F$ORG FB$SEQN F$RAT 0 F$RFM FB$VARG FAB$E ...NAM: NAM$B N$ESS 34. NAM$E...DNA: .ASCII /SY:CMI.CMD/$...FNA: .ASCII /CMI/ .BLKB 29. .IFF$ .ERRORO .ENDC .ENDC .ENDC .ENDM6 .MACRO GCMLB$ MAXD=1,PRMP=< >,UBUF,LUN,PDL,SIZE=80. .MCALL ECMLB$$ ECMLB$ ,LUN,MAXD,PRMP,UBUF,SIZE,PDL .ENDM .MACRO GCMSW$ GCMB,?VAL .MCALL CSI$SW,CSI$SV,CSI$ND CSI$SW LB,GE.SLB,,SET,,VALR CSI$SW ER,GE.SER,,SET,NEG CSI$SW DE,GE.SDE,,CLEAR,NEG CSI$NDFVAL: CSI$SV ASCII,GCMB+G.LBMN,6. CSI$NDF .ENDM .MACRO GCML$ GCMB,PRAD,PRLN .MCALL GCMLD$,LDR0$ GCMLD$ DEF$LN LDR0$ GCMB  CLRB G.FUNC(R0) .IF NB  MOV PRLN,G.PRMP(R0) .IF B O .ERROR .IFF MOV PRAD,G.PRMP+2(R0) .ENDC .IFFR CLR G.PRMP(R0), .ENDC .GLOBL $GCMLC JSR PC,$GCMLL .ENDM .MACRO RCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$LC LDR0$ GCMBI MOVB #1,G.FUNC(R0)B .GLOBL $GCMLA JSR PC,$GCMLG .ENDM .MACRO CCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$LS LDR0$ GCMBG MOVB #2,G.FUNC(R0). .GLOBL $GCMLC JSR PC,$GCMLP .ENDM .MACRO MCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L. LDR0$ GCMBF MOVB #3,G.FUNC(R0), .GLOBL $GCMLF JSR PC,$GCMLR .ENDM .MACRO FCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L( LDR0$ GCMB MOVB #4,G.FUNC(R0)P .GLOBL $GCMLM JSR PC,$GCML  .ENDM .MACRO LCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L1 LDR0$ GCMB MOVB #5,G.FUNC(R0)P .GLOBL $GCMLM JSR PC,$GCML  .ENDM .MACRO ECML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L2 LDR0$ GCMB MOVB #6,G.FUNC(R0)P .GLOBL $GCMLM JSR PC,$GCML  .ENDM .MACRO DCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L3 LDR0$ GCMB MOVB #7,G.FUNC(R0)P .GLOBL $GCMLM JSR PC,$GCML  .ENDM .MACRO GCMM$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L4 LDR0$ GCMB MOV G.FILE(R0),R0 .GLOBL .MARKN JSR PC,.MARKL .ENDM .MACRO GCMP$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L LDR0$ GCMBP MOV G.FILE(R0),R0 .GLOBL .POINT JSR PC,.POINT .ENDM, .MACRO CMSET$ GCMB,TSUB,TVFC,FQFN,TTMO,OVBC" .MCALL LDR0$,CMOV$B,CMOV$W,GCMLD$ GCMLD$ DEF$LP LDR0$ GCMBN CMOV$B TSUB,G.TIOSB CMOV$B TVFC,G.TIOP+1 CMOV$B TTMO,G.TIOP+0G CMOV$W FQFN,G.FQFN( CMOV$B OVBC,G.OVBC .ENDM+ .MACRO CMGET$ GCMB,TERM,FILE,FQFN,OVBC,ERRC" .MCALL LDR0$,CGET$B,CGET$W,GCMLD$ GCMLD$ DEF$LL LDR0$ GCMBL CGET$B G.TERM,TERMM CGET$W G.FILE,FILE  CGET$B G.ERR,ERR  CGET$W G.FQFN,FQFN  CGET$B G.OVBC,OVBC .ENDM .MACRO EGCMI$ .ENDM .ENDMVQ  .MACRO .PICOD NAME=PIC$IT .PSECT NAME RO,I,LCL,REL,CON0 .ENDMVQ  .MACRO .PCODE NAME=PUR$I .PSECT NAME RO,I,LCL,REL,CONV .ENDMVQ  .MACRO .IDATA NAME=IMP$DF .PSECT NAME RW,D,LCL,REL,CONN .ENDMVQ  .MACRO .PDATA NAME=PUR$DC .PSECT NAME RO,D,LCL,REL,CON .ENDMVQ  .MACRO .ODATA NAME=IMP$DO .PSECT NAME RW,D,LCL,REL,OVRR .ENDM0Q < .MACRO HLPDF$ FILLUN,TILUN,EFN,NAME,FDBIN,DSP,MODULE,FDBOUT$HFDB:: .WORD FDBIN .IF NB FDBOUT .WORD FDBOUTS .IFFE .WORD 0 .ENDC$HLUN1 == FILLUN$HLUN2 == TILUN $HEFN == EFN$HDSP:: .WORD DSPR$HMOD:: .RAD50 /MODULE/$HNAME::.ASCII /NAME/R .EVEN .ENDM HLPDF$.<Q  .MACRO SMSG$ TGT,BUF,LEN,PRMLST .MCALL OFF$ .NLIST= .IF NDF S.MTGTA OFF$,3 .IRP X,<,,,>A OFF$ X$ .ENDM .IF DF $$$GLB .GLOBL SM.SER .ENDCSM.SER=1 .ENDC .IF NDF $$$GLB,$$$ARG=0 .IRP X,$$$ARG=$$$ARG+1: .ENDM .IF NB TGTN .IF IDN TGT SM.SERU .IF LT,$$$ARG-4 $$$ARG=4 .ENDC .ENDC .ENDC .LIST .BYTE 171.,4+$$$ARG .BYTE TGT .BYTE 0 .WORD BUF .WORD LEN .IRP X,$$$ARG=$$$ARG-1H .WORD X .ENDM .REPT $$$ARG  .WORD .ENDR .ENDC .ENDMQ ( .MACRO SMSG$C TGT,BUF,LEN,PRMLST,CS,ERR .MCALL SMSG$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.D .IFTF SMSG$ TGT,BUF,LEN,S .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMQ % .MACRO SMSG$S TGT,BUF,LEN,PRMLST,ERRT .MCALL MVB$,MOV$,RVP$,DIR$$$$ARG=0$$$=0C .IRP X,$$$ARG=$$$ARG+11 .ENDM .IF NB TGTT .IF IDN TGT #SM.SER .IF LT,$$$ARG-4 $$$=4-$$$ARG .REPT $$$ CLR -(SP) .ENDR .ENDC .ENDC .ENDC RVP$ PRMLST MOV$ LENM MOV$ BUF MVB$ TGTA MOV (PC)+,-(SP) .BYTE 171.,4+$$$ARG+$$$ DIR$ ,ERR .ENDMQ * .MACRO GCCI$ CBUF,CBFL,IBUF,IBFL,ADDR,NCP .MCALL OFF$ .IF NDF $$$GLB .BYTE 127.,7. .BYTE NCP .BYTE 0 .WORD ADDR. .WORD CBUFT .WORD CBFLM .WORD IBUFC .WORD IBFL, .ENDC .IF NDF G.CCNC=A .IRP X,<,,,,,>I OFF$ XM .ENDM OFF$ G.CCIL,2$$$OST=0K .IRP X,<,,,,,>V OFF$ XM .ENDM$$$OST=0@ .IRP X,<,,,,> OFF$ X .ENDM .IRP X,<,> OFF$ XN .ENDM .IF DF $$$GLB# .GLOBL GC.CND,GC.CST,GC.CEX,GC.CCSP .ENDC GC.CND=200 GC.CST=002 GC.CEX=001 GC.CCS=000 .ENDC .ENDM GCCI$Q 2 .MACRO GCCI$C CBUF,CBFL,IBUF,IBFL,ADDR,NCP,CS,ERR .MCALL GCCI$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=. .IFTF# GCCI$ CBUF,CBFL,IBUF,IBFL,ADDR,NCPC .IFTG .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMQ / .MACRO GCCI$S CBUF,CBFL,IBUF,IBFL,ADDR,NCP,ERR, .MCALL MOV$,MVB$,DIR$ MOV$ IBFL MOV$ IBUF MOV$ CBFL MOV$ CBUF MOV$ ADDR MVB$ NCP,0B MOV (PC)+,-(SP) .BYTE 127.,7. DIR$ ,ERR .ENDMQ N .MACRO RPOI$ TNAME,PN,PR,UGC,UMC,PARENT,BUFADR,BUFLEN,SC,DNAM,UNIT,TASK,OCBAD .MCALL R50$,OFF$A .IF NDF $$$GLB. .BYTE 11.,16. R50$ TNAME$ .BLKW 3 .BYTE UMC,UGC R50$ PARENT .WORD OCBAD .WORD BUFADR, .WORD BUFLEN. .BYTE UNITR .BYTE SC .IF NB DNAM$$$T2=. .ASCII /DNAM/ .=$$$T2+2U .IFFI .WORD .ENDC R50$ TASK .ENDC .IF NDF R.POTK B .IRP X,<,,,,,<R.POOA,2>> OFF$ X+ .ENDM@ .IRP X,<,,,,> OFF$ XN .ENDM OFF$ R.POTN,2 .IF DF $$$GLB .GLOBL RP.OEX,RP.OAL,RP.ONX .ENDC RP.OEX=200 RP.OAL=001 RP.ONX=002 .ENDC .ENDM RPOI$6Q V .MACRO RPOI$C TNAME,PN,PR,UGC,UMC,PARENT,BUFADR,BUFLEN,SC,DNAM,UNIT,TASK,OCBAD,CS,ERR .MCALL RPOI$,DIR$ .IF NDF $$$GLB= .PSECT $DPB$$$$$=.D .IFTFG RPOI$ TNAME,PN,PR,UGC,UMC,PARENT,BUFADR,BUFLEN,SC,DNAM,UNIT,TASK,OCBAD< .IFT1 .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RPOI$C,fQ S .MACRO RPOI$S TNAME,PN,PR,UGC,UMC,PARENT,BUFADR,BUFLEN,SC,DNAM,UNIT,TASK,OCBAD,ERRG .MCALL MVB$,MOV$,RFA$,DIR$O RFA$ TASK MOV$ DNAM MVB$ UNIT,SCO MOV$ BUFLEN MOV$ BUFADR MOV$ OCBAD RFA$ PARENT MVB$ UMC,UGC, CLR -(SP) CLR -(SP) CLR -(SP) RFA$ TNAME, MOV (PC)+,-(SP) .BYTE 11.,16. DIR$ ,ERR .ENDM RPOI$SDQ # .MACRO GCII$ BUF,BUFL,CLI,DEV,UNIT, .MCALL OFF$,R50$A .IF NDF $$$GLB< .BYTE 173.,7. .WORD BUF .WORD BUFLN R50$ CLIR$$$T2=. .ASCII /DEV/ .=$$$T2+2I .BYTE UNIT,0U .ENDC .IF NDF G.BUF? .IRP X,<,,,,,>R OFF$ X .ENDM$$$OST=0@ .IRP X,<,,,,> OFF$ X, .ENDM! .IRP X,<,>R OFF$ X, .ENDM .ENDC .ENDM GCII$Q + .MACRO GCII$C BUF,BUFL,CLI,DEV,UNIT,CS,ERRI .MCALL GCII$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$$ .IFTF$$$=.E GCII$ BUF,BUFL,CLI,DEV,UNIT .IFTR .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMQ ( .MACRO GCII$S BUF,BUFL,CLI,DEV,UNIT,ERR .MCALL MOV$,MVB$,DIR$,RFA$. MVB$ UNIT,0 MOV$ DEV RFA$ CLI MOV$ BUFL MOV$ BUFI MOV (PC)+,-(SP) .BYTE 173.,7. DIR$ ,ERR .ENDM GCII$SQ  .MACRO SCLI$ CLI,DEV,UNIT .MCALL R50$,OFF$N .IF NDF $$$GLB .BYTE 173.,5.$$$T2=. .ASCII /DEV/, .=$$$T2+2T .BYTE UNIT,0L R50$ CLI$ .ENDC .IF NDF S.CIDVC+ .IRP X,<,,,>, OFF$ X .ENDM .ENDC .ENDM SCLI$Q " .MACRO SCLI$C CLI,DEV,UNIT,CS,ERR .MCALL SCLI$,DIR$ .IF NDF $$$GLBO .PSECT $DPB$$$$$=.B .IFTF SCLI$ CLI,DEV,UNITL .IFTV .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SCLI$C.Q  .MACRO SCLI$S CLI,DEV,UNIT,ERRA .MCALL MOV$,RFA$,DIR$ RFA$ CLI$ MVB$ UNIT,0 MOV$ DEV MOV (PC)+,-(SP) .BYTE 173.,5. DIR$ ,ERR .ENDMQ  .MACRO SCAA$ AST. .MCALL OFF$ .IF NDF $$$GLBD .BYTE 173.,2. .WORD AST .ENDC .IF NDF S.CAAEC OFF$M OFF$ S.CAAE,2 .ENDC .ENDMQ  .MACRO SCAA$C AST,CS,ERRI .MCALL SCAA$,DIR$ .IF NDF $$$GLB .PSECT $DPB$$$$$=.C .IFTF SCAA$ AST .IFTC .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SCAA$CQ  .MACRO SCAA$S AST,ERR .MCALL MOV$,DIR$A MOV$ ASTA MOV (PC)+,-(SP) .BYTE 173.,2. DIR$ ,ERR .ENDM SCAA$S3Q 6 .MACRO SDRP$ TASK,BUFADR,BUFLEN,EFN,FLAG,PARENT,OCBAD .MCALL R50$,OFF$D .IF NDF $$$GLB .BYTE 141.,9. R50$ TASK .WORD BUFADRM .BYTE EFN,FLAG .IF NB BUFLEN .WORD BUFLEN .IFFR .WORD 13. .ENDC R50$ PARENT .WORD OCBAD .ENDC .IF NDF S.DRTK$A .IRP X,<,,,,,>. OFF$ XN .ENDM .IRP X,<,>A OFF$ XR .ENDM .IF DF $$$GLB .GLOBL SD.REX,SD.RAL,SD.RNX .ENDC SD.REX=200 SD.RAL=001 SD.RNX=002 .ENDC .ENDM SDRP$Q > .MACRO SDRP$C TASK,BUFADR,BUFLEN,EFN,FLAG,PARENT,OCBAD,CS,ERR .MCALL SDRP$,DIR$ .IF NDF $$$GLBO .PSECT $DPB$$$$$=.F .IFTF/ SDRP$ TASK,BUFADR,BUFLEN,EFN,FLAG,PARENT,OCBAD .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SDRP$C$Q ; .MACRO SDRP$S TASK,BUFADR,BUFLEN,EFN,FLAG,PARENT,OCBAD,ERR .MCALL MVB$,MOV$,RFA$,DIR$S MOV$ OCBADO RFA$ PARENT MOV$ BUFLEN MVB$ EFN,FLAG MOV$ BUFADR RFA$ TASK MOV (PC)+,-(SP) .BYTE 11.,16. DIR$ ,ERR .ENDM SDRP$SQ  .MACRO MVTS$ ACTION,ADDR,VALF .MCALL OFF$ .IF NDF $$$GLBC .BYTE 203.,4. .WORD ACTIONO .WORD ADDRB .WORD VAL .ENDC .IF NDF M.VTACR6 .IRP X,<,,,,> OFF$ XR .ENDM $$$=05 .IRP X,<,,,>B OFF$ X, .ENDM5 .IRP X,<,,,>A OFF$ X  .ENDM .ENDC .ENDM MVTS$Q % .MACRO MVTS$C ACTION,ADDR,VAL,CS,ERRE .MCALL MVTS$,DIR$ .IF NDF $$$GLB .PSECT $DPBD$ D$$$=.  .IFTF MVTS$ ACTION,ADDR,VAL .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMQ " .MACRO MVTS$S ACTION,ADDR,VAL,ERR .MCALL MOV$,DIR$, MOV$ VAL2 MOV$ ADDR MOV$ ACTION MOV (PC)+,-(SP) .BYTE 203.,4. DIR$ ,ERR .ENDMQ  .MACRO MSDS$ MASK .MCALL OFF$ .IF NDF $$$GLB. .BYTE 201.,2. .WORD MASKA .ENDC .IF NDF M.SDMAC .IRP X,<,> OFF$ X .ENDM .ENDC .ENDM MSDS$Q  .MACRO MSDS$C MASK,CS,ERR .MCALL MSDS$,DIR$ .IF NDF $$$GLBM .PSECT $DPBD$ D$$$=.F .IFTF MSDS$ MASK  .IFTR .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMQ  .MACRO MSDS$S MASK,ERRR .MCALL MOV$,DIR$V MOV$ MASK MOV (PC)+,-(SP) .BYTE 201.,2. DIR$ ,ERR .ENDM`Q ! .MACRO OVAST$ SENSE,?LABL,?LABL2L MOV @#.NOVPT,-(SP) BEQ LABL, ADD #N.FAST,(SP)C .IF IDN , BICB #^O200,@(SP)+F .IFF. .IF IDN , BISB #^O200,@(SP)+A .IFFS0 .ERROR ; PARAMETER MUST BE "ALLOW" OR "INHIBIT" .ENDC .ENDC BR LABL2FLABL:F INC (SP)+LABL2: .ENDM OVAST$Q  .MACRO CSM$ SUPVR .IF IDN <(SP)+>, .WORD 007026C .IFF$ MOV SUPVR,-(SP) .WORD 007026S .ENDC .ENDM CSM$D! .MACRO OVAST$ SENSE,?LABL,?LABL2L MOV @#.NOVPT,-(SP) BEQ LABL, ADD #N.FAST,(SP)C .IF IDN , BICB #^O200,@(SP)+F .IFF. .IF IDN , BISB #^O200,@(SP)+A .IFFS0 .ERROR ; PARAMETER MUST BE "ALLOW" OR "INHIBIT" .ENDC .ENDC BR LABL2FLABL:F INC (#jL_c,<0Q @?.JZ,,:^T T T {T #T (T dT pT IqT LqT QsT  8 = y ` , ` _ ! 8; ;; Jm  K xQ Z 8^ ` y ! ! . p: 8  d f H p   ]a q r r  ! 8"  K xQ (} <}  n (S;T`xS~iws-!#t:u:L?Tr\\#\'L\?T\X\Z\f\s\w!u!y#y$y%',.,8Y-Lr0L00W0r0y0z}2`m2(x33p3x33L3k44H:58{DD%z#w*H;QS*# H ;;H 8;H 8^HyswH**DH@#'H "@;HHsO!H|ZH*TH H ,HQU[HyiwH * !HtOqH,{2H H yH*gD)HHdfHԃH@"H*{2H*H H"H{DH* Hs qH9"HfHyH*f6KHy_H){DH.s<}HQH*y#VNH"H{rHr6sH2"H*3{H v6H""H(H@tGH0*#H\xH<H gH@ZH0\H{H {H* H _H sHi8^Hd&H*doMHS~H`H H L zH* H rh.H xH\`K,H{AH *{HLHH QH #wH"swH**\`_H yM[Hi HHVNH30<}H*DrH ysH#{H TLqHczdH*yHx6xH4yH{HgdH*dzHU(HDfH*";Ha(H*"(H #xH\3H \`TH" LH*LSHV5H<#{t'H{;"H#H*rHf6H wHvH4Q,H*f6wH0z}H58H @8W@L9> @L9@8 N@&8g'@()Kyh.e&f&f t$8:;i.& %ĜE  Q 8O.L+%'%% '8 8(L9H.r  e,$8g' L9_ 8g'L98g'.~T Q4 ' PE8W"8W(8&ess,L9"X 8g'88O8 N8 N(.QQQQQQQɕz8O*. ,ċeы,8O8 N8 NL9_8g'&8I.(ы ы ыыыыы!.N @!&L9> 8g' 8> 8O8> tes.+KcMϚӳLn_@n`@-.nL`@9K:@:@n]@n^@R.n^@԰)d@4K@$9.@1K> @.1K`@1K`@(Nzhyh.  @E  U@UA԰)dnL`9K: d&7c,nL`9K:  : n^9K: 27 i.1K`n`9K:  n]9K: 1K> >K&n^9K: nL`9K: H7(n_9K: n_9K: 4K.Z%LA &n_9K: 4K$9.9K:. W%=  z $԰)d.I e E  5& nL`9K: "nL`9K: "U@ U 7,nL`9K: :n^9K: 7 .1K`n`9K:  n]9K: 1K> 7f"n^9K:  n_9K: $%LA>.n_9K: 4K n_9K: 4Km.  W%>$9. 9K:qD= c.+K_VL8@n_@.s@n`@$9 @nL`@88@,.9K:@y:@,K> @n]@8O@.n^@n^@8:;@8> @4K@O.$9.@L9@85K@8W@)Ky@.8X@L9> @:K(@8q@L9@.$99@8| @8^2@:y@8g'@=&L9@((+K_hH*%ew  7eC- y:$9 ,  n`9K: $8:;/"ew"n`9K: 8O :K(e0 (n_9K: 85Kn_9K: >"$&7 "7 $7 .:K(":K($ :K(&:K(":K($$T& *:K(&:K( :K(8| 8W.p7eUUUUUUUU4U(8W8^2 :K(8:K(.5@U5 U 5U:K(:K((:K(1.5 U5U5U5h:K(:K(&:K(7*U@5@ՀU( :K(:K(L9L9 8g'z,   "`5.:K(  :K( ,K> 8> L9> 8g' .(&ej+8>  8> 8g'8> &$99, " N7:*n^9K: :K(:K(L9*f7ww,8g' :K(:K(:K(:K(b%77%o*:K( 88:K(8X:K(. e(7 (%w*8q 8q:K( :K((&:K((&UU(:K( :K(:K(:K( :y((n^9K: )Ky n]9K: ,nL`9K: :K( nL`9K: &%LA.-4Kn_9K: 4K$9.,   L9K: s.,Ka VֳL8H@8H/.L9"XH8H 88H.8LyH 8RyH4.L9_Hy:H6,K> H8IH8OH-.8:H8s:H/8:;H$8> H8wH(.1K> HL9H85KH8WH 8XH2.L9> H8qH0L9H8| H,8 NH".8^2H8g'H L9H (9K:h.9K:h4Khv5KzxhD4Kph01K`h<M&1K`h81K`h@:K(hLr.  i&LA.l9ϚгL8I@8:@.8:;@8| @(l9hh.AcCD.@BeQ&8:;8:;8I 8I&8Iw.&QQQQQQɕ (8I.Lq%% 1 8| 8: 8:.rË1 1 W%=L8:8:8:He.1KVӳL8Ly@y:@!(w8h.A B  D2%/%R  y:Q.& R .L          eR I $8Ly r % .5KxϚѳLs@԰)d@. 5@ @4Kp@(5Kxh. 60 0 0 H7԰)d( 54Kp .&7 eA.  4Kp  4Kp 4Kps.LpAppp rW%= .6K ϚгL8@8^2@(j:V}h.W#0@-B,(ec@J8^2(8.& B B C qB s 888$8]&LW#%=e $.:KMϚѳL8@L9"X@g.L9_@8O@L9@L9@8^2@&8g'@(srh.A BfCI%F c &&2@ D* L98g'L98g'L9_8g'H*D ,2*L9_8g'8^28L9"X 8g'.f3       8OL9"X 8g'8"e%  o.rϚгL8@(P rh0.@ecP  S  8b.&ȕeW%= L .8yOгL8@8I@.8O@8 N@8^2@(~8yhH.ABC@ ec ɥY8^28.&D `e ɥD `Q 8I$.LĜE ` ĜE ` 8O8 Nre(.;KϚֳLn_@s@.n`@nL`@L9"X@8@9K:@.n]@8O@n^@n^@԰)d@.4K@$9.@1K> @1K`@85K@..8g'@:y@(yhzh. G c@/ ԰)d L9"X"8g'(8O"$&e2 7".:yn^9K: n_9K: 85KH B%LA.85Kn_9K:  4Kn_9K: wZ7 L&4K $9.1K> n^9K: l7 1(n]9K: 1K` n`9K: kv7.nL`9K: 8 nL`9K: 9K:, W%=  s~.;K@VӳL+K_@԰)d@.:K(@(T;@h{@h@hk@h.  A$:K(:K(:K( :K($԰)d&.&   W %Z +K_'L= .;ϚӳL,K> @8I@#.8:@8:;@8| @(;h .W%BA,K> "8:;{.&/cCD@eQQQ&8I8:;8:;8I8I.LQQQQɕA! (8I.rqe)W 8:8| 8:.%=%%1 %y8:$8:1/ 8:8:4.AG@VγL(H԰)dh.@ &  Ba *&%   Kc.EVγL(ht'`hh.@ WB%J& &E.&eH\& 6A $L v 6N;.NEϚϳL(|1hS.BEρ@   $.&@ C P U  ռ.L @    WVrBJ\#Q"Sc,<0Q 3@, @b  V  ^3 z    ! :w* 1f2  V5  b; \K zK aT 6zd e z:w xz}   'VQ  .MACRO ABODF$,L,B S.CACT='B'-4. S.CEXT='B'-2. S.COAD='B'0. S.CSGF='B'2. S.CBPT='B'4. S.CIOT='B'6. S.CILI='B'8. S.CEMT='B'10. S.CTRP='B'12. S.CFLT='B'14. S.CSST='B'16. S.CAST='B'18. S.CABO='B'20. S.CLRF='B'22. S.CCRF='B'24. S.IOMG='B'26. S.PRTY='B'28. S.CPMD='B'30. S.CINS='B'32. T.NDNR='B'0 T.NDSE='B'2 T.NCWF='B'4 T.NCRE='B'6 T.NDMO='B'8. T.NUER='B'10. T.NLDN='B'12. T.NLUP='B'14. T.NCFI='B'16. T.NUDE='B'18. T.NMPE='B'20. T.NKLF='B'22. T.NDEB='B'24. T.NRCT='B'26.$ T.NWBL='B'28.' .MACRO ABODF$ X,Y .ENDM .ENDMQ  .MACRO CLKDF$,L,B. C.MRKT='B'0. C.SCHD='B'20 C.SSHT='B'4' C.SYST='B'6' C.SYTK='B'8. C.CSTP='B'10.T .ASECT.=0OC.LNK:'L' .BLKW 1'C.RQT:'L' .BLKB 1C.EFN:'L' .BLKB 1.C.TCB:'L' .BLKW 1DC.TIM:'L' .BLKW 2' .=C.TIM+4RC.AST:'L' .BLKW 1C.SRC:'L' .BLKW 1CC.DST:'L' .BLKW 1' .=C.TIM+4'C.RSI:'L' .BLKW 22C.UIC:'L' .BLKW 1 .=C.TIM+46 .BLKW 2 .BLKW 1 .=C.TIM+40C.SUB:'L' .BLKW 1C.AR5:'L' .BLKW 1R .BLKW 1 C.LGTH='B'.8 .PSECTR .MACRO CLKDF$ X,Y .ENDM .ENDMTQ  .MACRO CUCDF$ X,Y .ASECT .= U.CW2+2U.ACUR:'X .BLKW 1YU.NSYN:'X .BLKB 1'U.NSYC:'X .BLKB 1 .= U.VCB+2U.PHDR:'X .BLKW 1 U.RCHK:'X .BLKW 1 U.QSYN:'XLU.RCAC:'X .BLKW 1LU.RBUF:'X .BLKW 2LU.RCNT:'X .BLKW 1+U.SVC:'X .BLKW 1 U.TXCT:'X:U.INTP:'X .BLKW 1:U.SYNC:'X .BLKB 1IU.MPN:'X .BLKB 1U.RFRK:'X .BLKW 1BU.RFPC:'X .BLKW 1U.RFR5:'X .BLKW 1U.RFR4:'X .BLKW 1LU.RFCT='Y U.TXCT+1 .PSECTRU2.HDX='Y 100000U2.LIN='Y 40000U2.CTS='Y 20000U2.SWC='Y 10000U2.ONL='Y 4000U2.HPT='Y 1000U2.HRC='Y 400U2.RCV='Y 200U2.ACU='Y 100U2.MPT='Y 40U2.FTM='Y 20U2.SFL='Y 10U2.RFK='Y 4U2.SYC='Y 3U2.TXA='Y 2U2.SNC='Y 1 US.SYN='Y 1TU3.LOK='Y 100000U3.RPD='Y 400U3.RAC='Y 200U3.SND='Y 1 .MACRO CUCDF$ A,B .ENDM .ENDM4Q  .MACRO CVCDF$ X,Y .ASECTK .= V.IFWI4V.CPRT:'X .BLKW 1TV.CLUN:'X .BLKB 1CV.CMPN:'X .BLKB 10V.CSTS:'X .BLKW 1V.CST1:'X .BLKB 12V.CNID:'X .BLKB 1OV.CUCB:'X .BLKW 1TV.CMPL:'X .BLKW 1'V.CNPN:'X .BLKW 1 V.CMBC:'X .BLKW 1 V.CRED:'X .BLKW 1 V.CNHD:'X .BLKW 10V.CTBL:'X .BLKW 1V.CRBL:'X .BLKW 12V.NXHD:'X .BLKW 1TV.CDBC:'X .BLKW 1CV.CIAD:'X .BLKW 1'V.CICT:'X .BLKW 10V.CSAD:'X .BLKW 10V.CSCT:'X .BLKW 1V.CMXI:'X .BLKW 1.V.CMXO:'X .BLKW 1.V.CTDH:'X .BLKW 1V.CTDT:'X .BLKW 1 V.CSTQ:'X .BLKW 2KV.CLMT:'X .BLKB 1TV.CTMA:'X .BLKB 1NV.CLMR:'X .BLKB 1NV.CRMA:'X .BLKB 1SV.CMCT:'X .BLKW 21V.CRPC:'X .BLKB 1DV.CRPL:'X .BLKB 1BV.CRTM:'X .BLKW 1LV.CREP:'X .BLKW 1NV.CBCC:'X .BLKW 1CV.CDCC:'X .BLKW 1DV.CURH:'X .BLKW 1DV.CDLE:'X .BLKW 1LV.COVR:'X .BLKW 1LV.CRST:'X .BLKW 1DV.CALF:'X .BLKW 1CV.CREA:'X .BLKB 1D .BLKB 1 .IF DF C$$ACUV.CTPN:'X .BLKB 12.K .ENDCV.CLEN:'X .BLKW 1. .PSECTB VS.SEL='Y 100000VS.FIN='Y 40000VS.REP='Y 20000VS.RTR='Y 10000VS.STK='Y 4000VS.STR='Y 2000VS.ACK='Y 1000VS.NAK='Y 400VS.MPT='Y 200VS.DIS='Y 200VS.CTL='Y 100VS.DAT='Y 40VS.SYN='Y 20VS.POL='Y 10VS.ONL='Y 4VS.BOO='Y 2VS.TRN='Y 1 .MACRO CVCDF$ A,B .ENDM .ENDMQ  .MACRO DCBDF$,L,B .ASECTF.=0BD.LNK:'L' .BLKW 1BD.UCB:'L' .BLKW 1.D.NAM:'L' .BLKW 1ND.UNIT:'L' .BLKB 1 .BLKB 1D.UCBL:'L' .BLKW 1D.DSP:'L' .BLKW 10D.MSK:'L' .BLKW 10 .BLKW 1 .BLKW 1 .BLKW 1 .BLKW 1 .BLKW 1 .BLKW 1 .BLKW 1D.PCB:'L' .BLKW 10 .PSECTKD.VDEB='B'177776 D.VINI='B'0S D.VCAN='B'20 D.VOUT='B'4 D.VPWF='B'6' .MACRO DCBDF$,X,Y .ENDM .ENDMQ  .MACRO DEVDF$,L,B .MCALL DCBDF$ DCBDF$ ,  .MCALL UCBDF$ UCBDF$ , .MCALL SCBDF$ SCBDF$ ,. .MCALL LCBDF$ LCBDF$ , .MACRO DEVDF$,X,Y .ENDM .ENDMQ  .MACRO HDRDF$,L,B .ASECTL.=0H.CSP:'L'.BLKW 1H.HDLN:'L'.BLKW 10H.EFLM:'L'.BLKW 21H.CUIC:'L'.BLKW 11H.DUIC:'L'.BLKW 11H.IPS:'L'.BLKW 1H.IPC:'L'.BLKW 1H.ISP:'L'.BLKW 1H.ODVA:'L'.BLKW 1H.ODVL:'L'.BLKW 1TH.TKVA:'L'.BLKW 1'H.TKVL:'L'.BLKW 1YH.PFVA:'L'.BLKW 1H.FPVA:'L'.BLKW 1AH.RCVA:'L'.BLKW 1CH.EFSV:'L'.BLKW 1 H.FPSA:'L'.BLKW 1CH.WND:'L'.BLKW 1H.DSW:'L'.BLKW 1H.FCS:'L'.BLKW 1H.FORT:'L'.BLKW 1H.OVLY:'L'.BLKW 1.H.VEXT:'L'.BLKW 1.H.SPRI:'L'.BLKB 1H.NML:'L'.BLKB 1H.RRVA:'L'.BLKW 1CH.X25:'L'.BLKB 1 .BLKB 1 .BLKW 2H.GARD:'L'.BLKW 1'H.NLUN:'L'.BLKW 1'H.LUN:'L'.BLKW 2H.FPSL='B'25.*2:.=0LW.BPCB:'L'.BLKW 1WW.BLVR:'L'.BLKW 11W.BHVR:'L'.BLKW 1W.BATT:'L'.BLKW 1TW.BSIZ:'L'.BLKW 1'W.BOFF:'L'.BLKW 1YW.BFPD:'L'.BLKB 1W.BNPD:'L'.BLKB 1AW.BLPD:'L'.BLKW 1C W.BLGH:'L' .PSECT .MACRO HDRDF$ X,Y .ENDM .ENDMQ  .MACRO HWDDF$,L,BMPCSR='B'177746MPAR='B'172100PIRQ='B'177772PR0='B'0 PR1='B'40B PR4='B'200 PR5='B'240 PR6='B'300 PR7='B'340 PS='B'177776 SWR='B'177570L TPS='B'177564' .IF DF E$$EAE AC='B'177302 MQ='B'177304 SC='B'177310 .ENDC .IF DF M$$MGEKDSAR0='B'172360KDSDR0='B'172320KISAR0='B'172340KINAR0='B'KISAR0KISAR5='B'172352KINAR5='B'KISAR5KISAR6='B'172354KINAR6='B'KISAR6KISAR7='B'172356KINAR7='B'KISAR7KISDR0='B'172300KISDR6='B'172314KISDR7='B'172316SISDR0='B'172200UDSAR0='B'177660UDSDR0='B'177620UISAR0='B'177640UISAR4='B'177650UISAR5='B'177652UISAR6='B'177654UISAR7='B'177656UISDR0='B'177600UISDR4='B'177610UISDR5='B'177612UISDR6='B'177614UISDR7='B'177616UBMPR='B'1702003CMODE='B'140000D .IFTFPMODE='B'30000 .IFTD SR0='B'177572I SR3='B'172516 .ENDC FE.EXT='B'1A FE.MUP='B'2 FE.EXV='B'4A FE.DRV='B'10 FE.PLA='B'20 FE.CAL='B'40 FE.PKT='B'100 FE.EXP='B'2007 FE.LSI='B'4003FE.OFF='B'1000FE.FDT='B'2000FE.X25='B'4000FE.DYM='B'10000'FE.CEX='B'20000'FE.MXT='B'40000'FE.NLG='B'100000 F2.DAS='B'1A F2.LIB='B'2 F2.MP='B'4 F2.EVT='B'10 F2.ACN='B'20 F2.SDW='B'40 F2.POL='B'1000 F2.WND='B'2006 F2.DPR='B'4007F2.IRR='B'1000F2.GGF='B'2000F2.RAS='B'4000F2.AHR='B'10000FF2.RBN='B'20000F2.SWP='B'400007F2.STP='B'100000 F3.CRA='B'1E F3.NWK='B'2E F3.EIS='B'4E F3.STM='B'10 F3.UDS='B'20 F3.PRO='B'40 F3.XHR='B'100P F3.AST='B'200E F3.11S='B'400LF3.CLI='B'1000F3.TCM='B'2000F3.PMN='B'4000F3.WAT='B'10000MF3.RLK='B'20000XF3.SHF='B'40000T;F3.RES='B'100000' HF.UBM='B'1D HF.EIS='B'2L HF.CIS='B'200=HF.FPP='B'100000 .MACRO HWDDF$ X,Y .ENDM .ENDMQ  .MACRO ITBDF$ L,B,SYSDEFI .IF DF A$$TRP .MCALL PKTDF$ PKTDF$0 .ENDC .ASECTF .=0X.LNK:'L' .BLKW 1PX.JSR:'L' JSR R5,@#0X.PSW:'L' .BLKB 1E .BLKB 1X.ISR:'L' .BLKW 1 X.FORK:'L' .BLKW 1 .BLKW 1 .BLKW 1 .BLKW 1 .IF DF M$$MGEX.REL:'L' .BLKW 1L .ENDCX.DSI:'L' .BLKW 1'X.TCB:'L' .BLKW 10 .IF NB SYSDEF .IF DF A$$TRP .BLKW 1X.AST:'L' .BLKB A.PRMB .ENDCX.VEC:'L' .BLKW 1EX.VPC:'L' .BLKW 1' X.LEN:'L'P .ENDC .PSECTR.MACRO ITBDF$ X,Y,Z .ENDM ITBDF$ .ENDM ITBDF$Q  .MACRO LBLDF$ L,B .ASECTL.=0DR$LNAM:'L'.BLKW 2CR$LSA:'L' .BLKW 1.R$LHGV:'L'.BLKW 1.R$LMXV:'L'.BLKW 1R$LLDZ:'L'.BLKW 1R$LMXZ:'L'.BLKW 1 R$LOFF:'L'.BLKW 1'R$LWND:'L'.BLKW 11R$LSEG:'L'.BLKW 11R$LFLG:'L'.BLKW 1.R$LDAT:'L'.BLKW 3.R$LSIZ:'L'.BLKW 0KLD$ACC='B'100000LD$RSV='B'0400000LD$CLS='B'020000 ; LIBRARY IS PART OF A CLUSTER3LD$SUP='B'000010 ; SUPERVISOR MODE LIBRARY (1=YES)5LD$REL='B'000004 ; PIC FLAG (1=POSITION INDEPENDANT)D.=0DL$BTSK:'L'.BLKW 2L$BPAR:'L'.BLKW 2AL$BSA:'L' .BLKW 1SL$BHGV:'L'.BLKW 1'L$BMXV:'L'.BLKW 1LL$BLDZ:'L'.BLKW 1'L$BMXZ:'L'.BLKW 1'L$BOFF:'L'.BLKW 1'L$BWND:'L'.BLKB 1'L$BSYS:'L'.BLKB 1'L$BSEG:'L'.BLKW 1'L$BFLG:'L'.BLKW 1'L$BDAT:'L'.BLKW 3'!L$BLIB:'L'.BLKW <7.*>+1SL$BPRI:'L'.BLKW 1AL$BXFR:'L'.BLKW 1VL$BEXT:'L'.BLKW 1'L$BSGL:'L'.BLKW 1 L$BHRB:'L'.BLKW 1RL$BBLK:'L'.BLKW 1 L$BLUN:'L'.BLKW 1IL$BROB:'L'.BLKW 1RL$BROL:'L'.BLKW 1  .BLKW <512.-.>/2DL$BASG:'L'.BLKW 0$$LBXL='B'<8.*>TS$PIC='B'100000TS$NHD='B'040000TS$ACP='B'020000TS$PMD='B'010000TS$SLV='B'004000TS$NSD='B'002000.TS$PRV='B'000400 ; TASK IS PRIVELEGED (1=YES)TS$CMP='B'000200TS$CHK='B'000100TS$RES='B'000040:TS$IOP='B'000020 ; PRIVILEGED TASK NOT MAPPED TO I/O PAGE?TS$SUP='B'000010 ; TASK LINKED TO A SUPER MODE LIBRARY (1=YES)L7TS$XHR='B'000004 ; TASK HAS AN EXTERNAL HEADER (1=YES)L?TS$NXH='B'000002 ; TASK DOES NOT HAVE AN EXTRNL HEADER (1=YES)1 .PSECT .MACRO LBLDF$ X,Y .ENDM .ENDMQ  .MACRO LCBDF$,L,B .ASECTA.=0'L.LNK:'L' .BLKW 11L.NAM:'L' .BLKW 10L.UNIT:'L' .BLKB 1L.TYPE:'L' .BLKB 1L.UCB:'L' .BLKW 1DL.ASG:'L' .BLKW 1'L.LGTH='B'.-L.LNK0 .PSECTR .MACRO LCBDF$,X,Y .ENDM .ENDMQ  .MACRO PCBDF$ L,B,SYSDEF' .ASECT .=0KP.LNK:'L'.BLKW 1P.PRI:'L'.BLKB 1P.IOC:'L'.BLKB 1P.NAM:'L'.BLKW 2P.SUB:'L'.BLKW 1P.MAIN:'L'.BLKW 1' .IF NB SYSDEF .IF NDF M$$MGEX P.HDR:'L'  .ENDC .IFTFP.REL:'L'.BLKW 1 P.BLKS:'L')P.SIZE:'L'.BLKW 1 ;SIZE OF PARTITION IN:L ; UNMAPPED SYSTEMS - BYTES) ; MAPPED SYSTEMS - 32 WORD BLOCKS1;P.WAIT:'L'.BLKW 1 ;PARTITION WAIT QUEUE LISTHEAD (2 WORDS)P.SWSZ:'L'.BLKW 1P.BUSY:'L'.BLKB 2C P.OWN:'L'.P.TCB:'L'.BLKW 1P.STAT:'L'.BLKW 1R .IFT$ .IF DF M$$MGEP.HDR:'L' .BLKW 1: .ENDCP.PRO:'L' .BLKW 11P.ATT:'L' .BLKW 2 .IF NDF P$$LASP.LGTH='B'P.PRO .IFF' P.LGTH='B'.. .ENDC .IFF. .PSECT$PS.OUT='B'100000PS.CKP='B'40000.PS.CKR='B'20000.PS.CHK='B'10000'PS.FXD='B'4000PS.PER='B'2000PS.LIO='B'1000 PS.NSF='B'400B PS.COM='B'200A PS.PIC='B'100- PS.SYS='B'40 PS.DRV='B'20 PS.DEL='B'10 PS.APR='B'7E .ASECTA.=0WA.PCBL:'L'.BLKW 1BA.PRI:'L'.BLKB 1A.IOC:'L'.BLKB 1A.TCB:'L'.BLKW 1A.TCBL:'L'.BLKW 1 A.STAT:'L'.BLKB 1 A.MPCT:'L'.BLKB 1BA.PCB:'L'.BLKW 1 A.LGTH='B'.  .PSECT: AS.DEL='B'10 AS.EXT='B'4A AS.WRT='B'2' AS.RED='B'1' .ENDC .MACRO PCBDF$ X,Y,Z .ENDM .ENDMQ  .MACRO PKTDF$,L,B,SYSDEF0 .ASECTK.=177774A.KSR5:'L' .BLKW 1A.DQSR:'L' .BLKW 1 .BLKW 1A.CBL:'L' .BLKW 1CA.BYT:'L' .BLKW 1'A.AST:'L' .BLKW 10A.NPR:'L' .BLKW 1DA.PRM:'L' .BLKW 1' AS.FPA='B'1 AS.RCA='B'2' AS.RRA='B'3. AS.PFA='B'41 AS.REA='B'5L AS.CAA='B'6L AB.NPV='B'1C AB.TYP='B'2 AK.BUF='B'200K AK.OCB='B'201' AK.GBI='B'202: AK.GGF='B'303G.=0'O.LNK:'L'.BLKW 1O.MCRL:'L'.BLKW 1'O.PTCB:'L'.BLKW 1SO.AST:'L'.BLKW 1O.EFN:'L'.BLKW 1O.ESB:'L'.BLKW 1O.STAT:'L'.BLKW 8. O.LGTH='B'.D .ASECTS.=0I.LNK:'L' .BLKW 1I.PRI:'L' .BLKB 1I.EFN:'L' .BLKB 1I.TCB:'L' .BLKW 1 I.LN2:'L' .BLKW 1 I.UCB:'L' .BLKW 1 I.FCN:'L' .BLKW 1 I.IOSB:'L' .BLKW 1 .BLKW 1 .BLKW 1I.AST:'L' .BLKW 1SI.PRM:'L' .BLKW 1' .BLKW 6 .BLKW 1 I.ATTL='B'. I.LGTH='B'..=0PG.LNK:'L' .BLKW 10G.GRP:'L' .BLKB 1G.STAT:'L' .BLKB 1G.CNT:'L' .BLKW 1.G.EFLG:'L' .BLKW 2 G.LGTH='B'.' GS.DEL='B'1B PC.HIH='B'1: PC.LOW='B'2. PC.ALF='B'41 PC.XAF='B'10 PC.XIT='B'200'PC.NRM='B'PC.HIH*400PC.ALM='B'PC.LOW*400 PF.INS='B'40 PF.LOG='B'100K PF.REQ='B'200 PF.ALL='B'177777.=0KC.PTCB:'L' .BLKW 1C.PNAM:'L' .BLKW 2C.PSTS:'L' .BLKW 1C.PDPL:'L' .BLKB 1C.PCPL:'L' .BLKB 1 C.PRMT:'L' CP.NUL='B'1 CP.MSG='B'2K CP.LGO='B'46 CP.DSB='B'10 CP.PRV='B'20 CP.SGL='B'40 CP.NIO='B'100B CP.RST='B'200L CP.EXT='B'400T CM.INE='B'11 CM.IND='B'2B CM.CEN='B'3G CM.CDS='B'4 CM.ELM='B'5 CM.EXT='B'6 CM.LKT='B'7 CM.RMT='B'8. CM.MSG='B'9..=0FA.REL:'L' .BLKW 10A.DIS:'L' .BLKW 1HA.MAS:'L' .BLKW 1LA.NUM:'L' .BLKB 10 .BLKB 1A.LIN:'L' .BLKW 10A.ACC:'L' .BLKB 17A.STA:'L' .BLKB 1. A.LEN1='B'.M.=A.LINWA.IMAP:'L' .BLKW 1A.IBUF:'L' .BLKW 1A.ILEN:'L' .BLKW 1A.SMAP:'L' .BLKW 1A.SBUF:'L' .BLKW 1A.SLEN:'L' .BLKW 1A.IOS:'L' .BLKW 2'A.RES:'L' .BLKW 1 A.LEN2='B'.B UA.ACC='B'10 UA.PRO='B'2' UA.ECH='B'4' UA.TYP='B'10 UA.SPE='B'20 UA.PUT='B'40 UA.CAL='B'100' UA.COM='B'200 UA.ALL='B'400UA.TRA='B'1000.=0'A.ACCE:'L' .BLKW 1A.DEQU:'L' .BLKW 1A.POWE:'L' .BLKW 1A.INPU:'L' .BLKW 1A.OUTP:'L' .BLKW 1A.CONN:'L' .BLKW 1A.DISC:'L' .BLKW 1A.RECE:'L' .BLKW 1A.PROC:'L' .BLKW 1A.CALL:'L' .BLKW 1 AS.DEL='B'1' AS.DIS='B'2. .PSECT. .MACRO PKTDF$ X,Y,Z .ENDM .ENDM:Q  .MACRO SCBDF$,L,B,SYSDEF  .ASECT:.=177772S.RCNT:'L' .BLKB 1S.ROFF:'L' .BLKB 1S.BMSV:'L' .BLKW 1S.BMSK:'L' .BLKW 1S.LHD:'L' .BLKW 20S.PRI:'L' .BLKB 1AS.VCT:'L' .BLKB 1LS.CTM:'L' .BLKB 1'S.ITM:'L' .BLKB 1'S.CON:'L' .BLKB 1'S.STS:'L' .BLKB 1'S.CSR:'L' .BLKW 1'S.PKT:'L' .BLKW 1'S.FRK:'L' .BLKW 1' S.DMCS:'L' .BLKW 1 .BLKW 1 .BLKW 1 .IF NB SYSDEF .IF DF L$$DRV & M$$MGE. .BLKW 1 .ENDC S.CCB:'L''S.MPR:'L' .BLKW 6A .BLKW 1S.UMHD:'L'.BLKW 2NS.UMCT:'L'.BLKW 1 .IFFR .PSECTL SP.EIP='B'1. SP.ENB='B'27 SP.LOG='B'4'SPARE=10 .ASECT'.=0BM.LNK:'L' .BLKW 1M.UMRA:'L' .BLKW 1M.UMRN:'L' .BLKW 1M.UMVL:'L' .BLKW 1M.UMVH:'L' .BLKB 1M.BFVH:'L' .BLKB 1M.BFVL:'L' .BLKW 1 M.LGTH='B'.  .ENDC .PSECTL .MACRO SCBDF$,X,Y,Z .ENDM .ENDMQ  .MACRO TCBDF$,L,B,SYSDEF .ASECT.=0WT.LNK:'L' .BLKW 1NT.PRI:'L' .BLKB 1$T.IOC:'L' .BLKB 1LT.CPCB:'L' .BLKW 1T.NAM:'L' .BLKW 2KT.RCVL:'L' .BLKW 2T.ASTL:'L' .BLKW 2T.EFLG:'L' .BLKW 2T.UCB:'L' .BLKW 1PT.TCBL:'L' .BLKW 1T.STAT:'L' .BLKW 1T.ST2:'L' .BLKW 1BT.ST3:'L' .BLKW 11T.DPRI:'L' .BLKB 1T.LBN:'L' .BLKB 31T.LDV:'L' .BLKW 11T.PCB:'L' .BLKW 11T.MXSZ:'L' .BLKW 1T.ACTL:'L' .BLKW 1T.SAST:'L' .BLKW 1 .BLKB 1T.TIO:'L' .BLKB 1XT.TKSZ:'L' .BLKW 1$$$=.T.ATT:'L' .BLKW 2 T.OFF:'L' .BLKW 1 .BLKB 1T.SRCT:'L' .BLKB 1T.RRFL:'L' .BLKW 2 .IF NDF P$$LASB.=$$$ .ENDC .IF NB SYSDEF$$$=.BT.OCBH:'L' .BLKW 2T.RDCT:'L' .BLKW 1 .IF NDF P$$OFF'.=$$$2 .ENDC$$$=.KT.EFLM:'L' .BLKW 2 .IF NDF S$$TOP&T$$BUF.=$$$: .ENDC$$$=..T.HDLN:'L' .BLKB 1 .IF NDF A$$HDR.=$$$L .ENDC$$$=.DT.GGF:'L'.BLKB 1$ .IF NDF R$$SND&G$$EFN!A$$CLI&G$$EFN.=$$$' .ENDC .EVEN T.LGTH='B'.1 T.EXT='B'0 .IFFLTS.EXE='B'100000TS.RDN='B'40000=TS.MSG='B'20000KTS.NRP='B'10000BTS.RUN='B'4000TS.HLD='B'2000TS.STP='B'1000 TS.OUT='B'400N TS.CKP='B'200$ TS.CKR='B'100FATS.BLK='B'TS.CKP!TS.CKR!TS.EXE!TS.MSG!TS.NRP!TS.OUT!TS.RDN!TS.STPFT2.AST='B'100000T2.DST='B'40000.T2.CHK='B'20000T2.CKD='B'10000$T2.SEF='B'4000T2.FXD='B'2000T2.REX='B'1000 T2.CAF='B'400D T2.HLT='B'200N T2.ABO='B'100G T2.STP='B'40 T2.STP='B'20 T2.SPN='B'10 T2.SPN='B'4$ T2.WFR='B'2. T2.WFR='B'1'T3.ACP='B'100000T3.PMD='B'40000'T3.REM='B'20000'T3.PRV='B'10000'T3.MCR='B'4000T3.SLV='B'2000T3.CLI='B'1000 T3.RST='B'400P T3.NSD='B'200T T3.CAL='B'100P T3.ROV='B'40 T3.NET='B'20 T3.GFL='B'10; ='B'4S T3.SWS='B'2S; ='B'1U .ENDC .PSECT .MACRO TCBDF$ X,Y,Z .ENDM .ENDM"Q  .MACRO UCBDF$,L,B,TTDEF,SYSDF .ASECT' .IF NB SYSDF' .IF DF E$$DVC .IF DF M$$MUP.=177766 .IFF0.=177770 .ENDCU.IOC:'L' .BLKW 2NU.ERSL:'L' .BLKB 1U.ERHL:'L' .BLKB 1U.ERSC:'L' .BLKB 1U.ERHC:'L' .BLKB 1 .ENDC .ENDC.=177772 U.MUP:'L'0U.CLI:'L' .BLKW 1U.LUIC:'L' .BLKW 1U.OWN:'L' .BLKW 1'U.DCB:'L' .BLKW 10U.RED:'L' .BLKW 1U.CTL:'L' .BLKB 1TU.STS:'L' .BLKB 10U.UNIT:'L' .BLKB 1U.ST2:'L' .BLKB 1NU.CW1:'L' .BLKW 1RU.CW2:'L' .BLKW 1NU.CW3:'L' .BLKW 1U.CW4:'L' .BLKW 1CU.SCB:'L' .BLKW 1FU.ATT:'L' .BLKW 1 U.BUF:'L' .BLKW 1D .BLKW 1U.CNT:'L' .BLKW 1U.ACP='B'U.CNT+2U.VCB='B'U.CNT+4U.CBF='B'U.CNT+2U.KCSR='B'U.CNT+2'U.KCS6='B'U.KCSR+2U.SPC='B'U.CNT+6U.SUB='B'U.CNT+6U.FNUM='B'U.CNT+10U.FCDE='B'U.CNT+12U.UTMO='B'U.VCB+2CU.LHD='B'U.VCB+4U.BPKT='B'U.VCB+10U.MLUN='B'U.VCB+14U.UNFL='B'U.VCB+16U.HSTI='B'U.VCB+20U.UNTI='B'U.VCB+24U.MEDI='B'U.VCB+34U.SHUN='B'U.VCB+40U.SHST='B'U.VCB+42U.TRCK='B'U.VCB+44U.GRP='B'U.VCB+46WU.CYL='B'U.VCB+50CU.RCTS='B'U.VCB+54U.RBNS='B'U.VCB+56U.RCTC='B'U.VCB+57U.UNSZ='B'U.VCB+60U.VSER='B'U.VCB+64U.OTRF='B'U.VCB+70U.CMST='B'U.VCB+72.=U.BUF'U.TUX:'L' .BLKW 1'U.TSTA:'L' .BLKW 3U.TTAB:'L' .BLKW 1U.TLPP:'L' .BLKB 1U.TFRQ:'L' .BLKB 1U.TFLK:'L' .BLKW 1U.TCHP:'L' .BLKB 1U.TCVP:'L' .BLKB 1U.UIC:'L' .BLKW 1+U.TTYP:'L' .BLKB 1U.TMTI:'L' .BLKB 1U.CTYP:'L' .BLKW 1U.ACB:'L' .BLKW 1+U.AFLG:'L' .BLKW 1U.ADMA:'L' .BLKW 1 .=U.BUF+2'U.CTCB:'L' .BLKW 1U.COTQ:'L' .BLKW 2U.RED2:'L' .BLKW 1 S1.RST='B'1. S1.RUB='B'2+ S1.ESC='B'4' S1.RAL='B'10 S1.RNE='B'20 S1.CTO='B'40 S1.OBY='B'100' S1.IBY='B'200M S1.BEL='B'400S1.DPR='B'1000S1.DEC='B'2000S1.DSI='B'4000S1.CTS='B'10000WS1.USI='B'20000LS1.OBF='B'40000.S1.IBF='B'100000 S2.ACR='B'1C S2.WRA='B'61 S2.WRB='B'2. S2.CR='B'10: S2.BRQ='B'20 S2.SRQ='B'40 S2.ORQ='B'100' S2.IRQ='B'200PS2.HFL='B'3400S2.VFL='B'4000S2.HHT='B'10000WS2.HFF='B'20000LS2.FLF='B'40000S2.FDX='B'100000 S3.RAL='B'10 S3.RPO='B'20 S3.WES='B'40 S3.TAB='B'1001 S3.8BC='B'200E S3.RCU='B'400LS3.ABD='B'1000S3.ABP='B'2000S3.WAL='B'4000S3.VER='B'10000MS3.BCC='B'20000S3.DAO='B'400001S3.PCU='B'100000 .PSECT0 DV.REC='B'10 DV.CCL='B'2' DV.TTY='B'4O DV.DIR='B'10 DV.SDI='B'20 DV.SQD='B'40 DV.MSD='B'1001 DV.UMD='B'200 DV.MBC='B'4002 DV.EXT='B'400SDV.SWL='B'1000DV.ISP='B'2000DV.OSP='B'4000DV.PSE='B'10000'DV.COM='B'20000'DV.F11='B'40000'DV.MNT='B'100000U2.DH1='B'100000U2.DJ1='B'40000'U2.RMT='B'20000U2.HFF='B'10000TU2.L8S='B'10000CU2.NEC='B'4000U2.CRT='B'2000U2.ESC='B'1000 U2.LOG='B'400L U2.SLV='B'200R U2.DZ1='B'100B U2.HLD='B'40 U2.AT.='B'20 U2.PRV='B'10 U2.L3S='B'4C U2.SCS='B'4' U2.VT5='B'2' U2.LWC='B'1' U2.LWC='B'1' UM.OVR='B'1' UM.CLI='B'36 UM.DSB='B'2000 UM.NBR='B'4000U2.R04='B'100000U2.7CH='B'10000U3.UPC='B'20000V U4.CR='B'100 UC.ALG='B'200 UC.NPR='B'100' UC.QUE='B'40 UC.PWF='B'20 UC.ATT='B'10 UC.KIL='B'4 UC.LGH='B'30 US.BSY='B'2000 US.MNT='B'100' US.FOR='B'40 US.MDM='B'20 US.PWF='B'10 US.ABO='B'10 US.MDE='B'2' US.WCK='B'10 US.SPU='B'2G US.VV='B'1 US.KPF='B'1 .IF NB TTDEF .IF DF T$$CPW US.CRW='B'42 US.DSB='B'22 US.OIU='B'12 .IFF' US.DSB='B'10 US.CRW='B'4' US.ECH='B'2' US.OUT='B'1' .ENDC .ENDC US.FRK='B'20 US.SHR='B'1' US.LAB='B'4' US.BSP='B'27 US.OFL='B'1 US.RED='B'20 US.PUB='B'41 US.UMD='B'10 UD.UNS='B'0' UD.200='B'1E UD.556='B'2F UD.800='B'3T UD.160='B'4L UD.625='B'5H .MACRO UCBDF$,X,Y,Z,ZZS .ENDM .ENDMQ  .MACRO UDADF$,L,B .ASECT'.=0P.CRF:'L'.BLKB 4P.UNIT:'L'.BLKB 2' .BLKB 2P.OPCD:'L'.BLKB 1 .BLKB 1P.MOD:'L'.BLKB 2P.BCNT:'L'.BLKB 4SP.BUFF:'L'.BLKB 12.'P.LBN:'L'.BLKB 4 .BLKB 16. P.END:'L'S P.LENG='B'.S.=P.BCNTP.OTRF:'L'.BLKB 4S.=P.BCNT .BLKB 2P.UNFL:'L'.BLKB 2P.HSTI:'L'.BLKB 4L .BLKB 8.RP.ELGF:'L'.BLKB 4'P.SHUN:'L'.BLKB 2DP.CPSP:'L'.BLKB 2'.=P.BCNTP.RBN:'L'.BLKB 4.=P.BCNTP.VRSN:'L'.BLKB 2'P.CNTF:'L'.BLKB 2XP.HTMO:'L'.BLKB 2. .BLKB 2P.TIME:'L'.BLKB 8..=P.LBNLP.RGID:'L'.BLKB 4P.RGOF:'L'.BLKB 4. .=P.OPCD+1P.FLGS:'L'.BLKB 1PP.STS:'L'.BLKB 2 .=P.BCNT+16.P.FBBK:'L'.BLKB 4'.=P.BCNTP.OTRF:'L'.BLKB 42P.CMST:'L'.BLKB 24.=P.BCNTP.MLUN:'L'.BLKB 2EP.UNFL:'L'.BLKB 2P.HSTI:'L'.BLKB 4P.UNTI:'L'.BLKB 8.P.MEDI:'L'.BLKB 4P.SHUN:'L'.BLKB 2P.SHST:'L'.BLKB 2'P.TRCK:'L'.BLKB 2'P.GRP:'L'.BLKB 2P.CYL:'L'.BLKB 2 .BLKB 2P.RCTS:'L'.BLKB 2CP.RBNS:'L'.BLKB 1 P.RCTC:'L'.BLKB 1 .=P.TRCKP.UNSZ:'L'.BLKB 4BP.VSER:'L'.BLKB 4 .=P.BCNTP.VRSN:'L'.BLKB 2 P.CNTF:'L'.BLKB 2 P.CTMO:'L'.BLKB 2L .BLKB 2P.CNTI:'L'.BLKB 8..=0=L.CRF:'L'.BLKB 4L.UNIT:'L'.BLKB 2CL.SEQ:'L'.BLKB 2L.FMT:'L'.BLKB 1L.FLGS:'L'.BLKB 1.L.EVNT:'L'.BLKB 2.L.CNTI:'L'.BLKB 8.L.CSVR:'L'.BLKB 1.L.CHVR:'L'.BLKB 1.L.MLUN:'L'.BLKB 2.L.UNTI:'L'.BLKB 8.L.USVR:'L'.BLKB 1.L.UHVR:'L'.BLKB 1. .BLKB 2L.VSER:'L'.BLKB 4B .BLKB 16. L.LENG='B'.B .=L.MLUN+2L.BADR:'L'.BLKB 4C .=L.UHVR+1L.GRP:'L'.BLKB 2L.VSER:'L'.BLKB 4SL.CYL:'L'.BLKB 4L.TRCK:'L'.BLKB 2BL.SCTR:'L'.BLKB 2BL.LBN:'L'.BLKB 4L.LVL:'L'.BLKB 1L.RTRY:'L'.BLKB 1. .=L.CYL+4RL.SDI:'L'.BLKB 12. .=L.UHVR+1L.SCYL:'L'.BLKB 2 .PSECT. OP.ABO='B'1. OP.ACC='B'16.. OP.AVL='B'8. OP.CCD='B'17.B OP.CMP='B'32.' OP.DAP='B'11.H OP.ERS='B'18. OP.FLU='B'19. OP.GCS='B'2. OP.GUS='B'3. OP.ONL='B'9. OP.RD='B'33. OP.RPL='B'20.2 OP.SCC='B'4. OP.SUC='B'10.1 OP.WR='B'34.OP.END='B'128. OP.SEX='B'7. OP.AVA='B'64.1 OP.DUP='B'65.B OP.ACP='B'66.B OP.MWR='B'25.L OP.MRD='B'24.KMD.CSE='B'20000CMD.CMP='B'40000.MD.EXP='B'100000MD.ERR='B'10000.MD.SCH='B'4000MD.SCL='B'2000MD.SEC='B'1000 MD.SER='B'400. MD.SSH='B'200 MD.WBN='B'100A MD.WBV='B'40 MD.SEQ='B'20 MD.ALL='B'2P MD.SPD='B'1 MD.FEU='B'1' MD.VOL='B'21 MD.NXU='B'1' MD.RIP='B'1' MD.IMF='B'2S MD.AHI='B'40 MD.CWB='B'10 MD.SWP='B'4= MD.SHD='B'20 MD.PRI='B'1S EF.BBR='B'200C EF.BBU='B'100= EF.LOG='B'40 EF.SEX='B'20 CF.ATN='B'200A CF.MSC='B'100P CF.OTH='B'40 CF.THS='B'20 CF.MLH='B'4 CF.SHD='B'2K CF.576='B'10 UF.CMR='B'1' UF.CMW='B'2EUF.RPL='B'100000UF.INA='B'40000S UF.RMV='B'200SUF.SCH='B'4000UF.SCL='B'2000 UF.WBN='B'100SUF.WPH='B'20000NUF.WPS='B'10000' UF.576='B'4' FM.CNT='B'0' FM.BAD='B'1' FM.DSK='B'2' FM.SDI='B'3' FM.SDE='B'4' LF.SUC='B'200' LF.CON='B'100S LF.SNR='B'10 ST.MSK='B'37 ST.SUB='B'40 ST.SUC='B'00 ST.CMD='B'1S ST.ABO='B'20 ST.OFL='B'3' ST.AVL='B'4' ST.MFE='B'5' ST.WPR='B'6' ST.CMP='B'7C ST.DAT='B'8. ST.HST='B'9. ST.CNT='B'10.H ST.DRV='B'11.' ST.DIA='B'31.'ST.NML='B'0*ST.SUB+ST.SUC'ST.SDI='B'1*ST.SUB+ST.SUCAST.CON='B'2*ST.SUB+ST.SUCST.DUP='B'4*ST.SUB+ST.SUC0ST.ONL='B'8.*ST.SUB+ST.SUCST.SON='B'16.*ST.SUB+ST.SUCFST.IPT='B'0*ST.SUB+ST.CMDMST.UNK='B'0*ST.SUB+ST.OFLMST.VOL='B'1*ST.SUB+ST.OFLFST.IOP='B'2*ST.SUB+ST.OFLSST.DPU='B'4.*ST.SUB+ST.OFLST.DIS='B'8.*ST.SUB+ST.OFLST.HWP='B'256.*ST.SUB+ST.WPRST.SWP='B'128.*ST.SUB+ST.WPRST.FER='B'0*ST.SUB+ST.DATTST.CTO='B'0*ST.SUB+ST.CNTTST.FDC='B'1.*ST.SUB+ST.MFEST.FSH='B'2.*ST.SUB+ST.MFEST.FST='B'3.*ST.SUB+ST.MFEST.576='B'5.*ST.SUB+ST.MFEST.FCT='B'6.*ST.SUB+ST.MFEST.FEC='B'7.*ST.SUB+ST.MFEST.ISH='B'2.*ST.SUB+ST.DATST.DST='B'3.*ST.SUB+ST.DATST.ECC='B'7.*ST.SUB+ST.DATEV.ISH='B'2.*ST.SUB+ST.DATEV.DST='B'3.*ST.SUB+ST.DATEV.ECC='B'7.*ST.SUB+ST.DATEV.EC1='B'8.*ST.SUB+ST.DATEV.EC2='B'9.*ST.SUB+ST.DATEV.EC3='B'10.*ST.SUB+ST.DATTEV.EC4='B'11.*ST.SUB+ST.DATTEV.EC5='B'12.*ST.SUB+ST.DATAEV.EC6='B'13.*ST.SUB+ST.DATTEV.EC7='B'14.*ST.SUB+ST.DATEV.EC8='B'15.*ST.SUB+ST.DATTST.ODA='B'1.*ST.SUB+ST.HSTST.ODB='B'2.*ST.SUB+ST.HSTST.NXM='B'3.*ST.SUB+ST.HSTST.PAR='B'4.*ST.SUB+ST.HSTST.SDS='B'1.*ST.SUB+ST.CNTST.EDC='B'2.*ST.SUB+ST.CNTST.IDS='B'3.*ST.SUB+ST.CNTEV.SDS='B'1.*ST.SUB+ST.CNTEV.EDC='B'2.*ST.SUB+ST.CNTEV.IDS='B'3.*ST.SUB+ST.CNTST.SRT='B'1.*ST.SUB+ST.DRVST.SRI='B'2.*ST.SUB+ST.DRVST.POE='B'3.*ST.SUB+ST.DRVST.RDY='B'4.*ST.SUB+ST.DRVST.CLK='B'5.*ST.SUB+ST.DRVST.RSP='B'6.*ST.SUB+ST.DRVST.SUR='B'7.*ST.SUB+ST.DRVST.PSP='B'8.*ST.SUB+ST.DRVEV.SRT='B'1.*ST.SUB+ST.DRVEV.SRI='B'2.*ST.SUB+ST.DRVEV.POE='B'3.*ST.SUB+ST.DRVEV.RDY='B'4.*ST.SUB+ST.DRVEV.CLK='B'5.*ST.SUB+ST.DRVEV.RSP='B'6.*ST.SUB+ST.DRVEV.SUR='B'7.*ST.SUB+ST.DRVEV.PSP='B'8.*ST.SUB+ST.DRV MSCNT='B' 1E DISK='B' 2 UDA50='B' 2V RA80='B' 17; THEREFORE "DURA 80" IS ENCODED AS .WORD 022544,010120. .MACRO UDADF$ X,Y .ENDM .ENDM2 Q  .MACRO F11DF$,L,B,SYSDEFS .ASECTD.=0TV.TRCT:'L'.BLKW 1T .IF DF R$$11MV.TYPE:'L'.BLKB 1T VT.SL1='B' 1U VT.ANS='B' 10 VT.UNL='B' 11V.VCHA:'L'.BLKB 1S VC.SLK='B' 1V VC.HLK='B' 2U VC.DEA='B' 4Y VC.PUB='B' 10V.LABL:'L'.BLKB 14V.PKSR:'L'.BLKW 2P V.SLEN:'L' .ENDCV.IFWI:'L'.BLKW 1U .IF DF,R$$11DV.STD:'L'.BLKW 1 .ENDCV.FCB:'L'.BLKW 2V.IBLB:'L'.BLKB 1AV.IBSZ:'L'.BLKB 1R .BLKW 1V.FMAX:'L'.BLKW 1RV.WISZ:'L'.BLKB 1.V.SBCL:'L'.BLKB 1.V.SBSZ:'L'.BLKW 1V.SBLB:'L'.BLKB 1 V.FIEX:'L'.BLKB 1 .BLKW 1 .IF DF,R$$11MV.VOWN:'L'.BLKW 1$V.VPRO:'L'.BLKW 1K .ENDCV.FPRO:'L'.BLKW 1NV.FRBK:'L'.BLKB 1BV.LRUC:'L'.BLKB 1K .BLKW 1V.STS:'L'.BLKB 1 VS.IFW='B' 1E VS.BMW='B' 2UV.FFNU:'L'.BLKB 1'V.EXT:'L'.BLKW 1 V.LGTH:'L' .ASECT'.=0NM.LNK:'L'.BLKW 1M.TYPE:'L'.BLKB 1D MT.MLS='B' 1WM.ACC:'L'.BLKB 1M.DEV:'L'.BLKW 1M.TI:'L'.BLKW 1B M.LEN:'L'  .ASECTW.=0.F.LINK:'L'.BLKW 1. .IF DF,R$$11DF.FEXT:'L'.BLKW 1.F.STD:'L'.BLKW 1 .ENDCF.FNUM:'L'.BLKW 1IF.FSEQ:'L'.BLKW 1L .BLKB 1F.FSQN:'L'.BLKB 1'F.FOWN:'L'.BLKW 1'F.FPRO:'L'.BLKW 1F.UCHA:'L'.BLKB 1F.SCHA:'L'.BLKB 1F.HDLB:'L'.BLKW 2F.LBN:'L'.BLKW 2F.SIZE:'L'.BLKW 2BF.NACS:'L'.BLKB 1UF.NLCK:'L'.BLKB 1'S.STBK='B'.-F.LBN F.STAT:'L'F.NWAC:'L'.BLKB 1N .BLKB 1 FC.WAC='B' 100000 FC.DIR='B' 40000 FC.CEF='B' 20000. FC.FCO='B' 10000IF.DREF:'L'.BLKW 1:F.DRNM:'L'.BLKW 1. .IF DF,R$$11MF.FEXT:'L'.BLKW 1D .ENDCF.FVBN:'L'.BLKW 2:F.LKL:'L'.BLKW 1F.WIN:'L'.BLKW 1 F.LGTH:'L' .ASECTL.=0L W.ACT:'L'N W.BLKS:'L'W.CTL:'L'.BLKW 1 WI.RDV='B' 400K WI.WRV='B' 1000 WI.EXT='B' 2000 WI.LCK='B' 4000 WI.DLK='B' 10000L .IF DF,R$$11M WI.PND='B' 20000S .ENDC WI.EXL='B' 40000K WI.WCK='B' 100000 .IF NDF R$$11MW.FCB:'L'.BLKW 1W.STD:'L'.BLKW 1W.VBN:'L'.BLKB 1W.WISZ:'L'.BLKB 1. .BLKW 1W.LKL:'L'.BLKW 1W.WIN:'L'.BLKW 1 W.RTRV:'L' .IFF'W.IOC:'L'.BLKB 1 .BLKB 1W.FCB:'L'.BLKW 1W.LKL:'L'.BLKW 1W.WIN:'L'.BLKW 1 .IF NB,SYSDEF .IF NDF,P$$WNDHW.VBN:'L'.BLKB 1 W.MAP:'L'LW.WISZ:'L'.BLKB 1T .BLKW 1 W.RTRV:'L' .IFFKW.MAP:'L'.BLKW 1.=0. ASSUME W.CTL,0. .BLKB 1W.USE:'L'.BLKB 1W.VBN:'L'.BLKB 1W.WISZ:'L'.BLKB 10 .BLKW 1 W.RTRV:'L' .ENDC .ENDC .ENDC .ASECTF.=0RL.LNK:'L'.BLKW 1L.WI1:'L'.BLKW 1 .IF DF,R$$11DL.STD:'L'.BLKW 1L.VB1:'L'.BLKW 2L.VB2:'L'.BLKW 2L.CNT:'L'.BLKB 1 .BLKB 1 .IFF.L.VB1:'L'.BLKB 1L.CNT:'L'.BLKB 1 .BLKW 1 .ENDC L.LKSZ:'L' .PSECT: .MACRO F11DF$ X,Y,Z .ENDM F11DF$P .ENDM F11DF$LxQ  .MACRO MTADF$,L,B .ASECTW.=0.V.TCNT:'L' .BLKW 1V.TYPE:'L' .BLKB 1V.VCHA:'L' .BLKB 1V.LABL:'L' .BLKB 12.V.NXT:'L' .BLKW 1BV.MVL:'L' .BLKW 1 V.UVL:'L' .BLKW 1VV.ATL:'L' .BLKW 1CV.UCB:'L' .BLKW 1V.RVOL:'L' .BLKB 1V.MOU:'L' .BLKB 11V.TCHR:'L' .BLKW 1V.SEQN:'L' .BLKW 1V.SECN:'L' .BLKW 1V.TPOS:'L' .BLKB 1V.PSTA:'L' .BLKB 1V.TIMO:'L' .BLKW 1V.STAT:'L' .BLKW 3V.TRTB:'L' .BLKB 1V.EFTV:'L' .BLKB 1V.BLKL:'B' .BLKW 1V.RECL:'B' .BLKW 1V.FNAM:'L' .BLKW 3V.FTYP:'L' .BLKW 1V.FVER:'L' .BLKW 1V.CDAT:'L' .BLKW 2V.EDAT:'L' .BLKW 2V.BLKC:'L' .BLKW 2V.RTYP:'L' .BLKB 1V.FATT:'L' .BLKB 1 .BLKB 30..V.WIND:'L' .BLKW 4.V.MST2:'L' .BLKW 1:V.FABY:'L' .BLKB 1L .BLKB 1V.ANSN:'L' .BLKB 17.V.BOFF:'L' .BLKB 1.V.DENS:'L' .BLKB 1.V.DRAT:'L' .BLKB 1.V.DBLK:'L' .BLKW 1.V.DREC:'L' .BLKW 1.S.VSCB=. .PSECTL .ASECTT.=0' W.CTL: .BLKW 1' V.WINC=V.WIND+W.CTL .PSECT .ASECT'.=0W .IF DF R$$11MM.NXT:'L' .BLKW 1. .ENDCM.UIC:'L' .BLKW 1M.CH:'L' .BLKW 1M.PROT:'L' .BLKW 1 .IF NDF R$$11MW .BLKW 2'M.NXT:'L' .BLKW 1' .ENDCM.RVOL:'L' .BLKB 1M.STAT:'L' .BLKB 1M.VIDP:'L' .BLKW 1M.UCB:'L' .BLKW 1 S.MVL=.Y .PSECTB .ASECT .=0 L.NXT:'L' .BLKW 1BL.VOL1:'L' .BLKB 1L.VOL2:'L' .BLKB 1L.VID1:'L' .BLKB 6L.VID2:'L' .BLKB 6S.UVL=.  .PSECTCVM.OLD ='B' 200.VM.BYP ='B' 100VM.ULB ='B' 40VM.FSC ='B' 20VM.EXC ='B' 10 V2.INI ='B' 1 V2.XH2 ='B' 2W V2.XH3 ='B' 4MV2.NH3 ='B' 10V2.OAC ='B' 20 VP.RM ='B' 2 VP.WM ='B' 4 VP.UCM ='B' 6' VP.SM ='B' 10FVP.MOU ='B' 20VP.RWD ='B' 40VP.VFY ='B' VP.RWDVP.POS ='B' 100B VP.TO=1WI.RDV ='B' 400IWI.WRV ='B' 1000WI.EXT ='B' 2000WI.LCK ='B' 4000MS.VER ='B' 200 MS.RID ='B' 1 MS.NMO ='B' 2. MS.TMO ='B' 4'MS.EXP ='B' 10 MO.OVR ='B' 1 MO.UIC ='B' 2B MO.PRO ='B' 4.MO.160 ='B' 10 .ENDMR Q  .MACRO EPKDF$,L,B .ASECT  .=0CE$HLGH:'L' .BLKW 1E$HSBF:'L' .BLKW 1E$HSYS:'L' .BLKB 1E$HIDN:'L' .BLKB 1E$HSID:'L' .BLKB 4E$HCTX:'L' .BLKB 1E$HFLG:'L' .BLKB 1E$HENS:'L' .BLKW 1E$HERS:'L' .BLKW 1 E$HENC:'L'E$HTYC:'L' .BLKB 1E$HTYS:'L' .BLKB 1E$HTIM:'L' .BLKB 6E$HPTY:'L' .BLKB 1 .BLKB 1E$HURM:'L' .BLKW 1 .EVEN E$HLEN:'L' B SM.ERR ='B' 1 SM.HDR ='B' 1P SM.TSK ='B' 2  SM.DID ='B' 4O SM.DOP ='B' 10= SM.DAC ='B' 20 SM.DAT ='B' 40P SM.MBC ='B' 20000 SM.CMD ='B' 40000W SM.ZER ='B' 1000001 EH$FOR ='B' 1 ES.INI ='B' 1$ ES.DAT ='B' 2C ES.LIM ='B' 4G ES.LOG ='B' 10' . E$CCMD ='B' 1L E$SSTA ='B' 1T E$SSWI ='B' 2S E$SAPP ='B' 3' E$SBAC ='B' 4' E$SSHO ='B' 5 E$SCHL ='B' 6  E$CERR ='B' 2B E$SDVH ='B' 1 E$SDVS ='B' 2P E$STMO ='B' 3  E$SUNS ='B' 4O E$CDVI ='B' 3= E$SDVI ='B' 1 E$CDCI ='B' 4P E$SMOU ='B' 10 E$SDMO ='B' 20 E$SRES ='B' 30 E$SRCT ='B' 4  E$CCPU ='B' 5  E$SMEM ='B' 1  E$SINT ='B' 2  E$CSYS ='B' 61 E$SPWR ='B' 1  E$CCTL ='B' 7  E$STIM ='B' 1  E$SCRS ='B' 2  E$SLOA ='B' 3  E$SUNL ='B' 4  E$SHRC ='B' 5  E$SMES ='B' 6  E$CSDE ='B' 10  E$SABO ='B' 1  EH$NOR ='B' 1  EH$STA ='B' 2  EH$CRS ='B' 3  EH$VIR ='B' 1  EH$EXT ='B' 2  EH$COU ='B' 4  .=0EE$TLGH:'L' .BLKW 1E$TTSK:'L' .BLKW 2E$TUIC:'L' .BLKW 1E$TTID:'L' .BLKB 2E$TTIU:'L' .BLKB 1E$TFLG:'L' .BLKB 1 .EVEN E$TLEN:'L' ET$PRV ='B' 1' ET$PRI ='B' 2'  .=0EE$ILGH:'L' .BLKW 1E$ILDV:'L' .BLKW 1E$ILUN:'L' .BLKB 1E$IPCO:'L' .BLKB 1E$IPUN:'L' .BLKB 1E$IPSU:'L' .BLKB 1 .IF DF R$$MPL E$IPDV:'L' .BLKW 1 .ENDC E$IFLG:'L' .BLKB 1 .BLKB 1$E$IVOL:'L' .BLKB 12.E$IPAK:'L' .BLKB 4 E$IDEV:'L'E$IDCL:'L' .BLKW 1E$IDTY:'L' .BLKW 2E$IOPR:'L' .BLKW 2E$IERS:'L' .BLKB 1E$IERH:'L' .BLKB 1 .IF DF R$$MPLWE$IBLK:'L' .BLKW 2E$ICYL:'L' .BLKW 2 .ENDCG .EVEN E$ILEN:'L' EI$SUB ='B' 1  '.=0 E$OLGN:'L' .BLKW 1E$OTSK:'L' .BLKW 2E$OUIC:'L' .BLKW 1E$OTID:'L' .BLKB 2E$OTIU:'L' .BLKB 1 .BLKB 1.E$OFNC:'L' .BLKW 1E$OFLG:'L' .BLKB 1 .BLKB 1IE$OADD:'L' .BLKW 2E$OSIZ:'L' .BLKW 1E$ORTY:'L' .BLKW 1 .EVEN E$OLEN:'L' EO$TRA ='B' 1P EO$DMA ='B' 2V EO$EXT ='B' 4W EO$PIP ='B' 102 $.=0'E$ALGH:'L' .BLKW 1 ..=01E$ALDV:'L' .BLKW 1E$ALUN:'L' .BLKB 1E$APCO:'L' .BLKB 1E$APUN:'L' .BLKB 1E$APSU:'L' .BLKB 1 .IF DF R$$MPL E$APDV:'L' .BLKW 1 .ENDCNE$ADFG:'L' .BLKB 1E$ATIU:'L' .BLKB 1E$ATSK:'L' .BLKW 2E$AUIC:'L' .BLKW 1E$ATID:'L' .BLKW 1E$AFNC:'L' .BLKW 1E$AFLG:'L' .BLKB 1 .BLKB 1KE$AADD:'L' .BLKW 2E$ASIZ:'L' .BLKW 1 .EVEN E$ALEN:'L' EA$SUB ='B' 1' EA$TRA ='B' 1  EA$DMA ='B'  2  EA$EXT ='B' 4  EA$PIP ='B' 10 .PSECT' .MACRO EPKDF$ X,Y .ENDM .ENDMALUN:'L' .BLKB 1E$APCO:'L' .BLKB 1E$APUN:'L' .BLKB 1E$APSU:'L' .BLKB 1 .IF DF R$$MPL E$APDV:'L' .BLKW 1 .ENDCNE$ADFG:'L' .BLKB 1E$ATIU:'L' .BLKB 1E$ATSK:'L' .BLKW 2E$AUIC:'L' .BLKW 1E$ATID:'L' .BLKW 1E$AFNC:'L' .BLKW 1E$AFLG:'L' .BLKB 1 .BLKB 1KE$AADD:'L' .BLKW 2E$ASIZ:'L' .BLKW 1 .EVEN E$ALEN:'L' EA$SUB ='B' 1' EA$TRA ='B' 1  EA$DMA ='B' zjL_c,<0Q   ~&>s^63^4f_F VN_r +`( (I . %I 2&I (I PdI (I :I `I XI  . 5 q e^I I p I(ITII,a `TatI0 b}sCps`(%tT+`(}t)W)W))X)X)Z)Z, -D-E....22.2p22銹22ً3^s3s:Kb{a<yf*2+`(d6&Id&Id(Itp!!`('!%v6!}v[!}wq!bxq!ya #n~b#}b#OqcD#c#""#w# z###.##y#y#N&#y#v~%I%I%I%r!I%#I% #I%#I%LI%ZI%kfI% qI%tI%wI%xI%I%CI%I<&kI<&DI<&%I<&I<&zI<&(I<&w*I<&:I<&H;I<&SI<&`I<&eI<&fI<&fI<&pI<&pI<&KqI<&%tI<&iwI<&lyI<&9I<&Ip&&I&ZI&]fI&tI&tI&CyI'I'IRI' qI'ąI'I(yI( I(QI)I)l^)[MI) I)PI),I)nEI)sEI)EI)_GI)GI)2HI)4I)ZI)p l^)'I)TyI)I)%I)'I)^I)PsI)I)%I)WI)WI)I)ZI)8I)xl^)` l^)pI) I) I)w I)pI)KqI)I)%l^)5l^)I)t I)I)I)BxI)I)!I)dI)VgI)[}I)p l^)l^)l^)XI)pI)I)It*N(t*N(t*N(t*GN(t*I"N(t*3N(t*NN(t*rN(t*sN(t*sN(t*sN(t*zN(t*N(t*N(t*bN(t*։N(*4N(*N(*N(*N(*8&N(*@,N(*@wN(*wN(T,KT,T,T,,d,1r,VNed,Qe,:de,Oqd,u~{,f-d>.Qr#0#0#0#0#09#0D#0L#0M#0v#0#0)#04#0#0#0T#0U#0#0#0x#08#08#08#08#08#08#08#08#0:#0k;#0;#0;,0,0,0σ,02,05,0q,0-0-0100p00q00s00s00s20,20,20,-20.20.40840840840840940Q:40W:40;;40:<40w40uw40w40w40x40x40Cy40Ny40Ry40y40y40y40y401z40wN(:KwN(:iwN(:owN(:wN(:wN(:xN(:xN(:xN(:ByN(:FyN(:WyN(:yN(:yN(:yN(:yN(:azN(:zN(:}N(:N(:N(:N(:N(:+N(:|N(:AN(:iN(:yN(:N(:N(:$N(:CN(:dN(:hN(:N(:N(:N(:N(:N(:ۑN(:N(:BN(:DN(:N(:2N(:N(:1N(:;KN(;@jN(;vN(;LN(;N(@;(`$T;N(T;8N(T;N(T;N(T;7N(T;!N(T;;"N(T;I"N(T;dN(T;4fN(T;$qN(T;wN(T;DyN(T; zN(T;*}N(T;N(T;3N(KlOpl^xQ`(zQDf|S]g|T|(T(T(T(TTTLTQUQdU-}U}UUVU U+}U,}UV}UqWIWIWzIWWIWwIWwIWxIWyIWBzIWIWZIW@IY`$[K.[YI[YI[o.["I[8I[;I[}.[I[L .[8I[WI[YI[I[ZI[`.[Kr.[#I[y.[V[.[ l^[<}I[\}.[.[XIeffffffffgikckZN(n]n^n^n_nL`nR`n` q}y&Iqj IqmxKq jKq^jYqk[qMksrjr%ys@8ys]s^s`Us%k,st sss#sQs,Xs`XsLqs}ssn[t{8[tƹ[tƹ[tƹtwtytt t{N(?{0N(?{pN(?{N(?{N(?{pN(?{NN(@{0N(@{NN(@{NN(A{0N(A{N(B{NN(C{N(D{0N(E{N(E{N(G{N(}N(}N(}N(}4N(}N(}H N(} N(}kN(}N(}>N(}N(}N(}N(}N(}N(}!N(}I"N(}8&N(}](N(}2N(}2N(}T3N(}3N(}O:N(}D;N(}KN(}MN(}vNN(}QN(}WN(}KXN(}:YN(}`YN(}ZN(}ZN(}:dN(}fN(}iN(}pN(}UqN(}sN(}HwN(}JwN(}wN(}xN(}xN(}xN(}xN(}yN(}8}N(}V}N(}]}N(}c}N(}0N(}փN(}׃N(}؃N(}كN(}ڃN(}ۃN(}܃N(}݃N(}ރN(}߃N(}|N(},N(}N(}N( ~L N( ~ N( ~GN( ~I"N( ~YN( ~pN( ~ qN( ~rN( ~rN( ~sN( ~zN( ~N( ~N( ~N( ~$N( ~ۑN( ~{N( ~^N(a |N(a |N(k |N(l8 N(l N(l N(l N(lN(lN(lN(lN(lN(sN(uVYN(uyN(uyN(uyN(uyN(uyN(vӁN(vN(vN(vN(vN(vN(vN(vN(vN(vN(vN(vN('%}`(Ldf.SSvS|@i` 8Tōwʍ8T}i~b`oÐHXp,ԒԒԒԒ7!Ԓ#ԒxQԒWԒWԒqԒLqԒ[qԒVsԒ;xԒԒ}ԒԒR:c.. .8.K. L.^.q.Bx.y.y4w Z""~@,}C,}!ZXY0YZ[\]^_`9}09xn9z:<::::":_:`:(}::Z<w:}} Ա2&EpԱ&EpԱ(EpձCձSF6ձWDֱfaEpoF0 0# 02XFD`;G2&Ep&Ep(EpfaEpe;H*pѲ:Iܲ""p&ܲ#pܲ#pܲ`qtܲ)dqܲGdqܲ@wqaK3a[M3aVNb2bG3c2 7cIqcd?!4@d)&=d85d85d85d;6dȝDe&7e&7eM7eM7eM7eM7eZe$3e?3f4ft:fy::Lgg<gggggg,gCgRggggg}:,iHm&5mlE;mK5mo<<p# ?8ph<pl=pJ,?HpK,?pZpiw=pvw>pw:pT.@M"2dlYMWNRK;SKq<<T<ZK^DE`WE`PZ,F`8F`WN`@Lz3ax}Z3a~]3a\44a` 7aBa8".:dh<:dl=:diw=:dvw>:dw?8:dw:ep?Hev?eDfT@afZkf`;@kfKqA0f; B^fvBPf]xN\g\ghykzN( q}y&2qWB7q7qqC7qsIqCVqMD\q2srjr%ys@8y4sUs%k,s"&tLtyEp$t_v PvqvXuFvPV9wKzrw{RrwdzylAy|Sy}Ty`~6y%mVy%y]ydy@ FKqF6!! &!p:Ldf V`}`(}NS|@h~GNHGYH2w:}Hd ((_HaIpZqZ9}0Q  έ*,h έLaVN@( D"8fg}h  D"** )ffaVN*&f f f1    L1  Q  έ*,l έLpl@g}@*o@( D"8,lh  D"w ewo pl g}Q  έ*,z έLg}@o@*d;@( D"8,zh  D"w ewew(o d; g}d; g}Q  έ*RK έLq:@i@"( D"8mlEh  D" Mwiq:Q  έ*SKq έL( D"8&moh  D"*  DP5R RRR Q  έ*T έLmlE@o@*aVN@( D"8*lEh  D"*w *eB 8  oaVN&mlELQ  έ*:dh έLs@; @"( D"8phh  D"**Ie(  s*&1 :&e  "; *L1-1- 111*r rrrrr Q  έ*:dl έLph@d8@"( D"8 plh  D"ewd8  phvQ  έ*:diw έLph@o@*d;@( D"8d)&hbpiwh iwh  D"*w *# o*&  U@e   ed;(d;H *Lw1  %ph*r,,  <Q  έ*:dvw έLo@aVN@*\D@( D"8pvwh vwh   D"*w *D !o*&UqqC ӥ: *L Ce   \D(aVNr*Q  έ*:dw έLpiw@pvw@*pw@o@aVN@( D"8<"}sh p# h*s}h  D"*eB  8 $&w aVN&o&*    pvwpiwpwQ  έ*ep έL( D"8:pJ,h  D"* 8   *&**Q  έ*ev έL( D"82pK,hskh(  D"* 8  **&*Q  έ*DfT έLpZ@o@*r,}@( D"8> 8rh(:h   D"*w *)  o pZ&r,}&46l0Q  έ*kf`; έLd;@m @*( D"8p( sQ  ΀*vXu ΀L( D"8oh  D" &ff Q  έ* έL`@f@"( D"8"2Xh  D"& 8 !Հ)w*w`$fQ  έ*Kq έLeZ@o@*rS@aVN@ft:@( D"8,"ձSh Xh֯}h  D"$w ww ww &o aVNeZoaVN rS woaVNft:8Q  έ*h~ έLs@xk@*s@4}@f@( D"8Z"wh2wh"q:h   D"*0+1e  %p*sxk"s*&w f( f)ffL 4}Q  έ*H έLw@w@*o@( D"8`;h  D"w wwowwQ  έ*Y έL( D"8wth  D",*1,Q  έ*} έLrC@w@*r@aK@o@s2 @( D"8Te;h  D"*w $0,0w 4o rCr s2 *&6  )0406 0 aKw L*Q  έ*(_ έLs@s@*( D"8Vxkhxkhih>   D"*8Ae f"( *&UCɗ+e$&ssL% Q  έ*a έLq:@i@*o@( D"8Ѳ:h  D""w *D  woi q:Q  ΀* &, ΀L)HN<&`H*)H>[XH)^H<&%H WWH*&CyH<&H(yH)nEH)sEH*<&KqHTH )EH([;H&{PH`*[8HHWH&{Hd6&H*%kfH%ZH@d&H'ąH)H#*)H4)H%H PdH :H *)_GH))HWH)TyH$'IRH*&{ZHWzH@'H)H0)GH*%wH@%xH [#H%CH )2HH4*) H,)BxH) H-<&%tH<&9H* `H$)[MH &H %HB)pH*<&pH<&pHWwH (H 2&H(*d(HWwHt!H)w H.)H*)PH8)KqH'HF[YHt{H$9KH}xH$9;H*t*sH:GH t*sH}QHDC{H*$9WH$9WH:i;HA{HT;H*$9!XH$92XH:.H:H ~ qH*:HH:H:/SH :2H:AH*$9XH}yH$9pH$9 HwxH *t*H}H7t*H:H:SH*:H}iH8t*sHT;3Hw8H*t*3H@ ~YH?{0H$9yXH ~ H*$9) HvH vH:6H@:GTH *$9pH}H?$9 H$9pH$9dH*$9pHT;H$9 HvH$9qH*wDyHwLyH$9)HvH$92 H*:_H}O:H$9RqH$9[qH$9ZqH*@{NH $9nYH$96 H:H}HC*$9}H@{0Hw΅H :HwyH*t*H$9YH}HvH ~rH *B{NHwyHPwyH@$9kYHvH*:H:pH:pHvH:pH*$97H$9H}D;H:qH*:H:qH:"qH:$qH:&H*:(qH:.qH$9YH}H&$9 H*$9YH:WHP:a H$9YH:TqH*:RH$9H:H :H:t H*:qH:H8:H$9CfH ~H *:H:H$9ZZH$9bH$9`&H*$9kH$9{H ~H$9~ZH:q!H *$9ZH$9ZH:-HA{0H $9ZH*:x H;LH}4H ~sH:H*:H wvH:!H:-H:}H`*$9[H$9'H$93H$9[H$9H*$9H:H$91H$93gH:H*:-H ~$H@:HlH:#"H*uVYH}H;E{H?{pH$9rH*$9&H:brH:crH$9fHt*bH@*$9H:vrH@t*Hw+H:rH*}pHk |H:rH :rH :rH*:rH0:2H:rH8:rH$9BH*lH}8}H%$9g'H$9n'Ht*zH*$9sH$9H$9H?{pHkZH*?{Ht*GH$9'H$9H$9H*$9H$9 H}V}H9}H H>:sH *:sHx}]}HA}UqH6: sH:#H*:sH }c}H@*@wHw:dH:KH*:KH$9H}H::{3H}H<*:sH`:sH*wH }H=:sH*:sH:sH:sH0:sH T;8H*:sH:KHlH $9CH:KHH*}!H :H$9VH$9XH ~ۑH*:sHP$9|H:4H:tHT;wH*$9.H:-tH`:,dH:1H}|H *:74HwH$9HE{H:H*$9+H:sH*@,H}I"Hw}H*a |H$9xQH$9H$95H$9H*w-Hp ~zH}2H}2H :LH*a |HG{H$9.H}KH}T3H*:+H$9HT;H}sH$9΅H*:[uH:bYHX:kYH ~GH :\MH*}WHBT;DyH:H:H}0H*T;H $9Hw.H`:nMH:H*:MH@w'Ht*։H}3H$$9H*}KXH':9NHT; zH}:dH*H@*:NHt*I"H :)NHT;!H:+NH(*:8&H;H$9^H$9H:&Hh*:{HT;;"H}HT;I"H:H`*:sH$9pwH$9SHl8 H}MH*l H:KwH ~L H:iwHl H*$9_Hl H$9`H$9#H$9'H*$9.H}:YH:>wH}`YH :vH*$9H$9H:n'H$98H$9H*:owHvӁH:H:wHP:H*:wHt*H }ZH} H5:'H *;KHwXH :H}8&H4:H(**4H:H wMH }kH":$H@*:)H}vNH:CH(:9H $9H*<5sH$98HsH ~I"HvH *:dH`:hH :H$98H$9xH*$9H ~{HvH$99Hw&qH0*}ZH$99H$9&H?{H :H*$939H:H:H wH$9kyH*$9yH$9!H$9L H$9!H$9!H*:xHHw H}fH)}H!:xH *$9BaH$9CyH$9E9H:xHp$9,:H*}JwH w{ZH :+H }H:ByH*:FyH }HwH :WyHHT;dH*H*}wH$9yH ~HT;*}H :yH*:HT;7H$95:H$96:H:yH *:QH}ۃH/}݃H1:ۑH:QH*:yH@$9ZHT;$qH}كH-@{NH*}ރH2}߃H3$9:H?{NH $9:H*:H:wQH:|H":H@}׃H+*}փH*}ڃH.}܃H0}؃H,:QH*:H:H;@jHuyHuyH*$9:H$9#H$9:H:QH:yH*uyHuyH:azH:H}](H#**8&H:4FH :AH0:BH :DHp*uyHt*NH$9zH:iH}xH(* ~^H@vH vH (Q *YMLs@[@*[Kr@[}@[@[\}@[@*o@$9Ba@(]8hK8 ]*ɪKrh <dwh<K8 Kr*5  5&U   *E*5@*& E& & f&*&ËDef Ë[`L )̋U Q **`Lܲ`@(ke(8sh ke( Sw ܲ`Q *3LܲGd@(ke(83h ke(* C &qܲGd*&Fre @AE*L2cD! D2rr8 HQ *4fLܲ#@ܲGd@"(ke(8"4fh ke(& & CC w ܲGd$ܲ#Q *;VNLܲ#@ܲGd@"(ke(8F VNh ke( RRRwܲGdܲ#Q *r +Lܲ#@(*ke(8D+h!!hh2+h "xQh}h$r +h ke(*97; uwy"&{D& fW#v&w ܲ#Q *bs;L(V9phB*Yh@;(hv8h:h * L@W @@@ 8@ A B*&e   @  @ A@@KL@P @Q *yXLܲ`@(ke(8,h ke( w ܲ`Q H*THLܲ#@ܲGd@"(ke(8 `Th ke($ & w ܲGd"ܲ#Q *Lܲ#@ܲGd@"(ke(8{h ke( _w ܲGdܲ#Q  *֯L Lܲ#@ܲGd@"(ke(8q!yh ke( ew ܲGdܲ#Q *֯Lܲ#@ܲGd@"(ke(8q!h ke( aw ܲGdܲ#.Q *ޯg'Lܲ#@ܲGd@*(ke(8N #n~h(0 hyeh4*~h"w0 h#}h.:Kh  ke(*!# #w)ܲGd$ܲ#*&5 C&wܲGdLܲ#Q *#OqLܲ#@ܲGd@"(ke(8"#Oqh ke(& C Yw ܲGd$ܲ#Q *#Lܲ#@ܲGd@"(ke(8#h ke( f Yw ܲGdܲ#Q  *q: Lܲ#@ܲGd@*(ke(8Z:hkh ke(*  & & & & `  f ܲGd*&RCҐCҐRC  L&wܲ#Q *,OqLܲ#@ܲGd@"(ke(8,Oqh ke(  & BAwܲGdܲ#Q *-Lܲ#@ܲGd@"(ke(8-h ke( qw ܲGdܲ#Q *,L(ke(8,h ke( CË @ÊAW H Q *,VNLܲ#@ܲGd@"(ke(8,VNh ke( RwܲGdܲ#Q *,QLs@ܲGd@"(ke(86,Qh ke(* P)&  ܲGd&s&( Q *,:dLܲ#@ܲGd@"(ke(8(,:dh ke(*A & & &&&wܲGd&ܲ#Q *,Lܲ#@ܲGd@"(ke(8,h ke( ?w ܲGdܲ#Q  *vL Lܲ#@ܲGd@*(ke(8yhq:yh ke( cw ܲGdܲ#Q *u~Lܲ#@ܲGd@"(ke(8 zQDh ke($&  RRRI! wܲGd"ܲ#JQ *\ML,0z@ܲGd@*)` @@(|S]h * Ε ܲGd*&4e   e ,0z )` *L f &f&  ,0z$)` r%sQ * PwLs@((* Pwh xh h zh \qh  *& & & & Aff& s&Q *L Pw@4u~@(,ysh * fB A  & & f4u~ &w PwQ *,H:LݪK@d;@(:4u~h *W &=e e$ݪK&@ B  d;Q *L z@*@* \q@4u~@(<}h *& %NBwA & f z4u~&ww \q*Q *sL,0z@ܲ#@*ܲGd@)%@(Zgh *&  & e mܲGd,0z)%*&w&f&fe  ܲ#,0z )%LsQ *ձLܲGd@(ke(8pIqh ke(*   _(  ?f ܲGd*&'& f' ?E@@ (La B 0e Q *ձLs@ܲGd@*(ke(84Kq hKq^h ke(*KM & & &&&ܲGd& sQ *srLܲGd@(ke(8.srh ke(* e@AB ܲGd &Q *#LܲGd@ܲ@w@"(ke(8Yqh ke(  wܲGdܲ@wQ *Us%Lܲ#@ܲGd@"(ke(8 Us%h ke($ QwܲGd"ܲ#Q *ձzLܲ`@(ke(8[qMh ke( /w ܲ`Q *xLlOpH)H*)H)H)xH)p H)%H*[ H)` H)p H)5H( Q * XLܲ#@ܲGd@"(ke(8&wh ke(* GwܲGd(ܲ#Q *yLܲ#@ܲGd@*C,@(ke(8$yh ke((  wܲGdC,&ܲ#Q  *y Ls@ܲ#@*(ke(8@Iqh0y}h ke(* B (W/ D  7(s& f& }wܲ#Q *y%Lܲ#@ܲGd@"(ke(82y%h ke(* @  ܲGd&Ewܲ#Q X* #XLܲ#@ܲGd@*(Zg(8y@h.yhX:`  Zg(* e2 ܲGd X:`*&w 7 Nw" ܲ#ܲGdX:`X:`"N*L&f&fCDEe ܲ# X:`*r    c s X:` Q * zLܲGd@ܲ@w@(2sh * X eETܲGd&ETwܲ@wQ * 4fLܲ#@ܲGd@(z4fh  -w ܲGdܲ#Q *jMLܲ""@ܲ#@"(r`hy`h *& @,A E& B _ *&E@  D Q  *L6 w+w  ܲ#ܲ#&ܲ""Q *xLܲ#@( ÐHXh & 1w ܲ#zQ **L(*h  )Q *ܲ""L`;@@"(ke(8(ܲ""h ke(* aa  `;&Q *ܲ#Ls@("ke(8ܲ#hܲ#h ke(sQ *ܲ`Lܲ#@ܲGd@"(ke(8ܲ`h ke( &w ܲGdܲ#Q *ܲ)dLܲ""@("ke(8Lܲ)dhܲGdh ke(*C & ` `Ba*&#   L &ܲ""Q *ܲ@wLܲ#@(ke(8(ܲ@wh ke(*CC    &w&ܲ#zQ X*XLܲ#@ܲGd@*(.Qh,1hHwh *` e BBCC ܲGd*&w qqqܲ#*L0 fqC Q ܲGd*r Iw C Qܲ#ܲGd Iwܲ#|Q *}Ls@ܲ#@*ܲGd@L @$9΅@w@C,@(}h *^    e^ܲGdC,*& ' w L *Lw  /ܲ#sr<   e$9΅Q X*XLs@ܲGd@"(ke(8,Cph ke(* & & &&&ܲGd &sQ *%Lܲ#@ܲGd@"C,@(%h "  w ܲGdC, ܲ#Q *}Ls@N@*N]@ܲ#@ܲGd@ X@NBx@*N{8@N{@$9΅@C,@(}h *   *e  ܲGdC,N X$NBx*& N{*Lf w $N]N{8fܲ# s&sr  e  $9΅Q X*1yXLN@ݩ%@*(XN]hN{8hN{h *&&&f&f *&  ` Nݩ%L% s4Q *` Ls@# z@"$9@(s @*$9s@GVN@:$@:4F@(Rh *&)_& & &  & && &s*&& Ε 61& G>  GVN:$$9s*L1)G> "G> *rȋ& & & & & & & & & Ε G>  GVN$:4F*1 &  aG> @ Q * q}Lܲ#@ܲGd@"C,@(2 q}h *  2  ܲGdC,&wܲ#Q *r%Lܲ#@ܲGd@"C,@(r%h   w ܲGdC,ܲ#*Q t*s@8tLܲ#@ܲGd@(s@8h *  eCBܲGd*&BaIBBJ*LbCBB "rɒɐB & &  w ܲ#Q *9wKLܲ#@E4d@*ܲGd@C,@((9wKh *  wܲGdC, E4d&ܲ#Q t*rwdtLܲ#@ܲGd@(drwdh * e ICBܲGd*&BaI  L  B wܲ#Q X* u~XLܲ#@ܲGd@"(&,u~hwu~h * =w =w ܲGdܲ# ܲGd(ܲ#Q *rwLs@ܲ#@*ܲGd@L @$9΅@w@C,@(rwh *d`    edܲGdC,*& *  w L *Lw  ܲ#s$r/<   e$9΅Q *AyLs@ܲ#@*ܲGd@L @$9΅@w@C,@(Ayh *   ܲGdC,*&  *L  e 9"w(L *r2    *  * w   /<  ܲ# se$9΅nQ *SyL5!@5 @* @@@( Xh*ݩ%hwh<@,hC,h * ,#b3!  b3!*&a 5   *L& > >2 reQ X*Ty`XLNHQH*HNBxH BxHQHN:dH*BxHH N H( *\}h>Nt!h>t!hN\}h\}ht!h  * >>> >*&*L*r**** *0*V*|*****:*`******D*j***Q *y%Lܲ#@ܲGd@"C,@(y%h    w ܲGdC,ܲ#Q *y]Lܲ""@ܲ#@(Xy]h *@$A E& & B ?E@*&  D Q w(ܲ#L%  ܲ""Q *ydLܲ#@ܲGd@(ydh   w ܲGdܲ#Q *y@Lܲ#@ܲGd@"C,@(y@h "  w ܲGdC, ܲ#Q X*T,XLܲ#@ܲGd@('%h  w ܲGdܲ#~Q X*LdXLܲ`@(Ldh  w ܲ` Q *SLܲ#@ܲGd@*C,@(TShSvhSh  *KM&   ܲGd&C,*&  2  L&w ܲ#Q X*|@XLܲ#@ܲGd@"C,@(R|@h *  ܲGdC,*& 2  LGwܲ#Q X*XLs@ܲ#@*ܲGd@L @$9΅@w@C,@(h *l    elܲGdC,*& .  w L *Lw "ܲ#&s*r /<  e"$9΅Q * @~L( D"86ݪKhih  D"*&  m  f A N & %rQ |O*=|OL(Cx8=h Cx*f&f ` * *& נ נ  נננ*L"D נaנz E ѐE*rp(p נ$נ0נ9*נAנZנ_נ: * zנ[ȕ]נ<ȕ>ȋ8 נ*%נ*נ-נ.נ0נ9נA* נZȠ sנ0נ7נ**0נ,A dȠb `  iנ*V"A   A [נ%נ**|נ0נ9נAנZנ.  *נ.נ; fנ0נ9 *_נ- Z נ* SA  נ,* Fנ=  @5 B@U (wj*נ/* 0 .נ$נ-נ.*:נ0נ9נAנZ נ_ נ:*`  Dנ"    0Q |P*@=|PLd@(Cx8@=h Cx*f&f E^`*&  UQ  UQ *L ËUI U `*re  !ddC    D*%*.C U 0 0 *W ,Uw6W /@ : *^BDaW-Ί WNWOD!BΊ* z CECCD! *0D! ΋5  e *Vΐ TpRpR΋pBC5*|N KR΋KBAE:D*0CĊ f eB * Dҁ CSĊ  Wd*B E Br Ε *f)& 6 l(*:*  E 'W " =*`N  W :+W = 1 #W ,W */ %W %W *Հ W <*W [W >W ] v($* 6 eQ N@*:h;N@L( D"8@d;hm h  D"*&   `@ ` B   && A @    VQ ΚX*9}ΚXLe0(w5 &g* CD>%  6  g*0o + j5d c gg*V] ZU5@ D($9!*| F uɥ;gR gg*5;5-Ԩ  5@* u5 Dɥ@5ug*b * 5  E gg<*5 @  @NK($9!*:8jMABAe @&*`PPP@C&5A&:s*  88U Ѳ:T; z$9!$:*e  8  Ѳ::brѲ:*"@0 T; z  **_%`AB $9!( w@ 8$9!gQ *[ @SL$9W@@@*`@}s@Ѳ:@s@@*9x@h'@ (@X@o@*Ա2&@ 8r@'@=@@=@*$9!@g@:@g,@w@*(Zg(8ghg<hxgh*gChgRhghghgh  Zg(*u j  ~5 , ɥg,*&/b J  (g*L 1ECe, e *r * F' @%7*U @ E N , *D(@e  D5@*@e,C& : K"9x*  s@w@&p  9x@(=*0! ȕp* e@=*VBEETH EBe (g*|M5    B "e('g"*5 @ 2=2 D(`*0(@$8 &SY *e2edE$.$.*$.w V &1 52D( o*:e0(E E U@5 e`####*`#### e" 88*5( * t $9!"*0 H0 J0 L  w  wo"s& (* D 5 4 u4X}s$Ա2&*6 > A(! ! (** @&s eB*DB7 pB!# *j *pB   dh' $9W" 8r*w ɥ ɥ  : ɥ ɥ ɥ@ɥ/ 4Q *[ ASLs@$9p@*}s@Ѳ:@s@d@ 8r@*'@:@w@(Zg(8*ghghZghghB Zg(*5 A&)f  u Bs*&A U` *LB`CAB5 b| R*ruABAB6C4 $9p* Е/ЕLЕBЕ:Ae,P d*  S  ɥ *ɥ  ɥ ɥ ɥ@ɥ/   Q ;V׳* S;V׳Ls@:G@*<&Kq@`@$9p@)@}s@*Ѳ:@)Ty@s@<&9@:t @*)p@)P@)@h'@ @* (@)W@X@o@:@* 8r@=@)'@@=@)Ps@*' q@$9!@)p@:@<&D@*(Zg(8@ShASh"?Sh  Zg(*w 5 funhj tuhdBo*& 8jwaw<  v)Ty")P&Lw &  &$9!)P<&9):t "Ѳ:*nAdBbAep& f)Ps(:G* P aAAf@pnѲ:()p$p C֋ 8&)p  )Ps)P: Ѳ:*Ë7AB`f Va`)P)Ps)p)p*& WaWz  ɥ"N  *&ajfu-nhwFɥ;]a*L)wנ"å.@j   $9p$9!*ra Bw@ ŀajTI`(<&9<&Kq<&D *& af v`V @))Ps )Ps*e,w $o*jjlj ɥ@@* aujk,bp 5f"=*0 fˇ ȕ ‡@=*V eSY e,5 funh*|we,aja`W-* f`nw^uhnw@ Dl"`*lja!Ce###33 )W(@ & &' q )h': )P&$9!*w  jDl@)Ps o)P*8 TeT5l@ 8r)W)P&^ @  e &`s (X)W")'* An5j)f }s ' q )h'* 2/     s RՀa@Q N*ݪMNL@(Zg(8TݪMh Zg(* @    e  T T *&T T H1CdT T L $)dL t dL d L  FQ X*ZKXL(,Q *\DLo@(* D"8DhDh\Dh  D"* w &Ba +- o*&ʥ# . U *L0   b   ` r    `Q QX*^QXLo@(* D"8\h hdh  D"*w  w & W+W- oo*&Ba. W#  B*L0  c  c S W %e*rc e`s  # 3  & ˥ Z ^C "Q X*7aXL@S@?S@*o@(N.D,hD,h ۩"S  *w w &e`` "o ?So@S ۩"S`*&a  `e`P D  ۩"S ۩"S`LQ X*R:XL<&`@<&Kq@*`@[8@)P@[Z@)W@*)p@sZg(8?Th Zg`ABDEFIMNOPQRSTUXYZ<>*z   *    *  " $ &&& *( &* ,*V, `. 0 2&2 p4 6 88 : << Zg(*w && D¥%  W*&B&ХVA C > :2 'LBCH    .MAIN. e Zg( 7( Zg`Zg` Zg`Zg`  $& Lwf&@y `^ Zg`$ `^Zg`&(0@> 07 ԋ_ (:t Zg`@ Zg`>Zg`Zg`*T 7 j h7 EZg`Zg`Zg`*z L4  w Zg`Zg`"Zg`*7 " 2*Zg` Zg`Zg` Zg` Zg`* $  h wZg` Zg`Zg`*\CH ( w> " Zg` Zg`H Zg` Zg`( &Zg` P Zg`)p)p** J!   })p Zg` )p*P  p  Zц& PP)p)p} vw $ P Zg`)p)p}*   Zg`)p)p Zg`*T߇ B܇7ق&7 %Zg`Zg`Zg`*i wVȥ ȥ ȥ* Zg`i P)p)p*  ȥ$ȥ/ ̥/  Zg`**   7   Zg`*P   ¥ ¥ vp&P  )p)Ty)'' q()' q )<&e) Zg`* R $ &)p )php! Zg` $Zg`$&  U$@ Zg` Zg`P 8r* N 1ȥ Zg`P:* 9C ʥ ʥ ҥ@  Zg`*0w Vp  \ Zg`V= $Zg`*Vfdwȕ  Zg`f Zg`d Zg`@=*|e 7 5j&P)W Zg`Zg`$Zg`j1-*Zg` Zg` Zg` Zg`Zg`&C 7 $7 &5j!( Zg`Zg`$Zg`&Zg`j"P" $:&  &$9)Ps Zg`$Zg`& Zg`(w$  w& \&9xZg`$9xZg`& $Zg`\* T% Е.& Zg`)Ps Zg`: (Zg`*@ nw &$&P 8rZg`$Zg`&(Zg`$fw()W )W)W)WZg`~W! pppp(Zg` Zg`)W)W)W*w$w&   CBw ()WZg`$ Zg`& Zg`$:*C %ʥ ʥ ҥ=( Zg` &Zg`(*#    R Zg`Zg`(Zg`& w7A77* Zg`Zg`Zg`Zg`"Zg`*,(7 >" Zg` Zg`(Zg`R@> &Zg` :Zg`@ Zg`>*j   (( &P Zg`` Zg` &Zg`(*4A Е.) ы )Ps Zg`A: Zg`)$ѝѝɝwы@&M MM:2 Zg`@>4 t&  Zg`>LQ *4sLW@(" D"8hhD  D"*w eE D` W*&bl lrw   $W*LB eE"s    s-*r  CslQ 0*v 0L("h  &&f& v Q *vqL( D"8Wh  D"&f xQ *vPL(h  f&  Q *zzL)WHtaH *UQdHn_HT,H#N&HtaH*tH)WH #wH.BxH H*#H))XHԒHxwHn`H*tRyH tNyHԒ#H0{HnL`H *0{H nR`H0{H tHt.H*.H.H .H.Hs#H*0{DHtCyH T,H0{H0{mH*-DH)XH#{8HT,KHtyH*.8H .H0{DH#0H#0H*4{*LH#0Hs,XH@#09H [t{8H*3^sHtBxH.yH-EH#{8H*3sH0{9H#0H.{H)ZH *.yH #0LH-0H0{H0{H*t H#0DH0{Ht8Hs`XH*n]H #0vH# zH0{nH#0MH *#""H#0HԒLqH4{MHԒ[qH*-01H40wHn^H#0)H #04H *#{mHT,HԒqH@Ԓ7!H s]H*#08H#08H2{H#yHԒH*n^HtpHsLqH.H40uwH*tyH .H)ZH2{mH[tH*[tHԒRH40wH[tH6{,H*40wHtwH#08H#08H6{!H*#08H-{\H-{QHtnH2H*#0H#08H#0H2{ H#08H*twHsH6{!H6{,H#08H *#H408H#{;Hs^H.KH *#0UH#0TH|wpH${H. LH*.{VH408H-{,~H408H ${H*40xH408HԒVsH40xH. H*#0H#0H40NyH40RyH ԒWH*4{wH-{fHԒWH409H40yH*|w`qH#0xH40CyH401zHU,}H*4wH20,HU+}Hs`H40yH* pH40yH40yHt:dH#0:H *THTH 40Lߋ J sRQ  έ*7qs έLs@xk@*s@i@( D"8rChwh*  D"* 8   **&*  4 6i*L B w w~RQ  Χ*,d ΧL( D"8 nQ  Χ*K VN ΧLs@s@*o@f@( D"8;VNhaVNh  D"*w BC "& <o*&SY*p0p21s*LE%0*w*e fs*r"f D CB.ERQ  Χ*  ΧL( D"8 Q  Χ*w ΧLs@r"&@*q:@w@i@o@f@"( D"8`h  D"*w *8F )o"w*&98 eB &&   i*LU *q:*r*e *Nlv ΋**.)  & #!i*)&ePe &s$& p* wq:r"&"fQ  Χ*& ΧLq:@i@*o@( D"84ch `rh   D"*w  )*  o&i&U q:@Q  Χ*e ΧLs@q:@*i@f@( D"8vcIqh   D"*0f& e %&s*&&eH U   i*LEf p  q:rwfQ  Χ*z ΧLq:@i@*( D"86eZhrShft:h   D"*    f u  i(q:&  pQ  Χ* & ΧL( D"8h  D" Q  Χ*, ΧLe&@py@*r@r@pJ,@o@mo@*f@( D"8}h  D"*w ) 8Co pJ, r*& * ) *w(f*L*  ep pye&*rp  C *   0** = Eե^ A* e@ v߇ E* p |p*0  , J *V*` C#r*|   D  moQ  Χ*,hy ΧLe&@r@*pK,@o@mo@sk@f@"( D"8 h  D"*w ) 8Co pK, r*& * ) *w(f*L* ep p  e&*rC   *  0* =* Eե^ A e@* ߇ Ep * p *0 8 V *`*V)w C# skr&|   D moQ  Χ*E`W ΧLb@mlE@*eZ@s@r"&@r@q:@*i@o@d?!@rS@r,}@*f@@ft:@fy:@cIq@*s}@( D"8@hp!h  D"*w  D 8#"o sfy:*&#)%*Lĥ ĥ w*r 0 *0 @Q$    0 *40 60)) z :#s}* 3&*w #( Pft:cIq*) @#**ff eZ* f  &*wD d?!eZ*0. H358e$8w2s*V2&e %p8s*|q #) *Rr**)@#0l C*# 028 (b*00ĥۇAĥ*Ċ  000 0 @"r,}*:0 &*0 @ u i&q:*`#eB * rSmlEr"&&i*eBe>  #* #D #*&0 #  * 0@e 6@#0 q:&40 6w!p2fQ  Χ*E`PZ ΧLb@mlE@*eZ@s@r"&@r@q:@*i@o@d?!@rS@r,}@*aVN@f@@ft:@fy:@*cIq@s}@( D"8\^Whh!h  D"*w & w  D  8#oos fy:*&"#)%*Lĥ ĥ *rw 0 *0 @Q$ *   0 40 60))  &s}*eB z :# 3& aVN$ft:**w #( P)  cIq&eZ* @#**fff &d?!*0 &*wD. H3eZ*V58e$8w22&s*|e %p8q s*#) *R*r*)@#0l C# 02*8 00b*ĥۇAĥĊ  *:000 0 @0 r,}*`&*0 @ u #eiq:*B * eBrS mlEr"&i*e>  # *#D #&*0 #   (q:*0@e 6@#040 6Dw!p2fQ  Χ*F`8 ΧLb@s@*r"&@r@q:@i@o@*r,}@aVN@f@@fy:@"( D"8h&h  D"*w  D 8#"o sfy:*&#)%*Lĥ ĥ w*r 0 *0 @Q$    0 *40 60))eB &*  aVN* w6 . 2*358e$8w22s* &e %p8q s*0#) *R*r*V)@#0l C# 02*|8 00 b*ĥۇAĥĊ  *000 0 @0 r,}*&*0 @ u *iq:"r"&* eBe>  i*: # #D *`#&0 # *  0@e 6q:*@#040 6w!pf2Q  Χ*F`W ΧLb@mlE@*eZ@s@r"&@r@q:@*i@o@d?!@rS@r,}@*aVN@f@@ft:@fy:@*cIq@( D"8Fh'h  D"*w  D 8#"o sfy:*&#)%*Lĥ ĥ w*r  0 *0 @Q$    0 *40 60))eB z :aVN*# 3&*w #( ft:cIq*P) @#**eZ* fff  &*wd?! eZ*0D. H358e$8ws*V22&e s*|%p8q #) $r**R*)@#0l *C# 02*8 00ĥۇAb*ĥĊ  000 (r,}*:0 @0 &*0 @ u i*` #eB *q:rSmlE r"&* eBe>  i*# #D *#&0 # *  0@e 6@q:*#040 6w!p2fD^Q  Χ*:dw ΧLs.@D@*o@( D"8zpwh wh   D"*w *  )Ĕ%.&o*&%;D  5)5@DD *Lͥ*Ce a%wUXD*r5@ 5sU U**U  5@XU*@5 U*U*  ʥ*%* C!.D` *weC5s.*0U5  5(V 5@e*4Q  Χ*afZ ΧLe&@e&@*r@c2 @w@a[M@( D"8XpZh  D"* 6 p 4 0`p f e&*& 64  e*wc2 a[M rLw e&BQ  Χ*\g ΧLe&@py@*r@r@w@w@pJ,@*o@mo@r,}@f@( D"8}h  D"*w jde& & & o pJ,*&B  2PΕ *L  N Υ$Ε  2*r2Υ   vmo* Ε f ew* * *e*wr,}&f* *0, T py$r*   )*)e&*0   l 0*Vl   *|  ee*@ 4 r- E *ep )w* ,   N *w  L B #r,} wr*: f  ` mo*`**w)0406 fl0 Q  Χ*\ghy ΧLe&@r@*w@w@pK,@o@mo@*sk@r,}@f@( D"8| h  D"*w jde& & & o pK,*&B  2PΕ *L  N Υ$Ε  2*r2Υ   vmo* Ε f ew* * *e*w0,r,}&f* P  ) re&* *)  *0 l 0l  *V  *| ee@ |2 n*+ E ep )*w ,*  w  LwB r,}w"sk*# f mo*: `**w)0f `406 l0 Q  Χ*7q ΧLb@wt@*rk@wL @bG@s2 @(" D"8<rhrh  D"*e6p 4 8 s2 "b&  bGrk wL wtQ  Χ*\q ΧL( D"8hr,}h  D"*. *&00l  0 L *Q  Ω*s"& ΩLs@@"( D"8Nr"&h  D"*82e& 0 s"*&0 0 80 B0 0 0 0)#0.LQ  Χ*tL ΧLq:@i@*( D"8$rkhwkh  D"( U4 6wi&q:Q  Χ*$t_ ΧLw@aK@*s2 @( D"8rh  D"*&4&6 64 wr%s2 *&64 2 6  l0s2 *L & Z46 6$aK*r4 :)0406 0 **0e6p 4 $wQ  Χ*w ΧLw@f@"( D"8wL h  D"" Bfep`pww fDQ  Χ* ΧLb@wt@*bG@wk@a[M@f@(" D"8`whwh  D"* ) !f bGa[M&wk*& e) . e wtL6p 4 08*w bfQ  Χ*d ΧLw@( D"8wh  D" ) . .w`pww f Χ* &[qkQc, .TITLE FCSRES - FCS RESIDENT LIBRARY FILE .IDENT /28.0/ ; ; COPYRIGHT (c) 1981 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD ; MASSACHUSETTS. ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ; BE USED AND COPIED ONLY IN ACCORDANCE WITH THE ; TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE ; ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO ; AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. ; ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ; RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS ; NOT SUPPLIED BY DIGITAL. ; ; PETER H. LIPMAN 22-OCT-74 ; ; MODIFIED: ; ; S. RUZICH 26-APR-79 ; ; SR017 - COMMENT OUT ENTRY POINTS, TO RESTORE DEFAULT ; FCSRES TO BELOW 4K. ; SR018 - INSERT CALLS OF ARITH AND DARITH ROUTINES TO ; CORRECT PSECT PROBLEM. ; ; S. RUZICH 14-MAY-79 ; ; SR025 - ALTER OPEN ENTRY POINTS TO USE FCSRES ONLY MODULE ; OPENR, RATHER THAN OPEN AND OPFID. ; ; S. RUZICH 17-JUL-79 ; ; SR034 - RESTORE .DLFNB ENTRY POINT FOR F4POTS. ; ; ; S. RUZICH 26-NOV-79 ; ; SR054 - GLOBAL REFERENCE TO .FCTYP ; ; S. RUZICH 01-APR-80 ; ; SR067 - IMPROVED .DLFNB ENTRY POINT, GENERAL CLEANUP. ; ; S. RUZICH 4-MAR-81 ; ; SR102 - GIVE .PSECT $$RESL READ-ONLY ATTRIBUTE ; ; S. RUZICH 15-JUN-81 ; ; SR138 - RECOMMEND REMOVING MORE GLOBALS FOR ANSLIB VERSION. ; REFERENCE .FLUSH. CLEANUP. ; ; S. RUZICH 10-SEP-81 ; ; SR153 - RECOMMEND USE OF TKB /LI TO PREVENT PSECT CONFLICTS. ; ; S. RUZICH 02-NOV-81 ; ; SR179 - CLEANUP ; ; THIS FILE DOCUMENTS HOW TO BUILD AN FCS RESIDENT LIBRARY, ; AND IT DEFINES ALL OF THE POSSIBLE MODULES THAT MIGHT GO INTO ; SUCH A LIBRARY. ; ; IT SHOULD BE UNDERSTOOD THAT PRECISELY HOW MUCH GOES INTO FCSRES ; IS ACTUALLY DEPENDENT ON WHICH PROGRAMS ARE GOING TO USE IT AND WHAT ; THOSE PROGRAMS REQUIRE. THE IMPORTANT POINT TO BEAR IN MIND ; IS THAT A PROGRAM LINKING TO FCSRES MAY NOT GET MISSING FCS MODULES ; FROM THE SYSLIB.OLB OBJECT LIBRARY FILE AS WELL. A PROGRAM NEEDING ; FCS MODULES WHICH WERE NOT PLACED IN FCSRES WOULD HAVE NO CHOICE ; BUT TO LINK WITHOUT FCSRES AND USE ALL THE MODULES OUT OF SYSLIB. ; ; FOR THE OBVIOUS REASONS OF SIZE, THE MINIMUM AMOUNT SHOULD BE PUT IN ; FCSRES CONSISTENT WITH THE NEEDS OF THE PROGRAMS USING IT. ; ; THOSE ENTRY POINTS THAT ARE INVOKED BY MACROS ARE DOCUMENTED BELOW ; SO THAT IT IS POSSIBLE TO PICK WHAT SHOULD GO INTO FCSRES. ; ; IT IS INTENDED THAT THIS FILE BE EDITED TO ELIMINATE UNDESIRED ; MODULES FROM FCSRES. ; ; THE ACTUAL BUILDING OF FCSRES INVOLVES THE FOLLOWING: ; 1) ASSEMBLE THIS MODULE ; ; MAC> FCSRES,FCSRES=FCSRES ; ; 2) BUILD THE LIBRARY ; ; SET /UIC=[1,1] ; ; TO BUILD NON-ANSI FCSRES FOR A MAPPED RSX-11M SYSTEM ; SR179 ; OR BUILD FCSRES (NECESSARILY ANSI) FOR AN RSX-11M-PLUS SYSTEM: ; SR179 ; ; SR179 ; TKB>[1,1]FCSRES/-HD/LI/MM/PI,[1,34]FCSRES,[1,1]FCSRES=[200,200]FCSRES ; SR179 ; TKB>/ ;**-3 ; TKB>STACK=0 ; TKB>PAR=FCSRES:0:20000 ; TKB// ; ; TO BUILD A NON-ANSI FCSRES ON AN UNMAPPED RSX-11M SYSTEM: ; SR179 ; ; SR179 ; TKB>[1,1]FCSRES/-HD/LI/-MM/PI,[1,34]FCSRES,[1,1]FCSRES=[200,200]FCSRES ; SR179 ; TKB>/ ;**-3 ; TKB>STACK=0 ; TKB>PAR=FCSRES:140000:20000  ; TKB>// ; ; TO BUILD ANSI FCSRES FOR A MAPPED RSX-11M SYSTEM: ; SR179 ; ; SR179 ; TKB>[1,1]FCSRES/-HD/LI/MM/PI,[1,34]FCSRES,[1,1]FCSRES=[200,200]FCSRES ; SR179 ; TKB>LB:[1,1]ANSLIB/DL ; SR179 ; TKB>/ ; SR179 ; TKB>STACK=0 ; SR179 ; TKB>PAR=FCSRES:0:20000 ; SR179 ; TKB// ; SR179 ; ; SR179 ; TO BUILD A ANSI FCSRES ON AN UNMAPPED RSX-11M SYSTEM: ; SR179 ; ; SR179 ; TKB>[1,1]FCSRES/-HD/LI/-MM/PI,[1,34]FCSRES,[1,1]FCSRES=[200,200]FCSRES ; SR179 ; TKB>LB:[1,1]ANSLIB/DL ; SR179 ; TKB>/ ; SR179 ; TKB>STACK=0 ; SR179 ; TKB>PAR=FCSRES:140000:20000 ; SR179 ; TKB>// ; SR179 ; ; SR179 .MCALL CALLR ; SR179 .PSECT $$RESL,RO ; SR179 ; ;**-3 ; OPENING FILES ; .GLOBL .OPENR ; ; SR179 .OPEN:: ;OPEN$X, OPNS$X, OPNT$X ; SR179 .OPFID::CALLR .OPENR ;OFID$X CAN USE THE OPEN$X CODE ; SR179 .OPFNB::CALLR .OFNBR ;OFNB$X ; SR179 ; ;**-3 ; CLOSING FILES ; .GLOBL .CLOSE ;CLOSE$ ; ; TRUNCATE CLOSE ; SR179 ; ; SR179 .GLOBL .TRNCL ; SR179 ; ; SR179 ; RECORD I/O ; .GLOBL .GET,.PUT ;GET$, AND PUT$, GET$R, AND PUT$R .PUTSQ::CALLR .PUT ;PUT$S CAN USE PUT$ CODE .GETSQ::CALLR .GET ;GET$S CAN USE GET$ CODE ; ; SR179 ; ARITH AND DARITH ROUTINES ; SR179 ; ; SR179 .GLOBL $DIV,$DDIV ; ; SR179 ; ;**-4 ; BLOCK I/O ; .GLOBL .READ,.WRITE,.WAIT ;READ$, WRITE$, AND WAIT$ ; ; DELETE FILE UPON CLOSE ; SR179 ; ; SR179 .GLOBL .MRKDL ;USED BY OPNT$D ; SR179 ; ; SR179 ; FILE EXTENSION ; SR179 ; ;**-6 .GLOBL .EXTND ; ; DIRECTORY OPERATIONS ; .GLOBL .FIND,.ENTER,.REMOV ; ; ISSUE GENERAL QI/O AND SPECIAL MAGTAPE FUNCTION QI/OS ; SR179 ; ; SR179 .GLOBL .XQIO,.CTRL ; SR179 ; ; SR179 ; ; SR179 ; RETURN MASK SPECIFYING FCS ASSEMBLY PARAMETERS ; SR179 ; ; SR179 .GLOBL .FCTYP ; SR179 ; ; SR179 ; FLUSH BLOCK BUFFER TO FILE AS IF AT END-OF-FILE ; SR179 ; ; SR179 .GLOBL .FLUSH ; SR179 ; ; SR179 ;----------------------------------------------------------------------- ; SR179 ; ; SR179 ; AS IT STANDS, THIS FCSRES.MAC WILL BUILD TO A NON-ANSI 4K FCS RESIDENT ; SR179 ; LIBRARY ON AN RSX-11M SYSTEM. SUCH AN FCSRES CONTAINS EVERY EXECUTABLE FCS ; SR179 ; MODULE FROM RSX-11M SYSLIB.OLB. ; SR179 ; ; SR179 ; IF YOU INTEND TO BUILD AN ANSI 4K FCS RESIDENT LIBRARY ON AN RSX-11M SYSTEM, ; SR179 ; OR AN RSX-11M-PLUS SYSTEM, YOU MUST REMOVE A NUMBER OF ENTRY POINTS IF YOU ; SR179 ; WISH TO BRING THE SIZE OF FCSRES BELOW 4096 WORDS. IF YOU REMOVE (OR COMMENT ; SR179 ; OUT) THE FOLLOWING ENTRY POINTS, THEN THIS FILE WILL BUILD TO A 4K ANSI ; SR179 ; FCSRES. ; SR179 ; ; SR179 ; IF YOU NEED ANY OF THE FOLLOWING ENTRY POINTS IN A 4K ANSI FCSRES, THEN YOU ; SR179 ; MUST REMOVE ONE OR MORE OF THE ABOVE ENTRY POINTS, UNTIL THE EDITED FILE ; SR179 ; BUILDS TO A 4K FCSRES. ; SR179 ; SR179 ; ; SR179 ; DELETE FILES ; SR179 ; ; SR179 .GLOBL .DELET ;DELET$ ; SR179 ; SR179 .DLFNB::TST F.BDB(R0) ;DELETE BY FILE NAME BLOCK; IS THE FILE OPEN? ; SR179 BNE 10$ ;YES- NO PROBLEM ; SR179 CALL .FIND ;NO - FIND FILE ID, TO AVOID PARSE IN .DELETE ; SR179 BCC 10$ ;DELETE IF NO ERROR ; SR179 RETURN ;REPORT ERROR ; SR179 10$: CALLR .DELET ;DELETE ; SR179 ; ; SR179 ; FILE POSITIONING ; .GLOBL .POINT,.MARK ; ; READ AND WRITE FILE STORAGE REGION CELLS ; SR179 ; ;**-5 .GLOBL .RDFDR,.WDFDR,.RFOWN,.WFOWN,.RDFFP,.WDFFP ; ; ; SR179 ; RENAME FILE ; SR179 ; ; SR179 .GLOBL .RENAM ; SR179 ; ; SR179 ; ESTABLISH DIRECTORY ID ; SR179 ; ; SR179 .GLOBL .GTDID,.GTDIR ; SR179 ; ; SR179 .END ; SR179 ; SR179 ; SR179 #l^c,.*`Lܲ`@(gke(8shvke(DSwJ  ܲ`.3LܲGd@( ke(83h~ke(D. C &q ܲGd.&Fre @AE.L2cD! D2rwr8 HY.4fLܲ#@ܲGd@&(ke(8"4fhdke(D* & CC w ܲGd$ܲ#.;VNLܲ#@ܲGd@O&(ke(8F VNhke(D" RRRwfܲGdܲ#.r +Lܲ#@(?.ke(8D+h!!hh2+h `&xQh}h$r +hke(D.97; uwy&&{D& fW#v&w4  ܲ#.bs;L(V9phBb.Yh@;(hv8h:hV. L@W @@@ 8@ A B.&e   @  @ A@@KL@P @.yXLܲ`@(ke(8,hke(Dw  ܲ`.THLܲ#@ܲGd@&(ke(8 `Th%ke(D( & w ܲGd"ܲ#.Lܲ#@ܲGd@&(ke(8{hke(D _w- ܲGdܲ#.֯L Lܲ#@ܲGd@&(ke(8q!yhke(D ew' ܲGdܲ#.֯Lܲ#@ܲGd@&(ke(8q!hke(D aw+ ܲGdܲ#.ޯg'Lܲ#@ܲGd@.(ke(8N #n~h(0 hyeh4.~h"w0 h#}h.:Kh ke(D.!# #w)SܲGd$ܲ#.&5 C&w ܲGd L ܲ#.#OqLܲ#@ܲGd@^&(ke(8"#Oqhke(D* C Ywh ܲGd$ܲ#.#Lܲ#@ܲGd@&(ke(8#h-ke(D" f Yw ܲGdܲ#.q: Lܲ#@ܲGd@.(ke(8Z:hkhke(D.  & & & & `  f  ܲGd.&RCҐCҐRC  ^L&wU ܲ# .,OqLܲ#@ܲGd@&(ke(8,Oqh]ke(D$ & BAwLܲGdܲ#.-Lܲ#@ܲGd@&(ke(8-hake(D qw ܲGdܲ#.,L(ke(8,h]ke(D$CË @ÊAW H .,VNLܲ#@ܲGd@]&(ke(8,VNhke(D RwFܲGdܲ#.,QLs@ܲGd@Q&(ke(86,Qhke(D. P)&  ܲGd&s &( O.,:dLܲ#@ܲGd@c&(ke(8(,:dhske(D.A & & &&&w ܲGd & ܲ#.,Lܲ#@ܲGd@~&(ke(8,hke(D ?w ܲGdܲ#.vL Lܲ#@ܲGd@9.(ke(8yhq:yhke(D cw) ܲGdܲ#.u~Lܲ#@ܲGd@&&(ke(8 zQDhke(D(&  RRRI! wܲGd"ܲ#.\ML,0z@ܲGd@.)` @@(|S]h. Ε  ܲGd.&4e   e ,0z )` o.L f &f& [ ,0z$)` r%s]. PwLs@((7. Pwh xh h zh \qh.& & & & Aff&  sh &E.L Pw@4u~@5(,yshO. fB A  & & f 4u~&w  Pw`.,H:LݪK@d;@(:4u~h.W &=e eY $ݪK&@ B  / d;.L z@*@c. \q@4u~@(<}h.& %NBwA & f z4u~&ww' \q*.sL,0z@ܲ#@*.ܲGd@)%@(Zgh.&  & e mܲGd,0z)%%.&w&f&fe  ܲ#,0z )%Lsy.ձLܲGd@(zke(8pIqh%ke(D.   _(  ?f  ܲGd.&'& f' ?E@@ o,La B 0e .ձLs@ܲGd@ .(ke(84Kq hKq^hke(D.KM & & &&&_ ܲGd& X st.srLܲGd@(bke(8.srh.ke(D. e@AB  ܲGd&.#LܲGd@ܲ@w@&(ke(8Yqhke(D  wܲGdܲ@w7.Us%Lܲ#@ܲGd@&(ke(8 Us%htke(D( Qw@ܲGd"ܲ#.ձzLܲ`@(/ke(8[qMhke(D/wn  ܲ`.xLlOpH)HY.)H)H)xH)p H)%H.[ H)` H)p H)5H(M. XLܲ#@ܲGd@&(ke(8&whke(D. Gw ܲGd(ܲ#.yLܲ#@ܲGd@.C,@(ke(8$yh-ke(D,  wܲGdC,&ܲ#s.y Ls@ܲ#@.(ke(8@Iqh0y}hke(D. B (W/ D  7y (sZ"& f& }w( ܲ#.y%Lܲ#@ܲGd@&(ke(82y%hke(D. @  0 ܲGd&Ew ܲ# . #XLܲ#@ܲGd@.(Zg(8y@h.yhX:`Zg(S. e2b ܲGd X:`.&w 7 NwJ& ܲ#ܲGdX:`X:`"N.L&f&fCDEe /ܲ# X:`O.r    cs^X:`K. zLܲGd@ܲ@w@@(2shm. X eET ܲGd&ETw ܲ@w. 4fLܲ#@ܲGd@(z4fh -w_ ܲGdܲ#.jMLܲ""@ܲ#@=&(r`hy`hk.& @,A E& B _ .&E@  D Q  .L6 w+w  tܲ#ܲ#&ܲ"".xLܲ#@( ÐHXh*& 1w  ܲ#.*L(*h).ܲ""L`;@@&(ke(8(ܲ""hke(D. aa  剮`;8 &E.ܲ#Ls@( &ke(8ܲ#hܲ#hke(D st.ܲ`Lܲ#@ܲGd@&(ke(8ܲ`hke(D  &w1 ܲGdܲ#.ܲ)dLܲ""@(&ke(8Lܲ)dhܲGdhke(D.C & ` `Baj.&#   L  &ܲ"".ܲ@wLܲ#@(ke(8(ܲ@whke(D.CC    &wM & ܲ#.XLܲ#@ܲGd@.(.Qh,1hHwh.` e BBCC  ܲGd.&w qqq ܲ# .L0 fqC Q:  ܲGd.r Iw C Qܲ#ܲGd Iw ܲ# .}Ls@ܲ#@.ܲGd@L @$9΅@w@C,@(}h.^    e^ܲGdC,.& ' w L .Lw  /Nܲ#s|"r<   e $9΅).XLs@ܲGd@&(ke(8,Cphke(D. & & &&& ܲGd&b s|.%Lܲ#@ܲGd@&C,@(%h&  w_ ܲGdC, ܲ#}.}Ls@N@.N]@ܲ#@ܲGd@ X@NBx@.N{8@N{@$9΅@C,@(,}h.   *e $ܲGdC,N X$NBx.& z N{W.Lf w a(N]N{8fܲ# s&s;r  e   $9΅1.1yXLN@ݩ%@.(XN]hN{8hN{h.&&&f&f .&  ` Nݩ%L% su.` Ls@# z@&$9@(s @.$9s@GVN@:$@:4F@(Rh.&)_& & &  & && & sp.&& Ε 61& LG>  GVN:$$9s.L1) G> "G> .rȋ& & & & & & & & & Ε G>  GVN$:4F3.1 &  a G> @ H. q}Lܲ#@ܲGd@\&C,@(2 q}h`.  2  ܲGdC,w&w ܲ# .r%Lܲ#@ܲGd@&C,@(r%h"  w ܲGdC,ܲ#.s@8tLܲ#@ܲGd@(s@8h^.  eCB ܲGd.&BaIBBJ.LbCBB )&rɒɐB & &  w  ܲ#.9wKLܲ#@E4d@ .ܲGd@C,@((9wKh.  w"ܲGdC, E4d & ܲ#.rwdtLܲ#@ܲGd@(drwdh7. e ICB ܲGd.&BaI   L  B w ܲ#. u~XLܲ#@ܲGd@&(&,u~hwu~h{. =w =wM ܲGdܲ# ܲGd(ܲ#S.rwLs@ܲ#@.ܲGd@L @$9΅@w@C,@(rwh.d`    edܲGdC,.& *  w L .Lw  ܲ#sp(r/<   e $9΅#.AyLs@ܲ#@.ܲGd@L @$9΅@w@C,@(Ayh.   iܲGdC,.&  .L  e 9"w(L .r2    M.  |. w   /<  .ܲ# se $9΅5.SyL5!@5 @. @@@( Xhg.ݩ%hwh<@,hC,h. ,#b3!  b3!.&a )5   .L& > >2]  "re.Ty`XLNHQH.HNBxH BxHQHN:dHq.BxHH N H( `.\}h>Nt!h>t!hN\}h\}ht!hL t. >>$> >.&.L.r\.6... .0.Vw.|Q.+....:.`l.F. ....D.ja.;...y%Lܲ#@ܲGd@V&C,@(y%hr"   w ܲGdC,ܲ#.y]Lܲ""@ܲ#@:(Xy]h.@$A E& & B ?E@'.&  D Q w (ܲ#L%   ܲ"" .ydLܲ#@ܲGd@(ydh  w  ܲGdܲ#.y@Lܲ#@ܲGd@&C,@(y@h&  w ܲGdC, ܲ#}.T,XLܲ#@ܲGd@('%h w ܲGdܲ#.LdXLܲ`@(~Ldhw  ܲ`.SLܲ#@ܲGd@].C,@(TShSvhSh ".KM&   ܲGd&C,S.&  2 tL&w  ܲ#.|@XLܲ#@ܲGd@/&C,@(R|@h.  ܲGdC,k.& 2 zLGw ܲ#.XLs@ܲ#@c.ܲGd@L @$9΅@w@C,@(hf.l    e.lܲGdC,.& .  ow L .Lw l["ܲ#&s`.r /<  e "$9΅ lzz^c,.zzL)WHtaH t.UQdHn_HT,H#N&HtaH.tH)WH #wH.BxH H:.#H))XHԒHxwHn`H.tRyH tNyHԒ#H0{HnL`H K.0{H nR`H0{H tHt.H$..H.H .H.Hs#H.0{DHtCyH T,H0{H0{mHD.-DH)XH#{8HT,KHtyH..8H .H0{DH#0H#0H~.4{*LH#0Hs,XH@#09H [t{8H.3^sHtBxH.yH-EH#{8HZ.3sH0{9H#0H.{H)ZH \..yH #0LH-0H0{H0{H.t H#0DH0{Ht8Hs`XH.n]H #0vH# zH0{nH#0MH .#""H#0HԒLqH4{MHԒ[qH2.-01H40wHn^H#0)H #04H v.#{mHT,HԒqH@Ԓ7!H s]HS.#08H#08H2{H#yHԒH.n^HtpHsLqH.H40uwH.tyH .H)ZH2{mH[tH(.[tHԒRH40wH[tH6{,H!.40wHtwH#08H#08H6{!H.#08H-{\H-{QHtnH2Hv.#0H#08H#0H2{ H#08H.twHsH6{!H6{,H#08H .#H408H#{;Hs^H.KH P.#0UH#0TH|wpH${H. LH?..{VH408H-{,~H408H ${H.40xH408HԒVsH40xH. HW.#0H#0H40NyH40RyH ԒWH.4{wH-{fHԒWH409H40yHO.|w`qH#0xH40CyH401zHU,}H$.4wH20,HU+}Hs`H40yHh. pH40yH40yHt:dH#0:H /.THTH 40.\k@L5@t@(dhD.dhehehhh.      L5L5&L5@.& B/CD&, NQz\kn^nL` c.L ,  5 Q I (  n^nL` .reQQ  eews (t.DLL:y@nL`@.:K@:L@:kY@:N@:)N@O.:9N@\k@:@:@L5@/.t@:A@:i@(l|8Yh&;Mh u*:K :)N :9N:L:N:%.a D$*:i:y: :kY :A L5.< ` APP  z \kbewMnL` t.fvL0LnL`@:_@.\k@:n'@L5@( ^p:h_p:h(  e&:n' :_L5\k nL`.Ա0LnL`@:p@.\k@L5@(!qh&  P e  L5:p\knL`.Ա80Lk*}@<\}@.<@kQ@(VԱ8h !k*}<\},  !k*}<\},  !k*}<\},  !k*}<\},  !k*}<\},   !k*}<\},   !k*}<\},  !k*}<\},  !k*}<\},  !k*}<\} ,  !k*}<\} , .% eaa B` B`ʋ)k*}<\} ,  <"< `  kQ.]0LnL`@n^@6.\mj@L5@t@:@(8shsh.   0 p&L5: \mj$n^nL` &H ewnL`tZg9;^c,.1 q?L\mj@L@.t@(zh@jhmhh 7. & & (7 "L8.& 56P 5  \mj.L HEEBP  errw  t.;d e,s7 &C.5XL,0z@)@p.)@)5@(l,}h,2h(R.h4h.Lh L5h4+. " CDE0) )5)T.&Jgf& @ $))5),0z(L Ba$@".."q%XL@ @.z@` @8@`^@'@$(Աp hZ.e4  &4$8`^z` "T.& 'P N  '&8 .L < @ 4"(` k"rt tN   `^`.ԱhXL,0z@`@o.)@` @)p @`^@)p @.Աp @(4q@8h|#qvh7qhr$q@8h4q@h. gf  4  $)p )p ,0z`^$` .& 4   P 4J$`Աp `^` `9.L] 4 W#`^ `^`8.r gf )p )p )",0z.      Աp `^` &`\.@ Ί  W%} ` `   .CT0L(CTh-  5 B  .h~XL\k@L5@( Lw@8h(  PP e L5\kM^c,. NaOL,0z@s@.lOp@wL @d;@m @(.ձhXh8t'hrCؐh)h. BEρ@ 4 @   4.&w>eB C}.LPCE < o.r PW 'ee.Ke K` d_O (wL I.d$ C fwa ,0zlOp.f!e&4W 1  y-.  ( $< H @ 8 (  1.0 &fe   b ,0zlOp.V  CC P d;m .|U  ՠ @  ,   e N sp. Nw:OL,0z@lOp@.wL @ձ@ܲ)d@:Tq@:K@.E@:iw@:ow@:y@(M.8phrKh; h\gh>8ph&Mh^Tq( hMh. & & & & & & & xܲ)d,0z#.&&    - wL lOp:iw.L f e  C ewDE(ձ.r   & & & Aܲ)d&,0z.& & & f&&  C wL lOp:ow.  ew w ձܲ)d:Tq$ܲ)dY.A& & & & f&&& M:K,0z$wL . f C wBA@  eI,OlOpձ.0IŠ @A$ he 0$ .V0 @e& & & & & && & & A ,0zV.|Ε )D@s lOp:y. C  `0" lĊeF. NsOϳL:@ܲ)d@.X@:{3@Cؐ@:Q@:Q@.:Q@(Vh h{3}h,2&owhshawh.&   $ܲ)d.&&  .  0 .L    .r P T6UwH$:(X.) F.ef  $Cؐ.Le w$:Q:ܲ)d"X&:Q/.  &   w :Q ܲ)d$X(ܲ)dS.0 &   w$:{3(X9t^^c,.t^sVLs@:t @.:@(t^l \~h\h^t^(lt^0$.0 (.V&  .|tZ|K"t$Z&|(K .    . gg|||||||01234567v.|||||| |0SWAMLHCQFXBGIRVED D.DTfx}~\/'"% ^_@><$=CQ.;(&Tfx  j-+*,BEFGKLNOPRSVWX ~j~$$`j}.$$  `j]f~0jdp,.f~ 0 jdp |6l. | 6l."\L7 v7  0 xB" " \L0;.77P7 \ OD .T:  B? 7  (.,7 7 & B  7 JB.R  7    .x w  1 w 0De@ w 0$@:.;% e0DlD N w ;0D(. 5W 4 T @  Z T. r 4;t 4"E. 83 @  D ^ #.6E = e0,  ~ (>.\@ nb (0x &0.,r f^w ? :0 P;"0. (7 ,_ &7+  7"7 hw {.Xԇ  &y~wX~.7  !7 (>. 77w77.@%5 f    7   .f }`\7qmVPLL. DB Q X 8, 767 X X.4w  $b  . B` %. D _ & > .$ w 777.JUE   .pl f <eb sd.7R7LGǁ 0f׭5 fl..&Uvnl7. 8L#ĝw)T.t!TTE w7 f@ T(f.. f e0B7  : @ f.T PJDMP|yODn`.zc, JBEN7Msssd.IOBIL:FP2 EM*TR".w 7n wd f.     t  K.l  % <R Q <$.8tZ|  N3 &t Z |k.^X  n H  ^ 8 . @ "@  <  S.<& t<f&s$<.fw ~ | w h|$. 4Tx "T$x.T <xT % !TxT.B   7 N.h%4T4xf j7`N-J Txf. @@@P@ @em.  7 w~|w .  X @f  X& 5.  m77  j.& ` `  07E.L ` A A ы d.r f  P NB5.   N8 @ H::t i. $0 3 . 7" ) 5 . w2E  .0 w "T$ az B  T.V +f&%0%%"$ d%=0.| T 0 (U  N,F @T 0(F. D e0 0 @;  Ne6D;R. 0, 7z 7 l7h. &e N @ 6e0  wx. , &     ,  &  U.:  @f A N  %  Y.` e ee e ^ C. @(F   ,B &    6Zgd^c,.;d e,s7 &C.5XL)@)5@.)@,0z@(l,}hh.Lh ,2h(4h.L5h43. " CDE0) )5)T.&Jgf& @ $))5),0z(L Ba$@".."q%0L@` @.'@z@ @`^@8@z(Աp hZ.e4  &4$8`^z` "T.& 'P N  '&8 .L < @ 4"(` k"rt tN   `^`