.TITLE CLAIM CLAIM .IDENT \V2.0-001\ .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAA: .LONG -1, -1 ; ; P.AAC: .ASCII \LOG\<0> ; ; P.AAB: .LONG 17694723 ; ; .ADDRESS P.AAC ; ; P.AAD: .BLKB 0 ; ; P.AAF: .ASCII \FSPEC\<0><0><0> ; ; P.AAE: .LONG 17694725 ; ; .ADDRESS P.AAF ; ; .EXTRN CLAIM__NOREMOTE, CLAIM__NOMATCH, CLAIM__NOTOWNER, CLAIM__NOOPNPAR, CLAIM__CANTCLAIM .EXTRN CLAIM__SUCCESS, CLAIM__ALREADY, CLAIM__BACKLINK, CLI$_PRESENT, LIB$GETJPI, CLI$PRESENT .EXTRN CLI$GET_VALUE, SYS$SETPRV, SYS$PARSE, SYS$SEARCH, SYS$OPEN, SYS$CLOSE .PSECT $CODE$,NOWRT,2 U.1: .ENTRY CLAIM, ^M ; ; MOVAB G^LIB$GETJPI, R11 ;LIB$GETJPI, R11 ; MOVAB G^LIB$SIGNAL, R10 ;LIB$SIGNAL, R10 ; MOVAB G^SYS$SETPRV, R9 ;SYS$SETPRV, R9 ; MOVAB -1684(SP), SP ;-1684(SP), SP ; CLRQ -(SP) ;-(SP) ; 0126 PUSHAB W^P.AAA ;P.AAA ; CLRL -(SP) ;-(SP) ; CALLS #4, (R9) ;#4, SYS$SETPRV ; PUSHAB -368(FP) ;PRCPRV ; 0127 CLRQ -(SP) ;-(SP) ; MOVZWL #516, 12(SP) ;#516, 12(SP) ; PUSHAB 12(SP) ;12(SP) ; CALLS #4, (R11) ;#4, LIB$GETJPI ; CLRQ -(SP) ;-(SP) ; 0128 PUSHAB -368(FP) ;PRCPRV ; PUSHL #1 ;#1 ; CALLS #4, (R9) ;#4, SYS$SETPRV ; CLRQ -376(FP) ;SYSPRV ; 0129 EXTZV #4, #1, -365(FP), R0 ;#4, #1, PRCPRV+3, R0 ; 0130 MCOML R0, R0 ;R0, R0 ; INSV R0, #4, #1, -373(FP) ;R0, #4, #1, SYSPRV+3 ; MOVL #34471936, -384(FP) ;#34471936, FSPEC ; 0132 CLRL -380(FP) ;FSPEC+4 ; PUSHAB W^P.AAB ;P.AAB ; 0134 CALLS #1, G^CLI$PRESENT ;#1, CLI$PRESENT ; CLRL R1 ;R1 ; CMPL R0, #CLI$_PRESENT ;R0, #CLI$_PRESENT ; BNEQ 1$ ;1$ ; INCL R1 ;R1 ; 1$: MOVL R1, R8 ;R1, LOGGING ; CLRL R7 ;DID_ONE ; 0135 MOVC5 #0, (SP), #0, #80, -80(FP) ;#0, (SP), #0, #80, $RMS_PTR ; 0137 MOVW #20483, -80(FP) ;#20483, $RMS_PTR ; MOVL #16777216, -76(FP) ;#16777216, $RMS_PTR+4 ; MOVB #2, -58(FP) ;#2, $RMS_PTR+22 ; MOVB #2, -49(FP) ;#2, $RMS_PTR+31 ; MOVAB -360(FP), -44(FP) ;XABPRO, $RMS_PTR+36 ; MOVAB -176(FP), -40(FP) ;NAM, $RMS_PTR+40 ; MOVAB W^P.AAD, -32(FP) ;P.AAD, $RMS_PTR+48 ; MOVC5 #0, (SP), #0, #96, -176(FP) ;#0, (SP), #0, #96, $RMS_PTR ; 0139 MOVW #24578, -176(FP) ;#24578, $RMS_PTR ; MNEGB #1, -174(FP) ;#1, $RMS_PTR+2 ; MOVAB 788(SP), -172(FP) ;RSPEC, $RMS_PTR+4 ; MOVB #16, -168(FP) ;#16, $RMS_PTR+8 ; MNEGB #1, -166(FP) ;#1, $RMS_PTR+10 ; MOVAB -640(FP), -164(FP) ;ESPEC, $RMS_PTR+12 ; MOVC5 #0, (SP), #0, #88, -360(FP) ;#0, (SP), #0, #88, $RMS_PTR ; 0140 MOVW #22547, -360(FP) ;#22547, $RMS_PTR ; 2$: PUSHAB -384(FP) ;FSPEC ; 0142 PUSHAB W^P.AAE ;P.AAE ; CALLS #2, G^CLI$GET_VALUE ;#2, CLI$GET_VALUE ; BLBS R0, 3$ ;R0, 3$ ; BRW 18$ ;18$ ; 3$: MOVL -380(FP), -36(FP) ;FSPEC+4, FAB+44 ; 0144 MOVB -384(FP), -28(FP) ;FSPEC, FAB+52 ; 0145 PUSHAB -80(FP) ;FAB ; 0146 CALLS #1, G^SYS$PARSE ;#1, SYS$PARSE ; MOVL R0, R6 ;R0, STATUS ; BLBS R6, 4$ ;STATUS, 4$ ; 0147 PUSHL -68(FP) ;FAB+12 ; 0149 PUSHL R6 ;STATUS ; PUSHL -164(FP) ;NAM+12 ; MOVZBL -165(FP), -(SP) ;NAM+11, -(SP) ; 0148 PUSHL #2 ;#2 ; PUSHL #CLAIM__CANTCLAIM ;#CLAIM__CANTCLAIM ; CALLS #6, (R10) ;#6, LIB$SIGNAL ; BRB 5$ ;5$ ; 4$: TSTB -120(FP) ;NAM+56 ; 0151 BEQL 6$ ;6$ ; PUSHL -164(FP) ;NAM+12 ; 0152 MOVZBL -165(FP), -(SP) ;NAM+11, -(SP) ; PUSHL #2 ;#2 ; PUSHL #CLAIM__NOREMOTE ;#CLAIM__NOREMOTE ; CALLS #4, (R10) ;#4, LIB$SIGNAL ; 5$: BRW 17$ ;17$ ; 6$: PUSHAB -80(FP) ;FAB ; 0153 CALLS #1, G^SYS$SEARCH ;#1, SYS$SEARCH ; BLBC R0, 5$ ;R0, 5$ ; MOVL #1, R7 ;#1, DID_ONE ; 0155 CLRQ -(SP) ;-(SP) ; 0156 PUSHAB -376(FP) ;SYSPRV ; PUSHL #1 ;#1 ; CALLS #4, (R9) ;#4, SYS$SETPRV ; PUSHAB 20(SP) ;PARENT ; 0158 PUSHAB 8(SP) ;PARENT_OWNER ; PUSHAB -134(FP) ;NAM+42 ; PUSHL -108(FP) ;NAM+68 ; 0157 MOVZBL -119(FP), -(SP) ;NAM+57, -(SP) ; CALLS #5, W^U.2 ;#5, U.2 ; MOVL R0, R6 ;R0, STATUS ; CLRQ -(SP) ;-(SP) ; 0159 PUSHAB -376(FP) ;SYSPRV ; CLRL -(SP) ;-(SP) ; CALLS #4, (R9) ;#4, SYS$SETPRV ; BLBS R6, 7$ ;STATUS, 7$ ; 0160 PUSHL -68(FP) ;FAB+12 ; 0162 PUSHL R6 ;STATUS ; PUSHL -164(FP) ;NAM+12 ; MOVZBL -165(FP), -(SP) ;NAM+11, -(SP) ; 0161 PUSHL #2 ;#2 ; PUSHL #CLAIM__NOOPNPAR ;#CLAIM__NOOPNPAR ; BRB 9$ ;9$ ; 7$: PUSHAB 8(SP) ;PROC_UIC ; 0165 CLRQ -(SP) ;-(SP) ; MOVZWL #772, 12(SP) ;#772, 12(SP) ; PUSHAB 12(SP) ;12(SP) ; CALLS #4, (R11) ;#4, LIB$GETJPI ; CMPL 8(SP), 4(SP) ;PROC_UIC, PARENT_OWNER ; 0166 BEQL 8$ ;8$ ; PUSHAB 22(SP) ;PARENT+2 ; 0168 MOVZWL 24(SP), -(SP) ;PARENT, -(SP) ; 0167 PUSHL #2 ;#2 ; PUSHL #CLAIM__NOTOWNER ;#CLAIM__NOTOWNER ; BRW 15$ ;15$ ; 8$: BISB2 #8, -58(FP) ;#8, FAB+22 ; 0172 CLRQ -(SP) ;-(SP) ; 0173 PUSHAB -376(FP) ;SYSPRV ; PUSHL #1 ;#1 ; CALLS #4, (R9) ;#4, SYS$SETPRV ; PUSHAB -80(FP) ;FAB ; 0174 CALLS #1, G^SYS$OPEN ;#1, SYS$OPEN ; MOVL R0, R6 ;R0, STATUS ; PUSHAB 12(SP) ;BACKLINK ; 0176 PUSHAB -140(FP) ;NAM+36 ; PUSHL -108(FP) ;NAM+68 ; MOVZBL -119(FP), -(SP) ;NAM+57, -(SP) ; 0175 CALLS #4, W^U.3 ;#4, U.3 ; CLRQ -(SP) ;-(SP) ; 0177 PUSHAB -376(FP) ;SYSPRV ; CLRL -(SP) ;-(SP) ; CALLS #4, (R9) ;#4, SYS$SETPRV ; BLBS R6, 10$ ;STATUS, 10$ ; 0178 PUSHL -68(FP) ;FAB+12 ; 0181 PUSHL R6 ;STATUS ; PUSHL -172(FP) ;NAM+4 ; 0180 MOVZBL -173(FP), -(SP) ;NAM+3, -(SP) ; 0179 PUSHL #2 ;#2 ; PUSHL #CLAIM__CANTCLAIM ;#CLAIM__CANTCLAIM ; 9$: CALLS #6, (R10) ;#6, LIB$SIGNAL ; BRB 16$ ;16$ ; 10$: CMPC3 #6, -134(FP), 12(SP) ;#6, NAM+42, BACKLINK ; 0185 BEQL 11$ ;11$ ; MOVL #CLAIM__BACKLINK, R2 ;#CLAIM__BACKLINK, CLAIM_STATUS ; 0186 BRB 13$ ;13$ ; 11$: CMPL -348(FP), 8(SP) ;XABPRO+12, PROC_UIC ; 0187 BNEQ 12$ ;12$ ; MOVL #CLAIM__ALREADY, R2 ;#CLAIM__ALREADY, CLAIM_STATUS ; 0188 BRB 13$ ;13$ ; 12$: MOVL #CLAIM__SUCCESS, R2 ;#CLAIM__SUCCESS, CLAIM_STATUS ; 0190 MOVL 8(SP), -348(FP) ;PROC_UIC, XABPRO+12 ; 0191 13$: CLRQ -(SP) ;-(SP) ; 0193 PUSHAB -376(FP) ;SYSPRV ; PUSHL #1 ;#1 ; CALLS #4, (R9) ;#4, SYS$SETPRV ; PUSHAB -80(FP) ;FAB ; 0194 CALLS #1, G^SYS$CLOSE ;#1, SYS$CLOSE ; CLRQ -(SP) ;-(SP) ; 0195 PUSHAB -376(FP) ;SYSPRV ; CLRL -(SP) ;-(SP) ; CALLS #4, (R9) ;#4, SYS$SETPRV ; BICB2 #8, -58(FP) ;#8, FAB+22 ; 0196 BLBC R2, 14$ ;CLAIM_STATUS, 14$ ; 0197 BLBC R8, 16$ ;LOGGING, 16$ ; 14$: PUSHL -172(FP) ;NAM+4 ; 0199 MOVZBL -173(FP), -(SP) ;NAM+3, -(SP) ; 0198 PUSHL #2 ;#2 ; PUSHL R2 ;CLAIM_STATUS ; 15$: CALLS #4, (R10) ;#4, LIB$SIGNAL ; 16$: BRW 6$ ;6$ ; 0153 17$: MOVC3 #96, -176(FP), -272(FP) ;#96, NAM, RELNAM ; 0210 MOVZBL -173(FP), R0 ;NAM+3, R0 ; 0211 MOVC3 R0, 788(SP), 532(SP) ;R0, RSPEC, RELSPEC ; MOVAB 532(SP), -268(FP) ;RELSPEC, RELNAM+4 ; 0212 CLRB -262(FP) ;RELNAM+10 ; 0213 CLRQ -260(FP) ;RELNAM+12 ; MOVC5 #0, (SP), #0, #96, -176(FP) ;#0, (SP), #0, #96, $RMS_PTR ; 0215 MOVW #24578, -176(FP) ;#24578, $RMS_PTR ; MNEGB #1, -174(FP) ;#1, $RMS_PTR+2 ; MOVAB 788(SP), -172(FP) ;RSPEC, $RMS_PTR+4 ; MOVB #16, -168(FP) ;#16, $RMS_PTR+8 ; MNEGB #1, -166(FP) ;#1, $RMS_PTR+10 ; MOVAB -640(FP), -164(FP) ;ESPEC, $RMS_PTR+12 ; MOVAB -272(FP), -160(FP) ;RELNAM, $RMS_PTR+16 ; BRW 2$ ;2$ ; 18$: BLBS R7, 19$ ;DID_ONE, 19$ ; 0219 MOVL #CLAIM__NOMATCH, R0 ;#CLAIM__NOMATCH, R0 ; RET ; ; 19$: MOVL #1, R0 ;#1, R0 ; 0220 RET ; ; 0222 ; Routine Size: 785 bytes, Routine Base: $CODE$ + 0000 .EXTRN SYS$ASSIGN, SYS$QIOW, SYS$DASSGN ;GET_FILE_INFO U.2: .WORD ^M ;Save R2,R3,R4,R5 ; 0225 MOVAB -568(SP), SP ;-568(SP), SP ; MOVC5 #0, (SP), #0, #10, -12(FP) ;#0, (SP), #0, #10, FIB ; 0272 MOVL #10, -20(FP) ;#10, FIBDSC ; 0273 MOVAB -12(FP), -16(FP) ;FIB, FIBDSC+4 ; 0274 MOVZBL 4(AP), -28(FP) ;DEVLEN, DEVDSC ; 0275 MOVL 8(AP), -24(FP) ;DEVN_A, DEVDSC+4 ; 0276 MOVC3 #6, @12(AP), -8(FP) ;#6, @FID_A, FIB+4 ; 0277 MOVL #1376260, -52(FP) ;#1376260, ATRLST ; 0278 MOVL 16(AP), -48(FP) ;OWNER_A, ATRLST+4 ; 0280 MOVL #3015168, -44(FP) ;#3015168, ATRLST+8 ; 0281 MOVL 20(AP), -40(FP) ;FSPEC_A, ATRLST+12 ; 0283 CLRL -36(FP) ;ATRLST+16 ; 0284 CLRQ -(SP) ;-(SP) ; 0285 PUSHAB 8(SP) ;CHAN ; PUSHAB -28(FP) ;DEVDSC ; CALLS #4, G^SYS$ASSIGN ;#4, SYS$ASSIGN ; MOVL R0, R2 ;R0, STATUS ; BLBC R2, 1$ ;STATUS, 1$ ; 0286 CLRL -(SP) ;-(SP) ; 0287 PUSHAB -52(FP) ;ATRLST ; CLRQ -(SP) ;-(SP) ; CLRL -(SP) ;-(SP) ; PUSHAB -20(FP) ;FIBDSC ; CLRQ -(SP) ;-(SP) ; MOVQ #50, -(SP) ;#50, -(SP) ; MOVZWL 40(SP), -(SP) ;CHAN, -(SP) ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIOW ;#12, SYS$QIOW ; MOVL R0, R2 ;R0, STATUS ; MOVZWL (SP), -(SP) ;CHAN, -(SP) ; 0288 CALLS #1, G^SYS$DASSGN ;#1, SYS$DASSGN ; 1$: MOVL R2, R0 ;STATUS, R0 ; 0292 RET ; ; ; Routine Size: 136 bytes, Routine Base: $CODE$ + 0311 ;GET_BACK_LINK U.3: .WORD ^M ;Save R2,R3,R4,R5 ; 0295 SUBL2 #48, SP ;#48, SP ; MOVC5 #0, (SP), #0, #10, 36(SP) ;#0, (SP), #0, #10, FIB ; 0337 MOVL #10, 28(SP) ;#10, FIBDSC ; 0338 MOVAB 36(SP), 32(SP) ;FIB, FIBDSC+4 ; 0339 MOVZBL 4(AP), 20(SP) ;DEVLEN, DEVDSC ; 0340 MOVL 8(AP), 24(SP) ;DEVN_A, DEVDSC+4 ; 0341 MOVC3 #6, @12(AP), 40(SP) ;#6, @FID_A, FIB+4 ; 0342 MOVL #1835014, 4(SP) ;#1835014, ATRLST ; 0343 MOVL 16(AP), 8(SP) ;BLFID_A, ATRLST+4 ; 0345 CLRL 12(SP) ;ATRLST+8 ; 0346 CLRQ -(SP) ;-(SP) ; 0347 PUSHAB 8(SP) ;CHAN ; PUSHAB 32(SP) ;DEVDSC ; CALLS #4, G^SYS$ASSIGN ;#4, SYS$ASSIGN ; MOVL R0, R2 ;R0, STATUS ; BLBC R2, 1$ ;STATUS, 1$ ; 0348 CLRL -(SP) ;-(SP) ; 0349 PUSHAB 8(SP) ;ATRLST ; CLRQ -(SP) ;-(SP) ; CLRL -(SP) ;-(SP) ; PUSHAB 48(SP) ;FIBDSC ; CLRQ -(SP) ;-(SP) ; MOVQ #50, -(SP) ;#50, -(SP) ; MOVZWL 40(SP), -(SP) ;CHAN, -(SP) ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIOW ;#12, SYS$QIOW ; MOVL R0, R2 ;R0, STATUS ; MOVZWL (SP), -(SP) ;CHAN, -(SP) ; 0350 CALLS #1, G^SYS$DASSGN ;#1, SYS$DASSGN ; 1$: MOVL R2, R0 ;STATUS, R0 ; 0354 RET ; ; ; Routine Size: 121 bytes, Routine Base: $CODE$ + 0399 .EXTRN LIB$SIGNAL ; PSECT SUMMARY ; ; Name Bytes Attributes ; ; $PLIT$ 36 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $CODE$ 1042 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 10904 116 1 642 00:01.0 ; COMMAND QUALIFIERS ; BLISS/LIST=CLAIM.MAR/NOOBJ/MACHINE=(OBJ,NOBIN,ASSEM,UNIQUE)/SOURCE=(NOHEADER,NOSOURCE) CLAIM.B32 ; Compilation Complete .END U.1