.TITLE  BATCH
	.IDENT  \01-006\
	.PSECT  $GLOBAL$,NOEXE,2
CTRLC:: .BLKB   4
JOB_NAME::
	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
JOB_QUEUE::
	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
JOB_USER::
	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
JOB_PRINTER::
	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
JOB_LOG_FILE::
	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
JOB_AFTER_DATE::
	.BLKB   8
JOB_CPUTIME::
	.BLKB   4
JOB_PRIORITY::
	.BLKB   4
JOB_WSDEFAULT::
	.BLKB   4
JOB_WSEXTENT::
	.BLKB   4
JOB_WSQUOTA::
	.BLKB   4
JOB_KEEP::
	.BLKB   1
JOB_USE_CPUTIME::
	.BLKB   1
JOB_USE_PRIORITY::
	.BLKB   1
JOB_NOTIFY::
	.BLKB   1
JOB_RESTART::
	.BLKB   1
JOB_NO_LOG::
	.BLKB   1
JOB_NO_PRINT::
	.BLKB   1
JOB_HOLD::
	.BLKB   1
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.AAB:	.ASCII  \CMDS\
P.AAA:	.LONG   17694724
	.ADDRESS P.AAB
P.AAD:	.ASCII  \QUEUE\<0><0><0>
P.AAC:	.LONG   17694725
	.ADDRESS P.AAD
P.AAF:	.ASCII  \AFTER\<0><0><0>
P.AAE:	.LONG   17694725
	.ADDRESS P.AAF
P.AAH:	.ASCII  \CPUTIME\<0>
P.AAG:	.LONG   17694727
	.ADDRESS P.AAH
P.AAJ:	.ASCII  \HOLD\
P.AAI:	.LONG   17694724
	.ADDRESS P.AAJ
P.AAL:	.ASCII  \KEEP\
P.AAK:	.LONG   17694724
	.ADDRESS P.AAL
P.AAN:	.ASCII  \LOG_FILE\
P.AAM:	.LONG   17694728
	.ADDRESS P.AAN
P.AAP:	.ASCII  \NAME\
P.AAO:	.LONG   17694724
	.ADDRESS P.AAP
P.AAR:	.ASCII  \NOTIFY\<0><0>
P.AAQ:	.LONG   17694726
	.ADDRESS P.AAR
P.AAT:	.ASCII  \PRINTER\<0>
P.AAS:	.LONG   17694727
	.ADDRESS P.AAT
P.AAV:	.ASCII  \PRIORITY\
P.AAU:	.LONG   17694728
	.ADDRESS P.AAV
P.AAX:	.ASCII  \RESTART\<0>
P.AAW:	.LONG   17694727
	.ADDRESS P.AAX
P.AAZ:	.ASCII  \USER\
P.AAY:	.LONG   17694724
	.ADDRESS P.AAZ
P.ABB:	.ASCII  \WSDEFAULT\<0><0><0>
P.ABA:	.LONG   17694729
	.ADDRESS P.ABB
P.ABD:	.ASCII  \WSEXTENT\
P.ABC:	.LONG   17694728
	.ADDRESS P.ABD
P.ABF:	.ASCII  \WSQUOTA\<0>
P.ABE:	.LONG   17694727
	.ADDRESS P.ABF
P.ABH:	.ASCII  \BATCHTMP_!XL.COM\
P.ABG:	.LONG   16
	.ADDRESS P.ABH
P.ABJ:	.ASCII  \$!!  Created by !AD\
	.BLKB   1
P.ABI:	.LONG   19
	.ADDRESS P.ABJ
P.ABL:	.ASCII  \$!!  !%D\
P.ABK:	.LONG   8
	.ADDRESS P.ABL
P.ABN:	.ASCII  \$ SET NOON\
	.BLKB   2
P.ABM:	.LONG   10
	.ADDRESS P.ABN
P.ABP:	.ASCII  \$ SET VERIFY\
P.ABO:	.LONG   12
	.ADDRESS P.ABP
P.ABR:	.ASCII  \$ SET OUTPUT_RATE=00:00:05\
	.BLKB   2
P.ABQ:	.LONG   26
	.ADDRESS P.ABR
P.ABT:	.ASCII  \LNM$PROCESS_TABLE\
	.BLKB   3
P.ABS:	.LONG   17
	.ADDRESS P.ABT
P.ABV:	.ASCII  \SYS$DISK\
P.ABU:	.LONG   8
	.ADDRESS P.ABV
P.ABX:	.ASCII  \$ SET DEFAULT \
	.BLKB   2
P.ABW:	.LONG   14
	.ADDRESS P.ABX
P.ABZ:	.ASCII  \$ EXIT\
	.BLKB   2
P.ABY:	.LONG   6
	.ADDRESS P.ABZ
	.PSECT  $OWN$,NOEXE,2
U.48:	.BYTE   3
	.BYTE   80
	.WORD   0
	.LONG   66
	.LONG   0
	.LONG   0
	.LONG   0
	.WORD   0
	.BYTE   1
	.BYTE   0
	.LONG   0
	.BYTE   0
	.BYTE   0
	.BYTE   2
	.BYTE   2
	.BYTE   0
	.BYTE   0
	.WORD   0
	.LONG   0
	.LONG   0
	.LONG   0
	.LONG   0
	.BYTE   0
	.BYTE   0
	.WORD   512
	.LONG   0
	.WORD   0
	.BYTE   0
	.BYTE   0
	.LONG   0
	.LONG   0
	.WORD   0
	.BYTE   0
	.BYTE   0
	.LONG   0
