PREFIX          - INPUT SYMBIONT PREFIX FILE                     21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    3800  DECLARATIONS

   (1)   10500  CONDITION HANDLER

HANDLER         - INPUT SYMBIONT CONDITION HANDLER               21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   1

X0001           DECLARATIONS                                                                                                     (1)



                                     0000   100 	.TITLE	HANDLER - INPUT SYMBIONT CONDITION HANDLER

                                     0000   200 	.IDENT	"X0001"

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ; COPYRIGHT (C) 1978

                                     0000   600 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   700 ;

                                     0000   800 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000   900 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000  1000 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000  1100 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000  1200 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000  1300 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000  1400 ; REMAIN IN DEC.

                                     0000  1500 ;

                                     0000  1600 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000  1700 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000  1800 ; CORPORATION.

                                     0000  1900 ;

                                     0000  2000 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000  2100 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000  2200 

                                     0000  2300 ;++

                                     0000  2400 ;

                                     0000  2500 ; FACILITY:  VAX/VMS INPUT SYMBIONT

                                     0000  2600 ;

                                     0000  2700 ; ABSTRACT:	THIS MODULE CONTAINS THE ERROR CONDITION HANDLER

                                     0000  2800 ;

                                     0000  2900 ;

                                     0000  3000 ; ENVIRONMENT:	USER MODE

                                     0000  3100 ;

                                     0000  3200 ;

                                     0000  3300 ; AUTHOR:	LEN KAWELL, CREATION DATE: 15-MAR-78

                                     0000  3400 ;

                                     0000  3500 ; MODIFIED BY:

                                     0000  3600 ;

                                     0000  3700 ;  , VERSION  ,

                                     0000  3800 ; 01	- 

                                     0000  3900 ;--

                                     0000  4000 

                                     0000  4100 ;

                                     0000  4200 ; INCLUDE FILES:

                                     0000  4300 ;

                                     0000  4400 ;	[INPSMB.SRC]PREFIX.MAR

                                     0000  4500 ;

                                     0000  4600 ; MACROS:

                                     0000  4700 ;

                                     0000  4800 

                                     0000  4900 ;

                                     0000  5000 ; EQUATED SYMBOLS:

                                     0000  5100 ;

                                     0000  5102 	$FABDEF				;FILE ACCESS BLOCK DEFINITIONS

                                     0000  5104 	$RABDEF				;RECORD ACCESS BLOCK DEFINITIONS

                                     0000  5200 	$NAMDEF				;NAME BLOCK DEFINTIONS

                                     0000  5300 	$CHFDEF				;CONDITION HANDLER DEFINTIONS

                                     0000  5400 	$OPCDEF				;OPCOM MESSAGE DEFINITIONS

                                     0000  5500 	$SMRDEF				;SEND SYMBIONT MANGR DEFINITIONS

HANDLER         - INPUT SYMBIONT CONDITION HANDLER               21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   2

X0001           DECLARATIONS                                                                                                     (1)



                                     0000  5600 

                                     0000  5700 ;

                                     0000  5800 ; OWN STORAGE:

                                     0000  5900 ;

                                     0000  6000 

                                     0000  6100 	PURE_SECTION

                                     0000  6200 

                                     0000  6300 ;

                                     0000  6400 ; INPUT SYMBIONT FACILITY NAME STRING

                                     0000  6500 ;

                                     0000  6600 FACILITY:

                                     0000  6700 	STRING_DESC <INPSMB>

                                     000E  6800 

                                     000E  6900 ;

                                     000E  7000 ; PRINT QUEUE NAME

                                     000E  7100 ;

                                     000E  7200 PRINT_QUEUE:

      54 4E 49 52 50 24 53 59 53 00' 000E  7300 	.ASCIC	/SYS$PRINT/

                                 09  000E       

                                     0018  7400 

                                     0018  7500 ;

                                     0018  7600 ; SYMBIONT MANAGER MESSAGE DESCRIPTOR

                                     0018  7700 ;

                                     0018  7800 SYMMSG_DESC:

                           0000008A' 0018  7900 	.LONG	SM_K_SIZE		;SIZE OF MESSAGE

                           00000000' 001C  8000 	.LONG	INP$G_SYMMSG		;ADDRESS OF MESSAGE

                                     0020  8100 

                                     0020  8200 ;

                                     0020  8300 ; ERROR FILE NAME

                                     0020  8400 ;

                                     0020  8500 ERR_FILE:

