000001 : NEWSLETT:,NAME,. ФEBPAЛЬ 87 000002 : C* 000003 : C**************************************** 000004 : C* 000005 : C* O ПЛAHИPOBЩИKE ЗAДAЧ. 000006 : C* ======================= 000007 : C* 000008 : C* ЗAДAЧИ, ЗAПYCKAEMЫE ПOЛЬЗOBATEЛЯMИ C 000009 : C* TEPMИHAЛOB CИCTEMЫ "MYЛЬTИTAЙП", 000010 : C* TAK ЖE, KAK И ЗAДAЧИ, ПPИCЛAHHЫE ПO 000011 : C* KAHAЛAM CBЯЗИ C ПEPИФEPИЙHЫX ЭBM, 000012 : C* A TAKЖE ЗAДAЧИ, BBEДEHHЫE ПO "ПB", 000013 : C* ЗAПИCЫBAЮTCЯ BO BXOДHYЮ OЧEPEДЬ 000014 : C* ПPOГPAMMЫ-ПЛAHИPOBЩИKA (TAK HAЗABAEMЫЙ 000015 : C* ФAЙЛ BBOДA). TAKИM OБPAЗOM, ЗAГPYЗKA 000016 : C* MAШИHЫ ЗAДAЧAMИ OCYЩECTBЛЯETCЯ "ЧEPEЗ 000017 : C* OДHO ГOPЛO", И MOЖET (HAKOHEЦ-TO !) 000018 : C* ПOЛHOCTЬЮ KOHTPOЛИPOBATЬCЯ OПEPATOPOM. 000019 : C* 000020 : C* ПPOГPAMMA-ПЛAHИPOBЩИK ЗAПYCKAETCЯ 000021 : C* ABTOMATИЧECKИ ПPИ BЫЗOBE ДИCПETЧEPA. 000022 : C* ПPИ HEOБXOДИMOCTИ "PYЧHOГO" ЗAПYCKA 000023 : C* ИCПOЛЬЗYЙTE ПPИKAЗ "H". 000024 : C* 000025 : C* KPOME TOГO, ПЛAHИPOBЩИK ПOBTOPHO 000026 : C* ЗAПYCKAET HA CЧET TE ЗAДAЧИ ИЗ ФAЙЛA 000027 : C* BBOДA, KOTOPЫE YЖE БЫЛИ ЗAПYЩEHЫ, HO 000028 : C* HE ДOCЧИTAЛИCЬ ДO KOHЦA ИЗ-ЗA ПEPEBЫЗOBA 000029 : C* ДИCПETЧEPA. 000030 : C* 000031 : C* KЛACCЫ CЧETHЫX KAHAЛOB (ШИФPOB) : 000032 : C* Ш01 - Ш04 : ЗAДAЧИ, BBEДEHHЫE ПO "ПB" 000033 : C* Ш05 - Ш07 : CBЯЗHЫE ЗAДAЧИ 000034 : C* Ш05 - Ш07 : TEPMИHAЛЬHЫE БEЗ ДИAЛOГA 000035 : C* Ш10 - Ш20 : ДИAЛOГOBЫE ЗAДAЧИ. 000036 : C* 000037 : C* ЗAГPYЗKA ЗAДAЧ HA Ш01-Ш20 PAЗPEШAETCЯ 000038 : C* HAБOPOM HA ПYЛЬTE B 25-40 PAЗPЯДAX 000039 : C* 6 TYMБЛEPHOГO PEГИCTPA : 000040 : C* 25 - Ш01, 26 - Ш02, 000041 : C* 27 - Ш03, 28 - Ш04, 000042 : C* 29 - Ш05, 30 - Ш06, 000043 : C* 31 - Ш07, 32 - Ш10, 000044 : C* 33 - Ш11, 34 - Ш12, 000045 : C* 35 - Ш13, 36 - Ш14, 000046 : C* 37 - Ш15, 38 - Ш16, 000047 : C* ECЛИ HИЧEГO HE HAБPAHO - PAЗPEШEHA 000048 : C* ЗAГPYЗKA BCEX CЧETHЫX KAHAЛOB. 000049 : C* 000050 : C* ПЛAHИPOBЩИK ИMEET ДBA PEЖИMA PAБOTЫ : 000051 : C* OTЛAДOЧHЫЙ И CЧETHЫЙ. 000052 : C* 000053 : C***** OTЛAДOЧHЫЙ PEЖИM. BKЛЮЧAETCЯ ДHEM 000054 : C* ПPИ HAЖATOM 6 PAЗPЯДE T.P.-6 000055 : C* 000056 : C* Ш01 ЗAГPYЖAETCЯ ЗAДAЧAMИ C T > 15 MИH. 000057 : C* Ш02 ---"--- ---"--- T < 31 MИH. 000058 : C* Ш03 ---"--- ---"--- T < 11 MИH. 000059 : C* Ш04 ---"--- ---"--- T < 6 MИH. 000060 : C* Ш05-Ш07 ЗAГPYЖAЮTCЯ CBЯЗHЫMИ ИЛИ HEДИA- 000061 : C* ЛOГOBЫMИ ЗAДAЧAMИ, ECЛИ Y HИX T < 11. 000062 : C* Ш10-Ш20 ЗAГPYЖAЮTCЯ ДИAЛOГOBЫMИ ЗAДAЧAMИ 000063 : C* ECЛИ Y HИX T < 11. 000064 : C* 000065 : C**** CЧETHЫЙ PEЖИM. BKЛЮЧAETCЯ BEЧEPOM 000066 : C* ПPИ OTЖATOM 6 PAЗPЯДE T.P.-6 : 000067 : C* 000068 : C* Ш01 ЗAГPYЖAETCЯ ЗAДAЧAMИ C T > 21 MИH. 000069 : C* Ш04 ---"--- ---"--- T < 10 000070 : C* Ш02,Ш03,Ш05-Ш20 ЗAГPYЖAЮTCЯ ЗAДAЧAMИ 000071 : C* B COOTBETCTBИИ C ИX KЛACCAMИ, 000072 : C* БEЗ YЧETA ЗAKAЗAHHOГO BPEMEHИ T. 000073 : C* 000074 : C* 000075 : C**** ПPИ HEOБXOДИMOCTИ OPГAHИЗOBATЬ 000076 : C* BHEOЧEPEДHOЙ ЗAПYCK ЗAДAЧИ C HOMEPOM NN 000077 : C* ПO ФAЙЛY BBOДA, ИCПOЛЬЗYЙTE ПPИKAЗЫ : 000078 : C* NNБП NNПП NNФП 000079 : C* ПO "БП" ЗAДAЧA ЗAПYCKAETCЯ HA ЛЮБOЙ 000080 : C* CBOБOДHЫЙ ШИФP, PAЗPEШEHHЫЙ HA TP-6. 000081 : C* (БEЗYCЛOBHЫЙ ПPИOPИTET). 000082 : C* ПO "ПП" - TAK ЖE, HO BЫБOP ШИФPA ПPO- 000083 : C* ИЗBOДИTCЯ TOЛЬKO ИЗ Ш04-Ш01. 000084 : C* (ПOTOKOBЫЙ ПPИOPИTET). 000085 : C* ПO "ФП" - ЗAПYCK HA Ш01, ECЛИ OH CBOБO- 000086 : C* ДEH И PAЗPEШEH HA TP-6 (ФOHOBЫЙ ПPИOP.) 000087 : C* 000088 : C***************************************** 000089 : C* 000090 : C* O PACПEЧATKE ЛИCTИHГOB. 000091 : C* ======================= 000092 : C* 000093 : C* PACПEЧATKOЙ ЗAHИMAETCЯ CЛYЖEБHAЯ ЗAДAЧA 000094 : C* "BЫBOД". OHA ЗAПYCKAETCЯ ABTOMATИЧECKИ 000095 : C* ПPИ BЫЗOBE ДИCПETЧEPA (ECЛИ HE HAЖAT 42 000096 : C* PAЗPЯД TP-2) ИЛИ BPYЧHYЮ ПPИKAЗOM "P". 000097 : C* 000098 : C* ЗAXBATИB ПEPBOE CBOБOДHOE AЦПY, ЗAДAЧA 000099 : C* BЫBOДA TPEБYET YCTAHOBИTЬ ЛИCT HA AЦПY. 000100 : C* B ЭTO BPEMЯ OHA HAXOДИTCЯ B ЖДYЩEM PE- 000101 : C* ЖИME (XAPAKTEPHO HAЛИЧИE CЛOBA "ЖДY" B 000102 : C* NAME ЗAДAЧИ). B ЖДYЩEM PEЖИME ЛИCTИHГИ 000103 : C* BЫBOДЯTCЯ TOЛЬKO ПO ЭKCПPECC-ПPИKAЗAM. 000104 : C* 000105 : C* A1P (A2P) - YCTAHOBKA ABTOMATИЧECKOГO 000106 : C* PEЖИMA HA AЦПY 1 (2). 000107 : C* Ж1P (Ж2P) - YCTAHOBKA ЖДYЩEГO PEЖИMA. 000108 : C* C1P (C2P) - YCTAHOBKA ЛИCTA ПO ЛИHEЙKE 000109 : C* HA AЦПY 1 (2). 000110 : C* 000111 : C* HAЛИЧИE BCEX ЭTИX ПPИKAЗOB CBЯЗAHO CO 000112 : C* CTPEMЛEHИEM K ЭKOHOMИИ БYMAГИ. ECЛИ B 000113 : C* CИCTEME YCTAHOBЛEH PEЖИM ЭKOHOMИИ БYMA- 000114 : C* ГИ BO BPEMЯ CЧETA ЗAДAЧИ (T.E. ИГHOPИPY- 000115 : C* ЮTCЯ KOMAHДЫ ПEPEXOДA HA HOBЫЙ ЛИCT ИЛИ 000116 : C* ЧACTЬ ЛИCTA), ЭTOT PEЖИM HE OTMEHEH OПE- 000117 : C* PATOPOM (HAЖATИEM 16-ГO PAЗPЯДA HA 6-M 000118 : C* TYMБЛEPHOM PEГИCTPE), A B ПYCKOBOM ПAKE- 000119 : C* TE ПOЛЬЗOBATEЛЯ HET YПPABЛЯЮЩEЙ KAPTЫ 000120 : C* *PAGE:999,LIST - EГO ЛИCTИHГ 000121 : C* "YПЛOTHЯETCЯ". ПOЭTOMY ЗAДAЧA BЫBOДA 000122 : C* CAMA BЫHYЖДEHA CЧИTATЬ CTPOKИ HA ЛИCTE, 000123 : C* A ECЛИ BЫ XOTИTE "ПOДOГHATЬ ЛИCT", TO 000124 : C* BЫ ДOЛЖHЫ ПPEДYПPEДИTЬ EE OБ ЭTOM. 000125 : C* 000126 : C* ИTAK, B CЛYЧAE CБOЯ ЛИCTOBAHИЯ PEKOMEH- 000127 : C* ДYEM TAKYЮ ПOCЛEДOBATEЛЬHOCTЬ ДEЙCTBИЙ: 000128 : C* 1. BЫДATЬ ПPИKAЗ Ж1P (Ж2P) И ДOЖДATЬCЯ 000129 : C* KOHЦA TEKYЩEЙ BЫДAЧИ, ECЛИ OHA ECTЬ. 000130 : C* 2. BЫДATЬ ПPИKAЗ C1P (C2P) 000131 : C* 3. YCTAHOBИTЬ ЛИCT HA AЦПY 1 (2), KAK 000132 : C* OБЫЧHO: CГИБ БYMAГИ ПO ЧEPHOЙ ЛИHИИ. 000133 : C* 4. BЫДATЬ ПPИKAЗ A1P (A2P). 000134 : C* 000135 : C* ПPИHYДИTEЛЬHOE YПЛOTHEHИE ЛИCTИHГOB 000136 : C* MOЖHO OTMEHИTЬ, HAЖAB 16-Й PAЗPЯД TP-6 ! 000137 : C* 000138 : C* 000139 : C*** CHЯTИE ЗAДAЧИ BЫBOДA : K1P (K2P). 000140 : C* 000141 : C* ECЛИ B MOMEHT HAБOPA ПPИKAЗA ПEЧATAETCЯ 000142 : C* ЛИCTИHГ - ЗAДAЧA BЫBOДA ДOПEЧATAET EГO, 000143 : C* И TOЛЬKO ПOTOM OKOHЧИTCЯ. 000144 : C* 000145 : C*** ПPOПYCK TEKYЩEЙ BЫДAЧИ : 1P (2P) 000146 : C* 000147 : C* ПEЧATЬ TEKYЩEГO ЛИCTИHГA ПPEKPAЩAETCЯ, 000148 : C* ПEЧATAETCЯ EГO ПOCЛEДHЯЯ CTPAHИЦA. 000149 : C* ЭTOT ЖE ПPИKAЗ ИCПOЛЬЗYETCЯ KAK OTBET 000150 : C* HA ПPEДЛOЖEHИE ЗAБPATЬ ПEPФOPAЦИЮ. 000151 : C* 000152 : C*** ПOBTOPHЫЙ BЫBOД : CCCNNЭ1P (CCCNNЭ2P) 000153 : C* 000154 : C* CCC = HAЧAЛЬHЫЙ HOMEP CTPAHИЦЫ ЛИCTИHГA 000155 : C* NN = HOMEP ЛИCTИHГA ПO ФAЙЛY BЫBOДA 000156 : C* ПAPAMETP CCC MOЖHO OПYCTИTЬ. 000157 : C* ПEPФOPAЦИЯ ПO ЭTOMY ПPИKAЗY TOЖE ПOBTO- 000158 : C* PЯETCЯ. ECЛИ HAДO ПOBTOPИTЬ TOЛЬKO 000159 : C* ЛИCTИHГ, ИCПOЛЬЗYЙTE ПPИKAЗ : 000160 : C* CCCNNЛ1P (CCCNNЛ2P). 000161 : C* ECЛИ HAДO ПOBTOPИTЬ TOЛЬKO ПEPФOPAЦИЮ, 000162 : C* ИCПOЛЬЗYЙTE ПPИKAЗ: NNП1P (NNП2P). 000163 : C* 000164 : C*** БЛOKИPOBKA ПEPФOPAЦИИ : Л1P (Л2P) 000165 : C* Y BCEX ЗAДAЧ BЫBOДИTCЯ TOЛЬKO ЛИCTИHГ 000166 : C* ПEPФOPAЦИЯ ПPOCTO OTБPACЫBAETCЯ. 000167 : C* 000168 : C*** БЛOKИPOBKA ЛИCTИHГA : П1P (П2P) 000169 : C* HAOБOPOT - BЫДAETCЯ TOЛЬKO ПEPФOPAЦИЯ. 000170 : C* 000171 : C* 000172 : C*** HAПOMИHAEM: ПPEДПOCЛEДHИЙ CИMBOЛ 000173 : C* Y BCEX ПPИKAЗOB - HOMEP AЦПY (1 ИЛИ 2) 000174 : C* ECЛИ 0 - ПPИKAЗ OTHOCИTCЯ K ЛЮБOЙ 000175 : C* ЗAДAЧE BЫBOДA. 000176 : C* 000177 : ,END, 000178 : COMMENT:,NAME,. 000179 : C 000180 : C ЗHAЧEHИE PAЗPЯДOB TYMБЛEPHЫX PEГИCTPOB 000181 : C Д Л Я O C Д Y Б H A 000182 : C 000183 : C 000184 : C 1 Й TYMБЛEPHЫЙ PEГИCTP 000185 : C 000186 : C 48 BBOД C ПACПOPTOM KAK B Д68. 000187 : C 47 OTMEHA MOДEЛИPOBAHИЯ MБ HA ДИCKAX 000188 : C B MOMEHT BЫЗOBA ДИCПETЧEPA. 000189 : C 46-45 БЛOKИPOBKA OПOЗHABAHИЯ ДИCKOB B 000190 : C HAПPABЛEHИЯX 3-4 COOTBETCTBEHHO. 000191 : C 24 ПEЧATЬ MOДEЛEЙ MЛ ПPИ BЫЗOBE ДИCП. 000192 : C 23 БЛOKИPOBKA ЗAПYCKA MYЛЬTИTAЙПA. 000193 : C 16-01 БЛOKИPOBKA ИCПOЛЬЗOBAHИЯ MБ (10-27). 000194 : C ДЛЯ BЫБPOCA ЗAДAЧИ, ЗAЦИKЛИBШEЙCЯ HA 000195 : C MБ, MOЖET ПOTPEБOBATЬCЯ EГO БЛOKИPO- 000196 : C BAHИE HA TP-1. 000197 : C 000198 : C 2-Й TYMБЛEPHЫЙ PEГИCTP 000199 : C 000200 : C 48 KATAЛOГИ BBOДA/BЫBOДA ПPИ HOCИTEЛE. 000201 : C 47 ЧИCTKA KATAЛOГA ABTOBBOДA 000202 : C ПPИ BЫЗOBE ДИCПETЧEPA. 000203 : C 46 ЧИCTKA KATAЛOГA ABTOBЫBOДA 000204 : C ПPИ BЫЗOBE ДИCПETЧEPA. 000205 : C 45 ЧИCTKA KATAЛOГA CБPOШEHHЫX ЗAДAЧ 000206 : C ПPИ BЫЗOBE ДИCПETЧEPA. 000207 : C 44 БЛOKИPOBKA ПEЧATИ OTБPAKOBAHHЫX 000208 : C TPAKTOB ПPИ BЫЗOBE ДИCПETЧEPA. 000209 : C 42 БЛOKИPOBKA ПOИCKA БYФEPOB BBOДA 000210 : C И BЫBOДA И ЗAПYCKA PACПEЧATKИ 000211 : C И PEЖИMA БYФEPИЗAЦИИ BЫBOДA. 000212 : C 41,40 БAPAБAH 21 (22) MOHИTOPHOЙ CИCTEMЫ 000213 : C MOДEЛИPYETCЯ 0-37 (40-77) ЗOHAMИ 000214 : C ДИCKOBOГO ФAЙЛA 9/MONSYS. 000215 : C 39 KATAЛOГ ГPAФИKOB HA CATALO/8 000216 : C 000217 : C 33-31 HOMEP ЭKЗEMПЛЯPA ДИCПETЧEPA (0-7), 000218 : C BЫЗЫBAEMOГO C ДИCKA. CYЩECTBEHHЫ 000219 : C TOЛЬKO B MOMEHT BЫЗOBA. 000220 : C 30 PAЗPEШEHИE CБOPA CTATИCTИKИ 000221 : C ПO TEPMИHAЛЬHЫM ПOЛЬЗOBATEЛЯM. 000222 : C 29-26 БЛOKИPOBKA ПPИBЯЗKИ HOBЫX KAHAЛOB 000223 : C K TEPMИHAЛЬHЫM ПOДCИCTEMAM: 000224 : C 29 - "OPERTERM", 000225 : C 28 - MYЛЬTИTAЙП, 000226 : C 27 - ЭKPAHHЫЙ PEДAKTOP. 000227 : C 26 - MOHИTOP ПOДCИCTEM 000228 : C 06-01 HOMEP OCHOBHOГO OПEPATOPCKOГO TEPMИ- 000229 : C HAЛA B COOTBETCTBИИ C HACTPOЙKOЙ 000230 : C 000231 : C 4 Й TYMБЛEPHЫЙ PEГИCTP 000232 : C 000233 : C 48-44 HE HAЖИMATЬ - BЛИЯЮT HA TPAHCЛЯTOP 000234 : C 24-01 ШKAЛA TEPMИHAЛOB, C KOTOPЫX PAЗPEШEH 000235 : C ЗAПYCK ЗAДAЧ MИHYЯ OЧEPEДЬ BBOДA. 000236 : C (HOMEP PAЗPЯДA COOTBETCTBYET HOMEPY 000237 : C BИPTYAЛЬHOГO KAHAЛA) 000238 : C 000239 : C 5 Й TYMБЛEPHЫЙ PEГИCTP 000240 : C 000241 : C 25 БЛOKИPOBKA ПPOBEPKИ ЧACTOTЫ ПPИ 000242 : C BЫЗOBE ДИCПETЧEPA. 000243 : C 15-01 YKAЗATEЛЬ AДPECA B HEKOTOPЫX ПPИKA- 000244 : C ЗAX. 000245 : C 000246 : C 6 Й TYMБЛEPHЫЙ PEГИCTP 000247 : C 000248 : C 48-45 БЛOKИPOBKA ЛИHИЙ CBЯЗИ TASK70 000249 : C 48 EC-1010 ЛBTA 000250 : C 47 M-6000 OHMY 000251 : C 46 MИHCK-2 PXЛ 000252 : C 45 M-6000 ЛBTA. 000253 : C 40-25 ШKAЛA ШИФPOB ПЛAHИPOBЩИKA 000254 : C 24 БЛOKИPOBKA ПPOBEPKИ PECYPCOB ПPИ 000255 : C PAБOTE ПЛAHИPOBЩИKA 000256 : C 16 ИЗMEHEHИE PEЖИMA ЭKOHOMИИ БYMAГИ 000257 : C BO BPEMЯ CЧETA ЗAДAЧИ 000258 : C 13 ЗAПYCK ПOГИБШИX ЗAДAЧ ИЗ ФAЙЛA 000259 : C BBOДA ПPИ ПEPEBЫЗOBE ДИCПETЧEPA 000260 : C 12-11 ПPИ HAЛИЧИИ MYЛЬTИПЛEKCOPA ГOИ: 000261 : C PAЗPEШEHИE PAБOTЫ MYЛЬTИПЛEKCOPA 000262 : C HA 12-11 P. ПPП 000263 : C 09 БЛOKИPOBKA OЖИДAHИЯ OTBETA OПEPATO- 000264 : C PA ПOCЛE ПEPФOPAЦИИ ПPИ ABTOBЫBOДE. 000265 : C 08 PAЗPEШEHИE OПOЗHABAHИЯ ДИCПAKOBCKИX 000266 : C MAГHИTHЫX ЛEHT. 000267 : C 07 OБЯЗATEЛЬHЫЙ OCTAHOB ПPИ KK И KЧ. 000268 : C 06 PEЖИM OTЛAДKИ ДЛЯ ПЛAHИPOBЩИKA. 000269 : C 05 БEЗYCЛOBHAЯ ПEЧATЬ HA AЦПY ABOCTHOЙ 000270 : C ДИAГHOCTИKИ. 000271 : C 03-01 HOMEP ПPИKAЗA ПPИ BЫДAЧE C ПYЛЬTA 000272 : C 000273 : C 7 Й TYMБЛEPHЫЙ PEГИCTP 000274 : C 000275 : C 48 ПAMЯTЬ 32K. 000276 : C 47 PAБOTAET TOЛЬKO CEГMEHT ПAMЯTИ, 000277 : C BЫБPAHHЫЙ KHOПKOЙ ПCП (ИMEET CMЫCЛ 000278 : C ПPИ ПAMЯTИ 128K, CPAБATЫBAET TOЛЬKO 000279 : C ПPИ ПEPEBЫЗOBE ДИCПETЧEPA). 000280 : C 46-45 БЛOKИPOBKA AЦПY (0,1). 000281 : C 44-43 БЛOKИPOBKA ПИ-80 (0,1). 000282 : C 42-41 БЛOKИPOBKA ПЛ (0-1) 000283 : C 40-39 CЖATИE ЛИCTИHГA HA AЦПY (0-1) 000284 : C 38 БЛOKИPOBKA ПACПOPTA MACCИBA B Э73 000285 : C 36-34 HOMEP MAШИHЫ. 000286 : C 34-33 TAKЖE ПPИЗHAK EC-ПEЧATEЙ BMECTO 000287 : C 0-1X AЦПY, COOTBETCTBEHHO. 000288 : C 32 БЛOKИPOBKA ЗAПИCИ DAYFILE B ФAЙЛ CTATИCTИKИ. 000289 : C 31 БЛOKИPOBKA ПOДBOДA ЛEHT LIBRARY. 000290 : C 30 KAPTA *PASS OБЯЗATEЛЬHA. 000291 : C (ПPOИЗBOДИTCЯ CБOP ПOЛЬЗ.CTATИCTИKИ) 000292 : C 27 BOЗMOЖEH ФOHOBЫЙ ПPИOPИTET ШИФPY 1. 000293 : C 25-03 KYC ДЛЯ BЫЗOBA ДИCПETЧEPA ПO 9ПП. 000294 : C 02 HOMEP ФC (B ДYБHE ПPИЗHAK HE CDC405) 000295 : C 01 HOMEP ЗAПYCKAEMOГO YBBK (ECЛИ 2 ГO- 000296 : C TOBЫ). 000297 : ,END, 000298 : *STRUCT1:,NAME, 000299 : C 000300 : C****** B H И M A H И E 000301 : C 000302 : C BCE ЭKCTPAKOДЫ,KOTOPЫE MOГYT 000303 : C ПPEPЫBATЬCЯ, B TOM ЧИCЛE ИЗ-ЗA 000304 : C OБPAЩEHИЙ ПO MAT. AДPECY ИЛИ 000305 : C ИЗ-ЗA TPACCИPOBKИ, ДOЛЖHЫ BOЗ- 000306 : C BPAЩATЬ YПPABЛEHИE ЧEPEЗ 000307 : C RETURN ИЛИ OUTMACRO 000308 : C ДЛЯ ПPABИЛЬHOЙ PAБOTЫ OTЛAДЧИ- 000309 : C KOB - ИHTEPAKTИBHOГO И ПAKETHOГO 000310 : C 000311 : C****** ECЛИ ДИCПETЧEP HA ДИCKE : 000312 : C B DISPBASE HEOБXOДИMO OTMETИTЬ 2 MБ 000313 : C (HEOБЯЗATEЛЬHO ПOДPЯД), ФИЗИЧECKИ 000314 : C OTCYTCTBYЮЩИX HA MAШИHE. B ДYБHE 000315 : C ЭTO MБ 16 И 17. OБPAЩEHИЯ K ЭTИM MБ 000316 : C ПEPEAДPECYЮTCЯ HA ФAЙЛ 9/MONSYS 000317 : C C 400-Й ЗOHЫ. ДИCПETЧEPCKOE XOЗЯЙCTBO 000318 : C ПOДPAЗДEЛЯETCЯ HA HECKOЛЬKO ЭKCTEHTOB: 000319 : C 400-437 : CБOPKA БЫBШИX CПEЦ-TPAKTOB: 000320 : C 0 : БYФEPHЫЙ TPAKT CTATИCTИKИ 000321 : C 1 : ROLL-TPAKT 000322 : C 2 : PASS'Ы 000323 : C 3-4 : Ф И O 000324 : C 5 : OTДEЛЫ 000325 : C 10-17 : CП ЭKCTPAKOДA 66 000326 : C 20-27 : OБCЛYГA 000327 : C 30 : PAБ. TPAKT ПЛAHИPOBЩИKA 000328 : C 31 : ЛИMИTЫ БYMAГИ 000329 : C 32-33 : FORMMESS 000330 : C 34-36 : ПYCKAЧИ CTAHД.ЗAДAЧ 000331 : C 37 : HOBOCTИ 000332 : C 440-477 : ДИCПETЧEP HOMEP 0 000333 : C 500-... : ДИCПETЧEP HOMEP 1,2,... 000334 : C (CKOЛЬKO XBATИT MECTA) 000335 : C HOMEP ДИCПETЧEPA ПPИ BЫЗOBE C ДИCKA 000336 : C YKAЗЫBAETCЯ B 31-33 P. TP2 000337 : C HACTPOЙKA ДИCПETЧEPA HA MБ 17 (BTOPOЙ 000338 : C ИЗ OTMEЧEHHЫX MБ), A TAKЖE YCTAHOBKA 000339 : C YKAЗATEЛEЙ ROLL-TPAKTA, БYФEPA CTAT-KИ 000340 : C И TAБЛ.PASS-OB HA MБ 16 (ПEPBЫЙ ИЗ 000341 : C OTMEЧEHHЫX MБ) ПPOИЗBOДИTCЯ ABTOMATИ- 000342 : C ЧECKИ ПPИ BЫЗOBE ДИCПETЧEPA C ДИCKA. 000343 : C ПPИ BЫЗOBE ДИCПETЧEPA C БAPAБAHA 000344 : C HEOБXOДИMO OБECПEЧИTЬ HAЛИЧИE PASS'OB 000345 : C HA MБ COГЛACHO YKAЗATEЛЮ B *USESTA. 000346 : C 000347 : C 000348 : C****** ПPИ PAБOTE HECKOЛЬKИX MAШИH 000349 : C C OДHИM K M Д CПEЦ-ФAЙЛЫ 000350 : C OПOЗHAЮTCЯ ПPИ COBПAДEHИИ TPEX 000351 : C ПOCЛEДHИX БИTOB ИMEHИ MASTER C 000352 : C HOMEPOM ЭBM (48-47 P. DISPBASE+6) 000353 : C ФAЙЛЫ 5/D73LIB, 9/MONSYS, 7/M 000354 : C И ФAЙЛЫ C OБCП ЯBЛЯЮTCЯ OБЩИMИ. 000355 : C ЗABEДOMO HE MOГYT БЫTЬ OБЩИMИ 000356 : C CПEЦ.ФAЙЛЫ : 6/D73STA , 10/USESTA 000357 : C 1/ROLLIB , 11/LINBUF 000358 : C A TAKЖE BCE SCRATCH-ФAЙЛЫ . 000359 : C 000360 : C 000361 : C 000362 : C****** B CEHTЯБPE 1984 B Г.AЛMA-ATA 000363 : C И.A.EMEЛИHЫM БЫЛA ПPEДЛOЖEHA ЛEГKO 000364 : C PEAЛИЗYEMAЯ ПEPEПAЙKA B KBY, ПOЗBO- 000365 : C ЛЯЮЩAЯ OCYЩECTBЛЯTЬ OПEPATИBHYЮ 000366 : C ИHФOPMAЦИOHHYЮ CBЯЗЬ MEЖДY ДBYMЯ 000367 : C COCEДHИMИ БЭCM-6. 000368 : C HA ЭTOЙ OCHOBE MOЖHO ЭФФEKTИBHO 000369 : C OPГAHИЗOBATЬ PAБOTY ДBYX MAШИH C 000370 : C OБЩИM KMД (CM. П/П "K COCEДY"). 000371 : C ЗДECЬ MЫ ПEPEЧИCЛИM TO, ЧTO YЖE 000372 : C CДEЛAHO B ДИCПETЧEPE ПO ЭTOMY 000373 : C ПOBOДY : 000374 : C 1. ЛИЧHЫE ФAЙЛЫ ПOЛЬЗOBATEЛEЙ. 000375 : C OПPOC ЗAHЯTOCTИ ПPИ ИX ЗAKAЗE 000376 : C ПPOИЗBOДИTCЯ OДHOBPEMEHHO HA 000377 : C OБOИX CBЯЗAHHЫX MAШИHAX; 000378 : C 2. SCRATCH-ФAЙЛЫ. HA KAЖДOЙ MAШИHE 000379 : C - CBOЙ KOMПЛEKT . 000380 : C 3. CПEЦФAЙЛ 7/M. CИHXPOHИЗAЦИЯ,ИX TИПЫ + ШKAЛA Ф.C. 000381 : C OБECПEЧEHA ЗA CЧET ПPOBEPKИ PASS 000382 : C ПPИ BXOДE B CEAHC MYЛЬTИTAЙПA HA 000383 : C OБOИX CBЯЗAHHЫX MAШИHAX; 000384 : C 4. BBOД,BЫBOД,ГPAФИKA. CИHXPOHИЗAЦИЯ 000385 : C C ПOMOЩЬЮ OБЩИX ДЛЯ OБOИX CBЯЗAHHЫX 000386 : C MAШИH CEMAФOPOB ДOCTYПA K KATAЛOГAM; 000387 : C 000388 : C 000389 : C 000390 : C****** ИHФOPMAЦИOHHOE ПOЛE ДИCПETЧEPA 000391 : C 000392 : *ИПД:LC,BLOCK, 000393 : C--------- HAЧ.HOMEPA ЗAДAЧ PAЗHЫX TИПOB 000394 : 0,CONT,XNF .ДHЗ ПEPBOЙ CЛYЖEБHOЙ 000395 : 1,CONT,XNFM .ДHЗ ПEPBOЙ C ПOЛHЫM ИПЗ 000396 : 2,CONT,XNFD .ДHЗ ПEPBOЙ TEPMИHAЛЬHOЙ 000397 : 3,CONT,XNFB .ДHЗ ПEPBOЙ ПOTOKOBOЙ 000398 : 4,CONT,XNW .ДHЗ 'ЖДY' 000399 : C--------- KOЛИЧECTBA ЗAДAЧ PAЗHЫX TИПOB 000400 : 5,CONT,XNC .K-BO BCEX MAT.ЗAДAЧ 000401 : 6,CONT,XNCM .K-BO ЗAДAЧ C ПOЛHЫM ИПЗ 000402 : 7,CONT,XNSEM .K-BO CEMAФOPOB 000403 : C--------- ШKAЛЫ ЗAДAЧ ПO TИПAM 000404 : 10,CONT,Ш/CЛYЖ .ШK.CЛYЖ.ЗAДAЧ 000405 : 11,CONT,Ш/FULL .ШK.ЗAДAЧ C ПOЛH.ИПЗ 000406 : 12,CONT,Ш/ПOTOK .ШK.ЗAДAЧ ДЛЯ ПOTOKA 000407 : 13,CONT,Ш/ПYCK .ШK.ЗAДAЧ ПO ПYCK MYЛЬTИTAЙПA 000408 : 14,CONT,Ш/OTЛ .ШK.ЗAДAЧ OTЛAДKИ 000409 : 15,CONT,Ш/CBЯ .ШK.CBЯЗHЫX ЗAДAЧ 000410 : 16,CONT,*INCOGNI.ШK.ЗAДAЧ 'ИHKOГHИTO' 000411 : C--------- PAЗHЫE ЗAДABAEMЫE XAPAKTEPИCTИKИ 000412 : 17,CONT,MБД .ШK.MOДEЛИPYEMЫX MAT.MБ 000413 : 20,CONT,LFATA .ДЛИHA TAБЛИЦЫ ФAЙЛOB 000414 : 21,CONT,XLTDIS .ДЛИHA TAБЛИЦЫ ЭKCTEHTOB 000415 : 22,CONT,XLTPH .K-BO ФИЗ.ЛИCTOB 000416 : 23,CONT,Ш/ДИCП .ШK.ДИCПETЧEPCKИX ЗAДAЧ 000417 : 24,CONT,INDI SC .ШK.ИHДИKAЦИИ ЗAДAЧ 000418 : 25,CONT,INDI M .MACKA PACПAKOBKИ 000419 : 26,CONT,XLSMB .ДЛИHA БYФEPA PEДAKTИP. 000420 : 27,CONT,XLQTRA.ДЛИHA OЧ.OБMEHOB 000421 : 30,CONT,XLQTIM.ДЛИHA OЧ.TAЙMEPOB 000422 : 31,CONT,(2).PEЗEPB 000423 : C--------- PAЗHЫE ФЛAГИ ДИCПETЧEPA 000424 : 33,CONT,MONOS .ШK.MOHOП.MД 000425 : 34,CONT,FREXT .CЧ-K CBOБ.ЭKCTEHTOB 000426 : 35,CONT,LISTFLAG.ШK.БYФEPИЗYEMЫX ЗAДAЧ 000427 : 36,CONT,(1) .PEЗEPB 000428 : 37,CONT,C/BUF .ШK.БYФEPИЗ.BЫBOДA 000429 : 40,CONT,BATCH .PEЖИMЫ БYФEPИЗAЦИИ BBOДA 000430 : 41,CONT,BATCH/S .ШK.CTOП-ПOTOKOB 000431 : 42,CONT,ИПЗ/ECTЬ.ФЛAГИ: ИПЗ B ПAMЯTИ 000432 : 43,CONT,ШK/TП.ПPИOP.ПЛAH-KA 000433 : 44,CONT,PRTFLAG .ФЛAГ BЫЧИCЛEHИЯ ПPИOP.ЗAДAЧ 000434 : 45,CONT,STARTCW .ШK.CTAPTYЮЩИX ЗAДAЧ 000435 : 46,CONT,SC/SWOUT.CHЯTЬ ПOДKAЧKOЙ 000436 : 47,CONT,ШK/ФП.ПPИOPИTETЫ 000437 : 50,CONT,ШK/БП.ДЛЯ 000438 : 51,CONT,ШK/ПП.ПЛAHИPOBЩИKA 000439 : C--------- PAБOЧИE ШKAЛЫ C БИTOM ЗAДAЧИ 000440 : 52,CONT,OUTJOBSC.CHЯTЫ OПEPATOPOM 000441 : 53,CONT,LIMTSC .ИCЧEPПAH ЛИMИT BPEMEHИ 000442 : 54,CONT,LIMLPSC .ИCЧEPПAH ЛИMИT БYMAГИ 000443 : 55,CONT,БЫЛ*64 .ЗAДAЧA ПOДABAЛA Э064 000444 : 56,CONT,SCOUT .HET PECYPCA BЫBOДA 000445 : 57,CONT,SCMAMБ .ЗAKPЫTЫ ПO MAЛOMБ 000446 : 60,CONT,ROLOUTSC.YПPЯTЫBAЮTCЯ 000447 : 61,CONT,SCEM*64 .ФЛAГ *WRBF64 /ДЛЯ EMUL/ 000448 : 62,CONT,FLERBUS .ЗAHЯTOCTЬ ERRMACRO 000449 : 63,CONT,EXTSC .ШK.ПEPEXBATOB AЦПY 000450 : 64,CONT,ERRSC .KOHEЦ ЗAДAЧИ ПO OШИБKE 000451 : 65,CONT,ПAPTИЗAH.ШK.CПEЦИAЛЬHЫX ЗAДAЧ 000452 : 66,CONT,БЛOKAЦПY.БЛOKИPOBKA BЫBOДA 000453 : 67,CONT,MOЖHOKAЧ.ФЛ.BOЗMOЖHOCTИ YKAЧKИ ИПЗ 000454 : 70,CONT,ШKП .ШK.ЗAДAЧ C ПEPEXBATOM ЭK74 000455 : 71,CONT,SC/DEBUG.ЗAДAЧИ C OTЛAДЧИKOM 000456 : 72,CONT,LIB/BOSS.ЗAДAЧИ,ЗAXBATИBШИE LIBRARY 000457 : 73,CONT,PRTSW.БИT ЗAДAЧИ C 000458 : C BЫCOKИM ПPИOPИTETOM HA 000459 : C BPEMЯ ПOДKAЧKИ. 000460 : 74,CONT,SPSC.KOГO HE ГPAБИT SWING 000461 : 75,CONT,SC/PLAN .ФЛAГИ ПЛAHИPOBЩИKA 000462 : 76,CONT,БЫЛ*ПФ .БЫЛA ПEPФOPAЦИЯ 000463 : 77,CONT,SCENDJO .ФЛAГИ ЭK74 000464 : C 000465 : C****** 000466 : C 000467 : NFM:,WEQ,XNFM 000468 : NFD:,WEQ,XNFD 000469 : NFB:,WEQ,XNFB 000470 : NC :,WEQ,XNC 000471 : NCM:,WEQ,XNCM 000472 : LTPH:,WEQ,XLTPH 000473 : C 000474 : C****** ИHФOPMAЦИOHHЫE ПOЛЯ KAHAЛOB 000475 : C 000476 : *ИПK :LC,BLOCK,*INFBA.ПOTOK 000477 : INFEX :,EQU,*INFBA + NCM.YC MT-ПYCKA 000478 : AДP/ИПЗ :,EQU,INFEX + NCM.AДPECA OTKAЧAHHЫX ИПЗ 000479 : C 000480 : *ИПK1:LC,BLOCK, 000481 : PRTSTAT :,EQU,*ИПK1 .ЧИCЛA ПPИOPИTETA 000482 : MONO :,EQU,PRTSTAT +NC .MOHOПOЛИИ HA MД 000483 : C 000484 : C****** ИHФOPMAЦИOHHOE ПOЛE ЗAДAЧИ 000485 : C 000486 : W/NRCALL:,EQU,-3.PAБ.ЯЧ.NRESCALL 000487 : TIC :,EQU,-1.CЧETHOE BPEMЯ 000488 : *0:B,BLOCK,SUMMATOR(24).PEГИCTPЫ 000489 : 30,CONT,TMATH(40) .MAT.ЛИCTЫ 000490 : 100,CONT,REGSCAL .PAЗHЫE ФЛAГИ 000491 : 101,CONT,OШBHYПP .Э67,Э72 000492 : 102,CONT,M72 .Э64,Э71 000493 : 103,CONT,BUFI14 .Э70,Э75 000494 : 104,CONT,BUFS27 .Э70,Э75 000495 : 105,CONT,M75 .Э64,Э71 000496 : 106,CONT,COPYS33 .Э67 000497 : 107,CONT,RETM67 .Э67 000498 : 110,CONT,T I B .KOMM.BPEMЯ 000499 : 111,CONT,TLIM .ЛИMИT BPEMEHИ 000500 : 112,CONT,ДШ .ДEШИФP.BETBЛEHИЯ 000501 : 113,CONT,PULT .IFPULT 000502 : 114,CONT,PASS .PASS/ШИФP Д-68 000503 : 115,CONT,SYSMD .MБ 21-22 HA MД 000504 : 116,CONT,LIMITLP .ЛИMИT БYMAГИ 000505 : 117,CONT, A U S .CTATИCTИKA 000506 : C B48/37 - HOMEP ПOДPAЗДEЛEHИЯ (2-10 KOД) 000507 : C B36/21 - HOMEP TEMЫ (2-10 KOД) 000508 : C B15/01 - AДPEC ПO TPASS (OTHOC.) 000509 : 120,CONT,NAME(3) .*NAME 000510 : 123,CONT, S C E M .EMULATOR 000511 : 124,CONT,TLIMS .SAVE TLIM(БYДИЛЬHИKИ) 000512 : 125,CONT,I60/74 .ПEPEXBAT Э060,Э074 000513 : 126,CONT,LPSTR .K-BO OTПEЧ.CTPOK 000514 : 127,CONT, M Л Д .ШK.MAT.HOMEPOB ДИCK.ФAЙЛOB 000515 : 130,CONT, P Л Д .ШK.MAT.HOMEPOB SCR.-ФAЙЛOB 000516 : 131,CONT,WS/OUT(4) .P/Я БYФEPИЗAЦИИ BЫBOДA 000517 : 135,CONT,WS/ПФ(21).PAБ.ЯЧ.ПEPФOPAЦИИ 000518 : 162,CONT,LOMIDZSC.KAHAЛЫ Ф.CИCTEMЫ 000519 : 163,CONT, П T P (10) .TPAKTЫ ДЛЯ ПOДKAЧKИ 000520 : 175,CONT,MATMБ(192) .TPAKTЫ MAT.MБ 000521 : 475,CONT,FIELD1EM(16).PAБ.ПOЛE 1 /EMULATOR/ 000522 : 515,CONT,FIELD2EM(16).PAБ.ПOЛE 2 /EMULATOR/ 000523 : 535,CONT,БYФИПЗ(22) .PAБ.ПOЛE ERRMACRO 000524 : 563,CONT,ИP/34.ИHФ OTЛAДKИ 000525 : 564,CONT,SCJOTЛ.PAБOTЫ OTЛAДKИ 000526 : 565,CONT,DEBS33.MECTO ПPEPЫB. ПO OTЛAДKE 000527 : C----------- ИHФOPMAЦИЯ ПO CTATИCTИKE ЗAДAЧ 000528 : 566,CONT,ФИO(2).B KOДE ГOCT 000529 : 570,CONT,CNTEXCH.CЧETЧИKИ OБMEHOB 000530 : C B48/31 - ЧИCЛO MБ-OБMEHOB 000531 : C B30/13 - ЧИCЛO MД-OБMEHOB 000532 : C B12/01 - ЧИCЛO MЛ-OБMEHOB 000533 : 571,CONT,STAT1 000534 : C B48 - БЫЛ OБMEH C TEPMИHAЛOM 000535 : C B47/46 - TИП KOHЦA ЗAДAЧИ 000536 : C 0 - ЗAДAЧA CHЯTA (И OШИБKИ) 000537 : C 1 - ЛИMИT BPEMEHИ 000538 : C 2 - ЛИMИT БYMAГИ 000539 : C 3 - HOPMAЛЬHЫЙ KOHEЦ 000540 : C B45 - БЫЛ ЗAПPET ABTOPACПEЧATKИ 000541 : C B44 - OTMEHA HYMEPAЦИИ CTPAHИЦ 000542 : C ПPИ ПEЧATИ ЛИCTИHГA 000543 : C* B43 - ГPAФИKA EЩE HE BЫBEДEHA 000544 : C* B42:40 - TИП ГPAФПЛOTTEPA 000545 : C B39-25 - BBEДEHO ПФK 000546 : C B24/01 - BBEДEHO CИMBOЛOB ПФЛ 000547 : 572,CONT,STAT2 000548 : C B48 - PEЗEPB 000549 : C B47-46 TИП ЗAДAЧИ(0-ПOTOK,1-TEPM,2-BBOД) 000550 : C B45-40 - PEЗEPB 000551 : C B39-25 - BЫBEДEHO ПФK 000552 : C B24/01 - BЫBEДEHO CИMBOЛOB ПФЛ 000553 : 573,CONT,STAT3.ИCП.БИБЛИOTEKИ 000554 : C----------- 000555 : 574,CONT,STAT4(2).PAБ.ЯЧ. ЭK74 000556 : 576,CONT,ФИO/ISO(2).ФИO B ISO 000557 : 600,CONT,WS/71(6).PAБ.ПOЛE ЭK71 000558 : 606,CONT,(7) .PEЗEPB 000559 : 615,CONT,WS/DEBUG(32).PAБ.ПOЛE OTЛAДЧИKA 000560 : 655,CONT,AFIL(5).ИMЯ MT-БYФEPA 000561 : 662,CONT,YПP/71(14).BETBЛEHИE-71 000562 : 700,CONT,(57). P E З E P B 000563 : *771:B,BLOCK,MADRES.TEK.AДPEC "MЯЧ" 000564 : 772,CONT,WS/DEB2(6).PAБ.ЯЧ.OTЛAДЧИKA 000565 : 777,CONT,DRU/MEM.ШK.MБ,MOДEЛИ- 000566 : 1000,CONT,ИП PEД(509) .ИПЗ PEДAKTИPOBAHИЯ Э064 000567 : C 000568 : C****** MACCИB CEMAФOPOB ДИCПETЧEPA 000569 : C 000570 : ШЛAГБAYM:LC,BLOCK, 000571 : 0,CONT,ЗAKAЗMЛ .ЭK57(10-7777) 000572 : 1,CONT,ЗAKAЗMД .ЭK57(77777) 000573 : 2,CONT,SEM/OUT .KATAЛOГ BЫBOДA 000574 : 3,CONT,SEM/IN .KATAЛOГ BBOДA 000575 : 4,CONT,SEMDISC .ЗAKAЗ PECYPCOB 000576 : 5,CONT,CALLBSC .NRESCALL 000577 : 6,CONT,SCAL73 .ЭK73 000578 : 7,CONT,SCEM*CЛY.CЛYЖ.ЗAДAЧA HA TELOUT'E 000579 : 10,CONT,CLT .ЭK66 000580 : 11,CONT,SEM212.ДOCTYП K ЧYЖOЙ ПAMЯTИ 000581 : 12,CONT,SEMPOST.ПOЧTOBAЯ CЛYЖБA 000582 : 13,CONT,SEM/GRF.KATAЛOГ ГPAФИKOB 000583 : 14,CONT,SEM/SEND.CBЯЗЬ 2 БЭCM 000584 : 15,CONT,SEMLP.EC-AЦПY 000585 : C 000586 : C***** ШKAЛЫ ЗAДAЧ ПO YCTPOЙCTBAM 000587 : C 000588 : SCALES:LC,BLOCK, 000589 : 0,CONT,PRTMASK .MACKA ПPИOPИTETHЫX ЗAДAЧ 000590 : 1,CONT,MRDSCAL .MACKA ШKAЛЫ ГOTOBHOCTИ 000591 : 2,CONT,S1CLTA .ЗAKPЫTЫE ПO MAЛOMБ 000592 : 3,CONT,STCLTA .BPEMEHHO-ЗAKPЫTЫE ЗAДAЧИ 000593 : 4,CONT,STATUSMT.OЖИДAЮЩИE ЛEHTЫ 000594 : 5,CONT,SC/YBBK .ЗAДAЧИ HA ЧИTAЛKE 000595 : 6,CONT,SCWPRIN .ЗAДAЧИ HA HEГOT.AЦПY 000596 : 7,CONT,SCWPERF .ЗAДAЧИ HA HEГOT.ПИ/ПЛ 000597 : 10,CONT,SCLTWJ .ЗAДAЧИ HA ПAYЗE 000598 : 11,CONT,SCSTOP .ЗAДAЧИ OCTAH.OTЛAДЧИKOM 000599 : 12,CONT,SC/CLJ.ЗAДAЧИ,ЗAKPЫTЫE ПO ABAPИЯM ПPИ ДИAЛOГE 000600 : C 000601 : C 000602 : C***** ИCПOЛЬЗOBAHИE ФOPMAЛЬHЫX ЛИCTOB: 000603 : C 000604 : C 40 : *WRBF64 (TOTAЛЬHO) 000605 : C 41 : OTЛAДЧИK (ЛOKAЛЬHO) 000606 : C NRES066 (ЛOKAЛЬHO) 000607 : C 44 : ГPAФOP-ФИAЭ(ГЛOБAЛЬHO) 000608 : C 45 : ZOO60 (TOTAЛЬHO) 000609 : C 46 : PROC/OUT (ЛOKAЛЬHO) 000610 : C И ГPAФOP-ФИAЭ(ЛOKAЛЬHO) 000611 : C 000612 : C 000613 : C***** CTPYKTYPA REGSCAL 000614 : C 000615 : C B48 - PAЗPEШEHИE ФИЗ.ДEЙCTBИЙ 000616 : C B47 - ........ 000617 : C B46 - PAЗPEШEHИE HA ИHTEPПPETAЦИЮ 000618 : C Э75 C AИCП = 0 ; 1 000619 : C B44 - ПPOTЯЖKИ B HAЧ.ЛИCTA ДЛЯ Э64:1=ECTЬ,0=HET 000620 : C B43 - ECTЬ PEAKЦИЯ HA ABOCTЫ 000621 : C B40 - 48-MИTEPMИHAЛЬHЫЙ PEЖИM ДЛЯ 000622 : C ДИCПAKOBCKOГO Э71 000623 : C B39 - ЗAKAЗ HA ПEPEKAЧKY CЛYЖ.CЛOB 000624 : C ПOCЛE OБMEHA C MЛ ИЛИ MД 000625 : C B 150-157 CЛOBA ИПЗ ЗAДAЧИ. 000626 : C B38 - PAЗPEШEHИE ДИAЛOГA ПPИ 000627 : C ЭMYЛЯЦИИ Э071 ДИCПAKA 000628 : C B30 - БЛOKИPOBKA ПPOBEPKИ ЗAHЯTOCTИ 000629 : C ПPИ ЗAKAЗE ФAЙЛOB. 000630 : C B19 - OCTAHOB ПO AЧ (OTЛAДЧИK) 000631 : C B18 - OCTAHOB ПO AKOM (OTЛAДЧИK) 000632 : C B16 - ПPИЗHAK ЛИCTOBAHИЯ ПPИ ПEЧATИ 000633 : C B15 - BЫBOД HA TEPMИHAЛ OT Э71 000634 : C HEOБЯЗATEЛEH. 000635 : C B12 - PEЖИM A B T Б (!) 000636 : C B09 - ИCПOЛЬЗOBAH ЛИMИT ПPИOPИTETA 000637 : C B08 - Э64 BЫBOДИT HA TEPMИHAЛ И AЦПY 000638 : C B07 - Э64 BЫBOДИT TOЛЬKO HA TEPMИHAЛ 000639 : C B05 - OCTAHOB ПO ЗП/ЧT ПPИ COBПAД. И35 000640 : C =1 - ЗAПИCЬ ; =0 - ЧTEHИE 000641 : C B04 - =1 - PEЖИM ЗAПИCИ KOMAHД 000642 : C =0 - PEЖИM ЗAПИCИ ЧИCEЛ 000643 : C 000644 : C 000645 : C 000646 : C***** CTPYKTYPA *INFBA 000647 : C 000648 : C 48 - PEЖИM ПPOTOKOЛA 000649 : C 47-46 - HOMEP ЭBM ИЗ DISPBASE(7) 000650 : C 43 - "CEPЬEЗHAЯ" ЗAДAЧA 000651 : C 42-37 - ФИЗ. HOMEP TEPMИHAЛA, C KOTOPOГO 000652 : C ЗAПYЩEHA ЗAДAЧA 000653 : C 36-31 - HOMEP ПO BЫBOДY 000654 : C 30-25 - HOMEP ПO BBOДY 000655 : C 24-19 - HOMEP ЛИHИИ, OTKYДA ЗAДAЧA 000656 : C (NЛAБ): 000657 : C B24 - C KOHЦEHTPATOPA 000658 : C B23-22 - . . . . . . 000659 : C B21 - BBEДEHO HA БЭCM-6 000660 : C B20 - . . . . . . 000661 : C B19 - OT MYЛЬTИTAЙПA 000662 : C 18 - MHOГOTEPMИHAЛЬHAЯ ЗAДAЧA (ПO CBЯЗИ) 000663 : C 17 - ДИAЛOГOBAЯ ЗAДAЧA (ПO CBЯЗИ) 000664 : C 16-01 - ID ЮЗEPA. 000665 : C 000666 : C 000667 : C 000668 : C***** TAБЛИЦA HEPEЗИДEHTOB NRTABL 000669 : C OДHO CЛOBO HA MAT.ЛИCT 000670 : C (ПO TAБЛИЦE ЗAГPYЗKИ ДИCПETЧEPA) 000671 : C 000672 : C 1-5 : HOMEP ФИЗ.ЛИCTA ИЛИ 0 000673 : C 16-20 : CЧETЧИK ЧИCЛA ЗAДAЧ, AKTИBHO 000674 : C BЛAДEЮЩИX ЛИCTOM HEPEЗИДEHTA 000675 : C 45-21 : ШKAЛA ЗAДAЧ, KOГДA-ЛИБO ПOЛЬ- 000676 : C ЗOBABШИX ЛИCT (45-OПOЗHABAHИE, 000677 : C 44-Ш30, 43-Ш27, ..., 21-Ш1 ) 000678 : C 46 : ПPИЗHAK, ЧTO NRESOFF HE ДOЛЖEH 000679 : C PACФИKCИPOBATЬ ЛИCT (CM.PRINTASK) 000680 : C 47 : ПPИЗHAK ПEPECЧETA ПPИOPИTETA 000681 : C ДЛЯ HEPEЗИДEHTHOГO ЛИCTA 000682 : C 000683 : C 000684 : C B KAЖДOM HEPEЗИДEHTHOM ЛИCTE 000685 : C 0 CЛOBO = ЧИCЛO HEPEЗИДEHTOB N 000686 : C 1-N CЛOBA = ДECKPИПTOPЫ HEPEЗИДEHTOB : 000687 : C 1:15 - ИДEHTИФИKATOP HEPEЗИДEHTA 000688 : C (AДPEC ПO TAБЛИЦE ЗAГPYЗKИ) 000689 : C 48:16 - ШKAЛA ЗAДAЧ, ЗAXBATИBШИX 000690 : C ЭTOT HEPEЗИДEHT 000691 : C 000692 : C 000693 : C 000694 : C***** ИCПOЛЬЗOBAHИE ИCTИHHЫX AДPECOB: 000695 : C 000696 : C A) ПPИ ИHИЦИAЛИЗAЦИИ ДИCПETЧEPA 000697 : C 100-477 : TESTTRAK 000698 : C 230-277 : DISPINIT,PRINTDR 000699 : C 600-676 : CBOБOДHO 000700 : C 000701 : C Б) B PAБOЧEM PEЖИME 000702 : C 100 : HOMEPA ЛИHИЙ CBЯЗИ 000703 : C 101 : ДИPEKTИBA OПEPATOPA 000704 : C 102-120 : БYФEP ЭK."TTPRINT" 000705 : C 121-126 : БYФEP ЭK.ЗAMEHЫ CTPAHИЦ 000706 : C 127-326 : БYФEP TTTASK 000707 : C 327-357 : ИПЗ TTTASK 000708 : C 360-424 : ИПЗ "ЖДY" 000709 : C 425-435 : TAБЛ.SCR-OБЛ. (TSA) 000710 : C 436-477 : БYФEPA ПPИKAЗA "TEЛ" 000711 : C 500-577 : MAINSW 000712 : C 600-630 : ИПЗ OKHA 000713 : C 631-676 : ИПЗ OПOЗHABAHИЯ 000714 : C 677 : ДOЛЖHA БЫTЬ ПYCTOЙ 000715 : C 700-777 : MAINSW 000716 : C 000717 : ,END, 000718 : FREQ300:,NAME, 000719 : FREQ300:,STEXT,. *** ЧACTOTA = 300 ГEPЦ 000720 : FREQ:,EQU,300 000721 : B*START:,EQU,0 000722 : ГMAC:,MACRO,KOП 000723 : ,KOП,.HET ПPИOPИTETOB 000724 : ГMAC:,ENDM, 000725 : C 000726 : C ПO 10 P. ГPП - HE ПPEPЫBAEMCЯ. 000727 : C ПO 40 P. ГPП - ПPEP. C ЧACT. 300 000728 : C OT ГPП-40 PAБOTAЮT ДPYГ ЗA ДPYГOM : 000729 : C BIO*TL - OБCЛYЖИBAHИE TL-PEГИCTPA 000730 : C ITIMEB10 - HAЧИCЛEHИE BPEMEH ЗAДAЧAM 000731 : C PR/TIMER - TO, ЧTO PAHЬШE БЫЛO HA 000732 : C ГPП-10. 000733 : C 000734 : ,END, 000735 : FREQ150:,NAME, 000736 : FREQ150:,STEXT,. *** ЧACTOTA = 150 ГEPЦ 000737 : FREQ:,EQU,150 000738 : B*START:,EQU,0 000739 : ГMAC:,MACRO,KOП 000740 : ,KOП, 000741 : ГMAC:,ENDM, 000742 : ,END, 000743 : FREQ600:,NAME, 000744 : FREQ600:,STEXT,. *** ЧACTOTA = 600 ГEPЦ 000745 : FREQ:,EQU,600 000746 : B*START:,EQU,721B 000747 : ГMAC:,MACRO,KOП 000748 : ,KOП,=:6010 01 000749 : ГMAC:,ENDM, 000750 : C 000751 : C ПO ГPП-10 ПPEPЫBAEMCЯ C ЧACT. 150 000752 : C ПPИ ЭTOM PAБOTAЮT: ITIMEB10,PR/TIMER. 000753 : C ПO ГPП-31 ПPEPЫBAEMCЯ ПPИ ПOЯBЛEHИИ 000754 : C CTAPTOBOГO БИTA B TL-PEГИCTPE. 000755 : C ПPИ ЭTOM PAЗPEШAЮTCЯ ПPEPЫBAHИЯ ПO 000756 : C ГPП-40 (ЧACTOTA 600), OT KOTOPЫX 000757 : C PAБOTAET TOЛЬKO BIO*TL. 000758 : C 000759 : C OБECПEЧИBAETCЯ ПOBЫШEHИE ПPИOPИTETA 000760 : C ПPEPЫBAHИЯM ПO 40 И 31 PAЗPЯДAM ГPП. 000761 : C 000762 : ,END, 000763 : FREQ1200:,NAME, 000764 : FREQ1200:,STEXT,. *** ЧACTOTA = 1200 ГEPЦ 000765 : FREQ:,EQU,1200 000766 : B*START:,EQU,721B 000767 : ГMAC:,MACRO,KOП 000768 : ,KOП,=:6010 01 000769 : ГMAC:,ENDM, 000770 : ,END, 000771 : *STRUCT2:,NAME,.TEPM. XOЗЯЙCTBO 000772 : C 000773 : C 000774 : C ДЛЯ ЗAДAHИЯ KOHФИГYPAЦИИ TEPMИHAЛЬHOГO 000775 : C KOMПЛEKCA HEOБXOДИMO: 000776 : C 1. B П/П *TLSIZE YKAЗATЬ ФAKTИЧECKOE 000777 : C ЧИCЛO TEPMИHAЛOB PAЗЛИЧHЫX TИПOB, 000778 : C ПOДKЛЮЧEHHЫX K MAШИHE, + 1. 000779 : C ЭTA KOHCTAHTA ИCПOЛЬЗYETCЯ ПPИ ЗA- 000780 : C ГPYЗKE ДИCПETЧEPA И ДOЛЖHA COOTBET- 000781 : C CTBOBATЬ ДЛИHE П/П *TLBUFI . 000782 : C 2. B П/П *TLPRMT B MACKAX MIN И MOT 000783 : C OTMETИTЬ CYЩECTBYЮЩИE TEPMИHAЛЬHЫE 000784 : C KAHAЛЫ B COOTBETCTBИИ C ИX TИПAMИ. 000785 : C ЧИCЛO "1" B KAЖДOЙ ИЗ MACOK ДOЛЖHO 000786 : C COOTBETCTBOBATЬ ДЛИHE П/П *TLBUFI . 000787 : C MЛAДШИE PAЗPЯДЫ MIN И MOT ПEPEHO- 000788 : C CЯTCЯ TAKЖE B ШKAЛЫ, OПИCЫBAЮЩИE 000789 : C E-XAPAKTEPИCTИKY TEЛEГP.PEГИCTPOB. 000790 : C 3. B П/П *TLBUFI YKAЗATЬ TИПЫ TEPMИHA- 000791 : C ЛOB И KAHAЛOB B COOTBETCTBИИ C OПИ- 000792 : C CAHИEM. HOMEP ЯЧEЙKИ ПO *TLBUFI 000793 : C (1,2,...) ECTЬ BИPTYAЛЬHЫЙ ФИЗИЧEC- 000794 : C KИЙ HOMEP KAHAЛA. 000795 : C 000796 : C MAKCИMAЛЬHOE ЧИCЛO TEPMИHAЛЬHЫX 000797 : C KAHAЛOB = 24. 000798 : C 000799 : C 000800 : C 000801 : C ПEPEXOД HA ЧACTOTY 600 ИЛИ 1200 ГЦ. 000802 : C 000803 : C 000804 : C I. ИЗMEHEHИЯ B MAШИHE. 000805 : C 000806 : C 31-Й PAЗPЯД ГPП ДOЛЖEH PAБOTATЬ TAK, 000807 : C KAK ЭTO OПИCAHO B ДEBЯTOM TOME - ЭTO 000808 : C ПPИЗHAK ПPИXOДA CTAPTOBOГO C OДHOГO ИЗ 000809 : C TEЛEГPAФHЫX KAHAЛOB, TOЧHEE - ПPИЗHAK 000810 : C '1' B OДHOM ИЗ KAHAЛOB. CИГHAЛ БEPETCЯ 000811 : C C ЯЧ. Б C T , ГДE OH ФOPMИPYETCЯ, HO 000812 : C ДAЛEE HИKYДA HE ИДET. EГO HAДO ДOBECTИ 000813 : C ДO Y B Y , ГДE ECTЬ BXOД 31-ГO PAЗPЯ- 000814 : C ДA Г P П . HA ЭTOT BXOД EГO CЛEДYET 000815 : C ПOДABATЬ ЧEPEЗ ЭM. ПOBTOPИTEЛЬ (ДЛЯ 000816 : C PAЗBЯЗKИ). 000817 : C BMECTO 31 PAЗPЯДA ГPП MOЖHO BЗЯTЬ 000818 : C ЛЮБOЙ ДPYГOЙ, YKAЗAB EГO B HACTPO- 000819 : C EЧHOЙ ПPOГPAMME "FREQ...". 000820 : C 000821 : C II. ГEHEPAЦИЯ ДИCПETЧEPA. 000822 : C 000823 : C ПPOГPAMMЫ 000824 : C BIO*TL 000825 : C SER*OUT 000826 : C PR/TIMER 000827 : C ITIMEB10 000828 : C TPAHCЛИPOBATЬ HA MADLEN3 C ПAPAMETPOM 000829 : C STEXT = FREQ600 ИЛИ FREQ1200 000830 : C ДЛЯ ИЗMEHEHИЯ БИTA CБOPKИ CTAPTOBЫX 000831 : C HA ГPП HYЖHO ИCПPABИTЬ ЗHAЧEHИE B*START 000832 : C B COOTBETCTBYЮЩEЙ ПPOГPAMME. 000833 : C TPAHCЛЯЦИЯ CИCTEMHOГO TEKCTA (FREQ...) 000834 : C ДOЛЖHA OCYЩECTBЛЯTЬCЯ ABTOHOMHO, БEЗ 000835 : C YKAЗAHИЯ ПAPAMETPA STEXT И ДO TPAHCЛЯ- 000836 : C ЦИИ OCTAЛЬHЫX ПPOГPAMM. 000837 : C 000838 : C........................................... 000839 : ,END, 000840 : *USESTA:,NAME, 000841 : C 000842 : C***** OПPEДEЛEHИE MECTA ДHEBHOЙ CTATИCTИKИ 000843 : C 000844 : C..... ИMЯ ЛEHTЫ / MOДEЛИ 000845 : ,TEXT,8HUSESTA 0 000846 : ,BSS, 000847 : C..... HAЧ.HOMEP ЗOHЫ CTATИCTИKИ 000848 : ,LOG, 000849 : C..... HAЧ.TPAKT TAБЛИЦ 'PASS+ФИO' 000850 : ,LOG,4 0000 0020 0030 000851 : C..... MECTO TEPMИHAЛЬHOЙ CTATИCTИKИ 000852 : C HA 9/MONSYS ДЛЯ ЭBM-2,ЭBM-1(0) 000853 : ,LOG,0435 0436 000854 : ,END, 000855 : *DRUMBAS:,NAME, 000856 : C PP 12-7 YKAЗATEЛЬ MБ 000857 : C PP 6-1 HAЧAЛЬHЫЙ N TPAKTA 000858 : C ДЛЯ ЗAПИCИ ДИCПETЧEPA 000859 : C 000860 : C BAPИAHT ДЛЯ ЗAГPYЗKИ HA ЛEHTY: 000861 : C ,LOG, S DD00 TTZZZ 000862 : C ЗДECЬ TTZZZ - YKAЗATEЛЬ MЛ 000863 : C DD - БAЗOBЫЙ БAPAБAH 000864 : C S=1 - BMECTE C CИCTEMOЙ 000865 : C S=0 - TOЛЬKO ДИCПETЧEP 000866 : C 000867 : ,LOG,2500 000868 : ,END, 000869 : EXCHNRS:,NAME, 000870 : C PP 13-18 YKAЗATEЛЬ MБ 000871 : C PP 1-5 HAЧAЛЬHЫЙ N TPAKTA 000872 : C ДЛЯ HEPEЗИДEHTA MYЛЬTИTAЙПA 000873 : C ,014,100B 000874 : C ,025,37B 000875 : C B CЛYЧAE ЗAГPYЗKИ HA ЛEHTY 000876 : C 39-Й PAЗPЯД = 0, 1-24 HE CYЩECTBEHHЫ 000877 : C 000878 : ,010,100B 000879 : ,, 000880 : ,END, 000881 : *ПДИCK:,NAME,. 000882 : C 000883 : C--- B 1-4 БAЙTAX ЭTOГO CЛOBA 000884 : C ( CЧИTAЯ CЛEBA HAПPABO ) 000885 : C 8-Й БИT COOTBETCTBYET 1-MY HAПPABЛ. 000886 : C 7-Й --""-- 2-MY --""-- 000887 : C . . . . . . . . . . . . . 000888 : C 3-Й БИT --""-- 6-MY HAПPABЛ. 000889 : C 000890 : C--- HAЗHAЧEHИE БAЙTOB : 000891 : C 1 - ШKAЛA HAПPABЛEHИЙ KBY MЛ 000892 : C 2 - ШKAЛA HAПPABЛEHИЙ ДИCKOB 000893 : C 3 - ДИCKИ 29 MEГAБAЙT 000894 : C 4 - ДYБHEHCKИЙ KMД-29 000895 : C 5 - ПYCTOЙ БAЙT (OБЯЗATEЛЬHO) 000896 : C 6 - KOЛИЧECTBO ЭKCTEHTOB ДЛЯ 000897 : C MOДEЛИPOBAHИЯ MБ. 000898 : C 000899 : C ECЛИ 3-E HAПPABЛEHИE MД = OБЩEE, 000900 : C ДOБABЬTE 34 БИT; 000901 : C ECЛИ 4-E HAПPABЛEHИE MД = OБШEE, 000902 : C TO ДOБABЬTE 33 БИT. 000903 : C 000904 : ,ISO,6H'054''060''040''040''''37' 000905 : C 000906 : C... B ДYБHE HET 4 HAПP.KBY MЛ 000907 : C A ДИCKИ B 3 И 4 HAПPABЛ. 000908 : ,END,. 000909 : *DISCS:,NAME,. 000910 : DNAM:,BSS,16.ИMEHA ДП 000911 : :,BSS,16.PEЗEPB 000912 : ШMOД:,OCT,7777 74.ШK.BOЗM.MOДEЛEЙ MЛ 000913 : ШФЛД:,OCT,. ШK.PEAЛЬHЫX MOДEЛEЙ 000914 : ,END,. 000915 : TYPE MT:,NAME, 000916 : C* 000917 : C*** ПOДKЛЮЧEHИE MAГHИTOФOHOB 000918 : C* 000919 : C* 1. 4 CЛOBA COOTBETCTBEHHO ЧETЫPEM 000920 : C* KBY-HAПPABЛEHИЯM MЛ ( 4 ГPYППЫ 000921 : C* KOMAHД ДBИЖEHИЯ ) : 000922 : C* 1-6 : AДPECA CЛYЖ.CЛOB OБMEHA 000923 : C* 44 : ЗHAЧEHИE 11 PAЗPЯДA KYC-A 000924 : C* 47-48 : TИП MAГHИTOФOHOB : 000925 : C* 0 : HMЛ БЭCM-6 000926 : C* 1 : EC5012 C ДYБHEHCKИM KMЛ 000927 : C* 2 : EC5017 C ДYБHEHCKИM KMЛ 000928 : C* 3 : EC5017 C ЗABOДCKИM KMЛ 000929 : C* 000930 : KBY:,LOG,22000 00000 000050.3-5012 000931 : :,LOG,60.4-CDC405,608 000932 : :,LOG,20000 00000 000050.5-5012 000933 : :,LOG,60.6-БЭCM 000934 : C* 000935 : C* 2. ПPИЗHAK HAЛИЧИЯ (БИT2) ИЛИ OTCYTCTBИЯ 000936 : C* (0) CDC-405. ФAKTИЧECKИ - ПPИЗHAK 000937 : C* POДHOЙ ДYБHEHCKOЙ ФИPMЫ : 000938 : C* 000939 : FL405:,LOG,2.ECTЬ 000940 : C* 000941 : C* 3. ПPИЗHAK ФИKCИPOBAHHOЙ (БИT48) 000942 : C* ПЛOTHOCTИ ПPИ PAБOTE C MЛ EC 000943 : C* И EE ЗHAЧEHИE (11-10 БИTЫ) : 000944 : C* 000945 : FIXDENS:,LOG,.HE ФИKCИPOBAHO 000946 : C* 000947 : C* 4. AДPEC B KOMAHДE OПPOCA БAYC-5 (1-15) 000948 : C* И ЧИCЛO CДBИГOB BПPABO (48-42) : 000949 : C* 000950 : БAYC:,OCT,4600 0000 0000 4011.CД=12 000951 : C ДЛЯ ЗABOДCKOГO KBY EC : 000952 : C ,OCT,4000 0000 0000 4012.5017 000953 : C* 000954 : C* 5. ШKAЛA БЛOKИPOBOK OПOЗHABAHИЯ ЛEHT 000955 : C* 48:16 - MФ 30:67 000956 : C* 000957 : NORECTP:,LOG, 000958 : ,END, 000959 : *TYPELP:,NAME, 000960 : C 000961 : C***** P.40 - ЭKOHOMИЯ БYMAГИ (AЦПY 0) 000962 : C***** P.39 - ЭKOHOMИЯ БYMAГИ (AЦПY 1) 000963 : C***** P.16 - HET ЭKOHOMИИ БYMAГИ CИCTEMOЙ 000964 : C***** P.04 - BOЗMOЖHA EC ПEЧATЬ(KAHAЛ 0) 000965 : C***** P.03 - BOЗMOЖHA EC ПEЧATЬ(KAHAЛ 1) 000966 : C***** P.01 - БЛOKИPOBKA KOHTPOЛЯ ЛИMИTA БYMAГИ 000967 : ,LOG,14 000968 : C 000969 : C***** CTAHДAPT.KOЛ-BO ПPOTЯЖEK + 1 000970 : C***** (ПPИ ЭKOHOMИИ БYMAГИ) 000971 : ,LOG,5 000972 : C 000973 : C***** БЫCTPЫЙ/ЧECTHЫЙ ПPOГOH БYMAГИ 000974 : C***** (B KOMMEHTAPИЯX - БЫCTPЫЙ) 000975 : ,LOG,0 000976 : ,LOG,10.CTD = 10 000977 : C***** CTAHД.ЛИMИT БYMAГИ 000978 : ,LOG,1 0000 0000 000979 : ,END, 000980 : *KOHCTPA:,NAME, 000981 : C BИT ЧTEHИЯ И HOMEP KOHTPOЛЬHOЙ 000982 : C CTPAHИЦЫ B ФOPME KYCA, ECЛИ HY- 000983 : C ЖEH KOHTPOЛЬ ЗAПИCИ HA MБ. 000984 : ,LOG,4040 0000.0-Я CTP. 2-ГO MOЗY 000985 : ,END, 000986 : *LINKPAR:,NAME, 000987 : C --- ШKAЛA ЛИHИЙ CBЯЗИ 000988 : ,LOG,377.SC/NL 000989 : C --- ШKAЛA ЛИHИЙ CBЯЗИ TASK70 000990 : ,LOG,200.SC/CONC 000991 : C --- BPEMEHA OTBETOB 000992 : C --- 24-13 -> ПYCП. 12-1 -> BЗBП 000993 : ,LOG,0140 0300.EC1010 ЛBTA 000994 : ,LOG,2000 2000. 000995 : ,LOG,60 0060.MИKPOПPOЦ. 000996 : ,LOG,1000 1000.M6000 ЛBTA 000997 : ,LOG,2000 2000. 000998 : ,LOG,2000 2000. 000999 : ,LOG,2000 2000. 001000 : ,LOG,2000 2000. 001001 : ,END, 001002 : TYP/PL:,NAME, 001003 : C 001004 : C TИПЫ ЛEHTOЧHЫX ПEPФOPATOPOB 001005 : C ИX M.Б. TOЛЬKO ДBA: 0-1 001006 : C 001007 : C 48-47 '1' - ПЛ-80, '0' - ПЛ-20 001008 : C 42-41 '1' - ДYБH.CПOCOБ ПOДKЛЮЧ.ПЛ-80 001009 : C '0' - ФPЯЗИHCKИЙ 001010 : C 001011 : ,OCT,602.2 ПЛ-80 001012 : C PAЗPЯДЬ 2-1 -TИП ПЛ-BBOДA 0-1: 001013 : C '1' OЗHAЧAET BHИЭM,'0' - FSM-1500. 001014 : COPY7:,BSS, 001015 : C..... ПPOГPAMMHAЯ KOПИЯ TP7 001016 : C 32 P.- БЛOKИPOBKA ЗAПИCИ DAYFILE 001017 : C 26/25 P.- ПPИЗHAK HAЛИЧИЯ YBBK 0/1 001018 : C 1 P.- BBOД ПO ГOTOBHOCTИ YCTPOЙCTBA 001019 : ,LOG,3 0000 0000.YBBK 001020 : ,END, 001021 : DD86:,NAME, 001022 : C 001023 : C*** HИЖECЛEДYЮЩИE HACTPOEЧHЫE 001024 : C ПPOГPAMMЫ CЛEДYЮT ПOДPЯД ! 001025 : C 001026 : *ИПД:,LC, 001027 : DISPBASE:,LC,7 001028 : *ПДИCK :,SUBP, 001029 : TYPE MT :,SUBP, 001030 : *KOHCTPA:,SUBP, 001031 : *TYPELP :,SUBP, 001032 : TYP/PL :,SUBP, 001033 : *TLPRMT:,SUBP, 001034 : *TLBUFI:,SUBP, 001035 : *TLSIZE:,SUBP, 001036 : DD71/W:,SUBP, 001037 : ,UJ,DD71/W 001038 : ,END, 001039 : *ИПД:,NAME, 001040 : C------ 001041 : 0,LOG,30 001042 : 1,LOG,40 001043 : 2,LOG,43 001044 : 3,LOG,54 001045 : 4,LOG,60 001046 : C------ 001047 : 5,LOG,30 001048 : 6,LOG,20 001049 : C... 48:25 - TИПЫ CEMAФOPOB 001050 : C... 24:21 - ШKAЛA ДOCTYПHЫX Ф.C. 001051 : C 15:1 - ЧИCЛO CEMAФOPOB 001052 : 7,LOG,3601 0000 4000 0016 001053 : C------ 001054 : 10,LOG,1 7740 0000 001055 : 11,LOG,0 0037 7776 001056 : 12,LOG,0 0000 0036 001057 : 13,LOG,37 7740 001058 : 14,LOG,37 7740 001059 : 15,LOG,00 0376 001060 : 16,LOG,1 7777 7740 001061 : C------ 001062 : 17,OCT,3700 114 001063 : 20,LOG,100 001064 : 21,LOG,40 001065 : 22,LOG,100 001066 : 23,OCT,0037 7776 001067 : 24,LOG,24 0000 0037 001068 : 25,LOG,6017 4000 001069 : 26,LOG,540 001070 : 27,LOG,44 001071 : 30,LOG,24 001072 : ,BSS,11B 001073 : 42,LOG,77777777 77400001. ИПЗ/ECTЬ 001074 : ,BSS,35B 001075 : ,END, 001076 : *TAKCA:,NAME, 001077 : C* 001078 : C*** ПPEЙCKYPAHT ДOБABOK K 001079 : C* KOMMEPЧECKOMY BPEMEHИ ЗAДAЧИ 001080 : C* ЗA PAБOTY BHEШHИX YCTPOЙCTB. 001081 : C* BPEMЯ ДAHO B CEKYHДAX. 001082 : C* 001083 : C* KTO XOЧET - MEHЯЙTE HA ЗДOPOBЬE! 001084 : C* 001085 : 0,REAL,0.0225.OБMEH C MБ 001086 : 1,REAL,0.080.OБMEH C MД 001087 : 2,REAL,0.250.ПPOXOД ЗOHЫ MЛ 001088 : 3,REAL,0.100.BBOД KAPTЫ C YBBK 001089 : 4,REAL,0.001.BBOД БAЙTA C FS 001090 : 5,REAL,0.150.ПEЧATЬ CTPOKИ AЦПY-128 001091 : 6,REAL,0.025.BЫBOД 6 CИMB. П/Л ИЛИ 1/24 П/K 001092 : 7,REAL,0.020.OДHA KOMAHДA CALCOMP 001093 : 8,REAL,1.000.KOЭФФ. ДЛЯ MЛ EC 001094 : ,END, 001095 : *TLSIZE:,NAME, 001096 : C 001097 : C***** HACTPOЙKA ПO TEPMИHAЛAM 001098 : C (PAЗMEPЫ БYФEPOB) 001099 : C 001100 : C----- ДЛИHA KAPTЫ HAПPЯЖEHИЙ 001101 : ,LOG,74 001102 : C----- KOЛИЧECTBO ФИЗ.KAHAЛOB 001103 : ,LOG,31 001104 : C----- MAKCИMAЛЬHOE KOЛ-BO KOHCOЛEЙ 001105 : ,LOG,2 001106 : C----- KOЛ-BO TEPMИHAЛЬHЫX ПOДCИCTEM 001107 : ,LOG,4 001108 : ,END, 001109 : *TLSYS:,NAME, 001110 : C 001111 : C***** HACTPOЙKA ПO TEPMИHAЛAM 001112 : C (OПИCAHИЯ ПOДCИCTEM) 001113 : C 001114 : C----- COCTOЯHИE 001115 : C PP.48/43 - Д H З ПOДCИCTEMЫ 001116 : C PP.42/19 - ШKAЛA ПPИBЯЗ. ФИЗ.KAHAЛOB 001117 : C PP.18/17 - P E З E P B 001118 : C PP. 16 - ИДET ЗAПYCK П/C 001119 : C PP.15/01 - AДPEC CTPOЧHИKA П/C 001120 : C ( 0 - CTAHДAPT ) 001121 : ,BSS,4 001122 : C----- ПPИBЯЗKA 001123 : C PP.48/37 - ШKAЛA ДOПYCTИMЫX ЛOГ.KAHAЛOB 001124 : C PP.36/25 - ШKAЛA ПPИBЯЗ. ЛOГ.KAHAЛOB 001125 : C PP.24/01 - ШKAЛA CTYЧAЩ. ФИЗ.KAHAЛOB 001126 : ,OCT,6000.*=* CONS 001127 : ,OCT,1774.*=* MULTI 001128 : ,OCT,7774.*=* SCREEN 001129 : ,OCT,7774.*=* MONITO 001130 : C----- METKA BPEMEHИ + OTBЯЗKA 001131 : C PP.48/25 - METKA BPEMEHИ ПO ФИЗ.KAHAЛAM 001132 : C PP.24/01 - ШKAЛA OTBЯЗKИ ФИЗ.KAHAЛOB 001133 : ,BSS,4 001134 : ,END, 001135 : *TLCONN:,NAME, 001136 : C 001137 : C***** KOHCTAHTЫ ДЛЯ ПPИBЯЗKИ 001138 : C 001139 : C----- KOДЫ ПPИBЯЗKИ K ПOДCИCTEMAM 001140 : C PP.48/33 - 2 CИMBOЛA ДЛЯ ПPИBЯЗKИ, 001141 : C B OБPATHOM ПOPЯДKE 001142 : C PP.15/01 - HOMEP ПOДCИCTEMЫ 001143 : ,ISO,6H '''''''''1' 001144 : ,ISO,6H '''''''1' 001145 : ,ISO,6HTM'''''''1' 001146 : ,ISO,6HPO'''''''0' 001147 : C 001148 : C 001149 : MAIN*C:,ENTRY, 001150 : C 001151 : C***** PAЗPEШEHИE ПPИBЯЗKИ K ПOДCИCTEMAM 001152 : C 001153 : C PP.48/25 - ШKAЛA ФИЗ.KAHAЛOB, ДЛЯ KOTO- 001154 : C PЫX ПPИBЯЗKA PAЗPEШEHA 001155 : C 001156 : C----- OПEPATOPCKИE KOHCOЛИ 001157 : C PP.15/01 - HOMEP ПEPBOЙ OПEPATOPCKOЙ 001158 : C KOHCOЛИ ПO YMOЛЧAHИЮ 001159 : ,OCT,60000000 000 00001 001160 : C 001161 : C----- ДPYГИE ПOДCИCTEMЫ 001162 : C PP.15/01 - HOMEPA ЗAДAЧ ДЛЯ STARTJOB 001163 : ,OCT,77777777 00000005. MT 001164 : ,OCT,77777777 00000067. ЭP 001165 : ,OCT,77777777 00000002. 001166 : C 001167 : ,END, 001168 : *TLPRMT:,NAME, 001169 : C 001170 : C***** HACTPOЙKA ПO TEPMИHAЛAM 001171 : C ПAPAMETPЫ ФИЗ.KAHAЛOB 001172 : C 001173 : C PAБOЧAЯ ЯЧEЙKA: 001174 : C 001175 : C B MOMEHT ЗAГPYЗKИ - ЧACTOTA BPEMEHHЫX 001176 : C ПPEPЫBAHИЙ, ДEЛEHHAЯ HA 150: 001177 : C 1 - 150 ГЦ, 2 - 300 ГЦ, 4 - 600 ГЦ, 001178 : C 10 - 1200 ГЦ. 001179 : ,LOG,2 001180 : C BO BPEMЯ PAБOTЫ - HOMEP KAHAЛA TИПA 001181 : C TEKTRONIX (ФOPMИPYETCЯ П/П STARTDD). 001182 : C 001183 : C 001184 : C MACKИ KAHAЛOB BBOДA И BЫBOДA: 001185 : C 001186 : C 48/25 P. MIN И MOT ДOЛЖHЫ COBПAДATЬ. 001187 : C OHИ COOTBETCTBYЮT TИПAM KAHAЛOB: 001188 : C 48 P. - 1-Й KOHCYЛЬCKИЙ KAHAЛ, 001189 : C 47 P. - 2-Й KOHCYЛЬCKИЙ KAHAЛ, 001190 : C 46 - 31 P. - KAHAЛЫ MYЛЬTИПЛEKCOPA, 001191 : C 30 - 26 P. - ПOKA HE ЗAДEЙCTBOBAHЫ, 001192 : C 25 P. - KAHAЛ TИПA "TEKTRONIX". 001193 : C "1" B 24/1 P. MIN COOTBETCTBYЮT 001194 : C TEM PAЗPЯДAM TEЛEГPAФHOГO PEГИCTPA, 001195 : C ПO KOTOPЫM ИДET BBOД. 001196 : C "1" B 24/1 P. MOT COOTBETCTBYЮT 001197 : C TEM PAЗPЯДAM TEЛEГPAФHOГO PEГИCTPA, 001198 : C ПO KOTOPЫM ИДET BЫBOД. 001199 : C 001200 : C MAKCИMAЛЬHOE ЧИCЛO KAHAЛOB - 24. 001201 : C 001202 : ,LOG,77770000 7777 0000. MIN 001203 : ,LOG,77770000 0000 7777. MOT 001204 : C 001205 : C ДAЛEE E,P,U-XAPAKTEPИCTИKИ TPEX ГPYПП 001206 : C ПOCЛEДOBATEЛЬHO ПOДKЛЮЧEH. TEPMИHAЛOB. 001207 : C 001208 : C 001209 : C XAPAKTEPИCTИKA E : 001210 : C 42/28 - ФAЗA OT CTAPTA KOHЦA CИMB. 001211 : C 24/1 - ШKAЛA KAHAЛOB ДAHHOГO TИПA 001212 : C ( ПO BBOДY И BЫBOДY ) 001213 : C 001214 : ,LOG,777670 1700 1700 001215 : ,LOG,777550 6077 6077 001216 : ,LOG, 001217 : C 001218 : C XAPAKTEPИCTИKA P : 001219 : C 45/31 - HAЧAЛO CБOPKИ CИMBOЛA 001220 : C 30/16 - ШAГ ПO KAPTE HAПPЯЖEHИЙ 001221 : C 15/1 - KOЛИЧECTBO БИT CИMBOЛA 001222 : C 001223 : ,LOG,77706 77705 77772 001224 : ,LOG,77710 77706 77772 001225 : ,LOG, 001226 : C 001227 : C XAPAKTEPИCTИKA U : 001228 : C 45/31 - HAЧAЛO PAЗБOPKИ CИMBOЛA 001229 : C 30/16 - ШAГ ПO KAPTE HAПPЯЖEHИЙ 001230 : C 15/1 - OTHOCИT.ФAЗA KOHЦA CИMBOЛA 001231 : C 001232 : ,LOG,77777 77777 77766 001233 : ,LOG,77777 77776 77754 001234 : ,LOG, 001235 : C 001236 : C OПИCATEЛЬ MYЛЬTИПЛEKCOPA TEPMИHAЛOB 001237 : C 001238 : C I. 0 - HET HИKAKИX MYЛЬTИПЛEKCOPOB 001239 : C 001240 : C II. MYЛЬTИПЛEKCOP ИBTAH. 001241 : C ПOДKЛЮЧEHИE ПO 19 P. ПPП. 001242 : C 1-4 : MACKИ BBOДA/BЫBOДA 001243 : C 5-8 : ДOП.PEГИCTP ПPEPЫBAHИЙ 001244 : C 001245 : C III. MYЛЬTИПЛEKCOP Г O И 001246 : C ПOДKЛЮЧEHИE HA 12-11 P. ПPП. 001247 : C HACTPAИBAETCЯ "1" B 48-47 PAЗPЯДAX. 001248 : C (48P. COOTBETCTBYET 12 P.ПPП, 001249 : C 47P. COOTBETCTBYET 11 P.ПPП) 001250 : C MACKA 12-11 P.ПPП OTKPЫBAETCЯ TOЛЬKO 001251 : C ПPИ ЗAЖATOM 12-11 P. HA 6 TYMБЛ.PEГ. 001252 : C 001253 : ,LOG,365 001254 : C 001255 : ,END, 001256 : *TLBUFI:,NAME,.БЫBШИЙ C I N 001257 : C 001258 : C***** HACTPOЙKA ПO TEPMИHAЛAM 001259 : C OПИCAHИE ФИЗ.KAHAЛOB 001260 : C 001261 : C..... ЯЧEЙKA 0 : 001262 : C 48:25 - ШKAЛA ФИЗ.KAHAЛOB, ДЛЯ 001263 : C KOTOPЫX PAЗPEШEHA ПPИBЯЗKA K 001264 : C "OPERTERM". 001265 : C 5:1 - HOMEP ГЛABHOЙ OПEPATOPCKOЙ 001266 : C KOHCOЛИ ПPИ OTCYTCTBИИ HAБOPA 001267 : C B 5:1 P. 2 TYMБЛEPHOГO PEГИCTPA. 001268 : C 001269 : 0,LOG,60000300 000000 01 001270 : C 001271 : C 001272 : C..... ЯЧEЙKИ 1 - 24 : OПИCATEЛИ TEPM.KAHAЛOB 001273 : C ( HACTPOEЧHЫE PAЗPЯДЫ - 31:19 ) 001274 : C 001275 : C PP.48/41 - BBEДEHHЫЙ CИMBOЛ 001276 : C 40/33 - ПPEДЫД.CИMBOЛ (HA CBOБ.KAHAЛE) 001277 : C 40/36 - PEЗEPB (HA ПPИBЯЗ.KAHAЛE) 001278 : C 40/37 - KOД CЛYЖ.ПOЛYБAЙTA ДЛЯ MPX 001279 : C 35/33 - HOM.ПOДCИCT.(HA ПPИBЯЗ.KAHAЛE) 001280 : C 0 = OPERTERM 001281 : C 1 = MULTITYP 001282 : C 2 = ЭKPAHHЫЙ PEДAKTOP 001283 : C 3 = MOHИTOP ПOДCИCTEM 001284 : C 32 - ECTЬ CИMBOЛ (ДЛЯ BINARY-INPUT) 001285 : C 31 - ECTЬ "ЗBOHOK" 001286 : C 30 - HYЖHA ЗAДEPЖKA ДЛЯ ROLL 001287 : C 29 - БЛOKИPOBKA PEГEHEPAЦИИ 001288 : C 28 - CИMBOЛ "LF" ДOПOЛHЯTЬ "CR" 001289 : C 27 - HET ПEPEKOДИPOBKИ BBOДA 001290 : C 26 - HET ПEPEKOДИPOBKИ BЫBOДA 001291 : C 25 - ПPИЗHAK CИHXPOHИЗAЦИИ KAHAЛA 001292 : C 24/22 - TИП TEPMИHAЛA 001293 : C 0 = VT-340 001294 : C 1 = CETEBOЙ (KOД ASCII) 001295 : C 2 = KOHCYЛ 001296 : C 3 = VDT-52130 001297 : C 4 = 15-ИЭ (ЭЛEKTPOHИKA) 001298 : C 21/19 - TИП ФИЗИЧECKOГO KAHAЛA 001299 : C 0 = ПOCЛEДOBATEЛЬHЫЙ KAHAЛ 001300 : C 1 = KOHCYЛ 001301 : C 2 = BИДEOTOH/KOHCYЛ 001302 : C 4 = KAHAЛ ПЭM-2 001303 : C 18 - PEЗEPB 001304 : C 17 - BЫB.PEГИCTP 15-ИЭ 001305 : C 16 - BB.PEГИCTP 15-ИЭ 001306 : C БЫЛ "ESCAPE" (VDT-52130) 001307 : C 15/1 - AДPEC OПИCATEЛЯ BИPT.KAHAЛA 001308 : C 001309 : C***** CTPYKTYPA OПИCATEЛЯ BИPTYAЛЬHOГO 001310 : C KAHAЛA 001311 : C 001312 : C 0 = LJOB - ЗAKAЗ HA PAБOTY 001313 : C И COCTOЯHИE ЗAKAЗA. 001314 : C P.48 - HAЧAЛO PAБOTЫ ПO JOB 001315 : C 47 - "LF" ПO HAЧAЛY CTPOKИ 001316 : C 46 - "CUP" ПO HAЧAЛY CTPOKИ 001317 : C 45 - "EOT" (ПEPEXOД HA BBOД) 001318 : C 44 - OБPAБOTKA INSERT CHAR. 001319 : C 43 - OБPAБOTKA DELETE CHAR. 001320 : C 42 - BBOД/BЫBOД CTPOKИ 001321 : C 41 - ЗAKAЗ HA OTBЯЗKY 001322 : C 40 - ГEHEPAЦИЯ COБЫTИЯ ПOДCИCTEME 001323 : C 39 - PEЗEPB 001324 : C 38 - CTOПOP BЫBOДA (БЫЛ CNTR/S) 001325 : C 37 - ПPИЗHAK BEДEHИЯ TAЙMEPA 001326 : C 36 - ПPИЗHAK BBOДA 001327 : C 35 - ПPИЗHAK ЗACEKPEЧИBAHИЯ "*" 001328 : C 34 - ЗAKOHЧEHA PAБOTA ПO CTPOKE 001329 : C 33 - ПPEPBAH BЫBOД, 001330 : C ЛИБO CPAБOTAЛ TAЙMEP HA BBOДE 001331 : C 32 - ЛOПHYЛA ДЛИHA CTPOKИ 001332 : C 31 - PEЗEPB 001333 : C 30 - PEЗEPB 001334 : C 29 - БЛOKИPOBKA PEГEHEPAЦИИ ПPИ BBOДE 001335 : C 28 - ПPИЗHAK "ПPOЗPAЧHOГO" BBOДA 001336 : C 27 - PEЗEPB 001337 : C 26 - PEЗEPB 001338 : C 25 - ПPИЗHAK HEПYCTOГO BBOДA 001339 : C 24 - ПPИЗHAK ПEPEПOЛHEHИЯ CЧETЧИKA 001340 : C 23/16 - TEK.CЧETЧИK CИMBOЛOB 001341 : C 15/1 - TEK.AДPEC ПO БYФEPY BB/BЫB. 001342 : C 001343 : C 1 = MSK - MACKA ПOЗИЦИИ CИMBOЛA B TEK. 001344 : C CЛOBE БYФEPA BBOДA/BЫBOДA 001345 : C 001346 : C 2 = XNT - CCЫЛKA HA ФИЗ. KAHAЛ 001347 : C 48/41 - TEK.TAЙMEP ПPИ BBOДE 001348 : C 40/33 - HAЧ.TAЙMEP HA BBOД CИMBOЛA 001349 : C 32/21 - PEЗEPB 001350 : C 20/16 - HOMEP ЛOГИЧECKOГO KAHAЛA 001351 : C 15/01 - HOMEP ФИЗИЧECKOГO KAHAЛA 001352 : C 001353 : C 3 = OWNER - BЛAДEЛEЦ KAHAЛA 001354 : C 48/43 - ДHЗ, ПOДABШEЙ ЭKCTPAKOД 001355 : C 10/01 - HOMEP PASS ПOЛЬЗOBATEЛЯ 001356 : C 001357 : C 4 = WSC - PAБOЧAЯ ЯЧEЙKA ДЛЯ PEAЛИЗAЦИИ 001358 : C "IC" И "DC" 001359 : C ПOCЛE OTPAБOTKИ ЗAKAЗA: 001360 : C 8/1 - CИMBOЛ OKOHЧAHИЯ BBOДA, ЛИБO 001361 : C CИMBOЛ ПEPEБИBKИ BЫBOДA. 001362 : C 001363 : C 5 = ... - "-1" ЯЧEЙKA CTPOKИ 001364 : C 001365 : C 6 = STRI(14) - БYФEP BBOДA. 001366 : C OПEPAЦИИ "IC" И "DC" PEAЛИЗYЮTCЯ 001367 : C TOЛЬKO B ПPEДEЛAX ЭTOГO БYФEPA. 001368 : C 001369 : C БYФEP BЫBOДA MOЖET PACПOЛAГATЬCЯ 001370 : C B ДPYГOM MECTE. 001371 : C 001372 : C 001373 : C===== HACTPOЙKA ПO TИПAM TEPMИHAЛOB 001374 : C 001375 : C--- KOHCYЛЫ 001376 : 1,LOG,0002 000000.VT-CONS 1 001377 : 2,LOG,0002 000000.VT-CONS 2 001378 : C--- MYЛЬTИПЛEKCOP ИBTAH 001379 : 3,LOG,3014 000000.CETЬ-0 001380 : 4,LOG,3014 000000.CETЬ-1 001381 : 5,LOG,3014 000000.CETЬ-2 001382 : 6,LOG,3014 000000.CETЬ-3 001383 : 7,LOG,0004 000000.CETЬ-4 001384 : 8,LOG,0004 000000.CETЬ-5 001385 : 9,LOG,0004 000000.CETЬ-6 001386 : 10,LOG,0004 000000.CETЬ-7 001387 : 11,LOG,0004 000000.CETЬ-8 001388 : 12,LOG,0004 000000.CETЬ-9 001389 : C--- TEЛEГPAФHЫЙ PEГИCTP 001390 : 13,LOG,0000 000000.VT-340 001391 : 14,LOG,0000 000000.VT-340 001392 : 15,LOG,1030 000000. V D T 001393 : 16,LOG,0000 000000.VT-340 001394 : 17,LOG,0000 000000.---"--- 001395 : 18,LOG,0000 000000.---"--- 001396 : 19,LOG,0000 000000.---"--- 001397 : 20,LOG,0000 000000.---"--- 001398 : 21,LOG,0000 000000.---"--- 001399 : 22,LOG,0000 000000.---"--- 001400 : 23,LOG,0000 000000.---"--- 001401 : 24,LOG,0000 000000.---"--- 001402 : ,END, 001403 : *TLCONST:,NAME, 001404 : C 001405 : C***** OБЩИE KOHCTAHTЫ TL-KOMПЛEKCA 001406 : C 001407 : ,LOG,01600000 00000000.B43/41 001408 : ,LOG,77600000 00000000.B48/41 001409 : ,LOG,60000000 00000000.B48/47 001410 : ,LOG,37700000 00000000.B47/40 001411 : ,GOST,6H'377'0000'200' 001412 : ,LOG,00000000 07000000.M*TYC 001413 : ,GOST,6H0'377''377''377''377''177' 001414 : ,GOST,6H'377''377''377''377'0'376' 001415 : ,LOG,00177577 77777777.M*FIC 001416 : ,LOG,40100200 40100200.C200* 001417 : ,LOG,37677577 37677577.C177* 001418 : ,LOG,00000000 00000360.C360 001419 : ,LOG,00000177 77700000.B31/16 001420 : ,LOG,00000177 77000000.B31/19 001421 : ,LOG,30000000 00000000.B47/46 001422 : ,LOG,77777777 77677777.B16M 001423 : ,LOG,77777777 77777776.B1M 001424 : ,LOG,00777777 77000000.B42/19 001425 : ,LOG,77000000 00000000.B48/43 001426 : ,LOG,77777400 00000000.B48/33 001427 : ,LOG,01200000 00000000.B43*41 001428 : ,LOG,77700000 00000000.M*LJOB 001429 : ,END, 001430 : *TLSYN:,NAME, 001431 : C 001432 : C***** KOHCTAHTЫ CИHXPOHИЗAЦИИ 001433 : C 001434 : ,OCT,376 .S*PAD 001435 : ,OCT,412 .C*WAIT 001436 : ,END, 001437 : *TLSTAT:,NAME, 001438 : C 001439 : C***** COCTOЯHИE TL-KOMПЛEKCA 001440 : C 001441 : ,BSS,1.BB 001442 : ,OCT,77777777 77777777.B/FREE 001443 : ,OCT,77777777 00000000.N/FREE 001444 : ,BSS,1.LAST 001445 : ,BSS,1.OUT 001446 : ,BSS,1.REQOUT 001447 : ,BSS,1. P E З E P B 001448 : ,BSS,1.J IN 001449 : ,BSS,1.J OUT 001450 : ,BSS,1.J LINE 001451 : ,LOG,1.J TIM 001452 : ,BSS,1.SPEC*CH 001453 : ,BSS,1.SC*DOWN 001454 : ,BSS,1.SC*BNL 001455 : ,END, 001456 : BIO*TL:,NAME,.20.02.78 001457 : C 001458 : C***** OБCЛYЖИBAHИE TEЛEГPAФHOГO PEГИCTPA 001459 : C***** ( БИTOBOE , MACCOBOE ) 001460 : C 001461 : *TLSIZE:LC,BLOCK,LMTR 001462 : M:,WEQ,LMTR.ДЛИHA MATPИЦЫ 001463 : *TLMTR:,LC,M+1 001464 : *TLMTR:I,BLOCK,XF,MTR 001465 : *TLPRMT:LC,BLOCK,(1),MIN,MOT,X*E(3) 001466 : *TLSTAT:LC,BLOCK,BB,B/FREE,N/FREE,LAST 001467 : ,CONT,OUT,REQOUT(2),JIN,JOUT 001468 : *YCЫ:LC,BLOCK,(2),COMMIR 001469 : WSD:LC,BLOCK,X1 001470 : RETURN:,SUBP, 001471 : ITIMEB10:,SUBP, 001472 : IFJOB*TL:,SUBP, 001473 : B24/1:,LC,1 001474 : FULWOR:,LC,1 001475 : *701:B,BLOCK,B47,B46(6),B40(9),B31(16),B15(14),B1 001476 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 001477 : F:,EQU,13 001478 : E:,EQU,14 001479 : R:,EQU,15 001480 : C 001481 : C----- KOPPEKЦИЯ ФAЗЫ 001482 : ,XTA,XF 001483 : ,A-X,B1 001484 : ,UZA,PHA P 001485 : ,A+X,LMTR 001486 : PHA P:,ATI,F 001487 : ,ATX,XF. 001488 : C----- TL - BЫДAЧA (ДИФФEP.KOД) 001489 : F,XTA,MTR 001490 : ,AAX,MOT 001491 : ,AEX,OUT 001492 : ,EXT,140B. O U T P U T 001493 : ,ATX,OUT 001494 : C----- 001495 : F,XTA,MTR 001496 : ,ASN,64+24.- ECTЬ KOHЦЫ 001497 : ,UZA,INPUT. = HET 001498 : C===== KOHЦЫ CИMBOЛOB (BBOД/BЫBOД) 001499 : ,ATX,BB 001500 : R,VJM,FREE 001501 : ,XTA,BB 001502 : ,APX,MIN 001503 : ,AOX,J IN 001504 : ,ATX,J IN.= BBEДEHO 001505 : INPUT:,BSS, 001506 : C----- BBOД + HAЧAЛA CИMBOЛOB 001507 : ,EXT,4100B. I N P U T 001508 : ,EXT,146B.CИHXPOHИЗAЦИЯ 001509 : ,AAX,MIN 001510 : F,ATX,MTR.- KOHЦЫ И BЫBOД 001511 : ,AAX,LAST 001512 : ,AAX,B/FREE 001513 : ,U1A,BEG CHR.= ECTЬ CTAPTЫ 001514 : *ЧACTOTA:,IFGE,FREQ,600 001515 : *TL/ERR:LC,BLOCK,T31,N1*ER 001516 : ,XTA,T31.KOHTPOЛЬ 31P 001517 : ,UZA,F LAST. -> HET 001518 : ,XTA,B/FREE 001519 : ,AEX,FULWOR 001520 : ,AAX,B24/1 001521 : ,U1A,F LAST. -> HEЛЬЗЯ 001522 : ,ATX,T31 001523 : ,XTA,B*START 001524 : ,AOX,B40 001525 : ,AEX,FULWOR 001526 : ,MOD,37B 001527 : ,AEX,FULWOR 001528 : ,AEX,COMMIR 001529 : ,ATX,COMMIR 001530 : ,MOD,36B 001531 : *ЧACTOTA*:,ENDIF, 001532 : F LAST:,BSS, 001533 : C----- ЛOBЛЯ HYЛЯ B TL-PEГИCTPE 001534 : F,XTA,MTR 001535 : ,AEX,MIN.CTPOБ ДЛЯ 001536 : ,ATX,LAST.CTAPTOBЫX 001537 : C----- ПPOБA ГOTOBHOCTИ BЫBOДA 001538 : ,XTA,REQ OUT. 001539 : ,AAX,N/FREE. 001540 : ,UZA,IF JOB. = HET 001541 : C===== ЗAПYCK BЫBOДA CИMBOЛOB 001542 : ,AOX,J OUT 001543 : ,ATX,J OUT.ЗAKAЗ BЫBOДA 001544 : ,AUX,MOT 001545 : R,VJM,BUSY. 001546 : IF JOB:,BSS, 001547 : *ЧACTOTA:1,IFGE,FREQ,600 001548 : 14,VTM,RETURN 001549 : *ЧACTOTA:1,IFLT,FREQ,600 001550 : 14,VTM,ITIMEB10 001551 : ,UJ,IFJOB*TL 001552 : C 001553 : C===== HAЧAЛA CИMBOЛOB (BBOД) 001554 : BEG CHR:,BSS, 001555 : ,ATX,BB.BEGIN-BIT 001556 : R,VJM,BUSY. PUT '0' 001557 : C----- ЗAПИCЬ KOHЦOB B COOTBETCTBИE 001558 : C C TИПOM TEPMИHAЛA 001559 : F,VTM,-2 001560 : R,VTM,EL BEG 001561 : L BEG:,XTA,BB 001562 : F,AAX,X*E+2.HAШ TИП 001563 : ,ATX,X1. (B БPЗ) 001564 : ,U1A,P BEG. = ДA 001565 : EL BEG:F,VLM,L BEG 001566 : ,WTC,XF 001567 : F,VTM,.BOCCTAH.ФAЗЫ 001568 : *ЧACTOTA:2,IFGE,FREQ,600 001569 : ,XTA, 001570 : ,ATX,T31 001571 : ,UJ,F LAST 001572 : P BEG:F,XTA,X*E+2 001573 : ,ASN,64+27 001574 : ,ATI,E.- AДPEC KOHЦA 001575 : ,XTA,X1 001576 : C 001577 : C===== ЗAПИCЬ KOHЦOB CИMBOЛOB 001578 : C 001579 : WRE*TL:,ENTRY, 001580 : ,ASN,64-24 001581 : ,ATX,X1. - KOHЦЫ 001582 : ,WTC,XF 001583 : E,UTM,.ФAЗA KOHЦA 001584 : ,ITA,E 001585 : ,AAX,B15 001586 : ,UZA,WR 1 001587 : E,UTM,M. - KOЛЬЦO 001588 : WR 1:,XTA,X1 001589 : E,AOX,MTR 001590 : E,ATX,MTR 001591 : R,UJ, 001592 : C 001593 : C***** YCTAHOBKA CTPOБOB CTAPTOB И BЫДAЧИ 001594 : C 001595 : FREE*TL:,ENTRY, 001596 : FREE:,BSS, 001597 : ,AOX,B/FREE 001598 : ,UJ,PUT* 001599 : C 001600 : C***** ГAШEHИE CTPOБOB CTAPTOB И BЫДAЧИ 001601 : C 001602 : BUSY*TL:,ENTRY, 001603 : BUSY:,AEX,FULWOR 001604 : ,AAX,B/FREE 001605 : PUT*:,ATX,B/FREE 001606 : ,APX,MOT 001607 : ,ATX,N/FREE 001608 : R,UJ, 001609 : C***** 001610 : ,END, 001611 : CONINT/I:,NAME, 001612 : C 001613 : C***** OБPAБOTKA ПPEPЫBAHИЙ ПO 001614 : C***** ПAPAЛЛEЛЬHЫM TEPM.KAHAЛAM 001615 : C 001616 : *TLPRMT:LC,BLOCK,(2),MOT 001617 : *TLSTAT:LC,BLOCK,(5),REQOUT(2),JIN,JOUT 001618 : *CB:LC,BLOCK,(1),C17 001619 : IFJOB*TL:,SUBP, 001620 : FREE*TL:,SUBP, 001621 : BUSY*TL:,SUBP, 001622 : CLOPIR:,SUBP, 001623 : RETURN:,SUBP, 001624 : WSD:LC,BLOCK,WS1 001625 : *700:B,BLOCK,B48(11),B37(18) 001626 : ,CONT,B19(3),B16(4),B12(2) 001627 : ,CONT,B10(6),B4(2),B2,B1 001628 : C 001629 : C***** CONSUL VT/CONS - INPUT 001630 : C 001631 : 14,XTA,B12 001632 : ,CALL,CLOPIR 001633 : 14,XTA,B48 001634 : 14,VTM,RETURN 001635 : C 001636 : IF*INP:,ENTRY, 001637 : C 001638 : ,APX,MOT 001639 : ,AOX,J IN 001640 : ,ATX,J IN 001641 : ,UJ,IFJOB*TL 001642 : C 001643 : C***** CONSUL VT/CONS - OUTPUT 001644 : C 001645 : CONINT/O:,ENTRY, 001646 : 14,XTA,B10 001647 : ,CALL,CLOPIR 001648 : 14,XTA,B48 001649 : 14,VTM,RETURN 001650 : C 001651 : IF*OUT:,ENTRY, 001652 : C 001653 : ,ATX,WS1 001654 : ,APX,MOT 001655 : 15,VTM,IFJOB*TL 001656 : ,AAX,REQOUT 001657 : ,UZA,PUT 001658 : ,AOX,J OUT 001659 : ,ATX,J OUT 001660 : ,XTA,WS1 001661 : ,UJ,BUSY*TL 001662 : PUT:,XTA,WS1 001663 : ,UJ,FREE*TL 001664 : ,END, 001665 : SDRV*INP:,NAME, 001666 : C 001667 : C***** ПAPAЛЛEЛЬHЫЙ ФИЗ.ДPAЙBEP 001668 : C***** YPOBHЯ "C I O" 001669 : C 001670 : *TLBUFI:LC,BLOCK,CHR(0),CIN 001671 : *TLBUFO:LC,BLOCK,WS 001672 : WSD:LC,BLOCK,WS1(2),NBB 001673 : *TLCONST:LC,BLOCK,(5),M*TYC(6),C360 001674 : SER*INP:,SUBP, 001675 : SER*OUT:,SUBP, 001676 : PERPIR:,SUBP, 001677 : MPX*INP:,SUBP, 001678 : MPX*OUT:,SUBP, 001679 : C377:,LC,1 001680 : *700:B,BLOCK,B48,B47(23),B24(5),B19(7) 001681 : ,CONT,B12,B11,B10,B9,B8,B7 001682 : ,CONT,B6,B5,B4,B3,B2,B1 001683 : N:,EQU,10 001684 : S:,EQU,12 001685 : F:,EQU,13 001686 : C 001687 : C***** BBOД C TEPMИHAЛOB 001688 : C 001689 : N,XTA,CIN 001690 : ,APX,M*TYC.ПOCЛEД.KAHAЛ 001691 : ,UZA,SER*INP.-> ДA 001692 : ,ATX,WS1 001693 : ,WTC,NBB 001694 : F,VTM, 001695 : ,AEX,B48 001696 : ,UZA,MPX*INP 001697 : ,AAX,B47 001698 : ,ATX,WS. VT/CONS 001699 : :,U1A,*+1. -> ДA 001700 : ,UTC,4174B-4156B 001701 : :F,EXT,4156B-1 001702 : ,ATX,CHR 001703 : ,XTA,WS 001704 : ,UZA,INP 1 001705 : ,XTA,B10 001706 : F,EXT,156B-1 001707 : INP 1:F,XTA,B12-1 001708 : ,CALL,PERPIR 001709 : ,XTA,WS1 001710 : ,AAX,B48.KOHCYЛ/MEЖMAШ 001711 : ,UZA,RET2.-> HET 001712 : ,EXT,172B.ПOДTBEPЖДEHИE 001713 : RET 2:,XTA,CHR 001714 : ,AAX,C377 001715 : 14,UJ, 001716 : C 001717 : C***** BЫBOД HA TEPMИHAЛЫ 001718 : C 001719 : SDRV*OUT:,ENTRY, 001720 : N,XTA,CIN 001721 : ,APX,M*TYC.ПOCЛEД.KAHAЛ 001722 : ,UZA,SER*OUT.-> ДA 001723 : ,WTC,NBB 001724 : F,VTM, 001725 : ,AEX,B48 001726 : ,UZA,MPX*OUT 001727 : ,AAX,B47 001728 : ,ATX,WS 001729 : F,XTA,B10-1 001730 : F,MTJ,15 001731 : ,CALL,PERPIR 001732 : ,XTA,WS 001733 : ,UZA,CONO/1 001734 : ,XTA,B24 001735 : 15,EXT,156B-1 001736 : 15,UTM,156B-174B 001737 : CONO/1:,ITA,S 001738 : ,AOX,B9 001739 : 15,EXT,174B-1 001740 : 14,UJ, 001741 : ,END, 001742 : MPX*T:,NAME, 001743 : C 001744 : C***** ДPAЙBEP MYЛЬTИПЛEKCOPA ГOИ 001745 : C 001746 : *TLSIZE:LC,BLOCK,(3),XSS 001747 : *TLBUFI:LC,BLOCK,CIN 001748 : *TLSTAT:LC,BLOCK,(5),REQOUT(2),JIN,JOUT 001749 : *TLPRMT:LC,BLOCK,(2),MOT(10),COUNT 001750 : *TLSYS :LC,BLOCK,STATSS 001751 : BUSY*TL:,SUBP, 001752 : FREE*TL:,SUBP, 001753 : IFJOB*TL:,SUBP, 001754 : RETURN:,SUBP, 001755 : WSD:LC,BLOCK,WS1(2),NBB 001756 : C377:,LC,1 001757 : C7:,LC,1 001758 : *700:B,BLOCK,B48(2),B46(30) 001759 : ,CONT,B16(4),B12(11),B1 001760 : *12:,BLOCK,S,F,N,R 001761 : NSS:,WEQ,XSS 001762 : NS/1:,EQU,NSS-1 001763 : C 001764 : C===== PEAKЦИЯ HA ПPEPЫBAHИE 001765 : C 001766 : ,XTA,COUNT 001767 : ,ATI,F 001768 : ,ARX,B1 001769 : ,AAX,C7 001770 : ,ATX,COUNT 001771 : F,V1M,CONT1 001772 : N,EXT,4174B 001773 : ,ATX,SYM 001774 : ,XTA,C377 001775 : N,EXT,174B 001776 : ,ATX, 001777 : CONT1:,XTA,SYM 001778 : ,UZA,CONT2 001779 : ,AEX,C377 001780 : ,UZA,CONT2 001781 : F,AOX,BUFSYM 001782 : F,ATX,BUFSYM 001783 : F,XTA,B46 001784 : ,APX,MOT 001785 : ,AOX,JIN 001786 : ,ATX,JIN 001787 : CONT2:N,EXT,4174B 001788 : ,ATX,SYM 001789 : F,XTA,BUFSYM 001790 : ,ASN,64+8 001791 : ,UZA,CONT3 001792 : ,ATX,CIN 001793 : F,XTA,B46 001794 : R,VJM,FREE*TL 001795 : F,XTA,B46 001796 : ,APX,MOT 001797 : ,AAX,REQOUT 001798 : ,UZA,PUT 001799 : ,AOX,JOUT 001800 : ,ATX,JOUT 001801 : F,XTA,B46 001802 : R,VJM,BUSY*TL 001803 : PUT:F,XTA,BUFSYM 001804 : ,AAX,C377 001805 : F,ATX,BUFSYM 001806 : ,XTA,CIN 001807 : CONT3:N,EXT,174B 001808 : ,ATX, 001809 : F,UTM,-7 001810 : F,VZM,RETMPX 001811 : N,XTA,B12 001812 : ,EXT,142B 001813 : ,UJ,IF JOB 001814 : RETMPX:R,VTM,-NS/1 001815 : ,XTA, 001816 : :R,AOX,STATSS+NS/1 001817 : R,VLM,* 001818 : ,ASN,64-6 001819 : ,AUX,MOT 001820 : ,AAX,MPXCH 001821 : ,U1A,IF JOB 001822 : N,XTA,B12 001823 : ,CALL,CLOPIR 001824 : IF JOB:14,VTM,RETURN 001825 : ,UJ,IFJOB*TL 001826 : C 001827 : C===== ПEPEДAЧA BBEДEHHOГO CИMBOЛA 001828 : C 001829 : MPX*INP:,ENTRY, 001830 : F,XTA,BUFSYM-3 001831 : ,AAX,C377 001832 : F,AEX,BUFSYM-3 001833 : F,ATX,BUFSYM-3 001834 : ,YTA, 001835 : 14,UJ, 001836 : C 001837 : C===== БYФEPИЗAЦИЯ CИMBOЛA ДЛЯ BЫBOДA 001838 : C 001839 : MPX*OUT:,ENTRY, 001840 : ,ITA,S 001841 : S,VZM,CL 001842 : ,ASN,64-8 001843 : ,UTC,B16-B48 001844 : CL:,AEX,B48 001845 : F,AOX,BUFSYM-3 001846 : F,ATX,BUFSYM-3 001847 : 14,UJ, 001848 : C 001849 : C===== 001850 : C 001851 : MPX*TIM:,ENTRY, 001852 : 14,UJ, 001853 : C 001854 : MPXCH:,OCT,1774 001855 : SYM:,BSS,1 001856 : BUFSYM:,BSS,8 001857 : ,END, 001858 : MPX*T:,NAME, 001859 : C 001860 : C***** БAЙTOBЫЙ KAHAЛ ПЭM-2 001861 : C 001862 : *TLBUFI:LC,BLOCK,CHR(0),CIN 001863 : *TLBUFO:LC,BLOCK,COT 001864 : *TLSTAT:LC,BLOCK,(5),REQOUT(2),JIN,JOUT 001865 : *TLPRMT:LC,BLOCK,(2),MOT(10),/UVCH/ 001866 : BUSY*TL:,SUBP, 001867 : FREE*TL:,SUBP, 001868 : IF*INP:,SUBP, 001869 : IF*OUT:,SUBP, 001870 : RETURN:,SUBP, 001871 : WSD:LC,BLOCK,(2),NBB 001872 : FULWOR:,LC,1 001873 : C377:,LC,1 001874 : C37:,LC,1 001875 : MAXTIM:,EQU,C37 001876 : TTPRINT:,SUBP, 001877 : *CB:LC,BLOCK,(1),C17 001878 : C5:,LC,1 001879 : *700:B,BLOCK,B48(2),B46(14),B32(13) 001880 : ,CONT,B19(3),B16(9) 001881 : ,CONT,B7,B6,B5,B4,B3,B2,B1 001882 : C 001883 : R:,EQU,15 001884 : F:,EQU,13 001885 : S:,EQU,12 001886 : N:,EQU,10 001887 : *TLCONST:LC,BLOCK,(6) 001888 : ,CONT,M1*O,M2*O(12) 001889 : ,CONT,B48/33 001890 : C 001891 : C----- ИCПOЛЬЗOBAHИE ЯЧEЙKИ /UVCH/ 001892 : C 48/33 P. - ШKAЛA KAHAЛOB HA ЭTAПE 001893 : C BЫBOДA,ДO ПPEPЫBAHИЯ 001894 : C 32/17 P. - ШKAЛA KAHAЛOB, ЗAKPЫTЫX 001895 : C ПO ЗAЯBKE MYЛЬTИПЛEKCOPA 001896 : C (БЫЛ CNTR/S). 001897 : C 08/05 P. - ДOП.PEГИCTP ПPEPЫBAHИЙ. 001898 : C 04/01 P. - MACKИ BBOДA/BЫBOДA. 001899 : C 001900 : C----- ИCПOЛЬЗOBAHИE ЯЧEЙKИ OWNER 001901 : C (3-E CЛOBO ДECKP.BИPT.KAHAЛA) 001902 : C 48/43 P. - ДHЗ BЛAДEЛЬЦA 001903 : C 10/1 P. - N PASS BЛAДEЛЬЦA 001904 : C 001905 : C----- OБЩИЙ ФOPMAT 2-БAЙTOBOЙ ПOCЫЛKИ: 001906 : C 16/13 P. - CЛYЖEБHЫЙ ПOЛYБAЙT 001907 : C 12/9 P. - HOMEP TEPMИHAЛA 001908 : C 8/1 P. - БAЙT ИHФOPMAЦИИ 001909 : C 001910 : C 001911 : C===== БЛOK PEAKЦИИ HA ПPEPЫBAHИE 001912 : C 001913 : ,EXT,4165B.ЧTEHИE PПP 001914 : ,AAX,C5 001915 : ,AAX,/UVCH/ 001916 : ,UZA,RETURN.-ЛOЖHЯK 001917 : C----- BЫЯCHEHИE TИПA ЗAKAЗA 001918 : ,AAX,B3 001919 : ,UZA,REDY. - BЫBOД 001920 : ,EXT,4164B.ЧTEHИE БAЙTA 001921 : ,ATX,CHR 001922 : ,ASN,64+8.BЫЯCHИM 001923 : ,AAX,C17. HOMEP 001924 : ,ATI,F. MPX-KAHAЛA 001925 : ,UTC,-2 001926 : REDY:R,VTM,0 001927 : R,XTA,B1 001928 : ,AEX,/UVCH/.ЗAKPЫTИE 001929 : ,ATX,/UVCH/.MACKИ ДPП 001930 : R,AEX,B5.ГAШEHИE ДPП 001931 : ,EXT,155B. *** 001932 : ,XTA,FULWOR 001933 : ,AEX,B19.ГAШEHИE 001934 : ,EXT,30B. B ПPП 001935 : R,V1M,CH*IN 001936 : C----- BЫДAЧA БAЙTA ИЗ OЧEPEДИ 001937 : ,XTA,/UVCH/ 001938 : ,AAX,B48/33 001939 : ,AEX,/UVCH/ 001940 : ,ATX,/UVCH/ 001941 : ,YTA, 001942 : ,ASN,64+2 001943 : 14,VTM,RETURN 001944 : ,UJ,IF*OUT 001945 : C----- AHAЛИЗ ПPИHЯTЫX БAЙTOB 001946 : CH*IN:,BSS, 001947 : ,XTA,CHR 001948 : ,AAX,=17 0377 001949 : 14,VTM,/ON 001950 : ,AEX,=10 0021."Q" 001951 : ,UZA,INP*S 001952 : 14,VTM,/OFF 001953 : ,AEX,B2."S" 001954 : ,UZA,INP*S 001955 : C... ЗAПYCK C I O 001956 : 14,VTM,RETURN 001957 : F,XTA,B46 001958 : ,UJ,IF*INP 001959 : C 001960 : C... CИГHAЛЫ ГOTOBHOCTИ : 001961 : C 001962 : /OFF:14,VTM,BUSY*TL 001963 : F,XTA,B32 001964 : ,AOX,/UVCH/ 001965 : ,UJ,ON/OFF 001966 : C 001967 : /ON:,XTA,/UVCH/ 001968 : F,AAX,B32 001969 : ,UZA,RETURN 001970 : ,AEX,/UVCH/ 001971 : 14,VTM,FREE*TL 001972 : C 001973 : ON/OFF:,ATX,/UVCH/ 001974 : R,VTM,RETURN 001975 : F,XTA,B46 001976 : 14,UJ, 001977 : C 001978 : C===== ПPИEM C MYЛЬTИПЛEKCOPA 001979 : C 001980 : MPX*INP:,ENTRY, 001981 : ,EXT,4164B 001982 : ,ATX,CHR.ПPИEM 001983 : ,ASN,64-24.16/13 --> 40/37 001984 : N,AEX,CIN 001985 : ,ATI,R 001986 : R,VZM,INP*S.HE ПPИBЯЗAH 001987 : ,AAX,=:0017 001988 : N,AEX,CIN 001989 : N,ATX,CIN 001990 : INP*S:,BSS, 001991 : ,XTA,B19 001992 : ,EXT,165B.ПOДTBEPЖДEHИE 001993 : ,XTA,/UVCH/ 001994 : ,AOX,B3.OTKPЫTИE 001995 : ,ATX,/UVCH/. MACKИ 001996 : ,AEX,B7 001997 : ,EXT,155B.ГAШEHИE ДPП 001998 : ,XTA,CHR 001999 : ,AAX,C377 002000 : 14,UJ, 002001 : C 002002 : C===== BЫДAЧA B MYЛЬTИПЛEKCOP 002003 : C 002004 : MPX*OUT:,ENTRY, 002005 : C B PEГИCTPE F - ФИЗ.HOMEP KAHAЛA 002006 : C ПO ШKAЛE "MOT": 3 - 22 (BIN.) 002007 : F,UTM,-3.(0-17) 002008 : F,XTA,B32."OFF-LINE" 002009 : ,AOX,B48/33. ИЛИ 002010 : ,AAX,/UVCH/.KAHAЛ ЗAHЯT 002011 : ,U1A,PUSH. - ДA 002012 : C----- ПEPEДAЧA ИHФOPMAЦИИ B KAHAЛ 002013 : ,XTA,/UVCH/ 002014 : F,AOX,B48 002015 : ,AOX,B1 002016 : ,ATX,/UVCH/ 002017 : ,AEX,B5 002018 : ,EXT,155B.ГAШEHИE ДPП 002019 : R,VTM,CHR 002020 : ,ITA,S.CИMBOЛ 002021 : ,ITS,F.+NTERM 002022 : ,ASN,64-8 002023 : 15,AOX, 002024 : ,AOX,B19+1 002025 : N,XTS,CIN.HA ПPИBЯЗAHHOM 002026 : ,ATI,R.TEPMИHAЛE 002027 : ,AAX,=:0017.ДOБABИM 002028 : :R,VZM,*+1. KOД 002029 : ,ASN,64+24.CЛYЖEБHOГO 002030 : :,AOX,CHR.ПOЛYБAЙTA 002031 : ,EXT,164B. БAЙT + БИT18 002032 : ,XTA,MAXTIM 002033 : ,ATX,TIMER 002034 : BUSY:14,MTJ,R 002035 : F,XTA,B46 002036 : ,UJ,BUSY*TL 002037 : PUSH:,ASN,64-16.ПPИ "ON-LINE" 002038 : F,AEX,B48.CTABИM B 002039 : ,AOX,/UVCH/.OЧEPEДЬ 002040 : ,ATX,/UVCH/.HA KAHAЛ 002041 : ,ITA,S 002042 : ,ASN,64-40 002043 : ,ATX,CHR 002044 : N,XTA,COT 002045 : ,APX,M2*O 002046 : ,AUX,M1*O 002047 : ,AOX,CHR 002048 : ,AOX,B7-1 .BIT 8 002049 : N,ATX,COT 002050 : ,UJ,BUSY 002051 : C 002052 : C===== BXOД OT BPEMEHHЫX ПPEPЫBAHИЙ: 002053 : C 002054 : MPX*TIM:,ENTRY, 002055 : ,XTA,TIMER 002056 : 14,UZA, 002057 : ,ARX,MAXTIM 002058 : ,AAX,MAXTIM 002059 : ,ATX,TIMER 002060 : 14,U1A, 002061 : ,XTA,/UVCH/ 002062 : ,AAX,B48/33 002063 : 14,UZA, 002064 : 14,VTM,TEXT 002065 : ,ITA,14 002066 : 14,VTM,REDY 002067 : ,UJ,TTPRINT 002068 : TEXT:,ISO,12HCБOЙ MPX*T.'' 002069 : TIMER:,LOG, 002070 : ,END, 002071 : SER*OUT:,NAME, 002072 : C 002073 : C***** ПPEOБPAЗOBAHИE BЫBOДИMOГO CИMBOЛA 002074 : C***** B KAPTY HAПPЯЖEHИЙ 002075 : C 002076 : *TLSIZE:LC,BLOCK,XLM 002077 : LMTR:,WEQ,XLM 002078 : *TLMTR:,LC,LMTR+1 002079 : *TLMTR:I,BLOCK,PHAS,MTR 002080 : *TLBUFI:LC,BLOCK,CHR(0),CIN 002081 : *TLPRMT :LC,BLOCK,(1),MIN(2) 002082 : ,CONT,X*E(3),X*P(3),X*U(3) 002083 : *TLSTAT:LC,BLOCK,BB,B/FREE(2),LAST 002084 : *YCЫ:LC,BLOCK,(2),COMMIR 002085 : WSD:LC,BLOCK,(2),N BB 002086 : PERMIR:,SUBP, 002087 : WRE*TL:,SUBP, 002088 : *TLCONST:LC,BLOCK,(3),B47/40(2),M*TYC 002089 : *TLSYN:LC,BLOCK,S*PAD(2) 002090 : FULWOR:,LC,1 002091 : B24/1:,LC,1 002092 : C77777:,LC,1 002093 : C377 :,LC,1 002094 : *710:B,BLOCK,B40(14),B26(11) 002095 : ,CONT,B15(14),B1 002096 : B*OUT8:,EQU,B26 002097 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 002098 : N:,EQU,10 002099 : L:,EQU,11 002100 : S:,EQU,12 002101 : F:,EQU,13 002102 : E:,EQU,14 002103 : R:,EQU,15 002104 : C 002105 : C======== 002106 : ,XTA,S*PAD 002107 : S,VZM,OUT 1.= PAD-SYMBOL 002108 : ,ITA,S 002109 : ,ASN,64-40 002110 : ,ATX,CHR 002111 : N,XTA,CIN 002112 : ,AAX,B*OUT8 002113 : ,AEX,B*OUT8 002114 : ,UZA,NO/8 002115 : ,XTA,CHR 002116 : ,ACX,B1 002117 : ,ASN,64-47 002118 : NO/8:,AOX,CHR 002119 : ,AEX,B47/40 002120 : OUT1:,ATX,CHR 002121 : ,UTC,X*U-X*P 002122 : C 002123 : C***** CBEPTKA CИMBOЛA ИЗ KAPTЫ HAПPЯЖEHИЙ 002124 : C 002125 : SER*INP:,ENTRY, 002126 : R,VTM, 002127 : ,ITA,14 002128 : ,ATX,/RET 002129 : 14,VTM,-2 002130 : PREP:14,XTA,X*E+2 002131 : ,AAX,BB 002132 : ,U1A,TYPE IS 002133 : 14,VLM,PREP 002134 : TYPE IS:14,UTC,2 002135 : R,XTA,X*P 002136 : 14,VTM,-2 002137 : TY 1:14,ATI,F 002138 : ,ASN,64+15 002139 : 14,VLM,TY 1 002140 : ,WTC,PHAS 002141 : F,UTM, 002142 : R,V1M,OUT 2 002143 : ,XTA, 002144 : ,ATX,CHR 002145 : C----- CБOPKA CИMBOЛA 002146 : PACK:,ITA,F 002147 : ,AAX,B15 002148 : :,UZA,*+1 002149 : F,UTM,L MTR 002150 : :F,XTA,MTR 002151 : ,AAX,BB 002152 : ,ARX,CHR 002153 : ,ARX,CHR 002154 : ,ATX,CHR 002155 : S,J+M,F 002156 : L,VLM,PACK 002157 : *ЧACTOTA:1,IFGE,FREQ,600 002158 : 13,VJM,CLOS*40 002159 : ,XTA,N BB 002160 : ,AEX,C77777 002161 : ,ATI,S 002162 : ,XTA,CHR 002163 : S,ASN,64+49 002164 : ,AEX,C377 002165 : ,WTC,/RET 002166 : ,UJ, 002167 : C----- PAЗBEPTKA CИMBOЛA 002168 : OUT 2:E,VTM,-9 002169 : ,XTA,CHR 002170 : ,ASN,64+1 002171 : ,AEX,CHR.= ДИФФEP.KOД 002172 : ,WTC,N BB 002173 : E,ASN,64-2 002174 : ,ATX,CHR 002175 : UNP:,ITA,F 002176 : ,AAX,B15 002177 : :,UZA,*+1 002178 : F,UTM,LMTR 002179 : :,XTA,CHR 002180 : ,ASN,64+1 002181 : ,ATX,CHR 002182 : ,AAX,BB 002183 : F,AOX,MTR 002184 : F,ATX,MTR 002185 : S,J+M,F 002186 : E,VLM,UNP 002187 : ,XTA,BB 002188 : L,MTJ,E 002189 : R,VJM,WRE*TL 002190 : *ЧACTOTA:1,IFGE,FREQ,600 002191 : 13,VJM,PER*40 002192 : ,WTC,/RET 002193 : ,UJ, 002194 : *ЧACTOTA:,IFGE,FREQ,600 002195 : C 002196 : C***** YCTAHOBKA CTPOБA BIO*TL 002197 : C 002198 : PER*40:,ENTRY, 002199 : *TL/ERR:LC,BLOCK,T31(2) 002200 : ,XTA,B*START 002201 : ,ATX,T31 002202 : PER*40:,BSS, 002203 : ,XTA,COMMIR 002204 : ,AAX,B40 002205 : 13,U1A, 002206 : ,XTA,MIN 002207 : ,ATX,LAST 002208 : ,XTA,B*START 002209 : ,AEX,FULWOR 002210 : ,AAX,COMMIR 002211 : ,ATX,COMMIR 002212 : ,XTA,B40 002213 : ,UJ,PER MIR 002214 : C 002215 : C***** CHЯTИE CTPOБA BIO*TL 002216 : C 002217 : CLOS*40:,ENTRY, 002218 : CLOS*40:,BSS, 002219 : N,XTA,CIN 002220 : ,AAX,M*TYC 002221 : 13,U1A, 002222 : ,XTA,B/FREE 002223 : ,AEX,FULWOR 002224 : ,AAX,B24/1 002225 : 13,U1A, 002226 : ,XTA,B40 002227 : ,AEX,FULWOR 002228 : ,AAX,COMMIR 002229 : ,ATX,COMMIR 002230 : ,XTA,B*START 002231 : ,UJ,PER MIR 002232 : *ЧACTOTA:,ENDIF, 002233 : /RET:,BSS,1 002234 : ,END, 002235 : CIO*TL:,NAME, 002236 : C 002237 : C***** CHARACTER INPUT / OUTPUT 002238 : C ФEДOCEEB , BEPETEHOB 002239 : C 002240 : *TLBUFI:LC,BLOCK,CHR(0),CIN 002241 : *TLBUFO:LC,BLOCK,COT 002242 : *TLPRMT:LC,BLOCK,(2),MOT 002243 : *TLSTAT:LC,BLOCK,BB(5),REQOUT(2) 002244 : ,CONT,JIN,JOUT,JLINE,JTIM 002245 : *YCЫ:LC,BLOCK,(4),PPIR 002246 : MPXMASK:,LC,1 002247 : ABTIME:LC,BLOCK,(1),NINT 002248 : WSD:LC,BLOCK,(1),SAV*S,N BB 002249 : C 002250 : RETURN:,SUBP, 002251 : NEWTA:,SUBP, 002252 : PERPIR:,SUBP, 002253 : SDRV*INP:,SUBP, 002254 : SDRV*OUT:,SUBP, 002255 : FREE*TL:,SUBP, 002256 : STRINGER:,SUBP, 002257 : ALLTOISO:,SUBP, 002258 : ISOTOALL:,SUBP, 002259 : T*CC:,SUBP, 002260 : CONN*OP:,SUBP, 002261 : C 002262 : *TLCONST:LC,BLOCK,NL*RET,B48/41(3) 002263 : ,CONT,M*OUT(2),M1*O,M2*O 002264 : ,CONT,IN*FIC 002265 : *TLSYN:LC,BLOCK,(1),C*WAIT 002266 : *CB:LC,BLOCK,(1),C17 002267 : C 002268 : B48/47:,LC,1 002269 : C377:,LC,1 002270 : C177:,LC,1 002271 : C7:,LC,1 002272 : C 002273 : NL:,EQU,12B 002274 : ESC:,EQU,33B 002275 : ESCP:,EQU,233B 002276 : NEW:,EQU,-8 002277 : OLD:,EQU,0 002278 : C 002279 : *700:B,BLOCK,B48,B47,B46,B45,B44,B43 002280 : ,CONT,B42,B41,B40,B39,B38,B37 002281 : ,CONT,B36,B35,B34,B33,B32,B31 002282 : ,CONT,B30,B29,B28,B27,B26,B25 002283 : ,CONT,B24,B23,B22,B21,B20,B19 002284 : ,CONT,B18,B17,B16,B15,B14,B13 002285 : ,CONT,B12,B11,B10,B9,B8,B7 002286 : ,CONT,B6,B5,B4,B3,B2,B1 002287 : C 002288 : C----- Б И T Ы B "C I N" 002289 : IN*IS:,EQU,B32 002290 : B*BELL:,EQU,B31 002291 : SS*WT:,EQU,B30 002292 : LF*CR:,EQU,B28 002293 : B*IN8:,EQU,B27 002294 : B*OUT8:,EQU,B26 002295 : B*SYN:,EQU,B25 002296 : R*OUT:,EQU,B17 002297 : R*IN :,EQU,B16 002298 : B*ESC:,EQU,B16 002299 : C 002300 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 002301 : SS:,EQU,8 002302 : C:,EQU,9 002303 : N:,EQU,10 002304 : L:,EQU,11 002305 : S:,EQU,12 002306 : F:,EQU,13 002307 : E:,EQU,14 002308 : R:,EQU,15 002309 : C 002310 : C===== 002311 : 15,VTM,SIR 002312 : ,ITA,SS 002313 : ,ITS,C 002314 : ,ITS,N 002315 : ,ITS,L 002316 : ,ITS,S 002317 : ,XTS,J TIM 002318 : ,U1A,CONN*OP 002319 : IF J:F,XTA,J LINE 002320 : ,U1A,JOB 002321 : F,VLM,IF J 002322 : ,UJ,RETURN 002323 : C===== PAБOTЫ : IN , OUT , LINER 002324 : JOB:,ANX, 002325 : ,ATI,N.N ФИЗ.KAHAЛA 002326 : F,XTA, J LINE 002327 : N,AEX,B48-1 002328 : F,ATX,J LINE.OCTATOK ШKAЛЫ 002329 : F,VZM,STRINGER. => STRINGER 002330 : F,UTM,1 002331 : N,XTA,B48-1 002332 : F,AUX,MOT 002333 : ,ATX,BB. HAШ БИT 002334 : ,ANX, 002335 : ,ATX,N BB.EГO HOMEP 002336 : N,XTA,CIN 002337 : ,ASN,64+21 002338 : ,AAX,C7 002339 : ,ATI,C.TИП TEPM. 002340 : N,XTA,CIN 002341 : F,AAX,B*OUT8. ИЛИ B*IN8 002342 : ,ASN,64+12 002343 : ,ATI,L.БЛOK.KOДИP. 002344 : F,VZM,OUTPUT.-> ПOДГOT.BЫBOДA 002345 : 14,VJM,SDRV*INP 002346 : L,VIM,NOC IN 002347 : C 002348 : C===== ПEPEKOДИPOBKA HA BBOДE 002349 : C 002350 : ,AAX,C177 002351 : ,ATI,S 002352 : S,MTJ,F 002353 : F,UTM,-177B.CИMBOЛ-ПYCTO 002354 : F,VZM,RESET. => ДA 002355 : C,WTC,SW/TYP 002356 : ,UJ, 002357 : C 002358 : C... ПEPEKЛЮЧATEЛЬ ПO TИПAM TEPMИHAЛOB 002359 : C ЛEBAЯ ЧACTЬ - BЫBOД, ПPABAЯ - BBOД. 002360 : C 002361 : SW/TYP:,UJ,PARITY 002362 : ,Z00,COD IN. VT-340 002363 : :,UJ,ASCII 002364 : ,Z00,NOC IN. CETEBOЙ 002365 : :,UJ,RE OUT 002366 : ,Z00,COD IN. CONSUL 002367 : :,UJ,VDT*O 002368 : ,Z00,VDT*I. VDT-52100 002369 : :,UJ,Э15*O 002370 : ,Z00,Э15*I. 15-ИЭ 002371 : C 002372 : C 002373 : C----- 15-ИЭ /BBOД/ CИMBOЛЫ 001/176 002374 : Э15*I:,ITA,S 002375 : ,ASN,64+5 002376 : ,UZA,ЭЛ/CC*I 002377 : C----- 15-ИЭ /BBOД/ : CИMBOЛЫ 040/176 002378 : ,AAX,B2 002379 : ,UZA,COD IN 002380 : C----- 15-ИЭ /BBOД/ : CИMBOЛЫ 100/176 002381 : C ( YЧET BB.PEГИCTPA ) 002382 : ,ITA,S 002383 : ,AOX,B6 002384 : ,AEX,B6 002385 : ,ATI,S 002386 : N,XTA,CIN 002387 : ,AAX,R*IN 002388 : ,UZA,COD IN 002389 : S,UTM,40B 002390 : ,UJ,COD IN 002391 : C----- 15-ИЭ /BBOД/ : CИMBOЛЫ 001/037 002392 : ЭЛ/CC*I:S,XTA,T*CC 002393 : ,ASN,64-16 002394 : ,ARX, 002395 : ,U1A,SYM IS 002396 : C----- 15-ИЭ /BBOД/ : "PYC" , "ЛAT" 002397 : ,ASN,64+25 002398 : N,AEX,CIN 002399 : ,AAX,R*IN 002400 : ,UJ,INV/CIN 002401 : C----- VDT /BBOД/ CИMBOЛЫ 001/176 002402 : VDT*I:,BSS, 002403 : N,XTA,CIN 002404 : ,AAX,B*ESC.БЫЛ 'ESCAPE' 002405 : ,U1A,ESCAP 1. = ДA 002406 : F,UTM,177B-ESC 002407 : F,V1M,COD IN 002408 : C----- VDT /BBOД/ : "ESCAPE" 002409 : ,XTA,B*ESC 002410 : ,UJ,INV/CIN 002411 : C----- VDT /BBOД/ : CИMBOЛ HA "ESCAPE" 002412 : ESCAP 1:N,AEX,CIN 002413 : N,ATX,CIN 002414 : ,ITA,S 002415 : ,ASN,64+5 002416 : ,AEX,B2 002417 : ,U1A,COD IN 002418 : C----- VDT /BBOД/ : CИMBOЛЫ 100/137 002419 : C (ПOCЛE "ESCAPE") 002420 : S,XTA,T*CC-100B 002421 : ,ASN,64-32 002422 : ,UJ,SYM IS 002423 : NOC IN:,ASN,64-40 002424 : ,UJ,SYM IS1 002425 : COD IN:S,XTA,ALLTOISO 002426 : C,APX,MASKS 002427 : SYM IS:,AAX,B48/41 002428 : ,UZA,RESET 002429 : SYM IS1:,AOX,IN*IS 002430 : ,ATX,CHR 002431 : N,XTA,CIN 002432 : ,AAX,IN*FIC 002433 : ,AOX,CHR 002434 : N,ATX,CIN 002435 : ,UJ,SET LINE 002436 : C 002437 : C===== ПEPEKOДИPOBKA HA BЫBOДE 002438 : C 002439 : OUTPUT:,BSS, 002440 : C,MTJ,E 002441 : C,VTM,NEW 002442 : N,XTA,COT 002443 : ,APX,M*OUT 002444 : ,UZA,N U L 002445 : ,ASN,64+40 002446 : ,ATI,S 002447 : ,YTA,.KOДИP.BЫBOД 002448 : ,U1A,PAR/1. -> HET 002449 : L,VIM,RE OUT 002450 : C----- ПPOBEPKA HA COSY-ЗAДEPЖKY 002451 : N,ARX,COT 002452 : ,UZA,EMPTY.TAK И ECTЬ 002453 : S,MTJ,SS 002454 : S,XTA,ISOTOALL 002455 : E,APX,MASKS 002456 : ,UZA,NUL1. => ПYCTЫШKA 002457 : ,ASN,64-8 002458 : ,YTA, 002459 : ,ATI,S 002460 : ,ASN,64+5 002461 : ,ATI,F.6-8 PAЗP.CИMB. 002462 : E,U1A,SW/TYP 002463 : C----- BCE-BCE /BЫBOД/ : CИMBOЛЫ 0-37 002464 : S,MTJ,R 002465 : N,XTA,CIN 002466 : R,UTM,-NL 002467 : R,VZM,NL/S 002468 : R,UTM,NL-27B 002469 : R,VZM,PRINT/S 002470 : R,UTM,27B-7 002471 : R,VZM,BELL/S 002472 : E,UJ,SW/TYP 002473 : C 002474 : C ECЛИ ПO CИMBOЛY TEPMИHAЛ ПEPEBOДИT 002475 : C KYPCOP B HAЧAЛO CTPOKИ - ЗAMEHЯEM 002476 : C HA ПOCЛEДOBATEЛЬHOCTЬ 002477 : C 002478 : NL/S:,AAX,LF*CR 002479 : E,UZA,SW/TYP 002480 : E,XTA,SW/TYP 002481 : ,ASN,64+24 002482 : :,ATI,R 002483 : E,VIM,*+2. ДЛЯ VDT 12+15 002484 : S,VTM,15B. ДЛЯ VT 15+32 002485 : ,UTC,B45-NL*RET 002486 : :,XTA,NL*RET 002487 : ,UJ,OLD/C 002488 : C 002489 : PRINT/S:,AAX,LF*CR 002490 : E,UZA,SW/TYP 002491 : S,VTM,15B 002492 : E,UJ,SW/TYP 002493 : C 002494 : C----- 15-ИЭ /BЫBOД/ : CИMBOЛЫ 001/176 002495 : Э15*O:,ITA,F 002496 : ,UZA,ЭЛ/CC*O 002497 : ,AAX,B2 002498 : ,UZA,PARITY 002499 : C----- 15-ИЭ /BЫBOД/ : CИMBOЛЫ 100/176 002500 : ,ITA,S 002501 : ,ASN,64-11 002502 : N,AEX,CIN 002503 : ,AAX,R*OUT. PEГИCTP 002504 : ,UZA,PARITY.= HYЖHЫЙ 002505 : C----- 15-ИЭ /BЫBOД/ : PEГИCTPЫ (PYC,ЛAT) 002506 : N,AEX,CIN 002507 : N,ATX,CIN 002508 : C,VTM,OLD 002509 : ,AAX,R*OUT 002510 : ,ASN,64+16 002511 : ,AEX,C17 002512 : PUT*S:,ATI,S 002513 : ,UJ,PARITY 002514 : C----- 15-ИЭ /BЫBOД/ : CИMBOЛЫ 001/037 002515 : ЭЛ/CC*O:S,XTA,T*CC 002516 : ,ASN,64+16 002517 : ,AAX,C377 002518 : ,UJ,PUT*S 002519 : VDT*O:,BSS, 002520 : F,VIM,PARITY 002521 : C----- VDT /BЫBOД/ : CИMBOЛЫ 001/037 002522 : S,XTA,T*CC 002523 : ,AAX,C377 002524 : ,UZA,NUL 1. -> ПYCTЫШKA 002525 : ,ATI,S 002526 : ,ASN,64-40 002527 : ,AOX,B40 002528 : ,ATX,SAV*S 002529 : ,AAX,B48/47 002530 : ,UZA,RE OUT. -> БEЗ "ESCAPE" 002531 : C----- VDT /BЫBOД/ : CИMBOЛЫ 001/037 002532 : C ( HA "ESCAPE" ) 002533 : S,VTM,ESCP 002534 : ,XTA,SAV*S 002535 : ,AUX,M*OUT 002536 : R,VTM,RE OUT 002537 : OLD/COT:N,AEX,COT 002538 : ,AAX,M*OUT 002539 : OLD/C:N,AEX,COT 002540 : N,ATX,COT 002541 : C,VTM,OLD 002542 : R,UJ, 002543 : C 002544 : ASCII:SS,MTJ,S 002545 : PARITY:,BSS, 002546 : C,VZM,PAR/1 002547 : F,VIM,PAR/1 002548 : N,XTA,CIN 002549 : ,AAX,SS*WT 002550 : ,UZA,PAR/1 002551 : C----- ПOДOЖДEM CPAБATЫBAHИЯ ROLL 002552 : ,XTA,C*WAIT 002553 : R,VJM,OLD/COT 002554 : PAR/1:,ITA,S 002555 : ,ACX, 002556 : ,AAX,B1 002557 : ,U1A,RE OUT 002558 : S,UTM,200B 002559 : ,UJ,RE OUT 002560 : C----- BЫДAЧA ПYCTЫШKИ 002561 : EMPTY:,ARX,ZB41 002562 : N,ATX,COT 002563 : C,VTM,OLD 002564 : S,VTM,0 002565 : RE OUT:14,VTM,IF COT 002566 : ,UJ,SDRV*OUT 002567 : C===== 002568 : N U L:,BSS, 002569 : C----- БOЛЬШE HET CИMBOЛOB ДЛЯ BЫBOДA 002570 : S,VTM,0 002571 : N,XTA,CIN 002572 : ,AAX,B*SYN 002573 : ,U1A,RE OUT 002574 : ,XTA,REQ OUT 002575 : N,AOX,B48-1.- ЗAПPOCЫ 002576 : N,AEX,B48-1. HA BЫBOД 002577 : ,ATX,REQ OUT 002578 : ,XTA,BB 002579 : R,VJM,FREE*TL 002580 : *ЧACTOTA:1,IFGE,FREQ,600 002581 : ,CALL,CLOS*40 002582 : ,UJ,SET LINE 002583 : C===== 002584 : BELL/S:,AAX,B*BELL 002585 : E,U1A,SW/TYP 002586 : NUL 1:,BSS, 002587 : C===== ЗAKAЗ HA BЫBOД CЛEД.CИMBOЛA 002588 : F,VTM,J OUT 002589 : R,VJM,SET J 002590 : C===== 002591 : IF COT:C,VZM,RESET 002592 : N,XTA,COT 002593 : ,APX,M1*O 002594 : ,AUX,M2*O 002595 : N,ATX,COT 002596 : ,U1A,RESET 002597 : C===== 002598 : SET LINE:F,VTM,J LINE 002599 : R,VTM,RESET 002600 : C===== YCTAHOBKA ЗAKAЗA HA PAБOTY 002601 : SET J:,BSS, 002602 : N,XTA,B48-1 002603 : F,AOX, 002604 : F,ATX, 002605 : R,UJ, 002606 : C 002607 : C===== ПPOБЫ ЗAПYCKA ПO BPEMEHИ 002608 : TIM*TERM:,ENTRY, 002609 : ,XTA,NINT 002610 : ,AAX,C377 002611 : ,U1A,IF JOB 002612 : ,XTA,B1 002613 : ,ATX,J TIM 002614 : ,XTA,MPXMASK 002615 : ,AAX,6. 12/11 PP. 002616 : ,UZA,TO CIO 002617 : 13,VTM,TO CIO.ПOДЗAПYCK 002618 : ,UJ,PERPIR+2.MPX-ГOИ 002619 : C===== 002620 : INV/CIN:N,AEX,CIN 002621 : N,ATX,CIN 002622 : C 002623 : C===== BOCCTAHOBЛEHИE ИP , ПPOБЫ ЗAПYCKOB 002624 : RESET*TL:,ENTRY, 002625 : RESET:14,VTM,RETURN 002626 : 15,VTM,SIR+5 002627 : :,24,2003B 002628 : 15,XTA, 002629 : ,STI,S 002630 : ,STI,L 002631 : ,STI,N 002632 : ,STI,C 002633 : ,STI,SS 002634 : ,UJ,IF JOB 002635 : C 002636 : C===== ПOДЗAПYCK STRINGER'A 002637 : STRT*DWN:,ENTRY, 002638 : ,24,2003B 002639 : N,XTA,B48-1 002640 : ,AOX,JLINE 002641 : ,ATX,JLINE 002642 : C 002643 : C===== ПPOБЫ ЗAПYCKA ПO П И П 002644 : IFJOB*TL:,ENTRY, 002645 : IF JOB:,BSS, 002646 : ,XTA,JIN 002647 : ,AOX,JOUT 002648 : ,AOX,JLINE 002649 : 14,UZA, 002650 : TO CIO:,XTA,B47 002651 : C 002652 : C===== YCTAHOBKA ПPOГP.ИMMИT.ПPEPЫBAHИЙ 002653 : PUT PIR:,ENTRY, 002654 : : ,24,2003B 002655 : ,AOX,PPIR 002656 : ,ATX,PPIR 002657 : ,XTA,B6 002658 : ,EXT,31B 002659 : 14,UJ, 002660 : C===== 002661 : MASKS:,BSS, 002662 : 0,LOG,377.= VT-340 002663 : 1,LOG,377.= CETEBOЙ 002664 : 2,LOG,77600000.= KOHCYЛ 002665 : 3,LOG,377.= VDT-52130 002666 : 4,LOG,377.= 15-ИЭ 002667 : C===== 002668 : ZB41:,OCT,7757 7777 7777 7777 002669 : C===== 002670 : S IR:,BSS,5 002671 : ,END, 002672 : STRINGER:,NAME, 002673 : C 002674 : C***** CTPOЧHИK HA ПPEPЫBAHИЯX 002675 : C***** AПPEЛЬ 85 BEPETEHOB 002676 : C 002677 : *TLSIZE:LC,BLOCK,(3),XNSS 002678 : NSS:,WEQ,XNSS 002679 : NSS1:,EQU,NSS-1 002680 : *TLBUFI:LC,BLOCK,WS(0),CIN 002681 : *TLBUFO:LC,BLOCK,COT 002682 : *0:,BLOCK,LJOB,MSK,XNT,OWNER,WSC 002683 : ,CONT,(1),STRI(14) 002684 : *TLPRMT:LC,BLOCK,(2),MOT 002685 : *TLSTAT:LC,BLOCK,(2),N/FREE(3),REQOUT 002686 : ,CONT,(2),JOUT,JLINE,JTIM 002687 : ,CONT,SPEC*CH,SC*DOWN,SC*BNL 002688 : *TLSYS:LC,BLOCK,STATSS 002689 : INITSS:,EQU,STATSS+NSS 002690 : TIMSS:,EQU,INITSS+NSS 002691 : *TLCONN:LC,BLOCK,S*INIT 002692 : MAIN*C:,SUBP, 002693 : E*INIT:,EQU,MAIN*C-1 002694 : CHANSS:,EQU,MAIN*C 002695 : NUM*SS:,EQU,MAIN*C+1 002696 : MSTART:,LC,1 002697 : NSTAJOB:,LC,1 002698 : FLMAMБ:,LC,1 002699 : *ИПД:LC,BLOCK,(53),ПAPTИЗAH 002700 : *YCЫ:LC,BLOCK, 002701 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 002702 : FREESEM:LC,BLOCK,(1),MNEWTA 002703 : WSD:LC,BLOCK,WS1(0),CHR*B 002704 : C----- 002705 : COБЫTИE:,SUBP, 002706 : BUSY*TL:,SUBP, 002707 : RESET*TL:,SUBP, 002708 : NO JOB:,EQU,RESET*TL 002709 : CALL*OP:,SUBP, 002710 : C----- 002711 : CHIR:,EQU,1 002712 : STIN:,EQU,2 002713 : EOT:,EQU,4 002714 : CNOC:,EQU,4 002715 : C CИMBOЛ '004' B BЫXOДHOЙ CTPOKE БЛOKИPYET 002716 : C ПEPEKOДИPOBKY CИMBOЛOB И ФOPMИPOBAHИE 002717 : C БИTA ЧETHOCTИ ДO OKOHЧAHИЯ CTPOKИ. 002718 : LF:,EQU,12B 002719 : CR:,EQU,15B 002720 : CNTR/Q:,EQU,21B 002721 : TOIN:,EQU,22B 002722 : CNTR/S:,EQU,23B 002723 : BNL:,EQU,24B 002724 : CUP:,EQU,31B 002725 : IC:,EQU,34B 002726 : DC:,EQU,35B 002727 : DL:,EQU,36B 002728 : MAPAШ:,EQU,43B 002729 : STAR:,EQU,52B 002730 : C*MAPAШ:,EQU,=6H'43''''''''''' 002731 : C----- 002732 : *TLCONST:LC,BLOCK,(1),B48/41(7),IN*FIC(4) 002733 : ,CONT,ZCIN,ZCIN1,B47/46,B16M 002734 : ,CONT,B1M,B42/19(2),B48/33(2) 002735 : ,CONT,M*LJOB 002736 : FULWOR:,LC,1 002737 : MASK12:LC,BLOCK,B48/37 002738 : C77777:,LC,1 002739 : C377:,LC,1 002740 : C37:,LC,1 002741 : C7:,LC,1 002742 : C----- 002743 : *700:B,BLOCK,B48,B47,B46,B45,B44,B43 002744 : ,CONT,B42,B41,B40,B39,B38,B37 002745 : ,CONT,B36,B35,B34,B33,B32,B31 002746 : ,CONT,B30,B29,B28,B27,B26,B25 002747 : ,CONT,B24,B23,B22,B21,B20,B19 002748 : ,CONT,B18,B17,B16,B15,B14,B13 002749 : ,CONT,B12,B11,B10,B9,B8,B7 002750 : ,CONT,B6,B5,B4,B3,B2,B1 002751 : C 002752 : C----- Б И T Ы B "C I N" 002753 : IN*IS:,EQU,B32 002754 : B*ECHO:,EQU,B29 002755 : NOC*I:,EQU,B27 002756 : NOC*O:,EQU,B26 002757 : C 002758 : C----- Б И T Ы B "L J O B" 002759 : B*INP:,EQU,B25 002760 : B*BIN:,EQU,B28 002761 : B*LIM:,EQU,B32 002762 : B*INT:,EQU,B33 002763 : B*END:,EQU,B34 002764 : B*STAR:,EQU,B35 002765 : B*IN :,EQU,B36 002766 : B*TAU :,EQU,B37 002767 : B*STOP:,EQU,B38 002768 : B*LIN :,EQU,B42 002769 : B*DELC:,EQU,B43 002770 : B*INSC:,EQU,B44 002771 : B*KП:,EQU,B45 002772 : C 002773 : C----- Б И T Ы B "T L S Y S" 002774 : B*INI:,EQU,B16 002775 : C 002776 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 002777 : SS:,EQU,8 002778 : C:,EQU,9 002779 : N:,EQU,10 002780 : A:,EQU,11 002781 : SI:,EQU,12 002782 : SB:,EQU,13 002783 : E:,EQU,14 002784 : R:,EQU,15 002785 : C 002786 : C===== 002787 : C 002788 : N,WTC,CIN 002789 : C,VTM,.OПИCATEЛЬ KAHAЛA 002790 : ,XTA,SPEC*CH 002791 : N,AAX,B48-1 002792 : ,UZA,NO/SPC 002793 : SS,VTM,2.N П/C "Э P" 002794 : SS,XTA,STATSS 002795 : ,ATI,13 002796 : 13,VZM,NO JOB 002797 : 13,UJ, 002798 : NO/SPC:,BSS, 002799 : N,XTA,CIN 002800 : C,VZM,CH*CONN.-> ПPИBЯЗKA 002801 : ,ASN,64+32 002802 : ,AAX,C7 002803 : ,ATI,SS.HOMEP П/C 002804 : SS,XTA,STATSS 002805 : ,ATI,13 002806 : 13,UTC, 002807 : 13,V1M, 002808 : N, XTA ,COT 002809 : , U1A ,NO JOB.-> KAHAЛ ЗAHЯT 002810 : C, XTA ,LJOB 002811 : ,ATI,A.AДPEC ПO CTPOKE 002812 : , AAX ,M*LJOB 002813 : , UZA ,NO JOB.-> HET PAБOTЫ 002814 : , ANX , 002815 : , ATI ,E 002816 : E, UJ ,SW*JOB-1 002817 : SW*JOB:, BSS , 002818 : : R, VTM ,INI JOB.48 P. 002819 : , UJ ,DEL/STA.HAЧAЛO PAБOTЫ 002820 : :SI, VTM ,LF .47 P. 002821 : , UJ ,CH*BNL ."LF" ДO 002822 : :SI, VTM ,CUP .46 P. 002823 : , UJ ,OUT*1 .CURSOR UP 002824 : :SI, VTM ,EOT .45 P. 002825 : , UJ ,TO*INP ."KП" 002826 : :R,VTM,WS1.44 P. 002827 : ,UJ,INS*DEL.INSERT CHAR *2 002828 : :R,VTM,0.43 P. 002829 : ,UJ,INS*DEL.DELETE CHAR *2 002830 : :R,VTM,LIN/OUT.42 P. 002831 : , UJ ,LINE .L I N E 002832 : : R, VTM ,DISCONN.41 P. 002833 : , UJ ,DEL/STA.= OTBЯЗKA 002834 : : R, VTM ,WHO*UP .40 P. 002835 : , UJ ,DEL .START UP 002836 : INIJOB:, BSS , 002837 : R, VTM ,NO JOB 002838 : , UJ ,SE TIME 002839 : C----- 002840 : LINE: , BSS , 002841 : N, XTA ,CIN 002842 : , ASN ,64+40 002843 : , ATI ,SI 002844 : C, XTA ,LJOB 002845 : , AAX ,B*IN 002846 : , UZA ,GIV*SB.=> BЫBOД 002847 : N, XTA ,CIN 002848 : , AAX ,IN*IS 002849 : , UZA ,TIMER .-> HET BBOДA 002850 : N, XTA ,CIN 002851 : , AAX ,IN*FIC 002852 : N, ATX ,CIN 002853 : C,XTA,LJOB.ПOCTABИM ПPИЗHAK 002854 : ,AOX,B*INP. "БЫЛ BBOД" 002855 : C,ATX,LJOB 002856 : R, VJM ,SE TIME 002857 : N, XTA ,CIN 002858 : , AAX ,NOC*I 002859 : , U1A ,INP*1 .- БЛOK.AHAЛИЗA 002860 : , ITA ,SI 002861 : , ASN ,64+5 002862 : , U1A ,INP*1.CИMBOЛ > 37 002863 : C,XTA,LJOB 002864 : ,AAX,B*BIN 002865 : ,U1A,BIG INP 002866 : , XTA ,M*EL 002867 : SI, AAX ,B48 002868 : , U1A ,INP*EL.-> KOHEЦ BBOДA 002869 : SI, XTA ,B48 002870 : , APX ,M*SPEC 002871 : , UZA ,NO JOB.-> HE YПPABЛ. 002872 : , ANX , 002873 : , ATI ,R 002874 : R, UJ ,SW*SPEC-1 002875 : SW*SPEC:,BSS , 002876 : :C, XTA ,MSK .CИMBOЛ 10 002877 : , UJ ,CURS/L.= BACKSPACE 002878 : :R, VTM ,NO JOB.CИMBOЛ 15 002879 : , UJ ,INV/ST.= CATR.RETURN 002880 : :R, VTM ,CURS/R.CИMBOЛ 30 002881 : , UJ ,GIV*SB.= CURSOR-RIGHT 002882 : : E,VTM ,B*INSC.CИMBOЛ 34 002883 : , UJ ,INS/DEL.= INSERT CHAR. 002884 : : E,VTM ,B*DELC.CИMBOЛ 35 002885 : , UJ ,INS/DEL.= DELETE CHAR 002886 : CURS/L:, BSS , 002887 : C----- CURSOR LEFT (BBOД) 002888 : , ASN ,64-8 002889 : , U1A ,CUL*1 002890 : C, UTC ,STRI 002891 : R, VTM , 002892 : , ITA ,R 002893 : C, AEX ,LJOB 002894 : , AAX ,C77777 002895 : , UZA ,NO JOB.ДOШЛИ ДO HAЧAЛA 002896 : C, XTA ,LJOB 002897 : , ARX ,B1M 002898 : C, ATX ,LJOB 002899 : , XTA ,C377 002900 : CUL*1:C, ATX ,MSK 002901 : C, XTA ,LJOB 002902 : , ARX ,B16M 002903 : C, ATX ,LJOB 002904 : ,ATI,A. ECЛИ 002905 : A,XTA,. ПPEДЫДYЩИЙ 002906 : C,APX,MSK. CИMBOЛ 002907 : ,ASN,64-3. CЛYЖEБHЫЙ 002908 : ,YTA,.- TOПЧEMCЯ 002909 : ,UZA,STEP.HA MECTE 002910 : OUT*0:R,VTM,PUT REQ 002911 : ,UJ,CHBLR. SI --> COT 002912 : C----- CИMBOЛ "CR" (BBOД/BЫBOД) 002913 : INV/ST:, XTA ,B*STAR 002914 : C, AEX ,LJOB 002915 : C, ATX ,LJOB 002916 : R, UJ , 002917 : INS/DEL:,BSS, 002918 : C----- INSERT/DELETE CHARACTER (ФAЗA 1) 002919 : C,UTC,STRI+13 002920 : R,VTM, 002921 : ,ITA,R 002922 : ,AEX,C77777 002923 : C,ARX,LJOB 002924 : C,ATX,WSC 002925 : ,AAX,B15.ЗA ПPEДEЛAMИ 002926 : ,UZA,NO JOB. БYФEPA 002927 : C,XTA,LJOB 002928 : E,AOX,.ФAЗA 2 002929 : C,ATX,LJOB 002930 : ,UJ,RE*START 002931 : INS*DEL:,BSS, 002932 : C----- INSERT/DELETE CHARACTER (ФAЗA 2) 002933 : C,WTC,WSC 002934 : SB,VTM,1 002935 : C,XTA,MSK 002936 : ,AEX,FULWOR 002937 : ,ATX,WS1 002938 : A,XTA, 002939 : R,V1M,INS*0 002940 : C----- CДBИГ CTPOKИ BЛEBO 002941 : SI,VTM,DC 002942 : ,APX,WS1 002943 : A,ATX, 002944 : DEL*1:SB,VLM,DEL*2 002945 : ,UJ,OUT*1 002946 : DEL*2:A,XTA,1 002947 : ,ASN,64-8 002948 : A,ATX,1 002949 : ,YTA, 002950 : A,AOX, 002951 : A,ATX, 002952 : A,UTM,1 002953 : ,UJ,DEL*1 002954 : C----- CДBИГ CTPOKИ BПPABO 002955 : INS*0:,ASN,64-40 002956 : C,ATX,WSC 002957 : A,XTA, 002958 : ,AUX,WS1 002959 : ,XTS,B46 002960 : C,AUX,MSK 002961 : SI,VTM,IC 002962 : ,UJ,INS*2 002963 : INS*1:A,UTM,1 002964 : C,XTA,WSC 002965 : A,XTS, 002966 : ,ASN,64-40 002967 : C,ATX,WSC 002968 : ,YTA, 002969 : INS*2:R,AOX, 002970 : A,ATX, 002971 : SB,VLM,INS*1 002972 : ,UJ,OUT*1 002973 : C----- ЭKPAHHЫЙ BBOД 002974 : BIG INP:,BSS, 002975 : SI,XTA,B48 002976 : ,AAX,M*SPP 002977 : ,UZA,NO JOB 002978 : ,AAX,M*EP 002979 : ,UZA,INP*1 002980 : ,ASN,64-11 002981 : ,UZA,INP*EL 002982 : E,VTM,0.KOHEЦ BBOДA 002983 : C----- ЗAПИCЬ CИMBOЛA B БYФEP 002984 : INP*1: , BSS , 002985 : , ITA ,SI 002986 : , ASN ,64-40 002987 : C, AUX ,MSK 002988 : A, AEX , 002989 : C, AAX ,MSK 002990 : A, AEX , 002991 : A, ATX , 002992 : E,VZM,E*STR 002993 : C----- OPГAHИЗAЦИЯ PEГEHEPAЦИИ 002994 : R,VTM,STEP 002995 : C, XTA ,LJOB 002996 : ,AAX,B*STAR 002997 : ,UZA,CHBLR 002998 : ,UTC,B48-B*STAR 002999 : SI,ASN,64-54B 003000 : ,AAX,=:44."," + "/" 003001 : ,U1A,CHBLR 003002 : SI,VTM,STAR 003003 : ,UJ,CHBLR 003004 : LIN/OUT:,BSS , 003005 : C 003006 : C===== B Ы B O Д CTPOKИ 003007 : C 003008 : SI, VZM ,LO*1 003009 : N, XTA ,CIN 003010 : , AAX ,IN*FIC 003011 : N, ATX ,CIN 003012 : ,ITA,SI 003013 : SI, UTM ,-CNTR/S 003014 : SI, VZM ,STOP/ON 003015 : SI, UTM ,CNTR/S-CNTR/Q 003016 : SI, VZM ,STOP/OFF 003017 : C,ATX,WSC.=> ПEPEБИBKA 003018 : R,VJM,SET*INT 003019 : LO*1: C, XTA ,LJOB 003020 : , AAX ,B*STOP 003021 : , U1A ,NO JOB.=> CTOПOP 003022 : N, XTA ,CIN 003023 : , AAX ,NOC*O 003024 : , U1A ,LO*2 .=> БЛOK.AHAЛИЗA 003025 : SB, VZM ,E*STR.-> KOHEЦ BЫBOДA 003026 : ,ITA,SB 003027 : ,ASN,64+5 003028 : ,U1A,LO*2.CИMBOЛ > 37 003029 : SB,XTA,B48 003030 : ,APX,M*SPO 003031 : ,UZA,LO*2.=> HE CПEЦ. 003032 : ,ANX,C77777 003033 : ,ATI,R 003034 : E,VTM,1 003035 : :R,VZM,STEP.CHIR 003036 : R,UJ,* 003037 : :E,VTM,.STIN 003038 : ,UJ,OUT*IN 003039 : :R,VTM,STEP.C*NOC 003040 : ,UJ,INV/NOC 003041 : :R,VTM,OUT*IN.CR 003042 : ,UJ,INV/ST 003043 : :,UJ,OUT*IN.TOIN 003044 : E*STRO:,BSS,.BNL 003045 : C----- БЛOKИPYEM "LF" B HAЧAЛE CTPOKИ 003046 : N,XTA,B48-1 003047 : ,AOX,SC*BNL 003048 : ,ATX,SC*BNL 003049 : ,UJ,E*STR 003050 : CURS/R:,BSS, 003051 : C----- CURSOR RIGHT (BBOД) 003052 : ,ASN,64+5 003053 : ,UZA,NO JOB.ДOШЛИ ДO KOHЦA 003054 : SB,MTJ,SI 003055 : R,VTM,STEP 003056 : C 003057 : C... ПPOБA БЛOKИPOBKИ PEГEHEPAЦИИ 003058 : C 003059 : CHBLR:N,XTA,CIN 003060 : C,AOX,LJOB 003061 : ,AAX,B*ECHO 003062 : R,U1A, 003063 : ,ITA,SI 003064 : ,ASN,64-40 003065 : N,ATX,COT 003066 : R,UJ, 003067 : C 003068 : C... CИMBOЛ - HA BЫBOД 003069 : C 003070 : LO*2: , XTA ,CHR*B 003071 : N,ATX,COT 003072 : ,U1A,STEP 003073 : R,VTM,E*STRO 003074 : C KOHEЦ CTPOKИ "БEЗ ПEPEKOДИPOBKИ BЫBOДA" 003075 : INV/NOC:,BSS, 003076 : N,XTA,CIN 003077 : ,AEX,NOC*O 003078 : N,ATX,CIN 003079 : R,UJ, 003080 : OUT*IN:C,XTA,LJOB 003081 : ,AOX,B*KП 003082 : C,ATX,LJOB 003083 : E,VIM,NOJOB 003084 : C----- ШAГ BПEPEД ПO CTPOKE 003085 : STEP: , BSS , 003086 : R, VTM ,LIMIT 003087 : C, XTA ,MSK 003088 : , ASN ,64+8 003089 : , U1A ,STEP 1 003090 : , XTA ,B1 003091 : C, ARX ,LJOB 003092 : C, ATX ,LJOB 003093 : , XTA ,B48/41 003094 : STEP1:C, ATX ,MSK 003095 : C, XTA ,LJOB 003096 : , ARX ,B16 003097 : C, ATX ,LJOB 003098 : , AAX ,B24 .ЛOПHYЛA ДЛИHA 003099 : , UZA ,CH*OUT.-> HET 003100 : N, XTA ,COT 003101 : , UJ ,SET*OUT 003102 : CH*OUT:, BSS , 003103 : N, XTA ,COT 003104 : , U1A ,PUT REQ 003105 : C, XTA ,LJOB 003106 : , AAX ,B*IN 003107 : , U1A ,NO JOB 003108 : , UJ ,RE*START 003109 : STOP/ON:,XTA ,B*STOP 003110 : C, AOX ,LJOB 003111 : STOP/:C, ATX ,LJOB 003112 : , UJ ,LO*1 003113 : STOP/OFF:C,XTA,LJOB 003114 : , AOX ,B*STOP 003115 : , AEX ,B*STOP 003116 : , UJ ,STOP/ 003117 : C----- PAБOTA : ПEPEXOД HA BBOД 003118 : TO*INP:, BSS , 003119 : C, XTA ,LJOB 003120 : , AAX ,M1/O*I 003121 : , AOX ,B*IN 003122 : C, ATX ,LJOB 003123 : C----- BЫДAЧA OДHOГO CИMBOЛA 003124 : OUT*1:R,VTM,PUT REQ 003125 : ,ITA,SI 003126 : ,ASN,64-40 003127 : N,ATX,COT 003128 : C----- ИCKЛЮЧEHИE БИTA ИЗ ШKAЛЫ PAБOT 003129 : DEL : E, XTA ,B48-1 003130 : C, AEX ,LJOB 003131 : C, ATX ,LJOB 003132 : R, UJ , 003133 : C----- ПPOBEPKA HEOБXOДИMOCTИ "LF" ДO. 003134 : CH*BNL:,BSS, 003135 : N,XTA,B48-1 003136 : ,AAX,SC*BNL 003137 : ,UZA,OUT*1 003138 : ,AEX,SC*BNL 003139 : ,ATX,SC*BNL 003140 : R,VTM,NO JOB 003141 : C----- ИCKЛЮЧEHИE БИTA И PECTAPT 003142 : DEL/STA:N,XTA,B48-1 003143 : ,AOX,J LINE 003144 : ,ATX,J LINE 003145 : ,UJ,DEL 003146 : C----- TEKYЩИЙ CИMBOЛ ИЗ БYФEPA 003147 : GIV*SB:, BSS , 003148 : A, XTA , 003149 : C, APX ,MSK 003150 : , ATX ,CHR*B 003151 : , ASN ,64+40 003152 : , ATI ,SB 003153 : R, UJ , 003154 : SETIME:, BSS , 003155 : C----- YCTAHOBKA TAЙMEPA 003156 : C, XTA ,XNT 003157 : , ASN ,64-8 003158 : C, AEX ,XNT 003159 : , AAX ,B48/41 003160 : C, AEX ,XNT 003161 : C, ATX ,XNT 003162 : R, UJ , 003163 : C----- BEДEHИE TAЙMEPA 003164 : TIMER: , BSS , 003165 : N, XTA ,B48-1 003166 : SS, AAX ,TIMSS 003167 : SS, AEX ,TIMSS 003168 : SS, ATX ,TIMSS 003169 : , YTA , 003170 : , UZA ,NO JOB 003171 : C, XTA ,LJOB 003172 : , AAX ,B*TAU 003173 : , UZA ,NO JOB 003174 : , XTA ,B41 003175 : C, ARX ,XNT 003176 : C, ATX ,XNT 003177 : , U1A ,NO JOB 003178 : C 003179 : R,VTM,E*STR 003180 : C----- ПPИЗHAK: ПPEPBAH BBOД/BЫBOД 003181 : SET*INT:,BSS, 003182 : C,XTA,LJOB 003183 : ,AOX,B*INT 003184 : C,ATX,LJOB 003185 : R,UJ, 003186 : C 003187 : LIMIT:,BSS, 003188 : SI,VTM, 003189 : C,XTA,LJOB 003190 : ,AOX,B*LIM.ЛOПHYЛA CTPOKA 003191 : C,ATX,LJOB 003192 : ,AAX,B*IN 003193 : ,UZA,E*STR 003194 : C 003195 : INP*EL:, BSS , 003196 : C----- KOHEЦ CTPOKИ ПPИ BBOДE 003197 : ,ITA,SI 003198 : C,ATX,WSC 003199 : C, XTA ,MSK 003200 : , ANX ,C77777 003201 : , ATI ,R 003202 : , XTA ,FULWOR 003203 : :SI,V1M,*+1 003204 : R,VZM,E*STR 003205 : R, ASN ,64 003206 : ,YTA, 003207 : A, AAX , 003208 : A, ATX , 003209 : SI,XTA,B48 003210 : ,AAX,M*DL 003211 : ,UZA,E*STR 003212 : ,XTA,C*MAPAШ 003213 : N,ATX,COT 003214 : R,VJM,SET*OUT 003215 : E*STR: , BSS , 003216 : C----- KOHEЦ CTPOKИ (BBOД/BЫBOД) 003217 : C,XTA,LJOB 003218 : ,AOX,B*END 003219 : , AEX ,B*LIN 003220 : C, ATX ,LJOB 003221 : RE*START:,BSS, 003222 : C----- CAMOПOДЗAПYCK STRINGER'A 003223 : N, XTA ,B48-1 003224 : ,AOX,J LINE 003225 : ,ATX,J LINE 003226 : ,UJ,NO JOB 003227 : C----- ЗAПYCK HYЖHOЙ ПOДCИCTEMЫ 003228 : WHO*UP:SS,VZM,CALL*OP.-> OPERTERM 003229 : SS,XTA,STATSS 003230 : ,ASN,64+42 003231 : ,U1A,SS YES.-> П/C ECTЬ 003232 : C===== HAЧAЛЬHЫЙ BЫЗOB П/C ===== 003233 : SS,XTA,STATSS 003234 : ,AAX,B*INI 003235 : ,AOX,MSTART 003236 : ,U1A,RESET*TL.-> CTAPTEP ЗAHЯT 003237 : SS,XTA,NUM*SS-1 003238 : ,AAX,C77777 003239 : ,AOX,B47/46 003240 : ,ATX,MSTART.ДOCTATOЧHO 003241 : ,XTA,B*INI 003242 : SS,AOX,STATSS 003243 : SS,ATX,STATSS 003244 : ,UJ,RESET*TL 003245 : C===== ГEHEPAЦИЯ COБЫTИЯ ДЛЯ П/C 003246 : SS YES:,ATI,E.= Д H З П/C 003247 : E,XTA,*YCЫ 003248 : ,ATX,MNEWTA 003249 : ,AEX, 003250 : ,XTA,COБ/ПC 003251 : ,UJ,COБЫTИE 003252 : COБ/ПC:,Z02,.BIT41 003253 : ,Z00,RESET*TL 003254 : C===== ПPOБЫ HA ПPИBЯЗKY 003255 : CH*CONN:,BSS, 003256 : C,VTM,S*INIT-E*INIT 003257 : ,AAX,B*ECHO 003258 : ,U1A,CH*SY 003259 : N,XTA,CIN 003260 : ,AAX,B48/41 003261 : ,UZA,RESET*TL 003262 : N,ATX,COT 003263 : R,VJM,SET*OUT 003264 : CH*SY:C,XTA,E*INIT 003265 : ,ATI,SS 003266 : N,AEX,CIN 003267 : ,ASN,64+32 003268 : ,UZA,*INIT 003269 : C,VLM,CH*SY 003270 : NO/STRT:,BSS, 003271 : N,XTA,CIN 003272 : ,ASN,64+8 003273 : N,AEX,CIN 003274 : ,AAX,B48/33 003275 : N,AEX,CIN 003276 : ,AAX,IN*FIC 003277 : ,UJ,PUT CIN 003278 : C 003279 : C===== З A П Y C K И П / C 003280 : C 003281 : *INIT:,BSS, 003282 : C----- HET ЛИ БЛOKИPOBKИ ПPИBЯЗKИ 003283 : ,XTA,2 003284 : SS,AAX,B29.29,28,...PP.TP-2 003285 : ,AOX,FLMAMБ.DISPINIT, MAЛOMБ 003286 : ,U1A,CLE CIN 003287 : C----- HET ЛИ БЛOKИPOBKИ ФИЗ.KAHAЛA 003288 : SS,XTA,CHANSS 003289 : ,AOX,SC*DOWN 003290 : ,AEX,SC*DOWN 003291 : N,AAX,B48-1 003292 : ,UZA,NO/STRT.-> ECTЬ 003293 : N,XTA,B24-1 003294 : SS,AOX,INITSS 003295 : SS,ATX,INITSS 003296 : ,UJ,CLECIN/U 003297 : C===== ЗAДAHИE TИПA TEPMИHAЛЬHOГO KAHAЛA 003298 : CLE CIN:N,XTA,CIN 003299 : ,AAX,ZCIN 003300 : PUT CIN:N,ATX,CIN 003301 : ,UJ,RESET*TL 003302 : C 003303 : C===== PEAЛИЗAЦИЯ ЗAKAЗA HA OTBЯЗKY 003304 : C 003305 : DIS CONN:,BSS, 003306 : N,XTA,B42-1 003307 : ,AEX,FULWOR 003308 : SS,AAX,STATSS 003309 : SS,ATX,STATSS 003310 : C,XTA,XNT 003311 : ,ASN,64+15 003312 : ,AAX,C37 003313 : ,ATI,E 003314 : E,XTA,B36-1 003315 : ,AEX,FULWOR 003316 : SS,AAX,INITSS 003317 : SS,ATX,INITSS 003318 : ,XTA, 003319 : SS,ATX,TIMSS 003320 : SS,VZM,CLECIN/U 003321 : ,ATX,531B.TEPM.CTAT. 003322 : CLECIN/U:N,XTA,CIN 003323 : ,AAX,ZCIN 003324 : N,ATX,CIN 003325 : ,UJ,WHO*UP 003326 : C 003327 : C***** ПPИBЯЗKA KAHAЛA K ПOДCИCTEME 003328 : C 003329 : C OБPAЩEHИE ПO ИP-13 003330 : C B ИP-14 - N ФИЗ.KAHAЛA 003331 : C B ИP-12 - N ПOДCИCTEMЫ 003332 : C 003333 : C CYMMATOP : PP.15/01 - AДPEC БYФEPA 003334 : C 003335 : CONN*SS:,ENTRY, 003336 : :,24,2003B 003337 : ,ATX,WS 003338 : ,ITA,12 003339 : ,ASN,64-32 003340 : ,AOX,WS 003341 : 14,AEX,CIN 003342 : ,AAX,MSKC1 003343 : 14,AEX,CIN 003344 : 14,ATX,CIN 003345 : ,XTA,ДHЗ 003346 : ,ASN,64-42 003347 : 12,AEX,STATSS 003348 : ,AAX,MSKC2 003349 : 12,AEX,STATSS 003350 : 14,AOX,B42-1 003351 : 12,ATX,STATSS 003352 : ,XTA,BITJ 003353 : ,AOX,ПAPTИЗAH 003354 : ,ATX,ПAPTИЗAH 003355 : 13,UJ, 003356 : C 003357 : C***** ЗAПYCK HИЗA HA BЫBOД CИMBOЛA 003358 : C 003359 : PUT REQ:,BSS, 003360 : N,XTA,COT 003361 : R,VTM,NO JOB 003362 : C 003363 : SET*OUT:,ENTRY, 003364 : SET*OUT:R,UZA, 003365 : ,XTA,REQ OUT 003366 : N,AOX,B48-1 003367 : ,ATX,REQ OUT 003368 : ,AAX,N/FREE 003369 : ,AOX,J OUT 003370 : ,ATX,J OUT 003371 : N,AAX,B48-1 003372 : R,UZA, 003373 : ,AUX,MOT 003374 : ,UJ,BUSY*TL 003375 : C 003376 : C***** ЧИCTKA ПO HEЗAПYCKY П/C 003377 : C (BXOД ИЗ "STARTJOB") 003378 : C 003379 : CLMTSP:,ENTRY, 003380 : 13,VTM,-2 003381 : CL 1:13,XTA,NUM*SS+2 003382 : ,AEX,NSTAJOB 003383 : ,AAX,C77777 003384 : ,U1A,CL 2 003385 : 13,ATX,STATSS+3 003386 : ,XTA,B48/37 003387 : 13,AAX,INITSS+3 003388 : 13,ATX,INITSS+3 003389 : CL 2:13,VLM,CL 1 003390 : ,XTA, 003391 : ,ATX,NSTAJOB 003392 : 14,UJ, 003393 : C***** 003394 : C 003395 : C ETX LF IL HOME CUP CDWN DL ERASE 003396 : M*EL:,GOST,6H'20''70'0'143'00 003397 : C 003398 : C ETX CL LF IL HOME BK PRINT 003399 : C CR CUP CDWN IC DC DL ERASE 003400 : M*SPP:,GOST,6H'20''274'1'357'00 003401 : C 003402 : C ETX LF IL BK DL ERASE 003403 : M*EP:,GOST,6H'20''64'0300 003404 : C 003405 : C DL ERASE 003406 : M*DL:,GOST,6H000300 003407 : C 003408 : C CL BK CR IC DC 003409 : M*SPEC:,GOST,6H0'204'0'214'00 003410 : C 003411 : C CHIR STIN CNOC CR TOIN BNL 003412 : M*SPO:,OCT,3200 205 003413 : C 003414 : C 003415 : M1/O*I:,OCT,04776177 37777777 003416 : MSKC1:,LOG,77777400 000 77777 003417 : MSKC2:,OCT,77000000 001 003418 : C 003419 : ,END, 003420 : VALERINA:,NAME, 003421 : C 003422 : C***** ДEШИФPATOP COБЫTИЙ CИCTEMЫ 003423 : C " M Y Л Ь T И T A Й П " 003424 : C ЯHBAPЬ 86 B.BEPETEHOB 003425 : C 003426 : C OБPAБATЫBAЮTCЯ COБЫTИЯ : 003427 : C P.48 - KOHEЦ OБMEHA C MБ/MД/MЛ 003428 : C 47 - CEKYHДHAЯ METKA BPEMEHИ 003429 : C 43 - COOБЩEHИE OT ДPYГOГO KAHAЛA 003430 : C 42 - COOБЩEHИE OT OПEPATOPA 003431 : C 41 - COOБЩEHИE OT CTPOЧHИKA 003432 : C 40 - ЗAKAЗ OT MYЛЬTИTAЙПA 003433 : C 003434 : C===== Г Л A B H Ы Й X O З Я И H 003435 : MULTITYP:,SUBP, 003436 : C 003437 : C----- CBЯЗЬ C TEPMИHAЛЬHЫM HИЗOM 003438 : SEC5:,EQU,200B-5 003439 : MIN2:,EQU,200B-120 003440 : *TLSIZE:LC,BLOCK,(3),XNSS 003441 : NSS:,WEQ,XNSS 003442 : *TLBUFI:LC,BLOCK,CIN 003443 : *0:,BLOCK,LJOB,MSK,XNT,OWNER,WSC 003444 : ,CONT,(1),STRI 003445 : *TLSYS:LC,BLOCK,(1),STATMT 003446 : INITMT:,EQU,STATMT+NSS 003447 : REFMT:,EQU,INITMT+NSS 003448 : *SCAL71:LC,BLOCK,SC71,READY71 003449 : ,CONT,(4),READY/2 003450 : *TASK71:LC,BLOCK,(8),CHAN/J(8) 003451 : *YCЫ:LC,BLOCK,(1),RDSCAL 003452 : *TLSTAT:LC,BLOCK,(11),SPEC*CH(2),SC*BNL 003453 : *TLCONST:LC,BLOCK,(1),MSK0(16) 003454 : ,CONT,B42/19(4),M*LJOB 003455 : CONN*SS:,SUBP, 003456 : STRT*DWN:,SUBP, 003457 : C 003458 : C----- ЧИCЛO ЛOГ.KAHAЛOB И ПPOИЗBOДHЫE 003459 : NC:,EQU,10.ЧИCЛO Л-KAHAЛOB 003460 : NCM1:,EQU,NC-1 003461 : NCM3:,EQU,NC-3 003462 : NC*2:,P*P,(NC) 2 003463 : C 003464 : C CBЯЗЬ C HEPEЗИДEHTOM MYЛЬTИTAЙПA 003465 : FETCH:,EQU,2000B 003466 : C 003467 : C CBЯЗЬ C MYЛЬTИTAЙПOM HA PAБЛИCTE 003468 : NPAБЛИCT:LC,BLOCK,MAT/PH 003469 : *66:B,BLOCK,T/IS,S/BUS 003470 : *74:B,BLOCK,SC*CUP.HYЖEH "CUP". 003471 : *657:B,BLOCK,SC CAN .OTMEHA CTPOKИ 003472 : ,CONT ,SC END .CБPOC CHИЗY 003473 : ,CONT ,SC LINE .ЗAKOHЧEHA CTPOKA 003474 : ,CONT ,SC INT .ПPEPBAH BЫBOД 003475 : ,CONT ,SC NEW .HAЧAЛO CEAHCA 003476 : ,CONT ,SC TIME .ЛOПHYЛO BPEMЯ 003477 : ,CONT ,ST MT .KOHЦЫ OБMEHA 003478 : ,CONT ,RE MT .ПOДЗAПYCK MT 003479 : ,CONT ,SC WAIT .ЗAKAЗЫ HA OБMEH 003480 : *670:B,BLOCK,JOB(NC) .MT-ЗAKAЗЫ 003481 : ,CONT ,RETADR(NC*2).BOЗBPAT 003482 : ,CONT ,TEKAДP(NC*2). 003483 : ,CONT ,ASTR(NC).AДPECA БYФEPOB 003484 : ***1:,EQU,1202B.= "CBOБOДHO" 003485 : ***1:I,BLOCK,ASPBUF(NC) 003486 : ,CONT,SPBUF(192) 003487 : ,CONT,S*LJOB(NC) 003488 : ,CONT,S*MSK(NC) 003489 : ,CONT,TLG*(14) 003490 : *1750:B,BLOCK,PБYФ(24) 003491 : C 003492 : C----- CBЯЗЬ ПO TEЛEГPAФY C "TTANAL" 003493 : *436:B,BLOCK,TEL/IS(2) 003494 : ,CONT,TLG1 003495 : C 003496 : C----- Б И T Ы : 003497 : PB48:,EQU,700B 003498 : B48:,EQU,=:4 003499 : B47:,EQU,=:2 003500 : B46:,EQU,=:1 003501 : B41:,EQU,=:002 003502 : B40:,EQU,=:001 003503 : B36:,EQU,=:0000 4 003504 : B34:,EQU,=:0000 1 003505 : B33:,EQU,=:0000 04 003506 : B32:,EQU,=:0000 02 003507 : B30:,EQU,=:0000 004 003508 : B28:,EQU,=:0000 001 003509 : B24:,EQU,=4000 0000 003510 : PB24:,EQU,730B 003511 : B*CUP:,EQU,B46 003512 : B*OTB:,EQU,B41 003513 : B*IN:,EQU,B36 003514 : B*INT:,EQU,B33 003515 : B*TIM:,EQU,B33 003516 : B*LIM:,EQU,B34 003517 : B*COSY:,EQU,B30 003518 : B*LON:,EQU,B32 003519 : B*BIN:,EQU,B28 003520 : C 003521 : C----- ИCПOЛЬЗYEMЫE CИMBOЛЫ 003522 : DL:,EQU,36B 003523 : ERASE:,EQU,37B 003524 : C 003525 : C----- PAБOЧИE ЯЧEЙKИ 003526 : LWORK:,EQU,20.= ДЛИHA WORK 003527 : WORK:I,BLOCK,WS,BCH,SC,Ш/COБ 003528 : ,CONT,SI1(10),STACK(5) 003529 : C 003530 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ : 003531 : JC:,EQU,2 003532 : B:,EQU,3 003533 : L:,EQU,4 003534 : M:,EQU,5 003535 : S:,EQU,6 003536 : C:,EQU,8 003537 : T:,EQU,9 003538 : N:,EQU,10 003539 : L1:,EQU,11 003540 : R:,EQU,13 003541 : C 003542 : BEGIN:,BSS, 003543 : C 003544 : C----- MACKA BOCПPИHИMAEMЫX COБЫTИЙ 003545 : :12,Z07, 003546 : ,Z01,ДEШИФP 003547 : C 003548 : C----- ПOЛE YПPЯTЫBAHИЯ 003549 : П YПP:,BSS,13 003550 : Ш/KO:,BSS,3 003551 : C 003552 : C===== BXOД B ДEШИФPATOP 003553 : C 003554 : C HA CYMMATOPE - ШKAЛA COБЫTИЙ 003555 : C 003556 : ДEШИФP:,BSS, 003557 : 13,BAS,П YПP 003558 : ,AAX,B48/25 003559 : 15,VTM,Ш/COБ 003560 : C..... Y П P Я T Ы B A H И Я 003561 : 14,VTM,-10 003562 : :14,ITS,11 003563 : 14,VLM,* 003564 : C 003565 : C----- ГЛABHЫЙ ЦИKЛ OБPAБOTKИ COБЫTИЙ 003566 : M LOOP:,BSS, 003567 : B,BASE,BEGIN 003568 : 15,VTM,STACK 003569 : ,XTA,Ш/COБ 003570 : ,UZA,NEXT/EV 003571 : ,ANX, 003572 : ,ATI,12 003573 : ,YTA, 003574 : 12,ASN,64 003575 : ,ATX,Ш/COБ 003576 : 12,UJ,SWITCH-1 003577 : C 003578 : C===== ПEPEKЛЮЧATEЛЬ COБЫTИЙ 003579 : C 003580 : SWITCH:,BSS, 003581 : :,,.- 48P 003582 : ,UJ,KOH/OБM 003583 : :,,.- 47P 003584 : ,UJ,CEK/MET.= CEKYHД.METKA 003585 : :,,.- 46P. 003586 : ,UJ,NEXT/EV.= PEЗEPB 003587 : :,,.- 45P. 003588 : ,UJ,NEXT/EV.= COБЫTИE ЭK71 003589 : :,,.- 44P. 003590 : ,UJ,NEXT/EV.= OT ПOЧTЫ 003591 : :,,.- 43P. 003592 : ,UJ,NEXT/EV.= PEЗEPB 003593 : :,,.- 42P 003594 : ,UJ,OПEPATOP.= OПEPATOP 003595 : :,,.- 41P 003596 : ,UJ,CTPOЧHИK 003597 : :L,VTM,-NCM3.- 40P 003598 : ,UJ,MYЛЬTИ 003599 : C 003600 : C===== COБЫTИE : "KOHEЦ OБMEHA C MД" 003601 : C 003602 : KOH/OБM:,BSS, 003603 : ,XTA,Ш/KO 003604 : ,AAX,B48/17 003605 : ,UZA,NEXT/EV 003606 : ,ANX,C77777 003607 : ,ATI,14.MAT.N ЛИCTA 003608 : ,ASN,64-30 003609 : ,ATX,WS 003610 : L,VTM,-NCM3 003611 : 14,*65,PB48 003612 : ,AEX,Ш/KO 003613 : ,ATX,Ш/KO 003614 : KO 1:L,XTA,RETADR+NCM1 003615 : ,AEX,WS 003616 : ,AAX,B35/31 003617 : ,UZA,KO 2 003618 : L,VLM,KO 1 003619 : ,UJ,KOH/OБM 003620 : KO 2:,XTA,B48 003621 : L,ASN,64+NCM1 003622 : ,AOX,ST MT 003623 : ,ATX,ST MT 003624 : ,UJ,KOH/OБM 003625 : C 003626 : C===== COБЫTИE : CEKYHДHAЯ METKA 003627 : C 003628 : CEK/MET:,BSS, 003629 : ,XTA,SC WAIT 003630 : ,AOX,ST MT 003631 : ,ATX,ST MT 003632 : ,UTC,1.= ПPИЗHAK 003633 : C 003634 : C===== COБЫTИE : "C T P O Ч H И K" 003635 : C 003636 : CTPOЧHИK:,BSS, 003637 : M,VTM, 003638 : ,XTA,STATMT 003639 : ,APX,B42/19 003640 : ,AOX,SPEC*CH 003641 : ,AEX,SPEC*CH 003642 : ,ATX,SC 003643 : C----- ЦИKЛ ПO ПPИBЯЗAHHЫM Ф-KAHAЛAM 003644 : CTP 0:,XTA,SC 003645 : ,UZA,ПPИBЯЗ 003646 : ,ANX, 003647 : ,ATI,N.N ФИЗ.KAHAЛA 003648 : ,YTA, 003649 : N,ASN,64 003650 : ,ATX,SC 003651 : N,*65,CIN 003652 : ,AAX,C1777.AДPEC БYФEPA 003653 : ,ATI,C.M-AДP OПИCATEЛЯ 003654 : C,XTA,XNT 003655 : ,ASN,64+15 003656 : ,AAX,C37 003657 : ,ATI,L.N ЛOГ.KAHAЛA 003658 : L,*65,PB48-1 003659 : ,ATX,BCH 003660 : ,XTA,B24 003661 : N,ASN,64-1 003662 : ,AAX,REFMT.- OTBЯЗATЬCЯ 003663 : ,U1A,OTBЯЗ.-> ДA 003664 : R,VJM,CH*TEL.- ПPOB.TEЛE. 003665 : C----- HE TEЛEГPAMMY ЛИ OTPAБATЫBAЛИ 003666 : CH*BUS:C,XTA,LJOB 003667 : ,AAX,M*LJOB 003668 : ,U1A,CTP 0.-> KAHAЛ ЗAHЯT 003669 : L,XTA,S*LJOB-1 003670 : ,UZA,NO TEL 003671 : ,AOX,B47 003672 : C,ATX,LJOB 003673 : L,XTA,S*MSK-1 003674 : C,ATX,MSK 003675 : ,XTA, 003676 : L,ATX,S*LJOB-1 003677 : ,UJ,CH*BUS 003678 : NO TEL:,BSS, 003679 : M,V1M,CTP 0.-> CEK.MET. 003680 : C----- KAK C ЗAKAЗOM OT MYЛЬTИTAЙПA 003681 : ,XTA,S/BUS 003682 : ,AAX,BCH 003683 : ,UZA,CTP 1.-> YЖE OTPAБOTAH 003684 : ,AEX,S/BUS 003685 : ,ATX,S/BUS 003686 : ,XTA,M*JOB 003687 : L,AAX,JOB-1 003688 : L,ATX,JOB-1 003689 : C,XTA,LJOB 003690 : ,UZA,CTP 0 003691 : ,AAX,B*IN 003692 : ,UZA,W/O 003693 : C,XTA,LJOB 003694 : ,AAX,B*BIN 003695 : ,UZA,W/IN 003696 : C,XTA,LJOB 003697 : ,AAX,B*LON 003698 : ,UZA,CTP END 003699 : L,XTA,ASPBUF-1 003700 : ,ARX,=:02 003701 : L,ATX,ASPBUF-1 003702 : ,UZA,CTP END 003703 : ,ATI,15 003704 : C----- ПEPEПИCЬ OЧEPEДHOЙ ПOPЦИИ БYФEPA 003705 : C,MTJ,T 003706 : R,VTM,-23 003707 : C/BUF:T,XTA,STRI 003708 : ,XTS, 003709 : T,ATX,STRI 003710 : T,UTM,1 003711 : R,VLM,C/BUF 003712 : 15,VTM,STACK 003713 : C----- OTKPЫBAEM ЗAДAЧY 003714 : ,XTA,BCH 003715 : ,AOX,READY/2 003716 : ,ATX,READY/2 003717 : L,XTA,CHAN/J-3 003718 : ,AEX, 003719 : ,*53,RDSCAL 003720 : ,XTA, 003721 : L,ATX,CHAN/J-3 003722 : C----- ПOBTOPИM ЗAKAЗ HA BBOД 003723 : ,XTA,BCH 003724 : ,AOX,S/BUS 003725 : ,ATX,S/BUS 003726 : L,XTA,ASTR-1 003727 : ,ARX,IW/CONT 003728 : ,UJ,SET*DWN 003729 : C----- OKOHЧAHИE BBOДA 003730 : W/IN:,BSS, 003731 : C,XTA,STRI 003732 : ,U1A,W/I 003733 : ,XTA,B48 003734 : N,ASN,64-1 003735 : ,AOX,SC*CUP 003736 : ,ATX,SC*CUP 003737 : W/I:,BSS, 003738 : C,WTC,WSC 003739 : S,VTM,-DL 003740 : S,VZM,CTP D.=> OTMEHA CTPOKИ 003741 : S,UTM,DL - ERASE 003742 : S,VZM,CTP D 003743 : ,UTC,SC TIME -SCINT .=> TAЙMEP 003744 : W/O:T,VTM,SC INT.=> ПEPEБИBKA 003745 : C,XTA,LJOB 003746 : ,AAX,B*INT 003747 : ,U1A,CTP E 003748 : CTP END:T,VTM,SC LINE.=> HOPM.KOHEЦ 003749 : CTP E:,BSS, 003750 : R,VTM,CTP 0 003751 : ,UJ,TO SC 003752 : CTP D:T,VTM,SC CAN 003753 : C,XTA,WSC 003754 : ,ASN,64+8 003755 : ,ASN,64-8 003756 : C,ATX,WSC 003757 : ,UJ,CTP E 003758 : C----- HET ЛИ HOBOГO ЗAKAЗA OT MT 003759 : CTP 1:,BSS, 003760 : L,XTA,JOB-1 003761 : ,AOX,M*JOB 003762 : ,AEX,M*JOB 003763 : ,UZA,CTP 0.-> HET 003764 : C----- ПOДПИXHEM ПEPEДAЧY ЗAKAЗA 003765 : ,XTA,B40 003766 : ,AOX,Ш/COБ 003767 : ,ATX,Ш/COБ 003768 : ,UJ,CTP 0 003769 : C 003770 : C----- HET ЛИ ЖДYЩEЙ TEЛEГPAMMЫ 003771 : CH*TEL:,BSS, 003772 : N,*65,PB48-1 003773 : ,ATX,WS 003774 : ,AAX,T/IS 003775 : R,UZA,.-> HET 003776 : C----- ECTЬ TEЛEГPAMMA 003777 : C,XTA,LJOB 003778 : ,AAX,M*LJOB 003779 : ,UZA,CH*T.-> KAHAЛ CBOБ. 003780 : C,XTA,LJOB 003781 : ,AAX,B*IN 003782 : ,UZA,CTP 0.-> KAHAЛ ЗAHЯT 003783 : CH*T:,XTA,WS 003784 : ,AEX,T/IS 003785 : ,ATX,T/IS 003786 : C,XTA,LJOB 003787 : L,ATX,S*LJOB-1 003788 : C,XTA,MSK 003789 : L,ATX,S*MSK-1 003790 : R,VTM,MIN2 003791 : ,XTA,BCH 003792 : ,AOX,S/BUS 003793 : ,ATX,S/BUS 003794 : ,XTA,J*TEL 003795 : SET*DWN:,BSS, 003796 : ,AOX,MAT/PH 003797 : ,WTC,MAT/PH 003798 : C,UTM, 003799 : ,*76,*DWN 003800 : ,UJ,CTP 0 003801 : C----- HAЧAЛO OTBЯЗKИ KAHAЛA 003802 : OTBЯЗ:,ASN,64. PMP = 0 !!! 003803 : ,*53,REF MT 003804 : C,XTA,LJOB 003805 : ,AOX,M*LJOB 003806 : ,AEX,M*LJOB 003807 : C,ATX,LJOB 003808 : ,XTA,S/BUS 003809 : ,AOX,BCH 003810 : ,AEX,BCH 003811 : ,ATX,S/BUS 003812 : ,XTA,M*JOB 003813 : L,AAX,JOB-1 003814 : L,ATX,JOB-1 003815 : T,VTM,SC END 003816 : ,UJ,CTP E 003817 : C----- PEAЛИЗAЦИЯ ПPИBЯЗKИ HOBЫX 003818 : ПPИBЯЗ:,BSS, 003819 : ,XTA,INITMT 003820 : ,ASN,64-24 003821 : ,UZA,CH/END 003822 : ,ANX, 003823 : ,ATI,N 003824 : ,XTA,B24 003825 : N,ASN,64-1. PMP = 0 !!! 003826 : ,*53,INIT MT 003827 : ,ASN,64-12 003828 : ,AEX,INITMT 003829 : ,AAX,B48/37 003830 : ,UZA,ПPИBЯЗ.-> BCE ЗAHЯTO 003831 : ,ANX,C77777 003832 : ,ATI,L 003833 : L,WTC,ASTR 003834 : C,VTM,LJOB-STRI.MAT.AДP. БYФEPA 003835 : C..... ЗAЙMEM ЛOГИЧECKИЙ KAHAЛ 003836 : ,XTA,B48 003837 : L,ASN,64+12 003838 : ,AEX, 003839 : ,*53,INITMT 003840 : C..... CФOPMИPYEM : LJOB OWNER XNT 003841 : ,XTA, 003842 : C,ATX,LJOB 003843 : C,ATX,OWNER 003844 : ,ITA,N 003845 : L,UTM,1 003846 : ,ITS,L 003847 : ,ASN,64-15 003848 : 15,AOX, 003849 : C,ATX,XNT 003850 : C..... ПPИBЯЖEMCЯ BHИЗY 003851 : 12,VTM,1.N П/C "MT" 003852 : ,ITA,C 003853 : ,AEX,MAT/PH 003854 : ,*76,M*CONN 003855 : C..... COOБЩИM HOBЫX MYЛЬTИTAЙПY 003856 : ,XTA,B48 003857 : L,ASN,64-1 003858 : ,ATX,BCH 003859 : T,VTM,SC NEW 003860 : R,VTM,ПPИBЯЗ 003861 : ,UJ,TO SC 003862 : CH/END:,BSS, 003863 : ,*65,STATMT 003864 : ,AAX,B42/19 003865 : ,U1A,NEXT/EV 003866 : ,SJ, 003867 : M*CONN:,BSS, 003868 : N,MTJ,14 003869 : 13,VJM,CONN*SS 003870 : ,MTJ,27B 003871 : 2,IJ, 003872 : C 003873 : C===== COБЫTИE : "O П E P A T O P" 003874 : C ( TEЛEГPAMMA ) 003875 : C 003876 : OПEPATOP:,BSS, 003877 : L,VTM,-1 003878 : T,VTM,TLG1 003879 : ,XTA,STATMT 003880 : ,ASN,64+42 003881 : ,NTR,3 003882 : ,X-A,C60 003883 : ,AOX,C1440 003884 : ,ATX,WS.= HAШ TEPMИHATOP 003885 : C----- HAЙДEM OTПPABИTEЛЯ 003886 : OП 1:L,*65,TEL/IS+1 003887 : ,AEX,WS 003888 : L1,VTM,-12 003889 : ,UZA,OП 2 003890 : T,UTM,14 003891 : L,VLM,OП 1 003892 : ,UJ,NEXT/EV.-> HET EГO 003893 : C----- ЗAПOMHИM TEЛEГPAMMY 003894 : OП 2:L1,UTC,12 003895 : T,*65, 003896 : L1,ATX,TLG*+13 003897 : L1,VLM,OП 2 003898 : ,XTA, 003899 : L,*52,TEL/IS+1 003900 : C----- ECTЬ ЛИ ПOЛYЧATEЛЬ 003901 : ,XTA,TLG*+1 003902 : ,AEX,ANY 003903 : ,ASN,64+40 003904 : ,UZA,OП 3.-> BCEM-BCEM 003905 : ,XTA,TLG*+1 003906 : ,APX,=6H'7''7''''''''' 003907 : ,ASN,64+42 003908 : ,ATI,N 003909 : ,XTA,B48 003910 : N,ASN,64+5 003911 : ,AAX,STATMT 003912 : ,UZA,NEXT/EV.-> HET KAHAЛA 003913 : ,ASN,64-6 003914 : ,UJ,OП 4 003915 : OП 3:,XTA,STATMT 003916 : ,APX,B42/19.= BCE KAHAЛЫ 003917 : OП 4:,AOX,T/IS 003918 : ,ATX,T/IS 003919 : ,XTA,*OП 003920 : ,ATX,TLG* 003921 : ,UJ,CTPOЧHИK 003922 : C 003923 : C===== COБЫTИE : "M T - З A K A З" 003924 : C 003925 : MYЛЬTИ:,BSS, 003926 : 15,VTM,STACK.ИЗ-ЗA FETCH 003927 : ,XTA,B48 003928 : L,ASN,64+NCM1 003929 : ,ATX,BCH 003930 : ,AAX,S/BUS 003931 : ,U1A,MYЛЬTИK.> ЗAHЯT CTPOЧHИK 003932 : L,XTA,JOB+NCM1 003933 : ,AOX,M*JOB 003934 : ,AEX,M*JOB 003935 : ,UZA,MYЛЬTИK.-> HET ЗAKAЗA 003936 : L,XTA,JOB+NCM1 003937 : ,AAX,B*COSY 003938 : ,UZA,MY 1 003939 : L,MTJ,JC 003940 : JC,UTM,NCM1 003941 : 14,VTM,PБYФ 003942 : ,ITA,14 003943 : L,ATX,TEKAДP+NCM1 003944 : 13,VJM,FETCH 003945 : B,BASE,BEGIN 003946 : ,UJ,MYЛЬTИ 003947 : MY 1:L,XTA,JOB+NCM1 003948 : ,AAX,B*LIM 003949 : :,U1A,*+1 003950 : ,UTC,MIN2-SEC5 003951 : :R,VTM,SEC5 003952 : L,WTC,ASTR+NCM1 003953 : C,VTM,LJOB-STRI 003954 : L,XTA,JOB+NCM1 003955 : ,ARX,B26/20 003956 : ,APX,MSKP1 003957 : ,AUX,MSKU1 003958 : L,XTS,JOB+NCM1 003959 : ,APX,MSKP2 003960 : ,AUX,MSKU2 003961 : 15,AOX, 003962 : ,AEX,SJOB0 003963 : ,AEX,MAT/PH 003964 : ,XTS,B48 003965 : C,WTC,XNT 003966 : ,ASN,64-1 003967 : ,AAX,SC*CUP 003968 : ,UZA,NO/CUP 003969 : ,AEX,SC*CUP 003970 : ,ATX,SC*CUP 003971 : ,XTA,SC71 003972 : ,AAX,BCH 003973 : ,U1A,NO/CUP 003974 : ,XTA,B*CUP 003975 : 15,AOX,-1 003976 : 15,ATX,-1 003977 : NO/CUP:15,XTA,-1 003978 : ,AAX,B*OTB 003979 : ,U1A,REFU 003980 : ,XTA,BCH 003981 : ,AOX,S/BUS 003982 : ,ATX,S/BUS 003983 : ,UJ,TO DWN 003984 : REFU:,XTA, 003985 : L,ATX,JOB+NCM1 003986 : TO DWN:,STX, 003987 : ,WTC,MAT/PH 003988 : C,UTM, 003989 : ,*76,*DWN 003990 : MYЛЬTИK:L,VLM,MYЛЬTИ 003991 : ,UJ,NEXT/EV 003992 : C----- ПOДПИXИBAHИE STRINGER'A 003993 : *DWN:14,REL,* 003994 : C,ATX,LJOB 003995 : C,WTC,XNT 003996 : ,XTA,CIN 003997 : ,AAX,723B.B29 = БЛOK.PEГEH. 003998 : :,UZA,*+1 003999 : R,VTM,MIN2.ДЛЯ CETИ 004000 : ,ITA,R 004001 : ,ASN,64-32 004002 : C,AEX,XNT 004003 : ,AAX,B40/33 004004 : C,AEX,XNT 004005 : C,ATX,XNT 004006 : ,ATI,N.- ФИЗ.N KAHAЛA 004007 : ,XTA,MSK0 004008 : C,ATX,MSK 004009 : B,BAS,BEGIN 004010 : 14,VJM,STRT*DWN 004011 : ,MTJ,27B 004012 : 2,IJ, 004013 : C 004014 : C----- YCTAHOBKA ШKAЛ MYЛЬTИTAЙПA 004015 : TO SC:,XTA,BCH 004016 : T,AOX, 004017 : T,ATX, 004018 : R,UJ, 004019 : C 004020 : C===== KOHEЦ ГЛABHOГO ЦИKЛA ПO COБЫTИЯM 004021 : NEXT/EV:,BSS, 004022 : ,XTA,Ш/COБ 004023 : ,U1A,M LOOP 004024 : C----- BOЗBPAT ИЗ ДEШИФPATOPA 004025 : C..... B O C C T A H O B Л E H И Я 004026 : 15,VTM,SI1+10 004027 : 14,VTM,11 004028 : BOC 1:14,STI, 004029 : 14,UTM,-1 004030 : 14,V1M,BOC 1 004031 : ,XTA,.BETBЛ.PAЗPEШEHO 004032 : ,FUN,60B.BOЗBP. ИЗ BETBИ 004033 : CLOSE*MT:,ENTRY, 004034 : C 004035 : C----- CAMOЗAKPЫTИE ДO COБЫTИЯ 004036 : CLOSE:,FUN,61B 004037 : C 004038 : C----- HY OTKPЫЛИCЬ! HY И ЧTO? 004039 : ,FUN,56B.БЛOK.BETBЛEH. 004040 : 14,VTM,-7 004041 : ,XTA, 004042 : :14,AOX,RE MT 004043 : 14,VLM,* 004044 : ,U1A,MULTITYP 004045 : ,FUN,57B.ДEБЛOK.BETBЛEH. 004046 : ,UJ,CLOSE 004047 : C 004048 : C----- K O H C T A H T Ы 004049 : ANY:,ISO,6H@ 004050 : *OП:,ISO,6HTEЛ=>> 004051 : J*TEL:12,Z05, 004052 : 1,Z20,TLG* 004053 : IW/CONT:,OCT,0050 4010 160 00000 004054 : M*JOB :,OCT,0000 1777 7777 7777 004055 : B26/20:,OCT,0000 0003 7600 0000 004056 : MSKP1 :,OCT,0131 0607 7607 7777 004057 : MSKU1 :,OCT,2450 6000 377 77777 004058 : MSKP2 :,OCT,0000 211 004059 : MSKU2 :,OCT,0021 001 004060 : SJOB0 :,OCT,4001 004061 : B48/17:,OCT,7777 7777 776 004062 : B48/25:,OCT,7777 7777 004063 : B48/37:,OCT,7777 004064 : B40/33:,OCT,0017 74 004065 : B35/31:,OCT,0000 37 004066 : C77777:,LOG,77777 004067 : C1777:,LOG,1777 004068 : C1440:,LOG,1440 004069 : C377:,LOG,377 004070 : C60:,LOG,60 004071 : C37:,LOG,37 004072 : C 004073 : C----- PAБOЧИE ЯЧEЙKИ 004074 : WORK:,BSS,LWORK 004075 : ,END, 004076 : OPERTERM:,NAME, 004077 : C 004078 : C***** OБCЛYЖИBAHИE OПEPATOPCKИX KOHCOЛEЙ 004079 : C***** AПPEЛЬ 85 B.BEPETEHOB 004080 : C 004081 : CONS*0:,EQU,2 004082 : *127:B,BLOCK,BUF(128),BUFE 004083 : BPEMЯ:,EQU,542B 004084 : C----- 004085 : *TLSIZE:LC,BLOCK,(3),XNSS 004086 : NSS:,WEQ,XNSS 004087 : NSS1:,EQU,NSS-1 004088 : WSD:,LC,1 004089 : *TLSTAT:LC,BLOCK,(9),JLINE,JTIM 004090 : *TLBUFI:LC,BLOCK,CIN 004091 : *0:,BLOCK,LJOB,MSK,XNT,OWNER,WSC 004092 : ,CONT,(1),STRI(14) 004093 : ,CONT,TIME,STRO(15) 004094 : ,CONT,BUF1(0) .ДЛЯ BTOPOГO 004095 : *TLSYS:LC,BLOCK,STATOP 004096 : INITOP:,EQU,STATOP+NSS 004097 : TIMOP:,EQU,INITOP+NSS 004098 : MAIN*C:,SUBP, 004099 : *TLBUFOP:LC,BLOCK,BUSYSC,LWL,WL(9),NOP 004100 : ,CONT,CONNOP,BUF0(20) 004101 : C----- 004102 : RESET*TL:,SUBP, 004103 : PUT PIR:,SUBP, 004104 : STRT*DWN:,SUBP, 004105 : STATIST:,SUBP, 004106 : CONN*SS:,SUBP, 004107 : TT TASK:,SUBP, 004108 : C----- 004109 : *TLCONST:LC,BLOCK,(1),B48/41(16),B42/19(4) 004110 : ,CONT,M*LJOB 004111 : MASK12:LC,BLOCK,B48/37 004112 : B24/1:,LC,1 004113 : C77777:,LC,1 004114 : C377:,LC,1 004115 : C37:,LC,1 004116 : C----- 004117 : *700:B,BLOCK,B48,B47,B46,B45,B44,B43 004118 : ,CONT,B42,B41,B40,B39,B38,B37 004119 : ,CONT,B36,B35,B34,B33,B32,B31 004120 : ,CONT,B30,B29,B28,B27,B26,B25 004121 : ,CONT,B24,B23,B22,B21,B20,B19 004122 : ,CONT,B18,B17,B16,B15,B14,B13 004123 : ,CONT,B12,B11,B10,B9,B8,B7 004124 : ,CONT,B6,B5,B4,B3,B2,B1 004125 : C----- 004126 : B*INP:,EQU,B25 004127 : B*TIM:,EQU,B33 004128 : B*INT:,EQU,B33 004129 : B*IN:,EQU,B36 004130 : J*REF:,EQU,B41 004131 : B*NL:,EQU,B47 004132 : C----- 004133 : WORK:I,BLOCK,WS,WS1,STACK(2),SC 004134 : C----- ИCПOЛЬЗYEMЫE CИMBOЛЫ ISO 004135 : DL:,EQU,36B.= DELETE LINE 004136 : ERASE:,EQU,37B 004137 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 004138 : L:,EQU,3 004139 : M:,EQU,8 004140 : C:,EQU,9 004141 : N:,EQU,10 004142 : L1:,EQU,11 004143 : R:,EQU,12 004144 : F:,EQU,13 004145 : T:,EQU,14 004146 : C 004147 : C======== 004148 : C 004149 : 15,VTM,STACK 004150 : ,XTA,STATOP 004151 : ,APX,B42/19 004152 : ,ATX,SC.= ПPИBЯЗAHЫ 004153 : C===== ЦИKЛ ПO ПPИBЯЗAHHЫM KOHCOЛЯM 004154 : M LOOP:,24,3 004155 : ,XTA,SC 004156 : ,UZA,CH/CONN 004157 : ,ANX, 004158 : ,ATI,N.N ФИЗ.KAHAЛA 004159 : N,WTC,CIN 004160 : C,VTM,.БYФEP KAHAЛA 004161 : C,XTA,XNT 004162 : ,ASN,64+15 004163 : ,AAX,C37 004164 : ,ATI,L.N ЛOГ.KAHAЛA 004165 : L,UTM,-1 004166 : N,XTA,B48-1 004167 : ,AEX,SC 004168 : :,24,2003B 004169 : ,ATX,SC 004170 : C,XTA,LJOB 004171 : ,AAX,M*LJOB .KAHAЛ 004172 : ,ATX,WS 004173 : ,UZA,CH BUSY.-> CBOБOДEH 004174 : C,XTA,LJOB 004175 : ,AEX,J*IN 004176 : ,AAX,M*IN 004177 : ,U1A,MLOOP 004178 : CH BUSY:,BSS, 004179 : ,XTA,TIMOP 004180 : N,AAX,B24-1. ПOЖEЛAHИE 004181 : ,U1A,DIS CONN.-> HA OTBЯЗKY 004182 : ,XTA,WS 004183 : ,U1A,CH*OUT 004184 : C,XTA,LJOB 004185 : ,UZA,NEW/JOB 004186 : C,WTC,WSC 004187 : T,VTM,-DL 004188 : :T,VZM,*+1 004189 : T,UTM,DL-ERASE 004190 : ,AAX,B*IN 004191 : ,U1A,WAS/IN 004192 : C----- ЗAKOHЧИЛCЯ BЫBOД 004193 : C,XTA,LJOB 004194 : ,AAX,B*INT 004195 : ,UZA,NEW/JOB.-> HOPMAЛЬHO 004196 : C----- ПPEPЫBAHИE BЫBOДA 004197 : T,V1M,NEW/INP 004198 : C----- OЧИCTKA OЧEPEДИ 004199 : :R,VTM,*+1 004200 : F,VTM,NEW/INP 004201 : :,24,3 004202 : ,UJ,GIV J 004203 : C----- ЗAKOHЧИЛCЯ BBOД 004204 : WAS/IN:C,XTA,LJOB 004205 : ,AAX,B*TIM 004206 : ,U1A,CH/OUT.-> ПO BPEMEHИ 004207 : T,VZM,NEW/INP.-> OTMEHA CTPOKИ 004208 : C----- ПOXOД HA "TTANAL" 004209 : C,XTA,LJOB 004210 : ,AEX,B*INP.ДЛЯ ПYCTOГO 004211 : C,ATX,LJOB.BBOДA 004212 : N,XTA,B48-1 004213 : ,AOX,NOP 004214 : ,ATX,NOP 004215 : ,XTA,B43.= TTANAL 004216 : 14,VJM,PUT PIR.= PUT "TTANAL" 004217 : C----- BЫБOP HOBOГO ЗAKAЗA B KAHAЛ 004218 : NEW/JOB:,BSS, 004219 : F,VTM,NEW/IN 004220 : R,VJM,GIV J 004221 : NEW/J:L1,VTM,1-14 004222 : C----- COOБЩEHИE B CTPOЧHЫЙ БYФEP 004223 : ,ATI,F 004224 : F,UTM,-1 004225 : C,UTC,STRO 004226 : T,VTM,-1 004227 : M,VTM, 004228 : MOV 1:T,UTM,1 004229 : F,UTM,1-BUFE 004230 : :F,V1M,*+1 004231 : F,VTM,BUF-BUFE 004232 : :F,XTA,BUFE 004233 : T,AEX, 004234 : ,UZA,MOV 2 004235 : M,VTM,1 004236 : T,AEX, 004237 : T,ATX, 004238 : MOV 2:,24,3 004239 : F,UTM,BUFE 004240 : F,XTA, 004241 : ,AAX,C377 004242 : ,UZA,MOV 3 004243 : L1,VLM,MOV 1 004244 : MOV 3:M,VZM,PUT/OUT 004245 : C----- ЗAПИCЬ B DAY-FILE 004246 : ,XTA,7 004247 : ,ASN,64-8 004248 : ,AOX,WS 004249 : ,AAX,B40 004250 : ,U1A,PUT/OUT.-> БЛOKИPOBKA 004251 : ,XTA,BPEMЯ 004252 : C,ATX,TIME.ACTP.BPEMЯ 004253 : L1,UTM,15 004254 : ,ITA,L1 004255 : ,ASN,64-44 004256 : ,AOX,STAINF 004257 : ,ITS,C 004258 : ,ASN,64-24 004259 : 15,ARX, 004260 : ,UJ,STATIST 004261 : STA INF:,Z11,TIME 004262 : ,Z00,*+1 004263 : C----- ЗAПYCK BЫBOДA CTPOKИ 004264 : PUT/OUT:,24,2003B 004265 : ,UTC,J*OUT-J*IN 004266 : C----- ИHИЦИAЦИЯ BBOДA CTPOKИ 004267 : NEW/IN:,XTA,J*IN 004268 : ,UJ,NEW/I 004269 : NEW/INP:,XTA,J*IN 004270 : ,AOX,B*INP 004271 : NEW/I:,XTS,B48/41 004272 : C,ATX,MSK 004273 : ,ITA,C 004274 : C,XTS,LJOB 004275 : ,AEX,J*IN 004276 : ,AAX,M*IN 004277 : :,UZA,*+1 004278 : ,XTA,B*NL 004279 : :15,AOX, 004280 : 15,ARX, 004281 : C,ATX,LJOB 004282 : ,UJ,S*DWN 004283 : C----- OCBOБOЖДEHИE KAHAЛA 004284 : DIS CONN:,BSS, 004285 : ,XTA,J*REF 004286 : ,AOX,B*NL 004287 : C,ATX,LJOB 004288 : ,UJ,S*DWN 004289 : CH/OUT:,BSS, 004290 : R,VTM,NEW/J 004291 : F,VJM,GIV J 004292 : C----- ПPOДOЛЖEHИE BBOДA 004293 : C,XTA,LJOB 004294 : ,AOX,B*INP 004295 : ,AEX,C*CONT 004296 : C,ATX,LJOB 004297 : C----- ЗAПYCKИ "STRINGER" 004298 : S*DWN:,BSS, 004299 : 14,VTM,M LOOP 004300 : ,UJ,STRT*DWN 004301 : C----- ПPOBEPKИ ЗAПPOCOB HA BЫBOД 004302 : CH*OUT:,BSS, 004303 : F,VTM,MLOOP 004304 : R,VTM,NEW/J 004305 : C----- BЫБOP ЗAKAЗA ДЛЯ BЫДAЧИ 004306 : GIV J:,BSS, 004307 : ,ITA,L 004308 : ,ASN,64-40 004309 : ,ATX,WS1 004310 : ,XTA,STATOP 004311 : ,AAX,B42/19 004312 : ,ACX, 004313 : ,ATI,M 004314 : M,UTM,-1 004315 : :,24,2003B 004316 : T,VTM,-7 004317 : GJ 1:T,XTA,WL+7 004318 : ,UZA,GJ 2 004319 : M,VZM,YES 004320 : ,AEX,WS1 004321 : ,AAX,B48/41 004322 : ,UZA,YES 004323 : GJ 2:T,VLM,GJ 1 004324 : F,UJ, 004325 : YES:T,XTA,WL+7 004326 : ,ATX,WS 004327 : GJ 3:T,XTA,WL+8 004328 : T,ATX,WL+7 004329 : :,UZA,*+1 004330 : T,VLM,GJ 3 004331 : :,XTA,LWL 004332 : ,UZA,GJ 4 004333 : ,ARX,C77777 004334 : ,AAX,C77777 004335 : GJ 4:,ATX,LWL 004336 : C----- ПOДЗAПYCK БYФEPИЗAЦИИ TT 004337 : ,XTA,B47 004338 : ,AOX,BUSY SC 004339 : ,ATX,BUSY SC 004340 : ,XTA,WS 004341 : R,UJ, 004342 : C 004343 : C----- ЗAKAЗ HA ПPИBЯЗKY ГЛABHOЙ KOHCOЛИ 004344 : C 004345 : CON/1:,BSS, 004346 : ,ITA,13 004347 : ,ATX,CONNOP 004348 : 13,XTA,B24-1 004349 : ,AOX,INITOP 004350 : ,ATX,INITOP 004351 : ,UJ,CALL*OP 004352 : C 004353 : C===== П P И B Я З K A 004354 : C 004355 : C----- ПPOBEPKA HOBЫX "CTYЧAЩИXCЯ" 004356 : CH/CONN:,24,2003B 004357 : ,XTA,INITOP 004358 : ,ASN,64-24 004359 : ,UZA,TT TASK 004360 : ,ANX, 004361 : ,ATI,N 004362 : N,XTS,B24-1 004363 : ,AEX,INITOP 004364 : ,STX,INITOP 004365 : ,AEX,CONNOP 004366 : L,VTM,0 004367 : ,UZA,CONN/1 004368 : ,XTA,INITOP 004369 : ,AAX,B35 004370 : ,U1A,CH/CONN.-> ЗAHЯT 004371 : L,VTM,1 004372 : ,UTC,BUF1 004373 : CONN/1:C,VTM,BUF0 004374 : L,XTA,B36 004375 : ,AOX,INITOP 004376 : ,ATX,INITOP 004377 : ,XTA, 004378 : C,ATX,LJOB 004379 : C,ATX,OWNER 004380 : ,ITA,N 004381 : ,AOX,TIMER0 004382 : ,ITS,L 004383 : ,ARX,B1 004384 : ,ASN,64-15 004385 : 15,AOX, 004386 : C,ATX,XNT 004387 : :,24,3 004388 : N,MTJ,14.N ФИЗ.KAHAЛA 004389 : 12,VTM,0.N OПEP. П/C 004390 : ,ITA,C 004391 : 13,VTM,CH/CONN 004392 : ,UJ,CONN*SS 004393 : C 004394 : C***** ПPИBЯЗKA/OTBЯЗKA ГЛABHOЙ KOHCOЛИ 004395 : C 004396 : CONN*OP:,ENTRY, 004397 : 13,VTM,-NSS1 004398 : 15,VTM,WSD.PAБ.ЯЧ. 004399 : L/TIM:13,XTA,STATOP+NSS1 004400 : ,APX,B42/19 004401 : 15,ATX, 004402 : 13,AOX,TIMOP+NSS1 004403 : 13,STX,TIMOP+NSS1 004404 : ,AOX,JLINE 004405 : ,ATX,JLINE 004406 : 13,VLM,L/TIM 004407 : ,XTA, 004408 : ,ATX,JTIM 004409 : ,XTA,CONS*0 004410 : ,AAX,C37 004411 : :,U1A,*+1 004412 : ,XTA,MAIN*C 004413 : :,ATI,13 004414 : ,AEX,CONNOP 004415 : ,AAX,C37 004416 : ,UZA,CALL*OP.-> BCE CTAPOE 004417 : 13,XTA,CIN 004418 : ,AAX,C77777 004419 : ,U1A,CALL*OP.-> HOBЫЙ ЗAHЯT 004420 : 13,XTA,B48-1 004421 : ,AAX,MAIN*C 004422 : ,UZA,CALL*OP.-> ЗAПPEЩEH 004423 : ,XTA,CONNOP 004424 : ,AAX,C37 004425 : ,UZA,CON/1.-> CTAPOГO HET 004426 : ,ATI,14 004427 : 14,XTA,CIN 004428 : ,AAX,C77777 004429 : ,UZA,CON/1.-> CTAPЫЙ OTBЯЗ. 004430 : C----- ЗAKAЗ OTBЯЗKИ CTAPOMY 004431 : 14,XTA,B24-1 004432 : ,AOX,TIMOP 004433 : ,ATX,TIMOP 004434 : C 004435 : C***** BXOД : ЗAПYCK "OPERTERM" 004436 : C 004437 : CALL*OP:,ENTRY, 004438 : CALL*OP:,BSS, 004439 : ,XTA,B44 004440 : 14,VTM,RESET*TL 004441 : ,UJ,PUTPIR 004442 : C 004443 : TIMER0:,GOST,6H0'173'0000 004444 : M*IN:,OCT,00014001 777 00000 004445 : J*IN:,OCT,44514000 260 00006 004446 : J*OUT:,OCT,40500000 260 00025 004447 : C*CONT:,OCT,40501401 004448 : WORK:,BSS,5 004449 : ,END, 004450 : WHO/USER:,NAME, 004451 : C 004452 : C***** CПPABKA O TEPMИHAЛЬHЫX ПOЛЬЗOBATEЛЯX 004453 : C 004454 : TERM*LOC:,SUBP, 004455 : ALLTOISO:,SUBP, 004456 : *TLSIZE:LC,BLOCK,(1),XNPC(2),XNSS 004457 : NPC0:,WEQ,XNPC 004458 : NSS:,WEQ,XNSS 004459 : NPC:,EQU,NPC0-1 004460 : NPC1:,EQU,NPC-1 004461 : NSS1:,EQU,NSS-1 004462 : *TLSYS:LC,BLOCK, 004463 : *TLBUFI:LC,BLOCK,FCIN 004464 : DISPBASE:LC,BLOCK,(6),NEVM 004465 : *700:B,BLOCK,(5),PB43 004466 : *1000:B,BLOCK,STACK(64),MESS(5),FI(10) 004467 : ,CONT,IW,CIN,GOST,N*OP,BIT 004468 : FIO:,EQU,2000B 004469 : NPF:,P/P,(FIO)16 004470 : *1:,BLOCK,B,AP,R,T,L,D 004471 : C***** 004472 : B,BASE,* 004473 : ,*65,NEVM 004474 : ,ARX, 004475 : :,U1A,*+1 004476 : ,UTC,NPC.ДЛЯ ЭBM-2 004477 : :D,VTM, 004478 : 15,VTM,STACK 004479 : L,VTM,-NSS1.KOЛ-BO П/C 004480 : ,FUN,70100B+114B 004481 : ,AAX,=1 004482 : ,ASN,64-40 004483 : ,ATX,N*OP.HOMEP KOHCOЛИ 004484 : C----- ЧTEHИE TAБЛИЦЫ Ф И O 004485 : ,*65,564B 004486 : ,ATI,13 004487 : 13,*65,2 004488 : D,J+M,D 004489 : ,ARX,IW0 004490 : ,ATX,IW 004491 : ,TAPE,IW 004492 : ,XTA,=0100 00000001 004493 : ,ARX,IW 004494 : ,ATX,IW 004495 : ,TAPE,IW 004496 : C 004497 : C===== CПPABKA ПO ПOДCИCTEMAM 004498 : C 004499 : AP,VTM,NA*SS-2 004500 : T,VTM,MESS 004501 : REF0:AP,UTM,2 004502 : L,*65,*TLSYS+NSS1 004503 : ,AAX,B42/19 004504 : ,UZA,REF0E 004505 : ,ACX, 004506 : AP,XTS, 004507 : T,ATX, 004508 : AP,XTA,1 004509 : T,STX,1 004510 : ,ASN,64-32 004511 : ,AOX,=6H 0 ПOЛ 004512 : T,ATX,2 004513 : ,XTA,=6HЬЗ.; 004514 : T,ATX,3 004515 : T,UTM,4 004516 : REF0E:L,VLM,REF0 004517 : L,VTM,-NPC1 004518 : T,XTA,-1 004519 : ,ASN,64+24 004520 : ,ASN,64-24 004521 : T,ATX,-1 004522 : T,VTM,MESS 004523 : R,VJM,OUT 004524 : C 004525 : C===== ГЛABHЫЙ ЦИKЛ ПO KAHAЛAM 004526 : C 004527 : M/LOOP:,BSS, 004528 : T,VTM,MESS 004529 : L,*65,FCIN+NPC 004530 : ,ATX,CIN 004531 : C----- ИMЯ ПOДCИCTEMЫ 004532 : L,*65,PB43+NPC 004533 : ,ATX,BIT 004534 : R,VTM,-NSS1 004535 : SE*SS:R,*65,*TLSYS+NSS1 004536 : ,AAX,BIT 004537 : ,U1A,WRS 004538 : R,VLM,SE*SS 004539 : ,UJ,E/LOOP 004540 : C----- HOMEP ФИЗ.KAHAЛA 004541 : WRS:L,UTC,NPC1 004542 : 13,VTM,1 004543 : ,ITA,13 004544 : ,ASN,64-42 004545 : ,AUX,=6H'''''''7''7''' 004546 : R,UTC,NSS1 004547 : ,AOX,NA*SS/2 004548 : T,ATX, 004549 : C----- TИП TEPMИHAЛA/KAHAЛA 004550 : ,XTA,CIN 004551 : ,ASN,64+21 004552 : ,AAX,=27 004553 : ,ATI,14 004554 : 14,UTM,TYP*T 004555 : ,ASN,64+3 004556 : :,UZA,*+1 004557 : 14,UTM,-17B.TS-1 /=1/ 004558 : :14,XTA, 004559 : T,ATX,1 004560 : ,XTA,=6H : '1''1''1' 004561 : T,ATX,2 004562 : C----- ЛOKAЛИЗAЦИЯ TEPMИHAЛA 004563 : L,UTC,NPC1 004564 : L,UTC,NPC1 004565 : 13,VTM,TERM*LOC 004566 : D,J+M,13.YЧET N ЭBM 004567 : 13,XTA, 004568 : T,ATX,3 004569 : 13,XTA,1 004570 : T,ATX,4 004571 : C----- Ф И O ПOЛЬЗOBATEЛЯ 004572 : ,XTA, 004573 : ,ATX,FI 004574 : ,ATX,FI+1 004575 : ,ATX,FI+2 004576 : R,UTM,NSS1 004577 : R,VZM,S/OUT.OP 004578 : ,XTA,CIN 004579 : ,ATI,13 004580 : 13,VZM,S/OUT 004581 : 13,*65,3 004582 : ,AAX,=1777 004583 : ,UZA,S/OUT 004584 : ,ASN,64-1 004585 : ,ATI,13 004586 : 13,XTA,FIO-2 004587 : ,ATX,FI 004588 : 13,XTA,FIO-1 004589 : ,ATX,FI+1 004590 : 13,VTM,-1 004591 : L1:12,VTM,-5 004592 : 13,XTA,FI+1 004593 : L2:,ASN,64-8 004594 : 15,ATX, 004595 : ,YTA, 004596 : ,ATX,GOST 004597 : 11,VTM,-177B 004598 : L3:11,*65,ALLTOISO+177B 004599 : ,ASN,64+32 004600 : ,AEX,GOST 004601 : ,AAX,=177 004602 : ,UZA,SYM/IS 004603 : 11,VLM,L3 004604 : 11,VTM,43B-177B 004605 : SYM/IS:11,UTM,177B 004606 : ,ITA,11 004607 : :11,V1M,*+1 004608 : ,XTA,=40 004609 : :15,AOX, 004610 : 12,VLM,L2 004611 : 13,ATX,FI+1 004612 : 13,VLM,L1 004613 : C----- И, HAKOHEЦ, BЫДAЧA OПEPATOPY 004614 : S/OUT:R,VJM,OUT 004615 : E/LOOP:,BSS, 004616 : L,VLM,M/LOOP 004617 : ,*62, 004618 : OUT:,BSS, 004619 : ,ITA,T 004620 : ,AOX,N*OP 004621 : ,AOX,=:001 004622 : ,FUN,76B 004623 : R,UJ, 004624 : IW0:,010,NPF 004625 : ,,1 004626 : B42/19:,OCT,00777777 77 004627 : NA*SS:,BSS, 004628 : ,ISO,12HOПEPATOP -'1''1' 004629 : ,ISO,12HMYЛЬTИTAЙП - 004630 : ,ISO,12HSCREEN -'1''1''1''1' 004631 : ,ISO,12HMOHИTOP - 004632 : NA*SS/2:,BSS, 004633 : ,ISO,6HOP.00= 004634 : ,ISO,6HMT.00= 004635 : ,ISO,6HЭP.00= 004636 : ,ISO,6HSS.00= 004637 : ,ISO,6H 00= 004638 : TYP*T:,BSS, 004639 : ,ISO,6HVT-340 004640 : ,ISO,6H TS-1 004641 : ,ISO,6HKOHCYЛ 004642 : ,ISO,6H#52130 004643 : ,ISO,6H15-ИЭ 004644 : ,END, 004645 : TERM*LOC:,NAME, 004646 : C 004647 : C***** OПИCAHИE ЛOKAЛИЗAЦИИ TEPMИHAЛOB 004648 : C ( ":" - 300 ГЦ., ";" - 150 ) 004649 : C 004650 : 01,ISO,12HMAШ.ЗAЛ : 004651 : 02,ISO,12HMAШ.ЗAЛ : 004652 : ,ISO,12H CETEBOЙ-0 : 004653 : ,ISO,12H CETEBOЙ-1 : 004654 : ,ISO,12H CETEBOЙ-2 : 004655 : ,ISO,12H CETEBOЙ-3 : 004656 : ,ISO,12H CETEBOЙ-4 : 004657 : ,ISO,12H CETEBOЙ-5 : 004658 : ,ISO,12H CETEBOЙ-6 : 004659 : ,ISO,12H CETEBOЙ-7 : 004660 : ,ISO,12H CETEBOЙ-8 : 004661 : ,ISO,12H CETEBOЙ-9 : 004662 : ,BSS,2.CBOБOДHЫЙ 004663 : ,BSS,2.CBOБOДHЫЙ 004664 : 10,ISO,12HMEЖДYHOГYC : 004665 : 9,ISO,12HMOCЭHEPГO : 004666 : 8,ISO,12H/KOMH-229/ : 004667 : 7,ISO,12HЗAЛ БЭCM-6 : 004668 : ,ISO,12H KAДPЫ ; 004669 : 5,ISO,12HA T C OИЯИ; 004670 : 4,ISO,12HЗAЛ БЭCM-6 ; 004671 : 3,ISO,12HY ПPИXOДЬKO; 004672 : 2,ISO,12HЗAЛ BB/BЫB ; 004673 : 1,ISO,12HCИTHИK(ЛBЭ); 004674 : C 004675 : C.... ECЛИ HAДO, CДEЛAЙTE ЗДECЬ 004676 : C TAKOЙ ЖE CПИCOK ДЛЯ ЭBM-2 004677 : C И HE ЗAБYДЬTE ПPO WHO/USER ! 004678 : C 004679 : ,END, 004680 : TTTASK:,NAME,.15.01.86 004681 : C 004682 : C***** ЗAДAЧA БYФEPИЗAЦИИ BЫBOДA 004683 : C OПEPATOPCKИX KOHCOЛEЙ (ДHЗ 13) 004684 : C 004685 : C----- ШKAЛA PAБOT (BUSYSC) : 004686 : C P.48 - P E З E P B 004687 : C P.47 - БYФEPИЗAЦИЯ KOHCOЛEЙ 004688 : C P.46 - "OPERTERM" 004689 : C----- 004690 : *127:B,BLOCK,BUF(128),BUFE(0) 004691 : *TLBUFOP:LC,BLOCK,BUSYSC,LWL,WL(9) 004692 : *327:B,BLOCK,(1),IFTT 004693 : C----- 004694 : SELECT:,SUBP,. 004695 : CLTASK:,SUBP,. 004696 : PUTPIR:,SUBP, 004697 : OPERTERM:,SUBP, 004698 : C----- 004699 : *TLCONST:LC,BLOCK,(3),B47/40(6) 004700 : ,CONT,C200*,C177* 004701 : FULWOR:,LC,1 004702 : C77777:,LC,1 004703 : DISREG:,LC,1. 004704 : C7:,LC,1 004705 : *700:B,BLOCK,B48,B47,B46,B45(44),B1 004706 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 004707 : F:,EQU,11 004708 : T:,EQU,12 004709 : R:,EQU,13 004710 : W:,EQU,14 004711 : C===== 004712 : C 004713 : BEGIN:,XTA,BUSYSC 004714 : ,UZA,KOHEЦ. 004715 : ,ANX,C77777 004716 : ,ATI,W 004717 : ,XTA,BUSY SC 004718 : W,AEX,B48 004719 : ,ATX,BUSY SC. 004720 : W,UJ,SWITCH. 004721 : SWITCH:,BSS,. 004722 : :,33,-2.PEЗEPB 004723 : BUFF:R,VTM,WL*-1.БYФEPИЗAЦИЯ 004724 : ,UJ,M LOOP 004725 : :,,.= OPERTERM 004726 : ,UJ,OPERTERM 004727 : M LOOP:,BSS,. 004728 : R,UTM,1 004729 : R,XTA, 004730 : ,UZA,BEGIN.-> BCE ЗAKAЗЫ 004731 : ,ARX, 004732 : ,UZA,EXEC.-> HA ИCПOЛHEHИE 004733 : C----- БYФEPИЗAЦИЯ ЗAKAЗA 004734 : ,ATI,F. 004735 : ,AAX,B47/40 004736 : ,AOX,A/BUF 004737 : ,AOX,B48 004738 : R,ATX, 004739 : : ,24,3. 004740 : ,ATI,T 004741 : MOVE:,BSS, 004742 : ,ITA,T. 004743 : ,AEX,E/BUF 004744 : ,U1A,WORD 004745 : T,VTM,BUF 004746 : WORD:F,XTA, 004747 : T,ATX,. 004748 : F,UTM,1. 004749 : T,UTM,1. 004750 : C----- ПPOBEPKA KOHЦA ЗAKAЗA 004751 : ,AAX,C177* 004752 : ,ARX,C177* 004753 : ,AAX,C200* 004754 : ,AEX,C200* 004755 : ,UZA,MOVE 004756 : C----- OБHYЛEHИE XBOCTA CЛOBA 004757 : ,ANX,C77777 004758 : ,ATI,W 004759 : ,XTA,FULWOR 004760 : W,ASN,64 004761 : ,AEX,FULWOR 004762 : T,AAX,-1 004763 : T,ATX,-1 004764 : : ,24,2003B 004765 : ,ITA,T 004766 : ,ATX,A/BUF 004767 : R,XTA, 004768 : C----- ЗAKAЗ HA ИCПOЛHEHИE 004769 : EXEC:,WTC,LWL 004770 : W,VTM,-7. ИCП.OЧEPEДЬ 004771 : W,VZM,M LOOP.-> ПOЛHA 004772 : ,AEX,B48 004773 : W,ATX,WL+7 004774 : W,UTM,8 004775 : ,ITA,W 004776 : ,ATX,LWL 004777 : ИCKЛ:R,XTA,1 004778 : R,ATX, 004779 : ,UZA,ИЗM CЧ. 004780 : R,VLM,ИCKЛ 004781 : ИЗMCЧ:R,UTM,-WL* 004782 : ,ITA,R 004783 : ,ATX,LWL* 004784 : ,XTA,B46. PAБOTA = 004785 : ,AOX,BUSYSC.OPERTERM 004786 : ,ATX,BUSYSC 004787 : ,UJ,BUFF 004788 : C 004789 : C----- ЗAKAЗЫ ЗAДAЧИ ИCЧEPПAHЫ 004790 : KOHEЦ:,XTA,ADR 004791 : ,ATX,IFTT+3.AДPEC BXOДA 004792 : ,XTA,DIS REG. 004793 : ,ATX,IFTT+5.PEЖИM BXOДA 004794 : 13,VTM,SELECT. 004795 : ,UJ,CL TASK. 004796 : ADR:,, 004797 : ,Z00,BEGIN 004798 : LWL*:,LOG, 004799 : TEL OUT:,ENTRY,. 004800 : TT PRINT:,ENTRY,. 004801 : ,AAX,C77777 004802 : :,AAX,CHM 004803 : ,UJ,OKEY 004804 : TTPRINT1:,ENTRY, 004805 : OKEY:,BSS, 004806 : : ,24,2003B 004807 : ,WTC,LWL* 004808 : ,ATX,WL* 004809 : ,XTA,B47 004810 : ,AOX,BUSYSC 004811 : ,ATX,BUSYSC 004812 : ,XTA,LWL* 004813 : ,ARX,B1 004814 : ,AAX,C7. 004815 : ,UZA,PUT 004816 : ,ATX,LWL* 004817 : C----- ЗAПYCK TTTASK OT TTPRINT 004818 : PUT:,XTA,B45 004819 : ,UJ,PUTPIR 004820 : A/BUF:,, 004821 : ,Z00,BUF 004822 : E/BUF:,, 004823 : ,Z00,BUFE 004824 : CHM:,OCT,0170 0000 0007 7777 004825 : WL*:,BSS,9 004826 : ,END,. 004827 : PR/TIMER:,NAME,. 004828 : C 004829 : C***** БYДИЛЬHИKИ , ПPOBEPKИ ГOTOBHOCTEЙ 004830 : C PAБOTAET OT "ITIMEB10" 004831 : C 004832 : REACT:,EQU,763B 004833 : C 004834 : *ИПД:LC,BLOCK,XNF(9),Ш/FULL(27),PRTFLAG 004835 : *ИПK1:LC,BLOCK,PRTSTAT 004836 : NMAT1:,WEQ,XNF 004837 : *YCЫ:LC,BLOCK,(1),RDSCAL 004838 : ДHЗ:,LC,1 004839 : MSTART:,LC,1 004840 : NSTAJOB:,LC,1 004841 : ABTIME:LC,BLOCK,(1),NINT 004842 : *SWCMN:LC,BLOCK,(5),LOWJOB(2),NOLOW 004843 : SCALES:LC,BLOCK,(3),STCLTA(4),SCWPERF 004844 : NDIV:LC,BLOCK,(1),BR/PERF 004845 : CONTIME:LC,BLOCK,(4),BEGUNIT(8),TMTEC(2) 004846 : KOHK:,LC,1 004847 : БAЗAПPИЗ:LC,BLOCK,(7),ЗBЗAHЯTA(12),BYHEPAБ 004848 : ,CONT,(6) 004849 : NRP:,P/P,(NRES71)1024 004850 : ANRP:,P*P,(NRP)1024 004851 : RNR71:,EQU,NRES71-ANRP 004852 : TPCHEK:,SUBP, 004853 : DESCR:,EQU,NRTABL+NRP 004854 : C 004855 : TYP/PL:,SUBP, 004856 : RETURN:,SUBP,. 004857 : NEWTA:,SUBP,. 004858 : STARTJOB:,SUBP, 004859 : COБЫTИE :,SUBP, 004860 : ЗAПYCK :,SUBP, 004861 : ПEPФOPAЦ:,SUBP,. 004862 : NRTABL:,SUBP,. 004863 : NRES71:,SUBP,. 004864 : MPX*TIM:,SUBP, 004865 : ПPOB BY:,SUBP, 004866 : ПPOB MЛ :,SUBP, 004867 : ПPOB MБ:,SUBP, 004868 : C 004869 : FULWOR:,LC,1 004870 : C77:,LC,1 004871 : C37:,LC,1 004872 : C7:,LC,1 004873 : B30/16:LC,BLOCK,MSHIFR 004874 : *CB:LC,BLOCK,(13),I0 004875 : B16/1:,LC,1 004876 : C 004877 : *542:B,BLOCK,ASTIME,MASTIME 004878 : *677:B,BLOCK,BITS(28),B21(17),B4(3),C1 004879 : BITOVP:,EQU,B21 004880 : C 004881 : C======== 004882 : C 004883 : ,XTA,NINT 004884 : ,AAX,C7 004885 : ,ATI,14 004886 : 14,UJ,SW*PHASE 004887 : SW*PHASE:,BSS, 004888 : :,XTA,ДHЗ 004889 : ,UJ,PHA*0 004890 : :13,VTM,PHA*1 004891 : ,UJ,ПPOB MБ 004892 : :,XTA,REACT 004893 : ,UJ,PHA*2 004894 : :14,VTM,-1 004895 : ,UJ,PHA*3 004896 : :14,VTM,BEGUNIT-TMTEC 004897 : ,UJ,PHA*4 004898 : :,XTA,NINT 004899 : ,UJ,PHA*5 004900 : :13,VTM,PHA*6 004901 : ,UJ,ПPOB BY 004902 : :,XTA,MASTIME 004903 : ,UZA,PHA*7 004904 : C----- KOPPEKTИPOBKA BPEMEHИ 004905 : ,EXT,4175B 004906 : ,AAX,B16/1 004907 : ,ASN,64-24 004908 : ,ATX,ASTIME 004909 : ,EXT,4176B 004910 : ,AOX,ASTIME 004911 : ,AOX,I0 004912 : ,A*X,=R1.0E-6 004913 : ,ATX,ASTIME 004914 : ,UJ,PHA*7 004915 : C 004916 : C===== 0-Я ФAЗA ПPEPЫBAHИЙ 004917 : PHA*0:,BSS, 004918 : ,ATI,13. 004919 : ,XTA,Ш/FULL 004920 : 13,AAX,BITS 004921 : ,UZA,DISP 004922 : 13,XTA,PRTSTAT-NMAT1. 004923 : ,AAX,C77 004924 : ,ASN,64-6 004925 : 13,ARX,PRTSTAT-NMAT1 004926 : 13,ATX,PRTSTAT-NMAT1 004927 : ,AAX,BITOVP 004928 : ,U1A,OVERFLOW 004929 : 13,XTA,PRTSTAT-NMAT1 004930 : ,AAX,=3 000000 004931 : ,AEX,=3 000000 004932 : ,U1A,DISP 004933 : ,XTA,ДHЗ 004934 : ,AEX,NOLOW 004935 : ,UZA,DISP 004936 : ,XTA, 004937 : ,ATX,NOLOW 004938 : DISP:,BSS,. 004939 : C..... ПPOBEPKA ЗAKAЗA HA ЗAПYCK ЗAДAЧИ 004940 : ,XTA,MSTART. 004941 : ,UZA,RETURN 004942 : ,ATX,NSTAJOB 004943 : ,XTA,. 004944 : ,ATX,MSTART. 004945 : ,UJ,STARTJOB. 004946 : OVERFLOW:,BSS, 004947 : ,ATX,PRTFLAG 004948 : ,XTA,ДHЗ 004949 : ,AEX,LOWJOB 004950 : ,U1A,TO*NEWTA 004951 : ,XTA,ДHЗ 004952 : ,ATX,NOLOW 004953 : ,UJ,TO*NEWTA 004954 : C 004955 : C===== 1-Я ФAЗA ПPEPЫBAHИЙ 004956 : PHA*1:,BSS, 004957 : 13,VTM,RETURN 004958 : ,UJ,ПPOB MЛ 004959 : C 004960 : C===== 2-Я ФAЗA ПPEPЫBAHИЙ 004961 : C 004962 : PHA*2:,BSS, 004963 : ,ATI,14 004964 : ,UJ,MPX*TIM.OTTYДA ПO И14 004965 : C 004966 : C===== 3-Я ФAЗA ПPEPЫBAHИЙ 004967 : PHA*3:14,XTA,BR/PERF 004968 : ,UZA,EL1 004969 : ,EXT,4031B.- AЦПY 004970 : 14,V1M,CHR.-> ДA 004971 : :,EXT,4102B.ПИ/ПЛ 004972 : ,AEX,FULWOR 004973 : CHR:14,AAX,BR/PERF.ГOTOBO 004974 : 14,AEX,BR/PERF 004975 : ,UZA,EL1.HИKTO HE ГOTOB 004976 : ,XTA,RDSCAL.OTKPЫTИE 004977 : 14,AOX,SCWPERF.ЖДYЩИX 004978 : ,ATX,RDSCAL.ЗAДAЧ 004979 : ,XTA, 004980 : 14,ATX,SCWPERF 004981 : 14,ATX,BR/PERF 004982 : ,UJ,TO*NEWTA 004983 : EL1:14,VLM,PHA*3 004984 : ,UJ,RETURN 004985 : C 004986 : C===== 4-Я ФAЗA ПPEPЫBAHИЙ 004987 : PHA*4:14,XTA,TMTEC 004988 : ,ATI,13 004989 : 13,U1A, 004990 : TIME10:,ENTRY, 004991 : 14,VLM,PHA*4 004992 : ,UJ,RETURN 004993 : C 004994 : C===== 5-Я ФAЗA ПPEPЫBAHИЙ 004995 : PHA*5:,BSS, 004996 : 6,IFNE,FREQ,150 004997 : 5,IFNE,FREQ,600 004998 : ,AAX,B4 004999 : ,UZA,HE COБ 005000 : ,XTA,NINT 005001 : ,ASN,64+4 005002 : 1,ELSE, 005003 : ,ASN,64+3 005004 : ,AAX,C37 005005 : ,ATI,13 005006 : 13,XTA,*YCЫ+16 005007 : ,AAX,MSHIFR 005008 : ,U1A,HA COБ 005009 : ,CALL,CHKTIMER 005010 : HE COБ:,BSS, 005011 : ,XTA,7 005012 : ,AEX,KOПИЯTP7 005013 : ,UZA,RETURN 005014 : ,XTA,7 005015 : ,ATX,KOПИЯTP7 005016 : ,XTA,RDSCAL 005017 : ,AOX,STCLTA 005018 : ,ATX,RDSCAL 005019 : ,XTA, 005020 : ,ATX,STCLTA 005021 : TO*NEWTA:,BSS, 005022 : ,XTA,RDSCAL 005023 : ,ASN,64+25 005024 : ,U1A,RETURN 005025 : ,UJ,NEWTA 005026 : HA COБ:,BSS, 005027 : 13,XTA,*YCЫ+16 005028 : ,AEX, 005029 : ,XTA,INF 005030 : ,UJ,COБЫTИE 005031 : INF:4,, 005032 : ,Z00,HE COБ 005033 : C 005034 : C===== 6-Я ФAЗA ПPEPЫBAHИЙ 005035 : PHA*6:,BSS, 005036 : ,XTA,TYP/PL+1.ABT.ЗAПYCK 005037 : ,AAX,C1 005038 : ,UZA,RETURN.TOЛЬKO ПPИKAЗ 005039 : ,XTA,ЗBЗAHЯTA 005040 : ,UZA,RETURN.HET ЗAД.BB. 005041 : ,XTA,BYHEPAБ 005042 : ,UZA,RETURN.BY PAБOTAET 005043 : ,XTA,KOHK 005044 : ,U1A,RETURN.ПPOГP.CБOЙ YBBK 005045 : ,EXT,4102B.ГOTOBHOCTЬ 005046 : ,AAX,=42000000 005047 : ,AEX,=42000000 005048 : ,U1A,ЗAПYCK 005049 : ,UJ,RETURN 005050 : C 005051 : C===== 7-Я ФAЗA ПPEPЫBAHИЙ 005052 : PHA*7:,BSS, 005053 : ,XTA,DESCR 005054 : ,AAX,C37 005055 : ,UZA,RETURN 005056 : ,ASN,64-10 005057 : ,ATI,13 005058 : ,XTA,RNR71 005059 : ,ASN,64+15 005060 : ,UZA,RETURN 005061 : 13,UTM,ПEPФOPAЦ-ANRP 005062 : 13,UJ,TPCHEK-ПEPФOPAЦ 005063 : C 005064 : KOПИЯTP7:,BSS,1 005065 : ,END, 005066 : ITIMEB10:,NAME, 005067 : C 005068 : C***** ПPEPЫBAHИЯ ПO ГPП-10 ( FREQ>500 ) 005069 : C ИЛИ ПO ГPП-40 ( FREQ<500 ) 005070 : C 005071 : *542:B,BLOCK,ASTIME,MASTIME 005072 : C 005073 : *YCЫ:LC,BLOCK,ГYC 005074 : BISTIME:,EQU,110B 005075 : ABTIME:LC,BLOCK,(1),NINT 005076 : *ЧACTOTA:1,IFEQ,FREQ,150 005077 : SOT:,EQU,=R6.6666666666E-3 005078 : *ЧACTOTA:1,IFEQ,FREQ,300 005079 : SOT:,EQU,=R3.3333333333E-3 005080 : *ЧACTOTA:1,IFEQ,FREQ,600 005081 : SOT:,EQU,=R6.6666666666E-3 005082 : *ЧACTOTA:1,IFEQ,FREQ,1200 005083 : SOT:,EQU,=R3.3333333333E-3 005084 : REWINDSC:LC,BLOCK,(7),ДOЛБEЖ,PEЖPAЗ 005085 : ,CONT,TIME*ENT 005086 : PR/TIMER:,SUBP, 005087 : TIM*TERM:,SUBP, 005088 : B30/16:LC,BLOCK,MSHIFR 005089 : C3:,LC,1 005090 : *701:B,BLOCK,BIT47,BIT46(44) 005091 : ,CONT,BIT2,BIT1 005092 : C 005093 : C***** KOPPEKTИPOBKA BPEMEH 005094 : C***** PAЗMETKA , TEPM-ЗAПYCKИ , ... 005095 : ,NTR,2 005096 : C----- BPEMEHA HA ЗAДAЧY 005097 : ,XTA,ГYC 005098 : ,ATI,14 005099 : ,AAX,MSHIFR 005100 : ,UZA,NO MATH 005101 : 14,XTA,BISTIME 005102 : ,A+X,SOT 005103 : 14,ATX,BISTIME.KOMMEP.BPEMЯ 005104 : NO MATH:,BSS, 005105 : 14,XTA,-1 005106 : ,A+X,SOT 005107 : 14,ATX,-1.CЧET.BPEMЯ 005108 : C----- ДИCПETЧEPCKИE BPEMEHA 005109 : ,XTA,ABTIME 005110 : ,A+X,SOT 005111 : ,ATX,ABTIME 005112 : ,XTA,ASTIME 005113 : ,A+X,SOT 005114 : TO AST:,ATX,ASTIME.ACTP.BPEMЯ 005115 : ,XTA,NINT 005116 : ,ARX,BIT1 005117 : ,ATX,NINT 005118 : 3,IFNE,FREQ,150 005119 : 2,IFNE,FREQ,600 005120 : ,AAX,BIT1 005121 : ,U1A,SWOR 005122 : C----- ПOPAБOTAEM ДЛЯ PAЗMETKИ 005123 : ,WTC,PEЖPAЗ 005124 : ,UJ,SWOR 005125 : C--- 005126 : ПPOДOЛБ:,A-X,=R6.6666666667E-3 005127 : ,ATX,ДOЛБEЖ 005128 : ,UZA,SWOR 005129 : ,XTA,BIT2 005130 : C--- 005131 : HAЧДOЛБ:,EXT,141B 005132 : ,XTA,BIT1 005133 : ЗAДEPЖ:,ARX,PEЖPAЗ 005134 : ,ATX,PEЖPAЗ 005135 : C--- 005136 : SWOR:14,VTM,PR/TIMER 005137 : ,UJ,TIM*TERM 005138 : :,XTA,BIT47 005139 : ,UJ,ЗAДEPЖ.MЛ 005140 : :,XTA,C3.HAЧAЛO 005141 : ,UJ,HAЧДOЛБ.PAЗMETKИ 005142 : :,XTA,ДOЛБEЖ 005143 : ,UJ,ПPOДOЛБ.BЫДEPЖKA 005144 : :,XTA,BIT46 005145 : ,UJ,ЗAДEPЖ.60 MCEK 005146 : :,XTA, 005147 : ,ATX,PEЖPAЗ 005148 : 15,VTM,SWOR.BOЗBPAT OT ДЯДИ 005149 : ,WTC,TIME*ENT.BXOД ПO 005150 : 13,VTM,.БYДИЛЬHИKY 005151 : 13,UJ,.ПOXOД 005152 : ,END, 005153 : PROGINT:,NAME, 005154 : C 005155 : C***** O Б P A Б O T K A 005156 : C***** ПPOГPAMMHO-ИMMИTИPYEMЫX ПPEPЫBAHИЙ 005157 : C 005158 : C PP.48 - KOMAHДA OTЛAДЧИKA "ШAГ" 005159 : C 47 - ЗAПYCK "CIO*TL" 005160 : C 46 - PEЗEPB 005161 : C 45 - ЗAПYCK ЗAДAЧИ "TTTASK" 005162 : C 44 - ЗAПYCK "OPERTERM" 005163 : C 43 - ЗAПYCK "TTANAL" 005164 : C 005165 : *YCЫ:LC,BLOCK,(1),RDSCAL(3),PPIR,MPPIR 005166 : *TLBUFOP:LC,BLOCK,BUSYSC 005167 : C 005168 : OCT67:,SUBP, 005169 : CIO*TL:,SUBP, 005170 : RETURN:,SUBP, 005171 : NEWTA:,SUBP, 005172 : TTENTRY:,SUBP, 005173 : SW INT:,SUBP, 005174 : PRT MASK:,EQU,SW INT-1 005175 : C 005176 : C77777:,LC,1 005177 : *700:B,BLOCK,B48(2) 005178 : ,CONT,B46(8),B38(32),B6 005179 : B*OPT:,EQU,B46 005180 : B*TTT:,EQU,B38 005181 : C 005182 : C======== 005183 : C 005184 : ,XTA,PPIR 005185 : ,AAX,MPPIR 005186 : ,UZA,RETURN.= HET ПPEPЫB. 005187 : ,ANX,C77777 005188 : ,ATI,14 005189 : 14,XTA,B48 005190 : ,AEX,PPIR 005191 : ,ATX,PPIR 005192 : ,AAX,MPPIR 005193 : 14,UZA,SWITCH 005194 : C 005195 : C----- ECTЬ EЩE ГOTOBЫE ПPEPЫBAHИЯ 005196 : C----- = ПOДЗAПYCTИMCЯ = 005197 : C 005198 : ,XTA,B6 005199 : ,EXT,31B 005200 : 14,UJ,SWITCH 005201 : C 005202 : C----- ПEPEKЛЮЧATEЛЬ ПPИЧИH ПPEPЫBAHИЙ 005203 : C 005204 : SWITCH:,BSS, 005205 : :,ГMAC,XTA 005206 : ,UJ,ШAГ 005207 : :13,VTM,-2.= ЧИCЛO PAБOT 005208 : ,UJ,CIO*TL 005209 : :,33,46 005210 : ,UJ,* 005211 : :,UJ,ACTIV.= TTTASK 005212 : :,XTA,B*OPT.= OPERTERM 005213 : ,UJ,OPERT 005214 : :,UJ,TTENTRY.= TTANAL 005215 : C----- 005216 : OPERT:,AOX,BUSYSC 005217 : ,ATX,BUSYSC 005218 : C----- 005219 : ACTIV:,XTA,B*TTT 005220 : ,AOX,RDSCAL 005221 : ,ATX,RDSCAL 005222 : ,UJ,NEWTA 005223 : C----- 005224 : ШAГ:,ATX,PRT MASK.BOCCTAH. 005225 : ,UJ,OCT67.OБЫЧHOЙ MACKИ 005226 : ,END, 005227 : TERMINAL:,NAME,.25,07.78 005228 : C 005229 : C***** HEPEЗИДEHT PAБOTЫ C TEPMИHAЛAMИ 005230 : C (ЭK-71) 005231 : C 005232 : C===== C T P Y K T Y P Ы : 005233 : C 005234 : C... ИHФ.CЛOBO HA BXOДE : 005235 : C 005236 : C B48/45 - ИP(AИCП) HAЧAЛA 005237 : C B43 = 1 - ПPИЗHAK COSY 005238 : C B42 = 1 - PAБOTA C TEPMИHAЛAMИ 005239 : C B41/40 - TИП PAБOTЫ 005240 : C = 0 - BЫBOД 005241 : C = 1 - BBOД C ПOДCKAЗKOЙ 005242 : C = 2 - 'ЧИCTЫЙ' BBOД 005243 : C = 3 - C П E Ц . Ф Y H K Ц И И 005244 : C B39/25 - AДPEC HAЧAЛA 005245 : C B24 = 1 - COSY = GOST 005246 : C B23/22 - TИП BBOДA И ПOДCKAЗKИ: 005247 : C 0 - OБЫЧHЫЙ BBOД (ПPИ 'ЧИCTOM' 005248 : C BBOДE CTAHД.ПOДCKAЗKA = "?") 005249 : C 1 - ГPYППOBOЙ ПPOЗPAЧHЫЙ BBOД 005250 : C 720 БAЙT, ПOДCK. = "HOME" 005251 : C 2 - BBOД 1440 БAЙT, "HOME" 005252 : C 3 - BBOД 1440 БAЙT, ПOДCK.= ">" 005253 : C B19/16 - N KAHAЛA ЭK71 005254 : C B15 = 1 - BЫBOД HEOБЯЗAT. 005255 : C 005256 : C... TИП CПEЦ.ФYHKЦИИ OПPEДEЛЯETCЯ : 005257 : C AИCП , PP.24,23,21,18 005258 : C XXXXX X X 1 0 : ЗAПPOC TEPMИHAЛA 005259 : C XXXXX X X 1 1 : ЗAПPOC OTЛAДKИ 005260 : C 77777 X X 0 X : BXOД ИЗ ЭK74 005261 : C XXXXX 0 X 0 X : OПPOC KAHAЛA 005262 : C XXXXX 1 1 0 X : ЗAMOPOЗKA MT-KAHAЛA 005263 : C XXXXX 1 0 0 X : PAЗMOPOЗKA 005264 : C 005265 : C... ПPИ OПPOCE KAHAЛA BЫДAEM : 005266 : C 005267 : C 0 - HET MYЛЬTИTAЙПA / KAHAЛA 005268 : C ИHAЧE 005269 : C PP.48/43 - HOMEP ФИЗ.KAHAЛA 005270 : C PP.02/02 - ECTЬ ПEPEБИBKA 005271 : C PP.01/01 - ECTЬ TEPMИHAЛ 005272 : C 005273 : C... CЛOBO OЧEPEДИ (WL1) 005274 : C 005275 : C B48/43 - Д H З 005276 : C B42 - ПPИЗHAK COSY-BЫBOДA 005277 : C B41/40 - TИП PAБOTЫ 005278 : C B39/25 - ИCП.AДPEC HAЧAЛA 005279 : C B24 - COSY = GOST 005280 : C B23/22 - TИП BBOДA И ПOДCKAЗKИ 005281 : C B21 - ПPИЗHAK : 'ЗAKAЗ BЫДAH' 005282 : C B20 - ПPИЗHAK : OБMEH C ЗAKPЫTИEM 005283 : C B19/16 - N KAHAЛA ЭK71 005284 : C B15 - ПPИЗHAK : HEOБЯЗ. BЫBOД 005285 : C B10/01 - N ПOЛЬЗOBATEЛЯ (ПO TPAS) 005286 : C 005287 : C===== 005288 : C 005289 : C----- ПAPAMETPЫ KOЛ-BA MT-KAHAЛOB 005290 : NCH:,EQU,10 005291 : NC1:,EQU,NCH-1 005292 : NC2:,EQU,NCH-2 005293 : NC3:,EQU,NCH-3 005294 : NC*2:,P*P,(NCH) 2 005295 : NC*3:,P*P,(NCH) 3 005296 : C 005297 : C----- OБЩИE ДИCПETЧEPCKИE COMMON 005298 : *ИПД:LC,BLOCK,(1),XNFM(5),XNCM 005299 : NFM:,WEQ,XNFM 005300 : NCM:,WEQ,XNCM 005301 : MOЖHOKAЧ:,EQU,*ИПД+67B 005302 : *ИПK:,LC, 005303 : INFEX:,EQU,*ИПK+NCM 005304 : SCALES:LC,BLOCK,(10),SC/CLJ 005305 : SMASAV:LC,BLOCK,SAVAC(3),SAVI15(2),SAVI13 005306 : *YCЫ:LC,BLOCK,ГYC 005307 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 005308 : WSD:LC,BLOCK,WSD1 005309 : C 005310 : C----- TEPMИHAЛЬHЫE COMMON 005311 : *TLSYS:LC,BLOCK,(1),STATMT 005312 : *TLBUFI:LC,BLOCK,CIN 005313 : *0:,BLOCK,LJOB(2),XNT,OWNER(2) 005314 : ,CONT,(1),STRI 005315 : *TLSTAT:LC,BLOCK,(11),SPEC*CH 005316 : *TLCONST:LC,BLOCK,(12),Z*CIN 005317 : *SCAL71:LC,BLOCK,SC71,REDY71,SCTER 005318 : ,CONT,SCAL67,SCШAГ,SCB71 005319 : ,CONT,REDY/2 005320 : LWL:,EQU,8 005321 : LWL1:,EQU,LWL-1 005322 : *TASK71:LC,BLOCK,WL1(LWL) 005323 : ,CONT,CHAN/J(NC2) 005324 : C 005325 : C----- ИCПOЛЬЗYEMЫE B ИПЗ ЯЧEЙKИ 005326 : *100:B,BLOCK,REGSCAL 005327 : *103:B,BLOCK,BUFS27,M74 005328 : *600:B,BLOCK,IW71,(1),N*TSK,TSK 005329 : ,CONT,(1),BCH,ZBCH 005330 : ,CONT,SAV32(5),SAVI9 005331 : DELT:,EQU,M74-SAV32 005332 : C 005333 : C----- ПOДПPOГPAMMЫ ДИCПETЧEPA 005334 : TTPRINT:,SUBP, 005335 : COБЫTИE:,SUBP, 005336 : OUTMACRO:,SUBP, 005337 : CLANEWTA:,SUBP, 005338 : ERRMACRO:,SUBP, 005339 : NRESOFF :,SUBP, 005340 : NRTERM :,SUBP, 005341 : MACRO71*:,SUBP, 005342 : C 005343 : C----- 0-Й ЛИCT MYЛЬTИTAЙПA 005344 : NPAБЛИCT:LC,BLOCK,PAБЛ 005345 : *67:B,BLOCK,S/BUS 005346 : *640:B,BLOCK,SC ЖДY 005347 : *670:B,BLOCK,JOB(NC*2) 005348 : ,CONT,NUMBUS(NC*3) 005349 : ,CONT,ASTR(NCH) 005350 : *1202:B,BLOCK,ASPBUF(NCH) 005351 : C 005352 : C----- OБЩИE KOHCTAHTЫ 005353 : FULWOR:,LC,1 005354 : B30/16:,LC,1 005355 : C1777:,LC,1 005356 : C377:,LC,1 005357 : *CB:LC,BLOCK,(1),C17 005358 : C14:,LC,1 005359 : *700:B,BLOCK,B48(7),B41(8),B33(8),B25 005360 : ,CONT,B24,B23(2),B21,B20(2) 005361 : ,CONT,B18(3),B15(13),B2,B1 005362 : B/READY:,EQU,B21 005363 : B/INTER:,EQU,B20 005364 : B/OUTPUT:,EQU,B15 005365 : C 005366 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 005367 : C:,EQU,9 005368 : J:,EQU,10 005369 : T:,EQU,11 005370 : S:,EQU,12 005371 : B:,EQU,13 005372 : A:,EQU,14 005373 : C 005374 : C------------------------------------ 005375 : *B:B,REL,* 005376 : C----- 005377 : ,WTC,ГYC 005378 : 15,VTM, 005379 : ,XTS,BITJ 005380 : ,AOX,SCB71.ЗAHЯTOCTЬ 005381 : ,ATX,SCB71. ЭK71 005382 : ,XTA,ZBITJ 005383 : ,AAX,MOЖHOKAЧ 005384 : ,STX,MOЖHOKAЧ 005385 : ,UZA,ENTRY/2.= ПOBT.BXOД 005386 : C..... YПPЯTЫBAHИE И13 , И15 005387 : ,XTS,SAVI15 005388 : ,ASN,64-15 005389 : ,AEX,SAVI13 005390 : ,AAX,B30/16 005391 : ,AEX,SAVI13 005392 : 15,STX,M74-1 005393 : C..... ПOЛYЧEHИE AИCП HAЧAЛA 005394 : ,ASN,64+44 005395 : ,ATI,14 005396 : ,AEX,C17 005397 : ,UZA,IND15 005398 : ,AEX,B2 005399 : ,UZA,IND13 005400 : 14,ITA, 005401 : ,ATX,SAVI15 005402 : IND15:,UTC,SAVI15-SAVI13 005403 : IND13:,XTA,SAVI13 005404 : ,ASN,64-24 005405 : ,ARX,SAVAC 005406 : C..... ДOOФOPMЛEHИE ЗAKAЗA 005407 : ,AEX,SAVAC 005408 : ,AAX,B39/25 005409 : ,AEX,SAVAC 005410 : ,APX,MSK1 005411 : ,AUX,MSK2 005412 : ,XTS,ДHЗ 005413 : ,ASN,64-42 005414 : 15,AOX, 005415 : ,WTC,ДHЗ 005416 : ,XTS,INFEX-NFM 005417 : ,AAX,C1777 005418 : 15,AOX, 005419 : 15,ATX,IW71 005420 : C..... ДOП.YПPЯTЫBAHИE PEГИCTPOB 005421 : 14,VJM,SAV*IR 005422 : C----- 005423 : ENTRY/2:15,XTA,IW71 005424 : ,AAX,B41/40 005425 : ,AEX,B41/40 005426 : ,UZA,SPEC FUN.-> CПEЦ.ФYHKЦИИ 005427 : 15,XTA,IW71 005428 : ,UZA,PROCESS.-> ПPOB.KO 005429 : ,AAX,C1777 005430 : ,UZA,HE ЗAK.-> HE ЗAKAЗAH 005431 : C----- ПOИCK MECTA B OЧEPEДИ ЗAKAЗOB 005432 : 14,VTM,-LWL1 005433 : CH*T:14,XTA,WL1+LWL1 005434 : ,UZA,TASK ON 005435 : 14,VLM,CH*T 005436 : ,UJ,CLOSE J 005437 : C----- ПPИEM ЗAKAЗA B OБCЛYЖИBAHИE 005438 : TASK ON:14,UTM,LWL 005439 : 15,XTA,IW71 005440 : ,AAX,Z/READY 005441 : 14,ATX,WL1-1 005442 : ,XTA, 005443 : 15,ATX,IW71 005444 : ,ITA,14 005445 : 15,ATX,N*TSK 005446 : C 005447 : C----- OCHOBHAЯ OБPAБOTKA ЗAKAЗA 005448 : PROCESS:,BSS, 005449 : ,24,3 005450 : 15,XTA,N*TSK 005451 : ,UZA,R*MAC 005452 : ,ATI,J 005453 : :,24,2003B 005454 : J,XTA,WL1-1 005455 : T,VJM,SE*CH.=ПOИCK KAHAЛA= 005456 : ,UZA,CLOSEJ.-> EГO HET 005457 : C----- OБCЛYЖИBAHИE ЗAKAЗA B MT-KAHAЛE 005458 : ,XTA,REDY71 005459 : ,AOX,REDY/2 005460 : 15,AAX,BCH 005461 : ,UZA,CLOSE C.-> KAHAЛ ЗAHЯT 005462 : ,AAX,SCTER 005463 : ,UZA,NO TER.-> HET "TEP" 005464 : C----- CTAДИЯ BЫПOЛHEHИЯ ЗAKAЗA 005465 : J,XTA,WL1-1 005466 : ,ASN,64+24 005467 : ,ATI,A 005468 : T,VTM,1-24 005469 : J,XTA,WL1-1 005470 : ,AAX,B/READY 005471 : S,UTM,STRI-LJOB 005472 : ,U1A,KOH OБM 005473 : C----- ИHИЦИAЛИЗAЦИЯ OБMEHA 005474 : S,XTA,LJOB-STRI 005475 : ,AAX,B25 005476 : ,U1A,NO TER. - ИДET BBOД 005477 : ,XTA,ZB42*40.ЧTOБЫ HAM 005478 : S,AAX,LJOB-STRI.HE ИCПOPTИЛИ 005479 : S,ATX,LJOB-STRI. БYФEP 005480 : ,XTA, 005481 : Z*S:T,UTC,23 005482 : S,ATX, 005483 : T,VLM,Z*S 005484 : ,XTA,S*M1 005485 : S,ATX,-1 005486 : T,VTM,1-23 005487 : J,XTA,WL1-1 005488 : ,AAX,B41 005489 : ,UZA,B CTPOKY 005490 : J,XTA,WL1-1 005491 : ,AAX,B23/22 005492 : ,ACX, 005493 : ,ATI,T 005494 : T,XTA,S*M1+1.CTAHДAPTHOE 005495 : S,ATX,-1.ПPИГЛAШEHИE 005496 : ,UJ,ЗAПYCK 005497 : C..... ПEPEПИCЬ BЫДABAEMOГO B CTPOKY 005498 : BCTPOKY:,BSS, 005499 : 15,WTC,BUFS27 005500 : ,24, 005501 : T,UTC,22 005502 : A,XTA, 005503 : ,24,3 005504 : T,UTC,22 005505 : S,ATX, 005506 : ,AAX,C377 005507 : ,U1A,ETRAN 005508 : J,XTA,WL1-1.B ГOCT'E 005509 : ,AAX,B24."0" - ЗHAЧAЩИЙ 005510 : ,UZA,ЗAПYCK.CИMBOЛ ! 005511 : E TRAN:,BSS, 005512 : T,VLM,BCTPOKY 005513 : S,AEX,22 005514 : S,ATX,22 005515 : C----- ФOPMИPOBAHИE 'JOB' ДЛЯ MT 005516 : ЗAПYCK:,BSS, 005517 : ,24,2003B 005518 : J,XTA,WL1-1 005519 : ,AAX,B23/22 005520 : ,UZA,NORM 005521 : C----- ЗAKAЗ HA ГPYППOBOЙ BBOД 005522 : ,AAX,B23 005523 : ,ASN,64+22 005524 : ,ATI,T 005525 : C,XTA,ASPBUF 005526 : ,AAX,C1777 005527 : T,AOX,CAL*STR 005528 : C,ATX,ASPBUF 005529 : ,XTA,IW/BIG 005530 : ,UJ,TO JOB 005531 : C----- OБЫЧHЫЙ BBOД/BЫBOД 005532 : NORM:,BSS, 005533 : J,XTA,WL1-1 005534 : ,APX,B42*24 005535 : ,ASN,64+18 005536 : ,ARX,IW/OUT 005537 : TO JOB:,BSS, 005538 : C,ARX,ASTR 005539 : C,ATX,JOB.JOB = ГOTOB 005540 : 15,XTA,BCH 005541 : ,AOX,SC71 005542 : ,ATX,SC71 005543 : J,XTA,WL1-1 005544 : ,AOX,B/READY.- ЗAKAЗ BЫДAH 005545 : J,ATX,WL1-1 005546 : C----- YБEPEM ГOTOBHOCTЬ ЭK71 005547 : 15,XTA,ZBCH 005548 : ,AAX,REDY71 005549 : ,ATX,REDY71 005550 : 15,XTA,ZBCH 005551 : ,AAX,REDY/2 005552 : ,ATX,REDY/2 005553 : C----- YБEPEM ЗAHЯTOCTЬ CTPOЧHИKA 005554 : 15,XTA,ZBCH 005555 : ,WTC,PAБЛ 005556 : ,AAX,S/BUS 005557 : ,WTC,PAБЛ 005558 : ,ATX,S/BUS 005559 : C----- ПEPEДAДИM ЗAKAЗ "VALERINE" 005560 : ,ITA,B 005561 : ,ARX,TO*VR 005562 : ,ATX,SAVAC 005563 : ,XTA,STATMT 005564 : ,ASN,64+42 005565 : ,ATI,14 005566 : 14,XTA,*YCЫ 005567 : ,AEX, 005568 : ,XTA,SAVAC 005569 : ,UJ,COБЫTИE 005570 : TO*VR:,010, 005571 : ,Z00,CLOSEC-*B 005572 : C 005573 : C----- OБPAБOTKA ЗAKOHЧИBШEГOCЯ OБMEHA 005574 : KOH OБM:,BSS, 005575 : J,XTA,WL1-1 005576 : ,AAX,B41/40 005577 : ,UZA,ENDEXCH.БЫЛ BЫBOД 005578 : 15,XTA,BCH 005579 : ,AAX,REDY/2 005580 : ,UZA,EJ1.OБЫЧH.BBOД 005581 : ,AEX,REDY/2 005582 : ,ATX,REDY/2 005583 : J,XTA,WL1-1 005584 : ,ARX,=:000 00030 005585 : J,ATX,WL1-1 005586 : C----- ПEPEПИCЬ ИЗ ЗAПACHOГO БYФEPA 005587 : C,XTA,ASPBUF 005588 : ,ARX,PAБЛ 005589 : ,ATI,S 005590 : EJ 0:,BSS, 005591 : S,XTA, 005592 : 15,WTC,BUFS27 005593 : :,24, 005594 : A,ATX, 005595 : :,24,3 005596 : S,UTM,1 005597 : A,UTM,1 005598 : T,VLM,EJ 0 005599 : ,UJ,PROCESS 005600 : C----- ПEPEПИCЬ BBEДEHHOЙ CTPOKИ 005601 : EJ 1:,BSS, 005602 : S,XTA, 005603 : 15,WTC,BUFS27 005604 : :,24, 005605 : A,ATX, 005606 : :,24,3 005607 : ,AAX,C377 005608 : ,UZA,ENDEXCH 005609 : S,UTM,1 005610 : A,UTM,1 005611 : T,VLM,EJ 1 005612 : END EXCH:,BSS, 005613 : ,24,2003B 005614 : 15,XTA,ZBCH 005615 : ,AAX,SC71 005616 : ,ATX,SC71 005617 : OЧ/XOP:,BSS, 005618 : ,XTA, 005619 : J,ATX,WL1-1 005620 : 15,ATX,N*TSK 005621 : ,ITA,B 005622 : ,ARX,Ш/COБ 005623 : ,ATX,SAVAC 005624 : ,XTA,ГYC 005625 : ,AEX, 005626 : ,XTA,SAVAC 005627 : ,UJ,COБЫTИE 005628 : Ш/COБ:1,, 005629 : ,Z00,R*MAC-*B 005630 : R*MAC:,BSS, 005631 : C----- BOCCTAHOBЛEHИE PEГИCTPOB 005632 : 15,UTM,SAVI9+1 005633 : 15,XTA, 005634 : ,STI,9 005635 : ,STI,10 005636 : ,STI,11 005637 : ,ATI,12 005638 : 15,XTA,-2 005639 : ,ATI,32B 005640 : ,ITA,B 005641 : ,ARX,NROF 1 005642 : ,UJ,NRESOFF 005643 : NROF 1:,Z00,NRTERM 005644 : ,Z00,RET1-*B 005645 : RET1:,BSS, 005646 : C----- BOЗBPAT ПOД ЭKCTPAKOД 005647 : 15,XTA, 005648 : ,ATX,SAVI13 005649 : ,ASN,64+15 005650 : ,ATX,SAVI15 005651 : ,WTC,ГYC 005652 : ,XTA,BUFS27 005653 : ,ATI,27B 005654 : ,UJ,OUTMACRO 005655 : C----- ЗAKPЫTИE ЗAДAЧИ ПO OЖИДAHИЮ COБЫTИЙ 005656 : NO TER:,BSS, 005657 : J,XTA,WL1-1 005658 : ,AAX,B41/40 005659 : ,UZA,CLOSE C.-> BЫBOД 005660 : J,XTA,WL1-1 005661 : ,AAX,Z/READY 005662 : J,ATX,WL1-1 005663 : CLOSE C:,24,2003B 005664 : ,ITA,C 005665 : ,AAX,C1777 005666 : ,ATI,C 005667 : ,XTA,BITJ 005668 : C,ATX,CHAN/J-2 005669 : ,UJ,CLOSE 005670 : C... ЗAKPЫTИE ПO ЗAHЯTOCTИ KAHAЛA: 005671 : CLOSE J:,BSS, 005672 : ,24,2003B 005673 : J,XTA,WL1-1 005674 : 15,AOX,REGSCAL 005675 : ,AAX,B/OUTPUT 005676 : ,U1A,OЧ/XOP.-> HE OБЯЗ.BЫBOД 005677 : ,XTA,BITJ 005678 : ,AOX,SC/CLJ 005679 : ,ATX,SC/CLJ 005680 : CLOSE:,BSS, 005681 : 14,VTM,0 005682 : ,ITA,B 005683 : ,ARX,NROF 2 005684 : ,UJ,NRESOFF 005685 : NROF 2:,Z00,NRTERM 005686 : ,Z00,RET2-*B 005687 : RET 2:,XTA, 005688 : ,ATX,SAVAC 005689 : 14,VTM,MACRO71* 005690 : 14,MTJ,33B 005691 : 14,VTM,2013B 005692 : 14,MTJ,27B 005693 : ,WTC,ГYC 005694 : ,XTA,BUFS27 005695 : ,AAX,C14 005696 : ,U1A,CLANEWTA.ДИCП.PEЖИM 005697 : ,XTA,BITJ 005698 : ,AOX,MOЖHOKAЧ 005699 : ,ATX,MOЖHOKAЧ 005700 : ,UJ,CLANEWTA 005701 : C 005702 : C===== C П E Ц . Ф Y H K Ц И И 005703 : SPEC FUN:,BSS, 005704 : 15,XTA,IW71 005705 : ,AAX,B21 005706 : ,UZA,OПPOC 005707 : C----- ЗAПPOC KAHAЛA / OTЛAДKИ 005708 : ,WTC,ДHЗ 005709 : ,XTA,INFEX-NFM 005710 : ,U1A,RET/R 005711 : 14,VTM,T/REQ 005712 : ,XTA,ГYC 005713 : ,ASN,64-27 005714 : ,AUX,MSK/TT 005715 : ,AOX,T/TT 005716 : 14,ATX, 005717 : ,ITA,14 005718 : 14,UTM,CLOSEJ-T/REQ 005719 : ,UJ,TTPRINT 005720 : RET/R:,BSS, 005721 : 15,XTA,IW71 005722 : ,AAX,B18 005723 : ,UZA,R*MAC 005724 : C----- ЗAПPOC OTЛAДKИ 005725 : 15,AOX,REGSCAL 005726 : 15,ATX,REGSCAL 005727 : ,XTA,BITJ 005728 : ,AOX,SC ШAГ 005729 : ,ATX,SC ШAГ 005730 : ,XTA,BITJ 005731 : ,AOX,SCAL67 005732 : ,ATX,SCAL67 005733 : ,UJ,R*MAC 005734 : C----- OПPOC / ФИKC. / PACФИKC. 005735 : OПPOC:,BSS, 005736 : 15,XTA,IW71 005737 : T,VJM,SE*CH 005738 : ,UZA,ANSWER.-> HET KAHAЛA 005739 : 15,XTA,IW71 005740 : ,AEX,B39/25 005741 : ,AAX,B39/25 005742 : ,UZA,MAC*74 005743 : C,XTA,NUMBUS 005744 : ,AAX,B/INTER 005745 : ,UZA,OПP 1 005746 : C,AEX,NUMBUS 005747 : C,ATX,NUMBUS 005748 : ,XTA,B2 005749 : OПP 1:,AOX,B1 005750 : ,ATX,SAVAC 005751 : ,ITA,S 005752 : ,ATX,/ADR 005753 : ,ITA,14 005754 : ,ASN,64-42 005755 : ,AOX,SAVAC 005756 : ANSWER:,ATX,SAVAC 005757 : ,UZA,R*MAC 005758 : 15,XTA,IW71 005759 : ,AAX,B24 005760 : ,UZA,R*MAC 005761 : C----- ФИKCAЦИЯ MT-KAHAЛA 005762 : 15,XTA,IW71 005763 : ,AAX,B23 005764 : ,UZA,DEFIX 005765 : 14,XTA,B48-1 005766 : ,AOX,SPEC*CH 005767 : ,ATX,SPEC*CH 005768 : 14,XTA,CIN 005769 : ,AAX,Z*CIN 005770 : ANS/C:14,ATX,CIN 005771 : ,UJ,R*MAC 005772 : C----- PACФИKCAЦИЯ KAHAЛA 005773 : DEFIX:14,XTA,B48-1 005774 : ,AAX,SPEC*CH 005775 : ,UZA,HE ЗAK 005776 : ,AEX,SPEC*CH 005777 : ,ATX,SPEC*CH 005778 : 14,XTA,CIN 005779 : ,AAX,Z*CIN 005780 : ,AOX,/ADR 005781 : ,AOX,B33 005782 : ,UJ,ANS/C 005783 : C 005784 : C===== BXOД : "KOHEЦ ЗAДAЧИ" 005785 : MAC*74:,WTC,PAБЛ 005786 : ,XTA,SC ЖДY 005787 : 15,AAX,ZBCH 005788 : ,WTC,PAБЛ 005789 : ,ATX,SC ЖДY 005790 : ,XTA,Z48/43 005791 : S,AAX,OWNER 005792 : S,ATX,OWNER 005793 : ,XTA,ZBITJ 005794 : ,AAX,SCB71 005795 : ,ATX,SCB71 005796 : ,ITA,C 005797 : ,AAX,C1777 005798 : ,ATI,C 005799 : ,XTA, 005800 : C,ATX,CHAN/J-2 005801 : ,XTA,SC TER 005802 : 15,AAX,BCH 005803 : ,UZA,CLE*TA 005804 : 15,XTA,ZBCH 005805 : ,AAX,SC71 005806 : ,ATX,SC71 005807 : CLE*TA:15,XTA,N*TSK 005808 : ,UZA,R*MAC 005809 : ,ATI,J 005810 : ,XTA, 005811 : J,ATX,WL1-1 005812 : 15,ATX,N*TSK 005813 : ,UJ,R*MAC 005814 : C 005815 : C----- П / П : "ПOИCK KAHAЛA" 005816 : SE*CH:,BSS, 005817 : 15,ATX,TSK 005818 : ,XTA,STATMT 005819 : ,ASN,64+42 005820 : ,UZA,SE*NO 005821 : C,VTM,-NC3 005822 : SEC1:,WTC,PAБЛ 005823 : C,XTA,NUMBUS+NC1 005824 : 15,AEX,TSK 005825 : ,AAX,=17 01777 005826 : ,UZA,SEC2 005827 : C,VLM,SEC1 005828 : SE*NO:,XTA, 005829 : T,UJ, 005830 : SEC2:C,XTA,B48+NC1 005831 : 15,ATX,BCH 005832 : ,AEX,FULWOR 005833 : 15,ATX,ZBCH 005834 : ,WTC,PAБЛ 005835 : C,UTM,NC1 005836 : C,XTA,ASTR 005837 : ,AOX,PAБЛ 005838 : ,ATI,S 005839 : S,UTM,LJOB-STRI 005840 : S,XTA,OWNER 005841 : ,ASN,64+42 005842 : ,UZA,SEC3 005843 : ,AEX,ДHЗ 005844 : ,U1A,SE*NO 005845 : SEC3:,XTA,ДHЗ 005846 : ,ASN,64-42 005847 : S,AOX,OWNER 005848 : S,ATX,OWNER 005849 : S,WTC,XNT 005850 : 14,VTM, 005851 : T,UJ, 005852 : C 005853 : C----- ДOП.YПPЯTЫBAHИE PEГИCTPOB 005854 : SAV*IR:,BSS, 005855 : ,ITA,32B 005856 : 15,UTM,SAV32 005857 : 15,XTS,DELT-1 005858 : ,ITS,12 005859 : ,ITS,11 005860 : ,ITS,10 005861 : ,ITS,9 005862 : ,XTS, 005863 : 15,UTM,-SAV32-6 005864 : 14,UJ, 005865 : C 005866 : C----- ДИAГHOCTИKA : HE ЗAKAЗAH TEPMИHAЛ 005867 : HEЗAK:14,VTM,T/HEЗ 005868 : :,24,2003B 005869 : ,XTA,NROF 3 005870 : ,ATX,WSD1 005871 : 15,XTA,M74 005872 : ,ATI,13 005873 : ,ASN,64+15 005874 : ,ATI,15 005875 : ,XTA,WSD1 005876 : ,UJ,NRESOFF 005877 : NROF 3:,Z00,NRTERM 005878 : ,Z00,ERRMACRO 005879 : C 005880 : C----- K O H C T A H T Ы 005881 : T/HEЗ:,GOST,12HHEЗAK.TEPM.'231' 005882 : T/REQ:,ISO,12HШ10:TEPM?'''''' 005883 : MSK/TT:,GOST,6H077000 005884 : T/TT:,ISO,6HШ00:TE 005885 : IW/OUT:,BSS, 005886 : ,OCT,6053 4100 005 77777 005887 : IW/BIG:,OCT,6053 411 726 5 77777 005888 : B42*24:,OCT,00400000 4 005889 : S*M1:,BSS, 005890 : ,GOST,6H111111 .BЫBOД 005891 : ,GOST,6H111D82.BBOД 005892 : ,GOST,6H1111/2 005893 : ,GOST,6H111Я82 005894 : B39/25:,OCT,00077777 005895 : MSK1:,OCT,01377777 7774 005896 : MSK2:,OCT,00777777 7774 005897 : Z48/43:,LOG,00777777 77777777 005898 : Z/READY:,LOG,77777777 73777777 005899 : B41/40:,OCT,003 005900 : B23/22:,LOG,3000 0000 005901 : ZB42*40:,LOG,7727 7777 7777 7777 005902 : CAL*STR:,OCT,26.5 CTPOK 005903 : ,OCT,14.10 CTPOK 005904 : /ADR:,BSS,1 005905 : ,END, 005906 : TTANAL:,NAME,.07.01.86 005907 : C 005908 : C***** AHAЛИЗATOP ПPИKAЗOB OПEPATOPA 005909 : C 005910 : C----- 005911 : *ИПД:LC,BLOCK, 005912 : ,CONT,XNF(4),XNW(4) 005913 : ,CONT,Ш/CЛYЖ,Ш/FULL,Ш/ПOTOK(21) 005914 : ,CONT,S/BUFPR 005915 : ,CONT,BATCH(7) 005916 : ,CONT,PRIPL/SC(3) 005917 : ,CONT,OUTJOBSC(11) 005918 : ,CONT,ПAPTИЗAH 005919 : NF :,WEQ,XNF 005920 : NЖДY:,WEQ,XNW 005921 : *ИПK1:LC,BLOCK,PRTSTAT 005922 : C----- 005923 : *YCЫ:LC,BLOCK,(1),RDSCAL(2),COMPIR(4) 005924 : ,CONT,STCLTA 005925 : TIME:,EQU,-1 005926 : BISTIME:,EQU,110B 005927 : MAXTIME:,EQU,111B 005928 : PULT:,EQU,113B 005929 : C----- HOMEPA CЛYЖEБHЫX ЗAДAЧ 005930 : PLAN/COD:,EQU,10B.ПЛAHИPOBЩИK 005931 : NBOUT:,EQU,11B.B Ы B O Д 005932 : NDAYF:,EQU,61B.DAY-FILE 005933 : NPAЗM:,EQU,62B.PAЗMETKA 005934 : NCBЯ:,EQU,70B.ЗAДAЧA CBЯЗИ 005935 : NBINP:,EQU,74B.ПAKETHЫЙ BBOД 005936 : NSERV:,EQU,75B.CEPBИC OПEPATOPA 005937 : C----- 005938 : *766:B,BLOCK,DD*D(4) 005939 : TODAY:,LC,2 005940 : *542:B,BLOCK,ASTIME,MASTIME 005941 : ABTIME:,LC,1 005942 : WSD:LC,BLOCK,BUFS(2) 005943 : C----- 005944 : *SWCMN:LC,BLOCK,(4),OPRT 005945 : TTEXT:I,BLOCK,LOWPRT,UPRT,SUPRT 005946 : *STATBUF:LC,BLOCK,MBLO,MOUT 005947 : C----- 005948 : SELECT:,SUBP, 005949 : STATIST:,SUBP,. 005950 : COБЫTИE:,SUBP, 005951 : TTPRINT:,SUBP, 005952 : STOP:,SUBP, 005953 : SWINGRET:,SUBP, 005954 : ISOTOALL:,SUBP, 005955 : C----- 005956 : *436:B,BLOCK,TELIS(2),TLG1(14),TLG2 005957 : *TLSIZE:LC,BLOCK,(1),XNPHCH(2),XNSS 005958 : NSS:,WEQ,XNSS 005959 : NSS*2:,P*P,(NSS) 2 005960 : NSS*3:,P*P,(NSS) 3 005961 : *TLSYS:,LC,NSS*3 005962 : STATMT:,EQU,*TLSYS+1 005963 : CHLINER:,EQU,*TLSYS+2 005964 : REFOP:,EQU,*TLSYS+NSS*2 005965 : *TLSTAT:LC,BLOCK,(12),SC*BLOCK 005966 : *TLBUFI:LC,BLOCK,CIN 005967 : *TLBUFOP:LC,BLOCK,(11),SCOP,MAINC 005968 : XNT:,EQU,-4 005969 : C----- 005970 : PLAN/IS:,LC,1.ДHЗ ПЛAHИPOBЩИKA 005971 : NSTAJOB:,LC,1. 005972 : MШ:,LC,1 005973 : FSBASENR:,LC,1 005974 : FFPT:,LC,1 005975 : ADOFACC:LC,BLOCK,(2),CNUMT(2) 005976 : STARTJOB:,SUBP, 005977 : ЗAПYCK:,SUBP, 005978 : STARTFSM:,SUBP, 005979 : EFSMNRS:,SUBP, 005980 : C----- 005981 : TABLEMT:LC,BLOCK,(16),T1MT(32) 005982 : ,CONT,(16),T2MT(32) 005983 : ,CONT,(16),TMT(32) 005984 : STATUSMT:LC,BLOCK,(1),OLD(4),NEW(23) 005985 : ,CONT,ШHГ(4),MISTERX,ЯEЩETYT 005986 : REWINDSC:LC,BLOCK,(2),***C 005987 : LISTSTRA:LC,BLOCK,WL1 005988 : SCALSTRA:LC,BLOCK,(12),SJMT(32) 005989 : CMDREC:LC,BLOCK,(1),BLMD,SMWR 005990 : *DISCS:,SUBP, 005991 : MTDISPAC:,SUBP, 005992 : OPENWAIT:,SUBP, 005993 : TOЛЧOK:,SUBP, 005994 : C----- 005995 : FLSTOPCB:,EQU,102B 005996 : *LINKPAR:LC,BLOCK,(1),SC/CONC 005997 : INF7CH:LC,BLOCK,NЗAД,W110,NЗCB,W107(7) 005998 : ,CONT,FBACK,STPLINK,FLACT70 005999 : R37B:,SUBP, 006000 : C----- 006001 : *CB:LC,BLOCK,(6),NUMB(7),I0 006002 : FULWOR:,LC,1 006003 : B30/16:,LC,1 006004 : C7777:,LC,1 006005 : C3777:,LC,1 006006 : C377:,LC,1 006007 : C77:,LC,1 006008 : C37:,LC,1 006009 : C7:,LC,1 006010 : C3:,LC,1 006011 : C----- 006012 : *677:B,BLOCK,BITS 006013 : ,CONT,B48,B47,B46,B45,B44,B43 006014 : ,CONT,B42,B41,B40,B39,B38,B37 006015 : ,CONT,B36,B35,B34,B33,B32,B31 006016 : ,CONT,B30,B29,B28,B27,B26,B25 006017 : ,CONT,B24,B23,B22,B21,B20,B19 006018 : ,CONT,B18,B17,B16,B15,B14,B13 006019 : ,CONT,B12,B11,B10,B9,B8,B7 006020 : ,CONT,B6,B5,B4,B3,B2,B1 006021 : POINT:,EQU,B4 006022 : C----- PAБOЧИE ЯЧEЙKИ 006023 : LWORK:,EQU,11 006024 : WORK:I,BLOCK,FTAP,WS(0),SV,WS1(0),NT 006025 : ,CONT,WS2,SYM,TABL,TN 006026 : ,CONT,PCHAN,LCHAN 006027 : ,CONT,BUFTA,ADR8A 006028 : C----- OБOЗHAЧEHИЯ PEГИCTPOB 006029 : SR:,EQU,2 006030 : L :,EQU,10 006031 : RT:,EQU,11 006032 : J :,EQU,11 006033 : M :,EQU,12 006034 : V3:,EQU,12 006035 : V :,EQU,13 006036 : IB:,EQU,15 006037 : C 006038 : C----- БAЗИPOBAHИE 006039 : B:IB,REL,* 006040 : :,24,3 006041 : ,UJ,COR*DAT 006042 : BEGIN:,BSS, 006043 : C 006044 : C==================================== 006045 : C== A H A Л И З BXOДHOЙ CTPOKИ == 006046 : C==================================== 006047 : C 006048 : ,24,2003B 006049 : ,XTA,SCOP 006050 : ,AAX,B48/25 006051 : ,UZA,NRESRET 006052 : ,ANX, 006053 : ,ATI,14.ФИЗ.N KAHAЛA 006054 : ,ATX,PCHAN 006055 : 14,WTC,CIN 006056 : SR,VTM,6.AДPEC TEKCTA 006057 : SR,MTJ,V.- KOПИЯ 006058 : SR,XTA,XNT 006059 : ,ASN,64+15 006060 : ,ARX,C37 006061 : ,AAX,C37 006062 : ,ATX,LCHAN.ЛOГ.N KAHAЛA 006063 : ,ATI,J 006064 : ,AEX,SCOP 006065 : ,AAX,C7 006066 : 14,AOX,B48-1 006067 : ,AEX,SCOP 006068 : ,ATX,SCOP 006069 : SR,XTA, 006070 : ,UZA,NOTUND.-> ПPEДЫД.ПPИKAЗ 006071 : ,AEX,=6HTEЛ 006072 : ,ASN,64+24 006073 : ,UZA,TEЛ.ПPИKAЗ "TEЛ" 006074 : ,AEX,=6H TEЛ 006075 : ,AEX,=6H MT- 006076 : ,UZA,TEЛ/MT 006077 : ,AEX,=6H MT- 006078 : ,AEX,=6H ЭP- 006079 : ,UZA,TEЛ/ЭP 006080 : ,AEX,=6H ЭP- 006081 : ,AEX,=6H CB- 006082 : ,UZA,TEЛ/CB 006083 : SR,XTA, 006084 : ,ASN,64+32 006085 : ,AAX,C377 006086 : ,ATI,14 006087 : 14,UTM,-75B 006088 : 14,VZM,COБЫT 006089 : 14,UTM,75B-55B 006090 : 14,VZM,COБЫT 006091 : C 006092 : C----- ПEPEKOДИPOBKA COOБЩEHИЯ B TEXT* 006093 : ,XTA, 006094 : ,ATX,BUFTA 006095 : ,ATX,ADR8A 006096 : ,24,3 006097 : MS 1:V,XTA, 006098 : L,VTM,-5 006099 : MS 2:,ASN,64-8 006100 : ,ATX,WS 006101 : ,YTA, 006102 : ,ATI,M 006103 : M,XTA,ISOTOALL 006104 : ,ASN,64+8 006105 : ,AAX,C377 006106 : ,ATX,WS1 006107 : ,ASN,64+6 006108 : ,ATI,M 006109 : ,ASN,64-6 006110 : ,AEX,WS1 006111 : ,ATX,WS1 006112 : M,UJ,TYPE 006113 : C----- ПEPEKЛЮЧATEЛЬ TИПOB CИMBOЛOB 006114 : TYPE:,BSS, 006115 : :,XTA,BUFTA.= KOHEЦ COOБЩ. 006116 : ,UJ,ANAL 006117 : /LET:,XTA,BUFTA.= БYKBA 006118 : ,UJ,LETTER 006119 : :,AAX,C7 006120 : ,UJ,DIGIT 006121 : LETTER:,ASN,64-6 006122 : ,AOX,WS1 006123 : ,ATX,BUFTA 006124 : ,XTA,WS 006125 : L,VLM,MS 2 006126 : V,VLM,MS 1 006127 : DIGIT:,ATX,WS2 006128 : ,XTA,ADR8A 006129 : ,ASN,64-3 006130 : ,AOX,WS2 006131 : ,ATX,ADR8A 006132 : ,UJ,/LET 006133 : C----- ПOЛYЧИЛИ KOHEЦ COOБЩEHИЯ 006134 : ANAL:,BSS, 006135 : ,24,2003B 006136 : ,ATX,BUFS+1 006137 : ,XTA,7 006138 : ,AAX,B32 006139 : ,U1A,SRC*KEY 006140 : C----- ЗAПИШEM B DAY-FILE 006141 : ,XTA,ASTIME 006142 : ,ATX,BUFS 006143 : ,XTA,LCHAN 006144 : ,ASN,64-16 006145 : ,AOX,S/INF 006146 : ,ATX,WS 006147 : ,ITA,IB 006148 : ,ARX,WS 006149 : ,UJ,STATIST 006150 : S/INF:2,Z11,BUFS 006151 : ,Z01,SRC*KEY-B 006152 : SRC*KEY:,BSS, 006153 : C 006154 : C----- ПOИCK KЛЮЧEBOГO CИMBOЛA 006155 : SR,VTM,TABCOM 006156 : V,VTM,-1 006157 : ,24,3 006158 : L2:SR,XTA, 006159 : ,UZA,NOT UND 006160 : L3:V,UTM,1 006161 : ,ATX,TABL 006162 : ,AEX,BUFTA 006163 : ,AAX,C77 006164 : V,UZA,SWITCH 006165 : ,XTA,TABL 006166 : ,ASN,64+6 006167 : ,U1A,L3 006168 : SR,VLM,L2 006169 : C 006170 : C===== ПEPEKЛЮЧATEЛЬ ПPИKAЗOB 006171 : C 006172 : SWITCH:,BSS, 006173 : :,ITA,V3 .ПPИKAЗ ":" 006174 : ,UJ,PRIKAZ0 . 006175 : :SR,VTM,ЗAПYCK.ПPИKAЗ "B" 006176 : ,UJ,ПPOBBOД 006177 : :SR,VTM,STOP.ПPИKAЗ "." 006178 : ,UJ,KILL 006179 : :,UJ,ORD*C.ПPИKAЗ "C" 006180 : :14,VTM,-2.ПPИKAЗ "П" 006181 : ,UJ,П/ANAL 006182 : : ,UJ,JOBTIME .ПPИKAЗ "T" 006183 : : ,XTA,FFPT .ПPИKAЗ "Л" 006184 : ,UJ,PAPERTAP 006185 : : ,UJ,CBBOД .ПPИKAЗ "/" 006186 : : ,UJ,INPUT.ПPИKAЗ "I" 006187 : :,UJ,H/BATCH.ПPИKAЗ "H" 006188 : :13,VTM,K/TEX-H/TEX 006189 : ,UJ,OПOЗH.ПPИKAЗ "O" 006190 : :,UJ,NOTUND.ПPИKAЗ "+" 006191 : :,XTA,BUFTA.ПPИKAЗ "N" 006192 : ,UJ,NEWL 006193 : :,UJ,LISTTOT.ПPИKAЗ "A" 006194 : :,UJ,LINEPR.ПPИKAЗ "Y" 006195 : :,XTA,BUFTA.ПPИKAЗ "P" 006196 : ,UJ,TAPEPR 006197 : :,XTA,BUFTA.ПPИKAЗ "D" 006198 : ,UJ,DATAINP 006199 : :,XTA,BUFTA.ПPИKAЗ "F" 006200 : ,UJ,ORD*F 006201 : : ,UJ,ORD*Б 006202 : C 006203 : C=========================================== 006204 : C== C O O Б Щ E H И Я З A Д A Ч A M == 006205 : C=========================================== 006206 : C 006207 : C----- TEЛEГPAMMA ЗAДAЧE CBЯЗИ 006208 : C (ЛEHИHГPAДCKИЙ BAPИAHT) 006209 : TEЛ/CB:,XTA,NЗCB 006210 : ,UJ,IF/T 006211 : C----- TEЛEГPAMMA ДЛЯ ЭP 006212 : TEЛ/ЭP:,UTC,CHLINER-STATMT 006213 : C----- TEЛEГPAMMA ДЛЯ MT 006214 : TEЛ/MT:,XTA,STATMT 006215 : ,ASN,64+42 006216 : IF/T:,UZA,IABSENT 006217 : ,NTR,3... 006218 : ,ATI,M 006219 : ,X-A,XNW 006220 : 14,VTM,-24 006221 : ,UJ,COБЫT1 006222 : C 006223 : C----- BBEДEHA CTPOKA ДЛЯ ЗAДAЧИ 006224 : COБЫT:,BSS, 006225 : SR,XTA, 006226 : ,ASN,64+40 006227 : 14,VJM,CH*TERM 006228 : ,XTA,WS 006229 : 14,VTM,-16 006230 : COБЫT1:,AOX,=1440 006231 : J,ATX,TELIS 006232 : ,ITA,IB 006233 : ,ARX,I/COБ 006234 : ,ATX,WS 006235 : M,XTA,*YCЫ 006236 : ,AEX, 006237 : ,XTA,WS 006238 : 14,MTJ,M 006239 : ,UJ,COБЫTИE 006240 : I/COБ:,Z04,.= BIT42 006241 : ,Z00,COБ1-B 006242 : COБ 1:14,VTM,NRESRET 006243 : C----- ПEPEПИCЬ CTPOKИ B БYФEP CO CДBИГOM 006244 : MOVE:L,VTM,-13 006245 : ,24,3 006246 : MO 1:L,UTC,13 006247 : SR,XTA, 006248 : ,AAX,C377 006249 : ,UZA,MO 2 006250 : L,VLM,MO 1 006251 : MO 2:,XTA, 006252 : L,VZM,MO 4 006253 : L,UTM,1 006254 : MO 3:L,UTC,13 006255 : SR,ATX, 006256 : L,VLM,MO 3 006257 : MO 4:L,VTM,-12 006258 : J,VZM,MO 5 006259 : ,UTC,TLG2-TLG1 006260 : MO 5:J,VTM,TLG1 006261 : SR,MTJ,V 006262 : MO 6:V,XTA, 006263 : M,ASN,64 006264 : ,ATX,WS 006265 : V,XTA,1 006266 : M,ASN,64 006267 : ,YTA, 006268 : ,AOX,WS 006269 : J,ATX, 006270 : V,UTM,1 006271 : J,UTM,1 006272 : L,VLM,MO 6 006273 : 14,UJ, 006274 : C----- ПPOBEPKA TEPMИHATOPA ЗAДAЧИ 006275 : CH*TERM:,BSS, 006276 : ,AAX,C37 006277 : ,ATX,WS 006278 : ,NTR,3 006279 : ,X-A,XNW 006280 : ,ATI,M 006281 : M,XTA,*YCЫ 006282 : ,AAX,B30/16 006283 : ,UZA,IABSENT 006284 : 14,UJ, 006285 : C 006286 : C=========================================== 006287 : C== B H E Ш H И E Y C T P O Й C T B A == 006288 : C=========================================== 006289 : C 006290 : C***** ПPИKAЗ : "Б" 006291 : ORD*Б:,XTA,BUFTA 006292 : ,ARX,=1010 00 06060606 00 006293 : ,AAX,=4040 77 40404040 77 006294 : ,AEX,=0000 55 00000000 02 006295 : ,U1A,NOT UND 006296 : C 006297 : C--- ПPИKAЗ : MБ 006298 : C 006299 : ,XTA,BUFTA 006300 : ,APX,=:0707 006301 : ,ASN,64+42 006302 : ,ATI,M.N MФ 006303 : ,XTA,BUFTA 006304 : ,ASN,64-18 006305 : ,ATX,BUFTA 006306 : ,XTA,B48 006307 : M,ASN,64-30B 006308 : ,AAX,MISTERX 006309 : ,UZA,HEЛЬЗЯ 006310 : M,XTA,T1MT-30B 006311 : ,ASN,64+42 006312 : ,U1A,HEЛЬЗЯ 006313 : :,24,3 006314 : L,VTM,-3 006315 : C--- 006316 : FORMNB:,ATX,WS 006317 : ,ASN,64-1 006318 : ,ATX,WS1 006319 : ,ASN,64-2 006320 : ,ARX,WS1 006321 : ,ATX,WS.*10 006322 : ,XTA,BUFTA 006323 : ,ASN,64-6 006324 : ,ATX,BUFTA 006325 : ,YTA, 006326 : ,AAX,=17 006327 : ,ARX,WS 006328 : L,VLM,FORMNB 006329 : :,24,2003B 006330 : 5,CALL,MTDISPAC 006331 : ,AAX,C7777 006332 : ,AOX,NOCHECK 006333 : :,24,3 006334 : ,ATX,WS 006335 : 5,VTM,-31 006336 : SNAM:5,XTA,TMT+31 006337 : ,AEX,WS 006338 : ,UZA,YЖEECTЬ 006339 : 5,VLM,SNAM 006340 : ,XTA,WS 006341 : :,24,2003B 006342 : M,ATX,TMT-30B 006343 : 5,CALL,OPENWAIT 006344 : ,UJ,O/KEY 006345 : YЖEECTЬ:,ATX,TTEXT+2 006346 : ,XTA,=6HYЖE EC 006347 : ,ATX,TTEXT 006348 : ,XTA,=6HTЬ '41' 006349 : ,ATX,TTEXT+1 006350 : ,UJ,TO TEL 006351 : C 006352 : C***** ПPИKAЗЫ : . . "O" 006353 : OПOЗH:,BSS, 006354 : RT,VTM,KOPOHO 006355 : ПOП:,XTA,BUFTA 006356 : ,ASN,64+6 006357 : 13,UTC,H/TEX-K/TEX 006358 : ,AEX,K/TEX 006359 : ,AAX,C77 006360 : ,UZA,ПPOBHOM 006361 : 13,VLM,ПOП 006362 : ,XTA,BUFTA 006363 : ,AEX,PANNO 006364 : ,UZA,RMD 006365 : ,UJ,NOTUND 006366 : C****** 006367 : KOPOHO:,BSS, 006368 : ,XTA,BUFTA.OПPEДEЛEHИE : 006369 : ,ASN,64+12.ДИCK / ЛEHTA 006370 : ,AEX,Д/TEX 006371 : ,AAX,C77 006372 : 13,U1A,TOMX.-> ЛEHTA 006373 : 13,WTC,TOMX. 006374 : IB,UJ,.-> ДИCK 006375 : :,UJ,END EXCH.= "KO" 006376 : ,Z00,DENDEXCH-B.= "ДKO" 006377 : :IB,UJ,TONX1-B.= "PO" 006378 : ,Z00,ДHPO-B.= "ДPO" 006379 : TOMX:IB,UJ,TONX1-B.= "HO" 006380 : ,Z00,ДHPO-B.= "ДHO" 006381 : C 006382 : C***** ПPИKAЗЫ : "PO" , "HO" 006383 : TONX1:,BSS, 006384 : ,XTA,MISTERX 006385 : 14,AOX,B48-30B 006386 : 13,VZM,TOMX2 006387 : 14,AEX,B48-30B 006388 : TOMX2:,ATX,MISTERX 006389 : 14,AAX,B48-30B 006390 : ,U1A,BЫX 006391 : 14,XTA,T1MT-30B 006392 : ,ASN,64+42 006393 : ,UIA,BЫX .ЗAHЯTA MЛ - HE ДEPГAEM 006394 : : ,24,2003B 006395 : 2,XTA,B16 006396 : 1,AOX,OLD-3 006397 : 1,ATX,OLD-3 006398 : ,UJ,BЫX 006399 : C 006400 : C***** ПPИKAЗ : "KO" 006401 : ENDEXCH:14,XTA,T1MT-30B 006402 : ,ASN,64+25 006403 : ,AAX,C37 006404 : ,UZA,HEЛЬЗЯ 006405 : 14,XTA,T1MT-30B 006406 : ,AOX,B8 006407 : 14,ATX,T1MT-30B 006408 : ,UJ,BЫX 006409 : C 006410 : C***** ПPИKAЗЫ : "ДPO" , "ДHO" 006411 : ДHPO:,BSS, 006412 : 14,XTA,*DISCS-30B 006413 : ,U1A,HEЛЬЗЯ .HMД B PAБOTE 006414 : ,ITA,14 006415 : ,ASN,64+3 006416 : ,ARX,C3 006417 : ,AAX,B4 006418 : ,U1A,NOTUND 006419 : ,XTA,BLMD 006420 : 14,AOX,B48-30B 006421 : 13,VZM,ДHO 006422 : C***** ПPИKAЗ : "ДPO" 006423 : 14,AEX,B48-30B 006424 : ,ATX,BLMD 006425 : ,XTA,SMWR 006426 : 14,AOX,B48-30B 006427 : ,ATX,SMWR 006428 : ,UJ,BЫX 006429 : C***** ПPИKAЗ : "ДHO" 006430 : ДHO:,ATX,BLMD 006431 : ,UJ,BЫX 006432 : C 006433 : C***** ПPИKAЗ : "ДKO" 006434 : DENDEXCH:,BSS, 006435 : 14,XTA,*DISCS-30B 006436 : ,UZA,HEЛЬЗЯ .MOДYЛЬ ПYCT 006437 : 14,XTA,B16-30B 006438 : ,AOX,CMDREC 006439 : ,ATX,CMDREC 006440 : , UJ,BЫX 006441 : C 006442 : C***** ПPИKAЗЫ : "ПEP" 006443 : C "HA" "ПEP" 006444 : C 006445 : CHANGEMT:,XTA,BUFTA 006446 : ,ASN,64+30.YЖE 006447 : ,U1A,CTOИT .ПEPECTABЛEHA 006448 : ,XTA,ЯEЩETYT 006449 : ,U1A,HEЛЬЗЯ.KOHЧИ C OДHИM 006450 : : ,24,2003B 006451 : 1,XTA,ШHГ-3 006452 : 2,AAX,B8 006453 : ,UZA,HEЛЬЗЯ .MФ = ГOTOB 006454 : 1,XTA,NEW-3 006455 : 2,AAX,B24.HOMEP 006456 : 2,AEX,B24.CTAPOГO MФ 006457 : ,AOX,ADR8A.И ПPИЗHAK 006458 : ,ATX,ЯEЩETYT.ЗAПИCИ 006459 : ,UJ,O/YES .COГЛACHЫ 006460 : CTOИT:,XTA,ЯEЩETYT 006461 : ,UZA,NOTUND .PAHOBATO 006462 : ,ATI,10.CTAPЫЙ MФ 006463 : ,ASN,64+16 006464 : 2,VJM,ASK.HA HOBOM MФ 006465 : 14,MTJ,2 006466 : ,XTA,TABL 006467 : ,ATI,11 006468 : ,ASN,64-42 006469 : ,AUX,KPAKYC.ДЛЯ ИCПPABЛEHИЯ 006470 : ,ATX,FTAP.KYC-OB 006471 : 11,XTA,T1MT-30B 006472 : ,ASN,64+36.A ЛEHTA 006473 : ,UIA,HEЛЬЗЯ .ЗAXBAЧEHA 006474 : 10,XTA,B48-30B 006475 : 11,AOX,B48-30B 006476 : ,AAX,MISTERX.XOTЯ БЫ OДHA 006477 : ,UIA,ИCKYC .HEИMEHOBAHA 006478 : 10,XTA,TMT-30B 006479 : 11,AEX,TMT-30B 006480 : ,UIA,HEЛЬЗЯ ..KOHTPOЛЬ ИMEHИ 006481 : ИCKYC:,BSS, 006482 : 10,XTA,SJMT-30B 006483 : ,UZA,HEЛЬЗЯ .HAC OБMAHYЛИ 006484 : 11,ATX,SJMT-30B 006485 : KYCИKИ: ,UZA,BCEKYCЫ 006486 : ,ANX, 006487 : ,ATI,12 006488 : 12,XTA,WL1-1 006489 : ,AOX,KPAKYC.ПPABKA 006490 : ,AEX,KPAKYC.KYC-OB 006491 : ,AOX,FTAP 006492 : 12,ATX,WL1-1 006493 : 10,XTA,SJMT-30B 006494 : 12,AEX,BITS 006495 : 10,ATX,SJMT-30B.CЛEД. KYC 006496 : ,UJ,KYCИKИ 006497 : BCEKYCЫ:,BSS, 006498 : 10,XTA,T1MT-30B 006499 : 11,ATX,T1MT-30B 006500 : 10,XTA,T2MT-30B 006501 : 11,ATX,T2MT-30B 006502 : ,XTA, 006503 : 10,ATX,T1MT-30B.ЗAMETAEM 006504 : 10,ATX,T2MT-30B.CЛEДЫ 006505 : ,ATX,ЯEЩETYT. MФ 006506 : ,XTA,TПЛOX 006507 : 10,ATX,TMT-30B 006508 : 12,VTM,-1 006509 : CHANBWC:12,XTA,***C 006510 : 10,AAX,B48-10B 006511 : ,UIA,ECHBWC 006512 : 12,XTA,***C 006513 : 10,AOX,B48-10B 006514 : 11,AEX,B48-10B 006515 : 12,ATX,***C 006516 : ECHBWC: ,BSS, 006517 : 12,VLM,CHANBWC 006518 : ,ITA,10 006519 : ,ASN,64+3 006520 : ,ATI,11 006521 : ,ITA,10 006522 : ,AAX,C7 006523 : ,AEX,C7 006524 : ,ATI,12 006525 : 11,XTA,ШHГ-3 006526 : 12,AOX,B8 006527 : 12,AEX,B8 006528 : 11,ATX,ШHГ-3 006529 : 15,MTJ,11 006530 : 5,VJM,TOЛЧOK 006531 : 11,MTJ,15 006532 : ,UJ,O/KEY 006533 : C 006534 : C----- ПPOBEPKA HOMEPA YCTPOЙCTBA 006535 : ПPOBHOM:,XTA,ADR8A 006536 : ,AAX,C77 006537 : ,ATX,TABL 006538 : ,ATI,14 006539 : ,ASN,64+3 006540 : ,ATI,1 006541 : ,ARX,B1 006542 : ,AAX,B3 006543 : ,UZA,NOT UND 006544 : ,ITA,14 006545 : ,AAX,C7 006546 : ,AEX,C7 006547 : ,ATI,2 006548 : RT,UJ, 006549 : C 006550 : C----- ПPOBEPKA ГOTOBHOCTИ 006551 : ASK:,ATX,SV 006552 : ,ITA,2 006553 : ,ATX,TN 006554 : ,XTA,TABL 006555 : ,ASN,64+3 006556 : ,ATI,2 006557 : ,XTA,TABL 006558 : ,AEX,C7 006559 : ,AAX,C7 006560 : ,ATI,14 006561 : : ,24,2003B 006562 : ,ITA,2 006563 : ,ARX,B1 006564 : ,AAX,B3 006565 : ,UIA,ASK2 006566 : 2,XTA,NEW-1 006567 : ,ASN,64+24 006568 : ,ATX,WS2 006569 : ,UJ,ASK3 006570 : ASK2:2,XTA,NEW-3 006571 : ,ATX,WS2 006572 : ASK3:,BSS, 006573 : 14,AAX,B16 006574 : ,UZA,CHW 006575 : 2,VTM,TNR.HET ГOTOBHOCTИ 006576 : TTE:,XTA,TABL. 006577 : ,ASN,64-42. 006578 : ,AUX,MSK1. 006579 : 2,AOX,. 006580 : TTE1:,ATX,TTEXT. 006581 : ,XTA,. 006582 : ,ATX,TTEXT+1. 006583 : ,UJ,TOTEL . 006584 : CHW:,XTA,SV.ПPOBEPЯTЬ ЗП 006585 : ,UZA,EXST . - HET 006586 : ,XTA,WS2 006587 : 14,AAX,B24 006588 : 2,VTM,TNW.HET ЗП 006589 : ,UIA,TTE . 006590 : EXST:,BSS, 006591 : : ,24,3 006592 : ,WTC,TN 006593 : ,UJ, 006594 : C 006595 : C=================================== 006596 : C=== C B Я З H Ы E Д E Л A === 006597 : C=================================== 006598 : C 006599 : C***** ПPИKAЗ : "TEЛ" 006600 : TEЛ:,BSS, 006601 : SR,XTA, 006602 : ,ASN,64+32 006603 : J,ATX,TELIS 006604 : M,VTM,-32 006605 : 14,VJM,MOVE 006606 : SR,XTA, 006607 : ,AEX,=6H0 006608 : ,ASN,64+42 006609 : ,UZA,BЫX 006610 : TEЛCB:,BSS, 006611 : : ,24,2003B 006612 : ,XTA,NЗCB 006613 : ,UZA,IABSENT 006614 : ,XTA,W107 006615 : ,U1A,BЫX 006616 : ,XTA,NЗAД 006617 : ,UIA,TOFL70 006618 : ,XTA,COMPIR 006619 : ,AAX,SC/CONC 006620 : ,UZA,TOFL70/ 006621 : ,XTA, COMPIR 006622 : ,AAX,=7777 7777 7777 7400 006623 : ,ATX,COMPIR 006624 : ,033,34B 006625 : ,XTA,C7 006626 : ,ATX,W110 006627 : ,ATX, FBACK 006628 : ,XTA,NЗCB 006629 : ,ATX,NЗAД 006630 : SR,VTM,R37B 006631 : ,UJ,NRESRET 006632 : TOFL70:,AEX,NЗCB 006633 : ,UZA,BЫX 006634 : TOFL70/:,XTA,C7 006635 : ,ATX,FLACT70 006636 : ,UJ,BЫX 006637 : C 006638 : C***** ПPИKAЗ : "I" 006639 : C 006640 : INPUT:,BSS, 006641 : ,XTA,NЗCB 006642 : ,U1A,BЫX 006643 : V,VTM,N CBЯ 006644 : ,UJ,TONSTJ 006645 : C 006646 : C***** ПPИKAЗ : "LINKSTOP" 006647 : STP/LINK:,ATX,FLSTOPCB 006648 : ,UJ,TEЛCB 006649 : C*STPL:,LOG,77770011 00220055 006650 : C 006651 : C***** 006652 : STPLJOB:14,XTA,BITS 006653 : ,AOX,STPLINK 006654 : ,ATX,STPLINK 006655 : 14,XTA,BITS 006656 : ,AOX,OUTJOBSC 006657 : ,ATX,OUTJOBSC 006658 : C***** 006659 : BЫX:SR,VTM,SELECT 006660 : ,UJ,NRESRET 006661 : C 006662 : C============================= 006663 : C=== T E P M И H A Л Ы === 006664 : C============================= 006665 : C 006666 : C***** ПPИKAЗ : <ИMЯ П/C> "STOP" 006667 : STP/ПC:,BSS, 006668 : 14,XTA,*TLSYS 006669 : ,ASN,64-6 006670 : ,ASN,64+24 006671 : 14,AOX,REFOP 006672 : 14,ATX,REFOP 006673 : ,UJ,BЫX 006674 : C 006675 : C***** ПPИKAЗЫ : . . ."DOWN" . . ."UP" 006676 : UPDOWN:,BSS, 006677 : ,XTA,BUFTA 006678 : V,ASN,64+12 006679 : ,AEX,ALL/TEX 006680 : ,U1A,UPDOWN 1 006681 : C***** ПPИKAЗЫ : "ALLDOWN" , "ALLUP" 006682 : V,VZM,ALL 1 006683 : ,XTA,FULWOR 006684 : ALL 1:,ATX,SC*BLOCK 006685 : ,UJ,NRESRET 006686 : C 006687 : C***** ПPИKAЗЫ : "DOWN" "UP" 006688 : UPDOWN 1:,NTR,3 006689 : ,XTA,ADR8A 006690 : ,UZA,NOTUND.-> NTERM=0 006691 : ,ATI,14 006692 : ,A-X,XNPHCH 006693 : ,UZA,NOTUND.-> NTERM>MAX 006694 : 14,XTA,B48-1 006695 : V,V1M,ONE 1 006696 : ,XTA, 006697 : ONE 1:,AEX,SC*BLOCK 006698 : 14,AAX,B48-1 006699 : ,AEX,SC*BLOCK 006700 : ,UJ,ALL 1 006701 : C 006702 : C=========================================== 006703 : C== Y П P A B Л E H И E M A Ш И H O Й == 006704 : C=========================================== 006705 : C 006706 : C***** ПPИKAЗ : "." 006707 : KILL:,BSS, 006708 : RT,VJM,ДAЙДHЗ 006709 : KILL1:,BSS, 006710 : ,XTA,ПAPTИЗAH 006711 : 14,AAX,BITS 006712 : ,U1A,HEЛЬЗЯ 006713 : ,ITA,14 006714 : ,AEX,NЗCB 006715 : ,UZA,HEЛЬЗЯ 006716 : ,AEX,NЗCB 006717 : ,AEX,NЗAД 006718 : ,UZA,STPLJOB 006719 : SR,VTM,STOP 006720 : ,UJ,NRESRET 006721 : C******** 006722 : CH*STP:,BSS, 006723 : ,XTA,BUFTA 006724 : ,ASN,64+24 006725 : ,ATX,WS 006726 : 14,VTM,PT/STP-LI/STP 006727 : STP1:14,XTA,LI/STP 006728 : ,AEX,WS 006729 : 14,UZA,STPSW E 006730 : 14,VLM,STP1 006731 : ,UJ,NOTUND 006732 : C 006733 : C----- ПEPEKЛЮЧATEЛЬ CПEЦ-ЗAДAЧ 006734 : :,XTA,CNUMT 006735 : ,UJ,STP/PT 006736 : :14,VTM,1.= MTSTOP 006737 : ,UJ,STP/ПC 006738 : :14,VTM,2.= SCSTOP 006739 : ,UJ,STP/ПC 006740 : STPSW E:,BSS, 006741 : :,XTA,C*STPL 006742 : ,UJ,STP/LINK 006743 : C 006744 : C***** ПPИKAЗ : "PTSTOP" 006745 : STP/PT:,UZA,IABSENT 006746 : ,ATI,14 006747 : ,UJ,KILL1 006748 : C 006749 : C***** ПPИKAЗ : "H" 006750 : H/BATCH:,BSS, 006751 : ,XTA,BUFTA.ПPИЗHAK : 006752 : ,ASN,64+6.CTOП-ПOTOK 006753 : ,AEX,S/TEX. 006754 : ,AAX,C77. 006755 : ,UZA,CLEAR/ 006756 : ,XTA,FULWOR 006757 : CLEAR/:,BSS, 006758 : ,ATX,SYM.... 006759 : ,XTA,ADR8A 006760 : ,UZA,CKOПOM 006761 : RT,VJM,ДAЙ ДHЗ 006762 : ,AAX,Ш/FULL 006763 : ,UZA,NOT UND 006764 : ,XTA,SYM 006765 : ,U1A,B/SET 006766 : 14,XTA,BITS 006767 : ,AEX,FULWOR 006768 : ,ATX,SYM 006769 : ,UJ,B/SET 006770 : CKOПOM:14,VTM,Ш/ПOTOK-BITS 006771 : B/SET :,XTA,BATCH 006772 : 14,AOX,BITS 006773 : ,AAX,SYM 006774 : ,ATX,BATCH 006775 : ,UZA,BЫX 006776 : ,XTA,PLAN/IS 006777 : ,U1A,BЫX 006778 : V,VTM,PLAN/COD 006779 : ,UJ,TONSTJ 006780 : C 006781 : C***** ПPИKAЗЫ : "N" , ..."DOWN" 006782 : NEWL:,BSS, 006783 : ,AEX,DOWN/TEX 006784 : ,ASN,64-24 006785 : V,VTM,12 006786 : ,UZA,UPDOWN 006787 : ,XTA,BUFTA 006788 : ,ASN,64+6 006789 : 14,VJM,CH*TERM 006790 : NEWL1:,XTA,BUFTA 006791 : ,ATX,101B 006792 : ,UJ,BЫX 006793 : C 006794 : C***** ПPИKAЗ : "Y" 006795 : LINEPR:,BSS, 006796 : RT,VJM,ДAЙ ДHЗ 006797 : ,XTA,S/BUFPR 006798 : 14,AOX,BITS 006799 : 14,AEX,BITS 006800 : ,ATX,S/BUFPR 006801 : OPEN:,24,2003B 006802 : ,XTA,STCLTA 006803 : ,AOX,RDSCAL 006804 : ,ATX,RDSCAL 006805 : ,XTA, 006806 : ,ATX,STCLTA 006807 : ,UJ,BЫX 006808 : C 006809 : C***** ПPИKAЗЫ : . . . "A" 006810 : LISTTOT:,BSS, 006811 : ,XTA,BUFTA 006812 : ,AEX,STA/TEX 006813 : ,ASN,64-30 006814 : ,U1A,NO/STAT 006815 : C***** ПPИKAЗЫ : "OSTA" , "CSTA" 006816 : : ,24,2003B 006817 : 14,VTM,1 006818 : ,XTA,BUFTA 006819 : ,ASN,64+18 006820 : ,AEX,C/TEX 006821 : ,AAX,C77 006822 : ,U1A,O/CTA 006823 : 14,VTM, 006824 : O/CTA:,ITA,14 006825 : ,ATX,MBLO 006826 : ,ATX,MOUT 006827 : ,UJ,BЫX 006828 : C***** ПPИKAЗ : "A" 006829 : NO/STAT:,BSS, 006830 : RT,VJM,ДAЙ ДHЗ 006831 : ,XTA,Ш/FULL 006832 : 14,AAX,BITS 006833 : ,UZA,HEЛЬЗЯ 006834 : ,AOX,S/BUFPR 006835 : ,ATX,S/BUFPR 006836 : ,UJ,OPEN 006837 : C 006838 : C***** ПPИKAЗ : "P" 006839 : TAPEPR:,BSS, 006840 : ,AEX,ПEP/TEX 006841 : ,ASN,64-30 006842 : RT,VTM,CHANGEMT 006843 : ,UZA,ПPOBHOM 006844 : ,XTA,BUFTA 006845 : ,AEX,STOP/TEX 006846 : ,ASN,64-24 006847 : ,24,2003B 006848 : ,UZA,CH*STP 006849 : ,XTA,BUFTA 006850 : ,AEX,UP/TEX 006851 : ,ASN,64-36 006852 : V,VTM,0 006853 : ,UZA,UPDOWN 006854 : ,XTA,BUFTA 006855 : ,ASN,64+6 006856 : ,UZA,TAPR 006857 : ,AEX,M/TEX 006858 : ,AAX,C77 006859 : ,UZA,PAЗM 006860 : ,XTA,BUFTA 006861 : ,ASN,64+12 006862 : V,VJM,CH DIG 006863 : ,UZA,NEWL1 006864 : TAPR:,BSS, 006865 : ,XTA,ADR8A 006866 : ,ATX,101B 006867 : V,VTM,N BOUT 006868 : ,UJ,TONSTJ 006869 : C 006870 : C***** ПPИKAЗ : "MP" 006871 : PAЗM:,BSS, 006872 : ,XTA,ADR8A 006873 : ,ASN,64-9 006874 : ,ATI,V 006875 : V,UTM,NPAЗM 006876 : ,XTA,BUFTA 006877 : ,ASN,64+12 006878 : ,AEX,И/TEX 006879 : ,AAX,C77 006880 : ,U1A,TONSTJ 006881 : V,UTM,300B 006882 : ,UJ,TONSTJ 006883 : C 006884 : C***** ПPИKAЗЫ : "DF" , "REF" 006885 : ORD*F:,BSS, 006886 : ,AEX,CONSOL 006887 : ,U1A,DAYFIL 006888 : V,VTM,0 006889 : ,UJ,ORD*REF 006890 : C 006891 : C***** ПPИKAЗ: "PANNO" 006892 : R M D:,BSS, 006893 : ,XTA,PCHAN 006894 : ,ASN,64-6 006895 : ,ATI,V 006896 : V,UTM,47B.N ИЗ БCЗ 006897 : ORD*REF:,BSS, 006898 : C 006899 : C***** ПPИKAЗ : "REF" (OTKAЗ OT KOHCOЛИ) 006900 : ,XTA,PCHAN 006901 : ,ATI,14 006902 : ,AEX,MAINC 006903 : ,AAX,C37 006904 : ,UZA,HEЛЬЗЯ.-> ГЛAB.KOHCOЛЬ 006905 : ,24,2003B 006906 : 14,XTA,B24-1 006907 : ,AOX,REFOP 006908 : ,ATX,REFOP 006909 : V,V1M,TO N STJ 006910 : ,UJ,BЫX 006911 : C 006912 : C***** ЗAПYCK ЗAДAЧИ BЫДAЧИ DAYFILE'A 006913 : DAYFIL:,XTA,BUFTA 006914 : ,ATX,101B 006915 : V,VTM,NDAYF 006916 : ,UJ,TONSTJ 006917 : C 006918 : C***** ПPИKAЗ : ":" 006919 : PRIKAZ0:,BSS, 006920 : ,XTA,BUF TA 006921 : ,ASN,64+18 006922 : ,AEX,Ш/TEX. 006923 : ,AAX,C77 006924 : ,U1A,PRIK0 006925 : V,VTM,16B.PUT PULT 006926 : RT,VJM,ДAЙДHЗ 006927 : 14,WTC,*YCЫ 006928 : 14,VTM, 006929 : 14,VZM,TONSTJ 006930 : 14,UTM,PULT 006931 : ,XTA,ADR8A 006932 : ,ASN,64+6 006933 : 14,ATX, 006934 : ,ITA,14 006935 : ,ATX,ADR8A 006936 : PRIK0:,BSS, 006937 : C...... ПEPEKOДИPOBKA B-CЛOBA B ISO 006938 : 14,VTM,1-4.CЧETЧИK 006939 : V3,VTM,0.CДBИГ 006940 : L24:,WTC,ADR8A. 006941 : ,XTA,. 006942 : V3,ASN,64. 006943 : ,AUX,MUP. 006944 : ,AOX,CBN. 006945 : 14,ATX,TTEXT+3. 006946 : V3,UTM,-12. 006947 : 14,VLM,L24. 006948 : END/TEL:,BSS, 006949 : ,XTA, 006950 : ,ATX,TTEXT+4 006951 : C...... 006952 : TO TEL:,BSS, 006953 : : ,24,2003B. 006954 : SR,VTM,SELECT. 006955 : 14,VTM,TTEXT 006956 : ,ITA,14 006957 : ,ATX,WS 006958 : ,XTA,LCHAN 006959 : ,ASN,64-40 006960 : ,AOX,WS 006961 : 14,VTM,NRESRET 006962 : ,UJ,TTPRINT+1 006963 : C 006964 : C***** ПPИKAЗЫ : "B" , "ПB" 006965 : ПPOBBOД:,BSS,. 006966 : ,XTA,1. 006967 : ,AAX,B48 006968 : ,ATX,NSTAJOB. 006969 : ,XTA,BUFTA 006970 : ,ASN,64+6 006971 : ,AAX,C77 006972 : ,AEX,П/TEX. 006973 : V,VTM,NBINP 006974 : ,UZA,TONSTJ.-> ПPИKAЗ "ПB" 006975 : ,XTA,BUF TA. 006976 : ,ASN,64+6. 006977 : ,AEX,BC/TEX 006978 : ,AAX,C7777 006979 : ,U1A,CHBBOД 006980 : C..... BBOД C ПACПOPTOM 006981 : ,XTA,B48 006982 : ,ATX,NSTAJOB 006983 : CHBBOД:,XTA,ADR8A 006984 : ,UZA,NRESRET 006985 : RT,VJM,ДAЙ ДHЗ 006986 : RT,VJM,ПPOB ДHЗ 006987 : ,ITA,14 006988 : ,ATX,MШ 006989 : ,UJ,NRESRET 006990 : C 006991 : C***** ПPИKAЗ : "/" 006992 : CBBOД:,XTA,BUFTA 006993 : ,ASN,64+6 006994 : V,VJM,CH DIG 006995 : ,UZA,TOSERV 006996 : ,XTA,ADR8A 006997 : ,UZA,NOT UND . 006998 : ,ATI,V 006999 : ,UJ,TONSTJ 007000 : TO SERV:,XTA,BUFTA 007001 : ,ASN,64+6 007002 : ,ATX,101B 007003 : V,VTM,NSERV 007004 : C 007005 : C===== ЗAПYCK CЛYЖEБHOЙ ЗAДAЧИ 007006 : C 007007 : TONSTJ:,ITA,V 007008 : ,ATX,NSTAJOB 007009 : SR,VTM,STARTJOB 007010 : ,UJ,NRESRET 007011 : C 007012 : C----- ПPOBEPKA : CИMBOЛ = ЦИФPA 007013 : CH DIG:,BSS, 007014 : ,AAX,C77 007015 : ,ATI,L 007016 : ,XTA,B48 007017 : L,ASN,64 007018 : ,AAX,SC DIG 007019 : V,UJ, 007020 : C 007021 : C***** ПPИKAЗЫ : "ПЛ" , "KПЛ" 007022 : PAPERTAP:,BSS, 007023 : C...... ПPИKAЗЫ ПEPФOЛEHTЫ: 007024 : ,UZA,IABSENT.-> П/Л HET 007025 : ,WTC,FSBASENR 007026 : 13,VTM, 007027 : : ,24,2003B 007028 : 14,VTM,NRESRET 007029 : C HE OKOHЧAHИE ЛИ ЭTO ПЛ: 007030 : ,XTA,BUFTA 007031 : ,ASN,64+12 007032 : ,AEX,K/TEX 007033 : 13,U1A,STARTFSM-EFSMNRS 007034 : ,XTA,B48.YCTAHOBKA 007035 : ,ATX,FFPT.ФЛAГA KOHЦA ПЛ 007036 : ,UJ,NRESRET 007037 : C 007038 : C***** ПPИKAЗ : . . . "П" 007039 : П/ANAL:,BSS, 007040 : 14,UTC,2 007041 : ,XTA,TYPPRT 007042 : ,AEX,BUFTA 007043 : ,AAX,C7777 007044 : ,UZA,PRIOR/PL 007045 : 14,VLM,П/ANAL 007046 : C 007047 : C***** ПPИKAЗ : "П" 007048 : RT,VJM,ДAЙ ДHЗ 007049 : ,XTA,Ш/FULL 007050 : 14,AAX,BITS 007051 : ,UZA,NOTUND 007052 : ,XTA,OPRT 007053 : ,AAX,C7777 007054 : ,ATX,LOWPRT 007055 : ,XTA,OPRT 007056 : ,ASN,64+15 007057 : ,AAX,C7777 007058 : ,ATX,UPRT 007059 : ,XTA,OPRT 007060 : ,ASN,64+30 007061 : ,ATX,SUPRT 007062 : ,ITA,14 007063 : ,AEX,SUPRT. 007064 : ,UZA,NRESRET 007065 : ,ITA,14 007066 : ,AEX,UPRT. 007067 : ,UZA,P1 . 007068 : ,XTA,UPRT. 007069 : ,ATX,LOWPRT. 007070 : P1:,XTA,SUPRT. 007071 : ,ATX,UPRT. 007072 : ,ITA,14 007073 : ,ATX,SUPRT. 007074 : :,24,2003B 007075 : 14,VTM,-2 007076 : LPRT:,BSS, 007077 : 14,XTA,SUPRT 007078 : ,ATI,RT 007079 : RT,XTA,PRTSTAT-NF 007080 : ,AAX,B3 007081 : ,U1A,LPRTE 007082 : RT,XTA,PRTSTAT-NF 007083 : ,AAX,C77 007084 : RT,AEX,PRTSTAT-NF 007085 : 14,AOX,B4 007086 : RT,ATX,PRTSTAT-NF 007087 : LPRTE:,BSS, 007088 : 14,VLM,LPRT 007089 : ,XTA,SUPRT 007090 : ,ASN,64-15 007091 : ,AOX,UPRT 007092 : ,ASN,64-15 007093 : ,AOX,LOWPRT 007094 : ,ATX,OPRT 007095 : ,UJ,NRESRET . 007096 : C******** 007097 : PRIOR/PL:,BSS, 007098 : ,XTA,BUFTA 007099 : ,ASN,64+12 007100 : ,AEX,Y/TEX 007101 : ,AAX,C77 007102 : ,UZA,TOPRSC 007103 : C 007104 : C***** ПPИKAЗЫ : NN"ФП" NN"БП" NN"ПП" 007105 : 14,XTA,PRIPL/SC+2 007106 : ,ASN,64-6 007107 : 14,ATX,PRIPL/SC+2 007108 : ,XTA,ADR8A 007109 : ,AAX,C77 007110 : 14,AOX,PRIPL/SC+2 007111 : ,UJ,TOPRSC 007112 : C 007113 : C***** ПPИKAЗЫ : "YФП" , "YБП" , "YПП" 007114 : TOPRSC:14,ATX,PRIPL/SC+2 007115 : ,UJ,BЫX 007116 : C----- 007117 : ДAЙ ДHЗ:,BSS, 007118 : ,XTA,ADR8A 007119 : ,AAX,C77 007120 : ,NTR,3 007121 : ,X-A,XNW 007122 : ,U1A,NOTUND 007123 : ,ATI,14 007124 : ,XTA,Ш/CЛYЖ 007125 : ,AOX,Ш/FULL 007126 : П ДHЗ:14,AAX,BITS 007127 : ,UZA,NOTUND 007128 : RT,UJ, 007129 : C----- 007130 : ПPOB ДHЗ:,BSS, 007131 : ,XTA,Ш/ПOTOK 007132 : ,UJ,ПДHЗ 007133 : C 007134 : C====================================== 007135 : C=== B P E M E H A , Д A T Ы ==== 007136 : C====================================== 007137 : C 007138 : C***** ПPИKAЗ : "C" 007139 : ORD*C:,BSS, 007140 : RT,VJM,ДAЙ ДHЗ 007141 : 14,XTA,*YCЫ 007142 : ,ATI,J 007143 : ,AAX,B21/16 007144 : ,UZA,IABSENT 007145 : J,VZM,HEЛЬЗЯ 007146 : J,XTA,BISTIME. 007147 : M,VTM,0. 007148 : V,VJM,TIMCOD.KOM.BPEMЯ 007149 : ,XTA,TTEXT. 007150 : ,ARX,SYM/K1. 007151 : ,ATX,TTEXT. 007152 : J,XTA,TIME 007153 : V,VJM,TIMCOD.CЧET.BPEMЯ 007154 : ,XTA,TTEXT+2. 007155 : ,ARX,SYM/C1. 007156 : ,ATX,TTEXT+2. 007157 : J,XTA,MAXTIME 007158 : V,VJM,TIMCOD.ЛИMИT BPEMEHИ 007159 : ,XTA,TTEXT+4 007160 : ,ARX,SYM/Л1 007161 : ,ATX,TTEXT+4 007162 : J,XTA,80. 007163 : ,ATX,TTEXT+6 007164 : J,XTA,81. 007165 : ,ATX,TTEXT+7 007166 : J,XTA,82. 007167 : ,ATX,TTEXT+8 007168 : ,UJ,TOTEL . 007169 : C 007170 : C***** ПPИKAЗ : "T" 007171 : JOBTIME:,BSS,. 007172 : ,XTA,BUF TA. 007173 : ,ASN,64+6. 007174 : ,AAX,C77. 007175 : ,AEX,A/TEX. 007176 : ,UZA,PRI*DAT.ACTPOH. BPEMЯ 007177 : ,XTA,BUF TA. 007178 : ,ASN,64+18. 007179 : ,AEX,POINT. 007180 : ,AAX,C77. 007181 : ,UZA,INTIM .BBOД BPEMEHИ 007182 : ,XTA,ADR8A. 007183 : ,AAX,C77 007184 : ,UZA,ABSTIME . 007185 : ,ATI,J. 007186 : ,XTA,JOBSCAL. 007187 : J,AAX,BITS. 007188 : ,UZA,NOT UND . 007189 : J,WTC,*YCЫ. 007190 : ,XTA,TIME. 007191 : M,VTM,0.ПEЧATЬ 007192 : ,UJ,L/TIM 007193 : C 007194 : C***** ПPИKAЗЫ : . . . "D" 007195 : DATAINP:,BSS, 007196 : ,ASN,64+6 007197 : ,UZA,PRI*DAT 007198 : ,AEX,D/TEX 007199 : ,AAX,C77 007200 : ,UIA,FOR*DAT 007201 : C 007202 : C***** ПPИKAЗ : "DD" 007203 : 14,VTM,-3.ПEPEПИCЬ 007204 : L*DD:14,XTA,DD*D+3 007205 : 14,ATX,TTEXT+3 007206 : 14,VLM,L*DD 007207 : ,UJ,END/TEL 007208 : C 007209 : C***** ПPИKAЗ : ДДMMГГ"D" 007210 : FOR*DAT:,XTA,BUFTA 007211 : ,APX,=:0003 1701 1717 17 007212 : ,ATX,WS 007213 : ,AUX,=6H'3''17''1''17''17''17' 007214 : ,ARX,=6H'''6''''6''6''6' 007215 : C 007216 : C... B 1989 ГOДY CЛEД.KOMAHДY ЗAMEHИTЬ !!! 007217 : C 007218 : ,AEX,=6H'''''''''16''17'.ГOД.NE.89: ЗAMEHИЛИ 007219 : ,AAX,=6H'''20''''20''377''377'.ИЛИ ЦИФPЫ 007220 : ,U1A,NOTUND .HE ДECЯTИЧHЫE 007221 : ,XTA,WS 007222 : ,ASN,64+42 007223 : ,UZA,NOTUND .ЧИCЛO=0 007224 : ,XTA,WS 007225 : ,AAX,=:0076 007226 : ,UZA,NOTUND .MECЯЦ=0 007227 : ,XTA,WS 007228 : ,AUX,=:077 076.HE БPEДOBЫE 007229 : ,ARX,=:016 032.ЛИ MECЯЦ 007230 : ,AAX,=:100 1 . И ЧИCЛO 007231 : ,U1A,NOTUND 007232 : ,XTA,WS 007233 : ,ASN,64+5 007234 : ,ATX,TODAY 007235 : C 007236 : C----- ПEЧATЬ ДATЫ И ACTPOH.BPEMEHИ 007237 : PRI*DAT:,BSS, 007238 : ,XTA,TODAY 007239 : ,ASN,64-5 007240 : ,AUX,=6H'003''017''000''001''017''000' 007241 : ,ARX,=6H00/00/ 007242 : ,ATX,TTEXT 007243 : ,XTA,TODAY 007244 : ,ASN,64-16 007245 : ,AUX,=6H'017''017' 007246 : ,ARX,=6H00 T='1' 007247 : ,ATX,TTEXT+1 007248 : ,XTA,ASTIME 007249 : M,VTM,2 007250 : ,UJ,L/TIM 007251 : C 007252 : C***** OCOBPEMEHИBAHИE ДATЫ И BPEMEHИ 007253 : COR*DAT:,BSS, 007254 : ,NTR,2 007255 : ,XTA,ASTIME 007256 : ,A-X,DAYEND 007257 : ,U1A,GOODMRG 007258 : C----- ПEPEBAЛИЛИ ЧEPEЗ 00.00 ЧACOB 007259 : : ,24,2003B 007260 : ,ATX,ASTIME 007261 : V,VJM,PUTTIMER 007262 : : ,24,3 007263 : C 007264 : C----- HAPA 24/11/77 ----- 007265 : C--- KOPPEKЦИЯ ДATЫ B 'TODAY' 007266 : C--- CTPYKTYPA ДATЫ : 007267 : C--- ДEHЬ = B43/42 И B41/38 007268 : C--- MECЯЦ = B37 И B36/33 007269 : C--- ГOД = B32/29 И B28/25 007270 : C 007271 : ,XTA,TODAY 007272 : ,ATX,WS 007273 : C--LAST DAY OF MONTH COMPLEMENT COMPUTATION 007274 : ,AEX,B34.2M 007275 : ,AAX,=:000174.37M 007276 : ,U1A,NOTFEB 007277 : C--FEBRUARY 007278 : ,XTA,WS 007279 : ,AAX,B29.20Y 007280 : ,ASN,64+3.29 B 26 007281 : ,AEX,WS 007282 : ,ASN,64-22.26-25 B 48-47 007283 : ,UZA,LEAPYR 007284 : C--ADD ONE IF NOT LEAPYEAR 007285 : ,XTA,B38.1D 007286 : LEAPYR:,AEX,B41.10D 007287 : ,UJ ,ENDMON 007288 : C--NOT FEBRUARY 007289 : NOTFEB:,AOX,=:00003.6M 007290 : ,ACX,B1 .(37,36,33)+3 007291 : ,AAX,B1 007292 : C--ADD ONE IF SHORT MONTH 007293 : ,ASN,64-37.1 B 38 (1D) 007294 : ENDMON:,ARX,=:0036.17D 007295 : ,ARX,WS 007296 : ,ATX,WS1 007297 : ,AAX,B44.100D 007298 : ,UZA,OLDMON 007299 : C--CORRECTION FOR END OF MONTH 007300 : ,AEX,WS1 007301 : ,ARX,B33.1M 007302 : ,ATX,WS 007303 : ,ARX,=:00003.6M 007304 : ,ATX,WS1 007305 : ,AAX,=:000074.17M 007306 : C--IS THERE CARRY 007307 : ,U1A,OLDMON 007308 : ,XTA,WS1 007309 : ,ATX,WS 007310 : OLDMON:,XTA,WS 007311 : ,ARX,B38.1D 007312 : ,ATX,WS 007313 : ,ARX,=:0014.6D 007314 : ,ATX,WS1 007315 : ,AAX,=:0036.17D 007316 : C--IS THERE CARRY 007317 : ,U1A,ENDDAY 007318 : ,UTC,WS1-WS 007319 : ENDDAY:,XTA,WS 007320 : ,ATX,TODAY 007321 : C-------- 007322 : GOODMRG:,BSS, 007323 : ,XTA,ASTIME 007324 : ,A/X,NUMB+3 007325 : ,NTR,3 007326 : ,A+X,I0 007327 : ,AAX,C3777 007328 : ,ATX,WS.MИHYTЫ 007329 : ,XTA,TODAY 007330 : ,APX,=:0141 0360.ДECЯTKИ 007331 : ,AUX,=006 002 036 007332 : ,ATX,WS1.*2 007333 : ,ASN,64-2.*8 007334 : ,ARX,WS1 007335 : ,ATX,WS1 007336 : ,XTA,TODAY 007337 : ,APX,=:0036 7417.EДИHИЦЫ 007338 : ,AUX,=017 017 017 007339 : ,ARX,WS1 007340 : ,A-X,=104.-1968 007341 : ,ASN,64+18 007342 : ,ATX,WS1 007343 : ,YTA, 007344 : ,ASN,64-13 007345 : ,ATX,WS2.ГOД B 48-44 P. 007346 : ,YTA, 007347 : ,ASN,64-1 007348 : ,AOX,WS1.ЧИCЛO И MECЯЦ 007349 : ,ASN,64-11 007350 : ,AOX,WS 007351 : ,ATX,WS.И MИHYTЫ 007352 : ,XTA,WS2 007353 : ,ASN,64+23 007354 : ,AOX,WS 007355 : ,ATX,TODAY+1 007356 : ,UJ,BEGIN 007357 : C 007358 : C***** ПPИKAЗ : "ЧЧ.MMT" 007359 : INTIM:,BSS,. 007360 : ,XTA,. 007361 : ,ATX,NT. 007362 : ,XTA,BUF TA. 007363 : ,ASN,64-12. 007364 : ,ATX,WS2 007365 : 14,VTM,-3. 007366 : IT1:,BSS,. 007367 : ,XTA,WS2 007368 : ,ASN,64-6. 007369 : ,ATX,WS2 007370 : ,YTA,. 007371 : ,ATX,SYM. 007372 : ,AEX,POINT. 007373 : ,UZA,IT1 . 007374 : ,XTA,SYM. 007375 : ,NTR,3. 007376 : ,X-A,=31 007377 : ,U1A,NOT UND .CИMBOЛ > 31 007378 : ,X-A,=11 007379 : ,U1A,NOT UND .CИMBOЛ < 20 007380 : ,AOX,I0.ПOЛYЧEHA ЦИФPA 007381 : ,NTR,2. 007382 : 14,A*X,NUMB+3 007383 : ,A+X,NT. 007384 : ,ATX,NT. 007385 : 14,VLM,IT1. 007386 : ,24,2003B 007387 : ,ATX,ASTIME. 007388 : V,VTM,TO STAT 007389 : C YCTAHOBKA CЧETЧИKA BPEMEHИ 007390 : PUTTIMER:,XTA,MASTIME 007391 : V,UZA, .HET 007392 : ,XTA,ASTIME 007393 : ,A*X,=R1.0E6 007394 : ,NTR,3 007395 : ,A+X,I0 007396 : ,AEX,I0 007397 : ,EXT,176B.MЛAДШИE 007398 : ,ASN,64+24 007399 : ,EXT,175B.CTAPШИE 007400 : ,NTR,2 007401 : V,UJ, 007402 : TO STAT:,BSS, 007403 : ,ITA,IB. 007404 : ,ARX,STATIM.ACTPOH.BPEMЯ 007405 : ,UJ,STATIST.B CTATИCTИKY 007406 : STATIM:1,Z00,ASTIME. 007407 : ,Z02,AFTSTA-B. 007408 : AFTSTA:,24,3. 007409 : ,XTA,MASTIME 007410 : ,UZA,PRI*DAT 007411 : ,XTA,BUFTA 007412 : ,APX,= 1717 00 1717 00 007413 : ,ASN,64+24 007414 : ,EXT,177B.TAБЛO 007415 : ,UJ,PRI*DAT 007416 : ABSTIME:,XTA,ABTIME. 007417 : M,VTM,0. 007418 : V,VJM,TIMCOD.ДИCПETЧEPA 007419 : ,XTA,TTEXT. 007420 : ,ARX,SYM/Д1. 007421 : ,ATX,TTEXT. 007422 : ,WTC,*YCЫ+NЖДY 007423 : ,XTA,TIME. 007424 : V,VJM,TIMCOD.BPEMЯ 'ЖДY' 007425 : ,XTA,TTEXT+2. 007426 : ,ARX,SYM/Ж1. 007427 : ,ATX,TTEXT+2. 007428 : ,UJ,TOTEL . 007429 : C 007430 : C----- KOДИPOBKA OДHOГO BPEMEHИ 007431 : L/TIM:V,VTM,TO TEL 007432 : C 007433 : TIMCOD:,ATX,NT. 007434 : L,VTM,1-6. 007435 : TC 1:,NTR,2. 007436 : ,XTA,NT. 007437 : L,A/X,5+NUMB. 007438 : ,NTR,3. 007439 : ,A+X,I0. 007440 : ,ATX,SYM. 007441 : ,NTR,2. 007442 : L,A*X,5+NUMB. 007443 : ,X-A,NT. 007444 : ,ATX,NT. 007445 : ,XTA,WS2 007446 : ,ASN,64-4. 007447 : ,AOX,SYM. 007448 : ,ATX,WS2 007449 : L,VLM,TC 1. 007450 : ,ASN,64-24. 007451 : ,AUX,MUT 1. 007452 : ,AOX,MOT 1. 007453 : M,ATX,TTEXT. 007454 : ,XTA,WS2 007455 : ,ASN,64-40. 007456 : ,AUX,MUT 2. 007457 : ,AOX,MOT 2. 007458 : M,ATX,TTEXT+1. 007459 : M,UTM,2. 007460 : ,XTA,. 007461 : M,ATX,TTEXT . 007462 : V,UJ,. 007463 : C 007464 : C=============================== 007465 : C=== Д И A Г H O C T И K A === 007466 : C=============================== 007467 : C 007468 : NOTUND:,XTA,*ERR1 007469 : ,UJ,TTE1 007470 : IABSENT:,XTA,THET 007471 : ,UJ,TTE1 007472 : HEЛЬЗЯ:,XTA,THEЛЬЗЯ 007473 : ,UJ,TTE1 007474 : O/YES:,XTA,ДEPЗAЙ 007475 : ,UJ,TTE1 007476 : O/KEY:,XTA,TOKEY 007477 : ,UJ,TTE1 007478 : C 007479 : C============================= 007480 : C=== BOЗBPAT ИЗ TTANAL === 007481 : C============================= 007482 : C 007483 : NRESRET:,BSS,. 007484 : : ,24,2003B. 007485 : 13,VTM,SELECT 007486 : 13,MTJ,33B 007487 : 13,VTM,2007B 007488 : 13,MTJ,27B 007489 : ,XTA,ADR8A 007490 : SR,MTJ,13 007491 : C... ПPOБA SR : ЧTOБ HE БЫЛ БPEДOB. 007492 : 13,UTM,-STARTJOB 007493 : 13,VZM,SWINGRET 007494 : 13,UTM,STARTJOB-STOP 007495 : 13,VZM,SWINGRET 007496 : 13,UTM,STOP-ЗAПYCK 007497 : 13,VZM,SWINGRET 007498 : 13,UTM,ЗAПYCK-R37B 007499 : 13,VZM,SWINGRET 007500 : SR,VTM,SELECT 007501 : ,UJ,SWINGRET. 007502 : C 007503 : C===== OCHOBHЫE YПP. CИMBOЛЫ 007504 : TABCOM:,BSS, 007505 : ,TEXT,8H/ЛTПC'10'B'33' 007506 : ,TEXT,8HPYAN+OHI 007507 : ,TEXT,8H БFD 007508 : ,OCT, 007509 : C 007510 : C===== ДOПOЛHEHИE K ПPИKAЗAM 007511 : PANNO:,TEXT,8H PANNO 007512 : CONSOL:,TEXT,8H REF 007513 : A/TEX:,TEXT,8H A 007514 : C/TEX:,TEXT,8H C 007515 : D/TEX:,TEXT,8H D 007516 : BC/TEX:,TEXT,8H BC 007517 : S/TEX:,TEXT,8H S 007518 : П/TEX:,TEXT,8H П 007519 : Ш/TEX:,TEXT,8H Ш 007520 : STOP/TEX:,TEXT,8H STOP 007521 : DOWN/TEX:,TEXT,8H DOWN 007522 : UP/TEX :,TEXT,8H UP 007523 : ALL/TEX :,TEXT,8H ALL 007524 : PT/STP :,TEXT,8H PT 007525 : ,TEXT,8H MT 007526 : ,TEXT,8H SC 007527 : LI/STP :,TEXT,8H LINK 007528 : K/TEX:,TEXT,8H K 007529 : ,TEXT,8H P 007530 : H/TEX:,TEXT,8H H 007531 : STA/TEX:,TEXT,8H STA 007532 : ПEP/TEX:,TEXT,8H ПEP 007533 : M/TEX:,TEXT,8H M 007534 : И/TEX:,TEXT,8H И 007535 : Д/TEX:,TEXT,8H Д 007536 : Y/TEX:,TEXT,8H Y 007537 : TYPPRT:,TEXT,8H ФП 007538 : ,TEXT,8H БП 007539 : ,TEXT,8H ПП 007540 : C 007541 : JOBSCAL:,OCT,0034 2067 774. 007542 : SC DIG:,OCT,0000 0377 6 007543 : C...... K-TЫ ПEPEBOДOB BPEMEHИ 007544 : MUT 1:,GOST,6H0 0 007545 : MUT 2:,GOST,6H0 000 007546 : MOT 1:,ISO,6H'1'00.00 007547 : MOT 2:,ISO,6H.00 '1''1' 007548 : SYM/C1:,ISO,6HB'''''''''' 007549 : SYM/K1:,ISO,6HJ'''''''''' 007550 : SYM/Д1:,ISO,6HЦ'''''''''' 007551 : SYM/Л1:,ISO,6H'153''''''''''' 007552 : SYM/Ж1:,ISO,6H'165''''''''''' 007553 : DAYEND:,REAL,86400. 007554 : C...... ПOЗИЦИOHHЫE MACKИ 007555 : B48/25:,OCT,7777 7777 007556 : B21/16:,LOG,77 00000 007557 : KPAKYC:,LOG,70 0000 0000 1600. 007558 : C...... K-TЫ ПEPEBOДA B-CЛOBA B ISO 007559 : MUP:,GOST,6H077770 007560 : CBN:,ISO,6H 0000'1' 007561 : ,BSS, 007562 : C...... PAЗHЫE TL-TEKCTЫ 007563 : *ERR1:,ISO,6H'41''41''41''''''' 007564 : TNR:,ISO,6HГT-00 007565 : TNW:,ISO,6HЗП-00 007566 : THEЛЬЗЯ:,ISO,6HHEЛЬЗЯ 007567 : ДEPЗAЙ:,ISO,6HДEPЗAЙ 007568 : TOKEY:,ISO,6HO'47'KEY 007569 : THET:,ISO,6HHET ! 007570 : NOCHECK:,TEXT,8HNO CHE'''' 007571 : TПЛOX:,TEXT,8HПЛOXOЙ 007572 : MSK1:,GOST,6H000770.PACПAK. NMФ 007573 : C----- БYФEP PAБOЧИX ЯЧEEK 007574 : WORK:,BSS,LWORK 007575 : TTEXT:,BSS,10 007576 : C----- 007577 : ,END, 007578 : NRESLINE:,NAME, 007579 : C**************************************** 007580 : C* HEPEЗИДEHT ЭKCTPAKOДA OБMEHA 007581 : C* C ФИЗИЧECKИM TEPMИHAЛOM 007582 : C*--------------------------------------- 007583 : C* ABTOP:ПOПOB M.Ю. ДYБHA,OИЯИ 007584 : C* AПPEЛЬ-81 MAЙ-83 007585 : C*--------------------------------------- 007586 : C* O Б P A Щ E H И E 007587 : C* , XTA , CODE 007588 : C* , *61 , - 1 007589 : C* 007590 : C* OTBET OT ЭKCTPAKOДA HA CYMMATOPE 007591 : C*--------------------------------------- 007592 : C* 007593 : C* ПOЛЯ CYMMATOPA ПPИ OБPAЩEHИИ 007594 : C* ---------------------------- 007595 : C* 007596 : C* 48/46 - P E З E P B 007597 : C* 45/41 - HOMEP KAHAЛA (J*CH) 007598 : C* 007599 : C* З A K A З H A P A Б O T Y 007600 : C* 40 - PEГEHEPAЦИЯ (/ECHO) 007601 : C* CИMBOЛA ПPИ ПOCИMB.BBOДE ИЛИ 007602 : C* YПP.CИMBOЛOB HA CTPOKE 007603 : C* 39 - PAБOTA БEЗ ЗAKPЫTИЯ 007604 : C* 38/38 - P E З E P B 007605 : C* 37/33 - HOMEP ПPИKAЗA 007606 : C* 00-BЫДAЧA CTPOKИ HA WATANABE 007607 : C* 01-ПOCИMBOЛЬHЫЙ BBOД 007608 : C* 02-BBOД CTPOKИ C HAЧAЛA 007609 : C* 03-BBOД CTPOKИ B ПPOДOЛЖEHИE 007610 : C* 04-BЫBOД CTPOKИ 007611 : C* 05-ЗAKAЗ HA TAБYЛЯЦИЮ 007612 : C* 06-ЗAKAЗ CИMBOЛOB KOHЦA CTPOKИ 007613 : C* 07-OПPOC CTATYCA KAHAЛA 007614 : C* 10-ЗAKAЗ HA ПPИBЯЗKY 007615 : C* 11-OTBЯЗKA KAHAЛA 007616 : C* 12-OTBЯЗKA BCEX KAHAЛOB 007617 : C* 13-OПEPAЦИЯ *WAIT* 007618 : C* 14-ПOДCKAЗKA + BBOД ЗA 007619 : C* 15-ПOДCKAЗKA + BBOД C HAЧAЛA 007620 : C* 16-ПPИHYД. CHЯTИE ЗAKAЗA 007621 : C* 17-ЗAПPOC ШKAЛЫ ПPИB.KAHAЛOB 007622 : C 20-ПPИBЯЗKA K BINARY-CTPOЧHИKY 007623 : C 21-OБMEH ДBOИЧHOЙ ИHФOPMAЦИEЙ 007624 : C* 22-ЗAПPOC XAP-KИ TEPM.KAHAЛA 007625 : C* 23-YCTAHOBKA KOOPДИHAT ПO ЭKPAHY 007626 : C* 24-ПOДCKAЗKA + BBOД 1 CИM. 007627 : C* 25-BЫBOД БEЗ ПEPEKOДИPOBKИ B CIO 007628 : C* (C ФOPMИPOBAHИEM ЧETHOCTИ) 007629 : C* 007630 : MAXTY:,EQU,=25.N ПOCЛ.ПPИKAЗA 007631 : C* 007632 : C* 32/25 - MAX.ПOЗИЦИЯ BBOДA (MAXPOS) 007633 : C* 24/17 - ЧИCЛO CИMBOЛOB (J*NSYM) 007634 : C* 16/01 - ПOЛE ДOП.ИHФOPMAЦИИ (J*FLD) 007635 : C* ПPИ ПPИKAЗE N10 Э.P. ЗAДAET 007636 : C* B P.P. 10/01 HOMEP PASS USERA, 007637 : C* ПPИ ПPИKAЗE N23 007638 : C* PP.16/09-HOMEP CTPOKИ 007639 : C* 08/01-HOMEP ПOЗИЦИИ 007640 : C* 007641 : C* ПOЛЯ CYMMATOPA ПPИ BOЗBPATE 007642 : C* --------------------------- 007643 : C* 007644 : C* 48/46 - P E З E P B 007645 : C* 45/41 - HOMEP KAHAЛA (J*CH) 007646 : C* 007647 : C* C T A T Y C K A H A Л A 007648 : C* 40/39 - KOПИЯ ИЗ ЗAKAЗA 007649 : C* 38 - ЗAKAЗ EЩE HE OTPAБOTAH 007650 : C* 37 - ЗAKAЗ OTPAБOTAH 007651 : C* 36 - ПEPEБИBKA HA BЫBOДE 007652 : C* 35 - OШИБKA B ЗAKAЗE 007653 : C* 34 - ЗAKAЗ HE ПPИHЯT 007654 : C* 33 - KAHAЛ HE ПPИBЯЗAH 007655 : C* 32 - KOHEЦ ПO "MAXPOS" 007656 : C* 31 - KOHEЦ ПO BЫXOДY ЗA CTPOKY 007657 : C* 30 - KOHEЦ ПO "CTRL" 007658 : C* 007659 : C* 24/17 - TEK.ПOЗИЦИЯ KYPCOPA 007660 : C* 16/09 - ПOЗИЦИЯ KYPCOPA ПEPEД BBOДOM 007661 : C* 08/01 - ПOCЛEДHИЙ CИMBOЛ BBOДA 007662 : C* 007663 : C* ПO ПPИKAЗY N22 BЫДAETCЯ 007664 : C* 007665 : C* 48/46 - P E З E P B 007666 : C* 45/36 - HOMEP ПOЛЬЗOBATEЛЯ ПO "TPAS" 007667 : C* 35/33 - HOMEP TEPM.ПOДCИCTEMЫ 007668 : C* 0 : KAHAЛ HE ПPИBЯЗAH 007669 : C* 1 : KOHCOЛЬ OПEPATOPA 007670 : C* 2 : MYЛЬTИTAЙП 007671 : C* 3 : PEДAKTOP 007672 : C* 4 : MOHИTOP П/C 007673 : C* 32/19 - OПИCATEЛЬ KAHAЛA (KAK B "CIN") 007674 : C* 18/16 - P E З E P B 007675 : C* 15/01 - AДPEC ДECKPИПTOPA KAHAЛA 007676 : C* 007677 : C*----------------------------------------- 007678 : C* 007679 : C===== O Б Щ И E C O M M O N 007680 : *YCЫ:LC,BLOCK,ГYC,RDSCAL(2),COMPIR 007681 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 007682 : SMASAV:LC,BLOCK,SAVAC,SAVSR(2),SAVI15(2) 007683 : ,CONT,SAVI13 007684 : WSD:LC,BLOCK,WS1,WS2 007685 : SCALES:LC,BLOCK,(3),STCLTA 007686 : ABTIME:,LC,1 007687 : BPEMЯ:,EQU,542B 007688 : C 007689 : C===== ИCПOЛЬЗYEMЫE ЯЧEЙKИ И П З 007690 : *51:B,BLOCK,M/Ф 007691 : *117:B,BLOCK,PASS 007692 : *140:B,BLOCK, 007693 : 140,CONT,J*SAVE(0),J*R1 007694 : 141,CONT,J*S15 007695 : 142,CONT,J*S32 007696 : 143,CONT,J*S27 007697 : 144,CONT,J*S11 007698 : 145,CONT,J*ACC 007699 : 146,CONT,J*STAT 007700 : 147,CONT,J*LSYM 007701 : 150,CONT,J*FLD.ПOPЯДOK 007702 : 151,CONT,J*NSYM 007703 : 152,CONT,J*CH.CYЩECTBEH ! 007704 : C 007705 : C===== П O Д П P O Г P A M M Ы 007706 : RETURN:,SUBP, 007707 : STATIST:,SUBP, 007708 : NEWTA:,SUBP, 007709 : CLANEWTA:,SUBP, 007710 : TTPRINT:,SUBP, 007711 : NRESOFF:,SUBP, 007712 : CLOPIR:,SUBP, 007713 : SETTIMER:,SUBP, 007714 : DELTIMER:,SUBP, 007715 : NR/LINE:,SUBP, 007716 : PUTPIR:,SUBP, 007717 : SET*OUT:,SUBP, 007718 : STRT*DWN:,SUBP, 007719 : RESET*TL:,SUBP, 007720 : NRESLINE:,SUBP, 007721 : NRTABL:,SUBP, 007722 : NLED:,P/P,(NRESLINE)1024 007723 : DESCLED:,EQU,NRTABL+NLED 007724 : C 007725 : C===== TEPMИHAЛЬHЫE COMMON 007726 : *TLSIZE:LC,BLOCK,(1),XNPHCH 007727 : *TLSYS:LC,BLOCK,(2),CHLINER 007728 : *TLSTAT:LC,BLOCK,(9),JLINE(2),SPEC*CH 007729 : *TLBUFI:LC,BLOCK,CIN 007730 : *TLBUFO:LC,BLOCK,COT 007731 : *TLCONST:LC,BLOCK,(1),B48/41(7),MCIN(4) 007732 : ,CONT,Z*CIN(5),B42/19 007733 : *TLPRMT:LC,BLOCK,T*NIX 007734 : C 007735 : C===== K O H C T A H T Ы 007736 : C3:,LC,1 007737 : C13:,LC,1 007738 : C37:,LC,1 007739 : C177:,LC,1 007740 : C377:,LC,1 007741 : C1400:,LC,1 007742 : C1777:,LC,1 007743 : DISREG:,LC,1 007744 : C7777:,LC,1 007745 : C77777:,LC,1 007746 : C76000:,LC,1 007747 : B16/1:,LC,1 007748 : FULWOR:,LC,1 007749 : C 007750 : C===== Б И T Ы 007751 : *677:B,BLOCK,BITS 007752 : ,CONT,B48,B47,B46,B45,B44,B43 007753 : ,CONT,B42,B41,B40,B39,B38,B37 007754 : ,CONT,B36,B35,B34,B33,B32,B31 007755 : ,CONT,B30,B29,B28,B27,B26,B25 007756 : ,CONT,B24,B23,B22,B21,B20,B19 007757 : ,CONT,B18,B17,B16,B15,B14,B13 007758 : ,CONT,B12,B11,B10,B9,B8,B7 007759 : ,CONT,B6,B5,B4,B3,B2,B1 007760 : C 007761 : B40:I,BLOCK, 007762 : 40,CONT,/ECHO 007763 : 39,CONT,/NOCL 007764 : 38,CONT,/BUSY 007765 : 37,CONT,/READY 007766 : 36,CONT,/BREAK 007767 : 35,CONT,INP1BIT 007768 : 34,CONT,/INP (0),/DROP 007769 : 33,CONT,/NOCON 007770 : C 007771 : B32:I,BLOCK, 007772 : 32,CONT,/MAX 007773 : 31,CONT,/LINE 007774 : 30,CONT,/CTRL 007775 : 29,CONT,/PROM1 007776 : 28,CONT,/PROM2 007777 : 27,CONT,NOCIN 007778 : 26,CONT,NOCOUT 007779 : C 007780 : C=== Б Y Ф E P K A H A Л A === 007781 : *0:B,BLOCK, 007782 : ,CONT,(1) .PAБ.CЛOBO 007783 : ,CONT,NSTR.N STR ПO ЭKPAHY 007784 : ,CONT,IADR.AДPEC HA BBOДE 007785 : ,CONT,OWNER. N PASS ЮЗEPA 007786 : ,CONT,(2) .P E З E P B 007787 : ,CONT,MAXPOS .MAKC.ПOЗ. BBOДA 007788 : ,CONT,LIPOS .ПOЗ.KYPCOPA 007789 : ,CONT,MSK .MACKA CИMBOЛA 007790 : ,CONT,NPOS .ПOЗИЦИЯ KYPCOPA 007791 : ,CONT,ADR .TEKYЩИЙ AДPEC 007792 : ,CONT,DSCR .ДECKPИПTOP KAHAЛA 007793 : ,CONT,PROC .AДPEC ПPOЦECCA 007794 : ,CONT,CHAR .CИMBOЛ 007795 : ,CONT,STR(14).CTPOKA 007796 : ,CONT,ZERO.ЧИCTЫЙ HOЛЬ 007797 : ,CONT,CTRL .CИMB. KOHЦA BBOДA 007798 : ,CONT,TABUL1 .TAБYЛЯTOP 1-40 007799 : ,CONT,TABUL2 .TAБYЛЯTOP 41-80 007800 : C 007801 : C=== KOHCTAHTЫ TEKTRONIX И WATANABE 007802 : WSTROBE:,EQU,B11 .CTPOБ WATANABE 007803 : CSTROBE:,EQU,B10 .CTPOБ TEKTRONIX 007804 : TBUSY:,EQU,B9 .TEXTRONIX BUSY 007805 : TIMEWX:,EQU,-59 .WATANABE-TIMEOUT 007806 : WXBITS:,EQU,=24000 .^ERR+^BUSY 007807 : TXBITS:,EQU,C1400 .TBUSY+CSTROBE 007808 : WBUSY:,EQU,B12 .WATANABE BUSY 007809 : TSTROBE:,EQU,B9 .CTPOБ TEKTRONIX 007810 : CLRBUSY:,EQU,B10 .CLEAR CBUSY SIGN 007811 : INTBIT:,EQU,B21 .БИT B ПPП 007812 : C 007813 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 007814 : SS:,EQU,8 007815 : C:,EQU,9 007816 : N:,EQU,10 007817 : L:,EQU,11 007818 : S:,EQU,12 007819 : F:,EQU,13 007820 : E:,EQU,14 007821 : R:,EQU,15 007822 : C 007823 : C******************************** 007824 : C*** ПEPEKЛЮЧATEЛЬ BXOДOB *** 007825 : C******************************** 007826 : C 007827 : B:13,REL,B 007828 : :,UJ,NRSTART .= NRESCALL 007829 : LINER*NR:,ENTRY, 007830 : :13,UTM,-1.= STRINGER 007831 : ,UJ,INTERRUP 007832 : MUX152B:,ENTRY, 007833 : :13,UTM,-1 007834 : ,UJ,MUX152.= EXTINTER 007835 : C 007836 : C********************************** 007837 : C*** HEPEЗИДEHT ЭKCTPAKOДA *** 007838 : C********************************** 007839 : C 007840 : NRSTART:,BSS, 007841 : ,ITA,13.ПPOCTABИM БAЗY 007842 : ,ARX,B1 007843 : ,AEX,CHLINER 007844 : ,AAX,C77777 007845 : ,AEX,CHLINER.ДЛЯ LINER*TL 007846 : ,ATX,CHLINER 007847 : S A V E:,BSS, 007848 : ,WTC,Г Y C 007849 : 15,VTM,J*SAVE 007850 : ,XTA, 007851 : ,XTS,SAVI15 007852 : ,AEX,SAVSR 007853 : ,ITS,32B 007854 : ,ASN,64-15 007855 : ,AEX,SAVI13 007856 : ,ITS,12 007857 : ,ASN,64-15 007858 : ,ITS,27B 007859 : 15,AEX, 007860 : ,ITS,11 007861 : ,ASN,64-15 007862 : ,ITS,10 007863 : 15,AEX, 007864 : ,ASN,64-15 007865 : ,ITS,9 007866 : 15,AEX, 007867 : ,XTS,SAVAC 007868 : ,XTS,.--> J*STAT 007869 : ,XTS,.--> J*LSYM 007870 : ,NTR,3 007871 : ,WTC, Г Y C 007872 : 9,VTM, 007873 : 9,XTS,J*ACC 007874 : :,24,3 007875 : ,AAX,B16/1.--> J*FLD 007876 : 9,XTS,J*ACC 007877 : ,ASN,64+16 007878 : ,AAX,C177.--> J*NSYM 007879 : 9,XTS,J*ACC 007880 : ,ASN,64+40 007881 : ,AAX,C37 007882 : 15,ATX,.--> J*CH 007883 : ,ATI,10.N Ф-KAHAЛA 007884 : ,A-X,XNPHCH 007885 : ,UZA,HE HAШ 007886 : 9,XTA,J*ACC 007887 : ,ASN,64+32 007888 : ,AAX,C37 007889 : ,ATI,14 007890 : ,X-A,MAX TY 007891 : ,U1A,HE HAШ 007892 : 14,XTA,B48 007893 : ,AAX,SCFORCON 007894 : ,U1A,FORCON 007895 : 10,XTA,CIN 007896 : ,AAX,C77777 007897 : ,ATI,R 007898 : FORCON:,BSS, 007899 : ,UZA,HE HAШ 007900 : 9,XTA,J*CH 007901 : 14,UJ,SW/JOB 007902 : C 007903 : C=== ПEPEKЛЮЧATEЛЬ PAБOT === 007904 : C 007905 : SW/JOB:,BSS, 007906 : C--- 0 = WATANABE 007907 : :,U1A,HE HAШ 007908 : ,UJ,WATANABE 007909 : C--- 1 = ПOCИMBOЛЬHЫЙ BBOД 007910 : :,UZA,HE HAШ 007911 : ,UJ,RQINP1 007912 : C--- 2 = BBOД CTPOKИ 007913 : :,UZA,HE HAШ 007914 : ,UJ,RQINP 007915 : C--- 3 = BBOД CTPOKИ 007916 : :,UZA,HE HAШ 007917 : ,UJ,RQINPC 007918 : C--- 4 = BЫBOД CTPOKИ 007919 : :,UZA,HE HAШ 007920 : ,UJ,RQOUT 007921 : C--- 5 = ЗAKAЗ TAБYЛЯЦИИ 007922 : :,UZA,HE HAШ 007923 : ,UJ,RQTAB 007924 : C--- 6 = YПPABЛЯЮЩИE CИMBOЛЫ 007925 : :,UZA,HE HAШ 007926 : ,UJ,RQCTRL 007927 : C--- 7 = OПPOC CTATYCA KAHAЛA 007928 : :,UZA,HE HAШ 007929 : ,UJ,RQSTAT 007930 : C--- 10 = ПPИBЯЗKA 007931 : :15,VTM, 007932 : ,UJ,REQCONN 007933 : C--- 11 = OTBЯЗKA KAHAЛA 007934 : :,UZA,HE HAШ 007935 : ,UJ,DISCONN 007936 : C--- 12 = OTBЯЗKA ПOЛHAЯ 007937 : :11,VTM,1 007938 : ,UJ,KILL ALL 007939 : C--- 13 = WAIT* ИЛИ ЗAKPЫTИE 007940 : :,24,2003B 007941 : ,UJ,REQWAIT 007942 : C--- 14 = ПOДCKAЗKA C ПPOДOЛЖEHИEM 007943 : :,UZA,HE HAШ 007944 : ,UJ,RQPROM1 007945 : C--- 15 = ПOДCKAЗKA C HAЧAЛA 007946 : :,UZA,HE HAШ 007947 : ,UJ,RQPROM2 007948 : C--- 16 = ПPИHYД. CHЯTИE ЗAKAЗA 007949 : :,24,2003B 007950 : ,UJ,KILL/TA 007951 : C--- 17 = BЫДAЧA ПPИBЯЗAHHЫX KAHAЛOB 007952 : :11,VTM, 007953 : ,UJ,REQCHAN 007954 : C--- 20 = ПPИBЯЗKA BINARY-CTPOЧHИKA 007955 : :,UJ,BINCONN 007956 : C--- 21 = OБMEH ДBOИЧHOЙ ИHФOPMAЦИEЙ 007957 : :,UZA,HE HAШ 007958 : ,UJ,BINEXCH 007959 : C--- 22 = BЫДAЧA XAP-KИ ФИЗ.KAHAЛA 007960 : :,24,2003B 007961 : ,UJ,GIV*DSCR 007962 : C--- 23 = YCTAHOBKA KOOPДИHAT ПO ЭKPAHY 007963 : :9,XTA,J*FLD 007964 : ,UJ,PUT** 007965 : C--- 24 = ПOДCKAЗKA + BBOД 1 CИM. 007966 : :,UZA,HE HAШ 007967 : ,UJ,RQPROM3 007968 : C--- 25 = BЫBOД БEЗ ПEPEKOДИPOBKИ B CIO 007969 : :,UZA,HE HAШ 007970 : ,UJ,RQPHOUT 007971 : C 007972 : C*** ЗAKAЗ : ПPИBЯЗKA BINARY-CTPOЧHИKA 007973 : C 1/15 P. CYMM. = ФИЗ.AДPEC БYФEPA 007974 : C CTPOЧHИK - B HAЧAЛE БYФ.ЛИCTA 007975 : BIN CONN:9,WTC,J*ACC 007976 : 15,VTM, 007977 : C 007978 : C*** ЗAKAЗ : ПPИBЯЗKA *** 007979 : REQCONN:,BSS, 007980 : :,24,2003B 007981 : ,UZA,HE HAШ 007982 : 10,XTA,CIN 007983 : ,AAX,C77777 007984 : ,U1A,HE HAШ 007985 : ,ITA,15.CBOЙ БYФEP 007986 : ,U1A,SETREF. - ДA 007987 : ,XTA,POOL 007988 : ,UZA,HE HAШ 007989 : ,ANX, 007990 : ,ATI,14 007991 : ,ASN,64-5 007992 : ,ATI,15 007993 : ,XTA,POOL 007994 : 14,AEX,B48-1 007995 : ,ATX,POOL 007996 : 15,UTM,BUF0 007997 : 10,XTA,B42-1 007998 : ,AOX,CHLINER 007999 : ,ATX,CHLINER 008000 : ,ITA,15 008001 : ,AOX,B34.П/C = "ЭP" 008002 : ,UJ,SETREF1 008003 : SETREF:10,XTA,B48-1 008004 : ,AOX,SPEC*CH 008005 : ,ATX,SPEC*CH 008006 : ,XTA, 008007 : 9,ATX,J*FLD.HET PASS 008008 : ,ITA,15 008009 : ,AOX,NOCIN.БЛOKИPOBKA 008010 : ,AOX,NOCOUT.ПEPEKOДИPOBKИ 008011 : SETREF1:10,XTS,CIN 008012 : ,AAX,Z*CIN 008013 : 15,AOX, 008014 : 10,ATX,CIN 008015 : ,AAX,C76000 008016 : 15,ATX,PROC 008017 : ,XTA, Г Y C 008018 : ,AAX,=:77 008019 : 15,ATX,DSCR 008020 : 9,XTA,J*FLD 008021 : ,AAX,C1777 008022 : ,U1A,*+2 008023 : :9,XTA,PASS 008024 : ,AAX,C1777 008025 : :15,AOX,DSCR 008026 : 15,ATX,OWNER 008027 : ,XTA,SETCTRL 008028 : 15,ATX,CTRL 008029 : ,XTA,B1 008030 : 15,ATX,NPOS 008031 : 15,ATX,NSTR 008032 : ,XTA,MSK1 008033 : 15,ATX,MSK 008034 : ,XTA,B34 008035 : 15,ATX,TABUL1 008036 : ,XTA,B8 008037 : 15,ATX,TABUL2 008038 : ,ITA,10 008039 : ,AEX,T*NIX 008040 : ,U1A,CON*DF 008041 : ,XTA,CLRBUSY 008042 : ,EXT,152B 008043 : CON*DF:11,VTM,NRSRET 008044 : ,XTA,=6H>ЭP00'' 008045 : ,UJ,TO*DF 008046 : C 008047 : C*** ЗAKAЗ : OTBЯЗKA *** 008048 : DISCONN:,BSS, 008049 : 12,VJM,CHAN* 008050 : 11,VJM,RESPOOL 008051 : 11,VTM, 008052 : C 008053 : C----- ПPOBEPKИ KOHЦA HEPEЗИДEHTA 008054 : NR*DROP:12,VJM,REQ CH 008055 : C----- 008056 : DROP1:9,XTA,J*ACC 008057 : ,U1A,NRSRET 008058 : C 008059 : C----- KAHAЛOB Y ЗAДAЧИ БOЛЬШE HET 008060 : ,ITA,13 008061 : ,ARX,SYSRET 008062 : ,UJ,NRESOFF 008063 : CLBAS:,XTA,DESCLED 008064 : ,ASN,64+15.CЧ-K ЗAKAЗOB 008065 : ,AAX,C37.K HEPEЗИДEHTY 008066 : ,U1A,NRSRET 008067 : ,XTA,MSKG+3.B48/17 008068 : ,AAX,CHLINER.ГACИM 008069 : ,ATX,CHLINER. БAЗY 008070 : ,UJ,NRSRET 008071 : C 008072 : C*** ЗAKAЗ : OTBЯЗKA ПOЛHAЯ *** 008073 : KILL ALL:,BSS, 008074 : ,XTA,DSCR+BUF0 008075 : ,AEX,ГYC 008076 : ,ASN,64+42.= WATANABE 008077 : ,U1A,NR*DROP.-> HET 008078 : ,ATX,DSCR+BUF0 008079 : ,UJ,NR*DROP 008080 : C 008081 : C*** ЗAKAЗ : BBOД 1 CИMBOЛA *** 008082 : RQINP1:12,VJM,CHAN* 008083 : 9,XTA,J*ACC 008084 : ,AAX,/ECHO 008085 : 9,ATX,J*R1 008086 : ,XTA,INP1 A 008087 : 15,ATX,PROC 008088 : ,UJ,SET PROC 008089 : C 008090 : C*** ЗAKAЗ : BBOД HOBOЙ CTPOKИ *** 008091 : RQINP:11,VJM,RQBEG* 008092 : ,XTA,MSK1 008093 : R,ATX,MSK 008094 : 15,UTC,STR 008095 : 14,VTM, 008096 : ,ITA,14 008097 : 15,ATX,ADR 008098 : RQINP*:,BSS, 008099 : ,XTA, 008100 : 9,ATX,J*R1 008101 : ,XTA,INP A 008102 : 15,ATX,PROC 008103 : RQINPT:,BSS, 008104 : ,XTA, 008105 : R,ATX,ZERO 008106 : R,XTA,STR+13 008107 : ,AAX,MSKG+1 008108 : R,ATX,STR+13 008109 : 9,XTA,J*FLD 008110 : 15,ATX,IADR 008111 : 9,XTA,J*ACC 008112 : ,AAX,/ECHO 008113 : ,AOX,/INP 008114 : 9,AOX,J*R1 008115 : 9,ATX,J*R1 008116 : 9,XTA,J*ACC 008117 : ,ASN,64+24 008118 : ,AAX,C177 008119 : 15,ATX,MAXPOS 008120 : ,UJ,SETPROC 008121 : C 008122 : C*** ЗAKAЗ : BBOД CTPOKИ ДAЛЬШE *** 008123 : RQINPC:11,VJM,RQBEG* 008124 : 15,XTA,NPOS 008125 : ,A-X,B1 008126 : ,A*X,C1/6 008127 : ,ATI,14 008128 : ,ASN,64-1 008129 : 9,ATX,J*R1 008130 : ,ASN,64-1 008131 : 9,ARX,J*R1 008132 : 15,X-A,NPOS 008133 : ,ATI,12 008134 : 12,XTA,MSK6 008135 : 15,ATX,MSK 008136 : R,UTC,STR 008137 : 14,UTM, 008138 : ,ITA,14 008139 : 15,ATX,ADR 008140 : ,UJ,RQINP* 008141 : C 008142 : C*** ЗAKAЗ : ПOДCKAЗKA + BBOД 1 CИM. *** 008143 : RQPROM3:,BSS, 008144 : ,UTC,/PROM1 - B8 008145 : C 008146 : C*** ЗAKAЗ : BЫBOД БEЗ ПEPEKOДИPOBKИ 008147 : RQPHOUT:,XTA,B8 008148 : 9,ATX,J*R1 008149 : C 008150 : C*** ЗAKAЗ : BЫBOД CTPOKИ *** 008151 : RQOUT:11,VJM,RQBEG* 008152 : 14,VTM,SETPROC 008153 : ROUT1:,XTA,OUT A 008154 : 15,ATX,PROC 008155 : ,XTA,MSK1 008156 : 15,ATX,MSK 008157 : 15,UTC,STR 008158 : 11,VTM, 008159 : ,ITA,11 008160 : 15,ATX,ADR 008161 : :,24,2003B 008162 : ,UJ,STRT*DWN 008163 : C 008164 : C*** ЗAKAЗ : ПOДCKAЗKA + BBOД ДAЛЬШE *** 008165 : RQPROM1:,UTC,/PROM1-/PROM2 008166 : C 008167 : C*** ЗAKAЗ : ПOДCKAЗKA + HOBЫЙ BBOД *** 008168 : RQPROM2:,XTA,/PROM2 008169 : 9,ATX,J*R1 008170 : 11,VJM,RQBEG* 008171 : 14,VTM,RQINPT 008172 : ,UJ,ROUT1 008173 : C 008174 : C*** ПPИHYД. CHЯTИE ЗAKAЗA *** 008175 : KILL/TA:,BSS, 008176 : R,XTA,DSCR 008177 : ,AAX,/BUSY 008178 : ,UZA,RQSTAT 008179 : R,AEX,DSCR 008180 : ,AOX,/READY.= ГPYБOBATO 008181 : R,ATX,DSCR 008182 : ,XTA,MCIN 008183 : 10,AAX,CIN 008184 : 10,ATX,CIN 008185 : C 008186 : C*** ЗAKAЗ : OПPOC CTATYCA KAHAЛA *** 008187 : RQSTAT:15,XTA,DSCR 008188 : ,AEX,ГYC 008189 : ,AAX,=:77 008190 : ,U1A,HE HAШ.KAHAЛ 008191 : RQSTAT1:,24,3 008192 : 15,XTA,DSCR 008193 : ,AAX,/READY 008194 : ,UZA,NRSRET 008195 : 15,XTA,DSCR 008196 : ,AAX,=:00034377 008197 : 9,AOX,J*STAT 008198 : 9,ATX,J*STAT 008199 : 15,XTA,NPOS 008200 : ,AAX,C177 008201 : 9,ATX,J*NSYM 008202 : 15,XTA,DSCR 008203 : ,AAX,/INP 008204 : ,UZA,STATOUT 008205 : 15,XTA,LIPOS 008206 : ,ASN,64-8 008207 : 9,ATX,J*FLD 008208 : C 008209 : C----- ПEPEПИCЬ CTPOKИ ЗAKAЗЧИKY 008210 : 11,VTM,1-14 008211 : 15,UTC,STR 008212 : 12,VTM,.= OTKYДA 008213 : R,WTC,IADR 008214 : 14,VTM,.= KYДA 008215 : TRA1:12,XTA, 008216 : 9,WTC,J*S27 008217 : :,24, 008218 : 14,ATX, 008219 : :,24,3 008220 : ,XTA, 008221 : 12,ATX, 008222 : 12,UTM,1 008223 : 14,UTM,1 008224 : 11,VLM,TRA1 008225 : R,ATX,ZERO 008226 : C----- 008227 : STATOUT:,BSS, 008228 : 15,XTA,CHAR 008229 : ,ASN,64+40 008230 : 9,ATX,J*LSYM 008231 : 15,XTA,DSCR 008232 : ,AAX,=:77 008233 : 15,ATX,DSCR 008234 : ,UJ,NRSRET 008235 : C 008236 : C*** OЖИДAHИE COБЫTИЙ / ПAYЗA *** 008237 : REQWAIT:,BSS, 008238 : 12,VJM,GI*RDY 008239 : 9,XTA,J*ACC 008240 : ,U1A,NRSRET0 008241 : :,24,2003B 008242 : 9,XTA,M/Ф 008243 : ,AOX,B17 008244 : 9,ATX,M/Ф 008245 : ,XTA,C13 008246 : ,ATI,27B 008247 : ,XTA,=R2.0 008248 : ,*57,13B 008249 : 12,VTM,NRSRET0 008250 : C 008251 : C----- ПOЛYЧEHИE ШKAЛЫ ГOTOBЫX ЗAKAЗOB 008252 : GI*RDY:,BSS, 008253 : ,24,2003B 008254 : 9,XTA,M/Ф 008255 : ,AOX,B17 008256 : ,AEX,B17 008257 : 9,ATX,M/Ф 008258 : ,XTA,Д H З 008259 : ,ASN,64-15 008260 : ,CALL, DELTIMER 008261 : ,24,3 008262 : ,WTC,CHLINER.BOCCT. 008263 : 13,VTM,-1.БAЗЫ 008264 : ,XTA, 008265 : 11,VTM, 008266 : ,UJ,REQCH/R 008267 : C 008268 : C*** ЗAKAЗ : ДAЙ ШKAЛY ПPИBЯЗAHHЫX *** 008269 : REQCHAN:,BSS, 008270 : 12,VTM,NRSRET0 008271 : REQ CH:,XTA, 008272 : ,UTC,FULWOR-/READY 008273 : REQCH/R:14,VTM,/READY 008274 : 9,ATX,J*ACC 008275 : ,XTA,CHLINER 008276 : ,APX,B42/19 008277 : 9,ATX,J*CH 008278 : ,UJ,REQCH1 008279 : REF CH:11,VJM,RESPOOL 008280 : REQCH1:9,XTA,J*CH 008281 : 12,UZA, 008282 : ,ANX, 008283 : ,ATI,10 008284 : ,YTA, 008285 : 10,ASN,64 008286 : 9,ATX,J*CH 008287 : 10,WTC,CIN 008288 : ,XTA,DSCR 008289 : ,AEX,ГYC 008290 : ,ASN,64+42 008291 : ,U1A,REQCH1 008292 : 11,VIM,REF CH.HA OTBЯЗKY 008293 : 10,WTC,CIN 008294 : ,XTA,DSCR 008295 : 14,AAX, 008296 : ,UZA,REQCH1 008297 : 10,XTA,BITS 008298 : 9,AOX,J*ACC 008299 : 9,ATX,J*ACC 008300 : ,UJ,REQCH1 008301 : C 008302 : C*** ЗAKAЗ : YCTAHOBKA TAБYЛЯЦИИ *** 008303 : RQTAB:11,VJM,CHAN*W 008304 : 15,ATX,TABUL1 008305 : 14,VTM,1 008306 : 12,VJM,GETW 008307 : 15,ATX,TABUL2 008308 : ,UJ,NRSRET 008309 : C 008310 : C*** ЗAKAЗ : YCTAHOBKA YПP.CИMBOЛOB *** 008311 : RQCTRL:11,VJM,CHAN*W 008312 : 15,ATX,CTRL 008313 : ,UJ,NRSRET 008314 : C 008315 : C 008316 : C*** ЗAKAЗ : OБMEH ДBOИЧHOЙ ИHФOPMAЦИEЙ 008317 : C 16/23 P. CYMMATOPA ЗAДAЮT BPEMЯ 008318 : C OЖИДAHИЯ KOHЦA OБMEHA. 008319 : C HA CTPOЧHИK XOДЯT ПO 13 PEГИCTPY. 008320 : C MOЖHO ПOPTИTЬ: SS,C,L,S. 008321 : C E=БAЗA, N=AДPEC CIN, R=<ДECKP.> 008322 : C HA BЫXOДE ИЗ CTPOЧHИKA CYMMATOP = 008323 : C 0, ECЛИ HAДO ПPOДOЛЖИTЬ BBOД; 008324 : C 7...7, ECЛИ ЗAKOHЧИTЬ OБMEH; 008325 : C CИMBOЛ+B8, ECЛИ HAДO BЫДATЬ CИMBOЛ. 008326 : BINEXCH:12,VJM,CHAN* 008327 : 14,VJM,STRT*DWN.ПYCK CTPOЧHИKA 008328 : ,XTA,C13 008329 : ,ATI,27B 008330 : ,XTA,/BUSY 008331 : R,AOX,DSCR 008332 : R,ATX,DSCR 008333 : 9,XTA,J*NSYM.TIME 008334 : :,U1A,*+1. - ЗAДAHO 008335 : ,XTA,C77777.MAKCИMYM 008336 : CLOSE:,AOX,=I0 008337 : ,*57,13B 008338 : :,24,3 008339 : ,UJ,KILL/TA 008340 : C 008341 : C*** ЗAKAЗ : BЫДAЧA XAP-KИ TEPMИHAЛA *** 008342 : GIV*DSCR:,BSS, 008343 : 10,XTA,CIN 008344 : ,ATI,15 008345 : 15,V1M,GIVD1 008346 : ,AAX,Z*CIN 008347 : ,UJ,GIVD2 008348 : GIVD1:,BSS, 008349 : ,ARX,B33 008350 : ,AAX,MDS*1 008351 : 9,ATX,J*ACC 008352 : ,ASN,64+32 008353 : ,AEX,C3 008354 : ,U1A,GIVDP.HE Э.P. 008355 : ,ITA,15 008356 : ,AEX,CHLINER 008357 : ,AAX,C76000 008358 : ,U1A,NRSRET0 008359 : GIVDP:,BSS, 008360 : 15,XTA,OWNER 008361 : ,AAX,C1777 008362 : ,ASN,64-35 008363 : 9,AOX,J*ACC 008364 : GIVD2:9,ATX,J*ACC 008365 : ,UJ,NRSRET0 008366 : C 008367 : C*** ЗAKAЗ : YCT-KA KOOPДИHAT *** 008368 : PUT**:,BSS, 008369 : ,ASN,64+8 008370 : R,ATX,NSTR 008371 : 9,XTA,J*FLD 008372 : ,AAX,C377 008373 : R,ATX,NPOS 008374 : ,UJ,NRSRET0 008375 : C 008376 : RQBEG*:12,VTM,GETSTR 008377 : C----- ПPOBEPKA ЗAДAHHOГO KAHAЛA 008378 : CHAN*:15,XTA,DSCR 008379 : ,AEX,ГYC 008380 : ,ASN,64+42 008381 : ,U1A,HEHAШ 008382 : 15,XTA,DSCR 008383 : ,AAX,/BUSY 008384 : 12,UZA,.KAHAЛ CBOБOДEH 008385 : ,UTC,/DROP -/NOCON. PAHO 008386 : HE HAШ:,XTA,/NOCON 008387 : ,UJ,STAT/RET 008388 : C 008389 : CHAN*W:12,VJM,CHAN* 008390 : 11,MTJ,12 008391 : 14,VTM,0 008392 : C----- "ДAЙ CЛOBO OT MATEMATИKA" 008393 : GETW:,BSS,.READ 1 WORD 008394 : 9,WTC,J*FLD 008395 : 14,UTM, 008396 : 9,WTC,J*S27 008397 : :,24, 008398 : 14,XTA, 008399 : :,24,3 008400 : 12,UJ, 008401 : C 008402 : C----- "ДAЙ CTPOKY OT MATEMATИKA" 008403 : GETSTR:9,XTA,J*NSYM 008404 : ,UZA,GET 3 008405 : 10,VTM,0 008406 : GET 1:10,MTJ,14 008407 : 10,UTM,1 008408 : 12,VJM,GETW 008409 : 10,UTC,-1 008410 : 15,ATX,STR 008411 : 9,XTA,J*NSYM 008412 : ,ARX,=7777 7777 7777 7771.-6 008413 : 9,ATX,J*NSYM 008414 : ,U1A,GET 1 008415 : ,ATI,14 008416 : ,AEX,FULWOR 008417 : ,U1A,GET 2 008418 : 10,UTM,1 008419 : GET 2:,BSS, 008420 : 14,XTA,MSKG+6 008421 : 10,UTC,-1 008422 : 15,AAX,STR 008423 : 10,UTC,-1 008424 : GET 3:15,ATX,STR 008425 : ,XTA, 008426 : 9,ATX,J*NSYM 008427 : 9,WTC,J*CH 008428 : 10,VTM, 008429 : 11,UJ, 008430 : C 008431 : C----- BOЗBPAT БYФEPA 008432 : RESPOOL:,BSS, 008433 : :,24,2003B 008434 : 10,XTA,CIN 008435 : ,AEX,CHLINER 008436 : ,AAX,C76000.БYФEP ЮЗEPA 008437 : ,U1A,CLCIN. - ДA 008438 : ,NTR,3 008439 : 10,XTA,CIN 008440 : ,AAX,C1777 008441 : ,A-X,A/BUF 008442 : ,ASN,64+5 008443 : ,ATI,15 008444 : 15,XTA,BITS 008445 : ,AOX,POOL 008446 : ,ATX,POOL 008447 : ,XTA, 008448 : ,UJ,CLCIN1 008449 : CL CIN:,BSS, 008450 : 10,XTA,B48-1 008451 : ,AEX,FULWOR 008452 : ,AAX,SPEC*CH 008453 : ,ATX,SPEC*CH 008454 : ,XTA,NOCIN 008455 : ,AOX,NOCOUT 008456 : CLCIN1:,AEX,Z*CIN 008457 : 10,AAX,CIN 008458 : 10,ATX,CIN 008459 : 10,XTA,B42-1 008460 : ,AEX,FULWOR 008461 : ,AAX,CHLINER 008462 : ,ATX,CHLINER 008463 : ,XTA,=6H<ЭP00'' 008464 : C 008465 : C----- HAЧAЛO/KOHEЦ CEAHCA B DAY-FILE 008466 : TO*DF:,ATX,WS2 008467 : ,XTA,.И B CTATИCTИKY 008468 : ,ATX,531B. ПO TEPMИHAЛAM 008469 : ,XTA,7 008470 : ,AAX,B32 008471 : 11,U1A,.-> БЛOKИPOBAH 008472 : ,XTA,Г Y C 008473 : ,AEX,CHLINER 008474 : ,AAX,=:77 008475 : 11,U1A,.-> HE Э.P. 008476 : ,ITA,10 008477 : ,ASN,64-42 008478 : ,AUX,=6H'''''''7''7''' 008479 : ,AOX,WS2 008480 : ,ATX,WS2 008481 : ,XTA,BPEMЯ 008482 : ,ATX,WS1 008483 : ,ITA,11 008484 : ,AOX,STA INF 008485 : ,UJ,STATIST 008486 : STA INF:2,Z11,WS1 008487 : ,, 008488 : C 008489 : C----- ДOOФOPMЛEHИE ПPOЦECCA 008490 : SETPROC:,BSS, 008491 : 15,XTA,DSCR 008492 : ,AAX,=:77 008493 : 9,AOX,J*R1 008494 : ,AOX,/BUSY 008495 : :,24,2003B 008496 : ,AOX,INTBIT 008497 : 9,WTC,J*CH 008498 : 10,VTM, 008499 : ,XTS,MCIN 008500 : 10,AAX,CIN 008501 : 10,ATX,CIN 008502 : ,APX,B29.ГAШEHИE "/ECHO" 008503 : ,AUX,/ECHO.ECЛИ ECTЬ 008504 : ,AEX,FULWOR.БЛOKИPOBKA 008505 : 15,AAX,.PEГEHEPAЦИИ 008506 : 15,ATX,DSCR 008507 : 9,XTA,J*CH 008508 : ,AEX,T*NIX 008509 : ,U1A,NOSETX 008510 : 14,VJM,STRT*DWN 008511 : NOSETX:,BSS, 008512 : 9,XTA,J*ACC 008513 : ,AAX,/NOCL 008514 : ,U1A,RQSTAT1.-БEЗ ЗAKPЫTИЯ 008515 : ,XTA,C13 008516 : ,ATI,27B 008517 : ,XTA,B24 008518 : ,UJ,CLOSE.HA OГPOMHOE BPEMЯ 008519 : C 008520 : C=== BOЗBPATЫ ИЗ HEPEЗИДEHTA === 008521 : C 008522 : STAT/RET:9,AOX,J*STAT 008523 : 9,ATX,J*STAT 008524 : C===== 008525 : NRSRET:,BSS, 008526 : 9,XTA,J*CH 008527 : ,ASN,64-24 008528 : 9,AOX,J*NSYM 008529 : ,ASN,64-16 008530 : 9,AOX,J*STAT 008531 : 9,AOX,J*FLD 008532 : 9,AOX,J*LSYM 008533 : 9,ATX,J*ACC 008534 : C===== 008535 : NRSRET0:,24,2003B 008536 : 9,MTJ,15 008537 : 15,XTA,J*S32 008538 : ,ASN,64+15 008539 : ,ATI,33B 008540 : 15,XTA,J*S11 008541 : ,ATI,9 008542 : ,ASN,64+15 008543 : ,ATI,10 008544 : ,ASN,64+15 008545 : ,ATI,11 008546 : 15,XTA,J*S27 008547 : ,ATI,27B 008548 : ,ASN,64+15 008549 : ,ATI,12 008550 : 15,XTA,J*S32 008551 : ,AAX,C77777 008552 : ,ATX,SAVI13 008553 : 15,XTA,J*S15 008554 : ,ATX,SAVSR 008555 : ,AAX,C77777 008556 : ,ATX,SAVI15 008557 : 15,XTA,J*ACC 008558 : ,ATX,SAVAC 008559 : ,UJ,RETURN 008560 : C 008561 : C******************************* 008562 : C*** П P E P Ы B A H И Я *** 008563 : C*** (BXOД OT STRINGERA) *** 008564 : C******************************* 008565 : C 008566 : INTERRUP:,BSS, 008567 : C,MTJ,R.AДPEC БYФEPA 008568 : R,VZM,RESET*C.= HE ПPИBЯЗAH 008569 : R,XTA,DSCR 008570 : ,AAX,/BUSY 008571 : ,UZA,RESET*C.= HET ЗAKAЗA 008572 : R,XTA,PROC 008573 : ,AAX,C76000 008574 : R,WTC,PROC 008575 : F,UZA, 008576 : ,ATI,E. - БAЗA 008577 : C 008578 : C... HA CTPOЧHИK ЮЗEPA : 008579 : C 008580 : N,XTA,COT.KAHAЛ 008581 : ,U1A,RESET*C.ЗAHЯT 008582 : N,UTM,CIN 008583 : N,XTA,.CTPOKA C I N 008584 : R,WTC,PROC 008585 : F,VJM,. - П O X O Д 008586 : ,WTC,CHLINER.BOCCT. 008587 : F,VTM,-1.БAЗЫ 008588 : N,UTM,-CIN. И PEГ. N 008589 : ,UZA,RESET*C. - ЭTO BBOД 008590 : ,AEX,FULWOR 008591 : ,UZA,FIN*OP. - CHЯTЬ ЗAKAЗ 008592 : ,AEX,FULWOR 008593 : N,ATX,COT. - ПPOДOЛЖИTЬ 008594 : R,VTM,RESET*TL. BЫBOД 008595 : ,UJ,SET*OUT 008596 : C 008597 : C=== ПPOЦECC : BBOД 1 CИMBOЛA === 008598 : INP1:,BSS, 008599 : N,XTA,CIN 008600 : ,AAX,B48/41 008601 : ,UZA,RESET 008602 : R,ATX,CHAR 008603 : FIN*IN:,BSS, 008604 : R,XTA,DSCR 008605 : ,AOX,INP1BIT 008606 : ,AOX,/CTRL 008607 : R,ATX,DSCR 008608 : ,AAX,/ECHO 008609 : ,UZA,FIN*OP 008610 : ,XTA,WA*COT A 008611 : R,ATX,PROC 008612 : ECHO:R,XTA,NPOS 008613 : R,ATX,LIPOS 008614 : N,XTA,CIN 008615 : ,AAX,MCIN 008616 : N,ATX,CIN 008617 : S,VTM,B29.ПPИЗHAK "BBOД" 008618 : ,UJ,OUT*SYM 008619 : C 008620 : C=== ПPOЦECC : BBOД CTPOKИ === 008621 : INP:,BSS, 008622 : N,XTA,CIN 008623 : ,AAX,B48/41 008624 : ,UZA,RESET 008625 : R,ATX,CHAR 008626 : ,ASN,64+40 008627 : ,ATI,C 008628 : ,ASN,64+5 008629 : ,U1A,NOTCTRL 008630 : C,XTA,BITS 008631 : R,AAX,CTRL 008632 : ,U1A,FIN*IN 008633 : ,ITA,C 008634 : C,UJ,SW/CHAR 008635 : C 008636 : C----- BBOД OБЫЧHЫX CИMBOЛOB 008637 : NOTCTRL:,BSS, 008638 : R,XTA,ADR 008639 : ,ATI,S 008640 : N,XTA,CIN 008641 : R,AUX,MSK 008642 : S,AEX, 008643 : R,AAX,MSK 008644 : S,AEX, 008645 : S,ATX, 008646 : C 008647 : C----- ШAГ ПO БYФEPY 008648 : STEP/B:,BSS, 008649 : R,XTA,MSK 008650 : ,ASN,64+8 008651 : R,ATX,MSK 008652 : ,U1A,ECHO.PETPAHCЛЯЦИЯ 008653 : R,WTC,ADR 008654 : E,VTM,1.NEXT WORD 008655 : ,XTA,MSK1 008656 : ,UJ,S/ADR 008657 : C 008658 : C----- "CTPEЛKA BПPABO" 008659 : RCURS:,BSS, 008660 : R,XTA,ADR 008661 : ,ATI,S 008662 : S,XTA, 008663 : R,AAX,MSK 008664 : ,UZA,RESET*C.ДAЛЬШE HEЛЬЗЯ 008665 : ,UJ,STEP/B 008666 : C 008667 : C----- "CTPEЛKA BЛEBO" 008668 : LCURS:R,XTA,NPOS 008669 : ,AEX,B1 008670 : ,UZA,RESET*C.ДAЛЬШE HEЛЬЗЯ 008671 : R,XTA,MSK 008672 : ,ASN,64-8 008673 : R,ATX,MSK 008674 : ,U1A,ECHO 008675 : R,WTC,ADR 008676 : E,VTM,-1 008677 : ,XTA,MSK6 008678 : S/ADR:R,ATX,MSK 008679 : ,ITA,E 008680 : R,ATX,ADR 008681 : ,UJ,ECHO 008682 : C 008683 : C----- CTPEЛKA B HAЧAЛO CTPOKИ 008684 : SETBEG:R,UTC,STR 008685 : E,VTM, 008686 : ,XTA,MSK1 008687 : ,UJ,S/ADR 008688 : C 008689 : C----- BCTABKA CИMBOЛA 008690 : INSCHAR:,BSS, 008691 : R,XTA,ADR 008692 : ,ATI,S 008693 : C,VTM,STR+14 008694 : R,J+M,C 008695 : S,XTA, 008696 : ,ATX,RR 008697 : ,XTA, 008698 : S,ATX, 008699 : INSC1:C,UTM,-1 008700 : C,XTA, 008701 : ,UZA,INSC2 008702 : ,ASN,64+8 008703 : C,ATX, 008704 : ,YTA, 008705 : C,AOX,+1 008706 : C,ATX,+1 008707 : ,UJ,INSC1 008708 : INSC2:,ITA,C 008709 : R,AEX,ADR 008710 : ,U1A,INSC1 008711 : ,XTA,RR 008712 : S,ATX, 008713 : ,ASN,64+8 008714 : ,YTA, 008715 : C,AOX,+1 008716 : C,ATX,+1 008717 : R,XTA,MSK 008718 : ,AEX,FULWOR 008719 : ,ATX,RR 008720 : R,XTA,STR+13.LAST WORD 008721 : ,AAX,MSKG+1 008722 : R,ATX,STR+13 008723 : S,XTA, 008724 : ,AUX,RR 008725 : ,XTS,BLANK6 008726 : R,AAX,MSK-1.*** 008727 : 15,AOX, 008728 : S,ATX, 008729 : ,UJ,ECHO 008730 : C 008731 : C----- ИCKЛЮЧEHИE CИMBOЛA 008732 : DELCHAR:,BSS, 008733 : R,XTA,ADR 008734 : ,ATI,S 008735 : R,XTA,MSK 008736 : ,AEX,FULWOR 008737 : ,ATX,RR 008738 : S,XTA, 008739 : ,APX,RR 008740 : S,ATX, 008741 : DELC1:S,UTM,1 008742 : S,XTA, 008743 : ,UZA,ECHO 008744 : ,ASN,64-8 008745 : S,ATX, 008746 : ,YTA, 008747 : S,AOX,-1 008748 : S,ATX,-1 008749 : ,UJ,DELC1 008750 : C 008751 : C=== ПPOЦECC : TAБYЛЯЦИЯ === 008752 : TABCH*:,BSS, 008753 : ,XTA,TABCH A 008754 : R,ATX,PROC 008755 : TABCH:,BSS, 008756 : N,XTA,COT 008757 : ,U1A,RESET 008758 : R,XTA,NPOS 008759 : ,ATI,E 008760 : ,NTR,3 008761 : ,A-X,=50 .40 ПOЗ. 008762 : ,U1A,TABCH1 008763 : R,XTA,TABUL2 008764 : E,AAX,B40-40 008765 : ,UJ,TABCH2 008766 : TABCH1:R,XTA,TABUL1 008767 : E,AAX,B40 008768 : TABCH2:,BSS, 008769 : ,UZA,DO TAB 008770 : ,XTA,INP A 008771 : R,ATX,PROC 008772 : DO TAB:R,XTA,ADR 008773 : ,ATI,S 008774 : S,XTA, 008775 : R,APX,MSK 008776 : R,ATX,CHAR 008777 : ,U1A,STEP/B 008778 : ,XTA,B46 008779 : R,ATX,CHAR 008780 : R,AUX,MSK 008781 : S,AOX, 008782 : S,ATX, 008783 : ,UJ,STEP/B 008784 : C 008785 : C=== ПPOЦECC : BЫBOД ПO KAHAЛY === 008786 : OUT:N,XTA,COT 008787 : ,U1A,RESET 008788 : R,WTC,ADR 008789 : E,VTM,1 008790 : E,XTA,-1 008791 : R,APX,MSK 008792 : R,ATX,CHAR 008793 : ,UZA,FIN*OUT 008794 : R,XTA,DSCR 008795 : ,AAX,B8.БEЗ ПEPEKOДИP. 008796 : R,AOX,CHAR 008797 : R,ATX,CHAR 008798 : R,XTA,MSK 008799 : ,ASN,64+8 008800 : ,U1A,OUT1 008801 : ,ITA,E 008802 : R,ATX,ADR 008803 : ,XTA,MSK1 008804 : OUT1:R,ATX,MSK 008805 : S,VTM,0.= "BЫBOД" 008806 : OUT*SYM:,BSS, 008807 : R,XTA,CHAR 008808 : N,ATX,COT 008809 : ,ASN,64+40 008810 : ,ATI,C 008811 : ,YTA, 008812 : ,U1A,PHOUT 008813 : R,XTA,NPOS 008814 : ,ATI,L 008815 : E,VJM,SIMULAT 008816 : ,ITA,L 008817 : R,ATX,NPOS 008818 : PHOUT:,BSS, 008819 : ,ITA,N 008820 : ,AEX,T*NIX 008821 : ,UZA,TXGO 008822 : R,VTM,RESET*TL 008823 : N,XTA,CIN.PEГEHEPAЦИЯ 008824 : S,AAX,.HA BBOДE 008825 : :,UZA,*+2 008826 : ,XTA, 008827 : N,ATX,COT 008828 : :N,XTA,COT 008829 : ,UJ,SET*OUT 008830 : FIN*OUT:,BSS, 008831 : R,XTA,DSCR 008832 : ,AAX,/PROM1 008833 : ,U1A,EPROMT1 008834 : R,XTA,DSCR 008835 : ,AAX,/PROM2 008836 : ,U1A,EPROMT2 008837 : N,XTA,CIN 008838 : ,AAX,B48/41 008839 : ,UZA,FIN*OP 008840 : R,ATX,CHAR 008841 : ,XTA,/BREAK .БЫЛA ПEPEБИBKA 008842 : ,UJ,FIN*OP 008843 : C 008844 : C----- ПEPEXOД HA BBOД C HAЧAЛA 008845 : EPROMT2:,BSS, 008846 : ,XTA,MSK1 008847 : R,ATX,MSK 008848 : R,UTC,STR 008849 : E,VTM, 008850 : ,ITA,E 008851 : R,ATX,ADR 008852 : C 008853 : C----- ПEPEXOД HA BBOД ДAЛЬШE 008854 : EPROMT1:,BSS, 008855 : R,XTA,DSCR 008856 : ,AAX,/INP 008857 : ,UZA,EPROMT3 008858 : ,XTA,INP A 008859 : R,ATX,PROC 008860 : ,UJ,INP 008861 : C 008862 : C----- ПEPEXOД HA BBOД 1 CИM. 008863 : EPROMT3:,BSS, 008864 : R,XTA,DSCR 008865 : ,ASN,64+42 008866 : ,ATI,14 008867 : ,XTA, 008868 : 14,WTC,*YCЫ 008869 : ,ATX,J*FLD 008870 : ,XTA,INP1 A 008871 : R,ATX,PROC 008872 : ,UJ,RESET*C 008873 : C 008874 : C=== ПEPEKЛЮЧATEЛЬ YПP.CИMBOЛOB === 008875 : C ( CYM = 0:SIMULAT , 1:BBOД ) 008876 : C 008877 : SW/CHAR:,BSS, 008878 : :E,UJ, .NULL 008879 : :,UZA,STEP .SOH 008880 : ,UJ,NOTCTRL 008881 : :,UZA,STEP .STX 008882 : ,UJ,NOTCTRL 008883 : :,UZA,STEP .ETX 008884 : ,UJ,NOTCTRL 008885 : :,UZA,STEP .EOT 008886 : ,UJ,NOTCTRL 008887 : :,UZA,STEP 008888 : ,UJ,NOTCTRL.ENQ 008889 : :,UZA,STEP .ACK 008890 : ,UJ,NOTCTRL 008891 : :,UZA,STEP .BELL 008892 : ,UJ,NOTCTRL 008893 : :,UZA,CUR*L .BS 008894 : ,UJ,LCURS 008895 : :,UZA,NEXTLINE .TAB 008896 : ,UJ,TABCH* 008897 : :,UZA,NEXTLINE .LF 008898 : ,UJ,NOTCTRL 008899 : :,UZA,LINE OUT.IL 008900 : ,UJ,NOTCTRL 008901 : :,UZA,HOME.HOME 008902 : ,UJ,NOTCTRL 008903 : :,UZA,STEP .CR 008904 : ,UJ,NOTCTRL 008905 : :,UZA,STEP .SO 008906 : ,UJ,NOTCTRL 008907 : :,UZA,STEP .SI 008908 : ,UJ,NOTCTRL 008909 : :,UZA,STEP .DLE 008910 : ,UJ,NOTCTRL 008911 : :,UZA,STEP .DC1 008912 : ,UJ,NOTCTRL 008913 : :,UZA,STEP .DC2 008914 : ,UJ,NOTCTRL 008915 : :,UZA,STEP .DC3 008916 : ,UJ,NOTCTRL 008917 : :,UZA,STEP .DC4 008918 : ,UJ,NOTCTRL 008919 : :,UZA,STEP .NAK 008920 : ,UJ,NOTCTRL 008921 : :,UZA,STEP .SYN 008922 : ,UJ,NOTCTRL 008923 : :,UZA,SET1 .PRINT 008924 : ,UJ,SETBEG 008925 : :,UZA,STEP .C.RIGHT 008926 : ,UJ,RCURS 008927 : :,UZA,CUR*UP.C.UP 008928 : ,UJ,NOTCTRL 008929 : :,UZA,CUR*DWN.C.DOWN 008930 : ,UJ,NOTCTRL 008931 : :,UZA,STEP .ESC 008932 : ,UJ,NOTCTRL 008933 : :E,UZA,.IC 008934 : ,UJ,INSCHAR 008935 : :E,UZA,.DC 008936 : ,UJ,DELCHAR 008937 : :,UZA,LINE OUT .DL 008938 : ,UJ,NOTCTRL 008939 : :,UZA,HOME.ERASE 008940 : ,UJ,NOTCTRL 008941 : C 008942 : C=== CИMYЛЯTOP KYPCOPA === 008943 : C ( S = 0:BЫBOД 1:BBOД ) 008944 : SIMULAT:,ITA,C 008945 : ,ASN,64+5 008946 : C,UZA,SW/CHAR 008947 : ,ITA,C 008948 : ,ARX,B1.KOДЫ, 008949 : ,ASN,64+7.БOЛЬШИE 176, 008950 : E,U1A,.ИГHOPИPYEM 008951 : C 008952 : C----- ШAГ ПO ЭKPAHY ----- 008953 : STEP:L,UTM,-80 008954 : L,VZM,NEXTLINE 008955 : L,UTM,81 008956 : E,UTC, 008957 : S,VZM, 008958 : R,XTA,NPOS 008959 : R,AEX,MAXPOS 008960 : ,UZA,LIMIT 008961 : E,UJ, 008962 : NEXTLINE:R,XTA,NSTR 008963 : ,AAX,B5 008964 : ,U1A,SET1 008965 : R,UTC,NSTR 008966 : HOME:,XTA, 008967 : ,ARX,B1 008968 : R,ATX,NSTR 008969 : L,VTM,1 008970 : S,V1M,LINE OUT 008971 : E,UJ, 008972 : CUR*DWN:,BSS, 008973 : R,XTA,NSTR 008974 : ,ARX,B1 008975 : R,ATX,NSTR 008976 : ,AEX,C21 008977 : CUR*UP:,U1A,LINE OUT 008978 : R,XTA,NSTR 008979 : ,ARX,C37 008980 : ,AAX,C37 008981 : :,U1A,*+1 008982 : ,XTA,B5 008983 : :R,ATX,NSTR 008984 : LINE OUT:,UTC,/LINE-/MAX 008985 : LIMIT:,XTA,/MAX 008986 : R,AOX,DSCR 008987 : R,ATX,DSCR 008988 : E,UTC, 008989 : S,VZM, 008990 : ,XTA,WA*COT A 008991 : R,ATX,PROC 008992 : E,UJ, 008993 : CUR*L:L,UTM,-1 008994 : L,VZM,PRELINE 008995 : E,UJ, 008996 : PRELINE:L,VTM,80 008997 : S,V1M,CUR*UP 008998 : E,UJ, 008999 : SET1:L,VTM,1 009000 : E,UJ, 009001 : C 009002 : C=== K O H Ц Ы П P O Ц E C C O B === 009003 : C 009004 : WA*COT:N,XTA,COT 009005 : ,U1A,RESET*C 009006 : C===== 009007 : FIN*OP:R,AOX,DSCR 009008 : ,AEX,/BUSY 009009 : ,AOX,/READY 009010 : ,AOX,INTBIT 009011 : ,AEX,INTBIT 009012 : R,ATX,DSCR 009013 : ,ASN,64+42 009014 : ,ASN,64-15 009015 : ,CALL,DELTIMER 009016 : C 009017 : C=== BOЗBPAT ИЗ ПPEPЫBAHИЙ === 009018 : C 009019 : RESET*C:,XTA,MCIN 009020 : N,AAX,CIN 009021 : N,ATX,CIN 009022 : C 009023 : RESET:,ITA,N 009024 : ,AEX,T*NIX 009025 : ,UZA,TXGO 009026 : ,UJ,RESET*TL 009027 : C 009028 : C******************************** 009029 : C*** WATANABE , TEKTRONIX *** 009030 : C******************************** 009031 : C 009032 : W*W:,XTA,DISREG 009033 : ,ATI,27B 009034 : ,AOX,=I0 009035 : ,*57,13B 009036 : WATANABE:,BSS, 009037 : ,XTA,DSCR+BUF0 009038 : ,UZA,WXBEG 009039 : ,AEX,Г Y C 009040 : ,ASN,64+42 009041 : ,UZA,WXDONE 009042 : C 009043 : C----- PLOTTER ЗAHЯT 009044 : 14,VTM,WXT/1 009045 : 10,VJM,TT/PRI 009046 : ,XTA,BITJ 009047 : ,AOX,STCLTA 009048 : ,ATX,STCLTA 009049 : ,UJ,W*W 009050 : WXBEG:,24,2003B 009051 : ,XTA,ГYC 009052 : ,AAX,=:77 009053 : ,ATX,DSCR+BUF0 009054 : 9,XTA,J*ACC 009055 : ,AAX,/NOCL 009056 : ,U1A,WXBEG1 009057 : 14,VTM,WXT/3 009058 : 10,VJM,TT/PRI 009059 : ,XTA,DISREG 009060 : ,ATI,27B 009061 : W/ANSW:,*57,3 009062 : ,XTA,ГYC 009063 : ,ASN,64+15 009064 : ,ASN,64-6 009065 : ,AOX,=4056 009066 : ,AEX,101B 009067 : ,AAX,C7777 009068 : ,U1A,W/ANSW 009069 : ,ATX,101B 009070 : WXBEG1:9,XTA,J*ACC 009071 : ,AAX,/ECHO 009072 : ,U1A,WXDONE 009073 : ,XTA,=6HH'12''0' 009074 : ,ATX,STR+BUF0 009075 : 14,VTM,STR+BUF0 009076 : ,ITA,14 009077 : ,ATX,ADR+BUF0 009078 : ,XTA,MSK1 009079 : ,ATX,MSK+BUF0 009080 : 11,VJM,WXWRITE 009081 : WXDONE:R,VTM,BUF0 009082 : 11,VJM,GETSTR 009083 : ,XTA,MSK1 009084 : R,ATX,MSK 009085 : R,UTC, 009086 : 14,VTM,STR 009087 : ,ITA,14 009088 : R,ATX,ADR 009089 : 11,VJM,WXWRITE 009090 : ,EXT,4152B 009091 : ,AEX,WXBITS 009092 : ,APX,WXBITS 009093 : ,ASN,64+46 009094 : 9,ATX,J*ACC 009095 : ,UJ,NRSRET0 009096 : WXWRITE:,BSS, 009097 : R,VJM,WXCHAR 009098 : 10,VTM,TIMEWX 009099 : WXWAIT:,XTA,DISREG 009100 : ,ATI,27B 009101 : ,XTA,=R2.0 009102 : ,*57,13B 009103 : WAITWX:,BSS, 009104 : ,24,2003B 009105 : ,XTA,DSCR+BUF0 009106 : ,AAX,INTBIT 009107 : ,UZA,WXEND 009108 : 15,VTM,WXWAIT 009109 : 10,VLM,WXGO 009110 : 14,VTM,WXT/2 009111 : 10,VJM,TT/PRI 009112 : 10,VTM,TIMEWX 009113 : ,UJ,WAITWX 009114 : C 009115 : C----- Д И A Г H O C T И K A 009116 : TT/PRI:,XTA,ГYC 009117 : ,ASN,64-27 009118 : ,AUX,=6H'''7''7''''''' 009119 : ,AOX,=6HШ00('100') 009120 : 14,ATX, 009121 : ,APX,=6H'''7''7''''''' 009122 : ,ASN,64+34 009123 : 14,AOX, 009124 : 14,ATX, 009125 : ,ITA,14 009126 : 10,MTJ,14 009127 : ,UJ,TTPRINT 009128 : WXDRV:,XTA,DSCR+BUF0 009129 : ,AAX,INTBIT 009130 : ,UZA,CLMSK 009131 : 15,VTM,RETURN 009132 : C 009133 : C ЭTOT БЛOK PAБOTAET OT ПPEPЫBAHИЙ 009134 : C И OT ИMEHИ ПOЛЬЗOBATEЛЯ 009135 : WXCHAR:,24,2003B 009136 : ,WTC,ADR+BUF0 009137 : ,XTA, 009138 : ,APX,MSK+BUF0 009139 : ,ATX,CHAR+BUF0 009140 : ,UZA,WXCH 1 009141 : ,XTA,MSK+BUF0 009142 : ,ASN,64+8 009143 : ,ATX,MSK+BUF0 009144 : ,U1A,WXGO 009145 : ,XTA,MSK1 009146 : ,ATX,MSK+BUF0 009147 : ,XTA,ADR+BUF0 009148 : ,ARX,B1 009149 : ,ATX,ADR+BUF0 009150 : ,UJ,WXGO 009151 : WXCH 1:,XTA,DSCR+BUF0 009152 : ,AOX,INTBIT 009153 : ,AEX,INTBIT 009154 : ,ATX,DSCR+BUF0 009155 : ,ASN,64+42 009156 : ,ASN,64-15 009157 : 13,VTM,NEWTA 009158 : ,UJ,DELTIMER 009159 : WXEND:,BSS, 009160 : :,24,3B 009161 : 11,UJ, 009162 : WXGO:,XTA,INTBIT 009163 : ,CALL,PERPIR 009164 : ,WTC,CHLINER.BOCCTAHOBИM 009165 : 13,VTM,-1. БAЗ.PEГ. 009166 : ,XTA,INTBIT 009167 : ,AOX,DSCR+BUF0 009168 : ,ATX,DSCR+BUF0 009169 : ,XTA,CHAR+BUF0 009170 : ,ASN,64+40 009171 : ,AOX,WSTROBE 009172 : ,EXT,152B 009173 : 15,UJ, 009174 : C 009175 : C BXOД ПO ПPEPЫBAHИЮ ИЗ EXTINTER 009176 : C 009177 : MUX152:,EXT,4152B 009178 : ,AAX,TXBITS 009179 : ,AEX,TBUSY 009180 : ,U1A,TXDRV 009181 : MAYBEWX:,EXT,4152B 009182 : ,AAX,WBUSY 009183 : ,U1A,WXDRV 009184 : CLMSK:,BSS, 009185 : ,XTA,CIN*TX 009186 : ,AAX,C77777 009187 : ,UZA,CLMSK1 009188 : ,ATI,15 009189 : 15,XTA,DSCR 009190 : CLMSK1:,AOX,DSCR+BUF0 009191 : ,AAX,INTBIT 009192 : ,AEX,INTBIT 009193 : ,UZA,RETURN 009194 : 13,VTM,RETURN 009195 : ,UJ,CLOPIR 009196 : TXDRV:,XTA,CIN*TX 009197 : ,AAX,C77777 009198 : ,UZA,TXGOGO 009199 : ,ATI,15 009200 : 15,XTA,DSCR 009201 : ,AAX,INTBIT 009202 : ,U1A,TXDRV1 009203 : TXGOGO:,XTA,CLRBUSY 009204 : ,EXT,152B 009205 : ,UJ,MAYBEWX 009206 : TXDRV1:,BSS, 009207 : ,EXT,4152B 009208 : ,AAX,CSTROBE 009209 : ,U1A,TXDRV3 009210 : TXDRV2:,EXT,4152B 009211 : ,AAX,TBUSY 009212 : 14,VTM,MAYBEWX 009213 : ,U1A,TX/NOCL 009214 : ,XTA,COT*TX 009215 : ,UZA,TX/NOCL 009216 : ,ASN,64-8 009217 : ,ATX,COT*TX 009218 : ,YTA, 009219 : ,AOX,TSTROBE 009220 : ,EXT,152B 009221 : 14,UJ, 009222 : TXDRV3:14,VTM,TXDRV2 009223 : ,XTA,CIN*TX 009224 : ,U1A,TX/NOCL 009225 : ,EXT,4152B 009226 : ,ASN,64-40 009227 : ,AOX,CIN*TX 009228 : ,ATX,CIN*TX 009229 : ,XTA,CLRBUSY 009230 : ,EXT,152B 009231 : TX/NOCL:,XTA,B46 009232 : ,AOX,JLINE 009233 : ,ATX,JLINE 009234 : ,XTA,B47 009235 : ,UJ,PUTPIR 009236 : C 009237 : TXGO:,XTA,INTBIT 009238 : ,CALL,PERPIR 009239 : ,WTC,CHLINER.BOCCTAHOBИM 009240 : 13,VTM,-1.БAЗ.PEГИCTP 009241 : ,EXT,4152B 009242 : ,AAX,TBUSY 009243 : 14,VTM,RESET*TL 009244 : ,U1A,TX/NOCL 009245 : ,XTA,TSTROBE 009246 : ,EXT,152B 009247 : 14,UJ, 009248 : C 009249 : C----- A Д P E C A 009250 : WA*COT A:,,.OЖИДAHИE "COT" 009251 : ,Z00,WA*COT-B 009252 : TABCH A:,,.TAБYЛЯTOP 009253 : ,Z00,TABCH-B 009254 : OUT A:,,.BЫBOД 009255 : ,Z00,OUT-B 009256 : INP1 A:,,.ПOCИMB.BBOД 009257 : ,Z00,INP1-B 009258 : INP A:,,.BBOД 009259 : ,Z00,INP-B 009260 : SYSRET:,Z00,NR/LINE.= NRESOFF 009261 : ,Z00,CLBAS-B 009262 : A/BUF:,,.HAЧAЛO БYФEPOB 009263 : ,Z00,BUF0-B 009264 : NEWTA A:,, 009265 : ,Z00,NEWTA 009266 : C 009267 : C----- ШKAЛA CBOБOДHЫX БYФEPOB 009268 : POOL:,OCT,7770.9 KAHAЛOB 009269 : C 009270 : C----- ШKAЛA PAБOT БEЗ BЫБOPKИ KAHAЛA 009271 : C (JOB=0,10,12,13,17,20,22) 009272 : SCFORCON:,GOST,6H'200''261''240'000 009273 : C 009274 : C----- CTAHД.CИMBOЛЫ OKOHЧAHИЯ BBOДA 009275 : C ( ETX , LF ) 009276 : SETCTRL:,GOST,6H'40''100'0000 009277 : CIN*TX:,LOG, 009278 : COT*TX:,LOG, 009279 : C 009280 : C----- TEKCTЫ ДИAГHOCTИK 009281 : WXT/1:,ISO,8H 009282 : ,CONT,14HPLOTTER ЗAHЯT'0' 009283 : WXT/2:,ISO,8H 009284 : ,CONT,17HPLOTTER BЫKЛЮЧEH'0' 009285 : WXT/3:,ISO,8H 009286 : ,CONT,18HБYMAГY HA PLOTTER'0' 009287 : C 009288 : C----- K O H C T A H T Ы 009289 : MDS*1:,LOG,0000 3777 77777777 009290 : BLANK6:,ISO,6H 009291 : C1/6:,OCT,4002525252525253 009292 : MSK6:,ISO,6H'''''''''''377' 009293 : MSK1:,ISO,6H'377''''''''''' 009294 : :,ISO,6H'''377''''''''' 009295 : :,ISO,6H'''''377''''''' 009296 : :,ISO,6H'''''''377''''' 009297 : :,ISO,6H'''''''''377''' 009298 : :,ISO,6H'''''''''''377' 009299 : MSKG:,ISO,6H'377''''''''''' 009300 : :,ISO,6H'377''377''''''''' 009301 : :,ISO,6H'377''377''377''''''' 009302 : :,ISO,6H'377''377''377''377''''' 009303 : :,ISO,6H'377''377''377''377''377''' 009304 : C21:,LOG,21 009305 : RR:,BSS,1 009306 : C 009307 : C----- Б Y Ф E P A 009308 : BUF0:,BSS,32 .CH=0 WATANABE 009309 : :,BSS,288.32*9.CM. POOL 009310 : NR*LWA:,BSS, 009311 : ,END, 009312 : NRES074 : , NAME ,.01.02.86 009313 : C 009314 : C***** HEPEЗИДEHT ЭKCTPAKOДA KOHЦA 009315 : C 009316 : C----- И H Ф O P M A Ц И O H H Ы E П O Л Я 009317 : *ИПД:LC,BLOCK, 009318 : 00,CONT,XNF 009319 : 01,CONT,XNFM(3) 009320 : 04,CONT,XNW(2) 009321 : 06,CONT,XNCM(2) 009322 : 10,CONT,Ш/CЛYЖ 009323 : 11,CONT,Ш/FULL(5) 009324 : 16,CONT,*INCOGNI(15) 009325 : 35,CONT,LISTFLAG(3) 009326 : 40,CONT,BATCH(2) 009327 : 42,CONT,ИПЗ/ECTЬ(8) 009328 : 52,CONT,OUTJOBSC 009329 : 53,CONT,LIMTSC(2) 009330 : 55,CONT,БЫЛ*64 009331 : 56,CONT,SCOUT(6) 009332 : 64,CONT,ERRSC(10) 009333 : 76,CONT,БЫЛ*ПФ 009334 : 77,CONT,SCENDJO 009335 : NF:,WEQ,XNF 009336 : NFM:,WEQ,XNFM.N ПEPBOЙ ПOЛHOЙ 009337 : NCM:,WEQ,XNCM.KOЛ-BO ПOЛHЫX 009338 : NW :,WEQ,XNW .ДHЗ 'ЖДY' 009339 : NCMM1:,EQU,NCM-1 009340 : C----- 009341 : *ИПK:LC,BLOCK,*INFBA 009342 : INFEX:,EQU,*INFBA+NCM 009343 : *ИПK1:LC,BLOCK,PRTSTAT 009344 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 009345 : *YCЫ:LC,BLOCK,ГYC,RDSCAL(2),COMPIR(5) 009346 : ,CONT,AЦПY(2) 009347 : YC/ЖДY:,EQU,*YCЫ+NW 009348 : C 009349 : C----- ИCПOЛЬЗYEMOE B И П З 009350 : CPTIME:,EQU,-1 009351 : TMATH:,EQU,30B 009352 : REGSCAL:,EQU,100B 009353 : BISTIME:,EQU,110B 009354 : T LIM:,EQU,111B 009355 : AUS:,EQU,117B 009356 : NAME:,EQU,120B 009357 : SCEM:,EQU,123B 009358 : S/S32:,EQU,125B 009359 : LPSTR:,EQU,126B 009360 : W/POST:,EQU,135B 009361 : LOMIDZSC:,EQU,162B 009362 : *507:B,BLOCK,CB(2),KB(2) 009363 : ИП PEД:,EQU,1000B 009364 : M/END:,EQU,11.= ПO 'ИП PEД' 009365 : *566:B,BLOCK,ФИO(3),STAT1 009366 : ,CONT,STAT2(2),STAT3,STAT4 009367 : ,CONT,ФИO/ISO(2) 009368 : C 009369 : C----- O Б Щ И E M A C C И B Ы 009370 : WSD:LC,BLOCK,WSD1 009371 : SMASAV:LC,BLOCK,(1),SAVSR 009372 : SCALES:LC,BLOCK,(3),STCLTA 009373 : TPHYS:,LC,1 009374 : POST:LC,BLOCK,TNPBOX 009375 : PLAN/IS:,LC,1 009376 : ЧИCЛOCП:,LC,1 009377 : NY:,EQU,13 009378 : YCTP:,LC,1 009379 : CONTIME:LC,BLOCK,(10),TCB 009380 : REWINDSC:LC,BLOCK,(3),CHBOSS(4) 009381 : ADOFACC:LC,BLOCK,(1),NFSM,JFSM(2) 009382 : БAЗAПPИЗ:LC,BLOCK,(7),ЗBЗAHЯTA(19) 009383 : *SWCMN:LC,BLOCK,(4),OPRT 009384 : LISTSTRA:,LC,1 009385 : KOHHИЗ:,LC, 009386 : LNRT:,P/P,(KOHHИЗ) 1024 009387 : C 009388 : C----- П O Д П P O Г P A M M Ы 009389 : CLOMIR:,SUBP, 009390 : CLOPIR:,SUBP, 009391 : SELECT : ,SUBP, 009392 : STATIST:,SUBP, 009393 : DECLET:,SUBP, 009394 : TTPRINT : ,SUBP, 009395 : NRTABL : , SUBP , 009396 : NRESCALL:,SUBP, 009397 : NRESOFF:,SUBP, 009398 : NR/64:,SUBP, 009399 : NRES064:,SUBP, 009400 : *WRBF64:,SUBP, 009401 : *CБPOC64:,SUBP, 009402 : NR/LINE:,SUBP, 009403 : NRL*P:,P/P,(NR/LINE) 1024 009404 : TBCП : , SUBP , 009405 : ЛTBCП:,P/P,(TBCП)1024 009406 : HЛTBCП:,P*P,(ЛTBCП)1024 009407 : HTBCП:,EQU,TBCП-HЛTBCП 009408 : C 009409 : C----- Д Y Б H E H C K И E C B Я З И 009410 : INF7CH:LC,BLOCK,NЗAД,W110,NЗCB,W107 009411 : ,CONT,(6),FBACK,(1),FLACT70 009412 : *LINKPAR:LC,BLOCK,(1),SC/CONC 009413 : BNR7CH :,LC,1 009414 : SCCLJ :,LC,1 009415 : R37BR:,SUBP, 009416 : NRES7CH:,SUBP, 009417 : PCBЯЗЬ :,P/P,(NRES7CH)1024 009418 : ACBЯЗЬ :,P*P,(PCBЯЗЬ )1024 009419 : ALBUF:,EQU,435B 009420 : SCMUJ:,EQU,1755B 009421 : C 009422 : C----- TEPMИHAЛЬHOE XOЗЯЙCTBO 009423 : NPAБЛИCT:,LC,1 009424 : *TLSIZE:LC,BLOCK,(1),XNPC(2),XNSS 009425 : NPC:,WEQ,XNPC 009426 : NSS:,WEQ,XNSS 009427 : NPC1:,EQU,NPC-1 009428 : NSS1:,EQU,NSS-1 009429 : *TLSYS:LC,BLOCK,STATSS,STATMT 009430 : INITSS:,EQU,STATSS+NSS 009431 : TIMESS:,EQU,INITSS+NSS 009432 : *TLBUFI:LC,BLOCK,CIN 009433 : *TLCONST:LC,BLOCK,(12),ZCIN(5),B42/19 009434 : *SCAL71:LC,BLOCK,(5),SCB71 009435 : C 009436 : C----- B P E M E H A , Д A T Ы 009437 : *542:B,BLOCK,BPEMЯ 009438 : *770:B,BLOCK,DDDATE 009439 : ABTIME:LC,BLOCK,DT 009440 : OT:,LC,2 009441 : TODAY:,LC,1.ДATA 009442 : C 009443 : C----- C T A T И C T И K A 009444 : *540:B,BLOCK,MDRU,ADRU 009445 : *USESTA:LC,BLOCK,ИMЯMЛ,HAЧЗOH 009446 : LIST:,EQU,2000B 009447 : KOЗA:,EQU,LIST+1018.ЗAПYCKИ 009448 : P*MD:,EQU,LIST+1019 009449 : P*MT:,EQU,LIST+1020 009450 : C 009451 : C----- C O M M O N - K O H C T A H T Ы 009452 : C5:,LC,1 009453 : C7:,LC,1 009454 : C13:,LC,1 009455 : C37:,LC,1 009456 : C77:,LC,1 009457 : C177:,LC,1 009458 : C377:,LC,1 009459 : C1777:,LC,1 009460 : C77777:,LC,1 009461 : B24/1:,LC,1 009462 : MASK12:LC,BLOCK,B48/37 009463 : FULWOR:,LC,1 009464 : C 009465 : C----- Б И T Ы : 009466 : *677:B,BLOCK,BITS 009467 : ,CONT,B48,B47,B46,B45,B44,B43 009468 : ,CONT,B42,B41,B40,B39,B38,B37 009469 : ,CONT,B36,B35,B34,B33,B32,B31 009470 : ,CONT,B30,B29,B28,B27,B26,B25 009471 : ,CONT,B24,B23,B22,B21,B20,B19 009472 : ,CONT,B18,B17,B16,B15,B14,B13 009473 : ,CONT,B12,B11,B10,B9,B8,B7 009474 : ,CONT,B6,B5,B4,B3,B2,B1 009475 : SK*O:,EQU,B43 009476 : C 009477 : C----- P A Б O Ч И E Я Ч E Й K И 009478 : PAБЯЧ:,EQU,*B-72 009479 : PAБЯЧ:I,BLOCK,/S32,/PAY,/И15(7),/И8 009480 : ,CONT,/И7(6),/И1 009481 : ,CONT,DAT0(4),H(20) 009482 : ,CONT,IW(3),TIM,T1,T2 009483 : ,CONT,/OUTSC,ПCЛYЖ 009484 : ,CONT,TEL(4),S(0),TELNA(11) 009485 : P1:,P/P,(IW)1024 009486 : P2:,P*P,(P1)1024 009487 : EX:,EQU,IW-P2 009488 : C 009489 : C----- ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 009490 : NJ:,EQU,2 009491 : IP:,EQU,3 009492 : J4:,EQU,4 009493 : B:,EQU,5 009494 : C* 009495 : C******************************* 009496 : C* H A П O M И H A H И E * 009497 : C* * 009498 : C* YCTAHABЛИBATЬ 27 PEГИCTP * 009499 : C* ПEPEД ЭKCTPAKOДAMИ * 009500 : C******************************* 009501 : C* 009502 : C----- Б A З И P O B A H И E 009503 : *B:B,REL,* 009504 : C 009505 : C----- ПOДГOTOBKA PEГИCTPOB K ПEЧATИ 009506 : ,WTC,ГYC 009507 : IP,VTM, 009508 : ,WTC,ДHЗ 009509 : NJ,VTM, 009510 : IP,XTA,S/S32 009511 : ,NTR,3 009512 : ,ASN,64+15 009513 : ,ATX,/S32 009514 : ,XTA,SAVSR 009515 : ,ASN,64+41 009516 : ,ATX,/PAY 009517 : 14,VTM,-14 009518 : SAVIR:IP,UTC, 009519 : 14,XTA,25B 009520 : 14,ATX,/И15+14 009521 : 14,VLM,SAVIR 009522 : C 009523 : C----- CHЯTИE OCTAHOBOB ПO AЧ , NK 009524 : ,XTA, 009525 : IP,ATX,SCEM 009526 : IP,ATX,26B 009527 : IP,ATX,27B 009528 : :,VTMS,2002B 009529 : ,ATI,34B 009530 : ,ATI,35B 009531 : :,VTMS,3 009532 : C 009533 : C----- OЖИДAHИE KOHЦA OБMEHOB 009534 : 15,VTM,2000B 009535 : C 009536 : ПPOB KO:14,VTM,13B 009537 : 14,MTJ,27B 009538 : ,ITA,15 009539 : ,FUN,200B 009540 : ,AEX,B1. ЛИCT 009541 : ,UIA,П KO.= HE B OБMEHE 009542 : :,VTMS,2000B 009543 : 15,XTA,1 009544 : П KO:,VTMS,3 009545 : 15,UTM,2000B 009546 : 15,VIM,ПPOB KO 009547 : C 009548 : C----- HA BCЯKИЙ CЛYЧAЙ ДOЗAKAЖEM 009549 : C ЛИCTЫ : 01 , 40-47 009550 : 14,VTM,13B 009551 : 14,MTJ,27B 009552 : 13,VTM,LISTSTRA 009553 : ,*72,ЗAK ЛИ 009554 : C 009555 : C----- OЖИДAHИE ЗABEPШEHИЯ B WL1 : 009556 : C 009557 : CHWL:13,XTA, 009558 : ,UZA,ECHWL 009559 : ,AEX,ГYC 009560 : ,AAX,=:77 009561 : 13,UTM,1 009562 : ,U1A,CHWL 009563 : 13,VTM,LISTSTRA 009564 : 14,VTM,13B 009565 : 14,MTJ,27B 009566 : ,*57,3 009567 : :,24,3 009568 : ,UJ,CHWL 009569 : ECHWL:,BSS, 009570 : C 009571 : C----- OTKAЗ OT CП Д-68 009572 : ,XTA,NRTABL+ЛTBCП 009573 : ,ASN,64-10 009574 : ,ATI,13 009575 : 15,VTM,-287 009576 : CL SP:13,UTM,1 009577 : ,XTA,ЧИCЛOCП 009578 : ,UZA,F*TXT 009579 : 13,XTA,HTBCП 009580 : ,ASN,64+42 009581 : ,AEX,ДHЗ 009582 : ,UIA,SP NO 009583 : 13,ATX,HTBCП 009584 : :,VTMS,2003B 009585 : ,XTA,ЧИCЛOCП 009586 : ,A-X,B1 009587 : ,ATX,ЧИCЛOCП 009588 : :,VTMS,3 009589 : SP NO:15,VLM,CL SP 009590 : C 009591 : C===== ПOДГOTOBKA TEKCTOB ДЛЯ ПEЧATИ 009592 : C 009593 : F*TXT:,BSS, 009594 : C----- Д A T A , H O M E P Э B M 009595 : 15,VTM,DAT0 009596 : ,XTA,/T41 009597 : ,XTS,/T42 009598 : ,XTS,TODAY 009599 : ,ASN,64-5 009600 : ,AUX,/UM2 009601 : ,AOX,/T5.ЧИCЛO , MECЯЦ 009602 : ,XTS,TODAY 009603 : ,ASN,64-16 009604 : ,AUX,/UM3 009605 : ,AOX,/T6.ГOД 009606 : ,XTS,7 009607 : ,ASN,64+33 009608 : ,AAX,C7 009609 : ,ASN,64-24 009610 : ,AOX,/T7.N ЭBM C TP7 009611 : ,XTS,Ш/CЛYЖ 009612 : ,AAX,BITJ 009613 : ,ATX,П CЛYЖ 009614 : :,UZA,*+1 009615 : ,UTC,/T02-/T01 009616 : :,XTA,/T01.CДBИГ TEKCTA 009617 : ,XTS,TTE2 009618 : ,ATX,TEL 009619 : ,ATX,TEL+2 009620 : ,ATX,TEL+3 009621 : C----- CTPOKA "KOHEЦ ЗAДAЧИ" 009622 : 14,VTM,TEXEND 009623 : 13,VTM,-3 009624 : PR1:13,XTA,БЫЛ*64 009625 : ,AAX,BITJ 009626 : ,U1A,PR2 009627 : 14,UTM,2 009628 : 13,VLM,PR1 009629 : PR2:14,XTA, 009630 : 14,XTS,1.TИП KOHЦA (1,2) 009631 : ,XTS,/T1.2 ПPOБEЛA 009632 : ,XTS,/T31.ПOKA TИП CЛYЖ. 009633 : ,XTS,ГYC. 009634 : ,ASN,64-27 009635 : ,AUX,S34/7 009636 : ,AOX,/T2 009637 : 15,ATX,.ШИФP 009638 : 13,UTM,3 009639 : ,AEX,/T21 009640 : ,ATX,TEL+1.= "KШ.." 009641 : ,XTA,ERRSC 009642 : ,AAX,BITJ 009643 : ,UZA,PR21 009644 : ,XTA,SK*O 009645 : ,AEX,TEL+1 009646 : ,ATX,TEL+1.= "OШ.." 009647 : 13,VTM, 009648 : PR 21:,XTA,П CЛYЖ 009649 : ,U1A,CЛYЖ*1 009650 : ,ITA,13 009651 : ,ASN,64-45 009652 : IP,AOX,STAT1 009653 : IP,ATX,STAT1 009654 : 13,VTM, 009655 : NJ,XTA,*INFBA-NFM 009656 : ,AAX,B30/25 009657 : ,U1A,PR3 009658 : 13,VTM,1 009659 : NJ,XTA,*INFBA-NFM 009660 : ,AAX,B19 009661 : ,U1A,PR3 009662 : 13,VTM,2 009663 : PR3:13,XTA,/T3 009664 : ,ATX,H+5.TИП ЗAДAЧИ 009665 : ,ITA,13 009666 : ,ASN,64-45 009667 : IP,AOX,STAT2 009668 : IP,ATX,STAT2 009669 : C----- 009670 : ,XTA,/T32.BЫ/BB. 009671 : NJ,XTS,*INFBA-NFM 009672 : ,ASN,64-12.N BЫ,N BB 009673 : ,AUX,S1234 009674 : ,AOX,/T33 009675 : ,XTS,/T35.OTДEЛ= 009676 : IP,XTS,AUS. 009677 : ,AUX,/UM1 009678 : ,AOX,/T4 009679 : IP,XTS,ФИO . Ф И O (1) 009680 : IP,XTS,ФИO+1. Ф И O (2) 009681 : ,XTS, 009682 : CЛYЖ*1:,BSS, 009683 : ,XTA,/END 009684 : ,XTS,/END+1 009685 : ,XTS,/END+2 009686 : ,XTS,/END+3 009687 : ,XTS,DDDATE .ДEHЬ И MECЯЦ 009688 : ,AEX,/TC1 .ГEHEPAЦИИ DD 009689 : ,XTS,DDDATE+1.ГOД И N BEPCИИ 009690 : ,AEX,/TC2 . DD 009691 : ,XTS,/END+4.OCTATOK 009692 : IP,XTS,REGSCAL.ЗBEЗДOЧEK 009693 : ,AAX,B16. 009694 : ,AOX,П CЛYЖ.БEЗ ЛИCTOBAHИЯ 009695 : :,U1A,*+1.ПOCЛEДHИЙ 009696 : ,UTC,1.ПPOГOH БYMAГИ 009697 : :,XTA,/END+5.HE ДEЛAEM 009698 : ,XTS,БЫЛ*64 .CTEK CCФOPMИPOBAH 009699 : ,AOX,SC OUT 009700 : ,AEX,SC OUT 009701 : ,AAX,BITJ 009702 : ,UZA,ДOCБPOC 009703 : C 009704 : C----- ПEЧATЬ PEГИCTPOB И BPEMEH 009705 : ,XTA,OUTJOBSC 009706 : ,ATX,/OUTSC 009707 : ,AAX,ZBITJ 009708 : ,ATX,OUTJOBSC 009709 : ,XTA,B8 009710 : IP,AAX,REGSCAL 009711 : IP,AEX,REGSCAL 009712 : IP,ATX,REGSCAL 009713 : 13,VTM,TRA 009714 : ,PRINT,IPRH 009715 : ,PRINT,IPREG1 009716 : 13,UTM,TR7-TRA 009717 : ,PRINT,IPRH 009718 : ,PRINT,IPREG2 009719 : ,*50,71B 009720 : ,XTA,П CЛYЖ 009721 : ,U1A,CЛYЖ*2 009722 : 15,VTM,TEL+2 009723 : IP,XTA,KB 009724 : ,AEX,/T22 009725 : IP,XTS,KB+1 009726 : ,AEX,/T23.= KOM.BPEMЯ 009727 : C 009728 : C ---- ПOДГOTOBKA И ЗAПИCЬ ИTOГOBOГO 009729 : C COOБЩEHИЯ B DAYFILE 009730 : ,XTS,TDF1.= "KOHEЦ " 009731 : IP,XTS,CB 009732 : ,AEX,/M1 009733 : IP,XTS,CB+1 009734 : ,AEX,/M12.= CЧET.BPEMЯ 009735 : IP,XTS,KB 009736 : ,AEX,/M2 009737 : IP,XTS,KB+1 009738 : ,AEX,/M12.= KOM.BPEMЯ 009739 : NJ,XTS,*INFBA-NFM 009740 : 13,VTM,0."CB" 009741 : ,AAX,=7000 0000.KAHAЛЫ CBЯЗИ 009742 : ,U1A,PR31 009743 : 13,VTM,1."MT" 009744 : NJ,XTA,*INFBA-NFM 009745 : ,AAX,B21 009746 : ,UZA,PR31 009747 : 13,VTM,2."OП" 009748 : PR31:13,XTA,TDF2 009749 : 15,ATX, 009750 : 15,MTJ,12 009751 : 13,VJM,G*LPS 009752 : :,VTMS,2003B 009753 : 15,CALL,DECLET 009754 : :,VTMS,3 009755 : ,ASN,64-16.= <БYMAГA> 009756 : ,AOX,=6H''''''''. 009757 : 12,MTJ,15 009758 : IP,XTS,ФИO/ISO 009759 : IP,XTS,ФИO/ISO+1.= <ФAMИЛИЯ> 009760 : IP,XTS,AUS 009761 : ,AUX,/M3 009762 : ,AOX,TDF3.= N ПO "TPAS" 009763 : ,XTS, 009764 : 15,ATX, 009765 : NJ,XTA,*INFBA-NFM 009766 : ,ASN,64-1.ПPOЧИCTKA 009767 : ,ASN,64+1.ПPИЗHAKA 009768 : NJ,ATX,*INFBA-NFM. ' П P T ' 009769 : 15,VTM,S 009770 : ,ITA,15 009771 : ,AOX,=7770 0000 7760 0000 009772 : ,*72,4.B DAYFILE 009773 : C 009774 : C----- ЗABEPШAЮЩAЯ ПEЧATЬ 009775 : CЛYЖ*2:,BSS, 009776 : 13,VTM,DAT0 009777 : ,PRINT,IPRH 009778 : ,XTA,/OUTSC 009779 : ,ATX,OUTJOBSC 009780 : ДOCБPOC:,BSS, 009781 : ,XTA,БЫЛ*64 009782 : ,AOX,БЫЛ*ПФ 009783 : ,AAX,LISTFLAG 009784 : ,AOX,SC OUT 009785 : ,AEX,SC OUT 009786 : ,AAX,BITJ 009787 : ,UZA,HECБPOC 009788 : ,AAX,БЫЛ*ПФ 009789 : :,U1A,*+1 009790 : IP,UTC,REGSCAL 009791 : :,XTA, 009792 : ,AAX,B7 009793 : ,U1A,HECБPOC 009794 : ,ITA,B 009795 : ,ARX,INM64 009796 : ,UJ,NRESCALL 009797 : INM64:,Z00,NR/64 009798 : ,Z00,AFTWRBF-*B 009799 : AFTWRBF:,WTC,ГYC 009800 : 15,VTM,ИП PEД 009801 : ,ATI,7 009802 : 7,UTC,-NRES064 009803 : 13,VJM,*WRBF64 009804 : ,XTA,FULWOR 009805 : 15,ATX,M/END 009806 : 7,UTM,*WRBF64-NRES064 009807 : 7,UTC,*CБPOC64-*WRBF64 009808 : 13,VJM, 009809 : HECБPOC:,BSS, 009810 : ,XTA,П CЛYЖ 009811 : ,U1A,CЛYЖ*21 009812 : NJ,XTA,*INFBA-NFM 009813 : ,ASN,64+24 009814 : ,AAX,C77 009815 : ,UZA,CЛYЖ*21.HE C Ф.BBOДA 009816 : ,ASN,64-4 009817 : ,ATI,13 009818 : ,XTA,RCATI 009819 : ,*57,7 009820 : ,XTA,B48 009821 : :,24, 009822 : 13,AOX,LIST-16 009823 : 13,ATX,LIST-16 009824 : :,24,3 009825 : 14,VTM,2013B 009826 : 14,MTJ,27B 009827 : ,XTA,WCATI 009828 : ,*57,7 009829 : CЛYЖ*21:,BSS, 009830 : C 009831 : C----- ПOДЧИCTKИ ПO CBЯЗЯM 009832 : ,XTA,NЗCB 009833 : ,AEX,ДHЗ 009834 : ,UIA,NOTASK70 009835 : ,ATX,NЗCB 009836 : ,ATX,W107 009837 : NOTASK70:,XTA,NЗAД 009838 : ,AEX,ДHЗ 009839 : ,U1A,NOLINK 009840 : ,ATX,NЗAД 009841 : ,ATX,W110 009842 : ,ATX,TCB 009843 : ,XTA,C377 009844 : ,CALL,CLOPIR 009845 : ,XTA,SCCLJ 009846 : ,AOX,RDSCAL 009847 : ,ATX,RDSCAL 009848 : ,XTA, 009849 : ,ATX,SCCLJ 009850 : ,XTA,B31 009851 : ,AOX,B25 009852 : 13,VJM,CLOMIR 009853 : NOLINK:,BSS, 009854 : 15,VTM,-1.ДЛЯ "OTKAЦП" 009855 : C 009856 : C----- OCBOБOЖДEHИE ЗAДAЧИ BBOДA 009857 : ,XTA,ЗBЗAHЯTA 009858 : ,AEX,ДHЗ 009859 : ,U1A,*+2 009860 : :,*60,.OTKAЗ OT ЧИTAЛKИ 009861 : ,000,. 009862 : C 009863 : C----- OCBOБOЖДEHИE FS-1500 009864 : :,VTMS,2003B 009865 : ,XTA,JFSM 009866 : ,AEX,ДHЗ 009867 : ,U1A,OTK AЦП 009868 : ,ATX,JFSM 009869 : ,WTC,NFSM 009870 : ,EXT,10B 009871 : ,WTC,NFSM 009872 : ,XTA,B42 009873 : ,CALL,CLOMIR 009874 : C 009875 : C----- OCBOБOЖДEHИE PEAЛЬHЫX AЦПY 009876 : OTK AЦП:,XTA,ДHЗ 009877 : ,ASN,64-36 009878 : 15,AEX,AЦПY+1 009879 : ,AAX,=:0077 009880 : ,UIA,NAЦП 009881 : 15,XTA,AЦПY+1 009882 : ,AAX,=7700 7777 7777 7777 009883 : 15,ATX,AЦПY+1 009884 : NAЦП:15,VLM,OTK AЦП 009885 : 14,VTM,13B 009886 : 14,MTJ,27B 009887 : C 009888 : C----- OTKAЗ OT BETBЛEHИЯ 009889 : ,FUN,51B 009890 : C 009891 : C----- OTKAЗ OT OПEPATИBHOЙ ПAMЯTИ 009892 : C (CПEЦ.34-ЛИCT Y MYЛЬTИTAЙПA) 009893 : ,XTA,STATMT 009894 : ,ASN,64+42 009895 : ,AEX,ДHЗ 009896 : :,U1A,*+1 009897 : IP,ATX,TMATH+34B 009898 : :,*72,OTKAЗ ЛИ 009899 : ,XTA,ПCЛYЖ 009900 : :,U1A,*+1 009901 : C 009902 : C----- OTKAЗ OT ПAMЯTИ HA MБ 009903 : ,*72,OTKAЗ MБ 009904 : C 009905 : C----- OTKAЗ OT ИCПOЛЬЗOBAHHЫX MЛ 009906 : :,XTA,FULWOR 009907 : ,*57,4000B 009908 : C 009909 : C----- ДEMOHOПOЛИЗAЦИЯ HAПPABЛEHИЙ KBY 009910 : :,VTMS,2003B 009911 : 14,VTM,-3 009912 : REFKBY:14,XTA,CHBOSS+3 009913 : ,ASN,64+24 009914 : ,AEX,ДHЗ 009915 : ,AAX,C77 009916 : :,U1A,*+1 009917 : 14,ATX,CHBOSS+3 009918 : :14,VLM,REFKBY 009919 : C 009920 : C..... OTKAЗ OT MД 009921 : ,XTA,OTKAЗ MД 009922 : ,*57,-1 009923 : C 009924 : C..... OTKAЗ OT NRESLINE 009925 : ,XTA,NRTABL+NRL*P 009926 : ,AAX,C37 009927 : ,UZA,NRL/NO 009928 : ,XTA,OTKAЗNRL 009929 : ,*61,-1 009930 : C 009931 : C..... OTKAЗ OT 71 ЭK 009932 : NRL/NO:,XTA,SCB71 009933 : ,AAX,BITJ 009934 : ,UZA,NRT/NO 009935 : ,*71,OTKAЗ*71 009936 : NRT/NO:,BSS, 009937 : C 009938 : C----- OTKAЗ OT ФAЙЛOBЫX CИCTEM 009939 : ,XTA,C13 009940 : IP,ATX,W/POST+4 009941 : FSLOOP:,24,3 009942 : 14,VTM,2013B 009943 : 14,MTJ,27B 009944 : IP,XTA,LOMIDZSC 009945 : ,ASN,64-33 009946 : ,UZA,REFPOST 009947 : ,ANX,C77777 009948 : ,ATI,12 009949 : ,ASN,64-36 009950 : ,AOX,=0070 0010 0470 0000 009951 : ,*52,2 009952 : :12,XTA,B15 009953 : IP,AEX,LOMIDZSC 009954 : IP,ATX,LOMIDZSC 009955 : ,UJ,FSLOOP 009956 : C..... OTKAЗ OT ПOЧTOBOГO ЯЩИKA 009957 : REFPOST:NJ,XTA,TNPBOX-NF 009958 : ,UZA,LOG TIM 009959 : ,XTA,C5 009960 : ,ASN,64-15 009961 : ,*52,2 009962 : C 009963 : C===== CTATИCTИKA ПO ПOЛЬЗOBATEЛЯM 009964 : LOG TIM:,BSS, 009965 : ,XTA,7 009966 : ,AAX,B30 009967 : ,UZA,DEV/REF.-> БЛOKИPOBAHA 009968 : ,XTA,ADRU. 009969 : ,UZA,DEV/REF.-> HE BEДETCЯ 009970 : ,ASN,64-36 009971 : ,AUX,=770077 009972 : ,AOX,=:001401 009973 : ,ATX,IW. 009974 : ,AEX,B40 009975 : ,ATX,IW+1 009976 : : ,24,2003B 009977 : ,XTA,B48 009978 : IP,ATX,TMATH+1 009979 : IP,AOX,REGSCAL 009980 : IP,ATX,REGSCAL 009981 : ,XTA,B22 009982 : IP,AOX,TMATH+8 009983 : IP,ATX,TMATH+8 009984 : ,MOD,30B 009985 : ,ATI, 009986 : : ,VTMS,2000B. 009987 : ,XTA,2000B. 009988 : TI1:,24,2003B 009989 : ,XTA,MDRU 009990 : ,UZA,TI3 009991 : ,AEX,ДHЗ 009992 : ,UZA,TI2 009993 : ,*57,3 009994 : ,UJ,TI1 009995 : TI3:,XTA,ДHЗ 009996 : ,ATX,MDRU 009997 : TI2:,*50,67B 009998 : :,24,3 009999 : ,ATX,T1 010000 : ,XTA,IW 010001 : ,DRUM, 010002 : :,24, 010003 : ,XTA,P*MD 010004 : ,ATI,12 010005 : ,XTA,LIST 010006 : :,24,2003B 010007 : ,AEX,CODE 010008 : ,UZA,ST/IS 010009 : 13,VTM,-1019 010010 : 14,VTM,ДAT 010011 : ,ITA,14 010012 : 14,VJM,TTPRINT 010013 : :,24, 010014 : ,XTA, 010015 : CLST:13,ATX,LIST+1023 010016 : 13,VLM,CLST 010017 : 12,VTM,LIST 010018 : :,24,3 010019 : ,XTA,CODE 010020 : 13,VJM,WRITW 010021 : 13,VJM,WRITD 010022 : ,WTC,POINT0 010023 : 12,VTM, 010024 : ST/IS:12,MTJ,11 010025 : ,XTA,П CЛYЖ 010026 : ,U1A,CЛYЖ*3 010027 : IP,XTA,AUS 010028 : ,AAX,C1777 010029 : ,UZA,CЛYЖ*3.HET PASS 010030 : IP,XTA,AUS 010031 : ,ASN,64+36 010032 : ,UZA,CЛYЖ*3.HET OTДEЛA 010033 : 14,VTM,-2 010034 : TRN:14,UTC,2 010035 : IP,XTA,NAME 010036 : 13,VJM,WRITW 010037 : 14,VLM,TRN 010038 : 13,VJM,WRITD 010039 : IP,XTA,CPTIME 010040 : ,A+X,=R.5 010041 : ,NTR,3 010042 : ,A+X,=I0 010043 : ,ATX,T2. 010044 : C..... ПPOДBИЖKA CЧETЧИKA ЗAПYCKOB : 010045 : ,XTA,B1 010046 : :,24, 010047 : ,ARX,KOЗA 010048 : ,ATX,KOЗA 010049 : ,VTMS,3 010050 : ,XTA,LIMT SC 010051 : ,AAX,BITJ 010052 : ,UZA,TI21. 010053 : ,UTC,TLIM-BISTIME 010054 : TI21:IP,XTA,BISTIME 010055 : ,A+X,=R.5 010056 : ,A+X,=I0 010057 : ,ASN,64-19 010058 : ,AOX,T2 010059 : ,ASN,64-10 010060 : ,ATX,T2 010061 : ,XTA,LISTFLAG 010062 : ,AAX,BITJ 010063 : ,UZA,TI23.PEAЛЬHЫЙ BЫBOД 010064 : C ECTЬ ЛИ *LIST OUT 010065 : C ИЛИ HET EГO - BCE PABHO ПPO AЦПY MOЛЧИM. 010066 : ,XTA, 010067 : IP,ATX,STAT2.BЫBOД ПK,ПЛ 010068 : ,UJ,*NPUP* 010069 : TI23:,BSS, 010070 : 13,VTM,*NPUP* 010071 : G*LPS:IP,XTA,LPSTR 010072 : ,AAX,B24/1 010073 : ,NTR,3 010074 : ,A*X,C1/72 010075 : ,AAX,C1777 010076 : 13,UZA, 010077 : ,ARX,B1 010078 : 13,UJ, 010079 : *NPUP*:,BSS, 010080 : ,AOX,T2 010081 : 13,VJM,WRITW 010082 : ,NTR,2 010083 : 14,VTM,-5 010084 : IP,XTA,AUS 010085 : IP,ATX,STAT3 010086 : TRE:14,UTC,STAT4 010087 : IP,XTA, 010088 : 13,VJM,WRITW 010089 : 14,VLM,TRE 010090 : 12,UTC,-1 010091 : 11,VTM, 010092 : CЛYЖ*3:,BSS, 010093 : 12,VTM,LIST+2 010094 : ,XTA,BPEMЯ 010095 : 13,VJM,WRITW 010096 : ,XTA,TODAY 010097 : 10,VTM,2570B.БЫЛO:2170 010098 : 13,VJM,WRITW 010099 : 12,VTM,LIST+1021 010100 : 14,VTM,1 010101 : 13,VJM,WRITD 010102 : ,WTC,YC/ЖДY 010103 : ,XTA,-1 010104 : 13,VJM,TWRIT 010105 : 14,VTM, 010106 : ,XTA,DT 010107 : 13,VJM,TWRIT 010108 : ,ITA,11 010109 : ,NTR,3 010110 : ,A-X,LIMITP 010111 : ,U1A,CБPOCMБ 010112 : SE*MT:,24,3 010113 : 13,VTM,30B 010114 : ,XTA,ИMЯMЛ 010115 : 14,VTM,13B 010116 : 14,MTJ,27B 010117 : 10,*57, 010118 : ,ATX,TIM 010119 : ,ITA,11 010120 : ,AEX,MAXP 010121 : ,U1A,CБPOCMБ 010122 : ,XTA,TIM 010123 : ,UZA,HET MЛ 010124 : ,ASN,64+45 010125 : ,UZA,ECTЬ MЛ 010126 : HET MЛ:,BSS, 010127 : ,*57,3 010128 : 10,VTM,2570B 010129 : ,UJ,SE*MT 010130 : TWRIT:,ATX,TIM 010131 : 14,A-X,OT 010132 : ,ATX,T2 010133 : ,XTA,TIM 010134 : 14,ATX,OT 010135 : ,XTA,T2 010136 : :,24, 010137 : 12,A+X, 010138 : WRITW:,24, 010139 : 12,ATX, 010140 : :,24,3 010141 : ,UJ,RET* 010142 : WRITD:,XTA,T1 010143 : ,UJ,WRITW 010144 : EX TAP:,24,3 010145 : ,ITA,12 010146 : ,ASN,64+4 010147 : ,U1A,OVERFL 010148 : ,ITA,12 010149 : 14,ARX, 010150 : 14,VTM,10B 010151 : 14,MTJ,27B 010152 : ,TAPE, 010153 : RET*:12,UTM,1 010154 : 13,UJ, 010155 : ECTЬ MЛ:,24, 010156 : ,XTA,P*MT 010157 : :,24,3 010158 : ,ATI,12 010159 : ,U1A,MЛ 2 010160 : ,WTC,HAЧЗOH 010161 : 12,VTM, 010162 : ,DRUM,EX+1 010163 : MЛ 1:14,VTM,INFTR 010164 : 13,VJM,EX TAP 010165 : :,24, 010166 : ,XTA,LIST 010167 : ,24,3 010168 : ,AEX,CODE 010169 : ,UZA,MЛ 1 010170 : 12,UTM,-1 010171 : ,DRUM,EX 010172 : MЛ 2:,24,3 010173 : 14,VTM,INFTW 010174 : ,WTC,POINT0 010175 : 11,VTM, 010176 : 13,VJM,EX TAP 010177 : ,ITA,12 010178 : ,ATX,P*MT 010179 : CБPOC MБ:,24,3 010180 : ,ITA,11 010181 : ,AEX,POINT0 010182 : ,U1A,HE ПYCT 010183 : C..... OБHYЛEHИE BCEX KBAHTOB 010184 : C CTATИCTИKИ HA БYФEPHOM 010185 : C TPAKTE : 010186 : :,VTMS, 010187 : 14,VTM,-1013 010188 : CL/KV:14,ATX,LIST+1017 010189 : 14,VLM,CL/KV 010190 : ,UJ,HE ПYCT 010191 : C 010192 : C----- ПEPEПOЛHEHИE ПOЛЬЗ.CTATИCTИKИ 010193 : OVERFL:,BSS, 010194 : ,XTA,П CЛYЖ 010195 : ,U1A,HE ПYCT 010196 : 14,VTM,DIAGN 010197 : ,ITA,14 010198 : :,24,2003B 010199 : 14,VJM,TTPRINT 010200 : HE ПYCT:,24, 010201 : ,ITA,11 010202 : ,ATX,P*MD 010203 : 14,VTM,2013B 010204 : 14,MTJ,27B 010205 : ,DRUM,EX+1 010206 : : ,24,2000B 010207 : ,XTA,LIST 010208 : : ,24,2003B 010209 : IP,XTA,TMATH+1 010210 : ,ASN,64+30 010211 : ,AAX,C177 010212 : ,ATI,14 010213 : ,XTA, 010214 : 14,ATX,TPHYS 010215 : ,ATX,MDRU. 010216 : ,XTA,=:4000 02 010217 : ,*57,4000B.OTKAЗ OT MЛ-30 010218 : C 010219 : C----- OTKAЗ OT ЗAXBAЧEHHЫX YCTPOЙCTB 010220 : DEV/REF:,24,3 010221 : J4,VTM,NY 010222 : DR1:J4,XTA,YCTP-1 010223 : ,ASN,64+42 010224 : ,AEX,ДHЗ 010225 : ,U1A,DR2 010226 : J4,ATX,YCTP-1 010227 : J4,ATX,CONTIME-1 010228 : DR2:J4,UTM,-1 010229 : J4,VIM,DR1 010230 : C 010231 : C----- OTKAЗ OT HEPEЗИДEHTOB 010232 : 12,VTM,LNRT 010233 : 14,VTM,R*NRS 010234 : ,ITA,14 010235 : ,ATX,IW 010236 : R*NRS:,VTMS,3 010237 : ,ATI, 010238 : :,VTMS,2003B 010239 : 12,XTA,NRTABL 010240 : ,AAX,C37 010241 : ,UZA,RN 3 010242 : ,ASN,64-10.AДPEC NR-ЛИCTA 010243 : ,ATI,13 010244 : 13,XTA, 010245 : ,ATI,14.ЧИCЛO HEPEЗИД. 010246 : RN 1:14,UTC, 010247 : 13,XTA, 010248 : NJ,AAX,BITS-15 010249 : ,UZA,RN 2 010250 : ,ITA,12 010251 : ,ASN,64-10 010252 : ,ATI,15 010253 : 14,J+M,15 010254 : ,ITA,15 010255 : ,ASN,64-24 010256 : ,AOX,IW 010257 : ,UJ,NRESOFF 010258 : RN 2:14,UTM,-1 010259 : 14,VIM,RN 1 010260 : RN 3:12,UTM,-1 010261 : 12,VIM,R*NRS 010262 : C 010263 : C----- ЧИCTKA БAЗЫ HEPEЗИДEHTA CBЯЗИ 010264 : ,XTA,NRTABL+PCBЯЗЬ 010265 : ,AAX,C37 010266 : ,UZA,CL*7C 010267 : ,ASN,64-10 010268 : ,ATI,13 010269 : 13,XTA,NRES7CH-ACBЯЗЬ 010270 : ,ASN,64+15 010271 : ,UZA,CL*7C 010272 : ,XTA,BNR7CH 010273 : CL*7C:,ATX,BNR7CH 010274 : 14,VTM,-2 010275 : C 010276 : C----- ДOФOPMИPOBAHИE TT-COOБЩEHИЯ 010277 : ,XTA,П CЛYЖ 010278 : ,U1A,TR NAME 010279 : NJ,XTA,*INFBA-NFM 010280 : ,ASN,64-12.N BЫ,N BB 010281 : ,AUX,S1234 010282 : ,AOX,TTE1 010283 : ,ATX,TEL 010284 : ,AEX,TTE1 010285 : ,U1A,TRNAME 010286 : ,XTA,TTE2 010287 : ,ATX,TEL 010288 : TRNAME:14,UTC,2. ПEPEПИCЬ 010289 : IP,XTA,NAME.NAME ЗAДAЧИ 010290 : 14,ATX,TELNA+2. 010291 : 14,VLM,TRNAME.... 010292 : ,XTA, 010293 : ,ATX,TELNA+3 010294 : : ,24,2003B 010295 : ,XTA,ПCЛYЖ 010296 : ,U1A,CЛYЖ*4 010297 : NJ,XTA,*INFBA-NFM 010298 : ,ASN,64+16 010299 : ,AAX,SC/CONC 010300 : ,UZA,CL*IB.HE KOHЦ-P 010301 : ,XTA,TELNA 010302 : ,ASN,64+16 010303 : ,AEX,TDF2 010304 : ,AAX,C377 010305 : ,ATI,12 010306 : ,UZA,RUNJOB 010307 : ,XTA,TELNA 010308 : ,AEX,S/MUJ 010309 : ,ASN,64-24 010310 : ,UIA,CL*IB 010311 : ,XTA,TELNA+1 010312 : ,ASN,64+16 010313 : ,APX,MASKN 010314 : ,ASN,64+44 010315 : ,ATI,13 010316 : RUNJOB:,BSS, 010317 : ,XTA,NЗCB 010318 : ,UZA,CL*IB.HET TASK70 010319 : ,XTA,ALBUF 010320 : ,UZA,CL*IB.HET БYФEPA 010321 : ,XTA,ERRSC 010322 : ,APX,BITJ 010323 : ,ASN,64+47 010324 : ,ARX,C5 010325 : ,ATX,WL1.ФЛAГ OШ. 010326 : ,WTC,ALBUF 010327 : 14,VTM, 010328 : 12,VZM,RUNJ1 010329 : ,XTA, 010330 : ,ATX,WL 010331 : 15,VTM,LMUJ 010332 : 13,UTC,-1 010333 : 14,XTA,SCMUJ 010334 : ,UZA,CL*IB 010335 : LMUJ:13,UTC,-1 010336 : 14,XTA,SCMUJ 010337 : ,UZA,ACT70 010338 : ,ANX,WL 010339 : ,ATX,WL 010340 : ,ATI,12 010341 : 12,UTM,-1 010342 : ,YTA, 010343 : 13,UTC,-1 010344 : 14,ATX,SCMUJ 010345 : WERUN:14,J+M,12.ALBUF+NT 010346 : ,XTA, 010347 : 12,ATX,20B 010348 : ,XTA,WL1 010349 : 12,ATX,1760B.EOJ 010350 : 15,UJ, 010351 : RUNJ1:,XTA,TELNA 010352 : ,APX,MASKN 010353 : ,ASN,64+44 010354 : ,ATI,12 010355 : 15,VJM,WERUN 010356 : ACT70:,BSS, 010357 : ,XTA,W107 010358 : ,UIA,CL*IB 010359 : ,XTA,NЗAД 010360 : ,UIA,TOFL70 010361 : ,XTA,COMPIR 010362 : ,AAX,SC/CONC 010363 : ,UZA,TOFL70 010364 : ,XTA,COMPIR 010365 : ,AAX,=7777 7777 7777 7400 010366 : ,ATX,COMPIR 010367 : ,033,34B 010368 : ,XTA,B1 010369 : ,ATX,W110 010370 : ,ATX,FBACK 010371 : ,XTA,NЗCB 010372 : ,ATX,NЗAД 010373 : 15,VTM,CL*IB 010374 : ,UJ,R37BR 010375 : TOFL70:,AEX,NЗCB 010376 : ,UZA,CL*IB 010377 : ,XTA,B1 010378 : ,ATX,FLACT70 010379 : CL*IB:,BSS, 010380 : ,XTA, 010381 : NJ,ATX,*INFBA-NFM 010382 : NJ,ATX,INFEX-NFM 010383 : 14,VTM, 010384 : ,ITA,NJ 010385 : ,ASN,64-30 010386 : ,AEX,OPRT 010387 : ,ASN,64+30 010388 : ,UZA,RP1.SUPRT 010389 : 14,VTM,-1 010390 : ,ITA,NJ 010391 : ,ASN,64-15 010392 : ,AEX,OPRT 010393 : ,ASN,64+15 010394 : ,AAX,C77777 010395 : ,UZA,RP1.UPRT 010396 : 14,VTM,-2.ПPOЧИE 010397 : RP1:NJ,XTA,PRTSTAT-NF 010398 : ,AAX,C77 010399 : NJ,AEX,PRTSTAT-NF 010400 : 14,AOX,B4 010401 : NJ,ATX,PRTSTAT-NF 010402 : IP,XTA,CPTIME 010403 : :,24,2003B 010404 : ,NTR,3 010405 : ,A+X,=I0 010406 : ,ASN,64-20 010407 : ,ATX,WSD1 010408 : IP,XTA,BISTIME 010409 : ,A+X,=I0 010410 : ,AOX,WSD1 010411 : ,ASN,64-8 010412 : ,AOX,ДHЗ 010413 : ,ATX,WSD1 010414 : ,ITA,B 010415 : ,ARX,INFSTA. 010416 : ,UJ,STATIST. 010417 : INFSTA:1,Z00,WSD1 010418 : ,Z04,RET-*B 010419 : CЛYЖ*4:,BSS, 010420 : C 010421 : C----- OCBOБOЖДEHИE TEPMИHAЛЬHЫX KAHAЛOB 010422 : C ПPИ CБOE ПOДCИCTEMЫ 010423 : 12,VTM,-NSS1+1.ПO ПOДCИCTEMAM 010424 : 14,VTM,-NPC1.ПO ФИЗ.KAHAЛAM 010425 : CH/SS:12,XTA,STATSS+NSS1 010426 : ,ASN,64+42 010427 : ,AEX,Д H З 010428 : ,U1A,ECH/SS 010429 : 12,UTC,NSS1.OTBЯЗKY KAHAЛOB 010430 : 15,VTM,-2. PEДAKTOPA 010431 : 15,VZM,EDITOR.CДEЛAЛ ЭKCTPAKOД 010432 : 12,ATX,TIMESS+NSS1. =0 010433 : 15,UTM,1.MYЛЬTИTAЙП 010434 : 15,V1M,CH/PC. - HET 010435 : ,ATX,NPAБЛИCT 010436 : ,ATX,531B.METKA TEPM.CTAT. 010437 : CH/PC:12,XTA,STATSS+NSS1 010438 : 14,AAX,B42+NPC1 010439 : ,UZA,ECH/PC 010440 : 12,AEX,STATSS+NSS1 010441 : 12,ATX,STATSS+NSS1 010442 : ,XTA,ZCIN 010443 : 14,AAX,CIN+NPC 010444 : 14,ATX,CIN+NPC 010445 : ECH/PC:14,VLM,CH/PC 010446 : EDITOR:,BSS, 010447 : ,XTA,Z48/43 010448 : 12,AAX,STATSS+NSS1 010449 : 12,ATX,STATSS+NSS1 010450 : ,XTA,B48/37 010451 : 12,AAX,INITSS+NSS1 010452 : 12,ATX,INITSS+NSS1 010453 : ,UJ,RET 010454 : ECH/SS:12,VLM,CH/SS 010455 : ,XTA,PLAN/IS 010456 : ,AEX,ДHЗ 010457 : ,AAX,C77 010458 : ,U1A,RET 010459 : ,ATX,PLAN/IS 010460 : ,ATX,BATCH 010461 : RET:,XTA,PLAN/IS 010462 : ,UZA,CH*TT 010463 : ,AOX,B48 010464 : ,ATX,PLAN/IS 010465 : CH*TT:,24,3.= OKOШKO = 010466 : ,ATI, 010467 : :,24,2003B.========= 010468 : ,XTA,OUTJOBSC 010469 : ,AOX,ERRSC 010470 : ,AEX,FULWOR 010471 : ,AAX,*INCOGNI 010472 : ,AAX,BITJ 010473 : ,U1A,NO TT 010474 : ,XTA,TELNA 010475 : ,UZA,NO TT 010476 : 14,VTM,TEL.TEKCT O KOHЦE 010477 : , ITA , 14 .HA TT-ПEЧATЬ 010478 : 14, VJM , TTPRINT .KOHEЦ Ш2 010479 : NO TT:,BSS, 010480 : C 010481 : C----- ПPOЧИCTKA HOMEPA ШИФPA 010482 : ,XTA,ГYC 010483 : ,AAX,K04536 010484 : ,ATX,ГYC 010485 : C 010486 : C----- ПPOЧИCTKA ШKAЛ OT БИTA ЗAДAЧИ 010487 : 15,VTM,OUTJOBSC-SCENDJO 010488 : CL SC:,XTA,ZBITJ 010489 : 15,AAX,SCENDJO 010490 : 15,ATX,SCENDJO 010491 : 15,VLM,CL SC 010492 : C 010493 : C----- OCBOБOЖДEHИE 0-ГO MAT.ЛИCTA 010494 : ,ITA,B 010495 : ,ASN,64+10 010496 : ,ATI,15 010497 : ,XTA, 010498 : 15,ATX,TPHYS 010499 : C 010500 : C----- OCBOБOЖДEHИE ЛИCTA ИПЗ 010501 : ,XTA,Ш/FULL 010502 : ,AAX,BITJ 010503 : ,UZA,CLRDSC 010504 : ,ITA,IP 010505 : ,ASN,64+10 010506 : ,ATI,15 010507 : ,XTA,ZBITJ 010508 : ,AAX,ИПЗ/ECTЬ 010509 : ,ATX,ИПЗ/ECTЬ 010510 : ,XTA,ГYC 010511 : ,AAX,Z15/1 010512 : ,ATX,ГYC 010513 : ,XTA, 010514 : 15,ATX,TPHYS 010515 : C 010516 : C----- HAC ИЗ ШKAЛЫ ГOTOBЫX 010517 : CLRDSC:,BSS, 010518 : ,XTA,ГYC 010519 : NJ,ATX,*YCЫ 010520 : ,XTA,RDSCAL. 010521 : ,AAX,ZBITJ 010522 : ,AOX,STCLTA 010523 : ,ATX,RDSCAL. 010524 : ,XTA,. 010525 : ,ATX,STCLTA 010526 : C 010527 : C===== И HA BЫБOP ДPYГИX 010528 : C (БOЛEE ДOCTOЙHЫX) 010529 : C 010530 : ,UJ,SELECT 010531 : WL :,BSS,1. 010532 : WL1:,BSS,1. 010533 : S/MUJ:,ISO,6H''''''-MU 010534 : IPRH:13,, 010535 : 13,, 010536 : :0,, 010537 : 8,, 010538 : IPREG1:B,Z00,/S32-*B 010539 : B,Z00,/И8-*B 010540 : :2,003,5 010541 : 0,, 010542 : :2,011,3 010543 : 0,, 010544 : :2,015,5 010545 : 8,006,7 010546 : IPREG2: B,Z00,/И7-*B 010547 : B,Z00,/И1-*B 010548 : :2,023,5 010549 : 8,006,6 010550 : RCATI:9,, 010551 : ,,LIST 010552 : WCATI:10,, 010553 : ,,LIST 010554 : DIAGN:,ISO,24HПEPEПOЛHEHA ПOЛЬЗ.CT-KA'' 010555 : TEXEND:,BSS, 010556 : ,GOST,12HЗAДAЧA CHЯTA 010557 : ,GOST,12HИCTEK. BPEMЯ 010558 : ,GOST,12HЛИMИT БYMAГИ 010559 : ,GOST,12HKOHEЦ ЗAДAЧИ 010560 : /T01:,GOST,6H '200'1 010561 : /T02:,GOST,6H '200''24' 010562 : /T1:,GOST,6H '265''' '265''' 010563 : /T2:,GOST,6HШ-00 010564 : /T21:,GOST,6H'163''160'PPB. 010565 : /T22:,GOST,6HЛГ'24'PPA 010566 : /T23:,GOST,6HPPAPPB 010567 : /T3:,GOST,6HПOTOK 010568 : ,GOST,6HTEPM. 010569 : ,GOST,6HBBOД 010570 : /T31:,GOST,6HCЛYЖ. 010571 : /T32:,GOST,6HBЫ/BB= 010572 : /T33:,GOST,6H0000 010573 : /T35:,GOST,6HOTДEЛ= 010574 : /T4:,GOST,6H000 - 010575 : /T41:,GOST,6H'212' '200''47' 010576 : /T42:,GOST,6H ДATA= 010577 : /T5 :,GOST,6H00/00/ 010578 : /T6 :,GOST,6H00 ЭB 010579 : /T7 :,GOST,6HM-0'214''214' 010580 : /UM1:,GOST,6H 000 010581 : /UM2:,GOST,6H3 01 0 010582 : /UM3:,GOST,6H 0000 010583 : /END:0,GOST,6H'214''214' *'265''20' 010584 : 1,GOST,9HOC ДYБHA 010585 : ,CONT,4H1.04 010586 : ,CONT,5H OT 010587 : 4,GOST,6H'265''17''214' *'265' 010588 : 5,GOST,6H'75''214''265''12'.'231' 010589 : 6,GOST,6H'75''214'.'231' 010590 : /TC1:,GOST,6HPPГPPГ.MACKИ ПEPEBOДA 010591 : /TC2:,GOST,6HPPПFP*. ISO B GOST 010592 : TRA:,BSS, 010593 : ,GOST,9H'201''136''200''76''136''214' 010594 : ,CONT,6HAДPEC 010595 : ,CONT,4HPAY 010596 : ,CONT,6H*И15* 010597 : ,CONT,6H*И14* 010598 : ,CONT,6H*И13* 010599 : ,CONT,6H*И12* 010600 : ,CONT,6H*И11* 010601 : ,CONT,6H*И10* 010602 : ,CONT,6H*И9** 010603 : ,CONT,6H*И8**'231' 010604 : TR7:,GOST,6H '200''23' 010605 : ,CONT,6H*И7** 010606 : ,CONT,6H*И6** 010607 : ,CONT,6H*И5** 010608 : ,CONT,6H*И4** 010609 : ,CONT,6H*И3** 010610 : ,CONT,6H*И2** 010611 : ,CONT,6H*И1**'231' 010612 : ДAT:,ISO,12HДATA'46'BPEMЯ'77''' 010613 : TTE1:,ISO,6H0000-'1' 010614 : TTE2:,GOST,6H111111 010615 : S1234:,GOST,6H777700 010616 : S34/7:,GOST,6H007700 010617 : B30/25:,LOG,77 0000 0000 010618 : Z15/1 :,LOG,7777 7777 7770 0000 010619 : Z48/43:,LOG,0077 7777 7777 7777 010620 : K04536 : ,LOG, 77000000 00077777 010621 : MASKN:,GOST,6H000017 010622 : TDF1:,ISO,6HKOHEЦ 010623 : TDF2:,ISO,18HCB Л=MT Л=OП Л= 010624 : TDF3:,ISO,6H (000) 010625 : /M1 :,GOST,6H'162''140'ИPPA 010626 : /M2 :,GOST,6H'141''140'ИPPA 010627 : /M3 :,GOST,6H00 0 010628 : /M12:,GOST,6HPPAPPП 010629 : C......... 010630 : CODE:,TEXT,8HOC ДYБHA 010631 : POINT0:,LOG,2004 010632 : LIMITP:,LOG,2016 010633 : MAXP :,LOG,3754 010634 : INFTR:,LOG,10 0100 0030 0000 010635 : INFTW:,LOG,00 0100 0030 0000 010636 : C1/72:,LOG,40001616 16161617 010637 : ЗAK ЛИ:,OCT,11 01 7647 77 010638 : OTKAЗ ЛИ:,OCT,00 4147 77 010639 : OTKAЗ MБ:,OCT,41 77777777 010640 : OTKAЗ MД:,OCT,6470 7240 406 010641 : OTKAЗ*71:,OCT,00777777 010642 : OTKAЗNRL:,GOST,6H0'12'0000 010643 : ,END, 010644 : DD71:,NAME,. 010645 : C 010646 : C HAЧAЛO PAБOTЫ - 13.03.1971 Г. 010647 : C 010648 : C 010649 : C ПPOMEЖYTOЧHЫЙ ФИHИШ - 10.06.1971 Г. 010650 : C 010651 : 'PEДAKЦИЯ OT 30.05.73' 010652 : 'PEДAKЦИЯ OT 25.06.78' 010653 : 'PEДAKЦИЯ OT 01.04.81' 010654 : ' 010655 : C----- 010656 : *ИПД:LC,BLOCK,(4),XNЖДY 010657 : ,CONT,XNC,XNCM,XNSEM 010658 : ,CONT,(8),XLFATA,XLTDIS,XLTPH 010659 : ,CONT,(4),XLQTRA,XLQTIM 010660 : *ПДИCK:,LC, 010661 : LTDR1:,WEQ,*ПДИCK 010662 : LTDR:,EQU,LTDR1+16 010663 : NЖДY:,WEQ,XNЖДY 010664 : NC :,WEQ,XNC 010665 : NCM :,WEQ,XNCM 010666 : NSEM:,WEQ,XNSEM 010667 : LFAT:,WEQ,XLFATA 010668 : LTPH:,WEQ,XLTPH 010669 : LTDIS:,WEQ,XLTDIS 010670 : NC*2:,P*P,(NC)2 010671 : NC*3:,P*P,(NC)3 010672 : NCM*3:,P*P,(NCM) 3 010673 : LQTRA:,WEQ,XLQTRA 010674 : LQT*2:,P*P,(LQTRA)2 010675 : LQTIM:,WEQ,XLQTIM 010676 : LQT1:,EQU,LQTIM+1 010677 : *TLSIZE:LC,BLOCK,XMTR,XPCH,XCON,XSS 010678 : LMTR:,WEQ,XMTR 010679 : NPCH:,WEQ,XPCH 010680 : NCON:,WEQ,XCON 010681 : NSS:,WEQ,XSS 010682 : NCON*LB:,P*P,(NCON)36 010683 : NSS3:,P*P,(NSS)3 010684 : C----- 010685 : EXCHNRS:,SUBP, 010686 : MAINBLCS:,SUBP,. 010687 : C 010688 : C ЗAKAЗЫ HA PACПPEДEЛEHИE ПAMЯTИ 010689 : C 010690 : C--------------------------------------- 010691 : C ФИKCИPOBAHO OTHOCИTEЛЬHOE ПOЛOЖEHИE: 010692 : C S M A S A V ПOCЛE * Y C Ы 010693 : C C M D R E C ПOCЛE T A B L E M T 010694 : C B L S T O U T ПEPEД S T A T I S T 010695 : C OT * П Д И C K ДO * T L P R M T 010696 : C OT Д H З ДO O T 010697 : C (ДЛЯ TAPEPRNT B БCЗ) 010698 : C--------------------------------------- 010699 : TPHYS:,LC,128 010700 : ШЛAГБAYM:,LC,NSEM 010701 : TABDRU:,LC,LTDR 010702 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,(2),M1RDSC,STCLTA. 010703 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR 010704 : ,CONT,SAVS16 010705 : Д H З :,LC,3 010706 : ABTIME:,LC,2 010707 : TODAY:,LC,2 010708 : OT:,LC,2 010709 : STARTJOB:,SUBP,. 010710 : MACRO64:,SUBP,. 010711 : *PR/COM:,SUBP, 010712 : CHEKMDFL:,LC,2. 010713 : OUTCW:,LC,2. 010714 : TABLEMT:LC,BLOCK,. 010715 : ,CONT,T1M(16),T1(32),T2M(16),T2(32),TNM(16),TANAMEMT(32) 010716 : C MD REC:LC,BLOCK,SC MDR(5),(1) 010717 : *STATBUF:,LC,1. 010718 : BLSTOUT:,LC,3. 010719 : STATIST:,SUBP,. 010720 : KOHTPOЛЬ:,SUBP,. 010721 : PUT TMP:,SUBP, 010722 : C 010723 : C... OЧEPEДЬ БYДИЛЬHИKOB 010724 : C (CM. MACRONEW) 010725 : C 010726 : QUETIM:,LC,LQT1 010727 : MACRONEW:,SUBP, 010728 : C 010729 : MACRO72:,SUBP, 010730 : MACRO73:,SUBP, 010731 : STATUSMT:LC,BLOCK,(1),OLD(4),(29) 010732 : SCDICH:,SUBP, 010733 : TRABUS:,LC,1. 010734 : TRACNT:,LC,1. 010735 : FULQUESC:,LC,1. 010736 : REWINDSC:,LC,10 010737 : WANTCHAN:,LC,1. 010738 : IW70:,LC,1. 010739 : CWJFOTRA:,LC,1. 010740 : CONTIME:LC,BLOCK,(12),TMTEC 010741 : ,CONT,FOMAMБ 010742 : MAЛOMБ:,SUBP, 010743 : NFRITR:,LC,1 010744 : COPYTR1:,LC,1 010745 : YCTP:,LC,13 010746 : WSD:LC,BLOCK,WS0D,WS2,FULLRD 010747 : FULWOR:,LC,1. 010748 : C3:,LC,1. 010749 : C5:,LC,1. 010750 : C7:,LC,1. 010751 : C13:,LC,1. 010752 : C14:,LC,1. 010753 : C37:,LC,1. 010754 : C77:,LC,1. 010755 : C177:,LC,1. 010756 : C377:,LC,1. 010757 : C777:,LC,1 010758 : C1400:,LC,1. 010759 : C1777:,LC,1. 010760 : C2003:,LC,1. 010761 : DISREG:LC,BLOCK,C2013 010762 : C3777:,LC,1. 010763 : C..... 12-PAЗPЯДHЫE MACKИ : 010764 : MASK12:,LC,3 010765 : C7777:,LC,1. 010766 : C76000:,LC,1. 010767 : C77357:,LC,1. 010768 : C77777:,LC,1. 010769 : B16/1:,LC,1. 010770 : B24/1:,LC,1. 010771 : B48/31:,LC,1. 010772 : B30/16:,LC,1. 010773 : C2004:,LC,1 010774 : B48/47:,LC,1 010775 : Z28/21:,LC,1 010776 : *C:LC,BLOCK,C6(2),C574,C176000 010777 : *CB:LC,BLOCK,B48/44,C17,Z25/7 010778 : ,CONT,B36/31,B48/13,B13/2 010779 : MSTART:,LC,1. 010780 : NSTAJOB:,LC,1. 010781 : EXTINTER:,SUBP,. 010782 : INTER:,SUBP,. 010783 : PERMIR:,SUBP,. 010784 : CLOMIR:,SUBP,. 010785 : INTINTER:,SUBP,. 010786 : ENTFOLIC:,SUBP,. 010787 : K COCEДY:,SUBP, 010788 : DISPBASE:LC,BLOCK,(1),DISMBASE 010789 : ,CONT,(2) 010790 : ,CONT,DISPFIL,DISPNAM 010791 : ,CONT,DSHIFT 010792 : OPERTERM:,SUBP, 010793 : *SWCMN:,LC,1 010794 : LISTSTRA:,LC,LQT*2 010795 : DRIDENT:,LC,2 010796 : SCALSTRA:,LC,63 010797 : ПPOBMЛ:,SUBP, 010798 : RECMDT:,SUBP, 010799 : BUFTRA:,LC,37 010800 : COMPUT16:,LC,3 010801 : ДOПYПP:,LC,11 010802 : NRESCALL:,SUBP,. 010803 : FLMAMБ:,LC,1 010804 : CIO*TL:,SUBP, 010805 : POST:,LC,128 010806 : DECLET:,SUBP, 010807 : MACRO75:,SUBP, 010808 : INF7CH:,LC,13 010809 : *TAKCA:,SUBP, 010810 : TASKSTRA:,LC,18 010811 : *TDIS:,LC,LTDIS. ДЛИHA MEHЯETCЯ ! 010812 : TRAM70:,SUBP,. 010813 : CALCOMP*:,SUBP, 010814 : MACRO61:,SUBP, 010815 : ERES*1:,LC,. 010816 : *NRP1:,PC,2. 010817 : ПEPФOPAЦ:,SUBP,. 010818 : NRERRMAC:,SUBP, 010819 : *NRP2:,PC,2. 010820 : NRES066:,SUBP,. 010821 : NRES074:,SUBP,. 010822 : *NRP3:,PC, 010823 : NRES73:,SUBP,. 010824 : POГATKA:,SUBP, 010825 : CЛYГA:,SUBP, 010826 : *NRP4:,PC,. 010827 : MAKE MT:,SUBP, 010828 : MULTITYP:,SUBP, 010829 : VALERINA:,SUBP, 010830 : *PL/MT:,LC,1 010831 : ENRP4:,LC,. 010832 : *NRP5:,PC,2 010833 : EFSMNRS :,SUBP,. 010834 : INTPT :,SUBP,. 010835 : FSCONTR :,SUBP,. 010836 : YBBKNRS :,SUBP,. 010837 : TA2M60 :,SUBP,. 010838 : TA1M60 :,SUBP,. 010839 : CORRADR:,SUBP, 010840 : ПPEPKAPT:,SUBP,.. 010841 : C 010842 : C... БYФEPA ЩETOK И ИПЗ ЗAДAЧ BBOДA 010843 : C COBMEЩEHЫ C П/П STARTDD ! 010844 : C 010845 : STARTDD:,SUBP, 010846 : *DRUMBAS:,SUBP, 010847 : *NRP6:,PC,2 010848 : NR7CH:,SUBP, 010849 : TERM7:,SUBP, 010850 : AEROPLAN:,SUBP, 010851 : *NRP7:,PC, 010852 : ZOO60:,SUBP, 010853 : STATTT:,SUBP, 010854 : OCCUPYD:,SUBP, 010855 : NRSMT*SE:,SUBP, 010856 : *NRP8:,PC,1 010857 : NRESPOST:,SUBP, 010858 : SPECMON:,SUBP, 010859 : WHO/USER:,SUBP, 010860 : TERM*LOC:,SUBP, 010861 : *NRP9:,PC, 010862 : NRSMDREC:,SUBP, 010863 : DISPINIT:,SUBP, 010864 : PRINTDR:,SUBP, 010865 : PUT PULT:,SUBP, 010866 : *NRP10:,PC,4 010867 : NRCDC405:,SUBP, 010868 : BUF405:,SC,0.CEKT.БYФEP CДC-ЧИTAЛKИ 010869 : OCTOPOЖH:,SUBP, 010870 : ПPOOБMEH:,SUBP, 010871 : EC*608:,SUBP, 010872 : *NRP11:,PC,1 010873 : NRESERR:,SUBP, 010874 : TERMINAL:,SUBP, 010875 : DISPAC71:,SUBP, 010876 : *NRP12:,PC,2 010877 : TASKSAV:,SUBP, 010878 : POIN12:,LP,0 010879 : LEN12:,EQU,POIN12-*NRP12 010880 : REZ12:,LC,1320B-LEN12 010881 : TARES:,SUBP, 010882 : *NRP13:,PC,1 010883 : EMULATOR:,SUBP,. 010884 : *NRP14:,PC,1 010885 : PRINTASK:,SUBP, 010886 : *BUFLP1:,SUBP, 010887 : *BUFLP2:,SUBP, 010888 : *NRP15:,PC,1 010889 : NRES064:,SUBP, 010890 : *WRBF64:,SUBP, 010891 : PROC/OUT:,SUBP, 010892 : C 010893 : C--- ЛИCT ДЛЯ M.Ю.ПOПOBA 010894 : C 010895 : *NRP16:,PC,1 010896 : NRESLINE:,SUBP, 010897 : C 010898 : C---------------------------- 010899 : C 010900 : *NRP17:,PC,1. 010901 : NRESCODE:,SUBP, 010902 : NRES072:,SUBP, 010903 : ПYCKAЧ:,SUBP, 010904 : BEGTTP:,PP,0 010905 : TTANAL:,SUBP, 010906 : PAЗHИЦA:,SUBP, 010907 : C----------------------------------------------------------------------- 010908 : KOHHИЗ:,LC,. 010909 : MAINSW:,SUBP,. 010910 : TESTTRAK:,SUBP, 010911 : WRITDISP:,SUBP, 010912 : DB0*:,LP,. 010913 : HAЧHИЗ:,EQU,64000B 010914 : DB0*1:,LP,HAЧHИЗ-DB0* 010915 : ДИCПHAMБ:,SUBP,. 010916 : *TLPRMT:,SUBP, 010917 : *TLSTAT:,SUBP, 010918 : *TLCONST:,SUBP, 010919 : *TLSYN:,SUBP, 010920 : *TLCONN:,SUBP, 010921 : *TLSYS:,LC,NSS3 010922 : *TLBUFO:,LC,NPCH 010923 : *TLBUFOP:,LC,NCON*LB+13 010924 : *ИПK :,LC,NCM*3 010925 : *ИПK1:,LC,NC *2 010926 : ALLTOISO:,SUBP, 010927 : ISOTOALL:,SUBP, 010928 : *TASK71:,LC,16 010929 : *SCAL71:,LC, 7 010930 : NPAБЛИCT:,LC,1 010931 : SCALES:LC,BLOCK,(1),MRDSCAL,(8) 010932 : ,CONT,SC/CLJ 010933 : SWING:,SUBP, 010934 : FATA:,LC,LFAT 010935 : TESTTA:,SUBP,. 010936 : TABPRT:,LC,128 010937 : *EFIX2M*:,LC,.ИHДИKAЦИЯ 010938 : DD71/W:,ENTRY, 010939 : C 010940 : C ФOPMИPOBAHИE ДИCПETЧEPCKOГO БAPAБAHA 010941 : C 010942 : :,UJ,WRITDISP 010943 : ,DATA,. 010944 : *MБ21:,LOG,21 0000 010945 : ,LOG,22 0000 010946 : C 010947 : C... ДЛЯ BЫЗOBA ДИCПETЧEPA C ДИCKA : 010948 : C A) 48-33 : ШKAЛA ФИЗ.MБ, ПEPEAДPECYEMЫX 010949 : C HA ФAЙЛ C ДИCПETЧEPOM. 010950 : C 19-13 : HOMEP ЭTOГO ФAЙЛA ПO FATA 010951 : C (BCTABЛЯETCЯ ПPOГPAMMHO) 010952 : C 12-1 : HAЧAЛЬHAЯ ЗOHA ФAЙЛA 010953 : C Б) 48-1 : ИMЯ CПEЦ-ФAЙЛA ДЛЯ ДИCПETЧEPA 010954 : C 010955 : ,LOG,0060 0000 0000 0400.MБ=16+17 010956 : ,TEXT,8HMONSYS '11' 010957 : C CTAHДAPTHOE ИMЯ MЛ 010958 : STNAME:,LOG,2245 1252 5122 4512. 010959 : BIT16/9:,LOG,17 7400 0017 7400 010960 : C OБЩИE KOHCTAHTЫ 010961 : CONST:,BSS,. 010962 : ,LOG,7777 7777 7777 7777. 010963 : ,LOG,3. 010964 : ,LOG,5. 010965 : ,LOG,7. 010966 : ,LOG,13. 010967 : ,LOG,14. 010968 : ,LOG,37. 010969 : ,LOG,77. 010970 : ,LOG,177. 010971 : ,LOG,377. 010972 : ,LOG,777 010973 : ,LOG,1400. 010974 : ,LOG,1777. 010975 : ,LOG,2003. 010976 : ,LOG,2013. 010977 : ,LOG,3777. 010978 : ,OCT,7777 010979 : ,OCT,0000 7777 010980 : ,LOG,7777 0000 010981 : ,LOG,7777. 010982 : ,LOG,76000. 010983 : ,LOG,77357. 010984 : ,LOG,77777. 010985 : ,LOG,17 7777. 010986 : ,LOG,7777 7777. 010987 : SCMDR0:,BSS, 010988 : ,OCT,7777 77. 010989 : C1:,BSS,. 010990 : CIMT1:,LOG,1. 010991 : MAX*T:,OCT,775.ПYCTOЙ TAЙMEP 010992 : C30/16:,LOG,77777 00000. 010993 : ,LOG,2004 010994 : ,OCT,6 010995 : ,OCT,7777 7760 0377 7777 010996 : C*48:,OCT,4 010997 : NJOBPR:,LOG,15. 010998 : :1,SET,NJOBPR. 010999 : 1,,MSTART. 011000 : :1,SET,NJOBPR. 011001 : 1,,NSTAJOB. 011002 : :4,SET,C30/16 011003 : 1,,B30/16. 011004 : :26,SET,CONST. 011005 : 1,,FULWOR. 011006 : :1,SET,C1 011007 : 1,,QUETIM 011008 : :1,SET,MAX*T 011009 : 1,,QUETIM+1 011010 : :1,SET,CONST. 011011 : 3,,REWINDSC 011012 : :1,SET,STNAME. 011013 : 48,,TNM 011014 : :1,SET,BIT16/9. 011015 : 8,,OLD. 011016 : :1,SET,C1.= ИПЗ 011017 : 1,,TPHYS+27.- CЛYЖ.ЗAДAЧ 011018 : :1,SET,C1. 011019 : 5,,TPHYS+28. 011020 : :1,SET,CIMT1. 011021 : 48,,T1M 011022 : :4,SET,*MБ21 011023 : 1,,DISPBASE+2 011024 : 1,SET,C*48 011025 : 1,,FLMAMБ.ЗAПPET ПYCKA 011026 : ,END, 011027 : STARTDD:,NAME, 011028 : PERMIR:,SUBP, 011029 : SELECT:,SUBP, 011030 : ********:,SUBP, 011031 : TESTTA:,SUBP, 011032 : STATIST:,SUBP, 011033 : SCDICH:,SUBP, 011034 : *ПДИCK:,SUBP, 011035 : DISPBASE:,LC, 011036 : LINCOM:LC,BLOCK,ISLINK.MEЖMAШ.CBЯЗЬ 011037 : *D71DATA:,EQU,765B.*** 011038 : SCALES:LC,BLOCK,(1),MRDSCAL 011039 : BUFTRA:LC,BLOCK,(1),(24),TRPRIP 011040 : *KOHCTPA:,LC,1 011041 : TPHYS:,LC, 011042 : TTTASK:,SUBP, 011043 : *327:B,BLOCK,(1),TTTASKIF 011044 : *360:B,BLOCK,(1),TESTIF 011045 : *PRT:LC,BLOCK,MINP,MAXP,NC,RP,RP1,RP2 011046 : TABPRT:LC,BLOCK,TPRT 011047 : *NRP1:,PC, 011048 : FREEP:,P/P,(*NRP1)1024 011049 : MASK12:,LC, 011050 : C377:,LC,1 011051 : C177:,LC,1 011052 : C77:,LC,1 011053 : C13:,LC,1 011054 : C77777:,LC,1 011055 : FULWOR:,LC,1 011056 : DISREG:LC,BLOCK,C2013 011057 : *TYP/MEM:,LC,1 011058 : *ИПД:,LC, 011059 : LENTPL:,EQU,*ИПД+22B.ДЛИHA TPHYS 011060 : C7:,LC,1 011061 : *TLBUFI:LC,BLOCK,CIN 011062 : *TLPRMT:LC,BLOCK,T*NIX(2),MOT(10),/UVCH/ 011063 : *TLSTAT:LC,BLOCK,(5),REQOUT 011064 : *TLSYN:LC,BLOCK,S*PAD,C*WAIT 011065 : *TLSIZE:LC,BLOCK,S*SYN,XNPCH 011066 : L MTR:,WEQ,S*SYN 011067 : NPCH:,WEQ,XNPCH 011068 : MPX*T:,SUBP, 011069 : MPXMASK:,LC,1 011070 : MAIN*C:,SUBP, 011071 : SW PINT:,SUBP, 011072 : RETURN:,SUBP, 011073 : SW INT:,SUBP, 011074 : PRT MASK:,EQU,SW INT - 1 011075 : *YCЫ:LC,BLOCK,(2),HAЧMACKA 011076 : TYPEMT:,SUBP, 011077 : FL405:,EQU,TYPEMT+4 011078 : NORECTP:,EQU,TYPEMT+7 011079 : STATUSMT:LC,BLOCK,(20),ШKEC(12),MISTERX 011080 : БAЗAПPИЗ:LC,BLOCK,(10),MEOF 011081 : *527:B,BLOCK,LSTAT,TSTAT 011082 : *USESTA:LC,BLOCK,(3),STPOINT 011083 : STATOUT:,SUBP, 011084 : C--- 011085 : *677:B,BLOCK,BITS,B48,B47,B46,B45,B44 011086 : ,CONT,B43,B42,B41,B40,B39,B38 011087 : ,CONT,B37,B36,B35,B34,B33,B32 011088 : ,CONT,B31,B30,B29,B28,B27,B26 011089 : ,CONT,B25,B24,B23,B22,B21,B20 011090 : ,CONT,B19,B18,B17,B16,B15,B14 011091 : ,CONT,B13,B12,B11,B10,B9,B8 011092 : ,CONT,B7,B6,B5,B4,B3,B2,B1 011093 : C--- 011094 : KOHHИЗ:,LC, 011095 : NP:,P/P,(KOHHИЗ)1024 011096 : NP1:,EQU,NP+1. 011097 : HAЧBEPX:,P*P,(NP1)(1024) 011098 : KC:,EQU,100B. 011099 : KC0:,EQU,101B. 011100 : TESTTRAK:,EQU,103B 011101 : C 011102 : C 011103 : C--- BXOД ПOCЛE ЧTEHИЯ C MБ : 011104 : C 011105 : START:6,BASE,START 011106 : ,XTA,DISPBASE+1 011107 : ,ASN,64+12 011108 : ,AAX,C77 011109 : ,ATI,14.MБ ДИCПETЧEPA 011110 : ,XTA,DISPBASE+4 011111 : 14,AAX,B48-10B 011112 : ,U1A,NOKS. - ДИCK 011113 : 13,VJM,CALCSUM 011114 : 14,VTM,. - MБ 011115 : ,AEX,KC0 011116 : ,UZA,NOKS 011117 : ,33, 011118 : NOKS:12,VTM,.БAЗA TESTTRAK 011119 : 13,VJM,TESTTRAK 011120 : C 011121 : C--- BЫЯCHИM PAЗMEP ПAMЯTИ : 011122 : C 011123 : ,XTA, 011124 : ,ATX,-1 011125 : ,ATX,-2 011126 : 4,VTM,-10 011127 : :,ATX,1 011128 : 4,VLM,* 011129 : ,XTA,=440 0000 1777.0==>137 011130 : ,MOD,20B.1==>77 011131 : :,24,2002B 011132 : ,ATX,1777B 011133 : ,ATX,3776B 011134 : 3,VTM,HAЧBEPX 011135 : :,24,2003B 011136 : 4,VTM,-10 011137 : :,ATX,1 011138 : 4,VLM,* 011139 : ,XTA,-2 011140 : ,U1A,TRAN2.32K 011141 : 4,VTM,1 011142 : ,XTA,-1 011143 : ,U1A,TRAN2.64K 011144 : 4,VTM,2.128K 011145 : C 011146 : TRAN2:,BSS, 011147 : C ПEPEПИCЬ 2ГO PEЗИДEHTA 011148 : 1,VTM,1-4096. 011149 : 2,VTM,70000B. 011150 : L4:3,XTA,7777B 011151 : 2,ATX,7777B 011152 : 2,UTM,-1 011153 : 3,UTM,-1 011154 : 1,VLM,L4. 011155 : ,XTA,*ПДИCK 011156 : ,AAX,=:0000 14 011157 : ,ATX,ISLINK 011158 : :,UZA,*+1 011159 : ,XTA,B24.MEЖMAШ.CBЯЗЬ 011160 : :,AOX,HAЧMACKA+1 011161 : ,ATX,HAЧMACKA+1 011162 : C 011163 : C... KOPPEKTИPOBKA TAБЛИЦ TL-KOMПЛEKCA 011164 : ,XTA,S*SYN 011165 : ,ASN,64+9 011166 : ,AAX,C177 011167 : ,UZA,REST M 011168 : ,ARX,C177.ИCПPABЛEHHЫE 011169 : ,ASN,64-40.BEЛИЧИHA 011170 : ,ATX,C*WAIT.ЗAДEPЖKИ 011171 : ,XTA,S*SYN.И ПYCTЫШKA 011172 : ,ASN,64-40.ДЛЯ CИHXPO- 011173 : ,ATX,S*PAD. HИЗAЦИИ 011174 : REST M:14,VTM,L MTR.ДЛИHY MATPИЦЫ 011175 : ,ITA,14. HAПPЯЖEHИЙ 011176 : ,ATX,S*SYN.- BOCCTAHOBИЛИ 011177 : 14,VTM,NPCH 011178 : S/GOI:14,UTM,-1 011179 : 14,VZM,CHMPX 011180 : 14,XTA,CIN.ЗAПYCK 011181 : ,AAX,B25.ПPOГPAMMHOЙ 011182 : 14,ASN,64-24.CИHXPOHИЗAЦИИ 011183 : ,AOX,REQOUT.KAHAЛOB 011184 : ,ATX,REQOUT 011185 : ,UJ,S/GOI 011186 : CHMPX:,XTA,CIN.ШK.OПEP.TEPM. 011187 : ,ATX,MAIN*C.HA CBOE MECTO 011188 : ,XTA,B25.KAHAЛ TEKTRONIX 011189 : ,APX,MOT 011190 : :,UZA,*+1.OTCYTCTBYET 011191 : ,ANX,. 011192 : :,ATX,T*NIX 011193 : ,XTA,MOT 011194 : ,ASN,64+36.MACKИ BBOДA 011195 : ,AAX,=6000.ДЛЯ CONSUL 011196 : :,AOX,HAЧMACKA+1 011197 : ,ATX,HAЧMACKA+1 011198 : C.... ЗAПYCK CПEЦ-KAHAЛA (ПЭM-2) 011199 : ,XTA,/UVCH/ 011200 : ,UZA,NO*NO 011201 : C 011202 : C... MOДИФИKAЦИЯ ПEPEKЛЮЧATEЛЯ 011203 : C П P E P Ы B A H И Й : 011204 : C 011205 : ,ASN,64+36 011206 : ,AAX,=6000 011207 : ,ATX,MPXMASK 011208 : ,UZA,ПЭM2 011209 : C... MYЛЬTИПЛEKCOP Г O И 011210 : ,AAX,B12 011211 : ,UZA,CH11 011212 : ,XTA,MPX/JMP 011213 : ,ATX,SW PINT+12. ПPП-12 011214 : CH11:,XTA,/UVCH/ 011215 : ,AAX,B47 011216 : ,UZA,CL/UVCH 011217 : ,XTA,B25 011218 : ,ARX,MPX/JMP 011219 : ,ATX,SW PINT+13. ПPП-11 011220 : ,XTA, 011221 : CL/UVCH:,ATX,/UVCH/ 011222 : ,UJ,NO*NO 011223 : C... MYЛЬTИПЛEKCOP И B T A H 011224 : ПЭM2:,XTA,MPX/JMP 011225 : ,ATX,SW PINT+5. ПPП-19 011226 : ,XTA,B19 011227 : NO*NO:,AOX,HAЧMACKA+1 011228 : ,ATX,HAЧMACKA+1 011229 : ,EXT,34B. ===> M ПPП 011230 : ,ATI, 011231 : :,UZA,*+1 011232 : ,XTA,B37 011233 : :,AOX,B*START 011234 : *ЧACTOTA:2,IFGE,FREQ,600 011235 : ,AEX,B40 011236 : ,AEX,B10 011237 : ,AOX,HAЧMACKA 011238 : ,ATX,HAЧMACKA 011239 : ,CALL,RESMASK 011240 : ,ГMAC,XTA 011241 : ,ATX,PRT MASK 011242 : C..... ПPИBЯЗKA MAIN-CONSOLE 011243 : ,XTA,B6 011244 : ,EXT,31B 011245 : C..... 011246 : ,XTA,FULWOR 011247 : ,ATX,MRDSCAL 011248 : ,XTA, 011249 : 1,VTM,-4095 011250 : CL/IPZ:,UTC,60000B 011251 : 1,ATX,4095 011252 : 1,VLM,CL/IPZ 011253 : 1,VTM,300B-477B 011254 : CL/BEG:1,ATX,477B 011255 : 1,VLM,CL/BEG 011256 : 13,VTM,TESTTA 011257 : ,ITA,13. 011258 : ,ATX,TESTIF+3 011259 : ,XTA,C13 011260 : ,ATX,TESTIF+5 011261 : 10,VTM,*D71DATA 011262 : ,ITA,10 011263 : 14,CALL,TTPRINT 011264 : C 011265 : C... ЗAПИCЬ B SCDICH ПPИЗH. "29 MБ" 011266 : C 011267 : 15,VTM,SCDICH+3 011268 : ,XTA,*ПДИCK 011269 : ,APX,B30 011270 : ,XTS,*ПДИCK 011271 : ,APX,B29 011272 : ,XTS,C2013. 011273 : ,ATI,21B. 011274 : ,ATX,TTTASKIF+5 011275 : 13,VTM,TTTASK 011276 : ,ITA,13 011277 : ,ATX,TTTASKIF+3 011278 : ,XTA,UJ/OCT 011279 : ,ATX,1000B 011280 : *ЧACTOTA:,IFGE,FREQ,600 011281 : PER*40:,SUBP, 011282 : :,XTA,B*START 011283 : ,ANX, 011284 : ,ATI,13 011285 : ,XTA,TOPER40 011286 : :13,ATX,SW INT-1 011287 : ,UJ,*+2 011288 : TOPER40:13,VTM,RETURN 011289 : ,UJ,PER*40 011290 : *ЧACTOTA:,ENDIF, 011291 : C 011292 : C--- ДOOФOPMЛEHИE ПO ЛEHTAM : 011293 : C 011294 : 14,VTM,-3 011295 : 15,VTM,W.CTEK 011296 : LTMT:14,XTA,TYPEMT+3 011297 : ,ASN,64+46 011298 : ,ATI,13 011299 : ,UZA,TMT1 011300 : 13,XTA,TEC-1 011301 : TMT1:14,ATX,ШKEC+3 011302 : 14,XTA,TYPEMT+3 011303 : ,AAX,=6200 0000 0000 0070 011304 : 14,ATX,TYPEMT+3 011305 : ,UZA,TMT5 011306 : 13,VTM,-3 011307 : TMT2:13,XTA,TYPEMT+3 011308 : 14,AEX,TYPEMT+3 011309 : ,AAX,C77 011310 : ,U1A,TMT3 011311 : ,ITA,13 011312 : ,ITS,14 011313 : 15,AEX, 011314 : ,U1A,TMT4 011315 : TMT3:13,VLM,TMT2 011316 : 14,MTJ,13 011317 : TMT4:13,UTM,6 011318 : ,ITA,13 011319 : ,ASN,64-18 011320 : 14,AOX,TYPEMT+3 011321 : ,AOX,=11 00000 000000 011322 : 14,ATX,TYPEMT+3 011323 : TMT5:14,VLM,LTMT 011324 : ,XTA,FL405.CЧ-K BPEMEHИ 011325 : ,ATX,543B.TOЛЬKO B ДYБHE ! 011326 : ,UZA,HE ДYБ 011327 : ,XTA,=2200.HAЧ.COCTOЯHИE 011328 : 15,CALL,TOCDC405. KHOПKИ 011329 : ,ATX,MEOF."END FILE" 011330 : ,XTA,B35 011331 : ,AOX,TYPEMT+1.ПPИЗHAK 011332 : ,ATX,TYPEMT+1.CDC608,405 011333 : HE ДYБ:,BSS, 011334 : ,XTA,NORECTP 011335 : ,AOX,MISTERX 011336 : ,ATX,MISTERX 011337 : C 011338 : C--- HAЧAЛЬHOE COCTOЯHИE TAБЛИЦ, 011339 : C CBЯЗAHHЫX C PAЗMEPAMИ ПAMЯTИ: 011340 : C 011341 : ,XTA,B46 011342 : ,AAX,*TYP/MEM 011343 : 4,AOX,LMEM 011344 : ,AAX,MASK12 011345 : ,ATX,*TYP/MEM 011346 : 4,XTA,LMEM 011347 : ,ASN,64+12 011348 : ,AAX,C377 011349 : ,ATX,LENTPL 011350 : ,XTA,FP 011351 : ,ATX,TPRT.MAXP 011352 : ,ARX,B1 011353 : ,ASN,64-15 011354 : ,AEX,TPRT 011355 : ,ATX,TPRT.MINP,MAXP 011356 : 4,XTA,LMEM 011357 : ,AAX,C377 011358 : 1,VTM,FREEP 011359 : 1,ATX,TPRT 011360 : ,XTA,FP 011361 : ,ARX,B2 011362 : ,ASN,64-15 011363 : 1,ATX,TPRT+1 011364 : ,AOX,FP 011365 : ,ATX,W 011366 : 1,UTM,1 011367 : MAKE1:1,UTM,1 011368 : ,ITA,1 011369 : ,AEX,LMEM.L32 011370 : ,AAX,C377 011371 : ,UZA,CHLSTP 011372 : ,AEX,LMEM 011373 : 4,AEX,LMEM 011374 : ,AAX,C377 011375 : ,UZA,LASTP 011376 : ,XTA,W 011377 : ,ARX,STEP 011378 : 1,ATX,TPRT 011379 : ,ATX,W 011380 : ,UJ,MAKE1 011381 : CHLSTP:4,VZM,LASTP.32K 011382 : ,XTA,B18 011383 : ,ARX,W 011384 : ,ARX,STEP 011385 : 1,ATX,TPRT 011386 : ,ARX,STEP 011387 : 1,ATX,TPRT+5 011388 : ,ARX,B3 011389 : ,ATX,W 011390 : 1,UTM,5 011391 : ,UJ,MAKE1 011392 : LASTP:,XTA,W 011393 : ,AAX,C377 011394 : ,ARX,B1 011395 : ,ATX,W 011396 : ,XTA,FP 011397 : ,ASN,64-15 011398 : ,AOX,W 011399 : 1,ATX,TPRT 011400 : 7,VTM,SELECT 011401 : ,XTA, 011402 : 4,VZM,CLCONDR.32K 011403 : 4,UTM,-2 011404 : 4,VIM,STAT.64K 011405 : ,XTA,7 011406 : ,AAX,B47 011407 : ,UZA,STAT.ИCПPABHA BCЯ ПAM 011408 : C БЛOKИPOBKA CEГMEHTA 1 011409 : ,XTA,B1 011410 : ,ATX,TPHYS+137B.ЛИCT CEKT.OБM 011411 : 15,VTM,TPHYS+32 011412 : 1,VTM,-1 011413 : LBL:3,VTM,1-32 011414 : L32:15,ATX, 011415 : 3,VLM,L32 011416 : 15,VTM,TPHYS+96 011417 : 1,VLM,LBL 011418 : C ИЗ'ЯTИE OTCYT. ЛИCTOB ИЗ TABPRT 011419 : 1,VTM,TABPRT 011420 : ,XTA,CF33P 011421 : 1,ATX,33B 011422 : ,XTA,CF100P 011423 : 1,ATX,100B 011424 : 14,VTM,FREEP 011425 : ,ITA,14 011426 : ,ASN,64-15 011427 : ,AOX,CF137P 011428 : 1,ATX,137B 011429 : ,XTA,CFMAXP 011430 : 1,ATX,FREEP 011431 : C CДBИГ ЛИCTA ДЛЯ CEKTOPHOГO 011432 : ,XTA,CRP2 011433 : ,ATX,RP2 011434 : C OБMEHA C MД. 011435 : ,XTA,KYCMД 011436 : ,ATX,SCDICH.ЛИCT 137B 011437 : ,XTA,ПPПTRA 011438 : ,ATX,TRPRIP+1.ПPИПИCKA 011439 : C CДBИГ ЛИCTA KOHTPOЛЯ MБ-ЗAП. 011440 : ,XTA,*KOHCTPA 011441 : ,UZA,STAT.HE KOHTP-CЯ. 011442 : ,XTA,KYCMБ 011443 : ,ATX,*KOHCTPA 011444 : ,XTA,B1 011445 : ,ATX,TPHYS+100B 011446 : C ЗAПYCK DD - B CTATИCTИKY 011447 : STAT:,BSS, 011448 : ,XTA,LSTAT 011449 : ,ASN,64-25 011450 : ,ARX,B28 011451 : ,ATX,STATOUT-1.NZMAX 011452 : C ПPABKA YKAЗATEЛЯ TEPMИHAЛЬHOЙ CTATИCTИKИ 011453 : ,XTA,DISPBASE+6.N ЭBM 011454 : ,ARX, 011455 : :,U1A,*+1 011456 : ,UTC,12 011457 : :1,VTM,64-38 011458 : ,XTA,ST POINT 011459 : 1,ASN, 011460 : ,ASN,64+38 011461 : ,ATX,STPOINT 011462 : ,U1A,IS TST 011463 : ,ATX,TSTAT 011464 : IS TST:,BSS, 011465 : ,ITA,7.HA SELECT 011466 : ,UJ,STATIST. 011467 : C 011468 : CLCONDR:,ATX,*KOHCTPA 011469 : ,UJ,STAT 011470 : C 011471 : C--- KOHTPOЛЬHOE CYMMИPOBAHИE ДИCПETЧEPA: 011472 : C 011473 : CALCSUM:,ENTRY, 011474 : CALCSUM:,BSS, 011475 : KH:,EQU,HAЧBEPX+4095 011476 : 1,VTM,KC0-KH 011477 : ,XTA, 011478 : L6:1,UTM,KH+1 011479 : ,ATX,KC 011480 : ,ARX,KC 011481 : ,ARX,KC 011482 : 1,ARX, 011483 : 1,UTM,-KH 011484 : 1,V1M,L6 011485 : 13,UJ, 011486 : UJ/OCT:,NTR,3 011487 : ,UJ,******** 011488 : MPX/JMP:14,VTM,0. 011489 : ,UJ,MPX*T 011490 : CF33P :,LOG,100 00032 011491 : CF100P:,LOG,101 00033 011492 : CF137P:,LOG,136 011493 : CFMAXP:,LOG,000 137 011494 : CRP2:,LOG,101 011495 : KYC MД:,LOG,1 0137 0000 011496 : KYC MБ:,LOG,1 0040 0000 011497 : ПPПTRA:,LOG,10 0370 0000 011498 : TEC:,BSS, 011499 : ,LOG,0000 0764 0000 0377.ПPM+BГTB+KЛ+HЛ+CДB+HЗЗ 011500 : ,LOG,4000 0777 0000 0377.BCE, KPOME MГЗ 011501 : ,LOG,6000 0777 0000 0377. ---"--- 011502 : LMEM:,LOG,4000 0000 0040 0033.32K 011503 : ,LOG,2000 0000 0100 0077.64K 011504 : ,LOG,0000 0000 0200 0177.128K 011505 : FP:,, 011506 : ,,FREEP 011507 : STEP:,LOG,1 00001 011508 : W:,BSS,1 011509 : ,END, 011510 : WRITDISP:,NAME,.04.05.76 011511 : C 011512 : C***** ФOPMИPOBAHИE И ЗAПИCЬ ДИCПETЧEPA 011513 : C***** И MOHИTOPHOЙ CИCTEMЫ 011514 : C***** ( TT - COOБЩEHИE ) 011515 : C 011516 : MONITOR*:,SUBP, 011517 : DATA*:,LC,2 011518 : C 011519 : C..... CBЯЗИ C HOBЫM ДИCПETЧEPOM 011520 : C 011521 : MAINSW:,SUBP, 011522 : EMSW:,EQU,MAINSW+277B 011523 : HAЧHИЗ:,EQU,64000B 011524 : CДBHИЗ:,EQU,HAЧHИЗ-70000B 011525 : KOHHИЗ:,LC, 011526 : NP:,P/P,(KOHHИЗ)1024 011527 : HAЧBEPX:,P*P,(NP+1)1024 011528 : *DRUMBAS:LC,BLOCK,*B 011529 : C 011530 : C... HAЧAЛO И KOHEЦ HACTPOЙKИ 011531 : C (B OБCЛYГE HAЧAЛO = 70B) 011532 : C 011533 : DISPBASE:LC,BLOCK,DD/KYC,DD/IW70 011534 : *TLSIZE:,SUBP, 011535 : C 011536 : C 011537 : EXCHNRS:,SUBP, 011538 : KC0:,EQU,101B.ЭTAЛOH KC 011539 : *677:B,BLOCK,BITS,B48,B47,(5),B41(2) 011540 : ,CONT,B39,(7),B31,(12) 011541 : ,CONT,B18,B17,B16,B15,(11) 011542 : ,CONT,B3,B2,B1 011543 : I:,EQU,3 011544 : C3:,LC,1 011545 : C377:,LC,1 011546 : C77777:,LC,1 011547 : STARTDD:,SUBP, 011548 : CALCSUM:,SUBP, 011549 : *D71DATA:,EQU,MAINSW+270B 011550 : *TYP/MEM:,LC,1 011551 : *PRT:LC,BLOCK,(4) 011552 : *ИПД:LC,BLOCK,(5),XNC,XNCM 011553 : NCS:,WEQ,XNC 011554 : NCM:,WEQ,XNCM 011555 : MTRACNT:,EQU,*ИПД+27B 011556 : *ИПK1:LC,BLOCK,PRTSTAT 011557 : TABPRT:LC,BLOCK,TPRT 011558 : *0:,BLOCK,MINP,MAXP,NC,RP,RP1 011559 : TPHYS:,LC,1 011560 : *NRP1:,PC, 011561 : FREEP:,P/P,(*NRP1)1024 011562 : *NRP4:,LC, 011563 : ENRP4:,LC, 011564 : LMLT:,EQU,ENRP4-*NRP4 011565 : BMLT:,P/P,(*NRP4)1024 011566 : KMLT:,P/P,(LMLT )1024 011567 : C 011568 : C..... PAБOЧИE ЯЧEЙKИ 011569 : C 011570 : *10:B,BLOCK,INF0,INF,WS1,DELT,MTNRS,MMT 011571 : C 011572 : C..... ПEPEПИCЬ 'WRITDISP' B БEЗOПACHOE MECTO 011573 : START:1,VTM,*-END 011574 : 2,VTM, 011575 : ПEPE:2,UTC,START 011576 : ,XTA, 011577 : 2,UTC,74000B 011578 : ,CTX, 011579 : 2,UTM,1 011580 : 1,VLM,ПEPE 011581 : 7,VTM,74000B 011582 : 7,REL,START 011583 : ,UJ,CONT.HA HOBOE MECTO 011584 : C..... ПEPEПИCЬ 'MAINSW' HA CBOE MECTO 011585 : CONT:1,VTM,MAINSW-EMSW 011586 : ,DRUM,SAVMNT 011587 : 2,VTM, 011588 : 13,VTM,*D71DATA 011589 : ,XTA,DATA* 011590 : 13,ATX, 011591 : ,XTA,DATA*+1 011592 : 13,ATX,1 011593 : L1:2,UTC,MAINSW 011594 : ,XTA, 011595 : 2,UTM,1 011596 : 2,CTX,477B 011597 : 1,VLM,L1 011598 : C ДЛЯ ЗAПYCKA DD 011599 : ,XTA,JSTDD 011600 : ,CTX,1000B 011601 : ,CTX,600B 011602 : ,CTX,603B 011603 : C 011604 : C 011605 : C... ИHBEPTИPYEM ДЛИHY OЧEPEДИ 011606 : C ЗAKAЗOB HA OБMEH, C YЧETOM 011607 : C HEOБXOДИMOГO PEЗEPBA ДЛЯ 011608 : C OПOЗHABAHИЯ ДИCKOB. 011609 : C 011610 : ,XTA,MTRACNT 011611 : ,NTR,3 011612 : ,A-X,=10 011613 : ,AEX,=3777 7777 7777 7777 011614 : ,ATX,MTRACNT 011615 : I,VTM,PRTSTAT 011616 : 13,VJM,CORADDR 011617 : 1,VTM,NCM 011618 : LP:1,UTM,-1 011619 : ,XTA,B1-5 011620 : 1,UTC, 011621 : I,ATX,NCS-NCM 011622 : 1,V1M,LP 011623 : ,XTA,B1-4 011624 : I,ATX,NCS-3 011625 : ,XTA,B1-3 011626 : I,ATX,NCS-4 011627 : I,VTM,*PRT 011628 : 13,VJM,CORADDR 011629 : ,XTA,FP 011630 : ,ATX,MAXPS 011631 : ,ARX,B3 011632 : I,ATX,RP1 011633 : I,ATX,RP 011634 : C..... ФИKCAЦИЯ ЛИCTOB 1 PEЗИДEHTA 011635 : I,VTM,TPHYS 011636 : 13,VJM,CORADDR 011637 : 1,VTM,FREEP 011638 : ,XTA,B1 011639 : FIXPAG:1,UTM,-1 011640 : I,UTC, 011641 : 1,ATX, 011642 : 1,VIM,FIXPAG 011643 : 9,VTM,*B.*DRUMBAS 011644 : C..... CДBИГ 2-OЙ ЧACTИ PEЗИДEHTA ДИCПETЧEPA 011645 : 1,VTM,1-4096 011646 : 2,VTM,HAЧHИЗ 011647 : 3,VTM,HAЧBEPX 011648 : L2:2,XTA, 011649 : 3,CTX, 011650 : 2,UTM,1 011651 : 3,UTM,1 011652 : 1,VLM,L2 011653 : C..... HACTPOЙKA ДИCПETЧEPA HA ЗAДAHHЫЙ MБ 011654 : 9,XTA,.*DRUMBAS 011655 : ,ASN,64+12.ЗAПИCЬ 011656 : ,ATX,MMT 011657 : ,UZA,TO DR 1. HA MБ 011658 : ,ASN,64+3 011659 : ,UJ,TO DT 1. HA MЛ 011660 : TO DR 1:9,XTA,.*DRUMBAS 011661 : TO DT 1:,ASN,64-36 011662 : ,ATX,SAVDB 011663 : ,AUX,C770077 011664 : ,AOX,B39 011665 : ,ATX,INF 011666 : ,ATX,INF0 011667 : ,ATX,DD/IW70 011668 : ,APX,C770037 011669 : ,AUX,UPMKYC 011670 : ,ATX,DD/KYC 011671 : C..... PAЗMEЩEHИE MT HEPEЗИДEHTA 011672 : ,UTC,EXCHNRS 011673 : ,XTA,.MECTO 011674 : ,ATX,MT NRS.MT-HEPEЗИД. 011675 : ,AAX,B39 011676 : ,U1A,FIXNRS.- ЗAДAHO 011677 : ,XTA,DD/IW70 011678 : ,ARX,D MTNRS 011679 : ,UTC,EXCHNRS 011680 : ,ATX, 011681 : C..... HA ПOДCЧET KOHTP.CYMMЫ 011682 : ,XTA,DMTNRS 011683 : COPYNRPL:,AAX,C777 011684 : ,AOX,SAVDB 011685 : ,ATX,SAVDB 011686 : ,XTA, 011687 : ,CTX,102B 011688 : ,CALL,CALCSUM 011689 : ,ATX,KC0 011690 : C..... ПOДГOTOBKA K ЗAПИCИ ДИCПETЧEPA 011691 : ,XTA, 011692 : ,ATX,DELT 011693 : ,XTA,MMT 011694 : ,UZA,WR DISP.ЗAПИCЬ HA MБ 011695 : 9,XTA,.*DRUMBAS 011696 : ,ASN,64-33 011697 : ,AUX,C770777 011698 : ,ATX,INF 011699 : ,AOX,B41 011700 : ,ATX,MMT 011701 : C..... OПPEДEЛEHИE ФИЗ.AДPECA ПO MЛ 011702 : C..... ( ДЛЯ TT - ПEЧATИ ) 011703 : ,FUN,113B. 011704 : C CYMMATOP = ДEЛЬTA, A ИP 14 = ФИЗ HOMEPY MФ. 011705 : ,ATX,DELT 011706 : ,ITA,14 011707 : ,ASN,64-12 011708 : ,ATX,INF0.ФИЗ. N MЛ 011709 : ,XTA,INF 011710 : ,AAX,C777.N HAЧ.ЗOHЫ БEЗ 011711 : ,AOX,INF0.YЧETA ДEЛЬTЫ 011712 : ,ATX,INF0..... 011713 : C..... ЗAПИCЬ ДИCПETЧEPA HA MБ ИЛИ MЛ 011714 : WR DISP:1,VTM,-NP-4 011715 : ,XTA,INF 011716 : ,ARX,=100 0000 0036 011717 : ,ATX,TPП 011718 : ,ARX,=1 011719 : ,ATX,TPП+1 011720 : L3:,*70,INF 011721 : ,XTA,INF 011722 : ,ARX,B31*1 011723 : ,ATX,INF 011724 : 1,VLM,L3 011725 : ,ATX,WS1 011726 : ,ARX,C777.ИHДИKAЦ. 011727 : ,ATX,INF.N KOH.ЗOHЫ 011728 : C 011729 : C..... YCTAHOBKA HOMEPOB MAT.ЛИCTOB 011730 : C ДЛЯ MT - KAHAЛOB 011731 : ,XTA,MT NRS 011732 : ,AAX,=0004 3700 0077 7777 011733 : ,ATX,W 011734 : ,ASN,64+20 011735 : ,ATI,1 011736 : ,DRUM,MT NRS.ЧTEHИE NR-MT 011737 : 1,XTA,11B.CCЫЛKA 011738 : ,AAX,=1777.B FETCH-E 011739 : ,ATI,14 011740 : 14,J+M,1.BUFSAP 011741 : 14,VTM,KMLT 011742 : ,XTA,=:0777 7774 172.3-25,32-35,37 011743 : PSCAL:,ATX,LMEM 011744 : ,XTA,=:4 011745 : 14,ASN,64+BMLT.ИCKЛЮЧEHИE 011746 : ,AEX,LMEM.MT-ЛИCTOB 011747 : 14,VZM,EPSCAL 011748 : 14,UTM,-1 011749 : ,UJ,PSCAL 011750 : EPSCAL:2,VTM,-1 011751 : 3,VTM,-8 011752 : PUT PAG:,ATX,LMEM 011753 : ,ANX,=7777 7777 011754 : ,ATI,14 011755 : ,ASN,64-30 011756 : 3,UTC,8 011757 : 1,ATX,1 011758 : ,XTA,=:4 011759 : 14,ASN,64 011760 : ,AEX,LMEM 011761 : 3,VLM,PUT PAG 011762 : 3,VTM,-8 011763 : 1,UTM,10 011764 : 2,VLM,PUT PAG 011765 : ,XTA, 011766 : 1,ATX,-20 011767 : 1,ATX,-10 011768 : ,DRUM,W.ЗAПИCЬ NR-MT 011769 : ,XTA,MT NRS 011770 : ,AAX,B39.MECTO MT NRS 011771 : ,U1A,L4.- ЗAДAHO 011772 : C..... ПEPEПИCЬ MT HEPEЗИДEHTA 011773 : C..... BCЛEД ЗA ДИCПETЧEPOM 011774 : ,DRUM,MT NRS 011775 : ,XTA,WS1 011776 : ,AAX,MINF 011777 : ,AOX,B31 011778 : ,ATX,INF 011779 : ,*70,INF 011780 : C 011781 : C..... ЗAПИCЬ T P П HA 36-37 011782 : C..... ЗOHЫ ЭKCTEHTA ДИCПETЧEPA 011783 : C 011784 : ,XTA,INF 011785 : ,AEX,TPП+1 011786 : ,AAX,C777 011787 : ,AEX,INF 011788 : ,ATX,INF 011789 : ,DRUM,I1/1 011790 : ,TAPE,TPП 011791 : ,DRUM,I1/2 011792 : ,XTA,17B 011793 : ,ATX,3774B 011794 : ,XTA, 011795 : ,ATX,3775B 011796 : ,TAPE,TPП+1 011797 : 9,XTA,.CИCTEMY 011798 : ,ASN,64+27.ПEPEПИCЫBATЬ 011799 : ,UZA,L4. - HET 011800 : C..... ПEPEПИCЬ MOHИTOPHOЙ CИCTEMЫ 011801 : 1,VTM,1-64 011802 : ПEPEMC:,DRUM,INFMS 011803 : ,XTA,INF 011804 : ,ARX,B1 011805 : ,ATX,INF 011806 : ,TAPE,INF 011807 : ,XTA,INFMS 011808 : ,ARX,C7741 011809 : ,AAX,Z12/6 011810 : ,ATX,INFMS 011811 : 1,VLM,ПEPEMC 011812 : C..... ПOДГOTOBKA И ПEЧATЬ TT-COOБЩEHИЯ 011813 : L4:,XTA,INF0 011814 : ,ASN,64-30 011815 : ,AUX,UPM1 011816 : ,AOX,CTT1.HOMEP 011817 : ,ATX,TT+2.YCTPOЙCTBA 011818 : 1,VTM,-1 011819 : L5:1,XTA,INF0+1 011820 : ,ARX,DELT 011821 : ,ASN,64-39 011822 : ,AUX,UPM2.HOMEPA 011823 : 1,AOX,CTT2+1.HAЧ. И KOH. 011824 : 1,ATX,TT+4. ЗOH 011825 : 1,VLM,L5 011826 : 14,VTM,NP+6 011827 : ,ITA,14 011828 : ,ASN,64-39 011829 : ,AUX,=6H'''''7''7''7''' 011830 : ,AOX,=6HД=000 011831 : ,ATX,TT+5 011832 : 1,VTM,TT 011833 : 2,VJM,TT PR 011834 : ,XTA,MMT.MБ-ЗAПИCЬ 011835 : ,UZA,END WR. - ДA 011836 : ,TAPE,MMT.ПOДBOД K HAЧAЛY 011837 : END WR:,BSS, 011838 : ,XTA,DISPBASE+1 011839 : ,ASN,64+12 011840 : ,ATI,14 011841 : ,XTA,DISPBASE+4.ДИCПETЧEP 011842 : 14,AAX,B48-10B.HA ДИCKE 011843 : ,UZA,NO SERV. - HET 011844 : C 011845 : C... ЗAПИCЬ, ECЛИ HAДO, HACTPOЙKИ 011846 : C B 0-Й ЛИCT OБCЛYГИ HA 9/MONSYS 011847 : C 011848 : 3,VTM, 011849 : ,*70,=0014 0100 0016 0020 011850 : 1,VTM,DISPBASE-*TLSIZE 011851 : 2,VTM,2070B 011852 : NEW GEN:1,XTA,*TLSIZE 011853 : 2,AEX, 011854 : :,UZA,*+1 011855 : 3,UTM,1 011856 : :2,AEX, 011857 : 2,ATX, 011858 : 2,UTM,1 011859 : 1,VLM,NEW GEN 011860 : 3,VZM,NO SERV.БEЗ ИЗM. 011861 : 1,VTM,-3 011862 : ,XTA,=3053 4576 1634 0112 011863 : ,*76,1 011864 : NEW TRAN:1,XTA,*53 011865 : 1,CTX,2053B 011866 : 1,VLM,NEW TRAN 011867 : ,*70,=0004 0100 0016 0020 011868 : 1,VTM,TNG 011869 : 2,VJM,TTPR 011870 : C--- 011871 : NO SERV:,BSS, 011872 : ,DRUM,I1/1 011873 : ,DRUM,I2/1 011874 : ,DRUM,I1/2 011875 : ,XTA,17B 011876 : ,ATX,3774B. 011877 : ,XTA, 011878 : ,ATX,3775B 011879 : ,DRUM,I2/2 011880 : ,DRUM,RESMNT 011881 : ,XTA,SAVDB 011882 : ,ATX,120B 011883 : ,XTA,=14 3700 0021 0000 011884 : ,ATX,61B 011885 : ,XTA,44B 011886 : ,AOX,=:4 011887 : ,ATX,44B 011888 : ,UJ,MONITOR*+1 011889 : C KOPPEKTИPOBKA AДP. ИЗ 2-Г0 PEЗИДEHTA 011890 : CORADDR:,ITA,I 011891 : ,AAX,B15 011892 : 13,UZA, 011893 : I,UTM,CДBHИЗ 011894 : 13,UJ, 011895 : JSTDD:6,VTM,STARTDD 011896 : 6,UJ, 011897 : *50:6,VTM,DISPBASE-*TLSIZE 011898 : 2,VTM,70B 011899 : *51:2,XTA, 011900 : 2,UTM,1 011901 : *52:6,ATX,*TLSIZE+1024 011902 : 6,VLM,51B 011903 : *53:,UTC, 011904 : I1/1:,LOG,10 0100 0020 0000 011905 : I2/1:,LOG,00 0100 0000 0034 011906 : I1/2:,LOG,10 0100 0020 0001 011907 : I2/2:,LOG,00 0100 0000 0035 011908 : SAVMNT:,LOG,00 0000 0000 0033 011909 : RESMNT:,LOG,10 0000 0000 0033 011910 : HET MЛ:,BSS, 011911 : 1,VTM, T HET 011912 : 2,VTM,END WR 011913 : TT PR:,BSS, 011914 : ,ITA,1 011915 : ,FUN,76B 011916 : 2,UJ, 011917 : FIXNRS:,XTA,MTNRS 011918 : ,UJ,COPYNRPL 011919 : SAVDB:,LOG, 011920 : C..... 011921 : TT:,ISO,12HOC '47'ДYБHA'47' 011922 : ,BSS,4 011923 : ,ISO,6HЗOH.'''' 011924 : TNG:,ISO,30HБЛOK BЫЗOBA ДИCПETЧEPA ЗAПИCAH 011925 : :,ISO,30H B 420 ЗOHY ФAЙЛA 9/MONSYS.'' 011926 : T HET:,ISO,12HЗAKAЗ MЛ'47''' 011927 : ,BSS,1 011928 : UPM1:,GOST,6H000770 011929 : CTT1:,ISO,6HHA 00/ 011930 : UPM2:,GOST,6H777000 011931 : CTT2:,ISO,6H000-'1''1' 011932 : ,CONT,6H000/. 011933 : DMTNRS:,Z01,100B 011934 : ,,NP+5 011935 : INFMS:,014,100B 011936 : ,021, 011937 : FP:,, 011938 : ,,FREEP 011939 : STEP:,LOG,1 00001 011940 : MINF:,LOG,4 0000 0077 0777 011941 : UPMKYC:,LOG,70 0000 0000 1774 011942 : C770777:,LOG,77 0777 011943 : C770077:,LOG,77 0077 011944 : C770037:,LOG,77 0037 011945 : C7741 :,LOG,7741 011946 : C777 :,LOG,777 011947 : Z12/6:,LOG,7777 7777 7777 0037 011948 : B48/43:,OCT,77 011949 : B31*1:,LOG,100 0000 0001 011950 : MAXPS:,BSS,1 011951 : W:,BSS,1 011952 : LMEM:,BSS,1 011953 : TPП:,BSS,2 011954 : END:,BSS,1 011955 : ,END, 011956 : EMULAT:,NAME,.04.04.76 011957 : C 011958 : C***** ПOДПPOГPAMMA , OPГAHИЗYЮЩAЯ 011959 : C BЫЗOB HEPEЗИДEHTA 011960 : C ИHTEPПPETATOPA ЭKCTPAKOДOB 011961 : C 011962 : ДHЗ:,LC,1. 011963 : *YCЫ:LC,BLOCK,ГYC 011964 : SCEM:,EQU,83 011965 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 011966 : NRESCALL:,SUBP, 011967 : NREMULAT:,SUBP, 011968 : B24/1:,LC,1 011969 : DISREG:LC,BLOCK,C2013 011970 : C37:,LC,1 011971 : BIT3:,EQU,755B 011972 : C 011973 : ,ATX,KOД. 011974 : ,WTC,ГYC.ЗAKAЗ ЗAДAЧИ 011975 : ,XTA,SCEM. + 011976 : ,AOX,SCEM0.CTAHД.ИHTEPПP. 011977 : ,AAX,KOД. 011978 : ,AAX,B48/25. ИTOГO : 011979 : ,UZA,NO.- HE ИHTEPПP. 011980 : ,ANX,B24/1 011981 : ,AAX,C37. 011982 : ,ASN,64-15 011983 : ,ATX,SAVSR.HOMEP ЭK 011984 : ,ITA,14 011985 : ,AOX,SAVSR. 011986 : ,ATX,SAVSR.PEГИCTP14 011987 : ,ITA,27B 011988 : ,APX,C2013 011989 : ,ASN,64+24 011990 : ,AOX,SAVSR.PEЖИM.BOЗBPATA ( И27 ) 011991 : ,ATX,SAVSR. 011992 : ,ITA,27B. 011993 : ,AAX,BIT3. 011994 : ,ASN,64-20. 011995 : ,AOX,SAVSR. 011996 : ,ATX,SAVSR. 011997 : ,WTC,ГYC. 011998 : ,XTA,SCEM.ИHTEPПPETИPYEMЫ 011999 : ,AAX,B48/25.ЭKCTPAKOДЫ 012000 : ,AOX,SAVSR 012001 : ,WTC,ГYC.ИHФOPMAЦИЯ 012002 : ,ATX,SCEM.HEPEЗИДEHTY 012003 : ,XTA,NRWORD. 012004 : ,UJ,NRESCALL.EГO BЫЗOB 012005 : NRWORD:,Z00,NREMULAT 012006 : ,Z00,TO EMUL 012007 : TO EMUL:,ATI,14 012008 : 14,UJ, 012009 : NO:,XTA,SAVAC. 012010 : ,WTC,KOД. 012011 : ,UJ,. 012012 : B48/25:,OCT,7777 7777. 012013 : SCEM0:,BSS,. 012014 : C..... CTAHДAPTHO ИHTEPПPETИPYЮTCЯ : 012015 : C ЭK50 , ЭK62 ,ЭK72 012016 : ,OCT,4002 004 012017 : KOД:,BSS,1.PAБ.ЯЧEЙKA 012018 : ,END, 012019 : EMULATOR:,NAME,.04.04.76 012020 : C 012021 : C***** ИHTEPПPETATOP ЭKCTPAKOДOB 012022 : C 012023 : C..... BXOДHAЯ ИHФOPMAЦИЯ : 012024 : C 012025 : C SAVAC' - CYMMATOP , 012026 : C ПOДAHHЫЙ ЭKCTPAKOДY 012027 : C 012028 : C ЯЧEЙKA ИПЗ 'SCEM' : 012029 : C 012030 : C 48-25 : ШKAЛA ИHTEPПPET. ЭK 012031 : C 24-21 : PAЗPЯДЫ(11,4,2,1) И27 012032 : C 20-16 : HOMEP ЭK - 50B 012033 : C 15- 1 : ИCПOЛH.AДPEC ЭK 012034 : C 012035 : C***** 012036 : * И П Д :LC,BLOCK,XNF 012037 : ,CONT,(7) 012038 : ,CONT,Ш/CЛYЖ 012039 : ,CONT,Ш/FULL 012040 : ,CONT,(39) 012041 : ,CONT,SCEM*64 012042 : ,CONT,(6) 012043 : ,CONT,ШKП 012044 : ,CONT,(1) 012045 : ,CONT,LIB/BOSS 012046 : ,CONT,(4) 012047 : ,CONT,SCENDJO 012048 : XNSEM:,EQU,*ИПД+7 012049 : NSEM:,WEQ,XNSEM 012050 : NSEM1:,EQU,NSEM-1 012051 : NMAT1:,WEQ,XNF 012052 : XNC:,EQU,XNF+5 012053 : NC:,WEQ,XNC 012054 : XLTP:,EQU,XNF+22B 012055 : LTP:,WEQ,XLTP.LEN TPHYS 012056 : LTP1:,EQU,LTP-1 012057 : XLFATA:,EQU,XNF+20B 012058 : LFATA:,WEQ,XLFATA 012059 : LFATAM1:,EQU,LFATA-1 012060 : C***** 012061 : CLTASK:,SUBP, 012062 : C 012063 : C... PAБ.ПOЛE ЭK "TTPRINT" ДЛЯ CЛYЖ.ЗAД. 012064 : *102:B,BLOCK,BUF5076(15) 012065 : C... PAБ.ПOЛE ЭK ЗAMEHЫ CTPAHИЦ 012066 : *121:B,BLOCK, 012067 : ,CONT,C/TM(2) 012068 : ,CONT,M/ПTP(2) 012069 : ,CONT,A/ПTP(2) 012070 : C 012071 : TEL IS:,EQU,436B.БYФEPA 012072 : ATEL1 :,EQU,440B.ПPИKAЗA 012073 : ATEL2 :,EQU,456B."TEЛ" 012074 : NREMULAT:,SUBP, 012075 : NRES OFF:,SUBP, 012076 : MACRO60:,SUBP, 012077 : MACRO64:,SUBP,. 012078 : MACRO70:,SUBP,. 012079 : MACRO70S:,SUBP, 012080 : MACRO74:,SUBP,. 012081 : MACRO76:,SUBP,. 012082 : REWINDSC:LC,BLOCK,(1),ЗAKЗAП,ЗЧKOH 012083 : ,CONT,CHBOSS(4) 012084 : CALL1MEM:,SUBP, 012085 : CALL1FME:,SUBP, 012086 : OUTMACRO:,SUBP, 012087 : ERREXT:,SUBP, 012088 : SEMDOWNS:,SUBP, 012089 : SEM UP :,SUBP, 012090 : ASTIME:,EQU,542B. 012091 : TELOUT:,SUBP,. 012092 : CL OPER:,SUBP, 012093 : NEWTA :,SUBP, 012094 : BOC ИПД:,SUBP, 012095 : TAKETR*:,SUBP, 012096 : STOP/NP:,SUBP, 012097 : DRIDENT:,LC,1 012098 : *YCЫ:LC,BLOCK,ГYC 012099 : C 012100 : C----- ДИAГHOCTИKA: 012101 : C 012102 : T OШИБ:,EQU,32 012103 : T ЧYЖЛ:,EQU,33 012104 : C 012105 : C..... ЯЧEЙKИ ИЗ И П З 012106 : C 012107 : ST/EXCH:,EQU,-2 012108 : TIC:,EQU,-1.CЧET.BPEMЯ 012109 : C 012110 : C----- ПOЛE YПPЯTЫBAHИЯ И П З : 012111 : C 012112 : '00 - CYMMATOP 012113 : '01 - PEЖИM A Y 012114 : '02 - PEГИCTP MЛAДШИX PAЗPЯДOB 012115 : '03 - AДPEC ПPEPЫBAHИЯ (И33) 012116 : '04 - AДPEC ЭKCTPAKOДA (И32) 012117 : '05 - PEЖИM Y Y (И27) 012118 : C 012119 : ' 06 07 10 11 12 13 14 15 012120 : 'И16 И15 И14 И13 И12 И11 И10 И9 012121 : C 012122 : ' 16 17 20 21 22 23 24 25 26 27 012123 : ' И8 И7 И6 И5 И4 И3 И2 И1 И34 И35 012124 : C 012125 : C----- 012126 : C 012127 : AП:,EQU,3. 012128 : C..... TAБЛИЦA MATEMATИЧECKИX ЛИCTOB 012129 : TMATH:,EQU,30B.PAЗPЯДЫ 48-31 ДЛИHA : 50B 012130 : C..... TAБЛИЦA ПPИПИCKИ 012131 : TПPИП:,EQU,30B.PAЗPЯДЫ 24-1 ДЛИHA : 8 012132 : C..... TAБЛИЦA ЗAЩИTЫ 012133 : TЗAЩ:,EQU,40B.PAЗPЯДЫ 28-21 ДЛИHA : 4 012134 : C..... CЛOBO 40B , PAЗPЯДЫ 6-1 012135 : 'ЖEЛAEMOE ЗAДAЧE KOЛ-BO ФИЗ.ЛИCTOB 012136 : C 012137 : NPPW:,EQU,41B 012138 : C..... CЛOBO 41B , PAЗPЯДЫ 6-1 012139 : 'HAЛИЧHOE KOЛ-BO ФИЗ.ЛИCTOB Y ЗAДAЧИ 012140 : C 012141 : C..... CЛOBO 42B , PAЗPЯД 1 012142 : 'ЗAДAЧA BЫДAЛA ДOЛГИЙ OБMEH 012143 : C 012144 : SAV NER:,EQU,45B 012145 : C..... CЛOBO 45B, PAЗPЯДЫ 15-1 012146 : 'ПOЛE CПACEHИЯ AДPECA ABOCTA 012147 : C..... CЛOBO 46B , PAЗPЯДЫ 15-1 012148 : 'ПOЛE CПACEHИЯ И32 (OCTAHOB AЧ,NK) 012149 : C 012150 : C..... CЛOBO 47B , PAЗPЯДЫ 15-1 012151 : 'ПOЛE CПACEHИЯ И14 (OCTAHOB AЧ,NK) 012152 : C 012153 : П YПP:,EQU,50B 012154 : 'PP.20/16 - ДOПYCTИMAЯ PEKYPCИBHOCTЬ 012155 : ' BETBЛEHИЯ 012156 : 'PP.15/01 - Ф-AДPEC TEK.ПOЛЯ YПPЯTЫBAHИЯ 012157 : C 012158 : M/Ф:,EQU,51B 012159 : '18P. - ECTЬ ПPИЧИHA BETBЛEHИЯ 012160 : '17P. - ЗAДAЧA ЗAKPЫTA ДO COБЫTИЯ 012161 : '16P. - БЛOKИPOBKA BETBЛEHИЯ ПO 012162 : ' HEXBATKE ПOЛЯ YПPЯTЫBAHИЯ 012163 : 'PP.15/01 - KOД ДЛЯ ПEPEBOДA Ф-AДPECA 012164 : ' ПOЛЯ YПPЯTЫBAHИЯ B M-AДPEC 012165 : C 012166 : MC:,EQU,52B 012167 : 'PP.24/01 - MACKA ШKAЛЫ COБЫTИЙ 012168 : C 012169 : ШC:,EQU,53B 012170 : 'PP.24/01 - ШKAЛA COБЫTИЙ 012171 : C 012172 : M:,EQU,100B. 012173 : REGSCAL:,EQU,M 012174 : C..... PAЗHOOБPAЗHЫE ФЛAГИ 012175 : C..... 012176 : ' P48 - PAЗPEШEHИE ФИЗ.ДEЙCTBИЙ 012177 : ' P46 - PAЗPEШEHИE HA ИHTEPПPETAЦИЮ 012178 : ' ЭK75 C AИCП = 0 , 1 012179 : ' P43 - ECTЬ PEAKЦИЯ HA ABOCTЫ 012180 : ' P 5 - OCTAHOB ПO ЗП/ЧT ПPИ COBПAД. И35 012181 : ' = 1 (ЗAПИCЬ) , = 0 (ЧTEHИE) 012182 : ' P 4 - (=1) PEЖИM ЗAПИCИ KOMAHД 012183 : ' (OДHOBPEMEHHO CTOП ПO KOHTPOЛЮ) 012184 : ' (=0) PEЖИM ЗAПИCИ ЧИCEЛ 012185 : ' (HET CTOПA) 012186 : C..... 012187 : OШBHYПP:,EQU,M+1 012188 : C..... 012189 : ' PP.46-40 - ПPИЧИHA ABOCTA 012190 : ' PP.39-31 - KOЛ-BO OБPAБATЫB.ABOCTOB 012191 : ' PP.30-16 - PEЖИM BXOДA ПO ABOCTY 012192 : ' PP.15- 1 - AДPEC BXOДA ПO ABOCTY 012193 : C..... 012194 : M72:,EQU,M+2.MACRO64 012195 : BUFI14:,EQU,M+3.MACRO70,MACRO75 012196 : BUFS27:,EQU,M+4.MACRO70,MACRO75 012197 : M75:,EQU,M+5.MACRO64 012198 : COPYS33:,EQU,M+6.MACRO67 012199 : RETM67:,EQU,M+7.MACRO67 012200 : TIB:,EQU,110B.KOMMEP.BPEMЯ 012201 : TJOB:,EQU,TIB.BPEMЯ BЫБPOCA 012202 : TLIM:,EQU,111B.ЛИMИT BPEMEHИ 012203 : ДШ:,EQU,112B 012204 : 'PP.48/17 - ШKAЛA M-ЛИCTOB C KOH.OБM. 012205 : '16P. - БЛOKИP.BETBЛEHИЯ (OT ЗAДAЧИ) 012206 : 'PP.15/01 - M-AДPEC ДEШИФPATOPA 012207 : C 012208 : PULT:,EQU,113B.TEЛEГPAMMA 012209 : PASS:,EQU,114B.ШИФP Д-68/PASS 012210 : SYSMD:,EQU,115B.ФИЗMБ-MД (21,22) 012211 : NAME:,EQU,80.* ДЛИHA 3 012212 : SCEM:,EQU,83 012213 : TLIMS:,EQU,84. 012214 : I60/74:,EQU,85. 012215 : C..... 012216 : ' P48 - ПEPBOE OБPAЩEHИE K ЭK60(=1) 012217 : ' P47 - =0 - ЭK60 C MЛ 012218 : ' =1 - ЭK60 C MБ 012219 : ' PP.46-31 - YKAЗATEЛЬ MЛ/MБ 012220 : ' PP.30-16 - CЧETЧИK ПO ЛИCTY 012221 : ' PP.15- 1 - AДPEC ПEPEXBATA ЭK74 012222 : C..... 012223 : WS/ПФ:,EQU,135B 012224 : П T P :,EQU,163B.TPAKTЫ ПOДKAЧKИ 012225 : MATMБ :,EQU,175B.TPAKTЫ MAT.MБ 012226 : FIELD1 :,EQU,475B.P.П.1 ДЛЯ MAT.ЗAДAЧ 012227 : FIELD2 :,EQU,515B.P.П.2 ДЛЯ MAT.ЗAДAЧ 012228 : ФИO:,EQU,566B 012229 : ФИO/ISO:,EQU,576B 012230 : DRU/MEM:,EQU,777B 012231 : C 012232 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 012233 : ,CONT,SAVI15,SAVI14,SAVI13 012234 : TPHYS:,LC,1. 012235 : TABLEMT:LC,BLOCK,. 012236 : ,CONT,(16),T1MT(96),TNAM 012237 : FATA:,LC,1 012238 : STATUSMT:LC,BLOCK,(5),NEW(4) 012239 : ШЛAГБAYM:LC,BLOCK,(4) 012240 : ,CONT,SCJOB(3) 012241 : ,CONT,SEM/EM 012242 : ,CONT,(1),SEM212 012243 : YДABЛEHЫ:,LC,1 012244 : TYPEMT:,SUBP, 012245 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 012246 : *TLSYS:LC,BLOCK,(1),STATMT 012247 : SCALES:LC,BLOCK,(1) 012248 : ,CONT,MRDSCAL 012249 : ,CONT,(2) 012250 : ,CONT,SCALCLTA 012251 : GIVE PAGE:,SUBP, 012252 : SAVEMOD:,SUBP, 012253 : MASK12:LC,BLOCK,B48/37(0),M12B 012254 : *CB :LC,BLOCK,(1),C17,(1),B31/36 012255 : ,CONT,(2),NUMB(6),R50,INT0 012256 : C7777:,LC,1 012257 : C777 :,LC,1 012258 : C377:,LC,1 012259 : B30/16:,LC,1 012260 : FULWOR:,LC,1 012261 : B48/31:,LC,1 012262 : B24/1:,LC,1 012263 : B16/1:,LC,1 012264 : C77777:,LC,1 012265 : C76000:,LC,1 012266 : DISREG:,LC,1 012267 : C1400:,LC,1 012268 : C1777:,LC,1. 012269 : C177:,LC,1 012270 : C37:,LC,1 012271 : C77:,LC,1. 012272 : C7:,LC,1 012273 : C3:,LC,1 012274 : BC1700:,SUBP, 012275 : C50:,EQU,BC1700+5 012276 : C60:,EQU,BC1700+6 012277 : *677:B,BLOCK,BITS 012278 : ,CONT,B48,B47,B46,B45,B44,B43 012279 : ,CONT,B42,B41,B40,B39,B38,B37 012280 : ,CONT,B36,B35,B34,B33,B32,B31 012281 : ,CONT,B30,B29,B28,B27,B26,B25 012282 : ,CONT,B24,B23,B22,B21,B20,B19 012283 : ,CONT,B18,B17,B16,B15,B14,B13 012284 : ,CONT,B12,B11,B10,B 9,B 8,B 7 012285 : ,CONT,B 6,B 5,B 4,B 3,B 2,B 1 012286 : BITININ:,EQU,B43 012287 : BETB:,EQU,B18 012288 : ЗAKP:,EQU,B17 012289 : БЛOK:,EQU,B16 012290 : C----- COCTAB PAБOЧEГO ПOЛЯ EMULATOR-A 012291 : *0:,BLOCK, 012292 : 0,CONT,MSAV(7) 012293 : 7,CONT,TAЦПY 012294 : 8,CONT,FUL 012295 : 9,CONT,EFR 012296 : 10,CONT,FR 012297 : 11,CONT,FR1(0),KДHЗ 012298 : 12,CONT,SWORD 012299 : 13,CONT,S12(0),KMБ 012300 : 14,CONT,KTP(0),S15 012301 : 15,CONT,SUM 012302 : C----- 012303 : TODAY:,LC,1.ДATA 012304 : C 012305 : BAS:14,REL,* 012306 : 13,VJM,GIVADR. 012307 : C.. ЗAПOMИHAHИE COCTOЯHИЯ B ПOЛE YПPЯTЫBAHИЯ 012308 : YПPЯT:,XTA,SAVAC 012309 : 15,ATX,SUM 012310 : ,XTS,SAVSR 012311 : ,ITS,32B 012312 : ,XTS,SAVI15 012313 : ,XTS,SAVI13 012314 : ,ITS,12 012315 : ,ITS,11 012316 : 15,ATX, 012317 : 15,UTM,-7 012318 : ,WTC,ГYC. 012319 : 11,VTM,.AДPEC ИПЗ 012320 : 11,XTA,SCEM. 012321 : ,ATI,12.ИCП.AДPEC ЭK 012322 : ,ASN,64+15. 012323 : ,AAX,C37. 012324 : ,ATI,13.N ЭK - 50B 012325 : 13,XTA,B48.БИT N ЭK. 012326 : 15,ATX,S15.ДЛЯ CHECK PR 012327 : ,AEX,B32 012328 : ,UZA,READ M.- ЭK70 012329 : ,AAX,ШЭ ПAM.ЭK.C ИHФ.CЛ. 012330 : ,UZA,ЭK CYM. - HET 012331 : C..... ИЗBЛEЧEHИE ИHФ.CЛOBA ИЗ ПAMЯTИ 012332 : 11,XTA,SCEM. 012333 : ,AAX,B23. 012334 : ,U1A,READ.ПO ФИЗ.AДPECY 012335 : READ M:,BSS, 012336 : 12,VZM,ЭK CYM 012337 : C...... A HE HA ЧYЖOM ЛИ ЛИCTE ИHФ.CЛOBO 012338 : ,ITA,12 012339 : ,ASN,64+10 012340 : ,ATI,13 012341 : 11,UTC, 012342 : 13,XTA,TMATH 012343 : ,ASN,64+30 012344 : ,UZA,OШ/ЧYЖ.-ЛИCT 'ЧYЖOЙ' 012345 : ,AEX,B18 012346 : ,UZA,OШ/ЧYЖ.- HE БЫЛO OБPAЩ. 012347 : : ,24,2000B 012348 : READ:12,XTA,.ИHФ.CЛOBO 012349 : : ,24,2003B. 012350 : 15,ATX,SUM. 012351 : C..... 012352 : ЭK CYM:12,VJM,CHECK PR. 012353 : : ,24,2003B 012354 : 15,XTA,SUM. 012355 : ,ATX,SAVAC. 012356 : 15,XTA,S15.БИT N.ЭK. 012357 : ,APX,INTMACR 012358 : ,UZA,OШ/ЭK 012359 : ,ANX,C77777 012360 : ,ATI,13 012361 : 11,WTC,SCEM 012362 : 15,VTM,.ИCП.AДP.ЭK 012363 : 13,UJ,MAIN/SW 012364 : ЭKCTPA:,BSS,. 012365 : C..... BOCCTAHOBЛEHИE ЗAДAЧИ , 012366 : C ПEPEДAЧA ПO И13 , 012367 : C MИHYЯ OTKAЗ OT HEPEЗИДEHTA . 012368 : ,ITA,13. 012369 : ,ATX,SAVAR. 012370 : 11,XTA,SCEM. 012371 : ,ASN,64-24. 012372 : ,AUX,DISREG. 012373 : ,ATI,27B. 012374 : 13,VJM,BOCCTAH. 012375 : ,WTC,ГYC. 012376 : ,WTC,SCEM. 012377 : 14,VTM,. 012378 : ,XTA,SAVAC. 012379 : ,WTC,SAVAR. 012380 : ,UJ,. 012381 : C***** 012382 : MAIN/SW:,ITA,15 012383 : ,UJ,ЭK50 012384 : :13,VTM,MACRO60+2 012385 : ,UJ,ЭKCTPA 012386 : :,XTA,ZBITJ 012387 : ,UJ,ЭK62 012388 : :,ITA,15 012389 : ,UJ,ЭK63 012390 : ЭK64:13,VTM,MACRO64+2 012391 : ,UJ,ЭKCTPA 012392 : ЭK70:,BSS,. 012393 : C***** ИHTEPПPETAЦИЯ ЭK70 012394 : C (ПPOCTO OБMEH И BOЗBPAT B ЗAДAЧY) 012395 : 13,VTM,MACRO70+2. 012396 : ,UJ,ЭKCTPA. 012397 : :,NTR,2 012398 : ,UJ,ЭK72 012399 : ЭK76:,BSS,. 012400 : C***** ИHTEPПPETAЦИЯ ЭK76 012401 : 13,VTM,MACRO76+5. 012402 : ,UJ,ЭKCTPA. 012403 : ЭK72:,BSS,. 012404 : C***** ИHTEPПPETAЦИЯ ЭK72 012405 : C HA BXOДE : 012406 : C ИCX.CYMMATOP B MSAV , 012407 : C ИHФ.CЛOBO B SUM 012408 : 13,VJM,GIVADR 012409 : : ,24,3. 012410 : C OTKPЫTЫMИ ПPEPЫBAHИЯMИ 012411 : 15,MTJ,11. 012412 : 11,XTA,MSAV. 012413 : ,AEX,KOД74. 012414 : ,UZA,ПEP74/72 012415 : 11,XTA,SUM 012416 : 11,ATX,SWORD. 012417 : ,ASN,64+42. 012418 : 11,ATX,FR. 012419 : ,YTA,. 012420 : 11,ATX,FUL. 012421 : 13,VTM,SW72-E72. 012422 : 12,VTM,SW72. 012423 : AN72:12,XTA,. 012424 : 11,AEX,FR. 012425 : ,AAX,C77. 012426 : 12,UZA,. 012427 : 12,UTM,1. 012428 : 13,VLM,AN72. 012429 : ,UJ,OШЭK 0.HET TИПA PAБOTЫ 012430 : SW72:,BSS,. 012431 : C..... ПEPEKЛЮЧATEЛЬ TИПOB ЭK72 012432 : :,UJ,OTK OП. 012433 : ,,00B. 012434 : :,UJ,ЗAM OП. 012435 : ,,10B. 012436 : :,UJ,ДAЙ OП. 012437 : ,,11B. 012438 : :,UJ,OTK MЛ. 012439 : ,,20B. 012440 : :,UJ,NRS RET 012441 : ,,30B 012442 : :,UJ,OTK MБ. 012443 : ,,40B. 012444 : :,UJ,OTKMБ Д. 012445 : ,,41B. 012446 : :,UJ,ПEЧ MБ. 012447 : ,,42B. 012448 : :,UJ,NRS RET.ПYCTOЙ ЭK 012449 : ,,47B. 012450 : :,UJ, ЗAM MБ. 012451 : , ,50B 012452 : E72:,BSS,. 012453 : :,UJ,NRS RET."ПOДBOД" 012454 : ,,70B. 012455 : C 012456 : C... ЗAKAЗ ЛИCTOB OП 012457 : C 012458 : ДAЙ OП:12,VJM,MEMORY 012459 : Д OП1:,XTA,B48.ЗAK.B TMATH 012460 : :13,AEX,.БEЗ 012461 : 13,ATX,.ИЗMEHEHИЙ 012462 : :,,.ЛИCT БЫЛ 012463 : C..... 012464 : KЦ OП:,24,3. 012465 : 11,WTC,S12 012466 : 12,VTM, 012467 : 11,XTA,FR. 012468 : ,ARX,B1. 012469 : 11,ATX,FR. 012470 : 11,AEX,EFR. 012471 : ,UZA,MEMORY.K CЛEД.ФPAГMEHTY 012472 : 11,XTA,FR. 012473 : ,UJ,Ц OП.K CЛEД.ЛИCTY 012474 : C 012475 : C... BЫБOPKA HOMEPA MAT.ЛИCTA 012476 : C 012477 : MEMORY:,ITA,12 012478 : 11,ATX,S12 012479 : 12,VJM,GIV1 012480 : 15,VZM,NRS RET.БЫЛ KOHEЦ 012481 : 11,ATX,EFR 012482 : ,AAX,B6 012483 : ,UZA,RG2 012484 : 11,AEX,FR 012485 : 11,ATX,FR 012486 : 11,XTA,FUL 012487 : ,UZA,OШЭK0 012488 : ,ASN,64-6 012489 : 11,ATX,FUL 012490 : ,YTA, 012491 : ,NTR,3 012492 : ,A-X,C50 012493 : ,UZA,OШЭK0 012494 : ,A+X,C50 012495 : 11,ATX,EFR 012496 : 11,A-X,FR 012497 : ,U1A,OШЭK0 012498 : RG2:11,XTA,EFR 012499 : ,ARX,B1 012500 : 11,ATX,EFR 012501 : 11,XTA,FR 012502 : C.. 012503 : Ц OП:11,WTC,S12 012504 : 12,VTM, 012505 : C 012506 : C... ПPOBEPKA CTATYCA MAT.ЛИCTA 012507 : C 012508 : ПPOB ЛИ:,24,2003B 012509 : ,ATI,13 012510 : ,WTC, Г Y C 012511 : 13,UTM,TMATH 012512 : 13,XTA, 012513 : ,ASN,64+30 012514 : 12,UZA,.HE ЗAKAЗAH 012515 : ,AEX,B18 012516 : 12,UZA,1.HE ПOTPEБЛЯЛCЯ 012517 : ,AAX,C177 012518 : 12,UZA,2.B ПOДKAЧKE 012519 : 12,UJ,3 .B ПAMЯTИ 012520 : C 012521 : C... OTKAЗ OT ЛИCTOB OП 012522 : C 012523 : OTK OП:12,VJM,MEMORY 012524 : :,UJ,KЦ OП 012525 : :,UJ,Д OП1 012526 : :11,XTA,FR 012527 : ,U1A,OTK ПOДK 012528 : :,WTC, Г Y C 012529 : 13,VTM, 012530 : C 012531 : C... OTKAЗ OT ЛИCTA, KOTOPЫЙ B ПAMЯTИ 012532 : C 012533 : ,ITA,11 012534 : ,ATX,SYM 012535 : ,ITA,5 012536 : ,ATX,TEX 012537 : 11,WTC,FR 012538 : 11,VTM,.MAT.HOMEP 012539 : 11,VZM,OШ/ЭK.0-Й ЛИCT 012540 : 14,MTJ,15 012541 : 5,CALL,CLOS PAGE 012542 : 15,MTJ,12 012543 : ,WTC, Г Y C 012544 : 15,VTM, 012545 : 14,CALL,PUT TMP 012546 : 12,MTJ,14 012547 : ,WTC,TEX 012548 : 5,VTM, 012549 : ,WTC,SYM 012550 : 11,VTM, 012551 : ,WTC, Г Y C 012552 : 13,VTM, 012553 : 13,XTA,41B 012554 : ,ARX,=7777 7777 7777 7776 012555 : 13,ATX,41B 012556 : 11,WTC,FR 012557 : 13,UTM,TMATH 012558 : 13,XTA,.XAPAKTEPИCTИKA 012559 : ,ASN,64+30. 012560 : ,ATI,15.N ФИЗ.ЛИCTA 012561 : ,ASN,64-30. 012562 : 13,AEX,.* ГACИM 012563 : 13,ATX,.* TMATH 012564 : ,XTA,B7 012565 : 15,AAX,TPHYS.* ГACИM 012566 : 15,ATX,TPHYS.* TPHYS 012567 : ,UJ,KЦ OП 012568 : C 012569 : C... OTKAЗ OT ЛИCTA, KOTOPЫЙ B ПOДKAЧKE 012570 : C 012571 : OTK ПOДK:,AOX,B42 012572 : 11,ATX,KTP 012573 : 13,XTA, 012574 : ,AEX,B47 012575 : 13,ATX, 012576 : 12,VTM,1 012577 : 13,VTM,KЦ OП 012578 : ,UJ,ЧИCTKA 012579 : C... 012580 : ЗAM OП:,BSS,. 012581 : C..... CMEHA HOMEPOB ЛИCTOB OП 012582 : : ,24,3 012583 : ,XTA,ГYC 012584 : ,AAX,C77777 012585 : 11,ATX,S12 012586 : ,XTA,ДHЗ 012587 : ,ASN,64-27 012588 : 11,AOX,S12 012589 : 11,ATX,S12 012590 : 11,ATX,S15 012591 : 11,ATX,SUM 012592 : 12,VJM,GIV1 012593 : 15,VZM,NRSRET 012594 : 11,ATX,FR1.HOMEP 012595 : 11,ATX,EFR.CTAPOГO 1-ГO 012596 : 12,VJM,GIV1 012597 : 15,VZM,OШЭK 0. = HET 2-ГO 012598 : C..... BXOД OT ,*50,212B : 012599 : ЗAM 2Л:11,XTA,S12 012600 : ,ATI,15."CBOE" ИПЗ 012601 : :,24,2003B. !!! 012602 : 15,UTM,17.MECTO И5 012603 : C 012604 : C ДOЖИДAEMCЯ OKOHЧAHИЯ OБMEHOB 012605 : C 012606 : 11,XTA,S15 012607 : 11,ARX,FR 012608 : ,ATI,13 012609 : 11,XTA,S12 012610 : 11,AEX,S15 012611 : ,AAX,C77777 012612 : ,UZA,ЗAM 012613 : 13,XTA,TMATH 012614 : 11,WTC,EFR 012615 : 15,AOX,TMATH-17 012616 : ,AAX,B46.CM.MACRO70 012617 : ,UZA,ЗAM 012618 : 13,VTM,13B 012619 : 13,MTJ,27B 012620 : 14,MTJ,13 012621 : ,*57,3 012622 : 13,MTJ,14 012623 : ,UJ,ЗAM 2Л 012624 : C 012625 : C... COБCTBEHHO ЗAMEHA CTPAHИЦ 012626 : C 1. YПPЯTЫBAHИE PEГИCTPOB 1-5 012627 : C 012628 : ЗAM:,24,2003B 012629 : ,ITA,5 012630 : ,ITS,4 012631 : ,ITS,3 012632 : ,ITS,2 012633 : ,ITS,1 012634 : 15,ATX, 012635 : 11,MTJ,1 012636 : 14,MTJ,4 012637 : 4,REL,BAS.*** 012638 : 15,VTM,-1 012639 : C 012640 : C 2. BЫБOPKA XAPAKTEPИCTИK ЛИCTOB 012641 : C 012642 : ЗAM1:1,XTA,EFR 012643 : ,ATI,11.MAT.ЛИCT 012644 : ,AAX,C3 012645 : ,ATI,12 012646 : 12,XTA,M12B 012647 : 15,ATX,M/ПTP+1.MACKA ПTP 012648 : ,ITA,11 012649 : ,ASN,64+2 012650 : 1,ARX,S12 012651 : 15,ATI,3.AДPEC B ПTP 012652 : 1,WTC,S12 012653 : 11,XTA,TMATH 012654 : 15,ATX,C/TM+1.KOПИЯ TMATH 012655 : ,ASN,64+30 012656 : ,AAX,C177 012657 : ,UZA,KЗAM1 012658 : C 012659 : C 3. ECЛИ ЛИCT B MOЗY, MEHЯEM 012660 : C EГO ИДEHTИФИKATOP B TPHYS 012661 : C 012662 : ,ATI,5.ФИЗ.ЛИCT 012663 : 1,WTC,S12 012664 : 13,VTM,."CBOE" ИПЗ 012665 : 1,XTA,FR 012666 : ,ASN,64-21 012667 : 1,AOX,S15."ЧYЖOЙ" ИДEHT. 012668 : ,ATI,12."ЧYЖOE" ИПЗ 012669 : 5,AEX,TPHYS 012670 : ,AAX,B33/22 012671 : 5,AEX,TPHYS 012672 : 5,ATX,TPHYS 012673 : C 012674 : C 4. KOPPEKЦИЯ ЧИCЛA ЛИCTOB B MOЗY 012675 : C 012676 : ,XTA,B1.HOBOMY 012677 : 12,ARX,NPPW.BЛAДEЛЬЦY 012678 : 12,ATX,NPPW.ПPИБЫЛO, 012679 : ,XTA,=7777 7777 7777 7776 012680 : 13,ARX,NPPW.Y CTAPOГO 012681 : 13,ATX,NPPW. - YБЫЛO 012682 : 5,CALL,CLOSPAGE.OTПИCKA 012683 : C... 012684 : KЗAM1:1,UTM,1 012685 : 15,VLM,ЗAM1 012686 : C 012687 : C 5. ПEPECTAHOBKA B ПTP 012688 : C 012689 : 15,VTM,A/ПTP 012690 : 2,XTA,ПTP 012691 : ,APX,M/ПTP 012692 : 3,XTS,ПTP 012693 : ,APX,M/ПTP+1 012694 : 15,AEX, 012695 : 15,ATX, 012696 : ,AUX,M/ПTP 012697 : 2,AEX,ПTP 012698 : 2,STX,ПTP 012699 : ,AUX,M/ПTP+1 012700 : 3,AEX,ПTP 012701 : 3,ATX,ПTP 012702 : C 012703 : C 6. ПEPECTAHOBKA B TMATH 012704 : C 012705 : 3,VTM,-1 012706 : ЗAM2:1,XTA,FR-2 012707 : 1,ARX,S15-2 012708 : ,ATI,13."ЧYЖOE" ИПЗ 012709 : 3,XTA,C/TM+1."CBOЯ" CTPOKA 012710 : 13,AEX,TMATH 012711 : ,AAX,B48/31 012712 : 13,AEX,TMATH 012713 : 13,ATX,TMATH 012714 : ,ASN,64+30 012715 : ,ATI,13.ФИЗ.ЛИCT 012716 : 1,UTM,-1 012717 : ,AAX,B17.ЗAKPЫT ПO 012718 : ,U1A,KЗAM2.ПPИOPИTETY 012719 : 13,VZM,KЗAM2.ИЛИ YKAЧAH 012720 : 15,CALL,OPENPAGE.ПPИПИCKA 012721 : KЗAM2:3,VLM,ЗAM2 012722 : C 012723 : C 7. YCTAHOBKA PП И PЗ 012724 : C 012725 : 1,MTJ,11 012726 : ,WTC,ГYC 012727 : 15,VTM, 012728 : 14,CALL,PUT TMP 012729 : C 012730 : C 8. BOCCTAHOBЛEHИE PEГИCTPOB 012731 : C 012732 : 15,UTM,-2 012733 : 4,MTJ,14 012734 : 14,REL,BAS.*** 012735 : 11,XTA,S12 012736 : 11,AEX,S15 012737 : ,STI,12 012738 : ,STI,1 012739 : ,STI,2 012740 : ,STI,3 012741 : ,STI,4 012742 : ,ATI,5 012743 : :,24,3 012744 : 12,VZM,ЗAM OП 012745 : ,UJ,RET/212 012746 : C----------------------- 012747 : OTK MЛ:,BSS,. 012748 : C..... OTKAЗ OT MAГHИTHЫX ЛEHT 012749 : ,XTA, 012750 : 11,ATX,SWORD 012751 : OTKMЛ1:12,VJM,GIV1 012752 : ,UZA,OTKMЛ2 012753 : ,ATI,12 012754 : 12,XTA,B48-30B 012755 : 11,AOX,SWORD 012756 : 11,ATX,SWORD 012757 : ,UJ,OTKMЛ1 012758 : OTKMЛ2:,XTA,DISREG 012759 : ,ATI,27B 012760 : 11,XTA,SWORD 012761 : ,UZA,NRS RET 012762 : 14,MTJ,12 012763 : ,*57,4000B 012764 : 12,MTJ,14 012765 : ,UJ,NRS RET 012766 : OTK MБ:,BSS,. 012767 : C...... OTKAЗ OT ИCПOЛЬЗOBAHHOЙ MБ-ПAMЯTИ 012768 : Ц MБ:12,VJM,GIV1.ЗA HOMEPOM MБ 012769 : 15,VZM,NRS RET.- * BCE 012770 : ,UZA,Ц MБ.- ПYCTOЙ ФPAГM. 012771 : ,ASN,64+3. 012772 : ,AAX,C3. 012773 : ,AEX,C3. 012774 : ,UZA,OШЭK 0.- HE MБ 012775 : 11,XTA,FR. 012776 : ,AAX,C37.ЗAГOTOBKA 012777 : ,ASN,64-5. KOДA MБ 012778 : 11,ATX,KTP. 012779 : 11,XTA,FR. 012780 : ,AAX,B6. OTKAЗ 012781 : ,UZA,TPAKT.- ПO TPAKTAM 012782 : 12,VTM,32 012783 : 13,VTM,Ц MБ.OT MБ 012784 : ,UJ,ЧИCTKA.ПOЛHOCTЬЮ 012785 : TPAKT:,BSS,. 012786 : 12,VJM,GIV1.N HAЧ. TPAKTA 012787 : 15,VZM,OШЭK 0. 012788 : ,UZA,Ц MБ.- KOHEЦ TPAKTOB 012789 : 11,AEX,KTP 012790 : ,AAX,C37 012791 : 11,AEX,KTP 012792 : 13,VTM,TPAKT 012793 : 11,ATX,KTP. 012794 : 11,XTA,FR. 012795 : ,AAX,B6. 012796 : 12,VTM,1. 012797 : ,UZA,ЧИCTKA 012798 : 12,VJM,GIV1. 012799 : 15,VZM,OШЭK 0.- HET KOЛ-BA 012800 : ,AAX,C37. 012801 : ,UZA,OШЭK 0. 012802 : ,ATI,12. 012803 : ,UJ,ЧИCTKA 012804 : OTKMБ Д:,BSS,. 012805 : C..... OTKAЗ OT MБ , ЗAДAHHЫX ШKAЛOЙ 012806 : 11,XTA,FUL. 012807 : ,AOX,B24/1. 012808 : ,AEX,B24/1. 012809 : 11,ATX,FUL. 012810 : ,XTA,C37. 012811 : 11,ATX,KMБ. 012812 : ЦMБ Д:11,XTA,FUL. 012813 : ,UZA,NRS RET.- BCE MБ 012814 : 11,ANX,KMБ. 012815 : 11,ATX,KMБ. 012816 : ,YTA,. 012817 : 11,ATX,FUL.OCTATOK MБ 012818 : 11,XTA,KMБ. 012819 : ,AAX,C37. 012820 : 11,ATX,KMБ. 012821 : ,ASN,64-5. 012822 : 11,ATX,KTP. 012823 : 12,VTM,32 012824 : 13,VTM,ЦMБ Д. 012825 : ЧИCTKA:,BSS,. 012826 : C..... OTKAЗ OT ЗAДAHHЫX MБ / TPAKTOB 012827 : ,ITA,13 012828 : 11,ATX,KДHЗ 012829 : MAKADR:,24,2003B 012830 : ,WTC, Г Y C 012831 : 15,VTM,12.MECTO И.P.10 012832 : ,ITA,10 012833 : ,ITS,9 012834 : ,ITS,8 012835 : ,ITS,7 012836 : ,XTS, Д H З 012837 : ,ASN,64-42 012838 : 11,AOX,KTP 012839 : 11,ATX,KTP 012840 : ,ATX,DRIDENT 012841 : 14,MTJ,15.CПACEM БAЗY 012842 : ,CALL,TAKETR*.HA П/П OTKAЗA 012843 : 15,MTJ,14.BOCCT.БAЗЫ 012844 : 11,XTA,KTP 012845 : ,AEX,C37 012846 : ,AAX,C37 012847 : ,UZA,KOЛЬЦYEM 012848 : 11,XTA,KTP 012849 : ,ARX,B1 012850 : ,UJ,CЛEДTP 012851 : KOЛЬЦYEM:11,XTA,KTP 012852 : ,AAX,=7777 7777 7777 7740 012853 : CЛEДTP:,WTC,ГYC 012854 : 15,VTM,16 012855 : 11,STX,KTP 012856 : ,STI,7 012857 : ,STI,8 012858 : ,STI,9 012859 : ,ATI,10 012860 : : ,24,3 012861 : 12,UTM,-1 012862 : 12,VIM,MAKADR 012863 : 11,WTC,KДHЗ 012864 : ,UJ, 012865 : ПEЧ MБ:,BSS,. 012866 : C..... ПEЧATЬ ИCПOЛЬЗOBAHHЫX TPAKTOB 012867 : 11,XTA,SWORD. 012868 : ,ATI,12.MACCИB ШKAЛ 012869 : 13,VTM,1-24. 012870 : ,XTA,. 012871 : : ,24,. 012872 : ПБ 1:13,UTC,23. EГO ЧИCTKA 012873 : 12,ATX,. 012874 : 13,VLM,ПБ 1.... 012875 : : ,24,3 012876 : 11,ATX,KTP 012877 : ПБ2:,BSS, 012878 : 11,XTA,KTP 012879 : ,ASN,64+2 012880 : ,ARX, Г Y C 012881 : ,ATI,13.AДPEC B MATMБ 012882 : 11,XTA,KTP 012883 : ,AAX,C3 012884 : ,ATI,15 012885 : 15,XTA,M12B 012886 : 13,AAX,MATMБ 012887 : ,UZA,ПБ3 012888 : 11,XTA,KTP 012889 : ,AAX,C37 012890 : ,ATI,15.N TPAKTA 012891 : 11,XTA,KTP. 012892 : ,ASN,64+5. 012893 : 11,ARX,SWORD. 012894 : ,ATI,13.AДPEC ШKAЛЫ 012895 : 15,XTA,B48 012896 : : ,24,. 012897 : 13,AOX, 012898 : 13,ATX,. 012899 : ПБ3:,24,3 012900 : 11,XTA,KTP 012901 : ,ARX,B1 012902 : 11,ATX,KTP 012903 : ,ASN,64+8 012904 : ,AEX,C3 012905 : ,U1A,ПБ2 012906 : 11,XTA,SWORD. 012907 : ,AAX,B16. ПEЧATЬ 012908 : ,U1A,NRS RET.- БЛOKИPOBAHA 012909 : 11,ATX,EFR 012910 : 11,MTJ,15 012911 : ,WTC,ГYC 012912 : 11,VTM, 012913 : C..... OPГAHИЗAЦИЯ ПEЧATИ TAБЛИЦЫ 012914 : Ц ПEЧ:,24,3. 012915 : 15,XTA,SWORD 012916 : 15,ARX,EFR 012917 : ,ATI,13 012918 : : ,24,. 012919 : 13,XTA,. ШKAЛA 012920 : : ,24,2003B. 012921 : 15,ATX,FR 012922 : 13,VTM,INFTR-BAS 012923 : 12,VJM,PRINT 012924 : 15,XTA,EFR 012925 : ,ARX,B1 012926 : 15,ATX,EFR 012927 : ,ASN,64+3 012928 : ,AEX,C3 012929 : ,U1A,Ц ПEЧ 012930 : ,UJ,NRS RET.HA BOЗBPAT 012931 : ЗAM MБ:,BSS,. 012932 : C..... ПEPEИMEHOBAHИE MATEMAT. MБ 012933 : З MБ:12,VJM,GIV1.ЗA MБ1 012934 : 12,VJM,ПPO MБ1.EГO ПPOBEPKA 012935 : 15,MTJ,13 012936 : 12,VJM,GIV1.ЗA MБ2 012937 : 12,VJM,ПPO MБ2. 012938 : : ,24,2003B 012939 : 12,VTM,-7 012940 : ПOДCT:15,XTA,MATMБ 012941 : ,AEX, 012942 : 13,XTA,MATMБ 012943 : 15,ATX,MATMБ 012944 : ,YTA, 012945 : 13,ATX,MATMБ 012946 : 13,UTM,1 012947 : 15,UTM,1 012948 : 12,VLM,ПOДCT 012949 : : ,24,3 012950 : ,UJ,З MБ.HA CЛEД.ПAPY MБ 012951 : ПPO MБ1:15,VZM,NRS RET.- * BCE 012952 : ПPO MБ2:15,VZM,OШЭK 0.- HET MБ2 012953 : ,ATI,15 012954 : ,ARX,B4. 012955 : ,ASN,64+5. 012956 : ,U1A,OШЭK 0. 012957 : ,WTC, Г Y C 012958 : ,XTA,DRU/MEM 012959 : 15,AAX,B48 012960 : ,U1A,OШЭK0 012961 : 11,XTA,FR. 012962 : ,ASN,64-3.*8 012963 : ,ARX, Г Y C 012964 : ,ATI,15 012965 : 12,UJ,. 012966 : ,BSS,. 012967 : C..... П/П ПOЛYЧEHИЯ ФPAГMEHTOB 012968 : C ИЗ ИHФ.CЛOBA ЭK72 012969 : GIV1:11,XTA,FUL. 012970 : ,UZA,OШЭK 0. 012971 : ,ASN,64-6. 012972 : 11,ATX,FUL. 012973 : ,YTA,. 012974 : 11,ATX,FR. 012975 : 15,VTM,0. 012976 : ,AEX,C77. 012977 : 12,UZA,. 012978 : 15,VTM,1. 012979 : ,AEX,C77. 012980 : 12,UJ,. 012981 : C----- HA 'NEWTA' БEЗ OTKAЗA OT HEPEЗИДEHTA 012982 : PROCRET:,BSS, 012983 : 13,VJM,BOCCTAH 012984 : ,WTC,ГYC 012985 : ,XTA,SCEM 012986 : ,ASN,64-24 012987 : ,AUX,DISREG 012988 : ,ATI,27B 012989 : ,ITA,32B 012990 : ,ATI,33B 012991 : ,UJ,NEWTA 012992 : C--- 012993 : Э207:,BSS, 012994 : C MOHOПOЛИЗAЦИЯ KBY-HAПPABЛEHИЯ MЛ 012995 : C ПEPEXBAT ПPOXOДA ЗOHЫ MЛ. 012996 : ,AAX,C7 012997 : ,ATI,15.HAПP-E 012998 : ,ARX,B1 012999 : ,AAX,B3 013000 : ,UZA,OШ/ЭK 013001 : 15,XTA,TYPEMT-3 013002 : ,ASN,64+18 013003 : ,ATI,13.COПPЯЖ.HAПP. 013004 : ,XTA,DISREG 013005 : ,ATI,27B 013006 : 15,XTA,CHBOSS-3 013007 : ,UZA,FREE/CH 013008 : ,ASN,64+24 013009 : ,AAX,C77 013010 : ,AEX, Д H З 013011 : ,U1A,OШ/ЭK.ЗAHЯTO 013012 : FREE/CH:,XTA,SAVAC 013013 : ,AAX,C77777 013014 : 13,ATX,CHBOSS-3 013015 : 15,ATX,CHBOSS-3.ЗAXBAT 013016 : 14,MTJ,11 013017 : ,UZA,TOCH/.OCBOБOЖДEHИE 013018 : ,XTA, Д H З 013019 : ,ASN,64-24 013020 : 15,AOX,CHBOSS-3 013021 : 15,ATX,CHBOSS-3 013022 : 13,ATX,CHBOSS-3 013023 : ,XTA,SAVAC 013024 : ,ARX, 013025 : ,U1A,NRSRET.БEЗ ПEPEXBATA 013026 : C-- ЗAДEPЖKA ДЛЯ TOГO, ЧTOБЫ B 013027 : C HAПPABЛEHИИ BCE YTИXЛO. 013028 : ,XTA,NUMB+4.10 CEK. 013029 : ,*57,13B 013030 : C-- CTABИM ПPИЗHAK ПEPEXBATA 013031 : ,XTA,B48 013032 : 15,AOX,CHBOSS-3 013033 : 15,ATX,CHBOSS-3 013034 : 11,UJ,BRES-BAS 013035 : TOCH/:15,MTJ,14 013036 : 15,CALL,TRA TAPE 013037 : BRES:,24,3 013038 : 11,MTJ,14 013039 : C 013040 : C 013041 : C--- BOЗBPAT C OTKAЗOM OT HEPEЗИДEHTA 013042 : NRS RET:,BSS, 013043 : 13,VJM,BOCCTAH. 013044 : ,WTC,ГYC 013045 : ,XTA,SCEM 013046 : ,ATX,SAVI14 013047 : ,ASN,64-24.PEЖИM 013048 : ,AUX,DIS REG.BOЗBPATA B 013049 : ,ATI,27B.ЗAДAЧY (И27) 013050 : ,XTA,NR OFF.OTKAЗ OT 013051 : ,ATX,SAVAR.HEPEЗИДEHTA 013052 : ,UJ,NRESOFF+2.И BOЗBPAT 013053 : NR OFF:,Z00,NR EMULAT 013054 : ,Z00,OUTMACRO 013055 : ПEP74/72:,WTC,ГYC 013056 : ,XTA,SCEM 013057 : ПEP74:,BSS, 013058 : C..... ЗAKAЗ HA ПEPEXBAT ЭK74 013059 : 11,AEX,I60/74 013060 : ,AAX,C77777 013061 : 11,AEX,I60/74 013062 : 11,ATX,I60/74. 013063 : ,ATI,13 013064 : ,XTA,BITJ 013065 : ,AOX,ШKП 013066 : 13,V1M,ПE 74 013067 : ,AEX,BITJ 013068 : ПE 74:,BSS, 013069 : ,ATX,ШKП 013070 : ,UJ,NRS RET.HA BOЗBPAT 013071 : ЭK50:,BSS, 013072 : C***** ИHTEPПPETAЦИЯ ЭK50 013073 : ,NTR,3 013074 : ,A-X,C50 013075 : ,U1A,OШ/ЭK.AИCП.LT.50 013076 : ,A-X,C60 013077 : ,UZA,CHE050.AИCП.GT.127 013078 : 15,XTA,B48-50B 013079 : ,APX,ADR50 013080 : ,UZA,OШ/ЭK.ПЛOXOЙ AИCП 013081 : ,ANX, 013082 : ,ATI,15 013083 : ,NTR,2 013084 : ,XTA,SAVAC 013085 : 15,UJ,SW50-1 013086 : ADR50:,BSS, 013087 : ,GOST,6H'377''317''377''377''076''010' 013088 : SW50:,BSS, 013089 : C----- ПEPEKЛЮЧATEЛЬ AДPECOB ЭK50 013090 : :,AAX,C77777.YCTAH.ДEШИФP. 013091 : ,UJ,A50 013092 : :11,XTA,ПYПP.OTKAЗ OT BETBЛ. 013093 : ,UJ,A51 013094 : :,ASN,64+24.YCTAH.MACKИ 013095 : ,UJ,A52 013096 : :11,XTA,MC.ЗAПPOC MACKИ 013097 : ,UJ,A53*55 013098 : :,AAX,B24.YCTAH.COБЫTИЯ 013099 : ,UJ,A54 013100 : :11,XTA,ШC.ЗAПPOC ШKAЛЫ 013101 : ,UJ,A53*55 013102 : :,XTA,БЛOK.БЛOK.BETBЛEH. 013103 : ,UJ,A56 013104 : A57/0:,XTA,БЛOK.ДEБЛOK.BETBЛEH. 013105 : ,UJ,A57 013106 : :11,XTA,П YПP.BOЗBPAT ИЗ BETBИ 013107 : ,UJ,A60 013108 : :11,XTA,MC.ЗAKP.ДO COБЫTИЯ 013109 : ,UJ,A61 013110 : :,ATI,12.ЗAПИCЬ *NAME 013111 : ,UJ,Э64. (64) 013112 : :11,VTM,-1. -TAPES- 013113 : ,UJ,TAPES. (65) 013114 : :,,.ЗAПPOC ДИPEKTИBЫ 013115 : ,UJ,Э66 013116 : :12,VTM,TAЦПY. -DATE*- 013117 : ,UJ,Э67 013118 : SW63:,BSS, 013119 : :,,.OCTATOK BPEMEHИ 013120 : ,UJ,Э630. (70) 013121 : :,,.ПEЧATЬ BPEMEHИ 013122 : ,UJ,Э631. (71) 013123 : :,,.ЛИMИT BPEMEHИ 013124 : ,UJ,Э632. (72) 013125 : :,,.BPEMЯ HA ABOCT 013126 : ,UJ,Э633. (73) 013127 : :,,.ПEPEXBAT ЭK74 013128 : ,UJ,ПEP74. (74) 013129 : :,,.KOMAHД.CBEPTKA 013130 : ,UJ,Э075 013131 : :11,VTM,-13.-TELOUT- 013132 : ,UJ,Э76 013133 : :,,.-FIMFIX- 013134 : ,UJ,Э77 013135 : :11,XTA,PASS.BЫДAЧA ШИФPA 013136 : ,UJ,RET AC. (100) 013137 : :11,XTA,SAV NER.ПPИЧИHA 013138 : ,UJ,Э101.ABOCTA 013139 : :,ASN,64-30.YCT.KPATHOCTИ 013140 : ,UTC,B31/36 - C77777.ИЛИ 013141 : :15,VTM,.AДPECA 013142 : ,UJ,Э102/103.ABOCTA 013143 : :,ATI,12.BЫДAЧA ФAM. 013144 : ,UJ,Э104.ПOЛЬЗOBATEЛЯ 013145 : :,,.ЗAПPOC N TOMA 013146 : ,UJ,Э105 013147 : :11,XTA,ФИO.BЫДAЧA ФAMИЛИИ 013148 : ,UJ,RET AC.Э106 013149 : :11,XTA,ФИO+1.BTOPAЯ ЧACTЬ ФAM. 013150 : ,UJ,RET AC.Э107 013151 : :11,VTM,-1.YCTAH.CДBИГA MЛ 013152 : ,UJ,Э112 013153 : :,,.ЗAПPOC CДBИГA MЛ 013154 : ,UJ,Э113 013155 : :,XTA,TODAY.ЗAПPOC ДATЫ 013156 : ,UJ,Э114 013157 : :,,.115,116 - 013158 : :,UJ,NRS RET.- ПYCTЫE 013159 : :,UJ,NRS RET.124 - ПYCTOЙ 013160 : CHE050:,BSS, 013161 : 11,XTA,SCEM 013162 : ,AAX,C1777 013163 : ,ATI,13 013164 : C.. ПPOБA HA ЭK PAБOTЫ C ИПЗ : 013165 : C ,*50,AДP 013166 : C AДP = 15-13 12-11 10-1 PAЗPЯДЫ 013167 : C 7 TИП AДPEC ПO ИПЗ 013168 : C +CMEЩEHИE 013169 : C.. TИП = 0 ЧTEHИE ИПЗ 013170 : C TИП = 1 ЗAПИCЬ B ИПЗ 013171 : C TИП = 2 OПEPAЦИЯ 'OR' 013172 : C TИП = 3 OПEPAЦИЯ 'AND' 013173 : C............................................ 013174 : CMEЩEHИE:,EQU,100B 013175 : 11,XTA,SCEM 013176 : ,ASN,64+10 013177 : ,AAX,C37 013178 : ,AEX,C34 013179 : ,ATI,12 013180 : ,UZA,NOCHREG 013181 : ,ASN,64+2 013182 : ,UZA,CHREG 013183 : 15,MTJ,12 013184 : 12,UTM,4-200B 013185 : ,ITA,12 013186 : ,A-X,B5 013187 : ,UZA,OШ/ЭK 013188 : 12,XTA,B48-4 013189 : ,AAX,ЭK200/R 013190 : ,UZA,NOCHREG 013191 : CHREG:,BSS, 013192 : C.. ПPOBEPKA PEЖИMA 013193 : ,XTA,3 013194 : ,WTC,ДHЗ 013195 : ,APX,BITS-NMAT1 013196 : 11,AOX,REGSCAL 013197 : ,AAX,B48 013198 : ,UZA,OШ/ЭK 013199 : NOCHREG:,BSS, 013200 : ,XTA,SAVAC 013201 : 11,J+M,13 013202 : 12,UJ,ЭK/ИПЗ 013203 : ЭK/ИПЗ:13,XTA,-CMEЩEHИE.ЧTEHИE 013204 : ,UJ,RETAC 013205 : *WR:13,ATX,-CMEЩEHИE.ЗAПИCЬ 013206 : ,UJ,RETAC 013207 : :13,AOX,-CMEЩEHИE.OR 013208 : ,UJ,*WR 013209 : :13,AAX,-CMEЩEHИE.AND 013210 : ,UJ,*WR 013211 : C.. ПEPEKЛЮЧATEЛЬ ЭK50/200-210/ 013212 : :,ASN,64+10 013213 : ,UJ,Э200 013214 : :,, 013215 : ,UJ,Э201 013216 : :12,VTM,-2 013217 : ,UJ,Э202 013218 : :,, 013219 : ,UJ,Э203 013220 : :,XTA,ГYC 013221 : ,UJ,RETAC 013222 : :,24,3.BBOД CTPOKИ 013223 : ,UJ,Э205.C OПEP.TEPM. 013224 : :13,VTM, 013225 : ,UJ,Э206.STOP JOB 013226 : :,ASN,64+15 013227 : ,UJ,Э207.MNPL-KBY 013228 : :,, 013229 : ,UJ,Э210.SEMAFOR 013230 : :,ATI,13 013231 : ,UJ,Э211.CLOSE 013232 : :,24,3 013233 : ,UJ,Э212.ДAЙ ИПЗ 013234 : :,APX,=377 1777 77777 013235 : ,UJ,Э213 013236 : C 013237 : C===== ЭKCTPAKOДЫ BETBЛEHИЯ ===== 013238 : C 013239 : A50:,BSS, 013240 : C 013241 : C..... AДPEC ДEШИФPATOPA + 013242 : C PEKYPCИBHOCTЬ BETBЛEHИЯ + 013243 : C MACKA ШKAЛЫ COБЫTИЙ 013244 : C 013245 : 11,ATX,ДШ 013246 : 12,VTM,-3 013247 : A50/1:12,UTC,3 013248 : 11,XTA,П YПP 013249 : ,AAX,B48/31 013250 : 12,UTC,3 013251 : 11,ATX,П YПP 013252 : 12,VLM,A50/1 013253 : ,XTA,SAVAC 013254 : ,AAX,B20/16 013255 : ,UZA,OШ/ЭK 013256 : 11,AOX,П YПP 013257 : 11,ATX,П YПP 013258 : ,AAX,B20/16 013259 : ,ASN,64+11 013260 : ,NTR,3 013261 : 11,X-A,ДШ 013262 : 11,AEX,ДШ 013263 : ,AAX,C76000 013264 : ,U1A,OШ/ЧYЖ 013265 : ,XTA,SAVAC 013266 : ,ASN,64+24 013267 : 11,AOX,MC 013268 : 11,ATX,MC 013269 : 11,XTA,ДШ 013270 : 15,VJM,FIM FIX 013271 : ,XTA,SAVAC 013272 : 11,AOX,П YПP 013273 : 11,ATX,П YПP 013274 : 11,AEX,ДШ 013275 : ,AAX,C76000 013276 : 11,AOX,M/Ф 013277 : 11,ATX,M/Ф 013278 : ,UJ,NRS RET 013279 : A51:,BSS, 013280 : C 013281 : C..... OTKAЗ OT BETBЛEHИЯ 013282 : C 013283 : ,AAX,C77777.ДEШИФPATOPA 013284 : ,UZA,A51/1.= HE БЫЛO 013285 : ,ASN,64+10 013286 : ,ATI,12 013287 : 12,XTA,TPHYS.PACФИKCAЦИЯ 013288 : ,AEX,B1. ЛИCTA 013289 : 12,ATX,TPHYS.ДEШИФPATOPA 013290 : ,XTA, 013291 : A51/1:11,ATX,ДШ 013292 : ,UJ,NRS RET 013293 : A52:,BSS, 013294 : C 013295 : C..... YCTAHOBKA MACKИ ШKAЛЫ COБЫTИЙ 013296 : C 013297 : ,ATX,SAVAR 013298 : 11,XTA,MC 013299 : ,AAX,B48/31 013300 : ,AOX,SAVAR 013301 : 11,ATX,MC 013302 : C..... ГACИTЬ ЛИ ЗAДAHHЫE COБЫTИЯ 013303 : ,XTA,SAVAC 013304 : ,AAX,B24 013305 : ,U1A,YCT B. = HET 013306 : A52/1:,XTA,SAVAR 013307 : ,AEX,FULWOR 013308 : 11,AAX,ШC 013309 : 11,ATX,ШC 013310 : C..... COБЫTИE : KOHEЦ OБMEHA 013311 : ,XTA,SAVAR 013312 : ,AAX,B24 013313 : ,UZA,NRS RET. = HET 013314 : 11,XTA,ДШ.ГAШEHИE 013315 : ,AAX,B16/1. ШKAЛЫ 013316 : ,UJ,A51/1.OKOH.OБMEHOB 013317 : C..... 013318 : YCT COБ:,XTA,SAVAC 013319 : ,ASN,64+24 013320 : 11,AOX,ШC 013321 : 11,ATX,ШC 013322 : YCT B:,BSS, 013323 : C..... HE ПOЛYЧИЛOCЬ ЛИ COБЫTИЯ 013324 : 11,XTA,ШC 013325 : 11,AAX,MC 013326 : ,ASN,64-24 013327 : ,UZA,NRS RET. = HE ПOЛYЧИЛOCЬ 013328 : 11,XTA,M/Ф 013329 : ,AOX,BETB 013330 : 11,ATX,M/Ф 013331 : ,UJ,PROC RET 013332 : A53*55:,BSS, 013333 : C 013334 : C..... ЗAПPOC MACKИ/ШKAЛЫ COБЫTИЙ 013335 : C 013336 : 11,AAX,MC 013337 : ,ASN,64-24 013338 : ,ATX,SAVAC 013339 : ,UJ,NRS RET 013340 : A54:,BSS, 013341 : C 013342 : C..... YCTAHOBKA/ГAШEHИE ШKAЛЫ COБЫTИЙ 013343 : C 013344 : ,U1A,YCT COБ.= YCTAHOBKA 013345 : ,XTA,SAVAC 013346 : ,ASN,64+24 013347 : ,ATX,SAVAR.HA ГAШEHИE 013348 : ,UJ,A52/1. COБЫTИЙ 013349 : A56:,BSS, 013350 : C 013351 : C..... БЛOKИPOBKA BETBЛEHИЯ 013352 : C 013353 : 11,AOX,ДШ 013354 : ,UJ,A51/1 013355 : A57:,BSS, 013356 : C 013357 : C..... CHЯTИE БЛOKИPOBKИ BETBЛEHИЯ 013358 : C 013359 : ,AEX,FULWOR 013360 : 11,AAX,ДШ 013361 : 11,ATX,ДШ 013362 : ,UJ,YCT B 013363 : A60:,BSS, 013364 : C 013365 : C..... BOЗBPAT ИЗ BETBИ 013366 : C 013367 : ,ATI,15 013368 : 11,AEX,ДШ 013369 : ,AAX,C1777 013370 : ,UZA,OШ/ЭK. = HET BETBEЙ 013371 : C..... OTKPЫTИE ЗAKPЫTЫX ПO 013372 : C PEKYPCИBHOCTИ BETBЛEHИЯ 013373 : 11,XTA,П YПP 013374 : ,ARX,B16*5 013375 : 11,ATX,П YПP 013376 : ,XTA,БЛOK 013377 : ,AEX,FULWOR 013378 : ,ATX,WORD 013379 : 11,AAX,M/Ф 013380 : 11,ATX,M/Ф 013381 : 15,UTM,13 013382 : ,XTA,SAVAC.ПPИ CYM. HE 0 013383 : ,U1A,NCLДШ.БЛOK HE YБИPEAM. 013384 : ,XTA,WORD 013385 : 11,AAX,ДШ 013386 : 11,ATX,ДШ 013387 : C..... BOCCTAHOBЛEHИE ЗAДAЧИ ИЗ ПOЛЯ YПP. 013388 : NCLДШ:,BSS, 013389 : 15,XTA, 013390 : 11,STX,REGSCAL 013391 : ,STI,11 013392 : ,STI,12 013393 : 14,VTM,NEWTA 013394 : ,UJ,BOC ИПД 013395 : A61:,BSS, 013396 : C 013397 : C..... CAMOЗAKPЫTИE ЗAДAЧИ ДO BETBЛEHИЯ 013398 : C 013399 : ,AAX,B24/1.ЗAKPЫBAEMCЯ , A 013400 : ,UZA,OШ/ЭK.B MACKE-ПYCTO 013401 : 11,AAX,ШC 013402 : ,U1A,A57/0.ECTЬ COБЫTИЯ 013403 : 11,XTA,M/Ф 013404 : ,AOX,ЗAKP 013405 : 11,ATX,M/Ф 013406 : 13,VTM,PROC RET 013407 : ,UJ,CL OPER 013408 : C 013409 : C===== 013410 : C 013411 : Э075:,BSS,. 013412 : C..... YCTAHOBKA PEЖИMA ЗAПИCИ KOMAHД 013413 : 11,XTA,REGSCAL. 013414 : ,AOX,B4. 013415 : ,AOX,B46. 013416 : ,AEX,B46. 013417 : 11,ATX,REGSCAL. 013418 : C..... CHЯTИE OCTAHOBA ПO И35 013419 : ,XTA,. 013420 : 11,ATX,27B. 013421 : ,UJ,NRS RET. 013422 : Э101:,BSS,. 013423 : C..... BЫДAЧA ПPИЧИHЫ ABOCTA 013424 : 11,AEX,SCEM 013425 : ,AAX,C77777 013426 : 11,AEX,SCEM 013427 : 11,ATX,SCEM 013428 : C HA BЫXOДE B И14 - AДPEC ABOCTA 013429 : 11,XTA,OШBHYПP. 013430 : ,ASN,64+39. 013431 : ,AAX,C177. 013432 : ,ATX,SAVAC 013433 : ,ASN,64-39 013434 : ,UJ,Э101/1.C ПEPEXBATOM 013435 : B5TOS:,BSS, 013436 : ,XTA,B5.(ЧYЖOЙ ЛИCT) 013437 : ,UJ,RET S. 013438 : Э102/103:,BSS, 013439 : C..... KPATHOCTЬ ABOCTOB 013440 : C..... AДPEC BXOДA ПO ABOCTY 013441 : 11,AEX,OШBHYПP 013442 : 15,AAX,C77777.ИЛИ B31/36 013443 : Э101/1:,BSS, 013444 : 11,AEX,OШBHYПP 013445 : 11,ATX,OШBHYПP. 013446 : 11,XTA,REGSCAL. 013447 : ,AOX,BITININ 013448 : 11,ATX,REGSCAL. 013449 : ,UJ,NRS RET 013450 : Э105:,BSS,. 013451 : C..... ЗAПPOC HOMEPA TOMA 013452 : 15,VJM,GIV MT. 013453 : 11,VTM,1-LFATA 013454 : ,UZA,TO ISO 013455 : SFATA:11,XTA,FATA+LFATAM1 013456 : 15,AEX,SUM 013457 : ,AAX,B48/37 013458 : ,UZA,B5TOS 013459 : 11,VLM,SFATA 013460 : NEGR*212:,BSS, 013461 : BP 3 :,BSS, 013462 : Э5/1:,XTA, 013463 : ,UJ,RET AC 013464 : TO ISO:12,XTA,TNAM-30B 013465 : 12,VTM,-2 013466 : Э202:,BSS, 013467 : C..... ПOЛYЧEHИE HOMEPA БOБИHЫ B ISO 013468 : ,AAX,C7777. 013469 : ,ATX,SAVAC 013470 : 13,VJM,GIVADR 013471 : ,XTA,SAVAC 013472 : 15,ATX,SUM 013473 : :,24,3 013474 : ,ATI,11 013475 : ,ASN,64-36 013476 : ,AUX,C171717 013477 : ,ARX,C060606 013478 : ,AAX,C202020 013479 : 15,ATX,SWORD 013480 : ,UZA,FIN/2105 013481 : **1:12,XTA,CON/2105+2 013482 : 15,ATX,FUL 013483 : ,ASN,64+22 013484 : 15,AAX,SWORD 013485 : ,U1A,TRAN2105 013486 : 15,XTA,FUL 013487 : ,ASN,64+15 013488 : ,AAX,C1777 013489 : ,ATI,13 013490 : 13,J+M,11 013491 : 15,XTA,SUM 013492 : 15,ASX,FUL 013493 : ,AAX,C17 013494 : ,ATI,13 013495 : ,UJ,**4 013496 : **2:,BSS, 013497 : 13,UTM,-1 013498 : 12,WTC,CON/2105+3 013499 : 11,UTM, 013500 : **4:13,VIM,**2 013501 : 12,VLM,**1 013502 : C 013503 : C... ПEPEBOД BOCЬMEPИЧHOГO KOДA 013504 : C B 2-10 CИCTEMY : 013505 : C 013506 : TRAN2105:,24,2003B 013507 : ,ITA,11 013508 : 15,MTJ,13 013509 : 15,CALL,DECLET 013510 : :,24,3 013511 : 13,MTJ,15 013512 : ,APX,=6H'''''17''17''17''17' 013513 : ,ASN,64+32 013514 : 15,ATX,SUM 013515 : FIN/2105:15,XTA,SUM 013516 : ,WTC, Г Y C 013517 : ,WTC,SCEM 013518 : 13,VTM,-105B 013519 : 13,VZM,RET AC 013520 : ,ASN,64-32 013521 : ,AUX,=6H'''''17''17''17''17' 013522 : ,AOX,=6H''''0000 013523 : ,UJ,RET AC 013524 : Э203:,BSS, 013525 : C.... ПEPEBOД NБOБ ИЗ 2-10 KOДA B T1MT 013526 : ,ASN,64-32 013527 : ,ATX,SAVAC 013528 : 13,VJM,GIVADR 013529 : ,XTA,SAVAC 013530 : 11,VTM,-3 013531 : : ,24,3 013532 : 15,ATX,SUM 013533 : ,XTA, 013534 : 15,ATX,FUL 013535 : /3105/:15,XTA,FUL 013536 : ,ASN,64-1 013537 : 15,ATX,EFR 013538 : ,ASN,64-2 013539 : 15,ARX,EFR 013540 : 15,ATX,FUL 013541 : 15,XTA,SUM 013542 : ,ASN,64-4 013543 : 15,ATX,SUM 013544 : ,YTA, 013545 : 15,ARX,FUL 013546 : 15,ATX,FUL 013547 : 11,VLM,/3105/ 013548 : Э201:,BSS, 013549 : C.... ПEPEBOД NБOБ ИЗ ДBOИЧHOГO KOДA B T1MT 013550 : : ,24,3 013551 : 5,MTJ,11 013552 : 6,MTJ,12 013553 : 9,MTJ,13 013554 : : ,24,2003B 013555 : 5,CALL,MTDISPAC 013556 : 13,MTJ,9 013557 : 12,MTJ,6 013558 : 11,MTJ,5 013559 : ,AAX,C7777 013560 : ,ATX,SAVAC 013561 : ,UJ,NRSRET 013562 : Э112:,BSS,. 013563 : C..... ЗAДAHИE CДBИГA ПO MЛ 013564 : C ПPOЧИCTKA "ДOБPA" OT BOЗMOЖHЫX ПOЧИTATEЛEЙ TЮPИHA 013565 : ,AAX,MAS/T1 013566 : ,ATX,SAVAC 013567 : TAPES:13,VJM,GIVADR 013568 : ,XTA,SAVAC 013569 : 15,ATX,TAЦПY+6 013570 : MAK/PT:,24,3 013571 : ,AAX,MAS/T1.BЫБOPKA 013572 : 11,UTC,1.YKAЗATEЛEЙ 013573 : 15,ATX,TAЦПY+2. MЛ 013574 : : ,24,2003B 013575 : ,ATX,SAVAC.HOMEPA 013576 : 15,VJM,GIV MT. M Ф 013577 : ,UZA,T*72 013578 : ,MTJ,12 013579 : T*72:,ITA,12 013580 : 11,UTC,1 013581 : 15,ATX,TAЦПY 013582 : 15,XTA,TAЦПY+6 013583 : ,ASN,64+24 013584 : 11,VLM,MAK/PT 013585 : 15,XTA,TAЦПY+1 013586 : 15,AOX,TAЦПY 013587 : ,UZA,OШЭK72T.= HИ OДHOЙ MЛ 013588 : 15,XTA,TAЦПY+3 013589 : ,UZA,*1MЛ 013590 : 15,AEX,TAЦПY+2 013591 : *1MЛ:15,ATX,TAЦПY+4 013592 : 11,VTM,1 013593 : DEL///:11,UTC, 013594 : 15,XTA,TAЦПY 013595 : 11,UTM,-1 013596 : ,UZA,ФИЗПYCTO 013597 : ,ATI,12 013598 : 11,UTC,1.MEHЯEM 013599 : 15,XTA,TAЦПY+2.YKAЗATEЛИ 013600 : 15,AEX,TAЦПY+4.MECTAMИ 013601 : ,APX,MAS/T1.ПOДГOTOBKA 013602 : ,AUX,MAS/T2. HOBOЙ 013603 : ,AOX,B1. CTPOKИ 013604 : 15,ATX,TAЦПY+5 013605 : ,XTA,ДHЗ.ДЛЯ ЗAПИCИ 013606 : ,ASN,64-42 013607 : 15,AOX,TAЦПY+5.B T1MT 013608 : 12,ATX,T1MT-30B 013609 : ФИЗПYCTO:11,VZM,DEL/// 013610 : RET S:,BSS,. 013611 : RET AC:,24,2003B 013612 : ,ATX,SAVAC 013613 : ,UJ,NRS RET. 013614 : Э113:,BSS,. 013615 : C..... ЗAПPOC CДBИГA ПO MЛ 013616 : 15,VJM,GIV MT. 013617 : ,U1A,Э5/1.HET ЛEHTЫ 013618 : 12,XTA,T1MT-30B.. 013619 : ,ASN,64+12. 013620 : ,AAX,C1777. 013621 : ,AOX,B48. 013622 : ,UJ,RET AC. 013623 : Э114:,BSS,. 013624 : C..... ЗAПPOC ДATЫ PEШEHИЯ 013625 : ,ASN,64+8. 013626 : ,AAX,B35/17. 013627 : ,ATX,SAVAC. ДATA 013628 : ,XTA,7. 013629 : ,ASN,64+33. 013630 : ,AAX,C7.HOMEP MAШИHЫ 013631 : ORSAV:,BSS, 013632 : ,AOX,SAVAC. 013633 : ,UJ,RET S. 013634 : Э200:,BSS,. 013635 : C..... ЗAПPOC CTATYCA MAT.ЛИCTA 013636 : ' 0 - CBOБOДEH 013637 : ' 1 - ЗAKPЫT ПO OБMEHY 013638 : ' 2 - OБMEH ПPOШEЛ,HO ПЛOXO 013639 : ' 3 - B ПOДKAЧKE 013640 : ' 4 - HE БЫЛO OБPAЩEHИЯ 013641 : ' 7 - BOOБЩE HE ЗAKAЗAH 013642 : C..... 013643 : ,AAX,C37. 013644 : ,ATI,15.HOMEP ЛИCTA 013645 : 12,VJM,ПPOB ЛИ 013646 : :12,VTM,7 013647 : ,UJ,RETS12 013648 : :12,VTM,4 013649 : ,UJ,RETS12 013650 : :,XTA, 013651 : ,UTC,3 013652 : :12,VTM, 013653 : ,ATI,13.ФИЗ.ЛИCT ИЛИ 0 013654 : 11,XTA,ST/EXCH 013655 : 15,AAX,B48 013656 : :,UZA,*+2 013657 : 11,AEX,ST/EXCH.ГACИM 013658 : 11,ATX,ST/EXCH 013659 : 12,VTM,2 013660 : :13,XTA,TPHYS 013661 : ,AAX,B7 013662 : ,UZA,RETS12 013663 : 12,VTM,1 013664 : RETS12:,ITA,12 013665 : ,UJ,RETS 013666 : C ЭK 0076B (TELOUT) 013667 : Э76:13,VJM,GIVADR 013668 : ,U1A,DO76B 013669 : 15,VTM,BUF5076-TAЦПY 013670 : ,XTA,STATMT 013671 : ,ASN,64+42 013672 : ,AEX,ДHЗ 013673 : ,UZA,DO76B 013674 : ,ITA,14 013675 : ,ARX,W///SEM 013676 : ,UJ,SEMDOWNS 013677 : W///SEM:,Z00,SEM/EM 013678 : ,Z00,DO76B-BAS 013679 : DO76B:,BSS, 013680 : ,XTA,SAVAC 013681 : ,ATI,12 013682 : ,AAX,B48/37 013683 : 15,ATX,TAЦПY 013684 : *SEND:,24,2000B 013685 : 12,XTA, 013686 : : ,24,3 013687 : 11,UTC,13 013688 : 15,ATX,TAЦПY+1 013689 : ,AAX,C377 013690 : ,UZA,SOC*76 013691 : 12,UTM,1 013692 : 11,VLM,*SEND 013693 : ,XTA, 013694 : 15,ATX,TAЦПY+15 013695 : SOC*76:,BSS, 013696 : 15,UTM,TAЦПY+1 013697 : ,ITA,15 013698 : 15,AOX,-1 013699 : 15,ATX,-1 013700 : :,24,2003B 013701 : 14,MTJ,11 013702 : ,XTA,STATMT 013703 : ,ASN,64+42 013704 : ,AEX,ДHЗ 013705 : ,UZA,ЗBOH 013706 : OCMOTP:,XTA,TELOUT-1.ECЛИ OЧEPEДЬ 013707 : ,ASN,64+1.CИЛЬHO ЗAБИTA 013708 : 11,UZA,ЗBOH-BAS 013709 : ,XTA,DISREG.- БYДEM 013710 : ,ATI,27B. ЖДATЬ 013711 : ,*57,3.OCBOБOЖДEHИЯ 013712 : 11,UJ,OCMOTP-BAS 013713 : ЗBOH:15,XTA,-1 013714 : 14,VJM,TELOUT+1 013715 : 11,MTJ,14 013716 : ,UJ,NRSRET 013717 : C..... ЭK 0064 - ЗAПИCЬ *NAME 013718 : Э64:13,VTM,-2 013719 : Э64/1:,24, 013720 : 13,UTC,2 013721 : 12,XTA, 013722 : :,24,2003B 013723 : 13,UTC,2 013724 : 11,ATX,NAME 013725 : 13,VLM,Э64/1 013726 : ,UJ,NRS RET 013727 : ,SPACE,8 013728 : Э104:,BSS, 013729 : C , * 5 0 , 1 0 4 B 013730 : C BЫДAЧA ФAMИЛИИ ПOЛЬЗOBATEЛЯ. 013731 : C HA CYMMATOPE : 013732 : C B48 : =1 - ФAM. B ISO, 013733 : C ИHAЧE B GOST'E 013734 : C B15-1 : AДPEC, KYДA ПOMECTИTЬ 013735 : C ФAMИЛИЮ (ДBE ЯЧ.) 013736 : ,ARX, 013737 : ,U1A,Э104/1 013738 : ,UTC,ФИO/ISO-ФИO 013739 : Э104/1:11,UTM,ФИO 013740 : 11,XTA, 013741 : :,24, 013742 : 12,ATX, 013743 : :,24,2003B 013744 : 11,XTA,1 013745 : :,24, 013746 : 12,ATX,1 013747 : :,24,2003B 013748 : ,UJ,NRS RET 013749 : C ЭK 0066 - ЗAПPOC ДИPEKTИBЫ. 013750 : Э66:13,VJM,GIVADR. 013751 : ПPЖДY:,XTA,101B. 013752 : ,ATX,SAVAC. 013753 : ,ASN,64-36. 013754 : ,AEX,TTN. 013755 : ,UZA,BЫX/Э. 013756 : 11,ATX,KTP 013757 : ,ASN,64-6 013758 : ,U1A,MOЛЧИM 013759 : C----- ПPOБA HA 'TEPMИHATOP' 013760 : ,XTA,ГYC 013761 : ,ASN,64+15 013762 : ,ASN,64-42 013763 : 11,AEX,KTP 013764 : ,AEX,OCT50 013765 : ,UZA,BЫX/Э. 013766 : MOЛЧИM:,BSS, 013767 : 15,XTA,SUM. 013768 : ,UZA,RET AC.HE ЖДEM. 013769 : 14,MTJ,13. 013770 : ,XTA,DISREG. 013771 : ,ATI,27B. 013772 : ,*57,3.ЖДEM 013773 : 13,MTJ,14. 013774 : ,UJ,ПPЖДY 013775 : BЫX/Э:,ATX,101B 013776 : ,UJ,NRS RET 013777 : C 013778 : C ЭK 0205 - ПPИEM CTPOKИ C OПEP. 013779 : C TEPMИHAЛA. CYMMATOP=AДPEC,KYДA 013780 : C ПИCATЬ COOБЩEHИE (KOД=ISO, KOHEЦ 013781 : C -ПYCTOЙ БAЙT). БИT 16 = 1, ECЛИ 013782 : C OБЯЗATEЛЬHO ДOЖИДAEMCЯ COOБЩEHИЯ 013783 : C HA BЫXOДE CYMMATOP=0, ECЛИ HE 013784 : C БЫЛO COOБЩEHИЯ, ИHAЧE NTT+1. 013785 : C 013786 : Э205:13,VJM,GIVADR 013787 : S/MES:12,VTM,ATEL1 013788 : 11,VTM,-1 013789 : MESSA:,XTA,ГYC 013790 : ,ASN,64+15 013791 : ,AOX,C1400 013792 : ,AOX,B6 013793 : 11,AEX,TELIS+1 013794 : ,AAX,C77777 013795 : ,UZA,MESSB 013796 : 12,VTM,ATEL2 013797 : 11,VLM,MESSA 013798 : 15,XTA,SUM 013799 : ,AAX,B16 013800 : ,UZA,RETAC 013801 : ,XTA,DISREG 013802 : ,ATI,27B 013803 : 14,MTJ,13 013804 : ,*57,3 013805 : 13,MTJ,14 013806 : ,UJ,S/MES 013807 : MESSB:,24,2003B 013808 : 11,ATX,TELIS+1 013809 : 15,WTC,SUM 013810 : 15,VTM, 013811 : TT1:12,XTA, 013812 : 12,UTM,1 013813 : :,24, 013814 : 15,ATX, 013815 : :,24,3 013816 : ,AAX,C377 013817 : ,U1A,TT1 013818 : 11,UTM,2 013819 : ,ITA,11 013820 : ,UJ,RETAC 013821 : C 013822 : C ЭK 0067 (DATE*). 013823 : Э67:13,VJM,GIVADR. 013824 : 15,J+M,12 013825 : ,XTA,ASTIME 013826 : 13,VJM,K8/10 013827 : : ,24,2003B.БЛПP 013828 : ,ASN,64-26 013829 : ,AUX,MTIM1 013830 : ,ATX,SAVAC 013831 : ,XTA,TODAY 013832 : ,ASN,64-5 013833 : ,AUX,MTIM2 013834 : ,UJ,ORSAV 013835 : C ЭKCTPAKOД ПEPEHOCA ЛИCTA 013836 : C B 1-Ю ПAMЯTЬ И EГO ФИKCA- 013837 : C ЦИИ. HA CYMMATOPE - 013838 : C AДPEC ЯЧEЙKИ ЛЮБOГO ЛИCTA, 013839 : C B TOM ЧИCЛE И ФOPMAЛЬHOГO, 013840 : C ПOCЛE BЫXOДA ИЗ ЭKCTPAKOДA 013841 : C ИP 14 COДEPЖИT COOTBETCTBY- 013842 : C ЮЩИЙ ФИЗИЧECKИЙ AДPEC. 013843 : Э77:,BSS,. 013844 : 15,VTM,NRS RET 013845 : FIM FIX:,BSS, 013846 : 14,MTJ,13 013847 : ,ATI,14 013848 : ,AAX,B16. 013849 : 13,REL,BAS 013850 : 12,VTM,CALL1MEM 013851 : ,UZA,GIV P 013852 : 12,VTM,CALL1FME 013853 : ,XTA,SAVAC 013854 : ,ASN,64+10 013855 : ,AAX,C77 013856 : ,ASN,64-24 013857 : GIV P:,ATX,SAVAC 013858 : 13,UTM,TAKP-BAS 013859 : ,ITA,13 013860 : 13,UTM,BAS-TAKP 013861 : ,ARX,SAVAC 013862 : 12,UJ, 013863 : TAK P:,AAX,C77777 013864 : ,ATX,SAVAC. 013865 : ,ASN,64+10. 013866 : ,ATI,12 013867 : 12,XTA,TPHYS. 013868 : ,AOX,B1.ФИKCAЦИЯ 013869 : 12,ATX,TPHYS.ЛИCTA 013870 : ,ITA,14 013871 : ,AAX,C1777. 013872 : ,AOX,SAVAC. 013873 : ,ATX,SAVAC.ФИЗ.AДPEC 013874 : ,WTC,Г Y C. 013875 : ,XTA,SCEM. 013876 : ,ASN,64+15. 013877 : ,ASN,64-15. 013878 : ,AOX,SAVAC. 013879 : ,WTC,Г Y C . 013880 : ,ATX,SCEM. 013881 : 13,MTJ,14 013882 : 14,REL,BAS 013883 : 15,UJ, 013884 : Э210:,BSS, 013885 : C-- SEMUP/SEMDOWN 013886 : 15,VTM,SEMUP 013887 : ,ARX, 013888 : ,U1A,Э210/UP 013889 : 15,VTM,SEMDOWNS 013890 : Э210/UP:,ASN,64-24 013891 : ,ARX,W/SEM 013892 : ,ATX,SAVAC 013893 : ,ITA,14 013894 : ,ARX,SAVAC 013895 : 15,UJ, 013896 : W/SEM:,Z00,ШЛAГБAYM 013897 : ,Z00,NRSRET-BAS 013898 : Э211:,BSS, 013899 : C... ЗAKPЫTИE ЗAДAЧИ C 013900 : C ПPOCTAHOBKOЙ B ШKAЛЫ ИЗ SCALES. 013901 : C CYMMATOP=AДPEC ШKAЛЫ 013902 : C ( OTHOCИTEЛЬHO SCALCLTA ). 013903 : ,XTA,B24 013904 : 13,ASN,64 013905 : ,AAX,SC211.ШKAЛA PAЗPEШEHA 013906 : ,UZA,OШ/ЭK.HET 013907 : ,XTA,BITJ 013908 : 13,AOX,SCALCLTA 013909 : 13,ATX,SCALCLTA 013910 : 13,VTM,PROCRET 013911 : ,UJ,CLTASK 013912 : W212:14,MTJ,13.ЖДEM, ПOKA 013913 : ,*57,3.KЛИEHT BЫЙДET 013914 : :,24 ,3.ИЗ KPИT. 013915 : 13,MTJ,14.ИHTEPBAЛA 013916 : Э212:,BSS, 013917 : C 013918 : C... ЭKCTPAKOД PAБOTЫ C ЧYЖOЙ ПAMЯTЬЮ 013919 : C 1:6 P.CYMMATOPA - N ЛИCTA KЛИEHTA 013920 : C И П З = 50 ЛИCT 013921 : C 10:15 P. - Д H З KЛИEHTA 013922 : C 31:35 P. - N CBOEГO MAT.ЛИCTA 013923 : C 48 - ЧTEHИE 013924 : C 47 - БEЗ ДЛИTEЛЬHOГO HAPKOЗA 013925 : C 013926 : 13,VJM,GIVADR 013927 : 15,XTA,SUM 013928 : ,ASN,64+9 013929 : ,ATI,12 013930 : ,ASN,64+21 013931 : ,AAX,C77 013932 : 15,ATX,EFR.CBOЙ 013933 : 15,ATX,FR1.ЛИCT 013934 : 15,XTA,SUM 013935 : ,AAX,=6000 0000 0000 0077 013936 : 15,ATX,FR.ЧYЖOЙ ЛИCT 013937 : :,24 ,2003B 013938 : ,XTA,DISREG 013939 : ,ATI,27B 013940 : 11,VTM,-NSEM1 013941 : S212:,ITA,12.ECЛИ KЛИEHT 013942 : 11,AEX,ШЛAГБAYM+NSEM1.CИДИT B 013943 : ,AAX,C77.KPИT.ИHTEPBAЛE 013944 : ,UZA,W212. - HAДO ЖДATЬ 013945 : 11,VLM,S212 013946 : ,XTA, Г Y C 013947 : ,AAX,C77777 013948 : 15,ATX,S12 013949 : ,XTA, Д H З 013950 : ,ASN,64-27 013951 : 15,AOX,S12 013952 : 15,ATX,S12.CBOЙ 013953 : 15,ATX,SUM.IDENT 013954 : ,XTA,Ш/FULL 013955 : ,AOX,Ш/CЛYЖ 013956 : 12,AAX,BITS.KЛИEHT 013957 : ,UZA,NEGR*212.ЗAПPEЩEH 013958 : ,AAX,SCENDJO 013959 : ,U1A,NEGR*212.KOHЧAETCЯ 013960 : 12,XTA,*YCЫ 013961 : ,AAX,B30/16 013962 : ,UZA,NEGR*212.KOHЧИЛCЯ 013963 : ,ITA,14 013964 : ,ARX,ASEM212 013965 : ,UJ,SEMDOWNS 013966 : ASEM212:,Z00,SEM212 013967 : ,Z00,БAЙ/БAЙ - BAS 013968 : BSEM212:,Z00,SEM212 013969 : ,Z00,BOЗBPAT - BAS 013970 : БAЙ/БAЙ:,BSS, 013971 : C... BPEMEHHЫЙ HAPKOЗ KЛИEHTY 013972 : 12,XTA,BITS 013973 : ,ATX,YДABЛEHЫ 013974 : 15,MTJ,11 013975 : ,AEX,FULWOR 013976 : ,AAX,MRDSCAL 013977 : ,ATX,MRDSCAL 013978 : ,ITA,12 013979 : ,ASN,64-9 013980 : ,ATI,15 013981 : ,ASN,64-18 013982 : 11,ATX,S15 013983 : 15,UTM,50B.ИПЗ 013984 : ДAЙ ИПЗ:13,VTM,ДAЙ ИПЗ 013985 : 13,MTJ,33B 013986 : 13,VTM,GIVEPAGE 013987 : 12,XTA,*YCЫ 013988 : ,AAX,C77777 013989 : ,UZA,SAVEMOD.HA ДOБЫЧY 013990 : 11,AOX,S15.ЧYЖOЙ 013991 : 11,ATX,S15.IDENT 013992 : ,AAX,C76000 013993 : ,ATI,12.ФИЗ.AДP. 013994 : ,ASN,64+10 013995 : ,ATI,15 013996 : 15,XTA,TPHYS 013997 : ,AOX,B1.ДOБЫTOГO 013998 : 15,ATX,TPHYS.ИПЗ 013999 : :,24,3 014000 : 11,XTA,FR 014001 : ,AAX,C77 014002 : ,AEX,C50.HA ЗAMEHY 014003 : ,U1A,ЗAM 2Л.CTPAHИЦ 014004 : C..... TOЛЬKO ДOCTYП K ИПЗ : 014005 : 11,XTA,FR 014006 : ,ARX, 014007 : ,U1A,RET/212 014008 : 11,XTA,EFR 014009 : ,ASN,64-10 014010 : ,ATI,13.MAT.AДP. 014011 : 15,VTM,-1023 014012 : ПEPEПИCЬ:12,XTA, 014013 : 12,UTM,1 014014 : :,24, 014015 : 13,ATX, 014016 : :,24,3 014017 : 13,UTM,1 014018 : 15,VLM,ПEPEПИCЬ 014019 : RET/212:,BSS, 014020 : 11,XTA,FR 014021 : ,ASN,64+46 014022 : ,AEX,B2 014023 : ,UZA,BOЗBPAT 014024 : :,24,2003B 014025 : 11,XTA,S15 014026 : ,ASN,64+10 014027 : ,ATI,15 014028 : ,XTA,Ш/FULL 014029 : ,APX,YДABЛEHЫ.PACФИKCAЦИЯ 014030 : ,ASN,64-1.ИПЗ 014031 : ,YTA,.MAT. 014032 : 15,AEX,TPHYS.ЗAДAЧИ 014033 : 15,ATX,TPHYS 014034 : ,ITA,14 014035 : ,ARX,BSEM212 014036 : ,UJ,SEMUP 014037 : BOЗBPAT:11,XTA,S15.A ИПЗ 014038 : ,UJ,RET S 014039 : C----------------- 014040 : Э206:,BSS, 014041 : C 014042 : C BЫБPOC ЗAДAЧИ ПO ШИФPY. 014043 : C CYMMATOP HA BXOДE: 014044 : C 1- 8 PP - N CЧETHOГO KAHAЛA 014045 : C 9-48 PP - CПEЦ. KЛЮЧ 014046 : C CYMMATOP HA BЫXOДE: 014047 : C 0 - BCE B ПOPЯДKE 014048 : C 1 - ЧTO-TO HE B ПOPЯДKE 014049 : C ------------------------------ 014050 : ,ATX,SYM 014051 : ,ASN,64+8 014052 : ,AEX,CODE206 014053 : ,UIA,OШ/ЭK 014054 : ,ATX,SAVAC 014055 : 15,VTM,RETAC 014056 : 15,MTJ,33B 014057 : ,XTA,DISREG 014058 : ,ATI,27B 014059 : ,ITA,14 014060 : ,ATX,SAVI14 014061 : ,XTA,SYM 014062 : ,UJ,STOP/NP 014063 : Э213:,BSS, 014064 : C... YCTAHOBKA ДЛЯ Э060 PEЖИMA 014065 : C ЧTEHИЯ OБPAЗOB KAPT C MБ/MЛ 014066 : C CYMMATOP= YK.MБ/MЛ (16-33P.) 014067 : C CЧ-K ПO ЛИCTY (1-15) 014068 : ,AOX,B48 014069 : 11,AEX,I60/74 014070 : ,AAX,=7777 7777 7770 0000 014071 : 11,AEX,I60/74 014072 : 11,ATX,I60/74 014073 : ,UJ,NRS RET 014074 : GIV MT:,BSS,. 014075 : C..... ПOИCK MЛ ПO MAT.HOMEPY 014076 : ,ITA,15. 014077 : ,ATX,SI15. 014078 : 13,VJM,GIVADR. 014079 : ,XTA,SI15. 014080 : 15,ATX,S15. 014081 : ,XTA,SAVAC. 014082 : ,ASN,64-30. 014083 : ,ASN,64+6. 014084 : 15,ATX,SUM. 014085 : ,XTA,ДHЗ. 014086 : ,ASN,64-42. 014087 : 15,AOX,SUM. 014088 : 15,ATX,SUM. 014089 : : ,24,3. 014090 : 12,VTM,1-48.+MOДEЛИ 014091 : SEAR MT:,BSS,. 014092 : 12,XTA,T1MT+31. 014093 : 15,AEX,SUM. 014094 : ,AAX,B48/37. 014095 : ,UZA,RET MT. 014096 : 12,VLM,SEAR MT. 014097 : : ,24,2003B. 014098 : ,UJ,ABS/MT 014099 : RET MT:,24,2003B. 014100 : 12,UTM,31+30B.ФИЗ.N MФ 014101 : ,WTC,Г Y C. 014102 : ,XTA,SCEM. 014103 : ,ASN,64+15. 014104 : ,ASN,64-15. 014105 : ,ATX,TEX 014106 : ,ITA,12. 014107 : ,AOX,TEX. 014108 : ,WTC,Г Y C. 014109 : ,ATX,SCEM. 014110 : ,XTA,. 014111 : ABS/MT:,BSS,. 014112 : 15,WTC,S15. 014113 : ,UJ,. 014114 : ЭK62:,BSS,. 014115 : C***** ИHTEPПPETAЦИЯ ЭK62 014116 : 15,V1M,Э62/1. 014117 : C..... БEЗYCЛOBHЫЙ KOHEЦ ЗAДAЧИ 014118 : ,AAX,ШKП. 014119 : ,ATX,ШKП. 014120 : ,UJ,MACRO74. 014121 : Э62/1:,BSS,. 014122 : C..... MЛ-OTKAЗ , MЛ-CMEЩEHИE 014123 : ,ITA,15. 014124 : ,ASN,64-33. 014125 : ,AUX,MSK MT. 014126 : ,ATX,SAVAC. 014127 : ,AAX,C777. 014128 : ,AEX,C777. 014129 : 11,VTM,-1 014130 : ,U1A,TAPES.-CMEЩEHИE 014131 : 15,VJM,GIV MT. 014132 : ,U1A,Э5/1.HET ЛEHTЫ 014133 : C..... OTKAЗ OT ЛEHTЫ 014134 : ,XTA,B1. 014135 : 12,ATX,T1MT-30B. 014136 : ,UJ,RET AC.HA BOЗBPAT 014137 : ЭK63:,BSS,. 014138 : C***** ИHTEPПPETAЦИЯ ЭK63 014139 : ,ARX,C3 014140 : ,ASN,64+3 014141 : ,U1A,ЧTФИЗЯ.ЧTEHИE ЯЧEЙKИ 014142 : 15,UTM,-4 014143 : 15,VZM,Э634 014144 : 15,UJ,SW63+4 014145 : Э630:,BSS,. 014146 : 11,XTA,TLIM. 014147 : ,NTR,2 014148 : 11,A-X,TJOB. 014149 : ,UJ,RET S. 014150 : Э631:,BSS,. 014151 : C..... ПEЧATЬ BPEMEH HA AЦПY 014152 : 13,VJM,GIVADR. 014153 : : ,24,3. 014154 : 15,UTM,EFR 014155 : 15,MTJ,12. 014156 : ,XTA,CHAЧ. 014157 : 12,ATX,. 014158 : 12,UTM,1. 014159 : ,XTA,CB.ПOДГOTOBKA 014160 : 12,ATX,.CЧET.BPEMEHИ 014161 : 11,XTA,TIC. 014162 : 13,VJM,K 8/10.... 014163 : ,XTA,KB. 014164 : 12,ATX,.KOMMEPЧECKOГO 014165 : 11,XTA,TIB. 014166 : 13,VJM,K 8/10.... 014167 : ,XTA,AB. 014168 : 12,ATX,.ACTPOHOMИЧ. 014169 : ,XTA,ASTIME. 014170 : 13,VJM,K 8/10.... 014171 : 13,VJM,GIVADR 014172 : 12,XTA,-1. 014173 : ,AEX,C226.KOPPEKTИP. 014174 : 12,ATX,-1.KOHЦA 014175 : 12,VTM,NRSRET 014176 : 13,VTM,INFPR-BAS 014177 : ,UJ,PRINT 014178 : Э632:,BSS,. 014179 : C..... БYДИЛЬHИK ПO BPEMEHИ 014180 : 11,XTA,TLIMS.BOCCTAHOBЛEHИE 014181 : ,UZA,Э632/1.ПACПOPTHOГO 014182 : 11,ATX,TLIM. ЛИMИTA 014183 : ,XTA,. 014184 : 11,ATX,TLIMS. 014185 : Э632/1:,BSS,. 014186 : 13,VJM,K 10/8.ПEPEBOД BPEMEHИ 014187 : ,AOX,.OTKAЗ OT БYД. 014188 : ,UZA,NRS RET. - ДA 014189 : C..... ЗAKAЗ БYДИЛЬHИKA 014190 : 11,A+X,TJOB. 014191 : ,ATX,SAVAC.HOBЫЙ ЛИMИT 014192 : 11,A-X,TLIM. 014193 : BP 2:,UZA,BP 3.- HE ПPOЙДET 014194 : 11,XTA,TLIM.CTAP.ЛИMИT - 014195 : 11,ATX,TLIMS.ЗAПOMHИM 014196 : ,XTA,SAVAC.HOBЫЙ - 014197 : 11,ATX,TLIM.YCTAHOBИM 014198 : ,UJ,RET S. 014199 : Э633:,BSS,. 014200 : C..... BPEMЯ HA ABOCTHYЮ BЫДAЧY 014201 : 13,VJM,K 10/8.ПEPEBOД BPEMEHИ 014202 : 11,XTA,TLIMS.HOBЫЙ ЛИMИT 014203 : ,U1A,BP 3.- YЖE ЗAДAH 014204 : 11,XTA,TLIM. 014205 : ,A-X,WORD.OПPEДEЛИM 014206 : ,ATX,SAVAC.HOBЫЙ ЛИMИT 014207 : 11,X-A,TJOB. 014208 : ,UJ,BP 2.HA ПPOBEPKY 014209 : Э634:,BSS,. 014210 : 11,XTA,TJOB.ПOЛYЧEHИE 014211 : ,NTR,2.KOЛИЧECTBA 014212 : ,A*X,R50.50-ГEPЦOBOK 014213 : ,NTR,3 014214 : ,A+X,INT0. 014215 : ,AAX,B24/1 014216 : ,UJ,RET S 014217 : ЧTФИЗЯ:,BSS,. 014218 : ,ITA,15. 014219 : ,ASN,64+3. 014220 : ,UZA,OШ/ЭK. 014221 : 15,UTC, 014222 : ,XTA, 014223 : ,UJ,RET S. 014224 : K 10/8:,BSS,. 014225 : C..... ПEPEBOД BPEMEHИ ИЗ TEKCTA 014226 : 15,VTM,1-6. 014227 : ,XTA,INT0. 014228 : ,ATX,WORD. 014229 : ,XTA,SAVAC. 014230 : ,AEX,SPECN. 014231 : 13,UZA,. 014232 : K 1:,XTA,SAVAC. 014233 : ,ASN,64-8. 014234 : ,ATX,SAVAC. 014235 : ,YTA,. 014236 : ,AOX,INT0.OЧEP.ЦИФPA 014237 : 15,A*X,NUMB+5. 014238 : ,A+X,WORD.BPEMЯ B 014239 : ,ATX,WORD.CEKYHДAX 014240 : 15,VLM,K 1. 014241 : 13,UJ,. 014242 : K 8/10:,BSS,. 014243 : C..... ПEPEBOД BPEMEHИ B TEKCT 014244 : : ,24,2003B. 014245 : 15,VTM,1-6.BPEMЯ B 014246 : K 3:,NTR,2. 014247 : ,ATX,WORD.CEKYHДAX 014248 : 15,A/X,NUMB+5. 014249 : ,NTR,3. 014250 : ,A+X,INT0. 014251 : ,ATX,SYM.OЧEP.CИMBOЛ 014252 : ,NTR,2. 014253 : 15,A*X,NUMB+5. 014254 : ,X-A,WORD. 014255 : ,ATX,WORD.OCTATOK 014256 : ,XTA,TEX. 014257 : ,ASN,64-4.BPEMЯ B 014258 : ,AOX,SYM.ШECTHAДЦAT. 014259 : ,ATX,TEX.ПPEДCTABЛEHИИ 014260 : ,XTA,WORD 014261 : 15,VLM,K 3. 014262 : ,XTA,TEX 014263 : ,ASN,64-24. 014264 : ,AUX,MUT1.ПPEOБPAЗOB. 014265 : 12,AOX,.BPEMEHИ 014266 : 12,ATX,.B KOД 'ГOCT' 014267 : ,XTA,TEX. 014268 : ,ASN,64-32. 014269 : ,AUX,MUT2. 014270 : ,AOX,MOT2. 014271 : 12,ATX,1. 014272 : 12,UTM,2. 014273 : ,XTA,TEX.BPEMЯ 014274 : : ,24,3.OПP 014275 : 13,UJ,. 014276 : GIVADR:,BSS,. 014277 : ,WTC,ГYC 014278 : 15,VTM,WS/ПФ+5 014279 : ,XTA,Ш/FULL 014280 : ,AAX,BITJ 014281 : 13,UZA,.CЛYЖ.ЗAД 014282 : C.. ДЛЯ MAT.ЗAДAЧИ ИCПOЛЬЗYEM ПOЛЯ B ИПЗ: 014283 : C FIELD1, ECЛИ HE ИЗ *WRBF, ИHAЧE FIELD2 014284 : ,WTC,ГYC 014285 : 15,VTM,FIELD2 014286 : ,AAX,SCEM*64 014287 : 13,U1A, 014288 : 15,UTM,FIELD1-FIELD2 014289 : ,XTA,B1 014290 : 13,UJ, 014291 : OШЭK72T:15,MTJ,11 014292 : 11,UTM,MSAV-SWORD 014293 : OШЭK 0:,BSS,. 014294 : 11,XTA,SWORD. 014295 : : ,24,2003B. 014296 : ,ATX,SAVAC. 014297 : OШ/ЭK:,BSS, 014298 : 13,VJM,BOCCTAH. 014299 : 15,VTM,TOШИБ 014300 : TO ERRM:,BSS, 014301 : C..... ПOДГOTOBKA K "ERRMACRO' 014302 : ,WTC,ГYC 014303 : 13,VTM, 014304 : 13,XTA,SCEM 014305 : ,ATX,SAVI14.ИCПOЛ.AДPEC 014306 : ,ASN,64+15 014307 : ,AAX,C37 014308 : ,ARX,C550. 014309 : 13,ATX,AП.HOMEP ЭK 014310 : ,MTJ,27B 014311 : 14,MTJ,13. 014312 : 15,MTJ,14.TEKCT OШИБKИ 014313 : ,UJ,ERREXT 014314 : OШ/ЧYЖ:,BSS, 014315 : 13,VJM,BOCCTAH 014316 : 15,VTM,TЧYЖЛ 014317 : ,UJ,TO ERRM 014318 : BOCCTAH:,BSS,. 014319 : C..... BOCCTAHOBЛEHИE COCTOЯHИЯ 014320 : C ИЗ BHYTP.ПOЛЯ YПPЯTЫBAHИЯ 014321 : : ,24,2003B. 014322 : ,ITA,14 014323 : ,ARX,R/SEM 014324 : ,UJ,SEMUP 014325 : R/SEM:,Z00,SEM/EM 014326 : ,Z00,NO SEM - BAS 014327 : NO SEM:,BSS, 014328 : ,ITA,13. 014329 : ,ATX,SI15. 014330 : 13,VJM,GIVADR 014331 : 15,UTM,7. 014332 : 15,XTA,. 014333 : ,STI,11. 014334 : ,STI,12. 014335 : ,ATX,SAVI13. 014336 : ,STI,13. 014337 : ,STX,SAVI15. 014338 : ,STI,32B. 014339 : ,STX,SAVSR. 014340 : ,XTR,SAVSR. 014341 : ,WTC,SAVI15. 014342 : 15,VTM,. 014343 : ,WTC,SI15. 014344 : ,UJ,. 014345 : CHECK PR:11,XTA,SCEM. 014346 : ,AAX,B25. 014347 : 12,UZA,. 014348 : 11,XTA,SCEM.TPACCИPYEM 014349 : 15,AAX,S15.TOЛЬKO TEX 014350 : 12,UZA,.KOГO ЗAKAЗAЛИ 014351 : ,AEX,B32 014352 : ,U1A,NO70 014353 : C 014354 : C... HE ПEЧATAEM ПO Э070 OT ЗAГPYЗЧИKA 014355 : C 014356 : ,WTC,3 014357 : 13,VTM,-71717B 014358 : 13,VZM,NO70 014359 : 15,XTA,2 014360 : ,ASN,64+9 014361 : 12,UZA,.<1000 014362 : ,ASN,64+1 014363 : ,AEX,C37 014364 : 12,UZA,.>76000 014365 : ,XTA,LIB/BOSS 014366 : ,AAX,BITJ 014367 : 12,U1A,.LOADLIBR 014368 : NO70:,BSS, 014369 : ,XTA,SCEM*64 014370 : ,AAX,BITJ 014371 : 12,U1A, 014372 : 11,XTA,SCEM. 014373 : 13,VTM,INФO-BAS 014374 : ,ASN,64-28. 014375 : ,AUX,CPP1. 014376 : ,ARX,CPP2. 014377 : 15,ATX,7.N ЭKCTPK 014378 : ,XTA,CPP3. 014379 : 15,ATX,9. / 014380 : 15,XTA,SUM. 014381 : 15,ATX,11.ПEЧATAEMOE 014382 : ,ASN,64+24. 014383 : 15,ATX,10. CЛOBO 014384 : ,XTA,CPP4. 014385 : 15,ATX,12.BЭ = 014386 : 11,XTA,SCEM. 014387 : ,AAX,B23. 014388 : ,UZA,AДPM. 014389 : ,XTA,CPP5. 014390 : 15,ATX,12.BЭФ= 014391 : AДPM:15,XTA,2. 014392 : 15,ATX,13. 014393 : C--- ПOДПPOГPAMMA ПEЧATИ 014394 : C HA BXOДE : 014395 : C И.P.13 - OTHOCИT.AДPEC ИHФ.CЛ.-64 014396 : C И.P.15 - AДPEC ПOЛЯ YПPЯTЫBAHИЯ 014397 : C И.P.11 - AДPEC И П З 014398 : C 014399 : PRINT:,24,2003B 014400 : 11,XTA,SCEM 014401 : 15,ATX,FUL 014402 : ,XTA,DISREG 014403 : ,ATI,27B 014404 : ,ITA,14 014405 : 13,J+M,14 014406 : ,ATI,13 014407 : 13,ARX,A/RET64-BAS 014408 : ,ATI,32B 014409 : A/RET64:,UJ,MACRO64+2 014410 : ,Z00,RET/M64-BAS 014411 : RET/M64:13,MTJ,14 014412 : 15,XTA,FUL 014413 : 11,ATX,SCEM 014414 : 12,UJ, 014415 : INФO:15,,7. 014416 : 15,,13. 014417 : :0,010,. 014418 : ,005,. 014419 : :2,016,5. 014420 : ,,. 014421 : :0,024,. 014422 : ,001,. 014423 : :2,026,8. 014424 : ,011,1. 014425 : :0,050,. 014426 : ,004,. 014427 : :2,055,5. 014428 : 8,,. 014429 : C..... ШKAЛA ЭK C ИHФOPM.CЛOBAMИ 014430 : ШЭ ПAM:,OCT,0000 4040.Э70 - HE HAДO! 014431 : C..... 014432 : CPP1:,GOST,6H037000 014433 : CPP2:,GOST,6HЭ50 A'231' 014434 : CPP3:,GOST,2H/'231' 014435 : CPP4:,GOST,6HBЭ ='231' 014436 : CPP5:,GOST,6HBЭФ='231' 014437 : INFPR:15,,EFR 014438 : 15,,EFR 014439 : ,, 014440 : 8,, 014441 : INFTR:15,,EFR 014442 : 15,,FR 014443 : 2,010,16 014444 : 8,024,1 014445 : CONST: 014446 : OCT50:,OCT,50 014447 : TTN:,TEXT,2H'10'N 014448 : MTIM1:,OCT,0000 0003 7777 7760 014449 : MTIM2:,OCT,7707 7774 0000 0000 014450 : CHAЧ:,GOST,6H '214' 014451 : CB:,GOST,6HCB=00. 014452 : KB:,GOST,6HKB=00. 014453 : AB:,GOST,6HAB=00. 014454 : C226:,LOG,226. 014455 : CODE206:,ISO,6H''STOPJ 014456 : B16*5:,LOG,1 00020 014457 : B20/16:,LOG,37 00000 014458 : MAS/T1:,LOG,77 1777 014459 : MAS/T2:,OCT,0077 0000 1777 014460 : C550:,LOG,550. 014461 : SPECN:,GOST,6H777777 014462 : MUT1:,GOST,6H000 0 014463 : MUT2:,GOST,6H 0 0 014464 : MOT2:,GOST,6H00.00 014465 : INTMACR:,OCT,4013 4242 014466 : B35/17:,OCT,0000 3777 776 014467 : C171717:,LOG,171717 014468 : C060606:,LOG,060606 014469 : C202020:,LOG,202020 014470 : CON/2105:,BSS, 014471 : ,OCT,440 4 000 1604 76030 014472 : ,OCT,420 00 4 00 132 77634 014473 : ,OCT,460 0000 4 012 77766 014474 : C34:,LOG,34 014475 : SC211:,LOG,1 4000 0000.ШKAЛЫ ДЛЯ Э211 014476 : ЭK200/R :,OCT,0076 014477 : B33/22:,LOG,0777 7000 0000 014478 : MSK MT:,LOG,77 0777. 014479 : KOД74:,LOG,2264 2531 2123 3462 014480 : WORD:,BSS,1 014481 : SI15:,BSS,1. 014482 : SYM:,BSS,1. 014483 : TEX:,BSS,1. 014484 : ,END, 014485 : TESTTRAK:,NAME, 014486 : *677:B,BLOCK,BITS 014487 : ,CONT,BIT48,BIT47,BIT46,BIT45 014488 : ,CONT,BIT44,BIT43,BIT42,BIT41 014489 : ,CONT,BIT40,BIT39,BIT38,BIT37 014490 : ,CONT,BIT36,BIT35,BIT34,BIT33 014491 : ,CONT,BIT32,BIT31,BIT30,BIT29 014492 : ,CONT,BIT28,BIT27,BIT26,BIT25 014493 : ,CONT,BIT24,BIT23,BIT22,BIT21 014494 : ,CONT,BIT20,BIT19,BIT18,BIT17 014495 : ,CONT,BIT16,BIT15,BIT14,BIT13 014496 : ,CONT,BIT12,BIT11,BIT10,BIT 9 014497 : ,CONT,BIT 8,BIT 7,BIT 6,BIT 5 014498 : ,CONT,BIT 4,BIT 3,BIT 2,BIT 1 014499 : BLOCK:,EQU,BIT43.БЛOKИPOBKA 014500 : BCMD:,EQU,BIT48.KATAЛOГE BHE 014501 : BCLI:,EQU,BIT47.ЧИCTKA BBOДA 014502 : BCLO:,EQU,BIT46.ЧИCTKA BЫBOДA 014503 : DISPBASE:LC,BLOCK,(2),CHANS(2) 014504 : C3:,LC,1 014505 : C1777:,LC,1 014506 : C77777:,LC,1 014507 : C377:,LC,1 014508 : FULWOR:,LC,1 014509 : C7:,LC,1 014510 : C37:,LC,1 014511 : C7777:,LC,1 014512 : TABDRU:,LC,16 014513 : COPYTR1:,LC,1 014514 : B16/1:,LC,1 014515 : STATUSMT:LC,BLOCK,(32),MISTERX 014516 : C:,EQU,1 014517 : J:,EQU,2 014518 : K:,EQU,4 014519 : L:,EQU,5 014520 : R:,EQU,10 014521 : DEF:,EQU,7 014522 : M:,EQU,8 014523 : N:,EQU,9 014524 : B:,EQU,12 014525 : RI:,EQU,15 014526 : NS:,EQU,11 014527 : C77:,LC,1 014528 : ДOПYПP:LC,BLOCK,(10),NTRFRO 014529 : TODAY:,LC,1 014530 : DATA:,EQU,76003B 014531 : TIME:,EQU,76002B 014532 : ASTIME:,EQU,542B 014533 : MASTIME:,EQU,543B 014534 : AI:,EQU,506B 014535 : AO:,EQU,507B 014536 : JSTAT:,EQU,541B. 014537 : BEGIN:,EQU,103B.WORK PLACE 014538 : DD71:,SUBP, 014539 : *417:B,BLOCK,SCBDR,SCFW(16),SCEY(16) 014540 : ,CONT,ADSPTR(2),SCSEACH,W3 014541 : ,CONT,BDR,NDCATN,NDCAT,COTR2 014542 : ,CONT,COTR1,KYC,W1,W2 014543 : ,CONT,XR,SCBCDR 014544 : PAGE:,EQU,76000B 014545 : ASIGN:,EQU,1777B.AДPEC ПP.BBOДA 014546 : COMX:,EQU,1776B.KOПИЯ MISTERX 014547 : BEG:B,REL,*-BEGIN 014548 : C.. И14 = 0 : C MБ ИHAЧE C MД 014549 : 14,MTJ,DEF 014550 : N,VTM,-3 014551 : ,XTA,1 014552 : ,ATX,COTR1 014553 : ,AAX,B16/1 014554 : ,ATX,COPYTR1 014555 : C ЧИCTKA MACCИBA CBЯЗИ C DISPINIT 014556 : K,VTM,SCBDR-NDCAT 014557 : ,XTA, 014558 : SETZ:K,ATX,NDCAT 014559 : K,VLM,SETZ 014560 : ,XTA,2 014561 : ,ATX,COTR2.KOПИЯ TR2 014562 : C OTHЫHE HEЛЬЗЯ ЗAБЛOKИPOBATЬ TESTTRAK (BIT 43 TP-2) 014563 : C ПOЛOЖEHИE ROLL-TPAKTA ЗAДAETCЯ (DATA B TESTTRAK'E) 014564 : C B BИДE KYC-A B NTRFRO 014565 : C --------------------- 014566 : C HOMEP AБЗAЦA BCEГДA = 3 014567 : BCLR:,EQU,BIT45 014568 : SIGNRO:,EQU,SIGN+1 014569 : ,XTA,NTRFRO 014570 : ,UZA,YЧET 014571 : ,AAX,UPM1 014572 : DEF,VIM,NORR 014573 : R,VJM,CLODRSP.ЗAKPЫЛИ ROLL 014574 : REROTR:R,VJM,READ.ПЫTAEMCЯ ЧИTATЬ 014575 : :,UJ,STOP.HET KO ЧT ROLL 014576 : :N,VLM,REROTR.OШM ПOBTOP 014577 : C ECЛИ OБMEH ПPOШEЛ XOPOШO,CYMMATOP=0 014578 : :,ATX,W3 014579 : NORR:,BSS, 014580 : ,XTA,2 014581 : ,AAX,BCLR 014582 : ,U1A,YЧET.БYДEM ЧИCTИTЬ 014583 : ,XTA,W3 014584 : ,U1A,STOP.OШM И HE ЧИCTИM 014585 : ,XTA,PAGE+ASIGN 014586 : ,AEX,SIGNRO 014587 : ,U1A,STOP.HET ИMEHИ ROLL 014588 : ,XTA,PAGE+COMX 014589 : ,ATX,MISTERX 014590 : YЧET:,BSS, 014591 : ,XTA,JSTAT 014592 : ,UZA,WRIDA.HET YЧETA 014593 : ,APX,PAM1 014594 : ,AUX,UPM1 014595 : DEF,VIM,NORS 014596 : R,VJM,CLODRSP 014597 : R,VJM,READ 014598 : :,XTA, 014599 : ,UJ,WRIDA 014600 : ZTD:,XTA, 014601 : ,UJ,WRIDA 014602 : NORS:,XTA,76000B 014603 : ,AEX,STCODE 014604 : ,U1A,ZTD .HET ДATЫ 014605 : ,XTA,TIME 014606 : ,ATX,ASTIME 014607 : ,XTA,DATA 014608 : WRIDA:,ATX,TODAY 014609 : C... ECЛИ ДИCПETЧEP HA ДИCKE 014610 : C MБ 16 MOЖHO ПOЛЬЗOBATЬ ! 014611 : DEF,VIM,DD1 014612 : ,XTA,DISPBASE.ADDR.OF DD 014613 : ,AAX,B41A10/8 014614 : ,ATX,KYC.CREATING 014615 : ,ASN,64+7.N OF THE DRUM 014616 : ,ATI,M.OF DISP 014617 : C 8*NCHANAL (ЭKOHOMИM) 014618 : ,ASN,64+30 014619 : ,ATI,C.N OF CHANAL 014620 : C,J+M,M 014621 : DD:,XTA,AODD1.ADDR.OF RET. 014622 : ,ATX,XR.FROM CLODR 014623 : M,XTA,BIT16.CLOSE THE DRUM 014624 : ,AOX,COTR1.IN THE SCALE 014625 : ,ATX,COTR1.OF SLOSED 014626 : ,UJ,NOMDR. 014627 : PAM1:,LOG,3737. 014628 : UPM1:,LOG,30 0000 0000 1774. 014629 : B41A10/8:,LOG,20 0000 0000 1600. 014630 : ЛИKYC:,LOG,137 0000 014631 : STCODE:,TEXT,8HOC ДYБHA 014632 : DD1:,BSS,. 014633 : C OПPEДEЛEHИE ШKAЛЫ: KAKИE 014634 : C TИПЫ TPAKTOB ИCKATЬ. SCSEACH(1)= 014635 : C .NOT.(BCMD.OR.(BCLI.AND.BCLO)) 014636 : ,XTA,COTR2 014637 : ,AEX,FULWOR 014638 : ,ASN,64+1. 014639 : ,ARX,B46/45 014640 : ,AAX,BIT48.TOЛЬKO IN/OUT 014641 : ,ATX,SCSEACH 014642 : ,UZA,TTRAC.KAT.I/O HA MД 014643 : C 014644 : ,XTA,AOELS 014645 : ,ATX,XR 014646 : C,VTM, 014647 : LSC:,BSS, 014648 : ,ITA,C 014649 : ,ASN,64-39 014650 : ,ARX,BEKYC 014651 : ,ATX,KYC 014652 : M,VTM,1-8 014653 : N,VTM,1-3 014654 : LSC1:,BSS, 014655 : M,MTJ,K 014656 : C,VZM,CH1 014657 : K,UTM,8 014658 : CH1:K,XTA,BIT16+7 014659 : ,ATX,BDR 014660 : ,AAX,COTR1 014661 : ,U1A,ELS1 014662 : CALRE:R,VJM,READ 014663 : :,UJ,NOMDR 014664 : :,UJ,ERYBY1 014665 : :,XTA,PAGE+ASIGN 014666 : ,AEX,SIGN 014667 : ,UZA,CATIS 014668 : ERYBY1:N,VLM,CALRE 014669 : ELS1:N,VTM,1-3 014670 : ,XTA,KYC 014671 : ,ARX,BIT8 014672 : ,ATX,KYC 014673 : ELS2:,BSS, 014674 : M,VLM,LSC1 014675 : C,V1M,STOP 014676 : C,VTM,1 014677 : ,UJ,LSC 014678 : NOMDR:,BSS, 014679 : ,XTA,SCBDR 014680 : ,AOX,BDR 014681 : ,ATX,SCBDR 014682 : L,VTM,1-32 014683 : ,XTA,KYC.YCTAHOBKA 014684 : ,AAX,Z7/1.YKAЗATEЛЯ 014685 : ,ATX,KYC.HA HAЧAЛO MБ 014686 : LCLOSD:R,VJM,CLODR 014687 : ,XTA,KYC 014688 : ,ARX,BIT3 014689 : ,ATX,KYC 014690 : L,VLM,LCLOSD 014691 : ,WTC,XR 014692 : B,UJ, 014693 : STOP:,BSS, 014694 : C OCTAHOB,ECЛИ: 014695 : C 1) HET KO ДЛЯ ROLL-TPAKTA 014696 : C 2) OШM И HE ЧИCTИM ROLL-TPAKT 014697 : C 3) ROLL-TPAKT ЧИTAETCЯ,HO HE ИMEET CПEЦ-ИMEHИ 014698 : C 4) KATAЛOГИ I/O HA MБ И HE HAЙДEHЫ(БEЗ ЧИCTKИ) 014699 : :,33,52525B 014700 : ,UJ,* 014701 : CATIS:,BSS, 014702 : ,XTA,KYC 014703 : ,AAX,UPM1 014704 : ,ATX,ADSPTR.ДЛЯ DISPINIT 014705 : NS,VTM,-1 014706 : CLSER:,BSS, 014707 : C OPГAHИЗAЦИЯ БЛOKИPOBKИ CEPИИ TPA- 014708 : C KTOB. ДЛЯ ROLL - 1, ДЛЯ KAT.- 2 014709 : R,VJM,CLODR 014710 : ,XTA,KYC 014711 : ,ARX,BIT3 014712 : ,ATX,KYC 014713 : NS,VLM,CLSER 014714 : TTRAC:,BSS, 014715 : ,XTA,COTR1 014716 : ,AOX,SCBDR 014717 : ,ATX,SCBCDR 014718 : ,XTA,AOLT1DR 014719 : ,ATX,XR 014720 : K,VTM,1-2 014721 : STOFS:,BSS, 014722 : C--- ECЛИ MOHИTOPHAЯ CИCTEMA HA ДИCKE - 014723 : C БAPAБAHЫ ПYCKAEM B ДEЛO ! 014724 : ,XTA,BIT41. 014725 : K,ASN,64+1. 014726 : ,AAX,2 014727 : ,UIA,MБДИCK. 014728 : K,XTA,CHANS+1 014729 : ,ASN,64+5. 014730 : ,ATX,KYC 014731 : ,ASN,64+7. 014732 : ,ATI,M 014733 : ,ASN,64+3 014734 : ,ATI,C 014735 : C,UTM,-1 014736 : M,XTA,BIT16-10B 014737 : ,AOX,SCBCDR 014738 : ,ATX,SCBCDR 014739 : M,VTM,1-32 014740 : CLST:R,VJM,CLODR 014741 : ,XTA,KYC 014742 : ,ARX,BIT3 014743 : ,ATX,KYC 014744 : M,VLM,CLST 014745 : MБДИCK:,BSS,. 014746 : K,VLM,STOFS 014747 : DEF,VTM,-2 014748 : C 014749 : C... OTБPAKOBKA TPAKTOB BЫПOЛHЯETCЯ 014750 : C TPOEKPATHO B PAЗHЫX PEЖИMAX 014751 : C ЭЛEKTPOПИTAHИЯ : "БOЛЬШE", "MEHЬШE" 014752 : C И "HOMИHAЛ". TPEБYETCЯ ПEPEД 014753 : C BЫЗOBOM ДИCПETЧEPA YCTAHOBИTЬ 014754 : C KЛЮBИK HA CTOЙKE YBY B ПOЛOЖEHИE 014755 : C " 1 " . 014756 : C 014757 : L/DEF:,BSS, 014758 : DEF,XTA,DEFKUS+2 014759 : ,EXT,147B 014760 : ,MTJ,M. 014761 : C,VTM, 014762 : T1CH:,BSS, 014763 : ,ITA,C 014764 : ,ASN,64-39 014765 : ,ARX,BEKYC 014766 : ,ATX,KYC 014767 : LT1DR:,BSS, 014768 : M,XTA,BIT16 014769 : ,ATX,BDR 014770 : ,AAX,SCBCDR 014771 : ,UZA,BT1TR 014772 : ,XTA,KYC 014773 : ,ARX,BIT8 014774 : ,ATX,KYC 014775 : ,UJ,ELT1DR 014776 : BT1TR:N,VTM,-32 014777 : T1TR:,BSS, 014778 : C LOOP FOR CHECKING TRATCS 1 MD. 014779 : K,VTM,1-1024 014780 : R,VJM,IFBUSY 014781 : ,U1A,E1TR 014782 : ,XTA,CHESS 014783 : PCTP:K,ATX,PAGE+1023 014784 : ,AEX,FULWOR 014785 : K,VLM,PCTP 014786 : R,VJM,WRITE 014787 : :,UJ,NOMDR 014788 : :,UJ,BADTR 014789 : :R,VJM,READ 014790 : :,UJ,BADTR 014791 : :,UJ,BADTR 014792 : :K,VTM,1-1024 014793 : ,XTA,CHESS 014794 : ,ATX,W1 014795 : COMP:K,XTA,PAGE+1023 014796 : ,AEX,W1 014797 : ,U1A,RBADT 014798 : ,XTA,W1 014799 : ,AEX,FULWOR 014800 : ,ATX,W1 014801 : K,VLM,COMP 014802 : ,ITA,C 014803 : ,ASN,64-3.ADDRESS OF 014804 : ,ATI,J.SPECIAL WORDS 014805 : K,VTM,1-4 014806 : CHECKSW:J,XTA,11B 014807 : ,AEX,C7777.THE SUMM 014808 : ,U1A,RBADT 014809 : ,ITA,K.CHECKING OF 014810 : ,ARX,C3.THE ADDRESS 014811 : ,AAX,C77777 014812 : ,ARX,KYC.OF THE SECTOR 014813 : J,AEX,10B 014814 : ,U1A,RBADT 014815 : J,UTM,2 014816 : K,VLM,CHECKSW 014817 : E1TR:N,UTM,1 014818 : ,XTA,KYC 014819 : ,ARX,BIT3 014820 : ,ATX,KYC 014821 : N,V1M,T1TR 014822 : ELT1DR:,ASN,64+2 014823 : ,AAX,C377 014824 : M,UTM,1 014825 : ,U1A,LT1DR 014826 : C,V1M,ENDJOB 014827 : C,VTM,1 014828 : ,UJ,T1CH 014829 : RBADT:M,MTJ,J 014830 : ,UJ,RBBR 014831 : BADTR:M,MTJ,J 014832 : J,UTM,SCEY-SCFW 014833 : RBBR:N,XTA,BIT48+32 014834 : J,AOX,SCFW 014835 : J,ATX,SCFW 014836 : R,VTM,E1TR 014837 : ,UJ,CLODR 014838 : ABAS:,EQU,BEG-BEGIN 014839 : AODD1:,Z00, 014840 : ,Z00,DD1-ABAS 014841 : AOELS:,Z00, 014842 : ,Z00,ELS2 - ABAS 014843 : AOLT1DR:,Z00, 014844 : ,Z00,ELT1DR-ABAS 014845 : BEKYC:,LOG,10 0000 0137 0000 014846 : CHESS:,LOG,71634 71634 716347 014847 : WRITE:,BSS, 014848 : ,ITA,C 014849 : ,ASN,64-3 014850 : ,ATI,J 014851 : ,XTA,KYC 014852 : WR1:,ATX,W1 014853 : ,ATX,W2 014854 : K,VTM,1-4 014855 : L,VTM,1-8 014856 : KWSW:,BSS, 014857 : J,ATX,10B 014858 : ,XTA,C7777 014859 : J,ATX,11B 014860 : J,UTM,2 014861 : ,XTA,W2 014862 : ,ARX,BIT1 014863 : ,ATX,W2 014864 : K,VLM,KWSW 014865 : ,UJ,TRANSF 014866 : READ:,BSS, 014867 : ,XTA,KYC 014868 : ,AOX,BIT18 014869 : ,ATX,W1 014870 : L,VTM,1-8 014871 : TRANSF:,BSS, 014872 : ,ATX,1 014873 : L,VLM,TRANSF 014874 : ,XTA,W1 014875 : ,ATI, 014876 : C,033,1 014877 : ,ATI, 014878 : L,VTM,50000B 014879 : WAIT:,MOD,237B 014880 : C,AAX,BIT46 014881 : ,U1A,EOT 014882 : L,VLM,WAIT 014883 : C,XTA,BIT22 014884 : ,033,31B 014885 : R,UJ, 014886 : EOT:,033,4035B 014887 : C,AAX,BIT7 014888 : R,U1A,1 014889 : R,UJ,2 014890 : C------ 014891 : CLODRSP:,BSS, 014892 : ,AOX,ЛИKYC 014893 : ,ATX,KYC 014894 : ,ASN,64+40 014895 : ,ATI,C 014896 : CLODR:,BSS, 014897 : RI,VJM,GAAMTT 014898 : J,AOX, 014899 : J,ATX, 014900 : R,UJ, 014901 : IFBUSY:,BSS, 014902 : RI,VJM,GAAMTT 014903 : J,AAX, 014904 : R,UJ, 014905 : GAAMTT : , BSS , 014906 : C OBTAINING A COLUMN'S MASK AND 014907 : C ADDRESS FOR TABDRU. 014908 : ,XTA,KYC 014909 : ,ASN,64+2 014910 : ,AAX,C37 014911 : ,ATI,14.TPAKT 014912 : ,XTA,KYC 014913 : ,ASN,64+7 014914 : ,AAX,C7 014915 : ,ATI,J 014916 : C,VZM,*1H 014917 : J,UTM,8 014918 : *1H:,BSS, 014919 : 14,XTA,BIT48 014920 : J,UTM,TABDRU 014921 : RI,UJ, 014922 : C BOЗBPAT B STARTDD 014923 : ENDJOB:,BSS, 014924 : DEF,VLM,L/DEF 014925 : 15,VTM,227B.ПEPEПИCЬ 014926 : DEF,VTM,-47B.ИHФOPMAЦИИ 014927 : TR/INF:DEF,XTS,SCBDR+47B.ДЛЯ 014928 : DEF,VLM,TR/INF.DISPINIT-A 014929 : 13,UJ, 014930 : C... KYC-Ы HAПPЯЖEHИЙ : 014931 : DEFKUS:,BSS, 014932 : ,LOG,31000."БOЛЬШE" 014933 : ,LOG,30000."MEHЬШE" 014934 : ,LOG,."HOMИHAЛ" 014935 : SIGN:,ISO,6HD78INP 014936 : ,ISO,6HROLLTR 014937 : B46/45:,OCT,14 014938 : Z7/1:,OCT,7777 7777 7777 76 014939 : ENDR:,BSS, 014940 : LENPRO:,EQU,ENDR-BEG 014941 : LENFIC:,EQU,204-LENPRO 014942 : ,BSS,LENFIC-1. 014943 : C ПOЛOЖEHИE ROLL-TPAKTA 014944 : ROTR:,LOG,20 0000 0000 6164.2035.3 014945 : 1,SET,ROTR 014946 : 1, ,NTRFRO 014947 : 204,SET,BEG 014948 : 1, ,BEGIN 014949 : ,END, 014950 : PRINTDR:,NAME,. 014951 : C 014952 : C****** PACПEЧATKA COCTOЯHИЯ MБ 014953 : C 014954 : TPБP:,EQU,2. 014955 : ББЛ:,EQU,=:02 014956 : SCD:,EQU,230B. 014957 : BIT16:,EQU,740B 014958 : DISPBASE:LC,BLOCK, 014959 : ,CONT,(1),DISP,DR21,DR22 014960 : ,CONT,DMOD 014961 : *YCЫ:LC,BLOCK,(8),AЦПY(2) 014962 : *ИПД:LC,BLOCK,(45),БЫЛ*64 014963 : *100:B,BLOCK, 014964 : ,CONT,BITMD. 014965 : ,CONT,BIT,SCS,SCM(33) 014966 : ,CONT,STRH(18),STR(18) 014967 : C 014968 : C--- ЗAДEPЖKA ДЛЯ BOЗMOЖHOCTИ OПOЗHABAHИЯ 014969 : C ДИCKOBЫX ПAKETOB. 014970 : C 014971 : 7,BASE,* 014972 : ,*64, 014973 : ,XTA,=R16.0 014974 : ,*57,13B. 014975 : ,*65,TPБP. 014976 : ,ATX,TE 014977 : ,AAX,ББЛ. 014978 : ,UIA,NO TAB. 014979 : ,ATX,SCS. 014980 : ,ATX,SYSBIT 014981 : ,*65,DMOD 014982 : ,ATX,BITMD 014983 : 1,VTM,3 014984 : CSB:1,UTM,-1 014985 : 1,*65,DISP 014986 : ,ASN,64+12 014987 : ,AOX,=20 014988 : ,AEX,=30 014989 : ,ATI,2 014990 : C--- HE OTMOДEЛИPOBAHЫ ЛИ MБ MOHИTOPKИ 'Q' 014991 : 2,*65,700B 014992 : ,AAX,BITMD 014993 : 1,VZM,/DISP/ 014994 : ,U1A,MБДИCK 014995 : ,XTA,=:002 014996 : 1,ASN,64-1 014997 : ,AAX,TE. 014998 : /DISP/:,BSS, 014999 : ,UIA,MБДИCK.OTMOДEЛИPOBAH 015000 : 2,*65,BIT16 015001 : ,AOX,SYSBIT 015002 : ,ATX,SYSBIT 015003 : MБДИCK:,BSS,. 015004 : 1,V1M,CSB 015005 : 1,VTM,1-33. 015006 : LSC 1:2,VTM,1-16. 015007 : 1,*65,SCD+32. 015008 : 1,ATX,SCM+32. 015009 : ,AOX,SCS. 015010 : ,ATX,SCS. 015011 : 1,VLM,LSC 1. 015012 : ,UZA,NO TAB. 015013 : ,*65,1. 015014 : ,ATX,TP1. 015015 : ,PRINT,I HE.'TAБЛИЦA' 015016 : 5,VTM,STR0. 015017 : ,PRINT,I PR.ПOДЧEPK. 015018 : 5,VTM,STRH. 015019 : 1,VTM,10B. 015020 : ,XTA,T1. 015021 : 5,ATX,. 015022 : PREP 1:,ITA,1. 015023 : ,ASN,64-42. 015024 : ,AUX,BY2*4. 015025 : ,AOX,T2. 015026 : 2,ATX,STRH+16. 015027 : 1,UTM,1. 015028 : 2,VLM,PREP 1. 015029 : ,XTA,T3. 015030 : 5,ATX,17. 015031 : ,PRINT,I PR.HOMEPA MБ 015032 : 1,VTM,1-17. 015033 : ,XTA,T4. 015034 : PREP 2:1,ATX,STRH+16. 015035 : 1,VLM,PREP 2. 015036 : ,XTA,T5. 015037 : ,ATX,STRH. 015038 : 1,VTM,1-32. 015039 : 2,VTM,. 015040 : TRACK:5,VTM,STRH. 015041 : ,PRINT,I PR. 015042 : 5,VTM,STR. 015043 : ,ITA,2. 015044 : ,ASN,64-42. 015045 : ,AUX,BY34. 015046 : ,AOX,T6. 015047 : 5,ATX,.HOMEP TPAKTA 015048 : 3,VTM,1-16. 015049 : ,XTA,B16. 015050 : 1,ASN,64-1. 015051 : ,ATX,BIT.БИT TPAKTA 015052 : DRUM:,XTA,B16. 015053 : 3,ASN,64+15. 015054 : ,ATX,BIT MD.БИT БAPAБAHA 015055 : 4,VTM,TCИC 015056 : ,AAX,SYSBIT 015057 : ,UIA,WRDR 015058 : ,XTA,BITMD 015059 : ,AAX,TP1. 015060 : 4,VTM,TZAK. 015061 : ,UIA,WR DR. 015062 : ,XTA,BITMD. 015063 : ,AAX,SCM. 015064 : 4,VTM, T HET. 015065 : ,UIA,WR DR. 015066 : 3,XTA,SCM+16. 015067 : ,AAX,BIT. 015068 : 4,VTM,T ЗAП. 015069 : ,UIA,WR DR. 015070 : 3,XTA,SCM+32. 015071 : ,AAX,BIT. 015072 : 4,VTM,T OШM. 015073 : ,UIA,WR DR. 015074 : 4,VTM,TECTЬ. 015075 : WR DR:4,XTA,. 015076 : 3,ATX,STR+16. 015077 : 3,VLM,DRUM. 015078 : ,XTA,T3. 015079 : 5,ATX,17. 015080 : ,PRINT,I PR.OШИБKИ 015081 : 2,UTM,1. 015082 : 1,VLM,TRACK. 015083 : 5,VTM,STR0. 015084 : C--- ПPOГOH БYMAГИ K HAЧAЛY ЛИCTA 015085 : ,XTA,ПPOГOH 015086 : 5,ATX,1 015087 : ,PRINT,I PR. 015088 : C--- OTKAЗ OT AЦПY (CM. NRES074) 015089 : ,XTA,.TAKOE БEЗOБPAЗИE 015090 : ,*52,БЫЛ*64.MOЖHO ДEЛATЬ 015091 : ,AEX,=:00 77.T O Л Ь K O 015092 : ,*53,AЦПY.ПPИ ПOЛHOM 015093 : ,XTA,.OTCYTCTBИИ 015094 : ,AEX,=:00 77.ЗAДAЧ, KOTOPЫE 015095 : ,*53,AЦПY+1.MOГYT ПEЧATATЬ! 015096 : NO TAB:,BSS,. 015097 : 1,VTM,KOH. 015098 : ,*65,DISP. 015099 : ,APX,C770077. 015100 : ,AUX,BY3/6. 015101 : ,AOX,TDI. 015102 : ,ATX,TTE. 015103 : 5,VTM,TTE+2. 015104 : ,*65,DR21. 015105 : ,ASN,64-6. 015106 : ,ATX,W0001 015107 : 4,VTM,HET. 015108 : ,*65,DR22. 015109 : ,AOX,W0001 015110 : ,ASN,64-24 015111 : ,ATX,W0001 015112 : ,*65,2. 015113 : ,AAX,=:003 015114 : ,ASN,64+39. 015115 : ,ATI,14. 015116 : 14,UJ,*+1 015117 : :,UJ,ONLY MБ. 015118 : :1,MTJ,3. 015119 : ,UJ,MБMД. 015120 : :1,MTJ,2 015121 : 1,VTM,MБ2. 015122 : MБДИ:,XTA,MONSYS. 015123 : ,*57,1400B. 015124 : ,ASN,64-42. 015125 : 4,UZA,.HET MOД. C CИCTEMOЙ! 015126 : ,AUX,BY34 015127 : ,AOX,=6HФ'1'00,'1' 015128 : 5,ATX,. 015129 : 5,UTM,1. 015130 : 1,UJ,. 015131 : MБ2:,XTA,W0001. 015132 : ,ASN,64-6. 015133 : ,ATX,W0001 015134 : MБT:,XTA,W0001. 015135 : ,AUX,BY34 015136 : ,AOX,=6H'1''1'00,'1' 015137 : 5,ATX,. 015138 : 5,UTM,1. 015139 : 2,UJ,. 015140 : MБMД:2,VJM,MБT. 015141 : 3,MTJ,1 015142 : ,UJ,MБДИ. 015143 : ONLY MБ:2,VJM,MБT. 015144 : 1,MTJ,2 015145 : ,UJ,MБ2. 015146 : KOH:14,VTM,TE. 015147 : 14,XTA,3 015148 : ,AAX,=:7777 7777 776 015149 : 14,ATX,3 015150 : ,ITA,14. 015151 : ,FUN,76B. 015152 : 13,UJ,. 015153 : HET:14,VTM,HETCИC. 015154 : ,ITA,14. 015155 : 4,VTM,WAIT. 015156 : ,FUN,76B. 015157 : WAIT:,*57,3. 015158 : ,UJ,MБДИ. 015159 : C--- MOHИTOPKA ПOMEЩAETCЯ HA MOДEЛИ 015160 : C 9/MONSYS ! 015161 : MONSYS:,TEXT,8HMONSYS '11' 015162 : C----------------------------------- 015163 : HETCИC:,ISO,12HHET CИCTEMЫ'41' 015164 : ,OCT,. 015165 : W0001:,OCT,. 015166 : C 015167 : C770077:,LOG,77 0077. 015168 : BY2*4:,GOST,6H070700 015169 : BY34:,GOST,6H007700 015170 : BY3/6:,GOST,6H007777 015171 : B16:,LOG,10 0000 015172 : I HE:,Z00,HEAD. 015173 : ,Z00,HEAD. 015174 : :0,060,. 015175 : 8,,. 015176 : HEAD:,BSS,. 015177 : ,GOST,18HTAБЛИЦA COCTOЯHИЯ 015178 : ,CONT,11HTPAKTOB MБ'231' 015179 : TCИC:,GOST,6H C I 015180 : SYSBIT:,BSS,1 015181 : TP1:,LOG,. 015182 : I PR:5,,. 015183 : 5,,. 015184 : :0,,. 015185 : 8,,. 015186 : STR0:,GOST,12H '265''4'-'265''140''231' 015187 : ПPOГOH:,GOST,6H'214''265''33'.'231' 015188 : TZAK:,BSS,. 015189 : T1:,GOST,6H I 015190 : T2:,GOST,6H 0-0 I 015191 : T3:,GOST,6H'231' 015192 : T4:,GOST,6H-----I 015193 : T5:,GOST,6H ----I 015194 : T6:,GOST,6H -00-I 015195 : TECTЬ:,GOST,6H P I 015196 : THET:,GOST,6H - I 015197 : TOШM:,GOST,6H OШM I 015198 : TЗAП:,GOST,6H ЗAП I 015199 : TE:,BSS,. 015200 : TTE:,ISO,24HД-2500 MC-'1' 015201 : TDI:,ISO,6HД-0000 015202 : ,END, 015203 : *NRP1:,NAME,. 015204 : C KATAЛOГ HEPEЗИДEHTOB HA 1-M HEPEЗ. ЛИCTE 015205 : C 015206 : ПEPФOPAЦ:,SUBP,. 015207 : ,,. 015208 : C ЧИCЛO HEPEЗИДEHTOB 015209 : ,,EC1-BC1. 015210 : BC1:,BSS,. 015211 : NRES71:,ENTRY,. 015212 : :,Z00,. 015213 : ,Z00,ПEPФOPAЦ. 015214 : NRERROR:,ENTRY, 015215 : NRERRMAC:,SUBP, 015216 : :,Z00, 015217 : ,Z00,NRERRMAC 015218 : EC1:,BSS,. 015219 : ,END,. 015220 : *NRP2:,NAME,. 015221 : NRES066:,SUBP,. 015222 : ,LOG,1 015223 : NRES66:,ENTRY,. 015224 : ,Z00,. 015225 : ,Z00,NRES066. 015226 : ,END,. 015227 : *NRP3:,NAME,. 015228 : NRES73:,SUBP,. 015229 : ,LOG,1 015230 : NR73:,ENTRY,. 015231 : ,Z00,. 015232 : ,Z00,NRES73. 015233 : ,END,. 015234 : *NRP5:,NAME, 015235 : C БAЗИPOBAHИE BCEГO HEPEЗИДEHTA BBOДA 015236 : C ПPOИЗBOДИTCЯ ПO HA4AЛY EFSMNRS 015237 : C B CИЛY ЛEHИ 015238 : EFSMNRS:,SUBP, 015239 : ,LOG,1. 015240 : NRSINPUT:,ENTRY, 015241 : ,, 015242 : ,Z00,EFSMNRS 015243 : ,END, 015244 : *NRP6:,NAME, 015245 : NR7CH:,SUBP, 015246 : TERM7:,SUBP, 015247 : ,LOG,2 015248 : NRES7CH:,ENTRY, 015249 : , , 015250 : ,Z00,NR7CH 015251 : NRTERM7:,ENTRY, 015252 : ,, 015253 : ,Z00,TERM7 015254 : ,END, 015255 : *NRP7:,NAME, 015256 : ,LOG,4 015257 : ZOO60:,SUBP, 015258 : NRS60*:,ENTRY, 015259 : ,Z00, 015260 : ,Z00,ZOO60 015261 : STAT TT:,SUBP, 015262 : NR/STAT:,ENTRY, 015263 : ,Z00, 015264 : ,Z00,STAT TT 015265 : OCCUPYD:,SUBP, 015266 : NROCCD:,ENTRY, 015267 : ,Z00, 015268 : ,Z00,OCCUPYD 015269 : NRSMT*SE:,SUBP, 015270 : NR//SEAR:,ENTRY, 015271 : ,Z00, 015272 : ,Z00,NRSMT*SE 015273 : ,END, 015274 : *NRP8:,NAME, 015275 : NRESPOST:,SUBP, 015276 : ,LOG,1 015277 : NRPOST:,ENTRY, 015278 : ,, 015279 : ,Z00,NRESPOST 015280 : ,END, 015281 : *NRP9:,NAME,.KATAЛOГ HEPEЗИДEHTOB 9-ГO ЛИCTA 015282 : ,LOG,1 015283 : C 015284 : NRSMDREC:,SUBP, 015285 : NR/MD:,ENTRY, 015286 : ,, 015287 : ,Z00,NRSMDREC 015288 : ,END, 015289 : *NRP10:,NAME, 015290 : NRCDC405:,SUBP, 015291 : EC*608:,SUBP, 015292 : ,LOG,2 015293 : NRECMT:,ENTRY, 015294 : ,Z00, 015295 : ,Z00,EC*608 015296 : NR405:,ENTRY, 015297 : ,Z00, 015298 : ,Z00,NRCDC405 015299 : ,END, 015300 : *NRP11:,NAME, 015301 : ,LOG,3 015302 : NRESERR:,SUBP, 015303 : NRERR:,ENTRY, 015304 : , , 015305 : ,Z00,NRESERR 015306 : TERMINAL:,SUBP, 015307 : NRTERM:,ENTRY, 015308 : :,, 015309 : ,Z00,TERMINAL 015310 : DISPAC71:,SUBP, 015311 : TЮPИH*71:,ENTRY, 015312 : ,, 015313 : ,Z00,DISPAC71 015314 : ,END, 015315 : *NRP12:,NAME, 015316 : ,LOG,1 015317 : TASKSAV:,SUBP, 015318 : NRESTS:,ENTRY, 015319 : ,Z00, 015320 : ,Z00,TASKSAV 015321 : ,END, 015322 : *NRP13:,NAME, 015323 : ,LOG,1 015324 : NREMULAT:,ENTRY, 015325 : :,,. 015326 : EMULATOR:,SUBP, 015327 : ,Z00,EMULATOR 015328 : ,END, 015329 : *NRP14:,NAME, 015330 : ***:,LOG,1 015331 : PRINTASK:,SUBP, 015332 : NRTABL:,SUBP, 015333 : NL:,P/P,(***)1024 015334 : N:,EQU,NRTABL+NL 015335 : NRPRTA:,ENTRY, 015336 : ,Z00, 015337 : ,Z00,PRINTASK 015338 : ,DATA, 015339 : B:,OCT,1 015340 : 1,SET,B 015341 : 1,,N 015342 : ,END, 015343 : *NRP15:,NAME, 015344 : ,LOG,1 015345 : NRES064:,SUBP, 015346 : NR/64:,ENTRY, 015347 : ,Z00, 015348 : ,Z00,NRES064 015349 : ,END, 015350 : *NRP16:,NAME, 015351 : C 015352 : C HEPEЗИДEHT ДPAЙBEPA BИДEOTOHOB 015353 : C ( ПOПOB M.Ю. ) 015354 : C 015355 : NRESLINE:,SUBP, 015356 : :,LOG,1 015357 : NR/LINE:,ENTRY, 015358 : :,Z00, 015359 : ,Z00,NRESLINE 015360 : ,END, 015361 : *NRP17:,NAME, 015362 : ,LOG,3 015363 : C 015364 : NRESCODE:,SUBP, 015365 : NR/CODE:,ENTRY, 015366 : ,, 015367 : ,Z00,NRESCODE 015368 : C 015369 : NRES072:,SUBP, 015370 : NR/72:,ENTRY, 015371 : ,, 015372 : ,Z00,NRES072 015373 : C 015374 : ПYCKAЧ:,SUBP, 015375 : NR/START:,ENTRY, 015376 : ,, 015377 : ,Z00,ПYCKAЧ 015378 : C 015379 : ,END, 015380 : MAINBLCS:,NAME,. 015381 : C 015382 : C***** OCHOBHЫE БЛOKИ ДИCПETЧEPA 015383 : C 015384 : *ИПД:LC,BLOCK,XNF,XNFM(3),XNW(2),XNCM 015385 : ,CONT,XNSEM 015386 : LIB/BOSS:,EQU,*ИПД+72B.ДEPЖAT LIBRARY 015387 : NSEM:,WEQ,XNSEM 015388 : ШЛAГБAYM:,LC,NSEM 015389 : C77:,LC,1 015390 : CALLBSC:,EQU,ШЛAГБAYM+5 015391 : FREESEM:LC,BLOCK,(1),MSELECT 015392 : NFM:,WEQ,XNFM 015393 : ДHЗ ЖДY:,WEQ,XNW 015394 : Ш/FULL:,EQU,XNF+11B 015395 : NCM:,WEQ,XNCM 015396 : NUM1:,EQU,NCM-1 015397 : NUSE1:,WEQ,XNFM 015398 : ДHЗLM:,EQU,NFM+NUM1.ДHЗ ПOCЛEДHEЙ C ПOЛHЫM ИПЗ 015399 : NF:,WEQ,XNF 015400 : NS:,EQU,NFM-NF 015401 : Ш/CЛYЖ:,EQU,XNF+10B 015402 : Ш/ДИCП:,EQU,XNF+23B 015403 : INDI SC:,EQU,XNF+24B 015404 : INDI M :,EQU,XNF+25B 015405 : ИПЗ/ECTЬ:,EQU,XNF+42B 015406 : PRTFLAG:,EQU,XNF+44B 015407 : STARTCW:,EQU,XNF+45B 015408 : LIMTSC:,EQU,XNF+53B 015409 : SCMAMБ:,EQU,XNF+57B 015410 : ROLOUTSC:,EQU,XNF+60B 015411 : SCEM*64:,EQU,XNF+61B 015412 : SCENDJO:,EQU,XNF+77B 015413 : SCDEBUG:,EQU,*ИПД+71B 015414 : ADRERR:,SUBP, 015415 : *ИПK1:LC,BLOCK,PRTSTAT 015416 : NPRTJ:,EQU,PRTSTAT+NS 015417 : C377:,LC,1 015418 : SI5:,EQU,21B 015419 : M:,EQU,100B. 015420 : B30/16:,LC,1. 015421 : C 015422 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42 015423 : ,CONT,BIT41,BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34 015424 : ,CONT,BIT33,BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26 015425 : ,CONT,BIT25,BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18 015426 : ,CONT,BIT17,BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10 015427 : ,CONT, BIT9,BIT8,BIT7,BIT6,BIT5,BIT4,BIT3,BIT2,BIT1 015428 : TPHYS:,LC,32. 015429 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR(2) 015430 : ,CONT,PPIR(2),M1RDSC 015431 : NOKHA:,EQU,16B 015432 : *SWCMN:LC,BLOCK,SBUSYFLG,SWSCAL,RCNT(3) 015433 : ,CONT,(3),CWJOB(2),SWINGIF 015434 : PRTSW:,EQU,XNF+73B 015435 : SWING:,SUBP, 015436 : *SCAL71:LC,BLOCK,(3),SCAL67 015437 : C.........OБOЗHAЧEHИЯ ЯЧEEK И П З 015438 : S33:,EQU,3. 015439 : S27:,EQU,5. 015440 : REGSCAL:,EQU,M. 015441 : BISTIME:,EQU,110B. 015442 : OШBHYПP:,EQU,M+1. 015443 : COPYS33:,EQU,M+6. 015444 : MAXTIME:,EQU,111B. 015445 : TLIMS:,EQU,84. 015446 : C......... 015447 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15 015448 : ,CONT,SAVI14,SAVI13(2),SAVS16 015449 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 015450 : SCALES:LC,BLOCK,PRTMASK,MRDSCAL,S1CLTA 015451 : MATBIT:,EQU,BITS+NUSE1 015452 : SC OPER:,EQU,SCALES+5 015453 : WSD:LC,BLOCK,(2),FULLRD 015454 : FULWOR:,LC,1. 015455 : C13:,LC,1. 015456 : C14:,LC,1. 015457 : C2003:,LC,1. 015458 : DISREG:LC,BLOCK,C2013 015459 : INTER:,SUBP,. 015460 : ENTFOLIC:,SUBP,. 015461 : T/ЧYЖKOM:,EQU,5.HOMEP ДИAГH. 015462 : TBPEM:,EQU,4.HOMEP ДИAГH. 015463 : ERRMACRO:,SUBP, 015464 : TMATH:,EQU,30B. 015465 : EXCHBIT:,EQU,BIT7. 015466 : ДOПYПP:LC,BLOCK,(3),M33,M32,M27,(4) 015467 : TASKSAVR:,SUBP,. 015468 : DPRT:,EQU,BIT19 015469 : SW INT:,SUBP, 015470 : MPRTMASK:,EQU,SWINT-1 015471 : C 015472 : C ПOЛHOE YПPЯTЫBAHИE 015473 : C 015474 : FULSAV:,ENTRY,. 015475 : FULSAV:,BSS,. 015476 : ,XTA,Г Y C. 015477 : ,ATI,15.AДPEC ИПЗ 015478 : :,XTA,SAVAC 015479 : ,XTS,SAVSR 015480 : ,XTS,SAVAR 015481 : ,ITS,33B 015482 : ,ITS,32B 015483 : ,ITS,27B 015484 : ,XTS,SAVS16 015485 : ,XTS,SAVI15 015486 : ,XTS,SAVI14 015487 : ,XTS,SAVI13 015488 : ,ITS,12 015489 : ,ITS,11 015490 : ,ITS,10 015491 : ,ITS,9 015492 : ,ITS,8 015493 : ,ITS,7 015494 : ,ITS,6 015495 : ,ITS,5 015496 : ,ITS,4 015497 : ,ITS,3 015498 : ,ITS,2 015499 : ,ITS,1 015500 : 15,ATX,. 015501 : 13,UJ,. 015502 : C 015503 : C 015504 : C BЫXOД ИЗ ЭKCTPAKOДOB 015505 : C 015506 : OUTMACRO:,ENTRY, 015507 : ,ITA,32B 015508 : ,ATI,33B 015509 : C 015510 : C BOЗBPAT ИЗ ПPEPЫBAHИЯ 015511 : C 015512 : RETURN:,ENTRY,. 015513 : RETURN:,002,237B.CЧИTЫBAHИE ГPП 015514 : ,AAX,COMMIR.KOПИЯ MACKИ ГPП 015515 : ,U1A,INTER.ECTЬ EЩE ПPEPЫBAHИЯ 015516 : ,XTA,MSELECT 015517 : ,U1A,NEWTA 015518 : ,ITA,27B. 015519 : ,AAX,C14.ПPOBEPKA ДИCП.PEЖИMA 015520 : ,U1A,RESET.BOЗBPAT B ДИCПETЧEP 015521 : ,XTA,SCDEBUG 015522 : ,AAX,BITJ 015523 : ,U1A,ADRERR 015524 : ,ITA,33B. 015525 : ,ASN,64+10. 015526 : ,ATI,15.HOMEP ЛИCTA,KYДA BOЗBPAT 015527 : 14,VTM,T/ЧYЖKOM 015528 : ,WTC,ГYC 015529 : 15,XTA,TMATH 015530 : C 015531 : C... OБXOД MAШИHHOЙ OШИБKИ : 015532 : C BBЫXOД B БЛOK PEAKЦИИ HA ЗAЩИTY 015533 : C ECЛИ ЛИCT ЗAKPЫT ПO ПPИOPИTETY, 015534 : C ПOДKAЧKE ИЛИ OБMEHY. 015535 : C ECЛИ ЛИCT ЧYЖOЙ - ПYCTЬ ЗAДAЧA 015536 : C ПPEPBETCЯ CAMA. 015537 : C 015538 : ,ASN,64-3 015539 : ,YTA, 015540 : ,U1A,ENTFOLIC 015541 : RESET:,BSS,. 015542 : ,XTA,ГYC 015543 : ,ATI,13 015544 : ,AAX,B30/16 015545 : ,U1A,MATJOB 015546 : ,XTA,C2013 015547 : ,UJ,RESY 015548 : MATJOB:,BSS, 015549 : ,XTA,FREESEM 015550 : ,U1A,NEWTA.ДЛЯ ПOHИЖEHИЯ ПPИOPИTETA 015551 : ,ITA,27B 015552 : ,AAX,=77677.YCT.0 ПOK 015553 : ,ATI,27B 015554 : ,XTA,SCAL67 015555 : ,AAX,BITJ 015556 : ,UZA,NOPPIR 015557 : C ПPOГPAMHOE ПPEPЫBAHИE 015558 : ,XTA,BIT48 015559 : ,AOX,PPIR 015560 : ,ATX,PPIR 015561 : ,XTA,BIT6 015562 : ,EXT,31B 015563 : ,XTA,BIT30.AБC.ПPИOPИTET 015564 : ,ATX,MPRTMASK.ШAГOBOMY ПPEP. 015565 : ,XTA,BIT12.YCT.ABTБ 015566 : C (ИДEЯ ПETPOBA) 015567 : NOPPIR:,BSS, 015568 : 13,AOX,REGSCAL 015569 : ,AAX,=4020.ABTБ+ЗП(M29) 015570 : ,AOX,FORI21B 015571 : RESY:,ATI,21B 015572 : C BOCCTAHOBЛEHИE PEГИCTPOB ИЗ ИПД 015573 : 15,VTM,SAVI13+1 015574 : ,XTA,SAVS16 015575 : ,STI,16 015576 : ,STI,13 015577 : ,STI,14 015578 : ,ATI,15. 015579 : ,XTA,SAVAR 015580 : ,AEX,.BOCCTAHOBЛEHИE MЛ.PAЗPЯДOB 015581 : ,XTA,SAVAC. 015582 : ,XTR,SAVSR. 015583 : 3,32,.BOЗBPAT ИЗ ПPEPЫBAHИЯ 015584 : C **************************** 015585 : C 015586 : C--- ЗAKPЫTИE ПO MAЛOMБ B MAT.PEЖИME 015587 : C 015588 : CL MAMБ:,BSS, 015589 : ,AOX,S1CLTA 015590 : ,ATX,S1CLTA 015591 : C 015592 : C 015593 : C 015594 : C БЛOK BЫБOPA ЗAДAЧ 015595 : C 015596 : SELECT:,ENTRY,. 015597 : SELECT:,24,2003B 015598 : 15,VTM, Д H З 015599 : 12,VTM,NOKHA 015600 : ,ITA,12 015601 : 12,XTS,BITS. Д H З 015602 : 15,ATX,. B I T J 015603 : ,AEX,FULWOR. Z B I T J 015604 : 12,XTS,*YCЫ 015605 : ,ATX,ГYC 015606 : ,XTA, 015607 : ,ATX,FREESEM 015608 : ,ATX,MSELECT 015609 : 12,VTM,1000B. = BXOД = 015610 : 15,VTM,-7 015611 : :,ATX,1 015612 : 15,VLM,* 015613 : 12,MTJ,33B 015614 : 12,VTM,13B 015615 : 12,MTJ,27B 015616 : 3,IJ, 015617 : C 015618 : C... ПOCЛE OCTAHOBA MAШИHЫ B ЯЧ.1000 015619 : C BOЗMOЖEH "OБЩИЙ CБPOC" !!! 015620 : C 015621 : ********:,ENTRY, 015622 : 12,VIM,RTASK. 015623 : ,CALL,RESMASK 015624 : RTASK:,XTA,BIT25 015625 : ,ATX,RCNT 015626 : :,24,2003B 015627 : 2,VTM,ANAL 015628 : C 015629 : C... OПPEДEЛEHИE ШKAЛЫ ЗAДAЧ 015630 : C ДЛЯ ПOCЛEДYЮЩEГO AHAЛИЗA 015631 : C 015632 : CHSCALS:,XTA,SBUSYFLG 015633 : ,U1A,ЗAH ПOДK 015634 : ,XTA,RDSCAL.BCE ЗAДAЧИ 015635 : ,UJ,CBO ПOДK 015636 : ЗAH ПOДK:,XTA,RDSCAL.TOЛЬKO TE, KTO 015637 : ,AOX,SWSCAL.HE TPEБYET 015638 : ,AEX,SWSCAL.ПOДKAЧKИ 015639 : ,AAX,ИПЗ/ECTЬ 015640 : CBO ПOДK:,AOX,S1CLTA.ИCKЛЮЧИM TEX, 015641 : ,AEX,S1CLTA.KTO ЖДET YCTP-B, 015642 : ,AAX,MRDSCAL.ИЛИ БЛOKИPOBAH 015643 : ,AAX,M1RDSC.ДPYГИMИ ЗAДAЧAMИ 015644 : ,AOX,BITS+ДHЗ ЖДY 015645 : 2,UJ, 015646 : C 015647 : C... COБCTBEHHO BЫБOP ЗAДAЧИ 015648 : C 015649 : ANAL:,ATX,FULLRD 015650 : 11,VTM,SEL END.BOЗBPAT ИЗ SMAXP 015651 : ,XTA,CALLBSC 015652 : ,AAX,C77 015653 : ,ATI,13 015654 : 13,XTA,BITS 015655 : ,AOX,Ш/ДИCП 015656 : ,AAX,FULLRD 015657 : ,U1A,GETFIRST 015658 : ,XTA,FULLRD 015659 : ,AAX,PRTMASK.ПPИOPИTETHЫE 015660 : ,U1A,GET FIRST.MAT.ЗAДAЧИ 015661 : ,XTA,Ш/CЛYЖ 015662 : ,AAX,FULLRD 015663 : GET FIRST:,UZA,SEL USER 015664 : ,ANX, 015665 : ,ATI,13 015666 : ,UJ,JOB IS 015667 : C 015668 : C... BЫБOP CPEДИ ЗAДAЧ ПOЛЬЗOBATEЛEЙ 015669 : C 015670 : SEL USER:13,VTM,ДHЗ ЖДY 015671 : ,XTA,FULLRD 015672 : ,AAX,Ш/FULL 015673 : ,UZA,JOB IS.ИX HET 015674 : :,24,3.ECTЬ ЛИ 015675 : ,AAX,PRTSW.CPEДИ HИX 015676 : :,U1A,*+1.KЛИEHTЫ ПOДKAЧKИ 015677 : ,XTA,FULLRD.-HET 015678 : :,ATX,ШK2 015679 : ,XTA,PRTFLAG.ПPИOPИTETЫ 015680 : ,UZA,SAMEPRT.ПOKA TE ЖE 015681 : 2,VTM, 015682 : ,XTA,7 015683 : ,AAX,BIT27 015684 : ,UZA,RECALC 015685 : ,XTA,NPRTJ+NUM1 015686 : ,AAX,C77 015687 : ,AEX,BIT6 015688 : ,U1A,RECALC 015689 : 2,VTM,ДHЗLM.ФOHOBЫЙ=Ш1 015690 : C 015691 : C... ПEPECЧET ЧИCEЛ ПPИOPИTETA 015692 : C 015693 : RECALC:1,VTM,-NUM1 015694 : 15,VTM,NPRTJ 015695 : 2,XTA,BITS 015696 : ,STX,БИTФOHA 015697 : NEWPRT:1,XTS,NPRTJ+NUM1 015698 : ,AAX,MPRT 015699 : :,UZA,*+1 015700 : ,XTA,DPRT 015701 : :1,X-A,NPRTJ+NUM1 015702 : 1,VLM,NEWPRT 015703 : ,XTS, 015704 : ,ATX,PRTFLAG 015705 : C 015706 : C... ШKAЛA ЗAДAЧ, ЗAXBATИBШИX CEMAФOPЫ 015707 : C 015708 : SAMEPRT:15,VTM,SCSEM 015709 : 1,VTM,NSEM.CYMMATOP=0 015710 : FORMSS:1,UTM,-1 015711 : 1,XTS,ШЛAГБAYM 015712 : ,AAX,C77 015713 : ,STI,14 015714 : 14,AOX,BITS 015715 : 1,VIM,FORMSS 015716 : ,AOX,LIB/BOSS 015717 : ,AOX,STARTCW 015718 : ,AOX,SCENDJO 015719 : ,AAX,ШK2 015720 : :,UZA,*+1 015721 : ,ATX,ШK2 015722 : :,XTA,БИTФOHA.ИCKЛЮЧИM 015723 : ,AEX,Ш/FULL.ФOHOBYЮ 015724 : ,AAX,ШK2.ЗAДAЧY 015725 : ,U1A,SMP 015726 : ,XTA,БИTФOHA.-OHA OДHA 015727 : ,UZA,SEL END 015728 : C 015729 : C... ПOИCK B ШK2 ЗAДAЧИ C 015730 : C MИHИMAЛЬHЫM ПPИOPИTETHЫM ЧИCЛOM 015731 : C 015732 : C 015733 : SMAXP:,ENTRY,.CЮДA XOДИT SWING 015734 : C 015735 : SMP:,ATX,ШK2 015736 : ,ANX, 015737 : ,ATI,1 015738 : 1,XTA,NPRTJ-NUSE1 015739 : ,AAX,MPRT 015740 : ,A-X,RCNT 015741 : ,UZA,ESMP 015742 : ,A+X,RCNT 015743 : ,ATX,RCNT 015744 : 1,MTJ,13 015745 : ESMP:1,XTA,BITS 015746 : ,AEX,ШK2 015747 : ,U1A,SMP 015748 : 11,UJ, 015749 : SEL END:,24,2003B.ПOKA MЫ 015750 : 2,VJM,CHSCALS.TPYДИЛИCЬ, 015751 : ,AEX,FULLRD.OБCTAHOBKA 015752 : ,U1A,RTASK.ИЗMEHИЛACЬ 015753 : C 015754 : C... MAT.ЗAДAЧY C YKAЧAHHЫM ИПЗ 015755 : C BЫБEPYT TOЛЬKO ECЛИ ПOДKAЧKA 015756 : C CBOБOДHA ! 015757 : C 015758 : JOB IS:,XTA,ИПЗ/ECTЬ 015759 : 13,AAX,BITS 015760 : ,UZA,HET ИПЗ 015761 : 13,WTC,* Y C Ы .ДOПOЛHИTEЛЬHAЯ 015762 : 15,VTM, .ПPOBEPKA 015763 : 15,V1M,ECTЬ ИПЗ.HAЛИЧИЯ ИПЗ 015764 : C..... CИTYAЦИЯ: B ИПЗ/ECTЬ CTOИT BITJ, 015765 : C A B COOTBETCTBYЮЩEM YC'E HET AДPECA ИПЗ. 015766 : C BЫPEЗAEM BITJ ИЗ 'ИПЗ/ECTЬ'. 015767 : ,AEX,ИПЗ/ECTЬ 015768 : ,ATX,ИПЗ/ECTЬ 015769 : ,UJ,RTASK 015770 : HET ИПЗ:,BSS, 015771 : 13,XTA,*YCЫ 015772 : ,ATX,CWJOB 015773 : ,ATX,SBUSYFLG 015774 : 13,XTA,BITS 015775 : ,AOX,SWSCAL 015776 : ,ATX,SWSCAL 015777 : 13,VTM,SWING 015778 : ,ITA,13 015779 : ,ATX,SWINGIF+3 015780 : 13,VTM,24B.ДHЗ ПOДKAЧKИ 015781 : ,XTA,=1050.ЗAПPOC ИПЗ 015782 : ,ATX,SWINGIF+SI5 015783 : 13,XTA,BITS 015784 : ,AOX,RDSCAL 015785 : ,ATX,RDSCAL 015786 : ECTЬ ИПЗ:,BSS, 015787 : ,ITA,13 015788 : ,ATX, Д H З 015789 : 13,XTA,BITS 015790 : ,ATX,BITJ 015791 : ,AEX,FULWOR 015792 : ,ATX,ZBITJ 015793 : ,XTA,BITJ 015794 : ,APX,INDI SC 015795 : ,AUX,INDI M 015796 : ,UIA,WR B 015797 : ,XTA,BITJ 015798 : ,AAX,Ш/CЛYЖ 015799 : 14,VTM,BIT18 015800 : ,UIA,WR A 015801 : ,XTA,BITJ 015802 : ,AAX,Ш/FULL 015803 : 14,VTM,BIT17 015804 : ,UZA,WR B 015805 : WR A:14,XTA, 015806 : WR B:,BSS, 015807 : ,AEX,COMMIR 015808 : ,AAX,=7777 4000 015809 : ,AEX,COMMIR 015810 : ,ATX,COMMIR 015811 : ,002,36B 015812 : ,ATI, 015813 : 13,XTA,* Y C Ы. 015814 : ,ATX,Г Y C. 015815 : ,ATI,15.AДPEC ИПЗ 015816 : C.........ПPOBEPKA ИCЧEPПAHИЯ KOMMEPЧECKOГO BPEMEHИ ЗAДAЧИ 015817 : ,MOD,101B.CBEPTKA KOMAHД 015818 : ,AAX,B30/16. 015819 : ,UZA,NOMATH.HE MAT.ЗAДAЧA 015820 : ,XTA,6.BIT7(TP6)=ПOK 015821 : ,ASN,64+3 015822 : ,AAX,BIT4 015823 : ,ATX,SAVI13+1.SAVMIR 015824 : ,AOX,C2003 015825 : ,ATX,FORI21B 015826 : 15,XTA,REGSCAL. 015827 : ,AAX,BIT4. 015828 : ,U1A,NO DIF. 015829 : ,MOD,107B.CBEPTKA ЧИCEЛ 015830 : NO DIF:,BSS,. 015831 : ,XTA,STARTCW. CTAPT 015832 : ,AOX,SCENDJO.ИЛИ KOHEЦ 015833 : ,AOX,SCEM*64 015834 : ,AAX,BITJ. ЗAДAЧИ 015835 : ,UIA,NOMATH1. = ДA 015836 : ,NTR,. 015837 : 15,XTA,MAXTIME. 015838 : 15,A-X,BISTIME. 015839 : ,UZA,NOMATH.BPEMЯ HE ИCЧEPПAHO 015840 : C***** OPГAHИЗAЦИЯ БYДИЛЬHИKA 015841 : 15,XTA,TLIMS.БЫЛ ЗAKAЗ 015842 : ,UZA,KILL T. - HET 015843 : 15,ATX,MAXTIME. 015844 : 15,XTA,S33. 015845 : 15,ATX,COPYS33.ДЛЯ ПEЧATИ 015846 : 14,VJM,NEW EN. 015847 : C***** PAБOTA OT ИMEHИ ЗAДAЧИ : 015848 : ,WTC, Г Y C .AДPEC 015849 : ,XTA,COPYS33.ПOCЛEДHEГO 015850 : ,ATI,33B.ПPEPЫBAHИЯ 015851 : 14,VTM,T BPEM 015852 : ,UJ,ERRMACRO.HA ПEЧATЬ 015853 : KILLT:,XTA,LIMTSC 015854 : 13,AOX,BITS 015855 : ,ATX,LIMTSC 015856 : C.........BЫБPACЫBAEM ЗAДAЧY ПO BPEMEHИ 015857 : 14,VTM,574B. 015858 : NEW EN:,ITA,14. 015859 : 15,ATX,S33. 015860 : ,XTA,DISREG. 015861 : 15,ATX,S27. 015862 : C......... 015863 : NOMATH:,BSS,. 015864 : 15,XTA,5 015865 : ,AAX,C14 015866 : ,U1A,NOMATH1 015867 : ,XTA,BITJ 015868 : ,AEX,ROLOUTSC 015869 : ,UZA,BLSAVE 015870 : ,XTA,SCMAMБ 015871 : 13,AAX,BITS 015872 : ,U1A,CLMAMБ 015873 : 14,CALL,BETBЛEH 015874 : NOMATH1:,BSS, 015875 : C 015876 : C ПOЛHOE BOCCTAHOBЛEHИE 015877 : C 015878 : 14,CALL,PUTTMP 015879 : 14,VTM,-11. 015880 : 15,XTA,. 015881 : : ,24,2002B.ДЛЯ ПPEPЫBAH. B MAT. PEЖИME 015882 : ,ATI,35B.PEГ.ПPEP. ПO AДP.ЧИCЛA 015883 : : ,24,2003B. 015884 : 15,XTA,. 015885 : : ,24,2002B. 015886 : ,ATI,34B.PEГ.ПPEP. ПO AДP.KOMAHДЫ 015887 : : ,24,2003B. 015888 : 15,XTA,. 015889 : ,ATX,1. 015890 : :14,STI,12.BOCCTAH. PEГИCTPOB. 015891 : 14,VLM,*. 015892 : 14,VTM,RETURN 015893 : BOCИПД:,ENTRY, 015894 : ,STX,SAVI13.BOCCTAHOBЛEHИE ИПД 015895 : ,STX,SAVI14. 015896 : ,STX,SAVI15. 015897 : ,STX,SAVS16. 015898 : ,STI,27B. 015899 : ,STI,32B. 015900 : ,STI,33B. 015901 : ,STX,SAVAR. 015902 : ,STX,SAVSR. 015903 : ,STX,SAVAC. 015904 : 14,UJ, 015905 : CLANEWTA:,ENTRY,. 015906 : 13,VTM,NEWTA. 015907 : ,UJ,CL TASK 015908 : CL OPER:,ENTRY, 015909 : ,XTA,BITJ 015910 : ,AOX,SC OPER 015911 : ,ATX,SC OPER 015912 : CLTASK:,ENTRY,. 015913 : CLTASK:,BSS, 015914 : ,XTA,RDSCAL. 015915 : ,AAX,ZBITJ 015916 : ,ATX,RDSCAL. 015917 : 13,UJ,. 015918 : NEWTA*:,ENTRY, 015919 : ,AOX,RD SCAL 015920 : ,ATX,RD SCAL 015921 : NEWTA:,ENTRY,. 015922 : NEWTA:13,VTM,SELECT. 015923 : ,UJ,FULSAV. 015924 : SAVIND:,ENTRY,. 015925 : C7:,LC,1. 015926 : : ,24,2003B. 015927 : ,ATX,SAVACC. 015928 : ,ITA,15. 015929 : ,WTC,Г Y C. 015930 : 15,VTM,. 015931 : 15,ATX,3. 015932 : ,XTA,C7. 015933 : 15,ATX,5. 015934 : ,RTE,177B. 015935 : 15,ATX,1. 015936 : 15,UTM,7. 015937 : ,XTA,SAVACC. 015938 : ,ITS,14. 015939 : 14,VTM,13. 015940 : :14,ITS, 015941 : 14,UTM,-1. 015942 : 14,V1M,*-1. 015943 : 15,ATX,. 015944 : 13,VTM,SELECT 015945 : ,UJ,CLTASK 015946 : BLSAVE:,BSS, 015947 : ,ATX,ROLOUTSC 015948 : 15,XTA,3 015949 : ,ATX,M33 015950 : 15,XTA,4 015951 : ,ATX,M32 015952 : 15,XTA,5 015953 : ,ATX,M27 015954 : 14,VTM,TASKSAVR 015955 : ,ITA,14 015956 : 15,ATX,3 015957 : ,XTA,DISREG 015958 : 15,ATX,5 015959 : ,UJ,NOMATH1 015960 : FORI21B:,LOG,2003 015961 : MPRT:,LOG,77000000 015962 : БИTФOHA:,BSS,1 015963 : ШK2:,BSS,1 015964 : SCSEM:,BSS,1 015965 : SAVACC:,BSS,1. 015966 : ,END, 015967 : MAINSW:,NAME,. 015968 : INTINTER:,SUBP,. 015969 : * И П Д :LC,BLOCK,XNF,XNFM(4),XNC,XNCM 015970 : * И П K :LC,BLOCK,INFBA 015971 : * И П K 1 :LC,BLOCK,PRTSTAT 015972 : BPEMEHA:,LC,4 015973 : NF :,WEQ,XNF 015974 : NFM:,WEQ,XNFM 015975 : NC :,WEQ,XNC 015976 : NCM:,WEQ,XNCM 015977 : *INFEX:,EQU,INFBA+NCM 015978 : INFEX:,EQU,*INFEX-NFM 015979 : R37BR:,SUBP, 015980 : EXTINTER:,SUBP,. 015981 : RETURN:,SUBP,. 015982 : NEWTA:,SUBP,. 015983 : CLANEWTA:,SUBP,. 015984 : MACRO50:,SUBP, 015985 : MACRO51:,SUBP, 015986 : MACRO52:,SUBP, 015987 : MACRO53:,SUBP, 015988 : WRPHYS :,SUBP, 015989 : WRPHYSM:,SUBP, 015990 : MACRO54:,SUBP, 015991 : MACRO55:,SUBP, 015992 : MACRO56:,SUBP, 015993 : MACRO7CH:,SUBP, 015994 : MACRO57:,SUBP, 015995 : MACRO NEW:,SUBP, 015996 : MACRO60:,SUBP, 015997 : MACRO61:,SUBP,. 015998 : MACRO63:,SUBP,. 015999 : MACRO64:,SUBP,. 016000 : MACRO66:,SUBP,. 016001 : MACRO67:,SUBP,. 016002 : MACRO70:,SUBP,. 016003 : MACRO71:,SUBP,. 016004 : MACRO72:,SUBP,. 016005 : MACRO73:,SUBP,. 016006 : MACRO74:,SUBP,. 016007 : MACRO75:,SUBP,. 016008 : MACRO76:,SUBP,. 016009 : *USESTA:,SUBP, 016010 : BADMACRO:,SUBP,. 016011 : TTPRINT:,SUBP,. 016012 : TRAPHY:,SUBP,. 016013 : SW PINT:,SUBP, 016014 : SW INT :,SUBP, 016015 : *YCЫ:,LC,1. 016016 : TPHYS:,LC,1. 016017 : ДHЗ:,LC,1 016018 : SCDICH:,SUBP, 016019 : ДOПYПP:LC,BLOCK,(10),NTRFRO 016020 : TABLEMT:LC,BLOCK,(16),TMT(96),TDELT(32) 016021 : INF7CH:,LC,1 016022 : *LINKPAR:,LC, 016023 : *SCAL71:,LC,6 016024 : TABDRU:,LC,1 016025 : CHEKMDFL:,LC,1. 016026 : POST:,LC,1 016027 : REWINDSC:,LC,1. 016028 : SCALES:LC,BLOCK,(4),ЖДYMЛMД 016029 : STATUSMT:,LC,1 016030 : TYPEMT:,SUBP, 016031 : DISPBASE:,LC,2. 016032 : *TLSYS:,LC,1 016033 : EMULAT :,SUBP, 016034 : EXCHNRS :,SUBP, 016035 : STATIST :,SUBP, 016036 : OUTJOBSC :,EQU, * И П Д +52B 016037 : OUTCW:,LC,2 016038 : OUTJOB:,SUBP, 016039 : *STATBUF:,LC,1 016040 : *TDIS :,LC,1 016041 : *DISCS :,LC,1 016042 : FATA:,LC,1 016043 : *TYPELP :LC,BLOCK,(4),*LIMITLP 016044 : *NRP1:,PC, 016045 : KOHHИЗ:,LC, 016046 : ISOTOALL:,SUBP, 016047 : ALLTOISO:,SUBP, 016048 : SMASAV:LC,BLOCK,SAVAC 016049 : ,ATX,SAVAC.500B 016050 : ,UJ,INTINTER.BXOД ПPИ BHYTPEHHEM ПPEPЫBAHИИ 016051 : ,ATX,SAVAC.501B 016052 : ,UJ,EXTINTER.BXOД ПPИ BHEШHEM ПPEPЫBAHИИ 016053 : C********* БAЗA TAБЛИЦ И ПOДПPOГPAMM ДИCПETЧEPA 016054 : :,,. 016055 : ,Z00,*YCЫ. 016056 : :,,. 016057 : ,Z00,TPHYS. 016058 : :,,. 016059 : ,Z00,TMT. 016060 : :,,. 016061 : ,Z00,TDELT. 016062 : :,LOG,.KAT. MБ 016063 : :,, 016064 : ,Z00,ДHЗ 016065 : :,,. 016066 : ,Z00,TTPRINT. 016067 : *511:,Z00,NTRFRO 016068 : ,Z00,TABDRU. 016069 : :,Z00,POST 016070 : ,Z00,CHEKMDFL. 016071 : FREESEM:LC,BLOCK,(1),MSELECT 016072 : :,Z00,MSELECT 016073 : ,Z00,TRAPHY. 016074 : :,,. 016075 : ,Z00,CLANEWTA. 016076 : :,,. 016077 : ,Z00,RETURN. 016078 : :,,. 016079 : ,Z00,NEWTA. 016080 : :,,. 016081 : ,Z00,REWINDSC. 016082 : :,,. 016083 : ,Z00,ЖДYMЛMД 016084 : :, , 016085 : ,Z00,R37BR.521B 016086 : *522:,LOG,..ПP.ДMHOГO ШИФPOBД 016087 : *523:,,. 016088 : ,Z00,DISPBASE. 016089 : *524:,, 016090 : ,Z00,*NRP1 016091 : *525:,, 016092 : ,Z00,KOHHИЗ 016093 : *526:,Z00,ISOTOALL 016094 : ,Z00,ALLTOISO 016095 : C ДЛИHA ДHEBHOЙ ИHЖ. CTAT. HA 5/D73STA. 016096 : C OHA PABHA ДЛИHE D73STA - 40B. 016097 : :,LOG,100.100 ЗOH 016098 : C ПPИЗHAK BEДEHИЯ TEPMИHAЛЬHOЙ CTATИCTИKИ 016099 : *530:,OCT,0000 004.БИT 30 HA TP-2 016100 : *531:,OCT,775.BPEMЯ OЧ.CБPOCA 016101 : C 016102 : *532:,BSS,6.PEЗEPB 016103 : *540:,BSS,1.ПPИЗHAK PAБOTЫ C 'TB' 016104 : *541:,LOG,2034 016105 : *542:,LOG, .ACTPOH.BPEMЯ(ASTIME) 016106 : C 016107 : C ПPИЗHAK HAЛИЧИЯ CЧETЧИKA 016108 : C BPEMEHИ HA 1 MГЦ. 016109 : C 016110 : *543:,LOG,2 .ECTЬ 016111 : *544:,BSS,2 016112 : *546:,Z00,INFEX 016113 : ,,. 016114 : *547:,33,547B.CBOБOДHA 016115 : C ПEPEKЛЮЧATEЛЬ ЭKCTPAKOДOB 016116 : :,UJ,MACRO50 016117 : ,Z00,TYPEMT 016118 : :,UJ,MACRO51 016119 : ,Z00,SCDICH.ГYPEBИЧ 016120 : SWTCHM52:,SUBP, 016121 : :14,V1M,SWTCHM52 016122 : ,UJ,MACRO52 016123 : :14,V1M,WRPHYSM 016124 : ,UJ,MACRO53 016125 : :,UJ,MACRO54 016126 : ,Z00,*TLSYS 016127 : :,UJ,MACRO55 016128 : ,Z00,INF7CH 016129 : :14,VZM,MACRO56 016130 : ,UJ,MACRO7CH 016131 : :14,VZM,MACRO57 016132 : ,UJ,MACRO NEW 016133 : :,UJ,MACRO60 016134 : ,Z00,*LINKPAR.560B 016135 : :,UJ,MACRO61. 016136 : ,Z00,*SCAL71.561B 016137 : :,XTA,712B. 016138 : ,UJ,EMULAT. 016139 : :,ATX,SAVAC. 016140 : ,UJ,MACRO63. 016141 : :,UJ,MACRO64. 016142 : ,Z00,*USESTA 016143 : :,UJ,MACRO63+2.DISPAK,*65, 016144 : ,Z00,OUTCW 016145 : :,UJ,MACRO66. 016146 : ,Z00,OUTJOBSC 016147 : :,UJ,MACRO67. 016148 : ,Z00,OUTJOB 016149 : :,UJ,MACRO70. 016150 : ,Z00,*STATBUF. 016151 : :,UJ,MACRO71. 016152 : ,Z00,EXCHNRS 016153 : :,UJ,MACRO72. 016154 : ,Z00,STATIST. 016155 : :,UJ,MACRO73. 016156 : ,Z00,*LIMITLP. 016157 : :,UJ,MACRO74. 016158 : ,Z00,*TDIS 016159 : :,UJ,MACRO75. 016160 : ,Z00,*DISCS. 016161 : :,UJ,MACRO76. 016162 : ,Z00,FATA 016163 : :14,VTM,577B. 016164 : ,UJ,BADMACRO. 016165 : :,BSS,100B. 016166 : C KOHCTAHTЫ PAЗPЯДOB CЛOBA 016167 : :,OCT,4. 016168 : :,OCT,2. 016169 : :,OCT,1. 016170 : :,OCT,04. 016171 : :,OCT,02. 016172 : :,OCT,01. 016173 : :,OCT,004. 016174 : :,OCT,002. 016175 : :,OCT,001. 016176 : :,OCT,0004. 016177 : :,OCT,0002. 016178 : :,OCT,0001. 016179 : :,OCT,0000 4. 016180 : :,OCT,0000 2. 016181 : :,OCT,0000 1. 016182 : :,OCT,0000 04. 016183 : :,OCT,0000 02. 016184 : :,OCT,0000 01. 016185 : :,OCT,0000 004. 016186 : :,OCT,0000 002. 016187 : :,OCT,0000 001. 016188 : :,OCT,0000 0004. 016189 : :,OCT,0000 0002. 016190 : :,OCT,0000 0001. 016191 : ,LOG,4000 0000. 016192 : ,LOG,2000 0000. 016193 : ,LOG,1000 0000. 016194 : ,LOG,400 0000. 016195 : ,LOG,200 0000. 016196 : ,LOG,100 0000. 016197 : ,LOG,40 0000. 016198 : ,LOG,20 0000. 016199 : ,LOG,10 0000. 016200 : ,LOG,4 0000. 016201 : ,LOG,2 0000. 016202 : ,LOG,1 0000. 016203 : ,LOG,4000. 016204 : ,LOG,2000. 016205 : ,LOG,1000. 016206 : ,LOG,400. 016207 : ,LOG,200. 016208 : ,LOG,100. 016209 : ,LOG,40. 016210 : ,LOG,20. 016211 : ,LOG,10. 016212 : ,LOG,4. 016213 : ,LOG,2. 016214 : ,LOG,1. 016215 : *760:,,STATUSMT 016216 : ,Z00, * И П Д 016217 : *761:,, 016218 : ,Z00, * И П K 016219 : *762:,Z00,BPEMEHA 016220 : ,Z00, * И П K 1 016221 : *763:,,.CBOБOДHO 016222 : ,Z00,RETURN.2-Я ФAЗA ITB10 016223 : *764:,REAL,1.04.ПOKOЛEHИE DD 016224 : *765:,ISO,6HOИЯИ. .ФИPMA 016225 : *766:,ISO,12HOC ДYБHA OT 016226 : *770:,BSS,2.ДATA OC 016227 : *772:,BSS,3.= P E З E P B 016228 : *775:,BSS,1.= P E З E P B 016229 : C 016230 : C..... ЯЧEЙKA 776 - KOПИЯ "EXCHNRS" 016231 : *776:,LOG, 016232 : C 016233 : C... ДЛЯ ЛЮБИTEЛEЙ ПEPEXBATA 016234 : C П P E P Ы B A H И Й 016235 : C 016236 : *777:,Z00,SW INT. Г P П - 4 8 016237 : ,Z00,SW PINT. П P П - 2 4 016238 : ,END,. 016239 : TESTTA:,NAME,. 016240 : C 016241 : C ЗAДAЧA - 'ЖДYЩИЙ TECT' 016242 : C 016243 : TESTBUF:LC,BLOCK,(1),TESTIF(36) 016244 : IFS27:,EQU,TESTIF+5. 016245 : IFI11:,EQU,TESTIF+13B. 016246 : BIT1:,EQU,757B. 016247 : TL0:15,VTM,-47. 016248 : ,XTA,BIT1. 016249 : TL1:14,VTM,1. 016250 : ,ATI,. 016251 : TL2:,ATX,1. 016252 : ,ATI,. 016253 : 14,VLM,TL2. 016254 : ,ASN,64-1. 016255 : 15,VLM,TL1. 016256 : ,UJ,TL0. 016257 : ,DATA,. 016258 : C PEЖИM YY 016259 : S27:,LOG,13. 016260 : C TEKCT 'ЖДY' HA PEГИCTPЫ 11-4 016261 : I11:,BSS,. 016262 : ,LOG,52145. 016263 : ,LOG,52245. 016264 : ,LOG,34245. 016265 : ,LOG,34245. 016266 : ,LOG,52243. 016267 : ,LOG,52241. 016268 : ,LOG,52766. 016269 : ,LOG,00420. 016270 : :1,SET,S27. 016271 : 1,,IFS27. 016272 : :8,SET,I11. 016273 : 1,,IFI11. 016274 : ,END,. 016275 : TESTTA:,NAME,. 016276 : BIT16:,EQU,740B. 016277 : BIT5:,EQU,753B. 016278 : BIT1:,EQU,757B. 016279 : IFS27:,EQU,5. 016280 : L0:,XTA,BIT1. 016281 : ,ATX,CODEIR. 016282 : L1:,XTA,BIT1. 016283 : ,ATX,NIR. 016284 : L2:,XTA,CODEIR. 016285 : ,WTC,NIR. 016286 : ,ATI,. 016287 : ,XTA,NIR. 016288 : ,ARX,BIT1. 016289 : ,ATX,NIR. 016290 : ,AAX,BIT5. 016291 : ,UZA,L2. 016292 : ,XTA,. 016293 : ,ATX,COUNT. 016294 : L3:,XTA,COUNT. 016295 : ,ARX,BIT1. 016296 : ,ATX,COUNT. 016297 : ,AEX,MAXCOUNT. 016298 : ,U1A,L3. 016299 : ,XTA,BIT1. 016300 : ,ATX,NIR. 016301 : L4:,WTC,NIR. 016302 : ,ITA,. 016303 : ,AEX,CODEIR. 016304 : ,U1A,STOP. 016305 : ,XTA,NIR. 016306 : ,ARX,BIT1. 016307 : ,ATX,NIR. 016308 : ,AAX,BIT5. 016309 : ,UZA,L4. 016310 : ,XTA,CODEIR. 016311 : ,ASN,64-1. 016312 : ,ATX,CODEIR. 016313 : ,AAX,BIT16. 016314 : ,UZA,L1. 016315 : ,UJ,L0. 016316 : STOP:,BSS,. 016317 : :,WTC,NIR. 016318 : ,33,. 016319 : ,UJ,L0. 016320 : MAXCOUNT:,BSS,. 016321 : ,LOG,10000. 016322 : NIR:,BSS,1. 016323 : CODEIR:,BSS,1. 016324 : COUNT:,BSS,1. 016325 : ,END,. 016326 : *YCЫ:,NAME,. 016327 : ,LIST,F 016328 : *SWCMN:LC,BLOCK,SBUSYFLG,SWSCAL,LOWPRT,UPRT,SUPRT,(3) 016329 : ,CONT,CWJOB,STIME,SWINGIF(24) 016330 : BUFTRA:LC,BLOCK,(1),IFTRA(36). 016331 : C=== PACПOЛOЖEHИE ИПЗ === 016332 : LEN:,EQU,200B.ДЛИHA CЛYЖ.ИПЗ 016333 : IFMAT1:,EQU,0.HEPEЗИДEHTHOE ИПЗ 016334 : IFMAT2:,EQU,0.HEPEЗИДEHTHOE ИПЗ 016335 : IFMAT3:,EQU,0.HEPEЗИДEHTHOE ИПЗ 016336 : IFSM1 :,EQU,66003B 016337 : IFSM2 :,EQU,IFSM1+LEN 016338 : IFSM3 :,EQU,IFSM2+LEN 016339 : IFSM4 :,EQU,IFSM3+LEN 016340 : C======================= 016341 : ГYC:12,, 016342 : ,Z00,361B.ИПЗ "ЖДY" 016343 : RDSCAL:,LOG,1 016344 : COMMIR:,LOG,10 0240 0000 0000 016345 : COMPIR:,OCT, 016346 : P PIR :,OCT,02.ДЛЯ OPERTERM 016347 : MPPIR:,OCT,77 016348 : M1RDSC:,LOG,7777 7777 7777 7777. 016349 : STCLTA:,LOG,0. 016350 : YCЫ:,BSS,. 016351 : :2,,. 016352 : ,Z00, 016353 : :2,100,. 016354 : ,Z00, 016355 : :2,20,. 016356 : ,Z00,.ИПЗ BBOДA 1 016357 : :2,30,. 016358 : ,Z00,330B.ИПЗ TTTASK 016359 : ,BSS,2. 016360 : :3,20,. 16 016361 : ,Z00,601B.ИПЗ OKHA 016362 : :,BSS,4. 016363 : :4,30,. 016364 : ,Z00,.ИПЗ BBOДA 2 016365 : :5,,. 016366 : ,Z00,SWINGIF. 016367 : ,OCT,. 25 016368 : :5,20,. 26 016369 : ,Z00,IFTRA. 016370 : :5,30,.27 016371 : ,Z00,632B.ИПЗ OПOЗHABAHИЯ 016372 : C------ 016373 : ,OCT,3000 0000 0006 6003 016374 : ,OCT,3100 0000 0006 6203 016375 : ,OCT,3200 0000 0006 6403 016376 : ,OCT,3300 0000 0006 6603 016377 : ,OCT,3400 0000 0006 7003 016378 : ,OCT,3500 0000 0006 7203 016379 : ,OCT,3600 0000 0006 7403 016380 : ,OCT,3700 0000 0006 7603 016381 : C------ 016382 : ,OCT,40 016383 : ,OCT,41 016384 : ,OCT,42 016385 : ,OCT,43 016386 : ,OCT,44 016387 : ,OCT,45 016388 : ,OCT,46 016389 : ,OCT,47 016390 : ,OCT,50 016391 : ,OCT,51 016392 : ,OCT,52 016393 : ,OCT,53 016394 : ,OCT,54 016395 : ,OCT,55 016396 : ,OCT,56 016397 : ,OCT,57 016398 : C------ 016399 : :12,, 016400 : ,Z00,361B.ИПЗ "ЖДY" 016401 : ,LIST,* 016402 : ,END,. 016403 : EXTINTER:,NAME,. 016404 : ,LIST,F 016405 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 016406 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 016407 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 016408 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 016409 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 016410 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 016411 : BITSWI:,EQU,BIT29. 016412 : EXCHBIT:,EQU,BIT7. 016413 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR 016414 : ,CONT,SAVS16 016415 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,PPIR,MPPIR,M1RDSC,STCLTA 016416 : CWTRA:,EQU,*YCЫ+26B. 016417 : TMATH:,EQU,30B. 016418 : SCALES:LC,BLOCK,(2),S1CLTA. 016419 : RETTRA:,LC,1. 016420 : CMDREC:,LC,1 016421 : TPHYS:,LC,1. 016422 : WSD:LC,BLOCK,WSD1,WSD2,WSD3. 016423 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 016424 : FULWOR:,LC,1. 016425 : DISREG:,LC,1. 016426 : C3:,LC,1 016427 : C5:,LC,1 016428 : C7:,LC,1. 016429 : C37:,LC,1. 016430 : C77777:,LC,1. 016431 : BASE*NR:LC,BLOCK,(1),BASENR1,(1) 016432 : YCTP:LC,BLOCK,(5),YCALC 016433 : COMLP:,LC,1 016434 : TTPRINT:,SUBP, 016435 : RETURN:,SUBP,. 016436 : NEWTA:,SUBP,. 016437 : CLANEWTA:,SUBP,. 016438 : ERRPRI:,SUBP,. 016439 : KOHTPOЛЬ:,SUBP,. 016440 : OCTAHOB:,SUBP, 016441 : CALCPRT:,SUBP,. 016442 : SWING:,SUBP,. 016443 : *SWCMN:LC,BLOCK,SBUSYFLG,SWSCAL,RCNT,EXCHSC,SUPRT,(3) 016444 : ,CONT,CWJOB,STIME,SWINGIF 016445 : IFSWI:,EQU,SWINGIF. 016446 : S33:,EQU,3. 016447 : S32:,EQU,4. 016448 : S27:,EQU,5. 016449 : I14:,EQU,10B. 016450 : COPYS32:,EQU,46B. 016451 : COPYI14:,EQU,47B. 016452 : M:,EQU,100B. 016453 : REGSCAL:,EQU,M 016454 : COPYS33:,EQU,M+6. 016455 : RETM67:,EQU,M+7. 016456 : I5:,EQU,21B. 016457 : IC1/2:,SUBP,. 016458 : IC3/6:,SUBP,. 016459 : DISINT:,SUBP,. 016460 : BIO*TL:,SUBP, 016461 : ITIMEB10:,SUBP, 016462 : PUTPIR :,SUBP, 016463 : CONINT/I:,SUBP, 016464 : CONINT/O:,SUBP, 016465 : ПPEPKAPT:,SUBP,. 016466 : ПPEPKAPT:I,BLOCK,ПPEPKAP0(2),ПPEPKAP1(2) 016467 : ,CONT,CИBY7000(2),CИBY7001(2) 016468 : ,CONT,HK И CИ0(2),HK И CИ1 016469 : ЗAПYCK:,SUBP, 016470 : STARTJOB:,SUBP,. 016471 : NSTAJOB:,LC,1. 016472 : BASEPRTA:,LC,1 016473 : PRINTASK:,SUBP, 016474 : CИ AЦПY:,SUBP,. 016475 : HYЛИAЦПY:,SUBP,. 016476 : PROGINT:,SUBP,. 016477 : STOP:,SUBP,. 016478 : INTPT:,SUBP, 016479 : TTENTRY:,SUBP,. 016480 : *TLSYS:LC,BLOCK,(2),EDITOR 016481 : *TLPRMT:LC,BLOCK,(12),/UVCH/ 016482 : NRESLINE:,SUBP, 016483 : MUX152B:,SUBP, 016484 : SIGNSAVE:,LC,1 016485 : ПEPФOPAЦ:,SUBP,. 016486 : CИПEPФ:,SUBP,. 016487 : CИKOHTP:,SUBP,. 016488 : CИПЛ:,SUBP,. 016489 : C377:,LC,1 016490 : BNR7CH:,LC,1 016491 : NR7CH:,SUBP, 016492 : KOHOБM7:,SUBP, 016493 : BЗBП:,SUBP, 016494 : ПYCП:,SUBP, 016495 : OT COCEДA:,SUBP, 016496 : FSBASENR:LC,BLOCK,(1),BASE405 016497 : NRCDC405 :,SUBP, 016498 : ENDEXT6:,SUBP, 016499 : EFSMNRS:,SUBP, 016500 : TYPEMT:,SUBP, 016501 : FL405:,EQU,TYPEMT+4.ПPИЗHAK ДYБHЫ 016502 : FIRM:,IFSEQ,D,DD**FI 016503 : K*N/SEND:,LC,1 016504 : K*RECEIV:,SUBP, 016505 : K*SEND:,SUBP, 016506 : FIRM:,ENDIF, 016507 : CONTIME:LC,BLOCK,(5),TCALC,(8) 016508 : BINP:,EQU,EFSMNRS.БAЗA BBOДA 016509 : *STATBUF:LC,BLOCK,(9),CTATПEЧ(2),(4),ПOДK 016510 : *5:,BLOCK,ЧYЖKOM,ЧYЖЛИC,ЗAПPKOM,ПEPEПOЛH,ДEЛHA0 016511 : *ИПД:,LC,1 016512 : LIBBOSS:,EQU,*ИПД+72B 016513 : C 016514 : C OБPAБOTKA BHEШHИX ПPEPЫBAHИЙ 016515 : C 016516 : , RTE , 07777B . 016517 : , ATX ,SAVSR . 016518 : ,XTA,DISREG. 016519 : ,ATI,21B.OCTAHOB KK,KЧ 016520 : , ITA , 15 . 016521 : 15,VTM,SAVI15 016522 : ,ITS,14 016523 : ,ITS,13 016524 : ,ITS,16 016525 : ,ATX,SAVS16 016526 : ,YTA, 016527 : ,ATX,SAVAR 016528 : , MOD , 00237B . 016529 : ,ATX,SAVMIR 016530 : , AAX , COMMIR . 016531 : , UZA ,L15710 . 016532 : INTER:,ENTRY,. 016533 : C 016534 : C BXOД ИЗ БЛOKA 'BOЗBPAT ИЗ ПPEPЫBAHИЯ' 016535 : C *ECTЬ EЩE ПPEPЫBAHИE* 016536 : C 016537 : ,ATX,PERREG 016538 : ,AAX,PRT/MASK 016539 : :,U1A,*+1 016540 : ,XTA,PERREG 016541 : :, ANX , . 016542 : , ATI , 14 . 016543 : 14, XTA ,BITS . 016544 : ,AEX,CLEMIR.ГAШ.BH.ПPEP. 016545 : , ATI , . 016546 : , MOD , 00037B . 016547 : 14, UJ , SWINT-1 . 016548 : INTINTER:,ENTRY,. 016549 : C 016550 : C OБPAБOTKA BHYTPEHHИX ПPEPЫBAHИЙ 016551 : C 016552 : ,RTE,7777B. 016553 : ,ATX,SAVSR. 016554 : ,XTA,DISREG 016555 : ,ATI,21B.OCTAHOB ПO KOHTPOЛЮ 016556 : ,ITA,15 016557 : 15,VTM,SAVI15 016558 : ,ITS,14 016559 : ,ITS,13 016560 : ,ITS,16 016561 : ,ATX,SAVS16 016562 : ,YTA, 016563 : ,ATX,SAVAR 016564 : ,MOD,237B. 016565 : ,ATX,SAVMIR. 016566 : ,XTA,CLEMIR. 016567 : ,ATI,. 016568 : ,MOD,37B. 016569 : ,ATI,. 016570 : ,XTA,Г Y C. 016571 : ,AEX,CWTRA. 016572 : ,U1A,NOTRA. 016573 : ,XTA,SAVAC 016574 : ,WTC,SAVI15 016575 : 15,VTM, 016576 : ,WTC,RETTRA. 016577 : ,UJ,. 016578 : NOTRA:,BSS, 016579 : ,XTA,SAVMIR. 016580 : ,AAX,WELINT. 016581 : ,UZA,L15710 016582 : ,ANX,. 016583 : ,ATI,14. 016584 : 14,UJ,SWINT-1. 016585 : C 016586 : C ПPИOPИTETHЫE ПPEPЫBAHИЯ : 016587 : PRT/MASK:,OCT,.6010 01 016588 : C 016589 : C 016590 : C =================================== 016591 : C I ПPEPЫBAHИЯ ПO Г P П : I 016592 : C =================================== 016593 : C 016594 : SW INT:,ENTRY,.ПOCЛE PRT/MASK !!! 016595 : C 016596 : SWINT:,BSS,. 016597 : :13,VTM,. 016598 : ,UJ,CИ . 016599 : :13,VTM,1. 016600 : ,UJ,CИ . 016601 : :14,VTM,1. 46 016602 : ,UJ,IC1/2. 016603 : :14,VTM,2. 45 016604 : ,UJ,IC1/2. 016605 : :,WTC,FSBASENR 016606 : ,UJ,HKИCИ0-BINP 016607 : :,WTC,FSBASENR 016608 : ,UJ,HKИCИ1-BINP 016609 : :,WTC,FSBASENR 016610 : ,UJ,INTPT-EFSMNRS 016611 : FIRM:3,IFSEQ,D,DD**FI 016612 : /41:,EXT,4015B.ЧT.KOДA 016613 : ,UJ,K*RECEIV.41 016614 : FIRM:2,ELSE, 016615 : :,WTC,FSBASENR 016616 : ,UJ,INTPT-EFSMNRS 016617 : :,NTR,3 016618 : ,UJ,BIO*TL.40 P. ГPП 016619 : :13,VTM,. 016620 : ,UJ,HYЛИ. 016621 : :13,VTM,1. 016622 : ,UJ,HYЛИ. 016623 : :,XTA,BASENR1. 37 016624 : ,UJ,PERINT. 016625 : :14,VTM,3. 36 016626 : ,UJ,IC3/6. 016627 : :14,VTM,4. 35 016628 : ,UJ,IC3/6. 016629 : :14,VTM,5. 34 016630 : ,UJ,IC3/6. 016631 : :14,VTM,6. 33 016632 : ,UJ,IC3/6 016633 : :,XTA,6. 32 016634 : ,UJ,ORDER. 016635 : :,WTC,BNR7CH 016636 : ,UJ,ПYCП-NR7CH.31 016637 : :,UJ,PROGINT. 016638 : :14,VTM,3. 29 016639 : ,UJ,DISINT. 016640 : :14,VTM,4. 28 016641 : ,UJ,DISINT. 016642 : :,33,27. 016643 : :,WTC,BASE405 .26 016644 : ,UJ,ENDEXT6-NRCDC405 016645 : :,WTC,BNR7CH 016646 : ,UJ,KOHOБM7-NR7CH.25 016647 : :,33,24. 016648 : :14,VTM,ДEЛHA0. 23 016649 : ,UJ,ERRPRI. 016650 : 14,VTM,ПEPEПOЛH. 22 016651 : ,UJ,ERRPRI. 016652 : :14,VTM,0.KOHTPOЛЬ ЧИCЛA 016653 : ,UJ,KOHTPOЛЬ. 016654 : :13,VTM,ЗAЩЧИCЛ. 20 016655 : ,UJ,S27COR. 016656 : :,33,19. 016657 : ,UJ,*. 016658 : :,33,18. 016659 : ,UJ,*. 016660 : 13,VTM,OCTAHЧИC. 17 016661 : ,UJ,S27COR. 016662 : :13,VTM,OCTAHЧИC. 16 016663 : ,UJ,S27COR. 016664 : :14,VTM,1.KOHTPOЛЬ KOM-ДЫ 016665 : ,UJ,KOHTPOЛЬ. 016666 : :13,VTM,ЗAЩKOM. 14 016667 : ,UJ,S27COR. 016668 : :14,VTM,ЗAПPKOM. 13 016669 : ,UJ,ERRPRI. 016670 : :13,VTM,OCTAHKOM. 12 016671 : ,UJ,S27COR. 016672 : ,XTA, 016673 : ,UJ,ECMEДЛ 016674 : :,UJ,ITIMEB10.10 P. ГPП 016675 : C ================== 016676 : C 016677 : S27COR:,BSS,. 016678 : ,XTA,ГYC. 016679 : ,ATI,15. 016680 : ,ITA,27B. 016681 : ,ATX,WSD1. 016682 : ,AAX,BIT10. 016683 : ,ASN,64+1. 016684 : ,ATX,WSD2. 016685 : ,AEX,BIT9. 016686 : ,AEX,WSD1. 016687 : ,ATI,27B. 016688 : ,AOX,WSD2. 016689 : 13,UJ,. 016690 : S33COR1:,BSS,. 534B 016691 : ,XTA,WSD1. 016692 : ,AEX,WSD2. 016693 : ,ATI,27B. 016694 : S33COR:,BSS,. 016695 : ,AAX,BIT9. 016696 : 13,UZA,. 016697 : ,ITA,33B. 016698 : ,ARX,C77777. 016699 : ,ATI,33B. 016700 : 13,UJ,. 016701 : ЗAЩЧИCЛ:,BSS,. 016702 : 14,VTM,ЧYЖЛИC 016703 : 13,VJM,S33COR. 016704 : ,XTA,SAVMIR. 016705 : ,ASN,64+4. 016706 : ,AAX,C37. 016707 : ,ATI,15. 016708 : ENTFOLIC:,ENTRY,. 016709 : C 016710 : C***** PEAKЦИЯ HA ЗAKPЫTЫЙ ЛИCT 016711 : C 016712 : ЗAЩOБЩ:,BSS,. 016713 : ,WTC,ГYC. 016714 : 15,XTA,TMATH. 016715 : ,ASN,64+30. 016716 : ,UZA,ERRPRI 016717 : ,ATI,14 016718 : ,ASN,64+16 016719 : ,U1A,PRTASWI 016720 : 14,XTA,TPHYS 016721 : ,AAX,EXCHBIT. 016722 : ,U1A,ЗAKPOБM. 016723 : ,UJ,RETURN. 016724 : PRTASWI:,BSS, 016725 : ,XTA,PPIR 016726 : ,AAX,BIT48 016727 : ,AEX,PPIR.ГACИM PIR T.K. 016728 : ,ATX,PPIR.EЩE HE БЫЛO ПPOTAЛKИBAHИЯ 016729 : 14,VZM,GIVEPAGE 016730 : ,XTA,BIT1.BЫЧИCЛ. ПPИOP. 016731 : ,ARX,ПOДK.CЧET. ПPИOPИT. 016732 : ,ATX,ПOДK.B CTATИCTИKY 016733 : ,ITA,14 016734 : ,UJ,CALCPRT. 016735 : GIVEPAGE:,ENTRY,. 016736 : C 016737 : C BXOД ДЛЯ OБPAЩEHИЯ K ПOДKAЧKE OT ЗAДAЧИ 016738 : C 016739 : GIVEPAGE:,BSS,. 016740 : ,XTA,SWSCAL 016741 : ,AOX,BITJ 016742 : ,ATX,SWSCAL 016743 : ,XTA,SBUSYFLG. 016744 : ,U1A,NEWTA 016745 : ,XTA,BIT37. 016746 : ,ARX,ПOДK.CЧET. ПOДKAЧ. 016747 : ,ATX,ПOДK.B CTATИCTИKY 016748 : ,XTA,RDSCAL. 016749 : ,AOX,BITSWI. 016750 : ,ATX,RDSCAL. 016751 : 14,VTM,SWING. 016752 : ,ITA,14. 016753 : ,ATX,IFSWI+S33. 016754 : ,ITA,15. 016755 : ,ATX,IFSWI+I5. 016756 : ,XTA,Г Y C. 016757 : ,ATX,CWJOB. 016758 : ,ATX,SBUSYFLG. 016759 : ,UJ,NEWTA 016760 : ЗAKPOБM:,BSS,. 016761 : ,ITA,14 016762 : ,ASN,64-30 016763 : ,AOX,ГYC 016764 : ,ATX,ГYC. 016765 : ,WTC,Д H З. 016766 : ,ATX,*YCЫ. 016767 : 14,XTA,TPHYS 016768 : ,ASN,64-42.БИT6-->48 016769 : ,AUX,BITJ 016770 : ,AOX,EXCHSC 016771 : ,ATX,EXCHSC 016772 : ,UJ,CLANEWTA. 016773 : ЗAЩKOM:,BSS,. 016774 : 14,VTM,ЧYЖKOM 016775 : 13,VJM,S33COR1. 016776 : ,ITA,33B. 016777 : ,ASN,64+10. 016778 : ,ATI,15. 016779 : ,UJ,ЗAЩOБЩ. 016780 : OCTAHЧИC:,BSS,. 016781 : 14,UTM,-32.0-ЗП,1-ЧT. 016782 : 13,VJM,S33COR. 016783 : 15,XTA,REGSCAL 016784 : ,AOX,BIT19 016785 : 15,ATX,REGSCAL 016786 : ,UJ,SETR13 016787 : OCTAHKOM:,BSS,. 016788 : 14,VTM,2.OCT.ПO NKOM. 016789 : 13,VJM,S33COR1. 016790 : 15,XTA,REGSCAL 016791 : ,AOX,BIT19 016792 : ,AEX,BIT19 016793 : 15,ATX,REGSCAL 016794 : SETR13:15,MTJ,13 016795 : ,UJ,OCTAHOB 016796 : C 016797 : CИ:,WTC,BASEPRTA 016798 : 14,VTM, 016799 : 14,UJ,CИAЦПY-PRINTASK 016800 : HYЛИ:,WTC,BASEPRTA 016801 : 14,VTM, 016802 : 14,UJ,HYЛИAЦПY-PRINTASK 016803 : C 016804 : PERINT:,BSS,. 016805 : ,ATI,13. БAЗA ЛИCTA ПEPФOPAЦИИ 016806 : ,EXT,4030B. 016807 : ,ATX,PERREG. 016808 : ,EXT,4034B. 016809 : ,AOX,PERREG. 016810 : ,AAX,COMPIR. 016811 : ,UZA,RETURN. 016812 : ,ANX,. 016813 : ,ATI,15. 016814 : 15,XTA,BITS. 016815 : ,AEX,FULWOR. 016816 : ,EXT,30B. 016817 : ,XTA,BIT37. 016818 : ,AEX,FULWOR. 016819 : ,ATI,. 016820 : ,MOD,37B. 016821 : 15,XTA,BITS 016822 : ,AAX,C377 016823 : 15,UZA,SWPINT-25 016824 : :,WTC,BNR7CH. П E P E Д 016825 : ,UJ,BЗBП-NR7CH."SWPINT" !!! 016826 : C 016827 : C 016828 : C =================================== 016829 : C I ПPEPЫBAHИЯ ПO П P П : I 016830 : C =================================== 016831 : C 016832 : SW PINT:,ENTRY, 016833 : C 016834 : SWPINT:,BSS,. 016835 : :,UJ,OT COCEДA.MEЖMAШ.CBЯЗЬ 016836 : :,WTC,FSBASENR 016837 : ,UJ,CИBY7001-BINP 016838 : :,WTC,FSBASENR 016839 : ,UJ,ПPEPKAP0-BINP 016840 : :,UJ,CHWXTX.ПOПOB M.Ю. 016841 : :14,VTM,. 016842 : 13,UJ,CИKOHTP-ПEPФOPAЦ. 016843 : 14,VTM,1 016844 : 13,UJ,CИ KOHTP - ПEPФOPAЦ 016845 : :14,VTM,. 016846 : 13,UJ,CИПEPФ-ПEPФOPAЦ. 016847 : :14,VTM,1. 016848 : 13,UJ,CИПEPФ-ПEPФOPAЦ. 016849 : :14,VTM,. 016850 : 13,UJ,CИПЛ-ПEPФOPAЦ. 016851 : FIRM:3,IFSEQ,D,DD**FI 016852 : /15:,XTA,K*N/SEND 016853 : ,UJ,K*SEND 016854 : FIRM:2,ELSE, 016855 : :14,VTM,1. 016856 : 13,UJ,CИПЛ-ПEPФOPAЦ. 016857 : :14,VTM,2. 016858 : 13,UJ,CИПЛ-ПEPФOPAЦ. 016859 : :,XTA,YCALC 016860 : ,UJ,ПPП13.CALCOMP 016861 : :14,VTM,0.VT/CONS 016862 : ,UJ,CONINT/I.INP-0 016863 : :14,VTM,1.VT/CONS 016864 : ,UJ,CONINT/I.INP-1 016865 : :14,VTM,0.VT/CONS 016866 : ,UJ,CONINT/O.OUT-0 016867 : :14,VTM,1.VT/CONS 016868 : ,UJ,CONINT/O.OUT-1 016869 : ORDER:,BSS,. 016870 : ,AAX,C7. 016871 : ,ATI,13. 016872 : :,UZA,RETURN.= 0-Й ПPИKAЗ 016873 : 13,UJ,* 016874 : :,XTA,1. 016875 : ,UJ,B. 016876 : :15,VTM,1.ПPИЗHAK 'STOP' 016877 : ,UJ,TOSTOP 016878 : :15,VTM,.ПPИЗHAK 'SAVE' 016879 : ,UJ,TOSAVE 016880 : :13,VTM,RETURN.PEЗEPB, T.K.ЭTO 016881 : ,UJ,RESMASK.ДEЛAET И "YCT.0" 016882 : :,XTA,3. ПPИKAЗ 5 016883 : ,UJ,ЗAПИCЬ. 016884 : :,XTA,5. ПPИKAЗ 6 016885 : ,UJ,NSJOB. 016886 : :,XTA,5.ПPИKAЗ 7 = "ДKO" 016887 : ,ATI,13 016888 : ,ITA,13 016889 : ,ASN,64+3 016890 : ,AEX,C3 016891 : ,UZA,ДKO 016892 : ,AEX,C7 016893 : ,U1A,RETURN 016894 : ДKO:13,XTA,BIT16-30B 016895 : ,AOX,CMDREC 016896 : ,ATX,CMDREC 016897 : ,UJ,RETURN 016898 : NSJOB:,BSS,. 016899 : C......... ЗAПYCK CTAHДAPTHOЙ ЗAДAЧИ 016900 : ,AAX,C77777. 016901 : ,ATX,NSTAJOB. 016902 : ,UZA,RETURN. 016903 : ,UJ,STARTJOB. 016904 : B:,AAX,BIT48. 016905 : ,ATX,NSTAJOB. 016906 : ,UJ,ЗAПYCK. 016907 : ЗAПИCЬ:,WTC,5 016908 : 14,VTM,-LIBBOSS 016909 : 14,VZM,NEWTA.HE ПИШEM 016910 : ,MOD,101B.KOM.CBEPTKA 016911 : 14,ATX,LIBBOSS 016912 : ,UJ,NEWTA 016913 : TOSTOP:,XTA,5 016914 : ,UJ,STOP 016915 : TOSAVE:,BSS, 016916 : ,XTA,5. 016917 : ,AAX,C37 016918 : ,UIA,STOP 016919 : ,XTA,C37 016920 : ,ATX,SIGNSAVE 016921 : ,UJ,STARTJOB 016922 : C--- 016923 : CHECKLP:,ENTRY, 016924 : TIME10:,SUBP, 016925 : 13,VTM,0 016926 : ,UJ,CHTLP 016927 : :13,VTM,1 016928 : CHTLP:,BSS, 016929 : 13,XTA,CONTIME+8 016930 : ,ARX,BIT45 016931 : 13,ATX,CONTIME+8 016932 : ,U1A,TIME10 016933 : ,XTA,BIT25 016934 : 13,ARX,CTATПEЧ 016935 : 13,ATX,CTATПEЧ 016936 : ,UJ,KOPMAC 016937 : ECMEДЛ:,EXT,4027B 016938 : ,ATI, 016939 : ,ATX,PERREG 016940 : ,AAX,COMLP 016941 : ,UZA,L15711 016942 : ,ANX, 016943 : ,ATI,13 016944 : 13,UTM,-45 016945 : KOPMAC:,BSS, 016946 : ,XTA, 016947 : 13,ATX,CONTIME+8 016948 : ,XTA,COMLP 016949 : 13,AOX,BIT4 016950 : 13,AEX,BIT4 016951 : ,ATX,COMLP 016952 : ,033,26B. 016953 : ,EXT,4000B 016954 : CLOMIR:,SUBP, 016955 : ,XTA,RDSCAL 016956 : 13,AOX,BIT41 016957 : ,ATX,RDSCAL 016958 : ,XTA,COMLP 016959 : ,U1A,NEWTA 016960 : ,XTA,BIT11 016961 : 13,VTM,NEWTA 016962 : ,UJ,CLOMIR 016963 : C 016964 : C... BOCCTAHOBЛEHИE MACOK ГPП И ПPП 016965 : C ПO ИX ПPOГPAMMHЫM KOПИЯM. 016966 : C 016967 : RESMASK:,ENTRY, 016968 : RESMASK:,XTA,COMPIR 016969 : ,UZA,PERMIR.HET MПPП 016970 : ,XTA,/UVCH/ 016971 : ,UZA,PERPIR.NO MPX 016972 : ,AOX,C5 016973 : ,ATX,/UVCH/.-BOCCT.MACOK 016974 : ,EXT,155B. CПEЦ.KAHAЛA 016975 : ,XTA,BIT19.-ПOДTBEPЖДEHИE 016976 : ,EXT,165B. ПPИEMA 016977 : ,XTA,FULWOR.-BЫДAЧA 016978 : ,EXT,164B. CИHXP.БAЙTA 016979 : ,XTA, 016980 : C 016981 : C... PAЗPEШEHИE ПPEPЫBAHИЙ ПO ПPП 016982 : C 016983 : PERPIR:,ENTRY, 016984 : PERPIR:,24,2003B 016985 : ,AEX,FULWOR 016986 : ,EXT,30B 016987 : ,AEX,FULWOR 016988 : ,AOX,COMPIR 016989 : ,ATX,COMPIR 016990 : ,EXT,34B 016991 : ,XTA,BIT37 016992 : C... 016993 : PERMIR:,ENTRY,. 016994 : C 016995 : C ГAШEHИE ГPП , PAЗPEШEHИE ПPEPЫBAHИЙ B ГPM 016996 : C 016997 : PERMIR:,24,2003B 016998 : ,AEX,FULWOR 016999 : ,MOD,37B 017000 : ,AEX,FULWOR 017001 : SETMIR:,ENTRY, 017002 : ,24,2003B 017003 : ,AOX,COMMIR. 017004 : WRMASK:,BSS,. 017005 : C ЗAПИCЬ B ГPM И KOПИЮ ГPM 017006 : ,ATX,COMMIR. 017007 : ,MOD,36B. 017008 : ,ATI,. 017009 : 13,UJ,. 017010 : CHWXTX:,XTA,FL405.B ДYБHE 017011 : ,WTC,FSBASENR.BMECTO YBBK-2 017012 : ,UZA,ПPEPKAP1-BINP."WX4675" И 017013 : ,XTA,EDITOR 017014 : ,ATI,13 017015 : 13,UTC,-1 017016 : 13,V1M,MUX152B-NRESLINE 017017 : ,XTA,BIT21 017018 : 13,VTM,RETURN 017019 : 0,CALL,CLOPIR 017020 : ПPП13:,ASN,64+42 017021 : ,ATI,13 017022 : 13,VZM,CL13 017023 : 13,XTA,BITS 017024 : ,AOX,RDSCAL 017025 : ,ATX,RDSCAL 017026 : CL13:13,VTM,NEWTA 017027 : ,XTA,BIT13 017028 : CLOPIR:,ENTRY, 017029 : ,AEX,FUL WOR 017030 : ,AAX,COMPIR 017031 : ,ATX,COMPIR 017032 : ,EXT,34B 017033 : ,XTA,BIT37 017034 : ,AEX,FUL WOR 017035 : ,ATI, 017036 : ,MOD,37B 017037 : ,XTA,COMPIR 017038 : 13,U1A, 017039 : ,XTA,BIT37 017040 : C ---------------------- 017041 : CLOMIR:,ENTRY,. 017042 : C 017043 : C ЗAПPET ПPEPЫBAHИЙ B ГPM 017044 : C 017045 : :,24,2003B. 017046 : ,AEX,FULWOR. 017047 : ,AAX,COMMIR. 017048 : ,UJ,WRMASK. 017049 : C 017050 : C--- ЧYЖOE ПPEPЫBAHИE 017051 : C 017052 : L15710:,UTC,TEXT-TEXTA 017053 : L15711:14,VTM,TEXTA 017054 : ,ITA,14 017055 : 14,VTM,RETURN 017056 : ,UJ,TTPRINT 017057 : TEXT :,ISO,12HOШ.ПPEPЫB.'''' 017058 : TEXTA:,ISO,12HOШ.ПPEP.AЦП'' 017059 : CLEMIR:,LOG,7777 7777 0140 3000. 017060 : WELINT:,LOG,7637 4000. 017061 : PERREG:,BSS,1. 017062 : ,LIST,* 017063 : ,END,. 017064 : K COCEДY:,NAME, 017065 : C* 017066 : C*** 30.9.84 AЛMA-ATA, KAЗГY 017067 : C* A.П.CAПOЖHИKOB 017068 : C* 017069 : C* MEЖMAШИHHЫЙ OБMEH COOБЩEHИЯMИ 017070 : C* ------------------------------ 017071 : C* OCHOBHЫE ПOЛOЖEHИЯ : 017072 : C* 017073 : C* 1. KAЖДAЯ ИЗ ДBYX MAШИH CПOCOБHA 017074 : C* ПEPEДATЬ COCEДHEЙ 24 БИTA ИHФOPMAЦИИ. 017075 : C* ЭTO ДEЛAETCЯ KOMAHДOЙ ,033,153B 017076 : C* ПPИ ЭTOM ПEPEДABAEMAЯ ИHФOPMAЦИЯ 017077 : C* HAXOДИTCЯ B 1-24 PAЗPЯДAX CYMMATOPA. 017078 : C* "1" 24 PAЗPЯДA BЫЗЫBAET HA COCEДHEЙ 017079 : C* MAШИHE ПPEPЫBAHИE ПO 24 P. П P П. 017080 : C* 017081 : C* ПOЛYЧИB ПPEPЫBAHИE, MAШИHA-AДPECAT 017082 : C* CЧИTЫBAET ПEPEДAHHYЮ EЙ ИHФOPMAЦИЮ 017083 : C* KOMAHДOЙ ,033,4153B . 017084 : C* ПPEPЫBAHИE ГACИTCЯ KOMAHДOЙ ,033,30B 017085 : C* ЗAПИCИ B ПEPИФ. PEГИCTP ПPEPЫBAHИЙ. 017086 : C* 017087 : C* 2. AППAPATYPA MEЖMAШИHHOГO OБMEHA 017088 : C* MOЖET БЫTЬ ИCПOЛЬЗOBAHA ДЛЯ PAЗЛИЧHЫX 017089 : C* ЦEЛEЙ. ДAHHAЯ ПPOГPAMMA ЗAДYMAHA ДЛЯ 017090 : C* CИHXPOHИЗAЦИИ ДOCTYПA K ЛИЧHЫM ФAЙЛAM 017091 : C* OT ДBYX MAШИH, ИMEЮЩИX OБЩИЙ KMД. 017092 : C* ДPYГИE ЦEЛИ MOГYT БЫTЬ PEAЛИЗOBAHЫ 017093 : C* ДOБABЛEHИEM B ПPOГPAMMY HOBЫX TИПOB 017094 : C* COOБЩEHИЙ. 017095 : C* 017096 : C* 3. CTPYKTYPA COOБЩEHИЯ : 017097 : C* -------------------- 017098 : C* 1:17 - ИHФOPMAЦИOHHAЯ ЧACTЬ (I) 017099 : C* 18:22 - TИП COOБЩEHИЯ (T) 017100 : C* 23 - БИT ЧETHOCTИ. 017101 : C* 24 - БИT ПPEPЫBAHИЯ. 017102 : C* БИTЫ 24 И 23 ФOPMИPYЮTCЯ ПPOГPAMMOЙ. 017103 : C* 017104 : C* TИПЫ COOБЩEHИЙ : 017105 : C* 017106 : C* T=0 - OTBET HA PAHEE BЫДAHHЫЙ 017107 : C* ЗAПPOC 017108 : C* T<20B - ИHФOPMAЦИOHHAЯ ПOCЫЛKA, 017109 : C* HE TPEБYЮЩAЯ OTBETA 017110 : C* T<40B - ЗAПPOC, TPEБYЮЩИЙ OTBETA 017111 : C* 017112 : C* 017113 : C* 4. ПPИ ЗAKAЗE ДИCKOBЫX PECYPCOB 017114 : C* KAЖДAЯ MAШИHA OБPAЩAETCЯ K COCEДY ЗA 017115 : C* PAЗPEШEHИEM И ДOЖИДAETCЯ OTBETA : 017116 : C* ,XTA, <ЗAПPOC> 017117 : C* ,CALL, K COCEДY 017118 : C* HA BЫXOДE CYMMATOP = 0, ECЛИ 017119 : C* PAЗPEШEHИE ПOЛYЧEHO. 017120 : C* OБPAБOTKA ЗAПPOCA И ПOCЫЛKA OTBETA 017121 : C* ПPOИЗBOДЯTCЯ БЛOKOM PEAKЦИИ HA 017122 : C* ПPEPЫBAHИE. B CЛYЧAE BCTPEЧHЫX 017123 : C* ЗAПPOCOB ПPOИЗBOДИTCЯ ПOBTOPHAЯ 017124 : C* ПOCЫЛKA OБOИMИ MAШИHAMИ. 017125 : C* 017126 : C* 017127 : C* 5. BЫXOД ИЗ БЛOKA CBЯЗИ ПO 13 PEГИCTPY. 017128 : C* ПPEPЫBAHИЯ ЗAKPЫTЫ. 017129 : C* ПPИ T<20B ПOPTИTCЯ TOЛЬKO SAVS16. 017130 : C* ПPИ T=>20B ПPOИЗBOДИTCЯ CПACEHИE 017131 : C* И BOCCTAHOBЛEHИE PEГИCTPOB B ПOЛE 017132 : C* MAЛOГO YПPЯTЫBAHИЯ. 017133 : C* ИTAK, ДЛЯ ИCПOЛЬЗOBAHИЯ ПPOГPAMMЫ 017134 : C* MEЖMAШИHHOГO OБMEHA TPEБYETCЯ 017135 : C* TOЛЬKO 13-Й PEГИCTP. 017136 : C* ПOPTЯTCЯ CПEЦ.PEГИCTPЫ: 27,33,SAVS16 017137 : C* 017138 : C* 017139 : *677:B,BLOCK,BITS 017140 : ,CONT,B48,B47,B46,B45,B44,B43 017141 : ,CONT,B42,B41,B40,B39,B38,B37 017142 : ,CONT,B36,B35,B34,B33,B32,B31 017143 : ,CONT,B30,B29,B28,B27,B26,B25 017144 : ,CONT,B24,B23,B22,B21,B20,B19 017145 : ,CONT,B18,B17,B16,B15,B14,B13 017146 : ,CONT,B12,B11,B10,B9,B8,B7 017147 : ,CONT,B6,B5,B4,B3,B2,B1 017148 : C77777:,LC,1 017149 : C7777:,LC,1 017150 : C77:,LC,1 017151 : C37:,LC,1 017152 : C7:,LC,1 017153 : C377:,LC,1 017154 : FULWOR:,LC,1 017155 : B24/1:,LC,1 017156 : B16/1:,LC,1 017157 : DISREG:,LC,1 017158 : *CB:,LC, 017159 : C17:,EQU,*CB+1 017160 : MASK12:,LC, 017161 : C--- 017162 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR 017163 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 017164 : ,CONT,SAVI15,SAVI14,SAVI13 017165 : ,CONT,(1),SAVS16 017166 : Д H З:LC,BLOCK,(1),BITJ,ZBITJ 017167 : ШЛAГБAYM:LC,BLOCK,(12),SEM 017168 : *ПДИCK:,LC, 017169 : YДABЛEHЫ:,LC,1 017170 : SCALES:LC,BLOCK,(1),MRDSCAL(3),SCCLTA 017171 : TABLEMT:LC,BLOCK,T1(48),T2 017172 : DISPBASE:LC,BLOCK,(6),NUMA 017173 : FREESEM:,LC,1 017174 : *ИПД:,LC, 017175 : FATA:,LC, 017176 : *TLSIZE:LC,BLOCK,(1),XNPHCH 017177 : NPC:,WEQ,XNPHCH 017178 : NPC1:,EQU,NPC-1 017179 : NPC2:,EQU,NPC-2 017180 : *TLBUFI:LC,BLOCK,CIN 017181 : XNT:,EQU,1 017182 : C1777:,LC,1 017183 : FREXT:,EQU,*ИПД+34B 017184 : NSEM:,EQU,*ИПД+7 017185 : SEM212:,EQU,9.ДOCTYП K ИПЗ 017186 : XLFATA:,EQU,*ИПД+20B 017187 : MONO:,EQU,*ИПД+33B 017188 : LFATA:,WEQ,XLFATA 017189 : LFAT1:,EQU,LFATA-1 017190 : C--- 017191 : CLANEWTA:,SUBP, 017192 : RETURN:,SUBP, 017193 : NEWTA:,SUBP, 017194 : DELTIMER:,SUBP, 017195 : C--- 017196 : C 017197 : LINCOM:LC,BLOCK,ISLINK.ЧTO ПPИHЯЛИ 017198 : ,CONT,AN/SW.ПOCЛE OTBETA 017199 : ,CONT,ANSWER.OTBET 017200 : ,CONT,SAVR(5).PAY, И15-И13, AC 017201 : ,CONT,MESS/S(2).ПOCЫЛAEMOE 017202 : C 017203 : C 017204 : TERP:I,BLOCK,.PAБ. ЯЧ. 017205 : ,CONT,MESS(0),MACKA 017206 : TERT:I,BLOCK,.PAБ. ЯЧ. 017207 : ,CONT,SR13(0),OБPAЗ 017208 : C 017209 : C-------------------------- 017210 : C 017211 : B:,24,2003B 017212 : ,ATX,SAVS16 017213 : ,AAX,B22 017214 : ,UZA,SND ONLY 017215 : ,XTA,ISLINK 017216 : 13,UZA,.HET CBЯЗИ 017217 : C 017218 : C--- BXOД B KPИT. ИHTEPBAЛ ЗAПPOCA 017219 : C 017220 : :13,MTJ,16 017221 : ,CALL,SAVEMOD 017222 : ,XTA,DISREG 017223 : ,ATI,27B 017224 : ENTRY:,XTA,SEM 017225 : ,UZA,FREE 017226 : ,AEX,ДHЗ 017227 : ,AAX,C77 017228 : ,UZA,OWN 017229 : ,WTC,ДHЗ 017230 : ,XTA,BITS-6 017231 : ,AOX,SEM 017232 : ,ATX,SEM 017233 : 13,VTM,ENTRY1 017234 : CLOSE:13,MTJ,33B 017235 : ,UJ,CLANEWTA 017236 : ENTRY1:,XTA,SAVS16.ПOBTOPHЫЙ 017237 : ,ARX,.BXOД 017238 : ,U1A,ENTRY.OT SEMDOWN 017239 : ,UJ,DWN. - ДA 017240 : FREE:,XTA,ДHЗ 017241 : ,ATX,SEM 017242 : C 017243 : C... CПACEHИE BXOДHЫX PEГИCTPOB 017244 : C 017245 : OWN:15,VTM,SAVR 017246 : ,ITA,32B 017247 : ,AOX,SAVSR 017248 : ,XTS,SAVI15 017249 : ,XTS,SAVI14 017250 : ,XTS,SAVI13 017251 : ,XTS,SAVAC 017252 : ,XTS,SAVS16 017253 : 15,ATX, 017254 : ,ARX, 017255 : ,U1A,TO SEND 017256 : C 017257 : C... ПOCЫЛAEMOE COOБЩEHИE - OT SEMDOWNS 017258 : C 017259 : ,ASN,64+24 017260 : ,ARX,SPECDWN 017261 : C 017262 : C--- OЧEPEДHAЯ ПOПЫTKA ПOCЫЛKИ COOБЩEHИЯ 017263 : C 017264 : TO SEND:14,VTM,TIME OUT 017265 : ,ITS,14 017266 : ,STX,AN/SW 017267 : 13,VJM,SEND 017268 : ,XTA,TIME 017269 : ,*57,13B.ЗAKPЫЛИCЬ 017270 : ,WTC,AN/SW 017271 : ,UJ, 017272 : C 017273 : C... ПEPEДAЧA ПPOШЛA C OШИБKOЙ 017274 : C ИЛИ БЫЛ BCTPEЧHЫЙ ЗAПPOC. 017275 : C 017276 : REPEAT:,XTA,MESS/S+1 017277 : ,ARX,B45.CЧETЧИK 017278 : ,U1A,TO SEND.ПOBTOPEHИЙ 017279 : ,UTC,TERP-TERT 017280 : C 017281 : C... ИCTEKЛO ДOПYCTИMOE BPEMЯ 017282 : C OЖИДAHИЯ OTBETA. 017283 : C 017284 : TIME OUT:14,VTM,TERT 017285 : ,XTA,NUMA 017286 : ,ASN,64+46 017287 : ,AEX,=6HБЭCM-3 017288 : 14,ATX, 017289 : ,XTA, 017290 : ,ATX,ANSWER 017291 : ,ATX,ISLINK 017292 : ,ITA,14 017293 : 14,CALL,TTPRINT 017294 : C 017295 : C... OTBET ПOЛYЧEH. BЫXOД. 017296 : C 017297 : EXIT:,XTA,SEM 017298 : ,ASN,64+6 017299 : ,AOX,RDSCAL 017300 : ,ATX,FREESEM 017301 : ,STX,RDSCAL 017302 : ,XTA, 017303 : ,STX,SEM 017304 : ,STX,SAVAC 017305 : ,ATX,SAVI13 017306 : ,STI,13 017307 : ,ATX,SAVI14 017308 : ,STI,14 017309 : ,ATI,15 017310 : ,ATX,SAVI15 017311 : ,XTA,SAVR 017312 : ,ATX,SAVSR 017313 : ,ATI,32B 017314 : ,XTR,SAVSR 017315 : ,XTA,MESS/S 017316 : ,ARX, 017317 : ,UZA,SEM/CONT 017318 : ,XTA,ANSWER 017319 : 13,UJ, 017320 : C 017321 : C ************************************* 017322 : C * * 017323 : C--- * ПPOЦEДYPЫ ДЛЯ PAБOTЫ C CEMAФOPAMИ:* 017324 : C * S E M D O W N S, S E M U P * 017325 : C * * 017326 : C ************************************* 017327 : C 017328 : C ИHФOPMAЦИOHHOE CЛOBO - HA CYMMATOPE: 017329 : C 1-15 : BOЗBPAT 017330 : C 25-39 : AДPEC CEMAФOPA 017331 : C 48 : "1", ECЛИ OH 2-MAШИHHЫЙ 017332 : C ПOPTЯTCЯ : SAVS16, И33. 017333 : C 017334 : SEMDOWNS:,ENTRY, 017335 : :,24,2003B 017336 : ,ATX,SAVS16 017337 : 13,MTJ,16 017338 : ,CALL,SAVEMOD 017339 : C 017340 : C... BXOД +2 - ДЛЯ NRESCALL 017341 : C 017342 : :,XTA,DISREG 017343 : ,ATI,27B 017344 : DWN:,XTA,SAVS16 017345 : ,ASN,64+24 017346 : ,ATI,13.CEMAФOP 017347 : ,XTA,NSEM 017348 : 13,APX,B48-ШЛAГБAYM.+ ПPИЗHAK 017349 : ,AOX,SAVS16.ДBYXMAШИHHOГO 017350 : ,ATX,SAVS16.CEMAФOPA 017351 : 13,XTA, 017352 : ,AAX,C77.Y HAC 017353 : ,UZA,FRSEM.-CBOБOДEH 017354 : ,AEX,ДHЗ 017355 : ,UZA,RETDWN.CBOЙ 017356 : BUSY:,WTC,ДHЗ 017357 : ,XTA,BITS-6 017358 : 13,AOX,.ЗAKPЫTИE 017359 : 13,ATX,. ПO 017360 : 13,VTM,DWN.ЗAHЯTOCTИ 017361 : ,UJ,CLOSE.CEMAФOPA 017362 : C 017363 : SEM/CONT:,WTC,MESS/S+1.TOT ЖE 017364 : 13,VTM,ШЛAГБAYM.CEMAФOP 017365 : ,XTA,ANSWER.Y COCEДA 017366 : ,U1A,BUSY. - ЗAHЯT 017367 : ,XTA,ДHЗ. - CBOБOДEH 017368 : 13,AOX, 017369 : 13,ATX, 017370 : ,UJ,RETDWN 017371 : C 017372 : FRSEM:,XTA,ISLINK.ECTЬ CBЯЗЬ 017373 : ,UZA,OCCSEM. - HET 017374 : ,ARX,SAVS16.2-MAШ.CEMAФOP 017375 : ,UZA,ENTRY. - ДA 017376 : OCCSEM:,XTA,ДHЗ 017377 : 13,ATX,.CYГYБO CBOЙ 017378 : RETDWN:,WTC,SAVI13 017379 : 13,VTM, 017380 : ,WTC,SAVS16 017381 : ,UJ, 017382 : C 017383 : C 017384 : SEM UP:,ENTRY, 017385 : :,24,2003B 017386 : ,ATX,SAVS16 017387 : ,ITA,13 017388 : ,ATX,SR13 017389 : ,XTA,SAVS16 017390 : ,ASN,64+24 017391 : ,ATI,13 017392 : 13,XTA, 017393 : ,AEX,ДHЗ 017394 : ,AAX,C77.БЫЛ "DWN" 017395 : ,U1A,RETUP. - HET 017396 : 13,XTA, 017397 : ,ASN,64+6 017398 : ,AOX,RDSCAL 017399 : ,ATX,RDSCAL 017400 : ,ATX,FREESEM 017401 : ,XTA, 017402 : 13,ATX, 017403 : ,XTA,YДABЛEHЫ 017404 : 13,UTM,-ШЛAГБAYM-SEM212 017405 : 13,VIM,NO212 017406 : ,AOX,MRDSCAL 017407 : ,ATX,MRDSCAL 017408 : ,XTA, 017409 : NO212:,ATX,YДABЛEHЫ 017410 : 13,UTM,SEM212 017411 : ,XTA,NSEM 017412 : 13,AAX,B48 017413 : ,UZA,RETUP 017414 : ,ITA,13 017415 : ,AOX,B19 017416 : 13,VJM,SEND 017417 : RETUP:,WTC,SR13 017418 : 13,VTM, 017419 : ,WTC,SAVS16 017420 : ,UJ, 017421 : SPECDWN:,Z00, 017422 : 2,Z04,-ШЛAГБAYM 017423 : C 017424 : C 017425 : C--- BXOД ИЗ БЛOKA PEAKЦИИ HA ПPEPЫBAHИE 017426 : C ПPИEM COOБЩEHИЯ OT 24 P. П P П. 017427 : C ПOCЫЛKA, ECЛИ HAДO, OTBETA. 017428 : C 017429 : OT COCEДA:,ENTRY, 017430 : ,EXT,4153B.***** 017431 : ,AAX,B23/1 017432 : ,ATX,ISLINK.COOБЩEHИE 017433 : ,ACX,B1 017434 : ,AAX,B1 017435 : ,U1A,PARITY.OШ.ЧETH. 017436 : ,XTA,ISLINK 017437 : ,AAX,=1777 7777 017438 : ,ATX,ISLINK 017439 : ,ASN,64+17 017440 : ,ATI,14.TИП 017441 : ,AAX,B5 017442 : 14,UZA,SW/SEND.ПOCЫЛKA 017443 : 13,VTM,RETURN 017444 : ,XTA,SEM.BCTPEЧHЫЙ 017445 : ,AAX,C77.ЗAПPOC 017446 : 14,UZA,SW/QUEST-16. - HET 017447 : C 017448 : C... ПPOCИM ПOBTOPИTЬ ЗAПPOC 017449 : C 017450 : OTLUP:,XTA,B24."ЧETHAЯ" 017451 : 13,VJM,SEND*.ПOCЫЛKA 017452 : :,XTA, 017453 : ,UTC,REPEAT-EXIT 017454 : C 017455 : C... ПOCЫЛKA C T=00. I = . 017456 : C AHAЛИЗ OTBETA HA HAШ ЗAПPOC 017457 : C 017458 : ANAL:13,VTM,EXIT 017459 : ,ATX,ANSWER 017460 : ,ITA,13 017461 : ,ATX,AN/SW 017462 : ,XTA,SEM 017463 : ,ASN,64-15.CHИMAEM 017464 : 13,VTM,NEWTA.TAЙMEP 017465 : ,UJ,DELTIMER 017466 : PARITY:,XTA,ISLINK 017467 : ,AAX,B23/1 017468 : ,UZA,OTLUP+1.CEБE-ПOBTOP 017469 : ,AAX,B22 017470 : ,U1A,OTLUP.OБOИM - ПOBTOP 017471 : ,UJ,RETURN.ПPOИГHOPИPYEM 017472 : C =========================== 017473 : C--- ПEPEKЛЮЧATEЛЬ ЗAПPOCOB : 017474 : C =========================== 017475 : SW/QUEST:,BSS, 017476 : :15,VTM,-LFAT1 017477 : ,UJ,Q/DISK 017478 : :,UJ,Q/SEM 017479 : :,UJ,YES.P E З E P B 017480 : :14,VTM,-NPC2 017481 : ,UJ,Q/PASS.T=23B 017482 : :,XTA,B1.T=24 - ЗAПPOC: 017483 : ,UJ,SEND."ЖИB ЛИ COCEД" 017484 : C .................................. 017485 : C ДAЛEE EЩE 11 PEЗEPBHЫX ПOЗИЦИЙ 017486 : C .................................. 017487 : C 017488 : C 017489 : C =========================== 017490 : C--- ПEPEKЛЮЧATEЛЬ ПOCЫЛOK : 017491 : C =========================== 017492 : SW/SEND:,BSS, 017493 : :,XTA,ISLINK 017494 : ,UJ,ANAL.OTBET 017495 : :13,VTM,SCCLTA 017496 : ,UJ,PUSH 017497 : :,UJ,OP/SEM 017498 : C ..................................... 017499 : C ДAЛEE EЩE 13 PEЗEPBHЫX ПOЗИЦИЙ 017500 : C ..................................... 017501 : C 017502 : C 017503 : C 017504 : C ********* ЗAПPOCЫ ********** 017505 : C 017506 : C 017507 : C... ЗAПPOC C T=20B 017508 : C ЗAXBAT ФAЙЛA ИЛИ ПAKETA 017509 : C 17-14 : HOMEP MOДYЛЯ-30B 017510 : C 13 : "1", ECЛИ ЗAПИCЬ ИЛИ MOHOПOЛИЯ 017511 : C 12-1 : HAЧ.ЗOHA ФAЙЛA ИЛИ 7777 017512 : C 017513 : Q/DISK:,XTA,ISLINK 017514 : ,AAX,B17 017515 : :,UZA,*+1 017516 : ,UTC,1 017517 : :,XTA,B 34 017518 : ,AAX,*ПДИCK 017519 : ,UZA,YES 017520 : ,XTA,ISLINK 017521 : ,ASN,64+13 017522 : ,AAX,C17.HOMEP 017523 : ,ATI,14.MOДYЛЯ 017524 : C 017525 : C--- ECЛИ Y HAC MOHOПOЛИЯ HA ПAKET - 017526 : C OTBETИM OTKAЗOM 017527 : ,XTA,MONO 017528 : 14,AAX,B16 017529 : ,U1A,NO 017530 : ,XTA,ISLINK 017531 : ,AAX,C7777 017532 : ,AEX,C7777 017533 : ,U1A,Q/FILE 017534 : C 017535 : C--- ECЛИ Y HAC ПAKET ЗAHЯT, A COCEД 017536 : C ЖAЖДET MOHOПOЛИИ - OTKAЖEM. 017537 : C 017538 : ,XTA,ISLINK 017539 : ,AAX,B13 017540 : ,UZA,YES 017541 : ,XTA,MONO 017542 : 14,AAX,B48 017543 : ,U1A,NO 017544 : ,UJ,YES 017545 : C 017546 : C--- AHAЛИЗ ФAЙЛOBOЙ TAБЛИЦЫ 017547 : C 017548 : Q/FILE:,XTA,= 0000 7740 7777 0000 017549 : ,ATX,MACKA 017550 : ,XTA,ISLINK 017551 : ,ARX,B18.+30 K 017552 : ,ARX,B17.HOMEPY MOДYЛЯ 017553 : ,ASN,64-29 017554 : ,AUX,MACKA 017555 : ,ATX,OБPAЗ 017556 : ,AAX,B30 017557 : ,AEX,MACKA 017558 : ,ATX,MACKA 017559 : ,XTA,B30 017560 : ,AOX,OБPAЗ 017561 : ,ATX,OБPAЗ 017562 : Q/F1:15,XTA,FATA+LFAT1 017563 : ,AEX,OБPAЗ 017564 : ,AAX,MACKA 017565 : ,UZA,Q/F2 017566 : 15,VLM,Q/F1 017567 : ,UJ,YES 017568 : Q/F2:15,XTA,FATA+LFAT1 017569 : ,AAX,MASK12 017570 : ,U1A,NO.ЛИЧH.ФAЙЛ 017571 : C 017572 : C... ПOИCK ПO TAБЛИЦE MOДEЛEЙ 017573 : C 017574 : 14,VTM,-15 017575 : Q/F3:14,XTA,T1+15 017576 : ,AAX,MASK12 017577 : ,U1A,Q/F5 017578 : Q/F4:14,VLM,Q/F3 017579 : ,UJ,YES 017580 : Q/F5:15,UTM,LFATA 017581 : ,ITA,15 017582 : 15,UTM,-LFATA 017583 : 14,AEX,T2+15 017584 : ,AAX,C77777 017585 : ,U1A,Q/F4 017586 : C 017587 : C--- ПOCЫЛKA OTBETA 017588 : C 017589 : NO:,UTC,B1 017590 : YES:,XTA, 017591 : ,UJ,SEND 017592 : C 017593 : C... ЗAПPOC C T=21B : 017594 : C ЗAПPOC KPИT.ИHTEPBAЛA. 017595 : C 1-15 : HOMEP CEMAФOPA 017596 : C 017597 : Q/SEM:,WTC,ISLINK 017598 : ,XTA,ШЛAГБAYM 017599 : ,AAX,C77 017600 : ,UJ,SEND 017601 : C 017602 : C... ЗAПPOC C T=23B (MYЛЬTИTAЙП) 017603 : C CBOБOДEH ЛИ PASS, HOMEP KOTOPOГO 017604 : C ЗAДAH B 1:10 PAЗPЯДAX. 017605 : C 017606 : Q/PASS:14,XTA,CIN+NPC1 017607 : ,ATI,15 017608 : 15,VZM,L/PASS 017609 : 15,XTA,XNT 017610 : ,ASN,64+20 017611 : ,AEX,ISLINK 017612 : ,AAX,C1777 017613 : ,UZA,NO 017614 : L/PASS:14,VLM,Q/PASS 017615 : ,UJ,YES 017616 : C 017617 : C 017618 : C 017619 : C ********** ПOCЫЛKИ ************* 017620 : C 017621 : C 017622 : C... ПOCЫЛKA C T=01 . 017623 : C Y COCEДA OCBOБOДИЛИCЬ PECYPCЫ. 017624 : C OПEPAЦИЯ "OPENWAIT". 017625 : C I - HECYЩECTBEHHO 017626 : C 017627 : PUSH:13,XTA, 017628 : ,UJ,OPEN 017629 : C 017630 : C... ПOCЫЛKA C T=02 : 017631 : C OCBOБOДИЛCЯ KPИT.ИHTEPBAЛ 017632 : C 1-15 : HOMEP CEMAФOPA 017633 : C 017634 : OP/SEM:,WTC,ISLINK 017635 : 13,VTM,ШЛAГБAYM 017636 : 13,XTA, 017637 : ,ASN,64+6 017638 : OPEN:,BSS, 017639 : ,ATX,FREESEM 017640 : ,AOX,RDSCAL 017641 : ,ATX,RDSCAL 017642 : ,XTA, 017643 : 13,ATX, 017644 : ,UJ,RETURN 017645 : C 017646 : C 017647 : C 017648 : SND ONLY:,XTA,SAVS16 017649 : C 017650 : C... БЛOK ПOCЫЛKИ COOБЩEHИЯ 017651 : C 017652 : SEND:,AAX,B23/1 017653 : ,ATX,MESS 017654 : ,ACX,B1 017655 : ,ASN,64-22 017656 : ,AEX,MESS 017657 : ,AOX,B24 017658 : SEND*:,BSS, 017659 : ,EXT,153B 017660 : ,AAX,B23/1 017661 : ,EXT,153B 017662 : 13,UJ, 017663 : C 017664 : C----------------------------- 017665 : C 017666 : TERP:,ISO,18HБЭCM-1 : OШ.ЧETH.'' 017667 : TERT:,ISO,18HБЭCM-1 MOЛЧИT.'''''''' 017668 : B23/1:,LOG,3777 7777 017669 : TIME:,REAL,2.0 017670 : ,END, 017671 : KOHTPOЛЬ:,NAME, 017672 : C********* OБPAБOTKA ПPEPЫBAHИЙ 017673 : C ПO KOHTPOЛЮ 017674 : *YCЫ:LC,BLOCK,ГYC 017675 : ДHЗ:,LC,1 017676 : SCALES:LC,BLOCK,(2),S1CLTA 017677 : SMASAV:LC,BLOCK,SAVAC,(2),SAVI15,SAVI14, 017678 : ,CONT,(1),SAVMIR 017679 : WSD:,LC,1 017680 : TPHYS:,LC,1 017681 : TMATH:,EQU,30B 017682 : * И П Д :LC,BLOCK,XNF,XNFM(4),XNC,XNCM(2) 017683 : ,CONT,Ш/CЛYЖ,Ш/FULL 017684 : NJ:,WEQ,XNF 017685 : * И П K 1 :LC,BLOCK,NPRTJ 017686 : FULWOR:,LC,1 017687 : DISREG:,LC,1 017688 : C2003:,LC,1 017689 : C1777:,LC,1 017690 : C177:,LC,1 017691 : MNP:,EQU,C177 017692 : C77:,LC,1 017693 : C37:,LC,1 017694 : C14:,LC,1. 017695 : C7:,LC,1 017696 : STATIST:,SUBP, 017697 : RETURN:,SUBP, 017698 : TELOUT:,SUBP, 017699 : *10:,BLOCK,KOHTPЧИC,KOHTPKOM,T/CБOЙ 017700 : ERRPRI:,SUBP, 017701 : *NRP1:,PC, 017702 : ENDRES*1:,EQU,*NRP1-1 017703 : *700:B,BLOCK,B48(8),B40(16),B24(15) 017704 : ,CONT,B9(2) 017705 : ,CONT,B7(3),B4,B3(2),B1 017706 : BITS :,EQU,677B 017707 : BREP :,EQU,677B 017708 : BKK/KЧ :,EQU,677B 017709 : EXCH BIT:,EQU,B7 017710 : FIX BIT:,EQU,B1 017711 : B32K:,EQU,B48 017712 : B64K:,EQU,B48+1 017713 : B64K/8K:,EQU,B48+2 017714 : ,WTC,ДHЗ. 017715 : 13,VTM,.HOMEP ЗAДAЧИ 017716 : ,XTA,ГYC. 017717 : ,ASN,64+15.ПPИЗHAK: OHA 017718 : ,ATI,15.ДИCПETЧEPCKAЯ 017719 : 14,V1M,KOHTP. - KOHTP. KOM 017720 : ,XTA,SAVMIR.HOMEP БPЗ/MOЗY 017721 : ,AAX,C7. 017722 : ,ATX,WSD. 017723 : ,XTA,SAVMIR. 017724 : ,AAX,B4. 017725 : ,U1A,KOHTP. - KЧ MOЗY 017726 : C......... KOHTPOЛЬ ЧИCЛA - БPЗ 017727 : ,XTA,WSD.TT-TEKCT 017728 : ,ASN,64-24.'KЧ БPЗ-N' 017729 : ,AOX,TTE1. 017730 : 14,VTM,T KЧБPЗ. 017731 : 14,ATX,1.... 017732 : ,XTA,WSD. 017733 : ,ASN,64-15. 017734 : KЧ/CTAT:,ARX,ИC KЧ.ПOXOД HA 017735 : ,UJ,STATIST.CTATИCTИKY 017736 : ИC KЧ:,Z05, 017737 : ,Z00,KЧ/TT 017738 : KЧ/TT:,ITA,14. 017739 : 14,CALL,TELOUT.TT-ПEЧATЬ 017740 : 15,V1M,MATJ.KЧ-HE ДИCП. 017741 : ,XTA,FULLBLOK.БЛOKИPOBKA ПOЧTИ 017742 : ,ATX,S1CLTA.BCEX ЗAДAЧ 017743 : 14,VTM,T KOHTP. 017744 : ,ITA,14.TT-ПEЧATЬ 017745 : 14,CALL,TELOUT.'ЧИHИ MOЗY' 017746 : :,24,3. 017747 : ,UJ,*. 017748 : MATJ:14,VTM,KOHTPЧИC. 017749 : ,XTA,B1. 017750 : C......... COOБЩEHИE ЗAДAЧE HA AЦПY 017751 : KOHAЦПY:,ATX,WSD. 017752 : 13,XTA,B REP.ГAШEHИE ПPИЗH. 017753 : ,AEX,FULWOR.KOHTPOЛЬ-ПPOB. 017754 : ,AAX,CON SC. 017755 : ,ATX,CON SC.... 017756 : ,XTA,WSD. 017757 : ,U1A,OШMAШИHЫ.OШИБKA MOЗY 017758 : ,UJ,ERRPRI.OШИБKA MATEM. 017759 : OШMAШИHЫ:14,VTM,T/CБOЙ 017760 : ,UJ,ERRPRI 017761 : C......... KOHTPOЛЬ KOMAHДЫ / KЧ MOЗY 017762 : KOHTP:,XTA,CON SC.ПPOБA: KOHTPOЛЬ 017763 : 13,AAX,B REP.HA ПPOBEPKE 017764 : ,U1A,П KOHTP. - ДA 017765 : ,XTA,CON SC.YCTAHOBKA 017766 : 13,AOX,B REP.ПPИЗHAKOB 017767 : ,ATX,CONSC 017768 : ,XTA,SCKK/KЧ 017769 : 13,AOX,B KK/KЧ.ПPOBEPKA , KK/KЧ 017770 : 14,V1M,KOH 1. 017771 : 13,AEX,B KK/KЧ. 017772 : KOH1:,ATX,SCKK/KЧ 017773 : ,XTA,C2003. 017774 : ,ATI,21B. 017775 : 15,VZM,KOHДИC. 017776 : 14,VIM,KOHKOM. 017777 : ,UJ,KOHЧИC. 017778 : C......... ПOИCK ПЛOXOГO ЧИCЛA B ДИCПETЧEPE 017779 : KOHДИC:,BSS,. 017780 : 15,VTM,1-2. 017781 : 14,VTM,100B.ПPOBEPKA 1-Й 017782 : 13,VTM,100B-ENDRES*1.OБЛACTИ 017783 : KOH Д:14,XTA,. 017784 : ,ATI,. 017785 : 14,UTM,1. 017786 : 13,VLM,KOH Д. 017787 : 14,VTM,70000B.ПPOBEPKA 2-Й 017788 : 13,VTM,-7777B.OБЛACTИ 017789 : 15,VLM,KOH Д. 017790 : ,XTA,WSD.MOЗY-Д - O'KEY 017791 : ПOДГ TKЧ:14,VTM,T KЧMOЗY+2 017792 : 12,VJM,OШAДP 017793 : 14,UTM,-2 017794 : 15,VZM,KЧ/TT.ДИCП. KOHTPOЛЬ 017795 : ,XTA,WSD. 017796 : ,AUX,=:00077777 007 017797 : ,AOX,B40.K ПOXOДY HA 017798 : ,UJ,KЧ/CTAT.CTATИCTИKY 017799 : C......... KOHTPOЛЬ KOMAHДЫ 017800 : KOHKOM:,ITA,33B. 017801 : ,ATI,14. 017802 : ,ITA,27B. 017803 : ,AAX,B9. 017804 : ,U1A,KOKO0.AДPECA 017805 : 14,UTM,-1.KOMAHДЫ 017806 : KOKO0:,ITA,27B. 017807 : ,AAX,C14. 017808 : ,U1A,KOKO1. - ФИЗИЧECKИЙ 017809 : ,24,2000B. 017810 : KOKO1:14,XTA,.KOMAHДY 017811 : ,ATI,. 017812 : : ,24,2003B. 017813 : ,ATX,SAVAC.MATEMATИKY 017814 : ,ITA,14.AДPEC K-ДЫ 017815 : ,ATI,33B.MATEMATИKY 017816 : ,XTA,.OШИБKA MATEMATИKA 017817 : 14,VTM,KOHTPKOM. 017818 : ,UJ,KOHAЦПY. 017819 : C......... KOHTPOЛЬ ЧИCЛA - MOЗY 017820 : KOHЧИC:,BSS, 017821 : ,XTA,WSD. 017822 : ,ATI,15. 017823 : ,XTA,Ш/CЛYЖ 017824 : 13,AAX,BITS 017825 : 13,VTM,1-32 017826 : ,U1A,ПPO Л 017827 : ,WTC,ДHЗ. 017828 : ,XTA,NPRTJ-NJ.MAKCИM. 017829 : ,ATX,OLDPRT.ПPИOPИTET 017830 : ,XTA,.ЗAДAЧE 017831 : ,WTC,ДHЗ. 017832 : ,ATX,NPRTJ-NJ.... 017833 : ПPO Л:,24,2003B. 017834 : ,WTC,ГYC. 017835 : 13,XTA,TMATH+31.MAT. ЛИCT 017836 : ,ASN,64+30.ЗAHИMAET 017837 : ,AAX,MNP.ФИЗИЧECKИЙ 017838 : ,UZA,CЛEД Л. - HET 017839 : ,ATI,12. 017840 : 12,XTA,TPHYS. 017841 : ,AAX,EXCH BIT.OH B OБMEHE 017842 : ,U1A,CЛEД Л. - ДA 017843 : 12,XTA,TPHYS.ФИKCAЦИЯ 017844 : ,AOX,FIXBIT.ЭTOГO 017845 : 12,ATX,TPHYS.ЛИCTA 017846 : ,ITA,13. 017847 : ,ARX,C37.ПOЛYЧEHИE 017848 : ,ASN,64-10.MAT. AДPECA 1-ГO 017849 : ,ATI,14.KOHTPOЛ. CЛOBA 017850 : 15,J+M,14. 017851 : :,24,.ЦИKЛ 017852 : 11,VTM,1-128.ПPOBEPKИ 017853 : ПPO KЧ:14,XTA,.OДHOГO 017854 : ,ATI,.MOЗY 017855 : 14,UTM,10B. 017856 : 11,VLM,ПPO KЧ. 017857 : : ,24,2003B.ПPOБЫ: 017858 : ,ITA,14.MOЖHO ЛИ 017859 : ,ASN,64+11.PACФИKCИPOBATЬ 017860 : ,UZA,CЛEД Л. - HET 017861 : 12,UTM,-34B. 017862 : 12,VZM,CЛEД Л. - HET 017863 : 12,XTA,TPHYS+34B..... 017864 : ,AEX,FIXBIT.PACФИKCAЦИЯ 017865 : 12,ATX,TPHYS+34B.... 017866 : CЛEД Л:,24,3.HA 017867 : ,ATI,.ПPOBEPKY 017868 : 13,VLM,ПPO Л.CЛEД. ЛИCTA 017869 : : ,24,2003B. 017870 : ,XTA,Ш/CЛYЖ 017871 : ,WTC, Д H З 017872 : ,AAX,BITS 017873 : ,U1A,HA ПEЧ 017874 : ,XTA,OLDPRT.BOCCTAHOBЛEHИE 017875 : ,WTC,ДHЗ.ПPИOPИTETA 017876 : ,ATX,NPRTJ-NJ.ЗAДAЧИ 017877 : HA ПEЧ:,ITA,15. 017878 : 15,VTM,1 017879 : ,UJ,ПOДГ TKЧ. 017880 : C......... KOHTPOЛЬ ЧИCЛA ПPИ ПPOBEPKE 017881 : П KOHTP:15,VZM,П KOHДИC.ДИCП. KOHTPOЛЬ 017882 : ,XTA,SAVI14. 017883 : ,ATI,33B. 017884 : ,XTA,SCKK/KЧ 017885 : 13,AAX,BITS 017886 : ,U1A,П KOHKOM.KOHTP. K-ДЫ 017887 : C......... HAШЛИ ПЛOXOE ЧИCЛO ПPИ KЧ 017888 : ,ITA,12. 017889 : ,ASN,64-10.ПOЛYЧEHИE 017890 : ,ATX,WSD.ФИЗИЧECKOГO 017891 : ,XTA,SAVI14.AДPECA 017892 : ,AAX,C1777.ЧИCЛA 017893 : ,AOX,WSD.... 017894 : ,UJ,ПOДГ TKЧ. 017895 : C......... KOHTPOЛЬ ПPИ ПPOBEPKE ДИCПETЧEPA 017896 : П KOHДИC:,XTA,SAVI14.ФИЗ. AДPEC 017897 : ,UJ,ПOДГ TKЧ. 017898 : C......... KOHTPOЛЬ ПPИ ПPOBEPKE KK 017899 : П KOHKOM:,ITA,27B.ПPOБA: K-ДA 017900 : ,AAX,B1.C ФИЗ. AДP. 017901 : ,U1A,ПKK2. - ДA 017902 : ,XTA,SAVI14. 017903 : ,ASN,64+10.ПOЛYЧEHИE 017904 : ,ATI,14.ФИЗИЧECKOГO 017905 : ,XTA,SAVI14.AДPECA 017906 : ,AAX,C1777.KOM-ДЫ 017907 : ,ATX,WSD. 017908 : ,WTC,ГYC. 017909 : 14,XTA,TMATH. 017910 : ,ASN,64+20. 017911 : ,AAX,B17/11. 017912 : ,AOX,WSD.... 017913 : ПKK1:14,VTM,T KK+1 017914 : 12,VJM,OШAДP 017915 : 14,UTM,-1 017916 : ,XTA,WSD. 017917 : ,AUX,=:00077777 007 017918 : ,AOX,ИC KK.И ПOXOД HA 017919 : ,UJ,STATIST.CTATИCTИKY 017920 : ИC KK:,Z07,. 017921 : ,Z00,KK/TT. 017922 : KK/TT:,ITA,14. 017923 : 14,CALL,TELOUT.TT-ПEЧATЬ 017924 : 14,VTM,KOHTPKOM. 017925 : ,XTA,B1.HA ПEЧATЬ 017926 : ,UJ,KOHAЦПY.HA AЦПY 017927 : ПKK2:,XTA,SAVI14. 017928 : ,UJ,ПKK1. 017929 : C......... BЫЧИCЛ. AДPECA CБOЯ 017930 : OШAДP:,BSS, 017931 : ,ASN,64-30 017932 : ,ATX,WSD 017933 : ,AUX,UPM1. B KYБE. 017934 : ,AOX,TTE2 017935 : 14,ATX, 017936 : 12,UJ, 017937 : T KЧБPЗ:,ISO,12H'12'KЧ БPЗ-0'12''' 017938 : TTE1:,ISO,6HЗ-0'12''' 017939 : T KOHTP:,ISO,12H'12'ЧИHИ MOЗY'12''' 017940 : T KЧMOЗY:,ISO,12H'12'KЧ MOЗY,A='1' 017941 : ,CONT,6H000000 017942 : ,GOST,6H+00000 017943 : T KK:,ISO,6H'12'KK A= 017944 : ,CONT,6H000000 017945 : ,GOST,6H+00000 017946 : UPM1:,GOST,6H777777 017947 : TTE2:,ISO,6H000000 017948 : FULLBLOK:,OCT,0015 7777 77 017949 : B17/11:,LOG,376000 017950 : OLDPRT:,BSS,1 017951 : SCKK/KЧ:,LOG, 017952 : CONSC :,LOG, 017953 : ,END, 017954 : IC1/2:,NAME,. 017955 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46 017956 : ,CONT,BIT45,BIT44,BIT43,BIT42,BIT41 017957 : ,CONT,BIT40,BIT39,BIT38,BIT37,BIT36 017958 : ,CONT,BIT35,BIT34,BIT33,BIT32,BIT31 017959 : ,CONT,BIT30,BIT29,BIT28,BIT27,BIT26 017960 : ,CONT,BIT25,BIT24,BIT23,BIT22,BIT21 017961 : ,CONT,BIT20,BIT19,BIT18,BIT17,BIT16 017962 : ,CONT,BIT15,BIT14,BIT13,BIT12,BIT11 017963 : ,CONT,BIT10,BIT9, BIT8, BIT7, BIT6 017964 : ,CONT,BIT5, BIT4, BIT3, BIT2, BIT1 017965 : OШM/T:,EQU,BIT36 017966 : KO/T:,EQU,BIT27 017967 : BITTRA:,EQU,BIT27. 017968 : O Ш M:,EQU,BIT8. 017969 : *YCЫ:LC,BLOCK,(1),RDSCAL,COMMIR 017970 : NEWTA:,SUBP,. 017971 : RETURN:,SUBP,. 017972 : TRAINT:,SUBP, 017973 : BUFTRA:LC,BLOCK,(1),IFTRA(36) 017974 : IFS33:,EQU,3. 017975 : TRABUS:,LC,1. 017976 : FREESEM:LC,BLOCK,(1),MSELECT 017977 : COPYTR1 :,LC,1 017978 : NFRITR:,LC,1 017979 : TABDRU:,LC,1 017980 : FULWOR:,LC,1 017981 : TDR27 :,EQU,TABDRU+27B 017982 : B16/1 :,LC,1 017983 : DISINT:,SUBP, 017984 : SCDICH:,SUBP, 017985 : CLOMIR:,SUBP, 017986 : *ПДИCK:,SUBP, 017987 : TYPEMT:,SUBP, 017988 : REWINDSC:LC,BLOCK,(3),BOSS(4) 017989 : TRAMASK:LC,BLOCK,(1),FINZON 017990 : TIMERS:LC,BLOCK,TMБ(2),TMД(2),TMЛ(4) 017991 : C377:,LC,1 017992 : C7 :,LC,1 017993 : BC1700 :,SUBP, 017994 : TTPRINT :,SUBP, 017995 : STATUSMT:LC,BLOCK,(5),NEW(10),ДBECA(4) 017996 : TASKSTRA:LC,BLOCK,TBUC(12),SCMOV(6) 017997 : TABLE MT:LC,BLOCK,(16),T1MT(32),(16),T2MT 017998 : C 017999 : C***** KOHEЦ OБMEHA C MБ 018000 : ,EXT,4035B. 018001 : 14,APX,OШM 018002 : ,AUX,OШM/T 018003 : ,ATX,SCAL 018004 : ,UJ,DRUM 018005 : KO MБ :14,XTA,BIT23.ИMИTAЦИЯ 018006 : ,EXT,31B.ПPEP.B ГPП 018007 : ,XTA,KO/T 018008 : ,ATX,SCAL 018009 : DRUM:,BSS, 018010 : ,XTA,.CБPOC TAЙMEPA 018011 : 14,ATX,TMБ-1 018012 : 14,XTA,BIT47 018013 : ,CALL,CLOMIR 018014 : 14,XTA,TBUC-1 018015 : ,AAX,CLM 018016 : ,AOX,SCAL 018017 : 14,ATX,TBUC-1 018018 : 14,XTA,BITS.ЗAПYCK 018019 : 15,VJM,GIVTRA.ЗAД.OБMEHA 018020 : AFGVTR:,ENTRY, 018021 : C*** BXOД ДЛЯ ДИCKOBOГO ДPAЙBEPA 018022 : AFGVTR:,U1A,RETURN.YЖE ECTЬ 018023 : ,UJ,NEWTA 018024 : IC3/6:,ENTRY, 018025 : C 018026 : C***** ПPEPЫBAHИE : ПPOXOД ЗOHЫ MЛ 018027 : C 018028 : IC3/6:,BSS, 018029 : 15,VTM,AFGVTR 018030 : 14,XTA,BOSS-3 018031 : ,ATI,13 018032 : ,ARX, 018033 : ,UZA,ПEPEXBAT 018034 : ,XTA,*ПДИCK 018035 : 14,AAX,BITS 018036 : ,ASN,64+10.ПPOГP.ДYБЛЬ 018037 : ,AOX,FINZON.БИTOB ПPOXOДA 018038 : ,ATX,FINZON.ЗOHЫ B ГPП. 018039 : C 018040 : C... BXOД B TRAM70 ПO ЛEHTAM : 018041 : C OБPAЩEHИE ПO И15 018042 : C HA И14 Д.Б. HOMEP KBY-HAПPABЛEHИЯ 018043 : C 018044 : TRA TAPE:,ENTRY, 018045 : TRA TAPE:,24,2003B 018046 : 14,XTA,TYPEMT-3 018047 : ,ASN,64+18 018048 : ,ATX,SCAL 018049 : ,WTC,SCAL.COПPЯЖEHHOE 018050 : ,XTA,BIT47.HAПPABЛEHИE 018051 : 14,AOX,BIT47. И CBOE 018052 : ,ATX,SCAL.B TRABUS 018053 : ,ASN,64+8 018054 : ,AEX,FULWOR.И ИЗ 018055 : ,AAX,COMMIR.MACKИ 018056 : ,ATX,COMMIR.ГPП 018057 : ,MOD,36B 018058 : ,XTA,SCAL 018059 : GIVTRA:,ENTRY, 018060 : GIVTRA:,BSS, 018061 : C****** ПOДПPOГPAMMA ЗAПYCKA TRAM70. 018062 : C CYMMATOP - БИT ДЛЯ TRABUS. 018063 : C И15 - BOЗBPAT. 018064 : C HA BЫXOДE CYMMATOP = 0, ECЛИ 018065 : C ЗAДAЧA OБMEHA HE БЫЛA YЖE 018066 : C PAHEE ЗAПYЩEHA. 018067 : C 018068 : ,ATX,SCAL 018069 : ,XTA,TRABUS 018070 : ,UZA,FREETRA 018071 : ,AOX,SCAL 018072 : ,ATX,TRABUS 018073 : 15,UJ, 018074 : FREETRA:,XTA,SCAL 018075 : ,ATX,TRABUS 018076 : C..... ЗAДAЧA OБMEHA - CBOБOДHA 018077 : ,XTA,ENTRA 018078 : ,ATX,IFTRA+IFS33. 018079 : ,XTA,RDSCAL. 018080 : ,AOX,BITTRA. 018081 : ,ATX,RDSCAL. 018082 : ,ATX,MSELECT.ДЛЯ RETURN 018083 : ,XTA, 018084 : 15,UJ, 018085 : ПEPEXBAT:14,XTA,BIT39.ГAШEHИE ГPM 018086 : ,UJ,CLOMIR.И YXOД ПO AДPECY 018087 : ПPOB MБ:,ENTRY,. 018088 : C 018089 : C***** PEAKЦИЯ HA T.P. 1 018090 : C 018091 : ,XTA,1 018092 : ,AEX,COPYTR1 018093 : ,AAX,B16/1 018094 : ,UZA,NODIV1 018095 : ,ATX,SCAL 018096 : 15,VTM,1-16 018097 : C-- 018098 : CHDIVTR:15,AAX,BIT1 018099 : ,UZA,NODIVTR 018100 : ,AAX,1 018101 : ,UZA,OPEND 018102 : C-- MБ ЗAKPЫЛИ HA T.P.1 018103 : CLOSED:,BSS, 018104 : 15,UTM,TDR27 018105 : 15,XTA,-10B 018106 : ,AAX,=7777 7777 7760 0000 018107 : 15,ATX,-10B 018108 : ,ACX, 018109 : ,ATI,14 018110 : ,WTC,NFRITR 018111 : 14,UTM,-40B 018112 : ,ITA,14 018113 : ,UJ,CORNFR 018114 : C-- MБ OTKPЫЛИ HA T.P.1 018115 : OPEND:15,UTM,27B 018116 : ,ITA,15 018117 : 15,UTM,TABDRU 018118 : 15,AOX,-10B 018119 : 15,ATX,-10B 018120 : ,AEX,FULWOR 018121 : ,ASN,64+16 018122 : ,ACX,NFRITR 018123 : CORNFR:,ATX,NFRITR 018124 : 15,UTM,-TDR27 018125 : C-- 018126 : NODIVTR:,XTA,SCAL 018127 : 15,VLM,CHDIVTR 018128 : C-- 018129 : NODIV1:,XTA,1 018130 : ,AAX,B16/1 018131 : ,ATX,COPYTR1 018132 : C 018133 : C***** TAЙMEP : KOHEЦ OБMEHA C MБ,MД,MЛ 018134 : C 018135 : 14,VTM,-7 018136 : COUNT:14,XTA,TMБ+7 018137 : ,UZA,ECOUNT 018138 : ,ARX,B16/1 018139 : ,AAX,B16/1 018140 : 14,UZA,EN TIM +7 018141 : 14,ATX,TMБ+7 018142 : ECOUNT:14,VLM,COUNT 018143 : 13,UJ, 018144 : C 018145 : C...... ДOПYCTИMOE BPEMЯ OБMEHA 018146 : C ИCTEKЛO 018147 : C 018148 : EN TIM:,UTC,1-2 018149 : :14,VTM,2 018150 : ,UJ,KO MБ 018151 : :,UTC,3-4 018152 : :15,VTM,4 018153 : ,UJ,KO MД 018154 : :,UTC,3-4 018155 : :,UTC,4-5 018156 : :,UTC,5-6 018157 : KO MЛ:14,VTM,6 018158 : 14,XTA,BOSS-3 018159 : 13,U1A, 018160 : 14,XTA,ДBECA-3 018161 : 14,AOX,SCMOV-1 018162 : ,AAX,C377 018163 : 13,UZA, 018164 : ,ANX,C7 018165 : ,AAX,C7 018166 : ,ATI,13 018167 : ,AEX,C7 018168 : 14,ARX,BC1700 018169 : ,ATI,15 018170 : ,XTA,BIT12."KДB" 018171 : 15,AOX,T1MT-30B 018172 : 15,ATX,T1MT-30B 018173 : ,XTA,BIT36."MГЗ" 018174 : 15,AOX,T2MT-30B 018175 : 15,ATX,T2MT-30B 018176 : 14,XTA,NEW-3.ПPИ HEГOTOBHOCTИ 018177 : 13,AAX,BIT16.ИMИTИPYEM 018178 : ,U1A,IC3/6.ПPEPЫBAHИE 018179 : ,XTA,BIT13.ECЛИ MФГOT - ДAEM 018180 : 15,EXT,50B.ПPOГPAMMHЫЙ 018181 : ,UJ,RETURN.CБPOC CДB 018182 : KO MД:,BSS, 018183 : ,ITA,15 018184 : ,AOX,=6H.KMД-0 018185 : 14,VTM,DTEX 018186 : 14,ATX,1 018187 : ,ITA,14 018188 : 14,CALL,TTPRINT 018189 : 15,MTJ,14 018190 : ,UJ,DISINT 018191 : DTEX:,ISO,12HHET ПP.KMД-3 018192 : ENTRA:,, 018193 : ,Z00,TRAINT 018194 : CLM:,LOG,7777 3773 7777 7777 018195 : SCAL:,BSS,1 018196 : ,END,. 018197 : STARTJOB:,NAME,. 018198 : C 018199 : C===== ЗAПYCK PAЗHOOБPAЗHЫX MAT.ЗAДA4 018200 : C 018201 : 'PEДAKЦИЯ OT 30.10.74' - (ЛИMИT БYMAГИ) 018202 : 'PEДAKЦИЯ K 01.08.74' 018203 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 018204 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 018205 : *ИПД:LC,BLOCK,XNF,XNFM(3),XNW 018206 : ,CONT,XNC,XNCM(2),Ш/CЛYЖ 018207 : ,CONT,Ш/FULL 018208 : SCALES:LC,BLOCK,PRTMASK 018209 : NF:,WEQ,XNF 018210 : NFM:,WEQ,XNFM 018211 : NW:,WEQ,XNW 018212 : NC:,WEQ,XNC 018213 : NCM:,WEQ,XNCM 018214 : NCЛY:,EQU,NC-NCM 018215 : NLMJ:,EQU,NW-1 018216 : Ш/ПOTOK:,EQU,XNF+12B 018217 : *INCOGNI:,EQU,XNF+16B 018218 : Ш/ДИCП:,EQU,XNF+23B 018219 : ИHДДHЗ:,EQU,XNF+40B 018220 : STARTCW:,EQU,XNF+45B 018221 : SC/DEBUG:,EQU,XNF+71B 018222 : *TYPELP:LC,BLOCK,(4),STLIM 018223 : LIMITLP:,EQU,116B 018224 : C1777:,LC,1 018225 : C77777:,LC,1 018226 : B16/1:,LC,1 018227 : *ИПK:LC,BLOCK,*INFBA 018228 : INFEX:,EQU,*INFBA+NCM 018229 : AДP/ИПЗ:,EQU,INFEX+NCM 018230 : *ИПK1:LC,BLOCK, 018231 : MONO:,EQU,*ИПK1+NC 018232 : PRTSTAT:,EQU,*ИПK1 018233 : SELECT:,SUBP,. 018234 : NEWTA:,SUBP,. 018235 : TELOUT:,SUBP,. 018236 : RETURN:,SUBP,. 018237 : NEWTA*:,SUBP, 018238 : C77:,LC,1 018239 : ШЛAГБAYM:LC,BLOCK,(6),SCAL73 018240 : DISPBASE:LC,BLOCK,(1),DISMBASE. 018241 : NSTAJOB:LC,BLOCK,NSTJ 018242 : FLMAMБ:,LC,1 018243 : MШ:,LC,1 018244 : C13:,LC,1. 018245 : C3:,LC,1 018246 : I:,EQU,15. 018247 : J:,EQU,14. 018248 : K:,EQU,13. 018249 : M:,EQU,100B. 018250 : REGSCAL:,EQU,M. 018251 : B30/16:LC,BLOCK,MSHIFR. 018252 : TMATH:,EQU,30B. 018253 : TDEFENC:,EQU,40B. 018254 : MAXTIME:,EQU,111B. 018255 : C5:,LC,1 018256 : *677:B,BLOCK,BITS,(43),BIT5,BIT4,BIT3,BIT2,BIT1 018257 : DEB/JOBS:,EQU,564B.ШK.PAБOT OTЛAДЧИKA /ИПЗ/ 018258 : SAVESUBP:,EQU,645B.YTOЧHEHИE ИДEHTИФИKATOPA 018259 : BIT44:,EQU,704B 018260 : BIT21:,EQU,733B 018261 : BIT16:,EQU,740B 018262 : BIT11:,EQU,745B 018263 : BIT7:,EQU,751B 018264 : OWNBIT:,EQU,700B. 018265 : *710:B,BLOCK,ЧTEHИE. 018266 : PUTTMP:,SUBP, 018267 : NRESCALL:,SUBP,. 018268 : SIGNSAVE:,LC,1.ПPИЗHAK ЗAKAЗA HA BOCCTAHOBЛEHИE 018269 : TARES:,SUBP,.ЗAДAЧA BOCCTAHOBЛEHИЯ 018270 : HAЧБAPBO:,P/P,(TARES)(2000B) 018271 : *NRPTAR:,P*P,(HAЧБAPBO)(2000B) 018272 : HAЧBOCCT:,EQU,TARES-*NRPTAR 018273 : NR/START:,SUBP, 018274 : CLMTSP:,SUBP,.ЧИCTKA ДЛЯ MT 018275 : STATIST:,SUBP,. 018276 : *TLBUFOP:LC,BLOCK,(11),SCOP 018277 : *112:B,BLOCK,A1,PULT,PASS,A2 018278 : БПYCK:,EQU,=:0000 6.БEЗYCЛOBHO ПYCKATЬ 018279 : C***** 018280 : J,VTM,NLMJ-1 018281 : ,XTA,BITS+1.B48 018282 : ,WTC,NSTAJOB 018283 : ,ASN,64-1 018284 : ,AAX,БПYCK 018285 : ,U1A,MHOГOMБ 018286 : ,XTA,FLMAMБ 018287 : ,U1A,ЗAHЯTA 018288 : MHOГOMБ:,BSS, 018289 : ,XTA,NSTAJOB 018290 : ,ATI,K 018291 : ,UZA,L0. 018292 : ,ARX,. 018293 : ,UZA,L0. 018294 : C ПЛAHИPOBЩИK И MYЛЬTИTAЙП ПPИ ЗAПYCKE ЗAДAЧ 018295 : C ДOЛЖHЫ ЗAДABATЬ NSTAJOB=BIT47 , 018296 : C ПPИ ЭTOM ЗAДAЧИ HE БYДYT 'TEPЯTЬCЯ' 018297 : C STARTJOB'OM ИЗ-ЗA ЗAHЯTOCTИ SCAL73 . 018298 : ,AEX,BITS+2.BIT47 018299 : ,UZA,NO73.OT MT ИЛИ ПOTOK 018300 : I,VTM,1-NCЛY 018301 : J,VTM,NFM-1.ПOCЛEДHЯЯ CЛYЖEБHAЯ 018302 : ,UJ,L1. 018303 : L0:,BSS,. 018304 : ,XTA,SCAL73 018305 : ,UZA,NO73 018306 : ,AAX,C77 018307 : ,ATI,13 018308 : 13,XTA,BITS 018309 : ,UJ,NEWTA* 018310 : NO73:,BSS, 018311 : ,XTA,MШ 018312 : ,U1A,L1 018313 : ,XTA,Ш/ПOTOK 018314 : ,ASN,64+2.БEЗ Ш1 018315 : ,UZA,ЗAHЯTA 018316 : ,ACX, 018317 : ,NTR,3 018318 : ,X-A,BIT1 018319 : ,ATI,I 018320 : ,XTA,SIGNSAVE 018321 : ,UZA,L1 018322 : K,VTM,76000B.ROLLOUT 018323 : ,ITA,K 018324 : ,ATX,NSTJ 018325 : ,XTA, 018326 : ,ATX,SIGNSAVE 018327 : I,UTM,-1 018328 : J,UTM,1 018329 : L1:,BSS, 018330 : ,XTA,MШ 018331 : ,UZA,L1C 018332 : ,ATI,J 018333 : I,VTM, 018334 : ,XTA, 018335 : ,ATX,MШ 018336 : L1C:,BSS, 018337 : J,XTA,*YCЫ 018338 : ,UZA,ЗAHЯTA. 018339 : ,AAX,MSHIFR. 018340 : ,UZA,INITJOB. 018341 : J,UTM,-1. 018342 : I,VLM,L1C. 018343 : ЗAHЯTA:,BSS,. 018344 : 14,VTM,RETURN 018345 : K,UTM,-5 018346 : K,VZM,CLMTSP.MULTITYP 018347 : ,XTA, 018348 : ,ATX,NSTAJOB 018349 : ,ATX,SIGNSAVE 018350 : ,XTA,MШ 018351 : ,UZA,TELLBUZ 018352 : ,ATI,I 018353 : ,XTA, 018354 : TELLBUZ:,ATX,MШ 018355 : I,VTM,DRESURS 018356 : ,ITA,I 018357 : ,UJ,TELOUT 018358 : C-------------- 018359 : INITJOB:,NTR,3 018360 : ,XTA,PRTMASK 018361 : ,AOX,Ш/ДИCП 018362 : J,AOX,BITS 018363 : ,ATX,PRTMASK 018364 : ,ITA,J 018365 : ,X-A,XNW 018366 : ,ASN,64-15 018367 : J,AOX,*YCЫ 018368 : J,ATX,*YCЫ 018369 : ,ATI,I 018370 : J,XTA,BITS 018371 : ,AOX,STARTCW 018372 : ,ATX,STARTCW. 018373 : ,XTA,NSTJ 018374 : ,APX,=40000000 00077777 018375 : ,ASN,64+32 018376 : J,AEX,MONO-NF 018377 : ,AAX,B16/1 018378 : J,AEX,MONO-NF 018379 : J,ATX,MONO-NF 018380 : ,XTA,RDSCAL 018381 : J,AOX,BITS 018382 : ,ATX,RDSCAL 018383 : ,XTA, 018384 : ,ATX,NSTJ 018385 : C... ДЛЯ MAT.ЗAДAЧ ИПЗ ГOTOBИT ПOДKAЧKA 018386 : K,VTM,-127 018387 : I,VIM,ZSIF 018388 : J,ATX,AДP/ИПЗ-NFM.ЧИCTKA 018389 : ,UJ,NEWTA.AДPECA ИПЗ 018390 : ZSIF:I,UTC,-3 018391 : K,ATX,127 018392 : K,VLM,*-1 018393 : C... B ИПЗ CЛYЖEБHOЙ ЗAДAЧE : 018394 : ,XTA,SCOP 018395 : ,AAX,C77777 018396 : I,ATX,PASS.TEPMИHAЛA 018397 : K,VTM,START. 018398 : ,ITA,K. 018399 : I,ATX,3. 018400 : ,XTA,C13. 018401 : I,ATX,5 018402 : ,UJ,NEWTA 018403 : C----- PAБOTA OT ИMEHИ ЗAДAЧИ 018404 : START:,ENTRY, 018405 : START:,BSS, 018406 : ,XTA,INF 018407 : ,UJ,NRESCALL 018408 : INF:,Z00,NR/START 018409 : ,Z00,13 018410 : DRESURS:,BSS,. 018411 : ,ISO,12HA Я ЗAHЯTA'''' 018412 : ,END, 018413 : ПYCKAЧ:,NAME, 018414 : C 018415 : C===== HEPEЗИДEHT STARTJOB-A 018416 : C 018417 : 'PEДAKЦИЯ OT 30.10.74' - (ЛИMИT БYMAГИ) 018418 : 'PEДAKЦИЯ K 01.08.74' 018419 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 018420 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 018421 : *ИПД:LC,BLOCK,XNF,XNFM(3),XNW 018422 : ,CONT,XNC,XNCM(2),Ш/CЛYЖ 018423 : ,CONT,Ш/FULL 018424 : SCALES:LC,BLOCK,PRTMASK,MRDSCAL 018425 : NF:,WEQ,XNF 018426 : NFM:,WEQ,XNFM 018427 : NW:,WEQ,XNW 018428 : NC:,WEQ,XNC 018429 : NCM:,WEQ,XNCM 018430 : NCЛY:,EQU,NC-NCM 018431 : NLMJ:,EQU,NW-1 018432 : Ш/ПOTOK:,EQU,XNF+12B 018433 : *INCOGNI:,EQU,XNF+16B 018434 : Ш/ДИCП:,EQU,XNF+23B 018435 : XLSMB:,EQU,XNF+26B 018436 : LISTFLAG:,EQU,XNF+35B 018437 : C/BUF:,EQU,XNF+37B 018438 : ИHДДHЗ:,EQU,XNF+40B 018439 : STARTCW:,EQU,XNF+45B 018440 : EXT SC:,EQU,XNF+63B 018441 : SC/DEBUG:,EQU,XNF+71B 018442 : *TYPELP:LC,BLOCK,(4),STLIM 018443 : LIMITLP:,EQU,116B 018444 : C77777:,LC,1 018445 : B16/1:,LC,1 018446 : *ИПK:LC,BLOCK,*INFBA 018447 : INFEX:,EQU,*INFBA+NCM 018448 : *ИПK1:LC,BLOCK,PRTSTAT 018449 : MONO:,EQU,*ИПK1+NC 018450 : SELECT:,SUBP,. 018451 : NEWTA:,SUBP,. 018452 : TELOUT:,SUBP,. 018453 : RETURN:,SUBP,. 018454 : NEWTA*:,SUBP, 018455 : SMASAV:LC,BLOCK,SAVAC,SAVSR(5) 018456 : YДABЛEHЫ:,LC,1 018457 : FULWOR :,LC,1 018458 : C77:,LC,1 018459 : ШЛAГБAYM:LC,BLOCK,(6),SCAL73 018460 : DISPBASE:LC,BLOCK,(1),DISMBASE(5),NUMEVM 018461 : NSTAJOB:LC,BLOCK,NSTJ 018462 : FLMAMБ:,LC,1 018463 : PLAN/IS:,LC,1. 018464 : WHO/USER:,SUBP, 018465 : AEROPLAN:,SUBP, 018466 : ПPOOБMEH:,SUBP,. 018467 : OCTOPOЖH:,SUBP,. 018468 : MULTITYP:,SUBP,. 018469 : PAЗHИЦA:,SUBP,. 018470 : POГATKA:,SUBP, 018471 : CЛYГA:,SUBP, 018472 : DISPINIT:,SUBP, 018473 : PUT PULT:,SUBP, 018474 : SPECMON:,SUBP,. 018475 : NOSPMON:,EQU,17B 018476 : MШ:,LC,1 018477 : C13:,LC,1. 018478 : I:,EQU,15. 018479 : J:,EQU,14. 018480 : K:,EQU,13. 018481 : M:,EQU,100B. 018482 : REGSCAL:,EQU,M. 018483 : B30/16:LC,BLOCK,MSHIFR. 018484 : TMATH:,EQU,30B. 018485 : TDEFENC:,EQU,40B. 018486 : MAXTIME:,EQU,111B. 018487 : SYSMD:,EQU,115B 018488 : IDENT:,EQU,137B.Y ЗAПYCKAЮЩEГO 018489 : TABLEMT:LC,BLOCK,(48),T2MT(48),TNAMT 018490 : C5:,LC,1 018491 : *677:B,BLOCK,BITS,(43),BIT5,BIT4,(3) 018492 : DEB/JOBS:,EQU,564B.ШK.PAБOT OTЛAДЧИKA /ИПЗ/ 018493 : SAVESUBP:,EQU,645B.YTOЧHEHИE ИДEHTИФИKATOPA 018494 : C ЯЧEЙKИ TИПA P 018495 : ИП PEД:,EQU,1000B 018496 : *12:B,BLOCK,M/EXT,(4),LB,CNT(2),BT 018497 : *31:B,BLOCK,TE,EBUF(2),LBUF 018498 : BIT44:,EQU,704B 018499 : BIT8 :,EQU,750B 018500 : BIT21:,EQU,733B 018501 : BIT16:,EQU,740B 018502 : BIT7:,EQU,751B 018503 : BIT1:,EQU,757B 018504 : OWNBIT:,EQU,700B. 018505 : *710:B,BLOCK,ЧTEHИE. 018506 : PUTTMP:,SUBP, 018507 : NR/START:,SUBP, 018508 : NRESOFF :,SUBP, 018509 : NRESCALL:,SUBP,. 018510 : SIGNSAVE:,LC,1.ПPИЗHAK ЗAKAЗA HA BOCCTAHOBЛEHИE 018511 : TARES:,SUBP,.ЗAДAЧA BOCCTAHOBЛEHИЯ 018512 : HAЧБAPBO:,P/P,(TARES)(2000B) 018513 : *NRPTAR:,P*P,(HAЧБAPBO)(2000B) 018514 : HAЧBOCCT:,EQU,TARES-*NRPTAR 018515 : CLMTSP:,SUBP,.ЧИCTKA ДЛЯ MT 018516 : STATIST:,SUBP,. 018517 : C***** 018518 : ***:K,REL,*** 018519 : C***** 018520 : : ,24,3 018521 : ,WTC, Г Y C 018522 : I,VTM, 018523 : ,XTA,=R300 000. 018524 : I,ATX,MAXTIME 018525 : ,XTA,STLIM 018526 : I,ATX,LIMITLP 018527 : J,VTM,-15 018528 : SMS:J,XTA,TNAMT+15 018529 : ,AEX,MONSYS 018530 : ,UZA,SYSMOD 018531 : J,VLM,SMS 018532 : ,UJ,NOSYSDIS 018533 : C 018534 : C... ФOPMИPOBAHИE SYSMD - ЯЧEЙKИ B ИПЗ 018535 : C ЗAПYCKAEMOЙ ЗAДAЧИ. PAЗPЯДЫ : 018536 : C 39:38 - MБ 21:22 ПEPEAДPECYЮTCЯ HA MД 018537 : C 27:13 - HOMEP ФAЙЛA ПO TAБЛИЦE ФAЙЛOB 018538 : C 12:1 - HOMEP HAЧAЛЬHOЙ ЗOHЫ MБ 21 018539 : C 018540 : SYSMOD:,XTA,2 018541 : ,AAX,=:003 018542 : ,ASN,64+2 018543 : I,ATX,SYSMD 018544 : J,XTA,T2MT+15 018545 : ,AAX,C77777 018546 : ,ASN,64-12 018547 : I,AOX,SYSMD 018548 : I,ATX,SYSMD 018549 : NOSYSDIS:,BSS, 018550 : ,XTA,OWNBIT. 018551 : I,ATX,TMATH 018552 : I,ATX,TMATH+1 018553 : J,VTM,-7 018554 : C.. ЗAKAЗ 8 ФOPMAЛЬHЫX ЛИCTOB 018555 : ZFL:I,UTC,TMATH+40B 018556 : J,ATX,7 018557 : J,VLM,ZFL 018558 : : ,24,2003B 018559 : ,XTA,ДHЗ 018560 : ,ATI,J 018561 : ,XTA,Ш/CЛYЖ 018562 : ,AAX,BITJ 018563 : ,U1A,CЛYЖ 018564 : ,XTA,NUMEVM 018565 : ,AAX,=:6 018566 : ,ASN,64+1 018567 : J,AOX,*INFBA-NFM 018568 : J,ATX,*INFBA-NFM 018569 : ,AAX,=7700 0000 018570 : :,U1A,*+1 018571 : ,XTA,BIT21 018572 : :J,AOX,*INFBA-NFM 018573 : J,ATX,*INFBA-NFM 018574 : ,XTA,C/BUF 018575 : ,AEX,LISTFLAG 018576 : ,AAX,BITJ 018577 : ,AEX,LISTFLAG 018578 : ,ATX,LISTFLAG 018579 : C 018580 : C ФOPMИPYEM HAЧ.COCTOЯHИE ИПЗ PEДAKTИPOBAHИЯ 018581 : C 018582 : 1,VTM,10-1023 018583 : ,ITA,1 018584 : I,MTJ,1 018585 : 1,UTM,ИП PEД 018586 : 1,ATX,CNT 018587 : ,XTA,XLSMB.ДЛЯ ЗAПИCИ: 018588 : 1,ATX,LB.ДЛИHA CBOБ.MECTA 018589 : ,AEX,C77777 018590 : ,ARX,BIT1 018591 : 1,ATX,LBUF.ЦИKЛ M.БYФEPA 018592 : 1,UTM,140B 018593 : ,ITA,1.ДЛЯ CБPOCA: 018594 : 1,ATX,BT-140B.HAЧAЛO ДAHHЫX B M.БYФ 018595 : 1,ATX,TE-140B.KOHEЦ ДAHHЫX 018596 : 1,ARX,LB-140B 018597 : 1,ATX,EBUF-140B.KOHEЦ M.БYФ 018598 : ,XTA,=:12.ПPИЗHAK ГЛOБAЛЬHOCTИ 018599 : I,ATX,SAVESUBP.ДЛЯ OTЛAДЧИKA 018600 : ,XTA,Ш/ПOTOK 018601 : ,APX,BITJ 018602 : ,ASN,64+23 018603 : ,AOX,CTCT 018604 : ,ATX,WS1 018605 : ,ITA,K 018606 : ,ARX,WS1 018607 : ,UJ,STATIST 018608 : CTCT:0,, 018609 : ,Z05,CЛYЖ-*** 018610 : CЛYЖ:,BSS, 018611 : J,WTC,MONO-NF 018612 : 1,VTM,-5 018613 : ,XTA,C77 018614 : J,AAX,PRTSTAT-NF 018615 : J,ATX,PRTSTAT-NF 018616 : 1,VZM,MTSTART 018617 : ,XTA,ZBITJ 018618 : ,AAX,PRTMASK 018619 : ,ATX,PRTMASK 018620 : MTSTART:,24,3 018621 : J,XTA,MONO-NF 018622 : ,AAX,BIT16 018623 : ,UZA,БEЗПACП 018624 : ,XTA,OWND 018625 : J,VTM,-3. 018626 : :I,UTC,. 018627 : J,ATX,TDEFENC+3. 018628 : J,VLM,*-1. 018629 : : ,24,2003B. 018630 : ,XTA,ZBITJ 018631 : ,AAX,STARTCW 018632 : ,ATX,STARTCW 018633 : ,XTA,BIT4 018634 : ,AOX,BIT44.ПPOTЯЖKИ B HAЧ.ЛИCTA 018635 : I,ATX,REGSCAL. 018636 : ,XTA,INF73 018637 : ,UJ,NRESOFF 018638 : INF73:,Z00,NR/START 018639 : ,Z00,573B 018640 : БEЗПACП:,BSS,. 018641 : ,XTA,OWNBIT. 018642 : J,VTM,-35B 018643 : :I,UTC,. 018644 : J,ATX,TMATH+35B 018645 : J,VLM,*-1. 018646 : I,ATX,TMATH+37B.OБM.ЛИCT=37 018647 : ,XTA,OWNDEF. 018648 : J,VTM,-3. 018649 : :I,UTC,. 018650 : J,ATX,TDEFENC+3. 018651 : J,VLM,*-1. 018652 : ,XTA,Ш/CЛYЖ 018653 : ,APX,BITJ 018654 : ,AUX,BIT16 018655 : ,AOX,=7300 0000 0000 0010 018656 : I,ATX,REGSCAL. 018657 : ,XTA,BIT5 018658 : I,ATX,M+1. 018659 : K,MTJ,6 018660 : 14,VJM,PUTTMP. 018661 : : ,24,3 018662 : 6,MTJ,K 018663 : 1,UTM,5-10B 018664 : 1,VIM,NO PLAN 018665 : ,XTA,ДHЗ 018666 : ,ATX,PLAN/IS 018667 : NO PLAN:1,UTM,10B-76000B.ROLLOUT 018668 : 1,VZM,TOTARES 018669 : 1,UTM,76000B 018670 : 1,V1M,TONSJOB 018671 : ,XTA,INFMON. 018672 : 3,VTM,100B 018673 : TOJOB1:,BSS,. 018674 : 15,VTM,-11 018675 : 14,VTM,2013B 018676 : 14,MTJ,27B 018677 : ,DRUM,.CYMMATOPHЫЙ Э70 018678 : : ,24,2003B. 018679 : ,ITA,K 018680 : ,ARX,REFUS 018681 : ,UJ,NRESOFF 018682 : REFUS:,Z00,NR/START 018683 : ,Z00,ZERO-*** 018684 : ZERO:,BSS, 018685 : 3,MTJ,33B 018686 : ,XTA, 018687 : RZER:15,ATI,12 018688 : 15,VLM,RZER 018689 : 14,VTM,-5 018690 : CLS:14,ATX,SAVAC+5 018691 : 14,VLM,CLS 018692 : ,ATI,27B 018693 : C 018694 : C... A ЧTO, ECЛИ ГACИTЬ ЭTO ПOCЛE INPUTCAL ?? 018695 : C 018696 : ,XTA,ZBITJ 018697 : ,AAX,STARTCW 018698 : ,ATX,STARTCW 018699 : ,WTC,ДHЗ 018700 : ,XTA,MONO-NF 018701 : ,ATI,3.ДЛЯ ЗAДAЧИ 018702 : ,ASN,64+16 018703 : ,ATI,14.KTO ЗAПYCTИЛ 018704 : ,NTR,7 018705 : ,RTE,7777B 018706 : ,ATX,SAVSR 018707 : ,XTA,YДABЛEHЫ 018708 : ,AAX,BITJ 018709 : ,AEX,FULWOR 018710 : ,AAX,MRDSCAL 018711 : 14,AOX,BITS 018712 : ,ATX,MRDSCAL 018713 : ,XTA, 018714 : ,WTC,ДHЗ 018715 : ,ATX,MONO-NF 018716 : 14,VZM,NEWTA 018717 : 14,WTC,*YCЫ 018718 : ,XTA,IDENT 018719 : ,WTC,ГYC 018720 : ,ATX,80.NAME ЗAДAЧИ 018721 : ,UJ,NEWTA 018722 : TONSJOB:,BSS,. 018723 : ,NTR,3 018724 : ,ITA,1 018725 : 3,VTM,SPECMON 018726 : ,ASN,64+4.>17 018727 : ,U1A,NO NAME 018728 : 1,XTA,BITS 018729 : ,APX,SCJOBS 018730 : ,UZA,NO NAME. - B БCЗ ! 018731 : ,ANX, 018732 : ,ATI,3 018733 : 3,XTA,TABLJOBS-1 018734 : ,ATI,3 018735 : ,ASN,64+24 018736 : ,ATI,4 018737 : 4,VZM,NONAME 018738 : K,J+M,4 018739 : ,WTC,ГYC 018740 : 2,VTM, 018741 : 4,XTA, 018742 : 2,ATX,80 018743 : 4,XTA,1 018744 : 2,ATX,81 018745 : NONAME:,ITA,3 018746 : ,ASN,64+10. 018747 : ,ATX,WS1. 018748 : ,ASN,64-30. 018749 : ,AOX,WS1. 018750 : ,ARX,DISMBASE. 018751 : ,AOX,ЧTEHИE. 018752 : ,UJ,TOJOB1. 018753 : TOTARES:,BSS, 018754 : C..... ЗAПYCK BOCCTAHOBЛEHИЯ ЗAДA4И 018755 : ,XTA,INFFORRE 018756 : ,ARX,DISMBASE 018757 : 3,VTM,HAЧBOCCT 018758 : ,UJ,TOJOB1 018759 : INFFORRE:,BSS, 018760 : ,Z01, 018761 : ,Z00,HAЧБAPBO 018762 : TABLJOBS:,BSS,. 018763 : C--------- 018764 : :,, 018765 : ,Z00,WHO/USER 018766 : :,Z00,PERNAM-*** 018767 : ,Z00,ПPOOБMEH. 018768 : :,Z00,PERNAM-*** 018769 : ,Z00,OCTOPOЖH. 018770 : :,Z00,MLTNAM-*** 018771 : ,Z00,MULTITYP. 018772 : :,,. 018773 : ,Z00,PAЗHИЦA. 018774 : :,Z00, 018775 : ,Z00,POГATKA.7 018776 : :,Z00,PL/NAME-*** 018777 : ,Z00,AEROPLAN. 018778 : :,Z00,PRINTNAM-*** 018779 : ,Z00,SPECMON.11 (БCЗ!) 018780 : :,Z00,SERVNAM-*** 018781 : ,Z00,CЛYГA.13 018782 : :,Z00,INITNAM-*** 018783 : ,Z00,DISPINIT.15 018784 : :,, 018785 : ,Z00,PUT PULT.16 018786 : C--------- 018787 : SCJOBS:,OCT,57726.1,3-11,13,15,16 018788 : OWND:,LOG,17 7400 0000 018789 : OWNDEF:,OCT,40000017 74000000. 018790 : INFMON:,OCT,40140000 00210201. 018791 : WS1:,BSS,1 018792 : SERVNAM:,ISO,12HHACTPOЙKA'''''' 018793 : PERNAM :,ISO,12HПEPEПИCЬ'''''''' 018794 : MLTNAM :,ISO,12HMYЛЬTИTAЙП'''' 018795 : INITNAM :,ISO,12HINITDISP'''''''' 018796 : PRINTNAM:,ISO,12HB Ы B O Д'''''' 018797 : PL/NAME:,ISO,12HПЛAHИPOBЩИK'' 018798 : MONSYS:,TEXT,8HMONSYS '11' 018799 : ,BSS, 018800 : ,END, 018801 : POГATKA:,NAME, 018802 : C* 018803 : C**** YCTAHOBKA OПEPATOPOM ЧИCЛA 018804 : C* CЧETHЫX KAHAЛOB ДЛЯ ПOTOKA, 018805 : C* CBЯЗИ И MYЛЬTИTAЙПA. 018806 : C* 018807 : *YCЫ:LC,BLOCK,ГYC 018808 : *ИПД:,LC,1 018809 : Ш/ПOTOK:,EQU,*ИПД+12B 018810 : Ш/ПYCK:,EQU,*ИПД+13B 018811 : Ш/CBЯ:,EQU,*ИПД+15B 018812 : 1,BASE,* 018813 : ,*63,ГYC 018814 : ,ASN,64+15 018815 : ,ASN,64-40 018816 : ,AOX,=6H'100'N ) П 018817 : ,ATX,ADR+1 018818 : 2,VTM,-2 018819 : 5,VTM, 018820 : 7,VTM,QUEST 018821 : ,*63,Ш/ПOTOK 018822 : ,ATX,SCAL 018823 : ,*63,Ш/ПYCK 018824 : ,ATX,SCAL+2 018825 : ,*63,Ш/CBЯ 018826 : ,AEX,SCAL 018827 : ,ATX,SCAL+1 018828 : ,NTR,3 018829 : ,UJ,LOOP 018830 : ERR:2,XTA,MIN+2 018831 : ,ASN,64-40 018832 : ,AOX,=6H0 MAX= 018833 : ,ATX,TMIN 018834 : 2,XTA,MAX+2 018835 : ,ASN,64-40 018836 : ,AOX,=6H0'''''''''' 018837 : ,ATX,TMAX 018838 : 14,VTM,TER 018839 : ,ITA,14 018840 : ,FUN,76B 018841 : LOOP:2,XTA,NTYP+2 018842 : ,ATX,TYP 018843 : 2,XTA,SCAL+2 018844 : ,ACX, 018845 : ,ASN,64-8 018846 : ,AOX,=6HOKA=0'' 018847 : ,ATX,OLD 018848 : ,ITA,7 018849 : ,FUN,76B 018850 : ,XTA,=1 018851 : ,FUN,66B 018852 : ,ASN,64+12 018853 : ,AAX,=7 018854 : ,ATI,3 018855 : 2,A-X,MIN+2 018856 : ,U1A,ERR 018857 : ,ITA,3 018858 : 2,X-A,MAX+2 018859 : ,U1A,ERR 018860 : 3,J+M,5 018861 : ,ATI,4 018862 : 2,XTA,MASK+2 018863 : 4,ASN,64 018864 : 2,AAX,MASK+2 018865 : 2,ATX,SCAL+2 018866 : 2,VLM,LOOP 018867 : C--- 018868 : ,*52,Ш/ПYCK 018869 : ,XTA,SCAL 018870 : ,*52,Ш/ПOTOK 018871 : ,AOX,SCAL+1 018872 : ,*52,Ш/CBЯ 018873 : C--- 018874 : 14,VTM,ITOG 018875 : ,ITA,14 018876 : ,FUN,76B 018877 : ,SJ, 018878 : QUEST:,ISO,24HYKAЖИ ЧИCЛO ШИФPOB ДЛЯ 018879 : TYP:,BSS,1 018880 : ADR:,ISO,12H ( ... 018881 : OLD:,ISO,6HПOKA=4 018882 : NTYP:,ISO,18HCEБЯ: CBЯЗИ:TEPM.: 018883 : TER:,ISO,12HOШИБKA: MIN= 018884 : TMIN:,BSS,1 018885 : TMAX:,BSS,1 018886 : ITOG:,ISO,12HCOГЛACEH.'''''' 018887 : MIN:,LOG,0 018888 : ,LOG, 018889 : ,LOG,2 018890 : MAX:,LOG,4 018891 : ,LOG,3 018892 : ,LOG,4 018893 : MASK:,LOG,36 018894 : ,LOG,340 018895 : ,LOG,36 0000 018896 : SCAL:,BSS,3 018897 : ,END, 018898 : SPECMON:,NAME, 018899 : DLIBMT:,LC,2.BTOPOЙ PEЗИДEHT 018900 : *113:B,BLOCK,PULT,PASS 018901 : *YCЫ:LC,BLOCK,ГYC 018902 : MN*TL:,EQU,1067B 018903 : C...... MOHИTOPHЫE COMMON'Ы. 018904 : INFLOAD*:,LC,2 018905 : MONITOR*:,SUBP, 018906 : /VERE/:LC,BLOCK,(2) 018907 : ,CONT,STALOA(0),M/STL,A/CAT,INF0 018908 : RM*:,LC,5 018909 : A/I0:,LC,1 018910 : A/MINUS:,LC,1 018911 : *REGIM//:,LC,1 018912 : BASE:,BSS, 018913 : 1,BASE,BASE 018914 : C==================================== 018915 : 'ПPOBEPKA CПEЦИФИKИ ЗAДA4И 018916 : C--------- 018917 : ,FUN,70100B+PASS.N TT 018918 : ,ASN,64-40 018919 : ,AAX,=:016 018920 : ,ATX,N*TT 018921 : ,ITA,3 018922 : ,AAX,=77 018923 : ,AEX,=77 018924 : ,UZA,SETDELTA 018925 : ,ITA,3 018926 : ,ASN,64-42 018927 : ,AUX,=6H'''''''''7''7' 018928 : ,AOX,=6HTASK00 018929 : ,ATX,NAME 018930 : 14,VTM,NAME 018931 : ,ITA,14 018932 : ,FUN,64B.= ЗAПИCЬ NAME 018933 : C 018934 : C... ЗAXBAT ЛEHTЫ C БCЗ : 018935 : C 018936 : GT:13,VTM,66B 018937 : ,*63,DLIBMT+1.ИMЯ 018938 : ,U1A,*+1.ЗAДAHO 018939 : ,XTA,LIBMT.CTAHДAPT 018940 : :,*57,2050B 018941 : ,UZA,STOP.HET MЛ 018942 : ,AAX,=:3 018943 : ,U1A,STOP.HEГOT/ЗAHЯT 018944 : ,*65,DLIBMT 018945 : ,AOX,/FIZIM 018946 : ,FUN,112B 018947 : ,*72,=:11 40 35 00 37 77 018948 : C 018949 : C... ПPOБA HAЛИЧИЯ CTAT.ЗAГPYЗЧИKA 018950 : C B KATAЛOГE БCЗ 018951 : C 018952 : ,*70,=0010 3500 0066 0000 018953 : ,XTA,73400B 018954 : ,AEX,=6HSTALOA 018955 : ,U1A,R/SYS.-HET 018956 : 4,VTM,-1023 018957 : :4,XTA,73777B.ПEPEПИCЬ 018958 : 4,ATX,-1.KATAЛOГA HA 018959 : 4,VLM,*-1.OБM.ЛИCT 018960 : ,UJ,R/SYS+1.OБXOД ЧT.ЗAГP. 018961 : R/SYS:,BSS, 018962 : ,*70,INFLOA.ПOCAДKA 018963 : 'ЗAГPYЗЧИKA' 018964 : C---------OФOPMЛEHИE MOHИTOPHЫX CBЯЗEЙ 018965 : ,XTA,ALOAD 018966 : ,ATX,INFLOAD* 018967 : ,ATX,RM*+2 018968 : ,ATI,15 018969 : ,XTA,=1100 018970 : ,ATX,17B.MECTO PAЗДEЛA 018971 : ,XTA, 018972 : ,ATX,*REGIM// 018973 : ,XTA,=76000. 018974 : ,ATX,43B.ЛИCT OБMEHA 018975 : ,XTA,=I0 018976 : ,ATX,A/I0 018977 : ,XTA,=:002 018978 : ,ATX,A/MINUS 018979 : ,XTA,STOP 018980 : ,CTX,20B 018981 : 'ПOДПPABKA ЗAГPYЗЧИKA' 018982 : CHLOAD:,BSS, 018983 : ,XTA,/FIZIM 018984 : ,ATX,M/STL 018985 : ,ATX,A/CAT 018986 : ,ATX,INF0 018987 : C========================================= 018988 : 'OФOPMЛEHИE ИMEHИ PAЗДEЛA=CЛ.ЗAДAЧИ' 018989 : C--------- 018990 : ,ITA,3.ИMЯ ИЗ 3 И.P. 018991 : ,ASN,64+6 018992 : ,ATX,INFORTA.ИHФ ДЛЯ ЗAДA4И 018993 : ,YTA, 018994 : ,AUX,TMASK.ПPEOБP. B TEXT 018995 : ,ARX,STAND.OФOPMЛEHИE 018996 : ,ATX,NAME 018997 : C================================== 018998 : 'ПEPECЫЛKA БЛOKA OTKAЗA OT ЛEHTЫ 018999 : C--------- 019000 : LENTGH:,EQU,HEAD-ENDHEAD 019001 : 4,VTM,LENTGH 019002 : LOOP:,BSS, 019003 : 4,XTA,ENDHEAD 019004 : ,UTC,1000B 019005 : 4,CTX,-LENTGH 019006 : 4,VLM,LOOP 019007 : C======================================= 019008 : 'ПY HA CЛYЖEБHYЮ ЗAДA4Y 019009 : C--------- 019010 : ,XTA, 019011 : ,ATX,1077B. 019012 : ,XTA,NAME 019013 : ,ATX,1070B 019014 : ,WTC,ALOAD 019015 : 13,VJM, 019016 : C=================================== 019017 : 'ECЛИ HET ЗAДAЧИ HA MЛ' 019018 : C--------- 019019 : 13,VTM,MIST 019020 : TO TEL:,ITA,13 019021 : ,AOX,N*TT 019022 : ,FUN,76B 019023 : STOP:,SJ, 019024 : MIST:,ISO,6HTASK'041' 019025 : ,OCT, 019026 : SETDELTA:,BSS, 019027 : ,ITA,3 019028 : ,ASN,64+6 019029 : C--------- YCTAHOBKA ДEЛЬTЫ 019030 : ,ATI,14 019031 : 14,UTM,-777B 019032 : 14,VZM,SETNAM 019033 : ,*52,DLIBMT 019034 : PRIZ:,*63,DLIBMT+1 019035 : :,UZA,FST 019036 : ,AUX,=6H'137''137''137''137''137''137' 019037 : FN:,ATX,ZONE 019038 : ,*63,DLIBMT 019039 : ,ASN,64-39 019040 : ,AUX,=6H'7''7''7''0''0''0' 019041 : ,ARX,=6H000'''''' 019042 : ,ATX,ZONE+2 019043 : 13,VTM,ZONE 019044 : ,UJ,TOTEL 019045 : FST:,XTA,=6HD73LIB 019046 : ,UJ,FN 019047 : C 019048 : C... ЗAПPOC HOBOГO ИMEHИ БCЗ 019049 : C ( ПPИKAЗ 77777/ ) 019050 : C 019051 : SETNAM :12,VTM,TGN 019052 : ,*63,ГYC 019053 : ,ASN,64+15 019054 : ,ASN,64-40 019055 : ,AOX,=6H'100':ИMЯ 019056 : 12,ATX, 019057 : ,ITA,12 019058 : ,AOX,N*TT 019059 : ,FUN,76B 019060 : ,XTA,=1 019061 : ,FUN,66B 019062 : ,ASN,64+12 019063 : ,ATX,ZONE 019064 : NORM:,XTA,ZONE 019065 : ,UZA,WRN 019066 : ,AAX,=:77 019067 : ,U1A,WRN 019068 : ,XTA,ZONE 019069 : ,ASN,64-6 019070 : ,ATX,ZONE 019071 : ,UJ,NORM 019072 : WRN:,XTA,ZONE 019073 : ,*52,DLIBMT+1 019074 : ,UZA,PRIZ 019075 : ,FUN,66B.ЗA NБOБ 019076 : ,APX,=171717170000 019077 : ,ASN,64+32 019078 : ,FUN,203B 019079 : ,AEX, 019080 : ,XTA,=7777 019081 : ,*53,DLIBMT+1 019082 : ,UJ,PRIZ 019083 : ZONE:,ISO,12HD73LIB ЗOHA 019084 : ,OCT, 019085 : TGN:,ISO,12HQ:ИMЯ БCЗ '77''' 019086 : C==================== 019087 : ' OTKAЗ OT ЛEHTЫ OT ИMEHИ ЗAДA4И 019088 : C--------- 019089 : HEAD:,BSS, 019090 : 1,BAS,* 019091 : 1,VTM,1000B 019092 : ,XTA,N*TT 019093 : ,ATX,MN*TL 019094 : 15,VTM,73401B. 019095 : ,*70,ПOДBOД 019096 : ,XTA,BIT66 019097 : ,*57,4000B 019098 : ,XTA,INFORTA 019099 : ,ATI,1 019100 : ,WTC,1077B 019101 : ,UJ, 019102 : ПOДBOД:,030, 019103 : ,066, 019104 : BIT66:,OCT,0000 0000 004 019105 : N*TT:,LOG, 019106 : ENDHEAD:,BSS, 019107 : INFORTA:,BSS,1 019108 : C--------- 019109 : C==================================== 019110 : 'BCЯKAЯ BCЯЧИHA' 019111 : C--------- 019112 : INFLOA:8,014,3503B. 019113 : ,021,101B.C 2101 - 1 CEKT 019114 : /FIZIM:,LOG,10 0000 0066 0000 019115 : C--------- 019116 : ALOAD:,LOG,73401. 019117 : LIBMT:,TEXT,8HD73LIB '05' 019118 : TMASK:,TEXT,8H '07''07' 019119 : TRACENAM:,BSS, 019120 : C--------- 019121 : STAND:,TEXT,8HTASK00 019122 : NAME:,BSS,1 019123 : ,BSS,2 019124 : ,END,SPECMON 019125 : PUT PULT:,NAME, 019126 : C 019127 : C ЗAДAHИE ЗHAЧEHИЯ IFPULT ДЛЯ ЗAДAЧИ 019128 : C 019129 : *113:B,BLOCK,PULT,PASS 019130 : B:1,BASE,B 019131 : ,FUN,70100B+PULT 019132 : ,ASN,64+6 019133 : ,ATX,KOD 019134 : ,YTA, 019135 : ,ASN,64+42.ШИФP 019136 : ,NTR,3 019137 : ,X-A,=60.ДHЗ 019138 : 3,VTM,NO TASK 019139 : ,ASN,64-9 019140 : ,AOX,=50 019141 : ,ATX,ADR 019142 : ,AOX,=:4 019143 : ,FUN,212B.ДAЙ ИПЗ 019144 : ,ATI,2 019145 : 2,VZM,EXIT 019146 : ,XTA,KOD 019147 : 2,*52,PULT 019148 : ,XTA,ADR 019149 : ,FUN,212B.HA ИПЗ 019150 : 4,VTM,-3 019151 : 5,VTM, 019152 : TRAN:,XTA,KOD 019153 : 5,ASN,64 019154 : ,AUX,=6H'7''7''7''7''''' 019155 : ,AOX,=6H0000'1' 019156 : 4,ATX,ANSW+3 019157 : 5,UTM,-12 019158 : 4,VLM,TRAN 019159 : 3,VTM,ANSW 019160 : EXIT:,ITA,3 019161 : ,ATX,KOD 019162 : ,FUN,70100B+PASS.N TT 019163 : ,AAX,=1 019164 : ,ASN,64-40 019165 : ,AOX,KOD 019166 : ,FUN,76B 019167 : ,*62, 019168 : NOTASK:,ISO,6H HET '' 019169 : ANSW:,BSS,4 019170 : ADR:,BSS,1 019171 : KOD:,BSS,1 019172 : ,END, 019173 : PUTTMP:,NAME,. 019174 : C--------- ПOДПPOГPAMMA OTKPЫTИЯ ПPИПИCKИ И ЗAЩИTЫ 019175 : Z28/21:,LC,1 019176 : 15,UTM,44B 019177 : 13,VTM,-3 019178 : L1:15,XTA, 019179 : 13,MOD,33B 019180 : 13,VLM,L1 019181 : 13,VTM,-7 019182 : L2:15,XTA, 019183 : ,ASN,64-8. 019184 : ,AUX,Z28/21 019185 : 13,MOD,27B 019186 : 13,VLM,L2 019187 : 14,UJ, 019188 : C--------- 019189 : ,END,. 019190 : MACRO67 : ,NAME, 019191 : C 019192 : C ЭKCTPAKOД OTЛAДKИ 019193 : C 019194 : C PEДAKЦИЯ OT 20.02.76 019195 : C (Л.KAMИHCKИЙ,И.CИЛИH,A.ГYCEB) 019196 : C 1-CTAHДAPTHAЯ ПEЧATЬ(ПEPEД OCTAHOBOM) 019197 : C 2-BЫXOД ПOД Э67 019198 : C 3-ПPOTAЛKИBAHИE KOMAHДЫ 019199 : C 4 BOЗBPAT B ПPEPBAHHOE MECTO 019200 : C ПPИ BOЗBPATE BOCCTAHABЛИBAЮTCЯ: 019201 : C SR,И14,И16 019202 : ERRMACRO:,SUBP, 019203 : ПЛOX67:,EQU,15.HOMEP ДИAГHOCTИKИ 019204 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 019205 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 019206 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 019207 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 019208 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 019209 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 019210 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,PPIR,MPPIR,M1RDSC,STCLTA 019211 : C77777 : ,LC,1 019212 : *SCAL71:LC,BLOCK,(3),SCAL67,SCШAГ 019213 : SMASAV:LC,BLOCK, 019214 : ,CONT, SAVAC 019215 : ,CONT, SAVSR 019216 : ,CONT, SAVAR 019217 : ,CONT, SAVI15 019218 : ,CONT, SAVI14 019219 : ,CONT, SAVI13 019220 : ,CONT, SAVMIR 019221 : ,CONT, SAVS16 019222 : S 3 3 : , EQU,00003B 019223 : S 2 7 : , EQU,00005B 019224 : S 3 4 : , EQU,00026B 019225 : S 3 5 : , EQU,00027B 019226 : M:,EQU,100B. 019227 : REGSCAL:,EQU,M 019228 : COPYS32:,EQU,46B 019229 : COPYI14:,EQU,47B 019230 : I14:,EQU,10B 019231 : B48/31:,LC,1 019232 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 019233 : C14:,LC,1 019234 : RETURN:,SUBP, 019235 : OCTAHOB:,SUBP, 019236 : COPYS33:,EQU,M+6. 019237 : RETM67:,EQU,M+7. 019238 : SELECT : ,SUBP, 019239 : FULSAV : ,SUBP, 019240 : , ATX ,SAVAC . 019241 : : ,24,2000B 019242 : 14, XTA , . 019243 : : , 24 , 02003B . 019244 : ,ATX,WS. 019245 : ,YTA, 019246 : ,ATX,SAVAR 019247 : 13,MTJ,16 019248 : ,CALL,SAVEMOD 019249 : 15,VTM,BUFMAR 019250 : ,WTC,ГYC 019251 : 13,VTM, 019252 : ,XTA,WS 019253 : C PACKPYTKA ИHФOPMAЦИOHHOГO CЛOBA 019254 : , AAX ,BIT24 . 019255 : ,ITS,32B 019256 : 15,AOX, 019257 : 13,ATX,RETM67 019258 : ,XTA,WS 019259 : , AAX , C77777 . 019260 : ,XTS,WS. 019261 : ,AAX,B21/22 019262 : ,XTS,WS. 019263 : , ASN ,64+24 . 019264 : ,ATI,33B 019265 : ,MTJ,27B 019266 : 15, XTA , . 019267 : , U1A , STOPNUM . 019268 : ,XTA,WS 019269 : ,AAX,BIT23 019270 : ,U1A,KPYTИ 019271 : 15, XTA , . 019272 : 13, ATX , S 3 4 . 019273 : : ,24,2002B 019274 : ,ATI,34B.OCT.ПO HK 019275 : : ,24,2003B 019276 : ,UJ,BЫXOД 019277 : C --------------------- 019278 : KPYTИ:,BSS, 019279 : ,AOX,BIT24.ДЛЯ CTAHД.ПEЧATИ 019280 : 13,AOX,RETM67 019281 : 13,ATX,RETM67 019282 : 15,XTA,.AKOH 019283 : 13,AEX,COPYS33 019284 : ,AAX,C77777 019285 : ,UZA,RETURN.KOHЧИЛИ ПPOKPYTKY 019286 : C -------------- BЫXOД ПO AПYKOH 019287 : C ПPOДOЛЖAEM KPYTИTЬ 019288 : ,UJ,CONTINUE 019289 : C -------------- 019290 : ЧTEH:13,XTA,REGSCAL 019291 : ,AOX,BIT5 019292 : ,AEX,BIT5 019293 : ,UJ,ЧTЗП 019294 : C ---------------------- 019295 : STOPNUM:,BSS, 019296 : ,AAX,BIT22 019297 : ,UZA,ЧTEH 019298 : ,XTA,BIT5 019299 : 13,AOX,REGSCAL 019300 : ЧTЗП:,BSS, 019301 : 13,ATX,REGSCAL 019302 : 15,XTA, 019303 : : ,24,2002B 019304 : ,ATI,35B.OCT.ПO ЧT/ЗП 019305 : : ,24,2003B 019306 : 13, ATX , S 3 5 . 019307 : BЫXOД:,BSS, 019308 : ,ITA,33B 019309 : ,U1A,RETURN.ПY ПO AДP.YKAЗ.B Э67 019310 : CONTINUE:,BSS,. 019311 : C BOЗBPAT HA ПPEPBAHHOE MECTO 019312 : 13, XTA , COPYS33 . 019313 : ,UZA,ПЛOXO 019314 : ,ATI,33B 019315 : ,ASN,64+15. 019316 : ,ATI,27B 019317 : ,AAX,C14 019318 : ,U1A,ПЛOXO 019319 : C ДЛЯ BOЗBPATA B ПPEPB.MECTO 019320 : 13,XTA,COPYI14 019321 : ,ATX,SAVI14 019322 : ,ASN,64+15 019323 : ,ATX,SAVS16 019324 : 13,XTA,COPYS33 019325 : ,AAX,B48/42 019326 : ,ATX,SAVSR 019327 : TOЛKAЙ:,ENTRY, 019328 : C BЫKЛЮЧEHИE OCTAHOBA 019329 : C BIT19 B REGSCAL-ПPИЗHAK OCTAHOBA ПO ЧИCЛY 019330 : 13,XTA,REGSCAL 019331 : ,AAX,BIT19 019332 : ,U1A,CHЯTЬЧ 019333 : 13,XTA,S34 019334 : ,ASN,64-15 019335 : 13,ATX,S34 019336 : ,ATI,34B 019337 : ,UJ,YCTФЛ 019338 : CHЯTЬЧ:,BSS, 019339 : 13,XTA,S35 019340 : ,ASN,64-15 019341 : 13,ATX,S35 019342 : ,ATI,35B 019343 : C YCT.ФЛAГA ДЛЯ ПPOГP.ПPEPЫBAHИЯ 019344 : YCTФЛ:,BSS, 019345 : ,XTA,BITJ 019346 : ,AOX,SCAL67 019347 : ,ATX,SCAL67 019348 : ,UJ,RETURN.HA ПPOTAЛKИBAHИE KOMAHДЫ 019349 : C -------------------- 019350 : ПЛOXO:,BSS, 019351 : 14,VTM,ПЛOX67 019352 : ,UJ,ERRMACRO 019353 : C ------------------ 019354 : C 21P.-OCTAHOB ПO ЧИCЛY 019355 : C 22P.-OCTAHOB ПO ЗAПИCИ 019356 : C 23P.-ПPOKPYTKA (AПYKOH,BIT23,AKOH) 019357 : C ШKAЛA ЗAДAЧ,KOTOPЫM HYЖHO ПPOГPAMHOE ПPEPЫBAHИE 019358 : C ----------------------- 019359 : OCT67:,ENTRY, 019360 : C PEAKЦИЯ HA ПPOГPAMHOE ПPEPЫBAHИE 019361 : C ПOCЛE OCTAHOBA 019362 : ,WTC,ГYC 019363 : 13,VTM, 019364 : ,XTA,SCAL67 019365 : ,AAX,BITJ 019366 : ,UZA,RETURN.ЧYЖOE ПPEPЫBAHИE 019367 : C HEЛЬЗЯ BKЛ.OCT ПO NK 019368 : C ПPИ ПY HA ПPAB.KOMAHДY 019369 : ,XTA,SCШAГ 019370 : ,AAX,BITJ 019371 : ,U1A,BKЛ34 019372 : ,ITA,33B 019373 : ,ASN,64-15 019374 : 13,AEX,S34 019375 : ,ASN,64+15 019376 : ,AAX,C77777 019377 : ,UZA,BKЛ35 019378 : BKЛ34:,BSS, 019379 : ,XTA,BITJ 019380 : ,AEX,SCAL67 019381 : ,ATX,SCAL67 019382 : C BOCCTAHOBЛEHИE И34,35 019383 : 13,XTA,S34 019384 : ,AAX,C77777 019385 : ,U1A,BKЛ35 019386 : 13,XTA,S34 019387 : ,ASN,64+15 019388 : 13,ATX,S34 019389 : : ,24,2002B 019390 : ,ATI,34B 019391 : : ,24,2003B 019392 : BKЛ35:,BSS, 019393 : 13,XTA,S35 019394 : ,AAX,C77777 019395 : ,U1A,YЖEBKЛ 019396 : 13,XTA,S35 019397 : ,ASN,64+15 019398 : 13,ATX,S35 019399 : : ,24,2002B 019400 : ,ATI,35B 019401 : : ,24,2003B 019402 : YЖEBKЛ:,BSS, 019403 : 13,XTA,REGSCAL 019404 : ,AAX,BIT18 019405 : ,U1A,ШAГ.PAБOTA C OTЛAДЧИKOM 019406 : 13,XTA,RETM67 019407 : ,AAX,BIT23 019408 : ,UZA,RETURN.ПPOДOЛЖEHИE ЗAДAЧИ 019409 : ,XTA,SCAL67 019410 : ,AAX,ZBITJ 019411 : ,ATX,SCAL67 019412 : 13,XTA,REGSCAL 019413 : ,AOX,BIT19 019414 : ,AEX,BIT19 019415 : 13,ATX,REGSCAL 019416 : ,ITA,27B 019417 : ,AAX,C14 019418 : ,UZA,MATJOB 019419 : C YCT.OCTAHOBA ПO BЫXOДY ИЗ ЭKCTPAKOДA 019420 : ,ITA,32B 019421 : 13,ATX,S34 019422 : : ,24,2002B 019423 : ,ATI,34B 019424 : : ,24,2003B 019425 : ,UJ,RETURN.B ПPEPBAHHOE MECTO 019426 : C ------------------ 019427 : MATJOB:,BSS, 019428 : 14,VTM,3.HA 019429 : ,UJ,OCTAHOB.ПPOKPYTKY 019430 : C --------------------- 019431 : MICROSAV:,ENTRY, 019432 : C ЗAПOMИHAEM MECTO ПPEPЫBAHИЯ 019433 : ,ITA,27B 019434 : ,ASN,64-15 019435 : 13,ATX,COPYS33 019436 : ,ITA,33B 019437 : 13,AOX,COPYS33 019438 : 13,ATX,COPYS33 019439 : ,XTA,SAVSR 019440 : ,AAX,B48/42 019441 : 13,AOX,COPYS33 019442 : 13,ATX,COPYS33 019443 : C ЗAПOMИHAEM И14,16 ДЛЯ BOЗBPATA B ПPEPBAHHOE MECTO ЧEPEЗ Э67 019444 : ,XTA,SAVI14 019445 : ,AAX,C77777 019446 : ,ATX,SAVI14 019447 : 13,XTA,COPYS32 019448 : ,AAX,B48/31 019449 : 13,ATX,COPYS32 019450 : ,ITA,32B 019451 : 13,AOX,COPYS32 019452 : 13,ATX,COPYS32 019453 : 13,XTA,COPYI14 019454 : ,AAX,B48/31 019455 : ,AOX,SAVI14 019456 : 13,ATX,COPYI14 019457 : ,XTA,SAVS16 019458 : ,AAX,C77777 019459 : ,ASN,64-15 019460 : 13,AOX,COPYI14 019461 : 13,ATX,COPYI14 019462 : 15,UJ, 019463 : ШAГ:,BSS, 019464 : ,XTA,SCШAГ 019465 : ,AAX,BITJ 019466 : ,UZA,RETURN 019467 : 13,XTA,REGSCAL 019468 : ,AOX,BIT19 019469 : ,AEX,BIT19 019470 : 13,ATX,REGSCAL 019471 : 14,VTM,2 019472 : ,UJ,OCTAHOB 019473 : C ------------------ 019474 : B48/42:,OCT,774 019475 : B21/22: ,LOG,1400 0000 019476 : WS:,BSS,1. 019477 : BUFMAR:,BSS,2 019478 : ,END, 000001 : MACRO70 : ,NAME, 000002 : C 000003 : C ЭKCTPAKOД OБMEHA 000004 : C 000005 : * И П Д :LC,BLOCK,XNF,XNFM 000006 : NMAT1:,WEQ,XNF 000007 : ШCЛYЖ:,EQU,XNF+10B 000008 : MTRACNT:,EQU,XNF+27B 000009 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 000010 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 000011 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 000012 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 000013 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 000014 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 000015 : BITTRA:,EQU,BIT27. 000016 : BITPHYS:,EQU,BIT48. 000017 : *YCЫ:LC,BLOCK,Г Y C,RDSCAL. 000018 : READSCAL: ,LC,1 000019 : SMASAV:LC,BLOCK, 000020 : ,CONT, SAVAC 000021 : ,CONT, SAVSR 000022 : ,CONT, SAVAR 000023 : ,CONT, SAVI15 000024 : ,CONT, SAVI14 000025 : ,CONT, SAVI13 000026 : ERRMACRO: ,SUBP, 000027 : TEXTOШ:,EQU,16.HOMEP ДИAГHOCTИKИ 000028 : TRABUS : ,LC,1 000029 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 000030 : I W 7 0 : ,LC,1 000031 : TRACNT : ,LC,1 000032 : CLTASK : ,SUBP, 000033 : DISREG : ,LC,1 000034 : C3:,LC,1 000035 : C14:,LC,1 000036 : C37 : ,LC,1 000037 : C77:,LC,1. 000038 : C177:,LC,1 000039 : MNP:,EQU,C177 000040 : C76000:,LC,1 000041 : C77357:,LC,1 000042 : FULWOR:,LC,1 000043 : TMATH : , EQU,00030B 000044 : TPHYS : ,LC,1 000045 : TRAM70:,SUBP,. 000046 : BUFTRA:LC,BLOCK,(1),IFTRA 000047 : S33:,EQU,3. 000048 : S27:,EQU,5. 000049 : C7:,LC,1. 000050 : I13:,EQU,11B. 000051 : M:,EQU,100B. 000052 : REGSCAL:,EQU,M. 000053 : BUFI14:,EQU,M+3. 000054 : BUFS27:,EQU,M+4. 000055 : BUFIW:,EQU,M+5. 000056 : BISTIME:,EQU,110B. 000057 : W70/POST:,EQU,135B 000058 : LOMIDZSC:,EQU,162B 000059 : DRU/MEM:,EQU,777B 000060 : C377:,LC,1 000061 : GIVEPAGE:,SUBP, 000062 : CWJFOTRA:,LC,1. 000063 : FULQUESC:,LC,1. 000064 : NEWTA : ,SUBP, 000065 : NRESCALL:,SUBP, 000066 : NR POST:,SUBP, 000067 : SWTCHM52:,SUBP, 000068 : VMCHANG:,SUBP,.ЗAMEHA ЛИCTOB 000069 : EMULAT:,SUBP,. 000070 : *TAKCA:LC,BLOCK,TIMEDRUM 000071 : :,ATX,SAVAC 000072 : ,XTA,I/EM 000073 : ,UJ,EMULAT 000074 : L00570 : , RTE , 07777B . 000075 : , ATX ,SAVSR . 000076 : , ITA , 27B . 000077 : , AAX , C77357 . 000078 : ,WTC,Г Y C. 000079 : , ATX , BUFS27. . 000080 : ,XTA,SAVAC 000081 : 14,VZM,M/ACC 000082 : : ,24,2000B. 000083 : 14,XTA,. 000084 : MACRO70S:,ENTRY,. 000085 : M/ACC:,BSS, 000086 : : , 24 , 02003B . 000087 : , ATX , I W 7 0 . 000088 : ,WTC,Г Y C. 000089 : 14,VTM,. 000090 : 14,XTA,BUFS27 000091 : ,ATI,27B 000092 : ,XTA,IW70 000093 : C----- ПPOBEPKИ PAЗPEШEHHOCTИ ----- 000094 : ,ATX,SAVAC 000095 : ,ASN,64+12 000096 : ,AAX,C77 000097 : 14,ATX,BUFIW.HOMEP MБ/MЛ 000098 : ,ASN,64+3 000099 : ,ATX,SAVAR 000100 : ,AEX,C7 000101 : ,UZA,BADIW.= HAПP.7 000102 : ,ARX,C3 000103 : ,ASN,64+3 000104 : ,UZA,CH T.= HAПP.3-6 000105 : ,XTA,IW70 000106 : ,AAX,BIT39 000107 : ,UZA,MAT DRUM 000108 : ,XTA,SAVAR 000109 : ,UZA,BAD IW.= HAПP.0(Ф) 000110 : ,XTA,IW70 000111 : ,AAX,BIT46 000112 : ,U1A,CHPH1.= MOДEЛЬ 000113 : CL DR:,BSS, 000114 : C..... OБMEH C MБ 000115 : ,NTR,2 000116 : 14,XTA,BISTIME 000117 : ,A+X,TIMEDRUM 000118 : 14,ATX,BISTIME 000119 : ,XTA,IW70 000120 : ,AAX,CLM 1 000121 : ,ATX,IW70 000122 : CH NS:,AAX,BIT36 000123 : ,UZA,CH PH 000124 : C----- ПPИBEДEHИE HECTAHДAPTHOГO IW70 000125 : ,XTA,IW70 000126 : ,AAX,C377 000127 : 14,ATX,BUFIW 000128 : ,ASN,64-8 000129 : 14,AOX,BUFIW 000130 : ,ASN,64+2 000131 : ,AAX,C377 000132 : 14,AEX,BUFIW 000133 : ,AEX,IW70 000134 : ,ATX,IW70 000135 : CH PH:,XTA,IW70 000136 : ,AAX,B40/39.ФИЗ.ЗAПИCЬ 000137 : ,AEX,BIT39 000138 : ,U1A,OKEY. = HET 000139 : CHPH 1:,XTA,3 000140 : ,WTC,ДHЗ 000141 : ,APX,BITS-NMAT1 000142 : 14,AOX,REGSCAL 000143 : ,AAX,BITPHYS 000144 : ,U1A,OKEY 000145 : 14,XTA,BUFS27 000146 : ,AAX,C14 000147 : ,U1A,OKEY 000148 : C----- ПЛOXOE ИHФOPMAЦИOHHOE CЛOBO 000149 : BAD IW:14,VTM,TEXT OШ 000150 : ,UJ,ERRMACRO 000151 : CH T:,XTA,IW70 000152 : ,AAX,BIT39 000153 : ,U1A,CH PH 000154 : C..... OБMEH C MAT.MЛ 000155 : ,XTA,IW70 000156 : ,AAX,CLM 2 000157 : ,ATX,IW70 000158 : 14,XTA,LOMIDZSC 000159 : 14,WTC,BUFIW 000160 : ,AAX,BIT48-30B 000161 : ,UZA,OKEY 000162 : C 000163 : C--- K ПOЧTOBOЙ CЛYЖБE CO CПEЦ-ЗAKAЗOM 000164 : C 000165 : ,XTA,C14 000166 : 14,ATX,W70/POST+4 000167 : ,XTA,IW70 000168 : 14,ATX,W70/POST+5 000169 : 14,ATX,W70/POST+19 000170 : ,AAX,=:0000 37 000171 : ,AOX,=0060 0077 1470 0000 000172 : ,UJ,SWTCHM52+1 000173 : C 000174 : C 000175 : C 000176 : OKEY:,BSS, 000177 : , XTA , I W 7 0 . 000178 : 14, ATX , BUFIW. . 000179 : RET1FQ:,BSS,. 000180 : ,XTR,SAVSR 000181 : ,AAX,B42/41. 000182 : ,UZA,NO MOVE. OБMEH 000183 : ,XTA,IW70 000184 : ,ASN,64+42.48-43 PAЗP. 000185 : ,U1A,BAD IW.BPEДOHOCHЫ ! 000186 : ,UJ,AFULQUE 000187 : NO MOVE:,XTA,IW70 000188 : , ASN ,64+20 . 000189 : , AAX , C76000 . 000190 : , ATI , 14 . 000191 : , XTA , I W 7 0 . 000192 : , ARX , . 000193 : , UZA , SWINREAD . 000194 : , AAX ,BIT40 . 000195 : , UZA , SWINREAD . 000196 : , XTA , READSCAL . 000197 : ,AOX,BITJ 000198 : , ATX , READSCAL . 000199 : SWINREAD: , 24 , 02000B . 000200 : 14, XTA , 00001B .***** 000201 : AFULQUE:,BSS,. 000202 : : ,24,2003B. 000203 : ,XTA,ZBITJ 000204 : ,AAX,READSCAL 000205 : ,ATX,READSCAL. 000206 : ,ITA,13 000207 : ,ATX,SAVI13 000208 : ,ITA,15 000209 : ,ATX,SAVI15 000210 : ,XTA,TRACNT. 000211 : ,ARX,MTRACNT 000212 : , U1A , NOFULQUE . 000213 : 13,VTM,RET2FQ. 000214 : 13,MTJ,33B. 000215 : 13,VJM,CLTASK. 000216 : , XTA , FULQUESC . 000217 : ,AOX,BITJ 000218 : , ATX , FULQUESC . 000219 : , XTA , DISREG . 000220 : , ATI , 27B . 000221 : ,UJ,NEWTA 000222 : NOFULQUE:,WTC,ГYC 000223 : 14,VTM, 000224 : 14,XTA,BUFIW 000225 : ,ATX,IW70 000226 : ,AAX,B42/41. 000227 : ,U1A,NFL1. ЗAKAЗ HA ПOДBOД 000228 : ,XTA,IW70. 000229 : , ASN ,64+30 . 000230 : , AAX , C37 . 000231 : ,ATI,13 000232 : 14,UTC, 000233 : 13,XTA,TMATH 000234 : ,AOX,BIT46 000235 : 14,UTC, 000236 : 13,ATX,TMATH 000237 : , ASN ,64+30 . 000238 : ,AAX,MNP 000239 : ,ATI,13 000240 : 13,XTA,TPHYS 000241 : , AOX ,BIT7 . 000242 : 13,ATX,TPHYS 000243 : NFL1:,BSS,. 000244 : 14,XTA,BUFS27 000245 : ,ATI,27B 000246 : ,ASN,64+15.V-OБMEH 000247 : ,U1A,VEXCH.-ДA 000248 : , XTA , Г Y C . 000249 : , ATX , CWJFOTRA . 000250 : ,ATX,IFTRA+I13. 000251 : , XTA ,BIT40 . 000252 : ,AOX,TRABUS 000253 : , ATX , TRABUS . 000254 : , ITA , 32B . 000255 : , ATI , 33B . 000256 : , XTA , RDSCAL . 000257 : , AOX , BITTRA . 000258 : , ATX , RDSCAL . 000259 : 14,VTM,TRAM70. 000260 : ,ITA,14. 000261 : ,ATX,IFTRA+S33. 000262 : ,XTA,C7. 000263 : ,ATX,IFTRA+S27. 000264 : ,UJ,NEWTA 000265 : RET2FQ:,WTC,Г Y C. 000266 : ,XTA,BUFIW. 000267 : ,ATX,IW70. 000268 : ,UJ,RET1FQ. 000269 : MAT DRUM:,BSS, 000270 : ,XTA,ШCЛYЖ 000271 : ,AAX,BITJ 000272 : ,U1A,BADIW 000273 : C----- ПPOБA: MOДEЛИPYETCЯ ЛИ 000274 : C HAШ MБ B MOЗY 000275 : 14,XTA,DRU/MEM 000276 : 14,WTC,BUFIW 000277 : ,AAX,BIT48 000278 : ,UZA,CL DR.-HET 000279 : 14,AOX,BUFS27 000280 : 14,ATX,BUFS27.ФЛAГ V-OБMEHA 000281 : ,ASN,64+24 000282 : 14,AAX,DRU/MEM 000283 : ,U1A,CHANGE 000284 : ,XTA,IW70 000285 : ,UJ,CH NS 000286 : C 000287 : C... BMECTO OБMEHA C MБ - 000288 : C - ЗAMEHA CTPAHИЦ . 000289 : C 000290 : CHANGE:,XTA,IW70.CEKT.OБMEH 000291 : ,ARX,.OБCЛYЖИBAEM 000292 : ,UZA,CHNS.OБЫЧHO 000293 : ,ATX,SAVAC 000294 : 14,VTM, 000295 : ,UJ,VMCHANG 000296 : C 000297 : C----- B ПOДKAЧKY CO CПEЦ-ЗAKAЗOM : 000298 : C OБMEH MEЖДY MAT.ЛИCTOM И 000299 : C BИPTYAЛЬHЫM ЛИCTOM. 000300 : C 000301 : V EXCH:,XTA,DISREG 000302 : ,ATI,27B 000303 : 13,VTM,V EXCH 000304 : 13,MTJ,33B 000305 : 15,VTM,-1. K O П 000306 : ,UJ,GIVEPAGE 000307 : I/EM:,Z00,200B.БИT ЭK70 000308 : ,Z00,L00570.BOЗBPAT 000309 : CLM 1:,LOG,4017 7777 7777 7777 000310 : CLM 2:,LOG,0377 7777 7777 7777 000311 : B42/41:,OCT,006. 000312 : B40/39:,OCT,0014. 000313 : ,END, 000314 : COБЫTИE:,NAME, 000315 : C 000316 : C***** П/П YCTAHOBKИ COБЫTИЯ 000317 : C 000318 : C OБPAЩEHИE C ЗAKPЫTЫMИ ПPEPЫBAHИЯMИ 000319 : C 000320 : C CYMMATOP : 000321 : ' PP. 48/25 - ШKAЛA COБЫTИЙ 000322 : ' PP. 15/01 - AДPEC BOЗBPATA 000323 : C 000324 : C PEГИCTP MЛAДШИX PAЗPЯДOB : 000325 : ' YПP.CЛOBO COOTBETCTBYЮЩEЙ ЗAДAЧИ 000326 : C 000327 : *YCЫ:LC,BLOCK,(1),RDSCAL 000328 : SCALES:LC,BLOCK,(5),SC OPER 000329 : C..... ЯЧEЙKИ ИПЗ : 000330 : S33:,EQU,3 000331 : S27:,EQU,5 000332 : И13:,EQU,9 000333 : П YПP:,EQU,50B 000334 : M/Ф:,EQU,51B 000335 : MC:,EQU,52B 000336 : ШC:,EQU,53B 000337 : M:,EQU,100B 000338 : ДШ:,EQU,112B 000339 : C..... 000340 : B30/16:,LC,1 000341 : B24/1:,LC,1 000342 : C77777:,LC,1 000343 : BITS:,EQU,677B 000344 : DISREG:,LC,1 000345 : *727:B,BLOCK,B25 000346 : *736:B,BLOCK,B18,B17,B16 000347 : C..... PAЗHЫE ПPИЗHAKИ : 000348 : BETB:,EQU,B18.HAДO BETBЛ. 000349 : ЗAKP:,EQU,B17.ЗAKPЫTA ДO BETB. 000350 : БЛOK:,EQU,B16.БЛOKИP.BETBЛ. 000351 : C***** 000352 : C 000353 : :,24,2003B.OT ГPEXA 000354 : ,ATX,CYM.ШKAЛA+BOЗBPAT 000355 : ,ITA,14 000356 : ,ATX,*14 000357 : ,YTA, 000358 : ,ATX,PMP.YC ЗAДAЧИ 000359 : ,ATI,14.AДPEC ИПЗ 000360 : 14,VZM,RET 000361 : ,AAX,B30/16.ECTЬ ЗAДAЧA 000362 : ,UZA,RET. = HET 000363 : 14,XTA,ДШ 000364 : ,UZA,RET 000365 : ,XTA,CYM.ГEHEPИPYEMЫE 000366 : ,ASN,64+24. COБЫTИЯ 000367 : 14,AOX,ШC 000368 : 14,ATX,ШC 000369 : 14,AAX,MC 000370 : ,AAX,B24/1 000371 : ,UZA,RET.= ЗAMACKИP. 000372 : 14,XTA,M/Ф 000373 : ,AOX,BETB 000374 : 14,ATX,M/Ф.ЗAДAЧA ЖДAЛA 000375 : ,AAX,ЗAKP. BETBЛEHИЯ 000376 : ,UZA,RET. = HET 000377 : 14,AEX,M/Ф 000378 : 14,ATX,M/Ф 000379 : ,XTA,PMP 000380 : ,ASN,64+42 000381 : ,ATI,14 000382 : ,XTA,SC OPER 000383 : 14,AOX,BITS 000384 : 14,AEX,BITS 000385 : ,ATX,SC OPER 000386 : ,XTA,RDSCAL 000387 : 14,AOX,BITS 000388 : ,ATX,RDSCAL 000389 : C----- BOЗBPAT K OБPATИBШEMYCЯ 000390 : RET:,WTC,*14 000391 : 14,VTM, 000392 : ,WTC,CYM 000393 : ,UJ, 000394 : BETBЛEH:,ENTRY, 000395 : C***** ПPOBEPKA HEOБXOДИMOCTИ BETBЛEHИЯ 000396 : C И EГO OPГAHИЗAЦИЯ 000397 : C 000398 : C ПPИ BXOДE B И15 - AДPEC ИПЗ 000399 : C BOЗBPAT ПO И14 000400 : C 000401 : 15,XTA,ДШ 000402 : 14,UZA,.= HET ДEШИФP. 000403 : 15,AOX,M/Ф 000404 : ,AAX,БЛOK.БЛOKИP.BETBЛEH. 000405 : 14,U1A,. = ДA 000406 : 15,XTA,M/Ф 000407 : ,AAX,BETB.ECTЬ BETBЛEH. 000408 : 14,UZA,. = HET 000409 : 15,XTA,П YПP 000410 : ,AAX,N YПP.ECTЬ ПOЛE YПP. 000411 : ,UZA,CLOSE. = HET 000412 : C----- OPГAHИЗYEM KBAЗИПAPAЛЛEЛЬHЫЙ 000413 : C----- ПPOЦECC 000414 : 15,XTA,П YПP 000415 : ,ARX,C MIN 000416 : 15,ATX,П YПP.= AДPEC ПOЛЯ 000417 : ,ATI,13. YПPЯTЫBAHИЯ 000418 : C..... ПEPEПИCЬ ИПЗ B ИПB 000419 : 12,VTM,1-12 000420 : ПEPE:15,UTC, 000421 : 12,XTA,11 000422 : 13,UTC, 000423 : 12,ATX,11 000424 : 12,VLM,ПEPE 000425 : 15,XTA,M 000426 : 13,ATX,12.= REGSCAL 000427 : 15,XTA,ДШ.= ШKAЛA ЛИCTOB 000428 : 13,ATX,13. C KOH.OБM. 000429 : C..... ФOPMИPOBAHИE HOBOГO ИПЗ 000430 : 15,ATX,S33 000431 : ,AAX,C77777 000432 : ,AOX,БЛOK 000433 : 15,ATX,ДШ 000434 : 15,XTA,M/Ф 000435 : ,AEX,BETB 000436 : 15,ATX,M/Ф 000437 : 15,AEX,П YПP.= M-AДPEC 000438 : 15,ATX,И13. ПOЛЯ YПP. 000439 : 15,XTA,ШC 000440 : 15,AAX,MC 000441 : ,ASN,64-24 000442 : 15,ATX,S27.= PEЖИM YY 000443 : 15,UTC, 000444 : ,ATX,.= ШKAЛA COБ. 000445 : ,ASN,64+24 000446 : 15,AEX,ШC 000447 : 15,ATX,ШC 000448 : ,AAX,B25 000449 : 14,UZA, 000450 : ,XTA,DISREG 000451 : 15,ATX,S27 000452 : 14,UJ, 000453 : CLOSE:,BSS, 000454 : C..... HEЗAПYCK BETBИ ПO HEXBATKE 000455 : C..... ПOЛЯ YПPЯTЫBAHИЯ 000456 : ,XTA,БЛOK 000457 : 15,AOX,M/Ф 000458 : 15,ATX,M/Ф 000459 : 14,UJ, 000460 : C..... 000461 : N YПP:,LOG,37 00000 000462 : C MIN:,LOG,7777 7777 776 77757 000463 : CYM:,BSS,1 000464 : PMP:,BSS,1 000465 : *14:,BSS,1 000466 : ,END, 000467 : MACRO75 : ,NAME, 000468 : C 000469 : C ЭKCTPAKOД ЗAПИCИ KOMAHД 000470 : C 000471 : NMAT1:,EQU,30B. 000472 : M:,EQU,100B. 000473 : REGSCAL:,EQU,M. 000474 : SMASAV:LC,BLOCK,SAVAC(8) 000475 : OUTMACRO:,SUBP, 000476 : BUF27:,EQU,M+4. 000477 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 000478 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 000479 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 000480 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 000481 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 000482 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 000483 : *YCЫ:LC,BLOCK,Г Y C. 000484 : Д H З : ,LC,1 000485 : C77357 : ,LC,1 000486 : ,ATX,SAVAC 000487 : , ITA , 27B . 000488 : , AAX , C77357 . 000489 : ,WTC,Г Y C. 000490 : , ATX , BUF27 . 000491 : ,XTA,SAVAC 000492 : : , 24 , 02000B . 000493 : 14, ATX , . 000494 : : ,24,2003B. 000495 : ,MOD,101B. 000496 : : ,24,2000B. 000497 : 14, ATX , . 000498 : : , 24 , 02003B . 000499 : ,WTC,Г Y C. 000500 : ,XTA,REGSCAL. 000501 : ,AAX,BIT46. 000502 : ,UZA,PUSH. 000503 : 14,VZM,NO DIF. 000504 : 14,UTM,-1. 000505 : 14,VZM,DIF. 000506 : PUSH:,WTC,Г Y C. 000507 : ,XTA,REGSCAL. 000508 : PUSH1:,BSS,. 000509 : ,AAX,BIT4. 000510 : 14,VTM,-3 000511 : ,U1A,TOMEM. 000512 : C YCTAHOBKA CBEPTKИ 'ЗAПИCЬ ЧИCЛA' ДЛЯ HEЧETHOГO ШИФPA 000513 : , MOD , 00107B . 000514 : TOMEM:,BSS, 000515 : 13,MTJ,16 000516 : ,CALL,SAVEMOD 000517 : ДOBЫT:,BSS, .ДOBЫTAЛKИBAHИE(ЧACTИЧHO 000518 : ,ATX,1 .BЫTOЛKHYЛO MAЛOE YПPЯTЫBAHИE) 000519 : 14,VLM,ДOBЫT 000520 : ,WTC,Г Y C. 000521 : , XTA , BUF27 . 000522 : , ATI , 27B . 000523 : ,UJ,OUTMACRO 000524 : DIF:,WTC,Г Y C. 000525 : ,XTA,REGSCAL. 000526 : ,AOX,BIT4. 000527 : ,AEX,BIT4. 000528 : SETR:,WTC,Г Y C. 000529 : ,ATX,REGSCAL. 000530 : ,UJ,PUSH1. 000531 : NO DIF:,WTC,Г Y C. 000532 : ,XTA,REGSCAL. 000533 : ,AOX,BIT4. 000534 : ,UJ,SETR. 000535 : ,END, 000536 : MACRO76:,NAME,. 000537 : C 000538 : C ЭKCTPAKOД ПPOИЗBOЛЬHЫX ФИЗИЧECKИX ДEЙCTBИЙ 000539 : C 000540 : M:,EQU,100B. 000541 : REGSCAL:,EQU,M. 000542 : * И П Д :LC,BLOCK,XNF,XNFM 000543 : NMAT1:,WEQ,XNF 000544 : ERRMACRO:,SUBP,. 000545 : ERTEXT:,EQU,17.HOMEP ДИAГHOCTИKИ 000546 : *677:B,BLOCK,BITS,BIT48. 000547 : BITPHYS:,EQU,BIT48. 000548 : *YCЫ:LC,BLOCK,Г Y C. 000549 : SMASAV:LC,BLOCK,(3),SAVI15,SAVI14,SAVI13. 000550 : Д H З:,LC,1. 000551 : TODAY:,LC,1 000552 : TMATH:,EQU,30B. 000553 : C37:,LC,1. 000554 : C1777:,LC,1. 000555 : C77357:,LC,1 000556 : CALL1MEM:,SUBP,. 000557 : OUTMACRO:,SUBP, 000558 : ,ATX,SMASAV. 000559 : 13,MTJ,16 000560 : ,CALL,SAVEMOD 000561 : ,ITA,16 000562 : ,ATI,13 000563 : EMULAT:,SUBP,.ИHTEPПPETATOP 000564 : :,XTA,*+1. 000565 : ,UJ,EMULAT. 000566 : :,,2.БИT ЭK76 000567 : ,Z00,*+1.BOЗBPAT 000568 : 14,VZM,PHOFF. 000569 : 14,UTM,-1. 000570 : 14,VZM,PHON. 000571 : 14,UTM,1. 000572 : ,XTA,3. 000573 : ,WTC,Д H З. 000574 : ,APX,BITS-NMAT1. 000575 : ,WTC,Г Y C. 000576 : ,AOX,REGSCAL. 000577 : ,AAX,BITPHYS. 000578 : ,UZA,ЗAПPEЩ. 000579 : ,XTA,RET. 000580 : RET:,UJ,CALL1MEM. 000581 : ,Z00,*+1. 000582 : ,BSS,. 000583 : ,ATX,WS. 000584 : ,ITA,14. 000585 : ,AAX,C1777. 000586 : ,AOX,WS. 000587 : ,ATI,14.ФИЗ. AДPEC ПY 000588 : ,XTA,SMASAV. 000589 : 14,UJ,. 000590 : PHOFF:,BSS,. 000591 : ,WTC,Г Y C. 000592 : ,XTA,REGSCAL. 000593 : ,AOX,BITPHYS. 000594 : ,AEX,BITPHYS. 000595 : MR:,WTC,Г Y C. 000596 : ,ATX,REGSCAL. 000597 : ,MTJ,27B 000598 : ,UJ,OUTMACRO 000599 : PHON:,AEX,=30534576 16340112. 000600 : ,U1A,ЗAПPEЩ 000601 : ,WTC,Г Y C. 000602 : ,XTA,REGSCAL. 000603 : ,AOX,BITPHYS. 000604 : ,UJ,MR. 000605 : ЗAПPEЩ:,BSS,. 000606 : C--------- ЗAДAЧE HE PAЗPEШEHO ПOЛЬЗOBATЬCЯ ЭTИM ЭKCTPAKOДOM 000607 : :14,VTM,576B. 000608 : BADMACRO:,ENTRY,. 000609 : C 000610 : C......... BXOД ПO ПEЧATИ OБ OTCYTCTBYEЩEM(ЗAПPEЩEHHOM) 000611 : C ЭKCTPAKOДE 000612 : C 000613 : ,ITA,15. 000614 : ,ATX,SAVI15. 000615 : ,ITA,14. 000616 : ,ATX,SAVI14. 000617 : ,ITA,13. 000618 : ,ATX,SAVI13. 000619 : :14,VTM,ERTEXT. 000620 : ,UJ,ERRMACRO. 000621 : MACRO63:,ENTRY,. 000622 : C 000623 : C ЭKCTPAKOД ЧTEHИЯ ФИЗ. ЯЧEЙKИ 000624 : C 000625 : :,XTA,*+1. 000626 : ,UJ,EMULAT. 000627 : :,001,.БИT ЭK63 000628 : ,Z00,*+1.BOЗBPAT 000629 : ,ITA,27B 000630 : ,AAX,C77357 000631 : ,ATI,27B 000632 : 13,MTJ,16 000633 : ,CALL,SAVEMOD 000634 : 14,UTM,-4 000635 : 14,VZM,DATE1 000636 : 14,XTA,4B 000637 : ,UJ,MACRET1 000638 : DATE1:,BSS,.ПOДMEHA 43-24 PAЗPЯДOB 4 T.P. 000639 : ,XTA,4B 000640 : ,AAX,=7600 0000 7777 7777 000641 : ,AOX,TODAY 000642 : MACRET1:,ATX,SMASAV 000643 : ,UJ,OUTMACRO 000644 : WS:,BSS,1. 000645 : ,END,. 000646 : MACRO60 : ,NAME, 000647 : *YCЫ:LC,BLOCK,Г Y C. 000648 : *102:B,BLOCK,S15,S14,S27,P15 000649 : Д H З :LC,BLOCK,(1),BITJ 000650 : SCEM:,EQU,83 000651 : I60/74:,EQU,85 000652 : NRS60*:,SUBP, 000653 : EMULAT:,SUBP, 000654 : NRSINPUT:,SUBP,. 000655 : NRESCALL:,SUBP,. 000656 : EFSMNRS:,SUBP, 000657 : YBBKNRS:,SUBP, 000658 : NR405 :,SUBP, 000659 : NRCDC405:,SUBP, 000660 : FSBASENR:LC,BLOCK,BASINPUT,BASE405 000661 : FSCONTR:,SUBP, 000662 : ADOFACC:LC,BLOCK,(2),CNUMT 000663 : C2004:,LC,1 000664 : C14:,LC,1. 000665 : SMASAV:LC,BLOCK,(4),SAVI14 000666 : * И П Д :LC,BLOCK,XNF,XNFM(4) 000667 : ,CONT,XNC,XNCM(2) 000668 : ,CONT,Ш/CЛYЖ,Ш/FULL 000669 : NUSE1:,WEQ,XNF 000670 : * И П K 1 :LC,BLOCK,PRTSTAT 000671 : C77777:,LC,1. 000672 : C77:,LC,1 000673 : *677:B,BLOCK,BITS 000674 : ,CONT,B48,B47,B46,B45,B44,B43 000675 : ,CONT,B42,B41,B40,B39,B38,B37 000676 : ,CONT,B36,B35,B34,B33,B32,B31 000677 : ,CONT,B30,B29,B28,B27,B26,B25 000678 : ,CONT,B24,B23,B22,B21,B20,B19 000679 : ,CONT,B18,B17,B16,B15,B14,B13 000680 : ,CONT,B12,B11,B10,B9,B8,B7,B6 000681 : ,CONT,B5,B4,B3,B2,B1 000682 : C 000683 : БAЗAПPИЗ:LC,BLOCK,BASEFLAG,AKЖПM,З1BШГ 000684 : ,CONT,БЫЛ ДK,BЫKЛ Д,БЫЛA KП 000685 : ,CONT,ЗB CBOЯ,ЗB ЗAHЯTA,KЖПM 000686 : ,CONT,CЧKЖПM,HOMEP BY 000687 : ,CONT,CЧПPOПK,ЧПCTPOK 000688 : ,CONT,AПBБЩ,AПHБЩ 000689 : ,CONT,TPЗ2OTЗ1,KПOДBБЩ 000690 : ,CONT,KПOДHБЩ,AKЖOБPЗ1 000691 : ,CONT,BY HE PAБ,PЯЗ1,CЧ OШ K 000692 : ,CONT,CЧ KBЫKBY,CБOЙ BY 000693 : ,CONT,HET KAPT,ПPOД 000694 : DN405 :,EQU,ЗB ЗAHЯTA 000695 : KД :,EQU,CЧK ЖПM 000696 : STARENDF:,EQU,HOMEP BY 000697 : ПPOBYNRS:,SUBP,. 000698 : RETURN : ,SUBP, 000699 : NEWTA*:,SUBP,. 000700 : STARTJOB:,SUBP,. 000701 : C 000702 : VJ:,EQU,15 000703 : C 000704 : KЛЮЧCЧBP:,LC,1 000705 : C 000706 : C--- ПPИЗHAK HAЛИЧИЯ CDC405 000707 : C 000708 : TYPEMT:,SUBP, 000709 : FL405:,EQU,TYPEMT+4 000710 : C 000711 : C---------------------------------- 000712 : C 000713 : :,XTA,*+1 000714 : ,UJ,EMULAT 000715 : :,Z01, 000716 : ,Z00,*+1 000717 : :,ITA,15 000718 : ,WTC,Г Y C 000719 : 15,VTM,S15 000720 : ,ITS,14 000721 : ,ITS,27B 000722 : ,XTS,Ш/FULL 000723 : ,AAX,BITJ 000724 : ,UZA,RIW 000725 : C--- ПPOБA ПEPEXBATA Э060 : 000726 : 15,XTA,SCEM-P15 000727 : ,AAX,B40 000728 : ,U1A,ПEP60 000729 : C--- ПOBЫШEHИE ПPИOPИTETA : 000730 : ,WTC,ДHЗ 000731 : ,XTA,PRTSTAT-NUSE1 000732 : ,AAX,C77 000733 : ,WTC,ДHЗ. 000734 : ,ATX,PRTSTAT-NUSE1. 000735 : C--- ЧTEHИE KOMAHДЫ 060 : 000736 : RIW:,ITA,32B 000737 : ,ATI,14 000738 : 15,XTA,S27-P15 000739 : ,AAX,C14 000740 : ,UZA,MAT 000741 : ,UTC,3 000742 : MAT:,24,2000B 000743 : 14,XTA,-1 000744 : :,24,2003B 000745 : ,ATX,BASEFLAG 000746 : ,AEX,B1 000747 : ,AAX,C77777 000748 : ,UZA,CALL NR.FSM 000749 : ,XTA,FL405 000750 : ,UZA,CALLNR.HET CDC405 000751 : ,AAX,7 000752 : ,U1A,CALL NR.БЛOKИP. 000753 : ,UTC,NR405-NRS60* 000754 : Э60/MБ:,UTC,NRS60*-NRSINPUT 000755 : CALL NR:14,VTM,NRSINPUT 000756 : ,ITA,14.ИMЯ 000757 : ,ASN,64-24.HEPEЗИДEHTA 000758 : ,AOX,=15.БAЗ.PEГ. 000759 : ,STX,INF. = 13 000760 : ,STI,27B 000761 : ,STI,14 000762 : ,ATI,15 000763 : ,XTA,INF 000764 : ,UJ,NRESCALL 000765 : ПEP60:15,XTA,I60/74-P15 000766 : ,ASN,64+15 000767 : ,U1A,Э60/MБ 000768 : 13,VTM,50000B 000769 : ,ITA,32B 000770 : 13,MTJ,32B 000771 : ,ATI,13 000772 : 15,XTA,S15-P15 000773 : ,ATI,15 000774 : ,MTJ,27B 000775 : 2,IJ, 000776 : C 000777 : C--- OT ЗAПPOCA ИЛИ ПPИKAЗA "B" : 000778 : C 000779 : ЗAПYCK:,ENTRY, 000780 : ,XTA,FL405 000781 : ,UZA,ЗAПYBBK 000782 : ,AAX,7 000783 : ,U1A,ЗAПYBBK 000784 : ЗAП405:,BSS, 000785 : ,XTA, 000786 : ,ATX,BY HEPAБ 000787 : ЗAПYBBK:,BSS, 000788 : ,XTA,ЗB ЗAHЯTA. 000789 : ,UZA,STARTJOB 000790 : ,XTA,BYHEPAБ. 000791 : ,UZA,RETURN.BY PAБOTAET 000792 : ,XTA,. 000793 : ,ATX,ПPOД. 000794 : ,ATX,З1 B ШГ. 000795 : ,ATX,CБOЙ BY. 000796 : ,ATX,BYHEPAБ. 000797 : ,ATX,БЫЛA K П. 000798 : ,ATX,CЧ OШ K. 000799 : ,XTA,B30 000800 : ,UJ,NEWTA*. 000801 : ПPOB BY:,ENTRY, 000802 : ,XTA,KЛЮЧCЧBP. 000803 : ,WTC,FSBASENR 000804 : 15,VTM, 000805 : 15,U1A,ПPOBYNRS-EFSMNRS 000806 : ,XTA,CNUMT 000807 : 15,U1A,FSCONTR-EFSMNRS 000808 : ,XTA,FL405 000809 : 13,UZA, 000810 : ,AAX,7 000811 : ,AOX,KД 000812 : 13,U1A, 000813 : ,XTA,=2200 000814 : VJ,VJM,TOCDC405 000815 : ,AEX,STARENDF 000816 : 13,UZA,.OБЫЧHO ЗДECЬ BOЗBPAT B ITIMEB10 000817 : C ------------------------ 000818 : ,AEX,STARENDF 000819 : ,ATX,STARENDF 000820 : ,XTA,B11 000821 : VJ,VJM,TOCDC405 000822 : 13,U1A, 000823 : ,XTA,C2004 000824 : VJ,VJM,TOCDC405 000825 : 13,UZA, 000826 : ,UJ,ЗAП405 000827 : TOCDC405:,ENTRY, 000828 : TOCDC405:,BSS, 000829 : ,EXT,145B 000830 : ,036,.ЗAДEPЖKA 6 MKCEK 000831 : ,ATI, 000832 : ,EXT,4101B 000833 : ,AAX,B11 000834 : VJ,UJ, 000835 : INF:,BSS,1 000836 : ,END, 000837 : ZOO60:,NAME, 000838 : C HEPEЗИДEHT BBOДA C MБ/MЛ ПO ,*60, 000839 : C B KAЧECTBE БYФEPA ИCПOЛЬЗYETCЯ 000840 : C 45 ФOPMAЛЬHЫЙ ЛИCT ЗAДAЧИ 000841 : *YCЫ:LC,BLOCK,ГYC 000842 : S27/70:,EQU,104B 000843 : *535:B,BLOCK,AC,SR,AR,R33 000844 : ,CONT,R32,R27,R16,R15 000845 : ,CONT,R14,R13,R12,R11 000846 : ,CONT,R10,R 9,R 8,R 7 000847 : ,CONT,R 6,R 5,R 4,R 3 000848 : ,CONT,R 2,R 1 000849 : WORK1:,EQU,R1 000850 : IW72 :,EQU,R2 000851 : IW70 :,EQU,R3 000852 : *677:B,BLOCK,BITS 000853 : ,CONT,B48,B47,B46,B45,B44,B43 000854 : ,CONT,B42,B41,B40,B39,B38,B37 000855 : ,CONT,B36,B35,B34,B33,B32,B31 000856 : ,CONT,B30,B29,B28,B27,B26,B25 000857 : ,CONT,B24,B23,B22,B21,B20,B19 000858 : ,CONT,B18,B17,B16,B15,B14,B13 000859 : ,CONT,B12,B11,B10,B 9,B 8,B 7 000860 : ,CONT,B 6,B 5,B 4,B 3,B 2,B 1 000861 : NRESOFF:,SUBP, 000862 : NRS60*: ,SUBP, 000863 : BOCИПД:,SUBP, 000864 : RETURN:,SUBP, 000865 : MACRO70S:,SUBP, 000866 : C77777:,LC,1 000867 : I60/74:,EQU,85 000868 : SCEM:,EQU,83 000869 : C14:,LC,1 000870 : C13:,LC,1 000871 : LR:,EQU,7.MЛ.ИCП.PEГ 000872 : R1*2:,EQU,R1+2 000873 : E/FLAG:,EQU,AR 000874 : ERRMACRO:,SUBP, 000875 : FULSAV:,SUBP, 000876 : C====================================== 000877 : C CTPYKTYPA ЯЧEЙKИ ИПЗ 'I60/74': 000878 : C...................................... 000879 : C P48 - ПEPBOE OБPAЩEHИE K Э60(=1) 000880 : C P47 - =1 - KOHЧИЛИCЬ KAPTЫ 000881 : C PP.46-31 - YKAЗATEЛЬ MЛ/MБ 000882 : C (10 P.ПOД N ЗOHЫ) 000883 : C PP.30-16 - CЧETЧИK ПO ЛИCTY 000884 : C PP.15- 1 - AДP.ПEPEXBATA ЭK74 000885 : C==================================== 000886 : C BBOДЯTCЯ 'BINARY' KAPTЫ 000887 : C..................................... 000888 : C 000889 : C 000890 : C CЧETЧИK ПO ЛИCTY ФOPMИPYETCЯ TAK: 000891 : C -2000B, 000892 : C ПOCKOЛЬKY TAKOЙ CЧETЧИK 000893 : C ИCПOЛЬЗYETCЯ B MOHИTOPHOЙ CИCT. 000894 : C B LC 'KCOUNT*' 000895 : C====================================== 000896 : B:13,REL,B 000897 : ,WTC,ГYC 000898 : 15,VTM,AC 000899 : ,ITA,32B 000900 : ,ATI,33B 000901 : 13,MTJ,14 000902 : 13,VJM,FULSAV+1 000903 : 14,MTJ,13.ПO I15 000904 : ,XTA,C13 000905 : ,ATI,27B 000906 : : ,24,3 000907 : ,WTC,ГYC 000908 : 7,VTM, 000909 : 7,XTA,I60/74 000910 : ,AAX,B47 000911 : 7,ATX,E/FLAG 000912 : 7,XTA,I60/74 000913 : ,ARX, 000914 : ,U1A,NO FIRST 000915 : C ПEPBOE OБPAЩEHИE. 000916 : C BOЗBPAT YKAЗATEЛEЙ HA 1 KAPTY 000917 : ,ASN,64+15 000918 : ,AAX,C77777 000919 : ,ARX,=77747.-31B 000920 : ,ATI,9 000921 : ,AAX,C77777 000922 : ,ARX,=2000 000923 : ,AAX,=70 0000 000924 : ,U1A,READ/1.I9.GE.-1024 000925 : 9,UTM,2000B 000926 : 7,XTA,I60/74 000927 : ,ASN,64-2 000928 : ,AUX,=77 1777 000929 : ,NTR,3 000930 : ,A-X,=1 000931 : 7,ATX,WORK1 000932 : ,ARX,B16 000933 : ,AAX,B18 000934 : ,U1A,WRIW.C MЛ 000935 : 7,XTA,WORK1 000936 : ,AAX,=77 0037 000937 : 7,ATX,WORK1 000938 : WRIW:,BSS, 000939 : 7,XTA,I60/74 000940 : ,AAX,C77777.CЧ ПO ЛИCTY 000941 : 7,ATX,I60/74.B 9 И.P. 000942 : 7,XTA,WORK1 000943 : ,APX,=3 77 1777 000944 : 7,AOX,I60/74 000945 : 7,ATX,I60/74 000946 : READ/1:,BSS, 000947 : C ПOXOД ЗA ЛИCTOM 000948 : C И ЧTEHИE 000949 : ,ITA, 000950 : 7,ATX,E/FLAG 000951 : 14,VJM,TO MEMORY 000952 : 14,VJM,OБMEH 000953 : ,UJ,BEG/E 000954 : NO FIRST:,BSS, 000955 : 7,XTA,I60/74 000956 : ,ASN,64+15 000957 : ,ATI,9 000958 : 14,VJM,TO MEMORY 000959 : BEG/E:,BSS, 000960 : 7,XTA,R14 000961 : ,UZA,REFUSE.,*60,0 000962 : ,ATI,10 000963 : 14,VTM,*2/1 000964 : 9,VZM,NEW LIST 000965 : *2/1:,24, 000966 : 8,UTC, 000967 : 9,XTA,1024 000968 : : ,24,3 000969 : ,AEX,COD 000970 : ,U1A,HET KAPT 000971 : 9,UTM,1 000972 : 12,VTM,-23 000973 : C ПEPEПИCЬ KAPTЫ 000974 : TRCA:,BSS, 000975 : 14,VTM,*2/3 000976 : 9,VZM,NEW LIST 000977 : *2/3:,24, 000978 : 8,UTC, 000979 : 9,XTA,1024 000980 : : ,24,3 000981 : 7,WTC,R27 000982 : : ,24, 000983 : 10,UTC, 000984 : 12,ATX,23 000985 : : ,24,3 000986 : 9,UTM,1 000987 : 12,VLM,TRCA 000988 : 7,WTC,R27 000989 : : ,24, 000990 : 10,XTA, 000991 : : ,24,3 000992 : ,AEX,ДK 000993 : ,UZA,DISPEND 000994 : END:12,VJM,OFFMEM 000995 : ,UJ,EXIT 000996 : DISPEND:,BSS, 000997 : 12,VTM,-22 000998 : IFZERO:,BSS, 000999 : 7,WTC,R27 001000 : : ,24, 001001 : 10,UTC, 001002 : 12,XTA,23 001003 : : ,24,3 001004 : ,U1A,END 001005 : 12,VLM,IFZERO 001006 : *DK:,BSS, 001007 : C ПOДCOBЫBAEM ДИCП.KOHEЦ. 001008 : 14,VTM,-23 001009 : ,XTA,B40 001010 : TRDE:7,WTC,R27 001011 : : ,24, 001012 : 10,UTC, 001013 : 14,ATX,23 001014 : : ,24,3 001015 : 14,VLM,TRDE 001016 : ,ITA, 001017 : 7,ATX,R14 001018 : ,UJ,END 001019 : HET KAPT:7,XTA,E/FLAG 001020 : ,AEX,B47 001021 : 7,ATX,E/FLAG 001022 : ,U1A,*DK 001023 : C BINARY-KAPTЫ ДABHO 001024 : C KOHЧИЛИCЬ 001025 : C ПOДГOTOBKA K ПOXOДY HA 001026 : C ERRMACRO 001027 : 12,VJM,OFF MEM 001028 : : ,24,2003B 001029 : 14,VTM,AC-R7 001030 : TRSAV:,BSS, 001031 : 7,UTC,AC 001032 : 14,XTA,R7 001033 : 7,UTC, 001034 : 14,ATX,R7 001035 : 14,VLM,TRSAV 001036 : ,WTC,ГYC 001037 : 15,VTM,R12 001038 : ,STI, 001039 : 14,VJM,BOCИПД 001040 : 14,VTM,ERRTEXT 001041 : ,UJ,ERRMACRO 001042 : C====================================== 001043 : EXIT:,BSS, 001044 : C BOCCTAHOBЛEHИE PEГИCTPOB 001045 : C И BЫXOД 001046 : : ,24,2003B 001047 : ,WTC,ГYC 001048 : 15,VTM,R1*2-LR 001049 : 14,VTM,LR-12 001050 : ,STI, 001051 : //:14,STI,12 001052 : 14,VLM,// 001053 : 14,VTM,RETURN 001054 : ,UJ,BOCИПД 001055 : C..................................... 001056 : REFUSE:,BSS, 001057 : C OTKAЗ OT HEPEЗИДEHTA 001058 : 12,VJM,OFFMEM 001059 : ,ITA,13 001060 : ,ARX,IW/REF 001061 : ,UJ,NRESOFF 001062 : IW/REF:,Z00,NRS60* 001063 : ,Z00,EXIT-B 001064 : C====================================== 001065 : C ПOДПPOГPAMMЫ ДЛЯ OБЛEГЧEHИЯ 001066 : C ЖИЗHИ 001067 : C====================================== 001068 : TO MEMORY:,BSS, 001069 : C 001070 : C П/П ПOИCKA ДOCTATOЧHO YДAЛEHHOГO 001071 : C OT AИCП ,*60, MAT.ЛИCTA И 001072 : C ПEPEKИДЫBAHИЯ TYДA 45 ФOPM.ЛИCTA 001073 : C HA BЫXOДE ИMEEM: 001074 : C I8=AHAЧ ЛИCTA; CYMMATOP=IW70- 001075 : C -ИHФ.CЛOBO ЧTEHИЯ B ЭTOT ЛИCT 001076 : C BЫXOД ПO I14 001077 : 7,XTA,R14 001078 : ,AAX,B15 001079 : ,AEX,B15 001080 : ,AOX,=34000.16 ЛИCT 001081 : ,ATI,8 001082 : ,ASN,64-26 001083 : ,AOX,=:10 0045 77 001084 : 7,ATX,IW72 001085 : ,ITA,14 001086 : 7,ATX,WORK1 001087 : 7,XTA,SCEM 001088 : ,AAX,B25 001089 : 7,AOX,R9 001090 : 7,ATX,R9 001091 : ,AAX,B25 001092 : 7,AEX,SCEM 001093 : 7,ATX,SCEM 001094 : 14,VTM,13B 001095 : 14,MTJ,27B 001096 : 7,*72,IW72 001097 : 7,XTA,I60/74 001098 : ,AUX,=3 77 1777 001099 : ,AOX,B40 001100 : 7,ATX,IW70 001101 : 7,XTA,IW72 001102 : ,AAX,=:0077 001103 : ,ASN,64+6 001104 : 7,AOX,IW70 001105 : 7,ATX,IW70 001106 : 7,WTC,WORK1 001107 : ,UJ, 001108 : C====================================== 001109 : OБMEH:,BSS, 001110 : C........ 14,VJM,OБMEH ............ 001111 : : ,24,2003B 001112 : 14,MTJ,32B 001113 : 14,VTM,13B 001114 : 14,MTJ,27B 001115 : ,ITA,27B 001116 : 7,ATX,S27/70 001117 : 7,XTA,IW70 001118 : ,UJ,MACRO70S 001119 : C====================================== 001120 : NEWLIST:,BSS, 001121 : C П/П ЧTEHИЯ CЛEДYЮЩEГO TPAKTA 001122 : C (ЗOHЫ) И ПEPEHACTPOЙKИ YKA- 001123 : C ЗATEЛEЙ , T.E.I9 И IW70 001124 : C........... 14,VJM,NEWLIST ........... 001125 : C 001126 : 7,XTA,IW70 001127 : ,ARX,B1 001128 : 7,ATX,IW70 001129 : ,ARX,B16 001130 : ,AAX,B18 001131 : ,U1A,ML/READ.MЛ OБMEH 001132 : 7,XTA,IW70 001133 : ,ARX,C7740 001134 : ,AOX,C7740 001135 : ,AEX,C7740 001136 : 7,ATX,IW70 001137 : NL/1:9,VTM,-1024 001138 : ,UJ,OБMEH 001139 : ML/READ:7,XTA,IW70 001140 : ,UJ,NL/1 001141 : C====================================== 001142 : OFFMEM:,BSS, 001143 : C П/П ПEPEKИДЫBAHИЯ ЛИCTOB 001144 : C И 'OБHOBЛEHИЯ' I60/74 001145 : C ПEPEД BЫXOДOM 001146 : C ....... 12,VJM,OFFMEM ... 001147 : C 001148 : 14,VTM,13B 001149 : 14,MTJ,27B 001150 : 7,*72,IW72 001151 : 7,XTA,I60/74 001152 : ,AAX,C77777 001153 : 7,ATX,I60/74 001154 : 7,XTA,IW70 001155 : ,AAX,=77 7777 001156 : ,APX,=3 77 1777 001157 : 7,AOX,I60/74 001158 : 7,ATX,I60/74 001159 : ,ITA,9 001160 : ,ASN,64-15 001161 : 7,AOX,I60/74 001162 : ,AOX,B48 001163 : ,AEX,B48 001164 : 7,AOX,E/FLAG 001165 : 7,ATX,I60/74 001166 : 7,XTA,R9 001167 : ,AAX,B25 001168 : 7,AOX,SCEM 001169 : 7,ATX,SCEM 001170 : 12,UJ, 001171 : C=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= 001172 : C KOHCTAHTЫ 001173 : C 001174 : COD:,LOG,77751 001175 : C7740:,LOG,7740 001176 : C ЭTY KOHCTAHTY MOЖHO MEHЯTЬ 001177 : ДK:,OCT,0005 3644 1245 3400. 001178 : C $ДK$(BMECTO ДИCП.KOHЦA;YПП) 001179 : C 001180 : ERRTEXT:,GOST,10HMAЛO KAPT'231' 001181 : ,END, 001182 : YBBKNRS:,NAME,. 001183 : C********* OCHOBHAЯ 4ACTЬ ЭKCTPAKOДA BBOДA 001184 : C 001185 : C 001186 : *TAKCA:LC,BLOCK,(3),EД BPEM 001187 : SELECT:,SUBP,. 001188 : FSBASENR:LC,BLOCK,BBL,(1). 001189 : NRSINPUT:,SUBP, 001190 : FULSAV : ,SUBP, 001191 : RETURN : ,SUBP, 001192 : CLTASK : ,SUBP, 001193 : PERMIR : ,SUBP, 001194 : CLOMIR : ,SUBP, 001195 : NEWTA : ,SUBP, 001196 : CL OPER:,SUBP, 001197 : TTPRINT : ,SUBP, 001198 : ERRPRI : ,SUBP, 001199 : MACRO74 : ,SUBP, 001200 : TA1M60:,SUBP,. 001201 : TA2M60:,SUBP,. 001202 : C 001203 : C... MACCИBЫ, COBMEЩEHHЫE CO STARTDD 001204 : C 001205 : STARTDD:,SUBP, 001206 : BUF1M60:,EQU,STARTDD 001207 : BUF2M60:,EQU,BUF1M60+25 001208 : IF1M60:,EQU,BUF1M60+1 001209 : IF2M60:,EQU,BUF2M60+1 001210 : БYФHБЩ:,EQU,BUF2M60+25 001211 : БYФBБЩ:,EQU,БYФHБЩ+24 001212 : CBOБOДHO:,EQU,БYФBБЩ+168 001213 : C 001214 : M:,EQU,100B. 001215 : XPMS27:,EQU,M+4. 001216 : MOFFNRS:,LC,1. 001217 : KЛЮЧCЧBP:,LC,1. 001218 : SCALES:LC,BLOCK,PRT MASK,(2) 001219 : ,CONT,(2),SC/YBBK 001220 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 001221 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 001222 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 001223 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 001224 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 001225 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 001226 : FULWOR : ,LC,1 001227 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 001228 : SMASAV:LC,BLOCK, 001229 : ,CONT, SAVAC 001230 : ,CONT, SAVSR 001231 : ,CONT, SAVAR 001232 : ,CONT, SAVI15 001233 : ,CONT, SAVI14 001234 : ,CONT, SAVI13 001235 : ,CONT, SAVMIR 001236 : ,CONT, SAVS16 001237 : CORRADR : ,SUBP, 001238 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,(2),M1RDSC,STCLTA. 001239 : XPM:I,BLOCK,XPM15,XPM14,XPM13,XPM26,XPM23,AБYФM 001240 : C77357:,LC,1. 001241 : C13:,LC,1 001242 : DISREG:LC,BLOCK,C2013 001243 : BISTIME:,EQU,110B 001244 : БAЗAПPИЗ:LC,BLOCK,(1),AKЖПM,З1BШГ 001245 : ,CONT,БЫЛ ДK,BЫKЛ Д,БЫЛA KП 001246 : ,CONT,ЗB CBOЯ,ЗB ЗAHЯTA,KЖПM 001247 : ,CONT,CЧKЖПM,HOMEP BY 001248 : ,CONT,CЧПPOПK,ЧПCTPOK 001249 : ,CONT,AПBБЩ,AПHБЩ 001250 : ,CONT,TPЗ2OTЗ1,KПOДBБЩ 001251 : ,CONT,KПOДHБЩ,AKЖOБPЗ1 001252 : ,CONT,BY HE PAБ,PЯЗ1,CЧ OШ K 001253 : ,CONT,CЧ KBЫKBY,CБOЙ BY 001254 : ,CONT,HET KAPT,ПPOД 001255 : C77777:,LC,1 001256 : C777:LC,BLOCK,TPИ 777 001257 : I7:,EQU,15. 001258 : OUTMACRO:,SUBP, 001259 : EFSMNRS:,SUBP,. 001260 : CLANEWTA:,SUBP,. 001261 : ЗAKPЗM:,EQU,CLANEWTA. 001262 : B:,EQU,EFSMNRS. 001263 : NRESOFF:,SUBP,. 001264 : ADOFACC:LC,BLOCK,(2),SNTINFSM,(1) 001265 : SNT1:,EQU,12B.ДHЗ TA1M60 001266 : SNT2:,EQU,23B.ДHЗ TA2M60 001267 : IF1O:,EQU,IF1M60-B.ИПЗ 1 OTH. 001268 : IF2O:,EQU,IF2M60-B.ИПЗ 2 OTH. 001269 : *STATBUF:LC,BLOCK,(7),CTAT BB. 001270 : 13,REL,B. 001271 : C14:,LC,1 001272 : ,XTA,SAVI13. 001273 : ,ATX,RET13/7. 001274 : , XTA , ЗBЗAHЯTA . 001275 : , U1A , ЗB ЗAH Э . 001276 : 14, VZM , A Э 0 . 001277 : ,ATX,MOFFNRS. 001278 : , XTA , Д H З . 001279 : , ATX , ЗBЗAHЯTA . 001280 : , ATX , ЗB CBOЯ . 001281 : ,XTA,AБYФBБЩ 001282 : ,ARX,BBL. 001283 : , ATX , AKЖПM . 001284 : , XTA , . 001285 : ,ATX,CБOЙ BY. 001286 : , ATX , БЫЛ ДK . 001287 : , ATX , БЫЛA K П . 001288 : , ATX , KЖПM . 001289 : , XTA ,BIT3 . 001290 : , ATX , BЫKЛ Д . 001291 : A Э HE 0:,BSS,. 001292 : ,XTA,SAVI14. 001293 : ,ATX,AБYФM. 001294 : , ITA , 32B . 001295 : ,ATX,XPM26 001296 : ,ITA,27B. 001297 : ,ATX,XPM23. 001298 : 14, VTM , CONMAC60 . 001299 : 14, MTJ , 33B . 001300 : ,XTA,DISREG. 001301 : , ATI , 27B . 001302 : , XTA , HETKAPT . 001303 : , U1A , BЫX AЦПY . 001304 : , XTA ,BIT30 . 001305 : , AOX , RDSCAL . 001306 : , ATX , RDSCAL . 001307 : ,XTA,C2013 001308 : C ПOДГOTOBKA PEЖИMA ДЛЯ ЗAДAЧ BBOДA. 001309 : 13,ATX,IF1O+5 001310 : 13,ATX,IF2O+5 001311 : ,ITA,13. 001312 : C БAЗA ДЛЯ ЗAДAЧ B ИX 7-OЙ MOДИHИKATOP. 001313 : 13,ATX,IF1O+I7 001314 : 13,ATX,IF2O+I7 001315 : ,ATX,SAVI13. 001316 : C HOPMИPOBKA BXOДOB ДЛЯ ЗAДAЧ. 001317 : ,ARX,BEG1M60. 001318 : 13,ATX,IF1O+3 001319 : ,ITA,13. 001320 : ,ARX,BEG2M60. 001321 : 13,ATX,IF2O+3 001322 : C BCTABKA B *YCЫ CCЫЛOK HA ИПЗ 001323 : C ПEPBOЙ И BTOPOЙ ЗAДAЧ BBOДA. 001324 : ,ITA,13.БAЗA 001325 : ,ARX,FOR*YC1.ЗAГOTOBKA YCA 1 001326 : ,ATX,*YCЫ+SNT1 001327 : ,ITA,13 001328 : ,ARX,FOR*YC2 001329 : ,ATX,*YCЫ+SNT2 001330 : 13,VTM,NEWTA 001331 : ,UJ,CL OPER 001332 : A Э 0:,BSS,. 001333 : ,WTC,BBL. 001334 : 13,VTM,. 001335 : ,WTC,Г Y C. 001336 : ,XTA,XPMS27. 001337 : ,AAX,C77357. 001338 : ,ATI,27B. 001339 : ,XTA,SNTINFSM. 001340 : ,U1A,M60RET. 001341 : ,ITA,13 001342 : ,ARX,INFFORRT. 001343 : ,UJ,NRESOFF. 001344 : M60RET:,BSS, 001345 : ,XTA,RET13/7. 001346 : ,ATX,SAVI13 001347 : ,ATX,SAVAC 001348 : ,UJ,OUTMACRO 001349 : ЗB ЗAH Э: , AEX , Д H З . 001350 : , UZA , Э TOЙЖEЗ . 001351 : 14,VZM,A Э 0. 001352 : 15, VTM , TTEKCT . 001353 : , ITA , 15 . 001354 : 14, VTM , MACRO74 . 001355 : , UJ , TTPRINT . 001356 : Э TOЙЖEЗ:14, V1M , A Э HE 0 . 001357 : ,XTA,KЛЮЧCЧBP. 001358 : ,UZA,A Э 0 /1. 001359 : ,XTA,ЗB ЗAHЯTA. 001360 : ,ATX,MOFFNRS. 001361 : ,XTA,DISREG. 001362 : ,ATI,27B. 001363 : ,ITA,13. 001364 : ,ATX,SAV I13. 001365 : 14,VTM,A Э 0 /1. 001366 : 14,MTJ,33B. 001367 : ,UJ,CLANEWTA. 001368 : A Э 0 /1:,BSS,. 001369 : ,XTA,. 001370 : ,ATX,ЗBЗAHЯTA. 001371 : ,ATX,HETKAPT. 001372 : ,UJ,A Э 0. 001373 : C BTOPAЯ ЧACTЬ ЭKCTPAKOДA BBOДA 001374 : CONMAC60: , ITA , 15 . 001375 : 15, VTM , XPM15 . 001376 : , ITS , 14 . 001377 : ,XTS,RET13/7. 001378 : , XTS , . 001379 : ,ITA,7. 001380 : 13,MTJ,7. 001381 : ,WTC,RET13/7. 001382 : 13,VTM,. 001383 : 7,REL,B. 001384 : ,ATX,RET13/7. 001385 : ,XTA,AБYФM. 001386 : , ATI , 13 . 001387 : ,XTA,AKЖПM. 001388 : , ATI , 14 . 001389 : 15, VTM , 77751B . 001390 : ,XTA,SC/YBBK 001391 : ,AAX,ZBITJ 001392 : ,ATX,SC/YBBK. 001393 : ПEPECЫЛ : , 24 , 00003B .***** 001394 : 14, XTA , . 001395 : ,WTC,XPM23. 001396 : : , 24 , . 001397 : 13, ATX , . 001398 : 13, UTM , 00001B . 001399 : 14, UTM , 00001B . 001400 : 15, VLM , ПEPECЫЛ . 001401 : : , 24 , 00003B . 001402 : ,WTC,ГYC 001403 : ,XTA,BISTIME 001404 : ,A+X,EД BPEM 001405 : ,WTC,ГYC 001406 : ,ATX,BISTIME 001407 : : , 24 , 02003B . 001408 : ,XTA,BIT1.CЧETЧИK 001409 : ,WTC,HOMEPBY.BBEДEHHЫX 001410 : ,ARX,CTAT BB.KAPT 001411 : ,WTC,HOMEPBY.B CTATИCTИKY 001412 : ,ATX,CTAT BB. 001413 : , ITA , 14 . 001414 : 7,UTC, 001415 : 13,VJM,CORRADR-B 001416 : C KOPPEKЦИЯ AДPECA KAPTЫ ЖДYЩEЙ ПPИEMA MATEMATИKOM 001417 : ,ATX,AKЖПM. 001418 : ,XTA,KЖПM. 001419 : , ARX , TPИ 777 . 001420 : , AAX , TPИ 777 . 001421 : C MИHYC 1 ИЗ ЧИCЛA KAPT ЖДYЩИX ПPИEMA MATEMATИKOM 001422 : ,ATX,KЖПM. 001423 : ,XTA,CЧ KЖПM. 001424 : , ARX , TPИ 777 . 001425 : , AAX , TPИ 777 . 001426 : ,ATX,CЧ KЖПM. 001427 : 15,VTM,XPM+5. 001428 : , STX , . 001429 : ,STI,27B. 001430 : , STI , 33B . 001431 : ,STX,SAVI13 001432 : ,STX,SAVI14 001433 : ,ATX,SAVI15 001434 : ,XTA,RET13/7 001435 : ,ATI,7. 001436 : ,UJ,RETURN 001437 : C 001438 : C TEKCT BY ЗAHЯTO 001439 : TTEKCT:,BSS, 001440 : ,ISO,12HBY ЗAHЯTO'''''' 001441 : BЫX AЦПY:14,VJM,ERRPRI 001442 : ,GOST,12H HET KAPT'231' 001443 : AБYФBБЩ:,Z00, 001444 : ,Z00,БYФBБЩ-B. 001445 : BEG1M60:, , 001446 : ,Z00,TA1M60-B. 001447 : BEG2M60:, , 001448 : ,Z00,TA2M60-B. 001449 : INFFORRT:,BSS,. 001450 : ,Z00,NRSINPUT 001451 : ,Z00,M60RET-B. 001452 : FOR*YC1:2,20, 001453 : ,Z00,IF1O 001454 : FOR*YC2:4,30, 001455 : ,Z00,IF2O 001456 : XPM:,BSS,6 001457 : RET13/7:,BSS,1 001458 : ,END, 001459 : ПPEPKAPT: ,NAME, 001460 : SELECT : ,SUBP, 001461 : FULSAV : ,SUBP, 001462 : CLTASK : ,SUBP, 001463 : RETURN:,SUBP,. 001464 : PERMIR : ,SUBP, 001465 : CLOMIR : ,SUBP, 001466 : NEWTA : ,SUBP, 001467 : TTPRINT : ,SUBP, 001468 : ERRMACRO: ,SUBP, 001469 : MACRO74 : ,SUBP, 001470 : CORRADR : ,SUBP, 001471 : STARTJOB:,SUBP,. 001472 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 001473 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 001474 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 001475 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 001476 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 001477 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 001478 : FULWOR : ,LC,1 001479 : Д H З : ,LC,1 001480 : C3:,LC,1 001481 : C5:,LC,1 001482 : C7:,LC,1 001483 : K3:,EQU,C3 001484 : K5:,EQU,C5 001485 : K7:,EQU,C7 001486 : SMASAV:LC,BLOCK, 001487 : ,CONT, SAVAC 001488 : ,CONT, SAVSR 001489 : ,CONT, SAVAR 001490 : ,CONT, SAVI15 001491 : ,CONT, SAVI14 001492 : ,CONT, SAVI13 001493 : ,CONT, SAVMIR 001494 : ,CONT, SAVS16 001495 : YBBK : ,LC,1 001496 : PAПPEP : ,LC,1 001497 : KOHK : ,LC,1 001498 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,(2),M1RDSC,STCLTA. 001499 : BPEMЯ BY:,LC,1 001500 : ПYCT K:,LC,1 001501 : K BCE EД:,LC,1 001502 : KЛЮЧCЧBP:,LC,1 001503 : БAЗAПPИЗ:LC,BLOCK,(1),AKЖПM,З1BШГ 001504 : ,CONT,БЫЛ ДK,BЫKЛ Д,БЫЛA KП 001505 : ,CONT,ЗB CBOЯ,ЗB ЗAHЯTA,KЖПM 001506 : ,CONT,CЧKЖПM,HOMEP BY 001507 : ,CONT,CЧПPOПK,ЧПCTPOK 001508 : ,CONT,AПBБЩ,AПHБЩ 001509 : ,CONT,TPЗ2OTЗ1,KПOДBБЩ 001510 : ,CONT,KПOДHБЩ,AKЖOБPЗ1 001511 : ,CONT,BY HE PAБ,PЯЗ1,CЧ OШ K 001512 : ,CONT,CЧ KBЫKBY,CБOЙ BY 001513 : ,CONT,HET KAPT,ПPOД 001514 : MOFFNRS:,LC,1. 001515 : FFPT:,LC,1 001516 : STARTFSM:,SUBP, 001517 : EFSMNRS:,SUBP, 001518 : FSBASENR:,LC,1 001519 : BAS:,EQU,EFSMNRS. 001520 : *STATBUF:LC,BLOCK,(7),CTAT BB. 001521 : B:,EQU,7. 001522 : C 001523 : C...... BXOДЫ ИЗ EXTINTER. 001524 : C 001525 : C HAЧ. KAPTЫ BY700 И KOHEЦ YBBK. 001526 : :13,VTM, .HOMEP BY 001527 : 15,VTM,H700KY-BAS.KYДA ИДTИ 001528 : ,WTC,FSBASENR 001529 : ,UJ,SAVAGO-BAS.CПAC И YCT B 001530 : :13,VTM,1.HOMEP BY 001531 : 15,VTM,H700KY-BAS.KYДA ИДTИ 001532 : ,WTC,FSBASENR 001533 : ,UJ,SAVAGO-BAS.CПAC И YCT B 001534 : C CИ BY 700. 001535 : :13,VTM, .HOMEP BY 001536 : 15,VTM,CИBY700-BAS 001537 : ,WTC,FSBASENR 001538 : ,UJ,SAVAGO-BAS.CПAC И YCT B 001539 : :13,VTM,4.HOMEP BY 001540 : 15,VTM,CИBY700-BAS 001541 : ,WTC,FSBASENR 001542 : ,UJ,SAVAGO-BAS.CПAC И YCT B 001543 : C CИ YBBK И HAЧ. KAPTЫ YBBK. 001544 : :13,VTM, .HOMEP BY 001545 : 15,VTM,HKИCИ-BAS 001546 : ,WTC,FSBASENR 001547 : ,UJ,SAVAGO-BAS.CПAC И YCT B 001548 : :13,VTM,4.HOMEP BY 001549 : 15,VTM,HKИCИ-BAS 001550 : B,REL,BAS 001551 : SAVAGO:,BSS, 001552 : C CПACEHИE 7 ИHД. И YCTAHOBKA БAЗЫ. 001553 : ,ITA,7 001554 : ,WTC,FSBASENR 001555 : 7,VTM, 001556 : ,ATX,SAVEI7C 001557 : 7,UTC, 001558 : 15,UJ, 001559 : C 001560 : C HAЧAЛO KAPTЫ BY700 И KOHEЦ YBBK 001561 : C 001562 : H700KY:,BSS, 001563 : , XTA , YBBK . 001564 : , U1A , KOHKYBBK . 001565 : ,ATX,CBK1 001566 : ,ATX,CBK2 001567 : ,ATX,BPEMЯ BY. 001568 : ,ATX,PЯ. 001569 : , XTA , ЗB CBOЯ . 001570 : ,UZA,RESET 001571 : , XTA , БЫЛA K П . 001572 : , U1A , BЫKЛBY . 001573 : , XTA , БЫЛ ДK . 001574 : ,U1A,ГAШKЛЮЧA. 001575 : , XTA , CЧKBЫKBY . 001576 : , UZA , HETKOHПK . 001577 : , AEX ,BIT3 . 001578 : , UZA , KOHПK . 001579 : , XTA , CЧKBЫKBY . 001580 : , ARX ,BIT1 . 001581 : , ATX , CЧKBЫKBY . 001582 : HETKOHПK: , XTA , CЧПPOПK . 001583 : , U1A , CЧK . 001584 : , XTA , K5 . 001585 : 13, EXT , 00150B . 001586 : CЧK : , XTA , CЧПPOПK . 001587 : , ARX ,BIT1 . 001588 : , ATX , CЧПPOПK . 001589 : , NTR , 00003B . 001590 : , A-X , K3 . 001591 : , ATX , KПOДHБЩ . 001592 : , U1A , RESET . 001593 : , XTA , BЫKЛ Д . 001594 : , ATI , 14 . 001595 : 14, UTM , 77775B . 001596 : , ITA , 14 . 001597 : , ATX , KПOДBБЩ . 001598 : , XTA , COMPIR . 001599 : 13, AEX ,BIT22 . 001600 : 13, AOX ,BIT24 . 001601 : ,ATX,KЛЮЧCЧBP 001602 : , ATX , COMPIR . 001603 : , EXT , 00034B . 001604 : 13, XTA ,BIT24 . 001605 : , AEX , FULWOR . 001606 : , EXT , 00030B . 001607 : 14, VTM , 77765B . 001608 : , ITA , 14 . 001609 : , ATX , ЧПCTPOK . 001610 : RESET:,BSS,. 001611 : ,WTC,SAVEI7C. 001612 : 7,VTM,. 001613 : ,UJ,RETURN. 001614 : KOHПK : , XTA , CЧKЖПM . 001615 : , ATX , KЖПM . 001616 : ,XTA,CБOЙ BY. 001617 : ,U1A,ЗAKPM 001618 : ,ATX,BPEMЯ BY. 001619 : ,ATX,KЛЮЧCЧBP. 001620 : ЗAKPM:15,VJM,BЫKЛ. 001621 : ,XTA,. 001622 : ,WTC,HOMEP BY 001623 : ,EXT,150B 001624 : , XTA , TPЗ2OTЗ1 . 001625 : , UZA , RESET . 001626 : , XTA , RDSCAL . 001627 : , AOX ,BIT30 . 001628 : , ATX , RDSCAL . 001629 : , XTA , . 001630 : , ATX , TPЗ2OTЗ1 . 001631 : YПPЯTBЫБ:,BSS,.BЫXOД HA NEWTA 001632 : ,WTC,SAVEI7C. 001633 : 7,VTM,. 001634 : ,UJ,NEWTA. 001635 : ПOДГГAШM: , XTA ,BIT3 . 001636 : , ATX , BЫKЛ Д . 001637 : 13, XTA ,BIT24 . 001638 : 13, AOX ,BIT22 . 001639 : ГAШMПPП : , AEX , FULWOR . 001640 : , AAX , COMPIR . 001641 : , ATX , COMPIR . 001642 : , EXT , 00034B . 001643 : 14, U1A , . 001644 : , XTA ,BIT37 . 001645 : 14, MTJ , 13 . 001646 : , UJ , CLOMIR . 001647 : KOHEЦBB:,BSS,. 001648 : ,XTA,. 001649 : ,ATX,ЗB CBOЯ. 001650 : BЫKЛBY:,BSS,. 001651 : 15,VTM,RESET. 001652 : ,XTA,YBBK. 001653 : ,UZA,BЫKЛ. 001654 : ,XTA,. 001655 : ,ATX,З 1 B ШГ. 001656 : BЫKЛ:,BSS,. 001657 : C ПPOBEPKA HE БЫЛ ЛИ BЫДAH 001658 : C ЭKCTPAKOД 60 C AДPECOM = 0 001659 : ,XTA,MOFFNRS. 001660 : ,UZA,NOREL. 001661 : ,ATI,14. 001662 : ,ITA,. 001663 : ,ATX,MOFFNRS. 001664 : ,XTA,RDSCAL. 001665 : 14,AOX,BITS. 001666 : ,ATX,RDSCAL. 001667 : ,XTA,YBBK. 001668 : ,UZA,NOREL. 001669 : 15,VTM,YПPЯTBЫБ. 001670 : NOREL:,BSS,. 001671 : ,XTA,YBBK. 001672 : , U1A , BЫKЛYBBK . 001673 : 13, EXT , 00150B . 001674 : 15,MTJ,14 001675 : , UJ , ПOДГГAШM . 001676 : AYT: ,ATX,BYHEPAБ 001677 : 15,VTM,RESET. 001678 : BЫKЛYBBK: , XTA ,BIT2 . 001679 : 13, EXT , 00150B . 001680 : , XTA ,BIT3 . 001681 : , ATX , BЫKЛ Д . 001682 : 13, XTA ,BIT44 . 001683 : 13, MTJ , 14 . 001684 : 13, VJM , CLOMIR . 001685 : 14, MTJ , 13 . 001686 : 15,MTJ,14. 001687 : ПOДГГAШ :13, XTA ,BIT22 . 001688 : , UJ , ГAШMПPП . 001689 : PCБOЙBY:,LOG,1000 0000 001690 : :,LOG,40 0000 001691 : KOHKYBBK:,BSS, 001692 : ,EXT,4102B 001693 : 13,AAX,PCБOЙBY 001694 : ,U1A,HEXBATCИ 001695 : ,XTA,KOHK 001696 : ,U1A,HEXBATCИ 001697 : OTKPЗ1:,BSS,. 001698 : , XTA , RDSCAL . 001699 : , AOX ,BIT39 . 001700 : , ATX , RDSCAL . 001701 : , ATX , З1 B ШГ . 001702 : , XTA , BЫKЛ Д . 001703 : , UZA , YПPЯTBЫБ . 001704 : , ARX ,BIT1 . 001705 : , ATX , BЫKЛ Д . 001706 : , AEX , K3 . 001707 : , U1A , ECTЬЛИKB . 001708 : , XTA ,BIT2 . 001709 : 13, EXT , 00150B . 001710 : , UJ , YПPЯTBЫБ . 001711 : HEXBATCИ:,BSS,. 001712 : ,XTA,BIT1 001713 : ,ATX,CБOЙ BY. 001714 : ,ATX,CЧ OШ K. 001715 : 14,VTM,CБOЙYBBK. 001716 : ,ITA,14. 001717 : ,ATX,PAПPEP 001718 : ,XTA,BIT2. 001719 : ,ATX,BЫKЛ Д 001720 : 14,VTM,OTKP З1 001721 : ,UJ,ПOДГГAШ. 001722 : CБOЙYBBK:,BSS,. 001723 : ,XTA,BIT1 001724 : ,ARX,CЧ OШ K. 001725 : ,ATX,CЧ OШ K 001726 : ,XTA,HOMEP BY. 001727 : ,ATI,13 001728 : ,UJ,AYT. 001729 : ECTЬЛИKB: , AEX , K7 . 001730 : , U1A , YПPЯTBЫБ . 001731 : ,XTA,CБOЙ BY. 001732 : ,U1A,ЗAKP 001733 : ,ATX,BPEMЯ BY. 001734 : ,ATX,KЛЮЧCЧBP. 001735 : ЗAKP:15,VTM,YПPЯTBЫБ. 001736 : ,UJ,BЫKЛ.ЗAKPЫTИE ПPEPЫBAHИЙ 001737 : CИBY700:,BSS, 001738 : , XTA , ЗB CBOЯ . 001739 : ,UZA,RESET 001740 : ,XTA,CБOЙ BY. 001741 : ,U1A,ПPOBПOЛK 001742 : , XTA , З1 B ШГ . 001743 : , U1A , ПPEPЗB1 . 001744 : ПPOBПOЛK:,BSS,. 001745 : , XTA , KПOДBБЩ . 001746 : ,UZA,AHAЛИЗEД 001747 : , XTA , AПBБЩ . 001748 : , ATI , 15 . 001749 : 13, EXT , 04142B . 001750 : 15, ATX , . 001751 : 13, EXT , 04143B . 001752 : , ASN ,64-20 . 001753 : 15, AOX , . 001754 : 15, ATX , . 001755 : ,ACX,CBK1. 001756 : ,ATX,CBK1 001757 : 13, EXT , 04140B . 001758 : 15, ATX , . 001759 : 13, EXT , 04141B . 001760 : , ASN ,64-20 . 001761 : 15, AOX , . 001762 : 15, ATX , . 001763 : ,ACX,CBK1. 001764 : ,ATX,CBK1 001765 : , ITA , 15 . 001766 : , ATX , AПBБЩ . 001767 : , XTA , KПOДHБЩ . 001768 : , UZA , CЧCTPOK . 001769 : CЧИTHБЩ : , XTA , AПHБЩ . 001770 : , ATI , 15 . 001771 : 13, EXT , 04152B . 001772 : 15, ATX , . 001773 : 13, EXT , 04153B . 001774 : , ASN ,64-20 . 001775 : 15, AOX , . 001776 : 15, ATX , . 001777 : ,ACX,CBK2 001778 : ,ATX,CBK2 001779 : 13, EXT , 04150B . 001780 : 15, ATX , . 001781 : 13, EXT , 04151B . 001782 : , ASN ,64-20 . 001783 : 15, AOX , . 001784 : 15, ATX , . 001785 : ,ACX,CBK2 001786 : ,ATX,CBK2 001787 : , ITA , 15 . 001788 : , ATX , AПHБЩ . 001789 : CЧCTPOK : , XTA , ЧПCTPOK . 001790 : , ATI , 15 . 001791 : 15, VLM ,L16460 . 001792 : , ITA , 13 . 001793 : , ASN ,64+2 . 001794 : , ATI , 15 . 001795 : , XTA , YBBK . 001796 : ,UZA,ПPOCMOTP 001797 : , XTA , AПBБЩ . 001798 : , ARX ,BIT3 . 001799 : , ATX , AПBБЩ . 001800 : ПPOCMOTP:,BSS,. 001801 : ,XTA,YBBK. 001802 : ,U1A,CMKYBBK. 001803 : ,XTA,KПOДHБЩ. 001804 : ,U1A,CMKBY700. 001805 : ,XTA,CBK1. 001806 : ,ATX,CTAPCB. 001807 : ,UJ,CMEHA A 001808 : CMKBY700:,BSS, 001809 : ,XTA,CBK2. 001810 : ,ARX,CTAPCB. 001811 : ,ATX,CBK2 001812 : ,XTA,CBK1 001813 : ,ATX,CTAPCB. 001814 : ,XTA,CBK2. 001815 : ,UZA,YПYCTK 001816 : ,NTR,3 . 001817 : ,A-X,Z1800. 001818 : ,UZA,BCE EД. 001819 : ,UJ,CMEHA A. 001820 : CMKYBBK:,BSS,. 001821 : ,XTA,CBK2 001822 : ,U1A,CMEHA A. 001823 : ,UJ,YПYCTK 001824 : BCE EД:,BSS,. 001825 : ,XTA,BIT1 001826 : ,ATX,K BCE EД 001827 : YПYCTK:,XTA,BIT1. 001828 : ,ATX,ПYCT K. 001829 : CMEHA A: ,XTA,AПBБЩ 001830 : 7,UTC, 001831 : 13,VJM,CORRADR-BAS 001832 : , ATX , AПBБЩ . 001833 : 15,MTJ,13 001834 : , XTA , YBBK . 001835 : , U1A , KOHCYBBK . 001836 : C 001837 : C AHAЛИЗ БЫЛA ЛИ ЛИШHЯЯ ПPOTЯЖKA 001838 : C 001839 : ,XTA,KПOДBБЩ 001840 : ,UZA,AHAЛИЗCБ 001841 : AHAЛИЗOШ:,BSS, 001842 : ,XTA,CБOЙ BY. 001843 : ,U1A,CЧET OШ 001844 : ГAШKOПM:,BSS,. 001845 : , XTA , COMPIR . 001846 : 13, AEX ,BIT24 . 001847 : 13, AOX ,BIT22 . 001848 : , ATX , COMPIR . 001849 : , EXT , 00034B . 001850 : 13, XTA ,BIT22 . 001851 : , AEX , FULWOR . 001852 : , EXT , 00030B . 001853 : , XTA , KПOДHБЩ . 001854 : , UZA , YПPЯTBЫБ . 001855 : , XTA , RDSCAL . 001856 : , AOX ,BIT39 . 001857 : , ATX , RDSCAL . 001858 : , ATX , З1 B ШГ . 001859 : , XTA , BЫKЛ Д . 001860 : , UZA , YПPЯTBЫБ . 001861 : , ARX ,BIT1 . 001862 : , ATX , BЫKЛ Д . 001863 : ,XTA,BIT3. 001864 : 13, EXT , 00150B . 001865 : , UJ , YПPЯTBЫБ . 001866 : KOHCYBBK:14,VTM,HAЧK. 001867 : ,ITA,14. 001868 : , ATX , PAПPEP . 001869 : 14, VTM , 77755B . 001870 : , XTA , . 001871 : , ATX , KOHK . 001872 : ,ITA,14 001873 : HARET:,ATX,ЧПCTPOK 001874 : , UJ , RESET . 001875 : L16460 : , ITA , 15 . 001876 : ,UJ,HARET 001877 : ПPEPЗB1:,BSS, 001878 : ,XTA,BIT1. 001879 : ,ATX,CБOЙ BY. 001880 : ,ATX,BЫKЛ Д 001881 : ,ATX,CЧ OШ K 001882 : ,XTA,BIT2. 001883 : ,ATX,CЧKBЫKBY. 001884 : ,UJ,ПPOBПOЛK. 001885 : AHAЛИЗEД:,BSS, 001886 : C 001887 : C ПPOBEPKA HET ЛИ ЛИШHEЙ ПPOTЯЖKИ KAPTЫ. 001888 : C 001889 : 13,EXT,4142B 001890 : ,ACX,PЯ 001891 : ,ATX,PЯ 001892 : 13,EXT,4143B 001893 : ,ACX,PЯ. 001894 : ,ATX,PЯ. 001895 : 13,EXT,4140B 001896 : ,ACX,PЯ 001897 : ,ATX,PЯ. 001898 : 13,EXT,4141B. 001899 : ,ACX,PЯ. 001900 : ,ATX,PЯ. 001901 : ,UJ,CЧИTHБЩ 001902 : AHAЛИЗCБ:,BSS,. 001903 : ,XTA,PЯ. 001904 : ,NTR,3 001905 : ,A-X,Z900 001906 : ,UZA,AHAЛИЗOШ 001907 : ,XTA,BIT1. 001908 : ,ARX,CЧ OШ K. 001909 : ,ATX,CЧ OШ K. 001910 : ,XTA,CБOЙ BY. 001911 : ,UZA,ГAШKOПM 001912 : CЧET OШ:,BSS,. 001913 : ,XTA,K BCE EД 001914 : ,U1A,ГAШKOПM 001915 : ,XTA,BIT1 001916 : ,ARX,CЧ OШ K. 001917 : ,ATX,CЧ OШ K. 001918 : ,UJ,ГAШKOПM 001919 : HKИCИ:,BSS, 001920 : , XTA , . 001921 : ,ATX,BPEMЯ BY 001922 : , WTC , PAПPEP . 001923 : , UJ , . 001924 : HAЧ K:,ENTRY, 001925 : HAЧK:,BSS,. 001926 : , XTA ,BIT1 . 001927 : , ATX , KOHK . 001928 : , ITA , 13 . 001929 : , ASN ,64+2 . 001930 : , ATI , 13 . 001931 : , XTA ,BIT4 . 001932 : 13, EXT , 00150B . 001933 : , XTA , БЫЛA K П . 001934 : , U1A , BЫKЛBY . 001935 : , XTA , БЫЛ ДK . 001936 : ,U1A,ЗAKP ЗB1 001937 : ,ATX,CBK2. 001938 : 14,VTM,ПPEPCИ1. 001939 : ,ITA,14. 001940 : , ATX , PAПPEP . 001941 : , UJ , RESET . 001942 : ЗAKP ЗB1:,XTA,RDSCAL 001943 : , AEX ,BIT39 . 001944 : , ATX , RDSCAL . 001945 : ,UJ,ГAШKЛЮЧA 001946 : ПPEPCИ1 :13, EXT , 04150B . 001947 : , ASN ,64-24 . 001948 : , WTC , AПBБЩ . 001949 : , ATX , . 001950 : 14,VTM,ПPEPCИ2. 001951 : ,ITA,14. 001952 : , ATX , PAПPEP . 001953 : , ITA , 13 . 001954 : , ASN ,64+2 . 001955 : , ATI , 15 . 001956 : , XTA ,BIT4 . 001957 : 15, EXT , 00150B . 001958 : , UJ , RESET . 001959 : ПPEPCИ2:13,EXT,4150B 001960 : , WTC , AПBБЩ . 001961 : , AOX , . 001962 : , WTC , AПBБЩ . 001963 : , ATX , . 001964 : ,ACX,CBK2. 001965 : ,ATX,CBK2 001966 : , XTA , AПBБЩ . 001967 : , ARX ,BIT1 . 001968 : , ATX , AПBБЩ . 001969 : 14,VTM,ПPEPCИ1. 001970 : ,ITA,14. 001971 : , ATX , PAПPEP . 001972 : ,ITA,13. 001973 : ,ASN,64+2. 001974 : ,ATI,15. 001975 : ,XTA,BIT4. 001976 : 15,EXT,150B. 001977 : ,UJ,CЧCTPOK. 001978 : ПPOBYNRS:,ENTRY,. 001979 : ,ITA,7.CПACEHИE 7-ГO 001980 : ,WTC,FSBASENR.MOДИФИKATOPA 001981 : 7,VTM,.И YCTAHOBKA 001982 : ,ATX,SAVEI7C.БAЗЫ 001983 : ,XTA,BPEMЯ BY. 001984 : ,AEX,C377 001985 : ,U1A,CЧ BP. 001986 : ,XTA,HOMEP BY 001987 : ,ATI,13 001988 : ,ASN,64-2. 001989 : ,ATI,14.HOMEP BY * 4 001990 : ,XTA,CБOЙ BY. 001991 : ,UIA,CБOЙ.ПPOГP.CБOЙ 001992 : ,XTA,БЫЛ ДK. 001993 : ,U1A,ГAШKЛЮЧA. 001994 : ,EXT,4102B. 001995 : 14,AAX,BIT22.ПO ЛAMПOЧKE 001996 : ,UZA,ЗAMЯЛO. - HET CБOЯ 001997 : CБOЙ:,XTA,BIT25.*** CБOЙ CИ 001998 : 13,ARX,CTAT BB. 001999 : ,UJ,BЫД OШ. 002000 : ЗAMЯЛO:,XTA,BIT37.*** ЗAMЯЛO 002001 : 13,ARX,CTAT BB. 002002 : BЫД OШ:13,ATX,CTAT BB.*** B CTATИC. 002003 : ,XTA,CЧ OШ K 002004 : ,AOX,=6H K0 002005 : ,ASN,64-32 002006 : ,ATX,TTOШBY+1. 002007 : 14,VTM,TTOШBY. 002008 : ,ITA,14 002009 : 14,VJM,TTPRINT. 002010 : ,XTA, 002011 : ,ATX,CЧ OШ K. 002012 : ,ATX,KЛЮЧCЧBP 002013 : ,ATX,BPEMЯ BY. 002014 : ,XTA,BIT1. 002015 : ,ATX,BYHEPAБ 002016 : ,UJ,BЫKЛ BY 002017 : ГAШKЛЮЧA:,BSS, 002018 : ,XTA,. 002019 : ,ATX,KЛЮЧCЧBP 002020 : ,ATX,BPEMЯ BY. 002021 : ,UJ,KOHEЦBB 002022 : CЧ BP:,BSS,. 002023 : ,XTA,BPEMЯ BY 002024 : ,ARX,BIT1. 002025 : ,ATX,BPEMЯ BY 002026 : ,XTA,SAVEI7C. 002027 : ,ATI,7. 002028 : 13,UJ, 002029 : Z900:,Z00, 002030 : ,Z00,900. 002031 : Z1800:,Z00, 002032 : ,Z00,1800 002033 : C377:,LOG,30. 002034 : PЯ:,BSS,1 002035 : CBK1:,BSS,1 002036 : CBK2:,BSS,1 002037 : CTAPCB:,BSS,1 002038 : TTOШBY:,ISO,6HOШ BY 002039 : ,LOG, 002040 : SAVEI7C:,BSS,1 002041 : ,END, 002042 : TA2M60 : ,NAME, 002043 : SELECT : ,SUBP, 002044 : FULSAV : ,SUBP, 002045 : CLTASK : ,SUBP, 002046 : RETURN : ,SUBP, 002047 : PERMIR : ,SUBP, 002048 : CLOMIR : ,SUBP, 002049 : NEWTA : ,SUBP, 002050 : TTPRINT : ,SUBP, 002051 : ERRMACRO: ,SUBP, 002052 : MACRO74 : ,SUBP, 002053 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 002054 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 002055 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 002056 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 002057 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 002058 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 002059 : FULWOR : ,LC,1 002060 : Д H З : ,LC,1 002061 : SMASAV:LC,BLOCK, 002062 : ,CONT, SAVAC 002063 : ,CONT, SAVSR 002064 : ,CONT, SAVAR 002065 : ,CONT, SAVI15 002066 : ,CONT, SAVI14 002067 : ,CONT, SAVI13 002068 : ,CONT, SAVMIR 002069 : ,CONT, SAVS16 002070 : YBBK : ,LC,1 002071 : PAПPEP : ,LC,1 002072 : KOHK : ,LC,1 002073 : KЛЮЧCЧBP:,LC,1 002074 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,(2),M1RDSC,STCLTA. 002075 : SNT2:,EQU,23B.ДHЗ TA2M60 002076 : HAЧ K:,SUBP, 002077 : TYP/PL:,SUBP, 002078 : COPY7:,EQU,TYP/PL+1 002079 : C 002080 : C... ЭKOHOMИЯ ПAMЯTИ : 002081 : C 002082 : STARTDD:,SUBP, 002083 : STARTDD:I,BLOCK,BUF1M60(1),IF1M60(24) 002084 : ,CONT,BUF2M60(1),IF2M60(24) 002085 : ,CONT,БYФHБЩ(24) 002086 : ,CONT,БYФBБЩ(168) 002087 : БAЗAПPИЗ:LC,BLOCK,(1),AKЖПM,З1BШГ 002088 : ,CONT,БЫЛ ДK,BЫKЛ Д,БЫЛA KП 002089 : ,CONT,ЗB CBOЯ,ЗB ЗAHЯTA,KЖПM 002090 : ,CONT,CЧKЖПM,HOMEP BY 002091 : ,CONT,CЧПPOПK,ЧПCTPOK 002092 : ,CONT,AПBБЩ,AПHБЩ 002093 : ,CONT,TPЗ2OTЗ1,KПOДBБЩ 002094 : ,CONT,KПOДHБЩ,AKЖOБPЗ1 002095 : ,CONT,BY HE PAБ,PЯЗ1,CЧ OШ K 002096 : ,CONT,CЧ KBЫKBY,CБOЙ BY 002097 : ,CONT,HET KAPT,ПPOД 002098 : EFSMNRS:,SUBP, 002099 : B:,EQU,EFSMNRS. 002100 : 7,REL,B. 002101 : TA2M60:,BSS,. 002102 : , XTA , KЖПM . 002103 : , U1A , OTKPЗM . 002104 : ,XTA,CБOЙ BY. 002105 : , U1A , YBYHEPAБ . 002106 : , XTA , БЫЛ ДK . 002107 : , U1A , YHETKAPT . 002108 : , XTA , BЫKЛ Д . 002109 : , AEX ,BIT3 . 002110 : , U1A , Д BY BKЛ . 002111 : ,ATX,ПPOX1 002112 : : , 24 , 00003B . 002113 : C OПPEДEЛEHИE N BY. 002114 : ,XTA,7 002115 : ,AAX,BIT1 002116 : ПPOBTИПA:,ATX,HOMEP BY 002117 : , ATI , 12 . 002118 : , ASN ,64-2 . 002119 : , ATI , 11 . 002120 : C OПPEДEЛEHИE TИПA BY 002121 : ,XTA,7. 002122 : ,AOX,COPY7 002123 : 12,AAX,BIT26. 002124 : ,ATX,YBBK. 002125 : , U1A , ПPOBYBBK . 002126 : , EXT , 04102B . 002127 : 11, AAX ,BIT24 . 002128 : , U1A , PПYBY700 . 002129 : ПPOBПPOX:,BSS, 002130 : ,XTA,ПPOX1 002131 : ,U1A,BЫДTEЛET.OБA БЫЛИ 002132 : , XTA ,BIT1 . 002133 : ,ATX,ПPOX1 002134 : ,AEX,HOMEP BY. 002135 : , UJ , ПPOBTИПA . 002136 : BЫДTEЛET:,BSS, 002137 : : ,24,2003B. 002138 : 14,VTM,TBYHEBKЛ. 002139 : ,ITA,14. 002140 : 14, VJM , TTPRINT . 002141 : YBYHEPAБ:,XTA,BIT1 002142 : ,ATX,BYHEPAБ 002143 : ЗAKPЗB2 :14, VTM , TA2M60 . 002144 : , ITA , 14 . 002145 : ,WTC,*YCЫ+SNT2 002146 : , ATX , 00003B .***** 002147 : , XTA ,BIT30 . 002148 : , AEX , RDSCAL . 002149 : , ATX , RDSCAL . 002150 : , UJ , SELECT . 002151 : PПYBY700: , EXT , 04102B . 002152 : 11, AAX ,BIT22 . 002153 : , U1A , PПYBY700 . 002154 : , ATX , . 002155 : YCTПPИ : , 24 , 02003B . 002156 : , ATX , BЫKЛ Д . 002157 : , ATX , CЧKЖПM . 002158 : , ATX , CЧПPOПK . 002159 : , ATX , CЧKBЫKBY . 002160 : , XTA , AKЖПM . 002161 : , ATX , AKЖOБPЗ1 . 002162 : , ATX , AПBБЩ . 002163 : 7,UTC, 002164 : 14,VTM,БYФHБЩ-B 002165 : , ITA , 14 . 002166 : , ATX , AПHБЩ . 002167 : , XTA , YBBK . 002168 : , UZA , OПPEP37 . 002169 : 12, XTA ,BIT44 . 002170 : 13, VJM , PERMIR . 002171 : C PAЗPEШEHИE OTCЧETA BPEMEHИ ПPOXOДA KAPTЫ 002172 : ,ATX,KЛЮЧCЧBP 002173 : 7,RELS,B. 002174 : 13,VTM,HAЧ K. 002175 : 7,REL,B. 002176 : ,ITA,13. 002177 : , ATX , PAПPEP . 002178 : OПPEP37 : , XTA ,BIT37 . 002179 : 13, VJM , PERMIR . 002180 : 12, XTA ,BIT22 . 002181 : , AEX , FULWOR . 002182 : , EXT , 00030B . 002183 : ,XTA,YBBK 002184 : :,U1A,*+1 002185 : 12,UTC,BIT24 002186 : :,XTA, 002187 : , AEX , FULWOR . 002188 : , AAX , COMPIR . 002189 : 12, AOX ,BIT22 . 002190 : , ATX , COMPIR . 002191 : , EXT , 00034B . 002192 : , XTA , YBBK . 002193 : , U1A , BKЛ YBBK . 002194 : , XTA ,BIT3 . 002195 : BKЛ BY :12, EXT , 00150B . 002196 : ,ATX,KЛЮЧCЧBP. 002197 : Д BY BKЛ: , XTA ,BIT1 . 002198 : , ATX , TPЗ2OTЗ1 . 002199 : , UJ , ЗAKPЗB2 . 002200 : BKЛ YBBK: , XTA , . 002201 : , ATX , KOHK . 002202 : , ATX ,W00401 . 002203 : 13, VTM , 77755B . 002204 : , ITA , 13 . 002205 : , ATX , ЧПCTPOK . 002206 : , XTA ,BIT1 . 002207 : , UJ , BKЛ BY . 002208 : ПPOBYBBK: , EXT , 04102B . 002209 : 11, AAX ,BIT24 . 002210 : ,U1A,ПPOBПPOX.HEГOT 002211 : 14,VTM,1.ПOДГOT ЗAДEPЖ 002212 : ПPOB ЗAH:,EXT,4102B 002213 : 11, AAX ,BIT23 . 002214 : 11,AEX,BIT23 002215 : ,UZA,YCTПPИ.HE ЗAHЯT PAБOTOЙ 002216 : ,ASN, 002217 : ,ASN, 002218 : 14,VLM,ПPOB ЗAH 002219 : ,UJ,ПPOBПPOX 002220 : YHETKAPT:,XTA,BЫKЛ Д. 002221 : ,AEX,BIT3. 002222 : ,U1A,Y0M14. 002223 : ,ATX,ЗB CBOЯ. 002224 : Y0M14:,XTA,ЗB ЗAHЯTA. 002225 : , ATI , 12 . 002226 : , ATX , HETKAPT . 002227 : , XTA , . 002228 : YCTM14Э :12, WTC , *YCЫ . 002229 : , ATX , 00010B .***** 002230 : OTKPЗM : , 24 , 02003B . 002231 : , XTA , RDSCAL . 002232 : , WTC , ЗBЗAHЯTA . 002233 : , AOX ,BITS . 002234 : , ATX , RDSCAL . 002235 : , UJ , ЗAKPЗB2 . 002236 : TBYHEBKЛ:,BSS, 002237 : ,ISO,12HBY HE BKЛ'0''0''0' 002238 : ПPOX1:,BSS,1 002239 : W00401 : ,BSS,1 002240 : ,END, 002241 : TA1M60 : ,NAME, 002242 : FULSAV : ,SUBP, 002243 : SELECT : ,SUBP, 002244 : CLTASK : ,SUBP, 002245 : PERMIR : ,SUBP, 002246 : CLOMIR : ,SUBP, 002247 : NEWTA : ,SUBP, 002248 : TTPRINT : ,SUBP, 002249 : ERRMACRO: ,SUBP, 002250 : MACRO74 : ,SUBP, 002251 : CORRADR : ,SUBP, 002252 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 002253 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 002254 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 002255 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 002256 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 002257 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 002258 : DISREG:LC,BLOCK,C2013 002259 : BPEMЯ BY:,LC,1 002260 : ПYCT K:,LC,1 002261 : K BCE EД:,LC,1 002262 : FULWOR : ,LC,1 002263 : Д H З : ,LC,1 002264 : SMASAV:LC,BLOCK, 002265 : ,CONT, SAVAC 002266 : ,CONT, SAVSR 002267 : ,CONT, SAVAR 002268 : ,CONT, SAVI15 002269 : ,CONT, SAVI14 002270 : ,CONT, SAVI13 002271 : ,CONT, SAVMIR 002272 : ,CONT, SAVS16 002273 : YBBK : ,LC,1 002274 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,(2),M1RDSC,STCLTA. 002275 : C 002276 : C... ЭKOHOMИЯ ПAMЯTИ : 002277 : C 002278 : STARTDD:,SUBP, 002279 : STARTDD:I,BLOCK,BUF1M60(1),IF1M60(24) 002280 : ,CONT,BUF2M60(1),IF2M60(24) 002281 : ,CONT,БYФHБЩ(24) 002282 : ,CONT,БYФBБЩ(168) 002283 : БAЗAПPИЗ:LC,BLOCK,(1),AKЖПM,З1BШГ 002284 : ,CONT,БЫЛ ДK,BЫKЛ Д,БЫЛA KП 002285 : ,CONT,ЗB CBOЯ,ЗB ЗAHЯTA,KЖПM 002286 : ,CONT,CЧKЖПM,HOMEP BY 002287 : ,CONT,CЧПPOПK,ЧПCTPOK 002288 : ,CONT,AПBБЩ,AПHБЩ 002289 : ,CONT,TPЗ2OTЗ1,KПOДBБЩ 002290 : ,CONT,KПOДHБЩ,AKЖOБPЗ1 002291 : ,CONT,BY HE PAБ,PЯЗ1,CЧ OШ K 002292 : ,CONT,CЧ KBЫKBY,CБOЙ BY 002293 : ,CONT,HET KAPT,ПPOД 002294 : EFSMNRS:,SUBP,. 002295 : B:,EQU,EFSMNRS. 002296 : 7,REL,B. 002297 : TA1M60:,BSS,. 002298 : 7,MTJ,13 002299 : 13,UTM,БYФHБЩ-B 002300 : ,ITA,13 002301 : ,ATX,AПHБЩ 002302 : ,XTA,AKЖOБPЗ1. 002303 : ,ATI,11. 002304 : 12,VTM,. 002305 : 10,VTM,. 002306 : ,XTA,CБOЙ BY 002307 : ,U1A,KOHЗ1 002308 : ,XTA,K BCE EД. 002309 : ,U1A,ИHBEPT. 002310 : : ,24,13B 002311 : , XTA , YBBK . 002312 : , U1A , K YBBK . 002313 : ИCXYCT:,BSS,. 002314 : 7,UTC,30B 002315 : 15,VTM,БYФHБЩ-B 002316 : , XTA , AKЖOБPЗ1 . 002317 : , ATI , 11 . 002318 : 10, VTM , . 002319 : 12, VTM , . 002320 : 13, VTM , 77751B . 002321 : ПPOBTY : , XTA , YBBK . 002322 : , UZA , KBY700 . 002323 : 11,XTA,27B 002324 : БЛ CPABH:11,ATX,27B 002325 : 15, AEX , . 002326 : 11, UTM , 77777B . 002327 : ,UZA,CTP PAB 002328 : 11,AOX,30B 002329 : 11,ATX,30B 002330 : , XTA , 00007B . 002331 : , AAX ,BIT38 . 002332 : , UZA , HECP CTP . 002333 : 10, VTM , 00001B . 002334 : CTP PAB:11,XTA,30B. 002335 : , AEX ,BIT40 . 002336 : , U1A , HET 40P . 002337 : 12, UTM , 00001B . 002338 : HET 40P :13, VLM , ПPOBTY . 002339 : 11, UTM , 00060B . 002340 : 10, VZM , AHAЛИЗДK . 002341 : 11, XTA , 77750B .***** 002342 : , AOX ,BIT48 . 002343 : 11, ATX , 77750B .***** 002344 : AHAЛИЗДK: , 24 , 02003B . 002345 : ,XTA,CБOЙBY. 002346 : ,U1A,KOHЗ1. 002347 : 12,UTM,-24. 24 EДИHИЦЫ 002348 : 12, VZM , ECTЬ ДK . 002349 : , XTA , CЧKЖПM . 002350 : , ARX ,BIT1 . 002351 : , ATX , CЧKЖПM . 002352 : , ITA , 11 . 002353 : 7,UTC, 002354 : 13,VJM,CORRADR-B 002355 : YCT AH : , ATX , AKЖOБPЗ1 . 002356 : , XTA , BЫKЛ Д . 002357 : , UZA , ПPOBЧK . 002358 : , AEX ,BIT3 . 002359 : , U1A , KOH З1 . 002360 : KOPCЧK : , XTA , CЧKЖПM . 002361 : , ATX , KЖПM . 002362 : KOH З1 : , XTA , . 002363 : , ATX , З1 B ШГ . 002364 : ,ATX,BPEMЯ BY 002365 : ,ATX,K BCE EД. 002366 : ,ATX,ПYCT K. 002367 : , XTA , TPЗ2OTЗ1 . 002368 : , UZA , ПOДГBOЗB . 002369 : , XTA , RDSCAL . 002370 : , AOX ,BIT30 . 002371 : , ATX , RDSCAL . 002372 : , XTA , . 002373 : , ATX , TPЗ2OTЗ1 . 002374 : 7,RELS,B. 002375 : ПOДГBOЗB:13, VTM , TA1M60 . 002376 : 7,REL,B. 002377 : , ITA , 13 . 002378 : 7,UTC,IF1M60-B 002379 : , ATX , 00003B .***** 002380 : ,XTA,C2013 002381 : 7,UTC,IF1M60-B 002382 : , ATX , 00005B .***** 002383 : , XTA , RDSCAL . 002384 : , AEX ,BIT39 . 002385 : , ATX , RDSCAL . 002386 : , UJ , SELECT . 002387 : ПPOBЧK:,WTC,CЧKЖПM 002388 : 13,VTM,-4 002389 : 13, V1M , KOPCЧK . 002390 : TPBЫKЛД:,BSS,. 002391 : , XTA ,BIT1 . 002392 : , ATX , BЫKЛ Д . 002393 : , ATX , CЧKBЫKBY . 002394 : , UJ , KOH З1 . 002395 : ECTЬ ДK : , XTA ,BIT1 . 002396 : , ATX , БЫЛ ДK . 002397 : ,UJ,KOPCЧK 002398 : HECP CTP: , 24 , 02003B . 002399 : ,XTA,CБOЙ BY. 002400 : ,U1A,KOHЗ1 002401 : ,XTA,BIT1. 002402 : ,ATX,CБOЙ BY. 002403 : ,ATX,CЧ OШ K. 002404 : ,XTA,BЫKЛ Д 002405 : ,U1A,KOHЗ1 002406 : ,UJ,TPBЫKЛД 002407 : ИHBEPT:,BSS,. 002408 : : ,24,13B 002409 : 13,VTM,-27B 002410 : ,XTA,. 002411 : OБP:,BSS, 002412 : 13,UTC,. 002413 : 11,ATX,27B. 002414 : 13,VLM,OБP. 002415 : KOPAБOK:,BSS,. 002416 : 11,UTM,30B 002417 : ,UJ,AHAЛИЗДK 002418 : KBY700:11,XTA,27B 002419 : ,AAX,K16574 002420 : , ASN ,64+10 . 002421 : , ATX , PЯЗ1 . 002422 : 11,XTA,27B 002423 : ,AAX,K16575 002424 : , ASN ,64-10 . 002425 : , AOX , PЯЗ1 . 002426 : , UJ , БЛ CPABH . 002427 : K YBBK :13, VTM , БYФHБЩ -B. 002428 : 7,J+M,13.ДOИABЛEH(E ИAЗЫ 002429 : 15, VTM , 77765B . 002430 : ,XTA,A KOHCT 002431 : HEBCECTP: , ATX , KOHCTCTP . 002432 : , XTA , AKЖOБPЗ1 . 002433 : , ATI , 11 . 002434 : 9, VTM , 77777B . 002435 : OБP2CTPK:12, VTM , . 002436 : 10, VTM , 77767B . 002437 : , XTA , . 002438 : , ATX , PЯПPИHФ . 002439 : OБP1CTPK:11, XTA , . 002440 : , APX , KOHCTCTP . 002441 : 12, ASN ,64+8 . 002442 : , AOX , PЯПPИHФ . 002443 : , ATX , PЯПPИHФ . 002444 : 12, UTM , 00004B . 002445 : 11, UTM , 00001B . 002446 : 10, VLM , OБP1CTPK . 002447 : 13, ATX , . 002448 : 13, UTM , 00001B . 002449 : 9, VLM , OБP2CTPK . 002450 : , XTA , KOHCTCTP . 002451 : , ASN ,64-1 . 002452 : 15, VLM , HEBCECTP . 002453 : 13, VTM , 77751B . 002454 : ИЗHБBBБ:7,UTC,БYФHБЩ-B 002455 : 13,XTA,27B 002456 : , WTC , AKЖOБPЗ1 . 002457 : 13,ATX,27B 002458 : 13, VLM , ИЗHБBBБ . 002459 : , UJ , ИCXYCT . 002460 : K16574 : ,LOG, 00177700 03776000 002461 : K16575 : ,LOG, 00000077 74001777 002462 : A KOHCT : ,LOG, 00010001 00010001 002463 : KOHCTCTP: ,BSS,1 002464 : PЯПPИHФ : ,BSS,1 002465 : ,END, 002466 : CORRADR:,NAME, 002467 : STARTDD:,SUBP, 002468 : STARTDD:I,BLOCK,(50),(24),БYФBБЩ(168) 002469 : EFSMNRS:,SUBP,. 002470 : FSBASENR:LC,BLOCK,BASE 002471 : H:,EQU,EFSMNRS. 002472 : K:,EQU,H-168. 002473 : 7,REL,EFSMNRS 002474 : : ,24,2003B 002475 : ,ATX,PЯ 002476 : ,XTA,ДHOBБЩ 002477 : ,ARX,BASE. 002478 : ,AEX,PЯ. 002479 : ,U1A,BЫX 002480 : ,XTA,AБYФBБЩ 002481 : ,ARX,BASE. 002482 : 13,UJ, 002483 : BЫX:,BSS, 002484 : ,XTA,PЯ 002485 : 13,UJ, 002486 : AБYФBБЩ:,Z00, 002487 : ,Z00,БYФBБЩ-H. 002488 : ДHOBБЩ:,Z00, 002489 : ,Z00,БYФBБЩ-K. 002490 : PЯ:,BSS,1 002491 : ,END, 002492 : EFSMNRS:,NAME, 002493 : C.........ЭKCTPAKOД BBOДA C ПEPФOЛEHTЫ 002494 : *TAKCA:LC,BLOCK,(4),R1/500 002495 : NEWTA:,SUBP, 002496 : BISTIME:,EQU,110B 002497 : *677: B,BLOCK, BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42 002498 : ,CONT, BIT41,BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34 002499 : ,CONT, BIT33,BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26, 002500 : ,CONT, BIT25,BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18 002501 : ,CONT, BIT17,BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10 002502 : ,CONT, BIT9,BIT8,BIT7,BIT6,BIT5,BIT4,BIT3,BIT2,BIT1 002503 : RETURN:,SUBP, 002504 : OUTMACRO:,SUBP, 002505 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 002506 : ,CONT,SAVI15,SAVI14,SAVI13 002507 : TYP/PL:,SUBP, 002508 : YBBKNRS:,SUBP, 002509 : C77777:,LC,1 002510 : C377:,LC,1 002511 : C37:,LC,1 002512 : БAЗAПPИЗ:LC,BLOCK,(7),ЗBЗAHЯTA,(18) 002513 : NRSINPUT:,SUBP,. 002514 : NREFSM:,EQU,NRSINPUT. 002515 : NRESOFF:,SUBP, 002516 : FSBASENR:,LC,1 002517 : TTPRINT:,SUBP, 002518 : FFPT:,LC,1 002519 : C AДPEC CYMMATOPA 002520 : ADOFACC:,LC,4 002521 : NUMFSM:,EQU,ADOFACC+1 002522 : C HOMEP TEKYЩEЙ ЗAДAЧИ 002523 : CNUMT:,EQU,ADOFACC+2 002524 : SYMBOL:,EQU,CNUMT+1 002525 : DISREG:,LC,1 002526 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 002527 : CNTSY:,EQU,571B.CЧETЧИK B ИПЗ 002528 : *ИПД:LC,BLOCK,(9),SC/FULL 002529 : C5:,LC,1 002530 : ДHЗ:,LC,1 002531 : ERRMACRO:,SUBP, 002532 : PERMIR:,SUBP, 002533 : CLOMIR:,SUBP, 002534 : CLANEWTA:,SUBP, 002535 : 13,REL,* 002536 : BEGIN:,BSS, 002537 : ,ITA,13 002538 : ,ATX,FSBASENR 002539 : ,XTA,БAЗAПPИЗ 002540 : ,AAX,C77777 002541 : ,AEX,BIT1 002542 : 13,U1A,YBBKNRS-BEGIN 002543 : ,XTA,DISREG 002544 : ,ATI,27B 002545 : ,XTA,CNUMT 002546 : C ЗAДAЧA BBOДA C ПЛ CBOБOДHA 002547 : ,UZA,FREE 002548 : ,AEX,Д H З 002549 : ,U1A,MAT1 002550 : FREE:14,V1M,THISJOB 002551 : C ЭTO OTKAЗ 002552 : MACREF:,XTA,CNUMT 002553 : ,UZA,THENSNOT 002554 : ,WTC,ДHЗ 002555 : ,XTA,BITS 002556 : ,AAX,SC/FULL 002557 : ,UZA,ENDZER 002558 : ,XTA,CNTSYOWN.ДOБABЛEHИE 002559 : ,WTC,ГYC. ЧИCЛA 002560 : ,ARX,CNTSY.ПPИHЯTЫX 002561 : ,WTC,ГYC.CИMBOЛOB B 002562 : ,ATX,CNTSY.CЧETЧИK ИПЗ 002563 : ,XTA, 002564 : ENDZER:,ATX,CNTSYOWN 002565 : ,ATX,CNUMT 002566 : ,ATX,SIMAF 002567 : ,WTC,NUMFSM 002568 : ,033,10B 002569 : ,WTC,NUMFSM 002570 : ,XTA,BIT42 002571 : 13,VJM,CLOMIR 002572 : THENSNOT:,BSS, 002573 : ,XTA,SAVI13 002574 : ,ATI,13 002575 : ,WTC,FSBASENR 002576 : ,XTA,INFREF-BEGIN 002577 : ,ARX,FSBASENR 002578 : ,UJ,NRESOFF 002579 : C ЭTO BBOД 002580 : THISJOB:,BSS, 002581 : 14,VTM,PART2 002582 : 14,MTJ,33B.ПOCЛE ПPEPЫB. 002583 : ,XTA,CNUMT 002584 : ,UZA,FIRSTEN 002585 : ,WTC,ГYC 002586 : 14,VTM, 002587 : 14,XTA,BISTIME 002588 : ,NTR, 002589 : ,A+X,R1/500 002590 : 14,ATX,BISTIME 002591 : 14,VTM,CLANEWTA 002592 : C BKЛЮЧEHИE ПPOTЯЖKИ 002593 : TINMOVE:,ENTRY, 002594 : TINMOVE:,XTA,C5 002595 : ,ATX,SIMAF 002596 : ,WTC,NUMFSM 002597 : ,033,10B 002598 : 14,UJ, 002599 : C ПEPBOE OБPAЩEHИE 002600 : FIRSTEN:,BSS, 002601 : ,XTA,7 002602 : ,ASN,64+1. 002603 : ,AAX,BIT1 002604 : ,ATX,NUMFSM 002605 : ,XTA,SAVI14 002606 : ,ASN,64+6 002607 : ,U1A,ARINPE.BBOД MACCИBA 002608 : C BBOД OДHOГO CИMBOЛA 002609 : ,XTA,SAVI14 002610 : ,AAX,BIT1 002611 : ,U1A,M5NEED 002612 : ,XTA,C377 002613 : ,UJ,GENBRAN 002614 : M5NEED:,XTA,C37 002615 : GENBRAN:,ATX,MASK 002616 : ,WTC,NUMFSM.OПPEДEЛEHИE 002617 : ,XTA,BIT2.TИПA ПPOTЯЖKИ 002618 : ,AAX,TYP/PL 002619 : ,UZA,*1.FSM 002620 : ,XTA,C377.BHИЭM 002621 : *1:,ATX,INVERT 002622 : ,XTA,Д H З 002623 : ,ATX,CNUMT 002624 : ,WTC,ГYC 002625 : ,XTA,BISTIME 002626 : ,NTR, 002627 : ,A+X,R1/1 002628 : ,WTC,ГYC 002629 : ,ATX,BISTIME 002630 : 14,VTM,CLANEWTA 002631 : C BKЛЮЧEHИE ДBИГATEЛЯ 002632 : STARTFSM:,ENTRY, 002633 : ,XTA, 002634 : ,ATX,FFPT 002635 : ,ATX,ADOFACC 002636 : ,XTA,BIT7 002637 : ,ATX,BORD 002638 : ,XTA,BIT3 002639 : ,WTC,NUMFSM 002640 : ,033,10B 002641 : 14,UJ, 002642 : MAT1:,BSS, 002643 : 15,VTM,TOЗAH 002644 : ,ITA,15 002645 : 14,VJM,TTPRINT 002646 : 14,VTM,TOЗAHA 002647 : ,UJ,ERRMACRO 002648 : ARINPE:,BSS, 002649 : C...... ИHИЦИAЦИЯ BBOДA MACCИBA 002650 : ,XTA,BIT40.CЧETЧИK CЛOB 002651 : ,ATX,PNTW.И TOЧKA ЗAПИCИ 002652 : ,E+N,172B.CЧETЧИK CИMBOЛOB 002653 : ,ATX,CSIW.И TOЧKA ЧTEHИЯ 002654 : ,XTA,SAVI13 002655 : ,ATX,MYI13 002656 : ,ITA,13 002657 : ,ATX,SAVI13.БAЗA 002658 : ,XTA, 002659 : ,UJ,GENBRAN 002660 : PART2:,BSS, 002661 : C...... PAБOTA ПOCЛE ПPEPЫBAHИЯ 002662 : ,WTC,FSBASENR 002663 : ,XTA,MASK-BEGIN 002664 : ,UZA,IFEND.ИДET MACCИB 002665 : ,AAX,SYMBOL 002666 : KOH:,ATX,SAVAC 002667 : KOH1:,MTJ,27B 002668 : ,UJ,OUTMACRO 002669 : TOVINT:,BSS, 002670 : C ... V-OПEPAЦИЯ ДЛЯ ПPOTЯЖKИ 002671 : ,XTA,FFPT.БЫЛA ЛИ ABAPИЯ 002672 : ,U1A,AFARINT.БЫЛA 002673 : 14,VJM,TINMOVE 002674 : C BOCCTAHOBЛEHИE TOЧKИ ПO MAT.ПAM. 002675 : ,XTA,SAVI14 002676 : ,ATI,14 002677 : AFARINT:,BSS, 002678 : C...... ПPИEM CЛOB MACCИBA 002679 : ,WTC,CSIW 002680 : ,XTA,BUF.OЧEPEДHOE CЛOBO 002681 : :,24, 002682 : 14,ATX, 002683 : ,24,2003B 002684 : 14,UTM,1 002685 : ,ITA,14 002686 : ,ATX,SAVI14 002687 : ,XTA,CSIW.ПPOДBИЖKA 002688 : ,ARX,BIT1.YKAЗATEЛЯ 002689 : ,AAX,MASCI.ЧTEHИЯ 002690 : ,ATX,CSIW 002691 : ,XTA,PNTW.CЧET CЛOB 002692 : ,E+N,64-1.B БYФEPE 002693 : ,ARX,BIT16.И B MACCИBE 002694 : ,ATX,PNTW 002695 : ,E+N,64+1.ЗAKPЫT ЛИ ПYCK 002696 : ,UZA,TOVINT.ЗAKPЫT 002697 : C ECTЬ ЛИ EЩE CЛOBA B БYФEPE: 002698 : ,E+N,64+62 002699 : ,UZA,AFARINT.EЩE ECTЬ 002700 : C HA ЗAKPЫTИE ПOTPEБИTEЛЯ 002701 : 14,VTM,IFEND 002702 : 14,MTJ,33B 002703 : ,XTA,DISREG 002704 : ,ATI,27B 002705 : ,UJ,CLANEWTA 002706 : C HE KOHЧEH ЛИ MACCИB 002707 : IFEND:,XTA,PNTW 002708 : ,E+N,64+63 002709 : ,UZA,AFARINT.HET, HE KOHЧEH 002710 : C MACCИB OKOHЧEH. ПOДCЧИTAEM 002711 : C KOMMEPЧECKOE BPEMЯ. 002712 : ,XTA,PNTW 002713 : ,ASN,64+15 002714 : ,ASN,64-24 002715 : ,AOX,BIT48 002716 : ,NTR, 002717 : ,E+N,64+16.40-24 002718 : ,A*X,R1/500.ИЗ "*TAKCA" 002719 : ,WTC,*YCЫ 002720 : ,A+X,BISTIME 002721 : ,WTC,*YCЫ 002722 : ,ATX,BISTIME 002723 : ,XTA,MYI13 002724 : ,ATX,SAVI13 002725 : ,XTA,PNTW 002726 : ,ATX,SAVAC 002727 : ,UJ,MACREF 002728 : INTPT:,ENTRY, 002729 : C.........PEAKЦИЯ ПPEPЫBAHИЙ ФCM-1500 002730 : ,WTC,FSBASENR 002731 : 13,VTM, 002732 : ,XTA, 002733 : ,ATX, COUNTER2 002734 : ,ATX, SIMAF 002735 : ,WTC,NUMFSM 002736 : ,033,4014B 002737 : ,AEX,INVERT 002738 : ,AAX,C377 002739 : ,ATX,SYMBOL 002740 : ,XTA, ADOFACC 002741 : ,U1A, NRNEQ1 002742 : C ПEPBOE ПPEPЫBAHИE 002743 : ,XTA,BIT1 002744 : ,ATX,ADOFACC 002745 : 14,VTM,NEWTA 002746 : ,UJ,TINMOVE 002747 : C HE ПEPBOE ПPEPЫBAHИE 002748 : NRNEQ1:,ARX,CNTSYOWN.CЧET 002749 : ,ATX,CNTSYOWN.CИMBOЛOB 002750 : ,XTA,MASK 002751 : ,UZA,ARINI.BBOД MACCИBA 002752 : ,WTC,CNUMT 002753 : ,XTA,BITS 002754 : ,AOX, RDSCAL 002755 : ,ATX,RDSCAL 002756 : RETSTOP:,BSS, 002757 : C CTOП BHИЭM И BЫXOД ИЗ ПPEPЫBAHИЯ 002758 : ,XTA,INVERT 002759 : ,UZA,NEWTA 002760 : C BЫKЛЮЧEHИE ПPOTЯЖKИ. 002761 : ,XTA,BIT3 .ДЛЯ BHИИЭM 002762 : ,WTC,NUMFSM.ДЛЯ BHИИЭM 002763 : ,033,10B .ДЛЯ BHИИЭM 002764 : ,UJ,NEWTA 002765 : ARINI:,BSS, 002766 : C...... ПPEPЫBAHИE B PEЖИME BBOДA 002767 : ,XTA,WORD.HAKOПЛEHИE 002768 : ,ASN,64-8.CИMBOЛOB 002769 : ,AOX,SYMBOL.B CЛOBE 002770 : ,ATX,WORD 002771 : ,XTA,CSIW 002772 : ,E+N,64+1.CЧET CИMBOЛOB 002773 : ,ATX,CSIW.B CЛOBE 002774 : 14,VTM,RETURN 002775 : ,U1A,TINMOVE.HA ПYCK FSM 002776 : ,E+N,64-6.YCTAHOBKA CЧET- 002777 : ,ATX,CSIW.ЧИKA CИMBOЛOB 002778 : C ЗAПИCЬ CЛOBA B БYФEP 002779 : ,XTA,WORD 002780 : ,WTC,PNTW 002781 : ,ATX,BUF 002782 : C ПPOДBИЖKA YKAЗATEЛЯ ЗAПИCИ 002783 : ,XTA,PNTW 002784 : ,ARX,BIT1 002785 : ,AAX,MASCI 002786 : ,E+N,64+1.CЧET CЛOB B БYФ. 002787 : ,ATX,PNTW 002788 : ,UZA,RETSTOP.БYФEP ПOЛH 002789 : 14,VJM,TINMOVE 002790 : C HE HAДO ЛИ OTKPЫTЬ ЗAДAЧY 002791 : ,XTA,PNTW 002792 : ,E+N,64+62 002793 : ,UZA,RETURN.HE HAДO 002794 : ,WTC,CNUMT 002795 : ,XTA,BITS 002796 : ,AOX,RDSCAL 002797 : ,ATX,RDSCAL 002798 : ,UJ,NEWTA 002799 : INFREF:,Z00,NREFSM 002800 : ,Z00,KOH1-BEGIN 002801 : R1/1 :,REAL,1.0 002802 : MASCI:,OCT,7777 7777 7770 0077 002803 : TOЗAH :, ISO,12HFSM ЗAHЯTO'''' 002804 : TOЗAHA:,GOST,12HFSM ЗAHЯTO'231' 002805 : CNTSYOWN:,OCT, 002806 : FSJOBAR:,ENTRY, 002807 : INVERT:,BSS,1 002808 : MYI13:,BSS,1 002809 : WORD :,BSS,1 002810 : CSIW :,BSS,1 002811 : PNTW :,BSS,1 002812 : MASK :,BSS,1 002813 : COUNTER2:,BSS,1 002814 : SIMAF :,BSS,1 002815 : BORD :,BSS,1 002816 : BUF :,BSS,64 002817 : ,END, 002818 : FSCONTR:,NAME, 002819 : C.........KOHTPOЛЬ BBOДA C ФCM-1500 002820 : EFSMNRS:,SUBP, 002821 : B:,EQU,EFSMNRS 002822 : RETURN:,SUBP, 002823 : FSBASENR:,LC,1 002824 : * И П Д :LC,BLOCK,XNF 002825 : OUTJOBSC:,EQU,XNF+52B 002826 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 002827 : ADOFACC:,LC,4 002828 : NUMFSM:,EQU,ADOFACC+1 002829 : CNUMT:,EQU,ADOFACC+2 002830 : *677: B,BLOCK, BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42 002831 : ,CONT, BIT41,BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34 002832 : ,CONT, BIT33,BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26, 002833 : ,CONT, BIT25,BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18 002834 : ,CONT, BIT17,BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10 002835 : ,CONT, BIT9,BIT8,BIT7,BIT6,BIT5,BIT4,BIT3,BIT2,BIT1 002836 : RI14:,EQU,8 002837 : FFPT:,LC,1 002838 : C377:,LC,1 002839 : TTPRINT: ,SUBP, 002840 : TINMOVE:,SUBP, 002841 : FSJOBAR: ,SUBP, 002842 : FSJOBAR:I,BLOCK,(4),PNTW,MASK 002843 : ,CONT,COUNTER2,SIMAF,BORD 002844 : 13,REL,EFSMNRS 002845 : ,WTC,FSBASENR 002846 : 13,VTM, 002847 : ,XTA,FFPT 002848 : ,U1A,ISTHEND 002849 : C ABAPИИ HE БЫЛO 002850 : 13,XTA,BORD-B 002851 : ,UZA,WOZ 002852 : ,ARX,C377 002853 : ,AAX,C377 002854 : 13,ATX,BORD-B 002855 : ,U1A,WOZ 002856 : 13,ATX,COUNTER2-B 002857 : ,WTC,NUMFSM 002858 : ,XTA,BIT42 002859 : ,CALL,PERMIR 002860 : ,WTC,FSBASENR 002861 : 13,VTM, 002862 : 13,UTC, 002863 : 14,VJM,TINMOVE-EFSMNRS 002864 : WOZ:,BSS, 002865 : 13,XTA,SIMAF-B 002866 : ,UZA,LMWR13 002867 : ,XTA,BIT1 002868 : 13,ARX,COUNTER2-B 002869 : 13,ATX,COUNTER2-B 002870 : ,AEX,BIT5 002871 : ,U1A,LMWR13 002872 : C БЛOK PEAKЦИИ HA ABAPИЮ 002873 : ,WTC,NUMFSM 002874 : ,XTA,BIT42 002875 : ,CALL,CLOMIR 002876 : ,WTC,FSBASENR 002877 : 13,VTM, 002878 : ,XTA,BIT1 002879 : ,ATX,FFPT 002880 : ,XTA, 002881 : ,WTC,NUMFSM 002882 : ,033,10B 002883 : 13,MTJ,14 002884 : ,ATI, 002885 : ,XTA,ADOFACC 002886 : ,U1A,K1 002887 : ,UTC,TOBЫK-TTABF 002888 : K1:,BSS, 002889 : 14,UTM,TTABF-B 002890 : ,ITA,14 002891 : 14,CALL,TTPRINT 002892 : LMWR13:14,VTM, 002893 : ,UJ,RETURN 002894 : C БЫЛ ЛИ ПPИKAЗ HA BЫБPOC 002895 : ISTHEND:,BSS, 002896 : C ЗAKPЫTA ЛИ ЗAДAЧA ПO ПOBOДY FS 002897 : 13,XTA,PNTW-B 002898 : ,NTR,7 002899 : ,E+N,64+63 002900 : ,UZA,LMWR13.HET 002901 : C HE BЫБPACЫBAЛИ ЛИ ЗAДAЧY: 002902 : ,XTA,OUTJOBSC 002903 : ,WTC,CNUMT 002904 : ,AAX,BITS 002905 : ,U1A,OPENTA.BЫБPACЫBAЛИ 002906 : 13,XTA,MASK-B.BBOД MACCИBA: 002907 : ,U1A,LMWR13.HET 002908 : ,ARX,FFPT.ПPИЗHAK KOHЦA: 002909 : ,U1A,LMWR13.HET 002910 : ,WTC,CNUMT 002911 : ,XTA,BITS 002912 : OPENTA:,AOX,RDSCAL 002913 : ,ATX,RDSCAL 002914 : ,XTA, 002915 : ,ATX,FFPT 002916 : ,UJ,LMWR13 002917 : TTABF:,ISO,12HOБPЫB ПЛ'''''''' 002918 : TOBЫK :,ISO,12HFSM BЫKЛ.'''''' 002919 : ,END, 002920 : MACRO64 : ,NAME, 002921 : *ИПД:LC,BLOCK,(54),БЛOKAЦПY 002922 : NR/64:,SUBP, 002923 : EMULAT:,SUBP, 002924 : OUTMACRO:,SUBP, 002925 : SAVEMOD:,SUBP, 002926 : C77357:,LC,1 002927 : SMASAV:LC,BLOCK,SAVAC 002928 : NRESCALL:,SUBP, 002929 : M:,EQU,100B 002930 : REGSCAL:,EQU,M 002931 : M72:,EQU,M+2 002932 : M75:,EQU,M+5 002933 : *YCЫ:LC,BLOCK,ГYC 002934 : *677:B,BLOCK,BITS,BIT48 002935 : ,CONT,BIT47,BIT46,BIT45,BIT44 002936 : Д H З :LC,BLOCK,(1),BITJ 002937 : :,XTA,*+1 002938 : ,UJ,EMULAT 002939 : :,Z00,4000B.БИT Э64 002940 : ,Z00,*+1 002941 : :,ITA,27B 002942 : ,AAX,C77357 002943 : ,ATI,27B 002944 : ,WTC,ГYC 002945 : ,ATX,M72 002946 : ,XTA,БЛOKAЦПY 002947 : ,AAX,BITJ 002948 : ,U1A,YДAB/64 002949 : ,WTC,ГYC 002950 : ,XTA,REGSCAL 002951 : ,AOX,BIT44 002952 : 14,VZM,STS 002953 : 14,UTM,-1 002954 : 14,VLM,NOSPEC 002955 : ,AEX,BIT44 002956 : STS:,AEX,BIT44 002957 : ,WTC,ГYC 002958 : ,ATX,REGSCAL 002959 : YДAB/64:,BSS, 002960 : 13,MTJ,16 002961 : ,ATX,SAVAC 002962 : 13,VTM,OUTMACRO 002963 : ,UJ,SAVEMOD 002964 : MA64*:,ENTRY, 002965 : NOSPEC:,WTC,ГYC 002966 : ,WTC,M72 002967 : : ,24, 002968 : 14,XTA, 002969 : : ,24,2003B 002970 : ,ATX,SAVAC 002971 : ,ITA,7 002972 : ,WTC,ГYC 002973 : ,ATX,M75 002974 : ,XTA,INF 002975 : ,UJ,NRESCALL 002976 : INF:,Z00,NR/64 002977 : ,,7 002978 : ,END, 002979 : *PR/COM:,NAME, 002980 : C... ЯЧEЙKИ ЗAДAЧИ ПEЧATИ 002981 : NSTRI:,BSS, 002982 : ,LOG,35 002983 : ,LOG,35 002984 : OLDBLS:,BSS,2 002985 : NEWBLS:,BSS,2 002986 : ,END, 002987 : PRINTASK:,NAME,. 002988 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 002989 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 002990 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 002991 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 002992 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 002993 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 002994 : BT:,EQU,4. 002995 : C1:,EQU,BIT1. 002996 : C3:,LC,1 002997 : AB:,EQU,5. 002998 : NS:,EQU,6. 002999 : LB:,EQU,7. 003000 : LN:,EQU,8. 003001 : SM:,EQU,9. 003002 : RI:,EQU,10. 003003 : R1:,EQU,11. 003004 : RT:,EQU,13 003005 : BASEPRTA:,LC,1 003006 : NRPRTA:,SUBP, 003007 : TPHYS:,LC,1 003008 : NRTABL:,SUBP, 003009 : PRINTASK:,SUBP, 003010 : NLPRTA:,P/P,(PRINTASK)1024 003011 : DESCR:,EQU,NRTABL+NLPRTA 003012 : *PR/COM:LC,BLOCK,CNS(2),COBL(2),CNBL(2) 003013 : WRSUM:,SUBP, 003014 : WRSYM:,EQU,WRSUM 003015 : ERROR:,SUBP, 003016 : INITSTR:,SUBP, 003017 : PRINTL:,SUBP, 003018 : CHAT:,SUBP, 003019 : NSTRI:,EQU,75B 003020 : *46:B,BLOCK,NEWBLS,OLDBLS 003021 : SAVIND:,SUBP,. 003022 : C200:,EQU,BIT8 003023 : C177:,LC,1 003024 : C7:,LC,1. 003025 : C14:,LC,1. 003026 : C77777:,LC,1. 003027 : CLOMIR:,SUBP,. 003028 : *YCЫ: LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,(2),M1RDSC,STCLTA 003029 : ,CONT,AЦПY(2) 003030 : CON TIME:LC,BLOCK,(8),TAЦПY(2) 003031 : *STATBUF:LC,BLOCK,(9),CTAT ПEЧ(2),(4),RPRI 003032 : CИ MAX:,EQU,BIT7. 003033 : TIME10:,SUBP, 003034 : TEL OUT:,SUBP, 003035 : CWLP1:,EQU,*YCЫ+10B. 003036 : LMAT:,EQU,20B. 003037 : RETURN:,SUBP,. 003038 : C77:,LC,1 003039 : NEWTA:,SUBP,. 003040 : NLP:,EQU,12B.ИHД12 B ИПЗ PEДAKT. 003041 : NP:,EQU,12 003042 : C377:,LC,1 003043 : CHECKLP:,SUBP, 003044 : ALLTOISO:,SUBP, 003045 : TP:,EQU,RI 003046 : PERMIR:,SUBP,. 003047 : CAXAPOB, BEPETEHOB - YПЛOTHEHИE ИПЗ 003048 : C ЯЧEЙKИ TИПA П 003049 : *460:B,BLOCK,NEMPTY,RQ,FIRST,SCAL,W 003050 : ,CONT,R2,A/OUT,DT,NSI 003051 : ,CONT,SCNT,NSIO,R3,NRC 003052 : C ЯЧEЙKИ TИПA PП 003053 : *30 :B,BLOCK,QUEFLAG,ET,EBUF 003054 : ,CONT,OVFLAG,LBUF 003055 : BEGMAT:,EQU,500B. 003056 : FULWOR:,LC,1. 003057 : *TYPELP:LC,BLOCK,(1),N ПPOT,CONЖДY,CDT 003058 : C2003:,LC,1 003059 : COMLP:,LC,1 003060 : SEMUP:,SUBP, 003061 : ШЛAГБAYM:LC,BLOCK,(13),SEMLP 003062 : C---------------- 003063 : PRTA:,BSS,. 003064 : : ,24,2003B. 003065 : 14,REL,PRTA 003066 : ,WTC,BASEPRTA 003067 : 14,VTM, 003068 : 15,XTA,QUEFLAG. 003069 : ,UZA,CLOSE. 003070 : ,ITA,BT 003071 : 15,AEX,ET.KOHEЦ TEKCTA 003072 : ,U1A,PRINT. 003073 : 15,ATX,QUEFLAG. 003074 : TP,V1M,CHINOUT 003075 : ,UJ,RETPT. 003076 : CLOSE:,BSS,. 003077 : TP,V1M,SUP.OCBOБOЖДEHИE CEMAФOPA 003078 : : ,24,2003B. 003079 : ,XTA,C12. 003080 : 12,032,14B.BЫKЛЮЧEHИE MOTOPA И ЛEHTЫ 003081 : 12,XTA,BIT48. 003082 : 12,AOX,BIT39. 003083 : 13,VTM,RETPT. 003084 : ,UJ,CLOMIR. 003085 : PRINT:,BSS, 003086 : TP,VZM,PRBESM 003087 : 15,XTA,NEMPTY 003088 : ,UIA,MOVE 003089 : PRBESM:,BSS, 003090 : BT,XTA,.HAЧAЛO CTPOKИ 003091 : ,ASN,64-8. 003092 : ,YTA,. 003093 : 15,ATX,NEMPTY.ЧИCЛO ПPOTЯЖEK 003094 : ,UZA,FORMAT.HA ФOPMИPOBAHИE MATPИЦЫ 003095 : BT,XTA,. 003096 : ,AAX,CLEMPTY. 003097 : BT,ATX,.CTИPAHИE ЧИCЛA ПPOTЯЖEK 003098 : ,XTA,7 003099 : ,AOX,*TYPELP.ЭKOHOMИЯ 003100 : 12,AAX,BIT40.ПPOTЯЖEK 003101 : ,UZA,NOCORR.-HET 003102 : 15,XTA,NEMPTY 003103 : ,ARX,C3.ПPOTЯЖEK 003104 : ,ASN,64+3.БOЛЬШE 4 003105 : ,UZA,NOCORR.-HET 003106 : ,XTA,N ПPOT 003107 : 15,ATX,NEMPTY 003108 : NOCORR:TP,VIM,MOVE.EC ПPOTЯЖKИ 003109 : RETPT:,ENTRY, 003110 : RETPT:,BSS, 003111 : : ,24,2003B 003112 : ,XTA,COMMIR 003113 : ,AAX,=:6006 003114 : ,U1A,RETPT1 003115 : ,XTA,DESCR 003116 : ,ATI,13 003117 : ,AAX,= 0370 0000.ЧИCЛO BЛAДEЛЬЦEB 003118 : ,WTC,AЦПY 003119 : ,AOX,QUEFLAG 003120 : ,WTC,AЦПY+1 003121 : ,AOX,QUEFLAG 003122 : ,UIA,RETPT1 003123 : ,ATX,BASEPRTA 003124 : 1,VTM,-1 003125 : SAV:1,WTC,AЦПY+1 003126 : 2,VTM, 003127 : 2,XTA,NSTRI 003128 : 1,ATX,CNS+1 003129 : 2,XTA,OLDBLS 003130 : 1,ATX,COBL+1 003131 : 2,XTA,NEWBLS 003132 : 1,ATX,CNBL+1 003133 : 1,VLM,SAV 003134 : 13,XTA,TPHYS 003135 : ,AOX,BIT1 003136 : ,AEX,BIT1 003137 : 13,ATX,TPHYS 003138 : RETPT1:,ITA,15 003139 : 15,VTM,PRTA. 003140 : ,UJ,SAVIND.ЗAKPЫTИE ЗAДAЧИ 003141 : FORMAT:,BSS, 003142 : TP,V1M,PRINTL 003143 : 15,XTA,NSI 003144 : ,ASN,64+3. 003145 : ,ARX,C1. 003146 : 15,ATX,RQ.HOMEP ПOДMATPИЦЫ 003147 : ,AEX,C14. 003148 : ,U1A,*1. 003149 : 15,ATX,RQ. 003150 : *1:,BSS,. 003151 : 15,XTA,FIRST. 003152 : ,U1A,SKSCCHEK. 003153 : 15,XTA,SCAL.ШKAЛA HEHYЛEBЫX ПOДMATPИЦ 003154 : 15,WTC,RQ. 003155 : ,AAX,BIT48. 003156 : ,UZA,RETPT. 003157 : SKSCCHEK:,BSS, 003158 : 15,XTA,NSI 003159 : ,AOX,C1 003160 : 15,ATX,NSIO.ПPИЗHAK И HOMEP 003161 : LPWORK:,ENTRY, 003162 : : ,24,3. 003163 : BT,MTJ,AB 003164 : 1,VTM,0.HOMEP ПOЗИЦИИ 003165 : NS,VTM,-4.CЧETЧИK CИMBOЛOB B CЛOBE 003166 : AB,XTA,. 003167 : ,ASN,64-8. 003168 : 15,ATX,W.CЛOBO 003169 : LN,VTM,0. 003170 : TP,VZM,LPW 003171 : C... BЫДAЧA ЛEBЫX ПPOБEЛOB HA AЦПY EC 003172 : SM,VTM,-7 003173 : SHIFT:,XTA,BIT7 003174 : 2,VJM,WRSYM 003175 : SM,VLM,SHIFT 003176 : LPW:15,XTA,W. 003177 : ,ASN,64-8. 003178 : 15,ATX,W. 003179 : ,YTA,. 003180 : ,ATI,SM.CИMBOЛ 003181 : ,AEX,CENDSTR. 003182 : ,UZA,ENDSTR.ECЛИ KOHEЦ CTPOKИ 003183 : ,ITA,1. 003184 : ,ASN,64+7. 003185 : ,U1A,EREND.ПЛOXAЯ CTPOKA 003186 : ,ITA,SM. 003187 : ,AAX,C200. 003188 : ,UZA,CHFIRST.ECЛИ HE ПPOБEЛЫ 003189 : SM,UTM,-200B. 003190 : SM,J+M,1.YЧET N+1 ПPOБEЛOB 003191 : TP,V1M,WRBLS 003192 : ,UJ,ELPW. 003193 : CHFIRST:,BSS, 003194 : TP,V1M,RECOD 003195 : ,ITA,SM 003196 : ,ASN,64+3. 003197 : ,ATI,R1.HOMEP ПOДMATPИЦЫ 003198 : 15,XTA,FIRST. 003199 : ,UZA,SKIPSCAL. 003200 : R1,XTA,BIT48 003201 : 15,AOX,SCAL. 003202 : 15,ATX,SCAL. 003203 : SKIPSCAL:,ITA,R1 003204 : 15,AEX,RQ. 003205 : ,U1A,ELPW. 003206 : C 003207 : C ФOPMИPOBAHИE ПOДMATPИЦЫ 003208 : C 003209 : ,ITA,SM. 003210 : ,AAX,C17. 003211 : ,ATI,2.AДPEC B ДBOЙHOЙ ПOДMATPИЦE 003212 : ,ITA,1. 003213 : ,AAX,C7. 003214 : ,ATI,R1. 003215 : ,UJ,CW 003216 : CW1:2,UTM,16 003217 : R1,UTM,-3 003218 : CW:,ITA,R1. 003219 : ,ARX,C1. 003220 : ,ASN,64+2. 003221 : ,U1A,CW1 003222 : FM:15,UTC,. 003223 : 2,UTM,BEGMAT. ,ITA,1. 003224 : ,ITA,1. 003225 : ,AAX,C177. 003226 : ,ASN,64+3. 003227 : ,AEX,C77777. 003228 : 15,ATX,R2. 003229 : ,ITA,R1. 003230 : ,ASN,64-4. 003231 : 15,ARX,R2. 003232 : ,ATI,3. 003233 : 3,XTA,BIT1-31. 003234 : 2,AOX,. 003235 : 2,ATX,.EДИHИЦA B MATPИЦY 003236 : ELPW:1,UTM,1. 003237 : NS,VLM,LPW. 003238 : NS,VTM,-5. 003239 : RT,VJM,BUFSTEP.ЦИKЛИЧECKOE ПPOДBИЖEHИE 003240 : AB,XTA,. 003241 : 15,ATX,W. 003242 : ,UJ,LPW. 003243 : TOBST:RT,VJM,BUFSTEP 003244 : EREND:AB,XTA,. 003245 : ,AAX,C177. 003246 : ,AEX,CENDSTR. 003247 : ,U1A,TOBST 003248 : ENDSTR:,24,2003B. 003249 : TP,V1M,ESTRLP 003250 : 15,ATX,FIRST. 003251 : 15,ATX,NSIO. 003252 : 15,WTC,RQ. 003253 : ,XTA,BIT48. 003254 : ,AEX,FULWOR. 003255 : 15,AAX,SCAL. 003256 : 15,ATX,SCAL.ПOДMATPИЦA ПOЛHOCTЬЮ BЫДAHA 003257 : ,ASN,64+36. 003258 : ,U1A,RETPT.ECЛИ HE BCЯ CTPOKA OTPAБOTAHA 003259 : ENDSTR1:,BSS, 003260 : RT,VJM,BUFSTEP 003261 : ,XTA,BIT25.ЧИCЛO 003262 : ,ARX,RPRI.PEAЛЬHO 003263 : ,ATX,RPRI.OTПEЧ.CTPOK 003264 : ,XTA,C1. 003265 : 15,ATX,FIRST. 003266 : AB,MTJ,BT.HOBOE HAЧAЛO TEKCTA 003267 : LN,J+M,LB.HOBAЯ ДLИHA CBOБ БYФEPA 003268 : 15,XTA,OVFLAG 003269 : ,UZA,WAIT 003270 : ,ITA,LB. 003271 : ,NTR,3. 003272 : ,X-A,MINBUF. 003273 : ,UZA,WAIT 003274 : ,XTA,. 003275 : 15,ATX,OVFLAG. 003276 : 12,XTA,AЦПY 003277 : ,ASN,64+36 003278 : ,AAX,C77 003279 : ,UZA,WAIT.ДOЛГO TEЛИЛИCЬ 003280 : ,ATI,RT 003281 : RT,XTA,BITS 003282 : ,AOX,RDSCAL. 003283 : ,ATX,RDSCAL.OTKPЫTИE ЗAДAЧИ MATEMATИKA 003284 : ,UJ,WAIT 003285 : BUFSTEP:AB,UTM,1. 003286 : LN,UTM,1. 003287 : ,ITA,AB. 003288 : 15,AEX,EBUF. 003289 : RT,U1A,. 003290 : 15,WTC,LBUF 003291 : AB,UTM, 003292 : RT,UJ,. 003293 : LPWAIT:,ENTRY, 003294 : WAIT:,BSS, 003295 : TP,VZM,RETPT 003296 : RI,VTM,=6000 003297 : ,XTA,BIT10.PAЗBЯЗKA 003298 : RT,VJM,CHAT 003299 : ,U1A,ERROR.HE PAЗBЯЗAЛИCЬ 003300 : ,XTA,COMLP 003301 : NP,AOX,BIT4 003302 : ,ATX,COMLP 003303 : ,033,26B.ДOП MACKA 003304 : ,EXT,4000B. - HAДO !!! 003305 : ,XTA,BIT11 003306 : 13,VJM,PERMIR 003307 : NP,UTC, 003308 : 13,VTM,CHECKLP 003309 : ,ITA,13 003310 : NP,ATX,TAЦПY 003311 : SUP:,BSS, 003312 : ,ITA,14 003313 : ,ARX,SEMLPUP 003314 : ,UJ,SEMUP 003315 : SEMLPUP:,Z00,SEMLP 003316 : ,Z00,RETPT-PRTA 003317 : MOVE:,BSS, 003318 : 15,XTA,NEMPTY 003319 : ,ASN,64+2 003320 : ,UZA,MAЛO 003321 : 15,XTA,NEMPTY 003322 : ,ARX,=77775 003323 : ,AAX,C77777 003324 : 15,ATX,NEMPTY 003325 : ,XTA,C3 003326 : NP,ARX,CTATПEЧ 003327 : NP,ATX,CTATПEЧ 003328 : ,XTA,=2033.TPOЙHOЙ ПPOПYCK 003329 : ,UJ,CHINOUT 003330 : MAЛO:,BSS, 003331 : 15,XTA,NEMPTY 003332 : ,ASN,64-3 003333 : ,AOX,C2003 003334 : 15,ATX,RQ 003335 : 15,XTA,NEMPTY 003336 : NP,ARX,CTATПEЧ 003337 : NP,ATX,CTATПEЧ 003338 : ,XTA, 003339 : 15,ATX,NEMPTY 003340 : ,UJ,INITSTR 003341 : CHINOUT:,BSS, 003342 : 15,ATX,RQ 003343 : ,UJ,INITSTR 003344 : WRBLS:,BSS, 003345 : SM,UTM,1 003346 : ,ITA,1 003347 : ,ASN,64+7 003348 : ,U1A,EREND 003349 : WRBL:,BSS, 003350 : ,XTA,BIT7.ПPOБEЛ 003351 : 2,VJM,WRSYM 003352 : SM,UTM,-1 003353 : SM,V1M,WRBL 003354 : ,UJ,ELPW 003355 : RECOD:,BSS, 003356 : SM,XTA,ALLTOISO 003357 : ,ASN,64-8 003358 : ,YTA, 003359 : 2,VTM,ELPW 003360 : ,UJ,WRSYM 003361 : ESTRLP:,BSS, 003362 : ,XTA,BIT11.KOHЧAЙ CTPOKY 003363 : RI,VTM,BIT11 003364 : RT,VJM,CHAT 003365 : ,UZA,ERROR.HET PEAKЦИИ 003366 : ,AAX,=1422 003367 : ,U1A,ERROR 003368 : ,UJ,ENDSTR1 003369 : CИAЦПY:,ENTRY,. 003370 : C PAБOTA B CИ 003371 : C 003372 : 13,XTA,CWLP1. 003373 : ,ATI,15. 003374 : 15,XTA,NSI. 003375 : ,ARX,C1. 003376 : ,AAX,C77777. 003377 : L77225:15,ATX,NSI. 003378 : ,AEX,C140. 003379 : ,UZA,L77225. 003380 : C.........ПPOBEPKA: HE ЖДEM ЛИ MЫ ПOCЛE ПPOTЯЖKИ 003381 : 13,XTA,CЧЖДY. 003382 : ,UZA,HEЖДY.HE ЖДEM 003383 : ,ARX,C77777. 003384 : ,AAX,C77777. 003385 : 13,ATX,CЧЖДY.CЧЖДY=CЧЖДY-1 003386 : ,U1A,RETURN.HE KOHЧИЛOCЬ ЖДY 003387 : ,XTA,CONЖДY.БЫCTPЫЙ ПPOГOH 003388 : ,UZA,KOH ЖДY. - ДA 003389 : HEЖДY:,BSS,. 003390 : ,032,4031B.OПPOC KOHЦA ПPOTЯЖKИ 003391 : 13,AAX,BIT24. 003392 : ,UZA,ПPOBCИ 003393 : KOHЖДY:,BSS,. 003394 : 15,XTA,SCNT.ПPOTЯЖKИ 003395 : ,U1A,L10721. 003396 : 15,XTA,DT.ЗATЯЖKA BPEMEHИ 003397 : ,UZA,L06465. 003398 : ,ARX,C77777. 003399 : ,AAX,C77777. 003400 : 15,ATX,DT. 003401 : ,UJ,RETURN. 003402 : ПPOB CИ:13,XTA,CЧ CИ.ECTЬ ЛИ ЗABИC. 003403 : ,AEX,CИ MAX.ПPOTЯЖKИ 003404 : ,UZA,RETURN. - БЫЛO 003405 : ,AEX,CИ MAX. 003406 : ,ARX,BIT1.KOPPEKTИP. 003407 : 13,ATX,CЧ CИ.CЧ.CИ OЖИДAHИЯ 003408 : ,AEX,CИ MAX. 003409 : ,UIA,RETURN.EЩE MAЛO CИ 003410 : ,XTA,BIT25. 003411 : 13,ARX,CTAT ПEЧ.ИHTEPBAЛ 003412 : 13,ATX,CTAT ПEЧ.B CTATИCTИKY 003413 : 15,VTM,HETИHT. 003414 : ,XTA,BIT4.ДЛЯ BЫK ДB 003415 : BЫKДBИ:,BSS, 003416 : 13,EXT,14B .BЫKЛ.ДBИГ. 003417 : ,ITA,13 003418 : ,ASN,64-15 003419 : ,AOX,BASEPRTA 003420 : ,ARX,ПPOBRD 003421 : 13,ATX,TAЦПY 003422 : ,WTC,BASEPRTA 003423 : 14,VJM,ДИAГH-PRTA 003424 : 13,XTA,BIT48 003425 : 13,VJM,CLOMIR 003426 : ,UJ,RETURN. 003427 : READY:,BSS, 003428 : 15,XTA,SCNT. 003429 : ,ARX,C77777. 003430 : ,AAX,C77777. 003431 : 15,ATX,SCNT. 003432 : ,U1A,L10724 003433 : ,XTA,CDT. 003434 : 15,ATX,DT. 003435 : L10724:,BSS,. 003436 : ,XTA,BIT1. 003437 : 13,032,14B.BЫДAЧA ПPOTЯЖKИ 003438 : ,XTA,BIT1.CЧETЧИK 003439 : 13,ARX,CTAT ПEЧ.ПEЧ.CTPOK 003440 : 13,ATX,CTAT ПEЧ.B CTATИCTИKY 003441 : ,XTA,. 003442 : 13,ATX,CЧ CИ.CИ ПPOTЯЖKИ 003443 : C.........YCTAHOBKA BЫДEPЖKИ ПOCЛE ПPOTЯЖKИ 003444 : ,XTA,CONЖДY 003445 : 13,ATX,CЧЖДY.CЧЖДY=16 003446 : ,UJ,RETURN. 003447 : L06465:,BSS,. 003448 : ,ITA,11 003449 : ,ATX,M11 003450 : 15,XTA,NSI. 003451 : ,AAX,C17. 003452 : ,ATI,11 003453 : 15,J+M,11 003454 : ,ITA,12. 003455 : ,ATX,W06355. 003456 : 12,VTM,3. 003457 : 13,VTM,-8. 003458 : LP:,BSS,. 003459 : :12,UTM,-1. 003460 : 11,XTA,BEGMAT 003461 : ,UZA,NW. 003462 : ,ASN,64-16. 003463 : 11,ATX,BEGMAT 003464 : ,YTA,. 003465 : 15,WTC,A/OUT 003466 : 13,033,50B. 003467 : ,ATI,. 003468 : ,ATI,. 003469 : ,033,. 003470 : 12,V1M,ELP. 003471 : NW:,BSS,. 003472 : :12,J+M,13. 003473 : 11,UTM,LMAT 003474 : 12,VTM,3. 003475 : ELP:,BSS,. 003476 : :13,VLM,LP. 003477 : ,XTA,M11 003478 : ,ATI,11 003479 : ,XTA,W06355. 003480 : ,ATI,12. 003481 : 15,XTA,NSI. 003482 : ,AAX,C7. 003483 : ,U1A,RETURN. 003484 : 15,XTA,NEMPTY. 003485 : 15,ATX,SCNT 003486 : ,XTA,. 003487 : 15,ATX,NEMPTY. 003488 : 15,XTA,SCNT 003489 : ,U1A,RETURN. 003490 : 15,XTA,NSIO 003491 : ,U1A,CLPRTA.ECTЬ HEДOФOPMИP. ПOДMATPИЦA 003492 : STAPRINT:,BSS,. 003493 : ,XTA,RDSCAL. 003494 : 15,WTC,NLP. 003495 : ,AOX,BIT41. 003496 : ,ATX,RDSCAL. 003497 : ,UJ,NEWTA. 003498 : CLPRTA:15,AEX,NSI 003499 : ,ASN,64+3. 003500 : ,UZA,STAPRINT.ДOФOPMИPOBATЬ 003501 : 15,WTC,NLP. 003502 : ,XTA,BIT41 003503 : ,AAX,RDSCAL. 003504 : ,AEX,RDSCAL. 003505 : ,ATX,RDSCAL. 003506 : ,UJ,NEWTA.ПOДOЖДEM CЛEДYЮЩEГO OБOPOTA 003507 : HYЛИAЦПY:,ENTRY,. 003508 : ,XTA,COMMIR.ПPOБA: 003509 : 13,AAX,BIT48.CБOЙ CИ AЦПY 003510 : ,UZA,YCT15. - HET 003511 : ,XTA,C137. 003512 : 13,WTC,CWLP1. 003513 : ,AEX,NSI. 003514 : ,UZA,YCT 15. - HET 003515 : ,XTA,BIT37. 003516 : 13,ARX,CTAT ПEЧ.CБOЙ CИ 003517 : 13,ATX,CTAT ПEЧ.B CTATИCTИKY 003518 : 15,VTM,CБOЙCИ.ДИAГHOCTИKA 003519 : 14,VJM,ДИAГH.HA OПEP.TT 003520 : ,WTC,BASEPRTA 003521 : 14,VTM, 003522 : YCT15:13,XTA,CWLP1. 003523 : ,ATI,15. 003524 : L06530:,XTA,C137. 003525 : 15,ATX,NSI. 003526 : ,EXT,4031B 003527 : 13,AAX,BIT20 003528 : ,U1A,L10722 003529 : 13,ATX,TAЦПY 003530 : 13,XTA,BIT48. 003531 : 13,VJM,PERMIR. 003532 : ,UJ,RETURN. 003533 : ПPOB RD:,BSS, 003534 : ,Z00, 003535 : ,Z00,///-PRTA 003536 : ///:,ASN,64+15 003537 : ,ATI,13.NLP 003538 : ПPOД ПP:,BSS, 003539 : ,EXT,4031B 003540 : 13,AAX,BIT20 003541 : ,U1A,TIME10.HET READY 003542 : ,XTA,BIT3.BKЛ ДBИГATEЛЯ 003543 : 13,EXT,14B 003544 : ,UJ,TIME10 003545 : L10721:,EXT,4031B 003546 : 13,AAX,BIT20 003547 : L10722:,UZA,READY 003548 : 13,XTA,TAЦПY 003549 : ,U1A,RETURN 003550 : 15,VTM,BЫKЛAЦПY 003551 : ,UJ,BЫKДBИ 003552 : ДИAГH:,ITA,13 003553 : ,ASN,64-40 003554 : ,WTC,BASEPRTA 003555 : ,ARX,=6H1'''''''''' - PRTA 003556 : 15,ATX,2 003557 : ,ITA,15 003558 : ,UJ,TELOUT 003559 : BЫKЛAЦПY:,ISO,12HBЫKЛ.AЦПY '1''1' 003560 : ,OCT, 003561 : HETИHT:,ISO,12HИHTEPB.AЦПY 003562 : ,LOG, 003563 : CБOЙCИ:,ISO,12HCБOЙCИ AЦПY 003564 : ,LOG, 003565 : M11:,BSS,1 003566 : W06355:,BSS,1. 003567 : C140:,LOG,140. 003568 : C137:,LOG,137. 003569 : CENDSTR:,LOG,176. 003570 : C12:,LOG,12. 003571 : C17:,LOG,17. 003572 : CLEMPTY:,OCT,00177777 77777777. 003573 : MINBUF:,LOG,144. 003574 : CЧЖДY:,BSS,2. 003575 : CЧ CИ:,BSS,2. 003576 : ,END,. 003577 : PRINTL:,NAME, 003578 : FIRM:,IFSEQ,D,DD**FI 003579 : INITSTR:,ENTRY, 003580 : CHAT:,ENTRY, 003581 : ERROR:,ENTRY, 003582 : WRSUM:,ENTRY, 003583 : :,33, 003584 : ,UJ,* 003585 : FIRM:,ELSE, 003586 : C 003587 : C... KYCOK ДPAЙBEPA EC-ПEЧATИ 003588 : C... ПPИ OTCYTCTBИИ OHOЙ - MOЖHO ЗAMEHИTЬ KYKЛOЙ 003589 : C 003590 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 003591 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 003592 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 003593 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 003594 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 003595 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 003596 : BT:,EQU,4. 003597 : C1:,EQU,BIT1. 003598 : C3:,LC,1 003599 : AB:,EQU,5. 003600 : NS:,EQU,6. 003601 : LB:,EQU,7. 003602 : LN:,EQU,8. 003603 : SM:,EQU,9. 003604 : RI:,EQU,10. 003605 : R1:,EQU,11. 003606 : RT:,EQU,13. 003607 : BASEPRTA:,LC,1 003608 : RETPT:,SUBP , 003609 : LPWORK: ,SUBP , 003610 : LPWAIT:,SUBP, 003611 : SAVIND:,SUBP,. 003612 : C200:,EQU,BIT8 003613 : C177:,LC,1 003614 : C7:,LC,1. 003615 : C14:,LC,1. 003616 : C77777:,LC,1. 003617 : CLOMIR:,SUBP,. 003618 : LBUF:,EQU,320B. 003619 : *YCЫ: LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,(2),M1RDSC,STCLTA 003620 : CON TIME:LC,BLOCK,(8),TAЦПY(2) 003621 : *STATBUF:LC,BLOCK,(9),CTAT ПEЧ(2),(4),RPRI 003622 : CИ MAX:,EQU,BIT7. 003623 : TIME10:,SUBP, 003624 : TEL OUT:,SUBP, 003625 : CWLP1:,EQU,*YCЫ+10B. 003626 : LMAT:,EQU,20B. 003627 : RETURN:,SUBP,. 003628 : PRINTASK:,SUBP,. 003629 : NEWTA:,SUBP,. 003630 : NLP:,EQU,12B.ИHД12 B ИПЗ PEДAKT. 003631 : NP:,EQU,12 003632 : C377:,LC,1 003633 : CHECKLP:,SUBP, 003634 : ALLTOISO:,SUBP, 003635 : TP:,EQU,RI 003636 : PERMIR:,SUBP,. 003637 : CAXAPOB, BEPETEHOB - YПЛOTHEHИE ИПЗ 003638 : C ЯЧEЙKИ TИПA П 003639 : *460:B,BLOCK,NEMPTY,RQ,FIRST,SCAL,W 003640 : ,CONT,R2,A/OUT,DT,NSI 003641 : ,CONT,SCNT,NSIO,R3,NRC 003642 : C ЯЧEЙKИ TИПA PП 003643 : *30 :B,BLOCK,QUEFLAG,ET,EBUF 003644 : ,CONT,OVFLAG 003645 : BEGMAT:,EQU,500B. 003646 : FULWOR:,LC,1. 003647 : C2004:,LC,1 003648 : COMLP:,LC,1 003649 : ШЛAГБAYM:LC,BLOCK,(13),SEMLP 003650 : SEMDOWNS:,SUBP, 003651 : SEMUP:,SUBP, 003652 : *TYPELP:LC,BLOCK,(1),N ПPOT,CONЖДY,CDT 003653 : PRINTL:,BSS, 003654 : ,XTA,=2001.ПEЧATЬ 003655 : 15,ATX,RQ 003656 : INITSTR:,ENTRY, 003657 : INITSTR:,BSS, 003658 : ,WTC,BASEPRTA 003659 : 14,VTM, 003660 : ,XTA,SEMLPDWN 003661 : ,UJ,SEMDOWNS 003662 : SEMLPDWN:,Z00,SEMLP 003663 : ,Z00,*+1 003664 : ,XTA,BIT11.ПPOBEPИTЬ BB/BЫB 003665 : RI,VTM,=6000 003666 : RT,VJM,CHAT 003667 : ,UZA,ERROR 003668 : ,AAX,=5422 003669 : ,U1A,ERROR 003670 : 15,ATX,NRC 003671 : ,XTA,BIT10.PAЗBЯЗKA 003672 : RT,VJM,CHAT 003673 : ,U1A,ERROR.HE PAЗBЯЗAЛИCЬ 003674 : 15,XTA,RQ.COБCTBEHHO KOMAHДA 003675 : 14,UZA,.HA HAЧ. PRINTASK 003676 : RT,VJM,CHAT 003677 : ,AAX,=5422 003678 : ,U1A,ERROR 003679 : 15,XTA,RQ 003680 : ,AAX,BIT2 003681 : 14,U1A,LPWAIT-PRINTASK 003682 : RI,VTM,BIT12 003683 : ,XTA,BIT10.ПYCK KAHAЛA 003684 : RT,VJM,CHAT 003685 : ,UZA,ERROR.HE ПYCTИЛCЯ 003686 : 14,UJ,LPWORK-PRINTASK 003687 : CHAT:,ENTRY, 003688 : CHAT:,BSS,.ДABAЙ ПOГOBOPИM 003689 : ,ATI, 003690 : NP,033,70B.BЫCKAЗAЛИCЬ 003691 : ,ATI, 003692 : R1,VTM,-2 003693 : WB:,BSS, 003694 : ,ATI, 003695 : NP,033,4070B.MOЖET OTBETИЛO 003696 : 15,ATX,R2 003697 : RI,AAX, 003698 : ,U1A,B.TAKИ OTBETИЛO 003699 : R1,VLM,WB 003700 : RT,UJ,.HE ДOЖДAЛИCЬ HYЖHOГO OTBETA 003701 : B:,BSS, 003702 : 15,XTA,R2 003703 : RT,UJ, 003704 : WRSUM:,ENTRY, 003705 : ,AOX,BIT12 003706 : RT,VJM,CHAT.BЫДAЧA CИMBOЛA 003707 : :,24,3 003708 : ,UZA,ERROR.HET OTBETA 003709 : ,AAX,BIT11.TOT ЛИ OTBET 003710 : 2,UZA,.-ДA 003711 : ERROR:,ENTRY, 003712 : ERROR:,BSS, 003713 : 15,ATX,R3 003714 : ,ASN,64-36 003715 : ,AUX,=6H'0''7''7''7''7''0' 003716 : ,AOX,=6H 0000'0' 003717 : : ,24,2003B 003718 : ,ATX,TL+1 003719 : ,ITA,NP 003720 : ,ARX,=6HOШ.LP1 003721 : 14,VTM,TL 003722 : ,ATX,TL 003723 : ,XTA,BIT10 003724 : RT,VJM,CHAT.ПOПЫTKA PAЗBЯЗKИ 003725 : 15,XTA,R3 003726 : ,AAX,BIT2 003727 : ,UZA,PRERR 003728 : ,XTA,C2004.YTOЧHИTЬ COCTOЯHИE 003729 : RI,VTM,BIT11 003730 : RT,VJM,CHAT 003731 : ,XTA,BIT10 003732 : RI,VTM,BIT12 003733 : RT,VJM,CHAT 003734 : 15,ATX,W 003735 : ,XTA,BIT10 003736 : RI,VTM,BIT11 003737 : RT,VJM,CHAT 003738 : ,XTA,BIT10 003739 : RT,VJM,CHAT 003740 : 15,XTA,W 003741 : ,AAX,BIT12 003742 : ,UZA,ERROR3 003743 : 15,XTA,R3 003744 : ,AAX,=5420 003745 : RT,VTM,-1 003746 : :,U1A,*+1 003747 : RT,VTM,776B 003748 : :,ITA,RT 003749 : 15,AAX,W 003750 : ,UZA,INITSTR 003751 : ,ASN,64-39 003752 : ERROR3:,BSS, 003753 : ,AUX,=6H'7''7''7''0''0''0' 003754 : ,AOX,=6H000'0''0''0' 003755 : PRERR:,ATX,TL+2 003756 : ,AEX,=6H100'''''' 003757 : ,UZA,PRERR3 003758 : ,XTA,BIT37 003759 : NP,ARX,CTATПEЧ 003760 : NP,ATX,CTATПEЧ 003761 : PRERR1:,ITA,14 003762 : 14,CALL,TELOUT 003763 : PRERR2:,XTA,BIT13.CБPOC 003764 : RT,VJM,CHAT.KOHTPOЛЛEPA 003765 : ,XTA,SEMLPUP 003766 : 15,ATX,QUEFLAG 003767 : ,UJ,SEMUP 003768 : SEMLPUP:,Z00,SEMLP 003769 : ,Z00,*+1 003770 : :,XTA,=R10.0 003771 : ,*57,13B 003772 : :,24,3 003773 : ,UJ,INITSTR 003774 : PRERR3:15,XTA,NRC 003775 : ,ARX,C1 003776 : ,AAX,C7 003777 : 15,ATX,NRC 003778 : ,AEX,C1 003779 : ,UZA,PRERR1 003780 : ,UJ,PRERR2 003781 : TL:,BSS,3 003782 : FIRM:,ENDIF, 003783 : ,END,. 003784 : *BUFLP1:,NAME, 003785 : CAXAPOB, BEPETEHOB - YПЛOTHEHИE ИПЗ 003786 : PRINTASK:,SUBP, 003787 : ,OCT, 003788 : ИПЗ:,OCT, 003789 : ,OCT, 003790 : ,OCT, 003791 : :,Z00, 003792 : ,Z00,PRINTASK. 003793 : ,OCT, 003794 : ,LOG,2013. 003795 : ,OCT, 003796 : :,Z00, 003797 : ,Z00,ИПЗ 003798 : ,OCT, 003799 : ,OCT, 003800 : ,OCT, 003801 : ,OCT, 003802 : ,OCT, 003803 : ,OCT, 003804 : ,OCT, 003805 : ,LOG,317. 003806 : ,OCT, 003807 : ,OCT, 003808 : :,Z00, 003809 : ,Z00,ИПЗ+140B.BT 003810 : ,OCT, 003811 : ,OCT, 003812 : ,OCT, 003813 : ,OCT, 003814 : ,OCT, 003815 : ,OCT, 003816 : :,Z00, 003817 : ,Z00,ИПЗ+140B.BE 003818 : :,Z00, 003819 : ,Z00,ИПЗ+460B.EBUF 003820 : ,OCT, 003821 : ,LOG,77460.LBUF 003822 : ,BSS,75B-35B 003823 : ,LOG,35.NSTRI 003824 : ,BSS,461B-75B 003825 : ,LOG,1.FIRST 003826 : ,BSS,3 003827 : ,LOG, 0.БAЗA ДЛЯ AЦПY 2 003828 : ,BSS,557B-466B. 003829 : ,END,*BUFLP1 003830 : *BUFLP2:,NAME, 003831 : CAXAPOB, BEPETEHOB - YПЛOTHEHИE ИПЗ 003832 : PRINTASK:,SUBP, 003833 : ,OCT, 003834 : ИПЗ:,OCT, 003835 : ,OCT, 003836 : ,OCT, 003837 : :,Z00, 003838 : ,Z00,PRINTASK. 003839 : ,OCT, 003840 : ,LOG,2013. 003841 : ,OCT, 003842 : :,Z00, 003843 : ,Z00,ИПЗ 003844 : ,OCT, 003845 : ,OCT, 003846 : ,LOG,1 003847 : ,OCT, 003848 : ,OCT, 003849 : ,OCT, 003850 : ,OCT, 003851 : ,LOG,317 003852 : ,OCT, 003853 : ,OCT, 003854 : :,Z00, 003855 : ,Z00,ИПЗ+140B.BT 003856 : ,OCT, 003857 : ,OCT, 003858 : ,OCT, 003859 : ,OCT, 003860 : ,OCT, 003861 : ,OCT, 003862 : :,Z00, 003863 : ,Z00,ИПЗ+140B.BE 003864 : :,Z00, 003865 : ,Z00,ИПЗ+460B.EBUF 003866 : ,OCT, 003867 : ,LOG,77460.LBUF 003868 : ,BSS,75B-35B 003869 : ,LOG,35.NSTRI 003870 : ,BSS,461B-75B 003871 : ,LOG,1.FIRST 003872 : ,BSS,3 003873 : ,LOG,10.БAЗA ДЛЯ AЦПY 1 003874 : ,BSS,557B-466B. 003875 : ,END,*BUFLP2 003876 : MAЛOMБ:,NAME, 003877 : C 003878 : C------------------------ 003879 : * И П Д :LC,BLOCK,XNF,XNFM(4),XNC,XNCM(2) 003880 : ,CONT,Ш/CЛYЖ,Ш/FULL,Ш/ПOTOK(5) 003881 : ,CONT,MБД 003882 : ,CONT,(26) 003883 : ,CONT,OUTJOBSC(5),SCMAMБ 003884 : ,CONT,ROLOUTSC 003885 : SCENDJO:,EQU,*ИПД+77B 003886 : * И П K :,LC,1 003887 : NMAT :,WEQ,XNC 003888 : NMATM1:,EQU,NMAT-1 003889 : NF :,WEQ,XNF 003890 : NFM:,WEQ,XNFM 003891 : NCM :,WEQ,XNCM 003892 : NMATL:,EQU,NF+NMATM1 003893 : INFEX :,EQU,*ИПK+NCM 003894 : AДP/ИПЗ:,EQU,INFEX+NCM 003895 : C------------------------ 003896 : *677:B,BLOCK,BITS 003897 : ,CONT,BIT48,BIT47,BIT46,BIT45,BIT44 003898 : ,CONT,BIT43,BIT42,BIT41,BIT40,BIT39 003899 : ,CONT,BIT38,BIT37,BIT36,BIT35,BIT34 003900 : ,CONT,BIT33,BIT32,BIT31,BIT30 003901 : ,CONT,BIT29,BIT28,BIT27,BIT26,BIT25 003902 : ,CONT,BIT24,BIT23,BIT22,BIT21,BIT20 003903 : ,CONT,BIT19,BIT18,BIT17,BIT16,BIT15 003904 : ,CONT,BIT14,BIT13,BIT12,BIT11,BIT10 003905 : ,CONT,BIT9,BIT8,BIT7,BIT6,BIT5,BIT4 003906 : ,CONT,BIT3,BIT2,BIT1 003907 : SELECT:,SUBP, 003908 : FULSAV:,SUBP, 003909 : NFRITR:,LC,1 003910 : FLMAMБ:,LC,1 003911 : SCALES:LC,BLOCK,(2),S1CLTA 003912 : *YCЫ:LC,BLOCK,ГYC 003913 : CWSWING:,EQU,*YCЫ+24B 003914 : CWMT3:,EQU,*YCЫ+NMATL 003915 : C7:,LC,1 003916 : C77777:,LC,1 003917 : C177:,LC,1 003918 : WANTCHAN:,LC,1 003919 : C1:,EQU,757B 003920 : DRIDENT:LC,BLOCK,KYC 003921 : TABDRU:LC,BLOCK,(16),DRUMOD 003922 : *ПДИCK:,LC, 003923 : LENTMD:,WEQ,*ПДИCK 003924 : TPHYS:,LC,32 003925 : B16/1:,LC,1 003926 : C3:,LC,1 003927 : B30/16:,LC,1 003928 : TPAKTЫ :,EQU,163B 003929 : GTRMASK:LC,BLOCK,MASK 003930 : FICDRU:,EQU,10.ДЛЯ TPAKTOB ПOДKAЧKИ 003931 : FULWOR:,LC,1 003932 : C77:,LC,1 003933 : C37:,LC,1 003934 : MASK12:,LC, 003935 : MAЛOMБ:,BSS, 003936 : C3777:,LC,1 003937 : ,XTA,BIT1 003938 : ,ATX,FLMAMБ. ЗAПPET ЗAПYCKA 003939 : ,XTA,NFRITR. CBOБ TPAK +1 003940 : ,UZA,HETTPAK. COBCEM ПЛOXO 003941 : ,XTA,ROLOUTSC. CБPACЫBAETCЯ 003942 : ,AOX,OUTJOBSC. BЫБPACЫBAЮT 003943 : ,AOX,SCENDJO . CAMA KOHЧAETCЯ 003944 : 14,AAX,BITS 003945 : ,U1A,BЫДAЧA.HY И ЛAДHO 003946 : C-- ПPOБA - OДHA ЛИ ЗAДAЧA 003947 : 8,VTM,1-NMAT 003948 : *//*:8,XTA,CWMT3 003949 : ,AEX,KYC 003950 : ,ASN,64+42 003951 : ,UZA,*/*.ЭTO MЫ 003952 : 8,XTA,CWMT3 003953 : ,AAX,B30/16 003954 : */*:,U1A,CLOSET 003955 : 8,VLM,*//*.ЗAДAЧA OДHA - 003956 : ,UJ,BЫДAЧA. - TPAKT ДAEM 003957 : C 003958 : CLOSET:,BSS, 003959 : C-- MЫ HE OДИHOKИ 003960 : C-- ПOCEMY HAC CЛEДYET ПPИKPЫTЬ 003961 : ,XTA,SCMAMБ 003962 : 14,AOX,BITS 003963 : ,ATX,SCMAMБ 003964 : ,UTC,TMAЛO-THET 003965 : HET TPAK:8,VTM,THET 003966 : 14,XTA,*YCЫ 003967 : ,ASN,64-27 003968 : ,AUX,=6H'''''7''7''''' 003969 : ,AOX,=6H Ш00'''' 003970 : 8,ATX,1 003971 : :,24,2003B 003972 : ,ITA,8 003973 : 14,MTJ,8 003974 : 14,CALL,TTPRINT 003975 : : ,24,3 003976 : 8,MTJ,14 003977 : ,XTA,NFRITR 003978 : ,UZA,* 003979 : ,UJ,BЫДAЧA 003980 : C--------- 003981 : TAKETR*:,ENTRY, 003982 : C****** BXOД 2 : OTKAЗ OT TPAKTA 003983 : C DRIDENT - KAK ПPИ ЗAXBATE 003984 : C BЫXOД ПO 13 PEГИCTPY. 003985 : C ПOPTЯTCЯ PEГИCTPЫ : 7,8,9,10,14 003986 : C 003987 : : ,24,2003B 003988 : 7,VTM,.ПPИЗH. "OTKAЗ" 003989 : GIVTRACK: ,ENTRY, 003990 : C****** BXOД 1 : ЗAXBAT TPAKTA 003991 : C ИHФOPMAЦИЯ B D R I D E N T : 003992 : C 48-43 ДHЗ ЗAДAЧИ 003993 : C 10-6 MAT. N MБ 003994 : C 5-1 MAT. N TPAKTA 003995 : C*** ПOДKAЧKA XOДИT TAK ЖE, HO C '1' 42P. 003996 : C ИCПOЛЬЗYЯ 'TPAKTЫ' 00-50. 003997 : C*** ПOPTЯTCЯ PEГИCTPЫ: 8,9,10,14 003998 : C BЫXOД ПO 7 PEГ. 003999 : C HA CYMMATOPE - K Y C ДЛЯ ФИЗ.OБM. 004000 : C ECЛИ TPAKT - ИЗ SCR.OБЛACTИ, 004001 : C TO B 48 P. KYC-A '1' 004002 : C B ЭTOM CЛYЧAE 'N MБ' B KYC-E 004003 : C ИHTEPПPETИPYETCЯ KAK ГЛOБ.HOMEP 004004 : C ЭKCTEHTA, A 'N TPAKTA' - KAK 004005 : C AДPEC BHYTPИ ЭKCTEHTA. 004006 : C 14 PEГ.= 0, ECЛИ БЫЛ ЗAXBAT 004007 : C--------------------------------------- 004008 : ЗAXBATTP:,XTA,KYC 004009 : ,ASN,64+2 004010 : ,ATI,10.N KЛETKИ B ИПЗ. 004011 : ,ASN,64+40 004012 : ,ATI,14.ДHЗ 004013 : 14,WTC,*YCЫ 004014 : 10,UTM,TPAKTЫ.CTPOKA B ИПЗ. 004015 : ,XTA,KYC 004016 : ,AAX,C3 004017 : ,ATI,9 004018 : 9,XTA,MASK12 004019 : C-- ПOЛYЧEHИE MACKИ 12-P. БAЙTA B ИПЗ 004020 : 9,VTM,0.HAЧHEM C MБ 004021 : ,ATX,MASK 004022 : C-- ДЛЯ USER-A ПPOBEPИM, HE MOДEЛИPYETCЯ 004023 : C-- ЛИ EГO БAPAБAH. 004024 : ,XTA,KYC 004025 : ,ASN,64+5 004026 : ,ATI,8.MБ 004027 : C-- HE OT ПOДKAЧKИ ЛИ ИДEM 004028 : ,AAX,BIT37 004029 : ,U1A,FROMSWIN 004030 : 10,UTM,FICDRU 004031 : ,XTA,MБД 004032 : 8,AAX,BIT48 004033 : ,UZA,ISTRACK 004034 : 9,VTM,16.HAЧHEM C MД 004035 : C-- 004036 : C-- ПPOБA: ECTЬ ЛИ YЖE ЭTOT TPAKT 004037 : ISTRACK:10,XTA, 004038 : ,APX,MASK 004039 : ,UIA,TRACKIS.ECTЬ 004040 : 7,VZM,TAKRET.БЫЛ OTKAЗ 004041 : C-- HYЖEH ЗAXBAT. 004042 : C-- ПPOБA HA MAЛOMБ. 004043 : ,XTA,NFRITR 004044 : ,ARX,RESERVTR 004045 : ,UZA,MAЛOMБ 004046 : ,UJ,BЫДAЧA 004047 : C-- 004048 : FROMSWIN:,BSS, 004049 : 9,VTM,.SWING-HAЧ C MБ 004050 : ,WTC,KYC 004051 : 8,VTM,-50B 004052 : 8,VIM,ISTRACK.HE ИПЗ 004053 : 14,UTC,-NFM 004054 : 10,VTM,AДP/ИПЗ 004055 : ,UJ,ISTRACK 004056 : C-- 004057 : TRACKIS:9,VTM, 004058 : ,ARX, 004059 : ,U1A,ITISDRUM 004060 : 9,VTM,16 004061 : ITISDRUM:7,VIM,GIVRET 004062 : ,AUX,TAKCON 004063 : ,ATI,8.TRAKT 004064 : ,ASN,64+15 004065 : ,ATI,14.MБ 004066 : ,ASN,64+3 004067 : ,UZA,V PAGE 004068 : C-- YBEЛИЧEHИE CЧETЧИKA CBOБOДHЫX 004069 : 14,XTA,BIT16-10B. 004070 : ,AAX,1 004071 : ,AAX,B16/1 004072 : 9,ASN,64 004073 : ,U1A,TAK1 004074 : ,XTA,BIT1 004075 : ,ARX,NFRITR 004076 : ,ATX,NFRITR 004077 : ,ARX,RESERVTR 004078 : ,UZA,TAK1 004079 : ,XTA, 004080 : ,ATX,SCMAMБ 004081 : ,ATX,FLMAMБ 004082 : ,ATX,S1CLTA 004083 : TAK1:,BSS, 004084 : C-- ЧИCTKA B ШKAЛE ЗAHЯTOCTИ 004085 : 9,VIM,TAK2 004086 : 14,MTJ,9 004087 : 9,UTM,-7 004088 : ,UJ,TAK3 004089 : TAK2:,ITA,14 004090 : 9,UTM,1 004091 : ,UTC,TABDRU-1 004092 : 9,AEX, 004093 : ,AAX,C77 004094 : ,U1A,TAK2 004095 : TAK3:8,XTA,BIT48 004096 : ,AEX,FULWOR 004097 : ,UTC,TABDRU-1 004098 : 9,AAX, 004099 : ,UTC,TABDRU-1 004100 : 9,ATX, 004101 : C-- ЧИCTKA KЛETKИ B ИПЗ 004102 : TAK4:10,XTA, 004103 : ,AOX,MASK 004104 : ,AEX,MASK 004105 : 10,ATX, 004106 : C-- 004107 : TAKRET:,BSS, 004108 : 13,UJ, 004109 : C-- "TPAKT" B ФИЗ.ПAMЯTИ 004110 : V PAGE:10,XTA, 004111 : ,APX,MASK 004112 : ,ASN,64-12 004113 : ,YTA, 004114 : ,ATI,14 004115 : ,XTA, 004116 : 14,ATX,TPHYS 004117 : ,UJ,TAK4 004118 : C-- 004119 : C-- ПOИCK CBOБOДHOГO TPAKTA MБ 004120 : C-- ИЛИ ЗOHЫ B SCRATCH-OБЛACTИ 004121 : BЫДAЧA:14,VTM,1-LENTMD 004122 : 8,VTM,DRUMOD 004123 : 9,VIM,S/FREE 004124 : 14,VTM,1-16 004125 : ,XTA,WANTCHAN 004126 : ,UZA,S/DRUM 004127 : 14,VTM,1-8 004128 : ,UTC,8 004129 : S/DRUM:8,VTM,TABDRU 004130 : S/FREE:8,XTA, 004131 : ,AAX,B16/1 004132 : ,UZA,NEXT 004133 : 8,XTA, 004134 : ,AEX,FULWOR 004135 : ,AOX,B16/1 004136 : ,AEX,B16/1 004137 : ,U1A,FR/IS 004138 : NEXT:8,UTM,1 004139 : 14,VLM,S/FREE 004140 : C-- B OДHOЙ OБЛACTИ HE HAШЛИ 004141 : C-- ПOИЩEM B ДPYГOЙ 004142 : 9,VIM,БAPAБAH 004143 : ,XTA,WANTCHAN 004144 : 9,VTM,16 004145 : ,UZA,BЫДAЧA 004146 : C-- БЫЛO ПPOCMOTPEHO TOЛЬKO OДHO 004147 : C-- БAPAБAHHOE HAПPABЛEHИE. 004148 : C-- ЗAГЛЯHEM B COCEДHEE. 004149 : ,XTA, 004150 : ,ATX,WANTCHAN 004151 : БAPAБAH:,BSS, 004152 : 9,VTM, 004153 : ,UJ,BЫДAЧA 004154 : C-- 004155 : C-- TPAKT HAЙДEH. XOMYTHEM EГO. 004156 : FR/IS:,ANX,C77777 004157 : ,ATI,14.N TPAKTA 004158 : 14,XTA,BIT48 004159 : C-- B ШKAЛY ЗAHЯTOCTИ 004160 : 8,AOX, 004161 : 8,ATX, 004162 : C-- B ИПЗ ЗAДAЧИ ПИШEM N MБ И TPAKTA 004163 : C ECЛИ TPAKT-SCRATCH, TO 'N MБ' - 004164 : C - ECTЬ ГЛOБAЛЬHЫЙ N ЭKCTEHTA ИЗ 004165 : C SCRATCH-OБЛACTИ. 004166 : ,ASN,64-5 004167 : ,ATX,WS 004168 : ,ITA,14 004169 : ,AOX,WS 004170 : ,ASN,64-36 004171 : ,ATX,WS 004172 : ,AUX,MASK 004173 : 10,AOX, 004174 : 10,ATX, 004175 : C-- YMEHЬШEHИE CЧETЧИKA CBOБOДHЫX 004176 : ,XTA,NFRITR 004177 : ,ARX,B16/1 004178 : ,AAX,B16/1 004179 : ,ATX,NFRITR 004180 : 9,VIM,DISC** 004181 : C-- KOPPEKЦИЯ WANTCHAN 004182 : ,XTA,BIT4 004183 : ,AEX,WANTCHAN 004184 : ,ATX,WANTCHAN 004185 : ,UJ,EXIT 004186 : C-- HEOБXOДИMO YBEЛИЧИTЬ PEЗEPB 004187 : DISC**:,XTA,BIGRESER 004188 : ,ATX,RESERVTR 004189 : EXIT:,XTA,WS 004190 : 14,VTM,.БЫЛ ЗAXBAT 004191 : GIVRET:,AUX,DRMASK 004192 : 7,UJ, 004193 : C--- 004194 : RESERVTR:,LOG,7777 7777 7777 7767.8 TPAKTOB 004195 : BIGRESER:,LOG,7777 7777 7777 7737.32 TPAKTA 004196 : C----------------------- 004197 : TAKCON:,BSS, 004198 : ,LOG,4000 0000 0770 0037 004199 : DRMASK:,BSS, 004200 : ,LOG,4070 0000 0000 1774 004201 : THET:,ISO,6HHET MБ 004202 : WS:,LOG, 004203 : TMAЛO:,ISO,12HMAЛOMБ 004204 : ,END, 004205 : PUT16:,NAME, 004206 : COMPUT16:LC,BLOCK,CANYBY,NUM8,BN8 004207 : TYPEMT:,SUBP, 004208 : BC16MC:,EQU,TYPEMT-3 004209 : BIT11:,EQU,745B 004210 : C 004211 : C BЫЧИCЛEHИE YBY-ШHЫX ПAPAMETPOB 004212 : C ЛEHTOЧHOГO KAHAЛA KBY 004213 : C ЗAДAHHOГO HA BXOДE B И.P.14 004214 : C 004215 : PUT16:14,XTA,BC16MC 004216 : ,ASN,64+3 004217 : ,ATX,CANYBY 004218 : ,ASN,64+15 004219 : ,ATX,NUM8 004220 : ,ASN,64+15 004221 : ,AAX,BIT11 004222 : ,ATX,BN8 004223 : 5,UJ, 004224 : ,END, 004225 : ABCHT:,NAME, 004226 : C 004227 : C*** ABAPИЙHOE CHЯTИE ЗAKAЗA HA OБMEH 004228 : C 004229 : C CYMMATOP = K Y C 004230 : C PEГИCTP D = HOMEP ДИAГHЛCTИKИ 004231 : C ИЛИ 0, ECЛИ ЗAДAЧY HE CHИMATЬ 004232 : C PEГИCTP X = AДPEC XAPAKTEPИCTИKИ 004233 : C OБMEHA (CYMM. ИЛИ PMP ЗAДAЧИ) 004234 : C PEГИCTP S = 0 ДЛЯ ЛEHT ИЛИ AДPEC 004235 : C PEЗYЛЬTATA OБMEHA ДЛЯ ДИCKOB 004236 : C ДЛЯ ЛEHT PEГ.14 = HOMEP HAПPABЛEHИЯ 004237 : C B K Y C -E БИT 38 CЧИTAETCЯ 004238 : C ПPИЗHAKOM 'ЗAДAЧA ЗAKPЫTA', БИT 18 004239 : C - ПPИЗHAKOM 'HYЖHA BПPABKA KOHTPOЛЯ' 004240 : C 004241 : C BЫXOД ПO R. ПOPTЯTCЯ: IF,L. 004242 : C HA BЫXOДE B IF - AДPEC ИПЗ ЗAДAЧИ 004243 : C 004244 : PRIP TRA:,SUBP, 004245 : ERRMACRO:,SUBP, 004246 : TYPE MT :,SUBP, 004247 : * Y C Ы :,LC,1 004248 : RET TRA :,LC,1 004249 : TPHYS :,LC,1 004250 : C2003 :,LC,1 004251 : DISREG :,LC,1 004252 : C77 :,LC,1 004253 : C13 :,LC,1 004254 : *700:B,BLOCK,B48(10),B38(20),B18 004255 : ST/EXCH:,EQU,-2 004256 : *0:,BLOCK,AC(2),PMP,R33(2),R27(3),R14 004257 : D:,EQU,7 004258 : X:,EQU,9 004259 : S:,EQU,11 004260 : R:,EQU,6 004261 : L:,EQU,10 004262 : IF:,EQU,4 004263 : C 004264 : ,ATX,KYC 004265 : ,ASN,64+42 004266 : ,ATI,IF 004267 : IF,WTC,*YCЫ 004268 : IF,VTM, 004269 : ,XTA,KYC 004270 : ,AAX,B38 004271 : ,UZA,ISOPEN 004272 : X,XTA, 004273 : IF,ATX,PMP 004274 : S,XTA, 004275 : IF,ATX,AC 004276 : C... ПPABKA 'KOHTPOЛЯ ЧИCЛA' 004277 : CONTR:,XTA,KYC 004278 : ,AAX,B18 004279 : R,UZA, 004280 : 5,MTJ,L 004281 : ,XTA,KYC 004282 : ,AAX,KPMASK 004283 : R,UZA,.HE OБMEH 004284 : 5,VJM,PRIP TRA 004285 : L,MTJ,5 004286 : L,VTM,-1023 004287 : ,XTA,A/INT 004288 : ,ATX,RET TRA 004289 : C 004290 : CONTR1:,XTA,C2003 004291 : ,ATI,21B 004292 : ,ATI, 004293 : : ,24,2002B 004294 : L,XTA,70000B+1023 004295 : ,ATI, 004296 : CONTR2:,24,2002B 004297 : L,ATX,70000B+1023 004298 : : ,24,3 004299 : L,VLM,CONTR1 004300 : S,VIM,EXIT 004301 : C... BOCCT.ПOCЛ.CЛOBA ЛИCTA ДЛЯ ЛEHT 004302 : ,XTA,C2003 004303 : ,ATI,21B 004304 : ,XTA,RET TRA 004305 : ,ASN,64+24 004306 : ,ATX,RET TRA 004307 : 14,WTC,TYPE MT - 3 004308 : ,XTA,5.***** 004309 : ,ATI, 004310 : ,ATI, 004311 : CONTR3:,24,2002B 004312 : ,ATX,71777B 004313 : C... B Ы X O Д 004314 : EXIT:,24,2003B 004315 : ,XTA,C13 004316 : ,ATI,21B 004317 : R,UJ, 004318 : C 004319 : C... ЗAДAЧA HE БЫЛA ЗAKPЫTA 004320 : C 004321 : ISOPEN:,XTA,KYC 004322 : ,APX,KPMASK 004323 : ,ASN,64+41 004324 : ,ATI,L 004325 : L,XTA,TPHYS 004326 : ,ASN,64+21 004327 : ,AAX,C77 004328 : ,ATI,L 004329 : L,XTA,B48 004330 : IF,AOX,ST/EXCH 004331 : IF,ATX,ST/EXCH 004332 : D,VZM,CONTR 004333 : C... ЗAДAЧE - BXOД B ERRMACRO 004334 : X,XTA, 004335 : IF,ATX,AC 004336 : ,ITA,D 004337 : IF,ATX,R14 004338 : ,XTA,DISREG 004339 : IF,ATX,R27 004340 : L,VTM,ERRMACRO 004341 : ,ITA,L 004342 : IF,ATX,R33 004343 : ,UJ,CONTR 004344 : A/INT:,Z00,CONTR3 004345 : ,Z00,CONTR2 004346 : KPMASK:,LOG,1 4037 0000 004347 : K Y C :,BSS,1 004348 : ,END, 004349 : MTDISPAC:,NAME, 004350 : R:,EQU,5 004351 : S:,EQU,6 004352 : J:,EQU,9 004353 : M:I,BLOCK,(1),N,RZ,NAMET 004354 : C7777:,LC,1 004355 : ,AAX,C7777.EE HOMEP 004356 : ,ATX,N 004357 : ,NTR,7 004358 : ,A-X,I10T 004359 : ,UZA,STRCOD.XИTPЫЙ KOД 004360 : J,VTM,-4 004361 : S,VJM,DIV.HA 10 004362 : ,ATX,RZ 004363 : ,XTA,M.ЧACTHOE 004364 : ,ATX,N 004365 : S,VJM,DIV 004366 : ,XTA,M 004367 : ,ASN,64-4 004368 : ,AOX,N.OCTATOK 004369 : ,ASN,64-4 004370 : ,AOX,RZ 004371 : ,UJ,RET 004372 : STRCOD:,ATX,N.ПEPEKOДИPOBKA 004373 : ,XTA,. ИMEHИ 004374 : ,ATX,RZ.BOЛKOBA 004375 : J,VTM,-12 004376 : LOOP:,XTA,N.HOMEP 004377 : J,A-X,CSUB+12.ПPOБA HA.GE.10 004378 : ,UZA,OK.ШECTH.ЦИФPA 004379 : S,VJM,DIV 004380 : ,XTA,M. 004381 : J,ASN,64+4 004382 : J,UTM,4 004383 : ,AOX,RZ 004384 : ,ATX,RZ 004385 : ,UJ,LOOP.ЗA CЛEД.ЦИФPOЙ 004386 : OK:J,A+X,CADD+12.ЦИФP.HA MECTO 004387 : ,A+X,RZ.CTAPШ.ЦИФPЫ 004388 : RET:,AOX,STNAM.CTAHД.ИMЯ 004389 : R,UJ, 004390 : DIV:,BSS, 004391 : ,XTA,N.ДEЛEHИE 004392 : J,A*X,CDIV+12 004393 : ,ATX,M.ЧACTHOE 004394 : J,A*X,CMUL+12 004395 : ,YTA,64 004396 : ,X-A,N.OCTATOK 004397 : ,ATX,N 004398 : S,UJ, 004399 : I10T:,, 004400 : ,,1000 004401 : CDIV:,LOG,4000 0644 0644 0645 004402 : CMUL:8,, 004403 : ,,156 004404 : CSUB:,, 004405 : ,,1560 004406 : CADD:,, 004407 : ,,2560 004408 : :,LOG,4002 5252 5252 5253 004409 : :8,, 004410 : ,,6 004411 : :,, 004412 : ,,60 004413 : :,, 004414 : ,,160 004415 : :,LOG,4001 4631 4631 4632 004416 : :8,, 004417 : ,,10 004418 : :,LOG, 004419 : :,, 004420 : ,,10 004421 : STNAM:,TEXT,8HDISPAC 004422 : M:,BSS,4 004423 : ,END, 004424 : SCDICH:,NAME,.PEЖИMЫ ДИCKA 004425 : C... ПEPBOE CЛOBO - ЛИCT CEKTOPHOГO 004426 : C OБMEHA B BИДE KYCA И PAЗPЯД 19. 004427 : C 0 BO 2-OM - COBMEЩEHИE ПOДBOДOB. 004428 : C 0 B 3-M - ЗAПИCЬ БEЗ KOHTPOЛЯ. 004429 : C 4-OE И 5-OE CЛOBA OБOЗHAЧAЮT TИПЫ 004430 : C ДИCKOB HA 3-M И 4-M HAПPABЛEHИЯX. 004431 : C =:400 OЗHAЧAET ДИCKИ HA29 MEГAБAЙT 004432 : C =0 OЗHAЧAET ДИCKИ HA 7 MEГAБAЙT 004433 : ,LOG,41370000.CEГM.1,ЛИCT 37B 004434 : ,LOG,1 004435 : ,LOG,4 004436 : ,OCT,4 004437 : ,OCT, 004438 : BUFTRA:LC,BLOCK,(1),IFTRA(24),TRPRIP 004439 : TPHYS:,LC,64 004440 : ,DATA, 004441 : CPR:,LOG,43700000.ПPИП. 33B ЛИCTA 004442 : C1:,LOG,1 004443 : 1,SET,CPR 004444 : 1, ,TRPRIP+1 004445 : 1,SET,C1 004446 : 1, ,TPHYS+77B 004447 : ,END,. 004448 : DECLET:,NAME, 004449 : C************************************** 004450 : C ПEPEBOД LOG-KOHCTAHTЫ B 10-PИЧHЫЙ 004451 : C TEKCT ISO C ПOДABЛEHИEM ЛEBЫX HYЛEЙ 004452 : C************************************** 004453 : BIT5:,EQU,753B 004454 : ,ATX,ACC. 004455 : ,ITA,15 004456 : ,ATX,RET 004457 : ,XTA,=6H 004458 : ,ATX,RES 004459 : ,NTR,7 004460 : 15,VTM,48 004461 : ,XTA,ACC 004462 : L1:,A*X,KSP.1/10 004463 : ,ATX,C1.ЧACTHOE 004464 : ,ASN,64-2 004465 : ,ARX,C1 004466 : ,ASN,64-1 004467 : ,X-A,ACC 004468 : ,ATX,ACC.OCTATOK 004469 : ,AOX,BIT5 004470 : 15,ASN,64-48 004471 : ,AOX,RES 004472 : ,ATX,RES 004473 : ,XTA,C1 004474 : ,UZA,END 004475 : ,ATX,ACC.ЧACTHOE 004476 : 15,UTM,-8 004477 : 15,VIM,L1 004478 : END:,XTA,RES 004479 : ,WTC,RET 004480 : ,UJ, 004481 : AUTOR:,ENTRY, 004482 : C 004483 : C... ФOPMИPOBKA CЛYЖ.CЛOBA 004484 : C 1-E HA MД, 4-E HA MЛ 004485 : C 48-43 : ДHЗ ABTOPA ЗAПИCИ 004486 : C 42-37 : HOMEP YCTPOЙCTBA 004487 : C 36-27 : HOMEP PASS'A ПИCABШEГO 004488 : C 25-21 : ГOД-1968 004489 : C 20-17 : MECЯЦ 004490 : C 16-12 : ДEHЬ 004491 : C 11-1 : 60*ЧACЫ+MИHYTЫ 004492 : C 004493 : AUS:,EQU,117B 004494 : *YCЫ :,LC,1 004495 : TODAY :,LC,2 004496 : C1777 :,LC,1 004497 : C--- 004498 : ,APX,=7770 0000 0000 1600 004499 : ,ATX,RES 004500 : ,ASN,64+42 004501 : ,ATI,9 004502 : 9,WTC,*YCЫ 004503 : ,XTA,AUS 004504 : ,AAX,C1777 004505 : ,ASN,64-26 004506 : ,AOX,RES 004507 : ,AOX,TODAY+1 004508 : 5,UJ, 004509 : KSP:,LOG,4001 4631 4631 4632 004510 : RET:,BSS,1 004511 : RES:,BSS,1 004512 : ACC:,BSS,1 004513 : C1 :,BSS,1 004514 : ,END, 004515 : DISC:,NAME, 004516 : C 004517 : C...... MOДYЛИ ДИCKOBOГO ДPAЙBEPA 004518 : C ПAPAMETPЫ CПOCOБA ПOДKЛЮЧEHИЯ 004519 : NCHD:,EQU,2.ЧИCЛO KAHAЛOB 004520 : NMODG:,EQU,16.ЧИCЛO MOДYЛEЙ 004521 : C БЛOKИ, OБЩИE C ЗAДAЧEЙ OБMEHA 004522 : *ИПД:LC,BLOCK,(4),XNW,(22),MONOS 004523 : ,CONT,(14),OUTJOBSC 004524 : MTRACNT:,EQU,*ИПД+27B 004525 : LQTRA:,WEQ,MTRACNT 004526 : RETTRA:LC,BLOCK,RECONNUM 004527 : SCALSTRA:LC,BLOCK,(12),(32),SQTM(16),SCTMOD 004528 : LISTSTRA:LC,BLOCK,WL1 004529 : WL2:,EQU,WL1+LQTRA 004530 : TRABUS:LC,BLOCK,SCTATRA 004531 : SCDICH:,SUBP,. 004532 : SCDICH:I,BLOCK,(1),REGW,TYPWR,TYPD 004533 : KOWNP:,EQU,SCDICH.CBOЙ ЛИCT (KYC) 004534 : C ЭKBИBAЛEHTHOCTИ ЧИCЛAM 004535 : BEGMT:,EQU,30B 004536 : SM:,EQU,3 004537 : M14:,EQU,8 004538 : NMAT1:,EQU,30B 004539 : C ЗHAЧEHИЯ CЛYЖEБHЫX CЛOB. 004540 : NAMED1:,EQU,3.ПEPBOE ИMЯ. 004541 : NAMED2:,EQU,NAMED1+4.BTOPOE ИMЯ. 004542 : IDEN:,EQU,1.ABTOP ЗAПИCИ 004543 : C OБAЗHOЧEHИE ИHДEKC-PEГИCTOB. 004544 : K:,EQU,1.HOMEP MOДYЛЯ 004545 : KI:,EQU,2.K.EQ.7 004546 : J8:,EQU,3.HOMEP KAHAЛA*8 004547 : C:,EQU,4. 004548 : R5:,EQU,5. 004549 : W:,EQU,7. 004550 : P:,EQU,8.TИП OБMEHA 004551 : R9:,EQU,9. 004552 : A:,EQU,6.N MOД.AБCOЛЮTH. 004553 : N:,EQU,11. 004554 : M:,EQU,12.MECTO B ГЛAB.OЧ. 004555 : R:,EQU,13.PEГ. BOЗBPATOB 004556 : RL:,EQU,15.ДOП. BOЗBPAT 004557 : J:,EQU,14.HOMEP KAHAЛA 004558 : C TИПЫ OБMEHA. 004559 : WRITE:,EQU,0.ЗAПИCЬ 004560 : READ:,EQU,2.ЧTEHИE 004561 : RAZMT:,EQU,1.PAЗMETKA 004562 : CONTR:,EQU,3.CPABHEHИE 004563 : COWRI:,EQU,4.ЗAП.C CPABHEHИEM 004564 : RHEA:,EQU,6.ЧTEH. ЗAГOЛOBKA 004565 : QUREA:,EQU,7.OПPOC ГOTOBHOCTИ 004566 : *677:B,BLOCK,BITS 004567 : ,CONT,BIT48,BIT47,BIT46,BIT45 004568 : ,CONT,BIT44,BIT43,BIT42,BIT41 004569 : ,CONT,BIT40,BIT39,BIT38,BIT37 004570 : ,CONT,BIT36,BIT35,BIT34,BIT33 004571 : ,CONT,BIT32,BIT31,BIT30,BIT29 004572 : ,CONT,BIT28,BIT27,BIT26,BIT25 004573 : ,CONT,BIT24,BIT23,BIT22,BIT21 004574 : ,CONT,BIT20,BIT19,BIT18,BIT17 004575 : ,CONT,BIT16,BIT15,BIT14,BIT13 004576 : ,CONT,BIT12,BIT11,BIT10,BIT 9 004577 : ,CONT,BIT 8,BIT 7,BIT 6,BIT 5 004578 : ,CONT,BIT 4,BIT 3,BIT 2,BIT 1 004579 : C HAЗBAHHЫE БИTЫ 004580 : MABT:,EQU,BIT4 004581 : B1PCK:,EQU,BIT3 004582 : BNEWM:,EQU,BIT11.HECOBП.AДP. 004583 : BITDISK:,EQU,BIT46 004584 : BERCPU:,EQU,BIT25 004585 : BITCO:,EQU,BIT44..CЧET.OШИБOK 004586 : BITDIAG:,EQU,BITCO-3. 004587 : BSKAL:,EQU,BIT46.CЧET. YCT 0 004588 : BINTR:,EQU,BIT12.БИT AB. B WL1 004589 : BBSTOP:,EQU,BIT6.ДЛЯ MYЛЬTИTAЙПA 004590 : MBIDEN:,EQU,BIT12.HECOBП.ИД. 004591 : XRAZMT:,EQU,BIT1.RAZMT B MOЗY 004592 : XREAD:,EQU,BIT2.READ B MOЗY 004593 : BSECT:,EQU,BIT7.CEKTOPHЫЙ OБMEH 004594 : BMONCH:,EQU,BIT39.ПP.ЗAK. C MOHOП. 004595 : C БИTЫ CTATYCA B CUORD 004596 : BBLTT:,EQU,BIT4.БЛOKИPOBKA TT 004597 : BTMOD:,EQU,BIT5.HAПPABЛEH HA MOД 004598 : B1O:,EQU,BIT6.OДHOKPATHOCTЬ 004599 : BNOTST:,EQU,BIT38.ПEPEXBAT OTKAЗA 004600 : C БИTЫ CTATYCA B WL1 004601 : BCLOSE:,EQU,BIT38.БЛOK.ЗAKAЗЧИKA 004602 : BTMODE:,EQU,BIT5.HAПPABЛEH HA MOД 004603 : C KOHCTAHTЫ B KOMMOHAX 004604 : C3:,LC,1 004605 : C7:,LC,1 004606 : C377:,LC,1 004607 : C7777:,LC,1 004608 : B24/1:,LC,1 004609 : FULWOR:,LC,1 004610 : C13:,LC,1 004611 : C37:,LC,1 004612 : C2003:,LC,1 004613 : DISREG:,LC,1 004614 : B48/31:,LC,1 004615 : B48/47:,LC,1 004616 : C1400:,LC,1 004617 : C14:,LC,1 004618 : *CB:LC,BLOCK, 004619 : ,CONT,CDIAG(0),B48/44 004620 : ,CONT,B4/1,ZPAG(0),Z25/7 004621 : ,CONT,(1),B48/13,B13/2 004622 : C CПEЦ.HAЗBAHИЯ KOHCTAHT B KOMMOHAX 004623 : XRAEQRE:,EQU,C3.XRAZMT.EQ.XREAD 004624 : XQREA:,EQU,C7 004625 : C CEMAФOPHЫE OПEPAЦИИ БЫCTPЫX KПДП 004626 : CHPOP:,SUBP, 004627 : CHVOP:,SUBP, 004628 : C CEMAФOPHЫE OПEPAЦИИ ЛИCTA 004629 : PS*POP:,SUBP, 004630 : PS*VOP:,SUBP, 004631 : C T A Й M E P Ы 004632 : TIMERS:LC,BLOCK,(2),TIMEX(2) 004633 : MAX TIME:,EQU,BIT9.ПPИMEPHO 1.8 C. 004634 : C BXOДЫ B TRAM70 004635 : KOHOБMEH:,SUBP, 004636 : ENDMAC70:,SUBP, 004637 : PRIPTRA:,SUBP, 004638 : SUMMING:,SUBP, 004639 : TASKOFF:,SUBP, 004640 : S48TO12:,SUBP, 004641 : TRAINT :,SUBP, 004642 : GIVTRA:,SUBP, 004643 : AFGVTR:,SUBP, 004644 : BC1700:,SUBP, 004645 : C БЛOKИ CBЯЗИ C KAHAЛOM OПOЗHABAHИЯ 004646 : ENSPTR:,SUBP, 004647 : CMDREC:LC,BLOCK,DREADY(0),SCKILD 004648 : C ПPOЧИE ДИCПETЧEPCKИE БЛOKИ 004649 : *SWCMN:LC,BLOCK,(3),EXCHSC 004650 : DISPBASE:LC,BLOCK,(6),NEVM.B 48-47 P. 004651 : ABCHT:,SUBP,.П/П AB.CHЯTИЯ 004652 : RETURN:,SUBP, 004653 : STATIST:,SUBP, 004654 : CLOMIR:,SUBP, 004655 : PERMIR:,SUBP, 004656 : TTPRINT:,SUBP, 004657 : ERRMACRO:,SUBP, 004658 : DECLET:,SUBP, 004659 : *ПДИCK:LC,BLOCK,PRDK 004660 : C---- TEKCTЫ ДИAГHOCTИK HA AЦПY : 004661 : *24:,BLOCK,DERT,TASD,TWBP 004662 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 004663 : SMASAV:LC,BLOCK,SAVAC 004664 : *DISCS:LC,BLOCK,DNAMIN(16) 004665 : *STATBUF:LC,BLOCK,(14),COUNTTR 004666 : C OПИCAHИE ПPИЗHAKA ПP.AND..NOT.ПЗ 004667 : REGSCAL:,EQU,100B 004668 : BLMUL:,EQU,BIT6 004669 : C...... COБCTBEHHЫE БЛOKИ ДИCKOB 004670 : *DSCRFI:LC,BLOCK,YINT,YINT1,Y1,Y,Y5 004671 : ,CONT,QRTR(2) .OЧ.ГOT.OБMEHOB 004672 : ,CONT,FLMNCH(2) 004673 : CUORD:,EQU,*DISCS+NMODG 004674 : C 004675 : C---------------------------------- 004676 : C 004677 : C +++ OПИCAHИE CTPYKTKP ЯЧEEK: 004678 : C 004679 : C...... 01 WL1 ИЗ COMMON LISTSTRA 004680 : C ПPEДCTABЛЯET ЗAKAЗ(KYC) HA OБMEH 004681 : C B ГЛABHOЙ OЧEPEДИ ЗAДAЧИ OБMEHOB. 004682 : C 48-43P - ДHЗ ЗAДAЧИ, ДABШEЙ ЗAKAЗ 004683 : C 42-40P - HOMEP HAПPABЛEHИЯ. 004684 : C 39 PAЗP - ПPИЗH.CBЯЗИ C MOHOПOЛИEЙ 004685 : C 38P - ПPИЗHAK ЗAKAЗA OT TRAPHY. 004686 : C 34-26P - HOMEP ДOPOЖKИ + 8 004687 : C 25-24P - HOMEP CEГMEHTA MOЗY. 004688 : C 19P -ПPИЗHAK ЛИCTOBOГO OБMEHA. 004689 : C 18P И 3-1P - KOД TИПA OБMEHA. 004690 : C 17-13P - HOMEP ЛИCTA ФИЗИЧECKИЙ. 004691 : C 10- 8P - HOMEP MOДYЛЯ. 004692 : C 6P - ПPИЗHAK ПEPEXBATA PEAKЦИИ 004693 : C HA OШИБKИ. 004694 : C 004695 : C...... 02 CUORD 004696 : C ПPEДCTABЛЯET TEKYЩEE COCTOЯHИE 004697 : C OБMEHA HA MOДYЛE. 004698 : C 004699 : C 48-44P - CЧETЧИK OШ. OБMEHOB. 004700 : C 1KAЛИБP.=4OШ.OБM. 004701 : C 38P - ФЛAГ ПEPEXBATA PEAKЦИИ. 004702 : C 37-26P - TEKYЩИЙ HOMEP ДOPOЖKИ. 004703 : C 25-24P - HOMEP CEГMEHTA MOЗY. 004704 : C 19P - ПPИЗHAK ЛИCTOBOГO OБMEHA. 004705 : C 18P - ПPИЗHAK CЧИTЫBAHИЯ YBY. 004706 : C 17-13P - HOMEP ЛИCTA ФИЗИЧECKИЙ. 004707 : C 6P - ПPИЗHAK ПEPEXBATA PEAKЦИИ. 004708 : C 10-8P - TEKYЩИЙ ИДEHTИФИKATOP. 004709 : C 3-1P - TИП OБMEHA(ЧTEHИE,ЗAП....) 004710 : C 004711 : C---------------------------------- 004712 : C 004713 : C++++++++++++++++++++++++++++++++++ 004714 : C OБPAБOTKA ДИCKOBЫX ПPEPЫBAHИЙ 004715 : C BEPCИЯ OT 30'06'73 004716 : C++++++++++++++++++++++++++++++++++ 004717 : C ПOЛYЧEHИE HOMEPA KAHAЛA * 8 004718 : ,ITA,J 004719 : ,ASN,64-3 004720 : ,ATI,J8 004721 : ,NTR,7 004722 : : ,24,3 004723 : C ПPOБA, CBOЙ ЛИ KMД 004724 : J,XTA,KMD OWN-SM. 004725 : ,UZA,GET KMD.БЫЛ ЧYЖOЙ 004726 : C ПPEPЫBAHИE HE ПO ПPИBЯЗKE 004727 : C HE БЫЛO ЛИ ACД: 004728 : J,XTA,FLASD-SM 004729 : ,U1A,MINT.HE БЫЛO 004730 : C HET KOHЦA OБMEHA ИЛИ 004731 : C ПOДBOДA, CЛEД. ИMEEM ACД. 004732 : J,XTA,CNMOD-SM.N TEKYЩEГO 004733 : ,ATI,K.MOДYЛЯ B ПPЯMOM 004734 : ,AEX,C7.И OБPATHOM 004735 : ,ATI,KI.KOДAX 004736 : C YCTAHOBKA A(AБCOЛЮTHЫЙ HOMEP) 004737 : RL,VJM,YCTA 004738 : C CБPOC ФЛAГA ASD(FLASD.NE.0) 004739 : ,XTA,BIT40 004740 : J,ATX,FLASD-SM 004741 : KI,XTA,BIT8 004742 : ,AEX,FULWOR 004743 : J,AAX,CODM-SM 004744 : J,ATX,CODM-SM 004745 : C BЫБPOC И OTKPЫTИE ЗAДAЧИ - 004746 : C - XOЗЯЙKA ЗAKAЗA C ACД. 004747 : W,VTM,T ASD+1 004748 : C HA БЛOK ПPOBEPKИ CTATYCA. 004749 : C ЗAKAЗ ЛИБO БYДET CHЯT KAK 004750 : C ABAPИЙHЫЙ, ЛИБO ПEPEBEДEH 004751 : C B COCTOЯHИE HEГOTOBHOCTИ. 004752 : ,UJ,ISTHISAC.HE KAЮK ЛИ 004753 : MINT:,BSS,.(4) 004754 : C...... OЬPAБOTKA ПPEPЫBAHИЙ ПOДBOДA 004755 : J,XTA,DINT-SM 004756 : ,UZA,TINT.HA OБP.OБMEHA 004757 : C YCTAHOBK.ПAPAMETPOB MOДYЛЯ(K,KI,A) 004758 : RL,VJM,YCTAPE 004759 : C BЫЧEPKИBAHИE БИTA ИЗ DINT. 004760 : KI,XTA,BIT8 004761 : J,AEX,DINT-SM 004762 : J,ATX,DINT-SM 004763 : RL,VTM,MINT.HA CЛEД.MOДYЛЬ 004764 : SETRT:,BSS, 004765 : C...... ПOДПPOГPAMMA. BOЗBPAT - RL. 004766 : C ЗAHECEHИE B OЧEPEДЬ 004767 : C ГOTOBЫX OБMEHOB 004768 : ,ITA,K 004769 : J,ASX,QRTR-SM.CДBИГ HA KOHEЦ 004770 : J,AOX,QRTR-SM.ЗAHECEHИE 004771 : ,E+N,64-3.ИЗMEHEHИE KOHЦA 004772 : J,ATX,QRTR-SM. 004773 : RL,UJ, 004774 : TINT:,BSS,.(6) 004775 : C BCE ПOДBOДЫ OБPAБOTAHЫ 004776 : J,XTA,DBUC-SM.БЫЛ ЛИ OБMEH 004777 : ,UZA,IFLTWSC 004778 : C...... OБPAБOTKA OБMEHA 004779 : C OПPEДEЛEHИE HOMEPA MOДYЛЯ 004780 : J,XTA,QRTR-SM.OЧ.ГOT.OБMEHOB 004781 : ,AAX,C7 004782 : ,ATI,K.N MOДYЛЯ 004783 : ,AEX,C7 004784 : ,ATI,KI.B OБPATHOM KOДE 004785 : C YCTAHOBKA A (A=J*8+K-30B) 004786 : RL,VJM,YCTA 004787 : R5,VTM,8.ПPABKA "KЧ" 004788 : R,VJM,YCTBEPCB.B CЛ.CЛOBAX 004789 : C YCTAHOBKA TИПA OБMEHA B P. 004790 : J,XTA,DBUC-SM 004791 : ,AAX,C7. 004792 : ,ATI,P. 004793 : C A HE KOHEЦ ЛИ ЭTO KAЛИБPOBKИ: 004794 : J,XTA,SKAL-SM 004795 : ,U1A,AFTKAL.ДA 004796 : C ДЛЯ БOЛЬШИX ДИCKOB HYЖHO OCBOБO- 004797 : C ДИTЬ PECYPC БЫCTPЫX KПДП. 004798 : J,ARX,TYPD-SM 004799 : ,U1A,YCTW0.MAЛЫE ДИCKИ 004800 : R,VJM,CHVOP.V-OПEPAЦИЯ 004801 : YCTW0:,BSS, 004802 : C YCT.ПPИЗH.ЗAKAЗ ПPOШEЛ(W=0) 004803 : W,VTM, 004804 : C...... AHAЛИЗ ПPOШEДШEГO OБMEHA 004805 : J,XTA,COPC1-SM.KOПИЯ PC 1. 004806 : ,ATX,Y1 004807 : P,MTJ,R 004808 : C....HE ЧTEHИE ЛИ ЗAГOЛOBKA 004809 : R,UTM,-RHEA 004810 : R,VZM,TRHEA 004811 : C ПPOBEPKA HE CPABHEHИE ЛИ. 004812 : R,UTM,RHEA-CONTR 004813 : R,VZM,CONTROL.БЫЛO CPABHEHИE 004814 : C ПPOБA HA 'OБMEH HE ИДET B KMД'. 004815 : P,UTM,-READ 004816 : ,XTA,MABT.MACKA ABAPИИ 004817 : P,V1M,*3.HE ЧTEHИE 004818 : ,AOX,B1PCK.ДЛЯ ЧTEHИЯ 004819 : *3:,AAX,Y1 004820 : ,U1A,ERRT.ABAPИЯ 004821 : C ПPOBEPKA HE PAЗMETKA ЛИ. 004822 : R,UTM,CONTR-RAZMT. 004823 : R,VZM,OPENT.PAЗMETKA 004824 : C ПPOБA OШM 004825 : ,EXT,4035B 004826 : J,AAX,BIT8 004827 : ,U1A,ERR PROG.ECTЬ OШM 004828 : C ПPOГPAMMHЫЙ KOHTPOЛЬ 004829 : C 004830 : R9,VTM,-8.ЦИKЛ HA 2 ШAГ 4 004831 : C ПOЛYЧEHИE AДPECA. 004832 : R,VTM,YPY.YCT.PEAKЦ. YПP 004833 : CRADR:,BSS,. 004834 : C...... ПOДПPOГPAMMA ПOЛYЧEHИЯ 004835 : C ИHДEKCA ЗAKAЗA B MACCИBE 004836 : C ГЛABHOЙ OЧEPEДИ B M И 004837 : C HAЧAЛЬHOГO AДPECA B Y1. 004838 : C ПOPTИT RL. 004839 : RL,VJM,PRIRIND 004840 : ,ATI,M.OЧEPEДИ+1 004841 : M,XTA,WL1-1 004842 : ,ASN,64+24 004843 : ,AAX,B13/2 004844 : ,ATX,Y1 004845 : R,UJ, 004846 : YPY:,BSS,. 004847 : C YCT.CTPEЛKИ KC HA CBOЙ ЛИCT(MAT.) 004848 : N,VTM,66000B-70000B 004849 : C YCT.PEAKЦИИ HA YПP ПPИ K.C. 004850 : R,VTM,CONTNUM 004851 : ,ITA,R 004852 : ,ATX,RECONNUM 004853 : C YCTAHOBKA ПPИПИCKИ 004854 : A,XTA,CUORD 004855 : R5,VJM,PRIPTRA 004856 : C ПPOБA: HE CEKTOPHЫЙ ЛИ OБMEH. 004857 : C ПPИ HEM ЧTEHИE ЦЫЛO HA CBOЙ ЛИCT 004858 : J,XTA,DBUC-SM 004859 : ,AAX,BSECT 004860 : ,U1A,LTKC.CEKTOPHЫЙ 004861 : C HE CEKTOPHЫЙ, CTPEЛKY KC HA 004862 : C 70000B - MAT.AДP., ДABAEMЫЙ 004863 : C ЛИCTY, HA KOTOPЫЙ БЫЛ OБMEH. 004864 : N,VTM, 004865 : LTKC:,BSS, 004866 : C...... ЦИKЛ ПPOBEPKИ KC И AДPECOB 004867 : W,VTM,KEERA-KEERYBY 004868 : C ПEPEHOC CЛYЖ.CЛOBA B PAБ.ЯЧ. Y3 004869 : J8,UTC, 004870 : R9,XTA,8.CЛYЖ.CЛOBO 0 004871 : ,ATX,Y3 004872 : C ПPOBEPKA AДPECA ДOPOЖKИ 004873 : ,ASN,64+24 004874 : ,AEX,Y1 004875 : ,U1A,ERR PROG1.AДPEC HE TOT 004876 : ,XTA,Y1.AДPEC 004877 : ,ARX,BIT1.2-OЙ ДOPOЖKИ 004878 : ,ATX,Y1.ПAPЫ 004879 : C ПPOBEPKA KC 004880 : W,VTM,KEERC-KEERYBY 004881 : C,VTM,-7.CYMMA ПO AБЗAЦAM 004882 : M,XTA,WL2-1 004883 : R9,UTM,4 004884 : :R9,VZM,*+1 004885 : ,ASN,64+24 004886 : :P,VIM,KS/WR.ПPИ ЗAПИCИ 004887 : R5,VJM,SUMMING.48PKC 004888 : R,VJM,S48TO12.12PKC 004889 : ,ASN,64-12 004890 : ,ATX,Y 004891 : C,VTM,-7 004892 : R5,VJM,SUMMING. 004893 : R,VJM,S48TO12 004894 : ,AOX,Y 004895 : KS/WR:,BSS, 004896 : ,AEX,Y3.CЛYЖ CЛOBA 004897 : ,AAX,B24/1 004898 : ,U1A,ERR PROG1.CYMMA HE TA 004899 : R9,V1M,LTKC 004900 : P,VIM,ENDWR.ПPИ ЗAПИCИ 004901 : C YCT.ПPИЗH.ЗAKAЗ ПPOШEЛ 004902 : W,VTM, 004903 : C ПPOБA: HE HAДO ЛИ ИMЯ ПAKETA. 004904 : A,XTA,CUORD 004905 : ,AAX,BTMOD 004906 : ,UZA,ENREAD.HE HAДO 004907 : C YCTAHOBKA CИГHAЛA 'ИMЯ' (W=1). 004908 : W,VTM,1. 004909 : C ЗAПИCЬ ПOKA 0 KAK ИMEHИ. 004910 : ,XTA, 004911 : ,ATX,Y.ИMЯ. 004912 : C ПPOБA HA TOЖДECTBEHHOCTЬ ИMEH. 004913 : J8,XTA,NAMED1 004914 : J8,AEX,NAMED2 004915 : ,U1A,OPENT.HET, ИMЯ=0. 004916 : C ЗAHECEHИE ИMEHИ B Y. 004917 : J8,XTA,NAMED1 004918 : ,ATX,Y 004919 : ENREAD:,BSS, 004920 : C...... ЧTEHИE ПPOШЛO XOPOШO. ECЛИ И 004921 : C TOЛЬKO ECЛИ OHO БЫЛO ДЛЯ CEKTOP- 004922 : C HOГO OБMEHA, TO (N.EQ.0) 004923 : N,V1M,OPENT.HE CEKTOPHЫЙ 004924 : C ПPOБA: HE ЗAKAЗ ЛИ ЭTO ЧTEHИЯ 004925 : C ИMEHИ KAHAЛOM OПOЗHABAHИЯ 004926 : M,XTA,WL1-1 004927 : ,ASN,64-6 004928 : ,YTA, 004929 : ,UZA,OPENT.KAHAЛ OП. 004930 : C БЫЛ CEKTOPHЫЙ. ПOДГOTOBKA 004931 : C ПEPEПИCИ ДЛЯ CEKTOPH. ЧTEHИЯ. 004932 : C (N.EQ.0) - ПPИЗH. CEKTOP.ЧTEHИЯ 004933 : A,XTA,CUORD 004934 : ,ASN,64+11 004935 : ,ATX,Y3 004936 : ,AAX,C1400.OTH.AДP.CEKTOPA 004937 : ,ATI,P 004938 : P,UTM,66000B.AДPEC CEKTOPA 004939 : ,XTA,Y3 004940 : ,ASN,64+2 004941 : ,AAX,C1400.OTN.AДP.AБЗAЦA 004942 : ,ATI,RL 004943 : RL,UTM,70000B.AДPEC AБЗAЦA 004944 : C A HE CEKTOPHAЯ ЛИ ЗAПИCЬ: 004945 : A,XTA,CUORD 004946 : ,AAX,BIT18 004947 : : ,24,2.HA ПPИПИCKY 004948 : R9,VTM,1-400B.CЧETЧИK ЦИKЛA 004949 : ,U1A,LMSEC.ЧTEHИE 004950 : C ЗAMEHA YKAЗATEOEЙ ПEPEПИCИ,ИБO ЗAП 004951 : RL,MTJ,N.ПPИ ЭTOM ПPИЗH.N 004952 : P,MTJ,RL.MEHЯET ЗHAЧEHИE 004953 : N,MTJ,P.HA HE 0 - ЗAПИCЬ 004954 : LMSEC:,BSS, 004955 : C ЦИKЛ ПEPEПИCИ CEKTOPA 004956 : P,UTC, 004957 : R9,XTA,377B 004958 : RL,ATX,.RL:,EQU,15 004959 : R9,VLM,LMSEC 004960 : : ,24,3 004961 : C ПPИ CEK.ЧTEHИИ - KOHEЦ ЗAKAЗA 004962 : N,VZM,OPENT.ЧTEHИE 004963 : C...... OPГAHИZAЦИЯ ZAПИCИ ЗOHЫ C 004964 : C HOBЫM ЗHAЧEHИEM OДHOГO CEKTOPA. 004965 : C 004966 : C ... ФOPMИPOBKA B WL2 KC CEKTOPOB C 004967 : C YЧETOM HOBOГO CEKTOPA. 004968 : A,XTA,CUORD 004969 : ,ASN,64+17.ПOЛYЧEHИE 004970 : ,AAX,C14.N CEKTOPA*12 004971 : ,ATX,Y3.ДЛЯ CДBИГA KC 004972 : ,ASN,64-1.HA CBOE 004973 : ,ARX,Y3.MECTO B WL2 004974 : ,ATI,R9 004975 : M,XTA,WL2-1.ПOЛYЧEHИE ИHBEP- 004976 : ,AEX,C7777.TИPOBAHHOЙ KC 004977 : R9,ASN,64-36.HOBOГO CEKTOPA 004978 : M,ATX,WL2-1.HA CBOEM MECTE 004979 : C ПOЛYЧEHИE CTAPOГO ЗHAЧEHИЯ WL2. 004980 : J8,XTA,4.KC2 И KC3 004981 : ,AAX,B24/1 004982 : J8,ATX,4 004983 : J8,XTA,.KC0 ИKC1 004984 : ,ASN,64-24 004985 : J8,AOX,4 004986 : J8,ATX,4.ЗHAЧEHИE WL2 004987 : C ПOЛYЧEH8E HOBOГO ЗHAЧEHИЯ WL2 004988 : ,XTA,C7777 004989 : R9,ASN,64-36 004990 : J8,AOX,4 004991 : M,AEX,WL2-1 004992 : M,ATX,WL2-1 004993 : C ФOPMИPOBKA B CUORD ЗAKAЗA HA 004994 : C ЗAПИCЬ (ЗAДAHHOГO TИПA) ЗOHЫ. 004995 : A,XTA,CUORD.N ДOPOЖKИ, KOП 004996 : ,AAX,ZPAG.И CПEЦ.БИTЫ 004997 : ,AOX,KOWNP.CBOЙ ЛИCT И Б19 004998 : A,ATX,CUORD 004999 : ,UJ,IFLTWSC.HA ЗAПYCK ЗAП. 005000 : AFTKAL:,BSS, 005001 : C ... ЗAKOHЧИЛACЬ YCTAHOBKA HA 0. 005002 : ,ATX,Y1.KOПИЯ PC 005003 : ,XTA,.ЧИCTKA 005004 : J,ATX,SKAL-SM.ФЛAГA YCT.0 005005 : ,UJ,TESCOBT 005006 : CONTNUM:,BSS, 005007 : C ... PEAKЦИЯ HA YПP ПPИ KOHT.CYMM. 005008 : C 005009 : C CHЯTИE БЛOKИPOBKИ OCTAHOBA ПO YПP. 005010 : R,VTM,ERR PROG 005011 : ,UJ,CHCTY 005012 : C--- 005013 : ERR PROG1:P,VZM,ERR PROG.ЧTEHИE 005014 : W,VTM,KERSS-KEERYBY 005015 : ERR PROG:,BSS, 005016 : C ... OШИБKA, OБHAPYЖEHHAЯ CPU(ЦП), 005017 : C T.E. OШM ИЛИ ПPOГPAMMHЫЙ KOHTPOЛЬ 005018 : W,XTA,BERCPU.YCTAHOBKA 005019 : ,ATX,Y1.PACШИPEHHOГO PC 005020 : C B CЛYЧAE HE OШM(W.NE.0) ДAДИM 005021 : C HA BЫXOД AДPEC ИЗ CЛYЖ.CЛOBA 005022 : W,VZM,TOTTPRG.OШM 005023 : J8,XTA, 005024 : ,ASN,64+24.BЫДEЛИЛИ 005025 : ,ASN,64-30.AДPEC 005026 : ,AOX,Y1 005027 : ,ATX,Y1 005028 : TOTTPRG:W,UTM,KEERYBY 005029 : R,VJM,TTPRCO 005030 : TESCOBT:,BSS, 005031 : C ... ПPOBEPKA YCЛOBИЙ CHЯTИЯ 005032 : C ЗAKAЗA ПO ПPИЧИHE OШИБOK 005033 : W,VTM,DERT+1.AЦПY ДИAГH. 005034 : A,XTA,CUORD. 005035 : ,ARX,.KAK CЧETЧИK OШ. 005036 : ,U1A,NOTENDCO.EЩE HE CДOX 005037 : ISTHISAC:,BSS, 005038 : C ECTЬ ЛИ ПEPEXBAT PEAKЦИИ: 005039 : C (ECЛИ ДA, TO ЗAKAЗ CHИMAETCЯ) 005040 : A,XTA,CUORD 005041 : ,AAX,BNOTST 005042 : ,U1A,OPENT.ECTЬ ПEPEXBAT 005043 : C OM-HMД ДOЛЖEH БЫTЬ ПEPEBEДEH 005044 : C B COCTOЯHИE 'HE ГOTOB'. 005045 : RL,VJM,MOQTR.ДOЛOЙ ИЗ OЧ. 005046 : R,VTM,ST1.ПOCЛE ДИAГH 005047 : W,VTM,KERCMO.TT - TEKCT 005048 : ,UJ,TTPRWBL.HA ДИAГH. 005049 : NOTENDCO:,BSS, 005050 : C HET ЛИ ПPИЗHAKA OДHOKPATHOCTИ: 005051 : ,AAX,B1O 005052 : ,UZA,IFLTWSC.ПOBTOPИM OБMEH 005053 : C CHЯTИE ЗAKAЗA BBИДY OШИБOK 005054 : OPENT:,BSS,. 005055 : C...... KOHEЦ OБPAБOTKИ OБMEHA, 005056 : C KOHEЦ BCEГO ЗAKAЗA. 005057 : C 005058 : C YДAЛEHИE ИЗ OЧEPEДИ HA OБMEH 005059 : RL,VJM,MOQTR 005060 : C YДAЛEHИE ИЗ OЧEPEДИ HA HMД 005061 : C T.E. ИЗ CИCTEMЫ B ЦEЛOM 005062 : R,VTM,IFLTWSC 005063 : ,UJ,MOVEQUE 005064 : MOQTR:,BSS,. 005065 : C...... ПOДПPOГPAMMA. BOЗBPAT - RL. 005066 : C ПPOДBИЖKA QRTR(J) - 005067 : C OЧEPEДИ ГOTOBЫX OБMEHOB. 005068 : C ПOPTИT PEГИCP R. 005069 : C 005070 : C CHЯTИE ФЛAГA OБMEHA 005071 : J,XTA,DBUC-SM 005072 : RL,UZA, 005073 : ,XTA,. 005074 : J,ATX,DBUC-SM. 005075 : J,XTA,QRTR-SM. 005076 : ,AAX,B48/31.ПOЛYЧEHИE 005077 : ,E+N,64+3.HOBOГO KOHЦA OЧ 005078 : J,A+X,QRTR-SM.ПPOДBИЖKA 005079 : J,ATX,QRTR-SM. 005080 : C ... V-OПEPAЦИЯ ДOCTYПA K CBOEMY ЛИCTY 005081 : J,XTA,BITDISK-SM 005082 : RL,MTJ,R5 005083 : ,UJ,PS*VOP 005084 : ENDWR:,BSS,. 005085 : C KOHEЦ KOHTPOЛЯ ЗAПИCИ. 005086 : C ECЛИ TPEБYETCЯ CPABHEHИE, 005087 : C TO ЗAKAЗЫBAETCЯ HOBЫЙ OБMEH. 005088 : W,VTM,.ЗAKAЗ ПPOШEЛ 005089 : J8,XTA,NAMED1 005090 : J8,AEX,NAMED2 005091 : ,U1A,ERR PROG1 005092 : P,UTM,READ 005093 : P,VZM,OPENT.ПPOCTAЯ ЗAПИCЬ 005094 : C YCTAHOBKA ЗAKAЗA HA CPABHEHИE. 005095 : A,XTA,CUORD.ЗAMEHA 005096 : ,AEX,C7.ЗAПИCИ 005097 : A,ATX,CUORD.HA CPABHEHИE 005098 : ,UJ,IFLTWSC 005099 : TRHEA:,BSS, 005100 : C...... OБPAБOTKA ПPOЧИTAHHOГO ЗAГOЛOBKA 005101 : C--------- 005102 : C ... YЧET ГPEБEHKИ BO 2-OM CЛOBE, 005103 : C PEЗYЛЬTAT B Y4. 005104 : R5,VTM,-45 005105 : ,XTA, 005106 : ,ATX,Y4.PEЗYЛЬTAT 005107 : J8,XTA,2.CЛYЖ.CЛOBA 005108 : LUHE:,BSS, 005109 : C ЦИKЛ BЫБOPKИ CЛOГOB. 005110 : ,APX,MCAM.MACKA ГPEБEHKИ 005111 : R5,UTM,9 005112 : R5,ASN,64+36 005113 : ,AOX,Y4.HOBЫЙ CЛOГ 005114 : ,ATX,Y4.B PEЗYЛЬTAT 005115 : C ПPOДBИЖKA ЗA OЧEPEДHЫM CЛOГOM. 005116 : J8,XTA,2 005117 : ,ASN,64-1 005118 : J8,ATX,2 005119 : R5,V1M,LUHE 005120 : C ... ЗAHECEHИE AДPECA PAБOTЫ ПOCЛE 005121 : C ИЗЬЯTИЯ ЗAKAЗA ИЗ OЧ.ГOT.OБM. 005122 : RL,VTM,IFLTWSC.BOЗBPAT ИЗ MQTR 005123 : C ... AHAЛИЗ ПEPEПAKOBAHHOГO ЗAГOЛOBKA. 005124 : C ИЗYЧEHИE ИДEHTИHИKATOPA. 005125 : ,XTA,Y4 005126 : ,ASN,64-3 005127 : ,ATX,Y4 005128 : ,YTA,.ИД.+1 БИT AM 005129 : ,AEX,BIT3.ПPOБA HA 0 005130 : ,UZA,NEWARH.0,HOBЫЙ OБM. 005131 : ,AEX,BIT1.ПPOБA HA 1 005132 : ,U1A,NOT1.ИДEHT.HE 1 005133 : C ... HOPMИPOBKA HOBOГO AДPECA. 005134 : ,XTA,Y4 005135 : ,ASN,64-8 005136 : ,ATX,Y4 005137 : ,YTA,.ЦИЛИHДP 005138 : C YMHOЖEHИE ЦИЛИHДPA HA 10. 005139 : ,ATX,Y5 005140 : ,ASN,64-2 005141 : ,ARX,Y5 005142 : ,ASN,64-1 005143 : ,ATX,Y5.N ЦИЛ.*10 005144 : C ДOHOPMИPOBAHИE N ДOPOЖKИ + 8. 005145 : ,XTA,Y4 005146 : ,ASN,64-4 005147 : ,YTA,.N ДOPOЖKИ 005148 : ,ARX,Y5.ПOЛHЫЙ AДPEC 005149 : SNEWAD: ,ATX,Y5 005150 : C YCTAHOBKA HOBOГO AДPECA 005151 : C HA MECTO CTAPOГO B CUORD. 005152 : A,XTA,CUORD 005153 : ,ASN,64+25 005154 : ,AAX,C7777.CTAPЫJ AДPEC 005155 : ,AEX,Y5 005156 : ,ASN,64-25 005157 : A,AEX,CUORD 005158 : A,ATX,CUORD 005159 : NEWARH:,BSS, 005160 : C ЗAHECEHИE B MWSC HOBOГO ПOДBOДA 005161 : KI,XTA,BIT8 005162 : J,AOX,MWSC-SM 005163 : J,ATX,MWSC-SM 005164 : C CHЯTИE OБMEHA И HA ПOДBOД. 005165 : ,UJ,MOQTR 005166 : NOT1:,BSS, 005167 : C ECЛИ ИД = 3, TO CДEЛAEM PAЦИOHAЛЬHYЮ 005168 : C ЗAMEHY, ИHAЧE ДOPOЖKA ДPЯHЬ. 005169 : W,VTM,TWBP+1 005170 : ,AEX,BIT2. 005171 : ,U1A,ISTHISAC.CTOП ЗAДAЧИ 005172 : C ЗAMEHИM ДOPOЖKY ПO HOBOMY 005173 : ,XTA,Y4 005174 : ,ASN,64+36 005175 : ,UJ,SNEWAD 005176 : CONTROL:,BSS,. 005177 : C OKOHЧИЛOCЬ CPABHEHИE. 005178 : J,XTA,COPC1-SM 005179 : ,AAX,MCOMP.MACKA CPABH. 005180 : ,UZA,OPENT.XOPOШO ПPOШЛO 005181 : C BOCCTAHOBЛEHИE ЗAKAЗA HA ЗAПИCЬ 005182 : C ПPИ ПЛOXOM CPABHEHИИ. 005183 : A,XTA,CUORD 005184 : ,AEX,C7. 005185 : A,ATX,CUORD 005186 : ERRT:,BSS,. 005187 : C OШИБKA OБHAPYЖEHA KMД 005188 : J,XTA,COPC1-SM 005189 : C ECTЬ ЛИ ГOTOBHOCTЬ, HET - CTOП 005190 : ,AEX,CREADY 005191 : ,AAX,CREADY 005192 : R,VTM,TESCOBT.ПOCЛE TTPRCO 005193 : W,VTM,KER KMD.TEKCT HA TT 005194 : RL,VTM,STOP 005195 : ,U1A,MOQTR.HET ГOTOBH. 005196 : C ПPOBEPKA HECOBПAДEHИЯ AДPECOB. 005197 : C ECЛИ HET - ПOBTOP OБMEHA. 005198 : J,XTA,COPC1-SM 005199 : ,AAX,MNEWM.CПA + POФ 005200 : ,AEX,BNEWM.CПA 005201 : ,U1A,TTPRCO 005202 : C OPГAHИЗAЦИЯ KAЛИБPOBKИ 005203 : C ПOCЛE ПЛOXOГO OБMEHA 005204 : C BЫДAЧA CTATИCTИKИ 005205 : W,VTM,KERBM 005206 : RL,VJM,GOSTA 005207 : C ПPOДBИЖKA CЧETЧИKA KAЛИБPOBOK 005208 : A,XTA,CUORD 005209 : ,ARX,BSKAL 005210 : A,ATX,CUORD 005211 : C BЫДAЧA ДИAГHOCTИKИ HA TT 005212 : R,VJM,TTPR 005213 : C YCTAHOBKA ФЛAГA KAЛИБPOBKИ 005214 : ,XTA,Y1.ЗAПOMИHAHИE PC 005215 : J,ATX,SKAL-SM.B ФЛAГE YCT.0 005216 : LTWSC:,BSS,. 005217 : C...... ЦИKЛ BKЛЮЧEHИЯ ЖДYЩИX 005218 : C ЗAKAЗOB HA ПOДBOД, 005219 : C ПPOCTABЛEHHЫX B TWSC 005220 : J,XTA,MWSC-SM 005221 : ,UZA,NOMOVE.БOЛЬШE HET 005222 : C YCTAHOBKA HE 0 B Y, ЧTO CYЩECT- 005223 : C BEHHO ПPИ OПPOCE ГOTOBHOCTИ. 005224 : ,ATX,Y 005225 : C YCT.ПAPAMETPOB MOДYЛЯ(K,KI,A) 005226 : RL,VJM,YCTAPE 005227 : C YCT.B PEГИCTPE P TИПA ЗAKAЗA. 005228 : A,XTA,CUORD 005229 : ,AAX,C7 005230 : ,ATI,P 005231 : C BЫЧEPKИBAHИE ИЗ TWSC 005232 : KI,XTA,BIT8 005233 : ,AEX,FULWOR 005234 : J,AAX,MWSC-SM. 005235 : J,ATX,MWSC-SM. 005236 : C ПPOBEPKA ГOTOBHOCTИ MOДYЛЯ. 005237 : R,VJM,READPC2 005238 : ,AEX,CREADY. 005239 : ,AAX,CREADY. 005240 : C ПPИ ГOTOBHOCTИ CYMMATOP - 0. 005241 : R,VTM,LTWSC.ПOCЛE ДEЙCTBИЯ 005242 : ,U1A,STOP.MOД.HE ГOTOB 005243 : C MOДYЛЬ ГOTOB. 005244 : C ПPИ OTCYTCTBИИ COBMEЩEHИЯ 005245 : C ЗAKAЗ ИДET B OЧ.ГOT.OБMEHOB 005246 : C ПPИ ЗAKAЗE HA OПPOC ГOTOBHOCTИ 005247 : C ЗAДAЧA-XOЗЯЙKA OTKPЫBAETCЯ. 005248 : C 005249 : C YCT.ПPИЗH.ЗAKAЗ ПPOШEЛ. 005250 : W,VTM,1 005251 : C ПPOБA: HE OПPOC ЛИ ГOTOBHOCTИ 005252 : P,UTM,-QUREA 005253 : P,VZM,MOVEQUE.ДA 005254 : C ЗAKAЗ - HE OПPOC ГOTOBHOCTИ 005255 : RL,VTM,LTWSC 005256 : C ECTЬ ЛИ COBMEЩEHИЯ: 005257 : ,XTA,REGW 005258 : ,U1A,SETRT.HET COBMEЩEHИЙ 005259 : C ЗAHECEHИE БИTA B KOПИЮ MACKИ. 005260 : KI,XTA,BIT8 005261 : J,AOX,CODM-SM.KOПИЯ MACKИ 005262 : J,ATX,CODM-SM 005263 : C BЫДAЧA ПOДBOДA И HA CЛEД.MOДYЛЬ. 005264 : ,UJ,MOVE 005265 : C 005266 : C..... PAЗЛИЧHЫE BAPИAHTЫ ПOBEДEHИЯ 005267 : C B CЛYЧAЯX OДHO- И MHOГO- 005268 : C MAШИHHOГO KMД. 005269 : IFLTWSC:,XTA,NEVM.HOMEP ЭBM 005270 : ,AAX,B48/47.ПOДKЛ.K KMД 005271 : ,UZA,LTWSC.- OДHA MAШИHA 005272 : NOMOVE:,BSS,.(10) 005273 : C OKOHЧATEЛЬHAЯ PAБOTA 005274 : C 005275 : C ECTЬ ЛИ ГOTOBЫЙ OБMEH 005276 : J,XTA,QRTR-SM 005277 : ,ARX, 005278 : ,UZA,SEXIT.HET OБMEHA 005279 : C OБMEH ECTЬ,OПPEДEЛEHИE 005280 : C ПAPAMETPOB MOДYЛЯ(K,KI,A) 005281 : ,AAX,C7. 005282 : ,ATI,K.HOMEP MOДYЛЯ 005283 : J,ATX,CNMOD-SM. 005284 : ,AEX,C7 005285 : ,ATI,KI 005286 : RL,VJM,YCTA 005287 : C A HET ЛИ ПO ЭTOMY ЛБMEHY ЗAЯBKИ 005288 : C HA YCTAHOBKY 0-ГO ЦИЛИHДPA. 005289 : J,XTA,SKAL-SM 005290 : R,VTM,ENDDSDM.ПOCЛE MOVE0 005291 : ,U1A,MOVE0.ECTЬ 005292 : C ДЛЯ БOЛЬШИX ДИCKOB HYЖHO ЗAXBATИTЬ 005293 : C PECYPC БЫCTPЫX KПДП. 005294 : J,ARX,TYPD-SM 005295 : ,U1A,IFSECTR.MAЛЫE ДИCKИ 005296 : R,VJM,CHPOP.P-OПEPAЦИЯ 005297 : 15,V1M,END DISC.CEMAФOP ЗAKPЫT 005298 : IFSECTR:,BSS, 005299 : C HE ECTЬ ЛИ OБMEH CEKTOPHЫЙ. 005300 : C TOГДA HYЖEH CBOЙ ЛИCT. 005301 : A,XTA,CUORD 005302 : ,AAX,BSECT 005303 : ,UZA,COMTRA.HE CEKTOPHЫЙ 005304 : C ... P-OПEPAЦИЯ ДOCTYПA K CBOEMY ЛИCTY 005305 : J,XTA,BITDISK-SM 005306 : R5,VJM,PS*POP 005307 : N,VIM,END DISC.ЛИCT ЗAHЯT 005308 : C ЗAHECEHИE B YKAЗATEЛЬ TEKYЩEГO 005309 : C OБMEHA ЧTEHИЯ ЗOHЫ HA CBOЙ ЛИCT 005310 : ,XTA,MADORSPB.ЧИCTKA ЛИCTA 005311 : A,AAX,CUORD.И KOП 005312 : ,AOX,KOWNP 005313 : ,AOX,GKYCREAD.OБЩ.KYC ЧTEHИЯ 005314 : J,ATX,DBUC-SM 005315 : ,UJ,TRM2 005316 : COMTRA:,BSS, 005317 : C OБЫЧHЫЙ OБMEH (HE CEKTOPHЫЙ) 005318 : C 005319 : C OБHYЛEHИE CЛYЖEБHЫX CЛOB 005320 : R,VTM,1-8.ДЛЯ OБHYЛEHИЯ 005321 : W,VTM,1-8.ДЛЯ BЫTAЛKИBAHИЯ 005322 : *4:J8,UTC, 005323 : R,ATX,8-1 005324 : R,VLM,*4 005325 : C YCTAHOBKA TEKYЩEГO OБMEHA. 005326 : A,XTA,CUORD 005327 : J,ATX,DBUC-SM 005328 : C ПPOBEPKA HA ЧTEHИE И PAЗMETKY. 005329 : C ПPИ HИX CЛYЖEБHЫE CЛOBA HE HYЖHЫ. 005330 : ,AAX,C7 005331 : ,AEX,XRAZMT 005332 : ,UZA, TRM1.PAЗMETKA 005333 : ,AEX,XRAEQRE 005334 : ,UZA,TRM2.ЧTEHИE 005335 : C...... ФOPMИPOBKA CЛYЖEБHЫX CЛOB 005336 : C 005337 : C ЗA AДPECOM И ИHДEKCOM ЗAKAЗA 005338 : R,VJM,CRADR 005339 : M,XTA,WL1-1 005340 : R5,CALL,AUTOR 005341 : J8,ATX,IDEN 005342 : ,XTA,Y1.ПOЛHЫЙ AДPEC 005343 : ,ASN,64-24 005344 : ,ATX,Y1 005345 : M,XTA,WL2-1.KC 005346 : ,ASN,64+24 005347 : ,AOX,Y1.KC И AДPEC 005348 : J8,ATX,.1-OЙ ДOPOЖKИ 005349 : M,XTA,WL2-1 005350 : ,AAX,B24/1 005351 : ,AOX,Y1. 005352 : ,ARX,BIT25.KC И AДPEC 005353 : J8,ATX,4.2-OЙ ДOPOЖKИ 005354 : C ЗAHECEHИE ИMEHИ ПAKETA. 005355 : A,XTA,DNAMIN 005356 : J8,ATX,NAMED1 005357 : J8,ATX,NAMED2 005358 : ,U1A,TRM1 005359 : ,33,700B.HET ИMEHИ MД 005360 : C BЫTAЛKИBAHИE 005361 : TRM1:,ATX,1 005362 : W,VLM,TRM1 005363 : TRM2:,BSS,. 005364 : : ,24,2003B 005365 : C COБCTBEHHO BЫДAЧA OБMEHA. 005366 : R,VJM,TRANSF 005367 : ENDDSDM:,BSS, 005368 : C YCTAHOBKA ФЛAГA ИДYЩEГO OБMEHA: 005369 : C ( COPC1(J) .EQ. 0B ). 005370 : ,XTA, 005371 : J,ATX,COPC1-SM 005372 : C YCTAHOBKA MACKИ ГPП И KOHEЦ PAБOTЫ 005373 : R,VJM,PERMIR/T 005374 : END DISC:,BSS,. 005375 : C ГAШEHИE ПPИЗHAKA ЗAПYCKA 005376 : C OБPAБOTKИ ДИCKOBЫX ПPEPЫBAHИЙ. 005377 : C ГAШEHИE БИTA B ШKAЛE 005378 : C PAБOT ЗAДAЧИ OБMEHA 005379 : : ,24,2003B 005380 : ,XTA,SCTATRA 005381 : J,AOX,BITDISK-SM 005382 : J,AEX,BITDISK-SM 005383 : ,ATX,SCTATRA 005384 : ,UJ,TRAINT 005385 : GET KMD:,BSS,. 005386 : C...... ПPИBЯЗKA KMД K MAШИHE 005387 : ,XTA, 005388 : J,ATX,WAITKMD-SM.HE ЖДEM 005389 : C YCTAHOBKA ФЛAГA 'KMД ПPИBЯЗAH'. 005390 : ,XTA,BIT48 005391 : J,ATX,KMD OWN-SM 005392 : C CБPOC ФЛAГA ACД (FLASD(J).NE.0) 005393 : J,ATX,FLASD-SM 005394 : ,UJ,LTWSC 005395 : C 005396 : C***** 005397 : C 005398 : YCTBEPCB:,ENTRY, 005399 : C 005400 : YCTBEPCB:,BSS, 005401 : C...... ПOДПPOГPAMMA YCTAHOBKИ BEPHOЙ 005402 : C CBEPTKИ B CЛYЖEБHЫX CЛOBAX. 005403 : C R5 - ЧИCЛO CЛYЖEБHЫX CЛOB. 005404 : C ПOPTИT R5. 005405 : C 005406 : C YCTAHOBKA PEAKЦИИ HA YПP. 005407 : ,XTA,R/INTCN 005408 : ,ATX,RECONNUM 005409 : C ЦИKЛ YCT.BEPH.CBEPTKИ 005410 : YCB1:,XTA,C2003.БЛOKИPOBKA 005411 : ,ATI,21B.OCTAHOBA 005412 : ,ATI,.ЛO YПP 005413 : J8,UTC, 005414 : R5,XTA,-1 005415 : ,ATI, 005416 : CONTL:,BSS,.ЗAПИCЬ 005417 : J8,UTC, 005418 : R5,ATX,-1 005419 : R5,UTM,-1 005420 : R5,V1M,YCB1.KOHEЦ ЦИKЛA 005421 : CHCTY:,BSS, 005422 : C...... ПOДПPOГPAMMA CHЯTИЯ БЛO- 005423 : C KИPOBKИ OCTAHOBA ПO YПP. 005424 : ,XTA,C13 005425 : ,ATI,21B 005426 : ,ATI, 005427 : R,UJ, 005428 : R/INTCN:,, 005429 : ,Z00,AFINTCN 005430 : AFINTCN:,BSS,. 005431 : C PEAKЦИЯ HA YПP 005432 : C B SAVAC 48-1 ЧИCЛA 005433 : ,XTA,SAVAC 005434 : ,UJ,CONTL 005435 : STOP:,BSS, 005436 : C...... БЛOK PEAKЦИИ HA HEГOTOBHOCTЬ MOД. 005437 : C ПPИ HAПPABЛEHHOCTИ ЗAKAЗA HA 005438 : C MOДYЛЬ OH CHИMAETCЯ. ИHAЧE ЗAKAЗ 005439 : C OTKЛAДЫBAETCЯ ДO ПOЯBЛEHИЯ ГT. 005440 : C 005441 : C MOЖHO ЛИ OCBOБOДИTЬ MOДYЛЬ: 005442 : ,XTA,MONOS 005443 : A,AAX,BIT48 005444 : W,VTM,KERNOR.TT TEKCT 'HEГT' 005445 : R,VTM,ST1.ПOCЛE TTPR 005446 : ,U1A,TTPRWBL.ПAKET ЗAHЯT 005447 : C HE БЫЛ ЛИ MOДYЛЬ YЖE CBOБOДEH: 005448 : A,XTA,DNAMIN 005449 : ,UZA,ST1.ДA 005450 : C OCBOБOЖДEHИE MOДYЛЯ OT ПAKETA И 005451 : C OPГAHИЗAЦИЯ COOБЩEHИЯ OБ ЭTOM B 005452 : C CTATИCTИKЫ. (BPEMEHHO ПOPTИM A). 005453 : C ЧИCTKA ГPЯЗИ B SCKILD. 005454 : A,UTM,30B 005455 : :,24,2003B 005456 : ,ATX,YINT1.ИMЯ ПAKETA 005457 : A,XTA,BIT16-30B 005458 : ,AEX,FULWOR 005459 : ,AAX,SCKILD 005460 : ,ATX,SCKILD 005461 : ,XTA, 005462 : A,ATX,DNAMIN-30B 005463 : ,ITA,A.HOMEP MOДYЛЯ 005464 : ,ATX,YINT 005465 : ,XTA,CODSTNR 005466 : ,UJ,STATIST 005467 : CODSTNR:2,Z03,YINT 005468 : ,Z01,ST0 005469 : ST0:,24,3 005470 : A,UTM,-30B.ИCПPABИM A 005471 : ST1:,BSS, 005472 : C ПEPEBOД OM-HMД B COCTOЯHИE 'HEГT' 005473 : A,XTA,BIT48 005474 : ,AEX,FULWOR 005475 : ,AAX,DREADY 005476 : ,ATX,DREADY 005477 : C A KYДA CEЙ ЗAKAЗ HAПPABЛEH: 005478 : A,XTA,CUORD 005479 : ,AAX,BTMOD 005480 : R,VTM,IFLTWSC 005481 : ,U1A,MOVEQUE.ЗAKAЗ HA MOДYЛЬ 005482 : C YCTAHOBKA ПPИЗHAKA ABAPИИ B 005483 : C ЗAKAЗ (HA ПAKET) B WL1. 005484 : A,XTA,SQTM 005485 : ,ANX, 005486 : ,ATI,M.ИHДEKC ЗAKAЗA 005487 : M,XTA,WL1-1.KYC 005488 : ,AOX,BINTR.ПPИЗHAK AB. 005489 : M,ATX,WL1-1 005490 : ,ASN,64+42 005491 : ,ATI,RL 005492 : RL,VZM,IFRDTA 005493 : ,XTA,FULWOR.BЫЧИCTKA ИЗ 005494 : RL,AEX,BITS.ШKAЛЫ ЗAДAЧ, 005495 : ,AAX,EXCHSC.ЗAKPЫTЫX ПO OБMEHY 005496 : ,ATX,EXCHSC 005497 : ,UJ,IFRDTA 005498 : MOVEQUE:,BSS, 005499 : C...... ПOДПPOГPAMMA ПPOДBИЖKИ OЧEPEДИ 005500 : C ПO K-TOMY MOДYЛЮ. 005501 : C ЗAДAЧA-XOЗЯЙKA ЗAKAЗA OTKPЫBAETCЯ. 005502 : C ECЛИ B OЧEPEДИ ПO K-MY MOДYЛЮ 005503 : C ECTЬ EЩE ЗAKAЗЫ, TO K-ЫЙ БИT 005504 : C ЗAHOCИTCЯ B ШKAЛY 005505 : C ЖДYЩИX ЗAKAЗOB TWSC. 005506 : C ЧИCTЯTCЯ CЧETЧИKИ OШИБOK: 005507 : C COBT И COKAL. 005508 : C ПOPTИTCЯ R9,W,P,N,RL,Y3,Y4,Y5,R5 005509 : C ECЛИ W.NE.0, TO ЗAДAЧE 005510 : C ГOTOBИTCЯ BЫXOД B ERRMACRO. 005511 : C W-AДPEC TEKCTA AЦПY. 005512 : C ... OTKPЫTИE ЗAДAЧИ-XOЗЯЙKИ. 005513 : C OПPEДEЛEHИE MECTA B ГЛAB.OЧ. 005514 : RL,VJM,PRIRIND 005515 : R,UZA, 005516 : ,ATI,M 005517 : C HE HAДO ЛИ ДABИTЬ ЗAДAЧY 005518 : W,VZM,OPT.HE HAДO 005519 : C HAДO, БYДET ПPABKA ИПЗ ЗAДAЧИ. 005520 : C OПPEДEЛEHИE ДHЗ И AДPECA ИПЗ. 005521 : KOKHEM:,BSS, 005522 : M,XTA,WL1-1.KYC ЗAKAЗA 005523 : ,ASN,64+42 005524 : ,ATI,R9.ДHЗ ЗAДAЧИ 005525 : R5,VTM,OPT.BOЗB.CПEЦ.KAH. 005526 : C HE ИMЯ ЛИ ЧИTAЛOCЬ: 005527 : W,UTM,-1 005528 : W,VZM,*2.O ДA 005529 : ,XTA, 005530 : ,ATX,Y.0 ДЛЯ CYMMATOPA 005531 : *2:,XTA,Y.ИMЯ ПAKETA 005532 : R9,VZM,ENSPTR.KAKHAЛ OПOЗH. 005533 : KILLOPER:,BSS, 005534 : C C ЗAKPЫTИEM ЛИ ЗAДAЧИ CEЙ ЗAKAЗ: 005535 : M,XTA,WL1-1 005536 : ,AAX,BCLOSE 005537 : ,UZA,NONOWN.CTAHД.CЛYЧAЙ 005538 : C ECTЬ ЗAKPЫTИE ЗAДAЧИ. 005539 : N,VTM,Y.ДЛЯ CYMMATOPA 005540 : R9,VTM,Y1.ДЛЯ PMP 005541 : ,UJ,TOABCHT.HA KOKAHЬE 005542 : NONOWN:,BSS, 005543 : C HEYДAЧA HA ЗAKAЗE БEЗ БЛOKИPOBKИ 005544 : M,MTJ,R9.ФOPMИPOBKA 005545 : R9,UTM,WL1-1.ДЛЯ CYMMATOPA 005546 : C ПOДЛEЖИT ЛИ ЗAДAЧA BЫБPOCY: 005547 : M,XTA,WL1-1 005548 : ,AAX,BBSTOP 005549 : ,UZA,TOABCHT.ПOДЛEЖИT 005550 : W,VTM, 005551 : TOABCHT:,BSS, 005552 : C ... OKOHЧATEЛЬHAЯ ПOДГOTOBKA BЫЗO- 005553 : C BA П/П ABAPИЙHOГO CHЯTИЯ. 005554 : M,XTA,WL1-1 005555 : A,VJM,ABCHT 005556 : RL,VJM,YCTA 005557 : OPT:,BSS,. 005558 : C COБCTBEHHO OTKPЫTИE ЗAДAЧИ. 005559 : C+ 005560 : C++++ ИДEЯ M.ГYPEBИЧA O MOHOПOЛИЗAЦИИ 005561 : C++++ ПOKA HE ПPOXOДИT ИЗ-ЗA R-TPAKTA 005562 : C+ HE ECTЬ ЛИ ЭTO ЗAKAЗ, CBЯЗAHHЫЙ 005563 : C+ C MOHOПOЛИЗAЦИEЙ HAПPABЛEHИЯ 005564 : C+M,XTA,WL1-1 005565 : C+,AAX,BMONCH 005566 : C+,UZA,CLOSQTM.HET 005567 : C+ CHЯT CПEЦ.ЗAKAЗ. ECЛИ БЫЛO 005568 : C+ ЧTEHИE, FLMNCH(J) YBEЛИЧИBAETCЯ 005569 : C+ HA 1 (MOHOПOЛИЗAЦИЯ), B 005570 : C+ ПPOTИBHOM CЛYЧAE YMEHЬШAETCЯ HA 1 005571 : C+A,XTA,CUORD 005572 : C+,AAX,C7.KOП 005573 : C+,AEX,XREAD 005574 : C+,UZA,/1.ЧTEHИE 005575 : C+,XTA,BIT2 005576 : C+/1:,X-A,BIT1 005577 : C+J,A+X,FLMNCH-SM 005578 : C+,UZA,/2.BCE B ПOPЯДKE 005579 : C+ ЛИШHЯЯ V-OПEPAЦИЯ 005580 : C+,XTA, 005581 : C+ /2:J,ATX,FLMNCH-SM 005582 : C+CLOSQTM:,BSS, 005583 : C ... ПPOДBИЖKA OЧEPEДИ ЗAKAЗOB. 005584 : C XOЗЯЙKA YЖE OTKPЫTA. 005585 : J8,MTJ,11.AДPEC CЛ.CЛOB 005586 : R9,VJM,KOHOБMEH 005587 : C HE БЫЛ ЛИ CЛEДYЮЩИЙ ЗAKAЗ 005588 : C BЫKИHYT OПEPATOPOM. 005589 : A,XTA,SQTM 005590 : RL,VJM,*6 005591 : R,UZA,.HET ЗAKAЗOB 005592 : ,ATI,M.ИHДEKC ЗAKAЗA 005593 : C A БЫЛA ЛИ HA HEM ABAPИЯ: 005594 : M,XTA,WL1-1 005595 : ,AAX,BINTR 005596 : ,UZA,IFRDTA.HET 005597 : C HET ЛИ ПPИKAЗA CHЯTИЯ 'ДKO'. 005598 : ,XTA,SCKILD 005599 : A,AAX,BIT16 005600 : ,UZA,HET ДKO 005601 : ,AEX,SCKILD 005602 : ,ATX,SCKILD 005603 : W,VTM,DERT 005604 : ,UJ,KILLOPER 005605 : HET ДKO:,BSS, 005606 : M,XTA,WL1-1 005607 : ,ASN,64+42.ДHЗ ЗAДAЧИ- 005608 : ,ATI,RL.-XOЗЯЙKИ 005609 : RL,XTA,BITS 005610 : ,AAX,OUTJOBSC 005611 : ,UZA,IFRDTA 005612 : W,VTM,1.БEЗ 005613 : ,UJ,KOKHEM.ERRMACRO 005614 : IFRDTA:,BSS, 005615 : C A HET ЛИ EЩE ЗAKAЗOB 005616 : RL,VJM,PRIRIND 005617 : R,UZA,.HET 005618 : ,ATI,M 005619 : C ПPИEM HOBOГO ЗAKAЗA B OБCЛYГY. 005620 : INTOSYS:,BSS, 005621 : C...... ПOДПPOГPAMMA ПPИEMA B OБCЛYГY. 005622 : C MECTO HOBOГO ЗAKAЗA - WL1(M) 005623 : C YCTAHAB.HOBЫЙ TEKYЩИЙ ЗAKAЗ(CUORD) 005624 : C ПPИ YCTAHOBKE ЧИCTЯTCЯ CЧETЧИKИ. 005625 : C CTABИTCЯ БИT B OЧEPEДЬ ЖДYЩИX 005626 : C ПOДBOДOB(MWSC(J). CTAPOE ЗHAЧEHИE 005627 : C MWSC ПOMHЩAETCЯ B YЗ. 005628 : C ПOPTЯTCЯ: R9,Y3,Y4,Y5,RL=15 005629 : C 005630 : C01 ПEPEKOДИPOBKA ПOЛЯ KOMAHДЫ 005631 : C (18 И 3-1) C YЧETOM REGW. 005632 : C 005633 : C O2 YCT.CTPOKИ TAБЛИЦЫ KOДOB. 005634 : R9,VTM,TABKYC.TAБЛ.ПEPEKOД. 005635 : ,XTA,TYPWR 005636 : ,UZA,IS1.PEЖИM ПPOCTOЙ 005637 : R9,UTM,2.ЗAПИCЬ C CPABH. 005638 : IS1:,BSS, 005639 : M,XTA,WL1-1 005640 : ,AAX,BIT18.CTAPШ.БИT KOM. 005641 : ,UZA,IS2 005642 : R9,UTM,1. 005643 : C 02 005644 : IS2:,BSS, 005645 : C 02 YCT.HOBOГO KOДA ПO 005646 : C CTPOKE И PAЗPЯДAM 3-1 CTAP. 005647 : M,XTA,WL1-1 005648 : ,AAX,C7.3-1 CTAPOЙ 005649 : ,ASN,64-2.*4 005650 : ,ATI,RL 005651 : R9,XTA,.CЛOBO TAБЛИЦЫ 005652 : RL,ASN,64-28 005653 : ,AUX,MAKOM.HOBAЯ KOM. 005654 : A,ATX,CUORD 005655 : C 02 005656 : C01 005657 : CO1 YCTAHOBKA KYCA YBY И TEKYЩEГO 005658 : C AДPECA, PABHOГO ПOKA HAЧAЛЬHOMY 005659 : ,XTA,MASK WL1.ЧTO BЗЯTЬ ИЗ WL1 005660 : M,AAX,WL1-1 005661 : ,A-X,BIT28 005662 : A,AOX,CUORD 005663 : A,ATX,CUORD 005664 : C01 KOPPEKЦИЯ AДPECA ДOPOЖKИ B 005665 : C COOTBETCTBИИ C TИПOM ДИCKOB. 005666 : J,ARX,TYPD-SM 005667 : ,UZA,BIGDI.ДИCKИ-29 005668 : C 02 KOPPEKЦИЯ ДЛЯ MAЛЫX ДИCKOB: 005669 : C ПEPEXOД OT ЗOH K ДOPOЖKAM. 005670 : ,ASN,64+25 005671 : ,AAX,C7777 005672 : ,ATX,Y5.ЗOHA 005673 : ,ASN,64-1.ПEPEHECEHИE 1PЦГ 005674 : ,ARX,B48/13.B MЛAДШИЙ PAЗPЯД 005675 : ,AAX,C7777.ПOЛЯ AДPECA 005676 : ,UJ,ECORAD 005677 : C 02 005678 : CORCAM:,BSS,.......... 005679 : C 02 KOPPEKЦИЯ ДЛЯ ЗABOДCKOГO KMД 005680 : A,XTA,CUORD 005681 : ,ASN,64+25 005682 : ,AAX,C7777 005683 : ,ATX,Y5 005684 : C 03 ЦИKЛИЧ.CДBИГ 12P BПPABO 005685 : ,ASN,64+1 005686 : ,ATX,Y4 005687 : ,YTA, 005688 : ,ASN,64+36 005689 : ,AOX,Y4 005690 : ,UJ,ECORAD 005691 : BIGDI:,BSS, 005692 : C 02 KOPPEKЦИЯ ДЛЯ БOЛЬШИX ДИCKOB: 005693 : C ЗABOДCKOЙ ЛИ KMД : 005694 : ,XTA,PRDK 005695 : J,AAX,BIT24-1 005696 : ,UZA,CORCAM.-ДA 005697 : C 02 ДYБHEHCKИЙ KMД-29 005698 : A,XTA,CUORD 005699 : RL,VJM,DIV10 005700 : C BЫДEЛEHИE HOMEPA ГPYППЫ ГOЛOBOK. 005701 : 15,VTM,Y4 005702 : C ЦИЛИHДPA И ГPYППЫ ГOЛOBOK. 005703 : C 03 ПOЛYЧEHИE HOMEPOB 005704 : ,XTS,Y3.AДPEC/10 005705 : ,ASN,64+1.HOMEP ЦИЛИHДPA 005706 : ,ATX,Y3 005707 : ,YTA,.HOMEP ГPYППЫ 005708 : ,ASN,64+36.ГOЛOBOK 005709 : 15,AOX,.HOMEP ГOЛOBKИ 005710 : C 03 OKOHЧATEЛЬHAЯ ФOPMИPOBKA AДPECA 005711 : ,XTS,Y3 005712 : ,ASN,64-2 005713 : ,ARX,Y3 005714 : ,ASN,64-1.(N ЦИЛИHДPA)*10 005715 : 15,ARX, 005716 : ECORAD:,BSS, 005717 : C 02 BПИCЫBAHИE AДPECA B CUORD 005718 : ,AEX,Y5 005719 : ,ASN,64-25 005720 : A,AEX,CUORD 005721 : A,ATX,CUORD 005722 : C 02 005723 : C01 YCT.БИTA B OЧ. ЖДYЩ.ПOДBOДOB 005724 : J,XTA,MWSC-SM.OЧ.ЖДYЩ.ПOДB. 005725 : ,ATX,Y3.CTAPOE ЗHAЧEHИE 005726 : KI,AOX,BIT8 005727 : J,ATX,MWSC-SM.HOBOE ЗHAЧEHИE 005728 : C01 005729 : C 005730 : C 02 OПPEДEЛEHИE ДHЗ ЗAДAЧИ. 005731 : M,XTA,WL1-1 005732 : ,ASN,64+42 005733 : ,ATI,R9 005734 : C 02 005735 : C C ЗAKPЫTИEM ЛИ ЗAДAЧИ CEЙ ЗAKAЗ: 005736 : M,XTA,WL1-1 005737 : ,AAX,BCLOSE 005738 : ,U1A,WITHCLOS.C ЗAKPЫTИEM 005739 : C01 ЗAKAЗ БEЗ ЗAKPЫTИЯ. ПPOCTAHOBKA 005740 : C БИTA ПEPEXBATA PEAKЦИИ, ECЛИ 005741 : M,XTA,WL1-1 005742 : ,ASN,64-2 005743 : M,AOX,WL1-1 005744 : ,AAX,BIT6.B6.OR.B4. ЗAKAЗA 005745 : SH38:,EQU,BNOTST-BIT6 005746 : ,ASN,64+SH38 005747 : A,AOX,CUORD 005748 : A,ATX,CUORD 005749 : R,UJ, 005750 : WITHCLOS:,BSS, 005751 : C01 ДEЙCTBИЯ ПO ЗAKAЗY C ЗAKPЫTИEM 005752 : C 02 ФOPMИPOBKA B CUORD БИTOB CTATYCA 005753 : C COГЛACHO HOMEPY CTATYCA ЗAKAЗA. 005754 : M,XTA,WL1-1 005755 : ,ASN,64+2 005756 : ,AAX,C14. 005757 : ,ATI,RL.N CTATYCA*4 005758 : ,XTA,TBCTATYC 005759 : RL,ASN,64.БИTЫ CTATYCA 005760 : ,AAX,C7.CПPABA 005761 : ,ASN,64-3 005762 : A,AOX,CUORD 005763 : A,ATX,CUORD 005764 : C 02 ПPOЧИCTKA 38P ДЛЯ MOHOДEЙCTBИЙ 005765 : ,AAX,BMONCH 005766 : ,ASN,64+1.BNOTST-BMONCH=1 005767 : A,AEX,CUORD 005768 : A,ATX,CUORD 005769 : C 02 ECЛИ ЗAKAЗ HE OT KAHAЛA OПOЗHA- 005770 : C BAHИЯ, TO B CYMMATOP ЗAKAЗЧИKA 005771 : C CTABИTCЯ HE HOЛЬ. 005772 : R9,VZM,*5.OПOЗHABAHИE 005773 : R9,WTC,*YCЫ.HE 0 B 005774 : *5:,ATX,.CYMMATOP 005775 : C 02 005776 : C01 005777 : R,UJ, 005778 : C...... KOHEЦ 'INTOSYS'. 005779 : PRIRIND:,BSS, 005780 : C...... П/П OПPEДEЛEHИЯ ИHДEKCA ПO WL1 005781 : C HAИБOЛEE ПPИOPИTETHOГO ЗAKAЗA 005782 : C HA MOДYЛЬ. PEЗYЛЬTAT HA CYMMATOPE 005783 : C И B ЯЧEЙKE Y3. 005784 : C ПPИ OTCYTCTBИИ ЗAKAЗOB CYMMATOP=0. 005785 : C OБPAЩEHИE ПO RL. 005786 : ,XTA,DREADY 005787 : A,AAX,BIT48 005788 : ,UZA,*6.MOДYЛЬ HE ГOTOB 005789 : A,XTA,SQTM 005790 : *6:,AOX,SCTMOD 005791 : A,AAX,SQTM 005792 : RL,UZA,.HET ЗAKAЗOB 005793 : ,ANX, 005794 : ,ATX,Y3 005795 : RL,UJ, 005796 : TTPRCO:,BSS,. 005797 : C...... ПOДПPOГPAMMA ПPOДBИЖKИ 005798 : C CЧETЧИKA OШИБOK (COBT) 005799 : C ЧEPEЗ 8 PAЗ ПEЧATЬ HA TT. 005800 : C ПOPTИT W,RL,YINT,YINT1. 005801 : C 005802 : C ПOXOД HA CTATИCTИKY. 005803 : RL,VJM,GOSTA 005804 : A,XTA,CUORD.ЗДECЬ CЧETЧИK 005805 : ,ARX,BITCO.+1 005806 : A,ATX,CUORD 005807 : ,AAX,CDIAG 005808 : ,AEX,BITDIAG 005809 : R,U1A,.HE KPATHO 8 005810 : TTPR:,BSS, 005811 : C...... ДИAГHOCTИKA HA TEЛETAЙПE 005812 : C AДPEC ПEPBOГO CЛOBA B W 005813 : C 005814 : C HET ЛИ ПEPEXBATA PEAKЦИИ: 005815 : C ECЛИ ECTЬ, TT БЛOKИPYETCЯ. 005816 : A,XTA,CUORD. 005817 : ,AAX,BBLTT 005818 : R,U1A,.TT БЛOKИPOBAH 005819 : TTPRWBL:,BSS, 005820 : C...... П/П ПEЧATИ HA TT БEЗ KOHTPOЛЯ 005821 : C HAЛИЧИЯ БИTA БЛOKИPOBKИ ДИAГHOCTИK 005822 : C 005823 : C ФOPMИPOBKA AДPECA B KOДE ISO 005824 : C ФOPMAT COOБЩEHИЯ : 005825 : C NN CCCГГ ШTT ZZZZ PPPPPP 005826 : C NN : HOMEP MOДYЛЯ 005827 : C CCC : HOMEP ЦИЛИHДPA 005828 : C ГГ : HOMEP ГOЛOBKИ 005829 : C TT : ШИФP ЗAДAЧИ 005830 : C ZZZZ : HOMEP ЗOHЫ ИЗ WL1 005831 : C PPPPPP : PEГИCTP COCTOЯHИЯ(9-24 PAЗP.) 005832 : C 005833 : A,XTA,CUORD.TEKYЩИЙ ЗAKAЗ 005834 : ,AAX,BIT37.ДГ*2048 005835 : ,ATX,Y41 005836 : A,AEX,CUORD 005837 : ,ASN,64+25 005838 : ,AAX,C7777 005839 : RL,VJM,DECLET 005840 : C HA CYMMATOPE AДPEC БEЗ ДГ 005841 : C B ДECЯTИЧHOM БAЙTOBOM BИДE 005842 : ,ASN,64+8 005843 : ,ATX,Y43.N ЦИЛИHДPA 005844 : ,YTA, 005845 : ,ATX,Y4.N ГOЛOBKИ БEЗ ДГ 005846 : C ПPOБA TИПA ДИCKOB И KMД 005847 : J,ARX,TYPD-SM 005848 : ,U1A,LITDUB.ДИCKИ-7 005849 : ,XTA,PRDK 005850 : J,AAX,BIT24-1 005851 : ,U1A,LITDUB.ДYБH.KMД-29 005852 : C ЗABOДCKOЙ KMД-29 005853 : C ФOPMИPOBKA HOMEPA ГOЛOBKИ 005854 : ,XTA,Y41 005855 : ,ASN,64-3 005856 : ,AOX,Y4 005857 : ,ASN,64+39 005858 : ,AAX,C37 005859 : RL,VJM,DECLET 005860 : ,ASN,64-32 005861 : ,UJ,TOY41 005862 : C MAЛЫE ИЛИ ДYБHEHCKИE ДИCKИ 005863 : C ФOPMИPOBKA HOMEPA ГOЛOBKИ 005864 : LITDUB:,XTA,Y41 005865 : ,ASN,64-11 005866 : ,AOX,Y4 005867 : ,AUX,MU1/177 005868 : TOY41:,ATX,Y41 005869 : C ФOPMИPOBKA HOMEPOB MOДYЛЯ И ЦИЛИHДPA 005870 : ,ITA,A 005871 : ,ASN,64-42 005872 : ,AUX,MUNLET 005873 : ,ARX,CT30 005874 : ,AOX,Y43 005875 : ,ATX,Y4 005876 : C ПOДГOTOBKA ПEЧATИ N ШИФPA 005877 : C ЗAДAЧИ-XOЗЯЙKИ ЗAKAЗA 005878 : RL,VJM,PRIRIND 005879 : ,ATI,RL.ИHДEKC ЗAKAЗA 005880 : RL,XTA,WL1-1 005881 : ,ASN,64+42.ДHЗ ЗAДAЧИ 005882 : ,X-A,XNW.EE ШИФP 005883 : ,ASN,64-30 005884 : ,AUX,MUNLET 005885 : ,AOX,Y41 005886 : ,AOX,CTSH.6H00 Ш00 005887 : ,ATX,Y4+1 005888 : C ФOPMИPOBKA N ЗOHЫ 005889 : RL,XTA,WL1-1 005890 : ,ASN,64+25 005891 : ,A-X,BIT4 005892 : ,AAX,C7777 005893 : ,ASN,64-33 005894 : ,AUX,MUNLET 005895 : ,ARX,CT0000 005896 : ,ATX,Y42 005897 : C ФOPMИPOBKA PC 005898 : ,XTA,Y1 005899 : ,APX,MPPC 005900 : ,AUX,MUNLET 005901 : ,AOX,CT000000 005902 : ,ATX,Y43 005903 : W,XTA, 005904 : P,UTM,-CONTR 005905 : P,V1M,*11 005906 : W,UTM,-KERKMD 005907 : W,V1M,*11 005908 : ,XTA,KERWR 005909 : *11:,BSS, 005910 : ,ATX,TTBUF 005911 : J,MTJ,W 005912 : J,VTM,TTBUF 005913 : ,ITA,J 005914 : J,VJM,TTPRINT 005915 : : ,24,3 005916 : W,MTJ,J 005917 : R,UJ, 005918 : DIV10:,BSS, 005919 : C...... П/П ДEЛEHИЯ HA 10 C OCTATKOM. 005920 : C ДEЛИMOE - CYMMATOP P36-25, 005921 : C HA BЫXOДE: ДEЛИMOИ, ЧACTHOE, 005922 : C OCTATOK - Y5,Y3,CYMMATOP. 005923 : C OБPAЩEHИE ПO RL. 005924 : ,ASN,64+25 005925 : ,AAX,C7777 005926 : ,ATX,Y5.ДEЛИMOE 005927 : ,A*X,C1/10. 005928 : ,ATX,Y3.ЧACTHOE 005929 : ,ASN,64-2 005930 : ,ARX,Y3 005931 : ,ASN,64-1 005932 : ,X-A,Y5 005933 : RL,UJ, 005934 : GOSTA:,BSS, 005935 : C...... ПOДПPOГPAMMA ЗAПИCИ B CTATИCTИKY 005936 : C OБPAЩEHИE ПO PEГИCTPY RL. 005937 : C ПOPTИT YINT,YINT1,M. 005938 : C B W AДPEC TT TEKCTA PYГAHИ. 005939 : RL,MTJ,M.BOЗBPAT 005940 : RL,VJM,PRIRIND 005941 : M,MTJ,RL.BOCCT BOЗBPAT 005942 : ,ATI,M.HOMEP B ГЛ.OЧ. 005943 : : ,24,2003B 005944 : M,XTA,WL1-1.KYC ГЛ.OЧ. 005945 : ,ATX,YINT 005946 : A,XTA,DNAMIN.ИMЯ ПAKETA 005947 : ,ATX,YINT1 005948 : C ФOPMИPOBKA 0+ГO CЛOBA CTATИCTИKИ 005949 : ,ITA,W.AДPEC TT TEK. 005950 : ,ARX,CONSD1.N OШИБKИ = 005951 : ,ASN,64-15.= OTH.AДP.TT TEK 005952 : ,ARX,CONSD2.CTAHД.БИTЫ 005953 : ,UJ,STATIST 005954 : RETSTA:,24,3.BOЗBPAT ИЗ 005955 : RL,UJ,.CTATИCTИKИ 005956 : CONSD1:7,37,77777B 005957 : 15,37,-TT/TEK 005958 : CONSD2:3,Z03,YINT 005959 : ,Z04,RETSTA 005960 : YCTAPE:,BSS,. 005961 : C...... ПOДПPOГPAMMA YCTAHOBKИ 005962 : C K,KI,A:K - HOMEP MOДYЛЯ, 005963 : C KI=K.EQ.7.A=J*8+K. 005964 : C HA BXOДE ACC-ШKAЛA ПO MOД 005965 : C OБPAЩEHИE ПO RL 005966 : ,ANX,M41 005967 : ,ATI,KI 005968 : ,AEX,C7 005969 : ,ATI,K 005970 : YCTA:K,MTJ,A 005971 : J8,J+M,A 005972 : A,UTM,-BEGMT 005973 : RL,UJ, 005974 : SEXIT:,BSS, 005975 : C...... БЛOK BЫXOДA ИЗ 005976 : C YЧACTKA CПEЦИAЛЬHЫX ДEЙCTBИЙ. 005977 : J,XTA,CODM-SM.ECTЬ ЛИ ПOДBOДЫ 005978 : ,U1A,CORCM.ДA,ECTЬ 005979 : C KMД CBOБOДEH, HO MOЖET ECTЬ 005980 : C MOHOПOЛИЗAЦИЯ HAПPABЛEHИЯ 005981 : J,XTA,FLMNCH-SM 005982 : RL,VTM,AFTREFUS.ПOCЛE OTBЯЗKИ 005983 : ,UZA,REFUSE.HET MONO 005984 : C YCTAHOBЛEHA MOHOПOЛИЗAЦИЯ. 005985 : C ECЛИ ECTЬ ЗAK.ПOДBOДOB,TOЛKHEM ИX 005986 : J,XTA,MWSC-SM 005987 : ,U1A,LTWSC 005988 : ,UJ,END DISC 005989 : AFTREFUS:,BSS, 005990 : C BOЗMOЖHO OTBЯЗKA БЫЛA CДEЛAHA 005991 : C ДЛЯ ПPOПYCKA ЗAKAЗOB ДPYГИX ЭBM. 005992 : C ECЛИ ECTЬ EЩE ЗAДAHИЯ HA BЫДAЧY 005993 : C ПOДBOДOB,ПOПPOБYEM CHOBA ЗAXBATИTЬ KMД 005994 : J,XTA,MWSC-SM 005995 : ,UZA,SETMRM.HET ЗAДAHИЙ 005996 : C ЗAПPOC KMД 005997 : J,ATX,WAITKMD-SM.ЖДEM 005998 : RL,VJM,REQUEST 005999 : C MOЖET БЫTЬ OH CPAЗY ЗAXBAЧEH 006000 : ,MOD,237B 006001 : J,AAX,BIT29-SM 006002 : ,UZA,END DISC.HE ЗAXBAЧEH 006003 : C ГAШEHИE MACKИ ГPП И AB 006004 : R,VJM,CLOMIR 006005 : R,VJM,ZEROPC 006006 : ,XTA, 006007 : J,ATX,TIMEX-SM 006008 : :,24,3 006009 : ,UJ,GETKMD 006010 : CORCM:,BSS, 006011 : C KOPPEKЦИЯ ЦИKЛИЧECKOЙ MACKИ 006012 : C ПPИOPИTETOB ДЛЯ BЫБOPA MOДYЛЯ. 006013 : J,XTA,MACI-SM.ЦИKЛ. MACKA 006014 : ,ASN,64+1 006015 : ,U1A,SCI1 006016 : ,XTA,C377 006017 : SCI1:J,ATX,MACI-SM.HOBAЯ MACKA 006018 : C OПPEДEЛEHИE ПPИOPИTETHOГO MOДYЛЯ 006019 : J,AAX,CODM-SM 006020 : ,U1A,SCI2 006021 : J,XTA,CODM-SM 006022 : SCI2:,ANX,M41.HOMEP MOДYЛЯ 006023 : ,ATI,KI.B OБPATHOM 006024 : ,AEX,C7.И 006025 : ,ATI,K.ПPЯMOM KOДAX 006026 : J,ATX,CNMOD-SM 006027 : C YCTAHOBKA MACKИ ГPП. 006028 : R,VJM,PERMIR/T 006029 : R,VTM,END DISC 006030 : RL,VJM,ELECT 006031 : C YCTAHOBKA MACKИ ДИCKOB. 006032 : J,XTA,CODM-SM 006033 : ,UJ,SETDM 006034 : DAFSET:,ENTRY, 006035 : C++++++++++++++++++++++++++++++++++ 006036 : C BXOД ИЗ ЗAДAЧИ OБMEHA ПOCЛE 006037 : C ПOCTAHOBKИ B ГЛABHYЮ OЧEPEДЬ 006038 : C++++++++++++++++++++++++++++++++++ 006039 : C 006040 : C MECTO B ГЛABHOЙ O4. B N. 006041 : N,XTA,WL1.KYC 006042 : ,ASN,64+7 006043 : ,AAX,C7 006044 : ,ATI,K.N MOДYЛЯ 006045 : ,AEX,C7.OH ЖE B 006046 : ,ATI,KI.OБPATHOM KOДE 006047 : ,ITA,J.ПOЛYЧEHИE 006048 : ,ASN,64-3.N HAПPABЛEHИЯ 006049 : ,ATI,J8.* HA 8. 006050 : RL,VJM,YCTA. 006051 : C YCTAHOBKA БИTA B ШKAЛY-OЧEPEДЬ 006052 : C COOTBETCTBYЮЩEГO MOДYЛЯ 006053 : ,NTR,7 006054 : N,XTA,BIT48 006055 : A,AOX,SQTM 006056 : A,ATX,SQTM 006057 : C HE ECTЬ ЛИ ЭTO ЗAKAЗ, 006058 : C HAПPABЛEHHЫЙ HA ДИCKOBOД. 006059 : N,XTA,WL1 006060 : ,AAX,BTMODE 006061 : ,UZA,IFINIT.OБЫЧHЫЙ ЗAKAЗ 006062 : C YCTAHOBKA БИTA B ШKAЛY ЗAKAЗOB, 006063 : C HAПPABЛEHHЫX HA MOДYЛЬ 006064 : N,XTA,BIT48 006065 : ,AOX,SCTMOD 006066 : ,ATX,SCTMOD 006067 : IFINIT:,BSS, 006068 : C ... HAДO ЛИ OCYЩECTBЛЯTЬ ИHИЦИAЦИЮ: 006069 : N,MTJ,M 006070 : RL,VJM,PRIRIND 006071 : ,UZA,ENDMAC70.ЗAKAЗ HE ПYCTИTЬ 006072 : C A CAMЫЙ ЛИ ПPИOPИTETHЫЙ 006073 : C TOЛЬKO ЧTO ПPИHЯTЫЙ ЗAKAЗ. 006074 : M,UTM,1 006075 : ,ITA,M 006076 : ,AEX,Y3 006077 : ,U1A,ENDMAC70.HE CAMЫЙ 006078 : C ПPИEM ЗAKAЗA B OБCЛYГY. 006079 : R,VJM,INTOSYS. 006080 : C B YЗ ПOMEЩEHO CTAPOE ЗHAЧEHИE 006081 : C OЧEPEДИ ЖДYЩИX ПOДBOДOB (MWSC) 006082 : C 006083 : C ПPOБA HA ПPИBЯЗKY. 006084 : J,XTA,KMDOWN-SM 006085 : ,U1A,OWN.KMД ПPИKPEПЛEH 006086 : C ПPOБA: HYЖEH ЛИ ЗAПPOC. 006087 : ,XTA,Y3.CTAPOE MWSC. 006088 : ,U1A,ENDMAC70.ЗAПPOC BЫДAH 006089 : C CПYCK ФЛAГA ИДYЩEГO OБMEHA: 006090 : C COPC1(J).NE.0 006091 : ,XTA,BIT48 006092 : J,ATX,COPC1-SM 006093 : C BЫДAЧA ЗAПPOCA И BЫXOД.0 006094 : J,ATX,WAITKMD-SM.ЖДEM 006095 : RL,VJM,REQUEST.ЗAПPOC KMД 006096 : C ПPOBEPKA: HE ПPИШЛA ЛИ ПPИBЯЗKA 006097 : R,VTM,PROGIM 006098 : ,MOD,237B 006099 : J,AAX,BIT29-SM 006100 : ,UZA,ENDMAC70.-HET 006101 : ,XTA,.CБPOC 006102 : J,ATX,TIMEX-SM.TAЙMEPA 006103 : ,UJ,ZEROPC 006104 : OWN:,BSS, 006105 : C KMД CBOЙ 006106 : J,XTA,DBUC-SM.ECTЬ ЛИ OБMEH 006107 : ,U1A,ENDMAC70.ECTЬ 006108 : PROGIM:,BSS, 006109 : C ИMИTAЦИЯ ЗAKAЗA OБPAБOTKИ 006110 : C ПPEPЫBAHИЙ ДЛЯ BЫДAЧИ ПOДBOДA 006111 : : ,24,2003B 006112 : RL,VTM,ENDMAC70 006113 : SENTRY:,BSS, 006114 : C...... ПOДПPOГPAMMA BXOДA B YЧACTOK 006115 : C CПEЦ.ДEЙCTBИЙ, T.E. ЗAПYCKA 006116 : C KAHAЛA ЗAДAЧИ OБMEHA. 006117 : C ПOPTИT R. OБPAЩEHИE ПO RL. 006118 : J,XTA,BIT29-SM 006119 : R,VJM,CLOMIR 006120 : J,XTA,BITDISK-SM 006121 : ,UJ,GIVTRA 006122 : C 006123 : DISINT:,ENTRY, 006124 : C++++++++++++++++++++++++++++++++++ 006125 : C PEAKЦИЯ HA ДИCKOBЫE ПPEPЫBAHИЯ 006126 : C++++++++++++++++++++++++++++++++++ 006127 : C 006128 : ,XTA,.CБPOC 006129 : J,ATX,TIMEX-SM.TAЙMEPA 006130 : C ПPOБA:HE ПPИBЯЗKA ЛИ. 006131 : J,XTA,KMDOWN-SM 006132 : R,VTM,RETDNT.BЫXOД ИЗ DISINT 006133 : ,UZA,LINK.A ЖДEM ЛИ ПPEP 006134 : C YCTAHOBKA ФЛAГA ASD(FLASD.EQ.0) 006135 : ,XTA, 006136 : J,ATX,FLASD-SM 006137 : C OБPAЗOBAHИE DINT - 006138 : C ШKAЛЫ ЗAKAЗAOB HA OБPAБOTKY 006139 : C ДИCKOBЫX ПPEPЫBAHИЙ 006140 : R,VJM,READ PC1 006141 : ,ATX,YINT 006142 : ,ASN,64+8 006143 : ,ATX,YINT1 006144 : C ПPOБA, HE БЫЛ ЛИ OБMEH. 006145 : J,XTA,COPC1-SM 006146 : ,U1A,NOTRI.HE БЫЛO OБMEHA 006147 : C ЗAПИCЬ PC1 И CПYCK ФЛAГA. 006148 : R,VJM,READR2 006149 : ,ASN,64-8 006150 : ,AOX,YINT1 006151 : J,ATX,COPC1-SM 006152 : R,VJM,ZEROPC 006153 : J,XTA,COPC1-SM 006154 : C COBПAЛ ЛИ ИДEHTИФИKATOP: 006155 : ,AAX,MBIDEN.БИT HECOBПAДEHИЯ 006156 : ,AEX,MBIDEN 006157 : ,UZA,BADID.HE COBПAЛ 006158 : C CБPOC ФЛAГA ACД (FLASD(J).NE.0) 006159 : J,ATX,FLASD-SM 006160 : NOTRI:,BSS,. 006161 : ,XTA,YINT 006162 : J,AAX,CODM-SM 006163 : ,ATX,YINT 006164 : J,ATX,DINT-SM 006165 : C YCTAHOBKA ФЛAГA ACД (FLASD(J).EQ.0) 006166 : C ПPИ OTCYTCTBИИ KOHЦA OБMEHA 006167 : C И OTCYTCTBИИ KOHЦA ПOДBOДA 006168 : J,AOX,FLASD-SM 006169 : J,ATX,FLASD-SM 006170 : C ЧИCTKA KOПИИ ДИCKOBOЙ MACKИ. 006171 : ,XTA,Y INT. 006172 : ,AEX,FULWOR 006173 : J,AAX,CODM-SM.KOПИЯ MACKИ 006174 : J,ATX,CODM-SM 006175 : RETDNT:,BSS, 006176 : C ЗAKPЫTИE ДИCKOBЫX ПPEPЫBAHИЙ, 006177 : C MACKИ ДИCKOB И BЫXOД. 006178 : RL,VTM,AFGVTR 006179 : ,UJ,SENTRY 006180 : BADID:,BSS, 006181 : C --- ИДEHTИФИKATOP HE COBПAЛ - 006182 : C - HAДO ЧИTATЬ ЗAГOЛOBOK. 006183 : C 006184 : C YCT.HЛAГA ИДYЩEГO OБMEHA: 006185 : C COPC(J)=0 006186 : J,ATX,COPC1-SM 006187 : C ПOCTAHOBKA B DBUC ПPИЗHAKA 006188 : C ЧTEHИЯ ЗAГOЛOBKA. 006189 : R,VTM,RHEA 006190 : ,ITA,R 006191 : J,AEX,DBUC-SM 006192 : ,AAX,C7 006193 : J,AEX,DBUC-SM 006194 : J,ATX,DBUC-SM 006195 : C BЫДAЧA ЧTEHИЯ ЗAГOЛOBKA. 006196 : R,VJM,READHEAD 006197 : C YCTAHOBKA MACKИ И BЫXOД. 006198 : R,VTM,RETURN 006199 : ,UJ,PERMIR/T 006200 : C 006201 : LINK:J,XTA,WAITKMD-SM 006202 : ,U1A,ZEROPC.ЖДEM ПPEP 006203 : ,XTA,KREF 006204 : J,EXT,20B.OTBЯЗKA 006205 : ,ATI, 006206 : ,UTC,RETURN-END DISC 006207 : SETMRM:R,VTM,END DISC 006208 : C 006209 : C *********************************** 006210 : C * TOT,KTO HAБЛЮДAЛ Y CEБЯ ЯBЛEHИE * 006211 : C * ЛOЖHOЙ ПPИBЯЗKИ KMД, HAПPИMEP, * 006212 : C * И.P.PЫБAKOB, ПYCTЬ BMECTO CЛEДY-* 006213 : C * ЮЩEЙ KOMAHДЫ BCTABИT TY, ЧTO B * 006214 : C * KOMMEHTAPИИ ПOCЛE HEE. * 006215 : C *********************************** 006216 : C 006217 : R,UJ,.OБЫЧHЫЙ CЛYЧAЙ 006218 : C ,UJ,SETMASK.OTKPЫTЬ MACKY (ДЛЯ ЛOBЛИ ЛOЖHЯKA) 006219 : C 006220 : C 006221 : C---------------------------------- 006222 : C 006223 : C...... БЛOKИ ЭЛEMEHTAPHЫX ДEЙCTBИЙ 006224 : C BCE БЛOKИ ЛИБO ПOCЛE ИCПOЛHEHИЯ 006225 : C ПEPEДAЮT YПPABЛEHИE HA END DISC, 006226 : C ЛИБO ЯBЛЯЮTCЯ ПOДПPOГPAMMAMИ C 006227 : C BOЗBPATOM ПO PEГИCTPY R ИЛИ RL. 006228 : C (ПO YMOЛЧAHИЮ - П/П C R). 006229 : REQUEST:,BSS,. 006230 : C...... ЗAПPOC KOHTPOЛЛEPA 006231 : C BOЗBPAT ПO RL 006232 : R,VTM,REQ1 006233 : C 006234 : C...... OTKPЫTИE MACKИ ГPП И 006235 : C YCTAHOBKA TAЙMEPA 006236 : PERMIR/T:,XTA,MAX TIME 006237 : J,ATX,TIMEX-SM 006238 : SETMASK:,BSS, 006239 : J,XTA,BIT29-SM 006240 : ,UJ,PERMIR 006241 : C 006242 : REQ1:,BSS, 006243 : ,XTA,BIT9 006244 : J,033,20B 006245 : ,ATI, 006246 : RL,UJ, 006247 : REFUSE:,BSS,. 006248 : C...... OTKAЗ OT KOHTPOЛЛEPA. 006249 : C ПPИ BXOДE ДOЛЖHO БЫTЬ ACC=0. 006250 : C BOЗBPAT ПO RL 006251 : J,ATX,KMD OWN-SM 006252 : R,VJM,CLODM 006253 : ,XTA,KREF. 006254 : J,033,20B 006255 : ,ATI,. 006256 : RL,UJ, 006257 : KREF:,LOG,50 006258 : ZERO PC:,BSS,. 006259 : KRER:,EQU,BIT4. 006260 : ,XTA,KRER. 006261 : J,033,20B. 006262 : ,ATI,. 006263 : R,UJ,. 006264 : CLODM:,24,2003B 006265 : C...... ЧИCTKA MACKИ ДИCKOB. 006266 : ,XTA, 006267 : SETDM:,BSS,. 006268 : C...... YCTAHOBKA MACKИ PC 1. 006269 : KSETDM:,EQU,BIT11 006270 : ,AOX,KSETDM.ФOPMИPOBKA KYCA 006271 : J,EXT,20B 006272 : ,ATI, 006273 : R,UJ, 006274 : ELECT:,BSS, 006275 : C...... BЫБOP MOДYЛЯ. BOЗBPAT - RL. 006276 : KI,XTA,BIT8 006277 : ,AOX,KELECT 006278 : J,EXT,20B 006279 : ,ATI, 006280 : RL,UJ, 006281 : KELECT:,LOG,2400 006282 : READ PC2:,BSS,. 006283 : C...... ЧTEHИE PC 2 И 9-16 PAЗPЯДOB PC 1 006284 : C OБOЩEHHЫЙ PC2 ПOMEЩAETCЯ B Y1. 006285 : C ПOPTИT RL, YINT1. 006286 : : ,24,2003B 006287 : RL,VJM,ELECT 006288 : R,MTJ,RL 006289 : R,VJM,READPC1 006290 : ,ATX,YINT1 006291 : R,VJM,READR2 006292 : ,ASN,64-16 006293 : ,AOX,YINT1 006294 : :,24,3 006295 : ,ASN,64+8 006296 : ,ATX,Y1.OБOБЩEHHЫЙ PC2 006297 : RL,UJ, 006298 : READR2:,BSS, 006299 : C...... ЧTEHИE PC2. 006300 : ,XTA,KRPC2 006301 : J,033,20B 006302 : ,ATI, 006303 : J,033,4000B 006304 : ,AOX,BIT40 006305 : R,UJ, 006306 : KRPC2:,LOG,31 006307 : READ PC1:,BSS, 006308 : C...... ЧTEHИE PC 1 006309 : ,XTA,KRPC1 006310 : J,EXT,20B. 006311 : ,ATI,. 006312 : J,EXT ,4000B 006313 : R,UJ, 006314 : KRPC1:,LOG,11 006315 : MOVE0:,BSS,. 006316 : C...... YCTAHOBKA HA 0-OЙ ЦИЛИHДP. 006317 : C ПOPTИT RL. 006318 : KMOVEO:,EQU,BIT1 006319 : : ,24,2003B 006320 : RL,VJM,ELECT 006321 : ,XTA,KMOVEO 006322 : J,EXT,20B. 006323 : ,ATI, 006324 : C OPГAHИЗAЦИЯ BЫДEPЖKИ BPEMEHИ. 006325 : C T = 50 MИKPOCEKYHД. 006326 : RL,VTM,1-15 006327 : :,24,3 006328 : ,UJ,WAITR 006329 : MOVE:,BSS, 006330 : C...... BЫДAЧA ДBИЖEHИЯ ПO ИHФOPMAЦИИ ИЗ 006331 : C CUORD(A). ПOPTЯTCЯ RL,YINT. 006332 : KMOVE:,EQU,BIT2 006333 : : ,24,2003B 006334 : RL,VJM,ELECT 006335 : ,XTA,KMOVE 006336 : J,EXT,20B 006337 : ,ATI, 006338 : A,XTA,CUORD 006339 : RL,VJM,SETPATH 006340 : : ,24,3 006341 : C OPГAHИЗAЦИЯ BЫДEPЖKИ BPEMEHИ 006342 : C T = 17 MИKPOCEKYHД. 006343 : RL,VTM,1-5.1-T/3.4MKCEK 006344 : WAITR:,BSS,. 006345 : C OЖИДAHИE OCBOБOЖДEHИЯ KMД 006346 : C RL=1-T/3.4MKCEK. T-HYЖHOE BPEMЯ. 006347 : ,ATI, 006348 : ,ATI, 006349 : RL,VLM,WAITR 006350 : R,UJ, 006351 : TRANSF:,BSS, 006352 : C...... ЗAПИCЬ, ЧTEHИE И PAЗMETKA. 006353 : C 006354 : C BEДEHИE CЧETЧИKA OБMEHOB 006355 : ,XTA,BIT37.EДИHИЦA CЧETЧИKA 006356 : ,ARX,COUNTTR 006357 : ,ATX,COUNTTR 006358 : J,XTA,DBUC-SM.KYC ГЛAB. OЧ. 006359 : C ЗAHECEHИE ИДEHTИФИKATOPA B Y3 006360 : ,ASN,64+7. 006361 : ,AAX,C3. 006362 : ,ASN,64-4. 006363 : ,ATX,Y3. 006364 : ,ASN,64-3 006365 : J,AEX,DBUC-SM 006366 : ,ATX,YINT1 006367 : C OПPEДEЛEHИE TИПA OБMEHA 006368 : ,AAX,C3. 006369 : ,ATI,P.TИП 006370 : C ЗAПYCK YBY 006371 : ,ITA,K.HOMEP 006372 : ,ASN,64-7.MOДYЛЯ B 006373 : ,AOX,YINT1.8-10 P.БYC 006374 : ,AAX,MYBY. 006375 : J,033,. 006376 : ,ATI, 006377 : RL,VTM,PUTCOM 006378 : J,XTA,TYPD-SM 006379 : ,UZA,ELECT.7MБ 006380 : J,XTA,BIT24-1 006381 : ,AAX,PRDK 006382 : ,U1A,ELECT.ДYБHA-29 006383 : C BЫДAЧA KOMAHДЫ B KMД 006384 : PUTCOM:P,XTA,KYCS.KOMAHДA 006385 : ,AOX,Y3.ИДEHTИФИKATOP 006386 : J,033,20B. 006387 : ,ATI,. 006388 : C BЫДAЧA HOMEPA ДOPOЖKИ 006389 : J,XTA,DBUC-SM 006390 : RL,VJM,SETPATH 006391 : ,XTA,. 006392 : J,ATX,COPC1-SM.ФЛAГ OБMEHA. 006393 : ,033, 006394 : RL,VTM,8. 006395 : CBS:,ATX,1. 006396 : RL,UTM,-1. 006397 : RL,VIM,CBS. 006398 : R,UJ,. 006399 : KYCS:,BSS, 006400 : C KOMAHДY OБMEHA. 006401 : ,LOG,4.ЗAПИCЬ 006402 : ,LOG,5.PAЗMETKA 006403 : ,LOG,3.ЧTEHИE 006404 : ,LOG,6.CPABHEHИE 006405 : READHEAD:,BSS, 006406 : C...... ЧTEHИE ЗAГOЛOBKA 006407 : KRHEAD:,EQU,C7 006408 : ,XTA,YBYRH 006409 : J,EXT, 006410 : ,XTA,KRHEAD 006411 : J,EXT,20B 006412 : ,ATI, 006413 : R,UJ, 006414 : YBYRH:,LOG,4440 0000 006415 : SETPATH:,BSS, 006416 : C...... BЫДAЧA B KMД HOMEPA ДOPOЖKИ. 006417 : C BOЗBPAT - RL. KYC ГЛ.OЧ. - YINT. 006418 : KSET12:,EQU,BIT8 006419 : ,ASN,64+25 006420 : ,AAX,C7777 006421 : ,ATX,YINT.N ДOPOЖKИ 006422 : J,ARX,TYPD-SM 006423 : ,U1A,SET11/1.ДИCK HA 7MГБAЙT 006424 : C HE ЗABOДCKOЙ ЛИ KMД 006425 : ,XTA,PRDK 006426 : J,AAX,BIT24-1 006427 : ,UZA,CAMKMD.-ДA 006428 : ,XTA,YINT 006429 : C BЫДAЧA CTAPШEГO PAЗPЯДA 006430 : ,AAX,BIT12 006431 : ,ASN,64+7 006432 : ,AOX,KSET12 006433 : SET12:,BSS, 006434 : J,033,20B 006435 : ,ATI, 006436 : SET11/1:,XTA,YINT.BЫДAЧA 006437 : ,AOX,BIT12.MЛAДШИX PAЗPЯ- 006438 : J,033,20B.ДOB ДOPOЖKИ 006439 : ,ATI, 006440 : RL,UJ, 006441 : CAMKMD:,BSS, 006442 : C BCTABKA ДГ B KYC BЫБOPKИ HMД 006443 : ,XTA,YINT 006444 : ,AAX,BIT12 006445 : ,ASN,64+2 006446 : KI,AOX,BIT8 006447 : ,AOX,KELECT 006448 : ,UJ,SET12 006449 : C...... KOHEЦ ЭЛEMEHTAPHЫX ДEЙCTBИЙ 006450 : C...... PAЗHЫE KOHCTAHTЫ 006451 : M41:,000, 006452 : ,Z00,-41. 006453 : C1/10:,LOG,4001 4631 4631 4632 006454 : GKYCREAD:,LOG,400002 006455 : MYBY:,LOG,1 4177 1600 006456 : MASKWL1:,LOG,3 7777 7737 0120 006457 : MADORSPB:,LOG,7777 7776 0000 0170 006458 : MAKOM:,LOG,400 007 006459 : MCAM:,LOG,04102 04102 04102 0 006460 : C TAБЛИЦA ПEPEKOДИPOBKИ KOMAHД. 006461 : TABKYC:,BSS, 006462 : ,OCT,35402072040.7604 3A10 006463 : ,OCT,77402072064.FE04 3A1A 006464 : ,OCT,35402072050.7604 3A14 006465 : ,OCT,77402072064.FE04 3A1A 006466 : C TAБЛИЦA БИTOB CTATYCA 006467 : TBCTATYC:,GOST,6H0000'121''20'.3,1,1,0 006468 : ,BSS, 006469 : C...... MACKИ ABAPИЙ 006470 : C MABT : , EQU ,BIT4 006471 : MCOMP:,LOG,2010 006472 : CREADY:,LOG,60 0001 006473 : C BNEWM : , EQU ,BIT11 .CПA 006474 : MNEWM : , LOG ,2 2000 .CПA + POФ 006475 : C B1PCK : , EQU ,BIT3 006476 : TT/TEK:,BSS, 006477 : C TEKCTЫ ДИAГHOCTИK TT 006478 : KERNOR:,ISO,6HMДHEГT 006479 : KEERA:,ISO,6HMD AД. 006480 : KEERC:,ISO,6HMD KC. 006481 : KEERYBY:,ISO,6HMD OШM 006482 : KERBM:,ISO,6HKAЛИБP 006483 : KERKMD:,ISO,6HMD OБ. 006484 : KERCMO:,ISO,6HMДCTOП 006485 : KERWR:,ISO,6HMД ЗAП 006486 : KERSS:,ISO,6HMD SSW 006487 : :,BSS, 006488 : C KOHCTAHTЫ TEЛETAЙПA 006489 : MU1/177 :,GOST,6H1'177'0000 006490 : MUNLET :,GOST,6H777777 006491 : CT30 :,ISO,6H30 000 006492 : CT0000 :,ISO,6H 0000 006493 : CTSH :,ISO,6H00 Ш00 006494 : CT000000:,ISO,6H000000 006495 : MPPC:,LOG,377 7417 006496 : C PAЗДYБЛИPOBAHHЫE ЯЧEЙKИ. 006497 : CNMOD:,BSS,NCHD 006498 : KMD OWN:,BSS,NCHD 006499 : CODM:,BSS,NCHD 006500 : COPC1:,BSS,NCHD 006501 : MACI:,BSS,NCHD 006502 : FLASD:,BSS,NCHD 006503 : DBUC:,BSS,NCHD. 006504 : DINT:,BSS,NCHD. 006505 : SKAL:,BSS,NCHD 006506 : MWSC:,BSS,NCHD 006507 : WAITKMD:,BSS,NCHD 006508 : C PAБOЧИE ЯЧEЙKИ 006509 : TTBUF:,BSS, 006510 : Y3:,BSS,1 006511 : Y4:,BSS,1 006512 : Y41:,LOG, 006513 : Y42:,LOG, 006514 : Y43:,LOG, 006515 : ,LOG, 006516 : ,END,. 006517 : CHVOP:,NAME, 006518 : BITS:,EQU,677B 006519 : BIT29:,EQU,723B 006520 : TRABUS:,LC,1 006521 : C V-OПEPAЦИЯ ДOCTYПA K БЫCTPЫM KПДП 006522 : ,XTA,S.ПPOЧИCTKA 006523 : 14,AOX,BITS.CBOEГO 006524 : 14,AEX,BITS.БИTA 006525 : ,AOX,W.ИЗBЛEЧEHИE ИЗ 006526 : ,ATX,S.OЧEPEДИ ЖДYЩИX 006527 : : ,24,2003B 006528 : ,XTA,W.OTKPЫTИE 006529 : ,AOX,TRABUS.ЖДYЩEГO 006530 : ,ATX,TRABUS.KAHAЛA 006531 : : ,24,3 006532 : ,XTA,W+1 006533 : ,ATX,W 006534 : ,XTA,.ГAШEHИE OЧEPEДИ 006535 : ,ATX,W+1.B XBOCTE 006536 : 13,UJ, 006537 : CHPOP:,ENTRY, 006538 : C P-OПEPAЦИЯ ДOCTYПA K БЫCTPЫM KПДП 006539 : C ECЛИ ПOЛYЧEH ДOCTYП, И15=0. 006540 : ,XTA,S 006541 : 14,AOX,BITS.ПPOBEPKA 006542 : 14,AEX,BITS.HAЛИЧИЯ PECYPCA 006543 : ,ACX,. 006544 : ,ASN,64+1.ECЛИ OH ECTЬ, 006545 : ,ATI,15.B И15 0,ИHAЧE 1 006546 : ,UZA,*1 006547 : ,XTA,W.KAK OЧEPEДЬ 006548 : ,UZA,*1.ПYCTA 006549 : 14,AEX,BITS.KEM ЗAHЯTA: 006550 : 13,UZA,.HAMИ 006551 : 15,UTM,1 006552 : *1:,BSS, 006553 : 14,XTA,BITS.ЗAHECEHИE БИTA 006554 : 15,AOX,S.B CEMAФOP 006555 : 15,ATX,S.ИЛИ OЧEPEДЬ 006556 : 13,UJ, 006557 : C 006558 : PS*VOP:,ENTRY, 006559 : C V-OПEPAЦИЯ ДOCTYПA K ЛИCTY 006560 : C CYMMATOP = БИT ДЛЯ TRABUS 006561 : C BHEШHИE ПPEPЫBAHИЯ PAЗPEШAЮTCЯ ! 006562 : ,AAX,QTOP 006563 : ,UZA,V/EXIT.H2 БЫЛO P 006564 : ,XTA, 006565 : ,ATX,QTOP 006566 : ,XTA,WQTOP 006567 : ,UZA,V/EXIT.OЧEPEДЬ ПYCTA 006568 : ,ANX, 006569 : ,ATI,11 006570 : :11,XTA,BITS 006571 : ,AEX,WQTOP 006572 : ,ATX,WQTOP 006573 : 11,XTA,BITS 006574 : :,24,2003B 006575 : ,AAX,=:14 006576 : ,UZA,TAPE 006577 : ,AOX,TRABUS 006578 : ,ATX,TRABUS 006579 : 13,MTJ,10 006580 : 11,XTA,BIT29-3 006581 : ,CALL,CLOMIR 006582 : 10,MTJ,13 006583 : ,UJ,V/EXIT 006584 : TAPE:14,MTJ,10 006585 : 11,MTJ,14 006586 : 14,UTM,-2 006587 : 15,MTJ,11 006588 : 15,CALL,TRA TAPE 006589 : 11,MTJ,15 006590 : 10,MTJ,14 006591 : V/EXIT:,24,3 006592 : 5,UJ, 006593 : PS*POP:,ENTRY, 006594 : C P-OПEPAЦИЯ ДOCTYПA K ЛИCTY 006595 : C CYMMATOP = БИT ДЛЯ TRABUS 006596 : C ECЛИ ДOCTYП ПOЛYЧEH, И11=0 006597 : 11,VTM, 006598 : ,ATX,WS 006599 : ,AOX,WQTOP.BЫЧИCTKA 006600 : ,AEX,WS. ИЗ 006601 : ,ATX,WQTOP.OЧEPEДИ 006602 : ,XTA,QTOP.CEMAФOP 006603 : ,UZA,SET.CBOБOДEH 006604 : ,AEX,WS 006605 : 5,UZA,.YЖE HAШ 006606 : 11,VTM,1 006607 : SET:,XTA,WS.ЗAHECEHИE 006608 : 11,AOX,QTOP.B CEMAФOP 006609 : 11,ATX,QTOP.ИЛИ B OЧEPEДЬ 006610 : 5,UJ, 006611 : QTOP:,LOG,.CEMAФOP 006612 : WQTOP:,LOG,.OЧEPEДЬ 006613 : WS :,LOG,. 006614 : S:,LOG, 006615 : W:,LOG, 006616 : :,LOG, 006617 : ,END, 006618 : *DSCRFI:,NAME, 006619 : ,BSS,5 006620 : ,OCT,4 006621 : ,OCT,4 006622 : ,OCT,.CEMAФOPЫ MOHOПO- 006623 : ,OCT,.ЛИЗAЦИИ KAHAЛOB 006624 : ,END, 006625 : RECMDT:,NAME, 006626 : C...... KAHAЛ OПOЗHABAHИЯ ПAKETOB. 006627 : C PAБOTAET HA 38P. TRABUS. 006628 : TASKON:,SUBP, 006629 : ENDMAC70:,SUBP, 006630 : DRIDENT:LC,BLOCK,(1),KYC 006631 : DAFSET:,SUBP, 006632 : *DISCS:LC,BLOCK,DNAM(16),(16) 006633 : SCALSTRA:LC,BLOCK,(44),SQTM(16) 006634 : *DSCRFI:,SUBP, 006635 : *DSCRFI:I,BLOCK,(3),Y,Y5 006636 : *ИПД: LC,BLOCK,(5),XNC,(10),LFATA 006637 : ,CONT, (10),MONOS 006638 : LF:,WEQ,LFATA 006639 : FATA:,LC,LF 006640 : NCH:,WEQ,XNC 006641 : *ИПK1:,LC,1 006642 : MONO:,EQU,*ИПK1+NCH 006643 : C77777:,LC,1 006644 : C7 :,LC,1 006645 : C5 :,LC,1 006646 : *CB:LC,BLOCK,(1),C17,(1),B36/31 006647 : *700:B,BLOCK,BIT48(2),BIT46(6),BIT40 006648 : ,CONT,(7),BIT32(16),BIT16(15) 006649 : ,CONT,BIT1 006650 : CMDREC:LC,BLOCK,SCMDR,SCREC,SMWR,WACNTS 006651 : ,CONT,(1),BUSY 006652 : *5:,BLOCK,R,A,W,P,U 006653 : ,XTA,BUSY 006654 : ,U1A,ENDMAC70.KAHAЛ ЗAHЯT 006655 : C YCTAHOBKA HOMEPA TEKYЩEГO MOДYЛЯ, 006656 : C COOTBETCTBYЮЩEГO HOMEPA HAПPABЛE- 006657 : C HИЯ И MACKИ ДЛЯ CЧETA ЗAДEPЖKИ. 006658 : ,XTA,CMOD 006659 : ,ATI,A.N MOДYЛЯ 006660 : ,ARX,BIT1 006661 : ,AAX,C17 006662 : ,ATX,CMOD 006663 : ,ITA,A 006664 : ,ASN,64+3 006665 : ,ATI,U.N HAПPABЛEHИЯ-3 006666 : ,XTA,MASK 006667 : ,ASN,64-3 006668 : ,U1A,*1 006669 : ,XTA,C7 006670 : *1:,ATX,MASK.TEKYЩAЯ MACKA 006671 : C HA БЛOKИPOBAHO ЛИ OПOЗHABAHИE ПO 006672 : C ДAHHOMY HAПPABЛEHИЮ ИЛИ MOДYЛЮ. 006673 : ,XTA,1 006674 : U,AAX,BIT46 006675 : ,U1A,ENDMAC70.БЛOK.ПO HAПPABЛ. 006676 : ,XTA,SCREC 006677 : A,AAX,BIT48 006678 : ,U1A,ENDMAC70.БЛOK.ПO MOДYЛЮ 006679 : C ПPOBEPKA ЗAДEPЖKИ ПO MOДYЛЮ 006680 : ,XTA,WACNTS 006681 : ,AAX,MASK 006682 : ,UZA,TO REC.HET ЗAДEPЖKИ 006683 : C CЧET ЗAДEPЖKИ 006684 : ,ARX,MASK 006685 : ,AEX,WACNTS 006686 : ,AAX,MASK 006687 : ,AEX,WACNTS 006688 : ,ATX,WACNTS 006689 : ,UJ,ENDMAC70 006690 : TO REC:,BSS, 006691 : C BЫДAЧA ЗAKAЗA KAHAЛA OПOЗHABAHИЯ 006692 : ,ITA,A 006693 : ,AAX,C7.N MOДYЛЯ 006694 : ,ASN,64-7.B HAПPABЛEHИИ 006695 : ,ARX,CW 006696 : U,VZM,*2.ЫЧET HOMEPA 006697 : ,ARX,BIT40 006698 : *2:,ATX,KYC 006699 : 9,VTM,DAFSET 006700 : ,ATX,BUSY.ФЛAГ ЗAHЯT. 006701 : C ФOPMИPOBKA KOП ПO COCTOЯHИЮ OM-HMД 006702 : ,XTA,SCMDR 006703 : A,AAX,BIT48 006704 : ,U1A,TASKON.COCT.='ГOTOB' 006705 : ,XTA,C5.ЗAMEHA ЗAKAЗA HA 006706 : ,AEX,KYC.OПPOC ГOTOBHOCTИ 006707 : ,ATX,KYC.ЧTEHИEM ИMEHИ 006708 : ,ATX,BUSY 006709 : ,UJ,TASKON 006710 : ENSPTR:,ENTRY, 006711 : C...... П/П KOHЦA ИCПOЛHEHИЯ ЗAKAЗA KAHAЛA 006712 : C OПOЗHABAHИЯ. OБPAЩEHИE ПO 5(R). 006713 : C HA BXOДE B A N MOДYЛЯ-30B. 006714 : ,ATX,BUSY.ИMЯ ПAKETA 006715 : R,UZA,.MOД.HE ГOTOB 006716 : ,XTA,SCMDR 006717 : A,AAX,BIT48 006718 : A,UTM,30B 006719 : ,U1A,RET.OH И БЫЛ ГOTOB 006720 : W,VTM,SMWR 006721 : C ПOИCK ПAKETA C TEM ЖE ИMEHEM. 006722 : U,VTM,1-16 006723 : LSP:U,XTA,DNAM+15 006724 : ,AEX,BUSY 006725 : ,UZA,OLD.HAШЛИ 006726 : U,VLM,LSP 006727 : C ПAKET HOBЫЙ, HO CBOБOДEH ЛИ 006728 : C ДAHHЫЙ MOДYЛЬ: 006729 : A,XTA,DNAM-30B 006730 : ,U1A,M***K.NET 006731 : C... ЗAHECEHИE БИTA MOДYЛЯ 006732 : C B ШKAЛY ПO PEГИCTPY W: 006733 : C SMWR - MOДYЛЬ ЖДET OПOЗHAHИЯ 006734 : C SCMDR - MOДYЛЬ ГOTOB 006735 : TO SCAL:A,XTA,BIT48-30B 006736 : W,AOX, 006737 : W,ATX, 006738 : RET:A,UTM,-30B 006739 : ,XTA, 006740 : ,ATX,BUSY 006741 : R,UJ, 006742 : OLD:,BSS, 006743 : C ПOЯBИЛCЯ CTAPЫЙ ПAKET 006744 : A,XTA,DNAM-30B 006745 : ,UZA,MOVE.MOДYЛЬ CBOБOДEH 006746 : C TAM ЛИ ПAKET,ГДE OH БЫЛ PAHЬШE: 006747 : U,AEX,DNAM+15 006748 : ,U1A,M***K.NET 006749 : DEBLOCK:,BSS, 006750 : C ПEPEBOД HMД B COCTOЯHИE 'ГOTOB' 006751 : W,VTM,SCMDR 006752 : ,UJ,TO SCAL 006753 : MOVE:,BSS, 006754 : ,XTA,SCMDR.ПOЯBИЛCЯ 006755 : U,AAX,BIT48+15.ДYБЛЬ 006756 : ,U1A,DEBLOCK.ПAKETA 006757 : C CTAPЫЙ ПAKET HA HOBOM CBOБOДHOM 006758 : C MOДYЛE. OПEPAЦИЯ ПEPECTAHOBKИ 006759 : U,UTM,30B+15 006760 : ,ITA,U.CTAPЫЙ HOMEP 006761 : ,ASN,64-30.MOДYЛЯ, 006762 : ,ATX,Y.ГДE БЫЛ ПAKET 006763 : ,ITA,A.HOBЫЙ HOMEP 006764 : ,ASN,64-30 006765 : ,AEX,Y 006766 : ,ATX,Y5 006767 : ,ITA,U 006768 : ,AEX,C77777 006769 : ,ATI,W 006770 : A,J+M,W 006771 : C ЗAПИCЬ ИMEHИ ПAKETA B TAБЛИЦY 006772 : ,XTA,BUSY 006773 : A,ATX,DNAM-30B 006774 : C ПEPECTAHOBKA ШKAЛ-OЧEPEДEЙ 006775 : U,XTA,SQTM-30B 006776 : A,ATX,SQTM-30B 006777 : ,XTA, 006778 : U,ATX,SQTM-30B 006779 : C ПEPECTAHOBKИ B ШKAЛAX-CEMAФOPAX 006780 : U,XTA,BIT48-30B 006781 : U,AOX,BIT32-30B 006782 : U,AOX,BIT16-30B 006783 : ,AAX,MONOS 006784 : ,ATX,BUSY 006785 : W,ASN,64+1 006786 : ,AOX,BUSY 006787 : ,AEX,MONOS 006788 : ,ATX,MONOS 006789 : P,VTM,NCH 006790 : LSCC:P,UTM,-1 006791 : P,XTA,MONO 006792 : U,AAX,BIT48-30B 006793 : ,ATX,BUSY 006794 : W,ASN,64+1 006795 : ,AOX,BUSY 006796 : P,AEX,MONO 006797 : P,ATX,MONO 006798 : P,V1M,LSCC 006799 : C KOPPEKЦИЯ TAБЛИЦЫ ФAЙЛOB(FATA). 006800 : P,VTM,LF 006801 : LCORF:P,UTM,-1 006802 : P,XTA,FATA 006803 : ,AEX,Y 006804 : ,AAX,B36/31 006805 : ,U1A,EN 006806 : ,XTA,Y5 006807 : P,AEX,FATA 006808 : P,ATX,FATA 006809 : EN:P,V1M,LCORF 006810 : ,UJ,DEBLOCK 006811 : M***K:,BSS, 006812 : C ПAKET ПOПAЛ HA ЗAHЯTЫЙ MOДYЛЬ 006813 : TTPRINT:,SUBP, 006814 : C ПOДГOTOBKA TT TEKCTA OПEPATOPY 006815 : ,ITA,A 006816 : ,ASN,64-42 006817 : ,AUX,CU1 006818 : ,AOX,CT1 006819 : ,ATX,TTEK 006820 : 14,MTJ,U 006821 : : ,24,2003B 006822 : C COБCTBEHHO ДИAГHOCTИKA 006823 : 14,VTM,TTEK 006824 : ,ITA,14 006825 : 14,VJM,TTPRINT 006826 : U,MTJ,14 006827 : ,UJ,RET 006828 : CU1:,GOST,6H000770 006829 : CT1:,ISO,6HMOД00 006830 : TTEK:,BSS,1 006831 : ,ISO,6HЗAHЯT'' 006832 : CW:,LOG,32 0010 4177 0127 006833 : MASK:,LOG, 006834 : CMOD:,LOG, 006835 : ,END, 006836 : *CB:,NAME,. 006837 : ,OCT,76 006838 : ,LOG,17 006839 : ,LOG,7777 7776 0000 0077 006840 : ,OCT,0000 77 006841 : ,OCT,7777 7777 7777 006842 : ,LOG,17776 006843 : C..... K-TЫ ПEPEBOДA BPEMEHИ 006844 : ,REAL,36000. 006845 : ,REAL,3600. 006846 : ,REAL,600. 006847 : ,REAL,60. 006848 : ,REAL,10. 006849 : ,REAL,1. 006850 : ,REAL,50. 006851 : ,INT,0 006852 : ,END, 006853 : MDRECOGN:,NAME,.26.06.74 006854 : C 006855 : C====== STATISTICS FOR INGENEERS 006856 : C====== RESIDENT OF MD-RECOGNIZING 006857 : C 006858 : NR/MD:,SUBP,. 006859 : C****** OПPOC ГOTOBHOCTИ MOДYЛEЙ MД, 006860 : C 006861 : C...... ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ: 006862 : T:,EQU,4. 006863 : RJ:,EQU,6. 006864 : R:,EQU,7. 006865 : C 006866 : * И П Д :LC,BLOCK,(1),XNFM(5),XNCM 006867 : NFM:,WEQ,XNFM 006868 : NCM:,WEQ,XNCM 006869 : Ш/FULL:,EQU,*ИПД+11B 006870 : Ш/ПOTOK:,EQU,*ИПД+12B 006871 : SMASAV:LC,BLOCK,SAVAC 006872 : C MDREC:LC,BLOCK,SC MDR,SC REC,NMOD 006873 : ,CONT,WA CNTS,CEKMET 006874 : *YCЫ:LC,BLOCK,(1),RDSCAL 006875 : *SWCMN:LC,BLOCK,SBUSYFLG,SWSCAL 006876 : BPEMEHA:LC,BLOCK,T1(4) 006877 : C37:,LC,1 006878 : B30/16:LC,BLOCK,MSHI 006879 : B16/1:,LC,1 006880 : C7:,LC,1. 006881 : C177:LC,BLOCK,MASTA 006882 : *STATBUF:LC,BLOCK,MBLO,MOUT 006883 : STATIST:,SUBP,. 006884 : NRESCALL:,SUBP,. 006885 : NR/STAT:,SUBP, 006886 : ABTIME:,LC, 006887 : *530:B,BLOCK,STAT IS,NEWTIME 006888 : *TLWORK:LC,BLOCK,OLDTIME 006889 : *CB:LC,BLOCK,(13),INT0 006890 : BLSTOUT:LC,BLOCK,TSEC 006891 : STATUSMT:LC,BLOCK,MBUS,OLD(4),NEW(4) 006892 : ,CONT,W05741(4) 006893 : SCALES:LC,BLOCK,(4),SCALCLTA 006894 : TRA TAPE:,SUBP, 006895 : CLANEWTA:,SUBP, 006896 : *677:B,BLOCK,BITS 006897 : ,CONT,B48,B47,B46,B45,B44,B43,B42,B41 006898 : ,CONT,B40,B39,B38,B37,B36,B35,B34,B33 006899 : ,CONT,B32,B31,B30,B29,B28,B27,B26,B25 006900 : ,CONT,B24,B23,B22,B21,B20,B19,B18,B17 006901 : ,CONT,B16,B15,B14,B13,B12,B11,B10,B9 006902 : ,CONT,B8,B7,B6,B5,B4,B3,B2,B1 006903 : C------------- 006904 : ,XTA,MBLO. 006905 : ,UZA,NO STA.CTAT.БЛOKИP. 006906 : ,XTA,MOUT. 006907 : ,AOX,TSEC. 006908 : ,UZA,NO STAT. 006909 : T,CALL,STATOUT. 006910 : NO STAT:,XTA,CEKMET 006911 : ,UZA,NO STA 006912 : ,XTA,WCNT 006913 : ,ARX,B1. 006914 : ,AAX,MA STA 006915 : ,ATX,WCNT. 006916 : ,UIA,NO STA. 006917 : R,VTM,-3 006918 : *L1:R,XTA,T1+3 006919 : R,ATX,*T1+3 006920 : R,VLM,*L1 006921 : 13,VTM,1-NCM 006922 : 14,VTM,NFM 006923 : T,VTM, 006924 : Ф MM:14,XTA,*YCЫ. 006925 : ,ATI,12 006926 : ,AAX,M SHI 006927 : ,UZA,ФMM1 006928 : ,XTA,Ш/ПOTOK 006929 : 14,AAX,BITS 006930 : ,UZA,HEП 1 006931 : ,UTC,2 006932 : HEП 1:R,VTM, 006933 : ,NTR,6 006934 : R,VZM,HEП 2 006935 : ,UTC,37B 006936 : HEП 2:T,UTM,1 006937 : 12,VZM,ФMM1.ИПЗ OTKAЧAHO. 006938 : 12,XTA,-1 006939 : R,A+X,*T1 006940 : R,ATX,*T1 006941 : 12,XTA,110B 006942 : R,A+X,*T2 006943 : R,ATX,*T2 006944 : ФMM1:14,UTM,1 006945 : 13,VLM,ФMM 006946 : R,VTM,-1 006947 : 10,VTM, 006948 : *L2:10,XTA,*T1 006949 : ,NTR,3 006950 : ,A+X,INT0 006951 : ,ASN,64-20 006952 : R,ATX,*T1+1 006953 : 10,XTA,*T2 006954 : ,A+X,INT0 006955 : R,AOX,*T1+1 006956 : ,ASN,64-8 006957 : R,ATX,*T1+1 006958 : 10,UTM,2 006959 : R,VLM,*L2 006960 : ,XTA,RDSCAL 006961 : ,AOX,SWSCAL 006962 : ,WTC,SBUSYFLG 006963 : ,AOX,BITS 006964 : ,ATX,*T3 006965 : ,ITA,T 006966 : ,AAX,C37 006967 : ,UZA,*1 006968 : ,AOX,*T1 006969 : *1:,BSS, 006970 : ,ATX,*T1 006971 : ,ITA,T 006972 : ,ASN,64+5 006973 : ,UZA,*2 006974 : ,AOX,*T2 006975 : *2:,BSS, 006976 : ,ATX,*T2 006977 : ,XTA,MИHMET 006978 : : ,24,2003B 006979 : ,UJ,STATIST 006980 : MИHMET:3,Z00,*T1 006981 : 1,Z03,NO STA. 006982 : NO STA:,BSS,. 006983 : 15,VTM,*T1 006984 : 14,VTM,-3 006985 : :,24,2003B 006986 : ,XTA, 006987 : :14,XTS,NEW+3 006988 : 14,AEX,OLD+3 006989 : 15,AOX, 006990 : 14,VLM,*-1 006991 : ,ASN,64+8 006992 : ,AAX,B16/1 006993 : ,AOX,NMOD 006994 : ,U1A,CALL 006995 : ,XTA,2.HA TP-2 006996 : ,AAX,STAT IS.БИT BEДEHИЯ CTAT 006997 : ,AOX,OLDTIME. ECTЬ KAHAЛЫ? 006998 : ,UZA,RET.- HE BEДEM 006999 : ,NTR,2 007000 : ,XTA,ABTIME 007001 : ,A-X,NEWTIME 007002 : ,U1A,RET 007003 : ,XTA,I/STAT 007004 : ,UJ,NRESCALL 007005 : I/STAT:,Z00,NR/STAT 007006 : ,Z00,RJ 007007 : C 007008 : CALL:,BSS, 007009 : ,XTA,IW CALL. 007010 : ,UJ,NRESCALL. 007011 : IW CALL:,Z00,NR/MD. 007012 : ,Z00,RJ 007013 : MD/RET:,ENTRY,. 007014 : RET:,BSS, 007015 : :,24,2003B 007016 : ,XTA, 007017 : ,ATX,MBUS 007018 : ,ATX,CEKMET 007019 : ,UJ,CLANEWTA 007020 : C 007021 : C**** OTKPЫTИE ЗAДAЧ, ЖДYЩИX MЛ/MД 007022 : C 007023 : OPENWAIT:,ENTRY, 007024 : ,XTA,B18 007025 : ,CALL,K COCEДY 007026 : ,XTA,SCALCLTA 007027 : ,AOX,RDSCAL 007028 : ,ATX,RDSCAL 007029 : ,XTA, 007030 : ,ATX,SCALCLTA 007031 : :,24,3 007032 : 5,UJ, 007033 : C 007034 : C**** AKTИBИЗAЦИЯ ЗAKAЗOB HA OБMEH C MЛ, 007035 : C ЗAДEPЖAHHЫX ПO HEГOTOBHOCTИ MФ. 007036 : C 007037 : TOЛЧOK:,ENTRY, 007038 : :,24,2003B 007039 : 2,XTA,B8 007040 : 1,AOX,W05741-3 007041 : 1,ATX,W05741-3 007042 : 1,MTJ,14 007043 : 5,MTJ,15 007044 : ,UJ,TRA TAPE 007045 : C-------- 007046 : WCNT:,LOG,7. 007047 : C-------- 007048 : *T1:,BSS,1 007049 : *T2:,BSS,1 007050 : *T3:,BSS,2 007051 : ,END,. 007052 : NRSMDREC:,NAME,. 007053 : C 007054 : C====== NONRESIDENT OF MD-RECOGNIZING 007055 : C (BASE-REGISTER : RJ) 007056 : C 007057 : C BOCCTAHOBЛEHИE KATAЛOГA APXИBA, 007058 : C ПOДKЛЮЧEHИE CПEЦ-ФAЙЛOB И 007059 : C SCRATCH-OБЛACTEЙ B PAБOTY. 007060 : C 007061 : C...... ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ: 007062 : NM:,EQU,3. 007063 : T:,EQU,4. 007064 : MT:,EQU,T. 007065 : RR:,EQU,5. 007066 : RJ:,EQU,6. 007067 : R:,EQU,7. 007068 : L:,EQU,R. 007069 : L1:,EQU,8. 007070 : C:,EQU,L1. 007071 : E:,EQU,9. 007072 : EC:,EQU,10. 007073 : A:,EQU,11. 007074 : A1:,EQU,A. 007075 : A2:,EQU,12. 007076 : C 007077 : SMASAV:LC,BLOCK,SAVAC 007078 : TPHYS:,LC,1. 007079 : * И П Д :LC,BLOCK,XNF,XNFM(7) 007080 : ,CONT,Ш/CЛYЖ,Ш/FULL 007081 : ,CONT,(6) 007082 : ,CONT,LFATA,LENTDIS 007083 : ,CONT,(9),MONOS 007084 : ,CONT,NЭKCT 007085 : ,CONT,(8) 007086 : ,CONT,(10) 007087 : ,CONT,SCMAMБ 007088 : *DISCS:LC,BLOCK,DNAM(32),ШMOД,ШФЛД 007089 : TSA:,EQU,425B.9 CЛOB 007090 : FATA:,LC,1 007091 : DISPBASE:LC,BLOCK,(4),DISPFIL,DISPNAM 007092 : ,CONT,NEVM.B 48-47 P. 007093 : NFRITR:,LC,1 007094 : FLMAMБ:,LC,1 007095 : TABDRU:LC,BLOCK,(16),DRUMOD 007096 : *ПДИCK:LC,BLOCK,*KOMOД 007097 : NUMFILES:,EQU,LFATA 007098 : LTF1:,WEQ,NUMFILES. 007099 : LTF:,EQU,LTF1-1. 007100 : *TDIS:,LC,.TAБЛ.ЭKCTEHTOB 007101 : LNTDIS:,WEQ,LENTDIS 007102 : TABLEMT:LC,BLOCK,(48),T2MT(48),TANAME(48) 007103 : N FIL:,EQU,T2MT. 007104 : STATUSMT:LC,BLOCK,(1),OLD(4),NEW(4),W05741(19),ШHГ(4),MISTERX 007105 : C MDREC:LC,BLOCK,SC MDR,SC REC,SMWR 007106 : ,CONT,WA CNTS,CEKMET 007107 : REWINDSC:LC,BLOCK,(3),ПEPEXBAT(4) 007108 : SCALSTRA:LC,BLOCK,(12),SJMT 007109 : C--- 007110 : *677:B,BLOCK,BITS 007111 : ,CONT,B48,B47,B46,B45,B44,B43,B42,B41 007112 : ,CONT,B40,B39,B38,B37,B36,B35,B34,B33 007113 : ,CONT,B32,B31,B30,B29,B28,B27,B26,B25 007114 : ,CONT,B24,B23,B22,B21,B20,B19,B18,B17 007115 : ,CONT,B16,B15,B14,B13,B12,B11,B10,B9 007116 : ,CONT,B8,B7,B6,B5,B4,B3,B2,B1 007117 : C--- 007118 : B SFI:,EQU,B40. 007119 : B WRIT:,EQU,B30.BIT30 007120 : B NRD:,EQU,B29. 007121 : C20:,EQU,B5 007122 : *CB:LC,BLOCK,(1),C17 007123 : C7777:,LC,1 007124 : C76000:,LC,1 007125 : C7:,LC,1. 007126 : C77777:,LC,1. 007127 : B24/1:,LC,1 007128 : B16/1:,LC,1 007129 : C3:,LC,1 007130 : FULWOR:,LC,1. 007131 : *0:,BLOCK,NZON,BOS,DAT,VER 007132 : C 007133 : C...... SUPERVISOR - SUBPROGRAMMS 007134 : C 007135 : STATIST:,SUBP,. 007136 : NRESCALL:,SUBP,. 007137 : NRES OFF:,SUBP,. 007138 : BC1700:,SUBP, 007139 : OPENWAIT:,SUBP, 007140 : TOЛЧOK:,SUBP, 007141 : TYPEMT:,SUBP, 007142 : BLK*MT:,EQU,TYPEMT+7 007143 : B24/9:,EQU,=7777 7400 007144 : C 007145 : C...... CONNECTION WITH 'MDRECOGN' 007146 : C 007147 : NR/MD:,SUBP,. 007148 : MD/RET:,SUBP,. 007149 : WKFI:I,BLOCK,NM/KYC,P/KYC,KYC 007150 : SCDICH:,SUBP, 007151 : TYPD:,EQU,SCDICH+3 007152 : C 007153 : C PACПPEДEЛEHИE PAБOЧEГO ЛИCTA 007154 : C ДЛЯ ЗAXBATA ЭKCTEHTOB ДЛЯ ROLLIN 007155 : C 007156 : *0:,BLOCK,(8),KTRSPT,MMTA,CFWORK 007157 : ,CONT,FWORK,CURRF,NSCRCF 007158 : ,CONT,CTNE,OLDCTNE,NSTRING, 007159 : ,CONT,MASK,JCTNE,DSTN 007160 : C OПИCAHИE CEKTOPA ROLLOUT/ROLLIN 007161 : *1400:B,BLOCK,(1) 007162 : ,CONT,NTASK,CRT,(2),INABEG(7) 007163 : ,CONT,OLDSTN,COTEX 007164 : ////:,EQU,COTEX+LNTDIS 007165 : ////:I,BLOCK,(2),COTSAR 007166 : ,CONT,REFOLD,NAMEDSA 007167 : SCALES:LC,BLOCK,(1),MRDSCALE 007168 : ДOПYПP:LC,BLOCK,(10),NTRFRO 007169 : TRAPHY:,SUBP, 007170 : C 007171 : BASE:,BSS,. 007172 : RJ,REL,*. 007173 : ,XTA,0 007174 : ,ATX,NPAG. 007175 : C YCTAHOBKA N MOДYЛЯ B PAЗHЫX BИДAX 007176 : C И ЯЧEЙKИ TИПA ДИCKOB(29 ИЛИ 7) 007177 : ,XTA,SMWR.ПOЛYЧEHИE HOMEPA 007178 : ,UZA,CHTAPES 007179 : ,ANX,B24/1.OЧEPEДHOГO HMД 007180 : ,ATI,NM 007181 : ,ARX,C30 007182 : ,ASN,64-30 007183 : ,ATX,NM/FATA 007184 : NM,XTA,B48.ЧИCTKA OЧEPEДИ- 007185 : ,AEX,SMWR.-ШKAЛЫ HMД, ЖДY- 007186 : ,ATX,SMWR.ЩИX OПOЗHABAHИЯ 007187 : ,ITA,NM 007188 : : ,24,3 007189 : ,ASN,64-7 007190 : ,ATX,NM/KYC.ДЛЯ 3-ГO ГOTOBO 007191 : ,AAX,B11 007192 : ,UZA,*1.3-E HAПPABЛEHИE 007193 : ,ARX,NM/KYC.KOPPEKTИPOBKA 007194 : ,ATX,NM/KYC.ДЛЯ 4-ГO 007195 : ,UTC,1 007196 : *1:,XTA,TYPD.TИП ДИCKOB 007197 : ,AEX,B48.ДЛЯ 29 ПOCTABИM 007198 : ,ASN,64+5.CДBИГ HA 0 PAЗ- 007199 : ,AOX,B48.PЯДOB, ИHAЧE HA 007200 : ,ATX,TYPDIN.2 PAЗPЯДA BПPABO 007201 : ,NTR,3 007202 : R,VJM,GIV PAG.ЗA ЛИCTOM 007203 : C......... ЧTEHИE, AHAЛИЗ KATAЛOГA И ДYБЛЯ 007204 : C BOCCTAHOBЛEHИE TOГO ИЛИ ДPYГOГO 007205 : T,VTM,X C1.AHAЛИЗ 1-ГO 007206 : RR,VJM,RE AN.ЛИCTA KATAЛOГA 007207 : E,MTJ,EC. 007208 : EC,VZM,RE CAT0.OH-XOPOШИЙ 007209 : E,UTM,-1. 007210 : E,VZM,RE COPY.OH-ПЛOXOЙ 007211 : RE CAT0:T,VTM,X C0.AHAЛИЗ 0-ГO 007212 : RR,VJM,RE AN.ЛИCTA KATAЛOГA 007213 : EC,VIM,AN ERC.1-ЫЙ HEXOP. 007214 : E,VIM,AN ERC.0-OЙ HEXOP. 007215 : L,VTM,1-4.CPABHEHИE 007216 : CH EQC:L,XTA,XAP0+3.XAPAKTEPИCTИK 007217 : L,AEX,XAP1+3. 007218 : ,UIA,ПЛOX ПAK.OHИ-HE COBП. 007219 : L,VLM,CH EQC. 007220 : ,UJ,CATAL.KATAЛOГ-XOP. 007221 : AN ERC:E,VZM,RE COPY.YCИЛEHИE 007222 : E,MTJ,EC.OШИБKИ 007223 : RE COPY:,BSS,. 007224 : C......... HEOБXOДИMA ПEPEПИCЬ. 007225 : C ПPOBEPKA ДYБЛЯ KATAЛOГA 007226 : T,VTM,X D1.AHAЛИЗ 1-ГO 007227 : RR,VJM,RE AN.ЛИCTA ДYБЛЯ 007228 : E,VIM,AN ERD.OH-ПЛOXOЙ 007229 : T,VTM,X D0.AHAЛИЗ 0-ГO 007230 : RR,VJM,RE AN.ЛИCTA ДYБЛЯ 007231 : E,VIM,AN ERD.OH-ПЛOXOЙ 007232 : L,VTM,1-4.CPABHEHИE 007233 : CH EQD:L,XTA,XAP1+3.XAPAKTEPИCTИK 007234 : L,AEX,XAP2+3.ДYБЛЯ 007235 : E,VTM,1. 007236 : ,UIA,AN ERD.OHИ-HE COBП. 007237 : L,VLM,CH EQD. 007238 : E,VTM,0. 007239 : AN ERD:,BSS,. 007240 : C......... AHAЛИЗ: OTKYДA-KYДA ПИCATЬ 007241 : T,VTM,X CD. 007242 : EC,UTM,-1. 007243 : EC,VIM,AE 1. 007244 : E,VIM,ПЛOX ПAK.BCE-ПЛOXИE 007245 : TRA DC:T,VTM,X DC.HA ПEPEПИCЬ 007246 : ,UJ,TRANS.ДYБЛЬ-KATAЛOГ 007247 : AE 1:E,VIM,TRANS.KATAЛOГ-ДYБЛЬ 007248 : C ЧTO ПOЗЖE ЗAПИCAHO 007249 : ,XTA,DATD. 007250 : ,A-X,DATC. 007251 : ,UIA,TRANS.KATAЛOГ-ДYБЛЬ 007252 : ,ASN,64-7. 007253 : ,UIA,TRA DC.ДYБЛЬ-KATAЛOГ 007254 : C ДATЫ COBПAЛИ , ПPOBEPИM BEPCИИ 007255 : ,XTA,VERD. 007256 : ,A-X,VERC. 007257 : ,UIA,TRANS.KATAЛOГ-ДYБЛЬ 007258 : ,ASN,64-7. 007259 : ,UIA,TRA DC.ДYБЛЬ-KATAЛOГ 007260 : ,UJ,CTPA ПAK.OЧEHЬ CTPAHHO 007261 : RE AN:,BSS,. 007262 : C--------- ЧTEHИE ,AHAЛИЗ, CPABHEHИE(ЗAПИCЬ) 007263 : T,XTA,. 007264 : ,ARX,ADR P.AДPEC XAP-KИ 007265 : ,ATI,A1. HA ЛИCTE 007266 : ,ASN,64+24. 007267 : ,ATI,A2. B БYФEPE 007268 : RJ,UTC,-BASE. 007269 : A2,UTM,. 007270 : ,ASN,64-24. 007271 : ,AUX,MA AT. 007272 : ,ARX,KYC ЧT.*** 007273 : R,VJM,EXCH.ЧTEHИE ЛИCTA 007274 : E,VTM,1 007275 : RR,UZA,.HE ЧИTAETCЯ 007276 : ,ATX,NAMEDI 007277 : C ПEPEПИCЬ XAPAKTEPИCTИKИ 007278 : L,VTM,1-4. 007279 : RA 1:L,UTC,3. 007280 : A1,XTA,. 007281 : L,UTC,3. 007282 : A2,ATX,. 007283 : L,ATX,SAV+3. 007284 : L,VLM,RA 1.... 007285 : C AHAЛИЗ XAPAKTEPИCTИKИ 007286 : A2,XTA,NZON. 007287 : RR,UZA,.HET TPEKOB 007288 : ,ASN,64+10. 007289 : RR,UIA,.MHOГO TPEKOB 007290 : A2,XTA,NZON. 007291 : ,ARX,CHE Z. 007292 : RR,UZA,.MHOГO TPEKOB 007293 : A2,XTA,BOS. 007294 : ,AAX,CHE ISO.ИMЯ БOCCA 007295 : RR,UIA,.HE B ISO 007296 : C ПEPEBOД ДATЫ C KOHTPOЛEM 007297 : A2,XTA,DAT 007298 : ,AEX,=6H000000 007299 : ,ATX,RDAT 007300 : ,ARX,=6H'6''6''6''6''6''6' 007301 : ,AOX,RDAT 007302 : ,AAX,=6H'360''360''360''360''360''360' 007303 : RR,U1A,.HE BCE ЦИФPЫ 007304 : ,XTA,RDAT 007305 : ,ASN,64-32 007306 : ,ATX,RDAT.YY 007307 : ,YTA,. DDMM 007308 : ,ASN,64+16 007309 : A2,ATX,DAT. DD 007310 : ,YTA,.MM 007311 : ,ASN,64+16. MM 007312 : A2,AEX,DAT . MMDD 007313 : ,AEX,RDAT .YYMMDD 007314 : ,APX,=6H'17''17''17''17''17''17' 007315 : ,ASN,64+24 007316 : A2,ATX,DAT.ДATA-ГOTOBA 007317 : C CPABHEHИE (ЗAПИCЬ) 007318 : E,VTM,0. 007319 : T,XTA,. 007320 : ,ASN,64-24. 007321 : ,AUX,MA AT. 007322 : RR,UZA,.HE ЗAKAЗAHO 007323 : E,VTM,2 007324 : ,ARX,KYC ЗП. 007325 : ,ATX,KYC. 007326 : T,XTA,. 007327 : ,ASN,64-1. 007328 : ,AAX,B18. 007329 : ,AOX,KYC. 007330 : R,VJM,EXCH. 007331 : RR,UZA,.ПЛOXO 007332 : E,VTM,0. 007333 : T,XTA,. 007334 : ,AAX,=300000. 007335 : RR,UZA,.HE CPABHEHИE 007336 : L,VTM,1-4. 007337 : RA3:L,UTC,3. 007338 : A1,XTA,. 007339 : L,AEX,SAV+3. 007340 : E,VTM,2 007341 : RR,U1A,.ПЛOXO 007342 : L,VLM,RA3. 007343 : E,VTM,0. 007344 : RR,UJ,. - BOЗBPAT 007345 : TRANS:,BSS,. 007346 : C--------- BOCCTAHOBЛ. 2-X ЭKЗ. KATAЛOГA 007347 : L1,VTM,1-2 007348 : T,UTM,-1. 007349 : TR 1:T,UTM,1. 007350 : NM,XTA,DNAM 007351 : ,U1A,RET 007352 : ,XTA,NAMEDI 007353 : NM,ATX,DNAM 007354 : RR,VJM,RE AN. 007355 : ,XTA, 007356 : NM,ATX,DNAM 007357 : E,VIM,HET ЗП. 007358 : L1,VLM,TR 1. 007359 : CATAL:,BSS,. 007360 : C 007361 : C--------- OБPAБOTKA KATAЛOГA ПAKETA 007362 : C ЗABEДEHИE CПEЦ-ФAЙЛOB И 007363 : C PAБOЧИX OБЛACTEЙ. 007364 : ,WTC,ADR P.HAЧAЛO 007365 : A,VTM,4.KATAЛOГA 007366 : E,VTM,0.HET CПEЦ.ФAЙЛA 007367 : EC,VTM,0.HET PAБ.OБЛACTИ 007368 : L CAT:A,XTA,.ИMЯ ФAЙЛA 007369 : ,UZA,FINISH.KOHEЦ KATAЛOГA 007370 : A,XTA,1.XAP-KA ФAЙЛA 007371 : ,AAX,B SFI. 007372 : L,VTM,-LTF. 007373 : ,UIA,SP FILE.CПEЦ.ФAЙЛ 007374 : NEX FILE:A,XTA,1. - HET 007375 : ,ASN,64+42 007376 : ,ATI,14.ПEPEAДPECAЦИЯ 007377 : 14,J+M,A.HA CЛEД.ФAЙЛ 007378 : A,UTM,2. 007379 : ,ITA,A.ПPOБA: 007380 : ,AEX,ADR P.HE BЫXOДИM ЛИ 007381 : ,ASN,64+10.HA CЛEД.ЛИCT 007382 : ,UZA,L CAT. - HET 007383 : A,UTM,-1024. 007384 : R,VTM,L CAT 007385 : ,XTA,B26 007386 : ,ARX,KYC ЧT.2-ГO ЛИCTA 007387 : ,UJ,EXCH.KATAЛOГA 007388 : SP FILE:,BSS,. 007389 : ,XTA,NEVM 007390 : ,ASN,64+46 007391 : ,ATX,T NБ.HOMEP ЭBM 007392 : ,UZA,SEARPLAC.MONO-KMD 007393 : C... ПPOБA - CBOЙ ЛИ ФAЙЛ : 007394 : C HEOБXOДИMO COBПAДEHИE HOMEPA 007395 : C MAШИHЫ C TPEMЯ ПOCЛEДHИMИ БИTAMИ 007396 : C ИMEHИ XOЗЯИHA ФAЙЛA (MASTER) 007397 : A,XTA, 007398 : ,ASN,64+12 007399 : ,UZA,CHOWN.SCRATCH 007400 : MT,VTM,FNAMES 007401 : SNF:MT,XTA, 007402 : ,UZA,SEARPLAC.OБЩAЯ 007403 : A,AEX, 007404 : ,UZA,CHOWN.HE OБЩAЯ 007405 : MT,VLM,SNF 007406 : CHOWN:,XTA,TNБ.N ЭBM 007407 : A,AEX,2.MASTER 007408 : ,AAX,C7 007409 : ,U1A,NEX FILE.ЧYЖOЙ ФAЙЛ 007410 : SEARPLAC:,BSS, 007411 : L,XTA,FATA+LTF.ПOИCK MECTA 007412 : ,UZA,IS FATA. - ECTЬ 007413 : L,VLM,SEARPLAC 007414 : ,UJ,NO PHYS. - HET 007415 : IS FATA:L,UTM,LTF+1.HOMHP ФAЙЛA 007416 : A,XTA,.ПPOБA: 007417 : ,ASN,64+12.SCRATCH/MOДEЛЬ 007418 : ,UZA,SCRATCH. - SCRATCH 007419 : C......... OTOБPAЖEHИE CПEЦ-ФAЙЛA 007420 : C B TAБЛИЦЫ И ШKAЛЫ 007421 : ,XTA,ШMOД.BOЗM.MOДEЛИ 007422 : ,UZA,NO PHYS. - ИX HET 007423 : ,ANX,C77777.HOMEP MЛ 007424 : ,ATI,MT.MOДEЛИ 007425 : C... M.Б. ЭTA MOДEЛЬ YЖE ECTЬ 007426 : MT,MTJ,C 007427 : CH/NAME:C,VZM,OПPИXOД 007428 : C,UTM,-1 007429 : C,XTA,TANAME 007430 : A,AEX, 007431 : ,UIA,CH/NAME 007432 : C,MTJ,MT 007433 : C,,, OПPИXOДYEM MOДEЛЬ 007434 : C,WTC,NFIL 007435 : L,VTM, 007436 : L,XTA,FATA-1 007437 : ,AAX,BNRD 007438 : ,UZA,NO PHYS 007439 : OПPИXOД:,BSS, 007440 : MT,XTA,B48. 007441 : ,AEX,FULWOR.ИCKЛЮЧEHИE 007442 : ,AAX,ШMOД.ИЗ BOЗM.MOДEЛEЙ 007443 : ,ATX,ШMOД. 007444 : ,ITA,L.HOMEP ФAЙЛA 007445 : MT,ATX,N FIL. B T2MT 007446 : : ,24,2003B. 007447 : MT,XTA,B48.ФИЗ.ЛEHTA 007448 : ,AOX,ШФЛД.MOД. HA MД 007449 : ,ATX,ШФЛД. 007450 : A,XTA,.ИMЯ ФAЙЛA 007451 : MT,ATX,TANAME.B ИMЯ ЛEHTЫ 007452 : C...... ПEЧATЬ O ФAЙЛE HA OПEP. TL 007453 : ,AUX,UPM 1. 007454 : ,ARX,B46*.COБCTBEHHO 007455 : ,ATX,NA FIL. ИMЯ 007456 : ,XTA,1. 007457 : ,AAX,B24.БЛOKИP.TT-ПEЧ. 007458 : ,UZA,AFT PR. - ДA 007459 : C,VTM,T WR. 007460 : A,XTA,1.PEЖИM 007461 : ,AAX,B WRIT.PAБOTЫ 007462 : :,UIA,*+1. 007463 : C,UTM,1. 007464 : :A,XTA,. 007465 : ,AAX,C17. 007466 : ,ASN,64-32.'HOMEP 007467 : C,AOX,. БOБИHЫ' 007468 : ,ATX,T NБ. 007469 : ,ITA,MT. 007470 : ,ARX,B4. 007471 : ,ASN,64-42. 007472 : ,AUX,UPM 2.HOMEP 007473 : ,AOX,T NБ.MЛ-MOДEЛИ 007474 : ,ATX,T NБ. 007475 : 14,VTM,NA FIL. 007476 : ,ITA,14. 007477 : 14,CALL,TELOUT. 007478 : C...... 007479 : AFT PR: ,ITA,MT.YCTAHOBKA 007480 : ,ASN,64+3.ПPИЗHAKOB: 007481 : ,ATI,C.MФ-ГOT, 007482 : ,ITA,MT.ЗAП.-BKЛ. 007483 : ,AAX,C7. 007484 : ,AEX,C7. 007485 : ,ATI,MT.N ЛПM(OБP.KOД) 007486 : MT,XTA,B48 007487 : MT,AOX,B40 007488 : ,AEX,FULWOR. 007489 : ,ATX,WS. 007490 : C,AAX,NEW. 007491 : C,ATX,NEW. 007492 : ,XTA,WS. 007493 : C,AAX,OLD. 007494 : C,ATX,OLD. 007495 : WRI FA:A,XTA,1. 007496 : ,ASN,64+4 007497 : ,AAX,B24/1 007498 : ,ARX,B3.[B,E] B [B,E+1) 007499 : ,ASX,TYPDIN 007500 : ,AOX,NM/FATA. B FATA 007501 : L,ATX,FATA-1. 007502 : A,XTA,1.ПEPEHECEHИE 007503 : ,AAX,B30.БИTA PAЗPEШEHИЯ 007504 : L,AOX,FATA-1.ЗAПИCИ 007505 : ,ARX,CMIN1 007506 : L,ATX,FATA-1. 007507 : C ЗAHЯTИE ПAKETA CИCTEMOЙ. 007508 : NM,XTA,B48 007509 : NM,AOX,B32 007510 : ,AOX,MONOS 007511 : ,ATX,MONOS 007512 : C... ECЛИ ЭTO 7/M TO 007513 : C YCTAHOBИM CПEЦCTATYC 007514 : A,XTA, 007515 : ,AEX,T7/M 007516 : ,U1A,NO7M 007517 : ,XTA,B29+1.CTATYC 2 007518 : L,AOX,FATA-1 007519 : L,ATX,FATA-1 007520 : NO7M:,BSS, 007521 : A,XTA, 007522 : ,AEX,DISPNAM 007523 : ,U1A,TO NEXT 007524 : ,ITA,L 007525 : ,ASN,64-12 007526 : ,AOX,DISPFIL 007527 : ,ATX,DISPFIL 007528 : TO NEXT:,24,3 007529 : ,UJ,NEX FILE. 007530 : SCRATCH:,BSS,. 007531 : C......... OTOБPAЖEHИE PAБ.OБЛACTИ B TSA 007532 : L1,VTM,1-8.ПOИCK MECTA 007533 : SCR 1:L1,XTA,TSA+7. B TSA 007534 : ,NTR,7 007535 : ,UZA, IS SCRA. - ECTЬ 007536 : L1,VLM,SCR 1. 007537 : ,UJ,NO SCRA. - HET 007538 : IS SCRA:A,XTA,1.XAP-KA ФAЙЛA 007539 : ,ASN,64+12. 007540 : ,AAX,B16/7. AДPEC 007541 : ,ATX,BEG. HAЧAЛA(AH) 007542 : A,XTA,1. 007543 : ,AAX,B16/7.AДPEC KOHЦA 007544 : ,A-X,BEG. 007545 : ,ARX,B7. 007546 : ,ASN,64+9 007547 : ,ASX,TYPDIN 007548 : ,ATX,N EXT. 007549 : ,AEX,C77777. 007550 : L1,ATX,TSA+7.(OБP.KOД) 007551 : ,ITA,L.HOMEP ФAЙЛA 007552 : ,ASN,64-15. B TSA 007553 : L1,AOX,TSA+7. 007554 : L1,ATX,TSA+7. 007555 : ,XTA,N EXT.KOPPEKTИP. 007556 : ,ARX,N ЭKCT.ЧИCЛA PACПPEД. 007557 : ,AAX,C77777.ЭKCTEHTOB 007558 : ,ATX,N ЭKCT.... 007559 : C BEДEHИE CПИCKA SA HA ДИCKE. 007560 : L1,UTM,8.HOMEP B TSA 007561 : ,ITA,L1.C EДИHИЦЫ 007562 : ,AOX,LISTSAC.CПИCOK 007563 : ,ASN,64-4 007564 : ,ATX,LISTSAC 007565 : ,UJ,WRI FA. 007566 : FINISH:,BSS,. 007567 : EC,J+M,E 007568 : C......... ЗABEPШ.PAБOTЫ ПO OTKPЫTИЮ ФAЙЛOB 007569 : C 007570 : C...... БЛOK ЗAXBATA ЭKCTEHTOB ДЛЯ ЗAДAЧ 007571 : C CБPOШEHHЫX, HE BOCCTAHOBЛEHHЫX 007572 : C 007573 : ,XTA,LISTSAC.CПИCOK ЭKCTEHTOB 007574 : ,UZA,FINISH1.HA ДИCKE HE БЫЛO 007575 : ,WTC,ADR P.AДP. БYФ. 007576 : RR,VTM,.ЛИCTA 007577 : ,XTA,NTRFRO.ECTЬ ЛИ R-TPAKT 007578 : ,UZA,SETCF. - HET 007579 : ,XTA,2 007580 : ,AAX,B48+3.ECTЬ,HO 007581 : ,AEX,B48+3.БYДET 007582 : ,UZA,SETCF.OБHYЛEH 007583 : C БЛOKИPOBKA MAT.ЗAДAЧ HA 007584 : C BPEMЯ PAБOTЫ TRAPHY. 007585 : ,XTA,FULWOR 007586 : ,AEX,Ш/FULL 007587 : ,AEX,Ш/CЛYЖ 007588 : : ,24,2003B 007589 : ,ATX,MRDSCALE.ШK.БЛOK.BЫБOPA 007590 : ,XTA,P/KYC.ЛИCT ДЛЯ TRAPHY 007591 : ,AOX,B18.ЧTEHИE 007592 : ,AOX,NTRFRO.ФИЗ.AД.И 3 AБЗ. 007593 : RR,ATX,KTRSPT 007594 : 13,VTM,KTRSPT 007595 : RR,J+M,13.ЧTEHИE ROLLOUT 007596 : 14,VJM,TRAPHY.CEKTOPA 007597 : C PAЗБЛOKИPOBKA MAT. ЗAДAЧ. 007598 : ,XTA,FULWOR 007599 : ,ATX,MRDSCALE 007600 : : ,24,3 007601 : C ПOДГOTOBKA PAБOTЫ C CEKTOPOM. 007602 : C ПOЛYЧEHИE ШK.HEBOCCT. ЗAДAЧ. 007603 : ,XTA,FULWOR 007604 : RR,WTC,NTASK.KOЛ.CБOШ. 007605 : ,ASN,64. 007606 : ,AEX,FULWOR.ШK.CБPOШ. 007607 : RR,AEX,CRT.CRT=ШK.BOCCTA- 007608 : SETCF:RR,ATX,CFWORK.HOBЛEHHЫX ЗAДAЧ 007609 : EC,VTM,.KOЛ.BЗЯTЫX ЭKC. 007610 : LCESA:,BSS, 007611 : C ЦИKЛ ПO SCRATCH OБЛACTЯM ДИCKA. 007612 : ,XTA,LISTSAC 007613 : ,ASN,64+4 007614 : ,ATX,LISTSAC 007615 : ,UZA,FINISH0.BCE OБPAБOTAHЫ 007616 : ,AAX,C17 007617 : ,ATI,L1.HOMEP SCR.OБЛ. 007618 : L1,XTA,TSA-1 007619 : RR,ATX,NSCRCF.-1-ЧИCЛO ЭKC. 007620 : ,ASN,64+15.HOMEP CЛOBA FATA 007621 : ,ATI,14.COOTBETCB.OБЛ. 007622 : 14,XTA,FATA-1.CCЫЛKA ФAЙЛA 007623 : RR,ATX,CURRF.ЭTOЙ OБЛACTИ 007624 : ,XTA, 007625 : RR,ATX,CTNE 007626 : OBTAIN:,BSS, 007627 : C ПOЛYЧEHИE TAБЛИЧHOГO HOMEPA 007628 : C ПEPBOГO ЭKCTEHTA OБЛACTИ. 007629 : L1,UTM,-1 007630 : L1,VZM,EOBTAIN.HET ПPEДЫДYЩИX 007631 : L1,XTA,TSA-1 007632 : ,AAX,C77777 007633 : ,AEX,C77777 007634 : RR,ARX,CTNE 007635 : RR,ATX,CTNE 007636 : ,UJ,OBTAIN 007637 : EOBTAIN:,BSS, 007638 : C OPГAHИЗAЦИЯ ЦИKЛA ПO CБPOШEH- 007639 : C HЫM ЗAДAЧAM. 007640 : RR,XTA,CFWORK.ШK.CБPOШ. 007641 : RR,ATX,FWORK.HEBOCCT.ЗAДAЧA 007642 : CTAKEEX:,BSS, 007643 : C ЦИKЛ ПO ЗAДAЧAM. 007644 : RR,XTA,FWORK 007645 : ,U1A,NEXTASK.HE KOHЧИЛИCЬ 007646 : RR,WTC,NSCRCF 007647 : A,VTM,2.CЧ.ЦИKЛA 007648 : C 007649 : C.. ЗAXBAT ЭKCTEHTOB ДЛЯ MOДEЛEЙ MБ 007650 : C 007651 : XOMYT1:,XTA,*KOMOД 007652 : ,AAX,C77777 007653 : ,UZA,LCESA.HACЫTИЛИCЬ 007654 : ,XTA,1 007655 : ,AAX,B48+1 007656 : ,U1A,LCESA.БЛOKИPOBKA 007657 : RR,XTA,CTNE.HOMEP ЭKCT. 007658 : 13,VJM,ADAM 007659 : RR,WTC,NSTRING 007660 : ,XTA,*TDIS 007661 : RR,AAX,MASK 007662 : ,U1A,XOMYT2.YЖE BЗЯT ГYPEBИЧEM 007663 : C-- CHИMEM 'MAЛOMБ' 007664 : : ,24,2003B 007665 : ,ATX,SCMAMБ 007666 : ,XTA,FLMAMБ.COXPAHЯEM БИT 007667 : ,AAX,B48.DISPINIT'A 007668 : ,ATX,FLMAMБ 007669 : RR,XTA,CTNE 007670 : C-- ПИШEM ГЛOБ.HOMEP ЭKCTEHTA 007671 : C-- И ПPИЗHAK SCRATCH 007672 : C-- / ДЛЯ GIVTRACK /. 007673 : ,AOX,B7 007674 : ,WTC,*KOMOД 007675 : ,UTC,DRUMOD-1 007676 : ,ATX, 007677 : 15,XTA,B1-32 007678 : RR,WTC,NSTRING 007679 : ,AOX,*TDIS 007680 : RR,WTC,NSTRING 007681 : ,ATX,*TDIS 007682 : ,XTA,*KOMOД 007683 : ,ARX,CMIN1 007684 : ,ATX,*KOMOД 007685 : ,XTA,NFRITR 007686 : ,ARX,B6 007687 : ,ATX,NFRITR 007688 : : ,24,3 007689 : EC,UTM,-1 007690 : XOMYT2:RR,XTA,CTNE 007691 : ,ARX,B1 007692 : RR,ATX,CTNE 007693 : A,VLM,XOMYT1 007694 : ,UJ,LCESA 007695 : NEXTASK:,BSS, 007696 : ,ANX,.HOMEP B KATA- 007697 : ,ATI,L.ЛOГE CБPOШEHHЫX 007698 : ,YTA, 007699 : L,ASN,64 007700 : RR,ATX,FWORK 007701 : L,UTC,.CЛOBO B KATA- 007702 : RR,XTA,INABEG-1.ЛOГE CБPOШEHHЫX 007703 : ,ASN,64+24 007704 : ,AAX,C7777.AДPEC ПOЛЯ 007705 : ,ATI,A2.ЭTOЙ ЗAДAЧИ HA 007706 : RR,J+M,A2.CEKTOPE CБPOCA 007707 : A2,MTJ,14 007708 : A2,XTA,OLDSTN 007709 : ,A-X,C20 007710 : RR,ATX,DSTN 007711 : ,XTA, 007712 : RR,ATX,OLDCTNE 007713 : LOWSA:,BSS, 007714 : C ИЗYЧEHИE PAБOЧИX OБЛACTEЙ ЗAДAЧ 007715 : 14,XTA,COTSAR.KOПИЯ TSA 007716 : ,UZA,CTAKEEX.HA CЛEД.ЗAДAЧY 007717 : 14,XTA,NAMEDSA.CPABHEHИE 007718 : ,AEX,NAMEDI.ИMEH ДИCKOB 007719 : ,U1A,DEFF.PAЗHЫE 007720 : 14,XTA,REFOLD.CPABHEHИE 007721 : RR,AEX,CURRF.CCЫЛOK ФAЙЛOB 007722 : ,ASN,64-18 007723 : ,UZA,HEREITIS.TA ЖE OБЛACTЬ 007724 : DEFF:,BSS, 007725 : C PAБOЧAЯ OБЛACTЬ HE TA. 007726 : 14,XTA,COTSAR.KOPPEKTИPOBKA 007727 : ,AEX,C77777.TEKYЩEГO 007728 : ,AAX,C77777.HOMEPA ЭKCTEHTA 007729 : RR,ARX,OLDCTNE.ПO CTAPOЙ 007730 : RR,ATX,OLDCTNE.TAБЛИЦE 007731 : 14,UTM,3 007732 : ,UJ,LOWSA.HA CЛEД.OБO. 007733 : HEREITIS:,BSS, 007734 : C OБЛACTИ COBПAДAЮT - 007735 : C ПOИCK CBOИX ЭKCTEHTOB 007736 : RR,WTC,NSCRCF.KOЛИЧ.ЭKC. 007737 : A,VTM,2.B OБЛ. ДЛЯ VLM 007738 : RR,XTA,CTNE 007739 : RR,ATX,JCTNE.TEKYЩ.N ЭKCT. 007740 : CHECKOWN:,BSS, 007741 : C ЦИKЛ БЛOKИPOBKИ ЭKCTEHTOB ЗAДAЧИ 007742 : RR,XTA,OLDCTNE.CTAPЫЙ N 007743 : 13,VJM,ADAM 007744 : RR,WTC,NSTRING.N CTPOKИ 007745 : A2,XTA,COTEX. 007746 : RR,APX,MASK.MACKA CTOЛБЦA 007747 : ,ASN,64-5 007748 : ,YTA,.ДHЗ ЭKCTEHTA 007749 : RR,AEX,DSTN.CTAPЫЙ ДHЗ 007750 : ,U1A,NOTOWN.ЧYЖOЙ 007751 : RR,XTA,JCTNE.HOBЫЙ N 007752 : 13,VJM,ADAM 007753 : ,ASN,64+5 007754 : RR,AAX,MASK.11-БИTHAЯ MACKA 007755 : C BCE MAT. ЗAДAЧИ ЗAKPJTЫ, CЛEД. 007756 : C TAБЛИЦY ЭKCTEHTOB MOЖHO 007757 : C MEHЯTЬ ПPИ OTKPЫTЫX ПPEPЫBAHИЯX 007758 : RR,WTC,NSTRING.N CTPOKИ 007759 : ,AOX,*TDIS.HA CYMMATOPE 007760 : RR,WTC,NSTRING.MACKA 007761 : ,ATX,*TDIS.CTOЛБЦA 007762 : EC,UTM,-1.CЧET BЗЯTЫX 007763 : NOTOWN:,BSS, 007764 : C ПEPEXOД K COEДYЮЩEMY ЭKCTEHTY 007765 : RR,XTA,JCTNE.HOBЫЙ 007766 : ,ARX,B1.TEKYЩИЙ 007767 : RR,ATX,JCTNE.HOMEP 007768 : RR,XTA,OLDCTNE.CTAPЫЙ 007769 : ,ARX,B1. '' 007770 : RR,ATX,OLDCTNE. '' 007771 : A,VLM,CHECKOWN 007772 : ,UJ,CTAKEEX 007773 : ADAM:,BSS, 007774 : C ПOДПPOГPAMMA 007775 : C ПO HOMEPY ЭKCTEHTA HA CYMMATOPE 007776 : C ПOЛYЧAET HOMEP CTPOKИ И MACKY 007777 : C CTOЛБЦA..I15 = N CTOЛБЦA * 16 007778 : RR,ATX,MASK 007779 : ,A*X,C1/3 007780 : RR,ATX,NSTRING.N CTPOKИ 007781 : ,ASN,64-1 007782 : RR,ARX,NSTRING.(N CTPOKИ)*3 007783 : RR,X-A,MASK.N CTOЛБЦA 007784 : ,ASN,64-4 007785 : ,ATI,15 007786 : ,XTA,B16/1 007787 : 15,ASN,64-32 007788 : RR,ATX,MASK.MACKA CTOOБЦA 007789 : 13,UJ, 007790 : FINISH0:,BSS, 007791 : C BCE OБЛACTИ ДИCKA OБPAБOTAHЫ. 007792 : C KOPPEKT.ЧИCЛA CBOБOДHЫX ЭKCTE. 007793 : ,ITA,EC 007794 : ,ARX,NЭKCT 007795 : ,AAX,C77777 007796 : ,ATX,NЭKCT 007797 : FINISH1:,BSS, 007798 : C********* HEOБXOДИM OTKAЗ OT PEЗEPBHOГO ЛИCTA 007799 : C COOБЩEHИE B CTATИCTИKY O ПAKETE 007800 : ,ITA,NM 007801 : ,ARX,C30 007802 : ,ATX,STB.N MOДYЛЯ 007803 : RR,CALL,OPENWAIT.OTKP. ЖД. ЗAДAЧ 007804 : ,XTA,NAMEDI.HOBOE ИMЯ 007805 : ,ATX,STB+1.ИMЯ ПAKETA 007806 : ,ITA,RJ 007807 : ,ASN,64-24 007808 : ,ARX,NORCOD.AДPEC COOБЩEHИЯ 007809 : ,ATX,STB+2 007810 : ,ITA,RJ 007811 : ,ARX,STB+2.AДPEC BOЗBPATA 007812 : : ,24,2003B 007813 : ,UJ,STATIST 007814 : NORCOD:2,Z03,STB-BASE. 007815 : ,Z00,AST2-BASE. 007816 : AST2:,24,3 007817 : L,VTM, 007818 : FIN 1:E,VZM,E DEC.HE БЫЛO OШИБOK 007819 : C YCTAHOBKA ЗAДEPЖKИ HA MOДYЛЬ 007820 : ,ITA,NM 007821 : ,AEX,C77777 007822 : ,ATI,T 007823 : ,XTA,C7 007824 : T,ASN,64+1 007825 : T,ASN,64+1 007826 : : ,24,2003B 007827 : T,ASN,64+1 007828 : ,AOX,WACNTS 007829 : ,ATX,WACNTS 007830 : ,UJ,RET. - BЫXOД 007831 : GIV PAG:,BSS,. 007832 : C......... ЗAПPOC ЛИCTA Y ПOДKAЧKИ(HA BPEMЯ) 007833 : : ,24,2003B. 007834 : ,ITA,RJ. 007835 : ,ARX,PCI. 007836 : ,UJ,NRESCALL.ЗAXBAT ЛИCTA 007837 : PCI:,Z00,. 007838 : ,Z00,CONT-BASE. 007839 : CONT:,BSS,. 007840 : ,ATX,ADR P.AДPEC ЛИCTA 007841 : ,ASN,64-2.N ЛИCTA 007842 : ,ATX,P/KYC.ДЛЯ TRAPHY 007843 : ,ASN,64+12. 007844 : ,ATX,N PAG. 007845 : : ,24,3. 007846 : R,UJ,. 007847 : E DEC:,BSS, 007848 : C ПEPEBOД OM-HMД B CTATYC ГOTOBЫX 007849 : : ,24,2003B 007850 : NM,XTA,DNAM 007851 : ,U1A,RET.HMД ЗAHЯT 007852 : ,XTA,NAMEDI.ЗAHECEHИE ИMEHИ 007853 : NM,ATX,DNAM.B TAБЛИЦY 007854 : NM,XTA,B48 007855 : ,AOX,SCMDR 007856 : ,ATX,SCMDR 007857 : C 007858 : C**** KOHEЦ OПOЗHABAHИЯ ДИCKOB 007859 : C HAЧAЛO OПOЗHABAHИЯ ЛEHT 007860 : C 007861 : RET:,BSS,. 007862 : ,XTA,. 007863 : ,WTC,NPAG. 007864 : ,ATX,TPHYS. 007865 : ,ATX,P/KYC. 007866 : CHTAPES:,BSS, 007867 : 1,VTM,7.HAПPABЛEHИE 007868 : L,VTM,-3.CЧ-K ЦИKЛA 007869 : C--- 007870 : CHC1:,24,2003B 007871 : 1,UTM,-1.CЛEД.HAПP. 007872 : ,XTA,*ПДИCK 007873 : 1,AAX,B43-6 007874 : ,UZA,ECHC.-> ЛEHT HET 007875 : 1,XTA,NEW-3 007876 : 1,AEX,OLD-3 007877 : ,AAX,B24/9 007878 : :,24,3 007879 : ,UZA,ECHC 007880 : ,ATX,BEG.ИЗMEHEHИЯ 007881 : 2,VTM,8.MФ(OБP.KOД) 007882 : 1,WTC,BC1700 007883 : 3,VTM,-1.ПOЛHЫЙ HOMEP MФ 007884 : C--- 007885 : CHT1:,BSS, 007886 : 2,UTM,-1.CЛEДYЮЩИЙ 007887 : 3,UTM,1.MФ 007888 : 4,VTM,-16.ЗП, ПOTOM ГT 007889 : C--- 007890 : CHRW:,BSS, 007891 : 4,UTM,8 007892 : 15,VTM,XAP0.CTEK 007893 : ,XTA,BLK*MT 007894 : 3,AAX,B48-30B 007895 : ,U1A,ECHT 007896 : ,ITA,3.N MФ И ИMЯ 007897 : 3,XTS,TANAME-10B.ДЛЯ CTAT-KИ 007898 : ,XTS,BEG 007899 : 4,UTC, 007900 : 2,AAX,B16 007901 : ,UZA,ECHT.HE ИЗM. 007902 : 15,ATX, 007903 : :,24,2003B 007904 : 1,AEX,OLD-3.OCOBPEMEHИM 007905 : 1,STX,OLD-3. OLD 007906 : 1,AAX,OLD-3 007907 : 5,VTM,ECHT 007908 : 4,VZM,ST/RD 007909 : C--- ИЗMEHИЛOCЬ COCTOЯHИE ЗAПИCИ 007910 : ,U1A,OPENWAIT.ПPOПAЛA 007911 : 2,XTA,B16.ПOЯBИЛACЬ 007912 : 1,AAX,ШHГ-3 007913 : ,UZA,OPENWAIT.EE HE ЖДYT 007914 : 1,AEX,ШHГ-3 007915 : 1,ATX,ШHГ-3 007916 : 5,MTJ,8 007917 : 5,CALL,TOЛЧOK 007918 : 8,MTJ,5 007919 : ,UJ,OPENWAIT 007920 : C--- ИЗMEHИЛOCЬ COCTOЯHИE ГOTOBHOCTИ 007921 : ST/RD:,UZA,T/RECOGN.ПOЯBИЛACЬ 007922 : 9,VTM,1.ПPOПAЛA 007923 : 3,XTA,TABLEMT-10B.HE ЗAHЯTA ЛИ 007924 : ,ASN,64+42.ЛEHTA 007925 : :,U1A,TOSTAT 007926 : 3,ATX,TANAME-10B.ГACИM ИMЯ 007927 : C--- ЗAПИCЬ COБЫTИЯ B CTATИCTИKY 007928 : TOSTAT:,ITA,RJ 007929 : ,ASN,64-24 007930 : ,ITS,RJ 007931 : 15,AOX, 007932 : 9,ARX,STA/COD 007933 : :,24,2003B 007934 : ,UJ,STATIST 007935 : STA/COD:2,Z02,XAP0-BASE.ПOЯBИЛACЬ MЛ 007936 : ,Z00,ECHT-BASE 007937 : :1,Z02,XAP0-BASE.ПPOПAЛA MЛ 007938 : ,Z01,ECHT-BASE 007939 : C--- ПOЯBИЛACЬ ГOTOBHOCTЬ 007940 : T/RECOGN:1,XTA,ШHГ-3 007941 : 2,AAX,B8 007942 : ,ATI,8.ЖДYT ЛИ EE 007943 : 1,AEX,ШHГ-3 007944 : 1,ATX,ШHГ-3 007945 : 9,VTM,287.БEЗ CTAT-KИ 007946 : ,XTA,MISTERX 007947 : 3,AAX,B48-30B.HE ИMEHOBAHA 007948 : 3,AOX,SJMT-30B.B PAБOTE 007949 : 1,AOX,ПEPEXBAT-3.MOHOПOЛИЯ 007950 : ,U1A,PUSH.- HE OПOЗHABATЬ 007951 : C--- ФOPMИPOBKA KYC-A 007952 : ,ITA,3 007953 : ,ASN,64-42 007954 : ,AUX,=0070 0000 0000 1600 007955 : ,AOX,=0000 0010 0440 0020 007956 : ,ATX,RDAT 007957 : C--- ЗA ЧTEHИEM ИMEHИ 007958 : RENAM:13,VTM,SAVAC 007959 : ,XTA,RDAT 007960 : 13,ATX,.ЧTOБ HE 0 007961 : 14,CALL,TRAPHY 007962 : :,24,2003B 007963 : ,U1A,OKNAMT.- ECTЬ 007964 : 1,XTA,NEW-3.HE BЫPYБИЛCЯ 007965 : 2,AAX,B16. ЛИ MAГHИTOФOH 007966 : ,UZA,CHMX.- HET 007967 : 5,VTM, 007968 : ,ITA,3 007969 : 14,CALL,MФ ПЛOX 007970 : 8,VTM,.БEЗ TOЛЧKA 007971 : ,UJ,PUSH 007972 : CHMX:,XTA,MISTERX 007973 : 3,AAX,B48-30B 007974 : ,UZA,RENAM.ПOBTOPИM 007975 : ,UJ,PUSH 007976 : C--- ИMЯ ПPOЧЛOCЬ HOPMAЛЬHO 007977 : OKNAMT:,ATX,XAP0+1.HOBOE ИMЯ 007978 : 9,VTM,."CO CTAT-KOЙ" 007979 : 3,AEX,TANAME-10B.CTAPOE ИMЯ 007980 : ,UZA,SAMNAM 007981 : 3,XTA,TABLEMT-10B 007982 : ,ASN,64+42 007983 : ,UZA,SAMNAM 007984 : C--- HA ЗAHЯTOM MФ CMEHИЛИ БOБИHY 007985 : 3,XTA,TANAME-10B 007986 : ,ATX,XAP0+1 007987 : 9,VTM,287.БEЗ CTAT-KИ 007988 : 8,VTM,.БEЗ TOЛЧKA 007989 : 15,MTJ,14 007990 : ,ITA,3 007991 : ,ASN,64-42 007992 : ,AUX,MNMД 007993 : ,AOX,=6HMФ-00 007994 : ,XTS,=6HЗAHЯT 007995 : ,XTS,ДИAГH+2 007996 : ,ITS,14 007997 : 14,CALL,TELOUT 007998 : C--- 007999 : SAMNAM:,XTA,XAP0+1.HOBOE ИMЯ 008000 : 3,ATX,TANAME-10B.B TAБЛИЦY 008001 : C 008002 : C--- TOЛЧOK ЖДYЩИX ЗAKAЗOB, 008003 : C YCTAHOBKA ПPИЗH. 1 OБPAЩEHИЯ, 008004 : C ЗAПИCЬ B CTAT-KY 008005 : C 008006 : PUSH:,24,2003B 008007 : 8,VZM,PUTF 008008 : 5,CALL,TOЛЧOK 008009 : 15,VTM,XAP0.ПOPTИЛCЯ ! 008010 : PUTF:3,XTA,SJMT-30B 008011 : ,U1A,ECHT 008012 : ,XTA,B1 008013 : 3,AOX,TABLEMT-10B 008014 : 3,ATX,TABLEMT-10B 008015 : 9,V1M,ECHT 008016 : 5,VTM,TOSTAT 008017 : ,UJ,OPENWAIT 008018 : C 008019 : C--- KOHEЦ ЦИKЛA 008020 : C 008021 : ECHT:,BSS, 008022 : 4,VIM,CHRW.ПO COCT. 008023 : 2,VIM,CHT1.ПO MФ. 008024 : ECHC:,BSS, 008025 : L,VLM,CHC1.ПO HAПP. 008026 : C 008027 : C--- KOHEЦ OПOЗHABAHИЯ ЛEHT 008028 : C 008029 : ,XTA,REF NRS. 008030 : ,UJ,NRES OFF. 008031 : REF NRS:,Z00,NR/MD. 008032 : ,Z00,MD/RET 008033 : EXCH:,BSS, 008034 : C ... П/П ЗAПYCKA OБMEHA C MД. 008035 : : ,24,2003B 008036 : ,AOX,NM/KYC.N MOДYЛЯ 008037 : ,AOX,P/KYC.N CTPAHИЦЫ 008038 : 13,VTM,KYC 008039 : 13,ATX, 008040 : 14,VJM,TRAPHY 008041 : : ,24,3 008042 : R,UJ, 008043 : ПЛOX ПAK:T,VTM,T KATAЛ. 008044 : ,UJ,ERR 1. 008045 : CTPA ПAK:T,VTM,T OШCИC. 008046 : ,UJ,ERR 1. 008047 : NO PHYS:T,VTM,T MODEL. 008048 : E,VIM,NEX FILE. 008049 : E,VTM,1. 008050 : ,UJ,ERR 2 008051 : NO SCRA:T,VTM,T SCRAT. 008052 : EC,VIM,NEX FILE. 008053 : EC,VTM,1. 008054 : ,UJ,ERR 2 008055 : HET ЗП:T,VTM,T ЗAП 008056 : ERR 1:,BSS,. 008057 : R,VJM,ERROR. 008058 : E,VTM,1. 008059 : ,UJ,FIN 1. 008060 : ERR 2:R,VTM,NEX FILE. 008061 : ERROR:,BSS,. 008062 : ,ITA,NM. 008063 : ,ARX,C30. 008064 : ,ASN,64-42. 008065 : ,AUX,M NMД. 008066 : ,AOX,T NMД. 008067 : ,ATX,ДИAГH. 008068 : T,XTA,. 008069 : ,ATX,ДИAГH+1. 008070 : T,VTM,ДИAГH. 008071 : ,ITA,T. 008072 : 14,CALL,TEL OUT. 008073 : : ,24,3. 008074 : R,UJ,. 008075 : C-------- 008076 : T7/M:,TEXT,8HM '7' 008077 : TKATAЛ:,ISO,6HKATAЛ. 008078 : TOШCИC:,ISO,6HOШCИC. 008079 : TЗAП :,ISO,6HЗAПИCЬ 008080 : TMODEL:,ISO,6HMODEL 008081 : TSCRAT:,ISO,6HSCRAT.. 008082 : T WR:,ISO,6H/0 W00 008083 : ,ISO,6H/0 R00 008084 : UPM 1:,ISO,6H'77''77''77''77''77''77' 008085 : UPM 2:,GOST,6H000077 008086 : B46*:,ISO,6H 008087 : M NMД:,GOST,6H000770 008088 : T NMД:,ISO,6HMД-00: 008089 : ДИAГH:,BSS,2. 008090 : ,ISO,6H !!!'''' 008091 : KYC ЗП:,LOG,10 0100 0020 008092 : KYC ЧT:,LOG,10 0140 0020 008093 : X C0:,Z00,XAP0. 008094 : 1,Z03,0. 008095 : X C1:,Z20,XAP1. 008096 : 1,Z23,1020. 008097 : X D0:1,Z00,XAP1. 008098 : ,Z00,. 008099 : X D1:1,Z20,XAP2. 008100 : ,Z00,1020. 008101 : X CD:,Z20,XAP1. 008102 : 1,Z24,1020. 008103 : :,Z00,XAP0. 008104 : 1,Z04,0. 008105 : X DC:1,Z20,XAP1. 008106 : ,Z24,1020. 008107 : :1,Z00,XAP0. 008108 : ,Z04,0. 008109 : MA AT:,LOG,77 0000 0004 008110 : CMIN1:,LOG,7777 7777 7777 7776 008111 : B16/7:,LOG,17 7700. 008112 : CHE Z:,LOG,3777 7777 7777 6015. 008113 : CHE ISO:,ISO,6H'200''200''200''200''200''200' 008114 : C30:,LOG,30. 008115 : C1/3:,LOG,4005 2525 2525 2526 008116 : LISTSAC:,LOG, 008117 : C 008118 : C... ИMEHA HECOBMECTИMЫX MOДEЛEЙ : 008119 : C 008120 : FNAMES:,BSS, 008121 : ,TEXT,8HD73STA '6' 008122 : ,TEXT,8HUSESTA '20' 008123 : ,TEXT,8HROLLIB '1' 008124 : ,TEXT,8HLINBUF '21' 008125 : ,LOG,.ПPИЗH.KOHЦA CПИCKA 008126 : XAP0:,BSS,2. 008127 : DATC:,BSS,1. 008128 : VERC:,BSS,1. 008129 : XAP1:,BSS,2. 008130 : DATD:,BSS,1. 008131 : VERD:,BSS,1. 008132 : XAP2:,BSS,4. 008133 : TYPDIN:,BSS,1 008134 : NM/FATA:,BSS,1. 008135 : ADR P:,BSS,1. 008136 : N PAG:,BSS,1. 008137 : WS:,BSS,. 008138 : BEG:,BSS,1. 008139 : RDAT:,BSS,. 008140 : N EXT:,BSS,1. 008141 : NA FIL:,BSS,1. 008142 : T NБ:,BSS,2. 008143 : STB:,BSS,. 008144 : SAV:,BSS,4. 008145 : NAMEDI:,BSS,1 008146 : WKFI:,BSS,3 008147 : ,END,. 008148 : STATIST:,NAME,. 008149 : C 008150 : C********* БYФEPИЗAЦИЯ ИHЖEHEPHOЙ CTATИCTИKИ 008151 : C 008152 : *STATBUF:LC,BLOCK,MBLO,MOUT,STNAME,NZON 008153 : ,CONT,LBUF,PDB,DCALL 008154 : ,CONT,DEV(9) 008155 : ,CONT,DINBUF 008156 : ND:,EQU,9. 008157 : ND1:,EQU,ND-1. 008158 : BLSTOUT:LC,BLOCK,TSEC,SAVNZ,BLSTAOUT 008159 : ABTIME:,LC,1. 008160 : *YCЫ:LC,BLOCK,(31),. 008161 : *ИПД:LC,BLOCK,(4),XNW 008162 : NW:,WEQ,XNW 008163 : YCЖДY:,EQU,*YCЫ+NW 008164 : TODAY:,LC,1 008165 : TPHYS:,LC,1. 008166 : SMASAV:LC,BLOCK,SAVAC 008167 : TABLEMT:LC,BLOCK,(96),MTNAMES 008168 : NRESCALL:,SUBP,. 008169 : TELOUT:,SUBP,. 008170 : *700:B,BLOCK,(6),B42(2),B40(12),B28(2),B26(4),B22 008171 : ,CONT,B21(3),B18(9),B9(8),B1 008172 : FULWOR:,LC,1 008173 : B24/1:,LC,1. 008174 : C7777:,LC,1. 008175 : C1777:,LC,1 008176 : C3:,LC,1 008177 : BEGSB:,EQU,8. 008178 : BEGDB:,EQU,40. 008179 : BEGNZON:,EQU,B28 008180 : *4:,BLOCK,RR(4),P,L,RW,E,R,J,M,S 008181 : C 008182 : C********* БYФEPИЗAЦИЯ ДИHAM.ИHФOPMAЦИИ 008183 : C 008184 : '''''''''''''''''''''''''''''''''''''' 008185 : 'CYMMATOP BXOДA-ГOЛOBA COOБЩEHИЯ 008186 : 'PAЗPЯДЫ 008187 : ' 48-45 ДЛИHA ДOП. ИHФOPMAЦИИ 008188 : ' 44-40 TИП 1 008189 : ' 39-25 AДPEC ДOП. ИHФOPMAЦИИ, 008190 : ' ECЛИ OHA ECTЬ 008191 : ' 22 1-ПPИЗHAK OБHYЛEHИЯ 008192 : ' 21 1-HYЖEH CБPOC 008193 : ' 20-16 TИП 2 008194 : ' 15-1 AДPEC BOЗBPATA 008195 : '------------------------------------- 008196 : 'ЗAПИCЫBAET B DINBUF 008197 : '(ПPИ HAЛИЧИИ MECTA) 008198 : ' 1. CYMMATOP BXOДA 008199 : ' 2. AБCOЛЮTHOE BPEMЯ ИЗ ABTIME 008200 : ' 3. ДOПOЛHHTEЛЬHYЮ ИHФOPMAЦИЮ 008201 : ' (ECЛИ OHA ECTЬ) 008202 : '''''''''''''''''''''''''''''''''''''' 008203 : :,24,2003B.OT ГPEXA 008204 : ,ATX,COD. 008205 : ,XTA,MBLO.CTATИCTИKA 008206 : ,UZA,RET1. - БЛOKИPOBAHA 008207 : ,ITA,S 008208 : S,VTM,I15 008209 : ,ITS,M .CПACEHИE 008210 : ,ITS,J .PEГИCTPOB 008211 : ,XTS,COD 008212 : ,ASN,64+24. 008213 : ,ATI,J .AДPEC ДOП.ИHФ. 008214 : ,ASN,64+20. 008215 : ,ATI,M .ДЛИHA ДOП.ИHФ. 008216 : ,ARX,PDB.ПPOБA: 008217 : ,AEX,C7777 .ECTЬ ЛИ MECTO 008218 : ,ARX,LBUF. 008219 : ,ASN,64+12 008220 : ,UIA,PLACE. 008221 : ,XTA,CNTR.CЧETЧИK 008222 : ,ARX,B1.HEПPИHЯTЫX 008223 : ,ATX,CNTR.COOБЩEHИЙ 008224 : ,ATX,TSEC. 008225 : ,UJ,RET. 008226 : PLACE:,WTC,PDB. 008227 : S,VTM,DINBUF.AДPEC ДИH.БYФ. 008228 : ,XTA,COD. 008229 : ,XTS,ABTIME 008230 : TRAN:,BSS, 008231 : M,VZM,RET0 008232 : J,XTS, 008233 : M,UTM,-1 008234 : J,VLM,TRAN 008235 : RET0:,BSS, 008236 : S,ATX, 008237 : S,UTM,-DINBUF 008238 : ,ITA,S 008239 : ,ATX,PDB. 008240 : ,XTA,COD. 008241 : ,AAX,B21. 008242 : ,AOX,PDB 008243 : ,ASN,64+5 008244 : ,ATX,MOUT. 008245 : ,XTA,COD.ПPИЗHAK 008246 : ,AAX,B22.OБHYЛEHИЯ 008247 : ,AOX,MCLE. 008248 : ,ATX,MCLE.CTATИCTИKИ 008249 : S,VTM,I15+3 008250 : RET:,BSS, 008251 : S,XTA, 008252 : ,STI,J 008253 : ,STI,M 008254 : ,ATI,S 008255 : RET1:,WTC,COD. 008256 : ,UJ,. 008257 : C 008258 : C********* CБPOC HAKOПЛEHHOЙ ИHФOPMAЦИИ 008259 : C 008260 : '''''''''''''''''''''''''''''''''''''' 008261 : 'OБPAЩEHИE ИЗ MDRECOGN 008262 : 'ECЛИ MBLO.NE.0 008263 : 'И (MOUT.OR.TSEC).NE.0 008264 : 'HEЛЬЗЯ ПOPTИTЬ ИP 1,2,6 008265 : 'BOЗBPAT ПO ИP 4 008266 : '------------------------------------- 008267 : 'CTPYKTYPA ЗOHЫ CTATИCTИKИ 008268 : 'CЛOBA 008269 : ' 0 KOД 'CTAИHЖ' 008270 : ' 1 KOЛИЧECTBO CЛOB B ЗOHE 008271 : ' ЗAHЯTЫX ДИHAMИЧECKOЙ 008272 : ' ИHФOPMAЦИEЙ, ИЛИ 983, ECЛИ 008273 : ' ЗOHA ПOЛHA ( B ЭTOM CЛYЧAE 008274 : ' ПPИЗHAK KOHЦA ИHФOPMAЦИИ- 008275 : ' CЛOBO COДEPЖAЩEE BCE '1') 008276 : ' 2 AБCOЛЮTHOE BPEMЯ ПOCЛEДHEГO 008277 : ' CБPOCA 008278 : ' 3 BPEMЯ ЖДYЩEГO TECTA 008279 : ' 4 ДATA ИЗ TODAY 008280 : ' 5 PEЗEPB 008281 : ' 6 MAKC. ЧИCЛO CЛOB B DINBUF 008282 : ' 7 ЧИCЛO HEПPИHЯTЫX COOБЩEHИЙ 008283 : ' 8-34 CTATИЧECKAЯ ИHФOPMAЦИЯ 008284 : ' ИЗ DEV, ПPИЧEM KAЖДOE CЛOBO 008285 : ' DEV PACПAKOBЫBAETCЯ B 3 008286 : ' ПOCЛEДOBATEЛЬHЫE ЯЧEЙKИ 008287 : ' 0 24-1 PAЗPЯДЫ ИЗ DEV 008288 : ' 1 48-37 PAЗPЯДЫ ИЗ DEV 008289 : ' 2 36-25 PAЗPЯДЫ ИЗ DEV 008290 : ' 35-39 PEЗEPB 008291 : ' 40-1022 ДИHAMИЧECKAЯ ИHФOPMAЦИЯ 008292 : ' ИЗ DINBUF 008293 : ' 1023 KOД 'CTAИHЖ' 008294 : '''''''''''''''''''''''''''''''''''''' 008295 : C 008296 : NZMAX:,OCT,0000 001 008297 : C (YCTAHABЛИBAETCЯ B STARTDD) 008298 : C 008299 : STATOUT:,ENTRY,. 008300 : ,XTA,BLSTAOUT.CБPOC БЛOKИPOBAH 008301 : RR,U1A, 008302 : :,24,2003B 008303 : ,ATX,NP 008304 : L ,VTM,1-ND. 008305 : ,XTA,PDB. 008306 : SU:L ,AOX,DEV+ND1. 008307 : L ,VLM,SU. 008308 : ,UZA,Z MOUT. 008309 : C......... ПOИCK MЛ ПO ИMEHИ 008310 : M,VTM,THETMЛ 008311 : :,24,3 008312 : P,VTM,-47 008313 : STAPE:P,XTA,MTNAMES+47 008314 : ,AEX,STNAME 008315 : ,UZA,ISTAPE 008316 : P,VLM,STAPE 008317 : ,XTA,MPRI 008318 : ,U1A,ZMOUT 008319 : ,XTA,B9 008320 : ,UJ,TTPR 008321 : ISTAPE:,ATX,PDBD 008322 : P,UTM,47+10B 008323 : ,ITA,P 008324 : ,ASN,64+6 008325 : ,YTA, 008326 : ,AUX,UPM2 008327 : ,ATX,KYC 008328 : ,ARX,B40 008329 : ,AAX,B42 008330 : ,AEX,B42 008331 : ,ASN,64+3 008332 : ,AOX,KYC 008333 : ,ATX,KYC 008334 : M,VTM,SAVP 008335 : ,ITA,M 008336 : ,UJ,NRESCALL 008337 : SAVP:,24,3 008338 : ,ATI,P. 008339 : ,ASN,64-2. 008340 : ,AOX,KYC.N ЛИCTA 008341 : ,ATX,KYC. B KYC 008342 : ,ASN,64+12. 008343 : ,ATX,NP. 008344 : ,NTR,3 008345 : RW,VTM,B18 008346 : ,XTA,MCLE.ЗAHYЛЯTЬ CTAT. 008347 : ,U1A,CLEAR 008348 : E,VJM,EXCH 008349 : P,XTA,. 008350 : ,AEX,STACOD.CTATИCTИKA 008351 : ,UIA,NEW STAT.HE ЗABEДEHA 008352 : P,XTA,1023. 008353 : ,AEX,STACOD. 008354 : ,U1A,NEWSTAT 008355 : C CПACEHИE BPEMEH ИЗ TEK. ЗOHЫ 008356 : P,XTA,2 008357 : ,ATX,Д LAS 008358 : P,XTA,3 008359 : ,ATX,Ж LAS 008360 : P,XTA,1 008361 : ,AEX,MAX C. 008362 : R,VTM,EXCH.ЗOHA 008363 : ,UZA,CHA NZON. - ЗAПOЛHEHA 008364 : OLDSTAT:,BSS, 008365 : ,XTA,DCALL 008366 : ,ARX,FULWOR 008367 : ,AEX,DCALL 008368 : ,AAX,C3 008369 : :,24,2003B 008370 : ,ARX,PDB 008371 : ,A-X,PDBD 008372 : P,ARX,1 008373 : ,A-X,MAX C 008374 : ,U1A,TRANSDB 008375 : C...... ЗOHA ЗAПOЛHEHA 008376 : ,XTA,FULWOR 008377 : P,WTC,1 008378 : P,ATX,BEGDB 008379 : ,XTA,MAX C 008380 : P,ATX,1 008381 : E,VTM,CHANZON 008382 : R,VTM,NEWSTAT 008383 : ,UJ,WRITE 008384 : CHECLE:,24,3 008385 : ,XTA,MCLE.ЗAHYЛЯTЬ CTAT. 008386 : ,UZA,OLD STAT. - HET 008387 : L,VTM,.ЗAПИCЬ BCEГO 008388 : CLEAR:,BSS, 008389 : ,XTA,.ГAШEHИE 008390 : ,ATX,MCLE.ПPИЗHAKA 'ЗAHYЛИ' 008391 : ,XTA,BEGNZON.YCTAH. 008392 : ,ATX,NZON.HAЧ.ЗOHЫ 008393 : NEW STAT:,XTA,. 008394 : M,VTM,1-1022.ПPИBEДEHИE 008395 : ZP: M,UTC,1022.ЛИCTA CTATИC. 008396 : P,ATX,.B ИCXOДHOE 008397 : M,VLM,ZP.COCTOЯHИE 008398 : ,XTA,STACOD. 008399 : P,ATX,. 008400 : P,ATX,1023.... 008401 : TRANSDB:,BSS, 008402 : ,XTA,PDB 008403 : ,ATX,PDBD 008404 : :,24,3 008405 : P,MTJ,S 008406 : P,WTC,1 008407 : S,UTM,BEGDB 008408 : :,XTA,DCALL.ПEPBOE OБPAЩ. 008409 : ,U1A,TRA1 008410 : C...... ЗAHECEHИE 'KOHEЦ ДИCП'. 008411 : ,XTA,KOH 008412 : ,XTS,Д LAS 008413 : ,XTS,Ж LAS 008414 : S,ATX, 008415 : TRA1:,BSS, 008416 : ,ITA,L. 008417 : ,A-X,PDBD 008418 : ,UZA,ENB 008419 : ,ATI,M 008420 : M,UTM,1 008421 : L,XTA,DINBUF 008422 : TRA2:,BSS, 008423 : L,UTM,1. 008424 : L,XTS,DINBUF 008425 : M,VLM,TRA2 008426 : ENB:,BSS, 008427 : S,UTM,-BEGDB 008428 : ,ITA,S 008429 : ,ATX,DCALL 008430 : ,AAX,C1777 008431 : P,ATX,1. 008432 : E,VJM,WRITE 008433 : :,24,2003B 008434 : ,ITA,L.ПOCTYПИЛA EЩE 008435 : ,AEX,PDB.ИHФOPMAЦИЯ 008436 : ,U1A,CHECLE 008437 : ,ATX,PDB. 008438 : ,ATX,TSEC. 008439 : Z MOUT:,XTA,. 008440 : ,ATX,MOUT. 008441 : ,WTC,NP 008442 : ,ATX,TPHYS 008443 : :,24,3 008444 : RR,UJ,. 008445 : C--------- 008446 : WRITE:,BSS, 008447 : P,MTJ,M 008448 : RW,VTM,1-ND 008449 : PLUS DEV:,24,2003B. 008450 : RW,XTA,DEV+ND1 008451 : ,AAX,B24/1. 008452 : M,ARX,BEGSB 008453 : M,ATX,BEGSB 008454 : RW,XTA,DEV+ND1 008455 : ,ASN,64+24. 008456 : ,AAX,C7777. 008457 : M,ARX,BEGSB+2 008458 : M,ATX,BEGSB+2 008459 : RW,XTA,DEV+ND1 008460 : ,ASN,64+36. 008461 : M,ARX,BEGSB+1 008462 : M,ATX,BEGSB+1 008463 : ,XTA,. 008464 : RW,ATX,DEV+ND1 008465 : :,24,3 008466 : M,UTM,3 008467 : RW,VLM,PLUSDEV 008468 : ,XTA,ABTIME.BPEMЯ ЗAПИCИ 008469 : P,ATX,2. 008470 : ,WTC,YCЖДY. 008471 : ,XTA,-1.BPEMЯ 'ЖДY' 008472 : P,ATX,3. 008473 : ,XTA,TODAY 008474 : P,ATX,4.ДATA ЗAПИCИ 008475 : ,XTA,CNTR.CЧETЧИK 008476 : P,ATX,7. 008477 : ,XTA,MAX PDB. 008478 : P,ATX,6. 008479 : ,A-X,PDB 008480 : ,UZA,EXCH 008481 : ,XTA,PDB. 008482 : ,ATX,MAXPDB. 008483 : C......... ПPOЦEДYPA : ЧTEHИE/ЗAПИCЬ 008484 : EXCH:,XTA,KYC. 008485 : RW,AOX, 008486 : :,AOX,NZON.HOMEP ЗOHЫ 008487 : J,VTM,KYC1 008488 : :,24,2003B.*** OБMEH 008489 : J,ATX, 008490 : ,ATX,SAVAC.HEHYЛEBOЙ 008491 : M,CALL,TRAPHY 008492 : :,24,3 008493 : E,U1A, 008494 : M,VTM,T OБMEH. 008495 : ,XTA,NZON. 008496 : ФИH:,ATX,SAVNZ. 008497 : M,XTA, 008498 : M,VTM,TKOH 008499 : M,ATX,3 008500 : ,XTA,NZON. 008501 : ,A-X,B28 008502 : ,AUX,UPM3. 008503 : ,AOX,CNZ. 008504 : M,ATX,4 008505 : ,XTA, 008506 : :,24,2003B 008507 : ,ATX,MBLO 008508 : TTPR:,BSS, 008509 : ,ATX,MPRI 008510 : ,ITA,M 008511 : M,VTM,ZMOUT 008512 : ,UJ,TELOUT 008513 : CHA NZON:,XTA,NZON. 008514 : ,ARX,B26. 008515 : ,AEX,NZMAX. 008516 : M,VTM,T ПOЛHA. 008517 : ,UZA,ФИH 008518 : ,AEX,NZMAX. 008519 : ,ATX,NZON. 008520 : R,UJ,. 008521 : STACOD:,ISO,6HCTAИHЖ 008522 : MAX C:,,. 008523 : ,,983. 008524 : UPM2:,LOG,70 0000 0000 1600. 008525 : T HETMЛ:,ISO,18HMЛ CTATИCTИKИ'41''' 008526 : T KOH:,ISO,30HCTATИCTИKA ЗAKPЫTA(OБMEH-0000) 008527 : ,LOG,. 008528 : T OБMEH:,ISO,6H(OБMEH 008529 : T ПOЛHA:,ISO,6H(ПOЛHA 008530 : UPM3:,GOST,6H'377''77'7770 008531 : CNZ:,ISO,6H-0000) 008532 : KOH:1,Z00,. 008533 : ,Z01,. 008534 : Д LAS:,BSS,1. 008535 : Ж LAS:,BSS,1. 008536 : CNTR:,LOG,. 008537 : MCLE:,BSS,1. 008538 : MAXPDB:,BSS,1. 008539 : MPRI:,BSS,1. 008540 : NP:,BSS,1. 008541 : KYC:,BSS,1. 008542 : KYC1:,BSS,1 008543 : PDBD:,BSS,1 008544 : COD:,BSS,1. 008545 : I15:,BSS,3 008546 : ,END,. 008547 : STAT TT:,NAME, 008548 : C 008549 : C ПOДПPOГPAMMA CБOPA ИHФOPMAЦИИ O PAБOTE 008550 : C ПOЛЬЗOBATEЛEЙ B TEPMИHAЛЬHЫX ПOДCИCTEMAX 008551 : C 008552 : C YЧET PAБOTЫ ПOЛЬЗOBATEЛEЙ OCYЩECTBЛЯETCЯ 008553 : C ПPИ HAЖATOM 30-M PAЗPЯДE HA 2-M TYMБЛ.P. 008554 : C HOMEP PAЗPЯДA OПPEДEЛЯETCЯ БИTOM B 530-Й 008555 : C ЯЧEЙKE (MAINSW). 008556 : C 008557 : C ИHФOPMAЦИЯ HAKAПЛИBAETCЯ HA MOДEЛИ 008558 : C 9/MONSYS B ЗOHE, HOMEP KOTOPOЙ ЗAДAH 008559 : C B П/П *USESTA (CM.KOMMEHTAPИЙ K HEЙ). 008560 : C 008561 : C CTPYKTYPA ЗOHЫ CTATИCTИKИ: 008562 : C 0-E CЛOBO COДEPЖИT CПEЦKOД, 008563 : C 1 - 1019 - BPEMЯ PAБOTЫ (B CEKYHДAX) B 008564 : C TEPMИHAЛЬHЫX ПOДCИCTEMAX ПOЛЬЗOBATEЛEЙ 008565 : C COOTBETCTBEHHO TAБЛИЦE PASS; 008566 : C 1020 - ДATA HAЧAЛA CБOPA CTATИCTИKИ, 008567 : C 1021 - BPEMЯ HAЧAЛA CБOPA CTATИCTИKИ; 008568 : C 1022 - ДATA ПOCЛEДHEЙ KOPPEKTИPOBKИ, 008569 : C 1023 - BPEMЯ ПOCЛEДHEЙ KOPPEKTИPOBKИ. 008570 : C 008571 : C ЗOHA OФOPMЛЯETCЯ ABTOMATИЧECKИ ПPИ ПOPЧE 008572 : C CПEЦKOДA. 008573 : C 008574 : C ИHФOPMAЦИЯ KOPPEKTИPYETCЯ: 008575 : C - ПPИ BXOДE KOГO-ЛИБO B MYЛЬTИTAЙП; 008576 : C - ПPИ OTBЯЗKE KAHAЛA OT MYЛЬTИTAЙПA; 008577 : C - ПPИ ЗAXBATE KAHAЛA ЭKCTP. NRESLINE; 008578 : C - ПPИ OTBЯЗKE KAHAЛA OT NRESLINE; 008579 : C - 1 PAЗ B MИHYTY, ECЛИ ECTЬ ПPИBЯЗAHHЫE 008580 : C KAHAЛЫ. 008581 : C 008582 : C B KAЧECTBE METKИ OДHOГO ИЗ YKAЗAHHЫX CO- 008583 : C БЫTИЙ ИCПOЛЬЗYETCЯ ЯЧEЙKA 531 (MAINSW). 008584 : C ПPИ ПPИBЯЗKE/OTBЯЗKE ПOЛЬЗOBATEЛЯ OHA 008585 : C OБHYЛЯETCЯ, A ПOCЛE KOPPEKTИPOBKИ B HEE 008586 : C ЗAHOCИTCЯ ЛИБO HOBAЯ METKA BPEMEHИ (AБ- 008587 : C COЛЮTHOE BPEMЯ PAБOTЫ CИCTEMЫ), ЛИБO 008588 : C "БECKOHEЧHOE" BPEMЯ, ECЛИ ПPИBЯЗAHHЫX 008589 : C KAHAЛOB HET ИЛИ CБOP CTATИCTИKИ ЗAKPЫT. 008590 : C 008591 : C 008592 : NR/STAT:,SUBP, 008593 : NRESCALL:,SUBP, 008594 : NRESOFF:,SUBP, 008595 : MD/RET:,SUBP, 008596 : C 008597 : TPHYS:,LC, 008598 : *TLSIZE:LC,BLOCK,(1),XPCH 008599 : NPCH1:,WEQ,XPCH 008600 : NPCH:,EQU,NPCH1-1.ЧИCЛO TEPMИHAЛOB 008601 : *TLBUFI:LC,BLOCK,CIN 008602 : OWNER:,EQU,3 008603 : C 008604 : *TLWORK:,LC,NPCH1 008605 : COWNER:,EQU,*TLWORK.BЛAДEЛЬЦЫ 008606 : OLDTIME:,EQU,COWNER.BPEMЯ CБPOCA 008607 : NEWTIME:,EQU,531B.KOHTP.TOЧKA 008608 : STAT IS:,EQU,530B.БИT CTAT. HA TP2 008609 : *USESTA:LC,BLOCK,(3),STPOINT. ЗOHA CБPOCA 008610 : C 008611 : ABTIME:,LC, 008612 : ASTIME:,EQU,542B 008613 : TODAY:,LC, 008614 : C 008615 : *677:B,BLOCK,BITS 008616 : ,CONT,(30) 008617 : ,CONT,B18 008618 : C1777:,LC,1 008619 : *6:,BLOCK,B(4),NP,P,E(0),L,J,R,S 008620 : C 008621 : SMASAV:LC,BLOCK,SAVAC 008622 : C 008623 : C 008624 : B,REL,* 008625 : C 008626 : ,XTA,ABTIME 008627 : ,ATX,TIME 008628 : C--- HYЖHO ЛИ ДOБABЛEHИE BPEMEH 008629 : ,XTA,OLDTIME 008630 : ,UZA,NEWDELTA.HET HИKOГO 008631 : :,24,3 008632 : ,A+X,PAUSE 008633 : ,A-X,TIME 008634 : ,UZA,OLDDELTA.MAЛA ПAYЗA 008635 : C--- ФOPMИPOBAHИE KYC'A ЧTEHИЯ ЗOHЫ CTAT. 008636 : ,XTA,STPOINT 008637 : ,ASN,64-25 008638 : ,ARX,EXPOINT 008639 : ,ATX,KYC 008640 : C--- ЗAKAЗ ЛИCTA ДЛЯ OБMEHA 008641 : R,VTM,OLDCHAN 008642 : ,ITA,R 008643 : ,UJ,NRESCALL 008644 : OLDDELTA:,XTA,OLDTIME 008645 : ,ATX,TIME 008646 : ,XTA, 008647 : ,UJ,NEWDELTA 008648 : OLDCHAN:,24,3 008649 : ,ATI,P.AДPEC ЛИCTA 008650 : ,ASN,64+10 008651 : ,ATI,NP.HOMEP ЛИCTA 008652 : C--- ЧTEHИE ЗOHЫ CTATИCTИKИ 008653 : ,ASN,64-12 008654 : ,AOX,KYC 008655 : E,VJM,EXCH 008656 : C--- KOPPEKTИPOBKA BPEMEHИ CБPOCA 008657 : ,XTA,TODAY 008658 : P,ATX,1022.ДATA ЗAПИCИ 008659 : ,XTA,ASTIME 008660 : P,ATX,1023.ACTP.BPEMЯ 008661 : C--- ПPOBEPKA ЗOHЫ 008662 : P,XTA, 008663 : ,AEX,CODE 008664 : ,UZA,CORR OWN 008665 : C--- ФOPMИPOBAHИE ЗOHЫ CTATИCTИKИ 008666 : P,MTJ,S 008667 : :,24,3 008668 : ,XTA,CODE 008669 : ,XTS, 008670 : R,VTM,1 - 1018.CЛOBA ЗOHЫ 008671 : NULL:S,ATX,. 1...1018 008672 : R,VLM,NULL 008673 : P,XTS,1022. ...1019 008674 : P,XTS,1023. ...1020 008675 : C--- COOБЩEHИE OПEPATOPY 008676 : J,UTM,NEWS - KYC 008677 : ,ITS,J. ...1021 008678 : R,CALL,TELOUT 008679 : C--- KOPPEKTИPOBKA BPEMEHИ PAБOTЫ USER'OB 008680 : CORR OWN:,24,3 008681 : L,VTM,1-NPCH 008682 : CORR:L,XTA,COWNER+NPCH 008683 : ,UZA,EC.TEPM. CBOБOДEH 008684 : ,ATI,J.HOMEP PASS 008685 : P,J+M,J 008686 : ,XTA,TIME 008687 : ,A-X,OLDTIME 008688 : J,A+X, 008689 : J,ATX, 008690 : EC:L,VLM,CORR 008691 : C--- CБPOC CTATИCTИKИ 008692 : ,XTA,KYC 008693 : ,AEX,B18 008694 : E,VTM,END EX 008695 : C--- ПOДПPOГPAMMA OБMEHA 008696 : EXCH:J,VTM,KYC 008697 : J,ATX, 008698 : ,ATX,SAVAC 008699 : R,CALL,TRAPHY 008700 : E,U1A, 008701 : C--- OБMEH HE ПPOШEЛ 008702 : J,UTM,BADEX - KYC 008703 : ,ITA,J 008704 : R,CALL,TELOUT 008705 : C--- OCBOБOЖДEHИE OБMEHHOГO ЛИCTA 008706 : END EX:,XTA, 008707 : NP,ATX,TPHYS 008708 : C--- YCTAHOBKA KOHTPOЛЬHOГO BPEMEHИ 008709 : NEWDELTA:,24,3 008710 : S,VTM,OLDTIME 008711 : ,XTS,2.BECTИ ЛИ ДAЛЬШE 008712 : ,AAX,STAT IS.CTATИCTИKY? 008713 : ,UZA,RET.ЗAKPЫЛИ 008714 : ,XTA,MAXTIME 008715 : ,STX,NEWTIME 008716 : C--- KOPPEKTИPOBKA BЛAДEЛЬЦEB TEPMИHAЛOB 008717 : L,VTM,1-NPCH 008718 : COWN:L,XTS,CIN+NPCH 008719 : ,ATI,J 008720 : ,ITA,J 008721 : ,UZA,CLOW 008722 : J,XTA,OWNER 008723 : ,AAX,C1777.HOMEP PASS'A 008724 : CLOW:L,ATX,COWNER+NPCH 008725 : S,AOX, 008726 : L,VLM,COWN 008727 : ,UZA,RET.HET USER'OB 008728 : ,XTA,TIME 008729 : :,24,2003B 008730 : ,XTS,NEWTIME. TIME -> OLDTIME 008731 : ,UZA,NEWDELTA.COБЫTИE B T.C. 008732 : ,XTA,TIME 008733 : ,A+X,DELTA 008734 : ,ATX,NEWTIME 008735 : C--- KOHEЦ PAБOTЫ 008736 : RET:,XTA,I/RET 008737 : ,UJ,NRESOFF 008738 : I/RET:,Z00,NR/STAT 008739 : ,Z00,MD/RET 008740 : C 008741 : CODE:,ISO,6HT/STAT 008742 : C 008743 : NEW S:,ISO,24HOTKPЫTA TEPM.CTATИCTИKA'' 008744 : BAD EX:,ISO,24HTEPM.CTATИCTИKA - OБMEH'' 008745 : C 008746 : PAUSE:,REAL,5.0 008747 : DELTA:,REAL,60.0 008748 : MAXTIME:,OCT,775 008749 : EXPOINT:,OCT,0014 0010 0040 008750 : KYC:,BSS,1 008751 : TIME:,BSS,1 008752 : ,END, 008753 : *STATBUF:,NAME,. 008754 : ,LOG,1.PAЗP.CTATИC. 008755 : ,LOG,0.HE HAДO CБPOCA 008756 : ,TEXT,8HD73STA '6' 008757 : ,OCT,0000 0010.ЗOHA HAЧAЛA 008758 : ,LOG,107.L ДИH.БYФ. - 1 008759 : ,LOG,0.YKAЗ.ДИH.БYФ. 008760 : ,LOG,0.BЫЗBAH ДИCП. 008761 : ,BSS,9.YCTPOЙCTBA 008762 : ,BSS,110B.ДИH.БYФEP 008763 : ,END,. 008764 : CALCPRT:,NAME, 008765 : *700:B,BLOCK,(20),BIT28(21),BIT7 008766 : *YCЫ:LC,BLOCK,TIFJA 008767 : TABPRT:LC,BLOCK,TPRT 008768 : '''''''''''''''''''''''''''''''''''''' 008769 : 'TAБЛИЦA ПPИOPИTETOB ФИЗИЧECKИX 008770 : 'CTPAHИЦ TABPRT ИMEET CCЫЛOЧHYЮ 008771 : 'CTPYKTYPY. 008772 : 'CTPAHИЦЫ YПOPЯДOЧEHЫ ПO YБЫBAHИЮ 008773 : 'ПPИOPИTETOB. 008774 : 'CЛOBO 0 TAБЛИЦЫ COДEPЖИT 008775 : ' PAЗPЯДЫ 008776 : ' 30-16 MINP-HOMEP CTPAHИЦЫ C 008777 : ' MИHИMAЛЬHЫM ПPИOPИTETOM 008778 : ' 15-1 MAXP-HOMEP CTPAHИЦЫ C 008779 : ' MAKCИMAЛЬHЫM ПPИOPИTETOM 008780 : 'CЛOBO P COДEPЖИT 008781 : ' PAЗPЯДЫ 008782 : ' 30-16 U-HOMEP CTPAHИЦЫ 008783 : ' ПPEДШECTBYЮЩEЙ P 008784 : ' ПO ПPИOPИTETY 008785 : ' 15-1 L-HOMEP CTPAHИЦЫ 008786 : ' CЛEДYЮЩEЙ ЗA P 008787 : ' ПO ПPИOPИTETY 008788 : '------------------------------------- 008789 : 'ДЛЯ MINP L=0 008790 : 'ДЛЯ MAXP U=0 008791 : '(CTPAHИЦA 0 KAK БЫ CЛEДYET ЗA MINP, 008792 : 'A ЗA HEЙ CЛEДYET MAXP) 008793 : '''''''''''''''''''''''''''''''''''''' 008794 : *PRT:LC,BLOCK,(2),NC 008795 : *13:,BLOCK,P,L,U 008796 : *13:,BLOCK,I,J,RT 008797 : KU:,EQU,15 008798 : B30/16:LC,BLOCK,MSKNPU 008799 : KNMP:,EQU,21. 008800 : KJOB:,EQU,27. 008801 : EXCHBIT:,EQU,BIT7. 008802 : TPHYS:LC,BLOCK,TPHIZ 008803 : TMATH:,EQU,30B. 008804 : TMP:,EQU,30B. 008805 : TDEFENC:,EQU,40B. 008806 : C37:,LC,1. 008807 : C77:,LC,1. 008808 : MJOB:,EQU,C77. 008809 : FULWOR:LC,BLOCK,ALL7 008810 : C3:,LC,1. 008811 : C7:,LC,1. 008812 : CB8:,EQU,BIT28. 008813 : RETURN:,SUBP,. 008814 : Z28/21:,LC,1 008815 : C 008816 : C... PAБOЧИE ЯЧEЙKИ : 008817 : C 008818 : ST:I,BLOCK,(1),NP,NM,YC,(1) 008819 : C 008820 : ,ATX,NP 008821 : ,ATI,P 008822 : RT,VTM,RETURN 008823 : P,VZM,OPENPAGE 008824 : ,AEX,NC 008825 : ,UZA,OPENPAGE 008826 : P,XTA,TPRT 008827 : ,UZA,OPENPAGE 008828 : ,ATI,L.LNP 008829 : ,ASN,64+KU 008830 : ,ATI,U.UNP 008831 : ,AEX,NP 008832 : ,ASN,64-KU 008833 : L,AEX,TPRT 008834 : L,ATX,TPRT.UNP UPPER LNP 008835 : ,ITA,L.LNP 008836 : ,AEX,NP 008837 : U,AEX,TPRT 008838 : U,ATX,TPRT.LNP LOWER UNP 008839 : ,XTA,NC 008840 : ,ATI,U 008841 : ,ASN,64-KU 008842 : P,ATX,TPRT.NC UPPER NP 008843 : U,XTA,TPRT. 008844 : ,ATI,L.LNC 008845 : ,AAX,MSKNPU 008846 : ,AEX,NP 008847 : U,ATX,TPRT.NP LOWER NC 008848 : ,ITA,U 008849 : ,AEX,NP 008850 : ,ASN,64-KU 008851 : L,AEX,TPRT 008852 : L,ATX,TPRT.NP UPPER LNC 008853 : ,ITA,L.LNC 008854 : P,AEX,TPRT 008855 : P,ATX,TPRT.LNC LOWER NP 008856 : ,XTA,NP 008857 : ,ATX,NC.LAST PAGE WITH NEW PRIORITY 008858 : ,ATI,I 008859 : RT,VTM,RETURN 008860 : C 008861 : C... OTKPЫTИE ЛИCTA ПO ПPИПИCKE 008862 : C И ЗAЩИTE 008863 : C 008864 : C И13 - HOMEP ФИЗ.ЛИCTA 008865 : C И15 - BOЗBPAT 008866 : C ПOPTЯTCЯ И13 - И15 008867 : C 008868 : OPENPAGE:,ENTRY, 008869 : OPENPAGE:,ITA,RT.BOЗBPAT 008870 : 15,VTM,ST 008871 : ,ITS,I.ФИЗ.ЛИCT 008872 : I,XTS,TPHYS 008873 : ,ASN,64-9 008874 : ,AUX,=77000 00077 000077 008875 : 15,ATX,.MAT.ЛИCT 008876 : ,ASN,64+18 008877 : ,ATI,J.Д H З 008878 : ,ASN,64+6 008879 : ,U1A,EXIT.V-PAGE 008880 : J,VIM,NORMAL 008881 : I,XTA,TPRT 008882 : ,U1A,EXIT 008883 : NORMAL:,BSS, 008884 : J,XTA,*YCЫ 008885 : 15,ATX,.A ИПЗ 008886 : ,ARX,NM 008887 : ,ATI,J 008888 : J,XTA,TMATH 008889 : ,AOX,701B.ГACИM 008890 : ,AEX,701B. 47 БИT 008891 : J,ATX,TMATH 008892 : ,XTA,NM 008893 : ,ASN,64-1.ФOPMAЛЬHЫЙ 008894 : I,AOX,TPHYS.ЛИCT ИЛИ 008895 : ,AAX,EXCHBIT.ЗAKPЫT 008896 : ,U1A,EXIT.ПO OБMEHY 008897 : C 008898 : C... OTKPЫTИE ЛИCTA ПO ЗAЩИTE 008899 : C 008900 : ,XTA,NM 008901 : ,AAX,C7 008902 : ,AEX,C7 008903 : ,ATI,J 008904 : J,XTA,BIT28 008905 : ,XTS,NM 008906 : ,ASN,64+3 008907 : ,ATI,I 008908 : ,AEX,C3 008909 : ,ARX,YC 008910 : ,STI,J 008911 : J,AAX,TDEFENC 008912 : J,AEX,TDEFENC 008913 : J,ATX,TDEFENC.B TЗAЩ. 008914 : I,MOD,30B.B PЗ 008915 : C 008916 : C... OTKPЫTИE ЛИCTA ПO ПPИПИCKE 008917 : C 008918 : ,XTA,NM 008919 : ,ASN,64+2 008920 : ,ATI,I 008921 : ,AEX,C7 008922 : 15,ARX,.+YC 008923 : ,STI,J 008924 : ,AAX,C3 008925 : ,ATI,RT 008926 : ,XTA,NP 008927 : ,ASN,64-41 008928 : RT,AUX,KПPИ 008929 : J,AEX,TMP 008930 : RT,AAX,KПPИ 008931 : J,AEX,TMP 008932 : J,ATX,TMP.B TПPИП 008933 : ,ASN,64-8 008934 : ,AUX,Z28/21 008935 : I,MOD,20B.B PП 008936 : C--- 008937 : EXIT:,WTC,ST 008938 : ,UJ, 008939 : C 008940 : C... KOHCTAHTЫ ПPИПИCKИ : 008941 : C 008942 : KПPИ:,LOG,0001 0400 0037 008943 : ,LOG,0002 1000 1740 008944 : ,LOG,0004 2007 6000 008945 : ,LOG,0010 4370 0000 008946 : ST:,BSS,5 008947 : ,END, 008948 : SWING:,NAME, 008949 : SAVIND:,SUBP, 008950 : EXCHJOB:LC,BLOCK,PJOB(2) 008951 : *SWCMN:LC,BLOCK,SBUSYFLG,SWSCAL,RCNT,EXCHSC,SUPRT 008952 : ,CONT,LOWJOB,UPJOB,NOLOW 008953 : ,CONT,CWJOB,STIME,SWINGIF(24) 008954 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 008955 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 008956 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 008957 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 008958 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 008959 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 008960 : *YCЫ: LC,BLOCK,ГYC,RDSCAL 008961 : TASKSTRA:LC,BLOCK,TBUC(6),TBUT(6) 008962 : SCALSTRA:LC,BLOCK,SBUC(6),SRJC(6) 008963 : *PRT:LC,BLOCK,NFMSCAL,NNRFLAG,NC,RP,RP1,RP2 008964 : TABPRT:LC,BLOCK,TPRT 008965 : *TYP/MEM:,LC,1 008966 : I:,EQU,1. 008967 : J:,EQU,2. 008968 : K:,EQU,3. 008969 : L:,EQU,4. 008970 : M:,EQU,5. 008971 : IF:,EQU,6. 008972 : RT:,EQU,11. 008973 : *ИПД:LC,BLOCK,XNF,XNFM,(3),XNC,XNCM 008974 : NMAT:,WEQ,XNC 008975 : NF:,WEQ,XNF 008976 : CWMAT1:,EQU,ГYC+NF 008977 : NCM:,WEQ,XNCM 008978 : NFM:,WEQ,XNFM 008979 : Ш/FULL:,EQU,XNF+11B 008980 : Ш/ПOTOK:,EQU,XNF+12B 008981 : MTRACNT:,EQU,XNF+27B 008982 : ИПЗ/ECTЬ:,EQU,XNF+42B 008983 : SC/SWOUT:,EQU,XNF+46B 008984 : MOЖHOKAЧ:,EQU,XNF+67B 008985 : PRTSW:,EQU,XNF+73B 008986 : SPSC:,EQU,XNF+74B 008987 : *ИПK:LC,BLOCK,*INFBA 008988 : INFEX:,EQU,*INFBA+NCM 008989 : AДP/ИПЗ:,EQU,INFEX+NCM 008990 : CPTIME:,EQU,-1 008991 : BISTIME:,EQU,110B 008992 : BPEMEHA:LC,BLOCK,TC,TB,(2) 008993 : * И П K 1 :,LC, 008994 : SNFM:,EQU,NFM-NF 008995 : PRTSTATM:,EQU,*ИПK1+SNFM 008996 : MONO:,EQU,*ИПK1+NMAT 008997 : ШЛAГБAYM:LC,BLOCK,(5),CALLBSC 008998 : DISREG:LC,BLOCK,C2013 008999 : C177:,LC,1 009000 : C3:,LC,1 009001 : C14:,LC,1 009002 : SCENDJO:,EQU,XNF+77B 009003 : START:,SUBP, 009004 : NMATJ:,EQU,NMAT-1. 009005 : B30/16:,LC,1. 009006 : MSHIFR:,EQU,B30/16 009007 : C37:,LC,1. 009008 : KUP:,EQU,15 009009 : KNP:,EQU,30. 009010 : KNMP:,EQU,21. 009011 : KJOB:,EQU,27. 009012 : KCWP:,EQU,30. 009013 : KCWJOB:,EQU,42. 009014 : C1:,EQU,BIT1. 009015 : C7:,LC,1. 009016 : C1PP:,EQU,BIT1. 009017 : CREAD:,EQU,BIT18. 009018 : OWNBIT:,EQU,BIT48. 009019 : SNBIT:,EQU,BIT29. 009020 : MCW:,EQU,ГYC. 009021 : B48/47:LC,BLOCK,MOWNSW 009022 : B48/31:,LC,1 009023 : CLTMP:,EQU,B48/31 009024 : MINF :,EQU,B48/31 009025 : TPHYS:,LC,32. 009026 : TPHIS:,EQU,TPHYS. 009027 : C-------------- 009028 : C.. ЧTOБЫ HE CMOTPETЬ ЛИCTЫ 009029 : C... 1-Й ПOЛOBИHЫ PEЗИДEHTA : 009030 : *NRP1:,PC, 009031 : XLTP:,EQU,*ИПД+22B 009032 : N1RES:,P/P,(*NRP1)1024 009033 : C----------------- 009034 : C1400:,LC,1 009035 : GTRMASK:,LC,1.CM.GIVTRACK 009036 : *3:B,BLOCK,S33,S32,S27 009037 : *104:B,BLOCK,BUFS27,BUFIW 009038 : CALCPRT:,SUBP, 009039 : KOHHИЗ:,LC, 009040 : LNRT:,P/P,(KOHHИЗ)1024 009041 : Z28/21:,LC,1 009042 : TIFJA:,EQU,*YCЫ. 009043 : C77:,LC,1. 009044 : MNP:,EQU,C177. 009045 : MJOB:,EQU,C77. 009046 : TMATH:,EQU,30B. 009047 : TMP:,EQU,30B. 009048 : TDEFENC:,EQU,40B. 009049 : NPPW:,EQU,41B. 009050 : KJOB/NMP:,EQU,KJOB-KNMP. 009051 : SCW:,EQU,*YCЫ+24B. 009052 : DRIDENT:,LC,1. 009053 : GIVTRACK:,SUBP,. 009054 : SELECT:,SUBP,. 009055 : EXCHBIT:,EQU,BIT7. 009056 : MSWBIT:,EQU,BIT47. 009057 : READSCAL:,LC,1. 009058 : NEWRP:,EQU,NLP. 009059 : SWADR:,EQU,SWINGIF+3. 009060 : SWREG:,EQU,SWINGIF+5. 009061 : SWNCNT:LC,BLOCK,(1). 009062 : WANTCHAN:,LC,1. 009063 : CONTEXCH:,SUBP,. 009064 : FULWOR:,LC,1. 009065 : TAKETR*:,SUBP,. 009066 : FRITRACK:,EQU,TAKETR*. 009067 : C --------------------------------- 009068 : Д H З:,LC,1. 009069 : TANUMB:,EQU,Д H З. 009070 : TRASWI:,SUBP,. 009071 : TRAM70:,EQU,TRASWI. 009072 : IW70:,LC,1. 009073 : CWJFOTRA:,LC,1. 009074 : CWJ:,EQU,CWJFOTRA. 009075 : TRACNT:,LC,1. 009076 : FULQUESC:,LC,1. 009077 : S4CLTA:,EQU,FULQUESC. 009078 : C 009079 : SWING:,BSS,. 009080 : : ,24,3. 009081 : ,XTA,CWJOB. 009082 : ,ATI,IF. 009083 : ,ASN,64+KCWJOB. 009084 : ,ATX,NJOB. 009085 : ,ATX,XOДOK 009086 : C......ПPOBEPKA HEOБXOДИMOCTИ BЫДEЛEHИЯ ПAMЯTИ 1 009087 : ,XTA,RP 009088 : ,ATX,ORP 009089 : ,XTA,RP2. 009090 : ,ATX,RP. 009091 : ,XTA,7. 009092 : ,AOX,*TYP/MEM 009093 : ,AAX,BIT48 009094 : ,U1A,CH2.ЗAПPET PAБOTATЬ B ПAMЯTИ 2. 009095 : M,MTJ,I 009096 : I,UTM,1 009097 : I,VZM,LOWCHEK 009098 : ,ITA,M. 009099 : ,ASN,64+7. 009100 : ,UZA,LOWCHEK 009101 : CH2:,XTA,RP2. 009102 : ,ASN,64+5 009103 : ,ATX,SRPFL.HE 0 - ИCKATЬ RP B ПAMЯTИ 1 009104 : ,UZA,LOWCHEK 009105 : ,XTA,RP1. 009106 : ,ATX,RP. 009107 : ,UJ,LOWCHEK 009108 : CH3:,BSS, 009109 : M,UTM,1 009110 : M,VZM,V EXCH 009111 : M,UTM,-1 009112 : ,ASN,64+1 009113 : ,U1A,ЧYЖOE 009114 : ,ITA,M. 009115 : ,AAX,C77. 009116 : ,ATI,M. 009117 : I,VTM, 009118 : J,VTM, 009119 : K,VTM,-1023.ПEPEПИCЬ ЛИCTA 009120 : M,UTC,. 009121 : IF,XTA,TMATH. 009122 : ,ASN,64+KNP. 009123 : ,AAX,MNP 009124 : ,ATX,STMP.N ЛИCTA ПAMЯTИ 2 009125 : ,XTA,RP. 009126 : ,ATX,SNP.KYДA ПEPEKAЧATЬ 009127 : ,ATX,RFINFLG.HE ПOДKAЧKA 009128 : M,UTC,. 009129 : IF,XTA,TMATH. 009130 : ,AAX,=77 7777 7777. 009131 : M,UTC,. 009132 : IF,ATX,TMATH. 009133 : ,ITA,0. 009134 : ,WTC,STMP. 009135 : ,ATX,TPHYS.OTKAЗ OT CTAPOГO ЛИCTA 009136 : 10,VTM,GIVP.ПEPEKAЧKA B 1 ПAMЯTЬ 009137 : ,UJ,READ2M.И OБXOД NPPW 009138 : RTCH:,BSS,. 009139 : IF,XTA,NPPW. 009140 : ,ARX,C1PP. 009141 : IF,ATX,NPPW. 009142 : ,UJ,GIVP 009143 : C--- 009144 : ЧYЖOE:,BSS, 009145 : C... ЗAПPOC ЛИCTA ИЛИ ИПЗ ЧYЖOЙ ЗAДAЧИ 009146 : C 10:15 P.PEГИCTPA M - ДHЗ 009147 : C ИЛИ 1, ECЛИ OT SELECT. 009148 : ,AEX,BIT1 009149 : ,UZA,GIVP 009150 : ,AEX,BIT1 009151 : ,ATX,NJOB 009152 : ,WTC,NJOB 009153 : ,XTA,*YCЫ 009154 : ,ATX,CWJOB 009155 : ,ATI,IF 009156 : GIVP:,BSS,. 009157 : ,ITA,M 009158 : ,AAX,C77 009159 : ,ATI,M 009160 : ,ATX,NMP 009161 : ,XTA,NJOB. 009162 : ,ASN,64-KJOB/NMP. 009163 : ,AOX,NMP. 009164 : ,ASN,64-KNMP. 009165 : ,WTC,RP. 009166 : ,ATX,TPHIS. 009167 : ,XTA,SWNCNT. 009168 : ,ARX,C1. 009169 : ,ATX,SWNCNT. 009170 : ,XTA,NMP 009171 : ,AEX,=50 009172 : ,U1A,HE ИПЗ 009173 : ,XTA,NJOB 009174 : ,ATI,J 009175 : ,XTA,RP 009176 : ,ASN,64-10 009177 : ,ARX,C3 009178 : J,AOX,MCW 009179 : J,ATX,MCW 009180 : ,ATI,IF 009181 : ,XTA,ИПЗ/ECTЬ 009182 : J,AOX,BITS 009183 : ,ATX,ИПЗ/ECTЬ 009184 : J,XTA,AДP/ИПЗ-NFM 009185 : ,U1A,READDRUM.HA BЫKAЧИBAHИE ИПЗ 009186 : RT,VTM,-1023 009187 : :IF,UTC,-3 009188 : RT,ATX,1023 009189 : RT,VLM,*-1 009190 : RT,VTM,START 009191 : ,ITA,RT 009192 : IF,ATX,3 009193 : ,XTA,DISREG 009194 : IF,ATX,5 009195 : ,UJ,NO READ 009196 : HE ИПЗ:,BSS, 009197 : ,XTA,RP. 009198 : ,ASN,64-KNP. 009199 : M,UTC, 009200 : IF,AOX,TMATH. 009201 : M,UTC, 009202 : IF,ATX,TMATH. 009203 : ,ARX,.CHEK OWN BIT48 009204 : ,U1A,READDRUM. 009205 : ,AEX,OWNBIT.CLEAN OWNBIT. 009206 : M,UTC, 009207 : IF,ATX,TMATH. 009208 : ZERO LIS:,BSS, 009209 : ,XTA,RP. 009210 : ,ASN,64-41. 009211 : ,AUX,=1 0400 0037. 009212 : RT,VJM,PTMP.BЫДAЧA ПPИПИCKИ 009213 : : ,24,3. 009214 : ,XTA,DISPZRO. 009215 : :,24,2 009216 : J,VTM,-1023. 009217 : :J,ATX,71777B.POCПИCЬ ЛИCTA 009218 : J,VLM,*. 009219 : : ,24,3. 009220 : ,UJ,NO READ 009221 : C 009222 : C PEAЛИЗAЦИЯ OБMEHA MEЖДY MAT.ЛИCTOM 009223 : C И BИPTYAЛЬHЫM ЛИCTOM ПO ЭK.070. 009224 : C OБPAЩEHИE ИЗ MACRO70 ЧEPEЗ GIVEPAGE 009225 : C PEГИCTP M PABEH -1. 009226 : C IW70 ПEPEДAETCЯ БEЗ ИЗMEHEHИЙ ЧEPEЗ 009227 : C BUFIW - ЯЧEЙKY ИПЗ ЮЗEPA. 009228 : C MAT.ЛИCT YЖE "BЫДEPHYT" B ПAMЯTЬ И 009229 : C ЗAKPEПЛEH TAM 7-M БИTOM B TPHYS. 009230 : C BИPT. ЛИCTЫ ИMEЮT HOMEPA 100-1477 009231 : C И COOTBETCTBYЮT MAT.MБ 0000-2737 009232 : C B TPHYS HOMEP V-ЛИCTA PACПOЛAГAETCЯ 009233 : C B 38-34 И 26-22 PAЗPЯДAX. 009234 : C ФИЗ.HOMEP V-ЛИCTA HAXOДИTCЯ B TAБЛИЦE 009235 : C TPAKTOB MБ C ПPИЗHAKOM "0-E HAПPABЛ." 009236 : C 009237 : V EXCH:,BSS, 009238 : IF,XTA,BUFS27.ПOДГOTOBKA 009239 : IF,ATX,S27.ИПЗ ЗAДAЧИ 009240 : IF,XTA,S32.K BЫXOДY 009241 : IF,ATX,S33.ПOД Э070 009242 : IF,XTA,BUFIW.IW70 009243 : ,ARX,BIT14.+100B 009244 : ,ATX,IW70V 009245 : ,AAX,=370037 009246 : C..... ПOЛYЧEHИE XAP-KИ V-ЛИCTA 009247 : ,ATX,NMP.ДЛЯ TPHYS 009248 : IF,XTA,BUFIW 009249 : ,APX,=370037 009250 : ,ASN,64+38 009251 : ,ATX,DRIDENT 009252 : ,XTA,NJOB 009253 : ,ASN,64-42 009254 : ,AOX,DRIDENT 009255 : ,ATX,DRIDENT 009256 : 7,VJM,GIVTRACK 009257 : ,ASN,64+2 009258 : ,ATX,STMP 009259 : ,ASN,64+7 009260 : ,UZA,HE ИПЗ1 009261 : C..... OФOPMЛEHИE V-ЛИCTA B TPHYS 009262 : ,XTA,NJOB 009263 : ,ASN,64-6 009264 : ,AOX,NMP 009265 : ,ASN,64-KNMP 009266 : ,WTC,RP 009267 : ,ATX,TPHYS 009268 : ,XTA,RP 009269 : ,ATX,STMP 009270 : 14,VZM,ZEROLIS.1-E OБPAЩ. 009271 : ,XTA,IW70V 009272 : ,ARX, 009273 : ,UZA,READDRUM 009274 : ,AAX,BIT40 009275 : ,U1A,READDRUM 009276 : NOREAD:,XTA,C1. 009277 : ,ATX,RFINFLG. 009278 : ,UJ,READDRUM 009279 : LOWCHEK:,BSS, 009280 : ,XTA,PRTSW 009281 : ,UZA,LCH1 009282 : ,XTA,XOДOK 009283 : ,AEX,LOWJOB 009284 : ,UZA,LOWCHEK1 009285 : LCH1:,BSS, 009286 : ,XTA,XOДOK 009287 : ,ATX,UPJOB 009288 : I,VTM,NCM 009289 : K,VTM,1 009290 : ,XTA,NOLOW 009291 : ,U1A,LJSE1 009292 : ,ATX,RST 009293 : ,NTR,3 009294 : LJS:,BSS, 009295 : I,UTM,-1 009296 : I,XTA,BITS+NFM 009297 : ,AAX,RDSCAL 009298 : ,UZA,LJSE 009299 : I,XTA,PRTSTATM 009300 : ,AAX,=77000000 009301 : ,X-A,RST 009302 : ,UZA,LJSE 009303 : ,X-A,RST 009304 : ,ATX,RST 009305 : I,MTJ,K 009306 : K,UTM,NFM 009307 : LJSE:,BSS, 009308 : I,V1M,LJS 009309 : LJSE1:,ITA,K 009310 : ,ATX,LOWJOB 009311 : ,AEX,XOДOK 009312 : K,VTM,1 009313 : ,UZA,LJSE1 009314 : LOWCHEK1:,BSS, 009315 : :,24,2003B 009316 : ,XTA,BIT25 009317 : ,ATX,RCNT 009318 : ,XTA,CALLBSC 009319 : ,AAX,C77 009320 : ,ATI,J.ГOTOBЫE, 009321 : ,XTA,CALLBSC.ДEPЖAЩИE NRESCALL, 009322 : ,ASN,64+6.ЖДYЩИE EГO 009323 : J,AOX,BITS.OCBOБOЖДEHИЯ, 009324 : ,AOX,EXCHSC.ЗAKPЫTЫE ПO OБMEHY, 009325 : ,AOX,RDSCAL.ЗAДAЧИ ИЗ ЧИCЛA 009326 : ,AAX,SPSC.CПEЦИAЛЬHЫX - 009327 : ,WTC,UPJOB. - BOЗMOЖHЫE 009328 : ,AOX,BITS.KAHДИДATЫ B UPJOB'Ы 009329 : ,AAX,Ш/FULL 009330 : ,UZA,ZJ 009331 : ,NTR,3 009332 : 11,CALL,SMAXP.ПOPTИT И1,И13 009333 : ,ITA,13 009334 : ,ATX,UPJOB 009335 : ,AEX,XOДOK 009336 : ,UZA,ZJ 009337 : ,XTA,XOДOK 009338 : ,ATX,LOWJOB 009339 : ZJ:,24,3 009340 : ,XTA, 009341 : ,ATX,PRTSW 009342 : ,ATX,FREE 009343 : ,ATX,NLOWFLG 009344 : ,ATX,NUPFLG 009345 : ,ATX,LOWCNT 009346 : ,ATX,FMCNT 009347 : ,WTC,XLTP.ПOCЛEДHИЙ 009348 : I,VTM,-1.ЛИCT MOЗY 009349 : LOWCH:,BSS,. 009350 : ,XTA,SRPFL 009351 : ,UZA,CHI 009352 : ,ITA,I 009353 : ,ASN,64+5 009354 : ,UZA,CHI 009355 : RT,VJM,CHFIX 009356 : ,U1A,ENDLP 009357 : ,XTA,HOST 009358 : ,AEX,UPJOB 009359 : ,UZA,ENDLP 009360 : ,XTA,LOWCNT 009361 : ,ARX,C1 009362 : ,ATX,LOWCNT 009363 : ,UJ,ENDLP 009364 : CHI:,BSS, 009365 : RT,VJM,CHEK I. 009366 : ,U1A,ENDLP.ЛИCT HE ПOДXOДИT 009367 : ,ITA,I 009368 : ,ASN,64+5 009369 : ,UZA,CHI2 009370 : ,XTA,FMCNT 009371 : ,ARX,C1 009372 : ,ATX,FMCNT.N CTP,ДOCTYПHЫX B 1-Й ПAMЯTИ 009373 : CHI2:,BSS, 009374 : I,XTA,TPHYS 009375 : ,UZA,FREE PAGE 009376 : ,XTA,HOST 009377 : ,AEX,UPJOB 009378 : ,U1A,NONACT 009379 : ENDLP:,BSS, 009380 : I,UTM,-N1RES 009381 : I,VZM,SERCHRES 009382 : I,UTM,N1RES-1 009383 : ,UJ,LOWCH 009384 : CHEK I:,ITA,I. 009385 : ,AEX,RP1. 009386 : ,UZA,NO. 009387 : ,ASN,64+5 009388 : ,UZA,CH ИПЗ 009389 : ,XTA,SRPFL 009390 : RT,U1A,.ПAMЯTЬ 2 HE ПOДXOДИT 009391 : CH ИПЗ:,BSS, 009392 : I,XTA,TPHYS 009393 : ,ASN,64+KNMP 009394 : ,AAX,C77 009395 : ,ATI,J 009396 : ,AEX,=50 009397 : ,UZA,ЭTO ИПЗ 009398 : CHFIX:,BSS, 009399 : I,XTA,TPHYS 009400 : ,ASN,64+KJOB 009401 : ,AAX,MJOB 009402 : ,U1A,NORMP 009403 : J,XTA,NRTABL 009404 : ,WTC,UPJOB 009405 : ,AAX,BITS-19 009406 : ,UZA,N1 009407 : ,XTA,UPJOB.HEPEЗИДEHT 009408 : ,UJ,NORMP.ИCПOЛЬЗOBAЛCЯ UPJOB-OM 009409 : N1:,XTA,LOWJOB 009410 : ,AEX,C1 009411 : ,UZA,NORMP.HET LOWJOB 009412 : J,XTA,NRTABL 009413 : ,WTC,LOWJOB 009414 : ,AAX,BITS-19 009415 : ,UZA,NORMP 009416 : ,XTA,LOWJOB.HEPEЗ-T ИCП-CЯ LOWJOB-OM 009417 : NORMP:,BSS, 009418 : ,ATX,HOST 009419 : ,ITA,I 009420 : ,AEX,RP2 009421 : ,UZA,NO 009422 : I,XTA,TPHIS. 009423 : ,AAX,MEXCHFIX. 009424 : RT,UJ,. 009425 : ЭTO ИПЗ:,BSS, 009426 : I,XTA,TPHYS 009427 : ,ASN,64+KJOB 009428 : ,AAX,MJOB 009429 : ,ATI,K 009430 : K,WTC,MCW 009431 : ,XTA,NPPW 009432 : ,AAX,C177 009433 : RT,U1A, 009434 : K,WTC,MCW 009435 : ,XTA,5 009436 : ,AAX,C14 009437 : ,UZA,CHFIX.ЗAДAЧA B MAT. PEЖ. 009438 : ,XTA,MOЖHOKAЧ 009439 : K,AAX,BITS 009440 : ,U1A,CHFIX 009441 : NO:,XTA,C1. 009442 : RT,UJ,. 009443 : FREE PAGE:,BSS, 009444 : ,ITA,I 009445 : ,ATX,FREE 009446 : NONACT:,ATX,NUPFLG 009447 : ,XTA,LOWCNT 009448 : ,ARX,C1 009449 : ,ATX,LOWCNT 009450 : ,XTA,HOST 009451 : ,AEX,LOWJOB 009452 : ,UZA,ENDLP 009453 : ,ATX,NLOWFLG 009454 : ,XTA,LOWCNT 009455 : ,ASN,64+1 009456 : ,UZA,ENDLP 009457 : ,XTA,NFMSCAL 009458 : ,U1A,END LP. ECTЬ ЗAДAЧИ,ЗAKPЫTЫE ИЗ-ЗA 009459 : C HEXBATKИ ПEPBOЙ ПAMЯTИ 009460 : C 009461 : C SEARCH NEW RESERVE PAGE 009462 : C 009463 : SERCHRES:,BSS, 009464 : :,24,2003B 009465 : ,XTA,NFMSCAL 009466 : ,UZA,FMOK 009467 : ,XTA,FMCNT 009468 : ,ASN,64+1 009469 : ,UZA,FMOK.HET PEЗEPBA ПEPBOЙ ПAMЯTИ 009470 : ,XTA,RDSCAL 009471 : ,AOX,NFMSCAL 009472 : ,ATX,RDSCAL 009473 : ,XTA, 009474 : ,ATX,NFMSCAL 009475 : ,XTA,NFMCNT 009476 : ,ARX,BIT25 009477 : ,ATX,NFMCNT 009478 : FMOK:,BSS, 009479 : ,XTA,FREE 009480 : ,U1A,SCHR 009481 : ,XTA,TPRT 009482 : ,ASN,64+KUP 009483 : SCHR:,BSS, 009484 : :,24,3 009485 : ,ATX,NEWRP.CURRENT N OF LOW PRT PAGE 009486 : ,ATI,I 009487 : RT,VJM,CHEK I. 009488 : ,U1A,SERCHAN. 009489 : ,XTA,HOST 009490 : ,UZA,RESP.CBOБOДHЫЙ HEPEЗИДEHT 009491 : ,AEX,UPJOB 009492 : ,U1A,CHLOW 009493 : ,XTA,NUPFLG 009494 : ,UZA,RESP 009495 : SERCHAN:I,XTA,TPRT 009496 : ,ASN,64+KUP. 009497 : ,AAX,MNP. 009498 : ,U1A,SCHR. 009499 : ,UJ,QUESHUT. 009500 : NRTABL:,SUBP, 009501 : FRINRES:,BSS, 009502 : I,XTA,TPHIS 009503 : ,ASN,64+21. 009504 : ,ATI,J 009505 : ,XTA, 009506 : I,ATX,TPHIS 009507 : J,XTA,NRTABL 009508 : ,AAX,BIT46 009509 : J,ATX,NRTABL 009510 : ,UJ,FRIEPAGE 009511 : CHLOW:,BSS, 009512 : ,XTA,HOST 009513 : ,AEX,LOWJOB 009514 : ,U1A,RESP 009515 : ,XTA,NLOWFLG 009516 : ,U1A,SERCHAN 009517 : RESP:,BSS, 009518 : ,ITA,M 009519 : ,ASN,64+6 009520 : ,UZA,RTCH.ПOДKAЧKA 009521 : ,ASN,64+2 009522 : ,U1A,CH3 009523 : ,UJ,NOREAD.ЗAПPOC ЛИCTA 009524 : READDRUM:,BSS, 009525 : ,XTA,RFINFLG. 009526 : ,U1A,REDYNRP. 009527 : ,XTA,RP. 009528 : RT,VJM,TRACK. 009529 : ,AOX,CREAD. 009530 : ,ATX,INFW. 009531 : ,ATX,INFDR. 009532 : ,XTA,READSCAL. 009533 : ,WTC,NJOB. 009534 : ,AAX,BITS. 009535 : ,U1A,SKIPREAD. 009536 : L,XTA,TPHIS 009537 : ,AOX,EXCHBIT. 009538 : L,ATX,TPHIS 009539 : ,XTA,CWJOB. 009540 : 10,VJM,EXCH. 009541 : 13,VJM,FRITRACK. 009542 : ,XTA,INFW 009543 : ,ARX, 009544 : ,UZA,NOCORW 009545 : ,ASN,64+36 009546 : ,AAX,BIT4 009547 : ,ATX,WANTCHAN 009548 : NOCORW:,BSS, 009549 : : ,24,3 009550 : ,XTA,TRACNT. 009551 : ,ARX,MTRACNT 009552 : ,U1A,REDYNRP. 009553 : ,XTA,RP. 009554 : RT,VJM,RPSHUT. 009555 : REDYNRP:,24,3 009556 : ,WTC,NEWRP 009557 : I,VTM, 009558 : ,XTA,IW70V 009559 : ,UZA,NO VIRT 009560 : C... ДЛЯ V-ЛИCTA OCTABИM B TAБЛ.TPAKTOB 009561 : C HOMEP ФИЗ.ЛИCTA, KYДA BKAЧEH V-ЛИCT 009562 : 13,VJM,FRITRACK 009563 : ,XTA,RP 009564 : ,ASN,64-36 009565 : ,AUX,GTRMASK 009566 : RT,VTM, 009567 : C--- 009568 : COR NPPW:,24,3 009569 : 10,AEX, 009570 : ,AAX,GTRMASK 009571 : 10,AEX, 009572 : 10,ATX, 009573 : ,XTA,DRIDENT 009574 : ,ASN,64+42 009575 : ,ATI,14 009576 : 14,WTC,*YCЫ 009577 : 14,VTM,NPPW 009578 : 14,XTA, 009579 : RT,ARX,C1PP. ИЛИ CM1 ! 009580 : 14,ATX, 009581 : RT,VIM,V WRIT 009582 : C--- 009583 : NO VIRT:,BSS, 009584 : I,XTA,TPHIS 009585 : ,UZA,FRIEPAGE. 009586 : ,AAX,=7777 7770 0777 7777. 009587 : ,UZA,FRINRES 009588 : I,XTA,TPHIS 009589 : ,AOX,EXCHBIT. 009590 : I,ATX,TPHIS. 009591 : ,ASN,64+KNMP 009592 : ,AAX,C77 009593 : ,ATI,10 009594 : 10,UTM,-50B 009595 : I,XTA,TPHYS 009596 : ,ASN,64+KJOB 009597 : ,AAX,MJOB 009598 : ,ATI,K 009599 : K,XTA,TIFJA 009600 : ,ATI,J 009601 : 10,VIM,HEИПЗ2 009602 : ,XTA,Ш/ПOTOK 009603 : K,AAX,BITS 009604 : ,UZA,HEП1 009605 : ,UTC,2 009606 : HEП1:10,VTM, 009607 : ,NTR, 009608 : J,XTA,CPTIME 009609 : 10,A+X,TC 009610 : 10,ATX,TC 009611 : J,XTA,BISTIME 009612 : 10,A+X,TB 009613 : 10,ATX,TB 009614 : HEИПЗ 2:,BSS, 009615 : ,XTA,NEWRP. 009616 : RT,VJM,TRACK. 009617 : ,ASN,64+10.YKAЧИBAEM V-ЛИCT 009618 : ,U1A,NO VIRT1.-HET 009619 : C... OЧИCTKA KЛETKИ TAБЛ.TPAKTOB 009620 : C И ЗAXBAT TPAKTA ДЛЯ YKAЧKИ V-ЛИCTA 009621 : RT,VTM,CM1-C1PP.CYMM.=0 ! 009622 : ,UJ,COR NPPW 009623 : V WRIT:,BSS, 009624 : ,XTA,NEWRP 009625 : RT,VJM,TRACK 009626 : NO VIRT1:,BSS, 009627 : ,ITA,K 009628 : ,ATX,PJOB+1 009629 : K,XTA,TIFJA. 009630 : 10,VJM,EXCH. 009631 : C 009632 : C TAKE NEW RESERVE PAGE FROM THE JOB 009633 : ,WTC,NEWRP 009634 : I,VTM,."EXCH" 009635 : ,WTC,PJOB+1.ПOPTИT 009636 : K,VTM,.I,J,K 009637 : K,WTC,TIFJA 009638 : J,VTM, 009639 : I,XTA,TPHYS 009640 : ,ATX,FREE 009641 : ,AAX,EXCHBIT 009642 : I,ATX,TPHYS 009643 : J,XTA,NPPW 009644 : ,AAX,C177 009645 : ,U1A,HE YПPЯT 009646 : K,XTA,BITS 009647 : ,AEX,ИПЗ/ECTЬ 009648 : ,ATX,ИПЗ/ECTЬ 009649 : K,XTA,MCW 009650 : ,AAX,=77777777 77700000 009651 : K,ATX,MCW 009652 : ,UJ,FRIEPAGE 009653 : HE YПPЯT:,BSS, 009654 : ,XTA,FREE.TPHYS 009655 : ,ASN,64+33 009656 : ,U1A,FRIEPAGE.V-ЛИCT 009657 : J,XTA,NPPW 009658 : ,ARX,CM1 009659 : J,ATX,NPPW 009660 : ,XTA,FREE 009661 : ,ASN,64+KNMP. 009662 : ,AAX,C77 009663 : ,ATI,K. 009664 : K,MTJ,11. 009665 : J,MTJ,13. 009666 : J,J+M,K. 009667 : K,XTA,TMATH. 009668 : ,AAX,CLNP. 009669 : ,AOX,MSWBIT. 009670 : K,ATX,TMATH. 009671 : 5,CALL,CLOSPAGE 009672 : FRIEPAGE:,BSS,. 009673 : ,XTA,RFINFLG. 009674 : ,U1A,HE ИПЗ1 009675 : ,XTA,RP. 009676 : RT,VJM,RPSHUT. 009677 : ,XTA,NMP 009678 : ,AEX,=50 009679 : ,U1A,HEИПЗ 1 009680 : ,XTA,NJOB 009681 : ,ATI,K 009682 : K,XTA,MCW 009683 : ,ATI,J 009684 : I,VTM,0 009685 : ,XTA,Ш/ПOTOK 009686 : K,AAX,BITS 009687 : ,UZA,HEП2 009688 : I,VTM,2 009689 : HEП2:I,XTA,TC 009690 : J,A-X,CPTIME 009691 : I,ATX,TC 009692 : I,XTA,TB 009693 : J,A-X,BISTIME 009694 : I,ATX,TB 009695 : ,XTA,SCENDJO 009696 : K,AAX,BITS 009697 : ,U1A,HE BЫБPOC 009698 : ,XTA,SC/SWOUT 009699 : K,AAX,BITS 009700 : ,UZA,HE BЫБPOC 009701 : ,AEX,SC/SWOUT 009702 : ,ATX,SC/SWOUT 009703 : J,XTA,3.И33 B 009704 : J,ATX,4.И32 009705 : K,XTA,MONO-NF 009706 : J,ATX,3 009707 : ,XTA,C2013 009708 : J,ATX,5 009709 : HE BЫБPOC:,BSS, 009710 : HEИПЗ 1:,BSS, 009711 : ,XTA,IW70V 009712 : ,U1A,TRANSFER 009713 : C 009714 : C SHUT ALL PAGES FOR PRIORITY RECALCULATION 009715 : C 009716 : SHUTPAGS:,BSS, 009717 : ,ATX,NC.FOR ALL PRT RECALC 009718 : I,VTM,-NMATJ.MAX ACCOUNT-1 OF MAT.JOBS 009719 : CLTM0:I,XTA,CWMAT1+NMATJ.TABLE OF CW FOR MATH. JOBS 009720 : ,ATI,J. 009721 : J,VZM,CLTM5 009722 : ,AAX,MSHIFR. 009723 : ,UZA,CLTM5. 009724 : K,VTM,-7. 009725 : CLTM1:K,UTC, 009726 : J,XTA,TMP+7. 009727 : ,AAX,CLTMP.CLEAN TMP 009728 : K,UTC, 009729 : J,ATX,TMP+7. 009730 : K,VLM,CLTM1. 009731 : K,VTM,-3. 009732 : CLTM2:K,UTC,TDEFENC+3. 009733 : J,XTA, 009734 : ,AOX,MDEFENC.ALL 1-S TO DEFENCE BITS 009735 : K,UTC,TDEFENC+3. 009736 : J,ATX, 009737 : K,VLM,CLTM2. 009738 : K,VTM,-39. 009739 : CLTM3:K,UTC,TMATH+39. 009740 : J,XTA, 009741 : ,AAX,MINF.MASK PAGE INFORMATION 009742 : ,UZA,CLTM4.IF PAGE IS ABSENT 009743 : ,AAX,MOWNSW.MASK OWN BIT AND SWING BIT 009744 : ,U1A,CLTM4.NO WORK IS NEEDED 009745 : K,UTC,TMATH+39. 009746 : J,XTA, 009747 : ,AOX,MSWBIT.SHUT PAGE FOR SWINGING 009748 : K,UTC,TMATH+39. 009749 : J,ATX,. 009750 : CLTM4:K,VLM,CLTM3. 009751 : CLTM5:,BSS,. 009752 : I,VLM,CLTM0. 009753 : K,VTM,-LNRT 009754 : CLTM6:,XTA,MSWBIT 009755 : K,AOX,NRTABL+LNRT 009756 : K,ATX,NRTABL+LNRT 009757 : K,VLM,CLTM6 009758 : ,XTA,FULWOR 009759 : ,ATX,PRTVP 009760 : ,ATX,PRTVP+1 009761 : ,ATX,PRTVP+2 009762 : ,ATX,PRTVP+3 009763 : CHEKWRIT:,24,2003B. 009764 : ,XTA,SWSCAL 009765 : ,WTC,XOДOK 009766 : ,AEX,BITS 009767 : ,ATX,SWSCAL 009768 : ,XTA,INFW. 009769 : ,ATX,INFDR. 009770 : ,XTA,NEWRP. 009771 : ,ATX,RP 009772 : RT,VJM,RPSHUT. 009773 : ,XTA,SRPFL. 009774 : ,UZA,SETRP2. 009775 : ,XTA,RP. 009776 : ,ATX,RP1. 009777 : ,UJ,CLFLAGS. 009778 : SETRP2:,XTA,RP. 009779 : ,ATX,RP2. 009780 : ,ASN,64+5. 009781 : ,UZA,CLFLAGS. 009782 : ,XTA,RP1. 009783 : ,ATX,RP.ДЛЯ ИCПOЛЬЗOBAHИЯ B ДP. MECTAX 009784 : CLFLAGS:,XTA,. 009785 : ,ATX,SRPFL. 009786 : ,ATX,IW70V 009787 : ,ATX,RFINFLG. 009788 : SR:,EQU,2. 009789 : ,XTA,SWORKS. 009790 : ,U1A,NRESCALL. 009791 : SR,VTM,SELECT. 009792 : SWINGRET:,ENTRY,. 009793 : : ,24,2003B 009794 : ,ATX,SWINGIF. 009795 : ,XTA,RDSCAL 009796 : ,AEX,SNBIT 009797 : ,ATX,RDSCAL 009798 : ,XTA,LOWJOB 009799 : ,ATI,RT 009800 : ,AEX,XOДOK 009801 : ,UZA,NO P 009802 : ,XTA,LOWCNT 009803 : ,ASN,64+1 009804 : ,UZA,NO P 009805 : RT,XTA,BITS 009806 : ,AAX,SWSCAL 009807 : ,UZA,NO P 009808 : ,ATX,PRTSW 009809 : NO P:,BSS, 009810 : I,VTM,SWING. 009811 : ,ITA,I. 009812 : ,ATX,SWADR. 009813 : ,XTA,C7. 009814 : ,ATX,SWREG. 009815 : ,XTA,. 009816 : ,ATX,SWSCAL. 009817 : ,ATX,SBUSYFLG. 009818 : ,XTA,SWINGIF. 009819 : SR,UJ,. 009820 : QUESHUT:,BSS, 009821 : ,XTA,SRPFL 009822 : ,U1A,CLJOB 009823 : ,XTA,SNBIT 009824 : ,AOX,FULQUESC. 009825 : ,ATX,FULQUESC. 009826 : 15,VJM,SAVIND. 009827 : ,UJ,LOWCHEK. 009828 : C 009829 : C--- PEЗEPBHAЯ CTPAHИЦA ФИKCИPYETCЯ 009830 : C TOЛЬKO ПPИ ПOXOДE OT NRESCALL. 009831 : CLJOB:,24,2003B 009832 : ,WTC,ORP 009833 : ,XTA,TPHYS 009834 : ,UZA,CLJ1 009835 : C COOБЩEHИE ДЛЯ NRESCALL OБ OTЛYПE 009836 : C И PACФИKCAЦИЯ CTAPOГO RP. 009837 : ,ATX,NNRFLAG 009838 : ,XTA, 009839 : ,WTC,ORP 009840 : ,ATX,TPHYS 009841 : CLJ1:,BSS, 009842 : ,XTA,NFMSCAL 009843 : ,WTC,XOДOK 009844 : ,AOX,BITS 009845 : ,ATX,NFMSCAL 009846 : ,XTA,RDSCAL 009847 : ,WTC,XOДOK 009848 : ,AEX,BITS 009849 : ,ATX,RDSCAL 009850 : :,24,3 009851 : ,XTA,NFMCNT 009852 : ,ARX,BIT1 009853 : ,ATX,NFMCNT 009854 : ,XTA,ORP 009855 : ,ATX,RP 009856 : ,UJ,CLFLAGS.ЗAKPЫЛИ ЗAДAЧY ПO ПPИЧИHE 009857 : C OTCYTCTBИЯ ПEPBOЙ ПAMЯTИ И YШЛИ ИЗ ПOДKAЧKИ 009858 : EXCH:,BSS,. 009859 : ,ATX,CWJ. 009860 : ,ATI,13 009861 : *EXCH:,BSS, 009862 : ,XTA,INFW. 009863 : ,ATX,IW70 009864 : : ,24,2003B. 009865 : ,XTA,TRACNT 009866 : ,ARX,MTRACNT 009867 : ,U1A,NOFUL 009868 : ,XTA,S4CLTA 009869 : ,WTC,TANUMB 009870 : ,AOX,BITS 009871 : ,ATX,S4CLTA 009872 : 15,VTM,*EXCH. 009873 : ,UJ,SAVIND 009874 : NOFUL:,BSS, 009875 : : ,24,3. 009876 : ,UJ,TRAM70. 009877 : C --------------------------------- 009878 : C SEARCH TRACK OF DRUM 009879 : TRACK:,ATI,L. 009880 : L,XTA,TPHIS. 009881 : ,ASN,64-15 009882 : ,ATX,INFW 009883 : ,YTA, 009884 : ,ATI,7 009885 : ,XTA,INFW 009886 : ,AUX,=7700 0000 0000 0077 009887 : ,AOX,BIT42 009888 : 7,VZM,M PAGE 009889 : C... V-ЛИCT COOTBETCTBYET MAT.MБ 009890 : ,AEX,BIT42 009891 : ,ATX,INFW 009892 : 7,UTM,-2.-100B 009893 : ,ITA,7 009894 : ,ASN,64-5 009895 : ,AOX,INFW 009896 : M PAGE:,ATX,DRIDENT 009897 : 7,VJM,GIVTRACK 009898 : ,ATX,INFW. 009899 : RT,UJ,. 009900 : SKIPREAD:,BSS,. 009901 : ,XTA,C1. 009902 : ,ATX,RFINFLG. 009903 : 13,VTM,REDYNRP 009904 : ,UJ,FRITRACK 009905 : PTMP:,24,2003B. 009906 : ,ATX,SWINGIF+TMP. 009907 : ,ASN,64-8. 009908 : ,AUX,Z28/21 009909 : ,MOD,27B. 009910 : ,ATI,. 009911 : : ,24,2. 009912 : RT,UJ,. 009913 : C 009914 : C... ПEPEПИCЬ M- И V-ЛИCTOB ПO Э070 009915 : C 009916 : TRANSFER:,ASN,64+30 009917 : ,AAX,C37.MAT.ЛИCT 009918 : ,WTC,NJOB 009919 : ,ARX,*YCЫ 009920 : ,ATI,14 009921 : 14,XTA,TMATH 009922 : ,AOX,BIT46 009923 : ,AEX,BIT46 009924 : 14,ATX,TMATH 009925 : ,ASN,64+30 009926 : ,AAX,C177 009927 : ,ATX,SNP.ФИЗ.ЛИCT 009928 : ,ATI,I 009929 : I,XTA,TPHYS.БИT БЫЛ 009930 : ,AEX,BIT7.ПPOCTABЛEH 009931 : I,ATX,TPHYS.B MACRO70 009932 : ,XTA,IW70V 009933 : I,VTM, 009934 : J,VTM, 009935 : K,VTM,-1023.ЛИCT 009936 : ,ARX, 009937 : ,U1A,TR1024 009938 : K,VTM,-255.AБЗAЦ 009939 : ,ASN,64-2 009940 : ,AAX,C1400 009941 : ,ATI,I 009942 : ,XTA,IW70V 009943 : ,ASN,64+16 009944 : ,AAX,C1400 009945 : ,ATI,J 009946 : ,XTA,IW70V 009947 : TR1024:,AAX,BIT40 009948 : 10,VTM,AFT TRAN 009949 : ,UIA,READ2M 009950 : ,ITA,I 009951 : J,MTJ,I 009952 : ,ATI,J 009953 : I,UTM,-2000B 009954 : J,UTM,2000B 009955 : READ2M:,BSS,. 009956 : ,XTA,SNP 009957 : ,ASN,64-18 009958 : ,AUX,MSKTMP0 009959 : ,ATX,SNP 009960 : ,XTA,STMP 009961 : ,ASN,64-19 009962 : ,AUX,MSKTMP1 009963 : ,AOX,SNP 009964 : C......ПEPEПИCЬ B ПAMЯTЬ 1 009965 : RT,VJM,PTMP.BЫДAЧA ПPИПИCKИ 009966 : :I,XTA,72000B 009967 : J,ATX,70000B 009968 : I,UTM,1 009969 : J,UTM,1 009970 : K,VLM,*-2 009971 : : ,24,3. 009972 : 10,UJ,. 009973 : STMP:,BSS,1. 009974 : SNP:,BSS,1. 009975 : AFT TRAN:,BSS, 009976 : ,XTA,STMP 009977 : ,AAX,C3 009978 : ,ATI,I 009979 : ,XTA,STMP 009980 : ,ASN,64+2 009981 : ,ATI,J 009982 : I,XTA,PRTVP 009983 : J,AAX,BIT48 009984 : ,UZA,NO CLC 009985 : I,AEX,PRTVP 009986 : I,ATX,PRTVP 009987 : ,XTA,DISREG 009988 : :,24,2003B 009989 : ,ATI,27B 009990 : I,VTM,NO CLC 009991 : I,MTJ,33B 009992 : ,XTA,STMP 009993 : ,UJ,CALC PRT 009994 : NO CLC:,24,3 009995 : ,XTA,STMP.БЫЛ ЗAXBAT 009996 : ,AEX,RP.PEЗ.CTPAHИЦЫ 009997 : ,UZA,SHUTPAGS.-ДA 009998 : ,XTA,RP 009999 : ,ATX,NEWRP 010000 : ,UJ,CHEKWRIT.HA BЫXOД 010001 : RPSHUT:,BSS, 010002 : ,ATI,L. 010003 : L,XTA,TPHIS. 010004 : ,AAX,EXCHBIT. 010005 : RT,UZA,. 010006 : L,XTA,TPHIS. 010007 : ,AAX,MSKPJOB. 010008 : ,ATX,PJOB. 010009 : L,AEX,TPHIS. 010010 : ,AOX,NSJOBP. 010011 : L,ATX,TPHIS. 010012 : : ,24,2003B. 010013 : ,ITA,L 010014 : ,ASN,64-KCWP. 010015 : ,AOX,SCW. 010016 : ,ATX,SCW. 010017 : ,XTA,INFDR 010018 : ,ARX, 010019 : ,UZA,BUSYCHAN 010020 : ,ASN,64+39 010021 : ,ATI,14 010022 : 14,XTA,TBUC-1. 010023 : 14,AOX,TBUT-1. 010024 : ,U1A,BUSYCHAN. 010025 : 14,XTA,SRJC-1. 010026 : ,ANX,. 010027 : ,ATI,12. 010028 : 9,VJM,CONTEXCH 010029 : BUSYCHAN:,BSS, 010030 : ,XTA,DRIDENT 010031 : ,ATX,HOST 010032 : 15,VJM,SAVIND.SAVE INDS. AND SHUT SWING 010033 : ,XTA,HOST.ДЛЯ 010034 : ,ATX,DRIDENT.V-ЛИCTOB 010035 : L,XTA,TPHIS. 010036 : ,AAX,MSKPJOB. 010037 : L,AEX,TPHIS. 010038 : ,AOX,PJOB. 010039 : L,ATX,TPHIS. 010040 : RT,UJ,. 010041 : TTENTRY:,ENTRY,. 010042 : DISPBASE:LC,BLOCK,(1),DISMBASE. 010043 : RETURN:,SUBP,. 010044 : NEWTA:,SUBP,. 010045 : TRAPHY:,SUBP,. 010046 : PHEXCH:,EQU,TRAPHY. 010047 : TTANAL:,SUBP,. 010048 : TTPAGE :,P/P,(TTANAL)1024 010049 : BEGTTP :,P*P,(TTPAGE)1024 010050 : : ,24,2003B. 010051 : ,XTA,SBUSYFLG. 010052 : ,U1A,QUE. 010053 : 13,VTM,TELMEM. 010054 : ,ITA,13. 010055 : ,ATX,SWINGIF+3. 010056 : ,XTA,RDSCAL. 010057 : ,AOX,SNBIT. 010058 : ,ATX,RDSCAL. 010059 : ,XTA,SCW 010060 : ,ATX,SBUSYFLG. 010061 : ,UJ,NEWTA. 010062 : QUE:,BSS, 010063 : ,ATX,SWORKS. 010064 : ,UJ,RETURN. 010065 : NRESCALL:,BSS,. 010066 : TELMEM:,BSS,. 010067 : NPTTE:,P/P,(BEGTTP)(256) 010068 : ,XTA, 010069 : ,ATX,SWORKS 010070 : 14,VTM,NPTTE. 010071 : ,ITA,14. 010072 : ,ARX,DISPBASE. 010073 : ,ATX,INFDR. 010074 : ,XTA,RP. 010075 : ,ASN,64-10 010076 : ,ATI,15 010077 : 15,UTM,TTANAL-BEGTTP 010078 : ,ASN,64-2 010079 : ,AOX,INFDR. 010080 : ,AOX,TELINF. 010081 : ,ATX,INFDR. 010082 : 13,VTM,INFDR. 010083 : 14,VJM,PHEXCH. 010084 : : ,24,3. 010085 : 15,UJ,. 010086 : SWORKS:,BSS,1.ECTЬ BЫЗOB TTANAL 010087 : SRPFL:,BSS,1. 010088 : IW70V:,BSS,1 010089 : TELINF:,LOG,140 0000. 010090 : MDEFENC:,LOG,17 74000000. 010091 : CM1:,OCT,77777777 77777776. 010092 : DISPZRO:,OCT,77270707 00000172 010093 : MEXCHFIX:,LOG,101. 010094 : CLNP:,OCT,77760077 77777777. 010095 : MSKPJOB:,OCT,0000077. 010096 : NSJOBP:,OCT,0000024. 010097 : MSKTMP0:,LOG,7777 7777 0400 0037 010098 : MSKTMP1:,LOG,7777 7776 1000 1740 010099 : :,BSS, 010100 : C 010101 : C 010102 : PRT VP:,ENTRY, 010103 : PRTVP:,BSS,4 010104 : NJOB:,BSS,1. 010105 : NLOWFLG:,BSS,1. 010106 : NUPFLG:,BSS,1. 010107 : NLP:,BSS,1. 010108 : HOST:,BSS,1 010109 : RST:,BSS,1 010110 : FREE:,BSS,1 010111 : LOWCNT:,BSS,1 010112 : FMCNT:,BSS,1 010113 : NFMCNT:,BSS,1 010114 : ORP:,BSS,1 010115 : INFW:,BSS,1. 010116 : RFINFLG:,BSS,1. 010117 : INFDR:,BSS,1. 010118 : XOДOK:,BSS,1 010119 : NMP:,BSS,1 010120 : ,END, 010121 : *PRT:,NAME, 010122 : ,BSS,4 010123 : RP1:,LOG,10 010124 : RP2:,LOG,41 010125 : ,END, 010126 : *SWCMN:,NAME,. 010127 : SWING:,SUBP,. 010128 : *ИПД:LC,BLOCK,(1),XNFM(3),XNW 010129 : NFM:,WEQ,XNFM 010130 : NW :,WEQ,XNW 010131 : SBUSYFLG:,OCT,. 010132 : SWSCAL:,OCT,. 010133 : :,LOG,.PAБ.ЯЧ. MAINBLCS И SWING 010134 : :,LOG,.ШK.ЗAДAЧ, ЗAKPЫTЫX ПO OБMEHY 010135 : :,LOG, 00054 00055 00056.SUP/UP/LOWPRT 010136 : ,OCT,. 010137 : ,OCT,. 010138 : ,OCT,. 010139 : CWJOB:,OCT,. 010140 : STIME:,BSS,1. 010141 : SWINGIF:,BSS,3. 010142 : :,Z00,. 010143 : ,Z00,SWING. 010144 : ,OCT,. 010145 : ,LOG,7. 010146 : ,BSS,36B 010147 : ,END, 010148 : STOP:,NAME,. 010149 : C 010150 : C BЫБPOC ЗAДAЧИ ПO ШИФPY 010151 : C 010152 : *ИПД:LC,BLOCK,XNF(4),XNW 010153 : ,CONT,XNC(2),XNSEM 010154 : ,CONT,(34),OUTJOBSC(4),SCOUT 010155 : ,CONT,(1),ROLOUTSC 010156 : STARTCW:,EQU,XNF+45B 010157 : SC/SWOUT:,EQU,XNF+46B 010158 : SCEM*64:,EQU,XNF+61B 010159 : SCENDJO:,EQU,XNF+77B 010160 : NF:,WEQ,XNF 010161 : NC:,WEQ,XNC 010162 : NSEM:,WEQ,XNSEM 010163 : NS1:,EQU,NSEM-1 010164 : *ИПK1:,LC,1 010165 : MONO:,EQU,*ИПK1+NC 010166 : *YCЫ:LC,BLOCK,(1),RDSCAL 010167 : SCALES:LC,BLOCK,(2),S1CLTA,STCLTA 010168 : ,CONT,(5),SCSTOP 010169 : ,CONT,SC/CLJ 010170 : OUTCW:,LC,2 010171 : STATUSMT:LC,BLOCK,(9),W05741(19),ШHГ(4) 010172 : SMASAV:LC,BLOCK,SAVAC 010173 : C----- 010174 : RETURN:,SUBP, 010175 : FULSAV:,SUBP, 010176 : SELECT:,SUBP, 010177 : CLOMIR:,SUBP, 010178 : GIVTRA:,SUBP, 010179 : TELOUT:,SUBP, 010180 : C----- 010181 : B30/16:,LC,1 010182 : B16/1 :,LC,1 010183 : C77777:,LC,1 010184 : DISREG:,LC,1 010185 : C377 :,LC,1 010186 : C37 :,LC,1 010187 : C----- 010188 : *677:B,BLOCK,BITS,BIT48,BIT47 010189 : ,CONT,(7),BIT39 010190 : ,CONT,(37),BIT1 010191 : C----- 010192 : 13,VTM,1 010193 : STOP/NP:,ENTRY, 010194 : ,AAX,C37 010195 : ,UZA,HET 010196 : ,NTR,3 010197 : ,X-A,XNW 010198 : ,ATI,14 010199 : 14,XTA,*YCЫ 010200 : ,ATX,OUTCW 010201 : ,AAX,B30/16 010202 : ,UZA,HET 010203 : 15,VZM,SAVE 010204 : ,XTA,S1CLTA 010205 : 14,AOX,BITS 010206 : 14,AEX,BITS 010207 : ,ATX,S1CLTA 010208 : 14,XTA,BITS 010209 : ,AEX,STARTCW 010210 : 14,AAX,BITS 010211 : ,AOX,OUTJOBSC 010212 : ,ATX,OUTJOBSC. 010213 : 13,VJM,FUL SAV 010214 : 13,VTM,SELECT 010215 : ,XTA,=574 010216 : OUTJOB:,ENTRY, 010217 : 15,VTM,R 010218 : ,ITS,13 010219 : ,XTS,OUTCW 010220 : ,ASN,64+42 010221 : ,ATI,13 010222 : ,XTA,SCENDJO 010223 : ,AOX,SC/SWOUT 010224 : ,AOX,STARTCW 010225 : ,AOX,SCEM*64 010226 : 13,AAX,BITS 010227 : ,U1A,L RET 010228 : ,XTA,OUTJOBSC 010229 : 15,ATX, 010230 : ,ASN,64-6 010231 : ,ITS,14 010232 : ,XTS,BIT 010233 : ,AAX,SCOUT 010234 : ,AOX,RDSCAL 010235 : ,ATX,RDSCAL 010236 : 15,VTM,STCLTA-SC/CLJ 010237 : ,ITA,13 010238 : ,ASN,64-15 010239 : ,CALL,DEL TIMER 010240 : CLE SC:,BSS, 010241 : ,XTA,BIT 010242 : 15,AAX,SC/CLJ 010243 : 15,AEX,SC/CLJ 010244 : 15,ATX,SC/CLJ 010245 : ,YTA,. 010246 : ,AOX,RDSCAL. 010247 : ,ATX,RDSCAL. 010248 : 15,VLM,CLE SC 010249 : 13,VTM,AFTINTAP 010250 : 14,VTM,3 010251 : 15,VTM,-3 010252 : INITTAPE:,ENTRY, 010253 : ,ITA,13 010254 : ,ATX,ITRET 010255 : SENORD:14,XTA,ШHГ-3 010256 : ,ASN,64+8 010257 : 14,AOX,ШHГ-3 010258 : ,AAX,C377 010259 : ,UZA,NL1 010260 : 14,AOX,W05741-3 010261 : 14,ATX,W05741-3 010262 : ,XTA, 010263 : 14,AT X,ШHГ-3 010264 : 15,CALL,TRA TAPE 010265 : 14,MTJ,15 010266 : 15,UTM,-6 010267 : NL1:,BSS, 010268 : 14,UTM,1 010269 : 15,VLM,SENORD 010270 : ,WTC,ITRET 010271 : ,UJ, 010272 : AFTINTAP:,BSS, 010273 : ,XTA,OUTCW. 010274 : ,ATI,15. 010275 : ,ASN,64+42 010276 : ,ATI,14 010277 : 15,VIM,ECTЬ ИПЗ 010278 : 14,XTA,BITS 010279 : ,AOX,SC/SWOUT 010280 : ,ATX,SC/SWOUT 010281 : ,XTA,R 010282 : 14,AEX,MONO-NF 010283 : ,AAX,C77777 010284 : 14,AEX,MONO-NF 010285 : 14,ATX,MONO-NF 010286 : ,UJ,S RET 010287 : ECTЬ ИПЗ:,BSS, 010288 : 15,XTA,3. 010289 : 15,ATX,4.И32 010290 : ,XTA,R. 010291 : 15,ATX,3. 010292 : ,XTA,DISREG. 010293 : 15,ATX,5. 010294 : SRET:,BSS, 010295 : ,XTA,I14 010296 : ,ATI,14 010297 : L RET:,BSS, 010298 : ,WTC,RET 010299 : ,UJ, 010300 : HET:13,VIM,TT 010301 : ,XTA,BIT1 010302 : ,ATX,SAVAC 010303 : ,UJ,RETURN 010304 : TT:,BSS, 010305 : 14,VTM,TEKCT 010306 : ,ITA,14. 010307 : 14,VTM,RETURN. 010308 : ,UJ,TELOUT. 010309 : TEKCT:,ISO,6HHET'''''' 010310 : SAVE:,BSS, 010311 : ,XTA,ROLOUTSC. ПOCTABИTЬ 010312 : ,U1A,HET 010313 : 14,AOX,BITS . BIT 010314 : ,ATX,ROLOUTSC. ЗAДAЧИ 010315 : ,UJ,RETURN.BЫXOД HA SELECT ПO BPEMEHИ 010316 : R:,BSS,1. 010317 : RET:,BSS,1 010318 : BIT :,BSS,1 010319 : BIT/6:,BSS,1 010320 : I14:,BSS,1 010321 : ITRET:,BSS,1 010322 : ,END, 010323 : MACRO50:,NAME, 010324 : COCTABЛEHA A.И.CAЛTЫKOBЫM (OИЯИ) 010325 : C YЧACTИEM Л.Г.KAMИHCKOГO (ИФBЭ) 010326 : C BEPCИЯ 15.01.1975 010327 : C KOЭФФИЦИEHTЫ ПOЛИHOMOB BЗЯTЫ 010328 : C KHИГИ 'COMPUTER APPROXIMATIONS' 010329 : C (ABTOPЫ J.F.HART И ДP., ИЗД-BO 010330 : C JOHN WILEY AND SONS,NEW YORK,1968) 010331 : EMULAT:,SUBP,. 010332 : ERREXT:,SUBP, 010333 : *ERRMAC:,EQU,ERREXT 010334 : NRESCALL:,SUBP, 010335 : NR/CODE:,SUBP, 010336 : *27:,BLOCK,INFSQRT,INFASIN,INFALOG,INFEXP,INFERR 010337 : *YCЫ:LC,BLOCK,Г Y C 010338 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 010339 : ,CONT,SAVI15,SAVI14,SAVI13 010340 : ,CONT,SAVMIR,SAVS16 010341 : BIT48:,EQU,700B 010342 : REAL1:,EQU,EXP0 010343 : X:,EQU,SAVAC 010344 : ARCSIN:,EQU,SAVAC 010345 : NTR:,EQU,SAVSR 010346 : *CB:LC,BLOCK,(13),INT0 010347 : BIT5:,EQU,753B 010348 : K COCEДY:,SUBP, 010349 : C 010350 : C--- 010351 : C 010352 : ,ATX,SAVAC 010353 : ,ITA,14 010354 : ,ASN,64+3 010355 : ,U1A,*ERROR 010356 : ,XTA,SAVAC 010357 : 14,UJ,*BEGIN 010358 : MACRO51:,ENTRY, 010359 : 14,VZM,SIN* 010360 : ,UJ,COS* 010361 : *BEGIN:,BSS, 010362 : 14,VTM,*SQRT 010363 : ,UJ,*SAV 010364 : SIN*:,BSS, 010365 : 14,VTM,*SIN 010366 : ,UJ,*SAV 010367 : MACRO52:,ENTRY, 010368 : COS*:,BSS, 010369 : 14,VTM,*COS 010370 : ,UJ,*SAV 010371 : MACRO53:,ENTRY, 010372 : 14,VTM,*ATAN 010373 : ,UJ,*SAV 010374 : MACRO54:,ENTRY, 010375 : 14,VTM,*ASIN 010376 : ,UJ,*SAV 010377 : MACRO55:,ENTRY, 010378 : 14,VTM,*ALOG 010379 : ,UJ,*SAV 010380 : MACRO56:,ENTRY, 010381 : 14,VTM,*EXP 010382 : ,UJ,*SAV 010383 : MACRO57:,ENTRY, 010384 : 14,VTM,*ENTIER 010385 : ,UJ,*SAV 010386 : *SAV:,BSS, 010387 : ,ATX,X 010388 : ,RTE,77B 010389 : ,ATX,NTR 010390 : ,NTR, 010391 : ,ITA,13 010392 : ,ATX,SAVI13 010393 : ,ITA,15 010394 : ,ATX,SAVI15 010395 : ,XTA,X 010396 : 14,UJ, 010397 : C BЫЧИCЛEHИE SQRT(X) 010398 : C CPEДHEE BPEMЯ CЧETA = 60 MKCEK. 010399 : C MAKC. OTH. ПOГP. =1.5E-12 010400 : C KOPEHЬ ИЗBЛEKAETCЯ TOЧHO ИЗ BCEX 010401 : C X=N**2,ГДE 1.GE.N.LE.2**20 010402 : *SQRT:,BSS, 010403 : 14,VTM,*END 010404 : ,E+N,64 010405 : *SQR:,BSS, 010406 : ,ATX,X 010407 : ,NTR,4 010408 : 14,UZA, 010409 : ,NTR,16 010410 : ,U1A,*ERRSQRT 010411 : ,XTA,X 010412 : ,E-X,X 010413 : ,ATX,Y 010414 : ,A*X,SQ2 010415 : ,A+X,SQ1 010416 : ,A*X,Y 010417 : ,A+X,SQ0 010418 : ,E+N,64+32 010419 : ,ATX,R 010420 : ,XTA,X 010421 : ,ASN,64+1 010422 : ,ATX,Z 010423 : ,XTA,R 010424 : ,E+X,Z 010425 : ,ATX,Y 010426 : ,XTA,Z 010427 : ,NTR,18 010428 : ,UZA,*SQ1 010429 : ,XTA,Y 010430 : ,A*X,SQRT2 010431 : ,ATX,Y 010432 : *SQ1:,XTA,X 010433 : ,A/X,Y 010434 : ,A+X,Y 010435 : ,E+N,64-1 010436 : ,ATX,Y 010437 : ,XTA,X 010438 : ,A/X,Y 010439 : ,A+X,Y 010440 : ,E+N,64-1 010441 : 14,UJ, 010442 : *ERRSQRT:,BSS, 010443 : 14,VTM,INFSQRT 010444 : ,UJ,*ERRMAC 010445 : C BЫЧИCЛEHИE SIN(X) 010446 : C CPEДHEE BPEMЯ CЧETA = 55 MKCEK. 010447 : C MAKC. OTH. ПOГP. = 4.E-12 010448 : C BCEГДA ABS(SIN(X)).LE.1 010449 : C BCEГДA SIN(X)**2+COS(X)**2.LE.1. 010450 : *SIN:,BSS, 010451 : ,AVX,X 010452 : ,A*X,*1/PI 010453 : ,NTR,10 010454 : ,U1A,*S3 010455 : *S1:,BSS, 010456 : ,NTR,3 010457 : ,A+X,INT0 010458 : ,NTR,18 010459 : ,ATX,Y 010460 : ,YTA,64-40 010461 : ,ATX,Z 010462 : ,XTA,Y 010463 : ,ASN,64+8 010464 : ,YTA, 010465 : ,ATX,Y 010466 : ,XTA,Z 010467 : ,NTR,10 010468 : 14,V1M,*S4 010469 : ,X-A,=R.5 010470 : ,UJ,*S2 010471 : *S4:,BSS, 010472 : ,U1A,*S2 010473 : ,X-A,REAL1 010474 : *S2:,BSS, 010475 : ,AVX,Y 010476 : *S3:,BSS, 010477 : ,E+N,64+1 010478 : ,ATX,Z 010479 : ,A*X,Z 010480 : ,ATX,Z**2 010481 : 14,VTM,-5 010482 : ,XTA,SIN6 010483 : *SINL:,A*X,Z**2 010484 : 14,A+X,SIN0 010485 : 14,VLM,*SINL 010486 : ,A*X,Z 010487 : ,AVX,X 010488 : ,UJ,*END 010489 : C BЫЧИCЛEHИE COS(X) 010490 : C CPEДHEE BPEMЯ CЧETA = 55 MKCEK. 010491 : C MAKC. OTH. ПOГP. = 4.E-12 010492 : C BCEГДA ABS(COS(X)).LE.1 010493 : *COS:,BSS, 010494 : ,AVX,X 010495 : ,ATX,X 010496 : ,A*X,*1/PI 010497 : 14,VTM, 010498 : ,UJ,*S1 010499 : C BЫЧИCЛEHИE ATAN(X) 010500 : C CPEДHEE BPEMЯ CЧETA = 90 MKCEK. 010501 : C MAKC. OTH. ПOГP. = 7.E-12 010502 : *ATAN:,BSS, 010503 : ,AVX,X 010504 : ,ATX,Z 010505 : ,XTA, 010506 : ,ATX,Y 010507 : ,XTA,Z 010508 : ,E+N,64-1 010509 : ,U1A,*AT1 010510 : ,XTA,REAL1 010511 : ,A/X,Z 010512 : ,ATX,Z 010513 : ,XTA,PI/2 010514 : ,ATX,Y 010515 : *AT1:,XTA,Z 010516 : ,A*X,Z 010517 : ,ATX,Z**2 010518 : 14,VTM,-2 010519 : *QAT:,BSS, 010520 : 14,A+X,QATAN1 010521 : ,A*X,Z**2 010522 : 14,VLM,*QAT 010523 : ,A+X,QATAN0 010524 : ,ATX,R 010525 : 14,VTM,-3 010526 : ,XTA,PATAN4 010527 : *PAT:,BSS, 010528 : ,A*X,Z**2 010529 : 14,A+X,PATAN0 010530 : 14,VLM,*PAT 010531 : ,A/X,R 010532 : ,A*X,Z 010533 : ,A-X,Y 010534 : ,AMX, 010535 : ,AVX,X 010536 : ,UJ,*END 010537 : C BЫЧИCЛEHИE ASIN(X) 010538 : C CPEДHEE BPEMЯ CЧETA = 80 MKCEK. 010539 : C MAKC. OTH. ПOГP. = 7.E-12 010540 : *ASIN:,BSS, 010541 : ,ATX,ARG 010542 : ,AVX,X 010543 : ,ATX,Z 010544 : 14,VTM,BIT48 010545 : ,NTR,8 010546 : ,U1A,*AS1 010547 : ,X-A,REAL1 010548 : ,U1A,*ERRASIN 010549 : ,E+N,64-1 010550 : 14,VJM,*SQR 010551 : ,ATX,Z 010552 : 14,VTM,PI/2 010553 : *AS1:,BSS, 010554 : 14,XTA, 010555 : ,ATX,ARCSIN 010556 : ,XTA,Z 010557 : ,A*X,Z 010558 : ,ATX,Z**2 010559 : 14,VTM,-2 010560 : *QAS:,BSS, 010561 : 14,A+X,QASIN1 010562 : ,A*X,Z**2 010563 : 14,VLM,*QAS 010564 : ,A+X,QASIN0 010565 : ,ATX,R 010566 : 14,VTM,-2 010567 : ,XTA,PASIN3 010568 : *PAS:,BSS, 010569 : ,A*X,Z**2 010570 : 14,A+X,PASIN0 010571 : 14,VLM,*PAS 010572 : ,A/X,R 010573 : ,A*X,Z 010574 : ,E+X,ARCSIN 010575 : ,A-X,ARCSIN 010576 : ,AMX, 010577 : ,AVX,ARG 010578 : ,UJ,*END 010579 : *ERRASIN:,BSS, 010580 : 14,VTM,INFASIN 010581 : ,UJ,*ERRMAC 010582 : C BЫЧИCЛEHИE ALOG(X) 010583 : C CPEДHEE BPEMЯ CЧETA = 60 MKCEK. 010584 : C MAKC. OTH. ПOГP. = 3.E-12 010585 : C ALOG(1.) B TOЧHOCTИ PABEH 0. 010586 : *ALOG:,BSS, 010587 : ,AVX,SIN1 010588 : ,UZA,*ERRLOG 010589 : ,ATX,X 010590 : ,E-X,X 010591 : ,ATX,Y 010592 : ,A-X,SQRT2/2 010593 : ,ATX,Z 010594 : ,A+X,SQRT2 010595 : ,A/X,Z 010596 : ,ATX,Z 010597 : ,A*X,Z 010598 : ,ATX,Z**2 010599 : 14,VTM,-4 010600 : ,XTA,ALOG5 010601 : ,NTR,2 010602 : *ALOGL:,BSS, 010603 : ,A*X,Z**2 010604 : 14,A+X,ALOG0 010605 : 14,VLM,*ALOGL 010606 : ,A*X,Z 010607 : ,A-X,LN2/2 010608 : ,ATX,R 010609 : ,XTA,X 010610 : ,AAX,=7740 0000 0000 0000 010611 : ,ASN,64+7 010612 : ,AEX,=4320 0000 0000 0000 010613 : ,A*X,LN2 010614 : ,A+X,R 010615 : ,UJ,*END 010616 : *ERRLOG:,BSS, 010617 : 14,VTM,INFALOG 010618 : ,UJ,*ERRMAC 010619 : C BЫЧИCЛEHИE EXP(X) 010620 : C CPEДHEE BPEMЯ CЧETA = 65 MKCEK. 010621 : C MAKC. OTH. ПOГP. = 5.E-12 010622 : *EXP:,BSS, 010623 : ,A*X,*1/LN2 010624 : ,ATX,X 010625 : ,A-X,=R63. 010626 : ,UZA,*ERREXP 010627 : ,A+X,=R127. 010628 : ,U1A,*CZERO 010629 : ,XTA,X 010630 : ,NTR,3 010631 : ,A+X,INT0 010632 : ,ATX,Z 010633 : ,NTR, 010634 : ,YTA,64-41 010635 : ,E+N,64 010636 : ,ATX,Y 010637 : ,XTA,Z 010638 : ,ASN,64+7 010639 : ,YTA, 010640 : ,AEX,BIT48 010641 : ,ATX,Z 010642 : 14,VTM,-6 010643 : ,XTA,EXP7 010644 : *EXPL:,A*X,Y 010645 : 14,A+X,EXP0 010646 : 14,VLM,*EXPL 010647 : ,ATX,R 010648 : ,A*X,R 010649 : ,E+X,Z 010650 : ,UJ,*END 010651 : *CZERO:,XTA, 010652 : ,UJ,*END 010653 : *ERREXP:,BSS, 010654 : 14,VTM,INFEXP 010655 : ,UJ,*ERRMAC 010656 : C BЫЧИCЛEHИE ЦEЛOЙ ЧACTИ X 010657 : C CPEДHEE BPEMЯ CЧETA = 25 MKCEK. 010658 : *ENTIER:,BSS, 010659 : ,NTR,3 010660 : ,A+X,INT0 010661 : ,NTR, 010662 : ,E+N,64 010663 : *END:,XTR,NTR 010664 : ,UJ,END* 010665 : C 010666 : C ,*50,8 - ЮЗEPY BЫДAETCЯ ПEPECEЧEHИE 010667 : C ПYЛЬTOBOГO CЛOBA C MACKOЙ, 010668 : C ЗAДAHHOЙ HA CYMMATOPE. MЛAДШИE БИTЫ 010669 : C PEЗYЛЬTATA KOПИPYЮTCЯ HA 14 PEГИCTP. 010670 : C PAЗPЯДЫ ПYЛЬTOBOГO CЛOBA,COOTBETC- 010671 : C TBYЮЩИE MACKE,ГACЯTCЯ. 010672 : C 010673 : *ERROR:,ASN,64+1 010674 : ,U1A,*ERROR1 010675 : ,XTA,SAVAC 010676 : 14,UTM,-8 010677 : 14,V1M,NRCODE 010678 : ,WTC,Г Y C 010679 : 14,VTM,113B 010680 : 14,AAX, 010681 : 14,AEX, 010682 : 14,ATX, 010683 : ,YTA, 010684 : ,ATI,14 010685 : END*:,MTJ,27B 010686 : 2,IJ, 010687 : NRCODE:,XTA,INFCODE 010688 : ,UJ,NRESCALL 010689 : INFCODE:,Z00,NR/CODE 010690 : ,,13 010691 : *ERROR1:,BSS, 010692 : ,ITA,14 010693 : ,AEX,BIT5 010694 : ,U1A,*ERROR2 010695 : C 010696 : C... ,*50,16 - OБPAЩEHИE K COCEДHEЙ 010697 : C MAШИHE. COOБЩEHИE - HA CYMMATOPE. 010698 : C OTBET COCEДA - TAM ЖE. 010699 : C 010700 : 13,MTJ,14 010701 : ,XTA,SAVAC 010702 : ,CALL,K COCEДY 010703 : 14,MTJ,13 010704 : ,UJ,END* 010705 : C---- 010706 : *ERROR2:,BSS, 010707 : :,XTA,*+1. ПPOБЫ HA 010708 : ,UJ,EMULAT.ИHTEPПPET. 010709 : :8,,.БИT ЭK50 010710 : ,Z00,*+1.BOЗBPAT 010711 : 13,MTJ,16 010712 : ,CALL,SAVEMOD 010713 : 14,VTM,INFERR 010714 : ,UJ,*ERRMAC 010715 : SQRT2:,LOG,4053 2404 7463 1772 010716 : SQRT2/2:,LOG,4013 2404 7463 1772 010717 : LN2:,LOG,4013 0562 0577 3722 010718 : C LN2/2 ПOДПPABЛEHA,ЧTOБЫ ALOG(1.)=0. 010719 : LN2/2:,LOG,3753 0562 0577 3721 010720 : *1/LN2:,LOG,4053 4252 1662 4534 010721 : *1/PI:,LOG,3752 1371 4066 7117 010722 : C KOЭФФ. ДЛЯ SQRT(C.APPROX.,TAБЛ. 130) 010723 : SQ2:,LOG,3722 7260 1675 0030 010724 : SQ1:,LOG,4016 1743 6052 7114 010725 : SQ0:,LOG,3752 0213 6707 6726 010726 : C KOЭФФ. ДЛЯ SIN(C.APPROX.,TAБЛ.3343) 010727 : SIN6:,LOG,2416 5166 1513 5220 010728 : SIN5:,LOG,2720 7264 0601 3034 010729 : SIN4:,LOG,3212 4073 3764 7661 010730 : SIN3:,LOG,3466 3226 4664 4717 010731 : SIN2:,LOG,3652 1465 7063 3344 010732 : SIN1:,LOG,4025 5242 0614 7334 010733 : SIN0:,BSS, 010734 : PI/2:,LOG,4054 4417 6652 1041 010735 : C KOЭФФ. ДЛЯ ATAN(C.APPROX.,TAБЛ.5096) 010736 : PATAN4:,LOG,3710 7122 3773 3234 010737 : PATAN3:,LOG,4157 0706 2006 5256 010738 : PATAN2:,LOG,4315 6767 6144 3655 010739 : PATAN1:,LOG,4356 6662 3433 5452 010740 : PATAN0:,LOG,4351 2633 7131 4703 010741 : QATAN3:,LOG,4251 3705 3401 4651 010742 : QATAN2:,LOG,4353 0352 7361 3334 010743 : QATAN1:,LOG,4410 7710 4234 6022 010744 : QATAN0:,LOG,4351 2633 7131 4705 010745 : C KOЭФФ. ДЛЯ ASIN(C.APPROX.,TAБЛ.4696) 010746 : PASIN3:,LOG,4262 0677 6731 1156 010747 : PASIN2:,LOG,4417 1167 0356 4207 010748 : PASIN1:,LOG,4527 5105 1307 5667 010749 : PASIN0:,LOG,4452 4054 0673 1770 010750 : QASIN3:,LOG,4323 1635 5347 6645 010751 : QASIN2:,LOG,4451 6736 0762 2544 010752 : QASIN1:,LOG,4526 6101 3770 1013 010753 : QASIN0:,LOG,4452 4054 0673 1770 010754 : C KOЭФФ. ДЛЯ ALOG(C.APPROX.,TAБЛ.2664) 010755 : ALOG5:,LOG,3714 5022 4042 0440 010756 : ALOG4:,LOG,3716 1365 6574 3216 010757 : ALOG3:,LOG,3751 1112 4004 6421 010758 : ALOG2:,LOG,3754 6314 6234 5725 010759 : ALOG1:,LOG,4012 5252 5252 6026 010760 : ALOG0:,LOG,4110 0000 0000 0000 010761 : C KOЭФФ. ДЛЯ EXP (C.APPROX.,TAБЛ.1024) 010762 : EXP7:,LOG,3051 4007 7760 5675 010763 : EXP6:,LOG,3211 7406 7125 7531 010764 : EXP5:,LOG,3352 7345 6034 3024 010765 : EXP4:,LOG,3511 6624 3002 3033 010766 : EXP3:,LOG,3616 1530 2351 5710 010767 : EXP2:,LOG,3717 2775 7375 6445 010768 : EXP1:,LOG,4013 0562 0577 4000 010769 : EXP0:,LOG,4050 0000 0000 0000 010770 : Y:,BSS,1 010771 : Z:,BSS,1 010772 : Z**2:,BSS,1 010773 : R:,BSS,1 010774 : ARG:,BSS,1 010775 : ,END, 010776 : NRESCODE:,NAME, 010777 : C 010778 : C***************** E.Д.ФEДЮHЬKИH 3/08/80 010779 : C* 010780 : C* ,*50,9 - KOMAHДA, ЗAДAHHAЯ B MЛAД- 010781 : C* ШИX БИTAX CYMMATOPA, ПPE- 010782 : C* OБPAЗYETCЯ B ФOPMAT ABTOKOДA MADLEN. 010783 : C* PEЗYЛЬTAT (B KOДE ISO) ЗAHИMAET 12 010784 : C* БAЙTOB И PACПOЛOЖEH HA CYMMATOPE 010785 : C* (HAЧAЛO) И B PEГИCTPE MЛAДШИX PAЗ- 010786 : C* PЯДOB (ПPOДOЛЖEHИE). PEЗYЛЬTAT ИMEET 010787 : C* BИД: 010788 : C* MM,KKK AAAAA 010789 : C* 010790 : C* MM - MOДИФИKATOP (ДECЯTИЧHЫЙ) 010791 : C* KKK - KOП (MHEMOHИKA) 010792 : C* AAAAA - AДPEC, MOЖET БЫTЬ ДECЯTИЧ- 010793 : C* HЫЙ ИЛИ BOCЬMEPИЧHЫЙ (OKAH- 010794 : C* ЧИBAETCЯ БYKBOЙ B), MOЖET 010795 : C* COДEPЖATЬ ЗHAK MИHYC. 010796 : C* ECЛИ AДPEC OKAЗAЛCЯ ДЛИHHЫЙ И CYФ- 010797 : C* ФИKC 'B' HE YMECTИЛCЯ B 12 БAЙTOB, 010798 : C* TO ПPИ BЫXOДE ИЗ ЭKCTPAKOДA 14 PEГ 010799 : C* PABEH 1, B OCTAЛЬHЫX CЛYЧAЯX OH 010800 : C* PABEH 0. 010801 : C* 010802 : C*************** A.П.CAПOЖHИKOB 22/12/80 010803 : C* 010804 : C* ,*50,12 - PACПOЗHABATEЛЬ TEKCTOBOЙ 010805 : C* CTPOKИ ( DECODER ). 010806 : C* CTPOKA ПOДAETCЯ B ISO ИЛИ B COSY . 010807 : C* ПPИЗHAK KOHЦA - БAЙT '000' ИЛИ '012'. 010808 : C* ИHФOPMAЦИЯ ДЛЯ ЭKCTPAKOДA HA CYMMA- 010809 : C* TOPE : 010810 : C* 1-15,21-24 P. - ИHДEKCИPOBAHHЫЙ AДPEC 010811 : C* HAЧAЛA CTPOKИ ИЛИ 0, ECЛИ PAБOTA C 010812 : C* TEKYЩEГO MECTA CTPOKИ. 010813 : C* 16 - ПPИЗHAK ПOГЛOЩEHИЯ ПPOБEЛOB 010814 : C* 17 - CИMBOЛЫ '*' И '/' CYTЬ БYKBЫ. 010815 : C* 18 - BOCЬMEPИЧHЫE ЧИCЛA ЗAДAЮTCЯ 010816 : C* БEЗ CYФФИKCA "B" 010817 : C* 19 - ПOCИMBOЛЬHOE CKAHИPOBAHИE 010818 : C* PEЗYЛЬTATOM PAБOTЫ ЯBЛЯETCЯ TИП ФPAГ- 010819 : C* MEHTA B И.P.14 И CAM ФPAГMEHT. ПPO- 010820 : C* БEЛЫ B HAЧAЛE ФPAГMEHTA TИПA "ЧИCЛO" 010821 : C* BCEГДA CГЛATЫBAЮTCЯ. ECЛИ ФPAГMEHT - 010822 : C* ЧИCЛO, TO ЭTO ЧИCЛO BЫДAETCЯ HA CYM- 010823 : C* MATOPE, A B PMP BЫДAETCЯ (1-8P.) 010824 : C* KOД OГPAHИЧИTEЛЯ И (25-33P.) ПOЗИЦИЯ 010825 : C* ЭTOГO OГPAHИЧИTEЛЯ BO BXOДHOЙ CTPOKE. 010826 : C* ECЛИ ФPAГMEHT - ИДEHTИФИKATOP ИЛИ 010827 : C* TEKCT, ЗAKЛЮЧEHHЫЙ B AПOCTPOФЫ, TO 010828 : C* OH BЫДAETCЯ HA CYMMATOPE (HAЧAЛO) И 010829 : C* B PMP (ПPOДOЛЖEHИE). XBOCT TEKCTA 010830 : C* ЗAПOЛHЯETCЯ ПPOБEЛAMИ. ECЛИ TEKCT 010831 : C* БOЛEE 12 CИMBOЛOB, TO ЭTOT ФAKT ЗAПO- 010832 : C* MИHAETCЯ, И OCTATOK TEKCTA БYДET 010833 : C* BЫДAH ПPИ CЛEДYЮЩEM OБPAЩEHИИ. 010834 : C* BOЗMOЖHЫE ЗHAЧEHИЯ И.P.14 : 010835 : C* 0 - OШИБKA, ФPAГMEHT HE PACПOЗHAH 010836 : C* 1 - BOCЬMEPИЧHOE (123B, 99D, -10B) 010837 : C* 2 - ЦEЛOE ( 8000, -999 ) 010838 : C* 3 - BEЩECTBEHHOE (3.62, -3.141E-3) 010839 : C* 4 - ИДEHT. ИЛИ TEKCT B AПOCTPOФAX 010840 : C* 5 - TO ЖE, HO ДЛИHOЙ > 12 CИMBOЛOB 010841 : C* 6 - ПYCTOЙ ФPAГMEHT 010842 : C* B PEЖИME ПOCИMBOЛЬHOГO CKAHИPOBAHИЯ 010843 : C* TEKYЩИЙ CИMBOЛ CTPOKИ BЫДAETCЯ HA 010844 : C* CYMMATOPE (ПPИЖAT BЛEBO И ДOПOЛHEH 010845 : C* ПPOБEЛAMИ) И B 1-8 PP. PMP. 010846 : C* B 25-33 PP. PMP BЫДAETCЯ HOMEP ПOЗИЦИИ 010847 : C* CИMBOЛA B CTPOKE. ПPOБEЛЫ ПPИ HEOБXO- 010848 : C* ДИMOCTИ ПOГЛOЩAЮTCЯ. 010849 : C* TИП CИMBOЛA BЫДAETCЯ B И.P.14: 010850 : C* 0 - KOHEЦ CTPOKИ ('000','012') 010851 : C* 1 - ЦИФPA ( 0 - 9 ) 010852 : C* 2 - БYKBA ( A-Z-Я, ПO ЗAKAЗY: / , * ) 010853 : C* 3 - PAЗДEЛИTEЛЬ (HE ЦИФPA И HE БYKBA) 010854 : C* 010855 : C* 010856 : C* 010857 : C* ,*50,K , ГДE K = 13,14,15 - ENCODER 010858 : C* ФOPMATHЫE ПPEOБPAЗOBAHИЯ 010859 : C* ИЗ ДBOИЧHOГO KOДA B ISO. 010860 : C* ИHФOPMAЦИЯ HA CYMMATOPE : 010861 : C* 25-39,45-48 - ИHДEKCИP.AДPEC BINARY 010862 : C* 1-15,21-24 - ИHДEKCИP.AДPEC BЫXOД- 010863 : C* HOЙ CTPOKИ ИЛИ 0, ECЛИ PEЗYЛЬTAT 010864 : C* ПИШETCЯ C TEKYЩEЙ ПOЗИЦИИ BЫXOДHOЙ 010865 : C* CTPOKИ. 010866 : C* 40-44 - N : ЧИCЛO ПOЗИЦИЙ ДЛЯ PAЗ- 010867 : C* MEЩEHИЯ ПOЛYЧEHHOГO TEKCTOBOГO 010868 : C* ФPAГMEHTA. 010869 : C* 16-19 - M : ЧИCЛO ЦИФP MAHTИCCЫ. 010870 : C* 20 - T : TИП HOPMAЛИЗAЦИИ TEKCTA 010871 : C* ЧИCЛA BHYTPИ CBOEГO N-ПOЛЯ : 010872 : C* ( 1 - BПPABO, 0 - BЛEBO ). 010873 : C* 010874 : C* K=13 - CПEЦИФИKAЦИЯ H : ПEPEHOC B 010875 : C* BЫXOДHYЮ CTPOKY N CИMBOЛOB BXOДHOЙ 010876 : C* CTPOKИ BINARY. T HECYЩECTBEHHO. 010877 : C* ПPИ M=0 CИMBOЛЫ C KOДAMИ <40B 010878 : C* ЗAMEHЯЮTCЯ HA ПPOБEЛЫ. 010879 : C* 010880 : C* K=14 - CПEЦИФИKAЦИЯ O : ПPEOБPA- 010881 : C* ЗOBAHИE BINARY ПO ФOPMATY O 010882 : C* CO BCTABKOЙ OДHOГO ПPOБEЛA ПOCЛE 010883 : C* KAЖДЫX M BOCЬMEPИЧHЫX ЦИФP. 010884 : C* 010885 : C* K=15 - CПEЦИФИKAЦИЯ G : ПPEOБPA- 010886 : C* ЗOBAHИE ПO ФOPMATY I ECЛИ M=0, 010887 : C* ИHAЧE ПO ФOPMATY F. , A 010888 : C* ECЛИ HE BЛEЗAEM B PAЗMEP ПOЛЯ, TO 010889 : C* ПO ФOPMATY E. . 010890 : C* ECЛИ ЗAДAHO M>12, ЧИCЛO БEЗYCЛOBHO 010891 : C* BЫДAETCЯ ПO E-ФOPMATY. 010892 : C* 010893 : C* PEЗYЛЬTAT PAБOTЫ ДЛЯ BCEX TPEX 010894 : C* ЭKCTPAKOДOB: CYMMATOP - ДЛИHA 010895 : C* BЫXOДHOЙ CTPOKИ B CИMBOЛAX, И.P.14 010896 : C* = 1, ECЛИ ПPEBЫШEH PAЗMEP ПOЛЯ, 010897 : C* ИHAЧE И.P.14 = 0 . 010898 : C* B KAЖДЫЙ MOMEHT BPEMEHИ ПOCЛEДHEE 010899 : C* CЛOBO BЫXOДHOЙ CTPOKИ ДOПOЛHEHO ДO 010900 : C* KOHЦA ПPOБEЛAMИ. 010901 : C* 010902 : C*************************************** 010903 : C* 010904 : *YCЫ:LC,BLOCK,ГYC 010905 : SMASAV:LC,BLOCK,SAVAC,SAVSR(2),SAVI15,SAVI14,SAVI13 010906 : C3:,LC,1 010907 : C5:,LC,1 010908 : C7:,LC,1 010909 : C14:,LC,1 010910 : C37:,LC,1 010911 : C77:,LC,1 010912 : C377:,LC,1 010913 : C777:,LC,1 010914 : C7777:,LC,1 010915 : C77777:,LC,1 010916 : B24/1:,LC,1 010917 : FULWOR:,LC,1 010918 : BC1700:,SUBP, 010919 : C50:,EQU,BC1700+5 010920 : C60:,EQU,BC1700+6 010921 : *C:LC,BLOCK,C6 010922 : *CB:LC,BLOCK,(1),C17 010923 : NR/CODE:,SUBP, 010924 : NRESOFF:,SUBP, 010925 : ERRNRES:,SUBP, 010926 : *677:B,BLOCK,BITS 010927 : ,CONT,BIT48,BIT47,BIT46,BIT45 010928 : ,CONT,BIT44,BIT43,BIT42,BIT41 010929 : ,CONT,BIT40,BIT39,BIT38,BIT37 010930 : ,CONT,BIT36,BIT35,BIT34,BIT33 010931 : ,CONT,BIT32,BIT31,BIT30,BIT29 010932 : ,CONT,BIT28,BIT27,BIT26,BIT25 010933 : ,CONT,BIT24,BIT23,BIT22,BIT21 010934 : ,CONT,BIT20,BIT19,BIT18,BIT17 010935 : ,CONT,BIT16,BIT15,BIT14,BIT13 010936 : ,CONT,BIT12,BIT11,BIT10,BIT9 010937 : ,CONT,BIT8, BIT7, BIT6, BIT5 010938 : ,CONT,BIT4, BIT3, BIT2, BIT1 010939 : *135:B,BLOCK,S*COUNT,SYM,CONTI 010940 : ,CONT,SAVE(0),REZAC,R15,FILD 010941 : ,CONT,R14,R13,R27,R11 010942 : ,CONT,ACC,BIN 010943 : ,CONT,W1,W2,W3,W4,W5,W6,W7,W8 010944 : ,CONT,COSY 010945 : COUNT:,EQU,W8 010946 : STAT:,EQU,R14 010947 : CHAR:,EQU,W4 010948 : CMAN:,EQU,W5 010949 : OCT:,EQU,W6 010950 : STAR:,EQU,52B 010951 : MINUS:,EQU,55B 010952 : PLAS :,EQU,53B 010953 : POIN :,EQU,56B 010954 : APOS :,EQU,47B 010955 : LF :,EQU,12B 010956 : KILBL :,EQU,BIT40 010957 : LET*/ :,EQU,BIT41 010958 : SBABS:,EQU,BIT42 010959 : WORS:,EQU,BIT43 010960 : C 010961 : C--- 010962 : C 010963 : START:13,REL,START 010964 : ,WTC,Г Y C 010965 : 15,VTM,SAVE+1 010966 : ,XTA,SAVI15 010967 : ,AEX,SAVSR 010968 : ,ITS, 010969 : 15,ATX, 010970 : ,ITS,32B 010971 : ,ASN,64-15 010972 : ,AEX,SAVI13 010973 : ,ITS,12 010974 : ,ASN,64-15 010975 : ,ITS,27B 010976 : 15,AEX, 010977 : ,ITS,11 010978 : ,XTS,SAVAC 010979 : ,WTC,SAVI14 010980 : 14,VTM, 010981 : ,NTR,3 010982 : :,24,3 010983 : 11,VTM, 010984 : 14,UJ,* 010985 : :,AAX,B24/1 010986 : ,UJ,KOPISO 010987 : :15,XTA, 010988 : ,UJ,RET 010989 : :15,XTA, 010990 : ,UJ,RET 010991 : :,ASN,64-24 010992 : ,UJ,MAKADR 010993 : :11,VTM,H/ENCOD-DECOD 010994 : ,UJ,MAKADR 010995 : :11,VTM,B/ENCOD-DECOD 010996 : ,UJ,MAKADR 010997 : :11,VTM,G/ENCOD-DECOD 010998 : ,UJ,MAKADR 010999 : KOPISO:15,ATX, 011000 : ,AAX,BIT20 011001 : 12,VTM, 011002 : ,U1A,LONG 011003 : ,XTA,AMASK 011004 : 15,AAX,-1 011005 : 15,ATX,-6 011006 : 15,AEX, 011007 : ,ASN,64+12 011008 : 15,ATX, 011009 : ,AAX,C377 011010 : 15,ATX, 011011 : ,A-X,C50 011012 : ,UZA,EX 011013 : RLON:,ASN,64+1 011014 : ,ATI,14 011015 : ,YTA, 011016 : ,UTC,S 011017 : 14,ARX,24B 011018 : 14,UTM,2 011019 : ,UZA,RC 011020 : ,ASN,64+24 011021 : RC:,AAX,B24/1 011022 : ,AEX,BLL 011023 : :,UTC,*+1 011024 : 14,VLM, 011025 : :,UTC,*+1 011026 : 14,VLM, 011027 : REX:15,STX,-9 011028 : 15,AEX, 011029 : ,UZA,REG 011030 : ,A-X,C5000 011031 : ,U1A,LM 011032 : ,UTC,F2-F1 011033 : LM:,ARX,F1 011034 : ,ASN,64-24 011035 : 15,AEX,-7 011036 : 15,ATX,-7 011037 : REG:15,XTA,-5 011038 : ,UZA,ZA 011039 : ,AAX,BIT19 011040 : ,UTC,NOMI 011041 : 12,V1M, 011042 : ,UTC,ADR 011043 : 14,V1M, 011044 : ,U1A,NOMIS 011045 : 15,XTA,-5 011046 : ,ASN,64+4 011047 : ,U1A,ADRPL 011048 : 15,XTA,-5 011049 : ,ASN,64-8 011050 : ,A-X,C5000 011051 : ,UZA,HJ 011052 : ,ARX,F1 011053 : ,AEX,C14 011054 : ,ASN,64-24 011055 : ZA:,AEX,BL 011056 : 15,STX,-5 011057 : RET:11,UTC, 011058 : 11,V1M, 011059 : RETNR:,ATI,11 011060 : ,ITA,13 011061 : ,ARX,OFF 011062 : ,UJ,NRESOFF 011063 : OFF:,Z00,NR/CODE 011064 : ,Z00,OUT-START 011065 : OUT:15,XTA, 011066 : ,ATI,27B 011067 : ,ASN,64+15 011068 : ,STI,12 011069 : ,ATI,13 011070 : ,ASN,64+15 011071 : ,STI,32B 011072 : ,STI,14 011073 : ,AEX, 011074 : 15,XTA,-2 011075 : 15,XTR,-1 011076 : 15,WTC, 011077 : 15,VTM, 011078 : 2,IJ, 011079 : HJ:,AEX,F2 011080 : ,AEX,C14 011081 : ,ASN,64-16 011082 : ,UJ,ZA 011083 : SJ:,XTA,CSJ 011084 : ,UJ,REX 011085 : EX:,ASN,64-1 011086 : ,AEX,C50 011087 : 14,VTM,1 011088 : ,UZA,SJ 011089 : ,XTA,C7 011090 : 15,AAX,-1 011091 : 15,ATX,-9 011092 : 15,AEX,-1 011093 : ,ASN,64-5 011094 : 15,AEX,-9 011095 : ,AEX,C* 011096 : ,UJ,REX 011097 : ADRPL:15,XTA,-5 011098 : ,UJ,ADR1 011099 : ADR:,U1A,NGA 011100 : 15,XTA,-5 011101 : ADR1:,XTS,ZMASK 011102 : 15,STX,-6 011103 : 14,VTM,16 011104 : 12,VTM,3 011105 : ADRN:,ASN,64+3 011106 : ,UZA,L7 011107 : CY:,ASN,64+3 011108 : 14,UTM,8 011109 : 12,UTM,3 011110 : ,U1A,CY 011111 : ,E+N,171B 011112 : 14,ASN,64 011113 : 15,AEX,-5 011114 : 15,UTM,1 011115 : 15,STX,-6 011116 : 12,ASN,64 011117 : ,YTA, 011118 : ,AUX,PMASK 011119 : RL7:15,AEX,-5 011120 : ,AEX,BL 011121 : ,XTS,FULWOR 011122 : 14,ASN,64-40 011123 : 15,AAX, 011124 : ,UJ,ZA 011125 : L7:15,UTM,1 011126 : 15,XTA, 011127 : 14,ASN,64 011128 : ,YTA, 011129 : 14,UTM,-8 011130 : ,UJ,RL7 011131 : TOADRN:15,XTA, 011132 : ,UJ,ADRN 011133 : NGA:15,AEX,-5 011134 : ,UZA,NOMIS 011135 : ,AEX,C7777 011136 : ,ARX,BIT1 011137 : ,XTS,MMASK 011138 : 15,STX,-6 011139 : ,ASN,64+9 011140 : 14,VTM,24 011141 : 12,VTM,6 011142 : 15,UTM,1 011143 : ,UZA,TOADRN 011144 : 15,XTA, 011145 : NB:,ASN,64+15 011146 : ,YTA, 011147 : ,AUX,PMASK 011148 : 15,AEX,-5 011149 : 15,ATX,-5 011150 : ,XTA,BIT1 011151 : 15,STX,-4 011152 : ,UJ,RET 011153 : NOMIS:14,VTM,70000B 011154 : ,ITA,14 011155 : NOMI:15,AEX,-5 011156 : ,XTS,ZMASK 011157 : 15,STX,-6 011158 : ,UJ,NB 011159 : LONG:,XTA,C77777 011160 : 15,AAX,-1 011161 : 15,ATX,-6 011162 : 15,AEX, 011163 : ,AEX,BIT20 011164 : ,ASN,64+12 011165 : 15,ATX, 011166 : ,AAX,C377 011167 : 15,ATX, 011168 : ,ASN,64+3 011169 : 15,XTS,-8 011170 : ,ASN,64+12 011171 : ,UZA,LONG1 011172 : ,AEX,C7 011173 : ,U1A,LONG2 011174 : ,XTA,BMASK 011175 : 15,ARX,-8 011176 : 15,ATX,-8 011177 : LONG1:15,XTA, 011178 : ,UJ,RLON 011179 : LONG2:12,VTM,1 011180 : ,UJ,LONG1 011181 : C 011182 : C--- PAЗБOPKA ИHФ. CЛOBA: 011183 : C 011184 : MAKADR:,BSS, 011185 : 15,UTM,-ACC 011186 : 15,ATX,ACC 011187 : 15,XTA,S*COUNT 011188 : 14,VTM,-1 011189 : MADR:,BSS, 011190 : ,ASN,64-24 011191 : 15,ATX,COUNT 011192 : ,YTA, 011193 : 15,AEX,COUNT 011194 : 15,ATX,COUNT 011195 : 15,XTA,ACC 011196 : ,ASN,64-24 011197 : 15,ATX,ACC 011198 : ,YTA, 011199 : 15,AEX,ACC 011200 : 15,ATX,ACC 011201 : ,ASN,64+15 011202 : ,AAX,C37 011203 : 14,UTC,1 011204 : 15,ATX,FILD 011205 : 15,XTA,ACC 011206 : ,ASN,64+20 011207 : ,AAX,C17 011208 : 15,ATX,REZAC 011209 : ,UZA,MODIF 011210 : ,AEX,C17 011211 : ,UZA,M15 011212 : ,AEX,BIT1 011213 : ,UZA,ERROR 011214 : ,AEX,C3 011215 : ,UZA,M13 011216 : ,AEX,C6 011217 : ,UZA,M11 011218 : 15,WTC,REZAC 011219 : ,ITA, 011220 : MODIF:15,ARX,ACC 011221 : ,AAX,C77777 011222 : ,UZA,CONT 011223 : 15,AEX,COUNT 011224 : 15,ATX,W1 011225 : ,ITA,11 011226 : :,U1A,*+1 011227 : 15,ATX,CONTI 011228 : :15,XTA,W1 011229 : ,AAX,B24/1 011230 : CONT:,BSS, 011231 : 15,AEX,COUNT 011232 : 14,VLM,MADR 011233 : 15,ATX,COUNT 011234 : 11,VZM,DECOD 011235 : ,ASN,64+24 011236 : ,ATI,14 011237 : 15,XTA,FILD+1 011238 : ,AAX,C17 011239 : 15,ATX,FILD+1 011240 : 15,WTC,R27 011241 : :,24, 011242 : 14,XTA, 011243 : :,24,3 011244 : 15,ATX,BIN 011245 : ,XTA, 011246 : 15,ATX,COSY 011247 : 15,ATX,W4 011248 : 11,UJ,DECOD 011249 : M15:15,XTA,R15 011250 : ,UJ,MODIF 011251 : M13:15,XTA,R13 011252 : ,UJ,MODIF 011253 : M11:15,XTA,R11 011254 : ,UJ,MODIF 011255 : C 011256 : C PUTS: ЗACЫЛKA CИMBOЛA B BЫX.CTPOKY 011257 : C OБPAЩEHИE ПO 11 PEГ. CИMBOЛ 011258 : C ПOДAETCЯ B MЛ.PAЗP.CYMMATOPA 011259 : C ПOPTЯTCЯ SYM,W1,W2,W3,12,14 PEГ. 011260 : C GETS: BЫБOPKA CИMBOЛA ИЗ BXOДHOЙ CTPOKИ 011261 : C ПOPTЯTCЯ COSY,W1,W2,W3,12,14 PEГ. 011262 : C CИMBOЛ - B SYM И HA CYMMATOPE. 011263 : C TEKYЩEE CЛOBO BX.CTPOKИ - B BIN. 011264 : C 011265 : GETS:15,XTA,COSY 011266 : ,UZA,GETS1 011267 : ,NTR,3 011268 : ,A-X,BIT1 011269 : GBL1:15,ATX,COSY 011270 : ,XTA,BIT6 011271 : 15,ATX,SYM 011272 : 11,UJ, 011273 : SPUT:,ITA,14 011274 : ,UJ,PUTS 011275 : PUTDIG:11,VTM,DIGIT 011276 : PUTS:15,ATX,SYM 011277 : ,UTC,1 011278 : GETS1:,XTA,GWOR 011279 : 15,ATX,W1 011280 : 15,XTA,COUNT 011281 : 15,ASX,W1 011282 : 15,ATX,W2 011283 : ,ASN,64+15 011284 : ,AAX,C777 011285 : 15,ATX,W3 011286 : ,NTR,3 011287 : ,A*X,C1/6 011288 : ,ATI,14 011289 : 15,WTC,W2 011290 : 14,UTM,.AДPEC 011291 : ,ASN,64-1 011292 : 15,ATX,W2 011293 : ,ASN,64-1 011294 : 15,ARX,W2 011295 : 15,A-X,W3 011296 : ,ASN,64-3 011297 : 15,ATX,W3.CДBИГ=0,8,16... 011298 : 15,WTC,W1 011299 : 12,VTM,-BIT40 011300 : 12,XTA, BIT40 011301 : 15,ARX,COUNT 011302 : 15,ATX,COUNT 011303 : 15,WTC,R27 011304 : :,24, 011305 : 14,XTA, 011306 : :,24,3 011307 : 12,VIM,PUT 011308 : :15,WTC,W3 011309 : ,ASN,64+40 011310 : ,AAX,C377 011311 : 15,ATX,SYM 011312 : ,AAX,BIT8 011313 : ,UZA,GETS2 011314 : 15,AEX,SYM 011315 : ,UJ,GBL1 011316 : GETS2:15,XTA,SYM 011317 : 11,UJ, 011318 : PUT:15,ATX,W1 011319 : 15,XTA,W3 011320 : ,AVX,BIT41 011321 : 15,ATX,W3 011322 : ,AEX, 011323 : ,U1A,PUT1 011324 : ,XTA,BL 011325 : 15,ATX,W1 011326 : PUT1:15,XTA,SYM 011327 : ,AEX,BIT6 011328 : 15,WTC,W3 011329 : ,ASN,64-40 011330 : 15,AEX,W1 011331 : 15,WTC,R27 011332 : :,24, 011333 : 14,ATX, 011334 : :,24,3 011335 : 11,UJ, 011336 : GWOR:11,Z00, 011337 : ,Z00,BIT40 011338 : :8,Z00, 011339 : ,Z00,BIT16 011340 : DECOD:,BSS, 011341 : 15,XTA,CONTI 011342 : ,AAX,BIT46 011343 : 15,ATX,CHAR 011344 : ,U1A,TEXTID 011345 : 15,ATX,REZAC 011346 : 15,ATX,SYM 011347 : 15,ATX,COSY 011348 : 15,XTA,CONTI 011349 : ,AAX,C6 011350 : 15,ATX,STAT 011351 : ,U1A,EXIT 011352 : 15,ATX,OCT 011353 : 15,ATX,CMAN 011354 : 15,ATX,CONTI 011355 : 15,XTA,ACC 011356 : ,AAX,WORS 011357 : ,U1A,ALONE 011358 : 15,ATX,W7 011359 : 11,VJM,GETS 011360 : CH BL:,BSS, 011361 : ,AEX,BIT6.ЛEBЫE 011362 : ,UZA,GETS.ПPOБEЛЫ 011363 : 11,UTM,ANAL-CHBL 011364 : ,UJ,AN1 011365 : TEXTID:,BSS, 011366 : 15,AEX,CONTI 011367 : 15,ATX,CONTI 011368 : ,AOX,BIT3.IDENT 011369 : 15,ATX,STAT 011370 : ,XTA,BL 011371 : 15,ATX,REZAC 011372 : 15,ATX,FILD 011373 : ALONE:11,VJM,GETS 011374 : ANAL:,BSS, 011375 : 15,AOX,CONTI 011376 : ,AEX,BIT6 011377 : ,U1A,AN1 011378 : 15,XTA,ACC 011379 : ,AAX,KILBL 011380 : ,U1A,GETS 011381 : AN 1:,BSS, 011382 : 14,VTM,TABS-1 011383 : 15,XTA,SYM 011384 : ,UZA,IS LF 011385 : ,AEX,=12 011386 : ,U1A,AN/* 011387 : IS LF:14,UTM,KLF-TABS+1 011388 : ,XTA,C6.ПPИЗHAK: 011389 : 15,ATX,CONTI.KOHEЦ CTPOKИ 011390 : ,UJ,ANAL W 011391 : AN/*:,BSS, 011392 : 15,XTA,ACC 011393 : ,AAX,LET*/ 011394 : ,U1A,AN2 011395 : 14,UTM,2 011396 : AN 2:,BSS, 011397 : AN 3:14,UTM,1 011398 : 14,XTA, 011399 : ,AAX,C377 011400 : 15,A-X,SYM 011401 : ,U1A,AN3 011402 : 14,XTA, 011403 : ,ASN,64+8 011404 : ,AAX,C377 011405 : 15,X-A,SYM 011406 : ,U1A,AN3 011407 : ANAL W:15,XTA,ACC 011408 : ,AAX,WORS 011409 : ,UZA,ENTAB 011410 : 14,XTA, 011411 : ,ASN,64+16 011412 : ,AAX,C3 011413 : 15,ATX,STAT 011414 : 15,XTA,SYM 011415 : ,ASN,64-40 011416 : ,AEX,BL 011417 : ,AEX,BIT46 011418 : ,UJ,EX/REZ 011419 : ENTAB:15,WTC,STAT 011420 : ,XTA,TSS 011421 : 14,ASX, 011422 : ,AAX,C77 011423 : ,UZA,ERRN 011424 : ,AEX,C77 011425 : ,U1A,ENT1 011426 : 15,XTA,W7 011427 : ,UZA,SET O.OCTAL 011428 : ,UJ,ETEX2.KOHEЦ TEXT 011429 : ENT1:,AEX,C77.HOPMAЛЬHO 011430 : ,ASN,64+3 011431 : 15,ATX,STAT 011432 : ,YTA, 011433 : ,ASN,64+45 011434 : ,ATI,12 011435 : 15,XTA,SYM 011436 : ,ATI,14 011437 : 12,UJ,SWIST 011438 : TABS:,BSS, 011439 : ,ISO,6H'200'**'2'** 011440 : ,ISO,6H'200'//'2'// 011441 : ,ISO,6H'244'EE'2'EE 011442 : ,ISO,6H'200'БY'2'AZ 011443 : ,ISO,6H'200'БY'2''140''176' 011444 : ,ISO,6H'214'ЦИ'1'09 011445 : ,ISO,6H'260'TЧ'3'.. 011446 : ,ISO,6H'274'++'3'++ 011447 : ,ISO,6H'274'--'3'-- 011448 : ,ISO,6H'310'AP'3''47''47' 011449 : ,ISO,6H'230'OГ'3''''377' 011450 : KLF:,ISO,6H'324'LF'''''' 011451 : TSS:,BSS, 011452 : C 011453 : C ПO BEPTИKAЛИ - COCTOЯHИЯ 011454 : C ПO ГOPИЗOHTAЛИ - CИMBOЛЫ 011455 : C 011456 : C LF ' +- . E OГ ЦИ БY 011457 : C -----:--:--:--:--:--:--:--:--: 011458 : 0,LOG,67 54 60 67 44 67 11 44 .ПYCTO 011459 : L 1,LOG, 37 00 37 20 73 37 11 17 .ЦEЛOE 011460 : L 2,LOG, 27 00 27 00 73 27 21 00 .F-ФOPMAT 011461 : L 3,LOG, 57 00 57 00 00 57 36 00 .E-ФOPMAT 011462 : L 4,LOG, 47 00 47 47 45 47 45 45 .IDENT 011463 : L 5,LOG, 00 47 55 55 55 55 55 55 .TEXT 011464 : L 6,LOG, 07 07 07 00 07 07 11 07 .ЗHAK ЧИCЛA 011465 : L 7,LOG, 00 00 30 00 00 00 36 00 .ЗHAK EXP 011466 : L 10,LOG,77 00 77 77 00 77 00 00. ФИHИШ 011467 : C 011468 : C HA ПEPECEЧEHИИ: 011469 : C STN (6-4) - HOBOE COCTOЯHИE 011470 : C SW (3-1) - ПEPEKЛЮЧATEЛЬ 011471 : C ИЛИ 00, ECЛИ OШИБKA 011472 : C 011473 : SWIST:,BSS, 011474 : :,UJ,*0 011475 : ,Z06,BACK-START 011476 : :,UJ,*1 011477 : ,Z10,CHBD-START 011478 : :,UJ,*2 011479 : ,Z03,SETSR-START 011480 : :,UJ,*3 011481 : ,Z02,SETSI-START 011482 : :,UJ,*4 011483 : ,Z10,ETEX-START 011484 : :,UJ,*5 011485 : ,Z03,SETE-START 011486 : :,UJ,*6 011487 : ,Z06,EXIT-START 011488 : :,ITA,13 011489 : 15,WTC,STAT 011490 : ,ARX,SWIST 011491 : ,ATI,12 011492 : ,ASN,64+15 011493 : ,AAX,C17 011494 : 15,ATX,STAT 011495 : 12,UJ, 011496 : C--- KOHEЦ TEKCTA 011497 : ETEX:14,UTM,-APOS 011498 : ,XTA,BIT3 011499 : 14,V1M,ETEX2.IDENT 011500 : 15,ATX,W7.'TEXT' 011501 : ,XTA,."ANLAST" 011502 : TO CON:15,ATX,CONTI 011503 : ,UJ,GETS 011504 : C--- O Ш И Б K A : 011505 : ERRN:,XTA, 011506 : 15,ATX,STAT 011507 : EX/REZ:15,ATX,REZAC 011508 : ,UJ,EXIT 011509 : BACK:15,XTA,COUNT.ДBA 011510 : ,AAX,=:7777 7777.CИMBOЛA 011511 : ,ARX,=:776.HAЗAД 011512 : 15,ATX,COUNT.И OДИH 011513 : 11,VJM,GETS.BПEPEД 011514 : ,AEX,BIT6.ПOKA 011515 : ,UZA,BACK.ПPOБEЛЫ 011516 : C--- ФOPMИPOBAHИE BЫXOДHOГO PMP 011517 : EXIT:15,XTA,COUNT 011518 : ,ASN,64+39 011519 : ,ASN,64-24 011520 : 15,AEX,SYM 011521 : 15,ATX,FILD 011522 : EXITD:14,VTM,=:7777 7777 011523 : EXITS:15,XTA,COUNT 011524 : 15,AEX,S*COUNT 011525 : 14,AAX, 011526 : 15,AEX,S*COUNT 011527 : 15,UTM,ACC 011528 : 15,STX,S*COUNT-ACC 011529 : ,UJ,RETNR 011530 : C--- YЧET ЗHAKA ЧИCЛA 011531 : SETSI:,BSS, 011532 : 15,XTA,ACC 011533 : ,AAX,SBABS 011534 : ,UZA,SETSR 011535 : ,XTA, 011536 : SET O:,BSS, 011537 : 15,ARX,CHAR 011538 : ,UZA,DEC 011539 : ,AAX,BIT4 011540 : ,U1A,ERRN 011541 : 15,XTA,OCT 011542 : 15,ATX,REZAC 011543 : DEC:,BSS, 011544 : ,XTA,BIT1 011545 : 15,ATX,STAT 011546 : 15,XTA,CHAR 011547 : ,AAX,BIT41 011548 : ,UZA,EXIT 011549 : 15,XTA,REZAC 011550 : ,UZA,EXIT 011551 : ,AEX,FULWOR 011552 : ,ARX,BIT1 011553 : ,UJ,EX/REZ 011554 : SETSR:15,XTA,REZAC 011555 : ,AOX,=I0 011556 : 15,AVX,CHAR 011557 : 15,ATX,REZAC 011558 : 15,ATX,FILD 011559 : 15,XTA,CHAR 011560 : ,AAX,BIT40 011561 : ,UZA,EXIT 011562 : ,XTA, 011563 : 15,ATX,REZAC 011564 : C--- YЧET ЭKCПOHEHTЫ 011565 : SET E:,BSS, 011566 : 15,XTA,REZAC 011567 : ,NTR,13B. ,ARX, 011568 : ,UZA,ERRN 011569 : 15,AVX,CHAR 011570 : 15,ATX,REZAC 011571 : 15,XTA,CMAN 011572 : ,AAX,C377 011573 : 15,A+X,REZAC 011574 : ,AMX,=22 011575 : ,UZA,ERRN.ПEPEП.AY 011576 : 15,XTA,CMAN 011577 : ,ASN,64+39 011578 : 15,X-A,REZAC 011579 : 14,VJM,C10**N 011580 : 15,A*X,FILD 011581 : ,UJ,EX/REZ 011582 : C--- ЦEЛOE KOHЧИЛOCЬ БYKBOЙ 011583 : CHBD:,BSS, 011584 : 14,UTM,-102B 011585 : ,ITA,14 011586 : ,UZA,GETS 011587 : ,AEX,BIT2 011588 : ,U1A,ERRN 011589 : ,UTC,44B 011590 : C--- PEГИCTPAЦИЯ ЗHAKA ЧИCЛA И TOЧKИ 011591 : *2:,BSS, 011592 : *0:14,XTA,BIT48-46B 011593 : 15,AOX,CHAR 011594 : 15,ATX,CHAR 011595 : ,UJ,GETS 011596 : C--- CБOPKA ЦEЛOГO И BOCЬMEP. 011597 : *1:15,AOX,CHAR 011598 : 15,ATX,CHAR 011599 : 15,XTA,OCT 011600 : ,ASN,64-3 011601 : 15,AEX,SYM 011602 : ,AEX,C60 011603 : 15,ATX,OCT 011604 : 15,XTA,REZAC 011605 : ,ASN,64+36.БOЛЬШE 011606 : ,U1A,GETS.12 ЦИФP 011607 : 15,XTA,CHAR 011608 : ,AAX,BIT40.TЧK 011609 : ,U1A,INT 011610 : ,XTA,BIT1 011611 : INT:,BSS, 011612 : 15,ARX,CMAN 011613 : 15,ATX,CMAN 011614 : C--- CБOPKA ЭKCПOHEHTЫ 011615 : *6:,BSS, 011616 : 15,XTA,ACC 011617 : ,AOX,LET*/ 011618 : ,AEX,LET*/ 011619 : 15,ATX,ACC 011620 : 15,XTA,REZAC 011621 : ,ASN,64-1 011622 : 15,ATX,W1 011623 : ,ASN,64-2 011624 : 15,ARX,W1.*10 011625 : 15,ARX,SYM 011626 : ,A-X,C60 011627 : ,UJ,G*REZ 011628 : C--- ПOЛYЧEH CИMBOЛ "E" 011629 : *3:,BSS, 011630 : 15,XTA,REZAC 011631 : ,AOX,=I0 011632 : 15,AVX,CHAR 011633 : 15,ATX,FILD 011634 : ,XTA,BIT48 011635 : 15,ATX,CHAR 011636 : G*REZ:,BSS, 011637 : 15,ATX,REZAC 011638 : ,UJ,GETS 011639 : C--- ПEPBЫЙ CИMBOЛ - БYKBA ИЛИ AПOCTPOФ 011640 : *4:,XTA,BL 011641 : 15,ATX,REZAC 011642 : 15,ATX,FILD 011643 : ,XTA,BIT46 011644 : 15,ATX,CHAR.-48 011645 : ,XTA,BIT1 011646 : 14,UTM,-APOS 011647 : 14,VZM,TO CON 011648 : 15,XTA,SYM 011649 : C--- CБOPKA TEKCTA 011650 : *5:,AEX,BIT6 011651 : 15,ATX,W1 011652 : 15,XTA,CHAR 011653 : ,ATI,14 011654 : 15,J+M,14 011655 : ,ASN,64+41 011656 : ,ATI,12 011657 : 15,XTA,W1 011658 : 12,ASN,8 011659 : 14,AEX,REZAC 011660 : 14,ATX,REZAC 011661 : 15,XTA,CHAR 011662 : TEX1:,BSS, 011663 : ,ARX,BIT45 011664 : 15,ATX,CHAR 011665 : ,U1A,GETS 011666 : ,AAX,C77 011667 : ,U1A,ETEX1 011668 : ,XTA,BIT45 011669 : ,AOX,BIT2 011670 : ,UJ,TEX1 011671 : ETEX1:,BSS, 011672 : 15,XTA,CONTI 011673 : ,AOX,BIT46 011674 : 15,ATX,CONTI 011675 : ,XTA,C5 011676 : ETEX2:15,ATX,STAT 011677 : ,UJ,EXITD 011678 : G/ENCOD:,BSS, 011679 : 15,ATX,W5.XBOCT.ПPOБ. 011680 : 15,ATX,W7.ЛEBЫE HYЛИ 011681 : 11,VTM,.БEЗ TOЧKИ 011682 : 15,XTA,FILD+1 011683 : ,UZA,CHSIG 011684 : 11,VTM,20000B.TOЧKA 011685 : ,X-A,C14 011686 : ,UZA,CHSIG 011687 : ,XTA,COEF+1.ПPИЗHAK: 011688 : 15,ATX,W4. E-ФOPMAT 011689 : ,XTA,BIT1 011690 : 15,ATX,FILD+1 011691 : CHSIG:15,XTA,BIN 011692 : ,AAX,=:774 011693 : ,U1A,ISEXP 011694 : ,XTA,=I0 011695 : ISEXP:15,AOX,BIN 011696 : ,NTR,6 011697 : ,A+X, 011698 : ,UZA,POZ 011699 : 11,UTM,40000B.MИHYC 011700 : 15,AVX,BIN 011701 : POZ:15,ATX,BIN 011702 : ,ITA,11 011703 : 15,ATX,REZAC 011704 : 15,ACX,FILD+1 011705 : ,NTR,3 011706 : 15,A-X,FILD 011707 : ,UZA,OVFL 011708 : ,AVX,BIT41.ПOЛE ЦEЛOГO 011709 : 14,VJM,C10**N 011710 : 15,ATX,W6.10**I 011711 : 15,X-A,BIN 011712 : ,UZA,EPOZ 011713 : 15,XTA,BIN.ЧИCTЫЙ 011714 : ,UZA,ZERO.HOЛЬ 011715 : 15,XTA,W4 011716 : ,U1A,EPOZ0.E-ФOPMAT 011717 : 15,XTA,FILD+1 011718 : ,UZA,TO DIG.I-ФOPMAT 011719 : 14,VJM,C1/10**N 011720 : 15,X-A,BIN 011721 : ,U1A,EPOZ1 011722 : 15,X-A,BIN 011723 : ,UJ,ROUND 011724 : EPOZ:15,XTA,BIN 011725 : ,A-X,COEF+1 011726 : ,U1A,MCALC 011727 : 15,XTA,BIN 011728 : ,A/X,COEF+1 011729 : 15,ATX,BIN 011730 : 15,XTA,W4 011731 : ,ARX,BIT1 011732 : 15,ATX,W4 011733 : ,UJ,EPOZ 011734 : EPOZ0:15,X-A,BIN 011735 : ,UZA,EPOZ 011736 : EPOZ1:15,XTA,BIN 011737 : ,A-X,ONE 011738 : ,UZA,MCALC 011739 : 15,XTA,BIN 011740 : ,A*X,COEF+1 011741 : 15,ATX,BIN 011742 : 15,XTA,W4 011743 : ,ARX,C377 011744 : 15,ATX,W4 011745 : ,UJ,EPOZ1 011746 : ZERO:15,ATX,W4.F-ФOPMAT 011747 : ,UJ,DIGIT 011748 : C 011749 : C--- BЫЧИCЛEHИE ДЛИHЫ MAHTИCCЫ 011750 : C 011751 : MCALC:,NTR,3 011752 : ,XTA,COEF+1 011753 : 15,ATX,W6 011754 : 15,XTA,REZAC 011755 : ,ASN,64+14.ЗHAK 011756 : ,ARX,C5.IE-NN 011757 : 15,X-A,FILD 011758 : ,U1A,OVFL.KPAHTЫ 011759 : ,ATI,14 011760 : 14,VZM,MCALC1 011761 : 14,UTM,-1 011762 : 14,V1M,MCALC1 011763 : ,XTA,=R100.0 011764 : 15,ATX,W6 011765 : MCALC1:,ITA,14 011766 : 15,ATX,FILD+1 011767 : C 011768 : C--- ПOЛYЧEHИE ЦИФP ЧИCЛA 011769 : C 011770 : TO DIG:,BSS, 011771 : 14,VJM,C1/10**N 011772 : ROUND:,BSS, 011773 : ,E-N,64+1./2 011774 : 15,A+X,BIN.OKPYГЛEHИE 011775 : 15,ATX,BIN 011776 : 15,A-X,W6 011777 : ,UZA,EPOZ.HE ЛEЗEM B ПOЛE 011778 : 15,XTA,W4 011779 : ,UZA,DIGIT.HE E-FORM. 011780 : ,NTR,3 011781 : ,AAX,BIT8 011782 : ,ASN,64-33 011783 : NEXP1:15,ATX,W1 011784 : 15,XTA,W4 011785 : 15,AVX,W1 011786 : ,AAX,C377 011787 : ,UZA,NEXP3.ПOPЯДOK:0 011788 : 15,ATX,W4 011789 : ,A-X,=12 011790 : ,U1A,NEXP2 011791 : ,AEX,BIT9 011792 : 15,ATX,W4 011793 : NEXP2:15,XTA,W1 011794 : ,ASN,64+23 011795 : 15,AEX,W4 011796 : ,ASN,64-16 011797 : NEXP3:,ARX,TEXP 011798 : 15,ATX,W4 011799 : DIGIT:,NTR,6 011800 : 15,XTA,W6 011801 : ,A*X,COEF 011802 : 15,ATX,W6 011803 : ,U1A,ENUM 011804 : 15,XTA,BIN 011805 : 15,A/X,W6 011806 : ,NTR,3 011807 : ,A+X,=I0 011808 : ,ATI,14.ЦИФPA 011809 : ,NTR,6 011810 : 15,A*X,W6 011811 : 15,X-A,BIN 011812 : 15,ATX,BIN.OCTATOK 011813 : ,ITA,14 011814 : 15,AEX,W7 011815 : ,U1A,NOTZER 011816 : 15,XTA,W6 011817 : ,A-X,COEF+1 011818 : ,U1A,NOTZER 011819 : 15,XTA,ACC 011820 : ,AAX,BIT20 011821 : ,ASN,64+14.ЗAMEHA 011822 : ,U1A,PUTDIG.ЛEBЫX 011823 : 15,XTA,W5.HYЛEЙ 011824 : ,ARX,BIT1.ПPOБEЛAMИ 011825 : 15,ATX,W5 011826 : ,UJ,DIGIT 011827 : NOTZER:14,UTM,60B 011828 : 15,XTA,REZAC 011829 : ,AAX,BIT15 011830 : ,UZA,NOTSIG 011831 : ,ITA,14 011832 : 15,ATX,REZAC 011833 : 14,VTM,MINUS 011834 : ,ITA,14 011835 : 11,VJM,PUTS 011836 : 15,XTA,REZAC 011837 : ,ATI,14 011838 : NOTSIG:,XTA,ONE 011839 : 15,ATX,W7 011840 : ,ITA,14 011841 : ,UJ,PUTDIG 011842 : ENUM:15,XTA,FILD+1 011843 : ,UZA,PUTEX 011844 : 14,VJM,C10**N 011845 : 15,ATX,W6.ПEPEXOД 011846 : 15,A*X,BIN.K 011847 : 15,ATX,BIN.MAHTИCCE 011848 : 14,VTM,POIN 011849 : ,XTA, 011850 : 15,ATX,FILD+1 011851 : ,UJ,NOTSIG 011852 : PUTEX:11,VTM,*+1 011853 : :15,XTA,W4 011854 : ,ASN,64-8 011855 : 15,ATX,W4 011856 : ,YTA, 011857 : ,U1A,PUTS 011858 : ,NTR,3 011859 : 11,VTM,*+1 011860 : :15,XTA,W5 011861 : ,UZA,GRENC 011862 : ,A-X,BIT1 011863 : 15,ATX,W5 011864 : PUT BL:,BSS, 011865 : ,XTA,BIT6 011866 : ,UJ,PUTS 011867 : OVFL:,BSS, 011868 : ,XTA,BIT1 011869 : 15,ATX,R14 011870 : 11,VTM,*+1 011871 : :15,XTA,FILD 011872 : ,UZA,BRENC 011873 : ,A-X,BIT1 011874 : 15,ATX,FILD 011875 : 14,VTM,STAR 011876 : ,UJ,SPUT 011877 : H/ENCOD:,BSS, 011878 : 15,XTA,FILD 011879 : ,UZA,GRENC 011880 : ,A-X,BIT1 011881 : 15,ATX,FILD 011882 : 11,VJM,GETS 011883 : 11,UTM,H/ENCOD-* 011884 : ,ASN,64+5 011885 : 15,AOX,FILD+1 011886 : ,UZA,PUT BL.БPEД ЗAMEHЯETCЯ 011887 : 15,XTA,SYM 011888 : ,UJ,PUTS 011889 : B/ENCOD:,BSS, 011890 : 15,XTA,FILD 011891 : ,UZA,GRENC 011892 : ,AAX,BIT5 011893 : ,UZA,BENC1 011894 : 15,ATX,FILD 011895 : BENC1:15,XTA,FILD 011896 : ,A-X,BIT1 011897 : 15,ATX,FILD 011898 : ,ATI,14 011899 : 15,XTA,BIN 011900 : 14,ASN,64 011901 : 14,ASN,64 011902 : 14,ASN,64 011903 : ,AAX,C7 011904 : ,AEX,C60 011905 : 11,VJM,PUTS 011906 : BENC2:,BSS, 011907 : 15,XTA,FILD 011908 : ,UZA,GRENC 011909 : 15,XTA,W4 011910 : ,ARX,BIT1 011911 : 15,ATX,W4 011912 : 15,AEX,FILD+1 011913 : ,U1A,BENC1 011914 : 15,ATX,W4 011915 : 11,UTM,BENC1-BENC2 011916 : ,UJ,PUT BL 011917 : GRENC:,XTA, 011918 : 15,ATX,R14 011919 : BRENC:,BSS, 011920 : 15,XTA,COUNT 011921 : ,ASN,64+15 011922 : ,AAX,C777 011923 : 15,ATX,REZAC 011924 : 14,VTM,B24/1 011925 : ,UJ,EXITS 011926 : C 011927 : C... BЫЧИCЛEHИE 10.**N 011928 : C N - B MЛ.PAЗP.CYMMATOPA 011929 : C PEЗYЛЬTAT HA CYMMATOPE 011930 : C ПOPTЯTCЯ W1 И 12 PEГ. 011931 : C BЫXOД ПO 14 PEГ. C ,NTR,6 011932 : C10**N:,BSS, 011933 : 11,VTM,0 011934 : ,NTR,23B 011935 : ,UZA,P/E 011936 : ,AVX,BIT41 011937 : C1/10**N:,BSS, 011938 : ,ATI,11 011939 : ,NTR,3 011940 : P/E:,BSS, 011941 : ,ATI,12 011942 : ,A-X,=22 011943 : ,U1A,S/E 011944 : 12,VTM,18 011945 : S/E:,NTR,6 011946 : ,XTA,ONE 011947 : 14,UTC, 011948 : 12,VZM, 011949 : C/E:,A*X,COEF+1 011950 : 12,UTM,-1 011951 : 12,V1M,C/E 011952 : 15,ATX,W1 011953 : 14,UTC, 011954 : 11,VZM, 011955 : ,XTA,ONE 011956 : 15,A/X,W1 011957 : 14,UJ, 011958 : ERROR:,XTA,INFERR 011959 : ,UJ,ERRNRES 011960 : INFERR:,Z00,NR/CODE 011961 : ,Z00,31 011962 : S:,ISO,6HATXSTX 011963 : 1,ISO,6HMODXTS 011964 : 2,ISO,6HA+XA-X 011965 : 3,ISO,6HX-AAMX 011966 : 4,ISO,6HXTAAAX 011967 : 5,ISO,6HAEXARX 011968 : 6,ISO,6HAVXAOX 011969 : 7,ISO,6HA/XA*X 011970 : 8,ISO,6HAPXAUX 011971 : 9,ISO,6HACXANX 011972 : 10,ISO,6HE+XE-X 011973 : 11,ISO,6HASXXTR 011974 : 12,ISO,6HRTEYTA 011975 : 13,ISO,6H032EXT 011976 : 14,ISO,6HE+NE-N 011977 : 15,ISO,6HASNNTR 011978 : 16,ISO,6HATISTI 011979 : 17,ISO,6HITAITS 011980 : 18,ISO,6HMTJJ+M 011981 : 19,ISO,6H046047 011982 : *20,ISO,6HZ20Z21 011983 : *21,ISO,6HUTCWTC 011984 : *22,ISO,6HVTMUTM 011985 : *23,ISO,6HUZAU1A 011986 : *24,ISO,6HUJ VJM 011987 : *25,ISO,6HIJ Z33 011988 : *26,ISO,6HVZMV1M 011989 : *27,ISO,6HZ36VLM 011990 : C5000:,LOG,5000 011991 : F1:,LOG,15014 011992 : F2:,LOG,4210014 011993 : AMASK:,LOG,1007777 011994 : BMASK:,LOG,710000 011995 : PMASK:,GOST,6H077777 011996 : ZMASK:,ISO,6H 00000 011997 : MMASK:,ISO,6H -0000 011998 : BL:,ISO,6H 011999 : BLL:,ISO,6H '''''' 012000 : C*:,ISO,6H *00 012001 : CSJ:,ISO,6H SJ 012002 : TEXP:,ISO,6HE+00'''' 012003 : COEF:,REAL,0.1 012004 : :,REAL,10.0 012005 : ONE:,REAL,1.0 012006 : C1/6:,LOG,4002 5252 5252 5253 012007 : :,BSS, 012008 : ,END, 012009 : MACRO72:,NAME,. 012010 : C 012011 : NR/72:,SUBP, 012012 : NRESCALL:,SUBP, 012013 : BIT30:,EQU,722B 012014 : EMULAT:,SUBP,. 012015 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13 012016 : ,ATX,SAVAC. 012017 : ,AAX,CODE1. 012018 : ,AEX,CODE2. 012019 : ,UIA,TO EMUL. 012020 : C 012021 : VMCHANG:,ENTRY, 012022 : ,XTA,INF 012023 : ,UJ,NRESCALL 012024 : TO EMUL:,BSS,. 012025 : C***** HA ИHTEPПPETATOP 012026 : ,XTA,BIT30.БИT Э072 012027 : ,UJ,EMULAT 012028 : INF:,Z00,NR/72 012029 : ,Z00,13 012030 : CODE1:,BSS,. 012031 : CODE2:,BSS,. 012032 : ,LOG,777 00000 776 00000. 012033 : ,END,. 012034 : NRES072:,NAME, 012035 : C 012036 : C... HEPEЗИДEHT CYMMATOPHOГO Э072 : 012037 : C 012038 : C 48-40 И 24-17 PAЗPЯДЫ CYMMATOPA 012039 : C COДEPЖAT "1", OCTAЛЬHЫE - ИHФOPMAЦИЮ 012040 : C ДЛЯ ЭKCTPAKOДA. AИCП.=KOД OПEPAЦИИ: 012041 : C 70707B - IFOVFL 012042 : C 0 - ЗAMEHA M- И V-ЛИCTOB 012043 : C 3 - ЗAПYCK ЗAДAЧИ 012044 : C 4 - ЗAПИCЬ CTPOKИ B DAYFILE 012045 : C ПPOЧИE - CBOБOДHЫ. 012046 : C 012047 : C YПPЯTЫBAЮTCЯ PEГИCTPЫ 9-15 012048 : C PEЗYЛЬTAT OTPAБOTKИ MOЖHO ПOMEЩATЬ 012049 : C B CYMMATOP, PMP, И14 BЫXOДA. 012050 : C 012051 : C======= OБ'EKTЫ ИЗ ИПЗ : ======== 012052 : TMATN :,EQU,30B 012053 : REGSCAL:,EQU,100B 012054 : OШBHYПP:,EQU,101B 012055 : BUFIW70:,EQU,105B 012056 : П T P :,EQU,163B 012057 : TPAKTЫ :,EQU,175B 012058 : DRU/MEM:,EQU,777B 012059 : *140:B,BLOCK,REZAC,R15,REZAR,R14 012060 : ,CONT,R13,R27,R11 012061 : ,CONT,S(2) 012062 : ,CONT,M,V,MMASK,VMASK 012063 : ,CONT,MXAP,VXAP 012064 : *137:B,BLOCK,IDENT.ИMЯ ЗAДAЧИ 012065 : *161:B,BLOCK,IFP.ИПЗ ПAPTHEPA 012066 : C======= БЛOKИ ДИCПETЧEPA : ======= 012067 : *677:B,BLOCK,BITS 012068 : ,CONT,B48,B47,B46,B45,B44,B43 012069 : ,CONT,B42,B41,B40,B39,B38,B37 012070 : ,CONT,B36,B35,B34,B33,B32,B31 012071 : ,CONT,B30,B29,B28,B27,B26,B25 012072 : ,CONT,B24,B23,B22,B21,B20,B19 012073 : ,CONT,B18,B17,B16,B15,B14,B13 012074 : ,CONT,B12,B11,B10,B9,B8,B7,B6 012075 : ,CONT,B5,B4,B3,B2,B1 012076 : T I M E :,EQU,542B 012077 : BITININ:,EQU,B43 012078 : *ИПK:LC,BLOCK,*INFBA 012079 : XNFM:,EQU,XNF+1 012080 : NFM:,WEQ,XNFM 012081 : B48/47:,LC,1 012082 : B48/31 :,LC,1 012083 : Z28/21:,LC,1 012084 : B30/16:,LC,1 012085 : C13 :,LC,1 012086 : DISREG:,LC,1 012087 : C77777 :,LC,1 012088 : C377:,LC,1 012089 : C177:,LC,1 012090 : C77 :,LC,1 012091 : C37:,LC,1 012092 : C7:,LC,1 012093 : C3 :,LC,1 012094 : BC1700:,SUBP, 012095 : C50:,EQU,BC1700+5 012096 : FULWOR:,LC,1 012097 : MASK12 :LC,BLOCK,M12B 012098 : *YCЫ :LC,BLOCK,ГYC 012099 : SMASAV :LC,BLOCK,SAVAC,SAVSR,SAVAR 012100 : ,CONT,SAVI15,SAVI14,SAVI13 012101 : TPHYS:,LC,1 012102 : YДABЛEHЫ:,LC,1 012103 : FL MAMБ :,LC,1 012104 : NSTAJOB :,LC,1 012105 : M Ш :,LC,1 012106 : ШЛAГБAYM:LC,BLOCK,(9),SEM212 012107 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 012108 : SCALES :LC,BLOCK,(1),MRDSCAL 012109 : * И П Д :LC,BLOCK,XNF(5),XNC(3) 012110 : ,CONT,Ш/CЛYЖ,Ш/FULL,Ш/ПOTOK,Ш/ПYCK 012111 : NF :,WEQ,XNF 012112 : NC :,WEQ,XNC 012113 : * И П K 1 :,LC, 012114 : MONO:,EQU,*ИПK1+NC 012115 : C 012116 : SAVEMOD:,SUBP, 012117 : STARTJOB:,SUBP, 012118 : SEMDOWNS:,SUBP, 012119 : SEMUP :,SUBP, 012120 : OUTMACRO:,SUBP, 012121 : ERRNRES :,SUBP, 012122 : NRESOFF :,SUBP, 012123 : GIVEPAGE:,SUBP, 012124 : STATIST:,SUBP, 012125 : TYP/PL :,SUBP, 012126 : COPYTR7:,EQU,TYP/PL+1 012127 : STRING:,EQU,102B.AБC.AДPEC 012128 : STRFUL:,EQU,535B.B ИПЗ 012129 : *STATBUF:LC,BLOCK,MBLO 012130 : SEM/BUF:,EQU,ШЛAГБAYM+7.БYФEP "TTPRINT" 012131 : C14:,LC,1 012132 : NR/72 :,SUBP, 012133 : MACRO72:,SUBP, 012134 : PRTVP :,SUBP, 012135 : T ПPИП :,EQU,30B 012136 : T ЗAЩ :,EQU,40B 012137 : NUMBER:,EQU,17.ДИAГHOCTИKA 012138 : C 012139 : C==================================== 012140 : C 012141 : START:13,REL,START 012142 : ,WTC,ГYC 012143 : 15,VTM,REZAC 012144 : ,XTA,.AC=0 012145 : ,XTS,SAVI15 012146 : ,AEX,SAVSR 012147 : ,ITS,.AR=0 012148 : 15,ATX,.I14=0 012149 : ,ITS,32B 012150 : ,ASN,64-15 012151 : ,AEX,SAVI13 012152 : ,ITS,12 012153 : ,ASN,64-15 012154 : ,ITS,27B 012155 : 15,AEX, 012156 : ,ITS,9 012157 : ,ASN,64-15 012158 : ,ITS,10 012159 : 15,AEX, 012160 : ,ASN,64-15 012161 : ,ITS,11 012162 : 15,AEX, 012163 : ,XTS,SAVAC 012164 : :,24,3 012165 : ,WTC,ГYC 012166 : 11,VTM, 012167 : 14,VZM,CHANG 012168 : 14,UTM,-3 012169 : 14,VZM,STARTER 012170 : 14,UTM,3-70707B 012171 : 14,VZM,ABOCT 012172 : 14,UTM,70707B-4 012173 : 14,VZM,DFWRIT 012174 : C... ЧYЖOЙ AИCП. - YXOДИM K BEPETEHOBY 012175 : 14,UTM,4 012176 : ,ITA,14.BOCCT. 012177 : 15,ATX,R14-S.И14 012178 : 14,VTM,MACRO72 012179 : ,UJ,RET 012180 : C 012181 : C 012182 : C ЗAПYCK ЗAДAЧ ЧEPEЗ STARTJOB 012183 : C 012184 : C HA CYMMATOPE : 012185 : C 25-39 : T - TИП ЗAПYCKA 012186 : C 16 : F - БИT ФИKCAЦИИ 012187 : C 1-15 : D - ДOП.ИHФOPMAЦИЯ 012188 : C 012189 : C T=0 : ЗAПYCK HA CBOБOДHЫЙ CЛYЖ.KAHAЛ 012190 : C D ЗAДAET HOMEP CЛYЖ.ЗAДAЧИ 012191 : C И EE ПAPAMETPЫ ( И.P.1 ) 012192 : C T=1 : ЗAПYCK HA CBOБ. OПEPATOPCKИЙ KAHAЛ 012193 : C D=0 ИЛИ AДPEC ИMEHИ ЗAДAЧИ 012194 : C B ПOCЛ.CЛYЧAE HAДO F=0 012195 : C T=2 : TO ЖE HA TEPMИHAЛЬHЫЙ KAHAЛ 012196 : C T=3 : ЗAПYCK MAT.ЗAДAЧИ HA KAHAЛ 012197 : C C ЗAДAHHЫM B D Д H З. 012198 : C 012199 : C F=1 : ЗAПYCKAEMAЯ ЗAДAЧA ФИKCИPYETCЯ 012200 : C ПPOЙДЯ ФOPMИPOBAHИE CBOEГO ИПЗ. 012201 : C PACФИKCИPYET EE ПOPOДИBШAЯ ЗAДAЧA, 012202 : C ПOДABAЯ ЭKCTPAKOД "HA ИПЗ". 012203 : C 012204 : C 012205 : C OTBET ЭKCTPAKOДA - CYMMATOP И И14: 012206 : C И14 = 0 : ЗAПYCK HE COCTOЯЛCЯ ПO ПPИЧИHE 012207 : C MAЛOMБ (AC=1B) ИЛИ ЗAHЯTOCTИ KAHAЛA (AC=0) 012208 : C И14 = ДHЗ : ЗAПYCK COCTOЯЛCЯ. ПPИ ЭTOM 012209 : C AC = <ИHФ.CЛOBO ДЛЯ ЭK ,050,212B> 012210 : C 012211 : STARTER:11,ATX,MXAP 012212 : ,ATI,9.D 012213 : ,ASN,64+24 012214 : ,AAX,C77777 012215 : ,ATI,10.T 012216 : ,ASN,64+2 012217 : ,U1A,ER72 012218 : 11,ATX,REZAC.ШИФP 012219 : 11,ATX,R14.ЗAHЯT 012220 : 11,ATX,IDENT 012221 : 11,XTA,REGSCAL 012222 : ,ARX, 012223 : 10,UZA,SST 012224 : C... OШ.OБPAЩEHИE K Э072 : 012225 : ER72:14,VTM,NUMBER 012226 : ,UJ,RET 012227 : C------- 012228 : SST:,XTA,Ш/CЛYЖ 012229 : ,UJ,SFC 012230 : :,UJ,R/IDEN 012231 : :,UJ,R/IDEN 012232 : :9,XTA,BITS 012233 : ,AAX,Ш/FULL 012234 : SFC:,UZA,ER72 012235 : 11,ATX,MMASK 012236 : 11,XTA,MXAP 012237 : ,AAX,B16 012238 : ,UZA,SFC1 012239 : ,ITA,13 012240 : ,ARX,ISEM 012241 : ,UJ,SEMDOWNS 012242 : ISEM:,Z00,SEM212 012243 : ,Z00,SFC1-START 012244 : R/IDEN:,XTA,B16 012245 : 11,AOX,MXAP 012246 : 11,ATX,MXAP 012247 : 11,WTC,R27 012248 : :,24, 012249 : 9,XTA, 012250 : :,24,3 012251 : 11,ATX,IDENT 012252 : 10,XTA,Ш/ПOTOK-1 012253 : ,UJ,SFC 012254 : SFC1:,24,3 012255 : 11,XTA,MMASK.BCE 012256 : ,UZA,EXITSEM.ЗAHЯTO 012257 : ,ANX, 012258 : ,ATI,14 012259 : 14,XTA,BITS 012260 : 11,AEX,MMASK 012261 : 11,ATX,MMASK 012262 : :,24,2003B 012263 : 14,XTA,*YCЫ 012264 : ,UZA,SFC1 012265 : ,AAX,B30/16 012266 : ,U1A,SFC1 012267 : ,XTA,FLMAMБ 012268 : 11,ATX,REZAC 012269 : ,U1A,EXITSEM.MAЛOMБ 012270 : C..... ПOXOД HA STARTJOB 012271 : ,ITA,14 012272 : ,ATX,MШ 012273 : ,XTA,B47 012274 : 10,VIM,PUTN 012275 : ,ITA,9 012276 : PUTN:,ATX,NSTAJOB 012277 : ,XTA,ДHЗ 012278 : ,ASN,64-16 012279 : 14,ATX,MONO-NF 012280 : ,ITA,14 012281 : 11,ATX,R14 012282 : ,ASN,64-9 012283 : ,AOX,C50 012284 : 11,ATX,REZAC 012285 : 10,VTM,EXITSEM 012286 : 11,XTA,MXAP 012287 : ,AAX,B16 012288 : ,UZA,NOFIX 012289 : C... ЗAMOPAЖИBAHИE CEБЯ ДO ПYCKA 012290 : C ЗAДAЧИ, A EE - ПOCЛE STARTJOB'A 012291 : C... ПPИ ПYCKE ПO ИMEHИ - TOЛЬKO 012292 : C ПPИOCTAHOBKA HAC, ЧTOБЫ ПYCKAЧ 012293 : C CYMEЛ BЫГPECTИ ИMЯ ЗAДAЧИ. 012294 : ,XTA,ZBITJ 012295 : ,AAX,MRDSCAL 012296 : ,ATX,MRDSCAL 012297 : 11,XTA,IDENT 012298 : ,U1A,NO FIX 012299 : 14,XTA,BITS 012300 : ,ATX,YДABЛEHЫ 012301 : 10,UTM,EXIT-EXITSEM 012302 : NOFIX:,XTA,C13 012303 : ,ATI,27B 012304 : 10,MTJ,33B 012305 : 13,MTJ,16 012306 : 13,VTM,STARTJOB 012307 : ,UJ,SAVEMOD 012308 : NO DRUM:,BSS, 012309 : ,XTA,B47 012310 : 11,ATX,REZAC 012311 : 11,XTA,IFP 012312 : ,UZA,ER72 012313 : OFFTASK:,BSS, 012314 : ,ATI,14 012315 : 14,XTA,TPHYS 012316 : ,AEX,B1 012317 : 14,ATX,TPHYS 012318 : EXITSEM:,24,2003B 012319 : ,ITA,13 012320 : ,ARX,OSEM 012321 : ,UJ,SEMUP 012322 : OSEM:,Z00,SEM212 012323 : ,Z00,EXIT-START 012324 : C 012325 : C ===== AИCП=4 ===== 012326 : C ЗAПИCЬ CTPOKИ B DAYFILE 012327 : C AДPEC CTPOKИ - B 1:15 P.CYMMATOPA 012328 : C ДЛИHA CTPOKИ - HE БOЛEE 12 CЛOB 012329 : C ПPИЗHAK KOHЦA CTPOKИ - CЛOBO ИЗ 6 012330 : C ПPOБEЛOB ИЛИ ПYCTOЙ MЛAДШИЙ БAЙT. 012331 : C 012332 : DFWRIT:,ATI,10.A CTPOKИ 012333 : ,XTA,ДHЗ 012334 : ,ATI,9 012335 : 12,VTM, 012336 : ,XTA,Ш/FULL 012337 : ,AAX,BITJ 012338 : ,UZA,IFBL.CЛYЖ 012339 : 11,UTC, 012340 : 12,VTM,STRFUL 012341 : 9,XTA,*INFBA-NFM 012342 : ,ARX, 012343 : ,UZA,BEGDFW.ПPT 012344 : IFBL:,BSS, 012345 : ,XTA,7 012346 : ,AOX,COPYTR7 012347 : ,AAX,B32 012348 : ,U1A,EXIT.БЛOK. DF 012349 : 12,VIM,BEGDFW.ЧEPEЗ ИПЗ 012350 : 12,VTM,STRING 012351 : ,ITA,13 012352 : ,ARX,DSEMDF 012353 : ,UJ,SEMDOWNS 012354 : DSEMDF:,Z00,SEM/BUF 012355 : ,Z00,BEGDFW-START 012356 : USEMDF:,Z00,SEM/BUF 012357 : ,Z00,EXIT-START 012358 : BEGDFW:,BSS, 012359 : ,XTA, T I M E 012360 : 12,ATX, 012361 : ,XTA, Г Y C 012362 : ,ASN,64-27 012363 : ,AUX,=6H'''7''7''''''' 012364 : ,AOX,=6HШ00>> 012365 : 12,ATX,1 012366 : TRSTR:10,UTM,1 012367 : 11,WTC,R27 012368 : :,24, 012369 : 10,XTA,-1 012370 : :,24,3 012371 : 12,UTC,2 012372 : 14,ATX, 012373 : ,AEX,=6H 012374 : ,UZA,ETRSTR 012375 : 14,UTM,1 012376 : ,AEX,=6H 012377 : ,AAX,C377 012378 : ,UZA,ETRSTR 012379 : ,ITA,14 012380 : ,AEX,C14 012381 : ,U1A,TRSTR 012382 : ETRSTR:,BSS, 012383 : 14,MTJ,10 012384 : ,XTA,7 012385 : ,AOX,COPYTR7 012386 : ,AAX,B32 012387 : ,U1A,IFPRT 012388 : ,ITA,14 012389 : ,ASN,64-20 012390 : ,ITS,12 012391 : 15,AOX, 012392 : ,ASN,64-24 012393 : ,ITS,13 012394 : 15,AOX, 012395 : ,ARX,CONSTA 012396 : ,UJ,STATIST 012397 : IFPRT:,XTA,Ш/FULL 012398 : ,AAX,BITJ 012399 : ,UZA,EXITDF.CЛYЖ 012400 : 9,XTA,*INFBA-NFM 012401 : ,ARX, 012402 : ,U1A,EXIT.БEЗ ПPT 012403 : ,XTA, 012404 : 12,UTC, 012405 : 10,ATX,2 012406 : 14,VTM,17B 012407 : 14,MTJ,27B 012408 : ,*71,IW/71 012409 : ,UJ,EXIT 012410 : EXITDF:,ITA,13 012411 : ,ARX,USEMDF 012412 : ,UJ,SEMUP 012413 : CON STA:2,Z11, 012414 : ,Z00,IFPRT-START 012415 : C 012416 : C... YCTAHOBKA PEAKЦИИ HA ABOCT : 012417 : C 012418 : ABOCT:,ASN,64+24 012419 : ,AAX,C77777 012420 : 11,XTS,OШBHYПP 012421 : ,AAX,B48/31 012422 : 15,AOX, 012423 : 11,ATX,OШBHYПP 012424 : ,XTA,BITININ 012425 : 11,AOX,REGSCAL 012426 : 11,ATX,REGSCAL 012427 : ,UJ,EXIT 012428 : C 012429 : C... MEHЯЮTCЯ HOMEPAMИ : 012430 : C MAT.ЛИCT (25-30 P. CYMMATOPA) 012431 : C И TPAKT (1-5) БAPAБAHA (7-11) , 012432 : C ИMEЮЩEГO CTATYC BИPTYAЛЬHOЙ ПAMЯTИ. 012433 : C 012434 : C 012435 : C... BOЗMOЖHA OБPAБOTKA ЗAKAЗA HA 012436 : C ЗAMEHY CTPAHИЦ ПO ФOPMATY Э070 012437 : C ("0" 48 PAЗPЯДA CYMMATOPA). 012438 : C 012439 : CHANG:,BSS, 012440 : ,ARX, 012441 : ,UZA,CHANG1 012442 : ,APX,=0010 3700 0037 0037 012443 : ,AUX,=0010 0037 0000 3737 012444 : CHANG1:,BSS, 012445 : 11,ATX,BUFIW70 012446 : ,ASN,64+24 012447 : ,AAX,C77 012448 : 11,ATX,M.MAT.ЛИCT 012449 : ,NTR,3 012450 : ,A-X,C50 012451 : ,UZA,ER72 012452 : 11,WTC,M 012453 : 11,XTA,TMATN 012454 : ,ASN,64+30 012455 : ,UZA,ER72.ЧYЖ.ЛИCT 012456 : 11,XTA,BUFIW70 012457 : ,ARX,B8.+100B 012458 : ,APX,=3737 012459 : ,ASN,64+38 012460 : 11,ATX,V.V-ЛИCT 012461 : ,A-X,=1500 012462 : ,UZA,ER72 012463 : C... ПPOBEPKA ДOCTYПA K ЧYЖOMY MБ 012464 : 11,XTA,BUFIW70 012465 : ,ASN,64+33 012466 : ,AAX,C77 012467 : ,ATI,10 012468 : ,UZA,VAN 012469 : ,XTA,B48 012470 : 10,ASN,64-1 012471 : ,AAX,Ш/FULL 012472 : ,UZA,ER72.ЗAПPEЩEHO 012473 : C... ФИKCAЦИЯ ПAPTHEPA 012474 : ,ITA,13 012475 : ,ARX,VSEM 012476 : ,UJ,SEMDOWNS 012477 : VSEM:,Z00,SEM212 012478 : ,Z00,VRET-START 012479 : VRET:,BSS, 012480 : 10,XTA,ГYC 012481 : ,AAX,B30/16 012482 : ,U1A,ISTASK 012483 : ,XTA,B48 012484 : 11,ATX,REZAC 012485 : ,UJ,EXITSEM 012486 : IS TASK:,BSS, 012487 : 10,XTA,BITS 012488 : ,ATX,YДABЛEHЫ 012489 : ,AEX,FULWOR 012490 : ,AAX,MRDSCAL 012491 : ,ATX,MRDSCAL 012492 : ,UJ,CHECKIF 012493 : C... ФИKCAЦИЯ ЧYЖOГO ИПЗ 012494 : GIV IF:,BSS, 012495 : ,ITA,10.ДHЗ 012496 : ,ASN,64-9 012497 : ,ATI,15 012498 : 15,UTM,50B.ИПЗ 012499 : ,XTA,DISREG 012500 : ,ATI,27B 012501 : 13,MTJ,9.БAЗA 012502 : 13,UTM,REST IR - START 012503 : 13,MTJ,33B 012504 : ,UJ,GIVEPAGE 012505 : REST IR:9,MTJ,13.BOCCT.БAЗЫ 012506 : 11,UTC, 012507 : 15,VTM,S 012508 : ,NTR,3 012509 : CHECKIF:,BSS, 012510 : 10,XTA,ГYC 012511 : ,ASN,64+10 012512 : ,AAX,C37 012513 : ,UZA,GIVIF 012514 : ,ATI,14 012515 : 14,XTA,TPHYS 012516 : ,AOX,B1 012517 : 14,ATX,TPHYS 012518 : :,24,3 012519 : ,ITA,14 012520 : VAN:11,ATX,IFP 012521 : 11,XTA,V 012522 : ,ASN,64+5 012523 : ,ATI,14.MБ+2 012524 : 10,WTC,*YCЫ 012525 : ,XTA,DRU/MEM 012526 : 14,AAX,BITS-1 012527 : ,UZA,NO DRUM 012528 : C... KOOPДИHATЫ YKAЧKИ HA MБ : 012529 : 11,XTA,M 012530 : ,AAX,C3 012531 : ,ATI,14 012532 : 14,XTA,M12B 012533 : 11,ATX,MMASK 012534 : 11,XTA,V 012535 : ,AAX,C3 012536 : ,ATI,14 012537 : 14,XTA,M12B 012538 : 11,ATX,VMASK 012539 : 11,XTA,M 012540 : ,ASN,64+2 012541 : ,ARX,ГYC 012542 : ,ATI,12 012543 : 11,XTA,V 012544 : ,A-X,B7 012545 : ,ASN,64+2 012546 : 10,ARX,*YCЫ 012547 : :,24,2003B 012548 : ,ATI,9 012549 : MAT ANAL:,BSS, 012550 : 11,WTC,M 012551 : 11,XTA,TMATN 012552 : ,ASN,64+30 012553 : 11,ATX,MXAP 012554 : ,AEX,B18 012555 : ,UZA,NVXT.HE ИCП. 012556 : ,ATI,10 012557 : 10,V1M,VMEM.B ПAMЯTИ 012558 : C... ЧИCTKA AДPECA YKAЧKИ MAT.ЛИCTA 012559 : 12,XTA,ПTP 012560 : 11,APX,MMASK 012561 : 12,XTS,ПTP 012562 : 11,AOX,MMASK 012563 : 11,AEX,MMASK 012564 : 12,STX,ПTP 012565 : ,UJ,NVXT 012566 : C... ЗAMEHA KOOPДИHAT YKAЧKИ MAT.ЛИCTA 012567 : MSWIN:11,XTA,VXAP 012568 : 11,AUX,MMASK 012569 : 12,AOX,ПTP 012570 : 12,ATX,ПTP 012571 : ,XTA,B47 012572 : ,UJ,PUTTM 012573 : NOUSM:,XTA,B48 012574 : ,UJ,PUTTM 012575 : C... OФOPMЛEHИE V-ЛИCTA B TPHYS : 012576 : VMEM:,BSS, 012577 : ,AAX,B16 012578 : ,UZA,NO EXCH 012579 : C... MAT.ЛИCT ЗAKPЫT ПO OБMEHY 012580 : C (V-ЛИCT B ЭTO BPEMЯ CBOБOДEH) 012581 : ,XTA,DISREG 012582 : ,ATI,27B 012583 : ,*57,3.ЖДEM KO 012584 : ,UJ,MAT ANAL 012585 : NO EXCH:,BSS, 012586 : 11,XTA,V 012587 : ,ASN,64-38 012588 : ,AUX,=0003 7003 7000 0000 012589 : 10,AEX,TPHYS 012590 : ,AAX,=0007 7007 7000 0000 012591 : 10,AEX,TPHYS 012592 : 10,ATX,TPHYS 012593 : ,ITA,10 012594 : ,ASN,64-36 012595 : C... CMEHA XAP-KИ V-ЛИCTA 012596 : C... B TAБЛИЦE TPAKTOB 012597 : NVXT:9,XTS,TPAKTЫ 012598 : 11,APX,VMASK 012599 : 11,ATX,VXAP 012600 : 15,AEX, 012601 : 11,AUX,VMASK 012602 : 9,AEX,TPAKTЫ 012603 : 9,ATX,TPAKTЫ 012604 : C... PAЗБEPEMCЯ C V-ЛИCTOM : 012605 : 11,XTA,VXAP 012606 : ,UZA,NOUSM.HE ИCП. 012607 : ,ASN,64+36 012608 : ,ATI,14 012609 : ,ASN,64+7 012610 : ,U1A,MSWIN.HE B MOЗY 012611 : C... CMEHA B TPHYS HOMEPA V-ЛИCTA 012612 : C... HA HOMEP MAT.ЛИCTA 012613 : 11,XTA,M 012614 : ,ASN,64-21 012615 : 14,AEX,TPHYS 012616 : ,AAX,=0007 7007 7000 0000 012617 : 14,AEX,TPHYS 012618 : 14,ATX,TPHYS 012619 : ,ITA,14 012620 : C... MEHЯEM MECTAMИ БИTЫ 012621 : C ЗAKPЫTOCTИ ПO ПPИOPИTETY 012622 : ,ASN,64+2 012623 : ,ATI,10 012624 : ,ITA,14 012625 : ,AAX,C3 012626 : ,ATI,9 012627 : 9,XTA,PRTVP 012628 : 10,APX,B48 012629 : ,ASN,64+1 012630 : ,ITS,14 012631 : ,ASN,64-30 012632 : 15,AEX,.B TMATN 012633 : 9,XTS,PRTVP 012634 : 10,AOX,B48 012635 : 11,XTS,MXAP 012636 : ,AAX,B17 012637 : ,AEX,B17 012638 : :,UZA,*+1 012639 : 10,XTA,B48 012640 : :15,AEX, 012641 : 9,STX,PRTVP 012642 : C... ЗAMEHA B TMATN : 012643 : PUTTM:11,XTS,M 012644 : ,ARX,ГYC 012645 : ,ATI,14 012646 : 14,XTA,TMATN 012647 : 15,AEX, 012648 : ,AAX,B48/31 012649 : 14,AEX,TMATN 012650 : 14,ATX,TMATN 012651 : ,ASN,64+30 012652 : ,AAX,C177 012653 : ,ATI,9 012654 : ,UZA,NO46 012655 : 9,XTA,TPHYS 012656 : ,ASN,64-39.7-Й B 46-Й 012657 : ,AAX,B46 012658 : NO46:14,AOX,TMATN 012659 : 14,ATX,TMATN 012660 : C... ЗAMEHA ПPИПИCKИ MAT.ЛИCTA 012661 : 11,XTS,M 012662 : ,AAX,C7 012663 : ,AEX,C7 012664 : ,ATI,9 012665 : 9,XTA,B28.ЗAKPЫTЬ 012666 : 11,ATX,VXAP.ПO ЗAЩИTE 012667 : 11,XTA,M 012668 : ,AAX,C3 012669 : ,ATI,12 012670 : ,XTA,=1 0400 0037 012671 : MM:11,ATX,MMASK 012672 : 12,VZM,CHTM 012673 : ,APX,=3777 7777 7417 7777 012674 : 12,UTM,-1 012675 : ,UJ,MM 012676 : CHTM:11,XTA,M 012677 : ,ASN,64+2 012678 : ,AEX,C7 012679 : ,STI,12 012680 : ,AAX,B48/47 012681 : ,U1A,PRIOR 012682 : 11,ATX,VXAP.OTKP.ЗAЩ. 012683 : 14,XTA,TMATN 012684 : PRIOR:,ASN,64-11 012685 : 11,AUX,MMASK 012686 : 11,ATX,MXAP 012687 : 11,XTA,M 012688 : ,ASN,64+3 012689 : ,ATI,14 012690 : ,AEX,C3 012691 : ,ATI,10 012692 : ,ASN,64+2 012693 : ,U1A,EXIT.ФOPM.ЛИCT 012694 : 11,UTC, 012695 : 12,XTA,TПPИП 012696 : 11,AOX,MMASK 012697 : 11,AEX,MMASK 012698 : 11,AEX,MXAP 012699 : 11,UTC, 012700 : 12,ATX,TПPИП 012701 : ,ASN,64-8 012702 : ,AUX,Z28/21 012703 : ,ITS,12 012704 : ,AEX,C7 012705 : ,STI,12 012706 : 12,MOD,20B.B PП 012707 : ,ATI, 012708 : 11,UTC, 012709 : 10,XTA,TЗAЩ 012710 : 9,AOX,B28 012711 : 9,AEX,B28 012712 : 11,AEX,VXAP 012713 : 11,UTC, 012714 : 10,ATX,TЗAЩ 012715 : 14,MOD,30B.B PЗ 012716 : 11,XTA,IFP 012717 : ,U1A,OFFTASK 012718 : C.... BЫXOД ПOД ЭKCTPAKOД : 012719 : EXIT:14,VTM,.HOPMA 012720 : ,ITA,13 012721 : ,ARX,OFF 012722 : ,UJ,NRESOFF 012723 : OFF:,Z00,NR/72 012724 : ,Z00,RET-START 012725 : RET:,24,2003B 012726 : 15,XTA, 012727 : ,ATI,11 012728 : ,ASN,64+15 012729 : ,ATI,10 012730 : ,ASN,64+15 012731 : ,STI,9 012732 : ,ATI,27B 012733 : ,ASN,64+15 012734 : ,STI,12 012735 : ,ATX,SAVI13 012736 : ,ASN,64+15 012737 : ,STI,32B 012738 : ,STX,SAVI14 012739 : ,STX,SAVAR 012740 : ,ATX,SAVI15 012741 : ,STX,SAVSR 012742 : ,ATX,SAVAC 012743 : 14,VZM,OUTMACRO 012744 : ,ITA,14 012745 : ,AEX,OFF 012746 : ,AAX,C77777 012747 : ,AEX,OFF 012748 : ,ATX,SAVAR.SAVAC=0 012749 : 14,UTM,-MACRO72 012750 : 14,VZM,NRESOFF+2 012751 : ,UJ,ERRNRES 012752 : C========================= 012753 : :,BSS, 012754 : IW/71:12,Z04,2 012755 : ,004, 012756 : ,END, 012757 : NRESCALL:,NAME,. 012758 : C 012759 : C++++++++++++++++++ MOHИTOP HEPEЗИДEHTOB 012760 : C+ 012761 : C+ NRESCALL - BЫЗOB HEPEЗИДEHTA. HA 012762 : C+ BXOДE CYMMATOP ДOЛЖEH 012763 : C+ COДEPЖATЬ CЛOBO: 012764 : C+ ,Z00,POINTER HEPEЗИДEHTA 012765 : C+ ,Z00,N 012766 : C+ ECЛИ N>17B - ЭTO AДPEC BOЗBPATA, 012767 : C+ ИHAЧE N ИHTEPПPETИPYETCЯ KAK БAЗOBЫЙ 012768 : C+ PEГИCTP HEPEЗИДEHTA - AДPEC HEPEЗИ- 012769 : C+ ДEHTA ЗACЫЛAETCЯ HA ЭTOT PEГИCTP И 012770 : C+ YПPABЛEHИE ПEPEДAETCЯ HEПOCPEДCTBEH- 012771 : C+ HO HEPEЗИДEHTY. HA BЫXOДE CYMMATOP 012772 : C+ COДEPЖИT AДPEC HEPEЗИДEHTA. COXPAHЯ- 012773 : C+ ЮTCЯ CПEЦ.PEГИCTPЫ 32B И 27B (БИTЫ 012774 : C+ 1-4,6-8,10,11). ПOPTИTCЯ 33B. 012775 : C+ 012776 : C+ NRESOFF - OTKAЗ OT HEPEЗИДEHTA. HA 012777 : C+ BXOДE CYMMATOP KAK Y 012778 : C+ NRESCALL, N BCEГДA ИHTEP- 012779 : C+ ПPETИPYETCЯ KAK AДPEC BOЗBPATA. PE- 012780 : C+ ГИCTPЫ HE ПOPTЯTCЯ. 012781 : C+ 012782 : C 012783 : I:,EQU,1. 012784 : J:,EQU,2. 012785 : K:,EQU,3. 9 012786 : RT:,EQU,4. 012787 : BIT1:,EQU,757B. 012788 : BIT7:,EQU,751B. 012789 : EXCHBIT:,EQU,BIT7. 012790 : BIT16:,EQU,740B 012791 : BITS:,EQU,677B. 012792 : M:,EQU,100B. 012793 : KNMP:,EQU,21. 012794 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR, 012795 : ,CONT,SAVS16. 012796 : *PRT: LC,BLOCK,NFMSCAL,NNRFLAG,NC,RP 012797 : *SWCMN:LC,BLOCK,SBUSYFLG. 012798 : C******* 012799 : SEMDOWNS:,SUBP, 012800 : SEMUP :,SUBP, 012801 : ШЛAГБAYM:LC,BLOCK,(5),CALLBSC 012802 : C******* 012803 : ДHЗ:,LC,1. 012804 : DISREG:LC,BLOCK,C2013. 012805 : C77777:,LC,1. 012806 : C1777:,LC,1 012807 : C 012808 : C... BHИMAHИE! LNRT ДOЛЖHO БЫTЬ HE MEHEE, 012809 : C ЧEM KOHHИЗ/1024. 012810 : C 012811 : LNRT:,EQU,26 012812 : B48/47:,LC,1 012813 : FULWOR:,LC,1. 012814 : *YCЫ:LC,BLOCK,Г Y C,RDSCAL. 012815 : TRAPHY:,SUBP,. 012816 : CLANEWTA:,SUBP,. 012817 : GIVEPAGE:,SUBP,. 012818 : ENTFOLIC:,SUBP, 012819 : T/ЧYЖЛИC:,EQU,6.HOMEP ДИAГHOCTИKИ 012820 : TPHYS:,LC,32. 012821 : DISPBASE:,LC,1. 012822 : C37:,LC,1. 012823 : MPHP:,EQU,C37. 012824 : BIT6:,EQU,752B. 012825 : TMATH:,EQU,30B. 012826 : KNP:,EQU,30. 012827 : : ,24,2003B 012828 : ,ATX,SAVAR. 012829 : 13,MTJ,16. 012830 : ,CALL,SAVE MOD. 012831 : C 012832 : C***** +2 : BXOД, KOГДA MAЛOE YПPЯTЫBAHИE 012833 : C***** YЖE CДEЛAHO. 012834 : C 012835 : ,ITA,27B 012836 : ,APX,PMASK 012837 : ,AEX,SAVAR 012838 : ,ATX,SAVAR 012839 : CHNRP:,XTA,SAVAR. 012840 : ,ASN,64+24. 012841 : ,AAX,C1777. 012842 : ,ATX,RELADR.OTH.AДP.HEP.ЧACTИ 012843 : ,XTA,W/S UP 012844 : ,UJ,SEMUP 012845 : W/S UP:,Z00,CALLBSC 012846 : ,Z00,*+1 012847 : ,XTA,SAVAR. 012848 : ,ASN,64+34.N ЛИCTA HEP. ЧACTИ 012849 : ,ATI,14. 012850 : 14,VZM,CALLNRP.TOЛЬKO ЗAXBAT ЛИCTA 012851 : 14,XTA,NRTABL. 012852 : ,AAX,MPHP. 012853 : ,UZA,CALLNRP. 012854 : ,ATI,15 012855 : ,WTC, Д H З 012856 : ,XTA,BITS-19.ЭTA ЗAДAЧA 012857 : 14,AOX,NRTABL.OБPAЩAЛACЬ 012858 : 14,ATX,NRTABL.K HEPEЗИДEHTY 012859 : 15,XTA,TPHYS 012860 : ,AOX,BIT1 012861 : 15,ATX,TPHYS 012862 : ,ITA,15 012863 : ,ASN,64-10. 012864 : ,ATI,13. 012865 : ,ATX,ANP.AДPEC HEP.ЛИCTA. 012866 : ,WTC,RELADR.ПEPBOE CЛOBO HEP.ЧACTИ 012867 : 13,UTM,. 012868 : 13,XTA,. 012869 : ,WTC,Д H З. 012870 : ,AAX,BITS-15 012871 : ,U1A,RESTORE.HEP.ЧACTЬ YЖE ЗAK. ДAHH. ZAД. 012872 : ,XTA,BIT16 012873 : 14,ARX,NRTABL. 012874 : 14,ATX,NRTABL. 012875 : ,WTC,Д H З. 012876 : ,XTA,BITS-15 012877 : 13,AOX,. 012878 : 13,ATX,.ШKAЛA ЗAKAЗOB HEP.ЧACTИ 012879 : RESTORE:,BSS,. 012880 : 13,XTA,. 012881 : ,AAX,C1777. 012882 : ,ARX,ANP. 012883 : ,ATX,NRADR.AДPEC HAЧAЛA BЫЗB.HEPEЗИДEHTA 012884 : 13,VTM,CHNRP 012885 : 13,MTJ,33B 012886 : 13,VTM,RET 012887 : ,ITA,15 012888 : ,UJ,TOCPRT 012889 : RET:,XTA,SAVAR 012890 : ,AUX,PMASK 012891 : ,ATI,27B 012892 : ,XTA,SAVAR 012893 : ,AAX,C77760 012894 : ,U1A,BOЗBPAT 012895 : ,XTA,SAVI13 012896 : 15,VTM,SAVI13 012897 : ,STI,13 012898 : ,STI,14 012899 : ,ATI,15 012900 : ,XTA,NRADR 012901 : ,WTC,SAVAR 012902 : ,ATI, 012903 : ,ATX,SAVAR 012904 : ,UJ,RRR 012905 : BOЗBPAT:,BSS,. 012906 : ,XTA,SAVI15. 012907 : ,ATI,15. 012908 : ,XTA,SAVI14. 012909 : ,ATI,14. 012910 : ,XTA,SAVI13. 012911 : ,ATI,13. 012912 : RRR:,XTR,SAVSR 012913 : ,XTA,NRADR. 012914 : ,WTC,SAVAR. 012915 : ,UJ,. 012916 : CALLNRP:,BSS,. 012917 : 15,VTM,CHSBFL 012918 : ,XTA,CALLBSC 012919 : :,UZA,*+1 012920 : 15,VTM,CHNRP 012921 : :,ITA,15 012922 : ,AOX,W/SEM 012923 : ,ATX,SAVS16 012924 : ,UJ,SEMDOWNS+2 012925 : W/SEM:,Z00,CALLBSC 012926 : ,Z00, 012927 : CHSBFL:15,VTM,200B 012928 : ,XTA,SBUSYFLG. 012929 : ,UZA,REDYRP.ПOДKAЧKA CBOБOДHA 012930 : 13,VTM,CHSBFL. 012931 : PREQ:13,MTJ,33B. 012932 : ,UJ,GIVEPAGE. 012933 : REDYRP:,XTA,BIT1. 012934 : ,WTC,RP. 012935 : ,ATX,TPHYS.ФИKC.PEZ.ЛИCTA 012936 : ,XTA,RP. 012937 : ,ATX,NP. 012938 : 13,VJM,PREQ.HA ПOДKAЧKY CO CПEЦ.ЗAKAЗOM 012939 : ,XTA,NNRFLAG 012940 : ,UZA,REDYPAGE 012941 : ,XTA, 012942 : ,ATX,NNRFLAG 012943 : ,UJ,CHSBFL.PEAKЦИЯ HA COOБЩEHИE, ЧTO CTPAHИЦY HE ДAЛИ 012944 : REDYPAGE:,BSS,. 012945 : ,XTA,SAVAR 012946 : ,ASN,64+34 012947 : ,UZA,FIXP 012948 : 13,VTM,REDYPRT 012949 : 13,MTJ,33B 012950 : ,ATI,14 012951 : ,XTA,NP 012952 : TOCPRT:,ATX,INFDR 012953 : 14,XTA,NRTABL 012954 : ,AAX,BITS+2 012955 : 13,UZA, 012956 : 14,AEX,NRTABL 012957 : 14,ATX,NRTABL 012958 : ,XTA,C2013 012959 : ,ATI,27B 012960 : ,XTA,INFDR 012961 : CALCPRT:,SUBP, 012962 : ,UJ,CALCPRT 012963 : REDYPRT:,BSS, 012964 : ,XTA,SAVAR. 012965 : ,ATX,AR 012966 : ,ASN,64+34. 012967 : ,ASN,64-2. 012968 : ,ARX,DISPBASE. 012969 : ,ATX,INFDR. 012970 : ,XTA,NP. 012971 : ,ASN,64-12. 012972 : ,AOX,INFDR. 012973 : ,AOX,CINFRP.ЛИCTOBOE CЧИTЫBAHИE 012974 : ,ATX,INFDR. 012975 : ,XTA,SAVI13. 012976 : ,ASN,64-15. 012977 : ,AOX,SAVI14. 012978 : ,ATX,M74. 012979 : C ПPИ ПEPEXBATE MБ HA MД 012980 : C SAVAC ПOPTИT ГYPEBИЧ 012981 : ,XTA,SAVAC 012982 : ,ATX,S 012983 : ,XTR,SAVSR. 012984 : 13,VTM,INFDR. 012985 : 14,VJM,TRAPHY. 012986 : ,XTA,AR 012987 : ,ATX,SAVAR 012988 : ,XTA,S 012989 : ,ATX,SAVAC 012990 : ,XTA,M74. 012991 : ,ASN,64+15. 012992 : ,ATX,SAVI13. 012993 : ,XTA,M74 012994 : ,AAX,C77777. 012995 : ,ATX,SAVI14. 012996 : FIXP:,BSS,. 012997 : ,XTA,SAVAR. 012998 : ,ASN,64+34. 012999 : ,ATI,14. 013000 : ,ASN,64-KNMP. 013001 : ,AOX,BIT1. 013002 : ,WTC,NP. 013003 : ,ATX,TPHYS. 013004 : ,XTA,NP. 013005 : 14,AOX,NRTABL 013006 : 14,ATX,NRTABL.B TAБЛИЦY HEPEЗ.ЛИCTOB 013007 : ,XTA,R/SEM 013008 : ,UJ,SEMUP 013009 : R/SEM:,Z00,CALLBSC 013010 : ,Z00,*+1 013011 : 14,VZM,FNRADR 013012 : ,UJ,CHNRP.HA HAЧAЛO BЫЗЫBATOPA 013013 : FNRADR:,XTA,NP 013014 : ,ASN,64-10. 013015 : ,ATX,NRADR. 013016 : ,UJ,RET 013017 : C 013018 : C OTKAЗ OT HEPEЗ. ЧACTИ 013019 : NRESOFF:,ENTRY,. 013020 : NRESOFF:,BSS,. 013021 : : ,24,2003B 013022 : ,ATX,SAVAR. 013023 : 13,MTJ,16. 013024 : ,CALL,SAVEMOD.MAЛOE TПP. 013025 : C**** +2: BXOД,KOГДA MAЛOE YПP. CДEЛAHO 013026 : ,XTA,SAVAR. 013027 : ,ASN,64+34. 013028 : ,ATI,14. 013029 : 14,XTA,NRTABL. 013030 : ,AAX,MPHP 013031 : ,UZA,BOЗBPAT.HEP.ЧACTЬ OTCYTCTBYET 013032 : ,ASN,64-10. 013033 : ,ATX,ANP. 013034 : ,XTA,SAVAR. 013035 : ,ASN,64+24. 013036 : ,AAX,C1777. 013037 : ,ATX,RELADR. 013038 : ,ARX,ANP. 013039 : ,ATI,13. 013040 : ,WTC,Д H З. 013041 : ,XTA,BITS-15 013042 : 13,AAX,. 013043 : ,UZA,BOЗBPAT. 013044 : 13,AEX,. 013045 : 13,ATX,. 013046 : 14,XTA,NRTABL. 013047 : ,ARX,CZ16 013048 : 14,ATX,NRTABL. 013049 : ,AAX,M46*2016 013050 : ,U1A,BOЗBPAT. 013051 : 14,WTC,NRTABL 013052 : ,XTA,TPHYS 013053 : ,AOX,BIT1 013054 : ,AEX,BIT1 013055 : 14,WTC,NRTABL. 013056 : ,ATX,TPHYS. 013057 : ,UJ,BOЗBPAT. 013058 : CALL1MEM:,ENTRY,. 013059 : BIT47:,EQU,701B. 013060 : B24/1:,LC,1. 013061 : C76000:,LC,1. 013062 : ,AAX,B24/1. 013063 : ,ATX,SAVAR. 013064 : ,ITA,14. 013065 : ,AAX,C76000. 013066 : ,ASN,64-14. 013067 : ,AOX,SAVAR. 013068 : CALL1FMEM:,ENTRY,. 013069 : : ,24,2003B 013070 : ,ATX,SAVAR. 013071 : 13,MTJ,16. 013072 : ,CALL,SAVEMOD. 013073 : SETI15:,BSS,. 013074 : ,XTA,SAVAR. 013075 : ,ASN,64+24. 013076 : ,ATI,15. 013077 : TO PRT:13,VTM,CHEK1M. 013078 : 13,MTJ,33B. 013079 : 13,VTM,2013B. 013080 : 13,MTJ,27B. 013081 : 14,VTM,T/ЧYЖЛИC 013082 : ,UJ,ENTFOLIC. 013083 : CHEK1M:,XTA,SAVAR. 013084 : ,ASN,64+24. 013085 : ,ATI,15. 013086 : ,WTC,Г Y C. 013087 : 15,XTA,TMATH. 013088 : ,AAX,B48/47. 013089 : ,U1A,TOPRT. 013090 : ,WTC,Г Y C. 013091 : 15,XTA,TMATH. 013092 : ,ASN,64+KNP. 013093 : ,ATX,NRADR. 013094 : ,WTC,NRADR. 013095 : ,XTA,TPHYS. 013096 : ,AAX,EXCHBIT. 013097 : ,U1A,TO PRT. 013098 : ,XTA,NRADR. 013099 : ,ASN,64+5 013100 : ,UZA,REDYFP.ЛИCT B ПAMЯTИ 1 013101 : 15,UTM,400B. 013102 : 13,VTM,SETI15. 013103 : 13,MTJ,33B. 013104 : 13,VTM,2013B. 013105 : 13,MTJ,27B. 013106 : ,UJ,GIVEPAGE.K ПOДKAЧKE ЗA ПEPEKAЧKOЙ 013107 : REDYFP:,XTA,SAVI15. 013108 : ,ATI,15. 013109 : ,XTA,NRADR. 013110 : ,ASN,64-10. 013111 : ,WTC,SAVAR. 013112 : ,UJ,. 013113 : M46*2016:,OCT,1000 0000 0370 0000 013114 : CINFRP:,LOG,140 0000. 013115 : C77760:,LOG,77760 013116 : PMASK:,OCT,7777777700003357 013117 : NRADR:,BSS,1. 013118 : INFDR:,BSS,1. 013119 : NP:,BSS,1. 013120 : RELADR:,BSS,1. 013121 : S:,BSS,1. 013122 : AR:,BSS,1 013123 : ANP:,BSS,1. 013124 : M74:,BSS,1. 013125 : NRTABL:,ENTRY,. 013126 : NRTABL:,BSS,LNRT. 013127 : CZ16:,OCT,7777 7777 7767 7777 013128 : ,END, 013129 : *C:,NAME,. 013130 : C6:,LOG,6. 013131 : MACRO71*:,SUBP, 013132 : C571:,Z00, 013133 : ,Z00,MACRO71*.AДPEC ПOBTOPHOЙ AKTИBИЗAЦИИ Э71 013134 : C574:,LOG,574. 013135 : C176000:,LOG,176000. 013136 : ,END,. 013137 : NRSMT*SE:,NAME, 013138 : C 013139 : C 013140 : C======================================= 013141 : C 013142 : C HEPEЗИДEHT Э57 (10-4000B) 013143 : C OПPOC COCTOЯHИЯ MAГHИTOФOHOB 013144 : C ПOИCK MЛ ПO ИMEHИ 013145 : C ЗAXBAT MЛ ЗAДAЧEЙ 013146 : C OTKAЗ OT MЛ 013147 : C ПEPEДAЧA PECYPCOB TИПA MЛ 013148 : C ЗAKAЗ/OTKAЗ OПPOCA OБMEHA 013149 : C 013150 : C 1 AПPEЛЯ 1977 Г. CAПOЖHИKOB. 013151 : C 013152 : C====================================== 013153 : C ПAPAMETPЫ ЧИCЛA ЗAДAЧ: 013154 : * И П Д :LC,BLOCK,XNF,XNFM(4) 013155 : ,CONT,XNC,XNCM(2),Ш/CЛYЖ,Ш/FULL(6) 013156 : ,CONT,MБД,*LFATA(11),MONO,FREXT 013157 : NMAT :,WEQ,XNC 013158 : NMAT1:,WEQ,XNF 013159 : C--------------------------- 013160 : ШЛAГБAYM:LC,BLOCK,SEM/NR57,SEM/OCCD 013161 : SEMDOWNS:,SUBP, 013162 : SEMUP :,SUBP, 013163 : *700:B,BLOCK,B48,B47,B46,B45,B44,B43,B42,B41 013164 : ,CONT,B40,B39,B38,B37,B36,B35,B34,B33,B32,B31 013165 : ,CONT,B30,B29,B28,B27,B26,B25,B24,B23,B22,B21 013166 : ,CONT,B20,B19,B18,B17,B16,B15,B14,B13,B12,B11 013167 : ,CONT,B10,B9,B8,B7,B6,B5,B4,B3,B2,B1 013168 : TABLEMT:LC,BLOCK,T1(96),TNAM(48) 013169 : STATUSMT:LC,BLOCK,(5),NEW(27),MISTERX 013170 : REWINDSC:LC,BLOCK,(1),STWRIS,CHECKWR 013171 : SMASAV:LC,BLOCK,SAVAC(3),S15,S14,S13 013172 : F A T A :,LC,1 013173 : * И П K 1:,LC,1 013174 : MONOW :,EQU,*ИПK1+NMAT 013175 : NFIL:,EQU,T1+48 013176 : BNRD:,EQU,B29 013177 : *YCЫ:LC,BLOCK, Г Y C 013178 : ,CONT,RDSCAL 013179 : SAVAR:,EQU,SAVAC+2 013180 : BITS:,EQU,677B 013181 : DISREG:,LC,1 013182 : FULWOR:,LC,1 013183 : C2003 :,LC,1 013184 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 013185 : Ш/ДИCП:,EQU,XNF+23B 013186 : C777:,LC,1 013187 : C2004:,LC,1 013188 : C77:,LC,1 013189 : C7 :,LC,1 013190 : C3 :,LC,1 013191 : TRAKYS:,EQU,=0070 0000 0000 1600 013192 : CLANEWTA:,SUBP, 013193 : FULSAV :,SUBP, 013194 : SAVTOTAL:,EQU,FULSAV+1 013195 : NR//SEAR:,SUBP, 013196 : TTPRINT 1:,SUBP, 013197 : NEWTA :,SUBP, 013198 : NRESOFF:,SUBP, 013199 : LFATA:,WEQ,*LFATA 013200 : *127:B,BLOCK,MLD,RLD 013201 : NC*5:,P*P,(NMAT)5 013202 : NC*5P4:,EQU,NC*5+4 013203 : POST:,LC,1 013204 : WAITPOST:,EQU,POST+NC*5P4 013205 : C7777:,LC,1 013206 : LTF :,EQU,LFATA-1 013207 : EFATA:,EQU, FATA+LTF 013208 : ET1 :,EQU,T1+47 013209 : REGSCAL:,EQU,100B 013210 : ERR*57:,SUBP, 013211 : NUM*TL:,EQU,1067B 013212 : C 013213 : C.. COБCTBEHHOE ПOЛE YПPЯTЫBAHИЯ 013214 : C 013215 : SIR:I,BLOCK,NAME(2),REGIM 013216 : ,CONT,R33,R32 013217 : ,CONT,R27,R16,R15,R14,R13 013218 : ,CONT,REGISTER(11),R1 013219 : C 013220 : C.. ИHДEKC-PEГИCTPЫ 013221 : C 013222 : *1:B,BLOCK,W1,SPEC,TAPE,ABSENT,BUSY 013223 : ,CONT,NOREADY,WRITE,READ,BLOCK,NOBOBIN(0),STN 013224 : ,CONT,TAKE,REFUSE,RET,BASA,W2 013225 : C 013226 : C.. ЭKOHOMИЯ HA PAБ.ЯЧEЙKAX 013227 : WS:,EQU,R14 013228 : IDENT:,EQU,R16 013229 : TKYC:,EQU,R27 013230 : RESULT:,EQU,R33 013231 : C 013232 : C.. KOЛИЧECTBO PAБOT 013233 : ДEЯHИЯ:,EQU,9 013234 : ДEЯHИE*1:,EQU,B4 013235 : *****:14,REL,***** 013236 : ,XTA,DISREG 013237 : ,ATI,27B 013238 : ,XTA,S14.CПACEHИE 013239 : ,ATX,SAVAR.14 PEГ. 013240 : C 013241 : C.. CTPAXOBKA OT HAИБOЛEE OПACHЫX ДEЯHИЙ 013242 : C 013243 : ,APX,B11 013244 : ,UZA,AFT/WAIT 013245 : ,WTC, Г Y C 013246 : ,AAX,REGSCAL 013247 : ,UZA,ERR*57 013248 : C.. ПOBTOPHЫЙ BXOД ПOCЛE WAIT. 013249 : AFT/WAIT:,BSS, 013250 : C.. HA ПPEДMET BOЗMOЖHOГO ЗAKPЫTИЯ 013251 : C.. ЗAДAЧИ - CПACEM БAЗY HEPEЗИДEHTA 013252 : ,ITA,BASA 013253 : ,ATX,S14 013254 : C.. ПPEOДOЛEHИE CEMAФOPA 013255 : ,ARX,W/DOWN 013256 : ,UJ,SEMDOWNS 013257 : W/DOWN:,Z00,SEM/NR57 013258 : ,Z00,AFT/DOWN-***** 013259 : AFT/DOWN:,BSS, 013260 : C 013261 : C.. ПOЛYЧИЛИ BOЗMOЖHOCTЬ ПOPAБOTATЬ 013262 : C.. CПACEM BCE ПOДPЯД 013263 : 15,VTM,SIR 013264 : ,MTJ,33B.RESULT=0 013265 : 13,VJM,SAVTOTAL 013266 : ,WTC,S14 013267 : 14,VTM, 013268 : C.. И OTKPOEM,HAKOHEЦ,ПPEPЫBAHИЯ 013269 : : ,24,3 013270 : TAPE,VTM,-47 013271 : W1,VTM,1-ДEЯHИЯ 013272 : SPEC,VTM,ДEЯHИЯ 013273 : C.. ДЛЯ ПYЩEГO YДOБCTBA PACПИXAEM 013274 : C.. PEЖИMЫ OБPAЩEHИЯ ПO PEГИCTPAM 013275 : MAKFLAGS:,XTA,REGIM 013276 : SPEC,AAX,ДEЯHИE*1-ДEЯHИЯ 013277 : SPEC,UTM,-1 013278 : W1,ATI,REFUSE 013279 : W1,VLM,MAKFLAGS 013280 : C 013281 : C.. A PEЖИMЫ ЭTИ TAKOBЫ : 013282 : C 1. ABSENT (4-Й P. AИCП.)-ПEЧATЬ 'HET MЛ',ECЛИ HAДO 013283 : C 2. BUSY (5-Й P.)-ПEЧATЬ 'ЗAHЯT MФ' 013284 : C 3. NOREADY(6-Й P.)-ПEЧATЬ 'HEГOT.MФ' 013285 : C 4. WRITE (7-Й P.) -''- 'ЗAПИCЬ MФ' 013286 : C 5. READ (8-Й P.) -''- 'ЧTEHИE MФ' 013287 : C 6. BLOCK (9-Й P.) - БЛOKИPOBKA TT-ДИAГHOCTИKИ 013288 : C 7. NOBOBIN(10-Й P.) ПOИCK TOЛЬKO ПO ИMEHИ 013289 : C / БEЗ N БOБИHЫ / 013290 : C 8. TAKE (11-Й P.) ПOИCK C ЗAXBATOM MЛ 013291 : C /MAT.HOMEP MЛ - B 13 PEГ./ 013292 : C 9. REFUSE (12-Й P.) OTKAЗ OT CBOИX MЛ 013293 : C ЗAДAHHЫX HA CYMMATOPE 013294 : C БИTOBOЙШKAЛOЙ: 013295 : C ( 48 P. - MЛ 30 ДЛЯ MAT.ЗAДAЧ 013296 : C ИЛИ MЛ 00 ДЛЯ CЛYЖ.ЗAДAЧ ) 013297 : RET,VTM,ANAL 013298 : ,U1A,REFTAP.HA OTKAЗ 013299 : NOBOBIN,VZM,FULNAM 013300 : NOBOBIN,VTM,12 013301 : C.. ФOPMИPOBAHИE ИДEHTA MЛ 013302 : FULNAM:,ITA,TAKE 013303 : ,UZA,SERONLY 013304 : ,XTA,Д H З 013305 : ,ASN,64-6 013306 : ,AOX,R13 013307 : ,ASN,64-36 013308 : ,ATX,IDENT 013309 : ,XTA,NAME 013310 : ,ASN,64+12 013311 : ,UZA,SETDNS.SCRATCH-ИMЯ 013312 : ,ASN,64+28 013313 : ,U1A,SETDNS.HOPM.ИMЯ 013314 : C 013315 : C.. ПEPEДAЧA MЛ-PECYPCA 013316 : C 1-12 P. NAME - ИД.MЛ Y CTAPOГO XOЗЯИHA 013317 : C 13-24 --''-- Y HOBOГO . 013318 : C 013319 : ,XTA,NAME 013320 : ,ASN,64-36 013321 : ,ATX,WS 013322 : C.. ПOИCK CTAPOГO ИДEHTA 013323 : C CПEPBA B T1MT, ПOTOM B FATA. 013324 : SPEC,VTM, 013325 : SE/1:SPEC,UTC, 013326 : TAPE,XTA,ET1 013327 : ,AEX,WS 013328 : ,ASN,64+36 013329 : ,UZA,SE/2 013330 : TAPE,VLM,SE/1 013331 : RET,UTC, 013332 : SPEC,VIM, 013333 : TAPE,VTM,-LTF 013334 : SPEC,VTM,EFATA-ET1 013335 : ,UJ,SE/1 013336 : C.. CMEHA HAЙДEHHOГO ИДEHTA HA HOBЫЙ 013337 : SE/2:SPEC,UTC, 013338 : TAPE,UTM,ET1.AДPEC ПO TAБЛ. 013339 : ,XTA,NAME 013340 : ,ASN,64+12 013341 : ,AEX,NAME 013342 : ,ASN,64-36 013343 : : ,24,2003B 013344 : TAPE,AEX, 013345 : TAPE,ATX, 013346 : SPEC,VZM,EXIT.MЛ 013347 : ,ASN,64+30 013348 : ,AAX,C77 013349 : ,ATI,SPEC.N MOD 013350 : ,XTA,NAME 013351 : ,AAX,C77 013352 : ,ATI,TAPE 013353 : TAPE,XTA,B48-30B 013354 : ,AEX,FULWOR 013355 : C-- ЧИCTKA B M Л Д 013356 : ,WTC, Г Y C 013357 : ,AAX,MLD 013358 : ,WTC, Г Y C 013359 : ,ATX,MLD 013360 : C-- OTKAЗ OT ПAKETA 013361 : ,XTA,FULWOR 013362 : SPEC,AEX,B48-30B 013363 : ,WTC, Д H З 013364 : ,AAX,MONOW-NMAT 013365 : ,WTC, Д H З 013366 : ,ATX,MONOW-NMAT 013367 : C-- ПEPEДAЧA ПAKETA KЛИEHTY 013368 : ,XTA,NAME 013369 : ,ASN,64+18 013370 : ,AAX,C77 013371 : ,ATI,W2.EГO ДHЗ 013372 : SPEC,XTA,B48-30B 013373 : W2,AOX,MONOW-NMAT 013374 : W2,ATX,MONOW-NMAT 013375 : C.. B MЛД KЛИEHTA ПPOCTABЛЯTЬ '1' 013376 : C BOЗДEPЖИMCЯ BBИДY YПЛЫTИЯ ИПЗ. 013377 : C ЗAДAЧA OБMEHA CAMA PAЗБEPETCЯ. 013378 : ,UJ,EXIT 013379 : C-- 013380 : SETDNS:,BSS, 013381 : ,XTA,R13 013382 : C.. ПЛOTHOCTЬ ЗAПИCИ ЗAДAETCЯ 013383 : C.. 14-15 БИTAMИ MOДИФИKATOPA 13 013384 : C.. 13 БИT - ПPИЗHAK CHЯTИЯ OБMEHA 013385 : C ПO ДИAГHOCTИKE 'ЦK MФ' 013386 : ,ASN,64+12 013387 : ,ASN,64-8 013388 : ,AOX,IDENT 013389 : SERONLY:,AOX,B1 013390 : ,ATX,IDENT 013391 : C.. ПPOБA - HE PAБOЧAЯ ЛИ MЛ : 013392 : ,XTA,NAME 013393 : ,AEX,=2245 1252 5122 4512 013394 : ,U1A,NO/WOR/T 013395 : C.. ПOИCK TOЛЬKO ПO PEAЛЬHЫM MЛ 013396 : TAPE,VTM,-31 013397 : NO/WOR/T:,ITA,TAPE 013398 : ,ATX,TAPCNT 013399 : C 013400 : C.. ПPOБA HA CПEЦ-ЗAKAЗ : 013401 : C.. OПPOC COCTOЯHИЯ ФИЗ.MAГHИTOФOHA 013402 : C.. HOMEP MФ - B 4-9 P. CYMMATOPA 013403 : C.. 10-48 P. CYMMATOPA - EДИHИЦЫ 013404 : ,XTA,NAME 013405 : ,AOX,B48 013406 : ,ARX,B10 013407 : ,UZA,NOSPEC 013408 : C 013409 : C.. B ЭTOM CЛYЧAE ABSENT ЗAДAET 013410 : C.. ПEЧATЬ ДИAГH. 'ИMEHOB.MЛ', ECЛИ 013411 : C.. MЛ HE OTMEЧEHA B MISTERX 013412 : ,ASN,64+3.HOMEP 013413 : ,ATI,TAPE.MЛ 013414 : ,ATX,RESULT 013415 : ,XTA,MISTERX 013416 : TAPE,APX,B48-30B 013417 : ,AAX,B48 013418 : ,AEX,B48 013419 : ,ASN,64+3 013420 : ,AOX,RESULT 013421 : ,UJ,CHECK1 013422 : C 013423 : C.. БЛOK OПPOCA COCTOЯHИЯ 013424 : C.. ГT.,ЧT/ЗП., И ЗAHЯTOCTИ MФ. 013425 : C 013426 : CHECK:TAPE,UTM,67B 013427 : ,ITA,TAPE 013428 : CHECK1:,ATX,RESULT 013429 : ,XTA,C777 013430 : ,ATX,LSTZON 013431 : TAPE,XTA,T1-10B 013432 : TAPE,UTM,-67B 013433 : ,ASN,64+42 013434 : ,UZA,FRTAP 013435 : ,AEX, Д H З 013436 : ,UIA,BUSTAP 013437 : TAKE,VZM,FRTAP 013438 : TAPE,XTA,T1+47 013439 : ,AEX,IDENT 013440 : ,ASN,64+36 013441 : BUSTAP:,BSS, 013442 : ,UZA,FRTAP 013443 : ,XTA,B46 013444 : FRTAP:,AOX,RESULT 013445 : ,ATX,RESULT 013446 : ,ASN,64-42 013447 : ,AUX,TRAKYS 013448 : ,ATX,TKYC 013449 : ,ASN,64+7 013450 : ,ATI,W1 013451 : ,ASN,64+32 013452 : ,ATI,W2 013453 : ,ARX,B1 013454 : ,AAX,B3 013455 : ,U1A,NO/MODEL 013456 : C... ПO MOДEЛИ ГOTOBHOCTЬ CMOTPИM B FATA 013457 : TAPE,WTC,NFIL+47 013458 : ,XTA,FATA-1 013459 : ,AAX,BNRD 013460 : ,ASN,64-18 013461 : ,AOX,RESULT 013462 : ,ATX,RESULT 013463 : TAPE,WTC,NFIL+47 013464 : ,XTA,FATA-1 013465 : ,ATI,W1 013466 : ,ASN,64+12 013467 : ,AAX,C7777 013468 : ,ATX,LSTZON 013469 : ,ITA,W1 013470 : ,AAX,C7777 013471 : ,NTR,3 013472 : ,A-X,LSTZON 013473 : ,ATX,LSTZON 013474 : ,XTA,REGIM 013475 : ,APX,B8 013476 : ,AOX,RESULT 013477 : ,UJ,EXCHECK 013478 : NO/MODEL:W2,XTA,NEW-3 013479 : W1,ASN,64+6 013480 : ,APX,C2004 013481 : ,AOX,RESULT 013482 : EXCHECK:,BSS, 013483 : ,ATX,RESULT 013484 : RET,UJ, 013485 : C 013486 : C.. OБЫЧHЫЙ PEЖИM ПOИCKA 013487 : C 013488 : NOSPEC:TAKE,VZM,SE/NAM 013489 : C.. ПOИCK ПO ИДEHTY ПEPEД ЗAXBATOM 013490 : SE/OWN:TAPE,XTA,T1+47 013491 : ,AEX,IDENT 013492 : ,ASN,64+36 013493 : ,UZA,CHECK 013494 : TAPE,VLM,SE/OWN 013495 : C.. HE HAШЛИ - ИЩEM CBOБOДHYЮ 013496 : C.. MЛ ПO ЗAДAHHOMY ИMEHИ 013497 : ,XTA,TAPCNT.CЧETЧИK 013498 : ,ATI,TAPE.ЦИKЛA 013499 : SE/NAM:TAPE,XTA,TNAM+47 013500 : ,AEX,NAME 013501 : NOBOBIN,ASN,64 013502 : ,U1A,ELSN 013503 : RET,VJM,CHECK 013504 : C.. B XOPOШEM ЛИ COCTOЯHИИ 013505 : ,ASN,64+45 013506 : ,AAX,C3 013507 : ELSN:,UZA,ANAL.BПOЛHE 013508 : TAPE,VLM,SE/NAM 013509 : C.. HEYДAЧA 013510 : TAKE,VTM, 013511 : ANAL:,BSS, 013512 : C.. AHAЛИЗ - ЧEГO ДOCTИГЛИ 013513 : ,XTA,RESULT 013514 : W1,VTM,-2 013515 : ,ATI,TAPE 013516 : ,UZA,CHBLOK.NOTHING 013517 : ,AEX,B48 013518 : C.. ПOЛYЧEHИE CЛOBA COCTOЯHИЯ MЛ 013519 : ,ASN,64+1 013520 : ,ARX,B47 013521 : ,ASN,64+40 013522 : C.. OПPEДEЛEHИE - ЧTO HE TAK 013523 : ,AAX,REGIM 013524 : ,U1A,CHBLOK 013525 : ,XTA,B46 013526 : ,AOX,B47 013527 : ,AAX,RESULT 013528 : ,U1A,EXIT 013529 : OKEY:,BSS, 013530 : C.. HYЖEH ЛИ ЗAXBAT 013531 : TAKE,VZM,EXIT.HET 013532 : ,ITA,TAPE 013533 : ,ARX,B4 013534 : ,ASN,64+5 013535 : ,U1A,OCCTAP 013536 : TAPE,WTC,NFIL-10B 013537 : ,XTA,FATA-1 013538 : ,ARX,B34 013539 : ,APX,=0000 1740 7777 0000 013540 : ,ASN,64+31 013541 : ,AOX,B22 013542 : BASA,MTJ,SPEC 013543 : ,CALL,K COCEДY 013544 : SPEC,MTJ,BASA 013545 : ,UZA,OCCTAP 013546 : ,XTA,B46 013547 : ,AOX,RESULT 013548 : ,ATX,RESULT 013549 : ,UJ,ANAL 013550 : OCCTAP:,24,2003B 013551 : ,XTA,IDENT 013552 : TAPE,ATX,T1-10B 013553 : C.. YCTAHOBKA ЗAKAЗAHHOГO 013554 : C.. PEЖИMA ЧTEHИЯ И KOHTPOЛЯ. 013555 : WRITE,VIM,EXIT.STANDART 013556 : TAPE,XTA,B48-10B.BIT MT 013557 : 13,VTM,STWRIS.ЗAПP.ЗП. 013558 : READ,VIM,CLOWNBIT.-ДA 013559 : 13,VTM,CHECKWR.БEЗ KOHTPOЛЯ 013560 : CLOWNBIT:,AEX,FULWOR 013561 : 13,AAX,.ГAШEHИE БИTA B 013562 : 13,ATX,.HYЖHOЙ ШKAЛE. 013563 : ,UJ,EXIT 013564 : C 013565 : C.. ДИAГH.БЛOKИPOBAHA 013566 : CHBLOK:BLOCK,VIM,EXIT.ДA 013567 : ,ATX,WS 013568 : W1,VTM,-4 013569 : C.. ЦИKЛ ПO TИПAM BOЗMOЖHЫX 013570 : C.. HEПPИЯTHOCTEЙ. ПOЛYЧEHИE 013571 : C.. TEKCTA COOTB.ДИAГHOCTИKИ 013572 : DIATYP:W1,ITA,READ 013573 : ,AAX,WS 013574 : ,U1A,TYPIS 013575 : W1,VLM,DIATYP 013576 : W1,VTM,1 013577 : C.. KOДИPOBKA HOMEPA MФ B TT-KOД 013578 : TYPIS:BASA,MTJ,SPEC 013579 : W1,XTA,TИM+4 013580 : ,ATX,MATHOMEP 013581 : ,XTA,Ш/ДИCП 013582 : ,AAX,BITJ 013583 : ,AEX,BITJ 013584 : ,UZA,TONБOБ 013585 : NOBOBIN,VIM,BWOR 013586 : ,XTA,NAME 013587 : ,AEX,FULWOR 013588 : ,ASN,64+9 013589 : ,UZA,TON БOБ 013590 : ,XTA,NAME 013591 : ,FUN,202B 013592 : SPEC,MTJ,BASA 013593 : ,AOX,CБOБ 013594 : TONБOБ:,BSS, 013595 : ,ATX, БOБ 013596 : ,XTA,RESULT 013597 : ,UZA,TAPEABS 013598 : ,ASN,64-42 013599 : ,AUX,CON1 013600 : ,AOX,CON2 013601 : TONMF:,ATX,NMF 013602 : W1,VTM,MATHOMEP 013603 : ,XTA,BITJ 013604 : ,AAX,Ш/CЛYЖ 013605 : ,UZA,TELL 013606 : :,24, 013607 : ,XTA,NUM*TL 013608 : :,24,3 013609 : ,AAX,B41 013610 : TELL:,ATX,TAPCNT 013611 : ,ITA,W1 013612 : ,AOX,TAPCNT 013613 : 14,CALL,TTPRINT1 013614 : SPEC,MTJ,BASA 013615 : ,UJ,EXIT 013616 : BWOR:,XTA,TBW 013617 : ,UJ,TONБOБ 013618 : TAPEABS:,XTA,C/1 013619 : ,UJ,TONMF 013620 : C 013621 : C.. БЛOK OTKAЗA OT CBOИX ЛEHT 013622 : C 013623 : REF/FATA:TAPE,VTM,-LTF 013624 : SPEC,VTM,EFATA-ET1 013625 : REFTAP:,BSS, 013626 : RT1:,BSS, 013627 : SPEC,UTC, 013628 : TAPE,XTA,ET1 013629 : ,ATX,IDENT 013630 : ,ASN,64+42 013631 : ,AEX, Д H З 013632 : ,U1A,ELOOPRT 013633 : ,XTA,IDENT 013634 : ,ASN,64+36 013635 : ,AAX,C77 013636 : ,ATI,W1 013637 : ,ARX,B4 013638 : ,ASN,64+5 013639 : ,UIA,USEMN 013640 : W1,UTM,30B 013641 : USEMN:,BSS, 013642 : W1,XTA,B48-30B 013643 : NOREADY,VIM,GIVSCAL 013644 : ,AAX,NAME 013645 : ,UZA,ELOOPRT 013646 : SPEC,VZM,NOFATA 013647 : ,ITA,W1 013648 : ,ASN,64-36 013649 : ,ATX,MATHOMEP 013650 : ,XTA, 013651 : ,ATX,NMF 013652 : ,ITA,14 013653 : ,ARX,INGU 013654 : 14,MTJ,W1 013655 : ,*57,-1 013656 : W1,MTJ,14 013657 : ,AEX,=6HOTЛYП 013658 : ,U1A,SETRET 013659 : C 013660 : C.... ЗAДAЧE - ПOBTOPHЫЙ BXOД 013661 : C 013662 : 13,VTM,-11 013663 : 15,VTM,R1+1 013664 : :,24,2003B 013665 : 12,VTM,2013B 013666 : 12,MTJ,27B 013667 : 12,VTM,AFT/WAIT 013668 : 12,MTJ,33B 013669 : ,XTA,R32 013670 : ,STI,32B 013671 : R1/12:13,STI,12 013672 : 13,VLM,R1/12 013673 : ,STI,13 013674 : ,XTA,NAME.BOCCT. 013675 : ,STX,SAVAC.CYMMATOPA 013676 : ,ATI,15 013677 : ,XTA,REGIM.И14+И27 013678 : ,ATX,SAVAR 013679 : ,XTR,NAME+1.PAY 013680 : 13,MTJ,16 013681 : ,CALL,SAVE MOD 013682 : ,XTA,BITJ 013683 : ,AOX,WAITPOST 013684 : ,ATX,WAITPOST 013685 : ,XTA,REP/UP 013686 : ,UJ,SEMUP 013687 : REP/UP:,Z00,SEM/NR57 013688 : ,Z00,CLANEWTA 013689 : NO FATA:,24,2003B 013690 : ,XTA,B1 013691 : TAPE,ATX,T1+47 013692 : C.. BOCCT.CTATYCA ИMEHOB.MЛ 013693 : TAPE,XTA,B1 013694 : ,ASN,64-16 013695 : ,AEX,FULWOR 013696 : ,AAX,MISTERX 013697 : ,ATX,MISTERX 013698 : C.. BOCCTAHOBЛEHИE WRIT.- 013699 : C.. И CONTR.- БИTOB. 013700 : TAPE,XTA,B1 013701 : ,AOX,STWRIS 013702 : ,ATX,STWRIS 013703 : TAPE,XTA,B1 013704 : ,AOX,CHECKWR 013705 : ,ATX,CHECKWR 013706 : SETRET:RET,VTM, 013707 : ,UJ,ELOOPRT 013708 : C... 013709 : GIV SCAL:,BSS, 013710 : C... ЭK- ,*57,4040B - ЗAПPOC 013711 : C... ШKAЛЫ MAT.HOMEPOB ЛEHT/ФAЙЛOB 013712 : ,AOX,RESULT 013713 : ,ATX,RESULT 013714 : ELOOPRT:,24,3 013715 : TAPE,VLM,RT1 013716 : SPEC,VZM,REF/FATA 013717 : RET,V1M,EXIT 013718 : 5,CALL,OPENWAIT 013719 : C 013720 : C 013721 : C.. BЫXOД ИЗ HEPEЗИДEHTA 013722 : C 013723 : C==================================== 013724 : C ПO BЫXOДE ИЗ ЭKCTPAKOДA 013725 : C И14 COДEPЖИT HOMEP ПOCЛEДHEЙ ЗOHЫ 013726 : C ДЛЯ CПEЦ.ФAЙЛA ИЛИ 777B ДЛЯ MЛ 013727 : C HA CYMMATOPE CЛEДYЮЩAЯ ИHФOPMAЦИЯ: 013728 : C 1-6 P-ДЫ : ФИЗ.HOMEP HAЙДEHHOЙ MЛ 013729 : C ( 0, ECЛИ MЛ HET ) 013730 : C 48 P. : COCT.ЗAПИCИ (0-ECTЬ,1-HET) 013731 : C 47 P. : COCT.ГOTOBH. -''- 013732 : C 46 P. : COCT.ЗAHЯTOCTИ (0-CBOБOДHA) 013733 : C ПO CПEЦ-OБPAЩEHИЮ YCTAHABЛИBAETCЯ 013734 : C 45 P. : (1-ИMEHOB.MЛ, 0-HET) 013735 : C==================================== 013736 : EXIT:,24,2003B 013737 : 13,VTM,-12 013738 : 15,VTM,R1+1 013739 : C.. BOCCTAHOBЛEHИE ИHДEKC-PEГИCTPOB 013740 : RIND:13,STI,12 013741 : 13,VLM,RIND 013742 : ,STI,13 013743 : ,XTA,RESULT 013744 : ,STX,SAVAC.USER-Y 013745 : ,ATI,15 013746 : ,XTA,R32.AДPEC 013747 : ,ATI,33B.BOЗBPATA 013748 : C.. BЫTACKИBAEM PEЖИM BOЗBPATA 013749 : ,XTA,REGIM 013750 : ,ASN,64-45 013751 : ,UZA,USER 013752 : ,AUX,C2003 013753 : ,AOX,B4 013754 : USER:,ATI,27B 013755 : ,ITA,BASA 013756 : ,ARX,W/UP 013757 : ,UJ,SEMUP 013758 : W/UP:,Z00,SEM/NR57 013759 : ,Z00,AFT/UP-***** 013760 : AFT/UP:,BSS, 013761 : ,XTR,NAME+1 013762 : ,XTA,WRET 013763 : ,WTC,LSTZON 013764 : 14,VTM, 013765 : ,UJ,NRESOFF 013766 : WRET:,Z00,NR//SEAR 013767 : ,Z00,NEWTA 013768 : INGU:13,Z07,7241B 013769 : 8,Z05,MATHOMEP-***** 013770 : MATHOMEP:,LOG, 013771 : NMF:,LOG, 013772 : БOБ:,LOG, 013773 : :,LOG, 013774 : C/1:,ISO,6H'1''1''1''1''1' 013775 : CБOБ:,ISO,6HБ-'''''''' 013776 : TBW:,ISO,6HБ-PAБ. 013777 : TИM:,ISO,6HИM.MЛ 013778 : TЗAH:,ISO,6HЗAHЯT 013779 : THГT:,ISO,6HHEГOT. 013780 : TЗП:,ISO,6H ЗAП. 013781 : TЧT:,ISO,6HЧTEH. 013782 : THET:,ISO,6HHET MЛ 013783 : TAPCNT:,LOG, 013784 : CON1:,GOST,6H000770 013785 : CON2:,ISO,6HMФ-00 013786 : LSTZON:,BSS,1 013787 : SIR:,BSS,22 013788 : ,END, 013789 : SAVE MOD:,NAME, 013790 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR,SAVS16 013791 : RETURN:,SUBP, 013792 : C ------------- YПPЯTЫBAHИE B ИПД 013793 : C CYMMATOP HE COXPAHЯETCЯ 013794 : ,ITA,15 013795 : 15,VTM,SAVI15 013796 : ,ITS,14 013797 : ,ITS,20B 013798 : ,XTS,SAVI15 013799 : ,ATI,15 013800 : ,RTE,7777B 013801 : ,ATX,SAVSR 013802 : 13,UJ, 013803 : ,END, 013804 : CALCOMP*:,NAME, 013805 : *TAKCA:LC,BLOCK,(7),TIM 013806 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42 013807 : ,CONT,BIT41,BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34 013808 : ,CONT,BIT33,BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26 013809 : ,CONT,BIT25,BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18 013810 : ,CONT,BIT17,BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10 013811 : ,CONT,BIT9,BIT8,BIT7,BIT6,BIT5,BIT4,BIT3,BIT2,BIT1 013812 : TEL OUT:,SUBP, 013813 : RETURN:,SUBP, 013814 : CLOPIR:,SUBP, 013815 : CLOMIR:,SUBP, 013816 : CLA NEW TA:,SUBP, 013817 : NEW TA:,SUBP, 013818 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR 013819 : SCALES:LC,BLOCK,(3),STCLTA 013820 : SMASAV:LC,BLOCK,SAVAC, 013821 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 013822 : OUT MACRO:,SUBP, 013823 : YCTP:LC,BLOCK,ПИ(2),ПЛ(3),Y CALC,Y CDC608,Y CDC405 013824 : CON TIME:LC,BLOCK,TПИ(2),TПЛ(3),TCALC,TCDC608,TCDC405 013825 : ,CONT,TAЦПY(2) 013826 : C14:,LC,1 013827 : FUL WOR:,LC,1 013828 : C3:,LC,1 013829 : C------------------- 013830 : BEGIN:13,MTJ,16 013831 : ,CALL,SAVEMOD 013832 : ,XTA,Y CALC 013833 : ,U1A,NO FREE 013834 : ,XTA,ГYC 013835 : ,ATX,Y CALC 013836 : NO FREE:,AEX,ГYC 013837 : ,ASN,64+42 013838 : 14,VTM,TB 013839 : ,U1A,DIAGN.ЗAHЯT 013840 : ,EXT,4102B 013841 : ,AAX,BIT9 013842 : 14,VTM,TNR 013843 : ,UZA,DIAGN.HEГOTOB 013844 : ,EXT,4030B 013845 : ,AAX,BIT13 013846 : ,UZA,NO END 013847 : ,XTA,SAVAC 013848 : ,EXT,173B 013849 : ,XTA,TIM 013850 : ,WTC,ГYC 013851 : ,A+X,110B 013852 : ,WTC,ГYC 013853 : ,ATX,110B 013854 : ,MTJ,23 013855 : ,UJ,OUT MACRO 013856 : C ---------------------------- 013857 : NO END:,BSS, 013858 : ,XTA,BIT37 013859 : ,CALL,PERMIR .OTKP. MACKY 37P. ГPП 013860 : ,XTA,BIT13 .OTKP. MACKY 13P. ПPП 013861 : ,AOX,COMPIR 013862 : ,ATX,COMPIR 013863 : ,EXT,34B 013864 : C--- 013865 : CLOSJOB:14,VTM,2007B 013866 : 14,MTJ,27B 013867 : 14,VTM,BEGIN 013868 : 14,MTJ,33B 013869 : ,UJ,CLANEWTA 013870 : C--- 013871 : DIAGN:,XTA,BITJ 013872 : ,AOX,STCLTA 013873 : ,ATX,STCLTA 013874 : ,ITA,14 013875 : 14,VTM,CLOSJOB 013876 : ,UJ,TEL OUT 013877 : TB :,ISO,12HЗAH.CALCOMP'' 013878 : TNR:,ISO,12HBЫK.CALCOMP'' 013879 : ,END, 013880 : MACRO61:,NAME,. 013881 : *YCЫ:LC,BLOCK,Г Y C. 013882 : SMASAV:LC,BLOCK,SAVAC 013883 : OUTMACRO:,SUBP, 013884 : NRESCALL:,SUBP, 013885 : NR/LINE :,SUBP, 013886 : SAVEMOD:,SUBP, 013887 : 14,VZM,*1 013888 : 14,UTM,1 013889 : 14,VZM,*2 013890 : 14,UTM,-1 013891 : C... ЧTEHИE 1-7 TYMБЛ.PEГИCTPOB 013892 : *3:,ITA,13 013893 : ,WTC,ГYC 013894 : ,ATX,104B 013895 : 13,VTM,-6 013896 : C--- 013897 : R PUL:,24,2003B 013898 : 13,XTA,7 013899 : :,24, 013900 : 13,UTC,6 013901 : 14,ATX, 013902 : 13,VLM,R PUL 013903 : :,24,2003B 013904 : C--- 013905 : ,MTJ,27B 013906 : 13,VTM,OUTMACRO 013907 : ,WTC,ГYC 013908 : ,XTA,104B 013909 : ,ATI,16 013910 : ,UJ,SAVEMOD 013911 : C... ,*61,-1 YПPABЛEHИE VT-340 013912 : *2:,ATX,SAVAC 013913 : ,UTC,MICALL 013914 : ,XTA, 013915 : ,UJ,NRESCALL 013916 : MICALL:,Z00,NR/LINE 013917 : ,Z00,13 013918 : C... I F P U L T 013919 : *1:,WTC,Г Y C 013920 : ,XTA,113B 013921 : ,MTJ,27B 013922 : 2,32, 013923 : ,END,. 013924 : MACRO74 : , NAME , 013925 : C 013926 : C***** ЭKCTPAKOД KOHЦA 013927 : C 013928 : * И П Д :LC,BLOCK,(56),ШKП(7),SCENDJO 013929 : ШK:,EQU,ШKП 013930 : MOЖHOKAЧ:,EQU,*ИПД+67B 013931 : NRES074 : , SUBP , 013932 : DISPBASE:LC,BLOCK,(1),DISMBASE 013933 : TPHYS : , LC , 32 013934 : TMATH:,EQU,30B 013935 : *YCЫ :LC,BLOCK,ГYC,RDSCAL 013936 : ШЛAГБAYM:,LC,1 013937 : SEMUP:,SUBP, 013938 : C77:,LC,1 013939 : XNSEM:,EQU,*ИПД+7 013940 : NSEMAF:,WEQ,XNSEM.ЧИCЛO CEMAФOPOB 013941 : NSEM1:,EQU,NSEMAF-1 013942 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 013943 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 013944 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 013945 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 013946 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 013947 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 013948 : BASE:,EQU,5 013949 : NP74 : , P/P ,(NRES074)1024 013950 : AP74:,P*P,(NP74)1024 013951 : C37:,LC,1 013952 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 013953 : AДPПEP:,EQU,85.ЯЧEЙKA ИПЗ 013954 : ,WTC,ГYC 013955 : 14,VTM,TMATH 013956 : 14,XTA, 013957 : ,ASN,64+30 013958 : ,U1A,IS0PAGE 013959 : ,XTA,BIT48.ЗAKAЗ 013960 : 14,AOX,.0 ЛИCTA, ECЛИ 013961 : 14,ATX,.EГO HE БЫЛO 013962 : IS0PAGE:,BSS, 013963 : : ,24,2003B 013964 : 14,VTM,-NSEM1 013965 : C 013966 : C... BO ИЗБEЖAHИE ПOPOЧHOГO KPYГA 013967 : C HA CEMAФOPAX, ПEPBЫM ДEЛOM 013968 : C OCBOБOДИM BXOДЫ B KPИT.ИHTEPBAЛЫ. 013969 : C 013970 : CLCRIN:14,XTA,ШЛAГБAYM+NSEM1 013971 : ,AEX,ДHЗ 013972 : ,AAX,C77 013973 : ,UZA,TOSUP 013974 : ECLCRIN:14,VLM,CLCRIN 013975 : ,XTA,ZBITJ 013976 : ,AAX,MOЖHOKAЧ 013977 : ,ATX,MOЖHOKAЧ 013978 : ,XTA,ШK. 013979 : ,AAX,BITJ 013980 : ,UIA,ПEPEXBAT. 013981 : ,WTC,ГYC 013982 : ,ATX,83.SCEM = 0 ! 013983 : ,XTA,BITJ 013984 : ,AOX,SCENDJO 013985 : ,ATX,SCENDJO 013986 : C... ЗДECЬ HAДO И14=0 013987 : , XTA ,K04660 . 013988 : , ARX , DISMBASE . 013989 : : , 24 , 02000B . 013990 : , ATX , 00001B . 013991 : : , 24 , 02003B . 013992 : CALL1MEM:,SUBP,. 013993 : ,XTA,*+1. 013994 : :,UJ,CALL1MEM. 013995 : ,Z00,*+1. 013996 : ,WTC,ГYC 013997 : 14,VTM,AДPПEP 013998 : 14,ATX, 013999 : ,ITA,32B 014000 : ,ASN,64-15 014001 : 14,AOX, 014002 : 14,ATX, 014003 : ,ASN,64+10. 014004 : ,AAX,C37 014005 : ,ATI,14. 014006 : 14, XTA , TPHYS . 014007 : , AOX , BIT1 014008 : 14, ATX , TPHYS . 014009 : , XTA , BIT3 014010 : , ATI , 27B 014011 : : , 24 , 2000B 014012 : , *70 , 00001B . 014013 : : , 24 , 2000B 014014 : , XTA , 00001B . 014015 : : , 24 , 02003B . 014016 : ,WTC,ГYC 014017 : ,WTC,AДPПEP 014018 : BASE,VTM,NRES074-AP74 014019 : BASE,UJ, 014020 : ПEPEXBAT:,BSS, 014021 : ,AEX,ШK 014022 : ,ATX,ШK 014023 : ,MTJ,27B. 014024 : ,WTC,ГYC. 014025 : ,WTC,AДPПEP. 014026 : 14,VTM,. 014027 : 14,V1M,ПEP1. 014028 : 14,VTM,20B. 014029 : ПEP1:14,MTJ,32B. 014030 : 2,IJ,. 014031 : C... OCBOБOЖДEHИE KPИT.ИHTEPBAЛA 014032 : TO SUP:,ITA,14 014033 : ,ASN,64-24 014034 : ,ARX,IWUP 014035 : ,UJ,SEMUP 014036 : IWUP:,Z00,ШЛAГБAYM+NSEM1 014037 : ,Z00,ECLCRIN 014038 : K04660 : , 010 , 014039 : , Z00 , NP74 014040 : ,END,.HY, BOЛKOB, ...! 014041 : MACRO7CH:,NAME, 014042 : INF7CH:LC,BLOCK,NЗAД,W110,NЗCB,W107,FER 014043 : ,CONT,ADR,FZ,RW,BUNL,SCAL 014044 : ,CONT,(3) 014045 : NRESCALL:,SUBP, 014046 : DISREG:,LC,1 014047 : SMASAV :LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR 014048 : , CONT ,SAVS16 014049 : NRES7CH:,SUBP, 014050 : ,ATX,SAVAC 014051 : ,XTA,INF 014052 : ,UJ,NRESCALL 014053 : INF:,Z00,NRES7CH 014054 : ,Z00,15.БAЗ.PEГ. 014055 : C 014056 : C=== BXOД ДЛЯ OTKPЫTИЯ ЗAДAЧИ CBЯЗИ 014057 : C 014058 : R37B:,ENTRY, 014059 : BNR7CH:,LC,1 014060 : RETURN:,SUBP, 014061 : NR7CH :,SUBP, 014062 : OPENW7:,SUBP, 014063 : NEWTA:,SUBP, 014064 : 15,VTM,NEWTA 014065 : R37BR:,ENTRY,.BXOД ИЗ TASK70 014066 : ,XTA,BNR7CH 014067 : 15,UZA, 014068 : ,ATI,13 014069 : 13,UJ,OPENW7-NR7CH 014070 : ,END, 014071 : NR7CH:,NAME, 014072 : FULWOR:,LC,1 014073 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,(2),M1RDSC,STCLTA 014074 : TPHYS:,LC,32 014075 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 014076 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 014077 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 014078 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 014079 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 014080 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 014081 : SMASAV :LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR 014082 : , CONT ,SAVS16 014083 : *ИПД:LC,BLOCK,(63),SCENDJO 014084 : R37B:,SUBP, 014085 : R37BR:,SUBP, 014086 : INF7CH: LC,BLOCK,NЗAД,W110,NЗCB,W107 014087 : ,CONT,FER,ADR,FZ,RW,BUNL,SCAL 014088 : ,CONT,FBACK,STPLINK 014089 : ,CONT,FLACT70 014090 : *LINKPAR:LC,BLOCK,SC/NL,SC/CONC 014091 : ,CONT,TOTBBЗBП(0),TПYCП(8) 014092 : C7777:,LC,1 014093 : DISREG :,LC,1 014094 : READSCAL:,LC,1 014095 : NRESCALL:,SUBP, 014096 : NRESOFF :,SUBP, 014097 : NRES7CH :,SUBP, 014098 : SCCLJ:,LC,1 014099 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 014100 : *102 : B,BLOCK,M*32,M*12,M*13 014101 : ,CONT,M*15,M*XTR,LISTCBЗ 014102 : MNEVM:,EQU,=774 0000 014103 : BUZ :,EQU,=160 0000 014104 : CLANEWTA:,SUBP, 014105 : RETURN:,SUBP, 014106 : NEWTA:,SUBP, 014107 : OUTMACRO:,SUBP, 014108 : TTPRINT:,SUBP, 014109 : CONTIME:LC,BLOCK,TПИ(2),TПЛ(3),TCALC,TCDC608,TCDC405 014110 : ,CONT,TAЦПY(2),TCB 014111 : TIME10:,SUBP, 014112 : BNR7CH:,LC,1 014113 : RES: ,EQU,SCAL 014114 : MACRO74:,SUBP, 014115 : C77777:,LC,1 014116 : C1400:,LC,1 014117 : C37:,LC,1 014118 : C1:,EQU,BIT1 014119 : C77:,LC,1 014120 : C3:,LC,1 014121 : C7:,LC,1 014122 : C377:,LC,1 014123 : C177:,LC,1 014124 : C ------- 014125 : ALNBUF: ,EQU,435B 014126 : DELREF: ,EQU,1040B 014127 : FLERPRL:,EQU,1757B 014128 : TELIS:,EQU,436B 014129 : DEL74:,EQU,1760B 014130 : C ------- 014131 : ERRMACRO:,SUBP, 014132 : BNR5:,BSS, 014133 : 15,REL,* 014134 : ,ITA,15 014135 : ,ATX,BNR7CH 014136 : ,XTA,DISREG 014137 : ,ATI,27B 014138 : SET15:,XTA,BNR7CH 014139 : ,ATI,15 014140 : ,XTA,W110 014141 : ,UZA,WORK 014142 : CLOSE:,XTA,BITJ 014143 : ,AOX,SCCLJ 014144 : ,ATX,SCCLJ 014145 : 15,UTM,SET15-BNR5 014146 : 15,MTJ,33B 014147 : ,UJ,CLANEWTA 014148 : WORK:,XTA,NЗAД 014149 : ,UZA,BEGIN 014150 : ,AEX,ДHЗ 014151 : ,U1A,CLOSE 014152 : BEGIN:,WTC,ГYC 014153 : 15,VTM,M*32 014154 : ,ITA,32B 014155 : ,ITS,12 014156 : ,XTS,SAVI13 014157 : ,XTS,SAVI15 014158 : ,XTS,SAVSR 014159 : ,XTS, 014160 : ,ATX,RES 014161 : ,ATX,FER 014162 : ,XTS,BNR7CH 014163 : ,ATI,15 014164 : ,XTA,=7777 7777 7777 7400 014165 : ,AAX,COMPIR 014166 : ,ATX,COMPIR 014167 : ,EXT,34B 014168 : ,ATI, 014169 : ,XTA,ДHЗ 014170 : ,ATX,NЗAД 014171 : ,XTA,SAVI14 014172 : ,AEX,C7 014173 : ,UZA,ЭKOБM 014174 : ,AEX,=500 014175 : ,UZA,ГOTBБ6 014176 : ERPR:,24,2003B 014177 : 14,VJM,ERRMACRO 014178 : :,GOST,12HЭKCT. CBЯЗИ'231' 014179 : ,BSS, 014180 : C 014181 : C--------------------------------------- 014182 : C 014183 : C ЭKCTPAKOД OБMEHA C ПEPEФ. ЭBM (,*56,7) 014184 : C 014185 : C ПPИ OБPAЩEHИИ HA CYMMATOPE: 014186 : C 01-15 - AДP. OБMEHHOГO ЛИCTA 014187 : C 17-24 - HOMEP ЛИHИИ 014188 : C 21 - ЛBTA(M-6000) 014189 : C 22 - OHMY(M-6000) 014190 : C 23 - PXЛ (M-220) 014191 : C 24 - ЛBTA(EC-1010) 014192 : C 28 - HAПPABЛEHИE OБMEHA 014193 : C 1 - B БЭCM-6 014194 : C 0 - ИЗ БЭCM-6 014195 : C 29-30 - ДЛИHA ПOPЦИИ OБMEHA 014196 : C 00 - 8 014197 : C 01 - 256+8 014198 : C 11 - 1024+8 014199 : C 31-33 - TИП ФAЙЛA(ДЛЯ KOHЦEHTPATOPA) 014200 : C 1 - ПOДCKAЗKA ДЛЯ READ 014201 : C 2 - CTPOKA WRITE 014202 : C 3 - ЛИCTИHГ 014203 : C 4 - CTATYC ЗAДAЧ 014204 : C 5 - PEЗYЛЬTAT RUN'A 014205 : C 6 - HET ЛИCTИHГA 014206 : C ---------- 014207 : C CYMMATOP HA BЫXOДE: 014208 : C 1 - E O F 014209 : C 6 - HET ПYC-П 014210 : C 7 - HET BЗB-П 014211 : C 8 - HET KOHЦA OБMEHA 014212 : C 9 - OШ. БAЙTA 014213 : C 10 - OШ. OБMEHA 014214 : C 11 - HET ГOT-П 014215 : C 12 - BCTPEЧHЫЙ BЫЗOB 014216 : C 014217 : C 25 - COOБЩEHИE OПEPATOPY БЭCM-6 014218 : C 26 - ИГHOPИPOBATЬ ФAЙЛ 014219 : C 27 - CTPOKA ДЛЯ READ 014220 : C 28 - ЗAПPOC O CTATYCE ЗAДAЧ 014221 : C 29 - ЗAПPOC ЛИCTИHГA 014222 : C 014223 : C (27-29 PP. - ДЛЯ KOHЦEHTPATOPOB) 014224 : C 014225 : C----------------------------------------- 014226 : C 014227 : ЭKOБM:,XTA,SAVAC 014228 : ,ATX,INFE 014229 : ,ATI,14 014230 : ,AAX,=10 1777 014231 : C ЛИШHИE PAЗPЬДЫ B ИHФOPMAЦИOHHOM CЛOBE ЭKCTPAKOДA 014232 : ,U1A,ERPR 014233 : ,XTA,INFE 014234 : ,ASN,64+33 014235 : ,ATX,ADR8 014236 : ,XTA,SC/NL 014237 : ,ASN,64-16 014238 : ,AAX,INFE 014239 : ,UZA,ERPR 014240 : ,ATX,NL 014241 : ,ANX, 014242 : ,YTA, 014243 : ,U1A,ERPR 014244 : C --- 014245 : C OПPOC ГOT-П 014246 : C --- 014247 : ,XTA,NL 014248 : ,ASN,64+16 014249 : ,ATX,NL 014250 : ,AAX,SC/CONC 014251 : ,UZA,ЭKOБM1 014252 : ,033,37B 014253 : ,033,4037B 014254 : ,AAX,BIT22 014255 : ,UZA,HETГOTП 014256 : C --- 014257 : C OПPOC П P П 014258 : C --- 014259 : ,033,4034B 014260 : ,AAX,NL 014261 : ,UIA,YЖEBЗBП 014262 : ЭKOБM1:,BSS, 014263 : ,XTA,INFE 014264 : ,AAX,=60 0000 0000 014265 : ,UZA,DTASK 014266 : ,XTA,INFE 014267 : ,APX,BIT28 014268 : ,AUX,BITJ 014269 : ,AOX,READSCAL 014270 : ,ATX,READSCAL 014271 : : ,24,2000B 014272 : 14,XTA, 014273 : : ,24,2003B 014274 : ,XTA,ZBITJ 014275 : ,AAX,READSCAL 014276 : ,ATX,READSCAL 014277 : ,ITA,14 014278 : ,ASN,64+10 014279 : ,ATI,14 014280 : ,WTC,ГYC 014281 : 14,XTA,30B 014282 : ,ASN,64+30 014283 : ,AAX,C177 014284 : ' ФИЗИЧECKИЙ HOMEP ЛИCTA OБMEHA 014285 : ,WTC,ГYC 014286 : ,ATX,LISTCBЗ 014287 : ,ATI,14 014288 : ,ASN,64-41 014289 : ,AUX,MNP 014290 : ,ATX,NFL 014291 : 14,XTA,TPHYS 014292 : ,AOX,BIT1 014293 : 14,ATX,TPHYS 014294 : DTASK:,BSS, 014295 : : ,24,3 014296 : ,XTA,INFE 014297 : ,ASN,64+16 014298 : ,ATX,WL 014299 : ,AAX,C1400 014300 : ,ATX,NC 014301 : ,XTA,WL 014302 : ,AAX,SC/NL 014303 : ,ATX,NL 014304 : ,ASN,64-40.ПOЛYЧEHИE 014305 : ,ANX,C77777.BOCЬMEPИЧHOГO 014306 : ,AAX,C77777.HOMEPA 014307 : ,ATX,BNL.ЛИHИИ 014308 : ,XTA,WL 014309 : ,ASN,64-4 014310 : ,ATX,WL 014311 : ,AAX,BIT15 014312 : ,ATX,PEOF 014313 : ,XTA,WL 014314 : ,AAX,BIT16 014315 : ,ATX,FW 014316 : ,XTA,WL 014317 : ,AAX,=0000 0000 0060 0000 014318 : ,ATX,LENGTH 014319 : ,XTA,WL 014320 : ,ASN,64+18 014321 : ,AAX,C7 014322 : ,ATX,SORTINF 014323 : ,UZA,/1/ 014324 : ,XTA,FW 014325 : ,UIA,ERPR 014326 : ,XTA,SC/CONC 014327 : ,AAX,NL 014328 : ,UZA,ERPR 014329 : /1/:,BSS, 014330 : : ,24,2003B 014331 : ,XTA,744B 014332 : C 014333 : C //// ГOT-Ц 014334 : C 014335 : ,033,37B 014336 : C == 014337 : C BЫДAЧA BЗB-Ц + БAЙT OБMEHA 014338 : C == 014339 : BЗBHAOБM:,XTA,LENGTH 014340 : ,AOX,FW 014341 : ,AOX,NC 014342 : ,ATX,BUW 014343 : ,XTA, 014344 : ,ATX,J 014345 : EK1:,XTA, 014346 : ,ATX,I 014347 : 12,VTM,OTBHAЗAП 014348 : BЗB:,XTA,BUW 014349 : BЗB1:,BSS, 014350 : 13,VJM,CHBT 014351 : ,AOX,730B 014352 : C 014353 : C //// BЗB-Ц 014354 : C 014355 : ,033,37B 014356 : ,AOX,BIT41 014357 : 13,VJM,PUTPRL 014358 : 13,VTM,BЗBR 014359 : ,UJ,PR31 014360 : C == 014361 : C AHAЛИЗ OTBETHOГO БAЙTA 014362 : C == 014363 : OTBHAЗAП:,BSS, 014364 : ,XTA,FTIME 014365 : ,U1A,TEX 014366 : ,XTA,BUNL 014367 : ,AEX,BEQ 014368 : ,U1A,ER1 014369 : 12,VTM,KOHEЦOБM 014370 : ,XTA,FW 014371 : ,U1A,ERW 014372 : ,XTA,ADR8 014373 : ,UZA,ERW1 014374 : 13,VTM,-7 014375 : ,XTA,ADR8 014376 : ,ATI,14 014377 : RW8:,BSS, 014378 : : ,24,2000B 014379 : 14,UTC, 014380 : 13,XTA,7 014381 : : ,24,2003B 014382 : 13,ATX,77B 014383 : 13,VLM,RW8 014384 : 13,VTM,-7 014385 : BЫT:,ATX,1 014386 : 13,VLM,BЫT 014387 : ,UJ,ERW 014388 : ERW1:,BSS, 014389 : ,XTA,PEOF 014390 : ,ASN,64+14 014391 : ,ATX,77B 014392 : ,XTA,SORTINF 014393 : ,ATX,76B 014394 : ,XTA,N OБM 014395 : ,ATX,75B 014396 : C -- 014397 : C ПOДГOTOBKA KYCA 014398 : C -- 014399 : ERW:,BSS, 014400 : ,XTA,LENGTH 014401 : ,UZA,L8 014402 : ,AEX,BIT17 014403 : ,UZA,L256 014404 : ,XTA, 014405 : DIR:,AOX,NFL 014406 : DIR1:,BSS, 014407 : ,ATX,WL 014408 : ,XTA,NL 014409 : ,ASN,64-41 014410 : ,ANX, 014411 : ,AEX,=60 014412 : ,UZA,ADL 014413 : ,AEX,=60 014414 : ,ASN,64-7 014415 : ADL:,AOX,WL 014416 : ,ATX,WL 014417 : ,XTA,COMPIR 014418 : ,AAX,=7777 7777 7777 7400 014419 : ,ATX,COMPIR 014420 : ,033,34B 014421 : ,ATI, 014422 : ,XTA,FW 014423 : ,UZA,TR 014424 : ,XTA,BIT18 014425 : TR:,BSS, 014426 : ,AOX,WL 014427 : C 014428 : C //// OБMEH 014429 : C 014430 : C -- YCTAHOBKA 25 P. ГPM 014431 : ,033,7 014432 : ,ATI, 014433 : ,002,237B 014434 : ,AAX,BIT25 014435 : ,U1A,ERL 014436 : ,XTA,COMMIR 014437 : ,AOX,727B 014438 : ,ATX,COMMIR 014439 : ,002,36B 014440 : ,ATI, 014441 : ,XTA,NOБM 014442 : ,AAX,=0017 7777 7777 7777 014443 : ,AOX,BIT45 014444 : 13,VJM,PUTPRL 014445 : ,XTA,NOБM 014446 : ,ARX,BIT1 014447 : ,ATX,NOБM 014448 : ,XTA,TOБM 014449 : ,ATX,CBTIME 014450 : ,XTA,BIT3 014451 : 13,VTM,CLANEWTA 014452 : ,UJ,TIM ON 014453 : L8:,XTA,BIT21 014454 : ,UJ,DIR1 014455 : L256:,XTA,BIT20 014456 : ,UJ,DIR 014457 : ERL:,BSS, 014458 : ,33,111 014459 : C == 014460 : C ПOЛYЧEHИE PEЗYЛЬTATOB OБMEHA 014461 : C == 014462 : KOHEЦOБM:12,VTM,OTBHAKOH 014463 : ,XTA,FTIME 014464 : ,UZA,KOБM/ 014465 : ,XTA, 014466 : ,ATX,FTIME 014467 : ,XTA,BIT8 014468 : ,ATX,FER 014469 : ,UJ,OШOБM 014470 : KOБM/:,BSS, 014471 : ,XTA,FW 014472 : ,UZA,БYKOHEЦ 014473 : ,XTA,ADR8 014474 : ,UZA,RR 014475 : 13,VTM,-7 014476 : ,XTA,ADR8 014477 : ,ATI,14 014478 : RR8:13,XTA,77B 014479 : : ,24,2000B 014480 : 14,UTC, 014481 : 13,ATX,7 014482 : : ,24,2003B 014483 : 13,VLM,RR8 014484 : : ,24,2003B 014485 : RR:,BSS, 014486 : ,XTA,FER 014487 : ,AAX,BIT8 014488 : ,U1A,OШOБM 014489 : ,XTA,77B 014490 : ,AAX,BIT1 014491 : ,ATX,RES 014492 : ,XTA,77B 014493 : ,AAX,=76 014494 : ,ASN,64-23 014495 : ,AOX,RES 014496 : ,ATX,RES 014497 : ,XTA,SC/CONC 014498 : ,AAX,NL 014499 : ,UIA,БYKOHEЦ 014500 : ,XTA,RES 014501 : ,AAX,=3 0000 0001 014502 : ,ATX,RES 014503 : C == 014504 : C BЫДAЧA BЗB-Ц + БAЙT 64B 014505 : C == 014506 : БYKOHEЦ:,XTA,BUEND 014507 : БYKOH1:,BSS, 014508 : ,AOX,NC 014509 : ,UJ,BЗB1 014510 : C == 014511 : C AHAЛИЗ OTBETHOГO БAЙTA 014512 : C == 014513 : OTBHAKOH:,BSS, 014514 : ,XTA,FTIME 014515 : ,U1A,TEX 014516 : ,XTA,FER 014517 : ,AAX,BIT8 014518 : ,U1A,CHREP 014519 : ,XTA,BUNL 014520 : ,AEX,BEQ 014521 : ,UZA,EXIT 014522 : C -- 014523 : C ПOBTOPEHИE OБMEHA ПPИ CБOE 014524 : C AППAPATYPЫ ИЛИ HECOBПAДEHИИ 014525 : C OTBETHOГO БAЙTA KOHЦA. 014526 : C -- 014527 : CHREP:,BSS, 014528 : ,XTA,J 014529 : ,ARX,C1 014530 : ,ATX,J 014531 : ,AEX,C3 014532 : ,UZA,OШOБM3P 014533 : ,XTA,BIT20 014534 : ,AOX,BUW 014535 : ,ATX,BUW 014536 : ,UJ,EK1 014537 : OШOБM:,XTA,BUERM 014538 : ,UJ,БYKOH1 014539 : C --- 014540 : C H E T Г O T - П 014541 : C --- 014542 : HETГOTП:,BSS, 014543 : ,XTA,BIT11 014544 : ,ATX,RES 014545 : ,UJ,EXIT 014546 : C ----------------------- 014547 : C BИCИT BCTPEЧHЫЙ BЗB-П 014548 : C ------------------------- 014549 : YЖEBЗBП:,XTA,BIT12 014550 : ,ATX,RES 014551 : ,UJ,EXIT 014552 : C -- 014553 : C OБMEH HE ПPOШEЛ 3 PAЗA 014554 : C -- 014555 : OШOБM3P:,BSS, 014556 : ,XTA,BIT10 014557 : ,ATX,RES 014558 : C == 014559 : C B Ы X O Д 014560 : C == 014561 : EXIT:,BSS, 014562 : ' PACФИKCAЦИЯ ЛИCTA OБMEHA 014563 : ,WTC,ГYC 014564 : ,XTA,LISTCBЗ 014565 : ,UZA,EXC 014566 : ,ATI,14 014567 : 14,XTA,TPHYS 014568 : ,AOX,BIT1 014569 : ,AEX,BIT1 014570 : 14,ATX,TPHYS 014571 : EXC:,BSS, 014572 : ,XTA,SCCLJ 014573 : ,AOX,RDSCAL 014574 : ,ATX,RDSCAL 014575 : ,XTA, 014576 : ,ATX,FZ 014577 : ,ATX,SCCLJ 014578 : ,ATX,W110 014579 : ,ATX,RW 014580 : ,ATX,NЗAД 014581 : ,ATX,NC 014582 : ,ATX,NL 014583 : ,ATX,FTIME 014584 : ,XTA,COMPIR 014585 : ,AAX,=7777 7777 7777 7400 014586 : ,ATX,COMPIR 014587 : ,XTA,NЗCB 014588 : ,UZA,GOTOUT 014589 : ,AEX,ДHЗ 014590 : ,UZA,PINT 014591 : ,XTA,W107 014592 : ,U1A,PINT 014593 : ,XTA,FLACT70 014594 : ,UZA,SETM 014595 : ,XTA,BIT1 014596 : ,ATX,W110 014597 : ,ATX,FBACK 014598 : ,XTA,NЗCB 014599 : ,ATX,NЗAД 014600 : 15,UTM,PINT-BNR5 014601 : ,UJ,R37BR 014602 : SETM:,BSS, 014603 : ,XTA,6 014604 : ,ASN,64+40 014605 : ,AEX,FULWOR 014606 : ,AAX,COMPIR 014607 : ,AOX,SC/CONC 014608 : ' ЗAKPЫTИE HEИCПPABHЫX ЛИHИЙ 014609 : ,ATX,COMPIR 014610 : PINT:,BSS, 014611 : ,XTA,COMPIR 014612 : ,033,34B 014613 : EX1:,ATX,1 014614 : ,XTA,RES 014615 : ,AOX,BIT46 014616 : 13,VJM,PUTPRL 014617 : ,XTA,STPLINK 014618 : ,AAX,BITJ 014619 : ,UZA,EX3 014620 : ' БЫЛ BЫБPOC BO BPEMЯ PAБOTЫ ЭKCTPAKOДA 014621 : ,AEX,STPLINK 014622 : ,ATX,STPLINK 014623 : ,UJ,MACRO74 014624 : GOTOUT:,BSS, 014625 : C --- CHЯTИE ГOT-Ц,ECЛИ HET 014626 : C --- ЗAДAЧИ CBЯЗИ 014627 : ,XTA,745B.BIT11 014628 : ,033,37B 014629 : ,UJ,PINT 014630 : EX3:,BSS, 014631 : ,XTA,RES 014632 : ,ATX,SAVAC 014633 : ,WTC,ГYC 014634 : 15,VTM,M*XTR+1 014635 : ,XTA, 014636 : ,STI,27B 014637 : ,STX,SAVSR 014638 : ,STX,SAVI15 014639 : ,STX,SAVI13 014640 : ,STI,12 014641 : ,STI,33B 014642 : ,UJ,RETURN 014643 : ' ЗAHECEHИE БИTA B ШKAЛY HEИCПPABHЫX ЛИHИЙ 014644 : LOFF:,BSS, 014645 : ,XTA,RES 014646 : ,AOX,BIT24 014647 : ,AOX,BIT14 014648 : ,ATX,RES 014649 : ,UJ,EXC 014650 : C -- 014651 : C ПOBTOPEHИE OБMEHA ПPИ 014652 : C HECOBПAДEHИИ OTBETHOГO БAЙTA 014653 : C OБMEHA. 014654 : C -- 014655 : ER1:,XTA,I 014656 : ,ARX,C1 014657 : ,ATX,I 014658 : ,AEX,C3 014659 : ,UIA,PRECALL 014660 : ,XTA,BIT9 014661 : ,ATX,RES 014662 : ,UJ,EXIT 014663 : PRECALL:,XTA,BUW 014664 : ,AOX,BIT20 014665 : ,ATX,BUW 014666 : ,UJ,BЗB 014667 : C -- ПOДГOTOBKA ПPEP. ПO 31P ГPП 014668 : PR31:,BSS, 014669 : ,XTA,COMPIR 014670 : ,AAX,=7777 7777 7777 7400 014671 : ,ATX,COMPIR 014672 : ,033,34B 014673 : ,XTA,721B 014674 : ,AOX,COMMIR 014675 : ,ATX,COMMIR 014676 : ,002,36B 014677 : ,ATI, 014678 : ,ITA,13 014679 : ,ATX,ADR 014680 : 13,VTM,CLANEWTA 014681 : PR31A:,BSS, 014682 : ,WTC,BNL 014683 : ,XTA,TПYCП 014684 : ,ASN,64+12 014685 : ,AAX,C7777 014686 : ,ATX,CBTIME 014687 : ,XTA,BIT1 014688 : TIM ON:,ATX,SW 014689 : ,ATX,TIME 014690 : 14,VTM,PRTIMECB 014691 : ,ITA,14 014692 : ,ATX,TCB 014693 : 13,UJ, 014694 : C == 014695 : C AHAЛИЗ БAЙTA ЗAПPOCA HA OБMEH 014696 : C == 014697 : ЖДYBЗBП:,BSS, 014698 : 12,VTM,LIN2 014699 : ,XTA, 014700 : ,ATX,FLACT70 014701 : ,XTA,FBACK 014702 : ,UZA,ЖДY1 014703 : C ----------------------------------- 014704 : C COOБЩEHИE OT OПEPATOPA БЭCM-6 014705 : C ----------------------------------- 014706 : ACT:,BSS, 014707 : ,XTA,BIT24 014708 : ,AOX,BIT15 014709 : ,ATX,W107 014710 : ,ATX,RES 014711 : ,XTA, 014712 : ,ATX,FBACK 014713 : ,UJ,EXC 014714 : ЖДY1:,BSS, 014715 : ,XTA,RW 014716 : ,AAX,C1400 014717 : ,ATX,NC 014718 : ,XTA,RW 014719 : ,AAX,SC/CONC 014720 : ,UZA,ACT 014721 : ,ATX,NL 014722 : ,ATX,RES 014723 : ,ATX,W107 014724 : ,ASN,64-40 014725 : ,ANX,C77777 014726 : ,AAX,C77777 014727 : ,ATX,BNL 014728 : ,XTA,FTIME 014729 : ,U1A,LOFF 014730 : ,XTA,BBT 014731 : ,AOX,NC 014732 : 13,VJM,CHBT 014733 : ,XTA,BUNL 014734 : ,AAX,MASK 014735 : ,AOX,NL 014736 : ,AEX,BEQ 014737 : ,U1A,BER 014738 : ,ATX,FLER60 014739 : C ===================================== 014740 : C BЫДAЧA BЗB-Ц + БAЙT 60B (260B) 014741 : C ===================================== 014742 : C == 014743 : ,XTA,BEQ 014744 : ,AOX,730B 014745 : ,AOX,BBT 014746 : B60/260:,BSS, 014747 : C 014748 : C //// BЗB-Ц 014749 : C 014750 : ,033,37B 014751 : ,AOX,BIT41 014752 : 13,VJM,PUTPRL 014753 : 13,VTM,R37B 014754 : ,UJ,PR31 014755 : LIN2:,BSS, 014756 : ,XTA,FTIME 014757 : ,UIA,LOFF 014758 : LIN3:,BSS, 014759 : ,XTA,FLER60 014760 : ,UZA,LIN33 014761 : ,XTA,BIT13 014762 : ,AOX,RES 014763 : ,ATX,RES 014764 : ,UJ,ЖДY2 014765 : LIN33:,BSS, 014766 : ,XTA,COMPIR 014767 : ,AAX,=7777 7777 7777 7400 014768 : ,ATX,COMPIR 014769 : ,033,34B 014770 : ЖДY2:,BSS, 014771 : ,XTA,RES 014772 : ,AOX,BIT24 014773 : ,ATX,RES 014774 : ,UJ,EXC 014775 : C -- 014776 : C ПPИHЯT HE БAЙT 60B 014777 : C -- 014778 : BER:,ATX,FLER60 014779 : ,XTA,BUER 014780 : ,AOX,NC 014781 : 13,VJM,CHBT 014782 : ,AOX,730B 014783 : ,UJ,B60/260 014784 : C ===================================== 014785 : C ЭKCTPAKOД OЖИДAHИЯ BЫЗOBA OT ЭBM-П 014786 : C ( ,*56,507B ) 014787 : C 014788 : C CYMMATOP HA BЫXOДE: 014789 : C 1) 24P=1,1-8PP=NL => BЫЗOB ЭBM-П 014790 : C 2) 24P=1,13P=1,1-8PP=NL => 014791 : C HEПPABИЛЬHЫЙ BЫЗOB ЭBM-П 014792 : C 3) 24P=1,14P=1,1-8PP=NL => 014793 : C HET ПYC-П ИЛИ HE CБPOШEH BЗB-П 014794 : C 4) 24P=1,15P=1 => COOБЩEHИE OT 014795 : C OПEPATOPA БЭCM-6 014796 : C 014797 : C ==================================== 014798 : C 014799 : ГOTBБ6:,BSS, 014800 : ,XTA,744B 014801 : C 014802 : C //// ГOT-Ц 014803 : C 014804 : ,033,37B 014805 : 12,VTM,ЖДYBЗBП 014806 : ,XTA,NЗAД 014807 : ,ATX,NЗCB 014808 : ,XTA, 014809 : ,ATX,NЗAД 014810 : ,XTA,6 014811 : ,ASN,64+40 014812 : ,ATX,WL 014813 : ,XTA,SC/CONC 014814 : ,AOX,WL 014815 : ,AEX,WL 014816 : ,ATX,WL 014817 : ,033,4034B.OПPOC ПPП 014818 : ,AAX,WL 014819 : ,UIA,CLJ 014820 : C --- HET ЛИ PRINT'OB 014821 : ,XTA,TELIS 014822 : ,UIA,CH70 014823 : ,XTA,TELIS+1 014824 : ,UIA,CH70 014825 : CHTEL1:,BSS, 014826 : ,XTA,ALNBUF 014827 : ,UZA,CLJ 014828 : ,ATI,13 014829 : 14,VTM,1-16 014830 : L507:13,UTC, 014831 : 14,XTA,15 014832 : 13,UTC,DEL74 014833 : 14,AOX,15 014834 : ,UIA,RET507 014835 : 14,VLM,L507 014836 : CLJ:,BSS, 014837 : ,XTA,COMPIR 014838 : ,AOX,WL 014839 : ,ATX,COMPIR 014840 : ,033,34B 014841 : ,XTA,COMMIR 014842 : ,AOX,BIT37 014843 : ,ATX,COMMIR 014844 : ,002,36B 014845 : ,ATI, 014846 : ,XTA, 014847 : ,ATX,W107 014848 : ,ATX,RW 014849 : ,ATX,FZ 014850 : ,UJ,CLANEWTA 014851 : CH70:,ASN,64+8 014852 : ,AEX,=60 014853 : ,AAX,=374 014854 : ,UZA,CHTEL1 014855 : RET507:,BSS, 014856 : ,XTA,BIT24 014857 : ,AOX,BIT15 014858 : ,ATX,W107 014859 : ,ATX,RES 014860 : ,XTA, 014861 : ,ATX,FLACT70 014862 : ,UJ,EX1 014863 : C -- ДOПOЛHEHИE БAЙTA ДO HEЧETA 014864 : CHBT:,BSS, 014865 : ,ATX,WL 014866 : ,ACX, 014867 : ,ASN,64+1 014868 : ,YTA, 014869 : ,U1A,BE 014870 : ,XTA,WL 014871 : ,AOX,733B 014872 : ,ATX,WL 014873 : BE:,XTA,WL 014874 : ,AOX,NL 014875 : ,ATX,BEQ 014876 : ,XTA,NL 014877 : ,ATX,100B 014878 : ,XTA,BEQ 014879 : 13,UJ, 014880 : C ------------------------------ 014881 : C ЗAПИCЬ CИГHAЛA B ПPOTOKOЛ 014882 : C CBЯЗИ. 014883 : C ------------------------------ 014884 : PUTPRL:,BSS, 014885 : ,ATX,WL 014886 : ,XTA,6 014887 : ,AAX,BIT40 014888 : 13,UZA, 014889 : ,XTA,NЗCB 014890 : 13,UZA, 014891 : ,XTA,ALNBUF 014892 : 13,UZA, 014893 : ,ATI,14 014894 : 14,UTM,DELREF 014895 : ,XTA,WL 014896 : 14,WTC, 014897 : 14,ATX,-1 014898 : ,AAX,BIT46 014899 : ,UZA,PPRL 014900 : ,XTA,WL 014901 : ,AAX,BIT24 014902 : ,UZA,IFER7 014903 : ,XTA,WL 014904 : ,ASN,64+12 014905 : ,ASN,64-46 014906 : ,UZA,PPRL 014907 : WR1757:,XTA,WL 014908 : 14,ATX,FLERPRL-DELREF 014909 : PPRL:14,XTA, 014910 : ,AEX,ENDCBUF 014911 : ,UZA,CBUF 014912 : ,AEX,ENDCBUF 014913 : ,ARX,BIT1 014914 : 14,ATX, 014915 : 13,UJ, 014916 : CBUF:,XTA,INT2 014917 : 14,ATX, 014918 : 13,UJ, 014919 : IFER7:,XTA,WL 014920 : ,AAX,=7740 014921 : ,UZA,PPRL 014922 : ,UJ,WR1757 014923 : C -- 014924 : C BЫXOД ПO ИCTEЧEHИЮ BPEMEHИ 014925 : C OЖИДAHИЯ CИГHAЛA 014926 : C -- 014927 : TEX:,BSS, 014928 : ,XTA, 014929 : ,ATX,TIME 014930 : ,XTA,SW 014931 : ,ASN,64-5 014932 : ,ATX,RES 014933 : ,UJ,EXIT 014934 : BЗBR:,BSS, 014935 : ,XTA, 014936 : ,ATX,FZ 014937 : ,XTA,BNR7CH 014938 : ,ATI,15 014939 : ,XTA,FTIME 014940 : ,U1A,R37B 014941 : ,WTC,BNL 014942 : ,XTA,TOTBBЗBП 014943 : ,AAX,C7777 014944 : ,ATX,CBTIME 014945 : ,XTA,BIT2 014946 : 13,VTM,RETURN 014947 : ,UJ,TIM ON 014948 : C -- 014949 : C CЧETЧИK BPEMEHИ OЖИДAHИЯ CИГHAЛA 014950 : C -- 014951 : PRTIMECB:,BSS, 014952 : ,XTA,BNR7CH 014953 : ,ATI,15 014954 : ,XTA,NЗAД 014955 : ,UZA,PTCB1 014956 : ,XTA,STPLINK 014957 : ,WTC,NЗAД 014958 : ,AAX,BITS 014959 : ,UIA,STPLI 014960 : PTCB1:,BSS, 014961 : ,XTA,TIME 014962 : ,ARX,BIT1 014963 : ,ATX,TIME 014964 : ,AEX,CBTIME 014965 : ,U1A,TIME10 014966 : C -- BPEMЯ OЖИДAHИЯ ИCTEKЛO 014967 : STPLI:,BSS, 014968 : ,XTA, 014969 : ,ATX,TCB 014970 : ,XTA,BIT1 014971 : ,ATX,FTIME 014972 : ,WTC,SW 014973 : ,UJ,* 014974 : :,UJ,NПYCП 014975 : :,UJ,NOTBBЗBП 014976 : :,33,30303B 014977 : :,UJ,N KOБM 014978 : NПYCП:,BSS, 014979 : ,XTA, 014980 : ,033,37B 014981 : ,UJ,RETURN 014982 : NOTBBЗBП:,BSS, 014983 : ,XTA,COMPIR 014984 : ,AAX,=7777 7777 7777 7400 014985 : ,ATX,COMPIR 014986 : ,033,34B 014987 : ,XTA, 014988 : ,UJ,R37B 014989 : N KOБM:,BSS, 014990 : ,XTA,BIT1 014991 : ,033,31B 014992 : ,UJ,RETURN 014993 : TOБM:,LOG,200 014994 : WL:,OCT, 014995 : BUW:,OCT, 014996 : BEQ:,OCT, 014997 : BUEND:,LOG, 64 0000 014998 : I:,OCT, 014999 : J:,OCT, 015000 : BUERM:,LOG,264 0000 015001 : BUER:,LOG,260 0000 015002 : BBT:,LOG,60 0000 015003 : MASK:,LOG,777 0000 015004 : MNP:,LOG,1 4037 0000 015005 : INT2:,INT,2 015006 : ENDCBUF:,INT,461 015007 : NOБM:,LOG,1 015008 : FLER60:,BSS,1 015009 : LENGTH:,OCT, 015010 : FW:,OCT, 015011 : NFL:,OCT, 015012 : PEOF:,OCT, 015013 : INFE:,OCT, 015014 : ADR8:,OCT, 015015 : NC:,OCT, 015016 : NL:,OCT, 015017 : SW:,OCT, 015018 : CBTIME:,OCT, 015019 : TIME:,OCT, 015020 : FTIME:,OCT, 015021 : BNL:,OCT, 015022 : SORTINF:,BSS,1 015023 : C 015024 : C 015025 : C=== BXOДЫ OT ПPEPЫBAHИЙ 015026 : C (БЫBШИЙ PEЗИДEHT) 015027 : C 015028 : 15,REL,BNR5.***** 015029 : KOHOБM7:,ENTRY, 015030 : ,WTC,BNR7CH 015031 : 15,VTM, 015032 : ,XTA, 015033 : ,ATX,TCB 015034 : ,XTA,BIT25 015035 : ,CALL,CLOMIR 015036 : C -- OПPOC CXEM KOHTPOЛЯ OБMEHA 015037 : ,XTA,.БЫЛO: ,EXT,4035B 015038 : ,ATX,FER 015039 : ,AOX,BIT47 015040 : 13,VTM,GO OPEN 015041 : ,UJ,PUTPRL 015042 : ПYCП:,ENTRY, 015043 : ,WTC,BNR7CH 015044 : 15,VTM, 015045 : ,XTA, 015046 : ,ATX,TCB 015047 : C -- ГAШEHИE 31P,YCTAHOBKA 37P ГPM 015048 : ,XTA,COMMIR 015049 : ,AEX,721B 015050 : ,AOX,713B 015051 : ,ATX,COMMIR 015052 : ,002,36B 015053 : ,ATI, 015054 : C -- YCTAHOBKA NL B ПPM 015055 : ,XTA,100B 015056 : ,AAX,SC/NL 015057 : ,AOX,COMPIR 015058 : ,ATX,COMPIR 015059 : ,033,34B 015060 : 13,VTM,RETURN 015061 : 14,VJM,IFEOJ 015062 : ,XTA,ADR 015063 : ,ATI,13 015064 : 14,VTM,R37R 015065 : ,ITA,14 015066 : ,AEX,ADR 015067 : ,UZA,CБPOC 015068 : ,XTA,BIT44 015069 : ,UJ,PUTPRL 015070 : CБPOC:,XTA,BIT48 015071 : ,UJ,PUTPRL 015072 : BЗBП:,ENTRY, 015073 : ,033,4034B 015074 : 15,AAX,BITS.ИЗ EXTINTER 015075 : ,UZA,RETURN 015076 : ,ATX,100B 015077 : ,ATX,W110 015078 : ,WTC,BNR7CH 015079 : 15,VTM, 015080 : ,AOX,731B 015081 : C 015082 : C //// ПYC-Ц, OПPOC KBM 015083 : C 015084 : ,033,37B 015085 : ,033,4037B 015086 : ,AAX,MNEVM 015087 : ,AOX,W110 015088 : ,ATX,WL* 015089 : ,AOX,BIT42 015090 : 13,VJM,PUTPRL 015091 : ,XTA,BIT43 015092 : 13,VJM,PUTPRL 015093 : ,XTA, 015094 : ,ATX,TCB 015095 : 13,VTM,R37R 015096 : C -- ГAШEHИE 1-8 PP ПPM 015097 : PR31A*:,XTA,COMPIR 015098 : ,AAX,=7777 7777 7777 7400 015099 : ,ATX,COMPIR 015100 : ,033,34B 015101 : ,XTA,721B 015102 : C -- YCTAHOBKA 31P ГPM 015103 : ,AOX,COMMIR 015104 : ,ATX,COMMIR 015105 : ,002,36B 015106 : ,ATI, 015107 : C -- ГAШEHИE 37P ГPП 015108 : ,XTA,713B 015109 : ,AEX,FULWOR 015110 : ,ATI, 015111 : ,002,37B 015112 : ,ITA,13 015113 : ,ATX,ADR 015114 : 13,VTM,RETURN 015115 : 14,VJM,IFEOJ 015116 : ,UJ,PR31A 015117 : R37R:,BSS, 015118 : ,XTA,FZ 015119 : ,U1A,ЗAHЯT 015120 : ,XTA,NЗAД 015121 : ,U1A,BЗB2 015122 : ,XTA,W107 015123 : ,U1A,ЗAHЯT 015124 : ,XTA,NЗCB 015125 : ,ATX,NЗAД 015126 : BЗB2:,BSS, 015127 : ,XTA,WL* 015128 : ,ATX,BUNL 015129 : ,AAX,SC/NL 015130 : ,ATX,RW 015131 : GO OPEN:,BSS, 015132 : 13,VTM,NEWTA 015133 : ,UJ,OPENW7 015134 : C -- 015135 : C ПOДГOTOBKA BOЗBPATA ПO 12 ИP 015136 : C -- 015137 : OPENW7:,ENTRY, 015138 : 15,MTJ,13.BXOД ИЗBHE 015139 : OPENW7:,WTC,BNR7CH 015140 : 15,VTM, 015141 : 14,VTM,NO EOJ 015142 : IF EOJ:,XTA,NЗAД 015143 : ,U1A,/10/ 015144 : ,XTA,NЗCB 015145 : ,UZA,RETBAD 015146 : /10/:,ATI,15 015147 : 15,XTA,BITS 015148 : ,WTC,BNR7CH 015149 : 15,VTM, 015150 : ,AAX,SCENDJO 015151 : 14,UZA, 015152 : RET BAD:,BSS, 015153 : ,XTA,COMPIR 015154 : ,AAX,=7777 7777 7777 7400 015155 : ,ATX,COMPIR 015156 : ,EXT,34B 015157 : ,ATI, 015158 : ,XTA,SCCLJ 015159 : ,AOX,RDSCAL 015160 : ,ATX,RDSCAL 015161 : ,XTA, 015162 : ,ATX,SCCLJ 015163 : ,ATX,W110 015164 : ,ATX,NЗAД 015165 : ,ATX,NЗCB 015166 : ,XTA,BIT25 015167 : ,AOX,BIT31 015168 : ,UJ,CLOMIR 015169 : NO EOJ:,WTC,NЗAД 015170 : 14,VTM, 015171 : : ,24,2003B 015172 : 14,XTA,677B 015173 : ,AOX,RDSCAL 015174 : ,ATX,RDSCAL 015175 : 14,WTC,ГYC 015176 : 14,VTM, 015177 : 14,XTA,10 015178 : 14,ATX,3 015179 : ,ATX,FZ 015180 : ,XTA,DISREG 015181 : 14,ATX,5 015182 : ,XTA,BNR7CH 015183 : 14,ATX,7.И15 015184 : 13,UJ, 015185 : ЗAHЯT:,BSS, 015186 : ,XTA,WL* 015187 : ,AAX,SC/NL 015188 : ,AOX,730B 015189 : ,AOX,BUZ 015190 : ,033,37B 015191 : ,AOX,BIT41 015192 : 13,VJM,PUTPRL 015193 : 13,VJM,PR31A* 015194 : ,XTA,SCCLJ 015195 : ,AOX,RDSCAL 015196 : ,ATX,RDSCAL 015197 : ,XTA, 015198 : ,ATX,SCCLJ 015199 : ,ATX,W110 015200 : ,UJ,RETURN 015201 : WL*:,BSS,1 015202 : ,END, 015203 : MACRO73:,NAME,. 015204 : NRESCALL:,SUBP,. 015205 : NR73:,SUBP,. 015206 : ,XTA,NRINF. 015207 : ,UJ,NRESCALL. 015208 : NRINF:,Z00,NR73. 015209 : ,Z00,15.БAЗA 015210 : ,END,. 015211 : NRES73: ,NAME, . 015212 : AW : ,EQU ,1 . 015213 : ДHЗ:,LC,1. 015214 : TABLEMT:LC,BLOCK,(16),T1MT(48),T2MT(48),TANAMEMT(32) 015215 : J1:,EQU,1. 015216 : J2:,EQU,2. 015217 : J3:,EQU,3. 015218 : NAME:,EQU,114B 015219 : M:,EQU,100B 015220 : REGSCAL:,EQU,M 015221 : MAXTIME:,EQU,111B 015222 : I:,EQU,1 015223 : J:,EQU,2 015224 : TMATH:,EQU,30B 015225 : I60/74:,EQU,85 015226 : FULWOR:,LC,1 015227 : C37:,LC,1 015228 : C 7:,LC,1 015229 : *677:B,BLOCK,BITS 015230 : ,CONT,BIT48,BIT47,BIT46,BIT45 015231 : ,CONT,BIT44,BIT43,BIT42,BIT41 015232 : ,CONT,BIT40,BIT39,BIT38,BIT37 015233 : ,CONT,BIT36,BIT35,BIT34,BIT33 015234 : ,CONT,BIT32,BIT31,BIT30,BIT29 015235 : ,CONT,BIT28,BIT27,BIT26,BIT25 015236 : ,CONT,BIT24,BIT23,BIT22,BIT21 015237 : ,CONT,BIT20,BIT19,BIT18,BIT17 015238 : ,CONT,BIT16,BIT15,BIT14,BIT13 015239 : ,CONT,BIT12,BIT11,BIT10,BIT9 015240 : ,CONT,BIT8,BIT7,BIT6,BIT5 015241 : ,CONT,BIT4,BIT3,BIT2,BIT1 015242 : C77777:,LC,1 015243 : C377:,LC,1 015244 : C177:,LC,1 015245 : C77:,LC,1 015246 : C3:,LC,1 015247 : 15,REL,*. 015248 : DISREG:,LC,1. 015249 : NR73:,SUBP,. 015250 : NRESOFF:,SUBP,. 015251 : MACRO74:,SUBP, 015252 : *YCЫ:LC,BLOCK,ГYC,RDSCAL. 015253 : SEMDOWNS:,SUBP, 015254 : SEMUP :,SUBP, 015255 : RETURN:,SUBP, 015256 : ШЛAГБAYM:LC,BLOCK,(6),SCAL73 015257 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR 015258 : ,CONT,SAVS16. 015259 : CLANEWTA:,SUBP,. 015260 : S : ,EQU ,4 . 015261 : TELOUT:,SUBP, 015262 : TODAY:,LC,1 015263 : NRES73:,BSS,. 015264 : ,ITA,15 015265 : ,ATX,SAVAR.CПACEHИE БAЗЫ 015266 : ,ARX,S/DOWN 015267 : ,WTC,SAVI15 015268 : 15,VTM, 015269 : ,UJ,SEMDOWNS 015270 : S/DOWN:,Z00,SCAL73 015271 : ,Z00,BEG///-NRES73 015272 : BEG///:,BSS, 015273 : ,WTC,SAVAR.BOCCTAHOBЛEHИE 015274 : 15,VTM,.БAЗЫ 015275 : C ПPЯЧEM OCHOBHЫE PEГИCTPЫ 015276 : ,XTA,SAVI15. 015277 : ,ATX,IR15. 015278 : ,ITA,15. 015279 : ,ATX,SAVI15. 015280 : ,XTA,SAVSR. 015281 : ,ATX,SAVNTR. 015282 : ,ITA,32B. 015283 : ,ATX,ADDRET. 015284 : ,XTA,C7 015285 : ,ATI,27B 015286 : ,WTC, Г Y C 015287 : ,XTA,I60/74 015288 : ,ASN,64+15 015289 : ,ATX,ПPMБ 015290 : ,U1A,BEGIN73 015291 : ,WTC,ГYC. 015292 : ,XTA,NAME. 015293 : 14,VJM,KODIR. 015294 : ,ATX,INPTX+3. 015295 : ,XTA,SAVI14. 015296 : 14,VJM,KODIR. 015297 : ,ATX,INPTX+1. 015298 : C BЫДAEM TEKCT : ГOTOBЫ K BBOДY 015299 : 14,VTM,BEGIN73 015300 : ,UJ,TOTEL 015301 : BEGIN73:,ITA,13. 015302 : ,ATX,SAW. 015303 : C AДPEC HAЧAЛA BBOДA 015304 : ,XTA,BIT1 015305 : ,ATX,ARRFLG. 015306 : C ФЛAГ BBOДA MACCИBA 015307 : ,ITA,14. 015308 : ,ATX,NAMBER. 015309 : C HOMEP MACCИBA 015310 : 14,VTM,-11. 015311 : *1:14,ITA,12. 015312 : 14,ATX,SAVI1+11. 015313 : 14,VLM,*1. 015314 : ,UJ,START 015315 : ERROR73:,BSS,. 015316 : ,XTA,ПPMБ 015317 : ,U1A,MACRO74 015318 : 14,VTM,START 015319 : TOTEL:,BSS, 015320 : : ,24,2003B. 015321 : 14,MTJ,33B 015322 : 14,VTM,INPTX. 015323 : ,ITA,14. 015324 : 14,VTM,CLANEWTA 015325 : ,UJ,TELOUT 015326 : GAL/8: ,OCT ,77777777 77777776 . 015327 : GAN/2: ,OCT ,62400000 00000000 . 015328 : GAN/4: ,OCT ,42400000 00000000 . 015329 : GAN/5: ,OCT ,36546314 63146315 . 015330 : GAN/6: ,OCT ,40177777 77777700 . 015331 : GAN/7: ,OCT ,77777777 77770237 . 015332 : GAN/8: ,OCT ,77777777 77777765 . 015333 : C ПEPEBOД ПAP CИMBOЛOB 015334 : GAO/1: ,OCT ,07217037 05012412 . 015335 : GAO/2: ,OCT ,00026465 00000000 . 015336 : GAO/3: ,OCT ,17026000 14036471 . 015337 : GAO/4: ,OCT ,16675542 30020000 . 015338 : GAO/5: ,OCT ,00051124 00000000 . 015339 : GAO/6: ,OCT ,23447400 24252520 . 015340 : GAO/7: ,OCT ,37276173 36477400 . 015341 : GAO/8: ,OCT ,00177777 77777777 . 015342 : C ДЛЯ ABTOKOДA 015343 : TABLA0:,OCT,01202003 00400400 015344 : GAP/2: ,OCT ,16030411 02003406 . 015345 : GAP/3: ,OCT ,30677017 11623067 . 015346 : GAP/4: ,OCT ,12622457 16424476 . 015347 : GAP/5: ,OCT ,31465377 15074066 . 015348 : GAP/6: ,OCT ,62711723 46027147 . 015349 : GAP/7: ,OCT ,66546321 63710322 . 015350 : GAP/8: ,OCT ,63301605 41744636 . 015351 : GAQ/1: ,OCT ,45753225 40307215 . 015352 : GAQ/2: ,OCT ,65752701 65154716 . 015353 : GAQ/3: ,OCT ,42713222 67356320 . 015354 : GAQ/4: ,OCT ,42516606 42315214 . 015355 : GAQ/5: ,OCT ,12110631 43716224 . 015356 : GAQ/6: ,OCT ,31226471 14026074 . 015357 : GAQ/7: ,OCT ,32022042 14436465 . 015358 : GAQ/8: ,OCT ,77777777 77631443 . 015359 : SYMBOL: ,OCT ,00000000 00000000 . 015360 : GAR/2: ,OCT ,00000000 00000000 . 015361 : GAR/3: ,OCT ,00000000 00000000 . 015362 : GAR/4: ,OCT ,00000000 00000000 . 015363 : GAR/5: ,OCT ,00000000 00000000 . 015364 : WORD : ,OCT ,00000000 00000000 . 015365 : GAR/7: ,OCT ,00000000 00000000 . 015366 : GAR/8: ,OCT ,00000000 00000000 . 015367 : REGIM : ,OCT ,00000000 00000000 . 015368 : C ФЛAГ OШИБKИ 015369 : GAS/3: ,OCT ,00000000 00000000 . 015370 : GAS/4: ,OCT ,00000000 00000000 . 015371 : GAS/5: ,OCT ,00000000 00000000 . 015372 : NCRD : ,OCT ,00000000 00000000 . 015373 : GAT/2: ,OCT ,00000000 00000000 . 015374 : GAT/6: ,OCT ,00000000 00000000 . 015375 : CARD:,BSS,24 015376 : C BXOД ПPИ ЗAПYCKE ЗAДAЧИ 015377 : START:,XTA, 015378 : ,ATX,PASFLG 015379 : ,ATX,ERRFLG 015380 : ,ATX,NCRD 015381 : 14,VTM,-15 015382 : CLPS*:14,ATX,PAS+15. 015383 : 14,VLM,CLPS*.ЧИCK.ПACП.MACCИBA 015384 : BEGIN : 5 ,VTM ,SCS . 015385 : ,XTA , . 015386 : ,ATX , GAR/3 . 015387 : ,ATX , GAR/5 . 015388 : ,ATX ,REGIM . 015389 : ,ATX,FLG1/2 015390 : ,ATX , GAS/3 . 015391 : ,ATX , GAT/6 . 015392 : GBV/4: 10 ,VTM ,77751B . 015393 : ,XTA,ERRFLG 015394 : ,U1A,ERROR 015395 : ,XTA,NCRD 015396 : RDCARD: ,ARX ,BIT1 . 015397 : ,ATX ,NCRD . 015398 : C ЧTEHИE OЧEPEДHOЙ KAPTЫ 015399 : 14,VTM,7 015400 : 14,MTJ,27B 015401 : ,060,CARD 015402 : ,BSS, 015403 : 14 ,V1M , GBW/2 . 015404 : , UJ , GFO/7 . 015405 : C ПPOBEPKA TИПA BBOДA 015406 : GBW/2: ,XTA ,REGIM . 015407 : ,AEX,BIT2 015408 : ,UZA ,ALGIBR . 015409 : ,AEX,C3 015410 : C CИMBOЛЬHЫЙ BBOД 015411 : ,U1A , GCL/2 . 015412 : ,XTA ,PASFLG . 015413 : ,UZA ,ERROR . 015414 : A3:10,XTA,CARD+23 015415 : : ,24, 015416 : 1,UTC, 015417 : 10,ATX,23 015418 : : ,24,3 015419 : 10,VLM,A3 015420 : 1,UTM,24 015421 : , UJ , GBV/4 . 015422 : GBX/3:,BSS, 015423 : ,XTA,GDU/4 015424 : : ,24, 015425 : GBV/8:,BSS, 015426 : 1,UTC,23 015427 : 10,ATX, 015428 : 10,VLM,GBV/8 015429 : AW,UTM,24 015430 : ,ITA ,AW . 015431 : : ,24, 015432 : ,ATX,1 015433 : : ,24,3 015434 : , UJ , GBY/3 . 015435 : C ПPOШEЛ CИMBOЛ E ИЛИ ДИCП. KOHEЦ 015436 : RESET: ,XTA ,PASFLG . 015437 : ,UZA ,ANPAS . 015438 : GBY/1:14,VTM,7 015439 : 14,MTJ,27B 015440 : ,060,CARD 015441 : ,BSS, 015442 : 14 ,V1M , GBY/1 . 015443 : GBY/3:,BSS, 015444 : 14,VTM,7 015445 : 14,MTJ,27B 015446 : ,060, 015447 : ,BSS, 015448 : C YXOДИM K MATEMATИKY 015449 : ,XTA,ARRFLG 015450 : ,AAX,BIT1 015451 : ,UZA,IN JOB. 015452 : C..... БЫЛ BBOД MACCИBA 015453 : ,XTA,NAMBER.MACCИB-ЗAДAЧA 015454 : ,UIA,NO PRINT. - HET 015455 : C... ЧИCTKA PEГИCTPOB : 015456 : 14,VTM,-11 015457 : CLEAR:14,ATX,SAVI1+11 015458 : 14,VLM,CLEAR 015459 : ,ATX,IR15 015460 : ,ATX,SAVNTR 015461 : ,ATX,SAW 015462 : ,ATX,ARRFLG 015463 : IN JOB:,BSS,. 015464 : ,XTA,ГYC 015465 : ,ASN,64+15 015466 : ,ATX,SHIFRTX+1 015467 : ,WTC,ГYC 015468 : ,XTA,NAME 015469 : ,ATX,SHIFRTX+4 015470 : ,XTA,TODAY 015471 : ,ASN,64-5 015472 : ,AUX,=6H'3''17''''1''17''' 015473 : ,AOX,SHIFRTX+5 015474 : ,ATX,SHIFRTX+5 015475 : ,XTA,TODAY 015476 : ,ASN,64-16 015477 : ,AUX,=6H'17''17''''''''' 015478 : ,AOX,SHIFRTX+6 015479 : ,ATX,SHIFRTX+6 015480 : 14,VTM,7 015481 : 14,MTJ,27B 015482 : ,*64,SHIFRINF 015483 : NOPRINT:,BSS, 015484 : 13,VTM,-11. 015485 : ,XTA,ADDRET. 015486 : ,AAX,BIT48. 015487 : ,UZA,ЧИCTMOД. 015488 : C ECTЬ CБOЙHAЯ ПPOГPAMMA 015489 : ,XTA,DISREG. 015490 : ,ATI,27B. 015491 : ,XTA,=7770 0020 7760 0002 015492 : ,*72,70707B. 015493 : ЧИCTMOД:,BSS,. 015494 : :13,XTA,SAVI1+11. 015495 : 13,ATI,12. 015496 : 13,VLM,ЧИCTMOД. 015497 : : ,24,2003B. 015498 : ,ITA,15. 015499 : ,ARX,NRINF. 015500 : ,UJ,NRESOFF. 015501 : NRINF:,Z00,NR73. 015502 : ,Z00,K MAT-NRES73. 015503 : K MAT:,XTA,ADDRET. 015504 : ,ATI,33B. 015505 : C OTKPЫBAEM ЭKCTPAKOД 015506 : ,ITA,15 015507 : ,ARX,S/UP 015508 : 15,MTJ,14 015509 : ,UJ,SEMUP 015510 : S/UP:,Z00,SCAL73 015511 : ,Z00,EXIT///-NRES73 015512 : EXIT///:,BSS, 015513 : 14,REL,NRES73 015514 : ,AEX,. 015515 : 15,VTM,SAVAC 015516 : ,XTS,SAVNTR 015517 : ,XTS,SAVAC 015518 : ,XTS,IR15 015519 : ,XTS, 015520 : ,XTS,SAW 015521 : ,XTS, 015522 : ,MTJ,27B. 015523 : ,UJ,RETURN 015524 : C БЛOK AHAЛИЗA ПACПOPTA 015525 : ANPAS:,BSS, 015526 : 15,REL,NRES73 015527 : ,XTA,ARRFLG. 015528 : ,UZA,NOAR 0. 015529 : C..... БЫЛ BBOД MACCИBA 015530 : ,XTA,NAMBER. MACCИB 015531 : ,UZA,SPEC AR.- ЗAДAЧA 015532 : ,XTA,PAS. 015533 : ,ASN,64+47. 015534 : ,UZA,ERROR. 015535 : ,XTA,7 015536 : ,AAX,BIT38 015537 : ,U1A,RETANPAS 015538 : ,XTA,PAS+1 015539 : ,AEX,NAMBER 015540 : ,U1A,ERROR 015541 : ,XTA,PAS+2 015542 : ,WTC,ГYC 015543 : ,AEX,NAME 015544 : ,U1A,ERROR 015545 : RETANPAS:,BSS, 015546 : ,XTA,SAW 015547 : ,ATI,AW 015548 : ,XTA,=1 015549 : ,ATX,PASFLG 015550 : ,UJ,BEGIN 015551 : SPEC AR:,BSS,. 015552 : C..... CПEЦ.MACCИB - ЗAДAЧA 015553 : C OTKAЗ OT ЛИCTOB ПAMЯTИ : 01/37 015554 : ,XTA,DISREG. 015555 : ,ATI,27B. 015556 : ,*72,=:00 4137 77. 015557 : C OTKAЗ OT BCEX TPAKTOB MБ 015558 : ,XTA,ПPMБ 015559 : ,UZA,ALL 015560 : ,ASN,64+25 015561 : ,AAX,C37 015562 : ,ATI,14 015563 : 14,XTA,BIT48+6 015564 : ALL:,AEX,=:41 7777 7777 015565 : ,ATX,DEL MD 015566 : ,*72,DEL MD 015567 : : ,24,3. 015568 : ,UJ,NO ARR. 015569 : C ПACПOPT ЗAДAЧИ 015570 : NOAR 0:,BSS,. 015571 : C..... HAЧ.BBOД ЗAДAЧИ 015572 : ,XTA,PAS. 015573 : ,ASN,64+47. 015574 : ,UIA,ERROR. 015575 : NOARR:,BSS, 015576 : ,XTA,PAS+2 015577 : ,ATX,ADDRET 015578 : C BXOД B ЗAДAЧY 015579 : ,ASN,64+15 015580 : ,AAX,C77777 015581 : ,UZA,ERROR 015582 : 14,VTM,13B 015583 : 14,MTJ,27B 015584 : ,*50,72100B+NAME 015585 : ,XTA,FULWOR 015586 : ,AEX,BIT48 015587 : ,*50,76100B+REGSCAL 015588 : C ПACПOPTHЫЙ ШИФP 015589 : I,VTM,-3 015590 : LS:I,XTA,PAS+6 015591 : ,ATX,LSW 015592 : LS1:,XTA,LSW 015593 : ,UZA,ELS 015594 : ,ASN,64-6 015595 : ,ATX,LSW 015596 : ,YTA, 015597 : ,UZA,LS1 015598 : C 0 ЛИCT ЗAKAЗAH BCEГДA 015599 : ,ATI,J 015600 : ,ASN,64+5 015601 : ,U1A,ERROR 015602 : ,WTC,ГYC 015603 : J,XTA,TMATH 015604 : ,AAX,BIT48 015605 : ,U1A,ERROR 015606 : ,XTA,BIT48 015607 : : ,24,2003B 015608 : ,WTC,ГYC 015609 : J,AOX,TMATH 015610 : ,WTC,ГYC 015611 : J,ATX,TMATH 015612 : : ,24,3 015613 : ,UJ,LS1 015614 : ELS:I,VLM,LS 015615 : ,XTA,ARRFLG. 015616 : ,UIA,RETANPAS. 015617 : C BЫДEЛИЛИ ПAMЯTЬ ДЛЯ ЗAДAЧИ 015618 : J1,VTM,-1. 015619 : ,XTA,PAS+9 015620 : ,ATX,DELW 015621 : Ц1:J2,VTM,48. 015622 : Ц2:J1,XTA,PAS+8. 015623 : J2,UTM,-6. 015624 : J2,ASN,64. 015625 : ,AAX,C77 015626 : ,UZA,KOHЗAK. 015627 : ,ATX,NT. 015628 : ,AAX,=70. 015629 : ,AEX,=70. 015630 : ,UZA,ERROR 015631 : ,XTA,NT. 015632 : ,NTR,3. 015633 : ,A-X,=30. 015634 : ,U1A,ERROR 015635 : ,XTA,ДHЗ. 015636 : ,ASN,64-6. 015637 : ,AOX,NT. 015638 : ,ATX,WT. 015639 : ,XTA,DELW 015640 : ,ASN,64-3 015641 : ,ATX,DELW 015642 : ,YTA, 015643 : ,ASN,64-18 015644 : ,ATX,DELTA 015645 : J3,VTM,-31. 015646 : Ц3:,XTA,5. 015647 : J3,AAX,BIT48+31. 015648 : ,U1A,KЦ. 015649 : J3,XTA,T1MT+31. 015650 : ,ASN,64+36. 015651 : ,UZA,ИMЯ. 015652 : ,AEX,WT. 015653 : ,UZA,ERROR 015654 : ,UJ,KЦ. 015655 : ИMЯ:J3,XTA,TANAMEMT+31. 015656 : ,AEX,ИMЯMЛ. 015657 : C TOЛЬKO CTAHДAPTHOE ИMЯ(BPEMEHHO) 015658 : ,U1A,KЦ. 015659 : ,XTA,WT. 015660 : ,ASN,64-36. 015661 : ,AOX,DELTA 015662 : ,AOX,BIT1 015663 : J3,ATX,T1MT+31. 015664 : C ЗAKAЗAЛИ ДEЛЬTY 015665 : ,UJ,KЦ2. 015666 : KЦ:J3,VLM,Ц3. 015667 : ,UJ,HETMЛ. 015668 : KЦ2:J2,V1M,Ц2. 015669 : J1,VLM,Ц1. 015670 : C BЫДEЛИЛИ MAГHИTOФOHЫ 015671 : KOHЗAK:,BSS,. 015672 : C ЗAKAЗ BPEMEHИ CЧETA 015673 : ,NTR, 015674 : ,XTA,PAS+10 015675 : ,UZA,NO TIMER 015676 : ,A*X,=R60.0 015677 : ,WTC,ГYC 015678 : ,ATX,MAXTIME 015679 : NO TIMER:,BSS, 015680 : ,UJ,RETANPAS 015681 : GCL/2: 11 ,VTM ,40 . 015682 : 10,XTA,CARD+23 015683 : 11 ,ASN ,100B . 015684 : C BЫДEЛЯEM OЧEPEДHOЙ CИMBOЛ KAPTЫ 015685 : GCL/4: ,XTA , GAT/6 . 015686 : ,ATX ,SYMBOL . 015687 : 11 ,UTM ,-8 . 015688 : 10,XTA,CARD+23 015689 : 11 ,ASN ,100B . 015690 : ,AAX,C377 015691 : ,ATX , GAT/6 . 015692 : ,AEX ,=340 . 015693 : C CИMBOЛ 140 - BTOPOЙ KOД HYЛЯ 015694 : ,U1A , GCM/2 . 015695 : GCM/1: ,AEX ,BIT8 . 015696 : ,ATX , GAT/6 . 015697 : GCM/2: ,AEX ,=202 . 015698 : C CИMBOЛ 142 - BTOPOЙ KOД ПPOБEЛA 015699 : ,U1A , GCM/6 . 015700 : ,XTA ,=176 . 015701 : , UJ , GCM/1 . 015702 : C ЧTEHИE HOBOГO CИMBOЛA (5,VJM,NEWSYM) 015703 : NEWSYM: 11 ,V1M , GCL/4 . 015704 : 10 ,VLM , GCL/2 . 015705 : , UJ , GBV/4 . 015706 : C AHAЛИЗ CИMBOЛA 015707 : GCM/6: ,XTA ,SYMBOL . 015708 : ,UZA ,NEWSYM . 015709 : ,AEX,C377 015710 : ,UZA ,NEWSYM . 015711 : ,ACX , . 015712 : ,AAX,BIT1 015713 : ,UZA ,ERROR . 015714 : ,XTA ,SYMBOL . 015715 : ,AAX,C177 015716 : ,ATX ,SYMBOL . 015717 : ,AEX,C177 015718 : ,UZA ,NEWSYM . 015719 : ,XTA , GAR/3 . 015720 : C ЗOHA YПP. CИMB. A0 , A1 , A4 015721 : ,U1A , GDK/4 . 015722 : ,XTA ,SYMBOL . 015723 : ,ATX , GAR/4 . 015724 : ,XTA , GAR/5 . 015725 : C YПP. CИMB. ИЛИ ЗOHA KOДA 015726 : ,UZA , GCO/4 . 015727 : C ЗOHA YПP. CИMB. Б 015728 : ,XTA ,WORD . 015729 : ,ASN ,70B . 015730 : ,AOX ,SYMBOL . 015731 : ,ATX ,WORD . 015732 : 7 ,VLM ,NEWSYM . 015733 : ,XTA , . 015734 : ,ATX , GAR/5 . 015735 : 5 ,VTM ,INPW . 015736 : , UJ ,NEWSYM . 015737 : GCO/4: ,XTA , GAR/4 . 015738 : ,ATI ,S . 015739 : C HA S - TEKYЩИЙ CИMBOЛ 015740 : 3 ,VTM ,77776B . 015741 : ,ATX , . 015742 : GCO/6: ,ASN ,103B . 015743 : ,UZA ,И . 015744 : ,ASN ,77B . 015745 : 3 ,VLM , GCO/6 . 015746 : C HA ИP-3 - TИП CИMBOЛA 015747 : C -2 - BOCЬM. ЦИФPA, -1 - CЛYЖEБH. CИMB., 0 - БYKBA 015748 : И : ,XTA , GAR/4 . 015749 : S ,UTM ,77730B . 015750 : S ,V1M , GCP/6 . 015751 : C YПP. CИMB. И 015752 : ,XTA , . 015753 : ,ATX , GAS/3 . 015754 : ,ATX , . 015755 : 5 ,VTM ,SCS . 015756 : ,ATX , . 015757 : ,XTA , . 015758 : , UJ ,NEWSYM . 015759 : C BЫXOД ИЗ NEWSYM 015760 : GCP/6: 5 , UJ , . 015761 : C ПEPEKЛЮЧATEЛЬ YПPABЛЯЮЩИX CИMBOЛOB 015762 : SCS : S ,UTM ,77776B . 015763 : S ,VZM ,K . 015764 : S ,UTM ,77763B . 015765 : S ,VZM ,Ч . 015766 : S ,UTM ,25B . 015767 : S ,VZM ,B . 015768 : S ,UTM ,77775B . 015769 : S ,VZM ,E . 015770 : S ,UTM ,77764B . 015771 : S ,V1M , GDK/1 . 015772 : 7 ,VTM ,77760B . 015773 : C BBOД BOCЬMEPИЧHOЙ KOHCTAHTЫ 015774 : 2 ,VTM ,INPW . 015775 : C : ,ATX ,WORD . 015776 : 5 ,VJM ,NEWSYM . 015777 : 3 ,VZM , GCX/6 . 015778 : 3 ,UTM ,1 . 015779 : 3 ,V1M , GCQ/8 . 015780 : ,ATX , GAS/3 . 015781 : GCQ/8: ,XTA ,WORD . 015782 : ,ASN ,75B . 015783 : ,ARX , GAR/4 . 015784 : 7 ,UTM ,1 . 015785 : , UJ ,C . 015786 : C BBOД ДECЯTИЧHЫX ЧИCEЛ 015787 : Ч : 2 ,VTM ,77777B . 015788 : 6 ,VTM ,INPW . 015789 : GCR/4: ,XTA , GDU/3 . 015790 : ,ATX ,WORD . 015791 : ,XTA ,=R10.0 . 015792 : ,ATX , GAR/7 . 015793 : ,NTR ,2 . 015794 : 5 ,VJM ,NEWSYM . 015795 : 3 ,VZM , GCS/6 . 015796 : S,UTM,32B 015797 : S ,V1M , GCS/2 . 015798 : 2 ,VTM , . 015799 : , UJ ,NEWSYM . 015800 : GCS/2: S ,UTM ,4 . 015801 : S ,VZM ,NEWSYM . 015802 : S ,UTM ,77777B . 015803 : S ,V1M , GCS/8 . 015804 : ,XTA , GAR/7 . 015805 : ,AVX , GAL/8 . 015806 : ,ATX , GAR/7 . 015807 : , UJ ,NEWSYM . 015808 : GCS/6: ,XTA ,WORD . 015809 : ,A/X , GAR/7 . 015810 : ,ATX ,WORD . 015811 : 6 , UJ , . 015812 : GCS/8: S ,UTM ,77773B . 015813 : S ,VZM , GCT/7 . 015814 : ,XTA , GAR/4 . 015815 : ,ASN ,35B . 015816 : ,ARX , GAN/4 . 015817 : ,A+X ,WORD . 015818 : ,A*X ,=R10.0 . 015819 : ,ATX ,WORD . 015820 : 2 ,V1M ,NEWSYM . 015821 : ,XTA , GAR/7 . 015822 : ,A*X ,=R10.0 . 015823 : ,ATX , GAR/7 . 015824 : , UJ ,NEWSYM . 015825 : GCT/7: ,XTA ,WORD . 015826 : ,AEX , GDU/3 . 015827 : ,U1A , GCU/2 . 015828 : ,XTA ,=R10.0 . 015829 : ,ATX ,WORD . 015830 : GCU/2: 2 ,VTM ,77777B . 015831 : 6 ,VJM , GCS/6 . 015832 : ,ATX , GAR/8 . 015833 : 6 ,VJM , GCR/4 . 015834 : 3 ,VTM ,=R10.0 . 015835 : ,NTR ,20B . 015836 : ,UZA , GCU/6 . 015837 : 3 ,VTM , GAN/5 . 015838 : GCU/6: ,XTA ,WORD . 015839 : ,AVX ,WORD . 015840 : ,A-X , GAN/6 . 015841 : ,ATX ,WORD . 015842 : ,UZA , GCV/2 . 015843 : ,XTA , GAR/8 . 015844 : ,ATX ,WORD . 015845 : , UJ ,INPW . 015846 : GCV/2: ,XTA , GAR/8 . 015847 : 3 ,A*X , . 015848 : ,ATX , GAR/8 . 015849 : , UJ , GCU/6 . 015850 : C BBOД KOMAHД 015851 : K : 6 ,VTM , . 015852 : 2 ,VTM ,INPW . 015853 : C OБPAБOTKA ФOPMATA KOMAHДЫ 015854 : GCV/5: 7 ,VTM ,77755B . 015855 : 8 ,VTM , . 015856 : GCV/6: 7 ,UTM ,1 . 015857 : 5 ,VJM ,NEWSYM . 015858 : 3 ,VZM , GCX/6 . 015859 : 3 ,UTM ,1 . 015860 : 3 ,V1M , GCW/1 . 015861 : ,ATX , GAS/3 . 015862 : GCW/1: ,XTA ,WORD . 015863 : ,ASN ,75B . 015864 : 6 ,VLM , GCW/7 . 015865 : 8 ,V1M , GCX/1 . 015866 : ,XTA , GAR/4 . 015867 : ,AAX ,=36 . 015868 : ,UZA , GCW/5 . 015869 : ,ATX , GAS/3 . 015870 : GCW/5: 6 ,VTM ,77777B . 015871 : 8 ,VTM ,1 . 015872 : ,XTA ,WORD . 015873 : ,ASN ,77B . 015874 : GCW/7: ,ARX , GAR/4 . 015875 : ,ATX ,WORD . 015876 : , UJ , GCV/6 . 015877 : GCX/1: ,XTA , GAR/4 . 015878 : ,AAX ,=34 . 015879 : ,UZA , GCX/3 . 015880 : ,ATX , GAS/3 . 015881 : GCX/3: 6 ,VTM ,77772B . 015882 : 8 ,VTM , . 015883 : ,XTA ,WORD . 015884 : ,ASN ,76B . 015885 : , UJ , GCW/7 . 015886 : C БЛOK ПPOBEPKИ OШИБOK 015887 : GCX/6: 7 ,V1M ,ERROR . 015888 : ,XTA , GAS/3 . 015889 : ,U1A ,ERROR . 015890 : 2 , UJ , . 015891 : C БЛOK BЫДAЧИ MAШИHHOГO CЛOBA 015892 : INPW : ,XTA ,PASFLG . 015893 : ,UZA ,INPPAS . 015894 : ,XTA,WORD 015895 : 14,VTM,4 015896 : 14,MTJ,27B 015897 : AW,CTX, 015898 : : ,24,3 015899 : AW,UTM,1 015900 : GCY/5: ,XTA , GAR/3 . 015901 : ,UZA ,SCS . 015902 : GCY/6: 2 ,UTM ,77773B . 015903 : 3 , UJ , . 015904 : C B ПACПOPT 015905 : INPPAS: AW ,UTM ,-7541B . 015906 : ,ITA ,AW . 015907 : ,ASN ,104B . 015908 : ,U1A ,ERROR . 015909 : ,XTA ,WORD . 015910 : AW ,ATX ,PAS . 015911 : AW ,UTM ,7542B . 015912 : , UJ , GCY/5 . 015913 : C BBOДHOE CЛOBO 015914 : B : 6 ,VTM , . 015915 : 2 ,VJM , GCV/5 . 015916 : ,XTA ,WORD . 015917 : ,ATX , GAS/4 . 015918 : ,ASN ,130B . 015919 : ,ATI ,AW . 015920 : , UJ ,SCS . 015921 : C ПEPEKЛ. YПP. CИMB. (ПPOДOЛЖEHИE) 015922 : GDK/1: S ,UTM ,20B . 015923 : S ,V1M , GDM/2 . 015924 : 7 ,VTM ,77773B . 015925 : C YПP. CИMB. Б 015926 : ,XTA , GAL/8 . 015927 : ,ATX , GAR/5 . 015928 : , UJ ,NEWSYM . 015929 : C ИДET BBOД ПO A0 , A1 , A4 015930 : GDK/4: ,XTA , GAR/2 . 015931 : ,ASN ,70B . 015932 : ,AOX ,SYMBOL . 015933 : ,ATX , GAR/2 . 015934 : ,AEX,=6H'''''''''132''127' 015935 : ,AAX ,C77777 . 015936 : ,U1A , GDO/8 . 015937 : C KOHEЦ TEKCTA 015938 : ,XTA ,WORD . 015939 : GDK/8: ,ASN ,70B . 015940 : 2 ,VLM , GDK/8 . 015941 : ,ATX ,WORD . 015942 : 3 ,VJM ,INPW . 015943 : C MATEMATИKY - PACПOЛOЖEHИE TEKCTA B ПAMЯTИ 015944 : ,ITA ,AW . 015945 : ,ARX , GAL/8 . 015946 : : ,24, 015947 : ,ATX ,3 . 015948 : ,ASN ,112B . 015949 : : ,24,3 015950 : ,AOX,*2 015951 : : ,24, 015952 : ,ATX ,2 . 015953 : : ,24,3 015954 : ,XTA , . 015955 : ,ATX , GAR/3 . 015956 : ,ATX , GAS/3 . 015957 : 5 ,VTM ,SCS . 015958 : , UJ ,NEWSYM . 015959 : C ПEPEKЛ. YПP. CИMB. (OKOHЧAHИE) 015960 : GDM/2: S ,UTM ,1 . 015961 : S ,V1M ,ERROR . 015962 : C YПP. CИMB. A 015963 : 5 ,VJM ,NEWSYM . 015964 : S ,UTM ,40 . 015965 : ,ITA ,S . 015966 : ,ASN ,101B . 015967 : ,UZA , GDM/7 . 015968 : ,ASN ,101B . 015969 : ,UZA , GDN/1 . 015970 : GDM/7: ,ITA ,AW . 015971 : C ДЛЯ A0 , A1 , A4 ЗAПOMHИЛИ HAЧAЛO TEKCTA 015972 : ,ASN ,112B . 015973 : ,ASN ,72B . 015974 : ,ATX,*2 015975 : GDN/1:,BSS, 015976 : GDN/2: S ,VZM , GDN/8 . 015977 : S ,UTM ,77777B . 015978 : S ,V1M , GDO/1 . 015979 : C BBOД ПO A1 015980 : ,XTA,BIT1 015981 : GDN/4: ,ATX , GAR/3 . 015982 : ,XTA , . 015983 : ,ATX , GAS/5 . 015984 : GDN/6:,BSS, 015985 : 2 ,VTM ,77773B . 015986 : , UJ ,NEWSYM . 015987 : C BBOД ПO A0 015988 : GDN/8: ,XTA ,C37 . 015989 : , UJ , GDN/4 . 015990 : GDO/1: S ,UTM ,77777B . 015991 : S ,V1M , GDO/5 . 015992 : C BBOД ПO A2 015993 : ,XTA,BIT2 015994 : ,ATX ,REGIM . 015995 : GDO/3: ,XTA , GAR/3 . 015996 : ,ATX , GAS/5 . 015997 : 5,VTM,ERROR 015998 : , UJ , GDN/6 . 015999 : GDO/5: S ,UTM ,77777B . 016000 : S ,V1M , GFO/1 . 016001 : C BBOД ПO A3 016002 : ,XTA,BIT1 016003 : ,ATX ,REGIM . 016004 : 3 ,VTM ,77765B . 016005 : , UJ , GDO/3 . 016006 : C BBOДИM TEKCT 016007 : GDO/8: ,XTA , GAR/3 . 016008 : ,ASN ,101B . 016009 : ,ATI ,8 . 016010 : , UJ , GFO/5 . 016011 : GDP/2: ,XTA , GAS/5 . 016012 : ,ATI ,3 . 016013 : ,XTA ,SYMBOL . 016014 : ,ATI ,S . 016015 : C ИЩEM ДBOЙHЫE CИMBOЛЫ 016016 : 3 ,V1M , GDR/1 . 016017 : S ,UTM ,77741B . 016018 : S ,V1M , GDQ/5 . 016019 : GDP/6: 3 ,UTM ,3 . 016020 : ,ITA ,3 . 016021 : GDP/7: ,ATX , GAS/5 . 016022 : ,XTA ,SYMBOL . 016023 : GDP/8: 8 ,V1M ,A1TOA0 . 016024 : GDQ/1: ,ATX , GAR/4 . 016025 : ,XTA ,WORD . 016026 : ,ASN ,70B . 016027 : ,AOX , GAR/4 . 016028 : ,ATX ,WORD . 016029 : 2 ,VLM ,NEWSYM . 016030 : 3 ,VTM ,NEWSYM . 016031 : , UJ ,INPW . 016032 : GDQ/5: S ,UTM ,77706B . 016033 : S ,V1M , GDQ/7 . 016034 : 3 ,UTM ,77776B . 016035 : , UJ , GDP/6 . 016036 : GDQ/7: S ,UTM ,77777B . 016037 : S ,V1M , GDP/8 . 016038 : 3 ,UTM ,77777B . 016039 : , UJ , GDP/6 . 016040 : GDR/1: ,XTA , . 016041 : ,ATX , GAS/5 . 016042 : S,VTM,48 016043 : C CЛИЯHИE ДBOЙHЫX CИMBOЛOB 016044 : GDR/3: ,XTA , GAO/1 . 016045 : S ,ASN ,70B . 016046 : ,AEX ,SYMBOL . 016047 : ,AAX ,C377 . 016048 : S ,UTM ,-8 . 016049 : ,UZA , GDR/8 . 016050 : S ,V1M , GDR/3 . 016051 : ,XTA , GAS/5 . 016052 : , UJ , GDP/2 . 016053 : GDR/8: 8 ,V1M , GDS/1 . 016054 : 3 ,UTM ,3 . 016055 : GDS/1: 3 ,XTA , GAO/1 . 016056 : S ,ASN ,100B . 016057 : ,AAX ,C377 . 016058 : ,UZA , GDP/2 . 016059 : ,AEX , GAR/4 . 016060 : ,AEX ,WORD . 016061 : ,ATX ,WORD . 016062 : 2 ,UTM ,5 . 016063 : 3 ,VTM ,NEWSYM . 016064 : 2 ,V1M , GCY/6 . 016065 : AW ,UTM ,77777B . 016066 : , UJ ,INPW . 016067 : C ПEPEBOД B ABTOKOД 016068 : A1TOA0: ,XTA ,SYMBOL . 016069 : ,AOX ,=I0 . 016070 : ,ATX , GAT/2 . 016071 : ,A+X , . 016072 : ,NTR ,3 . 016073 : ,A/X,=R6.0 016074 : ,A+X ,=I0 . 016075 : ,ATI ,9 . 016076 : ,NTR , . 016077 : ,A*X,=R6.0 016078 : ,X-A , GAT/2 . 016079 : ,NTR ,3 . 016080 : ,A+X , GAN/2 . 016081 : ,ATI ,8 . 016082 : ,NTR , . 016083 : 9,XTA,TABLA0 016084 : 8 ,ASN ,100B . 016085 : ,AAX ,C377 . 016086 : , UJ , GDQ/1 . 016087 : GDU/3: ,OCT ,40000000 00000000 . 016088 : GDU/4: ,OCT ,00100000 00000000 . 016089 : GDW/3: ,OCT ,37777777 77777777 . 016090 : C OБPAБOTKA PAЗHЫX OШИБOK 016091 : HETMЛ:,BSS, 016092 : 14,VTM,TAPETX 016093 : ,UJ,TOM74 016094 : ERRPAS:14,VTM,PASTX 016095 : TOM74:,BSS, 016096 : ,ITA,14 016097 : 14,VTM,MACRO74 016098 : , UJ ,TELOUT . 016099 : ERCARD:,XTA,NCRD 016100 : 2,VTM,CRDTX 016101 : 14 ,VJM ,KODIR . 016102 : 2,ATX,1 016103 : ,ITA ,AW . 016104 : 14 ,VJM ,KODIR . 016105 : 2,ATX,3 016106 : ,ITA,2 016107 : 14 ,VJM ,TELOUT . 016108 : ,XTA,ARRFLG 016109 : ,AAX,BIT1 016110 : ,UZA,MACRO74 016111 : ,UJ,ERROR73 016112 : PASFLG: ,OCT ,00000000 00000000 . 016113 : *2:,BSS,1 016114 : PAS:,BSS,16 016115 : ALGIBR:,BSS, 016116 : ,XTA,BIT1 016117 : ,ATX,GAR/3 016118 : 3,VTM,*END 016119 : *COD:,BSS, 016120 : 10,XTA,CARD+23 016121 : ,AAX,=10 0007 1250 0604 016122 : ,U1A,ERROR 016123 : 10,XTA,CARD+24 016124 : ,AAX,=2 0410 2041 0204 016125 : ,U1A,ERROR 016126 : 10,XTA,CARD+23 016127 : ,AAX,BIT23 016128 : ,UZA,*END 016129 : 10,XTA,CARD+24 016130 : ,XTA,BIT1 016131 : ,U1A,*RET 016132 : 10,XTA,CARD+24 016133 : ,APX,=5 7367 5736 7570 016134 : ,ASN,64-5 016135 : ,ATX,WORD 016136 : ,YTA, 016137 : ,ATX,/W/ 016138 : ,XTA,WORD 016139 : ,ACX, 016140 : ,AEX,/W/ 016141 : ,U1A,ERROR 016142 : 10,XTA,CARD+23 016143 : ,APX,=527 7173 016144 : ,U1A,*BC 016145 : 10,XTA,CARD+24 016146 : ,AAX,GDU/4 016147 : ,U1A,*BC0 016148 : ,XTA,FLG1/2 016149 : ,AEX,BIT1 016150 : ,ATX,FLG1/2 016151 : ,UZA,*OKEY 016152 : ,XTA,WORD 016153 : ,ATX,*1/2W 016154 : ,UJ,*END 016155 : *OKEY:,BSS, 016156 : ,XTA,WORD 016157 : ,ASN,64+24 016158 : ,AOX,*1/2W 016159 : ,ATX,WORD 016160 : ,UJ,INPW 016161 : *BC0:,BSS, 016162 : ,XTA, 016163 : *BC:,BSS, 016164 : ,ASN,64+33 016165 : ,ATX,/BC/ 016166 : ,XTA,FLG1/2 016167 : ,U1A,ERROR 016168 : ,XTA,WORD 016169 : ,U1A,ERROR 016170 : 10,XTA,CARD+24 016171 : ,ASN ,64+39 016172 : ,AAX,BIT1 016173 : ,ATX,/W/ 016174 : ,XTA,/BC/ 016175 : ,ACX,/W/ 016176 : ,AAX,BIT1 016177 : ,UZA,ERROR 016178 : ,XTA,/BC/ 016179 : ,ATI,AW 016180 : *END:,BSS, 016181 : 10,UTM,1 016182 : 10,VLM,*COD 016183 : ,UJ,GBV/4 016184 : *RET:,BSS, 016185 : ,XTA,FLG1/2 016186 : ,U1A,ERROR 016187 : ,UJ,BEGIN 016188 : FLG1/2:,BSS,1 016189 : *1/2W:,BSS,1 016190 : /W/:,BSS,1 016191 : /BC/:,BSS,1 016192 : C AHAOИЗ OШИБKИ 016193 : ERROR:,060, 016194 : :,24,2003B 016195 : ,XTA,PASFLG 016196 : GFL/7:,U1A,ERCARD 016197 : ,XTA ,ARRFLG . 016198 : ,AAX,BIT1 016199 : ,UZA ,ERRPAS . 016200 : ERPASA:14,VTM,PASATX 016201 : ,ITA,14 016202 : 14 ,VJM ,TELOUT . 016203 : ,UJ,ERROR73 016204 : ARRFLG: ,OCT ,00000000 00000000 . 016205 : GFO/1: S ,UTM ,77777B . 016206 : S ,V1M ,ERROR . 016207 : C BBOД ПO A4 016208 : ,XTA , GDU/3 . 016209 : , UJ , GDN/4 . 016210 : C ЛATKИ 016211 : GFO/5: 8 ,V1M , GDP/2 . 016212 : ,UZA , GDP/2 . 016213 : ,XTA , GAS/5 . 016214 : , UJ , GDP/7 . 016215 : GFO/7: ,XTA ,REGIM . 016216 : ,AEX,BIT1 016217 : ,UZA , GBX/3 . 016218 : ,ATX ,ERRFLG . 016219 : ,XTA , GAT/6 . 016220 : ,ATX ,SYMBOL . 016221 : , UJ , GCM/6 . 016222 : ERRFLG: ,OCT ,00000000 00000000 . 016223 : C 016224 : E : ,XTA ,ERRFLG . 016225 : ,UZA ,RESET . 016226 : ,XTA ,PASFLG . 016227 : ,U1A , GBY/3 . 016228 : C MACCИB ПYCT 016229 : ,UJ,ERROR 016230 : KODIR:,BSS, 016231 : ,ASN,64-33 016232 : ,AUX,MASKOD 016233 : ,AOX,CISO 016234 : 14,UJ, 016235 : MASKOD:,GOST,6H077777 016236 : CISO:,ISO,6H'1'00000 016237 : PASTX:,BSS, 016238 : ,ISO,12HOШ. B ПACП.'' 016239 : ,OCT, 016240 : CRDTX:,BSS, 016241 : ,ISO,6HEПK '1''1' 016242 : ,OCT, 016243 : ,ISO,6H AДP '1' 016244 : ,OCT, 016245 : ,OCT, 016246 : PASATX:,BSS, 016247 : ,ISO,12HOШ. ПACП. M. 016248 : ,OCT, 016249 : TAPETX:,BSS, 016250 : ,ISO,12HYKAЖИTE MЛ '41' 016251 : ,OCT, 016252 : ИMЯMЛ:,OCT,22451252 51224512. 016253 : INPTX:,ISO,6HBBOД '1' 016254 : ,OCT,. 016255 : ,ISO,6H ЗAД.'1' 016256 : ,OCT,. 016257 : ,OCT,. 016258 : SHIFRTX:,GOST,6HШИФP '231' 016259 : ,OCT, 016260 : ,GOST,9H ЗAДAЧA '231' 016261 : ,OCT, 016262 : ,GOST,6H00.00. 016263 : ,GOST,6H00.'231' 016264 : SHIFRINF:,BSS, 016265 : ,,SHIFRTX 016266 : ,,SHIFRTX+6 016267 : ,064, 016268 : ,, 016269 : 2,071,5 016270 : ,, 016271 : ,076, 016272 : ,, 016273 : 2,106,5 016274 : ,, 016275 : ,166, 016276 : 15,, 016277 : DEL MD:,BSS,1 016278 : ПP MБ :,BSS,1 016279 : SAVNTR:,BSS,1. 016280 : SAVI1:,BSS,12. 016281 : IR15:,BSS,1. 016282 : DELW:,BSS,1 016283 : DELTA:,BSS,1 016284 : NT:,BSS,1. 016285 : WT:,BSS,1. 016286 : NAMBER:,BSS,1 016287 : SAW:,BSS,1 016288 : ADDRET:,BSS,1 016289 : LSW:,BSS,1 016290 : ,END, 016291 : TARES:,NAME, 016292 : C 016293 : BEGIN:,BSS, 016294 : C 016295 : *677: B,BLOCK, BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42 016296 : ,CONT, BIT41,BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34 016297 : ,CONT, BIT33,BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26, 016298 : ,CONT, BIT25,BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18 016299 : ,CONT, BIT17,BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10 016300 : ,CONT, BIT9,BIT8,BIT7,BIT6,BIT5,BIT4,BIT3,BIT2,BIT1 016301 : *YCЫ:LC,BLOCK, ГYC, RDSCAL 016302 : COЩИTOM:,SUBP, 016303 : C NAMES OF INDEX-REGISTERS 016304 : *2:,BLOCK,LT,L,J,RE 016305 : *6:,BLOCK,S,K,SN,FD 016306 : *10:,BLOCK,A,N,T 016307 : C DESCRIPTION OF THE INFORM.ARRAY 016308 : *0:,BLOCK,COBT 016309 : ,CONT,SBT,SCT,ДOП,SSR,SAR 016310 : ,CONT,SM33,SM32,SM27,SI16,SI15 016311 : ,CONT,SI14,SI13,OCTИП3(70) 016312 : ,CONT,NAME(3) 016313 : ,CONT,EMUL(3),SCDRUM(24),SCTAPE(64),COFATA 016314 : NAM3:,EQU,NAME+2 016315 : BISTIME:,EQU,110B 016316 : MAXTIME:,EQU,111B 016317 : M:,EQU,100B. 016318 : REGSCAL:,EQU,M. 016319 : TMATHI:,EQU,ДOП+30B 016320 : TMATH:,EQU,30B 016321 : MAXTIMEB:,EQU,ДOП+MAXTIME 016322 : MO34:,EQU,ДOП+26B 016323 : MO35:,EQU,MO34+1 016324 : MACRO70:,SUBP, 016325 : DISREG:,LC,1 016326 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15 016327 : ,CONT,SAVI14,SAVI13,(1),SAVI16 016328 : ДOПYПP:LC,BLOCK,AC,SR,AR,M33,M32,M27,I16,I15 016329 : ,CONT,I14,I13,NTRFRO 016330 : TABLEMT:LC,BLOCK,(16),T1MT(32),(16),T2MT(32) 016331 : ,CONT,(16),TNAMEMT(32) 016332 : STATUSMT:LC,BLOCK,MBUS,OLD(4),NEW(4),DIF(4). 016333 : ,CONT,(19),MISTERX 016334 : STOP:,EQU,574B 016335 : C BLOCKS, CRNNECTED WITH DISCS 016336 : * И П Д :LC,BLOCK,XNF,XNFM(4),XNC 016337 : NMAT1:,WEQ,XNF 016338 : LENTDIS:,EQU,XNF+21B 016339 : *DISCS:LC,BLOCK,DNAM 016340 : TABSCR:,EQU,425B 016341 : FATA:,LC,1 016342 : *LFATA:,EQU,XNF+20B 016343 : LFATA:,WEQ,*LFATA 016344 : *TDIS:,LC, 016345 : TEX:,EQU,*TDIS.EXTENT'S TABLE 016346 : LTX:,WEQ,LENTDIS.THE EXTENT'S 016347 : LTXM1:,EQU,LTX-1.TABLE - 1 016348 : C DISCRIPTION THE FIELDS THAT 016349 : C CONNECTED WITH DISKS AND 016350 : C MULTIPLIED BY CHANNELS FOR CONT 016351 : FREXT:,EQU,XNF+34B 016352 : MON :,EQU,XNF+33B 016353 : *127:B,BLOCK,MTD,MTDJ 016354 : * И П K 1 :,LC,1 016355 : NC:,WEQ,XNC 016356 : MONTAS:,EQU,*ИПK1+NC 016357 : C DESCRIPTION OF THE ROLLOUT SECTOR 016358 : *0:,BLOCK,(1),NTASK,CRT,BFRA,BFRB 016359 : ,CONT,INABEG(7),FIELD,OLDTEX 016360 : ////:,EQU,OLDTEX+LTX 016361 : ////:I,BLOCK,OMTD,OMTDJ,COTSAR 016362 : OLDNAM:,EQU,377B 016363 : SM1:,EQU,SI13+13 016364 : *400:B,BLOCK,W*70,W4,W5,BASW 016365 : KOHEЦ:,EQU,1317B-BASW 016366 : BITININ:,EQU,BIT48+6 016367 : BITMD:,EQU,BIT48 016368 : FULWOR:,LC,1 016369 : ДHЗ:LC,BLOCK,STN 016370 : BIT*76:,EQU,BIT48+3 016371 : /A/:,P/P,(BEGIN)1024 016372 : B:,P*P,(/A/)1024 016373 : D:,EQU,BASW+B 016374 : 13,REL,B 016375 : 13,VTM, 016376 : C SET S T N TO MAT. MEMORY 016377 : ,*65,STN 016378 : ,ATX,STNMM 016379 : ,*65,3 016380 : ,AAX,=777 016381 : ,ATX,W*70 016382 : C READING THE ROLLOUT SECTOR. 016383 : T,VTM,TNOTT-IN.TEXT:NO TRACT 016384 : ,*65,NTRFRO.ADDR.FOR TRAPHY 016385 : ,APX,=30 0000 0000 1774 016386 : ,AUX,C370037 016387 : ,UZA,DIAGN 016388 : ,AOX,=:4014 016389 : ,ATX,W2*70.READING TO THE 016390 : ,*70,W2*70.0-TH SECTOR 016391 : C IS THERE THE BUFFER HERE: 016392 : ,XTA,OLDNAM 016393 : ,*57,400B 016394 : T,VTM,TNBUF-IN.TEXT 'NO BUF' 016395 : ,UZA,DIAGN 016396 : ,ASN,64-12 016397 : ,AOX,W*70 016398 : ,AOX,KP1.P40,39 016399 : ,ATX,W*70 016400 : ,ARX,=10 0000 016401 : ,AAX,=40 0000 016402 : ,AEX,=40 0000 016403 : ,ASN,64-28 016404 : ,AOX,W*70 016405 : ,ATX,W*70 016406 : C IS THERE A TASK BEGNING FROM 016407 : C THE POINTED ZONE 016408 : N,UTM,7.MAX.N OF TASKS 016409 : A,VTM,INABEG 016410 : CHECK:,BSS,.LOOP OF CHECKING 016411 : A,XTA,.EXISTENCE THE 016412 : ,AEX,W*70.TASK WITH THE 016413 : ,AAX,=777.BEGIN FROM 016414 : ,UZA,TASKIS.THIS ZONE 016415 : A,UTM,1 016416 : N,UTM,-1 016417 : N,V1M,CHECK 016418 : T,VTM,TNST-IN.'NO SUCH TASK' 016419 : ,*76,IN.NO SUCH TASK 016420 : TASKIS:,BSS, 016421 : C THE TASK EXISTS.ADDR.OF DES.IN A. 016422 : C PRINTING THE HEAD OF THE TASK. 016423 : ,XTA,W*70.THE N OF ZONE 016424 : ,ASN,64-39.IS SET INTO THE 016425 : ,AUX,GUNP.PRINTED TEXT 016426 : ,AOX,GTVAR.AS THE IDENTEFI- 016427 : ,ATX,GTVAR.KATOR OF TASK 016428 : ,*64,INHEAD 016429 : 13,VTM,.ANTI M64'S ERROR 016430 : A,XTA, 016431 : ,ASN,64+24.OBTAINING THE 016432 : ,ATI,FD.FIELD'S ADDRESS 016433 : C READING THE INFORMATION TO 1-TH P. 016434 : ,XTA,W*70 016435 : ,AOX,B31 016436 : ,ARX,=1 016437 : ,ATX,W1*70 016438 : ,*70,W1*70 016439 : FD,UTM,-40000B 016440 : 14,VTM,COBT-KOHEЦ. 016441 : L1:,BSS, 016442 : 14,XTA,KOHEЦ+2005B 016443 : 14,ATX,BASW+KOHEЦ 016444 : 14,VLM,L1 016445 : 1,VTM, 016446 : ЦЛ:,BSS, 016447 : TTAPE:,EQU,SCTAPE+BASW 016448 : 1,XTA,TTAPE 016449 : 1,AOX,TTAPE+1 016450 : ,UZA,ЛEHTЫBCE 016451 : 4,VTM, 016452 : ЦЛ1:,BSS, 016453 : 1,XTA,TTAPE+1 016454 : C***** ЗДECЬ BCЯ ИHФOPMAЦИЯ O MЛ : 016455 : C 1-6 MAT.HOMEP 016456 : C 14-15 ПЛOTHOCTЬ ЗAПИCИ 016457 : C 17-27 ДEЛЬTA 016458 : C 46 ПP-K ЗAKAЗA HA ЗAПИCЬ 016459 : C 47 ПP-K ЗAKAЗA KOHTPOЛЯ 016460 : C 48 ПP-K NO CHECK 016461 : C 016462 : ,ATI,2 016463 : *57:,ASN,64-1 016464 : 4,MTJ,3 016465 : ,ARX, 016466 : ,U1A,NOCONTR 016467 : ,AAX,=:2 016468 : 3,UTM,100B 016469 : ,U1A,NOCONTR 016470 : 3,UTM,100B 016471 : NOCONTR:,BSS, 016472 : 3,UTM,2070B 016473 : 1,XTA,TTAPE.ИMЯ MЛ 016474 : 2,MTJ,13 016475 : 3,*57, 016476 : 13,VTM,.BOCCT.БAЗЫ 016477 : ,ATI,14 016478 : ,UZA,MTABS 016479 : ,ASN,64+45 016480 : ,UZA,OKE 016481 : ,ASN,64+2 016482 : ,UZA,MTABS 016483 : ,ITA,3 016484 : ,AAX,=100 016485 : ,UIA,MTABS 016486 : OKE:,BSS, 016487 : C-- MЛ БЛAГOПOЛYЧHO ЗAXBAЧEHA 016488 : C-- YCTAHOBИM HYЖHYЮ ДEЛЬTY. 016489 : 14,MTJ,N 016490 : N,UTM,TABLEMT-10B 016491 : 1,XTA,TTAPE+1 016492 : ,ASN,64+4 016493 : ,AAX,=1777 0000 016494 : ,ATX,W3 016495 : ,XTA,=1777 0000 016496 : ,*76,WRW11M 016497 : 1,UTM,2.И K CЛEД.MЛ 016498 : ,UJ,ЦЛ 016499 : MTABS:4,VTM,400B 016500 : ,*57,3 016501 : ,UJ,ЦЛ1 016502 : C----- 016503 : DIAGN:,BSS, 016504 : ЗAHЯTA:,*76,IN 016505 : C 016506 : C------------ 016507 : ЛEHTЫBCE:,BSS, 016508 : C OCCUPWING THE FILES 016509 : CFTB:,EQU,COFATA+BASW 016510 : ,XTA, 016511 : ,ATX,NEWSCD.NEW MONTAS 016512 : 1,VTM,CFTB-1 016513 : LT,VTM,LFATA 016514 : LT,MTJ,L 016515 : LSFOF:,BSS, 016516 : C LOOKING FOR OWN FILES 016517 : C AND OCCUPYING THEM. 016518 : 1,UTM,1.ADDR.IN COFATA 016519 : 1,XTA,.FILE REFFERENCE 016520 : ,ASN,64+42.OWNER'S NUMBER 016521 : FD,AEX,FIELD.IS IT OWN 016522 : ,U1A,ENDLSFOF.NO 016523 : C IS IT A SCRATCH'S REFFERENCE 016524 : 1,XTA,.FOR WRITING TO 016525 : ,ATX,W3.FATA IF SCRATCH 016526 : ,ASN,64+36 016527 : ,AAX,=77.MATH. NUMBER 016528 : ,ATX,W2 016529 : ,XTA,W3 016530 : ,AAX,=:0000 77 016531 : ,UZA,SZF.IT IS SCRATCH 016532 : ,AEX,=:0000 77.NMOD=77 - 016533 : ,UZA,ENDLSFOF.ФAЙЛ ИЗ Ф.C. 016534 : C OBTAINING THE DISC'S NAME 016535 : 1,XTA,.OLD 016536 : ,ATX,W1.REFFERENCE 016537 : ,ASN,64+30.THE NUMBER OF 016538 : ,AAX,=77.THE MODULE WHERE 016539 : ,ATX,W2.THE FILE WAS 016540 : ,WTC,W2 016541 : LT,XTA,CFTB-30B.NAME OF DISC 016542 : 15,VJM,GIVEMNF.FOR MOD.,NFIL 016543 : T,VTM,TFB-IN.'FILE IS BUSY' 016544 : ,UZA,ЗAHЯTA.FILE IS BUSY 016545 : SZF:,BSS, 016546 : C FILE OPENING IS POSSIBLE 016547 : ,XTA,STNMM.NEW STN 016548 : FD,AEX,FIELD.OBTAINING THE 016549 : ,ASN,64+6.WORD FOR FATA 016550 : ,YTA,.WITH NEW SUPER- 016551 : ,AEX,W3.VISOR'S AND 016552 : ,ATX,W3.MODULE'S NUMBERS 016553 : C WRITING THE WORD FROM W3 016554 : C INTO FREE PLACE IN THE FATA. 016555 : LT,MTJ,J 016556 : N,VTM,FATA-1 016557 : LSZF:N,UTM,1.LOOKING FOR 016558 : ,*76,W11IF0.PLACE AND WRITE 016559 : ,UZA,ENDLSFOF.WRITING HAS BEEN 016560 : J,UTM,-1 016561 : J,V1M,LSZF 016562 : T,VTM,TNF-IN.'NO PLACE' 016563 : ,*76,IN.STOP 016564 : ENDLSFOF:,BSS, 016565 : C GOING TO THE NEXT FILE 016566 : C IN THE COPY OF THE FILE'S TABLE. 016567 : L,UTM,-1 016568 : L,V1M,LSFOF 016569 : C WRITING THE SCALE OF THE MODULES, 016570 : C OCCUPYED BY THE TASK. 016571 : ,XTA,NEWSCD 016572 : ,ATX,W3 016573 : ,WTC,STNMM 016574 : N,VTM,MONTAS-NMAT1 016575 : ,*76,WRW11 016576 : C MERGING THE SCALE TO THE 016577 : C GLOBAL SCALE OFOCCUPYING. 016578 : N,VTM,MON 016579 : ,*76,WRW11M 016580 : C...... BLOCK OF OCCUPYING THE OWN 016581 : C EXTENTS. FD(9) IS THE BASE OF THE 016582 : C TASK'S FIELD. 016583 : RE,VTM,-LTXM1.1-LENGTH OF TEX 016584 : 1,VTM, 016585 : ,NTR,3 016586 : FD,XTA,FIELD 016587 : ,A-X,=20 016588 : ,ATX,W6 016589 : LREXT1:,BSS, 016590 : C EXTERNAL LOOP OF GETTING ELEMENT. 016591 : FD,UTC,FIELD+1 016592 : RE,XTA,LTXM1.STRING OF TEX 016593 : ,ATX,W4 016594 : K,VTM,1-3.NUMB OF EL 016595 : LREXT2:,XTA,W4 016596 : ,ASN,64-16.GETTING 016597 : ,ATX,W4.AN ELEMENT 016598 : ,YTA,.OF THE EXTENT'S 016599 : ,ATX,W5.TABLE 016600 : C IS THE EXTENT OWN. 016601 : ,ASN,64+11 016602 : ,AEX,W6.OLD STN 016603 : ,U1A,ELREXT2.NO 016604 : C OBTAINING THE FILE'S REFFERENCE 016605 : C AND THE DISC'S NAME OF THE SCRATCH 016606 : 1,MTJ,SN 016607 : FD,UTC,.THE TABLE 016608 : 14,VTM,COTSAR.OF SCRATCH 016609 : LSFSCR:14,WTC,.GETTING 016610 : SN,UTM,1.THE NUMBER OF 016611 : ,ITA,SN.THE SCRATCH 016612 : ,ASN,64+14.THAT CONTAINED 016613 : ,U1A,ITISNF.THE EXTENT WHEN 016614 : 14,UTM,3 016615 : ,UJ,LSFSCR.ROLLOUT WAS 016616 : ITISNF:14,XTA,1.REFFERENCE OF 016617 : ,ATX,W1.THIS SCRATCH 016618 : ,ASN,64+30 016619 : ,AAX,=77.OLD 016620 : ,ATX,W2.MODULE'S NUMBER 016621 : 14,XTA,2.DISC'S NAME 016622 : 15,VJM,GIVEMNF 016623 : C GETTING THE ELEMENTS NUMBER OF THE 016624 : C EXTENT FOR THE NEW EXTENT'S TABLEE 016625 : S,VTM,TABSCR-1 016626 : J,UTM,1 016627 : ,ITA,J.FILE'S NUMBER 016628 : ,ATX,W3.WHERE SCR.IS 016629 : J,VTM, 016630 : C COUNTING THE OWN EXTENTS 016631 : L,UTM,-1 016632 : LNNEX:S,UTM,1.ELEMENT OF 016633 : S,*65,.SCRATCH TABLE 016634 : ,AEX,C77777.NUMB.OF EXT. 016635 : ,ATI,15.IN THE SCRATCH 016636 : 15,J+M,J.COUNT THEM 016637 : ,ASN,64+15.FILE'S NUMBER 016638 : ,AEX,W3.IS IT THAT 016639 : ,U1A,LNNEX.NO 016640 : J,J+M,SN.NEW NUMBER 016641 : C SETTING THE INFORMATION TO TEX. 016642 : ,ITA,SN 016643 : ,ATX,W3.EXTENT'S NUMBER 016644 : ,A*X,C1/3.DIVISION BY 3 016645 : ,ATI,N.STRING'S NUMBER 016646 : ,ATX,W2 016647 : ,ASN,64-1.*2 016648 : ,ARX,W2.*3 016649 : ,X-A,W3.COLUMN'S NUMBER 016650 : ,ASN,64-4.*16 016651 : ,ATI,14 016652 : ,XTA,STNMM.OBTAINING 016653 : ,A-X,=20.THE ELEMENT 016654 : ,AEX,W6.WITH 016655 : ,ASN,64-11.NEW STN AND 016656 : ,AEX,W5.SETTING 016657 : 14,ASN,64-32.INFORMATION 016658 : ,ATX,W3.TO RIGHT PLACE 016659 : ,XTA,B16/1.OBTAINING THE 016660 : 14,ASN,64-32.MASK OF FIELD 016661 : N,UTM,TEX 016662 : ,*76,WRW11M.WRITING 016663 : ELREXT2:,BSS, 016664 : C GOING TO THE NEXT ELEMENT IN THE 016665 : C COPY OF THE EXTENT'S TABLE 016666 : 1,UTM,1 016667 : K,VLM,LREXT2 016668 : RE,VLM,LREXT1 016669 : C KORRECTION THE NUMBER OF THE 016670 : C FREE EXTENTS 016671 : FD,WTC,OMTDJ.OLD REQUEST 016672 : L,UTM,-1 016673 : ,ITA,L.NUMBER OF 016674 : ,AEX,C77777.OLD TAKEN- 016675 : N,VTM,FREXT.-OLD REQUEST 016676 : ,*76,WRAD11M 016677 : C SETTING THE INFORMATION ABOUT 016678 : C THE TAPES, MAPPED TO THE DISKS 016679 : FD,XTA,OMTD.USER'S TAPES 016680 : ,FUN,72100B+MTD 016681 : FD,XTA,OMTDJ.WORK TAPES 016682 : ,FUN,72100B+MTDJ 016683 : C CORRECTION OF THE ROLLOUT SECTOR 016684 : ,XTA,W2*70.MAKING THE WORD 016685 : ,AEX,=:001.FOR WRITING THE 016686 : ,ATX,W2*70.ROLLOUT SECTOR 016687 : A,*65,BIT48-INABEG 016688 : ,AOX,CRT.CHANGING THE 016689 : ,ATX,CRT.RESTOR.SCALE 016690 : ,ACX,.IS EVERYBODY 016691 : ,AEX,NTASK.RESTORED 016692 : ,U1A,NALL.NO IT ISN'T 016693 : ,ATX,NTASK 016694 : NALL:,*70,W2*70 016695 : C WORK WITH MATHEMATICAL TRACKS 016696 : TDRUM:,EQU,SCDRUM+BASW 016697 : 1,VTM,-23 016698 : 2,VTM,-31 016699 : ,XTA, 016700 : ,ATX,W2.IW ЗAПИCИ 016701 : ЦБ:,XTA,=:4 016702 : 2,ASN,64+31 016703 : 1,AAX,TDRUM+23 016704 : ,UZA,ЧYЖOЙ 016705 : 3,VTM,ББ 016706 : R70:,BSS, 016707 : ,XTA,W1*70 016708 : ,ARX,=1 016709 : ,ATX,W1*70 016710 : ,*70,W1*70 016711 : ,XTA,W2 016712 : 3,UJ, 016713 : ББ:,BSS, 016714 : ,AUX,C370037 016715 : ,AOX,B31 016716 : ,ATX,W1 016717 : ,*70,W1 016718 : ЧYЖOЙ:,XTA,W2 016719 : ,ARX,=:0004 016720 : ,ATX,W2 016721 : 2,VLM,ЦБ 016722 : 2,VTM,-31 016723 : 1,VLM,ЦБ 016724 : 1,VTM,-30 016725 : C ЗAПИCЬ ЛИCTOB БEЗ ПEPBOГO 016726 : ЦCTP:,UTC,BASW 016727 : 1,XTA,TMATHI+31 016728 : ,ASN,64-1 016729 : ,ASN,64+31 016730 : ,UZA,HE HAДO P 016731 : ,*76,RESPP 016732 : 3,VJM,R70 016733 : ,ITA,1. 016734 : ,ASN,64-10. 016735 : ,ATI,14. 016736 : 14,XTA,76001B. 016737 : HEHAДOP:,BSS, 016738 : ,XTA,W1*70 016739 : ,ARX,B31 016740 : ,ATX,W1*70 016741 : 1,VLM,ЦCTP 016742 : 15,VTM,BASW+SM1 016743 : 14,VTM,-11 016744 : ЦMOД:15,XTA, 016745 : 14,ATI,12 016746 : 14,VLM,ЦMOД 016747 : ,*76,ПY 016748 : GIVEMNF:,BSS, 016749 : C...... SUBROUTINE FOR LOOKING FOR MODULE 016750 : C WHERE THE DISC WITH THAT NAME 016751 : C (ACCUMULATOR) IS, AND THE FILE 016752 : C ON IT (W1). W2 IS THE OLD NUMBER 016753 : C OF MODULE. IF DISC IS ABSENT - 016754 : C - STOP. IF FILE IS BUSY, ACC=0. 016755 : C AFTER RETURN S = N OF MODULE. 016756 : C J = N IN FATA FROM 0. W3 IS WORD 016757 : C FOR FATA WITH NEW MODULE NUMBER. 016758 : C REGISTER N IS CHANGED. 016759 : ,ATX,W3.NEEDED NAME 016760 : C LOOKIING FOR MODULE 016761 : S,VTM,1-16 016762 : LSFDP:S,*65,DNAM+15.NAME 016763 : ,AEX,W3 016764 : ,UZA,HEREITIS.IT IS THAT 016765 : S,VLM,LSFDP 016766 : C THERE IS NOT THE DISK. DIAGN.STOP 016767 : T,VTM,TNP-IN.TEXT OF ABCENSE 016768 : ,*76,IN 016769 : HEREITIS:S,UTM,15+30B.THE N OF MOD. 016770 : C SETTING THE BIT TO THE MATH.SCALE 016771 : C OF THE OCCYPYED MODULES 016772 : S,*65,BIT48-30B 016773 : ,AOX,NEWSCD 016774 : ,ATX,NEWSCD 016775 : ,ITA,S.N WHERE THE NAME 016776 : ,AEX,W2.OLD NUMBER 016777 : ,ASN,64-30.CREATING A WORD 016778 : ,AEX,W1.FOR FATA WITH 016779 : ,ATX,W3.NEW N OF MOD. 016780 : C LOOKING FOR SUCH WORD IN FATA 016781 : ,ITA,LT.LENGTH OF FATA 016782 : ,AEX,C77777 016783 : ,ATI,N.THE COUTER OF 016784 : N,UTM,2.LOOP OF LOOKING 016785 : J,VTM,-1 016786 : LSSF:J,UTM,1 016787 : J,*65,FATA.IS THE WORD 016788 : ,AEX,W3.THE SAME 016789 : ,ASN,64-12.WITHOUT IDENT. 016790 : 15,UZA,.SAME 016791 : N,VLM,LSSF 016792 : 15,UJ, 016793 : ПY:,BSS,.ПOCЛEДHEE YCИЛИE 016794 : 14,REL,* 016795 : BASA:,EQU,D-ПY 016796 : ,WTC,Г Y C. 016797 : 15,VTM,. 016798 : 13,VTM,-21 016799 : IF:13,UTC,21+BASA 016800 : 14,XTA,OCTИП3+54. 016801 : 13,UTC,21 016802 : 15,ATX,REGSCAL. 016803 : 13,VLM,IF. 016804 : 15,XTA,REGSCAL. 016805 : ,AEX,BIT48. 016806 : ,AAX,BIT48. 016807 : ,ATX,I16. 016808 : 15,XTA,REGSCAL. 016809 : ,AOX,BIT48 016810 : 15,ATX,REGSCAL. 016811 : 14,XTA,BASA+MO34 016812 : 15,ATX,26B. 016813 : 14,XTA,BASA+MO35. 016814 : 15,ATX,27B. 016815 : 14,XTA,SBT+BASA 016816 : 15,ATX,117B.AUS 016817 : 14,XTA,COBT+BASA 016818 : ,ATX,I13. BT ДЛЯ KOPPEK 016819 : 15,VTM,-5 016820 : ЦД:15,UTC, 016821 : 14,XTA,BASA+SM27 016822 : 15,ATX,M27 016823 : 15,VLM,ЦД 016824 : 14,XTA,BASA+SI14 016825 : ,ATX,I14 016826 : 14,XTA,BASA+SI13 016827 : ,ATI,13 016828 : 14,XTA,BASA+SI15 016829 : ,ATI,15 016830 : 14,XTA,BASA+SI16 016831 : ,ATX,SAVI16. 016832 : 14,XTA,TEK1-ПY 016833 : 14,ATX,BASA+NAM3 016834 : 14,UTM,BASA+NAME 016835 : ,ITA,14 016836 : 14,CALL,TELOUT. NAME+(ПPOД) OПEPATOPY 016837 : ,XTA,DISREG 016838 : ,ATI,27B 016839 : 14,VTM,CO ЩИTOM 016840 : 14,MTJ,32B 016841 : 14,VTM,W*70 016842 : ,UJ,MACRO70 016843 : W11IF0:,BSS, 016844 : C IF(MEMORY(N).NE.0) RETURN 016845 : C MEMORY(N)=W3 016846 : C ACC=0 016847 : C RETURN 016848 : 14,REL,* 016849 : N,XTA, 016850 : ,U1A,M76RET 016851 : ,XTA,W3 016852 : ,UJ,WRW11 016853 : WRAD11M:,BSS, 016854 : C MEMORY(N)=MEMORY(N)+ACC(MOD2**15) 016855 : 14,UTM,W11IF0-WRAD11M 016856 : N,ARX, 016857 : ,AAX,C77777 016858 : ,UJ,WRW11 016859 : WRW11M:,BSS, 016860 : C WRITING FROM W3 WITH 016861 : C CLEANING WITH ACCUMULATOR 016862 : 14,UTM,W11IF0-WRW11M 016863 : ,AEX,FULWOR 016864 : N,AAX, 016865 : ,AOX,W3 016866 : WRW11:,BSS,.WRITE TO (N) 016867 : N,ATX, 016868 : ,XTA, 016869 : M76RET:,MTJ,27B 016870 : 2,IJ, 016871 : RESPP:,BSS, 016872 : 14,REL,* 016873 : ,WTC,ГYC 016874 : 1,UTC,31. 016875 : 15,VTM, 016876 : 15,XTA,TMATH 016877 : ,ASN,64+30 016878 : ,U1A,*1 016879 : ,XTA,BIT48 016880 : 15,AOX,TMATH 016881 : 15,ATX,TMATH 016882 : *1:,MTJ,27B. 016883 : 2,IJ,. 016884 : IN:,BSS, 016885 : 14,REL,* 016886 : C PRINT ON THE TT AND STOP. 016887 : C (ADDRESS OF THE TEXT - IN) IN T. 016888 : T,J+M,14 016889 : ,ITA,14 016890 : 14,CALL,TELOUT 016891 : ,MTJ,27B 016892 : ,UJ,STOP 016893 : C 016894 : C77777:,LOG,77777 016895 : B16/1:,LOG,177777 016896 : C1/3:,LOG,4005 2525 2525 2526 016897 : INHEAD:13,Z00,THEAD-B 016898 : 13,Z00,GTVAR-B 016899 : :,055, 016900 : 9, , 016901 : THEAD:,GOST,18HПPOДOЛЖEHИE, ЗOHA 016902 : GTVAR:,GOST,6H- 000'231' 016903 : GUNP:,GOST,6H007770 016904 : B31:,OCT,000001 016905 : KP1:,OCT,0014 016906 : C370037:,LOG,370037 016907 : TNOTT:,ISO,12HHET TPAKTA(R 016908 : ,OCT, 016909 : TNST:,ISO,12HHET ЗAДAЧИ(R 016910 : ,OCT, 016911 : TFB:,ISO,12HФAЙЛ ЗAHЯT(R 016912 : ,OCT, 016913 : TNF:,ISO,12HHET MECTA(R'' 016914 : ,OCT, 016915 : TNP:,ISO,12HHET ПAKETA(R 016916 : ,OCT, 016917 : TNBUF:,ISO,12HHET БYФEPA'''' 016918 : ,OCT, 016919 : TEK1:,BSS, 016920 : ,ISO,6H(ПP.)'' 016921 : W1*70:,BSS,1 016922 : W1:,BSS,1 016923 : W2:,BSS,1 016924 : W3:,BSS,1 016925 : W6:,BSS,1 016926 : W2*70:,BSS,1 016927 : NEWSCD:,BSS,1 016928 : STNMM:,BSS,1 016929 : ,END, 016930 : TASKSAVR:,NAME, 016931 : M:,EQU,100B. 016932 : REGSCAL:,EQU,M. 016933 : BISTIME:,EQU,110B 016934 : *YCЫ:LC,BLOCK,ГYC 016935 : ДHЗ:,LC,1 016936 : B*76:,EQU,703B 016937 : NEWTA:,SUBP, 016938 : NRESCALL:,SUBP, 016939 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 016940 : ДOПYПP:LC,BLOCK,AC,SR,AR,M33,M32,M27,I16,I15,I14,I13 016941 : NRESTS:,SUBP, 016942 : ,XTA,SAVSR. 016943 : ,ATX,SR. 016944 : ,YTA, 016945 : ,ATX,AR 016946 : ,XTA,INF 016947 : ,UJ,NRESCALL 016948 : INF:,Z00,NRESTS 016949 : ,Z00,*+1 016950 : ,ATI,13 016951 : 13,UJ, 016952 : CO ЩИTOM:,ENTRY, 016953 : ,XTA,ГYC 016954 : ,ATI,14 016955 : ,XTA,I13 016956 : 14,X-A,BISTIME+1 016957 : 14,ATX,BISTIME+1. KOPP ЗAKAЗ BPEM 016958 : ,XTA, 016959 : 14,ATX,BISTIME 016960 : 14,ATX,-1 016961 : 14,XTA,REGSCAL. 016962 : ,AEX,I16. 016963 : 14,ATX,REGSCAL. 016964 : ,XTA,I14 016965 : ,ATX,SAVAR+2 016966 : ,XTA,M33 016967 : ,ATI,33B 016968 : ,XTA,M32 016969 : ,ATI,32B 016970 : ,XTA,M27 016971 : ,ATI,27B 016972 : ,XTA,AC. 016973 : ,ATX,SAVAC. 016974 : HA ЩИTE:,ENTRY, 016975 : ,XTA,AR 016976 : ,ATX,SAVAR 016977 : ,XTA,SR. 016978 : ,ATX,SAVSR. 016979 : ,UJ,NEWTA 016980 : ,END, 016981 : TASKSAV:,NAME, 016982 : Д H З:LC,BLOCK,STN 016983 : HAЩИTE:,SUBP, 016984 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,(1),SAVI16 016985 : ДOПYПP:LC,BLOCK,AC,SR,R,M33,M32,M27,I(4) 016986 : ,CONT,NTRFRO 016987 : *YCЫ:LC,BLOCK,ГYC 016988 : TABDRU:,LC,1 016989 : DISREG:,LC,1 016990 : *677:B,BLOCK,(9),BIT40,BIT39,(20) 016991 : ,CONT,BIT18,(1),BIT16(11) 016992 : ,CONT,BIT5(4),BIT1 016993 : STATUSMT:LC,BLOCK,MBUS,OLD(4),NEW(4),DIF(4). 016994 : ,CONT,(19),MISTERX 016995 : REWINDSC:LC,BLOCK,(1),R/WR,R/CONTR 016996 : TPAKTЫ:,EQU,175B 016997 : C7777:,LC,1 016998 : C3 :,LC,1 016999 : MACRO70S:,SUBP, 017000 : C77357:,LC,1 017001 : BUFI14:,EQU,103B 017002 : BUFS27:,EQU,104B 017003 : C77777:,LC,1 017004 : C77:,LC,1 017005 : C20:,EQU,BIT5 017006 : TTPRINT:,SUBP, 017007 : BIT48:,EQU,700B 017008 : M:,EQU,100B. 017009 : REGSCAL:,EQU,M. 017010 : * И П Д :LC,BLOCK,XNF(5),XNC 017011 : ,CONT,(21),MONO 017012 : NMAT1:,WEQ,XNF 017013 : NC :,WEQ,XNC 017014 : * И П K 1 :,LC,1 017015 : BISTIME:,EQU,110B 017016 : BIT46:,EQU,BIT48+2 017017 : TABLEMT:LC,BLOCK,(16),T1MT(32),(48) 017018 : ,CONT,(16),TNAM(32) 017019 : NRESTS:,SUBP, 017020 : NRESOFF:,SUBP, 017021 : TRAPHY:,SUBP,. 017022 : C7:,LC,1 017023 : C БЛOKИ, CBЯЗAHHЫE C ДИCKAMИ 017024 : *DISCS:LC,BLOCK,DNAM 017025 : TABSCR:,EQU,425B 017026 : FATA:,LC,1 017027 : LFATA:,EQU,XNF+20B 017028 : LENTDIS:,EQU,XNF+21B 017029 : *TDIS:,LC, 017030 : TEX:,EQU,*TDIS.TAБЛ.ЭKCTEHTOB 017031 : LTX:,WEQ,LENTDIS.ЭKCTEHTOB 017032 : LTXM1:,EQU,LTX-1 017033 : FREXT:,EQU,XNF+34B 017034 : MONC :,EQU,XNF+33B 017035 : *127:B,BLOCK,MTD,MTDJ 017036 : MONTAS:,EQU,*ИПK1+NC 017037 : C OПИCAHИE AБЗAЦA CБPOCA 017038 : *0:,BLOCK,(1),CST,CRT,BFRA,BFRB 017039 : ,CONT,(7),FIELD 017040 : C 017041 : AKATBB:,EQU,506B.AДP.KAT.BBOДA 017042 : NPL:,P/P,(*)1024 017043 : BEGIN:,P*P,(NPL)1024 017044 : 13,REL,BEGIN 017045 : SB:,EQU,1400B 017046 : 13,UTM,BEGIN-* 017047 : ,XTA,SAVAC.CПACENИE KOПИИ 017048 : ,ATX,AC.CYMMATOPA 017049 : ,XTA,SAVI16. '' 017050 : ,ATX,I.16- O MOДИФИKATOPA 017051 : 14,VTM,1-3 017052 : SAVIND:14,XTA,SAVI13.CПACEHИE KOПИЙ 017053 : 14,ATX,I+3.PEГИCTPOB 017054 : 14,VLM,SAVIND.13,14,15 017055 : C CПACEHИE BPEMEH 017056 : ,WTC,ГYC 017057 : 15,VTM, 017058 : 15,XTA,BISTIME 017059 : ,ATX,BT 017060 : C ECTЬ ЛИ Y ЗAДAЧИ ДИCK 017061 : C B MOHOПOЛЬHOM PEЖИME 017062 : C ПPИ ЭTOM HEЛЬЗЯ CБPACЫBATЬ 017063 : 14,VTM,TABMON.TEKCT O MOHOПOЛ 017064 : ,WTC,STN 017065 : ,XTA,MONTAS-NMAT1 017066 : ,ASN,64+32.ШK.MOHOПOЛИИ 017067 : ,AAX,MONO 017068 : ,U1A,MES1.ECTЬ MOHOПOЛИЯ 017069 : C ECTЬ ЛИ ROLL TPAKT 017070 : 14,VTM,TEKHET 017071 : ,XTA,NTRFRO 017072 : ,UZA,MES1.HET 017073 : C ЧTEHИE CEKTOPA CБPOCA HA AБЗAЦ 017074 : ,ITA,13.БAЗA 017075 : ,ATX,SAVAR.CПACAETCЯ 017076 : ,ASN,64+8 017077 : ,ASN,64-10.BCTABKA B KYC 017078 : ,AOX,NTRFRO 017079 : ,ATX,KYCWR.ДЛЯ TRAPHY 017080 : ,AOX,BIT18.ЧTEHИE 017081 : ,ATX,W 017082 : 13,UTM,W-BEGIN.AДPEC W 017083 : 14,VJM,TRAPHY 017084 : ,WTC,SAVAR.BOCCTAHOBЛEHИE 017085 : 13,VTM,.БAЗЫ 017086 : C CБPACЫBAЛИCЬ ЛИ ДPYГИE ЗAДAЧИ 017087 : 13,XTA,CST+SB 017088 : ,UZA,RINTR1.HET 017089 : 13,XTA,BFRB+SB.HAЧ.CBOБ.ЗOH 017090 : ,ATX,WFOR*70 017091 : ,ATX,DWFOR 017092 : ,UJ,SETREC 017093 : RINTR1:,BSS, 017094 : C CБPOCOB EЩE HE БЫЛO - 017095 : C MECTO CБPOCA ЧИTAETCЯ C TP3. 017096 : ,XTA,3 017097 : ,ASN,64-33. 017098 : ,AUX,C770777 017099 : ,AOX,BIT39 017100 : ,ATX,WFOR*70 017101 : ,ATX,DWFOR 017102 : ,ASN,64+12.ФИЗ. HOMEP 017103 : ,ATX,I1R.MAГHИTOФOHA 017104 : C ПPOBEPKA, ЛEHTOЧHOE ЛИ HAПPABЛEHИE 017105 : ,XTA,DWFOR 017106 : ,ARX,BIT16 017107 : ,AAX,BIT18 017108 : ,U1A,GOODTAPE.OБЫЧHAЯ ЛEHTA 017109 : C CБPOC HA MOДEЛЬ ЛEHTЫ, 017110 : C ПOИCK MOДEЛИ CO CTAHД.ИMEHEM 017111 : C ECЛИ EE HET, CБPOC HEBOЗMOЖEH 017112 : ,XTA,OWNNAME.CTAHД. ИMЯ 017113 : ,*57,400B 017114 : 14,VTM,TNOSPMOD.ДИAГHOCTИKA 017115 : ,UZA,MES1.MOДEЛИ HET 017116 : ,ATX,I1R.EE ФИЗ. HOMEP 017117 : ,XTA,BIT46.YCTAHOBKA 017118 : ,AOX,WFOR*70.ПPИЗHAKA 017119 : ,ATX,DWFOR.MOДEЛИ ЛEHTЫ 017120 : ,ATX,WFOR*70 017121 : GOODTAPE:,BSS, 017122 : C ЗAПИCЬ ИCXOДHOГO COCTOЯHИЯ HA 017123 : C AБЗAЦ DЛЯ CEKTOPA CБPOCA 017124 : ,XTA, 017125 : 13,ATX,CRT+SB.ЧИCЛO BOCCT. 017126 : 13,ATX,BFRA+SB.CB.MECTO AБЗAЦA 017127 : ,XTA,WFOR*70.HAЧ.БYФEPA 017128 : 13,ATX,BFRB+SB.CB.MECTO БYФ 017129 : C ЗAПИCЬ ИMEHИ БYФEPA CБPOCA. 017130 : ,WTC,I1R 017131 : ,XTA,TNAM-30B.ИMЯ B ПOCЛEДEИE 017132 : 13,ATX,SB+377B.CЛOBO CEKTOPA 017133 : SETREC:,BSS, 017134 : C OБЩAЯ ЧASTЬ HEЗABИCИMO OT 017135 : C TOГ0, KAKOЙ HOMEP BXOДA 017136 : C 017137 : C YCTAHOBKA PEЖИMA ФИЗ.ДEЙCTBИЙ 017138 : ,WTC,ГYC 017139 : 15,VTM,. 017140 : 15,XTA,REGSCAL. 017141 : ,ATX,SRSCAL. 017142 : ,AOX,BIT48.ФИЗ.ДEЙCTBИЯ 017143 : 15,ATX,REGSCAL. 017144 : : ,24,3. 017145 : C ЗAПИCЬ ПEPBOГO ЛИCTA 017146 : ,XTA,WFOR*70 017147 : 14,VJM,WRITEP 017148 : C ПOДГOTOBKA CBEДEHИЙ O ЗAДAЧE 017149 : C ЗAПИCЬ CBEДEHИЙ ДЛЯ CTATИCTИKИ 017150 : C И KOMMEPЧECKOГO BPEMEHИ. 017151 : ,FUN,70100B+117B.AUS 017152 : : ,24, 017153 : ,ATX,6.AUS(MШ) AБC 017154 : : ,24,3 017155 : ,XTA,BT. KOMM.BPEMЯ 017156 : : ,24, 017157 : ,ATX,5 017158 : : ,24,3 017159 : C ПEPEПИCЬ ПOЛЯ MAЛOГO YПPЯTЫBAHИЯ 017160 : 15,VTM,10B 017161 : ,XTA,INДOП 017162 : 14,VJM,ARRTOARR 017163 : C ПEPEПИCЬ OCTATKA ИПЗ. 017164 : ,XTA,ГYC 017165 : ,AAX,C77777 017166 : ,ARX,ININF 017167 : 14,VJM,ARRTOARR 017168 : ,XTA,SRSCAL. 017169 : C ЗAПOMИHAHИE ИCXOДHOГO PEЖИMA 017170 : : ,24,2000B 017171 : 15,ATX,-26B 017172 : : ,24,3 017173 : C.. ЗAПOMИHAHИE CПИCKA CBOИX MЛ 017174 : C.. И ИXHИX PEЖИMOB. 017175 : ,XTA,DISREG 017176 : ,ATI,27B 017177 : ,ITA,15 017178 : ,ATX,N1P 017179 : ,AOX,=:4200 0000 001 017180 : 15,UTM,24 017181 : 12,VTM,-47 017182 : ,ATX,BT 017183 : ,*72,BT 017184 : ЦЛEHT:12,XTA,TABLEMT+47 017185 : ,ASN,64+42 017186 : ,AEX, Д H З 017187 : ,U1A,KOЦЛEHT 017188 : 12,XTA,TNAM+31 017189 : : ,24, 017190 : 15,ATX, 017191 : : ,24,3 017192 : 11,VTM, 017193 : 12,XTA,BIT48+47 017194 : ,ASN,64-16 017195 : ,AAX,MISTERX 017196 : ,UZA,ИMMЛ 017197 : 11,UTM,4.NO CHECK 017198 : ИMMЛ:,XTA,R/WR 017199 : 12,AAX,BIT48+47 017200 : ,UZA,NOWRIT 017201 : 11,UTM,1.PEЖ.ЗAПИCИ 017202 : NOWRIT:,XTA,R/CONTR 017203 : 12,AAX,BIT48+47 017204 : ,UZA,NOCONTR 017205 : 11,UTM,2.PEЖ.C KOHTPOЛEM 017206 : NOCONTR:12,XTA,TABLEMT+47 017207 : ,ASN,64+9 017208 : ,ATI,10.ДEЛЬTA+ПЛOTHOCTЬ 017209 : ,ASN,64+27 017210 : ,AAX,C77 017211 : ,ATI,9.MAT.HOMEP 017212 : : ,24, 017213 : ,ITA,11 017214 : ,ASN,64-45 017215 : ,ITS,10 017216 : ,ASN,64-13 017217 : ,ITS,9 017218 : 15,AOX, 017219 : 15,AOX, 017220 : 15,ATX, 017221 : KOЦЛEHT:,24,3 017222 : 12,VLM,ЦЛEHT 017223 : ,XTA, 017224 : : ,24, 017225 : 15,ATX, 017226 : 15,ATX, 017227 : : ,24,3 017228 : ,WTC,N1P 017229 : 15,VTM,88 017230 : C ПEPEПИCЬ ФAЙЛOBOЙ TAБЛИЦЫ 017231 : ,XTA,LFATA.ДЛИHA TAБЛИЦЫ 017232 : ,AEX,C77777 017233 : ,ASN,64-24 017234 : ,ARX,INFATA 017235 : 14,VJM,ARRTOARR 017236 : C ПEPEПИCЬ ИMEH ПAKETOB 017237 : ,XTA,INDNAM 017238 : 14,VJM,ARRTOARR 017239 : C ЗAПИCЬ CBEДEHИЙ O ЗAДAЧE 017240 : 14,VJM,WRITEP1 017241 : ,WTC, Г Y C 017242 : 5,VTM,TPAKTЫ 017243 : ,XTA, 017244 : ,ATX,N1P 017245 : 8,VTM,-191 017246 : ЦMБ:5,XTA, 017247 : 5,UTM,1 017248 : ,ATX,BT 017249 : 7,VTM,-3 017250 : Ц4TP:,XTA,BT 017251 : ,ASN,64-12 017252 : ,ATX,BT 017253 : ,YTA, 017254 : ,UZA,KOЦMБ 017255 : ,XTA,N1P 017256 : ,AUX,=37 0037 017257 : ,AOX,BIT40 017258 : 14,VJM,WRITEP 017259 : 14,VJM,WRITEP1 017260 : KOЦMБ:,XTA,N1P 017261 : ,ARX,BIT39 017262 : ,ATX,N1P 017263 : 7,VLM,Ц4TP 017264 : 8,VLM,ЦMБ 017265 : 8,VTM,-30 017266 : C ЗAПИCЬ ЛИCTOB 017267 : CICSAVP:,WTC,ГYC 017268 : 8,XTA,30B+31.ПPOCMOTP C 2 CTP. 017269 : 7,UTM,2000B.EE AДPEC 017270 : ,ASN,64-1 017271 : ,ASN,64+31 017272 : ,UZA,ЧYЖCTP 017273 : ,XTA,WFOR*70 017274 : ,ARX,BIT1 017275 : ,ATX,WFOR*70 017276 : ,ITA,7 017277 : ,ASN,64-20 017278 : ,AOX,WFOR*70 017279 : 14,VJM,WRITEP 017280 : C ДEPГAHИE ЛИCTA ДЛЯ 017281 : C OЖИДAHИЯ KOHЦA OБMEHA 017282 : : ,24,. 017283 : 7,XTA,1 017284 : : ,24,3. 017285 : ЧYЖCTP:8,VLM,CICSAVP 017286 : YCTP:LC,BLOCK,(6),YCDC608(2) 017287 : ,XTA,YCDC608. 017288 : ,AEX,Г Y C. 017289 : ,U1A,HET CDC. 017290 : ,ATX,YCDC608. 017291 : HET CDC:,BSS,. 017292 : C ПOДГOTOBKA HOOГO CEKTOPA CБPOCA 017293 : ,XTA,WFOR*70 017294 : ,AAX,Z35/31 017295 : ,ARX,BIT1.HOBOE HAЧAЛO 017296 : 13,ATX,BFRB+SB.CBOБOДHЫX ЗOH 017297 : 13,XTA,SB+CST 017298 : ,ARX,BIT1.YBEЛИЧEHИE ЧИCЛA 017299 : 13,ATX,CST+SB.CБPOШEHHЫX ЗAДAЧ 017300 : 13,XTA,BFRA+SB.CBOБ. MECTO 017301 : ,ATI,1 017302 : ,ASN,64-24.MECTO ЗAДAЧИ 017303 : ,AOX,DWFOR.БYФEP ЗAДAЧИ 017304 : 13,WTC,CST+SB.ЗAПИCЬ HAЧAЛ 017305 : 13,ATX,BFRB+SB.ПOЛЯ И ЗOH 017306 : 1,MTJ,15 017307 : C YЧET STN,TEX,MTD,MTDJ 017308 : 1,UTM,LTX+3.OTH.AДP.ПOЛЯ 017309 : 13,UTC,FIELD+SB.AДPEC HAЧAЛA 017310 : 15,UTM,.CBOБOДHOГO MECTA 017311 : ,XTA,STN.ЗAПИCЬ 017312 : 15,ATX,.ДHЗ ЗAДAЧИ 017313 : ,NTR,3 017314 : ,A-X,C20 017315 : ,ATX,BT 017316 : ,ASN,64-16.ПOДГOTOBKA 017317 : ,AOX,BT.PAЗMHOЖEHHOГO 017318 : ,ASN,64-16.ДHЗ ДЛЯ БЛOKИ- 017319 : ,AOX,BT.POBKИ ЭKCTEHTOB, 017320 : ,ATX,BT.ЗAHЯTЫX ЗAДAЧEЙ 017321 : 3,VTM,-LTXM1 017322 : C ПEPEПИCЬ TAБЛИЦЫ ЭKCTEHTOB 017323 : MOTEX:,24,2003B 017324 : 3,XTA,TEX+LTXM1.CЛOBO TAБЛИЦЫ 017325 : 15,ATX,.ЗAПИCЬ B ПOЛE 017326 : C БЛOKИPOBKA CBOИX ЭKCTEHTOB 017327 : ,ASN,64+11 017328 : ,AEX,BT 017329 : ,AAX,C37* 017330 : ,ARX,C37* 017331 : ,ASN,64+5 017332 : ,AAX,C37*.B ЧYЖИX - 1 017333 : ,ATX,CT 017334 : ,ARX,C3777* 017335 : ,AAX,C3777*.B CBOИX - 3777 017336 : ,ATX,W 017337 : ,ASN,64-5 017338 : ,AOX,W.B CBOИX- 177777 017339 : 15,AAX,-1 017340 : ,AEX,W 017341 : 15,AEX,-1 017342 : 3,ATX,TEX+LTXM1 017343 : C ИЗ CЧETЧИKA CBOБOДHЫX ЭKCTEHTOB 017344 : C BЫЧИTAETCЯ KOЛИЧ.CBOИX B CЛOBE 017345 : ,XTA,CT 017346 : ,ACX,MIN3AD.2**15-3 017347 : ,ARX,FREXT.CЧETЧИK 017348 : ,AAX,C77777.CBOБOДHЫX 017349 : ,ATX,FREXT.ЭKCTEHTOB 017350 : : ,24,3 017351 : 3,VLM,MOTEX 017352 : C ЗAПИCЬ ЯЧEEK O ИCПOЛЬЗOBAHИИ 017353 : C ДИCKOB, ДYБЛИPOBAHHЫX ПO ШИФPAM 017354 : ,WTC, Г Y C 017355 : ,XTA,MTD 017356 : ,WTC, Г Y C 017357 : ,XTS,MTDJ 017358 : 15,ATX, 017359 : C ПEPEПИCЬ TAБЛИЦЫ SCRATCH, 017360 : C COOTBETCTBYЮЩИЬ ФAЙЛOB И 017361 : C ИMEH ДИCKOBЫX ПAKETOB. 017362 : 3,VTM,TABSCR 017363 : MSCRT:3,XTA,.ЗAПИCЬ ЭЛEMEHTA 017364 : 15,ATX,.ИЛИ ПPИЗ.KOHЦ-0 017365 : 1,UTM,1 017366 : ,UZA,EMSCRT.KOHEЦ 017367 : ,ASN,64+15.HOMEP ФAЙЛA 017368 : ,ATI,4 017369 : 4,XTA,FATA-1.CCЫЛKA ФAЙЛA 017370 : 15,ATX, 017371 : ,ASN,64+30 017372 : ,AAX,C77.HOMEP MOДYЛЯ 017373 : ,ATI,5 017374 : 5,XTA,DNAM-30B.ИMЯ ПAKETA 017375 : 15,ATX, 017376 : 1,UTM,2.OTH.AДPEC 017377 : 3,VLM,MSCRT 017378 : EMSCRT:,BSS, 017379 : ,ITA,1.HAЧAЛO CB.MECTA 017380 : 13,ATX,BFRA+SB 017381 : C ПPИФOPMИPOBKA ЛИCKA B KYC 017382 : C ЗAПИCИ AБЗAЦA HA MБ. 017383 : ,ITA,13 017384 : : ,24,2003B 017385 : ,ATX,SAVAR.CПACEHИE БAЗЫ 017386 : ,ASN,64-2 017387 : ,AOX,NTRFRO 017388 : ,ATX,KYCWR.ЗAП.AБЗAЦA 017389 : ,AOX,C3 017390 : ,ATX,W 017391 : ,AOX,BIT18 017392 : ,ATX,BASE1 017393 : C ЗAПИCЬ AБЗAЦA HA CПEЦИAЛЬHЫЙ TP. 017394 : 13,UTM,KYCWR-BEGIN 017395 : 14,VJM,TRAPHY 017396 : ,WTC,SAVAR 017397 : 13,VTM,BASE1-BEGIN 017398 : 14,VJM,TRAPHY.ЧTEHИE 3 CEKTOPA 017399 : ,WTC,SAVAR 017400 : 13,VTM, 017401 : ,XTA,MISTERX 017402 : 13,AOX,1776B 017403 : 13,ATX,1776B 017404 : 13,UTM,W-BEGIN 017405 : 14,VJM,TRAPHY.ЗAПИCЬ 3 CEKTOPA 017406 : ,XTA,DISREG 017407 : ,ATI,27B 017408 : ,WTC,SAVAR.БAЗA 017409 : 13,VTM, 017410 : ,*64,IN*64 017411 : ,SJ, 017412 : WRITEP1:,XTA,WFOR*70 017413 : ,ARX,BIT1 017414 : ,ATX,WFOR*70 017415 : WRITEP:,BSS, 017416 : ,ATX,BASE1.ИHФ. CЛOBO 017417 : ,ITA,14 017418 : 14,VJM,GIVPHN.ЗA N MAГHИTOФOHA 017419 : : ,24,2003B 017420 : ,XTA,RET 017421 : ,ATI,32B 017422 : ,ITA,27B 017423 : ,AAX,C77357 017424 : ,ATI,27B 017425 : ,WTC,Г Y C 017426 : ,ATX,BUFS27 017427 : ,XTA,BASE1.BEPHOE ИHФ. 017428 : ,UJ,MACRO70S 017429 : ARRTOARR:,BSS, 017430 : ,ATX,BASE1 017431 : ,ASN,64-24 017432 : ,ITA,14 017433 : ,ATX,CT 017434 : ,YTA, 017435 : ,ATI,14 017436 : ,AEX,C77777 017437 : ,ARX,BASE1 017438 : ,ARX,BIT1 017439 : ,ATX,BASE1 017440 : CIC:,WTC,BASE1 017441 : 14,XTA, 017442 : : ,24, 017443 : 15,ATX, 017444 : : ,24,3 017445 : 14,VLM,CIC 017446 : ,WTC,CT 017447 : ,UJ, 017448 : GIVPHN:,BSS, 017449 : C ПOДПPOГPOMMA ПOЛYЧEHИЯ ИHФ.CЛOBA 017450 : C C ПPOBИЛЬHЫM ФИЗ.HOMEPOM ЛEHTЫ. 017451 : C ACC BXOДA ПPЯЧETCЯ B RET. 017452 : C CЛOBO KOPPEKTИPYETCЯ B BASE1. 017453 : C HA BЫXOДE PEЖИM И I27 - 2013B, 017454 : ,ATX,RET 017455 : ,ITA,14.AДP. BOЗBPATA 017456 : ,ATX,I1R 017457 : : ,24,2003B 017458 : ,XTA,DISREG 017459 : ,ATI,27B 017460 : C A HE ФИЗИЧECKИЙ ЛИ БAPAБAH 017461 : ,XTA,BASE1 017462 : ,ARX,BIT16 017463 : ,AAX,B46A18 017464 : 14,UZA,.ФИЗ. БAPAБAH 017465 : ,XTA,BASE1.ЧИCTKA 017466 : ,AAX,Z18/13.HOMEPA B 017467 : ,ATX,BASE1.ИHФ.CЛOBE 017468 : 15,VTM, 017469 : LOOPWAIT:13,XTA,SB+377B.ИMЯ MЛ 017470 : 15,*57,170B.ГДE ЛEHTA 017471 : ,U1A,HSTS.HAЙДEHA 017472 : ,*57,3.ЗAДEPЖKA 017473 : 15,VTM,210B 017474 : ,UJ,LOOPWAIT 017475 : HSTS:,ASN,64-12.ЗAHECEHИE 017476 : ,AOX,BASE1.HOMEPA B 017477 : ,ATX,BASE1.ИHФ.CЛOBO 017478 : ,WTC,I1R 017479 : ,UJ, 017480 : MES1:,BSS, 017481 : ,ITA,14 017482 : 14,VJM,TTPRINT 017483 : ,XTA,M33 017484 : ,ATI,33B 017485 : ,XTA,M27 017486 : ,ATI,27B 017487 : ,XTA,M32 017488 : ,ATI,32B 017489 : ,XTA,WFNROFF 017490 : ,AEX,. 017491 : ,XTA,SAVI13. 017492 : ,ATI,13. 017493 : ,XTA,SAVI14. 017494 : ,ATI,14. 017495 : ,XTA,SAVI15. 017496 : ,ATI,15. 017497 : ,YTA,. 017498 : ,UJ,NRESOFF 017499 : WFNROFF:,Z00,NRESTS 017500 : ,Z00,HAЩИTE 017501 : INДOП:,Z00,-9 017502 : ,Z00,ДOПYПP 017503 : ININF:,Z00,-75.OCT.ИПЗ 017504 : ,Z00,10 017505 : INFATA:, ,2 017506 : ,Z00,FATA 017507 : INDNAM:,Z00,1-16 017508 : ,Z00,DNAM 017509 : C770777:,LOG,770777 017510 : IN*64:,,ATEKCT 017511 : ,,WFOR*70 017512 : ,055, 017513 : ,, 017514 : 2,111,3 017515 : ,, 017516 : ,115, 017517 : ,, 017518 : 2,117,3 017519 : 8,, 017520 : C37* :,GOST,6H0'37'0'37'0'37' 017521 : C3777*:,GOST,6H7'377'7'377'7'377' 017522 : ATEKCT:,GOST,6HЗAДAЧA 017523 : ,CONT,15H CБPOШEHA HA MЛ 017524 : ,CONT,6H ЗOHЫ'231' 017525 : DWFOR:,BSS,1 017526 : ,GOST,2H-'231' 017527 : WFOR*70:,BSS,1 017528 : OWNNAME:,TEXT,8HROLLIB'0''1' 017529 : Z18/13:,LOG,7777 7777 7700 7777 017530 : B46A18:,LOG,1000 0000 0040 0000 017531 : Z35/31:,OCT,7777 4077 7777 7777 017532 : MIN3AD:,LOG,77775 017533 : TEKHET:,ISO,12HHET TPAKTA'''' 017534 : TABMON:,ISO,12HMOHOПOЛИЯ'''''' 017535 : TNOSPMOD:,ISO,12HHET R.MOДEЛИ 017536 : ,LOG, 017537 : N1P:,BSS,1 017538 : W:,BSS,1 017539 : I1R:,BSS,1 017540 : BASE1:,BSS,1 017541 : CT:,BSS,1 017542 : BT:,BSS,1 017543 : RET:,BSS,1 017544 : SRSCAL:,BSS,1. 017545 : KYCWR:,BSS,1 017546 : ,END, 000001 : ДИCПHAMБ:,NAME,. 000002 : DISPBASE:LC,BLOCK,(1),DISMBASE 000003 : C7:,LC,1 000004 : BIT19:,EQU,735B 000005 : NRTABL:,SUBP, 000006 : SAVENRT:,EQU,10B 000007 : LNRT:,EQU,32 000008 : NPAБЛИCT:,LC,1 000009 : MTP:,EQU,77B 000010 : ENRT:,EQU,NRTABL+31 000011 : ,XTA,DISMBASE.ПPЯЧEM 000012 : 14,VTM,1-70B.БAЗY 000013 : L*:14,ATX,77B.ЗAOДHO TPEM 000014 : 14,VLM,L*.10-77 ADPECA 000015 : 2,VTM,-7 000016 : 1,VTM,1-LNRT 000017 : ,XTA,NPAБЛИCT 000018 : ,ATX,MTP 000019 : L1:1,XTA,ENRT.TAБЛИЦA 000020 : 1,ATX,SAVENRT+LNRT.HИPEЗИДEHTOB 000021 : 1,VLM,L1 000022 : ,XTA,3 000023 : ,ASN,64+3.БAPAБAH 000024 : ,AAX,C7.ДЛЯ CПACEHИЯ 000025 : ,ATI,14.PAБ.BAP.ДИCП 000026 : ,XTA,3.ЗAДAETCЯ B 1-5 000027 : ,AAX,C7.PAЗPЯДAX 3 T.P. 000028 : ,ASN,64-7 000029 : ,AOX,BIT19 000030 : CФOPMИPOBAH K Y C ЗAПИCИ HA MБ 000031 : 1,VTM,-31 000032 : L2:,ATX,1. 000033 : 2,VLM,L2. 000034 : L3:2,VTM,40 000B. 000035 : 14,EXT,. 000036 : L4:,ATI,. 000037 : 2,VLM,L4. 000038 : ,ARX,=1 0004. 000039 : 1,VLM,L3. 000040 : :,33,-1. 000041 : ,UJ,*. 000042 : ,END,. 000043 : ALLTOISO:,NAME, 000044 : C 000045 : C 000046 : C :-----:-----:-----:-----:-----:-----: 000047 : C :GOST : ISO : TEL :CONS.:TEXT :ISO P: 000048 : C : B : B : B : B : B : B : 000049 : C : EC :GOST : ISO : ISO : ISO :ISO Л: 000050 : C :-----:-----:-----:-----:-----:-----: 000051 : C 000052 : C 000053 : ,ISO,3H'360''017''000'.000 000054 : ,CONT,3H'060''000''000' 000055 : ,ISO,3H'361''017''133'.001 000056 : ,CONT,3H'061''040''001' 000057 : ,ISO,3H'362''017''176'.002 000058 : ,CONT,3H'062''142''002' 000059 : ,ISO,3H'363''017''000'.003 000060 : ,CONT,3H'063''143''003' 000061 : ,ISO,3H'364''017''000'.004 000062 : ,CONT,3H'064''144''004' 000063 : ,ISO,3H'365''135''000'.005 000064 : ,CONT,3H'065''146''005' 000065 : ,ISO,3H'366''024''000'.006 000066 : ,CONT,3H'066''147''006' 000067 : ,ISO,3H'367''017''000'.007 000068 : ,CONT,3H'067''151''007' 000069 : ,ISO,3H'370''017''000'.010 000070 : ,CONT,3H'070''056''010' 000071 : ,ISO,3H'371''017''044'.011 000072 : ,CONT,3H'071''000''011' 000073 : ,ISO,3H'116''017''000'.012 000074 : ,CONT,3H'053''052''012' 000075 : ,ISO,3H'140''017''000'.013 000076 : ,CONT,3H'055''152''013' 000077 : ,ISO,3H'141''017''041'.014 000078 : ,CONT,3H'057''154''014' 000079 : ,ISO,3H'153''017''000'.015 000080 : ,CONT,3H'000''161''015' 000081 : ,ISO,3H'113''116''000'.016 000082 : ,CONT,3H'000''166''016' 000083 : ,ISO,3H'100''117''000'.017 000084 : ,CONT,3H'000''057''017' 000085 : ,ISO,3H'305''033''052'.020 000086 : ,CONT,3H'015''060''020' 000087 : ,ISO,3H'157''017''000'.021 000088 : ,CONT,3H'012''061''021' 000089 : ,ISO,3H'115''017''135'.022 000090 : ,CONT,3H'036''062''022' 000091 : ,ISO,3H'135''017''000'.023 000092 : ,CONT,3H'030''063''023' 000093 : ,ISO,3H'134''017''000'.024 000094 : ,CONT,3H'000''064''024' 000095 : ,ISO,3H'176''017''176'.025 000096 : ,CONT,3H'000''065''025' 000097 : ,ISO,3H'136''021''135'.026 000098 : ,CONT,3H'000''066''026' 000099 : ,ISO,3H'112''020''000'.027 000100 : ,CONT,3H'040''067''027' 000101 : ,ISO,3H'132''034''000'.030 000102 : ,CONT,3H'136''070''030' 000103 : ,ISO,3H'134''136''000'.031 000104 : ,CONT,3H'052''071''031' 000105 : ,ISO,3H'175''124''000'.032 000106 : ,CONT,3H'000''170''032' 000107 : ,ISO,3H'175''032''000'.033 000108 : ,CONT,3H'000''072''033' 000109 : ,ISO,3H'173''122''000'.034 000110 : ,CONT,3H'000''160''034' 000111 : ,ISO,3H'114''125''000'.035 000112 : ,CONT,3H'000''055''035' 000113 : ,ISO,3H'156''120''000'.036 000114 : ,CONT,3H'021''053''036' 000115 : ,ISO,3H'172''123''000'.037 000116 : ,CONT,3H'024''171''037' 000117 : ,ISO,3H'301''017''240'.040 000118 : ,CONT,3H'101''172''040' 000119 : ,ISO,3H'272''133''113'.041 000120 : ,CONT,3H'142''101''041' 000121 : ,ISO,3H'302''134''121'.042 000122 : ,CONT,3H'102''102''042' 000123 : ,ISO,3H'277''034''125'.043 000124 : ,CONT,3H'147''103''043' 000125 : ,ISO,3H'274''127''340'.044 000126 : ,CONT,3H'144''104''044' 000127 : ,ISO,3H'305''126''112'.045 000128 : ,CONT,3H'105''105''045' 000129 : ,ISO,3H'354''121''127'.046 000130 : ,CONT,3H'166''106''046' 000131 : ,ISO,3H'372''032''101'.047 000132 : ,CONT,3H'172''107''047' 000133 : ,ISO,3H'313''022''130'.050 000134 : ,CONT,3H'151''110''050' 000135 : ,ISO,3H'314''023''106'.051 000136 : ,CONT,3H'152''111''051' 000137 : ,ISO,3H'322''031''131'.052 000138 : ,CONT,3H'113''112''052' 000139 : ,ISO,3H'316''012''123'.053 000140 : ,CONT,3H'154''113''053' 000141 : ,ISO,3H'324''015''102'.054 000142 : ,CONT,3H'115''114''054' 000143 : ,ISO,3H'310''013''104'.055 000144 : ,CONT,3H'110''115''055' 000145 : ,ISO,3H'326''016''132'.056 000146 : ,CONT,3H'117''116''056' 000147 : ,ISO,3H'334''014''105'.057 000148 : ,CONT,3H'160''117''057' 000149 : ,ISO,3H'327''000''126'.060 000150 : ,CONT,3H'120''120''060' 000151 : ,ISO,3H'303''001''103'.061 000152 : ,CONT,3H'103''121''061' 000153 : ,ISO,3H'343''002''120'.062 000154 : ,CONT,3H'124''122''062' 000155 : ,ISO,3H'350''003''111'.063 000156 : ,CONT,3H'131''123''063' 000157 : ,ISO,3H'276''004''107'.064 000158 : ,CONT,3H'146''124''064' 000159 : ,ISO,3H'347''005''122'.065 000160 : ,CONT,3H'130''125''065' 000161 : ,ISO,3H'273''006''114'.066 000162 : ,CONT,3H'143''126''066' 000163 : ,ISO,3H'376''007''012'.067 000164 : ,CONT,3H'176''127''067' 000165 : ,ISO,3H'373''010''115'.070 000166 : ,CONT,3H'173''130''070' 000167 : ,ISO,3H'375''011''116'.071 000168 : ,CONT,3H'175''131''071' 000169 : ,ISO,3H'357''037''110'.072 000170 : ,CONT,3H'171''132''072' 000171 : ,ISO,3H'356''026''040'.073 000172 : ,CONT,3H'170''173''073' 000173 : ,ISO,3H'374''035''117'.074 000174 : ,CONT,3H'174''174''074' 000175 : ,ISO,3H'270''025''015'.075 000176 : ,CONT,3H'140''175''075' 000177 : ,ISO,3H'335''036''124'.076 000178 : ,CONT,3H'161''176''076' 000179 : ,ISO,3H'304''021''300'.077 000180 : ,CONT,3H'000''140''077' 000181 : ,ISO,3H'306''136''240'.100 000182 : ,CONT,3H'135''000''100' 000183 : ,ISO,3H'307''040''113'.101 000184 : ,CONT,3H'054''000''101' 000185 : ,ISO,3H'311''042''161'.102 000186 : ,CONT,3H'056''000''102' 000187 : ,ISO,3H'321''061''131'.103 000188 : ,CONT,3H'000''000''103' 000189 : ,ISO,3H'323''077''340'.104 000190 : ,CONT,3H'100''000''104' 000191 : ,ISO,3H'325''045''152'.105 000192 : ,CONT,3H'050''000''105' 000193 : ,ISO,3H'330''100''102'.106 000194 : ,CONT,3H'051''000''106' 000195 : ,ISO,3H'331''101''101'.107 000196 : ,CONT,3H'000''000''107' 000197 : ,ISO,3H'342''055''170'.110 000198 : ,CONT,3H'073''000''110' 000199 : ,ISO,3H'344''102''146'.111 000200 : ,CONT,3H'133''000''111' 000201 : ,ISO,3H'345''103''171'.112 000202 : ,CONT,3H'040''000''112' 000203 : ,ISO,3H'346''052''103'.113 000204 : ,CONT,3H'075''000''113' 000205 : ,ISO,3H'351''104''142'.114 000206 : ,CONT,3H'076''000''114' 000207 : ,ISO,3H'340''054''144'.115 000208 : ,CONT,3H'000''000''115' 000209 : ,ISO,3H'300''105''172'.116 000210 : ,CONT,3H'000''000''116' 000211 : ,ISO,3H'320''056''105'.117 000212 : ,CONT,3H'000''000''117' 000213 : ,ISO,3H'152''060''166'.120 000214 : ,CONT,3H'000''000''120' 000215 : ,ISO,3H'120''106''143'.121 000216 : ,CONT,3H'012''000''121' 000217 : ,ISO,3H'133''107''160'.122 000218 : ,CONT,3H'030''000''122' 000219 : ,ISO,3H'137''110''151'.123 000220 : ,CONT,3H'032''000''123' 000221 : ,ISO,3H'172''062''147'.124 000222 : ,CONT,3H'000''000''124' 000223 : ,ISO,3H'176''111''120'.125 000224 : ,CONT,3H'000''000''125' 000225 : ,ISO,3H'154''112''154'.126 000226 : ,CONT,3H'000''000''126' 000227 : ,ISO,3H'133''113''012'.127 000228 : ,CONT,3H'040''000''127' 000229 : ,ISO,3H'152''065''115'.130 000230 : ,CONT,3H'137''000''130' 000231 : ,ISO,3H'140''063''110'.131 000232 : ,CONT,3H'077''000''131' 000233 : ,ISO,3H'155''114''130'.132 000234 : ,CONT,3H'000''000''132' 000235 : ,ISO,3H'117''027''040'.133 000236 : ,CONT,3H'000''000''133' 000237 : ,ISO,3H'177''115''117'.134 000238 : ,CONT,3H'000''000''134' 000239 : ,ISO,3H'356''030''015'.135 000240 : ,CONT,3H'000''000''135' 000241 : ,ISO,3H'174''131''124'.136 000242 : ,CONT,3H'000''000''136' 000243 : ,ISO,3H'175''132''300'.137 000244 : ,CONT,3H'000''000''137' 000245 : ,ISO,3H'100''075''240'.140 000246 : ,CONT,3H'000''000''140' 000247 : ,ISO,3H'100''040''050'.141 000248 : ,CONT,3H'045''000''101' 000249 : ,ISO,3H'100''041''061'.142 000250 : ,CONT,3H'127''000''142' 000251 : ,ISO,3H'100''066''067'.143 000252 : ,CONT,3H'107''000''143' 000253 : ,ISO,3H'100''044''340'.144 000254 : ,CONT,3H'104''000''144' 000255 : ,ISO,3H'100''045''140'.145 000256 : ,CONT,3H'072''000''105' 000257 : ,ISO,3H'100''064''062'.146 000258 : ,CONT,3H'126''000''146' 000259 : ,ISO,3H'100''043''055'.147 000260 : ,CONT,3H'132''000''147' 000261 : ,ISO,3H'100''065''057'.150 000262 : ,CONT,3H'111''000''130' 000263 : ,ISO,3H'100''050''174'.151 000264 : ,CONT,3H'112''000''151' 000265 : ,ISO,3H'100''051''066'.152 000266 : ,CONT,3H'000''000''152'. 000267 : ,ISO,3H'100''052''047'.153 000268 : ,CONT,3H'114''000''113'. 000269 : ,ISO,3H'100''053''036'.154 000270 : ,CONT,3H'000''000''154' 000271 : ,ISO,3H'100''054''030'.155 000272 : ,CONT,3H'116''000''115' 000273 : ,ISO,3H'100''055''053'.156 000274 : ,CONT,3H'000''000''110' 000275 : ,ISO,3H'100''056''063'.157 000276 : ,CONT,3H'000''000''117' 000277 : ,ISO,3H'100''057''075'.160 000278 : ,CONT,3H'122''000''160' 000279 : ,ISO,3H'100''076''072'.161 000280 : ,CONT,3H'123''000''161' 000281 : ,ISO,3H'100''060''060'.162 000282 : ,CONT,3H'000''000''120' 000283 : ,ISO,3H'100''061''070'.163 000284 : ,CONT,3H'125''000''103' 000285 : ,ISO,3H'100''062''173'.164 000286 : ,CONT,3H'106''000''124' 000287 : ,ISO,3H'100''063''064'.165 000288 : ,CONT,3H'074''000''131' 000289 : ,ISO,3H'100''046''051'.166 000290 : ,CONT,3H'043''000''166' 000291 : ,ISO,3H'100''042''012'.167 000292 : ,CONT,3H'000''000''102' 000293 : ,ISO,3H'100''073''056'.170 000294 : ,CONT,3H'047''000''170' 000295 : ,ISO,3H'100''072''054'.171 000296 : ,CONT,3H'047''000''171' 000297 : ,ISO,3H'100''047''175'.172 000298 : ,CONT,3H'041''000''172' 000299 : ,ISO,3H'100''070''040'.173 000300 : ,CONT,3H'046''000''173' 000301 : ,ISO,3H'100''074''071'.174 000302 : ,CONT,3H'000''000''174' 000303 : ,ISO,3H'100''071''015'.175 000304 : ,CONT,3H'044''000''175' 000305 : ,ISO,3H'100''067''065'.176 000306 : ,CONT,3H'121''000''176' 000307 : ,ISO,3H'100''017''300'.177 000308 : ,CONT,3H'000''000''177' 000309 : ,END, 000310 : ISOTOALL:,NAME, 000311 : C 000312 : C 000313 : C :-----:-----:-----:-----:-----:-----: 000314 : C : ISO B TEL : ISO : ISO : ISO : 000315 : C : : : : B : B : B : 000316 : C : ЛAT : PYC : ЦИФ :CONS.:TEXT :ISO P: 000317 : C :-----:-----:-----:-----:-----:-----: 000318 : C 000319 : C 000320 : ,ISO,3H'000''000''000'.000 000321 : ,CONT,3H'000''000''000' 000322 : ,ISO,3H'000''000''000'.001 000323 : ,CONT,3H'000''000''000' 000324 : ,ISO,3H'000''000''000'.002 000325 : ,CONT,3H'000''000''000' 000326 : ,ISO,3H'000''000''000'.003 000327 : ,CONT,3H'000''001''003' 000328 : ,ISO,3H'000''000''000'.004 000329 : ,CONT,3H'000''000''000' 000330 : ,ISO,3H'000''000''000'.005 000331 : ,CONT,3H'000''000''000' 000332 : ,ISO,3H'000''000''000'.006 000333 : ,CONT,3H'000''000''000' 000334 : ,ISO,3H'100''200''300'.007 000335 : ,CONT,3H'023''302''007'.TLIM 000336 : ,ISO,3H'000''000''000'.010 000337 : ,CONT,3H'000''000''010' 000338 : ,ISO,3H'000''000''000'.011 000339 : ,CONT,3H'000''000''000' 000340 : ,ISO,3H'075''075''075'.012.NL 000341 : ,CONT,3H'020''001''012' 000342 : ,ISO,3H'000''000''000'.013 000343 : ,CONT,3H'000''000''013' 000344 : ,ISO,3H'000''000''000'.014 000345 : ,CONT,3H'000''000''014' 000346 : ,ISO,3H'067''067''067'.015.RET 000347 : ,CONT,3H'020''000''015' 000348 : ,ISO,3H'000''000''000'.016 000349 : ,CONT,3H'000''000''000' 000350 : ,ISO,3H'000''000''000'.017 000351 : ,CONT,3H'000''000''017' 000352 : ,ISO,3H'000''000''000'.020 000353 : ,CONT,3H'236''000''000' 000354 : ,ISO,3H'140''140''140'.021.ON 000355 : ,CONT,3H'236''302''000' 000356 : ,ISO,3H'140''244''377'.022.KP 000357 : ,CONT,3H'222''000''000' 000358 : ,ISO,3H'140''244''377'.023.ЧP 000359 : ,CONT,3H'023''302''000' 000360 : ,ISO,3H'140''244''377'.024.0TK 000361 : ,CONT,3H'037''000''000' 000362 : ,ISO,3H'000''000''000'.025 000363 : ,CONT,3H'000''000''000' 000364 : ,ISO,3H'100''200''300'.026.EXP 000365 : ,CONT,3H'023''302''000' 000366 : ,ISO,3H'000''000''000'.027 000367 : ,CONT,3H'000''000''027' 000368 : ,ISO,3H'244''054''244'.030.NEQ 000369 : ,CONT,3H'166''000''030' 000370 : ,ISO,3H'000''000''000'.031 000371 : ,CONT,3H'000''000''031' 000372 : ,ISO,3H'244''055''244'.032.DIV 000373 : ,CONT,3H'023''000''032' 000374 : ,ISO,3H'000''000''000'.033 000375 : ,CONT,3H'000''000''033' 000376 : ,ISO,3H'000''000''000'.034 000377 : ,CONT,3H'000''000''034' 000378 : ,ISO,3H'000''000''000'.035 000379 : ,CONT,3H'000''000''035' 000380 : ,ISO,3H'000''000''000'.036 000381 : ,CONT,3H'000''000''036' 000382 : ,ISO,3H'000''000''000'.037 000383 : ,CONT,3H'000''000''037' 000384 : ,ISO,3H'073''073''073'.040.EMP 000385 : ,CONT,3H'227''001''040' 000386 : ,ISO,3H'244''054''244'.041.BOC 000387 : ,CONT,3H'172''000''041' 000388 : ,ISO,3H'000''000''000'.042 000389 : ,CONT,3H'000''000''042' 000390 : ,ISO,3H'244''054''244'.XEШ+NEQ 000391 : ,CONT,3H'166''000''043' 000392 : ,ISO,3H'377''377''051'.044.ДOЛ 000393 : ,CONT,3H'375''000''044' 000394 : ,ISO,3H'000''000''000'.045 000395 : ,CONT,3H'141''000''045' 000396 : ,ISO,3H'000''000''000'.046 000397 : ,CONT,3H'373''000''046' 000398 : ,ISO,3H'244''053''244'.047.AПП 000399 : ,CONT,3H'171''000''047' 000400 : ,ISO,3H'244''041''244'.050.( 000401 : ,CONT,3H'105''000''050' 000402 : ,ISO,3H'244''066''244'.051.) 000403 : ,CONT,3H'106''000''051' 000404 : ,ISO,3H'377''377''060'.052.* 000405 : ,CONT,3H'031''112''052' 000406 : ,ISO,3H'244''056''244'.053.+ 000407 : ,CONT,3H'212''136''053' 000408 : ,ISO,3H'244''071''244'.054., 000409 : ,CONT,3H'301''000''054' 000410 : ,ISO,3H'244''047''244'.055.- 000411 : ,CONT,3H'013''135''055' 000412 : ,ISO,3H'244''070''244'.056.. 000413 : ,CONT,3H'302''110''056' 000414 : ,ISO,3H'244''050''244'.057./ 000415 : ,CONT,3H'214''117''057' 000416 : ,ISO,3H'244''062''244'.060.0 000417 : ,CONT,3H'200''220''060' 000418 : ,ISO,3H'244''042''244'.061.1 000419 : ,CONT,3H'001''221''061' 000420 : ,ISO,3H'244''046''244'.062.2 000421 : ,CONT,3H'002''222''062' 000422 : ,ISO,3H'244''057''244'.063.3 000423 : ,CONT,3H'203''223''063' 000424 : ,ISO,3H'244''065''244'.064.4 000425 : ,CONT,3H'004''224''064' 000426 : ,ISO,3H'244''076''244'.065.5 000427 : ,CONT,3H'205''225''065' 000428 : ,ISO,3H'244''052''244'.066.6 000429 : ,CONT,3H'206''226''066' 000430 : ,ISO,3H'244''043''244'.067.7 000431 : ,CONT,3H'007''227''067' 000432 : ,ISO,3H'244''063''244'.070.8 000433 : ,CONT,3H'010''230''070' 000434 : ,ISO,3H'244''074''244'.071.9 000435 : ,CONT,3H'211''231''071' 000436 : ,ISO,3H'244''061''244'.072.: 000437 : ,CONT,3H'345''133''072' 000438 : ,ISO,3H'000''000''000'.073 000439 : ,CONT,3H'310''000''073' 000440 : ,ISO,3H'000''000''000'.074 000441 : ,CONT,3H'165''000''074' 000442 : ,ISO,3H'244''060''244'.075.= 000443 : ,CONT,3H'313''001''075' 000444 : ,ISO,3H'000''000''000'.076 000445 : ,CONT,3H'114''000''076' 000446 : ,ISO,3H'000''000''000'.077 000447 : ,CONT,3H'331''000''077' 000448 : ,ISO,3H'000''000''000'.100 000449 : ,CONT,3H'304''000''100' 000450 : ,ISO,3H'047''140''047'.101.A 000451 : ,CONT,3H'040''141''141' 000452 : ,ISO,3H'054''140''046'.102.B 000453 : ,CONT,3H'242''142''167' 000454 : ,ISO,3H'061''140''053'.103.C 000455 : ,CONT,3H'061''143''163' 000456 : ,ISO,3H'055''140''140'.104.D 000457 : ,CONT,3H'144''144''104' 000458 : ,ISO,3H'057''140''057'.105.E 000459 : ,CONT,3H'045''145''145' 000460 : ,ISO,3H'051''140''140'.106.F 000461 : ,CONT,3H'364''146''106' 000462 : ,ISO,3H'064''140''140'.107.G 000463 : ,CONT,3H'343''147''107' 000464 : ,ISO,3H'072''140''071'.110.H 000465 : ,CONT,3H'255''150''156' 000466 : ,ISO,3H'063''140''140'.111.I 000467 : ,CONT,3H'150''151''111' 000468 : ,ISO,3H'045''140''140'.112.J 000469 : ,CONT,3H'351''152''112' 000470 : ,ISO,3H'041''140''041'.113.K 000471 : ,CONT,3H'052''153''153' 000472 : ,ISO,3H'066''140''140'.114.L 000473 : ,CONT,3H'153''154''114' 000474 : ,ISO,3H'070''140''070'.115.M 000475 : ,CONT,3H'054''155''155' 000476 : ,ISO,3H'071''140''140'.116.N 000477 : ,CONT,3H'155''156''116' 000478 : ,ISO,3H'074''140''074'.117.O 000479 : ,CONT,3H'256''157''157' 000480 : ,ISO,3H'062''140''065'.120.P 000481 : ,CONT,3H'260''160''162' 000482 : ,ISO,3H'042''140''140'.121.Q 000483 : ,CONT,3H'376''161''121' 000484 : ,ISO,3H'065''140''140'.122.R 000485 : ,CONT,3H'160''162''122' 000486 : ,ISO,3H'053''140''140'.123.S 000487 : ,CONT,3H'361''163''123' 000488 : ,ISO,3H'076''140''076'.124.T 000489 : ,CONT,3H'062''164''164' 000490 : ,ISO,3H'043''140''140'.125.U 000491 : ,CONT,3H'163''165''125' 000492 : ,ISO,3H'060''140''140'.126.V 000493 : ,CONT,3H'346''166''126' 000494 : ,ISO,3H'046''140''140'.127.W 000495 : ,CONT,3H'142''167''127' 000496 : ,ISO,3H'050''140''072'.130.X 000497 : ,CONT,3H'265''170''150' 000498 : ,ISO,3H'377''377''043'.131.Y 000499 : ,CONT,3H'263''171''165' 000500 : ,ISO,3H'056''140''140'.132.Z 000501 : ,CONT,3H'147''172''132' 000502 : ,ISO,3H'377''377''066'.133.ЛKC 000503 : ,CONT,3H'111''000''133' 000504 : ,ISO,3H'073''073''073'.134.EMP 000505 : ,CONT,3H'127''002''134' 000506 : ,ISO,3H'377''377''062'.135.ПKC 000507 : ,CONT,3H'100''000''135' 000508 : ,ISO,3H'000''000''000'.136 000509 : ,CONT,3H'230''000''136' 000510 : ,ISO,3H'000''000''000'.137 000511 : ,CONT,3H'130''000''137' 000512 : ,ISO,3H'244''045''244'.140.Ю 000513 : ,CONT,3H'075''177''140' 000514 : ,ISO,3H'000''000''000'.141 000515 : ,CONT,3H'000''000''141' 000516 : ,ISO,3H'377''377''054'.142.Б 000517 : ,CONT,3H'241''102''142' 000518 : ,ISO,3H'377''377''061'.143.Ц 000519 : ,CONT,3H'266''103''143' 000520 : ,ISO,3H'377''377''055'.144.Д 000521 : ,CONT,3H'244''104''144' 000522 : ,ISO,3H'000''000''000'.145 000523 : ,CONT,3H'000''000''145' 000524 : ,ISO,3H'377''377''051'.146.Ф 000525 : ,CONT,3H'064''105''146' 000526 : ,ISO,3H'377''377''064'.147.Г 000527 : ,CONT,3H'043''106''147' 000528 : ,ISO,3H'000''000''000'.150 000529 : ,CONT,3H'000''000''150' 000530 : ,ISO,3H'377''377''063'.151.И 000531 : ,CONT,3H'250''107''151' 000532 : ,ISO,3H'377''377''045'.152.Й 000533 : ,CONT,3H'051''113''152' 000534 : ,ISO,3H'000''000''000'.153 000535 : ,CONT,3H'000''000''153' 000536 : ,ISO,3H'377''377''066'.154.Л 000537 : ,CONT,3H'253''114''154' 000538 : ,ISO,3H'000''000''000'.155 000539 : ,CONT,3H'000''000''155' 000540 : ,ISO,3H'000''000''000'.156. 000541 : ,CONT,3H'000''000''156' 000542 : ,ISO,3H'000''000''000'.157 000543 : ,CONT,3H'000''000''157' 000544 : ,ISO,3H'377''377''062'.160.П 000545 : ,CONT,3H'057''134''160' 000546 : ,ISO,3H'377''377''042'.161.Я 000547 : ,CONT,3H'076''115''161' 000548 : ,ISO,3H'000''000''000'.162 000549 : ,CONT,3H'000''000''162' 000550 : ,ISO,3H'000''000''000'.163 000551 : ,CONT,3H'000''000''163' 000552 : ,ISO,3H'000''000''000'.164 000553 : ,CONT,3H'000''000''164' 000554 : ,ISO,3H'000''000''000'.165 000555 : ,CONT,3H'000''000''165' 000556 : ,ISO,3H'377''377''060'.166.Ж 000557 : ,CONT,3H'046''116''166' 000558 : ,ISO,3H'000''000''000'.167 000559 : ,CONT,3H'000''000''167' 000560 : ,ISO,3H'377''377''050'.170.Ь 000561 : ,CONT,3H'073''132''170' 000562 : ,ISO,3H'377''377''052'.171.Ы 000563 : ,CONT,3H'272''137''171' 000564 : ,ISO,3H'377''377''056'.172.З 000565 : ,CONT,3H'247''140''172' 000566 : ,ISO,3H'244''064''244'.173.Ш 000567 : ,CONT,3H'070''173''173' 000568 : ,ISO,3H'244''051''244'.174.Э 000569 : ,CONT,3H'274''174''174' 000570 : ,ISO,3H'244''072''244'.175.Щ 000571 : ,CONT,3H'271''175''175' 000572 : ,ISO,3H'244''065''244'.176.Ч 000573 : ,CONT,3H'067''176''176' 000574 : ,ISO,3H'000''000''000'.177 000575 : ,CONT,3H'000''000''000' 000576 : ,END, 000577 : T*CC:,NAME, 000578 : C 000579 : C***** TAБЛИЦA ПEPEKOДИPOBKИ CЛYЖEБHЫX 000580 : C***** CИMBOЛOB /000-037/ 000581 : C 000582 : C..... PP.48/33 = C B O Б O Д H Ы 000583 : C 000584 : C..... PP.32/25 = 15-ИЭ -> ISO 000585 : C..... PP.24/17 = ISO -> 15-ИЭ 000586 : C..... PP.16/09 = VDT-52130 -> ISO 000587 : C..... PP.08/01 = ISO -> VDT-52130 000588 : C 000589 : 00,ISO,6H '000''00''00''0' 000590 : 01,ISO,6H '000''00''31''0' 000591 : 02,ISO,6H '000''00''32''0' 000592 : 03,ISO,6H '000''25''30''0' 000593 : 04,ISO,6H '000''00''10''0' 000594 : 05,ISO,6H '000''00''37''0' 000595 : 06,ISO,6H '023''00''00''0' 000596 : 07,ISO,6H '007''00''00''07'. BELL 000597 : C-------- 000598 : 10,ISO,6H '014''32''14'D 000599 : 11,ISO,6H '011''30''11'I. TAB 000600 : 12,ISO,6H '012''12''00''12'. LF 000601 : 13,ISO,6H '000''26''00'S. INS-LIN 000602 : 14,ISO,6H '000''10''00'H. HOME 000603 : 15,ISO,6H '015''15''00''15'. C R 000604 : 16,ISO,6H '201''00''00''0' 000605 : 17,ISO,6H '200''37''00''0' 000606 : C-------- 000607 : 20,ISO,6H '000''00''34''0' 000608 : 21,ISO,6H '021''00''35''0' 000609 : 22,ISO,6H '036''00''00''0' 000610 : 23,ISO,6H '034''00''13''0' 000611 : 24,ISO,6H '035''00''36''0' 000612 : 25,ISO,6H '003''00''00''0' 000613 : 26,ISO,6H '013''00''00''0' 000614 : 27,ISO,6H '000''15''00''15'. PRINT 000615 : C-------- 000616 : 30,ISO,6H '011''31''00'C. CUR-RIGHT 000617 : 31,ISO,6H '030''34''00'A. CUR-UP 000618 : 32,ISO,6H '010''35''00'B. CUR-DOWN 000619 : 33,ISO,6H '033''33''00''0'.ESCAPE 000620 : 34,ISO,6H '031''23''00'P. INS-CH 000621 : 35,ISO,6H '032''24''00'Q. DEL-CH 000622 : 36,ISO,6H '036''22''00'T. DEL-LIN 000623 : 37,ISO,6H '037''14''00'E. ERASE 000624 : C-------- 000625 : ,END, 000626 : DEBMULT:,NAME, 000627 : 'PEДAKЦИЯ OT 04.06.73' 000628 : MONITOR*:,SUBP,. 000629 : EXCH NRS:,SUBP,. 000630 : C...... EXCH NRS - ИHФ. CЛOBO ДЛЯ 000631 : C BЫЗOBA HEPEЗИДEHTA MYЛЬTИTAЙПA. 000632 : D0:,PC,0. 000633 : FETCH:,SUBP, 000634 : FORMPACK:,SUBP,. 000635 : OPERANDS:,SUBP,. 000636 : BUFSAP:,LC,20 000637 : *TGOSISO:,SUBP, 000638 : *DRUMUS:,SUBP,.B XBOCTE 000639 : PTRP:,PC,46000B 000640 : NPTRP:,P/P,(PTRP)16 000641 : ,DRUM,RTRP.ЧTEH. TPП 000642 : ,XTA,17B.KOHEЦ TPП 000643 : ,UTC,PTRP+3774B. 000644 : ,ATX,.ДЛЯ DISPLOAD 000645 : 14,VTM,-2. 000646 : C ПEPEПИCЬ ЗAГOЛOBKA 000647 : LH:14,UTC,HEAD+2. 000648 : ,XTA,. 000649 : 14,UTC,PTRP+3777B. 000650 : ,ATX,. 000651 : 14,VLM,LH. 000652 : ,DRUM,WTRP. 000653 : ,DRUM,WTRP+1. 000654 : ,XTA,EXCH NRS. 000655 : ,AAX,Z40. 000656 : ,ATX,IW70. 000657 : ,DRUM,IW70 000658 : ,UJ,MONITOR*+1. 000659 : IW70:,BSS, 000660 : RTRP:,010,NPTRP. 000661 : ,020,.TPП 000662 : WTRP:,,NPTRP. 000663 : ,,30B 000664 : :,,NPTRP+100B. 000665 : ,,31B. 000666 : HEAD:,ISO,18H* MYЛЬTИTAЙП * 000667 : ,LOG, 000668 : Z40:,LOG,7767 7777 7777 7777 000669 : CODE:,LOG,3053 4576 1634 0112. 000670 : C BUFSAP(20) ФOPMИPYET WRITDISP 000671 : ,END, 000672 : FETCH:,NAME, 000673 : '30.10'72 , ГYPEBИЧ' 000674 : '30.05.73' 000675 : C--------- БЛOK OБMEHOB 'MYЛЬTИTAЙПA' 000676 : C:,EQU,2.HOMEP KAHAЛA 000677 : *1:,BLOCK,BA,(3),N,T,L,JP,R 000678 : ,CONT,RS,NS,JS,RR,(1),WS 000679 : NCH:,EQU,10. 000680 : SC BL NL:,EQU,73B 000681 : SC VID:,EQU,75B 000682 : ЭT OБPAЗ:,EQU,64+NCH.(NCH) 000683 : BCH:,EQU,656B.БИT KAHAЛA 000684 : SC WAIT:,EQU,656B+9 000685 : JOB:,EQU,670B.HAЧAЛO ДЛЯ MT 000686 : RETADR :,EQU,656B+20 000687 : NUMBUS :,EQU,NCH+RETADR. 000688 : TEKAДP :,EQU,NCH+NUMBUS. 000689 : MBINF :,EQU,NCH+TEKAДP. 000690 : A STR :,EQU,NCH+MBINF. 000691 : RONLY :,EQU,ASTR+NCH 000692 : FILLEN :,EQU,RONLY+1 000693 : NC:,EQU,NCH 000694 : COPYRA:,EQU,FILLEN+NC 000695 : LPAG:,EQU,COPYRA+NC 000696 : LASTORD:,EQU,LPAG+NC 000697 : SC100:,EQU,LASTORD+NC 000698 : ZBCH:,EQU,SC100 000699 : MAXL:,EQU,SC100+1.ДЛЯ VR 000700 : *1TYPE:,EQU,MAXL+NC.ДЛЯ FETCH И 000701 : XRS:,EQU,*1TYPE+NC.FORM PACK 000702 : TYP:,EQU,XRS+NC 000703 : TYPE:,EQU,TYP 000704 : SPB:,EQU,TYP+NC 000705 : MBINFOWN:,EQU,SPB+NC 000706 : PБYФ:24,EQU,1750B.ДЛЯ COSY 000707 : X :,EQU,3. 000708 : SPF:,EQU,200B. 000709 : SF:,EQU,1 000710 : NL:,EQU,12B. 000711 : SPACE:,EQU,40B. 000712 : NCH*2:,EQU,NCH+NCH. 000713 : BUFSAP:,LC,NCH*2 000714 : LPSM:,EQU,10.CMEЩEHИE AЦПY 000715 : *TGOSISO:,LC,24 000716 : SGNCON:,EQU,=6H*CONTA 000717 : FORMPACK:,SUBP,. 000718 : FRC:,EQU,=6H'224''300''''''''' 000719 : BIT80S:,EQU,=400 000 000720 : BITSTF:,EQU,=1 000 000 000721 : BITEND:,EQU,=200 000 000722 : B24/1:,EQU,=7777 7777 000723 : BIT48:,EQU,=:4. 000724 : BIT47:,EQU,=:2 000725 : BIT 40:,EQU,=:001 000726 : BIT 39:,EQU,=:0004 000727 : B COSY:,EQU,=:0000 004.B30 000728 : B GOST:,EQU,=:0000 002.B29 000729 : B NT:,EQU,=:0000 001.B28 000730 : OPERANDS:,SUBP,. 000731 : *DRUMUS:LC,BLOCK,DRUMUS. 000732 : MFREE:,EQU,=77777 00000 000733 : B35/31:,EQU,=:0000 37. 000734 : CMIN4:,EQU,=7777 7777 7777 7773 000735 : CMIN1:,EQU,=7777 7777 7777 7776 000736 : LCON CL:,EQU,=6H'177''177''177''177''177''177' 000737 : CONOR:,EQU,=200. 000738 : XNL:,EQU,=12 000739 : BSP:,EQU,SPB 000740 : :,UJ,FETH 000741 : ,Z00,DRUMUS. 000742 : :,UJ,STORE 000743 : :,UJ,FORMPACK.PACШИФP.ФOPMATA 000744 : ,Z00,SCERRTRA 000745 : :,BSS,1.LABEL-NEXT 000746 : :,BSS,1.LABEL-FORMJOB 000747 : :,UJ,SCAN.HA ПPOП. CTP. 000748 : ,, 000749 : :,UJ,FORMINFA.ФOPM. ПO CYMM. 000750 : :,UJ,OPERANDS. 000751 : MLTBAS:,BSS,1 000752 : ,UJ,CAT I/O.PAБOTA C KAT "OB" 000753 : ,Z00,BUFSAP.ДЛЯ MAKEMT 000754 : :,UJ,CHE PASS.ПPOBEPKA ПPИ BXOДE B CEAHC 000755 : CLEAR:,BSS,1.ГAШ.BЫ/BB 000756 : ,BSS,3.PEЗEPB 000757 : CLOCH:,BSS,1 000758 : CHE PASS:,BSS, 000759 : C П/П ПPOBEPKИ PASS ПOЛЬЗOBATEЛЯ 000760 : C ПPИ BXOДE B CEAHC 000761 : C BЫЗOB ПO ИP13 000762 : C PASS(ISO) ЗAДATЬ B ЭTOБPAЗ(C) 000763 : C PEЗYЛЬTAT HA CM: - N PASS 000764 : C CM=0 - HET PASS 000765 : C 000766 : C YПPЯЧEM AДPEC BOЗBPATA: 000767 : ,ITA,13 000768 : C,ATX,X RS 000769 : C ПEPEBOД ISO = TEXT 000770 : 13,VTM,0.T=0 000771 : 4,VJM,OPERANDS 000772 : C,ATX,ЭT OБPAЗ.ПPИЖAT K ЛEB.KPAЮ, ДOПOЛHEH 0 000773 : ,AAX,=:77 000774 : ,UZA,END F.HE PASS 000775 : ,*65,564B 000776 : ,ATI,13.A *USESTA 000777 : 13,*65,2.A T/PASS 000778 : ,AOX,=14 00 0777 000 000.ЧT,ФИЗ MБ 000779 : C,ATX,MBINFOWN.ЗAГOT.ИC 000780 : 14,VJM,CLAF**. ЖДEM 000781 : FR CHAN:14,VTM,NCH.=10 000782 : 15,VJM,READP.HA OБMEH 000783 : C,XTA,BUFSAP+NCH.ЛИCT KAHAЛA 000784 : 14,VJM,CLAF.ЖДEM KOHЦA 000785 : C BOЗMOЖHA ДИAГHOCTИKA ИЗ-ЗA ПЛOXOГO OБMEHA 000786 : C,XTA,BUFSAP+NCH 000787 : ,ASN,64+20 000788 : ,AAX,=76000.AДPEC 000789 : ,ATI,14.HAЧAЛA 000790 : LOOP CH:14,UTM,1.0-E CЛ. CЛYЖ. 000791 : 14,XTA, 000792 : ,UZA,END F.KOHEЦ TAБЛ. 000793 : C,AEX,ЭT OБPAЗ 000794 : ,ASN,64+12 000795 : ,U1A,LOOP CH 000796 : YES:,ITA,14 000797 : ,AAX,=1777.HOMEP PASS:1..1776 000798 : ,ATX,W1 000799 : C ПPOBEPKA ДOCTYПA K 7/M: 000800 : 13,VTM,DRUMUS-1 000801 : L DR:13,XTA,1 000802 : 13,UTM,1 000803 : ,U1A,L DR 000804 : 13,MTJ,15.'0' 000805 : CH PA:13,UTM,-DRUMUS 000806 : 13,VZM,OUT.ПYCT 000807 : C ЧACTИ *DRUMUS'A ПOЗИЦИOHHO COOTBETCTBYЮT 000808 : 15,UTC,.KOHEЦ БYФEPA 000809 : 13,XTA,.PASS-TEXT 000810 : 13,UTM,DRUMUS-1 000811 : C,AEX,ЭT OБPAЗ 000812 : ,ASN,64+12 000813 : ,U1A,CH PA 000814 : C ДOOФOPMИM ЭЛ-HT *DRUMUS'A: 000815 : 13,XTA, 000816 : ,AAX,=:7777 7777 7777 6 000817 : ,AOX,W1 000818 : 13,ATX, 000819 : OUT:,XTA,W1 000820 : ,UJ,ENDF.BOЗBPAT B MT 000821 : CAT I/O:,BSS,.9ИP=M000I 000822 : C M=4 - C ЧИCTKOЙ ШKAЛ "OB" ДЛЯ NN ИЗ TYPE(C) 000823 : C M=2 - ПPИKAЗ ПEЧ 000824 : C M=0 - ЧTEHИE И ДEMOHOПOЛИЗAЦИЯ 000825 : C I=1 - KATAЛOГ BBOДA 000826 : C I=0 - KATAЛOГ BЫBOДA 000827 : C TYPE(C) = 0 : БEЗ ПPOBEPKИ PASS'A 000828 : C TOЛЬKO ЧTEHИE KATAЛOГA 000829 : ,ITA,13 000830 : C,ATX,XRS 000831 : 14,VJM,CLAF**.ЖДEM KO 000832 : FR CHA:C,XTA,BUFSAP+NCH 000833 : ,ASN,64+20 000834 : ,AAX,=76000 000835 : ,ATI,3.=PP 000836 : ,ATI,RR.=13 000837 : ,ITA,R.=9 000838 : ,ATX,W1 000839 : ,ASN,64+13 000840 : ,ATI,NS.11 ИP=1-ЧИCTKA 000841 : ,XTA,W1 000842 : ,AAX,=1 000843 : ,ATI,R.YБPAЛ 15P 000844 : R,XTA,RCAT OI 000845 : 15,VJM,EX CAT 000846 : 3,XTA,1023 000847 : R,AEX,MCAT 000848 : RS,VTM,HETKAT 000849 : ,UZA,CLEARSC 000850 : MNPL OFF:R,XTA,SEM OI 000851 : ,*50,210B 000852 : ,XTA,.ДЛЯ LIST B 000853 : RS,UJ, 000854 : HETKAT:RR,VTM,T CAT 000855 : ,UJ,TO DIAG 000856 : HETBЫД:RR,VTM,THBЫД 000857 : ,UJ,TO DIAG 000858 : CLEAR SC:,BSS,.OCBOБ.ЭЛ-TOB 000859 : C,XTA,TYPE.N BЫBOДA 6P 000860 : R,V1M,EL/BB.1=INPUT 000861 : ,ASN,64-2 000862 : C,ARX,TYPE.*5 000863 : ,ATI,RS.10ИP 000864 : ,UJ,EL/ 000865 : *1:,BSS, 000866 : ,AOX,BIT39 000867 : RR,ATX, 000868 : ,UJ,*2 000869 : EL/BB:,ASN,64-4 000870 : ,ATI,RS 000871 : RS,UTM,-16 000872 : EL/:RS,J+M,RR.=AДPEC ЭЛ-TA 000873 : ,AEX, 000874 : RS,VTM,ENDF.TOЛЬKO 000875 : ,UZA,MNPLOFF.ЧTEHИE 000876 : RR,XTA,.XAPAKT-KA 000877 : RS,VTM,HET BЫД.HET BЫДAЧИ 000878 : ,UZA,MNPL OFF 000879 : ,AAX,=:3 000880 : ,U1A,MNPL OFF.ИЛИ ЗAHЯT 000881 : RR,XTA,1 000882 : C,AEX,NUMBUS 000883 : ,AAX,=1777 000884 : ,U1A,MNPL OFF.ЧYЖOЙ 000885 : RS,VTM,ENDF.БEЗ 000886 : NS,VZM,MNPLOFF.ЧИCTKИ 000887 : NS,UJ,* 000888 : :RR,XTA, 000889 : ,UJ,*1 000890 : :,BSS, 000891 : ,XTA,=:777 000892 : C,AAX,MBINF 000893 : C,ATX,MBINF.БYФEP 000894 : RR,XTA, 000895 : ,APX,=77 77 000 777.NBB,NЛAБ,1ЗOHA 000896 : ,ASN,64+27 000897 : C,AOX,MBINF 000898 : C,ATX,MBINF.N 1 ЗOHЫ 000899 : RR,XTA, 000900 : ,ARX, 000901 : C ПPИ ЭTOM BЫXOДE JS=0 ДЛЯ ПPИK. ИCK NN 000902 : ,U1A,MNPL OFF.YЖE CBOБ. 000903 : C,WTC,ASTR 000904 : JS,VTM, 000905 : 15,VTM,-15 000906 : ,XTA, 000907 : ZER SCZ:15,UTC,15 000908 : JS,ATX,1.HYЛИM ШKAЛY 000909 : 15,VLM,ZER SCZ 000910 : C,XTA,MBINF 000911 : JS,ATX,17.YПPЯT YAЗ. 000912 : C ЗAMEHA HA 2-Й ЛИCT: 000913 : C,XTA,BUFSAP 000914 : ,AEX, 000915 : C,XTA,BUFSAP+NCH.ЗДECЬ KAT 000916 : C,ATX,BUFSAP 000917 : ,YTA, 000918 : C,ATX,BUFSAP+NCH.CЮДA ЧT.ЗOHЫ 000919 : ,ASN,64+20 000920 : ,AAX,=76000 000921 : ,ATI,JP 000922 : FORM SCZ:,BSS,.KOПИM ШKAЛY 000923 : C,XTA,MBINF 000924 : ,AAX,=777 000925 : ,UZA,ALL SC.KOHEЦ 000926 : ,ATX,W1 000927 : ,ASN,64+5 000928 : ,ATI,14 000929 : ,ASN,64-5 000930 : ,AEX,W1 000931 : ,ATI,15 000932 : ,XTA,BIT48 000933 : 15,ASN,64 000934 : JS,UTC,1 000935 : 14,AOX,.B ШKAЛY 000936 : JS,UTC,1 000937 : 14,ATX, 000938 : 14,VJM,CLAF**.ЖДEM KO 000939 : FR P:14,VTM,NCH 000940 : R,XTA,RZ OI 000941 : 15,VJM,EX INI.BЫДATЬ OБMEH 000942 : C,XTA,BUFSAP+NCH 000943 : 14,VJM,CLAF.ЖДEM KO 000944 : JP,XTA, 000945 : ,ASN,64+9 000946 : C,AEX,MBINF 000947 : ,AAX,=77 77 000.NBB,NЛAБ 000948 : RS,VTM,KOHBUF 000949 : ,U1A,MNPL OFF.ЧYЖAЯ ЗOHA 000950 : JP,XTA, 000951 : C,AEX,MBINF 000952 : ,AAX,=777 000953 : C,AEX,MBINF.CЛEД ЗOHA 000954 : C,ATX,MBINF 000955 : ,UJ,FORM SCZ 000956 : ALL SC:C,XTA,BUF SAP.ПEPEПИCЬ 000957 : ,ASN,64+20.B ШKAЛЫ 000958 : ,AAX,=76000.KATAЛOГA "OB" 000959 : ,ATI,JP 000960 : JS,XTA,17.BOCCTAH. 000961 : C,ATX,MBINF.YKAЗ.1 ЗOHЫ 000962 : 15,VTM,-15 000963 : WR SCZ:JP,UTC,1740B.ШK ЗOH 000964 : 15,XTA,15 000965 : JS,UTC,1 000966 : 15,AOX,15 000967 : JP,UTC,1740B 000968 : 15,ATX,15 000969 : ,XTA, 000970 : JS,UTC,1 000971 : 15,ATX,15 000972 : 15,VLM,WR SCZ 000973 : JS,ATX,17.:=0 000974 : R,VZM,CONT2.OUTPUT 000975 : JP,XTA,1772B.ЧИCЛO ЗAДAЧ 000976 : ,ARX,=777 000977 : ,AAX,=777.-1 000978 : JP,ATX,1772B 000979 : CONT2:,BSS, 000980 : C,XTA,TYPE 000981 : ,ASN,64-4.16*N 000982 : SC/C:,BSS, 000983 : ,ATI,RS.OTH.AДP.ПACП. 000984 : ,ASN,64-38 000985 : R,VZM,CONT1.OUTPUT 000986 : ,ARX,=:77.-1 000987 : CONT1:,BSS, 000988 : ,AUX,=17 00003 000989 : ,ATI,15 000990 : ,ASN,64+15 000991 : ,ATI,14 000992 : ,XTA,BIT48 000993 : 15,ASN,64 000994 : JP,UTC,1720B 000995 : 14,AOX, 000996 : JP,UTC,1720B 000997 : 14,ATX,.OCB.ЭЛ-HT 000998 : R,VZM,EL/C.0=OUT 000999 : C ПACПOPT-ПPOДOЛЖEHИE (INPUT) 001000 : JP,UTC, 001001 : RS,XTA,-16.XAP-KA 1 001002 : ,ASN,64+26 001003 : ,AAX,=1760.16*N 001004 : ,U1A,SC/C 001005 : EL/C:,BSS,.KAKOЙ KATAЛOГ 001006 : ,XTA,BIT48 001007 : R,VZM,EL/CO 001008 : :JP,XTA,1772B.NJOB(INP) 001009 : ,UZA,*+2 001010 : ,ARX,=777.-1 001011 : ,AAX,=777 001012 : :JP,ATX,1772B 001013 : ,XTA,=:1 001014 : EL/CO:,BSS, 001015 : RR,AEX, 001016 : RR,ATX,.48P:=0 001017 : C,XTA,BUFSAP 001018 : ,AEX, 001019 : C,XTA,BUFSAP+NCH.ЗДECЬ ЗOHA 001020 : C,ATX,BUFSAP 001021 : ,YTA, 001022 : C,ATX,BUFSAP+NCH 001023 : *2:,BSS, 001024 : R,XTA,WCAT OI 001025 : 15,VJM,EX CAT.ЗAПИCЬ KAT 001026 : C PEГИCTP JS - ФЛAГ 0/1 ДЛЯ ПPИK. ИCK NN 001027 : C ПPИ ЭTOM BЫXOДE JS=1 001028 : R,VZM,ENDF.0=OUTPUT 001029 : C,XTA,MBINF 001030 : ,AAX,=:777 001031 : C,ATX,MBINF 001032 : ,UJ,END F 001033 : FETH:,BSS, 001034 : C ISO B COSY 001035 : R,VTM,N64. 001036 : ,ITA,RR. 001037 : C,AEX,XRS 001038 : ,AAX,=77777 001039 : C,AEX,XRS 001040 : C,ATX,XRS 001041 : L,VTM,1. 001042 : C,XTA,TEKAДP 001043 : ,ATI,JP 001044 : ,AAX,BITSTF. 001045 : ,U1A,TFC. 001046 : L,VTM,.ЭTO HOBAЯ CTPOKA 001047 : C,XTA,*1TYPE. 001048 : C,ATX,TYPE 001049 : TFC:,BSS, 001050 : C...... ПPOБA БИTA ЧИCЛA CИMBOЛOB 001051 : C,XTA,TEKAДP 001052 : NS,VTM,83.ДЛЯ ПEPФ. 001053 : T,VTM, 001054 : RR,VTM,. 001055 : N,VTM,128. 001056 : ,AAX,BIT80S. 001057 : ,U1A,N64. 001058 : R,VJM,FTYPE 001059 : RR,VTM,1 001060 : NS,VTM,80 001061 : N64:,BSS,. 001062 : ,MTJ,JS. 001063 : JP,VZM,FSTCALL..BOЗBPAT HA /15M1 001064 : 14,VTM,READ. 001065 : C,XTA,JOB 001066 : ,AAX,B COSY 001067 : ,UZA,YBA 001068 : C,AEX,JOB 001069 : C,ATX,JOB 001070 : C ПPOБA COSY-GOST 001071 : ,AAX,B GOST 001072 : ,ASN,64+14.B 15 PAЗPЯД 001073 : ,ATI,BA.=1-GOST 001074 : ,XTA,BIT48 001075 : C,ASN,64 001076 : ,ATX,BCH 001077 : ,AEX,FULWOR 001078 : ,ATX,ZBCH 001079 : C ПEPEПИCЬ C ASTR HA PБYФ: 001080 : 14,VTM,-22 001081 : L COSY:C,WTC,ASTR 001082 : 14,XTA,22 001083 : 14,UTC,22 001084 : JP,ATX, 001085 : 14,VLM,L COSY 001086 : ,XTA,FULWOR 001087 : JP,ATX,23 001088 : NS,VTM,128 001089 : READM1:,BSS,. 001090 : C ЧTEHИE HOBOГO CЛOBA 001091 : BA,VZM,READ 001092 : C KOPPEKЦИЯ ГOCT-CЛOBA. 001093 : JP,XTA, 001094 : ,AEX,FULWOR 001095 : ,UZA,ENDF 001096 : JP,XTA, 001097 : ,ARX,=6H'1''1''1''1''1''1' 001098 : JP,ATX, 001099 : READ:,BSS,.1 001100 : C...... ЧTEHИE CИMBOЛA 001101 : JP,XTA, 001102 : ,U1A,/3 001103 : JP,UTM,1 001104 : ,ITA,JP 001105 : ,AAX,=1777 001106 : ,U1A,READM1 001107 : NEWPAGE:,BSS, 001108 : C...... ПEPEXOД HA CЛEДYЮЩИЙ ЛИCT 001109 : C,XTA,RETADR 001110 : ,AAX,MFREE. 001111 : ,UZA,/15. 001112 : C ЛИCT PEЗEPBHЫЙ ЗAHЯT 001113 : C,XTA,BUFSAP+NCH 001114 : 14,VJM,CLAF 001115 : /15M1:,BSS, 001116 : 14,VTM,/15 001117 : ,UJ,YBA 001118 : /15:,BSS, 001119 : C...... ЗAMEHA TEKYЩ. ЛИCTA HA PEЗEPB. 001120 : 14,VJM,IFTRAERR 001121 : C,XTA,BUFSAP+NCH 001122 : ,ASN,64+20 001123 : ,AAX,=76000 001124 : ,ATI,JP.AДPEC ЛИCTA 001125 : C PACПPEДEЛEHИE PAЗPЯДOB B MBINF(C): 001126 : C -- ДЛЯ ЛИЧHOГO БYФEPA: 001127 : C 48-40 TИП (48-46) И MAT.N MЛ 001128 : C 39-31 HAЧ.ЗOHA 001129 : C 30-10 HE ИCП.(=0) 001130 : C 09-01 KOHEЧ.ЗOHA 001131 : C -- ДЛЯ CИCTEMHOГO BЫBOДA: 001132 : C 48-40 HE TPOГAET,COXPAHЯET 001133 : C 39-28 HE ИCП.(=0) 001134 : C 27-10 NBЫBOДA,NBBOДA,NЛAБ 001135 : C 09-01 N ЗOHЫ ПO CПИCKY ЛИБO 0 001136 : C -- ДЛЯ ПPИKAЗA "HOB" 001137 : C БИTЫ 10-39 COДEPЖAT "1" 001138 : C,XTA,MBINF 001139 : ,AAX,=77 77 000.NBB,NЛAБ 001140 : 14,VTM,0 001141 : ,U1A,SYSOUT 001142 : 15,VTM,ЗAMEHA.БYФEP MT 001143 : ,UJ,READ P 001144 : SYS OUT:,BSS,.OБЛACTЬ BЫBOДA 001145 : C,XTA,MB INF 001146 : ,AAX,BIT39 001147 : ,U1A,READ."HOB" 001148 : JP,XTA, 001149 : ,AAX,=777 001150 : ,UZA,ALLZ.БOЛЬШE HET 001151 : C,AEX,MBINF 001152 : ,AAX,=777 001153 : C,AEX,MBINF 001154 : C,ATX,MBINF.CЛEД.ЗOHA 001155 : ,XTA,RZ OI 001156 : 15,VJM,EX INI.BЫДAЛ OБMEH 001157 : ЗAMEHA:,BSS, 001158 : C OБMEH BCEГДA ЧEPEЗ ЛИCT,YKAЗAH. 001159 : C B BUFSAP+NCH(C) 001160 : C ДЛЯ BCEX TИПOB БYФEPOB 001161 : C,XTA,BUFSAP+NCH 001162 : ,AEX, 001163 : C,XTA,BUFSAP 001164 : C,ATX,BUFSAP+NCH 001165 : ,YTA, 001166 : C,ATX,BUFSAP 001167 : ALLZ:,BSS,.БEЗ ЗAMEHЫ 001168 : NS,VZM,/3SC.HA ПPOПYCK 001169 : BA,VZM,READ. 001170 : C ПPOПYCK CЛYЖ. CЛOB ЗAИKИHA 001171 : JP,UTM,LPSM 001172 : ,UJ,READM1 001173 : /3:,BSS, 001174 : JS,V1M,/3*1. 001175 : C...... OБPAБOTKA 1-ГO CЛOBA CTPOKИ 001176 : ,ATX,W1. 001177 : C,WTC,ASTR. 001178 : JS,VTM, 001179 : ,ITA, 001180 : JS,ATX, 001181 : L,VZM,NOTCON. 001182 : L,VTM,. 001183 : ,XTA,BCH 001184 : ,AAX,SC BL NL 001185 : ,UZA,/5 001186 : ,AOX,SC VID 001187 : ,ATX,SC VID 001188 : ,XTA,BCH 001189 : ,AEX,SC BL NL 001190 : ,ATX,SC BL NL 001191 : /5:,BSS, 001192 : ,XTA,W1 001193 : ,AAX,=6H'200''377''0''0''0''0' 001194 : ,AEX,=6H'200''12''0''0''0''0' 001195 : ,U1A,/4 001196 : ,XTA, 001197 : C,ATX,BSP.ДЛЯ BИДEOTOHA 001198 : C,XTA,TEKAДP 001199 : ,AOX,BITSTF 001200 : ,AEX,BITSTF 001201 : C,ATX,TEKAДP 001202 : C,XTA,*1TYPE 001203 : C,ATX,TYPE 001204 : R,VTM,BLCARD 001205 : ,UJ,FTYPE 001206 : /4:,BSS, 001207 : ,XTA,BIT48. 001208 : JS,ATX,-1. 001209 : C,XTA,BSP. 001210 : ,ARX, 001211 : ,U1A,TESTBLT.HA ПPOB. ПYCT. 001212 : ,ASN,64+40 001213 : ,ATI,RS. 001214 : C,ATX,BSP. 001215 : RS,MTJ,WS. 001216 : ,UJ,FBL. 001217 : NOTCON:,BSS,.HET OCTATKA 001218 : C...... ЭTO HE ПPOДOЛЖEHИE CTPOKИ 001219 : C ПPOБA CИMBOЛA KOHЦA 001220 : ,XTA,W1 001221 : BA,AEX,SGNEND 001222 : ,UZA,ENDF 001223 : C...... ПPOБA HA CTPOKY AЦПY 001224 : BA,V1M,AЦПY 001225 : TESTBLT:,BSS,. 001226 : C...... ПPOБA ПYCTOЙ CTPOKИ 001227 : ,XTA,W1. 001228 : ,AAX,=6H'200''377''''''''' 001229 : ,AEX,=6H'200''012''''''''' 001230 : ,UZA,BLCARD. 001231 : C...... ECЛИ ПEPBOE CЛOBO ECTЬ *READ 001232 : C TO RR ДOЛЖHO БЫTЬ 0 ИЛИ 2 001233 : ,XTA,W1. 001234 : ,AEX,=6H*READ 001235 : ,ASN,64+8 001236 : ,U1A,/3*0. 001237 : C,XTA,TEKAДP. 001238 : ,AAX,BITSTF. 001239 : ,U1A,/3*0. 001240 : RR,VZM,/3*0. 001241 : RR,VTM,2. 001242 : ,XTA,FRC. 001243 : C,ATX,TYPE. 001244 : R,VJM,FTYPE. 001245 : /3*0:,BSS,. 001246 : C ПPOБA ПPИЗHAKA ПEPEXOДA HA HOBЫЙ ЛИCT 001247 : ,XTA,W1. 001248 : ,AEX,SGNCON. 001249 : ,UZA,NEWPAGE. 001250 : ,XTA,W1. 001251 : /3*1:,BSS,. 001252 : C...... BЫБOPKA CИMBOЛA 001253 : ,ASN,64-8 001254 : JP,ATX, 001255 : ,YTA, 001256 : ,ATX,SYM 001257 : BA,VZM,RETGI.KOД ISO 001258 : C ПEPEKOДИPOBKA ГOCTA B ISO 001259 : ,ATX,W4 001260 : ,AEX,=177.GOST NL +1 001261 : ,UZA,RETGI 001262 : ,AAX,=200 001263 : ,U1A,GOSBL.ПPOБEЛЫ 001264 : C OБЫЧHAЯ БYKBA-ЦИФPA 001265 : ,XTA,W4 001266 : ,ARX,CMIN1 001267 : ,UZA,NULLG.HOЛЬ 001268 : ,ATX,W4 001269 : ,ASN,64+2 001270 : ,ATI,14 001271 : ,ASN,64-2 001272 : ,AEX,W4 001273 : ,AEX,=3 001274 : ,ASN,64-3 001275 : ,ATI,15 001276 : 14,XTA,*TGOSISO 001277 : 15,ASN,64 001278 : ,AAX,=377 001279 : ,UJ,RETGI 001280 : NULLG:,XTA,=60 001281 : ,UJ,RETGI 001282 : GOSBL:,XTA,W4 001283 : RETGI:,BSS, 001284 : C HA CYMMATOPE CИMBOЛ ISO 001285 : R,VZM,NEXTS 001286 : ,ATI,RS 001287 : RS,MTJ,WS.6 001288 : ,AAX,=200 001289 : ,U1A,FBL.TO 7 001290 : ,ITA,RS 001291 : 14,VJM,CH LF 001292 : ,UZA,END READ 001293 : R,VTM,READ 001294 : SYMBOL:,BSS,.13 001295 : C...... ЗAПИCЬ CИMBOЛA ПO ФOPMATY 001296 : T,MTJ,14. 001297 : 14,UTM,-X. 001298 : 14,VZM,STEP. 001299 : WRITE:,BSS,. 001300 : C БEЗYCЛOBHAЯ ЗAПИCЬ CИMBOЛA ИЗ WS 001301 : L,UTM,1 001302 : ,ITA,WS 001303 : JS,AOX, 001304 : ,ATX,W1 001305 : ,ASN,64-8 001306 : JS,ATX, 001307 : ,YTA, 001308 : ,ATX,W2 001309 : ,UZA,/10 001310 : ,XTA,W1 001311 : ,AAX,CON CL. 001312 : JS,ATX,.WRITE WORD 001313 : JS,UTM,1 001314 : ,ITA, 001315 : JS,ATX,. 001316 : /10:NS,UTM,-1 001317 : NS,VZM,ENDSTRSP 001318 : STEP:,BSS,.11 001319 : C...... ШAГ ПO ФOPMATY 001320 : N,UTM,-1 001321 : R,UTC, 001322 : N,V1M, 001323 : FTYPE:,BSS, 001324 : C...... BЫБOPKA ФOPMATA 001325 : T,VTM, 001326 : N,VTM,128 001327 : C,XTA,TYP 001328 : R,UZA, 001329 : ,ASN,64-2 001330 : C,ATX,TYP 001331 : ,YTA, 001332 : ,ATI,T 001333 : C,XTA,TYP 001334 : ,ASN,64-6 001335 : C,ATX,TYP 001336 : ,YTA, 001337 : R,UZA, 001338 : ,ATI,N 001339 : R,UJ, 001340 : FBL:,BSS,.7 001341 : C...... ПEPBЫЙ ПPOБEЛ 001342 : R,VTM, 001343 : ,UJ,READ 001344 : NEXTS:,BSS, 001345 : C...... ПEPBЫЙ CИMBOЛ ЗA ПPOБEЛAMИ 001346 : ,ATX,W3 001347 : 14,VJM,CH LF 001348 : ,UZA,ENDRAB. 001349 : RR,VZM,TRANBL 001350 : T,V1M,TRANBL. 001351 : RS,MTJ,14. 001352 : L,J+M,14 001353 : 14,UTM,-80 001354 : NOT VID:,BSS, 001355 : ,ITA,14 001356 : ,AAX,=200 001357 : 14,UTM,-200B. 001358 : ,U1A,KTCH0 001359 : TRANBL:,BSS,. 001360 : C...... BЫДAЧA CEPИИ ПPOБEЛOB 001361 : WS,VTM,SPACE 001362 : R,VTM,NFBL.TO 12 001363 : RS,UTM,-201B 001364 : NF:T,UTM,-SF 001365 : T,VZM,FS 001366 : T,UTM,SF 001367 : ,UJ,SYMBOL.13 TO 001368 : FS:T,VTM,SPF 001369 : ,UJ,SYMBOL 001370 : NFBL:,BSS,.12 001371 : T,MTJ,14 001372 : RS,VZM,ENDBL. 001373 : RS,UTM,-1. 001374 : 14,UTM,-SPF 001375 : 14,VZM,STEP.TO 11 001376 : ,UJ,NF 001377 : ENDBL:,WTC,W3 001378 : C...... KOHEЦ BЫДAЧИ ПPOБEЛOB 001379 : WS,VTM, 001380 : WS,VZM,ENDREAD 001381 : R,VTM,READ 001382 : 14,UTM,-SPF 001383 : 14,V1M,SYMBOL 001384 : T,VTM,SF 001385 : ,UJ,SYMBOL.TO 11 001386 : ENDRAB:,ATX,W3 001387 : ,ATX,SYM 001388 : C,XTA,TEKAДP 001389 : C ЗA ПPOБEЛAMИ БЫЛ ПEPEBOД CTPOKИ 001390 : ,AAX,BIT80S. 001391 : ,UZA,ENDREAD. 001392 : ,UJ,TRANBL 001393 : ENDSTRSP:,BSS, 001394 : C CPЫB ПO ИCЧEPПAHИЮ BЫXOДHOЙ CTPOKИ 001395 : RS,MTJ,14 001396 : RR,V1M,KTCH0 001397 : ENDREAD:,BSS,.5 001398 : C...... OБЫ4HЫЙ KOHEЦ CTPOKИ 001399 : ,XTA, 001400 : JP,ATX, 001401 : ,XTA,. 001402 : C,ATX,TEKAДP 001403 : ENDRDG:,BSS, 001404 : C...... OБЩИЙ БЛOK KOHЦA 001405 : WS,VTM,200B. 001406 : NS,VTM,21 001407 : DOK:R,VJM,WRITE 001408 : L,UTM,-1. 001409 : ,XTA,W2 001410 : ,UZA,DOK 001411 : ,ITA,JP 001412 : C,AOX,TEKAДP 001413 : C,ATX,TEKAДP 001414 : RR,VZM,TEST*RO. 001415 : RR,UTM,-2. 001416 : RR,V1M,ENDF. 001417 : ,UJ,TEST2. 001418 : TEST*RO:,BSS,. 001419 : C,WTC,ASTR 001420 : ,XTA,. 001421 : ,AEX,=6H*READ 001422 : ,U1A,ENDF. 001423 : TEST2:,BSS, 001424 : C,WTC,ASTR. 001425 : ,XTA,1. 001426 : ,AEX,=3HOLD 001427 : ,AAX,=:7777 7777 001428 : ENDF:,BSS, 001429 : ,WTC,MLTBAS.BOCCTAHOBЛEHИE 001430 : BA,VTM,.БAЗЫ MYЛЬTИTAЙПA 001431 : C,WTC,X RS. 001432 : ,UJ,. 001433 : CH LF:14,UZA,.'000' 001434 : ,AEX,=1 001435 : ,UZA,BIT1.'001' 001436 : ,AEX,=1 001437 : ,AEX,XNL 001438 : 14,UZA,.'012' 001439 : ,ASN,64+5 001440 : ,UZA,KILLSC.<40B 001441 : BIT1:,XTA,=1 001442 : 14,UJ,.HOPM.CИMBOЛ 001443 : BLCARD:,BSS,.ПYCTAЯ KAPTA 001444 : ,ITA, 001445 : JP,ATX,. 001446 : JS,VTM, 001447 : ,UJ,READ. 001448 : AЦПY:,XTA,W1. 001449 : ,ASN,64-8. 001450 : ,UJ,/3*1 001451 : KTCH0:,BSS, 001452 : ,XTA,BCH 001453 : ,AOX,SC BL NL 001454 : ,ATX,SC BL NL 001455 : KTCH:,BSS, 001456 : C ПOДГOTOBKA BЫДAЧИ OCTATKA CTPOKИ 001457 : ,XTA,BITSTF 001458 : C,ATX,TEKAДP 001459 : R,VZM,SERSPACE. 001460 : R,UTM,-NFBL. 001461 : R,V1M,SAVEFORM. 001462 : SERSPACE:,BSS,. 001463 : C...... CPЫB БЫЛ C CEPИИ ПPOБEЛOB 001464 : ,XTA,SYM 001465 : ,ASN,64-40 001466 : ,ATX,SYM 001467 : JP,XTA, 001468 : ,ASN,64+8 001469 : ,AOX,SYM 001470 : JP,ATX, 001471 : 14,VZM,SAVEFORM. 001472 : C...... CEPИЯ ПPOБEЛOB HE ИCЧEPПAHA 001473 : 14,UTM,200B 001474 : ,ITA,14 001475 : ,ASN,64+8 001476 : ,YTA, 001477 : C,ATX,BSP 001478 : SAVEFORM:,BSS,. 001479 : C...... CПACEHИE TEKYЩEГO ФOPMATA 001480 : T,VZM,ENDRDG 001481 : N,UTM,-1. 001482 : N,VZM,ENDRDG. 001483 : ,ITA,N 001484 : ,AAX,=100 001485 : ,AEX,=100 001486 : ,UZA,NCORF. 001487 : ,ITA,N. 001488 : NCORF:,BSS,. 001489 : ,ATX,W3 001490 : ,ITA,T 001491 : ,ASN,64-6 001492 : ,AOX,W3 001493 : ,ASN,64-40 001494 : ,ATX,W3 001495 : C,XTA,TYPE 001496 : ,ASN,64+8 001497 : ,AOX,W3 001498 : C,ATX,TYPE 001499 : ,UJ,ENDRDG. 001500 : FSTCALL:,BSS,.16 001501 : 14,VTM,FREE 001502 : CLAF**:,BSS, 001503 : C,XTA,RETADR 001504 : ,AAX,MFREE 001505 : 14,UZA, 001506 : C,XTA,RETADR 001507 : CLAF:,BSS, 001508 : ,AAX,B35/31 001509 : C,ATX,RETADR 001510 : ,ITA,14 001511 : C,AOX,RETADR 001512 : C,ATX,RETADR 001513 : 14,VTM,WOST 001514 : ,ITA,14 001515 : ,ASN,64-15 001516 : C,AOX,RETADR 001517 : C,ATX,RETADR 001518 : 14,VTM,-1 001519 : LSM1:C,XTA,BUFSAP 001520 : ,AAX,B35/31 001521 : C,ATX,BUFSAP 001522 : 14,ITA,R 001523 : C,AOX,BUFSAP 001524 : C,ATX,BUFSAP 001525 : 14,ITA,RR 001526 : ,ASN,64-15 001527 : C,AOX,BUFSAP 001528 : C,ATX,BUFSAP 001529 : 14,ITA,NS 001530 : ,ASN,64+8 001531 : ,YTA, 001532 : C,AOX,BUFSAP 001533 : C,ATX,BUFSAP 001534 : C,UTM,NCH 001535 : 14,VLM,LSM1. 001536 : C,UTM,-NCH*2 001537 : 14,VTM,-2 001538 : R,VTM,8 001539 : C,XTA,TEKAДP 001540 : ,AAX,B24/1 001541 : C,ATX,TEKAДP 001542 : LSM2:14,ITA,L 001543 : R,ASN,64 001544 : ,YTA, 001545 : C,AOX,TEKAДP 001546 : C,ATX,TEKAДP 001547 : R,UTM,8 001548 : 14,VLM,LSM2 001549 : ,ITA,4 001550 : C,ATX,SPB. 001551 : ,ITA,3 001552 : ,ASN,64-15 001553 : C,AOX,SPB. 001554 : C,ATX,SPB. 001555 : ,WTC,MLTBAS 001556 : BA,VTM, 001557 : ,UJ,CLOCH 001558 : FREE:,BSS,.17 001559 : C,XTA,MBINF 001560 : ,AAX,=77 77 000.NBB,NLAB 001561 : 14,VTM,NCH 001562 : ,UZA,OWN BUF 001563 : 15,VTM,ЗAKPЫTЬ 001564 : ,XTA,RZ OI 001565 : ,UJ,EX INI 001566 : OWN BUF:,BSS, 001567 : C,XTA,MBINF. 001568 : 15,VJM,FORMINFA. 001569 : ,AOX,BIT40. 001570 : C,ATX,MBINFOWN. 001571 : C,XTA,XRS. 001572 : ,AAX,=77777 001573 : ,AOX,BIT48. 001574 : C,ATX,XRS. 001575 : 14,VTM,NCH 001576 : 15,VJM,READP 001577 : C ЗAKPЫTИE ПO OБMEHY HA PEЗEPBHOM 001578 : ЗAKPЫTЬ:,BSS, 001579 : C,XTA,BUFSAP+NCH 001580 : C CLAF ПPOBEPИT KO OБMEHA 001581 : 14,VJM,CLAF 001582 : C,XTA,BUFSAP+NCH 001583 : ,ASN,64+20 001584 : ,AAX,=76000 001585 : ,ATI,14.HAЧAЛO ЛИCTA 001586 : ,XTA,ZBCH 001587 : ,AAX,SCGOST 001588 : ,ATX,SCGOST 001589 : C... ПPOBEPKA TИПA KOДA : 001590 : BA,VTM,0 001591 : 14,XTA, 001592 : ,ASN,64+38 001593 : ,U1A,/15 001594 : 14,XTA,9 001595 : ,AEX,=6H'12'FOUT'200' 001596 : ,U1A,/15 001597 : C... KOД - ГOCT 001598 : BA,VTM,1 001599 : ,XTA,BCH 001600 : ,AOX,SCGOST 001601 : ,ATX,SCGOST 001602 : ,UJ,/15 001603 : YBA:,BSS, 001604 : C YCTAHOBKA TИПA KOДA B BA. 001605 : C 0 OЗHAЧAET KOД ISO. 001606 : BA,VTM,0 001607 : ,XTA,BCH 001608 : ,AAX,SCGOST 001609 : 14,UZA, 001610 : BA,VTM,1 001611 : 14,UJ, 001612 : EX CAT:,BSS, 001613 : ,ATX,W2 001614 : ,ITA,15 001615 : C,ATX,MBINFOWN.A BOЗPATA 001616 : 14,VTM,NCH 001617 : C,J+M,14 001618 : 14,XTA,BUFSAP 001619 : ,AAX,B35/31 001620 : 14,ATX,BUFSAP 001621 : ,ASN,64+20.ЛИCT KAHAЛA 001622 : 15,VJM,*57 001623 : C,XTA,BUFSAP+NCH.ЖДATЬ KO 001624 : 14,VJM,CLAF 001625 : C,WTC,MBINFOWN 001626 : ,UJ, 001627 : EX INI:,BSS,.BЫДAЧA OБMEHA 001628 : ,ATX,W2.C ЗOHOЙ "OB" 001629 : C,J+M,14 001630 : 14,XTA,BUFSAP 001631 : ,AAX,B35/31 001632 : 14,ATX,BUFSAP 001633 : C,XTA,MBINF 001634 : ,AAX,=777 001635 : 14,AOX,BUFSAP 001636 : *57:,AOX,W2 001637 : ,ATX,W2 001638 : 14,XTA,BUFSAP 001639 : ,AOX,MFREE 001640 : C,ATX,RETADR.OБMEH BЫДAH 001641 : ,XTA,BCH 001642 : ,AOX,SC WAIT 001643 : ,ATX,SC WAIT 001644 : C,XTA,MB INF 001645 : ,AAX,BIT39 001646 : ,UZA,HE HOB 001647 : 14,XTA,BUFSAP 001648 : ,AOX,=37.ЗOHA HOBOCTEЙ 001649 : ,AOX,BIT40 001650 : ,ATX,W2 001651 : ,*65,523B 001652 : ,ATI,14.DISPBASE 001653 : 14,*65,4 001654 : ,ANX,=7 001655 : ,ASN,64-12.N MБ 001656 : ,AOX,BIT39 001657 : ,AOX,W2 001658 : ,ATX,W2 001659 : ,DRUM,W2 001660 : 15,UJ, 001661 : HE HOB:,XTA,W2 001662 : ,*57,7 001663 : 15,UJ, 001664 : READP:,BSS, 001665 : C,J+M,14 001666 : 14,XTA,BUFSAP 001667 : ,AAX,B35/31 001668 : 14,ATX,BUFSAP 001669 : ,AOX,MFREE. 001670 : C,ATX,RETADR. 001671 : C,XTA,MBINFOWN. 001672 : 14,AOX,BUFSAP. 001673 : 14,ATX,BUFSAP. 001674 : C,XTA,MBINFOWN. 001675 : ,ASN,64+18 001676 : C,AEX,MBINFOWN. 001677 : ,AAX,=777. 001678 : ,UZA,LSTZONE.KOHEЦ MECTA 001679 : C,XTA,MBINFOWN. 001680 : ,ARX,=1. 001681 : C,ATX,MBINFOWN. 001682 : TRANSF:,BSS,.BЫД. OБMEHA 001683 : 14,XTA,BUFSAP 001684 : ,ATX,W5 001685 : C,XTA,NUMBUS.N PASS KЛИEHTA 001686 : ,*50,72100B+117B.CEБE B ИПЗ 001687 : ,*70,W5 001688 : ,XTA,BCH 001689 : ,AOX,SC WAIT. 001690 : ,ATX,SC WAIT. 001691 : 15,UJ, 001692 : LSTZONE:,BSS,. 001693 : C...... KOHEЦ OTBEДEHHOГO MECTA HA MБ(MЛ) 001694 : C,XTA,MBINFOWN. 001695 : ,AAX,BIT40. 001696 : ,UIA,CORXRS. 001697 : ,ITA,JP. 001698 : ,AAX,=1777 001699 : ,U1A,TRANSF 001700 : JP,UTM,-3.OPГ. KOHЦA ФAЙЛA 001701 : DELLST:,BSS,.ПOИCK KOHЦA CTPOKИ 001702 : JP,UTM,-1. 001703 : JP,XTA,-1. 001704 : ,AEX,XNL. 001705 : ,AAX,=377. 001706 : ,U1A,DELLST. 001707 : ,XTA,=6H*READ 001708 : JP,ATX, 001709 : ,XTA,=6HOLD'312''12''12' 001710 : JP,ATX,1. 001711 : ,XTA,SGNEND. 001712 : JP,ATX,2. 001713 : ,XTA,=6H'315''12' '12' 001714 : JP,ATX,3 001715 : 15,VJM,TRANSF. 001716 : ,ITA, 001717 : C,WTC,TYPE 001718 : ,UJ,. 001719 : CORXRS:,BSS,. 001720 : C...... KOPPEKЦИЯ BOЗBPATA 001721 : C,XTA,XRS. 001722 : ,ARX, 001723 : ,UIA,KOHBUF. 001724 : ,ARX,BIT47. 001725 : ,UZA,OK 001726 : ,ARX,CMIN1. 001727 : OK:C,ATX,XRS. 001728 : ,UJ,TRANSF. 001729 : KOHBUF:,BSS,. 001730 : RR,VTM,TKБ 001731 : ,UJ,TODIAG 001732 : IFTRAERR:,BSS, 001733 : C...... П/П ПPOBEPKИ HAЛИЧИЯ OШИБKИ 001734 : C ПO TEKYЩEMY OБMEHY KAHAЛA. 001735 : ,XTA,BCH 001736 : ,AAX,SCERRTRA 001737 : 14,UZA,.HET OШИБKИ 001738 : ,AEX,SCERRTRA 001739 : ,ATX,SCERRTRA 001740 : RR,VTM,TBADTRA 001741 : TODIAG:,BSS, 001742 : C...... BЫДAЧA ДИAГHOCTИKИ ПO OБMEHY 001743 : C,XTA,RETADR. 001744 : ,AAX,B35/31 001745 : C,ATX,RETADR 001746 : ,XTA, 001747 : C,ATX,TEKAДP. 001748 : C,XTA,MBINF 001749 : ,AAX,=:777 001750 : C,ATX,MBINF.БYФEP: 001751 : ,WTC,MLTBAS 001752 : BA,VTM, 001753 : ,UJ,MLTBAS 001754 : WOST:,BSS, 001755 : 14,VTM,-2 001756 : C,XTA,TEKAДP 001757 : ,ATX,W1 001758 : LRM1:,XTA,W1 001759 : ,ASN,64-8 001760 : ,ATX,W1 001761 : ,YTA, 001762 : 14,ATI,L. 001763 : 14,VLM,LRM1 001764 : 14,VTM,-1 001765 : LRM2:C,XTA,BUFSAP 001766 : 14,ATI,R 001767 : ,ASN,64+15 001768 : 14,ATI,RR 001769 : ,ASN,64+25 001770 : 14,ATI,NS 001771 : C,UTM,NCH 001772 : 14,VLM,LRM2 001773 : C,UTM,-NCH*2. 001774 : C,XTA,SPB. 001775 : ,ATI,4. 001776 : ,ASN,64+15. 001777 : ,ATI,3. 001778 : 14,VJM,IFTRAERR 001779 : C,WTC,RETADR 001780 : ,UJ, 001781 : STORE:,BSS,. 001782 : C,XTA,XRS. 001783 : ,ARX,. 001784 : ,U1A,HE HAДO. 001785 : ,ASN,64-2 001786 : ,YTA, 001787 : ,ARX,CMIN4. 001788 : C,ARX,MBINFOWN. 001789 : C,ATX,MBINFOWN. 001790 : HE HAДO:,BSS,. 001791 : 14,VJM,IFTRAERR 001792 : C,XTA,MBINFOWN. 001793 : ,AOX,BIT40. 001794 : ,AEX,BIT40. 001795 : C,ATX,MBINFOWN. 001796 : ,ITA,RR 001797 : C,ATX,TYPE 001798 : C,XTA,TEKAДP. 001799 : ,ATI,JP. 001800 : ,AAX,BITEND. 001801 : ,U1A,END FILE. 001802 : C,XTA,ASTR. 001803 : ,ATI,JS. 001804 : ,ITA,. 001805 : C,ATX,XRS. 001806 : ,MTJ,L 001807 : NS,VTM,83. 001808 : R,VTM,READS. 001809 : JP,VZM,FSTCS. 001810 : ,XTA, 001811 : JP,ATX,.ДЛЯ WRITES 001812 : READS:C,XTA,XRS 001813 : ,U1A,R1S. 001814 : JS,XTA, 001815 : ,AOX,CONOR 001816 : JS,UTM,1. 001817 : R1S:,ASN,64-8. 001818 : C,ATX,XRS. 001819 : ,YTA, 001820 : ,AAX,=177 001821 : ,ATI,RS. 001822 : R,VTM,READS. 001823 : RS,VZM,ENDST. 001824 : RS,UTM,-NL. 001825 : RS,VZM,ENDST. 001826 : NS,UTM,-1 001827 : RS,UTM,NL-SPACE. 001828 : RS,VZM,BLANK. 001829 : L,V1M,FNBL. 001830 : BWRT:RS,UTM,SPACE. 001831 : ,ITA,RS 001832 : WRITES:JP,AOX, 001833 : ,ATX,W1 001834 : ,ASN,64-8 001835 : JP,ATX, 001836 : ,YTA,. 001837 : ,ATI,T. 001838 : R,UZA, 001839 : ,XTA,W1. 001840 : WRITEW:JP,ATX, 001841 : JP,UTM,1 001842 : ,ITA,JP 001843 : ,AAX,=1777. 001844 : ,U1A,NENDPAGE. 001845 : C,XTA,RETADR. 001846 : ,AAX,MFREE. 001847 : ,U1A,CLSTORE 001848 : WOZ1S:15,VJM,WRITEP. 001849 : C,XTA,BUFSAP+NCH. 001850 : ,AEX, 001851 : C,XTA,BUFSAP. 001852 : C,ATX,BUFSAP+NCH. 001853 : ,YTA,. 001854 : C,ATX,BUFSAP. 001855 : FORMJP:,ASN,64+20. 001856 : ,AAX,=76000. 001857 : ,ATI,JP. 001858 : NENDPAGE:,ITA, 001859 : JP,ATX, 001860 : R,UJ, 001861 : CLSTORE:14,VTM,WOZ1S. 001862 : ,UJ,CLAF. 001863 : BLANK:,BSS, 001864 : L,V1M,NFBLS 001865 : L,VTM,200B 001866 : NFBLS:,BSS, 001867 : L,UTM,1 001868 : ,UJ,READS 001869 : FNBL:,ITA,L 001870 : R,VJM,WRITES. 001871 : R,VTM,READS. 001872 : ,MTJ,L. 001873 : ,UJ,BWRT. 001874 : ENDST:,BSS,. 001875 : L,V1M,BIAB. 001876 : NS,VZM,CORST. 001877 : NS,UTM,200B. 001878 : ,UJ,GENEST 001879 : BIAB:L,J+M,NS 001880 : NS,UTM,-83-200B 001881 : NS,VZM,RETSTORE 001882 : NS,UTM,83+200B 001883 : GENEST:,ITA,NS 001884 : R,VJM,WRITES. 001885 : CORST:RS,UTM,NL. 001886 : DOKS:,ITA,RS. 001887 : R,VJM,WRITES. 001888 : T,VZM,DOKS. 001889 : RETSTORE:,BSS,. 001890 : ,ITA,JP. 001891 : C,ATX,TEKAДP. 001892 : C,XTA,TYPE 001893 : ,ATI,RR 001894 : ,ITA, 001895 : C,ATX,XRS. 001896 : RR,UJ, 001897 : FSTCS:,BSS, 001898 : 14,VTM,GO ON. 001899 : ,UJ,CLAF**. 001900 : GO ON:,BSS,. 001901 : 15,VTM,RFCST. 001902 : C...... OPГ. ИHФ. CЛOBA OБMEHA 001903 : C,XTA,MBINF. 001904 : FORMINFA:,BSS,.BXOД ПO CYMM. 001905 : C ПOЛYЧEHИE AДPECA OБMEHA ПO 001906 : C YKAЗATEЛЮ. BЫXOД - CYMMATOP И 001907 : ,ATX,W1. 001908 : ,ARX, 001909 : ,UZA,DRUM. 001910 : ,ASN,64-3. 001911 : ,AUX,=770777 001912 : ,ATX,W3. 001913 : ,AAX,=777 001914 : ,NTR,7 001915 : C,X-A,FILLEN 001916 : ,U1A,BADCASE 001917 : ,XTA,W1 001918 : ,AAX,=777. 001919 : ,U1A,*100.ПPAB. OГPAH. 001920 : C,XTA,FILLEN 001921 : *100:,ASN,64-18. 001922 : ,UJ,*200 001923 : DRUM:,BSS,. 001924 : C...... TPEБYETCЯ БAPAБAH 001925 : 14,VTM,DRUMUS-1. 001926 : ,NTR,7.YCT. PEЖИMA 001927 : SFDRUS:14,UTM,1.ПOИCK БAPAHЩИKA 001928 : 14,XTA,. 001929 : ,UZA,BADCASE. 001930 : C,AEX,NUMBUS. 001931 : ,AAX,=1777 001932 : ,U1A,SFDRUS. 001933 : 14,XTA,. 001934 : ,AUX,=770777. 001935 : ,ATX,W3.HAЧ. БYФEPA 001936 : 14,XTA,. 001937 : ,ASN,64-18 001938 : ,AUX,=770777. 001939 : ,ATX,W2.KOH. БYФEPA 001940 : ,XTA,W1. 001941 : ,AAX,=777. 001942 : ,A-X,=1.KOP. YK. KOHЦ. 001943 : ,U1A,STANL.CTAHД. ДЛИHA 001944 : ,ARX,W3.KOH. MECTA 001945 : ,X-A,W2. 001946 : ,UIA,BADCASE. 001947 : ,X-A,W2. 001948 : ,ATX,W2. 001949 : STANL:,XTA,W1. 001950 : ,ASN,64+30 001951 : ,AAX,=777. 001952 : ,A-X,=1.KOP. YK. HAЧ. 001953 : ,U1A,BADCASE. 001954 : ,ARX,W3. 001955 : ,ATX,W3.HAЧ.MECTA 001956 : ,X-A,W2. 001957 : ,UIA,BADCASE. 001958 : ,XTA,W3. 001959 : ,AAX,=77 0000. 001960 : ,UIA,NO MODEL. 001961 : ,ITA,15. 001962 : ,ATX,W1. 001963 : ,XTA,NAMEMT 001964 : ,*57,400B 001965 : ,UZA,BADCASE 001966 : ,AOX,=:0000 1000 001967 : ,ASN,64-12. 001968 : ,AOX,W3. 001969 : ,ATX,W3. 001970 : NO MODEL:,BSS,. 001971 : ,XTA,W2. 001972 : ,AAX,=777. 001973 : ,ASN,64-18 001974 : ,AOX,BIT39 001975 : *200:,AOX,W3 001976 : 15,UJ, 001977 : BADCASE:,WTC,MLTBAS. 001978 : BA,VTM,. 001979 : RR,VJM,CLEAR. 001980 : RR,VTM,TД. 001981 : ,UJ,MLTBAS. 001982 : RFCST:,BSS,.BЫXOД 1 STORE 001983 : C,ATX,MBINFOWN. 001984 : C,XTA,BUFSAP. 001985 : ,UJ,FORMJP. 001986 : END FILE:,BSS, 001987 : ,XTA,=6H*READ 001988 : R,VJM,WRITEW. 001989 : ,XTA,=6HOLD'312''12''12' 001990 : R,VJM,WRITEW. 001991 : ,XTA,SGNEND. 001992 : R,VJM,WRITEW. 001993 : ,XTA,=6H'315''12' '12' 001994 : R,VJM,WRITEW. 001995 : C,XTA,TYPE 001996 : ,ATI,RR 001997 : C,ATX,XRS. 001998 : ,ITA,JP. 001999 : ,AAX,=1777. 002000 : RR,UZA, 002001 : 15,VJM,WRITE P 002002 : C,XTA,BUFSAP 002003 : RR,MTJ,14.BOЗBPAT 002004 : ,UJ,CLAF.ЖДATЬ KO 002005 : WRITEP:,MTJ,14 002006 : ,UJ,READP 002007 : SCAN:,BSS, 002008 : C,ATX,TYPE. 002009 : C,XTA,XRS. 002010 : ,AOX,=77777. 002011 : ,AEX,=77777. 002012 : C,ATX,XRS. 002013 : ,ITA,RR. 002014 : C,AOX,XRS. 002015 : C,ATX,XRS. 002016 : ,MTJ,JS. 002017 : ,MTJ,NS. 002018 : C,XTA,TEKAДP. 002019 : ,ATI,JP. 002020 : ,AOX,=7 7777. 002021 : ,AEX,=7 7777. 002022 : C,ATX,TEK AДP. 002023 : JP,VZM,FSTCALL.BOЗBPAT HA /3SC 002024 : ,AAX,BITSTF. 002025 : ,UZA,READ SC. 002026 : C,AEX,TEKAДP. 002027 : C,ATX,TEKAДP. 002028 : JS,VTM,1. 002029 : READ SC:,BSS,. 002030 : JP,UTM,1. 002031 : ,ITA,JP. 002032 : ,AAX,=1777 002033 : ,UZA,NEW PAGE. 002034 : /3SC:JP,XTA,. 002035 : ,ATX,W1. 002036 : JS,V1M,NON1. 002037 : ,AEX,SGNEND. 002038 : ,UZA,ENDF 002039 : ,XTA,W1. 002040 : C,AEX,TYPE. 002041 : ,U1A,NOFIND 002042 : C... M.Б. ИЩEM "*READ OLD" 002043 : C,XTA,TYPE 002044 : ,AEX,=6H*READ 002045 : ,U1A,ENDSCAN.-HET 002046 : ,ITA,JP 002047 : ,AAX,=1777 002048 : ,AEX,=1777 002049 : ,UZA,ENDSCAN.HAЙДEH 002050 : JP,XTA,1 002051 : ,AEX,=6HOLD 002052 : ,AAX,=:7777 7777 002053 : NO FIND:,UZA,END SCAN 002054 : ,XTA,W1. 002055 : ,AAX,=:776. 002056 : ,AEX,=:002. 002057 : ,U1A,NON1. 002058 : C...... CTPOKA AЦПY 002059 : ,XTA,W1. 002060 : ,ASN,64-8. 002061 : C,AEX,TYPE. 002062 : ,ASN,64+8 002063 : ,UZA,ENDSCAN.CИM. HAЙДEH 002064 : NON1:JS,VTM,1. 002065 : ,XTA,W1. 002066 : ,AEX,XNL. 002067 : ,AAX,=377. 002068 : ,U1A,READSC.HE KOHEЦ CTP. 002069 : ENDSCAN:,BSS,. 002070 : ,ITA,JP. 002071 : C,AOX,TEKAДP. 002072 : KILLSC:,BSS, 002073 : C,ATX,TEKAДP. 002074 : C JS=0 - HAЙДEH ИЛИ ENDFILE, =1 - EЩE SCAN 002075 : ,UJ,ENDF 002076 : RCAT OI:1,, 002077 : ,,.BЫBOД 002078 : :9,, 002079 : ,,.BBOД 002080 : WCAT OI:2,, 002081 : ,,.BЫBOД 002082 : :10,, 002083 : ,,.BBOД 002084 : RZ OI:3,010, 002085 : ,, 002086 : :11,010, 002087 : ,, 002088 : SEM OI:,, 002089 : ,,2 002090 : :,, 002091 : ,,3 002092 : MCAT:,ISO,6HD78OUT 002093 : ,ISO,6HD78INP 002094 : TCAT:,ISO,12HHE KATAЛOГ'45''' 002095 : THBЫД:,ISO,6HПPOЧЬ'' 002096 : SCERRTRA:,LOG, 002097 : TBADTRA:,ISO,12HПЛOX.OБMEH'''' 002098 : SCGOST:,LOG, 002099 : SGNEND:,ISO,6H*-*-*- 002100 : FULWOR:,LOG,7777 7777 7777 7777 002101 : TKБ:,ISO,12HOШ. KOHЦA'''''' 002102 : TД:,ISO,12HOШ. БYФEP'''''' 002103 : NAMEMT:,TEXT,8HM '7' 002104 : SYM:,BSS,1 002105 : W1:,BSS,1 002106 : W2:,BSS,1 002107 : W3:,BSS,1 002108 : W4:,BSS,1 002109 : W5:,BSS,1 002110 : ,END, 002111 : *TGOSISO:,NAME, 002112 : 000,ISO,6H 0123 002113 : 004,ISO,6H 4567 002114 : 010,ISO,6H 89+- 002115 : 014,ISO,6H /,. 002116 : 020,ISO,6H Ю'77'() 002117 : 024,ISO,6H '46'='73''133' 002118 : 030,ISO,6H '135'*'47''47' 002119 : 034,ISO,6H '43''74''76': 002120 : 040,ISO,6H AБBГ 002121 : 044,ISO,6H ДEЖЗ 002122 : 050,ISO,6H ИЙKЛ 002123 : 054,ISO,6H MHOП 002124 : 060,ISO,6H PCTY 002125 : 064,ISO,6H ФXЦЧ 002126 : 070,ISO,6H ШЩЫЬ 002127 : 074,ISO,6H ЭЮЯD 002128 : 100,ISO,6H FGIJ 002129 : 104,ISO,6H LNQR 002130 : 110,ISO,6H SUVW 002131 : 114,ISO,6H Z'134''136''1' 002132 : 120,ISO,6H '1''1''1''1' 002133 : 124,ISO,6H '1''1''45'$ 002134 : 130,ISO,6H '136''1''137''41' 002135 : 134,ISO,6H '42'Ы'100''47' 002136 : ,END, 002137 : FORM PACK:,NAME, 002138 : '15.10.72' 002139 : C ЗAПAKOBKA ФOPMATA 002140 : C++4.6.73 002141 : N CH:,EQU,10 002142 : *2:,BLOCK,C,(1),R,S,W,N 002143 : ,CONT,(2),SW,K,M,T 002144 : SPACE:,EQU,40B 002145 : COMMA:,EQU,54B 002146 : LA :,EQU,101B 002147 : LC:,EQU,103B. 002148 : LS :,EQU,123B 002149 : LX :,EQU,130B 002150 : LL:,EQU,114B 002151 : TS:,EQU,100B 002152 : TA:,EQU,200B 002153 : TX:,EQU,300B 002154 : C--------- 002155 : L NRS:,EQU,2000B 002156 : IW O/I: ,EQU,=:7153 4000 0060 002157 : L NRS : I ,BLOCK,(3) 002158 : ,CONT,NEXT 002159 : ,CONT,FG 0 002160 : PAБ ЛИCT:,EQU,0 002161 : PAБ ЛИCT:I,BLOCK,(440),*** 002162 : DELTA:,P*P,(5)(N CH) 002163 : A STR:,EQU,*** + DELTA 002164 : NC:,EQU,NCH 002165 : RONLY:,EQU,ASTR+NC 002166 : FILLEN:,EQU,RONLY+1 002167 : COPYRA:,EQU,FILLEN+NC 002168 : LPAG:,EQU,COPYRA+NC 002169 : LASTORD:,EQU,LPAG+NC 002170 : SC100:,EQU,LASTORD+NC 002171 : MAXL:,EQU,SC100+1.ДЛЯ VR 002172 : *1TYPE:,EQU,MAXL+NC.ДЛЯ FETCH И 002173 : TYPE:,EQU,*1TYPE 002174 : C========================================== 002175 : T,VTM,.TИП 002176 : M,VTM,.MECTO B TИПE 002177 : SW,VTM,.ПEPEKЛЮЧATEЛЬ 002178 : C,WTC,A STR.AДPEC CTPOKИ 002179 : N,VTM,.HOMEP CЛOBA 002180 : ,XTA,. 002181 : ,ATX,ACC.ГAШEHИE 002182 : C,ATX,TYPE.ГAШEHИE 002183 : R WORD:N,XTA,.TEK. CЛOBO 002184 : K,VTM,.MECTO B CЛOBE 002185 : READ:,ASN,64 - 8.TEK. CИMBOЛ 002186 : ,ATX,WORD. 002187 : ,YTA,. 002188 : ,ATI,S.CИMBOЛ 002189 : S,UTM,- SPACE. 002190 : S,VIM,SWITCH.HE ПPOБEЛ 002191 : SW,VIM,STEP.HOPMAЛЬHO 002192 : SW,VTM,LETTER.ПEPBЫЙ ПPOБEЛ 002193 : STEP:K,UTM,8.ШAГ K 002194 : ,XTA,WORD.OCTATOK 002195 : K,MTJ,S.ПPOБA 002196 : S,UTM,- 48. KOHЦA 002197 : S,VIM,READ. CЛOBA 002198 : N,UTM,1.ШAГ N 002199 : SW,VIM,R WORD. 002200 : SW,VJM,R WORD.ПEPBOE CЛOBO 002201 : 'AHAЛИЗ' 002202 : LETTER:,UZA,NEXT.KOHEЦ CTPOKИ 002203 : SW,VJM,FIX. 002204 : T,VTM,TA.AHAЛИЗ БYKB: 002205 : S,UTM,SPACE - LA 002206 : S,VZM,SET.TИП A 002207 : T,VTM,TS 002208 : S,UTM,LA - LC. 002209 : S,VZM,SET.TИП S 002210 : S,UTM,LC - LS. 002211 : S,VZM,SET.TИП S 002212 : T,VTM,TX 002213 : S,UTM,LS - LX 002214 : S,VZM,SET.TИП X 002215 : S,UTM,LX - LL. 002216 : S,VIM,ERR SP.HE БYKBA 002217 : ,XTA,FOR L.CTAHД. ФOPMAT 002218 : C,ATX,TYPE. 002219 : ,UJ,NEXT... ... 002220 : C.... 002221 : SWITCH:SW,VZM,STEP.HAЧAЛO CTPOKИ 002222 : SW,UJ,.HOPMAЛЬHO 002223 : C.... 002224 : FIGURE:S,UTM,SPACE - COMMA 002225 : S, VZM,TO TYPE.ЗAПЯTAЯ 002226 : S, UTM,COMMA.BOCCT. 002227 : ,UJ,DIGIT. 002228 : FIR DIG:,UZA,NEXT.KOHEЦ CTPOKИ 002229 : SW,VJM,FIX. 002230 : SW,VTM,FIGURE. 002231 : S,UTM,SPACE.BOCCT. 002232 : DIGIT:S,UTM,- 72B.ГPAHИЦA ЦИФPЫ 002233 : ,ITA,S 002234 : ,AAX,=7700.MИHYC 002235 : ,UZA,ERR SP.HE ЦИФPA 002236 : S,UTM,72B-60B . ГPAHИЦA ЦИФPЫ 002237 : ,ITA,S 002238 : ,AAX,=7700.MИHYC 002239 : ,UIA,ERR SP. 002240 : 'ПOДПPOГPAMMЫ' ---=--- 002241 : ,XTA,ACC.HAKOПИTEЛЬ 002242 : ,ASN,64 - 1.BДBOE 002243 : ,ATX,X1. 002244 : ,ASN,64 - 2.BЧETBEPO 002245 : ,ARX,X1. 002246 : ,ATX,X1. 002247 : ,ITA,S. 002248 : ,ARX,X1. 002249 : ,ATX,ACC. 002250 : ,AAX,=7700.CBEPX 63-X 002251 : ,UIA,ERR SP. 002252 : ,UJ,STEP. 002253 : SET:SW,VTM,FIR DIG.YCTAHOBKA TИПA 002254 : ,ITA,T. 002255 : ,ATX,ACC. 002256 : ,UJ,TO TYPE. 002257 : TO TYPE:,XTA,ACC. 002258 : M,ASN,64 - 40.ИЗ XBOCTA 002259 : ,UZA,ERR SP.БOЛЬШE 6-TИ 002260 : C,AOX,TYPE. 002261 : C,ATX,TYPE.ФOPMAT 002262 : ,XTA,. 002263 : ,ATX,ACC.ГAШEHИE 002264 : T,VIM,STEP.OБXOД ШAГA M 002265 : M,UTM,8.ШAГ ПO ПOЛЮ 002266 : SW,VTM,LETTER. 002267 : ,UJ,STEP...... 002268 : FIX:,ITA,N. 002269 : ,ATX,XN. 002270 : ,ITA,K. 002271 : ,ATX,XK. 002272 : T,VTM,.БЛOKИP. OБXOДA 002273 : SW,UJ, 002274 : ERR SP:,XTA,XN.OШ. CПEЦИФИKAЦИИ 002275 : ,ATI,N. 002276 : ,XTA,XK. 002277 : ,ATI,K...... 002278 : ,XTA,=:776.MACKA 002279 : K,ASN,64. 002280 : N,AAX,... 002281 : N,AEX,.ГAШEHИE 002282 : N,ATX,... 002283 : R,VTM,NEXT...BЫДAЧA... 002284 : W,VTM,IW O/I. 002285 : ,UJ,FG 0............ 002286 : C========================================== 002287 : FOR L:,GOST,6H'230''100'0000 002288 : WORD:,BSS,1.P.Я. 002289 : ACC :,BSS,1.P.Я. 002290 : X1 :,BSS,1.P.Я. 002291 : XN :,BSS,1.P.Я. 002292 : XK :,BSS,1.P.Я. 002293 : ,END, 002294 : *DRUMUS:,NAME, 002295 : C..... БYФEPA И XOЗЯEBA : 002296 : 0,LOG,00000 0 00007 00000 002297 : 1,LOG, 00000 0 00007 00000 002298 : 2,LOG, 00010 0 00017 00000 002299 : 3,LOG, 00020 0 00027 00000 002300 : 4,LOG, 00030 0 00037 00000 002301 : 5,LOG, 00040 0 00047 00000 002302 : 6,LOG, 00050 0 00057 00000 002303 : 7,LOG, 00060 0 00067 00000 002304 : 10,LOG, 00070 0 00077 00000 002305 : 11,LOG,00100 0 00177 00000. 002306 : ,LOG,.KOHEЦ CПИCKA 002307 : 0,LOG,1.XOЗЯEBA: 002308 : 1,TEXT,6HAHTOШA 002309 : 2,TEXT,5HKAMAK 002310 : 3,TEXT,6HACYTEN 002311 : 4,TEXT,6HЙЫHЗAM 002312 : 5,TEXT,6HC44839 002313 : 6,TEXT,5HMTEXT 002314 : 7,TEXT,6HLIBRTS 002315 : 10,TEXT,5HMJPOP 002316 : 11,TEXT,6HWORKIN 002317 : ,END, 002318 : OPERANDS:,NAME, 002319 : '25.10.72, ФEДOCEEB. 002320 : C ПOЛYЧEHИE OПEPAHДOB 002321 : C ДЛЯ ПPИKAЗOB MYЛЬTИTAЙПA 002322 : C++4.6.73 002323 : C MAЙ 80 ЛOПATKO B.Б. 002324 : C ПO MOTИBAM ГOPHЯKOB-ПPEДШECTBEHHИKOB 002325 : N CH:,EQU,10. 002326 : *2:,BLOCK,C,(1),R,S,(1),N 002327 : ,CONT,(1),W1,SW,K,L,T,P,TT 002328 : SPACE:,EQU,40B. 002329 : PLUS:,EQU,53B 002330 : COMMA:,EQU,54B. 002331 : SLASH:,EQU,57B. 002332 : TWOP:,EQU,72B 002333 : SMARK:,EQU,1. 002334 : PAБЛИCT:,EQU,0. 002335 : C --------------------- 002336 : L NRS:,EQU,2 000B. 002337 : PAБ ЛИCT:I,BLOCK,(84),MACKA OБ(10) 002338 : ,CONT,(346),*** 002339 : DELTA:,P*P,(5)(N CH) 002340 : A STR:,EQU,*** + DELTA 002341 : L NRS:I,BLOCK, 002342 : ,CONT,(8) 002343 : ,CONT,DIAGN. 002344 : C============================== 002345 : ,ITA,W1.HA XPAH. 002346 : ,ATX,S/W1 002347 : ,ITA,SW 002348 : ,ATX,S/SW 002349 : 'HAЧAЛO' 002350 : C,WTC,A STR.AДPEC CTPOKИ 002351 : N,VTM,. 002352 : T,MTJ,TT.YПP.TИПA 002353 : SW,VTM,FIRST.HAЧ.CTPOKИ 002354 : W1,VTM,STEP.ДЛЯ JOB'A 002355 : ,XTA,. 002356 : ,ATX,ACC.HAKOПИTEЛЬ 002357 : ,ATX,APP.AППEHДИKC 002358 : ,ATX,FLAG.ПP. ДOBBOДA 002359 : ,*65,526B 002360 : ,ASN,64+24 002361 : ,ATX,PYC.TAБЛ. ISO->TEXT 002362 : R WORD:N,XTA,.TEK. CЛOBO 002363 : K,VTM,1 - 6.6 CИMBOЛOB 002364 : READ:,ASN,64 - 8. 002365 : ,ATX,WORD.OCTATOK 002366 : ,YTA,. 002367 : ,ATI,S.TEK. CИMBOЛ 002368 : SW,U1A,.HE KOHEЦ CTPOKИ 002369 : 'BЫXOД' --------- 002370 : TT,UJ,MT.BOЗBPAT ПO TИПY 002371 : MT:S,VTM,OUT 002372 : ,UJ,TOM.ДOKPYTИTЬ ИMЯ,PASS 002373 : :,XTA,ACC.1 002374 : ,UJ,R3 002375 : :SW,UTM,-FIGURE.2 002376 : ,UJ,OPD 002377 : :,XTA,ACC.3 002378 : ,UJ,R3 002379 : :,UJ,R4.4 002380 : :T,V1M,DBUF.5 002381 : ,UJ,MT 002382 : :SW,UTM,-FIGURE.6 002383 : ,UJ,OPD 002384 : :,,.PEЗEPB 002385 : :,XTA,APP.8 002386 : ,ATI,T 002387 : R9:,BSS, 002388 : :,XTA,ACC.9 002389 : ,UJ,OUT 002390 : ,XTA,ACC.10 002391 : ,UJ,OUT 002392 : :,XTA,ACC.11 002393 : ,UJ,R11 002394 : OPD:SW,V1M,RT.БЫЛA COMMA 002395 : T,VTM,1.ПEPBЫЙ OПEPAHД 002396 : RT:,BSS,.ПAKYEM OПEPAHДЫ 002397 : ,XTA,APP 002398 : T,ASX,VV-1.T=1,2 002399 : ,ATX,APP... 002400 : ,XTA,ACC. 002401 : R3:T,WTC,VV-1 002402 : ,ASN,64. 002403 : ,AOX,APP... 002404 : ,WTC,FLAG. 002405 : T,VTM,.BBOД/ДOBBOД 002406 : ,UJ,OUT 002407 : R4:,XTA,ACC.ЭTAЛOH CTAPЫЙ 002408 : R,UZA,.-ДA 002409 : ,XTA,FUL WOR.K ЛEB.KPAЮ 002410 : ,WTC,APP. 002411 : ,ASN,64. 002412 : ,YTA,. 002413 : C,ATX,MACKA OБ 002414 : ,XTA,ACC 002415 : R11:,BSS, 002416 : ,WTC,APP. 002417 : ,ASN,64. 002418 : ,YTA,. 002419 : OUT:,WTC,S/W1.BOCCT. 002420 : W1,VTM, 002421 : ,WTC,S/SW 002422 : SW,VTM,. 002423 : R,UJ,. 002424 : C -------------------- 002425 : FIRST:S,UTM,-SPACE 002426 : T,UJ,T SW 002427 : T SW:S,V1M,IF**.0-PASS 002428 : ,UJ,T0 002429 : :S,V1M,IF**.1-BЫBOД ПO L CTPOK 002430 : ,UJ,T1 002431 : :S,V1M,IF**.2-AЦП,CON 002432 : ,UJ,T2.ПYCKИ: 1-2 OП 002433 : :S,VZM,S/SPACE.3=ДOH 002434 : ,UJ,IF PLUS 002435 : :S,V1M,IF**.4-ДO 002436 : ,UJ,T4 002437 : :S,V1M,IF**.5-БYФEP 002438 : ,UJ,T5. 2-4-5 OП 002439 : :S,VZM,S/SPACE.6=ЛИCT; 002440 : ,UJ,IF PLUS. =BBOД:1-2 OП 002441 : :,XTA,.PEЗEPB 002442 : ,UJ,OUT 002443 : :S,V1M,IF**.8-OTЛAДЫ:1-2 OП 002444 : SW,VTM,0.ДЛЯ TO T1 002445 : :S,V1M,IF**.9-ПYЛЬT,DENSITY 002446 : ,UJ,T9 002447 : :S,V1M,IF**.10-ДEЛЬTA 002448 : ,UJ,T10 002449 : :S,VZM,STEP.11=CKAHИPOBAHИE 002450 : T,VTM,4.T11 B T4 002451 : SW,VTM,CHE JOB 002452 : L,VTM,-6 002453 : ,UJ,MARK 002454 : T0:S,V1M,STEP 002455 : SW,VTM,TEXT 002456 : L,VTM,-6 002457 : ,UJ,STEP 002458 : T4:L,VTM,-6 002459 : SW,VTM,CHE JOB 002460 : STEP:,XTA,WORD. 002461 : K,VLM,READ. 002462 : N,VLM,R WORD. 002463 : IF**:S,UTM,SPACE-TWOP 002464 : S,V1M,STEP 002465 : T,UJ,T SW.ДBOETOЧИE 002466 : IF PLUS:S,UTM,SPACE-TWOP 002467 : S,VZM,S/SPACE.ЧTO И ПPOБEЛ 002468 : S,UTM,TWOP-PLUS 002469 : S,V1M,STEP 002470 : T,UTM,-6 002471 : T,VZM,PLT6 002472 : ,ATX,FLAG.T3 И '+' 002473 : ,UJ,T3 002474 : S/SPACE:T,UTM,-6 002475 : T,VZM,SPT6 002476 : T3:L,VTM,-4 002477 : T,VTM,3.BOCCT. 002478 : ,UJ,DIG 002479 : PLT7:,ATX,FLAG 002480 : SPT7:T,VTM,1.T7 B T1 002481 : T1:L,VTM,-3 002482 : ,UJ,DIG 002483 : T9:L,VTM,-16.T9 B T1 002484 : ,UJ,TO T1 002485 : T10:L,VTM,-4.T10 B T1 002486 : TO T1:SW,VZM,T8 002487 : T,VTM,1 002488 : DIG:SW,VTM,DIGIT 002489 : ,UJ,STEP 002490 : PLT6:,ATX,FLAG 002491 : SPT6:T,VTM,2.T6 B T2 002492 : T2:L,VTM,-3 002493 : ,ITA,L 002494 : ,ATX,YC L.ДЛИHA 2 OП 002495 : ,UJ,FIG 002496 : T5:L,VTM,-4 002497 : ,UJ,FIG 002498 : T8:T,VTM,2.T8 B T2 002499 : ,ITA,L 002500 : ,ATX,YC L 002501 : L,VTM,-5 002502 : FIG:SW,VJM,STEP.SW:=FIGURE 002503 : C ---------------- 002504 : FIGURE:S,UTM,- COMMA. 002505 : S,VZM,F COMMA. 002506 : S,UTM,COMMA - SLASH. 002507 : S,VZM,F SLASH. 002508 : DIGIT:,ATI,S.OБPAБ. ЦИФP 002509 : S,UTM,- 60B. 002510 : ,ITA,S. 002511 : ,AAX,=7 000.MИHYC 002512 : ,UIA,IF SP.MAЛO 002513 : ,ITA,S. 002514 : T,ARX,TYPE. 002515 : ,AAX,=7 000.MИHYC 002516 : ,U1A,JOB.HOPMA 002517 : L,UTM,4 002518 : L,VIM,ERROR 002519 : T,UTM,-5 002520 : T,VIM,ERROR 002521 : C 002522 : C... ECЛИ KOHCTPYKЦИЯ "БYФEP:" 002523 : C HAЧИHAETCЯ C БYKBЫ, TO ЭTO 002524 : C OБPAЩEHИE K ФAЙЛOBOЙ CИCTEME 002525 : C БYФEP:SNAME,MASTER,FILE,REGIM 002526 : C SNAME - ИMЯ ФAЙЛOBOЙ CИCTEMЫ. 002527 : C 002528 : ,ATX,APP 002529 : ,ATX,ACC 002530 : S,UTM,60B 002531 : L,VTM,-6 002532 : SW,VTM,TEXT 002533 : SW,UJ, 002534 : CHE JOB:L,V1M,ISO 002535 : TT,UJ,MT.BOЗBPAT ПO TИПY 002536 : ISO:,BSS, 002537 : S,UTM,-SPACE. 002538 : S,VZM,STEP. 002539 : MARK:,BSS, 002540 : S,UTM,SPACE-SMARK. 002541 : S,VZM,STEP. 002542 : S,UTM,SMARK. 002543 : ,XTA,APP. 002544 : ,ARX,=10. 002545 : ,ATX,APP. 002546 : JOB:,XTA,ACC.HAKOПЛEHИE 002547 : T,ASX,TYPE.ДЛИHA БAЙTA 002548 : ,ATX,ACC. 002549 : ,ITA,S. 002550 : ,AOX,ACC. 002551 : ,ATX,ACC. 002552 : W1,UTC,.ГДE ШAГATЬ 002553 : L,VLM,.ДЛИHA OПEPAHДA 002554 : TT,VZM,MT.PASS 002555 : ,UJ,ERROR.ДЛИHA BEЛИKA 002556 : C 002557 : C 002558 : C ДЛЯ T5 (ПOCЛE /) B T0 002559 : TEXT:S,UTM,-COMMA 002560 : S,VZM,CHBUF.ЗAПЯTAЯ 002561 : ,WTC,PYC 002562 : S,XTA,COMMA 002563 : ,ASN,64+8 002564 : ,AAX,=77.CИMBOЛ "TEXT" 002565 : ,UZA,MБPYC 002566 : ,ATI,S 002567 : ,UJ,JOB 002568 : MБPYC:S,UTM,COMMA 002569 : ,ITA,S 002570 : ,AAX,=40 002571 : ,UZA,ERROR.ЛATЫHЬ 002572 : S,UTM,-40B 002573 : ,UJ,TEXT 002574 : CHBUF:,BSS, 002575 : ,ITA,TT 002576 : ,UZA,OUT.PASS, A ЗПT 002577 : C.. ЗAДAETCЯ БYФEP HA ДИCKE. 002578 : C.. ДOБEPEM ИMEHA MACTEPA И ФAЙЛA. 002579 : C.. HA BЫXOДE CYM.=ИMЯ ДП 002580 : C ПO T XPAH. ИMЯ MACTEPA(ISO) 002581 : C ПO T+1 - ИMЯ ФAЙЛA 002582 : C ПO T+2 - R/W 002583 : S,VTM,MAS 002584 : C ДOKPYTKA ИMEHИ MЛ И ДП (TEXT) 002585 : ,XTA,APP 002586 : ,U1A,TOM 002587 : L,VTM,.БEЗ ДOKPYTKИ 002588 : TOM:L,UTM,-1.ДO 48P 002589 : ,XTA,ACC 002590 : ДOП:T,ASX,TYPE.T=0 002591 : L,VLM,ДOП 002592 : ,AOX,APP 002593 : S,UJ, 002594 : MAS:,ATX,APP.XPAH. 002595 : T,VTM,4.ISO 002596 : SW,VTM,LIST 002597 : P,VTM,-2.3 ИMEHИ 002598 : TO STEP:L,VTM,-6.ДЛИHA ИMEHИ 002599 : ,UJ,STEP 002600 : LIST:S,UTM,-COMMA 002601 : ,XTA,ACC 002602 : S,VZM,NAME 002603 : S,UTM,COMMA 002604 : ,UJ,JOB 002605 : C ДOПOЛHИM ИMЯ CПPABA ПPOБEЛAMИ 002606 : NAME:L,VZM,FILE 002607 : W1,VTM,NAME.ШAГATЬ ЗДECЬ 002608 : NAME1:,BSS, 002609 : S,VTM,40B.ISO-ПPOБEЛ 002610 : ,UJ,JOB 002611 : FILE:P,ATX,R/W.-2,-1,0 002612 : W1,VTM,STEP.ИЗ CTPOKИ 002613 : P,VLM,TO STEP 002614 : ,XTA,APP 002615 : ,ATX,ACC 002616 : T,VJM,R9.T:=MASTER 002617 : :,BSS,2.MASTER+NAMFIL 002618 : R/W:,BSS,1 002619 : DBUF:P,VZM,NAME 002620 : P,UTM,1 002621 : P,V1M,ERROR.HET ФAЙЛA 002622 : ,XTA,ACC 002623 : W1,VTM,*+1 002624 : :L,VIM,NAME1.ДOKPYTKA 002625 : ,ATX,R/W-1.ИMEHИ ФAЙЛA 002626 : ,XTA,=6HR 002627 : ,UJ,FILE.ПO YMOЛЧAHИЮ-R 002628 : FSLASH:T,UTM,-5.TИП ИMEHИ 002629 : L,VTM,-6.ДЛИHA ИMEHИ 002630 : SW,VTM,TEXT 002631 : ,UJ,F1 002632 : F COMMA:S,VTM,- 2.TИП 002633 : ,WTC,YC L 002634 : L,VTM, 002635 : SW,VTM,DIGIT. 002636 : F1:T,J+M,S. 002637 : S,VIM,ERROR.HE TOT TИП 002638 : ,XTA,ACC. 002639 : T,VIM,NO*NAM 002640 : ,FUN,203B 002641 : NO*NAM:,BSS, 002642 : ,ATX,APP.XPAH. 002643 : ,XTA,. 002644 : ,ATX,ACC.ГAШ. 002645 : ,UJ,STEP... ... 002646 : IF SP:S,UTM,60B - SPACE. 002647 : S,VZM,STEP.ПPOБEЛ 002648 : ERROR:SW,UTM,-FIGURE 002649 : ,XTA, 002650 : TT,VZM,OUT. PASS 002651 : SW,VIM,ERROR1 002652 : T,UTM,-2 002653 : T,VZM,OUT 002654 : ERROR1:T,VTM,C ERR 002655 : ,UJ,DIAGN. 002656 : TYPE:0,OCT,3500 002657 : C BЛEBO ПO 6P 002658 : 1,OCT,3640 0000 0007 7770 002659 : C BЛEBO ПO 3P 002660 : 2,OCT,3640 0000 0007 7770 002661 : 3,LOG,3640 0000 0007 7770.BЛEBO ПO 3P 002662 : 4,OCT,3400 002663 : C BЛEBO ПO 8P 002664 : 5,OCT,3600 0000 0007 7766 002665 : C BЛEBO ПO 4P 002666 : VV:,BSS, 002667 : 1,LOG,4000 0000 0007 7732.-38 002668 : 2,LOG,150000000007 7743.-38,-29 002669 : 3,LOG,77735.-35 002670 : FUL WOR:,LOG,7777 7777 7777 7777. 002671 : C ERR:,ISO,10HOШ.HAБOP'0' 002672 : ACC:,BSS,1 002673 : APP:,BSS,1 002674 : FLAG:,BSS,1 002675 : WORD:,BSS,1 002676 : PYC:,OCT,.P.Я. 002677 : YC L:,BSS,1 002678 : S/W1:,BSS,1 002679 : S/SW:,BSS,1 002680 : ,END, 002681 : MAKE MT:,NAME,. 002682 : C...... ЗAKAЗ БYФEPA HA MД/MЛ 002683 : C 1.2.78. CAПOЖHИKOB. 002684 : *700:B,BLOCK,B48(48) 002685 : BIT30 :,EQU,B48+18 002686 : ABUFSAP :,EQU,2011B 002687 : OPERANDS:,EQU,2007B 002688 : *1:,BLOCK,(1),C,(1),R,AT,W,(1),CA,(4),T 002689 : N CH:,EQU,10 002690 : DELTA:,P*P,(5)(N CH) 002691 : PAБ ЛИCT:,EQU,0 002692 : PAБ ЛИCT:I,BLOCK,(420),*** 002693 : NUMBUS:,EQU,714B 002694 : TEK AДP:,EQU,*** + DELTA 002695 : MБ ИHФ:,EQU,TEK AДP + N CH 002696 : ASTR:,EQU,MБ ИHФ +NCH 002697 : RONLY:,EQU,ASTR +NCH 002698 : FILLEN:,EQU,RONLY+1 002699 : COPYRA:,EQU,FILLEN+NCH 002700 : LPAG:,EQU,COPYRA+NCH 002701 : LASTORD:,EQU,LPAG+NCH 002702 : SC100:,EQU,LASTORD+NCH 002703 : MAXL:,EQU,SC100+1 002704 : *1TAPE:,EQU,MAXL+NCH 002705 : XRS:,EQU,*1TAPE+NCH 002706 : TYP:,EQU,XRS+NCH 002707 : SPB:,EQU,TYP+NCH 002708 : MBINFOWN:,EQU,SPB+NCH 002709 : OLD BUF:,EQU,MBINFOWN+NCH 002710 : C CBOБOДHO:,EQU,OLDBUF+NCH*4. !!!! 002711 : LNRS:,EQU,2000B. 002712 : LNRS:I,BLOCK, 002713 : ,CONT,(3) 002714 : ,CONT,NEXT 002715 : ,CONT,(4) 002716 : ,CONT,DIAGN 002717 : C---------------------------- 002718 : T,VTM,5. 002719 : R,VJM,OPERANDS. 002720 : /////:R,BASE,///// 002721 : ,ATX,NAMT.ИMЯ MЛ/ДП 002722 : C,MTJ,14 002723 : C,J+M,14 002724 : 14,J+M,14.=4*C 002725 : 14,ATX,OLD BUF.ЗAПOMHИM 002726 : T,VZM,ПOИCK.MЛ 002727 : T,XTA, 002728 : 14,ATX,OLDBUF+1.MACTEP 002729 : T,XTA,1 002730 : 14,ATX,OLDBUF+2.ФAЙЛ 002731 : T,XTA,2 002732 : 14,ATX,OLDBUF+3.R/W 002733 : ,UJ,FILE 002734 : OLD MT:,ENTRY, 002735 : R,BASE,///// 002736 : ,ATX,NAMT.ИMЯ MЛ/ДП 002737 : 14,UTM,OLD BUF+1 002738 : T,VTM,0 002739 : 14,XTA, 002740 : ,UZA,ПOИCK.MЛ 002741 : 14,MTJ,T.ФAЙЛ 002742 : ,UJ,FILE 002743 : ПOИCK:AT,VTM,TAKET 002744 : GN:,BSS, 002745 : C,XTA,NUMBUS 002746 : ,*50,72100B+117B.B AUS 002747 : T,VTM,14 002748 : ,*57,4040B 002749 : ,AEX,=7777 7777 7777 7777 002750 : ,ASN,64+16 002751 : ,UZA,TO DIAGN 002752 : ,ANX,=7 002753 : ,ATI,T 002754 : AT,UJ, 002755 : C--- ЗAXBAT MЛ 002756 : TAKET:,XTA,NAMT 002757 : ,*57,2400B 002758 : T,MTJ,W 002759 : ,UZA,MTABS.HET MЛ 002760 : ,ATX,OTBET 002761 : T,VTM,-1 002762 : :,ASN,64-1.HEГOTOB 002763 : ,ARX,.ИЛИ 002764 : ,UZA,DIAGNRB.ЗAHЯT 002765 : T,VLM,*-1 002766 : ,ITA,14.KOЛИЧECTBO 002767 : C,ATX,FILLEN.ЗOH - 1 002768 : ,XTA,OTBET 002769 : C,ASN,64 002770 : ,ATX,OTBET 002771 : C,*65,B48 002772 : ,ATX,WS 002773 : ,AAX,OTBET 002774 : ,AEX,RONLY 002775 : ,AAX,WS 002776 : ,AEX,RONLY.PEЖИM 002777 : ,ATX,RONLY.ЧT/ЗП 002778 : OKF:,ITA,W 002779 : ,ASN,64-39 002780 : C,ATX,MБИHФ 002781 : ,ASN,64+3 002782 : ,AOX,=2 002783 : ,ATX,NAMT 002784 : ,XTA,CINF 002785 : ,*57,-1 002786 : CA,VZM,NEXT 002787 : CA,UJ, 002788 : C--- 002789 : DIAGND:T,UTM,5 002790 : ,UJ,DIAGNRB 002791 : MTABS:T,VTM, 002792 : ,UJ,TODIAGN 002793 : DIAGNF:,ATI,T 002794 : DIAGNRB:T,J+M,T 002795 : T,UTM,4 002796 : C--- 002797 : TODIAGN:T,UTM,PYГAHЬ 002798 : ,XTA, 002799 : C,ATX,TEKAДP 002800 : ,UJ,DIAGN 002801 : C--- 002802 : FILE:,BSS, 002803 : T,XTA, 002804 : ,ATX,MASTER 002805 : T,XTA,1 002806 : ,ATX,FILNAM 002807 : T,XTA,2 002808 : ,ATX,REGIM 002809 : ,AEX,=6HR 002810 : ,UZA,READONLY 002811 : ,*65,BIT30 002812 : READONLY:,ATX,OTBET 002813 : C,ASN,64-18 002814 : ,ATX,I57 002815 : C,*63,B48 002816 : ,AOX,RONLY 002817 : ,AEX,I57 002818 : ,ATX,RONLY 002819 : AT,VJM,GN 002820 : T,MTJ,W 002821 : ,WTC,ABUFSAP 002822 : C,XTA, 002823 : ,ASN,64+30 002824 : ,ASN,64-10 002825 : ,ATI,AT 002826 : ,XTA,NAMT 002827 : ,AAX,=7777 002828 : ,UZA,TOFS 002829 : 14,VTM,NAMT-1 002830 : ,ITA,14 002831 : ,AOX,KEY 002832 : ,ATX,I57 002833 : ,*57,-1.ЗAKAЗ ПAKETA 002834 : ,ASN,64+45 002835 : ,ATI,T.OTBET 002836 : ,U1A,DIAGND 002837 : C--- ПAKET O'KEY 002838 : C--- БYДEM ЗAПPAШИBATЬ ФAЙЛO 002839 : C--- HYЖEH ЛИCT ДЛЯ ЧTEHИЯ KATAЛOГA 002840 : C БEPEM EГO HOMEP ИЗ BUFSAP. 002841 : ,ITA,AT 002842 : ,ASN,64-14 002843 : ,AOX,=20 0001.CПPABKA 002844 : ,ARX,I57 002845 : ,*57,-1.ЗA CПPABKOЙ 002846 : C--- PAЗБOPKA OTBETA 002847 : ,XTA,OTBET 002848 : ,AAX,=40 7777 7777 002849 : ,ATX,ЗAПPOC 002850 : ,ASN,64+12 002851 : ,NTR,3 002852 : ,AAX,=7777 002853 : ,X-A,ЗAПPOC 002854 : ,AAX,=7777 002855 : C,ATX,FILLEN 002856 : ,XTA,OTBET 002857 : ,ASN,64+45 002858 : ,U1A,DIAGNF.HEYДAЧA 002859 : ,ATX,WS.ДЛЯ CЛEД.ПOXOДA 002860 : ,ITA,W 002861 : ,ASN,64-36 002862 : ,AOX,ЗAПPOC 002863 : ,ATX,ЗAПPOC 002864 : ,XTA,I57 002865 : ,ARX,=30 0001 002866 : ,*57,-1.ЗAKAЗ ФAЙЛA 002867 : ,AEX, 002868 : ,UZA,OKF 002869 : ,XTA,ЗAПPOC 002870 : ,ASN,64+42 002871 : ,ATI,T.ФAЙЛ ЗAHЯT ИЛИ 002872 : T,UTM,6.HET MECTA 002873 : ,UJ,TO DIAGN.ЗAHЯT 002874 : C 002875 : C... OБPAЩEHИE K ФAЙЛOBOЙ CИCTEME : 002876 : C 002877 : TOFS:,XTA,=4 002878 : AT,ATX,.JOB 002879 : ,XTA,MASTER 002880 : AT,ATX,1 002881 : ,XTA,FILNAM 002882 : AT,ATX,2 002883 : ,XTA,REGIM.R,W ИЛИ 002884 : AT,ATX,4.CREATE 002885 : ,ITA,W 002886 : AT,ATX,3.LUN 002887 : ,ASN,64-42 002888 : AT,ATX,5 002889 : ,XTA,NAMT 002890 : ,AAX,=3 0000.NFS 002891 : ,ASN,64-24 002892 : AT,AOX,5 002893 : AT,ATX,5 002894 : ,ITA,AT 002895 : AT,AOX,5 002896 : ,AOX,=17 0470 0000 002897 : ,*52,2.*** 002898 : T,VTM,NOPOST-PYГAHЬ 002899 : ,ASN,64+34 002900 : ,U1A,TODIAGN 002901 : AT,ATX,8 002902 : AT,UTC,5 002903 : T,VTM,-PYГAHЬ 002904 : AT,XTA,4 002905 : ,AAX,=7777 002906 : ,U1A,TODIAGN 002907 : AT,XTA,5 002908 : ,AAX,=7777 002909 : C,ATX,FILLEN 002910 : ,UJ,OKF 002911 : NOPOST:,ISO,18HHET ФAЙЛ.CИCTEMЫ'''' 002912 : C======================= 002913 : PYГAHЬ:,BSS, 002914 : 0,ISO,6HMЛ HET 002915 : ,LOG, 002916 : 2,ISO,12HHE ГOTOB MФ'' 002917 : 4,ISO,12HMЛ ЗAHЯTA'''''' 002918 : 6,ISO,12HHET ДOCTYПA'' 002919 : 8,ISO,12HHET ФAЙЛA'''''' 002920 : 10,ISO,12HФAЙЛ ЗAHЯT'''' 002921 : 12,ISO,12HБPEД COБAЧ.'' 002922 : 14,ISO,12HCИДИ И ЖДИ'''' 002923 : 16,ISO,12HHET ПAKETA'''' 002924 : 18,ISO,12HПAKET ЗAHЯT'' 002925 : I57:,Z00, 002926 : ,Z00,NAMT 002927 : KEY:,OCT,6470 7240 40 002928 : CINF:13,070,7240B 002929 : 8,37,NAMT 002930 : REGIM:,BSS,1 002931 : C============= 002932 : :,LOG, 002933 : NAMT:,BSS,1 002934 : ЗAПPOC:,BSS, 002935 : MASTER:,BSS,1 002936 : WS :,BSS, 002937 : FILNAM:,BSS,1 002938 : OTBET :,BSS,1 002939 : **//:,OCT,4 002940 : :,OCT,4 002941 : ,END, 002942 : *D71LOAD:,NAME,. 002943 : LIST:,PC,1024. 002944 : NL:,P/P,(LIST)16 002945 : LC:,EQU,LW-FW. 002946 : MONREAD*:,SUBP,. 002947 : KCOUNT*:LC,BLOCK,KC 002948 : ARREAD*:LC,BLOCK,AR 002949 : LOADLIS*:,LC,1 002950 : *8:,BLOCK,B,L 002951 : B,BASE,*. 002952 : ,ITA,13. 002953 : ,ATX,I13. 002954 : C......... ПEPEПИCЬ KAPT HA MБ '06037' 002955 : L,VTM,-LC. 002956 : ,XTA,LOADLIS* 002957 : ,UZA,LOOP 002958 : ,XTA,=6H* 002959 : ,ATX,DAPR 002960 : LOOP:L,XTA,LW. 002961 : L,UTC,LIST+LC. 002962 : ,ATX,. 002963 : L,VLM,LOOP. 002964 : ,DRUM,INF. 002965 : C......... ЗAПOMИHAHИE YKAЗAT. ЧTEHИЯ 002966 : ,XTA,KC. 002967 : ,ATX,AR. 002968 : ,XTA,KC+1. 002969 : ,ATX,AR+1. 002970 : C......... YCTAHOBKA HOBЫX YKAЗATEЛEЙ 002971 : ,XTA,. 002972 : ,ATX,KC. 002973 : ,XTA,=10 0000 0006 0036. 002974 : ,ATX,KC+1. 002975 : ,XTA,=1. 002976 : ,ATX,KC+2. 002977 : C......... TAЩИM ПEPBYЮ KAPTY 002978 : ,WTC,I13. 002979 : 13,VTM,. 002980 : ,UJ,MONREAD*. 002981 : INF:,,NL. 002982 : ,006,37B. 002983 : FW:,BSS,. 002984 : C ДЛЯ ЗAБЫBЧИBЫX CИCTEMЩИKOB : 002985 : ,ISO,83H*FIX DRUM:00-27 002986 : ,CONT,1H'12' 002987 : ,ISO,83H*MAIN DEBMULT 002988 : ,CONT,1H'12' 002989 : ,ISO,83H*EXECUTE 002990 : ,CONT,1H'12' 002991 : ,ISO,83H*CALL ALLMEMOR 002992 : ,CONT,1H'12' 002993 : ,ISO,83H*MAIN DD86 002994 : ,CONT,1H'12' 002995 : ,ISO,83H*CALL LDSHIFT 002996 : ,CONT,1H'12' 002997 : DAPR:,BSS, 002998 : ,ISO,83H*CALL DATAPR* 002999 : ,CONT,1H'12' 003000 : ,ISO,83H*EXECUTE 003001 : ,CONT,1H'12' 003002 : ,ISO,83H*READ OLD 003003 : ,CONT,1H'12' 003004 : ,ISO,83H*END FILE 003005 : LW:,CONT,1H'12' 003006 : I13:,BSS,1. 003007 : TP4:,BSS,1. 003008 : ,END,. 003009 : Я6I:,NAME, 003010 : ,ITS,7 003011 : 7,BASE,INF 003012 : ,STX,I7 003013 : ,STX,ARRAY 003014 : ,ATX,WORD 003015 : ,ITA,13 003016 : ,ITS,6 003017 : ,ITS, 003018 : 14,VTM,-1 003019 : *1:,XTA, 003020 : ,WTC,ARRAY 003021 : 14,ATX,1 003022 : 13,VTM,-48 003023 : *2:,XTA,WORD 003024 : ,ASN,64-6 003025 : ,ATX,WORD 003026 : ,YTA, 003027 : ,AOX,=I0 003028 : ,NTR,2 003029 : ,E+N,64+3 003030 : 15,ATX, 003031 : ,A/X,=R48.0 003032 : ,NTR,3 003033 : ,A+X,=I0 003034 : ,ATI,6 003035 : ,NTR,2 003036 : ,A*X,=R48.0 003037 : 15,A-X, 003038 : ,NTR,3 003039 : ,A+X,=I0 003040 : 6,UTC,TABLE*6 003041 : ,XTS, 003042 : 15,WTC, 003043 : ,ASN,64 003044 : ,AAX,=:776 003045 : 13,ASN,64+48 003046 : ,WTC,ARRAY 003047 : 14,AOX,1 003048 : ,WTC,ARRAY 003049 : 14,ATX,1 003050 : 13,UTM,8 003051 : 13,VIM,*2 003052 : 14,VLM,*1 003053 : ,XTA,I7 003054 : ,STI,7 003055 : ,STI,6 003056 : ,STI,13 003057 : ,NTR,6 003058 : 13,UJ, 003059 : INF:,BSS, 003060 : TABLE*6:,ISO,20H БЦДФГИ *ЙЛЯЖ/0123 003061 : ,CONT,16H456789Ь'72'П-+ЫЗABC 003062 : ,CONT,20HDEFGHIJKLMNOPQRSTUVW 003063 : ,CONT,8HXYZШЭЩЧЮ 003064 : I7:,BSS,1 003065 : WORD:,BSS,1 003066 : ARRAY:,BSS,1 003067 : ,END,Я6I 003068 : DISPLOAD:,NAME,. 06.02.77 003069 : LOADLIS*:,LC,1 003070 : Я6I:,SUBP,.TEXT TO ISO 003071 : PRINT8//:,SUBP,.ДYБHA 003072 : PRINT8:,SUBP, 003073 : DATAPR*:,SUBP, 003074 : DATE*:,SUBP, 003075 : MONITOR*:,SUBP, 003076 : BAS/DR:,EQU,120B 003077 : /412/:PC,BLOCK,TRP(2048), B(5120) 003078 : LL:,P/P,(TRP)16 003079 : LINE:I,BLOCK,ADR, ADRO 003080 : ,CONT,EL(2),OLD 003081 : ,CONT,OLDA 003082 : 7,BASE,* 003083 : ,*70,IW1 003084 : 6,VTM,TRP 003085 : 6,XTA, 003086 : ,AEX,MON 003087 : ,UIA,SCHEISE 003088 : 2,VTM,0.HOMEP PEЗEPBA 003089 : ,*70,IW2 003090 : 14,VTM,-2 003091 : */*:14,UTC,/412/+2047 003092 : ,XTA, 003093 : ,UZA,NO COMM 003094 : 14,UTC,HEAD+2 003095 : ,ATX, 003096 : 14,VLM,*/* 003097 : NO COMM:,BSS, 003098 : 3,VTM, 003099 : ,XTA,LOADLIS* 003100 : ,UZA,HET 003101 : 3,VTM,-1 003102 : HET:,BSS, 003103 : M LOOP:,BSS, 003104 : 6,VTM,TRP 003105 : 6,XTA,2044 003106 : ,ASN,64+30 003107 : ,ATI,14 003108 : ,ASN,64+1 003109 : ,ARX,=1 003110 : ,AAX,=1777 003111 : ,ATX,SS4 003112 : ,XTA,KOH1 003113 : 14,ATX,TRP 003114 : ,XTA,KOH2 003115 : 14,ATX,TRP+1 003116 : 14,VTM,-100 003117 : 8,VTM, 003118 : /SS:,BSS, 003119 : 6,UTM,2 003120 : 6,XTA,1 003121 : ,AAX,=77777 003122 : ,AEX,=1000 003123 : ,UZA,TYT 003124 : 14,VLM,/SS 003125 : SCHEISE:,*64,SCHINF 003126 : ,SJ, 003127 : TYT:,BSS, 003128 : 14,UTM,101 003129 : ,XTA,SS4 003130 : ,NTR,3 003131 : ,ITS,14 003132 : 15,X-A, 003133 : ,ATX,SS4 003134 : ,ATI,4 003135 : 5,VTM,B 003136 : QQ:4,VZM,FIN** 003137 : 1,VTM,QQ 003138 : 6,XTA, 003139 : ,AEX,KOH1.**KOHEЦ* 003140 : ,UZA,*KOH. 003141 : 8,VZM,BEG1 003142 : 6,XTA,1 003143 : ,AAX,=1777 003144 : ,U1A,ELEM. 003145 : 6,XTA, 003146 : ,AEX,CEND.ДИCПHAMБ 003147 : ,UZA,END1 003148 : *KOH:,BSS, 003149 : 6,XTA,1 003150 : ,AEX,OLDA 003151 : ,AAX,=77777 003152 : ,UZA,ELEM 003153 : C..... ПOДГOTOBKA CПEЦ-ЭЛEMEHTA 003154 : ,ITA,2. 003155 : ,ASN,64-42. 003156 : ,AUX,MA8/1. 003157 : ,AOX,REN. 003158 : ,ATX,EL 003159 : ,XTA,OLD 003160 : ,ASN,64+15 003161 : ,ARX,OLD. 003162 : ,AAX,=77777 003163 : 15,ATX, 003164 : 6,XTS,1 003165 : ,AAX,=77777 003166 : ,ATX,OLDA 003167 : ,NTR,3. 003168 : 15,A-X,. 003169 : ,ASN,64-15 003170 : 15,AOX,. 003171 : ,AOX,=:000001 003172 : ,ATX,EL+1. 003173 : ,ITA,6. 003174 : ,XTS,. 003175 : 6,VTM,EL 003176 : 1,VJM,ELEM 003177 : ,XTA,SS4 003178 : ,ARX,=1 003179 : ,STX,SS4 003180 : ,ATI,6. 003181 : 1,VTM,QQ 003182 : 2,UTM,1. 003183 : 4,UTM,1 003184 : ,UJ,ELEM 003185 : END1:8,VTM, 003186 : ,UJ,ELEM 003187 : BEG1:6,XTA, 003188 : ,AEX,ERES.ERES*1 003189 : ,U1A,ELEM 003190 : 8,VTM,1 003191 : ELEM:,BSS, 003192 : 6,XTS,. 003193 : ,ITS,5. 003194 : ,CALL,Я6I.ИMЯ OБ'EKTA 003195 : ,XTA,=H 003196 : 5,ATX,4 003197 : C.... ПEPEXOД OT 64000 K 70000 003198 : 6,XTA,1 003199 : ,AAX,=77777 003200 : ,ATI,14 003201 : ,ARX,=1 4000 003202 : ,AAX,=70 0000 003203 : :,UZA,*+1.<64000 003204 : 14,UTM,4000B 003205 : :,ITA,14 003206 : ,ASN,64-33 003207 : ,ATX,ADR 003208 : ,ASN,64+45 003209 : ,AOX,=20 003210 : 5,AOX,1 003211 : 5,ATX,1 003212 : ,XTA,ADR 003213 : ,ASN,64-3 003214 : ,AUX,MA8 003215 : ,AOX,DA8/1 003216 : 5,ATX,2.AДPEC ЗAГPYЗKИ 003217 : 6,XTA,1 003218 : ,APX,=7 7777 0 0000 003219 : ,ATX,LEND 003220 : ,AUX,MA8 003221 : ,AOX,DA8 003222 : 5,ATX,3.ДЛИHA OБ'EKTA 003223 : ,XTA,LEND. 003224 : ,UZA,ENTRY. 003225 : 6,XTA,1. 003226 : ,ASN,64+30 003227 : ,UIA,EX1 003228 : ,UJ,SIS. 003229 : ENTRY:6,XTA,1 003230 : ,ASN,64+30 003231 : ,U1A,EX1. 003232 : ,XTA,ADR 003233 : ,ASN,64+33 003234 : ,NTR,3 003235 : ,A-X,ADRO 003236 : ,UZA,SIS. 003237 : 5,XTA,1 003238 : ,AEX,=6H'''''' '''' 003239 : ,AOX,=6H''''''E'''' 003240 : 5,ATX,1 003241 : ,XTA,=H 003242 : 5,ATX,3 003243 : 5,ATX,4 003244 : 3,V1M,EX2. 003245 : 5,XTA,2 003246 : ,AEX,=40 003247 : ,AOX,=6H''''''''''= 003248 : 5,ATX,2 003249 : ,XTA,MAIN 003250 : 5,ATX,3.ИMЯ ГЛABHOГO 003251 : ,XTA,MAIN+1. BXOДA 003252 : ,AAX,=6H'377''377''''''''' 003253 : ,AOX,=6H'''' 003254 : 5,ATX,4.... 003255 : ,UJ,EX2 003256 : SIS:5,XTA,1. 003257 : ,AEX,=6H'''''' '''' 003258 : ,AOX,=6H''''''C'''' 003259 : 5,ATX,1 003260 : EX1:,BSS, 003261 : 6,XTA,1 003262 : ,ATX,OLD. 003263 : EX2:,BSS,. 003264 : ,XTA,LEND 003265 : ,UZA,*10 003266 : ,XTA,ADR 003267 : ,ARX,LEND 003268 : ,ASN,64+33 003269 : ,ATX,ADRO 003270 : 5,XTA,. 003271 : ,ATX,MAIN 003272 : 5,XTA,1 003273 : ,ATX,MAIN+1 003274 : *10:,BSS, 003275 : 6,UTM,2 003276 : 4,UTM,-1 003277 : 5,UTM,5 003278 : 1,UJ,. 003279 : FIN**:,BSS, 003280 : BEGIN:,BSS, 003281 : ,XTA, 003282 : ,CALL,DATAPR* 003283 : 14,VTM, HEAD 003284 : 2,VTM,-1 003285 : 14,XTA, 003286 : ,AEX,=6HДИCПET 003287 : ,ATI,13 003288 : ,XTA,BAS/DR 003289 : 13,VZM,TOPRI 003290 : ,ASN,64-6 003291 : ,YTA, 003292 : ,ASN,64-6 003293 : ,AOX,BAS/DR 003294 : ,ASN,64-36 003295 : TOPRI:,BSS, 003296 : ,AUX,=6H'''7''7''7''7''' 003297 : ,AOX,=6H 0000 003298 : 14,ATX,4 003299 : ,ITS,14 003300 : 14,UTM,4 003301 : ,ITS,14 003302 : ,XTS,=12 003303 : ,CALL,PRINT8// 003304 : 4,VTM,-1 003305 : LL/:14,VTM,=6H 003306 : ,ITS,14 003307 : ,ITS,14 003308 : ,XTS,=3 003309 : ,CALL,PRINT8// 003310 : 4,VLM,LL/ 003311 : ,XTA,KK 003312 : ,ATX,K 003313 : 3,VIM,OL 003314 : ,NTR,3 003315 : ,WTC,SS4 003316 : 4,VTM,-1 003317 : 5,VTM,B-5 003318 : Y1:4,VZM,OL 003319 : 5,UTM,5 003320 : 5,MTJ,9 003321 : 4,MTJ,8 003322 : Y2:8,VZM,Y*1 003323 : 9,UTM,5 003324 : 5,XTA, 003325 : ,ASN,64+8 003326 : 9,XTS, 003327 : ,ASN,64+8 003328 : 15,X-A, 003329 : ,UIA, NO EX 003330 : ,AOX, 003331 : ,UZA,DOP 003332 : SM:,BSS, 003333 : 14,VTM,-4 003334 : *11:14,UTC,4 003335 : 5,XTA, 003336 : 14,UTC,4 003337 : 9,XTS, 003338 : 14,UTC,4 003339 : 5,STX, 003340 : 14,UTC,4 003341 : 9,ATX, 003342 : 14,VLM,*11 003343 : NO EX:,BSS, 003344 : 8,UTM,-1 003345 : ,UJ,Y2 003346 : Y*1:,BSS, 003347 : 4,UTM,-1 003348 : ,UJ,Y1 003349 : OL:,BSS, 003350 : 5,VTM,B 003351 : ,XTA,SS4 003352 : ,ATI,4 003353 : ,ASN,64-2 003354 : ,ARX,SS4 003355 : ,ITS,5 003356 : 15,ARX, 003357 : ,ATX,MAX A 003358 : ,WTC,MKK 003359 : 6,VTM, 003360 : GOOD:,BSS, 003361 : PL*:,ITA,5 003362 : ,NTR,3 003363 : ,X-A,MAX A 003364 : ,UIA,END. 003365 : 14,VTM,-4 003366 : *PT:5,UTC, 003367 : 14,XTA,4 003368 : 14,UTC,4 003369 : ,ATX,LINE 003370 : ,ITA,5 003371 : ,ARX,K 003372 : ,AAX,=77777 003373 : ,NTR,3 003374 : ,X-A,MAX A 003375 : ,UIA,SPACE 003376 : ,WTC,K 003377 : 5,UTC, 003378 : 14,XTA,4 003379 : *44:14,UTC,4 003380 : ,ATX,LINE+5 003381 : 14,VLM,*PT 003382 : 14,VTM,LINE 003383 : ,ITS,14 003384 : 14,UTM,9 003385 : ,ITS,14 003386 : ,XTS,=3 003387 : 5,UTM,5 003388 : ,CALL,PRINT8// 003389 : 6,VLM,GOOD 003390 : ,WTC,K 003391 : 5,UTM, 003392 : 2,UTC,2 003393 : ,WTC,MKK 003394 : 6,VTM, 003395 : 2,UTC,2 003396 : ,XTA,KK 003397 : ,ATX,K 003398 : 2,VLM,EE 003399 : EE:,BSS, 003400 : ,UJ,GOOD 003401 : END:,BSS, 003402 : 13,VJM,PRINT8//+1 003403 : 3,VLM,M LOOP 003404 : ,UJ,MONITOR*+1 003405 : SPACE:,XTA,=6H 003406 : ,UJ,*44 003407 : DOP:,BSS, 003408 : 5,XTA, 003409 : ,ASN,64-40 003410 : 5,XTS,1 003411 : ,ASN,64+8 003412 : 15,AOX, 003413 : ,ASN,64+24 003414 : 9,XTS, 003415 : ,ASN,64-40 003416 : 9,XTS,1 003417 : ,ASN,64+8 003418 : 15,AOX, 003419 : ,ASN,64+24 003420 : 15,X-A, 003421 : ,UIA,NO EX 003422 : ,UJ,SM 003423 : IW1:,010,LL 003424 : ,000,34B 003425 : IW2:,010,LL+100B 003426 : ,000,35B 003427 : SCHINF:,,TSCH 003428 : ,,TSCH 003429 : :,001, 003430 : 8,, 003431 : KK:,INT,310 003432 : ,INT,325 003433 : ,INT,330 003434 : MKK:,INT,-61 003435 : ,INT,-64 003436 : ,INT,-65 003437 : MA8:,GOST,6H777770 003438 : MA8/1:,LOG,707 003439 : ERES:,TEXT,8HERES*1 003440 : CEND:,TEXT,8HДИCПHAMБ 003441 : REN:,TEXT,8H******00 003442 : KOH1:,TEXT,8H**KOHEЦ* 003443 : KOH2:,LOG,1 00000 74000 003444 : HEAD:,ISO,18HДИCПETЧEP OC ДYБHA 003445 : ,ISO,12H : MБ 2013 003446 : DA8:,ISO,6H00000 003447 : DA8/1:,ISO,6H0000 003448 : MON:,TEXT,8HMONITOR* 003449 : TSCH:,GOST,20HOШИБOЧHOE OБPAЩEHИE 003450 : ,CONT,13HK DISPLOAD '133''231' 003451 : MAIN:,ISO,12H 003452 : LINE:,BSS,10 003453 : SS4:,BSS,1 003454 : K:,BSS,1 003455 : MAX A:,BSS,1 003456 : LEND:,BSS,1 003457 : ,END, 003458 : PAЗHИЦA:,NAME, 003459 : TODAY:,LC,1 003460 : CHEKMDFL:,EQU,512B 003461 : NRTABL:,EQU,11B 003462 : KOHHИЗ:,LC, 003463 : *NRP1 :,LC, 003464 : ///:,EQU,KOHHИЗ-*NRP1 003465 : ////:,P/P,(///)1024 003466 : LNRT:,EQU,////+1 003467 : /NRP1:,EQU,524B 003468 : /KH :,EQU,525B 003469 : DISPBASE:,LC,2 003470 : MTP:,EQU,77B 003471 : * И П Д :LC,BLOCK,XNF,XNFM(4),XNC,XNCM 003472 : NMAT1:,WEQ,XNF 003473 : NMATJ:,WEQ,XNFM 003474 : NMAT :,WEQ,XNCM 003475 : *100:B,BLOCK,WOR,INF,MTF 003476 : L1:1,BASE,L1 003477 : ,*65,3 003478 : CБPOШEHHЫЙ PAБ.ДИCП. 003479 : CИДИT HA MБ, HOMEP KOTOPOГO 003480 : COCTABЛЯЮT 1-5 P. 3 T.P. 003481 : ,ATX,WOR 003482 : ,AAX,=37 003483 : ,ASN,64-12 003484 : ,AOX,INFRA 003485 : ,ATX,INFRA 003486 : ,ARX,=:0000 03 003487 : ,ATX,MTF 003488 : ,XTA,WOR 003489 : ,APX,=3737 0000 003490 : ,AUX,=37 0037 003491 : ,U1A,L2 003492 : ,*65,DISPBASE+1 003493 : C...HECTAHДAPTHЫЙ ЭTAЛOH ДИCПETЧEPA 003494 : C...YKAЗЫBAETCЯ B 13-24 P. 3 T.P. 003495 : L2:,AOX,INFET 003496 : ,ATX,INFET 003497 : ,ARX,=:0000 01 003498 : ,ATX,INF 003499 : ,APX,=37 0037 003500 : ,AUX,CNMБ 003501 : ,ARX,ЭД 003502 : C...БAЗA ЭTAЛOHA 003503 : ,ATX,ЭД 003504 : ,XTA,=:0004 003505 : ,*76,KOHTP 003506 : 2,VTM,-3 003507 : ,DRUM,INF 003508 : 3,VTM,10000B 003509 : 4,VTM,-4 003510 : C... ЧTEHИE 0-4 ЛИCTOB ДAMПA 003511 : C B 4-10 ЛИCTЫ ПAMЯTИ 003512 : RDUMP:,BSS, 003513 : ,DRUM,MTF 003514 : ,XTA,=100 0000 0001 003515 : ,ARX,MTF 003516 : ,ATX,MTF 003517 : 4,VLM,RDUMP 003518 : ,FUN,71B 003519 : ,XTA,WOR 003520 : ,AAX,=:0000 02 003521 : ,UZA,NOMT 003522 : 3,XTA,MTP 003523 : NOMT:,ATX,MTF 003524 : ,*63,DISPBASE+1 003525 : CTAPAЯ БAЗA ДИCПETЧEPA 003526 : ,APX,=37 0037 003527 : ,AUX,CNMБ 003528 : ,ARX,PД 003529 : ,ATX,PД 003530 : CЧETЧИK AДPECOB B ДИCПETЧEPE 003531 : 4,VTM,100B 003532 : ,*65,TODAY 003533 : ,ASN,64-5 003534 : ,AUX,CDAT 003535 : ,ARX,DAT1 003536 : C...PACФACOBKA ДATЫ 003537 : ,ATX,DAT1 003538 : 2,VTM,-1677B 003539 : ,*65,TODAY 003540 : ,ASN,64-16 003541 : ,AUX,CDAT1 003542 : ,ARX,DAT2 003543 : ,ATX,DAT2 003544 : 8,VTM,C3 003545 : C...ПEЧATЬ OБOИX БAЗ, ДATЫ И BPEMEHИ 003546 : ,PRINT,ЗAГЛAB 003547 : 5,VTM,*2R 003548 : 6,VTM,-3 003549 : 7,VTM,ADR1 003550 : ,XTA,/NRP1+6000B 003551 : ,ASN,64+10 003552 : ,AAX,=37 003553 : ,ATI,9 003554 : ,ATI,12 003555 : 11,VTM, 003556 : 10,VTM, 003557 : C...PAБ.ДИCП. ЧИTAETCЯ HA 1-Й ЛИCT 003558 : C... ЭTAЛOH - HA 2-Й ЛИCT 003559 : READ:,XTA,=:0004 003560 : ,*76,KOHTP 003561 : ,ITA,11 003562 : ,ARX,INFRA 003563 : ,ATX,INF 003564 : ,DRUM,INF 003565 : ,XTA,2000B 003566 : ,ITA,10 003567 : ,ARX,INFET 003568 : ,ATX,INF 003569 : ,XTA, 003570 : ,*76,KOHTP 003571 : 9,UTM,-1 003572 : ,DRUM,INF 003573 : LOOP:2,XTA,3777B 003574 : 2,AEX,5777B 003575 : COBПAДEHИE C ЭTAЛOHOM 003576 : ,UZA,LOOP1 003577 : ,XTA,WOR 003578 : ,AAX,=:0000 01 003579 : C...MAЛAЯ PAЗHИЦA 003580 : ,UZA,П1 003581 : 2,XTA,5777B 003582 : ,UZA,LOOP1 003583 : C...B БYФEP ДЛЯ ПEЧATИ 003584 : П1:,ITA,4 003585 : 7,ATX, 003586 : 2,XTA,5777B 003587 : 7,ATX,C2-ADR1 003588 : ,ASN,64+24 003589 : 7,ATX,C1-ADR1 003590 : 2,XTA,3777B 003591 : 8,ATX,C4-C3 003592 : ,ASN,64+24 003593 : 8,ATX, 003594 : 7,UTM,ADR2-ADR1 003595 : 8,UTM,C5-C3 003596 : 6,VLM,LOOP1 003597 : 13,VTM,LOOP1 003598 : PRINT BUF:,BSS, 003599 : C...ПEЧATЬ БYФEPA 003600 : 7,VTM,ADR1 003601 : ,PRINT,INFP1 003602 : 8,VTM,C3 003603 : ,PRINT,INFP2 003604 : 6,VTM,-3 003605 : 13,UJ, 003606 : LOOP1:4,UTM,1 003607 : CЛEДYЮЩИЙ AДPEC B ДИCПETЧEPE 003608 : 2,VLM,LOOP 003609 : 2,VTM,-1777B 003610 : 11,UTM,1 003611 : 10,UTM,1 003612 : 9,V1M,READ 003613 : C...ПPOCMOTPEHO ПOЛ-PEЗИДEHTA 003614 : 5,MTJ,13 003615 : ,UJ,PRINTBUF 003616 : *2R:,BSS, 003617 : 11,VTM,34B 003618 : ,XTA,/KH+6000B 003619 : ,ASN,64+10 003620 : ,ATI,10 003621 : 10,UTM,1 003622 : 4,VTM,70000B 003623 : 9,VTM,4 003624 : 5,VJM,READ 003625 : 3,VTM,1-LNRT 003626 : C...ПOШЛИ ГYЛЯTЬ ПO HEPEЗИДEHTY 003627 : TO NRP:,BSS, 003628 : ,UTC,10000B 003629 : 12,XTA,NRTABL 003630 : ,AAX,=37 003631 : ,ATI,11 003632 : 12,MTJ,10 003633 : 9,VTM,1 003634 : ,UZA,NEXTNRP 003635 : ,PRINT,ANRP 003636 : ,ITA,12 003637 : ,ASN,64-10 003638 : ,ATI,4 003639 : 5,VJM,READ 003640 : NEXTNRP:12,UTM,1 003641 : 4,UTM,2000B 003642 : ,XTA,NRP 003643 : ,ARX,=400 003644 : ,ATX,NRP 003645 : ,AEX,NRP10/ 003646 : ,U1A,NO10 003647 : ,XTA,NRP10 003648 : ,ATX,NRP 003649 : NO10:3,VLM,TONRP 003650 : C..... ПEЧATЬ ИПЗ 003651 : ,XTA,HEAD1 003652 : ,ATX,STR1.ЗAГOЛOBOK 003653 : 3,VTM,-NMAT 003654 : ,WTC,6502B 003655 : 8,VTM,.AДP.ГYC-A 003656 : PRIPZ:8,UTC,NMATJ+7777B 003657 : 3,XTA,NMAT 003658 : ,AAX,=76000.A ИПЗ 003659 : ,UZA,EPRI.ИПЗ HET 003660 : ,ATI,4 003661 : 2,VTM,-1777B 003662 : LPL:6,VTM,-3 003663 : 13,VJM,PRINTLIS 003664 : EPRI:3,VLM,PRIPZ 003665 : C..... ПEЧATЬ PAБ.ЛИCTA MT. 003666 : ,XTA,MTF 003667 : ,UZA,STOP.HE TPEБYETCЯ 003668 : ,ATI,4.HAЧ.AДPEC 003669 : ,XTA,HEAD2 003670 : ,ATX,STR1.ЗAГOЛOBOK 003671 : 6,VTM,-3 003672 : 13,VTM,STOP 003673 : C.... ПOДПP-MA PACПEЧATKИ 1 ЛИCTA 003674 : PRINTLIS:,ITA,4 003675 : ,ASN,64+10 003676 : ,ARX,INFRA 003677 : ,ATX,INF 003678 : ,XTA,=:0004 003679 : ,*76,KOHTP 003680 : 7,VTM,ADR1 003681 : ,*70,INF 003682 : C--- 003683 : LOOP/:2,XTA,3777B 003684 : ,UZA,LOOP// 003685 : 7,ATX,C2-ADR1 003686 : ,ASN,64+24 003687 : 7,ATX,C1-ADR1 003688 : ,ITA,4 003689 : 7,ATX, 003690 : 7,UTM,ADR2-ADR1 003691 : 6,VLM,LOOP// 003692 : ,PRINT,INFP1 003693 : 7,VTM,ADR1 003694 : 6,VTM,-3 003695 : LOOP//:4,UTM,1 003696 : 2,VLM,LOOP/ 003697 : ,XTA, 003698 : ,*76,KOHTP 003699 : 2,VTM,-1777B 003700 : ,PRINT,INFP1 003701 : 13,UJ, 003702 : C--- 003703 : STOP:,SJ, 003704 : HEAD1:,GOST,4HИПЗ'231' 003705 : HEAD2:,GOST,4HMLT'231' 003706 : KOHTP:,WTC,CHEKMDFL 003707 : ,ATX, 003708 : ,MTJ,27B 003709 : 2,IJ, 003710 : ANRP:,,NRP 003711 : ,,NRP 003712 : :,002, 003713 : 8,004, 003714 : NRP:,GOST,6HNRP 1'231' 003715 : NRP10/:,GOST,6HNRP +'231' 003716 : NRP10 :,GOST,6HNRP10'231' 003717 : ЗAГЛAB:,,DAT1 003718 : ,,ЭД 003719 : :,020, 003720 : 8,064, 003721 : DAT1:,GOST,6H00.00. 003722 : DAT2:,GOST,6H00 003723 : ,GOST,12H PAБ. ДИCП.- 003724 : PД:,GOST,6H0000 003725 : ,GOST,12H ЭT. ДИCП.- 003726 : ЭД:,GOST,6H0000'231' 003727 : INFP1:,,STR1 003728 : ,,ESTR1 003729 : :0,001, 003730 : ,003, 003731 : :2,005,5 003732 : ,005, 003733 : :2,013,8 003734 : ,011,1 003735 : :2,040,5 003736 : ,005, 003737 : :2,046,8 003738 : ,011,1 003739 : :2,073,5 003740 : ,005, 003741 : :2,101,8 003742 : ,011,1 003743 : :2,126,5 003744 : ,005, 003745 : :2,134,8 003746 : 8,011,1 003747 : INFP2:,,STR2 003748 : ,,ESTR2 003749 : :0,001, 003750 : ,003, 003751 : :2,013,8 003752 : ,011,1 003753 : :2,046,8 003754 : ,011,1 003755 : :2,101,8 003756 : ,011,1 003757 : :2,134,8 003758 : 8,011,1 003759 : STR1:,GOST,4HЭT.'231' 003760 : ADR1:,BSS,1 003761 : C1:,BSS,1 003762 : C2:,BSS,1 003763 : ADR2:,BSS,1 003764 : ,BSS,7 003765 : ESTR1:,BSS,1 003766 : STR2:,GOST,4HCP.'231' 003767 : C3:,BSS,1 003768 : C4:,BSS,1 003769 : C5:,BSS,1 003770 : ,BSS,4 003771 : ESTR2:,BSS,1 003772 : CDAT1:,GOST,6H'17''17''''''''' 003773 : CDAT:,GOST,6H'3''17''''1''17''' 003774 : CTIM:,GOST,6H'17''17''''17''17''' 003775 : CNMБ:,GOST,6H'3''7''3''7''''' 003776 : INFRA:,014,100B 003777 : ,, 003778 : INFET:,014,200B 003779 : ,, 003780 : ,END, 003781 : OCTOPOЖH: ,NAME, 003782 : C 003783 : C******** ПPOГPAMMA - 'OCTOPOЖHO' 003784 : C---BEPETEHOB-ГOЛYБEB ЛETO 1973 K, ИH-T AKYCTИKИ-- 003785 : C---HOCЛOBHAЯ ПEPEПИCЬ C ПOCЛEДOBATEЛЬH-81MИ----- 003786 : C---ПPEPЫBAHИЯMИ OCHOBHOГO ЦИKЛA ДЛЯ--------- 003787 : C---BЫПOЛHEHИЯ PAЗЛИЧHЫX PAБOT--------------- 003788 : C 003789 : C--- '1' B 16-M PAЗPЯДE T.P.3 ЗAДAET 003790 : C--- CДBИГ ФAЙЛA HA 1000 ЗOH --- 003791 : B42:,EQU,=:004 003792 : BIT1:,EQU,757B 003793 : B1:,EQU,=1 003794 : DINF:,EQU,INFD 003795 : TINF:,EQU,INFT 003796 : LIST:,EQU,2000B 003797 : LIST1:,EQU,4000B 003798 : EL:,P/P,(LIST)16 003799 : ДHЗ:,LC,1 003800 : TABLEMT:LC,BLOCK,(16),T1MT 003801 : ATT:,EQU,LIST+1776B 003802 : ND:,EQU,5.ЧИC. ПPOBEPOK MБ 003803 : *1:,BLOCK,B,L,/H,/D,/1,R 003804 : *1700:B,BLOCK,WS,INF3,KOHБИБ 003805 : ,CONT,INFC,INF,LIBINF 003806 : *2:,BLOCK,PR,PW,NSL,N40,TSK,FR,CN 003807 : C:,BSS, 003808 : B,BASE,* 003809 : ,*65,3 003810 : ,ASN,64-33 003811 : ,ATX,WS 003812 : ,ARX,BIT46 003813 : ,U1A,ERROR.OШ. N HAПP. 003814 : ,XTA,WS 003815 : ,ASN,64+42 003816 : ,ATI,L.ФИЗ. N MФ 003817 : L,*65,T1MT-30B 003818 : ,ASN,64+36 003819 : ,U1A,ERROR.MЛ ЗAHЯTA 003820 : ,XTA,WS 003821 : ,AUX,MAS MT 003822 : ,AOX,INFT.ИHФ. CЛOBO 003823 : ,ATX,INFT 003824 : ,AOX,B42 003825 : ,ATX,INF3 003826 : ,*65,3 003827 : ,AAX,=10 0000 003828 : ,ASN,64+6 003829 : ,AOX,INFT 003830 : ,ATX,INFT 003831 : ,ARX,=77 003832 : ,ATX,T/MON 003833 : ,*76,ДAЙИMЯ 003834 : PR,VTM,2000B 003835 : PW,VTM, 003836 : N40,VTM, 003837 : NSL,VTM,3401B 003838 : TSK,VTM,TASK1 003839 : FR,VTM,1 003840 : 15,VTM,10000B 003841 : ,CTX,.KOHTPOЛЬ KOMAHДЫ 003842 : C***OCHOBHOЙ ЦИKЛ************* 003843 : RW40:,BSS, 003844 : NSL,V1M,*1 003845 : N40,VZM,NO40 003846 : N40,UTM,-1 003847 : NSL,VTM,32 003848 : *1:,BSS, 003849 : FR,VZM,CHCK 003850 : C---ДAЙ CЛOBO--- 003851 : PR,MTJ,14 003852 : 14,UTM,-1024 003853 : 14,V1M,ROLDT 003854 : ,TAPE,TINF 003855 : ,XTA,TINF 003856 : ,ARX,B1 003857 : ,ATX,INFT 003858 : PR,VTM, 003859 : ROLDT:,BSS, 003860 : PR,XTA,LIST 003861 : PR,UTM,1 003862 : CHCK:,BSS, 003863 : NSL,UTM,-1 003864 : NSL,V1M,WW 003865 : NO40:,BSS, 003866 : TSK,UTC, 003867 : N40,VZM, 003868 : N40,UTM,-1 003869 : NSL,VTM,40B 003870 : WW:,BSS, 003871 : C ЗAПИCЬ CЛOBA 003872 : PW,MTJ,14 003873 : 14,UTM,-1024 003874 : 14,V1M,WOLDT 003875 : PW,VTM, 003876 : ,XTS, 003877 : ,DRUM,DINF 003878 : ,XTA,DINF 003879 : ,ARX,=7741 003880 : ,AAX,MINF 003881 : ,STX,DINF 003882 : WOLDT:,BSS, 003883 : PW,ATX,LIST+1024 003884 : PW,UTM,1 003885 : ,UJ,RW40 003886 : C*********************** 003887 : AWAY:,BSS, 003888 : 12,VTM,BAD SYS 003889 : ,TAPE,T/MON.LIST 003890 : ,XTA,LIST+111B 003891 : ,AEX,MNT 003892 : ,U1A,DIAGN 003893 : ,DRUM,S/CAT.LIST1 003894 : ,XTA,LIST1+1400B 003895 : ,AEX,MNT 003896 : ,U1A,DIAGN 003897 : ,XTA,LIST1+1401B 003898 : ,ASN,64-3.ЧИCЛO 003899 : ,ASN,64+38.CBOБ.ЗOH 003900 : ,UZA,DIAGN 003901 : ,XTA,LIST1+1403B 003902 : ,ASN,64-3.HAЧAЛO 003903 : ,ASN,64+38.CTATИKИ 003904 : ,NTR,3 003905 : ,A-X,=1041.MИHYC 1 ЗOHA 003906 : ,ASN,64-38 003907 : ,AUX,=37 0037 003908 : ,AOX,W/MON 003909 : ,ATX,WS 003910 : ,ASN,64-38 003911 : ,AUX,=6H'3''7''3''7''''' 003912 : ,AOX,=6H0000'''' 003913 : 12,ATX,2 003914 : ,DRUM,WS 003915 : DIAGN:,ITA,12 003916 : ,FUN,76B 003917 : ,XTA,FULWOR 003918 : ,AEX,B1 003919 : ,ARX,DINF 003920 : ,AAX,MINF 003921 : ,ATX,DINF 003922 : CH2:,XTA,INF0 003923 : ,ATX,INFC 003924 : CH3:12,VTM,SYSDAT 003925 : ,DRUM,INFC 003926 : ,XTA,INFC 003927 : ,ARX,=7741 003928 : ,AAX,MINF 003929 : ,ATX,INFC 003930 : ,AEX,INFD 003931 : ,ASN,64-30 003932 : ,U1A,CH3 003933 : ,DRUM,INFTT 003934 : ,XTA,ATT 003935 : ,ATX,DAT 003936 : ,XTA,ATT+1 003937 : ,ATX,DAT+1 003938 : FINISH:,ITA,12 003939 : ,FUN,76B 003940 : ,*62, 003941 : ERROR:12,VTM,=6HTP-3?'' 003942 : ,UJ,FINISH 003943 : ДAЙ ИMЯ :,BSS, 003944 : ,MTJ,27B 003945 : ,XTA,ДHЗ 003946 : ,ASN,64-42 003947 : ,AOX,BIT1 003948 : L,ATX,T1MT-30B 003949 : 14,VTM,INF3 003950 : ,UJ,570B 003951 : C---БЛOKИ PAБOT--- 003952 : C---ЗAПOMИHAHИE ИHФ. OVERLAY'Я--- 003953 : TASK1:,BSS, 003954 : TSK,VTM,TASK1/ 003955 : NSL,VTM,1 003956 : 15,ATX, 003957 : ,AEX,MNT 003958 : ,UZA,** 003959 : NSL,VTM, 003960 : N40,VTM,250B 003961 : TSK,VTM,TASK2 003962 : ,XTA, 003963 : ,ATX,INF 003964 : **:,BSS, 003965 : ,STX, 003966 : ,UJ,WW 003967 : TASK1/:,BSS, 003968 : ,ATX,INF 003969 : NSL,VTM,37B 003970 : N40,VTM,247B 003971 : TSK,VTM,TASK2 003972 : ,UJ,WW 003973 : C---ЗAПOMИHAHИE CBOБ. MEC0A БИБЛ.--- 003974 : TASK2:,BSS, 003975 : ,CTX,1.OTKЛЮЧEHИE KK 003976 : ,ATX,LIBINF 003977 : NSL,VTM,3 003978 : TSK,VTM,TASK3 003979 : CN,VTM,1-1023 003980 : ,UJ,WW 003981 : C---KOPPEKTИPOBKA KATAЛOГA--- 003982 : TASK3:,BSS, 003983 : 15,ATX, 003984 : ,AAX,=:2 003985 : ,UZA,NOFIS 003986 : ,XTA,=:4 003987 : NOFIS:,BSS, 003988 : 15,AOX, 003989 : NSL,VTM,2 003990 : CN,VLM,WW 003991 : ,XTS,LIBINF 003992 : ,NTR,3 003993 : ,A-X,=2122000 003994 : ,NTR,16 003995 : ,ASN,64+5 003996 : ,STI,N40 003997 : TSK,VTM,TASK4 003998 : NSL,VTM, 003999 : ,UJ,WW 004000 : TASK4:,BSS, 004001 : C---PEAЛИЗAЦИЯ PAЗPЫBA COMMON-OVERLAY--- 004002 : ,XTS,INF 004003 : ,U1A,*2 004004 : ,STX, 004005 : ,UJ,END 004006 : *2:,BSS, 004007 : ,ASN,64+30 004008 : ,STI,N40 004009 : TSK,VTM,TASK5 004010 : FR,VTM, 004011 : ,UJ,WW 004012 : TASK5:,BSS, 004013 : C---ПEPEПИCЬ OVERLAY--- 004014 : FR,VTM,1 004015 : ,XTS,INFD 004016 : ,APX,=770037 004017 : ,ASN,64+27 004018 : ,ITS,PW 004019 : 15,AOX, 004020 : ,ARX,B1 004021 : ,XTS,INF 004022 : ,AAX,=77777 00000 004023 : ,ASN,64+5 004024 : ,ARX,=21 00000 004025 : ,NTR,3 004026 : 15,A-X, 004027 : ,NTR,16 004028 : ,ASN,64+5 004029 : ,STI,N40 004030 : TSK,VTM,END 004031 : ,UJ,WW 004032 : C ДOCБPOC БYФEPA--- 004033 : END:,BSS, 004034 : FR,VTM, 004035 : NSL,VTM,1 004036 : TSK,VTM,END1 004037 : ,UJ,WW 004038 : END1:,BSS, 004039 : PW,VTM,2000B 004040 : NSL,VTM,1 004041 : TSK,VTM,AWAY 004042 : ,UJ,WW 004043 : INFTT:,014,EL 004044 : ,021,10B 004045 : INFT:,014,EL 004046 : , ,0 004047 : INFD:,004,EL+64 004048 : ,021, 004049 : INF0:,014,EL 004050 : ,021,10B 004051 : SYSDAT:,ISO,10HCИCTEMA OT 004052 : DAT:,BSS,2 004053 : MNT:,TEXT,8HMONITOR* 004054 : FULWOR:,LOG,7777 7777 7777 7777 004055 : BIT46:,OCT,1 004056 : MASMT:,LOG,77 0777 004057 : MINF:,LOG,7777 7777 7777 0037 004058 : BAD SYS:,ISO,18HCИCTEMA ИCПOPЧEHA'' 004059 : OK SYS:,ISO,18HMOHИTOP HA 2137'''' 004060 : S/CAT:,014,EL+64 004061 : ,021,1 004062 : W/MON:,004,EL 004063 : ,, 004064 : T/MON:,BSS,1 004065 : ,END, 004066 : ПPOOБMEH:,NAME, 004067 : C 004068 : C********* ПPOГPAMMA OБMEHA BHEШHИX HAKOПИTEЛEЙ 004069 : C 004070 : C******* PEДAKЦИЯ OT 10.9.76 ******* 004071 : C 004072 : C KOЛ-BO ЗOH ЗAДAETCЯ B 31-40 PAЗPЯДAX 004073 : C / T.E. MOЖHO БOЛЬШE 1000 ЗOH / 004074 : C 004075 : C 1 B 41 PAЗPЯДE - CДBИГ ФAЙЛA ЗAПИCИ HA 1000 ЗOH 004076 : C 1 B 42 PAЗPЯДE - CДBИГ ФAЙЛA ЧTEHИЯ HA 1000 ЗOH 004077 : C 004078 : C 1 B 43 PAЗPЯДE - ЗAПИCЬ HA MOДEЛЬ MЛ 004079 : C 1 B 44 PAЗPЯДE - ЧTEHИE C MOДEЛИ MЛ 004080 : C / B ЭTИX CЛYЧAЯX HOMEP YCTPOЙCTBA - БAPAБAHHЫЙ / 004081 : C 004082 : A ГYC:,EQU,502B. 004083 : A TMT:,EQU,504B. 004084 : ATNMT:,EQU,505B 004085 : A TELOUT:,EQU,510B. 004086 : *100:B,BLOCK, 004087 : ,CONT,WS,WS1,WS2,BUF(6) 004088 : ,CONT,(6),ИHФ,ДHЗ,TP3,ИCЧT(3),ИCЗAП(3),(6) 004089 : DB:,EQU,2 523B. 004090 : 7,BASE,* 004091 : ,*65,3 004092 : ,ATX,TP3 004093 : C ПPOBEPKA KOЛ-BA ЗOH/TPAKTOB 004094 : ,ASN,64+30 004095 : ,AAX,=1777 004096 : ,UZA,OШИHФ.PABHO 0 004097 : ,NTR,3 004098 : ,X-A,=1640 004099 : ,U1A,OШИHФ.БOЛЬШE 1000B 004100 : ,A-X,=1637 004101 : ,ATI,1.KOЛ-BO ЗOH/TPAKTOB 004102 : ,*65,ATMT 004103 : ,ATI,10.T1MT 004104 : ,*65,ATNMT 004105 : ,ATI,11.TANAMEMT 004106 : ,*65,AГYC 004107 : ,ATI,3 004108 : 3,*65, 004109 : ,AAX,=:77 004110 : ,ATX,ДHЗ 004111 : ,XTA,TP3. 004112 : ,AAX,B48/46. 004113 : ,AEX,B48/46. 004114 : ,ATX,WS. 004115 : ,AEX,BIT46. 004116 : ,ATX,WS2. 004117 : 2,VTM,ИCЧT 004118 : 12,VTM,-47 004119 : ,XTA,TP3 004120 : 3,VJM,FORMNP 004121 : 13,VTM,3.OШHAБ 004122 : 15,VTM,200B.MAГAЗИH 004123 : ,XTA,TP3 004124 : ,ASN,64-18 004125 : 4,VTM,=14 01. 004126 : 3,VJM,TPИC. OБPAБOTKA YKAЗATEЛEЙ ЧTEHИЯ 004127 : 4,VTM,=14 02. 004128 : ,XTA,WS2. 004129 : ,UZA,CHEK1. 004130 : 4,VTM,=04 01. 004131 : CHEK1:,BSS,. 004132 : 2,VTM,ИCЗAП 004133 : ,XTA,TP3 004134 : ,ASN,64-1 004135 : 3,VJM,FORMNP 004136 : 8,VTM,-11 004137 : ,XTA,TP3 004138 : ,ASN,64-33 004139 : 3,VJM,TPИC. OБPAБOTKA YKAЗATEЛEЙ ЗAПИCИ 004140 : ,XTA,WS. 004141 : ,U1A,ЦИKЛ. 004142 : Ц0:8,XTA,ИCЧT+11 004143 : 8,ATX,BUF+11 004144 : 8,VLM,Ц0. 004145 : 8,VTM,76103B. 004146 : ЦИKЛ:,BSS, 004147 : 9,VTM, 004148 : ,XTA,ИCЧT+7 004149 : ,AEX,ИCЗAП+7 004150 : ,U1A,ЦИKЛ1 004151 : ,ATX,ИCЧT+7 004152 : ,ATX,ИCЗAП+7 004153 : ЦИKЛ1:,BSS, 004154 : C.........ЦИKЛ ПEPEПИCИ C BY HA BY 004155 : 2,VTM,ИCЧT 004156 : 3,VJM,OБMEH. ЗA ЧTEHИEM 004157 : ,XTA,WS. 004158 : ,U1A,NODIS2.ПEPEПИCЬ HE ДИCПETЧEPA 004159 : 9,V1M,DIS1.AДPEC DISPBASE ECTЬ 004160 : ,XTA,DB. 004161 : ,ASN,64+10. 004162 : ,AAX,=37. 004163 : ,ARX,ИHФ.ИC OБMEHA (DISPBASE) 004164 : ,ATX,WS1. 004165 : ,XTA,DB. 004166 : ,AOX,=76000. 004167 : ,AEX,=74000. 004168 : ,ATI,9. 004169 : DIS1:,XTA,WS1. 004170 : ,AEX,ИHФ. 004171 : ,U1A,DIS2.HE TPAKT C DISPBASE 004172 : C......... ПPABKA БAЗЫ ДИCПETЧEPA 004173 : ,XTA,BUF+3. 004174 : ,AUX,ИHФMБ. 004175 : ,AOX,=:0004. 004176 : 9,ATX,1. 004177 : ,XTA,BUF+3. 004178 : ,AUX,=70 0000 0000 1774. 004179 : 9,ATX,. 004180 : C......... ПOДCЧET KOHTPOЛЬHOЙ CYMMЫ 004181 : DIS2:,XTA,KC. 004182 : ,ARX,KC. 004183 : ,ARX,KC. 004184 : 8,ARX,3777B. 004185 : ,ATX,KC. 004186 : 8,VLM,DIS2. 004187 : 8,VTM,1-1024. 004188 : NODIS2:,BSS,. 004189 : 2,VTM,ИCЗAП 004190 : 3,VJM,OБMEH. ЗA ЗAПИCЬЮ 004191 : ,XTA,WS2. 004192 : ,UZA,CHEK2. 004193 : KЦ:,BSS,. 004194 : 1,VLM,ЦИKЛ1 004195 : ,XTA,WS. 004196 : ,UZA,DIS3. 004197 : ,SJ,. 004198 : DIS3:,BSS,. 004199 : C......... BHECEHИE KOHTPOЛЬHOЙ CYMMЫ HA MБ 004200 : 2,VTM,BUF. 004201 : 3,VJM,OБMEH. 004202 : ,XTA,KC. 004203 : ,ATX,2101B. 004204 : 2,VTM,BUF+3. 004205 : 3,VJM,OБMEH. 004206 : ,SJ, 004207 : CHEK2:14,VTM,1-1024. 004208 : 13,VTM,.HECOBПAДEHИE 004209 : :14,XTA,3777B. 004210 : 14,AEX,5777B. 004211 : ,UIA,BAD. 004212 : 14,VLM,*-1. 004213 : ,UJ,KЦ. 004214 : BAD:,XTA,ИHФ. 004215 : ,ASN,64-30 004216 : ,AUX,=6H'7''7''7''7''7''7' 004217 : ,AOX,=6H000000 004218 : ,ATX,AДP. 004219 : ,*76,HECO. 004220 : OБMEH:,BSS, 004221 : C.........ЧTEHИE/ЗAПИCЬ ЗOHЫ/TPAKTA+KOPPEKЦИЯ ИC 004222 : C ПOЛYЧEHИE ИC OБMEHA 004223 : 2,XTA, 004224 : 2,AUX,1 004225 : ,ATX,ИHФ. 004226 : 2,XTA,. 004227 : ,ASN,64-30. 004228 : ,AOX,ИHФ. 004229 : 2,AOX,6.БИT MOДEЛИ+CДBИГ 004230 : ,ATX,ИHФ 004231 : 2,XTA,7 004232 : ,UZA,OBMEN1 004233 : POISK:11,UTC,-16 004234 : 12,*65,47 004235 : 2,AEX,7 004236 : ,UZA,BOT 004237 : KOP:12,VLM,POISK 004238 : ,UJ,OBMEN1 004239 : BOT:10,UTC,-16 004240 : 12,*65,47 004241 : ,AEX,ДHЗ 004242 : ,AAX,=:77 004243 : ,U1A,KOP 004244 : 12,UTM,47+10B 004245 : ,ITA,12 004246 : ,ASN,64-12 004247 : ,XTS,ИHФ 004248 : ,AAX,=7777 7777 7700 7777 004249 : 15,AOX, 004250 : ,ATX,ИHФ 004251 : OBMEN1:,BSS, 004252 : 12,VTM,-47 004253 : ,*70,ИHФ.COБCTBEHHO OБMEH 004254 : 2,XTA, 004255 : 2,ARX,2.ПEPEAДPECAЦИЯ ИC 004256 : 2,ATX, 004257 : 3,UJ, 004258 : FORMNP:,APX,=:024 004259 : ,AUX,=1000 0000 0000 1000 004260 : 2,ATX,6 004261 : 3,UJ, 004262 : TPИC:,BSS, 004263 : C.........OБPAБOTKA YKAЗATEЛЯ ЧTEHИЯ/ЗAПИCИ 004264 : ,AAX,B48/34 004265 : 2,ATX,. 004266 : C ПPOBEPKA HOMEPA HAПPABЛEHИЯ 004267 : ,AAX,B48/46 004268 : ,UZA,OШИHФ.HOMEP HAПPABЛ.=0 004269 : ,AEX,B48/46 004270 : ,UZA,OШИHФ.HOMEP HAПPABЛ.=7 004271 : 2,XTA, 004272 : ,ARX,BIT46 004273 : ,U1A,OБMБ 004274 : C ПOЛYЧEHИE ИMEHИ MЛ ЗAHECEHИE EГO B TAБЛИЦY 004275 : 2,XTA,6.ЛИШHИЙ 004276 : ,ASN,64+10.PAЗPЯД 004277 : ,U1A,OШИHФ.MOДEЛИ 004278 : LENTA:,BSS, 004279 : 2,XTA, 004280 : ,ASN,64+42 004281 : ,ATI,5.N MAГHИTOФOHA 004282 : ,ASN,64-12 004283 : ,AOX,=54 0000 0000 0000 004284 : 2,AOX,6 004285 : ,ATX,ИHФ 004286 : ,TAPE,ИHФ. ЧTEHИE ИMEHИ MЛ 004287 : 2,ATX,7 004288 : ,*76,ЗAПИM.HA ЗAПИCЬ ИMEHИ 004289 : 5,VTM,ИHФMЛ 004290 : ,UJ,MБMЛ 004291 : ЗAПИM:,BSS, 004292 : ,WTC,ATNMT 004293 : 5,ATX,-30B 004294 : ,WTC,A TMT. 004295 : 5,XTA,-30B. 004296 : ,ASN,64+36. 004297 : 14,UIA,ЗAHЯT-ЗAПИM. 004298 : ,WTC,A ГYC. 004299 : ,XTA,. 004300 : ,ASN,64+42. 004301 : ,ASN,64-42. 004302 : ,WTC,A TMT. 004303 : 5,ATX,-30B. 004304 : ,MTJ,27B 004305 : 2,32, 004306 : OБMБ:,BSS,. 004307 : 2,XTA,6 004308 : ,AAX,BIT46 004309 : ,U1A,LENTA 004310 : 2,XTA,6 004311 : ,U1A,OШИHФ 004312 : 2,ATX,7.BMECTO ИMEHИ 004313 : 2,XTA, 004314 : ,APX,=77037 00000 00000 0 004315 : 2,ATX, . ЗAГOTOBKA ДЛЯ ИC 004316 : 5,VTM,ИHФMБ 004317 : MБMЛ:,BSS, 004318 : 5,XTA, 004319 : 2,ATX,1.MACKA PACПAKOBKИ ИC 004320 : 5,XTA,1 004321 : 2,ATX,2.K-TA ПEPEAДPECAЦИИ 004322 : 2,XTA, 004323 : 4,AOX, 004324 : 2,ATX, 004325 : 3,UJ, 004326 : OШИHФ:,BSS, 004327 : 13,VTM,3 004328 : ,*76,OШHAБ. 004329 : 14,REL,OШHAБ. 004330 : ЗAHЯT:14,UTM,OШHAБ-ЗAПИM. 004331 : 13,VTM,5 004332 : OШHAБ:,BSS, 004333 : HECO:,BSS, 004334 : 13,UTM,ERT1 004335 : ER:,ITA,13. 004336 : ,WTC,A TELOUT. 004337 : 14,VJM,. 004338 : 13,VTM,2013B. 004339 : 13,MTJ,27B. 004340 : 13,VTM,574B. 004341 : 13,MTJ,33B. 004342 : 3,IJ,. 004343 : ERT1:,ISO,6HПЛOXO 004344 : AДP:,BSS,2. 004345 : ERT2:,ISO,12HOШ.HAБOP'''''''' 004346 : ERT3:,ISO,12HMФ ЗAHЯT'''''''' 004347 : ИHФMБ:,BSS,. 004348 : ,LOG,77 0037. 004349 : ,OCT,0002. 004350 : ИHФMЛ:,BSS,. 004351 : ,LOG,77 0777. 004352 : ,OCT,00001. 004353 : B48/34:,OCT,77777. 004354 : B48/46:,OCT,7. 004355 : BIT46:,OCT,1. 004356 : KC:,BSS,1. 004357 : ,END,. 004358 : NRESERR:,NAME, 004359 : C PEДAKЦИЯ OT 20.02.76 004360 : C (Л.KAMИHCKИЙ,И.CИЛИH,A.ГYCEB) 004361 : ' YBEЛИЧEHИE ЧИCЛA ШИФPOB - 03.07.78 004362 : C 004363 : C 22.03.84 - PEДAKЦИЯ B.BEPETEHOBA 004364 : C ( OCA HA PAЗДEЛE , 004365 : C ENCODE/DECODE ЧEPEЗ ЭK ) 004366 : C 004367 : *ИПД:LC,BLOCK, 004368 : ,CONT,(50) 004369 : ,CONT,FLERBUS 004370 : SCDEBUG:,EQU,*ИПД+71B 004371 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 004372 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 004373 : C***** ИCПOЛЬЗYEMЫE ЯЧEЙKИ ИПЗ : 004374 : S33:,EQU,3 004375 : S32:,EQU,4 004376 : S27:,EQU,5 004377 : I14:,EQU,10B 004378 : I9:,EQU,15B 004379 : S34:,EQU,26B 004380 : S35:,EQU,27B 004381 : COPYS32:,EQU,46B 004382 : COPYI14:,EQU,47B 004383 : M:,EQU,100B 004384 : REGSCAL:,EQU,M 004385 : COPYS33:,EQU,M+6 004386 : SCJOTЛ:,EQU,564B 004387 : ИP/34:,EQU,563B 004388 : ИP/35:,EQU,ИP/34 004389 : PEГ34:,EQU,ИP/34 004390 : READ :,EQU,ИP/34 004391 : ФREAD:,EQU,ИP/34 004392 : WRITE:,EQU,ИP/34 004393 : *615:B,BLOCK, 004394 : C----- ДOП.ПOЛE YПPЯTЫBAHИЯ OTЛAДЧИKA 004395 : ,CONT,SSUM,SRK,PMP 004396 : ,CONT,A(2),FLAG 004397 : ,CONT,SI161432 004398 : ,CONT,SI15,SI14,SI13,SI12,SI11,SI10 004399 : ,CONT,S103,S104,S105 004400 : C----- OБЩEE C MYЛЬTИTAЙПOM 004401 : ,CONT,SWITCH 004402 : ,CONT,READRERR(0),OF 004403 : ,CONT,WRITWORD 004404 : ,CONT,OCTADR 004405 : ,CONT,IDENT(0),IDENTI(2) 004406 : ,CONT,ISUB(2) 004407 : ,CONT,SAVESUBP 004408 : C----- PAБOЧEE ПOЛE OTЛAДЧИKA 004409 : ,CONT,SWARD(0),ЧИ,MAG(2) 004410 : ,CONT,IDI,RR1,RR2 004411 : ,CONT,COMMAND 004412 : C 004413 : C----- ЯЧEЙKИ П/П "NRESCODE" 004414 : C (ИX HAДO ПPЯTATЬ, T.K. OTЛAДЧИK 004415 : C CAM ПOЛЬЗYETCЯ NRESCOD-OM) 004416 : C И MECTO ДЛЯ YПPЯTЫBAHИЯ : 004417 : C 004418 : *135:B,BLOCK,W/NRCOD(3) 004419 : *772:B,BLOCK,CW/NRCOD(3) 004420 : *771:B,BLOCK,MADRES.TEK.AДPEC "MЯЧ" 004421 : C----- PAБ.ЯЧEЙKИ "O C A HA PAЗДEЛE" 004422 : *775:B,BLOCK,OVNAM,OVSWI 004423 : C***** ШKAЛЫ OTЛAДЧИKA 004424 : *SCAL71:LC,BLOCK,(3),SCAL67,SCШAГ 004425 : SCALES:LC,BLOCK,(9),SCSTOP 004426 : C***** OБOЗHAЧEHИЯ ПO БYФEPY 'ERRMACRO' 004427 : AHA:,EQU,1 004428 : C***** 004429 : LOADANGO:,SUBP, 004430 : SELECT :,SUBP, 004431 : NRESOFF:,SUBP, 004432 : NRERR:,SUBP, 004433 : FULWOR:,LC,1 004434 : C77777:,LC,1 004435 : DISREG:,LC,1 004436 : C14:,LC,1 004437 : C7 :,LC,1 004438 : C7777:,LC,1 004439 : C77:,LC,1 004440 : ISOTOALL:,SUBP, 004441 : C***** 004442 : *677:B,BLOCK,BITS 004443 : ,CONT,BIT48,BIT47,BIT46,BIT45 004444 : ,CONT,BIT44,BIT43,BIT42,BIT41 004445 : ,CONT,BIT40,BIT39,BIT38,BIT37 004446 : ,CONT,BIT36,BIT35,BIT34,BIT33 004447 : ,CONT,BIT32,BIT31,BIT30,BIT29 004448 : ,CONT,BIT28,BIT27,BIT26,BIT25 004449 : ,CONT,BIT24,BIT23,BIT22,BIT21 004450 : ,CONT,BIT20,BIT19,BIT18,BIT17 004451 : ,CONT,BIT16,BIT15,BIT14,BIT13 004452 : ,CONT,BIT12,BIT11,BIT10,BIT 9 004453 : ,CONT,BIT 8,BIT 7,BIT 6,BIT 5 004454 : ,CONT,BIT 4,BIT 3,BIT 2,BIT 1 004455 : C***** 004456 : C 004457 : NR:,BSS, 004458 : 12,REL,* 004459 : 11,XTA, W/NRCOD 004460 : 11,ATX,CW/NRCOD 004461 : 11,XTA, W/NRCOD+1 004462 : 11,ATX,CW/NRCOD+1 004463 : 11,XTA, W/NRCOD+2 004464 : 11,ATX,CW/NRCOD+2 004465 : BEGIN:,BSS, 004466 : 14,VTM,-20 004467 : ,XTA,ПYCTO 004468 : CL21:14,UTC, 004469 : 15,ATX,AHA+20 004470 : 14,VLM,CL21 004471 : 11,MTJ,13 004472 : 11,WTC,SWITCH 004473 : ,XTA,BITS 004474 : ,AEX,FULWOR 004475 : 11,AAX,SCJ OTЛ 004476 : 11,ATX,SCJ OTЛ 004477 : 11,WTC,SWITCH 004478 : ,UJ,* 004479 : :,UJ,SIMOCA.= O C A 004480 : :,UJ,SIMOЧT.= O Ч T 004481 : :,UJ,SIMOЗA.= O З A 004482 : :,UJ,OCTKOM.OCT.ПO NK 004483 : :,UJ,OCTЧИC.OCT.ПO AЧ 004484 : :,UJ,ADRERR1.= P E Г 004485 : :,UJ,ADRERR2.= P E Г 1 004486 : :,UJ,ADRERR3.MЯЧ,MЯK,ДEC,ИДИ 004487 : :,UJ,ADRERR4.= Ф Я Ч 004488 : :,UJ,ADRERR5.= З A П , Ч И З 004489 : SIMOCA:,BSS, 004490 : C 004491 : C***** ПPИKAЗ : O C A 004492 : C 004493 : ,XTA, 004494 : 13,ATX,OVNAM 004495 : 13,ATX,OVSWI 004496 : 14,VJM,CHIDENT 004497 : 11,XTA,OVNAM 004498 : ,UZA,SIM1 004499 : ,XTA,=6HPAЗДEЛ 004500 : 11,ATX,A 004501 : 14,VTM,13B 004502 : 14,MTJ,27B 004503 : ,XTA,B*1 004504 : ,*50,13.TEKCT-6 004505 : ,XTA,=3H : 004506 : 11,ATX,A 004507 : ,XTA,B*5 004508 : ,*50,13.TEKCT-3 004509 : ,XTA,BIT18 004510 : 11,AOX,REGSCAL 004511 : 11,ATX,REGSCAL 004512 : 13,XTA,ИP/34 004513 : 13,ATX,S34 004514 : ,UJ,SIM 3 004515 : SIM1:,BSS, 004516 : 13,XTA,ИP/34 004517 : 13,ATX,S34 004518 : 13,XTA,REGSCAL 004519 : ,UJ,WR REG 004520 : SIMOЗA:,BSS, 004521 : C 004522 : C***** ПPИKAЗ : O З A 004523 : C 004524 : SIMOЧT:,BSS, 004525 : C 004526 : C***** ПPИKAЗ : O Ч T 004527 : C 004528 : 14,VJM,CHIDENT 004529 : 13,XTA,ИP/34 004530 : 13,ATX,S35 004531 : 11,XTA,SWITCH 004532 : ,ASN,64-4 004533 : 13,AEX,REGSCAL 004534 : ,AAX,BIT5 004535 : 13,AEX,REGSCAL 004536 : WRREG:,BSS, 004537 : ,AOX,BIT18 004538 : 13,ATX,REGSCAL 004539 : 14,VTM,13B 004540 : 14,MTJ,27B 004541 : ,XTA,=6H AДP: 004542 : 11,ATX,A 004543 : ,XTA,B*1 004544 : ,*50,13.TEKCT-6 004545 : 11,XTA,ИP/34 004546 : 11,ATX,A 004547 : ,XTA,B*2 004548 : ,*50,14.AДPEC-5 004549 : ,XTA,B*BL 004550 : ,*50,13.ПPOБEЛ-1 004551 : SIM3:,XTA,B*8 004552 : ,*50,13.TEKCT-8 004553 : ,XTA, 004554 : 15,ATX,AHA+4 004555 : ,UJ,CBET 004556 : ADRERR1:,BSS, 004557 : C 004558 : C***** ПPИKAЗ : P E Г 004559 : C 004560 : : ,24,3 004561 : 11,XTA,SSUM 004562 : 14,VJM,TRASWOR 004563 : 14,VJM,KOPAHA 004564 : 11,XTA,PMP 004565 : 14,VJM,TRASWOR 004566 : 14,VJM,KOPAHA 004567 : ,WTC,ГYC 004568 : ,XTA,COPYS33 004569 : 14,VJM,TRANIR 004570 : ,WTC,ГYC 004571 : ,XTA,COPYS33 004572 : ,ASN,64+15 004573 : ,AAX,C14 004574 : ,UZA,MP 004575 : 15,XTA,AHA 004576 : ,AEX,=104 004577 : 15,ATX,AHA 004578 : MP:,BSS, 004579 : 11,XTA,SRK 004580 : ,ASN,64+41 004581 : 14,VJM,TRANIR 1 004582 : 15,UTM,1 004583 : 13,XTA,COPYS32 004584 : 14,VJM,TRANIR 004585 : 15,UTM,1 004586 : 11,XTA,SI15 004587 : 14,VJM,TRANIR 004588 : 13,XTA,COPYI14 004589 : 15,UTM,1 004590 : 14,VJM,TRANIR 004591 : 11,XTA,SI161432 004592 : 15,UTM,1 004593 : 14,VJM,TRANIR 004594 : ,XTA, 004595 : 15,ATX,AHA+1 004596 : 15,UTM,-13 004597 : ,UJ,CBET1 004598 : ADRERR2:,BSS, 004599 : C 004600 : C***** ПPИKAЗ : P E Г 1 004601 : C 004602 : 15,UTM,-1 004603 : 10,VTM,1-4 004604 : REGS:10,UTC,3 004605 : 11,XTA,SI13 004606 : 14,VJM,TRANIR 1 004607 : 10,VLM,REGS 004608 : 10,VTM,1-9 004609 : REG2:10,UTC,8 004610 : 13,XTA,I9 004611 : 14,VJM,TRANIR 1 004612 : 10,VLM,REG 2 004613 : ,XTA, 004614 : 15,ATX,AHA+1 004615 : 15,UTM,-12 004616 : ,UTC,-1 004617 : CBET1:13,VTM,INFT 004618 : : ,24,2003B 004619 : ,XTA,DISREG 004620 : ,ATI,27B 004621 : 13,*71, 004622 : ,UJ,CBET 004623 : ADRERR5:,BSS, 004624 : C 004625 : C***** ПPИKAЗЫ : З A П , Ч И З 004626 : C 004627 : 11,XTA,READRERR 004628 : ,AAX,BIT5 004629 : ,U1A,ЗAПЧИC 004630 : 11,ATX,OCTADR 004631 : 11,ATX,OF 004632 : 11,ATX,ISUB 004633 : 11,ATX,ISUB+1 004634 : 14,VJM,CHIDENT 004635 : READYW:,BSS, 004636 : 14,VJM,CLE 35 004637 : ,XTA,DISREG 004638 : ,ATI,27B 004639 : 11,WTC,ИP/34 004640 : 10,VTM, 004641 : 11,XTA,WRITWORD 004642 : 10,*75, 004643 : 10,MTJ,14 004644 : ,UJ,HE KOCB 004645 : ININP:,BSS, 004646 : 15,Z06,AHA 004647 : ,Z00, 004648 : ЗAПЧИC:,BSS, 004649 : 11,XTA,READRERR 004650 : ,AAX,BIT7 004651 : ,U1A,ЗAПADR 004652 : 14,VJM,IDENTIOTL 004653 : ЗAПADR:,BSS, 004654 : 11,XTA,READRERR 004655 : ,AAX,=7777 7777 7777 7657 004656 : 11,ATX,READRERR 004657 : 11,XTA,ИP/34 004658 : 11,ATX,SWARD 004659 : 14,VTM,13B 004660 : 14,MTJ,27B 004661 : ,*71,ININP 004662 : ,XTA,INF5012 004663 : 14,VTM,13B 004664 : 14,MTJ,27B 004665 : ,FUN,12 004666 : 14,UTM,-2 004667 : 14,VZM,OKNUM 004668 : 14,UTM,2-3 004669 : 14,V1M,BADNUM 004670 : OKNUM:11,ATX,WRITWORD 004671 : 11,XTA,SWARD 004672 : 11,ATX,ИP/34 004673 : ,XTA, 004674 : 11,ATX,READRERR 004675 : 11,ATX,SWARD 004676 : ,UJ,READYW 004677 : BADNUM:,XTA,=6HOШ.HAБ 004678 : 15,ATX,AHA 004679 : ,XTA, 004680 : 15,ATX,AHA+1 004681 : 15,ATX,READRERR 004682 : ,UJ,CBET 004683 : INF5012:,Z00, 004684 : 15,Z00,AHA 004685 : ADRERR4:,BSS, 004686 : C 004687 : C***** ПPИKAЗ : Ф Я Ч 004688 : C 004689 : 11,WTC,ИP/34 004690 : ,XTA, 004691 : ,UJ,ФMЯЧ 004692 : GOTO:,BSS, 004693 : C 004694 : C***** ПPИKAЗ : И Д И <ИДEHTИФ> 004695 : C 004696 : 11,AEX,READRERR 004697 : 11,ATX,READRERR 004698 : 14,VJM,IDENTIOTL 004699 : 11,XTA,ИP/34 004700 : ,AAX,C77777 004701 : ,WTC,ГYC 004702 : 13,VTM, 004703 : 13,ATX,COPYS33 004704 : ,XTA,SCSTOP 004705 : ,AAX,ZBITJ 004706 : ,ATX,SCSTOP 004707 : ,XTA,RDSCAL 004708 : ,AOX,BITJ 004709 : ,ATX,RDSCAL 004710 : ,UJ,BOЗB 004711 : ADRERR3:,BSS, 004712 : C 004713 : C***** ПPИKAЗЫ : M Я Ч M Я K Д E C И Д И 004714 : C 004715 : 11,XTA,READRERR 004716 : ,AAX,BIT43 004717 : ,U1A,GOTO 004718 : 11,XTA,READ 004719 : ,AEX,FULWOR 004720 : ,U1A,IDIOT 004721 : 14,VJM,IDENTIOTL 004722 : 11,XTA,IDENTI 004723 : 15,ATX,AHA+6 004724 : 11,XTA,IDENTI+1 004725 : 15,ATX,AHA+7 004726 : ,XTA, 004727 : 15,ATX,AHA+8 004728 : IDIOT:,BSS, 004729 : ,XTA, 004730 : 11,ATX,SWARD 004731 : 14,VJM,CLE 35 004732 : 11,XTA,ИP/34 004733 : ,U1A,ADRIS. - ЗAДAHO 004734 : 11,XTA,MADRES. TEKYЩИЙ 004735 : ,ARX,BIT1. + 1 004736 : ADRIS:11,ATX,MADRES. - ЗAПOMHИM 004737 : 11,ATX,ИP/34 004738 : ,ATI,14 004739 : 11,XTA,READRERR 004740 : ,AAX,BIT21 004741 : ,UZA,HE KOCB 004742 : 11,AEX,READRERR 004743 : 11,ATX,READRERR 004744 : : ,24, 004745 : 14,XTA, 004746 : : ,24,3 004747 : 11,ATX,ИP/34 004748 : ,ATI,14 004749 : HE KOCB:,24, 004750 : 14,XTA, 004751 : : ,24,3 004752 : 11,ATX,SWARD 004753 : 14,VJM,PUT 35 004754 : 11,XTA,OF 004755 : ,AAX,BIT48 004756 : ,U1A,OCTTODEC 004757 : 11,XTA,SWARD 004758 : ФMЯЧ:,BSS, 004759 : 14,VJM,TRASWOR 004760 : ФMЯЧД:,BSS, 004761 : ,XTA,=6H AДP. 004762 : 15,ATX,AHA+4 004763 : 11,XTA,ИP/34 004764 : 15,UTM,5 004765 : 14,VJM,TRANIR 004766 : 15,UTM,-5 004767 : ,XTA, 004768 : 15,ATX,AHA+6 004769 : ,UJ,CBET 004770 : OCTTODEC:,BSS, 004771 : 11,AEX,OF 004772 : 11,ATX,OF 004773 : ,XTA,INF5015 004774 : 14,VTM,13B 004775 : 14,MTJ,27B 004776 : ,FUN,15 004777 : ,UJ,ФMЯЧД 004778 : INF5015:11,Z25,ЧИ 004779 : 15,Z13,AHA 004780 : CLE 35:,UTC,-30 004781 : PUT 35:13,VTM,15 004782 : 11,XTA,S35 004783 : 13,ASN,64 004784 : 11,ATX,S35 004785 : : ,24,2002B 004786 : ,ATI,35B 004787 : : ,24,2003B 004788 : 11,MTJ,13 004789 : 14,UJ, 004790 : TEXT:,BSS, 004791 : ,ISO,6H 004792 : ,ISO,6HI-CYMM 004793 : ,ISO,6HATOP-I 004794 : ,ISO,6H 004795 : ,ISO,6HI-PEГ. 004796 : ,ISO,6HMЛ.P-I 004797 : ,ISO,6H 004798 : ,ISO,6HИP.33 004799 : ,ISO,6HP.AY '1' 004800 : :,ISO,6H ИP.32 004801 : :,ISO,6H ИP.15 004802 : :,ISO,6H ИP.14 004803 : :,ISO,6H ИP.16 004804 : :,OCT, 004805 : TEXT1:,BSS, 004806 : :,ISO,6H ИP.13 004807 : :,ISO,6H ИP.12 004808 : :,ISO,6H ИP.11 004809 : :,ISO,6H ИP.10 004810 : :,ISO,6H ИP. 9 004811 : :,ISO,6H ИP. 8 004812 : :,ISO,6H ИP.7 004813 : :,ISO,6H ИP.6 004814 : :,ISO,6H ИP.5 004815 : :,ISO,6H ИP.4 004816 : :,ISO,6H ИP.3 004817 : :,ISO,6H ИP.2 004818 : :,ISO,6H ИP.1 004819 : :,OCT, 004820 : ПYCTO:,ISO,6H'1''1''1''1''1''1' 004821 : TRASWOR:,BSS, 004822 : 13,VTM,1-4 004823 : TRANSLOOP:,BSS, 004824 : 11,ATX,A 004825 : ,AUX,=0000 3407 0160 3400 004826 : ,AOX,=1003 0060 1403 0001 004827 : 15,UTC, 004828 : 13,ATX,AHA+3 004829 : 11,XTA,A 004830 : ,ASN,64-12 004831 : 13,VLM,TRANSLOOP 004832 : ,WTC,ГYC 004833 : 13,VTM, 004834 : 14,UJ, 004835 : KOPAHA:15,XTA,AHA+3 004836 : ,AAX,=7777 7777 7777 7600 004837 : ,AOX,BIT6 004838 : 15,ATX,AHA+3 004839 : 15,UTM,4 004840 : 14,UJ, 004841 : TRANIR 1:15,UTM,1 004842 : TRANIR:,BSS, 004843 : ,ASN,64-33 004844 : ,AUX,=0160 3407 0160 3400 004845 : ,AOX,=1403 0060 1403 0040 004846 : 15,UTC, 004847 : ,ATX,AHA 004848 : 14,UJ, 004849 : INF71:,BSS, 004850 : 15,Z04,AHA 004851 : ,Z00, 004852 : INFT1:12,Z04,TEXT1-NR 004853 : ,Z00, 004854 : INFT:12,Z04,TEXT-NR 004855 : ,Z00, 004856 : OCTKOM:,BSS, 004857 : C 004858 : C***** CИTYAЦИЯ : OCTAHOB ПO NK 004859 : C 004860 : ,XTA,SC ШAГ 004861 : ,AAX,BITJ 004862 : ,U1A,BЫBOД 004863 : 11,XTA,OVNAM 004864 : ,UZA,BЫBOД 004865 : 14,VTM,LOADANGO+21B 004866 : 11,AEX,SSUM 004867 : ,UZA,OV/2 004868 : 11,XTA,OVSWI 004869 : ,U1A,OV/3 004870 : ,XTA,ZBITJ 004871 : ,AAX,SCDEBUG 004872 : ,ATX,SCDEBUG 004873 : ,XTA,ZBITJ 004874 : ,AAX,SCШAГ 004875 : ,ATX,SC ШAГ 004876 : ,XTA,BITJ 004877 : ,AOX,SCAL67 004878 : ,ATX,SCAL67 004879 : 13,XTA,S34 004880 : ,AAX,C77777 004881 : ,UZA,*B 004882 : ,ASN,64-15 004883 : OV/1:13,ATX,S34 004884 : :,24,2002B 004885 : ,ATI,34B 004886 : ,24,2003B 004887 : ,UJ,*B 004888 : OV/2:,XTA,BIT1 004889 : 11,ATX,OVSWI 004890 : ,ITA,14 004891 : ,UJ,OV/1 004892 : OV/3:,XTA, 004893 : 11,ATX,OVNAM 004894 : 11,ATX,OVSWI 004895 : :,24,2002B 004896 : ,XTA,15B 004897 : ,24,2003B 004898 : ,UJ,OV/1 004899 : OCT ЧИC:,BSS, 004900 : C 004901 : C***** CИTYAЦИЯ : OCTAHOB ПO AЧ 004902 : C 004903 : BЫBOД:,24,2003B 004904 : ,XTA,SCШAГ 004905 : ,AAX,ZBITJ 004906 : ,ATX,SCШAГ 004907 : ,XTA,SCSTOP 004908 : ,AOX,BITJ 004909 : ,ATX,SCSTOP 004910 : 14,VTM,13B 004911 : 14,MTJ,27B 004912 : ,XTA,=6HOCTAH. 004913 : 11,ATX,A 004914 : ,XTA,B*1 004915 : ,*50,13.TEKCT-6 004916 : 13,XTA,COPYS33 004917 : 11,ATX,A 004918 : ,XTA,B*2 004919 : ,*50,14.AДPEC-5 004920 : 13,XTA,COPYS33 004921 : ,ATI,14 004922 : ,ASN,64+15 004923 : ,AAX,C14 004924 : ,UZA,BЫB/1 004925 : ,XTA,=1HФ 004926 : 11,ATX,RR1 004927 : ,UJ,BЫB/2 004928 : BЫB/1:,XTA,BIT41 004929 : 11,ATX,RR1 004930 : ,ITA,14 004931 : 13,AEX,S35 004932 : ,UZA,BЫB/3 004933 : ,24, 004934 : BЫB/2:14,XTA, 004935 : ,24,3 004936 : BЫB/3:11,ATX,COMMAND 004937 : 13,XTA,COPYS33 004938 : ,AAX,BIT24 004939 : ,U1A,BЫB/4 004940 : 11,XTA,COMMAND 004941 : ,ASN,64+24 004942 : 11,ATX,COMMAND 004943 : ,UTC,=1HЛ - =1HП 004944 : BЫB/4:,XTA,=1HП 004945 : 11,ATX,A 004946 : 14,VTM,13B 004947 : 14,MTJ,27B 004948 : ,XTA,B*3 004949 : ,*50,13.TEKCT-1 004950 : 11,XTA,RR1 004951 : 11,ATX,A 004952 : ,XTA,B*3 004953 : ,*50,13.TEKCT-1 004954 : 11,XTA,SWITCH 004955 : ,AEX,BIT3 004956 : ,UZA,BЫB/6.OCT.ПO NK 004957 : 13,XTA,REGSCAL 004958 : ,AAX,BIT5 004959 : ,U1A,BЫB/5 004960 : ,UTC,=4H ЧT- - =4H ЗП- 004961 : BЫB/5:,XTA,=4H ЗП- 004962 : 11,ATX,A 004963 : ,XTA,B*4 004964 : ,*50,13.TEKCT-4 004965 : 13,XTA,S35 004966 : 11,ATX,A 004967 : ,XTA,B*2 004968 : ,*50,14.AДPEC-5 004969 : ,UJ,BЫB/7 004970 : BЫB/6:,XTA,=3H NK 004971 : 11,ATX,A 004972 : ,XTA,B*5 004973 : ,*50,13.TEKCT-3 004974 : BЫB/7:,XTA,B*BL 004975 : ,*50,13.1 ПPOБEЛ 004976 : 11,XTA,COMMAND 004977 : ,*50,9 004978 : 11,ATX,RR1 004979 : ,YTA, 004980 : 11,ATX,RR2 004981 : 14,VZM,BЫB/8 004982 : ,UTC,=1HB - =1H 004983 : BЫB/8:,XTA,=1H 004984 : 11,ATX,COMMAND 004985 : ,XTA,B*6 004986 : ,*50,13.TEKCT-14 004987 : ,XTA,=4HCYM= 004988 : 11,ATX,A 004989 : ,XTA,B*4 004990 : ,*50,13.TEKCT-4 004991 : 11,XTA,SSUM 004992 : 11,ATX,A 004993 : ,XTA,B*7 004994 : ,*50,14.OCTAL-16 004995 : ,XTA, 004996 : 15,ATX,AHA+10 004997 : ,UJ,CBET 004998 : B*BL:,Z01,BIT46 004999 : ,, 005000 : B*1:11,Z06,A 005001 : 15,,AHA 005002 : B*2:11,Z05,A 005003 : ,Z05, 005004 : B*3:11,Z01,A 005005 : ,, 005006 : B*4:11,Z04,A 005007 : ,, 005008 : B*5:11,Z03,A 005009 : ,, 005010 : B*6:11,Z16,RR1 005011 : ,, 005012 : B*7:11,Z20,A 005013 : ,Z10, 005014 : B*8:11,Z10,IDENTI 005015 : ,, 005016 : C----- BЫДAЧA ПOДГOTOBЛEHHOЙ CTPOKИ 005017 : CBET:,BSS, 005018 : : ,24,2003B 005019 : ,XTA,DISREG 005020 : ,ATI,27B 005021 : ,*71,INF71 005022 : C----- A HE ПOЯBИЛИCЬ ЛИ 005023 : C HOBЫE ЗAKAЗЫ OTЛAДЧИKY 005024 : *B:,BSS, 005025 : 11,XTA,SCJOTЛ 005026 : ,UZA,BOЗB 005027 : ,ANX, 005028 : 11,ATX,SWITCH 005029 : ,UJ,BEGIN 005030 : C 005031 : C***** B O З B P A T 005032 : C 005033 : BOЗB:,BSS, 005034 : ,WTC,ГYC 005035 : 13,VTM, 005036 : 13,XTA,CW/NRCOD 005037 : 13,ATX, W/NRCOD 005038 : 13,XTA,CW/NRCOD+1 005039 : 13,ATX, W/NRCOD+1 005040 : 13,XTA,CW/NRCOD+2 005041 : 13,ATX, W/NRCOD+2 005042 : 13,MTJ,15 005043 : 14,VTM,1-12 005044 : :,24,2003B 005045 : 11,XTA,SSUM 005046 : RES:11,UTC, 005047 : 14,XTS,SI10 005048 : 14,VLM,RES 005049 : C ДOYПPЯTЫBAHИE PEГИCTPOB 005050 : C MOЖET KTO-TO ИПЗ ЗAПAXAЛ 005051 : 14,VTM,9 005052 : SI:14,ITS, 005053 : 14,UTM,-1 005054 : 14,V1M,SI 005055 : 13,XTS,COPYS33 005056 : 13,ATX,S33 005057 : ,ASN,64+15 005058 : 13,ATX,S27 005059 : 13,XTA,COPYS32 005060 : 13,ATX,S32 005061 : 13,XTA,COPYI14 005062 : 13,ATX,I14 005063 : 15,UTM,56B 005064 : 11,XTA,S103 005065 : 11,XTS,S104 005066 : 11,XTS,S105 005067 : ,XTS,ZBITJ 005068 : ,AAX,FLERBUS 005069 : ,ATX,FLERBUS 005070 : ,XTA,SCSTOP 005071 : ,AAX,BITJ 005072 : ,UZA,SEL 005073 : ,AEX,RDSCAL 005074 : ,ATX,RDSCAL 005075 : SEL:,BSS, 005076 : ,XTA,INFOFF 005077 : ,UJ,NRESOFF 005078 : INFOFF:,Z00,NRERR 005079 : ,Z00,SELECT 005080 : C 005081 : C===== BXOД: AДPEC ИЛИ ИДEHTИФИKATOP 005082 : C 005083 : CHIDENT:11,MTJ,13.HAДO 005084 : 11,XTA,ИP/34 005085 : ,AEX,FULWOR 005086 : 14,U1A,. - AДPEC 005087 : IDENTIOT:,BSS, 005088 : C 005089 : C===== OTЛAДKA ПO ИДEHTИФИKATOPAM 005090 : C 005091 : ,ITA,14 005092 : 11,ATX,SWARD 005093 : 14,VTM,2013B 005094 : 14,MTJ,27B 005095 : ,*72,=:113777 005096 : 14,VJM,CLE 35 005097 : C 005098 : C... ПEPEBOД ДBYX 8-CИMBOЛЬHЫX ИMEH 005099 : C ИЗ ISO B TEXT. 005100 : C IDENTI И ISUB PAЗMEЩEHЫ ПOДPЯД ! 005101 : C 005102 : 10,VTM,-3.4 CЛOBA ISO 005103 : 13,VTM,-5.ПO 6 CИMB. 005104 : ISOT1:10,UTC,3 005105 : 11,XTA,IDENTI 005106 : ISOT2:,ASN,64-8 005107 : 15,ATX,AHA+1.OCTATOK ISO 005108 : ,YTA, 005109 : ,ATI,14.CИMBOЛ ISO 005110 : 15,XTA,AHA 005111 : ,ASN,64-6 005112 : 15,ATX,AHA 005113 : ,ITA,14 005114 : ,UZA,ISOT3 005115 : ,AEX,BIT6.ПPOБEЛ 005116 : ,UZA,ISOT3 005117 : 14,XTA,ISOTOALL 005118 : ,ASN,64+8 005119 : ,AAX,C77.CИMBOЛ TEXT 005120 : 15,AOX,AHA 005121 : 15,ATX,AHA.HAKOПЛEHИE 005122 : ISOT3:15,XTA,AHA+1 005123 : 13,VLM,ISOT2 005124 : 13,VTM,-5 005125 : 15,UTM,1 005126 : 10,VLM,ISOT1 005127 : 15,UTM,-4 005128 : C 005129 : C... CБOPKA 8-CИMB.ИMEHИ ИЗ ДBYX CЛOB 005130 : C ( 6+2 ) 005131 : C 005132 : 15,XTA,AHA 005133 : ,ASN,64-12 005134 : 15,ATX,AHA 005135 : 15,XTA,AHA+1 005136 : ,ASN,64+24 005137 : ,AAX,C7777 005138 : 15,AOX,AHA.ЛOKAЛЬHOE 005139 : 11,ATX,ИP/34.ИMЯ 005140 : C--- 005141 : 15,XTA,AHA+2 005142 : ,ASN,64-12 005143 : 15,ATX,AHA 005144 : 15,XTA,AHA+3 005145 : ,ASN,64+24 005146 : ,AAX,C7777 005147 : 15,AOX,AHA 005148 : :,U1A,*+1 005149 : 11,XTA,SAVESUBP 005150 : :15,ATX,AHA.ГЛOБAЛЬHOE 005151 : 11,ATX,SAVESUBP.ИMЯ 005152 : 11,MTJ,10.ПEPBOE ИMЯ 005153 : ,AEX,=:12 005154 : ,UZA,ГЛOБ 005155 : ,AEX,=:05 005156 : ,U1A,ЛOKAЛ 005157 : 11,ATX,OVSWI 005158 : 11,XTA,ИP/34 005159 : 11,ATX,OVNAM 005160 : ГЛOБ:,BSS, 005161 : C----- ПOИCK ГЛOБAЛЬHOГO OБ'EKTA 005162 : : ,24, 005163 : ,XTA,17B 005164 : : ,24,0003 005165 : ,ASN,64+30 005166 : 11,ATX,RR1 005167 : ,XTA, 005168 : 11,ATX,RR2 005169 : 14,VTM,2013B 005170 : 14,MTJ,27B 005171 : ,*72,=:10374177 005172 : NEXTLIS1:,BSS, 005173 : ,XTA,=0010 3700 0020 0000 005174 : 11,ARX,RR2 005175 : : ,24, 005176 : ,ATX,76003B 005177 : : ,24,3 005178 : 14,VTM,2013B 005179 : 14,MTJ,27B 005180 : ,*70,76003B 005181 : ,WTC,ГYC 005182 : 13,VTM, 005183 : 14,VTM, 005184 : FITA:,BSS, 005185 : ,ITA,14 005186 : 11,AEX,RR1 005187 : ,UZA,HETID0 005188 : : ,24, 005189 : 14,XTA,76000B 005190 : : ,24,3 005191 : 11,AEX,ИP/34 005192 : ,UZA,HAID 005193 : 14,UTM,2-2000B 005194 : ,ITA,14 005195 : ,UZA,NEXTLIS2 005196 : 14,UTM,2000B 005197 : ,UJ,FITA 005198 : HET ID0:11,XTA,OVNAM 005199 : ,UZA,HET ID1 005200 : ,XTA,A/LGO 005201 : ,UJ,HA ID0 005202 : A/LGO:,, 005203 : ,,LOADANGO 005204 : NEXTLIS2:,BSS, 005205 : 11,XTA,RR1 005206 : ,ATI,14 005207 : 14,UTM,-2000B 005208 : ,ITA,14 005209 : 11,ATX,RR1 005210 : 11,XTA,RR2 005211 : ,ARX,BIT1 005212 : 11,ATX,RR2 005213 : ,UJ,NEXTLIS1 005214 : HAID:,BSS, 005215 : ,XTA, 005216 : 11,ATX,OVNAM 005217 : ,24, 005218 : 14,XTA,76001B 005219 : ,24,3 005220 : HA ID0:,BSS, 005221 : 11,ARX,OCTADR 005222 : ,AAX,C77777 005223 : 11,ATX,ИP/34 005224 : ,XTA, 005225 : 11,ATX,OCTADR 005226 : 14,VTM,2013B 005227 : 14,MTJ,27B 005228 : ,*72,=:10413777 005229 : 11,WTC,SWARD 005230 : 14,VTM, 005231 : ,UJ,PUT 35 005232 : ЛOKAЛ:,BSS, 005233 : C----- ПOИCK ЛOKAЛЬHOГO OБ'EKTA 005234 : : ,24, 005235 : ,XTA,17B 005236 : : ,24,0003 005237 : ,ASN,64+30 005238 : 11,ATX,RR1 005239 : ,XTA, 005240 : 11,ATX,RR2 005241 : 14,VTM,2013B 005242 : 14,MTJ,27B 005243 : ,*72,=:10374177 005244 : NEXTLIS3:,BSS, 005245 : ,XTA,=0010370000200000 005246 : 11,ARX,RR2 005247 : : ,24, 005248 : ,ATX,76003B 005249 : : ,24,3 005250 : 14,VTM,2013B 005251 : 14,MTJ,27B 005252 : ,*70,76003B 005253 : ,WTC,ГYC 005254 : 13,VTM, 005255 : 14,VTM, 005256 : ИЩИ SUBP:,BSS, 005257 : ,ITA,14 005258 : 11,AEX,RR1 005259 : ,UZA,HETID2 005260 : : ,24, 005261 : 14,XTA,76000B 005262 : : ,24,3 005263 : 15,AEX,AHA 005264 : ,UZA,HAШASUBP 005265 : 14,UTM,2-2000B 005266 : ,ITA,14 005267 : ,UZA,NEXTLIS4 005268 : 14,UTM,2000B 005269 : ,UJ,ИЩИSUBP 005270 : NEXTLIS4:,BSS, 005271 : 11,XTA,RR1 005272 : ,ATI,14 005273 : 14,UTM,-2000B 005274 : ,ITA,14 005275 : 11,ATX,RR1 005276 : 11,XTA,RR2 005277 : ,ARX,BIT1 005278 : 11,ATX,RR2 005279 : ,UJ,NEXTLIS3 005280 : HAШASUBP:,BSS, 005281 : ,ITA,14 005282 : 11,ATX,FLAG 005283 : 14,VTM, 005284 : 11,XTA,RR2 005285 : ,ATI,13 005286 : ,UZA,OKEY 005287 : EЩE ЛИCT:,BSS, 005288 : 13,UTM,-1 005289 : 14,UTM,2000B 005290 : ,ITA,13 005291 : ,U1A,EЩE ЛИCT 005292 : OKEY:,BSS, 005293 : 11,XTA,FLAG 005294 : ,ATI,13 005295 : 13,J+M,14 005296 : ,ITA,14 005297 : 11,ATX,FLAG 005298 : ,XTA,C7 005299 : 11,ATX,MAG 005300 : 13,VTM, 005301 : NEXTLIS5:,BSS, 005302 : ,XTA,=:0010 3700 0020 0000 005303 : 11,AOX,MAG 005304 : : ,24, 005305 : ,ATX,76003B 005306 : : ,24,3 005307 : 14,VTM,2013B 005308 : 14,MTJ,27B 005309 : ,*70,76003B 005310 : : ,24, 005311 : ,XTA,17B 005312 : : ,24,0003 005313 : ,ASN,64+15 005314 : ,AAX,C77777 005315 : 11,ATX,RR1 005316 : 14,VTM,1776B 005317 : FITA1:,BSS, 005318 : ,ITA,13 005319 : 11,AEX,RR1 005320 : ,UZA,HETID1 005321 : : ,24, 005322 : 14,XTA,76000B 005323 : : ,24,3 005324 : 11,AEX,ИP/34 005325 : ,UZA,HAID1 005326 : *FI:,BSS, 005327 : ,ITA,14 005328 : ,UZA,NEXTLIS6 005329 : 13,UTM,2 005330 : 14,UTM,-2 005331 : ,UJ,FITA1 005332 : NEXTLIS6:,BSS, 005333 : 11,XTA,MAG 005334 : ,ATI,14 005335 : 14,UTM,-1 005336 : ,ITA,14 005337 : 11,ATX,MAG 005338 : ,UJ,NEXTLIS5 005339 : HAID1:,BSS, 005340 : : ,24, 005341 : 14,XTA,76001B 005342 : : ,24,3 005343 : ,ASN,64+24 005344 : 11,AEX,FLAG 005345 : ,AAX,C77777 005346 : ,U1A,*FI 005347 : ,UJ,HA ID 005348 : HET ID2:11,MTJ,10.BTOPOE 005349 : 10,UTM,ISUB-IDENTI.ИMЯ 005350 : HETID1:,BSS, 005351 : ,XTA,=6H HET 005352 : 15,ATX,AHA 005353 : 10,XTA,IDENTI 005354 : 15,ATX,AHA+1 005355 : 10,XTA,IDENTI+1 005356 : ,U1A,TWOWOR 005357 : ,XTA,ПYCTO 005358 : TWOWOR:,BSS, 005359 : 15,ATX,AHA+2 005360 : ,XTA, 005361 : 15,ATX,AHA+3 005362 : 11,ATX,OCTADR 005363 : 11,ATX,READRERR 005364 : 14,VTM,2013B 005365 : 14,MTJ,27B 005366 : ,*72,=:10413777 005367 : 14,VJM,PUT 35 005368 : ,UJ,CBET 005369 : ,BSS, 005370 : ,END,. 005371 : OCCUPYD:,NAME, 005372 : C****** ПPOЦEДYPЫ ЗAKAЗA/OTKAЗA ДИCKO- 005373 : C BЫX PECYPCOB И EЩE KOE-ЧTO. 005374 : C 005375 : C OБPAЩEHИE ЧEPEЗ ,*57,-1 005376 : C HA CYMMATOPE ПPИ BXOДE: 005377 : C PAЗPЯДЫ 48-30, 24-21 COДEPЖAT 005378 : C KЛЮЧ ДOCTYПA; 005379 : C PAЗPЯДЫ 15-1 - AДPEC ИHФOPMAЦИOH- 005380 : C HOГO ПOЛЯ; 005381 : C PAЗPЯДЫ 20-16 - KOД OПEPAЦИИ; 005382 : C PAЗPЯДЫ 29-25 - ДOПOЛHИTEЛЬHAЯ 005383 : C ИHФOPMAЦИЯ. 005384 : C 005385 : C...... KOДЫ OПEPAЦИЙ: 005386 : C 0B - ЗAKAЗ ПAKETOB; 005387 : C 1B - OTKAЗ OT ПAKETOB; 005388 : C 2B - ЗAПPOC KOOPДИHAT ФAЙЛOB; 005389 : C 3B - ЗAKAЗ OБЫЧHЫX ФAЙЛOB; 005390 : C 4B - ЗAKAЗ SCRATCH ФAЙЛOB; 005391 : C 5B - OTKAЗ OT ФAЙЛOB; 005392 : C 6B - OTKAЗ OT BCEX MД-PECYPCOB; 005393 : C 37B - ИЗMEHEHИE CTATYCA ФAЙЛA. 005394 : C 005395 : NEWTA:,SUBP, 005396 : TTPRINT:,SUBP, 005397 : CLANEWTA:,SUBP, 005398 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 005399 : BADMACRO:,SUBP, 005400 : REGSCAL:,EQU,100B 005401 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 005402 : NRESOFF:,SUBP, 005403 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 005404 : ,CONT,SAVI15,SAVI14,SAVI13 005405 : *TDIS:,LC,.TAБЛ,ЭKCTEHTOB 005406 : * И П Д :LC,BLOCK,XNF,XNFM(4) 005407 : ,CONT,XNC,XNCM(2) 005408 : ,CONT,Ш/CЛYЖ,Ш/FULL 005409 : ,CONT,(5) 005410 : ,CONT,MБД 005411 : ,CONT,LFATA 005412 : ,CONT,LENTDIS 005413 : ,CONT,(9) 005414 : ,CONT,MONO 005415 : ,CONT,FREXT 005416 : C 005417 : * И П K :,LC,1 005418 : * И П K 1 :,LC,1 005419 : C 005420 : NMAT :,WEQ,XNC 005421 : NMAT1:,WEQ,XNF 005422 : NJM1 :,EQU,NMAT-1 005423 : LTF1 :,WEQ,LFATA 005424 : LTF :,EQU,LTF1-1 005425 : MONOW:,EQU,*ИПK1+NMAT 005426 : FATA :,LC,1 005427 : *127:B,BLOCK,MLD,RDL 005428 : *140:B,BLOCK,DISNAM,FSJOB,FSINF(4) 005429 : CMDREC:,LC,1 005430 : *DISCS:LC,BLOCK,DNAM 005431 : LTX:,WEQ,LENTDIS 005432 : LTXM1:,EQU,LTX-1 005433 : TABLEMT:LC,BLOCK,(16),T1MT(32) 005434 : REWINDSC:LC,BLOCK,(1),WTAPES 005435 : SCDICH:,SUBP, 005436 : B24/1:,LC,1 005437 : B36/31:,EQU,=:0000 77 005438 : B48/31:,LC,1 005439 : C76000:,LC,1 005440 : C37:,LC,1 005441 : C7777:,LC,1 005442 : C77777:,LC,1 005443 : FULWOR:,LC,1 005444 : C2003:,LC,1 005445 : C3:,LC,1 005446 : *C:LC,BLOCK,C6 005447 : C5:,LC,1 005448 : C77:,LC,1 005449 : B16/1:,LC,1 005450 : *CB:,LC, 005451 : C17:,EQU,*CB+1 005452 : DISREG:,LC,1 005453 : POST:,LC,1 005454 : NC*5:,P*P,(NMAT)5 005455 : NC*5P4:,EQU,NC*5+4 005456 : WAITPOST:,EQU,POST+NC*5P4 005457 : OUTMACRO:,SUBP, 005458 : SEMDOWNS:,SUBP, 005459 : SEMUP :,SUBP, 005460 : ШЛAГБAYM:LC,BLOCK,(1),SEMAFOR 005461 : *677:B,BLOCK,BITS 005462 : ,CONT,BIT48,BIT47,BIT46,BIT45 005463 : ,CONT,BIT44,BIT43,BIT42,BIT41 005464 : ,CONT,BIT40,BIT39,BIT38,BIT37 005465 : ,CONT,BIT36,BIT35,BIT34,BIT33 005466 : ,CONT,BIT32,BIT31,BIT30,BIT29 005467 : ,CONT,BIT28,BIT27,BI326,BIT25 005468 : ,CONT,BIT24,BIT23,BIT22,BIT21 005469 : ,CONT,BIT20,BIT19,BIT18,BIT17 005470 : ,CONT,BIT16,BIT15,BIT14,BIT13 005471 : ,CONT,BIT12,BIT11,BIT10,BIT 9 005472 : ,CONT,BIT 8,BIT 7,BIT 6,BIT 5 005473 : ,CONT,BIT 4,BIT 3,BIT 2,BIT 1 005474 : BGEN:,EQU,BIT42 005475 : BIT30:I,BLOCK,BITW2W(0),BWGEN 005476 : BWMAS:,EQU,BIT8 005477 : WORK:I,BLOCK,SAVI14OW,SMONOW,REZACC 005478 : ,CONT,MASTER,FILE,INF 005479 : ,CONT,STEC 005480 : C OБOЗHAЧEHИE ИHДEKC PEГИCTPOB 005481 : *1:,BLOCK,TR,MP,AP,NM 005482 : *5:,BLOCK,K,L,M,N 005483 : *9:,BLOCK,(1),T,P,D 005484 : *13:,BLOCK,J,R,S 005485 : BASA:,BSS, 005486 : 14,REL,BASA 005487 : ,XTA,SAVI14 005488 : ,ATX,SAVAR 005489 : ,XTA,DISREG 005490 : ,ATI,27B 005491 : ,XTA,SAVAC 005492 : ,ARX,=30 0000.TИПЫ 005493 : ,AAX,=70 00000.БOЛЬШИE 4 005494 : ,UIA,CH/KEY.-ДA 005495 : C ПPOBEPKA PEЖИMA 005496 : ,WTC,*YCЫ 005497 : ,XTA,REGSCAL 005498 : ,AAX,BIT48 005499 : ,UZA,BADMACRO 005500 : CH/KEY:,BSS, 005501 : C ПPOBEPKA KЛЮЧA ЭKCTPAKOДA 005502 : ,XTA,SAVAC 005503 : ,AAX,MASKEY 005504 : ,AEX,KEY 005505 : ,U1A,BADMACRO 005506 : P/ENT:,BSS,.ПOBT.BXOД 005507 : C====== P-OPERATION 005508 : ,ITA,14 005509 : ,ATX,SAVI14 005510 : ,ARX,W/DOWN 005511 : ,UJ,SEMDOWNS 005512 : C====== 005513 : P/RET:,BSS, 005514 : ,XTA,SAVAR 005515 : ,ASN,64-45 005516 : ,UZA,*5 005517 : ,AUX,C2003 005518 : ,AOX,BIT4 005519 : *5:,BSS, 005520 : ,ATX,SAVI14OW 005521 : 15,VTM,STEC 005522 : ,XTA,SAVAC 005523 : ,ATX,INFW*57 005524 : ,XTS,SAVI15 005525 : ,ASN,64-15 005526 : ,AOX,SAVI13 005527 : ,AOX,SAVSR 005528 : : ,24,3 005529 : ,NTR,7 005530 : 13,VTM,1-4 005531 : ,ITS,32B 005532 : C CПACEHИE ИHДEKC PEГИCTPOB 005533 : *50:13,ITS,12 005534 : ,ASN,64-15 005535 : 13,ITS,8 005536 : 15,AOX, 005537 : ,ASN,64-15 005538 : 13,ITS,4 005539 : 15,AOX, 005540 : 13,VLM,*50 005541 : 14,MTJ,9 005542 : 9,REL,BASA 005543 : ,WTC,Д H З 005544 : D,VTM,-NMAT1 005545 : C CПACEHИE ШK.ЗAHЯTOCTИ ЗAДAЧИ И 005546 : C ПOЛYЧEHИE ШK.ЗAHЯTOCTИ ДPYГИX 005547 : ,XTS, 005548 : ,ATX,REZACC.CYMMAT.BЫXOДA 005549 : ,ATX,NEWDI.HOBЫE ПAKETЫ 005550 : D,XTA,MONOW.CBOИ ПAKETЫ 005551 : ,AAX,B48/33 005552 : ,ATX,SMONOW 005553 : D,AEX,MONOW.ЧИCTKA ШKAЛЫ 005554 : D,ATX,MONOW.CBOИX ПAKETOB 005555 : ,XTA,SMONOW 005556 : ,ASN,64+32.CBOИ ПAKETЫ B 005557 : ,AAX,MONO. MOHOПOЛИИ 005558 : ,AOX,SMONOW 005559 : ,ATX,SMONOW 005560 : ,AEX,MONO.ЧИCTKA ШKAЛЫ 005561 : ,ATX,MONO. ПAKETOB 005562 : ,ASN,64-16.ШK.CПEЦ.ПAKETOB 005563 : M,VTM,-NJM1 005564 : *51:M,AOX,MONOW+NJM1 005565 : M,VLM,*51 005566 : ,AAX,B48/33 005567 : ,AOX,MONO 005568 : ,ATX,MONO 005569 : C PACПOKOBKA CYMMATOPA BXODA 005570 : ,XTA,STEC 005571 : ,ATI,P.AДP.ИHФ.ПOЛЯ 005572 : ,ASN,64+15 005573 : ,AAX,C37 005574 : ,ATI,T.TИП ЗAДAHИЯ 005575 : ,XTS,STEC.ДOП.ИHФ. 005576 : ,ASN,64+14.B BИДE 005577 : ,AAX,C76000.AДPECA 005578 : ,ATI,AP.PAБ.ЛИCTA 005579 : ,STX,INF.ДЛЯ KOORD 005580 : C HE OПEPAЦИЯ ЛИ ЭTO C ПAKETAMИ 005581 : ,A-X,BIT2 005582 : ,UZA,NOTDJ.HET 005583 : C OПEPAЦИЯ C ПAKETAMИ 005584 : 14,VJM,NEXTWORD.ПOЛYЧEHИE ШKAЛЫ 005585 : ,ATX,FILE.MOHOДEЙCTBИЙ 005586 : ,XTA,STEC.OПPEДEЛEHИE 005587 : ,ASN,64-20.ЧИCЛA ПAKETOB 005588 : ,ASN,64+44.B ЗAKAЗE B BИДE 005589 : ,X-A,.CЧETЧИKA 005590 : ,ATI,N.ДЛЯ VLM 005591 : MLDJ:,BSS, 005592 : C --- OCHOBHOЙ ЦИKЛ ПO ИMEHAM ПAKETOB 005593 : 13,VJM,NNOFD.ЗA N ПAKETA 005594 : M,UTM,3.(N ЗAKAЗA)*3 005595 : MP,VZM,EMLDJ.ПCEBДO 005596 : ,U1A,REFD1.ПAKETA HET 005597 : C YCTAHOBKA ПPИЗHAKA MOHOДEЙCTBИЙ 005598 : C B CYMMATOP. 005599 : ,XTA,FILE.ПPOДBИЖKA 005600 : ,ASN,64-1.ШKAЛЫ 005601 : ,ATX,FILE. 005602 : ,YTA,.ПPИ MOHOДEЙCTBИИ 005603 : ,ASN,64-5.CYMMATOP=0 005604 : ,A-X,BIT6.ИHAЧE OH=-32 005605 : T,VZM,PDOP.HA P-OПEPAЦИЮ 005606 : C ... OTKAЗ OT ПAKETA ИЛИ MOHOПOЛИИ 005607 : ,UZA,MONV.OTKAЗ OT MOH. 005608 : C HET ЛИ ПAKETE CBOИX ФAЙЛOB 005609 : ,XTA,P770077.MACKA ПPOBEPKИ 005610 : ,XTS,ДHЗ.PAЗMEЩEHИE ДHЗ 005611 : ,ASN,64-12.И HOMEPA MOДYЛЯ 005612 : ,ITS,NM.HA MECTA, ГДE 005613 : 15,AOX,.OHИ ЖИBYT B 005614 : ,ASN,64-30.ФAЙЛOBOЙ TAБЛИЦE 005615 : 13,VJM,SFAMA.ПOИCK 005616 : ,UZA,REFD2.HAШЛИ, OTKAЗ 005617 : C БYДET OTKAЗ OT ПAKETA 005618 : NM,XTA,BIT48-24 005619 : MONV:NM,AOX,BIT16-24.И OT MOHOПOЛИИ 005620 : ,AEX,FULWOR 005621 : ,AAX,SMONOW 005622 : ,ATX,SMONOW 005623 : ,UJ,EMLDJ 005624 : REFD2:,BSS, 005625 : C ... OTKAЗЫ B ДEЙCTBИЯX C ПAKETAMИ 005626 : ,UTC,-1 005627 : REFD1:M,XTA,BITS 005628 : ,AOX,REZACC 005629 : ,ATX,REZACC 005630 : ,UJ,EMLDJ 005631 : PDOP:,BSS, 005632 : C ... ЗAXBAT ПAKETA ИЛИ MOHOПOЛИИ 005633 : ,ATI,K 005634 : ,XTA,MONO.HE ЗAHЯT ЛИ 005635 : K,ASN,64.ПAKET ЧYЖИMИ 005636 : NM,AAX,BIT48-24.ЗAДAЧAMИ 005637 : ,U1A,REFD2.ЗAHЯT 005638 : C 005639 : C... OБPAЩEHИE ЗA PAЗPEШEHИEM 005640 : C K COCEДHEЙ ЭBM 005641 : C 005642 : ,ITA,NM 005643 : ,ARX,BIT4 005644 : ,AAX,C17 005645 : ,ASN,64-13 005646 : ,AOX,= 1000 7777 005647 : K,AOX,BIT13 005648 : ,CALL,K COCEДY 005649 : ,U1A,REFD2.ЗAHЯT 005650 : C PEAЛИЗAЦИЯ ЗAXBATA 005651 : NM,UTC, 005652 : K,XTA,BIT16-24 005653 : NM,AOX,BIT48-24 005654 : ,AOX,NEWDI 005655 : ,ATX,NEWDI 005656 : EMLDJ:,BSS, 005657 : C --- KOHEЦ ЦИKЛA ПO ПAKETAM 005658 : N,VLM,MLDJ 005659 : C OKOHЧATEЛЬHAЯ PAБOTA C ПAKETAMИ 005660 : ,XTA,REZACC.HET ЛИ OTKAЗOB 005661 : ,UZA,RETURN.ИX HET 005662 : ,XTA,.БЛOKИPOBKA 005663 : ,ATX,NEWDI.HOBЫX ЗAXBATOB 005664 : ,UJ,RETURN 005665 : NOTDJ:,BSS, 005666 : C...... OПEPAЦИЯ HE C ПAKETAMИ 005667 : N,VTM,.CЧETЧИK HEYДAЧ 005668 : ,NTR,7 005669 : ,UZA,KOORD.HYЖHA CПPABKA 005670 : ,A-X,BIT2 005671 : ,U1A,*NP.ЗAK.OБЫЧ.ФAЙЛOB 005672 : ,XTS, 005673 : ,STX,MASTER 005674 : ,U1A,NOTRSCR.KAKAЯ-TO V-OП. 005675 : C...... ЗAKAЗ SCRATCH ФAЙЛOB 005676 : AP,VTM,*QSCF 005677 : ,XTA,INF 005678 : ,AAX,BIT15 005679 : ,UZA,*QSCF 005680 : C...... ДOЗAKAЗ ЭKCTEHTOB 005681 : N,VTM,1 005682 : R,VJM,NEXTWORD 005683 : L,VJM,IFFMN 005684 : ,U1A,RETJF.FILE ABSENT 005685 : J,VZM,RETJF.TAPE 005686 : R,XTA,FATA+LTF 005687 : ,AAX,B36/31 005688 : ,U1A,RETJF.NOT SCRATCH 005689 : ,XTA,STEC 005690 : ,AAX,C77 005691 : ,ATX,MASTER 005692 : ,X-A,FREXT 005693 : ,U1A,SFEEND 005694 : N,VTM, 005695 : ,XTS,MASTER 005696 : R,ARX,FATA+LTF 005697 : R,STX,FATA+LTF 005698 : ,UJ ,SUC/S 005699 : *QSCF:,BSS,.OCHOBHOЙ ЦИKЛ 005700 : 14,VJM,NEXTWORD 005701 : ,UZA,SFEND.KOHEЦ ПOЛЯ 005702 : L,VJM,IFFMN.HE ECTЬ ЛИ MAT.N 005703 : ,UZA,FREFU.ЗAHЯT 005704 : C MAT. HOMEP CBOБOДEH 005705 : ,XTA,STEC 005706 : ,AOX,B48/43.ДHЗ ПOKA 005707 : ,ATX,STEC.ДEЛAETCЯ 77B 005708 : ,AAX,C77777.TPEБYEMЫX 005709 : ,ARX,MASTER.ЭKCTEHTOB 005710 : ,ATX,MASTER.B ШKAЛAX 005711 : K,VTM,-1.ПP. HET MECTA 005712 : ,UJ,SETFATA 005713 : SFEND:,BSS, 005714 : C KOHEЦ ЗAKAЗA SCRATCH ФAЙЛOB 005715 : N,V1M,FEND.БЫЛИ OШИБKИ 005716 : ,XTA,MASTER.XBATИT ЛИ 005717 : ,AAX,C77777 005718 : ,X-A,FREXT.ЭKCTEHTOB 005719 : ,UZA,SUC/S.ДA 005720 : SFEEND:,BSS, 005721 : N,VTM,-1.OTKAЗ ПO HEXBAT- 005722 : ,UJ,FEND.KE ЭKCTEHTOB 005723 : C --- OCHOBHOЙ БЛOK PAЗБOPA 005724 : *NP:,BSS, 005725 : C ... BЫБOPKA ИMEHИ ДИCKA 005726 : 13,VJM,NNOFD 005727 : ,ACX,.M=0, ECЛИ 005728 : ,ATI,M.ПAKET ДOCTYПEH 005729 : *REFF:,BSS, 005730 : C ... BЫБOPKA CCЫЛKИ ФAЙЛA 005731 : 14,VJM,NEXTWORD 005732 : AP,VTM,*REFF 005733 : ,UZA,FEND.KOHEЦ ИHФ.ПOЛЯ 005734 : ,ARX, 005735 : ,UZA,*NP.KON.ГPYППЫ ПAKET 005736 : MP,VZM,*REFF.ПCEBДO 005737 : M,V1M,FREFU.ПAKETA TO HET 005738 : ,AAX,=77 0040 7777 7777 005739 : L,VJM,IFFMN. 005740 : K,VTM,-1.ПP.ЗAHЯT MAT.N 005741 : ,UZA,FKREF.MAT.N ЗAHЯT 005742 : C MAT. HOMEP CBOБOДEH 005743 : K,UTM,-1. 005744 : 13,VTM,TOSET 005745 : ,ITA,NM 005746 : ,ASN,64-30 005747 : 14,VJM,ORMAT 005748 : FATASEAR:,BSS, 005749 : ,ITA,NM.YCTAHOBKA HOMEPA 005750 : ,ASN,64-30.MOДYЛЯ И ПPИЗ- 005751 : ,AOX,STEC .HAKA HEOKOHЧEH- 005752 : ,AOX,B48/43.HOГO ЗAKAЗA= 005753 : ,ATX,STEC.(ДHЗ=77B) 005754 : C HE ЗAHЯT ЛИ ЭTOT ФAЙЛ 005755 : ,AAX,BIT30.БИT ЗAПИCИ 005756 : ,AEX,=7740 7777 7777 005757 : ,XTS,STEC 005758 : ,AEX,BIT30 005759 : ,UJ,SFAMA 005760 : TO SET:,UZA,FKREF.ЗAHЯT 005761 : K,UTM,-1.ПP. HET MECTA 005762 : SETFATA:,BSS, 005763 : C...... П/П ПOИCKA CBOБOДHOГO MECTA B 005764 : C FATA И PAЗMEЩEHИE TYДA KOДA ИЗ 005765 : C STEC. BOЗBPAT ПO AP. 005766 : ,XTA,FULWOR.MACKA 005767 : ,XTS,.OБPAЗ 005768 : 13,VJM,SFAMA 005769 : ,U1A,FKREF.HET MECTA 005770 : ,XTA,STEC.ЗA ДHЗ ПOKA 1 005771 : WRF:14,ATX,FATA+LTF 005772 : AP,UJ, 005773 : FKREF:,BSS, 005774 : C...... П/П ФИKCAЦИИ HEYДAЧ.BOЗBPAT AP. 005775 : K,UTC, 005776 : FREFU:,XTA,BIT43. 005777 : N,UTM,1.CЧET HEYДAЧ 005778 : AP,MTJ,14 005779 : ,UJ,ORMAT 005780 : SUC/S:,BSS, 005781 : C ... ФOPMИPOBKA CЧETЧИKA CBOБOДHЫX 005782 : C ЭKCTEHTOB И ШKAЛЫ-CЧETЧИKA ЗAДAЧИ 005783 : ,ATX,FREXT 005784 : ,XTA,MASTER 005785 : ,WTC,ГYC 005786 : ,ARX,RDL 005787 : ,WTC,ГYC 005788 : ,ATX,RDL 005789 : FEND:,BSS, 005790 : C --- KOHEЦ PAБOTЫ C ФAЙЛAMИ 005791 : C БЫЛИ ЗAKAЗЫ ФAЙЛOB 005792 : CORFA:,BSS, 005793 : C ЦИKЛ ИCПPABЛEHИЯ HEOKOHЧ.CЛOB FATA 005794 : ,XTA,B48/43. 005795 : ,XTS,B48/43 005796 : 13,VJM,SFAMA.ПOИCK HEOKOHЧ. 005797 : ,U1A,RETJF.ИX БOЛЬШE HET 005798 : N,V1M,CRWF.БЫЛИ HEYДAЧИ 005799 : 14,XTA,FATA+LTF.ПOЛYЧKHИE MAT. 005800 : ,ASN,64+36.HOMEPA ФAЙЛA 005801 : ,ATI,13.+7700B 005802 : 13,XTA,BITS-7727B.YCTAHOBKA БИTA 005803 : ,WTC,ГYC 005804 : ,AOX,MLD 005805 : ,WTC,ГYC 005806 : ,ATX,MLD 005807 : ,XTA,ДHЗ.ПPИ OTCYTCTBИИ 005808 : ,ASN,64+6.HEYДAЧ HA MECTO 005809 : ,YTA,.ДHЗ ПOMEЩAETCЯ 005810 : ,AEX,B48/43.ДHЗ ЗAKAЗЧИKA 005811 : 14,AEX,FATA+LTF.BMECTO 1 005812 : CRWF:14,ATX,FATA+LTF 005813 : ,UJ,CORFA 005814 : RETJF:,ITA,N.CYMMAT.BЫXOДA = 005815 : ,ATX,REZACC.ЧИCЛO HEYДAЧ 005816 : ,UJ,RETURN 005817 : NOTRSCR:,BSS, 005818 : C...... HE OTKAЗ ЛИ ЭTO OT ФAЙЛOB: 005819 : ,A-X,BIT2 005820 : ,UZA,GLORST.HEЧTO ДPYГOE 005821 : C...... OTKAЗ OT ФAЙЛOB 005822 : *FREFIL:,BSS, 005823 : AP,VTM,*FREFIL 005824 : 14,VJM,NEXTWORD 005825 : ,UZA,RETJF.KOHEЦ ПOЛЯ 005826 : ,XTS,Д H З 005827 : ,ASN,64+6 005828 : ,YTA, 005829 : 15,AOX, 005830 : ,ATX,FILE 005831 : ,XTA,B48/37 005832 : ,XTS,FILE 005833 : 13,VJM,SFAMA 005834 : ,U1A,FREFU.TAKOГO HET 005835 : 14,XTA,FATA+LTF.ЗAПOMHИM 005836 : ,AAX,P770077.ДHЗ И NMOD 005837 : ,ATX,STEC 005838 : AP,VJM,KILLFILE 005839 : C ECTЬ ЛИ HA ПAKETE EЩE HAШИ ФAЙЛЫ 005840 : ,XTA,P770077 005841 : ,XTS,STEC 005842 : 13,VJM,SFAMA 005843 : C HYЖEH ЛИ OTKAЗ И OT ПAKETA 005844 : ,UZA,*FREFIL 005845 : ,XTA,INF 005846 : ,UZA,*FREFIL 005847 : C OTKAЗ OT ПAKETA 005848 : ,XTA,STEC 005849 : ,ASN,64-12 005850 : ,ASN,64-6 005851 : ,YTA, 005852 : ,UZA,*FREFIL.ЭTO SCRATCH 005853 : ,ATI,NM 005854 : ,AEX,C77 005855 : ,UZA,*FREFIL.ПCEBДO 005856 : ,XTA,SMONOW 005857 : NM,AOX,BIT48-24 005858 : NM,AEX,BIT48-24 005859 : ,XTS,SMONOW 005860 : ,ASN,64-32 005861 : 15,AOX, 005862 : ,ATX,SMONOW 005863 : ,UJ,*FREFIL 005864 : KILLFILE:,BSS, 005865 : C...... П/П YHИЧTOЖEHИЯ ФAЙЛA 005866 : C И14=N CЛOBA FATA-ДЛИHA FATA, 005867 : C COOTBETCTBYЮЩEE HYЖHOMY ФAЙЛY 005868 : C BOЗBPAT ПO AP. 005869 : 14,XTA,FATA+LTF 005870 : ,AAX,B48/31.A KAKOЙ 005871 : ,ASN,64-12.TИП ФAЙЛA: 005872 : ,U1A,CPCSC.OБЫЧHЫЙ 005873 : C 005874 : C... ПPИ OTKAЗE OT SCRATCH YЧИTЫBAEM 005875 : C ДOП.ИHФOPMAЦИЮ. БИT 29 OЗHAЧAET 005876 : C OTKAЗ OT OДHOГO TOЛЬKO ЭKCTEHTA 005877 : C A HE OT BCEГO ФAЙЛA ЦEЛИKOM. 005878 : C ЛOKAЛЬHЫЙ HOMEP (0..63) 005879 : C ЭTOГO ЭKCTEHTA ЗAДAETCЯ B 6-1 005880 : C PAЗPЯДAX ИHФOPMAЦИOHHOГO ПOЛЯ 005881 : R,XTA,FATA+LTF 005882 : ,ARX,=:5750 005883 : ,AAX,B48/37 005884 : ,XTS,FILE 005885 : ,AAX,C77 005886 : S,AEX, 005887 : ,APX,=3737 0000 0000 0077 005888 : ,ATX,FILE 005889 : ,XTA,INF 005890 : ,AAX,BIT15 005891 : ,ASN,64+11 005892 : ,ATI,T 005893 : :,U1A,*+1 005894 : 14,WTC,FATA+LTF 005895 : MP,VTM, 005896 : ,XTA,B48/31 005897 : T,ASN,64-8 005898 : ,ATX,MASTER 005899 : J,VTM,-LTXM1 005900 : ,XTA,B16/1 005901 : LCTEX1:,BSS, 005902 : C ЦИKЛ ЧИCTKИ TAБЛ.ЭKCTEHTOB 005903 : 13,XTS,*TDIS+LTXM1 005904 : 15,APX,-1.OЧEPEД.ЭЛEMEHT 005905 : ,AEX,FILE 005906 : ,AAX,MASTER 005907 : ,U1A,ELCTEX1.HE HAШ 005908 : 13,XTA,*TDIS+LTXM1 005909 : 15,AOX,-1.YHИЧTOЖEHИE 005910 : 15,AEX,-1.ЭЛEMEHTA 005911 : 13,ATX,*TDIS+LTXM1 005912 : MP,UTM,1 005913 : ELCTEX1:15,XTA, 005914 : ,ASN,64-16 005915 : ,U1A,LCTEX1 005916 : ,XTA,B16/1 005917 : 13,VLM,LCTEX1 005918 : ,ITA,MP 005919 : ,ARX,FREXT.+ K CЧ.CBOБ. 005920 : ,ATX,FREXT.ЭKCTEHTOB 005921 : ,ITA,MP 005922 : ,AEX,FULWOR.KOPPEKЦИЯ 005923 : ,ARX,BIT1 005924 : ,AAX,C77777 005925 : ,WTC,ГYC 005926 : ,ARX,RDL 005927 : ,AAX,C77777 005928 : ,WTC,ГYC 005929 : ,ATX,RDL 005930 : AP,UTC, 005931 : T,VIM, 005932 : CPCSC:,AEX,B48/43 005933 : ,WTC,ГYC 005934 : 13,VTM, 005935 : ,UZA,KILFFS.ПCEBДO 005936 : 14,XTA,FATA+LTF 005937 : ,ASN,64+36.MATEMATИЧECKOГO 005938 : ,AAX,C77.HOMEPA 005939 : ,XTS,FULWOR.И MACKИ ЧИCTKИ 005940 : 15,WTC,.ШKAЛ MOДEЛEЙ 005941 : ,AEX,BIT48-30B.MAT.ЛEHT 005942 : 13,AAX,MLD 005943 : 13,ATX,MLD 005944 : ,AOX,C77777 005945 : 13,AAX,RDL 005946 : 13,ATX,RDL 005947 : ,XTA,.YHИЧTOЖEHИE 005948 : 14,ATX,FATA+LTF.CCЫЛKИ 005949 : AP,UJ, 005950 : C 005951 : C... OTKAЗ OT ПCEBДOФAЙЛA 005952 : C 005953 : KILFFS:,XTA,C3."CLOSE" 005954 : 13,ATX,FSJOB 005955 : 14,XTA,FATA+LTF 005956 : ,APX,=:0077 0003.LUN+NFS 005957 : ,AUX,=:7703 005958 : 15,ATX, 005959 : ,ASN,64+42 005960 : 13,STX,FSINF.LUN 005961 : ,AOX,BIT40 005962 : C--- 005963 : *522:,AOX,=17 0470 0000 005964 : 14,VTM,13B 005965 : 14,MTJ,27B 005966 : ,*52,2 005967 : ,AEX,=6HOTЛYП 005968 : ,U1A,HE OTЛYП 005969 : ,XTA,=6HOTЛYП 005970 : ,UJ,WRACCRET 005971 : HE OTЛYП:,AEX,=6HOTЛYП 005972 : AP,UJ, 005973 : C---------- 005974 : KOORD:,BSS, 005975 : C...... ПOЛYЧEHИE KOOPДИHAT ФAЙЛA И ПPO- 005976 : C BEPKA PEЖИMA ДOCTYПA. (CЧETЧИK 005977 : C HEYДAЧ N BEДETCЯ B OБPATHOM KOДE) 005978 : 13,VJM,NNOFD 005979 : ,U1A,ENKOOR.ДИCKA HET 005980 : C OПPEДEЛEHИE TИПA ДИCKA. 005981 : ,ITA,NM 005982 : ,ASN,64+3.HOMEP 005983 : ,ATI,14.HAПPABЛEHИЯ 005984 : 14,XTA,SCDICH.TИП ДИCKA 005985 : ,AEX,BIT48.ДЛЯ MAЛЫX ДИCKOB 005986 : ,ASN,64+5.YCTAHOBИM CДBИГ 005987 : ,AOX,BIT48.HA 2 BПPABO, 005988 : ,ATX,TDSH.ИHAЧE - HA 0 005989 : N,VTM,-1.HAЧ.COCT.CЧ. 005990 : C --- OCHOBHOЙ БЛOK PAЗБOPA 005991 : /GM:,BSS, 005992 : C ... BЫБOPKA ИMEHИ MACTEPA 005993 : 14,VJM,NEXTWORD 005994 : ,ARX, 005995 : ,UZA,ENKOOR.KOHEЦ.ИHФ.ПOЛЯ 005996 : ,ATX,MASTER.ИMЯ MACTEPA 005997 : ,UJ,/GF.ЗA ФAЙЛAMИ 005998 : EMLCP:,BSS,. 005999 : C KOHEЦ ПPOXOДA KATAЛOГA 006000 : MP,VLM,NEWPCAT 006001 : C ФAЙЛ HE HAЙДEH 006002 : WRBAD:,BSS, 006003 : C COOБЩEHИE OБ OTKAЗE B KOOPДИHATAX 006004 : TR,XTA,BIT48.TИП OTKAЗA 006005 : N,UTM,-1.CЧET OTKAЗOB 006006 : C ЗAПИCЬ PEЗYЛЬTATA 006007 : WRINF:14,VJM,ORMAT 006008 : /GF:,BSS, 006009 : C ... BЫБOPKA OПИCAHИЯ ФAЙЛA 006010 : 14,VJM,NEXTWORD 006011 : ,ARX, 006012 : ,UZA,/GM.KOHEЦ ГP.MACTEPA 006013 : ,ATX,FILE.ИMЯ ФAЙЛA 006014 : TR,VTM,.ПP.'ПЛOX.OПИC.' 006015 : 14,VJM,NEXTWORD.2 CЛOBO OПИC. 006016 : ,ATX,STEC 006017 : K,VTM,C5.'БEЗ ЗAПИCИ' 006018 : ,UZA,*70 006019 : ,AAX,BITW2W 006020 : :,UZA,*+1 006021 : K,VTM,0.'ЗAПИCЬ' 006022 : :,AEX,STEC 006023 : ,UZA,*70 006024 : C 006025 : C.... ПPИ ЗAKAЗE ПCEBДOФAЙЛA 006026 : C 1-Й И 3-Й ЭTAПЫ ИГHOPИPYЮTCЯ. 006027 : C BCE ДEЛAETCЯ HA ЭTAПE ЗAПPOCA 006028 : C KOOPДИHAT. ПPИ ЭTOM B 42:37 P. 006029 : C 2 CЛOBA OПИCAHИЯ ФAЙЛA ДOЛЖEH 006030 : C YKAЗЫBATЬCЯ MAT.HOMEP. 006031 : C 006032 : L,VJM,IFFMN 006033 : ,UZA,WRBAD 006034 : ,WTC,ГYC 006035 : 13,VTM, 006036 : ,XTA,STEC 006037 : ,ASN,64+36 006038 : ,AAX,C77 006039 : 13,ATX,FSINF+2.LUN 006040 : ,ASN,64-42 006041 : 13,ATX,FSINF+4 006042 : ,XTA,MASTER 006043 : 13,ATX,FSINF 006044 : ,XTA,FILE 006045 : 13,ATX,FSINF+1 006046 : K,XTA,. 5 = "R" 006047 : ,ASN,64-40 006048 : ,AEX,=6HW 006049 : 13,ATX,FSINF+3 006050 : ,XTA,BIT3."OPEN" 006051 : 13,ATX,FSJOB 006052 : 13,XTA,DISNAM 006053 : ,ASN,64+12 006054 : ,AAX,C3 006055 : MP,VIM,WRBAD 006056 : ,ASN,64-36 006057 : 13,AOX,FSINF+4 006058 : AP,VJM,*522 006059 : TR,VTM,2 006060 : ,ASN,64+34 006061 : ,U1A,WRBAD.HET Ф.C. 006062 : 13,XTA,FSJOB.HAЧ.OTBETA 006063 : ,AAX,C77777 006064 : TR,VTM,1 006065 : ,U1A,WRBAD 006066 : 13,XTA,FSINF.LIMIT-1 006067 : ,AAX,C7777 006068 : ,UJ,WRINF 006069 : C--- 006070 : *70:,BSS, 006071 : TR,VTM,1.ПP.'HET ФAЙЛA' 006072 : MP,VTM,-1.CЧETЧИK ПPOXOДOB 006073 : NEWPCAT:,BSS, 006074 : L,VTM,4-1024 006075 : 14,VJM,GI1Z 006076 : MLCP:,BSS, 006077 : C ЦИKЛ ПPOXOДOB ПO KATAЛOГY 006078 : 13,VJM,GIWOCA 006079 : ,UZA,EMLCP.KOHEЦ KATAЛOГA 006080 : 15,ATX,.ИMЯ ФAЙЛA 006081 : 13,VJM,GIWOCA. 006082 : ,ATX,STEC.XAPAKTEPИCTИKA 006083 : ,ASN,64+42 006084 : ,STI,M.ЧИCЛO 'USER'OB 006085 : ,AEX,FILE.TOT ЛИ ФAЙЛ 006086 : ,U1A,HE TOT 006087 : TR,VTM,2.ПP.'HET ДOCTYПA' 006088 : MP,V1M,USERS.ПOИCK ПO 'USER'Y 006089 : C ПPOBEPЯEM OБЩИЙ ДOCTYП 006090 : ,XTA,STEC 006091 : ,AAX,BGEN 006092 : ,UZA,HE TOT.OБЩ.ДOCTYПA HET 006093 : ,XTA,STEC.BЫДEЛEHИE ПPИЗH. 006094 : ,AAX,BWGEN.PAЗPEШEHИЯ ЗAП. 006095 : REGIM:,BSS, 006096 : C ПPOBEPKA ДOCTYПA ПO ЗAПИCИ 006097 : K,AOX,.HE 0 - HE HYЖEH 006098 : ,U1A,WRGOOD.OH ECTЬ 006099 : HE TOT:,BSS, 006100 : C ПEPEXOД K CЛEДYЮЩEMY ФAЙЛY 006101 : M,VZM,MLCP 006102 : 13,VJM,GIWOCA.ПPOПYCK 'USER'A 006103 : M,UTM,-1 006104 : ,UJ,HE TOT 006105 : USERS:,BSS, 006106 : C ПPOBEPЯEM ИMЯ 'USER'A 006107 : M,VZM,MLCP.HET HAШEГO 006108 : 13,VJM,GIWOCA 006109 : M,UTM,-1 006110 : ,ATX,REZACC.ИMЯ 006111 : ,AEX,MASTER 006112 : ,AAX,D8/7F 006113 : ,U1A,USERS.ИMЯ HE TO 006114 : ,XTA,REZACC.BЫДEЛ.ПPИЗH. 006115 : ,AAX,BWMAS.PAЗPEШEHA ЗAПИCЬ 006116 : ,UJ,REGIM 006117 : WRGOOD:,BSS, 006118 : C ПOЛYЧEHИE KOOPДИHAT ФAЙЛA 006119 : ,XTA,STEC 006120 : ,ASN,64-20 006121 : ,ASN,64+24 006122 : ,ARX,BIT3.[B,E] B [B,E+1) 006123 : ,ASX,TDSH 006124 : ,AAX,B24/1 006125 : ,A-X,BIT1.[B,E+1) B [B,E] 006126 : ,ATX,FILE 006127 : ,AOX,BIT30 006128 : ,ATX,STEC 006129 : 13,VJM,FATASEAR 006130 : ,U1A,FR/FILE 006131 : 14,XTA,FATA+LTF 006132 : ,AAX,B48/37 006133 : ,ASN,64+6 006134 : ,AOX,FILE 006135 : ,UJ,WRINF 006136 : FR/FILE:,XTA,FILE 006137 : ,UJ,WRINF 006138 : ENKOOR:,BSS, 006139 : C --- KOHEЦ ПOЛYЧEHИЯ KOOPДИHAT 006140 : ,ITA,N.B CYM.PEЗYЛЬTATA 006141 : ,AEX,C77777.ЧИCЛO HEYДAЧ 006142 : ,ATX,REZACC.B.ПPЯMOM KOДE 006143 : ,UJ,RETURN 006144 : GLORST:,BSS, 006145 : C...... ГЛOБAЛЬHЫЙ OTKAЗ ИЛИ CMEHA CTAT. 006146 : ,X-A,C30 006147 : ,UZA,GLOBAL 006148 : C...... YCTAHOBKA(CMEHA) CTATYCA. 006149 : 14,VJM,NEXTWORD 006150 : L,VJM,IFFMN 006151 : ,U1A,WRACCRET.PECYPCA HET 006152 : C BЫДEЛEHИE CTATYCA И MAT.N 006153 : ,XTA,STEC 006154 : ,ATI,K.CTATYC 006155 : ,ASN,64+36 006156 : ,AAX,C77 006157 : ,ATI,N.MAT.HOMEP 006158 : 13,VZM,ITISTAPE.PECYPC - ЛEHTA 006159 : C HE ECTЬ ЛИ PECYPC SCRATCH-ФAЙЛ. 006160 : 14,XTA,FATA+LTF 006161 : ,AAX,B48/31 006162 : ,ASN,64-12 006163 : ,UZA,BADSET.ДA - ЗAПPET 006164 : C ЗAHECEHИE CTATYCA B FATA 006165 : ,ITA,K 006166 : ,ASN,64-26 006167 : 14,AEX,FATA+LTF 006168 : ,AAX,B28/27 006169 : 14,UTM,FATA+LTF 006170 : ,UJ,SETCTA 006171 : BADSET:,BSS, 006172 : C ПЫTAЛИCЬ ПOCTABИTЬ CTATYC 006173 : C HA PECYPC ЗAПPEЩEHHOГO TИПA 006174 : ,XTA,BIT1 006175 : ,UJ,WRACCRET 006176 : ITISTAPE:,BSS, 006177 : C PECYPC ЛEHTA. A HE MOДEЛЬ ЛИ: 006178 : 14,UTM,31 006179 : ,ITA,14 006180 : ,AAX,BIT15 006181 : ,U1A,BADSET.MOДEЛЬ-ЗAПPET 006182 : ,ITA,K 006183 : ,AAX,BIT3 006184 : ,U1A,CHEKW 006185 : ,UTC,FULWOR-WTAPES 006186 : CHEKW:,XTA,WTAPES 006187 : 14,AAX,BIT48+16 006188 : ,UZA,BADSET 006189 : C YCTAHOBKA CTATYCA B T!MT 006190 : 14,UTM,T1MT 006191 : ,ITA,K 006192 : ,ASN,64-1 006193 : 14,AEX, 006194 : ,AAX,=16 006195 : SETCTA:,24,2003B 006196 : 14,AEX, 006197 : 14,ATX, 006198 : ,WTC,ГYC 006199 : ,XTA,RDL 006200 : N,AOX,BIT48-24.BCTABKA 006201 : K,UTM,-3.HAДЛEЖAЩEГO 006202 : K,VZM,STCT1.БИTA 006203 : N,AEX,BIT48-24.B ШKAЛY 006204 : STCT1:,WTC,ГYC.CTATYCOB 006205 : ,ATX,RDL 006206 : : ,24,3 006207 : ,XTA, 006208 : WRACCRET:,BSS, 006209 : ,ATX,REZACC 006210 : ,UJ,RETURN 006211 : GLOBAL:,BSS, 006212 : C...... OTKAЗ BCEX ДИCKOBЫX PECYPCOB 006213 : ,XTA,B48/43. 006214 : ,XTS,ГYC.ПPOЧИCTKA 006215 : 13,VJM,SFAMA.CЛOB FATA 006216 : ,U1A,ENGLBL.CO CBOИM ДHЗ 006217 : AP,VTM,GLOBAL 006218 : ,UJ,KILLFILE 006219 : ENGLBL:,XTA,.ПPOЧИCTKA KOПИИ 006220 : ,ATX,SMONOW.ШKAЛЫ ЗAHЯTOCTИ 006221 : RETURN:,BSS, 006222 : C...... OKOГЧAHИE ЭKCTPAKOДA. 006223 : C BOCCTAHOBЛEHИE ШKAЛ ЗAHЯTOCTИ. 006224 : ,XTA,SMONOW 006225 : ,AOX,NEWDI 006226 : 15,ATX, 006227 : ,AAX,B48/33 006228 : D,AOX,MONOW 006229 : D,STX,MONOW 006230 : ,AOX,MONO 006231 : ,STX,MONO 006232 : 9,MTJ,14 006233 : 14,REL,BASA 006234 : ,XTR,STEC+1 006235 : 13,VTM,4 006236 : RESIR:,BSS, 006237 : C BOCCTAHOBЛEHИE ИHДEKC PEГИCTPOB 006238 : 13,ATI,.PEГИCTPЫ 1-4 006239 : ,ASN,64+15 006240 : 13,ATI,4.PEГИCTPЫ 5-8 006241 : ,ASN,64+15 006242 : 13,STI,8.PEГИCTPЫ 9-12 006243 : 13,UTM,-1 006244 : 13,V1M,RESIR 006245 : C OKOHЧATEЛЬHOE BOCCTAHOBЛEHИE 006246 : : ,24,2003B 006247 : ,STI,32B.BOЗBPAT 006248 : ,ATI,13 006249 : ,ASN,64+15 006250 : ,ATI,15 006251 : C====== V-OPERATION 006252 : ,ITA,14 006253 : ,ARX,W/UP 006254 : ,UJ,SEMUP 006255 : C====== 006256 : V/RET:,BSS, 006257 : ,XTA,REZACC.YCT.CYMMATOPA 006258 : ,ATX,SAVAC.PEЗYЛЬTATA 006259 : ,AEX,=6HOTЛYП 006260 : ,U1A,V/RET1 006261 : C 006262 : C.... ЗAДAЧE - ПOBTOPHЫЙ BXOД 006263 : C 006264 : ,XTA,ШЛAГБAYM 006265 : ,AEX,Д H З 006266 : ,AAX,C77 006267 : ,UZA,V/RET1.Э57 4000 006268 : ,XTA,BITJ 006269 : ,AOX,WAITPOST 006270 : ,ATX,WAITPOST 006271 : ,XTA,INFW*57 006272 : ,ATX,SAVAC 006273 : ,XTA,SAVI14OW 006274 : ,ATX,SAVAR 006275 : 13,MTJ,16 006276 : ,CALL,SAVEMOD 006277 : ,XTA,DISREG 006278 : ,ATI,27B 006279 : 13,VTM,P/ENT 006280 : 13,MTJ,33B 006281 : ,UJ,CLANEWTA 006282 : V/RET1:,BSS, 006283 : C BOCCTAHOBЛEHИE 27B MOДИФИKATOPA 006284 : ,XTA,SAVI14OW 006285 : ,ATI,27B 006286 : ,XTA,CNROFF 006287 : ,UJ,NRESOFF 006288 : NROCCD:,SUBP, 006289 : CNROFF:,Z00,NROCCD 006290 : ,Z00,OUTMACRO 006291 : 9,REL,BASA 006292 : IFFMN:,BSS, 006293 : C...... П/П OПPEДEЛEHИЯ ЗAHЯT ЛИ 006294 : C MAT.HOMEP. HA BXOДE: ACC= 006295 : C MAT.N, B PAЗPЯTAX 42-37. HA 006296 : C BЫXOДE ACC=0.EQ.ЗAHЯT. ACC BXOДA 006297 : C C ДHЗ B 48-43P B STEC. BOЗBPAT=L 006298 : ,XTS,ГYC 006299 : ,AAX,B48/43 006300 : 15,AOX, 006301 : ,ATX,STEC 006302 : ,XTA,B48/37 006303 : ,XTS,STEC.C TEM ЖE 006304 : 13,VJM,SFAMA.MAT.HOMEPOM 006305 : L,UZA,.ECTЬ TAKOЙ 006306 : C ПOИCK TAKOЙ ЛEHTЫ 006307 : 13,VTM,.ПPИЗHAK ЛEHTЫ 006308 : 14,VTM,1-48 006309 : *60:14,XTA,T1MT+31 006310 : ,AEX,STEC 006311 : ,AAX,B48/37 006312 : L,UZA, 006313 : 14,VLM,*60 006314 : ,XTA,B48/37.ПOИCK ФAЙЛA 006315 : ,XTS,STEC.C TEM ЖE MAT.N 006316 : ,AOX,B48/43.ИЗ ЧИCЛA HOBЫX 006317 : L,MTJ,13 006318 : SFAMA:,BSS, 006319 : C...... П/П ПOИCKA B FATA OБPAЗA(ACC) 006320 : C ПO MACKE(BEPXYШKA CTEKA). 006321 : 14,VTM,-LTF 006322 : ,WTC,ГYC.БЛOKИPOBKA 006323 : ,XTS,REGSCAL.ПPOBEPKИ 006324 : ,AAX,BIT30.ЗAHЯTOCTИ 006325 : ,UZA,LSFM. - HET 006326 : 15,XTA,-1 006327 : ,UZA,LSFM 006328 : 15,XTA,-2 006329 : ,AAX,B24/1 006330 : ,U1A,RSFM. - ДA 006331 : LSFM:14,XTA,FATA+LTF 006332 : 15,AEX,-1 006333 : 15,AAX,-2 006334 : ,UZA,RSFM 006335 : 14,VLM,LSFM 006336 : C 006337 : C... A HE ЗAHЯT ЛИ ФAЙЛ Y COCEДA 006338 : C 006339 : 15,XTA,-2 006340 : 15,UTM,-2 006341 : ,AAX,B24/1 006342 : ,UZA,NOQUEST 006343 : 15,XTA,1 006344 : ,UZA,NOQUEST 006345 : ,ARX,BIT34 006346 : ,APX,=0000 1740 7777 0000 006347 : ,ASN,64+31 006348 : ,AOX,BIT22 006349 : 13,MTJ,14 006350 : ,CALL,K COCEДY 006351 : :,24,3 006352 : 14,MTJ,13 006353 : :,UZA,NOQUEST.CBOБOДEH 006354 : ,UTC,-BIT1.ЗAHЯT 006355 : NOQUEST:,XTA,BIT1 006356 : 13,UJ, 006357 : RSFM:15,UTM,-2 006358 : 13,UJ, 006359 : GI1Z:,BSS, 006360 : C...... П/П ЧTEHИЯ 1-OЙ ЗOHЫ KATAЛOГA 006361 : ,ITA,AP.AДPEC ЛИCTA 006362 : ,ASN,64-8 006363 : ,ITS,NM.HOMEP MOДYЛЯ 006364 : 15,AOX, 006365 : ,ASN,64-12.ФOPMИPOBKA 006366 : ,AOX,CINF.ИHФ.CЛOBA 006367 : ,AEX,INF.CTAPOE ИHФ.CЛOBO 006368 : 14,UZA,.ЗOHA B ПAMЯTИ 006369 : ,AEX,INF 006370 : ,UJ,TRAN.HA OБMEH 006371 : GI2Z:,BSS, 006372 : C...... П/П ЧTEHИЯ 2-OЙ ЗOHЫ KATAЛOГA 006373 : ,XTA,INF 006374 : ,ARX,BIT1 006375 : TRAN:,BSS, 006376 : ,ATX,INF.TEKYЩЩЩEE ИHФ. 006377 : ,ITA,14.CПACEHИE 006378 : C ПOПЫTKA ЧTEHИЯ KATAЛOГA 006379 : ,XTS,INF.BOЗBPATA 006380 : 14,VTM,13B 006381 : 14,MTJ,27B 006382 : ,*70, 006383 : ,U1A,RETRAN.ПPOЧЛOCЬ 006384 : ,XTA,INF 006385 : ,ARX,BIT2.ЧTEHИE 006386 : ,*70,.ДYБЛЬ ЗOHЫ 006387 : ,U1A,RETRAN.ЭTA ПPOЧЛACЬ 006388 : C ДИAГHOCTИKA OTKAЗA 006389 : ,ITA,NM 006390 : ,ASN,64-42 006391 : ,AUX,=6H'''''7''7' 006392 : ,AOX,=6HГ 00'''' 006393 : ,STX,TEK+1 006394 : ,24,2003B 006395 : 14,VTM,TEK 006396 : ,ITA,14 006397 : N,VTM, 006398 : 14,VTM,EN KOOR 006399 : ,UJ,TTPRINT 006400 : RETRAN:,BSS, 006401 : C KATAЛOГ ПPOЧИTAH 006402 : 15,WTC, 006403 : ,UJ, 006404 : ORMAT:,BSS, 006405 : C...... П/П HAЛOЖEHИЯ HA ИHФ.ПOЛE 006406 : ,WTC,SAVI14OW 006407 : : ,24, 006408 : P,AOX,-1 006409 : P,ATX,-1 006410 : : ,24,3 006411 : 14,UJ, 006412 : NEXTWORD:,BSS, 006413 : C...... П/П ЧTEHИЯ CЛOBA ИHФ. ПOЛЯ 006414 : ,WTC,SAVI14OW 006415 : : ,24, 006416 : P,XTA, 006417 : : ,24,3 006418 : P,UTM,1 006419 : 14,UJ, 006420 : GIWOCA:,BSS, 006421 : C...... П/П ЧTEHИЯ CЛOBA KATAЛOГA 006422 : L,V1M,RGWC.HE HOBЫЙ ЛИCT 006423 : 14,VJM,GI2Z 006424 : L,VTM,-1024 006425 : RGWC:,24,2000B 006426 : L,UTC,1024 006427 : AP,XTA, 006428 : L,UTM,1 006429 : : ,24,3 006430 : 13,UJ, 006431 : NNOFD:,BSS, 006432 : C...... П/П ПOИCKA MOДYЛЯ, HA KOTOPOM 006433 : C CTOИT ДИCK C OЧEPEДHЫM ИMEHEM 006434 : C ACC.NE.0=HET ДOCTYПA 006435 : 14,VJM,NEXTWORD.ИMЯ ДИCKA 006436 : 15,ATX, 006437 : NM,VTM,77B 006438 : ,WTC,ГYC 006439 : ,ATX,DISNAM 006440 : ,AAX,C7777 006441 : ,ATI,MP.0-ПCEBДO 006442 : ,UZA,RET1 006443 : NM,VTM,1-16 006444 : LSM:NM,XTA,DNAM+15 006445 : 15,AEX,-1 006446 : ,U1A,ELSM 006447 : ,XTA,CMDREC+1. 006448 : NM,AAX,BIT48+15.ПPOБA "ДHO" 006449 : ,U1A,ELSM.БЫЛO 006450 : NM,UTM,15+30B 006451 : ,XTA,CMDREC.ШK.ГOTOBHOCTИ 006452 : NM,AAX,BIT48-24 006453 : NM,AEX,BIT48-24 006454 : ,U1A,RET1.HE ГOTOB 006455 : T,VZM,RET1 006456 : ,XTA,SMONOW 006457 : NM,AAX,BIT48-24 006458 : NM,AEX,BIT48-24 006459 : RET1:15,UTM,-1 006460 : 13,UJ, 006461 : ELSM:NM,VLM,LSM 006462 : 15,UTM,-1 006463 : 13,UJ, 006464 : W/DOWN:8,Z00,SEMAFOR 006465 : ,Z00,P/RET-BASA 006466 : W/UP:8,Z00,SEMAFOR 006467 : ,Z00,V/RET-BASA 006468 : CINF:1,014,2 006469 : ,,7774B 006470 : D8/7F:,GOST,3H'177''177''177' 006471 : ,CONT,3H'177''177''177' 006472 : MASKEY:,OCT,7777 7740 74 006473 : KEY:,OCT,6470 7240 40 006474 : B28/27:,OCT,0000 0014 006475 : C30:,LOG,30 006476 : P770077:,OCT,770077 006477 : B48/37:,OCT,7777 006478 : B48/43:,OCT,77 006479 : B48/33:,OCT,7777 74 006480 : TEK:,ISO,12HKATAЛO 006481 : INFW*57:,BSS,1 006482 : NEWDI:,BSS,1 006483 : TDSH:,BSS,1 006484 : WORK:,BSS,16 006485 : ,END, 006486 : NRES064:,NAME,.05.06.78 006487 : C 006488 : C***** HEPEЗИДEHT ЭKCTPAKOДA ПEЧATИ 006489 : C 006490 : *TAKCA:LC,BLOCK,(5),CTLP 006491 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 006492 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 006493 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 006494 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 006495 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 006496 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 006497 : C1:,EQU,BIT1 006498 : K06131:,EQU,BIT1 006499 : K06457:,EQU,BIT34 006500 : C----- 006501 : *ИПД:LC,BLOCK,XNF(5),XNC 006502 : ,CONT,(2),Ш/CЛYЖ 006503 : ,CONT,Ш/FULL(13),XLSMB 006504 : ,CONT,(6),LISTFLAG(2),C/BUF 006505 : ,CONT,(12),LIMLPSC,БЫЛ*64 006506 : ,CONT,(5),EXTSC(11),БЫЛ*ПФ 006507 : ,CONT,SCENDJO 006508 : NF:,WEQ,XNF 006509 : NC:,WEQ,XNC 006510 : LSMB:,WEQ,XLSMB 006511 : NDIV:,LC,2 006512 : SCALES:LC,BLOCK,(3),STCLTA(3),SCWPRIN 006513 : *WRBF64:,SUBP, 006514 : NRESCALL:,SUBP, 006515 : SELECT : ,SUBP, 006516 : PERMIR : ,SUBP, 006517 : FULSAV : ,SUBP, 006518 : SAVIND : ,SUBP, 006519 : ДHЗ:LC,BLOCK,(1),BITJ 006520 : C37 : ,LC,1 006521 : C7 : ,LC,1 006522 : C3 : ,LC,1 006523 : C77777 : ,LC,1 006524 : FULWOR : ,LC,1 006525 : *BUFLP1:LC,BLOCK,(1),LP1IFJ. 006526 : *BUFLP2:LC,BLOCK,(1),LP2IFJ. 006527 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR(6) 006528 : ,CONT,AЦПY(2) 006529 : LP LIM:,EQU,116B 006530 : LP STR:,EQU,126B 006531 : ИП PEД:,EQU,1000B 006532 : *100:B,BLOCK,*AC,*R,*AR,*R33,*R32,*R27 006533 : ,CONT,*R16,*R15,*R14,*R13(6),*R7 006534 : MA64*:,SUBP, 006535 : *C:LC,BLOCK,(2),C574 006536 : *CB:LC,BLOCK,(1),C17(0),K06135 006537 : C77:,LC,1 006538 : BASEPRTA:,LC,1 006539 : NRPRTA:,SUBP, 006540 : PRINTASK:,SUBP, 006541 : NRESOFF:,SUBP, 006542 : NR/64:,SUBP, 006543 : *PR/COM:LC,BLOCK,CNSTRI(2),COLDBLS(2),CNEWBLS(2) 006544 : SMASAV:LC,BLOCK,(3) 006545 : ,CONT,SAVI15,SAVI14,SAVI13 006546 : CLANEWTA:,SUBP,. 006547 : TTPRINT:,SUBP,. 006548 : DISREG:,LC,1 006549 : M:,EQU,100B. 006550 : REGSCAL:,EQU,M. 006551 : M72:,EQU,M+2. 006552 : M75:,EQU,M+5. 006553 : NAME:,EQU,120B 006554 : AB:,EQU,9. 006555 : RT:,EQU,14. 006556 : RB:,EQU,2. 006557 : NS:,EQU,3. 006558 : BISTIME:,EQU,110B. 006559 : WS/DEBUG:24,EQU,615B.P.ПOЛE 006560 : C177:LC,BLOCK,K06137. 006561 : K06141:,EQU,C77777. 006562 : K06133:,EQU,C7. 006563 : C13:LC,BLOCK,K06143. 006564 : K06365:,EQU,FULWOR. 006565 : C377:LC,BLOCK,K06366. 006566 : C76000:,LC,1 006567 : TP:,EQU,14B.И10 ДЛЯ PACПEЧATKИ 006568 : NLP:,EQU,12B.И12 ДЛЯ PACПEЧATKИ 006569 : *TYPELP:LC,BLOCK,(1) 006570 : C ЯЧEЙKИ TИПA PП 006571 : *17:B,BLOCK,LB,CNT 006572 : *22:B,BLOCK,BT 006573 : *30:B,BLOCK,QUEFLAG,TE,EBUF,OVFLAG,LBUF 006574 : C ЯЧEЙKИ TИПA P 006575 : *1:,BLOCK,(9),M/EXT 006576 : *35:B,BLOCK,B145,B146,B147,B144 006577 : ,CONT,RL,RR,BLS,LS,EXPPOS 006578 : ,CONT,NEWBLS,OLDBLS,B150,PFLAG 006579 : ,CONT,B152,B153,B154,B 71,B156 006580 : ,CONT,B157,B160,B161,B162,B163,B164 006581 : ,CONT,B165,B166,B120,SMB,B171 006582 : ,CONT,B172,RES1,B125 006583 : ,CONT,NSTRI,BL A NL 006584 : *130:B,BLOCK,SI13 006585 : ***:7,REL,*** 006586 : ,WTC,ГYC 006587 : 15,VTM, 006588 : ,XTA,SAVI13 006589 : ,ASN,64-15 006590 : ,AOX,SAVI14 006591 : ,ASN,64-15 006592 : 15,AOX,M72 006593 : 15,ATX,M72.13,14,27 006594 : ,ITA,32B 006595 : ,ASN,64-15 006596 : ,AOX,SAVI15 006597 : ,ASN,64-15 006598 : 15,AOX,M75 006599 : 15,ATX,M75.32,15,7 006600 : ,XTA,LISTFLAG 006601 : ,AAX,BITJ 006602 : ,U1A,BUF PR.= БYФEPИЗAЦИЯ 006603 : 15,XTA,REGSCAL 006604 : ,AAX,BIT7 006605 : ,U1A,BUF PR.TOЛЬKO HA TEPM 006606 : ,ITA,7 006607 : ,ARX,IWPRTA 006608 : ,UJ,NRESCALL 006609 : IWPRTA:,Z00,NRPRTA 006610 : ,Z00,AFTER-*** 006611 : AFTER:,ATX,WS 006612 : ,ATI,15 006613 : ,XTA,BASEPRTA 006614 : ,U1A,PRTAIS 006615 : 15,UTM,LP1IFJ-PRINTASK 006616 : 14,VTM,-1 006617 : BYCЫ:,ITA,15 006618 : 14,AEX,AЦПY+1 006619 : ,AAX,C77777 006620 : 14,AEX,AЦПY+1 006621 : 14,ATX,AЦПY+1 006622 : ,XTA,WS 006623 : 15,ATX,3 006624 : ,ITA,15 006625 : 15,ATX,7 006626 : ,ARX,C140 006627 : 15,ATX,BT 006628 : 15,ATX,TE 006629 : ,ARX,=320 006630 : 15,ATX,EBUF 006631 : 15,UTM,LP2IFJ-LP1IFJ 006632 : 14,VLM,BYCЫ 006633 : PRTAIS:,BSS, 006634 : 14,VTM,2 006635 : 15,VTM, 006636 : CHLP:,XTA,7 006637 : 14,AAX,BIT47 006638 : ,UIA,BLOCK 006639 : 14,XTA,AЦПY-1 006640 : ,ASN,64+36 006641 : ,AAX,C77 006642 : ,UZA,FREE 006643 : ,AEX,ДHЗ 006644 : ,UZA,LPOWN 006645 : ,UJ,ECHLP 006646 : FREE:14,MTJ,15 006647 : ,UJ,ECHLP 006648 : BLOCK:14,XTA,AЦПY-1 006649 : ,AOX,=:0077 006650 : ,AEX,=:0077 006651 : 14,ATX,AЦПY-1 006652 : ECHLP:14,UTM,-1 006653 : 14,VIM,CHLP 006654 : 15,VZM,ABSENT 006655 : 15,MTJ,14 006656 : LPOWN:,XTA,ДHЗ 006657 : ,ASN,64-36 006658 : 14,AOX,AЦПY-1 006659 : 14,ATX,AЦПY-1 006660 : ,ATI,15 006661 : ,XTA,BASEPRTA 006662 : ,UIA,L11545 006663 : ,XTA,WS 006664 : ,ATX,BASEPRTA 006665 : 14,XTA,CNSTRI-1 006666 : 15,ATX,NSTRI 006667 : 14,XTA,COLDBLS-1 006668 : 15,ATX,OLDBLS 006669 : 14,XTA,CNEWBLS-1 006670 : 15,ATX,NEWBLS 006671 : ,ITA,14 006672 : ,AEX,C3 006673 : ,ATI,14 006674 : 14,WTC,AЦПY-1 006675 : 13,VTM, 006676 : 14,XTA,CNSTRI-1 006677 : 13,ATX,NSTRI 006678 : 14,XTA,COLDBLS-1 006679 : 13,ATX,OLDBLS 006680 : 14,XTA,CNEWBLS-1 006681 : 13,ATX,NEWBLS 006682 : L11545:,BSS, 006683 : 15,XTA,QUEFLAG 006684 : ,U1A,L11546 006685 : ,XTA,7 006686 : ,ASN,64+30 006687 : 15,WTC,NLP 006688 : ,AAX,BIT4 006689 : ,AAX,*TYPELP 006690 : 15,ATX,TP 006691 : L11546:,BSS, 006692 : 15,XTA,TP 006693 : ,U1A,REDYLP.ECЛИ ПEЧATЬ EC 006694 : ,032,4031B. 006695 : 15,WTC,NLP 006696 : ,AAX,BIT20 006697 : ,UZA,REDYLP.AЦПY ГOTOBO 006698 : ,AOX,NDIV.- AЦПY(NLP) 006699 : ,ATX,NDIV. = HEГOT. 006700 : 14,VTM,SCWPRIN 006701 : 13,VTM,NRDTEXT 006702 : PRTAREF:,XTA,BITJ 006703 : 14,AOX, 006704 : 14,ATX, 006705 : ,ITA,7 006706 : ,ARX,IREF 006707 : ,UJ,NRESOFF 006708 : IREF:,Z00,NRPRTA 006709 : ,Z00,TTDIAGN-*** 006710 : ABSENT:,BSS, 006711 : 13,VTM,HETAЦПY 006712 : 14,VTM,STCLTA 006713 : ,UJ,PRTAREF 006714 : TT DIAGN:,ITA,13 006715 : 14,VJM,TT PRINT 006716 : 15,VTM,MA64* 006717 : 15,MTJ,33B 006718 : ,XTA,DISREG 006719 : ,ATI,27B 006720 : ,WTC,ГYC 006721 : ,XTA,M72 006722 : ,ASN,64+15 006723 : ,ATI,14 006724 : ,ASN,64+15 006725 : ,ATI,13 006726 : ,WTC,ГYC 006727 : ,XTA,M75 006728 : ,ASN,64+15 006729 : ,ATI,15 006730 : ,ASN,64+15 006731 : ,ATI,32B 006732 : ,XTA,BRET 006733 : ,WTC,ГYC 006734 : ,WTC,M75 006735 : 7,VTM, 006736 : ,UJ,NRESOFF 006737 : BUF PR:,BSS, 006738 : C 006739 : C БYФEPИЗAЦИЯ BЫBOДA 006740 : C 006741 : ,WTC,ГYC 006742 : 15,VTM,ИП PEД 006743 : ,ITA,15 006744 : 15,AEX,BT 006745 : ,AAX,C76000 006746 : 15,AEX,BT.ДЛЯ *WRBF: 006747 : 15,ATX,BT.HAЧAЛO ДAHHЫX 006748 : 15,AEX,TE 006749 : ,AAX,C76000 006750 : 15,AEX,TE 006751 : 15,ATX,TE.KOHEЦ ДAHHЫX 006752 : 15,AEX,EBUF 006753 : ,AAX,C76000 006754 : 15,AEX,EBUF 006755 : 15,ATX,EBUF.KOHEЦ M.БYФ 006756 : C HE MEHЯЮTCЯ EBUF И LBUF 006757 : C OHИ YCTAHABЛИBAЮTCЯ B ПYCKAЧE 006758 : REDYLP:,BSS,. 006759 : ,WTC,ГYC 006760 : ,XTA,REGSCAL 006761 : ,AAX,BIT44 006762 : ,UZA,NON DP 006763 : ,XTA,DP.ПPOTЯЖKИ B HAЧ.Л 006764 : NON DP:15,ATX,PFLAG 006765 : ,XTA,БЫЛ*64 006766 : ,AAX,BITJ 006767 : ,U1A,NON FIRST 006768 : ,XTA,6 006769 : ,AEX,*TYPELP 006770 : C PEЖИM ЭKOHOMИИ БYMAГИ CAMOЙ ЗAДAЧEЙ 006771 : C ЗAДAETCЯ B HACTPOЙKE ДИCПETЧEPA, 006772 : C HO MOЖET БЫTЬ ИЗMEHEH ПPИ HAЖATИИ 006773 : C 16-ГO PAЗPЯДA HA 6 T.P., A TAKЖE 006774 : C CAMИM USER'OM ПPИ ПOMOЩИ Y.K. 006775 : C *PAGE:...,LIST 006776 : ,AAX,BIT16 006777 : ,WTC,ГYC 006778 : ,AOX,REGSCAL 006779 : ,WTC,ГYC 006780 : ,ATX,REGSCAL 006781 : ,XTA,BITJ 006782 : ,AAX,Ш/CЛYЖ 006783 : ,UZA,NO TPRNT 006784 : ,WTC,ГYC 006785 : ,XTA,NAME 006786 : ,AEX,=6HB Ы B 006787 : ,U1A,NO TPRNT 006788 : C 006789 : C ДЛЯ ЗAДAЧИ BЫBOДA HEДOBEДEM ДBE CTPOKИ 006790 : C ДO HAЧAЛA ПEPBOГO ЛИCTA, ЧTOБЫ EЙ БЫЛO 006791 : C ГДE HAПEЧATATЬ HOMEP CTPAHИЦЫ. 006792 : C 006793 : 15,XTA,NSTRI 006794 : ,ARX,BIT2 006795 : 15,ATX,NSTRI 006796 : NO TPRNT:,BSS, 006797 : ,XTA,DP 006798 : 15,ATX,PFLAG 006799 : ,XTA,BITJ 006800 : ,AOX,БЫЛ*64 006801 : ,ATX,БЫЛ*64 006802 : 15,XTA,NSTRI 006803 : ,AEX,FULWOR. 006804 : ,ARX,FPL. 006805 : 15,ARX,OLDBLS. 006806 : 15,ATX,OLDBLS.ПPOTЯЖKИ ДЛЯ BЫГOHA 006807 : ,XTA,.B HAЧAЛO ЛИCTA 006808 : 15,ATX,NSTRI 006809 : NON FIRST:15,XTA,OLDBLS 006810 : ,ASN,64-40.B HAЧAЛO ЛИCTA 006811 : 15,WTC,TE. 006812 : ,ATX,.B БYФEP 006813 : 15,UTM,100B. 006814 : 13,VJM,FULSAV+1. 006815 : : ,24,3 006816 : ,NTR,0. 006817 : 15,UTM,-126B. 006818 : 15,XTA,NLP. 006819 : ,ATI,12. 006820 : ,WTC,ГYC 006821 : ,XTA,M72 006822 : 15,ATX,*R27 006823 : ,ASN,64+15 006824 : 15,ATX,*R14 006825 : ,ASN,64+15 006826 : 15,ATX,*R13 006827 : ,WTC,ГYC 006828 : ,XTA,M75 006829 : 15,ATX,*R7 006830 : ,ASN,64+15 006831 : 15,ATX,*R15 006832 : ,ASN,64+15 006833 : 15,ATX,*R33 006834 : 15,XTA,*AC 006835 : 6,VJM,GIVADR 006836 : ,AAX,C77777 006837 : 15,ATX,B154.AKOH 006838 : 15,XTA,*AC 006839 : ,ASN,64+24 006840 : 6,VTM,AFTGA 006841 : GIVADR:15,ATX,*R16.P.Я. 006842 : ,ASN,64+20 006843 : ,AAX,C17 006844 : ,UZA,IND/0 006845 : ,AEX,C17 006846 : ,ATI,8 006847 : 8,UTC, 006848 : 15,XTA,*R15 006849 : IND/0:,BSS, 006850 : ,AAX,C77777 006851 : 15,ARX,*R16 006852 : ,AAX,=10 77777 006853 : 6,UJ, 006854 : AFTGA:15,ATX,B125.AHAЧ 006855 : 15,XTA,*R14 006856 : ,AAX,C77777 006857 : 15,ATX,B171 006858 : ,ITA,. 006859 : 15, ATX , B150 . 006860 : 15, ATX , B152 . 006861 : 15,ATX,LS. 006862 : 15,ATX,EXPPOS. 006863 : 15,ATX,B71. 006864 : 15,ATX,B172. 006865 : 15, ATX , B120 . 006866 : 15, ATX , B153 . 006867 : 15, ATX , BLS . 006868 : 15,ATX,BL A NL. 006869 : 15, XTA , B125 . 006870 : , ATI , 8 . 006871 : 15,WTC,TE. 006872 : 9,VTM,. 006873 : 6,VTM,1. 006874 : 5,VTM,. 006875 : ,ASN,64+15. 006876 : ,UZA,L06206. 006877 : C BXOД ПO COSY ГOCTY MИHYЯ PEДAKTИPOBAHИE 006878 : 6,VTM,. 006879 : 11,VJM,R WORD. 006880 : 15,ATX,B154. 006881 : ,ASN,64+40. 006882 : 15,ATX,NEWBLS. 006883 : 15,ARX,OLDBLS. 006884 : 15,ATX,OLDBLS. 006885 : ,NTR,3. 006886 : 5,VJM,CHEKP.KOPPEKЦИЯ ПPOTЯЖEK 006887 : ,ITA,. 006888 : 15,ATX,NEWBLS. 006889 : 5,VJM,CHEKP2.YЧET ЛИCTOBAHИЯ 006890 : 15,XTA,OLDBLS. 006891 : 15,ARX,RR. 006892 : ,ASN,64-40. 006893 : 15,AEX,B154 006894 : ,AAX,=:776 006895 : 15,AEX,B154 006896 : 5,VTM,-26.MAKC=160 CИMB. 006897 : L06200:8,UTM,1. 006898 : 15,ATX,B154. 006899 : 9,ATX,.B БYФEP 006900 : ,AAX,C177. 006901 : ,AEX,CENDSTR. 006902 : ,UZA,BUFST.KOHEЦ CTPOKИ 006903 : 2,VJM,BUFSTEP. 006904 : 11,VJM,R WORD. 006905 : 5,VLM,L06200 006906 : 9,ATX,. 006907 : ,UJ,BUFST. 006908 : C 006909 : C HAЧAЛO PAЗБOPA 006910 : C 006911 : L06206 :15, XTA , B153 . 006912 : , U1A ,L06336 . 006913 : , XTA ,K06141 . 006914 : 15, ATX , B153 . 006915 : 11, VTM ,L06212 . 006916 : 15,WTC,B171 006917 : 10,VTM, 006918 : L06211 :10, UTM , 00001B . 006919 : ,UJ,READ. 006920 : L06321:15,XTA,*R14 006921 : 15,ATX,B171 006922 : L06243:11,VTM,L06246 006923 : R WORD:8,MTJ,10. 006924 : READ:,BSS,. 006925 : ,WTC,ГYC. 006926 : ,WTC,M72. 006927 : : , 24 , . 006928 : 10,XTA,. 006929 : : , 24 , 00003B . 006930 : 11, UJ , . 006931 : L06336 :15, XTA , B157 . 006932 : 15, ARX , B161 . 006933 : 15, ATX , B157 . 006934 : , ATI , 1 . 006935 : 15, XTA , B160 . 006936 : , ATI , 5 . 006937 : 15, XTA , B156 . 006938 : L06230 : , AAX , C3 . 006939 : , UZA ,L06240 . 006940 : , AEX ,K06131 . 006941 : , U1A ,L06233 . 006942 : 2, VTM , 00027B . 006943 : , ITA , 2 . 006944 : 15, ATX , B160 . 006945 : L06233 :15, XTA , B157 . 006946 : 15, ARX , B160 . 006947 : , ARX ,K06142 . 006948 : , ASN ,64+7 . 006949 : , UZA ,L06240 . 006950 : 15, ATX , B150 . 006951 : 15, XTA , B166 . 006952 : 15, ATX , B157 . 006953 : , ATI , 1 . 006954 : , ATX , . 006955 : L06240 :15, XTA , B162 . 006956 : , U1A ,L06323 . 006957 : 15, ATX , B153 . 006958 : 15, XTA , B163 . 006959 : , U1A ,L06321 . 006960 : 15,XTA,B171 006961 : ,ARX,BIT1 006962 : ,AAX,C77777 006963 : 15,ATX,B171 006964 : ,UJ,L06243 006965 : L06323 :15, XTA , B162 . 006966 : , ARX ,K06142 . 006967 : L06324 :15, ATX , B162 . 006968 : , AEX ,K06365 . 006969 : , UZA ,L06324 . 006970 : , UJ ,L06243 . 006971 : L06212 :15, ATX , B165 . 006972 : , ASN ,64+44 . 006973 : , AAX ,K06133 . 006974 : 15, ATX , B156 . 006975 : 15, XTA , B165 . 006976 : , ASN ,64+36 . 006977 : , AAX ,K06137 . 006978 : 15, ATX , B157 . 006979 : 15, ATX , B166 . 006980 : , ATI , 1 . 006981 : 15, XTA , B165 . 006982 : , ASN ,64+24 . 006983 : , AAX ,K06137 . 006984 : 15, ATX , B160 . 006985 : , ATI , 5 . 006986 : 15, XTA , B165 . 006987 : , ASN ,64+23 . 006988 : , AAX ,K06131 . 006989 : 15, ATX , B163 . 006990 : 15, XTA , B165 . 006991 : , ASN ,64+12 . 006992 : , AAX ,K06137 . 006993 : 15, ATX , B161 . 006994 : 15, XTA , B165 . 006995 : , AAX ,K06137 . 006996 : 15, ATX , B162 . 006997 : 15, XTA , B156 . 006998 : , UJ ,L06230 .***** 006999 : L06246 :15, ATX , B144 . 007000 : 15, XTA , B156 . 007001 : , ASN ,64+2 . 007002 : , U1A ,L06250 . 007003 : 6,VTM,L06314 007004 : 15, WTC , B156 . 007005 : , UJ ,L06306 .***** 007006 : L06250 : 5, VTM , 00070B . 007007 : 6, VTM ,L06260 . 007008 : ,ITA,8. ЗAПOMИHAEM 007009 : 15,ATX,B125.HAЧAЛO TEKCTA 007010 : SYM IN:5,UTM,-8. 007011 : 5,VIM,NO WORD. 007012 : C..... ПPOBEPKA KOHЦA TEKCTA 007013 : 15,XTA,B125.ECЛИ AH = AK , 007014 : 15,AEX,B154. ЛOBИM CИMBOЛЫ 007015 : ,UZA,NO END. '231'/'172' 007016 : ,ITA,8. ДOШЛИ 007017 : 15,AEX,B154.ДO KOHЦA 007018 : ,UIA,NO END.- HET 007019 : ,XTA,C231.- KOHEЦ ПO 007020 : ,UJ,S IS. AДPECY 007021 : NO END:8,UTM,1. 007022 : 11,VJM,R WORD. 007023 : 5,VTM,48. 007024 : 15,ATX,B144. 007025 : NO WORD:15,XTA,B144. 007026 : ,ASN,64-8 007027 : 15,ATX,B144 007028 : ,YTA, 007029 : S IS:,BSS, 007030 : 15, ATX , B147 . 007031 : ,ATI,11 007032 : 15, XTA , B156 . 007033 : , ASN ,64+2 . 007034 : L05303 : , U1A ,L05305 . 007035 : 15, XTA , B147 . 007036 : 6,UJ, 007037 : L05305 :15, XTA , B147 . 007038 : , ASN ,64+4 . 007039 : , UZA ,L05303 . 007040 : , AAX ,BIT1 . 007041 : 14, VTM , 00030B . 007042 : , UZA ,L05311 . 007043 : 14, VTM , . 007044 : , ATX , . 007045 : L05311 :15, XTA , B147 . 007046 : , AAX ,K06135 . 007047 : , ATI , 2 . 007048 : 15, XTA , B147 . 007049 : , ASN ,64+6 . 007050 : , UZA ,L05316 . 007051 : 14, UTM , 00010B . 007052 : , AAX ,BIT1 . 007053 : , U1A ,L05316 . 007054 : 14, UTM , 00010B . 007055 : L05316:2,XTA,TAБЛABT. 007056 : 14, ASN ,64 . 007057 : , AAX ,K06366 . 007058 : 15,ATX,B147 007059 : ,ATI,11 007060 : 6,UJ, 007061 : L06260 :15, ATX , B164 . 007062 : , XTA , . 007063 : L06261 :15, ATX , B172 . 007064 : 6,VJM,SYM IN. 007065 : 1,MTJ,14 007066 : 14,UTM,-200B 007067 : 14,V1M,L02232 007068 : 15, XTA , B154 . 007069 : , UZA ,L06277 . 007070 : ,BSS,. 007071 : C 007072 : C***** PAЗБOP YПPABЛЯЮЩИX CИMBOЛOB 007073 : C 007074 : ' 265 , 174 - REPEAT LAST SYMBOL 007075 : ' 214 , 175 - NEW LINE 007076 : ' 242 , 017 - BLANK 007077 : ' 231 , 172 - END OF INFORMATION 007078 : ' 200 , 173 - NUMBER OF POSITION 007079 : ' 176 - BLANK 007080 : ' 177 - DOUBLE SYMBOL ':=' 007081 : ' 201 - NEW PAGE 007082 : ' 204 - NEW 1/2-PAGE 007083 : ' 205 - NEW 1/3-PAGE 007084 : ' 206 - NEW 1/4-PAGE 007085 : ' 212 - SAME STRING 007086 : ' 310 - BLOCK OF PAGING 007087 : C 007088 : L02232:,BSS, 007089 : 11,UTM,-265B 007090 : 11,VZM,L15773 007091 : 11,UTM,265B-174B 007092 : 11,VZM,L15773 007093 : 15, XTA , B164 . 007094 : , ATI , 2 . 007095 : 2,UTM,-17B 007096 : 2,VZM,L06540 007097 : ,ARX,BIT6 007098 : ,ASN,64+7 007099 : ,UZA,L16042 007100 : 2,UTM,17B-214B 007101 : 2, VZM ,L06351 .214 007102 : 2, UTM , 00017B . 007103 : 2, VZM ,L06351 .175 007104 : 2, UTM , 77733B . 007105 : 2, VZM ,L06540 .242 007106 : 2,UTM,242B-231B 007107 : 2, VZM ,L06334 .231 007108 : 2, UTM , 00037B . 007109 : 2, VZM ,L06334 .172 007110 : 2, UTM , 77772B . 007111 : 2, VZM ,L06275 .200 007112 : 2, UTM , 00005B . 007113 : 2, VZM ,L06275 .173 007114 : 2, UTM , 77775B . 007115 : 2, VZM ,L06540 .176 007116 : 2, UTM , 77775B . 007117 : 2, V1M ,L16013 . 007118 : C..... PEAЛИЗAЦИЯ 'NEW PAGE' 007119 : L16001 :15, XTA , NSTRI . 007120 : , AEX , DP . 007121 : , U1A ,L16005 . 007122 : 15, ATX , BLS . 007123 : , XTA ,BIT1 . 007124 : 15, ATX , B71 . 007125 : L16040:,BSS, .БЫЛO - L16040:15,WTC,B57 007126 : 1, VTM , . 007127 : L06542 :15, XTA , B147 . 007128 : , UJ ,L06260 . 007129 : L16005 :15, XTA , NSTRI . 007130 : , AEX , FULWOR . 007131 : , ARX , DP . 007132 : , U1A ,L16010 . 007133 : , ARX , FPL . 007134 : , ATX , . 007135 : L16010 :15, ATX , BLS . 007136 : 15,ATX,B150. 007137 : , XTA , . 007138 : 15, ATX , PFLAG . 007139 : , UJ ,L16040 .***** 007140 : L16013 : 2, UTM , 77775B . 007141 : 2, V1M ,L16015 . 007142 : ,XTA,C41 007143 : L16022 :15, ATX , BLS . 007144 : 15, XTA , NSTRI . 007145 : , AEX , FULWOR . 007146 : , ARX , DP . 007147 : L16024 :15, ARX , BLS . 007148 : , U1A ,L16010 . 007149 : 2, VLM ,L16024 . 007150 : , UJ ,L16001 . 007151 : L16015 : 2, UTM , 77777B . 007152 : 2, V1M ,L16020 . 007153 : , XTA ,BIT5 . 007154 : , ARX , DP . 007155 : 2, VTM , 77777B . 007156 : , UJ ,L16022 . 007157 : L16020 : 2, UTM , 77777B . 007158 : 2, V1M ,L06532 . 007159 : , XTA ,BIT5 . 007160 : 2, VTM , 77776B . 007161 : , UJ ,L16022 .***** 007162 : L06532 : 2, UTM , 77774B . 007163 : 2, VZM ,L06536 .212 007164 : 2, UTM , 77702B . 007165 : ,XTA, 007166 : 2,V1M,L16041 007167 : 15, ATX , PFLAG . 007168 : , UJ ,L06542 . 007169 : L16041:,BSS, 007170 : 15,ATX,B71 007171 : ,UJ,L05400 007172 : L16042:,BSS, 007173 : 15, ATX , B71 . 007174 : L06277 :15, XTA , B164 . 007175 : 15, ATX , SMB . 007176 : 4, VJM ,L06147 . 007177 : L06302 :15, XTA , B172 . 007178 : ,UZA,L06542.- HET ПOBTOP. 007179 : ,ARX,C77777 007180 : ,AAX,C77777 007181 : 15, ATX , B172 . 007182 : ,UJ,L06277. 007183 : C..... BЫДAЧA CИMBOЛA 007184 : L06147 :15, XTA , B150 . 007185 : , UZA ,L06345 . 007186 : C..... ПEPEXOД HA HOBYЮ CTPOKY 007187 : NEW STR:,BSS,. 007188 : L06150 :15, XTA , B154 . 007189 : , UZA ,L02101 . 007190 : 15, XTA , BLS . 007191 : , U1A ,L06152 . 007192 : , XTA ,BIT1 . 007193 : , ATX , . 007194 : L06152 :15, ATX , BLS . 007195 : 15, XTA , B152 . 007196 : , UZA ,L14602 . 007197 : 15, XTA , B165 . 007198 : , ASN ,64+20 . 007199 : , AAX , C7 . 007200 : 15, ARX , BLS . 007201 : 15, ATX , BLS . 007202 : L14602 : , XTA , . 007203 : 15, ATX , B150 . 007204 : 15, ATX , B120 . 007205 : L06157 : ,BSS , . 007206 : 15, XTA , B71 . 007207 : ,UZA,END STRI 007208 : , XTA , . 007209 : 15, ATX , B71 . 007210 : 15, ATX , BLS . 007211 : ,UJ,END STRI 007212 : L02101 :15, XTA , SMB . 007213 : 15, ATX , BLS . 007214 : , XTA ,K06330 . 007215 : 15, ATX , SMB . 007216 : 15, ATX , B152 . 007217 : , UJ ,L06157 . 007218 : L06345 : , ITA , 1 . 007219 : , ASN ,64+7 . 007220 : , UZA ,L06000 . 007221 : 1, UTM , 77600B . 007222 : , UJ ,L06150 . 007223 : L06000 :15, XTA , B120 . 007224 : , U1A ,L06005 . 007225 : , XTA ,L06000 . 007226 : 15, ATX , B120 . 007227 : , XTA , . 007228 : 15, ATX , EXPPOS . 007229 : L06003 : 3, VTM , 77730B . 007230 : 15, ATX , BLS . 007231 : 15, XTA , TE . 007232 : , ATI , 9 . 007233 : C<<< ЗДECЬ MOЖHO CЭKOHOMИTЬ! 007234 : L06005:,BSS, 007235 : ,ITA,1 007236 : 15,AEX,EXPPOS 007237 : ,UZA,L06013 007238 : , NTR , 00003B . 007239 : , ITA , 1 . 007240 : 15, A-X , EXPPOS . 007241 : , NTR , 00020B . 007242 : , U1A ,L06165 . 007243 : , ARX ,K06137 . 007244 : 14, VJM , WRTSM . 007245 : L06013 :15, XTA , SMB . 007246 : 14, VJM , WRTSM . 007247 : 1, UTM , 00001B . 007248 : , ITA , 1 . 007249 : 15, ATX , EXPPOS . 007250 : 4, UJ , . 007251 : L06165 : , XTA , . 007252 : , UJ , ZNB . 007253 : L05400 :15, XTA , B164 . 007254 : ,AEX,C177.CИMBOЛ - ':=' 007255 : , U1A ,L05575 . - HET 007256 : , XTA , C37 . 007257 : 15, ATX , SMB . ':' 007258 : 4, VJM ,L06147 . 007259 : , XTA ,K05405 . 007260 : 15, ATX , SMB . '=' 007261 : 4, VTM ,L06302 . 007262 : , UJ ,L06147 . 007263 : L05575 : , XTA ,K06245 . 007264 : 15, ATX , SMB . 007265 : 4,VTM,L06302. 007266 : ,UJ,L06147. 007267 : C..... ПEЧATЬ БEЗ ПPOTЯЖKИ 007268 : L06536 :15, XTA , OLDBLS . 007269 : , UZA ,L06542 . 007270 : , NTR , 00003B . 007271 : , A-X ,BIT1 . 007272 : 15, ATX , OLDBLS . 007273 : , ASN ,64-40 . 007274 : 15, WTC , TE . 007275 : , ATX , . 007276 : 15, XTA , NSTRI . 007277 : , U1A ,L14577 . 007278 : , XTA , FPL . 007279 : L14577 : , A-X ,BIT1 . 007280 : 15, ATX , NSTRI . 007281 : , NTR , 00004B . 007282 : , UJ ,L06542 . 007283 : C..... HOMEP ПOЗИЦИИ : CИMBOЛ '200' 007284 : L06275 :15, XTA , B147 . 007285 : ,AEX,C231. 007286 : ,UZA,L06334. 007287 : ,ITA,1. 007288 : ,ASN,64+7. 007289 : ,U1A,NEW LIN. 007290 : NON NEWL:,BSS,. 007291 : 15,XTA,B147. 007292 : , ATI , 1 . 007293 : 6, VTM ,L06260 . 007294 : ,UJ,SYM IN. 007295 : NEW LIN:,BSS,. 007296 : 15,ATX,BL A NL. 007297 : ,UJ,NEW STR. 007298 : C..... KOHEЦ Б Ц И 007299 : L06334 : 5, UTM , 77720B . 007300 : 5, V1M ,L06314 . 007301 : 8, UTM , 77777B . 007302 : L06314 : , ITA , 8 . 007303 : 8, UTM , 00001B . 007304 : , AEX ,K06365 . 007305 : 15, ARX , B154 . 007306 : , ASN ,64+15 . 007307 : , UZA ,L06326 . 007308 : 15, ATX , B150 . 007309 : 15, ATX , B152 . 007310 : , UJ ,L06150 . 007311 : L06326 :15, XTA , B153 . 007312 : , U1A ,L06206 . 007313 : 15, XTA , B163 . 007314 : 15, AOX , B150 . 007315 : 15, ATX , B150 . 007316 : 15,WTC,B171 007317 : 10,VTM, 007318 : 11, VJM ,L06211 . 007319 : , ASN ,64+36 . 007320 : , AAX ,K06137 . 007321 : 15, ATX , B157 . 007322 : , ITA , 1 . 007323 : , ARX ,K06142 . 007324 : , NTR , 00003B . 007325 : 15, A-X , B157 . 007326 : , NTR , 00020B . 007327 : , U1A ,L06206 . 007328 : , XTA ,K06141 . 007329 : 15, ATX , B150 . 007330 : , UJ ,L06206 . 007331 : C..... ГPYППA ПPOБEЛOB 007332 : L06540:15,WTC,B172. 007333 : 1, UTM , 00001B . 007334 : 15,XTA,B147 007335 : ,UJ,L06260 007336 : L06351 :15, XTA , BLS . 007337 : , ARX ,BIT1 . 007338 : 15, ARX , B172 . 007339 : 15, ATX , B150 . 007340 : 15, ATX , BLS . 007341 : ,UJ,L16040. 007342 : C..... CИMBOЛ ПOBTOPEHИЯ : 256 / 174 007343 : L15773 :15, XTA , B164 . 007344 : , ATI , 2 . 007345 : 2, UTM , 77600B . 007346 : 2, VZM ,L06275 . - 200 007347 : 2, UTM , 00005B . 007348 : 2, VZM ,L06275 . - 173 007349 : 2, UTM , 77742B . 007350 : 2, VZM ,L06334 . - 231 007351 : 2, UTM , 00037B . 007352 : 2, VZM ,L06334 . - 172 007353 : 6,VJM,SYM IN. 007354 : ,AEX,C231. 007355 : ,UZA,L02232. 007356 : 15,XTA,B147. 007357 : ,UJ,L06261. 007358 : L15774:,BSS, 007359 : ,ITA,1 007360 : ,AAX,K06137 007361 : ,ATI,1 007362 : ,XTA, 007363 : ,UJ,L06003 007364 : CONT RED:,BSS,.PEДAKTИPOBAHИE 007365 : 15, XTA , NEWBLS . 007366 : ,UZA,L15774 007367 : 15,XTA,BL A NL. 007368 : ,UZA,N BLL. 007369 : ,XTA,. 007370 : 15,ATX,BL A NL. 007371 : ,UJ,NON NEWL. 007372 : N BLL:15,XTA,NEWBLS. 007373 : ,UJ,L06147. 007374 : C***** ПEPEKЛЮЧATEЛЬ TИПA ФOPMATA 007375 : L06306 : , UJ ,L06250 . 007376 : :,UJ,L06045 007377 : :,UJ,L06033 007378 : : 5, UTM , 77774B . 007379 : , ITA , 5 . 007380 : C***** 007381 : , AAX ,K06137 . 007382 : 15, ATX , B146 . 007383 : C..... PEДAKTИPOBAHИE ЧИCEЛ 007384 : 15,XTA,B144 007385 : , AVX , . 007386 : 15, ATX , B144 . 007387 : , XTA ,K06134 . 007388 : 15, ATX , SMB . 007389 : 5, VTM , 00001B . 007390 : 4, VTM ,L06101 . 007391 : L06064 :15, XTA , B144 . 007392 : , AMX ,K06361 . 007393 : , U1A ,L06070 . 007394 : 5, UTM , 00012B . 007395 : 15, XTA , B144 . 007396 : , A*X ,K06360 . 007397 : L06067 :15, ATX , B144 . 007398 : , UJ ,L06064 . 007399 : L06070 :15, XTA , B144 . 007400 : , UZA ,L06344 . 007401 : , AMX ,K06362 . 007402 : , UZA ,L06107 . 007403 : 5, UTM , 77777B . 007404 : 15, XTA , B144 . 007405 : , A*X ,K06361 . 007406 : , UJ ,L06067 . 007407 : L06344:5,VTM, 007408 : L06107 :15, XTA , B144 . 007409 : , ASN ,64+40 . 007410 : , AAX ,K06131 . 007411 : , ARX ,K06134 . 007412 : 15, ATX , SMB . 007413 : 4, VJM ,L06147 . 007414 : , XTA ,K02700 . 007415 : 15, ATX , SMB . 007416 : 4, VJM ,L06147 . 007417 : 15, XTA , B144 . 007418 : 15, AVX , B144 . 007419 : 15, ATX , B144 . 007420 : , NTR , 00003B . 007421 : , A+X ,K06130 . 007422 : , AAX ,K06135 . 007423 : 15, ATX , SMB . 007424 : , AOX ,K06130 . 007425 : , NTR , . 007426 : , A+X , . 007427 : 15, X-A , B144 . 007428 : , A*X ,K06361 . 007429 : 15, ATX , B144 . 007430 : 15, XTA , B146 . 007431 : , ARX ,K06142 . 007432 : 15, ATX , B146 . 007433 : , ARX ,K06131 . 007434 : , ASN ,64+7 . 007435 : , UZA ,L06147 . 007436 : , XTA ,BIT5 . 007437 : 15, ATX , SMB . 007438 : 4, VJM ,L06147 . 007439 : , XTA ,K06134 . 007440 : 15, ATX , SMB . 007441 : 4, VTM ,L06101 . 007442 : , ITA , 5 . 007443 : , ASN ,64+7 . 007444 : , UZA ,L06147 . 007445 : , ITA , 5 . 007446 : , AEX ,K06141 . 007447 : , ARX ,K06131 . 007448 : , ATI , 5 . 007449 : , XTA ,K06143 . 007450 : L06100 :15, ATX , SMB . 007451 : , UJ ,L06147 . 007452 : C...... PEДAKTИPOBAHИE KOHCTAHT 007453 : L06033 : , ITA , 5 . 007454 : 6, UZA , . 007455 : , ARX ,K06135 . 007456 : , ASN ,64+5 . 007457 : , UZA ,L06036 . 007458 : 5, VTM , 00020B . 007459 : L06036 : 5, MTJ , 2 . 007460 : 5, J+M , 2 . 007461 : 5, J+M , 2 . 007462 : 2, UTM , 00020B . 007463 : L06040 :15, XTA , B144 . 007464 : 2, ASN , . 007465 : 15, ATX , B144 . 007466 : , ASN ,64+45 . 007467 : 15, ATX , SMB . 007468 : 4, VJM ,L06147 . 007469 : 2, VTM , 00075B . 007470 : 5, UTM , 77777B . 007471 : 5, V1M ,L06040 . 007472 : 6, UJ , . 007473 : C..... PEДAKTИPOBAHИE KOMAHД 007474 : L06045 : 2, VTM , 77777B . 007475 : 5, VTM , 77777B . 007476 : L06046 :15, XTA , B144 . 007477 : 2,AUX,K06124+1. 007478 : 2, AOX ,K06127 .***** 007479 : 15, ATX , B145 . 007480 : , AAX ,K06457 . 007481 : , UZA ,L06052 . 007482 : 2, VLM ,L06046 . 007483 : L06052 :15, XTA , B145 . 007484 : , ASN ,64+44 . 007485 : 15, ATX , SMB . 007486 : , AAX ,K06127 . 007487 : , U1A ,L06166 . 007488 : 4, VJM ,L06147 . 007489 : 15, XTA , B145 . 007490 : , ASN ,64-4 . 007491 : 15, ATX , B145 . 007492 : , U1A ,L06052 . 007493 : 15, XTA , B144 . 007494 : , ASN ,64-24 . 007495 : 15, ATX , B144 . 007496 : 2, VTM , 77777B . 007497 : 5, VLM ,L06046 . 007498 : 6, UJ , . 007499 : L06166 : 1, UTM , 00001B . 007500 : 4, UJ , . 007501 : C..... K PEДAKTИPOBAHИЮ ЧИCEЛ 007502 : L06101 : , XTA , . 007503 : 15, ATX , SMB . 007504 : 5, UTM , 77766B . 007505 : , ITA , 5 . 007506 : , ARX ,K06131 . 007507 : , ASN ,64+5 . 007508 : , UZA ,L06144 . 007509 : 4, VJM ,L06147 . 007510 : 5, UTM , 00012B . 007511 : , ITA , 5 . 007512 : L06106:6,MTJ,4. 007513 : ,UJ,L06100. 007514 : L06144 : , XTA ,K06131 . 007515 : 4, VJM ,L06100 . 007516 : , ITA , 5 . 007517 : , UJ ,L06106 . 007518 : C.... 007519 : ENDSTRI:,BSS,. 007520 : C KOHEЦ CTPOKИ 007521 : ,WTC,ГYC 007522 : ,XTA,REGSCAL 007523 : ,AAX,BIT16 007524 : ,U1A,LTR.HET ЭKOHOMИИ 007525 : 15,XTA,BLS 007526 : ,ASN,64+3 007527 : ,UZA,LTR. < 8 ПPOTЯЖEK 007528 : ,XTA,BIT4 007529 : 15,ATX,BLS. - ЭKOHOMИM ! 007530 : LTR:15,XTA,BLS 007531 : ZNB:15,ATX,NEWBLS. 007532 : ,NTR,3. 007533 : C CHEKP 007534 : CHEKP:,BSS,. 007535 : :15,XTA,OLDBLS. 007536 : ,A-X,FPL.ПOЛHAЯ ДЛИHA ЛИCTA 007537 : ,U1A,CHEKP1. 007538 : ,A-X,FPL. 007539 : ,U1A,CHEKP1. 007540 : ,A+X,FPL. 007541 : 15,ATX,OLDBLS. 007542 : ,UJ,CHEKP. 007543 : CHEKP1:,BSS,. 007544 : 6,VZM,INCRN.OT COSY-GOST 007545 : CHEKP2:,BSS,. 007546 : ,XTA,. 007547 : 15,ATX,RR. 007548 : 15,XTA,NSTRI. 007549 : 15,X-A,PFLAG. 007550 : ,U1A,INCRN. 007551 : 15,ATX,RR. 007552 : 15,ARX,NSTRI. 007553 : 15,ATX,NSTRI. 007554 : INCRN:,BSS,. 007555 : 15,XTA,NSTRI. 007556 : 15,ARX,NEWBLS. 007557 : CHP:,BSS,. 007558 : 15,ATX,NSTRI. 007559 : ,A-X,FPL. 007560 : ,UZA,CHP. 007561 : 5,UTC,. 007562 : 6,VZM,. 007563 : ,NTR,0 007564 : 15,XTA,EXPPOS. 007565 : ,U1A,WRE. 007566 : 15,XTA,OLDBLS. 007567 : 15,ARX,NEWBLS. 007568 : 15,ARX,RR. 007569 : 15,ATX,OLDBLS. 007570 : 15,XTA,TE. 007571 : ,ATI,AB. 007572 : ,UJ,CONT.ПPOДOЛЖEHИE PEДAKTИPOBAHИЯ 007573 : C WRE 007574 : WRE:,BSS,. 007575 : 15,XTA,RR. 007576 : ,ASN,64-40. 007577 : 15,WTC,TE. 007578 : ,ARX,. 007579 : 15,WTC,TE. 007580 : ,ATX,. 007581 : :,XTA,CENDSTR. 007582 : 14,VTM,BUFST 007583 : C 007584 : C ЗAПИCЬ B MAЛЫЙ БYФEP И CБPOC: 007585 : C 007586 : WRTSM:2,VTM,WRSMB1 007587 : 3,VZM,BUFSTEP 007588 : WRSMB1:3,ASN,64+8 007589 : 9,AOX, 007590 : 9,ATX, 007591 : 3,UTM,8 007592 : 14,UJ, 007593 : BUFSTEP:15,ATX,RL.YПPЯT 007594 : 9,UTM,1 007595 : ,ITA,9 007596 : 15,AEX,EBUF.KOHEЦ M.БYФ 007597 : ,U1A,CHS 007598 : 15,WTC,LBUF 007599 : CHS:9,UTM, 007600 : 3,VTM,-60B 007601 : :,24,2003B 007602 : 15,XTA,LS 007603 : ,ARX,C77777 007604 : 15,ATX,LS.=-ЧИCЛO CЛOB,ЗAHЯTЫX CTPOKOЙ 007605 : 15,ARX,LB.=+ЧИCЛO CBOБ.CЛOB B M.БYФEPE 007606 : ,AAX,C77777 007607 : ,UZA,CLOSJOB 007608 : :,24,3 007609 : ,UJ,OPEN 007610 : PRINTER:,ITA,15 007611 : 15,ATX,OVFLAG 007612 : 15,VTM,OPEN 007613 : ,UJ,SAVIND.ЖДY PRINTASK 007614 : CLOSJOB:,XTA,LISTFLAG 007615 : ,AAX,BITJ 007616 : ,UZA,PRINTER 007617 : ,ITA,13 007618 : 15,ATX,SI13 007619 : 7,UTC,-*** 007620 : 13,VJM,*WRBF64 007621 : 15,XTA,SI13 007622 : ,ATI,13 007623 : OPEN:,XTA, 007624 : 9,ATX, 007625 : 15,XTA,RL.BOCCT 007626 : C PRINTASK И *WRBF OБHOBЛЯЮT: 007627 : C ДЛИHY CBOБ.MECTA (LB) - ДЛЯ NRES064 007628 : C AДPEC CTPOKИ ,OTKYДA БYДET ЧTEHИE (BT) - ДЛЯ CEБЯ 007629 : 2,UJ, 007630 : BUFST:,BSS,. 007631 : 9,XTA,. 007632 : ,AAX,=7777 7777 7777 7400 007633 : ,AOX,CENDSTR. 007634 : 9,ATX,. 007635 : RB,VJM,BUFSTEP. 007636 : ,WTC,ГYC 007637 : RB,VTM, 007638 : RB,XTA,REGSCAL 007639 : ,AAX,BIT8.BЫBOД HA TEPM 007640 : ,UZA,NEW LB.-HET 007641 : C ПEPEПИCЬ CTPOKИ C ЦИKЛИЧ.MAЛOГO БYФEPA 007642 : C B ИПЗ HA PAБ.ПOЛE OTЛAДЧИKA 007643 : 15,WTC,TE 007644 : 13,VTM,.OTKYДA БPATЬ 007645 : 14,VTM,-21 007646 : L/WS:13,XTA, 007647 : 14,UTC,21 007648 : RB,ATX,WS/DEBUG 007649 : 13,UTM,1 007650 : ,ITA,13 007651 : 15,AEX,EBUF 007652 : ,U1A,E L/WS 007653 : 15,WTC,LBUF 007654 : E L/WS:13,UTM, 007655 : 14,VLM,L/WS 007656 : C BЫBOД HA TEPMИHAЛ 007657 : ,XTA,DISREG 007658 : ,ATI,27B 007659 : ,*71,INF TER 007660 : RB,XTA,REGSCAL 007661 : ,AAX,BIT7.HYЖHA BЫДAЧA 007662 : ,UZA,NEW LB.-ДA 007663 : 15,XTA,TE.HAЧAЛO ПOCЛEДH.CTP 007664 : 15,ATX,BT 007665 : ,ATI,AB 007666 : ,XTA, 007667 : 15,ATX,LS 007668 : ,UJ,CONT RB 007669 : NEW LB:,24,2003B 007670 : 15,XTA,LB. 007671 : 15,ARX,LS. 007672 : ,AAX,C77777. 007673 : 15,ATX,LB. 007674 : ,XTA,. 007675 : 15,ATX,LS. 007676 : ,ITA,AB. 007677 : 15,ATX,TE. 007678 : 15,XTA,NEWBLS 007679 : 15,ATX,OLDBLS 007680 : ,XTA,LISTFLAG 007681 : ,AAX,BITJ 007682 : 15,AOX,QUEFLAG 007683 : ,U1A,CONT 007684 : 15,XTA,TP 007685 : :,UZA,*+1 007686 : 12,XTA,BIT41 007687 : :,AOX,RDSCAL 007688 : ,ATX,RDSCAL 007689 : 15,ATX,QUEFLAG 007690 : ,XTA,COMMIR. 007691 : 12,AAX,BIT39. 007692 : 15,AOX,TP 007693 : ,U1A,CONT. 007694 : ,XTA,BIT3. 007695 : 12,032,14B.BKЛЮЧEHИE AЦПY 007696 : 12,XTA,BIT39. 007697 : ,CALL,PERMIR."HYЛИ" 007698 : CONT:,BSS,. 007699 : ,WTC,ГYC 007700 : RB,VTM, 007701 : CONT RB:,BSS, 007702 : ,NTR,3 007703 : 15,XTA,NEWBLS. 007704 : 15,ARX,RR 007705 : ,AEX, 007706 : ,U1A,*1. 007707 : ,XTA,C1. 007708 : *1:15,ATX,EXPPOS.ПPOБЫ: 007709 : RB,A+X,LP STR.KOPPEKTИPOBKA 007710 : RB,ATX,LP STR.CЧETЧИKA CTPOK 007711 : RB,X-A,LP LIM.- ЛOПHYЛ ЛИMИT 007712 : ,UZA,*01. = HET 007713 : ,XTA,Ш/CЛYЖ 007714 : ,AOX,SCENDJO.- БЛOKИPOBKИ 007715 : ,AAX,BITJ 007716 : ,U1A,*01. = ДA 007717 : ,XTA,*TYPELP 007718 : ,AAX,BIT1 007719 : ,U1A,*01. = ДA 007720 : :,24,2003B 007721 : ,XTA,BITJ 007722 : ,AOX,LIMLP SC 007723 : ,ATX,LIMLP SC 007724 : ,XTA,C574.BOЗBPAT 007725 : 15,ATX,*R33.B ЗAДAЧY 007726 : ,XTA,DISREG.HA ЭK KOHЦA 007727 : 15,ATX,*R27.... 007728 : *01:,24,3 007729 : ,XTA,Ш/FULL 007730 : ,AAX,BITJ 007731 : ,UZA,*010 007732 : RB,XTA,571B 007733 : ,AAX,BIT45 007734 : ,U1A,*001.*LIST OUT 007735 : *010:,NTR, 007736 : 15,XTA,EXPPOS. 007737 : ,AOX,INT0. 007738 : ,A*X,CTLP. 007739 : RB,A+X,BISTIME 007740 : RB,ATX,BISTIME 007741 : *001:,BSS, 007742 : NS,VTM,-40. 007743 : 15,XTA,OLDBLS. 007744 : ,ASN,64-40 007745 : AB,ATX,. 007746 : ,XTA,. 007747 : 15,ATX,EXPPOS. 007748 : C BOЗBPAT HA CЧET ИЛИ PEДAKTИPOBAHИE 007749 : 6,V1M,ENDRED. 007750 : 15,ATX,OLDBLS. 007751 : ,UJ,RETURN 007752 : END RED:15,XTA,B152 007753 : ,UZA,CONT RED 007754 : RETURN:,24,2003B 007755 : ,XTA,LISTFLAG 007756 : ,AAX,BITJ 007757 : ,U1A,BOC ИПЗ 007758 : ,ITA,7 007759 : ,ARX,IREF1 007760 : ,UJ,NRESOFF 007761 : IREF1:,Z00,NRPRTA 007762 : ,Z00,BOC ИПЗ-*** 007763 : BOC ИПЗ:,WTC,ГYC 007764 : 14,VTM, 007765 : C 007766 : C BOCCTAHOBЛEHИE ИПЗ MAT.ЗAДAЧИ 007767 : C 007768 : ,ITA, 007769 : 14,ATX,M72 007770 : 13,VTM,-25B 007771 : 15,UTM,101B 007772 : L IREG:13,UTC, 007773 : 15,XTA,25B 007774 : 13,UTC, 007775 : 14,ATX,25B 007776 : 13,VLM,L IREG 007777 : ,XTA,GRET 007778 : ,UJ,NRESOFF 007779 : C***** TEKCTЫ ДИAГHOCTИKИ 007780 : NRDTEXT:,ISO,12HHEГOT.AЦПY'''' 007781 : HETAЦПY:,ISO,12HHET AЦПY'''''''' 007782 : ,BSS, 007783 : C***** ИHФOPMAЦИOHHЫE CЛOBA 007784 : C ДЛЯ 'NRESCALL' , 'NRESOFF' 007785 : BRET:,Z00,NR/64 007786 : ,Z00,CLANEWTA 007787 : GRET:,Z00,NR/64 007788 : ,Z00,SELECT 007789 : INF TER:RB,Z14,WS/DEBUG.BЫBOД B COSY-GOST 007790 : 8,Z00,40000B."HEOБЯЗATEЛЬHЫЙ" 007791 : C***** ПAPAMETPЫ ФOPMATA ЛИCTA 007792 : FPL:,LOG,110.ПOЛHAЯ ДЛИHA 007793 : DP:,LOG,6.ПPOMEЖYTOK 007794 : C***** 007795 : CENDSTR:,LOG,176. 007796 : K02700 : ,LOG, 00000000 00000016 007797 : K05405 : ,LOG, 00000000 00000025 007798 : K06124:,LOG,05601567 01673560. 007799 : ,LOG,05601560 35673560. 007800 : ,LOG,00100000 40000010. 007801 : K06127 : ,LOG, 00100010 00000010 007802 : INT0:,BSS, 007803 : K06130 : ,LOG, 64000000 00000000 007804 : K06134 : ,LOG, 00000000 00000012 007805 : C41:,LOG,41. 007806 : K06142 : ,LOG, 77777777 77777776 007807 : K06245 : ,LOG, 00000000 00000133 007808 : C140:,LOG,140. 007809 : C231:,BSS,. 007810 : K06330 : ,LOG, 00000000 00000231 007811 : K06360 : ,LOG, 17555746 77547276 007812 : K06361 : ,LOG, 42120000 00000000 007813 : K06362 : ,LOG, 40500000 00000000 007814 : WS:,BSS,1 007815 : TAБЛABT:,BSS,. 007816 : ,OCT,00075177 11236120. 007817 : ,OCT,14434405 23023412. 007818 : ,OCT,00075527 17622126. 007819 : ,OCT,13410532 10420533. 007820 : ,OCT,00000130 22034032. 007821 : ,OCT,13251426 14635124. 007822 : ,OCT,21216415 20032030. 007823 : ,OCT,13017016 15235414. 007824 : ,OCT,00054515 10014413. 007825 : ,OCT,21025423 22633521. 007826 : ,OCT,21616004 20624424. 007827 : ,OCT,20221427 00076175. 007828 : ,OCT,20424117 22236516. 007829 : ,OCT,14027522 21437125. 007830 : ,OCT,14233037 12410022. 007831 : ,OCT,22423025 00015400. 007832 : ,END, 007833 : *WRBF64:,NAME,.05.06.78 007834 : C 007835 : C***** HEPEЗИДEHT БYФEPИЗAЦИИ BЫBOДA 007836 : C 007837 : *ИПД:LC,BLOCK,(1),XNFM 007838 : ,CONT,(4),XNCM 007839 : ,CONT,(42),SCEM*64 007840 : NFM:,WEQ,XNFM 007841 : NCM:,WEQ,XNCM.KOЛ-BO ПOЛHЫX 007842 : *ИПK:LC,BLOCK,*INFBA 007843 : INFEX:,EQU,*INFBA+NCM 007844 : BLI:,EQU,2000B.ДЛЯ БYФ.ЛИCTA 007845 : INF 72:,EQU,=:10 0140 77 007846 : ДHЗ:,LC,1 007847 : *YCЫ:LC,BLOCK,ГYC 007848 : STAT1:,EQU,571B 007849 : NAME:,EQU,80 007850 : TTPRINT:,SUBP, 007851 : DISREG:,LC,1 007852 : C1777:,LC,1 007853 : *677:B,BLOCK,BITS 007854 : ,CONT,BIT48,BIT47,BIT46,BIT45 007855 : ,CONT,BIT44,BIT43,BIT42,BIT41 007856 : ,CONT,BIT40,BIT39,BIT38,BIT37 007857 : ,CONT,BIT36,BIT35,BIT34,BIT33 007858 : ,CONT,BIT32,BIT31,BIT30,BIT29 007859 : ,CONT,BIT28,BIT27,BIT26,BIT25 007860 : ,CONT,BIT24,BIT23,BIT22,BIT21 007861 : ,CONT,BIT20,BIT19,BIT18,BIT17 007862 : ,CONT,BIT16,BIT15,BIT14,BIT13 007863 : ,CONT,BIT12,BIT11,BIT10,BIT9 007864 : ,CONT,BIT8 ,BIT7 ,BIT6 ,BIT5 007865 : ,CONT,BIT4 ,BIT3 ,BIT2 ,BIT1 007866 : NP/IW:,EQU,BIT31 007867 : ИП PEД:,EQU,1000B 007868 : C ЯЧEЙKИ TИПA PП 007869 : *31 :B,BLOCK,TE,EBUF(2),LBUF 007870 : C..... PAБOЧИE ЯЧEЙKИ БYФEPИЗAЦИИ 007871 : *1:,BLOCK,(6),NCTEK,NZNEXT,NZTEK 007872 : ,CONT,M/EXT,M/END 007873 : ,CONT,S1,S2,I6 007874 : ,CONT,LB,CNT,LBA,BT 007875 : ,CONT,I13,I14,*RS 007876 : ,CONT,NZBEG 007877 : *126:B,BLOCK,ONZ,ARET 007878 : C..... ПPOЦEДYPЫ PAБOTЫ C OБЛACTЬЮ BЫBOДA 007879 : *GIVNC:,SUBP, 007880 : *GIVNZ:,SUBP, 007881 : *RCAT :,SUBP, 007882 : *WCAT :,SUBP, 007883 : *RWOUT:,SUBP, 007884 : C..... 007885 : *BEG:,BSS, 007886 : NRES064:,SUBP, 007887 : BAS64:,EQU,*BEG-NRES064 007888 : 7,REL,*BEG 007889 : :,24,3 007890 : 7,UTM,BAS64 007891 : C 007892 : C***** BXOД : ПEPEПИCЬ БYФEPA 007893 : C HA ФOPMAЛЬHЫЙ ЛИCT 007894 : C 007895 : ,ITA,1 007896 : 15,ATX,S1 007897 : ,ITA,2 007898 : 15,ATX,S2 007899 : ,ITA,13 007900 : 15,ATX,ARET. 007901 : 13,VJM,EXCH40/1 007902 : 15,XTA,BT. 007903 : ,ATI,1 007904 : 15,XTA,CNT 007905 : ,ATI,2 007906 : 15,XTA,LB 007907 : 15,ATX,LBA. 007908 : WRB:,BSS, 007909 : ,ITA,1 007910 : 15,AEX,TE 007911 : ,UZA,WR 007912 : 1,XTA, 007913 : : ,24, 007914 : 2,ATX,BLI+1023 007915 : : ,24,3 007916 : 2,VLM,WRBC 007917 : 2,VTM,10-1023 007918 : 13,VJM,CБPOC 007919 : WRBC:,BSS, 007920 : 1,UTM,1 007921 : 15,XTA,LBA. 007922 : ,ARX,BIT1 007923 : 15,ATX,LBA. 007924 : ,ITA,1 007925 : 15,AEX,EBUF 007926 : ,U1A,WRB 007927 : 15,WTC,LBUF 007928 : 1,UTM, 007929 : ,UJ,WRB 007930 : WR:,BSS, 007931 : 15,XTA,LBA. 007932 : 15,ATX,LB 007933 : ,ITA,1 007934 : 15,ATX,BT. 007935 : ,ITA,2 007936 : 15,ATX,CNT 007937 : 13,VJM,DE FIX 007938 : 15,XTA,S2 007939 : ,ATI,2 007940 : 15,XTA,S1. 007941 : ,ATI,1 007942 : 7,UTM,-BAS64 007943 : 15,WTC,ARET 007944 : ,UJ, 007945 : *CБPOC64:,ENTRY, 007946 : C 007947 : C***** BXOД : CБPOC ФOPMAЛЬHOГO ЛИCTA 007948 : C 007949 : ,ITA,13 007950 : 15,ATX,I13 007951 : 13,VJM,EXCH40/1 007952 : 15,WTC,I13 007953 : 13,VTM, 007954 : CБPOC:,BSS, 007955 : ,ITA,13 007956 : 15,ATX,I13 007957 : 15,XTA,NZ NEXT 007958 : 15,ATX,NZ TEK 007959 : ,U1A,NO FICA 007960 : 15,ATX,ONZ 007961 : 7,UTC,-*BEG 007962 : 13,VJM,*GIVNZ 007963 : 15,ATX,NZ TEK 007964 : 15,ATX,NZ BEG 007965 : 7,UTC,-*BEG 007966 : 13,VJM,*GIVNC 007967 : 15,ATX,NC TEK 007968 : ,ASN,64-30.36-31 N BЫB 007969 : 6,AOX,*INFBA 007970 : 6,ATX,*INFBA 007971 : NO FICA:,BSS, 007972 : 15,XTA,M/END 007973 : ,UZA,NO END 007974 : 15,WTC,CNT 007975 : 14,VTM,1023 007976 : : ,24, 007977 : 14,ATX,BLI 007978 : ,ATX,BLI+1023 007979 : ,XTA, 007980 : :,24,3 007981 : ,UJ,WR NZ 007982 : NO END:,BSS, 007983 : 7,UTC,-*BEG 007984 : 13,VJM,*GIVNZ 007985 : WR NZ:,BSS, 007986 : 13,VTM,BLI 007987 : 15,ATX,NZ NEXT 007988 : 14,VJM,FORM 007989 : :,24, 007990 : ,ATX,BLI+9. CПEЦKOД 007991 : :,24,3 007992 : C 007993 : C ФOPMИPOBAHИE 5-ГO И 6-ГO CЛYЖ. CЛOB 007994 : C ЗOHЫ ФAЙЛA BЫBOДA: 007995 : C 5-E : CЧ. BPEMЯ ЗAДAЧИ 007996 : C 6-E : KOMM. BPEMЯ ЗAДAЧИ. 007997 : 15,XTA,-1-ИПPEД 007998 : :,24, 007999 : ,ATX,BLI+5 008000 : :,24,3 008001 : 15,XTA,110B-ИПPEД 008002 : :,24, 008003 : ,ATX,BLI+6 008004 : :,24,3 008005 : 15,XTA,NZTEK 008006 : ,AOX,NP/IW 008007 : 7,UTC,-*BEG 008008 : 13,VJM,*RWOUT 008009 : 15,XTA,M/EXT 008010 : ,U1A,RET/2 008011 : 15,XTA,ONZ 008012 : ,UZA,NO BIG 008013 : ,ASN,64-34.14-10 - 1MБ 008014 : ,U1A,NO BIG 008015 : ,XTA,ГYC 008016 : ,ASN,64-27 008017 : ,AUX,C/ШИ 008018 : ,AOX,T/ШИ 008019 : 14,VTM,ДЛB 008020 : 14,ATX,2 008021 : ,ITA,14 008022 : : ,24,2003B 008023 : 14,VJM,TT PRINT 008024 : NO BIG:,BSS, 008025 : 15,XTA,M/END 008026 : ,U1A,COR CAT 008027 : 15,XTA,ONZ 008028 : ,U1A,RET/2 008029 : COR CAT:,BSS, 008030 : 13,VTM,BLI 008031 : ,ITA,13 008032 : 7,UTC,-*BEG 008033 : 13,VJM,*RCAT 008034 : 15,XTA,NC TEK 008035 : ,ASN,64-2 008036 : 15,ARX,NC TEK 008037 : ,ATI,13 008038 : 13,UTM,BLI 008039 : 15,XTA,STAT1-ИПPEД 008040 : ,AAX,=:077 008041 : 15,WTC,M/END 008042 : ,AOX,BIT47.B48 ИЛИ B47 008043 : 15,AOX,NZBEG 008044 : 14,VJM,FORM 008045 : 13,VTM,BLI 008046 : ,ITA,13 008047 : 7,UTC,-*BEG 008048 : 13,VJM,*WCAT 008049 : RET/2:,BSS, 008050 : : ,24,3 008051 : ,XTA,BIT10 008052 : 15,ARX,ONZ 008053 : 15,ATX,ONZ 008054 : 15,XTA,M/END 008055 : ,UZA,RET/3 008056 : 13,VJM,DE FIX 008057 : ,XTA, 008058 : 15,ATX,M/END 008059 : RET/3:,BSS, 008060 : 15,WTC,I13 008061 : ,UJ, 008062 : EXCH40/1:,BSS, 008063 : ,ITA,6 008064 : 15,ATX,I6 008065 : ,ITA,14 008066 : 15,ATX,I14 008067 : ,WTC,ДHЗ 008068 : 6,VTM,-NFM 008069 : 6,XTA,BITS+NFM 008070 : : ,24,2003B 008071 : ,AOX,SCEM*64 008072 : ,ATX,SCEM*64 008073 : ,XTA,DISREG 008074 : ,ATI,27B 008075 : ,*72,INF 72 008076 : RET F:,24,3 008077 : 13,UJ, 008078 : DE FIX:,BSS, 008079 : : ,24,2003B 008080 : ,XTA,DISREG 008081 : ,ATI,27B 008082 : ,*72,INF 72 008083 : 6,XTA,BITS+NFM 008084 : ,AEX,SCEM*64 008085 : ,ATX,SCEM*64 008086 : 15,WTC,I6 008087 : 6,VTM, 008088 : 15,WTC,I14 008089 : 14,VTM, 008090 : ,UJ,RET F 008091 : FORM:,BSS, 008092 : 15,ATX,*RS 008093 : 6,XTA,*INFBA 008094 : C ФOPMИPOBAHИE ЭЛ-TA KATAЛOГA BЫBOДA 008095 : C И CЛYЖEБHЫX CЛOB ЗOHЫ: 008096 : C 0 CЛ 48 - БYФEPИЗAЦИЯ OKOHЧEHA 008097 : C 47 - ИДET БYФEPИЗAЦИЯ 008098 : C 46 - ИCПOЛЬЗYETCЯ TAPEPRNT 008099 : C 45 - ЗAПPET ABTOPACПEЧATKИ 008100 : C 44 - OTMEHA HYMEPAЦИИ CTPAHИЦ 008101 : C 43 - ГPAФИKA EЩE HE BЫBOДИЛACЬ 008102 : C 42-40 - TИП ГPAФПЛOTTEPA 008103 : C 38-37 - HOMEP ЭBM (ИЗ DISPBASE) 008104 : C 36-31 - N BЫBOДA 008105 : C 30-25 - N BBOДA 008106 : C 24-19 - N ЛAБOPATOPИИ 008107 : C 18-10 - OБЩEE KOЛ-BO ЗOH CПИCKA,CЧИTAЯ C 0 008108 : C 9-1 - N 1 ЗOHЫ CПИCKA (ДЛЯ ЭЛ-TA KAT) 008109 : C N CЛEДYЮЩEЙ ЗOHЫ ИЛИ 0=KOHEЦ 008110 : C 1 CЛ 008111 : C 48:31 - K-BO OTПEЧ. CTPOK 008112 : C 30:13 - ACTP. BPEMЯ ФOPM. ЭЛ-TA 008113 : C 10:01 - N PASS 008114 : C 2-4 CЛ - NAME(ISO) C XBOCTOBЫMИ '0' 008115 : ,APX,=3000 7777 7700 0000 008116 : ,ASN,64+10 008117 : 15,AOX,*RS 008118 : 15,AOX,ONZ 008119 : : ,24, 008120 : 13,ATX, 008121 : :,24,3 008122 : 15,XTA,126B-ИПPEД.OTПEЧ. CTPOK 008123 : ,ASN,64-30 008124 : 15,ATX,*RS 008125 : ,XTA,542B 008126 : ,NTR,7 008127 : ,A+X,=I0 008128 : ,ASN,64-12 008129 : 15,AOX,*RS 008130 : 15,ATX,*RS 008131 : 6,XTA,INFEX 008132 : ,AAX,C1777 008133 : 15,AOX,*RS 008134 : :,24, 008135 : 13,ATX,1 008136 : : ,24,3 008137 : ,ITA,14 008138 : 15,ATX,*RS 008139 : 14,VTM,-2 008140 : F 1:,WTC,ГYC 008141 : 14,XTA,NAME+2 008142 : : ,24, 008143 : 14,UTC,2 008144 : 13,ATX,2 008145 : : ,24,3 008146 : 14,VLM,F 1 008147 : ,XTA,=6H'12'FOUT'200' 008148 : 15,WTC,*RS 008149 : ,UJ, 008150 : C..... 008151 : C/ШИ:,GOST,6H077000 008152 : T/ШИ:,ISO ,6HШ00'''''' 008153 : ДЛB:,ISO,18HДЛИH.BЫДAЧA- 008154 : ,END, 008155 : PROC/OUT:,NAME, 008156 : C 008157 : C***** HAБOP ПPOЦEДYP ПO PAБOTE 008158 : C C OБЛACTЬЮ BЫBOДA 008159 : C 008160 : C----- B X O Д Ы : 008161 : C ЧEPEЗ ЭKCTPAKOД : ,*57,7 008162 : C И ИЗ '*WRBF64' 008163 : C 008164 : C..... ПPИ BXOДE ЧEPEЗ ЭKCTPAKOД 008165 : C HA CYMMATOPE ИHФ.CЛOBO : 008166 : C... PP.48/45 - TИП PAБOTЫ 008167 : C = 1 - ЧTEHИE KATAЛOГA 008168 : C = 2 - ЗAПИCЬ KATAЛOГA 008169 : C = 3 - OБMEH C OБЛACTЬЮ BЫBOДA 008170 : C... PP.41/41 = 0 008171 : C... PP.40/1 - ДOП.ИHФOPMAЦИЯ K TИПY 008172 : C 008173 : C..... BXOДЫ OT '*WRBF64' C BOЗBPATOM ПO И13 008174 : C... HA CYMMATOPE ДOП.ИHФOPMAЦИЯ 008175 : C 008176 : C..... 008177 : *ИПД:LC,BLOCK,(1),XNFM,(4),XNCM 008178 : ,CONT,(39),SNOZON 008179 : NFM:,WEQ,XNFM 008180 : NCM:,WEQ,XNCM 008181 : *ИПK:LC,BLOCK,*INFBA 008182 : INFEX:,EQU,*INFBA+NCM 008183 : *YCЫ:LC,BLOCK,ГYC 008184 : BUFS27:,EQU,104B.- ПO ИПЗ 008185 : ДHЗ:LC,BLOCK,(1),BITJ 008186 : ШЛAГБAYM:LC,BLOCK,(2),SEM/OUT,SEM/IN 008187 : ,CONT,(7),SEM/GRF 008188 : SMASAV:LC,BLOCK,SAVAC(3) 008189 : ,CONT,SAVI15,SAVI14,SAVI13 008190 : DISPBASE:LC,BLOCK,(6),NUMEVM 008191 : /OUT/:LC,BLOCK,*SCAFR(2) 008192 : KAT MБ:,EQU,506B 008193 : C..... 008194 : C7:,LC,1 008195 : C13:,LC,1 008196 : C77:,LC,1 008197 : C777:,LC,1 008198 : C1777:,LC,1 008199 : DISREG:,LC,1 008200 : C7777:,LC,1 008201 : C77777:,LC,1 008202 : C..... 008203 : *WRBF64:,SUBP, 008204 : *B:,EQU,*WRBF64 008205 : MACRO70S:,SUBP, 008206 : CLANEWTA:,SUBP, 008207 : RETURN:,SUBP, 008208 : ERR*57 :,SUBP, 008209 : NR/64:,SUBP, 008210 : NRESOFF:,SUBP, 008211 : SEMDOWNS:,SUBP, 008212 : SEMUP :,SUBP, 008213 : TTPRINT:,SUBP, 008214 : C..... PAБOЧEE ПOЛE ПPOЦEДYP 008215 : *1:,BLOCK,S/7,S/32,RET/,IW/,SAV/(0) 008216 : ,CONT,RET*,I1*(4),M/EXT 008217 : C..... OПИCATEЛИ KATAЛOГA 008218 : CAT:,EQU,2000B 008219 : WSC1:,EQU,1760B 008220 : LAB :,EQU,1773B 008221 : LAW :,EQU,1775B 008222 : LAST W:,EQU,CAT+LAW 008223 : INF 46/1:,EQU,=:10 4601 77 008224 : C..... 008225 : *677:B,BLOCK,BITS 008226 : ,CONT,B48,B47,B46,B45,B44,B43 008227 : ,CONT,B42,B41,B40,B39,B38,B37 008228 : ,CONT,B36,B35,B34,B33,B32,B31 008229 : ,CONT,B30,B29,B28,B27,B26,B25 008230 : ,CONT,B24,B23,B22,B21,B20,B19 008231 : ,CONT,B18,B17,B16,B15,B14,B13 008232 : ,CONT,B12,B11,B10,B9,B8,B7 008233 : ,CONT,B6,B5,B4,B3,B2,B1 008234 : C..... 008235 : A/CAT:,EQU,B11 008236 : C 008237 : C===== BXOД OT ЭKCTPAKOДA 008238 : C 008239 : 7,REL,*B 008240 : C..... ДOYПPЯTЫBAHИE ИHФOPMAЦИИ 008241 : 14,MTJ,15 008242 : 15,AOX,S/7 008243 : 15,ATX,S/7 008244 : ,ITA,32B 008245 : ,ASN,64-15 008246 : ,AOX,SAVI13 008247 : ,ASN,64-15 008248 : 15,ATX,S/32 008249 : ,ITA,8 008250 : 15,AOX,S/32 008251 : 15,ATX,S/32 008252 : C..... ПPOBEPKA TИПA PAБOTЫ 008253 : ,XTA,SAVAC 008254 : ,AAX,CH MSK 008255 : ,U1A,ERROR 008256 : ,XTA,SAVAC 008257 : 15,ATX,SAV/.OTBET ПPИ OБMEHE 008258 : ,AUX,UPM 1 008259 : ,ATI,14 008260 : ,ASN,64+15 008261 : ,ATI,8 008262 : ,XTA,SAVAC 008263 : ,AAX,B44 008264 : ,UZA,OUT/IN 008265 : 8,VTM,2.=GRAF/EXP.DATA 008266 : OUT/IN:,BSS, 008267 : C..... ПEPEKЛЮЧATEЛЬ ПO TИПY PAБOTЫ 008268 : ,XTA,SAVAC 008269 : : ,24,3 008270 : ,AAX,B40/1 008271 : 13,VTM,P/RET 008272 : 14,UJ,P/SW 008273 : P/SW:,BSS, 008274 : :,UJ,ERROR.= PEЗEPB 008275 : READ C:,BSS, 008276 : :,AOX,B20 008277 : ,UJ,RW CAT 008278 : :,UJ,WRIT C.= ЗAПИCЬ KAT. 008279 : :15,ATX,IW/ 008280 : ,UJ,RE WR.=OБMEH C OB 008281 : :14,VTM,0 008282 : ,UJ,ДAЙ.= ДAЙ ЭЛK 008283 : :14,VTM,1 008284 : ,UJ,ДAЙ.= ДAЙ ЗOHY 008285 : ,BSS, 008286 : C...... BOЗBPAT ИЗ ЭKCTPAKOДA 008287 : P/RET:,24,2003B 008288 : ,ITA,7 008289 : ,ARX,I/REF.= OTKAЗ OT 008290 : ,UJ,NRESOFF. HEPEЗИДEHTA 008291 : I/REF:,Z00,NR/64 008292 : ,Z00,RET1-*B 008293 : C..... BOCCTAHOBЛEHИЯ И BOЗBPAT 008294 : RET1:,BSS, 008295 : 15,XTA,S/32 008296 : ,ATI,8 008297 : ,ASN,64+15 008298 : ,ATX,SAVI13 008299 : ,ASN,64+15 008300 : ,ATI,32B 008301 : ,ATI,33B 008302 : 15,XTA,S/7 008303 : ,ATX,SAVI15 008304 : ,ASN,64+15 008305 : ,ATI,27B 008306 : ,ASN,64+15 008307 : ,ATI,7 008308 : 15,XTA,SAV/ 008309 : ,ATX,SAVAC 008310 : ,ITA,15 008311 : ,ATX,SAVI14 008312 : ,UJ,RETURN 008313 : C..... ДИAГHOCTИKA 008314 : ERROR:,BSS, 008315 : C..... BOCCTAHOBЛEHИЯ ДЛЯ ПEЧATИ 008316 : 15,XTA,S/32 008317 : ,ASN,64+30 008318 : ,ATI,32B 008319 : ,XTA,C7 008320 : ,ATI,27B 008321 : ,ATX,SAVI14 008322 : 15,XTA,S/7 008323 : ,ASN,64+30 008324 : ,ATI,7 008325 : ,UJ,ERR*57 008326 : C===== 'ДAЙ ЭЛEMEHT KATAЛOГA' 008327 : C BXOД TOЛЬKO OT '*WRBF64' 008328 : *GIV NC:,ENTRY, 008329 : ,UTC,-1 008330 : C===== 'ДAЙ CBOБOДHYЮ ЗOHY' 008331 : C BXOД TOЛЬKO OT '*WRBF64' 008332 : *GIV NZ:,ENTRY, 008333 : 14,VTM,1 008334 : ,ITA,1 008335 : ,ASN,64-15 008336 : 15,ATX,I1* 008337 : ,ITA,8 008338 : 15,AOX,I1* 008339 : 15,ATX,I1* 008340 : 8,VTM,.ПPИЗHAK BЫBOДA 008341 : 14,MTJ,1 008342 : ,ITA,13 008343 : 15,ATX,RET* 008344 : C..... ПPOБA ПEPEXBATA AЦПY 008345 : C----- BЫДAЧA PECYPCA ИЗ OБЛACTИ BЫBOДA 008346 : GIV:,24,2003B 008347 : ,XTA,B48/17.- EЦTЬ ЛИ PECYPC 008348 : 1,AAX,*SCAFR. B PEЗИДEHTE 008349 : ,UZA,ABSENT. = HET 008350 : ,ANX,C77777 008351 : ,ATI,13 008352 : 13,XTS,B48.ИПЗ-PEДAKTИP. 008353 : 1,AEX,*SCAFR 008354 : 1,ATX,*SCAFR 008355 : 15,ARX, 008356 : : ,24,3 008357 : ,AAX,C777 008358 : PUT:,BSS, 008359 : C..... BOЗBPAT ИЗ BЫДAЧИ PECYPCA 008360 : RET:15,XTS,I1*-1.AЙ-ЯЙ-ЯЙ 008361 : ,ATI,8 008362 : ,ASN,64+15 008363 : ,STI,1 008364 : 15,WTC,RET* 008365 : ,UJ, 008366 : C----- B PEЗИДEHTE HET PECYPCA 008367 : C ПO OБЛACTИ BЫBOДA 008368 : ABSENT:,BSS, 008369 : 13,VJM,DOWN.= MOHOПOЛИЯ 008370 : C..... A HE ИЗBЛEK ЛИ KTO PECYPC 008371 : 1,XTA,*SCAFR 008372 : ,AAX,B48/17 008373 : 13,VTM,GIV 008374 : ,U1A,UP.= ИЗBЛEK 008375 : ,XTA,C13 008376 : ,ATI,27B.- ДOCTAHEM 008377 : ,*72,INF 46/1. 46 ЛИCT 008378 : ,XTA,A/CAT.=ЗA ЧTEHИEM 008379 : 13,VJM,READ C. KATAЛOГA 008380 : : ,24, 008381 : 1,XTA,LASTW 008382 : ,ATI,13 008383 : 14,VTM,-16.16 ШKAЛ И XBOCT 008384 : C..... ПOИCK PECYPCA B KATAЛOГE 008385 : SE/SC:,24,3 008386 : ,ITA,13 008387 : 1,AEX,C1740.(C1760) 008388 : :,U1A,*+1 008389 : 13,UTM,-20B 008390 : :,24, 008391 : 13,XTA,CAT.- B OЧEP.ШKAЛE 008392 : ,ASN,64+16. ECTЬ PECYPC 008393 : ,U1A,SCAL IS. = ДA 008394 : 13,UTM,1 008395 : 14,VLM,SE/SC.BMECTO ИP6 008396 : C 008397 : C----- Y B Ы : PECYPCA HET 008398 : C 008399 : 13,VJM,REFUSE 008400 : ,XTA,BITJ 008401 : ,AOX,SNOZON.= MЫ ЖДEM 008402 : ,ATX,SNOZON. PECYPCA 008403 : C..... ИЗBECTИM OПEPATOPA 008404 : 1,XTA,T/OVFL.= ПOДГOTOBKA 008405 : ,ATX,TT+1. TEKCTA 008406 : ,ITA,15.= ПOДГOTOBKA 008407 : ,ATX,SAVI15.K CAMOЗAKPЫTИЮ 008408 : ,XTA,DISREG 008409 : ,ATI,27B.= PEЖИM И 008410 : 14,VTM,ABSENT. AДPEC BXOДA 008411 : 14,MTJ,33B.... 008412 : 14,VTM,TT 008413 : ,ITA,14 008414 : 14,VTM,CLANEWTA 008415 : ,UJ,TT PRINT.* TT-ПEЧATЬ 008416 : C----- HAШЛИ B KATAЛOГE ШKAЛY 008417 : C OTOБPAЗИM B PEЗИДEHT И KATAЛOГ 008418 : SCAL IS:,BSS, 008419 : ,XTA,NUMEVM 008420 : ,ASN,64+46 008421 : ,ATI,14 008422 : 14,J+M,14.0,2,4 008423 : 13,UTM,1 008424 : ,ITA,13 008425 : 1,ATX,LASTW 008426 : 13,XTA,CAT-1 008427 : : ,24,3 008428 : 1,ATX,*SCAFR 008429 : : ,24, 008430 : 14,UTC,CAT 008431 : 1,ATX,WSC1 008432 : ,ASN,64-39 008433 : ,ASN,64+39 008434 : 13,ATX,CAT-1 008435 : : ,24,3 008436 : ,XTA,A/CAT.= HA ЗAПИCЬ 008437 : 13,VJM,WRIT C. KATAЛOГA 008438 : 13,VTM,GIV 008439 : C----- 008440 : REFUSE:,BSS, 008441 : : ,24,2003B 008442 : ,XTA,C13 008443 : ,ATI,27B.= BEPHEM 008444 : ,*72,INF 46/1. 46 ЛИCT 008445 : C----- BЫXOД ИЗ KPИT.ИHTEPBAЛA KATAЛOГA 008446 : UP:,BSS, 008447 : ,ITA,13 008448 : 8,ARX,I/SEM 008449 : ,UJ,SEM UP. 008450 : C----- BXOД B KPИT.ИHTEPBAЛ KATAЛOГA 008451 : DOWN:,BSS, 008452 : ,ITA,13 008453 : 8,ARX,I/SEM 008454 : ,UJ,SEMDOWNS 008455 : I/SEM:8,Z01,SEM/OUT 008456 : ,Z00, 008457 : :8,Z01,SEM/IN 008458 : ,Z00, 008459 : :8,Z01,SEM/GRF 008460 : ,Z00, 008461 : C----- 008462 : C 008463 : C===== ЧTEHИE KATAЛOГA C MOHOПOЛИЗAЦИEЙ 008464 : C BXOД OT ЭKCTPAKOДA И '*WRBF64' 008465 : C ДOП.ИHФOPMAЦИЯ = AДPEC KATAЛOГA 008466 : C 008467 : *RCAT:,ENTRY, 008468 : ,AOX,B20 008469 : ,BSS, 008470 : C 008471 : C===== ЗAПИCЬ KATAЛOГA C ДEMOHOПOЛ. 008472 : C BXOД OT ЭKCTPAKOДA И '*WRBF64' 008473 : C ДOП.ИHФOPMAЦИЯ = AДPEC KATAЛOГA 008474 : C 008475 : *WCAT:,ENTRY, 008476 : 15,ATX,IW/ 008477 : 14,VJM,SAVE 8 008478 : WRIT C:,BSS, 008479 : RW CAT:,ASN,64-20 008480 : 15,ATX,IW/ 008481 : ,ITA,13 008482 : 15,ATX,RET/ 008483 : 13,VJM,DOWN.= MOHOПOЛИЗAЦИЯ 008484 : 15,XTA,IW/ 008485 : ,AAX,B40 008486 : ,U1A,RWC 008487 : C 008488 : C----- A HE ПИШEM ЛИ MЫ ДYPHOГO B KAT. 008489 : C 008490 : 15,XTA,IW/ 008491 : ,ASN,64+20 008492 : ,ATI,13 008493 : : ,24,2000B 008494 : 13,XTA,1777B 008495 : : ,24,2003B 008496 : 8,AEX,SIGN 008497 : ,UZA,RWC 008498 : C----- TAK TOЧHO: MYPИЩA 008499 : ,33,57B.OCTAHOB 008500 : ,UJ,AFT/EXCH.И BOЗBPAT 008501 : C 008502 : RWC:,BSS, 008503 : ,XTA,DISREG 008504 : ,ATI,27B 008505 : C KATAЛOГ GRAF/EXP.DATA HA HOCИTEЛE 008506 : C CATALO/8 008507 : C ИЛИ D73GRF/12 008508 : ,ITA,8 008509 : ,AEX,B2 008510 : ,UZA,WR0.=GRAF 008511 : C..... KATAЛOГ HA MБ ИЛИ HOCИTEЛE 008512 : ,XTA,KAT MБ. MБ-KATAЛOГ 008513 : ,UZA,WR 1. = HET 008514 : 8,V1M,WR 2 008515 : ,ARX,B1 008516 : ,UJ,WR 2 008517 : WR0:,XTA,2 008518 : ,AAX,B39.ПYЛЬT 008519 : ,UZA,WR1.=D73GRF/12 008520 : ,UTC,GIV C/8-GIV OUT.=CATALO/8 008521 : WR 1:13,VJM,GIV OUT 008522 : WR 2:14,VJM,EXCH.= ЗA OБMEHOM 008523 : AFT/EXCH:,BSS, 008524 : 15,WTC,RET/ 008525 : 13,VTM, 008526 : 15,XTA,IW/ 008527 : ,AAX,B40.OБMEH = ЧTEHИE 008528 : 13,U1A,. = ДA 008529 : ,UJ,UP.- ДEMOHOПOЛИЗAЦИЯ 008530 : C----- ПPOЦEДYPЫ ПOИCKA OБЛACTEЙ 008531 : GIV C/8:,UTC,2.ДЛЯ GRAF 008532 : GIV OUT:,BSS,.OБЛACTИ BЫB/BB 008533 : 8,XTA,FIL/OUT 008534 : ,*57,540B 008535 : ,AAX,C77 008536 : ,ASN,64-12 008537 : : ,24,2003B 008538 : ,ATX,WS 008539 : ,ARX,C/MOD 008540 : ,AAX,B46 008541 : ,AEX,B46 008542 : ,AOX,B39 008543 : ,AOX,WS 008544 : 13,UJ, 008545 : C 008546 : C===== ЧTEHИE / ЗAПИCЬ ЗOHЫ 008547 : C BXOД OT ЭKCTPAKOДA И *WRBF64' 008548 : C 008549 : C ДOП.ИHФOPMAЦИЯ : 008550 : C... B39=1 - OБMEH C 7/M , ИHAЧE 008551 : C... B18/13#0 - ЛИЧHAЯ OБЛACTЬ 008552 : C... ИHAЧE = OБЛACTЬ BЫBOДA ИЛИ BBOДA 008553 : C... B40,B35/31,B10/1 - ДЛЯ ЭK70 008554 : C 008555 : *RW OUT:,ENTRY, 008556 : 15,ATX,IW/ 008557 : 14,VJM,SAVE 8 008558 : REWR:,BSS, 008559 : ,ITA,13 008560 : 15,ATX,RET/ 008561 : ,XTA,C13 008562 : ,ATI,27B 008563 : 15,XTA,IW/ 008564 : ,AAX,MSK/OWN.- OБЛACTЬ BЫBOДA 008565 : 13,VTM,RW 1 008566 : ,UZA,GIV OUT. = ДA 008567 : 8,V1M,ERROR 008568 : ,AAX,B39.- OБЛACTЬ 7/M 008569 : 8,VTM,3 008570 : ,U1A,GIV OUT.=ДA 008571 : RW 1:14,VJM,EXCH.= ЗA OБMEHOM 008572 : 15,WTC,RET/ 008573 : ,UJ, 008574 : C----- CПACEHИE И BOCCTAHOBЛEHИE И8 008575 : C ( BXOД OT '*WRBF64' ) 008576 : SAVE 8:,BSS, 008577 : ,ITA,8 008578 : ,ASN,64-15 008579 : 15,ATX,I1* 008580 : 8,VTM,.ПPИЗHAK BЫBOДA 008581 : ,ITA,13 008582 : 15,AOX,I1* 008583 : 15,ATX,I1* 008584 : 15,XTA,IW/ 008585 : 14,UTC, 008586 : 13,VJM, 008587 : :15,XTA,I1* 008588 : ,ATI,13 008589 : ,ASN,64+15 008590 : ,ATI,8 008591 : 13,UJ, 008592 : C 008593 : C===== ЗAПPOC PECYPCOB ПO OБЛACTИ BBOДA 008594 : C И OБЛACTИ ГPAФИЧECKOГO BЫBOДA И ЭKCПEPИMEHT.ДAHHЫX 008595 : C ДOП.ИHФOPMAЦИЯ = AДPEC KATAЛOГA 008596 : C 008597 : ДAЙ:,BSS, 008598 : ,AOX,C1777 008599 : ,AEX,C1777.HAЧAЛO KATAЛOГA 008600 : 15,ATX,IW/ 008601 : ,ITA,1 008602 : ,ASN,64-15 008603 : 15,ATX,I1* 008604 : 14,MTJ,1 008605 : ,ITA,6 008606 : 15,AOX,I1* 008607 : 15,ATX,I1* 008608 : 15,XTA,IW/ 008609 : ,ATI,6 008610 : 8,XTA,I/SEM 008611 : ,ASN,64+24 008612 : ,ATI,14.AДPEC CEMAФOPA 008613 : 14,XTA, 008614 : ,AEX,ДHЗ 008615 : ,AAX,C77 008616 : ,U1A,NOMONOP 008617 : C... ECЛИ K MOMEHTY ЗAПPOCA ЭЛ-TA 008618 : C KATAЛOГA ИЛИ ЗOHЫ 008619 : C YЖE ECTЬ MOHOПOЛИЯ HA KATAЛOГ 008620 : C И KATAЛOГ B TOM ЖE MAT.ЛИCTE, 008621 : C TO OБMEH C KATAЛOГOM HE ДEЛAEM 008622 : C И COXPAHЯEM MOHOПOЛИЮ. 008623 : : ,24, 008624 : 6,XTA,1777B 008625 : : ,24,3 008626 : 8,AEX,SIGN 008627 : ,U1A,NOMONOP 008628 : ,ITA,6 008629 : ,AOX,B48.ФЛAГ MOHOПOЛ 008630 : BEG LS:,BSS, 008631 : 15,ATX,IW/ 008632 : 1,J+M,6 008633 : C..... YCTAHOBKA ЦИKЛA ПOИCKA 008634 : : ,24, 008635 : 6,ARX,LAW 008636 : ,ATI,13.AДPEC ШKAЛЫ 008637 : 6,XTA,LAB 008638 : ,ATI,14.HOMEP БИTA 008639 : :,24,3 008640 : 6,VTM,-16 008641 : C..... ЦИKЛ ПOИCKA PECYPCA 008642 : IN 1:,BSS, 008643 : ,ITA,13 008644 : 1,AEX,C1740.ПEPEAДPECAЦИЯ 008645 : ,AAX,C1777 008646 : :,U1A,*+1 008647 : 13,UTM,-20B 008648 : ,XTA,B48/17 008649 : 14,ASN,64 008650 : ,AAX,B48/17 008651 : : ,24, 008652 : 13,AAX, 008653 : :,24,3 008654 : ,U1A,IN 2.= HAШЛИ 008655 : 14,VTM, 008656 : 13,UTM,1 008657 : 6,VLM,IN 1.= HA ЦИKЛ 008658 : C----- Y B Ы : PECYPCA HET 008659 : C 008660 : 15,ATX,SAV/.=0 008661 : RET AC:,BSS, 008662 : C..... BOCCTAHOBЛEHИЯ 008663 : 15,XTA,I1* 008664 : ,ATI,6 008665 : ,ASN,64+15 008666 : ,ATI,1 008667 : 13,VTM,P/RET 008668 : 15,XTA,SAV/ 008669 : ,UZA,UP.= HET PECYPCA 008670 : 15,XTA,IW/ 008671 : ,ARX, 008672 : ,UZA,P/RET 008673 : ,UJ,WRIT C.= ЗAПИCЬ KAT. 008674 : C----- HAШЛИ PECYPC 008675 : IN 2:,BSS, 008676 : ,ANX,C77777 008677 : ,ATI,14 008678 : :,24, 008679 : 13,ARX, 008680 : :,24,3 008681 : ,AAX,C777 008682 : ,AOX,B48.=PEЗYЛЬTAT 008683 : 15,ATX,SAV/ 008684 : 15,XTA,IW/ 008685 : ,ATI,6 008686 : C..... OTOБPAЗИM HAXOДKY B KATAЛOГ 008687 : 1,J+M,6 008688 : 14,XTA,B48 008689 : : ,24, 008690 : 13,AEX, 008691 : 13,ATX,.= PECYPC ЗAHЯT 008692 : 14,UTM,1 008693 : ,ITA,14 008694 : 6,ATX,LAB.=HOMEP БИTA 008695 : ,ITA,13 008696 : ,ASN,64-38 008697 : ,ASN,64+38 008698 : 6,ATX,LAW.=HOMEP CЛOBA 008699 : : ,24,3 008700 : ,UJ,RET AC 008701 : NO MONOP:,BSS, 008702 : 15,XTA,IW/ 008703 : 13,VJM,READ C 008704 : ,ITA,6 008705 : ,UJ,BEG LS 008706 : C----- OPГAHИЗAЦИЯ CYMMATOPHOГO ЭK70 008707 : EXCH:15,AOX,IW/ 008708 : 15,ATX,IW/ 008709 : 14,MTJ,32B 008710 : ,XTA,DISREG 008711 : ,WTC,ГYC 008712 : ,ATX,BUFS27 008713 : 15,XTA,IW/ 008714 : ,UJ,MACRO70S 008715 : C----- ИMEHA OБЛACTEЙ 008716 : FIL/OUT:,TEXT,8HD73OUT '3' 008717 : ,TEXT,8HD73INP '1' 008718 : ,TEXT,8HD73GRF '22' 008719 : FIL/MT :,TEXT,8HM '7' 008720 : ,TEXT,8HCATALO '10' 008721 : SIGN:,ISO,6HD78OUT 008722 : ,ISO,6HD78INP 008723 : ,ISO,6HD78OUT 008724 : C----- TEKCTЫ И KOHCTAHTЫ ДИAГHOCTИKИ 008725 : TT:,ISO,18HПOЛOH ФAЙЛ BЫBOДA'' 008726 : T/OVFL:,ISO,6HKAT. B 008727 : ,ISO,6HФAЙЛ B 008728 : ,BSS, 008729 : C----- KOHCTAHTЫ ДЛЯ KYC'A И ИC 008730 : C/MOD:,OCT,0777 7777 775 008731 : MSK/OWN:,LOG,4 0000 0077 0000 008732 : C/37:,LOG,37 0000 008733 : C----- MACKИ ПOЛEЙ 008734 : B48/17:,OCT,7777 7777 776 008735 : CH MSK:,OCT,0163 4077 77 008736 : B40/1:,LOG,17 7777 7777 7777 008737 : B23/15:,LOG,3774 0000 008738 : UPM 1:,LOG,1 00007 008739 : C1740:,LOG,1740 008740 : ,LOG,1760 008741 : C----- PAБOЧИE ЯЧEЙKИ 008742 : WS:,EQU,TT+1.1 ЯЧ. 008743 : C----- 008744 : ,END, 008745 : MACRO NEW:,NAME,.HOBЫE ЭKCTPAKOДЫ 008746 : C HAЧAЛO B ЯЧ.557: 008747 : C 14,VZM,MACRO57 008748 : C ,UJ ,MACRONEW 008749 : NRECMT:,SUBP, 008750 : ERR MACRO:,SUBP, 008751 : INF*57:,EQU,14.HOMEP ДИAГHOCTИKИ 008752 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42 008753 : ,CONT,BIT41,BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34 008754 : ,CONT,BIT33,BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26 008755 : ,CONT,BIT25,BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18 008756 : ,CONT,BIT17,BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10 008757 : ,CONT,BIT9,BIT8,BIT7,BIT6,BIT5,BIT4,BIT3,BIT2,BIT1 008758 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 008759 : SCEM:,EQU,83. 008760 : S/7:,EQU,131B 008761 : B24/1:,LC,1. 008762 : NEWTA:,SUBP, 008763 : *ИПД:,LC, 008764 : XLQTIM:,EQU,*ИПД+30B 008765 : LQUE:,WEQ,XLQTIM 008766 : QUETIM:LC,BLOCK,NTIMER,QT 008767 : SCALES:LC,BLOCK,(8),SCLTWJ. 008768 : FREESEM:LC,BLOCK,(1),MSELECT 008769 : C77357:,LC,1. 008770 : ABTIME:,LC,2. 008771 : CLANEWTA:,SUBP,. 008772 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 008773 : RETURN:,SUBP, 008774 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR,SAVS16 008775 : NR/64 :,SUBP, 008776 : NRES064 :,SUBP, 008777 : *WRBF64 :,SUBP, 008778 : PROC/OUT:,SUBP, 008779 : NRESCALL:,SUBP, 008780 : NR//SEAR:,SUBP, 008781 : NR OCCD :,SUBP, 008782 : CALCOMP*:,SUBP, 008783 : C2003:,LC,1 008784 : C7777:,LC,1 008785 : C77777:,LC,1 008786 : C77 :,LC,1 008787 : C ------------------------------------- 008788 : ,ATX,SAVAC 008789 : ,ITA,14 008790 : ,ATX,SAVI14 008791 : ,ASN,64+3 008792 : 14,UZA,ERR*57 008793 : 14,UTM,-7777B 008794 : 14,VZM,EC/608 008795 : 14,UTM,7777B-13B 008796 : 14,VZM,WAIT.Э57,13 008797 : ,ASN,64-3 008798 : ,ATX,SAVI14 008799 : ,ITA,27B 008800 : DIREG:,APX,C2003 008801 : ,ASN,64+45 008802 : ,AOX,SAVI14 008803 : ,ATI,14 008804 : ,ASN,64+3 008805 : ,AEX,C7777.ПPOБA 008806 : ,U1A,TAPE.HA -1 008807 : ,UTC,1 008808 : TAPE:,XTA,OCCUP 008809 : ,UJ,NRESCALL 008810 : OCCUP:,Z00,NR//SEAR 008811 : ,Z00,14 008812 : :,Z00,NR OCCD 008813 : ,Z00,14 008814 : ADRNREC:,Z00,NRECMT 008815 : ,Z00,14 008816 : C ----------- 008817 : ERR*57:,ENTRY, 008818 : ERR*57:14,VTM,INF*57 008819 : ,UJ,ERR MACRO 008820 : :,UJ,EC/608.1=CDC608 008821 : FIRM:4,IFSEQ,D,DD**FI 008822 : K*CIO:,SUBP, 008823 : /2:,XTA,SAVAC 008824 : ,UJ,K*CIO.2 008825 : FIRM:2,ELSE, 008826 : :,NTR,2 008827 : ,UJ,CALCOMP* 008828 : :14,VTM,=R1.0 - SAVAC 008829 : ,UJ,WAIT 008830 : EC/608:,XTA,ADRNREC.4=EC5012 008831 : ,UJ,NRESCALL 008832 : :,XTA,SAVAC. 008833 : ,UJ,EMUL. 008834 : :,UJ,TAKTIM 008835 : ,BSS, 008836 : C----- BЫXOД HA ПPOЦEДYPЫ PAБOTЫ 008837 : C C OБЛACTЬЮ BЫBOДA 008838 : ,ITA,7.CПACEHИE 008839 : ,ASN,64-15.PEГИCTPOB 008840 : ,ATX,SAVAR 008841 : ,ITA,27B 008842 : ,AAX,C77357 008843 : ,AOX,SAVAR 008844 : ,ASN,64-15 008845 : ,WTC,ГYC 008846 : 14,VTM,S/7-1 008847 : 14,ATX,1.... 008848 : ,XTA,INFC64.BЫЗOB 008849 : ,UJ,NRESCALL.HEPEЗИДEHTA 008850 : INFC64:,Z00,NR/64 008851 : ,Z00,*+1 008852 : :,ATI,7.= БAЗИPOBAHИE 008853 : 7,UTM,*WRBF64-NRES064 008854 : ,ITA,15 008855 : 7,UJ,PROC/OUT-*WRBF64 008856 : C----- 008857 : TAKTIM:,WTC,ГYC 008858 : ,XTA,-1 008859 : ,MTJ,27B 008860 : 2,IJ, 008861 : C***** YCTAHOBKA/CHЯTИE ИHTEPПPET. ЭK 008862 : EMUL:,AOX,B24/1. 008863 : ,AEX,B24/1. 008864 : ,WTC,ГYC. 008865 : ,ATX,SCEM. 008866 : ,ITA,27B. 008867 : ,AAX,C77357. 008868 : ,ATI,27B. 008869 : 2,IJ,. 008870 : C***** 008871 : C 008872 : C ЗAKPЫTИE ЗAДAЧИ HA BPEMЯ OKOЛO CEKYHДЫ 008873 : C ИЛИ HA ЗAДAHHOE BPEMЯ (B CEK.) 008874 : C ПPИ PAБOTE OT ,Э057,13 008875 : C 008876 : WAIT:,BSS, 008877 : 13,MTJ,16 008878 : ,CALL,SAVEMOD 008879 : ,ITA,32B 008880 : ,ATI,33B 008881 : ,ITA,27B 008882 : ,AAX,C77357 008883 : ,ATI,27B 008884 : 13,VTM,NEWTA 008885 : ,NTR,2 008886 : 14,XTA,SAVAC.BPEMЯ OTH. 008887 : ,A+X,ABTIME.BPEMЯ AБC. 008888 : ,ASN,64+21 008889 : ,ASN,64-6 008890 : ,AOX,Д H З 008891 : ,ASN,64-15 008892 : ,AOX,P/NEWTA 008893 : C 008894 : C 008895 : C 008896 : C... BEДEHИE OЧEPEДИ TAЙMEPOB : 008897 : C SET - ПOCTAHOBKA B OЧEPEДЬ 008898 : C DEL - ИЗ'ЯTИE ИЗ OЧEPEДИ 008899 : C CHK - ПPOBEPKA ИCЧEPПAHИЯ TAЙMEPA 008900 : C 008901 : C... ФOPMAT TAЙMEPA : 008902 : C 48-22 : BPEMЯ CPAБATЫBAHИЯ (CEK.) 008903 : C 21-16 : Д H З ЗAДAЧИ ИЛИ 0 008904 : C 15-1 : AДPEC ПPOЦEДYPЫ OTPAБOTKИ 008905 : C 008906 : SET TIMER:,ENTRY, 008907 : :,24,2003B 008908 : ,ATX,TIMER 008909 : ,NTR,2 008910 : ,WTC,NTIMER 008911 : :14,VTM,-LQUE 008912 : 14,VIM,*+2 008913 : :,33,.OЧEPEДЬ 008914 : 13,UJ,.ПOЛHA 008915 : :,XTA,NTIMER 008916 : ,ATI,14 008917 : ,ARX,BIT1 008918 : ,ATX,NTIMER 008919 : C 008920 : C BCTABKA HOBOГO TAЙMEPA 008921 : C B OЧEPEДЬ, YПOPЯДOЧEHHYЮ 008922 : C ПO BOЗPACTAHИЮ BPEMEH 008923 : C 008924 : SET1:14,XTA,QT-1 008925 : 14,ATX,QT 008926 : ,A-X,TIMER 008927 : ,U1A,SET2 008928 : 14,UTM,-1 008929 : 14,VIM,SET1 008930 : C--- 008931 : SET2:,XTA,TIMER 008932 : 14,ATX,QT 008933 : ,ASN,64+15 008934 : ,AAX,C77 008935 : ,ATI,14.ДHЗ 008936 : ,XTA,RDSCAL 008937 : 14,AOX,BITS 008938 : 14,AEX,BITS 008939 : ,ATX,RDSCAL 008940 : ,XTA,SCLTWJ 008941 : 14,AOX,BITS 008942 : ,UJ,TO SCAL 008943 : C 008944 : C... PAБOTA OT ПPEPЫBAHИЙ 008945 : C 008946 : CHK TIMER:,ENTRY, 008947 : ,NTR,2.БЛИЖAЙШИЙ 008948 : ,XTA,ABTIME.TAЙMEP 008949 : ,A-X,QT.CДOX 008950 : 13,U1A,. - HET 008951 : ,XTA,QT 008952 : ,ATI,13.ПOCЛE "DEL" 008953 : C 008954 : C... ИCKЛЮЧEHИE ИЗ OЧEPEДИ TAЙMEPOB 008955 : C 008956 : DEL TIMER:,ENTRY, 008957 : :,24,2003B 008958 : ,ATX,TIMER 008959 : 14,VTM,QT 008960 : ,AAX,C77777 008961 : :,UZA,*+1.TAЙMEP ЗAДAH 008962 : ,XTA,C77777.ПOЛHOCTЬЮ 008963 : :,AOX,=77 00000.TOЛЬKO ДHЗ 008964 : ,ATX,MASK 008965 : C--- 008966 : DEL1:14,XTA, 008967 : 14,UTM,1 008968 : ,AEX,MAXTIMER 008969 : 13,UZA,.HE HAЙДEH 008970 : ,AEX,TIMER 008971 : ,AAX,MASK 008972 : ,U1A,DEL1 008973 : ,XTA,NTIMER 008974 : ,ARX,C77777 008975 : ,ATX,NTIMER 008976 : C--- 008977 : DEL2:14,XTA,.ПOДBИЖKA 008978 : 14,ATX,-1.OЧEPEДИ 008979 : 14,UTM,1 008980 : ,AEX,MAXTIMER 008981 : ,U1A,DEL2 008982 : ,XTA,TIMER 008983 : ,ASN,64+15 008984 : ,AAX,C77 008985 : 13,UZA, 008986 : ,ATX,MSELECT 008987 : ,ATI,14.Д H З 008988 : ,XTA,RDSCAL 008989 : 14,AOX,BITS 008990 : ,ATX,RDSCAL 008991 : ,XTA,SCLTWJ 008992 : 14,AOX,BITS 008993 : 14,AEX,BITS 008994 : TO SCAL:,ATX,SCLTWJ 008995 : 13,UJ, 008996 : C--- 008997 : P/NEWTA:,Z00, 008998 : ,Z00,NEWTA 008999 : MAXTIMER:,OCT,775 009000 : MASK:,BSS,1.PAБ.ЯЧ. 009001 : TIMER:,BSS,1.PAБ.ЯЧ. 009002 : ,END, 009003 : K*CIO:,NAME,.30 OKT 79 ЛBБ 009004 : C 009005 : C ЛOПATKO B.Б., ФИAЭ 009006 : C 009007 : C ПPOГPAMMA ЭKCTPAKOДA CBЯЗИ C 009008 : C ДPYГИMИ ЭBM ЧEPEЗ KOMMYTATOP 009009 : C ЭBM БЭCM-6 - ЭBM MOДYЛИ 009010 : C И ПЛATY ПEPEДAЧИ ДAHHЫX B M-6000 009011 : C /KOMMYTATOP PAЗPAБOTAH B OBT ФИAЭ 009012 : C OTЧET 10/HИP-566 OT 13.10.78Г. 009013 : C ABTOPЫ:C.T.OKYHEB,E.П.CHEГИPEB И ДP./ 009014 : C 009015 : C 009016 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 009017 : ,CONT,SAVI15,SAVI14,SAVI13 009018 : ,CONT,SAVMIR 009019 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 009020 : ,CONT,COMMIR,COMPIR 009021 : C 009022 : ABTIME:,LC,1 009023 : DISREG:,LC,1 009024 : FULWOR:,LC,1 009025 : C77777:,LC,1 009026 : C377:,LC,1 009027 : C7:,LC,1 009028 : C5:,LC,1 009029 : C3:,LC,1 009030 : *677:B,BLOCK,BITS 009031 : ,CONT,B48,B47,B46,B45 009032 : ,CONT,B44,B43,B42,B41 009033 : ,CONT,B40,B39,B38,B37 009034 : ,CONT,B36,B35,B34,B33 009035 : ,CONT,B32,B31,B30,B29 009036 : ,CONT,B28,B27,B26,B25 009037 : ,CONT,B24,B23,B22,B21 009038 : ,CONT,B20,B19,B18,B17 009039 : ,CONT,B16,B15,B14,B13 009040 : ,CONT,B12,B11,B10,B9 009041 : ,CONT,B8,B7,B6,B5 009042 : ,CONT,B4,B3,B2,B1 009043 : CONTIME:LC,BLOCK,(5),TCALC 009044 : YCTP:LC,BLOCK,(5),XГYC 009045 : K*N/SEND:LC,BLOCK,N/SEND 009046 : SETMIR:,SUBP, 009047 : PERMIR:,SUBP, 009048 : RETURN:,SUBP, 009049 : TIME10:,SUBP, 009050 : CL A NEW TA:,SUBP, 009051 : NEW TA:,SUBP, 009052 : C 009053 : C 009054 : C ПPOГPAMMA OБMEHA БAЙTOM 009055 : C C YKAЗAHHЫM MOДYЛEM (ЭBM) 009056 : C 009057 : C 009058 : C BЫЗOB ЭKCTPAKOДA: 009059 : C ,*57,2 009060 : C 009061 : C CПEЦИФИKAЦИИ ЗAДAЮTCЯ HA CYMMATOPE 009062 : C ПEPEД BЫЗOBOM Э/KOДA. 009063 : C ПOCЛE ИCПOЛHEHИЯ PEЗYЛЬTAT BOЗBPAЩAETCЯ 009064 : C TAKЖE HA CYMMATOPE 009065 : C 009066 : C 009067 : C PAЗPЯДЫ CYMMATOPA: 009068 : C 009069 : C 009070 : C 009071 : C 48-47PP=11 - ЗAДAЧA OCBOБOЖДAET ЛИHИЮ 009072 : C 009073 : C 009074 : C 009075 : C 009076 : C 009077 : C 48-47PP=10 - ЗAДAЧA ЗAXBATЫBAET ЛИHИЮ 009078 : C 8-1PP=0 - БYДET CBЯЗЬ C M-6000 009079 : C ЧEPEЗ ПЛATY 009080 : C 8-1PP HE 0 - CBЯЗЬ ЧEPEЗ KOMMYTATOP 009081 : C ЗAДAETCЯ ПOЗИЦИOHHЫЙ AДPEC MOДYЛЯ: 009082 : C 1P=1 - 1-Й MOДYЛЬ 009083 : C 2P=1 - 2-Й MOДYЛЬ 009084 : C ..... 009085 : C 8P=1 - 8-Й MOДYЛЬ. 009086 : C 009087 : C PEЗYЛЬTAT: 009088 : C ACCUMULATOR=0 - ЛИHИЯ ЗAXBAЧEHA 009089 : C 48P=1 - ЛИHИЯ ЗAHЯTA ДPYГOЙ ЗAДAЧEЙ 009090 : C 009091 : C 009092 : C 009093 : C 009094 : C 48-47PP=01 - ЗAПИCЬ B MOДYЛЬ 009095 : C 45P=1 - KOHTPOЛЬ ЗAПИCИ ПO 15 ПPП 009096 : C ( ЖДY CИГHAЛ *KOД ПPИHЯT* OT MOДYЛЯ ) 009097 : C 39-25PP - BPEMЯ OЖИДAHИЯ ПPИ KOHTPOЛE 009098 : C ЗAДAHHOE B 1/19 CEK 009099 : C 8-1PP - KOД ЗAПИCИ 009100 : C 009101 : C PEЗYЛЬTAT: 009102 : C ACCUMULATOR=0 - KOД ЗAПИCAH 009103 : C 48P=1 - ЛИHИЯ ЧYЖAЯ: ЗAДAЧA HE 009104 : C ЗAXBATИЛA ЛИHИЮ ЛИБO ЛИHИЯ 009105 : C ЗAHЯTA ДPYГOЙ ЗAДAЧEЙ 009106 : C 47P=1 - ИCTEKЛO BPEMЯ KOHTPOЛЯ, 009107 : C ECЛИ БЫЛ ЗAДAH KOHTPOЛЬ ЗAПИCИ 009108 : C 009109 : C 009110 : C 009111 : C 009112 : C 48-47PP=00 - ЧTEHИE ИЗ MOДYЛЯ 009113 : C 45P=1 - KOHTPOЛЬ ЧTEHИЯ 009114 : C ( BЫДATЬ CИГHAЛ *KOД ПPИHЯT* B MOДYЛЬ ) 009115 : C 39-25PP - BPEMЯ OЖИДAHИЯ ПPИ ЧTEHИИ, 009116 : C ЗAДAHHOE B 1/19 CEK 009117 : C 009118 : C PEЗYЛЬTAT: 009119 : C ACCUMULATOR: 009120 : C 48P=1 - ЛИHИЯ ЧYЖAЯ: ЗAДAЧA HE 009121 : C ЗAXBATИЛA ЛИHИЮ ЛИБO ЛИHИЯ 009122 : C ЗAHЯTA ДPYГOЙ ЗAДAЧEЙ 009123 : C 47P=1 - ИCTEKЛO BPEMЯ OЖИДAHИЯ ЧTEHИЯ 009124 : C 12-10PP - AДPEC MOДYЛЯ ЧTEHИЯ, 009125 : C ЧИCЛO OT 0 ПO 7 009126 : C 9P - ДOПOЛHEHИE ЧИCЛA "1" B KOДE 009127 : C ДO ЧETHOГO 009128 : C 8-1PP - KOД ЧTEHИЯ 009129 : C 009130 : C 009131 : C BXOД ИЗ NEW MACRO: 009132 : C YПPЯTAHЫ AC И I14. 009133 : C AC HA CYMMATOPE: 009134 : ,ASN,64+46. 009135 : C KOД OПEPAЦИИ = 00..11 009136 : ,ATI,14 009137 : C ЗAXBAЧEH ЛИ З/KOД ( ЛИHИЯ ) 009138 : ,XTA,XГYC 009139 : ,AEX,ГYC 009140 : ,ASN,64+15.KAЧKA ИПЗ 009141 : 14,UJ,SW 009142 : SW:,BSS,.OПEPAЦИИ: 009143 : C 00 - ЧTEHИE ИЗ MOДYЛЯ 009144 : ,U1A,ЗAHЯT 009145 : ,UJ,IN REC 009146 : C 01 - ЗAПИCЬ B MOДYЛЬ 009147 : ,U1A,ЗAHЯT 009148 : ,UJ,IN SEND 009149 : C 10 - ЗAXBAT ЛИHИИ 009150 : ,UZA,SET N/.CMEHA MOДYЛЯ 009151 : ,UJ,CH MNPL 009152 : C 11 - OCBOБOЖДEHИE ЛИHИИ 009153 : ,U1A,IN JOB1 009154 : ,ATX,XГYC 009155 : IN JOB1:,BSS, 009156 : C BOЗBPAT B ЗAДAЧY - ПPЯMO 009157 : C ЛИБO ПOCЛE NEW TASK 009158 : ,MTJ,27B 009159 : 2,IJ, 009160 : C 009161 : C 009162 : CH MNPL:,BSS, 009163 : ,XTA,XГYC 009164 : ,UZA,MNPL 009165 : C ЛИHИЯ ЗAHЯTA,BOЗBPAT B ЗAДAЧY 009166 : ЗAHЯT:,BSS, 009167 : ,XTA,B48 009168 : ,UJ,IN JOB1 009169 : C 009170 : MNPL:,BSS, 009171 : ,XTA,ГYC 009172 : ,ATX,XГYC 009173 : C 009174 : SET N/:,BSS, 009175 : C ПPOBEPKA YCTPOЙCTBA:KOMMYTATOP ИЛИ ПЛATA 009176 : ,XTA,SAVAC 009177 : ,AAX,C377 009178 : ,ATX,N/SEND.AДPEC 8-1PP 009179 : ,UZA,ГAШ41.ДЛЯ M-6000 009180 : ,AOX,B9.ПOЗИЦ. 009181 : ,ATX,N/SEND 009182 : C ЗAПYCK KOMMYTATOPA 009183 : C C ГAШEHИEM ПO BCEM MOДYЛЯM 009184 : 14,VTM,-8 009185 : ,XTA,C5 009186 : ПYCK:,EXT,11B 009187 : 14,VLM,ПYCK 009188 : C ГAШEHИE 41P ГPП 009189 : ГAШ41:,XTA,B41 009190 : ,AEX,FULWOR 009191 : ,ATI, 009192 : ,MOD,37B 009193 : ,XTA,.XOPOШO 009194 : ,UJ,IN JOB1 009195 : C 009196 : C 009197 : SAVI:,BSS, 009198 : C ПPЯЧEM SR,I15,I13 009199 : ,RTE,177B 009200 : ,ATX,SAVSR 009201 : ,ITA,15 009202 : ,ATX,SAVI15 009203 : ,ITA,13 009204 : ,ATX,SAVI13 009205 : C ПPЯЧEM KOHTPOЛЬ OБMEHA 009206 : ,XTA,SAVAC 009207 : ,AAX,B45 009208 : ,ATX,CTRL 009209 : 14,UJ, 009210 : C 009211 : C ЗAПИCЬ B MOДYЛЬ 009212 : IN SEND:14,VJM,SAVI 009213 : ,XTA,N/SEND 009214 : ,ATI,14.=N/SEND 009215 : ,UZA,ЗAПKOД.M-6000 009216 : ,EXT,171B.AДPECAT 009217 : ЗAПKOД:,BSS, 009218 : ,XTA,SAVAC 009219 : ,AAX,C377 009220 : ,EXT,171B.KOД 009221 : C ЗAKAЗAH ЛИ KOHTPOЛЬ ЗAПИCИ 009222 : ,XTA,CTRL 009223 : ,UZA,IN JOB1.-HET 009224 : C YCTAHOBKA 15P ПPM 009225 : ,XTA,B15 009226 : ,AOX,COMPIR 009227 : ,ATX,COMPIR 009228 : ,EXT,34B 009229 : 14,VZM,GRM.N/SEND=0 009230 : C PAЗPEШEHИE OTPAБOTKИ B KOMMYTATOP 009231 : ,XTA,B9 009232 : ,EXT,171B 009233 : GRM:,BSS, 009234 : C OTKPOEM 37P ГPM 009235 : ,XTA,B37 009236 : C ЗABEДEM БYДИЛЬHИK И ЗAKPOEM ЗAДAЧY 009237 : ,UJ,TIME ON 009238 : C 009239 : C BXOД ПO 37P ГPП И 15P ПPП 009240 : C 009241 : K*SEND:,ENTRY, 009242 : C AHAЛИЗ:OTKOГO OTPAБOTKA 009243 : ,UZA,ACCUM.M-6000 009244 : C ЖДY OTPAБOTKИ OT MOДYЛЯ N 009245 : ,EXT,171B 009246 : ,EXT,0.CБPOC PABY 009247 : C ЧTEHИE ПPП 009248 : ,EXT,4030B.24-13PP 009249 : ,AAX,B15 009250 : ,UZA,RETURN 009251 : ,XTA,C11 009252 : ,EXT,11B.ГAШ.OTP. 009253 : ,XTA, 009254 : ,UJ,ACCUM 009255 : C 009256 : C 009257 : C 009258 : IN REC:,BSS, 009259 : 14,VJM,SAVI 009260 : C 009261 : C ЧTEHИE ИЗ MOДYЛЯ 009262 : C ПPOБA ПPEP 41P ГPП 009263 : ,MOD,237B 009264 : ,AAX,B41 009265 : ,U1A,QUIC 009266 : C OTKPOEM 41P ГPM 009267 : ,XTA,B41 009268 : TIME ON:,BSS, 009269 : 15,VTM,TIMER 009270 : ,CALL,SETMIR.=PERMIR+4 009271 : C ЗABOДИM БYДИЛЬHИK 009272 : ,XTA,SAVAC.BPEMЯ 009273 : ,ASN,64+24.B 39-25PP 009274 : ,AAX,C77777.1=1/19CEK 009275 : ,ARX,ABTIME+1 009276 : ,ATX,WAIT. 009277 : ,ITA,15.=A*TIMER 009278 : ,ATX,TCALC 009279 : C ЗAKPOEM ЗAДAЧY: 009280 : C ФИKCИPYEM ИПЗ B MOЗY 009281 : ,XTA,DISREG 009282 : ,ATI,27B 009283 : C ЗAПOMHИM MECTO ИПЗ 009284 : ,XTA,ГYC 009285 : ,ATX,XГYC 009286 : C ЗAKAЖEM BXOД ИЗ NEW TASK 009287 : 13,VTM,IN JOB1 009288 : 13,MTJ,33B 009289 : ,UJ,CL A NEW TA 009290 : C ЖДEM,ЖДEM,...,A БYДИЛЬHИK TИKAET 009291 : C 009292 : TIMER:,BSS, 009293 : ,NTR,3 009294 : ,XTA,ABTIME+1 009295 : ,A-X,WAIT 009296 : ,U1A,TIME10 009297 : C ЗBOHOK БYДИЛЬHИKA 009298 : ,XTA,B47 009299 : ,UJ,ACCUM 009300 : C 009301 : QUIC:,BSS, 009302 : C ГACИM 41P ГPП 009303 : ,AEX,FULWOR.ACC=B41 009304 : 14,VTM,0.ФЛAГ QUIC 009305 : ,MOD,37B 009306 : ,EXT,4015B.ЧT.KOДA 009307 : C 009308 : C BXOД ПO 41P ГPП ИЗ EXTINTER'A 009309 : C BAЖHO, ЧTO I14=8 009310 : C 009311 : K*RECEIV:,ENTRY, 009312 : C YПPЯT CЧИT KOДA 009313 : ,ATX,WAIT 009314 : C ЗAДAH ЛИ KOHTPOЛЬ ПPИEMA 009315 : ,XTA,CTRL 009316 : ,UZA,HEHAДO 009317 : C CИГHAЛ *KOД ПPИHЯT* B MOДYЛЬ 009318 : ,XTA,N/SEND 009319 : ,UZA,RESM6000 009320 : ,XTA,B2 009321 : RESM6000:,AOX,B1.1,3 009322 : ,ATI, 009323 : ,EXT,11B 009324 : ,ATI, 009325 : C CЮДA - ПYCK CA (ДЛЯ MYЛЬTИПЛEKCOPA) 009326 : HEHAДO:,BSS, 009327 : C KYДA ДAЛЬШE 009328 : ,XTA,WAIT 009329 : 14,VZM,IN JOB1 009330 : ACCUM:,BSS, 009331 : ,WTC,XГYC 009332 : ,ATX,.ACCUM 009333 : C OTKPOEM ЗAДAЧY 009334 : C ГACИM 15P ПPM (И 37P ГPM) 009335 : ,XTA,B15 009336 : ,CALL,CLOPIR 009337 : C ГACИM 41P ГPM 009338 : ,XTA,B41 009339 : ,CALL,CLOMIR 009340 : ,XTA,XГYC 009341 : ,ASN,64+42 009342 : ,ATI,15 009343 : 15,XTA,BITS 009344 : ,AOX,RDSCAL 009345 : ,ATX,RDSCAL 009346 : ,XTA, 009347 : ,ATX,TCALC 009348 : ,UJ,NEW TA 009349 : C BOЗBPAT ПOCЛE NEW TASK ЧEPEЗ 009350 : C IN JOB1 009351 : C 009352 : C11:,LOG,11 009353 : CTRL:,BSS,1 009354 : WAIT:,BSS,1 009355 : ,END, 009356 : MULTITYP:,NAME,. 009357 : C 009358 : '15.02.73. , BEPETEHOB ' 009359 : C 009360 : C--------- MOHИTOP CИCTEMЫ 'MYЛЬTИTAЙП' 009361 : C 009362 : 'PEДAKЦИЯ OT 30.05.73' 009363 : 'PEДAKЦИЯ OT 24.06.78' 009364 : C-------- 009365 : *ИПД:LC,BLOCK, 009366 : ,CONT,XNF,XNFM,(2),XNW 009367 : ,CONT,(1),XNCM,(2),Ш/FULL(2) 009368 : ,CONT,Ш/ПYCK(2),Ш/CЛY(29) 009369 : ,CONT,OUTJOBSC,(7),FLERBUZ 009370 : ,CONT,EXTSC(2) 009371 : ,CONT,ПAPTИЗAH,БЛOKAЦПY 009372 : ,CONT,MOЖHOKAЧ,ШKП 009373 : ,CONT,SCDEBUG 009374 : ,CONT,(5) 009375 : ,CONT,SCENDJO 009376 : LISTFLAG:,EQU,*ИПД+35B 009377 : C/BUF :,EQU,*ИПД+37B 009378 : C-------- 009379 : NFM :,WEQ,XNFM 009380 : NЖДY :,WEQ,XNW 009381 : NLMAT:,EQU,NЖДY-1 009382 : C-------- 009383 : NSHI:,WEQ,XNCM 009384 : NJ :,EQU,NSHI-1 009385 : C-------- 009386 : BITS:,EQU,677B 009387 : BLMAT:,EQU,BITS+NLMAT 009388 : C-------- 009389 : *ИПK:LC,BLOCK,INFBA 009390 : INFEX:,EQU,*ИПK+NSHI 009391 : C-------- 009392 : SCALES:LC,BLOCK,(4),SCALCLTA 009393 : ,CONT,(4),SCSTOP 009394 : ,CONT,SC/CLJ 009395 : C-------- 009396 : C 009397 : C***** ИCПOЛЬЗYEMAЯ B ИПЗ ПAMЯTЬ 009398 : C 009399 : CPTIME:,EQU,-1 009400 : S33:,EQU,3 009401 : S32:,EQU,4 009402 : S27:,EQU,5 009403 : I14:,EQU,10B 009404 : S34:,EQU,26B 009405 : S35:,EQU,27B 009406 : TMATH:,EQU,30B 009407 : COPYS32:,EQU,46B 009408 : COPYI14:,EQU,47B 009409 : REGSCAL:,EQU,100B 009410 : COPYS33:,EQU,106B 009411 : BISTIME:,EQU,110B 009412 : LIMTIME:,EQU,111B 009413 : PULT:,EQU,113B 009414 : PASS/J:,EQU,114B 009415 : AUS:,EQU,117B.HOMEP PASS'A 009416 : NAM/J:,EQU,120B.3 CЛOBA 009417 : ИP/34:,EQU,563B 009418 : PEГ34:,EQU,ИP/34 009419 : READ :,EQU,ИP/34 009420 : ФREAD:,EQU,ИP/34 009421 : WRIT :,EQU,ИP/34 009422 : SCJOTЛ:,EQU,564B 009423 : ИP/35:,EQU,ИP/34 009424 : *635:B,BLOCK,D/SW 009425 : ,CONT,R/R,W/W,O/A/ 009426 : ,CONT,IDENTI/(2),ISUB/(2) 009427 : *632:B,BLOCK,П YПP(14) 009428 : *655:B,BLOCK,NAMBUFER(5) 009429 : C 009430 : C***** TИПЫ PAБOT OTЛAДЧИKA 009431 : C 009432 : *1:,BLOCK, 009433 : 1,CONT,BЫCBSUMR 009434 : 2,CONT,BЫCBIR 009435 : 3,CONT,BЫCBOCT 009436 : 4,CONT,BЫCBФИЗ 009437 : 5,CONT,WRIWOR 009438 : 6,CONT,(2) 009439 : 8,CONT,CИMOCA 009440 : 9,CONT,CИMOЗA 009441 : 10,CONT,CИMOЧT 009442 : C 009443 : C***** CTPYKTYPЫ ИHФOPMAЦИOHHЫX ПOЛEЙ 009444 : C 009445 : C..... - 'BЫ/BB' (CЛOBO-KAHAЛ) 009446 : C 009447 : ' 48 - ЗAДAH OПEPAHД BЫBOДA (ЛИCT,RPU) 009448 : ' 47-39 OTH. N ЗOHЫ BЫBOДA 009449 : ' 38 - ЗAДAH 'BBOД'/'SEND' 009450 : ' 37-29 HAЧ.ЗOHA ДЛЯ BBOД/SEND 009451 : ' 28-20 OTH. N ЗOHЫ-OГPAHИЧИTEЛЯ 009452 : ' 19-01 PEЗEPB 009453 : C 009454 : C..... INFEX (CЛOBO-ШИФP) 009455 : C OЧEPEДЬ (CЛOBO-ЭЛEMEHT) 009456 : C 009457 : ' 48-34 ФИЗ.YKAЗATEЛЬ ЗAП.ЗAДAЧИ 009458 : ' 33-22 PEЗEPB 009459 : ' 21 - OTЛAДKA ЗAПPEЩEHA 009460 : ' 20 - ИHKOГHИTO 009461 : ' 19 - AYПY ==> TEPMИHAЛ 009462 : ' 18 - БЛOK. AЦПY ПPИ B19=1 009463 : ' 17-15 ЗHAЧEHИЯ 13-11 PP.INFEX 009464 : ' ПOCЛE ЗAПYCKA ИЗ ПAKETA 009465 : ' 14 - БYФEP HA MБ ИЛИ 7/M 009466 : ' 13-12 TИП ЗAПYCKA ЗAДAЧИ 009467 : ' = 0 - ЗAПИCЬ B ПAKET 009468 : ' = 1 - 'TEP' , 'OTЛ' 009469 : ' = 2 - 'CЛY' 009470 : ' = 3 - 'CЛA' 009471 : C 11 - ЗAПYCK ПO 'OTЛ' (OCTAHOB - 100B) 009472 : C 10-01 HOMEP ПOЛЬЗOBATEЛЯ ПO PASS-ФИO 009473 : C 009474 : C..... ЧИCЛO KAHAЛOB И EГO ПPOИЗBOДHЫE 009475 : C 009476 : NC:,EQU,10.ЧИCЛO KAHAЛOB 009477 : NCM1:,EQU,NC-1 009478 : NCM3:,EQU,NC-3 009479 : NC*2:,P*P,(NC)2 009480 : NC*3:,EQU,NC*2+NC 009481 : NC*4:,P*P,(NC)4 009482 : NC*4P1:,EQU,NC*4+1. 009483 : C 009484 : NЛ ИПЗ:,EQU,30B 009485 : NЛИПЗ/:,EQU,=:0000 30 009486 : AИПЗ1:,P*P,(NЛИПЗ)1024 009487 : AИПЗ :,EQU,AИПЗ1+3 009488 : L WLS:,EQU,16. 009489 : C****** 009490 : CLOSE*MT:,SUBP, 009491 : *TLSIZE:LC,BLOCK,(3),XNSS 009492 : NSS:,WEQ,XNSS 009493 : *TLSYS:LC,BLOCK,(1),STATMT,EDITOR 009494 : INITMT:,EQU,STATMT+NSS 009495 : REFMT:,EQU,INITMT+NSS 009496 : XNT:,EQU,-4 009497 : *TLBUFI:LC,BLOCK,CIN 009498 : EDIT/INF:,EQU,= 7770 0000 7770 0067 009499 : NPAБЛИCT:,LC,1 009500 : *SCAL71:LC,BLOCK,SC71,REDY71,SCTER 009501 : ,CONT,SCAL67,SCШAГ,SCB71 009502 : *TASK71:LC,BLOCK,(8),CHAN/J(8) 009503 : C77777:,LC,1 009504 : BIT13D:,EQU,743B 009505 : BIT12D:,EQU,744B 009506 : BIT47:,EQU,701B 009507 : BIT1:,EQU,757B 009508 : B48/31:,LC,1 009509 : BIT33D:,EQU,717B 009510 : C****** 009511 : OUTJOB:,SUBP,. 009512 : OUT CW:,LC,2. 009513 : DISPBASE:,LC,4 009514 : CL TASK:,SUBP, 009515 : SELECT:,SUBP, 009516 : VALERINA:,SUBP,. 009517 : *PL/MT:,LC,1 009518 : B48:,EQU,=:4. 009519 : B43:,EQU,=:01.LF,ПC 009520 : B24:,EQU,=4000 0000. 009521 : OTBЯЗKA:,EQU,=:0000 2. 009522 : *1:,BLOCK,B,C,PP,R,NT,W,N,CA,W1,W2 009523 : ,CONT,AI,M,T 009524 : AI:I,BLOCK,S,AS. 009525 : C 009526 : C...... PAБOЧИЙ ЛИCT MYЛЬTИTAЙПA 009527 : C 009528 : PAБЛИCT:,EQU,0. 009529 : BEG Z:,EQU,72B 009530 : SC BL NL:,EQU,73B 009531 : SC VID:,EQU,75B 009532 : SC SEND:,EQU,76B 009533 : SC LOC:,EQU,77B. 009534 : ЭTOБPAЗ:,EQU,PAБЛИCT+74.112B 009535 : MACKAOБ:,EQU,ЭTOБPAЗ+NC. 009536 : RETSCAN:,EQU,MACKAOБ+NC. 009537 : NUSTR:,EQU,RETSCAN. 009538 : C 48-37 NUSTR(4 ЦИФPЫ), 15-1 RETSCAN 009539 : BЫ/BB:,EQU,NUSTR+NC. 009540 : CONT1:,EQU,BЫ/BB+NC. 009541 : CONT1:I,BLOCK, 009542 : ,CONT,CARD1(44) 009543 : ,CONT,WLS(17) 009544 : ,CONT,STRINGS(240) 009545 : ,CONT,SCJOB(0),БЫЛKOД 009546 : ,CONT,SCЖДY 009547 : ,CONT,LISC 009548 : ,CONT,LISC1 009549 : ,CONT,LISC2 009550 : ,CONT,TAKESC 009551 : ,CONT,PASS 009552 : ,CONT,T IN(0),WS 009553 : ,CONT,SYM 009554 : ,CONT,DD(0),TW(0),WS1 009555 : ,CONT,DN(0),RW(0),WS2 009556 : ,CONT,BIT 009557 : ,CONT,XAP 009558 : ,CONT,(2) 009559 : ,CONT,BCH 009560 : ,CONT,MTSCAL(6) 009561 : ,CONT,SCMT,REMT,SCWAIT 009562 : ,CONT,JOB. 009563 : ESCAL:,EQU,REMT 009564 : RET ADR:,EQU,JOB+NC. 009565 : NUMB US:,EQU,RET ADR+NC. 009566 : C PACПPEДEЛEHИE PAЗPЯДOB NUMB US(C): 009567 : C 48-43 - ДHЗ TEЛE-ЗAДAЧИ 009568 : C 24 - PAЗPEШEH BBOД B БYФEP 009569 : C 20 - ПPEPBAH BЫBOД ( ДЛЯ *71 ) 009570 : C 19-16 - N TEЛE-KAHAЛA ЗAДAЧИ C *71 009571 : C 10-01 - N PASS KЛИEHTA ПO PASS-ФИO 009572 : TEK AДP:,EQU,NUMB US+NC. 009573 : MБ ИHФ:,EQU,TEK AДP+NC. 009574 : C PACПPEДEЛEHИE PAЗPЯДOB MБ ИHФ(C): 009575 : C - ДЛЯ БYФEPOB ( ЛИЧHOГO ИЛИ 7/M ) 009576 : C 48-46 TИП БYФEPA 48=1 - 7/M 009577 : C 45-40 MAT.HOMEP MЛ БYФEPA 009578 : C 39-31 OTH. N HAЧ.ЗOHЫ ДЛЯ BBOД/SEND/ЛИCT 009579 : C 09-01 OTH. N ПOCЛ.ЗOHЫ (OГPAHИЧИTEЛЬ) 009580 : C 009581 : C - ДЛЯ CИCTEMHOГO BЫBOДA: 009582 : C 27-10 NBЫBOДA,NBBOДA,NЛAБ 009583 : C 09-01 N TEK.ЗOHЫ B CПИCKE ЛИБO 0 009584 : C 009585 : A STR:,EQU,MБ ИHФ+NC. 009586 : RONLY:,EQU,ASTR+NC 009587 : FILLEN:,EQU,RONLY+1 009588 : COPYRA:,EQU,FILLEN+NC 009589 : LPAG:,EQU,COPYRA+NC 009590 : LASTORD:,EQU,LPAG+NC 009591 : SC100:,EQU,LASTORD+NC 009592 : ZBCH:,EQU,SC100 009593 : CARD1:I,BLOCK, 009594 : ,CONT,WNF,WNW,WNN,BCH/T 009595 : ,CONT,O/A,IDENTI(2),ISUB(2) 009596 : MAXL:,EQU,SC100+1.ДЛЯ VR 009597 : *1TYPE:,EQU,MAXL+NC.ДЛЯ FETCH И 009598 : XRS:,EQU,*1TYPE+NC.FORM PACK 009599 : TYP:,EQU,XRS+NC 009600 : SPB:,EQU,TYP+NC 009601 : MBINFOWN:,EQU,SPB+NC 009602 : OLD BUF:,EQU,MBINFOWN+NC.ДЛЯ MAKE MT 009603 : MATBUFSP:,EQU,OLDBUF+NC*4.ГPYПП.BBOД 009604 : BUFSP:,EQU,MATBUFSP+NC 009605 : C 009606 : PБYФ:24,EQU,1750B.ДЛЯ VR И FETCH 009607 : C 009608 : C 009609 : C...... ПOДBЯЗKA HEPEЗИДEHTA MYЛЬTИTAЙПA 009610 : C 009611 : L NRS:,EQU,2000B. 009612 : C LNR(0) 15-1 - A(*DRUMUS) 009613 : L NRS :I,BLOCK, 009614 : ,CONT,GIVECARD(0),*DRUMUS 009615 : ,CONT,WRITE 009616 : ,CONT,FORMAT(0),ASTERR 009617 : ,CONT,E NEXT 009618 : ,CONT,E FG0 009619 : ,CONT,SCAN 009620 : ,CONT,FORM INF 009621 : ,CONT,OPERANDS 009622 : ,CONT,E DIAGN(0),MULTITYP 009623 : ,CONT,CAT I/O(0),BUFSAP 009624 : ,CONT,CHE PASS 009625 : ,CONT,CLEAR 009626 : ,CONT,(3).PEЗEPB 009627 : ,CONT,A WEXCH 009628 : C UJ:,EQU,=30 00000. 009629 : MAKE MT:,SUBP, 009630 : OLD MT:,SUBP, 009631 : EXCH NRS:,SUBP,.MECTO HEP. 009632 : DEXNRS:,EQU,776B.B PEЗИДEHTE ДД 009633 : E FIL:,EQU,=2 00000.BIT 17 009634 : C 009635 : C...... YBЯЗKA MYЛЬTИTAЙПA C ДИCПETЧEPOM 009636 : *YCЫ:LC,BLOCK,ГYC,RDSCAL(8),YCLP2 009637 : ДHЗ:,LC,1. 009638 : TPHYS:,LC,1. 009639 : L2:,P/P,(*TLSYS)1024. 009640 : TABLEMT:LC,BLOCK,(16),T1MT(32),(64),TNMT(32) 009641 : LISTSTRA:,LC, 009642 : C.......... 009643 : BAS:,BSS,. 009644 : B,BASE,BAS. 009645 : N1L:,P/P,(BAS)(1024) 009646 : N1L2:,EQU,N1L+1 009647 : N1L1:,P*P,(N1L2) 64 009648 : ,*65,STATMT 009649 : ,ASN,64+42 009650 : ,U1A,HAЧAЛO.ПPИBЯЗKA БЫЛA 009651 : C 009652 : C****** ПEPBOHAЧAЛЬHAЯ HACTPOЙKA CИCTEMЫ 009653 : ,*65,DISPBASE+1 009654 : ,ARX,AN2L 009655 : ,AOX,BIT40M 009656 : ,ATX,BCH 009657 : ,*70,BCH 009658 : ,*72,=:11 40 37 77 009659 : ,ITA,B 009660 : ,FUN,77B.ФИKC.1 ЛИCT MT 009661 : ,XTA, 009662 : ,FUN,77B.ФИKC.PAБ.ЛИCT 009663 : ,*76,DD1. 009664 : BIT40M:,OCT,001 009665 : AN2L:,,N1L1 009666 : ,,N1L2 009667 : CL2:,,. 009668 : ,,L2. 009669 : DD1:,BSS,. 009670 : 14,REL,DD1. 009671 : ,ATX,NPAБЛИCT 009672 : C...... PAЗPEШEHИE PAБOTЫ C 34 ФИЗ-ЛИCTOM 009673 : ,XTA,CL2. 009674 : ,ASN,64-21. 009675 : ,AOX,BIT1 009676 : ,ATX,TPHYS+L2. 009677 : ,ASN,64-9. 009678 : ,AOX,BIT47 009679 : ,WTC,ГYC 009680 : ,ATX,TMATH+L2 009681 : C...... 009682 : ,XTA,EXCHNRS 009683 : ,ATX,DEXNRS 009684 : ,MTJ,27B. 009685 : ,REL,. 009686 : 15,VTM,DD2. 009687 : 15,MTJ,33B. 009688 : 3,IJ,. 009689 : B21/16:,LOG,77 00000 009690 : B,BAS,BAS 009691 : SAVW1:,BSS,1 009692 : XPM32:,BSS,1 009693 : DEL CNT:,BSS,.ИCKЛ. CO CЧETA 009694 : ,XTA,OUTJOBSC. 009695 : W1,AOX,BLMAT 009696 : ,ATX,OUTJOBSC. 009697 : W1,XTA,*YCЫ+NLMAT.YC ЗAДAЧИ 009698 : ,ATX,OUT CW. 009699 : W,VTM,574B.BXOД ЗAДAЧИ 009700 : ,ITA,W.HA ЭK-74 009701 : 13,VJM,OUT JOB. 009702 : W,VTM,NEXT. 009703 : W,MTJ,33B. 009704 : ,MTJ,27B.BOЗBPAT ИЗ 009705 : 3,IJ,.BЫБPACЫBAHИЯ 009706 : PEAK:15,37,ABOCTMT. 009707 : 15,36,2. 009708 : DD2:,BSS,. 009709 : C...... ЗAГPYЗKA CBOEГO HEPEЗИДEHTA И KOHTAKT 009710 : W1,VTM,1-1024. 009711 : ,DRUM,.CYMMATOP=EXCHNRS 009712 : W,VTM, 009713 : ,XTA,.ЧИCTKA PAБ.ЛИCTA 009714 : CLE:W1,ATX,PAБЛИCT+1023. 009715 : W1,VLM,CLE. 009716 : ,XTA,PEAK. 009717 : ,*72,70707B. 009718 : ,CTX,1.ЧИCЛ.CBEPTKA 009719 : 14,VTM,HAЧAЛO. 009720 : ,ITA,14. 009721 : ,AOX,C UJ. 009722 : ,CTX,A WEXCH. 009723 : 14,VTM,NEXT. 009724 : ,ITA,14. 009725 : ,AOX,C UJ. 009726 : ,CTX,E NEXT. 009727 : 14,VTM,FG0. 009728 : ,ITA,14. 009729 : ,AOX,C UJ. 009730 : ,CTX,E FG0. 009731 : ,XTA,CDIAGN 009732 : ,CTX,E DIAGN. 009733 : ,XTA,CCLE 009734 : ,CTX,CLEAR. 009735 : 14,VTM,STRINGS+6 009736 : 13,VTM,BUFSP 009737 : 15,VTM,-7 009738 : DD3:,ITA,14. 009739 : 15,ATX,A STR+9. 009740 : 14,UTM,30 009741 : ,ITA,13 009742 : 15,ATX,MATBUFSP+9 009743 : 13,UTM,24 009744 : 15,VLM,DD3. 009745 : C 009746 : C..... YCTAHOBKA BETBЛEHИЯ 009747 : ,UTC,VALERINA 009748 : ,XTA, 009749 : ,FUN,50B 009750 : ,XTA,EV*STRT.ПPИTBOPИMCЯ 009751 : ,FUN,54B. CTPOЧHИKOM 009752 : ,UJ,CLOSE 009753 : EV*STRT:,OCT,00200000 4 009754 : C 009755 : CDIAGN:,UJ,RONE 009756 : ,Z00,BAS 009757 : CCLE:C,XTA,BЫ/BB. 009758 : ,UJ,ГAШ BB. 009759 : C 009760 : C****** KOHEЦ HACTPOЙKИ CИCTEMЫ 009761 : C 009762 : HAЧAЛO:,BSS,. 009763 : NT,VTM,MTSCAL-ESCAL 009764 : ,FUN,56B.БЛOK.BETBЛEH. 009765 : MLOOP:,BSS,. 009766 : C...... ЦИKЛ ПO TИПAM PAБOT (ШKAЛAM) 009767 : NT,XTA,ESCAL 009768 : ,U1A,ML1 009769 : NT,VLM,MLOOP 009770 : CLOSE:,BSS, 009771 : ,FUN,57B.ДEБЛOK.BETBЛEH. 009772 : ,UJ,CLOSE*MT 009773 : ML1:,ANX,=77777. 009774 : ,ATI,C.HOMEP KAHAЛA 009775 : ,XTA,B48. 009776 : C,ASN,64. 009777 : ,ATX,B CH. 009778 : ,AAX,SCTER 009779 : ,AAX,SC71 009780 : ,ATX,BCH/T 009781 : ,XTA,FULWOR 009782 : ,AEX,BCH 009783 : ,ATX,ZBCH 009784 : NT,AAX,ESCAL.OT KAHAЛA 009785 : NT,ATX,E SCAL. 009786 : ,FUN,57B.ДEБЛOK.BETBЛEH. 009787 : NT,UJ,E SC SW. 009788 : SC SW:,BSS,. 009789 : C......... ПEPEKЛЮЧATEЛЬ ШKAЛ 009790 : C------------------ 009791 : :R,VTM,REPEAT.OTMEHA CTPOKИ 009792 : ,UJ,ПH KOДA. 009793 : :,UJ,END CHAN.CБPOC KAHAЛA 009794 : :,XTA,BCH.BBOД/BЫBOД 009795 : ,UJ,LINE 009796 : :R,VTM,INTERRUP.ПPEP.BЫBOД 009797 : ,UJ,ПH KOДA. 009798 : :T,VTM,HAЧCEAHC.H A Ч A Л O 009799 : ,UJ,NEW USER.HAЧ.CEAHCA 009800 : :R,VTM,ANAL 009801 : ,UJ,ПPOB ЖДY. 009802 : :,UJ,ЖДYOБMEH.ПPOB. KO 009803 : E SCSW:,BSS, 009804 : :C,WTC,RET SCAN. 009805 : ,UJ,.CKAHИPOBAHИE 009806 : C------------------ 009807 : ПH KOДA:,XTA,БЫЛ KOД. 009808 : ,AAX,BCH. 009809 : ,UZA,ПOДKOД. 009810 : R,UJ,. 009811 : LINE:,BSS, 009812 : C,XTA,CHAN/J-2 009813 : ,UZA,*+3 009814 : ,AEX, 009815 : ,*53,RDSCAL 009816 : ,XTA, 009817 : C,ATX,CHAN/J-2 009818 : ,XTA,BCH 009819 : ,AOX,REDY71 009820 : ,ATX,REDY71 009821 : ,XTA,BCH/T.ЗAKAЗ ЭK71 009822 : C,WTC,RETADR 009823 : ,UZA,. = HET 009824 : C----- KOHEЦ OБMEHA ПO ЭK71 009825 : C,XTA,JOB. БЫЛ BBOД 009826 : ,AAX,=:0000 04 009827 : ,UZA,HE BB. = HET 009828 : C,WTC,ASTR 009829 : ,XTA, 009830 : ,U1A,HE BB 009831 : C,WTC,ASTR 009832 : ,XTA,-2.ПOCЛ.CИMBOЛ 009833 : ,AEX,=13."IL" 009834 : ,UZA,TO MT 009835 : ,AEX,=7.ИЛИ "HOME" 009836 : ,U1A,HE BB 009837 : TO MT:,BSS, 009838 : C... ПEPEXOД B PEЖИM MT 009839 : ,XTA,ZBCH 009840 : ,AAX,SCTER 009841 : ,ATX,SCTER 009842 : ,XTA,ZBCH 009843 : ,AAX,SC71 009844 : ,ATX,SC71 009845 : ,UJ,NEXT 009846 : HE BB:C,XTA,NUMBUS 009847 : ,ASN,64+42 009848 : ,ATI,W1 009849 : W1,*65,BITS 009850 : ,AAX,SC/CLJ.ЗAДAЧA ЗAKPЫTA 009851 : ,UZA,ЖДY 009852 : C----- OTKPOEM ЖДYЩYЮ ЗAДAЧY 009853 : WAS CLJ:,*76,OP J 009854 : ,UJ,ЖДY 009855 : OP J:,BSS, 009856 : ,AEX,SC/CLJ 009857 : ,ATX,SC/CLJ 009858 : ,YTA, 009859 : OTKP:,BSS, 009860 : ,AOX,RDSCAL 009861 : ,ATX,RDSCAL 009862 : RET76:,BSS, 009863 : ,MTJ,27B 009864 : 2,IJ, 009865 : NEW USER:,BSS,. 009866 : ,XTA,ZBCH 009867 : ,AAX,SC LOC. 009868 : ,ATX,SC LOC. 009869 : ,XTA,SC SEND 009870 : ,AAX,ZBCH 009871 : ,ATX,SC SEND .ГAШEHИE ПPИЗHAKA SEND 009872 : ,XTA,SC VID 009873 : ,AAX,ZBCH 009874 : ,ATX,SC VID 009875 : R,VTM,ПOД KOД 009876 : ,*65,7 009877 : ,ASN,64+25 009878 : ,AEX,NEVM 009879 : ,AAX,=6H'''''''''7''' 009880 : ,AEX,NEVM 009881 : ,ATX,NEVM 009882 : ,UJ,REDOUT 009883 : INTERRUP:,BSS,. 009884 : ,XTA,BCH/T.ЗAKAЗ ЭK71 009885 : ,UZA,NO71. = HET 009886 : ,XTA,= 20 00000 009887 : C,AOX,NUMBUS 009888 : C,ATX,NUMBUS 009889 : ,UJ,NEXT 009890 : NO71:,BSS, 009891 : ,XTA,SC BLNL. 009892 : ,AAX,ZBCH 009893 : ,ATX,SC BLNL. 009894 : ,XTA,LI SC. 009895 : ,AAX,B CH. 009896 : ,UIA,NEXT. 009897 : C,WTC,ASTR 009898 : ,XTA, 009899 : ,AEX,TLIMT 009900 : ,UZA,NEXT 009901 : NEW TASK:,XTA,. 009902 : C,ATX,TEK AДP. 009903 : NEXT:R,VTM,ANAL.BBOД KAPTЫ 009904 : ,XTA,BCH 009905 : ,AAX,SC ЖДY. 009906 : ,U1A,ЖДY IN.PEЖИM 'ЖДY' 009907 : ,UJ,IN.HOPM. BBOД 009908 : ANAL:,BSS,.ДИAЛOГ HA KAHAЛE 009909 : R,VTM,NEXT 009910 : C,WTC,ASTR 009911 : ,XTA,. 009912 : ,ATX,WS. 009913 : ,AAX,=:776. 009914 : ,UZA,DUMMY.M.B. COMM.RET 009915 : ,XTA,WS 009916 : ,AEX,KOHCEAHC 009917 : ,UZA,TO ABORT.БEЗ ДOCБPOCA 009918 : ,XTA,SC SEND.ЗAДAH ЛИ 009919 : ,AAX,B CH 009920 : ,U1A,E/SEND.-ДA 009921 : C,XTA,NUMBUS.PEЖИM BBOДA 009922 : ,AAX,B24 009923 : ,U1A,TAKECARD.-ДA 009924 : ,UJ,AN0.PEЖИM KOMAHД 009925 : E/SEND:,BSS, 009926 : ,XTA,WS.-ECTЬ SEND 009927 : ,AEX,REFUSE 009928 : ,AAX,=6H'377''377''377''''''' 009929 : ,U1A,T/CARD.TEKCT 009930 : C......... ПOИCK YK ПO TAБЛИЦE 009931 : AN0:W,VTM, 009932 : W1,VTM,CO CA. 009933 : AN1:W1,XTA,. 009934 : ,UZA,ПOДCKAЗ.KOHEЦ TAБЛ. 009935 : AN2:,ATX,WS1. 009936 : ,AEX,WS. 009937 : ,AAX,=6H'377''377''377''''''' 009938 : ,UZA,AN3 009939 : W,UTM,1. 009940 : ,XTA,WS1. 009941 : ,ASN,64-24. 009942 : ,U1A,AN2.2-Я ПOЛOB. 009943 : W1,VLM,AN1.CЛEД.CЛOBO 009944 : AN3:,XTA,B48 009945 : W,ASN,64 009946 : ,AAX,TYP/ORD 009947 : ,UZA,AN4 009948 : ,XTA,ZBCH 009949 : ,AAX,LISC 009950 : ,ATX,LISC 009951 : ,XTA,WS 009952 : AN4:C,ATX,LASTORD 009953 : W,UJ,CC SW 009954 : CC SW:,BSS,. 009955 : C------------------ 009956 : :,UJ,REF SEND.OTKAЗ OT ЖДY/SEND 009957 : ПOД KOД:T,VTM,TPASS.HAЧAЛO 009958 : ,UJ,OUT KOД. 009959 : :,,.KOД 009960 : ,UJ,ПPOB KOД. 009961 : :CA,VTM,NEXT 009962 : ,UJ,БYФEP. 009963 : :C,XTA,MБ ИHФ 009964 : ,UJ,ДEЛЬTA 009965 : :,XTA,B CH 009966 : ,UJ,SEND 009967 : :,XTA, 009968 : ,UJ,BBOД. 009969 : :,,.BЫBOД-БYФEP 009970 : ,UJ,BЫBOД. 009971 : :T,VTM,TBREAK.AЦПY 009972 : ,UJ,RO NE 009973 : :,UJ,B80.BBOД БEЗ NNNN 009974 : :T,VTM,CATOUT.KAT BЫBOДA 009975 : ,UJ,CHAEND 009976 : :T,VTM,CATINP.KAT BBOДA 009977 : ,UJ,CHAEND 009978 : :T,VTM,OЧEPEДЬ.OЧEPEДЬ 009979 : ,UJ,CHAEND 009980 : :T,VTM,TЗAПP 009981 : ,UJ,ПEЧ.ПEЧATЬ 009982 : :T,VTM,PEЗ.ПPOCMOTP 009983 : ,UJ,CHAEND.ЛИCTИHГA 009984 : :T,VTM,ИCK.ИCKЛЮЧИTЬ 009985 : ,UJ,CHAEND.ИЗ ПAK.BBOДA 009986 : ,UJ,HOB 009987 : :R,VTM,LIST.ПPИKAЗ : 'ЛИCT' 009988 : ,UJ,KIL BL 009989 : :,XTA, 009990 : ,UJ,TEL OP 009991 : :, ,.ФOPMAT 009992 : ,UJ,FORMAT. 009993 : :T,VTM,ПYCK.ПYCK 009994 : ,UJ,CHA END. 009995 : :T,VTM,TEPП.TEP 009996 : ,UJ,ЭK*71 009997 : :,BSS,1.BPEMЯ 009998 : END CHAN:,BSS,. 009999 : :T,VTM,CEKOH.CTOП 010000 : ,UJ,CHA END. 010001 : TO ABORT:,BSS, 010002 : :C,XTA,JOB.KOHEЦ 010003 : ,UJ,ABORT 010004 : :,UJ,ЖДY..ЖДY 010005 : :W,VTM,ЗACЛ.ЗAП 010006 : ,UJ,OTЛAДKA1 010007 : :W,VTM,ЗAП ЧИC.ЧИЗ 010008 : ,UJ,OTЛAДKA 010009 : :T,VTM,OTЛП.OTЛ 010010 : ,UJ,CHAEND 010011 : :W,VTM,OCT ПO AДP.OCA 010012 : ,UJ,OTЛAДKA 010013 : :W,VTM,OCT ЗAП.OЗA 010014 : ,UJ,OTЛAДKA 010015 : :W,VTM,OCT ЧTEH.OЧT 010016 : ,UJ,OTЛAДKA 010017 : :W,VTM,OPEN JOB.ИДИ 010018 : ,UJ,OTЛAДKA 010019 : :T,VTM,PEГИCTPЫ.PEГ 010020 : ,UJ,NJ C ИПЗ 010021 : :W,VTM,OCT WORD.MЯЧ 010022 : ,UJ,OTЛAДKA 010023 : :W,VTM,KOCB ЧT.MЯK 010024 : ,UJ,OTЛAДKA 010025 : :W,VTM,ФИЗ ЧT.ФЯЧ 010026 : ,UJ,OTЛAДKA 010027 : :T,VTM,ШAГИ.ШAГ 010028 : ,UJ,NJ C ИПЗ 010029 : :W,VTM,DEC ЧИC.ДEC 010030 : ,UJ,OTЛAДKA 010031 : :W,VTM,NOTEP.PET 010032 : ,UJ,OTЛAДKA 010033 : :W,VTM,NOOTЛ.ЛTO 010034 : ,UJ,OTЛAДKA 010035 : :PP,VTM,0.KAK 010036 : ,UJ,CПPAB.KAK ДEЛA 010037 : :PP,VTM,1.CЧET 010038 : ,UJ,CПPAB.(Ш20-01) 010039 : C 010040 : C+++++ ГOCПOДA! ЗABOДЯ HOBЫE ПPИKAЗЫ, 010041 : C ПOMHИTE ПPO TYP/ORD ! 010042 : C ДOГOBOPИMCЯ, ЧTO BCE ПPИKAЗЫ, 010043 : C ИMEЮЩИE TYP/ORD=1, БYДYT PACПO- 010044 : C ЛOЖEHЫ BЫШE ЭTOГO KOMMEHTAPИЯ. 010045 : C 010046 : :T,VTM,CЛYП.CЛY 010047 : ,UJ,CHAEND 010048 : :T,VTM,CЛAП.CЛA 010049 : ,UJ,CHAEND 010050 : :T,VTM,CЛOП.CЛO=CЛA+OTЛ 010051 : ,UJ,CHAEND 010052 : :T,VTM,RUNП.RUN 010053 : ,UJ,ЭK*71 010054 : :T,VTM,TPR.ПEЧATЬ И 010055 : ,UJ,ЭK*71.HA TEPMИHAЛ 010056 : :T,VTM,TNP.BЫBOД TOЛЬKO 010057 : ,UJ,ЭK*71.HA TEPMИHAЛ 010058 : :W1,VTM,-NJ. ПYЛЬT 010059 : ,UJ,ПYЛЬT.ЗAДAЧE 010060 : :W1,VTM,-NJ.OTKAЗ 010061 : ,UJ,OTKAЗ. 010062 : :R,VTM,ДOH.= ПPOПYCK 010063 : ,UJ,KIL BL. ДO HOMEPA 010064 : :R,VTM,SCAN LIS.ПPИKAЗ : 'ДO' 010065 : ,UJ,KIL BL.= ИCKATЬ OБPAЗ 010066 : :T,VTM,8 010067 : ,UJ,CH/XAP. CHAN 010068 : :W1,VTM,1 010069 : ,UJ,DENSITY 010070 : :W1,VTM, 010071 : ,UJ,DENSITY 010072 : :C,XTA,NUMBUS.EDIT 010073 : ,UJ,TO EDIT 010074 : :W2,VTM,1 010075 : ,UJ,ПPOTOKOЛ 010076 : :W2,VTM,0 010077 : ,UJ,ПPOTOKOЛ 010078 : C------------------ 010079 : C 010080 : C----- ПPИKAЗ : Д E C 010081 : C 010082 : DECЧИC:,BSS, 010083 : ,XTA,=:4 010084 : ,AEX, 010085 : W2,*53,R/R 010086 : ,UJ,OCTWORD 010087 : C 010088 : C----- П/П ПPИKAЗOB OTЛAДЧИKA 010089 : C 010090 : OTЛAДKA1:,UTC,7-2 010091 : OTЛAДKA:R,VTM,2 010092 : ,ITA,R 010093 : ,ATX,WS 010094 : T,VJM,NJ C ИПЗ 010095 : T,VJM,IFDEBUG 010096 : C,XTA,ASTR 010097 : ,AAX,=77777 010098 : ,*50,12 010099 : T,VTM,8 010100 : R,VTM,BADR 010101 : ,XTA,=600000 010102 : ,*50,12 010103 : 14,UTM,-4 010104 : 14,VIM,OPERANDS 010105 : ,ATX,IDENTI 010106 : ,YTA, 010107 : ,ATX,IDENTI+1 010108 : ,XTA, 010109 : ,ATX,O/A 010110 : ,*50,70100B+136B 010111 : ,ATI,14 010112 : 14,UTM,-54B 010113 : 14,VIM,FINISH1 010114 : ,XTA,WS 010115 : ,ASN,64-15 010116 : ,*50,12 010117 : ,ATX,ISUB 010118 : ,YTA, 010119 : 14,UTM,-4 010120 : 14,VZM,FINISH2 010121 : 14,UTM,4-1 010122 : 14,VZM,OCTAL 010123 : 14,UTM,1-2 010124 : 14,VIM,OШHAБOP 010125 : OCTAL:,XTA,ISUB 010126 : ,ATX,O/A 010127 : FINISH1:,XTA, 010128 : ,ATX,ISUB 010129 : FINISH2:,ATX,ISUB+1 010130 : R,VTM,-4 010131 : FIN:R,XTA,ISUB+1 010132 : W2,*52,O/A/ 010133 : W2,UTM,1 010134 : R,VLM,FIN 010135 : W2,UTM,-5 010136 : ,XTA,FULWOR 010137 : BADR:,ATX,WS 010138 : W,UJ, 010139 : NJ C ИПЗ:W1,VTM,1-NSHI 010140 : C ПOИCK HAШ ШИФP-KAHAЛ 010141 : ,ITA,T 010142 : ,ATX,WS2 010143 : T,VTM,THETЗ 010144 : LOOP:W1,XTA,INFEX+NJ 010145 : C,AEX,NUMBUS 010146 : ,AAX,=1777 010147 : ,UZA,HAШKAH 010148 : W1,VLM,LOOP 010149 : ,UJ,RO NEW 010150 : HAШKAH:,BSS, 010151 : W1,UTM,NLMAT 010152 : W1,*65,BITS 010153 : ,ATX,BIT 010154 : T,VJM,ДAЙ ИПЗ 010155 : W2,VZM,DIAGN.HET ЗAДAЧИ 010156 : ,*65,FLERBUZ 010157 : ,AAX,BIT 010158 : ,U1A,SECOND 010159 : W2,*65,SCJOTЛ 010160 : ,U1A,SECOND 010161 : ,WTC,WS2 010162 : ,UJ, 010163 : C..... ПEPEПИCЬ ИПЗ HA ЛИCT MT 010164 : C 010165 : C ПOTPEБИTEЛИ ЧYЖИX ИПЗ ! 010166 : C ПPOBEPЯЙTE PEГИCTP W2 ПOCЛE 010167 : C ЗAПPOCA ИПЗ ! 010168 : C ------------------------------- 010169 : C 010170 : ДAЙ ИПЗ:R,VTM,B48 010171 : ,UJ,ДAЙ/HA 010172 : ДAЙИПЗ B:R,VTM,=:6 010173 : ,UJ,ДAЙ/HA 010174 : TO DEB:,AEX, 010175 : ,*53,SCDEBUG 010176 : GO:,XTA,BIT 010177 : ,*76,OTKP 010178 : HA ИПЗ:R,VTM, 010179 : T,VTM,ЖДY 010180 : ДAЙ/HA:,BSS, 010181 : ,ITA,W1 010182 : ,ASN,64-9 010183 : ,AOX,=50 010184 : R,AOX, 010185 : ,AOX,NЛИПЗ/ 010186 : ,FUN,212B 010187 : ,ATI,W2 010188 : T,UTC, 010189 : W2,VZM,.HET ЗAДAЧИ 010190 : R,XTA, 010191 : ,AAX,=:2 010192 : T,UZA, 010193 : W2,VTM,A ИПЗ 010194 : T,UJ, 010195 : C 010196 : C----- ПPИKAЗ : O C A 010197 : C 010198 : OCTПOAДP:,BSS, 010199 : ,XTA,WS 010200 : W2,*52,PEГ34 010201 : ,XTA,B48 010202 : ,UJ,ПPИOT 010203 : C 010204 : C----- ПPИKAЗ : O З A 010205 : C 010206 : OCTЗAП:,BSS, 010207 : ,XTA,WS 010208 : W2,*52,ИP/35 010209 : ,XTA,=:1 010210 : ,UJ,ПPИOT 010211 : C 010212 : C----- ПPИKAЗ : O Ч T 010213 : C 010214 : OCTЧTEH:,BSS, 010215 : ,XTA,WS 010216 : W2,*52,ИP/35 010217 : ,XTA,=:2 010218 : ,UJ,ПPИOT 010219 : C 010220 : C----- ПPИKAЗ : И Д И 010221 : C 010222 : OPENJOB:,BSS, 010223 : ,UZA,MAT 010224 : W2,*65,S27 010225 : ,AAX,=14 010226 : ,U1A,ПЛOX 010227 : MAT:,BSS, 010228 : ,XTA,BIT 010229 : ,AAX,SCSTOP 010230 : ,UZA,ПЛOX 010231 : ,AEX,SCSTOP 010232 : ,ATX,SCSTOP 010233 : ,XTA,WS 010234 : ,UZA,TOЛKHEM 010235 : ,AEX,FULWOR 010236 : ,UZA,ИДИД 010237 : ,XTA,WS 010238 : W2,*52,S33 010239 : ,XTA, 010240 : W2,*52,S27 010241 : ,UJ,OTKPOEM 010242 : TOЛKHEM:,BSS, 010243 : W2,*65,REGSCAL 010244 : ,AAX,=10 00000 010245 : ,UZA,CHЯTЬK 010246 : W2,*65,S35 010247 : ,ASN,64-15 010248 : W2,*52,S35 010249 : CHЯTЬK:W2,*65,S34 010250 : ,AAX,=77777 010251 : ,UZA,YCTФЛ 010252 : W2,*65,S34 010253 : ,ASN,64-15 010254 : W2,*52,S34 010255 : YCTФЛ:,XTA,BIT 010256 : ,AOX,SCAL67 010257 : ,ATX,SCAL67 010258 : OTKPOEM:,BSS, 010259 : ,XTA,BIT 010260 : ,AAX,SCШAГ 010261 : ,UZA,GO 010262 : ,AAX,SCSTOP 010263 : ,UZA,HA ИПЗ 010264 : ,AEX,SCSTOP 010265 : ,ATX,SCSTOP 010266 : ,UJ,GO 010267 : ИДИД:,BSS, 010268 : ,XTA,=:01 010269 : ,AEX, 010270 : W2,*53,R/R 010271 : ,XTA,WS 010272 : W2,*52,READ 010273 : ,XTA,=:002 010274 : ,AEX, 010275 : W2,*53,SCJOTЛ 010276 : ,XTA,BIT 010277 : ,UJ,TO DEB 010278 : C 010279 : C----- ПPИKAЗ : P E T 010280 : C 010281 : PEГИCTPЫ:,BSS, 010282 : C,WTC,ASTR 010283 : AS,VTM, 010284 : AS,XTA, 010285 : ,AAX,=0000 0000 0017 7777 010286 : ,UZA,SUMIR 010287 : ,XTA,=:004 010288 : ,UJ,ПPИOT 010289 : SUMIR:,BSS, 010290 : ,XTA,=:01 010291 : ПPИOT:,BSS, 010292 : ,AEX, 010293 : W2,*53,SCJOTЛ 010294 : ,XTA,BIT 010295 : ,AEX, 010296 : ,*53,SCDEBUG 010297 : ,XTA,SCSTOP 010298 : ,AAX,BIT 010299 : ,UZA,HA ИПЗ 010300 : ,UJ,GO 010301 : C 010302 : C----- ПPИKAЗ : M Я K 010303 : C 010304 : KOCBЧT:,BSS, 010305 : ,XTA,=0000 0000 0400 0000 010306 : ,AEX, 010307 : W2,*53,R/R 010308 : C 010309 : C----- ПPИKAЗ : M Я Ч 010310 : C 010311 : OCT WORD:,BSS, 010312 : ,XTA,WS 010313 : ,AEX,FULWOR 010314 : ,UZA,NO AD 010315 : R,VJM,ПPOB ЧЛ 010316 : NO AD:,BSS, 010317 : ,XTA,WS 010318 : W2,*52,READ 010319 : ,XTA,=:002 010320 : ,UJ,ПPИOT 010321 : ПPOB ЧЛ:,XTA,WS 010322 : ,ASN,64+10 010323 : ,ATI,T 010324 : T,UTC, 010325 : W2,*65,TMATH 010326 : ,ASN,64+30 010327 : R,U1A, 010328 : ПЛOX:R,VTM,.OCBOБ-E 010329 : T,VJM,ДAЙ/HA.ИПЗ 010330 : OШHAБOP:T,VTM,TOШHAБ 010331 : ,UJ,RONE 010332 : C 010333 : C----- ПPИKAЗ : Ш A Г 010334 : C 010335 : ШAГИ :,BSS, 010336 : T,VJM,IFDEBUG 010337 : ,XTA,BIT 010338 : ,AOX,SCШAГ 010339 : ,ATX,SCШAГ 010340 : ,XTA,=4 00000 010341 : ,AEX, 010342 : W2,*53,REGSCAL 010343 : ,UJ,TOЛKHEM 010344 : C 010345 : C----- ПPИKAЗ : Ф Я Ч 010346 : C 010347 : ФИЗЧT:,BSS, 010348 : ,XTA,WS 010349 : W2,*52,ФREAD 010350 : ,XTA,=:001 010351 : ,UJ,ПPИOT 010352 : C 010353 : C----- ПPИKAЗ : Ч И З 010354 : C 010355 : ЗAПЧИC:,BSS, 010356 : ,XTA,=20 010357 : ,AEX, 010358 : W2,*53,R/R 010359 : ,XTA,WS 010360 : ,ATI,T 010361 : ,UZA,ПЛOX 010362 : ,AEX,FULWOR 010363 : ,UZA,ЗAПЧA1 010364 : ,XTA,=100 010365 : ,AEX, 010366 : W2,*53,R/R 010367 : ,UJ,ЗAПЧA 010368 : C 010369 : C----- ПPИKAЗ : З A П 010370 : C 010371 : ЗACЛ:,BSS, 010372 : R,VZM,ЗAПЧAA 010373 : W2,*52,W/W 010374 : ЗAПЧA:,ITA,T 010375 : ,ATX,WS 010376 : R,VTM,ЗAПЧA1 010377 : ,UJ,ПPOB ЧЛ 010378 : ЗAПЧAA:,XTA,ISUB 010379 : ,U1A,*+2 010380 : ,XTA,O/A 010381 : :W2,*52,W/W 010382 : ,XTA,FULWOR 010383 : ,ATX,WS 010384 : ЗAПЧA1:,BSS, 010385 : ,XTA,WS 010386 : W2,*52,WRIT 010387 : ,XTA,=:0004 010388 : ,UJ,ПPИOT 010389 : NOTEP:,BSS, 010390 : ,XTA,SCTER 010391 : ,AAX,ZBCH 010392 : ,ATX,SCTER 010393 : ,XTA,SCЖДY 010394 : ,AAX,ZBCH 010395 : ,ATX,SCЖДY 010396 : NOOTЛ:,BSS, 010397 : ,XTA, 010398 : ,AEX,=4 00000 010399 : W2,*53,REGSCAL 010400 : ,UJ,HA ИПЗ 010401 : OUT KOД:R,VTM,ПPOB KOД 010402 : ,UJ,OUT/IN Q. 010403 : ПPOB KOД:,BSS,. 010404 : C,WTC,A STR. 010405 : ,XTA,1. 010406 : ,UZA,ПOД KOД.ПYCT БYФEP 010407 : 13,VJM,CHE PASS 010408 : ,ATI,14.N PASS=1-1776 010409 : 14,V1M,US IS 010410 : US ABS:,BSS,. 010411 : T,VTM,TUSABS. 010412 : R,VJM,RED OUT. 010413 : CEKOH:,BSS,. 010414 : R,VJM,OTЛYП1 010415 : NOREFBUF:T,VTM,KOHCEAHC 010416 : W,VTM,SCJOB-TAKESC. 010417 : CK1:W,XTA,TAKESC. 010418 : ,AAX,ZBCH 010419 : W,ATX,TAKESC. 010420 : W,VLM,CK1. 010421 : ,XTA,. 010422 : C,ATX,NUMB US. 010423 : C,ATX,MБИHФ 010424 : ,XTA,BCH 010425 : ,AOX,SC LOC. 010426 : ,ATX,SC LOC. 010427 : ,XTA,ZBCH 010428 : ,AAX,BEGZ 010429 : ,ATX,BEGZ 010430 : R,VTM,ANAL 010431 : ,UJ,REDOUT 010432 : C 010433 : C... ЗAПYCK LINE-EDITOR 010434 : C 010435 : TO EDIT:,BSS, 010436 : ,AAX,=1777 010437 : ,ATX,WS 010438 : C,WTC,ASTR 010439 : ,XTA,XNT 010440 : ,AAX,=77 010441 : ,ASN,64-15 010442 : ,AOX,WS 010443 : ,ATX,WS 010444 : ,XTA,EDITOR 010445 : ,ASN,64+42 010446 : ,ATI,W1 010447 : W1,VIM,PUTINF 010448 : ,XTA,EDIT/INF 010449 : ,*72,3.ИЗ Б C З 010450 : 14,VZM,ЖДИTE 010451 : 14,MTJ,W1 010452 : ,ITA,W1 010453 : ,ASN,64+6.-> B PMP 010454 : ,XTA,=:77 010455 : ,*53,EDITOR 010456 : W1,*65,BITS 010457 : ,AEX, 010458 : ,*53,ПAPTИЗAH 010459 : C 010460 : C... BПИCЫBAEM B ИПЗ EDITOR-A 010461 : C ИHФOPMAЦИЮ O ЮЗEPE : 010462 : C 25:34 - HOMEP PASS'A 010463 : C 40:43 - HOMEP KAHAЛA (ФИЗ.) 010464 : C 48 - ФЛAГ ПPИBЯЗKИ 010465 : C 010466 : PUTINF:T,VJM,ДAЙ ИПЗ 010467 : W2,VZM,ЖДИTE 010468 : W2,*63, A U S 010469 : ,ARX, 010470 : ,UZA,SECOND.HE ГOTOB 010471 : R,VTM, 010472 : ,XTA,WS 010473 : ,ASN,64-24 010474 : ,AOX,B48 010475 : ,AEX, 010476 : ,XTA,=:7777 7777 010477 : W2,*53,A U S 010478 : T,VTM,CEKOH 010479 : ,UJ,ДAЙ/HA.ПHEM 010480 : USIS:,BSS,. 010481 : T,VTM,-NCM1.=-9 010482 : 14,MTJ,W1 010483 : OДИHKЛЮЧ:,BSS, 010484 : ,ITA,14 010485 : T,AEX,NUMBUS+NCM1 010486 : ,AAX,=1777 010487 : ,UZA,YЖE 010488 : T,VLM,OДИHKЛЮЧ 010489 : ,ITA,14 010490 : ,AOX,=1140 0000 010491 : ,FUN,16.A Y COCEДA 010492 : ,U1A,YЖE. - ЗAHЯT ! 010493 : C,ATX,RET ADR. 010494 : C,ATX,MБ ИHФ. 010495 : C,ATX,BЫ/BB. 010496 : C,ATX,LPAG 010497 : ,ATX,WS 010498 : C,ATX,*1TYPE.ЧИCTKA ФOPMATA 010499 : C,MTJ,T 010500 : C,J+M,T 010501 : T,J+M,T.=4*C 010502 : T,ATX,OLDBUF.ИMЯ MЛ/ДП 010503 : T,ATX,OLDBUF+1.MACTEP ФAЙЛA 010504 : ,ITA,W1. 010505 : C,AOX,NUMBUS 010506 : C,ATX,NUMBUS.HOMEP B APXИBE 010507 : ,ITA,W1 010508 : C,WTC,ASTR 010509 : W1,VTM,XNT+1 010510 : W1,AEX, 010511 : ,AAX,=1777 010512 : W1,AEX, 010513 : W1,ATX, 010514 : ,XTA,БЫЛ KOД. 010515 : ,AOX,B CH. 010516 : ,ATX,БЫЛ KOД. 010517 : W1,VTM,-NCM3 010518 : ST CH:,BSS, 010519 : W1,XTA,CHAN/J+NCM3 010520 : ,AOX,WS 010521 : ,ATX,WS 010522 : ,XTA, 010523 : W1,ATX,CHAN/J+NCM3 010524 : W1,VLM,ST CH 010525 : ,XTA,WS 010526 : ,AOX,SC/CLJ 010527 : ,*76,OTKP 010528 : ,XTA, 010529 : ,ATX,SC/CLJ 010530 : C 010531 : C... ЗAПИCЬ B DAYFILE COOБЩEHИЯ 010532 : C O HAЧAЛE CEAHCA : 010533 : C >MT <Ф-KAHAЛ> 010534 : C 010535 : T,VTM,NAMTIM 010536 : C 010537 : C... METKA B TEPMИHAЛЬHYЮ CTATИCTИKY 010538 : ,*52,531B 010539 : C,WTC,ASTR 010540 : ,XTA,XNT 010541 : ,ASN,64-42 010542 : ,AUX,=6H'''''''7''7''' 010543 : ,AOX,=6H>MT00 010544 : T,ATX, 010545 : C,XTA,NUMBUS 010546 : ,ASN,64-38 010547 : ,AUX,=6H'1''7''7''7''''' 010548 : ,AOX,=6H0000'''' 010549 : T,ATX,1 010550 : ,ITA,T 010551 : ,AOX,=7770 0000 7760 0000 010552 : ,*72,4 010553 : ,UJ,OUTБYФ 010554 : C ------- ЗAKAЗ БYФEPA: 010555 : БYФEP:,BSS,.ГAШ.ПPИЗHAKA 010556 : C,XTA,BЫ/BB 010557 : T,VJM,ГAШ BB 010558 : ,XTA,BCH 010559 : ,AAX,RONLY 010560 : ,AEX,RONLY 010561 : ,ATX,RONLY 010562 : ,WTC,ASTERR.ПPOЧИCTKA 010563 : ,XTA,.ПPИЗHAKA 010564 : ,AAX,ZBCH 010565 : ,WTC,ASTERR.ABAPИИ HA 010566 : ,ATX,.HA OБMEHE 010567 : C,XTA,NUMBUS 010568 : ,AAX,=1777 010569 : ,*50,72217B 010570 : C,WTC,A STR. 010571 : ,XTA,1. 010572 : C,MTJ,14 010573 : C,J+M,14 010574 : 14,J+M,14 010575 : ,ATX,WS 010576 : ,ASN,64-8.ГДE БYФEP 010577 : ,UZA,MT BUF 010578 : ,XTA,WS 010579 : ,AEX,=6H: '' 010580 : ,ASN,64+24 010581 : ,U1A,MAKE MT.HOBЫЙ БYФEP 010582 : 14,XTA,OLDBUF 010583 : ,U1A,OLD MT.B MAKE MT 010584 : ,UJ,OUT БYФ.HET БYФEPA 010585 : MT BUF:,BSS, 010586 : 14,ATX,OLDBUF 010587 : ,XTA,B 48.БAPAБAH 010588 : C,ATX,MБ ИHФ. 010589 : ,UJ,NEW TASK. 010590 : ДEЛЬTA:,AAX,=:777 010591 : ,UZA,OUT БYФ.HET БYФEPA 010592 : ,ARX, 010593 : T,VTM,TOШHAБ 010594 : ,UZA,RONE 010595 : ,ASN,64-3 010596 : ,ASN,64+30 010597 : ,ATX,WS 010598 : ,FUN,113B.ЗAПPOC ДEЛЬTЫ 010599 : ,ARX, 010600 : ,U1A,RO NE.HET ЛEHTЫ 010601 : T,VTM,10.4 ЦИФPЫ 010602 : R,VJM,OPERANDS.ЗA ДEЛЬTOЙ 010603 : ,AOX,WS.+MAT.HOMEP 010604 : ,FUN,112B.YCTAHOBKA 010605 : ,UZA,OUTБYФ.HE ПPOШЛA 010606 : ,UJ,NEXT.O'KEY 010607 : ГAШ BB:,AAX,CL IN.ГAШEHИE 010608 : C,ATX,BЫ/BB.ПPИЗHAKA BBOДA 010609 : ,XTA,ZBCH.ГAШEHИE 010610 : ,AAX,LI SC.ПPИЗHAKA 010611 : ,ATX,LI SC.PACПEЧATKИ 010612 : T,UJ,. 010613 : C-------- 010614 : REF SEND:,BSS,.OTKAЗ OT PEЖИMOB SEND И ЖДY 010615 : ,XTA,ZBCH 010616 : ,AAX,SC SEND 010617 : ,ATX, SC SEND 010618 : ,XTA, SC ЖДY 010619 : ,AAX,ZBCH 010620 : ,ATX, SC ЖДY 010621 : T,VTM,NEW TASK 010622 : ,UJ,CHA END 010623 : C 010624 : C ======= ПPИKAЗЫ BBOДA 010625 : C BBOД, SEND, B80 010626 : B80:,BSS,.BBOД БEЗ HOMEPOB 010627 : ,XTA,BCH 010628 : ,AOX,BEGZ 010629 : ,ATX,BEGZ 010630 : ,XTA, 010631 : C--------------------- 010632 : SEND:,BSS, 010633 : C---------------------- 010634 : BBOД:,ATX,SAVW1.ДЛЯ ШKAЛ 010635 : T,VTM,NO/WRIT 010636 : ,XTA,B CH 010637 : ,AAX,RONLY 010638 : ,U1A,RO NE 010639 : T,VJM,CHA END.HA ДOCБPOC 010640 : T,VTM,6.2 OПEPAHДA 010641 : R,VJM,OPERANDS. 010642 : ,UZA,B CTAP.ПPEЖHИЙ БYФEP 010643 : ,AOX,B48. 010644 : ,ASN,64+10. 010645 : ,ATX,WS 010646 : T,MTJ,R 010647 : T,VJM,CCLE.ГAШ BBOДA 010648 : R,MTJ,T 010649 : ,XTA,WS 010650 : C,AOX,BЫ/BB. 010651 : C,ATX,BЫ/BB. 010652 : B CTAP:,BSS, 010653 : ,XTA,=:0001 010654 : C,ATX,NU STR. 010655 : ,XTA,. 010656 : C,ATX,LASTORD 010657 : C,ATX,TEK AДP. 010658 : C,XTA,MБ ИHФ. 010659 : ,ATX,WS1 010660 : ,AAX,=:777. 010661 : ,ATX,WS. 010662 : ,UZA,OUT БYФ. 010663 : C,XTA,BЫ/BB. 010664 : ,ASN,64-10.ЗAДAHЫ ЗOHЫ 010665 : ,ARX, 010666 : ,U1A,OШHAБOP.-HET 010667 : ,ASN,64-1 010668 : ,AUX,=000777 00000 00777. 010669 : ,AOX,WS. 010670 : C,ATX,MБ ИHФ. 010671 : ,ATX,WS2 010672 : C PПPEДEЛEHИE MECTA БYФEPE. 010673 : C ПPИ OШИБKE ПPИKAЗ ИГHOPИPYETCЯ. 010674 : 15,VJM,FORM INF 010675 : C ПOCTAHOBKA ФЛAГA 'SEND'-A B ШKAЛЫ. 010676 : ,XTA,WS1 010677 : C,ATX,MБ ИHФ 010678 : ,XTA,B24 010679 : C,AOX,NUMBUS.PAЗPEШИM 010680 : C,ATX,NUMBUS.BBOД 010681 : ,XTA,SAVW1.1 ПPИ SEND 010682 : ,AOX,SCSEND 010683 : ,ATX,SCSEND 010684 : ,XTA,BCH.0-BBOД,1-BBOД БEЗ NNNN 010685 : ,AOX,SCЖДY 010686 : ,ATX,SCЖДY 010687 : ,XTA,BEGZ 010688 : ,AAX,BCH 010689 : ,AOX,SAVW1 010690 : ,U1A,SEND0 010691 : ,XTA,ZBCH.OTKAЗ OT 010692 : ,AAX,SCЖДY.PEЖИMA ЖДY 010693 : ,ATX,SCЖДY 010694 : SEND0:,BSS, 010695 : T,VZM,NEXT.ПPOCTOЙ BBOД 010696 : ,XTA,WS2 010697 : C,ATX,MБ ИHФ 010698 : R,VTM,BB1. 010699 : ,ITA,R. 010700 : C,ATX,RET SCAN.CKAHИPOBAHИE 010701 : BB1:,XTA,=6H*READ .ПPИ ДOBBOДE 010702 : T,VJM,SCAN. 010703 : ,XTA,=:0001 010704 : C,ARX,NU STR. 010705 : C,ATX,NU STR. 010706 : T,VTM,BB1.ПOCЛE SCAN'A 010707 : M,VIM,NEXT S.CKAHИPOBAHИE 010708 : ,UJ,NEXT. 010709 : C ======================= 010710 : ПOДCKAЗ:,BSS, 010711 : C,XTA,MБИHФ.ЗAДAH БYФEP 010712 : ,AAX,=:777 010713 : ,UZA,OUT БYФ.-HET 010714 : T,VTM,TBLOWR 010715 : R,VTM,ANAL 010716 : ,UJ,REDOUT 010717 : C ========= ЗAПИCЬ KAPTЫ HA БYФEP 010718 : TAKECARD:,BSS, 010719 : C HAЧAЛO KAPTЫ HAXOДИTCЯ B WS 010720 : C П/П ПOИCKA ЭTAЛOHA ДЛЯ BЫДAЧИ 010721 : C ПOДCKAЗKИ BBOДA 010722 : T,VTM,TEXTS-2 010723 : TC:T,UTM,2 010724 : T,XTA,.ЭTAЛOH 010725 : ,UZA,T/CARD 010726 : ,AEX,WS 010727 : ,ASN,64+8.5 CTAPШ.БAЙT 010728 : ,U1A,TC 010729 : T,XTA,1 010730 : ,AAX,=377 010731 : ,UZA,T/CARD 010732 : ,ATI,T.CЛEДYЮЩAЯ 010733 : T,UTM,TEXTS.ПOДCKAЗKA 010734 : R,VTM,REDOUTN 010735 : T/CARD:,BSS, 010736 : ,XTA,BCH 010737 : ,AAX,TAKESC 010738 : ,U1A,TCARD 010739 : ,XTA,BCH 010740 : ,AOX,TAKESC 010741 : ,ATX,TAKESC 010742 : C,XTA,BЫ/BB 010743 : ,ASN,64-11 010744 : ,AUX,=77700 0000 0777 010745 : ,ATX,WS 010746 : C,XTA,MБИHФ 010747 : ,AAX,=:777 010748 : ,AOX,WS 010749 : C,ATX,MБИHФ 010750 : TCARD:,BSS,.ПPOДOЛЖEHИE 010751 : T,MTJ,PP 010752 : T,VJM,WRITE 010753 : PP,MTJ,T 010754 : ,XTA,=:0001 010755 : C,ARX,NUSTR.+1 010756 : C,ATX,NUSTR 010757 : R,UJ, 010758 : C ..... 010759 : C ПPИKAЗ 'BЫBOДИTЬ ПO L CTPOK': 010760 : BЫBOД:T,VTM,1.1 OПEPAHД 010761 : R,VJM,OPERANDS. 010762 : ,ASN,64-1 010763 : C,ATX,LPAG 010764 : ,UJ,NEXT. 010765 : C-------- 010766 : C------TEЛEГPAMMA OПEPATOPY:TEЛ--- 010767 : TEL OP:,BSS, 010768 : C,XTA,A STR 010769 : ,FUN,76B 010770 : ,UJ,NEXT 010771 : C===== 'ПYCTOЙ' ПPИKAЗ 010772 : DUMMY:,BSS, 010773 : C,XTA,NUMBUS.PEЖИM BBOДA 010774 : ,AAX,B24 010775 : ,UZA,IF LIST.-HET 010776 : ,XTA,SC SEND 010777 : ,AAX,B CH 010778 : ,U1A,NEXT.EMPTY CARD 010779 : ,XTA,BEGZ.BBOД БEЗ NNNN 010780 : ,AAX,BCH 010781 : ,UZA,IF TELE.-HET 010782 : ,AEX,BEGZ 010783 : ,ATX,BEGZ 010784 : ,XTA,ZBCH 010785 : ,AAX,SCЖДY 010786 : ,ATX,SCЖДY 010787 : IF TELE:,BSS, 010788 : ,XTA,SCTER.TEЛE-ЗAДAЧA 010789 : ,AAX,BCH 010790 : ,UZA,TER UP.-HET 010791 : ,AOX,SCЖДY.-BOCCTAHOBИM 010792 : ,ATX,SCЖДY 010793 : TER UP:,BSS, 010794 : T,VTM,NEW TASK 010795 : C ДOCБPOC И BOЗBPAT B KOM.PEЖИM 010796 : ,UJ,CHAEND 010797 : IF LIST:,BSS, 010798 : ,XTA,LISC.BHYTPИ ЛИCTA 010799 : ,AAX,BCH 010800 : ,UZA,IF LAST.-HET 010801 : C,XTA,LPAG 010802 : ,AAX,=:777.ПOBTOPHAЯ 010803 : C,ATX,LPAG.YCTAHOBKA L 010804 : T,VTM,-22 010805 : ,UJ,NNS 010806 : IF LAST:,BSS, 010807 : C,XTA,LASTORD 010808 : ,UZA,DUM1 010809 : ,ATX,WS 010810 : ,UJ,AN0 010811 : DUM1:,BSS, 010812 : C,XTA,MБИHФ 010813 : ,AAX,=:777.БYФEP ЗAДAH 010814 : ,UZA,OUT БYФ. = HET 010815 : ,UJ,NEXT 010816 : C===== ПPИKAЗ : ЛИCT NЗOHЫ 010817 : LIST:,BSS,. 010818 : C 010819 : C...... PACПE4ATKA BBEДEHHOГO ПAKETA 010820 : C...... OБPATHAЯ BЫДAЧA 010821 : C 010822 : C...... CMЫCЛ ШKAЛ, CBЯЗAHHЫX C ПPИKAЗOM - 'ЛИCT' 010823 : C 010824 : C LISC - HAXOДИMCЯ BHYTPИ ПPИKAЗA - 'ЛИCT' 010825 : C LISC1 - ИЩEM ЗAДAHHЫЙ OБPAЗ 010826 : C LISC2 - 'ЛИCT' C HOMEPAЦИEЙ/БEЗ 010827 : C 010828 : T,VTM,6.C PEAKЦИEЙ HA + 010829 : R,VJM,OPERANDS. 010830 : ,UZA,LIS 0 010831 : ,ASN,64+38 010832 : ,ASN,64-38 010833 : ,ATX,WS 010834 : ,XTA,LISC2. - ПPИЗHAK 010835 : ,AOX,BCH. 'ПEЧATЬ 010836 : T,V1M,LIS N 010837 : ,AEX,BCH 010838 : LIS N:,ATX,LISC2 010839 : C,XTA,BЫ/BB. 010840 : ,AAX,CL OUT. 010841 : ,AOX,WS. 010842 : ,AOX,B48 010843 : C,ATX,BЫ/BB. 010844 : LIS 0:,UIA,FI LIST. 010845 : ,XTA,LI SC. 010846 : ,AAX,B CH.ПPИKAЗ - 'ЛИCT' 010847 : ,UIA,LIS1.CAM B CEБE 010848 : FI LIST:,XTA,LI SC. 010849 : ,AOX,B CH. 010850 : ,ATX,LI SC. 010851 : T,VJM,CHA END.HA ДOCБPOC 010852 : C,XTA,MБ ИHФ. 010853 : ,AAX,=:777. 010854 : ,ATX,WS. 010855 : T,VTM,OUT БYФ.ПOДCKAЗKA 010856 : ,UZA,LIS1 0. 'БYФEP' 010857 : C,XTA,BЫ/BB. 010858 : ,ASN,64-1. 010859 : ,AAX,=:777 010860 : ,ASN,64+9. 010861 : ,AOX,WS. 010862 : C,ATX,MБ ИHФ. 010863 : ,XTA,. 010864 : LIST B:C,ATX,NUSTR 010865 : C,ATX,TEK AДP. 010866 : LIS1:,BSS,. 010867 : T,VTM,1-23 010868 : C,XTA,LPAG 010869 : ,AAX,=:777 010870 : ,UZA,NNS 010871 : ,ASN,64+9 010872 : C,AEX,LPAG 010873 : ,AAX,=:000 777 010874 : ,UZA,NEXT 010875 : NNS:C,XTA,NU STR.HOMEP CTPOKИ 010876 : ,ARX,=:0001.+1 010877 : C,ATX,NU STR. 010878 : ,XTA, 010879 : CL STR:C,WTC,ASTR 010880 : T,ATX,22 010881 : T,VLM,CL STR 010882 : T,VJM,GIVECARD.ЗA OЧEP. CTPOKOЙ 010883 : ,UIA,LIS2.HE KOHEЦ 010884 : C,XTA,TEKAДP 010885 : ,UZA,NON TEXT 010886 : ,XTA,BCH 010887 : ,AAX,LISC1.ИCKAЛИ ЛИ 010888 : ,UZA,LIST E.OБPAЗ - HET 010889 : T,VTM,T HETOБP.ДИAГHOCTИKA 010890 : R,VJM,RED OUT.'HET OБPAЗA' 010891 : ,UJ,LIST E 010892 : NON TEXT:T,VTM,T NONTX.HETEKCTOBAЯ 010893 : R,VJM,RED OUT. ИHФOPMAЦИЯ 010894 : LIST E:,BSS,.KOHEЦ ЛИCTИHГA 010895 : T,VTM,NEW TASK. 010896 : LIS1 0:,BSS, 010897 : C,XTA,MБ ИHФ.BOCCT OT 010898 : ,AAX,=:777.ПOPЧИ PEЗ-OM 010899 : C,ATX,MБ ИHФ 010900 : W,VTM,1-3. 010901 : LIS1 1:W,XTA,LI SC2. 010902 : ,AAX,ZBCH 010903 : W,ATX,LI SC2. 010904 : W,VLM,LIS1 1 010905 : ,XTA,SC BLNL. 010906 : ,AAX,ZBCH 010907 : ,ATX,SC BLNL. 010908 : T,UJ,. 010909 : LIS2:,BSS, 010910 : ,XTA,BCH.ПPOBEPKA: 010911 : ,AAX,LISC1.ИЩEM OБPAЗ 010912 : ,UZA,OUT LIS. HET 010913 : C,WTC,ASTR. 010914 : AS,VTM,-1. 010915 : AS,XTA,. 010916 : ,AEX,B48. 010917 : ,UIA,LIS3. 010918 : AS,ATX,. 010919 : C,XTA,NU STR. 010920 : ,ARX,=7776 7777 7777 7777 010921 : C,ATX,NU STR. 010922 : LIS 3:C,XTA,MACKA OБ 010923 : ,U1A,LIS3/1 010924 : C,XTA,NUSTR 010925 : C,AEX,ЭTOБPAЗ 010926 : ,AAX,=:7777 7777.4 ЦИФPЫ B 48-37 010927 : ,UJ,LIS3/2 010928 : LIS3/1:T,VTM,11 010929 : R,VJM,OPERANDS.ЗA TEK. OБPAЗOM 010930 : C,AEX,ЭT OБPAЗ. 010931 : C,AAX,MACKA OБ. 010932 : LIS3/2:T,VTM,LIS1.ПOCЛE SCAN'A 010933 : ,UIA,NEXT S.OБPAЗ HE COBПAЛ 010934 : ,XTA,BCH. 010935 : ,AEX,LISC1. - ПPИЗHAK 010936 : ,ATX,LISC1.'ПOИCK OБPAЗA' 010937 : R,VJM,KIL BL 010938 : OUT LIS:R,VTM,LIS1. 010939 : T,VTM,23 010940 : C===== OTБPACЫBAHИE XBOCT.ПPOБEЛOB И HYЛEЙ 010941 : LIS4:C,WTC,ASTR 010942 : T,XTA,-1 010943 : ,ATX,WS 010944 : N,VTM,0 010945 : LIS5:,ASN,64+8 010946 : ,ATX,WS1 010947 : ,YTA, 010948 : ,UZA,LIS6 010949 : ,AEX,=:1 010950 : ,U1A,LIS7 010951 : LIS6:N,UTM,-8 010952 : ,XTA,WS1 010953 : ,U1A,LIS5 010954 : C..... BCE CЛOBO = HYЛИ + ПPOБEЛЫ 010955 : ,UJ,LIS8 010956 : LIS7:,XTA,FULWOR 010957 : N,ASN,64 010958 : ,AAX,WS 010959 : LIS8:C,WTC,ASTR 010960 : T,ATX,-1 010961 : ,U1A,OUTL 010962 : T,UTM,-1 010963 : T,V1M,LIS4 010964 : ,UJ,OUTL. 010965 : NEXT S:,BSS,. 010966 : C...... OPГAHИЗAЦИЯ CKAHИPOBAHИЯ 010967 : ,ITA,T.AДPEC BOЗBPATA 010968 : C,AEX,RETSCAN 010969 : ,AAX,=77777 010970 : C,AEX,RETSCAN 010971 : C,ATX,RET SCAN. 010972 : ,XTA,BCH.ECTЬ ЛИ OБMEH 010973 : ,AAX,SC WAIT. 010974 : ,UZA,NEXT S1. 010975 : C,XTA,RET ADR. 010976 : ,ASN,64+15. 010977 : ,AAX,=77777. 010978 : ,UZA,NEXT S1. 010979 : ,AEX,=77777. 010980 : ,UIA,HAЧAЛO. 010981 : NEXT S1:,XTA,B CH. 010982 : ,AOX,RE MT. 010983 : ,ATX,RE MT. 010984 : ,UJ,HAЧAЛO. 010985 : C===== ПPИKAЗ : ДOH NCTPOKИ 010986 : ДOH:T,VTM,3 010987 : R,VJM,OPERANDS 010988 : ,UZA,OШHAБOP 010989 : ,ASN,64-1 010990 : T,VZM,ДOH 1.= БEЗ'+' 010991 : C,ARX,NU STR 010992 : ДOH1:,BSS,.48-37PP 010993 : C,ATX,ЭT OБPAЗ 010994 : ,XTA, 010995 : C,ATX,MACKA OБ 010996 : ,UJ,CTA ЭT 010997 : C===== ПPИKAЗ : ДO OБPAЗ 010998 : SCAN LIS:,BSS,. 010999 : C...... ЗAДAHИE ЭTAЛOHHOГO OБPAЗA 011000 : T,VTM,4. 011001 : R,VJM,OPERANDS.ЗA ЭTAЛOHOM 011002 : ,UZA,CTA ЭT.CTAPЫЙ ЭTAЛOH 011003 : C,ATX,ЭT OБPAЗ. 011004 : CTA ЭT:,XTA,BCH.= ПPИЗHAK 011005 : ,AOX,LISC 1. ПOИCKA 011006 : ,ATX,LISC 1 011007 : ,XTA,LISC.ПPOBEPKA 011008 : ,AAX,BCH.BHYTPИ ЛИCTA 011009 : ,UIA,LIS1.ДA - ПPOДOЛЖEHИE 011010 : ,UJ,NEXT.HET - CЛEД.KAPTA 011011 : ЭK*71:,BSS,.ДЛЯ T E P 011012 : C,WTC,ASTR 011013 : ,XTA, 011014 : ,AAX,=177777 011015 : ,U1A,CHAEND 011016 : W1,VTM,1-NSHI 011017 : T,VTM,THETЗ 011018 : LOOPJ:W1,XTA,INFEX+NJ 011019 : C,AEX,NUMBUS 011020 : ,AAX,=1777 011021 : ,UZA,HAШJ 011022 : W1,VLM,LOOPJ 011023 : ,UJ,RO NEW 011024 : HAШJ:,XTA,BCH 011025 : ,AOX,SCTER 011026 : ,ATX,SCTER 011027 : ,XTA,BCH 011028 : ,AOX,SCЖДY 011029 : ,ATX,SCЖДY 011030 : R,VTM,ANAL 011031 : ,UJ,ЖДY IN 011032 : CHAEND:,BSS,. 011033 : C,XTA,NUMBUS.БЛOKИPYEM 011034 : ,AOX,B24.BBOД 011035 : ,AEX,B24 011036 : C,ATX,NUMBUS 011037 : ,XTA,BCH 011038 : ,AAX,БЫЛKOД 011039 : ,AAX,TAKESC. 011040 : T,UZA,.БYФEP ПYCT 011041 : ,AEX,TAKESC. 011042 : ,ATX,TAKESC. 011043 : C,XTA,TEKAДP. 011044 : ,AOX,E FIL. 011045 : C,ATX,TEKAДP. 011046 : ,UJ,WRITE. 011047 : C 011048 : C ====== ПPИKAЗ "HOB" 011049 : C 011050 : HOB:,XTA,ZBCH 011051 : ,AAX,LISC2 011052 : ,ATX,LISC2 011053 : T,VJM,CHA END 011054 : ,XTA,= 7 7777 7777 7777 011055 : C,AOX,MБ ИHФ 011056 : C,ATX,MБ ИHФ 011057 : C ======= ПPИKAЗ PEЗ NN - ПPOCMOTP PEЗYЛЬTATOB 011058 : PEЗ1:,XTA,BCH 011059 : ,AOX,LISC 011060 : ,ATX,LISC 011061 : R,VJM,KILBL 011062 : ,XTA, 011063 : ,UJ,LISTB 011064 : C============= ПPИKAЗЫ ПYCKOB ЗAДAЧ 011065 : TPR:,XTA,=200 011066 : ,UJ,T/PR 011067 : TNP:,XTA,=300 011068 : T/PR:PP,VTM,4000B 011069 : ,UJ,JSTART1 011070 : ПYCK:PP,VTM,0 011071 : ,UJ,JSTART 011072 : TEPП:PP,VTM,4000B 011073 : ,UJ,JSTART 011074 : RUNП:PP,VTM,14000B 011075 : ,UJ,JSTART 011076 : CЛYП:PP,VTM,10002B 011077 : ,UJ,JSTART 011078 : CЛAП:PP,VTM,14002B 011079 : ,UJ,JSTART 011080 : CЛOП:,UTC,10002B.CЛA 011081 : OTЛП:PP,VTM,6000B.+OTЛ 011082 : ,UTC,=40 0000 011083 : JSTART:,XTA, 011084 : JSTART1:,ATX,WS2.ПEPEXB.AЦПY 011085 : ,XTA, 011086 : C,ATX,ЭT OБPAЗ 011087 : C,ATX,MACKA OБ 011088 : C,XTA,BЫ/BB 011089 : T,VJM,ГAШBB 011090 : C,XTA,ASTR 011091 : ,ATI,15 011092 : ,AAX,=77777 011093 : ,*50,12 011094 : ,XTA,=600000 011095 : ,*50,12 011096 : 14,UTM,-1 011097 : 14,VZM,OPERZON 011098 : 14,UTM,1-4 011099 : 14,VIM,OШHAБOP 011100 : C,ATX,ЭT OБPAЗ.ИMЯ KOЛOДЫ 011101 : ,ITA,PP.OTЛAДKA 011102 : ,AAX,=2000.C MONSYS 011103 : ,U1A,ЗAПP.ЗAПPEЩEHA 011104 : ,ATX,WS 011105 : ,XTA,=400 0000 011106 : C,ATX,MACKA OБ 011107 : PP,UTM,1 011108 : ,UJ,COMCST0 011109 : OPERZON:,ATX,WS.ЗOHA 011110 : ,AAX,=777 011111 : :,U1A,*+1 011112 : PP,VZM,OШHAБOP 011113 : NEXTOPER:,XTA,=600000 011114 : ,*50,12 011115 : 14,UTM,-4 011116 : 14,VIM,OPERSHIF 011117 : C,ATX,ЭT OБPAЗ 011118 : ,UJ,NEXTOPER 011119 : OPERSHIF:,ASN,64-29 011120 : 14,UTM,4-1 011121 : 14,VZM,TO SHI 011122 : 14,UTM,1-6 011123 : 14,V1M,OШHAБOP 011124 : PP,VZM,COMCST0."ПYCK" 011125 : C 011126 : C ПPOBEPИM, ДOЛЖHЫ ЛИ MЫ OTДABATЬ TEPMИ- 011127 : C HAЛЬHYЮ ЗAДAЧY B PYKИ ПЛAHИPOBЩИKA. 011128 : C HE БYДEM ЭTOГO ДEЛATЬ, ECЛИ COДEPЖИMOE 011129 : C ЯЧEЙKИ *PL/MT OTЛИЧHO OT HYЛЯ, A TAKЖE 011130 : C ECЛИ ECTЬ HAБOP B 1-24 PP. T.P.-4. 011131 : C HAБPAHHYЮ OПEPATOPOM ШKAЛY TV-KAHAЛOB 011132 : C ДOПOЛHЯEM ШKAЛOЙ, ПOMEЩEHHOЙ (ПPИ ГEHE- 011133 : C PAЦИИ ДИCПETЧEPA) B 48-25 PP. *PL/MT. 011134 : C COДEPЖИMOE 24-1 PP. *PL/MT CЛYЖИT MACKOЙ 011135 : C HAБOPA HA T.P.-4. 011136 : C 011137 : T,VTM,*PL/MT.TAM ПPИЗHAK 011138 : ,*65,4.TAM ШKAЛA 011139 : T,AAX, 011140 : ,ASN,64-24 011141 : T,AOX, 011142 : ,UZA,COMCST0.HA AEROPLAN 011143 : C ПPOBEPИM BOЗMOЖHOCTЬ USER'A ЗAПYCTИTЬCЯ 011144 : C ПPЯMO HA CЧET. TEПEPЬ BCE ЗABИCИT OT 011145 : C ДOБPOTЫ OПEPATOPA И ПOPЯДOЧHOCTИ USER'A. 011146 : C,WTC,ASTR 011147 : ,WTC,XNT 011148 : ,ASN,64-24 011149 : ,AAX,B48 011150 : ,UZA,ЗAПP.OПEPATOPOM 011151 : PP,UTM,1.REAL 011152 : 14,VTM,NSHI 011153 : CH TASK:,BSS,.HET ЛИ YЖE ЗAДAЧ 011154 : 14,VZM,COMCST1 011155 : 14,UTM,-1 011156 : 14,XTA,INFBA 011157 : ,AAX,=77 0000 0000 011158 : ,U1A,CH TASK.ИЗ OЧEPEДИ BBOДA 011159 : 14,XTA,INFEX 011160 : ,AAX,=14000 011161 : ,UZA,CH TASK."ПYC" - MOЖHO 011162 : ,AEX,=14000 011163 : ,UZA,CH TASK."RUN" - MOЖHO 011164 : 14,XTA,INFEX 011165 : C,AEX,NUMBUS 011166 : ,AAX,=1777 011167 : ,U1A,CH TASK 011168 : FULQU:T,VTM,TFULQ.COBECTЬ 011169 : ,UJ,RO NE. HAДO ИMETЬ! 011170 : CH BUS:,XTA,WNN 011171 : ,AAX,=77 011172 : ,UZA,FULQU 011173 : T,V1M,FULQU 011174 : T,VTM,TSPBU."ЗAHЯT" 011175 : ,UJ,RO NE 011176 : TO SHI:,BSS, 011177 : ,UZA,OШHAБOP 011178 : R,VJM,CHESHI 011179 : C,XTA,NUMBUS 011180 : ,AAX,=1777 011181 : ,ASN,64+4 011182 : ,U1A,OШHAБOP.FOR WHITE ONLY 011183 : T,V1M,RO NE.ПЛOX.ШИФP 011184 : PP,VLM,COMCST2 011185 : COMCST0:,XTA,=:777 00002 777 011186 : ,UJ,COMCST 011187 : COMCST1:,BSS, 011188 : ,*65,Ш/FULL 011189 : ,ATX,WNN 011190 : ,*65,6 011191 : ,ASN,64+23 011192 : ,AAX,WNN 011193 : :,U1A,*+1 011194 : ,XTA,WNN 011195 : :,AAX,=377400.Ш20-Ш10 011196 : ,ATX,WNN 011197 : COM1:,XTA,WNN 011198 : ,UZA,FULQU 011199 : ,ANX, 011200 : ,ATI,W1 011201 : ,YTA, 011202 : W1,ASN,64 011203 : ,ATX,WNN 011204 : W1,*65,*YCЫ 011205 : ,AAX,=77777 00000 011206 : ,U1A,COM1 011207 : COMCST2:,ITA,W1 011208 : ,AOX,=:777 00003 777 011209 : COMCST:,BSS, 011210 : ,ATX,WNN.ИHФ.CЛOBO ПYCKA 011211 : ,XTA,WS 011212 : ,UZA,GET US 011213 : ,ASN,64-30 011214 : C П/П ФOPMИPOBAHИЯ INFEX 011215 : C OБPAЩEHИE ПO PEГИCTPY R. 011216 : C HA CYMMATOPE HOMEP ЗOHЫ ПAKETA 011217 : C B PAЗPЯДAX 39:31 011218 : C B PEГИCTPE PP ЗAДAH TИП ПYCKA 011219 : C БYФEP ЗAДAH B MБИHФ(C) 011220 : ,AAX,=:000777 011221 : ,ATX,WS. 011222 : C,XTA,MБИHФ 011223 : ,AAX,=:777 011224 : ,UZA,OUTБYФ 011225 : ,AOX,WS 011226 : ,ATX,WS 011227 : ,AAX,B48 011228 : ,ASN,64+34 011229 : ,ATX,WS1 011230 : ,XTA,WS 011231 : 15,VJM,FORM INF. 011232 : ,APX,=77 0777. 011233 : ,AOX,WS1 011234 : ,ATX,WS.FILE INPUT 011235 : GET US:,BSS, 011236 : C,XTA,NUMBUS. 011237 : ,AAX,=1777 011238 : ,AOX,WS. + NUMBUS 011239 : ,ATX,WS. 011240 : ,XTA,WNN.COБCTBEHHO 011241 : ,*72,3.ПYCK 011242 : ,ATX,WS1.OTBET 011243 : 14,MTJ,W1.ДHЗ 011244 : W1,VZM,CH BUS 011245 : C,WTC,ASTR 011246 : ,XTA,XNT 011247 : ,ASN,64-36 011248 : ,AOX,=100 0000 011249 : C OTMEЧAEM TEPMИHAЛ B INFBA 011250 : W1,ATX,INFBA-NFM 011251 : T,VJM,ДAЙ ИПЗ 011252 : C 011253 : C... ЗAПИCЬ B NAME ЗAДAЧИ 011254 : C 011255 : C,XTA,ЭT OБPAЗ 011256 : W2,*52,NAM/J 011257 : ,AEX,=6H 011258 : ,ARX,=6H'177''177''177''177''177''177' 011259 : ,AAX,=6H'200''200''200''200''200''200' 011260 : ,ACX,.6,5,..,1 HE ПPOБEЛOB 011261 : ,ASN,64-3 011262 : ,ATI,14 011263 : ,XTA,FULWOR 011264 : 14,ASN,64 011265 : ,AEX,FULWOR 011266 : W2,*52,NAM/J+2 011267 : ,ITA,PP 011268 : ,AAX,=1 011269 : ,UZA,TO BATCH 011270 : PP,UTM,-1 011271 : ,ITA,PP 011272 : ,AAX,=2 011273 : ,UZA,KAK OTЛ 011274 : PP,UTM,-2.ПO "CЛY" 011275 : C,XTA,NUMBUS.HEKOTOPЫE 011276 : ,AAX,=1777.ПOЛYЧAЮT 011277 : ,ASN,64+4.MAЛEHЬKYЮ 011278 : ,U1A,KAK OTЛ.ПPИBИЛEГИЮ 011279 : ,XTA,B48 011280 : W1,ASN,64-1 011281 : ,AEX, 011282 : ,*53,ПAPTИЗAH 011283 : ,XTA,=200 0000.-"ИHKOГHИTO" 011284 : ,UJ,MOЖ BCE 011285 : KAK OTЛ:,BSS, 011286 : C,XTA,MACKA OБ.9/MONSYS 011287 : ,UZA,MOЖ OTЛ. - HET 011288 : MOЖ BCE:,AOX,WS 011289 : ,ATX,WS 011290 : MOЖ OTЛ:,BSS, 011291 : ,XTA,WS2 011292 : ,AOX,=7300 0000 0000 0010 011293 : W2,*52,REGSCAL 011294 : ,AAX,=40 0000 011295 : ,UZA,HEOTЛПYC 011296 : ,ASN,64+11.OCA 100 011297 : W2,*52,26B 011298 : HEOTЛПYC:,BSS, 011299 : ,ITA,PP.TИП 011300 : ,AOX,WS.ПYCKA 011301 : W1,ATX,INFEX-NFM 011302 : ,AAX,=14000 011303 : ,AEX,=14000 011304 : ,U1A,FLY 011305 : ,XTA,B48 011306 : W1,ASN,64-1 011307 : ,AEX, 011308 : ,*53,БЛOKAЦПY 011309 : FLY:,BSS, 011310 : C 011311 : C... BHИMAHИE ! HAXOДЯCЬ B KPИT.ИHTEPBAЛE 011312 : C "ДAЙ ИПЗ", OCTEPEГAЙTECЬ BЫДABATЬ 011313 : C ЗACEMAФOPEHHЫE ЭKCTPAKOДЫ ! 011314 : C MOЖHO ПOЛYЧИTЬ KЛИHЧ. 011315 : C 011316 : ,XTA,WS1.TOЛKHEM 011317 : ,FUN,212B.ЗAДAЧY 011318 : HECЛ:W1,XTA,INFEX-NFM 011319 : ,AAX,=2 0000 011320 : ,U1A,NO37 011321 : W1,XTA,INFEX-NFM 011322 : ,ASN,64+33 011323 : ,UZA,OTЛYП 011324 : C,MTJ,T 011325 : C,J+M,T 011326 : T,J+M,T 011327 : T,XTA,OLDBUF 011328 : ,ASN,64-36 011329 : ,UZA,TRANSFIL 011330 : C... ПEPEДAЧA БYФEPA (MAT.HOMEP=37) 011331 : ,ITA,W1 011332 : ,ASN,64-18 011333 : ,ATX,WS 011334 : W1,XTA,INFEX-NFM 011335 : ,ASN,64+42 011336 : ,AOX,WS 011337 : ,ATX,WS 011338 : ,*65,ДHЗ 011339 : ,ASN,64-6 011340 : ,AOX,WS 011341 : ,AOX,=37 0000.MAT.HOMEP 011342 : ,*57,2400B.ПEPEДAЧA 011343 : ,UJ,NO 37 011344 : C 011345 : C... ПEPEДAЧA ФAЙЛA 011346 : TRANSFIL:,BSS, 011347 : T,XTA,OLDBUF 011348 : W2,*52,NAMBUFER 011349 : T,XTA,OLDBUF+1 011350 : W2,*52,NAMBUFER+1 011351 : T,XTA,OLDBUF+2 011352 : W2,*52,NAMBUFER+2 011353 : T,XTA,OLDBUF+3 011354 : W2,*52,NAMBUFER+3 011355 : OTЛYП:,BSS, 011356 : R,VJM,OTЛYП1 011357 : C 011358 : NO37:,BSS, 011359 : W1,XTA,INFEX-NFM 011360 : ,AAX,=14000 011361 : :,U1A,*+1 011362 : ,UTC,TJBATCH-TJSTAR 011363 : :T,VTM,TJSTAR 011364 : ,XTA,BCH 011365 : ,AOX,SCTER 011366 : ,ATX,SCTER 011367 : ,XTA,BCH 011368 : ,AOX,SCЖДY 011369 : ,ATX,SCЖДY 011370 : ,XTA,.OTKAЗ OT 011371 : C,ATX,MБИHФ.БYФEPA 011372 : C,XTA,ЭT OБPAЗ 011373 : ,AEX,=6HKERMIT 011374 : :,U1A,*+1 011375 : ,UTC,END CHAN-NEW TASK 011376 : RO NEW:,BSS, 011377 : ERROR :,BSS, 011378 : R,VTM,NEW TASK 011379 : ,UJ,RED OUT 011380 : TO BATCH:,BSS, 011381 : ,XTA,WS2 011382 : ,AAX,=300 011383 : ,ASN,64-11 011384 : ,ATX,WS2 011385 : ,ITA,PP 011386 : ,ASN,64+2 011387 : ,ASN,64-6 011388 : ,AOX,=400 0000 011389 : ,AOX,WS2 011390 : ,AOX,WS 011391 : W1,ATX,INFEX-NFM 011392 : ,XTA,=7300 0000 0004 0010 011393 : W2,*52,REGSCAL 011394 : ,UJ,FLY 011395 : C 011396 : C... ECЛИ ЗAДAЧA ЗAПYЩEHA ПO ИMEHИ 011397 : C HEЛЬЗЯ ПOЛЬЗOBATЬCЯ OTЛAДЧИKOM 011398 : C 011399 : IFDEBUG:W1,XTA,INFEX-NFM 011400 : ,AAX,=400 0000 011401 : ,XTA, . A B ДYБHE MOЖHO ! 011402 : T,UZA, 011403 : ЗAПP:,BSS, 011404 : T,VTM,TЗAПP 011405 : ,UJ,RO NE 011406 : C 011407 : C... OTKAЗ OT БYФEPA 011408 : C 011409 : OTЛYП1:C,XTA,MБ ИHФ 011410 : ,ASN,64+39 011411 : ,ATI,14 011412 : R,UZA, 011413 : ,ASN,64+6 011414 : R,U1A,.7/M 011415 : C,ATX,MБ ИHФ 011416 : ,XTA,B48 011417 : 14,ASN,64-30B 011418 : ,*57,4000B 011419 : R,UJ, 011420 : CHE SHI:,BSS, 011421 : C..... ПOЛYЧEHИE ИЗ ШИФPA ДHЗ И ПPOBEPKA 011422 : ,ASN,64+29 011423 : ,AAX,=77 011424 : ,ATX,WNN 011425 : ,*65,XNF 011426 : ,ATX,WNF 011427 : ,*65,XNW 011428 : ,ATX,WNW 011429 : ,NTR,3 011430 : ,XTA,WNN 011431 : ,X-A,WNW 011432 : ,ATI,W1.= ДHЗ 011433 : T,VTM,T ERSH 011434 : ,A-X,WNF 011435 : R,U1A, 011436 : W1,*65,BITS 011437 : ,ATX,BIT 011438 : ,*65,Ш/FULL 011439 : ,AAX,BIT 011440 : R,UZA, 011441 : T,VTM, 011442 : W1,*65,*YCЫ 011443 : ,AAX,B21/16 011444 : R,UJ, 011445 : CПPAB:,BSS,. 011446 : W1,VTM,-NJ 011447 : C ====== CПPABKИ O CЧETHЫX ЗAДAЧAX 011448 : ,XTA, 011449 : C,ATX,TEKAДP 011450 : CПP1:W1,XTA,INFEX+NJ. ПOИCK 011451 : C,AEX,NUMB US.HA ШИФPE 011452 : ,AAX,=1777 011453 : ,UZA,CПP.HAШA 011454 : PP,VZM,CПP2.ЧYЖAЯ 011455 : W1,XTA,INFEX+NJ 011456 : ,AAX,=200 0000 011457 : ,U1A,CПP2 011458 : C,WTC,ASTR.ЗAПYЩEHA 011459 : ,XTA,XNT. C HAШEГO 011460 : ,ASN,64-36. TEPMИHAЛA 011461 : ,AOX,=100 0000.MYЛЬTИTAЙПOM 011462 : W1,AEX,INFBA+NJ. MИHYЯ 011463 : ,AAX,=:0077 0077 77.ПЛAHИPOBЩИK 011464 : ,UZA,CПP 011465 : ,XTA,=6H*'''''''''' 011466 : CПP:,BSS, 011467 : ,ATX,SYM 011468 : W1,UTM,NLMAT 011469 : T,VJM,ДAЙИПЗB 011470 : W1,UTM,-NLMAT 011471 : W1,*65,BITS+NLMAT 011472 : ,ATX,WS 011473 : W2,V1M,ISTSK 011474 : ,*65,SCENDJO 011475 : ,AAX,WS.KOHЧAETCЯ ЛИ 011476 : ,UZA,CПP 2.HET BOOБЩE 011477 : ISTSK:,BSS, 011478 : C,WTC,ASTR 011479 : 15,VTM, 011480 : ,ITA,PP 011481 : ,ASN,64-15 011482 : ,ITS,W1 011483 : 15,AOX, 011484 : C,ATX,TEKAДP 011485 : W1,*65,*YCЫ+NLMAT 011486 : ,ASN,64-27 011487 : ,AUX,=6H'''''7''7''''' 011488 : ,AOX,=6H Ш00: 011489 : ,AOX,SYM 011490 : W2,V1M,ISTSK1.HOPMA. 011491 : ,XTS,=6HCЧET O 011492 : ,XTS,=6HKOHЧEH 011493 : ,XTS,=6H : 011494 : PP,VZM,E MT 011495 : ,XTA,=6H - 011496 : ,UJ,E MT 011497 : C 011498 : ISTSK1:,BSS, 011499 : W2,XTS,BISTIME 011500 : R,VJM,T TRAN.ПEPEKOДИPOBKA 011501 : W2,XTS,CPTIME 011502 : R,VJM,T TRAN. 011503 : 15,ATX,.CЧET. BPEMЯ 011504 : PP,V1M,LTIM 011505 : W1,*65,BITS+NLMAT 011506 : ,ATX,WS.БИT ЗAДAЧИ 011507 : ,*65,SCALCLTA. 011508 : ,AAX,WS. 011509 : T,VTM,=6H MЛ : 011510 : ,UIA,E CHET.ЖДET MЛ 011511 : W,VTM,LISTSTRA-1 011512 : T,VTM,=6H : 011513 : ,XTA,WS 011514 : ,ANX, 011515 : ,ASN,64-42 011516 : ,ATX,WS.ДHЗ 011517 : CHT1:W,UTM,1 011518 : W,*65, 011519 : ,UZA,ECHET 011520 : ,ATX,WS1 011521 : ,AEX,WS 011522 : ,AAX,=:77 011523 : ,U1A,CHT1 011524 : ,XTA,WS1 011525 : ,AAX,=100 011526 : ,UZA,CHT1 011527 : ,XTA,WS1 011528 : ,APX,=0070 0000 0000 1600 011529 : ,ASN,64+42 011530 : ,ATI,R 011531 : R,*65,T1MT-30B 011532 : ,AEX,WS 011533 : ,AAX,=:77 011534 : ,U1A,CHT1 011535 : T,VTM,=6HГT.MФ: 011536 : E CHET:T,XTA,. 011537 : EMT:,BSS, 011538 : ,XTS,=6H BЫ/BB 011539 : W1,XTS,INFBA+NJ 011540 : ,ASN,64-12 011541 : ,AUX,=6H'''7''7''7''7''' 011542 : ,AOX,=6H=0000 011543 : W2,VZM,CПP1/2 011544 : W2,XTS,NAM/J 011545 : W2,XTS,NAM/J+1 011546 : W2,XTS,NAM/J+2 011547 : CПP1/2:,BSS, 011548 : ,XTS, 011549 : ,XTS,LISC2 011550 : ,AAX,ZBCH 011551 : ,ATX,LISC2 011552 : R,VJM,OUTL 011553 : C,XTA,TEKAДP 011554 : ,ATI,W1 011555 : ,ASN,64+15 011556 : ,ATI,PP 011557 : CПP2:W1,VLM,CПP1 011558 : C,XTA,TEKAДP 011559 : ,U1A,NEXT.YДAЧHO 011560 : PP,VZM,KAK/CONT 011561 : ,UJ,DIAGN.HET ЗAДAЧИ 011562 : LTIM:T,VTM,=6H00.00- 011563 : W2,XTA,LIMTIME 011564 : W2,A-X,BISTIME 011565 : ,U1A,E CHET 011566 : R,VTM,EMT 011567 : T TRAN:,BSS ,. 011568 : C...... ПOДПP-MA ПEPEBOДA BPEMEHИ B ISO 011569 : ,ATX,TIN 011570 : ,NTR,6 011571 : ,X-A,=R3600.0 011572 : ,U1A,OVTIM 011573 : ,XTA,TIN 011574 : 14,VTM,1-4 011575 : TTR1:,BSS, 011576 : ,NTR,0 011577 : 14,A/X,NTIM+3 011578 : ,NTR,3. 011579 : ,A+X,=I0. 011580 : ,ATX,DD. 011581 : ,AAX,=17. 011582 : ,ATX,SYM. 011583 : ,XTA,DN. 011584 : ,ASN,64-4. 011585 : ,AOX,SYM. 011586 : ,ATX,DN. 011587 : ,XTA,DD. 011588 : ,NTR,2. 011589 : 14,A*X,NTIM+3 011590 : ,X-A,T IN 011591 : ,ATX,TIN 011592 : 14,VLM,TTR 1 011593 : ,XTA,DN. 011594 : ,ASN,64-32. 011595 : ,AUX,=6H'17''17''''17''17''' 011596 : ,AOX,=6H00.00- 011597 : R,UJ, 011598 : OVTIM:,XTA,=6H**.**- 011599 : R,UJ, 011600 : ПYЛЬT:,BSS,. 011601 : C......... ПEPEДAЧA COOБЩEHИЯ ЗAДAЧE 011602 : W1,XTA,INFEX+NJ. ПOИCK 011603 : C,AEX,NUMB US. 011604 : ,AAX,=1777 011605 : ,UZA,З ECTЬ.HAШЛИ ЗAДAЧY 011606 : W1,VLM,ПYЛЬT 011607 : ,UJ,DIAGN.HET ЗAДAЧИ 011608 : З ECTЬ:,BSS, 011609 : W1,UTM,NLMAT 011610 : T,VJM,ДAЙ ИПЗ 011611 : W2,VZM,DIAGN 011612 : T,VTM,9.ЗA 011613 : R,VJM,OPERANDS.COOБЩEHИEM 011614 : R,VTM, 011615 : W2,*52,PULT 011616 : T,VTM,NEXT 011617 : ,UJ,ДAЙ/HA 011618 : C 011619 : C ===== ПPИKAЗ CHAN XXX 011620 : C 011621 : CH/XAP:C,WTC,ASTR 011622 : ,XTA,XNT 011623 : ,ATI,W 011624 : R,VJM,OPERANDS. T=8 011625 : ,UZA,CH/XAP1.TOЛЬKO BЫДAЧA 011626 : ,ASN,64-21 011627 : ,AEX, 011628 : ,XTA,=:0000 0077 7 011629 : W,*53,CIN 011630 : CH/XAP1:W,*65,CIN 011631 : ,ASN,64-18 011632 : ,AUX,=6H'7''7''7''''''' 011633 : ,AOX,=6H000'''''' 011634 : ,ATX,WS 011635 : T,VTM,WS 011636 : ,UJ,RO NE 011637 : OTKAЗ:,BSS,. 011638 : C ======== YБИTЬ ЗAДAЧY 011639 : T,VTM,1.1 OПEPAHД 011640 : R,VJM,OPERANDS 011641 : ,UZA,И1 011642 : ,ASN,64+9 011643 : R,VJM,CHE SHI.BEPHET W1=ДHЗ 011644 : T,VIM,RO NE 011645 : ,AAX,B21/16 011646 : ,UZA,DIAGN.HET ЗAДAЧИ 011647 : W1,UTM,-NLMAT 011648 : W1,XTA,INFEX+NJ 011649 : C,AEX,NUMBUS 011650 : ,AAX,=1777 011651 : ,U1A,DIAGN.ЧYЖ. ЗAДAЧA 011652 : ,*76,DEL CNT 011653 : И1:,BSS, 011654 : W1,XTA,INFEX+NJ 011655 : ,UZA,И2. 011656 : C,AEX,NUMB US. 011657 : ,AAX,=1777 011658 : ,U1A,И2 011659 : ,*76,DEL CNT.ИCKЛ. CO CЧETA 011660 : И2:W1,VLM,И1 011661 : ,UJ,DIAGN.HET ЗAДAЧИ 011662 : ПPOTOKOЛ:,BSS, 011663 : C BЫДAЧA HA ЭKPAH TEPMИHAЛA YПPABЛЯЮЩИX 011664 : C KAPT ПO MEPE ИX BЫПOЛHEHИЯ 011665 : W1,VTM,-NJ 011666 : T,VTM,1 011667 : R,VJM,OPERANDS 011668 : ,UZA,SEAR 011669 : ,ASN,64+9 011670 : R,VJM,CHE SHI.W1 - ДHЗ 011671 : ,UZA,DIAGN 011672 : W1,UTM,-NLMAT 011673 : W1,XTA,INFEX+NJ 011674 : C,AEX,NUMBUS 011675 : ,AAX,=1777 011676 : ,U1A,DIAGN 011677 : BIT/PRO:,BSS, 011678 : W2,*65,677B 011679 : ,AEX, 011680 : ,XTA,B48 011681 : W1,*53,INFBA+NJ 011682 : ,UJ,NEXT 011683 : SEAR:,BSS, 011684 : W1,XTA,INFEX+NJ 011685 : ,UZA,S1 011686 : C,AEX,NUMBUS 011687 : ,AAX,=1777 011688 : ,U1A,S1 011689 : ,UJ,BIT/PRO 011690 : S1:W1,VLM,SEAR 011691 : ,UJ,DIAGN 011692 : ЖДYOБMEH:,BSS,. 011693 : C......... ПPOBEPKA KOHЦA OБMEHA 011694 : C,XTA,RETADR 011695 : ,ASN,64+20 011696 : ,AAX,=76000 011697 : ,FUN,200B.OПPOC CTATYCA ЛИCTA 011698 : ,ATI,14 011699 : 14,VZM,HEOБM.CBOБOДEH 011700 : 14,UTM,-1 011701 : 14,VZM,HEKO.ЗAKPЫT 011702 : 14,UTM,-1 011703 : 14,VIM,HEOБM.B ПOДKAЧKE 011704 : ,XTA,BCH 011705 : ,WTC,ASTERR 011706 : ,AOX, 011707 : ,WTC,ASTERR 011708 : ,ATX, 011709 : HE OБM:,BSS,. 011710 : ,XTA,SCWAIT 011711 : ,AOX,BCH 011712 : ,AEX,BCH 011713 : ,ATX,SCWAIT 011714 : C,XTA,RET ADR. 011715 : ,ASN,64+15. 011716 : ,ATI,W.AДPBOЗBPAT 011717 : W,VZM,HAЧAЛO.=OБMEHA HET 011718 : ,ITA,W. 011719 : ,ASN,64-15 011720 : C,AEX,RETADR.ГAШEHИE 011721 : C,ATX,RETADR.ПPИЗHAKOB 011722 : W,UTM,1. 011723 : W,VZM,HAЧAЛO. 011724 : W,UJ,-1. 011725 : HE KO:,XTA,SC WAIT. 011726 : ,AOX,B CH. 011727 : ,ATX,SC WAIT. 011728 : ,UJ,HAЧAЛO. 011729 : C 011730 : C ====== ПPИKAЗ ИCK NN - ИCKЛЮЧИTЬ 011731 : C ====== ФAЙЛ C БYФEPA BBOДA 011732 : C 011733 : ИCK1:12,VZM,DIAGN.HE БЫЛO 011734 : T,VJM,RO NE 011735 : :,ISO,6HГOTOB'' 011736 : C 011737 : C... OБЩAЯ ЧACTЬ ПEЧ, PEЗ, ИCK : 011738 : C 011739 : ПEЧ:,BSS, 011740 : ,UTC,1 011741 : PEЗ:,UTC,1 011742 : ИCK:W1,VTM, 011743 : R,VJM,KILBL 011744 : T,VTM,6 011745 : R,VJM,OPERANDS 011746 : ,ASN,64+38 011747 : ,UZA,OШHAБOP 011748 : C,ATX,TYP 011749 : ,ASN,64+6 011750 : ,U1A,OШHAБOP 011751 : 12,VTM,.ДЛЯ "ИCK" 011752 : ,XTA,LISC2 011753 : ,AOX,BCH 011754 : :T,VIM,*+1."+" 011755 : ,AEX,BCH 011756 : :,ATX,LISC2 011757 : W1,XTA,ИPП 011758 : ,ATI,T 011759 : ,ASN,64+24 011760 : ,ATI,W1 011761 : ,UJ,CAT I/O 011762 : ИPП:,Z00,40001B 011763 : ,Z00,ИCK1 011764 : :,Z00,40000B 011765 : ,Z00,PEЗ1 011766 : :,Z00,20000B 011767 : ,Z00,NEXT 011768 : C 011769 : C======== ПOИCK CBOИX ЗAДAЧ B KATAЛOГAX "OB" 011770 : C KBB И KBЫ 011771 : KAK/CONT:,UTC,1 011772 : OЧEPEДЬ:,UTC,1 011773 : CATINP:,UTC,1 011774 : CATOUT:R,VTM, 011775 : R,XTA,I/O ADR 011776 : ,ATI,W1 011777 : ,XTA, 011778 : C,ATX,TYP 011779 : T,VJM,CAT I/O.BEPHET 011780 : C П/П BEPHET ИP3 = AДPEC KAT. 011781 : R,MTJ,W1 011782 : ,XTA,LISC2 011783 : ,AAX,ZBCH.БEЗ HOMEPOB 011784 : ,ATX,LISC2 011785 : R,VJM,KIL BL 011786 : C 011787 : C TEKAДP XPAHИT : 011788 : C 25-39 : AДPEC ПO KATAЛOГY 011789 : C 1-15 : O-BЫBOД, 1-BBOД 011790 : C 16 : 1=BCE ГOTOBЫE ЗAДAЧИ 011791 : C 17 : 1=ПPOДOЛЖEHИE ПPИKAЗA "KAK" 011792 : C 24 : ПPИЗHAK YCПEXA 011793 : C 42-47 : CЧETЧИK ПACПOPTOB 011794 : C 011795 : :,ITA,PP 011796 : ,ASN,64-24 011797 : W1,ARX,I/O ADR 011798 : LSTR:C,ATX,TEKAДP 011799 : C,XTA,L PAG 011800 : ,AAX,=:777 011801 : ,UZA,CL STR1 011802 : ,ASN,64+9 011803 : C,AEX,L PAG 011804 : ,AAX,=:000777 011805 : ,UZA,NEXT 011806 : C ПOДГOTOBKA CTPOKИ KATAЛOГA BЫBOДA: 011807 : C ИCПOЛЬЗYЮTCЯ B ЭЛ-TE KAT.BЫBOДA: 011808 : C 0-E CЛ 48P=1 - ГOTOB K ПEЧATИ 011809 : C 47P=1 - CБPOC 011810 : C 46P=1 - ЗAHЯT PACПEЧATKOЙ 011811 : C 48-46=0 YЖE PACПEЧATAH 011812 : C 43P=1 - ECTЬ HEBЫBEДEHHAЯ ГPAФИKA 011813 : C 39P=1 - B OЧEPEДИ HA ПEЧATЬ 011814 : C 36-31 - N BЫBOДA 011815 : C 30-25 - N BBOДA ИЛИ 0 011816 : C 24-19 - N ЛAБ(ECЛИ ЗAДAH N BBOДA) ИЛИ 0 011817 : C 21P=1 - OT ПB 011818 : C 19P=1 - OT MT 011819 : C ИHAЧE - ИЗ CETИ 011820 : C 1-E CЛ 10-1P - N PASS 011821 : C 2-4 CЛ - NAME (ISO) 011822 : C 011823 : C 011824 : C ФOPMAT COOБЩEHИЯ: 011825 : C ИCЫЫBB NAME 011826 : C И-ИCTOЧHИK = -ПB 011827 : C C-CETЬ 011828 : C T-TEPMИHAЛ MT 011829 : C C-COCTOЯHИE=+-PACПEЧATЫBAETCЯ 011830 : C -ГOTOB K ПEЧATИ 011831 : C /-CБPOC 011832 : C *-PACПEЧATAH 011833 : C <-B OЧEPEДИ HA ПEЧATЬ 011834 : C G-ECTЬ HEBЫBEДEHHAЯ ГPAФИKA 011835 : C ЫЫ - HOMEP ПO KAT.BЫBOДA 011836 : C BB - HOMEP ПO KAT.BBOДA 011837 : C NAME - ИMЯ ПAKETA 011838 : C 011839 : C ПOДГOTOBKA CTPOKИ KATAЛOГA BBOДA: 011840 : C ИCПOЛЬЗYЮTCЯ B ГOЛOBHOM ЭЛ-TE ПACПOPTA: 011841 : C 0-E CЛ 48P=1 - BBOД ЗAKOHЧEH,ГOTOB K ПЛAHИPOBKE 011842 : C 47P=1 - ПAKET CЧИTAH (INPUTCAL) 011843 : C ЭЛEMEHTЫ KATAЛOГA OCBOБOЖДEHЫ 011844 : C 46P=1 - ЗAДAЧA CПЛAHИPOBAHA 011845 : C 37P=1 - ПPOДOЛЖEHИE ПACПOPTA 011846 : C 30-25 - N BBOДA 011847 : C 24-19 - N ЛAБOPATOPИИ: 011848 : C 21P=1 - OT ПB 011849 : C 19P=1 - OT MT 011850 : C ИHAЧE - ИЗ CETИ 011851 : C 1-E CЛ 10-1 - N PASS 011852 : C ( ПOKA TOЛЬKO ДЛЯ ЗAДAЧ TO MT ) 011853 : C 2-4 CЛ - NAME (ISO) 011854 : C 011855 : C ИCПOЛЬЗYETCЯ MACCИB INFBA(NJ) 011856 : C 36-31 - N BЫBOДA 011857 : C 30-25 - N BBOДA 011858 : C 24-19 - N ЛAБOPATOPИИ 011859 : C 011860 : C 011861 : C ФOPMAT COOБЩEHИЯ: 011862 : C ИCBB00 NAME 011863 : C И-ИCTOЧHИK (KAK ПO BЫBOДY) 011864 : C C-COCTOЯHИE=+-BBOДИTCЯ B "OB" 011865 : C -ГOTOBA K ПЛAHИPOBKE 011866 : C /-CЧET 011867 : C *-ПOCЧИTAHA 011868 : C BB - HOMEP ПO KAT.BBOДA 011869 : C NAME - ИMЯ ПAKETA 011870 : C 011871 : CLSTR1:C,XTA,TEKAДP 011872 : ,ATI,W1 011873 : ,ASN,64+15 011874 : ,AAX,=3 011875 : ,ATI,W2 011876 : C,XTA,TEKAДP 011877 : ,ASN,64+24 011878 : ,ATI,PP 011879 : C,XTA,TEKAДP 011880 : W1,ARX,NEWEL 011881 : ,UZA,ALL 011882 : C,ATX,TEKAДP 011883 : ,ITA,W1 011884 : ,ASN,64-36 011885 : PP,AAX, 011886 : ,U1A,CLSTR1.HE ГOЛOBA 011887 : W2,V1M,ГЗ/ 011888 : IFUS:,BSS, 011889 : PP,XTA,1 011890 : C,AEX,NUMBUS 011891 : ,AAX,=1777 011892 : CHN:,BSS, 011893 : ,U1A,CLSTR1.HE HAШ 011894 : PP,XTA,2 011895 : ,UZA,CLSTR1.NAME 011896 : C,WTC,ASTR 011897 : 15,VTM, 011898 : PP,XTA,1 011899 : ,ASN,64-19 011900 : ,ASN,64+31 011901 : ,AOX,=I0 011902 : ,NTR,6 011903 : ,E+N,64 011904 : ,A/X,=R60.0 011905 : C ACC = ACTP. BPEMЯ ФOPMИPOBAHИЯ B MИHYTAX 011906 : R,VJM,TTRAN 011907 : C 011908 : C... ФOPMИPOBAHИE "И" : 011909 : C 011910 : ,XTS,=6H'1''1''1' 011911 : PP,XTS, 011912 : ,ASN,64+18 011913 : ,AAX,=77 011914 : ,ATI,R.ЛAБ. 011915 : T,VTM,40B 011916 : R,UTM,-4 011917 : R,VZM,FORMИ. 011918 : T,VTM,103B.C 011919 : R,UTM,4-1 011920 : R,VIM,FORMИ 011921 : T,VTM,124B.T 011922 : W1,VZM,FORMИ 011923 : PP,XTA,4 011924 : ,ASN,64+9 011925 : ,AAX,=3 011926 : ,UZA,FORMИ 011927 : T,VTM,104B.D 011928 : FORMИ:,ITA,T 011929 : ,ASN,64-40 011930 : C 011931 : C... ФOPMИPOBAHИE "ЫЫBB" : 011932 : C 011933 : PP,XTS, 011934 : ,ASN,64-12 011935 : :W1,VZM,*+1 011936 : ,AAX,=:0077 011937 : ,AUX,=6H'''''7''7''7''7' 011938 : ,AOX,=6H''''0000 011939 : 15,AOX, 011940 : PP,XTS, 011941 : C 011942 : C.... ФOPMИPOBAHИE "C" : 011943 : W1,VIM,FCIN 011944 : ,AAX,=:01 011945 : T,VTM,107B.G 011946 : ,U1A,FORMC 011947 : PP,XTA, 011948 : T,VTM,57B./ 011949 : ,ASN,64-1 011950 : ,ARX, 011951 : ,UZA,FORMC 011952 : ,ASN,64-1 011953 : T,VTM,53B.+ 011954 : ,ARX, 011955 : ,UZA,FORMC 011956 : ,ASN,64-7 011957 : T,VTM,74B.< 011958 : ,ARX, 011959 : ,UZA,FORMC 011960 : PP,XTA, 011961 : T,VTM,40B 011962 : ,ARX, 011963 : ,UZA,FORMC 011964 : T,VTM,52B.* 011965 : ,UJ,FORMC 011966 : FCIN:T,VTM,57B 011967 : ,ARX, 011968 : ,U1A,FORMC 011969 : PP,XTA, 011970 : ,AAX,=:3 011971 : T,VTM,40B 011972 : ,UZA,FORMC 011973 : T,VTM,52B 011974 : FORMC:,ITA,T 011975 : ,ASN,64-32 011976 : FORMNAM:15,AOX, 011977 : ,XTS,=6H '1''1''1''1' 011978 : W1,VZM,FORMLIM 011979 : PP,XTS,5 011980 : ,ASN,64+36 011981 : ,AOX,=I0 011982 : R,VJM,TTRAN 011983 : FORMNAM*:,XTS,=6H '1''1''1''1' 011984 : PP,XTS,2 011985 : PP,XTS,3 011986 : PP,XTS,4 011987 : ,XTS, 011988 : ,XTS, 011989 : R,VJM,OUTL.BЫДAЧA 011990 : C,XTA,TEKAДP 011991 : ,AOX,B24.YCПEX 011992 : ,UJ,LSTR 011993 : FORMLIM:PP,XTS,1 011994 : ,ASN,64+30 011995 : ,AOX,=I0 011996 : ,A/X,=R72.0 011997 : ,A+X,=R0.999 011998 : ,NTR,7 011999 : ,A+X,=I0 012000 : ,ATX,WS 012001 : ,XTA,I/ENCOD 012002 : ,*50,15 012003 : ,XTA,SYM 012004 : ,UJ,FORMNAM* 012005 : ГЗ/:PP,XTA, 012006 : W2,UJ,* 012007 : :,AAX,=:3000 0000 04."OЧEPEДЬ" 012008 : ,UJ,CHN 012009 : :,AAX,=:3."KAK" 012010 : ,U1A,CLSTR1.=HE ГЗ 012011 : ,UJ,IFUS.CBOЯ-ЛИ 012012 : I/ENCOD:,Z03,WS 012013 : ,Z00,SYM 012014 : NEWEL:,OCT,0040 0005.BЫBOД 012015 : :,OCT,0040 0020.BBOД 012016 : ALL:,AAX,B24 012017 : ,U1A,NEWTASK 012018 : T,VJM,LIS1 0.ГAШEHИE ШKAЛ 012019 : DIAGN:,BSS, 012020 : T,VTM,T HETЗ 012021 : RO NE:,BSS, 012022 : R,VTM,NEXT. 012023 : ,UJ,RED OUT. 012024 : C========= ПOДПPOГPAMMЫ BBOДA/BЫBOДA 012025 : C 012026 : C...... ЗHAЧEHИE PAЗPЯДOB PEГИCTPA N 012027 : ' 7P. - БEЗ ПOPЧИ CTPOKИ 012028 : ' 6P. - C HOMEPAMИ 012029 : ' 5P. - PEЖИM: IN/OUT 012030 : ' 4P. - ПEPEПИCЬ CЛOBAMИ 012031 : ' 3P. - KPACHЫЙ 012032 : ' 2P. - ЧEPHЫЙ 012033 : ' 1P. - БЫCTPЫЙ/MEДЛEHHЫЙ 012034 : C...... 012035 : C 012036 : YЖE:T,VTM,TBYSKEY 012037 : R,VTM,CEKOH 012038 : ,UJ,REDOUT 012039 : OUTБYФ:T,VTM,TБYФ 012040 : R,VTM,ANAL 012041 : REDOUT:N,VTM,4. 012042 : ,UJ,OUT/IN. 012043 : OUT/IN Q:N,VTM,5. 012044 : ,UJ,OUT/IN. 012045 : OUT L:N,VTM,102B. 012046 : C,XTA,LPAG 012047 : ,ARX,=:000 001 012048 : ,AAX,=:777 377 012049 : C,ATX,LPAG 012050 : C,WTC,ASTR. 012051 : AS,VTM,-1. 012052 : AS,XTA,. 012053 : ,AEX,B48. 012054 : ,UZA,OL1. 012055 : ,XTA,BCH. 012056 : ,AAX,LISC2. 012057 : ,UZA,OL3. 012058 : N,UTM,40B. 012059 : ,UJ,OUT/IN. 012060 : OL1:C,XTA,NU STR. 012061 : ,ARX,=7776 7777 7777 7777 012062 : C,ATX,NU STR. 012063 : AS,XTA,1. COBCEM 012064 : ,ASN,64+40.ПYCTAЯ CTPOKA 012065 : AS,ATX,. 012066 : ,UZA,OL4. 012067 : ,XTA,=6H = '1''1' 012068 : OL2:AS,ATX,. 012069 : ,UJ,AFT MI1. 012070 : OL3:,XTA,=6H'1''1''1''1''1''1' 012071 : ,UJ,OL2. 012072 : OL4:C,XTA,LPAG 012073 : ,ARX,=7777 7677 7777 7777 012074 : C,ATX,LPAG 012075 : ,XTA,BCH 012076 : ,AAX,LISC2. 012077 : R,UZA,. - ДA 012078 : KIL BL:,BSS,. 012079 : ,XTA,ZBCH 012080 : ,AAX,SC VID. 012081 : ,ATX,SC VID. 012082 : ,XTA,ZBCH 012083 : ,AAX,SC BLNL. 012084 : ,ATX,SC BLNL. 012085 : R,UJ,. 012086 : IN:,BSS,. 012087 : C...... OПPEДEЛEHИE: HYЖHO ЛИ HOMEPOBATЬ 012088 : C,XTA,NUMBUS.БЛOK. ЛИ 012089 : ,AAX,B24.ЗAПИCЬ 012090 : ,UZA,INWN.-ДA 012091 : ,XTA,BCH 012092 : ,AAX,TAKESC. 012093 : ,UIA,NUM IN. 012094 : C,XTA,MБИHФ. 012095 : ,AAX,=:777. 012096 : ,UZA,IN WN. 012097 : NUM IN:N,VTM,62B.C HOMEPAMИ 012098 : ,UJ,OUT/IN. 012099 : REPEAT:,BSS, 012100 : C,WTC,RETADR 012101 : R,VTM, 012102 : ,AAX,SC ЖДY 012103 : ,U1A,ЖДY IN 012104 : IN WN:N,VTM,22B.БEЗ HOMEPOB 012105 : ,UJ,OUT/IN. 012106 : FG0:N,VTM,104B. 012107 : ,UJ,OUT/IN. 012108 : ПPOBЖДY:,BSS, 012109 : ,XTA,SCЖДY 012110 : ,AAX,BCH 012111 : ,U1A,ЖДY IN 012112 : T,VJM,CHAEND 012113 : T,VTM,TLIMT 012114 : ,UJ,REDOUT.R=ANAL 012115 : ЖДY:,BSS,.SET PEЖИM ЖДY 012116 : ,XTA,BCH 012117 : ,AOX,SCЖДY 012118 : ,ATX,SCЖДY 012119 : R,VTM,ANAL 012120 : ЖДY IN:C,XTA,ASTR. 012121 : ,AAX,=77777. 012122 : ,AOX,IW ЖДY. 012123 : C,ATX,JOB .ДЛЯ PEЖИMA 012124 : ,XTA,SC SEND 012125 : ,AAX,B CH . ГACИM LINE FEED 012126 : ,UZA,REDY JOB 012127 : ,UJ,KILL NL 012128 : CHE VID:,BSS, 012129 : ,XTA,BCH 012130 : ,AAX,SC VID 012131 : ,AOX,LISC2. 012132 : ,AEX,LISC2. 012133 : ,UZA,REDY JOB 012134 : ,AEX,SC VID 012135 : ,ATX,SC VID 012136 : KILL NL:,BSS, 012137 : C,XTA,JOB 012138 : ,AEX, B43 012139 : WR JOB:C,ATX,JOB. 012140 : ,UJ,REDY JOB. 012141 : ABORT:,BSS,.БЫXOД БEЗ ДOCБP 012142 : ,AAX,=:0000 04.БЫЛ BBOД 012143 : ,U1A,CEKOH.-ДA 012144 : C,ATX,RETADR 012145 : ,XTA,ZBCH 012146 : ,AAX,SCWAIT 012147 : ,ATX,SCWAIT 012148 : C 012149 : C----- KOHEЦ CEAHCA B DAY-FILE 012150 : C ( ) 012151 : C,WTC,ASTR 012152 : ,XTA,XNT 012153 : ,ASN,64-42 012154 : ,AUX,=6H'''''''7''7''' 012155 : ,AOX,=6H BЫBOД 012577 : C* B41/40#0 -> BBOД 012578 : C* 012579 : C*********************************************** 012580 : C --- COMMON БЛOKИ И П/П ДД 012581 : C 012582 : *ИПД:LC,BLOCK,(1),XNFM(5),XNCM 012583 : NFM:,WEQ,XNFM 012584 : NCM:,WEQ,XNCM 012585 : *ИПK:LC,BLOCK,ИПK 012586 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR 012587 : ДHЗ:LC,BLOCK,(1),BITJ 012588 : SMASAV: LC,BLOCK,SAVAC,SAVSR(2),SAVI15(2),SAVI13 012589 : INF7CH:LC,BLOCK,NЗAД,W110,NЗCB,W107(7),FBACK 012590 : ,CONT,(1),FLACT70 012591 : ALBUF:,EQU,435B 012592 : *LINKPAR:LC,BLOCK,(1),SC/CONC 012593 : NRESOFF:,SUBP, 012594 : RETURN :,SUBP, 012595 : R37BR :,SUBP, 012596 : NRTERM7:,SUBP, 012597 : C 012598 : C --- B ИПЗ 012599 : C 012600 : *135:B,BLOCK,STR(16) 012601 : *600:B,BLOCK,SAVR13,SAVR15,SAVR27,SAVR32, 012602 : ,CONT,SAVR12(4),IW71,ADR,FL/IN 012603 : WS:,EQU,IW71 012604 : C 012605 : C --- KOHCTAHTЫ 012606 : C 012607 : C77777:,LC,1 012608 : C377:,LC,1 012609 : B2:,EQU,756B 012610 : B1:,EQU,757B 012611 : DELCAT:,EQU,20B 012612 : DELSTR:,EQU,400B 012613 : DISREG:,LC,1 012614 : C ---------------------------------------- 012615 : B:13,REL,B 012616 : ,WTC,ГYC 012617 : 15,VTM,SAVR13 012618 : ,XTA,SAVI13 012619 : ,XTS,SAVI15 012620 : ,ITS,27B 012621 : ,ITS,32B 012622 : ,AOX,SAVSR 012623 : ,ITS,12 012624 : ,ITS,11 012625 : ,ITS,10 012626 : ,ITS,9 012627 : ,XTS,SAVAC 012628 : C --- 012629 : ,WTC,ГYC 012630 : 15,VTM, 012631 : ,ASN,64+24 012632 : 15,ATX,ADR 012633 : ,ASN,64+20 012634 : ,AAX,C17 012635 : ,ATI,14 012636 : ,AEX,C17 012637 : ,UZA,IND15 012638 : ,AEX,B2 012639 : ,UZA,IND13 012640 : 14,ITA, 012641 : ,UJ,L1 012642 : IND15:,XTA,SAVI15 012643 : ,UJ,L1 012644 : IND13:,XTA,SAVI13 012645 : ,UJ,L1 012646 : L1:15,ARX,ADR 012647 : ,AAX,C77777 012648 : 15,ATX,ADR 012649 : ,XTA,SAVAC 012650 : ,AAX,B41/40 012651 : 15,ATX,FL/IN 012652 : :,24,3 012653 : ,WTC,ДHЗ 012654 : 9,VTM, 012655 : 15,XTA,FL/IN 012656 : ,UIA,SETNT 012657 : 15,XTA,ADR 012658 : ,ATI,11 012659 : 12,VTM,1-16 012660 : LRW1:15,WTC,SAVR27 012661 : :,24, 012662 : 11,XTA, 012663 : :,24,3 012664 : 12,UTC,15 012665 : 15,ATX,STR 012666 : ,AAX,C377 012667 : ,UZA,SETNT 012668 : 11,UTM,1 012669 : 12,VLM,LRW1 012670 : SETNT:9,XTA,ИПK-NFM 012671 : ,ASN,64+36 012672 : ,AAX,C17 012673 : ,ATI,10.NT 012674 : ,ARX,B1 012675 : ,ASN,64-4 012676 : ,ATI,11 012677 : 11,UTM,20B 012678 : ,ITA,11 012679 : 15,ATX,WS 012680 : ,UJ,MAINW 012681 : WAITW:,BSS, 012682 : ,24,3 012683 : ,XTA,DISREG 012684 : ,ATI,27B 012685 : ,*57,3 012686 : MAINW:,24,2003B 012687 : ,XTA,NЗCB 012688 : ,UZA,WAITW 012689 : 15,XTA,WS 012690 : ,ATI,11 012691 : ,WTC,ALBUF 012692 : 11,UTM,.STR BUF 012693 : 10,MTJ,12 012694 : ,WTC,ALBUF 012695 : 12,UTM,.NT BUF 012696 : 12,XTA, 012697 : ,UIA,WAITW 012698 : 12,XTA,DELCAT 012699 : ,UZA,ACT70 012700 : 11,XTA,DELSTR 012701 : ,AEX,/C/ 012702 : ,UZA,ACT70 012703 : ,AEX,/C/ 012704 : ,AEX,/S/ 012705 : ,UZA,WAITW 012706 : 15,XTA,FL/IN 012707 : ,UIA,MAINRC 012708 : ACT70:,XTA,W107 012709 : ,UIA,MW 012710 : ,XTA,NЗAД 012711 : ,UIA,TOFL70 012712 : ,XTA,COMPIR 012713 : ,AAX,SC/CONC 012714 : ,UZA,TOFL70/ 012715 : ,XTA,COMPIR 012716 : ,AAX,B48/9 012717 : ,ATX,COMPIR 012718 : ,033,34B 012719 : ,XTA,B1 012720 : ,ATX,W110 012721 : ,ATX,FBACK 012722 : ,XTA,NЗCB 012723 : ,ATX,NЗAД 012724 : 13,MTJ,9 012725 : 15,VJM,R37BR 012726 : 9,MTJ,13 012727 : ,WTC,ГYC 012728 : 15,VTM, 012729 : ,UJ,MW 012730 : TOFL70:,AEX,NЗCB 012731 : ,UZA,MW 012732 : TOFL70/:,XTA,B1 012733 : ,ATX,FLACT70 012734 : MW:,BSS, 012735 : 15,XTA,FL/IN 012736 : ,UIA,IN 012737 : 9,VTM,1-16 012738 : LRW2:9,UTC,15 012739 : 15,XTA,STR 012740 : 9,UTC,15 012741 : 11,ATX, 012742 : ,AAX,C377 012743 : ,UZA,OK1 012744 : 9,VLM,LRW2 012745 : OK1:,XTA,B2 012746 : 12,ATX, 012747 : ,UJ,OK 012748 : IN:,XTA, 012749 : 12,ATX,DELCAT 012750 : ,XTA,B1 012751 : 12,ATX, 012752 : OK:,24,3 012753 : 15,XTA,FL/IN 012754 : ,UZA,EXIT 012755 : WAITR:,BSS, 012756 : ,24,3 012757 : ,XTA,DISREG 012758 : ,ATI,27B 012759 : ,*57,3 012760 : MAINR:,24,2003B 012761 : ,XTA,NЗCB 012762 : ,UZA,WAITR 012763 : 12,XTA,DELCAT 012764 : ,UZA,WAITR 012765 : 11,XTA,DELSTR 012766 : ,AEX,/C/ 012767 : ,UZA,ACT70 012768 : ,AEX,/C/ 012769 : ,AEX,/S/ 012770 : ,UZA,WAITW 012771 : MAINRC:,BSS, 012772 : 11,UTM,DELSTR 012773 : 12,UTM,DELCAT 012774 : ,XTA, 012775 : 12,ATX, 012776 : 9,VTM,1-16 012777 : LRW3:9,UTC,15 012778 : 11,XTA, 012779 : 9,UTC,15 012780 : 15,ATX,STR 012781 : ,AAX,C377 012782 : ,UZA,OK2 012783 : 9,VLM,LRW3 012784 : OK2:,24,3 012785 : 9,VTM,1-16 012786 : 15,XTA,ADR 012787 : ,ATI,12 012788 : LRW4:,BSS, 012789 : 9,UTC,15 012790 : 15,XTA,STR 012791 : 15,WTC,SAVR27 012792 : :,24, 012793 : 9,UTC,15 012794 : 12,ATX, 012795 : :,24,3 012796 : ,AAX,C377 012797 : ,UZA,EXIT 012798 : 9,VLM,LRW4 012799 : C --- 012800 : EXIT:15,UTM,SAVR12+4 012801 : 15,XTA, 012802 : ,STI,9 012803 : ,STI,10 012804 : ,STI,11 012805 : ,STI,12 012806 : :,24,2003B 012807 : ,ATX,SAVSR 012808 : ,STI,33B 012809 : ,STI,27B 012810 : ,STX,SAVI15 012811 : ,STX,SAVI13 012812 : ,XTA,REFNR 012813 : ,ATX,SAVSR+1.SAVAR 012814 : ,UJ,NRESOFF+2 012815 : REFNR:,Z00,NRTERM7 012816 : ,Z00,RETURN 012817 : C--------------------------------------- 012818 : C17:,LOG,17 012819 : MASK IW:,LOG, 774 77777 540 77777 012820 : B41/40:,OCT,003 012821 : /C/:,ISO,6H'45'C'''''''' 012822 : /S/:,ISO,6H'45'S'''''''' 012823 : B48/9:,LOG, 7777 7777 7777 7400 012824 : ,END, 012825 : ПEPФOPAЦ:,NAME, 012826 : C 012827 : C****************************** 012828 : C****** HEPEЗИДEHT Э071 ****** 012829 : C****************************** 012830 : C 012831 : C..... CTPYKTYPA IW71 HA BXOДE : 012832 : C -------------------------------- 012833 : C 48:45, 39:25 - ИHДEKCИPOBAHHЫЙ AHAЧ. 012834 : C 24:21, 15:1 - ИHДEKCИPOBAHHЫЙ AKOH. 012835 : C 44:40 - K O П 012836 : C 0 - BЫBOД HA П/Л 012837 : C 1 - BЫBOД HA П/K 012838 : C 3 - БYФEPИЗAЦИЯ ГPAФИKИ 012839 : C 20 - HE ЗAKPЫBATЬ ЗAДAЧY 012840 : C 012841 : C 012842 : C..... ИHФOPMAЦИOHHOE ПOЛE ДИCПETЧEPA : 012843 : C -------------------------------- 012844 : * И П Д :LC,BLOCK,XNF,XNFM,XNFD(3) 012845 : ,CONT,XNC,XNCM(2),Ш/CЛYЖ,Ш/FULL 012846 : XLSMB:,EQU,XNF+26B 012847 : LISTFLAG:,EQU,XNF+35B 012848 : C/BUF:,EQU,XNF+37B 012849 : OUTJOBSC :,EQU,XNF+52B 012850 : БЫЛ*64:,EQU,XNF+55B 012851 : EXTSC :,EQU,XNF+63B 012852 : БЫЛ*ПФ:,EQU,XNF+76B 012853 : C 012854 : NF :,WEQ,XNF 012855 : NFM:,WEQ,XNFM 012856 : NFD:,WEQ,XNFD 012857 : NC :,WEQ,XNC 012858 : NCM:,WEQ,XNCM 012859 : C 012860 : C..... ИHФOPM.ПOЛЯ KAHAЛOB : 012861 : C --------------------------- 012862 : * И П K :,LC,1 012863 : INFEX:,EQU,*ИПK+NCM 012864 : * И П K 1 :LC,BLOCK,PRTSTAT 012865 : C 012866 : C..... БИTЫ : 012867 : C ------------- 012868 : *677:B,BLOCK,BITS 012869 : ,CONT,B48,B47,B46,B45,B44 012870 : ,CONT,B43,B42,B41,B40,B39 012871 : ,CONT,B38,B37,B36,B35,B34 012872 : ,CONT,B33,B32,B31,B30,B29 012873 : ,CONT,B28,B27,B26,B25,B24 012874 : ,CONT,B23,B22,B21,B20,B19 012875 : ,CONT,B18,B17,B16,B15,B14 012876 : ,CONT,B13,B12,B11,B10,B9 012877 : ,CONT,B8 ,B7 ,B6 ,B5 ,B4 012878 : ,CONT,B3 ,B2 ,B1 012879 : C 012880 : C..... HAЗBAHHЫE БИTЫ : 012881 : C ---------------------- 012882 : PCBUZ:,EQU,B1.ФЛAГ ПEPФOPAЦИИ 012883 : BLBIT:,EQU,B44.БЛOKИP.HA TP 7 012884 : BNOCLOS:,EQU,B20.БЛOK.ЗAKPЫTИЯ ЗAДAЧИ 012885 : B R C :,EQU,B16.БИT ГOTOBHOCTИ ПИ 012886 : B R T :,EQU,B12.БИT ГOTOBHOCTИ ПЛ 012887 : C 012888 : C..... KOHCTAHTЫ ДИCПETЧEPA : 012889 : C --------- --------------- 012890 : DIS REG :,LC,1 012891 : C3:,LC,1 012892 : C7:,LC,1 012893 : C37 :,LC,1 012894 : C13:,LC,1 012895 : C77777 :,LC,1 012896 : C76000:,LC,1 012897 : B16/1 :,LC,1 012898 : B24/1 :,LC,1 012899 : B48/31 :,LC,1 012900 : C377:,LC,1 012901 : FULWOR:,LC,1 012902 : C 012903 : C..... ПOЛE MAЛOГO YПPЯTЫBAHИЯ : 012904 : C ----------------- --------- 012905 : SMASAV:LC,BLOCK,SAVAC,SAVSR 012906 : ,CONT,SAVAR,SAVI15 012907 : ,CONT,SAVI14,SAVI13 012908 : ,CONT,SAVMIR,SAVS16 012909 : C 012910 : C..... ПPOЧИE COMMON-Ы ДИCПETЧEPA : 012911 : C ------------------------------- 012912 : *YCЫ :LC,BLOCK, Г Y C , RDSCAL 012913 : ,CONT,COMMIR,COMPIR 012914 : ДHЗ :LC,BLOCK,(1),BITJ,ZBITJ 012915 : SCALES:LC,BLOCK,(2),S1CLTA,STCLTA(4),SCWPERF 012916 : N DIV :LC,BLOCK,(1),BR/PERF 012917 : YCTP :LC,BLOCK,XOЗПK(2),XOЗПЛ(2) 012918 : CON TIME:LC,BLOCK,(4),PTIME 012919 : *STATBUF:LC,BLOCK,(11),CTATПИ(2) 012920 : TPHYS:,LC,1 012921 : C 012922 : C..... ПOДПPOГPAMMЫ ДИCПETЧEPA : 012923 : C --------------------------- 012924 : TYP/PL:,SUBP, 012925 : COPY7 :,EQU,TYP/PL+1 012926 : TTPRINT:,SUBP, 012927 : NRES71 :,SUBP, 012928 : MACRO71*:,SUBP,.ПOBTOPHЫЙ BXOД 012929 : NRESCALL:,SUBP, 012930 : NRES OFF:,SUBP, 012931 : CLANEWTA:,SUBP, 012932 : CL OPER :,SUBP, 012933 : STATIST:,SUBP, 012934 : BOC ИПД :,SUBP, 012935 : NEWTA :,SUBP, 012936 : FULSAV :,SUBP, 012937 : SELECT :,SUBP, 012938 : RETURN :,SUBP, 012939 : TIME10:,SUBP, 012940 : ERRMACRO:,SUBP, 012941 : ERREXT:,SUBP, 012942 : NR/64 :,SUBP, 012943 : NRES064:,SUBP, 012944 : *WRBF64:,SUBP, 012945 : C 012946 : C..... XPAHИЛИЩE БAЗOBOГO PEГИCTPA : 012947 : C ----------------------------------- 012948 : BASE*NR:LC,BLOCK,(1),BASA 012949 : C 012950 : C..... ЯЧEЙKИ CBOEГO И П З : 012951 : C ---------------------------- 012952 : ST/EXCH:,EQU,-2 012953 : *100:B,BLOCK,REGSCAL(2),M72,BUFS27,M74,M75 012954 : *135:B,BLOCK,IW71 012955 : ,CONT,AC(3),R33,R32,R27(5),R12,R11 012956 : ,CONT,ENDMAT.MAT AДP.KOHЦA 012957 : ,CONT,BEGMAT.MAT AДP.HAЧAЛA 012958 : ,CONT,WS1(0) 012959 : ,CONT,ABUF.БYФEP ФИЗ.YCTP-BA 012960 : ,CONT,PMASK.MACKA ПPП 012961 : ,CONT,FL/END. 012962 : ,CONT,COUNT.CЧ-K CИMBOЛOB ПЛ 012963 : ,CONT,MAXCOUNT.K-BO CИMB.B ПOPЦИИ 012964 : ,CONT,SYMBOL.ПEPФOPИPYEMЫЙ CИMBOЛ 012965 : FL/END:I,BLOCK,COUNSI(2),SORTIR 012966 : STAT1:,EQU,571B 012967 : C 012968 : C..... ЯЧEЙKИ И П З PEДAKTИPOBAHИЯ 012969 : C ----------------------------- 012970 : И П P:,EQU,1000B 012971 : LB :,EQU,17B 012972 : CNT:,EQU,20B 012973 : BT :,EQU,22B 012974 : TE :,EQU,31B 012975 : EBUF:,EQU,32B 012976 : LBUF:,EQU,34B 012977 : SAVIR:,EQU,100B 012978 : BUFSAV:,EQU,ИПP+SAVIR 012979 : C 012980 : C... ИCПOЛЬЗYEMЫE ИHДEKC-PEГИCTPЫ 012981 : C ---------------------------- 012982 : C 012983 : *1:,BLOCK,AB,L,R,A 012984 : C========================================= 012985 : C 012986 : *TAKCA:LC,BLOCK,(6),CTP1.ЦEHA 6 CИMB.П/Л ИЛИ 1/24 П/K 012987 : BEGIN:13,REL,BEGIN. * * * 012988 : B:,BSS, 012989 : ,WTC,BASA 012990 : 13,VTM, 012991 : 15,VTM,48 012992 : ,UJ,OLD 71 012993 : C -------------------------- 012994 : C I БYФEPИЗAЦИЯ ПEPФOPAЦИИ I 012995 : C -------------------------- 012996 : BUFPUNCH:,BSS, 012997 : C... YПPЯЧEM KЛИEHTA (ДЛЯ HAЧAЛA) 012998 : 15,XTA,BUFS27-AC 012999 : ,ATI,27B 013000 : ,ITA,32B 013001 : ,ATI,33B 013002 : 15,UTM,BUFSAV-AC 013003 : 13,VJM,FULSAV+1 013004 : ,WTC,BASA.- BOCCTAHOBИM 013005 : 13,VTM,. БAЗY 013006 : ,WTC,ГYC 013007 : 15,VTM,И П P 013008 : ,ITA,15 013009 : 15,AEX,BT 013010 : ,AAX,C76000 013011 : 15,AEX,BT 013012 : 15,ATX,BT 013013 : 15,AEX,TE 013014 : ,AAX,C76000 013015 : 15,AEX,TE 013016 : 15,ATX,TE 013017 : ,ATI,AB 013018 : 15,AEX,EBUF 013019 : ,AAX,C76000 013020 : 15,AEX,EBUF 013021 : 15,ATX,EBUF 013022 : C... ФOPMИPOBAHИE CЛYЖEБHOГO CЛOBA 013023 : ,XTA,SAVAC 013024 : ,ASN,64-7 013025 : ,ASN,64-2 013026 : ,YTA, 013027 : ,ATI,R.0,1,3 013028 : ,AEX,C3 013029 : ,U1A,NOMARK 013030 : ,XTA,B43.ПPИЗHAK 013031 : 15,AOX,STAT1-ИПP.ПOПAДET 013032 : 15,ATX,STAT1-ИПP.B KATAЛOГ 013033 : NOMARK:,BSS, 013034 : R,XTA,BITS 013035 : ,ASN,64+8 013036 : ,AOX,SAVAR 013037 : ,ARX,M/PU 013038 : ,ATI,L.= ДЛИHA ПOPЦИИ 013039 : : ,24,3 013040 : R,VJM,WRIT W.= ЗAПИШEM EГO 013041 : 15,XTA,BEGMAT-ИПP 013042 : ,ATI,A.= AДPEC HAЧAЛA 013043 : L,UTM,1 013044 : C... ПEPEПИCЬ ПOPЦИИ B MAЛЫЙ БYФEP 013045 : TRAN:,BSS, 013046 : 15,WTC,BUFS27-ИПP 013047 : : ,24, 013048 : A,XTA, 013049 : : ,24,3 013050 : R,VJM,WRIT W 013051 : A,UTM,1 013052 : L,UTM,-1 013053 : L,V1M,TRAN 013054 : C... BOCCTAHOBЛEHИE ИПЗ KЛИEHTA 013055 : C (ЯЧEЙKИ 00-25) 013056 : ,WTC,ГYC 013057 : A,VTM, 013058 : L,VTM,-25B 013059 : : ,24,2003B 013060 : RESET:,BSS, 013061 : 15,UTC,SAVIR 013062 : L,XTA,25B 013063 : A,ATX, 013064 : A,UTM,1 013065 : L,VLM,RESET 013066 : TO NROF:,BSS, 013067 : ,XTA,M/REF 013068 : ,UJ,NRESOFF 013069 : M/REF:,Z00,NRES71 013070 : ,Z00,SELECT 013071 : C 013072 : C*** БЛOK ЗAПИCИ CЛOBA B MAЛЫЙ БYФEP 013073 : C 013074 : WRIT W:,BSS,. CЛOBO 013075 : AB,ATX,.= HA MECTO 013076 : AB,UTM,1 013077 : C... KOЛЬЦEBATOCTЬ MAЛOГO БYФEPA 013078 : ,ITA,AB 013079 : 15,AEX,EBUF 013080 : ,U1A,WW 1 013081 : 15,WTC,LBUF 013082 : WW 1:AB,UTM, 013083 : C... HE ПOЛOH ЛИ MAЛЫЙ БYФEP 013084 : 15,XTA,LB.= ЗAHЯTO 013085 : ,ARX,C77777. CTPOKOЙ 013086 : ,AAX,C77777 013087 : 15,ATX,LB 013088 : ,UZA,TO WRBF.= HA CБPOC 013089 : C... BOЗBPAT ИЗ ЗAПИCИ CЛOBA 013090 : WW/RET:,XTA, 013091 : AB,ATX, 013092 : C ЗAПOMHИM AДPEC KOHЦA ДAHHЫX B M.БYФ (TE) 013093 : C B *WRBF64 TE YПPABЛЯET ЦИKЛOM CБPOCA HA Ф.Л. 013094 : C *WRBF OБHOBИT CЧETЧИK CBOБ.MECTA (LB) И 013095 : C YKAЗATEЛЬ,OTKYДA EЙ БPATЬ ДAHHЫE (BT) 013096 : ,ITA,AB 013097 : 15,ATX,TE 013098 : R,UJ, 013099 : C--- CБPOC MAЛOГO БYФEPA HA Ф-ЛИCT 013100 : TO WRBF:,BSS, 013101 : C... BЫЗOB HEPEЗИДEHTA БYФEPИЗAЦИИ 013102 : ,ITA,13 013103 : ,ARX,I/NR64 013104 : ,UJ,NRESCALL.= BЫЗOB 013105 : I/NR64:,Z00,NR/64 013106 : ,Z00,TOWR-BEGIN 013107 : TOWR:,ATI,7 013108 : 7,UTC,*WRBF64-NRES064 013109 : 13,VJM,.HA HEPEЗИДEHT 013110 : C... OTKAЗ OT HEPEЗИДEHTA 013111 : ,WTC,BASA 013112 : 13,VTM, 013113 : ,XTA,R/NR64 013114 : ,ARX,BASA 013115 : ,UJ,NRESOFF.= OTKAЗ 013116 : R/NR64:,Z00,NR/64 013117 : ,Z00,WW/RET-BEGIN 013118 : C ------------------ 013119 : C I OTБYФEPИЗOBAЛИ I 013120 : C ------------------ 013121 : M/PU:,OCT,7740 0000 0000 0000 013122 : C 013123 : C 013124 : C--------------------------------- 013125 : C/// OLD DRIVER ///BEGIN////////// 013126 : C--------------------------------- 013127 : C 013128 : C 013129 : C7777:,LC,1 013130 : TMAT:,EQU,30B. 013131 : BISTIME:,EQU,110B. 013132 : *C:LC,BLOCK,C6,C571,C574,C176000. 013133 : C77:,LC,1. 013134 : L0304 :,EQU,XOЗ ПK 013135 : L0700 :,EQU,XOЗ ПЛ 013136 : CALL1MEM:,SUBP, 013137 : C2013:,EQU,DISREG 013138 : PUNTIME:LC,BLOCK,TIMECNT. 013139 : B30/16:,LC,1 013140 : TYP/PC:,EQU,TYP/PL 013141 : C5:,LC,1 013142 : C14:,LC,1 013143 : C177:,LC,1 013144 : *677:B,BLOCK,(1),BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42 013145 : ,CONT,BIT41,BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34 013146 : ,CONT,BIT33,BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26 013147 : ,CONT,BIT25,BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18 013148 : ,CONT,BIT17,BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10 013149 : ,CONT,BIT9,BIT8,BIT7,BIT6,BIT5,BIT4,BIT3,BIT2,BIT1 013150 : C1:,EQU,BIT1 013151 : L0677:,EQU,L0700-1. 013152 : FIXBIT:,EQU,BIT1. 013153 : C 013154 : C 013155 : C///////////////////////////// 013156 : C 013157 : C 013158 : ,REL, 013159 : OLD71:13,ATX,INFW - B 013160 : ,XTA,SAVI15. 013161 : ,ASN,64-15. 013162 : ,AOX,SAVI14. 013163 : ,ASN,64-15. 013164 : ,AOX,SAVI13. 013165 : ,WTC,Г Y C. 013166 : ,ATX,M74.ЗAЩИTA ИHД. ЗAДAЧИ OT ПPEP. 013167 : ,XTA,SAVAC 013168 : GAD:15,UTM,-24 013169 : 15,ASN,64+20 013170 : 13,AAX,C17-B. 013171 : ,ATI,14.N ИHД. B AK ИHФ. 013172 : 13,AEX,C15-B. 013173 : 13,UZA,IND13-B. 013174 : ,AEX,BIT2 013175 : 13,UZA,IND15-B. 013176 : 14,ITA,.COДEPЖ. ИHД. ИHФ. CЛOBA 013177 : BAKM:13,UTC,-B 013178 : 15,VIM,MATB 013179 : 13,ARX,ABEG-B 013180 : 13,UJ,FORMNK-B 013181 : MATB:,ASN,64-24 013182 : 13,ARX,INFW-B 013183 : FORMNK:13,ATX,ABEG-B 013184 : 13,UTC,-B 013185 : 15,V1M,GAD 013186 : ,ATI,14.MAT.ADP.KOHЦA 013187 : ,ASN,64+24 .ADP.HAЧAЛA 013188 : ,AAX,C77777 013189 : 13,ATX,ABEG-B 013190 : 13,U1A,NOREF-B 013191 : C--- OTKAЗ OT ПEPФOPATOPA, ECЛИ AHAЧ=0 013192 : 13,XTA,INFW-B 013193 : ,ASN,64+38 013194 : ,AAX,BIT2 013195 : ,AEX,BIT2 013196 : ,ATI,14.0-ПИ, 2-ПЛ 013197 : 14,XTA,XOЗПK 013198 : ,AEX,ГYC 013199 : ,ASN,64+42 013200 : 13,UZA,REF-B 013201 : 14,UTM,1 013202 : 14,XTA,XOЗПK 013203 : ,AEX,ГYC 013204 : ,ASN,64+42 013205 : 13,U1A,*OTK-B 013206 : REF:14,ATX,XOЗПK 013207 : ,XTA,STCLTA 013208 : C--- OTKPЫTИE ЗAДAЧ, ЖДYЩИX YCTP-BO 013209 : ,AOX,RDSCAL 013210 : ,ATX,RDSCAL 013211 : ,XTA, 013212 : ,ATX,STCLTA 013213 : 13,UJ,*OTK-B 013214 : C--- 013215 : NOREF:,BSS, 013216 : ,ITA,14 013217 : ,AEX,C77777 013218 : 13,ARX,ABEG-B 013219 : 13,ATX,AEND-B 013220 : ,XTA,SAVAC 013221 : 13,AAX,=:003 -B 013222 : 13,AEX,=:003 -B 013223 : 13,UZA,NOTIM-B 013224 : 13,XTA,AEND-B 013225 : 13,AEX,=6400 0000 0007 7777 -B 013226 : ,NTR,2 013227 : ,A*X,CTP1 013228 : ,WTC,Г Y C 013229 : ,A+X,BISTIME 013230 : 13,A+X,CTP2-B 013231 : ,WTC,Г Y C 013232 : ,ATX,BISTIME 013233 : NO TIM:,BSS, 013234 : ,ITA,14 013235 : ,NTR,3 013236 : 13,A-X,ABEG - B 013237 : C///////////////////////////// 013238 : 13,REL,BEGIN 013239 : ,ATX,SAVAR 013240 : ,WTC, Г Y C 013241 : 15,VTM,AC 013242 : ,XTA,ABEG 013243 : 15,ATX,BEGMAT-AC 013244 : ,XTA,BITJ.A BИTЯ - ГAД, 013245 : ,AOX,БЫЛ*ПФ.OH ЭTO 013246 : ,ATX,БЫЛ*ПФ.BЫPEЗAЛ ! 013247 : ,XTA,LISTFLAG 013248 : ,AAX,BITJ 013249 : ,U1A,BUFPUNCH.= БYФEPИЗOBAH 013250 : ,XTA,SAVAC.ECЛИ BЫBOД 013251 : ,AAX,=:003.HE БYФEPИЗOBAH 013252 : ,AEX,=:003. - ГPAФИKY 013253 : ,UZA,TO NROF.ИГHOPИPYEM 013254 : ,XTA,AEND 013255 : ,AAX,B30/16 013256 : ,U1A,MHOГOПФ 013257 : ,REL, 013258 : C 013259 : C 013260 : C-------------------------------- 013261 : C///// OLD DRIVER///CONTINUE///// 013262 : C-------------------------------- 013263 : C 013264 : C 013265 : ,ITA,14 013266 : 13,ATX,AEND-B 013267 : ,ASN,64-15 013268 : 13,AOX,ABEG-B 013269 : ,ASN,64-15 013270 : ,WTC,Г Y C 013271 : ,ATX,M75 013272 : ,WTC,ГYC 013273 : ,XTA,BUFS27 013274 : ,AAX,BIT1 013275 : ,AEX,BIT1 013276 : 13,UZA,FAD-B 013277 : ,ITA,13 013278 : 13,ARX,*1-B. 013279 : *1:,UJ,CALL1MEM. 013280 : ,Z00,*2-B. 013281 : *2:,BSS,. 013282 : ,ASN,64+10. 013283 : ,ATI,14 013284 : ,WTC,Г Y C 013285 : ,XTA,M75 013286 : ,ASN,64+15 013287 : 13,ATX,ABEG-B 013288 : ,ASN,64+15 013289 : 13,ATX,AEND-B 013290 : ,ITA,14 013291 : FAD:,BSS, 013292 : ,ATI,14. 013293 : ,WTC,Г Y C. 013294 : ,ATX,M75. 013295 : ,XTA,SAVAC. 013296 : 13,ATX,INFW-B.BOCCTAHOBЛEHИE 013297 : ,XTA,C2013. 013298 : ,ATI,27B. 013299 : ,XTA,FIXBIT. 013300 : 14,AOX,TPHYS. 013301 : 14,ATX,TPHYS.ФИKCAЦИЯ ЛИCTA 013302 : ,XTA,ГYC 013303 : 13,ATX,NP-B 013304 : 13,XTA,INFW-B. 013305 : ,AAX,BIT40. 013306 : C 013307 : C ПOИCK CBOEГO ИЛИ 013308 : C ЗAXBAT CBOБOДHOГO ПЛ/ПK 013309 : C 013310 : 13,ATX,L0775-B 013311 : SE/FREE:,BSS, 013312 : C.... 1-ПK, 0-ПЛ 013313 : 15,VTM,-1 013314 : 14,VTM,L0700 013315 : 13,UZA,ИЩИПEPФ-B 013316 : 14,VTM,L0304 013317 : ИЩИПEPФ:14,UTC, 013318 : 15,XTA,1 013319 : 13,AEX,NP-B 013320 : ,ASN,64+42 013321 : 13,UZA,ПPOЗA-B 013322 : ЧYЖYCTP:13,UTC, 013323 : 15,VLM,ИЩИПEPФ-B 013324 : C CBOEГO HET 013325 : C ИЩEM CBOБOДHЫЙ 013326 : 13,XTA,NP-B 013327 : 13,UZA,ABSENT-B 013328 : ,XTA, 013329 : 13,ATX,NP-B 013330 : 13,XTA,L0775-B 013331 : 13,UJ,SE/FREE-B 013332 : ABSENT:14,UTM,-L0304 013333 : 13,UTC, 013334 : 14,VZM,ABS1-B 013335 : 14,VTM,4 013336 : ABS1:13,UTC, 013337 : 14,UTM,HПИ-B 013338 : ,ITA,14 013339 : 14,VJM,TTPRINT 013340 : 14,VTM,STCLTA 013341 : 13,UJ,L0373-B 013342 : C ПPOBEPKA БЛOKИPOBKИ HA T.P.7 013343 : ПPOЗA:,XTA,7 013344 : ,AOX,TYP/PL+1.ПPOГ KOПИЯ TP 7 013345 : 14,UTC,-L0304 013346 : 15,AAX,BIT44+1 013347 : 13,UZA,NOBLOK-B 013348 : ,XTA, 013349 : 14,UTC, 013350 : 15,ATX,1 013351 : 13,UJ,ЧYЖYCTP-B 013352 : NO BLOK:14,UTM,-L0700 013353 : 13,UTC, 013354 : 14,V1M,L0022-B 013355 : 15,UTM,2.ПЛ:1,2 013356 : L0022:,BSS, 013357 : ,WTC,Г Y C 013358 : ,XTA,BUFS27 013359 : ,AAX,BIT1 013360 : ,AEX,BIT1 013361 : 13,UZA,MATEM-B 013362 : 13,XTA,AEND-B 013363 : ,ASN,64+10 013364 : ,ARX,Г Y C 013365 : ,ATI,14 013366 : 14,XTA,TMAT 013367 : ,ASN,64+20 013368 : ,AAX,C76000 013369 : MATEM:13,ATX,NP-B 013370 : 13,UZA,MATEM1-B 013371 : 13,AEX,ABEG-B 013372 : ,AAX,C176000 013373 : 13,AEX,ABEG-B 013374 : ,AAX,C77777 013375 : 13,ATX,ABEG-B 013376 : 13,XTA,AEND-B 013377 : 13,AEX, NP-B 013378 : ,AAX,C176000 013379 : 13,AEX,AEND-B 013380 : 13,ATX,AEND-B 013381 : MATEM1:,BSS, 013382 : 13,XTA,ABEG-B 013383 : 15,UTC,1. 013384 : 13,ATX,L0307-B.AHФ 013385 : 13,XTA,AEND-B 013386 : 15,UTC,1. 013387 : 13,ATX,L0312-B.AKФ 013388 : ,XTA,Г Y C. 013389 : 15,ATX,L0304+1. 013390 : 15,MTJ,14 013391 : 14,UTC, 013392 : 14,XTA,BIT14 013393 : 14,UTM,-2 013394 : 13,UTC,-B 013395 : 14,V1M,HAШБИT 013396 : ,ASN,64-1 013397 : HAШБИT:13,ATX,NP-B 013398 : 13,ATX,NRBIT-B 013399 : ,EXT,4102B 013400 : 13,AAX,NP-B 013401 : 13,UZA,NO/REA-B 013402 : ,ASN,64+12 013403 : 13,UIA,BPEZA-B 013404 : ,XTA,TYP/PL 013405 : 15,AAX,BIT43 013406 : 13,U1A,BPEZA-B 013407 : ,XTA,BIT9 013408 : 15,EXT,167B 013409 : BPEZA:,BSS, 013410 : L0742:,XTA,TIMECNT.CЧETЧИK ДЛЯ BPEM.ЗAДEPЖEK 013411 : ,ARX,BIT6.64 013412 : 15,UTC,1. 013413 : 13,ATX,L0315-B.BPEM.ЗAДEPЖKA 013414 : 13,UTC,. 013415 : 14,VTM,OTKAЗ-B. 013416 : CLOSJOB:14,MTJ,33B 013417 : ,WTC,ГYC 013418 : ,XTA,M74. 013419 : ,ATX,SAVI13. 013420 : ,ASN,64+15. 013421 : ,ATX,SAVI14. 013422 : ,ASN,64+15. 013423 : ,ATX,SAVI15.BOCCT. ИПД 013424 : ,UJ,CLANEWTA 013425 : NO/REA:13,XTA,NP-B 013426 : ,AOX,BR/PERF 013427 : ,ATX,BR/PERF 013428 : 13,UTC, 013429 : 14,VTM,BПЛ-B 013430 : ,ASN,64+12 013431 : 13,UZA,L0751-B 013432 : 14,UTM,-4 013433 : 15,XTA,CTATПИ+1 013434 : ,ARX,BIT37 013435 : 15,ATX,CTATПИ+1 013436 : L0751:,BSS, 013437 : ,ITA,14. 013438 : 14,VJM,TTPRINT 013439 : 14,VTM,SCWPERF 013440 : L0373:,BSS,. 013441 : ,WTC,Д H З. 013442 : ,XTA,BITS. 013443 : 14,AOX, 013444 : 14,ATX, 013445 : ,WTC,ГYC 013446 : ,XTA,M75. 013447 : ,ATI,14. 013448 : 14,XTA,TPHYS. 013449 : ,AEX,FIXBIT. 013450 : 14,ATX,TPHYS.PACФИKCAЧИЯ ЛИCTA 013451 : ,XTR,SAVSR. 013452 : ,ITA,13 013453 : 13,ARX,NRINF-B 013454 : 14,VTM,MACRO71* 013455 : ,UJ,NRESOFF.OTKAЗ OT HEPEЗИДEHTA 013456 : NRINF:,Z00,NRES71. 013457 : ,Z00,CLOSJOB-B 013458 : C 013459 : IND13:,WTC,Г Y C. 013460 : ,XTA,M74. 013461 : TOBAKM:,AAX,C77777 013462 : 13,UJ,BAKM-B. 013463 : IND15:,XTA,SAVI15. 013464 : 13,UJ,TOBAKM-B 013465 : MHOГOПФ:,BSS,. 013466 : 13,UTC,-B. 013467 : 14,VTM,TMHПФ. 013468 : ,UJ,ERREXT. 013469 : TMHПФ:,GOST,9HMHOГO ПФ'231'. 013470 : C 013471 : C BЫБOP YCTP. ПЛ 013472 : C 013473 : TPCHEK:,ENTRY,. 013474 : C 013475 : C BXOД ИЗ BPEMEHHЫX ПPEPЫBAHИЙ ПO 10P. ГPП 013476 : C 013477 : C 013478 : C---------------------------------------- 013479 : C PAБOЧИE PAЗPЯДЫ ЛEHTOЧHOЙ ПФ : 013480 : C 013481 : C 1. TYP/PL:,LC,1 013482 : C 48-46 - TИП ПЛ ( '1' - ПЛ-80 ) 013483 : C.. 42-40 - '1'-ПPOБИBKA COBMEЩEHA 013484 : C.. C ЗAПYCKOM MOTOPA 013485 : C 12-10 - ПPИЗHAK ЗAHЯTOCTИ ('1' - ЗAHЯT) 013486 : C 013487 : C 2. ПЛ CДOX:,BSS,1 013488 : C 48-46 - ФЛAГИ ПOBTOPEHИЯ ПOCЛEДHEГO CИMBOЛA 013489 : C.. 42-40 - '1'-ГЛYШИ MOTOP 013490 : C.. 24-22 - ПЛ ЗAHЯT BЫДAЧEЙ CИMBOЛA 013491 : C 12-10 - БЫЛA TT-ПEЧATЬ : ''BЫK.ПЛ'' 013492 : C 013493 : C----------------------------------------- 013494 : C 013495 : 13,UTC, 013496 : 15,VJM,CH101-B 013497 : ,ITA,12 013498 : 13,ATX,SAVE12-B 013499 : ,ITA,11. 013500 : 13,ATX,SAVE11-B 013501 : SAVER:,BSS, 013502 : ,XTA,TIMECNT. 013503 : ,ARX,BIT1. 013504 : ,ATX,TIMECNT. 013505 : 11,VTM,-1 013506 : 12,VTM,-2 013507 : 14,VTM,-1 013508 : BЫДEPЖKA:14,UTC,1 013509 : 13,UTC, 013510 : 12,AEX,L0712-B 013511 : 14,UTM,1 013512 : 13,UZA,BOTYC-B 013513 : ,XTA,TIMECNT 013514 : 13,UTC,-B 013515 : 14,VZM,BЫДEPЖKA 013516 : 12,VTM, 013517 : 14,VTM,-1 013518 : 13,UTC,-B 013519 : 11,VLM,BЫДEPЖKA 013520 : C M.Б. БЫЛ CДOXШИЙ ПЛ 013521 : ,EXT,4102B 013522 : ,AAX,TYP/PL 013523 : ,AEX,TYP/PL 013524 : ,AAX,C176000 013525 : 13,U1A,KTOCДOX-B 013526 : ,AEX,TYP/PL 013527 : 13,AAX,ПЛ CДOX-B 013528 : ,AAX,C176000 013529 : 13,UZA,L0615-B.BCE O'KEY 013530 : 11,VTM,1 013531 : KTOCДOX:,ASN,64-32 013532 : ,ANX,C77777 013533 : ,ATI,14 013534 : 14,XTA,BIT16 013535 : 13,ATX,NRBIT-B 013536 : 13,UTC,-B 013537 : 11,UTC, 013538 : 14,UJ,PEAKЦИЯ 013539 : PEAKЦИЯ:14,VTM, 013540 : 13,UJ,ПИ CДOX -B 013541 : :14,VTM, 013542 : 13,UJ,ПИ ГOT -B 013543 : :14,VTM,1 013544 : 13,UJ,ПИCДOX-B 013545 : :14,VTM,1 013546 : 13,UJ,ПИГOT-B 013547 : :14,UTM,-4 013548 : 13,UJ,REPL-B 013549 : :14,UTM,-4 013550 : 13,UJ,REPL-B 013551 : :14,UTM,-4 013552 : REPL:13,UTC,-B 013553 : 11,VIM,ПЛГOT 013554 : 12,VTM,2 013555 : 13,UJ,NRD*PL-B 013556 : ПЛГOT:,BSS, 013557 : 14,MTJ,12.HOMEP ПЛ 013558 : 13,J+M,12 013559 : 12,XTA,L0723-B 013560 : ,ATI,11 013561 : C HAДO ЛИ ПOBTOPЯTЬ ПOCЛEДHИЙ CИMBOЛ 013562 : 13,XTA,ПЛCДOX-B 013563 : 14,AAX,BIT48 013564 : 13,UZA,NOREPEAT-B 013565 : 13,UJ,CH*READY-B 013566 : C HAШЛИ BЫДEPЖAHHOE YCTP-BO 013567 : BOTYC:,BSS, 013568 : L0264:,XTA,TIMECNT. 013569 : 13,ARX,L0220-B.-1 013570 : ,ATX,TIMECNT.BOЗBPAT CЧETЧИKA BP. 013571 : 14,MTJ,12 013572 : 13,J+M,12 013573 : 13,UTC,-B 013574 : 11,VZM,ПOДГ ПPП 013575 : ,033,4102B.OПPOC PAЗP.ПYCKA 013576 : 14,UTC,. 013577 : 14,AAX,BIT15. 013578 : 13,U1A,ПYCПИ-B.ПИ B PAБOTY 013579 : 14,XTA,CTATПИ.HEГOT.ПИ 013580 : ,ARX,BIT37.B 013581 : 14,ATX,CTATПИ.CTATИCTИKY 013582 : 14,MTJ,11. 013583 : 13,UTC,. 013584 : 14,VTM,BПИ-B. 013585 : ,ITA,14. 013586 : 14,VJM,TTPRINT. 013587 : 11,MTJ,14. 013588 : ,XTA, 013589 : 13,UJ,L0561-B. 013590 : C 013591 : C ПPOBEPKA ПЛ 013592 : C 013593 : ПOДГ ПPП:,BSS, 013594 : 12,WTC,L0704-B 013595 : ,XTA, 013596 : 12,ATX,L0715-B 013597 : ,XTA,TYP/PL 013598 : 14,AOX,BIT12 013599 : ,ATX,TYP/PL 013600 : 11,VTM,50B 013601 : ,ITA,11 013602 : 12,ATX,L0723-B 013603 : ,XTA,. 013604 : 12,ATX,L0712-B. 013605 : 14,XTA,BIT16. 013606 : ,AOX,COMPIR. 013607 : ,ATX,COMPIR. 013608 : ,033,34B. 013609 : 14,XTA,BIT16. 013610 : ,AEX,FULWOR. 013611 : ,033,30B. 013612 : ,XTA,BIT37. 013613 : ,AOX,COMMIR. 013614 : ,ATX,COMMIR. 013615 : ,002,36B. 013616 : ,XTA,TYP/PL 013617 : 14,APX,BIT42 013618 : ,ASN,64+39 013619 : 13,UJ,NOREPEAT-B 013620 : CИПEPФ:,ENTRY,. 013621 : C 013622 : C CИ ПPOБИBKИ ПИ80 013623 : C 013624 : L0642:14,XTA,BIT18. 013625 : ,AEX,COMPIR. 013626 : ,ATX,COMPIR. 013627 : ,033,34B.ЗAKP.CИ ПPOБИBKИ 013628 : ,XTA,BIT37. 013629 : ,AEX,FULWOR. 013630 : ,ATI,. 013631 : ,002,37B.ГAШ.37P.ГPП 013632 : 13,UTC,-B 013633 : 15,VTM,CИПEPФ1 013634 : L0065:,ITA,12. 013635 : 13,ATX,SAVE12-B 013636 : 14,MTJ,12.N YCTPOЙCTBA 013637 : 13,J+M,12.БAЗA +N ПИ 013638 : ,ITA,11. 013639 : 13,ATX,SAVE11-B 013640 : ,ITA,14 013641 : ,ASN,64-2 013642 : ,ATI,11.4N 013643 : ,XTA, 013644 : DUBNPC:,BSS, 013645 : 13,ATX,PCCOUNT-B 013646 : 15,UJ, 013647 : ПYCПИ:,BSS, 013648 : ,XTA,. 013649 : 12,ATX,L0315-B.ЗAHYЛEHИE BЫДEPЖKИ 013650 : 14,XTA,BIT18. 013651 : 14,AOX,BIT20. 013652 : ,AEX,FULWOR. 013653 : ,033,30B.ГAШ.CИ ПPOБ. И KOHTP. 013654 : ,AEX,FULWOR 013655 : ,AOX,COMPIR. 013656 : ,ATX,COMPIR. 013657 : ,033,34B.OTKP.CИ ПPOБ. И CИ KOHTP. 013658 : ,XTA,BIT37. 013659 : ,AOX,COMMIR. 013660 : ,ATX,COMMIR. 013661 : ,ATI,. 013662 : ,002,36B.OTKP.37P. ГPП 013663 : 12,XTA,L0307-B.HAЧ.BЫB. 013664 : ,ASN,64-15. 013665 : 12,ATX,L0325-B. 013666 : 13,XTA,L0623-B.C11 013667 : 14,033,0154B.ПYCK ПИ80 013668 : ,XTA,TYP/PL 013669 : 14,UTC, 013670 : 14,AOX,BIT16 013671 : ,ATX,TYP/PL 013672 : L0242:13,UTC,-B 013673 : 15,VTM,L0110 013674 : REPEAT2K:,BSS, 013675 : 12,XTA,L0325-B 013676 : ,ASN,64+15. 013677 : ,AAX,C77777 013678 : 12,ATX,L0307-B.AHK B AHП 013679 : ,ASN,64-15. 013680 : 12,AOX,L0307-B. 013681 : 12,ATX,L0325-B.ДBA AДPECA 013682 : ,AAX,C77777 013683 : ,AEX,C77777 013684 : 12,ARX,L0312-B. 013685 : ,ARX,BIT1. 013686 : ,ASN,64+15. 013687 : 12,ATX,L0332-B.AK-AT-1 B ПP ПPOП.ПYCT.K 013688 : ,XTA, 013689 : 12,ATX,L0321-B 013690 : 15,UJ, 013691 : L0110:12,MTJ,15. 013692 : 12,WTC,L0321-B. 013693 : 15,UTM,.AДPEC CTP.БYФEPA 013694 : 12,XTA,L0332-B. 013695 : 13,UZA,L0114-B.HYЖHЫ ПYCT.K. 013696 : 12,WTC,L0307-B. 013697 : ,XTA,. 013698 : 13,AAX,L0653-B. 013699 : L0114:15,ATX,L1100-B. 013700 : 12,XTA,L0332-B. 013701 : 13,UZA,L0665-B.HYЖEH ПPOПYCK ПYCT.K. 013702 : 12,WTC,L0307-B. 013703 : ,XTA,1. 013704 : L0665:13,AAX,L0653-B. 013705 : 15,ATX,L1102-B. 013706 : C 013707 : C BOCCTAHOBЛEHИE I11,I12 И BOЗBPAT ИЗ ПPEPЫBAHИЯ 013708 : C 013709 : L0615:,BSS, 013710 : 13,XTA,SAVE11-B 013711 : ,ATI,11. 013712 : 13,XTA,SAVE12-B 013713 : ,ATI,12. 013714 : ,UJ,RETURN. 013715 : C 013716 : C ИЗ CИ ПPOБИBKИ ИЛИ KOHTPOЛ5 013717 : C 013718 : CИПEPФ1:,BSS, 013719 : 12,XTA,L0323-B. 013720 : 13,UZA,L0626-B.HE HYЖHA COPTИPOBKA 013721 : ,XTA,. 013722 : 12,ATX,L0332-B.ПPИЗH.ПPOП.ПYCT.K. 013723 : L0626:12,MTJ,15. 013724 : 12,WTC,L0321-B. 013725 : 15,UTM,.AДPEC CTP. БYФEPA 013726 : 15,XTA,L1100-B. 013727 : 11,033,0162B. 013728 : ,ATI,. 013729 : ,ASN,64+20. 013730 : 11,033,0163B. 013731 : ,ATI,. 013732 : 15,XTA,L1102-B. 013733 : 11,033,0160B. 013734 : ,ATI,. 013735 : ,ASN,64+20. 013736 : 11,033,0161B.ПEPФ. 80KOЛ. CTP. ПK 013737 : ,ATI,. 013738 : 12,XTA,L0321-B. 013739 : ,ARX,BIT3.CЧ.ИЗM.AДPECA CTP. 013740 : 12,ATX,L0321-B. 013741 : 13,AEX,L0157-B. 013742 : 13,U1A,L0673-B.БYФEP BЫB. HEЗAПOЛHEH 013743 : 12,ATX,L0321-B.0 B AДPEC CTP БYФEPA 013744 : 12,XTA,L0323-B. 013745 : L0250:12,AOX,L0335-B. 013746 : 13,U1A,L0106-B. 013747 : L0125:12,XTA,L0307-B. 013748 : ,AEX,C77777 013749 : 12,ARX,L0312-B.AK-AT 013750 : ,ASN,64+15. 013751 : 13,U1A,L0127-B.AT MEHЬШE AK 013752 : 12,ATX,L0332-B.ПPИЗH.ПPOП.ПYCT.K. 013753 : L0127:12,XTA,L0307-B. 013754 : ,ARX,BIT2. 013755 : 12,ATX,L0307-B.YBEЛ.AT.BЫB. 013756 : L0106:12,XTA,L0321-B.A CTP. БYФEPA 013757 : 13,UZA,L0137-B. 013758 : 13,AEX,L0156-B. 013759 : 13,U1A,L0110-B 013760 : L0137:,XTA,BIT1. 013761 : 14,033,0154B.ПYCK ПEPФOPATOPA 013762 : ,XTA,BIT1.CЧETЧИK 013763 : 14,ARX,CTATПИ.ПEPФ. П/K 013764 : 14,ATX,CTATПИ.B CTATИCTИKY 013765 : 13,UJ,L0110-B 013766 : CИKOHTP:,ENTRY, 013767 : 14,XTA,BIT18 013768 : ,AOX,COMPIR 013769 : ,ATX,COMPIR 013770 : ,EXT,34B 013771 : 13,UTC,-B 013772 : 15,VJM,L0065 013773 : L0462:14,XTA,L0304. 013774 : ,ASN,64+42. 013775 : ,ATI,15 013776 : ,XTA,OUTJOBSC. 013777 : 15,AAX,BITS 013778 : 13,U1A,L0200-B. 013779 : ,XTA,7. 013780 : 14,AAX,BIT44. 013781 : 13,UZA,L0176-B.ПИ OTKPЫT 013782 : 12,VTM, 013783 : 13,UJ,ПEPEXOД-B 013784 : L0200:,XTA,FULWOR 013785 : 14,UTC, 013786 : 14,AEX,BIT16 013787 : ,AAX,TYP/PL 013788 : ,ATX,TYP/PL 013789 : ,XTA,FULWOR 013790 : 14,UTC, 013791 : 14,AEX,BIT16 013792 : 13,AAX,ПЛCДOX -B 013793 : 13,ATX,ПЛCДOX -B 013794 : 14,XTA,BIT18 013795 : 14,AOX,BIT20 013796 : L0561:13,MTJ,11 013797 : ,CALL,CLOPIR 013798 : 11,MTJ,13 013799 : 14,XTA,L0304 013800 : ,ASN,64+42 013801 : ,ATI,15 013802 : L0564:15,XTA,BITS. 013803 : ,AOX,RDSCAL. 013804 : ,ATX,RDSCAL. 013805 : 13,XTA,SAVE11-B 013806 : ,ATI,11. 013807 : 13,XTA,SAVE12-B 013808 : ,ATI,12. 013809 : ,UJ,NEWTA. 013810 : C 013811 : C CИ KOHTPOЛЯ ПИ80 013812 : C 013813 : L0176:12,XTA,L0312-B.AK 013814 : 13,ARX,L0156-B.+60 013815 : ,AEX,C77777.ИHBEPCИЯ 013816 : 12,ARX,L0307-B. 013817 : ,ASN,64+15. 013818 : 13,UZA,L0160-B.ПPOШЛИ 2 K.ПOCLE KOHЦA 013819 : 12,XTA,L0323-B. 013820 : 12,AOX,L0335-B. 013821 : 13,U1A,L0160-B. 013822 : 13,UJ,L0200-B.HA OTKP. ЗAДAЧИ MAT. 013823 : L0160:,BSS, 013824 : 12,MTJ,15. 013825 : 12,XTA,L0321-B. 013826 : 12,WTC,L0321-B. 013827 : 15,UTM,-52.AДP. CTPOKИ БYФEPA 013828 : ,ARX,C14 013829 : ,ASN,64+6. 013830 : 13,U1A,L0165-B.HE 1Я I/2 БYФ. 013831 : 15,UTM,96.AДP.CTP.KOHTP. 013832 : L0165:,BSS,. 013833 : C......... ЧTEHИE ПPOБИTOЙ CTPOKИ (OБP.KOД) 013834 : 11,EXT,4163B.PP 80-61 013835 : ,ASN,64-20. 013836 : 13,ATX,CTPK - B 013837 : 11,EXT,4162B.PP 60-41 013838 : 13,AOX,CTPK - B 013839 : 13,AEX,L0653-B.ИHBEPCИЯ 013840 : 13,ATX,CTPK - B 013841 : 11,EXT,4161B.PP 40-21 013842 : ,ASN,64-20. 013843 : 13,ATX,CTPK1 - B 013844 : 11,EXT,4160B.PP 20-1 013845 : 13,AOX,CTPK1 - B 013846 : 13,AEX,L0653-B.ИHBEPCИЯ 013847 : 13,ATX,CTPK1 - B.ECTЬ HCBП 013848 : 15,AEX,L1102-B.ПO PP 40-1 013849 : 13,UIA,L0144-B. - ДA 013850 : 13,XTA,CTPK - B.ECTЬ HCBП 013851 : 15,AEX,L1100-B.ПO PP 80-41 013852 : L0144:13,UZA,L0251-B. - HET 013853 : 12,XTA,L0335-B.OДHOKPATHO 013854 : 13,UIA,L0251-B.B CTATИCTИKY 013855 : 15,XTA,L1100-B.ПEPEПИCЬ 013856 : 13,ATX,CTPП - B.CTPOKИ 013857 : 15,XTA,L1102-B.ЭTAЛOHA 013858 : 13,ATX,CTPП1 - B 013859 : ,XTA,BIT25.CЧETЧИK 013860 : 14,ARX,CTATПИ.БPAKA 013861 : 14,ATX,CTATПИ.B CTATИCTИKY 013862 : 12,ATX,L0335-B.ПPИЗHAK HCBП 013863 : ,ITA,14.HOMEP ПИ 013864 : ,ASN,64-15. B ИC 013865 : 13,AOX,ИC ПИ-B.CTATИCTИKИ 013866 : 13,ATX,L0334-B. 013867 : ,ITA,13 013868 : ,ASN,64-24 013869 : 13,ARX,L0334 - B 013870 : 13,ATX,L0334 - B 013871 : ,ITA,13.ЭTAЛOH И 013872 : 13,ARX,L0334-B.ПPOБИTOE 013873 : ,UJ,STATIST.B CTATИCTИKY 013874 : ИC ПИ:4,Z04,CTPП-B.ИHФ.CЛOBO 013875 : ,Z00,L0251-B.K CTATИCTИKE 013876 : L0251:12,XTA,L0321-B. 013877 : 13,UZA,L0253-B. 013878 : 13,AEX,L0156-B. 013879 : 13,U1A,L0615-B.K. HE ДOПEЧATAHA 013880 : L0253:12,XTA,L0335-B. 013881 : 13,UZA,L0237-B.HE БЫЛO OШ. 013882 : ПИГOT1:,BSS, 013883 : ,XTA,FULWOR 013884 : 13,AEX,NRBIT-B 013885 : 13,AAX,ПЛCДOX -B 013886 : 13,ATX,ПЛCДOX -B 013887 : ,XTA,BIT3. 013888 : 12,ATX,L0323-B.CЧ.COPTИPOBKИ 013889 : 15,VTM,-96. 013890 : ,XTA,. 013891 : L0426:15,UTC,96. 013892 : 12,ATX,L1100-B.ЧИCTKA БYФEPA 013893 : 15,UTM,2. 013894 : 13,UTC,. 013895 : 15,V1M,L0426-B. 013896 : 13,ATX,PCCOUNT-B 013897 : L0237:12,ATX,L0335-B.0 B OШ. 013898 : 12,XTA,L0323-B. 013899 : 13,U1A,L0660-B.HYЖHA COPTИPOBKA 013900 : 12,XTA,L0325-B. 013901 : ,ASN,64-15. 013902 : 12,AOX,L0307-B. 013903 : 12,ATX,L0325-B.AHK=AHП,AHП=AT 013904 : ,XTA,BIT1.ПYCK ПИ 013905 : L0241:14,033,0154B.OBY YПP.ПИ80 013906 : 13,UJ,L0615-B. 013907 : C 013908 : C BЫBOД HA ПEPФOЛEHTY 013909 : C 013910 : CИ ПЛ:,ENTRY,. 013911 : 13,UTC, 013912 : 15,VTM,CИ ПЛ-B 013913 : C 013914 : C... ПPИKAЗ PTAPE.N 013915 : C OCTAHOBKA П/ЛEHTЫ ИЛИ 013916 : C ПPOДOЛЖEHИE ПEPФOPAЦИИ 013917 : C 013918 : CH101:,XTA,101B 013919 : 13,AEX,DIRPL-B 013920 : 15,U1A, 013921 : 13,XTA,MASP-B 013922 : 13,U1A,STARTP-B 013923 : C... OCTAHOBKA (ДЛЯ CMEHЫ ЛEHTЫ) 013924 : ,XTA,BIT10 013925 : 14,EXT,170B.BЫKЛ.ДBИГ. 013926 : 14,XTA,BIT16 013927 : 13,ATX,MASP-B 013928 : ,AEX,FULWOR 013929 : ,AAX,COMPIR.CHЯTЬ MACKY 013930 : 13,UJ,WRMASK-B 013931 : C... ПPOДOЛЖИTЬ ПEPФOPAЦИЮ 013932 : STARTP:14,VTM, 013933 : ,AAX,BIT16 013934 : 13,U1A,STARTP1-B 013935 : 14,VTM,1 013936 : STARTP1:13,XTA,MOTOP-B 013937 : 13,U1A,STARTP2-B 013938 : ,XTA,BIT9 013939 : 14,EXT,170B.BKЛ.ДBИГ. 013940 : STARTP2:,ARX,BIT1 013941 : 13,ATX,MOTOP-B 013942 : ,AAX,C77 013943 : ,U1A,RETURN.ЗAДEPЖKA 013944 : 13,ATX,MASP-B 013945 : ,XTA,BIT37 013946 : ,AOX,COMMIR 013947 : ,ATX,COMMIR 013948 : ,MOD,36B.ГPП-37 013949 : 14,XTA,BIT16 013950 : ,AOX,COMPIR 013951 : 15,VTM, 013952 : WRMASK:,ATX,COMPIR 013953 : ,EXT,34B 013954 : ,XTA, 013955 : 13,ATX,MOTOP-B 013956 : ,ATX,101B 013957 : 15,VIM,RETURN 013958 : C--- 013959 : CИ ПЛ:,BSS, 013960 : 13,XTA,ПЛ CДOX-B 013961 : 14,AAX,BIT24 013962 : 13,AEX,ПЛ CДOX-B 013963 : 13,ATX,ПЛ CДOX-B 013964 : ,ITA,12 013965 : 13,ATX,SAVE12-B 013966 : ,ITA,11. 013967 : 13,ATX,SAVE11-B 013968 : 13,MTJ,12. 013969 : 14,J+M,12. 013970 : 12,XTA,L0723-B. 013971 : ,ATI,11. 013972 : ,XTA,7. 013973 : 14,AAX,BIT42. 013974 : 13,UZA,L0541-B 013975 : 12,VTM,2 013976 : 13,UJ,ПEPEXOД-B 013977 : L0541:14,033,4170B.KOHTP.ПPEД.CИMBOЛA 013978 : 12,AEX,L0720-B 013979 : ,AAX,C377 013980 : 13,UZA,L0437-B 013981 : ,XTA,TYP/PL 013982 : 14,AAX,BIT48 013983 : 13,U1A,L0437-B 013984 : 12,XTA,L0720-B. 013985 : ,ASN,64-8. 013986 : 12,ATX,L0720-B. 013987 : ,ASN,64-32. 013988 : 14,033,170B.ПEPФ. CИMBOЛA OTMEHЫ 013989 : L0454:12,VTM,2.ПЛ. 013990 : 13,UIA,L0615-B 013991 : ПEPEXOД:,BSS, 013992 : 14,MTJ,15. 013993 : 13,UTC,. 013994 : 14,VTM,BПИ-B 013995 : 12,J+M,14 013996 : 12,J+M,14 013997 : 12,UTC, 013998 : 15,WTC,L0304 013999 : 11,VTM,.AИПЗ. 014000 : ,ITA,14. 014001 : 14,VJM,TTPRINT. 014002 : 15,MTJ,14. 014003 : ,XTA,C571.ПOBTOP. ПOPЦИИ HA ДP. ПЛ 014004 : 11,ATX,3 014005 : ,XTA,C2013 014006 : 11,ATX,5 014007 : AБЗAЦ:13,UTC,-B 014008 : 12,VZM,L0200 014009 : BЫKMOT:,XTA,BIT10 014010 : 14,EXT,170B 014011 : L0556:,BSS, 014012 : ,XTA,FULWOR 014013 : 14,AEX,BIT48 014014 : 14,AEX,BIT42 014015 : 14,AEX,BIT12 014016 : 13,AAX,ПЛ CДOX -B 014017 : 13,ATX,ПЛ CДOX -B 014018 : ,XTA,TYP/PL 014019 : 14,AEX,BIT12 014020 : ,ATX,TYP/PL 014021 : 14,XTA,BIT16 014022 : 14,UTM,2 014023 : 13,UJ,L0561-B. 014024 : L0437:,XTA,TYP/PL 014025 : 14,AAX,BIT48 014026 : 13,UZA,ПЛ20-B 014027 : 13,XTA,ПЛ CДOX-B 014028 : 14,AAX,BIT42 014029 : 13,U1A,BЫKMOT-B 014030 : NO REPEAT:12,ATX,L0720-B 014031 : 13,UJ,L0447-B 014032 : ПЛ20:12,XTA,L0720-B 014033 : ,ASN,64-8. 014034 : 12,ATX,L0720-B.ЯЧEЙKИ BЫД. CИMBOЛB 014035 : ,ASN,64+8. 014036 : ,AAX,C377. 014037 : 13,U1A,L0447-B 014038 : 12,XTA,L0720-B 014039 : ,ASN,64+24 014040 : ,AAX,C377 014041 : 13,UZA,L0454-B 014042 : 12,XTA,L0720-B 014043 : ,ASN,64+16 014044 : ,AAX,C377 014045 : 13,UZA,L0454-B 014046 : L0444:12,AOX,L0720-B 014047 : 12,ATX,L0720-B.ЯЧ.BЫД. CИMBOЛOB 014048 : ,XTA,TYP/PL 014049 : 14,AAX,BIT48 014050 : 13,UZA,CH*READY-B 014051 : C---- 014052 : C------------------------------- 014053 : 13,UTC,.****** 014054 : 11,V1M,CH*READY-B.****** 014055 : 12,XTA,L0704-B.****** 014056 : 12,AEX,L0707-B.****** 014057 : 13,U1A,CH*READY-B.****** 014058 : 13,XTA,ПЛ CДOX-B 014059 : 14,AOX,BIT42 014060 : 13,ATX,ПЛ CДOX-B 014061 : ,XTA,TYP/PL 014062 : 14,APX,BIT42 014063 : ,ASN,64+38 014064 : 12,AOX,L0720-B.****** 014065 : 12,ATX,L0720-B.****** 014066 : C------------------------------ 014067 : C---- 014068 : CH*READY:,BSS, 014069 : C OПPOC ГOTOBHOCTИ ПЛ 014070 : 14,XTA,BIT12 014071 : 13,ATX,NRBIT-B 014072 : 12,VTM,2.ПЛ. 014073 : ПИГOT:,BSS, 014074 : OПPOC:,BSS, 014075 : ,EXT,4102B 014076 : 13,AAX,NRBIT-B 014077 : 13,UZA,PROPRI-B 014078 : 13,XTA,ПЛCДOX-B 014079 : 13,AOX,NRBIT-B 014080 : 13,AEX,NRBIT-B 014081 : 13,ATX,ПЛCДOX-B 014082 : 13,UJ,ПPOBЫ-B 014083 : ПИCДOX:,BSS, 014084 : NRD*PL:,BSS, 014085 : 12,MTJ,11 014086 : 13,UTC,-B 014087 : 11,UTM,PCCOUNT 014088 : 11,XTA, 014089 : ,ARX,BIT1 014090 : 11,ATX, 014091 : ,ASN,64+6 014092 : 13,UZA,L0615-B 014093 : 13,UTC,-B 014094 : 12,VZM,PROPRI 014095 : C ФЛAГ - HAДO ПEPEБИTЬ ПOCЛEДHИЙ CИMBOЛ 014096 : 13,XTA,ПЛ CДOX -B 014097 : 14,APX,BIT24 014098 : 13,AOX,ПЛ CДOX -B 014099 : 13,ATX,ПЛ CДOX -B 014100 : PROPRI:,BSS, 014101 : C БЫЛA ЛИ TT-ПИЧATЬ 014102 : 14,MTJ,11 014103 : 13,XTA,ПЛCДOX-B 014104 : 13,AAX,NRBIT-B 014105 : 13,UIA,ПPOBЫ-B.БЫЛA 014106 : C ПEЧATЬ: ''BЫKЛ ПЛ'' 014107 : 12,MTJ,14 014108 : 12,J+M,14 014109 : 13,UTC,-B 014110 : 14,UTM,BПИ 014111 : ,ITA,11 014112 : 13,AOX,=6H 0-B 014113 : ,ASN,64-32 014114 : 14,ATX,1 014115 : ,ITA,14 014116 : 14,VJM,TTPRINT 014117 : 13,XTA,NRBIT-B 014118 : 13,AOX,ПЛCДOX-B 014119 : 13,ATX,ПЛCДOX-B 014120 : 11,MTJ,14 014121 : C HE HAДO ЛИ BЫБPOCИTЬ ЗAДAЧY 014122 : ПPOBЫ:12,UTC, 014123 : 14,XTA,L0304 014124 : ,ASN,64+42 014125 : ,ATI,11 014126 : ,XTA,OUTJOBSC 014127 : 11,AAX,BITS 014128 : 13,U1A,AБЗAЦ-B 014129 : 11,XTA,*YCЫ 014130 : ,ASN,64+15 014131 : ,ARX,B6 014132 : ,ASN,64-6 014133 : 13,AOX,CNEWL - B.TEPMИHATOP + N 014134 : ,AEX,101B 014135 : ,AAX,C7777 014136 : ,UZA,AБЗAЦ 014137 : C 014138 : 13,XTA,ПЛCДOX-B 014139 : 13,AAX,NRBIT-B 014140 : 13,UIA,L0615-B 014141 : 13,UTC,-B 014142 : 12,VZM,L0615 014143 : 13,MTJ,12 014144 : 14,J+M,12 014145 : 12,XTA,L0723-B 014146 : ,ATI,11 014147 : ПEPC:,BSS, 014148 : 13,XTA,ПЛ CДOX-B 014149 : 14,AOX,BIT24 014150 : 13,ATX,ПЛ CДOX-B 014151 : ,XTA, 014152 : 13,ATX,PLCOUNT-B 014153 : 12,XTA,L0720-B 014154 : 14,033,0170B.ПEPФ.CИMBOЛA. 014155 : ,ASN,64+8.BЫДEЛEHИE CИMBOЛA 014156 : ,AAX,C377. 014157 : 13,U1A,NEXT SYM -B 014158 : ,XTA,TYP/PL 014159 : 14,AAX,BIT48 014160 : 13,UZA,L0615-B 014161 : ,XTA,TYP/PL 014162 : 14,AAX,BIT42 014163 : 14,AEX,BIT42 014164 : 13,AAX,ПЛ CДOX-B 014165 : 13,U1A,L0615-B 014166 : NEXT SYM:,BSS, 014167 : 13,XTA,ПЛ CДOX -B 014168 : 14,AAX,BIT48.БЫЛ ПOBTOP 014169 : 13,UZA,NS*1-B.-HET 014170 : 13,AEX,ПЛ CДOX -B 014171 : 13,ATX,ПЛ CДOX -B 014172 : 13,UJ,L0615-B 014173 : NS*1:,BSS, 014174 : 13,UTC,. 014175 : 11,VZM,ALLREADY-B.BCE CЛOBO BЫДAHO 014176 : 11,UTM,-8 014177 : 13,UJ,END///-B 014178 : ALLREADY:,BSS, 014179 : 12,XTA,L0704-B. 014180 : 12,AEX,L0707-B. 014181 : 13,UZA,L0556-B.BECЬ MACCИB BЫДAH. 014182 : 12,XTA,L0704-B. 014183 : ,ARX,BIT1. 014184 : 12,ATX,L0704-B.YBEЛ.AT 014185 : 12,WTC,L0704-B. 014186 : ,XTA,. 014187 : 12,ATX,L0715-B.OЧEP.CЛOBO B БYФEP 014188 : 11,VTM,50B. 014189 : END///:,BSS, 014190 : ,ITA,11. 014191 : 12,ATX,L0723-B. 014192 : 13,UJ,L0615-B. 014193 : L0447:,XTA,TYP/PL 014194 : 14,AAX,BIT48 014195 : ,ASN,64+40 014196 : ,ATI,15 014197 : 12,XTA,L0715-B 014198 : 11,ASN,64 014199 : ,AAX,C377 014200 : 13,UTC,-B 014201 : 15,V1M,NO INVER 014202 : ,AEX,C377 014203 : NO INVER:,BSS, 014204 : 13,UJ,L0444-B 014205 : C 014206 : C HYЖHA COPTИPOBKA 014207 : C 014208 : L0660:,ASN,64+1. 014209 : 12,ATX,L0323-B.CЧET COPTИPOBOK 014210 : 13,UZA,L0242-B. 014211 : 13,XTA,L0623-B.COPTИPOBKA,ПYCK 014212 : 13,UJ,L0241-B.HA COPTИPOBKY 014213 : L0673:13,AEX,L0056-B. 014214 : 13,U1A,L0125-B. 014215 : 12,XTA,L0323-B. 014216 : 13,UJ,L0250-B. 014217 : OTBЫB:,BSS, 014218 : OTKAЗ:,BSS, 014219 : ,WTC,Г Y C. 014220 : ,WTC,M75. 014221 : ,XTA,TPHYS. 014222 : ,AEX,FIXBIT. 014223 : ,WTC,Г Y C. 014224 : ,WTC,M75. 014225 : ,ATX,TPHYS.PACФИKCAЦИЯ ЛИCTA 014226 : *OTK:,BSS, 014227 : ,WTC,ГYC 014228 : ,XTA,M74 014229 : ,ATI,13 014230 : ,ASN,64+15 014231 : ,ATI,14 014232 : ,ASN,64+15 014233 : ,ATI,15 014234 : ,ITA,32B 014235 : ,ATI,33B 014236 : ,WTC,ГYC 014237 : ,XTA,BUFS27 014238 : ,ATI,27B 014239 : 14,VTM,NRES71. 014240 : ,ITA,14. 014241 : ,ASN,64-24. 014242 : ,ATX,SAVAR. 014243 : 14,VTM,NEWTA. 014244 : ,ITA,14. 014245 : ,AOX,SAVAR. 014246 : ,UJ,NRESOFF.OTKAЗ OT HEPEЗ. И K MAT. 014247 : DIRPL:,TEXT,8H PTAPE'10'N 014248 : MOTOP:,LOG, 014249 : MASP:,LOG, 014250 : HПИ:,ISO,6HHET ПИ 014251 : ,OCT,. 014252 : BПИ:,ISO,6HBЫK.ПИ 014253 : ,OCT,. 014254 : HПЛ:,ISO,6HHET ПЛ 014255 : ,OCT,. 014256 : BПЛ:,ISO,6HBЫK.ПЛ 014257 : ,OCT,. 014258 : NP:,BSS,1. 014259 : INFW:,BSS,. 014260 : L0300:,BSS,1.ИHФ. CЛOBO 014261 : ABEG:,BSS, 014262 : L0302:,BSS,1. 014263 : AEND:,BSS,1 014264 : L0307:,BSS,2.AHФ 014265 : L0704:,BSS,2 014266 : L0312:,BSS,2.AKФ 014267 : L0707:,BSS,2 014268 : L0315:,BSS,1.BP. ЗAДEPЖKA ПИ 014269 : L0316:,BSS,1. 014270 : L0712:,BSS,2 014271 : SAVE12:,BSS,1 014272 : SAVE11:,BSS,1 014273 : L0321:,BSS,2.AДPEC CTP. БYФEPA 014274 : L0323:,BSS,2.ПPИЗHAK COPTИPOBKИ 014275 : L0325:,BSS,2. 014276 : L0332:,BSS,2.ПPИЗHAK ПPOП.ПYCT.K. 014277 : L0334:,BSS,1. 014278 : L0335:,BSS,2. 014279 : L0715:,BSS,2.БYФEP ПЛ 014280 : L0720:,BSS,2..ЯЧ.BЫД.CИMB. 014281 : L0723:,BSS,2.CЧ.CИMB.B ЯЧ. 014282 : L0775:,BSS,1.TИП YCTPOЙCTBA 014283 : L1100:,BSS,2.БYФEP ПK. 014284 : L1102:,BSS,94.ПPOДOЛЖ. БYФEPA ПK 014285 : CTP2:,REAL,2.. 014286 : C15:,LOG,15. 014287 : C17:,BSS,. 014288 : L0052:,LOG,17. 014289 : L0056:,LOG,120. 014290 : L0156:,LOG,60. 014291 : L0157:,LOG,140. 014292 : CNEWL:,TEXT,8H N 014293 : ПЛCДOX:,LOG, 014294 : L0220:,OCT,77777777 77777776. 014295 : L0623:,LOG,11. 014296 : *ПФ:,OCT,774 014297 : L0653:,OCT,00177777 77777777. 014298 : C 014299 : C--- PCCOUNT И PLCOUNT ДOЛЖHЫ 014300 : C--- CTOЯTЬ ЧEPEЗ OДИH AДPEC. 014301 : C 014302 : PCCOUNT:,LOG, 014303 : NRBIT :,LOG, 014304 : PLCOUNT:,LOG, 014305 : CTPП :,BSS,1 014306 : CTPП1:,BSS,1 014307 : CTPK :,BSS,1 014308 : CTPK1:,BSS,1 014309 : ,END,. 014310 : ERRMACRO:,NAME,. 014311 : C PEДAKЦИЯ OT 20.02.76 014312 : C (Л.KAMИHCKИЙ,И.CИЛИH,A.ГYCEB) 014313 : * И П Д :LC,BLOCK,XNF,XNFM(5),XNCM(3),Ш/FULL 014314 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 014315 : SCDEBUG:,EQU,*ИПД+71B 014316 : DEBS33:,EQU,565B 014317 : SCJOTЛ:,EQU,564B 014318 : DISREG:,LC,1. 014319 : C3:,LC,1. 014320 : C77777:,LC,1. 014321 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,PPIR,MPPIR,M1RDSC,STCLTA 014322 : *677:B,BLOCK,BITS 014323 : ,CONT,BIT48,BIT47,BIT46,BIT45 014324 : ,CONT,BIT44,BIT43,BIT42,BIT41 014325 : ,CONT,BIT40,BIT39,BIT38,BIT37 014326 : ,CONT,BIT36,BIT35,BIT34,BIT33 014327 : ,CONT,BIT32,BIT31,BIT30,BIT29 014328 : ,CONT,BIT28,BIT27,BIT26,BIT25 014329 : ,CONT,BIT24,BIT23,BIT22,BIT21 014330 : ,CONT,BIT20,BIT19,BIT18,BIT17 014331 : ,CONT,BIT16,BIT15,BIT14,BIT13 014332 : ,CONT,BIT12,BIT11,BIT10,BIT9 014333 : ,CONT,BIT8 ,BIT7 ,BIT6 ,BIT5 014334 : ,CONT,BIT4 ,BIT3 ,BIT2 ,BIT1 014335 : S34:,EQU,26B. 014336 : S35:,EQU,27B. 014337 : COPYS32:,EQU,46B. 014338 : COPYI14:,EQU,47B. 014339 : RETM67:,EQU,107B. 014340 : M:,EQU,100B. 014341 : REGSCAL:,EQU,M. 014342 : I10:,EQU,12 014343 : NRERR:,SUBP, 014344 : NRESCALL:,SUBP, 014345 : NRESOFF:,SUBP, 014346 : NRERROR:,SUBP, 014347 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR,SAVS16 014348 : C14:,LC,1 014349 : *SCAL71:LC,BLOCK,(3),SCAL67 014350 : FLERBUZ:,EQU,XNF+62B 014351 : ERRSC:,EQU,XNF+64B 014352 : БYФИПЗ/M:,EQU,535B.AДPEC B ИПЗ 014353 : *615:B,BLOCK,SSUM(16),SWITCH 014354 : TOЛKAЙ:,SUBP, 014355 : RETURN:,SUBP, 014356 : CLANEWTA:,SUBP, 014357 : FULSAV:,SUBP, 014358 : C37:,LC,1 014359 : FULWOR:,LC,1 014360 : SELECT:,SUBP,. 014361 : MACRO74:,SUBP,. 014362 : C 014363 : ERRPRI:,ENTRY,. 014364 : ERRPRI:,BSS, 014365 : ,XTA,BITJ 014366 : ,AOX,ERRSC 014367 : ,ATX,ERRSC 014368 : ,WTC,ГYC 014369 : 13,VTM, 014370 : 15,CALL,MICROSAV 014371 : SAVSAVAR:,XTA,SAVAR 014372 : 13,MTJ,15 014373 : 15,ATX,-3 014374 : ,XTA,NRERINF 014375 : ,ATX,SAVAR 014376 : ,ITA,14 014377 : ,ATX,SAVI14 014378 : ,UJ,NRESCALL+2 014379 : NRERINF:,Z00,NRERROR 014380 : ,Z00,*+1 014381 : ,ATI,13 014382 : 13,UJ, 014383 : C -------------------- 014384 : ERRNRES:,ENTRY, 014385 : C -------------------- 014386 : C OTKAЗ OT HEPEЗИДEHTA,YXOД K ERRMACRO. 014387 : C MAЛOE YПPЯTЫBAHИE ДOЛЖHO БЫTЬ YЖE 014388 : C CДEЛAHO. HA CYMMATOPE ДOЛЖHO БЫTЬ 014389 : C CЛOBO: 014390 : C ,Z00,POINTER HEPEЗИДEHTA 014391 : C ,Z00,N OШИБKИ (N<1000B) 014392 : C 014393 : : ,24,2003B 014394 : ,WTC,Г Y C 014395 : ,ATX,-3 014396 : ,ATX,SAVAR 014397 : ,AEX,INFRET 014398 : ,AAX,C77777 014399 : ,AEX,SAVAR 014400 : ,ATX,SAVAR 014401 : INFRET:,UJ,NRESOFF+2 014402 : ,UJ,*+1 014403 : ,WTC,Г Y C 014404 : ,WTC,-3 014405 : 14,VTM, 014406 : C -------------------- 014407 : ERREXT:,ENTRY, 014408 : C -------------------- 014409 : C OШИБKA ЭKCTPAKOДA 014410 : ,ITA,32B 014411 : ,ARX,C77777 014412 : ,ATI,33B 014413 : ,UJ,ERRPRI 014414 : C ------------------------- 014415 : OCTAHOB:,ENTRY, 014416 : C ------------------ 014417 : C И13 - AДPEC ИПЗ 014418 : C И14-TИП OCTAHOBA 014419 : C 0 - OCT.ПO ЗAП. 014420 : C 1 - OCT.ПO ЧTEH. 014421 : C 2 - OCT.ПO NK 014422 : C 3 - ПPOKPYTKA 014423 : 13,XTA,REGSCAL 014424 : ,AAX,BIT18 014425 : ,U1A,OT 014426 : 15,CALL,MICROSAV 014427 : ,ITA,27B 014428 : ,AAX,C14 014429 : ,UZA,IFMAT2.PEЖИM MATEMATИKA 014430 : 14,V1M,TOЛKAЙ.OCT.ПO ЧTEH. B PEЖ.ЭKCTPAKOДA 014431 : C .ЗAП.B PEЖ.ДИCП. 014432 : 13,XTA,RETM67 014433 : ,AAX,BIT24 014434 : ,UZA,TOЛKAЙ.ПEЧATЬ HE HYЖHA 014435 : ,UJ,SAVSAVAR 014436 : IFMAT2:,BSS,.PEЖ.MAT. 014437 : 13,XTA,RETM67 014438 : ,ATI,33B 014439 : ,AAX,BIT24 014440 : ,U1A,SAVSAVAR 014441 : ,MTJ,27B 014442 : ,UJ,RETURN.ПOД Э67 014443 : C PEДAKЦИЯ O.>OMИДЗE 014444 : OT:,BSS, 014445 : ,XTA,BIT45 014446 : 14,UTM,-2 014447 : 14,VZM,OБЩEE 014448 : ,ITA,33B 014449 : 13,ATX,DEBS33 014450 : ,XTA,BIT44 014451 : OБЩEE:,BSS, 014452 : 13,AOX,SCJOTЛ 014453 : 13,ATX,SCJOTЛ 014454 : ,XTA,BITJ 014455 : ,AOX,SCDEBUG 014456 : ,ATX,SCDEBUG 014457 : ,XTA,SCAL67 014458 : ,AAX,ZBITJ 014459 : ,ATX,SCAL67 014460 : ,ITA,27B 014461 : ,AAX,C14 014462 : ,UZA,RETURN 014463 : 14,V1M,TOЛKAЙ 014464 : ,UJ,RETURN 014465 : ADRERR:,ENTRY, 014466 : C.. BXOД B OTЛAДЧИK OT ИMEHИ ЗAДAЧИ 014467 : C ИHИЦИИPYETCЯ ИЗ 'MULTITYP'. 014468 : C B SWITCH - PEЖИM PAБOTЫ 014469 : ,WTC,ГYC 014470 : 13,VTM, 014471 : 13,XTA,SCJOTЛ 014472 : ,ANX, 014473 : 13,ATX,SWITCH 014474 : 15,CALL,MICROSAV 014475 : ,CALL,FULSAV 014476 : ,XTA,SCDEBUG 014477 : ,AAX,ZBITJ 014478 : ,ATX,SCDEBUG 014479 : ,WTC,ГYC 014480 : 13,VTM, 014481 : ,XTA,FLERBUZ 014482 : ,AOX,BITJ 014483 : ,ATX,FLERBUZ 014484 : 13,UTC, 014485 : 15,VTM,SSUM 014486 : 14,VTM,1-12 014487 : ,XTA,SAVAC 014488 : SAV:13,UTC, 014489 : 14,XTS,I10 014490 : 14,VLM,SAV 014491 : 13,XTS,M+3 014492 : 13,XTS,M+4 014493 : 13,XTS,M+5 014494 : ,XTS,INFCALL 014495 : ,UJ,NRESCALL 014496 : INFCALL:,Z00,NRERR 014497 : ,Z00,*+1 014498 : ,ATI,12 014499 : 13,MTJ,11 014500 : 13,UTC, 014501 : 15,VTM,БYФИПЗ/M 014502 : 12,UJ, 014503 : ,END,. 014504 : NRERRMAC:,NAME, 014505 : C PEДAKЦИЯ OT 20.02.76 014506 : C (Л.KAMИHCKИЙ,И.CИЛИH,A.ГYCEB) 014507 : * И П Д :LC,BLOCK,XNF,XNFM(5),XNCM(3),Ш/FULL 014508 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 014509 : БЫЛ*64:,EQU,*ИПД+55B 014510 : SCOUT :,EQU,*ИПД+56B 014511 : SCEM*64 :,EQU,*ИПД+61B 014512 : БЛOKAЦПY:,EQU,*ИПД+66B 014513 : SCDEBUG:,EQU,*ИПД+71B 014514 : DEBS33:,EQU,565B 014515 : SCJOTЛ:,EQU,564B 014516 : DISREG:,LC,1. 014517 : C3:,LC,1. 014518 : C77777:,LC,1. 014519 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR,COMPIR,PPIR,MPPIR,M1RDSC,STCLTA 014520 : *677:B,BLOCK,BITS 014521 : ,CONT,BIT48,BIT47,BIT46,BIT45 014522 : ,CONT,BIT44,BIT43,BIT42,BIT41 014523 : ,CONT,BIT40,BIT39,BIT38,BIT37 014524 : ,CONT,BIT36,BIT35,BIT34,BIT33 014525 : ,CONT,BIT32,BIT31,BIT30,BIT29 014526 : ,CONT,BIT28,BIT27,BIT26,BIT25 014527 : ,CONT,BIT24,BIT23,BIT22,BIT21 014528 : ,CONT,BIT20,BIT19,BIT18,BIT17 014529 : ,CONT,BIT16,BIT15,BIT14,BIT13 014530 : ,CONT,BIT12,BIT11,BIT10,BIT9 014531 : ,CONT,BIT8 ,BIT7 ,BIT6 ,BIT5 014532 : ,CONT,BIT4 ,BIT3 ,BIT2 ,BIT1 014533 : S33:,EQU,3. 014534 : S32:,EQU,4. 014535 : S27:,EQU,5. 014536 : S34:,EQU,26B. 014537 : S35:,EQU,27B. 014538 : COPYS32:,EQU,46B. 014539 : COPYI14:,EQU,47B. 014540 : RETM67:,EQU,107B. 014541 : M:,EQU,100B. 014542 : REGSCAL:,EQU,M. 014543 : OШBHYПP:,EQU,M+1. 014544 : BITININ:,EQU,BIT43. 014545 : TLIMS:,EQU,84 014546 : C1:,EQU,757B. 014547 : I12:,EQU,12B 014548 : NRERROR:,SUBP, 014549 : NRESCALL:,SUBP, 014550 : NRESOFF:,SUBP, 014551 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR,SAVI15,SAVI14,SAVI13,SAVMIR,SAVS16 014552 : C14:,LC,1 014553 : B48/31:,LC,1 014554 : *SCAL71:LC,BLOCK,(3),SCAL67 014555 : FLERBUZ:,EQU,XNF+62B 014556 : ERRSC:,EQU,XNF+64B 014557 : БYФИПЗ/C:,EQU,131B 014558 : БYФИПЗ/M:,EQU,535B.AДPEC B ИПЗ 014559 : SAVI16:,EQU,SAVS16 014560 : S13/14:,EQU,45B 014561 : TOЛKAЙ:,SUBP, 014562 : COPYS33:,EQU,M+6 014563 : KOM:,EQU,14 014564 : RETURN:,SUBP, 014565 : CLANEWTA:,SUBP, 014566 : FULSAV:,SUBP, 014567 : C37:,LC,1 014568 : FULWOR:,LC,1 014569 : SELECT:,SUBP,. 014570 : MACRO74:,SUBP,. 014571 : C 014572 : BEGIN:13,REL,BEGIN 014573 : C* 014574 : ,WTC,ГYC 014575 : 15,VTM, 014576 : C* И.P.14 - HOMEP OШИБKИ ( <1000B ) 014577 : C* ИЛИ AДPEC ДИAГHOCTИKИ. 014578 : C* 014579 : C B PEЖИME MAT.ПOPTИM S32,A B PEЖ.Э - S33 014580 : 15,XTA,S13/14 014581 : ,AAX,B48/31 014582 : 15,ATX,S13/14 014583 : ,ITA,14 014584 : 15,AOX,S13/14 014585 : 15,ATX,S13/14 014586 : C--- BOCCTAHOBЛEHИE ИПД ПEPEД FULSAV 014587 : 15,XTA,COPYS33 014588 : ,ATI,33B 014589 : ,ASN,64+15 014590 : ,ATI,27B 014591 : ,ASN,64+26 014592 : ,ATX,SAVSR 014593 : ,ASN,64-41 014594 : ,AOX,SAVSR 014595 : ,ATX,SAVSR 014596 : 15,XTA,COPYS32 014597 : ,ATI,32B 014598 : 15,XTA,COPYI14 014599 : ,ATX,SAVI14 014600 : ,ASN,64+15 014601 : ,ATX,SAVS16 014602 : 15,XTA,-3 014603 : ,ATX,SAVAR 014604 : C YПAKOBKA ДЛЯ ПEЧATИ 014605 : ,ITA,27B 014606 : ,AAX,C14 014607 : ,UZA,IFMAT 014608 : ,ITA,32B 014609 : ,ARX,C77777 014610 : ,ATI,33B 014611 : IFMAT:,BSS, 014612 : 15,XTA,S35 014613 : ,ATI,32B 014614 : 13,MTJ,14 014615 : 14,REL,BEGIN.***** 014616 : 15,UTM,БYФИПЗ/C 014617 : ,XTA,Ш/FULL 014618 : ,AAX,BITJ 014619 : ,UZA,BUF/IS 014620 : 15,UTM,БYФИПЗ/M - БYФИПЗ/C 014621 : BUF/IS:,XTA,BITJ 014622 : ,AOX,FLERBUZ 014623 : ,ATX,FLERBUZ 014624 : 13,VJM,FULSAV+1 014625 : C 014626 : C... ПPИ ABAPИЯX B *WRBF CЛEДYET 014627 : C БЛOKИPOBATЬ BCE BOЗMOЖHOCTИ 014628 : C ПOBTOPHOГO BXOДA TYДA. 014629 : C 014630 : ,XTA,BITJ 014631 : ,AAX,SCEM*64 014632 : ,AOX,SCOUT 014633 : ,ATX,SCOUT 014634 : ,AAX,BITJ.!!! 014635 : ,AOX,БЛOKAЦПY 014636 : ,ATX,БЛOKAЦПY 014637 : ,XTA,6.ABOCT B ЗAДAЧE, 014638 : ,APX,BIT5.HE ПOДABABШEЙ 014639 : ,AUX,BITJ.PAHEE Э64, 014640 : ,AOX,БЫЛ*64. ПEЧATAETCЯ 014641 : ,AEX,BITJ.TOЛЬKO ПPИ 014642 : ,AAX,BITJ.HAЖATOM 014643 : ,AOX,БЛOKAЦПY.5-M PAЗPЯДE 014644 : ,ATX,БЛOKAЦПY.6-ГO T.P. 014645 : 15,UTM,-22 014646 : ,WTC,ГYC 014647 : ,XTA,S13/14 014648 : ,ATI,13 014649 : 14,MTJ,12 014650 : 12,REL,BEGIN.***** 014651 : 14,VTM,2013B 014652 : 14,MTJ,27B 014653 : ,PRINT,STR2.PAЗMETKA STR3 014654 : ,PRINT,STR3.ПEЧATЬ БYФEPA(ИПЗ) 014655 : 15,XTA,S33 014656 : ,ASN,64+10 014657 : ,AAX,C37 014658 : ,ATI,14 014659 : ,WTC,ГYC 014660 : 14,XTA,30B 014661 : ,ASN,64+30 014662 : ,U1A,HEЧYЖOЙ 014663 : ,XTA,FULWOR 014664 : ,UJ,TOKOM 014665 : HEЧYЖOЙ:,BSS, 014666 : 15,XTA,S33 014667 : ,ATI,14 014668 : : ,24,2000B 014669 : 14,XTA,.CЧИT.KOMAHДЫ 014670 : : ,24,2003B 014671 : 14,VTM,2013B 014672 : 14,MTJ,27B 014673 : TOKOM:,BSS, 014674 : 15,ATX,KOM 014675 : 15,XTA,S27 014676 : ,AAX,BIT9 014677 : ,ASN,64+8 014678 : ,ATI,14 014679 : 14,XTA,TЛEB 014680 : 15,ATX,KOM-1 014681 : ,XTA,TSTR4 014682 : 15,ATX,KOM-3 014683 : ,XTA,TSTR4+1 014684 : 15,ATX,KOM-2 014685 : C--- ИHФOPMAЦИЯ OБ OШИБKE HA И.P.13 014686 : C ЗДECЬ Д.Б. PAЗБOP: TEKCT ИЛИ HOMEP 014687 : ,ITA,13 014688 : ,ASN,64+9 014689 : ,U1A,TEXTOШ 014690 : ,XTA,SC/IN 014691 : 13,APX,BIT48 014692 : ,AUX,BITININ 014693 : ,AEX,FULWOR 014694 : ,WTC,ГYC 014695 : ,AAX,REGSCAL 014696 : ,WTC,ГYC 014697 : ,ATX,REGSCAL 014698 : 13,J+M,13 014699 : 13,UTM,DIAGN 014700 : TEXTOШ:,BSS, 014701 : 13,XTA, 014702 : 15,ATX,KOM+1 014703 : 13,XTA,1 014704 : 15,ATX,KOM+2 014705 : ,XTA,S231 014706 : 15,ATX,KOM+3 014707 : ,PRINT,STR4 014708 : C BOCCTAHOBЛEHИE ИПЗ 014709 : C HA CM И15 014710 : 15,MTJ,13 014711 : ,WTC,ГYC 014712 : 15,VTM, 014713 : 14,VTM,-9 014714 : 13,XTA, 014715 : ЦBOC:14,UTC,10 014716 : 13,XTS, 014717 : 14,VLM,ЦBOC 014718 : ,XTS,.ИP 12 014719 : 15,UTM,-1 014720 : 15,XTA,S33-10 014721 : ,ARX,C1 014722 : 15,ATX,S32-10 014723 : ,ITA,12 014724 : ,ARX,NR/REF 014725 : ,UJ,NRESOFF 014726 : NR/REF:,Z00,NRERROR 014727 : ,Z00,BOCИПД*-BEGIN 014728 : BOCИПД*:,BSS, 014729 : 15,XTA, 014730 : 14,CALL,BOCИПД 014731 : 15,UTM,1 014732 : ,XTA,ZBITJ 014733 : ,AAX,FLERBUZ 014734 : ,ATX,FLERBUZ 014735 : 15,XTA,S13/14 014736 : ,ATI,13 014737 : 15,AEX,S33 014738 : ,AAX,C77777 014739 : 15,AEX,S13/14 014740 : 15,ATX,S13/14 014741 : C--- CHOBA PAЗБИPATEЛЬCTBO : 014742 : C YXOДИTЬ HA SELECT ИЛИ RETURN 014743 : ,ITA,13 014744 : ,ASN,64+2 014745 : ,UZA,AFT/STOP.OCTAHOB 014746 : 15,MTJ,14 014747 : 14,XTA,REGSCAL. 014748 : ,AAX,BITININ. 014749 : ,UZA,MACRO74. 014750 : 14,AEX,REGSCAL. 014751 : 14,ATX,REGSCAL. 014752 : 13,UTM,-13 014753 : 13,VZM,MACRO74 014754 : 13,UTM,13-4 014755 : 13,VIM,NO TIMER 014756 : ,XTA, 014757 : 14,ATX,TLIMS 014758 : NO TIMER:,BSS, 014759 : ,ITA,13 014760 : ,ARX,BIT3.+4 014761 : ,ASN,64+9 014762 : ,ATI,13 014763 : ,YTA, 014764 : 13,VZM,IS NUMB 014765 : ,XTA,BIT46.>1000 014766 : IS NUMB:14,AEX,OШBHYПP 014767 : ,AAX,B46/40 014768 : 14,AEX,OШBHYПP 014769 : 14,ATX,OШBHYПP 014770 : ,AAX,B37/31.KPATHЫЙ ABOCT 014771 : ,UZA,NO REP. - HET 014772 : 14,XTA,OШBHYПP. 014773 : ,ARX,B37/31.ЧИCЛO 014774 : ,AOX,BIT38.ЗAKAЗ.ABOCTOB 014775 : ,AEX,BIT38. - 1 014776 : 14,ATX,OШBHYПP. 014777 : 14,XTA,REGSCAL. 014778 : ,AOX,BITININ.BOCCTAHOBЛ. 014779 : 14,ATX,REGSCAL.PEAKЦИИ 014780 : NO REP:,BSS,. 014781 : 14,XTA,OШBHYПP. 014782 : 14,ATX,S33. 014783 : ,ASN,64+15. 014784 : 14,ATX,S27. 014785 : ,XTA,SAVMIR. 014786 : ,AAX,MASINTRE. 014787 : 14,ATX,. 014788 : ,UJ,SELECT. 014789 : AFT/STOP:15,MTJ,13 014790 : 15,XTA,I12 014791 : 12,MTJ,14 014792 : 14,REL,BEGIN.***** 014793 : ,ATI,12 014794 : 15,XTA,COPYS33 014795 : ,ATI,33B 014796 : ,ITA,27B 014797 : ,AAX,C14 014798 : ,U1A,TOЛKAЙ 014799 : 15,XTA,RETM67 014800 : ,ATI,33B 014801 : ,MTJ,27B 014802 : ,UJ,RETURN.ПOД Э67 014803 : B46/40:,OCT,177 014804 : B37/31:,OCT,0001 77. 014805 : STR2:,BSS,. 014806 : 12,Z00,STRING2-BEGIN 014807 : 12,Z00,STRING2-BEGIN 014808 : ,000, 014809 : 8,,. 014810 : STR3:,BSS, 014811 : 15,Z00, 014812 : 15,Z00,25B 014813 : :2,000,16.AC 014814 : ,000, 014815 : :2,021,3.PAY 014816 : ,000, 014817 : :2,024,0.PMP 014818 : ,000, 014819 : :2,025,5.И33,32,27 014820 : ,006,2.(AП,И35,27) 014821 : :2,047,0.И16 014822 : ,000, 014823 : :2,047,5.И15-И1 014824 : 8,006,14 014825 : STR4:,BSS, 014826 : 15,Z00, 014827 : 15,Z00,15 014828 : :3,000,17.AC 014829 : ,000, 014830 : :2,025,0.SR 014831 : ,000, 014832 : :2,033,16.AR(PMP) 014833 : ,000, 014834 : :2,055,0.И33,32,27B 014835 : ,000,2 014836 : :2,055,5.И16 014837 : ,000, 014838 : :2,063,0.И15,14,13,12 014839 : ,000,3 014840 : :,063,.TEKCT K STR4 014841 : ,000, 014842 : :1,105,27B.KOMAHДA 014843 : ,000, 014844 : :,164,.TИП OШИБKИ 014845 : 8,000, 014846 : TSTR4:,GOST,12HPMP-И16/KOM. 014847 : TЛEB:,GOST,6HЛEB:'231' 014848 : ,GOST,6HПPAB:'231' 014849 : S231:,GOST,6H'231'00000 014850 : MASINTRE:,BSS,. 014851 : ,LOG,3637 4000. 014852 : SC/IN:,BSS, 014853 : C ШKAЛA HEПEPEXBATЫBAEMЫX ABOCTOB 014854 : C ПEPEXBATЫBAЮTCЯ: 8,9,27-30 014855 : ,LOG,7763 7777 7037 7777 014856 : STRING2:,BSS,. 014857 : ,GOST,39H----CYMMATOP-----PAY-AДPEC--OCT---27B-- 014858 : ,CONT,60H-И15---И14---И13---И12---И11---И10----И9----И8----И7----И6-- 014859 : ,CONT,31H--И5----И4----И3----И2----И1-'231' 014860 : DIAGN:,BSS, 014861 : 0,GOST,12HOCT.ПO ЗAП'231' 014862 : ,GOST,12HOCT.ПO ЧTEH'231' 014863 : ,GOST,12HOCT.ПO NKOM'231' 014864 : ,GOST,12HПPOKPYTKA'231' 014865 : 4,GOST,12HBPEMЯ ПO ЭK'231' 014866 : 5,GOST,12HЧYЖ.KOMAHДA'231' 014867 : 6,GOST,12HЧYЖOЙ ЛИCT '231' 014868 : 7,GOST,12HЗAПP. KOM. '231' 014869 : 8,GOST,12HПEPEПOЛH.AY'231' 014870 : 9,GOST,12HДEЛEH. HA 0'231' 014871 : 10,GOST,12H KOHTP.ЧИC.'231' 014872 : 11,GOST,12H KOHTP.KOM.'231' 014873 : 12,GOST,12HCБOЙ ЭBM '231' 014874 : 13,GOST,12HAДPEC MБ '231' 014875 : 14,GOST,12HПЛOXOЙ Э057'231' 014876 : 15,GOST,12HПЛOXOЙ Э067'231' 014877 : 16,GOST,12HПЛOX.OБMEH '231' 014878 : 17,GOST,12HЗAПP.ЭKCTP.'231' 014879 : 18,GOST,12H*ЧYЖAЯ MЛ* '231' 014880 : 19,GOST,12HЗAK.PAБ.MД '231' 014881 : 20,GOST,12HЧYЖOЙ TPEK '231' 014882 : 21,GOST,12HЗAПP.ЗAПИCЬ'231' 014883 : 22,GOST,12HHEГOTOB MД '231' 014884 : 23,GOST,12HПЛOXAЯ MЛ '231' 014885 : 24,GOST,12HHE ИДET OБM'231' 014886 : 25,GOST,12HABAPИЯ ДИCK'231' 014887 : 26,GOST,12HПЛOXOЙ TPEK'231' 014888 : 27,GOST,12H(KOPEHЬ) '231' 014889 : 28,GOST,12H(APKCИHYC) '231' 014890 : 29,GOST,12H(ЛOГAPИФM) '231' 014891 : 30,GOST,12H(EXP) '231' 014892 : 31,GOST,12HПЛOXOЙ Э050'231' 014893 : 32,GOST,12H/ЭKCTPAKOД/'231' 014894 : 33,GOST,12HЭK-ЧYЖ.ЛИCT'231' 014895 : 34,GOST,12HCБOЙ Ф.CИCT'231' 014896 : ,END,. 014897 : DISPAC71:,NAME,.04/02-81 014898 : C ИHTEPПPETAЦИЯ Э71 ДИCПAKA 014899 : C 014900 : C======================================== 014901 : C CTPYKTYPA TTDISPAC: 014902 : C B48 - TEKCT B ISO (ИHAЧE - GOST) 014903 : C B47 - HE ПOCЛEДHИЙ OБMEH ПO 014904 : C TEKYЩEMY ИHФ.CЛOBY 014905 : C B46 - HYЖEH EЩE Э/K BBOДA 014906 : C B45-31 - AHAЧ БYФEPA USER'A 014907 : C B24-16 - <ДЛИHA БYФEPA> - 1 014908 : C B15-01 - TEKYЩИЙ ADR.HAЧ. TEKCTA USER'A 014909 : C ДЛЯ OЧEPEДHOГO ДYБHEHCKOГO Э71 014910 : C......................................... 014911 : C ДИCПAKOBCKИE ЭKCTPAKOДЫ, ECTECTBEHHO, 014912 : C MOГYT BЫДABATЬCЯ TOЛЬKO ИЗ MAT.PEЖИMA 014913 : C......................................... 014914 : C BBOД C ПOДCKAЗKOЙ BЫПOЛHEH B CTИЛE 014915 : C ДИCПAKA: K USER'Y ПOПAДAET TOЛЬKO 014916 : C BBEДEHHЫЙ ПOCЛE ПOДCKAЗKИ TEKCT. 014917 : C......................................... 014918 : C 014919 : C ПPИ ПOXOДE HA MACRO71* B KAЧECTBE БY- 014920 : C ФEPA ИCПOЛЬЗYETCЯ ИПЗ. 014921 : C......................................... 014922 : C B R E G S C A L: 014923 : C B40=1 - 48-MИTEPMИHAЛЬHЫЙ PEЖИM 014924 : C (Y TЮPИHA ЭTO ЗOBETCЯ 014925 : C "ПO-HOBOMY") 014926 : C B38=1 - PAЗPEШEHИE ДИAЛOГA. БEЗ ЭTOГO 014927 : C БИTA HA ЛЮБOЙ OПPOC BЫДAETCЯ 014928 : C OTBET 'HET KAHAЛA'. 014929 : C........................................ 014930 : REGSCAL:,EQU,100B 014931 : C 014932 : *ИПД:LC,BLOCK,(1),XNFM(5),XNCM 014933 : NFM:,WEQ,XNFM 014934 : NCM:,WEQ,XNCM 014935 : *ИПK:,LC, 014936 : INFEX:,EQU,*ИПK+NCM 014937 : SMASAV:LC,BLOCK,SAVAC,SAVSR(2),SAVI15 014938 : ,CONT,SAVI14,SAVI13 014939 : *YCЫ:LC,BLOCK,ГYC 014940 : ДHЗ:LC,BLOCK,(1),BITJ 014941 : TЮPИH*71:,SUBP, 014942 : NRESOFF:,SUBP, 014943 : MACRO71*:,SUBP, 014944 : ALLTOISO:,SUBP, 014945 : RETURN:,SUBP, 014946 : C....................................... 014947 : C ЯЧEЙKИ ИПЗ: 014948 : SCEM:,EQU,83 014949 : BUFS27:,EQU,103B 014950 : *515:B,BLOCK,MSAV(7) 014951 : ,CONT,D/IW71,TTDISPAC,W 014952 : ,CONT,D/BUF(23). 014953 : C ИCП. BTOPOE ПOЛE EMULATOR'A И PAБ. 014954 : C ПOЛE ERRMACRO (KYCOK) 014955 : C....................................... 014956 : *700:B,BLOCK,B48,B47,B46,B45 014957 : ,CONT,B44,B43,B42,B41 014958 : ,CONT,B40,B39,B38,B37 014959 : ,CONT,B36,B35,B34,B33 014960 : ,CONT,B32,B31,B30,B29 014961 : ,CONT,B28,B27,B26,B25 014962 : ,CONT,B24,B23,B22,B21 014963 : ,CONT,B20,B19,B18,B17 014964 : ,CONT,B16,B15,B14,B13 014965 : ,CONT,B12,B11,B10,B 9 014966 : ,CONT,B 8,B 7,B 6,B 5 014967 : ,CONT,B 4,B 3,B 2,B 1 014968 : BNEW:,EQU,B40.B REGSCAL 014969 : BDIAL:,EQU,B38.B REGSCAL 014970 : DISREG:,LC,1 014971 : FULWOR:,LC,1 014972 : C77777:,LC,1 014973 : C377:,LC,1 014974 : C3 :,LC,1 014975 : *B:,BSS, 014976 : 13,REL,*B 014977 : ,WTC,ГYC 014978 : ,XTA,BUFS27 014979 : ,AAX,DISREG 014980 : ,U1A,DYBNA.CBOИ ЛЮДИ 014981 : 14,VZM,Д/OПPOC 014982 : ,XTA,SAVAC 014983 : C CYMMATOP = IW71 014984 : ,UZA,D/ANSWER 014985 : ,AEX,FULWOR 014986 : ,UZA,D/NEW."ПO-HOBOMY" 014987 : ,XTA,SAVAC.IW71 014988 : ,ASN,64+40 014989 : ,AEX,B1 014990 : ,AAX,C3 014991 : ,UZA,D/TERM.PAБOTA C TEPM. 014992 : C ЭK. ПEPФOPAЦИИ 014993 : ,ITA,13 014994 : ,ARX,REFNR 014995 : ,WTC,SAVI13 014996 : 13,VTM, 014997 : ,UJ,NRESOFF 014998 : REFNR:,Z00,TЮPИH*71 014999 : ,Z00,TM-*B 015000 : TM:,BSS, 015001 : 14,VTM,1 015002 : ,UJ,MACRO71* 015003 : C======================================== 015004 : D/NEW:,BSS, 015005 : ,WTC,ГYC 015006 : ,XTA,REGSCAL 015007 : ,AOX,BNEW 015008 : ,WTC,ГYC 015009 : ,ATX,REGSCAL 015010 : Д/OПPOC:,BSS, 015011 : ,WTC,ГYC 015012 : ,XTA,REGSCAL 015013 : ,AAX,BDIAL 015014 : ,UZA,D/ANSWER 015015 : ,WTC,ГYC 015016 : ,XTA,REGSCAL 015017 : ,APX,BNEW 015018 : ,U1A,D/ANSWER."ПO-HOBOMY" 015019 : ,XTA,B48*24 015020 : D/ANSWER:,BSS, 015021 : ,ATX,SAVAC 015022 : RET:,BSS, 015023 : C BOЗBPAT B ЗAДAЧY 015024 : ,ITA,13 015025 : ,ARX,D/REFNR 015026 : ,ATX,SAVAC+2.B SAVAR 015027 : ,UJ,NRESOFF+2.БEЗ YПP. 015028 : D/REFNR:,Z00,TЮPИH*71 015029 : ,Z00,RET/-*B 015030 : RET/:,BSS, 015031 : ,ITA,32B 015032 : ,ATI,33B 015033 : ,WTC,ГYC 015034 : ,XTA,BUFS27 015035 : ,ATI,27B 015036 : ,UJ,RETURN.......... 015037 : C======================================== 015038 : DYBNA:,BSS, 015039 : ,XTA,SAVAC 015040 : ,ASN,64+41 015041 : ,AAX,B1 015042 : ,AEX,B1 015043 : ,ATI,14 015044 : C Э71 BЫДAH, BИДИMO, OTЛAДЧИKOM. 015045 : C ИCПOЛHЯEM EГO БEЗ BCЯKИX ФOKYCOB. 015046 : ,ITA,13 015047 : ,ARX,REFNR2 015048 : ,WTC,SAVI13 015049 : 13,VTM, 015050 : ,UJ,NRESOFF 015051 : REFNR2:,Z00,TЮPИH*71 015052 : ,Z00,TM2-*B 015053 : TM2:,BSS, 015054 : ,UJ,MACRO71* 015055 : C........................................ 015056 : D/TERM:,BSS, 015057 : C YПPЯTЫBAHИE PEГИCTPOB 015058 : ,WTC,ГYC 015059 : 15,VTM,MSAV 015060 : ,ITA,32B 015061 : ,AOX,SAVSR 015062 : ,XTS,SAVI15 015063 : ,XTS,SAVI14 015064 : ,XTS,SAVI13 015065 : ,ITS,12 015066 : ,ITS,11 015067 : ,ITS,10 015068 : ,XTS,DISREG 015069 : ,ATI,27B 015070 : ,XTA,SAVAC 015071 : :,24,3.***** 015072 : ,WTC,ГYC 015073 : 15,VTM, 015074 : BEGIN:,BSS, 015075 : C HAЧAЛO PAЗБOPA OЧEPEДHOГO ИHФ.CЛOBA 015076 : 15,ATX,D/IW71 015077 : ,AAX,B43 015078 : ,UZA,EXCHENGE.PEAЛЬHЫЙ OБMEH 015079 : C O П P O C / O T K A З. 015080 : 15,XTA,D/IW71 015081 : ,AAX,B26.БИT OTKAЗA 015082 : ,AEX,B26 015083 : ,U1A,OПPOC 015084 : C OTKAЗ OT TEPMИHAЛA 015085 : C........................................ 015086 : TOTASK:,BSS, 015087 : C B O З B P A T B З A Д A Ч Y 015088 : :,24,2003B.***** 015089 : ,WTC,ГYC 015090 : 15,VTM,MSAV+7 015091 : ,STX,SAVAC 015092 : ,STI,10 015093 : ,STI,11 015094 : ,STI,12 015095 : ,STX,SAVI13 015096 : ,STX,SAVI14 015097 : ,STX,SAVI15 015098 : ,ATX,SAVSR 015099 : ,ATI,32B 015100 : ,XTA, 015101 : ,WTC,ГYC 015102 : ,ATX,BUFS27 015103 : ,UJ,RET 015104 : C======================================= 015105 : OПPOC:,BSS, 015106 : 15,XTA,REGSCAL 015107 : ,AAX,BDIAL 015108 : ,UZA,TO TASK.HET TEPM. 015109 : 15,XTA,REGSCAL 015110 : ,APX,BNEW 015111 : ,ASN,64-1 015112 : ,YTA, 015113 : ,ATI,14 015114 : 14,XTA,ACC1.CYMMATOP OTBETA 015115 : ,UJ,TO TASK 015116 : C======================================== 015117 : GIV15:15,XTA,MSAV+1 015118 : ,UJ,GETIND 015119 : GIV13:15,XTA,MSAV+3 015120 : ,UJ,GETIND 015121 : EXCHENGE:,BSS, 015122 : C PAЗБOP ДИCПAKOBCKOГO ИHФ.CЛOBA 015123 : C OБMEHA И EГO OБPAБOTKA. 015124 : 15,ATX,TTDISPAC 015125 : 15,XTA,D/IW71 015126 : ,AAX,=7770 7777 7400 7777 015127 : ,ASN,64+24 015128 : 15,ATX,W 015129 : ,YTA, 015130 : 15,AOX,W 015131 : C AKOH / AHAЧ 015132 : GIVADR:,BSS,.BЫЧ. ИCП. ADR. 015133 : 15,ATX,W 015134 : ,ASN,64+20 015135 : ,AAX,=17 015136 : ,ATI,14 015137 : ,AEX,=17 015138 : ,UZA,GIV15.IR 15. 015139 : ,AEX,B2 015140 : ,UZA,GIV13.IR 13. 015141 : 14,ITA, 015142 : GET IND:15,ARX,W 015143 : 15,ATX,W 015144 : ,ASN,64+24 015145 : ,UZA,HAVADR.OБA AДPECA 015146 : 15,XTA,W 015147 : ,AAX,C77777 015148 : 15,ATX,TTDISPAC.AHAЧ 015149 : ,ASN,64-24 015150 : 15,AOX,TTDISPAC 015151 : 15,ATX,TTDISPAC 015152 : 15,XTA,W 015153 : ,ASN,64+24.AKOH 015154 : ,UJ,GIVADR 015155 : HAVADR:,BSS, 015156 : 15,XTA,W 015157 : ,AAX,C77777 015158 : 15,ATX,W.AKOH 015159 : 15,XTA,TTDISPAC 015160 : ,AAX,C77777.AHAЧ 015161 : ,NTR,7 015162 : 15,X-A,W 015163 : ,U1A,MANY 015164 : 15,ATX,W 015165 : ,A-X,MAXL 015166 : ,UZA,MANY 015167 : 15,XTA,W 015168 : ,UJ,GLONG 015169 : MANY:,XTA,MAXL 015170 : GLONG:,BSS, 015171 : ,ASN,64-15 015172 : 15,AEX,TTDISPAC 015173 : ,AAX,=3770 0000 015174 : 15,AEX,TTDISPAC 015175 : 15,ATX,TTDISPAC 015176 : 15,XTA,D/IW71 015177 : ,APX,B37 015178 : 15,AEX,TTDISPAC 015179 : ,AAX,B48 015180 : 15,AEX,TTDISPAC 015181 : 15,ATX,TTDISPAC 015182 : 15,XTA,D/IW71 015183 : ,AAX,B40.BBOД 015184 : ,UZA,OUT 015185 : C BBOД. HYЖHA ЛИ ПOДCKAЗKA! 015186 : 15,XTA,D/IW71. 015187 : ,AAX,=:0005.B39+B37 015188 : ,UZA,INPUT.ЧИCTЫЙ BBOД 015189 : OUT:,BSS, 015190 : 11,VTM,-19 015191 : COPY:15,WTC,TTDISPAC 015192 : 11,UTC,19 015193 : 14,VTM, 015194 : :,24,.***** 015195 : 14,XTA, 015196 : :,24,3.***** 015197 : 11,UTC,19 015198 : 15,ATX,D/BUF 015199 : 12,VTM,-5 015200 : TRW:,BSS, 015201 : ,ASN,64-8 015202 : 11,UTC,19 015203 : 15,ATX,D/BUF 015204 : ,YTA, 015205 : 15,ATX,W 015206 : 15,XTA,TTDISPAC 015207 : ,ARX, 015208 : ,UZA,LOK.ISO 015209 : C K O Д G O S T 015210 : 15,XTA,W 015211 : ,AEX,C377 015212 : ,UZA,E/TEXT1 015213 : ,AEX,=205.ИHB.172 015214 : ,UZA,E/TEXT1 015215 : 14,VTM,OWNTAB-1 015216 : C ПEPEKOДИPOBKA: GOST - ISO. 015217 : OWNCOD:14,UTM,1 015218 : 14,XTA, 015219 : ,UZA,*1 015220 : 15,AEX,W 015221 : ,AAX,C377 015222 : ,U1A,OWNCOD 015223 : 14,XTA, 015224 : ,ASN,64+9 015225 : ,UJ,SYMB/ 015226 : OWNTAB:,LOG,040 017 015227 : ,LOG,105 020 015228 : ,LOG,077 021 015229 : ,LOG,052 024 015230 : ,LOG,047 032 015231 : ,LOG,047 033 015232 : ,LOG,043 034 015233 : ,LOG,074 116 015234 : ,LOG,076 117 015235 : ,LOG,077 120 015236 : ,LOG,077 121 015237 : ,LOG,077 122 015238 : ,LOG,077 123 015239 : ,LOG,053 124 015240 : ,LOG,075 125 015241 : ,LOG,041 130 015242 : ,LOG,170 135 015243 : ,LOG,072 136 015244 : ,LOG,047 137 015245 : ,LOG, 015246 : *1:15,XTA,W 015247 : ,ASN,64-32 015248 : 15,ATX,W 015249 : 14,VTM,-177B 015250 : TRANS1:,BSS, 015251 : 14,AEX,ALLTOISO+177B 015252 : ,AAX,=:000774.2-Й БAЙT 015253 : ,UZA,SYMB.HAШ CИMB. 015254 : 15,XTA,W 015255 : 14,VLM,TRANS1 015256 : 14,VTM,1-177B.ПYCTЫШKA 015257 : SYMB:14,UTM,177B 015258 : ,ITA,14 015259 : SYMB/:11,UTC,19 015260 : 15,AOX,D/BUF 015261 : 12,VLM,TRW 015262 : 11,UTC,19 015263 : 15,ATX,D/BUF 015264 : 11,MTJ,14 015265 : 14,UTM,19 015266 : ,ITA,14 015267 : ,ASN,64-15 015268 : 15,AEX,TTDISPAC 015269 : ,AAX,=3770 0000.ДЛИHA БYФ. 015270 : ,UZA,E/COPY 015271 : 11,VLM,COPY 015272 : C 015273 : C TEKCT HE ЛEЗET B 20 ЯЧEEK 015274 : C 015275 : ,XTA,B47 015276 : ,UJ,O/CONT 015277 : E/COPY:,BSS, 015278 : 15,XTA,D/IW71 015279 : ,AAX,B40. 015280 : ,U1A,INP.BBOД 015281 : 15,XTA,D/IW71 015282 : ,AAX,B37 015283 : ,UZA,OUT1 015284 : C BЫBOД B KOДE TEPMИHAЛA (ISO) 015285 : ,XTA, 015286 : ,UJ,O/CONT 015287 : INP:,BSS, 015288 : ,XTA,=:3 015289 : O/CONT:,BSS, 015290 : 15,AOX,TTDISPAC 015291 : 15,ATX,TTDISPAC 015292 : ,XTA,=6H'24''''''''''' 015293 : OUT1:,BSS, 015294 : 11,UTC,20 015295 : 15,ATX,D/BUF 015296 : C БYФEP ГOTOB, MOЖHO BЫBOДИTЬ 015297 : C........................................ 015298 : OUTPUT:,UTC,1 015299 : INPUT:14,VTM, 015300 : ,ITA,15 015301 : ,ASN,64-24 015302 : 14,ARX,IW71/DD.INP/OUT 015303 : :,24,2003B.***** 015304 : ,ATX,SAVAC 015305 : ,XTA,DISREG 015306 : 15,ATX,BUFS27 015307 : 14,VTM,RET/MAC 015308 : 14,MTJ,32B 015309 : ,WTC, Д H З 015310 : ,XTA,*ИПK-NFM 015311 : ,AAX,B17 015312 : :,UZA,*+1 015313 : ,UTC,2.K KAДAHЦEBY 015314 : :14,VTM,. - CBOЙ 015315 : ,UJ,MACRO71*.HA ИCПOЛHEHИE 015316 : C........................................ 015317 : E/TEXT1:,BSS,.ДOKPYTKA 015318 : 11,UTC,19 015319 : 15,XTA,D/BUF 015320 : ,UJ,*2/1 015321 : *2:,ASN,64-8 015322 : *2/1:,AOX,B1 015323 : 12,VLM,*2 015324 : 11,UTC,19 015325 : 15,ATX,D/BUF 015326 : ,UJ,E/COPY 015327 : C........................................ 015328 : LOK:,BSS, 015329 : C BЫBOД B KOДE TEPMИHAЛA (ISO) 015330 : 15,XTA,W 015331 : ,UZA,E/TEXT1.KOHEЦ 015332 : ,AAX,=177.HA BCЯK.CЛYЧAЙ 015333 : ,UJ,SYMB/ 015334 : C======================================= 015335 : C BЫBOД CЛEДYЮЩEЙ ЧACTИ TEKCTA 015336 : C 015337 : REPEAT:,BSS, 015338 : 15,AEX,TTDISPAC 015339 : 15,ATX,TTDISPAC 015340 : ,ARX,=3540 0024 015341 : 15,AEX,TTDISPAC 015342 : ,AAX,=3777 7777 015343 : 15,AEX,TTDISPAC 015344 : 15,ATX,TTDISPAC 015345 : ,AAX,B46 015346 : ,UZA,OUT.ПPOДOЛЖ.BЫBOД 015347 : C A TEПEPЬ HYЖEH BBOД 015348 : 15,AEX,TTDISPAC 015349 : 15,ATX,TTDISPAC 015350 : ,ASN,64+24 015351 : ,AAX,C77777 015352 : 15,ATX,W.AHAЧ БYФ. 015353 : 15,XTA,TTDISPAC 015354 : ,AAX,C77777.TEK.AHAЧ 015355 : 15,A-X,W.HACTOЯЩИЙ AHAЧ 015356 : ,ASN,64-15 015357 : 15,ARX,TTDISPAC 015358 : ,AAX,=3770 0000 015359 : 15,AOX,W 015360 : 15,AEX,TTDISPAC 015361 : ,AAX,=3777 7777 015362 : 15,AEX,TTDISPAC 015363 : 15,ATX,TTDISPAC 015364 : ,UJ,INPUT 015365 : C======================================== 015366 : C O Б P A Б O T K A K O H Ц A 015367 : C O Б M E H A: 015368 : C........................................ 015369 : RET/MAC:,BSS, 015370 : :,24,3.***** 015371 : 15,XTA,TTDISPAC 015372 : ,AAX,B47 015373 : ,U1A,REPEAT 015374 : 15,XTA,D/IW71 015375 : ,AAX,B40.БИT BBOДA 015376 : ,UZA,NEXT.БЫЛ ЧИCTЫЙ OUT 015377 : C OKOHЧEH BBOД 015378 : 11,VTM,-22 015379 : 10,VTM,.BUF.USER'A 015380 : COPY/A:,BSS, 015381 : 15,XTA,TTDISPAC 015382 : ,ARX, 015383 : ,UZA,ISO.KOД TEPMИHAЛA 015384 : 11,UTC,22 015385 : 15,XTA,D/BUF 015386 : 12,VTM,-5 015387 : TRW/A:,BSS, 015388 : ,ASN,64-8 015389 : 11,UTC,22 015390 : 15,ATX,D/BUF 015391 : ,YTA, 015392 : ,UZA,E/TEXT2 015393 : ,ATI,14.ПEPEBOД: 015394 : 14,XTA,ALLTOISO.ISO-GOST 015395 : ,ASN,64+32 015396 : ,AAX,C377 015397 : ,ATI,14 015398 : 14,UTM,-32B 015399 : 14,VIM,HEKAB 015400 : ,ARX,B1.32 HA 33 (AПOCTPOФ) 015401 : HEKAB:,BSS, 015402 : 11,UTC,22 015403 : 15,AOX,D/BUF 015404 : 12,VLM,TRW/A 015405 : WRWORD:15,WTC,TTDISPAC 015406 : 14,VTM, 015407 : :,24,.***** 015408 : 14,UTC, 015409 : 10,ATX, 015410 : :,24,3.***** 015411 : ,ITA,10 015412 : ,ASN,64-15 015413 : 15,AEX,TTDISPAC 015414 : ,AAX,=3770 0000 015415 : ,UZA,NEXT.БYФ.ПOЛOH 015416 : 10,UTM,1 015417 : 11,VLM,COPY/A 015418 : C HAШ БYФEP (B ИПЗ) KOHЧИЛCЯ 015419 : 15,XTA,TTDISPAC 015420 : ,AAX,B48 015421 : ,AEX,B48 015422 : ,UZA,WR2.KOД TEPMИHAЛA 015423 : ,XTA,=6H'377''''''''''' 015424 : WR2:,24,.***** 015425 : 14,UTC, 015426 : 10,ATX, 015427 : :,24,3.***** 015428 : ,UJ,NEXT.ЗAKAЗ BЫПOЛHEH 015429 : E/TEXT2:11,UTC,22 015430 : 15,XTA,D/BUF 015431 : ,AOX,C377 015432 : ,UJ,*4/1 015433 : *4:,ASN,64-8 015434 : *4/1:12,VLM,*4 015435 : C 015436 : C <ПPOБEЛ> - ПYCTAЯ ПOCЫЛKA 015437 : C 015438 : 10,VIM,WRW3 015439 : ,AEX,=6H'17''377''''''''' 015440 : :,U1A,*+1 015441 : ,XTA,=6H'360''377''''''''' 015442 : :,AEX,=6H'17''377''''''''' 015443 : WRW3:15,WTC,TTDISPAC 015444 : 14,VTM, 015445 : ,UJ,WR2 015446 : ISO:,BSS, 015447 : 11,UTC,22 015448 : 15,XTA,D/BUF 015449 : ,AAX,C377 015450 : ,UZA,E/ISO 015451 : 11,UTC,22 015452 : 15,XTA,D/BUF 015453 : ,UJ,WRWORD 015454 : E/ISO:11,UTC,22.KOHEЦ ЗAKAЗA 015455 : 15,XTA,D/BUF 015456 : ,UJ,WRW3 015457 : C======================================= 015458 : NEXT:,BSS, 015459 : C OЧEPEДHOE ИHФ.CЛOBO OБPAБOTAHO. 015460 : C ПPOBEPKA: A ЧTO TAM, ДAЛЬШE. 015461 : 15,XTA,D/IW71 015462 : ,AAX,B19.ПOCЛEДHEE 015463 : ,U1A,END.ИHФ.CЛOBO 015464 : 15,XTA,MSAV+2.IR 14 015465 : ,ARX,B1 015466 : 15,ATX,MSAV+2 015467 : ,ATI,14 015468 : :,24,.***** 015469 : 14,XTA, 015470 : :,24,3.***** 015471 : ,AEX,FULWOR 015472 : ,UZA,END/.OПPOC/NEW 015473 : ,AEX,FULWOR 015474 : ,UJ,BEGIN.PAЗБOP 015475 : C============================== 015476 : END:,BSS, 015477 : C K O H E Ц Э K C T P A K O Д A 015478 : C 015479 : C ПEPEД BЫXOДOM - OПPOC ПOДKЛ. 015480 : 15,XTA,REGSCAL 015481 : ,AAX,BDIAL 015482 : ,UZA,TOTASK 015483 : 15,XTA,REGSCAL 015484 : ,APX,BNEW 015485 : ,U1A,TOTASK 015486 : ,XTA,B48*24 015487 : ,UJ,TOTASK 015488 : C.......................................... 015489 : END/:,BSS, 015490 : :,24,2003B 015491 : 15,XTA,REGSCAL 015492 : ,AOX,BNEW.ПPИЗHAK: NEW 015493 : 15,ATX,REGSCAL 015494 : :,24,3 015495 : ,UJ,END 015496 : C========================================== 015497 : C K O H C T A H T Ы 015498 : C.......................................... 015499 : B48*24:,OCT,4000 0000 4 015500 : ACC1:,OCT,4 015501 : ,OCT,5000 0002 0000 0001 015502 : IW71/DD:,Z06,D/BUF.BBOД 015503 : ,, 015504 : :,Z04,D/BUF.BЫBOД 015505 : ,, 015506 : MAXL:,LOG,323.324 015507 : ,END, 015508 : NRCDC405:,NAME, 015509 : C 015510 : C***** YПPABЛEHИE ЧИTAЛKOЙ CDC405 015511 : C ФИЗИЧECKOE ПOДKЛЮЧEHИE B YBY-6 015512 : C ЛOГИЧECKOE ПOДKЛЮЧEHИE B KBY-4 015513 : C 015514 : *677:B,BLOCK,BITS 015515 : ,CONT,B48,B47,B46,B45,B44,B43 015516 : ,CONT,B42,B41,B40,B39,B38,B37 015517 : ,CONT,B36,B35,B34,B33,B32,B31 015518 : ,CONT,B30,B29,B28,B27,B26,B25 015519 : ,CONT,B24,B23,B22,B21,B20,B19 015520 : ,CONT,B18,B17,B16,B15,B14,B13 015521 : ,CONT,B12,B11,B10,B9,B8,B7,B6 015522 : ,CONT,B5,B4,B3,B2,B1 015523 : DISREG:,LC,1 015524 : C2004 :,LC,1 015525 : MASK12:,LC,1 015526 : C7777:,LC,1 015527 : FULWOR:,LC,1 015528 : C77777:,LC,1 015529 : B24/1 :,LC,1 015530 : C76000:,LC,1 015531 : C 015532 : C--- CBЯЗЬ C PEЗИДEHTOM BBOДA : 015533 : C 015534 : FSBASENR:LC,BLOCK,(1),BASE405 015535 : БAЗAПPИЗ:LC,BLOCK,BASEFLAG(7) 015536 : ,CONT,DN405,BIT405,KД 015537 : C 015538 : C--- CЧETЧИK KAPT И OШИБOK (YBBK-2) 015539 : C 015540 : *STATBUF:LC,BLOCK,(8),STAT 015541 : C 015542 : C--- OCHOBHЫE БЛOKИ ДИCПETЧEPA : 015543 : C 015544 : * И П Д :LC,BLOCK, XNF 015545 : OUTJOBSC:,EQU,XNF+52B 015546 : SCALES :LC,BLOCK,(5),SC/YBBK 015547 : * Y C Ы :LC,BLOCK, Г Y C, RDSCAL, COMMIR 015548 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 015549 : SMASAV :LC,BLOCK,SAVAC,SAVSR,SAVAR 015550 : ,CONT,SAVI15,SAVI14,SAVI13 015551 : CONTIME:LC,BLOCK,(7),TCDC405 015552 : *TAKCA:LC,BLOCK,(3),T 015553 : C 015554 : BOCИПД :,SUBP, 015555 : ERRMACRO:,SUBP, 015556 : MACRO74 :,SUBP, 015557 : TTPRINT :,SUBP, 015558 : RETURN :,SUBP, 015559 : CLANEWTA:,SUBP, 015560 : NEWTA :,SUBP, 015561 : NEWTA* :,SUBP, 015562 : TIME10 :,SUBP, 015563 : CLOMIR :,SUBP, 015564 : TOCDC405:,SUBP, 015565 : NRESOFF :,SUBP, 015566 : NR405 :,SUBP, 015567 : TRA TAPE:,SUBP, 015568 : C 015569 : C--- БЛOKИ, OБЩИE C ЗAДAЧEЙ OБMEHA : 015570 : C 015571 : TASKSTRA :LC,BLOCK,TBUC(6),TBUT(6),CSUMSTAT 015572 : SCALSTRA :LC,BLOCK,SBUC(6),SRJC(6),SJMT 015573 : STATUSMT:LC,BLOCK,(5),NEW(4),W05741(19),ШHГ(4) 015574 : TRAMASK :,LC,1 015575 : TRABUS:,LC,1 015576 : C 015577 : GIVTRA :,SUBP, 015578 : TRAINT:,SUBP, 015579 : TRAPHY :,SUBP, 015580 : TASKOFF :,SUBP, 015581 : AFGVTR:,SUBP, 015582 : C 015583 : C--- ПOЛE YПPЯTЫBAHИЯ PEГИCTPOB : 015584 : C 015585 : SAVE:I,BLOCK,AC,SR,AR,S33,S32,S27,S16,S15 015586 : ,CONT,S14,S13,S12,S11,STAC(4) 015587 : C 015588 : C--- ЯЧEЙKИ B ИПЗ : 015589 : C 015590 : TIME:,EQU,110B 015591 : C 015592 : C--- БYФEPHЫЙ CEKTOP : 015593 : C 015594 : N BUF:,EQU,13 015595 : SHIFT:,EQU,48-NBUF 015596 : BUF405:,SC,0 015597 : BUF1:,EQU,BUF405 015598 : BUF2:,EQU,BUF1+10 015599 : C 015600 : C================================== 015601 : C 015602 : B:13,REL,B 015603 : ,ITA,32B 015604 : ,ATI,33B 015605 : ,XTA,DN405 015606 : 14,VZM,OTKAЗ 015607 : ,UZA,FREE 015608 : ,AEX, Д H З 015609 : ,UZA,OWN 015610 : C... BY ЗAHЯTO 015611 : 14,VTM,TBYЗAH 015612 : ,ITA,14 015613 : 14,VTM,MACRO74 015614 : ,UJ,TTPRINT 015615 : OTKAЗ:,AEX, Д H З 015616 : ,U1A,NRSRET 015617 : ,ATX,TCDC405 015618 : ,ATX,DN405 015619 : NRSRET:,BSS, 015620 : ,XTA,W/OFF 015621 : ,ATX,SAVAR 015622 : ,UJ,NRESOFF+2 015623 : W/OFF:,Z00,NR405 015624 : ,Z00,RETURN 015625 : C 015626 : C... ЗAXBAT ЭKCTPAKOДA : 015627 : C 015628 : FREE:,ATX,DEND 015629 : ,XTA, Д H З 015630 : ,ATX,DN405 015631 : ,XTA,BITJ 015632 : ,ATX,BIT405 015633 : ,XTA,B48 015634 : ,ATX,RECARD 015635 : ,ATX,WRCARD 015636 : ,ATX,ISCAR.KAPT HET 015637 : OWN:,XTA,DEND 015638 : ,U1A,ERROR 015639 : 15,VTM,SAVE+1 015640 : ,XTA,SAVSR 015641 : ,ITS,13 015642 : 15,ATX, 015643 : ,ASN,64-24 015644 : 15,AOX, 015645 : ,ATX,BASE405 015646 : ,ITS,33B 015647 : ,ITS,32B 015648 : ,ITS,27B 015649 : ,XTS,DISREG 015650 : ,ATI,27B 015651 : ,XTS,SAVI15 015652 : ,XTS,SAVI14 015653 : ,XTS,SAVI13 015654 : ,ITS,12 015655 : ,ITS,11 015656 : ,ITS, 015657 : C 015658 : C... ECTЬ ЛИ ГOTOBЫE KAPTЫ : 015659 : C 015660 : ПPИEM:,24,3 015661 : ,WTC,BASE405 015662 : 13,VTM, 015663 : ,XTA,RECARD 015664 : ,AEX,WRCARD 015665 : ,U1A,GIVADR.-ДA 015666 : ,XTA,ISCAR 015667 : ,U1A,ЖДEM.-HET 015668 : C 015669 : C... ПOЛYЧEHИE AДPECA KAPTЫ : 015670 : C 015671 : GIVADR:,XTA,RECARD 015672 : ,ANX,C77777 015673 : ,ATX,ABUF 015674 : ,XTA,BASE405 015675 : ,AAX,C76000 015676 : ,WTC,ABUF 015677 : ,ARX,POIN 015678 : ,ATX,ABUF 015679 : ,ATI,14 015680 : ,WTC,S14 015681 : 15,VTM, 015682 : C 015683 : C... YCTAHOBKA ПPИЗHAKA ДИCП.KOHЦA 015684 : C 015685 : 14,XTA,20 015686 : ,ATX,DEND 015687 : ,AEX,B1 015688 : ,ATX,S14 015689 : C 015690 : C... HYЖEH ЛИ ПEPEBOPOT : 015691 : C 015692 : ,XTA,BASEFLAG 015693 : ,AEX,=6HЭ60CDC 015694 : ,AAX,B24/1 015695 : ,U1A,REVCARD 015696 : 11,VTM,-19 015697 : C 015698 : C... ПEPEПИCЬ ПOKOЛOHHAЯ : 015699 : C 015700 : TRAN:14,XTA, 015701 : ,WTC,S27 015702 : :,24, 015703 : 15,ATX, 015704 : :,24,3 015705 : 14,UTM,1 015706 : 11,VLM,TRAN 015707 : C 015708 : C... BOЗBPAT ПOД ЭKCTPAKOД 060 015709 : C 015710 : ИCXOД:15,VTM,S11+1 015711 : :,24,2003B 015712 : ,XTA,RECARD 015713 : ,ASN,64+1 015714 : ,ATX,RECARD 015715 : ,ASN,64+SHIFT 015716 : ,U1A,COUNT 015717 : ,XTA,B48 015718 : ,ATX,RECARD 015719 : COUNT:,ATX,ISCAR 015720 : ,XTA,B1.ЧИCЛO 015721 : ,ARX,STAT.BBEДEHHЫX 015722 : ,ATX,STAT.KAPT 015723 : ,NTR,6 015724 : ,WTC, Г Y C 015725 : ,XTA,TIME.ДOБABKA 015726 : ,A+X,T.ЗA BBOД 015727 : ,WTC, Г Y C.OДHOЙ 015728 : ,STX,TIME.KAPTЫ 015729 : ,STI,11 015730 : ,STI,12 015731 : 14,VTM,RETURN 015732 : ,UJ,BOCИПД 015733 : C 015734 : C... ПEPEBOPOT KAPTЫ B YПП-ФOPMAT 015735 : C 015736 : REVCARD:11,VTM,-24 015737 : ,XTA,=0001 0001 0001 0001 015738 : REV3:,ATX,MASK 015739 : 12,VTM,-20 015740 : REV2:11,UTM,1 015741 : 14,VTM,-40 015742 : ,XTA, 015743 : ,ATX,KOD 015744 : REV1:,WTC,ABUF 015745 : 12,XTA,20 015746 : ,APX,MASK 015747 : 14,ASN,64+48 015748 : ,AOX,KOD 015749 : ,ATX,KOD 015750 : 14,UTM,4 015751 : 12,UTM,1 015752 : 14,VIM,REV1 015753 : ,WTC,S27 015754 : :,24, 015755 : 15,ATX, 015756 : :,24,3 015757 : 12,VIM,REV2 015758 : ,XTA,MASK 015759 : ,ASN,64-1 015760 : 11,VIM,REV3 015761 : ,UJ,ИCXOД 015762 : C 015763 : C... З A K P Ы T И E З A Д A Ч И 015764 : C ПOCTAHOBKA, ECЛИ HAДO, ЗAKAЗA HA OБMEH 015765 : C 015766 : ЖДEM:,24,2003B 015767 : 14,VTM,ПPИEM 015768 : 14,MTJ,33B 015769 : 12,VTM,CLANEWTA 015770 : ,XTA,TCDC405 015771 : ,U1A,TO SCAL.HET ГT. 015772 : ,XTA,DN405 015773 : ,ASN,64-42 015774 : ,AOX,KYCWL 015775 : ,ATX,KYC 015776 : ,AEX,TBUC+3 015777 : ,UZA,TO SCAL.ECTЬ ЗAKAЗ 015778 : ,XTA,ADR2E 015779 : ,ARX,BASE405 015780 : ,ATX,KYC+1 015781 : ,ITA,13 015782 : ,ARX,AKYC 015783 : ,ATX,TKYC 015784 : 13,VTM,TKYC 015785 : 12,VTM,TRAPHY 015786 : TO SCAL:,XTA,BITJ 015787 : ,AOX,SC/YBBK 015788 : ,ATX,SC/YBBK 015789 : 12,UJ, 015790 : KYCWL:,Z04, 015791 : 8,Z00,200B 015792 : ADR2E:,Z00,EXCH-B 015793 : ,Z00,EXCH-B 015794 : AKYC:,Z07, 015795 : ,Z00,KYC-B 015796 : TKYC:,LOG, 015797 : KYC:,BSS,2 015798 : C 015799 : C************************************ 015800 : C 015801 : C K O H E Ц O Б M E H A 015802 : C BXOД OT ПPEPЫBAHИЯ ПO 26 P. ГPП 015803 : C 015804 : C************************************ 015805 : C 015806 : END EXT6 :,ENTRY, 015807 : C 015808 : ,XTA,C2004 015809 : ,EXT,145B 015810 : PUT TRAM:,BSS, 015811 : ,XTA, 015812 : ,ATX,TCDC405 015813 : ,XTA,B26 015814 : ,CALL,CLOMIR 015815 : ,XTA,B2.ИMИTИPYEM 015816 : ,AOX,W05741+1.ПPOXOД 015817 : ,ATX,W05741+1.ЗOHЫ MЛ 015818 : 14,VTM,4 015819 : 15,VTM,AFGVTR 015820 : ,UJ,TRA TAPE 015821 : C 015822 : C********************************** 015823 : C Б Y Д И Л Ь H И K 015824 : C BXOД ИЗ BPEMEHHЫX ПPEPЫBAHИЙ 015825 : C********************************** 015826 : C 015827 : TIMER:,XTA,B16 015828 : ,ARX,TCDC405 015829 : ,ATX,TCDC405 015830 : ,AAX,B23 015831 : ,UZA,TIME10 015832 : ,XTA, 015833 : ,ATX,TCDC405 015834 : ,XTA,B2 015835 : ,EXT,31B 015836 : ,WTC,BASE405 015837 : 14,VTM,PYГAHЬ - B 015838 : ,ITA,14 015839 : 14,VTM,RETURN 015840 : ,UJ,TTPRINT 015841 : CHEKRD:,XTA,C2004 015842 : 15,VJM,TOCDC405 015843 : ,UZA,TIME10 015844 : ,XTA,B11 015845 : 15,VJM,TOCDC405 015846 : ,U1A,TIME10 015847 : ,ATX,TCDC405 015848 : ,XTA,BIT405 015849 : ,AAX,SC/YBBK 015850 : ,AEX,SC/YBBK 015851 : ,ATX,SC/YBBK 015852 : ,YTA, 015853 : ,AOX,RDSCAL 015854 : ,ATX,RDSCAL 015855 : ,UJ,NEWTA 015856 : C 015857 : C******************************** 015858 : C PAБOTA OT ЗAДAЧИ OБMEHA : 015859 : C******************************** 015860 : C 015861 : EXCH:9,MTJ,6.BOЗBPAT 015862 : ,WTC,BASE405 015863 : 13,VTM, 015864 : ,XTA,OUTJOBSC 015865 : ,AAX,BIT405 015866 : ,U1A,OUTJOB 015867 : ,XTA,KД 015868 : ,UZA,ПYCK 015869 : C... ЭTO KOHEЦ OБMEHA 015870 : ,EXT,4101B 015871 : ,AAX,B11 015872 : ,U1A,БAYC6.HET OШBY 015873 : ,XTA,=2010 015874 : ,ATX,MASK 015875 : 15,VJM,TOCDC405 015876 : 14,VTM, 015877 : ,UZA,OШBY 015878 : БAYC6:,EXT,4036B 015879 : ,ASN,64-36 015880 : ,AUX,=6H'7''7''7''7''''' 015881 : ,AOX,=6H0000)'' 015882 : ,ATX,OШБAYC+2 015883 : ,AEX,=6H0024)'' 015884 : 14,VTM,OШБAYC-OШBYK0 015885 : ,U1A,DIAGN 015886 : 14,VJM,AKTIV 015887 : C... KYДA ПИCATЬ KAPTY : 015888 : ,XTA,WRCARD 015889 : ,ANX,C77777 015890 : ,ATI,14 015891 : ,XTA,WRCARD 015892 : ,ASN,64+1 015893 : ,ATX,WRCARD 015894 : ,ASN,64+SHIFT 015895 : ,U1A,NEXT 015896 : ,XTA,B48 015897 : ,ATX,WRCARD 015898 : NEXT:,XTA,BASE405 015899 : ,AAX,C76000 015900 : 14,ARX,POIN 015901 : ,ATI,14 015902 : 15,VTM,STAC 015903 : ,XTA,MASK12 015904 : 13,AEX,BUF2-B 015905 : 13,ATX,BUF2-B 015906 : 13,XTA,BUF1-B 015907 : 14,ATX, 015908 : ,AEX,MASK12 015909 : 11,VTM,-18 015910 : TRANW:11,UTC,19 015911 : 13,XTS,BUF1-B 015912 : 11,UTC,19 015913 : 14,ATX, 015914 : 15,AOX, 015915 : 11,VLM,TRANW 015916 : 14,XTS,10 015917 : ,AEX,MASK12 015918 : 14,STX,10 015919 : ,U1A,NO DK 015920 : ,UTC,B1 015921 : NO DK:,XTA, 015922 : 14,ATX,20 015923 : ,U1A,TOPMOЗ 015924 : ,XTA,WRCARD 015925 : ,AEX,RECARD 015926 : ,U1A,ПYCK 015927 : ,ATX,ISCAR.OБOГHAЛИ 015928 : ,UJ,TOPMOЗ.HA KPYГ 015929 : C--- 015930 : ПYCK:,XTA, 015931 : 15,VJM,TOCDC405 015932 : ,U1A,NO READY 015933 : ,XTA,C2004 015934 : 15,VJM,TOCDC405 015935 : ,UZA,NO READY 015936 : ,XTA,B10 015937 : ,ATX,KД 015938 : 15,VJM,TOCDC405 015939 : ,ITA,13 015940 : ,AAX,C76000 015941 : ,ASN,64-2 015942 : ,AOX,KYC6 015943 : ,EXT,6.OБMEH 015944 : ,XTA,=1026 015945 : ,EXT,145B.ПYCK 015946 : ,XTA,KYC.ЗAXBAT 015947 : ,ATX,TBUC+3.KAHAЛA 015948 : ,XTA,B26 015949 : ,AOX,TRAMASK 015950 : ,ATX,TRAMASK 015951 : 7,VTM,TIMER 015952 : 14,VTM,4 015953 : ,ITA,7 015954 : ,ATX,TCDC405 015955 : 6,UJ, 015956 : C OБMEH BEДETCЯ C 1-M CEKTOPOM 015957 : C CBBOEГO NR-ЛИCTA : 015958 : KYC6:,LOG,240 2100 015959 : C 015960 : C... OTPAБOTKA HEГOTOBHOCTИ ПEPEД ПYCKOM 015961 : C 015962 : NO READY:,XTA,=2040.PRE-READ 015963 : 15,VJM,TOCDC405 015964 : ,ATX,MASK 015965 : 14,VTM,2 015966 : OШ BY:,XTA,=2100.FEED FILE 015967 : 15,VJM,TOCDC405 015968 : ,AAX,MASK 015969 : ,U1A,DIAGN 015970 : 14,UTM,2 015971 : DIAGN:,24,2003B 015972 : 14,UTM,OШBYK0 015973 : 7,VTM,CHEK RD - B 015974 : 14,XTA,1 015975 : ,AAX,B33 015976 : ,U1A,CБOЙ CИ 015977 : ,UTC,B37-B25 015978 : CБOЙ CИ:,XTA,B25 015979 : ,ARX,STAT 015980 : ,ATX,STAT 015981 : 13,J+M,7 015982 : ,ITA,14 015983 : 14,VJM,TTPRINT 015984 : ,ITA,7 015985 : ,ATX,TCDC405 015986 : 14,VTM,TOPMOЗ 015987 : C 015988 : C... AKTИBBИЗAЦИЯ ЮЗEPA : 015989 : C 015990 : AKTIV:,24,2003B 015991 : ,XTA,BIT405 015992 : ,AAX,SC/YBBK 015993 : ,AEX,SC/YBBK 015994 : ,ATX,SC/YBBK 015995 : ,YTA, 015996 : ,AOX,RDSCAL 015997 : ,ATX,RDSCAL 015998 : :,24,3 015999 : 14,UJ, 016000 : C 016001 : C... ИЗ'ЯTИE ЗAKAЗA ИЗ WL1 : 016002 : C 016003 : TOPMOЗ:,BSS, 016004 : OUTJOB:,BSS, 016005 : ,XTA, 016006 : ,ATX,KД 016007 : ,ATX,TBUC+3 016008 : 9,VJM,TASKOFF 016009 : :,24,2003B 016010 : ,XTA,TRABUS 016011 : ,AOX,B43.KBY-4 016012 : ,AOX,B41.KBY-6 016013 : ,ATX,TRABUS 016014 : ,UJ,TRAINT 016015 : C 016016 : C======================== 016017 : C 016018 : ERROR:14,VJM,ERRMACRO 016019 : :,GOST,12H HET KAPT'231' 016020 : TBYЗAH :,ISO,12HBY ЗAHЯTO'''''' 016021 : PYГAHЬ :,ISO,18HHET PБYC-6 CDC405'' 016022 : OШ BY K0:,ISO,12HOШ.BY K0'''''''' 016023 : OШ BY K1:,ISO,12HOШ.BY K1'''''''' 016024 : TNORD :,ISO,18HHET READY CDC405'''' 016025 : OШ БAYC :,ISO,18HOШ.BY K1 (0000)'' 016026 : POIN:,BSS, 016027 : C 016028 : C---- AДPECA БYФEPOB : 016029 : C 016030 : 1,LOG,425 016031 : 2,LOG,452 016032 : 3,LOG,477 016033 : 4,LOG,524 016034 : 5,LOG,551 016035 : 6,LOG,576 016036 : 7,LOG,623 016037 : 8,LOG,650 016038 : 9,LOG,675 016039 : 10,LOG,722 016040 : 11,LOG,747 016041 : 12,LOG,774 016042 : 13,LOG,1021 016043 : ISCAR:,LOG,1 016044 : SAVE :,BSS,16 016045 : RECARD :,BSS,1 016046 : ABUF:,BSS,1 016047 : WRCARD :,BSS,1 016048 : DEND :,BSS,1 016049 : MASK :,BSS,1 016050 : KOD :,BSS,1 016051 : C 016052 : C====================== 016053 : C 016054 : ,END, 016055 : SWTCHM52:,NAME, 016056 : WRPHYS:,SUBP, 016057 : NRESCALL:,SUBP, 016058 : NR POST:,SUBP, 016059 : SMASAV:LC,BLOCK,SAVAC 016060 : *YCЫ:LC,BLOCK,ГYC 016061 : C77357:,LC,1 016062 : BUFS27:,EQU,104B 016063 : NAMTRNSR:,EQU,135B 016064 : 14,UTM,-2 016065 : 14,V1M,WRPH 016066 : C*** +1 : BXOД OT MACRO70 016067 : :,ATX,SAVAC 016068 : ,YTA, 016069 : ,WTC,ГYC 016070 : ,ATX,NAMTRNSR 016071 : ,ITA,27B 016072 : ,AAX,C77357 016073 : ,WTC,ГYC 016074 : ,ATX,BUFS27 016075 : ,XTA,INFNRES 016076 : ,UJ,NRESCALL 016077 : WRPH:14,UTM,2 016078 : ,UJ,WRPHYS 016079 : INFNRES:,BSS, 016080 : ,Z00,NR POST.ПOЧTOBAЯ 016081 : ,Z00,14.CЛYЖБA. 016082 : ,END, 016083 : NRESPOST:,NAME, 016084 : C HEPEЗИДEHT MEЖПPOГP.KAHAЛA CBЯЗИ 016085 : C 016086 : C ЭKCTPAKOД CYMMATOPHЫЙ 016087 : C 35-31P - N MAT ЛИCTA ПPИEMA/ПEPEДAЧИ 016088 : C 30-25 - BPEMЯ OЖИДAHИЯ ПPИ ПPИEME 016089 : C 24-21 - BCЯKИE ПPИЗHAKИ 016090 : C 18-16 - N OПEPAЦИЙ 016091 : C 15-01 - AДPEC ДOПOЛH. ИHФOPMAЦИИ 016092 : C 016093 : C 016094 : C N OПEPAЦИИ = 7 : ИHTEPФEЙC 016095 : C C ФAЙЛOBЫMИ CИCTEMAMИ 016096 : C 016097 : C... ПPИHAДЛEЖHOCTИ ДИCПETЧEPA 016098 : *ИПД:LC,BLOCK,XNF,XNFM(4),XNC(2),USE FS(2) 016099 : ,CONT,Ш/FULL(2),Ш/ПYCK(5) 016100 : ,CONT,XLFATA(37),ПAPTИЗAH,БЛOKAЦПY 016101 : ,CONT,MOЖHOKAЧ(3),LIB/BOSS 016102 : NF:,WEQ,XNF 016103 : NFM:,WEQ,XNFM 016104 : NC:,WEQ,XNC 016105 : NC1:,EQU,NC-1 016106 : LTF:,WEQ,XLFATA 016107 : LFATA:,EQU,LTF-1 016108 : *C:LC,BLOCK,C6 016109 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 016110 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 016111 : SMASAV:LC,BLOCK,SAVAC,SAVSR(2) 016112 : ,CONT,SAVI15,SAVI14 016113 : SCALES:LC,BLOCK,(1),MRDSCAL(3),WAITMT,SCOPER 016114 : ШЛAГБAYM:LC,BLOCK,(1).CEMAФOPЫ : 016115 : ,CONT,SEM/DIS(3).ЗAK/OTK ДИCKOB 016116 : ,CONT,SEM/RES(5).CHEKJOB* 016117 : ,CONT,SEM212.ДOCTYП K ИПЗ 016118 : ,CONT,SEMPOST.ПOЧTOBЫЙ 016119 : YДABЛEHЫ:,LC,1 016120 : TPHYS:,LC, 016121 : TABLEMT:,LC,1 016122 : FATA:,LC,1 016123 : DISREG:,LC,1 016124 : FULWOR:,LC,1 016125 : MASK12:LC,BLOCK,M12B(3) 016126 : B48/31:,LC,1 016127 : C77777:,LC,1 016128 : C1777:,LC,1 016129 : C177:,LC,1 016130 : C77:,LC,1 016131 : C37:,LC,1 016132 : C14:,LC,1 016133 : C7:,LC,1 016134 : C3:,LC,1 016135 : ABTIME:,LC,1 016136 : SET TIMER:,SUBP, 016137 : DEL TIMER:,SUBP, 016138 : SEMDOWNS:,SUBP, 016139 : SEMUP:,SUBP, 016140 : GIVEPAGE:,SUBP, 016141 : NEWTA:,SUBP, 016142 : CLOPER:,SUBP, 016143 : NRESOFF:,SUBP, 016144 : OUTMACRO:,SUBP, 016145 : COБЫTИE:,SUBP, 016146 : ERRNRES:,SUBP, 016147 : *677:B,BLOCK,BITS 016148 : ,CONT,B48,B47,B46,B45,B44,B43 016149 : ,CONT,B42,B41,B40,B39,B38,B37 016150 : ,CONT,B36,B35,B34,B33,B32,B31 016151 : ,CONT,B30,B29,B28,B27,B26,B25 016152 : ,CONT,B24,B23,B22,B21,B20,B19 016153 : ,CONT,B18,B17,B16,B15,B14,B13 016154 : ,CONT,B12,B11,B10,B 9,B 8,B 7 016155 : ,CONT,B 6,B 5,B 4,B 3,B 2,B 1 016156 : C 016157 : БИTMПKC:,EQU,B20 016158 : BETB:,EQU,B18 016159 : ЗAKP:,EQU,B17 016160 : БЛOK:,EQU,B16 016161 : *9 :,BLOCK,T,B,TB,A,R,C,S 016162 : C 016163 : C... ПOЧTOBOE XOЗЯЙCTBO 016164 : NC*5:,P*P,(NC)5 016165 : LPLC:,EQU,NC*5+8 016166 : POST:,LC,LPLC 016167 : TNPBOX:,EQU,POST .ИMEHA ПЯ 016168 : NTRRFREC:,EQU,TNPBOX +NC.ПPИEM ПO ИПЯ 016169 : MESSAGE:,EQU,NTRRFREC+NC.COOБЩ. ПPИEMHИKAM 016170 : MESSFRTS:,EQU,MESSAGE +NC.COOБЩ. OT TC 016171 : BLRECS:,EQU,MESSFRTS+NC.OTKAЗЫ OT ПPИEMA 016172 : TSTSC:,EQU,BLRECS +NC.TPAHCП. CTAHЦИИ 016173 : CLTS:,EQU,TSTSC +1.TC БEЗ PAБOTЫ 016174 : CLTRNSSC:,EQU,CLTS +1.ЗAKPЫT. ПO ПEPEДAЧE 016175 : CLRECRS:,EQU,CLTRNSSC+1.ЗAKPЫT. ПO ПPИEMY 016176 : CLTRNREC:,EQU,CLRECRS +1.ЗAKPЫT. ПO OTCYT. ПPИEMHИKA 016177 : TSNADMES:,EQU,CLTRNREC+1.TC C COOБЩ ДЛЯ OTCYT ПPИEMHИKOB 016178 : NEWMESTS:,EQU,TSNADMES+1.HOBЫE COOБЩ.ДЛЯ TC 016179 : EVENTSC:,EQU,NEWMESTS+1.PAБOTA C COБЫT 016180 : ENDTAB:,EQU,EVENTSC 016181 : LTAB:,EQU,MESSAGE-ENDTAB 016182 : NRPOST:,SUBP, 016183 : C 016184 : C... MOHOПOЛЬHЫE ЯЧEЙKИ 016185 : C 016186 : WSFILD:I,BLOCK,TRNSTM,CHTM 016187 : C 016188 : C... OHИ ЖE ПPИ ЗAMEHE ЛИCTOB 016189 : C 016190 : *0:B,BLOCK,S12,S15,(1) 016191 : ,CONT,EFR,FR,(1) 016192 : C 016193 : C... PAБOЧEE ПOЛE B 0 ЛИCTE 016194 : C (TO ЖE, ЧTO И B П/П EMULATOR) 016195 : C 016196 : *121:B,BLOCK,C/TM(2) 016197 : ,CONT,M/ПTP(2) 016198 : ,CONT,A/ПTP(2) 016199 : C......... И П З 016200 : ST/EXCH:,EQU,-2 016201 : *30:B,BLOCK,TMATH(9),NPPW(8) 016202 : ,CONT,M/Ф,MC,ШC 016203 : *100:B,BLOCK,(2),SAVR1,SAVR2,BUFS27 016204 : ,CONT,INFW(5),ДШ(5),AUS 016205 : *135:B,BLOCK,NAMTRNSR(0) 016206 : ,CONT,SHMESS(20).KOPOTK.COOБЩ. 016207 : ,CONT,W 016208 : ,CONT,SCNFS,ПTP 016209 : C 016210 : C 016211 : C.... CBЯЗИ CO STARTJOB-OM : 016212 : C 016213 : FLMAMБ:,LC,1 016214 : B30/16:,LC,1 016215 : NSTAJOB:,LC,1 016216 : MШ :,LC,1 016217 : *ИПK:LC,BLOCK,INFBA 016218 : *ИПK1:,LC, 016219 : MONO:,EQU,*ИПK1+NC 016220 : STARTJOB:,SUBP, 016221 : C 016222 : C 016223 : C ДИAГHOCTИKA ПPИ BOЗBPATE 016224 : CERRCALL:,EQU,B48.HE OTKPЫT ПЯ 016225 : CBADM:,EQU,B47.HEBEPHЫЙ ЭKCTPAK 016226 : CEROPEN:,EQU,B46.ИПЯ YЖE ЗAHЯЛИ 016227 : CERMEM:,EQU,B45.ЧYЖOЙ ЛИCT 016228 : CERLMES:,EQU,B44.OШ ДЛИHA COOБЩ 016229 : CERLIST:,EQU,B43.BЫЗOB HE ИЗ TC 016230 : CNRDYRCV:,EQU,B42.ПPИEM-K HE ГOTOB 016231 : CERREJ:,EQU,B41.OШ.ПЯ ПPИ OTKAЗE 016232 : CERREC:,EQU,B40.HEBEPHOE ИПЯ 016233 : CMESSABS:,EQU,B39.HET COOБЩ. 016234 : CRABS:,EQU,B38.HET ПPИEMHИKA 016235 : COTKAЗ:,EQU,B37.OTKAЗ ПPИEMHИKA 016236 : BCTPПOC:,EQU,B36.BCTPEЧH.ПOCЫЛKA 016237 : CDINI:,EQU,B35.ПOBTOPH.OTKPЫTИE 016238 : NEGRFS:,EQU,B34.ERR.FILE.SYST. 016239 : BASE:B,REL,* 016240 : ,ITA,S 016241 : ,WTC,ГYC 016242 : S,VTM,SAVR1.S=15 016243 : ,ASN,64-15 016244 : ,ITS,R 016245 : S,AOX, 016246 : ,ASN,64-15 016247 : ,ITS,A 016248 : S,AOX,.S,R,A 016249 : ,ITS,TB 016250 : ,ASN,64-15 016251 : ,ITS,B 016252 : S,AOX, 016253 : ,ASN,64-15 016254 : ,ITS,T 016255 : S,AOX,.TB,B,T 016256 : S,MTJ,TB 016257 : TB,UTM,-SAVR2.ИПЗ ЗAДAЧИ. 016258 : ,XTS,BITJ.ДЛЯ 016259 : ,AOX,LIB/BOSS.ПOBЫШEHИЯ 016260 : ,ATX,LIB/BOSS.ПPИOPИTETA 016261 : ,WTC,ДHЗ. HOMEP ЗAДAЧИ 016262 : T,VTM,-NF.B MПKC. 016263 : 14,MTJ,B 016264 : C,VTM,CERREC.C=14 016265 : ,XTA,SAVAC 016266 : :,24,3 016267 : TB,ATX,INFW 016268 : ,ATI,A 016269 : ,ASN,64+15 016270 : ,AAX,C7 016271 : ,ATI,S 016272 : ,UZA,OPENPB.0 - OTKPЫTИE ПЯ 016273 : ,AEX,C7 016274 : ,UZA,FILESYST.7 - ФAЙЛ.CИCT. 016275 : T,XTA,TNPBOX 016276 : S,U1A,SWITCH-1 016277 : C,VTM,CERRCALL.HE OTKPЫT ПЯ 016278 : ,UJ,RETERR 016279 : C 016280 : SWITCH:C,VTM,CERLIST.BЫЗOB HE ИЗ TC 016281 : ,UJ,LISTFTS.1 - CПPABKA ДЛЯ TC 016282 : :C,VTM,CERLMES.OШ.ДЛИHA COOБЩ. 016283 : ,UJ,TRNSR.2 - ПEPEДAЧA 016284 : :,UJ,RECVR.3 - ПPИEM 016285 : :C,VTM,-NC1 016286 : ,UJ,REJECT.4 - OTKAЗ OT ПPИEMA 016287 : :,UJ,ENDJOB.5 - YHИЧTOЖ. ПЯ 016288 : :,24,2003B 016289 : ,UJ,CLOSETS.6 - ЗAKPЫTИE TC 016290 : C 016291 : C----------------------------------- 016292 : C 016293 : C... OTKPЫTИE ПOЧTOBOГO ЯЩИKA 016294 : C 21P INFW - OTKPЫBAETCЯ TC 016295 : C 22P - TC PEAГИPYET HA COБЫTИЯ 016296 : C 016297 : OPENPB:,BSS, 016298 : TB,WTC,BUFS27 016299 : ,24, 016300 : A,XTA,.ИMЯ COЗДAB-ГO 016301 : ,24,2003B 016302 : TB,ATX,W.ПOЧTOBOГO ЯШИKA 016303 : ,UZA,RETERR.HEBEPHOE ИПЯ 016304 : T,XTA,TNPBOX 016305 : C,VTM,CDINI.ПOBTOPHOE 016306 : ,U1A,RETERR.OTKPЫTИE 016307 : C,VTM,CEROPEN.ИПЯ YЖE ЗAHЯЛИ 016308 : R,VJM,SEMD 016309 : C HET ЛИ TAKOГO ЯЩИKA 016310 : :,24,3 016311 : R,VTM,-NC1 016312 : LCHPB:,BSS, 016313 : R,XTA,TNPBOX+NC1 016314 : TB,AEX,W 016315 : ,UZA,RETERR.TAKOЙ ПЯ ECTЬ 016316 : R,VLM,LCHPB 016317 : C ЗABOДИM CBOЙ ПЯ 016318 : TB,XTA,W 016319 : :,24,2003B 016320 : T,ATX,TNPBOX 016321 : ,XTA,CLTRNREC.ЗAKP.ПEPEДATЧИKИ 016322 : TB,ATX,W.БEЗ ПPИEMHИKOB. 016323 : TB,XTA,INFW 016324 : ,AAX,B21 016325 : ,UZA,LCHTRNR 016326 : ,XTA,BITJ.OTKPЫBAETCЯ 016327 : ,AOX,TSTSC.TPAHCПOPTHAЯ 016328 : ,ATX,TSTSC.CTAHЦИЯ. 016329 : TB,XTA,INFW 016330 : ,AAX,B22 016331 : ,UZA,LCHTRNR 016332 : C TC PAБOTAET C AППAPATOM COБЫTИЙ 016333 : ,XTA,BITJ 016334 : ,AOX,EVENTSC 016335 : ,ATX,EVENTSC 016336 : ,XTA,БИTMПKC 016337 : TB,AOX,MC.MACKA 016338 : TB,ATX,MC.COБЫTИЙ. 016339 : C HET ЛИ COOБЩEHИЙ ЭTOMY ПЯ 016340 : LCHTRNR:,24,3 016341 : TB,XTA,W 016342 : C,VTM,TSNADMES.ЗAПYCKAEM TC 016343 : R,VTM,RETURN.C COOБЩEHИЯMИ 016344 : ,UZA,OTKPTC.БEЗ AДPECATOB. 016345 : ,ANX, 016346 : ,ATI,C.ДHЗ ПEPEДATЧИKA 016347 : R,VJM,ДAЙ ИПЗ 016348 : R,VTM,LCHTRNR 016349 : C,XTA,BITS 016350 : TB,AEX,W 016351 : TB,ATX,W 016352 : C,WTC,*YCЫ. 016353 : S,VTM,.ИПЗ ПEPEДATЧИKA 016354 : ,XTA,TSTSC 016355 : ,AAX,BITJ.MЫ - 016356 : ,U1A,OPNTS.TC, 016357 : S,UTM,1.OБЫЧHAЯ ЗAДAЧA. 016358 : OPNTS:S,XTA,SHMESS+1 016359 : T,AEX,TNPBOX.COOБЩEHИE 016360 : ,U1A,HA ИПЗ.HE ДЛЯ HAC 016361 : C,XTA,BITS 016362 : ,AEX,CLTRNREC 016363 : ,ATX,CLTRNREC 016364 : C,XTA,BITS 016365 : ,AOX,RDSCAL 016366 : ,ATX,RDSCAL 016367 : ,UJ,HA ИПЗ.OTKAЗ OT ИПЗ. 016368 : C 016369 : C----------------------------------- 016370 : C 016371 : C... ПEPEДAЧA COOБЩEHИЯ. 016372 : C 016373 : C ПPИЗHAKИ B INFW: 016374 : C 21P=0 - ЗAДAЧA ЗAKPЫBAETCЯ ДO TEX ПOP, 016375 : C ПOKA HE ЗAБEPYT COOБЩEHИE 016376 : C =1 - B 30-25P ЗAДAHO BPEMЯ B CEK, 016377 : C B TEЧEHИИ KOTOPOГO 016378 : C ПPИEMHИK MOЖET ЗAБPATЬ COOБЩ. 016379 : C 22P - ПEPEДAETCЯ И CTPAHИЦA 016380 : C 23 - KOHTPOЛЬ BCTPEЧHOЙ ПOCЫЛKИ 016381 : C 016382 : C ДOПOЛHИTEЛЬHAЯ ИHФOPMAЦИЯ: 016383 : C 1 CЛOBO -26-16 ДЛИHA COOБЩ B ЛИCTE 016384 : C 15-01 ДЛИHA KOPOTKOГO COOБЩ 016385 : C 2 -ИMЯ ПЯ TC 016386 : C 0B ECЛИ ПEPEДAЧA БEЗ TC 016387 : C 3 -ИMЯ ПЯ ПPИEMHИKA 016388 : C 4 -PEЗEPB 016389 : C 5 И TД -KOPOTKOE COOБЩ(HE БOЛEE 17) 016390 : C ПPИ ПEPEДAЧE ИЗ TC: 016391 : C 2 CЛOBO - ИMЯ ПЯ ПPИEMHИKA 016392 : C 3 - ИMЯ ПЯ ПEPEДATЧИKA 016393 : C 016394 : TRNSR:,BSS, 016395 : A,VZM,SEND MESS 016396 : TB,MTJ,S 016397 : TB,WTC,BUFS27 016398 : :,24, 016399 : A,XTA, 016400 : :,24,3 016401 : ,ATI,R.ДЛИHA KOP. COOБЩ 016402 : R,UTM,-17. Д.Б. <= 16 !!! 016403 : ,ITA,R 016404 : R,UTM,17+4.ПЛЮC ШAПKA 016405 : ,AAX,B15 016406 : ,UZA,RETERR.ДЛИHHOE COOБЩ. 016407 : C KOPOTKOE COOБЩ.B CBOE ИПЗ 016408 : S,UTM,SHMESS 016409 : LRWR:R,UTM,-1 016410 : TB,WTC,BUFS27 016411 : :,24, 016412 : A,XTA, 016413 : :,24,3 016414 : S,ATX, 016415 : A,UTM,1 016416 : R,V1M,LRWR 016417 : SEND MESS:,BSS, 016418 : C,VTM,CERREC.HEBEPHOE ИПЯ 016419 : TB,XTA,SHMESS+1 016420 : TB,AOX,SHMESS+2 016421 : ,UZA,RETERR 016422 : T,XTA,TNPBOX.HE CEБE ЛИ 016423 : TB,AEX,SHMESS+1.COOБЩEHИE. 016424 : ,UZA,RETERR 016425 : TB,AEX,SHMESS+1 016426 : TB,AEX,SHMESS+2 016427 : ,U1A,CHPMES 016428 : ,XTA,TSTSC 016429 : ,AAX,BITJ 016430 : CHPMES:,UZA,RETERR 016431 : TB,XTA,INFW 016432 : ,AAX,B22 016433 : R,VTM,CHRCVR.TOЛЬKO KOPOTKOE 016434 : ,U1A,PAGESTS.И CTPAHИЦA 016435 : C 016436 : CHRCVR:,BSS, 016437 : R,VJM,SEMD 016438 : TB,MTJ,S 016439 : ,XTA,TSTSC 016440 : ,AAX,BITJ.ПEPEДATЧИK - TC 016441 : TB,AOX,SHMESS+1.ИЛИ ПEPEДAЧA 016442 : ,U1A,SCHRCVR.ЧEPEЗ TC, 016443 : S,UTM,1.HAПPЯMYЮ. 016444 : SCHRCVR:,24,3 016445 : A,VTM,-NC1 016446 : LSRCVR:A,XTA,TNPBOX+NC1.ГДE ЖE 016447 : S,AEX,SHMESS+1.ПPИEMHИK 016448 : ,UZA,PBOXIS 016449 : A,VLM,LSRCVR 016450 : C,VTM,CRABS.HET ПPИEMHИKA 016451 : ,XTA,TSTSC 016452 : ,AAX,BITJ 016453 : ,U1A,RETERR 016454 : TB,XTA,SHMESS+1.ПEPEДAЧA ЧEPEЗ 016455 : ,U1A,CLTRR.TC И TC HET ??? 016456 : TB,XTA,INFW 016457 : ,AAX,B21.ПEPEДAЧA C 016458 : ,U1A,RETERR.ЗAKPЫTИEM ЗAДAЧИ 016459 : CLTRR:R,VJM,SEMU 016460 : ,XTA,BITJ 016461 : ,AOX,CLTRNREC.ЗAKPЫBAEMCЯ 016462 : ,ATX,CLTRNREC.ИЗ-ЗA OTCYTCTBИЯ 016463 : R,VTM,CHRCVR.ПPИEMHИKA. 016464 : C ЗAПYCTЯT HAC ПPИ OTKPЫTИИ ПЯ ПPИEMHИKA 016465 : ,UJ,CLTASK 016466 : C 016467 : PBOXIS:S,VTM,-NC1 016468 : C ДЛЯ ПPOBEPKИ HAЛИЧИЯ OTKAЗOB OT ПPИEMA 016469 : C HAЙДEM TPETЬEГO ПAPTHEPA ПO ПEPEДAЧE. 016470 : C ПPИ ПEPEДAЧE ЧEPEЗ TC - ЭTO KOHEЧHЫЙ 016471 : C ПPИEMHИK, ECЛИ OH ECTЬ. ПPИ ПEPEДAЧE 016472 : C OT TC - ЭTO ИCXOДHЫЙ ПEPEДATЧИK. 016473 : A,MTJ,C.ECЛИ HET 016474 : SEAR3:TB,XTA,SHMESS+2.COOБЩEHИE 016475 : ,UZA,FOUND3.ДЛЯ TC ИЛИ OT TC 016476 : S,AEX,TNPBOX+NC1 016477 : S,MTJ,C.ECЛИ ECTЬ 016478 : ,UZA,FOUND3 016479 : S,VLM,SEAR3 016480 : A,MTJ,C.ECЛИ HE OTKPЫT 016481 : C BTOPOЙ ПEPEДATЧИK -> S, ПPИEMHИK -> C 016482 : C 1. ПEPEДATЧИK - OБЫЧHAЯ ЗAДAЧA. 016483 : FOUND3:A,MTJ,S.BTOPOЙ - TC 016484 : ,XTA,TSTSC 016485 : ,AAX,BITJ 016486 : ,UZA,CHBLREC 016487 : C 2. ПEPEДATЧИK - TC 016488 : C,MTJ,S.ИCX. ПEPEДATЧИK 016489 : A,MTJ,C.BTOPOГO HET 016490 : CHBLREC:,XTA,BITJ.OT KOГO 016491 : S,AOX,BITS+NC1+NF.OTKAЗЫ 016492 : ,ATX,CHTM 016493 : A,XTA,BLRECS.ЧЬИ 016494 : C,AOX,BLRECS.OTKAЗЫ 016495 : ,AAX,CHTM 016496 : C,VTM,COTKAЗ 016497 : ,U1A,RETERR 016498 : C OTKAЗOB ПPИEMA HET. 016499 : A,UTM,NC1+NF.ДHЗ ПPИEMHИKA 016500 : ,XTA,TSTSC 016501 : ,AAX,BITJ.ПEPEДATЧИK 016502 : ,U1A,CHRDYRCV.TC. 016503 : TB,XTA,SHMESS+1.ПEPEДAЧA 016504 : ,U1A,CLTRNS.ЧEPEЗ TC. 016505 : ,XTA,CLTRNSSC 016506 : T,AAX,MESSAGE 016507 : A,AAX,BITS 016508 : ,UZA,CLTRNS 016509 : C ПPИEMHИK CИДИT HA ПEPEДAЧE 016510 : C И COOБЩEHИE ДЛЯ HAC! 016511 : TB,XTA,INF W.ECTЬ ЛИ PEAKЦИЯ 016512 : ,AAX,B23.HA BCTP.ПOCЫЛKY 016513 : C,VTM,BCTPПOC.- ECTЬ, 016514 : ,U1A,RETERR.BOЗBPAЩAEMCЯ. 016515 : C KTO-TO ДOЛЖEH BЫЙTИ ИЗ 016516 : C TYПИKA,ПYCTЬ KЛИEHT. 016517 : A,MTJ,C 016518 : C,XTA,BITS 016519 : ,AEX,CLTRNSSC 016520 : ,ATX,CLTRNSSC 016521 : R,VJM,ДAЙ ИПЗ 016522 : ,XTA,BCTPПOC 016523 : ,AOX,B1.OTB.ПEPEДATЧИKY 016524 : C,WTC,*YCЫ 016525 : ,ATX,W 016526 : C,XTA,BITS 016527 : ,AOX,RDSCAL 016528 : ,ATX,RDSCAL 016529 : R,VTM,CLTRNS 016530 : ,UJ,HA ИПЗ 016531 : CHRDYRCV:,XTA,CLRECRS.ПPИEMHИK 016532 : A,AAX,BITS.HE ЖДET - 016533 : ,UZA,TIMEOUT.BOЗBPAT. 016534 : CLTRNS:,BSS, 016535 : :,24,2003B 016536 : ,XTA,BITJ 016537 : A,AOX,MESSAGE-NF.ПOMEЧAEM CEБЯ 016538 : A,ATX,MESSAGE-NF. Y ПPИEMHИKA. 016539 : ,XTA,BITJ 016540 : ,AOX,CLTRNSSC 016541 : ,ATX,CLTRNSSC 016542 : ,XTA,TSTSC 016543 : A,AAX,BITS 016544 : ,U1A,CHETSREC 016545 : ,XTA,CLRECRS 016546 : A,AAX,BITS.ECЛИ ПPИEMHИK 016547 : ,AEX,CLRECRS.ЖДET - 016548 : ,ATX,CLRECRS.ЧИCTИM ШKAЛY И 016549 : ,YTA,.ЗAПYCKAEM EГO 016550 : ,UJ ,OPENRCVR 016551 : CHETSREC:,AOX,NEWMESTS 016552 : ,ATX,NEWMESTS 016553 : ,XTA,EVENTSC 016554 : A,AAX,BITS 016555 : ,UZA,HEPEAГ 016556 : S,VTM,CLTRNS1-BASE 016557 : ,ITA,A 016558 : ,AOX,БИTMПKC-24 016559 : C 016560 : C... ГEHEPAЦИЯ COБЫTИЯ, ЗAДAHHOГO 016561 : C B CTAPШИX PAЗPЯДAX CYMMATOPA 016562 : C ЗAДAЧE C ДHЗ= 016563 : C PEГ.S = OTHOC.AДPEC BOЗBPATA 016564 : C 016565 : ГEHCOБ:,24,2003B 016566 : ,ATX,TRNSTM 016567 : ,AAX,B48/31 016568 : ,ATX,CHTM 016569 : B,J+M,S 016570 : ,ITA,S 016571 : ,AOX,CHTM 016572 : ,ATX,CHTM 016573 : ,WTC,TRNSTM 016574 : ,XTA,*YCЫ 016575 : ,AEX, 016576 : ,XTA,CHTM 016577 : ,UJ,COБЫTИE 016578 : HEPEAГ:,BSS, 016579 : A,XTA,BITS.ПPИEMHИK - TC. 016580 : ,AAX,CLTS.ECЛИ OHA ЗAKPЫTA 016581 : OPENRCVR:,AOX,RDSCAL.ЗAПYCKAEM 016582 : ,ATX,RDSCAL.ПPИEMHИK 016583 : CLTRNS1:,BSS, 016584 : ,XTA, 016585 : TB,ATX,W 016586 : S,VJM,TIMER 016587 : :,24,3 016588 : TB,XTA,W 016589 : ,AEX,B1 016590 : ,UZA,RETURN.ПPИHЯTO 016591 : TIMEOUT:,24,2003B 016592 : ,XTA,ZBITJ.YHИЧTOЖAEM 016593 : A,AAX,MESSAGE-NF.COOБЩEHИE 016594 : A,ATX,MESSAGE-NF 016595 : ,XTA,ZBITJ.И CEБЯ 016596 : ,AAX,CLTRNSSC.B ШKAЛE ЗAKPЫTЫX 016597 : ,ATX,CLTRNSSC.ПO ПEPEДAЧE 016598 : C,VTM,CNRDYRCV 016599 : :,24,3.ПPИEMHИK 016600 : ,UJ,RETERR.HE ПPИHЯЛ 016601 : C----------------------------------- 016602 : C 016603 : C... ПPИEM COOБЩEHИЯ 016604 : C 016605 : C ПPИЗHAKИ B INFW: 016606 : C 21P=0 - ЗAДAЧA ЗAKPЫBAETCЯ ДO ПOЯB- 016607 : C ЛEHИЯ COOБЩEHИЯ 016608 : C =1 - ЗAДAЧA ЖДET COOБЩ. B TEЧEHИИ 016609 : C BPEMEHИ YKAЗ-ГO B 30-25P 016610 : C 22P - ПPИEM C ПЯ YKAЗAHHOГO B PEГИC- 016611 : C TPE MЛAДШИX PAЗPЯДOB 016612 : C 016613 : C ПO AДPECY B 15-01 PP. ПPИHИMAETCЯ: 016614 : C 2 CЛOBO - ИMЯ ПЯ TC ИЛИ 0B 016615 : C 3 - ИMЯ ПЯ ПEPEДATЧИKA 016616 : C OCTAЛЬHЫE CЛOBA TE ЖE,ЧTO Y ПEPEД-KA 016617 : C KOГДA ПPИHИMAET TC: 016618 : C 2 - ИMЯ ПЯ ПPИEMHИKA 016619 : C 016620 : RECVR:,BSS, 016621 : A,VTM,.ФЛ.-ИCTEK TAЙMEP 016622 : TB,XTA,INFW 016623 : ,AAX,B22 016624 : ,UZA,CHPAGE 016625 : TB,XTA,NAMTRNSR.ПPИEM C 016626 : ,UZA,RETERR.YKAЗAHHOГO ПЯ. 016627 : T,AEX,TNPBOX 016628 : ,U1A,SETRANAM 016629 : TB,XTA,SHMESS+1.???PAБOTA БEЗ TC 016630 : ,UZA,RETERR.-TPEБYET OT CEБЯ 016631 : SETRANAM:TB,XTA,NAMTRNSR 016632 : T,ATX,NTRRFREC 016633 : CHPAGE:,BSS, 016634 : R,VJM,PAGESTS 016635 : TOCHTBL:,BSS, 016636 : R,VJM,SEMD 016637 : T,XTA,MESSAGE 016638 : ,UZA,CHTSMESS 016639 : ,AAX,TSTSC 016640 : TB,ATX,W.COOБЩEHИЯ OT TC. 016641 : :,U1A,*+1.ПPИOPИTET TC. 016642 : T,XTA,MESSAGE 016643 : :,ANX,.ДHЗ 016644 : ,ATI,C.ПEPEДATЧИKA. 016645 : TB,XTA,INFW 016646 : ,AAX,B22.ПPИEM 016647 : ,UZA,CLEMSC.OT KOГO YГOДHO. 016648 : C,VTM,-NC1 016649 : LRR:C,XTA,TN PBOX+NC1.ИЩEM 016650 : TB,AEX,NAMTRNSR.ЖEЛAHHЫЙ ПЯ 016651 : ,UZA,TRRIS 016652 : C,VLM,LRR 016653 : ,UJ,CHTSMESS 016654 : TRRIS:T,XTA,MESSAGE 016655 : C,UTM,NC1+NF 016656 : C,AAX,BITS 016657 : ,U1A,CLEMSC.COOБЩ. ECTЬ 016658 : ,XTA,TSTSC 016659 : ,AAX,BITJ 016660 : ,U1A,NWAIT 016661 : C HE Y TC ЛИ COOБЩEHИE 016662 : TB,XTA,W 016663 : SCHMTS:,24,3 016664 : ,UZA,CHTSMESS 016665 : ,ANX, 016666 : ,ATI,C 016667 : R,VJM,ДAЙ ИПЗ 016668 : C,WTC,*YCЫ 016669 : ,XTA,SHMESS+2.ИПЯ ПEPEДATЧИKA 016670 : TB,AEX,NAMTRNSR 016671 : ,UZA,CLEMSC 016672 : R,VJM,HAИПЗ 016673 : C,XTA,BITS 016674 : TB,AEX,W 016675 : TB,ATX,W 016676 : ,UJ,SCHMTS 016677 : C COOБЩEHИЙ ПOKA HET 016678 : CHTSMESS:,BSS, 016679 : ,XTA,TSTSC 016680 : ,AAX,BITJ 016681 : ,U1A,NWAIT.TC HE ЖДET 016682 : A,V1M,NWAIT.ИCTEK TAЙMEP 016683 : ,XTA,BITJ 016684 : ,AOX,CLRECRS 016685 : ,ATX,CLRECRS 016686 : T,UTC,MESSFRTS.OTKPЫTИE TC 016687 : C,VTM,.C COOБЩEHИЯMИ 016688 : R,VJM,OTKPTC.ДЛЯ HAC 016689 : S,VJM,TIMER 016690 : :,24,3 016691 : TB,XTA,INFW 016692 : ,AAX,B21 016693 : ,UZA,TOCHTBL.ЖДEM ДO YПOPA 016694 : A,VTM,1.YCTAHOBИM ФЛAГ 016695 : T,XTA,MESSAGE.ECTЬ KAKOE TO 016696 : ,U1A,TOCHTBL.COOБЩEHИE 016697 : NWAIT:,24,2003B 016698 : ,XTA, 016699 : T,ATX,NTRRFREC 016700 : ,XTA,ZBITJ 016701 : ,AAX,CLRECRS 016702 : ,ATX,CLRECRS 016703 : C,VTM,CMESSABS.ДЛЯ HEЖДYЩИX 016704 : ,UJ,RETERR.OTKAЗ 016705 : C COOБЩEHИE ECTЬ, ЗAБИPAEM. 016706 : CLEMSC:C,XTA,BITS 016707 : T,AEX,MESSAGE 016708 : T,ATX,MESSAGE 016709 : ,XTA, 016710 : T,ATX,NTRRFREC 016711 : R,VJM,ДAЙ ИПЗ 016712 : :,24,3 016713 : C,WTC,*YCЫ 016714 : A,VTM,.ИПЗ ПEPEДATЧИKA 016715 : A,WTC,SHMESS.ДЛИHA 016716 : R,VTM,4.KOP.COOБЩ. 016717 : R,MTJ,S.+ ШAПKA 016718 : C 016719 : C... ПEPEПИCЬ B CBOE ИПЗ 016720 : C 016721 : TRSM:A,UTC,SHMESS 016722 : S,XTA,-1 016723 : TB,UTC,SHMESS 016724 : S,ATX,-1 016725 : S,UTM,-1 016726 : S,VIM,TRSM 016727 : C KOPPEKTИPOBKA ШAПKИ COOБШEHИЯ 016728 : ,XTA,TSTSC 016729 : ,AAX,BITJ.ПPИEMHИK 016730 : ,U1A,CORRETS.TC. 016731 : C ПPИEMHИK HE TC 016732 : ,XTA,TSTSC 016733 : C,AAX,BITS 016734 : ,UZA,TRNMNT 016735 : C ПEPEДATЧИK TC 016736 : C,XTA,TNPBOX-NF.ИПЯ TC 016737 : TB,ATX,SHMESS+1 016738 : ,UJ,TRTM 016739 : C ПPИEMHИK TC 016740 : CORRETS:A,XTA,SHMESS+2.ИПЯ ПOЛYЧATEЛЯ 016741 : TB,ATX,SHMESS+1 016742 : C ПEPEДATЧИK HE TC 016743 : TRNMNT:C,XTA,TNPBOX-NF.ИПЯ ПEPEДATЧИKA 016744 : TB,ATX,SHMESS+2 016745 : C 016746 : C... ПEPEПИCЬ ИЗ ИПЗ B ПAMЯTЬ 016747 : C 016748 : TRTM:TB,WTC,INFW.AДPEC ДЛЯ ПPИEMA 016749 : S,VTM,.KOPOTK.COOБЩEHИЯ 016750 : S,VZM,TRTM2.- HE HAДO 016751 : TRTM1:TB,UTC,SHMESS 016752 : R,XTA,-1 016753 : TB,WTC,BUFS27 016754 : ,24, 016755 : S,UTC, 016756 : R,ATX,-1 016757 : :,24,3 016758 : R,UTM,-1 016759 : R,VIM,TRTM1 016760 : TRTM2:,BSS, 016761 : A,XTA,INFW 016762 : ,AAX,B22 016763 : ,UZA,RECR RET.TOЛЬKO KOPOTKOE 016764 : C 016765 : C... ЗAMEHA ЛИCTA ПEPEДATЧИKA 016766 : C HA ЛИCT ПPИEMHИKA 016767 : C (CПИCAHO ИЗ П/П EMULATOR) 016768 : C 016769 : C... ИCПOЛЬЗYEM PEГИCTPЫ:TB,A,R,C,S 016770 : C 016771 : R,VTM,WS FILD 016772 : R,MTJ,S 016773 : ,XTA,ДHЗ 016774 : ,ASN,64-27 016775 : ,ITS,TB 016776 : S,AOX,.S12 016777 : ,ITS,C 016778 : ,ASN,64-27 016779 : ,ITS,A 016780 : S,AOX,.S15 016781 : R,XTS,S12.SUM 016782 : TB,XTS,INFW 016783 : ,ASN,64+30 016784 : ,AAX,C37.EFR 016785 : A,XTS,INFW 016786 : ,ASN,64+30 016787 : ,AAX,C37.FR 016788 : R,XTS,EFR.FR1 016789 : S,ATX, 016790 : 11,MTJ,15 016791 : 15,UTM,17.MECTO И5 016792 : C 016793 : C... COБCTBEHHO ЗAMEHA CTPAHИЦ 016794 : C 1. YПPЯTЫBAHИE PEГИCTPOB 1-5 016795 : C 016796 : :,24,2003B 016797 : ,ITA,5 016798 : ,ITS,4 016799 : ,ITS,3 016800 : ,ITS,2 016801 : ,ITS,1 016802 : R,XTS,FR 016803 : ,ATI,2 016804 : R,MTJ,1 016805 : 15,VTM,-1 016806 : C 016807 : C... ЖДEM KOHЦOB OБMEHOB 016808 : C 016809 : CHEXCH:1,WTC,S15 016810 : 2,XTA,TMATH.ЧYЖOЙ 016811 : 1,WTC,EFR 016812 : TB,AOX,TMATH.CBOЙ 016813 : ,AAX,B46.CM.MACRO70 016814 : ,UZA,ЗAM1.CM.PAGESTS 016815 : ,XTA,DISREG 016816 : ,ATI,27B 016817 : ,*57,3.TPEM ЗAДAЧE I1,2 016818 : :,24,2003B 016819 : ,UJ,CHEXCH 016820 : C 016821 : C 2. BЫБOPKA XAPAKTEPИCTИK ЛИCTOB 016822 : C 016823 : ЗAM1:1,XTA,EFR 016824 : ,ATI,11.MAT.ЛИCT 016825 : ,AAX,C3 016826 : ,ATI,12 016827 : 12,XTA,M12B 016828 : 15,ATX,M/ПTP+1.MACKA ПTP 016829 : ,ITA,11 016830 : ,ASN,64+2 016831 : 1,ARX,S12 016832 : 15,ATI,3.AДPEC B ПTP 016833 : 1,WTC,S12 016834 : 11,XTA,TMATH 016835 : 15,ATX,C/TM+1.KOПИЯ TMATH 016836 : ,ASN,64+30 016837 : ,AAX,C177 016838 : ,UZA,KЗAM1 016839 : C 016840 : C 3. ECЛИ ЛИCT B MOЗY, MEHЯEM 016841 : C EГO ИДEHTИФИKATOP B TPHYS 016842 : C 016843 : ,ATI,5.ФИЗ.ЛИCT 016844 : 1,WTC,S12 016845 : 13,VTM,."CBOE" ИПЗ 016846 : 1,XTA,FR 016847 : ,ASN,64-21 016848 : 1,AOX,S15."ЧYЖOЙ" ИДEHT. 016849 : ,ATI,12."ЧYЖOE" ИПЗ 016850 : 5,AEX,TPHYS 016851 : ,AAX,B33/22 016852 : 5,AEX,TPHYS 016853 : 5,ATX,TPHYS 016854 : C 016855 : C 4. KOPPEKЦИЯ ЧИCЛA ЛИCTOB B MOЗY 016856 : C 016857 : ,XTA,B1.HOBOMY 016858 : 12,ARX,NPPW.BЛAДEЛЬЦY 016859 : 12,ATX,NPPW.ПPИБЫЛO, 016860 : ,XTA,CM1 016861 : 13,ARX,NPPW.Y CTAPOГO 016862 : 13,ATX,NPPW. - YБЫЛO 016863 : 5,CALL,CLOSPAGE.OTПИCKA 016864 : C... 016865 : KЗAM1:1,UTM,1 016866 : 15,VLM,ЗAM1 016867 : C 016868 : C 5. ПEPECTAHOBKA B ПTP 016869 : C 016870 : 15,VTM,A/ПTP 016871 : 2,XTA,ПTP 016872 : ,APX,M/ПTP 016873 : 3,XTS,ПTP 016874 : ,APX,M/ПTP+1 016875 : 15,AEX, 016876 : 15,ATX, 016877 : ,AUX,M/ПTP 016878 : 2,AEX,ПTP 016879 : 2,STX,ПTP 016880 : ,AUX,M/ПTP+1 016881 : 3,AEX,ПTP 016882 : 3,ATX,ПTP 016883 : C 016884 : C 6. ПEPECTAHOBKA B TMATH 016885 : C 016886 : 3,VTM,-1 016887 : ЗAM2:1,XTA,FR-2 016888 : 1,ARX,S15-2 016889 : ,ATI,13."ЧYЖOE" ИПЗ 016890 : 3,XTA,C/TM+1."CBOЯ" CTPOKA 016891 : 13,AEX,TMATH 016892 : ,AAX,B48/31 016893 : 13,AEX,TMATH 016894 : 13,ATX,TMATH 016895 : ,ASN,64+30 016896 : ,ATI,13.ФИЗ.ЛИCT 016897 : 1,UTM,-1 016898 : ,AAX,B17.ЗAKPЫT ПO 016899 : ,U1A,KЗAM2.ПPИOPИTETY 016900 : 13,VZM,KЗAM2.ИЛИ YKAЧAH 016901 : 15,CALL,OPENPAGE.ПPИПИCKA 016902 : KЗAM2:3,VLM,ЗAM2 016903 : C 016904 : C 7. YCTAHOBKA PП И PЗ 016905 : C 016906 : ,WTC,ГYC 016907 : 15,VTM, 016908 : 15,MTJ,TB.BOCCTAH.TB 016909 : 14,CALL,PUT TMP 016910 : C 016911 : C 8. BOCCTAHOBЛEHИE PEГИCTPOB 016912 : C 016913 : 15,UTM,-2 016914 : 1,XTA,S15 016915 : ,ASN,64+27 016916 : ,STI,C.ДHЗ ПEPEДATЧИKA 016917 : ,STI,1 016918 : ,STI,2 016919 : ,STI,3 016920 : ,STI,4 016921 : ,ATI,5 016922 : RECR RET:,24,3 016923 : C,XTA,BITS 016924 : ,AEX,FULWOR 016925 : ,AAX,CLTRNSSC 016926 : ,ATX,CLTRNSSC 016927 : ,XTA,B1.ПPИЗHAK -ЗAБPAЛИ 016928 : COPERET:C,WTC,*YCЫ 016929 : ,ATX,W 016930 : R,VJM,HA ИПЗ 016931 : C,XTA,BITS 016932 : ,AOX,RDSCAL 016933 : ,ATX,RDSCAL 016934 : ,UJ,RETURN 016935 : C 016936 : C----------------------------------- 016937 : C 016938 : C CПPABKA ДЛЯ TPAHCП. CTAHЦИИ. 016939 : C 016940 : C 21P=0 - CПИCOK ПOЧTOBЫX ЯЩИKOB 016941 : C =1 - CПИCOK COOБЩ.ДЛЯ TC И 016942 : C ГOTOBЫX ПPИEMHИKOB 016943 : C 016944 : LISTFTS:,XTA,TSTSC 016945 : ,AAX,BITJ.HE ДЛЯ TC 016946 : ,UZA,RETERR.HE PAЗPEШAETCЯ 016947 : S,VTM, 016948 : TB,XTA,INFW 016949 : ,AAX,B21 016950 : ,U1A,LISTRTR 016951 : C CПИCOK ПOЧTOBЫX ЯЩИKOB 016952 : C,VTM,-NC1 016953 : LIST1:C,XTA,TNPBOX+NC1 016954 : ,UZA,ELIST1 016955 : TB,WTC,BUFS27 016956 : ,24, 016957 : A,UTC, 016958 : S,ATX,1 016959 : :,24,3 016960 : S,UTM,1 016961 : ELIST1:,BSS, 016962 : C,VLM,LIST1 016963 : ,ITA,S.KOЛ-BO ЯЩИKOB 016964 : ,UJ,LISRET 016965 : C ПEPEДATЧИKИ C COOБЩEHИЯMИ ДЛЯ HAC 016966 : LISTRTR:,BSS, 016967 : T,XTA,MESSAGE 016968 : LIST2:,UZA,SNMESS 016969 : TB,ATX,W 016970 : ,ANX, 016971 : ,ATI,C 016972 : C,XTA,TNPBOX-NF.ИПЯ ПEPEДATЧИKA 016973 : TB,WTC,BUFS27 016974 : :,24, 016975 : A,UTC, 016976 : S,ATX,1 016977 : S,UTM,1 016978 : :,24,3 016979 : TB,XTA,W 016980 : C,AEX,BITS 016981 : ,UJ,LIST2 016982 : SNMESS:,ITA,S 016983 : ,AOX,=I0 016984 : TB,WTC,BUFS27 016985 : ,24, 016986 : A,ATX, 016987 : S,UTC, 016988 : A,UTM,1 016989 : S,VTM, 016990 : C CПИCOK OЖИДAЮЩИX ПPИEMHИKOB. 016991 : :,24,3 016992 : ,XTA,CLRECRS 016993 : LIST3:,UZA,SNTRRS.ИCЧEPПAЛИ 016994 : TB,ATX,W 016995 : ,ANX, 016996 : ,ATI,C.ДHЗ. 016997 : C,XTA,TNPBOX-NF.ИПЯ ПPИEMHИKA 016998 : ,AEX, 016999 : C,XTA,NTRRFREC-NF.OT KOГO XOЧET 017000 : TB,WTC,BUFS27 017001 : :,24, 017002 : A,UTC, 017003 : S,ATX,2 017004 : ,YTA, 017005 : A,UTC, 017006 : S,ATX,1 017007 : :,24,3 017008 : S,UTM,2 017009 : TB,XTA,W 017010 : C,AEX,BITS 017011 : ,UJ,LIST3 017012 : SNTRRS:,ITA,S.KOЛ-BO ЭЛEMEHTOB 017013 : ,ASN,64+1.CПИCKA 017014 : LISRET:,AOX,=I0 017015 : TB,WTC,BUFS27 017016 : :,24, 017017 : A,ATX, 017018 : :,24,2003B 017019 : ,UJ,RETURN 017020 : C----------------------------------- 017021 : C 017022 : C ЗAKPЫTИE TC ИЗ-ЗA OTCYTCTBИЯ PAБOTЫ. 017023 : CLOSETS:,BSS, 017024 : ,XTA,NEWMESTS 017025 : ,AAX,BITJ.ECTЬ HOBЫE 017026 : ,U1A,CLETAB1.COOБЩEHИЯ 017027 : TB,WTC,BUFS27 017028 : :,24, 017029 : A,XTA, 017030 : :,24,3 017031 : ,ATI,S.ДЛИHA CПИCKA 017032 : R,VJM,SEMD 017033 : LMFRTS:S,VZM,CLOTS 017034 : S,UTM,-1 017035 : TB,WTC,BUFS27 017036 : :,24, 017037 : A,XTA,1.ИПЯ ПPИEMHИKA 017038 : ,AEX, 017039 : A,XTA,2.ИПЯ ПEPEДATЧИKA 017040 : :,24,3 017041 : ,ATX,CHTM 017042 : ,YTA, 017043 : ,UZA,ELSCH.ЧYШЬ! 017044 : TB,ATX,W 017045 : C,VTM,-NC1 017046 : LSCHRECR:C,XTA,TNPBOX+NC1 017047 : TB,AEX,W 017048 : ,UZA,RECRIS 017049 : C,VLM,LSCHRECR 017050 : C ПPИEMHИKA HET 017051 : ,XTA,BITJ.B ШKAЛY COOБЩ. 017052 : :,24,2003B 017053 : ,AOX,TSNADMES.K HECYЩECTB. 017054 : ,ATX,TSNADMES.AДPECATAM. 017055 : ,UJ,ELSCH 017056 : C ПPИEMHИK ECTЬ 017057 : RECRIS:,XTA,CLRECRS 017058 : C,AAX,BITS+NC1+NF.ПPИHИMATЬ 017059 : ,UZA,SETMFRTS.ПOKA HE XOЧET 017060 : C,XTA,NTRRFREC+NC1.ПPИHИMAET 017061 : ,UZA,NOTCL.OT ЛЮБOГO. 017062 : ,AEX,CHTM.OT ЖEЛAEMOГO 017063 : ,UZA,NOTCL.ПEPEДATЧИKA 017064 : ,AEX,CHTM 017065 : T,AEX,TNPBOX.OT HAC ПPИMET 017066 : ,UZA,NOTCL.ЛЮБOE COOБЩEHИE. 017067 : C ПPИЗHAK HAЛИЧИЯ COOБЩ-ИЯ OT TC 017068 : SETMFRTS:,BSS, 017069 : :,24,2003B 017070 : ,XTA,BITJ 017071 : C,AOX,MESSFRTS+NC1 017072 : C,ATX,MESSFRTS+NC1 017073 : ELSCH:A,UTM,2 017074 : ,UJ,LMFRTS 017075 : C ЗAKPЫBAEM TPAHCПOPTHYЮ CTAHЦИЮ 017076 : CLOTS:,BSS, 017077 : R,VJM,SEMU 017078 : ,XTA,EVENTSC 017079 : ,AAX,BITJ 017080 : ,UZA,CLOTS1 017081 : TB,XTA,M/Ф 017082 : ,AAX,BETB.ПOKA KPYTИЛИCЬ 017083 : ,U1A,OPENTS.ПPOИЗOШЛO COБЫT 017084 : ,XTA,ЗAKP.ПPИЗHAK 017085 : TB,AOX,M/Ф.OЖИДAHИЯ 017086 : TB,ATX,M/Ф.COБЫTИЯ. 017087 : TB,XTA,ДШ 017088 : ,AOX,БЛOK.PAЗPEШEHИE 017089 : ,AEX,БЛOK.BETBЛEHИЯ 017090 : TB,ATX,ДШ 017091 : CLOTS1:,BSS, 017092 : ,XTA,BITJ 017093 : ,AOX,CLTS 017094 : ,ATX,CLTS 017095 : R,VTM,OPENTS 017096 : ,UJ,CLTASK 017097 : NOTCL:,BSS, 017098 : :,24,2003B 017099 : ,XTA,EVENTSC 017100 : ,AAX,BITJ 017101 : ,UZA,OPENTS 017102 : ,XTA,БИTMПKC 017103 : TB,AOX,ШC 017104 : TB,ATX,ШC 017105 : ,XTA,BETB.COБЫTИE-HAЛИЧИE 017106 : TB,AOX,M/Ф.ПPИEMHИKA BЫPA- 017107 : TB,ATX,M/Ф.БATЫBAEM CAMИ. 017108 : OPENTS:,24,2003B 017109 : C,VTM,-NC1 017110 : CLETABTS:,XTA,ZBITJ 017111 : C,AAX,MESSFRTS+NC1 017112 : C,ATX,MESSFRTS+NC1 017113 : C,VLM,CLETABTS 017114 : ,XTA,ZBITJ 017115 : ,AAX,TSNADMES 017116 : ,ATX,TSNADMES 017117 : CLETAB1:,BSS, 017118 : ,XTA,ZBITJ 017119 : ,AAX,NEWMESTS 017120 : ,ATX,NEWMESTS 017121 : ,XTA,CLTS 017122 : ,AEX,BITJ.TC БЫЛA ЗAKPЫTA 017123 : ,AAX,EVENTSC.ИЛИ БEЗ COБЫTИЙ 017124 : ,AAX,BITJ 017125 : ,UZA,CLT2 017126 : C HE YCПEЛИ ЗAKPЫTЬCЯ,ПOЭTOMY 017127 : C CXOДИM HA BETBЛEHИE 017128 : TB,XTA,ДШ 017129 : ,AOX,БЛOK.PAЗPEШEHИE 017130 : ,AEX,БЛOK.BETBЛEHИЯ 017131 : TB,ATX,ДШ 017132 : R,VTM,CLT2 017133 : R,MTJ,33B 017134 : ,MTJ,27B 017135 : ,UJ,NEWTA 017136 : CLT2:,XTA,ZBITJ 017137 : ,AAX,CLTS 017138 : ,ATX,CLTS 017139 : ,UJ,RETURN 017140 : C----------------------------------- 017141 : C 017142 : C OTKAЗ OT ПPИEMA. 017143 : REJECT:,BSS, 017144 : R,VJM,SEMD 017145 : TB,WTC,BUFS27 017146 : :,24, 017147 : A,XTA,.ИMЯ 017148 : :,24,3.ПOЧTOBOГO 017149 : TB,ATX,W.ЯЩИKA. 017150 : ,UZA,ERREJ 017151 : T,AEX,TNPBOX.OTKAЗ OT CEБЯ 017152 : ,UZA,ERREJ 017153 : LREJ:C,XTA,TNPBOX+NC1 017154 : TB,AEX,W 017155 : ,UZA,REJPBIS 017156 : C,VLM,LREJ 017157 : ERREJ:C,VTM,CERREJ.ПЛOXOE ИПЯ 017158 : ,UJ,RETERR 017159 : C 017160 : REJPBIS:,BSS, 017161 : C,UTM,NC1+NF 017162 : C,XTA,BITS 017163 : T,AOX,BLRECS 017164 : T,ATX,BLRECS 017165 : ,XTA,CLTRNSSC 017166 : T,AAX,MESSAGE 017167 : C,AAX,BITS 017168 : ,UZA,RETURN 017169 : C ПEPEДATЧИK ЗAГOTOBИЛ COOБЩEHИE 017170 : R,VJM,ДAЙ ИПЗ 017171 : ,XTA,COTKAЗ.OTK. ПEPEДATЧИKY 017172 : ,UJ,COPERET 017173 : C 017174 : C----------------------------------- 017175 : C YHИЧTOЖEHИE ПOЧTOBOГO ЯЩИKA 017176 : C CЮДA И Э74 XOДИT. 017177 : ENDJOB:,BSS, 017178 : R,VJM,SEMD 017179 : CHCLTRN:,24,3 017180 : T,XTA,MESSAGE 017181 : ,UZA,CLETAB 017182 : ,ANX, 017183 : ,ATI,C 017184 : C,XTA,BITS 017185 : T,AEX,MESSAGE 017186 : T,ATX,MESSAGE 017187 : R,VJM,ДAЙ ИПЗ 017188 : R,VTM,CHCLTRN 017189 : C,WTC,*YCЫ 017190 : A,VTM, 017191 : ,XTA,TSTSC 017192 : C,AAX,BITS 017193 : ,U1A,SETFLTRN 017194 : A,XTA,INFW 017195 : ,AAX,B21 017196 : ,UZA,HA ИПЗ 017197 : C PAЗБYДИM TC И ПEPEДATЧИKИ 017198 : C (C B21 B INFW) ЗAKPЫTЫE ПO ПOCЫЛKE 017199 : C K HAM. 017200 : SETFLTRN:,XTA,CRABS 017201 : A,ATX,W 017202 : C,XTA,BITS 017203 : ,AOX,RDSCAL 017204 : ,ATX,RDSCAL 017205 : ,UJ,HA ИПЗ 017206 : CLETAB:,BSS, 017207 : :,24,2003B 017208 : T,ATX,TNPBOX 017209 : T,ATX,NTRRFREC 017210 : T,ATX,MESSFRTS 017211 : T,ATX,BLRECS 017212 : C,VTM,LTAB 017213 : LCLETAB:,XTA,ZBITJ 017214 : C,AAX,ENDTAB 017215 : C,ATX,ENDTAB 017216 : C,VLM,LCLETAB 017217 : R,VTM,RETURN 017218 : ,UJ,SEMU 017219 : C----------------------------------- 017220 : C 017221 : C*** PAБOTA C CEMAФOPOM 017222 : SEMD:,24,2003B 017223 : ,ITA,R 017224 : ,AOX,SEMW 017225 : ,UJ,SEMDOWNS 017226 : SEMU:,24,2003B 017227 : ,ITA,R 017228 : ,AOX,SEMW 017229 : ,UJ,SEMUP 017230 : SEMW:,Z00,SEMPOST 017231 : ,Z00, 017232 : C 017233 : C*** ПPOBEPKA ДOCTYПHOCTИ ЛИCTA OБMEHA 017234 : PAGESTS:,BSS, 017235 : :,24,2003B 017236 : TB,XTA,INFW 017237 : ,ASN,64+30 017238 : ,AAX,C37 017239 : ,ATI,S.N MAT.ЛИCTA 017240 : TB,UTC,TMATH 017241 : S,XTA, 017242 : ,ASN,64+30 017243 : C,VTM,CERMEM.ЛИCT 017244 : ,UZA,RETERR.HE ЗAKAЗAH 017245 : ,AEX,B18 017246 : R,UZA,.HE ПOTPEБЛЯЛCЯ 017247 : ,AAX,C177. 017248 : R,UZA,.B ПOДKAЧKE 017249 : ,ITA,S 017250 : ,ASN,64-10 017251 : ,ATI,S 017252 : :,24,2000B.ЖДEM 017253 : S,XTA,1.KOHЦA OБMEHA 017254 : :,24,2003B 017255 : R,UJ, 017256 : C 017257 : C*** AKTИBИЗAЦИЯ TPAHCПOPTHЫX CTAHЦИЙ 017258 : C*** ПO ЗAДAHHOЙ ШKAЛE 017259 : OTKPTC:,24,3 017260 : C,XTA,.ШKAЛA 017261 : ,AAX,EVENTSC 017262 : ,UZA,БEЗPEAK 017263 : ,ANX, 017264 : ,ATI,S 017265 : :,24,2003B 017266 : S,XTA,BITS 017267 : C,AEX, 017268 : C,ATX, 017269 : ,ITA,S 017270 : ,AOX,БИTMПKC-24 017271 : S,VTM,OTKPTC-BASE 017272 : ,UJ,ГEHCOБ 017273 : БEЗPEAK:,24,2003B 017274 : C,XTA,.OTKPЫTИE 017275 : ,AAX,CLTS.TC 017276 : ,AOX,RDSCAL.PAБOTAЮЩИX 017277 : ,ATX,RDSCAL.БEЗ COБЫTИЙ 017278 : R,UJ, 017279 : C 017280 : C*** BЫKAЧИBAHИE ИПЗ B ПAMЯTЬ 017281 : ДAЙ ИПЗ:,BSS, 017282 : :,24,2003B 017283 : ,XTA,Ш/FULL 017284 : C,AAX,BITS 017285 : R,UZA,.CЛYЖ.ЗAДAЧA 017286 : ,ITA,C 017287 : ,ASN,64-9 017288 : ,ATI,S.=15 017289 : S,UTM,50B.ДЛЯ GIVEPAGE 017290 : ,ITA,B 017291 : ,ARX,*+2 017292 : A/Д/ИПЗ:,UJ,SEMDOWNS 017293 : ,Z00,Д/ИПЗ-BASE 017294 : :,Z00,SEM212 017295 : ,Z00,*+1-BASE 017296 : C BPEMEHHЫЙ HAPKOЗ 017297 : :C,XTA,BITS 017298 : ,AOX,YДABЛEHЫ 017299 : ,ATX,YДABЛEHЫ 017300 : ,AEX,FULWOR 017301 : ,AAX,MRDSCAL 017302 : ,ATX,MRDSCAL 017303 : Д/ИПЗ:,ITA,B 017304 : ,ARX,A/Д/ИПЗ 017305 : ,ATI,33B 017306 : C,XTA,*YCЫ 017307 : ,ASN,64+10 017308 : ,AAX,C37 017309 : ,UZA,GIVEPAGE 017310 : ,ATI,15.ИПЗ B ПAMЯTИ. 017311 : 15,XTA,TPHYS 017312 : ,AOX,B1 017313 : 15,ATX,TPHYS 017314 : R,UJ, 017315 : C 017316 : C*** OTПYCKAHИE ИПЗ 017317 : HA ИПЗ:,BSS, 017318 : :,24,2003B 017319 : ,XTA,Ш/FULL 017320 : C,AAX,BITS 017321 : R,UZA,.CЛYЖ.ЗAДAЧA 017322 : C,XTA,*YCЫ 017323 : ,ASN,64+10 017324 : ,AAX,C37 017325 : ,ATI,S 017326 : S,XTA,TPHYS 017327 : ,AEX,B1 017328 : S,ATX,TPHYS 017329 : ,XTA,YДABЛEHЫ 017330 : ,AOX,MRDSCAL 017331 : ,ATX,MRDSCAL 017332 : ,XTA, 017333 : ,ATX,YДABЛEHЫ 017334 : ,ITA,R 017335 : ,AOX,BSEM212 017336 : ,UJ,SEMUP 017337 : BSEM212:,Z00,SEM212 017338 : ,Z00, 017339 : C 017340 : C*** ЗAKPЫTИE ЗAДAЧИ ПPИ ПPИEME/ПEPEДAЧE 017341 : C ПPИ 21P=0 - ЗAKPЫBAETCЯ ДO OБMEHA 017342 : C =1 - HA ЧИCЛO CEK. B PEГ. A 017343 : C 017344 : TIMER:R,VJM,SEMU 017345 : S,MTJ,R 017346 : TB,XTA,INFW 017347 : ,AAX,B21 017348 : ,UZA,CLTASK.ПOПPOCTY 017349 : ,RTE,7777B 017350 : ,ATX,SAVSR 017351 : TB,XTA,INFW 017352 : ,ASN,64+24.BPEMЯ 017353 : ,AAX,C77.OЖИДAHИЯ 017354 : ,AOX,=I0 017355 : ,NTR,2 017356 : ,A+X,ABTIME 017357 : ,ASN,64+21 017358 : ,ASN,64-6 017359 : ,AOX,Д H З 017360 : ,ASN,64-15 017361 : ,AOX,P/NEWTA 017362 : R,CALL,SET TIMER 017363 : R,VJM,CLTASK.ЗAKPЫЛИCЬ 017364 : S,MTJ,R 017365 : ,XTA,ДHЗ.ПEPEД 017366 : ,ASN,64-15.YXOДOM - CHИMEM 017367 : ,UJ,DEL TIMER.БYДИЛЬHИK 017368 : P/NEWTA:,Z00, 017369 : ,Z00,NEWTA 017370 : C 017371 : C*** ЗAKPЫTИE ЗAДAЧИ 017372 : CLTASK:,BSS, 017373 : :,24,2003B 017374 : ,ITA,15 017375 : 15,VTM,SAVI15 017376 : ,ITS,14 017377 : ,ITS,13 017378 : R,VTM,RETCLT 017379 : R,MTJ,33B 017380 : C ДЛЯ TC PAБOTAЮЩEЙ C COБЫTИЯMИ 017381 : C 27 ИP CДEЛAEM HYЛEBЫM, ЧTOБ SELECT 017382 : C CXOДИЛ HA BETBЛEHИE. ПOДПPOГPAMMA 017383 : C BETBЛEHИЯ ДOЛЖHA ЗAHECTИ DISREG 017384 : C B ПOЛE YПPЯTЫBAHИЯ 27 ИP. 017385 : 13,VTM,NEWTA 017386 : ,XTS,DISREG 017387 : ,ATI,27B 017388 : ,XTA,BITJ 017389 : ,AAX,EVENTSC 017390 : ,UZA,NOTEVCLO 017391 : ,AAX,CLTS 017392 : ,UZA,CLOPER 017393 : ,MTJ,27B 017394 : ,UJ,CLOPER 017395 : C PAЗPEШEHИE YKAЧИBAHИЯ ИПЗ 017396 : NOTEVCLO:,WTC,ГYC 017397 : ,XTA,BUFS27 017398 : ,AAX,C14 017399 : ,U1A,CLOPER.HEЛЬЗЯ 017400 : ,XTA,BITJ.MOЖHO 017401 : ,AOX,MOЖHOKAЧ 017402 : ,ATX,MOЖHOKAЧ 017403 : ,UJ,CLOPER 017404 : RETCLT:,WTC,ГYC 017405 : TB,VTM, 017406 : ,XTA,MOЖHOKAЧ 017407 : ,AAX,ZBITJ 017408 : ,ATX,MOЖHOKAЧ 017409 : ,XTA,SCOPER 017410 : ,AAX,ZBITJ 017411 : ,ATX,SCOPER 017412 : ,XTA,ZBITJ 017413 : ,AAX,WAITMT 017414 : ,ATX,WAITMT 017415 : R,UJ, 017416 : C 017417 : C... ИHTEPФEЙC ПOЛЬЗOBATEЛЯ C 017418 : C ФAЙЛOBOЙ CИCTEMOЙ. 017419 : C ------------------------ 017420 : C 017421 : C 1-35 PAЗPЯДЫ INFW TPAKTYЮTCЯ ПOЧTOЙ 017422 : C KAK OБЫЧHO. KPOME TOГO, B 37-39 P. 017423 : C ЗAДAETCЯ HOMEP ФAЙЛOBOЙ CИCTEMЫ; 017424 : C B 40-42 P. : JOB - KOД OПEPAЦИИ; 017425 : C B 43-48 P. : LUN - MAT.HOMEP (30-67B) 017426 : C 017427 : C 1-15 P. INFW COДEPЖAT A - AДPEC MACCИBA 017428 : C ИЗ 20 CЛOB. ECЛИ A=0, TO KOPOTKOE CO- 017429 : C OБЩEHИE CЧИTAETCЯ YЖE ПOДГOTOBЛEHHЫM B 017430 : C 141-161 CЛOBAX ИПЗ. 017431 : C 017432 : C ЗHAЧEHИЯ JOB : 017433 : C 0 - OTKPЫTИE ФAЙЛA C HOMEPOM LUN 017434 : C 1 - ЗAKPЫTИE ---"--- 017435 : C 2 - ПPOCTO ПEPEДAЧA, ЗATEM ПPИEM 017436 : C 6 - BXOД ДЛЯ Э070 017437 : C 7 - TOЛЬKO ПEPEДAЧA, БEЗ ПPИEMA 017438 : C 017439 : C ПEPEДAЮTCЯ BCEГДA ПEPBЫE 16 CЛOB 017440 : C MACCИBA A, ПPИЧEM B ПEPBOM ИЗ HИX 017441 : C ДOЛЖEH HAXOДИTЬCЯ KOП ФAЙЛOBOЙ CИC- 017442 : C TEMЫ (B 1-6 P.), A B 43-48 P. 017443 : C ЭKCTPAKOД BCTABЛЯET ДHЗ ЗAДAЧИ. 017444 : C B 42-33 P. BCTABЛЯETCЯ NPASS USER'A 017445 : C ФИKCИPOBAHЫ: KOП=14B - ЗAKAЗ OT Э070 017446 : C (ПPИ ЭTOM 2-E CЛOBO A COДEPЖИT IW70) 017447 : C И KOП=13B - ЗAKAЗ OT Э074. 017448 : C 017449 : C ПOCЛE ПEPEДAЧИ,ECЛИ JOB<7, ПPOИЗBOДИTCЯ 017450 : C ПPИEM OTBETA ФAЙЛOBOЙ CИCTEMЫ B 5-20 017451 : C CЛOBA MACCИBA A. 017452 : C ПEPBOE CЛOBO OTBETA, T.E. A(5), OБЯЗAHO 017453 : C COДEPЖATЬ B 1-15 P. "0" - ECЛИ BCE 017454 : C HOPMAЛЬHO, ИHAЧE HOMEP OШИБKИ Ф.C. 017455 : C KPOME TOГO, Ф.C. MOЖET CФOPMИPOBATЬ 017456 : C B 2-3 CЛOBAX OTBETA (A(6) И A(7)) TEKCT 017457 : C ДИAГHOCTИKИ ДЛЯ ERRMACRO (KOД ГOCT, 017458 : C 12-Й CИMBOЛ = '231'). ПPИЗHAK HAЛИЧИЯ 017459 : C ДИAГHOCTИKИ - "1" 48-ГO P. A(5) 017460 : C 017461 : C ПOCЛE BЫДAЧИ ЭKCTPAKOДA CYMMATOP 017462 : C COДEPЖИT 0B, ECЛИ BCE HOPMAЛЬHO, 017463 : C ИHAЧE - БИT OШИБKИ 017464 : C 48-35 : БИTЫ OШИБOK ПOЧTЫ 017465 : C 34 : CИГHAЛ OШИБKИ OT Ф.C. 017466 : C 017467 : C---------------------------------------- 017468 : C 017469 : C... ИCПOЛЬЗYEM ДOПOЛHИTEЛЬHO B BUFS27: 017470 : C 48 : ECTЬ BHYTPEHHИЙ BOЗBPAT 017471 : C 39-25 : BHYTP.OTHOC.AДPEC BOЗBPATA 017472 : C 017473 : C... ECЛИ П/Я HE OTKPЫT, B KAЧECTBE 017474 : C ИMEHИ П/Я ИCПOЛЬЗYEM CBOE ДHЗ 017475 : C 017476 : FILE SYST:T,XTA,TNPBOX 017477 : ,U1A,*+2 017478 : ,XTA,ДHЗ 017479 : T,ATX,TNPBOX 017480 : :TB,XTA,INFW 017481 : ,AOX,=:0000 0077 0400.MAKCИM. 017482 : TB,ATX,INFW.BPEMЯ OЖИДAHИЯ 017483 : ,ASN,64+39 017484 : ,AAX,C7 017485 : ,ATI,C.KOП 017486 : ,UZA,CHLUN 017487 : ,AEX,C6 017488 : ,U1A,FHEAD 017489 : C 017490 : C... BCTABKA LUN B INFW 017491 : C ПPИ PAБOTE OT Э070 017492 : C 017493 : TB,XTA,SHMESS+5 017494 : ,ASN,64+12 017495 : ,ASN,64-42 017496 : TB,AOX,INFW 017497 : TB,ATX,INFW 017498 : C 017499 : C... ПOИCK ПO FATA C ЦEЛЬЮ : 017500 : C A) KOHTPOЛЯ LUN ПPИ OPEN 017501 : C Б) OПPEДEЛEHИЯ NFS ПPИ Э070 017502 : C 017503 : CHLUN:TB,XTA,INFW 017504 : ,ASN,64+6 017505 : ,AOX,ГYC 017506 : TB,ATX,SHMESS+1 017507 : A,VTM,-47 017508 : R,VTM,-LFATA 017509 : CHFAT:R,XTA,FATA+LFATA 017510 : TB,AEX,SHMESS+1 017511 : ,AAX,MASK12 017512 : ,U1A,ECHFAT 017513 : C,VZM,BADEXCH 017514 : R,XTA,FATA+LFATA 017515 : ,APX,=13 0000 0000.STATUS+NFS 017516 : ,ASN,64+9 017517 : TB,AOX,INFW 017518 : TB,ATX,INFW 017519 : ,UJ,FHEAD 017520 : ECHFAT:R,VLM,CHFAT 017521 : C,VIM,BADEXCH 017522 : C 017523 : C... HE ЗAHЯT ЛИ MAT.HOMEP ЛEHTOЙ 017524 : C 017525 : CHTMT:A,XTA,TABLEMT+47 017526 : TB,AEX,SHMESS+1 017527 : ,AAX,MASK12 017528 : ,UZA,BADEXCH 017529 : A,VLM,CHTMT 017530 : C 017531 : C... ФOPMИPOBAHИE ШAПKИ COOБЩEHИЯ 017532 : C 017533 : FHEAD:S,VTM,SHMESS 017534 : TB,J+M,S 017535 : ,XTA,B5.ДЛИHA=16 017536 : ,XTS,."БEЗ TC" 017537 : TB,XTS,INFW.ИMЯ 017538 : ,ASN,64+36.CИCTEMЫ 017539 : ,AAX,C3.*** 017540 : ,ATI,A 017541 : C 017542 : C... ПPOБA ДOCTYПHOCTИ Ф.C. 017543 : C 017544 : ,XTA,USEFS 017545 : A,AAX,B24 017546 : ,UZA,BADEXCH 017547 : ,ITA,A 017548 : ,ARX,=6HFILESD.*** 017549 : A,XTS,B15 017550 : TB,AOX,SCNFS.B ШK.HOMEPOB 017551 : TB,ATX,SCNFS.ФAЙЛ.CИCTEM 017552 : ,XTA, 017553 : TB,XTS,INFW 017554 : ,ATI,A 017555 : A,VZM,NOTRMFS 017556 : C 017557 : C... ПEPEПИCЬ COOБЩEHИЯ B ИПЗ 017558 : C 017559 : R,VTM,-15 017560 : TRMFS:TB,WTC,BUFS27 017561 : ,24, 017562 : R,UTC,15 017563 : A,XTA, 017564 : :,24,3 017565 : S,ATX,.S=15 ! 017566 : R,VLM,TRMFS 017567 : C 017568 : C... ДHЗ И NPASS B 1-E CЛOBO COOБЩEHИЯ 017569 : C 017570 : NOTRMFS:TB,XTA,AUS 017571 : ,AAX,C1777 017572 : ,ASN,64-32 017573 : ,AOX,ГYC 017574 : TB,AEX,SHMESS+4 017575 : ,AAX,=:7777 74 017576 : TB,AEX,SHMESS+4 017577 : TB,ATX,SHMESS+4 017578 : C 017579 : C... ПOШЛИ HA ПEPEДAЧY 017580 : C 017581 : TB,XTA,BUFS27.BHYTP.BOЗBPAT 017582 : ,AOX,ARETSEND 017583 : TB,ATX,BUFS27.YCTAHOBИM 017584 : ,UJ,SEND MESS 017585 : ARETSEND:8,Z00,AFSEND-BASE 017586 : ,Z00, 017587 : ARETINP:,Z00,AFINP-AFSEND 017588 : ,Z00, 017589 : C 017590 : C... ПOCЛE ПEPEДAЧИ 017591 : C 017592 : AFSEND:TB,XTA,INFW 017593 : ,ASN,64+39 017594 : ,AAX,C7 017595 : ,ATI,C 017596 : ,AEX,C7 017597 : ,UZA,RESTORE.БEЗ ПPИEMA 017598 : TB,XTA,W.БЫЛA ЛИ ABAPИЯ 017599 : ,UZA,TO INP.HA ПEPEДAЧE 017600 : C... ЧTO ИMEHHO ЗA ABAPИЯ 017601 : ,AEX,CRABS 017602 : ,U1A,AFINP1 017603 : C... OБHAPYЖEHO OTCYTCTBИE Ф.C. 017604 : C ПPИ PAБOTE ДЛЯ Э070 ИЛИ ЗAKPЫTИИ ФAЙЛA 017605 : C ЖДATЬ ПOЯBЛEHИЯ HOBOЙ Ф.C. HE CTOИT 017606 : ,ITA,C 017607 : ,AEX,B1 017608 : ,UZA,AFINP1 017609 : ,AEX,C7.KOП = 6 017610 : ,UZA,TO INP 017611 : C... ИHAЧE ПOДOЖДEM 017612 : ,XTA,FLMAMБ. MAЛO MБ 017613 : ,U1A,AFINP1.-ДA 017614 : ,XTA,Ш/ПYCK 017615 : ,ATX,CHTM 017616 : G/SHI:,24,3 017617 : ,XTA,CHTM 017618 : ,UZA,AFINP1.HET ШИФPA 017619 : ,ANX, 017620 : ,ATI,C.ДHЗ 017621 : C,XTA,BITS 017622 : ,AEX,CHTM 017623 : ,ATX,CHTM 017624 : :,24,2003B 017625 : C,XTA,*YCЫ 017626 : ,UZA,G/SHI 017627 : ,AAX,B30/16 017628 : ,U1A,G/SHI.ШИФP ЗAHЯT 017629 : ,XTA,B47 017630 : ,ATX,NSTAJOB 017631 : ,ITA,C 017632 : ,ATX,MШ 017633 : ,XTA,Д H З 017634 : ,ASN,64-16 017635 : C,ATX,MONO-NF 017636 : ,XTA,B19 017637 : C,ATX,INFBA-NFM 017638 : C,XTA,BITS 017639 : ,AOX,БЛOKAЦПY 017640 : C,XTA,BITS 017641 : ,AOX,ПAPTИЗAH 017642 : ,ATX,ПAPTИЗAH."CЛA" 017643 : ,XTA,DISREG 017644 : ,ATI,27B 017645 : R,VTM,OTЛYП 017646 : R,MTJ,33B 017647 : C... ИMЯ ЗAПYCKAEMOЙ ЗAДAЧИ = ИПЯ Ф.C. 017648 : ,XTA,ZBITJ 017649 : ,AAX,MRDSCAL 017650 : ,ATX,MRDSCAL 017651 : C... ПEPEД ЗAПYCKOM - OCBOБOДИM 017652 : C CEMAФOP CHEKJOB*-A 017653 : ,XTA,INF/PUSH 017654 : ,UJ,SEMUP 017655 : INF/PUSH:,Z00,SEM/RES 017656 : ,Z00,STARTJOB 017657 : C 017658 : C... OPГAHИЗAЦИЯ ЗAДEPЖKИ ДO 017659 : C ПOЯBЛEHИЯ ПOЧT.ЯЩИKA Ф.C. 017660 : C ПPИ BЫЗOBE ИЗ OCCUPYD - ЗAДAЧE 017661 : C COOБЩAETCЯ, ЧTOБЫ OHA CДEЛAЛA 017662 : C ПOBTOPHЫЙ BXOД, OCBOБOДИB 017663 : C ПPEДBAPИTEЛЬHO KPИT.ИHTEPBAЛЫ 017664 : C 017665 : OTЛYП:,XTA,SEM/DIS 017666 : ,AEX, Д H З 017667 : ,AAX,C77 017668 : ,U1A,CLTRR.ПOПPOCTY 017669 : ,XTA,=6HOTЛYП 017670 : TB,ATX,W 017671 : ,UJ,RESTORE 017672 : C 017673 : C... OPГAHИЗAЦИЯ ПPИEMA OTBETA 017674 : C 017675 : TO INP:TB,MTJ,15 017676 : 15,UTM,SHMESS+4 017677 : ,XTA,FULWOR 017678 : ,XTS,TNOFS 017679 : ,XTS,TNOFS+1 017680 : TB,XTS,W.ПPOПAЛA Ф.C. 017681 : ,U1A,AFINP1.ПPИ OБMEHE 017682 : ,XTA,B22 017683 : TB,AOX,INFW 017684 : TB,ATX,INFW 017685 : ,XTA,ARETINP 017686 : TB,ARX,BUFS27 017687 : TB,ATX,BUFS27 017688 : TB,XTA,SHMESS+2.ИMЯ Ф.C. 017689 : TB,ATX,NAMTRNSR 017690 : ,UJ,RECVR 017691 : C 017692 : C... ПOCЛE ПPИEMA 017693 : C 017694 : AFINP:TB,XTA,INFW 017695 : ,ASN,64+39 017696 : ,AAX,C7 017697 : ,ATI,C 017698 : AFINP1:,24,3 017699 : TB,XTA,INFW 017700 : ,ASN,64+42 017701 : ,ATI,R.LUN 017702 : ,ITA,C.ПPИ ЗAKPЫTИИ 017703 : ,AEX,B1.BCEГДA 017704 : ,UZA,S/FATA.ЧИCTИM FATA 017705 : TB,XTA,SHMESS+4 017706 : ,AAX,C77777 017707 : TB,AOX,W 017708 : ,U1A,ANAL.OШИБKИ 017709 : ,ITA,C 017710 : ,U1A,ANAL 017711 : C 017712 : C... ЗAГOTOBKA CTPOЧKИ HAШEГO ФAЙЛA 017713 : C B FATA : 017714 : C 48:43 - ДHЗ 017715 : C 42:37 - LUN 017716 : C 36:31 - NMOD=77 017717 : C 28:27 - CTATYC OБMEHA 017718 : C 26:25 - HOMEP ФAЙЛ.CИCTEMЫ 017719 : C 12:1 - PAЗMEP ФAЙЛA - 1 017720 : C 017721 : S/FATA:,XTA,ДHЗ 017722 : ,ASN,64-12 017723 : ,AOX,C77 017724 : ,ASN,64-30 017725 : TB,ATX,SHMESS+1 017726 : TB,XTA,INFW 017727 : ,AUX,=:0077 0713 0000 0000 017728 : TB,AOX,SHMESS+1 017729 : TB,ATX,SHMESS+1 017730 : TB,XTA,SHMESS+5 017731 : ,AAX,C77777 017732 : TB,AOX,SHMESS+1 017733 : TB,ATX,SHMESS+1 017734 : TB,XTA,SCNFS 017735 : R,AOX,B48-30B 017736 : R,AEX,B48-30B 017737 : TB,ATX,SCNFS 017738 : A,VTM,-LFATA 017739 : S/F1:,24,2003B 017740 : A,XTA,FATA+LFATA 017741 : C,VIM,S/F2 017742 : ,U1A,S/F3 017743 : R,XTA,B48-30B 017744 : TB,AOX,SCNFS 017745 : TB,ATX,SCNFS 017746 : TB,XTA,SHMESS+1 017747 : ,UJ,PUTFATA 017748 : S/F2:TB,AEX,SHMESS+1 017749 : ,AAX,=:7777 7703 017750 : ,UZA,PUTFATA 017751 : S/F3:,24,3 017752 : A,VLM,S/F1 017753 : C,VIM,BADEXCH 017754 : C... HET MECTA B FATA 017755 : R,VJM,SEMU 017756 : R,VTM,AFINP 017757 : ,XTA,BITJ 017758 : ,AOX,WAITMT 017759 : ,ATX,WAITMT 017760 : ,UJ,CLTASK 017761 : PUTFATA:A,ATX,FATA+LFATA 017762 : ,UJ,ANAL 017763 : C------------ 017764 : BADEXCH:,XTA, 017765 : TB,ATX,SHMESS+4 017766 : ,XTA,CBADM 017767 : TB,ATX,W 017768 : ANAL:TB,XTA,INFW 017769 : ,ASN,64+30 017770 : ,AAX,C37 017771 : ,ATI,R.MAT.ЛИCT 017772 : ,ITA,C 017773 : ,AEX,C6 017774 : ,U1A,ANAL1 017775 : C 017776 : C... COБЫTИE "KOHEЦ OБMEHA" ПO Э070 017777 : C 017778 : TB,XTA,ДШ.COБЫTИE 017779 : ,UZA,ANAL1.HE TPEБYETCЯ 017780 : R,AOX,B48.B ШKAЛY 017781 : TB,ATX,ДШ.ЛИCTOB C KO 017782 : S,VTM,ANAL1-BASE 017783 : ,XTA,B48.ДHЗ=0 : 017784 : ,UJ,ГEHCOБ.: CEБE 017785 : ANAL1:TB,XTA,W 017786 : ,U1A,BADANSW 017787 : TB,XTA,SHMESS+4 017788 : ,AAX,C77777 017789 : ,UZA,RESTORE 017790 : ,XTA,NEGRFS 017791 : BADANSW:TB,ATX,W 017792 : C,UTM,-6 017793 : C,VIM,RESTORE 017794 : R,XTA,B48 017795 : TB,AOX,ST/EXCH 017796 : TB,ATX,ST/EXCH 017797 : TB,XTA,INFW 017798 : ,AAX,B39.CTATYC 017799 : ,U1A,RESTORE 017800 : C 017801 : C... BЫXOД HA ERRMACRO ПPИ ABAPИИ 017802 : C HA OTPAБOTKE Э070 017803 : C 017804 : TB,XTA,W 017805 : ,ANX, 017806 : :,24,2003B 017807 : ,ATX,SAVI14 017808 : TB,XTA,SHMESS+19 017809 : ,ATX,SAVAC.IW70 017810 : TB,XTA,SHMESS+4 017811 : ,ARX,.ECTЬ ЛИ TEKCT 017812 : :,U1A,*+1.ДИAГHOCTИKИ 017813 : TB,UTC,SHMESS+5-16. - ДA 017814 : :A,VTM,16."ПЛOX.OБMEH" 017815 : ,ITA,A 017816 : :,AEX,*+1 017817 : ,UJ,ERRNRES 017818 : :,Z00,NRPOST 017819 : ,, 017820 : C 017821 : C*** BOЗBPAT ИЗ ЭKCTPAKOДA 017822 : RETERR:C,UTC, 017823 : RETURN:,XTA, 017824 : TB,ATX,W 017825 : TB,XTA,BUFS27.BHYTPEHHИЙ 017826 : ,ARX,.BOЗBPAT 017827 : ,U1A,RESTORE.- HET 017828 : ,ASN,64+24.- ECTЬ 017829 : ,ATI,R 017830 : ,WTC,ДHЗ 017831 : T,VTM,-NF 017832 : B,UTC, 017833 : R,UJ, 017834 : RESTORE:,BSS, 017835 : R,VJM,SEMU 017836 : TB,XTA,SAVR1 017837 : ,ATI,A 017838 : ,ASN,64+15 017839 : ,ATI,R 017840 : ,ASN,64+15 017841 : ,ATI,S 017842 : ,XTA,ZBITJ 017843 : ,AAX,LIB/BOSS 017844 : ,ATX,LIB/BOSS 017845 : TB,XTA,BUFS27 017846 : ,ATI,27B 017847 : TB,XTA,W 017848 : ,ATX,SAVAC 017849 : TB,XTA,SAVR2 017850 : ,ATI,T 017851 : ,ASN,64+15 017852 : ,ATI,C.ДЛЯ B 017853 : ,ASN,64+15 017854 : ,ATI,TB 017855 : ,XTA,*+2 017856 : :C,MTJ,B 017857 : ,UJ,NRESOFF 017858 : :,Z00,NRPOST 017859 : ,Z00,OUTMACRO 017860 : C 017861 : C--------------- 017862 : TNOFS:,GOST,12HNO FIL.SYST'231' 017863 : CM1:,LOG,7777 7777 7777 7776 017864 : B33/22:,OCT,0000 0777 7 017865 : C MOHOПOЛЬHO ИCПOЛЬЗYEMЫE ЯЧEЙKИ 017866 : WS FILD:,BSS,6 017867 : ,END, 000001 : TRAM70 : ,NAME, 000002 : C--------- 000003 : C 000004 : C MAЙ 1983. H.C.ГOHЧAPOB. 000005 : C 000006 : C (И ДO HEГO MHOГИE XOTEЛИ ПEPEПИCATЬ 000007 : C ЗAДAЧY OБMEHA, HO HИKTO HE PEШИЛCЯ). 000008 : C 000009 : C-------- 000010 : C 000011 : *ИПД:LC,BLOCK,(16) 000012 : ,CONT,XLTF,LENTDIS 000013 : ,CONT,(1),Ш/ДИCП,(22) 000014 : ,CONT,OUTJOBSC 000015 : ИПЗ/ECTЬ:,EQU,*ИПД+42B 000016 : MTRACNT:,EQU,*ИПД+27B 000017 : LQTRA:,WEQ,MTRACNT.ДЛИHA WL 000018 : LTF:,WEQ,XLTF.ДЛИHA FATA 000019 : C--------- 000020 : CHEKMDFL:,LC,1.БЛOKИP.OШ.MБ 000021 : C--------- 000022 : SELECT:,SUBP,. 000023 : COБЫTИE:,SUBP, 000024 : CLANEWTA:,SUBP,. 000025 : TTPRINT : ,SUBP, 000026 : ERRPRI : ,SUBP, 000027 : OШMAШИHЫ:,EQU,ERRPRI 000028 : OUTCW:,LC,1. 000029 : OUTJOB:,SUBP,. 000030 : ABCHT:,SUBP, 000031 : C 000032 : TIMERS:LC,BLOCK,TMБ(2),TMД(2),MTTIMCNT(4) 000033 : *TAKCA:LC,BLOCK,(1),DISTIME,TAPTIME 000034 : C 000035 : *677:B,BLOCK,BITS,BIT48,BIT47,BIT46,BIT45,BIT44,BIT43,BIT42,BIT41, 000036 : , CONT, BIT40,BIT39,BIT38,BIT37,BIT36,BIT35,BIT34,BIT33, 000037 : , CONT, BIT32,BIT31,BIT30,BIT29,BIT28,BIT27,BIT26,BIT25, 000038 : , CONT, BIT24,BIT23,BIT22,BIT21,BIT20,BIT19,BIT18,BIT17, 000039 : , CONT, BIT16,BIT15,BIT14,BIT13,BIT12,BIT11,BIT10,BIT9 , 000040 : , CONT, BIT8 ,BIT7 ,BIT6 ,BIT5 ,BIT4 ,BIT3 ,BIT2 ,BIT1 000041 : BITTRA:,EQU,BIT27. 000042 : PEBEPC:,EQU,BIT24. 000043 : HAЛOЖ:,EQU,BIT23. 000044 : CЛYЖCЛOB:,EQU,BIT21. 000045 : ЛИCTOБM:,EQU,BIT19. 000046 : ЧTEHИE:,EQU,BIT18. 000047 : ПOДBOД:,EQU,BIT16. 000048 : BITПOДB:,EQU,BIT6. 000049 : BITИMЯ:,EQU,BIT5. 000050 : MAXTIMET:,EQU,BIT8.TAЙMEP MЛ 000051 : CREADIS:,EQU,BIT5.B T1MT 000052 : CONTROL:,EQU,BIT4.B T1MT 000053 : *C :,LC, 000054 : *CB:,LC, 000055 : *TLCONST:,LC, 000056 : MASK12:,LC,3 000057 : FULWOR : ,LC,1 000058 : *YCЫ:LC,BLOCK,ГYC,RDSCAL,COMMIR 000059 : ДHЗ:LC,BLOCK,(1),BITJ,ZBITJ 000060 : C 000061 : EXCHJOB:,LC,2.KЛИEHTЫ SWING-A 000062 : C 000063 : JNREC:,EQU,27B.OПOЗHABAHИE 000064 : SMASAV:LC,BLOCK, 000065 : ,CONT, SAVAC 000066 : ,CONT, SAVSR 000067 : ,CONT,(1) 000068 : ,CONT, SAVI15 000069 : C 000070 : C<<<<<<<<<<<<<<< И П З >>>>>>>>>>>>>>>> 000071 : C 000072 : ST/EXCH:,EQU,-2 000073 : *0:,BLOCK,(3),S33(2),S27(3),I14(16) 000074 : ,CONT ,TMATH(0),TПPИП(8),TЗAЩ(4),(28) 000075 : ,CONT ,(6),COPYS33(2),BISTIME(2),SCEX(3) 000076 : ,CONT ,SYSMD(10),MЛД,PЛД 000077 : REGSCAL:,EQU,100B.ФЛAГИ 000078 : CWPLAC:,EQU,150B.MECTO CЛ.CЛOB 000079 : C 000080 : C<<<<<<< OБЬEKTЫ ЗAДAЧИ OБMEHA >>>>>>>> 000081 : C 000082 : PUT16:,SUBP, 000083 : TYPEMT:,SUBP, 000084 : FIX DENS:,EQU,TYPEMT+5 000085 : BUFTRA:LC,BLOCK,(1),IFTRA(36). 000086 : DRIDENT:LC,BLOCK,(1),KYC 000087 : TRA MASK:LC,BLOCK,(1),FINZON 000088 : TRABUS : ,LC,1 000089 : TRACNT : ,LC,1 000090 : FULQUESC: ,LC,1 000091 : TPAKTCT:,EQU,541B 000092 : C 000093 : REWINDSC:LC,BLOCK,(1),ЗAKЗAП,CONTRWR 000094 : ,CONT,CHBOSS(4) 000095 : C.. CMЫCЛ ЯЧEEK БЛOKA REWINDSC : 000096 : C 4-7. 48P.- HYЖEH ПEPEXBAT ПPEPЫBAHИЯ 000097 : C ПO ПPOXOДY ЗOHЫ B 3-6 HAПP. 000098 : C 1-15P.- AДPEC ПPOЦEДYPЫ ПEPEXBATA. 000099 : C /ЗAKAЗ ПEPEXBATA БЛOKИPYET PAБOTY ЗAДAЧИ 000100 : C OБMEHA CO BCEM Y B Y - HAПPABЛEHИEM/. 000101 : C 000102 : C 1. '1' B 48-17 PAЗPЯДAX ECTЬ 000103 : C ПPИЗH. HECMOTKИ HA HAЧAЛO MЛ 30-67. 000104 : C 000105 : C 2. '1' B 48-1 P. - ПPИЗH. PAЗPEШEHИЯ 000106 : C ЗAПИCИ HA MЛ/MOДEЛЬ 10-67. 000107 : C 000108 : C 3. '1' B 48-1 P. - HYЖEH KOHTPOЛЬ 000109 : C COCTOЯHИЯ ЗAПИCИ HA MЛ/MOДEЛИ 10-67. 000110 : C 000111 : C----------------------------------------- 000112 : IW70 : ,LC,1 000113 : CWJFOTRA: ,LC,1.YC ЗAKAЗЧИKA 000114 : TPHYS : ,LC,1 000115 : RETTRA:LC,BLOCK,W04265.ПEPEXBAT "KЧ" 000116 : TASKSTRA:LC,BLOCK,. 000117 : ,CONT,TBUC(6),TBUT(6) 000118 : ,CONT,CSUM(0),CSUMSTAT(6) 000119 : SCALSTRA:LC,BLOCK,. 000120 : ,CONT,SBUC(6),SRJC(6) 000121 : ,CONT,SJMT(32) 000122 : ,CONT,SJMD(16),SCADDS 000123 : ,CONT,БYPЖYЙ 000124 : ,CONT,SCSWING.ШK.OБMEHOB ПOДKAЧKИ 000125 : C 000126 : C--- OЧEPEДЬ ЗAKAЗOB HA OБMEH: 000127 : C 000128 : LISTSTRA:LC,BLOCK,WL1.KYC-Ы 000129 : WL2:,EQU,WL1+LQTRA.KOHTP.CYMMЫ 000130 : C 000131 : TABLEMT:LC,BLOCK,T1MOD(16),T1MT(32) 000132 : ,CONT,T2MOD(16),T2MT(32) 000133 : ,CONT,TNMOD(16),TANAMEMT(32) 000134 : C 000135 : C TANAMEMT - ИMEHA ЛEHT 000136 : C T1MT : 000137 : C 48-43 : ДHЗ BЛAДEЛЬЦA ИЛИ 0 000138 : C 42-37 : MATEMATИЧECKИЙ HOMEP 000139 : C 36-31 : БИTЫ OШИБOK (CЛEBA HAПPABO: 000140 : C OШM,OШ/ЗП,OШ/CC,KO/ЗП,KC,CИ) 000141 : C 30-26 : CЧETЧИK ЧИCЛA OШИБOK TEK.OБMEHA 000142 : C 24-13 : CMEЩEHИE ПO ЛEHTE (*TAPES) 000143 : C 12 : CБPOC ДBИЖ.ПO TAЙMEPY (KДB) 000144 : C 11-10 : ПЛOTHOCTЬ ЗAПИCИ 000145 : C 8 : БЫЛ ПPИKAЗ "KO" 000146 : C 5 : ИДET KOHTPOЛЬHOE ЧTEHИE 000147 : C 4 : ЗAKAЗAH PEЖИM ЗAПИCИ C KOHTPOЛEM 000148 : C 3-2 : CTATYC ЛEHTЫ 000149 : C 1 : ПPИЗHAK ПEPBOГO OБPAЩEHИЯ 000150 : C T2MT : 000151 : C 48 : PAБOTAEM C ДYБЛEM ЗOHЫ 000152 : C 44 : OШИБKA B OCHOBHOЙ ЗOHE 000153 : C 43-42 : CЧETЧИK HAЛOЖEHИЙ ПPИ ЧTEHИИ 000154 : C 41-25 : PEГИCTP COCTOЯHИЯ ДЛЯ MЛ EC 000155 : C 24-13 : TPEБYEMAЯ ЗOHA (ЧETHAЯ!) 000156 : C 12-1 : TEKYЩAЯ ЗOHA 000157 : C 000158 : LTDIS:,WEQ,LENTDIS.ДЛИHA TAБЛ.ЭKCTEHTOB 000159 : LTD:,EQU,LTDIS-1. 000160 : LTD*3:,P*P,(LTD)3 000161 : *TDIS:,LC,LTDIS.TAБЛИЦA 000162 : TDIS:,EQU,*TDIS.ЭKCTEHTOB 000163 : *DISCS:LC,BLOCK,(32),ШMOД,ШФЛД 000164 : FATA:,LC,1.TAБЛИЦA ФAЙЛOB 000165 : TSF:,EQU,425B.TAБЛ.SCR-OБЛ. (8 CЛOB) 000166 : LTS:,EQU,7.EE ДЛИHA-1 000167 : C 000168 : *KOHCTPA:LC,BLOCK,KOHTPCTP.KOHTP.ЗAП.HA MБ 000169 : SCDICH:,SUBP, 000170 : DISC:,SUBP,. 000171 : DAFSET:,SUBP,. 000172 : RECMDT:,SUBP,.KAHAЛ OПOЗH. 000173 : CHVOP:,SUBP, 000174 : CHPOP:,SUBP, 000175 : PS*VOP:,SUBP, 000176 : PS*POP:,SUBP, 000177 : DISREG : ,LC,1 000178 : *SWCMN:LC,BLOCK,(10),SWINGIF(25) 000179 : EXCHSC:,EQU,*SWCMN+3 000180 : *STATBUF:LC,BLOCK,(14),MДMЛMБ 000181 : C 000182 : C 000183 : C... BXOДЫ OT MACRO70 И TRAPHY: 000184 : C 000185 : ADREQ40:,UJ,MACSTART 000186 : ,Z00,PHYREQ40 000187 : C 000188 : C 000189 : HA COБ:8,, 000190 : ,Z00,HE COБ 000191 : STD:2,Z01,БYCT. 000192 : ,Z02,. 000193 : ST/T:2,Z02,БYCT. 000194 : ,Z02,AFT ST. 000195 : MOШMБ:,LOG,10 00100 010 00100. 000196 : STATIST:,SUBP,. 000197 : C 000198 : C... HOMEPA ДИAГHOCTИK ERRMACRO : 000199 : C 000200 : *12:,BLOCK,AOШM(6),ЧYЖAЯMЛ,ЗAKPAБMД 000201 : ,CONT,ЧYЖTPEK,ЗAПPETЗП,ДHEГOT,MЛKAЮK 000202 : A*TOШMБ:,, 000203 : ,Z00,T OШMБ. 000204 : T ЗПMБ:,ISO,6HЗП MБ: 000205 : TEXER0:,BSS, 000206 : ,ISO,6HMБ KO: 000207 : ,ISO,6HMБOШM: 000208 : ,ISO,6HKЧ KC: 000209 : ,ISO,6HЗПOШM: 000210 : TOШMБ:,BSS,1 000211 : БYCT:,BSS,. 000212 : ЖEAД:,BSS,1 000213 : ШИФP:,BSS, 000214 : ПOAД:,BSS,2 000215 : TOШMЛ:,BSS,. 000216 : ,ISO,12HЧYЖAЯ MЛ - '1' 000217 : ,BSS,1 000218 : THEOПO:,BSS,. 000219 : ,ISO,12HHE OПOЗH.MЛ- 000220 : ,BSS,1 000221 : ,ISO,12HHEГOTOB.MФ-'1' 000222 : HOMФ:,BSS,1 000223 : ,ISO,12HHET ЗAП.MФ-'1' 000224 : ,BSS,1 000225 : TЦKMФ:,BSS,3. 000226 : ,LOG, 000227 : TMБCДOX:,BSS,. 000228 : ,ISO,6HЧП MБ. 000229 : ,BSS,1. 000230 : MTDIAGN:,BSS, 000231 : ,ISO,6HOШ/ЧT 000232 : ,ISO,6HOШ/ЗП 000233 : ,ISO,6HOШ/CC 000234 : ,ISO,6HKO/ЗП 000235 : ,ISO,6HKC MЛ 000236 : ,ISO,6HCБ/CИ 000237 : ,ISO,6HKДB MФ 000238 : HEYГACИM:,ISO,18HHET CБPOCA CДB-6'41''' 000239 : TБЯKA :,ISO,6HДB-0'41''' 000240 : CTMБ:,LC,2 000241 : PERMIR:,SUBP, 000242 : FWCR:,LOG,.ФЛAГ OП.KAH. 000243 : C200*:,EQU,*TLCONST+11B 000244 : B48/43:,EQU,*TLCONST+22B 000245 : B48/13:,EQU,*CB+4 000246 : B41/1 :,LOG,37 7777 7777 7777 000247 : B39/25:,OCT,0007 7777 000248 : B37/31:,OCT,0001 77 000249 : B36/31:,EQU,*CB+3 000250 : B30/16:,LC ,1 000251 : B30*12*5:,LOG,40 0000 4020 000252 : B29/26:,OCT,0000 0036 000253 : B24/14:,LOG,7776 0000 000254 : B24/13:,EQU,MASK12+2 000255 : B24/1 :,LC ,1 000256 : B22*18:,LOG,1040 0000 000257 : B21/19:,LOG,700 0000 000258 : B21/18:,LOG,740 0000 000259 : B21*18:,LOG,440 0000 000260 : B20/19:,LOG,300 0000 000261 : B19*12:,LOG,100 4000 000262 : B16/1 :,LC ,1 000263 : B11/10:,LOG,3000 000264 : C1 :,EQU,BIT1 000265 : C2 :,EQU,BIT2 000266 : C3 :,LC ,1 000267 : C6 :,EQU,*C 000268 : C7 :,LC ,1 000269 : C13 :,LC ,1 000270 : C17 :,EQU,*CB+1 000271 : C37 :,LC ,1 000272 : C77 :,LC ,1 000273 : C377 :,LC ,1 000274 : C1400 :,LC ,1 000275 : C2003 :,LC ,1 000276 : C3777 :,LC ,1 000277 : C7777 :,LC ,1 000278 : C77774:,LOG,77774 000279 : ZBIT13:,OCT,7777 7777 7776 7777 000280 : ZBIT12:,OCT,7777 7777 7777 3777 000281 : ZBIT1:,EQU,*TLCONST+20B 000282 : ZB7*6:,OCT,7777 7777 7777 7637 000283 : ZB37*23:,OCT,7776 7777 5777 7777 000284 : Z21*18*1:,OCT,7777 7777 7337 7776 000285 : ZC7 :,OCT,7777 7777 7777 7770 000286 : BY1/2 :,GOST,6H770000 000287 : BY1/5 :,GOST,6H777770 000288 : BY5/6 :,GOST,6H000077 000289 : Z12 :,ISO ,6H00'''''''' 000290 : Z12Ш :,ISO ,6H00-Ш00 000291 : ,BSS,.MERDE 000292 : C 000293 : C<<<< KOHCTAHTЫ БЛOKA OБMEHA C MЛ >>>>> 000294 : C 000295 : KPYГ :,LOG,11 000296 : C/ПEP :,OCT,0000 06 000297 : KYCMAC:,OCT,7777 7777 7477 1600 000298 : MASK5017:,LOG,114 000299 : TKYC17 :,GOST,6H000'20''40''101' 000300 : CW0C :,OCT,2245 1252 5122 4512 000301 : CW36C :,OCT,0007 0707 000302 : CW4C :,OCT,7163 4760 3471 6347 000303 : LWC :,OCT,6666 6666 6666 6666 000304 : MASWL :,OCT,7777 7777 5777 7660 000305 : MAST1MT:,OCT,7777 0000 7777 3037 000306 : MAST2MT:,OCT,1577 7777 7777 7777 000307 : TNZON :,ISO,6H/0000/ 000308 : ,BSS,.MERDE 000309 : C 000310 : C<<< PAБ. ЯЧEЙKИ БЛOKA OБMEHA C MЛ >>>> 000311 : C 000312 : CH :,BSS,1 000313 : IDMT :,BSS,1 000314 : KYCДB :,BSS,1 000315 : NZON :,BSS,1 000316 : DENS :,BSS,1 000317 : PEFL :,BSS,1 000318 : CHSUMR :,BSS,1 000319 : TИПOШ :,BSS,1 000320 : OFFKYC :,BSS,1 000321 : CЧETП :,BSS,1 000322 : ПPOBMФ :,EQU,TRAMASK 000323 : EXCHFL :,EQU,KYCДB 000324 : C 000325 : C<<<<< ЭKB-CTИ БЛOKA OБMEHA C MЛ >>>>>> 000326 : C 000327 : *1:,BLOCK,OШ/ЧT,OШ/ЗП,OШ/CC,KO/ЗП 000328 : ,CONT ,KC/MЛ,CБ/CИ,KДB/MФ 000329 : TPDI:,EQU,6 000330 : BITDI:,EQU,BIT8 000331 : C 000332 : C<<<<< PEГИCTPЫ БЛOKA OБMEHA C MЛ >>>>> 000333 : C 000334 : *1 :,BLOCK,(1),NF,MF,ER 000335 : *6 :,BLOCK,(1),RF,( 2 ) ,DC 000336 : *11:,BLOCK,CW ,N ,I 000337 : C 000338 : C<<<<<<<<< >>>>>>>>> 000339 : C 000340 : B12/11 : ,LOG, 00000000 00006000 000341 : BITNAM:,LOG,400 0020 000342 : BITMOV:,LOG,400 0040 000343 : RBITSM:,OCT,1474 0000 004 000344 : MDRADM:,LOG,37 0037 000345 : KDRADM:,LOG,30 0000 0000 1777 000346 : DIDM:,OCT,7700 0000 0077 3740 000347 : SCR*D:,OCT,5750 000348 : SCR*P:,OCT,37 37 77 000349 : KUNITM:,LOG,70 0000 0000 1600 000350 : MS/70:,OCT,4000 0003 0000 03 000351 : MS/KYC:,LOG,100 6003 000352 : MMNTPL:,OCT,0007 7007 7 000353 : KPMASK:,LOG,1 4037 0000 000354 : PПMASK:,LOG,420 0000 0037 000355 : TMPMASK:,LOG, 1 0400 0037 000356 : ,LOG, 2 1000 1740 000357 : ,LOG, 4 2007 6000 000358 : ,LOG,10 4370 0000 000359 : BC1700:,ENTRY, 000360 : BC1700:,BSS,1.CBOБOДHA ! 000361 : ,LOG,10. 000362 : ,LOG,20. 000363 : ,LOG,30. 000364 : ,LOG,40. 000365 : ,LOG,50. 000366 : ,LOG,60. 000367 : TSCRFI:,BSS,7.PAБ. ПOЛE ЗAД. OБMEHA 000368 : KYC39:,BSS,1 000369 : KYC40:,BSS,1 000370 : COMPUT16:LC,BLOCK,NH,N8,BN8 000371 : PRTMTCH:,OCT,754 000372 : NOCHECK:,TEXT,8HNO CHECK 000373 : ДHЗПOДK:,LOG,24. 000374 : CON1:,LOG,37 373. 000375 : CON6:,LOG,7777 7776 3740 7777 000376 : CON7:,LOG,7776 0001 4037 1774. 000377 : C 000378 : STATUSMT:LC,BLOCK,(1),OLD(4),NEW(4) 000379 : ,CONT,W05741(4) 000380 : ,CONT,SOST,(1),ДBECA(4),SCANER 000381 : ,CONT,ШKEC(4),SCMT57(4) 000382 : ,CONT,ШHГ(4) 000383 : ,CONT,MISTERX 000384 : C 000385 : BY4/5:,GOST,6H000770 000386 : KAДMБ:,ISO,6H00000. 000387 : KШИ:,ISO,6H'1''1'Ш00'' 000388 : UPM 1:,GOST,6H373730 000389 : B25*16:,LOG,1 001 00000 000390 : C/MГЗ:,EQU,BIT36 000391 : COUNT:,BSS,4 000392 : SAVI11:,BSS,. 000393 : ,BSS,1 000394 : Ш ЧYMЛ:,BSS,1 000395 : R1:,BSS,1 000396 : ЖДYKOHTP:,BSS,1 000397 : ЗAHKOHTP:,BSS,1 000398 : OFFESC:,BSS,1. 000399 : QUEONLY:,BSS,1.ФЛAГ BXOДA OT SWING 000400 : C 000401 : DISPBASE:LC,BLOCK,(2),*DR2122(2) 000402 : ,CONT,DISPMD(2) 000403 : ,CONT,DSHIFT 000404 : C 000405 : YЧET:,ISO,12HYЧET ЗAKPЫT'0' 000406 : BITWP:,EQU,BIT30 000407 : BITPAG:,EQU,BIT19 000408 : BITRD:,EQU,BIT18 000409 : BDSEC:,EQU,BIT7 000410 : C50:,EQU,BC1700+5 000411 : NRB:,EQU,7 000412 : NRBS:,EQU,48-NRB 000413 : TSCRFI:I,BLOCK,SECT(0),WLSUM.DTASKON 000414 : ,CONT,KSJN(0),FSUM.S48TO12 000415 : ,CONT,DISAD(0),RSUM.S48TO12 000416 : ,CONT,IDENT(0),RRR.PRIPTRA 000417 : ,CONT,DID 000418 : ,CONT,KPAGE(0),MPAGE.OPENPAG 000419 : ,CONT,RBITS(0),WS 000420 : C 000421 : C 000422 : *1 :,BLOCK,U ,CT,NR,MV,R 000423 : *6 :,BLOCK,PD,TP,JN,E ,F 000424 : *6 :,BLOCK,RO,RG(2),RT 000425 : *11:,BLOCK,P ,W ,J ,M ,S 000426 : *11:,BLOCK,L(2) ,IF,B ,RD 000427 : *14:,BLOCK, C 000428 : C 000429 : C 000430 : C****** BXOД B ЗAДAЧY OT ЭK70 000431 : C 000432 : C ------------------------------ 000433 : C PAЗPЯДЫ I W 7 0 ДЛЯ MБ : 000434 : C ------------------------------ 000435 : C 1-5 - HOMEP TPAKTA 000436 : C 7-8 - HOMEP CEKTOPA 000437 : C ( ПPИ '1' B 36-M PAЗPЯДE IW70 000438 : C HOMEP CEKTOPA ЗAДAETCЯ B 1-2 P. 000439 : C A HOMEP TPAKTA - B 3-7 P. ) 000440 : C 13-17 - HOMEP MБ 000441 : C 25-26 - HOMEP AБЗAЦA 000442 : C 31-35 - HOMEP ЛИCTA 000443 : C 39 - ФИЗИЧECKИЙ OБMEH 000444 : C 40 - ЧTEHИE 000445 : C 48 - CEKTOPHЫЙ OБMEH 000446 : C 000447 : C 000448 : C ------------------------------ 000449 : C PAЗPЯДЫ I W 7 0 ДЛЯ MЛ : 000450 : C ------------------------------ 000451 : C 1-12 - HOMEP ЗOHЫ 000452 : C 13-18 - HOMEP MЛ 000453 : C 31-35 - HOMEP ЛИCTA 000454 : C 39 - ФИЗ. OБMEH 000455 : C 40 - ЧTEHИE 000456 : C 41 - ПOДBOД 000457 : C 42 - ЧTEHИE ИMEHИ 000458 : C 43 - PAЗMETKA MЛ EC B PEЖ. EC 000459 : C 44 - PAЗMETKA MЛ EC B PEЖ. БЭCM-6 000460 : C 46 - ПPИЗHAK MOДEЛИ ФИЗ. MЛ 000461 : C (B ЭTOM CЛYЧAE HOMEP MЛ - 000462 : C - БAPAБAHHЫЙ ) 000463 : C ------------------------------ 000464 : C ------------------------------ 000465 : C 000466 : C 000467 : C PAЗPЯДЫ KYC-A OБMEHA C MБ : 000468 : C---------------------------------- 000469 : C 000470 : C 1-2 - HOMEP CEKTOPA 000471 : C 3-7 - HOMEP TPAKTA 000472 : C 8-10 - HOMEP MБ 000473 : C 11-12 - HOMEP AБЗAЦA 000474 : C 13-17 - HOMEP ЛИCTA 000475 : C 18 - ЧTEHИE 000476 : C 19 - ЛИCTOBOЙ OБMEH 000477 : C 21 - ЧTEHИE CЛ.CЛOB 000478 : C 24-25 - HOMEP CEГMEHTA MOЗY 000479 : C 27 - БЫЛA TT-ПEЧATЬ ДИAГHOCTИKИ 000480 : C 38 - ЗAKAЗ OT TRAPHY 000481 : C 39 - ФИЗ.OБMEH OT Э70 000482 : C 40-42 - HOMEP HAПPABЛEHИЯ 000483 : C 43-48 - Д H З 000484 : C---------------------------------- 000485 : C 000486 : C 000487 : C PAЗPЯДЫ KYC-A OБMEHA C MЛ : 000488 : C---------------------------------- 000489 : C 000490 : C 1 - ПPИЗHAK HAЧAЛЬHOЙ OPИEHTAЦИИ 000491 : C 2 - БЫЛO ЧTEHИE CЛ.CЛOB 000492 : C (COCTOЯHИE 1 И 2 PAЗPЯДOB 000493 : C BCEГДA Д.Б. OДИHAKOBЫM ) 000494 : C 3 - ЛEHTA CTOИT ПЛOXO 000495 : C (B ПPOMEЖYTKE MEЖДY ЗOHAMИ) 000496 : C 4 - HET CMOTKИ HA HAЧAЛO 000497 : C 5 - ЧTEHИE ИMEHИ 000498 : C 6 - ПOДBOД 000499 : C 7 - БЫЛA ДИAГHOCTИKA HA TT 000500 : C 8-10 - HOMEP MФ 000501 : C 11 - ЗAKAЗ ГOTOB K BЫБPOCY 000502 : C 12 - PAБOTAEM C ДYБЛEM ЗOHЫ 000503 : C (ДЛЯ PAЗMETKИ MЛ EC) 000504 : C 13-17 - HOMEP ЛИCTA 000505 : C 18 - ЧTEHИE 000506 : C 19-20 - ДЛЯ PAЗMETKИ MЛ EC 000507 : C ('1'-ЗAПИCЬ MГЗ, '2'-ШЗH 000508 : C '3'-ЗAПИCЬ ЗOHЫ, '0'-HOPM.OБMEH) 000509 : C 21 - ЧTEHИE CЛ.CЛOB 000510 : C 22 - БЛOKИP.ЧTEHИЯ CЛOB C OШИБKAMИ 000511 : C 23 - ЧTEHИE C HAЛOЖEHИEM 000512 : C 24-25 - HOMEP CEГMEHTA MOЗY 000513 : C 26-36 - HOMEP ЗOHЫ 000514 : C 37 - ПOBTOPHЫЙ OБMEH 000515 : C 38 - ЗAKAЗ OT TRAPHY 000516 : C 39 - ФИЗ.OБMEH OT Э70 000517 : C 40-42 - HOMEP HAПPABЛEHИЯ 000518 : C 43-48 - Д H З 000519 : C 000520 : C---------------------------------- 000521 : C 000522 : C BXOД OT 70 ЭKCTPAKOДA 000523 : C 000524 : C---------------------------------- 000525 : MACSTART:,BSS, 000526 : ,XTA, 000527 : ,ATX,KYC 000528 : ,ATX,KPAGE.ДЛЯ ЧT.ИM. 000529 : ,XTA,BIT48 000530 : ,ATX,SECT 000531 : ,XTA,CWJFOTRA 000532 : ,AAX,B48/43 000533 : ,ATX,KSJN. Д H З 000534 : ,ASN,64+42.ЗAKAЗЧИKA 000535 : ,ATI,JN 000536 : C.. XAPAKTEPHЫE БИTЫ I W 7 0 000537 : C.. PACTAЩИM B ИHДEKC-PEГИCTPЫ : 000538 : C CT - ФИЗ.ПAKET (CLOSE TASK) 000539 : C NR - ЧTEHИE ИMEHИ 000540 : C MV - ПOДBOД 000541 : C RD - ЧTEHИE 000542 : C PD - ФИЗ.OБMEH 000543 : C TP - MЛ 000544 : C================================= 000545 : ,XTA,IW70 000546 : ,ARX,BIT16 000547 : ,APX,RBITSM 000548 : ,ASN,64+NRBS 000549 : ,ATX,RBITS 000550 : M,VTM,1-NRB 000551 : SETREG:,BSS, 000552 : ,XTA,RBITS 000553 : M,AAX,BIT1 000554 : M,ATI,NRB 000555 : M,VLM,SETREG 000556 : U,J+M,TP 000557 : R,MTJ,RD 000558 : ,XTA,IW70 000559 : ,ASN,64+12 000560 : ,AAX,C77 000561 : ,ATI,U.HOMEP YCTP-BA 000562 : ,XTA,IW70 000563 : ,AAX,C7777 000564 : ,ATX,DISAD.HOMEP ЗOHЫ 000565 : R,VTM,PDIMAC 000566 : TP,V1M,TAMAC 000567 : R,VJM,CLOPM70 000568 : ,XTA,IW70 000569 : ,APX,MDRADM. 37 0037 000570 : ,ATX,KYC 000571 : PD,V1M,PDRMAC 000572 : C 000573 : C... OБMEH C MAT.MБ 000574 : C 000575 : ,ASN,64+38 000576 : ,AEX,KSJN 000577 : ,ATX,DRIDENT 000578 : RG,CALL,GIVTRACK 000579 : ,ATX,KYC.ФИЗ.AДPEC 000580 : M,V1M,MSETSEC 000581 : RD,VZM,MSETSEC 000582 : C 000583 : C... ПEPBOE OБPAЩEHИE - ПO ЧTEHИЮ 000584 : C OБHYЛЯEM CEKTOP ИЛИ ЛИCT 000585 : C ЗAMEHИM ЧTEHИE HA ЗAПИCЬ. 000586 : C 000587 : RD,VTM,-1777B 000588 : ,XTA,KPAGE 000589 : R,VJM,PRIPTRA 000590 : ,XTA,IW70 000591 : ,ARX, 000592 : ,U1A,SETZ 000593 : RD,VTM,-377B 000594 : ,AEX,BIT48 000595 : ,ATX,IW70 000596 : ,ASN,64+16 000597 : ,AAX,C1400 000598 : ,ATI,M 000599 : SETZ:,BSS, 000600 : :,24,2 000601 : ,XTA, 000602 : M,ATX,70000B 000603 : M,UTM,1 000604 : :,24,3 000605 : RD,VLM,SETZ 000606 : MSETSEC:,BSS, 000607 : ,XTA,IW70 000608 : R,VTM,CHMODRU 000609 : SETSECT:,BSS, 000610 : ,ARX, 000611 : R,U1A, 000612 : ,AEX,BIT48 000613 : ,APX,MS/70 000614 : ,ATX,SECT 000615 : R,UJ, 000616 : C 000617 : C---------------------- 000618 : C 000619 : TRASWI:,ENTRY, 000620 : C 000621 : C*** BXOД OT ПOДKAЧKИ ПO И10. 000622 : C B IW70 - ПPOДYKЦИЯ GIVTRACK-A 000623 : C И.P. 4 - ФИЗ.HOMEP ЛИCTA. 000624 : C 000625 : ,XTA,IW70 000626 : ,ATX,KYC 000627 : ,ASN,64+17 000628 : ,AAX,BIT1 000629 : ,ATI,RD 000630 : ,XTA,BIT48 000631 : ,ATX,SECT 000632 : PD,VTM, 000633 : CT,VTM, 000634 : ,ITA,10 000635 : ,ATX,QUEONLY.BOЗBPAT 000636 : ,XTA,CWJFOTRA 000637 : ,AAX,B48/43 000638 : ,ATX,KSJN. Д H З 000639 : ,ITA,4 000640 : ,ASN,64-41 000641 : ,AUX,KPMASK 000642 : ,ATX,KPAGE.ФИЗ.ЛИCT 000643 : 4,XTA,TPHYS 000644 : ,APX,MMNTPL 000645 : ,ASN,64+36 000646 : ,ATI,P.MAT.ЛИCT 000647 : R,VJM,CLOPSWI 000648 : C 000649 : C... ПPOБA: "TPAKT MБ" BЫДEЛEH 000650 : C B SCRATCH - OБЛACTИ 000651 : C 000652 : CHMODRU:,BSS, 000653 : ,XTA,KYC 000654 : ,ARX, 000655 : ,U1A,PHDRUM .-HET 000656 : ,ASN,64+2 000657 : ,ATX,DISAD.HOMEP "TPAKTA" 000658 : ,XTA,KYC 000659 : ,APX,KUNITM 000660 : ,ASN,64+42 000661 : ,ATI,B.HOMEP ЭKCTEHTA 000662 : W,VTM,-LTS 000663 : ,UJ ,SASEAR 000664 : C 000665 : C... OБMEH C ФИЗИЧECKИM MБ 000666 : C 000667 : PDRMAC:,BSS, 000668 : ,XTA,IW70 000669 : R,VJM,SETSECT 000670 : C... ПPOБA ПEPEAДPECAЦИИ MБ-MД 000671 : R,VJM,CHMODSY 000672 : C... ПPOБA ПOДMEHЫ MБ 21-22 HA MБ 000673 : U,UTM,-21B 000674 : ,ITA,U 000675 : ,ASN,64+1 000676 : ,U1A,NOSUBS 000677 : ,XTA,IW70 000678 : ,AAX,C37 000679 : U,AOX,*DR2122 000680 : ,APX,MDRADM 000681 : ,ATX,KYC 000682 : NOSUBS:,BSS, 000683 : ,XTA,KYC 000684 : ,AUX,KDRADM 000685 : ,ATX,KYC 000686 : C 000687 : C... ПOCTAHOBKA MБ-OБMEHA B OЧEPEДЬ 000688 : C 000689 : PHDRUM:,BSS, 000690 : ,XTA,SECT 000691 : ,AUX,MS/KYC 000692 : :RD,VZM,*+1 000693 : ,AOX,B22*18 000694 : ,AOX,KYC 000695 : RT,VJM,DTASKON 000696 : ,XTA,BIT1 000697 : ,ARX,MДMЛMБ.CЧETЧИK 000698 : ,ATX,MДMЛMБ.MБ-OБMEHOB 000699 : L,XTA,BIT48 000700 : C,AOX,SRJC-1 000701 : C,ATX,SRJC-1 000702 : C 000703 : C... ECЛИ MБ-KAHAЛ CBOБOДEH 000704 : C И ЗAKAЗ HE OT ПOДKAЧKИ 000705 : C TO CPAЗY И BЫПOЛHИM. 000706 : C 000707 : ,ACX, 000708 : ,ASN,64+1 000709 : ,AOX,QUEONLY 000710 : RT,VTM,ENDMAC70 000711 : L,UTM,1 000712 : L,MTJ,N 000713 : ,UZA,CONTEXCH 000714 : RT,UJ , 000715 : C 000716 : C... Э070 ЛEHTOЧHOГO TИПA 000717 : C 000718 : TAMAC:,BSS, 000719 : CT,V1M,CLOPM70.ФИЗ.ДИCK 000720 : ,XTA,IW70.ПOДГOTOBKA 000721 : ,AAX,B24/1.ИДEHTИФИKATOPOB 000722 : ,AOX,KSJN.ДЛЯ ПOИCKA 000723 : ,APX,DIDM.ПO TAБЛИЦAM 000724 : ,ATX,IDENT.TIMT,FATA 000725 : ,XTA,RBITS 000726 : ,ASN,64+2 000727 : ,AAX,C7 000728 : ,ATI,RD.R.OR.MV.OR.NR 000729 : ,ASN,64+1 000730 : E,VTM,ЧYЖAЯ MЛ 000731 : ,U1A,CHPHYTA.MV.OR.NR 000732 : R,VTM,CHPHYTA 000733 : PD,V1M,CLOPM70 000734 : IF,XTA,PЛД.CTATYC 000735 : U,AAX,BIT48-30B."C ЗAKPЫTИEM 000736 : ,UZA,CLOPM70.ЗAДAЧИ" 000737 : CT,VTM,1. - ДA 000738 : C 000739 : C... PAЗБOP: ЗAKPЫTЬ ЗAДAЧY 000740 : C ИЛИ TOЛЬKO EE MAT.ЛИCT 000741 : C 000742 : CLOPM70:,BSS, 000743 : ,XTA,IW70 000744 : ,ASN,64+30 000745 : ,AAX,C37 000746 : ,ATI,P.HOMEP ЛИCTA 000747 : IF,UTC, 000748 : P,XTA,TMATH 000749 : ,ASN,64-11 000750 : ,AUX,KPMASK 000751 : ,UZA,BADEXCH 000752 : ,ATX,KPAGE.ФИЗ.ЛИCT 000753 : R,UTC,.ПPOЙДEM 000754 : CT,V1M,.ЧEPEЗ "CLOTA" 000755 : C 000756 : C... ПOДПPOГPAMMA ЗAKPЫTИЯ 000757 : C MAT.ЛИCTA ПO ПPИПИCKE 000758 : C И ЗAЩИTE 000759 : C 000760 : CLOSPAGE:,ENTRY, 000761 : ,XTA,FULWOR.CHИMAEM 000762 : P,AEX,BIT48.ПPИЗHAK 000763 : IF,AAX,ST/EXCH."ПЛOXOЙ 000764 : IF,ATX,ST/EXCH.OБMEH" 000765 : CLOPSWI:,BSS, 000766 : ,ITA,P 000767 : ,ASN,64+5 000768 : R,U1A,.ФOPM.ЛИCT 000769 : ,ITA,P 000770 : ,ASN,64+3 000771 : ,AEX,C3 000772 : ,ATI,W 000773 : ,ITA,P 000774 : ,AAX,C7 000775 : ,AEX,C7 000776 : IF,J+M,W 000777 : ,ATI,B 000778 : B,XTA,BIT28 000779 : W,AOX,TЗAЩ 000780 : W,ATX,TЗAЩ 000781 : ,ITA,P 000782 : ,ASN,64+2 000783 : ,AEX,C7 000784 : ,ATI,W 000785 : ,ITA,P 000786 : ,AAX,C3 000787 : IF,J+M,W 000788 : ,ATI,B 000789 : B,XTA,TMPMASK 000790 : ,AEX,FULWOR 000791 : W,AAX,TПPИП 000792 : W,ATX,TПPИП 000793 : R,UJ, 000794 : C 000795 : C... OПPEДEЛEHИE TИПA YCTPOЙCTBA 000796 : C (MAT., ФИЗ., ЛEHTA, ФAЙЛ) 000797 : C 000798 : CHPHYTA:,BSS, 000799 : PD,V1M,PTAMAC.ФИЗ.HOMEP 000800 : F,VTM,LTF+1 000801 : IF,XTA,MЛД 000802 : U,AAX,BIT48-30B 000803 : ,U1A,FIMAC.ФAЙЛ 000804 : W,VTM,-57B 000805 : C 000806 : C... ПOИCK ЛOГИЧECKOГO ИДEHTИФИKATOPA 000807 : C ( ДHЗ + MAT.HOMEP ) B T1MT 000808 : C 000809 : MTSEAR:,BSS, 000810 : W,XTA,T1MT+37B 000811 : ,AEX,IDENT 000812 : ,AAX,MASK12 000813 : ,UZA,CHWPTA.ECTЬ ЛEHTA 000814 : W,VLM,MTSEAR 000815 : ,UJ ,FIMAC.A BДPYГ ФAЙЛ? 000816 : PTAMAC:,BSS, 000817 : ,XTA,ШФЛД 000818 : U,AAX,BIT48-10B 000819 : ,U1A,MODTAP 000820 : TP,UTM,-100B.OШ.HOMEP 000821 : TP,VZM,ERTREQ.MOДEЛИ 000822 : ,UJ ,PHTAPE 000823 : C 000824 : C... ПPOБA: PAЗPEШEHA ЛИ 000825 : C ЗAПИCЬ HA ЛEHTY 000826 : C 000827 : CHWPTA:,BSS, 000828 : W,UTM,67B 000829 : E,VTM,ЗAПPET ЗП 000830 : RD,V1M,CHMODTA 000831 : ,XTA,ЗAKЗAП 000832 : W,AAX,BIT48-10B 000833 : ,UZA,ERTREQ 000834 : CHMODTA:,BSS, 000835 : W,MTJ,U 000836 : ,XTA,ШФЛД 000837 : U,AAX,BIT48-10B 000838 : ,U1A,MODTAP.ЛEHTA-MOДEЛЬ 000839 : C 000840 : C... ФOPMИPOBAHИE KYC-A ДЛЯ ЛEHTЫ 000841 : C 000842 : PHTAPE:,BSS, 000843 : U,XTA,T1MT-30B 000844 : ,ASN,64+12 000845 : ,ARX,DISAD. + ДEЛЬTA 000846 : ,ARX,BIT3. + 4 000847 : ,AAX,C3777.YДBOEHИE 000848 : ,ASN,64-25.HOMEPA ЗOHЫ 000849 : ,ATX,KYC 000850 : ,ITA,U 000851 : ,ASN,64-42 000852 : ,AUX,KUNITM 000853 : ,AOX,KSJN 000854 : ,AOX,KYC 000855 : R,VTM, 000856 : NR,J+M,CT 000857 : :MV,VZM,*+1 000858 : R,VTM,BITMOV 000859 : :NR,VZM,*+1 000860 : R,VTM,BITNAM 000861 : R,AOX, 000862 : R,V1M,TCLOTA 000863 : ,ATX,KYC 000864 : ,XTA,IW70.БИTЫ 44-43 000865 : ,ASN,64-4. - PAЗMETKA 000866 : ,AUX,B19*12.MЛ EC 000867 : :,UZA,*+1 000868 : ,AOX,BIT11 000869 : ,AOX,KPAGE 000870 : ,AOX,KYC 000871 : C 000872 : C... ПPOБA: HE ЗAKPЫTЬ ЛИ ЗAДAЧY 000873 : C 000874 : TCLOTA:,BSS, 000875 : :CT,VZM,*+1 000876 : CT,VJM,CLOTA.ЗAKPЫTЬ 000877 : :PD,VZM,*+1 000878 : ,AOX,BIT39 000879 : CHRDTA:,BSS, 000880 : :RD,VZM,*+1 000881 : ,AOX,B22*18 000882 : ,ATX,KYC 000883 : ,XTA, 000884 : RD,V1M,TTASKON 000885 : C 000886 : C... ПOЛYЧEHИE KOHTPOЛЬHOЙ CYMMЫ 000887 : C ПPИ ЗAПИCИ ЗOHЫ HA ЛEHTY 000888 : C 000889 : J,VTM,-1777B 000890 : ,XTA,KYC 000891 : R,VJM,PRIPTRA 000892 : :,24,2 000893 : ,XTA, 000894 : LSTAPE:,BSS, 000895 : J,ARX,71777B 000896 : J,VLM,LSTAPE 000897 : TTASKON:,BSS, 000898 : :,24,3 000899 : RT,VJM,TASKON.B OЧEPEДЬ 000900 : EPHTAP:,BSS, 000901 : ,XTA,BIT25 000902 : ,ARX,MДMЛMБ.CЧETЧИK 000903 : ,ATX,MДMЛMБ.MЛ-OБMEHOB 000904 : L,XTA,BIT48 000905 : U,AOX,SJMT-30B 000906 : U,ATX,SJMT-30B 000907 : C 000908 : C... ПOCTAHOBKA PAБOTЫ ПO ЛEHTE 000909 : C B ШKAЛY PAБOT ЗAДAЧИ OБMEHA 000910 : C 000911 : :,24,2003B 000912 : ,XTA,TRABUS 000913 : C,AAX,BIT44-3 000914 : ,U1A,ENDMAC70.YЖE ECTЬ 000915 : ,XTA,BIT40 000916 : C,AOX,BIT44-3 000917 : ,AEX,TRABUS 000918 : ,ATX,TRABUS 000919 : C,XTA,BIT36-3 000920 : ,CALL,CLOMIR 000921 : :,24,3 000922 : ,UJ ,ПPOДPAБ 000923 : C 000924 : C... OБMEH C ФИЗИЧECKИM ДИCKOM 000925 : C 000926 : PDIMAC:,BSS, 000927 : ,XTA,IW70 000928 : ,ASN,64-30 000929 : ,AUX,KUNITM 000930 : ,ATX,DID 000931 : ,XTA,IW70 000932 : ,ASN,64+24.K O П 000933 : ,AOX,BIT5 000934 : ,AAX,C77 000935 : PHDISC:,BSS, 000936 : ,AOX,DID 000937 : ,ATX,KYC 000938 : ,XTA,DISAD 000939 : ,ARX,BIT4 000940 : ,AAX,C7777 000941 : ,ASN,64-25."ЗOHA" 000942 : ,AOX,KYC 000943 : ,AOX,BITPAG 000944 : :CT,VZM,*+1 000945 : CT,VJM,CLOTA 000946 : :RD,VZM,*+1 000947 : ,AOX,BITRD 000948 : ,ATX,KYC 000949 : ,XTA,SECT 000950 : ,AEX,BIT48 000951 : ,UZA,DPAGEX 000952 : ,AEX,BIT48 000953 : ,ASN,64+24 000954 : ,AOX,BDSEC 000955 : DPAGEX:,BSS, 000956 : ,AOX,KYC 000957 : RT,VTM,DAFSET 000958 : DTASKON:,BSS, 000959 : ,AOX,KSJN 000960 : ,AOX,KPAGE 000961 : :PD,VZM,*+1 000962 : ,AOX,BIT39 000963 : :,ATX,KYC 000964 : ,APX,KPMASK 000965 : ,ASN,64+41.БИT 6 B TPHYS - 000966 : ,ATI,L. - ПPИЗHAK, ЧTO 000967 : ,XTA,BIT6.ЛИCT ЗAHЯT B OБMEHE 000968 : L,AOX,TPHYS.C MБ ИЛИ MД. 000969 : L,ATX,TPHYS 000970 : ,XTA, 000971 : RD,V1M,TASKON 000972 : C 000973 : C... KOHTPOЛЬHOE CYMMИPOBAHИE ДЛЯ MД/MБ 000974 : C 000975 : L,VTM,1-4 000976 : ,XTA,KYC 000977 : R,VJM,PRIPTRA 000978 : M,VTM, 000979 : ,XTA,SECT 000980 : ,ARX, 000981 : ,UZA,LSPAG 000982 : ,ASN,64+37 000983 : ,AAX,C1400 000984 : ,ATI,M 000985 : L,VTM, 000986 : ,XTA, 000987 : LSPAG:,BSS, 000988 : ,ASN,64-12 000989 : ,ATX,WLSUM 000990 : ,XTA, 000991 : :,24,2 000992 : J,VTM,-377B 000993 : LSSEC:,BSS, 000994 : M,ARX,70000B 000995 : M,UTM,1 000996 : J,VLM,LSSEC 000997 : :,24,3 000998 : J,VJM,S48TO12 000999 : ,AOX,WLSUM 001000 : L,VLM,LSPAG 001001 : TASKON:,ENTRY, 001002 : TASKON:,BSS, 001003 : ,WTC,TRACNT 001004 : L,VTM, 001005 : L,ATX,WL2 001006 : ,ITA,L 001007 : ,ARX,C1 001008 : ,ATX,TRACNT 001009 : ,XTA,KYC 001010 : L,ATX,WL1 001011 : ,ASN,64+39 001012 : ,AAX,C7 001013 : ,ATI,C 001014 : ,XTA, 001015 : ,ATX,KYC 001016 : ,XTA,QUEONLY 001017 : RT,UZA, 001018 : L,XTA,BIT48 001019 : ,AOX,SCSWING 001020 : ,ATX,SCSWING 001021 : ,XTA, 001022 : RT,UJ, 001023 : C 001024 : C... ПOИCK ЛOГИЧECKOГO ИДEHTИФИKATOPA 001025 : C B TAБЛИЦE ФAЙЛOB 001026 : C 001027 : FIMAC:,BSS, 001028 : F,UTM,-1 001029 : F,VZM,ERTREQ.HE HAШЛИ 001030 : F,XTA,FATA-1 001031 : ,AEX,IDENT 001032 : ,AAX,MASK12 001033 : ,U1A,FIMAC 001034 : C 001035 : C... ФAЙЛ HAЙДEH 001036 : C ЧTEHИE ИMEHИ - BЫДAДИM 0 001037 : C ПOДBOД - ПPOИГHOPИPYEM 001038 : C 001039 : NR,V1M,SETACC 001040 : MV,V1M,ENDMAC70 001041 : U,XTA,BIT48-30B.ЧTOБЫ HE 001042 : IF,AOX,MЛД.ИCKATЬ B T1MT 001043 : IF,ATX,MЛД.B ДPYГOЙ PAЗ 001044 : ,XTA,DISTIME 001045 : IF,A+X,BISTIME 001046 : IF,ATX,BISTIME 001047 : F,XTA,FATA-1 001048 : ,AAX,B36/31 001049 : E,VTM,ЗAKPAБMД 001050 : ,UZA,TDISEAR.SCRATCH-ФAЙЛ 001051 : C 001052 : C... ИЗBЛEЧEHИE HOMEPA MOДYЛЯ 001053 : C ИЗ TAБЛИЦЫ ФAЙЛOB 001054 : C 001055 : CHESCR:,BSS, 001056 : F,XTA,FATA-1 001057 : ,ASN,64-12 001058 : ,AUX,KUNITM 001059 : ,UZA,BADEXCH 001060 : ,ATX,DID 001061 : RD,V1M,CHDISAD 001062 : E,VTM,ЗAПPET ЗП 001063 : F,XTA,FATA-1 001064 : ,AAX,BITWP 001065 : ,UZA,ERTREQ 001066 : C 001067 : C... KOHTPOЛЬ BЫXOДA ЗA ГPAHИЦY ФAЙЛA 001068 : C 001069 : CHDISAD:,BSS, 001070 : F,XTA,FATA-1 001071 : ,ASN,64+12 001072 : ,AAX,C7777 001073 : ,ARX,DISAD 001074 : ,ATX,DISAD 001075 : F,XTA,FATA-1 001076 : ,AAX,C7777 001077 : ,NTR,3 001078 : ,A-X,DISAD 001079 : E,VTM,ЧYЖ TPEK 001080 : ,U1A,ERTREQ 001081 : F,XTA,FATA-1 001082 : ,ASN,64-20 001083 : ,AUX,C50 001084 : ,UJ ,PHDISC 001085 : C 001086 : C... OБMEH CO SCRATCH-ФAЙЛOM 001087 : C 001088 : C ПOИCK B TAБЛИЦE ЭKCTEHTOB 001089 : C 001090 : TDISEAR:,BSS, 001091 : ,XTA,IDENT.YЖИMAHИE 001092 : ,ARX,SCR*D.ДHЗ И MN 001093 : ,APX,SCR*P.ДO 5 БИT 001094 : ,ATX,IDENT 001095 : ,ASN,64+16 001096 : ,AOX,IDENT 001097 : ,ASN,64+16.YTPOEHИE 001098 : ,AOX,IDENT.ИДEHTИФИKATOPA 001099 : TDS1:,BSS, 001100 : W,VTM,-LTD 001101 : ,ATX,DID 001102 : SEW:,BSS,.ПO CЛOBAM 001103 : W,AEX,TDIS+LTD 001104 : B,VTM,1-3 001105 : SEB:,BSS,.ПO ЭKCTEHTAM 001106 : ,ASN,64-16 001107 : ,ATX,WS 001108 : ,YTA, 001109 : ,UZA,GLOBYTE.HAШЛИ 001110 : ,XTA,WS 001111 : B,VLM,SEB 001112 : ,XTA,DID 001113 : W,VLM,SEW 001114 : C... ECЛИ HET CBOБOДHOГO MECTA 001115 : C B TAБЛ.ЭKCTEHTOB - БYДEM 001116 : C BЫШИБATЬ ЮЗEPA !!! 001117 : F,XTA,FATA-1.SCRATCH 001118 : ,AAX,C3777.ЮЗEPA 001119 : ,UZA,ERTREQ.ИCЧEPПAH 001120 : F,XTA,FATA-1 001121 : ,ARX,C3777.YMEHЬШAEM 001122 : ,AEX,BIT12.ЛИMИT 001123 : F,ATX,FATA-1 001124 : ,XTA,.И BOЗЬMEM 001125 : ,UJ,TDS1.CBOБ.ЭKCTEHT 001126 : C 001127 : C... ЗAXBAT ЭЛEMEHTA 001128 : C B TAБЛИЦE ЭKCTEHTOB 001129 : C 001130 : GLOBYTE:,BSS, 001131 : ,ITA,B 001132 : ,ASN,64-4 001133 : ,ATI,R 001134 : ,XTA,IDENT 001135 : R,ASN,64+32 001136 : W,AOX,TDIS+LTD 001137 : W,ATX,TDIS+LTD 001138 : B,UTM,LTD*3+2 001139 : W,J+M,B 001140 : W,J+M,B 001141 : W,J+M,B 001142 : W,VTM,-LTS 001143 : C 001144 : C... ПOИCK ЗAXBAЧEHHOГO ЭKCTEHTA 001145 : C B TAБЛИЦE SCRATCH-OБЛACTEЙ 001146 : C 001147 : SASEAR:,BSS, 001148 : B,MTJ,R 001149 : W,WTC,TSF+LTS 001150 : B,UTM,1 001151 : ,ITA,B 001152 : ,AAX,BIT15 001153 : ,U1A,SETFAD 001154 : W,VLM,SASEAR 001155 : ,UJ ,BADEXCH 001156 : SETFAD:,BSS, 001157 : ,ITA,R 001158 : ,ASN,64-5 001159 : ,ATX,DID 001160 : W,XTA,TSF+LTS 001161 : ,ASN,64+15 001162 : ,UJ ,MODSYS 001163 : C 001164 : C... ПEPEAДPECAЦИЯ ФИЗ.БAPAБAHOB 001165 : C 16,17,21,22 HA ДИCK 001166 : C 001167 : CHMODSY:,BSS, 001168 : U,XTA,BIT48-10B 001169 : ,APX,DISPMD 001170 : ,UZA,CHMODSY1 001171 : ,AAX,BIT48 001172 : :,U1A,*+1.1-Й MБ (16) 001173 : ,XTA,DSHIFT.2-Й MБ (17) 001174 : :,AAX,C7777 001175 : ,ARX,DISPMD 001176 : E,VTM,DISPMD - SYSMD 001177 : ,UJ,MAKDID 001178 : CHMODSY1:,XTA,Ш/ДИCП 001179 : JN,AAX,BITS 001180 : R,U1A, 001181 : U,XTA,BIT48-10B 001182 : IF,APX,SYSMD 001183 : R,UZA, 001184 : ,ANX,B24/1 001185 : ,ASN,64-5 001186 : IF,ARX,SYSMD 001187 : IF,MTJ,E 001188 : MAKDID:,BSS, 001189 : ,AAX,C7777 001190 : ,ATX,DID 001191 : E,XTA,SYSMD 001192 : ,ASN,64+12 001193 : MODSYS:,BSS, 001194 : ,ATI,F 001195 : ,XTA,DISAD 001196 : ,AAX,C37 001197 : ,ARX,DID 001198 : ,ATX,DISAD 001199 : ,UJ ,CHESCR 001200 : C 001201 : C... ЗAKAЗ AДPECOBAH K MOДEЛИ MЛ 001202 : C 001203 : MODTAP:,BSS, 001204 : NR,V1M,MODNAM 001205 : MV,V1M,ENDMAC70 001206 : MODTEX:,BSS, 001207 : U,XTA,T1MT-30B 001208 : ,ASN,64+12. + ДEЛЬTA 001209 : ,ARX,DISAD 001210 : ,AAX,C7777 001211 : ,ATX,DISAD 001212 : U,XTA,T2MT-30B.ИHДEKC ПO 001213 : ,ATI,F.TAБЛИЦE ФAЙЛOB 001214 : ,UJ ,CHESCR 001215 : MODNAM:,BSS, 001216 : U,XTA,TANAMEMT-30B 001217 : SETACC:,BSS, 001218 : IF,ATX, 001219 : ,UJ ,ENDMAC70 001220 : C 001221 : C 001222 : C... ДИCПETЧEPCKИЙ BXOД 001223 : C B ЗAДAЧY OБMEHA 001224 : C И14 - BOЗBPAT 001225 : C И13 - AДPEC KYC-A 001226 : C PEЗYЛЬTAT - B SAVAC 001227 : C 001228 : TRAPHY:,ENTRY, 001229 : TRAPHY:,BSS, 001230 : :,24,2003B 001231 : ,RTE,177B 001232 : ,ATX,SAVSR 001233 : ,ITA,S 001234 : S,VTM,SAVI15 001235 : ,ITS,M 001236 : ,ITS,J 001237 : ,XTS,DISREG 001238 : ,ATI,27B 001239 : ,XTA,TRACNT 001240 : ,ARX,MTRACNT 001241 : ,UZA,FULQUE 001242 : ,XTA,ГYC 001243 : ,AAX,B48/43 001244 : J,AOX, 001245 : ,ATX,KYC39.ДOБABKA ДHЗ 001246 : ,XTA,TRABUS 001247 : ,UZA,FRETRA 001248 : ,AOX,BIT39 001249 : ,UJ ,SETBUS 001250 : FRETRA:,BSS, 001251 : ,XTA,KYC39 001252 : ,ATX,KYC40 001253 : ,XTA,BITTRA 001254 : ,AOX,RDSCAL 001255 : ,ATX,RDSCAL 001256 : ,XTA,DISREG 001257 : ,ATX,IFTRA+S27 001258 : ,XTA,ADREQ40 001259 : ,ATX,IFTRA+S33."ФИЗOБM1" 001260 : ,XTA,BIT40 001261 : SETBUS:,BSS, 001262 : ,ATX,TRABUS 001263 : ,UJ ,ETRAPH 001264 : C 001265 : C...ЗAKPЫTИE KЛИEHTA, ECЛИ OЧEPEДЬ ПOЛHA 001266 : C 001267 : FULQUE:,BSS, 001268 : M,VTM,TRAPHY 001269 : ,XTA,BITJ 001270 : ,AOX,FULQUESC 001271 : ,ATX,FULQUESC 001272 : ETRAPH:,BSS, 001273 : M,MTJ,33B 001274 : ,UJ ,CLANEWTA 001275 : C 001276 : C... PAБOTA TRAM70 OT 39 P. TRABUS 001277 : C (ИЛИ OT 40, ECЛИ БЫЛA CBOБOДHA) 001278 : C 001279 : ФИЗOБM1:,BSS,. OT 39 001280 : ,XTA,KYC39 001281 : ,ATX,KYC40 001282 : ,XTA,TRABUS 001283 : C ПPИ ДOБABЛEHИИ HOBЫX PAБOT 001284 : C CMEHИTЬ AДPEC B CЛEД.KOMAHДE! 001285 : ,AAX,BIT38.!!! 001286 : ,AOX,BIT40.ДЛЯ ПPABИЛЬHOЙ 001287 : ,ATX,TRABUS.PAБOTЫ ENDMACRO 001288 : C 001289 : PHYREQ40:,BSS,. OT 40 001290 : ,XTA,KYC40 001291 : ,AAX,KPMASK 001292 : ,ATX,KPAGE 001293 : ,XTA,KYC40 001294 : ,AAX,B48/43 001295 : ,ATX,KSJN 001296 : ,ASN,64+42 001297 : ,ATI,JN 001298 : JN,WTC,*YCЫ 001299 : IF,VTM, 001300 : PD,VTM, 001301 : ,XTA,BIT48 001302 : ,ATX,SECT 001303 : ,XTA,KYC40 001304 : CT,VJM,CLOTA. + BIT38 = KYC 001305 : ,ASN,64+17 001306 : ,AAX,BIT1 001307 : ,ATI,RD 001308 : ,XTA,KYC 001309 : ,APX,KUNITM 001310 : ,ASN,64+42 001311 : ,ATI,U 001312 : ,ASN,64+3 001313 : ,ATI,C 001314 : ,XTA,KYC 001315 : C,VZM,DIPREQ 001316 : C,UTM,-7 001317 : C,VZM,NSPREQ 001318 : ,AAX,BIT39 001319 : ,U1A,MODPREQ 001320 : ,ITA,C 001321 : ,AAX,BIT3 001322 : ,U1A,TAPREQ 001323 : R,VTM,PHDRUM 001324 : ,XTA,KYC 001325 : ,ASN,64+2 001326 : ,ATX,DISAD 001327 : ,AAX,BITPAG+2 001328 : ,U1A,CHMODSY 001329 : ,XTA,KYC 001330 : ,APX,MS/KYC 001331 : ,ATX,SECT 001332 : ,UJ ,CHMODSY 001333 : TAPREQ:,BSS, 001334 : ,XTA,KYC 001335 : ,UJ ,CHRDTA 001336 : C 001337 : C... "7" B 40-42 P. KYC-A TRAPHY 001338 : C - ЗAKAЗ OT HECTAHДAPTHOГO ДPAЙBEPA. 001339 : C ПPИ ЭTOM B 1-15 P. - AДPEC MACCИBA 001340 : C ИЗ 2 CЛOB : 001341 : C 1 : HACTOЯЩИЙ KYC (ПPИ OБMEHE ЛИCT HE 0) 001342 : C 2 : AДPECA ПPOЦEДYP ПYCKA И KOHЦA 001343 : C AДPECA ПOMEЩAЮTCЯ B WL2. 001344 : C KYC CHAБЖAETCЯ ДHЗ B 48:43 PAЗP., 001345 : C "1" 38 P. И ПOMEЩAETCЯ B WL1. 001346 : C 001347 : NSPREQ:,BSS, 001348 : ,ATI,M 001349 : M,XTA, 001350 : ,AOX,KSJN 001351 : ,AOX,BIT38 001352 : ,ATX,KYC 001353 : ,APX,KUNITM 001354 : ,ASN,64+42 001355 : ,ATI,U 001356 : M,XTA,1 001357 : ,AOX,KSJN 001358 : RT,VJM,TASKON 001359 : L,XTA,BIT48 001360 : ,AOX,БYPЖYЙ 001361 : ,ATX,БYPЖYЙ 001362 : L,XTA,WL1 001363 : ,AAX,KPMASK 001364 : ,UZA,EPHTAP 001365 : L,XTA,BIT48 001366 : C,AOX,SRJC-1 001367 : C,ATX,SRJC-1 001368 : ,UJ ,EPHTAP 001369 : DIPREQ:,BSS, 001370 : ,ASN,64+11 001371 : ,AAX,BIT1 001372 : ,ARX,C3 001373 : ,ASN,64-39 001374 : ,UJ ,DPAGEX 001375 : MODPREQ:,BSS, 001376 : ,XTA,KYC 001377 : ,ASN,64+25 001378 : ,ARX,C77774 001379 : ,ATX,DISAD 001380 : ,UJ ,MODTEX 001381 : C 001382 : C... ЗAKPЫTИE ЗAДAЧИ, ПOДABШEЙ OБMEH. 001383 : C 001384 : CLOTA:,BSS, 001385 : ,AOX,BIT38 001386 : ,ATX,KYC 001387 : :,24,2003B 001388 : JN,XTA,BITS 001389 : ,AEX,FULWOR 001390 : ,AAX,RDSCAL 001391 : ,ATX,RDSCAL 001392 : ,XTA,KYC 001393 : :,24,3 001394 : CT,UJ , 001395 : C 001396 : C... ПPИПИCKA ЛИCTA ИЗ KYC-A OБMEHA 001397 : C K 34 MAT.ЛИCTY ЗAДAЧИ OБMEHA 001398 : C 001399 : PRIPTRA:,ENTRY, 001400 : PRIPTRA:,BSS, 001401 : ,APX,KPMASK 001402 : ,ATX,RRR 001403 : ,UZA,BADEXCH 001404 : ,AUX,TMPMASK 001405 : ,ATX,IFTRA+TПPИП 001406 : ,ATX,SWINGIF+TПPИП 001407 : ,ITA,R 001408 : R,VTM,-8 001409 : :,ATX,1 001410 : R,VLM,* 001411 : ,ATI,R 001412 : ,XTA,RRR 001413 : ,AUX,PПMASK 001414 : ,MOD,27B 001415 : ,ATI, 001416 : R,UJ, 001417 : C 001418 : C... CBEPTKA 48-PAЗPЯДHOЙ KOHTPOЛЬHOЙ 001419 : C CYMMЫ B 12-PAЗPЯДHYЮ 001420 : C 001421 : S48TO12:,ENTRY, 001422 : S48TO12:,BSS, 001423 : ,ATX,FSUM 001424 : ,XTA, 001425 : ,ATX,RSUM 001426 : ,XTA,FSUM 001427 : COMPR:,ASN,64+12 001428 : ,ATX,FSUM 001429 : ,YTA, 001430 : ,ARX,RSUM 001431 : ,ATX,RSUM 001432 : ,XTA,FSUM 001433 : ,U1A,COMPR 001434 : ,XTA,RSUM 001435 : ,ASN,64+36 001436 : ,ARX,RSUM 001437 : ,AAX,C7777 001438 : J,UJ , 001439 : C 001440 : C... БЫЛИ OШИБKИ B ЗAKAЗE HA OБMEH 001441 : C 001442 : ERTREQ:,BSS, 001443 : ,ITA,E 001444 : IF,ATX,I14 001445 : IF,XTA,S33 001446 : IF,ATX,COPYS33 001447 : M,VTM,ERRPRI 001448 : ,ITA,M 001449 : IF,ATX,S33 001450 : ,XTA,DISREG 001451 : IF,ATX,S27 001452 : MV,J+M,NR 001453 : N,VTM,.БEЗ TASKOFF 001454 : ,XTA,KYC 001455 : ,AOX,KPAGE 001456 : IF,ATX,.CYMM.=KYC 001457 : ,ATX,OFFKYC 001458 : ,AAX,BIT38 001459 : ,U1A,OPEN 001460 : ,XTA,IW70.CYMM.=IW70 001461 : IF,ATX, 001462 : NR,V1M,ENDMAC70 001463 : ,UJ ,OPEN 001464 : C 001465 : C 001466 : MSKADRMD:,EQU,KDRADM 001467 : CON14:,EQU,KUNITM 001468 : CBEPKCYM:,EQU,S48TO12 001469 : ПPИПOБME:,EQU,PRIPTRA 001470 : CONTEXCH: ,ENTRY, 001471 : C 001472 : C********* BXOД: BЫПOЛHEHИE ЗAKAЗA, YЖE ПOCTABЛEHHOГO B OЧEPEДЬ 001473 : C 001474 : CONTEXCH:,24,2003B 001475 : 12,XTA,WL2-1 001476 : 14,ATX,CSUM-1 001477 : 12,XTA,WL1-1 001478 : 14,ATX,TBUC-1 001479 : 14,ATX,TBUT-1 001480 : 9,UZA, 001481 : 13,VJM,CHPOP.P-OПEPAЦИЯ 001482 : 9,UTC, 001483 : 15,V1M,.CEMAФOP ЗAKPЫT 001484 : 12,XTA,BITS 001485 : 14,ATX,SBUC-1 001486 : EXCHMБ:,BSS, 001487 : 14,XTA,TBUC-1 001488 : ,AAX,ЧTEHИE 001489 : ,UIA,BЫT 001490 : C.........ФOPMИPOBAHИE CЛYЖEБHЫX CЛOB ДЛЯ ЗAПИCИ HA MБ (TPAKTA) 001491 : C (ЧETHЫE CЛYЖ. CЛOBA - AДPECA CEKTOPOB, HEЧETHЫE - KC) 001492 : 14,XTA,TBUC-1 001493 : ,AAX,C3 001494 : ,ASN,64-1 001495 : 14,ARX,BC1700 001496 : ,ATI,13 001497 : 14,XTA,TBUC-1 001498 : 13,ATX, 001499 : ,AAX,ЛИCTOБM. 001500 : ,UZA,MБЗAП1C. 001501 : 14,XTA,TBUC-1 001502 : ,ARX,BIT1 001503 : 13,ATX,2 001504 : ,ARX,BIT1 001505 : 13,ATX,4 001506 : ,ARX,BIT1 001507 : 13,ATX,6 001508 : 14,XTA,C SUM-1 001509 : WR KS:,ASN,64-12. 001510 : ,ATX,WS 001511 : ,YTA, 001512 : 13,ATX,1 001513 : 13,UTM,2 001514 : ,ITA,13 001515 : ,AAX,C7 001516 : ,UZA,BЫT 001517 : ,XTA,WS 001518 : ,UJ,WR KS 001519 : BЫT:13,VTM,-7 001520 : :,ATX,1. 001521 : 13,VLM,* 001522 : C.........BЫДAЧA KOMAHДЫ OБMEHA C MБ 001523 : ,XTA,BIT3. 001524 : 14,ATX,TMБ-1. 001525 : 14,XTA,TBUC-1 001526 : 14, EXT , . 001527 : , ATI , . 001528 : 14,XTA,BIT47 001529 : 9,MTJ,13 001530 : ,UJ,PERMIR 001531 : MБЗAП1C:,BSS,. 001532 : C.........ФOPMИPOBAHИE CЛYЖEБHЫX CЛOB ДЛЯ ЗAПИCИ HA MБ (CEKTOPA) 001533 : 14,XTA,C SUM-1. 001534 : ,AAX,C7777. 001535 : 13,ATX,1 001536 : ,UJ,BЫT. 001537 : C 001538 : C 001539 : C... KOHEЦ PAБOTЫ ЗAДAЧИ OБMEHA 001540 : C ПO ПPИEMY ЗAKAЗA OT Э070 001541 : C 001542 : ENDMAC70:,ENTRY,. 001543 : ENDMAC70:,BSS, 001544 : :,24,3 001545 : ,XTA,QUEONLY 001546 : ,UZA,NOSWING 001547 : ,ATI,10 001548 : ,XTA, 001549 : ,ATX,QUEONLY 001550 : 10,UJ,.BOЗBPAT B ПOДKAЧKY 001551 : NOSWING:,BSS, 001552 : C KOHEЦ PAБOT ПO ЭK70 ИЛИ KAH.OПOЗ. 001553 : ,XTA,FWCR.БЫЛ OП.KAH.: 001554 : ,U1A,TOTRAINT.ДA 001555 : ,XTA,BIT40 001556 : ,UJ,TO TRAINT 001557 : C 001558 : C... KOHEЦ PAБOTЫ ПO ЛEHTOЧHOMY KAHAЛY 001559 : C 001560 : ALLEOM:14,XTA,CSUMSTAT-1 001561 : ,AAX,C377 001562 : ,UZA,PUTMASK 001563 : 14,XTA,TYPEMT-3 001564 : ,AAX,BIT35.B ДYБHE 001565 : ,ASN,64+2."MФ 40" = CDC608 001566 : ,U1A,PUTMASK.( B 6 HAПP-И ) 001567 : 14,XTA,BIT39 001568 : PUTMASK:,AOX,TRAMASK 001569 : ,CALL,PERMIR 001570 : 14,XTA,BIT47 001571 : TO TRAINT:,24,2003B 001572 : ,AEX,FULWOR 001573 : ,AAX,TRABUS 001574 : ,ATX,TRABUS 001575 : ,XTA,.ЧИCTKA ПPИЗHAKA 001576 : ,ATX,FWCR.KAHAЛA OПOЗH. 001577 : C 001578 : C 001579 : C... OCHOBHOЙ BXOД B ЗAДAЧY OБMEHA: 001580 : C BЫБOP OЧEPEДHOЙ PAБOTЫ 001581 : C 001582 : TRAINT:,ENTRY,. 001583 : TRAINT:,BSS,. 001584 : : ,24,2003B 001585 : ,XTA,TRABUS 001586 : ,UZA,ENDTRA. HA BЫXOД ИЗ ЗAДAЧИ OБMEHA 001587 : ,AAX,PRTMTCH 001588 : ,U1A,PRT/IS 001589 : ,XTA,TRABUS 001590 : PRT/IS:,BSS, 001591 : ,ANX, 001592 : ,ATI,14 001593 : 14,UJ,SW/TRA -1 001594 : C 001595 : C******** 001596 : SW/TRA:,BSS, 001597 : :,UJ,END DRUM 001598 : :,UJ,END DRUM 001599 : :,UJ,DISC 001600 : :,UJ,DISC 001601 : :14,UTM,-2 001602 : ,UJ,END TAPE 001603 : :14,UTM,-2 001604 : ,UJ,END TAPE 001605 : :14,UTM,-2 001606 : ,UJ,END TAPE 001607 : :14,UTM,-2 001608 : ,UJ,END TAPE 001609 : :,UJ,ФИЗOБM1.ПO P.40 001610 : :,UJ,ФИЗOБM1.ПO P.39 001611 : :,XTA,BIT38.KAHAЛ 001612 : ,ATX,FWCR.OПOЗHABAHИЯ 001613 : : ,24,3 001614 : ,UJ,RECMDT 001615 : C 001616 : C... CAMOЗAKPЫTИE TRAM70 001617 : C ПPИ OTCYTCTBИИ PAБOT 001618 : C 001619 : ENDTRA : , BSS , . 001620 : , XTA , RDSCAL . 001621 : ,AOX,OFFESC. 001622 : ,AAX,ZBITJ 001623 : , ATX , RDSCAL . 001624 : , XTA , . 001625 : ,ATX,OFFESC. 001626 : , XTA , C7 . 001627 : ,ATX,IFTRA+S27 001628 : , UJ , SELECT . 001629 : C 001630 : C***** OБPAБOTKA KOHЦA OБMEHA C MБ 001631 : C 001632 : END DRUM:,24,3 001633 : C HE ПPOПYCK ЛИ ЭTO B KPИT.ИHT. 001634 : 14,XTA,SBUC-1 001635 : ,UZA,NEWDRTA.ДA 001636 : C..... ЭTO OKOHЧAHИE OБMEHA 001637 : C..... БЫЛИ ЛИ AППAPATHЫE OШИБKИ 001638 : 14,XTA,TBUC-1 001639 : ,ASN,64+11. O Ш M ИЛИ 001640 : ,AAX,B25*16.KOH.OБM. 001641 : ,U1A,OШM/KO. - ДA 001642 : 14,XTA,TBUC-1 001643 : , AAX , ЧTEHИE . 001644 : ,UZA,XOБMБ. 001645 : 14,XTA,TBUC-1 001646 : 5,VJM,ПPИПOБME. 001647 : C.........YCTAHOBKA PEAKЦИИ HA ПPEPЫBAHИE: KOHTPOЛЬ ЧИCЛA 001648 : 10,VTM,ПOBTOБM1.C YЧETOM OШM 001649 : ,ITA,10. 001650 : , ATX ,W04265 . 001651 : C......... 001652 : 14, XTA , T B U T -1 . 001653 : , AAX , ЛИCTOБM . 001654 : ,U1A,БЫЛИЧT1. 001655 : 14, XTA , T B U T -1 . 001656 : , AAX , B12/11 . 001657 : , ASN ,64+2 . 001658 : ,ATI,11.OTH.AДREC HAЧAЛA CEKTOPA 001659 : 14, XTA , T B U T -1 . 001660 : , AAX , C3 . 001661 : , ASN ,64-1 . 001662 : 14,ARX,BC1700. 001663 : , ATI , 10 . 001664 : C--------- KOHTPOЛЬ - 'TO ЛИ MЫ ПPOЧИTAЛИ' 001665 : 12,VTM,0 001666 : 14,XTA,CSUM-1 001667 : ,ASN,64-36 001668 : ,ATX,R1 001669 : ,UJ,L04361 001670 : ПPOBAДP:,BSS,. 001671 : C...... KOHTPOЛЬ ПYTAHИЦЫ CEKTOPOB 001672 : ,ATX,ЖEAД. 001673 : ,XTA,C2003.БЛOKИP. 001674 : ,ATI,21B.OCTAH. ПO KЧ 001675 : ,XTA,ЖEAД. 001676 : 10,AEX,. 001677 : ,AAX,MSKADRMD. 001678 : 5,UZA,.AДPECA-O'KEY 001679 : ,XTA,CHEKMDFL.AДPEC.KOHTPOЛЬ 001680 : 5,UIA,.- БЛOKИPOBAH 001681 : ,XTA,BIT40. 001682 : 14,ARX,CTMБ-1.ПYTAHИЦY CEKT. 001683 : 14,ATX,CTMБ-1.B CTATИCTИKY 001684 : ,XTA,C13. 001685 : ,ATI,21B.OCTAH. ПO KЧ 001686 : 14,XTA,TBUT-1. 001687 : ,AAX,BIT27. OШ.MБ. 001688 : ,UIA,KPAHTЫ. - ПOBTOPHO 001689 : ,XTA,ЖEAД. 001690 : C.........ПOДГOTOBKA TT-TEKCTA И BЫДAЧA HA TT 'OШ. MБ...' 001691 : 11,VJM ,KOД MБ. 001692 : ,ISO,6HOШ.MБ: 001693 : ,XTA,ШИФP. 001694 : ,ATX,ПOAД+1. 001695 : 10,XTA, 001696 : 11,VJM,AДP MБ. 001697 : ,ATX,ПOAД 001698 : 14,MTJ,11 001699 : :,24,2003B 001700 : 14,VTM,TOШMБ 001701 : ,ITA,14. 001702 : 14,VJM,TTPRINT. 001703 : 11,MTJ,14. 001704 : ,UJ,ПOБ2. 001705 : KPAHTЫ:,BSS,. 001706 : C 001707 : C..... ДBYKPATHAЯ ПYTAHИЦA CEKTOPOB 001708 : C (BЫБPOC ЗAДAЧИ) 001709 : C 001710 : 11,VJM,ДAЙДHЗ 001711 : ,ATI,11. 001712 : 11,V1M,HEПOДK1. 001713 : C.........COBCEM ПЛOXAЯ CИTYAЦИЯ C MБ 001714 : : ,24,2003B. 001715 : 14,VTM,TMБCДOX. 001716 : ,ITA,14. 001717 : 14,VJM,TTPRINT.TT-ПEЧATЬ- 'MБ CДOX' 001718 : : ,24,3. 001719 : ,UJ,*. ЦИKЛ C OTKP. ПPEP. 001720 : C 001721 : C..... ПOДПPOГPAMMЫ ПOДГOTOBKИ COOБЩEHИЙ 001722 : C 001723 : KOД MБ:,BSS, 001724 : ,ATX,ЖEAД 001725 : 11,XTA, 001726 : ,ATX,TOШMБ 001727 : ,ITA,11 001728 : ,ATX,SAVI11 001729 : 11,VJM,ДAЙ ДHЗ. 001730 : ,UZA,ПOДKAЧ 001731 : 13,XTA,*YCЫ 001732 : ,ASN,64-27 001733 : ,AUX,BY4/5 001734 : ПOДKAЧ:,AOX,KШИ 001735 : ,ATX,ШИФP 001736 : ,XTA,ЖEAД 001737 : 11,VJM,AДP MБ 001738 : ,ATX,ЖEAД 001739 : 14,XTA,TBUT-1 001740 : ,AOX,BIT27 001741 : 14,ATX,TBUT-1 001742 : ,WTC,SAVI11 001743 : ,UJ,1 001744 : AДP MБ:,BSS, 001745 : ,APX,MSKADRMD 001746 : ,AUX,UPM1 001747 : ,AOX,K AДMБ. 001748 : 11,UJ, 001749 : ДAЙДHЗ:,BSS,. 001750 : 14,XTA,TBUT-1. 001751 : ,AAX,BIT38. 001752 : ,UZA,NONPHY. 001753 : 14,XTA,TBUT-1. 001754 : ,ASN,64+42. 001755 : ,ATI,13. 001756 : ,AEX,ДHЗПOДK. 001757 : 11,UZA,.BOЗBPAT(ЗAKAЗ OT ПOДKAЧKИ) 001758 : BДД:,ITA,13. 001759 : 11,U1A, 001760 : ,XTA,EXCHJOB+1 001761 : ,ATI,13 001762 : 11,UJ,. 001763 : NONPHY:14,XTA,TBUT-1. 001764 : ,APX,KPMASK. 001765 : ,ASN,64+41. 001766 : ,ATI,13. 001767 : 13,XTA,TPHYS. 001768 : NPH1:,ASN,64+27. 001769 : ,AAX,C77. 001770 : ,ATI,13. 001771 : ,AEX,ДHЗПOДK. 001772 : ,U1A,BДД. 001773 : ,XTA,EXCHJOB. 001774 : ,UJ,NPH1. 001775 : C..... 001776 : OБPKOШMA:,BSS,. 001777 : C--------- БЛOK, PAБOTAЮЩИЙ OT ИMEHИ BЫБPACЫBAEMOЙ ЗAДAЧИ 001778 : 14,VTM,AOШM 001779 : ,UJ,OШMAШИHЫ 001780 : C--------- 001781 : L04357:,XTA,DISREG 001782 : , ATI , 21B . 001783 : 14, XTA , T B U C -1 . 001784 : , AAX ,BIT39 . 001785 : ,AAX,CHEKMDFL. 001786 : , U1A , XOЧTMБ1 . 001787 : ,XTA,BIT1. 001788 : 14,ARX,CTMБ-1. KC MБ 001789 : 14,ATX,CTMБ-1.B CTATИCTИKY 001790 : 14,XTA,TBUT-1 001791 : ,AAX,BIT27. 001792 : ,U1A,*8ПOBT. 001793 : 14,XTA,TBUT-1 001794 : 11,VJM,KOД MБ 001795 : ,ISO,6HKC MБ: 001796 : 14,MTJ,11 001797 : 14,XTA,TBUT-1 001798 : ,AAX,ЧTEHИE 001799 : ,U1A,HE ЗПMБ 001800 : ,XTA,T ЗПMБ. 001801 : ,ATX,TOШMБ 001802 : HE ЗПMБ:,XTA,A*TOШMБ 001803 : 14,VJM,TTPRINT. 001804 : 11,MTJ,14. 001805 : ,XTA,CHEKMDFL+1 001806 : ,UZA,ПOBTOБMБ 001807 : ,UJ,XOЧTMБ1. 001808 : БЫЛИЧT1:,BSS,. 001809 : C--------- ПPOBEPKA ПPOЧTEHHOГO TPAKTA 001810 : 12,VTM,-3. 001811 : 14,WTC,BC1700. 001812 : 10,VTM,. 001813 : 11,VTM,0.C HUЛEBOГO CEKTOPA 001814 : 14,XTA,CSUM-1 001815 : ,ATX,R1 001816 : L04361:,BSS,. 001817 : C.........KOHTPOЛЬHOИ CYMMИPOBAHИE OДHOГO CEKTOPA 001818 : 10,MTJ,9. 001819 : 4,VTM,-7. 001820 : 5,VJM,CYMMИP. 001821 : 9,MTJ,10. 001822 : 13,VJM,CBEPKCYM. 001823 : ,ATX,RRR. 001824 : C...... HE БЫЛO ЛИ ПYTAHИЦЫ CEKTOPOB 001825 : ,ITA,10. 001826 : ,ASN,64+1. 001827 : ,AAX,C3. 001828 : 14,AOX,TBUT-1. 001829 : 5,VJM,ПPOBAДP.ЗA KOHTPOЛEM 001830 : C...... COBПAЛA ЛИ KOHTP. CYMMA 001831 : ,XTA,RRR. 001832 : 10,AEX,1. 001833 : ,UIA,L04357. - HET 001834 : 14,XTA,TBUT-1 001835 : ,AAX,ЧTEHИE 001836 : ,U1A,L04362 001837 : ,XTA,R1 001838 : ,ASN,64-12 001839 : ,ATX,R1 001840 : ,YTA, 001841 : ,AEX,RRR 001842 : ,UZA,L04362 001843 : 14,XTA,TBUT-1 001844 : ,APX,MSKADRMD 001845 : ,AUX,CON1 001846 : ,ASN,64+3 001847 : ,AEX,TPAKTCT.TPAKT CTATИCTИKИ MOЖET БЫTЬ ЗAKPЫT 001848 : ,U1A,L04357 001849 : 12,V1M,L04362 001850 : 14,MTJ,11 001851 : 14,VTM,YЧET 001852 : ,ITA,14 001853 : 14,VJM,TTPRINT 001854 : 11,MTJ,14 001855 : L04362:,BSS, 001856 : ,XTA,C13. 001857 : ,ATI,21B.OCTAH. ПO KЧ 001858 : 10,UTM,2. 001859 : 12,VLM,L04361. 001860 : ,UJ,XOБMБ. 001861 : ПOBTOБM1:,XTA,B25*16 001862 : ,ATX,WS 001863 : ,XTA,BIT25 001864 : ,UJ,OШM1 001865 : OШM/KO:,ATX,WS. 001866 : OШM1:,BSS, 001867 : 14,ARX,CTMБ-1. 001868 : 14,ATX,CTMБ-1 001869 : 14,XTA,TBUT-1 001870 : ,AAX,BIT27 001871 : ,U1A,*8ПOBT 001872 : ,XTA,WS 001873 : ,APX,B25*16 001874 : ,ASN,64-2 001875 : ,YTA, 001876 : ,ATI,11 001877 : 11,UTM,-1 001878 : 11,V1M,ЦK MБ 001879 : 14,XTA,TBUC-1 001880 : ,AAX,ЧTEHИE 001881 : ,U1A,ЦK MБ 001882 : 11,VTM,3 001883 : ЦK MБ:11,XTA,TEXER0 001884 : ,UTC,TEX/ER 001885 : ,ATX, 001886 : 14,XTA,TBUT-1 001887 : 11,VJM,KOД MБ 001888 : TEX/ER:,BSS,1 001889 : : ,24,2003B 001890 : 14,MTJ,11 001891 : ,XTA,A*TOШMБ 001892 : 14,VJM,TTPRINT 001893 : :,24,3 001894 : 11,MTJ,14 001895 : ПOBTOБMБ:,BSS,. 001896 : *8ПOBT:,BSS,. 001897 : C.........ЗAKAЗ ПOBTOPEH 8 PAЗ 001898 : 14,XTA,CTMБ-1. 001899 : ,AAX,MOШMБ.HAБPAЛИ OШИБOK 001900 : ,UZA,*8П. - HET 001901 : 5,VTM,*8П. 001902 : TO CTMБ:,BSS, 001903 : 14,XTA,CTMБ-1. 001904 : ,ATX,БYCT+1. 001905 : ,XTA,. 001906 : 14,ATX,CTMБ-1. 001907 : 14,XTA,TBUT-1. 001908 : ,AOX,BIT27.ДЛЯ 001909 : ,AEX,BIT27.ПOBTOPA 001910 : 14,ATX,TBUT-1.ДИAГHOCTИKИ 001911 : ,ATX,БYCT. 001912 : ,ITA,5. 001913 : ,AOX,STD. 001914 : ,UJ,STATIST. 001915 : *8П:,24,2003B 001916 : 11,VJM,ДAЙДHЗ. 001917 : ,ATI,11. 001918 : C.........ПPOBEPKA: ЗAKAЗ OT ПOДKAЧKИ 001919 : ,UZA,ПOБ2.ДA- ПOBT. OБMEHA 001920 : ,XTA,OUTJOBSC. 001921 : 11,AAX,BITS. 001922 : C.........ПPOBEPKA: ЗAДAЧA BЫБPACЫBAETCЯ 001923 : ,UZA,ПOБ2.HET- ПOBT. OБMEHA 001924 : C.........BЫБPOC ЗAДAЧИ, POCПИCЬ ПИCTA И TPAKTA)ПO BOЗMOЖHOЖHOCTИ 001925 : C.........HE ЧTEHИE ЛИ ДИCПETЧEPA 001926 : 14,XTA,TBUC-1. 001927 : ,AEX,DISPBASE. 001928 : ,AAX,CON14. 001929 : ,UZA,ПOБ2.ЧTEHИE ДИCП.MБ 001930 : 14,XTA,TBUC-1 001931 : ,APX,MSKADRMD 001932 : ,AUX,CON1 001933 : ,ASN,64+3 001934 : ,AEX,TPAKTCT 001935 : ,UZA,ПOБ2 001936 : 14,XTA,TBUC-1. 001937 : ,APX,CON14. 001938 : ,ASN,64+42. 001939 : ,ATI,12. 001940 : C.........ПOДГOTOBKA K POCПИCИ И POCПИCЬ ЛИCTA OБMEHA 001941 : 10,VTM,-1023 001942 : 14,XTA,TBUT-1 001943 : 5,VJM,ПPИПOБME 001944 : : ,24,2. 001945 : ,XTA, 001946 : ПOБ1:10,ATX,71777B. 001947 : 10,VLM,ПOБ1. 001948 : : ,24,2003B 001949 : C.........ЗAMEHA ЗAKAЗA(ЧTEHИE) - ЗAKAЗOM(ЗAПИCЬ) 001950 : C ДЛЯ POCПИCИ (ПЛOXOГO) TPAKTA 001951 : 14,XTA,TBUT-1 001952 : ,AAX,ЧTEHИE. 001953 : ,UZA,XOБMБ. 001954 : C.........ПPOBEPKA: MБ ЗAKPЫT HA 1 TP 001955 : ,XTA,1. 001956 : 12,AAX,BIT24. 001957 : ,U1A,XOЧTMБ2.ДA- CЧИTAEM: OБMEH ПPOШEЛ 001958 : 14,XTA,TBUT-1 001959 : ,AAX,CON7. 001960 : ,AOX,ЛИCTOБM. 001961 : 14,ATX,TBUT-1 001962 : 14,ATX,TBUC-1 001963 : C.........HA ЧИCTKY TPAKTA 001964 : ,XTA, 001965 : 14,ATX,CSUM-1 001966 : ПOБ2:,BSS,. 001967 : 14,XTA,TBUC-1 001968 : ,AAX,ЧTEHИE 001969 : ,U1A,ПOБ3 001970 : ,XTA,KOHTPCTP 001971 : ,U1A,KOHTPЗAП 001972 : ПOБ3:,BSS,. 001973 : 14,XTA,TBUC-1 001974 : 14,AEX,TBUT-1 001975 : ,AAX,ЧTEHИE 001976 : ,UZA,ПOБ4 001977 : 14,XTA,TBUT-1 001978 : 14,ATX,TBUC-1 001979 : ,XTA,TRABUS 001980 : ,AOX,ЖДYKOHTP 001981 : ,ATX,TRABUS 001982 : ,XTA, 001983 : ,ATX,ЗAHKOHTP 001984 : ,ATX,ЖДYKOHTP 001985 : ПOБ4:,BSS, 001986 : 9,VTM,L01642 001987 : ,UJ,EXCHMБ 001988 : ЖДEM:14,XTA,BITS 001989 : ,ATX,ЖДYKOHTP 001990 : L01642:,BSS, 001991 : 14,XTA,BITS 001992 : ,UJ,TOTRAINT 001993 : HEПOДK1:,24,2003B. 001994 : 11,XTA,*YCЫ. 001995 : ,ATX,OUTCW. 001996 : 13,VTM,OБPKOШMA. 001997 : ,ITA,13. 001998 : ,CALL,OUTJOB. 001999 : C!!! OUTJOB HE BCEГДA BOЗBPAЩAET 002000 : C B I15 AДPEC ИПЗ 002001 : ,XTA,OUTCW+1 002002 : 15,ATX,COPYS33. 002003 : XOЧTMБ1:,BSS, 002004 : XOЧTMБ2:,BSS, 002005 : XOБMБ:,BSS, 002006 : : ,24,2003B 002007 : ,XTA,KOHTPCTP 002008 : ,UZA,XOБMБ3 002009 : 14,XTA,TBUT-1 002010 : ,AAX,ЧTEHИE 002011 : ,U1A,XOБMБ3 002012 : 14,XTA,TBUC-1 002013 : ,AAX,ЧTEHИE 002014 : ,U1A,XOБMБ2 002015 : KOHTPЗAП:,BSS, 002016 : ,XTA,ЗAHKOHTP 002017 : ,U1A,ЖДEM 002018 : 14,XTA,TBUC-1 002019 : ,AAX,CON6 002020 : ,AOX,KOHTPCTP 002021 : 14,ATX,TBUC-1 002022 : ,ATX,ЗAHKOHTP 002023 : ,UJ,ПOБ4 002024 : XOБMБ2:,BSS, 002025 : ,XTA,TRABUS 002026 : ,AOX,ЖДYKOHTP 002027 : ,ATX,TRABUS 002028 : ,XTA, 002029 : ,ATX,ЗAHKOHTP 002030 : ,ATX,ЖДYKOHTP 002031 : XOБMБ3:,BSS, 002032 : 14,XTA,SBUC-1 002033 : ,ANX, 002034 : ,ATI,12 002035 : 14,XTA,CTMБ-1 002036 : :,UZA,*+1 002037 : 5,VJM,TOCTMБ 002038 : : ,24,3.HA KOHEЦ 002039 : 9,VJM,KOHOБMБ.ЗAKAЗA 002040 : ,XTA, 002041 : 14,ATX,TBUC-1 002042 : 14,ATX,TBUT-1 002043 : 13,VJM,CHVOP.V-OПEPAЦИЯ 002044 : NEWDRTA:,BSS, 002045 : C ... BЫБOPKA HOBOЙ PAБOTЫ HA БAPAБAHE 002046 : 14,XTA,SRJC-1 002047 : ,UZA,L01642 002048 : ,ANX, 002049 : ,ATI,12 002050 : 9,VTM,L01642 002051 : ,UJ,CONT EXCH. 002052 : C 002053 : C 002054 : C... PAБOTA OT 44-41 P. TRABUS : 002055 : C ПPOXOД ЗOHЫ MЛ 002056 : C 002057 : END TAPE:,BSS, 002058 : :,24 ,2003B 002059 : ,MOD,237B. Г P П 002060 : ,AOX,FINZON.+ ПPOГP.ДYБЛЬ 002061 : C,AAX,BIT36-3 002062 : ,UZA,HET ПPEP 002063 : ,AEX,FULWOR 002064 : ,AAX,FINZON.ГACИM 002065 : ,ATX,FINZON.B ДYБЛE 002066 : C,XTA,CSUMSTAT-1 002067 : ,AAX,C377.KTO ДBИГAЛCЯ 002068 : ,UZA,LB3.TOГO И 002069 : ,ATX,ПPOBMФ.OПPOCИM 002070 : C,AAX,ДBECA-3 002071 : ,UZA,CLCПP 002072 : ,ANX,C7 002073 : ,AAX,C7 002074 : ,ATI,I 002075 : ,AEX,C7 002076 : C,ARX,BC1700 002077 : ,ATI,U 002078 : C 002079 : C... ECЛИ ДBИЖETCЯ MЛ EC 002080 : C OПPOCИM EE БEЗ BЫБOPKИ 002081 : C 002082 : ,XTA,B39/25 002083 : R,CALL,LSOSTEC1 002084 : C,XTA,NEW-3 002085 : I,AAX,BIT8 002086 : ,U1A,HET ПPEP 002087 : C,ATX,ДBECA-3 002088 : U,XTA,SJMT-30B 002089 : ,AAX,БYPЖYЙ 002090 : ,UZA,LB3 002091 : ,XTA,SOST.ДЛЯ EC*608 002092 : ,ASN,64+24.ЗДECЬ 002093 : C,ATX,TBUT-1. Ц K C 002094 : C 002095 : C... ECЛИ BCE CTOЯT ИЛИ KOHЧИЛ 002096 : C ДBИЖEHИE MФ EC - OПPOCИM BCEX 002097 : C 002098 : LB3:,BSS, 002099 : ,XTA,C377 002100 : ,ATX,ПPOBMФ 002101 : C 002102 : C... HAЧAЛO ЦИKЛA OПPOCA COCTOЯHИЯ MФ 002103 : C 002104 : CLCПP:,BSS, 002105 : :,24 ,3 002106 : ,XTA,ПPOBMФ 002107 : ,ANX,C7 002108 : ,AAX,C7 002109 : ,ATI,I 002110 : ,AEX,C7 002111 : C,ARX,BC1700 002112 : ,ATI,U 002113 : C,XTA,ШKEC-3 002114 : ,AAX,B39/25 002115 : ,AOX,BIT24 002116 : R,CALL,LSOSTEC 002117 : I,XTA,BIT8 002118 : ,AEX,ПPOBMФ 002119 : ,ATX,ПPOBMФ 002120 : ,U1A,CLCПP 002121 : ,MOD,237B 002122 : C,AAX,BIT36-3 002123 : ,UZA,HET ПPEP 002124 : C 002125 : C... BCEX OПPOCИЛИ, A ПPEPЫBAHИE 002126 : C HE CБPOCИЛOCЬ ! 002127 : C 002128 : ,XTA,BIT11 002129 : :,24 ,3 002130 : ,ARX,CЧETП 002131 : ,AAX,B24/1 002132 : ,ATX,CЧETП 002133 : ,U1A,END TAPE 002134 : ,ITA,C 002135 : C,MTJ,I 002136 : C,VTM,HEYГACИM 002137 : ,ASN,64-16 002138 : ,AOX,TБЯKA 002139 : C,ATX,2 002140 : ,ITA,C 002141 : :,24 ,2003B 002142 : C,CALL,TTPRINT 002143 : I,MTJ,C 002144 : ,UJ ,END TAPE 002145 : C 002146 : C... ПPEPЫBAHИE "ПPOXOД ЗOHЫ" ПOГAШEHO. 002147 : C HAЧИHAEM PAБOTY HA KAHAЛE. 002148 : C 002149 : HET ПPEP:,BSS, 002150 : C,XTA,TYPEMT-3.B ДYБHE 002151 : ,AAX,BIT35. MФ 40 = CDC608 002152 : ,UZA,KOHЦЫ 002153 : ,EXT,4101B.CДB 002154 : ,ASN,64+6.MФ 002155 : ,AAX,BIT1.CDC608 002156 : KOHЦЫ:,24,3 002157 : C,AOX,NEW-3 002158 : C,AOX,ДBECA-3 002159 : ,AAX,C377 002160 : ,AEX,C377 002161 : C,AAX,CSUMSTAT-1 002162 : C,AEX,CSUMSTAT-1 002163 : C,ATX,CSUMSTAT-1 002164 : ,YTA, 002165 : C,AOX,W05741-3.MФ, ГДE 002166 : C,ATX,W05741-3.KOHEЦ ДBИЖEHИЯ 002167 : ,XTA, 002168 : ,ATX,CЧETП 002169 : ,ATX,ПPOBMФ 002170 : C 002171 : C... HACTPOЙKA ПAPAMETPOB KBY-KAHAЛA 002172 : C 002173 : ПPOДPAБ:,BSS, 002174 : ,XTA, 002175 : ,ATX,CH 002176 : R,VTM,*7 002177 : ,UJ,PUT16 002178 : C 002179 : C... ШAГ CKAHEPA ПO KBY-KAHAЛY 002180 : C 002181 : *1:,BSS, 002182 : ,XTA,BIT1 002183 : C,ARX,COUNT-3 002184 : ,AAX,C7 002185 : C,ATX,COUNT-3 002186 : ,XTA,BIT1 002187 : ,ARX,CH 002188 : ,ATX,CH 002189 : ,AEX,KPYГ 002190 : ,UZA,ALLEOM.ПPOШЛИ KPYГ 002191 : C 002192 : C... BЫБPAЛИ OЧEPEДHOЙ MФ 002193 : C 002194 : *7:,BSS, 002195 : C,XTA,ДBECA-3 002196 : ,U1A,ALLEOM.A KAHAЛ ЗAHЯT 002197 : C,XTA,COUNT-3 002198 : ,ATI,I 002199 : ,AEX,C7 002200 : C,ARX,BC1700 002201 : ,ATI,U 002202 : U,XTA,SJMT-30B 002203 : ,UZA,*1.HET PAБOTЫ 002204 : ,ANX, 002205 : ,ATI,N.ИHДEKC ПO WL 002206 : C,XTA,ШHГ-3 002207 : ,ASN,64+8.ЖДEM 002208 : C,AOX,ШHГ-3.ГT/ЗП 002209 : C,AOX,CSUMSTAT-1.ИЛИ YЖE 002210 : I,AAX,BIT8.ДBИЖEMCЯ 002211 : ,U1A,*1 002212 : ,ATX,IDMT 002213 : U,XTA,T2MT-30B 002214 : ,AAX,C/ПEP.ИДET 002215 : ,AEX,C/ПEP.ПEPEMOTKA 002216 : ,UZA,*1 002217 : ,NTR,3 002218 : C,XTA,CHBOSS-3.HA KAHAЛE 002219 : ,UZA,HET MOH.MOHOПOЛИЯ 002220 : ,ASN,64-18. - ПPOПYCKAEM 002221 : N,AEX,WL1-1.TOЛЬKO 002222 : ,AAX,B48/43.EE 002223 : ,UZA,HET MOH.BЛAДEЛЬЦA 002224 : C,XTA,TBUC-1 002225 : ,UZA,*1 002226 : C,XTA,SBUC-1 002227 : N,AEX,BITS 002228 : ,U1A,*1 002229 : HETMOH:,BSS, 002230 : RT,VTM,*1 002231 : N,XTA,WL1-1 002232 : ,ASN,64+42 002233 : ,ATI,JN. Д H З 002234 : JN,MTJ,RF 002235 : RF,UTM,-JNREC.ПP-K OПOЗH. 002236 : N,XTA,WL1-1 002237 : ,AAX,BITПOДB 002238 : ,ATI,MF 002239 : N,XTA,WL1-1 002240 : ,AAX,BITИMЯ 002241 : ,ATI,NF 002242 : N,XTA,WL1-1 002243 : ,AAX,KPMASK 002244 : :,UZA,*+1 002245 : R,VJM,PRIPTRA 002246 : ,XTA,NH 002247 : ,ATI,DC.YBY-KAHAЛ 002248 : DC,XTA,BC1700.AДPECA 002249 : ,ATI,CW.CЛYЖ.CЛOB 002250 : C,XTA,W05741-3 002251 : I,AAX,BIT8 002252 : C,AEX,W05741-3 002253 : C,ATX,W05741-3 002254 : ,YTA,.БЫЛ ПPOXOД 002255 : ER,VTM,24.ЗOHЫ 002256 : R,VTM,KO БЭCM. - ДA 002257 : ,U1A,SWI 002258 : C,XTA,SRJC-1.ECTЬ ГOTOBЫЙ 002259 : N,AAX,BITS.K OБMEHY ЗAKAЗ 002260 : ER,VTM, 002261 : R,VTM,ПOДЗAKMЛ. - HET 002262 : ,UZA,SWI 002263 : R,VTM,BЫПOЛH 002264 : C,XTA,TBUC-1.YBY-KAHAЛ 002265 : ,WTC,N8.CBOБOДEH 002266 : ,AOX,TBUC-1 002267 : ,U1A,*1. - ЗAHЯT 002268 : C 002269 : C... YXOД, ECЛИ HAДO, HA ПPOЦEДYPY 002270 : C OTPAБOTKИ ПO HECTAHД. ЗAKAЗY 002271 : C BOЗBPAT OTTYДA - ПO RT. 002272 : C 002273 : SWI:,BSS, 002274 : ,XTA, 002275 : ,ATX,CH 002276 : ,XTA,БYPЖYЙ 002277 : N,AAX,BITS 002278 : R,UZA, 002279 : N,XTA,WL2-1 002280 : ER,ASN,64 002281 : ,ATI,R 002282 : :ER,V1M,*+1 002283 : RO,VJM,PRT UP 002284 : N,XTA,WL1-1 002285 : R,UJ , 002286 : C 002287 : C... OPГAHИЗAЦИЯ ПPEДBAPИTEЛЬHЫX 002288 : C ПOДBOДOB 002289 : C 002290 : ПOДЗAKMЛ:,BSS, 002291 : R,VTM,C17 002292 : NF,V1M,KORRTAB 002293 : U,XTA,T1MT-30B 002294 : ,AAX,BIT1 002295 : ,UZA,HE ИMЯ 002296 : N,XTA,WL1-1 002297 : ,AAX,BIT38 002298 : R,VTM,C7 002299 : ,U1A,KORRTAB 002300 : R,VTM,C1 002301 : KORRTAB:,BSS, 002302 : R,XTA, 002303 : N,AOX,WL1-1 002304 : N,ATX,WL1-1 002305 : ,XTA,ZBIT1 002306 : U,AAX,T1MT-30B 002307 : U,ATX,T1MT-30B 002308 : U,XTA,T2MT-30B 002309 : ,AAX,B48/13 002310 : ,AOX,C1 002311 : U,ATX,T2MT-30B 002312 : HEИMЯ:,BSS, 002313 : N,XTA,WL1-1 002314 : ,ASN,64+12 002315 : U,AEX,T2MT-30B 002316 : ,AAX,B24/14 002317 : U,AEX,T2MT-30B 002318 : U,ATX,T2MT-30B 002319 : ,ARX,C7777 002320 : ,AAX,C7777 002321 : ,ATX,NZON.CZ-1 002322 : ,AEX,C7777 002323 : R,VTM,ПOДЗAK1 002324 : ,UZA,ПPЯДBИЖ1 002325 : ПPOBPEB:,BSS, 002326 : U,XTA,T2MT-30B 002327 : ,ASN,64+12 002328 : ,AAX,C7777.DZ 002329 : ,X-A,NZON.CZ-DZ-1 002330 : ,U1A,ПPЯДBИЖ1.CZ.LE.DZ 002331 : ,ATX,WS 002332 : I,XTA,PEBEPC 002333 : C,AOX,CSUMSTAT-1 002334 : C,ATX,CSUMSTAT-1 002335 : ,XTA,C2 002336 : ,ARX,NZON 002337 : ,ATX,NZON.CZ+1 002338 : ,A-X,WS.DZ+2 002339 : ,A-X,WS.2*DZ+3-CZ 002340 : ,UZA,SET2MT.CZ.LE.2*DZ+3 002341 : C,XTA,ШKEC-3 002342 : ,UZA,SET2MT 002343 : ,ARX, 002344 : :,U1A,*+1 002345 : ,UTC,BIT9-BIT7 002346 : ,XTA,BIT7 002347 : U,EXT,100B-30B 002348 : ,XTA,C/ПEP 002349 : U,AOX,T2MT-30B 002350 : U,ATX,T2MT-30B 002351 : ,XTA, 002352 : ,ATX,NZON 002353 : ПPЯДBИЖ1:,BSS, 002354 : ,XTA,FULWOR 002355 : I,AEX,PEBEPC 002356 : C,AAX,CSUMSTAT-1 002357 : C,ATX,CSUMSTAT-1 002358 : SET2MT:,BSS, 002359 : U,XTA,T2MT-30B 002360 : ,AAX,B41/1 002361 : ,AAX,B48/13 002362 : ,AOX,NZON 002363 : SETT2:,BSS, 002364 : U,ATX,T2MT-30B 002365 : R,UJ, 002366 : KOPPHЗOH:,XTA,C1 002367 : U,ARX,T2MT-30B 002368 : ,AAX,ZBIT13 002369 : ,UJ,SETT2 002370 : ПOДЗAK1:,BSS, 002371 : NF,V1M,HA BЫП 002372 : ,XTA,REWINDSC 002373 : U,APX,BIT48-30B 002374 : ,ASN,64+44 002375 : N,AOX,WL1-1 002376 : N,ATX,WL1-1 002377 : ,AAX,BIT4 002378 : R,VTM,HA BЫП 002379 : ,U1A,NO REW 002380 : ,XTA,B39/25 002381 : U,AAX,T2MT-30B 002382 : U,ATX,T2MT-30B 002383 : ,XTA,C7 002384 : N,AOX,WL1-1 002385 : N,ATX,WL1-1 002386 : ,UJ,HA BЫП 002387 : NO REW:,BSS, 002388 : N,XTA,WL1-1 002389 : ,AAX,BIT19 002390 : ,U1A,KOPPHЗOH 002391 : N,XTA,WL1-1 002392 : ,AAX,C1 002393 : ,U1A,HA BЫП 002394 : HA ПOДB:,BSS, 002395 : I,XTA,ПOДBOД 002396 : C,AOX,CSUMSTAT-1 002397 : C,ATX,CSUMSTAT-1 002398 : U,XTA,T2MT-30B 002399 : ,AAX,C/ПEP 002400 : ,AEX,C/ПEP 002401 : ,UZA,*7 002402 : C,XTA,ШKEC-3 002403 : I,AAX,BIT24 002404 : ,U1A,OБM5017 002405 : C,XTA,CSUMSTAT-1 002406 : I,AAX,PEBEPC 002407 : :,UZA,*+1 002408 : ,UTC,C7777-C1 002409 : R,VTM, 002410 : R,XTA,C1 002411 : U,ARX,T2MT-30B 002412 : ,AAX,ZBIT13 002413 : U,ATX,T2MT-30B 002414 : ,AAX,C7777 002415 : ,ATX,NZON 002416 : U,XTA,T2MT-30B 002417 : ,ASN,64+12 002418 : ,AAX,C7777 002419 : ,A-X,NZON 002420 : ,ATI,L.DZ-CZ 002421 : L,V1M,NEQNZ 002422 : N,XTA,WL1-1.DZ=CZ 002423 : ,AAX,B21/19 002424 : ,UZA,HA BЫП 002425 : R,V1M,HA ДBИЖ 002426 : MF,V1M,XOPOБM1 002427 : HA ДBИЖ:,BSS, 002428 : MV,VTM,1 002429 : R,VZM,EXCHДBИЖ 002430 : ШЗH:,BSS, 002431 : MV,VTM,3 002432 : ,UJ,EXCHДBИЖ 002433 : NEQNZ:,BSS, 002434 : N,XTA,WL1-1 002435 : ,APX,B21*18 002436 : ,ASN,64+46 002437 : ,ATI,F 002438 : F,V1M,CHEFLA 002439 : ,XTA,B21*18 002440 : N,AOX,WL1-1 002441 : N,ATX,WL1-1 002442 : CHEFLA:,BSS, 002443 : L,UTM,-1 002444 : L,V1M,HA ДBИЖ 002445 : F,UTM,-1.DZ=CZ+1 002446 : F,VZM,HA ДBИЖ.READ 002447 : C 002448 : C... ЗAKAЗ ГOTOB K OБMEHY 002449 : C 002450 : HA BЫП:,BSS, 002451 : ,XTA,FULWOR 002452 : I,AEX,ПOДBOД 002453 : C,AAX,CSUMSTAT-1 002454 : C,ATX,CSUMSTAT-1 002455 : N,XTA,BITS 002456 : C,AOX,SRJC-1 002457 : C,ATX,SRJC-1 002458 : ,UJ,*7 002459 : C 002460 : C... YBY-KAHAЛ ЗAKAЗY BЫДEЛEH 002461 : C 002462 : BЫПOЛH:,BSS, 002463 : ,XTA,REWINDSC 002464 : U,AAX,BIT48-30B 002465 : ,U1A,HE CMOTKA 002466 : C,XTA,ШKEC-3 002467 : I,AAX,BIT8 002468 : ,UZA,ЧT CC 002469 : MЛHAHAЧ:,BSS, 002470 : U,XTA,BIT48-30B 002471 : ,AOX,REWINDSC 002472 : ,ATX,REWINDSC 002473 : ,XTA,ZC7 002474 : N,AAX,WL1-1 002475 : N,ATX,WL1-1 002476 : ,AAX,BIT19 002477 : ,UZA,EXCHMЛ1 002478 : ,UJ,ЗAПMГЗ 002479 : HECMOTKA:,BSS, 002480 : N,XTA,WL1-1 002481 : ,AAX,C3 002482 : ,U1A,BЫПOЛH/ 002483 : N,XTA,WL1-1 002484 : ,AAX,B20/19 002485 : ,UZA,BЫПOЛH/ 002486 : ,AEX,B20/19 002487 : ,UZA,EXCHMЛ1 002488 : ,AEX,BIT19 002489 : ,UZA,ШЗH 002490 : ЗAПMГЗ:,BSS, 002491 : MV,VTM,20B 002492 : ,UJ,EXCHДBИЖ 002493 : C 002494 : C... ЗAXBAT YBY-KAHAЛA 002495 : C 002496 : BЫПOЛH/:,BSS, 002497 : U,XTA,T1MT-30B.KOHTPOЛЬ 002498 : ,AAX,CREADIS.ЗAПИCИ BKЛЮЧEH 002499 : ,UZA,BЫПOЛH//.-HET 002500 : R,VJM,POP.ЗAXBAT ЛИCTA 002501 : P,VIM,ALLEOM.HE ДAЛИ 002502 : C,WTC,TYPEMT-3 002503 : CW,VTM,.BOCCTAHOBЛEHИE 002504 : N,XTA,WL1-1 002505 : ,AEX,SCDICH 002506 : ,AAX,KPMASK.P-OПEPAЦИЯ 002507 : ,UZA,BЫПOЛH//.YЖE БЫЛA 002508 : C... ЗAMEHA B KYC-E HOMEPA ЛИCTA 002509 : N,XTA,WL1-1 002510 : ,AEX,ЧTEHИE 002511 : C,ATX,TBUT-1.CTAPЫЙ KYC 002512 : ,AEX,SCDICH.HOBЫЙ ЛИCT 002513 : ,AAX,KPMASK 002514 : N,AEX,WL1-1 002515 : N,ATX,WL1-1 002516 : BЫПOЛH//:,BSS, 002517 : N,XTA,BITS 002518 : C,ATX,SBUC-1 002519 : N,XTA,WL1-1 002520 : C,ATX,TBUC-1 002521 : R,VJM,ДYБ 002522 : U,XTA,T2MT-30B 002523 : ,AAX,C7777 002524 : ,U1A,EXCHMЛ1 002525 : N,XTA,WL1-1 002526 : ,AAX,B20/19 002527 : ,UZA,ЧTCC 002528 : N,AEX,WL1-1 002529 : ,AOX,BIT19 002530 : ,AAX,ZBIT12 002531 : N,ATX,WL1-1 002532 : ЧTCC:,BSS, 002533 : ,XTA,BIT3 002534 : N,AEX,WL1-1 002535 : ,AOX,BIT2 002536 : N,ATX,WL1-1 002537 : EXCHCЛCЛ:,BSS, 002538 : N,XTA,WL1-1 002539 : ,AAX,B21*18 002540 : ,U1A,EXC2 002541 : ,XTA,REWINDSC 002542 : U,AAX,BIT48-30B 002543 : ,UZA,EXC2 002544 : ,XTA,B21*18 002545 : N,AOX,WL1-1 002546 : N,ATX,WL1-1 002547 : EXC2:,BSS, 002548 : N,XTA,BITS 002549 : C,ATX,SBUC-1 002550 : N,XTA,WL1-1 002551 : C,ATX,TBUC-1 002552 : ,XTA, 002553 : CW,ATX,3 002554 : CW,ATX,6 002555 : R,VJM,ДYБ 002556 : R,VTM,B21*18 002557 : N,XTA,WL1-1 002558 : ,AAX,BIT4 002559 : ,ASN,64+2 002560 : ,AEX,C3 002561 : ,ATI,MV 002562 : ЗAПYCKMЛ:,BSS, 002563 : RT,VTM,*7 002564 : RO,VTM,-8 002565 : :,ATX,1 002566 : RO,VLM,* 002567 : C,XTA,TBUC-1 002568 : R,AOX, 002569 : ,AAX,KYCMAC 002570 : ,AOX,BN8 002571 : DC,EXT, 002572 : ,XTA,FULWOR 002573 : :,24 ,2003B 002574 : DC,AEX,BIT29-3 002575 : ,ATI, 002576 : ,MOD,37B 002577 : ,ATI, 002578 : RO,VJM,PRT UP 002579 : :,24 ,3 002580 : ,UTC,BIT14 002581 : EXCHДBИЖ:,BSS, 002582 : ,XTA, 002583 : ,ATX,EXCHFL 002584 : ,XTA,FIX DENS.BЫCOK.ПЛOTH. 002585 : ,U1A,SET DENS.ФИKCИPOBAHA 002586 : U,XTA,T1MT-30B 002587 : ,AAX,B11/10 002588 : SET DENS:,ATX,DENS 002589 : RF,V1M,NO DENS 002590 : NF,VZM,NO DENS 002591 : U,XTA,T1MT-30B.BAPЬИPYEM 002592 : ,AAX,BIT26.ПЛOTHOCTЬ 002593 : ,ASN,64+15.ПPИ 002594 : ,AOX,DENS.OПOЗHABAHИИ 002595 : ,ATX,DENS 002596 : NO DENS:,BSS, 002597 : C,ARX,ШKEC-3 002598 : ,U1A,MTEC5012 002599 : ,XTA,DENS 002600 : ,ASN,64-1 002601 : ,ATX,DENS 002602 : ,ITA,MV 002603 : ,ATX,WS 002604 : ,AAX,BIT2 002605 : ,ASN,64+1 002606 : ,AEX,B16/1 002607 : ,AAX,WS 002608 : ,ASN,64-2 002609 : ,ATI,MV 002610 : ,APX,MASK5017 002611 : ,ANX, 002612 : ,ASN,64-3 002613 : ,ATI,R 002614 : ,XTA,EXCHFL 002615 : ,U1A,MTEC5012 002616 : C,XTA,ШKEC-3 002617 : ,AAX,BIT47 002618 : ,UZA,MTEC5012 002619 : ,XTA,TKYC17 002620 : R,ASN,64-8 002621 : ,AAX,C377 002622 : ,ATI,MV 002623 : MTEC5012:,BSS, 002624 : ,ITA,MV 002625 : ,AOX,DENS 002626 : :,24,2003B 002627 : ,AOX,EXCHFL 002628 : U,EXT,100B-30B 002629 : ,ASN, 002630 : ,ASN, 002631 : R,CALL,LSOSTEC1 002632 : C,XTA,NEW-3 002633 : I,AAX,BIT16 002634 : ,U1A,NO READY 002635 : I,XTA,BIT8 002636 : C,AOX,CSUMSTAT-1 002637 : C,ATX,CSUMSTAT-1 002638 : I,XTA,BIT8 002639 : C,AAX,ШKEC-3 002640 : C,ATX,ДBECA-3 002641 : ,XTA,MAXTIMET.YCT.TAЙMEPA 002642 : C,ATX,MTTIMCNT-3 002643 : C,XTA,BIT36-3 002644 : ,AOX,TRAMASK 002645 : ,ATX,TRAMASK 002646 : :,24,3 002647 : RT,UJ, 002648 : C 002649 : C... ЗAXBAT YBY-KAHAЛA 002650 : C 002651 : EXCHMЛ1:,BSS, 002652 : N,XTA,BITS 002653 : C,ATX,SBUC-1 002654 : N,XTA,WL1-1 002655 : C,ATX,TBUC-1 002656 : ,AAX,ЧTEHИE 002657 : ,U1A,EXЧTMЛ1 002658 : C 002659 : C... ФOPMИPOBAHИE CЛYЖEБHЫX CЛOB 002660 : C ЗAПИCЫBAEMOЙ ЗOHЫ 002661 : C 002662 : :,24 ,2 002663 : ,XTA,71777B 002664 : :,24 ,3 002665 : CW,ATX,5.ПOCЛ.CЛOBO 002666 : ,XTA,CW0C 002667 : CW,ATX,.CПEЦKOД 002668 : U,XTA,TANAMEMT-30B 002669 : CW,ATX,1.ИMЯ 002670 : CW,ATX,2.ЛEHTЫ 002671 : ,XTA,LWC 002672 : :,24 ,2 002673 : ,ATX,71777B 002674 : :,24 ,3 002675 : U,XTA,T2MT-30B 002676 : ,AAX,B24/1 002677 : ,AOX,CW36C 002678 : CW,ATX,3.HOMEP 002679 : CW,ATX,6.ЗOHЫ 002680 : N,XTA,WL2-1 002681 : CW,ATX,7.KOHTP.CYMMA 002682 : N,XTA,WL1-1 002683 : R,CALL,AUTOR 002684 : CW,ATX,4.KTO ПИCAЛ 002685 : EXЧTMЛ1:,BSS, 002686 : C,XTA,TBUC-1 002687 : ,AAX,BIT37 002688 : :,UZA,*+1 002689 : ,UTC,MAST2MT-B41/1 002690 : ,XTA,B41/1 002691 : U,AAX,T2MT-30B 002692 : U,ATX,T2MT-30B 002693 : EXCHДYБ:,BSS, 002694 : R,VTM, 002695 : MV,VTM,1 002696 : DC,XTA,BIT5-3 002697 : ,EXT,31B 002698 : C,XTA,TBUC-1 002699 : ,AAX,ЧTEHИE 002700 : ,UZA,ЗAПYCKMЛ 002701 : C,XTA,TBUC-1 002702 : ,AAX,CЛYЖCЛOB 002703 : ,U1A,HE ЧT ЗOH 002704 : :,24 ,2 002705 : ,ATX,71777B 002706 : HEЧTЗOH:,BSS, 002707 : :,24 ,3 002708 : ,XTA, 002709 : CW,ATX,3 002710 : CW,ATX,6 002711 : C,XTA,TBUC-1 002712 : ,AAX,HAЛOЖ 002713 : ,UZA,ЗAПYCKMЛ 002714 : U,XTA,T2MT-30B 002715 : ,AAX,BIT43 002716 : ,UZA,ПPOДHAЛ 002717 : U,AEX,T2MT-30B 002718 : U,ATX,T2MT-30B 002719 : ,XTA,HAЛOЖ 002720 : C,AEX,TBUC-1 002721 : C,ATX,TBUC-1 002722 : ,UJ ,ЗAПYCKMЛ 002723 : ПPOДHAЛ:,BSS, 002724 : ,XTA,BIT42 002725 : U,ARX,T2MT-30B 002726 : U,ATX,T2MT-30B 002727 : ,UJ ,ЗAПYCKMЛ 002728 : C 002729 : C... OTPAБOTKA KOHЦA ДBИЖEHИЯ 002730 : C MЛ B PEЖИME БЭCM-6 002731 : C 002732 : KO БЭCM:,BSS, 002733 : ,XTA,OUTJOBSC 002734 : JN,AAX,BITS.HA CHЯTИE 002735 : ,U1A,*OUTJOB.ЗAДAЧИ 002736 : C,XTA,NEW-3 002737 : I,AAX,BIT16 002738 : ,U1A,NO READY.ПPOПAЛA ГT 002739 : N,XTA,WL1-1 002740 : ,AAX,BIT18 002741 : ,U1A,MФ ГOT 002742 : ,XTA,CONTRWR 002743 : U,APX,BIT48-10B 002744 : I,ASN,64+24 002745 : C,AAX,NEW-3 002746 : ,UZA,MФ ГOT 002747 : ,UTC,3.ПPOПAЛA ЗП 002748 : C 002749 : C... OTPAБOTKA HEГOTOBHOCTИ MФ 002750 : C 002751 : NO READY:,BSS, 002752 : R,VTM,3 002753 : C,MTJ,RO 002754 : ,ASN,64+8 002755 : ,ATX,KYCДB 002756 : MF,V1M,XOPOБM1.HA ПOДBOДE 002757 : :,24,3 002758 : RF,V1M,HE OПO 002759 : NF,V1M,CT1 002760 : I,XTA,BIT48 002761 : ,AOX,KYCДB 002762 : ,ATX,KYCДB 002763 : HE OПO:,BSS, 002764 : N,XTA,WL1-1 002765 : ,AAX,BIT7. TT-ПEЧATЬ 002766 : ,U1A,HE ГOTOB.YЖE БЫЛA 002767 : ,XTA,BIT7 002768 : N,AOX,WL1-1 002769 : N,ATX,WL1-1 002770 : ,ITA,U.COOБЩEHИE 002771 : M,VJM,MФ ПЛOX.OПEPATOPY 002772 : RO,MTJ,C 002773 : I,XTA,BIT8 002774 : C,AOX,W05741-3 002775 : C,ATX,W05741-3 002776 : C,XTA,TBUC-1 002777 : ,UZA,*7 002778 : C,XTA,SBUC-1 002779 : N,AEX,BITS 002780 : ,U1A,*7 002781 : C 002782 : C... OCBOБOЖДEHИE YBY-KAHAЛA 002783 : C 002784 : C,ATX,TBUC-1 002785 : C,ATX,SBUC-1 002786 : DC,XTA,BIT5-3 002787 : ,EXT,31B 002788 : N,XTA,BITS 002789 : C,AEX,SRJC-1 002790 : C,ATX,SRJC-1 002791 : CW,MTJ,MF.AДP.CЛ.CЛ. 002792 : R,VJM,VOP.ПOPTИT CW 002793 : R,VTM,8 002794 : ,CALL,YCTBEPCB.OT ГPEXA 002795 : C,WTC,TYPEMT-3 002796 : CW,VTM, 002797 : N,XTA,WL1-1 002798 : ,AAX,B21/18 002799 : RO,VTM,*7 002800 : ,UZA,RES LW 002801 : ,AEX,B20/19 002802 : RO,U1A, 002803 : C 002804 : C... BOCCTAHOBЛEHИE ПOCЛEДHEГO 002805 : C CЛOBA ЛИCTA OБMEHA 002806 : C 002807 : RES LW:,BSS, 002808 : CW,XTA,5 002809 : :,24,2 002810 : ,ATX,71777B 002811 : :,24,3 002812 : RO,UJ, 002813 : C 002814 : HE ГOTOB:,BSS, 002815 : ,XTA,KYCДB 002816 : C,AOX,ШHГ-3 002817 : C,ATX,ШHГ-3 002818 : ,UJ,*1 002819 : C 002820 : C 002821 : MФ ГOT:,BSS, 002822 : ER,VTM,KO/ЗП 002823 : N,XTA,WL1-1 002824 : ,AAX,BIT7 002825 : ,UZA,MФ TIM 002826 : N,XTA,WL1-1.ECЛИ БЫЛA 002827 : ,AAX,MASWL.ПPOПAЖA 002828 : ,AEX,C13.ГT/ЗП, 002829 : N,ATX,WL1-1.ПPOBEДEM 002830 : ,XTA,B48/13.ЗAHOBO 002831 : U,AAX,T2MT-30B.ИHИЦИAЛИЗAЦИЮ 002832 : U,ATX,T2MT-30B 002833 : ,UJ,HA BЫП 002834 : MФ TIM:,BSS, 002835 : U,XTA,T1MT-30B 002836 : ,AAX,BIT12 002837 : :,UZA,*+1 002838 : R,VJM,TAPERR.БЫЛO "KДB" 002839 : :MF,MTJ,ER.ПPЯЧEM 002840 : MF,V1M,MФ ГOT1 002841 : JN,XTA,*YCЫ 002842 : ,ATI,R 002843 : ,AAX,B30/16 002844 : ,UZA,MФ ГOT1 002845 : U,XTA,T1MT-30B 002846 : ,AAX,B29/26 002847 : ,U1A,MФ ГOT1 002848 : ,XTA,TAPTIME 002849 : R,A+X,BISTIME 002850 : R,ATX,BISTIME 002851 : MФ ГOT1:,BSS, 002852 : C,XTA,CSUMSTAT-1 002853 : I,AAX,ПOДBOД 002854 : ,U1A,HA ПOДB 002855 : C 002856 : C... ПPABKA "KЧ" B CЛYЖ.CЛOBAX OБMEHA 002857 : C 002858 : CW,MTJ,MF 002859 : R,VTM,8 002860 : I,MTJ,RO 002861 : :,24,2003B 002862 : ,CALL,YCTBEPCB 002863 : :,24,3 002864 : RO,MTJ,I 002865 : ER,MTJ,MF 002866 : ER,VTM,KO/ЗП 002867 : C 002868 : N,XTA,WL1-1 002869 : ,AAX,C3 002870 : ,AEX,C3 002871 : ,U1A,БЫOБMЛ1 002872 : N,XTA,WL1-1 002873 : ,AAX,BIT3 002874 : ,U1A,ЧTCC 002875 : ,MOD,237B 002876 : DC,AAX,BIT29-3 002877 : R,VTM,HAЧ OБM MЛ 002878 : ,UZA,TAPERR 002879 : N,XTA,WL1-1 002880 : ,AAX,BIT4 002881 : ,UZA,EXCH CЛ CЛ 002882 : N,AEX,WL1-1 002883 : N,ATX,WL1-1 002884 : NF,V1M,KOHTPИM 002885 : ,XTA,REWINDSC 002886 : U,AAX,BIT48-30B 002887 : ,UZA,MЛ HA HAЧ 002888 : C 002889 : C... KOHTPOЛЬ CЛYЖ.CЛOB ПPИ 002890 : C ИHИЦИAЛИЗAЦИИ ЗAKAЗA 002891 : C 002892 : KOHTPИM:,BSS, 002893 : ,EXT,4035B 002894 : DC,AAX,BIT12-3.OШBY 002895 : ,U1A,OШMBY 002896 : RO,VJM,ПPOB CЛ CЛ 002897 : ,XTA,NZON 002898 : ,AAX,ZBIT1 002899 : ,ASN,64-12 002900 : ,AEX,NZON 002901 : ,AAX,B24/13 002902 : ,U1A,TAPERR 002903 : CW,XTA,1 002904 : ,ATX,IDMT 002905 : CW,AEX,2 002906 : ,UZA,COBП ИД MЛ 002907 : CW,XTA,4 002908 : ,AEX,CW4C 002909 : :NF,V1M,*+1 002910 : R,VTM,COBП ИД MЛ 002911 : :,UZA,TAPERR 002912 : ,XTA,TP DI 002913 : ,AAX,BIT DI 002914 : ,UZA,TAPERR 002915 : CW,XTA,2 002916 : R,CALL,MTDISPAC 002917 : ,ATX,IDMT 002918 : RT,VTM,*1 002919 : COBПИДMЛ:,BSS, 002920 : NF,V1M,CT1 002921 : ,XTA,IDMT 002922 : U,AEX,TANAMEMT-30B 002923 : ,UZA,COBП TN 002924 : U,XTA,TANAMEMT-30B 002925 : ,AEX,NO CHECK 002926 : ,AAX,B48/13 002927 : ,UZA,MT NO CH 002928 : ,XTA,ШЧYMЛ 002929 : U,AAX,BIT48-30B 002930 : ,U1A,HAЧ OБM MЛ 002931 : U,XTA,BIT48-30B 002932 : ,AOX,ШЧYMЛ 002933 : ,ATX,ШЧYMЛ 002934 : ,ITA,U 002935 : R,VTM,-3 002936 : C,MTJ,RO 002937 : M,VJM,MФ ПЛOX 002938 : RO,MTJ,C 002939 : HAЧOБMMЛ:,BSS, 002940 : ,XTA,BIT4 002941 : N,AOX,WL1-1 002942 : N,ATX,WL1-1 002943 : ,UJ,EXCH CЛ CЛ 002944 : MT NO CH:,BSS, 002945 : ,XTA,IDMT 002946 : U,ATX,TANAMEMT-30B 002947 : COBП TN:,BSS, 002948 : N,XTA,WL1-1 002949 : ,AEX,C3 002950 : C,ATX,TBUC-1 002951 : TO ПPOPE:,BSS, 002952 : ,XTA,C7777 002953 : ,AAX,NZON 002954 : ,ATX,NZON 002955 : R,VJM,ПPOB PEB 002956 : N,XTA,BITS 002957 : C,AEX,SRJC-1 002958 : C,ATX,SRJC-1 002959 : C,XTA,TBUC-1 002960 : ,AAX,ZB37*23 002961 : N,ATX,WL1-1 002962 : ,XTA, 002963 : C,ATX,TBUC-1 002964 : ,UJ,HA ПOДB 002965 : C 002966 : C... OKOHЧEH OБMEH C ЗOHOЙ 002967 : C ИЛИ ЧTEHИE CЛYЖ.CЛOB ПPEДЗOHЫ 002968 : C 002969 : БЫOБMЛ1:,BSS, 002970 : R,VTM,OK OБ 002971 : N,XTA,WL1-1 002972 : ,AAX,B21*18 002973 : ,U1A,KOPPHЗOH 002974 : N,XTA,WL1-1 002975 : ,AAX,B20/19 002976 : ,UZA,KOPPHЗOH 002977 : ,AEX,B20/19 002978 : RO,VTM,*3 ЭT PAЗM 002979 : R,VTM,RES LW 002980 : ,UZA,KOPPHЗOH 002981 : C,XTA,ШKEC-3 002982 : ,AAX,BIT47 002983 : ,ASN,64+28 002984 : ,ARX,BIT19 002985 : N,ARX,WL1-1 002986 : ЗK*:,BSS, 002987 : N,ATX,WL1-1 002988 : ,UJ,HA BЫП 002989 : *3ЭTPAЗM:,BSS, 002990 : N,XTA,WL1-1 002991 : ,AAX,BIT12 002992 : ,U1A,XOPOБM1 002993 : C,ATX,TBUC-1 002994 : ,XTA,BIT20 002995 : ,AEX,BIT12 002996 : N,AEX,WL1-1 002997 : ,UJ,ЗK* 002998 : C 002999 : C... OKOHЧEH OБMEH C ЗOHOЙ 003000 : C 003001 : OK OБ:,BSS, 003002 : C,XTA,TBUC-1 003003 : ,AAX,ЧTEHИE 003004 : R,VTM,OШOБMЛ1 003005 : RO,VTM,БЫЛOЧTMЛ 003006 : ,U1A,ПPOB CЛ CЛ 003007 : ,MOD,237B.KOHEЦ 003008 : DC,AAX,BIT29-3.OБMEHA 003009 : ,U1A,CH OШM ЗП. - БЫЛ 003010 : RO,VTM,TAPERR. - HET 003011 : R,VJM,RES LW 003012 : ,XTA,B21*18.ПOBTOPИM 003013 : C,AOX,TBUC-1.ЗAПИCЬ 003014 : C,ATX,TBUC-1.OБEИX ЗOH 003015 : ,UJ,ПOBOБMЛ3 003016 : CH OШMЗП:,BSS, 003017 : ,EXT,4035B 003018 : DC,AAX,BIT5-3.OШM 003019 : ER,VTM, 003020 : ,UZA,CH ДYБ ЗП. - HET 003021 : ER,VTM,OШ/ЗП 003022 : R,VJM,TAPERR 003023 : CH ДYБЗП:,BSS, 003024 : U,XTA,T2MT-30B.OCHOBHAЯ 003025 : ,ARX,BIT48.ЗOHA 003026 : ,UZA,ЗAДYБЗOH. - ДA 003027 : RO,VJM,RES LW 003028 : ER,VZM,XOPЗAП1.ДYБЛЬ O'KEY 003029 : U,XTA,T2MT-30B 003030 : ,AAX,BIT44 003031 : ,UZA,XOPЗAП1.OCH. O'KEY 003032 : ПOBOБMЛ3:,BSS, 003033 : C,XTA,TBUC-1 003034 : ,AOX,BIT37 003035 : N,ATX,WL1-1 003036 : C 003037 : C... PEBEPC MЛ ДЛЯ ПOBTOPEHИЯ OБMEHA 003038 : C 003039 : ПOBOБMЛ1:5,VJM,VOP 003040 : BЗAД:,BSS, 003041 : ,XTA, 003042 : C,ATX,SBUC-1 003043 : C,ATX,TBUC-1 003044 : I,XTA,ПOДBOД 003045 : I,AEX,PEBEPC 003046 : C,AOX,CSUMSTAT-1 003047 : C,ATX,CSUMSTAT-1 003048 : N,XTA,BITS 003049 : C,AEX,SRJC-1 003050 : C,ATX,SRJC-1 003051 : RT,VTM,TRAINT 003052 : RO,VTM,ШЗH 003053 : PRT DOWN:,BSS, 003054 : ,XTA,PRTMTCH 003055 : C,AEX,BIT44-3 003056 : ,WTC,N8 003057 : ,AOX,BIT44-3 003058 : PRT SET:,BSS, 003059 : ,ATX,PRTMTCH 003060 : RO,UJ, 003061 : PRT UP:,BSS, 003062 : ,XTA,FULWOR 003063 : ,WTC,N8 003064 : ,AEX,BIT44-3 003065 : ,AAX,PRTMTCH 003066 : C,AOX,BIT44-3 003067 : ,UJ,PRT SET 003068 : C 003069 : C... ЗAПИCЬ ДYБЛЯ ЗOHЫ 003070 : C 003071 : ЗAДYБЗOH:,BSS, 003072 : :ER,VZM,*+1 003073 : ,AOX,BIT44.OШИБKA B 003074 : U,ATX,T2MT-30B.OCH.ЗOHE 003075 : R,VJM,ДYБ 003076 : ,XTA,C1 003077 : CW,ARX,6.+1 K HOMEPY 003078 : CW,ATX,6.ЗOHЫ 003079 : CW,ATX,3 003080 : ,UJ,EXCH ДYБ 003081 : C 003082 : C... ЗAПИCAЛИ OБE ЗOHЫ 003083 : C 003084 : XOPЗAП1:,BSS, 003085 : U,XTA,T1MT-30B 003086 : ,AAX,CONTROL 003087 : ,UZA,XOPOБM1 003088 : C 003089 : C... OPГAHИЗAЦИЯ KOHTPOЛЬHOГO ЧTEHИЯ 003090 : C 003091 : ,XTA,CREADIS 003092 : U,AOX,T1MT-30B 003093 : U,ATX,T1MT-30B 003094 : ,XTA,ЧTEHИE 003095 : N,AOX,WL1-1 003096 : N,ATX,WL1-1 003097 : ,UJ,BЗAД 003098 : C 003099 : C... P- И V-OПEPAЦИИ ДOCTYПA 003100 : C K ЛИCTY CEKTOPHOГO OБMEHA 003101 : C OБPAЩEHИE ПO R. 003102 : C 003103 : POP:C,XTA,BIT47 003104 : ,UJ,PS*POP.ПOPTИT CW 003105 : C 003106 : VOP:,BSS,.ПOPTИT CW,DC 003107 : U,XTA,T1MT-30B 003108 : ,AAX,CREADIS 003109 : ,UZA,VOP1 003110 : U,AEX,T1MT-30B 003111 : U,ATX,T1MT-30B 003112 : ,XTA,ЧTEHИE 003113 : VOP1:N,AEX,WL1-1 003114 : N,ATX,WL1-1 003115 : ,AEX,SCDICH 003116 : ,AAX,KPMASK 003117 : R,U1A,.HE БЫЛO P 003118 : C,XTA,TBUT-1.BOCCTAHOBЛEHИE 003119 : N,ATX,WL1-1.ЗAKAЗA 003120 : C,XTA,BIT47.HA ЗAПИCЬ 003121 : ,UJ,PS*VOP 003122 : C 003123 : C... OKOHЧИЛOCЬ ЧTEHИE ЗOHЫ 003124 : C 003125 : БЫЛOЧTMЛ:,BSS, 003126 : ,XTA,NZON 003127 : ,AAX,ZBIT1 003128 : ,ASN,64-12 003129 : ,AEX,NZON 003130 : ,AAX,B24/13.HOMEP ЗOHЫ 003131 : ,U1A,TAPERR.БPEДOB 003132 : ,XTA,NZON 003133 : ,ARX,C1 003134 : U,AEX,T2MT-30B 003135 : ,AAX,C7777 003136 : R,VTM,TO ПPOPE 003137 : ,U1A,TAPERR.HE TA ЗOHA 003138 : N,XTA,WL1-1 003139 : ,AAX,CЛYЖCЛOB 003140 : ,U1A,БЫ ЧT CC2 003141 : RO,VTM,KЧ ЧT 003142 : ,ITA,RO 003143 : ,ATX,RETTRA 003144 : ,XTA,C2003 003145 : ,ATI,21B 003146 : :,24 ,2002B 003147 : ,XTA,71777B 003148 : :,24 ,2003B 003149 : ,AEX,LWC 003150 : ER,VTM,CБ/CИ 003151 : R,VTM,ГAШ HAЛ 003152 : ,U1A,TAPERR 003153 : ,XTA,C13 003154 : ,ATI,21B 003155 : ,EXT,4035B 003156 : ,ATX,PE FL 003157 : ,ASN,64+7 003158 : ,AOX,PE FL 003159 : DC,AAX,BIT5-3 003160 : ,ATX,PE FL 003161 : ,UZA,MAKE KS 003162 : R,VJM,OШMBY 003163 : C,XTA,TBUC-1 003164 : ,AAX,HAЛOЖ 003165 : ,UZA,SET HAЛ 003166 : MAKE KS:,BSS, 003167 : CW,XTA,7 003168 : ,ATX,CHSUMR 003169 : CW,XTA,5 003170 : :,24 ,2002B 003171 : ,ATX,71777B 003172 : :,24 ,2003B 003173 : ER,VTM,-37B 003174 : CW,VTM, 003175 : R,VJM,SUMMING 003176 : ,AEX,CHSUMR 003177 : ,U1A,OШ KC 003178 : U,XTA,T1MT-30B 003179 : ,AAX,CREADIS 003180 : ,UZA,XOPOБM1 003181 : C 003182 : C... ПPИ KOHTPOЛЬHOM ЧTEHИИ 003183 : C CPABHИM CЧИTAHHYЮ KC C 003184 : C CYMMOЙ ЛИCTA, ЧTOБЫ ЗACEЧЬ 003185 : C CИTYAЦИЮ, KOГДA ЗAПИCЬ 003186 : C HE ПPOИЗOШЛA BOOБЩE. 003187 : C 003188 : ,XTA,CHSUMR 003189 : N,AEX,WL2-1 003190 : ,UZA,XOPOБM1 003191 : C 003192 : C... CYMMЫ HE COBПAЛИ 003193 : C 003194 : OШ KC:,BSS, 003195 : ER,VTM,KC/MЛ 003196 : R,VJM,TAPERR 003197 : ,XTA,PE FL 003198 : ,U1A,SET HAЛ 003199 : ГAШ HAЛ:,BSS, 003200 : C,XTA,TBUC-1 003201 : ,AOX,HAЛOЖ 003202 : ,AEX,HAЛOЖ 003203 : ,UJ,WR TBUC 003204 : KЧ ЧT:,BSS, 003205 : R,VJM,OШMBY 003206 : SET HAЛ:,BSS, 003207 : ,XTA,HAЛOЖ 003208 : C,AOX,TBUC-1 003209 : WR TBUC:,BSS, 003210 : C,ATX,TBUC-1 003211 : ,XTA,NH 003212 : ,ATI,DC 003213 : DC,XTA,BC1700 003214 : ,ATI,CW 003215 : ,XTA,BIT48 003216 : U,ARX,T2MT-30B 003217 : ,U1A,ПOBOБMЛ3 003218 : U,ATX,T2MT-30B 003219 : R,VTM,EXCH ДYБ 003220 : ,UJ,ДYБ 003221 : OШOБMЛ1:,BSS, 003222 : N,XTA,WL1-1 003223 : ,AAX,CЛYЖCЛOB 003224 : ,UZA,ГAШ HAЛ 003225 : MF,V1M,ГAШ HAЛ 003226 : ,UJ,ПOBOБMЛ1 003227 : БЫЧTCC2:,BSS, 003228 : MF,V1M,XOPOБM1 003229 : ,XTA,Z21*18*1 003230 : N,AAX,WL1-1 003231 : N,ATX,WL1-1 003232 : ,UJ,BЫПOЛH 003233 : OШMBY:,BSS, 003234 : ER,VTM,OШ/ЧT 003235 : ,UJ,TAPERR 003236 : C 003237 : C... ИЗBЛEЧEHИE HOMEPA ЗOHЫ 003238 : C ИЗ CЛYЖEБHЫX CЛOB 003239 : C 003240 : ПPOBCЛCЛ:,BSS, 003241 : CW,XTA,3.KOПИЯ 1 003242 : CW,AOX,6.KOПИЯ 2 003243 : ,ATX,NZON 003244 : ,AAX,B39/25 003245 : ,AEX,CW36C.CПEЦKOД 003246 : ER,VTM,OШ/CC 003247 : RO,UZA, 003248 : C 003249 : C... OБPAБOTKA OШИБOK OБMEHA C MЛ 003250 : C 003251 : TAPERR:,BSS, 003252 : ,XTA,C13 003253 : ,ATI,21B 003254 : ,XTA,BIT26 003255 : U,ARX,T1MT-30B.CЧ-K ПO 003256 : ER,AOX,BIT36-1 003257 : ,ATX,WS 003258 : U,ATX,T1MT-30B.TEK.OБMEHY 003259 : ,APX,B30*12*5.HE ЛOПHYЛ 003260 : R,UZA, 003261 : ,ASN,64-1 003262 : ,UZA,TERR1.ER ЗAДAHO 003263 : ER,VTM,OШ/ЗП 003264 : ,AAX,BIT48 003265 : :,UZA,TERR1 003266 : ER,VTM,KДB/MФ 003267 : TERR1:,BSS, 003268 : C,MTJ,RO 003269 : RF,VZM,ERREC 003270 : M,VTM,TЦKMФ 003271 : ER,XTA,MTDIAGN-1 003272 : M,ATX, 003273 : ,ITA,U 003274 : ,ASN,64-42 003275 : ,AUX,BY1/2 003276 : ,AOX,Z12Ш 003277 : M,ATX,1 003278 : JN,XTA,*YCЫ 003279 : ,ASN,64-27 003280 : ,AUX,BY5/6 003281 : M,AOX,1 003282 : M,ATX,1 003283 : U,XTA,T2MT-30B 003284 : ,ASN,64+13 003285 : ,ARX,C77774 003286 : ,AAX,C3777 003287 : ,ATX,TИПOШ 003288 : ,ASN,64-33 003289 : ,AUX,BY1/5 003290 : ,AOX,TNZON 003291 : M,ATX,2 003292 : ,ITA,M 003293 : M,VJM,TTPRINT+1 003294 : :,24 ,3 003295 : RO,MTJ,C 003296 : ,XTA,B36/31.ГACИM "KO","KДB" 003297 : ,AOX,MAST1MT.И CЧ-K OШИБOK 003298 : U,AAX,T1MT-30B 003299 : U,ATX,T1MT-30B.ГOTOBИM CYMMATOP 003300 : ,ASN,64+6.ДЛЯ "ПЛOXAЯ MЛ": 003301 : ,ASN,64-12.MATHOM, БИTЫ OШИБOK, 003302 : ,AOX,TИПOШ.HOMEP ЗOHЫ 003303 : ,ATX,TИПOШ 003304 : ,XTA,WS 003305 : ,ASN,64+6 003306 : ,AOX,WS 003307 : ,AAX,C6 003308 : R,UZA, 003309 : ,AEX,BIT2 003310 : :,U1A,*+1 003311 : ,UTC,MЛKAЮK 003312 : RF,VTM,.7 003313 : RT,VTM,TИПOШ.9 003314 : L,VTM,.11 003315 : N,XTA,WL1-1 003316 : RO,VTM,XOPOБM1 003317 : ,UJ,ABCHT 003318 : CT1:,BSS, 003319 : ,XTA,NZON 003320 : ,ARX,C1 003321 : ,AAX,C7777 003322 : ,ATX,NZON 003323 : R,VJM,SET2MT 003324 : ,XTA,IDMT 003325 : ,UJ,CT2 003326 : ERREC:,BSS, 003327 : ,ITA,U 003328 : R,VTM, 003329 : :NF,VZM,*+1 003330 : M,VJM,MФ ПЛOX 003331 : RO,MTJ,C 003332 : ,XTA, 003333 : CT2:,BSS, 003334 : JN,WTC,*YCЫ 003335 : ,ATX, 003336 : ,ITA,U 003337 : JN,WTC,*YCЫ 003338 : ,ATX,I14 003339 : ,UJ,XOPOБM1 003340 : *OUTJOB:,BSS, 003341 : NF,V1M,XOPOБM1 003342 : MF,V1M,XOPOБM1 003343 : ,XTA, 003344 : :,24 ,2 003345 : R,VTM,-1777B 003346 : :R,ATX,71777B 003347 : R,VLM,* 003348 : XOPOБM1:,24,3 003349 : U,XTA,T1MT-30B 003350 : ,ASN,64-12.OШИБKИ 003351 : ,AUX,C200*.TEK.OБMEHA 003352 : ,UZA,AFT ST. - HE БЫЛO 003353 : ,ASN,64+7 003354 : ,ATX,БYCT+1.CБPOC OШИБOK 003355 : N,XTA,WL1-1.B ИHЖ. 003356 : ,ATX,БYCT.CTATИCTИKY 003357 : ,XTA,ST/T 003358 : ,UJ,STATIST 003359 : AFT ST:,BSS, 003360 : ,XTA,FULWOR 003361 : I,AEX,ПOДBOД 003362 : I,AEX,PEBEPC 003363 : C,AAX,CSUMSTAT-1 003364 : C,ATX,CSUMSTAT-1 003365 : C,XTA,SBUC-1 003366 : N,AEX,BITS 003367 : ,U1A,CLEAR 003368 : C,ATX,TBUC-1 003369 : RO,VJM,PRT DOWN 003370 : CLEAR:,BSS, 003371 : ,XTA,MAST1MT 003372 : U,AAX,T1MT-30B 003373 : U,ATX,T1MT-30B 003374 : ,XTA,FULWOR 003375 : U,AEX,BIT48-30B 003376 : ,AAX,ШЧYMЛ 003377 : ,ATX,ШЧYMЛ 003378 : R,VJM,VOP 003379 : RT,VTM,TRAINT.BOЗBPAT 003380 : MF,VIM,TASKOFF.ПOДBOД 003381 : C,WTC,TYPEMT-3 003382 : CW,VTM,.AДPEC CЛ.CЛOB 003383 : C 003384 : C... БЛOK OKOHЧAHИЯ ЗAKAЗA HA OБMEH 003385 : C RT - BOЗBPAT 003386 : C N - ИHДEKC ПO WL1 ИЛИ 0 003387 : C CW - AДPEC CЛYЖ.CЛOB (ДЛЯ MЛ И MД) 003388 : C 003389 : C ПPOИЗBOДИTCЯ, ECЛИ HAДO, ПEPEПИCЬ 003390 : C CЛYЖ.CЛOB B ИПЗ ЮЗEPA. 003391 : C OTKPЫBAETCЯ ЗAДAЧA ИЛИ EE MAT.ЛИCT 003392 : C ПPИ HEHYЛEBOM N ДEЛAETCЯ BЫЧИCTKA 003393 : C ЗAKAЗA ИЗ OЧEPEДИ OБMEHOB. 003394 : C 003395 : C ПOPTЯTCЯ: MV,R,TP,F,P,S 003396 : C 003397 : C 003398 : KOHOБMEH:,ENTRY,.MЛ/MД 003399 : :,24,3 003400 : N,XTA,WL1-1 003401 : ,ASN,64+42 003402 : ,ATI,F. Д H З 003403 : ,XTA,SCSWING 003404 : N,AAX,BITS 003405 : ,U1A,KOHOБMБ.ПOДKAЧKA 003406 : ,XTA,ИПЗ/ECTЬ 003407 : F,AAX,BITS 003408 : ,UZA,KOHOБMБ.HET ИПЗ 003409 : ,AAX,Ш/ДИCП 003410 : ,U1A,KOHOБMБ.ДИCП.ЗAKAЗ 003411 : C 003412 : C... ПPOБA: ECTЬ ЛИ ЗAKAЗ HA 003413 : C ПEPECЫЛKY CЛYЖ.CЛOB ЮЗEPY 003414 : C 003415 : F,WTC,*YCЫ 003416 : S,VTM,CWPLAC 003417 : S,XTA,REGSCAL-CWPLAC 003418 : ,AAX,BIT39 003419 : ,UZA,KOHOБMБ 003420 : R,VTM,-7 003421 : C 003422 : C... ПEPEПИCЬ B ИПЗ ЮЗEPA 003423 : C!!! ECЛИ ЗAДAЧA BЫДAЛA ЗAKAЗ 003424 : C HA ЧT.ИMEHИ, A EE ИПЗ YKAЧAЛИ 003425 : C??? BЫЙДET HEПPИЯTHOCTЬ 003426 : C 003427 : :CW,UTC, 003428 : R,XTA,7 003429 : S,ATX, 003430 : R,VLM,*-1 003431 : C 003432 : KOHOБMБ:N,XTA,WL1-1.BXOД ДЛЯ MБ 003433 : ,ATX,OFFKYC 003434 : C 003435 : OPEN:,BSS,.BXOД ДЛЯ ERTREQ 003436 : ,XTA,OFFKYC 003437 : ,APX,KPMASK 003438 : ,ASN,64+11 003439 : ,ATX,MPAGE 003440 : ,ASN,64+30 003441 : ,ATI,P.ФИЗ.ЛИCT 003442 : C ЧT.ИMEHИ MЛ - P=0 003443 : C RECMDT - P=77 003444 : ,XTA,OFFKYC 003445 : ,AAX,BIT38 003446 : ,ASN,64+23 003447 : ,ATI,TP.TИП ЗAKAЗA 003448 : P,XTA,TPHYS 003449 : ,ASN,64-15 003450 : :TP,VZM,*+1.ИЗ TPHYS 003451 : ,XTA,OFFKYC.ИЗ KYC-A 003452 : :,ASN,64+42 003453 : ,ATI,F.ДHЗ 003454 : C F=0 : TP>0 RECMDT 003455 : C TP=0 SWING, ECЛИ ЗAKPЫTA ПO RP, 003456 : C A ЗAKOHЧEH OБMEH C NEWRP 003457 : F,XTA,*YCЫ 003458 : ,ATI,S.ИПЗ 003459 : TP,V1M,OPETA 003460 : ,AAX,B37/31 003461 : ,AEX,MPAGE 003462 : ,U1A,CLEXB 003463 : C... ЗAДAЧA ЗAKPЫTA "ПO ЛИCTY" 003464 : ,XTA,MPAGE 003465 : F,AEX,*YCЫ 003466 : OPETA:,BSS, 003467 : F,ATX,*YCЫ 003468 : ,XTA,EXCHSC.BЫЧИCTKA ИЗ 003469 : F,AOX,BITS.ШKAЛЫ ЗAДAЧ, 003470 : F,AEX,BITS.ЗAKPЫTЫX ПO 003471 : ,ATX,EXCHSC.OБMEHY 003472 : F,XTA,BITS 003473 : ,AOX,OFFESC 003474 : ,ATX,OFFESC 003475 : CLEXB:,XTA,ZB7*6 003476 : P,AAX,TPHYS 003477 : P,ATX,TPHYS 003478 : F,VZM,ENDOP.RECMDT,SWING 003479 : ,APX,MMNTPL 003480 : ,ASN,64+36 003481 : ,ATI,MV.MAT.ЛИCT 003482 : ,ASN,64+5 003483 : ,U1A,ENDOP 003484 : ,XTA,Ш/ДИCП 003485 : F,AAX,BITS 003486 : ,U1A,ENDOP 003487 : C ДЛЯ ЗAKAЗA OT ЭKCTPAKOДA 003488 : C C ЗAKPЫTИEM ЗAДAЧИ (ФИЗ.ПAKET, 003489 : C TECT.CTATYC) HYЖHO ЧИCTИTЬ TMATH 003490 : TP,VIM,NOP 003491 : N,VZM,HE COБ 003492 : C 003493 : C... ГEHEPAЦИЯ ДЛЯ ЮЗEPA 003494 : C COБЫTИЯ: "KOHEЦ OБMEHA" 003495 : C 003496 : S,XTA,SCEX 003497 : ,UZA,HE COБ 003498 : MV,AOX,BIT48 003499 : S,ATX,SCEX 003500 : F,XTA,*YCЫ 003501 : ,AEX, 003502 : ,XTA,HA COБ 003503 : ,UJ,COБЫTИE 003504 : C 003505 : C... OTKPЫTИE ЛИCTA ЮЗEPA 003506 : C ПO ПPИПИCKE И ЗAЩИTE 003507 : C 003508 : HE COБ:,BSS, 003509 : :,24 ,3 003510 : ,ITA,MV 003511 : ,ASN,64+3 003512 : ,AEX,C3 003513 : ,ATI,R 003514 : ,ITA,MV 003515 : ,AAX,C7 003516 : ,AEX,C7 003517 : S,J+M,R 003518 : ,ATI,TP 003519 : TP,XTA,BIT28 003520 : ,AEX,FULWOR 003521 : R,AAX,TЗAЩ 003522 : R,ATX,TЗAЩ 003523 : ,ITA,MV 003524 : ,ASN,64+2 003525 : ,AEX,C7 003526 : ,ATI,R 003527 : ,ITA,MV 003528 : ,AAX,C3 003529 : S,J+M,R 003530 : ,ATI,TP 003531 : ,ITA,P 003532 : ,ASN,64-41 003533 : TP,AUX,TMPMASK 003534 : R,AOX,TПPИП 003535 : R,ATX,TПPИП 003536 : NOP:,BSS, 003537 : P,VZM,ENDOP.ЧT.ИMEHИ 003538 : S,J+M,MV 003539 : ,XTA,FULWOR 003540 : ,AEX,BIT46 003541 : MV,AAX,TMATH 003542 : MV,ATX,TMATH 003543 : ENDOP:,BSS, 003544 : N,VZM,ENDMAC70 003545 : C 003546 : C... ПOДПPOГPAMMA ИCKЛЮЧEHИЯ ЗAKAЗA 003547 : C ИЗ OЧEPEДИ ЗAKAЗOB HA OБMEH 003548 : C 003549 : TASKOFF:,ENTRY, 003550 : TASKOFF:,BSS, 003551 : LL1:,EQU,LQTRA-1 003552 : LL2:,EQU,LQTRA-2 003553 : ESJMT:,EQU,SCSWING 003554 : :,24 ,2003B 003555 : ,XTA,FULQUESC 003556 : ,AOX,OFFESC 003557 : ,ATX,OFFESC 003558 : ,XTA, 003559 : ,ATX,FULQUESC 003560 : :,24 ,3 003561 : ,XTA,TRACNT 003562 : ,UZA,BADEXCH 003563 : ,ARX,C377 003564 : ,AAX,C377 003565 : ,ATX,TRACNT 003566 : ,XTA,FULWOR 003567 : N,AEX,BITS 003568 : ,ATX,OFFKYC 003569 : F,VTM,SBUC-ESJMT 003570 : OFFSC:,BSS, 003571 : F,XTA,ESJMT 003572 : ,APX,OFFKYC 003573 : F,ATX,ESJMT 003574 : F,VLM,OFFSC 003575 : N,XTA,WL1-1 003576 : ,ATX,OFFKYC 003577 : N,MTJ,F 003578 : F,UTM,-LL1 003579 : OFFWL:,BSS, 003580 : F,XTA,WL1+LL1 003581 : F,ATX,WL1+LL2 003582 : F,XTA,WL2+LL1 003583 : F,ATX,WL2+LL2 003584 : F,VLM,OFFWL 003585 : RT,UJ, 003586 : C 003587 : C----- 003588 : C 003589 : C......OPГAHИЗAЦИЯ ПEPEXOДOB ЧEPEЗ MГЗ 003590 : C ДЛЯ ЗABOДCKOГO KOHTPOЛЛEPA ..... 003591 : ДYБ:,BSS, 003592 : 14,XTA,ШKEC-3 003593 : ,AAX,BIT47 003594 : 5,UZA, 003595 : ,ITA,5 003596 : 14,ATX,SCMT57-3 003597 : 14,XTA,ШKEC -3 003598 : 13,AAX,BIT24 003599 : ,UZA,SKIPMARK 003600 : OБM5017:,BSS, 003601 : 14,AEX,ШKEC-3 003602 : 14,ATX,ШKEC-3 003603 : U,XTA,T2MT-30B 003604 : ,AAX,C/MГЗ 003605 : ,U1A,MAPKEP 003606 : SKIPMARK:,BSS, 003607 : 14,XTA,CSUMSTAT-1 003608 : 13,AOX,ПOДBOД 003609 : 14,ATX,CSUMSTAT-1 003610 : 13,XTA,BIT24 003611 : 14,AOX,ШKEC-3 003612 : 14,ATX,ШKEC-3 003613 : MV,VTM,1 003614 : ,UJ,EXCHДBИЖ 003615 : MAPKEP:,XTA,FULWOR 003616 : 13,AEX,PEBEPC 003617 : 13,AEX,ПOДBOД 003618 : 14,AAX,CSUMSTAT-1 003619 : 14,ATX,CSUMSTAT-1 003620 : C 003621 : C... ,XTA,.CБPOC 003622 : C ,EXT,32B.БAYCA 003623 : C 003624 : 14,XTA,SCMT57-3 003625 : ,ATI,5 003626 : 5,UJ, 003627 : C 003628 : C--- 003629 : C 003630 : MФ ПЛOX:,ENTRY, 003631 : MФ ПЛOX:,BSS, 003632 : C...OTPAБOTKA HEГOTOBHOCTИ MФ 003633 : C...HA CYMMATOPE N. MФ 003634 : C...И.P.5 - TИП CИTYAЦИИ 003635 : C 0 - HE OПOЗHAHA MЛ. 003636 : C 3 - HE ГOTOB MФ. 003637 : C 6 - HET ЗAПИCИ HA MФ. 003638 : ,ATX,HOMФ 003639 : 5,VIM,MФП.HEГOTOB. 003640 : ,XTA,MISTERX. 003641 : ,WTC,HOMФ. 003642 : ,AOX,BIT48-30B. 003643 : ,ATX,MISTERX. 003644 : MФП:,XTA,HOMФ. 003645 : ,ASN,64-42. 003646 : ,AUX,BY1/2. 003647 : ,AOX,Z12. 003648 : 5,UTM,THEOПO. 003649 : 5,ATX,2. 003650 : ,ITA,5. 003651 : 14,MTJ,5. 003652 : : ,24,2003B. 003653 : 14,VJM,TTPRINT. 003654 : : ,24,3. 003655 : 5,UJ,. 003656 : SUMMING:,ENTRY,. 003657 : SUMMING:,BSS, 003658 : C 003659 : C I4 И I11 ЗAДAЮTCЯ ПPИ OБPAЩEHИИ 003660 : C 003661 : CYMMИP:,XTA,. 003662 : ,ATX,RRR. 003663 : L01551:10,VTM,-31. 003664 : ,XTA,C2003. 003665 : ,ATI,21B.HET OCT. ПO KЧ 003666 : ,XTA,RRR. 003667 : : ,24,2002B. 003668 : 11,ARX,70000B. 003669 : 11,UTM,1. 003670 : 10,VLM,*-1. 003671 : : ,24,2003B. 003672 : ,ATX,RRR. 003673 : ,XTA,C13. 003674 : ,ATI,21B.OCTAHOB ПO KЧ 003675 : ,ATI,. 003676 : ,ATI,. 003677 : 4,VLM,L01551. 003678 : ,XTA,RRR.K.CYMMA 003679 : 5,UJ,. 003680 : C 003681 : C----- OCTAHOB ПO BCЯKИM БЯKAM 003682 : C 003683 : BAD EXCH:,BSS, 003684 : ,33,70707B 003685 : ,UJ,* 003686 : C----- 003687 : ,END, 003688 : ПPOBMЛ:,NAME, 003689 : C 003690 : C***** ИЮЛЬ 1983. H.C.ГOHЧAPOB 003691 : C 003692 : C ПPOBEPKA COCTOЯHИЯ MAГHИTOФOHOB 003693 : C 003694 : *YCЫ :LC,BLOCK,ГYC,RDSCAL 003695 : *ПДИCK :,LC,1 003696 : TABLEMT :LC,BLOCK,(16),T1MT(32),(16),T2MT(32) 003697 : REWINDSC:LC,BLOCK,(3),CHBOSS(4) 003698 : STATUSMT:LC,BLOCK,MBUS,OLD(4),NEW(4) 003699 : ,CONT,(4),SOST(2) 003700 : ,CONT ,ДBECA(4),SCANER 003701 : ,CONT ,ШKEC(4),(4),ШHГ(4) 003702 : *STATBUF:LC,BLOCK,(1),MOUT 003703 : CMDREC :LC,BLOCK,(2),NMOD,(1),CEKMET 003704 : ,CONT ,RCHBUSY 003705 : IFREC :,EQU,632B 003706 : *0 :,BLOCK,(3),S33(2),S27 003707 : GIVTRA :,SUBP, 003708 : TRATAPE :,SUBP, 003709 : INITTAPE:,SUBP, 003710 : MDRECOGN:,SUBP, 003711 : ПPOBГOMЛ:,EQU,MDRECOGN 003712 : *677 :B,BLOCK,BITS(11),BIT38(2),BIT36(10) 003713 : ,CONT ,BIT26(10),BIT16(3),BIT13 003714 : ,CONT ,BIT12(7),BIT5(4),BIT1 003715 : B41/25 :,EQU,=:0037 7777 003716 : B24/10 :,EQU,=7777 7000 003717 : B24/9 :,EQU,=7777 7400 003718 : B24/1 :,LC,1 003719 : C1 :,EQU,BIT1 003720 : C3 :,LC,1 003721 : C7 :,LC,1 003722 : C13 :,LC,1 003723 : *CB :LC,BLOCK,(1),C17 003724 : C37 :,LC,1 003725 : C77 :,LC,1 003726 : C777 :,LC,1 003727 : DISREG :,LC,1 003728 : BC1700 :,SUBP, 003729 : BITJREC :,EQU,BIT26 003730 : C/MГЗ :,EQU,BIT36 003731 : C/ПEP :,EQU,=:0000 06 003732 : TPИБИT :,EQU,=4010 0200 003733 : *1 :,BLOCK,U(4),R(8),I,C,S 003734 : ,XTA,C1 003735 : ,ARX,SCANER 003736 : ,AAX,C37 003737 : ,ATX,SCANER 003738 : ,AAX,C3 003739 : ,ATI,C 003740 : C,UTM,3 003741 : ,XTA,*ПДИCK 003742 : C,AAX,BITS 003743 : ,UZA,TIMD 003744 : S,VTM,SREG 003745 : ,ITA,U 003746 : ,ASN,64-15 003747 : ,ITS,R 003748 : S,AEX, 003749 : ,ASN,64-15 003750 : ,ITS,I 003751 : S,AEX, 003752 : R,VTM, 003753 : C,XTS,ШKEC-3 003754 : ,UZA,LSOSTEC1 003755 : C,XTA,CHBOSS-3 003756 : ,U1A,CHECK 003757 : C,XTA,ДBECA-3 003758 : ,ATI,S 003759 : ,ANX,C17 003760 : ,AEX,C77 003761 : S,V1M,TO/LS 003762 : ,XTA,SCANER 003763 : ,ASN,64+2 003764 : TO/LS:,BSS, 003765 : C,ARX,BC1700 003766 : ,ATI,U 003767 : ,AAX,C7 003768 : ,AEX,C7 003769 : ,ATI,I 003770 : C,XTA,ШKEC-3 003771 : ,AAX,B41/25 003772 : S,V1M,LSOSTEC1 003773 : LSOSTEC:,ENTRY, 003774 : :,24 ,2003B 003775 : U,EXT,100B-30B 003776 : LSOSTEC1:,ENTRY, 003777 : LSOSTEC1:,BSS, 003778 : ,AAX,B41/25 003779 : ,ATX,RS*MASK 003780 : C,XTA,ШKEC-3 003781 : ,U1A,MTEC 003782 : C,EXT,4100B 003783 : C,AEX,NEW-3 003784 : ,AAX,B24/1 003785 : C,AEX,NEW-3 003786 : C,ATX,NEW-3 003787 : ,UJ ,LS/RET 003788 : MTEC:,BSS, 003789 : S,VTM,LS/RET 003790 : ,XTA,TPИБИT 003791 : I,ASN,64 003792 : ,ATX,MASK 003793 : C,ARX,ШKEC-3 003794 : ,U1A,K5H 003795 : ,EXT,4117B 003796 : ,ASN,64-1 003797 : ,AAX,B24/10 003798 : ,ATX,SOST 003799 : ,EXT,4115B 003800 : ,AAX,C777 003801 : ,AOX,SOST 003802 : ,ATX,SOST 003803 : ,ASN,64-24 003804 : ,AOX,SOST 003805 : ,ATX,SOST 003806 : ,AEX,BIT1 003807 : ,APX,=20 0000 0201 003808 : ,AUX,MASK 003809 : ,AEX,MASK 003810 : ,UJ ,SETNEW 003811 : K5H:,BSS, 003812 : C,EXT,4110B 003813 : ,ASN,64-24 003814 : ,ATX,SOST 003815 : C,EXT,4100B 003816 : SETNEW:,BSS, 003817 : C,AEX,NEW-3 003818 : ,AAX,MASK 003819 : C,AEX,NEW-3 003820 : C,ATX,NEW-3 003821 : R,V1M,SET2 003822 : ,XTA,ГYC 003823 : ,AEX,ГYC+26B 003824 : ,UZA,LS/RET 003825 : SET2:,BSS, 003826 : ,XTA,SOST 003827 : U,AEX,T2MT-30B 003828 : ,AAX,RS*MASK 003829 : U,AEX,T2MT-30B 003830 : U,ATX,T2MT-30B 003831 : ,YTA, 003832 : ,AAX,C/ПEP 003833 : ,UZA,LS/RET 003834 : U,AEX,T2MT-30B 003835 : ,AAX,C/ПEP 003836 : ,AEX,C/ПEP 003837 : ,UZA,TRA TAPE 003838 : LS/RET:,BSS, 003839 : R,UTC, 003840 : R,V1M, 003841 : CHECK:,BSS, 003842 : ,XTA,SREG 003843 : ,ATI,I 003844 : ,ASN,64+15 003845 : ,ATI,R 003846 : ,ASN,64+15 003847 : ,ATI,U 003848 : C,XTA,NEW-3 003849 : C,AEX,OLD-3 003850 : ,AAX,B24/9 003851 : ,AOX,MOUT 003852 : ,AOX,NMOD 003853 : ,AOX,CEKMET 003854 : ,UZA,CH/ST 003855 : ,XTA,MBUS 003856 : ,U1A,CH/ST 003857 : ,XTA,BITJREC 003858 : ,AOX,RDSCAL 003859 : ,ATX,RDSCAL 003860 : S,VTM,ПPOBГOMЛ 003861 : ,ITA,S 003862 : ,ATX,IFREC+S33 003863 : ,XTA,C13 003864 : ,ATX,IFREC+S27 003865 : ,ATX,MBUS 003866 : CH/ST:,BSS, 003867 : C,XTA,ШHГ-3 003868 : ,ASN,64+32 003869 : ,UZA,TIMD 003870 : C,AAX,NEW-3 003871 : S,VTM, 003872 : ,UZA,INITTAPE 003873 : TIMD:,BSS, 003874 : ,XTA,SCANER 003875 : ,U1A,NOTSEC 003876 : ,XTA,C1 003877 : ,ATX,CEKMET 003878 : NOTSEC:,BSS, 003879 : ,AEX,BIT5 003880 : ,AOX,RCHBUSY 003881 : I,U1A, 003882 : I,MTJ,S 003883 : ,XTA,BIT38 003884 : ,UJ ,GIVTRA 003885 : SREG :,BSS,1 003886 : RS*MASK:,BSS,1 003887 : MASK :,BSS,1 003888 : ,END, 003889 : EC*608:,NAME, 003890 : C* 003891 : C***** A.Г.ЩИPEHKO, A.П.CAПOЖHИKOB, 003892 : C* H.C.ГOHЧAPOB 003893 : C* 003894 : C* YПPABЛEHИE MAГHИTOФOHAMИ 003895 : C* EC5012, EC5017, CDC608 003896 : C* 003897 : C******************************************* 003898 : C* 003899 : C* ,XTA,INF 003900 : C* ,*57,7777B 003901 : C* 003902 : C* INF - ИHФOPMAЦИOHHOE CЛOBO : 003903 : C* ---------------------------- 003904 : C* 1. ДЛЯ BCEX TИПOB MAГHИTOФOHOB : 003905 : C* 13-18 PAЗP. - MAT.HOMEP MФ. 003906 : C* ( ДЛЯ CDC608 - 0 ). 003907 : C* 31-35 - MAT.HOMEP ЛИCTA. 003908 : C* 37-40 - KOД OПEPAЦИИ. 003909 : C* 48-47 - ПЛOTHOCTЬ ЗAПИCИ 003910 : C* (ECЛИ HE YKAЗAHA ПPИ ЗAKAЗE MЛ) 003911 : C* 24 - TECTOBЫЙ PEЖИM 003912 : C* (БEЗ ПOBTOPEHИЯ OБMEHA). 003913 : C* 2. ДЛЯ MФ CDC608 : 003914 : C* 46 - TИП ЧETHOCTИ (BCD ИЛИ BIN) 003915 : C* 45 - OБMEH 256 CЛOB, ИHAЧE 512. 003916 : C* 3. ДЛЯ MAГHИTOФOHOB EC : 003917 : C* 23 - ЧTEHИE C HAЛOЖEHИEM 003918 : C* 22 - БЛOK.ЗAПИCИ B MOЗY OШ.БAЙTA 003919 : C* 21 - OБMEH ПO 80 (160) БAЙTOB. 003920 : C* 19 - OБMEH ЛИCTOM, ИHAЧE CEKTOPOM 003921 : C* (ПPИ "0" B 1-12 PAЗPЯДAX). 003922 : C* 1-12 - OБMEH ЗAДAHHЫM ЧИCЛOM CЛOB. 003923 : C* 27-25 - KOЛ. HEИCП. БAЙTOB 003924 : C* ( ECЛИ HE "0" B 12-1 P. ) 003925 : C* 003926 : C******************************************* 003927 : C* 003928 : C* K O Д Ы O П E P A Ц И Й : 003929 : C* --------------------------- 003930 : C* 0 - OПPOC COCTOЯHИЯ 003931 : C* 1 - ЧTEHИE 003932 : C* 2 - ЗAПИCЬ 003933 : C* 3 - ШAГ HA ЗOHY BПEPEД (ШЗB) 003934 : C* 4 - ШAГ HA ЗOHY HAЗAД (ШЗH) 003935 : C* 5 - ПOИCK MAPKEPA BПEPEД (ШГЗB) 003936 : C* 6 - ПOИCK MAPKEPA HAЗAД (ШГЗH) 003937 : C* 7 - ПEPEMOTKA 003938 : C* 8 - ПEPEMOTKA C PAЗГPYЗKOЙ 003939 : C* 9 - ЗAПИCЬ MAPKEPA (ЗПMГЗ) 003940 : C* 10 - CTИPAHИE 003941 : C* 003942 : C******************************************* 003943 : C* 003944 : C* HA BЫXOДE ИЗ ЭKCTPAKOДA И.P.14 003945 : C* COДEPЖИT KOЛИЧECTBO ПPOЧИTAHHЫX 003946 : C* (ЗAПИCAHHЫX) CЛOB. 003947 : C* CYMMATOP HA BЫXOДE : 003948 : C* 48-25 - CЧETЧИK PEKOPДOB 003949 : C* 16-1 - PEГИCTP COCTOЯHИЯ MФ. 003950 : C* 003951 : C******************************************* 003952 : C* БИTЫ PEГИCTPA COCTOЯHИЯ : 003953 : C* 16 - БЫЛ ПPOГPAMMHЫЙ CБPOC ("KДB") 003954 : C* 15 - БЫЛA OШИБKA ПPИ ЧTEHИИ ЦKC 003955 : C* 14 - ПPИЗHAK ПEPEПOЛHEHИЯ БAYC-A 003956 : C* 13 - БЫЛ CБOЙ ПPИ ЗAПИCИ 003957 : C* 12-11 - PEЗEPB 003958 : C* 10 - COCTOЯHИE ДBИЖEHИЯ HAЗAД 003959 : C* 9 - COCTOЯHИE ПEPEMOTKИ 003960 : C* 8 - ГOTOBHOCTЬ (ГT) 003961 : C* 7 - COCTOЯHИE ДBИЖEHИЯ (CДB) 003962 : C* 6 - HET ЗAЩИTЫ ЗAПИCИ (HЗЗ) 003963 : C* 5 - KOHEЦ ЛEHTЫ (KЛ) 003964 : C* 4 - CЧИTAH (ЗAПИCAH) MAPKEP (MГЗ) 003965 : C* 3 - HAЧAЛO ЛEHTЫ (HЛ) 003966 : C* 2 - OШИБKA ПPOДOЛЬHOГO KOHTPOЛЯ (OПK) 003967 : C* 1 - OШИБKA ЧETHOCTИ БAЙTA (OЧБ) 003968 : C* 003969 : C****************************************** 003970 : C* 003971 : ''''''''''''''''''''''''''''''''''''''''' 003972 : ' ' 003973 : ' ПPOГPAMMA OБCЛYЖИBAET TAKЖE ' 003974 : ' ЭKCTPAKOДЫ ,*57,1 И ,*57,4 ' 003975 : ' C ИHTEPФEЙCOM A.B.ГYCEBA. ' 003976 : ' ' 003977 : ''''''''''''''''''''''''''''''''''''''''' 003978 : ' 003979 : ' 003980 : *677:B,BLOCK,BITS,B48,B47,B46,B45 003981 : ,CONT,B44,B43,B42,B41,B40,B39 003982 : ,CONT,B38,B37,B36,B35,B34,B33 003983 : ,CONT,B32,B31,B30,B29,B28,B27 003984 : ,CONT,B26,B25,B24,B23,B22,B21 003985 : ,CONT,B20,B19,B18,B17,B16,B15 003986 : ,CONT,B14,B13,B12,B11,B10,B9 003987 : ,CONT,B8,B7,B6,B5,B4,B3,B2,B1 003988 : *YCЫ:LC,BLOCK,ГYC,RDSCAL 003989 : *ИПД:LC,BLOCK,(42),OUTJOBSC 003990 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 003991 : ,CONT,SAVI15,SAVI14,SAVI13 003992 : Д H З :LC,BLOCK,(1),BITJ,ZBITJ 003993 : TPHYS:,LC,1 003994 : STATUSMT:LC,BLOCK,(5),NEW(4),(6) 003995 : ,CONT,ДBECA(4),(1) 003996 : ,CONT,ШKEC(4) 003997 : ,CONT,(4),ШHГ(4) 003998 : ,CONT,MISTERX 003999 : SCALSTRA:LC,BLOCK,SBUC(6),SRJC(6) 004000 : TASKSTRA:LC,BLOCK,TBUC(6),TBUT(6),CSUMSTAT 004001 : DISREG:,LC,1 004002 : ABTIME:,LC,1 004003 : READSCAL:,LC,1 004004 : LISTSTRA:LC,BLOCK,WL1 004005 : COMPUT16:LC,BLOCK,CANYBY,(1),B11OFKUS 004006 : REWINDSC:LC,BLOCK,(1),ЗAKЗAП 004007 : TIMERS:LC,BLOCK,(4),MTTIMCNT(4) 004008 : CONTIME:LC,BLOCK,(6),TCDC608 004009 : YCTP:LC,BLOCK,(6),YCDC608 004010 : TABLEMT:LC,BLOCK,(16),T1MT(32),(16) 004011 : ,CONT,T2MT(32),(16),TANAM 004012 : BASEEC:,LC,1 004013 : C76000:,LC,1 004014 : C77777:,LC,1 004015 : C3777:,LC,1 004016 : C1777:,LC,1 004017 : C777:,LC,1 004018 : C377:,LC,1 004019 : C177:,LC,1 004020 : C77:,LC,1 004021 : BC1700:,SUBP, 004022 : C30:,EQU,BC1700+3 004023 : C60:,EQU,BC1700+6 004024 : B24/1:,LC,1 004025 : *CB:,LC, 004026 : B48/13:,EQU,*CB+4 004027 : *TLCONST:,LC, 004028 : B48/47:,EQU,*TLCONST+2 004029 : MASK12:,LC, 004030 : C7:,LC,1 004031 : *C:LC,BLOCK,C6 004032 : C3:,LC,1 004033 : ERRMACRO:,SUBP, 004034 : MФ ПЛOX:,SUBP, 004035 : TRAPHY:,SUBP, 004036 : TASKOFF:,SUBP, 004037 : NRESOFF:,SUBP, 004038 : NRECMT:,SUBP, 004039 : TYPEMT:,SUBP, 004040 : TRAINT:,SUBP, 004041 : RETURN :,SUBP, 004042 : NEWTA :,SUBP, 004043 : TIME10 :,SUBP, 004044 : PERMIR:,SUBP, 004045 : TRA TAPE:,SUBP, 004046 : A БAYC:,EQU,TYPEMT+6 004047 : MAXJOB:,EQU,=12 004048 : *TAKCA:LC,BLOCK,(8),COEF 004049 : C****************************************** 004050 : C ПOЛE B ИПЗ ЗAДAЧИ 004051 : *102:B,BLOCK,RLEN 004052 : *135:B,BLOCK,S14(0),S15,БAYC,S13 004053 : ,CONT,PAY(0),S32,SI(4),S(2) 004054 : ,CONT,STAT,AC 004055 : ,CONT,MT,B/UN,TYP,ПOB,JOB 004056 : ,CONT,PAGE,W/EXCH,RETURN/,TIME 004057 : C****************************************** 004058 : C 004059 : C БИTЫ PEГИCTPA COCTOЯHИЯ : 004060 : K Д B :,EQU,B16 004061 : Ц K C :,EQU,B15 004062 : ПБAYC :,EQU,B14 004063 : CБЗAП :,EQU,B13 004064 : ПЛOT :,EQU,B12 004065 : CДBH :,EQU,B10 004066 : ПPM :,EQU,B9 004067 : Г T :,EQU,B8 004068 : C Д B :,EQU,B7 004069 : H З З :,EQU,B6 004070 : K Л :,EQU,B5 004071 : M Г З :,EQU,B4 004072 : H Л :,EQU,B3 004073 : OПK :,EQU,B2 004074 : OЧБ :,EQU,B1 004075 : C 004076 : SC/BCC:,EQU,=:3744 004077 : SC/BWM:,EQU,=:0260 004078 : C 004079 : C***** PAЗHЫE БYДИЛЬHИKИ : 004080 : BIG TIM :,EQU,=240.ПPOXOД ЗOHЫ 004081 : CLE TIM :,EQU,B5.CTИPAHИE 004082 : SMALLTIM :,EQU,B4.PEBEPC 004083 : C 004084 : C***** ДИAГHOCTИKA : 004085 : C 004086 : ЧYЖ MЛ :,EQU,18 004087 : ЗAПPЗП :,EQU,21 004088 : ПЛOXЭK :,EQU,14 004089 : C 004090 : C***** PEГИCTPЫ : 004091 : C 004092 : 1:EQ,BLOCK,U,TY,BA,RR,R 004093 : ,CONT,F,L,JN,RT,DC(0),IF 004094 : ,CONT,A,N,I(0),J,C(0),M,ST 004095 : C 004096 : C 004097 : B:,WTC,ГYC.ПPЯЧEM 004098 : ST,VTM,S15.BCE 004099 : ,XTA,SAVI15.ЧTO 004100 : ,XTS,.MOЖEM 004101 : ,XTS,SAVI13.B ИПЗ 004102 : ,ITS,32B 004103 : ,AOX,SAVSR 004104 : ,ITS,RR 004105 : ,ITS,BA 004106 : ,ITS,TY 004107 : ,ITS,U 004108 : M,MTJ,BA 004109 : BA,REL,B.******* 004110 : ,ITS,BA 004111 : ,ATX,BASEEC 004112 : ,XTA,DISREG 004113 : ,ATI,27B 004114 : ,NTR,3 004115 : ,XTA, 004116 : ST,ATX,W/EXCH-S 004117 : ST,ATX,PAGE-S 004118 : ST,ATX,RLEN-S 004119 : ,XTA,SAVI14 004120 : ,U1A,OT ГYCEBA 004121 : ,XTA,SAVAC.ПOCMOTPИM 004122 : :,24,3.ЧTO ПOДAЛИ 004123 : ST,ATX,AC-S 004124 : C+++ FOR HAPA +++ 004125 : ,AAX,C3777.ДЛИHA 004126 : ,UZA,HAЧAЛO.HE ЗAДAHA 004127 : ,X-A,B11.ДOП. KOД 004128 : ,U1A,ERR4.>2000B 004129 : ,ASN,64-12 004130 : ,AEX,B12 004131 : ST,ATX,RLEN-S.KYC ГOTOB 004132 : ST,XTA,AC-S 004133 : ,ASN,64+24 004134 : ,AAX,C7.UBC 004135 : ,UZA,HAЧAЛO.ПOЛHOE CЛOBO 004136 : ,ATI,M 004137 : ,A-X,C6 004138 : ,UZA,ERR4.MHOГOBATO 004139 : M,XTA,B6 004140 : ,AEX,B11 004141 : ST,AEX,RLEN-S 004142 : ST,ATX,RLEN-S 004143 : C+++ END HAPA +++ 004144 : HAЧAЛO:ST,XTA,AC-S 004145 : TY,VTM,.CDC 004146 : J,VTM, 004147 : ,ASN,64+12 004148 : ,AAX,C77.HOM. MЛ 004149 : ,UZA,TCDC.CDC-608 004150 : ,XTS,ДHЗ.ИЩEM 004151 : ,ASN,64-6.ЛEHTY 004152 : ST,AOX, 004153 : ,ASN,64-36 004154 : U,VTM,-31 004155 : ST,ATX,1.B БPЗ 004156 : STAP:U,XTA,T1MT+31 004157 : ST,AEX,1 004158 : ,AAX,MASK12 004159 : ,UZA,ISTAP.HAШЛИ 004160 : U,VLM,STAP 004161 : ERR1:,BSS, 004162 : ERR2:M,VTM,ЧYЖ MЛ 004163 : ,UJ,ERROR 004164 : ERR3:M,VTM,ЗAПPЗП 004165 : ,UJ,ERROR 004166 : ERR4:M,VTM,ПЛOXЭK 004167 : ,UJ,ERROR 004168 : C 004169 : C--- 004170 : C 004171 : C... KYC OБMEHA CDC608 : 004172 : E CDC:,BSS, 004173 : ,AAX,B48/13 004174 : ST,ATX,AC-S.ПPOЧИCTKA 004175 : ,ASN,64+40 004176 : ,AAX,C60.BCD+LEN 004177 : ,AOX,B7.CDC 004178 : ,UJ,FORMWEX 004179 : C... COCTOЯHИE CDC608 : 004180 : S CDC:,BSS, 004181 : ,EXT,4101B 004182 : ,UJ,S1 004183 : C... KBY-ПAPAMETPЫ CDC608 : 004184 : T CDC:,BSS, 004185 : ,XTA,TYPEMT+4.MЫ HE B 004186 : ,UZA,ERR4.ДYБHE 004187 : U,VTM,40B 004188 : ,XTA,YCDC608 004189 : ,U1A,T1CDC 004190 : U,ATX,T2MT-30B 004191 : ,XTA,ГYC 004192 : ,ATX,YCDC608 004193 : T1CDC:,AEX,ГYC 004194 : ,ASN,64+42 004195 : ,U1A,ERR2 004196 : ,XTA,B12.BЫБOPKA 004197 : ,EXT,130B.MФ CDC 004198 : C,VTM,4. 004199 : U,XTA,B48-10B 004200 : ,AOX,ЗAKЗAП 004201 : ,ATX,ЗAKЗAП 004202 : ,UJ,DENSITY 004203 : C------------ 004204 : ISTAP:U,UTM,30B+31.ФИЗ.HOMEP 004205 : ,ITA,U. MФ 004206 : ,ASN,64+3 004207 : ,ATI,C.HAПPABЛEHИE 004208 : C,XTA,ШKEC-3 004209 : ,UZA,ERR2.HE EC 004210 : TY,VTM,15.EC5012 004211 : ,ARX, 004212 : ,U1A,DENSITY 004213 : TY,VTM,30.EC5017 004214 : J,VTM,-1 004215 : C--- 004216 : C ECЛИ ПЛOTHOCTЬ HE OБЬЯBЛEHA 004217 : C ПPИ ЗAKAЗE MЛ EC, ИCПOЛЬЗYEM 004218 : C 48-47 PAЗPЯДЫ ИHФ.CЛOBA : 004219 : C--- 004220 : DENSITY:,BSS, 004221 : ,XTA,B11 004222 : ,AOX,B10 004223 : U,AAX,T1MT-30B 004224 : J,ASN,64 004225 : ,U1A,TYPMT 004226 : ST,XTA,AC-S 004227 : ,AAX,B48/47 004228 : J,ASN,64+37 004229 : C 004230 : C--- 004231 : C 004232 : TYPMT:,BSS, 004233 : ST,ATX,ПOB-S.CЧ-K + ПЛOTH. 004234 : ,ITA,TY 004235 : ST,ATX,TYP-S.XPAHИM TИП 004236 : SOS:RR,VJM,SOST 004237 : ST,XTA,AC-S 004238 : ,ASN,64+36.TAЩИM 004239 : ,AAX,C377.JOB 004240 : ST,ATX,JOB-S 004241 : ,UZA,EXIT.' OПPOC ' 004242 : ,X-A,MAXJOB 004243 : ,U1A,ERR4 004244 : C 004245 : C... ПPOБA: HE ИДET ЛИ ПEPEMOTKA 004246 : C 004247 : U,XTA,T2MT-30B 004248 : ,AAX,C/ПEP 004249 : ,AEX,C/ПEP 004250 : ,U1A,HEПEP 004251 : TY,VIM,HEПEP.ПPOПYCTИM EC 004252 : ST,XTA,STAT-S 004253 : ,AEX,C Д B. NOT 004254 : ,AAX,C Д B. "BUSY" 004255 : ,ASN,64-26 004256 : U,AEX,T2MT-30B 004257 : U,ATX,T2MT-30B 004258 : ,*57,3.ЖДEM KOHЦA 004259 : C,VTM,4.ПEPEMOTKИ 004260 : ,UJ,SOS 004261 : HEПEP:,BSS, 004262 : RR,VTM,FIN-B 004263 : ST,XTA,JOB-S 004264 : ,X-A,B2.' OБMEH ' 004265 : ,U1A,MOVONLY 004266 : ,ASN,64-17 004267 : ,U1A,READ 004268 : ,XTA,ЗAKЗAП.MOЖHO 004269 : U,AAX,B48-10B.ЛИ ПИCATЬ 004270 : ,UZA,ERR3 004271 : ,XTA, 004272 : READ:ST,ATX,W/EXCH-S 004273 : ,ASN,64-1.18 B 19 004274 : ST,AOX,W/EXCH-S 004275 : ST,ATX,W/EXCH-S 004276 : ST,XTA,AC-S 004277 : TY,VZM,ECDC 004278 : C+++ FOR HAPA +++ 004279 : ,AAX,=2500 0000.B HAPE 004280 : ST,ATX,.ПPИЗHAK 004281 : ,AAX,B19.OБMEHA ЛИCTOM 004282 : ,ASN,64+16. - БИT 3 004283 : ST,AOX, 004284 : ,AOX,B4.ПPИЗH."EC" 004285 : C+++ END HAPA +++ 004286 : FORMWEX:,BSS, 004287 : ST,AOX,W/EXCH-S 004288 : ,XTS,ГYC 004289 : ,AAX,=:77 004290 : ST,AOX, 004291 : ST,ATX,W/EXCH-S.B KYC 004292 : ,ASN,64-30.18 B 48 004293 : :,24,2003B 004294 : ,AUX,BITJ 004295 : ,AOX,READSCAL 004296 : ,ATX,READSCAL 004297 : ST,XTA,AC-S 004298 : ,ASN,64+20 004299 : ,AAX,C76000 004300 : ,ATI,M 004301 : ,ASN,64+10 004302 : ,ATI,J.MAT.ЛИCT 004303 : :,24 ,2000B 004304 : M,XTA, 004305 : :,24,2003B 004306 : ,XTA,ZBITJ 004307 : ,AAX,READSCAL 004308 : ,ATX,READSCAL 004309 : ,WTC,ГYC 004310 : J,XTA,30B.TMATH 004311 : ,ASN,64+30 004312 : ,AAX,C177 004313 : ,ATI,M.HOM. ФИЗ. 004314 : ST,ATX,PAGE-S.ЛИCTA 004315 : ,XTS,B1.ФИKCИPYEM 004316 : M,AOX,TPHYS 004317 : M,STX,TPHYS 004318 : :,24,3 004319 : ,ASN,64-41.B KYC 004320 : ,AUX,MSKP.OБMEHA 004321 : ST,AOX,W/EXCH-S 004322 : ST,ATX,W/EXCH-S 004323 : RR,VTM,ANAL-B 004324 : MOVONLY:,BSS, 004325 : ST,WTC,JOB-S 004326 : ,XTA,TABMOV-1 004327 : ,AAX,B46.ПOИCK MГЗ 004328 : ,UZA,NOEOF 004329 : ST,XTA,JOB-S.ЗAMEHA 004330 : ,A-X,B2.ШГЗB,ШГЗH 004331 : ST,ATX,JOB-S.HA ШЗB,ШЗH 004332 : RR,VTM,CHMF-B 004333 : NOEOF:BA,J+M,RR 004334 : ,ITA,RR 004335 : ST,ATX,RETURN/-S 004336 : ST,MTJ,J 004337 : ,ITA,U.ФOPMИPOBKA 004338 : ,ASN,64-42.KYC-A 004339 : ,AUX,=0070 0000 0000 1600 004340 : ST,AOX,W/EXCH-S.(БEЗ ДHЗ) 004341 : ,XTS,BASEEC 004342 : ,ASN,64-24.AДPECA 004343 : ,AOX,BASEEC.ПPOЦEДYP 004344 : TY,VIM,NO DEL 004345 : ,ARX,B2.CM.ЗAПYCK 004346 : NO DEL:,BSS, 004347 : ,ARX,ADR2 004348 : ,ITS,J 004349 : ,AOX,=:007 004350 : ST,MTJ,J 004351 : ST,ATX,.B "STAT" ! 004352 : M,VJM,TRAPHY 004353 : ST,UTM,-3 004354 : ST,XTA,JOB-S 004355 : EXIT:,24,3 004356 : ,AEX,B4. П И P 004357 : ,AAX,C77777 004358 : ,U1A,ИCXOД1 004359 : C... ПOCЛE PAЗГPYЗKИ MФ - OTKAЗ 004360 : C И ГAШEHИE ИMEHИ MЛ B TAБЛИЦE 004361 : U,ATX,TANAM-30B 004362 : ,XTA,DISREG 004363 : ,ATI,27B 004364 : U,XTA,T1MT-30B 004365 : ,ASN,64+36 004366 : ,AAX,C77 004367 : ,UZA,ИCXOД1 004368 : ,ATI,M 004369 : M,XTA,B48-30B 004370 : ,*57,4000B 004371 : U,XTA,B48-30B 004372 : ,AAX,TYPEMT+7.NORECTP 004373 : ,AOX,MISTERX 004374 : ,ATX,MISTERX 004375 : ИCXOД1:,BSS, 004376 : :,24 ,3 004377 : ST,XTA,S14-S 004378 : ,ASN,64+15 004379 : ,U1A,K ГYCEBY 004380 : ИCXOД:,24,2003B 004381 : U,XTA,T2MT-30B 004382 : ,ASN,64-24 004383 : ST,AOX,STAT-S 004384 : ,ATX,SAVAC 004385 : ST,WTC,PAGE-S 004386 : M,VTM, 004387 : M,XTA,TPHYS 004388 : ,AOX,B1.PACФИKCИPYEM 004389 : ,AEX,B1.ЛИCT 004390 : M,STX,TPHYS 004391 : ,STI,U.BOCCTAHOBЛEHИE 004392 : ,STI,TY.ИЗ ИПЗ 004393 : ,STI,BA.BCEГO 004394 : ,STI,RR 004395 : ,STI,33B 004396 : ,MTJ,27B 004397 : ,STI,J 004398 : ,STI,M 004399 : ST,XTR,PAY- S15 004400 : ,ATI,ST 004401 : ,WTC,BASEEC 004402 : ,XTA,RETNR-B 004403 : ,UJ,NRESOFF 004404 : RETNR:,Z00,NRECMT 004405 : ,Z00,RETURN 004406 : C======================= 004407 : ADR2:,BSS, 004408 : ,Z00,KOHЗOH - B 004409 : ,Z00,ЗAПYCK - B 004410 : C======================= 004411 : C======================= 004412 : C PAБOTA OT TRAM70 004413 : C ЗAДAHЫ: 004414 : C U - HOMEP YCTPOЙCTBA 004415 : C C - KBY-HAПPABЛEHИE 004416 : C DC - YBY-HAПPABЛEHИE 004417 : C I - OБP.KOД HOMEPA B HAПP. 004418 : C N - ИHДEKC ЗAKAЗA B WL 004419 : C JN - ДHЗ ЗAKAЗЧИKA 004420 : C RT - BOЗBPAT 004421 : C----------------------------- 004422 : ЗAПYCK:,24,2003B 004423 : ,WTC,BASEEC 004424 : ,XTA,B48/25 - B 004425 : R,CALL,LSOSTEC 004426 : C><><><><><> ЗДECЬ BXOД ДЛЯ CDC608 <><><><> 004427 : :,24,3 004428 : ,UTC,ЗAПYCK1-KOHЗOH1 004429 : KOHЗOH:RR,VTM, 004430 : ,WTC,BASEEC 004431 : BA,VTM, 004432 : JN,WTC,*YCЫ 004433 : ST,VTM,S.ИПЗ 004434 : ST,WTC,JOB-S 004435 : F,VTM, 004436 : ST,XTA,TYP-S 004437 : ,ATI,TY.TИП MФ 004438 : ,U1A,CHNRD 004439 : ,ATX,TCDC608 004440 : CHNRD:,BSS, 004441 : N,XTA,WL1-1.MOЖET 004442 : ,AAX,B7.БЫЛA 004443 : ,UZA,SOST/.ПOTEPЯ 004444 : N,AEX,WL1-1.ГOTOBHOCTИ 004445 : N,ATX,WL1-1 004446 : RR,VTM,ЗAПYCK1-KOHЗOH1 004447 : SOST/:,BSS, 004448 : RR,UTM,KOHЗOH1 004449 : C----OПPOC COCTOЯHИЯ MФ-- 004450 : SOST:,BSS, 004451 : ,ITA,J 004452 : ST,ATX,STAT-S 004453 : TY,VZM,SCDC.CDC-608 004454 : U,XTA,T2MT-30B 004455 : ,ASN,64+24 004456 : S1:,AAX,C77777 004457 : J,VTM,-14 004458 : U,XTS,T1MT-30B 004459 : ,AAX,B12.' KДB ' 004460 : ,UZA,S2 004461 : U,AEX,T1MT-30B.ГACИM 004462 : U,ATX,T1MT-30B 004463 : ,XTA,B16 004464 : S2:J,XTS,TABN+14 004465 : TY,ASN,64 004466 : ST,AAX,-2 004467 : ,UZA,S3 004468 : J,XTA,B1 004469 : S3:ST,AOX, 004470 : J,VLM,S2 004471 : ST,UTM,-1 004472 : ST,WTC,STAT-S 004473 : J,VTM, 004474 : ST,ATX,STAT-S.B ИПЗ 004475 : RR,UJ, 004476 : ЗAПYCK1:,XTA,OUTJOBSC 004477 : JN,AAX,BITS.MOЖET YЖE 004478 : ,U1A,KPAHTЫ.BЫKИHYЛИ 004479 : ST,XTA,STAT-S 004480 : ,AAX,ГT 004481 : ,UZA,NOREADY 004482 : F,XTA,TABMOV-1 004483 : ,AAX,B47.ПPИЗHAK 004484 : ,ASN,64+44.ШЗH,ШГЗH,ПPM 004485 : ST,AAX,STAT-S 004486 : ,U1A,BEGTAP 004487 : F,ARX,TABMOV-1.48-ПPИЗHAK 004488 : ,U1A,CHDIR.ПPM,ПИP 004489 : TY,ASN,64 004490 : ,AAX,C77777 004491 : TY,V1M,REWIND 004492 : ,UTC,20B.CDC 004493 : REWIND:U,EXT,50B.ПEPEMOTKA 004494 : ,ATI, 004495 : ,XTA,C/ПEP 004496 : BEGTAP:U,AOX,T2MT-30B 004497 : ,AAX,B48/25.ЧИCTИM 004498 : U,ATX,T2MT-30B 004499 : ,UJ,KPAHTЫ 004500 : CHDIR:,BSS, 004501 : F,XTA,B48 004502 : ,AAX,SC/BCC 004503 : ,UZA,EXCH 004504 : ,AAX,SC/BWM 004505 : :,UZA,*+1 004506 : ,UTC,B24/1-B1 004507 : ,XTA,B1 004508 : U,ARX,T2MT-30B 004509 : U,AEX,T2MT-30B 004510 : ,AAX,B24/1 004511 : U,AEX,T2MT-30B 004512 : U,ATX,T2MT-30B 004513 : EXCH:ST,XTA,W/EXCH-S 004514 : ,UZA,ПYCKEC 004515 : C+++ FOR HAPA +++ 004516 : ST,XTA,RLEN-S 004517 : ,UZA,EXCH1 004518 : ,EXT,16B.(16B) 004519 : C+++ END HAPA +++ 004520 : EXCH1:ST,XTA,W/EXCH-S 004521 : ,AOX,B11OFKUS 004522 : C,ATX,TBUC-1 004523 : DC,EXT,.OБMEH 004524 : ,ATI, 004525 : N,XTA,BITS 004526 : C,ATX,SBUC-1 004527 : ,UJ ,ПYCKEC 004528 : MOVE1:,BSS, 004529 : ,ITA,RR 004530 : ST,ATX,RETURN/-S 004531 : ПYCKEC:,BSS, 004532 : F,XTA,TABMOV-1 004533 : TY,ASN,64 004534 : ,AAX,C77777 004535 : ,AOX,B24.CБPOC ГPП 004536 : ST,AOX,ПOB-S. + DENS 004537 : :,24 ,2003B 004538 : TY,VIM,MOVE2 004539 : R,VTM,TIMER608 004540 : ,ITS,R 004541 : ,STX,TCDC608 004542 : ,UTC,20B 004543 : MOVE2:,BSS, 004544 : U,EXT,50B.ПOEXAЛИ 004545 : ,XTA,ABTIME 004546 : ST,ATX,TIME-S 004547 : ,ASN, 004548 : TY,VZM,MOVE3 004549 : ,ASN, 004550 : R,CALL,LSOSTEC1 004551 : C,XTA,NEW-3 004552 : I,AAX,B16 004553 : ,U1A,NOREADY 004554 : I,XTA,B8 004555 : MOVE3:,BSS, 004556 : C,ATX,ДBECA-3 004557 : I,XTA,B8 004558 : C,AOX,CSUMSTAT-1 004559 : C,ATX,CSUMSTAT-1 004560 : ,XTA,BIG TIM 004561 : C,ATX,MTTIMCNT-3 004562 : :,24 ,3 004563 : RT,UJ,.B TRAM70 004564 : NOREADY:,24 ,2003B 004565 : M,MTJ,RR 004566 : ,XTA,B7 004567 : N,AOX,WL1-1.ПP-K 004568 : N,ATX,WL1-1.HEГOTOB 004569 : ,ITA,U.HOM. MФ 004570 : R,VTM,3 004571 : M,VTM,AFTPR 004572 : TY,VIM,MФ ПЛOX 004573 : M,VTM,WAITRD 004574 : ,ITA,M 004575 : ,ATX,TCDC608 004576 : M,VTM,TNR608 004577 : ,ITA,M 004578 : M,CALL,TTPRINT1 004579 : AFTPR:,BSS, 004580 : RR,MTJ,M 004581 : I,XTA,B8 004582 : C,AOX,ШHГ-3 004583 : C,ATX,ШHГ-3 004584 : :,24,3 004585 : C,XTA,TBUC-1 004586 : RT,UZA, 004587 : C,XTA,SBUC-1 004588 : N,AEX,BITS 004589 : RT,U1A, 004590 : C,ATX,TBUC-1 004591 : C,ATX,SBUC-1 004592 : DC,XTA,B5-3 004593 : ,EXT,31B 004594 : RT,UJ, 004595 : C========================== 004596 : C ПO KOHЦY ДBИЖEHИЯ 004597 : C-------------------------- 004598 : KOHЗOH1:,BSS, 004599 : ,NTR,2 004600 : ,XTA,ABTIME.ДOБABKA K 004601 : ST,A-X,TIME-S.KOMMEP. 004602 : ,A*X,COEF 004603 : ST,A+X,110B-S.BPEMEHИ 004604 : ST,ATX,110B-S.ЗAДAЧИ. 004605 : R,VTM,2 004606 : C,XTA,SBUC-1 004607 : N,AEX,BITS 004608 : ,U1A,NO RBUS 004609 : C,XTA,TBUC-1 004610 : ,UZA,NO RBUS 004611 : ,AAX,B18 004612 : ,ASN,64+17 004613 : ,ATI,R.0,1 004614 : ,XTA, 004615 : C,ATX,TBUC-1 004616 : C,ATX,SBUC-1 004617 : ,EXT,4036B 004618 : TY,VZM,LEN.CDC 004619 : ,WTC,AБAYC 004620 : ,EXT, 004621 : ,ASX,AБAYC 004622 : LEN:,BSS, 004623 : ,AAX,C1777.ПPИ БAYC=0 004624 : ,U1A,B БAYC. ДEЛAEM 004625 : ,XTA,B11.БAYC=1024 004626 : B БAYC:ST,ATX,БAYC-S 004627 : ,ATI,L 004628 : DC,XTA,B8.YCTAHOBKA 004629 : ,EXT,31B.PБYC-5(6) 004630 : NO RBUS:,BSS, 004631 : ,NTR,3 004632 : ST,XTA,STAT-S 004633 : ,AAX,=17 6777.ДOЛOЙ CДBH 004634 : R,AAX,CLERS.ПPOЧИCTKA 004635 : ST,ATX,STAT-S.ПAPAЗИTOB 004636 : ,AAX,ГT 004637 : ,UZA,FIN 004638 : ST,WTC,RETURN/-S.ПEPEKЛЮЧATEЛЬ 004639 : ,UJ, 004640 : C.....KOHEЦ OБMEHA..... 004641 : ANAL:,BSS, 004642 : A,VTM,70000B-1 004643 : ST,XTA,W/EXCH-S 004644 : ,AAX,B23 004645 : ,UZA,NO LOOK 004646 : N,XTA,WL1-1 004647 : F,CALL,ABCHT 004648 : NO LOOK:,24,3 004649 : ST,XTA,STAT-S 004650 : ,AAX,=100030.KДB+EOF+EOT 004651 : ,U1A,FIN 004652 : ST,XTA,W/EXCH-S 004653 : ,AAX,B18 004654 : ,UZA,WW 004655 : U,XTA,T1MT-30B 004656 : C... ПPOБA: DENS=H .AND. STATUS=7 004657 : ,AAX,=2016 004658 : ,AEX,=2016.CЧИTATЬ ЦKC 004659 : ,U1A,OKKS.-HET 004660 : ,ATX,KSUM 004661 : F,VTM,.ДЛЯ ИHBEPCИЙ 004662 : C 004663 : C.... ПOДCЧET 6 BAPИAHTOB ЦKC, T.K. 004664 : C MЫ HE ЗHAEM ЧИCЛO БAЙTOB B 004665 : C ПOCЛEДHEM CЧИTAHHOM CЛOBE. 004666 : C 004667 : L WORD:A,UTM,1 004668 : R,VTM,-5 004669 : :,24,2 004670 : A,XTA, 004671 : :,24,3 004672 : ,ATX,WORD 004673 : L SYM:,XTA,WORD 004674 : ,ASN,64-8 004675 : ,ATX,WORD 004676 : ,YTA, 004677 : ,ATX,SYMB 004678 : ,ACX,B1 004679 : ,ASN,64-8 004680 : ,AOX,SYMB 004681 : ,AAX,C777 004682 : ,AEX,KSUM 004683 : F,AEX,.ИHBEPCИЯ 3-6 P. 004684 : ,ASN,64+1 004685 : ,ATX,KSUM 004686 : ,YTA, 004687 : ,AEX, 004688 : ,UZA,NO INV 004689 : ,XTA,B9 004690 : ,UTC,=74 004691 : NO INV:F,VTM, 004692 : ,AOX,KSUM 004693 : ,ATX,KSUM 004694 : R,ATX,KSUM6+5 004695 : R,VLM,L SYM 004696 : L,UTM,-1 004697 : L,VIM,L WORD 004698 : C 004699 : C..... CPABHEHИE C ЦKC, ПOЛYЧEHHOЙ 004700 : C ИЗ KMЛ ( 16-24 P. TBUT ) 004701 : C 004702 : :,XTA,SYMB.ECЛИ 004703 : ,U1A,*+1.ПOCЛEДHИЙ 004704 : ,UTC,-5.БAЙT ПYCT 004705 : :A,VTM,.ЦKC=KSUM6(6) 004706 : C,XTA,TBUT-1 004707 : ,ASN,64+15 004708 : ,AEX,=727 004709 : ,ATX,KSUM 004710 : ,AAX,B9 004711 : ,UZA,CHKS 004712 : ,XTA,=74 004713 : ,AEX,KSUM 004714 : ,ATX,KSUM 004715 : CHKS:,XTA,KSUM 004716 : A,AEX,KSUM6+5 004717 : ,AAX,C777 004718 : ,UZA,OKKS 004719 : A,VLM,CHKS 004720 : C... ПPИ HECOBПAДEHИИ BЫДAEM "OЧБ" 004721 : ,XTA,OЧБ 004722 : ST,AOX,STAT-S 004723 : ST,ATX,STAT-S 004724 : OKKS:,UTC,ЦKC-CБЗAП.ПPИ ЧTEHИИ 004725 : WW:,XTA,CБЗAП.ПPИ ЗAПИCИ 004726 : ,AOX,C3.OПK+OЧБ 004727 : ST,AAX,STAT-S 004728 : ,UZA,FIN.O'KEY 004729 : ST,XTA,AC-S 004730 : ,AAX,B24.TECTOBЫЙ 004731 : ,U1A,FIN.PEЖИM 004732 : ST,XTA,ПOB-S.CЧETЧИK 004733 : ,ARX,B45.ПOBTOPHЫX 004734 : ST,ATX,ПOB-S.OБMEHOB 004735 : ,UZA,FIN. - ЛOПHYЛ 004736 : N,XTA,BITS 004737 : C,AEX,SRJC-1 004738 : C,ATX,SRJC-1 004739 : F,VTM,4.ШЗH 004740 : RR,VJM,MOVE1 004741 : C...BEPHYЛИCЬ HA ЗOHY.. 004742 : C...TEПEPЬ OПЯTЬ OБMEH. 004743 : C...ПPИ ЧTEHИИ ИЛИ..... 004744 : C..CTИPAHИE ПPИ ЗAПИCИ 004745 : ST,XTA,W/EXCH-S 004746 : ,AAX,B18 004747 : ,U1A,REP/EXCH 004748 : F,VTM,10.CLEAR 004749 : RR,VJM,MOVE1 004750 : REP/EXCH:,BSS, 004751 : RR,VTM,ANAL 004752 : ,ITA,RR 004753 : ST,ATX,RETURN/-S 004754 : N,XTA,BITS 004755 : C,AOX,SRJC-1 004756 : C,ATX,SRJC-1 004757 : RT,UJ,.B TRAM70 004758 : C....ПOИCK MГЗ...... 004759 : CHMF:,BSS,.JOB=3,4 004760 : F,UTM,-3.0,1 004761 : F,J+M,F.0,2 004762 : ,XTA,=100010 004763 : F,AOX,KЛ."KЛ" ИЛИ "HЛ" 004764 : ST,AAX,STAT-S 004765 : RT,UZA,.HET MF 004766 : C--------- 004767 : KPAHTЫ:,BSS, 004768 : FIN:,24,2003B 004769 : JN,XTA,BITS 004770 : ,AOX,RDSCAL 004771 : ,ATX,RDSCAL 004772 : RT,VTM,TRAINT 004773 : ,UJ,TASKOFF 004774 : C 004775 : C... PAБOTA OT ПPEPЫBAHИЙ ПO 10 P. ГPП : 004776 : C 1. OЖИДAHИE ГOTOBHOCTИ CDC608 004777 : WAIT RD:,EXT,4101B 004778 : ,AAX,B8 004779 : ,UZA,TIME10 004780 : ,XTA,ШHГ+1 004781 : ,AOX,B1 004782 : ,AEX,B1 004783 : ,ATX,ШHГ+1 004784 : ,XTA, 004785 : ,ATX,TCDC608 004786 : C,VTM,4 004787 : ST,CALL,TRA TAPE 004788 : ,U1A,RETURN 004789 : ,UJ,NEWTA 004790 : C... 2. БYДИЛЬHИK HA ПPOXOД ЗOHЫ 004791 : TIMER608:,XTA,MTTIMCNT+1 004792 : ,ARX,C377 004793 : ,AAX,C377 004794 : ,ATX,MTTIMCNT+1 004795 : ,U1A,TIME10 004796 : ,ATX,TCDC608 004797 : ,XTA,B12."KДB" 004798 : ,AOX,T1MT+10B 004799 : ,ATX,T1MT+10B 004800 : ,XTA,B13 004801 : ,EXT,130B 004802 : J,VTM,RETURN 004803 : ,XTA,B33.HA BCЯKИЙ 004804 : ,UJ,PERMIR.CЛYЧAЙ 004805 : C 004806 : C 004807 : ERROR:,24,2003B 004808 : ,WTC, Г Y C 004809 : ST,VTM, 004810 : ST,XTA,AC 004811 : ,ATX,SAVAC 004812 : ST,XTA,S13 004813 : ,ATX,SAVI13 004814 : ST,XTA,S15 004815 : ,ATX,SAVI15 004816 : ,ASN,64+15 004817 : ,ATX,SAVI14 004818 : ,UJ,ERRMACRO 004819 : ' 004820 : ' 004821 : ''''''''''''''''''''''''''''''''''''''''' 004822 : ' BCTABKA ПO ПOBOДY OБCЛYЖИBAHИЯ 004823 : ' ЭKCTPAKOДA 57 C AДPECAMИ 1 И 4. 004824 : ' BOЗHИKЛA OT HEЖEЛAHИЯ ПEPEПИCЫBATЬ 004825 : ' ПPOГPAMMЫ A.B.ГYCEBA B LIBRARY 2. 004826 : ''''''''''''''''''''''''''''''''''''''''' 004827 : ' 004828 : *0:,BLOCK,Г/MAT,Г/ФИЗ,Г/ЛИCT 004829 : ,CONT,Г/ПЛOT,Г/PAЗM,Г/BCD 004830 : ,CONT,Г/COC, Г/БAYC(2),Г/ЗOH(2) 004831 : ,CONT,Г/MOV, Г/EX(2) 004832 : ,CONT,Г/BPEM,Г/OШ 004833 : ' 004834 : OT ГYCEBA:,24,3 004835 : ,ASN,64-15 004836 : ST,AOX,S14-S 004837 : ST,ATX,S14-S 004838 : ,AAX,B16 004839 : ,U1A,Г/CDC 004840 : :,24, 004841 : TY,VTM,15.EC5012 004842 : IF,UTM,2.ПPИBEДEHИE 004843 : IF,XTA,Г/MAT 004844 : ,ATI,U 004845 : IF,XTA,Г/EX 004846 : :,24,3 004847 : C+++ FOR HAPA +++ 004848 : C--- ПEPBOЗДAHHЫE ПPOГPAMMЫ A.B.ГYCEBA 004849 : C--- HE YMEЛИ ПИCATЬ ЛИCTOM, A 19-Й 004850 : C--- PAЗPЯД KYCA BЫCTABЛЯЛИ BCEГДA. 004851 : C--- ПOЭTOMY B HAPE CTAЛИ ИCПOЛЬЗOBATЬ 004852 : C--- CBOБOДHЫЙ 3-Й PAЗPЯД, KAK ПPИЗHAK 004853 : C--- ЗAПИCИ ЛИCTOM. 004854 : ST,ATX, 004855 : ,AAX,B18.ЧИTAEM 004856 : ,ASN,64+15.BCEГДA 004857 : ST,AOX,.ЛИCT 004858 : ,APX,=2400 0004 004859 : ,AUX,=2500 0000 004860 : C+++ END HAPA +++ 004861 : ST,ATX,JOB-S 004862 : U,VIM,Г/XOP 004863 : C..... ЗAKAЗ - HA ФИЗ.OБMEH 004864 : :,24, 004865 : IF,XTA,Г/ФИЗ 004866 : :,24 ,3 004867 : ST,ATX,AC-S.ЛEГKO ЗAБЫTЬ 004868 : ,ATI,U .ПOДATЬ HOMEP MЛ 004869 : ,A-X,C30 004870 : ,ASN,64+5 004871 : ,U1A,ERR4 004872 : U,XTA,T1MT-30B 004873 : ,ASN,64+36 004874 : ,AAX,C77 004875 : ,ATI,U 004876 : Г/XOP:,BSS, 004877 : ,ITA,U 004878 : ,ASN,64-12 004879 : ST,AOX,JOB-S 004880 : ,UJ,Г 004881 : Г/CDC:,24, 004882 : IF,XTA,Г/EX 004883 : :,24,3 004884 : ,AAX,C60 004885 : ,ASN,64-40 004886 : TY,VTM,.CDC608 004887 : Г:,AOX,B24."TECT" 004888 : ST,ATX,AC-S 004889 : :,24 , 004890 : IF,XTA,Г/MOV 004891 : :,24 ,3 004892 : ST,ATX,JOB-S 004893 : C+++ FOR HAPA +++ 004894 : ,ASN,64+24.KYC ЗAKAЗA 004895 : ST,ATX,RLEN-S.ДЛИHЫ 004896 : C+++ END HAPA +++ 004897 : :,24, 004898 : IF,XTA,Г/EX 004899 : :,24 ,3 004900 : M,VTM,10 004901 : ,UZA,Г1 004902 : ,AAX,B18 004903 : :,U1A,*+1 004904 : ,UTC,1.ЗAПИCЬ 004905 : :M,VTM,1.ЧTEHИE 004906 : ,UJ,Г3 004907 : Г1:,BSS, 004908 : Г2:M,XTA,TABMOV-1 004909 : TY,ASN,64 004910 : ST,AEX,JOB-S 004911 : ,AAX,C777 004912 : TY,VZM,Г/C1.CDC 004913 : ,AAX,C377.M.Б. БEЗ "PREC" 004914 : Г/C1:,BSS, 004915 : ,UZA,Г3 004916 : M,UTM,-1 004917 : M,VIM,Г2 004918 : Г3:,ITA,M 004919 : ,ASN,64-36 004920 : ST,AOX,AC-S 004921 : ST,ATX,AC-S 004922 : ,XTA,ABTIME 004923 : ST,ATX,TIME-S 004924 : :,24 , 004925 : IF,XTA,Г/ЛИCT 004926 : ,ATI,M 004927 : IF,XTA,Г/MOV 004928 : :,24,3 004929 : ,ASN,64+9.DENS. B 1-2 004930 : ,ASN,64-26 004931 : ,ITS,M 004932 : ST,AOX, 004933 : ,ASN,64-20 004934 : ST,AOX,AC-S 004935 : ST,ATX,AC-S 004936 : ,UJ,HAЧAЛO 004937 : ' 004938 : K ГYCEBY:,NTR,2 004939 : U,XTA,T2MT-30B 004940 : ,ATI,M.ЗOHA 004941 : ST,XTA,STAT-S 004942 : ,AAX,C377 004943 : ,ATI,J.COCT 004944 : RR,VTM, 004945 : ,AAX,KЛ 004946 : :,UZA,*+1 004947 : RR,VTM,5 004948 : :ST,XTA,STAT-S 004949 : ,AAX,KДB 004950 : :,UZA,*+1 004951 : RR,VTM,3 004952 : :,XTA,ABTIME 004953 : ST,A-X,TIME-S 004954 : ,AEX,.B PMP 004955 : ST,XTA,БAYC-S 004956 : :,24 , 004957 : IF,ATX,Г/БAYC 004958 : ,YTA, 004959 : IF,ATX,Г/BPEM 004960 : ,ITA,RR 004961 : IF,ATX,Г/OШ 004962 : ,ITA,M 004963 : IF,ATX,Г/ЗOH 004964 : ,ITA,J 004965 : IF,ATX,Г/COC 004966 : :,24 ,3 004967 : TY,VZM,ИCXOД 004968 : ST,XTA,STAT-S 004969 : ,ASN,64-32 004970 : ,AUX,=3 37777 004971 : ,ITS,TY 004972 : ,AAX,B5.KBYMЛ 004973 : ,ASN,64-10 004974 : ST,AOX, 004975 : :,24 , 004976 : IF,ATX,Г/COC 004977 : ,ITA,U 004978 : IF,ATX,Г/ФИЗ 004979 : IF,UTM,-2.BOЗBPAT 004980 : ,UJ,ИCXOД 004981 : ' 004982 : ' 004983 : C************************** 004984 : C TAБЛИЦA KOMAHД (JOB) 004985 : C KYCЫ BCЯKИX ДBИЖEHИЙ 004986 : C 1-15.....ДЛЯ CDC-608 004987 : C 16-30.....ДЛЯ EC-5012 004988 : C 31-45.....ДЛЯ EC-5017 004989 : C 48-46 P. - BCПOMOГATEЛЬHЫE БИTЫ: 004990 : C 48 - ABTOHOMHOE ДBИЖEHИE 004991 : C 47 - ДBИЖEHИE HAЗAД 004992 : C 46 - ПOИCK MAPKEPA 004993 : C************************** 004994 : TABMOV:,BSS, 004995 : 1,LOG,0 20005 20401 00010.ЧTEH. 004996 : 2,LOG,0 20005 20401 00010.ЗAП. 004997 : 3,LOG,0 00005 00401 00010.ШЗB 004998 : 4,LOG,2 00011 00403 00014.ШЗH 004999 : 5,LOG,1 00021 00404 00050.ШГЗB 005000 : 6,LOG,3 00041 00410 00054.ШГЗH 005001 : 7,LOG,6 00401 00500 00200.ПPM 005002 : 8,LOG,4 01001 00600 00400.ПИP 005003 : 9,LOG,0 00101 00420 00030.ЗПMГЗ 005004 : 10,LOG,0 00201 00440 00100.CTИP 005005 : C**************************** 005006 : C**************************** 005007 : C...TAБЛИЦA БИTOB COCTOЯHИЯ.. 005008 : C ПO BEPTИKAЛИ - AHAЛOГИЧHO 005009 : TABN:,BSS, 005010 : 1,LOG, 20000 00000 00000.OШKC 005011 : 2,LOG, 10000 00000 00000.ПБAYC 005012 : 3,LOG, 02000 00000 00000.CБЗAП 005013 : 4,LOG, 00010 00000 01000.CHП,HDENS 005014 : 5,LOG, 00004 00000 00400.CB,LDENS 005015 : 6,LOG, 00002 00000 00000.CДBH 005016 : 7,LOG, 00400 00400 00100.ПPM 005017 : 8,LOG, 00200 00200 00200.ГT 005018 : 9,LOG, 00001 00100 00100.CДB 005019 : 10,LOG, 00020 00040 00040.HЗЗ 005020 : 11,LOG, 00100 00020 00020.KЛ 005021 : 12,LOG, 04000 00010 00010.MГЗ 005022 : 13,LOG, 00040 00004 00004.HЛ 005023 : 14,LOG, 01000 00002 00002.OШПK 005024 : 15,LOG, 40000 00001 00001.OШЧБ 005025 : C------------------------------- 005026 : B48/25:,OCT,77777777 005027 : C/ПEP:,OCT,0000 0600 005028 : MSKP:,LOG,1 4037 0000 005029 : TNR608:,ISO,18HNO READY CDC608'''''' 005030 : C 005031 : C..... MACKИ ПPOЧИCTKИ P.C. : 005032 : C 005033 : CLERS:,BSS, 005034 : ,LOG,1 37777.ЗAП:ЦKC 005035 : ,LOG,1 67777.ЧT:CБЗAП 005036 : ,LOG,1 07777.ДB:TE ЖE + ПБAYC 005037 : C 005038 : C... HEPAЗДYБЛИPOBAHHЫE ЯЧEЙKИ 005039 : C (ИCПOЛЬЗYЮTCЯ ПPИ PAБOTE OT TRAM70) 005040 : C 005041 : KSUM :,BSS,1 005042 : SYMB:,BSS,1 005043 : WORD :,BSS,1 005044 : KSUM6:,BSS,6 005045 : ,BSS, 005046 : ,END, 005047 : MACRO66 :,NAME, 005048 : SMASAV :LC,BLOCK,SAVAC 005049 : NRESCALL:,SUBP, 005050 : NRES66 :,SUBP, 005051 : *11:,BLOCK,L,R,J,M,S 005052 : ,ATX,SAVAC 005053 : ,UTC,CONST 005054 : ,XTA, 005055 : ,UJ ,NRESCALL 005056 : CONST:,Z00,NRES66 005057 : ,Z00,J 005058 : MOVE66:,ENTRY, 005059 : 'ПEPECЫЛKA ИЗ M B S MACCИBA 005060 : 'ДЛИHЫ 4*(-L)+(3-R)+1 005061 : M,XTA, 005062 : R,UTM,-3 005063 : L,VZM,SHRT 005064 : L,UTM,1 005065 : LOOP:,BSS, 005066 : M,XTS,1 005067 : M,XTS,2 005068 : M,UTM,4 005069 : M,XTS,-1 005070 : REST:,BSS, 005071 : M,XTS, 005072 : L,VLM,LOOP 005073 : SHRT:,BSS, 005074 : M,UTM,1 005075 : R,VLM,REST 005076 : S,ATX, 005077 : J,UJ , 005078 : ,END, 005079 : NRES066:,NAME,. ДYБHA - 81 005080 : ',,.+ HAPA - 84 005081 : C************************************* 005082 : C*HEPEЗИДEHT ЭKCTPAKOДA OБPAЩEHИЯ K CП 005083 : C* 005084 : C* BЫЗOB CП ПPOИЗBOДИTCЯ TAK 005085 : C* 13, VTM ,PAБ ПOЛE .CЮДA CЯДET CП 005086 : C*: , LIB ,INF .ИHФOPM.ДЛЯ CП 005087 : C* PI, ,HOMEP CП . 005088 : C* B PI ECTЬ B24 - CП БYДET BЫЗЫBATCЯ 005089 : C* ПOBTOPHO (COXPAHИTЬ) 005090 : C* B ЭTOM CЛYЧAE ИP13 005091 : C* YBEЛИЧИTCЯ HA ДЛИHY 005092 : C* CП ПOCЛE BOЗBPATA 005093 : C* B PI ECTЬ B23 - ЭTO COБCTBEHHAЯ CП 005094 : C* MATEMATИKA. OCTATOK 005095 : C* ПPABOЙ KOMAHДЫ - MAT. 005096 : C* AДPEC CП B ФOPMATE : 005097 : C* 005098 : C* B PI ECTЬ B22 - CПEЦИAЛЬHЫЙ PE- 005099 : C* ЖИM ДЛЯ ЧAЙKOBCKOГO. 005100 : C* INF - ДЛИHA MACCИBA ПOДЛEЖAЩEГO 005101 : C* OБMEHY, A ИP13 KYДA EГO ЧИTATЬ-6, 005102 : C* ПPABAЯ KOMAHДA - ФИЗ AДPEC ПO MБ 005103 : C* B AHAЛOГИЧHOM ФOPMATE. 005104 : C* 005105 : C* 005106 : C*B HAЧAЛE CП COДEPЖИTCЯ 2 CПEЦ CЛOBA: 005107 : C* 30 - 16P 15- 1P 005108 : C*<ДЛИHA CП B ПAM.ЗAДAЧИ><ДЛИHA HA MБ> 005109 : C* 2-E: CПEЦ KOД B KOДE GOST 005110 : C* CП*066 005111 : C* ИЛИ ДYБЛЬ AДPECA CП HA MБ B CЛYЧAE 005112 : C* CП MATEMATИKA 005113 : C*B CЛYЧAE CИCTEMHOЙ CП B ПEPBOM CЛOBE 005114 : C* B 48-37 PP ДYБЛЬ HOMEPA CП. 005115 : C*BXOД B CП ПO AДPECY <ИP13>+10B 005116 : C*B CЛOBE<ИP13>+1 AДPEC BOЗBPATA ИЗ CП 005117 : C* +5 ИP13 005118 : C* +2 PEЖИM AY 005119 : C*ИP14 PABEH ИCП.AДPECY ЭKCTPAKOДA *66 005120 : C************************************* 005121 : *ИПД:LC,BLOCK,(53),PARTISAN 005122 : TPHYS:,LC, 005123 : ШЛAГБAYM:LC,BLOCK,(8),CLT 005124 : *YCЫ:LC,BLOCK,MCW 005125 : SMASAV:LC,BLOCK,SAVAC,SAVSR,SAVAR 005126 : , CONT,SAVI15,SAVI14,SAVI13 005127 : ДHЗ:LC,BLOCK,JN,BITJ 005128 : DISPBASE:LC,BLOCK,(4),DISPFIL,DISPNAM 005129 : *360 : B,BLOCK,ИПЗЖДY(1),(31),CP 005130 : ЧИCЛOCП:,LC,1 005131 : SEMDOWNS:,SUBP, 005132 : SEMUP :,SUBP, 005133 : OUTMACRO:,SUBP, 005134 : MACRO64 :,SUBP,. 005135 : MACRO70S:,SUBP,. 005136 : ERRPRI :,SUBP, 005137 : *0:,BLOCK,(24),TMP(8),TDEF 005138 : , CONT,NPPW(31),REGSCAL(4) 005139 : , CONT,BUFS27(15),SCEM 005140 : *700:B,BLOCK,B48(8) 005141 : ,CONT,B40,B39(12) 005142 : ,CONT,B27(6) 005143 : ,CONT,B21(17) 005144 : ,CONT,B4(3) 005145 : ,CONT,B1 005146 : C3:,LC,1 005147 : C13:,LC,1 005148 : C1777:,LC,1 005149 : C3777:,LC,1 005150 : C76000:,LC,1 005151 : C77777:,LC,1 005152 : LTBCP:,EQU,440B 005153 : LT1 :,EQU,LTBCP-1 005154 : ENDTBCP:,EQU,TBCP+LT1 005155 : ENDTBCP:I,BLOCK,(1),SREGSC,IW5 005156 : , CONT,EBCП(0),NCП 005157 : , CONT,IW70,IW72 005158 : , CONT,SAC,SSR(2),SM,SJ 005159 : , CONT,CЛ/ЭK(8),SB 005160 : , CONT,SP/REM,SP/OWN,SP/22 005161 : *5:,BLOCK,B,P,E(0),O,C(0),A,I,LP,L,R,J,M,S 005162 : BEG:,BSS,.БAЗA 005163 : J,REL,* 005164 : :,ARX,*+2 005165 : ,WTC,SAVI13 005166 : J,VTM, 005167 : ,UJ,SEMDOWNS 005168 : :,Z00,CLT 005169 : ,Z00,*+1-BEG 005170 : :,XTA,SAVAR 005171 : ,ATI,J.BOCCT.БAЗЫ 005172 : S,VTM,SAC.MAГAЗИH 005173 : ,XTA,SAVAC 005174 : ,XTS,SAVSR 005175 : ,XTS,SAVI15 005176 : ,XTS,SAVI14 005177 : ,ATX,A/ЭK 005178 : ,XTS,SAVI13 005179 : ,ATX,IW5 005180 : ,ITS,32B 005181 : ,ATX,R/ЭK 005182 : ,ATI,M 005183 : ,WTC,MCW 005184 : ,XTA,REGSCAL 005185 : ,ATX,SREGSC 005186 : ,AOX,B48*4 005187 : ,WTC,MCW 005188 : ,ATX,REGSCAL 005189 : ,MOD,101B 005190 : ,NTR,3 005191 : :,24 , 005192 : M,XTA,-1 005193 : :,24 ,3 005194 : S,ATX, 005195 : ,ATX,DAD 005196 : ,ASN,64+24 005197 : ,STX,I/ЭK 005198 : M,VTM,J-B 005199 : :M,UTM,-1 005200 : M,ITS,B 005201 : M,V1M,*-1 005202 : J,MTJ,B 005203 : B,REL,BEG.HOBAЙ БAЗOBЫЙ PEГИCTP 005204 : L,VTM,-3 005205 : :,XTS,CЛ/ЭK 005206 : L,APX,B21 005207 : L,VLM,*-1 005208 : ,U1A,MLF 005209 : ,XTA,C13 005210 : ,ATI,27B 005211 : ,XTA,ЧИCЛOCП 005212 : ,U1A,TBCП/TYT 005213 : L,VTM,-LT1 005214 : :L,UTC,LT1 005215 : ,ATX,TBCP.ЧИCTKA TBCП 005216 : L,VLM,*-1 005217 : TBCП/TYT:,BSS, 005218 : ,WTC,MCW. 005219 : ,XTA,SCEM. 005220 : ,AAX,BЭ66/77. 005221 : ,AEX,BЭ66/77. 005222 : M,VTM,RET64 005223 : M,MTJ,32B. 005224 : M,VTM,INF*64. 005225 : ,UZA,MACRO64+2.ПEЧATЬ 005226 : RET64:,BSS,. 005227 : J,VTM,. 005228 : E,VTM,HETYTИ-BEG. 005229 : ,XTA,SP/REM. 005230 : ,UZA,ЗA CП.ПOKA HE БЫЛO 005231 : ,XTA,JN 005232 : ,ASN,64-42 005233 : ,XTS,CЛ/ЭK 005234 : ,ASN,64-26 005235 : ,ASN,64+6 005236 : S,AEX, 005237 : ,ATX,EBCП 005238 : M,VTM,-LT1.L=0 005239 : SE TB:,BSS, 005240 : M,XTA,ENDTBCP 005241 : :,U1A,*+1 005242 : M,MTJ,L 005243 : ,AEX,EBCП 005244 : ,ASN,64+15 005245 : ,UZA,BCП.CП YЖE ECTЬ 005246 : M,VLM,SE TB 005247 : ,XTA,B1 005248 : :,24 ,2003B 005249 : ,ARX,ЧИCЛOCП 005250 : ,ATX,ЧИCЛOCП 005251 : ,XTA,SJ 005252 : :,24 ,3 005253 : ,AEX,EBCП 005254 : L,ATX,ENDTBCP 005255 : ЗA CП:,BSS, 005256 : C*** ПOЛYЧEHИE MATЛИCTA ДЛЯ ПEPEKAЧKИ 005257 : L,VTM,1-31. 005258 : P,VTM, 005259 : LMEM:,WTC,MCW. 005260 : L,XTA,TMP+31. 005261 : ,ASN,64+30. 005262 : P,UTM,2000B. 005263 : ,UZA,FREEPA. 005264 : L,VLM,LMEM. 005265 : C*** BCE ЛИCTЫ ЗAHЯTЫ, ПOЭTOMY BOЗЬMEM 005266 : C HA OДИH ЛИCT PAHЬШE ЧEM TOT, KYДA 005267 : C CП БYДET ПИCATЬCЯ.HO OH HE ДOЛЖEH 005268 : C БЫTЬ 0-Й! BMECTO 0-ГO BOЗЬMEM 37Й 005269 : ,XTA,SJ. 005270 : ,AAX,C76000. 005271 : ,ATI,P. 005272 : P,UTM,-2000B 005273 : P,V1M,FREEPA 005274 : P,UTM,-2000B 005275 : FREEPA:,BSS, 005276 : ,ITA,P 005277 : ,ASN,64-20 005278 : ,ATX,IW70 005279 : ,AOX,CIW72. 005280 : ,ATX,IW72. 005281 : ,*72,IW72. 005282 : ,XTA,SP/22. 005283 : ,UIA,ЧAЙKOBCK. 005284 : ,XTA,SP/OWN. 005285 : ,UIA,CBOЯ CП. 005286 : C***ЗAKAЗ HA "HOPMAЛЬHYЮ" CИCTEMHYЮ CП 005287 : C CИCTEMHЫE CП ДOЛЖHЫ HAXOДИTЬCЯ HA 005288 : C ЛEHTE/MOДEЛИ DISPNAM, HAЧИHAЯ C 005289 : C ЗOHЫ DISPFIL+10B. 005290 : C*** 005291 : ,XTA,B48/16. 005292 : ,*57,4040B. 005293 : ,AEX,B48/16. 005294 : ,AAX,B48/16. 005295 : ,UZA,ERR CП. 005296 : ,ANX,C27. 005297 : ,ATI,J. 005298 : ,ASN,64-12. 005299 : ,XTS,DISPFIL. 005300 : ,AAX,C3777. 005301 : S,AEX,. 005302 : ,ARX,B4.+10=HAЧ.CП 005303 : ,AEX,B40. 005304 : ,AEX,IW70. 005305 : ,ATX,IW70. 005306 : L/MTW:,BSS,. 005307 : ,XTA,DISPNAM. 005308 : ,*57,2400B. 005309 : ,UZA,ERR CП. 005310 : ,AAX,B47/46. 005311 : ,UZA,HAШA. 005312 : ,*57,3. 005313 : ,UJ,L/MTW.ЖДEM MЛ/MOДEЛЬ 005314 : HAШA:,BSS,. 005315 : M,VJM,EXCH. 005316 : ,XTA,CЛ/ЭK 005317 : ,ASN,64-36 005318 : ,ATX,NCП 005319 : P,MTJ,C 005320 : :,24, 005321 : C,XTA,. 005322 : :,24,3 005323 : ,AEX,KATKOД. 005324 : ,UIA,ERR CП. 005325 : SE1:,24,. 005326 : C,XTA,2. 005327 : :,24,3. 005328 : ,UZA,ERR CП. 005329 : ,AEX,NCП. 005330 : ,ATX,DAD. 005331 : ,ASN,64+36. 005332 : C,UTM,1. 005333 : ,U1A,SE1. 005334 : ,XTA,DAD. 005335 : ,ASN,64+10. 005336 : ,UZA,BMOVE. 005337 : ,ARX,IW70. 005338 : ,ATX,IW70. 005339 : ,UJ ,IREAD. 005340 : ЧAЙKOBCK:,UTC,B39. 005341 : CBOЯ CП :,XTA,. 005342 : ,AEX,B40. 005343 : ,XTS,DAD. 005344 : ,ASN,64-28. 005345 : ,AUX,CMD. 005346 : S,AEX,. 005347 : ,AEX,IW70. 005348 : ,ATX,IW70. 005349 : IREAD:,BSS, 005350 : M,VJM,EXCH 005351 : BMOVE:,BSS, 005352 : R,VTM,HA CП 005353 : ,XTA,SJ 005354 : ,ATI,A 005355 : ,XTA,DAD 005356 : ,AAX,C1777 005357 : ,ATI,I 005358 : P,J+M,I 005359 : ,A-X,C1777 005360 : ,ATI,L 005361 : ,XTA,SM 005362 : ,ATI,LP 005363 : ,XTA,SP/22 005364 : ,U1A,LMOVE 005365 : :,24 , 005366 : I,XTA, 005367 : :,24 ,3 005368 : ,ATI,LP.ДЛИHA CП 005369 : ,ASN,64+15 005370 : ,ATI,M 005371 : ,ITA,LP 005372 : ,X-A,C74000 005373 : E,VTM,ДЛИHHO-BEG. 005374 : ,UIA,ERR CП.ДЛИHHAЯ CП 005375 : ,XTA,SP/REM. 005376 : ,UZA,ПPOB CП. 005377 : ,ITA,M 005378 : ,ARX,IW5. 005379 : ,ATX,IW5. 005380 : ПPOB CП:,24,. 005381 : I,XTA,1. 005382 : :,24,3. 005383 : ,AEX,KATKOД. 005384 : ,UZA,LMOVE. 005385 : ,AEX,KATKOД. 005386 : ,AEX,CЛ/ЭK. 005387 : ,ASN,64-28. 005388 : E,VTM,OБPAЩ-BEG. 005389 : ,UIA,ERR CП. 005390 : LMOVE:,BSS, 005391 : :,24 , 005392 : I,XTA, 005393 : I,UTM,1 005394 : A,ATX,6 005395 : :,24 ,3 005396 : A,UTM,1 005397 : LP,UTM,-1 005398 : LP,VZM,RET PT. 005399 : L,VLM,LMOVE 005400 : P,MTJ,I 005401 : L,VTM,-1777B 005402 : ,XTA,B1. 005403 : ,ARX,IW70. 005404 : ,ATX,IW70. 005405 : M,VTM,LMOVE. 005406 : J,V1M,EXCH. 005407 : ,ARX,C7740 005408 : ,AOX,C7740 005409 : ,AEX,C7740 005410 : ,ATX,IW70. 005411 : EXCH:,XTA,C13. 005412 : ,WTC,MCW. 005413 : ,ATX,BUFS27. 005414 : M,MTJ,32B 005415 : ,XTA,IW70. 005416 : ,UJ,MACRO70S. 005417 : BCП:,BSS, 005418 : M,XTA,ENDTBCP 005419 : ,ATX,SJ 005420 : HA CП:,BSS, 005421 : M,VTM,. 005422 : ,WTC,SJ 005423 : A,VTM,-2 005424 : ,XTA,SP/22 005425 : ,U1A,SET32 005426 : A,UTM,2 005427 : ,XTA,R/ЭK. 005428 : ,ATI,32B. 005429 : ,XTR, SSR 005430 : ,XTA,IW5 005431 : :,24 , 005432 : A,ATX,5 005433 : ,ITA,32B 005434 : A,ATX,1 005435 : ,RTE,77B 005436 : A,ATX,2 005437 : SET32:,BSS, 005438 : :,24 ,3 005439 : ,ITA,A 005440 : ,ATX,SJ 005441 : A,UTM,8 005442 : A,MTJ,32B 005443 : EXIT:,BSS, 005444 : S,VTM,SB 005445 : J,VTM,P-R 005446 : S,XTA, 005447 : :J,STI,R 005448 : J,VLM,* 005449 : ,XTA,SREGSC 005450 : :,24 ,2003B 005451 : ,WTC,MCW 005452 : ,ATX,REGSCAL 005453 : ,AAX,B4 005454 : :,U1A,*+1. 005455 : ,MOD,107B. 005456 : S,XTA, 005457 : ,STX,SAVI13 005458 : ,STX,SAVI14 005459 : ,STX,SAVI15 005460 : ,STX,SAVSR 005461 : ,ATX,SAVAC 005462 : ,MTJ,27B 005463 : ,ITA,B 005464 : :,ARX,*+1 005465 : ,UJ ,SEMUP 005466 : :,Z00,CLT 005467 : ,Z00,*+1-BEG 005468 : :,WTC,SB 005469 : B,VTM, 005470 : M,VZM,OUTMACRO 005471 : ,UJ ,ERRPRI 005472 : ERR CП:,BSS,. 005473 : R,VJM,RET PT. 005474 : ,XTA,CЛ/ЭK. 005475 : ,ATX,SAC. 005476 : ,XTA,R/ЭK. 005477 : ,ATI,32B. 005478 : E,MTJ,M. 005479 : ,UJ ,EXIT. 005480 : RET PT:,BSS, 005481 : ,XTA,C13 005482 : ,ATI,27B 005483 : B,J+M,E. 005484 : ,*72,IW72.OTДAЛИ ЛИCT 005485 : R,UTC,. 005486 : J,VZM,. 005487 : J,XTA,B48-30B.OTKAЗ OT 005488 : ,*57,4000B.ЛEHTЫ C CП 005489 : R,UJ ,. 005490 : C====================================== 005491 : NLP:,EQU,36B 005492 : ETPH:,EQU,=36 00000 01 005493 : TMPM:,EQU,=4 2007 6000 005494 : NUMP:,EQU,40B 005495 : LLIB:,EQU,=10 0000.NUMP*1024 005496 : NUMS:,EQU,350B 005497 : C...................................... 005498 : TMLP:,EQU,TMP+NLP 005499 : LIPA:,P*P,(NLP)1024 005500 : CATP:,EQU,LIPA 005501 : CATS:,EQU,CATP+NUMP 005502 : LIBS:,EQU,CATS+NUMS 005503 : NP1 :,EQU,NUMP-1 005504 : LCAT:,EQU,NUMP+NUMS 005505 : C-------------------------------------- 005506 : SREGSC:I,BLOCK,(1),OWNPARTI,PAR 005507 : , CONT,C0(0),IPF,IPL 005508 : PATAB:,EQU,SB+1 005509 : STACK:,EQU,PATAB+NUMP 005510 : PSHIF:,EQU,PATAB-BEG 005511 : C-------------------------------------- 005512 : MLF:,BSS, 005513 : C,VTM,CATS-2 005514 : ,XTA,SM 005515 : ,ATI,P 005516 : ,UZA,CLEAR 005517 : ,XTA,CЛ/ЭK 005518 : ,ATI,O 005519 : ,XTA, 005520 : ,ATX,SM 005521 : :,24 , 005522 : P,XTA, 005523 : :,24 ,3 005524 : ,ATX,PAR 005525 : CLEAR:,BSS, 005526 : :,24 ,2003B 005527 : ,XTA,PARTISAN 005528 : ,AAX,BITJ 005529 : ,AEX,BITJ 005530 : ,ATX,OWNPARTI 005531 : ,AEX,PARTISAN 005532 : ,ATX,PARTISAN 005533 : ,XTA,CP 005534 : :,24 ,3 005535 : ,UZA,NEWLIB 005536 : R,VJM,REQLP 005537 : P,VZM,OVFL 005538 : SEARS:,BSS, 005539 : :,24 , 005540 : C,XTA,2 005541 : :,24 ,3 005542 : C,UTM,2 005543 : ,UZA,SABS 005544 : ,ATX,C0 005545 : ,AEX,PAR 005546 : ,ASN,64+18 005547 : ,U1A,SEARS 005548 : O,V1M,EMLF 005549 : SETMP:,BSS, 005550 : :,24 , 005551 : C,XTA,1 005552 : :,24 ,3 005553 : ,ATX,SM 005554 : ,ATI,A 005555 : ,ASN,64+24 005556 : ,XTS,C0 005557 : ,ATX,PAR 005558 : ,AAX,C77777 005559 : ,A-X,B1 005560 : S,ARX,-1 005561 : S,ATX, 005562 : ,AAX,C1777 005563 : ,STX,IPL 005564 : ,ASN,64+10 005565 : S,XTS,-2 005566 : ,ASN,64+10 005567 : ,ATI,I 005568 : S,A-X, 005569 : ,STI,LP 005570 : ,AAX,C1777 005571 : ,ATX,IPF 005572 : LP,MTJ,L 005573 : B,MTJ,M 005574 : MCATP:,BSS, 005575 : :,24 , 005576 : I,XTA,CATP 005577 : :,24 ,3 005578 : M,ATX,PSHIF 005579 : M,UTM,1 005580 : I,UTM,1 005581 : L,VLM,MCATP 005582 : B,MTJ,I 005583 : I,XTA,PSHIF 005584 : ,AEX,CP 005585 : ,UZA,PAGE0 005586 : PAGEL:,BSS, 005587 : R,VJM,RETLP 005588 : I,XTA,PSHIF 005589 : R,VJM,REQLP 005590 : PAGE0:,BSS, 005591 : ,XTA,C1777 005592 : LP,V1M,NLASP 005593 : ,XTA,IPL 005594 : NLASP:,BSS, 005595 : I,UTM,1 005596 : ,X-A,IPF 005597 : ,ARX,C3 005598 : ,ASN,64+2 005599 : ,ATI,L 005600 : ,YTA, 005601 : ,ASN,64+46 005602 : ,ATI,R 005603 : ,XTA,IPF 005604 : ,ATI,M 005605 : M,UTM,LIPA 005606 : A,MTJ,S 005607 : O,VZM,PAGEM 005608 : M,MTJ,S 005609 : A,MTJ,M 005610 : PAGEM:,BSS, 005611 : :,24 , 005612 : ,CALL,MOVE66 005613 : S,MTJ,A 005614 : O,VZM,PAGEE 005615 : M,MTJ,A 005616 : PAGEE:,BSS, 005617 : :,24 ,3 005618 : ,XTA, 005619 : ,ATX,IPF 005620 : LP,VLM,PAGEL 005621 : EMLF:,BSS, 005622 : R,VJM,RETLP 005623 : ,XTA,SM 005624 : ,UZA,RETZ 005625 : ,ATI,A 005626 : ,XTA,PAR 005627 : :,24 , 005628 : P,ATX, 005629 : A,XTA,7 005630 : :,24 ,3 005631 : ,AAX,C77777 005632 : ,XTS,SM 005633 : ,ASN,64-24 005634 : S,AEX, 005635 : :,24 , 005636 : P,ATX,1 005637 : RETZ:,BSS, 005638 : :,24 ,2003B 005639 : ,XTA,OWNPARTI 005640 : ,AEX,PARTISAN 005641 : ,ATX,PARTISAN 005642 : :,24 ,3 005643 : M,VTM, 005644 : ,UJ ,EXIT 005645 : NEWLIB:,BSS, 005646 : B,MTJ,C 005647 : I,VTM,-NP1 005648 : RESLOOP:,BSS, 005649 : :,24 ,2003B 005650 : ,XTA,B48 005651 : ,WTC,MCW 005652 : S,VTM, 005653 : S,AOX,TMLP 005654 : S,ATX,TMLP 005655 : :,24 ,2000B 005656 : ,XTA,LIPA 005657 : R,VJM,RETLP 005658 : ,ITA,L 005659 : C,ATX,PSHIF 005660 : ,ASN,64+5 005661 : ,UZA,ZP 005662 : C,UTM,1 005663 : I,VLM,RESLOOP 005664 : C,XTA,PSHIF-NUMP 005665 : ,ATX,CP 005666 : I,VTM,-NP1 005667 : R,VJM,REQLP 005668 : SETLOOP:,BSS, 005669 : C,XTA,PSHIF-NUMP 005670 : C,UTM,1 005671 : :,24 , 005672 : I,ATX,CATP+NP1 005673 : :,24 ,3 005674 : I,VLM,SETLOOP 005675 : ,UJ ,OVFL 005676 : ZP:,BSS, 005677 : L,ATX,TPHYS 005678 : ,UJ,RESLOOP 005679 : SABS:,BSS, 005680 : O,VZM,EMLF 005681 : C,MTJ,M 005682 : M,UTM,2-LIBS 005683 : M,VZM,OVFL 005684 : :,24 , 005685 : C,ATX,2 005686 : P,XTA,1 005687 : ,ASN,64+24 005688 : C,AEX,1 005689 : C,ATX,1 005690 : ,ASN,64-24 005691 : P,XTA, 005692 : C,ATX, 005693 : :,24 ,3 005694 : ,ATX,C0 005695 : ,YTA, 005696 : ,XTS,C0 005697 : ,AAX,C77777 005698 : S,ARX, 005699 : ,ASN,64-24 005700 : :,24 , 005701 : C,ATX,3 005702 : :,24 ,3 005703 : ,ASN,64+24 005704 : ,X-A,LLIB 005705 : ,UZA,SETMP 005706 : OVFL:,BSS, 005707 : C,VTM,CATS 005708 : ,XTA,BLIB 005709 : :,24 , 005710 : C,ATX,1 005711 : ,XTA, 005712 : C,ATX, 005713 : :,24 ,3 005714 : P,VZM,EMLF 005715 : ,UJ ,SABS 005716 : REQLP:,BSS, 005717 : :,24 ,2003B 005718 : ,WTC,MCW 005719 : S,VTM, 005720 : ,ATI,L 005721 : ,ASN,64-30 005722 : S,AOX,TMLP 005723 : S,ATX,TMLP 005724 : ,ASN,64-11 005725 : ,AUX,TMPM 005726 : S,AOX,TMP 005727 : S,ATX,TMP 005728 : ,XTA,B27 005729 : S,AEX,TDEF 005730 : S,ATX,TDEF 005731 : ,XTA,JN 005732 : ,ASN,64-27 005733 : ,AEX,ETPH 005734 : L,ATX,TPHYS 005735 : ,XTA,B1 005736 : S,ARX,NPPW 005737 : TOPUT:,BSS, 005738 : S,ATX,NPPW 005739 : M,CALL,PUTTMP 005740 : :,24 ,3 005741 : S,VTM,STACK 005742 : ,ATI, 005743 : R,UJ , 005744 : RETLP:,BSS, 005745 : :,24 ,2003B 005746 : M,VTM,-3 005747 : :,ATX,1 005748 : M,VLM,* 005749 : ,WTC,MCW 005750 : S,VTM, 005751 : S,XTA,TMLP 005752 : ,ASN,64+30 005753 : ,ATI,L 005754 : ,YTA, 005755 : ,ASN,64+18 005756 : S,ATX,TMLP 005757 : ,XTA,TMPM 005758 : S,AOX,TMP 005759 : ,AEX,TMPM 005760 : S,ATX,TMP 005761 : ,XTA,B27 005762 : S,AOX,TDEF 005763 : S,ATX,TDEF 005764 : ,XTA,B1 005765 : L,ATX,TPHYS 005766 : ,XTA,CM1 005767 : S,ARX,NPPW 005768 : ,UJ ,TOPUT 005769 : BLIB:,Z00,LCAT 005770 : ,, 005771 : CM1:,OCT,7777 7777 7777 7776 005772 : C====================================== 005773 : INF*64:,,TEXTRAS. 005774 : ,,R/ЭK. 005775 : :,010,. 005776 : ,, 005777 : :2,016,5 005778 : ,, 005779 : :,024,. 005780 : ,,. 005781 : :2,026,8. 005782 : ,011,1. 005783 : :,050,. 005784 : ,,. 005785 : :2,055,5 005786 : 8,,.BCE! 005787 : C************************************** 005788 : B48/16:,OCT,7777 7777 7760 0000 005789 : B48*4 :,OCT,4000 0000 0000 0010 005790 : BЭ66/77:,OCT,0000 1001 005791 : C27:,LOG,27 005792 : C7740:,LOG,7740 005793 : TEXTRAS:,GOST,6HЭ66 A'231' 005794 : A/ЭK:,OCT, 005795 : :,GOST,2H/'231' 005796 : I/ЭK:,OCT, 005797 : DAD :,OCT,. 005798 : :,GOST,6HBЭ ='231' 005799 : R/ЭK:,OCT,. 005800 : C74000:,LOG,74000 005801 : B47/46:,OCT,3 005802 : CMD :,OCT,0000 0000 0037 0037 005803 : KATKOД:,GOST,6HCП*066 005804 : CIW72:,OCT,1041 0077 005805 : HETYTИ:,GOST,12HHET CП'231' 005806 : OБPAЩ :,GOST,12HOБPAЩ. K CП'231' 005807 : ДЛИHHO:,GOST,12HДЛИHHЫЙ CП'231' 005808 : TBCП:,ENTRY, 005809 : TBCP:,BSS, 005810 : ,END, 005811 : AEROPLAN:,NAME,.ББ+AП+AЛ 005812 : C******************************************C 005813 : C C 005814 : C ПЛAHИPOBAHИE BЫБOPKИ B PEШEHИE ЗAДAЧ C 005815 : C ИЗ OБЛACTИ BBOДA C YЧETOM BPEMEHИ C 005816 : C BBOДA И ЗAKAЗAHHOГO B ПACПOPTE C 005817 : C ЗAДAЧИ BPEMEHИ. OTPAБOTKA ПPИKAЗOB C 005818 : C OПEPATOPA: 005819 : C NNФП , NNБП , NNПП . C 005820 : C * * * * * * C 005821 : C OЧEPEДЬ KAЖДOГO ИЗ YKAЗAHHЫX ПPИKA- C 005822 : C ЗOB PACЧИTAHA HA 8 ЗAДAЧ. C 005823 : C MHEMOHИKA: 005824 : C ФП - ПPИOPИTET O ЧEPEДИ ФOHOBЫX C 005825 : C ЗAДAЧ, 005826 : C БП - БEЗYCЛOBHЫЙ ПPИOPИTET ЗAДAЧE, C 005827 : C T.E. ЗAПYCTИTЬ, KAK TOЛЬKO OCBOБOДИT- C 005828 : C CЯ KAKOЙ-HИБYДЬ ШИФP, 005829 : C ПП - ПPИOPИTET C YЧETOM ПPEДПOЧTИ- C 005830 : C TEЛЬHOГO BPEMEHИ ДЛЯ ШИФPA. C 005831 : C C 005832 : C******************************************C 005833 : STARTJOB:,SUBP, 005834 : NSTAJOB:,LC,1. 005835 : *YCЫ:,LC,1. 005836 : MШ:,LC,1. 005837 : *ИПД: LC,BLOCK,(1) 005838 : ,CONT,XNFM 005839 : ,CONT,(1) 005840 : ,CONT,XNFB 005841 : ,CONT,XNW 005842 : ,CONT,(1),XNCM 005843 : ПAPTИЗAH:,EQU,*ИПД+65B 005844 : БЛOKAЦПY:,EQU,*ИПД+66B 005845 : DISPBASE:LC,BLOCK,(6),NEVM 005846 : *ИПK:LC,BLOCK,INFBA 005847 : *TLBUFI:LC,BLOCK,FCIN 005848 : *TLSIZE:LC,BLOCK,(1),XNPC 005849 : NPC0:,WEQ,XNPC 005850 : NPC:,EQU,NPC0-1 005851 : NPC1:,EQU,NPC-1 005852 : NFB:,WEQ,XNFB 005853 : NFM:,WEQ,XNFM 005854 : NW :,WEQ,XNW 005855 : NCM:,WEQ,XNCM 005856 : INFEX:,EQU,*ИПK+NCM 005857 : NB :,EQU,NW-NFB 005858 : NF:,EQU,NW-NFM 005859 : NF1:,EQU,NF-NB 005860 : BITS:,EQU,677B 005861 : CAT:,EQU,2000B. 005862 : LISTIM:,EQU,4000B 005863 : ЛИПЗ:,EQU,6000B 005864 : NЛИПЗ:,EQU,=:0000 03 005865 : NJOB:,EQU,1772B. 005866 : Ш/CBЯ:,EQU,*ИПД+15B 005867 : BATCH:,EQU,*ИПД+40B 005868 : STOBH:,EQU,*ИПД+41B 005869 : PRIPL/SC:,EQU,*ИПД+47B.ЭKCПPECCЫ 005870 : PRIPLTER:,EQU,*ИПД+43B.ЭKCПP.TEPM. 005871 : *1000:B,BLOCK,TYPETASK,TЖДY,TПACП 005872 : ,CONT,ITПACП,PNEX,POUND 005873 : ,CONT,WIGHT,W0004 005874 : ,CONT,SC*PLAN 005875 : ,CONT,SC/BATCH 005876 : ,CONT,N,ФЛЭKC,N//,N** 005877 : ,CONT,USESCR 005878 : ,CONT,USEMT 005879 : ,CONT,ABSMT 005880 : ,CONT,MTNC 005881 : ,CONT,BITM 005882 : ,CONT,USEMD 005883 : ,CONT,ABSMD 005884 : ,CONT,FILCOUNT 005885 : ,CONT,MONOSC(10) 005886 : ,CONT,BITJ,IFX,WS1 005887 : ,CONT,WS,DATA 005888 : FREXT:,EQU,*ИПД+34B 005889 : C******************************************* 005890 : 1,BASE,* 005891 : 14,VTM,TPL 005892 : ,ITA,14. 005893 : ,FUN,76B. 005894 : 12,VTM,-1777B 005895 : ,DRUM,IWTIM 005896 : ,XTA,LISTIM 005897 : ,AEX,=6HTIMES 005898 : ,UZA,БEГИH 005899 : ,XTA, 005900 : L1:12,ATX,LISTIM+1777B 005901 : 12,VLM,L1 005902 : БEГИH:,BSS, 005903 : C******************************************* 005904 : 13,VJM,CB/ШИФP 005905 : ,UZA,CLOSE.HET ШИФPOB 005906 : ,*50,114B 005907 : ,ASN,64-13 005908 : ,ATX,DATA 005909 : :,XTA,RCAT. 005910 : ,*57,7 005911 : C******************************************* 005912 : C ПPOBEPKA HAЛИЧИЯ БEЗYCЛOBHOГO 005913 : C Э K C П P E C C A. 005914 : C******************************************* 005915 : ,*65,PRIPL/SC+1 005916 : ,AOX,. 005917 : ,UIA,Э*1.ECTЬ 005918 : C******************************************* 005919 : C ПPOBEPKA HAЛИЧИЯ ЭKCПPECCHOЙ 005920 : C ЗAЯBKИ ДЛЯ Ф O H A. 005921 : C******************************************* 005922 : 9,VTM,NW-1. 005923 : 9,*65,BITS. 005924 : ,AAX,SC/FREE. 005925 : ,UZA,Э*1.HET ФOH. ШИФPA 005926 : ,*65,PRIPL/SC 005927 : ,ASN,64-42. 005928 : ,UZA,Э*1.HET ЗAЯBKИ 005929 : ,ATX,N. 005930 : 2,VJM,ПYCK. 005931 : 9,VIM,ФИHAЛ.ЗAПYCTИЛИ ФOH 005932 : Э*1:,BSS,.ЭKCПPECC HE COCTOЯЛCЯ 005933 : C******************************************* 005934 : C ПPOБA БEЗYCЛOBHOГO ЭKCПPECC 005935 : C ЗAПYCKA ЗAДAЧИ HA ЛЮБOЙ ШИФP. 005936 : C******************************************* 005937 : 5,VTM,1-2 005938 : 3,VTM,PRIPL/SC+1 005939 : LБП:3,*65, 005940 : ,ASN,64-42. 005941 : ,UZA,Э*21 005942 : ,ATX,N 005943 : Э*2:,BSS,.ПOИCK CB.ШИФPA 005944 : ,XTA,SC/FREE. 005945 : ,AAX,=34.TOЛЬKO Ш4-Ш2 005946 : ,UZA,Э*21.EГO HET 005947 : ,ANX,.ДHЗ 005948 : ,ATI,9. 005949 : 2,VJM,ПYCK. 005950 : 9,VZM,Э*2.HE COCTOЯЛOCЬ. 005951 : ,UJ,ФИHAЛ.BЫШЛO 005952 : Э*21:3,VTM,PRIPLTER 005953 : 5,VLM,LБП 005954 : Э*3:,BSS,.ДAЛЬШE 005955 : C******************************************* 005956 : C BOT TYT-TO И HAЧИHAETCЯ HEKAЯ 005957 : C П Л A H И P O B K A . 005958 : C******************************************* 005959 : ПЛAHИP:,BSS,. 005960 : C*** 005961 : C ПOДБOP MИHИMAЛЬHOГO CBOБOДHOГO 005962 : C ШИФPA. 005963 : C*** 005964 : ,XTA,SC/FREE. 005965 : ,AAX,=20 0200 005966 : ,ATX,W0001. 005967 : ,AEX,SC/FREE. 005968 : ,ARX,=17 7540 005969 : ,AOX,W0001. 005970 : ,APX,=20 0236 005971 : ,AUX,=176 005972 : ,ATX,SC*PLAN. 005973 : ПЛAH:,BSS,. 005974 : 3,VTM,-60. 005975 : C******************************************* 005976 : C BЫЯCHEHИE KATEГOPИИ ДAHHOГO 005977 : C Ш И Ф P A . 005978 : C******************************************* 005979 : ,XTA,SC*PLAN 005980 : ,UZA,CLOSE 005981 : ,ANX, 005982 : ,ATI,9 005983 : ,XTA,=:4 005984 : 9,ASN,64-1 005985 : ,ATX,TYPETASK 005986 : ,AEX,SC*PLAN 005987 : ,ATX,SC*PLAN 005988 : C 005989 : C ЗHAЧEHИЯ PAЗPЯДOB TYPETASK: 005990 : C 005991 : C B7 - ДИAЛOГOBЫЙ ШИФP 005992 : C B6 - MT-ПAKET + CBЯЗЬ 005993 : C B5 - Ш4 005994 : C B4 - Ш3 005995 : C B3 - Ш2 005996 : C B2 - Ш1 005997 : C 005998 : 4,VTM,CAT. 005999 : ,XTA,. 006000 : ,ATX,N//. 006001 : ,ATX,POUND 006002 : C******************************************* 006003 : C YCTAHOBKA ФЛAГA OБPAБOTKИ ЗAДAЧИ 006004 : C ИЗ ЭKCПPECC-ПOTOKA. 006005 : C******************************************* 006006 : L*3:,BSS,. 006007 : 3,MTJ,14. 006008 : 14,UTM,61. 006009 : ,ITA,14. 006010 : ,ASN,64-42. 006011 : ,ATX,W0004. 006012 : C--- ПPOБA HA HAЛИЧИE ЭKCПPECCA B ПOTOKE 006013 : ,ASN,64+6. 006014 : ,AOX,W0004. 006015 : ,ATX,N**. 006016 : ,ASN,64+12. 006017 : ,AOX,N**. 006018 : ,ATX,N**. 006019 : ,ASN,64+24. 006020 : ,AOX,N**. 006021 : ,ATX,N**. 006022 : ,*65,PRIPL/SC+2 006023 : ,AEX,N**. 006024 : ,ATX,N**. 006025 : ,AAX,K40*. 006026 : ,ATX,W0002. 006027 : ,AEX,N**. 006028 : ,ARX,K37*. 006029 : ,AOX,W0002. 006030 : ,AAX,K40*. 006031 : ,ACX, 006032 : ,ASN,64+3. 006033 : ,ATX,ФЛЭKC. 006034 : ,UZA,ПЭKC. 006035 : 4,XTA,. 006036 : C 48=1 - ГOTOBA K ПЛAHИPOBKE 006037 : C 47=1 - CПЛAHИPOBAHA И ЗAПYЩEHA 006038 : C 46=1 - ПACПOPT OCBOБOЖДEH 006039 : C (BEGBATCH,DELJOB,MT) 006040 : C 37=1 - ПPOДOЛЖEHИE ПACПOPTA 006041 : ,AEX,=:4. 006042 : ,AAX,=:7001 006043 : ,UIA,KPЭKC.KOKHYTA 006044 : ,*65,6.6-Й TP 006045 : ,AAX,=4000 0000.24-Й PД 006046 : ,UIA,ПЭKC.ПP-KA PEC.БЛOKИPOBAHA 006047 : 2,VJM,CHECKRES. 006048 : ,XTA,ABSMT. 006049 : ,AOX,ABSMD. 006050 : ,UIA,KPЭKC.HE BCE PECYPCЫ 006051 : C*** YЧET BPEMEHИ BBOДA ****************** 006052 : ПЭKC:,BSS,. 006053 : ,XTA, 006054 : ,ATX,TЖДY 006055 : 4,XTA, 006056 : ,ASN,64+18 006057 : ,AAX,=4 006058 : ,AEX,=4.ПPИЗHAK 006059 : ,ATI,11."HE П/B" 006060 : 4,XTA,1 006061 : 11,VZM,T*0 006062 : ,AAX,=1777 006063 : ,ATI,14 006064 : 14,XTA,LISTIM 006065 : ,UZA,T* 006066 : ,AEX,DATA 006067 : ,ASN,64+29 006068 : ,U1A,T* 006069 : 14,XTA,LISTIM 006070 : ,UJ,T*0 006071 : T*:,BSS, 006072 : ,XTA,=R5.0 006073 : ,ATX,TЖДY 006074 : 4,XTA,1 006075 : T*0:,ATX,W0003 006076 : ,AEX,DATA 006077 : ,ASN,64+29. 006078 : ,UZA,T*1. 006079 : ,UTC,1 006080 : T*1:12,VTM,.12ИP = 0 006081 : C -CYTKИ TEKYЩИE 006082 : ,*65,542B.TEKYЩ. BPEMЯ 006083 : ,ATX,W0002. 006084 : ,XTA,W0003 006085 : ,ASN,64+12. 006086 : ,AAX,=37 7777. 006087 : ,AOX,I0. 006088 : ,NTR,2. 006089 : ,E+N,64. 006090 : ,ATX,W0001.BPEMЯ BBOДA 006091 : 12,VZM,T*3.HET KOPPEKЦИИ 006092 : ,XTA,=R8.64E+4 006093 : ,AMX,W0001. 006094 : ,A+X,W0002. 006095 : ,UJ,T*4.ПOДПPABИЛИ 006096 : T*3:,XTA,W0002. 006097 : ,AMX,W0001. 006098 : T*4:,A*X,TIMWA. 006099 : ,A+X,TЖДY 006100 : ,ATX,TЖДY.B MИHYTAX 006101 : C******************************************* 006102 : C YЧET ПACПOPTHOГO BPEMEHИ ЗAДAЧИ. 006103 : C******************************************* 006104 : 4,XTA,5. 006105 : ,ASN,64+36 006106 : :,U1A,*+1 006107 : ,XTA,=5 006108 : :,AOX,I0 006109 : ,ATX,ITПACП 006110 : ,NTR,2. 006111 : ,E+N,64 006112 : ,ATX,TПACП.B MИHYTAX 006113 : C******************************************* 006114 : C ПPOБA PEЖИMA: (CЧET.OR.OTЛAДKA) 006115 : C******************************************* 006116 : ,*65,6. 006117 : ,AAX,K40. 006118 : ,UIA,T*5. 006119 : ,UTC,KC-KO 006120 : T*5:12,VTM,KO 006121 : ,XTA,TYPETASK 006122 : ,APX,=176 006123 : ,ANX, 006124 : ,ATI,14 006125 : ,XTA,=:4 006126 : ,WTC,ITПACП 006127 : ,ASN,64-1 006128 : ,U1A,T*6 006129 : ,XTA,=1 006130 : T*6:14,UTC, 006131 : 12,AAX,-1 006132 : ,UZA,KPЭKC 006133 : C******************************************* 006134 : C HAKИДKA HA HEYДAЧHOE COЧETAHИE 006135 : C CO C B Я З Ь Ю. 006136 : C******************************************* 006137 : ,XTA,ФЛЭKC. 006138 : ,UZA,M/2. 006139 : ,XTA,=R1.0 006140 : M/2:,ATX,PNEX. 006141 : ,XTA,TYPETASK. 006142 : ,ASN,64+5 006143 : ,UZA,ПB/ONLY.Ш4-1 006144 : ,ASN,64+1 006145 : ,U1A,DIA/ONLY.Ш20-10 006146 : C 006147 : C HA Ш05-07 ПYCKAEM TOЛЬKO ЗAДAЧИ 006148 : C OT CBЯЗИ И MT-ПAKETA. 006149 : C 006150 : 4,XTA, 006151 : ,AAX,=77 000 000 006152 : ,AEX,=04 000 000.ПB 006153 : ,UZA,KPЭKC 006154 : ,AAX,=01 000 000.MT 006155 : ,UZA,M/3.CBЯЗЬ 006156 : 4,XTA,4 006157 : ,AAX,=3000 006158 : ,U1A,KPЭKC.ДИAЛOГ 006159 : M/3:,BSS, 006160 : C******************************************* 006161 : C 006162 : C BЫЧИCЛEHИE ФYHKЦИИ BECA ЗAДAЧИ 006163 : C 006164 : C******************************************* 006165 : ,XTA,TЖДY 006166 : ,A/X,TПACП 006167 : ,ATX,WIGHT 006168 : ,XTA,=R1.0 006169 : ,A-X,PNEX. 006170 : ,A*X,=R12.0 006171 : ,A+X,WIGHT 006172 : ,ATX,WIGHT. 006173 : DCD:,BSS, 006174 : C*** KOHEЦ BЫЧИCЛEHИЙ ФYHKЦИИ BECA ЗAДAЧИ * 006175 : ,XTA,WIGHT. 006176 : ,A-X,POUND. 006177 : ,U1A,KPЭKC.ECTЬ ЛYЧШE 006178 : ,XTA,WIGHT. 006179 : ,ATX,POUND. 006180 : ,XTA,W0004. 006181 : ,ATX,N//. 006182 : KPЭKC:4,UTM,16. 006183 : 3,VLM,L*3. 006184 : ПYCK*:9,MTJ,6. 006185 : ,XTA,N//. 006186 : ,ATX,N. 006187 : ,UZA,EШ*. 006188 : ,XTA,TYPETASK 006189 : ,ASN,64+5 006190 : ,U1A,ПYCK5/20 006191 : 9,MTJ,6. 006192 : 2,VJM,ПYCK. 006193 : 9,VIM,ФИHAЛ. 006194 : 6,MTJ,9 006195 : EШ*:,BSS,. 006196 : ,UJ,ПЛAH 006197 : ПB/ONLY:4,XTA, 006198 : ,AAX,=77 000 000 006199 : ,AEX,=04 000 000 006200 : ,UZA,M/3.ПB 006201 : ,UJ,KPЭKC 006202 : DIA/ONLY:4,XTA, 006203 : ,AAX,=77 000 000 006204 : ,AEX,=01 000 000 006205 : ,U1A,KPЭKC.HE OT MT 006206 : 4,XTA,4 006207 : ,AAX,=3000 006208 : ,UZA,KPЭKC.HE ДИAЛOГ 006209 : ,XTA,ФЛЭKC 006210 : ,UZA,M/3.П.ПPИOPИTET 006211 : C 006212 : C ЦИKЛ ПOИCKA MT-KAHAЛA XOЗЯИHA ЗAДAЧИ 006213 : C 006214 : 5,VTM,-NPC1 006215 : ML:5,*65,FCIN+NPC 006216 : ,ATI,13 006217 : 13,VZM,EML.ПYCTOЙ 006218 : ,AAX,=:0000 34.TИП T-П/C. 006219 : ,AEX,=:0000 04."MT" 006220 : ,U1A,EML 006221 : 13,*65,3 006222 : 4,AEX,1 006223 : ,AAX,=1777 006224 : ,UZA,M/3.ECTЬ! 006225 : EML:5,VLM,ML 006226 : ,UJ,KPЭKC.HET COБECEДHИKA 006227 : ПYCK5/20:,BSS, 006228 : ,ASN,64+1 006229 : ,UZA,ПYCK5/7 006230 : LS5/20:,XTA,SC/FREE 006231 : ,AAX,=37 7400 006232 : ,UZA,EШ* 006233 : ,ANX, 006234 : ,ATI,9 006235 : ,XTA,=:4 006236 : 9,ASN,64-1 006237 : ,ATX,BITJ 006238 : ,AEX,SC/FREE 006239 : ,ATX,SC/FREE 006240 : 2,VJM,ПYCK 006241 : 9,VZM,LS5/20.HEYДAЧA 006242 : C 006243 : C ЗAПYCK ДИAЛOГOBOЙ ЗAДAЧИ 006244 : C 006245 : C ИCПOЛЬЗYEM PAЗPЯДЫ 5-ГO CЛOBA ПACПOPTA 006246 : C (ПOCЛEДHEГO CЛOBA NAME ЗAДAЧИ): 006247 : C 006248 : C 13 - 'TPR' 006249 : C 12 - 'TNP' (BMECTE C 13-M PP.) 006250 : C 11:10 - TИП ЗAПYCKA ЗAДAЧИ: 006251 : C 0 - MT-ПAKET (БEЗ ДИAЛOГA) 006252 : C 1 - 'TEP' 006253 : C 2 - 'CЛY' 006254 : C 3 - 'CЛA' 006255 : C 09 - OCTAHOB ПO AДP. 100B 006256 : C 006257 : 4,XTA,4 006258 : ,ASN,64-2 006259 : ,AAX,=16000.B13/11 006260 : ,ATX,IFX 006261 : ,ITA,9 006262 : ,ASN,64-9 006263 : ,AOX,=50 006264 : ,AOX,=:4 006265 : ,AOX,NЛИПЗ 006266 : ,*50,212B.ДAЙ ИПЗ 006267 : ,ATI,13 006268 : ,XTA,IFX 006269 : ,AAX,=2000 006270 : ,ASN,64-7 006271 : ,ATX,WS 006272 : 4,XTA,4 006273 : ,ASN,64+5 006274 : ,AAX,=300 006275 : ,AOX,WS 006276 : ,AOX,=7300 0000 0000 0010 006277 : 13,*52,100B.REGSCAL 006278 : ,XTA,WS.OTЛ 006279 : ,UZA,HEOTЛПYC 006280 : ,XTA,=100.OCT.100B 006281 : 13,*52,26B 006282 : HEOTЛПYC:,XTA,IFX 006283 : ,AAX,=1 0000 006284 : ,UZA,FLY.HE CЛY 006285 : ,XTA,BITJ 006286 : ,AEX, 006287 : ,*53,ПAPTИЗAH 006288 : ,XTA,IFX 006289 : ,AAX,=4000 006290 : ,UZA,FLY.HE CЛA 006291 : ,XTA,BITJ 006292 : ,AEX, 006293 : ,*53,БЛOKAЦПY 006294 : FLY:,UJ,ФИHAЛ 006295 : ПYCK5/7:,BSS, 006296 : 5,VTM,-2. 006297 : KZ**:,BSS,. 006298 : 9,*65,BITS. 006299 : ,AAX,SC/FREE. 006300 : ,UZA,F**. 006301 : 9,MTJ,6 006302 : 2,VJM,ПYCK. 006303 : 9,VIM,ФИHAЛ. 006304 : 6,MTJ,9. 006305 : F**:,BSS,. 006306 : 9,UTM,-1. 006307 : 5,VLM,KZ**. 006308 : ,UJ,EШ* 006309 : ФИHAЛ:,BSS,. 006310 : C******************************************* 006311 : C ПOДПPГPAMMA ДOOБPAБOTKИ ПACПOPTA 006312 : C ЗAПYЩEHHOЙ ИЗ ПOTOKA ЗAДAЧИ. 006313 : C******************************************* 006314 : 4,XTA,. 006315 : ,AOX,=:6.ЗAПPOC BEGBATCH 006316 : ,AEX,=:4.И CБPOC ГT. 006317 : 4,ATX, 006318 : 4,XTA,1 006319 : ,AAX,=1777.NUS 006320 : ,AOX,IFX 006321 : ,AEX, 006322 : ,XTA,=1 7777 006323 : 9,*53,INFEX-NFM 006324 : ,XTA,WS1.TOЛKHEM 006325 : ,*50,212B.ЗAДAЧY 006326 : 13,VTM,CLOSE. 006327 : ,XTA,WCAT. 006328 : ,*57,7. 006329 : 4,XTA,1 006330 : ,AAX,=1777 006331 : ,ATI,11 006332 : ,*65,542B 006333 : ,NTR,7 006334 : ,A+X,I0 006335 : ,NTR,6 006336 : ,AAX,=37 7777 006337 : ,ASN,64-12 006338 : 11,ATX,LISTIM 006339 : ,*50,114B 006340 : ,ASN,64+16 006341 : ,ASN,64-29 006342 : 11,AOX,LISTIM 006343 : 11,ATX,LISTIM 006344 : ,XTA,=6HTIMES 006345 : ,ATX,LISTIM 006346 : ,XTA,IWTIM 006347 : ,AEX,=:001 006348 : ,DRUM,.***** 006349 : ,XTA,N.YБPATЬ ИЗ 006350 : ,UJ,YБEPИ.ПPИOP. OЧEPEДИ 006351 : CLOSE:,BSS, 006352 : ,XTA,=3 006353 : ,FUN,210B. 006354 : ,XTA,=R30.0 006355 : ,*57,13B.ПAYЗA 006356 : ,UJ,БEГИH. 006357 : ПYCK:,BSS,. 006358 : C******************************************* 006359 : C ПOДПPOГPAMMA ПOДГOTOBKИ K ЗAПYCKY 006360 : C HA ШИФP C ДHЗ, ЗAДAHHЫM B 006361 : C ИP9. 006362 : C******************************************* 006363 : ,XTA,N. 006364 : ,ASN,64+18 006365 : ,ATX,N1.30-25 NBB 006366 : ,ASN,64+20 006367 : ,ATI,4 006368 : 4,UTM,CAT-16 006369 : 4,XTA, 006370 : ,AAX,=7700 0000.N ЛAБ 006371 : ,AOX,N1 006372 : ,ATX,N1 006373 : 4,XTA,4.NAME(3) 006374 : ,AAX,=77 006375 : ,ASN,64-36.ДOБABИM 006376 : ,AOX,N1.HOMEP 006377 : ,ATX,N1.TEPMИHAЛA 006378 : ,ITA,9 006379 : ,AOX,=7770 0003 7770 0000 006380 : ,*72,3.ЗAПYCK 006381 : ,ATX,WS1.OTBET 006382 : 14,MTJ,9 006383 : 2,UTC, 006384 : 9,VZM,.OTЛYП 006385 : ,XTA,N1 006386 : 9,*52,INFBA-NFM 006387 : ,XTA, 006388 : ,ATX,IFX.ЗAГOT. INFEX 006389 : 2,UJ,.BOЗBPAT ПO ИP2 006390 : C******************************************* 006391 : C 006392 : C ПOИCK BCEX CBOБOДHЫX B ДAHHЫЙ MOMEHT 006393 : C Ш И Ф P O B. 006394 : C 006395 : C ПOCЛE OБPAЩEHИЯ HA CYMMATOPE - ШKAЛA 006396 : C CBOБOДHЫX И PAЗPEЩEHHЫX ДЛЯ ПOTOKA 006397 : C Ш И Ф P O B. 006398 : C CYMMATOP = 0 - CBOБOДHЫX ШИФPOB 006399 : C H E T. 006400 : C******************************************* 006401 : CB/ШИФP:,BSS,. 006402 : 9,VTM,1-NF. 006403 : ,XTA,. 006404 : ,ATX,SC/FREE 006405 : C*1:,UTC,NF-1 006406 : 9,*65,*YCЫ+NFM. 006407 : ,AAX,=77777 00000. 006408 : ,UIA,C*2.ШИФP - ЗAHЯT 006409 : ,UTC,NF-1. 006410 : 9,*65,BITS+NFM. 006411 : ,AOX,SC/FREE 006412 : ,ATX,SC/FREE 006413 : C*2:9,VLM,C*1. 006414 : ,*65,6 006415 : ,ASN,64+23 006416 : ,AAX,COGRAN 006417 : ,U1A,*1 006418 : ,XTA,COGRAN 006419 : *1:,BSS, 006420 : ,ATX,SC/BATCH 006421 : ,AAX,SC/FREE 006422 : ,ATX,SC/FREE. 006423 : 13,UJ,.ACC = ШKAЛA 006424 : C******************************************* 006425 : C YЧET HAЛИЧИЯ PECYPCOB 006426 : C******************************************* 006427 : C ИCПOЛЬЗYEM ПACПOPTHYЮ ИHФOPMAЦИЮ: 006428 : C USEMT(K-BO MЛ) - 42:45P. 0-ГO CЛOBA 006429 : C USEMD(K-BO MД) - 38:41P. 0-ГO CЛOBA 006430 : C NEXT (K-BO SCR.ЭKCT.) - 1:5P. 5-ГO CЛ. 006431 : C C 7-ГO CЛOBA ПACПOPTA HAЧИHAETCЯ 006432 : C TNLIST - CПИCOK ИMEH MЛ 006433 : C (ИMЯ=77...77 - MЛ NO CHECK) 006434 : C ЗA TNLIST CЛEДYET FILCOUNT - CЛOBO, 006435 : C COДEPЖAЩEE CЧETЧИKИ ФAЙЛOB HA ЗAKAЗAHHЫX 006436 : C ПAKETAX (ДЛЯ OДHOГO ДП - ПOЛE ИЗ 5 БИT) 006437 : C ДAЛEE - CПИCOK ДИCKOB/ФAЙЛOB. 006438 : C ЭЛEMEHT CПИCKA BЫГЛЯДИT TAK: 006439 : C 1. ИMЯ ДП 006440 : C 2. ИMЯ БOCCA (+B48, ECЛИ MOHOПOЛИЯ) 006441 : C 3.CПИCOK ИMEH ФAЙЛOB (+B48,ECЛИ ЗAПИCЬ) 006442 : C--------- 006443 : C HOMEP ЭЛEMEHTA-ПPOДOЛЖEHИЯ ПACПOPTA 006444 : C ЗAДAETCЯ B 31-36 PAЗP. 0-ГO CЛOBA. 006445 : C--------- 006446 : C 006447 : CHECKRES:,BSS,. 006448 : ,NTR,3 006449 : ,*63,FREXT 006450 : ,ATX,ABSMT 006451 : 4,XTA,5 006452 : ,AAX,=37 006453 : ,X-A,ABSMT 006454 : 2,U1A,.MAЛO SCRATCH 006455 : ,NTR,2 006456 : ,XTA, 006457 : ,ATX,ABSMT 006458 : ,ATX,MTNC 006459 : 12,VTM,-9. 006460 : ZSCR:,ATX,USESCR 006461 : 4,XTA, 006462 : ,ASN,64-3 006463 : ,ASN,64-4 006464 : ,ATX,USEMD 006465 : ,YTA, 006466 : ,ATI,10 006467 : ,AOX,I0 006468 : ,E+N,64 006469 : ,ATX,USEMT 006470 : 4,MTJ,11 006471 : C 006472 : C--- BЫБOPKA ИMEH ЗAKAЗAHHЫX MЛ 006473 : C И OПPOC ИX COCTOЯHИЯ. 006474 : C 006475 : S/MT:10,VZM,S/MD 006476 : 14,VJM,GIVPW 006477 : 10,UTM,-1 006478 : ,AEX,=7777 7777 7777 7777 006479 : 14,VTM,MTNC 006480 : ,UZA,PLAS1 006481 : ,AEX,=7777 7777 7777 7777 006482 : ,*57,400B 006483 : 14,VTM,ABSMT 006484 : ,UZA,PLAS1.MЛ HET 006485 : ,AAX,=:1 006486 : ,UZA,S/MT.CBOБOДHA 006487 : PLAS1:14,XTA, 006488 : ,A+X,=R1. 006489 : 14,ATX, 006490 : ,UJ,S/MT 006491 : C 006492 : C--- ПOДПPOГPAMMA BЫБOPKИ OЧEPEДHOГO 006493 : C CЛOBA ПACПOPTA ЗAДAЧИ. 006494 : C 006495 : GIVPW:12,VLM,GP1 006496 : 11,XTA,.ПEPEXOД 006497 : ,AAX,=:0000 77.HA 006498 : ,ASN,64+26.ПPOДOЛЖEHИE 006499 : ,ATI,11.ПACПOPTA 006500 : 11,UTM,CAT-16 006501 : 12,VTM,-14.C 1-ГO CЛOBA 006502 : GP1:11,UTC, 006503 : 12,XTA,15 006504 : 14,UJ, 006505 : C 006506 : C--- ИHФ.CЛOBO ДЛЯ ЗAПPOCA ДП. 006507 : INF57:13,Z07,7240B 006508 : 8,Z00,MONOSC 006509 : C--- ИHФ.CЛOBO ДЛЯ OTKAЗA OT ДП 006510 : OTK:13,Z07,7240B. 006511 : 8,Z06, 006512 : C 006513 : C--- ПPOБA HAЛИЧИЯ ДИCKOBЫX PECYPCOB 006514 : C 006515 : S/MD:15,VTM,USEMD 006516 : ,XTA,USEMD 006517 : ,ASN,64-4 006518 : ,YTA, 006519 : ,UZA,REDINF.HE ЗAKAЗ. 006520 : ,ATI,10 006521 : ,AOX,I0 006522 : ,E+N,64 006523 : 10,UTM,-1 006524 : ,ITS,10 006525 : ,ASN,64-24 006526 : ,AOX,INF57 006527 : ,XTS,=:4.БИT 006528 : ,ATX,BITM.ЗAKAЗA 006529 : 14,VJM,GIVPW.FILCOUNT 006530 : ,XTS,.MONOSC 006531 : ,XTS, 006532 : DNAM:14,VJM,GIVPW 006533 : 15,ATX, 006534 : 14,VJM,GIVPW 006535 : ,AUX,BITM 006536 : ,AOX,MONOSC 006537 : ,ATX,MONOSC 006538 : 10,VZM,TO57 006539 : ,XTA,BITM.ПEPEXOД 006540 : ,ASN,64+1.K CЛEД. 006541 : ,ATX,BITM.ПAKETY 006542 : ,XTA,FILCOUNT 006543 : ,ASN,64-1 006544 : ,ASN,64-4 006545 : ,ATX,FILCOUNT 006546 : ,YTA, 006547 : ,ATI,13 006548 : C--- ГЛOTAEM ИMEHA ФAЙЛOB 006549 : FILES:13,VZM,NEWDI 006550 : 14,VJM,GIVPW 006551 : 13,UTM,-1 006552 : ,UJ,FILES 006553 : NEWDI:10,UTM,-1 006554 : ,UJ,DNAM 006555 : C 006556 : C--- ЗAПPOC ПAKETOB 006557 : C 006558 : TO57:,XTA,ABSMD 006559 : ,*57,-1 006560 : ,ACX,I0 006561 : ,E+N,64 006562 : REDINF:,BSS,. 006563 : ,ATX,ABSMD. 006564 : ,XTA,OTK. 006565 : ,*57,-1 006566 : 2,UJ,. 006567 : C****************************************** 006568 : C 006569 : C ПOДПPOГPAMMA YБИPAHИЯ ЗAДAЧИ 006570 : C ИЗ ПPИOPИTETHЫX OЧEPEДEЙ . 006571 : C 006572 : C******************************************* 006573 : YБEPИ:,BSS,. 006574 : 11,VTM,6 006575 : 14,VTM,-2 006576 : Y*1:,ATX,N1. 006577 : 11,ASN,64. 006578 : ,AOX,N1. 006579 : 11,J+M,11. 006580 : 14,VLM,Y*1. 006581 : 11,VTM,-2 006582 : Y*2:,*76,OUT/SC. 006583 : 11,VLM,Y*2. 006584 : 11,VTM,PRIPLTER-PRIPL/SC 006585 : 11,UTM,-2 006586 : ,*76,OUT/SC 006587 : 13,UJ,. 006588 : OUT/SC:14,REL,* 006589 : ,ATX,N1. 006590 : 11,AEX,PRIPL/SC+2. 006591 : ,ATX,W0001. 006592 : ,AAX,K40*. 006593 : ,ATX,W0002. 006594 : ,AEX,W0001. 006595 : ,ARX,K37*. 006596 : ,AAX,K40*. 006597 : ,AOX,W0002. 006598 : ,ATX,W0002. 006599 : ,AEX,K40*. 006600 : ,ATX,W0003. 006601 : ,UZA,Y*3. 006602 : ,ACX,. 006603 : ,NTR,3 006604 : ,A*X,I6. 006605 : ,YTA,64. 006606 : ,ATX,N2. 006607 : ,XTA,W0003. 006608 : ,ASN,64+5. 006609 : ,ARX,K37*. 006610 : ,AAX,K37*. 006611 : ,AOX,W0002. 006612 : ,ATX,W0002. 006613 : 11,XTA,PRIPL/SC+2. 006614 : ,APX,W0002. 006615 : ,WTC,N2. 006616 : ,ASN,64. 006617 : 11,ATX,PRIPL/SC+2. 006618 : Y*3:,XTA,N1. 006619 : ,MTJ,23. 006620 : 2,IJ,. 006621 : C******************************************* 006622 : RCAT:9,, 006623 : ,,CAT. 006624 : WCAT:10,,. 006625 : ,,CAT. 006626 : IWTIM:,LOG,0014 0200 0016 0030 006627 : C******************************************* 006628 : C KOHCTAHTЫ И PAБOЧИE ЯЧEЙKИ 006629 : C******************************************* 006630 : COGRAN:,LOG,37 7776.Ш20-01 006631 : C*** ПPEДПOЧTИTEЛЬHЫE BPEMEHA CЧETA ПO ШИФPAM 006632 : KC:,BSS,. 006633 : ,OCT,7777 7777 7777 7777 006634 : ,OCT,7777 7777 7777 7777 006635 : ,OCT,7774.1-10 006636 : ,OCT,7777 7777 7777 7777.Ш3 006637 : ,OCT,7777 7777 7777 7777.Ш2 006638 : ,OCT,0000 0017 7777 7777.21-... 006639 : C*** ПPEДПOЧTИTEЛЬHЫE BPEMEHA OTЛAДKИ ПO ШИФPAM 006640 : KO:,BSS,. 006641 : ,OCT,7777 7777 7777 7777.ДИAЛOГ 006642 : ,OCT,7774.1-10 006643 : ,OCT,76.1-5 006644 : ,OCT,7774.1-10 006645 : ,OCT,7777 7777 77.1-30 006646 : ,OCT,0000 0777 7777 7777.16-... 006647 : C*** PAБOЧИE KOHCTAHTЫ ПЛAHИPOBKИ (MOЖHO YTOЧHЯTЬ) 006648 : TIMWA:,REAL,0.0166666667 006649 : C******************************************* 006650 : C A ЭTO HE MEHЯTЬ HИ B KOEM CЛYЧAE: 006651 : C******************************************* 006652 : K40:,LOG,40 006653 : K40*:,OCT,4040 4040 4040 4040 006654 : K37*:,OCT,3737 3737 3737 3737 006655 : I0:,INT,0 006656 : I6:,INT,6 006657 : TPL:,ISO,12HПЛAHИPOBЩИK'' 006658 : C******************************************* 006659 : SC/FREE:,BSS,1 006660 : N1:,BSS,1 006661 : N2:,BSS,1 006662 : W0001:,BSS,1 006663 : W0002:,BSS,1 006664 : W0003:,BSS,1 006665 : C 006666 : C=============================== 006667 : C 006668 : ,END,AEROPLAN. 006669 : DISPINIT:,NAME,. 006670 : C 006671 : C===== ПAPAMETPЫ ЧИCЛA ЗAДAЧ ===== 006672 : C 006673 : *ИПД:LC,BLOCK,(4),XNЖДY(5),Ш/FULL 006674 : ,CONT,(20),LAЦПY(2) 006675 : NЖДY:,WEQ,XNЖДY 006676 : *YCЫ:,LC, 006677 : TYPSEM:,EQU,*ИПД+7 006678 : BATCH:,EQU,*ИПД+40B 006679 : PRIPL/SC:,EQU,*ИПД+47B.ЭKCПPECCЫ 006680 : C 006681 : C--------------------------------- 006682 : C OБOЗHAЧEHИЯ MOДИФИKATOPOB. 006683 : *1:,BLOCK,B,T,PR,L0,L,R,TW,TR,LL 006684 : SB:,EQU,12.БЛOKИPOBKA ПOИCKA 006685 : C 006686 : NSEC:,EQU,20 006687 : C OБOЗHAЧEHИЯ ИCTИHHЫX AДPECOB. 006688 : IINF:,EQU,506B.KAT.BBOДA MБ 006689 : DTEL:,EQU,101B. 006690 : BIT13:,EQU,743B 006691 : BIT1:,EQU,757B. 006692 : C 006693 : STATUSMT:LC,BLOCK,(32),MISTERX 006694 : TABLEMT:LC,BLOCK,(64),T2MT 006695 : FATA:,LC,1 006696 : TABDRU:,LC,16 006697 : NFRITR:,LC,1 006698 : DISPBASE:LC,BLOCK,(6),NUMEVM 006699 : C 006700 : NSTAJOB:,LC,1. 006701 : MSTART:,LC,1. 006702 : LCAT:,EQU,2000B. 006703 : LZON:,EQU,4000B. 006704 : OUTSTAT:,EQU,0.KAK B TAPEPRNT 006705 : NZON1:,EQU,1677B 006706 : *1700:B,BLOCK,NZON,INF,SCFR(32),KOTP1 006707 : ,CONT,MASK,WBUF(3),KOTP2,WDRUMR 006708 : ASIGN:,EQU,1777B.AДP.ПPИЗ.CПEЦ. 006709 : COMX:,EQU,1776B 006710 : *230:B,BLOCK,(1),(32),ADS(2) 006711 : ДOПYПP:LC,BLOCK,(10),NTRFRO 006712 : CAT:,EQU,LCAT 006713 : SCFRC:,EQU,CAT+1720B. 006714 : SCFRZ:,EQU,CAT+1740B. 006715 : WSC1:,EQU,CAT+1760B 006716 : LASTW:,EQU,CAT+1775B. 006717 : MARK:,EQU,CAT+1777B 006718 : LLC:,P/P,(LCAT)16 006719 : LLZ:,P/P,(LZON)16 006720 : FLMAMБ:,LC,1 006721 : CLMTSP:,SUBP, 006722 : ,CALL,PRINTDR. 006723 : BAS:B,BASE,*. 006724 : ,*65,1. 006725 : ,ATX,KOTP1.KOПИЯ TP1 006726 : ,*65,NTRFRO.KYC ROLL TPAKYA 006727 : ,ATX,WBUF+2 006728 : ,*65,2 006729 : ,ATX,KOTP2.KOПИЯ TP2 006730 : ,AAX,BCNDR 006731 : ,ATX,WBUF.ПPИЗH.HE HAДO 006732 : ,ATX,WBUF+1.PAЗMEЩ.KAT 006733 : TR,VTM,1.KOЛИЧ.CПEЦ.TP 006734 : L,VTM,1-16 006735 : ,U1A,CHROLL.TOЛЬKO ROLL 006736 : ,*65,ADS.KYC KAT.BBOДA 006737 : ,AAX,PTRAPHY 006738 : ,ATX,WBUF 006739 : ,UZA,*1 006740 : ,ARX,C4 006741 : *1:,ATX,WBUF+1 006742 : TR,VTM,3 006743 : CATDI:,BSS, 006744 : C ЦИKЛ ПOИCKA MECTA HA MБ 006745 : TW,VTM,3 006746 : C HE ЗAKPЫT ЛИ MБ HA ПYЛЬTE 006747 : L,*65,BIT1 006748 : ,AAX,=177637.БEЗ 21,22 006749 : ,UZA,NEXTD 006750 : ,AAX,KOTP1 006751 : ,U1A,NEXTD.ЗAKPЫT 006752 : L1DR:,BSS, 006753 : C ЦИKЛ ИЗYЧEHИЯ MБ 006754 : TW,UTM,-1 006755 : TW,XTA,WBUF 006756 : ,U1A,EL1DR.TAKOЙ ECTЬ 006757 : R,VJM,ADAM 006758 : C ECTЬ ЛИ MECTO ДЛЯ TAKOГO TИПA 006759 : ,AAX,MASK 006760 : ,U1A,NEXTD.HET,HA CЛEД.MБ 006761 : EL1DR:TW,V1M,L1DR 006762 : C БAPAБAH OПPEДEЛEH, ЗAXBAT TPAKTOB 006763 : TW,VTM,3 006764 : LTAKE:,BSS, 006765 : TW,UTM,-1 006766 : TW,XTA,WBUF 006767 : ,U1A,ETAKE 006768 : R,VJM,ADAM 006769 : ,AOX,MASK 006770 : ,*76,WRWT.ФИЗ.ЗAПИCЬ 006771 : C ПOЛYЧEHИE KYCA TPAKTA 006772 : L,MTJ,R 006773 : R,UTM,15+10B.AДP. MБ 006774 : ,ITA,R 006775 : ,ASN,64-5 006776 : ,ATI,R 006777 : TW,J+M,R.AДPEC TPAKTA 006778 : ,ITA,R 006779 : ,ASN,64-37 006780 : ,AUX,PTRAPHY 006781 : TW,ATX,WBUF 006782 : ETAKE:TW,V1M,LTAKE 006783 : ,UJ,GO ON.BCE ЗAXBATИЛИ 006784 : NEXTD:L,VLM,CATDI.HA CЛEД. MБ 006785 : C MECTA ПOД CПEЦ. TPAKTЫ HET, 006786 : C ПEЧATЬ HA TT И HOBAЯ ПOПЫTKA. 006787 : L,VTM,TEKNDR. 006788 : PR,VTM,1-NSEC.ДЛИHA ЗAДEPЖKИ 006789 : 13,VJM,TTPR 006790 : R,VTM,BAS.HA HOBYЮ ПOПЫTKY 006791 : ,UJ,ПOДOЖДEM 006792 : ADAM:,BSS, 006793 : C ПOДПPOГPAMMA ПOЛYЧEHИЯ AДPECA И 006794 : C MACKИ ЭЛEMEHTA TABDRU ПOE 006795 : C L=NKAHAЛA * 8 + N MБ -8 -15 006796 : C TW=N TPAKTA. PEЗYЛЬTAT: 006797 : C T=AДPEC, MASK=MACKA. 006798 : C CYMMATOP=CЛOBO ИЗ TABDRU 006799 : L,MTJ,T 006800 : TW,*65,700B 006801 : T,UTM,TABDRU+15 006802 : ,ATX,MASK 006803 : T,*65,.CЛOBO TABDRU 006804 : R,UJ, 006805 : WARXT:T,ARX, 006806 : WRWT:,BSS, 006807 : C ФИЗ. ЗAПИCЬ ПO AДPECY T 006808 : T,ATX, 006809 : ,MTJ,27B 006810 : 2,IJ, 006811 : CHROLL:,XTA,WBUF+2 006812 : ,UZA,CATDI 006813 : GO ON:,BSS, 006814 : C ЧИCTKA ROLL TPAKTA, ECЛИ HAДO 006815 : ,XTA,KOTP2 006816 : ,AAX,BCLROLL 006817 : ,UZA,CATWORK.HE HAДO 006818 : ,XTA,WBUF+2 006819 : ,APX,PTRAPHY 006820 : ,AUX,CUN70.ПOЛYЧEHИE 006821 : ,ARX,CCINP.ИHФ.CЛOBA 006822 : ,ATX,WDRUMR.ДЛЯ 70-ГO ЭKCTP. 006823 : ,XTA, 006824 : ,ATX,LCAT+1.ЧИCЛO CБPOШ. 006825 : ,ATX,LCAT+2.ШK. BOCCT. 006826 : ,XTA,MISTERX 006827 : ,ATX,LCAT+COMX.MISTERX 006828 : ,XTA,ROLLSIGN 006829 : ,ATX,LCAT+ASIGN 006830 : ,DRUM,WDRUMR 006831 : CATWORK:,BSS, 006832 : C YCTAHOBKA INF CЛOBA ROLL TPAKTA 006833 : ,XTA,WBUF+2 006834 : ,AOX,C6000 006835 : T,VTM,NTRFRO 006836 : ,*76,WRWT 006837 : C PAЗMEЩEHИE B ЯЧEЙKAX CCЫЛOK 006838 : C HA KATAЛOГИ ИX AДPECOB. 006839 : TR,UTM,-1 006840 : TR,VZM,ECATWORK.KAT. HA ДИCKE 006841 : C PAБOTA C KATAЛOГOM BBOДA 006842 : ,XTA,WBUF 006843 : ,APX,PTRAPHY 006844 : ,AUX,CUN70 006845 : ,AOX,B39 006846 : T,VTM,IINF 006847 : ,*76,WRWT 006848 : ECATWORK:,BSS, 006849 : SB,VTM,7 006850 : C 006851 : C.. ПOДCЧET K-BA CBOБ. TPAKTOB 006852 : C 006853 : ,XTA, 006854 : ,ATX,CNT 006855 : L,VTM,-15 006856 : C 006857 : C B CTPOKИ TABDRU, COOTB.PAЗPEШEHHЫM 006858 : C HA ПYЛЬTE MБ, BПИCЫBAEM ФИЗ.HOMEPA 006859 : C ЭTИX MБ / ДЛЯ GIVTRACK / 006860 : C 006861 : */*:SB,UTM,1 006862 : L,*65,BIT1 006863 : ,AAX,KOTP1 006864 : ,U1A,*//*.MБ ЗAKPЫT 006865 : L,MTJ,T 006866 : T,UTM,TABDRU+15 006867 : ,ITA,SB 006868 : ,*76,WARXT 006869 : ,AEX,FULW 006870 : ,ASN,64+16 006871 : ,ACX,CNT 006872 : ,ATX,CNT 006873 : *//*:L,VLM,*/* 006874 : T,VTM,NFRITR 006875 : ,XTA,CNT.ЗAПИCЬ 006876 : ,*76,WARXT.B CЧETЧИK 006877 : *2:,XTA,KOTP2 006878 : ,AAX,BBLS.ПPOБA БЛ.ПOИCKA 006879 : ,U1A,BCE MЛ.ECTЬ БЛOKИPOBKA 006880 : SB,VTM,.CБPOC ФЛAГA БЛ. 006881 : C ПOИCK OБЛACTEЙ BBOДA/BЫBOДA. 006882 : Ц1:PR,VTM,1-NSEC 006883 : L0,VTM,-1 006884 : Ц2:L0,XTA,NAM+1 006885 : ,*57,540B 006886 : L0,ATI,TR 006887 : ,UZA,HET MЛ 006888 : R,VTM,Ц1 006889 : ,ASN,64+6 006890 : ,U1A,HET MЛ 006891 : TW,VZM,HET MЛ 006892 : L0,VLM,Ц2 006893 : ,UJ,BCEMЛ 006894 : ПOДOЖДEM:,*57,3 006895 : PR,VLM,ПOДOЖДEM 006896 : R,UJ, 006897 : HET MЛ:L0,VLM,Ц2 006898 : L,VTM,DIAGN-2 006899 : TW,V1M,TT1 006900 : L,UTM,2 006901 : TT1:TR,V1M,TT2 006902 : L,UTM,4 006903 : TT2:R,VTM,*2 006904 : 13,VJM,TTPR 006905 : SB,VTM,1 006906 : ,UJ,ПOДOЖДEM 006907 : TTPR:,ITA,L 006908 : ,FUN,76B 006909 : 13,UJ, 006910 : C--- 006911 : BCE MЛ:,BSS, 006912 : ,XTA,KOTP2 006913 : ,AAX,BCNDR 006914 : LL,VTM,-1.KATAЛOГИ 006915 : ,UZA,TCLO.- HA MБ 006916 : C..... KATAЛOГИ ПPИ OБЛACTЯX 006917 : SB,V1M,END TAP.И БЛOK.ПOИCKA 006918 : C 006919 : C===== OБPAБOTKA KATAЛOГOB BBOДA/BЫBOДA 006920 : C 006921 : TCLO:,XTA,KOTP2 006922 : LL,AAX,BCATO.HYЛИTЬ KATAЛ. 006923 : ,UZA,NOTZERO 006924 : C..... OБHYЛEHИE OЧEPEДHOГO KATAЛOГA 006925 : ,*65,TYPSEM.CEMAФOP 006926 : LL,ASN,64-2.ДOCTYПA K ФAЙЛY 006927 : ,ARX, .ДBYXMAШИHHЫЙ 006928 : ,U1A,CLEAR.- HET 006929 : ,XTA,=12 000 000 006930 : ,FUN,16.ЖИBA ЛИ 006931 : ,AEX, .COCEДHЯЯ MAШИHA 006932 : ,U1A,NOTZERO.- ДA 006933 : CLEAR:,BSS, 006934 : L,VTM,1-1024 006935 : 13,VTM,WRO 0 006936 : LZCO:,XTA, 006937 : L,ATX,LCAT+1023 006938 : L,VLM,LZCO 006939 : L,VTM,1-16 006940 : LZCO 1:L,UTC,15 006941 : 14,VTM, 006942 : ,ITA,14 006943 : ,ASN,64-2 006944 : ,AOX,B48/45 006945 : L,ATX,SCFRC+15 006946 : ,ITA,14 006947 : ,ASN,64-5 006948 : ,AOX,B48/17 006949 : L,ATX,SCFRZ+15 006950 : L,VLM,LZCO 1 006951 : 14,VTM,1720B 006952 : ,ITA,14 006953 : ,ATX,LASTW 006954 : 14,VTM,1740B 006955 : ,ITA,14 006956 : ,ATX,LASTW+1 006957 : SB,V1M,WRO 0.= HET OБЛACTEЙ 006958 : BLOCKEND:,BSS, 006959 : C П/П OПPEДEЛEHИЯ ЧИCЛA ЭKCTEHTOB 006960 : C B OБЛACTИ. HA BXOДE TR = 006961 : C HOMEPY MOДEЛИ(ФИЗ.ЛEHTЫ). 006962 : C БЛOKИPYЮTCЯ OTCYTCTBYЮЩИE ЗOHЫ 006963 : ,NTR,7 006964 : 14,VTM, 006965 : ,ITA,TR.COOTB.OБЛACTЬ 006966 : ,A-X,C30.- MOДEЛЬ 006967 : ,UZA,WRO 0. = HET 006968 : TR,*63,T2MT-30B 006969 : ,ATI,14 006970 : 14,*63,FATA-1.CCЫЛKA ФAЙЛA 006971 : ,ATX,MASK 006972 : ,ASN,64+12 006973 : ,AAX,C7777 006974 : ,ATX,INF.AДPEC HAЧAЛA 006975 : ,*65,757B.BIT1 006976 : ,ARX,MASK 006977 : ,AAX,C7777.AДPEC KOHЦA +1 006978 : ,A-X,INF.ДЛИHA 006979 : ,ASN,64+5.ДЛИHA/32 006980 : ,ATI,14 006981 : 14,UTM,-16 006982 : C..... БЛOKИPOBKA XBOCTA OБЛACTИ 006983 : CEC:14,VZM,WRO 0 006984 : ,XTA,Z48/17 006985 : 14,AAX,SCFRZ+16 006986 : 14,ATX,SCFRZ+16 006987 : 14,VLM,CEC 006988 : 13,UJ, 006989 : NOTZERO:,BSS, 006990 : C HAДO ЛИ ЧИCTИTЬ OБЛACTЬ BЫBOДA 006991 : SB,VIM,TZSI 006992 : LL,VZM,CLEOUT 006993 : ,*65,6 006994 : ,AAX,BIT13 006995 : ,UZA,TZSI 006996 : C ПOГИБШИM ЗAДAЧAM - ПOTOKOBЫЙ ПPИOPИTET 006997 : ,XTA,IRCATI 006998 : ,*57,7 006999 : L0,VTM,-60 007000 : T,VTM,LCAT 007001 : KI1:T,XTA, 007002 : ,ARX, 007003 : ,UZA,KI2 007004 : ,AAX,=:3 007005 : ,UZA,KI2 007006 : ,XTA,B48 007007 : T,AOX, 007008 : T,ATX, 007009 : L0,MTJ,14 007010 : 14,UTM,61 007011 : ,XTA,SC/ПП 007012 : ,ASN,64-6 007013 : ,ATX,SC/ПП 007014 : ,ITA,14 007015 : ,AOX,SC/ПП 007016 : ,ATX,SC/ПП 007017 : KI2:T,UTM,16 007018 : L0,VLM,KI1 007019 : ,XTA,SC/ПП 007020 : ,*52,PRIPL/SC+2 007021 : ,XTA,IWCAT 007022 : ,*57,7 007023 : ,UJ,TZSI 007024 : CLEOUT:,BSS, 007025 : ,XTA,IRCAT 007026 : ,*57,7 007027 : L0,VTM,1-63 007028 : ,*65,NUMEVM 007029 : ,ASN,64+46 007030 : ,ASN,64-1 007031 : ,ATI,10.2*NUMEVM 007032 : ,ASN,64-35 007033 : ,ATX,CNT.NEVM /38-37/ 007034 : 10,UTM,WSC1.AДP ПOCЛ.ЭKCTEH 007035 : T,VTM,LCAT 007036 : ,XTA,MARK 007037 : LL,AEX,CODES+1 007038 : PR,VTM,-10 007039 : L,VTM,BADCAT 007040 : ,U1A,TT2 007041 : C HAЧHEM ПPOCMOTP ЭЛEMEHTOB KATAЛOГA 007042 : KA2:T,UTM,5 007043 : T,XTA,OUTSTAT 007044 : ,AEX,CNT.ЗAДAЧA 007045 : ,AAX,=:0003.C HAШEЙ MAШИHЫ 007046 : ,U1A,EKA2.- HET 007047 : T,XTA,OUTSTAT 007048 : ,ARX, 007049 : ,UZA,KA30.ЗAKOHЧEHA 007050 : ,AAX,B47 007051 : ,UZA,EKA2. 007052 : KA30:T,XTA,OUTSTAT 007053 : ,AAX,C777 007054 : ,ATX,NZON1 007055 : ,U1A,L/ZON 007056 : C......OCBOБOЖДEHИE ЭЛEMEHTA KATAЛOГA 007057 : FR/EL:L0,UTC,63 007058 : 14,VTM, 007059 : ,ITA,14 007060 : ,ASN,64-42 007061 : ,AUX,=1700003 007062 : ,ATI,13 007063 : ,ASN,64+15 007064 : ,ATI,14 007065 : ,XTA,B48 007066 : 13,ASN,64 007067 : 14,AOX,SCFRC 007068 : 14,ATX,SCFRC 007069 : ,UJ,EKA2 007070 : L/ZON:,ATX,NZON 007071 : ,AOX,IRZON 007072 : ,*57,7 007073 : ,XTA,NZON 007074 : ,ASN,64+5 007075 : ,ATI,14.ADR SC 007076 : ,ASN,64-5 007077 : ,AEX,NZON 007078 : ,ATI,13.PLACE IN SC 007079 : T,XTA,OUTSTAT 007080 : ,AEX,LZON 007081 : ,AAX,M CHZ 007082 : ,UZA,N/ZON.CBOЯ ЗOHA 007083 : C OCBOБOДИM ЗOHY 007084 : ,XTA,B48 007085 : 13,ASN,64 007086 : 14,AOX,SCFRZ 007087 : 14,ATX,SCFRZ 007088 : C ECЛИ ЗOHA ПEPBAЯ ЖE,TO 007089 : C OCBOБOДИM И ЭЛEMEHT KATAЛOГA 007090 : ,XTA,NZON 007091 : ,AEX,NZON1 007092 : ,UZA,FR/EL 007093 : ,UJ,EKA2 007094 : N/ZON:,ITA,14 007095 : ,ASN,64-5 007096 : 10,AEX,1 007097 : ,AAX,C777.LAST EXTENT 007098 : ,U1A,NEXT.- HET 007099 : ,XTA,B48 007100 : 13,ASN,64 007101 : 10,AAX,1.ИCKЛЮЧИM 007102 : 10,AEX,1.ЗOHY ИЗ 007103 : 10,ATX,1.LAST EXTENT 007104 : NEXT:,XTA,LZON 007105 : ,AAX,C777 007106 : ,U1A,L/ZON 007107 : EKA2:L0,VLM,KA2 007108 : C BEPHEM OCTATKИ ПOCЛ. ЭKCTEHTA 007109 : 10,XTA,1 007110 : ,AAX,C777 007111 : ,ASN,64+5 007112 : ,ATI,14 007113 : 10,XTA,1 007114 : 14,AOX,SCFRZ 007115 : 14,ATX,SCFRZ 007116 : ,XTA, 007117 : 10,ATX, .ЭЛ.KAT 007118 : 10,ATX,1.ЭKCTEHT 007119 : 13,VJM,BLOCKEND 007120 : C..... БЛOKИPOBKИ CЛYЖEБHOГO 007121 : WRO 0:LL,VZM,WRO 1.= BЫBOД 007122 : ,XTA,Z47/45 007123 : ,AAX,SCFRC+15 007124 : ,ATX,SCFRC+15 007125 : WRO 1:LL,V1M,WRO 2.= BBOД 007126 : ,XTA,Z48 007127 : ,AAX,SCFRC 007128 : ,ATX,SCFRC 007129 : WRO 2:,XTA,Z48 007130 : ,AAX,SCFRZ 007131 : ,ATX,SCFRZ 007132 : C..... 007133 : LL,XTA,CODES+1 007134 : ,ATX,MARK 007135 : C..... 007136 : LL,XTA,IWCAT+1.= ЗAПИCЬ 007137 : ,*57,7. KATAЛOГA 007138 : LL,VZM,TZSI.BЫBOД 007139 : C..... 007140 : TZSI:TW,MTJ,TR 007141 : LL,VLM,TCLO 007142 : C HAДO ЗAПYCKATЬ PACПEЧATKY. 007143 : SB,V1M,ENDTAP.HE HAДO 007144 : C ЗAПYCK ЗAДAЧИ PACПEЧATKИ. 007145 : ,*76,STARTPRT. 007146 : L,VTM,TSTART 007147 : 13,VJM,TTPR 007148 : ,*57,3 007149 : C 007150 : C ЗAПYCK ПЛAHИPOBЩИKA 007151 : C 007152 : ,XTA,=10.ПЛAHИPOBЩИK 007153 : ,ATX,NJPT 007154 : ,XTA,=36 007155 : ,*52,BATCH 007156 : ,*76,STARTPRT 007157 : C... 007158 : ENDTAP:,BSS,. 007159 : ,XTA, 007160 : ,*76,ДYБHA 007161 : STARTPRT:14,REL,*. 007162 : ,XTA, 007163 : ,ATX,FL MAMБ 007164 : ,ATX,DTEL. 007165 : ,XTA,NJPT. 007166 : ,ATX,NSTAJOB. 007167 : ,ATX,MSTART. 007168 : ,XTA,Ш/FULL 007169 : ,ATX,LAЦПY+1 007170 : ,MTJ,27B 007171 : 2,IJ, 007172 : C--------- 007173 : ДYБHA:14,REL,* 007174 : ,ATX,FLMAMБ.PAЗPEШ.ПYCK 007175 : 13,VTM,1-12 007176 : ДYБ:13,XTA,ПPИП+11 007177 : ,WTC,*YCЫ+NЖДY 007178 : 13,ATX,43B 007179 : 13,VLM,ДYБ 007180 : 14,VTM,574B 007181 : ,UJ,CLMTSP 007182 : ПPИП:,BSS, 007183 : C..... ПPИПИCKA ЖДYЩEГO TECTA 007184 : ,LOG,113 6447 007185 : ,LOG,112 0451 007186 : ,LOG,112 0451 007187 : ,LOG,113 4451 007188 : ,LOG,072 2757 007189 : ,LOG,012 2451 007190 : ,LOG,763 4451 007191 : ,LOG, 007192 : C..... ЗAЩИTA ЖДYЩEГO TECTA 007193 : ,LOG,0744 000000 007194 : ,LOG,1144 000000 007195 : ,LOG,1174 000000 007196 : ,LOG,1100 000000 007197 : MCHZ:,LOG,77 77 77 000 000.NBЫB,NBB,NЛAБ 007198 : IRCAT:1,, 007199 : ,Z00,CAT 007200 : IRCATI:9,, 007201 : ,Z00,CAT 007202 : IWCAT:10,, 007203 : ,Z00,CAT 007204 : :2,, 007205 : ,Z00,CAT 007206 : IRZON:3,Z01,LLZ 007207 : ,, 007208 : CCINP:,004,LLC 007209 : ,Z00, 007210 : DIAGN:,BSS,. 007211 : ,ISO,12HMЛ BЫBOДA'41''''' 007212 : ,ISO,12HMЛ BBOДA '41''''' 007213 : ,ISO,12HMЛ BB/BЫB'41''''' 007214 : BADCAT:,ISO,18HПЛOX.KATAЛ.BЫBOДA'' 007215 : TSTART:,BSS,. 007216 : ,ISO,17HBЫBOД БYФEPИЗOBAH 007217 : ,CONT,1H'' 007218 : TEKNDR:,ISO,6HHET MБ 007219 : ,LOG, 007220 : ROLLSIGN:,ISO,6HROLLTR 007221 : NAM:,BSS,. 007222 : ,TEXT,8HD73OUT '3' 007223 : ,TEXT,8HD73INP '1' 007224 : SC/ПП:,LOG, 007225 : NJPT:,LOG,11. 007226 : FULW:,LOG,7777 7777 7777 7777. 007227 : B48/45:,OCT,74 007228 : Z48 :,LOG,3777 7777 7777 7777 007229 : Z47/45:,LOG,4377 7777 7777 7777 007230 : Z48/17:,LOG,0000 0000 0017 7777 007231 : BCNDR:,BSS, 007232 : B48:,OCT,4. 007233 : BBLS:,OCT,004 007234 : B47:,OCT,2. 007235 : BCATO:,OCT,1 007236 : C4:,LOG,4 007237 : C6000:,LOG,6000 007238 : BCLROLL:,OCT,04 007239 : B39:,OCT,0004 007240 : CUN70:,LOG,77 0037 007241 : PTRAPHY:,LOG,70000000001774 007242 : CODES:,BSS, 007243 : ,ISO,6HD78INP 007244 : ,ISO,6HD78OUT 007245 : B48/17:,OCT,77777777776 007246 : C777:,LOG,777. 007247 : C30:,LOG,30 007248 : C7777:,LOG,7777 007249 : CNT:,BSS,1. 007250 : ,END,. 007251 : CЛYГA:,NAME, 007252 : C 007253 : C***** ИЗMEHEHИE HACTPOЙKИ ДИCПETЧEPA 007254 : C B БЛOKE BЫЗOBA 007255 : C 007256 : C ЗAПYCK : 13/ 007257 : C 007258 : C ПOPЯДOK PAБOTЫ: 007259 : C 007260 : C 1. BHAЧAЛE YKAЖEM HOMEP MБ И TPAKTA, 007261 : C HA KOTOPOM HAXOДИTCЯ БЛOK BЫЗOBA: 007262 : C HAПPИMEP, =2036 007263 : C ГДE - TEPMИHATOP ЗAДAЧИ, 007264 : C 2036 - 36-Й TPAKT MБ 20. 007265 : C ПPИ ЖEЛAHИИ ИCПPABИTЬ HACTPOЙKY B 420 007266 : C ЗOHE ФAЙЛA 9/MONSYS YKAЖEM: =S 007267 : C 007268 : C 2. ДЛЯ ИCПPABЛEHИЯ KOHCTAHT B TPEБYEMOЙ 007269 : C HACTPOEЧHOЙ ПPOГPAMME HAБEPEM CTPOKY: 007270 : C =<ИMЯ>:,,..., 007271 : C ГДE: <ИMЯ> - ИMЯ ПPOГPAMMЫ, 007272 : C - BOCЬMEPИЧHAЯ KOHCTAHTA. 007273 : C БYДET ИCПPABЛEHO CTOЛЬKO ЯЧEEK, CKOЛЬ- 007274 : C KO MЫ ЗAДAДИM KOHCTAHT. ECЛИ ЖEЛATEЛЬ- 007275 : C HO ИCПPABЛЯTЬ ЗHAЧEHИЯ HAЧИHAЯ HE C 007276 : C 0-Й ЯЧEЙKИ ПPOГPAMMЫ, YKAЖEM OTHOCИ- 007277 : C TEЛЬHЫЙ AДPEC ПEPBOЙ KOHCTAHTЫ: 007278 : C =<ИMЯ>+:,..., 007279 : C ECЛИ CПИCOK ПOЛYЧИЛCЯ CЛИШKOM ДЛИHHЫЙ, 007280 : C EГO MOЖHO ПPEPBATЬ ПOCЛE ДBOETOЧИЯ ИЛИ 007281 : C ЗAПЯTOЙ И ПPOДOЛЖИTЬ HAБOP B CЛEДYЮЩEЙ 007282 : C CTPOKE, HAПPИMEP: 007283 : C =<ИMЯ>+: 007284 : C =,,, 007285 : C =, 007286 : C ПPИЗHAKOM KOHЦA CПИCKA KOHCTAHT ЯBЛЯ- 007287 : C ETCЯ OTCYTCTBИE PAЗДEЛИTEЛЯ. 007288 : C KAЖДAЯ KOHCTAHTA ПOCЛE ЗAПИCИ B COOT- 007289 : C BETCTBYЮЩYЮ ЯЧEЙKY BЫBOДИTCЯ HA TEPMИ- 007290 : C HAЛ, C YKAЗAHИEM ИMEHИ ПPOГPAMMЫ И OT- 007291 : C HOCИTEЛЬHOГO AДPECA ЯЧEЙKИ. 007292 : C 007293 : C 2. ДЛЯ ПPOCMOTPA ЯЧEEK HACTPOEЧHOЙ ПPOГ- 007294 : C PAMMЫ HAБEPEM ПPИKAЗ: 007295 : C =<ИMЯ> 007296 : C ПOCЛE ЭTOГO BCЯ ПPOГPAMMA БYДET BЫBE- 007297 : C ДEHA HA TEPMИHAЛ B BOCЬMEPИЧHOM BИДE. 007298 : C ECЛИ MЫ XOTИM ПOCMOTPETЬ KOHKPETHYЮ 007299 : C ЯЧEЙKY ПPOГPAMMЫ, ЗAДAДИM EE OTHOCИ- 007300 : C TEЛЬHЫЙ AДPEC: 007301 : C =<ИMЯ>+ 007302 : C 007303 : C 3. HAЗBAHИE ФИPMЫ TAKЖE MOЖET БЫTЬ ЗAME- 007304 : C HEHO. ДЛЯ CMEHЫ EГO HAБEPEM ПPИKAЗ: 007305 : C =FIRMA: 007306 : C HAЗBAHИE ЗAДAETCЯ B KOДE ISO, ЗHAKИ 007307 : C ПPEПИHAHИЯ B KOHЦE ПPOГЛATЫBAЮTCЯ. 007308 : C ЧTOБЫ YBИДETЬ CYЩECTBYЮЩEE HAЗBAHИE, 007309 : C BOCПOЛЬЗYEMCЯ ПPИKAЗOM: 007310 : C =FIRMA 007311 : C 007312 : C 4. ЧTOБЫ ПO OKOHЧAHИИ PAБOTЫ БЛOK BЫЗOBA 007313 : C БЫЛ ЗAПИCAH HA MECTO, HAБEPEM ПPИKAЗ: 007314 : C =E 007315 : C ЗAПИCЬ ПPOИЗOЙДET TOЛЬKO B TOM CЛYЧAE, 007316 : C ECЛИ MЫ ЧTO-HИБYДЬ ПOПPABИЛИ. 007317 : C ECЛИ ЖE MЫ HAЧAЛИ COMHEBATЬCЯ B HEOБ- 007318 : C XOДИMOCTИ ИCПPABЛEHИЙ, ПPEPBEM PAБOTY: 007319 : C =S 007320 : C 007321 : *YCЫ:LC,BLOCK,ГYC 007322 : C----- HACTPAИBAEMЫE БЛOKИ 007323 : DISPBASE:,LC,7 007324 : *ПДИCK:,SUBP, 007325 : TYPE MT:,SUBP, 007326 : *KOHCTPA:,SUBP, 007327 : *TYPELP:,SUBP, 007328 : TYP/PL:,SUBP, 007329 : *TLPRMT:,SUBP, 007330 : *TLBUFI:,SUBP, 007331 : FIRMNAM:,EQU,765B 007332 : C----- KOHEЦ HACTPOЙKИ 007333 : *TLSIZE:,SUBP, 007334 : C 007335 : C----- PAБOЧEE ПOЛE 007336 : PAGE:,EQU,2000B 007337 : NP:,P/P,(PAGE)16 007338 : SHIP:,EQU,PAGE+70B 007339 : SHIFT:,EQU,SHIP-DISPBASE 007340 : LENT:,EQU,*TLSIZE-DISPBASE 007341 : FIRMA:,EQU,FIRMNAM+PAGE 007342 : C 007343 : C 007344 : 1,BASE,* 007345 : C----- C KEM BEДEM ДИAЛOГ 007346 : ,FUN,70100B + 114B 007347 : ,AAX,=1 007348 : ,ASN,64-40 007349 : ,AOX,IWO 007350 : ,ATX,IWO 007351 : C----- COOБЩИM O CEБE 007352 : ,*65,ГYC 007353 : ,ASN,64-27 007354 : ,AUX,=6H'''''77''''''' 007355 : ,ARX,TITOUT 007356 : ,ATX,TITOUT 007357 : 2,VTM,TITOUT-BUFOUT 007358 : ,ITA,2 007359 : ,ARX,IWO 007360 : ,FUN,76B 007361 : C----- BЫЯCHИM, ГДE BЫЗЫBAЛKA 007362 : 2,VTM,BEGOUT-BUFOUT 007363 : ,ITA,2 007364 : ,ARX,IWO 007365 : ,FUN,76B 007366 : GET DR:,BSS, 007367 : ,XTA,IWI 007368 : ,FUN,205B 007369 : ,XTA,BUFIN 007370 : ,AEX,=1HS 007371 : ,ASN,64+40 007372 : ,UZA,SYS DR 007373 : ,XTA,NEWSTR 007374 : ,FUN,12 007375 : 14,UTM,-1 007376 : 14,VZM,IS DR 007377 : ERR DR:2,VTM,ERRTEXT-BUFOUT 007378 : ,ITA,2 007379 : ,ARX,IWO 007380 : ,FUN,76B 007381 : ,UJ,GET DR 007382 : IS DR:,BSS, 007383 : ,ATX,W 007384 : ,AAX,=7777 7777 7777 4040 007385 : ,U1A,ERR DR 007386 : ,XTA,W 007387 : ,ASN,64+9 007388 : ,ACX,.HAПPABЛEHИE 007389 : ,AEX,=1. 1 ИЛИ 2 007390 : ,U1A,ERR DR 007391 : ,XTA,W 007392 : ,ASN,64-36 007393 : ,AUX,=77 0077 007394 : ,ARX,CWEX 007395 : ,ATX,IWEX 007396 : SYS DR:,BSS, 007397 : C----- ЧTEHИE BЫЗЫBAЛKИ 007398 : 9,VTM,0 007399 : ,XTA,IWEX 007400 : ,ARX,=:001 007401 : ,DRUM, 007402 : ,XTA,IWO 007403 : ,FUN,76B 007404 : C 007405 : C===== ПPABKA HACTPOЙKИ 007406 : C 007407 : LOOP:,BSS, 007408 : ,XTA, 007409 : ,ATX,W 007410 : ,XTA,IWI 007411 : ,FUN,205B 007412 : ,XTA,NEWSTR 007413 : ,FUN,12 007414 : 14,UTM,-4.TEKCT 007415 : 14,V1M,ERROR 007416 : ,ATX,NAME 007417 : ,YTA, 007418 : ,ATX,NAME+1 007419 : ,XTA,NAME 007420 : ,AEX,=1HS 007421 : ,UZA,STOP 007422 : ,XTA,NAME 007423 : ,AEX,=1HE 007424 : ,UZA,END 007425 : 3,VTM,TABLA-TABLNAM 007426 : 4,VTM,TABLNAM 007427 : C----- ПOИCK ПPOГPAMMЫ 007428 : SEAR:,BSS, 007429 : ,XTA,NAME 007430 : 4,AEX, 007431 : ,U1A,E/S 007432 : ,XTA,NAME+1 007433 : 4,AEX,1 007434 : ,UZA,IS PR 007435 : E/S:4,UTM,2 007436 : 3,VLM,SEAR 007437 : C----- HET БЛOKA 007438 : ,UTC,TNON-ERRTEXT 007439 : ERROR:2,VTM,ERRTEXT-BUFOUT 007440 : ,ITA,2 007441 : E/LOOP:,ARX,IWO 007442 : ,FUN,76B 007443 : ,UJ,LOOP 007444 : IS PR:,BSS, 007445 : C----- AБCOЛЮTHЫЙ AДPEC 007446 : 3,VZM,IS AD 007447 : 3,XTA,TABLNAM 007448 : ,ATI,5 007449 : ,ASN,64+24 007450 : ,ATI,6 007451 : IS AD:,ATX,L 007452 : ,FUN,70100B + 136B 007453 : ,AAX,=177 007454 : ,ATI,7 007455 : 7,VZM,INFORM 007456 : 7,UTM,-53B. "+" 007457 : 7,V1M,CHKWORD 007458 : 3,VZM,ERROR 007459 : C----- OTHOCИTEЛЬHЫЙ AДPEC 007460 : ,XTA,OLDSTR 007461 : ,FUN,12 007462 : 14,UTM,-1.BINARY 007463 : 14,V1M,ERROR 007464 : ,ATX,W 007465 : ,YTA, 007466 : ,AAX,=177 007467 : ,ATI,7 007468 : C----- ПPOBEPKA AДPECA 007469 : ,ITA,6 007470 : ,ARX,W 007471 : ,ASN,64+15 007472 : ,U1A,ERADDR 007473 : C----- ЧTO ЗA PAБOTA 007474 : 7,VZM,INF/1 007475 : 7,UTM,-53B 007476 : CHKWORD:7,UTM,53B-72B. ":" 007477 : 7,V1M,ERROR 007478 : 3,V1M,PUTWORD 007479 : C----- HAЗBAHИE ФИPMЫ 007480 : ,XTA,OLDSTR 007481 : ,FUN,12 007482 : 14,UTM,-4 007483 : 14,V1M,ERROR 007484 : ,ATX,FIRMA 007485 : 9,VTM,TSTOP-TALL 007486 : OUTF:,ATX,NUM 007487 : ,XTA,=6H'1''1''1''1''1''1' 007488 : ,ATX,NAME+1 007489 : ,XTA, 007490 : ,ATX,NUM+1 007491 : ,UJ,E/LOOP 007492 : C----- ЗAПИCЬ ЗHAЧEHИЙ 007493 : P/W:,XTA,IWI 007494 : ,FUN,205B 007495 : :,UTC,NEWSTR-OLDSTR 007496 : PUTWORD:,XTA,OLDSTR 007497 : ,FUN,12 007498 : 14,UTM,-6 007499 : 14,VZM,P/W 007500 : 14,UTM,6-1 007501 : 14,V1M,ERROR.HE BINARY 007502 : ,WTC,W 007503 : 5,ATX, 007504 : ,YTA, 007505 : ,AAX,=177 007506 : ,ATI,7.PAЗДEЛИTEЛЬ 007507 : 13,VJM,TEROUT 007508 : 9,VTM,TSTOP-TALL 007509 : C----- ПPOBEPKA ПPOДOЛЖEHИЯ 007510 : 7,VZM,LOOP.BCE. 007511 : 7,UTM,-54B. "," 007512 : 7,V1M,ERROR 007513 : ,ARX,L.A MOЖHO ЛИ 007514 : ,ASN,64+15.ИДTИ ДAЛЬШE 007515 : ,UZA,PUTWORD 007516 : C----- БЛOK KOHЧИЛCЯ 007517 : ,UTC,TEND-TADD 007518 : ERADDR:2,VTM,TADD-BUFOUT 007519 : ,ITA,2 007520 : ,UJ,E/LOOP 007521 : C----- KOHTPOЛЬ БЛOKA 007522 : INFORM:,BSS, 007523 : ,XTA,FIRMA 007524 : 3,VZM,OUTF 007525 : 6,UTM,1 007526 : 13,VJM,TEROUT 007527 : 6,VLM,TEROUT 007528 : ,UJ,LOOP 007529 : C----- KOHTPOЛЬ ЭЛEMEHTA 007530 : INF/1:,BSS, 007531 : 13,VTM,LOOP 007532 : C----- BЫДAЧA HA TEPMИHAЛ 007533 : TEROUT:,BSS, 007534 : ,XTA,W 007535 : ,UZA,NON AD 007536 : ,ASN,64-42 007537 : ,AUX,=6H'''''''''7''7' 007538 : ,ARX,=6H +00 007539 : ,AEX,NAME+1 007540 : ,ASN,64-16 007541 : ,ASN,64+16 007542 : ,AEX,NAME+1 007543 : ,ATX,NAME+1 007544 : NON AD:,XTA,W 007545 : ,ASN,64-24 007546 : ,ARX,PUTO 007547 : ,FUN,14 007548 : ,XTA,NUM+3 007549 : ,ASN,64+40 007550 : ,ASN,64-40 007551 : ,ATX,NUM+3 007552 : ,XTA,IWO 007553 : ,FUN,76B 007554 : ,XTA,W 007555 : ,ARX,=1 007556 : ,ATX,W 007557 : 13,UJ, 007558 : C 007559 : C===== KOHEЦ PAБOTЫ 007560 : END:9,VZM,STOP 007561 : ,DRUM,IWEX 007562 : ,XTA,IWEX 007563 : ,APX,=77 0077 007564 : ,AUX,=6H'''7''7''7''7' 007565 : ,ARX,NUMDR 007566 : ,ATX,NUMDR 007567 : ,UTC,TPUT-TSTOP 007568 : STOP:9,UTM,TALL-BUFOUT 007569 : ,ITA,9 007570 : ,ARX,IWO 007571 : ,FUN,76B 007572 : ,*62, 007573 : C 007574 : C===== TAБЛИЦЫ AДPECOB И ИMEH 007575 : C 007576 : TABLA:,BSS, 007577 : :,Z00,DISPBASE -*ПДИCK 007578 : ,Z00,DISPBASE +SHIFT 007579 : :,Z00,*ПДИCK -TYPEMT 007580 : ,Z00,*ПДИCK +SHIFT 007581 : :,Z00,TYPEMT -*KOHCTPA 007582 : ,Z00,TYPEMT +SHIFT 007583 : :,Z00,*KOHCTPA -*TYPELP 007584 : ,Z00,*KOHCTPA +SHIFT 007585 : :,Z00,*TYPELP -TYP/PL 007586 : ,Z00,*TYPELP +SHIFT 007587 : :,Z00,TYP/PL -*TLPRMT 007588 : ,Z00,TYP/PL +SHIFT 007589 : :,Z00,*TLPRMT -*TLBUFI 007590 : ,Z00,*TLPRMT +SHIFT 007591 : :,Z00,*TLBUFI -*TLSIZE 007592 : ,Z00,*TLBUFI +SHIFT 007593 : :,Z00, -1 007594 : ,Z00,*TLSIZE +SHIFT 007595 : C 007596 : TABLNAM:,BSS, 007597 : :,ISO,12HDISPBASE 007598 : :,ISO,12H*ПДИCK 007599 : :,ISO,12HTYPEMT 007600 : :,ISO,12H*KOHCTPA 007601 : :,ISO,12H*TYPELP 007602 : :,ISO,12HTYP/PL 007603 : :,ISO,12H*TLPRMT 007604 : :,ISO,12H*TLBUFI 007605 : :,ISO,12HCИHXPOBЫBOД 007606 : :,ISO,12HFIRMA 007607 : C 007608 : C===== KOHCTAHTЫ 007609 : NEWSTR:,Z00, 007610 : ,Z07,BUFIN 007611 : OLDSTR:,Z00, 007612 : ,Z07, 007613 : PUTO:5,Z24, 007614 : ,Z04,NUM 007615 : CWEX:,004,NP 007616 : ,, 007617 : IWEX:,004,NP.HA 9/MONSYS 007618 : ,016,20B. 420 ЗOHA 007619 : IWI:,Z00, 007620 : ,Z01,BUFIN 007621 : IWO:,Z01, 007622 : ,Z00,BUFOUT 007623 : C----- БYФEP BЫBOДA 007624 : BUFOUT:,BSS, 007625 : BLANK:,ISO,6H 007626 : NAME:,ISO,12HHAЧИHAЙTE!'''' 007627 : :,ISO,6H : '1''1' 007628 : NUM:,BSS, 007629 : TITOUT:,ISO,6H '100'- 007630 : ,ISO,H/ПPABKA HACTPOЙKИ ДИCПETЧEPA.''''/ 007631 : BEGOUT:,ISO,H/ ГДE BЗЯTЬ БЛOK BЫЗOBA ДИCПETЧEPA?''/ 007632 : ERRTEXT:,ISO,H/ OШИБKA!''''''/ 007633 : TNON:,ISO,H/ HET EГO!''''/ 007634 : TADD:,ISO,H/ AДPEC!''''''''/ 007635 : TEND:,ISO,H/ XBATИT!''''''/ 007636 : TALL:,ISO,H/ПPABOK HE БЫЛO.''''''/ 007637 : TPUT:,ISO,H/БЛOK BЫЗOBA ДИCПETЧEPA ЗAПИCAH HA MБ/ 007638 : NUMDR:,ISO,6H 0000'' 007639 : TSTOP:,ISO,H/PAБOTA ПPEPBAHA.''''/ 007640 : W:,BSS,1 007641 : L:,BSS,1 007642 : BUFIN:,BSS,15 007643 : ,END,