mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-27 10:24:19 +00:00
Upload
Digital Research
This commit is contained in:
30
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE 2/LITs/common.lit
Normal file
30
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE 2/LITs/common.lit
Normal file
@@ -0,0 +1,30 @@
|
||||
$nolist
|
||||
/*
|
||||
Common Literals
|
||||
*/
|
||||
|
||||
declare true literally '0FFFFH';
|
||||
declare false literally '0';
|
||||
declare forever literally 'while true';
|
||||
declare boolean literally 'byte';
|
||||
|
||||
declare enter$region literally
|
||||
'disable';
|
||||
|
||||
exitr:
|
||||
procedure external;
|
||||
end exitr;
|
||||
|
||||
declare exit$region literally
|
||||
'call exitr';
|
||||
|
||||
declare restarts literally
|
||||
'0C7C7H,0C7C7H,0C7C7H,0C7C7H,
|
||||
0C7C7H,0C7C7H,0C7C7H,0C7C7H,
|
||||
0C7C7H,0C7C7H,0C7C7H,0C7C7H,
|
||||
0C7C7H,0C7C7H,0C7C7H,0C7C7H,
|
||||
0C7C7H,0C7C7H,0C7C7H,0C7C7H,
|
||||
0C7C7H,0C7C7H,0C7C7H';
|
||||
|
||||
$list
|
||||
|
||||
Reference in New Issue
Block a user