52 45 2E 48 43 54 41 42 50 4E 49 00' 0020  8600 	.ASCIC	/INPBATCH.ERR/

                                 52  002C       

                                 0C  0020       

                                     002D  8700 

                                     002D  8800 	IMPURE_DATA

                                     0000  8900 

                                     0000  9000 ;

                                     0000  9100 ; OPCOM MESSAGE BUFFER

                                     0000  9200 ;

                                     0000  9300 OPCOM_MSG_DESC:

                           00000058' 0000  9400 	.LONG	OPC$L_MS_TEXT+80	;LENGTH OF BUFFER

                           00000008' 0004  9500 	.LONG	OPCOM_MSG		;ADDRESS OF BUFFER

                                     0008  9600 OPCOM_MSG:

                                 03' 0008  9700 	.BYTE	OPC$_RQ_RQST		;REQUEST TYPE

                                     0009  9800 	.WORD	OPC$M_NM_CENTRL!-	;OPERATORS TO BE NOTIFIED

                                     0009  9900 		OPC$M_NM_DEVICE!-	;

                               0031' 0009 10000 		OPC$M_NM_CARDS		;

                                 00  000B 10100 	.BYTE	0

                           00000000  000C 10150 	.LONG	0			;NO REQUEST ID

                           00000090  0010 10200 	.BLKB	128			;MESSAGE BUFFER

                                     0090 10300 

HANDLER         - INPUT SYMBIONT CONDITION HANDLER               21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   3

