.TITLE  BATCH
	.IDENT  \01-004\
	.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_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_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  \NAME\
P.AAM:	.LONG   17694724
	.ADDRESS P.AAN
P.AAP:	.ASCII  \PRIORITY\
P.AAO:	.LONG   17694728
	.ADDRESS P.AAP
P.AAR:	.ASCII  \USER\
P.AAQ:	.LONG   17694724
	.ADDRESS P.AAR
P.AAT:	.ASCII  \WSDEFAULT\<0><0><0>
P.AAS:	.LONG   17694729
	.ADDRESS P.AAT
P.AAV:	.ASCII  \WSEXTENT\
P.AAU:	.LONG   17694728
	.ADDRESS P.AAV
P.AAX:	.ASCII  \WSQUOTA\<0>
P.AAW:	.LONG   17694727
	.ADDRESS P.AAX
P.AAZ:	.ASCII  \BATCHTMP_!XL.COM\
P.AAY:	.LONG   16
	.ADDRESS P.AAZ
P.ABB:	.ASCII  \$!!  Created by !AD\
	.BLKB   1
P.ABA:	.LONG   19
	.ADDRESS P.ABB
P.ABD:	.ASCII  \$!!  !%D\
P.ABC:	.LONG   8
	.ADDRESS P.ABD
P.ABF:	.ASCII  \$ SET NOON\
	.BLKB   2
P.ABE:	.LONG   10
	.ADDRESS P.ABF
P.ABH:	.ASCII  \$ SET VERIFY\
P.ABG:	.LONG   12
	.ADDRESS P.ABH
P.ABJ:	.ASCII  \$ SET OUTPUT_RATE=00:00:05\
	.BLKB   2
P.ABI:	.LONG   26
	.ADDRESS P.ABJ
P.ABL:	.ASCII  \LNM$PROCESS_TABLE\
	.BLKB   3
P.ABK:	.LONG   17
	.ADDRESS P.ABL
P.ABN:	.ASCII  \SYS$DISK\
P.ABM:	.LONG   8
	.ADDRESS P.ABN
P.ABP:	.ASCII  \$ SET DEFAULT \
	.BLKB   2
P.ABO:	.LONG   14
	.ADDRESS P.ABP
P.ABR:	.ASCII  \$ EXIT\
	.BLKB   2
P.ABQ:	.LONG   6
	.ADDRESS P.ABR
	.PSECT  $OWN$,NOEXE,2
U.38:	.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.39:	.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.38
	.LONG   0
U.40:	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
U.41:	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
U.42:	.LONG   0
U.43:	.BYTE   0[2]
	.BYTE   14, 2
	.LONG   0
U.44:	.BLKB   256
U.45:	.WORD   256
	.BYTE   14, 1
	.ADDRESS U.44
U.46:	.BLKB   256
U.47:	.WORD   256
	.BYTE   14, 1
	.ADDRESS U.46
U.48:	.BLKB   256
U.49:	.WORD   256
	.BYTE   14, 1
	.ADDRESS U.48
U.50:	.BLKB   255
	.BLKB   1
U.51:	.BLKB   4
U.52:	.WORD   255, 2
	.ADDRESS U.50, U.51
	.LONG   0
U.53:	.BLKB   4
U.54:	.BLKB   12
U.55:	.BLKB   4
U.56:	.WORD   4, 793
	.ADDRESS U.53
	.LONG   0
	.WORD   12, 514
	.ADDRESS U.54, U.55
	.LONG   0
U.26=		    P.AAA
U.27=		    P.AAC
U.28=		    P.AAE
U.29=		    P.AAG
U.30=		    P.AAI
U.31=		    P.AAK
U.32=		    P.AAM
U.33=		    P.AAO
U.34=		    P.AAQ
U.35=		    P.AAS
U.36=		    P.AAU
U.37=		    P.AAW
	.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, BAT_ABORT
	.EXTRN  BAT_NOCMDS, BAT_INVQUAVAL, SYS$GETJPIW, SYS$FAO, SYS$CREATE, SYS$CONNECT, SYS$TRNLNM
	.EXTRN  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.AAY, R5
	MOVAB   G^LIB$SIGNAL, R4
	MOVAB   W^U.39, 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.ABT:	.ASCII  \_Command: \
	.BLKB   2
