Serious Magazine 4/Serious_Magazine_04_1999_Dial_pl_Side_B.atr/sstuff04.arc/BYTE256.ARC/NTRO2.ASM

Assembly Source File | 1988-09-01 | 3KB | 3 lines

*②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②*¢|áááááááááááááØŒœΓá≡∩Θ∈⌠ááááááááááááá|¢|ááááááááááááIJ≥≤»IJΘΣ≤ẨÕáááááááááááá|¢|áááááááááááááצσ≥Θ∩⌡≤áúøááááááááááááá|¢*②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②*¢|Run   - $b000                       |¢|Memhi - $9000                       |¢|                                    |¢|SHIFT+BREAK - wyjscie               |¢*②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②*¢|                                    |¢|Od Jager'a:                         |¢|                                    |¢|Aby bez problemu  mozna bylo odpalic|¢|program w QA troszeczke go zmienilem|¢|pozostawiajac jednak  oryginalna po-|¢|stac programu. Tak wiec nieco go wy-|¢|dluzylem                            |¢|                                    |¢|Jezeli chcesz miec oryginal to:     |¢|                                    |¢|1. Zmien adres fontow (etykieta FNT)|¢|   na $4000                         |¢|                                    |¢|2. Usun:                            |¢|                                    |¢|   Jsr Init (linia 47)              |¢|   cala procke INIT                 |¢|                                    |¢|3. Usun gwiazdke w linii 54         |¢*②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②*¢¢     opt %10101¢¢     org $b000¢¢iocb equ $340¢scr  equ $9040¢lo   equ $9500¢hi   equ $9600¢sin  equ $9700¢fnt  equ $b800 |$4000¢¢h0   equ $80¢w    equ $82¢¢     jsr Init  |¢¢run  lda >scr¢     sta $bc25¢     lda >fnt¢     sta $bc24¢     sta 756¢*    sta $26f  |¢¢     ldy #$1f¢     ldx #0¢sim  lda sina,x¢     clc¢     adc #1¢     sta sin,x¢     sta sin+$40,x¢     sta sin+$80,x¢     sta sin+$c0,x¢     sta sin+$20,y¢     sta sin+$60,y¢     sta sin+$a0,y¢     sta sin+$e0,y¢     dey¢     inx¢     cpx #$20¢     bne sim¢¢     ldx #5¢     iny¢     tya¢de1  sta scr,y¢     iny¢     bne de1¢     inc de1+2¢     dex¢     bne de1¢¢fn2  ldx #7¢fn1  sta fnt,y¢     iny¢     dex¢     bpl fn1¢     clc¢     adc #$11¢     bcc fn2¢¢     ldx #0¢k1   lda >scr¢     sta hi,x¢k2   lda <scr¢     sta lo,x¢     adc #40¢     sta k2+1¢     bcc *+5¢     inc k1+1¢     inx¢     bne k1¢¢p1   lda sin+10¢     asl @¢     tay¢p3   lda sin+2¢p4   adc sin+4¢     tax¢     lda lo,x¢     sta h0¢     lda hi,x¢     sta h0+1¢     lda #$f¢     sta (h0),y¢     iny¢     sta (h0),y¢     tya¢     adc #39¢     tay¢     lda #$f¢     sta (h0),y¢     iny¢     sta (h0),y¢     inc p1+1¢     inc p3+1¢     inc p3+1¢¢     ldx #4¢     ldy #0¢fr1  lda scr,y¢fr2  adc scr+39,y¢fr3  adc scr+40,y¢fr4  adc scr+41,y¢     lsr @¢     lsr @¢fr5  sta scr,y¢     iny¢     bne fr1¢     inc fr1+2¢     inc fr2+2¢     inc fr3+2¢     inc fr4+2¢     inc fr5+2¢     dex¢     bne fr1¢¢     lda >scr¢     sta fr1+2¢     sta fr2+2¢     sta fr3+2¢     sta fr4+2¢     sta fr5+2¢     bne p1¢¢sina dta c'⇧⇧⇧⇩⇩⇨⇨⇦⇦❎❎╱◆✓

♪♪'¢¢Init Equ *¢     ldx #$10      |Graphics 0¢     lda #3        |¢     sta iocb+2,x  |Zobacz programowanie¢     lda <e        |procesora 6502 #12¢     sta iocb+4,x  |w tym numerze magazynu¢     lda >e        |¢     sta iocb+5,x  |¢     lda #12       |¢     sta iocb+10,x |¢     jsr $e456     |¢     lda #12       |¢     sta iocb+2,x  |¢     jsr $e456     |¢¢     lda #$40¢     sta $26f¢     rts¢¢e    dta c'E:',b($9b)¢¢*    org $2e0¢*    dta a(run)¢¢     end of file¢