DSKY Tweaks

This commit is contained in:
Wayne Warthen
2024-09-27 10:19:26 -07:00
parent 70a961ad55
commit 5239eed0e8
7 changed files with 27 additions and 35 deletions

View File

@@ -1357,16 +1357,17 @@ PPIDE_RESET:
; THERE IS NO CHECK FOR THE SPECIFIC PPI PORT SINCE IT DOES NO HARM
; IF THE DSKYNG IS SAVED AND RESTORED.
;
; THIS DOES NOT TEST THAT A DSKYNG IS ACTUALLY PRESENT
; AND OPERATING -- COULD CAUSE PROBLEMS
;
;;;#IF (DSKYENABLE)
#IF (PKDENABLE)
; SAVE CONTENTS OF DSKYNG DISPLAY ACROSS RESET
LD B,8
LD C,0
LD HL,PKD_BUF
CALL PKD_GETSTR
LD A,(PKD_PRESENT) ; GET PKD PRESENCE FLAG
OR A ; TEST FOR ZERO
JR Z,PPIDE_RESET_PKD1 ; IF ZERO, NOT THERE, BYPASS
LD B,8 ; LENGTH
LD C,0 ; START
LD HL,PKD_BUF ; BUFFER
CALL PKD_GETSTR ; GET CURRENT DISPLAY TO BUF
PPIDE_RESET_PKD1:
#ENDIF
;;;#ENDIF
;
@@ -1391,11 +1392,15 @@ PPIDE_RESET:
;;;#IF (DSKYENABLE)
#IF (PKDENABLE)
; REININT DSKYNG AND RESTORE CONTENTS
CALL PKD_REINIT
LD B,8
LD C,0
LD HL,PKD_BUF
CALL PKD_PUTSTR
LD A,(PKD_PRESENT) ; GET PKD PRESENCE FLAG
OR A ; TEST FOR ZERO
JR Z,PPIDE_RESET_PKD2 ; IF ZERO, NOT THERE, BYPASS
CALL PKD_REINIT ; REINIT PKD
LD B,8 ; LENGTH
LD C,0 ; START
LD HL,PKD_BUF ; BUFFER
CALL PKD_PUTSTR ; RESTORE DISPLAY CONTENTS
PPIDE_RESET_PKD2:
#ENDIF
;;;#ENDIF
;