    ᠭ 㭪権 X-DOS v 1.50

        :

  1. 㭪樨 ࠡ  ன:
    1.1. X_KEY
    1.2. X_KEYW
    1.3. X_YN
    1.4. XK_RL
    1.5. XK_CL
    1.6. XK_GT
  2. 㭪樨 :
    2.1. X_PRCHR
    2.2. X_PRTXT
    2.3. X_PRSTR
    2.4. X_PRERR
    2.5. X_PRE
    2.6. X_PRHEX
    2.7. X_PR0
    2.8. X_PRTX0
    2.9. X_PRST0
    2.10. X_PRE0
    2.11. X_CRDDO
  3. 㭪樨 ࠡ  ࠭:
    3.1. X_CLS
    3.2. X_SCRUP
    3.3. X_SCRDO
    3.4. X_SVSCR
    3.5. X_LDSCR
    3.6. X_CCALC
    3.7. X_INV
    3.8. X_DOHL
    3.9. X_DODE
    3.10. X_UPHL
    3.11. X_UPDE
  4. 㭪樨 ࠡ  ᪮:
    4.1. X_INID
    4.2. X_DRV
    4.3. X_LDCAT
    4.4. X_SVCAT
    4.5. X_TRD
  5. 㭪樨 ࠡ  䠩:
    5.1. X_FNF
    5.2. X_LDF
    5.3. X_SVF
    5.4. X_LDFM
    5.5. X_SVFM
    5.6. X_CRF
    5.7. X_ERF
    5.8. X_RNF
    5.9. X_FNF2
    5.10. X_LDF2
    5.11. X_SVF2
    5.12. X_LDFM2
    5.13. X_SVFM2
    5.14. X_ERF2
    5.15. X_RNF2
  6. 㭪樨 ࠡ   ப:
    6.1. X_PSTR
    6.2. X_GPAR
    6.3. XGP_NUM
    6.4. XGP_FN
    6.5. XGP_TBS
    6.6. X_EXSTR
    6.7. X_DNSV
  7. 㭪樨 ࠡ   䠩:
    7.1. X_TRN
    7.2. X_TRN1
    7.3. X_TRNEX
    7.4. X_CPMSK
    7.5. X_PRFN
  8. 㭪樨 ᪠:
    8.1. X_FIND
    8.2. X_FND
    8.3. X_FND1
  9. ⥬᪨ 㭪樨:
    9.1. X_STRA
    9.2. X_STRHL
    9.3. X_GNUM
    9.4. X_MADE
  10. 㭪樨 ࠡ  ப  string-ଠ:
    10.1. X_EDSTR"
    10.2. XS_ADD
    10.3. XS_ADDC
    10.4. XS_INS
    10.5. XS_INSC
    10.6. XS_DEL
    10.7. XS_CP
    10.8. XS_FIND
    10.9. XS_PUT
    10.10. XS_GET
    10.11. XS_POS
    10.12. XS_END
    10.13. XS_PRL0
    10.14. XS_PRL1
    10.15. XS_PR0
    10.16. XS_PR1
  11.  㭪樨:
    11.1. X_EXFUN
    11.2. X_BANK
    11.3. X_GETV
    11.4. X_EXIT
    11.5. X_JPTBL
  ਫ 1. ଠ ᯨ᪠ ᥢ-७.
  ਫ 2.  ஢ .
  ਫ 3. ଠ ப string-⨯.
  ਫ 4. ଠ string-⠡.
  ਫ 5. ᫮ 祭.

ͻ
 1. 㭪樨 ࠡ  ன:                            
ͼ

:      1.1
:        X_KEY
:      25009
⢨:   ஢ઠ   .
室:    
室:   A =  ⮩ , ᫨ 0,   
訡:     
ਬ:     CALL X_KEY
㭪 X_KEYW ।⠢ ᮡ:
M1          CALL X_KEY
            AND A
            JR Z,M1

:      1.2
:        X_KEYW
:      25006
⢨:      .
            뢠  ० : lat/rus/grf,
                                               lock/caps.
            VAR.KEYCFG ᮤন ⥪騩 ०.
室:    
室:   A =  ⮩  (⠡   ਫ)
            VAR.LASTK =  ᫥ 
訡:     
ਬ:     CALL X_KEYW

:      1.3
:        X_YN
:      25048
⢨:    ⢥   Y/N.
室:    
室:   䫠 C - ⢥ Y  ENTER
            䫠 NC - ⢥ N
訡:     
ਬ:     LD HL,QUES1
            CALL X_PRTXT
            CALL X_YN
            RET NC        - 室, ᫨ ⢥⨫ ""
            ...
QUES1       DEFB " ⮢(Y/N)?",255

:      1.4
:        XK_RL
:      25174
⢨:   ४祭 ०  RUS/LAT.
室:    
室:   A = #FF
            VAR.KEYCFG = ⥪騩 ०
訡:     
ਬ:     

:      1.5
:        XK_CL
:      25177
⢨:   ४祭 ०  CAPS/LOCK.
室:    
室:   A = #FF
            VAR.KEYCFG = ⥪騩 ०
訡:     
ਬ:     

:      1.6
:        XK_GT
:      25180
⢨:   ४祭 ०  GRF/TXT.
室:    
室:   A = #FF
            VAR.KEYCFG = ⥪騩 ०
訡:     
ਬ:     


ͻ
 2. 㭪樨 :                                          
ͼ

:      2.1
:        X_PRCHR
:      25015
⢨:    ᨬ  ⥪ न (VAR.CRD).
室:    A = ⠥ ᨬ
室:   BC = VAR.CRD = न ᫥饣 ᨬ
訡:     
ਬ:     LD A,"1"
            CALL X_PRCHR

