.TITLE HG_SEND_MAIL HG_SEND_MAIL .IDENT \01-001\ .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAB: .ASCII \!!20 "!AD"\<0><0> P.AAA: .LONG 17694742 .ADDRESS P.AAB P.AAD: .ASCII \!AD!AS\<0><0> P.AAC: .LONG 17694726 .ADDRESS P.AAD P.AAF: .ASCII \LNM$SYSTEM_TABLE\ P.AAE: .LONG 17694736 .ADDRESS P.AAF P.AAH: .ASCII \SYS$NODE\ P.AAG: .LONG 17694728 .ADDRESS P.AAH U.10= P.AAA U.11= P.AAC .EXTRN LIB$_WRONUMARG, MAIL$SEND_BEGIN, MAIL$SEND_ADD_ADDRESS, MAIL$SEND_ADD_ATTRIBUTE, MAIL$SEND_ADD_BODYPART .EXTRN MAIL$SEND_MESSAGE, MAIL$SEND_END, SYS$FAO, SYS$TRNLNM .PSECT $CODE$,NOWRT,2 U.1: .ENTRY HG_SEND_MAIL, ^M MOVAB G^SYS$FAO, R10 MOVAB W^U.10, R9 MOVAB -896(SP), SP MOVAL 22$, (FP) MOVQ 4(AP), R7 MOVL 16(AP), R6 MOVL 20(AP), R5 CLRQ -(SP) CLRL -(SP) MOVL #17694976, 284(SP) MOVAB 292(SP), 288(SP) MOVL #17694976, 20(SP) MOVAB 28(SP), 24(SP) MOVL #17694720, 12(SP) CLRL 16(SP) CLRL R2 CMPB (AP), #2 BLSSU 1$ CMPB (AP), #7 BLEQU 2$ 1$: MOVAB G^LIB$_WRONUMARG, R0 RET 2$: CMPB (AP), #6 BLSSU 3$ MOVL 24(AP), R0 BRB 4$ 3$: CLRL R0 4$: BSBW U.3 MOVL R0, R3 BLBS R3, 5$ BRW 21$ 5$: CMPB (AP), #7 BNEQ 6$ MOVL 28(AP), R2 6$: MOVAB -16(FP), R4 CMPB (AP), #5 BLSSU 9$ TSTL R5 BEQL 9$ TSTW (R5) BEQL 9$ MOVW #10, 2(R4) CMPW (R5), #127 BLEQU 7$ MOVZBL #127, R0 BRB 8$ 7$: MOVZWL (R5), R0 8$: MOVW R0, (R4)+ MOVL 4(R5), 2(R4) CLRL 6(R4) ADDL2 #10, R4 PUSHL 4(R5) PUSHL R0 PUSHAB 292(SP) PUSHAB 296(SP) PUSHL R9 CALLS #5, (R10) MOVL R0, R3 BRB 10$ 9$: MOVW 16(R9), 284(SP) MOVL 20(R9), 288(SP) 10$: CLRL (R4) MOVAB -88(FP), R4 MOVW #16, 2(R4) MOVW (R7), (R4)+ MOVL 4(R7), 2(R4) CLRL 6(R4) ADDL2 #10, R4 CMPB (AP), #3 BLSSU 11$ TSTL 12(AP) BEQL 11$ TSTW @12(AP) BEQL 11$ MOVW #8, 2(R4) MOVAB -104(FP), R0 MOVL #131327, (R0)+ MOVAB -360(FP), (R0)+ MOVAB (SP), (R0)+ CLRL (R0)+ PUSHAB -104(FP) CLRL -(SP) PUSHAB 56(R9) PUSHAB 40(R9) CLRL -(SP) CALLS #5, G^SYS$TRNLNM MOVL R0, R3 PUSHL 12(AP) PUSHAB -360(FP) PUSHL 8(SP) PUSHAB 32(SP) PUSHAB 36(SP) PUSHAB 304(SP) CALLS #6, (R10) MOVL R0, R3 MOVW 20(SP), (R4)+ MOVL 24(SP), 2(R4) CLRL 6(R4) ADDL2 #10, R4 11$: CMPB (AP), #4 BLSSU 12$ TSTL R6 BEQL 12$ TSTW (R6) BEQL 12$ MOVW #14, 2(R4) MOVW (R6), (R4)+ MOVL 4(R6), 2(R4) CLRL 6(R4) ADDL2 #10, R4 12$: CLRL (R4) MOVAB -48(FP), R0 MOVW (R8), (R0) BLBC R2, 13$ MOVL #7, R1 BRB 14$ 13$: MOVL #11, R1 14$: MOVW R1, 2(R0) MOVL 4(R8), 4(R0) CLRL 8(R0) ADDL2 #12, R0 CLRL (R0)+ PUSHAB 4(SP) PUSHAB -16(FP) PUSHAB 16(SP) CALLS #3, G^MAIL$SEND_BEGIN MOVL R0, R3 BLBC R3, 20$ MOVW #19, -30(FP) CLRQ -24(FP) MOVL 4(R7), R6 MOVZWL (R7), R4 EXTZV #1, #1, R2, R2 MCOML R2, R2 15$: TSTL R4 BEQL 19$ MOVL R6, -28(FP) LOCC #44, R4, (R6) BNEQ 16$ CLRL R1 16$: TSTL R1 BEQL 17$ SUBL2 R6, R1 MOVW R1, -32(FP) MOVAB 1(R1)[R6], R6 SUBL3 R1, R4, R0 MOVAB -1(R0), R4 BRB 18$ 17$: MOVW R4, -32(FP) CLRL R4 18$: PUSHAB 4(SP) PUSHAB -32(FP) PUSHAB 16(SP) CALLS #3, G^MAIL$SEND_ADD_ADDRESS MOVL R0, R3 BLBC R2, 15$ BLBS R3, 15$ BRB 21$ 19$: PUSHAB 4(SP) PUSHAB -88(FP) PUSHAB 16(SP) CALLS #3, G^MAIL$SEND_ADD_ATTRIBUTE MOVL R0, R3 20$: BLBC R3, 21$ PUSHAB 4(SP) PUSHAB -48(FP) PUSHAB 16(SP) CALLS #3, G^MAIL$SEND_ADD_BODYPART MOVL R0, R3 BLBC R3, 21$ PUSHAB 4(SP) PUSHAB 8(SP) PUSHAB 16(SP) CALLS #3, G^MAIL$SEND_MESSAGE MOVL R0, R3 BLBC R3, 21$ PUSHAB 4(SP) PUSHAB 8(SP) PUSHAB 16(SP) CALLS #3, G^MAIL$SEND_END MOVL R0, R3 21$: MOVL R3, R0 RET 22$: .WORD ^M<> CLRL -(SP) PUSHL SP MOVQ 4(AP), -(SP) CALLS #3, W^U.2 RET .EXTRN SYS$UNWIND U.2: .WORD ^M<> SUBL2 #4, SP CLRL -(SP) MOVL #1, 4(SP) PUSHAB 4(SP) CALLS #2, G^SYS$UNWIND RET .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAJ: .ASCII \LNM$JOB\<0> P.AAI: .LONG 17694727 .ADDRESS P.AAJ P.AAL: .ASCII \SYS$SCRATCH\<0> P.AAK: .LONG 17694731 .ADDRESS P.AAL U.13= P.AAI U.14= P.AAK .EXTRN SYS$GETJPIW, SYS$GETUAI, SYS$CRELNM .PSECT $CODE$,NOWRT,2 U.3: PUSHR #^M MOVAB -536(SP), SP MOVL R0, R2 MOVL #17694720, 4(SP) MOVAB 12(SP), 8(SP) MOVAB 520(SP), R0 MOVL #131327, (R0)+ MOVAB 264(SP), (R0)+ CLRQ (R0)+ PUSHAB 520(SP) CLRL -(SP) PUSHAB W^U.14 PUSHAB W^U.13 CLRL -(SP) CALLS #5, G^SYS$TRNLNM MOVL R0, R6 BLBC R6, 2$ 1$: BRW 5$ 2$: TSTL R2 BEQL 3$ TSTW (R2) BEQL 3$ MOVW (R2), 520(SP) MOVL 4(R2), 524(SP) BRW 4$ 3$: MOVAB 236(SP), R0 MOVL #33685536, (R0)+ MOVAB 12(SP), (R0)+ MOVAB (SP), (R0)+ CLRL (R0)+ CLRQ -(SP) CLRL -(SP) PUSHAB 248(SP) CLRQ -(SP) CLRL -(SP) CALLS #7, G^SYS$GETJPIW MOVL R0, R6 BLBC R6, 1$ MOVW (SP), 4(SP) MOVAB 236(SP), R0 MOVL #852000, (R0)+ MOVAB 108(SP), (R0)+ CLRL (R0)+ MOVL #917568, (R0)+ MOVAB 44(SP), (R0)+ CLRQ (R0)+ CLRQ -(SP) CLRL -(SP) PUSHAB 248(SP) PUSHAB 20(SP) CLRQ -(SP) CALLS #7, G^SYS$GETUAI MOVL R0, R6 BLBC R6, 5$ MOVAB 140(SP), R8 MOVAB 108(SP), R7 MOVZBL (R7)+, R9 MOVC3 R9, (R7), (R8) ADDL2 R9, R8 MOVAB 44(SP), R7 MOVZBL (R7)+, R9 MOVC3 R9, (R7), (R8) MOVAB 140(SP), R0 SUBL2 R8, R0 SUBW3 R0, R9, 520(SP) MOVAB 140(SP), 524(SP) 4$: PUSHAB 520(SP) CLRL -(SP) PUSHAB W^U.14 PUSHAB W^U.13 CLRL -(SP) CALLS #5, G^SYS$CRELNM MOVL R0, R6 5$: MOVL R6, R0 MOVAB 536(SP), SP POPR #^M RSB .END