Kocie Flaki/Kocie_Flaki_1_19xx_NG_pl_Disk_3_of_3_Side_A.atr/ap3show.asm

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

*---------------*¢* Shower do AP3 *¢* 4 Kocie Flaki *¢*---------------*¢¢ opt %100101¢¢pom0 equ $80 [2] ;komorki pomocnicze¢pom1 equ $82 [2] ;przy tworzeniu DL¢¢a equ $40b0      ;adres bitmapy #1¢b equ $60b0      ;adres bitmapy #2¢¢dl1 equ $9000    ;DL numer jeden¢dl2 equ $9400    ;DL numer dwa¢¢ org $2000¢main equ *¢¢*-- inicjacja komorek¢ ldy #3¢d0 equ *¢ lda kom,y¢ sta pom0,y¢ dey¢ bpl d0¢¢*-- tworzenie dwoch DL¢ ldx #192        ;ile linii?¢ ldy #0¢ptl equ *¢ lda #$4f        ;dta b($4f)¢ sta (pom0),y¢ sta (pom1),y¢ jsr _add¢¢ lda bmp_adr     ;dta l(adres linii)¢ sta (pom0),y¢ sta (pom1),y¢ jsr _add¢¢ lda bmp_adr+1   ;dta h(adres linii)¢ sta (pom0),y¢ sta (pom1),y¢ jsr _add¢¢ lda #40         ;linia=linia+40¢ clc¢ adc bmp_adr¢ sta bmp_adr¢ bcc skp0¢ inc bmp_adr+1¢skp0 equ *¢¢ dex             ;wyswietl wszystko¢ bne ptl¢¢ lda #$41        ;dta b($41)¢ sta (pom0),y¢ sta (pom1),y¢ jsr _add¢¢ lda <dl         ;dta l(dl)¢ sta (pom0),y¢ sta (pom1),y¢ jsr _add¢¢ lda >dl         ;dta l(dl)¢ sta (pom0),y¢ sta (pom1),y¢¢*-- inicjacja komorek¢ ldy #3¢d1 equ *¢ lda kom2,y¢ sta pom0,y¢ dey¢ bpl d1¢¢*-- przeplatanie w dl'iscie¢ ldy #0¢ ldx #192        ;ile linii?¢¢*-- pierwsza DL¢ptl2 equ *¢ lda (pom0),y¢ clc¢ adc #$20¢ sta (pom0),y¢¢ lda #6¢ clc¢ adc pom0¢ sta pom0¢ bcc skp1¢ inc pom0+1¢skp1 equ *¢¢*-- druga DL¢ lda (pom1),y¢ clc¢ adc #$20¢ sta (pom1),y¢¢ lda #6¢ clc¢ adc pom1¢ sta pom1¢ bcc skp2¢ inc pom1+1¢skp2 equ *¢¢ dex¢ bne ptl2¢¢*--¢ lda #0          ;kolor tla¢ sta 710¢¢ lda <int        ;nowe wektory dli¢ ldy >int¢ sta $200¢ sty $201¢ lda #$c0        ;wlacz dli¢ sta $d40e¢¢ lda <dl         ;niu dl¢ ldy >dl¢ sta $230¢ sty $231¢¢ lda #$21        ;fonzki :) ekran¢ sta $22f¢¢ jmp *           ;ojej, a to co?¢¢*---¢int equ *¢ pha             ;X i A na stos¢ txa¢ pha¢¢ sta $d40a       ;nxt linia¢ lda #$22        ;normalny ekran¢ sta $d400¢¢*-- wyswietlanie naprzemienne¢*   trybow 9 i 11¢¢ ldx #194        ;ile linii?¢i0 sta $d40a     ;nxt linia¢¢z0 lda #$c0      ;zaczynamy od gr.11¢ sta $d01b¢¢ lda z0+1¢ eor #$80¢ sta z0+1¢¢ dex¢ bne i0¢¢ lda chng+1      ;zmien dl'a¢ eor #$4¢ sta chng+1¢¢ lda z0+1        ;przygotuj na potem¢ eor #$80¢ sta z0+1¢¢ pla             ;A i X ze stosu¢ tax¢ pla¢ rti¢¢*-- zwiekszanie komorek na zerowej¢_add equ *¢ inc pom0¢ bne a0¢ inc pom0+1¢a0 inc pom1¢ bne a1¢ inc pom1+1¢a1 rts¢¢*-- dane pomocnicze¢bmp_adr dta a(a)¢kom dta a(dl1),a(dl2)¢kom2 dta a(dl1+5),a(dl2+2)¢¢inf0 equ *¢    dta d' "AP3 shower" 4 Kocie Flaki #1! '¢¢*--- dl'ik¢dl equ *¢ dta c'pp'¢ dta b($42),a(inf0)¢ dta c'Ç'¢ dta b(1)¢chng equ *¢ dta a(dl1)¢¢ org $2e0¢ dta a(main)¢ end¢