mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-26 09:54:20 +00:00
132 lines
4.0 KiB
Plaintext
132 lines
4.0 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
|