; GET-TIME.AZM - An example of how the new time string BIOS call may
;  be used.
;
BDOS	EQU	0005
;
CONOUT	EQU	2
PRNSTR	EQU	9
;
JPOFST	EQU	33h		; offset of time call JP from beginning of 
				;  BIOS.
;
;
	ORG	100h
;
	LD	(SAVESP),SP
	LD	SP,LOCSTK
;
	LD	DE,MESSAG
	LD	C,PRNSTR
	CALL	BDOS
;
	LD	HL,(0001)	; Get warm boot address
	LD	L,JPOFST	; Set HL to Time JP in BIOS Jump Table
;
	LD	(RELOC+1),HL	; Patch CALL 
;
RELOC:	CALL	0000
;
	LD	B,0Bh
PRINLP:	LD	A,(HL)
	LD	E,A
	LD	C,CONOUT	; BDOS Console Output call
	PUSH	BC
	PUSH	HL
	CALL	BDOS
	POP	HL
	POP	BC
;
	DEC	B
	JR	Z,DONE
	INC	HL
	JR	PRINLP
;
DONE:	LD	DE,CRLF
	LD	C,PRNSTR
	CALL	BDOS
;
	LD	SP,(SAVESP)
	RET
;
MESSAG:	DEFB	0Dh,0Ah,0Dh,0Ah,'The time is now',20h,20h,'$'
CRLF:	DEFB	0Dh,0Ah,0Dh,0Ah,'$'
SAVESP:	DEFS	2
	DEFS	30h
LOCSTK:
;
	END