; DEBUG.ASM
; =========
; Some simple debug routines.

; Display MZVC flags
; ==================
PRFLAGS	PUSH AF
	LD A,"M"
	CALL DBCHRM
	POP AF
	PUSH AF
	LD A,"Z"
	CALL DBCHRZ
	POP AF
	PUSH AF
	LD A,"V"
	CALL DBCHRV
	POP AF
	PUSH AF
	LD A,"C"
	CALL DBCHRC
	POP AF
	RET
DBCHRM	JP M,DBCHR
	JR DBDASH
DBCHRV	JP PO,DBCHR
	JR DBDASH
DBCHRZ	JR Z,DBCHR
	JR DBDASH
DBCHRC	JR C,DBCHR
DBDASH	LD A,"-"
DBCHR	JP 16