ASMB,R,L,C
      HED BRTBL 91704-16106 REV B * (C) HEWLETT-PACKARD CO. 1976
      NAM BRTBL,7 91704-16106 REV B 760519
      SPC 1 
******************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
******************************************************************
      SPC 2 
**********************************************************************
* 
*     DS1 MODIFIED, RTE-B STANDARD BRANCH TABLE 
* 
**********************************************************************
* 
*BRTBL              BRANCH TABLE FOR DS1
* 
*SOURCE PART #      91704-18106 
* 
*REL PART #         91704-16106 
* 
*WRITTEN BY:        LARRY POMATTO 
* 
*DATE WRITTEN:      11-14-74
* 
*MODIFIED BY:       JEAN-PIERRE BAUDOUIN
* 
*DATE MODIFIED:     MAY 1976
* 
* 
* 
*     FOR EACH ENTRY IN THE BRANCH TABLE THERE IS A ONE TO ONE
*     CORRESPONDANCE TO ENTRIES IN THE MNEMONIC TABLE. THUS 
*     ANY ADDITIONS/DELETIONS TO THIS TABLE MUST REFLECT A
*     CORRESPONDING ADDITION/DELETION TO THE MNEMONIC TABLE.
* 
* 
**********************************************************************
* 
* 
      ENT XNFO             START OF PARAM TYPE TABLE
      ENT SBTBL            START OF BRANCH TABLE
      ENT STDCL            END OF SUBROUTINE CALL 
      ENT .RUNA 
      ENT FCNEX 
      ENT LSBTB            END OF FUNCTION TABLE
      ENT DEVEX            START OF DEVICE EXECUTION TABLE
* 
*******DEFINE EXTERNAL SUBROUTINE ENTRY POINTS HERE*******
* 
      EXT TIME,SSETP,SSTRT,DSABL,ENABL,TRNON
      EXT RGAIN,SGAIN,NORM,PACER,AIRDV,AISQV
      EXT ISETC 
      EXT CAPOS,CCLOS,CCONT,CCRET,CLOCF,CNAME,COPEN 
      EXT CPOSN,CPURG,CREAD,CWIND,CWRIT,ASGN,UASGN
      EXT CMESG,CAXTM,CEXTM,CSCHD,CTIM
      EXT POPEN,PREAD,PWRIT,PCONT 
      EXT GET,ACEPT,REJCT 
      EXT CHAIN,FINIS 
      EXT EINP,ELIST,ETTYS,EREED
      EXT RDNBR,ETRAP 
      EXT %CRET,%CLOS,%PURG,%ON,%RNAM,%TLOP,%DLST,LENBL 
      EXT $DEL,$RUN,$SAVE,$MERG,$LOAD,$LST,$TIM 
      EXT $REW,$SKPF,$WEOF
      EXT ETAB,SIN,COS,TAN,ATAN,ALOG,EXP,ABS,SQRT,EINT,ERND 
      EXT ESGN
      EXT ESWR,IERR,STATS 
      EXT PHOT1,%PLOS 
* 
      SUP 
* 
      SKP 