U.49:	.BYTE   1
	.BYTE   68
	.WORD   0
	.LONG   0
	.LONG   0
	.LONG   0
	.WORD   0[3]
	.WORD   0
	.LONG   0
	.WORD   0
	.BYTE   0
	.BYTE   0
	.WORD   0
	.WORD   0
	.LONG   0
	.LONG   0
	.LONG   0
	.LONG   0
	.BYTE   0
	.BYTE   0
	.BYTE   0
	.BYTE   0
	.LONG   0
	.ADDRESS U.48
	.LONG   0
U.50:	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
U.51:	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
U.52:	.LONG   0
U.53:	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
U.54:	.BLKB   256
U.55:	.WORD   256
	.BYTE   14, 1
	.ADDRESS U.54
U.56:	.BLKB   256
U.57:	.WORD   256
	.BYTE   14, 1
	.ADDRESS U.56
U.58:	.BLKB   256
U.59:	.WORD   256
	.BYTE   14, 1
	.ADDRESS U.58
U.60:	.BLKB   255
	.BLKB   1
U.61:	.BLKB   4
U.62:	.WORD   255, 2
	.ADDRESS U.60, U.61
	.LONG   0
U.63:	.BLKB   4
U.64:	.BLKB   12
U.65:	.BLKB   4
U.66:	.WORD   4, 793
	.ADDRESS U.63
	.LONG   0
	.WORD   12, 514
	.ADDRESS U.64, U.65
	.LONG   0
U.32=		    P.AAA
U.33=		    P.AAC
U.34=		    P.AAE
U.35=		    P.AAG
U.36=		    P.AAI
U.37=		    P.AAK
U.38=		    P.AAM
U.39=		    P.AAO
U.40=		    P.AAQ
U.41=		    P.AAS
U.42=		    P.AAU
U.43=		    P.AAW
U.44=		    P.AAY
U.45=		    P.ABA
U.46=		    P.ABC
U.47=		    P.ABE
	.EXTRN  HG$GET_INPUT, CLI$DCL_PARSE, CLI$DISPATCH, CLI$GET_VALUE, CLI$PRESENT, LIB$CVT_FROM_INTERNAL_TIME
	.EXTRN  LIB$DELETE_FILE, LIB$DO_COMMAND, LIB$GET_FOREIGN, LIB$PUT_OUTPUT, OTS$CVT_TU_L, STR$CONCAT
	.EXTRN  STR$COPY_DX, STR$COPY_R, STR$LEFT, SYS$SETDDIR, CLI$_PRESENT, CLI$_ABSENT, CLI$_NEGATED
	.EXTRN  BAT_ABORT, BAT_NOCMDS, BAT_INVQUAVAL, SYS$GETJPIW, SYS$FAO, SYS$CREATE, SYS$CONNECT
	.EXTRN  SYS$TRNLNM, SYS$CLOSE
	.PSECT  $CODE$,NOWRT,2
U.2:	.WORD   ^M<R2,R3,R4,R5,R6,R7,R8>
	MOVAB   G^STR$CONCAT, R8
	MOVAB   G^SYS$FAO, R7
	MOVAB   W^U.11, R6
	MOVAB   W^P.ABG, R5
	MOVAB   G^LIB$SIGNAL, R4
	MOVAB   W^U.49, R3
	PUSHAB  68(R3)
	CALLS   #1, W^U.8
	MOVL    R0, R2
	BLBS    R2, 1$
	BISL3   #268435456, R2, R0
	RET
1$:	CALLS   #0, W^U.3
	MOVL    R0, R2
	BLBS    R2, 2$
	PUSHL   R2
	CALLS   #1, (R4)
2$:	CLRQ    -(SP)
	CLRL    -(SP)
	PUSHAB  1184(R3)
	CLRQ    -(SP)
	CLRL    -(SP)
	CALLS   #7, G^SYS$GETJPIW
	MOVL    R0, R2
	BLBS    R2, 3$
	PUSHL   R2
	CALLS   #1, (R4)
3$:	PUSHL   1164(R3)
	PUSHAB  352(R3)
	PUSHAB  352(R3)
	PUSHL   R5
	CALLS   #4, (R7)
	MOVL    R0, R2
	BLBS    R2, 4$
	PUSHL   R2
	CALLS   #1, (R4)
4$:	MOVB    352(R3), -28(R3)
	MOVL    356(R3), -36(R3)
	PUSHAB  -80(R3)
	CALLS   #1, G^SYS$CREATE
	MOVL    R0, R2
	BLBS    R2, 5$
	MOVQ    -72(R3), -(SP)
	CALLS   #2, (R4)
5$:	PUSHL   R3
	CALLS   #1, G^SYS$CONNECT
	MOVL    R0, R2
	BLBS    R2, 6$
	MOVQ    8(R3), -(SP)
	CALLS   #2, (R4)
6$:	CLRL    -(SP)
	PUSHAB  1168(R3)
	PUSHL   1180(R3)
	PUSHAB  616(R3)
	PUSHAB  616(R3)
	PUSHAB  28(R5)
	CALLS   #6, (R7)
	MOVL    R0, R2
	BLBS    R2, 7$
	PUSHL   R2
	CALLS   #1, (R4)
