	title	'END List Program'

;***************************************************************
;***************************************************************
;**                                                           **
;**                     E N D   L i s t                       **
;**                                                           **
;***************************************************************
;***************************************************************

;/*
;  Copyright (C) 1980, 1982
;  Digital Research
;  P.O. Box 579
;  Pacific Grove, CA 93950
;
;*/

;	Equates
;
print	equ	5	;BDOS print character function
ctlz	equ	1ah	;control - Z
BDOS	equ	0005h	;BDOS entry point

ENDList:
	lxi h,0! dad sp  ;HL = CCP stack ptr
	lxi sp,stkptr+2! push h  ;save CCP stack ptr
	mvi c,print! mvi e,ctlz! call BDOS  ;send ctl-Z
	pop h! sphl  ;restore CCP stack
	ret

stack:
	ds	16
stkptr:	ds	2

	end ENDList
