; PROGRAM:  SAVECRT
; VERSION:  1.0
; AUTHOR :  Sam Weiss   (Alias **Mad@Kaypro**)
; DATE   :  August 10, 1986

; This program just simply clears the screen, turns off the cursor, and
; waits for something to be typed in.  When something is typed in, this
; program turns the cursor into a solid block, and exits.

; MODIFIED:  v1.1 Sam Weiss  August 11,1986
;	     OOOOPS.. Forgot about the status line..
;	     This one now clears the status line.
;
; MODIFIED   v1.1BL Sam Weiss  August 16,1986
;	     This is NOT a version upgrade... just a choice upgrade..
;	     This version 'BL' just turns the cursor back on.. in its
;	     normal blinking self, instead of an unblinking cursor..
;	     no other changes were made..  IF U WANT THIS PROGRAM
;	     TO RETURN A NON-BLINKING CURSOR, GET SAVECRT1.LBR(SC.COM)..
;	     THAT VERSION RETURNS A NON-BLINKING CURSOR.
;
; Purpose:  I got tired of reaching in back of my computer to turn down
;           the video whenever I left my computer.  since I usually
;	    exited to CP/M before I did this, I figured that this would
;           be a very simple way to save the screen, since I am not
;           familiar with assembley language enough to make a routine
;           which save the contents of the screen, and cleared it after
;           several minutes of inactivity.  it also does not take up any
;           needed RAM, while U run other programs!!  in fact, THIS PROGRAM
;           IS SO SIMPLE, I WONDER WHY SOMEBODY DIDN'T MAKE SOMETHING
;           LIKE THIS BEFORE.
;
; THIS PROGRAM WILL ONLY WORK ON KAYPRO 84'S(I think), SINCE I MADE THIS 
;           PROGRAM IN Z80 CODE, AND IT TURNS THE CURSOR
;           INTO A SOLID BLOCK, BY ACCESSING A PORT IN THE COMPUTER.
;
;           However, with a little modification, this program is practically
;           Universal(more on this in later revision.. this is only version 1.0
;
; Here we begin....
;
	ORG	100H		;Yes... That famous beginnning statement!!
;
BDOS	EQU	5		;BDOS Entry point
;
;
; Ok.. time for the "real" code(Wish me luck!)..
;
	LD	C,9		;BDOS function # for console output.
	LD	DE,BMSG		;loading address of beginning message to DE
	CALL	BDOS		;Everythings set to call BDOS, so do it!
	LD	C,1		;BDOS Function # for wait for console input
	CALL	BDOS		;Calling MR. BDOS, again, for above function.
	LD	C,9		;Works almost done.. just display end message
	LD	DE,EMSG		;(Through BDOS, of course).
	CALL	BDOS		;Displaying ending message.
	RET			;That's it.. told U it was simple!!!
;
; Here are the Messages...
;
BMSG:	DB	27,'C7',26,27,'C4$',0		;screen erase & turn off cursor.
EMSG:	DB	26,'SaveCrt v1.1BL Completed.'  	;Ending message
        DB	'..',0DH,0AH,0AH,'Now returning to'
	DB      ' CP/M.',0DH,0AH,0AH,0AH,'Warm Boot'
        DB	0DH,0AH,0AH,27,'B4$',0		;Turn on cursor & end of msg.
;
; End of code for 'SCBL.COM'.
;