Common COMPDLI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compdli +++|          CTEXT  COMPDLI - DEFINE LONG INSTRUCTIONS.
00002  M00S00002.compdli +++|          SPACE  4,10
00003  M00S00003.compdli +++| QUAL$    IF     -DEF,QUAL$
00004  M00S00004.compdli +++|          QUAL   COMPDLI
00005  M00S00005.compdli +++| QUAL$    ENDIF
00006  M00S00006.compdli +++|          BASE   M

Line S00007 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1983.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.compdli +++| DLI      SPACE  4,10
00010  M00S00009.compdli +++|***       COMPDLI - DEFINE LONG INSTRUCTIONS.
00011  M00S00010.compdli +++|*
00012  M00S00011.compdli +++|*         B. R. HANSON.      83/11/03.
00013  M00S00012.compdli +++|*         R. C. SCHMITTER    83/11/03.
00014  M00S00013.compdli +++| DLI      SPACE  4,10
00015  M00S00014.compdli +++|***       COMPDLI SET 16-BIT INSTRUCTIONS IN PP MEMORY BY FIRST
00016  M00S00015.compdli +++|*         BUILDING A 16-BIT STORE INSTRUCION IN THE ACCUMULATOR,
00017  M00S00016.compdli +++|*         WRITING IT TO THE MAINTENANCE CHANNEL, AND READING IT
00018  M00S00017.compdli +++|*         BACK IN DIRECTLY TO MEMORY.  THIS INSTRUCTION IS THEN
00019  M00S00018.compdli +++|*         USED TO CREATE THE 16-BIT INSTRUCTIONS DEFINED IN THE
00020  M00S00019.compdli +++|*         LONG INSTRUCTION TABLE (THE LONG INSTRUCTION TABLE IS
00021  M00S00020.compdli +++|*         BUILT USING THE MACROS DEFINED IN *COMPIOU*).
00022  M00S00021.compdli +++|*         COMPDLI CAN ALSO BE USED TO CLEAR THE LONG INSTRUCTIONS
00023  M00S00022.compdli +++|*         WHICH WERE CREATED ON A PREVIOUS CALL.  THIS SHOULD BE
00024  M00S00023.compdli +++|*         DONE BEFORE DROPPING THE PP.
00025  M00S00024.compdli +++|*
00026  M00S00025.compdli +++|*         ENTRY  (A) = ADDRESS OF LONG INSTRUCTION TABLE, IF TO
00027  M00S00026.compdli +++|*                      DEFINE LONG INSTRUCTIONS.
00028  M00S00027.compdli +++|*                (A) = 400000B + ADDRESS OF LONG INSTRUCTION TABLE,
00029  M00S00028.compdli +++|*                      IF TO CLEAR LONG INSTRUCTIONS.
00030  M00S00029.compdli +++|*
00031  M00S00030.compdli +++|*         EXIT   LONG INSTRUCTIONS DEFINED (OR CLEARED).
00032  M00S00031.compdli +++|*
00033  M00S00032.compdli +++|*         CALLS  CMI, SMI.
00034  M00S00033.compdli +++|*
00035  M00S00034.compdli +++|*         XREF   COMPMRA.
00036  M00S00035.compdli +++|
00037  M00S00036.compdli +++|
00038  M00S00037.compdli +++| STILI    EQU    4400+1S15
00039  M00S00038.compdli +++|
00040  M00S00039.compdli +++| DLI      SUBR               ENTRY/EXIT
00041  M00S00040.compdli +++|          STD    T2
00042  M00S00041.compdli +++|          PJN    DLI1        IF TO DEFINE LONG INSTRUCTIONS
00043  M00S00042.compdli +++|          LDC    LDNI+0      SET UP TO CLEAR LONG INSTRUCTIONS
00044  M00S00043.compdli +++|          STM    DLIA
00045  M00S00044.compdli +++|          LDC    STII+T3
00046  M00S00045.compdli +++|          STM    DLIB
00047  M00S00046.compdli +++|          UJN    DLI2        CLEAR LONG INSTRUCTIONS
00048  M00S00047.compdli +++|
00049  M00S00048.compdli +++| DLI1     RJM    SMI         OBTAIN MAINTENANCE CHANNEL
00050  M00S00049.compdli +++|          DCN    MR+40
00051  M00S00050.compdli +++|          FNC    MRDC,MR     KILL DEADMAN TIMER
00052  M00S00051.compdli +++|          DCN    MR+40
00053  M00S00052.compdli +++|          LDC    STILI+T3
00054  M00S00053.compdli +++|          ACN    MR
00055  M00S00054.compdli +++|          OAN    MR
00056  M00S00055.compdli +++|          LDN    1
00057  M00S00056.compdli +++|          IAM    DLIB,MR     READ *STIL* TO MEMORY
00058  M00S00057.compdli +++|          RJM    CMI         RETURN MAINTENANCE CHANNEL
00059  M00S00058.compdli +++| DLI2     LDI    T2          ADDRESS OF 16-BIT INSTRUCTION
00060  M00S00059.compdli +++|          ZJN    DLIX        IF FINISHED
00061  M00S00060.compdli +++|          STD    T3
00062  M00S00061.compdli +++| DLIA     LDI    T3
00063  M00S00062.compdli +++|*         LDN    0           (CLEARING LONG INSTRUCTIONS)
00064  M00S00063.compdli +++|          LMC    1S15        CONVERT TO 16-BIT INSTRUCTION

Line S00064 Modification History
`M01` (Removed by)	`pdli1`

Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00064.pdli1   ---| DLIB     STIL   T3
00066  M01S00065.pdli1   ---|*         STI    T3          (CLEARING LONG INSTRUCTIONS)

Line S00001 Modification History
`M01` (Added by)	`pdli1`

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00001.pdli1   +++| DLIB     STI    T3          CLEAR LONG INSTRUCTIONS
00068  M01S00002.pdli1   +++|*         STIL   T3          (SETTING LONG INSTRUCTIONS)
00069  M00S00066.compdli +++|          AOD    T2
00070  M00S00067.compdli +++|          UJN    DLI2        PROCESS NEXT INSTRUCTION
00071  M00S00068.compdli +++|          SPACE  4,10
00072  M00S00069.compdli +++|          BASE   *
00073  M00S00070.compdli +++| QUAL$    IF     -DEF,QUAL$
00074  M00S00071.compdli +++|          QUAL   *
00075  M00S00072.compdli +++| DLI      EQU    /COMPDLI/DLI
00076  M00S00073.compdli +++| QUAL$    ENDIF
00077  M00S00074.compdli +++| DLI      ENDX