* 
**********************************************************************
* 
* 
*     THE FOLLOWING TABLE CONSISTS OF ONE WORD ENTRIES
*     DEFINING THE PARAMETER TYPE (REAL OR INTEGER) FOR 
*     EACH SUBROUTINE ENTRY IN THE SBTBL TABLE. ORDER 
*     OF ENTRIES MUST BE IN PRECISE CORRESPONDANCE TO 
*     THOSE OF THE SBTBL TABLE. IF NO CALL PARAMETERS EXIT AS 
*     INTEGERS,THEN DUMMY ENTRY POINTS, "FRTFX" & "FRTF2" MAY BE
*     SUPLIED HERE TO PREVENT LOADRING OF THE FIXED POINT 
*     INTERFACE ROUTINE. FORMAT IS AS FOLLOWS:
* 
*          OCT I R77 665 544 332 211
* 
*     WHRE: "11" REFERS TO THE FIRST PARAMETER, "22" TO THE 
*     SECOND, ETC. IF LEFT BIT IS SET, PARAMETER WILL BE
*     CONVERTED TO INTEGER BEFORE SUBROUTINE ENTRY. IF RIGHT
*     BIT IS SET, PARAMETER IS TO BE CONVERTED TO FLOATING
*     POINT AT SUBROTUINE EXIT. IF RIGHT BIT IS SET, LEFT BIT 
*     MUST ALSO BE SET. 
* 
*     "I" IF SET, DENOTES AN INTEGER VALUED FORTRAN FUNCTION
*     RETURNING A VALUE IN THE A-REGISTER.
* 
*     "R" IF SET, DENOTES A REAL VALUED FORTRAN FUNCTION
*     RETURNING A VALUE IN THE A & B REGISTERS
* 
*     NOTE: DO NOT USE OCT 100000 ANYWHERE
* 
**********************************************************************
* 
* 
XNFO  EQU *                START OF PARAMETER TABLE 
* 
*     DEFINE CALL PARAMETERS HERE 
* 
      OCT 0        TIME(R)
      OCT 12       SETP(I,I)
      OCT 2        START(I,R) 
      OCT 2        DSABL(I) 
      OCT 2        ENABL(I) 
      OCT 2        TRNON(I,R) 
      OCT 2         RGAIN(I,R)
      OCT 2         SGAIN(I,R)
      OCT 0         NORM
      OCT 52        PACER(I,I,I)
      OCT 302       AIRDV(I,R,R,IV) 
      OCT 312       AISQV(I,I,R,IV) 
      OCT 0         ISETC(R,R)
* 
*     DS1 PARAMETERS
* 
      OCT 1254      CAPOS(R,V,I,I,I)
      OCT 54        CCLOS(R,V,I)
      OCT 254       CCONT(R,V,I,I)
      OCT 25014     CCRET(R,V,R,R,I,I,I)
      OCT 37774     CLOCF(R,V,V,V,V,V,V)
      OCT 5014      CNAME(R,V,R,R,I,I)
      OCT 5214      COPEN(R,V,R,I,I,I)
      OCT 254       CPOSN(R,V,I,I)
      OCT 1214      CPURG(R,V,R,I,I)
      OCT 5614      CREAD(R,V,R,I,V,I)
      OCT 14        CWIND(R,V)
      OCT 1214      CWRIT(R,V,R,I,I)
      OCT 70        ASSIGN(R,I,V) 
      OCT 16        UNASGN(I,V) 
      OCT 2         CMESG(I,R)
      OCT 25250     CAXTM(R,I,I,I,I,I,I)
      OCT 250       CEXTM(R,I,I,I)
      OCT 25254     CSCHED(R,V,I,I,I,I,I) 
      OCT 1777      CTIM(V,V,V,V,V) 
      OCT 214       POPEN(R,V,R,I,R)
      OCT 214       PREAD(R,V,R,I,R)
      OCT 214       PWRIT(R,V,R,I,R)
      OCT 14        PCLOS(R,V,R)
      OCT 1476      READY(I,V,V,R,V)
      OCT 14        ACEPT(R,V,R)
      OCT 14        REJCT(R,V)
      OCT 1250      CHAIN(R,I,I,I,I)
      OCT 0         FINIS 
      SKP 
* 
* 
**********************************************************************
* 
* 
*     THE FOLLOWING TABLE DEFINES EXECUTION ENTRY POINTS
*     FOR EACH CALLABLE SUBROUTINE AVAILABLE TO BASIC.
*     ENTRIES ARE ORDERED IN CONJUNCTION WITH THE XNFO
*     ABOVE, AND WITH THE MNEMONIC TABLE. ENTRIES ARE AS FOLLOWS: 
* 
*        OCT 0 000 000 PPP 000 000
*        DEF <ENTRY>
* 
*     WHERE P          = NUMBER OF PARAMETERS 
*           <ENTRY>    = ENTRY POINT OF SUBROUTINE
* 
* 
**********************************************************************
* 
SBTBL EQU * 
* 
*     CALL STATEMENTS START HERE
* 
* 
      OCT 100 
      DEF TIME             TIME(T)
* 
      OCT 200 
      DEF SSETP    SETP(S,P)
* 
      OCT 200 
      DEF SSTRT    START(S,DELAY) 
* 
      OCT 100 
      DEF DSABL    DSABL(S) 
* 
      OCT 100 
      DEF ENABL    ENABL(S) 
