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