PC-8801mkII SR以降 Part16

349 ：ナイコンさん：2015/04/06(月) 20:23:45.55 .net

ジョイスティックの対応についてはこのコードでいい（はず）
ジョイスティックの対応鋭意製作中

PSG_A equ $A8
PSG_D equ $A9

;-----------------------
; ret: Arge
;-----------------------
get_stick:
ld a,15
out (PSG_A),a
in a,(PSG_D)
and $0f
rl a
rl a
ld b,a


ld a,14
out (PSG_A),a
in a,(PSG_D)
and $03
or a,b

ret