.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 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 SUBL2 #4, SP PUSHL #34471936 CLRL 4(SP) CLRB R3 MOVAB W^P.ABS, R4 1$: PUSHR #^M 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 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 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 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 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 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 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 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 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