*COMDECK COMSTOK
 COMSTOK  CTEXT  COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT. 
 TOK      SPACE  4
          BASE   D
 TOK      SPACE  4,10 
***       COMSTOK - COMMON TOKEN GENERATOR INTERFACE TEXT.
*         P CLARE   77/02/26
*         P CLARE   78/04/27 VERSION 2.0
 TOK      SPACE  4,10 
***       COMSTOK - COMMON TOKEN GENERATOR INTERFACE TEXT.
* 
* 
*         THIS COMDECK CONTAINS SYMBOL DEFINITIONS THAT ARE REQUIRED
*         BY THE COMMON TOKEN GENERATOR (COMCTOK) AND ITS SUPPORTING
*         COMDECKS. 
 DEFS     SPACE  4,10 
**        SYMBOL DEFINITIONS. 
  
  
          IF     -DEF,BICH,1
 BICH     =      1RM
  
          IF     -MIC,BLOWUP,1
 BLOWUP   MICRO  1,,/*O+4S15/ 
  
          IF     -DEF,CHAR,1
 CHAR     =      6
  
          IF     -DEF,FW.TOK,1
 FW.TOK   =      0
  
          IF     -MIC,O.,1
 O.       MICRO  1,,/O./
  
          IF     -DEF,"O."BOS,1 
 "O."BOS  =      0
  
          IF     -DEF,"O."EOS,1 
 "O."EOS  =      0
  
          IF     -MIC,O=,1
 O=       MICRO  1,,/O=/
  
          IF     -DEF,TEST,1
 TEST     =      0
 TC.      SPACE  4,10 
**        TC. - *TOKCOM* LOCATION ORDINAL DEFINITIONS.
* 
* 
*         SYMBOLS OF THE FORM *TC.XXX*, WHERE *TC.* IS A COMMON 
*         PREFIX AND *XXX* IS A UNIQUE NAME, DESCRIBE THE ORDINALS
*         INTO *TOKCOM*, THE *USER/TOK* COMMUNICATIONS AREA.
* 
*         *TOKCOM* CONTAINS INFORMATION THAT IS PASSED BACK AND FORTH 
*         BETWEEN A *TOK* CALLER/USER AND *TOK* (COMMON TOKEN GENERATOR)
*         AND CONTAINS INFORMATION ABOUT THE CURRENT LINE TO BE,
*         OR BEING, ENTOKENED.  SEE *COMCTOK* ENTRY/EXIT PREAMBLE FOR 
*         DETAILS.
  
  
          LOC    0
 TC.FWA   =      *
 TC.FCP   =      *+1
 TC.LWA   =      *+2
 TC.LCP   =      *+3
 TC.P     =      *+4
 TC.SOA   =      *+5
 TC.SOX   =      *+6
 TC.SOL   =      *+7
 TC.SOB   =      *+8D 
 TC.SOC   =      *+9D 
 TC.TBA   =      *+10D
 TC.TBB   =      *+11D
 TC.RSF   =      *+12D
 TC.BOL   =      *+13D
 TC.EOL   =      *+14D
 TC.REST  =      *+15D
          LOC    *O 
  
 L.TCOM   =      16D         LEN OF *TOKCOM*
 TG.      SPACE  4,10 
**        TG. - TOGEL BINARY INSTRUCTION SYMBOL DEFINITIONS.
  
  
          DESCRIBE TG.
          DEFINE 42 
 TOFU     DEFINE 18 
 CALT     SPACE  4,10 
**        *CALT XX* BINARY TOGEL INSTRUCTION FORMAT.
  
  
          REDEF 
          DEFINE 24 
 CAD      DEFINE 18 
 TOFU     DEFINE 18 
 CASEOF   SPACE  4,10 
**        *CASEOF (..)* BINARY TOGEL INSTRUCTION FORMAT.
  
  
          REDEF 
 COA      DEFINE 12 
 COZ      DEFINE 12 
 TAD      DEFINE 18 
 TOFU     DEFINE 18 
 ENDT     SPACE  4,10 
**        *ENDT* BINARY TOGEL INSTRUCTION FORMAT. 
  
  
          REDEF 
 IFL      DEFINE 42 
 TOFU     DEFINE 18 
 IFT      SPACE  4,10 
**        *IFT (...)* BINARY TOGEL INSTRUCTION FORMAT.
  
  
          REDEF 
          DEFINE 6
 FAL      DEFINE 18 
 MXA      DEFINE 18 
 TOFU     DEFINE 18 
 GENTOK   SPACE  4,10 
**        *GENTOK* BINARY TOGEL INSTRUCTION FORMAT. 
  
  
          REDEF 
          DEFINE 24 
 GTT      DEFINE 18 
 TOFU     DEFINE 18 
 GOTO     SPACE  4,10 
**        *GOTO XX* BINARY TOGEL INSTRUCTION FORMAT.
  
  
          REDEF 
          DEFINE 24 
 GOT      DEFINE 18 
 TOFU     DEFINE 18 
 GROUP    SPACE  4,10 
**        *GROUP* BINARY TOGEL INSTRUCTION SYMBOL DEFS. 
  
  
          REDEF 
          DEFINE 6
 TOT      DEFINE 18 
 MXA      DEFINE 18 
 TOFU     DEFINE 18 
 ON       SPACE  4,10 
**        *ON I,V* BINARY TOGEL INSTRUCTION FORMAT. 
  
  
          REDEF 
          DEFINE 6
 INV      DEFINE 18 
 INC      DEFINE 18 
 TOFU     DEFINE 18 
 XEQ      SPACE  4,10 
**        *XEQ P* BINARY TOGEL INSTRUCTION FORMAT.
  
  
          REDEF 
          DEFINE 24 
 XAD      DEFINE 18 
 TOFU     DEFINE 18 
 TK.      SPACE  4,10 
**        TK. - TOKEN FORMAT SYMBOL DEFINITIONS.
* 
* 
 TK.      SPACE  4,10 
**         *TOKEN* FORMAT.
  
  
          DESCRIBE TK.
          DEFINE 6
 PAD      DEFINE 18 
 LNK      DEFINE 18 
 TOT      DEFINE 18 
 TL.      SPACE  4,10 
**        *TLINK* FORMAT. 
  
  
          DESCRIBE TL.
 MAF      DEFINE 1
          DEFINE 5
 TRU      DEFINE 18 
 FAL      DEFINE 18 
 PRE      DEFINE 18 
 TL.      SPACE  4,10 
          REDEF 
 MAC      DEFINE 42 
          DEFINE 18 
 TL.      SPACE  4,10 
          REDEF 
          DEFINE 6
 PAD      DEFINE TK.PADL
 LNK      DEFINE TK.LNKL
 TOT      DEFINE TK.TOTL
 TOK      SPACE  4,10 
 COMSTOK  ENDX
