; PRNUM.ASM - Print numbers
; =========================

PRDEC16	EQU &1A1B	; Print BC in decimal
PRDEC8	LD B,0		; Print C padded with spaces
	LD A,C
	CP 100
	LD A,32
	CALL C,16
	LD A,C
	CP 10
	LD A,32
	CALL C,16
	JP &1A1B

PRHEXA	PUSH AF		; Print A in hex padded with zeros
	RRA
	RRA
	RRA
	RRA
	CALL PRNYB
	POP AF
PRNYB	AND 15
	ADD A,&90
	DAA
	ADC A,&40
	DAA
	RST 16
	RET