Trailing-Edge
-
PDP-10 Archives
-
iqlv30
-
libo12.fix
There is 1 other file named libo12.fix in the archive. Click here to see a list.
.EDIT 535
.NAME AZREX
.MODULE CBLIO
.DATE 29-AUG-78
.INSERT RSTID7+14,REPLACE:1,<CAME AC2,AC6>
CAMLE 2,6
.ENDI
.INSERT RSTID7+22,REPLACE:1,<PUSHJ PP,RSTER2>
SETZM F.WIKD(I16) ;FLAG INCONSISTENCY WITH ILLEGAL VALUE
.ENDI
.INSERT OPNI07+1,REPLACE:1,<CAME AC6,RECBYT(I12)>
CAMGE AC6,RECBYT(I12)
.ENDI
.INSERT OPNI07+3,REPLACE:1,<MOVE AC6,OKEYDS(I12)>
MOVE AC6,F.WIKD(I16) ;GET KEY DESCRIPTOR OF FILE AT RESET
.ENDI
.INSERT OPNI07+5,REPLACE:1,<JRST OPNER3>
TTCALL 3,[ASCIZ / KEY DESCRIPTOR DESCRIPTION DIFFERS AT OPEN FROM RESET
/]
.ENDI
.INSERT OPNI05+6,REPLACE:1,<CAME AC0,OEPIB(I12)>
CAMLE AC0,OEPIB(I12)
.ENDI
;Note: To rebuild LIBO12.EXE to include this patch,
; do the following after installing this patch:
;
; @R LINK
; *LIBSHR,LIBOL/SEARCH/GO
; @SAVE LIBO12.EXE
;
; and place the new LIBO12.EXE on SYS:
.ENDE