*DECK BSFUNTL 
          IDENT  BSFNTBL
          ENTRY  BSFNTBL
* 
*  EXTERNAL REFERENCES FOR SUBROUTINE HANDLING
          EXT    BASEASL,BATEASL
          EXT    BASATTN,BATATTN
          EXT    BASATNN,BATATNN
          EXT    INTRFLG
          EXT    ATTN 
          EXT    BASAABS
          EXT    BASAATN
          EXT    BASACLK
          EXT    BASACMP
          EXT    BASACOS
          EXT    BASACOT
          EXT    BASACSV
          EXT    BASACVS
          EXT    BASAEXP
          EXT    BASAINT
          EXT    BASALGT
          EXT    BASALOG
          EXT    BASAMAX
          EXT    BASAMIN
          EXT    BASAPWR
          EXT    BASARND
          EXT    BASAROF
          EXT    BASASGN
          EXT    BASASIN
          EXT    BASASQR
          EXT    BASASTR
          EXT    BASATAB
          EXT    BASATAN
          EXT    BASATIM
          EXT    BASCALL
          EXT    BASCHAN
          EXT    BASCLCK
          EXT    BASDATE
          EXT    BASEESL
          EXT    BASEESM
          EXT    BASEGEN
          EXT    BASEJMP
          EXT    BASENXL
          EXT    BASERRS
          EXT    BASERSS
         EXT    BAAESRT 
          EXT    BASETCP,BASETOF,BASETON
          EXT    BASETRC
          EXT    BASFSET
          EXT    BASGSTR
          EXT    BASIDEL
          EXT    BASIEND
          EXT    BASIINP
          EXT    BASIINS
          EXT    BASILOC
          EXT    BASILOF
          EXT    BASINOD
          EXT    BASIRD0
          EXT    BASIRED
          EXT    BASIREW
          EXT    BASISRT
          EXT    BASMADD
          EXT    BASMASS
          EXT    BASMCON
          EXT    BASMDET
          EXT    BASMIDN
          EXT    BASMINP
          EXT    BASMINS
          EXT    BASMINV
          EXT    BASMMLT
          EXT    BASMPRS
          EXT    BASMPRT
          EXT    BASMPRU
          EXT    BASMRDS
          EXT    BASMRED
          EXT    BASMRFL
          EXT    BASMRFS
          EXT    BASMSCM
          EXT    BASMSUB
          EXT    BASMTRN
          EXT    BASMWRS
          EXT    BASMWRT
          EXT    BASMZER
          EXT    BASOCLO
          EXT    BASOCON
          EXT    BASOFET
          EXT    BASOFFT
          EXT    BASOMGN
          EXT    BASOPRO
          EXT    BASOPRT
          EXT    BASOSET
          EXT    BASOSRT
          EXT    BASOUSI
          EXT    BASOWRT
          EXT    BASOWR0
          EXT    BASPARM
          EXT    BASRCHK
          EXT    BASRSTR
          EXT    BASTRCN
          EXT    BASUSRN
          EXT    BASXCHR
          EXT    BASXDIS
          EXT    BASXLEN
          EXT    BASXSBS
          EXT    BASXSBT
          EXT    BASXSTR
          EXT    BASXVAL
          EXT    BATAABS
          EXT    BATAATN
          EXT    BATACLK
          EXT    BATACMP
          EXT    BATACOS
          EXT    BATACOT
          EXT    BATACSV
          EXT    BATACVS
          EXT    BATAEXP
          EXT    BATAINT
          EXT    BATALGT
          EXT    BATALOG
          EXT    BATAMAX
          EXT    BATAMIN
          EXT    BATAPND
          EXT    BASAPND
          EXT    BATAPWR
          EXT    BATARND
          EXT    BATAROF
          EXT    BATASGN
          EXT    BATASIN
          EXT    BATASQR
          EXT    BATASTR
          EXT    BATATAB
          EXT    BATATAN
          EXT    BATATIM
          EXT    BATCHAN
          EXT    BATCLCK
          EXT    BATDATE
          EXT    BATEESL
          EXT    BATEESM
          EXT    BATEGEN
          EXT    BATEJMP
          EXT    BATENXL
          EXT    BATERRS
          EXT    BATERSS
          EXT    BATFSET
          EXT    BATIDEL
          EXT    BATIEND
          EXT    BATIINP
          EXT    BATILOC
          EXT    BATILOF
          EXT    BATINOD
          EXT    BATIRD0
          EXT    BATIRED
          EXT    BATIREW
          EXT    BATISRT
          EXT    BATMADD
          EXT    BATMASS
          EXT    BATMCON
          EXT    BATMDET
          EXT    BATMIDN
          EXT    BATMINP
          EXT    BATMINS
          EXT    BATMINV
          EXT    BATMMLT
          EXT    BATMPRS
          EXT    BATMPRT
          EXT    BATMPRU
          EXT    BATMRDS
          EXT    BATMRED
          EXT    BATMRFL
          EXT    BATMRFS
          EXT    BATMSCM
          EXT    BATMSUB
          EXT    BATMTRN
          EXT    BATMWRS
          EXT    BATMWRT
          EXT    BATMZER
          EXT    BATOCLO
          EXT    BATOCON
          EXT    BATOFET
          EXT    BATOFFT
          EXT    BATOMGN
          EXT    BATOPRO
          EXT    BATOPRT
          EXT    BATOSET
          EXT    BATOSRT
          EXT    BATOUSI
          EXT    BATOWRT
          EXT    BATOWR0
          EXT    BATTRCN
          EXT    BATUSRN
          EXT    BATXCHR
          EXT    BATXDIS
          EXT    BATXLEN
          EXT    BATXSBS
          EXT    BATXSBT
          EXT    BATXSTR
          EXT    BATXVAL
          EXT    BSTRBUF
          EXT    BASXRPT,BATXRPT   RPT$ 
          EXT    CHKDLMT
          EXT    DATAXXX
          EXT    GOSUBXX
          EXT    ER119
          EXT    ER120
          EXT    ER121
          EXT    ER122
          EXT    ER123
          EXT    ER124
          EXT    ER125
          EXT    ER129
          EXT    DBUG.LN
        EXT   BASENDP         RUN TIME RTNS END ADDRESS 
* 
*    DEFINE -EXTERN- MACRO
* 
 STR      SET    0
          MACRO  EXTERN,L,A,B,C 
          IFC    NE,$$L$,1
 L        EQU    STR
 STR      SET    STR+1
          IFC    NE,$$B$,2
          VFD    12/2000B+C,18/=X_B 
          ELSE   1
          VFD    12/2000B+C,18/0
          VFD    12/0,18/=X_A 
          ENDM
* 
*   SYSTEM DEFINED FUNCTIONS
*     THE EXPONENT FIELD IS USED AS USE-BIT 
* 
 BSFNTBL  BSS    0
 BSFUNTBL BSS       0 
*CALL,COMBEXT 
* 
 DBUGLN   EQU    STR        DUMMY FOR DEBUG BIN FILE GENERATION 
 STR      SET    STR+1
          DATA   20000000000000000000B
 BEXTLNG  EQU       *-BSFUNTBL
* 
*  FLAG WORD FOR READ AND DATA
* 
 BDAREFL  VFD       12/2000B,30/2000B,18/0
          END    BSFNTBL
