                     Storm v1.2 (drived)
       ------------------------------------------------

Original version by X-TRADE
Improved versin by Slax/Alpha Centaur
 
   ।      ⥩襣   ᥬ   Storm,
-  ࠢ. ࠧ  饭  ஢ 
⠪ ᪨ ,     㦤.   ᮦ    
  ᨨ STORM',   ALASM   㦥  , 
㦭 뫠 ୠ⨢.         Storm'.   
ࢮ  ᨨ     ࠨ:   ⭮  প
孥 .   ௨,     ⥪   
ᨤ    㭨⮦   128-   -  
祭  㤮  (    ,   ⢮   ⮫쪮   
ᠭ ண).    㬠  , 㬠    訫  
⮫  㯮: 窮 ४⨫  .
   ࠢ  ⠬ ᫥饥:  ࠫ  㦭 (   ࠩ
) ,   ஢﫠  ᪮  ࠭⢮  
। 訡  㤠  ⨫  "  ४⥫"  
⠪  ALASM'᪨ ࠩ 孥   ᪮௠, 
    㣮,  ⮬ .  ⥪
 ࠭   ࠭,  孥 , ⠪   
祭.   ⭮   ୮  ࠭  (  
࠭ 뫠 ࢮ),   ⠡ ⮪,   ᠬom .
    ᥡ  ਫ  ᫥騬  ࠧ: -#0,⪨-#0D,
-#0C,⥪-#09.   ᫥騬  ࠧ. -
  Storm  #6F19    ࠢ  ࠭  (᪨  
  襣 ࠩ):
    : #8390,#9EC1
    ⠡ ᨬ: #6F64,#9EC5,#9EF,#B7E0
    ᬠ: #6F6F,#9EC9,#B7E3
    ⥪: #8395,#9CD,#9EED
   
         STS'  ᬠ   DF16,
⠬  HL   祭 ⮢ .  ,  STS 6.2
 , ⮩ ,  ࠢ. ᪥   -
 ࠧ   ,ந⠫஢   ᠭ  
 #DB00.
   ࠩ 室  #9F00        㫨,
.ॡ     ࠩ: 堥   ⮫쪮   DE,BC,AF, 
ᯮ ⥪, 稢  jp (hl).
     ,  ⥯    ଠ  ७   "R",⠪
㤮 ⫨ ⥪ ⮣ ᬠ,  㣨.  ⨬  易
讥 㤮⢮, 㧪 १ INCL    㪠뢠
७ "R", 䠩  㤥 .
     ᠭ १ 騪, ।
稥  STORM'    ,  ᪠   , ⮦
ᨤ  १⮬, १㦠. ࢮ砫쭮  ஥ 
䨣, ᠭ ,   १⮬ ᨤ 
  #0F,⠪  㤮 ॡ뢠.   ன  ᥡ
ਢ   ⥪ .
   y  ᪠    ண  ᠫ    ᥡ,   