P.ABS:	.LONG   10
	.ADDRESS P.ABT
P.ABV:	.ASCII  \_Command: \
	.BLKB   2
P.ABU:	.LONG   10
	.ADDRESS P.ABV
P.ABX:	.ASCII  \_Data: \
	.BLKB   1
P.ABW:	.LONG   7
	.ADDRESS P.ABX
P.ABZ:	.ASCII  \$ \
	.BLKB   2
P.ABY:	.LONG   2
	.ADDRESS P.ABZ
	.PSECT  $CODE$,NOWRT,2
U.9:	.WORD   ^M<R2,R3,R4>
	SUBL2   #4, SP
	PUSHL   #34471936
	CLRL    4(SP)
	CLRB    R3
	MOVAB   W^P.ABS, R4
1$:	PUSHR   #^M<R4,SP>
	PUSHAB  8(SP)
	CALLS   #3, G^HG$GET_INPUT
	MOVL    R0, R2
	CMPL    R2, #98938
	BEQL    3$
	BLBS    R3, 2$
	TSTW    (SP)
	BEQL    3$
2$:	MOVAB   W^CTRLC, R0
	BLBC    R0, 4$
3$:	BRW     9$
4$:	BLBC    R3, 6$
	CMPW    (SP), #3
	BNEQ    5$
	MOVZBL  @4(SP), R0
	BICL2   #-224, R0
	CMPL    R0, #69
	BNEQ    5$
	MOVL    4(SP), R0
	MOVZBL  1(R0), R0
	BICL2   #-224, R0
	CMPL    R0, #79
	BNEQ    5$
	MOVL    4(SP), R0
	MOVZBL  2(R0), R0
	BICL2   #-224, R0
	CMPL    R0, #68
	BNEQ    5$
	CLRB    R3
	MOVAB   W^P.ABU, R4
5$:	BLBC    R3, 6$
	BRW     8$
6$:	CMPW    (SP), #4
	BNEQ    7$
	MOVZBL  @4(SP), R0
	BICL2   #-224, R0
	CMPL    R0, #68
	BNEQ    7$
	MOVL    4(SP), R0
	MOVZBL  1(R0), R0
	BICL2   #-224, R0
	CMPL    R0, #69
	BNEQ    7$
	MOVL    4(SP), R0
	MOVZBL  2(R0), R0
	BICL2   #-224, R0
	CMPL    R0, #67
	BNEQ    7$
	MOVL    4(SP), R0
	MOVZBL  3(R0), R0
	BICL2   #-224, R0
	CMPL    R0, #75
	BNEQ    7$
	MOVB    #1, R3
	MOVAB   W^P.ABW, R4
7$:	PUSHL   SP
	PUSHAB  W^P.ABY
	PUSHAB  8(SP)
	CALLS   #3, G^STR$CONCAT
	MOVL    R0, R2
	BLBS    R2, 8$
	PUSHL   R2
	CALLS   #1, G^LIB$SIGNAL
8$:	PUSHL   SP
	PUSHL   4(AP)
	CALLS   #2, W^U.11
	MOVL    R0, R2
	INCL    @8(AP)
	BRW     1$
9$:	MOVL    #1, R0
	RET
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.ACA:	.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.ACA, 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.ACB:	.WORD   4, 4
	.LONG   0, 0, 0
P.ACD:	.ASCII  \SYS$INPUT\
	.BLKB   3
P.ACC:	.LONG   9
	.ADDRESS P.ACD
P.ACF:	.ASCII  \SYS$INPUT\<0><0><0>
P.ACE:	.LONG   17694729
	.ADDRESS P.ACF
	.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.ACB, 20(SP)
	MOVAB   (SP), 24(SP)
	CLRL    W^CTRLC
	CLRQ    -(SP)
	CLRQ    -(SP)
	PUSHAB  36(SP)
	PUSHAB  W^P.ACC
	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.ACE
	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.ACH:	.ASCII  \SUBMIT \
	.BLKB   1
P.ACG:	.LONG   7
	.ADDRESS P.ACH
