;THIS PROGRAM IS TO CLEAR THE LABELS ON LINE 25 OF THE ZENITH TERMINAL
;WHICH INDICATE THE USES OF THE FUNCTION KEYS IN TMAKER
;
;
BDOS   EQU     5        ; BDOS ENTRY POINT
STROUT EQU     9        ; STRING OUT FUNCTION
RESET  EQU     0        ; RESTARTS CP/M
;
ESC    EQU     27       ; ESCAPE EQUATE
;
       ORG     100H     ; START OF TPA
;
       MVI     C,STROUT ; SET UP FOR BDOS CALL
       LXI     D,CLEAR  ; DISABLE 25TH LINE
       CALL    BDOS     ; SEND IT
;
       MVI     C,RESET  ; SET UP FOR BDOS CALL
       CALL    BDOS     ; SEND IT
;
CLEAR  DB      ESC,'y','1'        ; DISABLE 25TH LINE SEQUENCE
       DB      ESC,'H',ESC,'J','$'     ; HOME CURSOR; CLEAR SCREEN
       END