* 
      OCT 200 
      DEF TRNON    TRNON(S,TIME)
* 
      OCT 200 
      DEF RGAIN     RGAIN(CHANL,GAIN) 
* 
      OCT 200 
      DEF SGAIN     SGAIN(CHANL,GAIN) 
* 
      OCT 0 
      DEF NORM      NO PRAMS
* 
      OCT 300 
      DEF PACER     PACER(RATE) 
* 
      OCT 400 
      DEF AIRDV     AIRDV(NUM,CHANL,DATA,ERR) 
* 
      OCT 400 
      DEF AISQV     AISQZ(NUM,SCHAN,DATA,ERR) 
* 
      OCT 200 
      DEF ISETC 
* 
* 
*     DS1 CALLS 
* 
* 
      OCT 500 
      DEF CAPOS 
* 
      OCT 300 
      DEF CCLOS 
* 
      OCT 400 
      DEF CCONT 
* 
      OCT 700 
      DEF CCRET 
* 
      OCT 700 
      DEF CLOCF 
* 
      OCT 600 
      DEF CNAME 
* 
      OCT 600 
      DEF COPEN 
* 
      OCT 400 
      DEF CPOSN 
* 
      OCT 500 
      DEF CPURG 
* 
      OCT 600 
      DEF CREAD 
* 
      OCT 200 
      DEF CWIND 
* 
      OCT 500 
      DEF CWRIT 
* 
      OCT 300 
      DEF ASGN
* 
      OCT 200 
      DEF UASGN 
* 
      OCT 200 
      DEF CMESG 
* 
      OCT 700 
      DEF CAXTM 
* 
      OCT 400 
      DEF CEXTM 
* 
      OCT 700 
      DEF CSCHD 
* 
      OCT 500 
      DEF CTIM
* 
      OCT 500 
      DEF POPEN 
* 
      OCT 500 
      DEF PREAD 
* 
      OCT 500 
      DEF PWRIT 
* 
      OCT 300 
      DEF PCONT 
* 
      OCT 500 
      DEF GET 
* 
      OCT 300 
      DEF ACEPT 
* 
      OCT 200 
      DEF REJCT 
* 
      OCT 500 
      DEF CHAIN 
* 
      OCT 0 
      DEF FINIS 
      SKP 
* 
**********************************************************************
* 
* 
*     THE FOLLOWING TABLE CONSISTS OF SUBROUTINE ENTRY
*     POINTS FOR THE SPECIAL STATEMENT ENTRIES IN THE 
*     MNEMONIC TABLE. ENTRIES ARE AS FOLLOWS
* 
*        OCT 0 000 000 000 000 000
*        DEF <ENTRY>
* 
*     WHERE  <ENTRY>  = SUBROUTINE ENTRY POINT
* 
* 
**********************************************************************
* 
STDCL EQU * 
* 
* 
*     STATEMENTS WITH NON-STANDARD SYNTAX START HERE
* 
      OCT 0 
      DEF EINP             EXECUTE INPUT STATEMENT
* 
      OCT 0 
      DEF ELIST            EXECUTE PRINT STATEMENT
* 
      OCT 0 
      DEF ETTYS              EXECUTE PRINT# STATEMENT 
* 
      OCT 0 
      DEF EREED    READ STATEMENT 
* 
      OCT 0 
      DEF RDNBR    READ# LU; STATEMENT
* 
      OCT 0 
      DEF ETRAP    TRAP STATEMENT 
* 
      SKP 
* 
**********************************************************************
* 
* 
*     THE FOLLOWING TABE DEFINES ENTRY POINTS FOR EXECUTION 
*     OF COMMANDS. TABLE ENTRIES ARE AS FOLLOWS:
* 
*        OCT 0 000 000 000 000 000
*        DEF <ENTRY>
* 
*     WHERE: <ENTRY>  = ENTRY POINT FOR EXECUTION 
* 
**********************************************************************
* 
*     SYSTEM COMMANDS START HERE
* 
* 
      OCT 0 
      DEF %CRET     CREATE A FILE 
* 
      OCT 0 
      DEF %CLOS     CLOSE A FILE
* 
      OCT 0 
      DEF %PURG     PURGE A FILE
* 
      OCT 0 
      DEF %ON       TURN ON A CENTRAL PROGRAM 
