Commit 57a78a31 authored by bocianu's avatar bocianu
Browse files

1.0.3b

parent 52933178
File added
This diff is collapsed.
No preview for this file type
This diff is collapsed.
program FloB;
{$librarypath '../blibs/'}
uses atari, b_pmg, b_utils, b_crt, b_system, rmt, aplib, b_maxFlash8Mb, misc; // b_utils;
uses atari, b_pmg, b_utils, b_crt, b_system, rmt, aplib, b_maxFlash8Mb; // b_utils;
const
{$i const.inc}
......@@ -168,6 +168,31 @@ procedure ShowCutScene(csbank,cscount:byte);forward;
procedure ShowCredits;forward;
procedure LoadWorld(w: byte);forward;
function IsStereoPresent:boolean;assembler;
var _x:byte;
asm
stx _x
ldx #$00
stx $d20f ;halt pokey 0
stx $d21f ;halt pokey 1
ldy #$03
sty $d21f ;release pokey 1
sta $d40a ;delay necessary for
sta $d40a ;accelerator boards
lda #$ff
?loop
and $d20a ;see if pokey 0 is halted ($d20a = $ff)
inx
bne ?loop
sty $d20f
cmp #$ff
bne ?mono
inx
?mono
stx result
ldx _x
end;
procedure SetBank0;
begin
banks[0]:=0;
......@@ -2943,16 +2968,11 @@ end;
//**************************************************
//************************************************** MAIN
//**************************************************
begin
SystemOff($fe);
CheckDiags;
Poke($D20E,0);
isStereo := DetectStereo;
Poke($D20E,0);
isStereo := IsStereoPresent;
InitGame;
{$IFDEF leveleditor}
......
No preview for this file type
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment