          CTEXT  DSI$DEFINE LONG INSTRUCTIONS                            R123_OS        1
          IF     -DEF,QUAL$,1                                            R123_OS        2
          QUAL   COMPDLI                                                 R123_OS        3
          SPACE  4,10                                                    R123_OS        4
          BASE   M                                                       R123_OS        5
*         COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992               SCW_1080       1
 DLI      SPACE  4,10                                                    R123_OS        7
**        DLI - DEFINE LONG INSTRUCTION.                                 R123_OS        8
*                                                                        R123_OS        9
*         ENTRY  (A) = ADDRESS OF LONG INSTRUCTION TABLE.                R123_OS       10
*                                                                        R123_OS       11
*         EXIT   LONG INSTRUCTIONS DEFINED.                              R123_OS       12
                                                                         R123_OS       13
                                                                         R123_OS       14
 STILI    EQU    4400+1S15                                               R123_OS       15
                                                                         R123_OS       16
 DLI      SUBR               ENTRY/EXIT                                  R123_OS       17
          STD    T2                                                      R123_OS       18
          RJM    SMI         OBTAIN MAINTENANCE CHANNEL                  R123_OS       19
          DCN    MR+40                                                   R123_OS       20
          FNC    MRDC,MR     KILL DEADMAN TIMER                          R123_OS       21
          DCN    MR+40                                                   R123_OS       22
          LDC    STILI+T3                                                R123_OS       23
          ACN    MR                                                      R123_OS       24
          OAN    MR                                                      R123_OS       25
          LDN    1                                                       R123_OS       26
          IAM    DLIA,MR     READ *STIL* TO MEMORY                       R123_OS       27
          RJM    CMI         RETURN MAINTENANCE CHANNEL                  R123_OS       28
 DLI1     LDI    T2          ADDRESS OF 16 BIT INSTRUCTION               R123_OS       29
          ZJN    DLIX        IF FINISHED                                 R123_OS       30
          STD    T3                                                      R123_OS       31
          LDI    T3                                                      R123_OS       32
          LMC    1S15        CONVERT TO 16-BIT INSTRUCTION               R123_OS       33
 DLIA     STIL   T3                                                      R123_OS       34
          AOD    T2                                                      R123_OS       35
          UJN    DLI1        PROCESS NEXT INSTRUCTION                    R123_OS       36
          SPACE  4,10                                                    R123_OS       37
          BASE   *                                                       R123_OS       38
 QUAL$    IF     -DEF,QUAL$                                              R123_OS       39
          QUAL   *                                                       R123_OS       40
 DLI      EQU    /COMPDLI/DLI                                            R123_OS       41
 QUAL$    ENDIF                                                          R123_OS       42
          SPACE  4                                                       R123_OS       43
          ENDX                                                           R123_OS       44
