; da65 V2.19 - Git f166ca8
; Created:    2026-02-12 18:30:09
; Input file: D:\DEV\CardGamesC64\CARD_Games_C64\Dev\Poker4-it\prg-b-raw-patched.bin
; Page:       1


        .setcpu "6502"

L8002           := $8002
LA002           := $A002
LC84A           := $C84A
LE518           := $E518
LF6BC           := $F6BC
LF6ED           := $F6ED
LFD02           := $FD02
LFDA3           := $FDA3
LFE72           := $FE72
LFFD2           := $FFD2
LFFE4           := $FFE4
        lda     #$FB
        sta     $0328
        ldx     #$B1
        ldy     #$C7
        stx     $0318
        sty     $0319
        lda     $D011
        and     #$EF
        sta     $D011
        ldx     #$00
        ldy     #$CC
        stx     $FB
        sty     $FC
        ldx     #$00
        ldy     #$D8
        stx     $FD
        sty     $FE
        ldx     #$04
LC729:  ldy     #$00
LC72B:  lda     ($FB),y
        sta     ($FD),y
        iny
        bne     LC72B
        inc     $FC
        inc     $FE
        dex
        bne     LC729
        lda     $CFFF
        sta     $D021
        lda     $DD00
        and     #$FC
        sta     $DD00
        lda     $D011
        ora     #$20
        sta     $D011
        lda     $D016
        ora     #$10
        sta     $D016
        lda     $D018
        and     #$2F
        ora     #$28
        sta     $D018
        lda     $D011
        ora     #$10
        sta     $D011
        lda     #$00
        sta     $C6
LC76D:  jsr     LFFE4
        bne     LC779
        lda     $DC00
        and     #$10
        bne     LC76D
LC779:  lda     $D011
        and     #$EF
        sta     $D011
        lda     $DD00
        ora     #$03
        sta     $DD00
        lda     $D011
        and     #$DF
        sta     $D011
        lda     $D016
        and     #$EF
        sta     $D016
        lda     $D018
        and     #$17
        ora     #$10
        sta     $D018
        lda     #$93
        jsr     LFFD2
        lda     $D011
        ora     #$10
        sta     $D011
        rts

        pha
        txa
        pha
        tya
        pha
        lda     #$7F
        sta     $DD0D
        ldy     $DD0D
        bmi     LC7E1
        jsr     LFD02
        bne     LC7C8
        jmp     (L8002)

LC7C8:  jsr     LF6BC
        jsr     LF6ED
        bne     LC7E1
        bit     $FD15
        jsr     LFDA3
        jsr     LE518
        lda     #$FB
        sta     $0328
        jmp     (LA002)

LC7E1:  jmp     LFE72

        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        bvc     LC84A
        .byte   $4B
        eor     $52
        .byte   $20
        .byte   $34
