cdc:nos2.source:opl.opl871:deck:ssalter.001
Deck SSALTER Part 001
3 Modifications
Listing Sections
- Deck SSALTER Start
- Deck SSALTER Part 1 (Line 1921)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 01921 M01S00138.ssalte1 +++| FUNC XCDD C(10); # CONV INT TO DECIMAL DISPLAY # 01922 M00S01762.ssalter +++| FUNC XCOD C(10); # CONVERT INTEGER TO OCTAL DISPLAY 01923 M00S01763.ssalter +++| # 01924 M00S01764.ssalter +++| END 01925 M00S01765.ssalter +++| 01926 M00S01766.ssalter +++|# 01927 M00S01767.ssalter +++|**** PROC DISPSM - XREF LIST END. 01928 M00S01768.ssalter +++|# 01929 M00S01769.ssalter +++| 01930 M00S01770.ssalter +++|# 01931 M00S01771.ssalter +++|* DAYFILE MESSAGES. 01932 M00S01772.ssalter +++|# 01933 M00S01773.ssalter +++| 01934 M00S01774.ssalter +++| DEF MSG1 #" DISPSM - INCORRECT RESPONSE FROM SSEXEC."#; 01935 M00S01775.ssalter +++| DEF BLANK #" "#; 01936 M00S01776.ssalter +++| 01937 M00S01777.ssalter +++| 01938 M00S01778.ssalter +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS # 01939 M00S01779.ssalter +++| 01940 M00S01780.ssalter +++|*CALL,COMBFAS 01941 M00S01781.ssalter +++|*CALL,COMBCPR 01942 M00S01782.ssalter +++|*CALL,COMBUDT 01943 M00S01783.ssalter +++|*CALL,COMTALT 01944 M00S01784.ssalter +++| 01945 M00S01785.ssalter +++| ARRAY CHAR10[0:0] S(3); # CHARACTER MANIPULATION # 01946 M00S01786.ssalter +++| BEGIN 01947 M00S01787.ssalter +++| ITEM CHAR$10 C(00,00,10);
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 01948 M01S00139.ssalte1 +++| ITEM CHAR$R3 C(00,42,03); 01949 M00S01788.ssalter +++| ITEM CHAR$R2 C(00,48,02); 01950 M00S01789.ssalter +++| ITEM CHAR$DRD0 C(01,00,10);
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 01951 M01S00140.ssalte1 +++| ITEM CHAR$2D0 C(01,48,02); 01952 M00S01790.ssalter +++| ITEM CHAR$D0 C(01,54,01); 01953 M00S01791.ssalter +++| ITEM CHAR$DRD1 C(02,00,10);
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 01954 M01S00141.ssalte1 +++| ITEM CHAR$2D1 C(02,48,02); 01955 M00S01792.ssalter +++| ITEM CHAR$D1 C(02,54,01); 01956 M00S01793.ssalter +++| END 01957 M00S01794.ssalter +++| 01958 M00S01795.ssalter +++| ITEM CH C(2); # TWO CHARACTERS # 01959 M00S01796.ssalter +++| ITEM I I; # LOOP INDEX #
| Line S01797 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 01960 M01S01797.ssalte1 ---| ITEM J I; # LOOP INDEX # 01961 M00S01798.ssalter +++| ITEM EST$ORD I; # EST ORDINAL # 01962 M00S01799.ssalter +++| ITEM INDEX I; # INPUT PARAMETER # 01963 M00S01800.ssalter +++| ITEM INITIALIZE B; # INPUT PARAMETER # 01964 M00S01801.ssalter +++| ITEM ORD I; # TEMPORARY STORAGE # 01965 M00S01802.ssalter +++| ITEM RESPCODE I; # RESPONSE FROM *SSEXEC* # 01966 M00S01803.ssalter +++| ITEM SMID C(1); # STORAGE MODULE ID # 01967 M00S01804.ssalter +++| ITEM TEMP I; # SCRATCH # 01968 M00S01805.ssalter +++| CONTROL EJECT; 01969 M00S01806.ssalter +++| 01970 M00S01807.ssalter +++| ITEM SMBLANK C(58) = 01971 M00S01808.ssalter +++| " "; 01972 M00S01809.ssalter +++| ITEM SMHDR1 C(58) = 01973 M00S01810.ssalter +++| " PCU SCU SM/DRD"; 01974 M00S01811.ssalter +++| ITEM SMHDR2 C(58) = 01975 M00S01812.ssalter +++| " ST ST ST"; 01976 M00S01813.ssalter +++| ITEM SM$LINE C(58) = 01977 M00S01814.ssalter +++| " SM X N N X"; 01978 M00S01815.ssalter +++| ITEM DRD$LINE C(58) = 01979 M00S01816.ssalter +++| " DRD N X"; 01980 M00S01817.ssalter +++| ITEM DASH$LINE C(58) = 01981 M00S01818.ssalter +++| " ------------------------------------"; 01982 M00S01819.ssalter +++| ITEM VALID$COM C(58) = 01983 M00S01820.ssalter +++| " VALID COMMANDS ARE -"; 01984 M00S01821.ssalter +++| ITEM VAL$COM1 C(58) = 01985 M00S01822.ssalter +++| " K.SMI,CUNN=S."; 01986 M00S01823.ssalter +++| ITEM VAL$COM2 C(58) = 01987 M00S01824.ssalter +++| " K.SMI,DRDN,CUNN=S."; 01988 M00S01825.ssalter +++| ITEM VAL$COM3 C(58) = 01989 M00S01826.ssalter +++| " K.+ = DISPLAY NEXT SM"; 01990 M00S01827.ssalter +++| ITEM VAL$COM4 C(58) = 01991 M00S01828.ssalter +++| " I = SM IDENTIFIER"; 01992 M00S01829.ssalter +++| ITEM VAL$COM5 C(58) = 01993 M00S01830.ssalter +++| " N = DRD DEVICE ADDRESS"; 01994 M00S01831.ssalter +++| ITEM VAL$COM6 C(58) = 01995 M00S01832.ssalter +++| " NN = CU EST ORDINAL"; 01996 M00S01833.ssalter +++| ITEM VAL$COM7 C(58) = 01997 M00S01834.ssalter +++| " S = STATUS - U(ON),F(OFF),M(MAINTENANCE)"; 01998 M00S01835.ssalter +++| ITEM VAL$COM8 C(58) = 01999 M00S01836.ssalter +++| " S = STATUS - U(ON),F(OFF)"; 02000 M00S01837.ssalter +++| ITEM VAL$COM9 C(59) = 02001 M00S01838.ssalter +++| " + = DISPLAY NEXT SM"; 02002 M00S01839.ssalter +++| CONTROL EJECT; 02003 M00S01840.ssalter +++| 02004 M00S01841.ssalter +++|# 02005 M00S01842.ssalter +++|* BLANK THE *K* DISPLAY 02006 M00S01843.ssalter +++|# 02007 M00S01844.ssalter +++| 02008 M00S01845.ssalter +++| P<SM$SCREEN> = LOC(KLEFTSCRNAL); 02009 M00S01846.ssalter +++| SLOWFOR I = LF$AL$BODY STEP 1 UNTIL LF$AL$KBECHO-1 02010 M00S01847.ssalter +++| DO 02011 M00S01848.ssalter +++| BEGIN 02012 M00S01849.ssalter +++| SM$LN[I] = SMBLANK; 02013 M00S01850.ssalter +++| SM$EOL[I] = 0; 02014 M00S01851.ssalter +++| END 02015 M00S01852.ssalter +++| 02016 M00S01853.ssalter +++|# 02017 M00S01854.ssalter +++|* PAINT NON-CHANGING WORDS ON THE SCREEN 02018 M00S01855.ssalter +++|# 02019 M00S01856.ssalter +++| 02020 M00S01857.ssalter +++| SM$LN[3] = SMHDR1; 02021 M00S01858.ssalter +++| SM$LN[4] = SMHDR2; 02022 M00S01859.ssalter +++| SM$LN[6] = SM$LINE; 02023 M00S01860.ssalter +++| SM$LN[8] = DRD$LINE; 02024 M00S01861.ssalter +++| SM$LN[10] = DRD$LINE; 02025 M00S01862.ssalter +++| SM$LN[11] = DASH$LINE; 02026 M00S01863.ssalter +++| SM$LN[12] = VALID$COM; 02027 M00S01864.ssalter +++| SM$LN[13] = VAL$COM1; 02028 M00S01865.ssalter +++| SM$LN[14] = VAL$COM2; 02029 M00S01866.ssalter +++| SM$LN[15] = VAL$COM3; 02030 M00S01867.ssalter +++| SM$LN[16] = VAL$COM4; 02031 M00S01868.ssalter +++| SM$LN[17] = VAL$COM5; 02032 M00S01869.ssalter +++| SM$LN[18] = VAL$COM6; 02033 M00S01870.ssalter +++| SM$LN[19] = VAL$COM8; 02034 M00S01871.ssalter +++| IF NOT INITIALIZE 02035 M00S01872.ssalter +++| THEN 02036 M00S01873.ssalter +++| BEGIN 02037 M00S01874.ssalter +++| SM$LN[19] = VAL$COM7; 02038 M00S01875.ssalter +++| END 02039 M00S01876.ssalter +++| 02040 M00S01877.ssalter +++|# 02041 M00S01878.ssalter +++|* DISPLAY STATIC INFORMATION 02042 M00S01879.ssalter +++|# 02043 M00S01880.ssalter +++|
| Line S01881 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02044 M01S01881.ssalte1 ---| J = INDEX*2; 02045 M01S01882.ssalte1 ---| CHAR$DRD0[0] = XCOD( J ); 02046 M01S01883.ssalte1 ---| J = J + 1; 02047 M01S01884.ssalte1 ---| CHAR$DRD1[0] = XCOD ( J ); 02048 M00S01885.ssalter +++| P<UDT$SMA> = LOC( UDT$M861[INDEX] );
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02049 M01S00142.ssalte1 +++| CHAR$DRD0[0] = XCDD(D0$SUN[1]); 02050 M01S00143.ssalte1 +++| CHAR$DRD1[0] = XCDD(D1$SUN[1]); 02051 M00S01886.ssalter +++| TEMP = 6; # SM LINE # 02052 M00S01887.ssalter +++| POKEDIS ( TEMP , 11 , 1 , SM$ID[1] ); 02053 M00S01888.ssalter +++| ORD = SM$CUO0[1] - 1; 02054 M00S01889.ssalter +++| IF ORD NQ -1 02055 M00S01890.ssalter +++| THEN 02056 M00S01891.ssalter +++| BEGIN 02057 M00S01892.ssalter +++| P<UDT$CN> = LOC( UDT$M862[ORD] ); 02058 M00S01893.ssalter +++| EST$ORD = UD$ESTO[1]; 02059 M00S01894.ssalter +++| CHAR$10[0] = XCOD(EST$ORD);
| Line S01895 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02060 M01S01895.ssalte1 ---| POKEDIS ( TEMP , 19 , 2 , CHAR$R2[0] ); 02061 M00S01896.ssalter +++| END 02062 M00S01897.ssalter +++| 02063 M00S01898.ssalter +++| ELSE 02064 M00S01899.ssalter +++| BEGIN 02065 M00S01900.ssalter +++| CHAR$10[0] = BLANK; 02066 M00S01901.ssalter +++| END 02067 M00S01902.ssalter +++|
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02068 M01S00144.ssalte1 +++| IF EST$ORD LQ O"77" 02069 M01S00145.ssalte1 +++| THEN # ORDINAL HAS 2 CHARACTERS # 02070 M01S00146.ssalte1 +++| BEGIN # TWO # 02071 M01S00147.ssalte1 +++| POKEDIS(TEMP,19,2,CHAR$R2[0]); 02072 M01S00148.ssalte1 +++| END # TWO # 02073 M01S00149.ssalte1 +++| 02074 M01S00150.ssalte1 +++| ELSE # ORDINAL HAS 3 CHARACTERS # 02075 M01S00151.ssalte1 +++| BEGIN # THREE # 02076 M01S00152.ssalte1 +++| POKEDIS(TEMP,18,3,CHAR$R3[0]); 02077 M01S00153.ssalte1 +++| END # THREE # 02078 M01S00154.ssalte1 +++| 02079 M00S01903.ssalter +++| ORD = SM$CUO1[1] - 1; 02080 M00S01904.ssalter +++| IF ORD NQ -1 02081 M00S01905.ssalter +++| THEN 02082 M00S01906.ssalter +++| BEGIN 02083 M00S01907.ssalter +++| P<UDT$CN> = LOC( UDT$M862[ORD] ); 02084 M00S01908.ssalter +++| EST$ORD = UD$ESTO[1]; 02085 M00S01909.ssalter +++| CHAR$10[0] = XCOD ( EST$ORD ); 02086 M00S01910.ssalter +++| END 02087 M00S01911.ssalter +++| 02088 M00S01912.ssalter +++| ELSE 02089 M00S01913.ssalter +++| BEGIN 02090 M00S01914.ssalter +++| CHAR$10[0] = BLANK; # BLANK IF NONE PRESENT # 02091 M00S01915.ssalter +++| END 02092 M00S01916.ssalter +++|
| Line S01917 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02093 M01S01917.ssalte1 ---| POKEDIS ( TEMP , 28 , 2 , CHAR$R2[0] ); # DISPLAY SECONDARY DRD # 02094 M01S01918.ssalte1 ---| 02095 M01S01919.ssalte1 ---|
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02096 M01S00155.ssalte1 +++| IF EST$ORD LQ O"77" 02097 M01S00156.ssalte1 +++| THEN # ORDINAL HAS 2 CHARACTERS # 02098 M01S00157.ssalte1 +++| BEGIN # TWO # 02099 M01S00158.ssalte1 +++| POKEDIS(TEMP,28,2,CHAR$R2[0]); 02100 M01S00159.ssalte1 +++| END # TWO # 02101 M01S00160.ssalte1 +++| 02102 M01S00161.ssalte1 +++| ELSE # ORDINAL HAS 3 CHARACTERS # 02103 M01S00162.ssalte1 +++| BEGIN # THREE # 02104 M01S00163.ssalte1 +++| POKEDIS(TEMP,27,3,CHAR$R3[0]); 02105 M01S00164.ssalte1 +++| END # THREE # 02106 M00S01920.ssalter +++| 02107 M00S01921.ssalter +++|# 02108 M00S01922.ssalter +++|* GET UDT INFORMATION 02109 M00S01923.ssalter +++|# 02110 M00S01924.ssalter +++| 02111 M00S01925.ssalter +++| UCPREQ ( TYP"TYP5", REQTYP5"SSA$PUDT", RESPCODE ); 02112 M00S01926.ssalter +++| 02113 M00S01927.ssalter +++| IF ( RESPCODE NQ RESPTYP5"OK5" ) ## 02114 M00S01928.ssalter +++| AND ( RESPCODE NQ RESPTYP5"SSA$OK" ) 02115 M00S01929.ssalter +++| THEN 02116 M00S01930.ssalter +++| BEGIN # PROCESS INCORRECT RESPONSE # 02117 M00S01931.ssalter +++| UCPREQ ( TYP"TYP1", REQTYP1"DISCONNECT", RESPCODE ); 02118 M00S01932.ssalter +++| ALTMSG$LN[0] = MSG1; 02119 M00S01933.ssalter +++| MESSAGE ( ALTMSG[0],SYSUDF1 ); 02120 M00S01934.ssalter +++| RESTPFP ( PFP$ABORT ); 02121 M00S01935.ssalter +++| END # PROCESS INCORRECT RESPONSE # 02122 M00S01936.ssalter +++| 02123 M00S01937.ssalter +++|# 02124 M00S01938.ssalter +++|* EXTRACT UDT DATA AND UPDATE THE DYNAMIC K-DISPLAY 02125 M00S01939.ssalter +++|# 02126 M00S01940.ssalter +++| 02127 M00S01941.ssalter +++| 02128 M00S01942.ssalter +++| IF SM$EXIST[1] 02129 M00S01943.ssalter +++| THEN 02130 M00S01944.ssalter +++| BEGIN 02131 M00S01945.ssalter +++| IF SM$ON[1] 02132 M00S01946.ssalter +++| THEN 02133 M00S01947.ssalter +++| BEGIN 02134 M00S01948.ssalter +++| POKEDIS ( TEMP , 37 , 1 , ALTK$ONLINE ); 02135 M00S01949.ssalter +++| END 02136 M00S01950.ssalter +++| 02137 M00S01951.ssalter +++| ELSE 02138 M00S01952.ssalter +++| BEGIN 02139 M00S01953.ssalter +++| POKEDIS ( TEMP , 37 , 1 , ALTK$OFFLINE ); 02140 M00S01954.ssalter +++| END 02141 M00S01955.ssalter +++| 02142 M00S01956.ssalter +++| IF SM$DIAG[1] 02143 M00S01957.ssalter +++| THEN 02144 M00S01958.ssalter +++| BEGIN 02145 M00S01959.ssalter +++| POKEDIS ( TEMP , 37 , 1 , ALTK$MAINT ); 02146 M00S01960.ssalter +++| END 02147 M00S01961.ssalter +++| 02148 M00S01962.ssalter +++| IF SM$STS0[1] NQ 0 02149 M00S01963.ssalter +++| THEN 02150 M00S01964.ssalter +++| BEGIN # DISPLAY ACCESSOR STATUS FROM 1ST CU # 02151 M00S01965.ssalter +++| IF B<PATH$DF"U$ON",1>SM$STS0[1] EQ 1 02152 M00S01966.ssalter +++| THEN 02153 M00S01967.ssalter +++| BEGIN 02154 M00S01968.ssalter +++| POKEDIS ( TEMP , 21 , 1 , ALTK$ONLINE ); 02155 M00S01969.ssalter +++| END 02156 M00S01970.ssalter +++| 02157 M00S01971.ssalter +++| ELSE 02158 M00S01972.ssalter +++| BEGIN 02159 M00S01973.ssalter +++| POKEDIS ( TEMP , 21 , 1 , ALTK$OFFLINE ); 02160 M00S01974.ssalter +++| END 02161 M00S01975.ssalter +++| 02162 M00S01976.ssalter +++| IF B<PATH$DF"U$RQ$DIAG",1>SM$STS0[1] EQ 1 02163 M00S01977.ssalter +++| THEN 02164 M00S01978.ssalter +++| BEGIN 02165 M00S01979.ssalter +++| POKEDIS ( TEMP , 21 , 1 , ALTK$MAINT ); 02166 M00S01980.ssalter +++| END 02167 M00S01981.ssalter +++| 02168 M00S01982.ssalter +++| END # DISPLAY ACCESSOR STATUS FROM 1ST CU # 02169 M00S01983.ssalter +++| 02170 M00S01984.ssalter +++| IF SM$STS1[1] NQ 0 02171 M00S01985.ssalter +++| THEN 02172 M00S01986.ssalter +++| BEGIN # DISPLAY ACCESSOR STATUS FROM 2ND CU # 02173 M00S01987.ssalter +++| IF B<PATH$DF"U$ON",1>SM$STS1[1] EQ 1 02174 M00S01988.ssalter +++| THEN 02175 M00S01989.ssalter +++| BEGIN 02176 M00S01990.ssalter +++| POKEDIS ( TEMP ,30 , 1 , ALTK$ONLINE ); 02177 M00S01991.ssalter +++| END 02178 M00S01992.ssalter +++| 02179 M00S01993.ssalter +++| ELSE 02180 M00S01994.ssalter +++| BEGIN 02181 M00S01995.ssalter +++| POKEDIS ( TEMP , 30 , 1 , ALTK$OFFLINE ); 02182 M00S01996.ssalter +++| END 02183 M00S01997.ssalter +++| 02184 M00S01998.ssalter +++| IF B<PATH$DF"U$RQ$DIAG",1>SM$STS1[1] EQ 1 02185 M00S01999.ssalter +++| THEN 02186 M00S02000.ssalter +++| BEGIN 02187 M00S02001.ssalter +++| POKEDIS ( TEMP , 30 , 1 , ALTK$MAINT ); 02188 M00S02002.ssalter +++| END 02189 M00S02003.ssalter +++| 02190 M00S02004.ssalter +++| END # DISPLAY ACCESSOR STATUS FROM 2ND CU # 02191 M00S02005.ssalter +++|
| Line S02006 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02192 M01S02006.ssalte1 ---| IF NOT SM$ON$ACK[1] AND NOT SM$DAG$ACK[1]
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02193 M01S00165.ssalte1 +++| IF NOT (SM$ON$ACK[1] OR SM$DAG$ACK[1]) 02194 M00S02007.ssalter +++| THEN 02195 M00S02008.ssalter +++| BEGIN 02196 M00S02009.ssalter +++| POKEDIS ( TEMP , 48 , 1 , BLANK ); 02197 M00S02010.ssalter +++| END 02198 M00S02011.ssalter +++| 02199 M00S02012.ssalter +++| END 02200 M00S02013.ssalter +++| 02201 M00S02014.ssalter +++| TEMP = 8 ; # SET FIRST DRD LINE # 02202 M00S02015.ssalter +++| IF D0$EXIST[1] 02203 M00S02016.ssalter +++| THEN 02204 M00S02017.ssalter +++| BEGIN 02205 M00S02018.ssalter +++| POKEDIS ( TEMP , 11 , 1 , CHAR$D0[0] );
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02206 M01S00166.ssalte1 +++| IF D0$SUN[1] GQ 10 02207 M01S00167.ssalte1 +++| THEN # DRD ORDINAL HAS 2 CHARACTERS # 02208 M01S00168.ssalte1 +++| BEGIN # TWO # 02209 M01S00169.ssalte1 +++| POKEDIS(TEMP,10,2,CHAR$2D0[0]); 02210 M01S00170.ssalte1 +++| END # TWO # 02211 M01S00171.ssalte1 +++| 02212 M00S02019.ssalter +++| IF D0$ON[1] 02213 M00S02020.ssalter +++| THEN 02214 M00S02021.ssalter +++| BEGIN 02215 M00S02022.ssalter +++| POKEDIS ( TEMP , 37 , 1 , ALTK$ONLINE ); 02216 M00S02023.ssalter +++| END 02217 M00S02024.ssalter +++| 02218 M00S02025.ssalter +++| ELSE 02219 M00S02026.ssalter +++| BEGIN 02220 M00S02027.ssalter +++| POKEDIS ( TEMP , 37 , 1 , ALTK$OFFLINE ); 02221 M00S02028.ssalter +++| END 02222 M00S02029.ssalter +++| 02223 M00S02030.ssalter +++| IF D0$DIAG[1] 02224 M00S02031.ssalter +++| THEN 02225 M00S02032.ssalter +++| BEGIN 02226 M00S02033.ssalter +++| POKEDIS ( TEMP , 37 , 1 , ALTK$MAINT ); 02227 M00S02034.ssalter +++| END 02228 M00S02035.ssalter +++| 02229 M00S02036.ssalter +++| END 02230 M00S02037.ssalter +++| 02231 M00S02038.ssalter +++| IF D0$STSP[1] NQ 0 02232 M00S02039.ssalter +++| THEN 02233 M00S02040.ssalter +++| BEGIN # DISPLAY DRD STATUS FROM 1ST CU # 02234 M00S02041.ssalter +++| IF B<PATH$DF"U$ON",1>D0$STSP[1] EQ 1 02235 M00S02042.ssalter +++| THEN 02236 M00S02043.ssalter +++| BEGIN 02237 M00S02044.ssalter +++| POKEDIS ( TEMP , 20 , 1 , ALTK$ONLINE ); 02238 M00S02045.ssalter +++| END 02239 M00S02046.ssalter +++| 02240 M00S02047.ssalter +++| ELSE 02241 M00S02048.ssalter +++| BEGIN 02242 M00S02049.ssalter +++| POKEDIS ( TEMP , 20 , 1 , ALTK$OFFLINE ); 02243 M00S02050.ssalter +++| END 02244 M00S02051.ssalter +++| 02245 M00S02052.ssalter +++| IF B<PATH$DF"U$RQ$DIAG",1>D0$STSP[1] EQ 1 02246 M00S02053.ssalter +++| THEN 02247 M00S02054.ssalter +++| BEGIN 02248 M00S02055.ssalter +++| POKEDIS ( TEMP , 20 , 1 , ALTK$MAINT ); 02249 M00S02056.ssalter +++| END 02250 M00S02057.ssalter +++| 02251 M00S02058.ssalter +++| END # DISPLAY DRD STATUS FROM 1ST CU # 02252 M00S02059.ssalter +++| 02253 M00S02060.ssalter +++| IF D0$STSS[1] NQ 0 02254 M00S02061.ssalter +++| THEN 02255 M00S02062.ssalter +++| BEGIN # DISPLAY DRD STATUS FROM 2ND CU # 02256 M00S02063.ssalter +++| IF B<PATH$DF"U$ON",1>D0$STSS[1] EQ 1 02257 M00S02064.ssalter +++| THEN 02258 M00S02065.ssalter +++| BEGIN 02259 M00S02066.ssalter +++| POKEDIS ( TEMP , 29 , 1 , ALTK$ONLINE ); 02260 M00S02067.ssalter +++| END 02261 M00S02068.ssalter +++| 02262 M00S02069.ssalter +++| ELSE 02263 M00S02070.ssalter +++| BEGIN 02264 M00S02071.ssalter +++| POKEDIS ( TEMP , 29 , 1 , ALTK$OFFLINE ); 02265 M00S02072.ssalter +++| END 02266 M00S02073.ssalter +++| 02267 M00S02074.ssalter +++| IF B<PATH$DF"U$RQ$DIAG",1>D0$STSS[1] EQ 1 02268 M00S02075.ssalter +++| THEN 02269 M00S02076.ssalter +++| BEGIN 02270 M00S02077.ssalter +++| POKEDIS ( TEMP , 29 , 1 , ALTK$MAINT ); 02271 M00S02078.ssalter +++| END 02272 M00S02079.ssalter +++| 02273 M00S02080.ssalter +++| END # DISPLAY DRD STATUS FROM 2ND CU # 02274 M00S02081.ssalter +++| 02275 M00S02082.ssalter +++| IF NOT D0$EXIST[1] 02276 M00S02083.ssalter +++| THEN 02277 M00S02084.ssalter +++| BEGIN 02278 M00S02085.ssalter +++| POKEDIS ( TEMP , 2 , 5 , ALTK$B5 ); # BLANK NON-EXISTENT DRD #
| Line S02086 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02279 M01S02086.ssalte1 ---| POKEDIS ( TEMP , 11 , 1 , BLANK );
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02280 M01S00172.ssalte1 +++| POKEDIS(TEMP,10,2," "); 02281 M00S02087.ssalter +++| POKEDIS ( TEMP , 37 , 1 , BLANK ); 02282 M00S02088.ssalter +++| POKEDIS ( TEMP , 48 , 1 , BLANK ); 02283 M00S02089.ssalter +++| END 02284 M00S02090.ssalter +++| 02285 M00S02091.ssalter +++| TEMP = 10; # SET SECOND DRD LINE # 02286 M00S02092.ssalter +++| IF D1$EXIST[1] 02287 M00S02093.ssalter +++| THEN 02288 M00S02094.ssalter +++| BEGIN 02289 M00S02095.ssalter +++| POKEDIS ( TEMP , 11 , 1 , CHAR$D1[0] );
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02290 M01S00173.ssalte1 +++| IF D1$SUN[1] GQ 10 02291 M01S00174.ssalte1 +++| THEN # DRD ORDINAL HAS 2 CHARACTERS # 02292 M01S00175.ssalte1 +++| BEGIN # TWO # 02293 M01S00176.ssalte1 +++| POKEDIS(TEMP,10,2,CHAR$2D1[0]); 02294 M01S00177.ssalte1 +++| END # TWO # 02295 M01S00178.ssalte1 +++| 02296 M00S02096.ssalter +++| IF D1$ON[1] 02297 M00S02097.ssalter +++| THEN 02298 M00S02098.ssalter +++| BEGIN 02299 M00S02099.ssalter +++| POKEDIS ( TEMP , 37 , 1 , ALTK$ONLINE ); 02300 M00S02100.ssalter +++| END 02301 M00S02101.ssalter +++| 02302 M00S02102.ssalter +++| ELSE 02303 M00S02103.ssalter +++| BEGIN 02304 M00S02104.ssalter +++| POKEDIS ( TEMP , 37 , 1 , ALTK$OFFLINE ); 02305 M00S02105.ssalter +++| END 02306 M00S02106.ssalter +++| 02307 M00S02107.ssalter +++| IF D1$DIAG[1] 02308 M00S02108.ssalter +++| THEN 02309 M00S02109.ssalter +++| BEGIN 02310 M00S02110.ssalter +++| POKEDIS ( TEMP , 37 , 1 , ALTK$MAINT ); 02311 M00S02111.ssalter +++| END 02312 M00S02112.ssalter +++| 02313 M00S02113.ssalter +++| 02314 M00S02114.ssalter +++| END 02315 M00S02115.ssalter +++| 02316 M00S02116.ssalter +++| IF D1$STSP[1] NQ 0 02317 M00S02117.ssalter +++| THEN 02318 M00S02118.ssalter +++| BEGIN # DISPLAY DRD STATUS FROM 1ST CU # 02319 M00S02119.ssalter +++| IF B<PATH$DF"U$ON",1>D1$STSP[1] EQ 1 02320 M00S02120.ssalter +++| THEN 02321 M00S02121.ssalter +++| BEGIN 02322 M00S02122.ssalter +++| POKEDIS ( TEMP , 20 , 1 , ALTK$ONLINE ); 02323 M00S02123.ssalter +++| END 02324 M00S02124.ssalter +++| 02325 M00S02125.ssalter +++| ELSE 02326 M00S02126.ssalter +++| BEGIN 02327 M00S02127.ssalter +++| POKEDIS ( TEMP , 20 , 1 , ALTK$OFFLINE ); 02328 M00S02128.ssalter +++| END 02329 M00S02129.ssalter +++| 02330 M00S02130.ssalter +++| IF B<PATH$DF"U$RQ$DIAG",1>D1$STSP[1] EQ 1 02331 M00S02131.ssalter +++| THEN 02332 M00S02132.ssalter +++| BEGIN 02333 M00S02133.ssalter +++| POKEDIS ( TEMP , 20 , 1 , ALTK$MAINT ); 02334 M00S02134.ssalter +++| END 02335 M00S02135.ssalter +++| 02336 M00S02136.ssalter +++| END # DISPLAY DRD STATUS FROM 1ST CU # 02337 M00S02137.ssalter +++| 02338 M00S02138.ssalter +++| IF D1$STSS[1] NQ 0 02339 M00S02139.ssalter +++| THEN 02340 M00S02140.ssalter +++| BEGIN # DISPLAY DRD STATUS FROM 2ND CU # 02341 M00S02141.ssalter +++| IF B<PATH$DF"U$ON",1>D1$STSS[1] EQ 1 02342 M00S02142.ssalter +++| THEN 02343 M00S02143.ssalter +++| BEGIN 02344 M00S02144.ssalter +++| POKEDIS ( TEMP , 29 , 1 , ALTK$ONLINE ); 02345 M00S02145.ssalter +++| END 02346 M00S02146.ssalter +++| 02347 M00S02147.ssalter +++| ELSE 02348 M00S02148.ssalter +++| BEGIN 02349 M00S02149.ssalter +++| POKEDIS ( TEMP , 29 , 1 , ALTK$OFFLINE ); 02350 M00S02150.ssalter +++| END 02351 M00S02151.ssalter +++| 02352 M00S02152.ssalter +++| IF B<PATH$DF"U$RQ$DIAG",1>D1$STSS[1] EQ 1 02353 M00S02153.ssalter +++| THEN 02354 M00S02154.ssalter +++| BEGIN 02355 M00S02155.ssalter +++| POKEDIS ( TEMP , 29 , 1 , ALTK$MAINT ); 02356 M00S02156.ssalter +++| END 02357 M00S02157.ssalter +++| 02358 M00S02158.ssalter +++| END # DISPLAY DRD STATUS FROM 2ND CU # 02359 M00S02159.ssalter +++| 02360 M00S02160.ssalter +++| IF NOT D1$EXIST[1] 02361 M00S02161.ssalter +++| THEN 02362 M00S02162.ssalter +++| BEGIN 02363 M00S02163.ssalter +++| POKEDIS ( TEMP , 2 , 5 , ALTK$B5 ); # BLANK NON-EXISTENT DRDS #
| Line S02164 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02364 M01S02164.ssalte1 ---| POKEDIS ( TEMP , 11 , 1 , BLANK );
| Line S00179 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02365 M01S00179.ssalte1 +++| POKEDIS(TEMP,10,2," "); 02366 M00S02165.ssalter +++| POKEDIS ( TEMP , 37 , 1 , BLANK ); 02367 M00S02166.ssalter +++| POKEDIS ( TEMP , 48 , 1 , BLANK ); 02368 M00S02167.ssalter +++| END 02369 M00S02168.ssalter +++| 02370 M00S02169.ssalter +++| 02371 M00S02170.ssalter +++| END # DISPSM # 02372 M00S02171.ssalter +++| 02373 M00S02172.ssalter +++| TERM 02374 M00S02173.ssalter +++|PROC KDISCIF ( INDEX, CIFORD ); 02375 M00S02174.ssalter +++|# TITLE KDISCIF - DISPLAY CIF DATA FROM UDT. # 02376 M00S02175.ssalter +++| 02377 M00S02176.ssalter +++| BEGIN # KDISCIF # 02378 M00S02177.ssalter +++| 02379 M00S02178.ssalter +++|# 02380 M00S02179.ssalter +++|** KDIXCIF - DISPLAY CIF DATA FROM UDT. 02381 M00S02180.ssalter +++|* 02382 M00S02181.ssalter +++|* PROC KDISCIF ( INDEX, CIFORD ) 02383 M00S02182.ssalter +++|* 02384 M00S02183.ssalter +++|* ENTRY - INDEX = DEVICE ADDRESS OF CIF TO DISPLAY. 02385 M00S02184.ssalter +++|* CIFORD = INDICATOR DESCRIBING COLUMN TO UPDATE. 02386 M00S02185.ssalter +++|* 02387 M00S02186.ssalter +++|* EXIT - *CU* DISPLAY UPDATED FOR CIF COLUMNS. 02388 M00S02187.ssalter +++|* 02389 M00S02188.ssalter +++|# 02390 M00S02189.ssalter +++| 02391 M00S02190.ssalter +++| ITEM INDEX I; # INPUT VARIABLE # 02392 M00S02191.ssalter +++| ITEM CIFORD I; # INPUT VARIABLE # 02393 M00S02192.ssalter +++| 02394 M00S02193.ssalter +++|# 02395 M00S02194.ssalter +++|**** PROC KDISCIF - XREF LIST BEGIN. 02396 M00S02195.ssalter +++|# 02397 M00S02196.ssalter +++| 02398 M00S02197.ssalter +++| XREF 02399 M00S02198.ssalter +++| BEGIN 02400 M00S02199.ssalter +++| PROC POKEDIS; # POKE DATA INTO *K* DISPLAY 02401 M00S02200.ssalter +++| BUFFER # 02402 M00S02201.ssalter +++| PROC KDISDTX; # UPDATE DTI/DTO DISPLAY # 02403 M00S02202.ssalter +++| END 02404 M00S02203.ssalter +++| 02405 M00S02204.ssalter +++|# 02406 M00S02205.ssalter +++|* KDISCIF - XREF LIST END. 02407 M00S02206.ssalter +++|# 02408 M00S02207.ssalter +++| 02409 M00S02208.ssalter +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS # 02410 M00S02209.ssalter +++| 02411 M00S02210.ssalter +++|*CALL,COMBFAS 02412 M00S02211.ssalter +++|*CALL,COMBUDT 02413 M00S02212.ssalter +++|*CALL,COMTALT 02414 M00S02213.ssalter +++| CONTROL EJECT; 02415 M00S02214.ssalter +++| 02416 M00S02215.ssalter +++| ITEM COLUMN I; # COLUMN NUMBER # 02417 M00S02216.ssalter +++| ITEM COLUMNM4 I; # COLUMN NUMBER MINUS 4 # 02418 M00S02217.ssalter +++| ITEM I I; # INTEGER SCRATCH # 02419 M00S02218.ssalter +++| ITEM J I; # LOOP VARIABLE # 02420 M00S02219.ssalter +++| ITEM LINE I; # LINE IN *K* DISPLAY # 02421 M00S02220.ssalter +++| CONTROL EJECT; 02422 M00S02221.ssalter +++| IF CIFORD EQ 0 02423 M00S02222.ssalter +++| THEN 02424 M00S02223.ssalter +++| BEGIN 02425 M00S02224.ssalter +++| COLUMN = 15; 02426 M00S02225.ssalter +++| COLUMNM4 = 11; 02427 M00S02226.ssalter +++| END 02428 M00S02227.ssalter +++| 02429 M00S02228.ssalter +++| ELSE 02430 M00S02229.ssalter +++| BEGIN 02431 M00S02230.ssalter +++| COLUMN = 8; 02432 M00S02231.ssalter +++| COLUMNM4 = 4; 02433 M00S02232.ssalter +++| END 02434 M00S02233.ssalter +++| 02435 M00S02234.ssalter +++| 02436 M00S02235.ssalter +++| IF INDEX GQ 2 02437 M00S02236.ssalter +++| THEN 02438 M00S02237.ssalter +++| BEGIN 02439 M00S02238.ssalter +++| GOTO CIF23; # JUMP IF CIF2 OR CIF3 # 02440 M00S02239.ssalter +++| END 02441 M00S02240.ssalter +++| 02442 M00S02241.ssalter +++|# 02443 M00S02242.ssalter +++|* LOOP FOR EACH DTI/DTO 02444 M00S02243.ssalter +++|# 02445 M00S02244.ssalter +++| 02446 M00S02245.ssalter +++| SLOWFOR J = 0 STEP 1 UNTIL MAX$CIF 02447 M00S02246.ssalter +++| DO 02448 M00S02247.ssalter +++| BEGIN # CIF01 TESTING # 02449 M00S02248.ssalter +++| LINE = J + 10; 02450 M00S02249.ssalter +++| I = J*6; 02451 M00S02250.ssalter +++| IF B< I+(INDEX*24)+PATH$DF"U$EXISTS", 1>UD$CIF01[1] EQ 0 02452 M00S02251.ssalter +++| THEN 02453 M00S02252.ssalter +++| BEGIN 02454 M00S02253.ssalter +++| POKEDIS ( LINE, COLUMNM4, 5, ALTK$B5 ); # BLANK DISPLAY # 02455 M00S02254.ssalter +++| KDISDTX(J); 02456 M00S02255.ssalter +++| TEST J; 02457 M00S02256.ssalter +++| END 02458 M00S02257.ssalter +++| 02459 M00S02258.ssalter +++| KDISDTX ( J ); # DISPLAY DTI/DTO ON OUT # 02460 M00S02259.ssalter +++| 02461 M00S02260.ssalter +++| IF B< I+(INDEX*24)+PATH$DF"U$RQ$DIAG", 1 >UD$CIF01[1] NQ 0 02462 M00S02261.ssalter +++| THEN 02463 M00S02262.ssalter +++| BEGIN 02464 M00S02263.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # DIAG MODE # 02465 M00S02264.ssalter +++| TEST J; 02466 M00S02265.ssalter +++| END 02467 M00S02266.ssalter +++| 02468 M00S02267.ssalter +++| IF B< I+(INDEX*24)+PATH$DF"U$ON", 1 >UD$CIF01[1] NQ 0 02469 M00S02268.ssalter +++| THEN 02470 M00S02269.ssalter +++| BEGIN 02471 M00S02270.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 02472 M00S02271.ssalter +++| TEST J; 02473 M00S02272.ssalter +++| END 02474 M00S02273.ssalter +++| 02475 M00S02274.ssalter +++| ELSE 02476 M00S02275.ssalter +++| BEGIN 02477 M00S02276.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MD # 02478 M00S02277.ssalter +++| END 02479 M00S02278.ssalter +++| 02480 M00S02279.ssalter +++| END # CIF01 TESTING # 02481 M00S02280.ssalter +++| 02482 M00S02281.ssalter +++| RETURN; 02483 M00S02282.ssalter +++| 02484 M00S02283.ssalter +++|CIF23: 02485 M00S02284.ssalter +++| 02486 M00S02285.ssalter +++|# 02487 M00S02286.ssalter +++|* LOOP FOR EACH DTI/DTO ON CIF2/CIF3 02488 M00S02287.ssalter +++|# 02489 M00S02288.ssalter +++| 02490 M00S02289.ssalter +++| INDEX = INDEX - 2; 02491 M00S02290.ssalter +++| SLOWFOR J = 0 STEP 1 UNTIL MAX$CIF 02492 M00S02291.ssalter +++| DO 02493 M00S02292.ssalter +++| BEGIN # CIF23 TESTING # 02494 M00S02293.ssalter +++| LINE = J + 10; 02495 M00S02294.ssalter +++| I = J*6; 02496 M00S02295.ssalter +++| IF B< I+(INDEX*24)+PATH$DF"U$EXISTS", 1>UD$CIF23[1] EQ 0 02497 M00S02296.ssalter +++| THEN 02498 M00S02297.ssalter +++| BEGIN 02499 M00S02298.ssalter +++| POKEDIS ( LINE, COLUMNM4, 5, ALTK$B5 ); # BLANK DISPLAY # 02500 M00S02299.ssalter +++| TEST J; 02501 M00S02300.ssalter +++| END 02502 M00S02301.ssalter +++| 02503 M00S02302.ssalter +++| KDISDTX ( J ); # DISPLAY DTI/DTO ON OUT # 02504 M00S02303.ssalter +++| 02505 M00S02304.ssalter +++| IF B< I+(INDEX*24)+PATH$DF"U$RQ$DIAG", 1 >UD$CIF23[1] NQ 0 02506 M00S02305.ssalter +++| THEN 02507 M00S02306.ssalter +++| BEGIN 02508 M00S02307.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # DIAG MODE # 02509 M00S02308.ssalter +++| TEST J; 02510 M00S02309.ssalter +++| END 02511 M00S02310.ssalter +++| 02512 M00S02311.ssalter +++| IF B< I+(INDEX*24)+PATH$DF"U$ON", 1 >UD$CIF23[1] NQ 0 02513 M00S02312.ssalter +++| THEN 02514 M00S02313.ssalter +++| BEGIN 02515 M00S02314.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 02516 M00S02315.ssalter +++| TEST J; 02517 M00S02316.ssalter +++| END 02518 M00S02317.ssalter +++| 02519 M00S02318.ssalter +++| ELSE 02520 M00S02319.ssalter +++| BEGIN 02521 M00S02320.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MD # 02522 M00S02321.ssalter +++| END 02523 M00S02322.ssalter +++| 02524 M00S02323.ssalter +++| END # CIF23 TESTING # 02525 M00S02324.ssalter +++| 02526 M00S02325.ssalter +++| RETURN; 02527 M00S02326.ssalter +++| 02528 M00S02327.ssalter +++| END # KDISCIF # 02529 M00S02328.ssalter +++| 02530 M00S02329.ssalter +++| TERM 02531 M00S02330.ssalter +++|PROC KDISDIF ( INDEX ); 02532 M00S02331.ssalter +++|# TITLE KDISDIF - DISPLAY DIF DATA FROM UDT. # 02533 M00S02332.ssalter +++| 02534 M00S02333.ssalter +++| BEGIN # KDISDIF # 02535 M00S02334.ssalter +++| 02536 M00S02335.ssalter +++|# 02537 M00S02336.ssalter +++|** KDISDIF - DISPLAY DTI/DTO DATA FROM UDT. 02538 M00S02337.ssalter +++|* 02539 M00S02338.ssalter +++|* PROC KDISDIF ( INDEX ) 02540 M00S02339.ssalter +++|* 02541 M00S02340.ssalter +++|* ENTRY - INDEX = DEVICE ADDRESS OF DIF TO DISPLAY. 02542 M00S02341.ssalter +++|* 02543 M00S02342.ssalter +++|* EXIT - *CU* DISPLAY UPDATED FOR DIF COLUMNS. 02544 M00S02343.ssalter +++|* 02545 M00S02344.ssalter +++|# 02546 M00S02345.ssalter +++| 02547 M00S02346.ssalter +++| ITEM INDEX I; # INPUT VARIABLE # 02548 M00S02347.ssalter +++| 02549 M00S02348.ssalter +++|# 02550 M00S02349.ssalter +++|**** PROC KDISDIF - XREF LIST BEGIN. 02551 M00S02350.ssalter +++|# 02552 M00S02351.ssalter +++| 02553 M00S02352.ssalter +++| XREF 02554 M00S02353.ssalter +++| BEGIN 02555 M00S02354.ssalter +++| PROC KDISDRC; # DISPLAY DRC ON OUT # 02556 M00S02355.ssalter +++| PROC POKEDIS; # POKE DATA INTO *K* DISPLAY 02557 M00S02356.ssalter +++| BUFFER # 02558 M00S02357.ssalter +++| END 02559 M00S02358.ssalter +++| 02560 M00S02359.ssalter +++|# 02561 M00S02360.ssalter +++|* KDISDIF - XREF LIST END. 02562 M00S02361.ssalter +++|# 02563 M00S02362.ssalter +++| 02564 M00S02363.ssalter +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS # 02565 M00S02364.ssalter +++|*CALL,COMBFAS 02566 M00S02365.ssalter +++|*CALL,COMBUDT 02567 M00S02366.ssalter +++|*CALL,COMTALT 02568 M00S02367.ssalter +++| CONTROL EJECT; 02569 M00S02368.ssalter +++| 02570 M00S02369.ssalter +++| ITEM COLUMN I; # *K* DISPLAY COLUMN # 02571 M00S02370.ssalter +++| ITEM COLUMNM4 I; # *K* DISPLAY COLUMN # 02572 M00S02371.ssalter +++| ITEM I I; # INTEGER SCRATCH # 02573 M00S02372.ssalter +++| ITEM J I; # LOOP VARIABLE # 02574 M00S02373.ssalter +++| ITEM LINE I; # LINE IN *K* DISPLAY # 02575 M00S02374.ssalter +++| CONTROL EJECT; 02576 M00S02375.ssalter +++| 02577 M00S02376.ssalter +++| COLUMN = 36; # POSITION COLUMN # 02578 M00S02377.ssalter +++| COLUMNM4 = 32; # POSITION 5 BLANKS #
| Line S02378 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02579 M01S02378.ssalte1 ---| I = INDEX*12; # POSITION TO CORRECT FIELD #
| Line S00180 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02580 M01S00180.ssalte1 +++| I = INDEX*24; # POSITION TO CORRECT FIELD # 02581 M00S02379.ssalter +++| 02582 M00S02380.ssalter +++|# 02583 M00S02381.ssalter +++|* LOOP FOR EACH DIF 02584 M00S02382.ssalter +++|# 02585 M00S02383.ssalter +++| 02586 M00S02384.ssalter +++| SLOWFOR J = 0 STEP 1 UNTIL MAX$DRC 02587 M00S02385.ssalter +++| DO 02588 M00S02386.ssalter +++| BEGIN # DIF TESTING # 02589 M00S02387.ssalter +++| LINE = J + 10; 02590 M00S02388.ssalter +++| IF INDEX EQ 1 02591 M00S02389.ssalter +++| THEN 02592 M00S02390.ssalter +++| BEGIN # ADJUST FOR THE DISPLAY #
| Line S02391 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02593 M01S02391.ssalte1 ---| LINE = LINE + 5;
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02594 M01S00181.ssalte1 +++| LINE = LINE + 7; 02595 M00S02392.ssalter +++| END # ADJUST FOR THE DISPLAY # 02596 M00S02393.ssalter +++| 02597 M00S02394.ssalter +++| 02598 M00S02395.ssalter +++| KDISDRC ( J ); # DISPLAY DRC ON OUT # 02599 M00S02396.ssalter +++| IF B< (J*6)+I+PATH$DF"U$EXISTS", 1>UD$DIF[1] EQ 0 02600 M00S02397.ssalter +++| THEN 02601 M00S02398.ssalter +++| BEGIN 02602 M00S02399.ssalter +++| POKEDIS ( LINE, COLUMNM4, 5, ALTK$B5 ); # BLANK FIELD # 02603 M00S02400.ssalter +++| TEST J; 02604 M00S02401.ssalter +++| END 02605 M00S02402.ssalter +++| 02606 M00S02403.ssalter +++| IF B< (J*6)+I+PATH$DF"U$RQ$DIAG", 1>UD$DIF[1] NQ 0 02607 M00S02404.ssalter +++| THEN 02608 M00S02405.ssalter +++| BEGIN 02609 M00S02406.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # SET DIAG MODE # 02610 M00S02407.ssalter +++| TEST J; 02611 M00S02408.ssalter +++| END 02612 M00S02409.ssalter +++| 02613 M00S02410.ssalter +++| IF B< (J*6)+I+PATH$DF"U$ON", 1>UD$DIF[1] NQ 0 02614 M00S02411.ssalter +++| THEN 02615 M00S02412.ssalter +++| BEGIN 02616 M00S02413.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 02617 M00S02414.ssalter +++| TEST J; 02618 M00S02415.ssalter +++| END 02619 M00S02416.ssalter +++| 02620 M00S02417.ssalter +++| ELSE 02621 M00S02418.ssalter +++| BEGIN 02622 M00S02419.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MD # 02623 M00S02420.ssalter +++| END 02624 M00S02421.ssalter +++| 02625 M00S02422.ssalter +++| END # DIF TESTING # 02626 M00S02423.ssalter +++| 02627 M00S02424.ssalter +++| END # KDISDIF # 02628 M00S02425.ssalter +++| 02629 M00S02426.ssalter +++| TERM
| Line S02427 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02630 M01S02427.ssalte1 ---| ; 02631 M00S02428.ssalter +++|PROC KDISDRC ( INDEX );
| Line S02429 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02632 M01S02429.ssalte1 ---|# TITLE KDISDRC - DISPLAY CIF DATA FROM UDT. #
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02633 M01S00182.ssalte1 +++|# TITLE KDISDRC - DISPLAY DRC DATA FROM UDT. # 02634 M00S02430.ssalter +++| 02635 M00S02431.ssalter +++| BEGIN # KDISDRC # 02636 M00S02432.ssalter +++| 02637 M00S02433.ssalter +++|#
| Line S02434 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02638 M01S02434.ssalte1 ---|** KDIXCIF - DISPLAY CIF DATA FROM UDT.
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02639 M01S00183.ssalte1 +++|** KDISDRC - DISPLAY DRC DATA FROM UDT. 02640 M00S02435.ssalter +++|* 02641 M00S02436.ssalter +++|* PROC KDISDRC ( INDEX ) 02642 M00S02437.ssalter +++|*
| Line S02438 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02643 M01S02438.ssalte1 ---|* ENTRY - INDEX = DEVICE ADDRESS OF CIF TO DISPLAY.
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02644 M01S00184.ssalte1 +++|* ENTRY - INDEX = DEVICE ADDRESS OF DRC TO DISPLAY. 02645 M00S02439.ssalter +++|*
| Line S02440 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02646 M01S02440.ssalte1 ---|* EXIT - *CU* DISPLAY UPDATED FOR CIF COLUMNS.
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02647 M01S00185.ssalte1 +++|* EXIT - *CU* DISPLAY UPDATED FOR *DRC* COLUMNS. 02648 M00S02441.ssalter +++|* 02649 M00S02442.ssalter +++|# 02650 M00S02443.ssalter +++| 02651 M00S02444.ssalter +++| ITEM INDEX I; # INPUT VARIABLE # 02652 M00S02445.ssalter +++| 02653 M00S02446.ssalter +++|# 02654 M00S02447.ssalter +++|**** PROC KDISDRC - XREF LIST BEGIN. 02655 M00S02448.ssalter +++|# 02656 M00S02449.ssalter +++| 02657 M00S02450.ssalter +++| XREF 02658 M00S02451.ssalter +++| BEGIN 02659 M00S02452.ssalter +++| PROC POKEDIS; # POKE DATA INTO *K* DISPLAY 02660 M00S02453.ssalter +++| BUFFER #
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02661 M01S00186.ssalte1 +++| FUNC XCDD C(10); # CONVERT DECIMAL TO DISP CODE # 02662 M00S02454.ssalter +++| END 02663 M00S02455.ssalter +++| 02664 M00S02456.ssalter +++|# 02665 M00S02457.ssalter +++|* KDISDRC - XREF LIST END. 02666 M00S02458.ssalter +++|# 02667 M00S02459.ssalter +++| 02668 M00S02460.ssalter +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS # 02669 M00S02461.ssalter +++|*CALL,COMBFAS 02670 M00S02462.ssalter +++|*CALL,COMBUDT 02671 M00S02463.ssalter +++|*CALL,COMTALT
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02672 M01S00187.ssalte1 +++| 02673 M01S00188.ssalte1 +++|# 02674 M01S00189.ssalte1 +++|* SWITCH STATEMENT 02675 M01S00190.ssalte1 +++|# 02676 M01S00191.ssalte1 +++| 02677 M01S00192.ssalte1 +++| SWITCH DRCCOLUMN 02678 M01S00193.ssalte1 +++| DRC0, 02679 M01S00194.ssalte1 +++| DRC1, 02680 M01S00195.ssalte1 +++| DRC2, 02681 M01S00196.ssalte1 +++| DRC3; 02682 M00S02464.ssalter +++| CONTROL EJECT; 02683 M00S02465.ssalter +++| 02684 M00S02466.ssalter +++| ITEM COLUMN I; # *K* DISPLAY COLUMN # 02685 M00S02467.ssalter +++| ITEM COLUMNM4 I; # *K* DISPLAY COLUMN # 02686 M00S02468.ssalter +++| ITEM I I; # INTEGER SCRATCH # 02687 M00S02469.ssalter +++| ITEM J I; # LOOP VARIABLE # 02688 M00S02470.ssalter +++| ITEM LINE I; # LINE IN *K* DISPLAY #
| Line S00197 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02689 M01S00197.ssalte1 +++| 02690 M01S00198.ssalte1 +++|# 02691 M01S00199.ssalte1 +++|* CHARACTER MANIPULATION. 02692 M01S00200.ssalte1 +++|# 02693 M01S00201.ssalte1 +++| 02694 M01S00202.ssalte1 +++| ARRAY DRDSCR[0:0] S(1); # FOR DRD ORDINALS > 7 # 02695 M01S00203.ssalte1 +++| BEGIN 02696 M01S00204.ssalte1 +++| ITEM CHAR10 C(00,00,10); 02697 M01S00205.ssalte1 +++| ITEM CHAR2 C(00,48,02); 02698 M01S00206.ssalte1 +++| ITEM CHAR C(00,54,01); 02699 M01S00207.ssalte1 +++| END 02700 M01S00208.ssalte1 +++| 02701 M00S02471.ssalter +++| CONTROL EJECT; 02702 M00S02472.ssalter +++| 02703 M00S02473.ssalter +++|# 02704 M00S02474.ssalter +++|* INITIALIZE *K* DISPLAY COORDINATES. 02705 M00S02475.ssalter +++|# 02706 M00S02476.ssalter +++|
| Line S02477 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02707 M01S02477.ssalte1 ---| IF INDEX EQ 0
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02708 M01S00209.ssalte1 +++| IF (INDEX EQ 0 AND UD$DRCP0[1] EQ 0) ## 02709 M01S00210.ssalte1 +++| OR (INDEX EQ 1 AND UD$DRCP1[1] EQ 0) ## 02710 M01S00211.ssalte1 +++| OR (INDEX EQ 2 AND UD$DRCP2[1] EQ 0) ## 02711 M01S00212.ssalte1 +++| OR (INDEX EQ 3 AND UD$DRCP3[1] EQ 0) 02712 M01S00213.ssalte1 +++| THEN # DRC DOES NOT EXIST ON THIS CU # 02713 M01S00214.ssalte1 +++| BEGIN # SKIP # 02714 M01S00215.ssalte1 +++| RETURN; 02715 M01S00216.ssalte1 +++| END # SKIP # 02716 M01S00217.ssalte1 +++| 02717 M01S00218.ssalte1 +++| IF INDEX GR 1 02718 M01S00219.ssalte1 +++| THEN 02719 M01S00220.ssalte1 +++| BEGIN # ADJUST - EXPANDED CONFIGURATION # 02720 M01S00221.ssalte1 +++| LINE = 8; 02721 M01S00222.ssalte1 +++| COLUMN = 42 + (INDEX-2)*7; 02722 M01S00223.ssalte1 +++| IF INDEX EQ 2 02723 M01S00224.ssalte1 +++| THEN 02724 M01S00225.ssalte1 +++| BEGIN 02725 M01S00226.ssalte1 +++| POKEDIS( LINE , COLUMN , 1 , ALTK$DRC2 ); # SET DRC2 # 02726 M01S00227.ssalte1 +++| END 02727 M01S00228.ssalte1 +++| 02728 M01S00229.ssalte1 +++| ELSE 02729 M01S00230.ssalte1 +++| BEGIN 02730 M01S00231.ssalte1 +++| POKEDIS ( LINE , COLUMN , 1 , ALTK$DRC3 ); # SET DRC3 # 02731 M01S00232.ssalte1 +++| END 02732 M01S00233.ssalte1 +++| 02733 M01S00234.ssalte1 +++| LINE = 10; # FIRST LINE OF DRD-S # 02734 M01S00235.ssalte1 +++| SLOWFOR J = (MAX$DRD + 1) STEP 1 UNTIL MAX$DRDDA 02735 M01S00236.ssalte1 +++| DO # RESET TO SECOND DRD GROUP # 02736 M01S00237.ssalte1 +++| BEGIN # RESET # 02737 M01S00238.ssalte1 +++| IF J LS 10 02738 M01S00239.ssalte1 +++| THEN # DRD IS ONE DIGIT # 02739 M01S00240.ssalte1 +++| BEGIN # ONE # 02740 M01S00241.ssalte1 +++| CHAR10 = XCDD(J); 02741 M01S00242.ssalte1 +++| POKEDIS(LINE,COLUMN,1,CHAR); 02742 M01S00243.ssalte1 +++| END # ONE # 02743 M01S00244.ssalte1 +++| 02744 M01S00245.ssalte1 +++| ELSE # DRD IS TWO DIGITS # 02745 M01S00246.ssalte1 +++| BEGIN # TWO # 02746 M01S00247.ssalte1 +++| CHAR10 = XCDD(J); 02747 M01S00248.ssalte1 +++| POKEDIS(LINE,COLUMN,2,CHAR2); 02748 M01S00249.ssalte1 +++| END # TWO # 02749 M01S00250.ssalte1 +++| 02750 M01S00251.ssalte1 +++| LINE = LINE + 1; 02751 M01S00252.ssalte1 +++| END # RESET # 02752 M01S00253.ssalte1 +++| 02753 M01S00254.ssalte1 +++| END # ADJUST - EXPANDED CONFIGURATION # 02754 M01S00255.ssalte1 +++| 02755 M01S00256.ssalte1 +++| IF INDEX EQ 0 ## 02756 M01S00257.ssalte1 +++| OR INDEX EQ 2 02757 M01S00258.ssalte1 +++| 02758 M00S02478.ssalter +++| THEN 02759 M00S02479.ssalter +++| BEGIN
| Line S02480 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02760 M01S02480.ssalte1 ---| COLUMN = 43; # COLUMN FOR *DRC0* DATA #
| Line S00259 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02761 M01S00259.ssalte1 +++| COLUMN = 43; # COLUMN FOR DRC0/DRC2 DATA # 02762 M00S02481.ssalter +++| COLUMNM4 = 39; 02763 M00S02482.ssalter +++| END 02764 M00S02483.ssalter +++| 02765 M00S02484.ssalter +++| ELSE 02766 M00S02485.ssalter +++| BEGIN
| Line S02486 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02767 M01S02486.ssalte1 ---| COLUMN = 50; # COLUMN FOR *DRC1* DATA #
| Line S00260 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02768 M01S00260.ssalte1 +++| COLUMN = 50; # COLUMN FOR DRC1/DRC3 DATA # 02769 M00S02487.ssalter +++| COLUMNM4 = 46;
| Line S02488 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02770 M01S02488.ssalte1 ---| GOTO DRC1; 02771 M00S02489.ssalter +++| END 02772 M00S02490.ssalter +++|
| Line S00261 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02773 M01S00261.ssalte1 +++| GOTO DRCCOLUMN[INDEX]; 02774 M01S00262.ssalte1 +++| 02775 M01S00263.ssalte1 +++|DRC0: 02776 M00S02491.ssalter +++|#
| Line S02492 Modification History | |
|---|---|
M01 (Removed by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02777 M01S02492.ssalte1 ---|* LOOP FOR EACH DRD
| Line S00264 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02778 M01S00264.ssalte1 +++|* LOOP FOR EACH DRD ON DRC0 02779 M00S02493.ssalter +++|# 02780 M00S02494.ssalter +++| 02781 M00S02495.ssalter +++| SLOWFOR J = 0 STEP 1 UNTIL MAX$DRD 02782 M00S02496.ssalter +++| DO 02783 M00S02497.ssalter +++| BEGIN # DRD TESTING # 02784 M00S02498.ssalter +++| LINE = J + 10; 02785 M00S02499.ssalter +++| IF B< (J*6)+I+PATH$DF"U$EXISTS", 1>UD$DRCP0[1] EQ 0 02786 M00S02500.ssalter +++| THEN 02787 M00S02501.ssalter +++| BEGIN 02788 M00S02502.ssalter +++| POKEDIS ( LINE, COLUMNM4, 5, ALTK$B5 ); # BLANK FIELD # 02789 M00S02503.ssalter +++| TEST J; 02790 M00S02504.ssalter +++| END 02791 M00S02505.ssalter +++| 02792 M00S02506.ssalter +++| IF B< (J*6)+I+PATH$DF"U$RQ$DIAG", 1>UD$DRCP0[1] NQ 0 02793 M00S02507.ssalter +++| THEN 02794 M00S02508.ssalter +++| BEGIN 02795 M00S02509.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # SET DIAG MODE # 02796 M00S02510.ssalter +++| TEST J; 02797 M00S02511.ssalter +++| END 02798 M00S02512.ssalter +++| 02799 M00S02513.ssalter +++| IF B< (J*6)+I+PATH$DF"U$ON", 1>UD$DRCP0[1] NQ 0 02800 M00S02514.ssalter +++| THEN 02801 M00S02515.ssalter +++| BEGIN 02802 M00S02516.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 02803 M00S02517.ssalter +++| TEST J; 02804 M00S02518.ssalter +++| END 02805 M00S02519.ssalter +++| 02806 M00S02520.ssalter +++| ELSE 02807 M00S02521.ssalter +++| BEGIN 02808 M00S02522.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MODE # 02809 M00S02523.ssalter +++| END 02810 M00S02524.ssalter +++| 02811 M00S02525.ssalter +++| END # DRD TESTING # 02812 M00S02526.ssalter +++| 02813 M00S02527.ssalter +++| RETURN; 02814 M00S02528.ssalter +++| 02815 M00S02529.ssalter +++|DRC1: 02816 M00S02530.ssalter +++| 02817 M00S02531.ssalter +++|# 02818 M00S02532.ssalter +++|* LOOP FOR EACH DRD ON DRC1 02819 M00S02533.ssalter +++|# 02820 M00S02534.ssalter +++| 02821 M00S02535.ssalter +++| SLOWFOR J = 0 STEP 1 UNTIL MAX$DRD 02822 M00S02536.ssalter +++| DO 02823 M00S02537.ssalter +++| BEGIN # DRD TESTING FOR DRC1 # 02824 M00S02538.ssalter +++| LINE = J + 10; 02825 M00S02539.ssalter +++| IF B< (J*6)+I+PATH$DF"U$EXISTS", 1 >UD$DRCP1[1] EQ 0 02826 M00S02540.ssalter +++| THEN 02827 M00S02541.ssalter +++| BEGIN 02828 M00S02542.ssalter +++| POKEDIS ( LINE, COLUMNM4, 5, ALTK$B5 ); # BLANK FIELD # 02829 M00S02543.ssalter +++| TEST J; 02830 M00S02544.ssalter +++| END 02831 M00S02545.ssalter +++| 02832 M00S02546.ssalter +++| IF B< (J*6)+I+PATH$DF"U$RQ$DIAG", 1 >UD$DRCP1[1] NQ 0 02833 M00S02547.ssalter +++| THEN 02834 M00S02548.ssalter +++| BEGIN 02835 M00S02549.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # SET DIAG MODE # 02836 M00S02550.ssalter +++| TEST J; 02837 M00S02551.ssalter +++| END 02838 M00S02552.ssalter +++| 02839 M00S02553.ssalter +++| IF B< (J*6)+I+PATH$DF"U$ON", 1 >UD$DRCP1[1] NQ 0 02840 M00S02554.ssalter +++| THEN 02841 M00S02555.ssalter +++| BEGIN 02842 M00S02556.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 02843 M00S02557.ssalter +++| TEST J; 02844 M00S02558.ssalter +++| END 02845 M00S02559.ssalter +++| 02846 M00S02560.ssalter +++| ELSE 02847 M00S02561.ssalter +++| BEGIN 02848 M00S02562.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MODE # 02849 M00S02563.ssalter +++| END 02850 M00S02564.ssalter +++| 02851 M00S02565.ssalter +++| END # DRD TESTING FOR DRC1 # 02852 M00S02566.ssalter +++|
| Line S00265 Modification History | |
|---|---|
M01 (Added by) | ssalte1 |
Seq # *Modification Id* Act ----------------------------+ 02853 M01S00265.ssalte1 +++| RETURN; 02854 M01S00266.ssalte1 +++|DRC2: 02855 M01S00267.ssalte1 +++|# 02856 M01S00268.ssalte1 +++|* LOOP FOR EACH DRD ON DRC2 02857 M01S00269.ssalte1 +++|# 02858 M01S00270.ssalte1 +++| 02859 M01S00271.ssalte1 +++| SLOWFOR J = 0 STEP 1 UNTIL 1 02860 M01S00272.ssalte1 +++| DO 02861 M01S00273.ssalte1 +++| BEGIN #DRD TESTING FOR DRC 2 # 02862 M01S00274.ssalte1 +++| LINE = J + 10; 02863 M01S00275.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$EXISTS", 1 >UD$DRCP2[1] EQ 0 02864 M01S00276.ssalte1 +++| THEN 02865 M01S00277.ssalte1 +++| BEGIN 02866 M01S00278.ssalte1 +++| POKEDIS ( LINE, COLUMNM4, 5, ALTK$B5 ); # BLANK FIELD # 02867 M01S00279.ssalte1 +++| TEST J; 02868 M01S00280.ssalte1 +++| END 02869 M01S00281.ssalte1 +++| 02870 M01S00282.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$RQ$DIAG", 1 >UD$DRCP2[1] NQ 0 02871 M01S00283.ssalte1 +++| THEN 02872 M01S00284.ssalte1 +++| BEGIN 02873 M01S00285.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # SET DIAG MODE # 02874 M01S00286.ssalte1 +++| TEST J; 02875 M01S00287.ssalte1 +++| END 02876 M01S00288.ssalte1 +++| 02877 M01S00289.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$ON", 1 >UD$DRCP2[1] NQ 0 02878 M01S00290.ssalte1 +++| THEN 02879 M01S00291.ssalte1 +++| BEGIN 02880 M01S00292.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 02881 M01S00293.ssalte1 +++| TEST J; 02882 M01S00294.ssalte1 +++| END 02883 M01S00295.ssalte1 +++| 02884 M01S00296.ssalte1 +++| ELSE 02885 M01S00297.ssalte1 +++| BEGIN 02886 M01S00298.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MODE # 02887 M01S00299.ssalte1 +++| END 02888 M01S00300.ssalte1 +++| 02889 M01S00301.ssalte1 +++| END # DRD TESTING FOR DRC2 # 02890 M01S00302.ssalte1 +++| COLUMN = COLUMN + 1; 02891 M01S00303.ssalte1 +++| SLOWFOR J = 2 STEP 1 UNTIL MAX$DRD 02892 M01S00304.ssalte1 +++| DO 02893 M01S00305.ssalte1 +++| BEGIN # DRD TESTING # 02894 M01S00306.ssalte1 +++| LINE = J + 10; 02895 M01S00307.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$EXISTS", 1 >UD$DRCP2[1] EQ 0 02896 M01S00308.ssalte1 +++| THEN 02897 M01S00309.ssalte1 +++| BEGIN 02898 M01S00310.ssalte1 +++| POKEDIS ( LINE, COLUMNM4, 6, ALTK$B6 ); # BLANK FIELD # 02899 M01S00311.ssalte1 +++| TEST J; 02900 M01S00312.ssalte1 +++| END 02901 M01S00313.ssalte1 +++| 02902 M01S00314.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$RQ$DIAG", 1 >UD$DRCP2[1] NQ 0 02903 M01S00315.ssalte1 +++| THEN 02904 M01S00316.ssalte1 +++| BEGIN 02905 M01S00317.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # SET DIAG MODE # 02906 M01S00318.ssalte1 +++| TEST J; 02907 M01S00319.ssalte1 +++| END 02908 M01S00320.ssalte1 +++| 02909 M01S00321.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$ON", 1 >UD$DRCP2[1] NQ 0 02910 M01S00322.ssalte1 +++| THEN 02911 M01S00323.ssalte1 +++| BEGIN 02912 M01S00324.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 02913 M01S00325.ssalte1 +++| TEST J; 02914 M01S00326.ssalte1 +++| END 02915 M01S00327.ssalte1 +++| 02916 M01S00328.ssalte1 +++| ELSE 02917 M01S00329.ssalte1 +++| BEGIN 02918 M01S00330.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MODE # 02919 M01S00331.ssalte1 +++| END 02920 M01S00332.ssalte1 +++| 02921 M01S00333.ssalte1 +++| END # DRD TESTING FOR DRC2 # 02922 M01S00334.ssalte1 +++| 02923 M01S00335.ssalte1 +++| RETURN; 02924 M01S00336.ssalte1 +++|DRC3: 02925 M01S00337.ssalte1 +++| 02926 M01S00338.ssalte1 +++|# 02927 M01S00339.ssalte1 +++|* LOOP FOR EACH DRD ON DRC 3 02928 M01S00340.ssalte1 +++|# 02929 M01S00341.ssalte1 +++| 02930 M01S00342.ssalte1 +++| SLOWFOR J = 0 STEP 1 UNTIL 1 02931 M01S00343.ssalte1 +++| DO 02932 M01S00344.ssalte1 +++| BEGIN # DRD TESTING # 02933 M01S00345.ssalte1 +++| LINE = J + 10; 02934 M01S00346.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$EXISTS", 1 >UD$DRCP3[1] EQ 0 02935 M01S00347.ssalte1 +++| THEN 02936 M01S00348.ssalte1 +++| BEGIN 02937 M01S00349.ssalte1 +++| POKEDIS ( LINE, COLUMNM4, 5, ALTK$B5 ); # BLANK FIELD # 02938 M01S00350.ssalte1 +++| TEST J; 02939 M01S00351.ssalte1 +++| END 02940 M01S00352.ssalte1 +++| 02941 M01S00353.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$RQ$DIAG", 1 >UD$DRCP3[1] NQ 0 02942 M01S00354.ssalte1 +++| THEN 02943 M01S00355.ssalte1 +++| BEGIN 02944 M01S00356.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # SET DIAG MODE # 02945 M01S00357.ssalte1 +++| TEST J; 02946 M01S00358.ssalte1 +++| END 02947 M01S00359.ssalte1 +++| 02948 M01S00360.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$ON", 1 >UD$DRCP3[1] NQ 0 02949 M01S00361.ssalte1 +++| THEN 02950 M01S00362.ssalte1 +++| BEGIN 02951 M01S00363.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 02952 M01S00364.ssalte1 +++| TEST J; 02953 M01S00365.ssalte1 +++| END 02954 M01S00366.ssalte1 +++| 02955 M01S00367.ssalte1 +++| ELSE 02956 M01S00368.ssalte1 +++| BEGIN 02957 M01S00369.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MODE # 02958 M01S00370.ssalte1 +++| END 02959 M01S00371.ssalte1 +++| 02960 M01S00372.ssalte1 +++| END # DRD TESTING FOR DRC3 # 02961 M01S00373.ssalte1 +++| 02962 M01S00374.ssalte1 +++| COLUMN = COLUMN + 1; # PRESET FOR 2-DIGIT DRD-S # 02963 M01S00375.ssalte1 +++| SLOWFOR J = 2 STEP 1 UNTIL MAX$DRD 02964 M01S00376.ssalte1 +++| DO 02965 M01S00377.ssalte1 +++| BEGIN # DRD TESTING # 02966 M01S00378.ssalte1 +++| LINE = J + 10; 02967 M01S00379.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$EXISTS", 1 >UD$DRCP3[1] EQ 0 02968 M01S00380.ssalte1 +++| THEN 02969 M01S00381.ssalte1 +++| BEGIN 02970 M01S00382.ssalte1 +++| POKEDIS ( LINE, COLUMNM4, 6, ALTK$B6 ); # BLANK FIELD # 02971 M01S00383.ssalte1 +++| TEST J; 02972 M01S00384.ssalte1 +++| END 02973 M01S00385.ssalte1 +++| 02974 M01S00386.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$RQ$DIAG", 1 >UD$DRCP3[1] NQ 0 02975 M01S00387.ssalte1 +++| THEN 02976 M01S00388.ssalte1 +++| BEGIN 02977 M01S00389.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # SET DIAG MODE # 02978 M01S00390.ssalte1 +++| TEST J; 02979 M01S00391.ssalte1 +++| END 02980 M01S00392.ssalte1 +++| 02981 M01S00393.ssalte1 +++| IF B< (J*6)+I+PATH$DF"U$ON", 1 >UD$DRCP3[1] NQ 0 02982 M01S00394.ssalte1 +++| THEN 02983 M01S00395.ssalte1 +++| BEGIN 02984 M01S00396.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 02985 M01S00397.ssalte1 +++| TEST J; 02986 M01S00398.ssalte1 +++| END 02987 M01S00399.ssalte1 +++| 02988 M01S00400.ssalte1 +++| ELSE 02989 M01S00401.ssalte1 +++| BEGIN 02990 M01S00402.ssalte1 +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MODE # 02991 M01S00403.ssalte1 +++| END 02992 M01S00404.ssalte1 +++| 02993 M01S00405.ssalte1 +++| END # DRD TESTING FOR DRC3 # 02994 M00S02567.ssalter +++| END # KDSIDRC # 02995 M00S02568.ssalter +++| 02996 M00S02569.ssalter +++| TERM 02997 M00S02570.ssalter +++| 02998 M00S02571.ssalter +++|PROC KDISDTX ( INDEX ); 02999 M00S02572.ssalter +++|# TITLE KDISDTX - DISPLAY DTI/DTO DATA FROM UDT. # 03000 M00S02573.ssalter +++| 03001 M00S02574.ssalter +++| BEGIN # KDISDTX # 03002 M00S02575.ssalter +++| 03003 M00S02576.ssalter +++|# 03004 M00S02577.ssalter +++|** KDISDTX - DISPLAY DTI/DTO DATA FROM UDT. 03005 M00S02578.ssalter +++|* 03006 M00S02579.ssalter +++|* PROC KDISDTX ( INDEX ) 03007 M00S02580.ssalter +++|* 03008 M00S02581.ssalter +++|* ENTRY - INDEX = DEVICE ADDRESS OF DTI/DTO TO DISPLAY. 03009 M00S02582.ssalter +++|* 03010 M00S02583.ssalter +++|* EXIT - *CU* DISPLAY UPDATED FOR DTI/DTO COLUMNS. 03011 M00S02584.ssalter +++|* 03012 M00S02585.ssalter +++|# 03013 M00S02586.ssalter +++| 03014 M00S02587.ssalter +++| ITEM INDEX I; # INPUT VARIABLE # 03015 M00S02588.ssalter +++| 03016 M00S02589.ssalter +++|# 03017 M00S02590.ssalter +++|**** PROC KDISDTX - XREF LIST BEGIN. 03018 M00S02591.ssalter +++|# 03019 M00S02592.ssalter +++| 03020 M00S02593.ssalter +++| XREF 03021 M00S02594.ssalter +++| BEGIN 03022 M00S02595.ssalter +++| PROC POKEDIS; # POKE DATA INTO *K* DISPLAY 03023 M00S02596.ssalter +++| BUFFER # 03024 M00S02597.ssalter +++| PROC KDISDIF; # DISPLAY DIF STATUS # 03025 M00S02598.ssalter +++| END 03026 M00S02599.ssalter +++| 03027 M00S02600.ssalter +++|# 03028 M00S02601.ssalter +++|* KDISDTX - XREF LIST END. 03029 M00S02602.ssalter +++|# 03030 M00S02603.ssalter +++| 03031 M00S02604.ssalter +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS # 03032 M00S02605.ssalter +++|*CALL,COMBFAS 03033 M00S02606.ssalter +++|*CALL,COMBUDT 03034 M00S02607.ssalter +++|*CALL,COMTALT 03035 M00S02608.ssalter +++| CONTROL EJECT; 03036 M00S02609.ssalter +++| 03037 M00S02610.ssalter +++| ITEM COLUMN I; # *K* DISPLAY COLUMN # 03038 M00S02611.ssalter +++| ITEM COLUMNM4 I; # *K* DISPLAY COLUMN # 03039 M00S02612.ssalter +++| ITEM I I; # INTEGER SCRATCH # 03040 M00S02613.ssalter +++| ITEM J I; # LOOP VARIABLE # 03041 M00S02614.ssalter +++| ITEM LINE I; # LINE IN *K* DISPLAY # 03042 M00S02615.ssalter +++| CONTROL EJECT; 03043 M00S02616.ssalter +++| 03044 M00S02617.ssalter +++|# 03045 M00S02618.ssalter +++|* INITIALIZE *K* DISPLAY COORDINATES. 03046 M00S02619.ssalter +++|# 03047 M00S02620.ssalter +++| 03048 M00S02621.ssalter +++| IF INDEX LQ MAX$DTI 03049 M00S02622.ssalter +++| THEN 03050 M00S02623.ssalter +++| BEGIN 03051 M00S02624.ssalter +++| COLUMN = 22; # COLUMN FOR *DTI* DATA # 03052 M00S02625.ssalter +++| COLUMNM4 = 18; 03053 M00S02626.ssalter +++| END 03054 M00S02627.ssalter +++| 03055 M00S02628.ssalter +++| ELSE 03056 M00S02629.ssalter +++| BEGIN 03057 M00S02630.ssalter +++| COLUMN = 29; # COLUMN FO *DTO* DATA # 03058 M00S02631.ssalter +++| COLUMNM4 = 25; 03059 M00S02632.ssalter +++| GOTO DTO; # PROCESS *DTO* REQUEST # 03060 M00S02633.ssalter +++| END 03061 M00S02634.ssalter +++| 03062 M00S02635.ssalter +++| I = INDEX*12; # POSITION TO CORRECT FIELD # 03063 M00S02636.ssalter +++| 03064 M00S02637.ssalter +++|# 03065 M00S02638.ssalter +++|* LOOP FOR EACH DTI 03066 M00S02639.ssalter +++|# 03067 M00S02640.ssalter +++| 03068 M00S02641.ssalter +++| SLOWFOR J = 0 STEP 1 UNTIL MAX$DIF 03069 M00S02642.ssalter +++| DO 03070 M00S02643.ssalter +++| BEGIN # DTI TESTING # 03071 M00S02644.ssalter +++| LINE = J + 10; 03072 M00S02645.ssalter +++| IF INDEX EQ 1 03073 M00S02646.ssalter +++| THEN 03074 M00S02647.ssalter +++| BEGIN # ADJUST FOR THE DISPLAY # 03075 M00S02648.ssalter +++| LINE = LINE + 5; 03076 M00S02649.ssalter +++| END # ADJUST FOR THE DISPLAY # 03077 M00S02650.ssalter +++| 03078 M00S02651.ssalter +++| 03079 M00S02652.ssalter +++| KDISDIF ( J ); # DISPLAY DIF ON OUT # 03080 M00S02653.ssalter +++| IF B< (J*6)+I+PATH$DF"U$EXISTS", 1>UD$DTI[1] EQ 0 03081 M00S02654.ssalter +++| THEN 03082 M00S02655.ssalter +++| BEGIN 03083 M00S02656.ssalter +++| POKEDIS ( LINE, COLUMNM4, 5, ALTK$B5 ); # BLANK FIELD # 03084 M00S02657.ssalter +++| TEST J; 03085 M00S02658.ssalter +++| END 03086 M00S02659.ssalter +++| 03087 M00S02660.ssalter +++| IF B< (J*6)+I+PATH$DF"U$RQ$DIAG", 1>UD$DTI[1] NQ 0 03088 M00S02661.ssalter +++| THEN 03089 M00S02662.ssalter +++| BEGIN 03090 M00S02663.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # SET DIAG MODE # 03091 M00S02664.ssalter +++| TEST J; 03092 M00S02665.ssalter +++| END 03093 M00S02666.ssalter +++| 03094 M00S02667.ssalter +++| IF B< (J*6)+I+PATH$DF"U$ON", 1>UD$DTI[1] NQ 0 03095 M00S02668.ssalter +++| THEN 03096 M00S02669.ssalter +++| BEGIN 03097 M00S02670.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 03098 M00S02671.ssalter +++| TEST J; 03099 M00S02672.ssalter +++| END 03100 M00S02673.ssalter +++| 03101 M00S02674.ssalter +++| ELSE 03102 M00S02675.ssalter +++| BEGIN 03103 M00S02676.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MD # 03104 M00S02677.ssalter +++| END 03105 M00S02678.ssalter +++| 03106 M00S02679.ssalter +++| END # DTI TESTING # 03107 M00S02680.ssalter +++| 03108 M00S02681.ssalter +++| RETURN; 03109 M00S02682.ssalter +++| 03110 M00S02683.ssalter +++|DTO: 03111 M00S02684.ssalter +++| 03112 M00S02685.ssalter +++| INDEX = INDEX - 2; 03113 M00S02686.ssalter +++| I = INDEX*12; 03114 M00S02687.ssalter +++| SLOWFOR J = 0 STEP 1 UNTIL MAX$DIF 03115 M00S02688.ssalter +++| DO 03116 M00S02689.ssalter +++| BEGIN # DTO TESTING # 03117 M00S02690.ssalter +++| LINE = J + 10; 03118 M00S02691.ssalter +++| IF INDEX EQ 1 03119 M00S02692.ssalter +++| THEN 03120 M00S02693.ssalter +++| BEGIN # ADJUST FOR THE DISPLAY # 03121 M00S02694.ssalter +++| LINE = LINE + 5; 03122 M00S02695.ssalter +++| END # ADJUST FOR THE DISPLAY # 03123 M00S02696.ssalter +++| 03124 M00S02697.ssalter +++| KDISDIF ( J ); # DISPLAY DIF ON OUT # 03125 M00S02698.ssalter +++| 03126 M00S02699.ssalter +++| IF B< (J*6)+I+PATH$DF"U$EXISTS", 1>UD$DTO[1] EQ 0 03127 M00S02700.ssalter +++| THEN 03128 M00S02701.ssalter +++| BEGIN 03129 M00S02702.ssalter +++| POKEDIS ( LINE, COLUMNM4, 5, ALTK$B5 ); # BLANK FIELD # 03130 M00S02703.ssalter +++| TEST J; 03131 M00S02704.ssalter +++| END 03132 M00S02705.ssalter +++| 03133 M00S02706.ssalter +++| IF B< (J*6)+I+PATH$DF"U$RQ$DIAG", 1>UD$DTO[1] NQ 0 03134 M00S02707.ssalter +++| THEN 03135 M00S02708.ssalter +++| BEGIN 03136 M00S02709.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$MAINT ); # SET DIAG MODE # 03137 M00S02710.ssalter +++| TEST J; 03138 M00S02711.ssalter +++| END 03139 M00S02712.ssalter +++| 03140 M00S02713.ssalter +++| IF B< (J*6)+I+PATH$DF"U$ON", 1>UD$DTO[1] NQ 0 03141 M00S02714.ssalter +++| THEN 03142 M00S02715.ssalter +++| BEGIN 03143 M00S02716.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$ONLINE ); # ONLINE MODE # 03144 M00S02717.ssalter +++| TEST J; 03145 M00S02718.ssalter +++| END 03146 M00S02719.ssalter +++| 03147 M00S02720.ssalter +++| ELSE 03148 M00S02721.ssalter +++| BEGIN 03149 M00S02722.ssalter +++| POKEDIS ( LINE, COLUMN, 1, ALTK$OFFLINE ); # OFFLINE MD # 03150 M00S02723.ssalter +++| END 03151 M00S02724.ssalter +++| 03152 M00S02725.ssalter +++| END # DTO TESTING # 03153 M00S02726.ssalter +++| 03154 M00S02727.ssalter +++| INDEX = INDEX +2; 03155 M00S02728.ssalter +++| 03156 M00S02729.ssalter +++| END # KDISDTX # 03157 M00S02730.ssalter +++| 03158 M00S02731.ssalter +++| TERM 03159 M00S02732.ssalter +++|PROC POKEDIS ( LINE, CHAR, COUNT, VALUE ); 03160 M00S02733.ssalter +++| 03161 M00S02734.ssalter +++|# TITLE POKEDIS - SET VALUE IN DISPLAY. # 03162 M00S02735.ssalter +++| 03163 M00S02736.ssalter +++| BEGIN # POKEDIS # 03164 M00S02737.ssalter +++| 03165 M00S02738.ssalter +++|# 03166 M00S02739.ssalter +++|** POKEDIS - SET CHARACTER VALUE IN DISPLAY. 03167 M00S02740.ssalter +++|* 03168 M00S02741.ssalter +++|* *POKEDIS* POKES A CHARACTER INTO AN EXISTING 03169 M00S02742.ssalter +++|* *SM* OR *CU* DIPLAY. THE CHARACTER INIDICATES THE 03170 M00S02743.ssalter +++|* CURRENT OR REQUESTED STATE OF ONE OF PATHS/NODES 03171 M00S02744.ssalter +++|* IN THE M860 CURRENTLY UNDER INSPECTION BY *SSALTER*. 03172 M00S02745.ssalter +++|* 03173 M00S02746.ssalter +++|* ENTRY 03174 M00S02747.ssalter +++|* LINE - ONE OF THE (LF$AL$NLIN) LINES IN THE *K* DISPLAY. 03175 M00S02748.ssalter +++|* CHAR - THE STARTING COLUMN NUMBER TO BE USED. 03176 M00S02749.ssalter +++|* COUNT - THE NUMBER OF CHARACTERS IN THE STRING. 03177 M00S02750.ssalter +++|* VALUE - THE CHARACTER STRING TO BE INSERTED. 03178 M00S02751.ssalter +++|* 03179 M00S02752.ssalter +++|* 03180 M00S02753.ssalter +++|* EXIT 03181 M00S02754.ssalter +++|* 03182 M00S02755.ssalter +++|* CHARACTER(S) POKED INTO THE DISPLAY. 03183 M00S02756.ssalter +++|# 03184 M00S02757.ssalter +++| 03185 M00S02758.ssalter +++|# 03186 M00S02759.ssalter +++|**** PROC POKEDIS - XREF LIST BEGIN. 03187 M00S02760.ssalter +++|# 03188 M00S02761.ssalter +++| 03189 M00S02762.ssalter +++| XREF 03190 M00S02763.ssalter +++| BEGIN 03191 M00S02764.ssalter +++| END 03192 M00S02765.ssalter +++| 03193 M00S02766.ssalter +++|# 03194 M00S02767.ssalter +++|**** PROC POKEDIS - XREF LIST END. 03195 M00S02768.ssalter +++|# 03196 M00S02769.ssalter +++| 03197 M00S02770.ssalter +++| DEF LISTCON #0#; # DO NOT LIST COMMON DECKS # 03198 M00S02771.ssalter +++|*CALL,COMBFAS 03199 M00S02772.ssalter +++|*CALL,COMTALT 03200 M00S02773.ssalter +++| 03201 M00S02774.ssalter +++| ITEM LINE I; # INPUT PARAMETER # 03202 M00S02775.ssalter +++| ITEM CHAR I; # INPUT PARAMETER # 03203 M00S02776.ssalter +++| ITEM COUNT I; # INPUT PARAMETER # 03204 M00S02777.ssalter +++| ITEM VALUE C(10); # INPUT PARAMETER # 03205 M00S02778.ssalter +++| CONTROL EJECT; 03206 M00S02779.ssalter +++| 03207 M00S02780.ssalter +++|# 03208 M00S02781.ssalter +++|* SET CHARACTER(S) INTO DISPLAY 03209 M00S02782.ssalter +++|# 03210 M00S02783.ssalter +++| 03211 M00S02784.ssalter +++| C<CHAR,COUNT>SM$LN[LINE] = VALUE; 03212 M00S02785.ssalter +++| END # POKEDIS # 03213 M00S02786.ssalter +++| 03214 M00S02787.ssalter +++| TERM 03215 M00S02788.ssalter +++|PROC UCPREQ((REQTYPE),(REQCODE),RESPCODE); 03216 M00S02789.ssalter +++|# TITLE UCPREQ - ISSUES TYPE 1 OR 5 UCP REQUEST TO EXEC. # 03217 M00S02790.ssalter +++| 03218 M00S02791.ssalter +++| BEGIN # UCPREQ # 03219 M00S02792.ssalter +++| 03220 M00S02793.ssalter +++|# 03221 M00S02794.ssalter +++|** UCPREQ - ISSUES A TYPE 1 OR 5 UCP REQUEST TO EXEC. 03222 M00S02795.ssalter +++|* 03223 M00S02796.ssalter +++|* PROC UCPREQ((REQTYPE),(REQCODE),RESPCODE) 03224 M00S02797.ssalter +++|* 03225 M00S02798.ssalter +++|* ENTRY (REQTYPE) = REQUEST TYPE. 03226 M00S02799.ssalter +++|* (REQCODE) = REQUEST CODE. 03227 M00S02800.ssalter +++|* (USER$FAM) = FAMILY NAME. 03228 M00S02801.ssalter +++|* (REQID$AL) = REQUESTOR ID. 03229 M00S02802.ssalter +++|* (SSID$AL) = SUBSYSTEM ID. 03230 M00S02803.ssalter +++|* P<CPR> = FWA OF CALLSS PARAMETER BLOCK. 03231 M00S02804.ssalter +++|* 03232 M00S02805.ssalter +++|* EXIT (RESPCODE) = RESPONSE FROM EXEC. 03233 M00S02806.ssalter +++|* 03234 M00S02807.ssalter +++|* MESSAGES SSALTER ABNORMAL, UCPREQ. 03235 M00S02808.ssalter +++|* 03236 M00S02809.ssalter +++|* NOTES THE CALLSS PARAMETER REQUEST BLOCK IS SET 03237 M00S02810.ssalter +++|* UP FOR A TYPE 1 OR TYPE 5 UCP REQUEST AND 03238 M00S02811.ssalter +++|* THE REQUEST IS ISSUED TO EXEC. 03239 M00S02812.ssalter +++|# 03240 M00S02813.ssalter +++| 03241 M00S02814.ssalter +++| ITEM REQTYPE I; # REQUEST TYPE # 03242 M00S02815.ssalter +++| ITEM REQCODE I; # REQUEST CODE # 03243 M00S02816.ssalter +++| ITEM RESPCODE I; # RESPONSE FROM EXEC # 03244 M00S02817.ssalter +++| 03245 M00S02818.ssalter +++|# 03246 M00S02819.ssalter +++|**** PROC UCPREQ - XREF LIST BEGIN. 03247 M00S02820.ssalter +++|# 03248 M00S02821.ssalter +++| 03249 M00S02822.ssalter +++| XREF 03250 M00S02823.ssalter +++| BEGIN 03251 M00S02824.ssalter +++| PROC ABORT; # STOPS PROCESSING # 03252 M00S02825.ssalter +++| PROC CALLSS; # ISSUES A UCP/SCP REQUEST # 03253 M00S02826.ssalter +++| PROC MESSAGE; # DISPLAYS MESSAGES # 03254 M00S02827.ssalter +++| PROC RESTPFP; # RESTORE USER-S *PFP* AND ABORT 03255 M00S02828.ssalter +++| OR RETURN # 03256 M00S02829.ssalter +++| PROC ZFILL; # ZERO FILL A BUFFER # 03257 M00S02830.ssalter +++| END 03258 M00S02831.ssalter +++| 03259 M00S02832.ssalter +++|# 03260 M00S02833.ssalter +++|**** PROC UCPREQ - XREF LIST END. 03261 M00S02834.ssalter +++|# 03262 M00S02835.ssalter +++| 03263 M00S02836.ssalter +++| DEF PROCNAME #"UCPREQ."#; # PROC NAME # 03264 M00S02837.ssalter +++| 03265 M00S02838.ssalter +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 03266 M00S02839.ssalter +++|*CALL COMBFAS 03267 M00S02840.ssalter +++|*CALL COMBCPR 03268 M00S02841.ssalter +++|*CALL COMBPFP 03269 M00S02842.ssalter +++|*CALL,COMBUDT 03270 M00S02843.ssalter +++|*CALL COMSPFM 03271 M00S02844.ssalter +++|*CALL COMTALT 03272 M00S02845.ssalter +++| 03273 M00S02846.ssalter +++| ITEM I I; # LOOP INDUCTION VARIABLE # 03274 M00S02847.ssalter +++| ITEM LOOPC B; # LOOP CONTROL # 03275 M00S02848.ssalter +++| ITEM WORDCOUNT I; # WORD COUNT OF UDT # 03276 M00S02849.ssalter +++| 03277 M00S02850.ssalter +++| CONTROL EJECT; 03278 M00S02851.ssalter +++| 03279 M00S02852.ssalter +++|# 03280 M00S02853.ssalter +++|* ZERO FILL CALLSS PARAMETER BLOCK. 03281 M00S02854.ssalter +++|# 03282 M00S02855.ssalter +++| 03283 M00S02856.ssalter +++| ZFILL ( CPR[0], 1 ); # ZERO FIRST WORD # 03284 M00S02857.ssalter +++| ZFILL ( CPR[3], CPRLEN - 3 ); # ZERO WORDS 4 - CPRLEN # 03285 M00S02858.ssalter +++| 03286 M00S02859.ssalter +++| CPR$RQT[0] = REQTYPE; # SET UP PARAMETER BLOCK # 03287 M00S02860.ssalter +++| CPR$RQC[0] = REQCODE; 03288 M00S02861.ssalter +++| CPR$RQI[0] = REQID$AL; 03289 M00S02862.ssalter +++| CPR$RT[0] = 2; # HAVE SYSTEM CONTROL REQUEST # 03290 M00S02863.ssalter +++| CPR$ADDR2 = LOC(UDT$HDR); 03291 M00S02864.ssalter +++| WORDCOUNT = 0; 03292 M00S02865.ssalter +++| 03293 M00S02866.ssalter +++| IF REQTYPE EQ TYP"TYP1" 03294 M00S02867.ssalter +++| THEN # TYPE 1 REQUEST # 03295 M00S02868.ssalter +++| BEGIN 03296 M00S02869.ssalter +++| CPR$WC[0] = TYP1$WC; 03297 M00S02870.ssalter +++| END 03298 M00S02871.ssalter +++| 03299 M00S02872.ssalter +++| ELSE 03300 M00S02873.ssalter +++| BEGIN # TYPE 5 OR ILLEGAL REQUEST # 03301 M00S02874.ssalter +++| IF REQTYPE EQ TYP"TYP5" 03302 M00S02875.ssalter +++| THEN # TYPE 5 REQUEST # 03303 M00S02876.ssalter +++| BEGIN 03304 M00S02877.ssalter +++| IF REQCODE EQ REQTYP5"SSA$PUDT" 03305 M00S02878.ssalter +++| THEN 03306 M00S02879.ssalter +++| BEGIN 03307 M00S02880.ssalter +++| CPR$ADDR4 = PRULEN; # SET COUNT AT *CPUMTR* MAX # 03308 M00S02881.ssalter +++| CPR$ADDR3 = 0; 03309 M00S02882.ssalter +++| END 03310 M00S02883.ssalter +++| 03311 M00S02884.ssalter +++| CPR$WC[0] = TYP5$WC; 03312 M00S02885.ssalter +++| END 03313 M00S02886.ssalter +++| 03314 M00S02887.ssalter +++| ELSE # ILLEGAL REQUEST TYPE # 03315 M00S02888.ssalter +++| BEGIN 03316 M00S02889.ssalter +++| ALTMSG$PROC[0] = PROCNAME; 03317 M00S02890.ssalter +++| MESSAGE(ALTMSG[0],SYSUDF1); 03318 M00S02891.ssalter +++| RESTPFP(PFP$ABORT); # RESTORE USER-S *PFP* AND ABORT # 03319 M00S02892.ssalter +++| END 03320 M00S02893.ssalter +++| 03321 M00S02894.ssalter +++| END # TYPE 5 OR ILLEGAL REQUEST # 03322 M00S02895.ssalter +++| 03323 M00S02896.ssalter +++| CALLSS(SSID$AL,CPR[0],RCL); 03324 M00S02897.ssalter +++| 03325 M00S02898.ssalter +++| IF CPR$ES[0] EQ 0 03326 M00S02899.ssalter +++| THEN 03327 M00S02900.ssalter +++| BEGIN 03328 M00S02901.ssalter +++| RESPCODE = CPR$RQR[0]; # RETURN RESPONSE FROM EXEC # 03329 M00S02902.ssalter +++| END 03330 M00S02903.ssalter +++| 03331 M00S02904.ssalter +++| ELSE 03332 M00S02905.ssalter +++| BEGIN 03333 M00S02906.ssalter +++| RESPCODE = CPR$ES[0]; # RETURN RESPONSE FROM SYSTEM # 03334 M00S02907.ssalter +++| RETURN; 03335 M00S02908.ssalter +++| END 03336 M00S02909.ssalter +++| 03337 M00S02910.ssalter +++| IF REQTYPE NQ TYP"TYP5" 03338 M00S02911.ssalter +++| THEN 03339 M00S02912.ssalter +++| BEGIN 03340 M00S02913.ssalter +++| RETURN; # RETURN IF NOT *SSA$PUDT* REQ # 03341 M00S02914.ssalter +++| END 03342 M00S02915.ssalter +++| 03343 M00S02916.ssalter +++| 03344 M00S02917.ssalter +++| IF REQCODE NQ REQTYP5"SSA$PUDT" 03345 M00S02918.ssalter +++| THEN 03346 M00S02919.ssalter +++| BEGIN 03347 M00S02920.ssalter +++| RETURN; # RETURN IF NOT PASS UDT REQUEST # 03348 M00S02921.ssalter +++| END 03349 M00S02922.ssalter +++| 03350 M00S02923.ssalter +++| ELSE 03351 M00S02924.ssalter +++| BEGIN 03352 M00S02925.ssalter +++| P<UDT$WORD> = LOC(UDT$HDR); 03353 M00S02926.ssalter +++| WORDCOUNT = UDT$WORDCNT - PRULEN; 03354 M00S02927.ssalter +++| LOOPC = FALSE; 03355 M00S02928.ssalter +++| SLOWFOR I = 0 STEP PRULEN WHILE ( NOT LOOPC ) 03356 M00S02929.ssalter +++| DO 03357 M00S02930.ssalter +++| BEGIN 03358 M00S02931.ssalter +++| CPR$ADDR2 = CPR$ADDR2 + PRULEN; 03359 M00S02932.ssalter +++| CPR$ADDR3 = CPR$ADDR3 + PRULEN; 03360 M00S02933.ssalter +++| IF WORDCOUNT GR PRULEN 03361 M00S02934.ssalter +++| THEN 03362 M00S02935.ssalter +++| BEGIN 03363 M00S02936.ssalter +++| CPR$ADDR4[0] = PRULEN; 03364 M00S02937.ssalter +++| WORDCOUNT = WORDCOUNT - PRULEN; 03365 M00S02938.ssalter +++| END 03366 M00S02939.ssalter +++| 03367 M00S02940.ssalter +++| ELSE 03368 M00S02941.ssalter +++| BEGIN 03369 M00S02942.ssalter +++| CPR$ADDR4[0] = WORDCOUNT; 03370 M00S02943.ssalter +++| LOOPC = TRUE; 03371 M00S02944.ssalter +++| END 03372 M00S02945.ssalter +++| 03373 M00S02946.ssalter +++| CPR$C[0] = FALSE; 03374 M00S02947.ssalter +++| CPR$ES[0] = 0; 03375 M00S02948.ssalter +++| CALLSS ( SSID$AL, CPR[0], RCL ); 03376 M00S02949.ssalter +++| 03377 M00S02950.ssalter +++| TEST I; 03378 M00S02951.ssalter +++| END 03379 M00S02952.ssalter +++| 03380 M00S02953.ssalter +++| IF CPR$ES[0] NQ 0 03381 M00S02954.ssalter +++| THEN 03382 M00S02955.ssalter +++| BEGIN 03383 M00S02956.ssalter +++| RESPCODE = CPR$ES[0]; 03384 M00S02957.ssalter +++| RETURN; 03385 M00S02958.ssalter +++| END 03386 M00S02959.ssalter +++| 03387 M00S02960.ssalter +++| ELSE 03388 M00S02961.ssalter +++| BEGIN 03389 M00S02962.ssalter +++| RESPCODE = CPR$RQR[0]; 03390 M00S02963.ssalter +++| END 03391 M00S02964.ssalter +++| 03392 M00S02965.ssalter +++| END 03393 M00S02966.ssalter +++| 03394 M00S02967.ssalter +++| 03395 M00S02968.ssalter +++| END # UCPREQ # 03396 M00S02969.ssalter +++| 03397 M00S02970.ssalter +++| TERM
cdc/nos2.source/opl.opl871/deck/ssalter.001.txt · Last modified: by 127.0.0.1