Rev 834 |
Rev 961 |
Go to most recent revision |
Blame |
Compare with Previous |
Last modification |
View Log
| Download
| RSS feed
| ?url?
;LAST UPDATE: 21.08.2019 savelij
PAGE
TITLE "rst8service.a80 ROM_RST83"
include ../../macros.a80
include ../../define.a80
include ../../global_vars.a80
include ../../ports_ide.a80
include ../../ports_ngs.a80
include ../../sdcomand.a80
include ../../fat_vars.a80
include ../../bootsecfat.a80
include ../../evodos_vars.a80
include ../../tmpkeys.a80
include ../../nums_devices.a80
include ../../version.a80
include fat/sl811_equ.a80
include struct_mount.a80
USB_ENABLE EQU 0
CPU5 EQU CPU1
CPU6 EQU CPU2
WIN_A5 EQU WIN_A1
WIN_A6 EQU WIN_A2
WIN_P5 EQU WIN_P1
WIN_P6 EQU WIN_P2
_CMP_FONT EQU 0
TXTMODE_DEBUG EQU 0
H_FILES EQU 60
V_FILES EQU 25
MAGIC_COLOR EQU BLUE<<3+WHITE+BR_INK
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 CALL2RAMPAGE ;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
DUPL 0X003E-$,0XFF
EI
RET
;[ 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
NOP
CONT_MAGIC NOP
DI
LD HL,N_77
CALL CONVERT_BPORT
CALL STORE_AY ;
AY
LD A,(CPU6+DEBUG_ONOFF)
BIT B_TRACE_DBG,A
JP NZ,DEBUGGER ;¥á«¨ ªâ¨¢¥ ®â« ¤ç¨ª, â® ¯¥à¥å®¤ ¥£® § ¯ãáª
LD A,(N_BF)
AND M_BREAK_BF
JP Z,CONT_MAGIC2
LD HL,(NADRRET_L)
LD A,H
CP 5
JP NZ,CONT_MAGIC2
LD A,L
CP 0X6C
JP NC,CONT_MAGIC2
CP 0X67
JP C,CONT_MAGIC2
CALL MAINPAGE3_TAP
LD HL,(NREG_IXL)
LD (RREG_IXL),HL
LD HL,(NREG_E)
LD (RREG_E),HL
LD HL,(NREG_F)
LD (RREG_F),HL
ROMCALL EMULOADTAP,ROM_RST82
LD HL,(RREG_IXL)
LD (NREG_IXL),HL
LD HL,(RREG_E)
LD (NREG_E),HL
LD HL,0X56B
LD (NADRRET_L),HL
LD HL,(RREG_F)
LD (NREG_F),HL
JP CONTMAGIC3
DUPL 0X00FF-$,0XFF
DW 0X0038
;[
RST 8]
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 MATH ;4C
DW VERSION_ ;4D
DW RESERVED ;4E
DW RESERVED ;4F
DW COM_DEV ;50
DW COM_FAT ;51
DW SORT_FINDFILES ;52
DW MOUNTER ;53
DW INST_FATBOOT_ ;54
DW CMOS_RW_ ;55
DW SETUP_PAL_ ;56
DW SETUP_FONT_ ;57
ECODE_TABL
;===============
;[
MAGIC
]
CONT_MAGIC2 LD BC,CONF_128
; LD A,(N_7FFD)
READ_7FFD
AND ZX_SCREEN!0XFF
OUT (C),A ;
0
LD A,(N_77)
CALL CMP_SCRMODE ;
LD HL,EI_RET
LD (ADR_INT),HL ;
ROMCALL STORE_TXTMODE,ROM_RST82 ;
ROMCALL SCAN_FONT,ROM_RST80 ;
ROMCALL RD_SET_PAL,ROM_RST82 ;
MAGIC
;==========
IF _CMP_FONT=1
CALL CMP_FONT ;
,
RLA
LD (CMP_FONT_FLAG),A
ENDIF
;==========
ROMCALL MAGIC_FONT,ROM_RST82 ;
MAGIC
CONT_MAGIC1 LD A,(CPU6+DEBUG_ONOFF)
BIT B_DBG_ACTIV,A
JP NZ,DEBUGGER ;¥á«¨ ªâ¨¢¥ ®â« ¤ç¨ª, â® ¯¥à¥å®¤ ¥£® § ¯ãáª
JP RESTART_NMI
VERSION_ LD HL,VERSBIN >> 16
LD (RREG_C),HL
LD HL,VERSBIN & 0XFFFF
LD (RREG_E),HL
RET
SETUP_FONT_ ROMCALL SETUP_FONT,ROM_RST81
RET
SET_MAP_ ROMCALL 0X40,ROM_ERS
RET
SETUP_PAL_ ROMCALL SETUP_PAL,ROM_RST82
RESERVED RET
AY_PRN_INIT_ ROMCALL AY_PRN_INIT,ROM_RST82
RET
AY_PRN_A__ ROMCALL AY_PRN_A_,ROM_RST82
RET
AY_PRN_TOKEN_ ROMCALL AY_PRN_TOKEN,ROM_RST82
RET
AY_PRN_SCR_ ROMCALL AY_PRN_SCR,ROM_RST82
RET
TAPE_INIT_ ROMCALL TAPE_INIT,ROM_RST82
RET
TAPE_EMUL_ ROMCALL TAPE_EMUL,ROM_RST82
RET
WINW_ ROMCALL WINW,ROM_RST82
RET
PRINT_MESSAGE_ ROMCALL PRINT_MESSAGE,ROM_RST82
RET
PRINT_A_ ROMCALL PRINT_A,ROM_RST82
RET
SCRUP_ LD A,(RREG_A)
LD (SCROLL_MODE),A
ROMCALL SCRUP,ROM_RST82
RET
SCRDN_ LD A,(RREG_A)
LD (SCROLL_MODE),A
ROMCALL SCRDN,ROM_RST82
RET
SET_MODE_ ROMCALL SET_MODE,ROM_RST82
RET
INST_FATBOOT_ ROMCALL UNP_MICRO_BOOT,ROM_RST80
RET
CMOS_RW_ ROMCALL CMOS_RW,ROM_RST82
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)
READ_7FFD
AND 0X10
RET NZ
LD A,-8
ADD A,L
LD L,A
RET
;[RESTART_NMI]
RESTART_NMI ROMCALL CLS_TXTMODE8,ROM_RST82 ;
EVOPORT WIN_A5,ROM_RST83 ;
ROM 2
LD HL,CPU5+TEXT_PORTREGS
ROMCALL PRTT_MSG,ROM_RST82 ;
ROMCALL PRT_PORTREGS,ROM_RST82 ;
;==========
IF _CMP_FONT=1
LD HL,CPU5+TXT_VERIFY_FONT
ROMCALL PRTT_MSG,ROM_RST82 ;
LD A,(CMP_FONT_FLAG)
RRA
LD HL,CPU5+TXT_VERIFY_OK ;
JR NC,CONTMAGIC3_
LD HL,CPU5+TXT_VERIFY_ERR ;
CONTMAGIC3_ ROMCALL PRTT_MSG,ROM_RST82 ;
ENDIF
;==========
EVOPORT WIN_A5,ROM_RST81 ;
1
LD IX,MAIN_MENU
ROMCALL SETUP4SEL,ROM_RST82
ROMCALL ITWINW,ROM_RST82 ;
ROMCALL ITSELECTOR,ROM_RST82
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 ;
ROMCALL RESTORE_TXTMODE,ROM_RST82 ;
ROMCALL RESTORE_FONT,ROM_RST82 ;
ROMCALL RESTORE_PAL,ROM_RST82 ;
CONTMAGIC3 CALL RESTORE_AY ;
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,B1_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_P5
XOR A
OUT (C),A ;
1
LD HL,CPU3
ADD HL,SP
LD SP,HL ;
1
LD HL,B1_CPU0-CPU5 ; 0
CALL SELECT_MAPPER
RESETUPWINS1 EXX
LD BC,CPU6 ;
/ 0X8000
LD A,H ;
EXX
CP 0X40
JR C,RESETUPWINS2 ; 0,1
INC HL
INC HL
EXX
LD BC,CPU5 ;
/ 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_A6) ;
2
CALL RESETUPWINS4
LD DE,0XFFF8
ADD HL,DE ;
JR RESETUPWINS5
RESETUPWINS2 LD B,HIGH (WIN_A6) ;
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,B1_CPU0 ;
0
CALL SELECT_MAPPER
READ_CPU0_01 LD D,(HL) ;
INC HL
LD A,(HL) ;
AND HIGH (WIN_A5)
OR HIGH (WIN_P5) ;
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,CPU5 ;
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,B1_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_A5)
OR HIGH (WIN_P5)
LD B,A
LD C,LOW (WIN_A5) ;BC=
1
LD HL,(RADRRET_L) ;
OUT (C),D ;
LD E,L ;
LD A,H
AND HIGH (WIN_A5)
OR HIGH (CPU5)
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,B1_CPU1 ; 0
CALL SELECT_MAPPER
MAINMEM1 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
READ_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
MAINPAGE3_TAP LD HL,B1_CPU3
CALL SELECT_MAPPER
CALL MAINMEM3
JR SET_7FFD
MAINMEM3 LD C,LOW (WIN_A0)
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)
OR 0X3F
LD B,A
LD A,0X40
OUT (C),A
RES 3,B
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
SRL E
SRL D
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
include fat/usb_drv.a80
;[STORE_AY]
STORE_AY LD HL,AY_REGS
LD DE,0XFFC0
LD C,0XFD
LD A,0X0D
STORE_AY1 LD B,D
OUT (C),A
LD B,E
INI
DEC A
JP P,STORE_AY1
DEC E
LD H,0
LD A,0X0D
STORE_AY2 LD B,D
OUT (C),A
LD B,E
OUT (C),H
DEC A
JP P,STORE_AY2
RET
;[RESTORE_AY]
RESTORE_AY LD HL,AY_REGS
LD DE,0XFFC0
LD C,0XFD
LD A,0X0D
RESTORE_AY1 LD B,D
OUT (C),A
LD B,E
OUTI
DEC A
JP P,RESTORE_AY1
RET
SYMS4SORT DB ".!#$%&'()-0123456789@ABCDEFGHIJKLMNOPQRSTUVWXYZ^_`{}~",0X7F
DB "
ð",0
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+0X08,X_OFFSET+0," INT IM"
DB 0X16,Y_OFFSET+0X0A,X_OFFSET+0," MAP 0 1"
DB 0X16,Y_OFFSET+0X0B,X_OFFSET+0,"CPU3="
DB 0X16,Y_OFFSET+0X0C,X_OFFSET+0,"CPU2="
DB 0X16,Y_OFFSET+0X0D,X_OFFSET+0,"CPU1="
DB 0X16,Y_OFFSET+0X0E,X_OFFSET+0,"CPU0="
DB 0X16,Y_OFFSET+0X10,X_OFFSET+0,"7FFD="
DB 0X16,Y_OFFSET+0X11,X_OFFSET+0,"EFF7="
DB 0X16,Y_OFFSET+0X12,X_OFFSET+2,"77="
DB 0X16,Y_OFFSET+0X13,X_OFFSET+2,"BF="
DB 0X16,Y_OFFSET+0X15,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
;[
]
IF _CMP_FONT=1
CMP_FONT LD H,CMOS_BYTE_00
ROMCALL READCMOS,ROM_RST82
AND M_TYPE_FONT
LD HL,CP866_FONT
JR NZ,CMPFONT1
LD HL,ATM_FONT
CMPFONT1 LD DE,CPU1+OFFSET_BUFSYM
PUSH DE
ROMCALL UNPACK,ROM_RST80
POP DE
INC D
LD BC,0X700
LD HL,CPU1+OFFSET_FNTSAVE+0X100
CMPFONT2 LD A,(DE)
INC DE
CP (HL)
SCF
RET NZ
CPI
JP PE,CMPFONT2
XOR A
RET
ENDIF
;[CMP_SCRMODE]
CMP_SCRMODE LD HL,FLAGS
RES B_VIDEO_MODE,(HL)
AND 7
CP 3
RET Z
SET B_VIDEO_MODE,(HL)
RET
;[SD_CARD_LOST]
SD_CARD_LOST LD HL,FLAGS_DRV
LD A,B_NEW_SD
OR (HL)
LD (HL),A
PEC_ON M_SHADOW_BF
CALL MAIN_MEM13
LD IX,SDCARD_LOST
ROMCALL IWINW,ROM_RST82
JR $
include math.a80
include sortfiles.a80
FREE_MAIN EQU 0X3FF6-$
DUPL FREE_MAIN,0XFF
DW FREE_MAIN ;
DB "RST_08"
DW DATA_VERS
DEPHASE
include addons.a80
include addon1.a80
include addon2.a80
include mainmenu.a80