mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
More Disk Image REfactoring
- The NZCOM disk image is now a fully configured, ready-to-run disk image. - Working on ReadMe.txt files for each of the disk images.
This commit is contained in:
@@ -472,13 +472,15 @@ PCRLF:
|
||||
LD C,16 ; SET FOR 16 CHARS
|
||||
POP HL ; GET BACK START
|
||||
PCRLF0:
|
||||
LD A,(HL) ; GET BYTE
|
||||
AND 060H ; SEE IF A 'DOT'
|
||||
LD A,(HL) ; O K. TO GET
|
||||
JR NZ,PDOT ;
|
||||
DOT:
|
||||
LD A,2EH ; LOAD A DOT
|
||||
LD A,(HL) ; GET BYTE TO PRINT
|
||||
CP $20 ; CONTROL CHAR (UNPRINTABLE)?
|
||||
JR C,PDOT ; IF SO, PRINT A DOT
|
||||
CP $7F ; 127 OR MORE (UNPRINTABLE)?
|
||||
JR NC,PDOT ; IF SO, PRINT A DOT
|
||||
JR PCHAR ; PRINT ACTUAL CHAR
|
||||
PDOT:
|
||||
LD A,2EH ; OTHERWISE SUBSTITUTE A DOT
|
||||
PCHAR:
|
||||
CALL COUT ; PRINT IT
|
||||
INC HL ;
|
||||
LD A,D ;
|
||||
|
||||
Reference in New Issue
Block a user