                                   

    짮⥫  "-06"!  । ⥬,   筥 祭
 㬥樨, ⥫  '᭨ ,     祣   -
ᠭ,    ᮢ ᢥ頥.

   ࢮ ⢮   ணࠬ஢ 稭,  ࠢ,   -
 ᨪ.   ,  ୮,  ࠢ쭮:   ⮬  ⠯  짮⥫ ᮢᥬ
易⥫쭮   ன⢮  ᢮ .      
ணࠬ஢,   ⠪   㬥⠫ ।,  ணࠬ-
 稭 ࠡ  㣨,  ᮢ襭 몠  ⥬.  
 ⮬ ஢,   ⠥ ⢮ " "  ᢮  -
஬.  ..     몠 ᥬ    ⢥  
,  易    ணࠬ஢  ७   設.  
 祫᪮ ⢮ ⠥ 㤮⢮७.
     ᠬ⥫쭮    ᮢ 砥  ⮬, 
짮⥫-ணࠬ  室    ஭  ⫨筮 ࠧ-
   ਭ樯쭮  ᪮  奬 ᢮  .  ⮬,
 ணࠬ  ஬ ⢮ ६  ᭥  ⮭ -
⥩.
    ⮣  ᠭ -   ணࠬ   ய⫨ 㤠  
 ࠧ   த    ᪠    ਬ ணࠬ.
ᠭ 㤥 祭    ⥬,  㦥   ࠡ  㣨  -
,  ᥩ ⠫  "஬".

     ଠ  ᠭ:   ।⠢ ᮡ ⨭ ணࠬ
 몥 ᥬ  ஡묨  ﬨ   ப.  ⮡ 
  ,  室 㧨 -  ᫥   -
   ० "2".  ⥬ १  ४⨢ "R"  -⫠稪, 
ணࠬ  "-ᥬ"  ,   ,   ⥪ ணࠬ 
ਥ  - .. ⮫쪮  ᥬ.  窨  ⮩   ⥪
     - ..  ⥪       ०
  "2",    ਨ    㦥 ᯥ⠭.  ,   
 ࠡ⠫  ।஬-ᥬ஬,    ਫ 1  ᯥ⪠ 設
  ⮩ ணࠬ,  ࠡ  ⮫쪮  ஬ (  ⮭).
稭  ᪠  ணࠬ   0100h.   ࠬ -
஢  ᯥ⪠ ⠡ ⮪.

    ணࠬ  ᯮ짮  祡 - ..  , ࠭ -
஢   ࠡ.        ᢮ ணࠬ,  -
,  ᫨  㦥    ' (ਬ ⠪ ணࠬ,  
 - ᥣ 4 )    ' 䨪    襩 ண -
ࠬ   ᯮ짮 ⠭ ࠩ ன.

     ணࠬ   ᯮ짮 ⨭  ணࠬ  ࠢ 
ணࠬ஢  "-06".

;****************************************************************
; ணࠬ஢ ०  "-06"  몥 ᥬ.
;             ""-1992.  ..
;               400119, ࠤ, / 2684.
;****************************************************************
;
;     楢   "-06" 猪    -
;  ᢮ ᨫ    ணࠬ஢   몥 ᥬ,   稭
;ࠧ   ⠫  室  ணࠬ ⠭ ० :
;梥⮢ ࠦ,  䮭,  ,  ࠢ ஫ ࠭,  뢮
;㪠  ᮬ .
;   , । ணࠬ   ८  .
;
;    ணࠬ:            ணࠬ  ﬨ.
;० 祬 ,     ࠭᫨஢  設 ,   ⮣:
;   "" ,  ᫥      "",  3.
; ᫮,  뢠饥  設  ⮩ ணࠬ,   稭-
;     1800h.  ,    "" , ⥬ ᠬ, 멤
; .   ணࠬ    G1800,    砭   맮
;.           "2"   ⥬ "B" -   ᭮
;㢨  ⥪.     ⥪ ணࠬ, ⥬ ࠭᫨-
;஢   設 , ᪠   ࠡ.
;   ணࠬ "Start"  "INIT"     ண - ⮡  ᮢ襭⢮-
;         設 ..   믮 
;ன (樠)    㦭   ⮣, ⮡  ணࠬ
; 設   ࠡ   "-06".
;    ணࠬ ᯮ  ⪨ "PROGRM:" ,  ᫨  㤥 ᪠
;  , ⠭ ⥪ 53FFh, ⮡   .
;
;     ᯥ譮  ࠡ    室  ᥣ     㪮  ᠭ
;-, -, ᠭ  ࠡ   "-06"
;, ⥫쭮, ࠢ筨  ணࠬ஢  58055  58055.
;
;   砫 ணࠬ:   ⨫,  ணࠬ  ""  -
;१᪠ ᫥    ""  "".  ᫥   
; 稪     㪠뢠   0000h -   
; ⮣   筥  믮 ணࠬ.  ⮬, ᫨  ணࠬ
;稭    㫥  ,      १,  -
;室 ⠭    0000h 室   ணࠬ. ஬ ⮣, 
; ⠭ 室  ࠡ  뢠   0038h  , 
;稭  ணࠬ INIT ( ன 㤥 ᪠ ). ᫨  襩 -
;⥬   ஭  (),      ⮡  ணࠬ
;ଠ쭮  ᪠    筮 "", ⠪   ""  -
;᪮,    室    襩  ணࠬ ⪫ 饭 
; ᪠.   砫  ⠭  믮   ⪥ ணࠬ 
;⪮ "Start".
;
        ORG  1800h       ; । 砫 設  ⮩ ணࠬ
