(c) Jason 2002

   㬠...
     祬  ᤮  ७  த? ⭮ ⮬, 
⥭.  .  ᫠   뫮 ࠩ  ᪥
᮪  ⭮.   㪮 ॠ쭮  ᮧ 
ᯮ짮  ன⢠  ࠧ஬    1600        HD
᪥.  93    .  ᪥  iS-DOS  筮 DD
⭮  頥  3200 . ᫥ ⮩ ࠡ⪨  HD 
ᯮ짮  ন饣      -  㦥  6400  .
    1999  ,    - ᥬ  Ruiner AKA 
ਣ쥢,  CODE.ZX.

        ਢ몠      ⭮.        
⭮ ਭ 祪 祣- த  ⭮. ,
饬.

⮢  sts51.com - 24000.  ᫥.

     Hଠ쭮  室   ᤮ 㤠 ! প 䠩
⥬  ᤮  ⮦  .    .    ਣ
䠩  STS  5.1  㯮 ਪ ᤮ 稪.  砫 뫮
   ᪠ 楤, ⢥  室  ASM/Basic/DOS,
   ᨫ.   -   ⠬   ⠭   .   H   㤥 -
/ᮮ頩    ,    ᤥ    ଠ쭮.  ᫨
- ⭮  ᤮묨 㭪ﬨ - ,  ᥣ.

          ᤮  ᤥ JP #5DE5, ⠬ 室
.      ᪠       室   
⪮ ⥪.

* ਣ ᠭ  ZX.SPECTRUM
* ⠪ ᫠  REAL.SPECCY
* ⠪ ᫠  KHARKOV.SPECTRUM
* ⠪ ᫠  SPB.SPECCY
* ⠪ ᫠  ZXNET.SOFT

H 直 砩   室 稪.

        ORG     24000
        LD      HL, FILE1       ;
        LD      D,#FB           ;.  
        LD      A,#16           ;࠭
        CALL    LOAD
        RET     C
        LD      HL, FILE2
        LD      D,#DB
        LD      A,#17
        CALL    LOAD
        RET     C

        DI
        LD      HL,END
        PUSH    HL
        LD      BC,#7FFD
        LD      A,#17
        OUT     (C),A
        JP      #DB00           ; STS
END
        LD      A,#10           ;  室  ᤮
        LD      BC,#7FFD
        OUT     (C),A
        EI
        LD      C,8
        RST     16
        XOR     A
        LD      A,#F4
        LD      C,#84
        JP      16
LOAD
        LD      (PAGE+1),A
        LD      A,D
        LD      (ADDR+1),A
        LD      C, #34
        RST     16
        RET     C
        EXX
        LD      DE, 14
        ADD     HL, DE
        LD      A, (HL)
        OR      A
        INC     HL
        LD      B, (HL)         ; 䠩  
        JR      Z, $+3
        INC     B
        LD      E, D
LOOP
        PUSH    BC
        LD      HL, BUFF
        LD      BC, #012B
        RST     16
        POP     BC
        RET     C
        PUSH    HL
        LD      A, E
        EXX
        POP     HL
ADDR    ADD     A, #C0
        LD      D, A
PAGE    LD      A, #16
        LD      BC, #7FFD
        DI
        OUT     (C), A
        LD      BC, #100
        LD      E, C
        LDIR
        LD      BC, #7FFD
        LD      A, #10
        OUT     (C), A
        EI
        EXX
        INC     E
        DJNZ    LOOP
        RET

FILE1   DEFM "sts#16  cod"
FILE2   DEFM "sts#17  cod"
BUFF    DEFS #100

 WBR, Jason.
