Retro1.org codex

          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