;z80
;zx-spectrum
;assembler

        MAIN "STS*",#C6
;START MODULE
;STALKER'96
        ORG #FF00
TEST_RES
        OUT (C),A
        LD HL,(INS_BANK)
        AND A
        SBC HL,DE
        RET Z
        INC A
        BIT 5,A
        JR Z,TEST_RES
;#20 +#38
        ADD A,#38
        JR TEST_RES
MD_TABL
        DW AT_MD,MD_D
        DW MD_1,MD_2,MD_3
       ;DW MD_4,MD_5,MD_6,MD_7,MD_8,MD_9
        DW MD_10,MD_11;MD_12
        DW MD_13,MD_14
 IFN disdisk
     DW ddbuf2+1,locend+1
 ENDIF 
MD_Tln=$-MD_TABL/2
user_=$
        RET 
START
        LD HL,RESTORE_VARS
        LD (START_JP),HL
       IFN oldres
       LD HL,(RES_ADR)
       LD DE,OLD_RES
       LD BC,RES_LEN
       LDIR 
       ENDIF 
        LD HL,TEST_RES
        CALL RES_SET ;BC=0

        LD (INS_BANK),DE
        LD A,#18
        CALL RESIDENT
;TEST_RET;HL=0
        AND #D7
        LD (WBANK_0),A
        LD (INS_BANK),A
        CP #17
        JR Z,STS_in_Pg7
      ;SUB #10
      ;JR NZ,$+10
      ;LD (KEY_48K),A
      ;LD A,#CA ;JP Z,...
      ;LD (MD_RES_COM),A ;48K MODE ON
                          ;RES_ADR>#C0
;XOR A
;LD (MD_8_BANK),A
        LD A,#10
        CALL BANK_PUT
        LD A,#C4
        LD (MD_SCR_COM),A
       ;LD A,#18
       ;LD (MD_LD_COM),A
        LD B,MD_Tln
        LD HL,MD_TABL
MDPutCKL
        LD E,(HL)
        INC L
        LD D,(HL)
        INC L
        LD A,(DE)
        XOR #80
        LD (DE),A
        DJNZ MDPutCKL
        JR MD_CONT
STS_in_Pg7
        LD H,#40
        LD DE,#C000
        LD BC,#1B00
        LDIR 
MD_CONT
       IFN splash
        CALL WINDOW
        DB 5,#4F
        DB 16,9,"STS ",v1,v2,v3
       IFN rus
        DB "ru",W+"s"
       ELSE 
        DB "ex",W+"t"
       ENDIF 
        DB 8,11,"Monitor-Debugger
        DB " 48-"
       IF mega
        DB "512","K"+W
       ELSE 
        DB "1024","K"+W
       ENDIF 
        DB 9,13,"Alone Coder
        DB " (0912)75139","0"+W
        DB 15,12,"STS ",14,2
INS_BANK
        DB "sts",0

        LD HL,#B0B
MD_CKL
        LD SP,#D934
MD_D=$-1
        PUSH HL,HL,HL,HL
        DEC H,L
        LD A,H
        AND #3F
        JR NZ,MD_CKL
;XOR A
        IN A,(-2)
        CPL 
        AND #1F
        JR Z,MD_CKL-3
       ENDIF 
       LD A,#79
       LD (jP_OUT_COM),A ;128K
         LD SP,(QUIT_SP)
         LD (REG_SP),SP
        JP CANCEL
       IF splash
INS_BANK
        DB "sts",0
MD_D=$-1
       ENDIF 
MDE
DISPLAY "INITEND=",$