Category : Assembly Language Source Code
Archive   : TASMSWAN.ZIP
Filename : PASDEMO.PAS
{ Test program, to be linked to externals in PASDEMO.OBJ }
{$D+} { include debugging info }
CONST value : Integer = 1234; { typed-constant declaration }
TYPE IntPtr = Integer; { pointer to integer type }
VAR cr,lf : Char; { Global variables }
PROCEDURE PasProc; FORWARD;
FUNCTION PasFunc: Char; FORWARD;
{$L PASDEMO.OBJ} { tell Turbo Pascal to load the assembled object code }
{ External declarations, telling Turbo Pascal the format of the
external routines in PASDEMO.asm }
PROCEDURE AsmProc; EXTERNAL;
FUNCTION CountPtr: IntPtr; EXTERNAL;
PROCEDURE PasProc;
VAR i : Integer;
BEGIN
Writeln( 'PasProc: Inside the Pascal procedure' )
END; { PasProc }
FUNCTION PasFunc: Char;
BEGIN
PasFunc := '#'
END; { PasFunc }
BEGIN
cr := chr( 13 );
lf := chr( 10 );
AsmProc;
Writeln( 'Main: asmCount = ', countPtr^ )
END.
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/