.TITLE NAME_CONVERSION NAME_CONVERSION .IDENT \V1.1\ .PSECT _LIB$KEY0$,NOWRT, SHR, PIC,1 DNA_KEY:: .BLKB 0 ;TPA$KEY0 U.7: .BLKB 0 ;TPA$KEY U.65: .WORD ; .PSECT _LIB$STATE$,NOWRT, SHR, PIC,1 DNA_STATE:: .BLKB 0 ;DNA_START U.9: .BLKB 0 ;TPA$TYPE U.10: .WORD -25608 ; ;TPA$FLAGS2 U.11: .BYTE 1 ; ;TPA$SUBEXP U.13: .WORD <-2> ; ;TPA$PARAM U.14: .LONG 1 ; ;TPA$ACTION U.15: .LONG <-4> ; ;TPA$TARGET U.17: .WORD <-2> ; ;TPA$TYPE U.18: .WORD -28680 ; ;TPA$FLAGS2 U.19: .BYTE 1 ; ;TPA$SUBEXP U.21: .WORD <-2> ; ;TPA$PARAM U.22: .LONG 2 ; ;TPA$ACTION U.23: .LONG <-4> ; ;DNA_NODE U.24: .BLKB 0 ;TPA$TYPE U.25: .WORD -25608 ; ;TPA$FLAGS2 U.26: .BYTE 1 ; ;TPA$SUBEXP U.27: .WORD <-2> ; ;TPA$PARAM U.28: .LONG 1 ; ;TPA$ACTION U.29: .LONG <-4> ; ;TPA$TARGET U.30: .WORD <-2> ; ;TPA$TYPE U.31: .WORD -25608 ; ;TPA$FLAGS2 U.32: .BYTE 1 ; ;TPA$SUBEXP U.33: .WORD <-2> ; ;TPA$PARAM U.34: .LONG 2 ; ;TPA$ACTION U.35: .LONG <-4> ; ;TPA$TARGET U.36: .WORD <-2> ; ;TPA$TYPE U.37: .WORD 5622 ; ;TPA$TARGET U.39: .WORD <-2> ; ;DNA_USER U.38: .BLKB 0 ;TPA$TYPE U.40: .WORD 4599 ; ;TPA$TARGET U.41: .WORD -1 ; ;TPA$TYPE U.42: .WORD -26643 ; ;TPA$FLAGS2 U.43: .BYTE 1 ; ;TPA$PARAM U.44: .LONG 3 ; ;TPA$ACTION U.45: .LONG <-4> ; ;TPA$TARGET U.46: .WORD <-2> ; ;DNA_MRGATE U.16: .BLKB 0 ;TPA$TYPE U.47: .WORD 1058 ; ;DNA_MRGATE_NODE U.48: .BLKB 0 ;TPA$TYPE U.49: .WORD -25608 ; ;TPA$FLAGS2 U.50: .BYTE 1 ; ;TPA$SUBEXP U.51: .WORD <-2> ; ;TPA$PARAM U.52: .LONG 4 ; ;TPA$ACTION U.53: .LONG <-4> ; ;TPA$TARGET U.54: .WORD <-2> ; ;TPA$TYPE U.55: .WORD 1526 ; ;DNA_MRGATE_USER U.56: .BLKB 0 ;TPA$TYPE U.57: .WORD 4130 ; ;TPA$TARGET U.58: .WORD -1 ; ;TPA$TYPE U.59: .WORD -26643 ; ;TPA$FLAGS2 U.60: .BYTE 1 ; ;TPA$PARAM U.61: .LONG 5 ; ;TPA$ACTION U.62: .LONG <-4> ; ;TPA$TARGET U.63: .WORD <-2> ; ;MRGATE U.12: .BLKB 0 ;TPA$TYPE U.67: .WORD 1280 ; ;TPA$TYPE U.69: .WORD 1082 ; ;TPA$TYPE U.70: .WORD 5178 ; ;TPA$TARGET U.71: .WORD -1 ; ;NODE U.20: .BLKB 0 ;TPA$TYPE U.72: .WORD 4590 ; ;TPA$TARGET U.73: .WORD <-2> ; ;TPA$TYPE U.74: .WORD 4591 ; ;TPA$TARGET U.75: .WORD <-2> ; ;TPA$TYPE U.76: .WORD 1082 ; ;TPA$TYPE U.77: .WORD 5178 ; ;TPA$TARGET U.78: .WORD -1 ; .PSECT _LIB$KEY1$,NOWRT, SHR, PIC,1 ;TPA$KEYST0 U.64: .BLKB 0 ;TPA$KEYST U.66: .ASCII \MRGATE\ ; .BYTE -1 ; ;TPA$KEYFILL U.68: .BYTE -1 ; .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAB: .ASCII \LNM$SYSTEM\<0><0> ; P.AAA: .LONG 17694730 ; .ADDRESS P.AAB ; P.AAD: .ASCII \SYS$NODE\ ; P.AAC: .LONG 17694728 ; .ADDRESS P.AAD ; P.AAF: .ASCII \LNM$SYSTEM\<0><0> ; P.AAE: .LONG 17694730 ; .ADDRESS P.AAF ; P.AAH: .ASCII \SYS$CLUSTER_NODE\ ; P.AAG: .LONG 17694736 ; .ADDRESS P.AAH ; P.AAJ: .ASCII \LNM$SYSTEM\<0><0> ; P.AAI: .LONG 17694730 ; .ADDRESS P.AAJ ; P.AAL: .ASCII \MX_SITE_NAME_CONVERSION_LOCAL\<0><0><0> ; P.AAK: .LONG 17694749 ; .ADDRESS P.AAL ; P.AAN: .ASCII \MX_SITE_NAME_CONVERSION_LOCAL\<0><0><0> ; P.AAM: .LONG 17694749 ; .ADDRESS P.AAN ; P.AAP: .ASCII \INIT\ ; P.AAO: .LONG 17694724 ; .ADDRESS P.AAP ; P.AAR: .ASCII \MX_SITE_NAME_CONVERSION_LOCAL\<0><0><0> ; P.AAQ: .LONG 17694749 ; .ADDRESS P.AAR ; P.AAT: .ASCII \CONVERT\<0> ; P.AAS: .LONG 17694727 ; .ADDRESS P.AAT ; P.AAV: .ASCII \MX_SITE_NAME_CONVERSION_LOCAL\<0><0><0> ; P.AAU: .LONG 17694749 ; .ADDRESS P.AAV ; P.AAX: .ASCII \CLEANUP\<0> ; P.AAW: .LONG 17694727 ; .ADDRESS P.AAX ; .EXTRN LIB$FIND_IMAGE_SYMBOL, LIB$TPARSE, STR$COPY_DX, LIB$GET_VM, LIB$FREE_VM, STR$CONCAT .EXTRN STR$PREFIX, STR$FREE1_DX, SYS$TRNLNM .PSECT $CODE$,NOWRT,2 U.1: .ENTRY INIT, ^M ;INIT, Save R2,R3,R4,R5,R6,R7,R8,R9,R10 MOVAB G^LIB$FIND_IMAGE_SYMBOL, R10 ;LIB$FIND_IMAGE_SYMBOL, R10 MOVAB G^SYS$TRNLNM, R9 ;SYS$TRNLNM, R9 MOVAB W^P.AAC, R8 ;P.AAC, R8 SUBL2 #20, SP ;#20, SP PUSHL 4(AP) ;CTX_A_A MOVZWL #532, 4(SP) ;#532, 4(SP) PUSHAB 4(SP) ;4(SP) CALLS #2, G^LIB$GET_VM ;#2, LIB$GET_VM MOVL R0, R7 ;R0, STATUS MOVL @4(AP), R6 ;@CTX_A_A, R6 MOVC5 #0, (SP), #0, #532, (R6) ;#0, (SP), #0, #532, (R6) BLBS R7, 1$ ;STATUS, 1$ MOVL R7, R0 ;STATUS, R0 RET ; 1$: MOVAB 4(SP), R0 ;LNMLST, $$ITMBLKPTR MOVL #131328, (R0)+ ;#131328, ($$ITMBLKPTR)+ MOVAB 18(R6), (R0)+ ;18(R6), ($$ITMBLKPTR)+ MOVAB 16(R6), (R0)+ ;16(R6), ($$ITMBLKPTR)+ CLRL (R0)+ ;($$ITMBLKPTR)+ PUSHAB 4(SP) ;LNMLST CLRL -(SP) ;-(SP) PUSHL R8 ;R8 PUSHAB -16(R8) ;P.AAA CLRL -(SP) ;-(SP) CALLS #5, (R9) ;#5, SYS$TRNLNM MOVL R0, R7 ;R0, STATUS BLBC R7, 2$ ;STATUS, 2$ CMPW 16(R6), #2 ;16(R6), #2 BLEQU 2$ ;2$ SUBW2 #2, 16(R6) ;#2, 16(R6) 2$: MOVAB 4(SP), R0 ;LNMLST, $$ITMBLKPTR MOVL #131328, (R0)+ ;#131328, ($$ITMBLKPTR)+ MOVAB 276(R6), (R0)+ ;276(R6), ($$ITMBLKPTR)+ MOVAB 274(R6), R2 ;274(R6), R2 MOVL R2, (R0)+ ;R2, ($$ITMBLKPTR)+ CLRL (R0)+ ;($$ITMBLKPTR)+ PUSHAB 4(SP) ;LNMLST CLRL -(SP) ;-(SP) PUSHAB 44(R8) ;P.AAG PUSHAB 20(R8) ;P.AAE CLRL -(SP) ;-(SP) CALLS #5, (R9) ;#5, SYS$TRNLNM MOVL R0, R7 ;R0, STATUS BLBC R7, 3$ ;STATUS, 3$ CMPW (R2), #2 ;(R2), #2 BLEQU 3$ ;3$ SUBW2 #2, (R2) ;#2, (R2) 3$: CLRQ -(SP) ;-(SP) PUSHAB 104(R8) ;P.AAK PUSHAB 64(R8) ;P.AAI CLRL -(SP) ;-(SP) CALLS #5, (R9) ;#5, SYS$TRNLNM BLBC R0, 4$ ;R0, 4$ PUSHL R6 ;R6 PUSHAB 156(R8) ;P.AAO PUSHAB 144(R8) ;P.AAM CALLS #3, (R10) ;#3, LIB$FIND_IMAGE_SYMBOL MOVL R0, R7 ;R0, STATUS BLBC R7, 4$ ;STATUS, 4$ PUSHAB 4(R6) ;4(R6) PUSHAB 212(R8) ;P.AAS PUSHAB 196(R8) ;P.AAQ CALLS #3, (R10) ;#3, LIB$FIND_IMAGE_SYMBOL PUSHAB 8(R6) ;8(R6) PUSHAB 268(R8) ;P.AAW PUSHAB 252(R8) ;P.AAU CALLS #3, (R10) ;#3, LIB$FIND_IMAGE_SYMBOL PUSHAB 12(R6) ;12(R6) CALLS #1, @0(R6) ;#1, @0(R6) MOVL R0, R7 ;R0, STATUS BLBS R7, 4$ ;STATUS, 4$ MOVC5 #0, (SP), #0, #16, (R6) ;#0, (SP), #0, #16, (R6) 4$: MOVL #1, R0 ;#1, R0 RET ; ; Routine Size: 259 bytes, Routine Base: $CODE$ + 0000 .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAZ: .ASCII \%\<0><0><0> ; P.AAY: .LONG 17694721 ; .ADDRESS P.AAZ ; P.ABB: .ASCII \.dnet\<0><0><0> ; P.ABA: .LONG 17694725 ; .ADDRESS P.ABB ; P.ABD: .ASCII \%\<0><0><0> ; P.ABC: .LONG 17694721 ; .ADDRESS P.ABD ; P.ABF: .ASCII \.mrgate\<0> ; P.ABE: .LONG 17694727 ; .ADDRESS P.ABF ; P.ABH: .ASCII \%\<0><0><0> ; P.ABG: .LONG 17694721 ; .ADDRESS P.ABH ; P.ABJ: .ASCII \.\<0><0><0> ; P.ABI: .LONG 17694721 ; .ADDRESS P.ABJ ; P.ABL: .ASCII \.mrgate\<0> ; P.ABK: .LONG 17694727 ; .ADDRESS P.ABL ; .PSECT $CODE$,NOWRT,2 U.2: .ENTRY CONVERT, ^M ;CONVERT, Save R2,R3,R4,R5,R6,R7,R8 MOVAB G^STR$CONCAT, R8 ;STR$CONCAT, R8 MOVAB W^P.ABA, R7 ;P.ABA, R7 MOVAB G^STR$FREE1_DX, R6 ;STR$FREE1_DX, R6 SUBL2 #28, SP ;#28, SP MOVL 16(AP), R5 ;OUTSTR_A, R5 CMPL @8(AP), #1 ;@CODE_A, #1 BNEQ 1$ ;1$ MOVL @4(AP), R0 ;@CTX_A_A, R0 TSTL 4(R0) ;4(R0) BEQL 4$ ;4$ BRB 2$ ;2$ 1$: CMPL @8(AP), #2 ;@CODE_A, #2 BNEQ 4$ ;4$ MOVL #34471936, 20(SP) ;#34471936, _D CLRL 24(SP) ;_D+4 MOVL #34471936, 4(SP) ;#34471936, _D CLRL 8(SP) ;_D+4 PUSHAB 4(SP) ;GWNODE PUSHAB 16(SP) ;USER PUSHAB 28(SP) ;NODE PUSHAB 12(SP) ;ADDR_TYPE PUSHL 12(AP) ;INSTR_A CALLS #5, W^U.4 ;#5, U.4 BLBS R0, 5$ ;STATUS, 5$ PUSHAB 20(SP) ;NODE CALLS #1, (R6) ;#1, STR$FREE1_DX PUSHAB 4(SP) ;GWNODE CALLS #1, (R6) ;#1, STR$FREE1_DX MOVL @4(AP), R0 ;@CTX_A_A, R0 TSTL 4(R0) ;4(R0) BEQL 3$ ;3$ 2$: PUSHL R5 ;R5 MOVQ 8(AP), -(SP) ;CODE_A, -(SP) PUSHAB 12(R0) ;12(R0) CALLS #4, @4(R0) ;#4, @4(R0) RET ; 3$: PUSHL 12(AP) ;INSTR_A PUSHL R5 ;R5 CALLS #2, G^STR$COPY_DX ;#2, STR$COPY_DX 4$: CLRL R0 ;R0 RET ; 5$: TSTL (SP) ;ADDR_TYPE BNEQ 6$ ;6$ PUSHL R7 ;R7 PUSHAB 24(SP) ;NODE PUSHAB -16(R7) ;P.AAY BRB 8$ ;8$ 6$: MOVZWL 4(SP), R4 ;GWNODE, R4 BEQL 7$ ;7$ MOVL @4(AP), R0 ;@CTX_A_A, R0 CMPC5 R4, @8(SP), #32, 16(R0), 18(R0) ;R4, @GWNODE+4, #32, 16(R0), 18(R0) BEQL 7$ ;7$ MOVL @4(AP), R0 ;@CTX_A_A, R0 CMPC5 R4, @8(SP), #32, 274(R0), 276(R0) ;R4, @GWNODE+4, #32, 274(R0), 276(R0) BNEQ 9$ ;9$ 7$: PUSHAB 28(R7) ;P.ABE PUSHAB 24(SP) ;NODE PUSHAB 12(R7) ;P.ABC 8$: PUSHAB 24(SP) ;USER PUSHL R5 ;R5 CALLS #5, (R8) ;#5, STR$CONCAT BRB 10$ ;10$ 9$: PUSHAB 68(R7) ;P.ABK PUSHAB 8(SP) ;GWNODE PUSHAB 52(R7) ;P.ABI PUSHAB 32(SP) ;NODE PUSHAB 40(R7) ;P.ABG PUSHAB 32(SP) ;USER PUSHL R5 ;R5 CALLS #7, (R8) ;#7, STR$CONCAT 10$: PUSHAB 20(SP) ;NODE CALLS #1, (R6) ;#1, STR$FREE1_DX PUSHAB 4(SP) ;GWNODE CALLS #1, (R6) ;#1, STR$FREE1_DX MOVL #1, R0 ;#1, R0 RET ; ; Routine Size: 256 bytes, Routine Base: $CODE$ + 0103 U.3: .ENTRY CLEANUP, ^M<> ;CLEANUP, Save nothing SUBL2 #4, SP ;#4, SP MOVL @4(AP), R0 ;@CTX_A_A, R0 TSTL 8(R0) ;8(R0) BEQL 1$ ;1$ PUSHAB 12(R0) ;12(R0) CALLS #1, @8(R0) ;#1, @8(R0) 1$: PUSHL 4(AP) ;CTX_A_A MOVZWL #532, 4(SP) ;#532, 4(SP) PUSHAB 4(SP) ;4(SP) CALLS #2, G^LIB$FREE_VM ;#2, LIB$FREE_VM MOVL #1, R0 ;#1, R0 RET ; ; Routine Size: 44 bytes, Routine Base: $CODE$ + 0203 ;DNA_PARSE U.4: .WORD ^M<> ;Save nothing SUBL2 #44, SP ;#44, SP MOVL 4(AP), R1 ;INSTR_A, R1 MOVL 16(AP), R0 ;USER_A, R0 MOVL #17694720, (R0) ;#17694720, (R0) CLRL 4(R0) ;4(R0) CLRL @8(AP) ;@ADTYPE_A PUSHL #11 ;#11 CLRL 4(SP) ;TPABLK+4 MOVZWL (R1), 8(SP) ;(R1), TPABLK+8 MOVL 4(R1), 12(SP) ;4(R1), TPABLK+12 MOVQ 8(AP), 36(SP) ;ADTYPE_A, TPABLK+36 MOVL R0, 44(SP) ;R0, TPABLK+44 MOVL 20(AP), (FP) ;GWNODE_A, TPABLK+48 PUSHAB W^DNA_KEY ;DNA_KEY PUSHAB W^DNA_STATE ;DNA_STATE PUSHAB 8(SP) ;TPABLK CALLS #3, G^LIB$TPARSE ;#3, LIB$TPARSE RET ; ; Routine Size: 72 bytes, Routine Base: $CODE$ + 022F .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABN: .ASCII \.\<0><0><0> ; P.ABM: .LONG 17694721 ; .ADDRESS P.ABN ; .PSECT $CODE$,NOWRT,2 ;DNA_STORE U.5: .WORD ^M ;Save R2,R3,R4,R5,R6,R7,R8 MOVAB G^STR$PREFIX, R8 ;STR$PREFIX, R8 SUBL2 #8, SP ;#8, SP MOVQ 40(AP), R6 ;NODE_A, R6 CASEL 32(AP), #1, #4 ;PARAM, #1, #4 1$: .WORD 2$-1$,- ;2$-1$,- 3$-1$,- ;3$-1$,- 7$-1$,- ;7$-1$,- 4$-1$,- ;4$-1$,- 7$-1$ ;7$-1$ 2$: MOVL #1, @36(AP) ;#1, @ADTYPE_A MOVC3 #8, (R6), @48(AP) ;#8, (R6), @GWNODE_A MOVL #34471936, (R6) ;#34471936, (R6) CLRL 4(R6) ;4(R6) BRB 9$ ;9$ 3$: SUBL3 #2, 16(AP), R0 ;#2, TOKLEN, R0 MOVW R0, (SP) ;R0, DSC MOVW #270, 2(SP) ;#270, DSC+2 MOVL 20(AP), 4(SP) ;TOKPTR, DSC+4 BRB 5$ ;5$ 4$: SUBL3 #2, 16(AP), R0 ;#2, TOKLEN, R0 MOVW R0, (SP) ;R0, DSC MOVW #270, 2(SP) ;#270, DSC+2 MOVL 20(AP), 4(SP) ;TOKPTR, DSC+4 TSTW (R6) ;(R6) BNEQ 6$ ;6$ 5$: PUSHR #^M ;#^M CALLS #2, G^STR$COPY_DX ;#2, STR$COPY_DX BRB 9$ ;9$ 6$: PUSHAB W^P.ABM ;P.ABM PUSHL R6 ;R6 CALLS #2, (R8) ;#2, STR$PREFIX PUSHR #^M ;#^M CALLS #2, (R8) ;#2, STR$PREFIX BRB 9$ ;9$ 7$: TSTL 4(R7) ;4(R7) BNEQ 8$ ;8$ MOVL 20(AP), 4(R7) ;TOKPTR, 4(R7) 8$: ADDW2 16(AP), (R7) ;TOKLEN, (R7) 9$: MOVL #1, R0 ;#1, R0 RET ; ; Routine Size: 145 bytes, Routine Base: $CODE$ + 0277 ; PSECT SUMMARY ; ; Name Bytes Attributes ; ; _LIB$KEY0$ 2 NOVEC,NOWRT, RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) ; _LIB$STATE$ 137 NOVEC,NOWRT, RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) ; _LIB$KEY1$ 8 NOVEC,NOWRT, RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) ; $PLIT$ 412 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $CODE$ 776 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; Library Statistics ; ; -------- Symbols -------- Pages Processing ; File Total Loaded Percent Mapped Time ; ; SYS$COMMON:[SYSLIB]STARLET.L32;2 18166 31 0 1063 00:00.1 ; SYS$COMMON:[SYSLIB]TPAMAC.L32;1 43 30 69 15 00:00.0 ; MX_SRC:[MX.COMMON]MX.L32;1 107 0 0 16 00:00.0 ; MX_SRC:[MX.COMMON]FIELDS.L32;1 20 12 60 10 00:00.0 ; COMMAND QUALIFIERS ; BLISS/LIST=NAME_CONVERSION.MAR/NOOBJ/MACHINE=(OBJ,NOBIN,ASSEM,UNIQUE,NOCOMM)/SOURCE=(NOHEAD,NOSOURCE) NAME_CONVERSION.B32 ; Compilation Complete .END