ᨨ      ,     㬠,    -  
ਣ,       ᨨ  X-TRADE, 
ன   ⪨  ࠭.
    訬 ﬨ,Slax/Ac9.

 稪  १⮬:
        ORG #5D52,#8000

        RES 4,(IY+#01)
        LD SP,#6000
        LD BC,#7FFD
        IN A,(C); 㡠 

        LD A,#15:OUT (C),A:EXA; 祭 ࠭ ⮪
        LD B,#1F:LD A,#10:OUT (C),A; Scorpion extent memory ON
        LD L,0
        LD DE,CHDATA
        LD A,#BF:IN (254):BIT 0,A; ᫨ ENTER  १㧪
        JR Z,DEST:EXA

LP2     LD B,4,H,#C0:EXA; ஢ઠ १  ⠭栬
LP      LD A,(DE):INC E
        XOR (HL)
        JR NZ,DEST
        INC H
        DJNZ LP:LD B,#7F; ࠭    㣮
        EXA:INC A:CP #17:JR Z,REST; ஢ઠ  砭
        OUT (C),A
        JR LP2

CHDATA  DB 0,1,2,#2B;   ஢ન १
        DB #FD,#6C,#E5,#B5

DEST    LD HL,(#5D3B); १㧪
        LD (#5BFE),HL
        LD B,#7F:LD A,#17
        OUT (C),A
        LD B,#1F
        LD A,#10
        OUT (C),A
        LD HL,#6F19:PUSH HL
        LD DE,(#5CF4)
        LD B,#50
        CALL LL5D96
        LD HL,#DB00,B,#25
        CALL LL5D96
        LD A,#20:CALL LL5E07

EXCH    DI; 뫪 STS'a  RAM7
        LD BC,#1FFD
        LD DE,#10
        LD HL,#DB00
NEXT    LD A,(HL)
        OUT (C),D
        LD (HL),A
        OUT (C),E
        INC HL
        LD A,L:OR H
        JR NZ,NEXT
        OUT (C),D
        RET

REST    OUT (C),A ⮢   १
        LD A,#20
        CALL LL5E07
        CALL EXCH

        LD HL,#5FFF:LD (#5CB2),HL
        LD SP,HL
        INC SP
        LD HL,#3E00:PUSH HL
        LD HL,#1303:PUSH HL
        LD (#5C3D),SP
        LD HL,LINE
        LD DE,#5D3B
        LD BC,#0012
        LDIR
        EX DE,HL
        LD (#5C61),HL
        LD (#5C63),HL
        LD (#5C65),HL
.2      DEC HL
        LD (#5C59),HL
        DEC HL
        LD (#5C4B),HL
        LD (IY+#0E),#07
        LD (IY+#53),#07
        LD (IY+#30),#08
        LD HL,RESID; 뫪 १  23600
        LD DE,#5C20
        LD BC,#12
        LDIR

RESID   LD BC,#1FFD,A,#10:OUT (C),A; १  23600
        LD B,#7F,A,#16:OUT (C),A
        JP #C000:JR RESID

LINE    DB #00,#05,#0B,#00; ப RAND USR VAL "23600"
        DB #F9,#C0,#B0,#22
        DB #32,#33,#36,#30
        DB #30,#22,#0D,#80
        DB #0D,#80

LL5D96  CALL LL5E05; turboloader by X-Trade
LL5D99  LD C,#FF
LL5D9B  DI:INC C
        JR Z,LL5DAB
        LD A,C:AND #07:JR NZ,LL5DB1
        EXX
        LD A,#08:CALL LL5E2D
        EXX
LL5DAB  LD A,D
        EXX:CALL LL5E12:EXX
LL5DB1  LD A,E
        PUSH HL:EXX:POP HL
        LD D,#00:CALL LL5DC8
        JR NZ,LL5D9B
        INC H,E
        BIT 4,E
        JR Z,LL5DC5:RES 4,E:INC D
LL5DC5  DJNZ LL5D99
        RET

LL5DC8  INC A
        LD C,#5F:CALL LL5E09
        LD A,#80:CALL LL5E07
        LD IX,#3FD7
        LD BC,#017F
        CALL LL5E0D:JR Z,LL5DED
        LD A,(#5CD6)
        EX AF,AF:CALL LL5DFA:EX AF,AF
        LD (#5CD6),A
        DEC B:EXX
        RET

LL5DED  CALL LL5E05
        LD A,#D4:CALL LL5E2D
        EXX
        LD C,#07:OR C
        RET

LL5DFA  LD HL,#20AA:PUSH HL
        LD A,#01:PUSH AF
        LD L,#99
        JR LL5E0E

LL5E05  LD A,#D0
LL5E07  LD C,#1F
LL5E09  LD IX,#2A53
LL5E0D  PUSH IX
LL5E0E  EQU $-#01
        JP #3D2F

LL5E12  SRL A:LD C,#7F
        CALL LL5E09
        LD A,(#5D16)
        RES 4,A
        JR C,LL5E22
        SET 4,A
LL5E22  AND #13:OR #2C
        LD C,#FF:CALL LL5E09
        LD A,#18
LL5E2D  CALL LL5E07
        LD HL,#3FE5
        JR LL5E0E
                                                                                                                                                                                                                        
