; 				PEEP 1.2
;			SCREEN INSTALLATION OVERLAY
; Instructions:
;	1.  Have your video protocol handy.
;	2.  Enter changes.
;	3.  Assemble to .hex file.   i.e. >ASM PEEPINST
;	4.  Overlay PEEP	     i.e. >MLOAD PEEP.COM,PEEPINST
;
; The overlay for PEEP12 is not compatible with previous versions.
; To enter changes:
;	- If you need fewer bytes than are available, fill in the remainder
;	  with 0's.
;	- If you need exactly the number of bytes available, the last byte
;	  must have the high bit set.  Add 80h to it.  (See below.)
;	- If you need more bytes, sorry, it won't work.  Modify the source code.
;
; As distributed, PEEP works on most terminals e.g. Televideo, Wyse, Ampex.
;	Kaypro II requires one change indicated below.

true	equ	-1
false	equ	0
esc	equ	1bh
tab	equ	9
cr	equ	0dh

; To install a printer initialization in PEEP12L, set following equate to TRUE.
; If installing PEEP12, set it to FALSE.

lstok	equ	true

; Clear to end of line.  There are 2 bytes available.
	org	10bh
	db	esc,'T'+80h	; Last byte must be high bit set
;	db	18h,0		; Kaypro II sequence

; Home cursor without screen clear - 2 bytes.
	org	111h
	db	1eh,0

; Insert line - 2 bytes
	org	11ah
	db	esc,'E'+80h

; Move cursor to row 23, column 0.  Up to 7 bytes.
	org	121h
	db	esc,'=',37h,20h,0,0,0

; Clear screen, home cursor - 2 bytes.
	org	12dh
	db	1ah,0

; Dim video on.  This sequence cannot take up space on the screen. It may
;   be blank.
	org	133h
	db	0,0,0
;	db	esc,')',0	; default

; Dim video off.
	org	13ah
	db	0,0,0
;	db	esc,'(',0	; default

; Slow scan functions.  Smaller number goes faster.  Don't use 0!
	org	13fh
	dw	3000h

	 if	lstok
; Printer initializaton string
; First byte is char count.  Maximum is 16
	org	147h
	db	1
	db	cr
	 endif	;lstok
; END