&DL      PROC  &P,0,&RBPA=10,&STAT=10,&CCB=6,&FCB=6,&FSCT=6             00000000
XBFILE   NAME  X    . BSET/BJET FILE GENERATION FOR RBP                 00000100
BFILE    NAME  0    . CCA NAME ENTRY FOR USER CALL                      00000200
BFILES   NAME  1    . ALTERNATE CALL LINE FOR USER                      00000300
TN#BSEH  NAME  2    . INTERNAL CALL - CCA MACRO(BSET HEADER)            00000400
TN#BSE   NAME  3    . INTERNAL CALL - TERM MACRO(BSET ENTRY)            00000500
.* .                                                                    00000600
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000700
.* .                                                                  * 00000800
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000900
.* .                                                                  * 00001000
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00001100
.* .                                                                  * 00001200
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001300
         GBL   &TS#TRMS,&CRJE,&ST,&TN#CNME,&TN#TTND,&TS#LINS            00001400
         GBL   &O$NCE                                                   00001500
         LCL   &NUM,&SIZE,&THRES,&HDR,&CONT                             00001600
         DO    &CRJE=0                                                  00001700
         PNOTE 'P','BFILE MACRO REQUIRED ONLY FOR RBP CCA'              00001800
         GOTO  .EXIT                                                    00001900
         ENDO                                                           00002000
TC#R&TN#CNME CSECT                                                      00002100
         DO    &P(0)=2                  . INTERNAL CALL FROM CCA PROC   00002200
         EJECT                                                          00002300
*                                                                       00002400
*        BSET HEADER TABLE                                              00002500
*                                                                       00002600
         PRINT OFF                                                      00002700
         RB#DSECT                                                       00002800
         SUPEQU                                                         00002900
         SPLEQU                                                         00003000
         VTOC FCB=YES                                                   00003100
         PRINT ON                                                       00003200
TC#RBSEH DC    A(0)                     . ADDRESS OF LAST TABLE ENTRY   00003300
         DC    X'00'                   . NUMBER OF TABLE ENTRIES        00003400
         DC    XL1'20'             . RBP INIT                           00003500
         DC    XL2'00'             . UNUSED
         DC    A(0)                    . ADDRESS ICAM PREAMBLE          00003600
         DC    A(0)                    . ADDRESS SYSTEM READER PUB      00003700
         DC    A(0)                    . ADDRESS READER CCB             00003800
         DC    A(0)                    . ADDRESS READER DATA BUFFER     00003900
&TS#TRMS SET   0                                                        00004000
         GOTO  .CTR                                                     00004100
         ENDO                                                           00004200
         DO    &P(0)=3                  . INTERNAL CALL FROM TERM MACRO 00004300
         EJECT                                                          00004400
