CALLDIS 
          IDENT  DIS
          PERIPH
          BASE   MIXED
          SST    RDS
          SPACE  4,10 
*COMMENT  CALLDIS - CALL DISPLAY COMMON DECKS.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          TITLE  CALLDIS - CALL DISPLAY COMMON DECKS. 
 SYMBOLS  TITLE  SYMBOL DEFINITIONS.
**        DIRECT CELL ASSIGNMENTS.
  
  
 XC       EQU    16          X-COORDINATE 
 YC       EQU    17          Y-COORDINATE 
 AB       EQU    20 - 24     ASSEMBLY BUFFER
 CN       EQU    30 - 34     CM WORD BUFFER 
 NC       EQU    35          NUMBER OF CONTROL POINTS 
 SF       EQU    55          SECURITY FLAG
 T8       EQU    57          TEMPORARY CELL 
 T9       EQU    60          TEMPORARY CELL 
          SPACE  4
**        MISCELLANEOUS EQUIVALENCES AND DEFINITIONS. 
  
  
 CH       EQU    CHDS        DISPLAY CHANNEL
 DPP      EQU    *           DROP PP DUMMY ADDRESS
 CTOS     CON    T545        Y-COORDINATE FOR TOP OF SCREEN BODY
 CBOS     CON    Y545        Y-COORDINATE FOR BOTTOM OF SCREEN BODY 
 DAL      EQU    *           DISPLAY ACCESS LEVEL 
 DSJX     EQU    *           EXIT FROM *J* DISPLAY DRIVER 
  
 NAME     MICRO  1,,*CALLDIS* 
          SPACE  4
**        COMMON DECKS. 
  
  
*CALL     COMPMAC 
*CALL     COMSEJT 
*CALL     COMSPIM 
*CALL     COMSSSD 
          SPACE  4
          LIST   F,X
*CALLALL  COMD
 REMOTE   SPACE  4,10 
**        REMOTE CODE.
  
  
 DIS      HERE               *DISPLA* REMOTE CODE 
 COMMON   SPACE  4,10 
**        COMMON DECKS. 
  
  
 EJT$     EQU    1           SELECT EJT PROCESSOR 
          LIST   -X 
*CALL     COMPGFP 
          SPACE  4
          END 
