         DEF      COMBAT
COMBAT   EQU      %
         DEF      NOPGFC,AIF,AIFJE,AIFNC,AOFL,AOF,AOFNB,AOFP
         DEF      GOF,GIFNC,MBSGFC,PRIOGFC,KDELGFC,KDISPGFC
         DEF      JESTAT,JEDEL,SWITGFC,SNDGFC,BCSTGFC
         DEF      DUP,LORR,HUP,OCMGFC,RCVRGFC,RCVRGFC1
         DEF      KCOMGFC,S:SIBTU,KFRMGFC
         DEF      SGCHD,SGCBUF,SGCBUFSZ
         DEF      GI:FRE,GI:SDA,GI:ASPN,GI:RES,GIH:TIM
         DEF      GIB:UN,GIB:PRT,GIB:RID,GIB:XLN,GIB:SLN
         DEF      KFCGFC,SWTINIT,SWTUC,SWTEND
         DEF      GIB:PRI
*
*
*                                   GHOST FUNCTION CODES FOR:
NOPGFC   EQU      0
AIF      EQU      1
AIFJE    EQU      2
AIFNC    EQU      3
AOFL     EQU      4
AOF      EQU      5
AOFNB    EQU      6
AOFP     EQU      7
GOF      EQU      8
GIFNC    EQU      9
MBSGFC   EQU      10
PRIOGFC  EQU      11
KDELGFC  EQU      12
KFRMGFC  EQU      13
KDISPGFC EQU      14
JESTAT   EQU      15
JEDEL    EQU      16
SWITGFC  EQU      17
KCOMGFC  EQU      18
SNDGFC   EQU      19
BCSTGFC  EQU      20
DUP      EQU      21
LORR     EQU      22
HUP      EQU      23
OCMGFC   EQU      24
RCVRGFC  EQU      25
RCVRGFC1 EQU      26
KFCGFC   EQU      27
*
*
S:SIBTU  DATA     9                 FOR OCP
*                                   :
*
SWTINIT  DATA     0
SWTUC    DATA     0
SWTEND   DATA     0
*                                   THE GETI TABLES - TRANSFER OF INPUT FILES
*                                   FROM RBBAT TO THE COOP
GI:FRE   EQU      %                 FREE ENTRY CHAIN
         DATA     X'00010203'       :
GI:SDA   EQU      %-1               STARTING DISC ADDRESS
         DATA     0,0,0             :
GI:RES   EQU      %-4
         DO       3
         DATA     0,0,0,0
         FIN
GI:ASPN  EQU      %-3
         DO       3
         DATA     0,0,0
         FIN
GIH:TIM  EQU      %                 TIME:
         DATA     0,0               :
GIB:PRT  EQU      %                 PARTITION NUMBER
         DATA     0                 :
GIB:RID  EQU      %                 RBID
         DATA     0                 :
GIB:UN   EQU      %                 USER NUMBER
         DATA     0                 :
GIB:SLN  EQU      %                 SHARED SN HEAD IN LSERIAL
         DATA     0                 :
GIB:XLN  EQU      %                 EXCLUSIVE SN HEAD IN LSERIAL
         DATA     0                 :
GIB:PRI  EQU      %                 PRIORITY
         DATA     0                 :
*                                   :
*                                   GHOST COMMUNICATION BUFFERS
#SGCBF   EQU      15                # OF SGC BUFFERS
SGCSZ    EQU      4                 WORDS PER BUFFER
*
*                                   :
SGCHD    EQU      %                 SGCHD IS A WORD OF :
SGCBUF   EQU      %                 :
         DATA     X'01000000'       GEN,8,8,8,8  HEAD OF FREE,TAIL OF USE,0,HEAD
K        SET      SGCSZ+1
         DO       #SGCBF-1          BUFFERS ARE SGCSZ WORDS EACH LINKED
         GEN,8,24 K,0               THROUGH THE FIRST BYTE WITH THE
         DO1      SGCSZ-1           DISPLACEMENT OF THE NEXT BUFFER
         DATA     0                 FROM SGCBUF
K        SET      K+SGCSZ
         FIN
         DO1      SGCSZ
         DATA     0
SGCBUFSZ EQU      %-SGCBUF
         END