:      2.2
:        X_PRTXT
:      25018
⢨:    ⥪  ⥪ न (VAR.CRD).
室:    HL =  ⥪,  砭 ⥪ #FF
室:   HL =  ᫥饣  #FF 
            BC = VAR.CRD = न ᫥饣 ᨬ
訡:     
ਬ:     LD HL,TEXT1
            CALL X_PRTXT

:      2.3
:        X_PRSTR
:      25021
⢨:    ப  ⥪ न (VAR.CRD)
             室  ᫥ ப.
室:    HL =  ப,  砭 ப #0D
室:   HL =  ᫥饣  #0D 
            BC = VAR.CRD = न ᫥饣 ᨬ
訡:     
ਬ:     LD HL,STR1
            CALL X_PRSTR

:      2.4
:        X_PRERR
:      25024
⢨:    訡,  㭪樨 X_PRSTR ⫨砥
            ⮫쪮 ⥬,   室 ᥣ ⠭
            䫠 C.
室:    HL =  ப,  砭 ப #0D
室:   HL =  ᫥饣  #0D 
            BC = VAR.CRD = न ᫥饣 ᨬ
            䫠 C - ⠭
訡:     
ਬ:     LD HL,ERR_MSG1
            JP X_PRERR - JP  ⮣, ⮡ 뢥 訡 
                        ࠧ 諮  ணࠬ.  ᫨
                        ⥪   浪,  㦭:
            LD HL,ERR_MSG1
            CALL X_PRERR
            JP X_EXIT - 室  ⠭ ⥪.
                            ,
                       ᫨ 㦭  뢥 訡
                        த ࠡ.

:      2.5
:        X_PRE
:      25258
⢨:    । ⢮ ᨬ
             ⥪ न.
室:    HL =  ப
            E = ⢮ ᨬ
室:   HL =  ᫥饣 ᨬ
            BC = VAR.CRD = ⥪騥 न
訡:     
ਬ:     

:      2.6
:        X_PRHEX
:      25264
⢨:      hex-  ⥪ न.
室:    A = ⠥ 
室:   BC = VAR.CRD = ⥪騥 न
訡:     
ਬ:     LD A,55
            CALL X_PRHEX - ⠥ "37"

:      2.7
:        X_PR0
:      25012
⢨:    ᨬ   न.
              㦥  (ᬮ ਫ).
             室   ࠩ ࠭,  ᤢ
            .  ୮   㭪権 .
室:    A = ⠥ ᨬ
            B = Y न
            C = X न
室:   BC = न ᫥饣 ᨬ
訡:     
ਬ:     LD A,"1"
            LD BC,#0000  - Y=0,X=0
            CALL X_PR0   - ⠥   孥
                           㣫 ࠭

:      2.8
:        X_PRTX0
:      25132
⢨:    ⥪   न.
室:    HL =  ⥪,  砭 ⥪ #FF
            BC = न
室:   HL =  ᫥饣  #FF 
            BC = न ᫥饣 ᨬ
訡:     
ਬ:     LD HL,TEXT1
            CALL X_PRTX0

:      2.9
:        X_PRST0
:      25135
⢨:    ப   न 
            室  ᫥ ப.
室:    HL =  ப,  砭 ப #0D
            BC = न
室:   HL =  ᫥饣  #0D 
            BC = न ᫥饣 ᨬ
訡:     
ਬ:     LD HL,STR1
            CALL X_PRST0

:      2.10
:        X_PRE0
:      25261
⢨:    । ⢮ ᨬ
              न.
室:    HL =  ப
            BC = न
            E = ⢮ ᨬ
室:   HL =  ᫥饣 ᨬ
            BC = ᫥騥 न
訡:     
ਬ:     

:      2.11
:        X_CRDDO
:      25027
⢨:   ७ ⥪ (VAR.CRD) न  ᫥
            ப.
室:    
室:   
訡:     
ਬ:     CALL X_CRDDO
筮  㭪樨
            LD A,#0D
            CALL X_PRCHR
            LD A,#0A
            CALL X_PRCHR


ͻ
 3. 㭪樨 ࠡ  ࠭:                                
ͼ

:      3.1
:        X_CLS
:      25003
⢨:   ⪠ ࠭ ⥪騬 ਡ⮬ (VAR.T_ATTR).
室:    
室:   
訡:     
ਬ:     CALL X_CLS

:      3.2
:        X_SCRUP
:      25033
⢨:     ࠭   .
            ᢮襥   ⥪騬 ਡ⮬
            (VAR.T_ATTR)
室:    
室:   
訡:     
ਬ:     CALL X_SCRUP

:      3.3
:        X_SCRDO
:      25036
⢨:     ࠭   .
            ᢮襥   ⥪騬 ਡ⮬
            (VAR.T_ATTR)
室:    
室:   
訡:     
ਬ:     CALL X_SCRDO