* 
      OCT 0 
      DEF %RNAM     RENAME A FILE 
* 
      OCT 0 
      DEF %TLOP     SEND MESSAGE TO CENTRAL 
* 
      OCT 0 
      DEF %DLST     DO A CENTRAL DIRECTRY LIST
* 
      OCT 0 
      DEF LENBL     ENABLE SATELLITE
* 
      OCT 0 
      DEF $DEL             DELETE COMMAND 
* 
.RUNA OCT 0 
      DEF $RUN             RUN COMMAND
* 
      OCT 0 
      DEF $SAVE            SAVE COMMAND 
* 
      OCT 0 
      DEF $MERG            MERGE COMMAND
* 
      OCT 0 
      DEF $LOAD            LOAD COMMAND 
* 
      OCT 0 
      DEF $LST             LIST COMMAND 
* 
      OCT 0 
      DEF $TIM             SET TIME COMMAND 
* 
      OCT 0 
      DEF $REW             REWIND COMMAND 
* 
      OCT 0 
      DEF $SKPF            SKIP FILE COMMAND
* 
      OCT 0 
      DEF $WEOF            WRITE END OF FILE COMMAND
* 
      SKP 
* 
**********************************************************************
* 
* 
*     THE FOLLOWING TABE DEFINES ENTRY POINTS FOR EXECUTION 
*     OF FUNCTIONS. TABLE ENTRIES ARE AS FOLLOWS: 
* 
*        OCT F 000 000 PPP 000 000
*        DEF <ENTRY>
* 
*     WHERE: F         = 1 IF FUNCTION HAS "JSB ERR0" RETURN
*            P         = NUMBER OF PARAMTERS
*            <ENTRY>   = ENTRY POINT FOR EXECUTION
* 
* 
**********************************************************************
* 
FCNEX EQU * 
* 
*     START FUNCTION ENTRY POINTS HERE
* 
      OCT 100 
      DEF ETAB             EXECUTE TAB FUCTION
* 
      OCT 100100
      DEF SIN              EXECUTE SINE FUNCTION
* 
      OCT 100100
      DEF COS              EXECUTE COSIN FUNCTION 
* 
      OCT 100100
      DEF TAN              EXECUTE TANGENT FUNCTION 
* 
      OCT 100 
      DEF ATAN             EXECUTE ARC TANGENT FUNCTION 
* 
.LOGA OCT 100100
      DEF ALOG             EXECUTE NATURAL LOG FUNCTION 
* 
.EXPA OCT 100100
      DEF EXP              EXECUTE EXPONENTIAL FUNCTION 
* 
      OCT 100 
      DEF ABS              EXECUTE ABSOLUTE FUNCTION
* 
      OCT 100100
      DEF SQRT             EXECUTE SQUARE ROOT FUNCTION 
* 
      OCT 100 
      DEF EINT             EXECUTE INTIER FUNCTION
* 
      OCT 100 
      DEF ERND             EXECUTE RANDOM NUMBER FUNCTION 
* 
      OCT 100 
      DEF ESGN             EXECUTE SIGN FUNCTION
* 
      OCT 100 
      DEF ESWR             EECUTE SWITCH REG FUNCTION 
* 
      OCT 100 
      DEF IERR             EXECUTE ERROR FUNCTION 
* 
      OCT 100 
      DEF STATS     GET STATUS
LSBTB EQU *                END OF BRANCH TABLE
* 
      SKP 
**********************************************************************
* 
*     THE FOLLOWING TABLE DEFINES EXECUTION ENTRY POINTS
*     FOR THE COMMAND DEVICE TABLE. ENTRIES AR AS FOLLOWS:
* 
*            OCT 0
*            DEF <ENTRY>
* 
*     WHERE:  <ENTRY> = EXECUTION ENTRY FOR COMMANDS
* 
**********************************************************************
* 
*     COMMAND DEVICE EXECUTION
* 
DEVEX EQU * 
* 
      OCT 0         TAPE READER 
      DEF PHOT1 
* 
      OCT 0 
      DEF %PLOS     FILE LOAD AND SAVE ROUTINE
* 
* 
**********************************************************************
* 
* 
* 
      END 
                                                                                                                                                                                                      