Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/ftdefs.mac
There are 9 other files named ftdefs.mac in the archive. Click here to see a list.
UNIVERSAL FTDEFS FILE-TABLE DEFINIFITIONS FOR CBLIO,SORT,CSORT
;***COPYRIGHT 1975 DIGITAL EQUIPMENT CORP., MARLBORO MASS.***
;RPGII MODIFICATIONS COPYRIGHT 1976, BOB CURRIER
%%FTDF==1 ;EDIT NUMBER
.DIRECTIVE .NOBIN
;FILE TABLE CONSTANTS
I16==16 ;16 HAS POINTER TO FILE-TABLE
F.SIZE==40 ; SIZE OF FILE TABLE
F.WFNM==0 ; 30 CHARACTER PROGRAM NAME - SIXBIT
F.WCVR==5 ; COMPILER'S VERSION NUMBER
F.WBLC==5 ; BUFFER LOCATION IS ASSIGNED - BUFLOC
F.WSDF==5 ; SORT-DESCRIPTION FILE FLAG - SRTFIL
F.WNOD==5 ; NUMBER OF DEVICES ASSIGNED TO FILE
F.WDNM==5 ; ADR OF FIRST DEVICE NAME - SIXBIT
F.WNFL==6 ; NUMBER OF FILE LIMIT CLAUSES
F.WPMT==6 ; FILE POSITION ON MAG-TAPE
F.RNFT==6 ; LINK TO NEXT FILE TABLE
F.WNAB==7 ; NUMBER OF ALTERNATE BUFFERS
F.WMRS==7 ; MAXIMUM RECORD SIZE IN CHARS
F.RRRC==7 ; NUMBER OF RECORDS BETWEEN RERUN DUMPS
F.WFLG==10 ; FLAGS,,ADR OF RECORD AREA
F.RREC==10 ; ADDRESS OF RECORD AREA
F.LNLS==11 ; SIZE OF NON-STANDARD LABEL
F.RFSD==11 ; LINK TO FILE-TABLE THAT SHARES DEVICE
F.WBKF==12 ; THE BLOCKING FACTOR
F.RACK==12 ; ADR OF ACTUAL KEY TABLE
F.WVID==13 ; BYTE POINTER TO VALUE OF ID
F.WVDW==14 ; BYTE POINTER TO VALUE OF DATE WRITTEN
F.LSBA==15 ; LINK TO FILE-TABLE THAT SHARES BUFFER AREA
F.REUP==15 ; ADR OF ERROR USE PROCEDURE
F.LBBR==16 ; BEFORE-BEGINNING-REEL USE PROCEDURE
F.RBBF==16 ; BEFORE-BEGINNING-FILE USE PROCEDURE
F.LABR==17 ; AFTER-BEGINNING-REEL USE PROCEDURE
F.RABF==17 ; AFTER-BEGINNING-FILE USE PROCEDURE
F.LBER==20 ; BEFORE-ENDING-REEL USE PROCEDURE
F.RBEF==20 ; BEFORE-ENDING-FILE USE PROCEDURE
F.LAER==21 ; AFTER-ENDING-REEL USE PROCEDURE
F.RAEF==21 ; AFTER-ENDING-FILE USE PROCEDURE
F.WDNS==22 ; MAG-TAPE DENSITY
F.WDIO==22 ; DEFERRED ISAM OUTPUT FLAG
F.WOUP==22 ; OPEN USE-PROCEDURE WHEN ENTER FAILS
F.RPPN==22 ; ADR OF USER-NUMBER
F.WBSK==23 ; BYTE POINTER TO SYMBOLIC KEY
F.WBRK==24 ; BYTE POINTER TO RECORD KEY
F.WIKD==25 ; ISAM KEY DESCRIPTION WORD
F.WSMU==26 ; 0-8= OWNER ACCESS 9-17= OTHERS ACCESS
; 18-35= RETAINED REC COUNT
F.WPFS==27 ; POINTER TO FILE-STATUS DATA-ITEM
F.WPEN==30 ; POINTER TO ERROR-NUMBER DATA-ITEM
F.WPAC==31 ; POINTER TO ACTION-CODE DATA-ITEM
F.WPID==32 ; POINTER TO VALUE-OF-ID DATA-ITEM
F.WPBN==33 ; POINTER TO BLOCK-NUMBER DATA-ITEM
F.WPRN==34 ; POINTER TO RECORD-NUMBER DATA-ITEM
F.WPFN==35 ; POINTER TO FILE-NAME DATA-ITEM
F.WPFT==36 ; POINTER TO FILE-TABLE ADR DATA-ITEM
F.WLHL==37 ; POINTER TO LOW,,HIGH FILE LIMIT
F%BCVR==POINT 6,F.WCVR(I16),5 ; COMPILER'S VERSION NUMBER
F%BBLC==POINT 1,F.WBLC(I16),6 ; BUFFER LOCATION IS ASSIGNED - BUFLOC
F%BSDF==POINT 1,F.WSDF(I16),7 ; SORT-DESCRIPTION FILE FLAG - SRTFIL
F%BNOD==POINT 6,F.WNOD(I16),17 ; NUMBER OF DEVICES ASSIGNED TO FILE
F%BDNM==POINT 18,F.WDNM(I16),35 ; ADR OF FIRST DEVICE NAME
F%BNFL==POINT 5,F.WNFL(I16),4 ; NUMBER OF FILE LIMIT CLAUSES
F%BPMT==POINT 6,F.WPMT(I16),17 ; FILE POSITION ON MAG-TAPE
F%BNFT==POINT 18,F.RNFT(I16),35 ; LINK TO NEXT FILE-TABLE
F%BNAB==POINT 6,F.WNAB(I16),5 ; NUMBER OF ALTERNATE BUFFERS
F%BMRS==POINT 12,F.WMRS(I16),17 ; MAXIMUM RECORD SIZE IN CHARS
F%BLTP==POINT 2,F.WFLG(I16),3 ; LABEL TYPE
F%BDDM==POINT 3,F.WFLG(I16),9 ; DEVICE DATA MODE
F%BCDM==POINT 3,F.WFLG(I16),14 ; CORE DATA MODE
F%BREC==POINT 18,F.RREC(I16),35 ; ADR OF RECORD AREA
F%BNLS==POINT 18,F.LNLS(I16),17 ; SIZE OF NON-STD-LABEL RECORD
F%BBKF==POINT 12,F.WBKF(I16),17 ; THE BLOCKING FACTOR
F%BPPN==POINT 18,F.RPPN(I16),35 ; ADR OF PPN
F%BPAR==POINT 1,F.WDNS(I16),4 ; MAG-TAPE PARITY
F%BDNS==POINT 3,F.WDNS(I16),2 ; MAG-TAPE DENSITY
F%BDIO==POINT 1,F.WDIO(I16),5 ; DEFERRED ISAM OUTPUT FLAG
F%BOUP==POINT 1,F.WOUP(I16),6 ; OPEN USE-PROCEDURE WHEN ENTER FAILS
F%BPPN==POINT 18,F.RPPN(I16),35 ; ADR OF PPN NUMBER
END