Start:  DI               ;  뢠 (..   ᭮ 㤠 室)
        MVI  A,0C3h      ; ⠭ 室 (  JMP) 
        STA  0000h       ; 㫥  
        STA  0038h       ;  맮 뢠.
        LXI  H,Progrm    ; ⠭  室  "",""
        SHLD 0001h       ; (ࠧ ᫥   JMP)
        LXI  H,Init      ; ⠭  室  ࠡ 뢠
        SHLD 0039h       ; (⠪ ᫥ JMP)
        XRA  A           ; ⮩   ᥣ    
        OUT  10h         ;  뫪  00h   10h ⪫ 
        EI               ;  뢠, .. 室 ⠭
        JMP PROGRM       ; ३  砫 ணࠬ
;
;    ਬ  뢠, ..    쭮 ⥬ .
;ய 58080,     ""   㣨 ⮢ -
;஢, , ⠪ 뢠     뢠.  ᫨   室
;㤥  ᨣ,  , ᨬ  ⮣,     
;믮 ணࠬ, ᤥ 室     쬨 䨪஢ ᮢ,
;筥  室,  맮 ணࠬ, ᫥ 믮 ன  -
;筮 ୥   ,  ண ந諮           ᭮-
;  ணࠬ.  ,   ணࠬ,     祭 㣠 - .. 
;"" ⢮ ⮫쪮  ⠪  - 0038h,  室  -
;  ணࠬ 㯥.     뢠 뢠?  뢠
;뢠 奬  ,    ᨭ஭樨  襣 ᯫ
;(⥫).   , ,  ᫥⥫쭮,  맮 ணࠬ  0038h
; ந室  50 ࠧ  ᥪ㭤,    ⭮  室 ஢ ࠧ-
;⪨, .. ,  ࠭ 襣  ᯫ 襭 (᫨  㬠 
;࠭ ⥫ ᢥ ᥣ,  訡 -   㪮  -
;। ࠭   㢨 ஡-䥪, 易   ࠭).
;     ,        - 祬   : 뢠
;ணࠬ, 饭  ன   ணࠬ   ⠢?   -
;  ⠪ ,  祬  "⥬"  ࠭ ६?
;    - ⠪ 뢠    ᨮ  ..
; 祭  㤮     ॠ쭮  ६.   ᠬ : 
;᫨  ணࠬ  ࠡ⪨  뢠  ࣠  稪,  㤥
;㢥稢  १  50  뢠 -  㤥    稪 ᥪ㭤,
;,  ,   ⠫쭮 (६  ) ᤥ  ⮦ .   
; ࠡ   襩 ணࠬ, ᮫⭮   !
;    , ⠪      뢠,  ⠭ 㦭: 
;ࠡ   ⥪ (       뢠),   
; 室 "릠"  ᪮  .  ⠪  뢠 -
;    DI,   ࠧ  EI.
;
;    ⭮  "" 뢠     襥 祭: ⠭-
; 梥 ࠭ ᪮⥩        ६ -
;뢠,  㤥  ࣠  ࠦ, .. 奬,  ன -
;祭  , ࠢ  梥⮬ ,  ஫ (⨪
;६饭 ࠭).
;   ⮡ 뫮  ⭮, 襬, 祬   ணࠬ ࠡ-
; 뢠:
;
;1). ࠭  ॣ ய, ⮡  ࢠ ணࠬ 
;ଠ쭮 த ᢮ ࠡ.
;
;2).    梥⮣ ( 0Ch) ⭠ ,  -
; 뢠 ⠡楩 梥⮢.    ४  浪  
;梥⮣ -  設 ⮣  祭  ६ 訬 ࠧ-
;  02.
;
;3).   (஬  "","","/LAT"),  -
;     8x8   ⠬ 03h  02h. 祬    ந
;᫥騬 ࠧ: ⮫쪮     03h    ."0"  -
;⥬   ﭨ    쬨     02h. ⮡ 
;   ᫥⥫쭮  ."0"     03h  -
;᫥⥫쭮  ﭨ     02h.
;
;4). ᫥   ⠡ 梥⮢       ⠭ ०
;⮡ࠦ ଠ樨  ६ 뢮   ᯫ ( ᫥饣 뢠 -
;):
;4.1). ⠭       02h  梥 ( 0  15)
;.
;4.2).    03h , 祭 ண । ⨪쭮 -
; ࠭. ᪨    ப,  ன  筥 ⮡ࠦ
;ଠ樨  ࠭. ࠢ,     ᠭ   03h  -
;᭮ . ਬ:   ଠ쭮  ࠭ ( ᤢ-
;⮥  ⨪),    03h    0- ப,  -
;஢ - .. FFh.
;
;5).   ⨩   01 ᨣ ࠢ ஬ "/LAT"  
;    01 ᨣ ࠢ ५ (  ""  ५
;, ..     짮⥫  砥 ⥫ ᢮
;䮭 १  ५).
;
;6).   ⥪   ॣ  ய, ࠧ  뢠  
;  ணࠬ  ࠡ⪨ 뢠   RET,    室 
;筮 ணࠬ.
;
;    ⮣, ⮡ 㤮 뫮     뢠 ० -
;,     ࠬ ⢥ ᮮ⢥騥 祩   ᯮ-
;   ⥬ 祩  ᢮ ᭮ ணࠬ.  ᠬ , -
; ⥫쭮  㤮  ⭥,  ᫨, ਬ,   梥 -
;-  ᪮ ࠭   梥 ,    㤥   
;祭 祩   ᮮ⢥饩 ⪮ - "COLR"  "BORDER", ᮢ-
;襭  㬠   ⮢. ⠪, ।  祩:
;
;
Border: DB 15            ;  (ᥩ ᮮ⢥ 梥 15)
Color:  DB 00h           ; 䮭 (  梥)
;
COLR1:  DB 07h           ; ᪮  E000-FFFF ( મ- 梥)
COLR2:  DB 38h           ; ᪮  C000-DFFF ( મ- 梥)
COLR3:  DB 16h           ; ᮢ饭 E000-FFFF  C000-DFFF (௨)
COLR4:  DB 0C0h          ; ᪮  A000-BFFF ( મ-ᨭ 梥)
COLR5:  DB 86h           ; ᮢ饭 A000-BFFF  E000-FFFF   ()
COLR6:  DB 20h           ; ᮢ饭 A000-BFFF  C000-DFFF   (⥬-)
COLR7:  DB 0C5h          ; ᮢ.A000-BFFF,C000-DFFF,E000-FFFF (䨮⮢)
COLR8:  DB 3Fh           ; ᪮  8000-9FFF               (મ- 梥)
COLR9:  DB 04h           ; ᮢ饭 8000-9FFF  E000-FFFF   (⥬-)
COLR10: DB 52h           ; ᮢ饭 8000-9FFF  C000-DFFF   ()
COLR11: DB 98h           ; ᮢ.8000-9FFF,C000-DFFF,E000-FFFF ()
COLR12: DB 80h           ; ᮢ.8000-9FFF,A000-BFFFF          (⥬-ᨭ)
COLR13: DB 24h           ; ᮢ.8000-9FFF,A000-BFFF,E000-FFFF (⥬-)
COLR14: DB 0ffh          ; ᮢ.8000-9FFF,A000-BFFF,C000-DFFF (મ-)
COLR15: DB 0f7h          ; ᮢ.8000-9FFF,A000-9FFF,C000-DFFF,E000-FFFF (.)
;
;
;       ⠡ 梥⮢ -  ⥬᪨  梥 (.  
;16-    梥⮣?),  祭  ⮣  -   䨧᪨ 
;梥. ᪨  梥  祭     ᢮ -
; 㣮  梥,     ᪮⥩       ⠭,  ⠪
;梥 䮭. ஢ ⠪: 訥    - મ ᭮  梥 (-
;ਬ 07h - ᠬ ન ,  01h - ᠬ ⥬), ᫥騥   -
;મ  ,  ᠬ   - મ  ᨭ. 訢 祭
;મ⥩ (ᮮ⢥  ⮢) 梥⮢,     255  ࠧ
;梥⮢  ⥭   ᪮    ⠭.
;
;
Scroll: DB 0FFh          ;祩 ஫ ࠭ (ᥩ ଠ쭮 )
KeyKod: DB 0FFh          ;祩  ன 㤥  ⮩ 
;
;
;      ணࠬ,  楫   饭, ॠ   ⮫쪮 
; ,  ᯮ   (஬ 쭮),  ⠪
; "", "", ""  "". ᫨         , 
; 祩 "KeyKod" 㤥 0FFh. ᫨  -   ⮩  ,
;  祩 "KeyKod" 㤥   ⮩ ,        ⠭-
;  (ASCII  ) -   䨧᪨   祭   
; 03h    8-    02h. ⮡ 뫮   ஢  -
; ணࠬ  ,  ।  १ ᮮ⢥騥 ⪨:
;
;
Down:   EQU 7Fh          ;  " "
Up:     EQU 0DFh         ;  " "
Right:  EQU 0BFh         ;  " ࠢ"
Left:   EQU 0EFh         ;  " "
Del:    EQU 0F7h         ;  ""
CR:     EQU 0FBh         ;  ""
LF:     EQU 0FDh         ;  ""
TAB:    EQU 0FEh         ;  ""
;
IndRUS: DB  00h          ;ਧ . "/LAT"(00- , 08-)
Rele:   DB  00h          ;ਧ .५ . . (02-몫, 00-祭)
;
;==================================
;ணࠬ ࠡ⪨ 뢠.
;==================================
;
INIT:   PUSH H           ;࠭  ॣ  ⥪
        PUSH B           ;
        PUSH D           ;
        PUSH PSW         ;
        MVI  A,88h       ;⠭ ० ⮢: 02 - 뢮, 03 - 뢮
        OUT  00          ;.4   01 - 뢮, 訥 4  - 
        LXI  H,COLR15    ;  "HL" -  ᫥ 梥 ⠡ 梥⮢
        MVI  D,16        ; "D" - 稪 . ⠭. 梥⮢ (ࠧ ⠡)
        MVI  E,15        ; "E" -      梥⮣
