; da65 V2.19 - Git f166ca8
; Created:    2026-02-12 11:34:54
; Input file: D:\DEV\CardGamesC64\CARD_Games_C64\Dev\Poker4-it\prg-b-poker-4.prg
; Page:       1


        .setcpu "6502"

L8002           := $8002
LA002           := $A002
LC84C           := $C84C
LE518           := $E518
LF6BC           := $F6BC
LF6ED           := $F6ED
LFD02           := $FD02
LFDA3           := $FDA3
LFFD2           := $FFD2
LFFE4           := $FFE4
        brk
        .byte   $C7
        lda     #$FB
        sta     $0328
        ldx     #$AC
        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
LC72B:  ldy     #$00
LC72D:  lda     ($FB),y
        sta     ($FD),y
        iny
        bne     LC72D
        inc     $FC
        inc     $FE
        dex
        bne     LC72B
        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
LC76F:  jsr     LFFE4
        cmp     #$00
        beq     LC76F
        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     LC7D9
        jsr     LFD02
        bne     LC7C5
        jmp     (L8002)

LC7C5:  jsr     LF6BC
        jsr     LF6ED
        bne     LC7D9
        bit     $FD15
        jsr     LFDA3
        jsr     LE518
        jmp     LC7DA

LC7D9:  .byte   $4C
LC7DA:  .byte   $72
        inc     $03A9,x
        sta     $C6
        lda     #$52
        ldx     #$D5
        ldy     #$0D
        sta     $0277
        stx     $0278
        sty     $0279
        lda     #$FB
        sta     $0328
        jmp     (LA002)

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