P.ACJ:	.BLKB   0
P.ACI:	.LONG   0
	.ADDRESS P.ACJ
	.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>
	MOVAB   W^U.4, R10
	MOVAB   G^LIB$SIGNAL, R9
	MOVAB   G^BAT_INVQUAVAL, R8
	MOVAB   G^CLI$GET_VALUE, R7
	MOVAB   G^CLI$PRESENT, R6
	MOVAB   W^U.32, R5
	MOVAB   W^JOB_USER, 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  452(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
	BLBC    R2, 1$
	PUSHL   R5
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 2$
	PUSHAB  -16(R4)
	PUSHL   R5
	CALLS   #2, (R7)
	MOVL    R0, R2
	BLBC    R2, 2$
	CMPW    -16(R4), #39
	BLEQU   2$
	MOVAB   (R8), R2
	PUSHL   R5
	PUSHAB  -16(R4)
	PUSHL   #2
	PUSHL   R2
	CALLS   #4, (R9)
1$:	BRW     20$
2$:	PUSHAB  -24(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 3$
	MOVZBL  39(R4), R0
	MOVL    #1, (R0)
3$:	PUSHAB  -12(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 4$
	MOVB    #1, 36(R4)
4$:	CLRL    -(SP)
	PUSHAB  32(R4)
	PUSHAB  80(R5)
	CALLS   #3, (R10)
	MOVL    R0, R2
	BLBC    R2, 1$
	CLRL    -(SP)
	PUSHAB  24(R4)
	PUSHAB  48(R5)
	CALLS   #3, (R10)
	MOVL    R0, R2
	BLBC    R2, 1$
	CLRL    -(SP)
	PUSHAB  28(R4)
	PUSHAB  64(R5)
	CALLS   #3, (R10)
	MOVL    R0, R2
	BLBC    R2, 1$
	CLRB    38(R4)
	MOVZBL  #255, -(SP)
	PUSHAB  20(R4)
	PUSHAB  16(R5)
	CALLS   #3, (R10)
	MOVL    R0, R2
	BEQL    5$
	BLBC    R2, 1$
	MOVB    #1, 38(R4)
5$:	PUSHAB  8(R4)
	PUSHAB  -52(R5)
	CALLS   #2, W^U.5
	MOVL    R0, R2
	BLBC    R2, 6$
	CLRB    37(R4)
	PUSHAB  16(R4)
	PUSHAB  -36(R5)
	CALLS   #2, W^U.6
	MOVL    R0, R2
	BEQL    8$
6$:	BLBS    R2, 7$
	BRW     20$
7$:	MOVB    #1, 37(R4)
8$:	PUSHAB  -68(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 12$
	PUSHAB  -8(R4)
	PUSHAB  -68(R5)
	CALLS   #2, (R7)
	MOVL    R0, R2
	BLBC    R2, 12$
	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), 9$
	MOVL    4(SP), R2
9$:	BLBC    R2, 11$
	BLBS    (SP), 10$
	MOVL    #294970, R2
10$:	BLBS    R2, 12$
11$:	PUSHL   R2
	PUSHAB  -68(R5)
	PUSHAB  -8(R4)
	BRB     15$
12$:	PUSHAB  28(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 16$
	PUSHL   R4
	PUSHAB  28(R5)
	CALLS   #2, (R7)
	MOVL    R0, R2
	BLBC    R2, 16$
	MOVAB   40(SP), R0
	MOVL    #393220, (R0)+
	MOVAB   (SP), (R0)+
	CLRQ    (R0)+
	CMPW    (R4), #12
	BLEQU   13$
	MOVL    #98994, R2
	BRB     14$
13$:	CLRQ    -(SP)
	CLRL    -(SP)
	PUSHAB  52(SP)
	PUSHL   R4
	CLRQ    -(SP)
	CALLS   #7, G^SYS$GETUAI
	MOVL    R0, R2
14$:	BLBS    R2, 16$
	PUSHL   R2
	PUSHAB  28(R5)
	PUSHL   R4
15$:	PUSHL   #2
	PUSHL   R8
	CALLS   #5, (R9)
	BRB     20$
16$:	PUSHAB  -84(R5)
	CALLS   #1, (R6)
	MOVL    R0, R2
	BLBC    R2, 17$
	PUSHL   R3
	PUSHAB  -84(R5)
	CALLS   #2, (R7)
	BRB     18$
17$:	PUSHAB  460(R5)
	PUSHL   R3
	CALLS   #2, G^STR$COPY_DX
18$:	MOVL    R0, R2
	MOVAB   G^CLI$_ABSENT, R0
	CMPL    R2, R0
	BEQL    19$
	MOVAB   G^CLI$_PRESENT, R0
	CMPL    R2, R0
	BNEQ    20$
19$:	MOVL    #1, R2
20$:	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.ACK:	.LONG   25
	.PSECT  $OWN$,NOEXE,2
U.73:	.ASCII  \INFINITE\
U.74:	.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.73, (R7)
	BNEQ    4$
	INCL    R5
4$:	MOVL    R5, R4
	BLBS    R4, 7$
	CLRL    R5
	CMPC3   R6, W^U.74, (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.ACK
	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   -520(SP), SP
	MOVL    #17694975, 4(SP)
	MOVAB   12(SP), 8(SP)
	MOVAB   -244(FP), R0
	MOVW    -16(R2), (R0)+
	MOVZBW  #134, (R0)+
	MOVL    -12(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)+
	TSTL    (R2)
	BEQL    1$
	MOVL    #196616, (R0)+
	MOVAB   (R2), (R0)+
	CLRL    (R0)+
1$:	BLBC    29(R2), 2$
	MOVL    #1376260, (R0)+
	MOVAB   8(R2), (R0)+
	CLRL    (R0)+
2$:	BLBC    30(R2), 3$
	MOVL    #8519684, (R0)+
	MOVAB   12(R2), (R0)+
	CLRL    (R0)+
3$:	MOVZWL  -24(R2), R1
	BEQL    4$
	MOVW    R1, (R0)+
	MOVZBW  #79, (R0)+
	MOVL    -20(R2), (R0)+
	CLRL    (R0)+
4$:	MOVZWL  -8(R2), R1
	BEQL    5$
	MOVW    R1, (R0)+
	MOVZBW  #159, (R0)+
	MOVL    -4(R2), (R0)+
	CLRL    (R0)+
5$:	MOVL    #6291456, (R0)+
	CLRQ    (R0)+
	MOVL    #7077888, (R0)+
	CLRQ    (R0)+
	CLRW    (R0)
	BLBC    28(R2), 6$
	MOVW    #25, 2(R0)
	BRB     7$
6$:	MOVW    #24, 2(R0)
7$:	CLRQ    4(R0)
	ADDL2   #12, R0
	CLRW    (R0)
	BLBC    31(R2), 8$
	MOVZBW  #71, 2(R0)
	BRB     9$
8$:	MOVZBW  #72, 2(R0)
9$:	CLRQ    4(R0)
	ADDL2   #12, R0
	MOVL    16(R2), R1
	BEQL    10$
	MOVL    #9895940, (R0)
	MOVL    R1, 4(R0)
	BRB     11$
10$:	MOVL    #9961472, (R0)
	CLRL    4(R0)
11$:	CLRL    8(R0)
	ADDL2   #12, R0
	MOVL    24(R2), R1
	BEQL    12$
	MOVL    #10158084, (R0)
	MOVL    R1, 4(R0)
	BRB     13$
12$:	MOVL    #10223616, (R0)
	CLRL    4(R0)
13$:	CLRL    8(R0)
	ADDL2   #12, R0
	MOVL    20(R2), R1
	BEQL    14$
	MOVL    #10027012, (R0)
	MOVL    R1, 4(R0)
	BRB     15$
14$:	MOVL    #10092544, (R0)
	CLRL    4(R0)
15$:	CLRL    8(R0)
	ADDL2   #12, R0
	CLRL    (R0)
	CLRQ    -(SP)
	PUSHAB  -252(FP)
	PUSHAB  -244(FP)
	MOVQ    #19, -(SP)
	CLRL    -(SP)
	CALLS   #7, G^SYS$SNDJBCW
	BLBC    R0, 17$
	BLBS    -252(FP), 16$
	MOVZWL  -252(FP), R0
16$:	BLBC    R0, 17$
	MOVW    (SP), 4(SP)
	PUSHAB  4(SP)
	CALLS   #1, G^LIB$PUT_OUTPUT
17$:	RET
	.EXTRN  LIB$SIGNAL
	.END	U.2