INIT1:  MOV  A,E         ;⠭   梥 १
        OUT  02          ; 02
        MOV  A,M         ;  "A"  (䨧᪨ ) 梥  ⠡ 梥⮢
        OUT  0Ch         ;     梥⮣  
        OUT  0Ch         ;᪮쪮 ࠧ      ,
        OUT  0Ch         ;..   ""  祭 
        OUT  0Ch         ;   梥⮣   客.
        OUT  0Ch         ;
        DCX  H           ;㬥 -㪠⥫  ⠡ 梥⮢
        OUT  OCh         ;
        DCR  E           ;㬥    梥⮣
        OUT  0Ch         ;
        DCR  D           ;㬥 稪   ⠡ 梥⮢
        OUT  0Ch         ;
        JNZ  INIT1       ;᫨   ⠡ ᠭ  .. - த
        MVI  A,8Ah       ;⠭ ० ⮢ 02-, 03-뢮
        OUT  00          ;. 4   01 - 뢮, 訥 4  - 
        MVI  A,0FEh      ;⠭  襬 ࠧ拉  03 㫥 ⥭樠
        OUT  03          ;⮡  1-   (  ..)
        IN   02          ;   02 䨧.    
        STA  KeyKod      ;    祩 "KeyKod"
        MVI  A,88h       ;⠭ ० ⮢ 02-뢮, 03-뢮
        OUT  00          ;. 4   01 - 뢮, 訥 4  - 
        LDA  Border      ; 梥  祩 "Border" (⥬. ) 
        OUT  02          ;⠭ 梥   4-    02
        LDA  Scroll      ;  祩 "Scroll"⨪쭮  ࠭
        OUT  03          ; ⠭   03
        LDA  IndRus      ; ਧ 祭  "/LAT"
        MOV  B,A         ;६   ॣ "B"
        LDA  Rele        ; ਧ 祭 ५  祩 "Rele" 
        ORA  B           ;'  ਧ 祭  "/LAT"
        OUT  01          ;뢥 ᨣ ࠢ ஬  ५   01
        POP  PSW         ;  ॣ  ⥪
        POP  D           ;
        POP  B           ;
        POP  H           ;
        EI               ;ࠧ 뢠 (  㤥 ⮫쪮  ࠧ)
        RET              ;  믮 ࢠ ணࠬ
