Serious Magazine 8/Serious_Magazine_08_2001_Dial_pl_Disk_2_of_2_Side_B.atr/map16x16.lzh/M16FAST.ASM

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¢¢