home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Debilizator 3
/
Debilizator_3_1998_AIDS_PL_Side_A.atr
/
eedzprp.arc
/
EEDP03BB.ASM
< prev
next >
Wrap
Assembly Source File
|
2000-06-15
|
12KB
|
1 lines
ûדדגá≡∮∩⌠⌠σ≥á¿™⌐é¢ûגΓ∮áúø¼áØø«õ«¨¨é¢* (320x128)+16¢¢ opt 37¢il equ 40¢maxy equ 16 ilosc wierszy¢* (standardowo: 16 (EED))¢scr equ $20b0¢fnt equ $a000¢len equ $a400¢lo equ $a500¢hi equ $a600¢text equ $a700¢loo1 equ $9e00¢hii1 equ $9f00¢¢ org $80¢hl0 org *+2¢hl1 org *+2¢hl2 org *+2¢hl3 org *+2¢ile0 org *+1¢ile1 org *+1¢buf org *+1¢sc org *+1¢fn org *+1¢kl org *+1¢¢ org $b000¢ran jsr crol ;rolowanie fontow¢ jsr mirra ;odbijanie¢ jsr clen ;liczenie szer. fontow¢ jsr lena ;spacje specjalne¢ jsr clr ;czyszczenie obrazu¢ jsr calc ;policzenie paru rzeczy¢ jsr set ;ustawienie ekranu etc.¢¢ lda <scr¢ sta hl0¢ lda >scr¢ sta hl0+1¢ ldy #0¢uhhu lda hl0¢ sta loo1,y¢ lda hl0+1¢ sta hii1,y¢ inc hl0+1¢ lda hl0¢ clc¢ adc #64+40¢ sta hl0¢ bcc *+4¢ inc hl0+1¢ iny¢ bne uhhu¢¢ lda <text¢ sta hl0¢ lda >text¢ sta hl0+1¢ lda <scr¢ sta hl1¢ sta bkp¢ lda >scr¢ sta hl1+1¢ sta bkp+1¢ lda #0¢ sta kl¢ lda #1¢ sta khhz+1¢ jsr ryz¢ jmp *¢¢¬á⌡≤⌠β≈Θσ∈Θσáσδ≥β∈⌡áΘ⌠≡«á¢set lda <dl¢ sta $230¢ lda >dl¢ sta $231¢ lda #$22¢ sta $22f¢ rts¢dl dta c'ppppp'¢ dta b($4f),a(scr)¢ dta d'///////////////'¢ dta d'////////////////'¢ dta d'////////////////'¢ dta d'////////////////'¢ dta d'////////////////'¢ dta d'////////////////'¢ dta d'//'¢ dta b($4f),a(scr+$f50)¢ dta d'/////////////'¢ dta d'////////////////'¢¢ dta d'////////////////'¢ dta b($41),a(dl)¢¢¬áβδβ≡Θ⌠∙«««á¢_16 lda #2 2*8 pixli¢ clc¢ adc bkp¢ sta bkp¢ bcc *+5¢ inc bkp+1¢ jmp cnt¢_32 lda #4 4*8 pixli¢ clc¢ adc bkp¢ sta bkp¢ bcc *+5¢ inc bkp+1¢ jmp cnt¢cn2 inc hl0¢ bne *+4¢ inc hl0+1¢¢khhz ldy #1¢ lda loo1,y¢ sta hl1¢ sta bkp¢ lda hii1,y¢ sta hl1+1¢ sta bkp+1¢ inc khhz+1¢ inc kl¢ lda kl¢ cmp #maxy¢ bne ryz¢ rts¢dwa_ jmp dwa¢bkp brk¢ brk¢¢¬áϕβ∮∩≈β∈Θσá¢ryz lda #0¢ sta ile0¢kol lda bkp¢ sta hl1¢ lda bkp+1¢ sta hl1+1¢ ldy #0¢ lda (hl0),y¢ cmp #219 eol¢ beq cn2¢ cmp #'B' shft+spc¢ beq _16¢ cmp #'@' ctrl+spc¢ beq _32¢ tax¢ lda len,x¢ sta ile1¢ lda lo,x¢ sta hl2¢ lda hi,x¢ sta hl2+1¢¢* lda 764¢* cmp #255¢* beq *-5¢* lda #255¢* sta 764¢¢ lda hl1¢ sta bkp¢ lda hl1+1¢ sta bkp+1¢¢ lda #0¢ sta sc¢ lda #7¢ sta fn¢ sec¢ sbc ile0¢ cmp ile1¢ bcc dwa_¢¢ lda ile0¢ beq _0¢ cmp #1¢ beq _1¢ cmp #2¢ beq _2¢ cmp #3¢ bne *+5¢ jmp _3¢ cmp #4¢ beq _4__¢ cmp #5¢ beq _5__¢ jmp dale¢_4__ jmp _4¢_5__ jmp _5¢¢_0 ldy fn¢ lda (hl2),y¢ bne ski0¢ ldy sc¢ bne ska10¢ski0 ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ska10 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _0¢ bmi dale¢¢_1 ldy fn¢ lda (hl2),y¢ bne skip¢ ldy sc¢ bne ska1¢skip lsr @¢ ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ska1 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _1¢ bmi dale¢¢_2 ldy fn¢ lda (hl2),y¢ bne skip2¢ ldy sc¢ bne ska12¢skip2 lsr @¢ lsr @¢ ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ska12 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _2¢dale dec hl1+1¢ lda ile0¢ clc¢ adc ile1¢ sta ile0¢cnt inc hl0¢ bne *+4¢ inc hl0+1¢ jmp kol¢¢_3 ldy fn¢ lda (hl2),y¢ bne skip3¢ ldy sc¢ bne ska13¢skip3 lsr @¢ lsr @¢ lsr @¢ ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ska13 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _3¢ bmi dale¢¢_4 ldy fn¢ lda (hl2),y¢ bne skip4¢ ldy sc¢ bne ska14¢skip4 lsr @¢ lsr @¢ lsr @¢ lsr @¢ ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ska14 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _4¢ bmi dale¢¢_5 ldy fn¢ lda (hl2),y¢ bne skip5¢ ldy sc¢ bne ska15¢skip5 lsr @¢ lsr @¢ lsr @¢ lsr @¢ lsr @¢ ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ska15 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _5¢ jmp dale¢¢¬áτΣ∙á·∈βδá∈ΘσáϕΘσ≤πΘá≤Θσá≈᢬áΩσΣ∈∙ϕáΓβΩπΘσ´á¢dwa sty fn¢ lda #7¢ sta fn¢ lda ile0¢ beq _0_¢ cmp #1¢ beq _1_¢ cmp #2¢ bne *+5¢ jmp _2_¢ cmp #3¢ beq _3___¢ cmp #4¢ beq _4___¢ cmp #5¢ beq _5___¢ cmp #6¢ beq _6___¢ cmp #7¢ beq _7___¢ jmp dal3¢_3___ jmp _3_¢_4___ jmp _4_¢_5___ jmp _5_¢_6___ jmp _6_¢_7___ jmp _7_¢¢_0_ lda #0¢ sta buf¢ ldy fn¢ lda (hl2),y¢ bne ski3_0¢ ldy sc¢ bne ski4_0¢ski3_0 equ *¢ski2_0 ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ iny¢ lda buf¢ sta (hl1),y¢ dey¢ski4_0 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _0_¢ jmp dal3¢¢_1_ lda #0¢ sta buf¢ ldy fn¢ lda (hl2),y¢ bne ski3_1¢ ldy sc¢ bne ski4_1¢ski3_1 lsr @¢ ror buf¢ski2_1 ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ iny¢ lda buf¢ sta (hl1),y¢ dey¢ski4_1 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _1_¢ jmp dal3¢¢_2_ lda #0¢ sta buf¢ ldy fn¢ lda (hl2),y¢ bne ski3_2¢ ldy sc¢ bne ski4_2¢ski3_2 lsr @¢ ror buf¢ lsr @¢ ror buf¢ski2_2 ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ iny¢ lda buf¢ sta (hl1),y¢ dey¢ski4_2 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _2_¢ jmp dal3¢¢_3_ lda #0¢ sta buf¢ ldy fn¢ lda (hl2),y¢ bne ski3_3¢ ldy sc¢ bne ski4_3¢ski3_3 lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ski2_3 ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ iny¢ lda buf¢ sta (hl1),y¢ dey¢ski4_3 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _3_¢ jmp dal3¢¢_4_ lda #0¢ sta buf¢ ldy fn¢ lda (hl2),y¢ bne ski3_4¢ ldy sc¢ bne ski4_4¢ski3_4 lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ski2_4 ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ iny¢ lda buf¢ sta (hl1),y¢ dey¢ski4_4 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _4_¢ jmp dal3¢¢_5_ lda #0¢ sta buf¢ ldy fn¢ lda (hl2),y¢ bne ski3_5¢ ldy sc¢ bne ski4_5¢ski3_5 lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ski2_5 ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ iny¢ lda buf¢ sta (hl1),y¢ dey¢ski4_5 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _5_¢ jmp dal3¢¢_6_ lda #0¢ sta buf¢ ldy fn¢ lda (hl2),y¢ bne ski3_6¢ ldy sc¢ bne ski4_6¢ski3_6 lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ski2_6 ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ iny¢ lda buf¢ sta (hl1),y¢ dey¢ski4_6 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _6_¢ jmp dal3¢¢_7_ lda #0¢ sta buf¢ ldy fn¢ lda (hl2),y¢ bne ski3_7¢ ldy sc¢ bne ski4_7¢ski3_7 lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ lsr @¢ ror buf¢ski2_7 ldy sc¢ ora (hl1),y¢ sta (hl1),y¢ iny¢ lda buf¢ sta (hl1),y¢ dey¢ski4_7 tya¢ clc¢ adc #il¢ sta sc¢ bcc *+4¢ inc hl1+1¢ dec fn¢ bpl _7_¢ jmp dal3¢¢dal3 dec hl1+1¢ inc hl1¢ bne *+4¢ inc hl1+1¢ inc bkp¢ bne kz¢ inc bkp+1¢kz lda ile0¢ clc¢ adc ile1¢ and #7¢ sta ile0¢ jmp cnt¢¢¬á∮Θπ·σ∈Θσá⌠βΓ∮ΘáβΣ≥«áµ∈⌠∩≈á¢calc lda <fnt¢ sta hl0¢ lda >fnt¢ sta hl0+1¢ ldy #0¢tbl1 lda hl0+1¢ sta hi,y¢ lda hl0¢ sta lo,y¢ clc¢ adc #8¢ sta hl0¢ bcc *+4¢ inc hl0+1¢ iny¢ bne tbl1¢ rts¢¢¬áπ·∙≤·π·σ∈Θσáσδ≥β∈⌡á¢clr lda >scr¢ sta dl1+2¢ ldx #$16¢ ldy #0¢ tya¢dl1 sta scr,y¢ iny¢ bne dl1¢ inc dl1+2¢ dex¢ bpl dl1¢ rts¢¢¬á≡≥∩π«á≥∩∮⌡Ωβπβáµ∩∈⌠∙áΣ∩á∮σ≈σΩá≤⌠≥∩∈∙á¢crol lda <fnt¢ sta fn_1+1¢ sta rm1+1¢ sta rm2+1¢ sta ls2+1¢ sta ls3+1¢ sta ls4+1¢ lda >fnt¢ sta fn_1+2¢ sta rm1+2¢ sta rm2+2¢ sta ls2+2¢ sta ls3+2¢ sta ls4+2¢ lda #$80¢ sta bb¢pin3 ldy #0¢ jsr rl2¢ sta k1¢cn_ iny¢ cpy #8¢ beq end1¢ jsr rl2¢ sta k2¢ lda k1¢ cmp k2¢ bcs cn_¢ lda k2¢ sta k1¢ bne cn_¢end1 lda k1¢ cmp #$8¢ beq lsra¢ lda #7¢ sec¢ sbc k1¢ sta k1¢ ldy #0¢rm ldx k1¢ beq omin¢rm1 lda fnt,y¢rl3 asl @¢ dex¢ bne rl3¢rm2 sta fnt,y¢ iny¢ cpy #8¢ bne rm¢omin clc¢ lda #8¢ adc rm1+1¢ sta rm1+1¢ bcc *+5¢ inc rm1+2¢ clc¢ lda #8¢ adc rm2+1¢ sta rm2+1¢ bcc *+5¢ inc rm2+2¢ clc¢ lda #8¢ adc ls2+1¢ sta ls2+1¢ bcc *+5¢ inc ls2+2¢ clc¢ lda #8¢ adc ls3+1¢ sta ls3+1¢ bcc *+5¢ inc ls3+2¢ clc¢ lda #8¢ adc ls4+1¢ sta ls4+1¢ bcc *+5¢ inc ls4+2¢ clc¢ lda #8¢ adc fn_1+1¢ sta fn_1+1¢ bcc *+5¢ inc fn_1+2¢ dec bb¢ bne pin3_¢ rts¢pin3_ jmp pin3¢lsra ldy #0¢ls2 lda fnt,y¢ and #%00000001¢ bne omin¢ iny¢ cpy #8¢ bne ls2¢ ldy #0¢ls3 lda fnt,y¢ lsr @¢ls4 sta fnt,y¢ iny¢ cpy #8¢ bne ls3¢ jmp omin¢rl2 lda #8¢ sta k¢ ldx #$ff¢fn_1 lda fnt,y¢ beq en_d¢rl1 inx¢ rol @¢ bcc rl1¢ stx k¢en_d lda #8¢ sec¢ sbc k¢ rts¢k brk¢k1 brk¢k2 brk¢bb brk¢¢¬á≡≥∩π«á∮Θπ·βπβá≤·σ≥«áµ∈⌠∩≈á¢clen lda <fnt¢ sta fn1+1¢ lda >fnt¢ sta fn1+2¢ lda <len¢ sta lln+1¢ lda #$80¢ sta bb¢pn3 ldy #0¢ jsr pn2¢ sta k1¢cnn iny¢ cpy #8¢ beq ent¢ jsr pn2¢ sta k2¢ lda k1¢ cmp k2¢ bcs cnn¢ lda k2¢ sta k1¢ bne cnn¢ent lda k1¢lln sta len¢ inc lln+1¢ clc¢ lda #8¢ adc fn1+1¢ sta fn1+1¢ bcc *+5¢ inc fn1+2¢ dec bb¢ bne pn3¢ rts¢pn2 lda #8¢ sta k¢ ldx #$ff¢fn1 lda fnt,y¢ beq end¢pn1 inx¢ ror @¢ bcc pn1¢ stx k¢end lda #8¢ sec¢ sbc k¢ rts¢¢¬á≤≡βπΩσá≤≡σπΩβ∮∈σá¢lena lda #4¢ sta len¢ lda #1¢ sta len+84¢ lda #2¢ sta len+89¢ lda #3¢ sta len+85¢ lda #4¢ sta len+73¢ lda #5¢ sta len+70¢ lda #6¢ sta len+71¢ lda #7¢ sta len+72¢ lda #8¢ sta len+74¢ lda #16¢ sta len+66¢ lda #32¢ sta len+64¢ ldy #7¢ lda #0¢dlz sta fnt,y¢ sta fnt+672,y¢ sta fnt+712,y¢ sta fnt+680,y¢ sta fnt+584,y¢ sta fnt+560,y¢ sta fnt+568,y¢ sta fnt+576,y¢ sta fnt+592,y¢ sta fnt+528,y¢ sta fnt+512,y¢ dey¢ bpl dlz¢ rts¢¢¬á∩ΣΓΘΩβ∈Θσáµ∈⌠∩≈á¿°⌐á¢mirra lda #128¢ sta bb¢ lda <fnt¢ sta prz1+1¢ sta prz3+1¢ lda >fnt¢ sta prz1+2¢ sta prz3+2¢mira ldy #7¢prz1 lda fnt,y¢ sta bufa,y¢ dey¢ bpl prz1¢ ldx #0¢ ldy #7¢prz2 lda bufa,y¢prz3 sta fnt,x¢ inx¢ dey¢ bpl prz2¢ clc¢ lda #8¢ adc prz1+1¢ sta prz1+1¢ bcc *+6¢ inc prz1+2¢ clc¢ lda #8¢ adc prz3+1¢ sta prz3+1¢ bcc *+5¢ inc prz3+2¢ dec bb¢ bne mira¢ rts¢bufa org *+8¢¢ org $2e0¢ dta a(ran)¢ end¢