ASMB,R,L,C
*     NAME:   C.TAB 
*     SOURCE: 92067-18201 
*     RELOC:  92067-16185 
*     PGMR:   G.A.A., B.L., D.C.L.
* 
*  ***************************************************************
*  * (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 92067-16185 REV.2026 800221 
      ENT C.TAB 
* 
*     SET UP SEGMENT AND ROUTINE NUMBERS. 
* 
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 1 
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
SA    EQU 101B
SB    EQU SA+1
* 
*     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 
*     FOR SEGMENT ADDRESS.
* 
*     COMMANDS WITH THE SIGN BIT SET INDICATE THAT THE COMMAND
*     NEED NOT SATISFY ALL THE SYNTAX RESTRICTIONS IMPOSED ON 
*     OTHER COMMANDS. 
* 
      SPC 1 
* 
*     SESSION MONITOR COMMAND CAPABILITY LEVELS 
* 
C.TAB DEF BEGIN 
      DEF ENDS
      DEF SCMD
L1    DEC 1 
L1A   DEF LV10
L10   DEC 10
L10A  DEF LV20
L20   DEC 20
L20A  DEF LV30
L30   DEC 30
L30A  DEF LV40
L40   DEC 40
L40A  DEF LV50
L50   DEC 50
L50A  DEF LV60
L60   DEC 60
L60A  DEF SCMD
ENDS  DEF NONSM 
ENDT  DEF END 
      SPC 1 
* 
*     STRUCTURE CHECKS
* 
      ORG C.TAB 
      BSS ENDT-ENDS 
      BSS ENDS-L60A 
      BSS L60A-L50A 
      BSS L50A-L40A 
      BSS L40A-L30A 
      BSS L30A-L20A 
      BSS L20A-L10A 
      BSS L10A-L1A
      ORR 
      SPC 1 
BEGIN EQU * 
      NOP           NULL COMMAND (TR) 
      DEF TR..
      ASC 1,TR
      EXT TR..
      DEF TR..
      ASC 1,EX
      EXT EE..
      DEF EE..
      OCT 151531    "SY" WITH SIGN BIT SET
      ABS S7+R2 
LV10  ASC 1,??      <<CAPABILITY LEVEL 10 COMMANDS>>
      ABS S7+R1 
      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,LI
      ABS S9+R1 
      ASC 1,CL
      ABS S9+R0 
      ASC 1,DL
      ABS S3+R1 
      ASC 1,MC
      ABS S4+R3 
      ASC 1,DC
      ABS S4+R4 
      ASC 1,WH
      ABS SB+R3                                              800221 
      OCT 151515    "SM" WITH SIGN BIT SET
      ABS SA+R0 
      ASC 1,ME
      ABS SA+R1 
      ASC 1,AC
      ABS S4+R5 
LV20  ASC 1,CR      <<CAPABILITY LEVEL 20 COMMANDS>>
      ABS S8+R1 
      ASC 1,ST
      ABS S0+R2 
      ASC 1,DU
      ABS S0+R3 
      ASC 1,PU
      ABS S2+R2 
      ASC 1,RN
      ABS S6+R4 
      ASC 1,CO
      ABS S0+R1 
      ASC 1,PK
      ABS S0+R0 
      ASC 1,CN
      ABS S5+R4                                              800221 
      ASC 1,LL
      ABS S4+R0 
      ASC 1,SV
      ABS S4+R2 
      OCT 142120    "DP" WITH SIGN BIT SET
      EXT DP..
      DEF DP..
      OCT 140516    "AN" WITH SIGN BIT SET
      ABS S5+R3                                              800221 
      OCT 141524    "CT" WITH SIGN BIT SET
      ABS S5+R5                                              800221 
LV30  ASC 1,SP      <<CAPABILITY LEVEL 30 COMMANDS>>
      ABS S8+R0 
      OCT 151125    "RU" WITH SIGN BIT SET
      ABS SB+R1                                              800221 
      ASC 1,RP
      ABS SB+R0                                              800221 
      ASC 1,OF
      ABS S6+R3 
      ASC 1,RT
      ABS S6+R2 
      ASC 1,JO
      ABS S6+R0 
      ASC 1,EO
      ABS S6+R1 
      ASC 1,CS
      ABS S3+R0 
      ASC 1,AB
      EXT AB..
      DEF AB..
      ASC 1,TL
      ABS S5+R0                                              800221 
LV40  ASC 1,SE      <<CAPABILITY LEVEL 40 COMMANDS>>
      EXT SE..
      DEF SE..
      ASC 1,IF
      EXT IF..
      DEF IF..
      ASC 1,CA
      EXT CA..
      DEF CA..
      OCT 150101    "PA" WITH SIGN BIT SET
      ABS S5+R1                                              800221 
LV50  ASC 1,LO      <<CAPABILITY LEVEL 50 COMMANDS>>
      ABS S4+R1 
LV60  ASC 1,IN      <<CAPABILITY LEVEL 60 COMMANDS>>
      ABS S2+R1 
SCMD  ASC 1,SL      <<SPECIAL SESSION COMMANDS>>
      ABS S6+R5 
      OCT 144105    "HE" WITH SIGN BIT SET
      ABS SB+R2                                              800221 
      OCT 152105    "TE" WITH SIGN BIT SET
      ABS S5+R2                                              800221 
NONSM ASC 1,LU      <<NON-SESSION COMMANDS>>
      ABS S6+R5 
      ASC 1,LS
      ABS S6+R2 
      ASC 1,LG
      ABS S6+R2 
      ASC 1,MS
      ABS S4+R6 
      ASC 1,MR
      EXT MR..
      DEF MR..
      ASC 1,SA
      ABS S8+R2 
END   NOP           <<END OF COMMAND TABLE>>
* 
* 
COMM  NOP 
      LDA COMM,I
      JMP 0,I 
      END 
                                