mirror of
https://github.com/peterdell/wudsn-ide.git
synced 2024-10-13 13:23:43 +00:00
44 lines
564 B
ObjectPascal
44 lines
564 B
ObjectPascal
|
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.
|