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 "*" WITH SIGN BIT SET DEF COMM OCT 125040 "*" 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