mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-26 09:54:20 +00:00
74 lines
1.8 KiB
Plaintext
74 lines
1.8 KiB
Plaintext
$nolist
|
|
|
|
/*
|
|
|
|
modified 4/13/81 R. Silberstein
|
|
modified 9/2/81 R. Silberstein
|
|
|
|
*/
|
|
|
|
/* Error numbers: */
|
|
|
|
dcl
|
|
laboutofrange lit '22', /* label out of range */
|
|
misssegminfo lit '23'; /* missing segment info in operand */
|
|
|
|
/* Structures: */
|
|
|
|
dcl
|
|
|
|
symbolstruc lit 'struc(
|
|
length addr,
|
|
stype byte,
|
|
sflag byte,
|
|
segment addr,
|
|
offset addr,
|
|
baseindex byte)',
|
|
|
|
operandstruc lit 'symbolstruc';
|
|
|
|
|
|
/* define bits of SFLAG of structures above */
|
|
|
|
dcl
|
|
type$bit lit '7h', /* bit 0-2 */
|
|
segtypebit lit '18h', /* bit 3-4 */
|
|
segmbit lit '20h', /* bit 5 */
|
|
iregbit lit '40h', /* bit 6 */
|
|
bregbit lit '80h', /* bit 7 */
|
|
|
|
/* left-shift counters */
|
|
typecount lit '0',
|
|
segtypecount lit '3',
|
|
segmcount lit '5',
|
|
iregcount lit '6',
|
|
bregcount lit '7',
|
|
|
|
/* define bits of BASEINDEX byte of structures above */
|
|
|
|
indexregbit lit '01h', /* bit 0 */
|
|
baseregbit lit '02h', /* bit 1 */
|
|
nooverridebit lit '40h', /* bit 6 */
|
|
|
|
/* left shift counters */
|
|
|
|
indexregcount lit '0',
|
|
baseregcount lit '1',
|
|
noovercount lit '6';
|
|
|
|
/* Mischellaneous global variables: */
|
|
|
|
dcl
|
|
ABSADDR (4) BYTE EXTERNAL, /* ABSOLUTE ADDRESS FIELD */
|
|
cip addr external, /* current instruction pointer */
|
|
csegvalue addr external, /* current segment value */
|
|
noerror byte external, /* errorflag in codemacro decoding */
|
|
firstmacroptr address external, /* pointer at first codemacro */
|
|
macroptr address external, /* current pointer within macros */
|
|
fullsymbtab byte external, /* full if symboltable is full */
|
|
nooper byte external, /* no of instruction operands */
|
|
operands(4) operandstruc /* instruction operands,max 4 */
|
|
external;
|
|
|
|
$list
|