Tajemnice Atari 8/Tajemnice_Atari_Nr_08_1992_Avalon_pl.atr/demo3.asm

Assembly Source File | 2023-02-26 | 2KB | 1 lines

Program   Equ $8800¢¢List_mem  Equ %00000110¢List_err  Equ %00000101¢Code_mem  Equ %00010000¢Code_dsk  Equ %00100000¢¢Colbak    Equ $D01A¢Colbks    Equ $2C8¢Dliv      Equ $200¢Dlptrs    Equ $230¢Nmien     Equ $D40E¢Wsync     Equ $D40A¢¢Pom       Equ $F0¢¢          Opt List_err+Code_mem¢          Org Program¢¢          Ldx #$00¢          Stx Poz_y¢          Stx Licznik¢¢          Jmp Init¢¢Przerw    Pha¢          Tya¢          Pha¢          Txa¢          Pha¢¢          Ldy Poz_y¢          Lda Pozycje,y¢          Tax¢          Inc Poz_y¢          Cpy #$1E¢          Bne L2¢          Ldy Licznik¢          Clc¢          Lda Kolory,y¢          Adc #$10¢          Sta Kolory,y¢          Ldy #$00¢          Inc Licznik¢          Lda Licznik¢          Cmp #$0E¢          Bne L1¢          Sty Licznik¢L1        Sty Poz_y¢L2        Sta Wsync¢          Sta Wsync¢          Dex¢          Bpl L2¢          Ldy #$00¢L3        Lda Kolory,y¢          Sta Colbak¢          Sta Wsync¢          Sta Wsync¢          Sta Wsync¢          Iny¢          Cpy #$0E¢          Bne L3¢          Lda Colbks¢          Sta Colbak¢¢          Pla¢          Tax¢          Pla¢          Tay¢          Pla¢          Rti¢¢Poz_y     Dta B($00)¢Licznik   Dta B($00)¢¢Kolory    Dta B($D2),B($D4),B($D6)¢          Dta B($D8),B($DA),B($DC)¢          Dta B($DE),B($DE),B($DC)¢          Dta B($DA),B($D8),B($D6)¢          Dta B($D4),B($D2)¢¢Pozycje   Dta B($20),B($21),B($21)¢          Dta B($22),B($22),B($23)¢          Dta B($24),B($26),B($28)¢          Dta B($2A),B($2C),B($2F)¢          Dta B($32),B($35),B($38)¢          Dta B($3C),B($38),B($35)¢          Dta B($32),B($2F),B($2C)¢          Dta B($2A),B($28),B($26)¢          Dta B($24),B($23),B($22)¢          Dta B($22),B($21),B($21)¢          Dta B($20)¢¢          End of file¢