*******************›*                 *›* Szumbar256      *›* a 256b intro    *›* for             *›* Last Party 2002 *›* by              *›* laoo::ng        *›* 26-27 xii mii   *›*                 *›*******************›   opt 37›   org $b000››v0 equ $80›swp equ $83        rodzaj linii›iswp equ $84››dl equ $b800›ekr equ $ba00›tab equ $b200›››   ldx #$ff›   stx 764›   inx›   ldx #0›ll1 lda $d20a›   sta ekr,x›   dex›   bne ll1››   lda #0›   sta 710›   lda #%100011›   sta 559›   lda #0›   sta iswp››loop equ *›   jsr mktab›   jsr mkdl›   lda <dl›   sta $230›   lda >dl›   sta $231›   lda #0›   sta 20›loop0 equ *›   bit 764›   bpl exit›   jsr mkdl›   lda #100›   cmp 20›   bcs loop0›››loop1 equ *›   bit 764›   bpl exit›   lda 20›   cmp 20›   beq *-2›   jsr mdtab›   php›   jsr mkdl›   plp›   bcc loop1››   lda iswp›   eor #64+15›   sta iswp›   jmp loop››exit lda #255›   sta 764›   jmp (10)››mkdl equ *›   lda iswp›   sta swp›   ldy #0›   sty v0›   lda >dl›   sta v0+1›   lda #12›   sta mkdla›mkdl0 equ *›mkdla equ *+1›   ldx tab›   beq mkdl1›mkdl3 lda swp›   jsr putl›   beq mkdl2›   lda $d20a›   and #$7f›   jsr putl›   lda >ekr›   jsr putl›mkdl2 dex›   bne mkdl3›mkdl1 lda swp›   eor #64+15›   sta swp›   dec mkdla›   bpl mkdl0››   lda #65›   jsr putl›   lda #0›   jsr putl›   lda >dl››putl equ *›   pha›   sta (v0),y›   iny›   bne *+4›   inc v0+1›   pla›   rts››mktab equ *›   ldx #12›mktab0 equ *›   lda #0›   sta tab,x›   dex›   lda #20›   sta tab,x›   dex›   bne mktab0›   lda #119›   sta tab,x›   rts››* c ustawiony -- koniec zmian›mdtab equ *›   ldx #0›   lda tab,x›   beq mdtab0›   dec tab,x›mdtab1 equ *›   inx›   lda tab,x›   cmp #20›   bcs mdtab1›   inc tab,x›   rts›mdtab0 equ *›   inx›   inx›   lda tab,x›   beq mdtab0›   cpx #12›   dec tab,x›   inc tab+12›   rts›››   org $2e0›   dta a($b000)›   end›