Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comstir +++| #
00002 M00S00002.comstir +++| CTEXT COMSTIR - TERMINAL INTERFACE ROUTINE EQUIVALENCES.
00003 M00S00003.comstir +++| #
00004 M00S00004.comstir +++| CONTROL NOLIST;
00005 M00S00005.comstir +++| #
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.281l803 +++| SPACE 4,10
00007 M01S00002.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M00S00006.comstir +++| COMSTIR SPACE 4
00009 M00S00007.comstir +++|*** COMSTIR - TERMINAL INTERFACE ROUTINE EQUIVALENCES.
00010 M00S00008.comstir +++|* M. L. SWANSON 84/05/09.
00011 M00S00009.comstir +++| BASE M
00012 M00S00010.comstir +++| SPACE 4
00013 M00S00011.comstir +++|*** *COMSTIR* PROVIDES EQUIVALENCES FOR TERMINAL DEPENDENT
00014 M00S00012.comstir +++|* ROUTINES WHICH INTERFACE TO TERMINAL DEFINITION UTILITY (TDU)
00015 M00S00013.comstir +++|* GENERATED CAPSULES.
00016 M00S00014.comstir +++|* SYMBOLS DEFINED BY THE DEF MACRO ARE USED IN
00017 M00S00015.comstir +++|* BOTH *SYMPL* AND *COMPASS* PROGRAMS. IN *SYMPL*,
00018 M00S00016.comstir +++|* COMMENTS ARE DELIMITED BY THE # # CHARACTER.
00019 M00S00017.comstir +++| #
00020 M00S00018.comstir +++| CONTROL IFEQ LISTCON,1;
00021 M00S00019.comstir +++| CONTROL LIST;
00022 M00S00020.comstir +++| CONTROL FI;
00023 M00S00021.comstir +++| BEGIN # COMSTIR #
00024 M00S00022.comstir +++| #
00025 M00S00023.comstir +++|* THE FOLLOWING MICRO DEFINITIONS CREATE MICRO NAMES
00026 M00S00024.comstir +++|* WHICH HAVE VALUES THAT ARE THE SAME AS THEIR NAMES
00027 M00S00025.comstir +++|* (I.E., 37 MICRO 1,,$37$ ).
00028 M00S00026.comstir +++|* THE PURPOSE OF THIS IS TO AVOID TYPE 9 ERRORS WHICH
00029 M00S00027.comstir +++|* WOULD OTHERWISE OCCUR WHEN *COMPASS* PROCESSES A
00030 M00S00028.comstir +++|* LINE WITH A * *DEF* *MACRO CONTAINING THE
00031 M00S00029.comstir +++|* *SYMPL* REPRESENTATION OF AN OCTAL NUMBER (O"37").
00032 M00S00030.comstir +++|
00033 M00S00031.comstir +++| 101 MICRO 1,,$101$
00034 M00S00032.comstir +++| 401 MICRO 1,,$401$
00035 M00S00033.comstir +++|
00036 M00S00034.comstir +++| BASE *
00037 M00S00035.comstir +++|
00038 M00S00036.comstir +++|
00039 M00S00037.comstir +++|*** ISBL - INITIALIZATION SEQUENCE BUFFER LENGTH.
00040 M00S00038.comstir +++|*
00041 M00S00039.comstir +++|* *ISBL* IS THE BUFFER USED TO HOLD THE INITIALIZATION
00042 M00S00040.comstir +++|* SEQUENCE RETRIEVED FROM A DYNAMICALLY LOADED TERMINAL
00043 M00S00041.comstir +++|* TERMINAL CAPSULE. THIS IS SET AT 401 DECIMAL WORDS
00044 M00S00042.comstir +++|* ( EQUIVALENT TO 2000 BYTES ).
00045 M00S00043.comstir +++| #
00046 M00S00044.comstir +++|
00047 M00S00045.comstir +++|
00048 M00S00046.comstir +++|#ISBL #DEF# 401 # ISBL#401#; # INITIALIZATION SEQ. BUFFER. #
00049 M00S00047.comstir +++|
00050 M00S00048.comstir +++|
00051 M00S00049.comstir +++|
00052 M00S00050.comstir +++| #
00053 M00S00051.comstir +++|*** ZBFL - ZZZZTRM FILE BUFFER LENGTH.
00054 M00S00052.comstir +++|*
00055 M00S00053.comstir +++|* *ZBFL* IS THE BUFFER USED TO HOLD THE ZZZZTRM FILE
00056 M00S00054.comstir +++|* CREATED BY *SCRCZF*, FROM A DYNAMICALLY LOADED TERMINAL
00057 M00S00055.comstir +++|* CAPSULE.
00058 M00S00056.comstir +++| #
00059 M00S00057.comstir +++|
00060 M00S00058.comstir +++|
00061 M00S00059.comstir +++|
00062 M00S00060.comstir +++|#ZBFL #DEF# 401B # ZBFL#O"401"#; # ZZZZTRM FET BUFFER #
00063 M00S00061.comstir +++|
00064 M00S00062.comstir +++|
00065 M00S00063.comstir +++|
00066 M00S00064.comstir +++| #
00067 M00S00065.comstir +++|*** RBFL - RETURN FILE BUFFER LENGTH.
00068 M00S00066.comstir +++|*
00069 M00S00067.comstir +++|* *RBFL* IS THE BUFFER LENGTH NEEDED TO RETURN A LOCAL
00070 M00S00068.comstir +++|* FILE.
00071 M00S00069.comstir +++| #
00072 M00S00070.comstir +++|
00073 M00S00071.comstir +++|
00074 M00S00072.comstir +++|
00075 M00S00073.comstir +++|#RBFL #DEF# 101B # RBFL#O"101"#; # BUFFER FOR RETURN MACRO. #
00076 M00S00074.comstir +++|
00077 M00S00075.comstir +++| #
00078 M00S00076.comstir +++|*** TDUV - TERMINAL DEFINITION UTILITY VERSION NUMBER.
00079 M00S00077.comstir +++|*
00080 M00S00078.comstir +++|* *TDUV* IS THE CURRENT VERSION NUMBER OF TDU. A
00081 M00S00079.comstir +++|* TERMINAL CAPSULE MUST CONTAIN A VERSION NUMBER EQUAL TO
00082 M00S00080.comstir +++|* OR LESS THAN THE VERSION NUMBER SPECIFIED HERE, IN ORDER
00083 M00S00081.comstir +++|* TO BE USED WITH NOS FULL SCREEN PRODUCTS.
00084 M00S00082.comstir +++| #
00085 M00S00083.comstir +++|
00086 M00S00084.comstir +++|
00087 M00S00085.comstir +++|#TDUV #DEF# 1 # TDUV#1#; # TDU VERSION NUMBER.#
00088 M00S00086.comstir +++|
00089 M00S00087.comstir +++| END # COMSTIR #
00090 M00S00088.comstir +++| #
00091 M00S00089.comstir +++|
00092 M00S00090.comstir +++| ENDX # CONTROL LIST;