Common COMPSIC

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsic +++|          CTEXT  COMPSIC - SET PP INSTRUCTION CONSTANTS.
00002  M00S00002.compsic +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compsic +++|          QUAL   COMPSIC
00004  M00S00004.compsic +++|          BASE   M

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*COMMENT  COMPSIC - SET PP INSTRUCTION CONSTANTS.
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1987.

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compsic +++| SIC      SPACE  4,10
00009  M00S00008.compsic +++|***       SIC - SET PP INSTRUCTION CONSTANTS.
00010  M00S00009.compsic +++|*
00011  M00S00010.compsic +++|*         G. S. YODER.       91/06/21.
00012  M00S00011.compsic +++| SIC      SPACE  4,20
00013  M00S00012.compsic +++|***       *COMPSIC* RELOCATES PP INSTRUCTIONS ASSEMBLED BY THE TXXX
00014  M00S00013.compsic +++|*         MACROS WHERE XXX IS A PP INSTRUCTION MNEMONIC.  THE TXXX
00015  M00S00014.compsic +++|*         MACROS REMOTELY ASSEMBLE A TWO WORD RELOCATION TABLE ENTRY
00016  M00S00015.compsic +++|*         FOR EACH INSTRUCTION.  THE TABLE MUST BE TERMINATED BY THE
00017  M00S00016.compsic +++|*         CALLER WITH A ZERO WORD.
00018  M00S00017.compsic +++|*
00019  M00S00018.compsic +++|*         TABLE ENTRY FORMAT -
00020  M00S00019.compsic +++|*
00021  M00S00020.compsic +++|*T        12/ IADD, 12/ RADD

Figure

00022  M00S00021.compsic +++|*
00023  M00S00022.compsic +++|*                IADD = ADDRESS OF INSTRUCTION TO BE MODIFIED
00024  M00S00023.compsic +++|*                RADD = ADDRESS OF CELL CONTAINING AN 18 BIT VALUE TO
00025  M00S00024.compsic +++|*                         BE ADDED TO THE INSTRUCTION
00026  M00S00025.compsic +++|*
00027  M00S00026.compsic +++|*         ENTRY  (A) = ADDRESS OF INSTRUCTION MODIFICATION TABLE.
00028  M00S00027.compsic +++|*
00029  M00S00028.compsic +++|*         EXIT   INSTRUCTIONS MODIFIED.
00030  M00S00029.compsic +++|*
00031  M00S00030.compsic +++|*         USES   T1, T2, T3.
00032  M00S00031.compsic +++|
00033  M00S00032.compsic +++|
00034  M00S00033.compsic +++| SIC      SUBR               ENTRY/EXIT
00035  M00S00034.compsic +++|          STD    T1          SET RELOCATION TABLE ADDRESS
00036  M00S00035.compsic +++| SIC1     LDI    T1
00037  M00S00036.compsic +++|          ZJN    SICX        IF END OF TABLE
00038  M00S00037.compsic +++|          STD    T2          SET INSTRUCTION ADDRESS
00039  M00S00038.compsic +++|          AOD    T1
00040  M00S00039.compsic +++|          LDI    T1          SET RELOCATION CELL ADDRESS
00041  M00S00040.compsic +++|          STD    T3
00042  M00S00041.compsic +++|          LDM    1,T3        RELOCATE INSTRUCTION
00043  M00S00042.compsic +++|          RAM    1,T2
00044  M00S00043.compsic +++|          SHN    -14
00045  M00S00044.compsic +++|          ADI    T3
00046  M00S00045.compsic +++|          RAI    T2
00047  M00S00046.compsic +++|          AOD    T1          ADVANCE TO NEXT ENTRY
00048  M00S00047.compsic +++|          UJN    SIC1        PROCESS NEXT INSTRUCTION
00049  M00S00048.compsic +++|
00050  M00S00049.compsic +++|
00051  M00S00050.compsic +++| QUAL$    IF     -DEF,QUAL$
00052  M00S00051.compsic +++|          QUAL   *
00053  M00S00052.compsic +++| SIC      EQU    /COMPSIC/SIC
00054  M00S00053.compsic +++| QUAL$    ENDIF
00055  M00S00054.compsic +++|          ENDX