; Now Extra code from here to XRA
DUPW?: This Label must be left, in case
. ‘DUPWCK is set FALSE
; SEARCH FOR PASSWORD ASSOCIATED WITH THE REQUIRED DU:
IF DUPWCK ;Additional Equate in Z3HDR.LIB
LX1 H,Z3NDIR ;sPOINT TO NDR
LX] D,0018 ;OFFSET TO START OF NEXT ENTRY
ANYPW: MOV A.M ;GET 1ST BYTE
CPIO IF 0, IS END OF NDR
RZ ;SO NO PW FOUND. EXIT and CONTINUE
LDA TEMPDR ;GET DEST. DRIVE
CMP M ;SAME AS NDR ENTRY ?
JIRNZ NOMAT ;SKIP IF NOT
INX H ;POINT TO USER IF DRIVE O.K.
LDA TEMPUSR ;REQD. USER TO ‘A’
CMP M ;SAME AS NDR USER ?
DCX H ;MOVE POINTER BACK TO START OF ENTRY
JRZ MAT ;IF USER MATCHED, EXIT SEARCH
NOMAT: DAD D ;ELSE ADD IN OFFSET TO NEXT ENTRY
JR ANYPW ;LOOP AND CONT. SEARCH
MAT: LXI D,10 ;OFFSET TO 1ST BYTE OF POSSIBLE PW.
DAD D ;ADD OFFSET TO POINTER TO NDR ENTRY
CALL PASSCK ;CHECK PASSWORD
RZ IF ‘Z?, PW WAS O.K.
JR DUSE1 ;EXIT WITH ‘NZ’
ENDIF ;End of Extra Code. (Except for PWOK:)
PWOK: XRA A ;SET OK
POP H ;CLEAR STACK
WordStar 4 for CP/M-80
by P.A. Greenhalgh
In the last issue-of Scorpio News I wrote a brief review of WordStar 4, and ended
it by saying that I felt it unlikely that WordStar 4 would find its way to CP/M. Well,
you’ll be pleased to hear that I was wrong, and also that MicroPro are offering an
upgrade service from your current WordStar to WS4 for CP/M--80 for c.£135. @