7$:	PUSHAB  616(R3)
	PUSHL   R3
	CALLS   #2, (R6)
	MOVL    R0, R2
	MOVW    #256, 616(R3)
	CLRL    -(SP)
	PUSHAB  616(R3)
	PUSHAB  616(R3)
	PUSHAB  44(R5)
	CALLS   #4, (R7)
	MOVL    R0, R2
	BLBS    R2, 8$
	PUSHL   R2
	CALLS   #1, (R4)
8$:	PUSHAB  616(R3)
	PUSHL   R3
	CALLS   #2, (R6)
	MOVL    R0, R2
	PUSHAB  64(R5)
	PUSHL   R3
	CALLS   #2, (R6)
	MOVL    R0, R2
	PUSHAB  84(R5)
	PUSHL   R3
	CALLS   #2, (R6)
	MOVL    R0, R2
	PUSHAB  120(R5)
	PUSHL   R3
	CALLS   #2, (R6)
	MOVL    R0, R2
	PUSHAB  1148(R3)
	CLRL    -(SP)
	PUSHAB  164(R5)
	PUSHAB  148(R5)
	CLRL    -(SP)
	CALLS   #5, G^SYS$TRNLNM
	MOVL    R0, R2
	BLBS    R2, 9$
	PUSHL   R2
	CALLS   #1, (R4)
9$:	PUSHAB  880(R3)
	PUSHAB  880(R3)
	CLRL    -(SP)
	CALLS   #3, G^SYS$SETDDIR
	MOVL    R0, R2
	BLBS    R2, 10$
	PUSHL   R2
	CALLS   #1, (R4)
10$:	PUSHAB  888(R3)
	PUSHAB  1144(R3)
	PUSHAB  88(R3)
	CALLS   #3, G^STR$COPY_R
	MOVL    R0, R2
	PUSHAB  88(R3)
	PUSHAB  188(R5)
	PUSHAB  88(R3)
	CALLS   #3, (R8)
	MOVL    R0, R2
	PUSHAB  880(R3)
	PUSHAB  88(R3)
	PUSHAB  88(R3)
	CALLS   #3, (R8)
	MOVL    R0, R2
	PUSHAB  88(R3)
	PUSHL   R3
	CALLS   #2, (R6)
	MOVL    R0, R2
	TSTW    68(R3)
	BNEQ    11$
	PUSHAB  84(R3)
	PUSHL   R3
	CALLS   #2, W^U.9
	BRB     12$
11$:	INCL    84(R3)
	PUSHL   R3
	PUSHAB  68(R3)
	CALLS   #2, W^U.7
12$:	MOVL    R0, R2
	BLBS    R2, 13$
	PUSHL   R2
	CALLS   #1, (R4)
13$:	PUSHAB  204(R5)
	PUSHL   R3
	CALLS   #2, (R6)
	MOVL    R0, R2
	PUSHAB  -80(R3)
	CALLS   #1, G^SYS$CLOSE
	MOVL    R0, R2
	BLBS    R2, 14$
	PUSHL   -68(R3)
	CLRL    -(SP)
	PUSHL   -72(R3)
	CALLS   #3, (R4)
14$:	CMPL    W^CTRLC, #1
	BEQL    15$
	TSTL    84(R3)
	BNEQ    18$
15$:	BLBC    W^CTRLC, 16$
	PUSHAB  G^BAT_ABORT
	BRB     17$
16$:	PUSHAB  G^BAT_NOCMDS
17$:	CALLS   #1, (R4)
	PUSHAB  352(R3)
	CALLS   #1, G^LIB$DELETE_FILE
	BRB     19$
18$:	PUSHAB  352(R3)
	CALLS   #1, W^U.10
19$:	MOVL    R0, R2
	RET
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.ACB:	.ASCII  \_Command: \
	.BLKB   2
P.ACA:	.LONG   10
	.ADDRESS P.ACB
P.ACD:	.ASCII  \_Command: \
	.BLKB   2
P.ACC:	.LONG   10
	.ADDRESS P.ACD
P.ACF:	.ASCII  \_Data: \
	.BLKB   1
P.ACE:	.LONG   7
	.ADDRESS P.ACF
P.ACH:	.ASCII  \$ \
	.BLKB   2
P.ACG:	.LONG   2
	.ADDRESS P.ACH
	.PSECT  $CODE$,NOWRT,2
U.9:	.WORD   ^M<R2,R3,R4,R5>
	SUBL2   #4, SP
	PUSHL   #34471936
	CLRL    4(SP)
	CLRB    R4
	MOVAB   W^P.ACA, R5
1$:	PUSHR   #^M<R5,SP>
	PUSHAB  8(SP)
	CALLS   #3, G^HG$GET_INPUT
	MOVL    R0, R2
	CMPL    R2, #98938
	BEQL    3$
	BLBS    R4, 2$
	TSTW    (SP)
	BEQL    3$
2$:	MOVAB   W^CTRLC, R0
	BLBC    R0, 4$
3$:	BRW     12$
4$:	MOVL    4(SP), R3
	LOCC    #124, (SP), (R3)
	BNEQ    5$
	CLRL    R1
