forked from MirrorRepos/RomWBW
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
896 B
35 lines
896 B
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
|
|
|
|
|