Plus/4 Kernal Disassembly $c0da-$c1c0
Suche
Index
FAQ
Kontakt
Zurück
; $C0DA: Paint
PAINT:  ldx     #$02
        ldy     #$06
LC0DE:  lda     #$00
        sta     $02B9,x
        sta     $02BA,x
        jsr     LC322
        bpl     LC0F3
        dec     $02B9,x
        dec     $02BA,x
        bne     LC0FE
LC0F3:  cmp     #$00
        bne     LC0FB
        cpy     #$00
        beq     LC0FE
LC0FB:  inc     $02B9,x
LC0FE:  sta     $02B5,x
        asl     a
        sta     $02BD,x
        tya
        sta     $02B6,x
        rol     a
        sta     $02BE,x
        dex
        dex
        ldy     #$04
        cpx     #$00
        beq     LC0DE
        ldx     #$0A
        ldy     #$08
        jsr     LC305
        lda     #$00
        rol     a
        rol     a
        sta     $02C3
        eor     #$02
        sta     $02C4
        clc
        lda     #$10
        adc     $02C3
        tay
        pha
        eor     #$02
        tax
        jsr     LC305
        sta     $02AD,x
        tya
        sta     $02AE,x
        pla
        tay
        clc
        lda     #$08
        adc     $02C4
        tax
        jsr     LC305
        sta     $02C1
        sty     $02C2
LC14F:  jsr     LC1A5
        ldy     $02C4
        sec
        lda     $02B5,y
        sbc     #$01
        sta     $02B5,y
        bcs     LC16B
        lda     $02B6,y
        sbc     #$00
        sta     $02B6,y
        bcs     LC16B
        rts
LC16B:  ldx     $02C3
        lda     $02C2
        bmi     LC179
        jsr     LC194
        ldx     $02C4
LC179:  clc
        lda     $02C1
        adc     $02BD,x
        sta     $02C1
        lda     $02C2
        adc     $02BE,x
        sta     $02C2
        ldx     $02C4
        jsr     LC194
        beq     LC14F
LC194:  ldy     #$02
        clc
LC197:  lda     $02AD,x
        adc     $02B9,x
        sta     $02AD,x
        inx
        dey
        bne     LC197
        rts
LC1A5:  lda     $02E8
        ora     $02E7
        beq     SDOT
        inc     $02AD
        bne     LC1B5
        inc     $02AE
LC1B5:  jsr     SDOT
        ldx     $02AD
        bne     LC1C0
        dec     $02AE
LC1C0:  dec     $02AD

 

Letzte Änderung: 2019-01-06 09:49:55
  Rubrik:  C16
Rubriken-Übersicht
 62 Besucher online 

Valid XHTML 1.0 Transitional Valid CSS!