lda #$01
    sta $1000
    lda #$03
    sta $1000
    clx
.loop0
    lda #$01
    sta $1000

    lda #$24
.loop1
    dec a
    bne .loop1                 ; delay for mouse to respond?

    lda $1000
    and #$0f
    sta __gamepad_0_hi,x       ;sta $2c63,x
    stz $1000
    pha
    pla
    pha
    pla
    lda $1000
    and #$0f
    sta __gamepad_0_lo,x       ;$2c68,x
    inx
    cpx #$05
    bcc .loop0
    lda #$01
    sta $1000
    lda #$03
    sta $1000
    clx
.loop2
    lda #$01
    sta $1000
    pha
    pla
    pha
    pla
    lda $1000
    and #$0f
    sta __gamepad_1_hi,x       ;$2c6d,x
    stz $1000
    pha
    pla
    pha
    pla
    lda $1000
    and #$0f
    sta __gamepad_1_lo,x       ;$2c72,x
    inx
    cpx #$05
    bcc .loop2
    lda #$01
    sta $1000
    lda #$03
    sta $1000
    clx
.loop3
    lda #$01
    sta $1000
    pha
    pla
    pha
    pla
    lda $1000
    and #$0f
    sta __gamepad_2_hi,x       ;$2c77,x
    stz $1000
    pha
    pla
    pha
    pla
    lda $1000
    and #$0f
    sta __gamepad_2_lo,x       ;$2c7c,x
    inx
    cpx #$05
    bcc .loop3
    lda #$01
    sta $1000
    lda #$03
    sta $1000
    clx
.loop4
    lda #$01
    sta $1000
    pha
    pla
    pha
    pla
    lda $1000
    and #$0f
    sta __gamepad_3_hi,x       ;$2c81,x
    stz $1000
    pha
    pla
    pha
    pla
    lda $1000
    and #$0f
    sta __gamepad_3_lo,x       ;$2c86,x
    inx
    cpx #$05
    bcc .loop4
  rts