mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-24 17:04:19 +00:00
132 lines
4.3 KiB
Plaintext
132 lines
4.3 KiB
Plaintext
$nolist
|
||
|
||
/*
|
||
|
||
modified 7/24/81 R. Silberstein
|
||
|
||
*/
|
||
|
||
/* Symbol types : */
|
||
|
||
dcl
|
||
reg lit '0', /* register */
|
||
pseudo lit '1', /* pseudo instruction */
|
||
code lit '2', /* instruction */
|
||
string lit '3', /* character string */
|
||
spec lit '4', /* special character */
|
||
number lit '5', /* 8 or 16 bit number */
|
||
variable lit '6',
|
||
lab lit '7', /* label */
|
||
operator lit '8', /* operator in expressions */
|
||
doubledefined lit '0f9h', /* doubled defined symbol */
|
||
neglected lit '0fah', /* neglected symb., never to be def. */
|
||
ident lit '0fbh', /* identificator, scanner output */
|
||
error lit '0fch', /* error, scanner output */
|
||
udefsymb lit '0fdh', /* undefined symbol */
|
||
symbol lit '0feh', /* variable,label or undefined symb. */
|
||
deletedsymb lit '0ffh'; /* deleted symbol (not used */
|
||
|
||
|
||
/* Symbol description values */
|
||
|
||
dcl
|
||
nil lit '0', /* no specification */
|
||
byt lit '1', /* symbol is 8-bit type */
|
||
wrd lit '2', /* symbol is 16 bit type */
|
||
dwrd lit '4'; /* symbol is 2*16 bit type
|
||
or a segment register */
|
||
|
||
/* Register values : */
|
||
|
||
dcl
|
||
rax lit '0', /* 16 bit registers */
|
||
rcx lit '1',
|
||
rdx lit '2',
|
||
rbx lit '3',
|
||
rsp lit '4',
|
||
rbp lit '5',
|
||
rsi lit '6',
|
||
rdi lit '7',
|
||
|
||
ral lit '0', /* 8 bit registers */
|
||
rcl lit '1',
|
||
rdl lit '2',
|
||
rbl lit '3',
|
||
rah lit '4',
|
||
rch lit '5',
|
||
rdh lit '6',
|
||
rbh lit '7',
|
||
|
||
res lit '0', /* segment registers */
|
||
rcs lit '1',
|
||
rss lit '2',
|
||
rds lit '3';
|
||
|
||
|
||
|
||
/* Pseudo instructions: */
|
||
|
||
dcl
|
||
pdb lit '0',
|
||
pdd lit '1',
|
||
pdw lit '2',
|
||
pif lit '3',
|
||
prs lit '4',
|
||
pend lit '5',
|
||
pequ lit '6',
|
||
porg lit '7',
|
||
pcseg lit '8',
|
||
pdbit lit '9',
|
||
pdseg lit '10',
|
||
pendm lit '11',
|
||
peseg lit '12',
|
||
prelb lit '13',
|
||
prelw lit '14',
|
||
psseg lit '15',
|
||
pendif lit '16',
|
||
pmodrm lit '17',
|
||
ptitle lit '18',
|
||
psegfix lit '19',
|
||
pinclude lit '20',
|
||
peject lit '21',
|
||
psimform lit '22',
|
||
pnosegfix lit '23',
|
||
ppagesize lit '24',
|
||
pcodemacro lit '25',
|
||
ppagewidth lit '26',
|
||
plist lit '27',
|
||
pnolist lit '28',
|
||
prb lit '29', /* added in vers. 2.0 */
|
||
prw lit '30',
|
||
PIFLIST LIT '31',
|
||
PNOIFLIST LIT '32';
|
||
|
||
|
||
/* Symbolic operators */
|
||
|
||
dcl
|
||
oshort lit '0', /* 8-bit value of expression */
|
||
oor lit '1', /* logical OR */
|
||
oxor lit '2', /* logical XOR */
|
||
oand lit '3', /* logical AND */
|
||
onot lit '4', /* logical NOT */
|
||
oeq lit '5', /* equal */
|
||
ogt lit '6', /* greater */
|
||
oge lit '7', /* greater or equal */
|
||
olt lit '8', /* less */
|
||
ole lit '9', /* less or equal */
|
||
one lit '10', /* not equal */
|
||
omod lit '11', /* arithmetic MOD */
|
||
oshl lit '12', /* shift left */
|
||
oshr lit '13', /* shift rigth */
|
||
optr lit '14', /* take type of 1. op, value of 2. */
|
||
ooffset lit '15', /* offset value of operand */
|
||
oseg lit '16', /* segment value of operand */
|
||
otype lit '17', /* type value of operand */
|
||
olength lit '18', /* length attribute of variables */
|
||
olast lit '19', /* length - 1 */
|
||
leftbracket lit '''[''',
|
||
rightbracket lit ''']''';
|
||
|
||
$list
|
||
|