5$:	TSTL    R1
	BEQL    6$
	PUSHL   4(AP)
	PUSHAB  4(SP)
	CALLS   #2, W^U.7
	BRW     11$
6$:	BLBC    R4, 8$
	CMPW    (SP), #3
	BNEQ    7$
	MOVZBL  (R3), R0
	BICL2   #-224, R0
	CMPL    R0, #69
	BNEQ    7$
	MOVZBL  1(R3), R0
	BICL2   #-224, R0
	CMPL    R0, #79
	BNEQ    7$
	MOVZBL  2(R3), R0
	BICL2   #-224, R0
	CMPL    R0, #68
	BNEQ    7$
	CLRB    R4
	MOVAB   W^P.ACC, R5
7$:	BLBS    R4, 10$
8$:	CMPW    (SP), #4
	BNEQ    9$
	MOVZBL  (R3), R0
	BICL2   #-224, R0
	CMPL    R0, #68
	BNEQ    9$
	MOVZBL  1(R3), R0
	BICL2   #-224, R0
	CMPL    R0, #69
	BNEQ    9$
	MOVZBL  2(R3), R0
	BICL2   #-224, R0
	CMPL    R0, #67
	BNEQ    9$
	MOVZBL  3(R3), R3
	BICL2   #-224, R3
	CMPL    R3, #75
	BNEQ    9$
	MOVB    #1, R4
	MOVAB   W^P.ACE, R5
9$:	PUSHL   SP
	PUSHAB  W^P.ACG
	PUSHAB  8(SP)
	CALLS   #3, G^STR$CONCAT
	MOVL    R0, R2
	BLBS    R2, 10$
	PUSHL   R2
	CALLS   #1, G^LIB$SIGNAL
10$:	PUSHL   SP
	PUSHL   4(AP)
	CALLS   #2, W^U.11
11$:	MOVL    R0, R2
	INCL    @8(AP)
	BRW     1$
12$:	MOVL    #1, R0
	RET
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.ACI:	.ASCII  \$ \<0><0>
	.EXTRN  SYS$PUT
	.PSECT  $CODE$,NOWRT,2
U.7:	.WORD   ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,-
		R11>
	MOVAB   -268(SP), SP
	MOVL    #17694720, 4(SP)
	MOVAB   12(SP), 8(SP)
	CLRB    (SP)
	MOVW    W^P.ACI, 12(SP)
	PUSHAB  14(SP)
	MOVL    8(AP), R8
	MOVAB   16(SP), 40(R8)
	MOVL    4(AP), R9
	MOVZWL  (R9), R7
	MOVL    4(R9), R6
1$:	TSTL    R7
	BGTR    2$
	BRW     11$
2$:	LOCC    #124, R7, (R6)
	BNEQ    3$
	CLRL    R1
3$:	MOVL    R1, R11
	BNEQ    4$
	MOVZWL  (R9), R11
	ADDL2   4(R9), R11
4$:	SUBW3   R6, R11, R10
	BLBC    4(SP), 6$
	CMPW    R10, #3
	BNEQ    5$
	MOVZBL  (R6), R0
	BICL2   #-224, R0
	CMPL    R0, #69
	BNEQ    5$
	MOVZBL  1(R6), R0
	BICL2   #-224, R0
	CMPL    R0, #79
	BNEQ    5$
	MOVZBL  2(R6), R0
	BICL2   #-224, R0
	CMPL    R0, #68
	BNEQ    5$
	CLRB    4(SP)
	MOVAB   16(SP), 40(R8)
5$:	BLBS    4(SP), 7$
6$:	MOVC3   R10, (R6), @0(SP)
	MOVL    R3, R2
	ADDW3   #2, R10, 34(R8)
	BRB     8$
7$:	MOVL    R6, 40(R8)
	MOVW    R10, 34(R8)
8$:	PUSHL   R8
	CALLS   #1, G^SYS$PUT
	MOVL    R0, R2
	BLBS    R2, 9$
	MOVQ    8(R8), -(SP)
	CALLS   #2, G^LIB$SIGNAL
9$:	BLBS    4(SP), 10$
	CMPW    R10, #4
	BNEQ    10$
	MOVZBL  (R6), R0
	BICL2   #-224, R0
	CMPL    R0, #68
	BNEQ    10$
	MOVZBL  1(R6), R0
	BICL2   #-224, R0
	CMPL    R0, #69
	BNEQ    10$
	MOVZBL  2(R6), R0
	BICL2   #-224, R0
	CMPL    R0, #67
	BNEQ    10$
	MOVZBL  3(R6), R0
	BICL2   #-224, R0
	CMPL    R0, #75
	BNEQ    10$
	MOVB    #1, 4(SP)
10$:	MOVAB   1(R11), R6
	MOVZWL  R10, R0
	SUBL3   R0, R7, R0
	MOVAB   -1(R0), R7
	BRW     1$
11$:	MOVL    #1, R0
	RET
U.11:	.WORD   ^M<R2>
	MOVL    4(AP), R2
	MOVL    8(AP), R0
	MOVW    (R0), 34(R2)
	MOVL    4(R0), 40(R2)
	PUSHL   R2
	CALLS   #1, G^SYS$PUT
	BLBS    R0, 1$
	MOVQ    8(R2), -(SP)
	CALLS   #2, G^LIB$SIGNAL
