Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/dluser.c13
There are no other files named dluser.c13 in the archive.
INS 1/1 ;13C1
; *** Edit 9 to DLUSER.MAC by MCCOLLUM on 22-Jan-86, for SPR #21004
; Rewrite code in LODUS3 and STRPDT to remove all BKJFN calls
REP 64/1 ;13C2
PRGEDT==^D10 ;EDIT NUMBER
WIT
;**;[9] Change edit number to 11 decmial JDM 21-JAN-86
PRGEDT==^D11 ;EDIT NUMBER
INS 13/2 ;13C3
;**;[9] Add 1 line at LS NAMBUF + 1L JDM 21-JAN-86
LS DATBUF,21 ;STORES DATE FOR PASSWORD ENCRYPTION
REP 76/15 ;13C4
BIN% ;See if zero or real date
SUBI T2,"0"
JUMPE T2,STRPDT
BKJFN ;Backup the JFN and get the date
JRST LODERR ;Failed
SETZM T2
IDTIM
JRST LODERR
WIT
;**;[9] Replace 8 lines with 14 lines at LODUS3: + 60L JDM 21-JAN-86
HRROI T2,DATBUF ;Buffer for this string
MOVEI T3,^D80 ;Read a max of 80. characters
MOVEI T4,12 ;Terminate on a line feed
SIN ;Get this line into the buffer
ERJMP LODERR ;Bad file format
MOVE T3,[POINT 7,DATBUF] ;Point at the buffer
ILDB T2,T3 ;Get a byte
SUBI T2,"0" ;Just a zero?
JUMPE T2,STRPDT ;Yes. No real date here
HRROI T1,DATBUF ;Date/time are in DATBUF
SETZM T2 ;No format flags
IDTIM ;Read the date and time
JRST LODERR ;Failed. Report error
MOVE T1,JFN ;Get back the file JFN and continue
REP 90/15 ;13C5
BIN% ;See if zero or real date
SUBI T2,"0"
JUMPE T2,STRPED
BKJFN ;Backup the JFN and get the date
JRST LODERR ;Failed
SETZM T2
IDTIM
JRST LODERR
WIT
;**;[9] Replace 8 lines with 14 lines at STRPDT: + 6L JDM 21-JAN-86
HRROI T2,DATBUF ;Buffer for this string
MOVEI T3,^D80 ;Read a max of 80. characters
MOVEI T4,12 ;Terminate on a line feed
SIN ;Get this line into the buffer
ERJMP LODERR ;Bad file format
MOVE T3,[POINT 7,DATBUF] ;Point at the buffer
ILDB T2,T3 ;Get a byte
SUBI T2,"0" ;Just a zero?
JUMPE T2,STRPED ;Yes. No real date here
HRROI T1,DATBUF ;Date/time are in DATBUF
SETZM T2 ;No format flags
IDTIM ;Read the date and time
JRST LODERR ;Failed. Report error
MOVE T1,JFN ;Get back the file JFN and continue
REP 107/15 ;13C6
JRST LODERR
JRST .+1] ;Yes, tolerate it
WIT
JRST LODERR
JRST .+1] ;Yes, tolerate it
SUM 210764