stefankoelle/dos-phobia-welcome-intro
1
0
Fork 0
mirror of https://github.com/skoelle/dos-phobia-welcome-intro.git synced 2026-09-17 20:50:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

changes LICENSE

Browse Source
This commit is contained in:
stefankoelle
2026-08-04 22:58:39 +02:00
parent e6983184ca
commit 3d36cd89db
6 changed files with 68 additions and 709 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/PHO.PAS
+4 -2
View File
@@ -1,3 +1,5 @@
{ Copyright (c) 2026 Stefan Koelle (https://stefankoelle.de) }
{ Licensed under the MIT License. See LICENSE file in project root for details. }
{$A-,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}
{$M 16384,0,59360}
uses crt,textgraf,pho_u,pho_u2;
@@ -209,13 +211,13 @@ begin
end;
end;
end;
procedure CLI; inline( $FA ); { Interrupts unterdr�cken }
procedure CLI; inline( $FA ); { Interrupts unterdr�cken }
procedure STI; inline( $FB ); { Interrupts wieder erlauben }
begin
CLI;
modinit;
clrscr;
writeln('PHOB­A Intro');
writeln('PHOB�A Intro');
writeln('------------');
writeln;
writeln('F1 -PC Speaker (10000 kHz)');