Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_A.atr/shw6x8.arc/SH6X8.ASM

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

ûÀ°Õáµ∩∈⌠á≤Φ∩≈σ≥é¢ûãÕ«ãõ«¨¨áגΓ∮áúøé¢* ekran: NORMALNY (40);¢* run:   $9D00;¢* memhi: $9000;¢¢     opt 21¢scr  equ $a0b0 ($1e00) - screen;¢fnt  equ $9000 ($0400) - fonty;¢txt  equ $9400         - text;¢maxy equ 24    - max. ilosc linijek;¢¢     org $80¢hl0  org *+2¢pom1 org *+2¢pom2 org *+1¢_txt org *+2¢licz org *+1¢znak org *+2¢¢     org $9d00¢     jsr calc¢     jsr clr¢¢     lda #$22¢     sta $22f¢     lda <dl¢     sta $230¢     lda >dl¢     sta $231¢¢     lda #0¢     sta licz¢¢     lda <scr¢     sta hl0¢     lda >scr¢     sta hl0+1¢¢     lda <txt¢     sta _txt¢     lda >txt¢     sta _txt+1¢¢ptla jsr let¢     bne cznd¢     jsr rob1  1wszy¢     jsr let¢     bne cznd¢     jsr rob2  2gi¢     jsr let¢     bne cznd¢     jsr rob3  3ci¢     jsr let¢     bne cznd¢     jsr rob4  4rty¢¢cznd lda licz¢     cmp #maxy¢     bne ptla¢     jmp *¢¢¬á≡∩Γ≥β∈Θσáδ∩∮«á·∈βδ⌡á¢let  ldy #0¢     lda (_txt),y¢     inc _txt¢     bne *+4¢     inc _txt+1¢     cmp #$9b¢     beq _eol¢     tax¢     lda tab_l,x¢     sta znak¢     lda tab_h,x¢     sta znak+1¢     lda #0¢     rts¢_eol inc licz¢     ldy licz¢     lda l_wrsh,y¢     sta hl0¢     lda h_wrsh,y¢     sta hl0+1¢     lda #$ff¢     rts¢¢¬á≡Θσ≥≈≤·∙á·∈βδá¢rob1 ldx #7¢tpc1 lda (znak),y¢     sta (hl0),y¢     clc¢     lda #40¢     adc hl0¢     sta hl0¢     bcc *+4¢     inc hl0+1¢     inc znak¢     dex¢     bpl tpc1¢     dec hl0+1¢     lda hl0¢     sec¢     sbc #64¢     sta hl0¢     bcs *+4¢     dec hl0+1¢     rts¢¢¬áΣ≥⌡τΘá·∈βδá¢rob2 ldx #7¢tpc2 lda #0¢     sta pom1¢     lda (znak),y¢     asl @¢     rol pom1¢     asl @¢     rol pom1¢     sta pom2¢     lda pom1¢     ora (hl0),y¢     sta (hl0),y¢     iny¢     lda pom2¢     ora (hl0),y¢     sta (hl0),y¢     dey¢     clc¢     lda #40¢     adc hl0¢     sta hl0¢     bcc *+4¢     inc hl0+1¢     inc znak¢     dex¢     bpl tpc2¢     dec hl0+1¢     lda hl0¢     sec¢     sbc #63¢     sta hl0¢     bcs *+4¢     dec hl0+1¢     rts¢¢¬á⌠≥·σπΘá·∈βδá¢rob3 ldx #7¢tpc3 lda #0¢     sta pom1¢     lda (znak),y¢     lsr @¢     ror pom1¢     lsr @¢     ror pom1¢     lsr @¢     ror pom1¢     lsr @¢     ror pom1¢     sta pom2¢     lda pom2¢     ora (hl0),y¢     sta (hl0),y¢     iny¢     lda pom1¢     ora (hl0),y¢     sta (hl0),y¢     dey¢     clc¢     lda #40¢     adc hl0¢     sta hl0¢     bcc *+4¢     inc hl0+1¢     inc znak¢     dex¢     bpl tpc3¢     dec hl0+1¢     lda hl0¢     sec¢     sbc #63¢     sta hl0¢     bcs *+4¢     dec hl0+1¢     rts¢¢¬áπ·≈β≥⌠∙á·∈βδá¢rob4 ldx #7¢tpc4 lda (znak),y¢     lsr @¢     lsr @¢     ora (hl0),y¢     sta (hl0),y¢     clc¢     lda #40¢     adc hl0¢     sta hl0¢     bcc *+4¢     inc hl0+1¢     inc znak¢     dex¢     bpl tpc4¢     dec hl0+1¢     lda hl0¢     sec¢     sbc #63¢     sta hl0¢     bcs *+4¢     dec hl0+1¢     rts¢¢¬áπ·∙≤·π·σ∈Θσáσδ≥β∈⌡á¢clr  ldx #$1e¢     lda >scr¢     sta dela+2¢     ldy #0¢     tya¢dela sta scr,y¢     iny¢     bne dela¢     inc dela+2¢     dex¢     bne dela¢     rts¢¢¬á∮Θπ·σ∈Θσá⌠βΓ∮Θπá¢calc lda <fnt¢     sta hl0¢     lda >fnt¢     sta hl0+1¢     ldy #0¢cl1  lda hl0+1¢     sta tab_h,y¢     lda hl0¢     sta tab_l,y¢     clc¢     adc #8¢     sta hl0¢     bcc *+4¢     inc hl0+1¢     iny¢     bpl cl1¢¢     lda <scr¢     sta hl0¢     lda >scr¢     sta hl0+1¢     ldy #0¢cl2  lda hl0+1¢     sta h_wrsh,y¢     lda hl0¢     sta l_wrsh,y¢     clc¢     adc #64¢     sta hl0¢     bcc *+4¢     inc hl0+1¢     inc hl0+1¢     iny¢     cpy #maxy¢     bne cl2¢     rts¢¢dl dta c'ppp'¢ dta b($4f),a(scr)¢ dta d'////////////////////'¢ dta d'////////////////////'¢ dta d'////////////////////'¢ dta d'////////////////////'¢ dta d'/////////////////'¢ dta b($4f),a(scr+$f50)¢ dta d'////////////////////'¢ dta d'////////////////////'¢ dta d'////////////////////'¢ dta d'/////////////'¢ dta d'////////////////////'¢ dta b($41),a(dl)¢¢l_wrsh org *+maxy¢h_wrsh org *+maxy¢tab_l  org *+$80¢tab_h  org *+$80¢     end¢