Serious Magazine 4/Serious_Magazine_04_1999_Dial_pl_Side_B.atr/sstuff04.arc/BYTE256.ARC/SUX3D.ASM

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

*②②②②②②②②②②②②②②②②②②②②②*¢|áááØœŒΓáøΣá÷σπ⌠∩≥áááá|¢|ááááœáצσ≥Θ∩⌡≤áúœááááá|¢|áááIJ≥≤»IJΣ≤áØ«õ«¨¨áááá|¢*②②②②②②②②②②②②②②②②②②②②②*¢|Run   - $b039        |¢|Memhi - $b000        |¢|                     |¢|SHIFT+BREAK - wyjscie|¢*②②②②②②②②②②②②②②②②②②②②②*¢¢     opt %10101¢¢i    equ $340¢_x   equ $b200¢_y   equ $b300¢x1   equ 91¢y1   equ 90¢x2   equ $55¢y2   equ $54¢col  equ $2fb¢h3   equ $80¢¢x    equ 80¢y    equ 10¢¢     org $b000¢¢scr  dta c'S:',b($9b)¢__x  dta c'T\dhptxtphd\'¢     dta c'TLD<40,((,48'¢     dta c'@HP'¢__y  dta c'TTTPPLH@<<88'¢     dta c'88888<@DLPPT'¢     dta c'TTX'¢¢¬áδ∩≡Θ∩≈β∈Θσá≡≥σδβ∮δ∩≈β∈∙πΦ᢬á≈≤≡∩∮≥·σΣ∈∙πΦ«á¢run  ldy #26¢r    lda __x,y¢     sta _x,y¢     sta _x+26,y¢     lda __y,y¢     sta _y,y¢     sta _y+26,y¢     dey¢     bpl r¢¢¬áΘ∈ΘπΩβπΩβá⌠≥∙Γ⌡áτ≥βµΘπ·∈στ∩ᢠ    ldx #16¢     lda #0¢     sta i+4,x¢     lda >scr¢     sta i+5,x¢     lda #3¢     sta i+2,x¢     lda #6¢     sta i+11+16¢     jsr $e456¢     dex¢     stx col¢¢¬áτ∮∩≈∈βá≡σ⌠∮βá¢lup_ ldy #0¢lup  sty h3¢     jsr $f420¢     ldy h3¢     lda _x,y¢     sta x1¢     lda _y,y¢     sta y1¢     lda _x+9,y¢     sta x2¢     lda _y+9,y¢     sta y2¢     jsr drw¢     lda _x+18,y¢     sta x1¢     lda _y+18,y¢     sta y1¢     jsr drw¢     lda _x,y¢     sta x2¢     lda _y,y¢     sta y2¢     lda _x+18,y¢     sta x1¢     lda _y+18,y¢     sta y1¢     jsr drw¢     lda _x,y¢     sta x2¢     lda _y,y¢     jsr pwt¢     lda _x+18,y¢     sta x2¢     lda _y+18,y¢     jsr pwt¢     lda _x+9,y¢     sta x2¢     lda _y+9,y¢     jsr pwt¢     iny¢     cpy #25¢     bne lup__¢     beq lup_¢lup__ jmp lup¢¢¬á≈∙≈«á≤∙≤⌠σϕ∩≈σΩá≡≥∩π∙áΣ≥β≈⌠∩á¢pwt  sta y2¢     lda #x¢     sta x1¢     lda #y¢     sta y1¢drw  sty h3¢     ldx #$10¢     lda #17¢     sta i+2+16¢     jsr $e456¢     ldy h3¢     rts¢¢     org $2e0¢     dta a(run)¢¢     end of file¢