;
;    ,      ணࠬ஢ 奬 ࠫ쭮 -
; 58055, 筮,     ⨯ MVI A,88h  ⥬ OUT 00. 
;奬  ࠧ  ।⠢   "-06"   ࠬ 00,01,
;02  03.  ।    00 ⢫ ࠢ ࠡ-
;⮩ (४祭    ) ⠫ ⮢ - 01, 02, 03.
;   ᫨   ࠨ ⠪ '᭥  ਬ  ணࠬ -  
;뫨 ᤥ  室 ४祭,    ⮬  ᯮ.  ᫨
; - 室 ࠢ  ᮮ⢥饩 .
;    01  ᮮ⢥  "C", 02 -  "B", 03 -  "A" 58055.
;
;    ⮬  ᠬ "⥬"   "-06", , 稢,
;ᮡ  ,     ணࠬ஢   몥 ᥬ -
; 58080  㣨 ,    ணࠬ㥬 梥⮣-
;     뢠.   ᤥ  뢮,    "-06"
;祭   祩 0000h-0002h  0038h-003Ah (  ""+""  -
;室  뢠)   室 뢠  ७ ணࠬ  㣨
;஢   "",  ᮡ  ணࠬ,   稭  -
; 0000h.
;
;********************************************
; 砫 ᭮ 樮 ணࠬ,
; ᯮ饩 㫨 "Start"  "Init"
;********************************************
;
;   ,  ० ࠡ  ணࠬ ⠭,   -
;⥬ 祩, १     ० , ᠬ ६ ஡-
;  ணࠬ, ᯮ  㫨. ᮡ 㤮⢨  -
;⠢ ⥬,  ࠧࠦ  ஬  ⥫  ꥬ ᯮ⥫
;ணࠬ,  ⥫  祭  ணࠬ - ᪮쪮 "-
;⨪" 砫쭮 稪,  ࠡ  ᥬ 梥⮢묨  㪮묨
;䥪⠬.  襮ᠭ (.. 㫨 "Start"  "Init"), ᫥ ࠭樨
; 設 ,  '    ,   ᥣ  -
;  "⨪"   砫쭮 㧪.
;
;   砫 ⨬   ᪮ ࠭:
;
Progrm: LXI  SP,53FFh    ;⠭ ⥪ "  2"
Next:   LXI  H,8000h     ; 砫 ࠭    "HL"
Pro:    MVI  M,00h       ; 㫨   "HL"
        INX  H           ;騩 
        MOV  A,H         ;஢  ࠭ :
        ORA  A           ;訩   = 00? -  ।騩
        JNZ  Pro         ;  FFFFh - .. ., ᫨  - த
