su gam

joypad1_pressed := $00  ; AXlr 0000  BYsS UDLR
joypad1_held := $02
joypad1_total := $04
joypad2_pressed := $06
joypad2_held := $08
joypad2_total := $0A
rng := $08
frame := $0A
second := $0B
vb_temp := $FFFE

RESET:
    clc                     ; $800000
    xce                     ; $800001
    rep #$FF                ; $800002
    sep #$14                ; $800004
    lda >#$4200             ; $800006
    tcd                     ; $800009
    lda >#$1FFF             ; $80000A
    tcs                     ; $80000D
    ldx <#$7F               ; $80000E
    phx                     ; $800010
    plb                     ; $800011
    jml >$800016            ; $800012
    ldx <#$A1               ; $800016
    stx <$00                ; $800018
    lda >#$00B9             ; $80001A
    sta <$09                ; $80001D
    stz <$0B                ; $80001F
    stx <$0D                ; $800021
Spin:
    inc rng                 ; $800023
    bra Spin                ; $800026
IllegalInterrupt:
    stp                     ; $800028
NMI:
    pha                     ; $800029
    phx                     ; $80002A
    phy                     ; $80002B
    phd                     ; $80002C
    phb                     ; $80002D
    lda >#$4200             ; $80002E
    tcd                     ; $800031
    lda >#$0100             ; $800032
AutoJoypadReadLoop:
    and <$11                ; $800035
    bne AutoJoypadReadLoop  ; $800037
    lda <$18                ; $800039
    pha                     ; $80003B
    and >#$000F             ; $80003C
    bne Player2JoypadRead   ; $80003E
    lda $01,s               ; $800040
    and joypad1_pressed     ; $800042
    sta vb_temp             ; $800045
    lda $01,s               ; $800048
    eor joypad1_held        ; $80004A
    and $01,s               ; $80004D
    sta joypad1_pressed     ; $80004F