.TITLE BUFFERS .PSECT BUFFER,D,RW,GBL .IF NDF,RSX INBUF:: .WORD 0 ; ALLOW SPACE FOR INPUT BUFFER 256. WORDS .=.+510. .BYTE 200,0 OUTBUF::.WORD 0 ; DITTO FOR OUTPUT BUFFER .=.+512. SUPBUF::.WORD 0 ; DITTO FOR SUPER INDEX BUFFER .=.+512. FLOBUF::.WORD 0 ; CALLING REF BUFFER .=.+512. .IFF ; 12 LUN'S AVAILABLE ; LUN USE ; 1 MAIN SOURCE INPUT ; 2 1'ST INCLUDE LEVEL SOURCE INPUT ; 3 2'ND INCLUDE LEVEL SOURCE INPUT ; 4 3'RD INCLUDE LEVEL SOURCE INPUT ; 5 4'TH INCLUDE LEVEL SOURCE INPUT ; 6 5'TH INCLUDE LEVEL SOURCE INPUT ; 7 6'TH INCLUDE LEVEL SOURCE INPUT ; 8 COMMAND INPUT FROM TERMINAL ; 9 INDEX OUTPUT TO TERMINAL ; 10 SUPER INDEX SCRATCH BUFFER FILE ; 11 LIST OUTPUT FILE ; 12 CALL REFERENCE SCRATCH BUFFER FILE .MCALL FSRSZ$,FDBDF$,FDAT$A,FDRC$A,FDOP$A,GCMLB$,NMBLK$ FSRSZ$ 12.,<<2*80.>+<10.*512.>> ;BUFFER SPACE AREA TTLIN=82. ; DEFINE TERMINALS .MACRO TTY LABL,LUN,BUFF LABL:: FDBDF$ FDAT$A R.VAR,FD.CR FDRC$A ,BUFF,TTLIN FDOP$A LUN,DESBLK,DEFNAM BUFF:: .BLKB TTLIN .ENDM DESBLK: .WORD 3,TIDESC,0,0,0,0,0,0 TIDESC: .ASCII /TI: / DEFNAM: NMBLK$ IDX,CMD TTY TTIBLK,8.,TTIBUF TTY TTOBLK,9.,TTOBUF ; DEFINE INPUT FILES .MACRO INS LUN IN'LUN'FIL:: FDBDF$ FDAT$A 2 FDOP$A LUN,,INNAM .ENDM INNAM: NMBLK$ INDEX,FTN,,SY,0 INS 1 ;MAIN INPUT FILE INS 2 ;INCLUDE NESTED INPUT FILES INS 3 INS 4 INS 5 INS 6 INS 7 IBUFF:: .BLKB 134. ; TABLE OF INPUT FILES FOR INDEXING INFIL::.WORD IN1FIL,IN2FIL,IN3FIL,IN4FIL,IN5FIL,IN6FIL,IN7FIL ; DEFINE OUTPUT FILE LSTNAM: NMBLK$ INDEX,IDX,,SY,0 LSTFIL::FDBDF$ FDAT$A R.VAR,FD.CR FDRC$A ,LBUFF,132. FDOP$A 11.,,LSTNAM LBUFF:: .BLKB 134. ; DEFINE SUPER INDEX SCRATCH FILE SUPFIL::FDBDF$ FDAT$A R.FIX,,8. FDRC$A ,SRE,8. FDOP$A 10.,,SDNAM,FA.TMP!FO.WRT SRE: .BLKB 8. SDNAM: NMBLK$ SUPER,TMP,,SY,0 ; CALL RECFERENCE FILE FLOFIL::FDBDF$ FDAT$A R.FIX,,8. FDRC$A ,SRC,8. FDOP$A 12.,,CANAM,FA.TMP!FO.WRT SRC: .BLKB 8. CANAM: NMBLK$ FLOW,TMP,,SY,0 ; HELP FILE HLPFIL::FDBDF$ FDAT$A 2 FDOP$A 1,HLPDSC,,FO.RD HLPDSC: .WORD 4,HDEV,6,HUIC,9.,HNAM HDEV: .ASCII /LB0:/ HUIC: .ASCII /[1,54]/ HNAM: .ASCII /INDEX.HLP/ .EVEN .ENDC .END