home *** CD-ROM | disk | FTP | other *** search
/ Tajemnice Atari 1 & 2 / Tajemnice_Atari_Nr_01__02_1993_Avalon_pl.atr / cmcplay.asm < prev    next >
Assembly Source File  |  2023-02-26  |  2KB  |  1 lines
  1. * CMC player¢*  by MP's¢* (c) 1993 Tajemnice ATARI¢¢*--- etykiety¢opt_mem equ %10101¢¢        opt opt_mem¢¢setvbl  equ $e45c¢exitvbl equ $e462¢vvblkd  equ $0224¢kbcodes equ $02fc¢border  equ $02c8¢¢*--- adresy w module¢m_adr   equ $xxxx  aadres modulu¢s_adr   equ $xxxx  adres muzyczki¢¢m_init  equ m_adr+$03¢m_tact  equ m_adr+$06¢¢voltr1  equ m_adr+$09¢voltr2  equ m_adr+$0a¢voltr3  equ m_adr+$0b¢¢*--- komendy dla modulu¢p_song  equ $00¢p_atpos equ $10¢p_instr equ $20¢p_tempo equ $30¢p_coda  equ $40¢p_break equ $50¢p_cont  equ $60¢p_init  equ $70¢¢*--- stale¢¢vblkd   equ $07¢¢*--- program¢¢        org $480¢¢*--- zachowaj stary adres przerwania¢        lda vvblkd¢        sta hlp_w¢        lda vvblkd+1¢        sta hlp_w+1¢¢*--- inicjalizuj¢         ldx <s_adr¢         ldy >s_adr¢         lda #p_init¢         jsr m_init¢¢*--- graj muzyke¢         lda #p_song¢         tax¢         jsr m_init¢¢*--- inicjalizuj nowe przerwanie¢        ldy <play¢        ldx >play¢        lda #vblkd¢        jsr setvbl¢¢*--- czekaj na klawisz¢        lda #$ff¢        sta kbcodes¢loop    cmp kbcodes¢        beq loop¢        sta kbcodes¢¢*--- oddaj stary wekktor przerwania¢        ldy hlp_w¢        ldx hlp_w+1¢        lda #vblkd¢        jsr setvbl¢¢*--- zakoncz grac¢        lda #p_coda¢        jsr m_init¢        rts¢¢*--- procedura taktujaca¢play    jsr m_tact¢        lda voltr1¢        clc¢        adc voltr2¢        sta border¢        jmp (hlp_w)¢¢*--- adres pomocniczy¢hlp_w   dta a(0)¢¢        end of file