; wsm.asm = Wind Speed Meter for SHARP PC-1350
; AS61860 assembler, port IB7
; Assemble: as61860 -glaxff wsm.asm
;-----------------------------------------------

	.AREA t61860 (ABS)
	.include	/reg_61860.asm/

        .ORG  	0x6038
	LP	REG_XL
	ANIM	0x00
	LP	REG_XH
	ANIM	0x00
	LP	REG_YL
	ANIM	0x00
	LP	REG_YH
	ANIM	0x00
loop0:
	IX			; X + 1 --> X, X --> DP
loop1:
	CPIM	0x71		; (P) - 0x71 --> c,z
	JRZP	jump1
	IY			; Y + 1 --> Y, Y --> DP
	INB			; Port B --> A
	TSIA	0x40		; A & 0x40 --> z
	JRNZP	jump2
	LP	REG_YH
	JRM	loop1
jump2:
	IX			; X + 1 --> X, X --> DP
loop2:
	CPIM	0x71		; (P) - 0x71 --> c,z
	JRZP	jump1
	IY			; Y + 1 --> Y, Y --> DP
	INB			; Port B --> A
	TSIA	0x40		; A & 0x40 --> z
	JRZM	loop0
	LP	REG_YH
	JRM	loop2
jump1:
	DX			; X - 1 --> X, X --> DP
	LP	REG_XL
	LIDP	0x6036
	MVDM			; (P) --> (DP)
	LP	REG_XH
	LIDP	0x6037
	MVDM			; (P) --> (DP)
	RTN