;
;   㥬  ⨪  ࠧ ᪮  ⮣ ⮡  -
;⠭ 梥 ᪮⥩.
;
        LXI  H,09060h    ;砫 ⨪  ᪮ 8000h-9FFFh
        CALL Kvadro      ; ணࠬ 뢮 8-  ⨪
        LXI  H,0B070h    ;砫 ⨪  ᪮ A000h-BFFFh
        CALL Kvadro      ;뢥 ⨪
        LXI  H,0D080h    ;砫 ⨪  ᪮ C000h-DFFFh
        CALL Kvadro      ;
        LXI  H,0F090h    ;砫 ⨪  ᪮ E000h-FFFFh
        CALL Kvadro      ;
        MVI  C,5         ;⠭ ६ 5 ᥪ㭤  맢 .
        CALL Time        ;প (㧠   ⨪)
;
;   ४祭 梥 䮭 ࠭ 梥⠬  ⠭ ⠡ 梥⮢.
;
        LXI  H,Color     ;⠭  "HL"  梥 䮭
        LXI  D,COLR15    ;⠭  "DE"  ᫥ 梥 ⠡
        MVI  B,15        ; "B" - 稪 ⢠ ४砥 梥⮢
Fon1:   LDAX D           ;  梥  ⠡ 
        MOV  M,A         ;   梥 䮭 ࠭
        MVI  C,01        ;६ প  ४祭 = 1 ᥪ
        CALL Time        ;맢 / প  襣 
        DCX  D           ;३  ᫥饬 梥
        DCR  B           ; 梥 ॡ࠭?
        JNZ  Fon1        ;᫨  - த
        MVI  M,00        ; 䮭 ०  梥
;
;     梥⠬ ⠡
;
        MVI  A,15        ;⠭  "A"  ᫥ 梥 ⠡
Bord1:  STA  Border      ;   祩 梥 
        MVI  C,01        ;६ প = 1 ᥪ
        CALL Time        ;맢 / প
        DCR  A           ; 梥 ⠡ ॡ࠭?
        JNZ  Bord1       ;᫨  - த
        MVI  A,15        ;  梥 15
        STA  Border      ;
;
;------------------------------
;ࠢ ஫ ࠭.
;------------------------------
;
; ࠭ 
;
ScUp:   LDA  Scroll      ;  砫쭮 ப ࠭
        DCR  A           ;㬥 
        STA  Scroll      ;⥬ ᭮   "Scroll"
        HLT              ;⠭   ᫥饣 뢠
        HLT              ;(⠪  ନ஢ প  1/50 )
        ORA  A           ; ப⪠ ࠭?
        JNZ  ScUp        ;᫨  - த
;
; ࠭ 
;
ScDown: LDA  Scroll      ; 筮 ScUp, ⮫쪮
        INR  A           ; 㦭 㢥稢 
        STA  Scroll      ;
        HLT              ;
        HLT              ;
        ORA  A           ;
        JNZ  ScDown      ;
;
;    稭 ணࠬ⮢  㤨 ᯮ짮  HLT.
;,     ⭠ ᮡ  ᯮ짮 뢠.   ,
; ⭮ (.. 뢠 奬 ) 뢠  ॠ,
;   "㡨"   ணࠬ     "".   "ᬥ"
;த  -  ᫥饣 뢠, .. ᨬ 1/50 ᥪ㭤.
;      HLT   ⮫쪮  ନ஢ ⪨ প,  
;࣠뢠  稪 ६  㣮   ணࠬ,   ⮫쪮  -
;ணࠬ ࠡ⪨ 뢠 - ਬ,  ᯮ / "Time".
;    ᫨    ⨫ 뢠  - ६   DI,  ᫥
;⮣ HLT    -   ⠪  "⢮"  ⠭  㤥
;⮫쪮  ""  "" ""! ᫥ ६  뢠
;易⥫쭮  ᫥   ࠧ襭 - EI.
;
; ஬ "/LAT"
;
        MVI  B,08        ; ॣ "B" - 稪 
