(c)  騭, ᪢

ZXNet : 500:95/462.53
E-mail: bestview@mtu-net.ru
WWW   : http://www.ivr.da.ru

                  #1F  TR-DOS 5.03
               

("ZX-" 1-2/1997)
 ᫥ ।஢: 15.02.2003.

    ணࠬ ᪮ 樨  ஢ ⮢
-뢮,   ⮫  室 
祭 ॣ ﭨ   #1F.    ᤥ?
⭮,   ॣ஢ ப஫  
᭮ ࠭⢥ ⮫쪮   ࠡ ᪮ ⥬.
 ᨪ-⥬ ॣ 㯭.  ᤥ ⠪ 
⮪ ᯥ אַ     ᪮ ⥬.
ᬮ  , "" ப஫ -⠪ ,
 ⮣ ᯮ "뢪" ணࠬ . -㣮, 
ᮦ,  . 㡫  "ZX-" 4-5/1996
ଠ  ⮬,    TR-DOS 5.03   #09BF ⮨
᫥⥫쭮  IN A,(#1F)  RET,  ⢥न. 
ଥ ᨨ   ⮬      
#FF.   ᪨ ᯮᮡ 㯠  ⠬ (।
ࠢ   TR-DOS  ᪮쪮 ⠪⮢  뢠 2-
த,  楤 ࠡ⪨ 뢠 砥 ⠭ 
 祭) ⥮᪨ ,  ࠪ᪨  
⢨ ( ᫨ ஬⮪   뢠ﬨ
ﭥ,  ⮤  ਬ).

      .祭  . "ZX Spectrum  TR-DOS 
짮⥫  ணࠬ⮢" ਢ ᫥騩 
뢠 ॣ ﭨ ப஫:

 -  0  ॣ ஦;
 -  #0A  ॣ ᥪ;
 -  1  ॣ D;
 - 맢 ணࠬ   #3F33;
 -   ॣ B 祭 ॣ ﭨ;
 - ⠭  ॣ ஦  ᥪ 室
   祭.

     짮 ⨬ ᯮᮡ,   த  뫮 ଠ쭮.
  ⠫ ,      饭 
楤 뢠 ॣ ﭨ  ᠫ 
뢠.   稭,  ᭨ ᫥饥:

      ,  0-  
  1 (   -
).

    ⢨⥫쭮, ᬮਬ   砨 ࠡ
ணࠬ TR-DOS   #3F33  ᨬ  ⠭
  #1F ᫠,   ࠧ, 祬 ।  맮
室 ⠭ ᠭ  ࠬ.

1)  0-6 ࠢ  (?0000000).

#3F33:  IN      A,(#1F)
        LD      B,A
        AND     #7F      ;뤥塞  0-6.
        RET     Z        ;室.

2) 6-  ࠢ 1, 0-  ࠢ 0 (?1?????0).

#3F33:  IN      A,(#1F)
        LD      B,A
        AND     #7F
        RET     Z        ; 室.
        LD      HL,#29D8
        AND     #40      ;஢塞 4- .
        JR      NZ,#3F4B ;᫮ 믮.

