Serious Magazine 8

home *** CD-ROM | disk | FTP | other *** search

/ Serious Magazine 8 / Serious_Magazine_08_2001_Dial_pl_Disk_2_of_2_Side_A.atr / map64x64.lzh / _M64FAST.ASM < prev next >

Wrap

Assembly Source File | 1988-09-01 | 5KB | 1 lines

①②②②②②②②②②②②②②②②②②②②②②❎¢|ááááááááááááááááááááá|¢|áצדפחנרצáלĲוĲםחמדáúÕá|¢|ááááááááááááááááááááá|¢|áהןá∈βáלĲסחדáá¿הĲצק⌐á|¢|ááááááááááááááááááááá|¢|áááβ⌡⌠∩≥´áĲ≥≤»ĲΘΣ≤ááá|¢|ááááááááááááááááááááá|¢ə②②②②②②②②②②②②②②②②②②②②②⇨¢¢* fx na mapie, textura: 64x64¢* [ p r z y s p a w a n e ]¢* - skompilowac¢* - LOA jakastextura.CMM 7000¢* - LOA MAPA.64A 8000¢* - LOA MAPA.64B A000¢* - M16FAST.OBJ¢¢ opt %101001 |na dysk¢¢std equ $ff-1¢¢map1 equ $8000 $1040 |tablice wskazni-¢map2 equ $a000 $1040 |kow do textury¢tex equ $7000 $1000 |*.cmm - textura¢¢*** ponizsze wylicza program¢map_ equ $2000 kod ($4920 bajtow)¢tex2 equ $e800 $1000¢txl equ $8000 $2000¢txl2 equ $d800 $2000¢¢scr equ $c000¢lo equ $cc00¢hi equ $cd00¢lo2 equ $ce00¢hi2 equ $cf00¢dl equ $bc00¢¢ org $80¢¢p0 org *+2¢p1 org *+2¢p2 org *+2¢bb org *+2¢bb2 org *+2¢¢ org $b400¢¢run lda $d40b¢ bne *-3¢ sei¢ lda #0¢ sta $d40e¢ lda #std¢ sta $d301¢ lda <vct¢ sta $fffa¢ lda >vct¢ sta $fffb¢ jsr calc¢ jsr mkcd¢ jsr mkdl¢ jsr init¢¢* rozpompowanie textury¢ ldx #64¢tr0 ldy #0¢tr1 lda tex,y¢tr2 sta txl,y¢tr3 sta txl+64,y¢ iny¢ cpy #64¢ bne tr1¢ clc¢ lda #64¢ adc tr1+1¢ sta tr1+1¢ bcc *+5¢ inc tr1+2¢ clc¢ lda #128¢ adc tr2+1¢ sta tr2+1¢ bcc *+5¢ inc tr2+2¢ clc¢ lda #128¢ adc tr3+1¢ sta tr3+1¢ bcc *+5¢ inc tr3+2¢ dex¢ bne tr0¢ ldx #64¢tr0_ ldy #0¢tr1_ lda txl,y¢ asl @¢ asl @¢ asl @¢ asl @¢tr2_ sta txl2,y¢ iny¢ cpy #128¢ bne tr1_¢ clc¢ lda #128¢ adc tr1_+1¢ sta tr1_+1¢ bcc *+5¢ inc tr1_+2¢ clc¢ lda #128¢ adc tr2_+1¢ sta tr2_+1¢ bcc *+5¢ inc tr2_+2¢ dex¢ bne tr0_¢¢*** main loop¢go lda #0¢ and #%00111111¢ tax¢ jsr map_¢ inc go+1¢ jmp go¢¢vct bit $d40f¢ bpl vbl¢ jmp ($200)¢vbl sta $d40f¢ rti¢¢mkcd lda <map_¢ sta p0¢ lda >map_¢ sta p0+1¢ lda <scr¢ sta p2¢ lda >scr¢ sta p2+1¢ lda #52¢ sta bb2¢ lda <map2¢ sta pl1+1¢ lda >map2¢ sta pl1+2¢ lda <map1¢ sta pl2+1¢ lda >map1¢ sta pl2+2¢ lda <map2+1¢ sta pl3+1¢ lda >map2+1¢ sta pl3+2¢ lda <map1+1¢ sta pl4+1¢ lda >map1+1¢ sta pl4+2¢prl2 lda #40¢ sta bb¢prl1 ldy #0¢pl1 lda map2¢ tax¢ lda lo2,x¢ sta p1¢ lda hi2,x¢ sta p1+1¢pl2 lda map1¢ clc¢ adc p1¢ sta p1¢ bcc *+4¢ inc p1+1¢ inc pl1+1¢ bne *+5¢ inc pl1+2¢ inc pl2+1¢ bne *+5¢ inc pl2+2¢ inc pl1+1¢ bne *+5¢ inc pl1+2¢ inc pl2+1¢ bne *+5¢ inc pl2+2¢ lda #$bd¢ sta (p0),y¢ iny¢ lda p1¢ sta (p0),y¢ iny¢ lda p1+1¢ sta (p0),y¢ iny¢pl3 lda map2+1¢ tax¢ lda lo,x¢ sta p1¢ lda hi,x¢ sta p1+1¢pl4 lda map1+1¢ clc¢ adc p1¢ sta p1¢ bcc *+4¢ inc p1+1¢ inc pl3+1¢ bne *+5¢ inc pl3+2¢ inc pl4+1¢ bne *+5¢ inc pl4+2¢ inc pl3+1¢ bne *+5¢ inc pl3+2¢ inc pl4+1¢ bne *+5¢ inc pl4+2¢ lda #$1d¢ sta (p0),y¢ iny¢ lda p1¢ sta (p0),y¢ iny¢ lda p1+1¢ sta (p0),y¢ iny¢ lda #$8d¢ sta (p0),y¢ iny¢ lda p2¢ sta (p0),y¢ iny¢ lda p2+1¢ sta (p0),y¢ iny¢ tya¢ clc¢ adc p0¢ sta p0¢ bcc *+4¢ inc p0+1¢ inc p2¢ bne *+4¢ inc p2+1¢ dec bb¢ bne prl1_¢ dec bb2¢ bne prl2_¢ ldy #0¢ lda #$60¢ sta (p0),y¢ rts¢¢prl1_ jmp prl1¢prl2_ jmp prl2¢¢calc lda #0¢ sta k¢ lda <txl¢ sta p0¢ lda >txl¢ sta p0+1¢ lda <txl2¢ sta p1¢ lda >txl2¢ sta p1+1¢ ldy #0¢k2 lda p0¢ sta lo,y¢ lda p0+1¢ sta hi,y¢ lda p1¢ sta lo2,y¢ lda p1+1¢ sta hi2,y¢ clc¢ lda p0¢ adc #128¢ sta p0¢ bcc *+4¢ inc p0+1¢ clc¢ lda p1¢ adc #128¢ sta p1¢ bcc *+4¢ inc p1+1¢ iny¢ bne k2¢ rts¢k brk¢¢init lda #$22¢ sta $d400¢ lda #$40¢ sta $d01b¢ lda <dl¢ ldy >dl¢ sta $d402¢ sty $d403¢ rts¢¢mkdl lda <dl+3¢ sta p0¢ lda >dl+3¢ sta p0+1¢ lda <scr¢ sta p1¢ lda >scr¢ sta p1+1¢ lda #$70¢ sta dl¢ sta dl+1¢ lda #$20¢ sta dl+2¢ ldx #52¢rb1 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 #8¢ adc p0¢ sta p0¢ bcc *+4¢ inc p0+1¢ clc¢ lda #40¢ adc p1¢ sta p1¢ bcc *+4¢ inc p1+1¢ dex¢ bne rb1¢ dec p0¢ bne *+4¢ dec p0+1¢ ldy #0¢ lda #$41¢ sta (p0),y¢ iny¢ lda <dl¢ sta (p0),y¢ iny¢ lda >dl¢ sta (p0),y¢ rts¢¢ end of file¢¢