Rus:    MVI  A,08        ; ᢥ⮤  "/LAT" ⥬ 
        STA  IndRus      ; 祩 "IndRus"  08 (  ࠧ 1  쥬 )
        MVI  C,01        ;প 1 ᥪ㭤
        CALL Time        ;
        MVI  A,00        ; 
        STA  IndRus      ;
        MVI  C,01        ;প 1 ᥪ㭤
        CALL Time        ;
        DCR  B           ;⢮  ࠡ⠭?
        JNZ  Rus         ;᫨  - த
        JMP  Voice0      ; - ३   㪠
;
;     ணࠬ஢ 㪠:  ᠭ  "-06"  
;४ ணࠬ  ᫥,  ""    壮 ᨭ⥧஬
;㪠.  ନ "ᨭ⥧"  㣠  -  ᪠ ᪮॥  ४-
; 楫?  ᠬ    ࠧ .  ⢥ "ᨭ⥧" ᯮ-
;  媠 ⠩ 58053,   樨 㪠 ࠡ-
;⠥   ⥫   塞 樥⮬ .
;    ஡:    ⤥ ⥫ . 室  
;⥫ ᮥ     ,  奬 "" ᥣ 㯠 -
; 1.5  (1 500 000 ). 室   ⥫  ' १ -
; ᬥ⥫  祭    室  䮭. ⮡ -
; 㦭   㪠, 室     ⥫ -
; (. ), ⮡ ᫥     1 500 000  稫 
; :
;
;                   樥  = 15000000/ ()
;
;    ⥫ 뢠  - 0-,1-,2-.  饭  ⨬ -
;  "" 뤥 ᫥騥  ⮢:
;
;        0-  -  0Bh, 1-  -  0Ah, 2-  -  09h
;
;    ࠢ (롮 ) 㦨   08h. ਢ ਬ 樨
;壮᭮  㪠,  ।  祭   (ᮢ)  ⥬ 
;। 몫祭.    ⠭ 㣨 ० , 뤥 
;   ⤥ 祩 ,    㤥 뢠 -
;⢥騥  樥  ( 㤮⢠ 뢠 . 
; 筮 , ..  "h"   ᫠).
;
Sound0: DW   1500          ;. 0-  (1000)
Sound1: DW   0750          ;. 1-  (2000)
Sound2: DW   0500          ;. 2-  (3000)
;
Voice0: MVI  A,36h         ; ० 3 (.,.)   0
        OUT  08            ;  ॣ ०
        LHLD Sound0        ; 樥   0-   "Sound0"
        MOV  A,L           ; ᭠砫 訩  
        OUT  0Bh           ;⥫ 0- 
        MOV  A,H           ;⥬ 訩 
        OUT  0Bh           ;   
;
;   ᫥ ⮣     ( )  ⮩ 1000 .  ⮣,
;⮡  ⮫쪮 , ᤥ প   ᫥饣 㪠:
;
        MVI  C,03          ;প  3 ᥪ㭤
        CALL Time          ;
;
;   筮    ⠫  ,  ⮫쪮  ⮢ 
;祭, ஥    08h (ॣ ०)  롮 .
;
Voice1: MVI  A,76h         ; 1- 
        OUT  08            ;
        LHLD Sound1        ;
        MOV  A,L           ;
        OUT  0Ah           ;
        MOV  A,H           ;
        OUT  0Ah           ;
;
        MVI  C,03          ;প   ᫥饣 㪠
        CALL Time          ;
;
Voice1: MVI  A,0B6h        ; 2- 
        OUT  08            ;
        LHLD Sound2        ;
        MOV  A,L           ;
        OUT  09h           ;
        MOV  A,H           ;
        OUT  09h           ;
;
        MVI  C,05          ;প, ⮡   3 
        CALL Time          ;
;
;   몫祭   ந     ⮣   祭, ஥
;뢠  祭  ,      ..
;
OfVoc0: MVI  A,36h         ;몫祭 0- 
        OUT  08            ;
;
        MVI  C,03          ;প  ⪫祭 ᫥饣 
        CALL Time          ;
;
OfVoc1: MVI  A,76h         ;몫祭 1- 
        OUT  08            ;
;
        MVI  C,03          ;প
        CALL Time          ;
;
OfVoc2: MVI  A,0B6h        ;몫祭 0- 
        OUT  08            ;
;
;    ⮬  樮  ணࠬ  稢  , ⮡   
;-ᥬ,  ᤥ 室   0100h:
;
        JMP  0100h         ;  -ᥬ
