opt %10101››prog equ $9000›scr1 equ $b000›tab8 equ $a000›bits equ $a100›ltablo equ $a200›ltabhi equ $a300›dl equ $a400›oldl equ $a500›oldh equ $a600›sinx equ $a700›siny equ $a800›zer equ $e0›zer1 equ $e2›hlp equ $f0›hlp1 equ $f1›ile equ 80›› org prog›› ldy #0›_1 tya› lsr @› lsr @› lsr @› sta tab8,y› iny› bne _1›› lda #$80›_2 sta bits,y› lsr @› bcc *+4› lda #$80› iny› bne _2›› lda scr1› sta zer1+1› sta _4+2›_3 lda zer1+1› sta ltabhi,y› lda zer1› sta ltablo,y› clc› adc #$20› sta zer1› bcc *+4› inc zer1+1› iny› bne _3›› ldx #15›_4 sta scr1,y› iny› bne _4› inc _4+2› dex› bpl _4›› lda dl› sta $231› lda #$21› sta $22f› lda #0› sta 712› lda #2› sta 710› lda #15› sta 709›› jsr pisz››loop lda 20› cmp 20› beq *-2› jsr del› jsr pisz› lda #4› sta $d40a› sta $d01a› lda #0› sta $d40a› sta $d01a› lda $d20f› and #8› bne loop› rts››pisz equ *› lda _adc› sta _ad0+1› lda _adc+1› sta _ad1+1› lda _adc+2› sta _ad2+1› lda _adc+3› sta _ad3+1› lda #0› sta zer› lda _akt› sta _pi1+1› lda _akt+1› sta _pi2+1› lda _akt+2› sta _pi3+1› lda _akt+3› sta _pi4+1›› ldx #ile›_pi1 lda sinx› clc›_pi2 adc sinx› sta _pi5+1› sta _pi6+1›_pi3 lda siny› clc›_pi4 adc siny› tay› lda ltabhi,y› sta zer+1› sta oldh,x› lda ltablo,y›_pi5 ora tab8› sta oldl,x› tay› lda (zer),y›_pi6 ora bits› sta (zer),y›› lda _pi1+1› clc›_ad0 adc #$ff› sta _pi1+1› lda _pi2+1› clc›_ad1 adc #$ff› sta _pi2+1› lda _pi3+1› clc›_ad2 adc #$ff› sta _pi3+1› lda _pi4+1› clc›_ad3 adc #$ff› sta _pi4+1›› dex› bpl _pi1› ldy #3›_pi7 lda _akt,y› clc› adc _spd,y› sta _akt,y› dey› bpl _pi7› rts››del equ *› lda #0› ldx #ile›_dl1 ldy oldh,x› sty _dl2+2› ldy oldl,x›_dl2 sta scr1,y› dex› bpl _dl1› rts›››_spd dta b($01),b($02),b($03),b($ff)›_adc dta b($fe),b($ff),b($02),b($01)›_akt dta d' '››› org dl› dta d'ppppppp'› dta b($4f),a(scr1)› dta d'////////////////'› dta d'////////////////'› dta d'////////////////'› dta d'////////////////'› dta d'////////////////'› dta d'////////////////'› dta d'////////////////'› dta d'///////////////'› dta b($41),a(dl)›› org sinx› dta c'@BCEFHIKLNOQRTUWXZ[\^_`bcdfghijk'› dta c'mnopqrsttuvwxxyzz{{||}}}~~~'› dta c'~~~}}}||{{zzyxxwvuttsrqpon'› dta c'mkjihgfdcb`_^\[ZXWUTRQONLKIHFECB'› dta c'@>=;:875421/.,+)(&%$"! '› dta c' '› dta c' '› dta c' !"$%&()+,./124578:;=>'›› org siny› dta c' !""#$%%&',b(39),c'(()**+,--.//0112234455'› dta c'66778899::;;;<<<====>>>>>???????'› dta c'????????>>>>>====<<<;;;::9988776'› dta c'65544322110//.--,+**)((',b(39),c'&%%$#""!'› dta c'  '› dta c' '› dta c' '› dta c' '››