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
/
M16FAST.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-09-01
|
5KB
|
1 lines
①②②②②②②②②②②②②②②②②②②②②②❎¢|ááááááááááááááááááááá|¢|áצדפחנרצáלIJוIJםחמדáúÕá|¢|ááááááááááááááááááááá|¢|áהןá∈βáלIJסחדáá¿הIJצק⌐á|¢|ááááááááááááááááááááá|¢|áááβ⌡⌠∩≥´áIJ≥≤»IJΘΣ≤ááá|¢|ááááááááááááááááááááá|¢ə②②②②②②②②②②②②②②②②②②②②②⇨¢¢*** fx na mapie, textura: 16x16¢*** przyklad z rozwalaniem kodu¢*** - skompilowac¢*** - LOA jakasmapa.M16 A000¢*** - LOA jakastextura.T16 8A00¢*** - M16FAST.OBJ¢¢ opt %101001 |na dysk¢¢texture equ $8a00¢tex_lo equ $8800¢tex_hi equ $8900¢mapka equ $a000¢screen equ $9000¢code equ $2000¢¢ org $80¢¢_p0 org *+2¢_p1 org *+2¢tmp org *+1¢h0 org *+2¢h1 org *+2¢_yy org *+1¢_xx org *+1¢¢ org $b200¢¢ jsr mkdl¢ jsr mkcode¢ lda <dl¢ sta $230¢ lda >dl¢ sta $231¢ lda #$40¢ sta $26f¢ 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 *¢ jsr code¢¢*** skrolowanie textury;¢*** jesli masz ochote - napisz¢*** wersje rozwalona na kilometry kodu¢¢ ldy #0¢skl1 lda tex_lo,y¢ sta scrl,y¢ lda tex_lo+$10,y¢ sta tex_lo+$00,y¢ lda tex_lo+$20,y¢ sta tex_lo+$10,y¢ lda tex_lo+$30,y¢ sta tex_lo+$20,y¢ lda tex_lo+$40,y¢ sta tex_lo+$30,y¢ lda tex_lo+$50,y¢ sta tex_lo+$40,y¢ lda tex_lo+$60,y¢ sta tex_lo+$50,y¢ lda tex_lo+$70,y¢ sta tex_lo+$60,y¢ lda tex_lo+$80,y¢ sta tex_lo+$70,y¢ lda tex_lo+$90,y¢ sta tex_lo+$80,y¢ lda tex_lo+$a0,y¢ sta tex_lo+$90,y¢ lda tex_lo+$b0,y¢ sta tex_lo+$a0,y¢ lda tex_lo+$c0,y¢ sta tex_lo+$b0,y¢ lda tex_lo+$d0,y¢ sta tex_lo+$c0,y¢ lda tex_lo+$e0,y¢ sta tex_lo+$d0,y¢ lda tex_lo+$f0,y¢ sta tex_lo+$e0,y¢ lda scrl,y¢ sta tex_lo+$f0,y¢ iny¢ cpy #$10¢ bne skl1¢* ---¢ ldy #0¢skl2 lda tex_hi,y¢ sta scrl,y¢ lda tex_hi+$10,y¢ sta tex_hi+$00,y¢ lda tex_hi+$20,y¢ sta tex_hi+$10,y¢ lda tex_hi+$30,y¢ sta tex_hi+$20,y¢ lda tex_hi+$40,y¢ sta tex_hi+$30,y¢ lda tex_hi+$50,y¢ sta tex_hi+$40,y¢ lda tex_hi+$60,y¢ sta tex_hi+$50,y¢ lda tex_hi+$70,y¢ sta tex_hi+$60,y¢ lda tex_hi+$80,y¢ sta tex_hi+$70,y¢ lda tex_hi+$90,y¢ sta tex_hi+$80,y¢ lda tex_hi+$a0,y¢ sta tex_hi+$90,y¢ lda tex_hi+$b0,y¢ sta tex_hi+$a0,y¢ lda tex_hi+$c0,y¢ sta tex_hi+$b0,y¢ lda tex_hi+$d0,y¢ sta tex_hi+$c0,y¢ lda tex_hi+$e0,y¢ sta tex_hi+$d0,y¢ lda tex_hi+$f0,y¢ sta tex_hi+$e0,y¢ lda scrl,y¢ sta tex_hi+$f0,y¢ iny¢ cpy #$10¢ bne skl2¢* ---¢ jmp loop¢¢scrl org *+16¢¢mkcode lda <screen¢ sta _p1¢ lda >screen¢ sta _p1+1¢ lda <code¢ sta h0¢ lda >code¢ sta h0+1¢ lda #52¢ sta _yy¢lop2 lda #40¢ sta _xx¢lop1 ldy #0¢ lda #$ad lda $xxxx¢ sta (h0),y¢ iny¢mmp1 lda mapka¢ sta (h0),y¢ iny¢ lda >tex_hi¢ sta (h0),y¢ iny¢ lda #$d ora $xxxx¢ sta (h0),y¢ iny¢mmp2 lda mapka+1¢ sta (h0),y¢ iny¢ lda >tex_lo¢ sta (h0),y¢ iny¢ lda #$8d sta $xxxx¢ sta (h0),y¢ iny¢ lda _p1¢ sta (h0),y¢ iny¢ lda _p1+1¢ sta (h0),y¢ iny¢ tya¢ clc¢ adc h0¢ sta h0¢ bcc *+4¢ inc h0+1¢ inc _p1¢ bne *+4¢ inc _p1+1¢ lda mmp1+1¢ clc¢ adc #2¢ sta mmp1+1¢ bcc *+5¢ inc mmp1+2¢ lda mmp2+1¢ clc¢ adc #2¢ sta mmp2+1¢ bcc *+5¢ inc mmp2+2¢ dec _xx¢ bne lop1¢ dec _yy¢ bne lop2¢ ldy #0¢ lda #96 rts¢ sta (h0),y¢ rts¢¢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¢¢