mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
35 lines
896 B
Plaintext
35 lines
896 B
Plaintext
page
|
||
|
||
; Library: RCPCLS for Z34RCP
|
||
; Author: Carson Wilson
|
||
; Version: 1.0
|
||
; Date: June 15, 1988
|
||
;
|
||
; Command: CLS
|
||
; Function: To clear the CRT screen
|
||
; Comments: The setting of the CLSTCAP equate determines whether this
|
||
; command uses the TCAP information or not. If not, it uses the
|
||
; clear-screen string passed in macro CLSSTR. That string should
|
||
; end with the high bit set.
|
||
|
||
cls:
|
||
if clstcap ; If using TCAP for clear screen string
|
||
ld a,(z3tcap) ; TCAP address from Z34CMN.LIB
|
||
cp ' '+1 ; See if blank
|
||
jr nc,cls1 ; If not, go to clear screen code
|
||
jp crlf ; If blank, just do CRLF
|
||
cls1:
|
||
ld hl,clrscr ; Address from Z34CMN.LIB
|
||
jp printhl ; Display it
|
||
|
||
else ; Not using tcap
|
||
|
||
call print
|
||
clsstr ; String from Z34RCP.LIB
|
||
ret
|
||
|
||
endif ;clstcap
|
||
|
||
; End RCPCLS.LIB
|
||
|
||
|