home *** CD-ROM | disk | FTP | other *** search
/ Syzygy Magazine 7 / Syzygy_Magazine_7_1999___pl_Disk_2_of_2_Side_B.atr / xlp15.arc / XLP15PAC.ASM < prev   
Assembly Source File  |  1999-11-25  |  4KB  |  1 lines
  1.     ⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤¢Öס≥∩πσΣ⌡≥δβáδ∩ϕ≡≥σ≤⌡Ωβπβ⑨¢Öτ≥βµΘδσá·áןכסβΘ∈⌠βá÷õ«Œ⑨¢Ö¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡⑨¢Ööáצ∙·∙τ∙áϕβτβ·Θ∈σááúÃáö⑨¢♪òòòòòòòòòòòòòòòòòòòòòòò ¢     opt 37¢¢sor1 equ $70b0 ;bitmapa #1¢sor2 equ $90b0 ;bitmapa #2¢dest equ $4000 ;bufor docelowy¢¢     org $80¢* 10 bajtow na stronie¢* zerowej¢p0   org *+2¢p1   org *+2¢p2   org *+2¢p3   org *+1¢p4   org *+1¢p5   org *+1¢p6   org *+1¢¢     org $b000¢pack ldx $2c4   ;najpierw same kolory¢     jsr putb   ;[bez kompresji]¢     ldx $2c5¢     jsr putb¢     ldx $2c6¢     jsr putb¢     ldx $2c8¢     jsr putb¢     lda <sor1¢     sta p0¢     lda >sor1¢     sta p0+1¢     lda <sor2¢     sta p1¢     lda >sor2¢     sta p1+1¢     lda #0¢     sta p6¢     sta p2¢     sta p2+1¢     lda <buff¢     sta adr1+1¢     lda >buff¢     sta adr1+2¢     lda #$28¢     sta p3¢pth1 lda p0¢     sta adr2+1¢     lda p0+1¢     sta adr2+2¢     lda p1¢     clc¢     adc #$28¢     sta adr3+1¢     lda p1+1¢     adc #0¢     sta adr3+2¢     lda #$c0¢     sta p4¢pet1 jsr adr2¢     jsr prc1¢     jsr adr3¢     bcs skp1¢     jsr prc1¢     jmp pet1¢skp1 jsr prc1¢     lda p1¢     sta adr2+1¢     lda p1+1¢     sta adr2+2¢     lda p0¢     clc¢     adc #$28¢     sta adr3+1¢     lda p0+1¢     adc #0¢     sta adr3+2¢     lda #$c0¢     sta p4¢pet2 jsr adr2¢     jsr prc1¢     jsr adr3¢     bcs skp2¢     jsr prc1¢     jmp pet2¢skp2 jsr prc1¢     inc p0¢     bne *+4¢     inc p0+1¢     inc p1¢     bne *+4¢     inc p1+1¢     dec p3¢     lda p3¢     bne pth1¢     lda p6¢     bmi pth2¢     bne pth3¢     ldx #1¢     jsr putb¢     ldx p5¢     jmp putb¢pth3 ldx p5¢     jsr putb¢     inc p2¢     bne *+4¢     inc p2+1¢     jmp fg1¢pth2 lda p5¢     sta buff¢     jmp fg2¢prc1 lda p6¢     bmi zkp1¢     bne zkp2¢     lda p2¢     bne zkp3¢     lda #2¢     sta p2¢     stx p5¢     rts¢zkp3 cpx p5¢     bne zkp4¢     lda #$80¢     sta p6¢     rts¢zkp4 lda p5¢     stx p5¢     jsr adr1¢     lda #1¢     sta p6¢     rts¢zkp2 cpx p5¢     beq ekp1¢     lda p5¢     stx p5¢     jsr adr1¢     inc p2¢     bne *+4¢     inc p2+1¢     rts¢ekp1 jsr fg1¢     ldx #0¢     stx p2+1¢     inx¢     inx¢     stx p2¢     lda #$80¢     sta p6¢     rts¢zkp1 cpx p5¢     bne kkp1¢     inc p2¢     bne *+4¢     inc p2+1¢     rts¢kkp1 lda p5¢     stx p5¢     jsr adr1¢     jsr fg2¢     ldx #0¢     stx p6¢     stx p2+1¢     inx¢     inx¢     stx p2¢     rts¢adr2 ldx *¢     lda adr2+1¢     clc¢     adc #$50¢     sta adr2+1¢     bcc *+5¢     inc adr2+2¢     dec p4¢     rts¢adr3 ldx *¢     lda adr3+1¢     clc¢     adc #$50¢     sta adr3+1¢     bcc *+5¢     inc adr3+2¢     dec p4¢     lda p4¢     bne rww¢     sec¢     rts¢rww  clc¢     rts¢adr1 sta buff¢     inc adr1+1¢     bne *+5¢     inc adr1+2¢     rts¢fg1  lda p2¢     sec¢     sbc #1¢     sta p2¢     lda p2+1¢     sbc #0¢     sta p2+1¢     lda p2+1¢     bne chr1¢     lda p2¢     cmp #$40¢     bcs chr1¢     tax¢     jsr putb¢     jmp chr2¢chr1 lda p2+1¢     ora #$40¢     tax¢     jsr putb¢     ldx p2¢     jsr putb¢chr2 lda <buff¢     sta chr3+1¢     lda >buff¢     sta chr3+2¢chr3 ldx buff¢     jsr putb¢     inc chr3+1¢     bne *+5¢     inc chr3+2¢     lda chr3+1¢     cmp adr1+1¢     bne chr3¢     lda chr3+2¢     cmp adr1+2¢     bne chr3¢     lda <buff¢     sta adr1+1¢     lda >buff¢     sta adr1+2¢     rts¢fg2  lda p2+1¢     bne hg1¢     lda p2¢     cmp #$40¢     bcs hg1¢     ora #$80¢     tax¢     jsr putb¢     jmp prf1¢hg1  lda p2+1¢     ora #$c0¢     tax¢     jsr putb¢     ldx p2¢     jsr putb¢prf1 ldx buff¢     jsr putb¢     lda <buff¢     sta adr1+1¢     lda >buff¢     sta adr1+2¢     rts¢¢û≡⌡⌠Γ¡≡≥·σ≤∮β∈ΘσáΩσΣ∈στ∩áΓβΩ⌠⌡é¢û⌠⌡´áΣ∩á≡βϕΘσπΘ¼áβ∮σáϕ∩·σáΓ∙πáé¢û∈≡«á∈βáΣ∩≈∩∮∈σá⌡≥·βΣ·σ∈Θσ«««áé¢putb stx dest¢     inc putb+1¢     bne *+5¢     inc putb+2¢     rts¢buff org *+32¢     end¢