Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_A.atr/eedzprp.arc/EEDPLT03.ASM

Assembly Source File | 2000-06-15 | 11KB | 1 lines

ûדדגá≡∮∩⌠⌠σ≥á¿™⌐é¢ûגΓ∮áúø¼áØø«õ«¨¨é¢¢     opt 21¢maxy equ 16    ilosc wierszy¢*              (standardowo: 16 (EED))¢scr  equ $9000¢fnt  equ $a000¢len  equ $a400¢lo   equ $a500¢hi   equ $a600¢text equ $a700¢¢     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¢     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 <text¢     sta hl0¢     lda >text¢     sta hl0+1¢     lda <scr¢     sta hl1¢     lda >scr¢     sta hl1+1¢     lda #0¢     sta kl¢     jsr ryz¢     jmp *¢¢¬á⌡≤⌠β≈Θσ∈Θσáσδ≥β∈⌡áΘ⌠≡«á¢set  lda <dl¢     sta $230¢     lda >dl¢     sta $231¢     lda #$21¢     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 d'//////// //////// '¢     dta b($41),a(dl)¢¢¬áβδβ≡Θ⌠∙«««á¢_16  lda #2     2*8 pixli¢     clc¢     adc hl1¢     sta hl1¢     bcc *+4¢     inc hl1+1¢     jmp cnt¢_32  lda #4     4*8 pixli¢     clc¢     adc hl1¢     sta hl1¢     bcc *+4¢     inc hl1+1¢     jmp cnt¢cn2  inc hl0¢     bne *+4¢     inc hl0+1¢     inc hl1+1¢     lda #0¢     sta hl1¢     inc kl¢     lda kl¢     cmp #maxy¢     bne ryz¢     rts¢dwa_ jmp dwa¢¢¬áϕβ∮∩≈β∈Θσá¢ryz  lda #0¢     sta ile0¢kol  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 #7¢     sta fn¢     sec¢     sbc ile0¢     cmp ile1¢     bcc dwa_¢     sty sc¢     lda ile0¢     beq _0¢     cmp #1¢     beq _1¢     cmp #2¢     beq _2¢     cmp #3¢     beq _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 #32¢     sta sc¢     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 #32¢     sta sc¢     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 #32¢     sta sc¢     dec fn¢     bpl _2¢dale 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 #32¢     sta sc¢     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 #32¢     sta sc¢     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 #32¢     sta sc¢     dec fn¢     bpl _5¢     bmi dale¢¢¬áτΣ∙á·∈βδá∈ΘσáϕΘσ≤πΘá≤Θσá≈᢬áΩσΣ∈∙ϕáΓβΩπΘσ´á¢dwa  sty fn¢     lda #7¢     sta fn¢     lda ile0¢     beq _0_¢     cmp #1¢     beq _1_¢     cmp #2¢     beq _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 #32¢     sta sc¢     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 #32¢     sta sc¢     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 #32¢     sta sc¢     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 #32¢     sta sc¢     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 #32¢     sta sc¢     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 #32¢     sta sc¢     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 #32¢     sta sc¢     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 #32¢     sta sc¢     dec fn¢     bpl _7_¢     jmp dal3¢¢dal3 inc hl1¢     bne *+4¢     inc hl1+1¢     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 #$f¢     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¢¢     end¢