Serious Magazine 3/Serious_Magazine_03_1998_Dial_pl_Side_B.atr/sstuff03.arc/BYTES256.ARC/BULKI.ASM

Assembly Source File | 1988-09-01 | 2KB | 1 lines

*--------------------------*¢|         "BULKI"          |¢|          ,               |¢| autor: Kroger/Quasimodos |¢|                          |¢|   SERIOUS MAGAZINE #3    |¢|                          |¢| uzupelnienie: Jager/Dial |¢|                          |¢| RUN  : $9000             |¢| MEMHI: $9000             |¢|                          |¢| Dowolny klawisz-wyjscie  |¢*--------------------------*¢¢     opt %10101¢¢*        icl 'D2:EQU.ASM'¢*        opt list_err+code_dsk¢¢poczatek equ $9000¢a        equ $9400¢¢Colpf2   Equ $02c6¢Chbas    Equ $02f4¢Kbcode   Equ $02fc¢llosowa  Equ $d20a¢ClrScr   Equ $f420¢¢rtclock  equ $14¢SavMsc   equ $58¢x        equ $80¢y        equ $81¢z        equ $82¢p        equ $83¢¢ org poczatek¢¢*-wyczysc ekran¢¢ jsr clrscr¢ lda #$0¢ sta colpf2¢¢*-nowy font¢¢st Equ *¢ lda >a¢ sta chbas¢¢*-w ktorym wierszu?¢¢*s1 Equ *¢*lda llosowa¢*ora %00001111¢*sta litery¢¢s11 Equ *¢ ldx llosowa¢ cpx #23¢ bcs s11¢¢*-przelicz to na miejsce w pamieci¢* ekranu.¢¢ lda savmsc¢ sta x¢ lda savmsc+1¢ sta y¢ clc¢s2 Equ *¢ lda x¢ adc #39¢ sta x¢ lda y¢ adc #0¢ sta y¢ dex¢ bpl s2¢¢*-ktora pozycja w wierszu?¢¢s3 Equ *¢ lda llosowa¢ cmp #39¢ bcs s3¢ clc¢ adc x¢ sta x¢ bcc s4¢ inc y¢¢*-wypisz literke¢¢s4 Equ *¢ ldx z¢ lda t1,x¢ sta (x),y¢ dex¢ stx z¢ bpl s5¢ lda #5¢ sta z¢ bne st¢s5 equ *¢ lda rtclock¢ adc #5¢s6 Equ *¢ cmp rtclock¢ bne s6¢ ldx kbcode¢ inx¢ beq s4¢ dex¢ stx kbcode¢ lda #$e0¢ sta chbas¢ lda #$94¢ sta colpf2¢ jmp ($a)¢¢t1 dta b(0),b(4),b(3),b(2),b(1),b(0)¢¢ org a¢¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00000000)¢¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00011000)¢ dta b(%00011000)¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00000000)¢¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%00011000)¢ dta b(%00100100)¢ dta b(%00100100)¢ dta b(%00011000)¢ dta b(%00000000)¢ dta b(%00000000)¢¢ dta b(%00000000)¢ dta b(%00010100)¢ dta b(%00000010)¢ dta b(%01000000)¢ dta b(%00000010)¢ dta b(%01000000)¢ dta b(%00010100)¢ dta b(%00000000)¢¢ dta b(%00100100)¢ dta b(%00000000)¢ dta b(%10000001)¢ dta b(%00000000)¢ dta b(%00000000)¢ dta b(%10000001)¢ dta b(%00000000)¢ dta b(%00100100)¢¢ End of file¢