; WP2-IO.ASM
; Tandy WP-2 Run File Sample Program
; Service Manual Chapter IV-17 Software Calls
;
; Ported to Z80DT by Andre Adrian
; Version: 25jan2011

CLS:	EQU	11EH		; clear screen
GETCH:	EQU	103H		; read keyboard input
PUTCH:	EQU	1A3H		; write console output

	ORG	0AC00H-8	; Start of RAM minus Run File Header Length

; Run File Header
	DEFM	'PR'		; Run File Identifier
	DEFW	PRGEND-PRGTOP+1	; Program length
	DEFW	START		; Program entry
	DEFW	0		; Reserved

; Run File Program
PRGTOP:
START:	
	CALL	CLS		
LOOP:	
	CALL	GETCH		
	LD	A,H
	BIT	0,L
	JR	Z,DISPLAY	
	XOR	A		; Exit Program if EXIT key was pressed
	RET
DISPLAY:
	CALL	PUTCH		
	JR	LOOP
PRGEND:
	END