home *** CD-ROM | disk | FTP | other *** search
/ Tajemnice Atari 8 / Tajemnice_Atari_Nr_08_1992_Avalon_pl.atr / demo4.asm < prev    next >
Assembly Source File  |  2023-02-26  |  1KB  |  1 lines
  1. Program   Equ $8800¢¢List_mem  Equ %00000110¢List_err  Equ %00000101¢Code_mem  Equ %00010000¢Code_dsk  Equ %00100000¢¢Colpf2    Equ $D018¢Dliv      Equ $0200¢Dlptrs    Equ $0230¢Nmien     Equ $D40E¢Wsync     Equ $D40A¢¢Pom       Equ $F0¢          Opt List_err+Code_mem¢          Org Program¢¢          Ldx #$00¢          Stx Licznik¢          Stx Licznik+$01¢          Txa¢L1        Sta Kolory,x¢          Inx¢          Bne L1¢¢          Ldy #$00¢          Ldx #$0F¢L2        Tya¢          Eor #$30¢          Sta Kolory+$20,y¢          Txa¢          Eor #$30¢          Sta Kolory+$30,y¢          Iny¢          Dex¢          Bpl L2¢¢          Jmp Init¢¢Przerw    Pha¢          Txa¢          Pha¢          Tya¢          Pha¢¢          Ldx #$00¢          Stx Licznik¢L3        Clc¢          Lda Licznik+$01¢          Adc Licznik¢          Tax¢          Ldy #$07¢L4        Lda Kolory,x¢          Sta Wsync¢          Sta Colpf2¢          Inx¢          Dey¢          Bpl L4¢          Inc Licznik¢          Ldx Licznik¢          Cpx #$1A¢          Bne L3¢          Inc Licznik+$01¢          Ldx Licznik+$01¢          Cpx #$48¢          Bne L5¢          Ldx #$00¢          Stx Licznik+$01¢¢L5        Pla¢          Tay¢          Pla¢          Tax¢          Pla¢          Rti¢¢Licznik   Dta B($00),B($00)¢Kolory    Dta B($00)¢¢          End of file¢