6502/wudsn-ide
1
0
Fork 0
mirror of https://github.com/peterdell/wudsn-ide.git synced 2025-02-01 06:33:18 +00:00
Code Issues Projects Releases Wiki Activity

Add Hello.pas to reference code

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
com.wudsn.ide.ref/PAS/Atari8/MP/.gitignore vendored Normal file
View File

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

11
com.wudsn.ide.ref/PAS/Atari8/MP/Hello.bat Normal file
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

43
com.wudsn.ide.ref/PAS/Atari8/MP/Hello.pas Normal file
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.