; os.asm

	.bext ReadClock

	.srel
ReadClock:	.ReadClock
	.nrel

; ReadClock - Read real-time clock into 2-word vector (raw)
.ReadClock:
	sta 3 1,2	; save return
	mov 0 3 snr	; prepare vector pointer and check
	77400		; swat, zero vector pointer
	rclk		; read clock into ac0 and ac1
	sta 0 0,3	; store most sig bits
	sta 1 1,3	; store least sig bits
	lda 3 1,2	; get return
	jmp 1,3		; return

	.end