;IM_2+
;   뢠

        ORG IM_2
        DI
        EX (SP),HL
        LD (adr_ret+1),HL
        POP HL
        LD (IM2_SP+1),SP
        PUSH BC
SP_IM2  LD SP,#8AFF
        PUSH AF,HL,DE,BC,IX
        EX AF,AF':PUSH AF
        EXX:PUSH HL,DE

SCROLL  LD A,0
        AND A
        JP NZ,CHK_CRD

  ࠭ 砥 㦭 ࠭!
        CALL SCREEN
        CALL ARROW2 ;ࠥ ५!

MENU    LD A,0
        AND A
        JP NZ,menu  ;  ᠬ 砫쭮 !

        LD (p_mod),A ;A=0
        LD (p_mod2),A
        LD (p_mod3),A
        LD (p_mod4),A
        LD (p_mod5),A

Work    LD A,0      ; ࠡ    .
        AND A
        JP NZ,arrw

  ன    ?
        LD A,(D_B)
        AND A
        JP Z,expl     ; 
door    LD HL,0  ; न 
door_n  LD A,#77
        LD (HL),A ;#77
        INC H
        LD (HL),A

expl    LD A,(ViewEx)
        AND A
        JP Z,ch_scr
ExplCub LD DE,0
ExplAdr LD HL,0
        LD A,(TIM_SOT+1)
        RRA
        RRA
        JP C,ET2
        LD DE,0
ET2     LD (HL),E
        INC L
        LD (HL),D

ch_scr  LD A,0
        AND A
        CALL NZ,CH_SCR
        XOR A
        LD (ch_scr+1),A

᫮த 㬥?
N1      LD A,0
        AND A
        JP Z,arrw
a_oxi   LD B,0
        LD A,(page)
        AND 2
        CP B
        JP Z,arrw
A_oxi   LD HL,0
        LD (HL),%00001001
        INC L
        LD A,(HL)
        AND %11001111
        LD (HL),A
        XOR A
        LD (N1+1),A

arrw    CALL ARROW
        CALL CH_5_7  ; 砥  ࠭

        LD A,(Work+1)
        AND A
        JP NZ,Seven
PrntHero
        LD A,0
        AND A
        JP Z,Work2
        LD (ch_scr+1),A

ࠥ , ᫨ 
        LD A,(D_B+1)
        AND A
        CALL NZ,FROM_BUF2
;
mirr    LD A,0   ; ᫨  0,  ࠡ⠥  ઠ ࠩ,   ࠩ  !
        AND A
        JP NZ,CHK_BLC

        CALL FROM_BUF
taking  LD A,0   ; 㦭   ।?
        AND A
        JP Z,PH
        NOP      ; DEC A -  ⮣, ⮡  뫮  ࠩ  㫥 
crdsCUB LD DE,0
        CALL PUT_SPR
taking2 LD A,0   ; ᫨  ⠢ 1,     ࠩ  㪠!
        AND A
        JP Z,PH;-3
;
        LD (sp_buf+1),SP

        LD B,A
        EX AF,AF' 
        LD A,B
        CP 1     ;   ࠩ
        JP Z,tk
;
        CP 25
        JP Z,bom
        CP 26
        JP Z,mem
६ ᫮த
ox      LD DE,#D1A6      ;#51A6
        LD HL,OXI
        CALL PrMisc
        LD HL,IM_2
        JP tk-3

६ 
bom     LD SP,0
        POP HL
        POP BC
        POP DE
bom1    LD A,%01011101
        CP %01000001
        JP NZ,bom2
        PUSH DE
        PUSH BC
        PUSH HL
bom2    LD (HL),A
        LD (DE),A
        LD (BC),A
        LD B,1
        JP Z,tk
        JP tk-3

६ 
mem     LD SP,0
        POP DE
        POP HL
        POP BC
        LD (HL),%01010101  ;%01011101
        LD A,%01011101
        LD (DE),A
        LD (BC),A

