ASMB,R,L,C
*     NAME:   C.TAB 
*     SOURCE: 92070-18012 
*     RELOC:  92070-16012 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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.       *
*  ***************************************************************
* 
      NAM C.TAB,8  92070-1X012  REV.1941  790712
      ENT C.TAB,U.CMD,EX..
      EXT TR..,SE..,SY..,??.. 
      EXT CAM.I,CLOSE,EXEC
      SUP 
* 
*     SET UP SEGMENT AND ROUTINE NUMBERS. 
* 
* R = ROUTINE NUMBER WITHIN SEGMENT 
* S = ASCII VALUE FOR SEGMENT NUMBER
* 
R0    EQU 0 
R1    EQU 400B
R2    EQU R1+R1 
R3    EQU R2+R1 
R4    EQU R3+R1 
R5    EQU R4+R1 
R6    EQU R5+R1 
R7    EQU R6+R1 
R8    EQU R7+R1 
R9    EQU R8+R1 
R10   EQU R9+R1 
      SPC 2 
S0    EQU 60B 
S1    EQU S0+1
S2    EQU S0+2
S3    EQU S0+3
S4    EQU S0+4
S5    EQU S0+5
S6    EQU S0+6
S7    EQU S0+7
S8    EQU S0+8
S9    EQU S0+9
* 
*     THIS IS THE COMMAND DISPATCH TABLE FOR THE FMGR PROGRAM 
*     EACH COMMAND ID IS FOLLOWED BY ITS ADDRESS. 
*     FOR ROUTINES IN THE HOME SEGMENT THIS IS AN ADDRESS (DEF XX)
*     FOR ROUTINES IN OTHER SEGMENTS IT IS THE ASCII SEGMENT
*     SUFFIX IN THE LOW HALF OF THE WORD AND THE ROUTINE
*     NUMBER IN THAT SEGMENT IN THE HIGH HALF OF THE WORD.
*     .PARS BREAKS THESE APART BY THE ADDRESS BEING 0< ADD < 10000B 
*     (=4000.) FOR SEGMENT ADDRESS.  MAXIMUM NUMBER OF ROUTINES PER SEGMENT 
*     IS 15.
* 
*     COMMANDS WITH THE SIGN BIT SET INDICATE THAT THE COMMAND
*     NEED NOT SATISFY ALL THE SYNTAX RESTRICTIONS IMPOSED ON 
*     OTHER COMMANDS. 
* 
      SKP 
C.TAB EQU *         FMGR COMMAND TABLE
* 
*     SEGMENT 0 
* 
      ASC 1,CR
      ABS S0+R0 
      ASC 1,PK
      ABS S0+R1 
* 
*     SEGMENT 1 
* 
      ASC 1,EX
      DEF EX..
      ASC 1,SE
      DEF SE..
      ASC 1,TR
      DEF TR..
      NOP           FOR ":" DO A TR 
      DEF TR..
      OCT 125052    "**" WITH SIGN BIT SET
      DEF COMM
      OCT 125000    "*<NULL>" WITH SIGN BIT SET 
      DEF COMM
      OCT 125040    "*<BLANK>" WITH SIGN BIT SET
      DEF COMM
      ASC 1,??
      DEF ??..
* 
*     SEGMENT 2 
* 
*                                   IN.IT IS ROUTINE 0
      ASC 1,DC
      ABS S2+R1 
      ASC 1,IN
      ABS S2+R2 
      ASC 1,MC
      ABS S2+R3 
      ASC 1,PU
      ABS S2+R4 
* 
*     SEGMENT 3 
* 
      ASC 1,DL
      ABS S3+R0 
      ASC 1,LI
      ABS S3+R1 
      SKP 
* 
*     SEGMENT 4 
* 
      ASC 1,CL
      ABS S4+R0 
      ASC 1,CO
      ABS S4+R1 
      ASC 1,DU
      ABS S4+R2 
      ASC 1,ST
      ABS S4+R3 
* 
*     SEGMENT 5 
* 
      ASC 1,CA
      ABS S5+R0 
      OCT 142120    "DP" WITH THE SIGN BIT SET
      ABS S5+R1 
      ASC 1,IF
      ABS S5+R2 
      ASC 1,LL
      ABS S5+R3 
      ASC 1,LO
      ABS S5+R4 
      OCT 150101    "PA" WITH THE SIGN BIT SET
      ABS S5+R5 
      ASC 1,RN
      ABS S5+R6 
      ASC 1,RP
      ABS S5+R7 
      OCT 151125    "RU" WITH SIGN BIT SET
      ABS S5+R8 
      ASC 1,SV
      ABS S5+R9 
      OCT 154121    "XQ" WITH SIGN BIT SET
      ABS S5+R10
* 
*     SEGMENT 6 
* 
      ASC 1,BL
      ABS S6+R0 
      ASC 1,CN
      ABS S6+R1 
      ASC 1,IO
      ABS S6+R2 
      ASC 1,IT
      ABS S6+R3 
      ASC 1,LA
      ABS S6+R4 
      ASC 1,ON
      ABS S6+R5 
      ASC 1,PL
      ABS S6+R6 
      ASC 1,TM
      ABS S6+R7 
      ASC 1,TO
      ABS S6+R8 
* 
*     SYSTEM ROUTINE (SY..) 
* 
U.CMD NOP           USER'S COMMAND WITH SIGN BIT SET
      DEF SY..
      SKP 
* 
*     COMMENT ACTION ROUTINE
* 
COMM  NOP 
      LDA COMM,I
      JMP 0,I 
* 
*     EXIT ACTION ROUTINE 
* 
EX..  NOP 
      JSB CLOSE     CLOSE INPUT FILE/DEVICE 
      DEF *+2 
      DEF CAM.I 
* 
      JSB EXEC      TERMINATE 
      DEF *+2 
      DEF .6
* 
* 
.6    DEC 6 
      END 
                                                                                                                                                                          