Scor­pio News

  

January–March 1988, Volume 2, Issue 1











Page 32 of 39











; 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
RET
DUSE:
POP H ;CLEAR STACK
DUSE1: ...
Cd

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. @


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 32 of 39