Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 86/CONCURRENT/CCPM-86 & CPM-86 SOURCES/ASM/MGLOB.EXT

@@ -0,0 +1,46 @@
+$nolist
+
+/*
+
+  modified  3/28/81  R. Silberstein
+
+*/
+
+dcl
+pass            byte external,   /* current pass no, 1,2,3 */
+
+        /* address counters */
+
+cip             addr external,   /* current instruction pointer */
+csegtype        byte external,   /* current segment type, code,data,
+                                  stack or extra data */
+
+        /* print output parameters */
+
+print$on        byte external,   /* on/off flag */
+printswitchoff  byte external,   /* set/reset by NOLIST/LIST */
+IFLIST          BYTE EXTERNAL,   /* SET/RESET BY IFLIST/NOIFLIST */
+maxcol          byte external,   /* pagewidth */
+printdevice     byte external,   /* printfile device */
+simform         byte external,   /* true if formfeed simulation */
+
+        /* io error status */
+
+errors          addr external,       /* counts no of errors */
+eofset          byte external,    /* true if end-of-file found */
+
+      /* Mischellaneous variables: */
+
+errorprinted    byte external,    /* true if an error is printed */
+fullsymbtab     byte external,    /* full if symboltable is full */
+include$on      byte external,    /* true if INCLUDEfile input */
+IFLEVEL         BYTE EXTERNAL,    /* IF-ENDIF NESTING LEVEL */
+help(5)         byte    external, /* ascii number scratch area */
+i               byte    external; /* scratch variable */
+
+globalinit: procedure external;  /* initiate some globals */
+end globalinit;
+
+
+$list
+