mem_mod NOP   ;  LD (HL),A
        ; DB #77

        LD BC,#1C11   ;28,17
tk      LD A,0
        XOR 1
        LD (tk+1),A
        JP NZ,tk1
        LD (taking+1),A
        LD (taking2+1),A
        LD (crdsCUB-1),A
        EX AF,AF' 
        CP 26
        JP Z,meM
        CP 25
        JP NZ,PH
        LD (bom+1),SP
        JP sp_buf
meM     LD (mem+1),SP
        JP sp_buf
tk1     LD A,B
        LD (sfx+1),A
        LD A,C
        LD (sfx2+1),A
sp_buf  LD SP,0
PH      LD HL,0
        CALL HERO
        LD (PrntHero+1),A ;A=0

஢塞   ன , ᫨ ,
   ᥪ. ࠡ뢠   1 ᥪ.!
CHK_BLC LD A,(D_B+1)
        AND A
        JP Z,Work2
flg_blc LD A,1
        AND A
        JP Z,Work2
        LD HL,BlicBuf
        LD (to_buf+1),HL
        LD A,(TIM_SEC+1)
        RRCA
        JP C,www

        LD A,(PLUS)
        LD HL,(LEVEL+1260)
        SUB H           ;X 
        NEG
        LD H,A
        LD DE,(BLIC2+1)
        INC E           ;Y 
;        INC E
        LD A,(BlicCrd+2)
        DEC A
        DEC A
        SRL A    ;A/2
        LD D,A
        AND A
        SBC HL,DE
        JP Z,blDead
        DEC L
        JP NZ,BlicCrd
        DEC H
        INC H
        JP NZ,BlicCrd
 㤠ਫ !  !
blDead  LD A,16
        LD (B_L_I_C+1),A
;        LD (KEYS+1),A ;㥬 ⨥ 䠩,  ⠭ 

BlicCrd LD DE,0       ;न 
        LD A,(TIM_SOT+1)
        LD HL,BLIZ
        RRCA
        JP C,www-3
        LD HL,BLIZ+96

        CALL HERO2+3
www     INC A
        LD (PrntHero+1),A

Work2   LD A,(FLAG+1)
        AND A
        JP NZ,XY_crds
        LD HL,(HeroCrd)
        LD A,(A1+2) ;A=X 
        LD D,A
        RRA
        RRA
        RRA
        AND 31
        LD B,A
        LD C,1

        LD A,(SIDE) ;㤠 ᥩ ࠧ ன
        SUB 52      ;A=1   ,A=0 ࠢ

        LD A,B
        JP Z,Right
Left    INC H
        INC H
        INC H
        INC H
        CP H
        JP C,lr1
        JP lr
Right   CP H
        JP NC,lr1
lr      XOR A
        LD (EndScr+1),A
        JP lr2
lr1     LD A,D ;A=X 
        INC C ; C=2  ᤢ ࠭
        AND A
        JP Z,EndScr   ;
        CP 243
        JP NZ,XY_crds ;ࠢ
EndScr  LD A,0       ; ᤢ ࠭
        AND A
        JP NZ,XY_crds
lr2     LD A,C
        LD (FLAG+1),A
XY_crds
CHK_CRD LD A,(MENU+1)
        AND A
        JP NZ,Seven

 ६
TIM_SOT LD A,0     ;
        INC A
;
 
        LD B,A
        RRA
        RRA
        LD HL,#333E ; 103
        JP C,Door
        LD H,63
Door    LD (door_n),HL
        LD A,B
;
        CP 50
        JP C,t1

⠢   ?
ExplTim LD A,0   ;⠢襥 ६  뢠
        AND A
        JP Z,TIM_SEC
        DEC A
        LD (ExplTim+1),A
        JP NZ,TIM_SEC
६ 稫 㦭 뢠 !
        LD A,16
        LD (KEYS+1),A ;㥬 ⨥ 䠩,  ⠭ 
        LD (B_O_M_B+1),A ; 뢠 

