Common COMPACS

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compacs +++|          CTEXT  COMPACS - ASSEMBLE CHARACTER STRING.
00002  M01S00002.compacs +++| ACS      SPACE  4
00003  M01S00003.compacs +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compacs +++|          QUAL   COMPACS

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compacs +++| ACS      SPACE  4
00008  M01S00007.compacs +++|***       ACS - ASSEMBLE CHARACTER STRING.
00009  M01S00008.compacs +++|*         P. D. HAAS         75/08/07.
00010  M01S00009.compacs +++| ACS      SPACE  4
00011  M01S00010.compacs +++|***              ACS GENERATES A CHARACTER STRING FROM A PARAMETER
00012  M01S00011.compacs +++|*         BLOCK, SUITABLE FOR USE IN DAYFILE MESSAGES.
00013  M01S00012.compacs +++|*         ITS PURPOSE IS TO ASSEMBLE A MESSAGE CONTAINING
00014  M01S00013.compacs +++|*         SEVERAL VARIABLE LENGTH PARAMETERS.
00015  M01S00014.compacs +++|*
00016  M01S00015.compacs +++|*         ENTRY  (A) = ADDRESS OF PARAMETER BLOCK.
00017  M01S00016.compacs +++|*                (T1) = ADDRESS FOR ASSEMBLY.
00018  M01S00017.compacs +++|*                ((T1)) = END OF STRING IN *C* FORMAT.
00019  M01S00018.compacs +++|*
00020  M01S00019.compacs +++|*         EXIT   (A) = 0.
00021  M01S00020.compacs +++|*                (T1) ADVANCED.
00022  M01S00021.compacs +++|*                ((T1)) = END OF STRING IN *C* FORMAT.
00023  M01S00001.ns2104b +++|*                ((T2)) = END OF PARAMETER BLOCK IN *Z* FORMAT.
00024  M01S00022.compacs +++|*                ASSEMBLY TERMINATES ON 6 BITS OF ZERO.
00025  M01S00023.compacs +++|*
00026  M01S00024.compacs +++|*         USES   T2.
00027  M01S00025.compacs +++|
00028  M01S00026.compacs +++|
00029  M01S00027.compacs +++| ACS2     RAI    T1          ADD LOWER CHARACTER
00030  M01S00028.compacs +++|          AOD    T2          ADVANCE PARAMETER ADDRESS
00031  M01S00029.compacs +++|          AOD    T1
00032  M01S00030.compacs +++| ACS3     LDI    T2          SET UPPER CHARACTER
00033  M01S00031.compacs +++|          SCN    77
00034  M01S00032.compacs +++|          STI    T1
00035  M01S00033.compacs +++|          ZJN    ACSX        IF END OF ASSEMBLY
00036  M01S00034.compacs +++|          LMI    T2
00037  M01S00035.compacs +++|          NJN    ACS2        IF LOWER CHARACTER PRESENT
00038  M01S00036.compacs +++| ACS4     STM    1,T1
00039  M01S00037.compacs +++|
00040  M01S00038.compacs +++| ACS      SUBR               ENTRY/EXIT
00041  M01S00039.compacs +++|          STD    T2          SET PARAMETER ADDRESS
00042  M01S00040.compacs +++|          LDI    T1
00043  M01S00041.compacs +++|          ZJN    ACS3        IF ASSEMBLY ON BYTE BOUNDARY
00044  M01S00042.compacs +++|          SOD    T2
00045  M01S00043.compacs +++| ACS1     AOD    T2          ADVANCE PARAMETER ADDRESS
00046  M01S00044.compacs +++|          LDI    T2          UNPACK PARAMETER BLOCK
00047  M01S00045.compacs +++|          SHN    14
00048  M01S00046.compacs +++|          RAI    T1          SET LOWER CHARACTER
00049  M01S00047.compacs +++|          LPN    77
00050  M01S00048.compacs +++|          ZJN    ACS4        IF END OF ASSEMBLY
00051  M01S00049.compacs +++|          AOD    T1          ADVANCE ASSEMBLY ADDRESS
00052  M01S00050.compacs +++|          LDI    T2
00053  M01S00051.compacs +++|          LPN    77
00054  M01S00052.compacs +++|          SHN    6           SET UPPER CHARACTER
00055  M01S00053.compacs +++|          STI    T1
00056  M01S00054.compacs +++|          NJN    ACS1        IF NOT END OF PARAMETER BLOCK
00057  M01S00055.compacs +++|          UJN    ACSX        RETURN
00058  M01S00056.compacs +++| ACS      SPACE  4
00059  M01S00057.compacs +++|          IF     -DEF,QUAL$
00060  M01S00058.compacs +++|          QUAL   *
00061  M01S00059.compacs +++| ACS      EQU    /COMPACS/ACS
00062  M01S00060.compacs +++|          ENDIF
00063  M01S00061.compacs +++|          ENDX