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