TIM_SEC LD A,0     ;㭤
        INC A
        CP 60
        JP C,t2
;
        LD B,7
        CALL PAGE
蠥 - ᫮த  㭪
        LD (SP_buf+1),SP
oxi     LD SP,0
        POP HL
        LD (A_oxi+1),HL
        LD (oxi+1),SP
SP_buf  LD SP,0
        LD (HL),%00001001
        INC L
        LD A,(HL)
        AND %11001111
        LD (HL),A

        LD HL,DATREG2
        CALL SOUND

        LD A,(OXIGEN)
        DEC A
        LD (OXIGEN),A

oxi_2   LD (N1+1),A
        DEC A
        JP NZ,oxx
        INC A
        LD (WRT+1),A
        LD HL,TXT4
        LD (WRT+3),HL
oxx     LD A,(page)
        AND 2
        LD (a_oxi+1),A
;
TIM_MIN LD A,0     ;
        INC A
        CP 60
        JP C,t3
TimHour LD A,0     ;
        INC A
        LD (TimHour+1),A
        XOR A
t3      LD (TIM_MIN+1),A
        XOR A
t2      LD (TIM_SEC+1),A
        XOR A
t1      LD (TIM_SOT+1),A

Seven

砥 7- ࠭ .. ᠬ 몠
⠬ "ᨤ",    祣 ...
        LD B,7
        CALL PAGE

;-----  ६饭 -----
        CALL mouse ;᫨  A  ,   
        LD D,A
        CALL SCANER
        OR D

        LD B,A
KEYS    LD A,0
        AND 16
        LD A,B
        JP NZ,k2
        LD (KEYS+1),A
k2      LD C,A
        CALL UDLR

        LD A,(MENU+1)
        AND A
        JP NZ,music

        LD A,C

᫨ 祣  ,  ன    ⤮:)
        LD HL,(Y_COORD)
        LD D,H
        LD E,L
old_crd LD BC,0
        AND A
        SBC HL,BC
        LD HL,USTAL+1
        JP NZ,I_Work
        CP 16         ; ""
        JP Z,I_Work
time    LD BC,2512
        DEC BC
        LD (time+1),BC
        DJNZ music
諮 - 40 ᥪ.  ன 祣  
        LD (HL),1
        JP music

I_Work  LD (old_crd+1),DE
        LD A,(HL)
        DEC A
        JP NZ,music-6
        LD (KEYS+1),A  ;A=0
        LD (HL),2   ;㦭 !
        LD HL,2512
        LD (time+1),HL

music   LD A,0    ; 몠 1=ON/0=OFF
        AND A
        CALL NZ,PLAY

        LD A,(MENU+1)
        AND A
        JP NZ,exitim2

sfx     LD A,1
        DEC A
        JP Z,im2_E
        LD (sfx+1),A
        DEC A
        JP NZ,sfx1
        LD HL,SFX_off
        CALL SOUND
        JP im2_E-5

sfx1    LD HL,SFXtake
        CALL SOUND
        LD A,(SFXtake+1)
        INC A
        LD (SFXtake+1),A
sfx2    CP 17
        JP NZ,im2_E
        LD A,(sfx2+1)
        DEC A
        LD (sfx2+1),A
        LD A,10
        LD (SFXtake+1),A

im2_E   LD HL,spr_buf
        LD (from_bf+1),HL
        LD (to_buf+1),HL

