Rev 1120 |
Rev 1219 |
Go to most recent revision |
Blame |
Compare with Previous |
Last modification |
View Log
| Download
| RSS feed
INali8
get
next
ld c,a
ld b,0
INal_bc
call IN_bc_to_bc
ld a,c
ld (_AL),a
_Loop_
INaldx
ld bc,(_DX)
jr INal_bc
INaxi8
get
next
ld c,a
ld b,0
INax_bc
call IN_bc_to_bc
ld (_AL),bc
_Loop_
INaxdx
ld bc,(_DX)
jr INax_bc
OUTi8al
get
next
ld c,a
ld b,0
ld hl,(_AL)
call OUTbc_l
_LoopC
OUTi8ax
get
next
ld c,a
ld b,0
ld hl,(_AX)
call OUTbc_hl
_LoopC
OUTdxal
ld bc,(_DX)
ld hl,(_AL)
call OUTbc_l
_LoopC
OUTdxax
ld bc,(_DX)
ld hl,(_AX)
call OUTbc_hl
_LoopC
OUTbc_hl
ret
OUTbc_l
ret
IN_bc_to_bc
ld hl,0x03da
or a
sbc hl,bc
jr z,IN_03da
ld hl,0x0040
or a
sbc hl,bc
jr nz,IN_skip
;in al,0x40 ; Read timer counter 0
ld bc,(timer)
;srl b
;rr c
;srl b
;rr c
ld b,c
ld a,r
add a,c
ld c,a
;ld bc,0xffff
ret
IN_skip
ld bc,0xffff
ret
;0x03da - ╨┐╨╛╤А╤В ╨▓╨╕╨┤╨╡╨╛╨║╨╛╨╜╤В╤А╨╛╨╗╨╗╨╡╤А╨░. ╨┐╤А╨╛╨▓╨╡╤А╤П╨╡╤В╤Б╤П ╨╜╨░ ╤А╨░╨▓╨╡╨╜╤Б╤В╨▓╨╛ 8 - ╨▓╨╛ ╨▓╤А╨╡╨╝╤П ╨Ъ╨б╨Ш? (pixeltown)
IN_03da
ld a,r
and 8
ld c,a
ld b,0
ret