home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Serious Magazine 8
/
Serious_Magazine_08_2001_Dial_pl_Disk_2_of_2_Side_B.atr
/
map16x16.lzh
/
M16SLOW.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-09-01
|
3KB
|
1 lines
①②②②②②②②②②②②②②②②②②②②②②❎¢|ááááááááááááááááááááá|¢|áצדפחנרצáלIJוIJםחמדáúÕá|¢|ááááááááááááááááááááá|¢|áהןá∈βáלIJסחדáá¿צכנת⌐á|¢|ááááááááááááááááááááá|¢|áááβ⌡⌠∩≥´áIJ≥≤»IJΘΣ≤ááá|¢|ááááááááááááááááááááá|¢ə②②②②②②②②②②②②②②②②②②②②②⇨¢¢*** fx na mapie, textura: 16x16¢*** standard przyklad (wooolne)¢*** *.M16 - kilka przykladowych¢*** mapek dla textury 16x16¢*** (ladowac pod $A000)¢*** *.T16 - kilka przykladowych¢*** texturek 16x16¢*** (ladowac pod $8A00)¢¢ opt %101001 |na dysk¢¢texture equ $8a00¢tex_lo equ $8800¢tex_hi equ $8900¢mapka equ $a000¢screen equ $9000¢¢ org $80¢_p0 org *+2¢_p1 org *+2¢tmp org *+1¢h0 org *+2¢h1 org *+2¢_yy org *+1¢_xx org *+1¢idx org *+1¢¢ org $b200¢¢ jsr mkdl¢ lda <dl¢ sta $230¢ lda >dl¢ sta $231¢ lda #$40¢ sta $26f¢ sta idx¢ ldy #0 ;przygotowanie texturki¢ ldx #0¢tt1 lda texture,y¢ pha¢ and #$f0¢ sta tex_hi,x¢ inx¢ pla¢ and #$0f¢ asl @¢ asl @¢ asl @¢ asl @¢ sta tex_hi,x¢ iny¢ inx¢ bne tt1¢ ldy #0¢tt2 lda tex_hi,x¢ lsr @¢ lsr @¢ lsr @¢ lsr @¢ sta tex_lo,x¢ inx¢ bne tt2¢loop equ *¢ lda <mapka ;_p0,_p1 - strona zerowa¢ sta _p0¢ lda >mapka¢ sta _p0+1¢ lda <screen¢ sta _p1¢ lda >screen¢ sta _p1+1¢ lda #52¢ sta _yy¢ ldy #0¢hori2 lda #40¢ sta _xx¢horiz lda (_p0),y¢ clc¢ adc idx¢ tax¢ lda tex_hi,x¢ sta tmp¢ inc _p0 ;inc map¢ bne *+4¢ inc _p0+1¢ lda (_p0),y¢ clc¢ adc idx¢ tax¢ lda tex_lo,x¢ ora tmp¢ sta (_p1),y ;to da screen¢ inc _p0 ;inc map¢ bne *+4¢ inc _p0+1¢ inc _p1 ;inc scr¢ bne *+4¢ inc _p1+1¢ dec _xx¢ bne horiz¢ dec _yy¢ bne hori2¢ lda idx¢ clc¢ adc #$10¢ sta idx¢ jmp loop¢¢mkdl lda <dl2¢ sta _p0¢ lda >dl2¢ sta _p0+1¢ lda <screen¢ sta _p1¢ lda >screen¢ sta _p1+1¢ ldx #52¢ti0 ldy #0¢ lda #$4f¢ sta (_p0),y¢ iny¢ lda _p1¢ sta (_p0),y¢ iny¢ lda _p1+1¢ sta (_p0),y¢ iny¢ lda #0¢ sta (_p0),y¢ iny¢ lda #$4f¢ sta (_p0),y¢ iny¢ lda _p1¢ sta (_p0),y¢ iny¢ lda _p1+1¢ sta (_p0),y¢ iny¢ lda #0¢ sta (_p0),y¢ clc¢ lda _p0¢ clc¢ adc #8¢ sta _p0¢ bcc *+4¢ inc _p0+1¢ lda _p1¢ clc¢ adc #40¢ sta _p1¢ bcc *+4¢ inc _p1+1¢ dex¢ bne ti0¢ ldy #2¢ti1 lda dlrn,y¢ sta (_p0),y¢ dey¢ bpl ti1¢ rts¢¢ org $b800¢¢dlrn dta b($41),a(dl)¢dl dta c'pp'¢dl2 equ *¢¢ end of file¢