;******************************************* ;* ÏÐÎÃÐÀÌÌÀ RTTY * ;******************************************* ;* ÄËß ÁËÎÊÀ ÎÁÐÀÁÎÒÊÈ ÑW È RTTY ÑÈÃÍÀËΠ* ;* ÊÈØÈÍÅÂ-86 * ;******************************************* 0200 ORG 0200H 0200 31BF17 LXI SP,17BFH ; ÓÑÒÀÍÎÂÊÀ ÓÊÀÇÀÒÅËß ; ÏÎÇÈÖÈÈ 0203 1680 MVI D,80H ; ÓÑÒÀÍÎÂÈÒÜ ÊÎÄ ; ËÀÒÈÍÑÊÎÃÎ ÐÅÃÈÑÒÐÀ 0205 21C0FF LXI H,0FC0H ; ÏÎÄÃÎÒÎÂÈÒÜ 0208 39 DAD SP ; ÓÊÀÇÀÒÅËÜ ÊÓÐÑÎÐÀ 0209 367F MVI M,7FH ; ÂÛÑÂÅÒÈÒÜ ÊÓÐÑÎÐ ; ; ///// ÏÐÎÂÅÐÊÀ ÊÎÍÒÐÎËÜÍÎÉ ÑÓÌÌÛ ///// ; 020 210002 LXI Í,200Í ; ÍÀ×ÀËÜÍÛÉ ÀÄÐÅÑ ÏÇÓ 020Å 010000 LXI Â,0 ; ÓÑÒÀÍÎÂÈÒÜ RG ÊÑ 0211 7Å METK1: MOV À,M ; ÏÎÑËÅÄÎÂÀÒÅËÜÍÎÅ 0212 81 ADD Ñ ; ÑËÎÆÅÍÈÅ 0213 4F MOV C,A ; ÂÑÅÕ 0214 D21802 JNC METK2 ; ÁÀÈÒ 0217 04 INR  ; ÏÇÓ 0218 23 METK2: INX Í ; Ñ ÀÄÐÅÑÀ 0219 7C MOV À,Í ; 200Í ÄÎ 3FFH 021À FE04 ÑÐI 4Í ; ÏÐÎÄÎËÆÈÒÜ ÅÑËÈ 021Ñ Ñ21102 JNZ ÌÅÒÊ1 ; ÀÄÐÅÑ < 0400Í 021F 78 HOU À, ; ÏÐÎÂÅÐÊÀ 0220 FEBD ÑÐI 0BDH ; ÑÒÀÐØÅÃÎ 0222 Ñ23102 JNZ ERROR ; ÁÀÉÒÀ ÊÑ 0225 79 MOV À,Ñ ; ÏÐÎÂÅÐÊÀ 0226 FE00 CPI 0 ; ÌËÀÄØÅÃÎ 0228 Ñ23102 JNZ ERROR ; ÁÀÉÒÀ ÊÑ ; ; ///// ÂÛÄÀ×À ÑÎÎÁÙÅÍÈß ///// ; 022 21Å00Ç LXI Í,ÑÎÎÁ1 ; "RTTY ÃÎÒÎÂ" 022Å Ñ33402 JHP ÑÎÎÁ5 ; 0231 21ÅÂ0Ç ERROR: LXI Í,ÑÎÎÁ2 ; "RTTY ÊÑ ÍÅ ÐÀÂÍÀ" 0234 01EF17 ÑÎÎÁ5: LXI B,17EFH ; ÓÑÒÀÍÎÂÊÀ Ñ×ÅÒ×ÈÊÀ ; ÏÎÇÈÖÈÈ ÑÎÎÁÙÅÍÈß 0237 7Å ÑÎÎÁÇ: MOV A,H ; ÇÀÃÐÓÇÊÀ ÑÈÍÂÎËÀ 0238 FE00 ÑÐI 0 ; ÑÎÎÁÙÅÍÈß ÅÑËÈ=Î 023À ÑÀ4302 JZ ÏÐÈÅM ; ÍÀ×ÀÒÜ ÏÐÈÅÌ RTTY 023 23 INX Í ;+1 ÓÊÀÇÀÒÅËÜ ÑÎÎÁÙÅÍÈß 023Å 0 DCX  ;+1 ÓÊÀÇÀÒÅËÜ ÏÎÇÈÖÈÈ 023F 02 STAX  ; ÂÛÄÀ×À ÍÀ ÝÊÐÀÍ 0240 033702 JMP ÑÎÎÁÇ ; ÏÐÎÄÎËÆÈÒÜ ÂÛÄÀ×Ó ; ; ///// ÏÐÈÅÌ ÑÈÌÂÎËÀ ///// ; 0243 DBFO ÏÐÈÅÌ: IN 0F0H ;ÏÐÎÂÅÐÈÒÜ ÏÐÈÍÓÄÈÒÅËÜÍÓÞ 0245 0F RRC ;ÓÑÒÀÍÎÂÊÓ ÐÅÃÈÑÒÐÀ 0246 0F RRC 0247 DA4F02 JC ÏÐÓÑ 024A 1680 MVI D,80H ;ËÀÒ ÐÅÃÈÑÒÐ 024Ñ Ñ35Å02 JMP ÆÄÀÒ1 024F 0F ÏÐÓÑ: RRC 0250 DA5802 JC ÏÖÈÔÐÛ 0253 16A0 MVI D,0À0Í ;ÐÓÑ ÐÅÃÈÑÒÐ 0255 Ñ35Å02 JMP ÆÄÀÒ1 0258 0F ÏÖÈÔÐÛ: RRC 0259 DÀ5Å02 JC ÆÄÀÒ1 025Ñ 16Ñ0 MVI D,0C0H ;ÐÅÃÈÑÒÐ ÖÈÔÐ 025E DBF0 ÆÄÀÒ1: IN 0F0H ;ÆÄÀÒÜ 0260 1F RAR ;HA ÂÕÎÄÅ 0261 024302 JNC ÏÐÈÅÌ ; '1' 0264 010500 LXI Â,5 ;Ñ-Ñ×ÅÒ×ÈÊ ÏÎÑÛËÎÊ ;Â-ÐÅÃÈÑÒÐ ÑÈÌÂÎËÀ ;D-ÏÐÈÇÍÀÊ ÐÅÃÈÑÒÐÀ ;(ÐÓÑ,ËÀÒ,ÖÈÔÐÛ) 0267 DBF0 IN 0F0H ;ÎÏÐÎÑÈÒÜ 0269 17 RAL ;ÏÅÐÅÊËÞ×ÀÒÅËÈ 026À 2À7003 LHLD CONSI ;CW/RTTY 026D DA7D02 JC HI ; , 0270 2A7403 LHLD CONS2 ;ÐÓÑ/ËÀÒ 0273 17 RAL ; È 0274 DA8402 JC 31 ;ÂÛÁÐÀÒÜ 0277 2À7803 LHLD CONS3 ; ÊÎÍÑÒÀÍÒÓ 027À Ñ38402 JMP 31 ; 027P 17 MI: RAL ;ÇÀÄÅÐÆÊÈ 027Å DA8402 JC 31 ; 0281 2A7C03 LHLD CONS4 ; 0284 2 31: DCX Í ;ÇÀÄÅÐÆÊÀ 0285 DBF0 IN 0F0H ;HA 27,5MC 02Â7 IF RAR ;ÅÑËÈ ÍÀ 0288 D24302 JNC ÏÐÈÅÌ ;ÂÕÎÄÅ '1' 028 00 NOP ; 028Ñ 00 NOP ; 028D 00 NOP ; 028E 7D MOV A,L ;ÅÑËÈ Ñ×ÅÒ×ÈÊ 028F B4 ORA H ; ÇÀÄÅÐÆÊÈ 0290 C28402 JNZ 31 ;>0 ÏÎÂÒÎÐÈÒÜ 0293 DBF0 ÑÒÀÐÒ: IN 0F0H ; ÆÄÀÒÜ 0295 1F RAR ;ÑÒÀÐÒÎÂÛÈ<ÍÀ ÂÕÎÄÅ 0296 DA9302 JC CTAPT ; 'Î') ÈÌÏÓËÜÑ 0299 DBF0 IN 0F0H ;ÎÏÐÎÑÈÒÜ 029 17 RAL ;ÏÅÐÅÊËÞ×ÀÒÅËÈ 029Ñ 2À7003 LHLD CONSI ;CW/RTTY 029C DAAF02 JC M2 ; , 02A2 2A7403 LHLD CONS2 ;PÓÑ/ËÀÒ 02A5 17 RAL ; è 02A6 DAB602 JC 32 ;ÂÛÁÐÀÒÜ 02A9 2A7803 LHLD CONS3 ;ÊÎÍÑÒÀÍÒÓ 02AC C3B602 JMP 32 ; 02AF 17 M2: RAL ;ÇÀÄÅÐÆÊÈ 02ÂÎ DAB602 JC 32 ; 02B3 2A7C03 LHLD CONS4 ; 02B6 AF 32: XRA À ;ÓÌÅÍÜØÈÒÜ ÂÄÂÎÅ 02B7 7C MOV A,H ;ÇÍÀ×ÅÍÈÅ ÇÀÄÅÐÆÊÈ 02B8 1F RAR 02B9 67 MOV H,A 02BA 7D MOV A,L 02BB 1F RAR 02BC 6F MOV L,A 02BD DBF0 321: IN 0F0H ;ÆÄÀÒÜ 02BF 1F RAR ; 11 MC 02CO DA9302 JC ÑÒÀÐÒ ; 02C3 2 DCX H ; ÅÑËÈ 02C4 7D MOV A,L ; HA 02C5 B4 ORA H ; ÂÕÎÄÅ 02C6 C2BD02 JNZ 321 ; "0" 02C9 DBF0 ÏÐÁÈÒ: IN 0F0H ;ÎÏÐÎÑÈÒÜ 02CB 17 RAL ; ÏÅÐÅÊËÞ×ÀÒÅËÈ 02CC 2À7003 LHLD CONSI ;CW/RTTY 02CF DADF02 JC M3 ; 02D2 2A7403 LHLD CONS2 ;ÐÓÑ/ËÀÒ 02D5 17 RAL ; È 02D6 DAE602 JC 33 ;ÂÛÁÐÀÒÜ 02D9 2A7803 LHLD CONS3 ; ÊÎÍÑÒÀÍÒÓ 02&C C3E602 JMP 33 ; 02DF 17 MÇ: RAL ;ÇÀÄÅÐÆÊÈ 02EO DAE602 JC 3Ç ; 02E5 2A7C03 LHLD CONS4 ; 02E6 29 33: DAD Í ;ÓÑÒÀÍÎÂÈÒÜ CONST ;ÇÀÄÅÐÆÊÈ = 22MC 02E7 2 34: DCX Í ;ÆÄÀÒÜ 02E8 7D MOV A,L ; 22 MC 02E9 B4 ORA H ; 24 ÒÀÊÒÀ 02EA C2E702 JNZ 34 ; 02ED DBF0 IN 0F0H ; ÏÐÈÍßÒÜ ÁÈÒ 02EF 1F RAR ;ÇÀÏÈÑÀÒÜ 02FO 78 MOV À, ; ÏÐÈÍßÒÛÉ 02FI 17 RAL ;ÁÈÒ 02F2 47 MOV B,A ; ÐÅÃÈÑÒÐ ÇÍÀÊÀ 02F3 0D DCR Ñ ;ÅÑËÈ ÏÐÈÍßÒÎ < 5 02F4 Ñ2Ñ902 JNZ ÏÐÁÈÒ ;ÏÐÈÍßÒÜ ÑËÅÄÓÞÙÈÉ ; ; ///// ÀÍÀËÈÇ ÏÐÈÍßÒÎÃÎ ÑÈÌÂÎËÀ ///// 02F7 FE1F ÑÐI 11111 ;ÅÑËÈ ÊÎÄ ËÀÒÈÍÑÊÎÃÎ 02F9 Ñ20103 JNZ ÐÓÑ ;RG,ÓÑÒÀÍÎÂÈÒÜ 02FC 1680 MVI D,80Í ;ÏÐÈÇÍÀÊ 02FE Ñ34302 JMP ÏÐÈÅÌ ; 3301 FE00 ÐÓÑ: CPI 00000 ;ÅÑËÈ ÊÎÄ ÐÓÑÑÊÎÃÎ 0303 Ñ20Â0Ç JNZ ÖÈÔÐÛ ;RG, ÓÑÒÀÍÎÂÈÒÜ 0306 16A0 MVI D,0A0H ;ÏÐÈÇÍÀÊ 0308 C34302 JMP ÏÐÈÅÌ ; 030 FE1B ÖÈÔÐÛ: ÑPI 11011B ;ÅÑËÈ ÊÎÄ 030D C21503 JNZ ÂÊ ;ÐEÃÈÑÒÐÀ ÖÈÔÐ 0310 16Ñ0 MVI D,0C0H ;ÓÑÒÀÍÎÂÈÒÜ ÏÐÈÇÍÀÊ 0312 Ñ34302 JMP ÏÐÈÅÌ ; 0315 21C0FF BK: LXI H,0FFC0H ;ÏÎÄÃÎÒÎÂÈÒÜ 0318 39 DAD SP ;ÓÊÀÇÀÒÅËÜ ÊÓÐÑÎÐÀ 0319 7C MOV A,H ;ÓÑÒÀÍÎÂÈÒÜ ÓÊÀÇÀÒÅËÜ 031A E607 ANI 07H ;ÊÓÐÑÎÐÀ  031C F610 ORI 10Í ;ÏÐÅÄÅËÀÕ 031Å 67 MOV Í,À ; ÀÄÐÅÑΠÝÊÐÀÍÀ 031F 3620 MVI M,20H ; ÑÒÅÐÅÒÜ ÊÓÐÑÎÐ 0321 210000 LXI H,0 ;ÏÎÄÃÎÒÎÂÈÒÜ 0324 39 DAD SP ; Ñ×ÅÒ×ÈÊ ÏÎÇÈÖÈÈ 0325 78 MOV A,B ;B 'A' ÊÎÄ ÏÐÈÍßÒÎÃÎ ; ÑÈÌÂÎËÀ 0326 FÅ02 CPI 00010 ;ÅÑËÈ ÊÎÄ (ÂÊ) 0328 Ñ23203 JNZ ÏÑ ; 032 7D MOV A,L ;ÓÑÒÀÍÎÂÈÒÜ 032Ñ F6ÇF ORI 3FH ;ÓÊÀÇÀÒÅËÜ Â ÍÀ×ÀËÎ 032Å 6F MOV L,A ; ÑÒÐÎÊÈ 032F Ñ35À0Ç JMP ÊÓÐÑÎP ; 0332 FE08 ÏÑ: CPI 01000 ;EÑËÈ ÊÎÄ (ÏÑ) 0334 C25203 JNZ ÑÈÌÂÎË ; 0337 0620 MVI Â,20Í ;B 'Â' ÊÎÄ ÏÐÎÁÅËÀ 0339 21C0FF LXI H,0FFC0H ;ÏÅÐÅÈÒÈ ÍÀ 1 ÑÒÐÎÊÓ 0ÇÇÑ 39 DAD SP ;ÂÏÅÐÅÄ 033D 1E40 MVI E,64 ; "Å' ÊÎËÈ×ÅÑÒÂÎ Î×È- ;ÙÀÅÌÛÕ ÇÍÀÊÎÌÅÑÒ 033F 7Ñ ÌÅÒÊÇ: MOV À,Í ;ÓÑÒÀÍÎÂÈÒÜ Ñ×ÅÒ×ÈÊ 0340 Å607 ANI 07H ; ÏÎÇÈÖÈÈ Â 0342 FA10 ORI 10H ;ÏÐÅÄÅËÀÕ 0344 67 MOV H,A ;ÀÄÐÅÑΠÝÊÐÀÍÀ 0345 70 ÌÎV Ì, ;ÇÀÏÈÑÀÒÜ Â ÝÊÐÀÍÍÓÞ 0346 2 DÑÕ Í ; ÏÀÌßÒÜ 0347 1D DCR E ;64 ÏÐOÁEËA 034R C23F03 JNZ METK3 ; 034B 21C0FF LXI H,0FFC0H ;ÂÛÏÎËÍÈÒÜ 034E 39 DAD SP ;ÏÅPÅÂÎÄ ÑÒÐÎÊÈ 034F Ñ35À0Ç JMP ÊÓÐÑÎÐ ; 035? 78 ÑÈÌÂÎË: ÌÎV À, ; "À' ÌËÀÄØÀß ×ÀÑÒÜ 0353 Â2 ORA D ;AÄÐECA ÒÀÁËÈÖÛ 0354 0603 MVI Â,0ÇÍ ;ÑÒÀÐØÈÉ ÁÀÉÒ 0356 4F MOV C,A ; ÌËÀÄØÈÉ ÁÀÉÒ ;ÀÄPEÑÀ ÒÀÁËÈÖÛ 0357 0A LDAX  ; 'À' ÊÎÄ (ÊÎÈ-7) ;ÏÐÈÍßÒÎÃÎ ÑÈÌÂÎËÀ 0358 77 MOV Ì,À ;ÂÛÄÀÒÜ ÑÈÌÂÎË 0359 2 DCX Í ;+1 Ñ×ÅÒ×ÈÊ ÏÎÇÈÖÈÈ 035À 7C ÊÓÐÑÎÐ: MOV A,H ;ÓÑÒÀÍÎÂÈÒÜ Ñ×ÅÒ×ÈÊ 035 Å607 ANI 07H ;ÏÎÇÈÖÈÈ Â 035D F610 ORI 10Í ;ÏPÅÄÅËÀÕ 035F 67 ÌÎV Í,À ;ÀÄPÅÑΠÝÊPAÍÀ 0360 F9 SPHL ;ÑÎÕÐÀÍÈÒÜ Ñ×ÅÒ×ÈÊ ; ÏÎÇÈÖÈÈ 0361 21C0FF LXI H,0FFC0H ;ÏÎÄÃÎÒÎÂÈÒÜ 0364 39 DAD SP ; ÓÊÀÇÀÒÅËÜ 0365 7C ÌÎV À,Í ;ÊÓÐÑÎÐÀ 0366 Å607 ANI 07H ;È ÓÑÒÀÍÎÂÈÒÜ Â 0368 F610 ORI 10H ;ÏÐÅÄÅËÀÕ ÀÄÐÅÑΠ036À 67 MOV H,A ;3KPAHA 036B 367F MVI M,7FH ;ÂÛÑÂÅÒÈÒÜ KYÐCOÐ 036D C34302 JMP ÏÐÈÅÌ ? 0370 CC01 CONSI: DW 460 ;ÊÎÍÑÒÀÍÒÀ 45,45 ÁÎÄ 0372 33FE DW OFE33H ;ÈÍÂÅÐÑÈß CONSI 0374 A201 CONS2: DW 418 ;KOHCTAHTA 50 ÁÎÄ 0376 FE5D DW 5DFEH ; ÈÍÂÅÐÑÈß CONS2 0376 0000 CONS3: DW 0 ; -"- 037À FFFF DW OFFFFH ; 037Ñ 0000 CONS4: DW 0 ; -"- 037Å FFFF DW 0FFFFH ; ; ; ///// ÒÀÁËÈÖÀ ///// ; 0380 ORG 380H ÎÇ80 205420 DB ' Ò Î HNM LRGIPCV' 0383 4F2048 0386 4E4D20 0389 4C5247 038C 495043 038F 56 0390 455A44 DB 'EZDBSYFXAWJ UQK ' 0393 425359 0396 465841 0399 574A20 039C 55514B 039F 20 03AO 207420 DB ' Ò Î ÕÍÌ ËÐÃÈÏÖÆ' 03A3 6F2068 03A6 6Å6D20 03A9 6C7267 03AC 697063 03AF 76 03BO 657A64 DB 'ÅÝÄÁÑÛÔÜÀÂÉ ÓßÊ ' 03B3 627379 03B6 667861 03B9 776A20 03BC 75716B 03BF 30 03C0 203520 DB ' 5 9 Ù,. )×Ø80:=' 03C3 39207D 03C6 2C2E20 03C9 297E7B 03CC 38303A 03CF 3D 03DO 332B23 DB '3+#?',27Í,'6Ý/-2Þ 71 ( ' 03D3 3F2736 ÎÇÜ6 7C2F2D 03D9 326020 01DC 37312 03DF 20 0ÇÅ0 525454 COOÁ1: DB 'RTTY ÃÎÒÎÂ',0 03E3 592067 03E6 6F746F 03E9 7700 03EB 525454 ÑÎÎÁ2: DB 'RTTY ÊÑ ÍÅ ÐÀÂÍÀ',0 ÎÇÅÅ 59206 03F1 73206Å 03F4 652072 03F7 61776Å 03FA 6100 03FC 81 DB 81H ;KOHCTAHTA ÄËß ÏÎÄÁÎÐÀ ÊÑ END