Initial revision
This commit is contained in:
15
lang/a68s/aem/dec_main.p
Normal file
15
lang/a68s/aem/dec_main.p
Normal file
@@ -0,0 +1,15 @@
|
||||
PROCEDURE dbug (number : INTEGER);
|
||||
BEGIN
|
||||
writeln('dbug value',number)
|
||||
END;
|
||||
|
||||
PROCEDURE dump (VAR start,finish : INTEGER); EXTERN;
|
||||
|
||||
BEGIN
|
||||
reset(A68INIT);
|
||||
reset(LGO);
|
||||
reset(SOURCDECS);
|
||||
rewrite(LSTFILE);
|
||||
rewrite(DUMPF);
|
||||
dump(firststack, laststack);
|
||||
END.
|
||||
Reference in New Issue
Block a user