*                                                                       00004500
*         BATCH STATION ENTRY TABLE                                     00004600
*                                                                       00004700
.CTR     LABEL                                                          00004800
BSET&TS#TRMS EQU *                                                      00004900
         ORG   TC#RBSEH                                                 00005000
         DC    A(BSET&TS#TRMS)         . LAST BSET ADDRESS              00005100
         DC    AL1(&TS#TRMS+1)         . NUMBER ENTRIES                 00005200
         ORG   BSET&TS#TRMS                                             00005300
         DC    CL6'OS3CTR'         . ACTIVE USERID                      00005400
         DC    AL2(&TS#LINS)     . LINE NUMBER                          00005500
         DC    CL8'STAND1  '       . LAST SPECIAL FORMS PRINTED         00005600
         DC    XL8'00'                 . LAST SPECIAL CARDS PUNCHED     00005700
         DC    CL4'&DL'                . WORK STATION ID                00005800
         DC    F'0'                    . ADDRESS OF COMMAND CCB         00005900
         DC    F'0'                    . ADDRESS OF DATA CCB            00006000
         DC    F'0'                . ADDRESS OF PRINT CCB               00006100
         DC    F'0'                . ADDRESS OF PUNCH CCB               00006200
         DC    F'0'                    . MESSAGE LIST START             00006300
         DC    F'0'                    . MESSAGE LIST STOP              00006400
         DO    &TS#TRMS=0                                               00006500
         DC    F'0'                    . CENTRAL CONSOLE BSET           00006600
         GOTO  .NCTR                                                    00006700
         ENDO                                                           00006800
         DC    A(&DL)            . ADDRESS OF TCT                       00007000
.NCTR    LABEL                                                          00007100
         DC    X'00'                   . SPOOLIN FILE MODE              00007200
         DC    AL1((&TS#TRMS=0)*(EBSPROC++EBSCONN++EBSATCH))            00007300
         DC    AL1((&TS#TRMS>0)*SREMOTE) . SPOOLIN FLAGS                00007400
         DC    AL1((&TS#TRMS=0)*SMODE72) . WORK STATION OPERATING MODE  00007500
         DC    F'0'                . JOB OUTPUT QUEUE HEAD              00007600
         DC    F'0'                . JOB OUTPUT QUEUE TAIL              00007700
         GOTO  .EXIT                                                    00007800
         ENDO                                                           00007900
         DO    '&O$NCE'=''                                              00008000
&O$NCE   SET   0                                                        00008100
         ENDO                                                           00008200
         DO    &O$NCE=0                                                 00008300
&O$NCE   SET   1                                                        00008400
&THRES   SET   0                                                        00008401
.* .                                                                    00008500
.* .     GENERATE ARP & REG SAVE POOL                                   00008600
.* .                                                                    00008700
&NUM     SET   10*&TS#TRMS                                              00008800
         DO    &RBPA>&NUM                                               00008900
&NUM     SET   &RBPA                                                    00009000
         ENDO                                                           00009100
RJARP   EQU    TR#BLNTH                                                 00009200
&SIZE    SET   'RJARP//4'
&HDR     SET   'TR#BARPL'                                               00009400
&CONT    SET   72                  . REG SAVE AREA SIZE                 00009500
TC#RBPA  BUFFER                         &NUM,&SIZE,&THRES,&HDR,&CONT    00009600
.* .                                                                    00009700
.* .     GENERATE STATUS MESSAGE BUFFER POOL                            00009800
.* .                                                                    00009900
&NUM     SET   10*&TS#TRMS                                              00010000
         DO    &STAT>&NUM                                               00010100
&NUM     SET   &STAT                                                    00010200
         ENDO                                                           00010300
&SIZE    SET   18                  . STATUS MESSAGE SIZE                00010400
&HDR     SET   8                   . MSG PREFIX SIZE                    00010600
&CONT    SET   64                  . TEXT SIZE OF STATUS MESSAGE        00010700
TC#RBPS  BUFFER                         &NUM,&SIZE,&THRES,&HDR,&CONT    00010800
.* .                                                                    00010900
.* .     GENERATE CCB POOL                                              00011000
.* .                                                                    00011100
&NUM     SET   2*&TS#TRMS+4                                             00011200
         DO    &CCB>&NUM                                                00011300
&NUM     SET   &CCB                                                     00011400
         ENDO                                                           00011500
&SIZE    SET   11                  . CCB/BCW SIZE                       00011600
&HDR     SET   28                  . CCB SIZE                           00011800
&CONT    SET   16                  . BCW SIZE                           00011900
TC#RCCB  BUFFER &NUM,&SIZE,&THRES,&HDR,&CONT                            00012000
.* .                                                                    00012100
.* .     GENERATE FCB POOL                                              00012200
.* .                                                                    00012300
&NUM     SET   2*&TS#TRMS+4                                             00012400
         DO    &FCB>&NUM                                                00012500
&NUM     SET   &FCB                                                     00012600
         ENDO                                                           00012700
&SIZE    SET   256//4                                                   00012800
&HDR     SET   256                                                      00013000
&CONT    SET   0                                                        00013100
TC#RFCB  BUFFER &NUM,&SIZE,&THRES,&HDR,&CONT                            00013200
.* .                                                                    00013300
.* .     GENERATE FSCT POOL                                             00013400
.* .                                                                    00013500
&NUM     SET   2*&TS#TRMS+4                                             00013600
         DO    &FSCT>&NUM                                               00013700
&NUM     SET   &FSCT                                                    00013800
         ENDO                                                           00013900
RFSCT    EQU   FS$LNGTH                 . SIZE IN BYTES OF FSCT         00014000
&SIZE    SET   'RFSCT//4'               . SIZE IN WORDS OF FSCT
&HDR     SET   'FS$LNGTH'                                               00014200
&CONT    SET   0                                                        00014300
TC#RFSCT BUFFER &NUM,&SIZE,&THRES,&HDR,&CONT                            00014400
         ENDO                                                           00014500
.EXIT    LABEL                                                          00014600
&SYSECT  CSECT . RESTART CSECT                                          00014700
         END                                                            00014800
