Common COMPDLI

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compdli +++|          CTEXT  COMPDLI - DEFINE LONG INSTRUCTIONS.
00002  M01S00002.compdli +++|          SPACE  4,10
00003  M01S00003.compdli +++| QUAL$    IF     -DEF,QUAL$
00004  M01S00004.compdli +++|          QUAL   COMPDLI
00005  M01S00005.compdli +++| QUAL$    ENDIF
00006  M01S00006.compdli +++|          BASE   M

Line S00007 Modification History
`M01` (Added by)	`compdli`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1983.
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.compdli +++| DLI      SPACE  4,10
00010  M01S00009.compdli +++|***       COMPDLI - DEFINE LONG INSTRUCTIONS.
00011  M01S00010.compdli +++|*
00012  M01S00011.compdli +++|*         B. R. HANSON.      83/11/03.
00013  M01S00012.compdli +++|*         R. C. SCHMITTER    83/11/03.
00014  M01S00013.compdli +++| DLI      SPACE  4,10
00015  M01S00014.compdli +++|***       COMPDLI SET 16-BIT INSTRUCTIONS IN PP MEMORY BY FIRST
00016  M01S00015.compdli +++|*         BUILDING A 16-BIT STORE INSTRUCION IN THE ACCUMULATOR,
00017  M01S00016.compdli +++|*         WRITING IT TO THE MAINTENANCE CHANNEL, AND READING IT
00018  M01S00017.compdli +++|*         BACK IN DIRECTLY TO MEMORY.  THIS INSTRUCTION IS THEN
00019  M01S00018.compdli +++|*         USED TO CREATE THE 16-BIT INSTRUCTIONS DEFINED IN THE
00020  M01S00019.compdli +++|*         LONG INSTRUCTION TABLE (THE LONG INSTRUCTION TABLE IS
00021  M01S00020.compdli +++|*         BUILT USING THE MACROS DEFINED IN *COMPIOU*).
00022  M01S00021.compdli +++|*         COMPDLI CAN ALSO BE USED TO CLEAR THE LONG INSTRUCTIONS
00023  M01S00022.compdli +++|*         WHICH WERE CREATED ON A PREVIOUS CALL.  THIS SHOULD BE
00024  M01S00023.compdli +++|*         DONE BEFORE DROPPING THE PP.
00025  M01S00024.compdli +++|*
00026  M01S00025.compdli +++|*         ENTRY  (A) = ADDRESS OF LONG INSTRUCTION TABLE, IF TO
00027  M01S00026.compdli +++|*                      DEFINE LONG INSTRUCTIONS.
00028  M01S00027.compdli +++|*                (A) = 400000B + ADDRESS OF LONG INSTRUCTION TABLE,
00029  M01S00028.compdli +++|*                      IF TO CLEAR LONG INSTRUCTIONS.
00030  M01S00029.compdli +++|*
00031  M01S00030.compdli +++|*         EXIT   LONG INSTRUCTIONS DEFINED (OR CLEARED).
00032  M01S00031.compdli +++|*
00033  M01S00032.compdli +++|*         CALLS  CMI, SMI.
00034  M01S00033.compdli +++|*
00035  M01S00034.compdli +++|*         XREF   COMPMRA.
00036  M01S00035.compdli +++|
00037  M01S00036.compdli +++|
00038  M01S00037.compdli +++| STILI    EQU    4400+1S15
00039  M01S00038.compdli +++|
00040  M01S00039.compdli +++| DLI      SUBR               ENTRY/EXIT
00041  M01S00040.compdli +++|          STD    T2
00042  M01S00041.compdli +++|          PJN    DLI1        IF TO DEFINE LONG INSTRUCTIONS
00043  M01S00042.compdli +++|          LDC    LDNI+0      SET UP TO CLEAR LONG INSTRUCTIONS
00044  M01S00043.compdli +++|          STM    DLIA
00045  M01S00044.compdli +++|          LDC    STII+T3
00046  M01S00045.compdli +++|          STM    DLIB
00047  M01S00046.compdli +++|          UJN    DLI2        CLEAR LONG INSTRUCTIONS
00048  M01S00047.compdli +++|
00049  M01S00048.compdli +++| DLI1     RJM    SMI         OBTAIN MAINTENANCE CHANNEL
00050  M01S00049.compdli +++|          DCN    MR+40
00051  M01S00050.compdli +++|          FNC    MRDC,MR     KILL DEADMAN TIMER
00052  M01S00051.compdli +++|          DCN    MR+40
00053  M01S00052.compdli +++|          LDC    STILI+T3
00054  M01S00053.compdli +++|          ACN    MR
00055  M01S00054.compdli +++|          OAN    MR
00056  M01S00055.compdli +++|          LDN    1
00057  M01S00056.compdli +++|          IAM    DLIB,MR     READ *STIL* TO MEMORY
00058  M01S00057.compdli +++|          RJM    CMI         RETURN MAINTENANCE CHANNEL
00059  M01S00058.compdli +++| DLI2     LDI    T2          ADDRESS OF 16-BIT INSTRUCTION
00060  M01S00059.compdli +++|          ZJN    DLIX        IF FINISHED
00061  M01S00060.compdli +++|          STD    T3
00062  M01S00061.compdli +++| DLIA     LDI    T3
00063  M01S00062.compdli +++|*         LDN    0           (CLEARING LONG INSTRUCTIONS)
00064  M01S00063.compdli +++|          LMC    1S15        CONVERT TO 16-BIT INSTRUCTION

Line S00064 Modification History
`M01` (Added by)	`compdli`
`M02` (Updated by)	`pdli1`

Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00064.pdli1   ---| DLIB     STIL   T3

Line S00065 Modification History
`M01` (Added by)	`compdli`
`M02` (Updated by)	`pdli1`

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00065.pdli1   ---|*         STI    T3          (CLEARING LONG INSTRUCTIONS)
00067  M01S00001.pdli1   +++| DLIB     STI    T3          CLEAR LONG INSTRUCTIONS
00068  M01S00002.pdli1   +++|*         STIL   T3          (SETTING LONG INSTRUCTIONS)
00069  M01S00066.compdli +++|          AOD    T2
00070  M01S00067.compdli +++|          UJN    DLI2        PROCESS NEXT INSTRUCTION
00071  M01S00068.compdli +++|          SPACE  4,10
00072  M01S00069.compdli +++|          BASE   *
00073  M01S00070.compdli +++| QUAL$    IF     -DEF,QUAL$
00074  M01S00071.compdli +++|          QUAL   *
00075  M01S00072.compdli +++| DLI      EQU    /COMPDLI/DLI
00076  M01S00073.compdli +++| QUAL$    ENDIF
00077  M01S00074.compdli +++| DLI      ENDX