;
;==========================
;ᯮ㥬 ணࠬ:
;==========================
;
;뢮 ⨪  8- 
;
Kvadr0: MVI  C,08          ; ॣ "C" - 稪 
Kvadr1: MVI  M,0FFh        ;   "HL"  
        INR  L             ;᫥騩   뢮
        DCR               ; 8  ⨪ ᠭ   ?
        JNZ  Kvadr1        ;᫨  - த
        RET                ; -   / 뢮 ⨪
;
;ணࠬ প
;
Time:   PUSH B             ;࠭ 祭  "BC"  ⥪
Time2:  MVI  B,50          ; ॣ. "B" - 稪 뢠 ( 1/50 )
Time1:  HLT                ; 뢠
        DCR  B             ;ᥪ㭤 ࠡ⠭? (諮 50 뢠?)
        JNZ  Time1         ;᫨  - த  뢠
        DCR  C             ; ᥪ㭤 ࠡ⠭?
        JNZ  Time2         ;᫨  - த
        POP  B             ; 祭 "BC"
        RET                ;   / প
;
;    ⮬   '  樮  ணࠬ 稢. 
;ᯥ樠쭮    ਬ  ᯮ짮  , .., ᮣ᭮  ᠭ,
;ணࠬ ᫥ ᪠   ࠡ     -ᥬ.
;     ஢  ࠡ ,  ᫨ ᠬ   ணࠬ
;騬 ﬨ, ਬ, ⠪ ⨯:
;
TstKey: LDA  KeyKod        ;  ⮩   ஢:
        CPI  Up            ;   " " ?
        JZ   UpScrn        ; ᫨  -  - 믮 (ਬ ஫.)
        CPI  Down          ;   " " ?
        JZ   DwScrn        ;᫨  - ஫ 
        CPI  LF            ;뫠   "" ?
        JZ   0100h         ;⮣   -ᥬ
        JMP  TstKey        ;᫨         - ஢.᭮
UpScrn: HLT                ;ᤥ প   뢠, ⮡
        HLT                ;࠭   ᫨誮 
        LDA  Scroll        ;  ப 砫 ⮡ࠦ 
        DCR  A             ;㬥 
        STA  Scroll        ; 㬥襭   祩 "Scroll"
        JMP  TstKey        ;᭮    
DwScrn: HLT                ;஫  筮, 
        HLT                ; 㢥祭  ப
        LDA  Scroll        ;
        INR  A             ;
        STA  Scroll        ;
        JMP  TstKey        ;
;
;       "/LAT","",""  室   ᭮
; 8x8,  祭 ⤥쭮  7-, 6-  5-   01 ᮮ-
;⢥.     01  祬  ࠢ  ⮬  
;  ந   ६,   ⮫쪮  뢠. ਬ:
;
        IN   01            ;    01
        ANI  80h           ;᪠  7-  (஢ઠ  "/LAT")
        JZ   0100h         ;  -ᥬ ᫨ .
