home *** CD-ROM | disk | FTP | other *** search
/ Serious Magazine 8 / Serious_Magazine_08_2001_Dial_pl_Disk_1_of_2_Side_B.atr / sstuff08.lzh / I256.LZH / OLDFLAT.ASM next >
Assembly Source File  |  2023-02-26  |  2KB  |  1 lines
  1. * da flat shading¢* da ars /// aids¢* da Serious zine¢        opt 21¢bb      equ $80¢bb2     equ $81¢bbx     equ $82¢bby     equ $83¢bbz     equ $84¢¢        org $b000¢        ldy #0¢        ldx #22¢ale     lda #0¢        sta bb-1,x¢        lda leew,y¢        sta left+21,x¢        eor #$ff¢        adc #20¢        sta right,y¢        sta right+21,x¢        iny¢        dex¢        bne ale¢¢        ldy #$f¢hmme    lda #$4f¢h1      sta $bc20,x¢        inx¢        bne hmme¢        inc h1+2¢        dey¢        bne hmme¢        sta $26f¢¢        iny¢        sty bbx¢        iny¢¢ha      lda end,y¢        sta $bee2+9,y¢        dey¢        bpl ha¢        iny¢¢kki     lda bb¢        sta kol,y¢        lda bb2¢        adc #91¢        sta bb2¢        bcc skk¢        lda bb¢        adc #$10¢        sta bb¢skk     iny¢        bne kki¢¢spiro2  lda #49¢        sta bby¢¢spirol  lda $d40b      czekamy na vbl¢        bne *-3¢¢hhi     ldy #40        czyscimy bufor¢ala     sta $4f4f,y¢        dey¢        bpl ala¢¢alice   ldy #40      wype niamy lini❎¢        lda kol,y    danym kolorem od¢        sta bb       punktu x1 do x2¢ad2     lda left,y¢        tax¢adde    lda bb¢add     sta $4f57-10,x¢        inx¢        txa¢        cmp srodek,y¢        bne adde¢adde2   lda bb         wypelniamy lini❎¢        eor #$ff       danym kolorem od¢add2    sta $4f57-10,x punktu x2 do x3¢        inx¢        txa¢        cmp right,y¢        bne adde2¢nn      equ *¢        dec alice+1¢        bne spir¢        lda #40¢        sta alice+1¢spir    equ *¢        lda bbz        delay¢        adc #128¢        sta bbz¢        bcc nje¢¢        ldy #0  "bujamy" nasz⇧ figurci⇧¢hiz     lda addn,y¢        adc bbx¢        sta addn,y¢        iny¢        bne hiz¢¢nje     dec bby¢        bne spirol¢¢        lda bbx¢        eor #$ff¢        sta bbx¢        bne spiro2¢¢end     dta b($41),a($bc20)¢addn    equ *¢srodek dta b($04),b($04),b($04),b($04)¢ dta b($05),b($05),b($05),b($05),b($06)¢ dta b($06),b($06),b($07),b($07),b($07)¢ dta b($08),b($08),b($08),b($09),b($09)¢ dta b($09),b($0a),b($0a),b($0b),b($0b)¢ dta b($0b),b($0c),b($0c),b($0c),b($0d)¢ dta b($0d),b($0d),b($0e),b($0e),b($0e)¢ dta b($0f),b($0f),b($0f),b($0f),b($10)¢ dta b($10),b($10),b($11),b($11),b($11)¢ dta b($11)¢leew dta b($03),b($03),b($03),b($03)¢ dta b($02),b($02),b($02),b($02),b($02)¢ dta b($02),b($01),b($01),b($01),b($01)¢ dta b($01),b($01),b($01),b($01),b($01)¢ dta b($01),b($01),b($01)¢kol    equ $8400¢right  equ addn+$80¢left   equ leew¢       end¢