Pseudo scroll

*=$1A00


                                LDA #$01        ; begin 1
begin                           STA $9001       ; do rejestru beginu
                                CPY #$90        ; czy aku ma 9

                        BEQ down
                        TAY
                        BNE czekanie        ;jesli aku rozne to skocz do loop
down
;_____________


                                LDA #$90        ; begin 1
begin2                           STA $9001       ; do rejestru beginu
                                CPY #$01        ; czy aku ma 9

                        BEQ begin
                        TAY
                        BNE czekanie2        ;jesli aku rozne to skocz do loop
up



                jmp begin

czekanie2                LDX #1      ;
                        LDA #$0
                        STA $00A2


wait12                  CPX $00A2    ; wait1 2 sek
                        BNE wait12

                        DEY
                        TYA
                        JMP begin2


;_____________

czekanie                LDX #1      ;
                        LDA #$0
                        STA $00A2


wait1                  CPX $00A2    ; wait1 x sek
                        BNE wait1

                        INY
                        TYA
                        JMP begin