Common COMPACS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compacs +++|          CTEXT  COMPACS - ASSEMBLE CHARACTER STRING.
00002  M00S00002.compacs +++| ACS      SPACE  4
00003  M00S00003.compacs +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compacs +++|          QUAL   COMPACS

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compacs +++| ACS      SPACE  4
00008  M00S00007.compacs +++|***       ACS - ASSEMBLE CHARACTER STRING.
00009  M00S00008.compacs +++|*         P. D. HAAS         75/08/07.
00010  M00S00009.compacs +++| ACS      SPACE  4
00011  M00S00010.compacs +++|***              ACS GENERATES A CHARACTER STRING FROM A PARAMETER
00012  M00S00011.compacs +++|*         BLOCK, SUITABLE FOR USE IN DAYFILE MESSAGES.
00013  M00S00012.compacs +++|*         ITS PURPOSE IS TO ASSEMBLE A MESSAGE CONTAINING
00014  M00S00013.compacs +++|*         SEVERAL VARIABLE LENGTH PARAMETERS.
00015  M00S00014.compacs +++|*
00016  M00S00015.compacs +++|*         ENTRY  (A) = ADDRESS OF PARAMETER BLOCK.
00017  M00S00016.compacs +++|*                (T1) = ADDRESS FOR ASSEMBLY.
00018  M00S00017.compacs +++|*                ((T1)) = END OF STRING IN *C* FORMAT.
00019  M00S00018.compacs +++|*
00020  M00S00019.compacs +++|*         EXIT   (A) = 0.
00021  M00S00020.compacs +++|*                (T1) ADVANCED.
00022  M00S00021.compacs +++|*                ((T1)) = END OF STRING IN *C* FORMAT.

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

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00001.ns2104b +++|*                ((T2)) = END OF PARAMETER BLOCK IN *Z* FORMAT.
00024  M00S00022.compacs +++|*                ASSEMBLY TERMINATES ON 6 BITS OF ZERO.
00025  M00S00023.compacs +++|*
00026  M00S00024.compacs +++|*         USES   T2.
00027  M00S00025.compacs +++|
00028  M00S00026.compacs +++|
00029  M00S00027.compacs +++| ACS2     RAI    T1          ADD LOWER CHARACTER
00030  M00S00028.compacs +++|          AOD    T2          ADVANCE PARAMETER ADDRESS
00031  M00S00029.compacs +++|          AOD    T1
00032  M00S00030.compacs +++| ACS3     LDI    T2          SET UPPER CHARACTER
00033  M00S00031.compacs +++|          SCN    77
00034  M00S00032.compacs +++|          STI    T1
00035  M00S00033.compacs +++|          ZJN    ACSX        IF END OF ASSEMBLY
00036  M00S00034.compacs +++|          LMI    T2
00037  M00S00035.compacs +++|          NJN    ACS2        IF LOWER CHARACTER PRESENT
00038  M00S00036.compacs +++| ACS4     STM    1,T1
00039  M00S00037.compacs +++|
00040  M00S00038.compacs +++| ACS      SUBR               ENTRY/EXIT
00041  M00S00039.compacs +++|          STD    T2          SET PARAMETER ADDRESS
00042  M00S00040.compacs +++|          LDI    T1
00043  M00S00041.compacs +++|          ZJN    ACS3        IF ASSEMBLY ON BYTE BOUNDARY
00044  M00S00042.compacs +++|          SOD    T2
00045  M00S00043.compacs +++| ACS1     AOD    T2          ADVANCE PARAMETER ADDRESS
00046  M00S00044.compacs +++|          LDI    T2          UNPACK PARAMETER BLOCK
00047  M00S00045.compacs +++|          SHN    14
00048  M00S00046.compacs +++|          RAI    T1          SET LOWER CHARACTER
00049  M00S00047.compacs +++|          LPN    77
00050  M00S00048.compacs +++|          ZJN    ACS4        IF END OF ASSEMBLY
00051  M00S00049.compacs +++|          AOD    T1          ADVANCE ASSEMBLY ADDRESS
00052  M00S00050.compacs +++|          LDI    T2
00053  M00S00051.compacs +++|          LPN    77
00054  M00S00052.compacs +++|          SHN    6           SET UPPER CHARACTER
00055  M00S00053.compacs +++|          STI    T1
00056  M00S00054.compacs +++|          NJN    ACS1        IF NOT END OF PARAMETER BLOCK
00057  M00S00055.compacs +++|          UJN    ACSX        RETURN
00058  M00S00056.compacs +++| ACS      SPACE  4
00059  M00S00057.compacs +++|          IF     -DEF,QUAL$
00060  M00S00058.compacs +++|          QUAL   *
00061  M00S00059.compacs +++| ACS      EQU    /COMPACS/ACS
00062  M00S00060.compacs +++|          ENDIF
00063  M00S00061.compacs +++|          ENDX