Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comtalt +++|
00002 M01S00002.comtalt +++|# COMTALT - COMMON DEFINITIONS FOR *SSALTER* ROUTINES. #
00003 M01S00003.comtalt +++| CONTROL NOLIST;
00004 M01S00004.comtalt +++| CONTROL IFEQ LISTCON,1;
00005 M01S00005.comtalt +++| CONTROL LIST;
00006 M01S00006.comtalt +++| CONTROL FI;
00007 M01S00007.comtalt +++| BEGIN # COMTALT #
00008 M01S00008.comtalt +++|
00009 M01S00009.comtalt +++|#
00010 M01S00010.comtalt +++|*** COMTALT - COMMON DEFINITIONS FOR *SSALTER* ROUTINES.
00011 M01S00011.comtalt +++|*
00012 M01S00012.comtalt +++|* COMTALT CONTAINS THE ITEMS, ARRAYS AND THE
00013 M01S00013.comtalt +++|* COMMON AREA USED BY *SSALTER* ROUTINES.
00014 M01S00014.comtalt +++|*
00015 M01S00015.comtalt +++|#
00016 M01S00016.comtalt +++|
00017 M01S00017.comtalt +++|
00018 M01S00018.comtalt +++|#
00019 M01S00019.comtalt +++|* FIRST *K* DISPLAY COMMANDS
00020 M01S00020.comtalt +++|#
00021 M01S00021.comtalt +++|
00022 M01S00022.comtalt +++| DEF ALTK$PLUS #"+"#; # ADVANCE K DISPLAY #
00023 M01S00023.comtalt +++| DEF ALTK$END #"END"#; # END K DISPLAY #
00024 M01S00024.comtalt +++| DEF ALTK$STOP #"STOP"#; # STOP PROGRAM IMMEDIATELY #
00025 M01S00025.comtalt +++| DEF ALTK$SM #"SM"#; # REQUEST *SM* DISPLAY #
00026 M01S00026.comtalt +++| DEF ALTK$CU #"CU"#; # REQUEST *CU* DISPLAY #
00027 M01S00027.comtalt +++|
00028 M01S00028.comtalt +++|#
00029 M01S00029.comtalt +++|* *SM*/*CU* *K* DISPLAY STATUSES
00030 M01S00030.comtalt +++|#
00031 M01S00031.comtalt +++|
00032 M01S00032.comtalt +++| DEF ALTK$CLUP #"X"#; # CLEAN-UP STATUS #
00033 M01S00033.comtalt +++| DEF ALTK$MAINT #"M"#; # MAINTENANCE MODE STATUS #
00034 M01S00034.comtalt +++| DEF ALTK$ONLINE #"U"#; # ON-LINE STATUS #
00035 M01S00035.comtalt +++| DEF ALTK$OFFLINE #"F"#; # OFF-LINE STATUS #
00036 M01S00036.comtalt +++| DEF ALTK$AST #"*"#; # REQUESTED STATUS CHANGE #
00037 M01S00037.comtalt +++|
00038 M01S00038.comtalt +++|
00039 M01S00039.comtalt +++|#
00040 M01S00040.comtalt +++|* *CU* DISPLAY MISCELLANEOUS
00041 M01S00041.comtalt +++|#
00042 M01S00042.comtalt +++|
00043 M01S00043.comtalt +++| DEF ALTK$CHON #"ON"#; # STATUS OF *ON* #
00044 M01S00044.comtalt +++| DEF ALTK$CHOFF #"OF"#; # STATUS OF *OFF* #
00045 M01S00045.comtalt +++| DEF ALTK$CIF0 #"0"#; # CHANNEL INTERFACE 0 #
00046 M01S00046.comtalt +++| DEF ALTK$CIF1 #"1"#; # CHANNEL INTERFACE 1 #
00047 M01S00047.comtalt +++| DEF ALTK$CIF2 #"2"#; # CHANNEL INTERFACE 2 #
00048 M01S00048.comtalt +++| DEF ALTK$CIF3 #"3"#; # CHANNEL INTERFACE 3 #
00049 M01S00001.common1 +++| DEF ALTK$DRC2 #"2"#; # DRC 2 #
00050 M01S00002.common1 +++| DEF ALTK$DRC3 #"3"#; # DRC 3 #
00051 M01S00003.common1 +++| DEF ALTK$B6 #" "#; # 6 BLANK CHARACTERS #
00052 M01S00049.comtalt +++| DEF ALTK$B5 #" "#; # FIVE BLANK CHARACTERS #
00053 M01S00050.comtalt +++| DEF ALTK$BL #" "#; # BLANKS #
00054 M01S00051.comtalt +++|
00055 M01S00052.comtalt +++|#
00056 M01S00053.comtalt +++|* LEFT SCREEN DESCRIPTION
00057 M01S00054.comtalt +++|#
00058 M01S00055.comtalt +++|
00059 M01S00056.comtalt +++| DEF LF$AL$NLIN #27#; # NUMBER OF LINES ON LEFT SCREEN #
00060 M01S00057.comtalt +++| DEF LF$AL$TITLE #1#; # TITLE LINE LOCATION #
00061 M01S00058.comtalt +++| DEF LF$AL$BODY #3#; # START OF BODY #
00062 M01S00059.comtalt +++| DEF LF$AL$KBREJ #21#; # KEYBOARD REJECT LINE #
00063 M01S00060.comtalt +++| DEF LF$AL$KBECHO #22#; # KEYBOARD ECHO LINE #
00064 M01S00061.comtalt +++|
00065 M01S00062.comtalt +++| DEF TITLELINE$AL #" 7990 SUBSYSTEM - SSALTER "#;
00066 M01S00063.comtalt +++| DEF TITLEBOX$AL #" -------------------------- "#;
00067 M01S00064.comtalt +++| DEF TITLELINE$MD #" SSEXEC INITIALIZATION "#;
00068 M01S00065.comtalt +++|
00069 M01S00066.comtalt +++|#
00070 M01S00067.comtalt +++|* LEFT SCREEN CONTROLS
00071 M01S00068.comtalt +++|#
00072 M01S00069.comtalt +++|
00073 M01S00070.comtalt +++| DEF KCSIZ$AL #0#; # SMALL CHARACTERS #
00074 M01S00071.comtalt +++| DEF KCFORM$AL #1#; # TEXT FORMAT #
00075 M01S00072.comtalt +++| DEF KCSPACE$AL #1#; # 721 SPACING #
00076 M01S00073.comtalt +++|
00077 M01S00074.comtalt +++|
00078 M01S00075.comtalt +++|#
00079 M01S00076.comtalt +++|* MISCELLANEOUS DEFINITIONS
00080 M01S00077.comtalt +++|#
00081 M01S00078.comtalt +++|
00082 M01S00079.comtalt +++| DEF BZEROES$AL #0#; # CLEAR *B* DISPLAY LINE 2 #
00083 M01S00080.comtalt +++|
00084 M01S00081.comtalt +++|#
00085 M01S00082.comtalt +++|* COMTALT COMMON BLOCK
00086 M01S00083.comtalt +++|#
00087 M01S00084.comtalt +++|
00088 M01S00085.comtalt +++| COMMON TALTCOM;
00089 M01S00086.comtalt +++|
00090 M01S00087.comtalt +++| BEGIN # TALTCOM #
00091 M01S00088.comtalt +++|
00092 M01S00089.comtalt +++| ITEM REQID$AL I; # REQUESTOR ID #
00093 M01S00090.comtalt +++| ITEM SSID$AL I; # SUBSYSTEM ID #
00094 M01S00091.comtalt +++|
00095 M01S00092.comtalt +++|#
00096 M01S00093.comtalt +++|* CONSOLE PARAMETER DISPLAY
00097 M01S00094.comtalt +++|#
00098 M01S00095.comtalt +++|
00099 M01S00096.comtalt +++| ARRAY CPARAM[0:0] S(1);
00100 M01S00097.comtalt +++| BEGIN
00101 M01S00098.comtalt +++| ITEM CP$KBADDR U(00,00,24); # KEYBOARD ADDRESS #
00102 M01S00099.comtalt +++| ITEM CP$KRADDR U(00,24,18); # RIGHT SCREEN ADDRESS #
00103 M01S00100.comtalt +++| ITEM CP$KLADDR U(00,42,18); # LEFT SCREEN ADDRESS #
00104 M01S00101.comtalt +++| END
00105 M01S00102.comtalt +++|
00106 M01S00103.comtalt +++|
00107 M01S00104.comtalt +++|#
00108 M01S00105.comtalt +++|* CONSOLE KEYBOARD BUFFER
00109 M01S00106.comtalt +++|#
00110 M01S00107.comtalt +++|
00111 M01S00108.comtalt +++| ARRAY KBINPUTAL[0:0] S(8);
00112 M01S00109.comtalt +++| BEGIN
00113 M01S00110.comtalt +++| ITEM KB$AL$SCAN C(00,00,80); # FULL RESPONSE #
00114 M01S00111.comtalt +++| ITEM KB$AL$CLEAR U(00,00,60); # CLEAR THE RESPONSE #
00115 M01S00112.comtalt +++| END
00116 M01S00113.comtalt +++|
00117 M01S00114.comtalt +++|#
00118 M01S00115.comtalt +++|* *KLEFTSCRNAL* IS THE BUFFER FOR THE LEFT SCREEN OF THE *SSALTER*
00119 M01S00116.comtalt +++|* *K* DISPLAY.
00120 M01S00117.comtalt +++|#
00121 M01S00118.comtalt +++|
00122 M01S00119.comtalt +++| ARRAY KLEFTSCRNAL [0:LF$AL$NLIN] S(6);
00123 M01S00120.comtalt +++| BEGIN
00124 M01S00121.comtalt +++| ITEM KL$AL$CTL U(00,00,60) = [0]; # K-CONTROL #
00125 M01S00122.comtalt +++| ITEM KL$AL$S U(00,10,01) = [ KCSIZ$AL ]; # CHARACTER SIZE
00126 M01S00123.comtalt +++| #
00127 M01S00124.comtalt +++| ITEM KL$AL$F U(00,11,01) = [ KCFORM$AL ]; # FORMAT #
00128 M01S00125.comtalt +++| ITEM KL$AL$A U(00,12,01) = [KCSPACE$AL]; # ALTERNATE
00129 M01S00126.comtalt +++| SPACING #
00130 M01S00127.comtalt +++| ITEM KL$AL$COMP B(00,59,01); # *DSD* ACTIVE FLAG #
00131 M01S00128.comtalt +++| ITEM KL$AL$LRSV C(01,00,42) = [ " " ]; # RESERVED #
00132 M01S00129.comtalt +++| ITEM KL$AL$LINE C(00,00,52) = [ ##
00133 M01S00130.comtalt +++| ,
00134 M01S00131.comtalt +++| LF$AL$NLIN(" ")]; # LINES ON LEFT SCREEN #
00135 M01S00132.comtalt +++|
00136 M01S00133.comtalt +++| ITEM KL$AL$SUBL1 C(01,00,40); # SUB-LINE #
00137 M01S00134.comtalt +++| ITEM KL$AL$ZERO U(05,12,48) = [ ##
00138 M01S00135.comtalt +++| 0,
00139 M01S00136.comtalt +++| LF$AL$NLIN(0) ]; # ZERO TERMINATOR #
00140 M01S00137.comtalt +++|
00141 M01S00138.comtalt +++| END
00142 M01S00139.comtalt +++|
00143 M01S00140.comtalt +++|
00144 M01S00141.comtalt +++|#
00145 M01S00142.comtalt +++|* BUFFERS.
00146 M01S00143.comtalt +++|#
00147 M01S00144.comtalt +++|
00148 M01S00145.comtalt +++| ARRAY ALTMSG [0:0] P(4); # *SSALTER* FATAL ERROR MESSAGE #
00149 M01S00146.comtalt +++| BEGIN
00150 M01S00147.comtalt +++| ITEM ALTMSG$LN C(00,00,38); # MESSAGE LINE #
00151 M01S00148.comtalt +++| ITEM ALTMSG$ABN C(00,00,18);
00152 M01S00149.comtalt +++| ITEM ALTMSG$PROC C(01,48,08); # PROC NAME #
00153 M01S00150.comtalt +++| ITEM ALTMSG$BLNK C(02,36,12) = [" "];
00154 M01S00151.comtalt +++| ITEM ALTMSG$VAL C(02,06,10); # NUMERIC VALUE #
00155 M01S00152.comtalt +++| ITEM ALTMSG$TERM U(03,48,12) = [0]; # ZERO BYTE TERMINATOR #
00156 M01S00153.comtalt +++| END
00157 M01S00154.comtalt +++|
00158 M01S00155.comtalt +++|#
00159 M01S00156.comtalt +++|* ARRAYS TO HOLD UDT
00160 M01S00157.comtalt +++|#
00161 M01S00158.comtalt +++|
00162 M01S00159.comtalt +++| ITEM UDT$HDR U; # UDT HEADER DATA #
00163 M01S00160.comtalt +++|
00164 M01S00161.comtalt +++| ARRAY UDT$M862[0:MAXCTNM1] S(UDTCNTL);;
| Line S00162 Modification History |
M01 (Added by) | comtalt |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00165 M02S00162.common1 ---| ARRAY UDT$M861[0:MAXSMM1] S(SMALT);;
00166 M01S00004.common1 +++| ARRAY UDT$M861[0:MAXSML1] S(SMALT);;
00167 M01S00163.comtalt +++|
00168 M01S00164.comtalt +++|#
00169 M01S00165.comtalt +++|* BASED ARRAY FOR UDT
00170 M01S00166.comtalt +++|#
00171 M01S00167.comtalt +++|
00172 M01S00168.comtalt +++| BASED
00173 M01S00169.comtalt +++| ARRAY UDT$LOC[0:0] S(1);;
00174 M01S00170.comtalt +++|
00175 M01S00171.comtalt +++|#
00176 M01S00172.comtalt +++|* BASED ARRAY FOR *CU* DISPLAY
00177 M01S00173.comtalt +++|#
00178 M01S00174.comtalt +++|
00179 M01S00175.comtalt +++| BASED
00180 M01S00176.comtalt +++| ARRAY CU$SCREEN[0:LF$AL$NLIN] S(6);
00181 M01S00177.comtalt +++| BEGIN
00182 M01S00178.comtalt +++| ITEM CU$LN C(00,00,58); # FULL LINE #
00183 M01S00179.comtalt +++| ITEM CU$EOL U(05,48,12); # END OF LINE #
00184 M01S00180.comtalt +++| END
00185 M01S00181.comtalt +++|
00186 M01S00182.comtalt +++|#
00187 M01S00183.comtalt +++|* BASED ARRAY FOR *SM* DISPLAY
00188 M01S00184.comtalt +++|#
00189 M01S00185.comtalt +++|
00190 M01S00186.comtalt +++| BASED
00191 M01S00187.comtalt +++| ARRAY SM$SCREEN[0:LF$AL$NLIN] S(6);
00192 M01S00188.comtalt +++| BEGIN
00193 M01S00189.comtalt +++| ITEM SM$LN C(00,00,58); # FULL LINE #
00194 M01S00190.comtalt +++| ITEM SM$EOL U(05,48,12); # END OF LINE #
00195 M01S00191.comtalt +++| END
00196 M01S00192.comtalt +++|
00197 M01S00193.comtalt +++|#
00198 M01S00194.comtalt +++|* MISCELLANEOUS ITEMS
00199 M01S00195.comtalt +++|#
00200 M01S00196.comtalt +++|
00201 M01S00197.comtalt +++| ITEM KREQCLEARAL B; # K-REQUEST MESSAGE CLEARED #
00202 M01S00198.comtalt +++|
00203 M01S00199.comtalt +++|
00204 M01S00200.comtalt +++|
00205 M01S00201.comtalt +++| END # TALTCOM #
00206 M01S00202.comtalt +++|
00207 M01S00203.comtalt +++| END # COMTALT #
00208 M01S00204.comtalt +++|
00209 M01S00205.comtalt +++| CONTROL LIST;