Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 86/CONCURRENT/CCPM-86 & CPM-86 SOURCES/ASM/EQUALS.LIT

@@ -0,0 +1,132 @@
+$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
+