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,?? <> ABS S7+R1 OCT 125052 "**" WITH SIGN BIT SET DEF COMM OCT 125000 "*" WITH SIGN BIT SET DEF COMM OCT 125040 "*" 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 <> 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 <> 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 <> 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 <> ABS S4+R1 LV60 ASC 1,IN <> ABS S2+R1 SCMD ASC 1,SL <> 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 <> 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 <> * * COMM NOP LDA COMM,I JMP 0,I END