$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