:      3.4
:        X_SVSCR
:      25159
⢨:   ࠭ ࠭   .
室:    HL = 㤠 ࠭ (  #1B00)
室:   
訡:     
ਬ:     

:      3.5
:        X_LDSCR
:      25162
⢨:   ⠭ ࠭   .
室:    HL = 㤠 ⠭ (  #1B00)
室:   
訡:     
ਬ:     

:      3.6
:        X_CCALC
:      25156
⢨:    ࠭   न⠬.
室:    BC = न
室:   HL = 
            B  C = ⨢ ᪨  ᨬ (#F0,#0F
                 )
訡:     
ਬ:     

:      3.7
:        X_INV
:      25030
⢨:   ஢  樨.
室:    BC = न
室:   
訡:     
ਬ:     LD BC,#1700 -  㣮 ࠭
            CALL X_INV

:      3.8
:        X_DOHL
:      25063
⢨:   down hl,    ࠭  HL
室:    HL = ࠭ 
室:   HL = ࠭    
訡:     
ਬ:     

:      3.9
:        X_DODE
:      25066
⢨:   down de,    ࠭  DE
室:    DE = ࠭ 
室:   DE = ࠭    
訡:     
ਬ:     

:      3.10
:        X_UPHL
:      25069
⢨:   up hl,    ࠭  HL
室:    HL = ࠭ 
室:   HL = ࠭    
訡:     
ਬ:     

:      3.11
:        X_UPDE
:      25072
⢨:   up de,    ࠭  DE
室:    DE = ࠭ 
室:   DE = ࠭    
訡:     
ਬ:     


ͻ
 4. 㭪樨 ࠡ  ᪮:                                 
ͼ

:      4.1
:        X_INID
:      25138
⢨:   樠஢   㧪 䨣樮
            䠩.
室:    A =  ᪮ (0-3)
室:   
訡:     ᪮
ਬ:     LD A,1
            CALL X_INID - 樠஢ ᪮ B

:      4.2
:        X_DRV
:      25114
⢨:   ४ ᪮.
室:    A =  ᪮ (0-3)
室:   
訡:     ᪮
ਬ:     LD A,1
            CALL X_DRV   -  ᪮ B

:      4.3
:        X_LDCAT
:      25102
⢨:   ⥭ ⠫, ⠭ VAR.FREECAT.
室:    
室:   
訡:     ᪮
ਬ:     CALL X_LDCAT

:      4.4
:        X_SVCAT
:      25105
⢨:    ⠫.
室:    
室:   
訡:     ᪮
ਬ:     CALL X_SVCAT

:      4.5
:        X_TRD
:      25117
⢨:   믮   ⥬ 㭪権.
            筮 CALL 15635,   ࠡ⪮ 訡.
室:     ,   15635
室:    ,   15635
訡:     ᪮. ᫨  訡,   室:
            A = VAR.DSKERR =  訡.
ਬ:     


ͻ
 5. 㭪樨 ࠡ  䠩:                                
ͼ

:      5.1
:        X_FNF
:      25120
⢨:    䠩  ⠫  11 ᨬ.
室:    IX =   䠩
室:   HL =   䠩  ⠫
訡:      䠩
ਬ:     LD IX,FN1
            CALL X_FNF  -  ⨭
            RET C       - 室  訡
            LD DE,14
            ADD HL,DE
            LD E,(HL)
            INC HL
            LD D,(HL)   - ⥯ DE ࠢ 樨 䠩 
                         ᪥
            ...
FN1         DEFB "screen0 scr"

:      5.2
:        X_LDF
:      25075
⢨:   㧪 䠩  .   ⠫  11
            ᨬ. 㦠  ꥬ 䠩.
室:    IX =   䠩
            HL =   , 㤠 㦠
室:   
訡:      䠩, ᪮
ਬ:     LD IX,FN1
            LD HL,#4000
            CALL X_LDF  - 㧨 ⨭ ࠧ  ࠭
            RET C       - 室  訡
            ...
FN1         DEFB "screen0 scr"

:      5.3
:        X_SVF
:      25078
⢨:    䠩.   ⠫  11 ᨬ.
            뢠  ꥬ 䠩.
室:    IX =   䠩
            HL =   , 㤠 뢠
室:   
訡:      䠩, ᪮
ਬ:     LD IX,FN1
            LD HL,#4000
            CALL X_SVF  - ࠭ ⨭
            RET C       - 室  訡
            ...
FN1         DEFB "screen0 scr"

:      5.4
:        X_LDFM
:      25141
⢨:   㧪 䠩  ࠭祭 ⢮  
              .   ⠫  11 ᨬ.
            㦠  ꥬ 䠩, ᫨  室 
            ࠭祭.
室:    IX =   䠩
            HL =   , 㤠 㦠
            B = ᨬ ࠧ 䠩
室:   
訡:      䠩, 䠩 ᫨誮 让, ᪮
ਬ:     LD IX,FN1
            LD HL,#4000
            CALL X_LDFM  - 㧨 ⨭ ࠧ  ࠭
            RET C        - 室  訡
            ...
FN1         DEFB "screen0 scr"

:      5.5
:        X_SVFM
:      25144
⢨:    䠩  ࠭祭 ⢮  
              .   ⠫  11 ᨬ.
            뢠  ꥬ 䠩, ᫨  室 
            ࠭祭.
室:    IX =   䠩
            HL =   , 㤠 뢠
            B = ᨬ ࠧ 䠩
室:   
訡:      䠩, 䠩 ᫨誮 让, ᪮
ਬ:     LD IX,FN1
            LD HL,#4000
            CALL X_SVFM  - ࠭ ⨭
            RET C        - 室  訡
            ...
FN1         DEFB "screen0 scr"

:      5.6
:        X_CRF
:      25087
⢨:    䠩. 뢠 overwrite.   
            ᮧ  ⠫,   ந.
            ᫨  1  VAR.ERFLAG ⠭,  ᠬ 㭪
             㤥 ࠡ뢠 overwrite,  ᮮ  ⮬
            ணࠬ.  ⢨ 訡 뤠 ᫥騥
            祭 䫠 Z:
               Z - 䠩 ᮧ,   浪
              NZ - ⠪ 䠩 㦥 , ணࠬ 
                  ᢥ   १,   
                  २  䠩   맮
                  㭪樨 X_CRF.
室:    HL =   䠩
            DE =  䠩
室:   HL =     ⠫
訡:     ⢥ N  overwrite, ᪮
ਬ:     LD HL,FN1
            LD DE,#1B00
            CALL X_CRF  - ᮧ 䠩 ⨭
            RET C       - 室  訡
            LD IX,FN1
            LD HL,#4000
            CALL X_SVF  -  
            RET C       - 室  訡
            ...
FN1         DEFB "screen0 scr"

:      5.7
:        X_ERF
:      25090
⢨:    䠩.   ⠫  11 ᨬ.
室:    IX =   䠩
室:   
訡:      䠩, ᪮
ਬ:     LD IX,FN1
            CALL X_ERF  - 㤠 ⨭
            RET C       - 室  訡
            ...
FN1         DEFB "screen0 scr"

:      5.8
:        X_RNF
:      25096
⢨:   २ 䠩.   ⠫  11
            ᨬ.
室:    IX =  ண  䠩
            HL =   
室:   
訡:      䠩, ᪮
ਬ:     LD IX,FN1
            LD HL,FN2
            CALL X_RNF  - २ ⨭
            RET C       - 室  訡
            ...
FN1         DEFB "screen0 scr"
FN2         DEFB "0neercs rcs"

:      5.9
:        X_FNF2
:      25123
⢨:    䠩  ⠫    ᨬ.
室:    IX =   䠩
            C = ⢮ ᨬ  ᪠
室:   HL =   䠩  ⠫
訡:      䠩
ਬ:     LD IX,FN1
            LD C,9
            CALL X_FNF2 - २ ⨭
            RET C       - 室  訡
            LD DE,14
            ADD HL,DE
            LD E,(HL)
            INC HL
            LD D,(HL)   - ⥯ DE ࠢ 樨 䠩 
                         ᪥
            ...
FN1         DEFB "screen0 C??"

:      5.10
:        X_LDF2
:      25081
⢨:   㧪 䠩  .   ⠫ 
              ᨬ,  㦭  
            ।  䠩  ⮢ ७.
            㦠  ꥬ 䠩.
室:    IX =   䠩
            HL =   , 㤠 㦠
            C = ⢮ ᨬ  ᪠
室:   
訡:      䠩, ᪮
ਬ:     LD IX,FN1
            LD HL,#4000
            LD C,9
            CALL X_LDF2 - 㧨 ⨭ ࠧ  ࠭
            RET C       - 室  訡
            ...
FN1         DEFB "screen0 C??"

:      5.11
:        X_SVF2
:      25084
⢨:    䠩.   ⠫   
            ᨬ.
            뢠  ꥬ 䠩.
室:    IX =   䠩
            HL =   , 㤠 뢠
            C = ⢮ ᨬ  ᪠
室:   
訡:      䠩, ᪮
ਬ:     LD IX,FN1
            LD HL,#4000
            LD C,9
            CALL X_SVF2 - ࠭ ⨭
            RET C       - 室  訡
            ...
FN1         DEFB "screen0 C??"

:      5.12
:        X_LDFM2
:      25147
⢨:   㧪 䠩  ࠭祭 ⢮  
              .   ⠫   
            ᨬ. 㦠  ꥬ 䠩, ᫨ 
            室  ࠭祭.
室:    IX =   䠩
            HL =   , 㤠 㦠
            B = ᨬ ࠧ 䠩
            C = ⢮ ᨬ  ᪠
室:   
訡:      䠩, 䠩 ᫨誮 让, ᪮
ਬ:     LD IX,FN1
            LD HL,#4000
            LD C,9
            CALL X_LDFM2 - 㧨 ⨭ ࠧ  ࠭
            RET C        - 室  訡
            ...
FN1         DEFB "screen0 C??"

:      5.13
:        X_SVFM2
:      25150
⢨:    䠩  ࠭祭 ⢮  
              .   ⠫   
            ᨬ. 뢠  ꥬ 䠩, ᫨ 
            室  ࠭祭.
室:    IX =   䠩
            HL =   , 㤠 뢠
            B = ᨬ ࠧ 䠩
            C = ⢮ ᨬ  ᪠
室:   
訡:      䠩, 䠩 ᫨誮 让, ᪮
ਬ:     LD IX,FN1
            LD HL,#4000
            LD C,9
            CALL X_SVFM2 - ࠭ ⨭
            RET C        - 室  訡
            ...
FN1         DEFB "screen0 C??"

:      5.14
:        X_ERF2
:      25093
⢨:    䠩.   ⠫   
            ᨬ.
室:    IX =   䠩
            C = ⢮ ᨬ  ᪠
室:   
訡:      䠩, ᪮
ਬ:     LD IX,FN1
            LD C,9
            CALL X_ERF2 - 㤠 ⨭
            RET C       - 室  訡
            ...
FN1         DEFB "screen0 C??"

:      5.15
:        X_RNF2
:      25099
⢨:   २ 䠩.   ⠫  
             ᨬ.
室:    IX =   䠩
            HL =   
            C = ⢮ ᨬ  ᪠
室:   
訡:      䠩, ᪮
ਬ:     LD IX,FN1
            LD HL,FN2
            LD C,9
            CALL X_RNF2 - २ ⨭
            RET C       - 室  訡
            ...
FN1         DEFB "screen0 C??"
FN2         DEFB "0neercs r??"


ͻ
 6. 㭪樨 ࠡ   ப:                      
ͼ

:      6.1
:        X_PSTR
:      25126
⢨:    ᯮᮡ  ࠡ   ப. ࠧ
            ࠧࠥ  ।⠢ ᮡ ࠬ: 
            䠩  .    ᫨誮 :
            ᫨  ᨬ ࠬ "/" -  , ᫨
             -  䠩.  ஬ ᯮᮡ 
            ⥩,    ⮬⨧஢  ⮬
            ᫮.
室:    A =  ࠬ (0-14).  稭 ࠧ 
               ࢮ ࠬ,   ᠬ .
室:   ᫨ 䫠 Z - ࠬ ।⠢ ᮡ :
              HL =  ࢮ ᨬ ᫥ "/"
              A = (HL) =  ࢮ ᨬ
            䫠 NZ - ࠬ ।⠢ ᮡ  䠩:
              DE =  11-⮢ 
              C =  
訡:      ࠬ,   䠩, ᪮
ਬ:     XOR A
            CALL X_PSTR         -   ࠬ
            RET C               - 室  訡
            JR Z,KEY1           - 室  ࠧ 
            PUSH DE
            POP IX
            CALL X_FNF2         -  䠩
            ...

:      6.2
:        X_GPAR
:      25192
⢨:   ன ᯮᮡ ࠡ   ப. 
             ࠬ ।⠢   ப 
            string-ଠ.   㭪 ᥣ 
               ப  .
室:    A =  ࠬ (0-15, 뢠  ᠬ )
            HL =  
室:   
訡:      ࠬ
ਬ:     LD HL,B1
            XOR A
            CALL X_GPAR  -  㫥 ࠬ (
                          㫥 ஬ ⠥ ᠬ
                          )
            RET C        - 室  訡
            ...
B1          DEFS #100    - ᨬ쭮  .
                            .ப ⠪  
                          㤥, ⨬ ࠧ 32-64
                          .

:      6.3
:        XGP_BUN
:      25198
⢨:   뢠 ࠬ  ८ࠧ   ᫠.
室:    A =  ࠬ (0-15)
室:   HL = ᫮
訡:      ࠬ
ਬ:     LD A,1
            CALL XGP_NUM -   ࠬ  ᫮
            RET C        - 室  訡
            LD (VAR1),HL -  ᫮  ६

:      6.4
:        XGP_FN
:      25201
⢨:   뢠 ࠬ  ८ࠧ   
            䠩.
室:    A =  ࠬ (0-15)
            HL =    11-⭮  䠩
室:    ,   X_TRN
訡:      ࠬ, ᫨誮  ,   
            
ਬ:     LD A,1
            LD HL,BUF1
            CALL XGP_FN  -   ࠬ  
            RET C        - 室  訡
            LD IX,BUF1
            CALL X_FNF   -  䠩
            ...
BUF1        DEFS 11

:      6.5
:        XGP_TBS
:      25204
⢨:   뢠 ࠬ     string-⠡.
            (ଠ ᬮ  ਫ)
室:    A =  ࠬ (0-15)
            HL =  ⠡
室:   䫠 Z - ࠬ  ⠡  
            䫠 NZ - ࠬ  ⠡ :
              C =    ⠡
訡:      ࠬ
ਬ:      ਬ ।⠢ ᮡ  SET
            LD A,1
            LD HL,TBS_SET
            CALL XGP_TBS    -  ࠬ  ᪠  
                             ⠡  ६
            RET C           - 室  訡
            LD HL,MSG_NOVAR
            JP Z,X_PRERR    -  ᮮ饭, ᫨ ࠬ
                              ⠡  
            LD HL,TBA_SET   - ⠡ ᮢ
            JP X_JPTBL      -  ᨬ   
                             室  ᮮ⢥
                             ணࠬ
            ...
MSG_NOVAR   DEFB "Unknown variable",13
TBS_SET     DEFB 4,"font"
            DEFB 3,"ink"
            DEFB 5,"paper"
            DEFB 4,"bank"
            DEFB 0

TBA_SET     DEFW ST_FONT,ST_INK,ST_PAPER,ST_BANK

:      6.6
:        X_EXSTR
:      25054
⢨:   믮  ப
室:    HL =  ப  string-ଠ
室:   
訡:      ப, ᪮
ਬ:     LD HL,MCOMSTR
            CALL X_EXSTR
            ...
MCOMSTR     DEFB 15,"set font my.scf"
;                ^^ 

:      6.7
:        X_DNSV
:      25000
⢨:   樠쭠 㭪  X-Dos Navigator, ࠭
             #8000-#AF00  128-   믮
            .ப. ᫨ 6-    ᯮ祭 
            ணࠬ 室   ࠭ ,
            ᫥ 믮 .ப ୥ ⭮.
             ணࠬ, 맢 㭪, .
室:     ,   X_EXSTR
室:   
訡:      ப, ᪮
ਬ:     LD HL,MCOMSTR
            CALL X_DNSV
            ...
MCOMSTR     DEFB 15,"view.com def.txt"
;                ^^ 


ͻ
 7. 㭪樨 ࠡ   䠩:                         
ͼ

:      7.1
:        X_TRN
:      25108
⢨:   ८ࠧ  䠩  ⥪⮢ ப 
            11-⮢.
            뢠 ᨬ ᪨ "?"  "*",  
            ⠢  #FF.
室:    HL =  ப
            DE = , 㤠  11-⮢ 
            IX = ७  㬮砭, ᫨  
                㪠  室 ப, 
                ⠢ .
室:   C =   (筮 11,    
               )
訡:     ᫨誮  ,    
ਬ:     LD IX,DEFEXT1
            LD HL,TXT1
            LD DE,FN1
            CALL X_TRN   - ८ࠧ 
            RET C
            LD IX,FN1
            LD HL,#8000
            CALL X_LDF2  - 㦠 䠩,  㪠 
                            䠩 (ॣ  - 室
                           ࠬ  㭪樨 X_TRN)
            RET C
            ...
TXT1        DEFB "asd.dat",13
DEFEXT1     DEFB "com"
FN1         DEFS 11

:      7.2
:        X_TRN1
:      25111
⢨:   ८ࠧ  䠩  11-⮢ 
            ⥪⮢ ப.
室:    HL =  
            DE = , 㤠  ப
室:   DE =  ப
訡:     
ਬ:     LD HL,FN1
            LD DE,TXT1
            CALL X_TRN1  - ८ࠧ 
            LD A,#FF
            LD (DE),A    - ⠢  ப
            LD HL,TXT1
            CALL X_PRTXT - ⠥ ப
            ...
FN1         DEFB "asd     dat"
TXT1        DEFS 13

:      7.3
:        X_TRNEX
:      25171
⢨:   ८ࠧ  䠩 १ extlist (ᯨ᮪
            ᥢ-७, ᬮ  ଠ 
            ਫ).
室:    HL =  11-⭮  䠩
            DE = , 㤠  ८ࠧ 
                (12 )
室:   HL = HL + 11
            DE = DE + 12
訡:     
ਬ:     LD HL,FN1
            LD DE,STR1
            CALL X_TRNEX - ८ࠧ 
            LD HL,STR1
            CALL X_PRTXT -  ८ࠧ 
            ...
FN1         DEFB "boot    B??"
STR1        DEFB "            ",#FF
;                 ^^^^^^^^^^^^   ,  
;                 ਬ  㤥 "boot    .BAS". "BAS"
;                  ᥢ-७

:      7.4
:        X_CPMSK
:      25129
⢨:   ࠢ    䠩.
室:    HL =  䠩
            DE = ᪠ ( #FF 砥 )
室:   䫠 C -   室  
            䫠 NC - 室
訡:     
ਬ:     

:      7.5
:        X_PRFN
:      25237
⢨:     ⥪騬 न⠬  䠩  
            ᮮ饭: "File 'filename.ext' ". 
            ᮮ饭 㦭  ᠬ.
室:    HL =  11-⭮  䠩
室:   BC = VAR.CRD = ⥪騥 न
訡:     
ਬ:     LD HL,FN1
            CALL X_PRFN  -   䠩
            LD HL,MES1
            CALL X_PRSTR -  ᠬ ᮮ饭. ⮣
                 ᮮ饭 㤥 룫拉:
                 "File 'asdf    .cnk'  ᮮ⢥ ଠ"
            ...
FN1         DEFB "asdf    cnk"
MES1        DEFB " ᮮ⢥ ଠ",13


ͻ
 8. 㭪樨 ᪠:                                          
ͼ

:      8.1
:        X_FIND
:      25039
⢨:      ⠡.
室:    IX = ⠫  ( #FF 砥 
                ᨬ)
            HL =  ⠡
            DE =  
            B = ⢮ ⮢  ⠡
            C = ⢮ ࠢ 
室:   HL =  ࢮ  
            B =  浪  
訡:      ⠪   ⠡.  室:
            HL =  ⠡
            B = 0
ਬ:     LD IX,FNAME1 -  - 䠩
            LD HL,ADCAT  -  砫 ⠫
            LD DE,16     -   ⠫
            LD B,128     - ᨬ쭮 ⢮ ⮢
            LD C,11      -  ⮫쪮    ⨯
            CALL X_FIND  -  
            RET C        - ᫨  ⠪ 䠩,  室

:      8.2
:        X_FND
:      25042
⢨:    ப   .
室:    IX =  ப
            HL =  
            DE =  
            B =  ப
室:   HL =  ࢮ  ᮢ
            DE =   ப
訡:      ப  .  室:
            HL =  
            DE = 0
ਬ:     LD IX,STR1
            LD HL,0
            LD DE,#4000
            LD B,3
            CALL X_FND   -  ப     
            ...
STR1        DEFB "asd"

:      8.3
:        X_FND1
:      25045
⢨:      .
室:    HL =  砫 ᪠
            A = 㦭 
室:   HL =  ࢮ  
訡:      ।,     .
            ᫨ ⠪ ,  ᭥ (᪮ 横).
ਬ:     LD HL,0
            LD A,"1"
            CALL X_FND1  -  , 稭  


ͻ
 9. ⥬᪨ 㭪樨:                                  
ͼ

:      9.1
:        X_STRA
:      25051
⢨:   ८ࠧ ⮢ ᫠  ⥪⮢
            ப. ⥬ ᫥ 筠. ப ᥣ
            ⮨   ᨬ. 騥 㫨 "047"
             ஡ " 47".
室:    A = ᫮
            DE =   ப
室:   DE = DE + 3
訡:     
ਬ:     LD A,(TBANK)
            LD DE,TXT1+14
            CALL X_STRA
            LD HL,TXT1
            CALL X_PRSTR
            ...
TXT1        DEFB "騩 :    ",13
;                               ^^^   ᫮

:      9.2
:        X_STRHL
:      25057
⢨:   ८ࠧ 塠⮢ ᫠  ⥪⮢
            ப. ⥬ ᫥ 筠. ப
            ᥣ ⮨   ᨬ. 騥 㫨
            "00461"  ஡ "  461".
室:    HL = ᫮
            DE =   ப
室:   DE = DE + 5
訡:     
ਬ:     LD HL,(DS_FRALL)
            LD DE,TXT1+14
            CALL X_STRHL
            LD HL,TXT1
            CALL X_PRSTR
            ...
TXT1        DEFB "Free sectors:      ",13
;                               ^^^^^   ᫮

:      9.3
:        X_GNUM
:      25168
⢨:   ८ࠧ ᫠  ⥪⮢ ப 
            ଠ. 㭪   ⥬ ᫥:
            ᫨  ᨬ ப "#"  "h" - 16-筠,
                                 ᫨ "%"  "b" - 筠,
             ⨢ 砥 筠.  ᫮
            ᨬ 砥  ᫠.
室:    HL =  ப
室:   HL = ᫮
訡:     
ਬ:     LD HL,STR1
            CALL X_GNUM
            LD (VAR_X),HL - ॢ ᫮  ப  
                            ६
            ...
STR1        DEFB "#D17C "
;                      ^ ᨬ ᫮

:      9.4
:        X_MADE
:      25189
⢨:     ᥫ.
室:    DE = 
            A = ⥫
室:   AHL = ந (塠⮢ ᫮)
訡:     
ਬ:     


ͻ
 10. 㭪樨 ࠡ  ப  string-ଠ:            
ͼ

:      10.1
:        X_EDSTR
:      25195
⢨:    ப  string-ଠ.
             ।஢  :
              EDIT              - rus/lat
              CAPS              - caps/lock
              CURSOR LEFT/RIGHT - ६饭 
              DELETE            - 㤠 ᨬ ।
                                 ஬
              SS+I              - insert/over
              ENTER             - 砭 ।஢
室:    HL =  ।㥬 ப
                (砫  ப)
            E = ᨬ쭠  ப
             (砫쭠    ॢ ᨬ)
            BC = न  ࠭
室:   HL =  ப
訡:     ப  頥  ࠭ (E+C>64), 
            ᨬ쭠  ࠢ ,  砫쭠 
             ᨬ쭮
ਬ:     LD HL,STR1
            LD E,8
            LD BC,(CRD)  - ⥪騥 न
            CALL X_EDSTR - ।஢ ப
            RET C        - 室  訡
            ...
STR1        DEFS 8,"example+" - ।㥬 ப

:      10.2
:        XS_ADD
:      25216
⢨:     string-ப  㣮.
            string1=string1+string2
室:    HL =  string1
            DE =  string2
室:   DE =  string1
            HL =  string2
訡:       ॢ蠥 255 
ਬ:     

:      10.3
:        XS_ADDC
:      25219
⢨:    ᨬ  string-ப.
            string=string+char
室:    HL =  string
            A = char
室:   HL =  
訡:       ॢ蠥 255 
ਬ:     

:      10.4
:        XS_INS
:      25252
⢨:   ⠢  string-ப  .
室:    HL =  string1
            DE =  string2
            A =   string1
室:   HL =  string2
訡:       ॢ蠥 255 ,  ॢ蠥
            
ਬ:     

:      10.5
:        XS_INSC
:      25255
⢨:   ⠢ ᨬ  string-ப.
室:    HL =  string
            E =   string
            A = char
室:   HL =  
訡:       ॢ蠥 255 ,  ॢ蠥
            
ਬ:     

:      10.6
:        XS_DEL
:      25228
⢨:      string-ப.
室:    HL =  string-ப
            D = 砫  ()
            E =  
室:   HL =  
訡:       室  । ப
ਬ:     

:      10.7
:        XS_CP
:      25231
⢨:   ࠢ  string-ப.  ࠧ  ப
            ࠧ  ࠢ묨.
            if string1=string2 then ...
室:    HL =  string1
            DE =  string2
室:   HL,DE =  
            䫠 Z - ப ࠢ
            䫠 NZ - ப ࠢ
訡:     
ਬ:     

:      10.8
:        XS_FIND
:      25234
⢨:   ᪠ string-ப  string-⠡ (ଠ
            ⠡ ᬮ  ਫ).
室:    HL =  string-⠡
            DE =  string-ப
室:   䫠 C - ப  
              HL =  string-⠡
              DE =  
              C = ⢮ ப  ⠡
            䫠 NC - ப 
              HL =   ப  string-⠡
              DE =  
              C =   ப  ⠡
訡:     
ਬ:     

:      10.9
:        XS_PUT
:      25222
⢨:   ⠭ ᨬ    string-ப
            string[pos]=char
室:    HL =  string
            E = pos = 
            A = char
室:   HL =  
訡:      ॢ蠥 
ਬ:     

:      10.10
:        XS_GET
:      25225
⢨:    ᨬ   樨 string-ப
            char=string[pos]
室:    HL =  string
            A = pos = 
室:   HL =  
            A = char
訡:      ॢ蠥 
ਬ:     

:      10.11
:        XS_POS
:      25213
⢨:   뤠   樨  string-ப.
室:    HL =  string-ப
            A = 
室:   HL =  㦭 樨  string-ப
訡:      ॢ蠥  ப
ਬ:     

:      10.12
:        XS_END
:      25210
⢨:   室   string-ப.
室:    HL =  string-ப
室:   HL =  string-ப
訡:     
ਬ:     

:      10.13
:        XS_PRL0
:      25240
⢨:      न⠬ string-ப 
            ७ᮬ ப.
室:    HL =  string-ப
            BC = न
室:   HL =  string-ப
            BC = ᫥騥 न
訡:     
ਬ:     

:      10.14
:        XS_PRL1
:      25243
⢨:     ⥪騬 न⠬ string-ப 
            ७ᮬ ப.
室:    HL =  string-ப
室:   HL =  string-ப
            BC = VAR.CRD = ᫥騥 न
訡:     
ਬ:     

:      10.15
:        XS_PR0
:      25246
⢨:      न⠬ string-ப 
            ७ ப.
室:    HL =  string-ப
            BC = न
室:   HL =  string-ப
            BC = ᫥騥 न
訡:     
ਬ:     

:      10.16
:        XS_PR1
:      25249
⢨:     ⥪騬 न⠬ string-ப 
            ७ ப.
室:    HL =  string-ப
室:   HL =  string-ப
            BC = VAR.CRD = ᫥騥 न
訡:     
ਬ:     


ͻ
 11.  㭪樨:                                         
ͼ

:      11.1
:        X_EXFUN
:      25060
⢨:    ண  㭪樨  .
             ࠧ ணࠬ  墠 㭪
                ᢮. । 室  DOS
            室  ⠭. 筮 ணࠬ
             맢 ᢮ 㭪  ,  
             ᠬ DOS ⮦ 㤥 뢠  ᢮
            㭪樨,  ⠢.
室:    HL =  㦭 㭪樨
            DE =  
室:   HL =  
            DE =  
訡:     
ਬ:     LD HL,X_PR0
            LD DE,MY_PR0
            CALL X_EXFUN -  㭪   
            PUSH DE      -   
            ...
            POP DE
            LD HL,X_PR0
            CALL X_EXFUN - ⠭ ஥ 祭

:      11.2
:        X_BANK
:      25153
⢨:   ⠭ ⥪騩   ࠭.  ⠭
            祭 ࠭  VAR.TBANK.
室:    A =  ।   #7FFD, 
            ᪫祭  4.
室:   
訡:     
ਬ:     

:      11.3
:        X_GETV
:      25183
⢨:     X-DOS.
室:    
室:   H = ᫮  窨
            L = ᫮ ᫥ 窨
訡:     
ਬ:     CALL X_GETV
              ᨨ H = 1, L = 50

:      11.4
:        X_EXIT
:      25186
⢨:   室  ணࠬ  ⠭ ⥪.
室:    
室:   
訡:     
ਬ:     

:      11.5
:        X_JPTBL
:      25207
⢨:   맮 ணࠬ  ⠡.
室:    C =  ணࠬ
            HL =  ⠡ ᮢ
            IX,DE,A =   ࠬ  ணࠬ
室:   
訡:     
ਬ:     ᬮ ਬ  㭪樨 XGP_TBS



 ਫ 1. ଠ ᯨ᪠ ᥢ-७ "extlist.txt":

 ப 稭  ";" ⠥ ਥ   
 ਭ.   ⠫ ப  ⮫쪮 
 ᨬ, ⠫ ⠪ ய᪠.
   ப  ᨬ ࠢ  ७
䠩, ᫨ ⠪ ७  ᯨ᪥  -  ப
⠢   (ᥢ).  ᫨  ,
 祣  ⠢,  ⠥ 饥 ७.
ਬ,  䠩 "boot.B",  ८ࠧ १
extlist    ப BAS ( ࢮ ᨬ "B").
 १ 멤 "boot.BAS". 筮  ⠫  ᠬ
 ⠪ ,  ⮬  ⠪  ࠡ ,
  뢮  䠩   ⭮   ⠪ ࠧ
室 (ࠢ쭮 ᪠: ᯥ樠쭮  ⮣  ).

 ⠢塞 ᯨ᮪ ᥢ-७  ᫥騩 :

;Standart ZX-Spectrum extension
BAS
COD
DAT
###
;Assembler files
HSM ;Alasm



      ਫ 2.  :

Ŀ
            
Ĵ
 #00  NO KEY     #0F   CS/9     
 #01    CS       #10   SS/A     
 #02    SS       #11   SS/ENTER 
 #03  no code    #12   SS/SPACE 
 #04   CS/3      #13   SS/W     
 #05   CS/4      #14   SS/E     
 #06   CS/2      #15   SS/Q     
 #07   CS/1      #16   CS/SPACE 
 #08   CS/5      #17   CS/ENTER 
 #09   CS/8      #18   SS/I     
 #0A   CS/6                     
 #0B   CS/7     #19-            
 #0C   CS/0       #1F no code   
 #0D   ENTER    #20-  standart  
 #0E   CS/SS      #FF    code   




           ਫ 3. ଠ ப string-⨯.

 ப string-⨯  ᫥騩 :    ப
ᮤন  , ⢮ ⠫ ⮢ ࠢ  
 ᮤন ᠬ ப. ਬ:
STR1    DEFB 11,"asdfqwr 123"
        ^^  ^^^^^^^^^^^ᠬ ப, 11 ᨬ.

   䨪஢,    - ⨬ string-⨯
 ⫨砥  筮 ப.  ᢮⢮  訥
२⢮   ,   ப ࠭
⭠: । ப, ࠬ  ப.
 ⥩襩 ࠡ  string-ப  筮
㭪権,  ᭮      ᫮
㭪樨.

     ਬ砭:   ᠭ ᪮쪮 ࠧ 㯮
ࠦ " string-ப"  㦭 ᭨,  
    殬 ப.   ᫥ ᨬ
ப,   㬠,  ᨬ, 室騩
।⢥  ᫥ ᨬ.



             ਫ 4. ଠ string-⠡.

 String-⠡ 㦭  ᪥ string-ப । ⠪ 
ப.  室饥 ਬ: ᯮ ப
(ࠬ .ப)   ਠ⮢. ଠ ⠡
祭 ⮩: 騥 ࠧ   㣮 ப string-⨯.
蠥 ⠡ 㫥 ப (ப  㫥 ) 
  0. ᬮ ਬ  㭪樨 XGP_TBS,  
ࠧ ⠭ ᭮.
   string-⠡  ᥣ  㭪樨: XGP_TBS 
XS_FIND.
    ப  ⠡   ,   ,
  ଠ쭮 ᪠  ⠡ 㦭, ⮡
⢮ ⮢  ⠡  ॢ蠫 255.

  १  , ᫨   ⠡
ப,    ⠡  뫨 . 멤
⥩襥 ᠬ祭, ணࠬ 砥  ᫮ 
   ᫮.



              ਫ 5. ᫮ 祭.

   ᠭ  뫪  ६.  
 ᫥騩 : VAR.NAME -  VAR  䨪 
६,  NAME -  ६.

 㣨 ᯥ樠 祭 .


