Trailing-Edge
-
PDP-10 Archives
-
BB-H506E-SM
-
cobol/source/ftdefs.mac
There are 9 other files named ftdefs.mac in the archive. Click here to see a list.
; UPD ID= 3575 on 6/9/81 at 7:03 PM by NIXON
UNIVERSAL FTDEFS FILE-TABLE DEFINIFITIONS FOR CBLIO AND SORT
SEARCH COPYRT
SALL
;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1975, 1985
;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.
;****** REVISION HISTORY
; EDIT 545 STORE NO. OF CHARACTERS IN VAR. LEN. RECORD IN FILE TABLE.
;***** V11 *****
; EDIT 427 FIX STAND ALONE CSORT SO FILE TABLE IS SET UP PROPERLY
; EDIT 422 FIX STAND ALONE CSORT SO IT WON' T ALWAYS ASK THE 'IS FILE PRESENT' QUESTION
; GET ASSEMBLY SWITCHES
SEARCH INTERM
%%FTDF==2 ;EDIT NUMBER
IFNDEF ISTKS,<ISTKS==0> ;TYPE # OF IN'S AND OUT'S
I16==16 ;16 HAS POINTER TO FILE-TABLE
;DEVICE TABLE CONSTANTS JUN-78 TABLE IS 40 WORDS LONG
D.CRC==-40 ;RECORD COUNT FOR CHECKPOINT EVERY N RECORDS
D.SRCL==-37 ; SAVED VALUE OF D.RCL AFTER DELETE/RERIT
D.RMSP==-36 ;ADDR OF AN RMS CONTROL BLOCK
;NON-ZERO ONLY IF THIS FILE IS AN OPEN RMS FILE
;THE CONTROL BLOCK ITSELF IS DESCRIBED IN LBLPRM.MAC
D.EXOF==-35 ; REC SEQ OFFSET TO EXTENDED SECTION OF SIXBIT MTA FILE
D.CLRR==-34 ;[545] NO. OF CHARACTERS IN LAST RECORD READ
D.WPR=-33 ; NO. OF WORDS PER RECORD,RANDOM AND ISAM
D.CPR=-33 ; CHARS PER RECORD ,NON-RANDOM/ISAM FILES (INCLUDING OVERHEAD)
D.LBN=-32 ; LAST BLOCK OF SEQIO FILE
D.FCPL=-31 ; FREE CHARS PER LOG-BLOCK
D.TCPL=-30 ; TOTAL CHARS PER LOG-BLOCK
D.WCNV=-27 ; THE WRITE CONVERSION INSTRUCTION
D.RCNV=-26 ; THE READ CONVERSION INSTRUCTION
D.BPW=-25 ;BYTES PER WORD
D.RD=-24 ;RERUN DEVICE NAME IN SIXBIT
D.F1=-23 ;0-17 FLG1
D.IBL=-23 ; [377] 18-35 ISAM SAVE AREA FOR SHARED BUFFER
D.IE=-22 ;# OF INPUTS EXECUTED
D.OE=-21 ;# OF OUTPUTS EXECUTED
D.LRS=-20 ;18-35 LABEL RECORD SIZE
D.BL=-20 ;0-17 BUFFER LOCATION
D.RFLG=-17 ; 18-35 FLAGS, SASCII=1
D.HF=-17 ;BIT-17 HUF FLAG
D.LF=-17 ;BIT-16 LOCK FLAG
D.CN=-17 ;12-15 IO CHANNEL NUMBER
D.RN=-17 ;0-11 MAGTAPE REEL NUMBER
D.CBN=-16 ;CURRENT PHYSCIAL BLOCK NUMBER
D.BPL=-15 ;# OF BUFFERS PER LOGICAL BLOCK
D.BCL=-14 ;# OF BUFFERS TO FILL CURRENT LOGICAL BLOCK
D.RCL=-13 ;# OF RECORDS TO FILL CURRENT LOGICAL BLOCK
D.ICD=-12 ;IOWD FOR CURRENT DEVICE
D.OBH=-11 ;OUTPUT BUFFER HEADER
D.OBB=-10 ;OUTPUT BUFFER BYTE POINTER
D.OBC=-7 ;OUTPUT BUFFER BYTE COUNT
D.IBH=-6 ;INPUT BUFFER HEADER
D.IBB=-5 ;INPUT BUFFER BYTE POINTER
D.IBC=-4 ;INPUT BUFFER BYTE COUNT
D.RRD=-3 ;# OF RECORDS TO A RERUN DUMP
D.RP=-2 ;# OF RECORDS PROCESSED
D.DC=-1 ;DEVICE CHARACTERISTICS
D.OPT=-1 ;-1 IF A "NOT-PRESENT" OPTIONAL ISAM FILE
DB.HF==1B17 ;HUF (HEAD UNDER FILE) FLAG
F%BLF==POINT 1,D.LF(I16),16 ;LOCK FLAG
F%BHF==POINT 1,D.HF(I16),17 ;HUF FLAG
F%BCN==POINT 4,D.CN(I16),15 ;CHANNEL NUMBER
F%BIBS==POINT 6,D.IBB(I16),11 ;INPUT BUFFER BYTE SIZE
F%BOBS==POINT 6,D.OBB(I16),11 ;OUTPUT BUFFER BYTE SIZE
F%BRN==POINT 12,D.RN(I16),11 ;MTA REEL NUMBER
F%BRPT==POINT 1,D.RFLG(I16),31 ;A TERMINATE HAS BEEN DONE FOR THIS REPORT FILE
;FILE TABLE CONSTANTS
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.WDRM==5 ; DEFAULT RECORDING MODE (I.E. NOT SET BY USER)
F.WNOD==5 ; NUMBER OF DEVICES ASSIGNED TO FILE
F.WDNM==5 ; ADR OF FIRST DEVICE NAME - SIXBIT
F.WNFL==6 ; [68] NUMBER OF FILE LIMIT CLAUSES
F.WFAM==6 ; [74] FILE ACCESS MODE
F.WLAB==6 ; SYSTEM LABEL FORMAT (B9-B11)
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
;[68] COBOL-68 ITEMS
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
;[74] COBOL-74 ITEMS
F.LCP==16 ;LINAGE-COUNTER POINTER
F.LPP==17 ;LINES PER PAGE (LHS)
F.WFA==17 ;WITH FOOTING AT (RHS)
F.LAT==20 ;LINES AT TOP (LHS)
F.LAB==20 ;LINES AT BOTTOM (RHS)
F.LCI==21 ;LINAGE COUNTER INITAILIZATION (RHS)
F.DEB==21 ;DEBUGGING USE PROCEDURE (LHS)
F.AKS==20 ; ***TEMP*** APPROX. KEY SIZE FOR START VERB
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.RMS==22 ; RMS FLAG
F.WBM==22 ; BYTE MODE
F.CKP==22 ; CHECKPOINT FLAG
F.CRC==22 ; CHECKPOINT RECORD COUNT
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%BDRM==POINT 1,F.WDRM(I16),8 ; DEFAULT RECORDING MODE
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 ; [68] NUMBER OF FILE LIMIT CLAUSES
F%BFAM==POINT 2,F.WFAM(I16),4 ; [74] FILE ACCESS MODE
F%BLBT==POINT 3,F.WLAB(I16),11 ; SYSTEM LABEL TYPE
F%BLBU==POINT 1,F.WLAB(I16),5 ; "U" FORMAT SYSTEM LABEL FLAG
F%BLBS==POINT 1,F.WLAB(I16),6 ; "S" FORMAT SYSTEM LABEL FLAG
F%BLBD==POINT 1,F.WLAB(I16),7 ; "D" FORMAT SYSTEM LABEL FLAG
F%BLBF==POINT 1,F.WLAB(I16),8 ; "F" FORMAT SYSTEM LABEL FLAG
F%BFMT==POINT 4,F.WLAB(I16),8 ; TO GET ALL 4 LABEL FORMAT BITS
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 2,F.WFLG(I16),15 ; 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%BDNS==POINT 3,F.WDNS(I16),2 ; MAG-TAPE DENSITY
F%BPAR==POINT 1,F.WDNS(I16),4 ; MAG-TAPE PARITY
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%BRMS==POINT 1,F.RMS(I16),7 ; RMS FLAG
F%BBM==POINT 1,F.WBM(I16),8 ; BYTE MODE FLAG
F%BCKP==POINT 1,F.CKP(I16),9 ; CHECKPOINT FLAG
F%BCRC==POINT 8,F.CRC(I16),17 ; CHECKPOINT RECORD COUNT
;FLAGS IN LEFT SIDE OF "F.WFLG(I16)" BEFORE RESET
BR%VLE==1B0 ;VARIABLE LENGTH EBCDIC RECORDS
BR%NSL==1B2 ;NON STANDARD LABELS
BR%STL==1B3 ;STANDARD LABELS
BR%IO==1B6 ;FILE IS AN INPUT/OUTPUT FILE
;BIT 7-9 ;0 = SIXBIT DEVICE DATA MODE
;1 = BINARY
;2 = ASCII
;3 = EBCDIC
;4 = ASCII-8
;5-7 NOT USED
BR%RER==1B10 ;RERUN DUMP AT END-OF-REEL
BR%RRC==1B11 ;RERUN DUMP VIA RECORD-COUNT
BR%OPF==1B13 ;OPTIONAL FILE
;BIT 14-15 ;0 = SIXBIT CORE DATA MODE
;1 = BINARY
;2 = ASCII
;3 = EBCDIC
;BIT 16-17 ;0 = SEQUENTIAL FILE
;1 = RANDOM FILE
;2 = INDEXED-SEQ FILE
;3 = NOT USED
;[427] POINTERS TO THINGS AFTER RESET.
F%ADDM==POINT 4,F.WFLG(I16),3 ;[427] DEVICE DATA MODE
;[427] ASCII 10
;[427] SIXBIT 04
;[427] EBCDIC 02
;[427] BINARY 01
F%ACDM==POINT 3,F.WFLG(I16),14 ;[427] CORE DATA MODE.
;[427] ASCII 4
;[427] SIXBIT 2
;[427] EBCDIC 1
;RANDOM ACCESS CONSTANTS
R.IOWD==0 ; IOWRD FOR RANDOM/IO FILES
R.TERM==1 ; IOWRD TERMINATOR
R.BPNR==2 ; BYTE POINTER TO NEXT RECORD IN BUFFER
R.BPLR==3 ; LAST RECORD
R.BPFR==4 ; FIRST RECORD
R.DATA==6 ; BUFFER HAS ACTIVE DATA TO BE WRITTEN OUT
R.WRIT==7 ; LAST IO OPERATION FOR THIS FILE WAS A WRITE
R.FLMT==10 ;[68] AOBJ POINTER TO FILE LIMITS
R.STRT==10 ;[74] LAST IO OPERATION FOR THIS FILE WAS A START
R.DLRW==11 ; [74] WORD TO SAVE CURRENT DSK BLK NUM WHILE A DELETE/RERIT
; IS BEING DONE, SO THAT THE "CURRENT" POSITION CAN BE RESTORED
; THE FOLLOWING DEFINES THE TABLE OFFSETS FOR FIELDS WITHIN
; THE ISAM FILE STATISTICS BLOCK AND THE DATA AREA USED BY
; LIBOL FOR CURRENT FILE STATIS
ADR==0
DEFINE TABADR(N,L) <
N==ADR
ADR==ADR+L
>
TABADR STAHDR,1 ;SIZE OF STATISTICS BLOCK IN SIXBIT BYTES
TABADR DDEVNM,1 ;DATA FILE'S DEVICE NAME
TABADR DFILNM,1 ;DATA FILE'S FILE NAME
TABADR DEXT,1 ;DATA FILE'S EXTENSION
TABADR DCDATE,1 ;DATA FILE'S CREATION DATE
TABADR DADATE,1 ;DATA FILE'S ACCESS DATE
TABADR MXLVL,1 ;NUMBER OF LEVELS IN INDEX FILE
TABADR DBF,1 ;DATA FILE BLOCKING FACTOR
TABADR DMTREC,1 ;NUMBER OF EMPTY RECORDS PER DATA BLOCK
TABADR EPIB,^D20 ;TWO WORDS PER INDEX LEVEL
;FIRST WORD: NUMBER OF ENTRIES PER INDEX BLOCK
;SECOND WORD: NUMBER OF EMPTY ENTRIES
TABADR DMXBLK,1 ;TOTAL BLOCKS IN DATA FILE
TABADR DMTBLK,1 ;EMPTY BLOCKS IN DATA FILE
TABADR IMXSCT,1 ;TOTAL SECTORS IN INDEX FILE
TABADR IMTSCT,1 ;EMPTY SECTORS IN INDEX FILE
TABADR FMTSCT,1 ;FIRST EMPTY SECTOR IN INDEX FILE
TABADR DMXREC,1 ;MAXIMUM DATA RECORD SIZE IN WORDS
TABADR DBPRK,1 ;BYTE POINTER TO RECORD KEY RELATIVE TO DATA RECORD
TABADR RWRSTA,1 ;NUMBER OF READ, WRITE, REWRITE STATEMENTS SINCE INITIALIZATION
TABADR IOUUOS,1 ;NUMBER OF IN'S AND OUT'S SINCE INITIALIZATION
TABADR SBLOC,1 ;RELATIVE ADR OF FIRST SAT BLOCK
TABADR SBTOT,1 ;TOTAL SAT BLOCKS
TABADR ISPB,1 ;INDEX FILE, SECTORS PER LOGICAL BLOCK
TABADR FILSIZ,1 ;MAXIMUM POSSIBLE NUMBER OF DATA BLOCKS IN FILE
TABADR KEYTYP,0 ;KEY-TYPE IN LEFT HALF
TABADR KEYDES,1 ;DESCRIPTION OF RECORD KEY
TABADR IESIZ,1 ;INDEX ENTRY SIZE IN WORDS
TABADR TOPIBN,1 ;TOP INDEX BLOCK NUMBER
TABADR %DAT,1 ;% OF DATA FILE EMPTY
TABADR %IDX,1 ;% OF INDEX FILE EMPTY
TABADR RECBYT,1 ;SIZE OF LARGEST DATA BLOCK IN BYTES
TABADR MAXSAT,1 ;MAX # OF RECORDS FILE CAN BECOME
TABADR ISAVER,1 ;"ISAM" VERSION NUMBER
TABADR PAGBUF,1 ;I/O SW.. 0 = SECTOR MULTIPLES, NONZERO = PAGES
STABL==ADR ;EQUALS SIZE OF STATISTICS BLOCK
TABADR IOWRD,14+1 ;TABLE OF DUMP MODE IOWD'S FOR EACH INDEX LEVEL
;0 DATA BLOCK
;1-12 INDEX BLOCKS
;13 SAT BLOCK
;14 STATISTICS BLOCK
TABADR OMXLVL,1 ;ORIGINAL MAX NUMBER OF LEVELS IN INDEX FILE
TABADR OKEYDS,1 ;[515] KEY DESCRIPTOR AT RESET TIME
TABADR ORCBYT,1 ;[515] RECORD SIZE AT RESET TIME
TABADR OEPIB,1 ;[515] ENTRIES PER INDEX BLOCK AT RESET TIME
TABADR CORE0,1 ;LAST,,FIRST - CORE AREA CLEARED AT CLOSE
TABADR ICHAN,1 ;CHANNEL NUMBER FOR INDEX DEVICE
TABADR USOBJ,14+1 ;USETI/O OBJECT: DATA, 10 INDEX, SAT & STA
TABADR CNTRY,14+1 ;CURRENT INDEX ENTRY
TABADR NNTRY,14+1 ;FLAG, CNTRY POINTS TO NEXT ENTRY NOT CURRENT
TABADR LIVE,1 ;(-1) IF DATA NOT YET OUTPUT
TABADR BRISK,1 ;IF -1 OUTPUT ONLY WHEN INPUT IS EMINENT
TABADR CLVL,1 ;CURRENT LEVEL
IFN ANS74,<
TABADR RWDLKY,1 ; NNTRY,,ADDR OF CNTRY KEY COPYS FOR RWT/DEL
TABADR RCARSZ,1 ; RECORD AREA SIZE IN WORDS
TABADR RWDLRT,1 ; NNTRY,,ADDR OF RWDLKY DURING RETAIN
TABADR SVNXRT,1 ; SAVES D.RFLG DURING RETAIN, WHEN NONE ZERO FLAGS THAT
; RWDLKY POINTS TO RETAINS DEL/REWRT KEY SAVE AREA,
; THAT RWDLKY MUST BE RESTORED AT THE END OF RETAIN
>
TABADR IAKBP,1 ;INDEX ADJUSTED SYMBOLIC KEY BYTE-POINTER
TABADR IAKBP1,1 ;POINTER TO SECOND KEY WORD
TABADR DAKBP,1 ;DATA ADJUSTED SYMBOLIC KEY BP
TABADR DAKBP1,1 ;POINTER TO THE SECOND KEY WORD
TABADR SINC,1 ;BINARY SEARCH INCREMENT
TABADR IBLEN,1 ;INDEX BLOCK LENGTH NOT COUNTING HEADERS
TABADR IKWCNT,1 ;INDEX, NUMBER OF WORDS IN THE KEY
TABADR DKWCNT,1 ;DATA, NUMBER OF WORDS IN KEY
TABADR FWMASK,1 ;MASK FOR FIRST WORD OF DATA KEY
TABADR LWMASK,1 ;MASK FOR LAST WORD OF DATA KEY
TABADR ICMP,1 ;HOLDS ADR OF THE INDEX COMPARE ROUTINE
TABADR DCMP,1 ;HOLDS ADR OF DATA COMPARE OR CONVERT ROUTINE
TABADR DCMP1,1 ;HOLDS ADR OF DATA COMPARE ROUTINE IF KEY IS NUMERIC DISPLAY
TABADR GDX.I,1 ; ADR OF CONVERT ROUTINE -- SK VS INDEX-ENTRY
TABADR GDX.D,1 ; ADR OF CONVERT ROUTINE -- SK VS DATA FILE KEY
TABADR GDPSK,1 ;PARAMETER FOR SYM-KEY CONVERSION
TABADR GDPRK,1 ;PARAMETER FOR REC-KEY CONVERSION
TABADR GDPRK1,1 ;
TABADR GETSET,1 ;DISPATCH LOC: ADJKEY OR GD67 OR FPORFP
TABADR RECBP,1 ;RECORD AREA BYTE-POINTER
TABADR RSBP,1 ;BYTE POINTER TO RECORD SIZE IN BUFFER
TABADR RSBP1,1 ;ANOTHER BP TO RECORD SIZE
TABADR LRW,1 ;FIRST FREE RECORD WORD, USED BY SETLRW
IFN ISTKS,<
TABADR INSSS0,1 ;EXP (LVL)INSSSS
TABADR OUTSS0,1 ;EXP (LVL)OUTSSS
TABADR INSSSS,16 ;NUMBER OF INS/LEVEL
TABADR OUTSSS,16 ;NUMBER OF OUTS/LEVEL
>
TABADR IOWRD0,1 ;POINTS TO CURRENT IOWRD
TABADR USOBJ0,1 ;POINTS TO CURRENT USOBJ
TABADR CNTRY0,1 ;POINTS TO CURRENT CNTRY
TABADR NNTRY0,1 ;FLAG, CNTRY POINTS TO NEXT ENTRY
TABADR BPSB,1 ;NUMBER OF BITS PER SAT BLOCK
ITABL==ADR-STABL ;INDEX TABLE LEN
TABADR BA,0 ;START OF BUFFER AREA
ISCLR1==IOWRD ;[432] [377] START OF ISAM SHARED BUFFER AREA TO SAVE
ISCLR2==ICHAN-1 ; [377] END OF ISAM SHARED BUFFER TO SAVE
ISMCLR==ISCLR2-ISCLR1 ; [377] DIFFERENCE OR SIZE OF AREA LESS 1 TO SAVE
END