;
;    ⥪ ᭮ ணࠬ ⠪  ७    ⮢
; 祭  ⮢ (⮡  ஬ ᠭ  ᤥ  
;). ਢ  祭   ଠ樨.
;
;   4-    02 - ४⥫  ଠ 256  512 祪   ࠭ 
;ਧ⠫. ᫨  ⠭  ."0" -  256 祪  ࠢ , 
;祬    ⮬ ᠭ  ( ᠥ 梥⮢). ᫨ ."1" -  512
;祪,   ⮬  ࠭   ⮫쪮 4 梥  㤥 ᫮ 뢮
;ࠦ  ࠭, ..  ᥤ 窨 ࠭ ਭ ࠧ -
;.  ०   ᬠਢ   ᠭ   楫  饭,  
; , ᫨  ⠭    祩 "Border" .. 梥 
;   0-3 ⮩  祩 ( 0  15),    ணࠬ  뢠
;  祩 "Border" ⠢    02.
;
;   4-   01 - 室    ଠ樨  䮭
;   0-   01 - 室  뢮  ଠ樨  䮭  १ 
;                        뢮  ணࠬ-ନ㥬    -
;                      짮 ⠩
;    04h - ॣ ० 譥 ࠫ쭮 
;    05h -  "C"
;    06h -  "B"
;    07h -  "A"
;                A,B,C ⮣ , 뢥  १ ࠧ' ""
;                 ࠧ' 뢥  "0" ⠩
;    10h - ࠢ ४祭  ஭ ᪠ ()
;    18h - ॣ  ஫ 
;    19h - ॣ ᥪ ஦ ஫ 
;    1Ah - ॣ ஦ ஫ 
;    1Bh - ॣ    ஫ 
;    1h - ॣ 롮  ࠢ ஫ 
;
;      ⥫  ⬥,   ᠭ -    祡
; ணࠬ஢   몥 ᥬ.      ࠢ ਠ
; ணࠬ ⠭ ०  "-06"  ਬࠬ,   
;來  ᯮ짮  ⥩訥   ᥬ.  祭 몠
;ᥬ  ᮧ  ᫮ ணࠬ  짮 ᫥饩 -
;ன:
;
; (1) .堩
;     "ய", ᪢, ࣮⮬, 1988
; (2) .⠫, .
;     "ணࠬ஢  몥 ᥬ  ய஢ 8080  8085"
;     ॢ ..⭥, ᪢,   , 1987
; (3) .⮢楢, .묥
;     "ணࠬ  ய஢", ,  , 1989
; (4) ., ., .
;     "⥫  ய  ஝", ୠ "" 1982-1983
;
;  ⠪ ⥫쭮   짮 ᠭ ணࠬ  "":
;"-ᥬ"  "-⫠稪" / ⌠ .設.
;
;
;
;
;                                                                 1.
;
;       設  ணࠬ, ਢ   ᠭ.
;         (    -  ⥬
;                       ४⨢ "G100")
;
;
;
;          0100:   F3 3E C3 32 00 00 32 38 00 21 00 78 22 01 00 21
;          0110:   31 01 22 39 00 AF D3 10 FB C3 85 01 0F 00 07 38
;          0120:   16 C0 86 20 C5 3F 04 52 98 80 24 FF F0 FF FF 00
;          0130:   00 E5 C5 D5 F5 3E 88 D3 00 21 2C 01 16 10 1E 0F
;          0140:   7B D3 02 7E D3 0C D3 0C D3 0C D3 0C D3 0C 2B D3
;          0150:   07 1D D3 0C 15 D3 0C C2 40 01 3E 8A D3 00 3E FE
;          0160:   D3 03 DB 02 32 2E 01 3E 88 D3 00 3A 1C 01 D3 02
;          0170:   3A 2D 01 D3 03 3A 2F 01 47 3A 30 01 B0 D3 01 F1
;          0180:   D1 C1 E1 FB C9 31 FF 53 21 00 80 36 00 23 7C B7
;          0190:   C2 8B 01 21 60 90 CD 65 02 21 70 B0 CD 65 02 21
;          01A0:   80 D0 CD 65 02 21 90 F0 CD 65 02 0E 05 CD 6F 02
;          01B0:   21 1D 01 11 2C 01 06 0F 1A 77 0E 01 CD 6F 02 1B
;          01C0:   05 C2 B8 01 36 00 3E 0F 32 1C 01 0E 01 CD 6F 02
;          01D0:   3D C2 C8 01 3E 0F 32 1C 01 3A 2D 01 3D 32 2D 01
;          01E0:   76 76 B7 C2 D9 01 3A 2D 01 3C 32 2D 01 76 76 B7
;          01F0:   C2 E6 01 06 08 3E 08 32 2F 01 0E 01 CD 6F 02 3E
;          0200:   00 32 2F 01 0E 01 CD 6F 02 05 C2 F5 01 C3 16 02
;          0210:   DC 05 EE 02 F4 01 3E 36 D3 08 2A 10 02 7D D3 0B
;          0220:   7C D3 0B 0E 03 CD 6F 02 3E 76 D3 08 2A 12 02 7D
;          0230:   D3 0A 7C D3 0A 0E 03 CD 6F 02 3E B6 D3 08 2A 14
;          0240:   02 7D D3 09 7C D3 09 0E 05 CD 6F 02 3E 36 D3 08
;          0250:   0E 03 CD 6F 02 3E 76 D3 08 0E 03 CD 6F 02 3E B6
;          0260:   D3 08 C3 00 01 0E 08 36 FF 2C 0D C2 67 02 C9 C5
;          0270:   06 32 76 05 C2 72 02 0D C2 70 02 C1 C9 00 00 00
;
;    !!!   祩 010Ah, 010Bh ᠭ  室  ⨨ 
; "/" - 7800h  室   (० 2). ᫨  ணࠬ
; ࠡ      १   "",   
;祩  0100h.
;
;
;                 祭 ᨬ ⮪ ணࠬ
;                (  ࠬ஢  設 )
;
;   01C8 Bord1    011C Border   011D Color    011E COLR1    0127 COLR10
;   0128 COLR11   0129 COLR12   012A COLR13   012B COLR14   012C COLR15
;   011F COLR2    0120 COLR3    0121 COLR4    0122 COLR5    0123 COLR6
;   0124 COLR7    0125 COLR8    0126 COLR9    01B8 Fon1     012F IndRus
;   0131 Init     0140 Init1    012E KeyKod   0267 Kvadr1   0265 Kvadr0
;   0188 Next     024C OfVoc0   0255 OfVoc1   025E OfVoc2   018B Pro
;   01F3 Prery    0185 Progrm   0130 Rele     01F5 Rus      01E6 ScDown
;   012D Scroll   01D9 ScUp     0210 Sound0   0212 Sound1   0214 Sound2
;   0100 Start    026F Time     0272 Time1    0270 Time2    0216 Voice0
;   0228 Voice1   023A Voice2
;