1$:	MOVL    #1, R0
	RET
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.ACJ:	.WORD   4, 4
	.LONG   0, 0, 0
P.ACL:	.ASCII  \SYS$INPUT\
	.BLKB   3
P.ACK:	.LONG   9
	.ADDRESS P.ACL
P.ACN:	.ASCII  \SYS$INPUT\<0><0><0>
P.ACM:	.LONG   17694729
	.ADDRESS P.ACN
	.EXTRN  SYS$GETDVI, SYS$ASSIGN, SYS$QIOW
	.PSECT  $CODE$,NOWRT,2
U.3:	.WORD   ^M<R2,R3,R4,R5>
	SUBL2   #44, SP
	CLRL    36(SP)
	MOVL    #33554440, 40(SP)
	MOVC3   #16, W^P.ACJ, 20(SP)
	MOVAB   (SP), 24(SP)
	CLRL    W^CTRLC
	CLRQ    -(SP)
	CLRQ    -(SP)
	PUSHAB  36(SP)
	PUSHAB  W^P.ACK
	CLRQ    -(SP)
	CALLS   #8, G^SYS$GETDVI
	BLBC    R0, 2$
	CMPL    (SP), #66
	BEQL    1$
	MOVL    #1, R0
	RET
1$:	CLRQ    -(SP)
	PUSHAB  12(SP)
	PUSHAB  W^P.ACM
	CALLS   #4, G^SYS$ASSIGN
	BLBC    R0, 2$
	CLRQ    -(SP)
	CLRQ    -(SP)
	PUSHAB  52(SP)
	PUSHAB  W^U.1
	CLRQ    -(SP)
	CLRL    -(SP)
	MOVZWL  #5155, -(SP)
	MOVZWL  44(SP), -(SP)
	CLRL    -(SP)
	CALLS   #12, G^SYS$QIOW
2$:	RET
U.1:	.WORD   ^M<>
	MOVL    #1, W^CTRLC
	MOVL    #1, R0
	RET
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.ACP:	.ASCII  \SUBMIT \
	.BLKB   1
P.ACO:	.LONG   7
	.ADDRESS P.ACP
P.ACR:	.BLKB   0
P.ACQ:	.LONG   0
	.ADDRESS P.ACR
	.EXTRN  BAT_CLI_TABLE, SYS$GETQUIW, SYS$GETUAI
	.PSECT  $CODE$,NOWRT,2
U.8:	.WORD   ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,-
		R11>
	MOVAB   G^CLI$_NEGATED, R11
	MOVAB   G^LIB$SIGNAL, R10
	MOVAB   G^BAT_INVQUAVAL, R9
	MOVAB   G^CLI$_PRESENT, R8
	MOVAB   G^CLI$GET_VALUE, R7
	MOVAB   G^CLI$PRESENT, R6
	MOVAB   W^U.39, R5
	MOVAB   W^JOB_LOG_FILE, R4
	SUBL2   #56, SP
	MOVL    4(AP), R3
	PUSHL   R3
	CALLS   #1, G^LIB$GET_FOREIGN
	MOVL    R0, R2
	BLBC    R2, 1$
	PUSHL   R3
	PUSHAB  500(R5)
	PUSHL   R3
	CALLS   #3, G^STR$CONCAT
	MOVL    R0, R2
	PUSHAB  G^BAT_CLI_TABLE
	PUSHL   R3
	CALLS   #2, G^CLI$DCL_PARSE
	MOVL    R0, R2
1$:	BLBC    R2, 7$
	PUSHL   R5
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 2$
	PUSHAB  -32(R4)
	PUSHL   R5
	CALLS   #2, (R7)
	MOVL    R0, R2
	BLBC    R2, 2$
	CMPW    -32(R4), #39
	BLEQU   2$
	MOVAB   (R9), R2
	PUSHL   R5
	PUSHAB  -32(R4)
	BRB     6$
