Chaosknoten

@@ -321,65 +321,6 @@ SET_PIXEL_END:

-; draw worm

-; input: CNT = head of worm (0..55)

-; output: -

-; changes: X, FRAME, TMP, DATA

-; time: short

-DRAW_WORM:

-        cpi     CNT,56                  ; invalid head pos -> done

-        brsh    DRAW_WORM_END

-        ldi     XL,low(FRAME)+1         ; ptr to before head

-        add     XL,CNT                  ;   XH not there on ATtiny2313

-        ldi     DATA,15                 ; head is full on

-        cpi     CNT,42                  ; head pos in frame -> go

-        brlo    DRAW_WORM_LOOP

-        mov     TMP,CNT                 ; TMP := invisible pixels

-        subi    TMP,41

-        sub     XL,TMP                  ; skip invisible pixels

-        sub     DATA,TMP                ;   XH not there on ATtiny2313

-DRAW_WORM_LOOP:

-        st      -X,DATA                 ; set pixel, go back

-        cpi     XL,low(FRAME)           ; 1st pixel -> done

-        breq    DRAW_WORM_END           ;   XH not there on ATtiny2313

-        dec     DATA                    ; next pixel darker

-        brne    DRAW_WORM_LOOP          ; loop

-DRAW_WORM_END:

-; done

-        ret

-

-

-

-; draw backwards worm

-; input: CNT = tail of worm (0..55)

-; output: -

-; changes: X, FRAME, TMP, DATA

-; time: short

-DRAW_BW_WORM:

-        cpi     CNT,56                  ; invalid tail pos -> done

-        brsh    DRAW_BW_WORM_END

-        ldi     XL,low(FRAME)+1         ; ptr to before tail

-        add     XL,CNT                  ;   XH not there on ATtiny2313

-        ldi     DATA,1                  ; tail is minimum on

-        cpi     CNT,42                  ; tail pos in frame -> go

-        brlo    DRAW_BW_WORM_LOOP

-        mov     TMP,CNT                 ; TMP := invisible pixels

-        subi    TMP,41

-        sub     XL,TMP                  ; skip invisible pixels

-        add     DATA,TMP                ;   XH not there on ATtiny2313

-DRAW_BW_WORM_LOOP:

-        st      -X,DATA                 ; set pixel, go back

-        cpi     XL,low(FRAME)           ; 1st pixel -> done

-        breq    DRAW_BW_WORM_END        ;   XH not there on ATtiny2313

-        inc     DATA                    ; next pixel brighter

-        cpi     DATA,16                 ; loop

-        brne    DRAW_BW_WORM_LOOP

-DRAW_BW_WORM_END:

-; done

-        ret

-

-

-

 ; blink animation

 ; input: -

 ; output: -

@@ -427,158 +368,6 @@ ANIM_FADE_DOWN:

-; flicker animation

-; input: -

-; output: -

-; changes: X, FRAME, CNT, DATA, TMP, TMP2

-ANIM_FLICKER:

-; even pixels

-        rcall   CLEAR                   ; clear

-        ldi     DATA,15                 ; even pixels to maximum

-        ldi     CNT,0

-ANIM_FLICKER_EVEN:

-        rcall   SET_PIXEL

-        subi    CNT,-2                  ; move two pixels

-        cpi     CNT,42                  ; loop

-        brlo    ANIM_FLICKER_EVEN

-        ldi     TMP,40                  ; show frame 240 ms

-        rcall   OUT_FRAME_TIME

-; odd pixels

-        rcall   CLEAR                   ; clear

-        ldi     DATA,15                 ; odd pixels to maximum

-        ldi     CNT,1

-ANIM_FLICKER_ODD:

-        rcall   SET_PIXEL

-        subi    CNT,-2                  ; move two pixels

-        cpi     CNT,42                  ; loop

-        brlo    ANIM_FLICKER_ODD

-        ldi     TMP,40                  ; show frame 240 ms

-        rcall   OUT_FRAME_TIME

-; done

-        ret

-

-

-

-; wobble animation

-; input: -

-; output: -

-; changes: X, FRAME, CNT, DATA, TMP, TMP2

-ANIM_WOBBLE:

-; even pixels up, odd pixels down

-        ldi     DATA,0                  ; even pixels start dark

-ANIM_WOBBLE_UP:

-        ldi     CNT,0

-ANIM_WOBBLE_UP_DRAW:

-        rcall   SET_PIXEL

-        inc     CNT                     ; next pixel

-        ldi     TMP,0x0F                ; invert color

-        eor     DATA,TMP

-        cpi     CNT,42                  ; loop

