;
; Suspend remote output
;
; ==> Does not need EMXSUBS.REL <==
; ==> Ignore L80 generated errors that reference 'undefined globals'
;
	ASEG
	.Z80
	ORG	100H
;
	JP	START
;
	INCLUDE	EMXHDR.MAC	; Need the addresses
;
START::	LD	HL,0
	ADD	HL,SP
	LD	(CCPSTK),HL
	LD	SP,STACK
;
; Dirst tell user that output is halting (maybe he won't hang up)
;
	LD	DE,MSG
	LD	C,9
	CALL	5
;
; Now set remote output OFF
;
	LD	A,1		; 1=no send, 0=send
	LD	(NOROUT),A	; Tell bye not to send
	LD	HL,(CCPSTK)
	LD	SP,HL
	RET
;
MSG::	DB	13,10,7
	DB	'Halting remote output, please standby.....$'
;
	DS	16
;
STACK::	DW	0
CCPSTK::DW	0
;
	END