Rev 588 |
Rev 597 |
Go to most recent revision |
Blame |
Compare with Previous |
Last modification |
View Log
| Download
| RSS feed
| ?url?
;LAST UPDATE: 06.01.2013 savelij
include ../../macros.a80
include ../../define.a80
include ../../global_vars.a80
include ../../ports_ngs.a80
include ../../sdcomand.a80
include ../../fat_vars.a80
TXTMODE_DEBUG EQU 0
H_FILES EQU 0X3C
V_FILES EQU 0X19
MAGIC_COLOR EQU BLUE<<3+WHITE+BR_INK;0X0F
PHASE 0
JP $ ;0000
DUPL 0X0008-$,0XFF
JP $ ;0008
DUPL 0X0010-$,0XFF
JP $ ;0010
DUPL ADR_SEL_ROM-$,0XFF
OUT (C),A ;0014
NOP
RET
DUPL 0X0018-$,0XFF
JP $ ;0018
DUPL 0X001C-$,0XFF
JP RST8_DOS
DUPL 0X0020-$,0XFF
JP $ ;0020
DUPL 0X0024-$,0XFF
JP RST8PAGE0 ;0024
DUPL 0X0028-$,0XFF
JP $ ;0028
DUPL CONT_RST8-$,0XFF ;002C
JP NEXT_RST8
;
4
DUPL 0X0030-$,0XFF
JP CALL2PAGE ;0030
;
MAGIC
DUPL CONTINUE_MAGIC-$,0XFF ;0034
JP CONT_MAGIC
DUPL 0X0038-$,0XFF ;0038
; PUSH HL ;11
; LD HL,(ADR_INT) ;16
; EX (SP),HL ;19
; RET ;10=56
EI ;4
RET ;10=14
; RST8
EXIT_RST8 LD BC,P4_EXIT_RST8 ;
RAM
PUSH BC
LD BC,WIN_P0
XOR A
JP ADR_SEL_ROM
; RST 8 DOS
RST8_DOS LD HL,ERST8_DOS
JP NEXT_RST
; RST 8 DOS
ERST8_DOS LD BC,WIN_A0
LD A,6
JP ADR_SEL_ROM
; MAGIC
DUPL 0X0066-$,0XFF
CONT_MAGIC NOP
DI
LD HL,N_77
CALL CONVERT_BPORT
PCALL STORE_AY,P_ADDON1 ;
AY
LD A,(CPU2+DEBUG_ONOFF)
AND TRACE_DBG
JP NZ,DEBUGGER
LD BC,CONF_128
LD A,(N_7FFD)
AND ZX_SCREEN!0XFF
OUT (C),A ;
0
LD A,(N_77)
CALL CMP_SCRMODE ;
LD HL,EI_RET
LD (ADR_INT),HL ;
PCALL STORE_TXTMODE,P_ADDONS ;
PCALL SCAN_FONT,P_ADDON1 ;
PCALL RD_SET_PAL,P_ADDON2 ;
MAGIC
;==========
; CALL CMP_FONT ;
,
; PUSH AF
;==========
PCALL MAGIC_FONT,P_ADDONS ;
MAGIC
CONT_MAGIC1 LD A,(CPU2+DEBUG_ONOFF)
AND JMP_DBG
JP NZ,DEBUGGER
JP RESTART_NMI
DUPL 0X00FF-$,0XFF
DW 0X0038
CODE_TABL DW AY_PRN_INIT_ ;40
DW AY_PRN_A__ ;41
DW AY_PRN_TOKEN_ ;42
DW AY_PRN_SCR_ ;43
DW TAPE_INIT_ ;44
DW TAPE_EMUL_ ;45
DW WINW_ ;46
DW PRINT_MESSAGE_ ;47
DW PRINT_A_ ;48
DW SCRUP_ ;49
DW SCRDN_ ;4A
DW SET_MODE_ ;4B
DW COM_DEV ;4C
DW COM_FAT ;4D
DW SORT_FINDFILES_ ;4E
DW MOUNTER ;4F
DW INST_FATBOOT_ ;50
DW CMOS_RW_ ;51
DW SETUP_PAL_ ;52
ECODE_TABL
;===============
SETUP_PAL_ PCALL SETUP_PAL,P_ADDON2
RET
AY_PRN_INIT_ PCALL AY_PRN_INIT,P_ADDON1
RET
AY_PRN_A__ PCALL AY_PRN_A_,P_ADDON1
RET
AY_PRN_TOKEN_ PCALL AY_PRN_TOKEN,P_ADDON1
RET
AY_PRN_SCR_ PCALL AY_PRN_SCR,P_ADDON1
RET
TAPE_INIT_ PCALL TAPE_INIT,P_ADDON1
RET
TAPE_EMUL_ PCALL TAPE_EMUL,P_ADDON1
RET
WINW_ PCALL WINW,P_ADDONS
RET
PRINT_MESSAGE_ PCALL PRINT_MESSAGE,P_ADDONS
RET
PRINT_A_ PCALL PRINT_A,P_ADDONS
RET
SCRUP_ PCALL SCRUP,P_ADDONS
RET
SCRDN_ PCALL SCRDN,P_ADDONS
RET
SET_MODE_ PCALL SET_MODE,P_ADDON1
RET
INST_FATBOOT_ PCALL UNP_MICROBOOT,P_ADDON1
RET
SORT_FINDFILES_ PCALL SORT_FINDFILES,P_ADDON1
RET
CMOS_RW_ PCALL CMOS_RW,P_ADDON1
RET
RST8PAGE0 LD HL,ERST8PAGE0
JP NEXT_RST
ERST8PAGE0 LD BC,WIN_A0
XOR A
JP ADR_SEL_ROM
SELECT_MAPPER LD A,(R_7FFD)
AND 0X10
RET Z
LD A,8
ADD A,L
LD L,A
RET
RESTART_NMI PCALL CLS_TXTMODE8,P_ADDONS ;
LD BC,WIN_A1
LD A,P_RST8
OUT (C),A ;
ROM 2
LD HL,CPU1+TEXT_PORTREGS
PCALL PRTT_MSG,P_ADDONS ;
PCALL PRT_PORTREGS,P_ADDON1 ;
;==========
; LD HL,CPU1+TXT_VERIFY_FONT
; PCALL PRTT_MSG,P_ADDONS ;
; POP AF
; LD HL,CPU1+TXT_VERIFY_OK ;
; JR NC,CONTMAGIC3
; LD HL,CPU1+TXT_VERIFY_ERR ;
;CONTMAGIC3 PCALL PRTT_MSG,P_ADDONS ;
;==========
LD BC,WIN_A1
LD A,P_ADDON1
OUT (C),A ;
2
LD IX,MAIN_MENU
PCALL SETUP4SEL,P_ADDONS
PCALL ITWINW,P_ADDONS ;
PCALL ITSELECTOR,P_ADDONS
AND A
JR Z,CONTMAGIC2
DEC A
JR Z,RESTART_NMI
DEC A
JR Z,CONTMAGIC3
CONTMAGIC2 XOR A
IN A,(0XFE)
CPL
AND 0X1F
JR NZ,CONTMAGIC2 ;
PCALL RESTORE_TXTMODE,P_ADDONS ;
PCALL RESTORE_FONT,P_ADDONS ;
PCALL RESTORE_PAL,P_ADDON2 ;
CONTMAGIC3 PCALL RESTORE_AY,P_ADDON1 ;
AY
LD BC,EXITNMISERVICE
PUSH BC
LD BC,WIN_P0
XOR A
JP ADR_SEL_ROM
;
RST8
NEXT_RST8 LD HL,EXIT_RST8
NEXT_RST PUSH HL
LD (INTERNAL_SP),SP
LD HL,R_77
CALL CONVERT_BPORT
CALL P5_READ_BYTE
LD A,(R_77)
CALL CMP_SCRMODE
LD HL,B0_CPU2
CALL SELECT_MAPPER
NEXT_RST1 LD B,(HL)
INC HL
LD A,(HL)
AND 8
LD A,B
JR Z,NEXT_RST2
OR 0XC0
NEXT_RST2 LD (PAGE4READ),A
LD A,(NEXTBYTERST8)
AND 0X3F
LD L,A
LD H,0
ADD HL,HL
LD DE,CODE_TABL
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
JP (HL)
;
;
1,
2 3
RESETUP_WINS EXX
LD BC,WIN_P1
XOR A
OUT (C),A ;
1
LD HL,CPU3
ADD HL,SP
LD SP,HL ;
1
LD HL,B0_CPU0-CPU1 ; 0
CALL SELECT_MAPPER
RESETUPWINS1 EXX
LD BC,CPU2 ;
/ 0X8000
LD A,H ;
EXX
CP 0X40
JR C,RESETUPWINS2 ; 0,1
INC HL
INC HL
EXX
LD BC,CPU1 ;
/ 0X4000
EXX
CP 0X80
JR C,RESETUPWINS2 ; 1,2
INC HL
INC HL
EXX
LD BC,CPU0 ;
/
EXX
CP 0XC0
JR C,RESETUPWINS2 ; 2,3
INC HL
INC HL
EXX
LD BC,CPU3 ;
/ 0X4000
EXX
LD B,HIGH (WIN_A2) ;
2
CALL RESETUPWINS4
LD DE,0XFFF8
ADD HL,DE ;
JR RESETUPWINS5
RESETUPWINS2 LD B,HIGH (WIN_A2) ;
2
CALL RESETUPWINS4
RESETUPWINS5 LD B,HIGH (WIN_A3) ;
3
CALL RESETUPWINS4
EXX
RET
RESETUPWINS4 LD E,(HL) ;
INC HL ;
BIT 3,(HL)
JR NZ,RESETUPWINS3
SET 3,B
LD A,(HL)
AND 3
RRCA
RRCA
OUT (C),A ;
XFF7
RES 3,B
RESETUPWINS3 INC HL
OUT (C),E ;
X7F7
RET
;
P5_READ_BYTE PUSH HL
PUSH DE
PUSH BC
PUSH AF
LD A,(RADRRET_H) ;
CP 0X40
JR NC,READBYTE_03
;
0X4000
LD HL,B0_CPU0 ;
0
CALL SELECT_MAPPER
READ_CPU0_01 LD D,(HL) ;
INC HL
LD A,(HL) ;
AND HIGH (WIN_A1)
OR HIGH (WIN_P1) ;
1
LD B,A
LD C,LOW (WIN_A0) ;BC=
LD A,(R_77)
LD E,0X3F
AND 0X10 ;
DOS
DOS
JR Z,READ_CPU0_02
DEC E
READ_CPU0_02 LD A,D
AND E
OUT (C),A ;
BASIC DOS
LD DE,CPU1 ;
1
LD HL,(RADRRET_L) ;
ADD HL,DE ;
1
LD A,(HL) ;
SBC HL,DE ;
INC HL ;
LD (RADRRET_L),HL ;
JR READBYTE_02
;
0X4000
READBYTE_03 LD HL,B0_CPU0 ;
0
CALL SELECT_MAPPER
READBYTE_01 LD A,(RADRRET_H) ;
AND 0XC0
LD C,A
RLCA
RLCA
RLCA
LD E,A
LD D,0 ;DE=
ADD HL,DE
LD D,(HL) ;
INC HL
LD A,(HL)
AND HIGH (WIN_A1)
OR HIGH (WIN_P1)
LD B,A
LD C,LOW (WIN_A1) ;BC=
1
LD HL,(RADRRET_L) ;
OUT (C),D ;
LD E,L ;
LD A,H
AND HIGH (WIN_A1)
OR HIGH (CPU1)
LD D,A ;
LD A,(DE) ;
INC HL ;
LD (RADRRET_L),HL ;
READBYTE_02 LD (NEXTBYTERST8),A ;
CALL MAIN_MEM13 ;
1 3
POP AF
POP BC
POP DE
POP HL
RET
LDIR_BYTES EXX
LD BC,INT_ONLY_RET
PUSH BC
LD BC,LDIR__BYTES
PUSH BC
LD BC,WIN_P0
XOR A
JP ADR_SEL_ROM
;
E
1 3
MAIN_MEM13 LD HL,B0_CPU1 ; 0
CALL SELECT_MAPPER
MAINMEM1 LD C,LOW (WIN_A0)
CALL MAINMEM3 ;
1
INC HL ;
3
INC HL
CALL MAINMEM3
SET_7FFD DEC HL
BIT 3,(HL)
RET Z
DEC HL
BIT 7,(HL)
RET Z
LD A,(R_EFF7)
AND 4
LD A,(R_7FFD)
LD D,A
LD E,0
LD HL,PAGES_7FFD_ALL
JR NZ,SET7FFD1
AND 0XE0
RRCA
RRCA
LD E,A
SET7FFD1 LD A,D
AND 7
OR E
LD E,A
LD D,0
ADD HL,DE
LD A,(HL)
OUT (C),A
RET
XXF7_7FFD MACRO B
PLUSIK := B
REPT 8
DB PLUSIK
PLUSIK := PLUSIK-1
ENDM
ENDM
PAGES_7FFD_ALL XXF7_7FFD 0XFF
XXF7_7FFD 0XEF
XXF7_7FFD 0XDF
XXF7_7FFD 0XCF
XXF7_7FFD 0XF7
XXF7_7FFD 0XE7
XXF7_7FFD 0XD7
XXF7_7FFD 0XC7
MAINMEM3 LD E,(HL)
INC HL
LD A,8
AND (HL)
LD A,E
JR Z,MAINMEM4
OR 0XC0
MAINMEM4 LD E,A
LD A,(HL)
AND 0XF7
OR 0X37
LD B,A
INC HL
OUT (C),E
INT_ONLY_RET RET
;
;HL=
;DE= 7,6
;BC=
;A=
XX77
CONVERT_BPORT LD A,(HL)
PUSH AF
INC HL
INC HL
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD BC,8
LD A,C ;
8
ADD HL,BC
LD BC,B0_CPU0
LD IYL,HIGH (WIN_A3)&0XF8
CBPORT03 EX AF,AF'
LD A,(HL)
CP 0XC0
JR NC,CBPORT01
;
, X7F7
LD (BC),A ;
INC BC
LD A,IYL
ADD A,0X40
LD IYL,A
AND 0XF0
RRCA
RRCA
SRL E
RLA
SRL D
RLA
LD (BC),A ;
INC BC
JR CBPORT02
;
, XFF7
CBPORT01 LD A,(HL)
RLCA
RLCA
SRL D
RRA
SRL E
RRA
LD (BC),A ;
INC BC
LD A,IYL
ADD A,0X40
LD IYL,A
LD (BC),A ;
INC BC
CBPORT02 DEC HL
EX AF,AF'
DEC A
JR NZ,CBPORT03
POP HL
LD L,0XBC
LD A,H
AND 0X0F
OR 0XA0
LD (BC),A ;
INC BC
LD A,H
AND 0X80
RRCA
OR L
LD L,A
LD A,H
AND 0X60
RLCA
RLCA
RLCA
OR L
LD (BC),A ;
RET
READ_KEYS
RET
include fat/mounter.a80
include fat/dev_drv.a80
include fat/ngs_sd_drv.a80
include fat/z_sd_drv.a80
include fat/nemo_drv.a80
include fat/read_fat.a80
X_OFFSET EQU 63
Y_OFFSET EQU 2
TEXT_PORTREGS DB 0X17,MAGIC_COLOR
DB 0X16,Y_OFFSET+0X01,X_OFFSET+0,"SP= PC="
DB 0X16,Y_OFFSET+0X02,X_OFFSET+0,"IR="
DB 0X16,Y_OFFSET+0X03,X_OFFSET+0,"AF= AF'="
DB 0X16,Y_OFFSET+0X04,X_OFFSET+0,"BC= BC'="
DB 0X16,Y_OFFSET+0X05,X_OFFSET+0,"DE= DE'="
DB 0X16,Y_OFFSET+0X06,X_OFFSET+0,"HL= HL'="
DB 0X16,Y_OFFSET+0X07,X_OFFSET+0,"IX= IY="
DB 0X16,Y_OFFSET+0X09,X_OFFSET+0," MAP 0 1"
DB 0X16,Y_OFFSET+0X0A,X_OFFSET+0,"CPU3="
DB 0X16,Y_OFFSET+0X0B,X_OFFSET+0,"CPU2="
DB 0X16,Y_OFFSET+0X0C,X_OFFSET+0,"CPU1="
DB 0X16,Y_OFFSET+0X0D,X_OFFSET+0,"CPU0="
DB 0X16,Y_OFFSET+0X0F,X_OFFSET+0,"7FFD="
DB 0X16,Y_OFFSET+0X10,X_OFFSET+0,"EFF7="
DB 0X16,Y_OFFSET+0X11,X_OFFSET+2,"77="
DB 0X16,Y_OFFSET+0X12,X_OFFSET+2,"BF="
DB 0X16,Y_OFFSET+0X14,X_OFFSET+0,"DOS ENABLE= "
DB 0X16,1,0X10,0X17,0X32," EVO Magic Service beta ",0
TXT_VERIFY_FONT DB 0X16,0X18,0,0X17,0X22," VERIFY READING FONT ",0
TXT_VERIFY_OK DB " OK ",0
TXT_VERIFY_ERR DB "ERROR ",0
CMP_FONT LD H,CMOS_BYTE_00
PCALL READCMOS,P_ADDON1
AND TYPE_FONT
LD HL,CP866_FONT
JR Z,CMPFONT1
LD HL,ATM_FONT
CMPFONT1 LD DE,OFFSET_BUFSYM
PUSH DE
PCALL UNPACK,P_ADDON1
POP DE
INC D
LD BC,0X700
LD HL,OFFSET_FNTSAVE+0X100
CMPFONT2 LD A,(DE)
INC DE
CP (HL)
SCF
RET NZ
CPI
JP PE,CMPFONT2
XOR A
RET
CMP_SCRMODE LD HL,FLAGS
RES 7,(HL)
AND 7
CP 3
RET Z
SET 7,(HL)
RET
SD_CARD_LOST PEC_ON SHADOW_BF
CALL MAIN_MEM13
LD IX,SDCARD_LOST
PCALL IWINW,P_ADDONS
JR $
DUPL 0X3BFF-$,0XFF
DW 0X0038
DUPL 0X3FF8-$,0XFF
DB "RST_08"
DW DATA_VERS
DEPHASE
include addons.a80
include addon1.a80
include addon2.a80