-        brlo    ANIM_WOBBLE_UP_DRAW

-        ldi     TMP,10                  ; show frame 60 ms

-        rcall   OUT_FRAME_TIME

-        inc     DATA                    ; next color: brighter

-        cpi     DATA,16

-        brlo    ANIM_WOBBLE_UP

-; even pixels down, odd pixels up

-        ldi     DATA,15                 ; even pixels start full

-ANIM_WOBBLE_DOWN:

-        ldi     CNT,0

-ANIM_WOBBLE_DOWN_DRAW:

-        rcall   SET_PIXEL

-        inc     CNT                     ; next pixel

-        ldi     TMP,0x0F                ; invert color

-        eor     DATA,TMP

-        cpi     CNT,42                  ; loop

-        brlo    ANIM_WOBBLE_DOWN_DRAW

-        ldi     TMP,10                  ; show frame 60 ms

-        rcall   OUT_FRAME_TIME

-        dec     DATA                    ; next color: darker

-        cpi     DATA,16

-        brlo    ANIM_WOBBLE_DOWN

-; done

-        ret

-

-

-

-; run animation

-; input: -

-; output: -

-; changes: X, FRAME, CNT, DATA, TMP, TMP2

-ANIM_RUN:

-        ldi     CNT,255                 ; start before 1st pixel

-ANIM_RUN_LOOP:

-        rcall   CLEAR                   ; clear

-        ldi     DATA,15                 ; current pixel full on

-        rcall   SET_PIXEL

-        ldi     TMP,10                  ; show frame 60 ms

-        rcall   OUT_FRAME_TIME

-        inc     CNT                     ; next pixel

-        cpi     CNT,43                  ; loop until after last pixel

-        brne    ANIM_RUN_LOOP

-; done

-        ret

-

-

-

-; backwards run animation

-; input: -

-; output: -

-; changes: X, FRAME, CNT, DATA, TMP, TMP2

-ANIM_BW_RUN:

-        ldi     CNT,42                  ; start after last pixel

-ANIM_BW_RUN_LOOP:

-        rcall   CLEAR                   ; clear

-        ldi     DATA,15                 ; current pixel full on

-        rcall   SET_PIXEL

-        ldi     TMP,10                  ; show frame 60 ms

-        rcall   OUT_FRAME_TIME

-        dec     CNT                     ; previous pixel

-        cpi     CNT,255                 ; loop until before 1st pixel

-        brne    ANIM_BW_RUN_LOOP

-; done

-        ret

-

-

-

-; worm animation

-; input: -

-; output: -

-; changes: X, FRAME, CNT, DATA, TMP, TMP2

-ANIM_WORM:

-        ldi     CNT,255                 ; worm starts before 1st pixel

-ANIM_WORM_LOOP:

-        rcall   CLEAR                   ; draw worm

-        rcall   DRAW_WORM

-        ldi     TMP,10                  ; show frame 60 ms

-        rcall   OUT_FRAME_TIME

-        inc     CNT                     ; advance worm

-        cpi     CNT,57                  ; loop until has exits

-        brne    ANIM_WORM_LOOP

-; done

-        ret

-

-

-

-; backwards worm animation

-; input: -

-; output: -

-; changes: X, FRAME, CNT, DATA, TMP, TMP2

-ANIM_BW_WORM:

-        ldi     CNT,56                  ; worm starts behind frame

-                                        ;   head not yet visible

-ANIM_BW_WORM_LOOP:

-        rcall   CLEAR                   ; draw backwards worm

-        rcall   DRAW_BW_WORM

-        ldi     TMP,10                  ; show frame 60 ms

-        rcall   OUT_FRAME_TIME

-        dec     CNT                     ; advance worm backwards

-        cpi     CNT,254                 ; loop until worm has exited

-        brne    ANIM_BW_WORM_LOOP

-; done

-        ret

-

-

 ; movie data format

 ;   movie = frame ... frame end

 ;   frame = 0x0_ ... -> plain frame

@@ -795,20 +584,8 @@ ANIM_TAB:

 .INCLUDE        "movie_tab.inc"

         .dw     ANIM_BLINK

         .dw     3

-        .dw     ANIM_WORM

-        .dw     3

-        .dw     ANIM_FLICKER

-        .dw     10

-        .dw     ANIM_BW_RUN

-        .dw     3

         .dw     ANIM_FADE

         .dw     2

-        .dw     ANIM_BW_WORM

-        .dw     3

-        .dw     ANIM_WOBBLE

-        .dw     5

-        .dw     ANIM_RUN

-        .dw     3

 ANIM_TAB_END: