Kocie Flaki/Kocie_Flaki_1_19xx_NG_pl_Disk_3_of_3_Side_A.atr/intfull.asm

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

*Proca ta wyswietla¢*normalny pic w 4macie¢*XLP [160x192], lub¢*poszerzony [4mat ING, INP],¢*czyli [160x200].¢¢bmp_1 equ $2000  ;adres bitplanu #1¢bmp_2 equ $4000  ;adres bitplanu #2¢¢ opt 21¢ org $480¢¢ lda <dl         ;dawaj nowy dl¢ ldy >dl¢ sta $230¢ sty $231¢¢ ldy #4          ;init koloruff¢ptl2 equ *       ;708=02¢ lda colors,y    ;709=04¢ sta 708,y       ;710=06¢ dey             ;712=00¢ bpl ptl2¢¢ptl equ *        ;zamien adresy¢ lda itr0+1      ;bitplanuff¢ eor #224¢ sta itr0+1¢¢ lda itr1+1¢ eor #32¢ sta itr1+1¢¢ lda 20          ;czekaj jedna¢ cmp 20          ;ramke¢ beq *-2¢¢ bne ptl         ;[jmp]¢¢*kolory [708-712]¢colors dta b(2),b(4),b(6),a(0)¢¢*--- dl¢dl dta c'pppp'¢ dta b($4e)¢itr0 dta a(bmp_1)¢ dta d'....................'¢ dta d'....................'¢ dta d'....................'¢ dta d'....................'¢ dta d'.................'¢ dta b($4e)¢itr1 dta a(bmp_1+$f50)¢ dta d'....................'¢ dta d'....................'¢ dta d'....................'¢ dta d'.............'¢ dta d'....................'¢* ponizsza linijka tylko dla¢* pic'ow 4matoo inp, ing !!!¢¢* dta d'........'¢ dta b($41),a(dl)¢¢ end¢