[FC][单次按键按压操作]

 .ORG $B4E0
ora_data:
 .BYTE $08,$04,$02,$01,$80,$40,$20,$10
and_data:
 .BYTE $F7,$FB,$FD,$FE,$7F,$BF,$DF,$EF
 
button = $F5
flag = $010E
pause = $0025

 .org $B500
data_protect:
 PHA
 TXA
 PHA
 TYA
 PHA

pause_cmp:
 LDA pause
 CMP #$01
 BEQ button_press
 PLA
 TAY
 PLA
 TAX
 PLA
 RTS

button_press:
ini_Y:
 LDY #$00
button_cmp:
 LDA button,X
 CMP ora_data,Y
 BNE count_Y_cmp
flag_cmp:
 LDA flag,X
 AND ora_data,Y
 BNE flag_and
flag_ora:
 LDA flag,X
 ORA ora_data,Y
 STA flag,X
 BNE count_Y_cmp
flag_and:
 LDA flag,X
 AND and_data,Y
 STA flag,X
count_Y_cmp:
 INY
 CPY #$08
 BCC button_cmp
 
data_extract:
 PLA
 TAY
 PLA
 TAX
 PLA
 
return:
 RTS