2$:	CLRB    41(R4)
	PUSHAB  -12(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	MOVAB   (R8), R0
	CMPL    R2, R0
	BNEQ    8$
	PUSHL   R4
	PUSHAB  -12(R5)
	CALLS   #2, (R7)
	MOVL    R0, R2
	BLBC    R2, 9$
	LOCC    #42, (R4), @4(R4)
	BNEQ    3$
	CLRL    R1
3$:	TSTL    R1
	BNEQ    5$
	LOCC    #37, (R4), @4(R4)
	BNEQ    4$
	CLRL    R1
4$:	TSTL    R1
	BEQL    9$
5$:	MOVAB   (R9), R2
	PUSHAB  -12(R5)
	PUSHL   R4
6$:	PUSHL   #2
	PUSHL   R2
	CALLS   #4, (R10)
7$:	BRW     34$
8$:	MOVAB   (R11), R0
	CMPL    R2, R0
	BNEQ    9$
	MOVB    #1, 41(R4)
9$:	PUSHAB  -40(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	MOVAB   (R8), R0
	CMPL    R2, R0
	BNEQ    10$
	MOVZBL  43(R4), R0
	MOVL    #1, (R0)
10$:	CLRB    40(R4)
	PUSHAB  64(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	MOVAB   (R8), R0
	CMPL    R2, R0
	BNEQ    11$
	MOVB    #1, 40(R4)
11$:	MOVB    #1, 39(R4)
	PUSHAB  16(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	MOVAB   (R11), R0
	CMPL    R2, R0
	BNEQ    12$
	CLRB    39(R4)
12$:	PUSHAB  -28(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	MOVAB   (R8), R0
	CMPL    R2, R0
	BNEQ    13$
	MOVB    #1, 36(R4)
13$:	CLRL    -(SP)
	PUSHAB  32(R4)
	PUSHAB  128(R5)
	CALLS   #3, W^U.4
	MOVL    R0, R2
	BLBC    R2, 7$
	CLRL    -(SP)
	PUSHAB  24(R4)
	PUSHAB  96(R5)
	CALLS   #3, W^U.4
	MOVL    R0, R2
	BLBC    R2, 15$
	CLRL    -(SP)
	PUSHAB  28(R4)
	PUSHAB  112(R5)
	CALLS   #3, W^U.4
	MOVL    R0, R2
	BLBC    R2, 15$
	CLRB    38(R4)
	MOVZBL  #255, -(SP)
	PUSHAB  20(R4)
	PUSHAB  48(R5)
	CALLS   #3, W^U.4
	MOVL    R0, R2
	BEQL    14$
	BLBC    R2, 15$
	MOVB    #1, 38(R4)
14$:	PUSHAB  8(R4)
	PUSHAB  -68(R5)
	CALLS   #2, W^U.5
	MOVL    R0, R2
	BLBC    R2, 15$
	CLRB    37(R4)
	PUSHAB  16(R4)
	PUSHAB  -52(R5)
	CALLS   #2, W^U.6
	MOVL    R0, R2
	BEQL    17$
15$:	BLBS    R2, 16$
	BRW     34$
16$:	MOVB    #1, 37(R4)
17$:	PUSHAB  -84(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 21$
	PUSHAB  -24(R4)
	PUSHAB  -84(R5)
	CALLS   #2, (R7)
	MOVL    R0, R2
	BLBC    R2, 21$
	MOVAB   12(SP), R0
	MOVW    -24(R4), (R0)+
	MOVZBW  #77, (R0)+
	MOVL    -20(R4), (R0)+
	CLRL    (R0)+
	MOVL    #4521988, (R0)+
	MOVAB   (SP), (R0)+
	CLRQ    (R0)+
	CLRQ    -(SP)
	PUSHAB  12(SP)
	PUSHAB  24(SP)
	MOVQ    #6, -(SP)
	CLRL    -(SP)
	CALLS   #7, G^SYS$GETQUIW
	MOVL    R0, R2
	BLBS    4(SP), 18$
	MOVL    4(SP), R2
18$:	BLBC    R2, 20$
	BLBS    (SP), 19$
	MOVL    #294970, R2
19$:	BLBS    R2, 21$
20$:	PUSHL   R2
	PUSHAB  -84(R5)
	PUSHAB  -24(R4)
	BRB     25$
21$:	MOVB    #1, 42(R4)
	PUSHAB  32(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	MOVAB   (R8), R0
	CMPL    R2, R0
	BNEQ    26$
	PUSHAB  -8(R4)
	PUSHAB  32(R5)
	CALLS   #2, (R7)
	MOVL    R0, R2
	BLBC    R2, 26$
	CLRB    42(R4)
	MOVAB   12(SP), R0
	MOVW    -8(R4), (R0)+
	MOVZBW  #77, (R0)+
	MOVL    -4(R4), (R0)+
	CLRL    (R0)+
	MOVL    #4521988, (R0)+
	MOVAB   (SP), (R0)+
	CLRQ    (R0)+
	CLRQ    -(SP)
	PUSHAB  12(SP)
	PUSHAB  24(SP)
	MOVQ    #6, -(SP)
	CLRL    -(SP)
	CALLS   #7, G^SYS$GETQUIW
	MOVL    R0, R2
	BLBS    4(SP), 22$
	MOVL    4(SP), R2
22$:	BLBC    R2, 24$
	BLBC    (SP), 23$
	MOVL    #294970, R2
23$:	BLBS    R2, 26$
24$:	PUSHL   R2
	PUSHAB  32(R5)
	PUSHAB  -8(R4)
25$:	BRB     29$
26$:	PUSHAB  76(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 30$
	PUSHAB  -16(R4)
	PUSHAB  76(R5)
	CALLS   #2, (R7)
	MOVL    R0, R2
	BLBC    R2, 30$
	MOVAB   40(SP), R0
	MOVL    #393220, (R0)+
	MOVAB   (SP), (R0)+
	CLRQ    (R0)+
	CMPW    -16(R4), #12
	BLEQU   27$
	MOVL    #98994, R2
	BRB     28$
27$:	CLRQ    -(SP)
	CLRL    -(SP)
	PUSHAB  52(SP)
	PUSHAB  -16(R4)
	CLRQ    -(SP)
	CALLS   #7, G^SYS$GETUAI
	MOVL    R0, R2
28$:	BLBS    R2, 30$
	PUSHL   R2
	PUSHAB  76(R5)
	PUSHAB  -16(R4)
29$:	PUSHL   #2
	PUSHL   R9
	CALLS   #5, (R10)
	BRB     34$
30$:	PUSHAB  -100(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 31$
	PUSHL   R3
	PUSHAB  -100(R5)
	CALLS   #2, (R7)
	BRB     32$
31$:	PUSHAB  508(R5)
	PUSHL   R3
	CALLS   #2, G^STR$COPY_DX
32$:	MOVL    R0, R2
	MOVAB   G^CLI$_ABSENT, R0
	CMPL    R2, R0
	BEQL    33$
	MOVAB   (R8), R0
	CMPL    R2, R0
	BNEQ    34$
33$:	MOVL    #1, R2
34$:	MOVL    R2, R0
	RET
U.4:	.WORD   ^M<R2>
	SUBL2   #4, SP
	PUSHL   #34471936
	CLRL    4(SP)
	PUSHL   4(AP)
	CALLS   #1, G^CLI$PRESENT
	MOVL    R0, R2
	BLBC    R2, 2$
	PUSHL   SP
	PUSHL   4(AP)
	CALLS   #2, G^CLI$GET_VALUE
	MOVL    R0, R2
	BLBC    R2, 1$
	PUSHL   8(AP)
	PUSHAB  4(SP)
	CALLS   #2, G^OTS$CVT_TU_L
	MOVL    R0, R2
	BLBC    R2, 1$
	TSTL    12(AP)
	BEQL    3$
	CMPL    @8(AP), 12(AP)
	BLEQU   3$
1$:	MOVAB   G^BAT_INVQUAVAL, R2
	PUSHL   4(AP)
	PUSHAB  4(SP)
	PUSHL   #2
	PUSHL   R2
	CALLS   #4, G^LIB$SIGNAL
	BRB     3$
2$:	MOVL    #1, R2
	CLRL    @8(AP)
3$:	MOVL    R2, R0
	RET
	.EXTRN  SYS$BINTIM
U.5:	.WORD   ^M<R2>
	SUBL2   #4, SP
	PUSHL   #34471936
	CLRL    4(SP)
	PUSHL   4(AP)
	CALLS   #1, G^CLI$PRESENT
	MOVL    R0, R2
	BLBC    R2, 1$
	PUSHL   SP
	PUSHL   4(AP)
	CALLS   #2, G^CLI$GET_VALUE
	MOVL    R0, R2
	BLBC    R2, 2$
	PUSHL   8(AP)
	PUSHAB  4(SP)
	CALLS   #2, G^SYS$BINTIM
	MOVL    R0, R2
	BLBS    R2, 2$
	PUSHL   R2
	PUSHL   4(AP)
	PUSHAB  8(SP)
	PUSHL   #2
	PUSHAB  G^BAT_INVQUAVAL
	CALLS   #5, G^LIB$SIGNAL
	BRB     2$
1$:	MOVL    #1, R2
	MOVL    8(AP), R0
	CLRQ    (R0)
2$:	MOVL    R2, R0
	RET
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.ACS:	.LONG   25
	.PSECT  $OWN$,NOEXE,2
U.83:	.ASCII  \INFINITE\
U.84:	.ASCII  \NONE\
	.PSECT  $CODE$,NOWRT,2
U.6:	.WORD   ^M<R2,R3,R4,R5,R6,R7>
	SUBL2   #20, SP
	MOVL    #34471936, 12(SP)
	CLRL    16(SP)
	PUSHL   4(AP)
	CALLS   #1, G^CLI$PRESENT
	MOVL    R0, R4
	BLBS    R4, 1$
	BRW     11$
1$:	PUSHAB  12(SP)
	PUSHL   4(AP)
	CALLS   #2, G^CLI$GET_VALUE
	MOVL    R0, R4
	BLBS    R4, 2$
	BRW     13$
2$:	MOVZWL  12(SP), R6
	MOVL    16(SP), R7
	CMPL    R6, #4
	BLEQU   3$
	MOVL    #4, R6
3$:	CLRL    R5
	CMPC3   R6, W^U.83, (R7)
	BNEQ    4$
	INCL    R5
4$:	MOVL    R5, R4
	BLBS    R4, 7$
	CLRL    R5
	CMPC3   R6, W^U.84, (R7)
	BNEQ    5$
	INCL    R5
5$:	MOVL    R5, R4
	BLBS    R4, 12$
	CMPL    R6, #1
	BNEQ    6$
	CMPB    (R7), #48
	BNEQ    6$
	MOVL    #1, R4
	BRB     7$
6$:	CLRL    R4
7$:	BLBS    R4, 12$
	PUSHAB  4(SP)
	PUSHAB  16(SP)
	CALLS   #2, G^SYS$BINTIM
	MOVL    R0, R4
	BLBC    R4, 9$
	PUSHAB  4(SP)
	PUSHAB  4(SP)
	PUSHAB  W^P.ACS
	CALLS   #3, G^LIB$CVT_FROM_INTERNAL_TIME
	MOVL    R0, R4
	BLBC    R4, 8$
	CMPL    (SP), #1789200
	BLEQU   10$
8$:	MOVZWL  #388, R4
9$:	PUSHL   R4
	PUSHL   4(AP)
	PUSHAB  20(SP)
	PUSHL   #2
	PUSHAB  G^BAT_INVQUAVAL
	CALLS   #5, G^LIB$SIGNAL
	BRB     13$
10$:	MULL3   #100, (SP), @8(AP)
	BRB     13$
11$:	CLRL    R4
12$:	CLRL    @8(AP)
13$:	MOVL    R4, R0
	RET
	.EXTRN  SYS$SNDJBCW
U.10:	.WORD   ^M<R2>
	MOVAB   W^JOB_AFTER_DATE, R2
	MOVAB   -568(SP), SP
	MOVL    #17694975, 4(SP)
	MOVAB   12(SP), 8(SP)
	MOVAB   276(SP), R0
	MOVW    -32(R2), (R0)+
	MOVZBW  #134, (R0)+
	MOVL    -28(R2), (R0)+
	CLRL    (R0)+
	MOVL    4(AP), R1
	MOVW    (R1), (R0)+
	MOVW    #42, (R0)+
	MOVL    4(R1), (R0)+
	CLRL    (R0)+
	MOVW    4(SP), (R0)+
	MOVZBW  #88, (R0)+
	MOVL    8(SP), (R0)+
	MOVAB   (SP), (R0)+
	CLRW    (R0)
	BLBC    34(R2), 1$
	MOVZBL  #101, R1
	BRB     2$
1$:	MOVZBL  #100, R1
2$:	MOVW    R1, 2(R0)
	CLRQ    4(R0)
	ADDL2   #12, R0
	TSTL    (R2)
	BEQL    3$
	MOVL    #196616, (R0)+
	MOVAB   (R2), (R0)+
	CLRL    (R0)+
3$:	BLBC    29(R2), 4$
	MOVL    #1376260, (R0)+
	MOVAB   8(R2), (R0)+
	CLRL    (R0)+
4$:	BLBC    30(R2), 5$
	MOVL    #8519684, (R0)+
	MOVAB   12(R2), (R0)+
	CLRL    (R0)+
5$:	MOVZWL  -40(R2), R1
	BEQL    6$
	MOVW    R1, (R0)+
	MOVZBW  #79, (R0)+
	MOVL    -36(R2), (R0)+
	CLRL    (R0)+
6$:	MOVZWL  -16(R2), R1
	BEQL    7$
	MOVW    R1, (R0)+
	MOVZBW  #97, (R0)+
	MOVL    -12(R2), (R0)+
	CLRL    (R0)+
7$:	MOVZWL  -24(R2), R1
	BEQL    8$
	MOVW    R1, (R0)+
	MOVZBW  #159, (R0)+
	MOVL    -20(R2), (R0)+
	CLRL    (R0)+
8$:	BLBS    33(R2), 9$
	MOVL    #6291456, (R0)+
	CLRQ    (R0)+
	MOVZWL  -8(R2), R1
	BEQL    11$
	MOVW    R1, (R0)
	MOVZBW  #98, 2(R0)
	MOVL    -4(R2), 4(R0)
	BRB     10$
9$:	MOVL    #6488064, (R0)
	CLRL    4(R0)
10$:	CLRL    8(R0)
	ADDL2   #12, R0
11$:	BLBC    31(R2), 12$
	MOVL    #7077888, (R0)+
	CLRQ    (R0)+
12$:	CLRW    (R0)
	BLBC    28(R2), 13$
	MOVW    #25, 2(R0)
	BRB     14$
13$:	MOVW    #24, 2(R0)
14$:	CLRQ    4(R0)
	ADDL2   #12, R0
	CLRW    (R0)
	BLBC    35(R2), 15$
	MOVZBW  #71, 2(R0)
	BRB     16$
15$:	MOVZBW  #72, 2(R0)
16$:	CLRQ    4(R0)
	ADDL2   #12, R0
	CLRW    (R0)
	BLBC    32(R2), 17$
	MOVZBW  #138, 2(R0)
	BRB     18$
17$:	MOVZBW  #139, 2(R0)
18$:	CLRQ    4(R0)
	ADDL2   #12, R0
	MOVL    16(R2), R1
	BEQL    19$
	MOVL    #9895940, (R0)
	MOVL    R1, 4(R0)
	BRB     20$
19$:	MOVL    #9961472, (R0)
	CLRL    4(R0)
20$:	CLRL    8(R0)
	ADDL2   #12, R0
	MOVL    24(R2), R1
	BEQL    21$
	MOVL    #10158084, (R0)
	MOVL    R1, 4(R0)
	BRB     22$
21$:	MOVL    #10223616, (R0)
	CLRL    4(R0)
22$:	CLRL    8(R0)
	ADDL2   #12, R0
	MOVL    20(R2), R1
	BEQL    23$
	MOVL    #10027012, (R0)
	MOVL    R1, 4(R0)
	BRB     24$
23$:	MOVL    #10092544, (R0)
	CLRL    4(R0)
24$:	CLRL    8(R0)
	ADDL2   #12, R0
	CLRL    (R0)
	CLRQ    -(SP)
	PUSHAB  276(SP)
	PUSHAB  288(SP)
	MOVQ    #19, -(SP)
	CLRL    -(SP)
	CALLS   #7, G^SYS$SNDJBCW
	BLBC    R0, 26$
	BLBS    268(SP), 25$
	MOVZWL  268(SP), R0
25$:	BLBC    R0, 26$
	MOVW    (SP), 4(SP)
	PUSHAB  4(SP)
	CALLS   #1, G^LIB$PUT_OUTPUT
26$:	RET
	.EXTRN  LIB$SIGNAL
	.END	U.2