mirror of
https://github.com/peterdell/wudsn-ide.git
synced 2024-12-21 03:29:32 +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>
|
||||
|
||||
<copyright>
|
||||
WUDSN IDE Copyright (C) 2009 - 2014 Peter Dell
|
||||
WUDSN IDE Copyright (C) 2009 - 2019 Peter Dell
|
||||
66822 Lebach, Germany
|
||||
This program is free software: you can redistribute it and/or
|
||||
modify it under the terms of the GNU General Public License as
|
||||
|
@ -13,7 +13,7 @@ computers.
|
||||
</description>
|
||||
|
||||
<copyright>
|
||||
WUDSN IDE Copyright (C) 2009 - 2018 Peter Dell
|
||||
WUDSN IDE Copyright (C) 2009 - 2019 Peter Dell
|
||||
66822 Lebach, Germany
|
||||
This program is free software: you can redistribute it and/or
|
||||
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