home *** CD-ROM | disk | FTP | other *** search
/ Syzygy Magazine 7 / Syzygy_Magazine_7_1999___pl_Disk_2_of_2_Side_B.atr / xlp15.arc / XLP15DPC.ASM next >
Assembly Source File  |  1999-11-25  |  2KB  |  1 lines
  1.     ⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤¢Öס≥∩πδβáΣσ≡βδ⌡Ωβπβ⑨¢Ö∩Γ≥β·σδá·áןכסáõ«Œ⑨¢Ö¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡⑨¢Öצ∙·∙τ∙á¡áΘ≤≤⌡σáúÃ⑨¢♪òòòòòòòòòòòòòòòòò ¢¢     opt 37¢sour equ $4000 spakowane dane¢des1 equ $70b0 gdzie ma byc b-mapa #1¢des2 equ $90b0 gdzie ma byc b-mapa #2¢¢     org $80¢* 10 bajtow na¢* stronie zerowej¢p0   org *+2¢p1   org *+2¢p2   org *+1¢p3   org *+1¢p4   org *+1¢p5   org *+1¢p6   org *+1¢p7   org *+1¢¢     opt 37¢     org $b000¢unpk jsr getb ;najpierw pobieramy¢     sta $2c4 ;wartosci kolorow¢     jsr getb¢     sta $2c5¢     jsr getb¢     sta $2c6¢     jsr getb¢     sta $2c8¢¢     lda <des1¢     sta p0¢     lda >des1¢     sta p0+1¢     lda <des2¢     sta p1¢     lda >des2¢     sta p1+1¢¢     lda #0¢     sta p7¢     lda #$28¢     sta p4¢ptl3 lda p0¢     sta adr1+1¢     lda p0+1¢     sta adr1+2¢     lda p1¢     clc¢     adc #$28¢     sta adr2+1¢     lda p1+1¢     adc #0¢     sta adr2+2¢     lda #$c0¢     sta p5¢ptl1 jsr proc1¢     lda p5¢     bne ptl1¢     lda p1¢     sta adr1+1¢     lda p1+1¢     sta adr1+2¢     lda p0¢     clc¢     adc #$28¢     sta adr2+1¢     lda p0+1¢     adc #0¢     sta adr2+2¢     lda #$c0¢     sta p5¢ptl2 jsr proc1¢     lda p5¢     bne ptl2¢     inc p0¢     bne *+4¢     inc p0+1¢     inc p1¢     bne *+4¢     inc p1+1¢     dec p4¢     lda p4¢     bne ptl3¢     rts¢proc1 lda p7¢     bmi skp3¢     bne skp4¢     sta p2¢     sta p3¢     jsr getb¢     bmi skp5¢     cmp #$40¢     bcc skp6¢     and #$3f¢     sta p3¢     jsr getb¢skp6 sta p2¢     lda #$01¢     sta p7¢     jmp skp4¢skp5 and #$7f¢     cmp #$40¢     bcc skp7¢     and #$3f¢     sta p3¢     jsr getb¢skp7 sta p2¢     jsr getb¢     sta p6¢     lda #$80¢     sta p7¢     jmp skp3¢skp4 dec p2¢     lda p2¢     cmp #$ff¢     bne *+4¢     dec p3¢     lda p3¢     bmi skp9¢     jsr getb¢     jmp skpa¢skp9 lda #0¢     sta p7¢     jmp proc1¢skp3 dec p2¢     lda p2¢     cmp #$ff¢     bne skpb¢     dec p3¢skpb lda p3¢     bmi skpc¢     lda p6¢     jmp skpa¢skpc lda #0¢     sta p7¢     jmp proc1¢getb lda sour¢     php¢     inc getb+1¢     bne sskp¢     inc getb+2¢sskp plp¢     rts¢skpa tax¢     dec p5¢     lda p5¢     and #$01¢     beq adr2¢adr1 stx *¢     lda adr1+1¢     clc¢     adc #$50¢     sta adr1+1¢     bcc rtss¢     inc adr1+2¢rtss rts¢adr2 stx *¢     lda adr2+1¢     clc¢     adc #$50¢     sta adr2+1¢     bcc *+5¢     inc adr2+2¢     rts¢     end¢