home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tajemnice Atari 8
/
Tajemnice_Atari_Nr_08_1992_Avalon_pl.atr
/
demo3.asm
< prev
next >
Wrap
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¢