* = $C000

; zum Testen der einfachen Befehlsausf�hrung

        jsr     _CLRSRN_
        jsr     _DEBUGB_
        jsr     _SYSTIM_

        ldy     #$ff    ; 2
waity:
        ldx     #$ff    ; 2
waitx:
        nop             ; 2 -
        pha             ; 3 |
        lda     $1000   ; 4
        and     $1000   ; 4
        adc     $1000   ; 4
        sta     $1000   ; 4
        pla             ; 4

        dex             ; 2 |
        bne     waitx   ; 4 - 31*255=7905
        nop             ; 2
        dey             ; 2 |
        bne     waity   ; 4 - 7913*255=2.017.815
                        ; ca. 2 Sekunden
        jsr     _SYSTIM_