.TITLE NOTICE NOTICE .IDENT \01-003\ .PSECT $OWN$,NOEXE,2 U.11: .BLKB 256 U.12: .WORD 256 .BYTE 14, 1 .ADDRESS U.11 U.13: .BLKB 256 U.14: .WORD 256 .BYTE 14, 1 .ADDRESS U.13 U.15: .BLKB 256 U.16: .WORD 256 .BYTE 14, 1 .ADDRESS U.15 U.17: .BLKB 8 U.18: .BLKB 4 U.19: .BLKB 4 U.20: .BLKB 4 U.32: .WORD 0 .BYTE 14, 2 .LONG 0 U.33: .WORD 0 .BYTE 14, 2 .LONG 0 .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAB: .ASCII \NOTICE_LIBRARY\<0><0> P.AAA: .LONG 17694734 .ADDRESS P.AAB P.AAD: .BLKB 0 P.AAC: .LONG 17694720 .ADDRESS P.AAD P.AAF: .ASCII \$\<0><0><0> P.AAE: .LONG 17694721 .ADDRESS P.AAF P.AAG: .LONG 1 P.AAI: .ASCII <7>\NOTICE topics. Type NOTICE for more informati\ .ASCII \on.\<0> P.AAH: .LONG 17694783 .ADDRESS P.AAI P.AAK: .ASCII \NOTICE topics. Type NOTICE for more information.\ .ASCII <0><0> P.AAJ: .LONG 17694782 .ADDRESS P.AAK P.AAM: .ASCII \Topic Date Description\<0> P.AAL: .LONG 17694755 .ADDRESS P.AAM P.AAO: .ASCII \--------- ----------- -----------\<0> P.AAN: .LONG 17694755 .ADDRESS P.AAO P.AAQ: .ASCII \LIST\ P.AAP: .LONG 17694724 .ADDRESS P.AAQ P.AAS: .ASCII \MODULE\<0><0> P.AAR: .LONG 17694726 .ADDRESS P.AAS P.AAU: .ASCII \NOTICE \<0> P.AAT: .LONG 17694727 .ADDRESS P.AAU P.AAV: .LONG 1 P.AAW: .LONG 4 P.AAY: .ASCII \*\<0><0><0> P.AAX: .LONG 17694721 .ADDRESS P.AAY U.21= P.AAA U.22= P.AAC U.23= P.AAE U.24= P.AAG U.25= P.AAH U.26= P.AAJ U.27= P.AAL U.28= P.AAN U.29= P.AAP U.30= P.AAR U.31= P.AAT .EXTRN HG$PUT_OUTPUT, CLI$DCL_PARSE, CLI$GET_VALUE, CLI$PRESENT, LIB$GET_FOREIGN, LIB$GET_INPUT .EXTRN LIB$GET_VM, LIB$INSERT_TREE, LIB$PUT_OUTPUT, LIB$SUB_TIMES, LIB$TRAVERSE_TREE, LBR$CLOSE .EXTRN LBR$FIND, LBR$GET_INDEX, LBR$GET_RECORD, LBR$INI_CONTROL, LBR$LOOKUP_KEY, LBR$OPEN .EXTRN LBR$SET_MODULE, LBR$SET_MOVE, STR$CONCAT, NOTICE_TABLES, CLI$_PRESENT, LBR$_KEYNOTFND .PSECT $CODE$,NOWRT,2 U.1: .WORD ^M MOVAB G^CLI$PRESENT, R5 MOVAB W^U.30, R4 MOVAB W^U.32, R3 PUSHL R3 CALLS #1, G^LIB$GET_FOREIGN MOVL R0, R2 BLBC R2, 1$ PUSHL R3 PUSHAB 16(R4) PUSHAB 8(R3) CALLS #3, G^STR$CONCAT PUSHAB G^NOTICE_TABLES PUSHAB 8(R3) CALLS #2, G^CLI$DCL_PARSE MOVL R0, R2 BLBC R2, 1$ PUSHAB 28(R4) PUSHAB 24(R4) PUSHAB -4(R3) CALLS #3, G^LBR$INI_CONTROL MOVL R0, R2 BLBC R2, 1$ PUSHAB -284(R4) PUSHAB -4(R3) CALLS #2, G^LBR$OPEN MOVL R0, R2 1$: BLBC R2, 9$ PUSHL R4 CALLS #1, (R5) BLBC R0, 2$ PUSHL R3 PUSHL R4 CALLS #2, G^CLI$GET_VALUE MOVL R0, R2 BRB 3$ 2$: CLRW (R3) 3$: PUSHAB -16(R4) CALLS #1, (R5) MOVAB G^CLI$_PRESENT, R1 CMPL R0, R1 BNEQ 6$ TSTW (R3) BNEQ 4$ MOVAB 36(R4), R0 BRB 5$ 4$: MOVAB (R3), R0 5$: PUSHL R0 PUSHAB -4(R3) CALLS #2, W^U.3 BRB 8$ 6$: TSTW (R3) BNEQ 7$ CLRL -(SP) PUSHAB -4(R3) CALLS #2, W^U.2 BRB 8$ 7$: PUSHL R3 PUSHAB -4(R3) CALLS #2, W^U.5 8$: MOVL R0, R2 PUSHAB -4(R3) CALLS #1, G^LBR$CLOSE 9$: MOVL R2, R0 RET .EXTRN SYS$GETJPIW U.2: .WORD ^M MOVAB W^U.17, R5 MOVAB W^U.22, R4 MOVAB G^LIB$PUT_OUTPUT, R3 SUBL2 #24, SP MOVL 8(AP), R1 BNEQ 1$ MOVAB 8(SP), R0 MOVL #34799624, (R0)+ MOVAB (R5), (R0)+ CLRQ (R0)+ CLRQ -(SP) PUSHAB 8(SP) PUSHAB 20(SP) CLRQ -(SP) CLRL -(SP) CALLS #7, G^SYS$GETJPIW MOVL R0, R2 BLBS R2, 2$ BRB 4$ 1$: MOVQ (R1), (R5) 2$: CLRL 8(R5) PUSHAB W^U.4 PUSHAB 20(R4) PUSHL 4(AP) CALLS #3, G^LBR$GET_INDEX MOVL R0, R2 TSTL 8(R5) BEQL 3$ PUSHL R4 CALLS #1, (R3) 3$: PUSHAB 88(R4) CALLS #1, (R3) PUSHL R4 CALLS #1, (R3) PUSHAB 204(R4) CALLS #1, (R3) PUSHAB 248(R4) CALLS #1, (R3) CLRL -(SP) PUSHAB W^U.9 PUSHAB 12(R5) CALLS #3, G^LIB$TRAVERSE_TREE MOVL R0, R2 PUSHL R4 CALLS #1, (R3) 4$: MOVL R2, R0 RET U.3: .WORD ^M MOVAB G^LBR$GET_INDEX, R5 MOVAB W^U.24, R4 MOVAB G^HG$PUT_OUTPUT, R3 SUBL2 #4, SP PUSHL #34471936 CLRL 4(SP) PUSHL 8(AP) PUSHAB W^U.6 PUSHL R4 PUSHL 4(AP) CALLS #4, (R5) MOVL R0, R2 PUSHL 8(AP) PUSHAB -8(R4) PUSHAB 8(SP) CALLS #3, G^STR$CONCAT PUSHL SP PUSHAB W^U.6 PUSHL R4 PUSHL 4(AP) CALLS #4, (R5) BLBS R2, 1$ BLBC R0, 2$ 1$: PUSHAB 140(R4) CALLS #1, (R3) PUSHAB -20(R4) CALLS #1, (R3) PUSHAB 184(R4) CALLS #1, (R3) PUSHAB 228(R4) CALLS #1, (R3) CLRL -(SP) PUSHAB W^U.10 PUSHAB W^U.19 CALLS #3, G^LIB$TRAVERSE_TREE MOVL R0, R2 2$: BLBC R2, 3$ PUSHAB -20(R4) CALLS #1, (R3) 3$: MOVL R2, R0 RET .PSECT $OWN$,NOEXE,2 U.40: .BLKB 8 .EXTRN LIB$_NEGTIM .PSECT $CODE$,NOWRT,2 U.4: .WORD ^M MOVL 4(AP), R3 CLRL R0 CMPB @4(R3), #36 BEQL 2$ PUSHAB W^U.12 PUSHAB W^U.12 PUSHL 8(AP) PUSHAB W^U.20 CALLS #4, G^LBR$SET_MODULE MOVL R0, R2 BLBC R2, 1$ PUSHAB W^U.40 PUSHAB W^U.17 PUSHAB W^U.11+8 CALLS #3, G^LIB$SUB_TIMES CMPL R0, #LIB$_NEGTIM BNEQ 2$ 1$: MOVL R2, R0 RET 2$: INCL W^U.18 PUSHL 8(AP) PUSHL R3 CALLS #2, W^U.6 RET .PSECT $OWN$,NOEXE,2 U.43: .BLKB 8 .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABA: .ASCII \Notice !AS, dated !%D\<0><0><0> P.AAZ: .LONG 17694741 .ADDRESS P.ABA .EXTRN SYS$FAO .PSECT $CODE$,NOWRT,2 U.5: .WORD ^M MOVAB G^LBR$LOOKUP_KEY, R5 MOVAB G^HG$PUT_OUTPUT, R4 MOVAB W^U.16, R3 SUBL2 #8, SP MOVW #256, (R3) MOVW #256, -528(R3) PUSHAB 52(R3) MOVQ 4(AP), -(SP) CALLS #3, (R5) MOVL R0, R2 MOVAB G^LBR$_KEYNOTFND, R0 CMPL R2, R0 BNEQ 1$ MOVL #34471936, (SP) CLRL 4(SP) PUSHL 8(AP) PUSHAB W^U.23 PUSHAB 8(SP) CALLS #3, G^STR$CONCAT PUSHAB 52(R3) PUSHAB 4(SP) PUSHL 4(AP) CALLS #3, (R5) MOVL R0, R2 1$: BLBC R2, 4$ PUSHAB -528(R3) PUSHAB -528(R3) PUSHAB 52(R3) PUSHL 4(AP) CALLS #4, G^LBR$SET_MODULE MOVL R0, R2 BLBC R2, 4$ PUSHAB -776(R3) PUSHL 8(AP) PUSHL R3 PUSHL R3 PUSHAB W^P.AAZ CALLS #5, G^SYS$FAO PUSHL R3 CALLS #1, (R4) PUSHAB W^U.22 2$: CALLS #1, (R4) MOVW #256, -264(R3) PUSHAB -264(R3) PUSHAB -264(R3) PUSHL 4(AP) CALLS #3, G^LBR$GET_RECORD MOVL R0, R2 BLBC R2, 3$ PUSHAB -264(R3) BRB 2$ 3$: PUSHAB W^U.22 CALLS #1, (R4) CMPL R2, #98938 BNEQ 4$ MOVL #1, R0 RET 4$: MOVL R2, R0 RET .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABC: .ASCII \!10AD !11%D !55AS\<0><0> P.ABB: .LONG 17694738 .ADDRESS P.ABC U.46= P.ABB .PSECT $CODE$,NOWRT,2 U.6: .WORD ^M MOVAB W^U.14, R4 SUBL2 #8, SP MOVL 4(AP), R2 CLRL R3 PUSHAB -264(R4) PUSHAB -264(R4) PUSHL 8(AP) PUSHAB 288(R4) CALLS #4, G^LBR$SET_MODULE PUSHL 8(AP) PUSHAB 288(R4) CALLS #2, G^LBR$FIND BLBC R0, 6$ MOVW #256, (R4) PUSHL R4 PUSHL R4 PUSHAB 288(R4) CALLS #3, G^LBR$GET_RECORD BLBC R0, 7$ CMPB @4(R2), #36 BNEQ 1$ MOVL #1, R3 1$: MOVW #256, 264(R4) PUSHL R4 PUSHAB -512(R4) BLBC R3, 2$ ADDL3 #1, 4(R2), R1 PUSHL R1 BRB 3$ 2$: PUSHL 4(R2) 3$: BLBC R3, 4$ MOVZWL (R2), R2 PUSHAB -(R2) BRB 5$ 4$: MOVZWL (R2), -(SP) 5$: PUSHAB 264(R4) PUSHAB 264(R4) PUSHAB W^U.46 CALLS #7, G^SYS$FAO 6$: BLBC R0, 7$ PUSHAB 264(R4) PUSHAB 8(SP) PUSHAB W^U.7 PUSHAB W^U.8 CLRL 16(SP) PUSHAB 16(SP) PUSHAB -512(R4) PUSHAB 284(R4) CALLS #7, G^LIB$INSERT_TREE 7$: RET .PSECT $OWN$,NOEXE,2 U.50: .BLKB 4 .PSECT $CODE$,NOWRT,2 U.7: .WORD ^M SUBL2 #4, SP MOVL 4(AP), R3 MOVL 12(AP), R2 PUSHAB W^U.50 MOVZBL #102, 4(SP) PUSHAB 4(SP) CALLS #2, G^LIB$GET_VM MOVL R0, R6 BLBC R6, 1$ MOVL W^U.50, R7 MOVAB 12(R7), R0 MOVQ (R3), (R0) MOVW (R2), 20(R7) MOVC3 (R2), @4(R2), 22(R7) MOVL R7, @8(AP) 1$: MOVL R6, R0 RET U.8: .WORD ^M<> SUBL2 #8, SP PUSHL SP ADDL3 #12, 8(AP), -(SP) PUSHL 4(AP) CALLS #3, G^LIB$SUB_TIMES CMPL R0, #LIB$_NEGTIM BNEQ 1$ MOVL #1, R0 RET 1$: CMPL (SP), #-1 BNEQ 2$ CMPL 4(SP), #-1 BNEQ 2$ CLRL R0 RET 2$: MNEGL #1, R0 RET U.9: .WORD ^M SUBL2 #4, SP MOVL 4(AP), R1 PUSHL #17694720 CLRL 4(SP) MOVAB 22(R1), R0 MOVL R0, 4(SP) MOVZWL 20(R1), R2 ADDL2 R2, R0 1$: CMPB (R0), #32 BNEQ 2$ DECL R0 BRB 1$ 2$: SUBW3 4(SP), R0, (SP) PUSHL SP CALLS #1, G^LIB$PUT_OUTPUT RET U.10: .WORD ^M SUBL2 #4, SP MOVL 4(AP), R1 PUSHL #17694720 CLRL 4(SP) MOVAB 22(R1), R0 MOVL R0, 4(SP) MOVZWL 20(R1), R2 ADDL2 R2, R0 1$: CMPB (R0), #32 BNEQ 2$ DECL R0 BRB 1$ 2$: SUBW3 4(SP), R0, (SP) PUSHL SP CALLS #1, G^HG$PUT_OUTPUT RET .END U.1