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

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¢