mirror of
https://github.com/peterdell/wudsn-ide.git
synced 2024-09-07 03:54:29 +00:00
Update GPL and feature years
This commit is contained in:
parent
ab6977cfc2
commit
038943c9eb
@ -15,7 +15,7 @@ you plan to install WUDSN IDE itself.
|
|||||||
</description>
|
</description>
|
||||||
|
|
||||||
<copyright>
|
<copyright>
|
||||||
WUDSN IDE Copyright (C) 2009 - 2014 Peter Dell
|
WUDSN IDE Copyright (C) 2009 - 2019 Peter Dell
|
||||||
66822 Lebach, Germany
|
66822 Lebach, Germany
|
||||||
This program is free software: you can redistribute it and/or
|
This program is free software: you can redistribute it and/or
|
||||||
modify it under the terms of the GNU General Public License as
|
modify it under the terms of the GNU General Public License as
|
||||||
|
@ -13,7 +13,7 @@ computers.
|
|||||||
</description>
|
</description>
|
||||||
|
|
||||||
<copyright>
|
<copyright>
|
||||||
WUDSN IDE Copyright (C) 2009 - 2018 Peter Dell
|
WUDSN IDE Copyright (C) 2009 - 2019 Peter Dell
|
||||||
66822 Lebach, Germany
|
66822 Lebach, Germany
|
||||||
This program is free software: you can redistribute it and/or
|
This program is free software: you can redistribute it and/or
|
||||||
modify it under the terms of the GNU General Public License as
|
modify it under the terms of the GNU General Public License as
|
||||||
|
@ -1,14 +0,0 @@
|
|||||||
mp.exe Example.pas
|
|
||||||
if ERRORLEVEL 1 goto :error
|
|
||||||
|
|
||||||
mads.exe Example.a65 -x -i:base -o:Example.xex
|
|
||||||
if ERRORLEVEL 1 goto :error
|
|
||||||
|
|
||||||
start Example.xex
|
|
||||||
goto: eof
|
|
||||||
|
|
||||||
:error
|
|
||||||
pause
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,43 +0,0 @@
|
|||||||
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.
|
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user