;
; Resume suspended remote output
;
; ==> Does not need EMXSUBS.REL <==
; ==> Ignore L80 generated errors that reference 'undefined globals'
;
	ASEG
	.Z80
	ORG	100H
;
	JP	START
;
	INCLUDE	EMXHDR.MAC	; We need the addresses
;
START::	LD	HL,0
	ADD	HL,SP
	LD	(CCPSTK),HL
	LD	SP,STACK
;
; Set the remote output ON again
;
	XOR	A		; 1=no send, 0=send
	LD	(NOROUT),A	; Tell bye to start sending again
;
;now let the user know we are back to normal
;
	LD	DE,MSG
	LD	C,9
	CALL	5
	LD	HL,(CCPSTK)
	LD	SP,HL
	RET
;
MSG::	DB	13,10,7
	DB	'Remote output has been resumed.....$'
;
	DS	16
;
STACK::	DW	0
CCPSTK::DW	0
;
	END