170 lines
5.5 KiB
Plaintext
170 lines
5.5 KiB
Plaintext
{ Hive-Soundobjekt für Boulderdash
|
|
|
|
}
|
|
|
|
'signaldefinitionen bellatrix
|
|
|
|
#0, D0,D1,D2,D3,D4,D5,D6,D7 'datenbus
|
|
#8, BEL_VGABASE 'vga-signale (8pin)
|
|
#16, BEL_KEYBC,BEL_KEYBD 'keyboard-signale
|
|
#18, BEL_MOUSEC,BEL_MOUSED 'maus-signale
|
|
#20, BEL_VIDBASE 'video-signale(3pin)
|
|
#23, BEL_SELECT 'belatrix-auswahlsignal
|
|
#24, HBEAT 'front-led
|
|
BUSCLK 'bustakt
|
|
BUS_WR '/wr - schreibsignal
|
|
BUS_HS ' '/hs - quittungssignal
|
|
|
|
var
|
|
|
|
byte sndfx ' Kommando für Administra
|
|
byte fcCog ' Flag ob cCog gestartet
|
|
long cStack[32] ' Stack für cCog
|
|
|
|
|
|
pub Start: Pass
|
|
|
|
Pass := (fcCog := cognew(cCog, @cStack)+1) > 0
|
|
|
|
pub cCog | cmd
|
|
|
|
bus_init
|
|
repeat
|
|
cmd := bus_getchar 'quittung von regnatix empfangen
|
|
repeat until sndfx > 0 'warte bis fx gesendet werden soll
|
|
bus_putchar(sndfx) 'sndfx-Kommando senden
|
|
sndfx := 0
|
|
|
|
|
|
CON
|
|
'
|
|
' hbeat --------+
|
|
' clk -------+|
|
|
' /wr ------+||
|
|
' /hs -----+||| +------------------------- /cs
|
|
' |||| | -------- d0..d7
|
|
DB_IN = %00001001_00000000_00000000_00000000 'maske: dbus-eingabe
|
|
DB_OUT = %00001001_00000000_00000000_11111111 'maske: dbus-ausgabe
|
|
|
|
M1 = %00000010_00000000_00000000_00000000
|
|
M2 = %00000010_10000000_00000000_00000000 'busclk=1? & /cs=0?
|
|
|
|
M3 = %00000000_00000000_00000000_00000000
|
|
M4 = %00000010_00000000_00000000_00000000 'busclk=0?
|
|
|
|
|
|
PUB bus_putchar(zeichen) 'BUS: Ein Byte über BUS ausgeben
|
|
{{ein byte über bus ausgeben Belltrix --> Regnatix}}
|
|
waitpeq(M1,M2,0) 'busclk=1? & prop2=0?
|
|
dira := db_out 'datenbus auf ausgabe stellen
|
|
outa[7..0] := zeichen 'daten ausgeben
|
|
outa[bus_hs] := 0 'daten gültig
|
|
waitpeq(M3,M4,0) 'busclk=0?
|
|
dira := db_in 'bus freigeben
|
|
outa[bus_hs] := 1 'daten ungültig
|
|
|
|
PUB bus_getchar : zeichen 'BUS: Ein Byte über BUS empfangen
|
|
{{ein byte über bus empfangen Regnatix --> Bellatrix}}
|
|
waitpeq(M1,M2,0) 'busclk=1? & prop2=0?
|
|
zeichen := ina[7..0] 'daten einlesen
|
|
outa[bus_hs] := 0 'daten quittieren
|
|
outa[bus_hs] := 1
|
|
waitpeq(M3,M4,0) 'busclk=0?
|
|
|
|
PUB bus_init
|
|
{{initialisierung des bussystems}}
|
|
dira := db_in 'datenbus auf eingabe schalten
|
|
outa[bus_hs] := 1 'handshake inaktiv
|
|
|
|
|
|
dat 'soundadapter
|
|
|
|
con
|
|
|
|
_music_on = 1
|
|
_music_off = 2
|
|
_moving_sound1 = 3
|
|
_moving_sound2 = 4
|
|
_boulder_sound = 5
|
|
_diamond_sound = 6
|
|
_pick_sound = 7
|
|
_explosion_sound = 8
|
|
_crack_sound = 9
|
|
_magic_wall_sound_on = 10
|
|
_magic_wall_sound_off = 11
|
|
_amoeba_sound_on = 12
|
|
_amoeba_sound_off = 13
|
|
_time_ending_sound = 14
|
|
_bonus_point_sound = 15
|
|
_cover_sound = 16
|
|
|
|
pub music_on
|
|
sndfx := _music_on
|
|
|
|
pub music_off
|
|
sndfx := _music_off
|
|
|
|
pub moving_sound(surface)
|
|
repeat until sndfx == 0
|
|
if surface == $00
|
|
sndfx := _moving_sound1
|
|
else ' $01
|
|
sndfx := _moving_sound2
|
|
repeat until sndfx == 0
|
|
|
|
pub boulder_sound
|
|
sndfx := _boulder_sound
|
|
|
|
pub diamond_sound
|
|
repeat until sndfx == 0
|
|
sndfx := _diamond_sound
|
|
repeat until sndfx == 0
|
|
|
|
pub pick_sound
|
|
repeat until sndfx == 0
|
|
sndfx := _pick_sound
|
|
repeat until sndfx == 0
|
|
|
|
pub explosion_sound
|
|
repeat until sndfx == 0
|
|
sndfx := _explosion_sound
|
|
repeat until sndfx == 0
|
|
|
|
pub crack_sound
|
|
repeat until sndfx == 0
|
|
sndfx := _crack_sound
|
|
repeat until sndfx == 0
|
|
|
|
pub magic_wall_sound_on
|
|
repeat until sndfx == 0
|
|
sndfx := _magic_wall_sound_on
|
|
repeat until sndfx == 0
|
|
|
|
pub magic_wall_sound_off
|
|
repeat until sndfx == 0
|
|
sndfx := _magic_wall_sound_off
|
|
repeat until sndfx == 0
|
|
|
|
pub amoeba_sound_on
|
|
repeat until sndfx == 0
|
|
sndfx := _amoeba_sound_on
|
|
repeat until sndfx == 0
|
|
|
|
pub amoeba_sound_off
|
|
'sndfx := _amoeba_sound_off
|
|
|
|
pub time_ending_sound(sec_left)
|
|
repeat until sndfx == 0
|
|
sndfx := _time_ending_sound
|
|
repeat until sndfx == 0
|
|
|
|
pub bonus_point_sound(pts)
|
|
repeat until sndfx == 0
|
|
sndfx := _bonus_point_sound
|
|
repeat until sndfx == 0
|
|
|
|
pub cover_sound
|
|
sndfx := _cover_sound
|
|
|
|
|
|
|