Add Hello.pas to reference code

This commit is contained in:
peterdell 2020-10-16 21:22:14 +02:00
parent 80ddc43d9a
commit bf3108b528
3 changed files with 55 additions and 0 deletions

View File

@ -0,0 +1 @@
/Hello.xex

View File

@ -0,0 +1,11 @@
mp.exe Hello.pas
if ERRORLEVEL 1 goto :error
mads.exe Hello.a65 -x -i:base -o:Hello.xex
if ERRORLEVEL 1 goto :error
start Hello.xex
goto: eof
:error
pause

View File

@ -0,0 +1,43 @@
Program Hello;
// Comment
var SDLSTL: word absolute $230;
var COLPF2: byte absolute $d018;
var COLBK: byte absolute $d01a;
var NMIEN: byte absolute $d40e;
Procedure MeinDLI; assembler; interrupt;
asm
{ pha
lda #$38
sta wsync
sta COLPF2
pla
};
end;
Procedure HiThere;
Begin
Writeln('Hello World');
End;
var dl_ptr: ^byte;
Begin
HiThere;
SetIntVec(iDLI, @MeinDLI);
dl_ptr:=Pointer(SDLSTL+10);
dl_ptr^:=dl_ptr^ or $80;
NMIEN:=$c0;
repeat
COLBK:=14;
COLBK:=0;
until false;
End.