|
Please raise a QAR or IPMT, and get this into formal channels. (If this
is a repeated problem or needed capabilities, we should fix this through
more formal channels.)
If you want to pursue this through notes, we'll need to know the OpenVMS
platform, and we'll need to know the specifics of the patch being applied,
so that we can check this against the V6.2 image.
You or your customer -- depending on who is making this change -- may
(will) want to acquire the OpenVMS source listings kit.
Assuming OpenVMS VAX V6.1, here is the code PATCH displays for the
specified instruction range:
00007C5A: MOVC5 L^0000040C,(R1),#20,R0,@B^09C(FP)
00007C65: BRB 00007C7D
00007C67: MOVL L^00000418,R1
00007C6E: MOVZBL B^0A0(FP),R0
00007C72: MOVC5 L^00000414,(R1),#20,R0,@B^09C(FP)
00007C7D: PUSHAB W^0080(SP)
00007C81: CALLS #01,@#7FFEE180
00007C88: MOVL R0,R6
00007C8B: PUSHAB B^0B0(FP)
00007C8E: CALLS #01,(R9)
00007C91: CALLS #00,(R10)
00007C94: BLBS R6,00007C9B
00007C97: MOVL R6,R0
00007C9A: RET
00007C9B: MOVZBW #080,B^1C(R7)
00007CA0: MOVAB W^00001B90,B^20(R7)
00007CA6: BBC #05,B^03(R7),00007CCB
00007CAB: CLRB B^1B(R7)
00007CAE: BICB2 #40,B^03(R7)
00007CB3: CLRL -(SP)
00007CB5: PUSHAB B^0FC(R7)
00007CB8: CALLS #02,L^000063EB
00007CBF: BICB2 #20,B^03(R7)
00007CC3: MOVB @#800082F2,B^1B(R7)
00007CCB: MOVC3 #20,B^3F(SP),L^00000340
00007CD4: MOVL #20,(R11)
00007CD7: PUSHL R11
00007CD9: CALLS #01,L^00003297
00007CE0: MOVL R0,R6
00007CE3: TSTL L^00000408
00007CE9: BNEQ 00007CF6
00007CEB: BLBS R6,00007D01
00007CEE: MOVL #00D3803C,R0
00007CF5: RET
00007CF6: MOVB #01,L^0000025C
00007CFD: MOVL #01,R0
00007D00: RET
00007D01: CLRL R0
00007D03: RET
This code appears to track back to the AUTO_LOGIN routine in module
INTERACT.
The MOVC5 -- see below -- is located at offset 000E2 in both OpenVMS
VAX V6.1 and V6.2 INTERACT. INTERACT code resides from 000077C0 to
00008BF2 in V6.1, while from 000079C4 to 00008EA2 in V6.2.
In other words, look around in the range of 7E5b:7F02 under V6.2.
I did not verify that this part of the V6.1 code matches the V6.2
code, and -- without knowing the patch -- it's difficult to say if
the patch will be compatible with V6.2.
MOVC5 ACC_PORT_NAME, (R1), #32, R0, - ; 1342
@SYSALF_RAB+48 ;
BRB 5$ ;
4$: MOVL CLU_TERM_NAME+4, R1 ; 1345
MOVZBL SYSALF_RAB+52, R0 ; 1346
MOVC5 CLU_TERM_NAME, (R1), #32, R0, - ; 1345
@SYSALF_RAB+48 ;
5$: PUSHAB SYSALF_RAB ; 1348
CALLS #1, SYS$GET ;
MOVL R0, STATUS ;
PUSHAB SYSALF_FAB ; 1350
CALLS #1, SYS$CLOSE ;
CALLS #0, CLEAR_SYSPRV ; 1352
BLBS STATUS, 6$ ; 1354
MOVL STATUS, R0 ; 1356
RET ;
6$: MOVZBW #128, INPUT_RAB+32 ; 1363
MOVAB INPUT_BUFFER, INPUT_RAB+36 ; 1364
BBC #5, INPUT_RAB+7, 7$ ; 1366
CLRB INPUT_RAB+31 ; 1369
BICB2 #64, INPUT_RAB+7 ; 1370
CLRL -(SP) ; 1371
PUSHAB INPUT_RAB ;
CALLS #2, GET_INPUT ;
BICB2 #32, INPUT_RAB+7 ; 1372
MOVB SYS$GB_RETRY_TMO, INPUT_RAB+31 ; 1373
7$: MOVC3 #32, BUFFER+63, USERNAME_BUFF ; 1378
MOVL #32, USERNAME ; 1379
PUSHL R11 ; 1381
CALLS #1, GET_UAFREC ;
MOVL R0, STATUS ;
TSTL UAF_RECORD ; 1383
BNEQ 8$ ;
BLBS STATUS, 9$ ; 1386
MOVL #LGI$_NOTVALID, R0 ; 1389
RET ;
8$: MOVB #1, AUTOLOGIN ; 1392
MOVL #1, R0 ; 1394
RET ;
9$: CLRL R0 ;
RET ;
|