#3F4B:  LD      A,#D0
        OUT     (#1F),A
        LD      A,B
        AND     #1       ;஢塞 0- .
        JP      NZ,#3EE7 ;᫮  믮.
        IN      A,(#3F)  ; ஦ ࠢ 0.
        OR      A
        JR      NZ,#3F5F ;᫮  믮.
        IN      A,(#5F)  ; ᥪ ࠢ #0A.
        CP      #0A
        RET     Z        ;᫮ 믮.

3) 6-  ࠢ 0, 2-  ࠢ 0, 0-  ࠢ 0, -
    ⮢ 1,3,4,5 ࠢ 1 (?0???0?0).

#3F33:  IN      A,(#1F)
        LD      B,A
        AND     #7F
        RET     Z        ;᫮  믮.
        LD      HL,#29D8
        AND     #40      ;஢塞 4- 
        JR      NZ,#3F4B ;᫮  믮.
        LD      A,B
        AND     #4
        JR      Z,#3FA0  ;᫮ 믮.

#3FA0:  DEC     D        ;稫 0.
        JP      Z,#3F48  ;᫮ 믮.

#3F48:  LD      HL,#29E2
        LD      A,#D0
        OUT     (#1F),A
        LD      A,B
        AND     #1       ;஢塞 0- .
        JP      NZ,#3EE7 ;᫮  믮.
        IN      A,(#3F)  ; ஦ ࠢ 0.
        OR      A
        JR      NZ,#3F5F ;᫮  믮.
        IN      A,(#5F)  ; ᥪ ࠢ #0A.
        CP      #0A
        RET     Z        ;᫮ 믮.

4) 0-  ࠢ 1 (???????1).

     ⮬ 砥, ᨬ  祭 㣨 ⮢,
ࠢ 㤥 ।   #3EE7.  ᯮ
楤,  祭  ६ TR-DOS 
 ᢮ ࠡ ⠪:

        ........
#01F3:  LD      SP,(#5D1C)
        LD      HL,(#5D1A)
        LD      BC,(#5D0F)
        LD      B,0
        JP      (HL)

       祩 #5D1A-#5D1D,  , 
ᮤঠ ந 祭, 쭥襥 믮
ணࠬ ।᪠㥬.   祭, ⠭ 
 #1F  ࠭饥  ॣ B (ࠤ ண  
⥢), 㤥 ﭮ.

      ਢ ᠭ  楤, 
ࠢ쭮 (ᥣ!) । 祭 ॣ ﭨ. 
᢮ ࠡ    祭   ⥬
६ TR-DOS.

;***************************************
;楤 STATUS 頥 ᮤন
;ॣ ﭨ.
;
;室:  A - ᮤন ॣ ஦,
;       B - ᮤন ॣ ᥪ,
;         ⠭ ᫥
;       室  楤.
;
;室: A - 祭, ⠭   #1F.
;뢠 ᫥ 室 饭!

STATUS  DI
        LD      (RG_D+1),A  ;஦.
        LD      A,B
        LD      (RG_S+1),A  ;.

;࠭塞 ᮤন 祥, 
;  ᯮ祭:

        LD      A,(#5D0E)
        LD      (ST1+1),A
        LD      A,(#5D0C)
        LD      (ST2+1),A
        LD      A,(#5CB6)
        LD      (ST3+1),A
        LD      A,(#5D1F)
        LD      (ST4+1),A
        LD      A,(#5C3A)
        LD      (ST5+1),A
        LD      A,(#5D17)
        LD      (ST6+1),A
        LD      HL,(#5D1A)
        LD      (ST7+1),HL
        LD      HL,(#5D1C)
        LD      (ST8+1),HL
        LD      HL,(#5CF8)
        LD      (ST9+1),HL

;⠭ ᮤন 
;祥  ࠢ쭮 ࠡ:

        LD      A,#FF
        LD      (#5D0C),A
        LD      (#5D1F),A
        DEC     A
        LD      (#5D0E),A
        LD      A,#F4
        LD      (#5CB6),A

        LD      HL,S_SPEC
        LD      (#5D1A),HL
        LD      HL,0
        ADD     HL,SP
        LD      DE,-12
        ADD     HL,DE
        LD      (#5D1C),HL

        LD      A,0     ;0  ॣ
        LD      C,#3F   ;஦.
        CALL    TO_WG93
        LD      A,#0A   ;#A  ॣ
        LD      C,#5F   ;ᥪ.
        CALL    TO_WG93
        LD      D,1
        LD      IX,16179
        CALL    TO_DOS  ;। #1F.

; ⠭ ᮤন
;ॣ஢ ஦  ᥪ:

RG_D    LD      A,0
        LD      C,#3F
        CALL    TO_WG93
RG_S    LD      A,0
        LD      C,#5F
        CALL    TO_WG93

;⠭ ࠭ 
;ᮤন 祥:

ST1     LD      A,0
        LD      (#5D0E),A
ST2     LD      A,0
        LD      (#5D0C),A
ST3     LD      A,0
        LD      (#5CB6),A
ST4     LD      A,0
        LD      (#5D1F),A
ST5     LD      A,0
        LD      (#5C3A),A
ST6     LD      A,0
        LD      (#5D17),A
ST7     LD      HL,0
        LD      (#5D1A),HL
ST8     LD      HL,0
        LD      (#5D1C),HL
ST9     LD      HL,0
        LD      (#5CF8),HL

        LD      A,B
        RET

; 㤥 । ࠢ, ᫨
;0-  ॣ ﭨ ࠢ 1:

S_SPEC  POP     BC      ;ন .
        LD      HL,(#5D1C)
        LD      DE,12   ;⠭
        ADD     HL,DE   ;㪠⥫
        LD      SP,HL   ;⥪.
        JR      RG_D

TO_WG93 LD      IX,#2A53
TO_DOS  PUSH    IX
        JP      #3D2F

     㬠,  襣 ᯮᮡ ᭨,  ࠡ⠥ 
楤, 祬    믮, 稭  
맮 ணࠬ   #3F33.  ⮬ 롥६ 
⠪ 砩,  0-  ॣ ﭨ ࠢ 1.

#3F33:  IN      A,(#1F)  ;⨬, ⠭ #FF.
        LD      B,A
        AND     #7F
        RET     Z        ; 室.
        LD      HL,#29D8
        AND     #40      ;஢塞 4- .
        JR      NZ,#3F4B ;᫮ 믮.

#3F4B:  LD      A,#D0
        OUT     (#1F),A
        LD      A,B
        AND     #1       ;஢塞 0- .
        JP      NZ,#3EE7 ;᫮ 믮.

#3EE7:  CALL    #272B

#272B:  LD      A,#1A
        JR      #2731

#2731:  LD      (#5C3A),A
        RET

#3EEA:  LD      A,#FF
        LD      (#5D17),A
        JP      #271B

#271B:  LD      HL,#27FC
        LD      A,#06
        JP      #1C4A

#1C4A:  CALL    #03C3

#03C3:  PUSH    AF
        LD      A,(#5D0E) ;  祩
                          ;। ᪮
                          ;᫨ #FE.
        CP      #FE
        JR      NZ,#03CD  ;᫮  믮.
        POP     AF
        RET

#1C4D:  JP      #01D3

#01D3:  LD      HL,0
        LD      (#5CF8),HL
        CALL    #20E5

#20E5:  PUSH    AF
        LD      A,(#5CF8) ; 0.
        CP      #FF
        JR      Z,#211C   ;᫮  믮.
        POP     AF
        CALL    #2970

#2970:  PUSH    HL
        PUSH    DE
        PUSH    BC

     ,  ᮤন BC ( 室 ⮫ 㦭
 ॣ ﭨ)   ⥪.   楤 
䠪 ᯮ  ᫥饣 ⠭ BC.

        PUSH    AF
        LD      HL,#5D0C  ;  祩
                          ;। ᪮
                          ;᫨ #FF.
        LD      A,(HL)
        OR      A
        JR      NZ,#2992  ;᫮ 믮.

#2992:  POP     AF
        POP     BC

    ন BC 祭  ⥪,   , ⢥񭭮
 ⥪,  ⠫.    㤠,    
뫮  뢠묨  ⥪ 祭ﬨ. 楤
ࠡ⪨ 뢠  祭 BC,  ⮬ 뢠
饭.

        POP     DE
        POP     HL
        RET

#20F1:  PUSH    AF
        LD      A,(#5CB6) ;  祩
                          ;। ᪮
                          ;᫨ #F4.
        CP      #F4
        JR      Z,#211C   ;᫮ 믮.

#211C:  POP     AF
        RET

#01DC:  CALL    #1D63

#1D63:  LD      HL,#5D0E  ;  祩
                          ;। ᪮
                          ;᫨ #FE.
        LD      A,(HL)
        CP      #FF
        LD      (HL),0
        RET     NZ        ;᫮ 믮.

#01DF:  LD      HL,#5D17
        LD      (HL),#AA
        LD      HL,#5D1F  ;  祩
                          ;। ᪮
                          ;᫨ #FF.
        LD      A,(HL)
        OR      A
        LD      (HL),0
        JR      NZ,#01F3  ;᫮ 믮.

#01F3:  LD      SP,(#5D1C) ;祭  祥
        LD      HL,(#5D1A) ;⮢ ࠭.
        LD      BC,(#5D0F) ; BC ⠫
                           ;⮫쪮  ⥪...
        LD      B,0
        JP      (HL)

     室 ࠢ ।   S_SPEC,  SP
㪠뢠   ᠬ 祭 ॣ ﭨ, ஥
- 뫮 ࠭  ⥪.



    㣨    TR-DOS:

1. " ᮪饭 ६ ଠ஢". "ZX-" 1-2/1997.

2. "TR-DOS:    訡?". "ZX-" 5-6/1997.

3. "  ᪮   뢠". Adventurer #9,
   "ୠ ஭" #3, "⥫.  " 6/2000
   ( ).

4. "뢮 ᨬ ७ 䠩  樮
   ⥬ TR-DOS". "⥫.  " 7/2000.

5. "ᮢ襭⢮  । ᬥ ᪠".
   "⥫.  " 9/2000.

6. "७ 䠩 TR-DOS". "⥫.  "
   12/2000, ".  " 9/2001 ( ᥢ
   BV_Creator).

7. "㡠 䠩 '墮'". ".  " 4/2002.

8. "ᯮ짮 筮 ଠ樨   䠩 
   ०". ".  " 11/2002.

9. "஢ઠ ४⭮ 䠩  ᪮ TR-DOS".
   ".  " 6/2004.