X0001           CONDITION HANDLER                                                                                                (1)



                                     0090 10500 	.SBTTL	CONDITION HANDLER

                                     0090 10600 ;++

                                     0090 10700 ;

                                     0090 10800 ; FUNCTIONAL DESCRIPTION:

                                     0090 10900 ;

                                     0090 11000 ;	CALLS SYS$PUTMSG TO GET THE ERROR MESSAGE TEXT, WHICH CALLS

                                     0090 11100 ;	THE ACTION ROUTINE WHICH WILL OUTPUT THE ERROR MESSAGE TO:

                                     0090 11200 ;

                                     0090 11300 ;		1) OPCOM - IF A JOB CARD HAS NOT BEEN READ YET, THE

                                     0090 11400 ;			ERROR MESSAGE GOES TO THE OPERATOR TERMINALS

                                     0090 11500 ;

                                     0090 11600 ;		2) [SYSMGR]INPBATCH.ERR - IF A JOB CARD HAS BEEN READ,

                                     0090 11700 ;			BUT THE OUPUT FILE HASN'T BEEN CREATED YET, THE

                                     0090 11800 ;			ERROR MESSAGE WILL BE WRITTEN TO THIS FILE

                                     0090 11850 ;

                                     0090 11855 ;		3) [user's dir]INPBATCH.COM - IF THE OUTPUT COMMAND

                                     0090 11860 ;			FILE WAS CREATED, THE ERROR MESSAGE WILL BE

                                     0090 11865 ;			WRITTEN TO THIS FILE

                                     0090 11900 ;

                                     0090 12000 ;	IF THE MESSAGE(S) WERE WRITTEN TO A FILE, IT IS ENTERED IN THE

                                     0090 12100 ;	SYS$PRINT QUEUE TO BE PRINTED WITH THE USER'S NAME.  THE CALL

                                     0090 12200 ;	FRAMES ARE THEN UNWOUND AND THE IMAGE RESTARTED AT INP$GET_JOB.

                                     0090 12300 ;

                                     0090 12400 ; CALLING SEQUENCE:

                                     0090 12500 ;

                                     0090 12600 ;	CALLED AS A CONDITION HANDLER

                                     0090 12700 ;

                                     0090 12800 ; INPUT PARAMETERS:

                                     0090 12900 ;

                                     0090 13000 ;	STANDARD CONDITION HANDLER PARAMETERS

                                     0090 13100 ;

                                     0090 13200 ; IMPLICIT INPUTS:

                                     0090 13300 ;

                                     0090 13400 ;	NONE

                                     0090 13500 ;

                                     0090 13600 ; OUTPUT PARAMETERS:

                                     0090 13700 ;

                                     0090 13800 ;	NONE

                                     0090 13900 ;

                                     0090 14000 ; IMPLICIT OUTPUTS:

                                     0090 14100 ;

                                     0090 14200 ;	ERROR MESSAGES SENT EITHER TO OPERATOR OR USER

                                     0090 14300 ;

                                     0090 14400 ; ROUTINE VALUE:

                                     0090 14500 ;

                                     0090 14600 ;	NONE

                                     0090 14700 ;

                                     0090 14800 ; SIDE EFFECTS:

                                     0090 14900 ;

                                     0090 15000 ;	CALL FRAMES UNWOUND AND PROCESS RESTARTED AT INP$GET_JOB

                                     0090 15100 ;

                                     0090 15200 ;--

                                     0090 15300 	PURE_SECTION

                                     002D 15400 

                                     002D 15500 INP$HANDLER::

                               0FFC  002D 15600 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>

            59       0000'CF     DE  002F 15700 	MOVAL	W^INP$G_FAB,R9		;GET ADDRESS OF FAB

HANDLER         - INPUT SYMBIONT CONDITION HANDLER               21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   4

X0001           CONDITION HANDLER                                                                                                (1)



            5A       0000'CF     DE  0034 15800 	MOVAL	W^INP$G_RAB,R10		;GET ADDRESS OF RAB

            5B       0000'CF     DE  0039 15900 	MOVAL	W^INP$G_DATA,R11	;GET ADDRESS OF GLOBAL DATA

                                     003E 16000 ;

                                     003E 16100 ; DECIDE WHERE THE MESSAGE(S) SHOULD BE PUT

                                     003E 16200 ;

         41 AB            01     E1  003E 16300 	BBC	#FLAG_V_NAME,ID_L_FLAGS(R11),PUTMSG ;BR IF NO $JOB YET

                          66         0042       

         41 AB            11     E1  0043 16400 	BBC	#FLAG_V_CREATED,ID_L_FLAGS(R11),10$ ;BR IF COMMAND FILE NOT CREATED

                          2A         0047       

                                     0048 16500 ;

                                     0048 16600 ; MESSAGES WILL BE PUT IN COMMAND FILE

                                     0048 16700 ;

                       02 A9     B5  0048 16800 	TSTW	FAB$W_IFI(R9)		;IS FILE STILL OPEN?

                          5C     12  004B 16900 	BNEQ	PUTMSG			;BR IF YES

         16 A9            01     90  004D 16950 	MOVB	#FAB$M_PUT,FAB$B_FAC(R9) ;ALLOW $PUT FILE ACCESS

                                     0051 17000 	$OPEN	(R9)			;RE-OPEN THE FILE

            15            50     E9  005A 17100 	BLBC	R0,10$			;BR IF ERROR

                                     005D 17200 	SETBIT	RAB$V_EOF,RAB$L_ROP(R10);POSITION FILE AT END-OF-FILE

                                     0062 17300 	$CONNECT (R10)			;CONNECT THE RAB

                                     006B 17400 	CLRBIT	RAB$V_EOF,RAB$L_ROP(R10);CLEAR EOF FLAG

                          37     11  0070 17500 	BRB	PUTMSG			;BR - PUT THE MESSAGE(S)

                                     0072 17600 ;

                                     0072 17700 ; MESSAGE(S) WILL BE PUT IN SPECIAL ERROR FILE

                                     0072 17800 ;

                                     0072 17900 10$:	$CMKRNL_S W^INP$SET_ACCNT,W^SYS_ACCNT ;RESTORE UIC/ACCOUNT

                       35 A9     94  0081 18000 	CLRB	FAB$B_DNS(R9)		;RESTORE DEFAULT TO SYMBIONT'S

         34 A9       FF98 CF     90  0084 18100 	MOVB	W^ERR_FILE,FAB$B_FNS(R9);SET FILE NAME SIZE

         2C A9       FF93 CF     DE  008A 18200 	MOVAL	W^ERR_FILE+1,FAB$L_FNA(R9) ;SET FILE NAME ADDRESS

                     000C'CF     D4  0090 18250 	CLRL	W^NAM$L_ESA+INP$G_NAM	;LEAVE PREVIOUS NAME STRING

                                     0094 18300 	$CREATE (R9)			;CREATE THE ERROR FILE

            09            50     E9  009D 18400 	BLBC	R0,PUTMSG		;BR IF ERROR - JUST SEND TO OP

                                     00A0 18500 	$CONNECT (R10)			;CONNECT THE RAB

                                     00A9 18600 ;

                                     00A9 18700 ; CALL SYS$PUTMSG TO OUTPUT THE MESSAGE(S)

                                     00A9 18800 ;

                                     00A9 18900 PUTMSG:

         04 BC            02     A2  00A9 19000 	SUBW	#2,@CHF$L_SIGARGLST(AP)	;DON'T PASS PC AND PSL

                     FF4F CF     DF  00AD 19100 	PUSHAL	FACILITY		;ADDR OF FACILITY NAME DESC

                     0135'CF     DF  00B1 19200 	PUSHAL	W^ACTION		;ADDR OF ACTION ROUTINE

                       04 AC     DD  00B5 19300 	PUSHL	CHF$L_SIGARGLST(AP)	;ADDR OF SIGNAL ARGS

   00000000'EF            03     FB  00B8 19400 	CALLS	#3,SYS$PUTMSG		;GET THE MESSAGES

         04 BC            02     A0  00BF 19450 	ADDW	#2,@CHF$L_SIGARGLST(AP)	;RESTORE CORRECT ARG COUNT

                                     00C3 19500 ;

                                     00C3 19600 ; IF MESSAGE(S) WERE PUT IN A FILE, CLOSE AND QUEUE IT FOR PRINTING

                                     00C3 19700 ;

                       02 A9     B5  00C3 19800 	TSTW	FAB$W_IFI(R9)		;IS A FILE OPEN?

                          41     13  00C6 19900 	BEQL	UNWIND			;BR IF NOT

                                     00C8 20000 	$DISCONNECT (R10)		;DISCONNECT THE RAB

                                     00D1 20100 	$CLOSE	(R9)			;CLOSE THE FILE

            56       0000'CF     DE  00DA 20200 	MOVAL	W^INP$G_SYMMSG,R6	;GET ADDR OF SYMBIONT MESSAGE

            66            08     B0  00DF 20300 	MOVW	#SMR$K_ENTER,SM_W_REQUEST(R6) ;SET REQUEST TYPE

       FF27 CF            10     28  00E2 20400 	MOVC3	#16,W^PRINT_QUEUE,SM_T_QUEUE(R6) ;SET QUEUE NAME

                       02 A6         00E7       

                                     00E9 20500 	ASSUME	NAM$W_FID EQ NAM$T_DVI+16

                                     00E9 20600 	ASSUME	NAM$W_DID EQ NAM$W_FID+6

                          1C     28  00E9 20700 	MOVC3	#16+6+6,W^NAM$T_DVI+INP$G_NAM,- ;SET DEVICE, FILE ID, DIR

         12 A6       0014'CF         00EB 20800 		SM_T_DEVNAME(R6)

HANDLER         - INPUT SYMBIONT CONDITION HANDLER               21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   5

X0001           CONDITION HANDLER                                                                                                (1)



       FF2B CF            10     28  00F0 20900 	MOVC3	#16,W^ERR_FILE,SM_T_FILENAME(R6) ;SET JOB NAME

                       2E A6         00F5       

         42 A6            01     90  00F7 21000 	MOVB	#SMO$K_DELETE,SM_T_OPTIONS(R6) ;SET TO DELETE AFTER PRNT

                                     00FB 21100 	$SNDSMB_S SYMMSG_DESC		;QUEUE IT FOR PRINTING

                                     0109 21200 

                                     0109 21300 ;

                                     0109 21400 ; UNWIND CALL FRAMES AND RESTART AT INP$GET_JOB

                                     0109 21500 ;

                                     0109 21600 UNWIND:

            52         08 AC     D0  0109 21700 	MOVL	CHF$L_MCHARGLST(AP),R2	;GET ADDRESS OF MECHANISM ARRAY

                       08 A2     D5  010D 21800 	TSTL	CHF$L_MCH_DEPTH(R2)	;AT ESTABLISHER DEPTH?

                          14     12  0110 21900 	BNEQ	10$			;BR IF NOT

            52         04 AC     D0  0112 22000 	MOVL	CHF$L_SIGARGLST(AP),R2	;GET ADDRESS OF SIGNAL ARRAY

            62            01     C3  0116 22100 	SUBL3	#1,CHF$L_SIG_ARGS(R2),R3;SAVED PC IS SECOND TO LAST ARG

                          53         0119       

            6243     0000'CF     DE  011A 22200 	MOVAL	W^INP$GET_JOB,(R2)[R3]	;SET NEW PC

            50       0000'8F     3C  0120 22250 	MOVZWL	#SS$_CONTINUE,R0	;CONTINUE AT NEW PC

                                 04  0125 22300 	RET

                                     0126 22400 10$:

                     0000'CF     DF  0126 22500 	PUSHAL	W^INP$GET_JOB		;NEW PC

                       08 A2     DF  012A 22510 	PUSHAL	CHF$L_MCH_DEPTH(R2)	;NUMBER FRAMES TO UNWIND

   00000000'EF            02     FB  012D 22520 	CALLS	#2,SYS$UNWIND		;INIT CALL FRAME TO UNWIND

                                 04  0134 22600 	RET				;...UNWIND AND RESTART AT NEW PC

                                     0135 22700 

                                     0135 22800 ;

                                     0135 22900 ; SYS$PUTMSG ACTION ROUTINE

                                     0135 23000 ;

                                     0135 23100 ACTION:

                               003C  0135 23200 	.WORD	^M<R2,R3,R4,R5>

            52         04 AC     D0  0137 23300 	MOVL	4(AP),R2		;GET ADDR OF MESSAGE DESCRIPTOR

                     0002'CF     B5  013B 23400 	TSTW	W^FAB$W_IFI+INP$G_FAB	;IS A FILE OPEN?

                          1A     13  013F 23500 	BEQL	10$			;BF IF NOT

            51       0000'CF     DE  0141 23600 	MOVAL	W^INP$G_RAB,R1		;GET ADDR OF RAB

         22 A1            62     B0  0146 23700 	MOVW	(R2),RAB$W_RSZ(R1)	;SET RECORD SIZE

         28 A1         04 A2     D0  014A 23800 	MOVL	4(R2),RAB$L_RBF(R1)	;SET RECORD ADDRESS

                                     014F 23900 	$PUT	(R1)			;PUT THE MESSAGE IN THE FILE

            19            50     E8  0158 24000 	BLBS	R0,20$			;BR IF NO ERROR

                                     015B 24100 10$:

         04 B2            62     2C  015B 24200 	MOVC5	(R2),@4(R2),#0,-	;PUT MESSAGE IN OPCOM BUFF

                                     015F       

       0080 8F            00         015F 24300 		#128,W^OPCOM_MSG+OPC$L_MS_TEXT

                     0010'CF         0163       

                                     0166 24400 	$SNDOPR_S W^OPCOM_MSG_DESC	;SEND THE MESSAGE TO THE OPS

                          50     D4  0174 24500 20$:	CLRL	R0			;DON'T PUT MESSAGES ELSEWHERE

                                 04  0176 24600 	RET				;RETURN TO SYS$PUTMSG

                                     0177 24700 

                                     0177 24800 	.END

HANDLER         - INPUT SYMBIONT CONDITION HANDLER               21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (1)



$$.TMP1        = 00000001            FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            

$$.TMP2        = 00000061            FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            

ACTION           00000135 R     03   FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            

BIT...         = 00000071            FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            

CHF$L_MCHARGLST  00000008            FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

CHF$L_MCH_ARGS   00000000            FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

CHF$L_MCH_DEPTH  00000008            FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            

CHF$L_MCH_FRAME  00000004            FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

CHF$L_MCH_SAVR0  0000000C            FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

CHF$L_MCH_SAVR1  00000010            FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

CHF$L_SIGARGLST  00000004            FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

CHF$L_SIG_ARG1   00000008            FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

CHF$L_SIG_ARGS   00000000            FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

CHF$L_SIG_NAME   00000004            FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

ERR_FILE         00000020 R     03   FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            

FAB$B_BID        00000000            FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            

FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            

FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            FAB$V_ORG      = 00000004            

FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            FAB$V_POS      = 00000008            

FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            FAB$V_PPF      = 00000012            

FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            FAB$V_PPF_IND  = 0000000E            

FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            FAB$V_PPF_RAT  = 00000006            

FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            FAB$V_PRN      = 00000002            

FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            FAB$V_PUT      = 00000000            

FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            FAB$V_RCK      = 00000017            

FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            FAB$V_RWC      = 0000000B            

FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            FAB$V_RWO      = 00000007            

FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            FAB$V_SCF      = 0000000E            

FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            FAB$V_SHRDEL   = 00000002            

FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            FAB$V_SHRGET   = 00000001            

FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            FAB$V_SHRPUT   = 00000000            

FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            

FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            

FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            

FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            

FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            

FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            

FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            

FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            

FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            

FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            

FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            

FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            

FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            FAB$V_WCK      = 00000009            

FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            FAB$W_BLS        0000003C            

FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            FAB$W_DEQ        00000014            

FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            FAB$W_IFI        00000002            

FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            FAB$W_MRS        00000036            

FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            FACILITY         00000000 R     03   

FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            FLAG_M_CREATED = 00020000            

FAB$L_STS        00000008            FAB$V_BLK      = 00000003            FLAG_M_INITOK  = 00010000            

FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            FLAG_M_JOB     = 00000001            

FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            FLAG_M_NAME    = 00000002            

FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            FLAG_M_NODEL   = 00000004            

FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            FLAG_M_NOTRAIL = 00000008            

FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            FLAG_V_CREATED = 00000011            

FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            FLAG_V_INITOK  = 00000010            

HANDLER         - INPUT SYMBIONT CONDITION HANDLER               21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



FLAG_V_JOB     = 00000000            NAM$L_FNB        00000034            NAM$V_WILD_TYPE= 00000004            

FLAG_V_NAME    = 00000001            NAM$L_RLF        00000010            NAM$V_WILD_UFD = 00000018            

FLAG_V_NODEL   = 00000002            NAM$L_RSA        00000004            NAM$V_WILD_VER = 00000003            

FLAG_V_NOTRAIL = 00000003            NAM$L_WCC        00000030            NAM$W_DID        0000002A            

GBL...         = 00000000            NAM$M_DIR_LVLS = 00E00000            NAM$W_DID_NUM    0000002A            

ID_B_INBUF_INDX  00000032            NAM$M_EXP_DEV  = 00000080            NAM$W_DID_RVN    0000002E            

ID_K_SIZE        000001D1            NAM$M_EXP_DIR  = 00000040            NAM$W_DID_SEQ    0000002C            

ID_L_FLAGS       00000041            NAM$M_EXP_NAME = 00000004            NAM$W_FID        00000024            

ID_L_OPT_PTR     0000003D            NAM$M_EXP_TYPE = 00000002            NAM$W_FID_NUM    00000024            

ID_Q_ACCNT_DESC  0000001A            NAM$M_EXP_VER  = 00000001            NAM$W_FID_RVN    00000028            

ID_Q_IOSB        00000002            NAM$M_GRP_MBR  = 00080000            NAM$W_FID_SEQ    00000026            

ID_Q_JOBNM_DESC  00000022            NAM$M_HIGHVER  = 00008000            NAM$W_PRV_DID    0000003A            

ID_Q_PASSW_DESC  0000000A            NAM$M_LOWVER   = 00004000            OPC$B_MS_ENAB    00000001            

ID_Q_TIMEOUT     00000033            NAM$M_NODE     = 00020000            OPC$B_MS_TARGET  00000001            

ID_Q_UNAME_DESC  00000012            NAM$M_PPF      = 00010000            OPC$B_MS_TYPE    00000000            

ID_T_CHAN_INFO   00000045            NAM$M_QUOTED   = 00040000            OPC$L_MS_MASK    00000004            

ID_T_DEF_DIR     00000051            NAM$M_WILDCARD = 00000100            OPC$L_MS_MAXSZ   0000009A            

ID_T_JOB_CARD    000000D1            NAM$M_WILD_DIR = 00100000            OPC$L_MS_OTEXT   0000001A            

ID_T_PASSWORD    0000002A            NAM$M_WILD_GRP = 01000000            OPC$L_MS_RPLYID  00000004            

ID_W_CRCHAN      00000000            NAM$M_WILD_MBR = 02000000            OPC$L_MS_RQSTID  00000004            

ID_W_MBCHAN      0000003B            NAM$M_WILD_NAME= 00000020            OPC$L_MS_TEXT    00000008            

INP$GET_JOB      ********   X   03   NAM$M_WILD_SFD1= 02000000            OPC$M_NM_CARDS = 00000020            

INP$G_DATA       ********   X   03   NAM$M_WILD_SFD2= 04000000            OPC$M_NM_CENTRL= 00000001            

INP$G_FAB        ********   X   03   NAM$M_WILD_SFD3= 08000000            OPC$M_NM_DEVICE= 00000010            

INP$G_NAM        ********   X   03   NAM$M_WILD_SFD4= 10000000            OPC$M_NM_DISKS = 00000008            

INP$G_RAB        ********   X   03   NAM$M_WILD_SFD5= 20000000            OPC$M_NM_NTWORK= 00000040            

INP$G_SYMMSG     ********   X   03   NAM$M_WILD_SFD6= 40000000            OPC$M_NM_OPER1 = 00001000            

INP$HANDLER      0000002D RG    03   NAM$M_WILD_SFD7= 80000000            OPC$M_NM_OPER10= 00200000            

INP$K_CREFN    = 00000001            NAM$M_WILD_TYPE= 00000010            OPC$M_NM_OPER11= 00400000            

INP$K_GENEFN   = 00000000            NAM$M_WILD_UFD = 01000000            OPC$M_NM_OPER12= 00800000            

INP$K_JOBCRDSZ = 00000100            NAM$M_WILD_VER = 00000008            OPC$M_NM_OPER2 = 00002000            

INP$K_MAXRSS   = 00000080            NAM$S_DIR_LVLS = 00000003            OPC$M_NM_OPER3 = 00004000            

INP$K_OPTBUFSZ = 00000048            NAM$T_DVI        00000014            OPC$M_NM_OPER4 = 00008000            

INP$K_TIMEFN   = 00000002            NAM$V_DIR_LVLS = 00000015            OPC$M_NM_OPER5 = 00010000            

INP$K_UAFBUFSZ = 00000100            NAM$V_EXP_DEV  = 00000007            OPC$M_NM_OPER6 = 00020000            

INP$SET_ACCNT    ********   X   03   NAM$V_EXP_DIR  = 00000006            OPC$M_NM_OPER7 = 00040000            

NAM$B_BID        00000000            NAM$V_EXP_NAME = 00000002            OPC$M_NM_OPER8 = 00080000            

NAM$B_BLN        00000001            NAM$V_EXP_TYPE = 00000001            OPC$M_NM_OPER9 = 00100000            

NAM$B_CURLVL     00000038            NAM$V_EXP_VER  = 00000000            OPC$M_NM_PRINT = 00000002            

NAM$B_ESL        0000000B            NAM$V_GRP_MBR  = 00000013            OPC$M_NM_TAPES = 00000004            

NAM$B_ESS        0000000A            NAM$V_HIGHVER  = 0000000F            OPC$T_MS_ONAME   0000000A            

NAM$B_RSL        00000003            NAM$V_LOWVER   = 0000000E            OPC$V_NM_CARDS = 00000005            

NAM$B_RSS        00000002            NAM$V_NODE     = 00000011            OPC$V_NM_CENTRL= 00000000            

NAM$C_BID      = 00000002            NAM$V_PPF      = 00000010            OPC$V_NM_DEVICE= 00000004            

NAM$C_BLN        00000038            NAM$V_QUOTED   = 00000012            OPC$V_NM_DISKS = 00000003            

NAM$C_BLN_DIRWC  00000050            NAM$V_WILDCARD = 00000008            OPC$V_NM_NTWORK= 00000006            

NAM$C_DVI      = 00000010            NAM$V_WILD_DIR = 00000014            OPC$V_NM_OPER1 = 0000000C            

NAM$C_MAXRSS   = 00000080            NAM$V_WILD_GRP = 00000018            OPC$V_NM_OPER10= 00000015            

NAM$C_MAXRSSLCL= 00000060            NAM$V_WILD_MBR = 00000019            OPC$V_NM_OPER11= 00000016            

NAM$K_BLN        00000038            NAM$V_WILD_NAME= 00000005            OPC$V_NM_OPER12= 00000017            

NAM$K_BLN_DIRWC  00000050            NAM$V_WILD_SFD1= 00000019            OPC$V_NM_OPER2 = 0000000D            

NAM$L_DIRWCC1    00000040            NAM$V_WILD_SFD2= 0000001A            OPC$V_NM_OPER3 = 0000000E            

NAM$L_DIRWCC2    00000044            NAM$V_WILD_SFD3= 0000001B            OPC$V_NM_OPER4 = 0000000F            

NAM$L_DIRWCC3    00000048            NAM$V_WILD_SFD4= 0000001C            OPC$V_NM_OPER5 = 00000010            

NAM$L_DIRWCC4    0000004C            NAM$V_WILD_SFD5= 0000001D            OPC$V_NM_OPER6 = 00000011            

NAM$L_DWC        00000038            NAM$V_WILD_SFD6= 0000001E            OPC$V_NM_OPER7 = 00000012            

NAM$L_ESA        0000000C            NAM$V_WILD_SFD7= 0000001F            OPC$V_NM_OPER8 = 00000013            

HANDLER         - INPUT SYMBIONT CONDITION HANDLER               21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



OPC$V_NM_OPER9 = 00000014            RAB$L_FAB        0000003C            RAB$V_PPF_RAT  = 00000006            

OPC$V_NM_PRINT = 00000001            RAB$L_KBF        00000030            RAB$V_PTA      = 0000001D            

OPC$V_NM_TAPES = 00000002            RAB$L_PBF        00000030            RAB$V_RAH      = 00000009            

OPC$W_MS_OUNIT   00000008            RAB$L_RBF        00000028            RAB$V_RLK      = 00000013            

OPC$W_MS_STATUS  00000002            RAB$L_RFA0       00000010            RAB$V_RNE      = 00000018            

OPC$_DEVNOTERM = 00058074            RAB$L_RHB        0000002C            RAB$V_RNF      = 0000001B            

OPC$_DEVOFFLINE= 0005804C            RAB$L_ROP        00000004            RAB$V_TMO      = 00000019            

OPC$_DEVONLINE = 00058054            RAB$L_STS        00000008            RAB$V_TPT      = 00000001            

OPC$_ILLRQST   = 0005807C            RAB$L_STV        0000000C            RAB$V_UIF      = 00000004            

OPC$_LOGCLOS   = 000580A4            RAB$L_UBF        00000024            RAB$V_ULK      = 00000012            

OPC$_LOGFAIL   = 00058034            RAB$M_ASY      = 00000001            RAB$V_WAT      = 00000011            

OPC$_LOGINIT   = 00058009            RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A            

OPC$_LOGTIME   = 00058099            RAB$M_CCO      = 80000000            RAB$W_ISI        00000002            

OPC$_NOCLI     = 0005805C            RAB$M_CVT      = 04000000            RAB$W_RFA        00000010            

OPC$_NOPERATOR = 00058061            RAB$M_EOF      = 00000100            RAB$W_RFA4       00000014            

OPC$_NOSUCHRQST= 00058044            RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022            

OPC$_OPREPLY   = 00058091            RAB$M_HSH      = 00000080            RAB$W_USZ        00000020            

OPC$_OPRNOTIF  = 00058089            RAB$M_KGE      = 00200000            SMO$K_BRSTPAG  = 00000002            

OPC$_RQSTABORT = 0005801C            RAB$M_KGT      = 00400000            SMO$K_COPIES   = 0000000A            

OPC$_RQSTCAN   = 00058084            RAB$M_LIM      = 00004000            SMO$K_CURFORM  = 00000040            

OPC$_RQSTCMPLTE= 00058029            RAB$M_LOA      = 00002000            SMO$K_DEFBRST  = 00000046            

OPC$_RQSTPEND  = 00058021            RAB$M_LOC      = 00010000            SMO$K_DEFFLAG  = 00000048            

OPC$_RQ_CANCEL = 00000005            RAB$M_MAS      = 00000020            SMO$K_DELETE   = 00000001            

OPC$_RQ_LOGI   = 00000002            RAB$M_NLK      = 00100000            SMO$K_DETJOB   = 00000043            

OPC$_RQ_REPLY  = 00000004            RAB$M_NXR      = 00800000            SMO$K_DISWAP   = 0000004E            

OPC$_RQ_RQST   = 00000003            RAB$M_PMT      = 40000000            SMO$K_DOUBLE   = 00000007            

OPC$_RQ_STATUS = 00000006            RAB$M_PPF_IND  = 00004000            SMO$K_FLAGPAG  = 00000004            

OPC$_RQ_TERME  = 00000001            RAB$M_PPF_RAT  = 00003FC0            SMO$K_FORMTYPE = 00000024            

OPC$_TERMDSBL  = 00058011            RAB$M_PTA      = 20000000            SMO$K_GENDEV   = 00000044            

OPC$_TERMENAB  = 00058001            RAB$M_RAH      = 00000200            SMO$K_GENPRT   = 00000041            

OPC$_TERMFAIL  = 0005803C            RAB$M_RLK      = 00080000            SMO$K_HOLD     = 00000021            

OPC$_UNKNOPR   = 0005806C            RAB$M_RNE      = 01000000            SMO$K_INIPRI   = 0000004D            

OPCOM_MSG        00000008 R     04   RAB$M_RNF      = 08000000            SMO$K_JOBCOPY  = 00000023            

OPCOM_MSG_DESC   00000000 R     04   RAB$M_TMO      = 02000000            SMO$K_JOBLIM   = 0000004C            

PRINT_QUEUE      0000000E R     03   RAB$M_TPT      = 00000002            SMO$K_JOBNAME  = 00000027            

PUTMSG           000000A9 R     03   RAB$M_UIF      = 00000010            SMO$K_JOBPRI   = 00000022            

RAB$B_BID        00000000            RAB$M_ULK      = 00040000            SMO$K_LOWER    = 00000025            

RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            SMO$K_NEXTJOB  = 00000060            

RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            SMO$K_NOBRSTPAG= 00000003            

RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            SMO$K_NODEFBRST= 00000047            

RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            SMO$K_NODEFFLAG= 00000049            

RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            SMO$K_NOFEED   = 00000008            

RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            SMO$K_NOFLAGPAG= 00000005            

RAB$B_RAC        0000001E            RAB$V_CVT      = 0000001A            SMO$K_NOGENDEV = 00000045            

RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            SMO$K_NOGENPRT = 00000042            

RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            SMO$K_NOLOWER  = 00000028            

RAB$B_ROP3       00000007            RAB$V_HSH      = 00000007            SMO$K_NOTRMDEV = 0000004B            

RAB$B_TMO        0000001F            RAB$V_KGE      = 00000015            SMO$K_PAGCNT   = 00000009            

RAB$C_BID      = 00000001            RAB$V_KGT      = 00000016            SMO$K_PAGHDR   = 00000006            

RAB$C_BLN        00000044            RAB$V_LIM      = 0000000E            SMO$K_PARAMS   = 00000026            

RAB$C_KEY      = 00000001            RAB$V_LOA      = 0000000D            SMO$K_REQUEUE  = 00000070            

RAB$C_RFA      = 00000002            RAB$V_LOC      = 00000010            SMO$K_RLSTIM   = 00000020            

RAB$C_SEQ      = 00000000            RAB$V_MAS      = 00000005            SMO$K_SPCCNT   = 00000062            

RAB$K_BLN        00000044            RAB$V_NLK      = 00000014            SMO$K_TOPOFILE = 00000061            

RAB$L_BKT        00000038            RAB$V_NXR      = 00000017            SMO$K_TRMDEV   = 0000004A            

RAB$L_CTX        00000018            RAB$V_PMT      = 0000001E            SMR$K_ABORT    = 0000000E            

RAB$L_DCT        00000038            RAB$V_PPF_IND  = 0000000E            SMR$K_ADDFIL   = 0000000A            

HANDLER         - INPUT SYMBIONT CONDITION HANDLER               21-AUG-1978 21:37:57   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



SMR$K_ALTER    = 0000000D            

SMR$K_CLSJOB   = 0000000B            

SMR$K_CREJOB   = 00000009            

SMR$K_DELETE   = 00000001            

SMR$K_DETINIT  = 00000010            

SMR$K_ENTER    = 00000008            

SMR$K_INITIAL  = 00000000            

SMR$K_JUSTIFY  = 00000006            

SMR$K_MERGE    = 00000004            

SMR$K_PAUSE    = 00000003            

SMR$K_REDIRECT = 00000005            

SMR$K_RELEASE  = 0000000F            

SMR$K_RMVJOB   = 0000000C            

SMR$K_START    = 00000002            

SMR$K_STOP     = 00000007            

SMR$K_SYNCJOB  = 00000011            

SM_K_SIZE        0000008A            

SM_T_DEVNAME     00000012            

SM_T_FILENAME    0000002E            

SM_T_OPTIONS     00000042            

SM_T_QUEUE       00000002            

SM_W_DIRID       00000028            

SM_W_FILEID      00000022            

SM_W_REQUEST     00000000            

SS$_CONTINUE     ********   X   03   

SYMMSG_DESC      00000018 R     03   

SYS$CLOSE        ********  GX   03   

SYS$CMKRNL       ********   X   03   

SYS$CONNECT      ********  GX   03   

SYS$CREATE       ********  GX   03   

SYS$DISCONNECT   ********  GX   03   

SYS$OPEN         ********  GX   03   

SYS$PUT          ********  GX   03   

SYS$PUTMSG       ********   X   03   

SYS$SNDOPR       ********   X   03   

SYS$SNDSMB       ********   X   03   

SYS$UNWIND       ********   X   03   

SYS_ACCNT        ********   X   03   

UNWIND           00000109 R     03   

_$$_           = 000000EF            





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            000001D1      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

INP_PURE         00000177      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT LONG  

INP_RWDATA       00000090      04     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

10166. BYTES LEFT IN FREE MEMORY POOL.

796. BYTES OF RECLAIMED MEMORY.

OBJ$:HANDLER,LIS$:HANDLER/-SP=SRC$:PREFIX,SRC$:HANDLER

21 MLB DIR RDS - 744 GETS TO DEFINE 28 MACROS. 65 INTER. FILE WRITES. 

