home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kocie Flaki
/
Kocie_Flaki_1_19xx_NG_pl_Disk_3_of_3_Side_A.atr
/
intfull.asm
< prev
next >
Wrap
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¢