Common COMPSIC

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsic +++|          CTEXT  COMPSIC - SET PP INSTRUCTION CONSTANTS.
00002  M01S00002.compsic +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compsic +++|          QUAL   COMPSIC
00004  M01S00004.compsic +++|          BASE   M

Line S00005 Modification History
`M01` (Added by)	`compsic`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*COMMENT  COMPSIC - SET PP INSTRUCTION CONSTANTS.

Line S00006 Modification History
`M01` (Added by)	`compsic`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1987.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.compsic +++| SIC      SPACE  4,10
00009  M01S00008.compsic +++|***       SIC - SET PP INSTRUCTION CONSTANTS.
00010  M01S00009.compsic +++|*
00011  M01S00010.compsic +++|*         G. S. YODER.       91/06/21.
00012  M01S00011.compsic +++| SIC      SPACE  4,20
00013  M01S00012.compsic +++|***       *COMPSIC* RELOCATES PP INSTRUCTIONS ASSEMBLED BY THE TXXX
00014  M01S00013.compsic +++|*         MACROS WHERE XXX IS A PP INSTRUCTION MNEMONIC.  THE TXXX
00015  M01S00014.compsic +++|*         MACROS REMOTELY ASSEMBLE A TWO WORD RELOCATION TABLE ENTRY
00016  M01S00015.compsic +++|*         FOR EACH INSTRUCTION.  THE TABLE MUST BE TERMINATED BY THE
00017  M01S00016.compsic +++|*         CALLER WITH A ZERO WORD.
00018  M01S00017.compsic +++|*
00019  M01S00018.compsic +++|*         TABLE ENTRY FORMAT -
00020  M01S00019.compsic +++|*
00021  M01S00020.compsic +++|*T        12/ IADD, 12/ RADD

Figure

00022  M01S00021.compsic +++|*
00023  M01S00022.compsic +++|*                IADD = ADDRESS OF INSTRUCTION TO BE MODIFIED
00024  M01S00023.compsic +++|*                RADD = ADDRESS OF CELL CONTAINING AN 18 BIT VALUE TO
00025  M01S00024.compsic +++|*                         BE ADDED TO THE INSTRUCTION
00026  M01S00025.compsic +++|*
00027  M01S00026.compsic +++|*         ENTRY  (A) = ADDRESS OF INSTRUCTION MODIFICATION TABLE.
00028  M01S00027.compsic +++|*
00029  M01S00028.compsic +++|*         EXIT   INSTRUCTIONS MODIFIED.
00030  M01S00029.compsic +++|*
00031  M01S00030.compsic +++|*         USES   T1, T2, T3.
00032  M01S00031.compsic +++|
00033  M01S00032.compsic +++|
00034  M01S00033.compsic +++| SIC      SUBR               ENTRY/EXIT
00035  M01S00034.compsic +++|          STD    T1          SET RELOCATION TABLE ADDRESS
00036  M01S00035.compsic +++| SIC1     LDI    T1
00037  M01S00036.compsic +++|          ZJN    SICX        IF END OF TABLE
00038  M01S00037.compsic +++|          STD    T2          SET INSTRUCTION ADDRESS
00039  M01S00038.compsic +++|          AOD    T1
00040  M01S00039.compsic +++|          LDI    T1          SET RELOCATION CELL ADDRESS
00041  M01S00040.compsic +++|          STD    T3
00042  M01S00041.compsic +++|          LDM    1,T3        RELOCATE INSTRUCTION
00043  M01S00042.compsic +++|          RAM    1,T2
00044  M01S00043.compsic +++|          SHN    -14
00045  M01S00044.compsic +++|          ADI    T3
00046  M01S00045.compsic +++|          RAI    T2
00047  M01S00046.compsic +++|          AOD    T1          ADVANCE TO NEXT ENTRY
00048  M01S00047.compsic +++|          UJN    SIC1        PROCESS NEXT INSTRUCTION
00049  M01S00048.compsic +++|
00050  M01S00049.compsic +++|
00051  M01S00050.compsic +++| QUAL$    IF     -DEF,QUAL$
00052  M01S00051.compsic +++|          QUAL   *
00053  M01S00052.compsic +++| SIC      EQU    /COMPSIC/SIC
00054  M01S00053.compsic +++| QUAL$    ENDIF
00055  M01S00054.compsic +++|          ENDX