஢塞,  ⠫  祣,   "-2"?
        LD A,(#D691)   ;᫮  ண ࠭
        CP %00110010
        JP Z,Lp
        LD A,0
        INC A
        LD ($-2),A
        JP NZ,Lp
        LD HL,TXT1
        LD (WRT+3),HL
        INC A
        LD (WRT+1),A

Lp      LD A,#FB       ;EI
        LD (p_mod),A
        LD (p_mod2),A
        LD (p_mod3),A
        LD (p_mod4),A
        LD (p_mod5),A

exitim2 POP DE,HL:EXX:POP AF
        EX AF,AF':POP IX,BC,DE,HL,AF
IM2_SP  LD SP,0
        EI
adr_ret JP 0
;---------------------------------------

  ⮢  
menu0   CALL ARROW
        JP Seven
menu    LD A,0
        AND A
        CALL Z,SputOff ;㡨ࠥ ⭨!
menu2   LD A,0
        AND A
        CALL NZ,CH_SCR
        XOR A
        LD (menu2+1),A
        LD A,(menu+1)
        AND A
        JP NZ,menu0
;
adrSput LD HL,sput1
Y_Sput  LD B,126     ;Y-. ⭨
        PUSH HL
        CALL SPRITE  ;㥬 ⭨!
        CALL ARROW

        POP HL

        LD A,(HL)
        CP 174
        JP NC,spu1
        CP 76
        JP C,spu1
        DEC A
        LD (HL),A
        CP 76
        LD A,5
        JP NC,tim2
        LD A,173
        LD (HL),A

spu1    INC HL
        INC HL
        INC HL

spu2    LD A,(HL)
        CP 255
        JP NZ,timer2
        LD HL,sput1
        JR tim2_1
timer2  LD A,0
        INC A
        CP 6
        JP NZ,tim2
tim2_1  XOR A
        LD (adrSput+1),HL
tim2    LD (timer2+1),A

        CALL CH_5_7  ; 砥  ࠭
timer   LD A,0
        INC A
        LD (timer+1),A
        EX AF,AF' 
pt_er   LD A,8
        DEC A
        JP NZ,mn1
        CALL PutEart  ; ᫥ . A=0
        LD A,8
        LD (menu2+1),A
        EX AF,AF' 
        RRA
        JP NC,mn1+3
        EX AF,AF' 
mn1     LD (pt_er+1),A

        JP Seven

뢮 ࠩ   22506 ⠪⮢!
;12*12 
PutEart LD A,0
        INC A
        CP 8
        JR NZ,p_e0
        XOR A
        LD HL,Earths
        LD (p_e+1),HL
p_e0    LD (PutEart+1),A
        LD (P_E_SP+1),SP
        LD IX,put_tab
        LD A,93
p_e     LD SP,Earths
        LD (peart+2),IX
        POP HL
        POP DE
        POP BC
        EXX
        POP HL
        POP DE
        POP BC
        LD (p_e+1),SP

peart   LD SP,(Earths)
        PUSH BC
        PUSH DE
        PUSH HL
        EXX
        PUSH BC
        PUSH DE
        PUSH HL
        INC IX
        INC IX
        DEC A
        JP NZ,p_e
P_E_SP  LD SP,0
        EI
        RET

put_tab INSERT "E:Put_Tab.dat" ;  ࠭  뢮 ࠩ⮢!

;ᯠ騪 Laser Compact 5.2
Depack  DI
        LD A,1
        LD (SCROLL+1),A
        PUSH HL
        LD A,16+7  ; .  1- ࠭
        LD (page),A
        LD BC,#7FFD
        OUT (C),A
        EI

        LD HL,#5800 ; ࠭
        LD DE,#5801
        LD BC,767
        LD (HL),L
        LDIR

        EI
        HALT
        DI

        LD B,0
        CALL PAGE

        POP HL
        LD C,(HL)
        INC HL
        LD B,(HL)
        INC HL
        LD DE,#4000
        PUSH DE
        LDIR
        LD B,7
        CALL PAGE
        POP HL
        EI
        HALT

ᯠ...
LC5
       LD DE,7;SKIP "LCMP5" & LENGTH
       ADD HL,DE

       LD A,(HL)
       INC HL
       LD E,A
       ADD HL,DE

       LD A,(HL)
       LD E,A;pp

       AND 3
       RLCA
       RLCA
       RLCA
       OR #C000/256

       EXX
       LD D,A;砫
       LD E,0
       EXX

       LD A,(HL)
       INC HL
       XOR #C000/256+#18
       AND #FC
       LD XH,A; /.

DLC1   LD A,(HL)
       INC HL
       LD XL,#FF
DLC2   EXX
       JR NZ,DLC10
       LD B,1

DLC3   EXA
       SLA D
       JR NZ,$+6
       LD D,(HL)
       INC HL
       SLI D

       DJNZ DLC7

       JR C,DLC1

       INC B
;-----------
DLC4   LD C,%01010110
       LD A,#FE
DLC5   SLA D
       JR NZ,$+6
       LD D,(HL)
       INC HL
       RL D
       RLA
       SLA C
       JR Z,DLC6
       JR C,DLC5
       RRCA
       JR NC,DLC5
       SUB 8
DLC6   ADD A,9
;---------
       DJNZ DLC3

       CP 0-8+1
       JR NZ,$+4
       LD A,(HL)
       INC HL

       ADC A,#FF
       LD XL,A
       JR C,DLC4
       DI
       LD A,16+8+7  ;.  2- ࠭
       LD (page),A
       LD BC,#7FFD
       OUT (C),A
;       EI
       RET
;-------------
DLC7   LD A,(HL)
       INC HL

       EXX
       LD L,A
       EXA
       LD H,A
       ADD HL,DE

       CP #FF-2
       JR NC,DLC8
       DEC XL
DLC8   LD A,H
       CP XH
       JR NC,DLC13
       XOR L
       AND #F8
       XOR L
       LD B,A
       XOR L
       XOR H
       RLCA
       RLCA
       LD C,A

DLC9   EXA
       LD A,(BC)
DLC10  EXA
       LD A,D
       CP XH
       JR NC,DLC14
       XOR E
       AND #F8
       XOR E
       LD B,A
       XOR E
       XOR D
       RLCA
       RLCA
       LD C,A

DLC11  EXA
       LD (BC),A

       INC DE
       JR NC,$+4
       DEC HL
       DEC HL
       INC HL
       EXA
       INC XL
       JR NZ,DLC8
       JP DLC2

DLC13  SCF
DLC14  PUSH AF
       EXX
       ADD A,E
       EXX
       LD B,A
       POP AF
       LD C,E
       JR NC,DLC11
       LD C,L
       JR DLC9
LENGDEC EQU $-Depack
;---

 ண ࠭,   #C000 ࠭ 5  7
CH_5_7  LD A,(page)
        XOR 2
        LD (page),A
        LD BC,#7FFD
        OUT (C),A
        RET

 ࠭  ࠭ (#C000) ⠬
CH_SCR  LD A,(page)
        XOR 10  ;2+8
        LD (page),A
        LD BC,#7FFD
        OUT (C),A
        RET

     ࠭
砥   #C000 㦭 ࠭
SCREEN  LD A,(page)
        AND 8   ; ᫨ 0,  ⠭ ࠭  #4000
        LD B,5
        JP Z,PAGE
        LD B,7

ࠩ ४祭 ࠭  128-
࠭  ண
;B- 㦭 ࠭
PAGE    LD A,(page)
        AND %11111000
        OR B
        LD (page),A
        LD BC,#7FFD
        OUT (C),A
        RET
page    EQU 23388

FILE    DB "courier2!"
FILE2   DB "Courier2B"
;--------------
  TR-DOS १ #3D13
DOS     DI
        EX     AF,AF' 
        XOR A
        LD (Disk_Er+1),A ;塞  訡!
        LD A,I
        LD (DosExit+1),A
        LD A,63
        LD I,A
        IM 1
        EI
        PUSH   HL
        LD     HL,0
        LD     (23823),HL
        LD     HL,(23613) ; Cop. ERR_SP
        LD     (ERR+1),HL
        LD     HL,ERR
        EX     (SP),HL
        LD     (23613),SP
        XOR A
        LD     (23570),A
        EX     AF,AF' 
        JP     15635

ERR     LD     HL,0
        LD     (23613),HL ; o. ERR_SP
        LD     A,6
        LD     (23570),A
        LD     A,(23823)
        AND    A
        JR Z,DosExit
        INC A
        JR Z,DosExit

        DEC A

- 訡!
᫨ 祩 23838  23823 ࠢ,      䠩,   訡!

        LD B,A
        LD A,(23838)
        CP B
        JR Z,DosExit

        LD A,2
        LD (Disk_Er+1),A
        OUT (254),A ; ! .. 訡!
        LD B,10
        HALT
        DJNZ $-1
        XOR A
        OUT (254),A
DosExit LD A,0 ;I
        LD I,A
        CP 63
        IM 1
        JR Z,$+4
        IM 2
        EI
Disk_Er LD A,0
        AND A
        RET
;
ࠦ  ५   
 㥬 ᠬ ५, Max X=242, Y=179
ARROW   DI
        LD (AR_SP+1),SP
A1      LD DE,#9664 ; न ५ D-X,E-Y
        LD HL,NUM_A ;  ࠩ⮢ ५
        LD B,0
        LD A,D
        AND 7
        RLA
        LD C,A
        ADD HL,BC
        LD SP,HL
        POP HL  ; HL= 㦭 ५
        LD SP,HL  ; ⥪  ࠩ ५

        LD A,E
        RRA
        SCF
        RRA
        SCF      ;*
        RRA
        AND #DF  ;#5F
        LD H,A
        XOR D
        AND 7
        XOR D
        RRCA
        RRCA
        RRCA
        LD L,A
        LD A,E
        XOR H
        AND 7
        XOR H
        LD D,A
        LD E,L

        LD HL,BUFFER
        LD A,13
LOOP_TB EX AF,AF' 

        LD (HL),E
        INC HL
        LD (HL),D
        INC HL

        POP BC
        LD A,(DE)
        LD (HL),A
        AND C
        OR B
        LD (DE),A
        INC E
        INC HL

        POP BC
        LD A,(DE)
        LD (HL),A
        AND C
        OR B
        LD (DE),A
        INC E
        INC HL

        POP BC
        LD A,(DE)
        LD (HL),A
        AND C
        OR B
        LD (DE),A

        DEC E
        DEC E
        INC HL

DOWN_DE INC     D
        LD      A,D
        AND     7
        JP      NZ,NXT_DWN
        LD      A,E
        ADD     A,32
        LD      E,A
        JP      C,NXT_DWN
        LD      A,D
        SUB     8
        LD      D,A

NXT_DWN EX      AF,AF' 
        DEC     A
        JP      NZ,LOOP_TB
AR_SP   LD      SP,0
        RET
;
ࠥ ५, ⠭ , 
뫮   (904 ⠪)
ARROW2  DI
        LD (A2_SP+1),SP
        LD SP,BUFFER

        LD A,13
;*****************
ARW2    POP HL
        POP DE
        DEC SP
        LD (HL),E
        INC L
        LD (HL),D
        INC L
        POP DE
        LD (HL),D
;*****************
        DEC A
        JP NZ,ARW2
A2_SP   LD SP,0
        RET
;
DEHRUST INSERT "E:dehr1_3.cod" ;256 
;
goforw  DB 0 ; 砫   . ⠯   ⠯  
CHEAT   DB 1 ; , ᫨ =0,   () ࠡ⠥!
SIDE    DB 52,52 ; 㤠 ࠧ ன (52-ࠢ)

室    
Mmenu   DI
        NOP
        LD B,4
        CALL PAGE
        LD HL,#C000+11042
        LD DE,BEGIN
        LD BC,1971
        LDIR
        JR BEGIN

㭪  " ", .. !
StGame  DI
        NOP
        CALL STOP
        LD B,4
        CALL PAGE
        LD HL,#C000
        LD DE,BEGIN
        LD BC,MEND-BEGIN
        LDIR

BEGIN

