+-RST_CONF.INIT_ACEX ; New function "SWAP_RAM_DRIVES" for changing RAM-DRV set ZX<->Sp2000
This commit is contained in:
Anatoliy Belyanskiy
parent
730aae8a89
commit
fe3456f584
@ -1 +1 @@
|
|||||||
Subproject commit 8c5550f810d173790e4665d610328b9247b00f02
|
Subproject commit 809ea1f0b204f2d56555497c1c808806833d6315
|
||||||
@ -132,11 +132,11 @@ TAB_FNS:
|
|||||||
DB low EMM.GetMemPageNext ; #95 ¯®«ãç¨âì á«¥¤ãîéãî áâà ¨æã
|
DB low EMM.GetMemPageNext ; #95 ¯®«ãç¨âì á«¥¤ãîéãî áâà ¨æã
|
||||||
DB low EMM.GetBanksPorts ; #96 ¯®«ãç¨âì ¤à¥á ¯®à⮢
|
DB low EMM.GetBanksPorts ; #96 ¯®«ãç¨âì ¤à¥á ¯®à⮢
|
||||||
DB low EMM.CheckColdInit ; #97 ¯à®¢¥àª 宫®¤ë© áâ àâ ¨ ¨¨æ¨ «¨§ 樨 ¥á«¨ ® ;????? 㦠«¨ ª ª API?
|
DB low EMM.CheckColdInit ; #97 ¯à®¢¥àª 宫®¤ë© áâ àâ ¨ ¨¨æ¨ «¨§ 樨 ¥á«¨ ® ;????? 㦠«¨ ª ª API?
|
||||||
DB low RAMD_CALC_PAGE ; #98 Fn 98h ;?????
|
DB low RAMD_CALC_PAGE ; #98 ‚ëç¨á«¥¨¥ áâà ¨æë ¨ ¤à¥á ¢ RAM-Disk ¯® ¡á®«î⮬㠮¬¥àã ᥪâ®à
|
||||||
DB low SET_DISK_TYPE ; #99 ;?????
|
DB low SET_DISK_TYPE ; #99 ;?????
|
||||||
DB low DISK_REDIR ; #9A ;?????
|
DB low DISK_REDIR ; #9A ;?????
|
||||||
DB low GET_RAMD_NUM ; #9B ¯®«ãç¨âì ®¬¥à ram disk ¯® ¥£® block id
|
DB low GET_RAMD_NUM ; #9B ¯®«ãç¨âì ®¬¥à ram disk ¯® ¥£® block id
|
||||||
DB low FN_RESERVED ; #9C
|
DB low SWAP_RAM_DRIVES ; #9C ᬥ¨âì ¡®à à ¬¤¨áª®¢ ZX <-> Sp2000
|
||||||
DB low EMM.DivMemBlocks ; #9D à §¤¥«¥¨ï ¡«®ª ¤¢ .
|
DB low EMM.DivMemBlocks ; #9D à §¤¥«¥¨ï ¡«®ª ¤¢ .
|
||||||
DB low EMM.MergeMemBlocks ; #9E ᫨逸 ¤¢ãå ¡«®ª®¢
|
DB low EMM.MergeMemBlocks ; #9E ᫨逸 ¤¢ãå ¡«®ª®¢
|
||||||
DB low EMM.FullInit ; #9F ¨¨æ¨ «¨§ æ¨ï ¢á¥© ¯ ¬ïâ¨, á¨á⥬ëå ¯¥à¥¬¥ëå
|
DB low EMM.FullInit ; #9F ¨¨æ¨ «¨§ æ¨ï ¢á¥© ¯ ¬ïâ¨, á¨á⥬ëå ¯¥à¥¬¥ëå
|
||||||
@ -327,8 +327,8 @@ TAB_FNS:
|
|||||||
DB high RAMD_CALC_PAGE
|
DB high RAMD_CALC_PAGE
|
||||||
DB high SET_DISK_TYPE
|
DB high SET_DISK_TYPE
|
||||||
DB high DISK_REDIR
|
DB high DISK_REDIR
|
||||||
DB high FN_RESERVED
|
DB high GET_RAMD_NUM
|
||||||
DB high FN_RESERVED
|
DB high SWAP_RAM_DRIVES
|
||||||
DB high EMM.DivMemBlocks
|
DB high EMM.DivMemBlocks
|
||||||
DB high EMM.MergeMemBlocks
|
DB high EMM.MergeMemBlocks
|
||||||
DB high EMM.FullInit
|
DB high EMM.FullInit
|
||||||
|
|||||||
@ -64,11 +64,8 @@
|
|||||||
;=============================================================
|
;=============================================================
|
||||||
MACRO TEST_40
|
MACRO TEST_40
|
||||||
;[x] ¢ª«î稫 31/10/23, ç¨áâ® •í««®ããã㨨¨
|
;[x] ¢ª«î稫 31/10/23, ç¨áâ® •í««®ããã㨨¨
|
||||||
EX AF,AF'
|
;
|
||||||
JR C,.LLL
|
|
||||||
INC D ; ०¨¬ 40
|
|
||||||
.LLL:
|
|
||||||
EX AF,AF'
|
|
||||||
;
|
;
|
||||||
ENDM
|
ENDM
|
||||||
|
|
||||||
|
|||||||
@ -33,50 +33,58 @@ EMM.GetMemSize:
|
|||||||
;----------------------------------------------------------------------; !FIXIT SAFE_RGADR
|
;----------------------------------------------------------------------; !FIXIT SAFE_RGADR
|
||||||
; ˆ¨æ¨ «¨§ æ¨ï à á¯à¥¤¥«¥¨ï ¯ ¬ïâ¨.
|
; ˆ¨æ¨ «¨§ æ¨ï à á¯à¥¤¥«¥¨ï ¯ ¬ïâ¨.
|
||||||
EMM.InitMem:
|
EMM.InitMem:
|
||||||
PUSH BC
|
PUSH BC
|
||||||
PUSH HL
|
PUSH HL
|
||||||
PUSH DE
|
PUSH DE
|
||||||
|
|
||||||
IN A,(SLOT1)
|
IN A,(SLOT1)
|
||||||
LD C,A
|
LD C,A
|
||||||
LD A,SYS_PAGE
|
LD A,SYS_PAGE
|
||||||
OUT (SLOT1),A
|
OUT (SLOT1),A
|
||||||
LD HL,SYS_PAGE.RAMD_FAT - #4000 - #4000 ; €¤à¥á FAT Ž‡“.
|
LD HL,SYS_PAGE.RAMD_FAT - #4000 - #4000 ; €¤à¥á FAT Ž‡“.
|
||||||
; ®¡ã«ï¥¬ â ¡«¨æã
|
; ®¡ã«ï¥¬ â ¡«¨æã
|
||||||
|
XOR A
|
||||||
.loopFree:
|
.loopFree:
|
||||||
LD (HL),0
|
LD (HL),A
|
||||||
INC L
|
INC L
|
||||||
JR NZ,.loopFree
|
JR NZ,.loopFree
|
||||||
; १¥à¢¨à㥬 ᯥæ.áâà ¨æë ¨ áâà ¨æë ZX
|
; १¥à¢¨à㥬 ᯥæ.áâà ¨æë ¨ áâà ¨æë ZX
|
||||||
LD B,RESERVED_PAGES.Blocks
|
LD B,RESERVED_PAGES.Blocks
|
||||||
LD DE,RESERVED_PAGES ; â ¡«¨æ § ïâëå á¨á⥬ëå áâà ¨æ
|
LD DE,RESERVED_PAGES ; â ¡«¨æ § ïâëå á¨á⥬ëå áâà ¨æ
|
||||||
.loop: LD A,(DE)
|
.loop: LD A,(DE)
|
||||||
CP #FF
|
CP #FF
|
||||||
JR Z,.exitLoop
|
JR Z,.exitLoop
|
||||||
.loopBlk:
|
.loopBlk:
|
||||||
INC DE
|
INC DE
|
||||||
LD L,A
|
LD L,A
|
||||||
LD A,(DE)
|
LD A,(DE)
|
||||||
LD (HL),A
|
LD (HL),A
|
||||||
CP #FF
|
CP #FF
|
||||||
JR NZ,.loopBlk
|
JR NZ,.loopBlk
|
||||||
.exitLoop:
|
.exitLoop:
|
||||||
INC DE
|
INC DE
|
||||||
DJNZ .loop
|
DJNZ .loop
|
||||||
LD L,A
|
LD L,A
|
||||||
LD (HL),A
|
LD (HL),A
|
||||||
; ˆ¨æ¨ «¨§ æ¨ï ª«î祩 RAM-Disks
|
; ˆ¨æ¨ «¨§ æ¨ï ª«î祩 RAM-Disks
|
||||||
LD HL,SYS_PAGE.RAMD_KEYS - #4000 - #4000
|
XOR A
|
||||||
LD B,SYS_PAGE.RAMD_KEYS.NUM
|
LD HL,SYS_PAGE.RAMD_KEYS - #4000 - #4000
|
||||||
.loop2: LD (HL),0
|
LD B,SYS_PAGE.RAMD_KEYS.NUM
|
||||||
INC L
|
.loop2: LD (HL),A
|
||||||
DJNZ .loop2
|
INC L
|
||||||
LD A,C
|
DJNZ .loop2
|
||||||
OUT (SLOT1),A
|
; [x] 4/11/23
|
||||||
|
LD HL,SYS_PAGE.Sp_RAMD_KEYS - #4000 - #4000
|
||||||
POP DE
|
LD B,SYS_PAGE.Sp_RAMD_KEYS.NUM
|
||||||
POP HL
|
.loop3: LD (HL),A
|
||||||
POP BC
|
INC L
|
||||||
|
DJNZ .loop3
|
||||||
|
;
|
||||||
|
LD A,C
|
||||||
|
OUT (SLOT1),A
|
||||||
|
POP DE
|
||||||
|
POP HL
|
||||||
|
POP BC
|
||||||
RET
|
RET
|
||||||
;---------------------------------------------------------------------[]
|
;---------------------------------------------------------------------[]
|
||||||
RESERVED_PAGES:
|
RESERVED_PAGES:
|
||||||
@ -345,38 +353,6 @@ EMM.GetMemPageNext:
|
|||||||
; ‚室: A - ¡«®ª, HL - ¤à¥á ¡ãä¥à - 256 ¡ ©â.
|
; ‚室: A - ¡«®ª, HL - ¤à¥á ¡ãä¥à - 256 ¡ ©â.
|
||||||
; ‚ë室: HL - ¤à¥á ¡«®ª , B - ¤«¨ ¡«®ª ¢ áâà ¨æ å Ž‡“
|
; ‚ë室: HL - ¤à¥á ¡«®ª , B - ¤«¨ ¡«®ª ¢ áâà ¨æ å Ž‡“
|
||||||
;EMM_FN5M:
|
;EMM_FN5M:
|
||||||
; EMM.GetMemBlkPages:
|
|
||||||
; PUSH DE
|
|
||||||
; PUSH HL
|
|
||||||
; EX DE,HL
|
|
||||||
; LD B,0
|
|
||||||
; LD L,A
|
|
||||||
|
|
||||||
; .loop: LD A,L
|
|
||||||
; LD (DE),A
|
|
||||||
; INC DE
|
|
||||||
; AND A
|
|
||||||
; JR Z,.error
|
|
||||||
; CP #FF
|
|
||||||
; JR Z,.end
|
|
||||||
; ;
|
|
||||||
; IN A,(SLOT1)
|
|
||||||
; LD C,A
|
|
||||||
; LD A,SYS_PAGE
|
|
||||||
; OUT (SLOT1),A
|
|
||||||
; LD H,high (SYS_PAGE.RAMD_FAT - #4000 - #4000)
|
|
||||||
; LD L,(HL)
|
|
||||||
; LD A,C
|
|
||||||
; OUT (SLOT1),A
|
|
||||||
; ;
|
|
||||||
; INC B
|
|
||||||
; JR NZ,.loop
|
|
||||||
|
|
||||||
; .error: SCF
|
|
||||||
; .end: POP HL
|
|
||||||
; POP DE
|
|
||||||
; RET
|
|
||||||
|
|
||||||
EMM.GetMemBlkPages:
|
EMM.GetMemBlkPages:
|
||||||
PUSH DE
|
PUSH DE
|
||||||
PUSH HL
|
PUSH HL
|
||||||
@ -384,11 +360,6 @@ EMM.GetMemBlkPages:
|
|||||||
LD B,0
|
LD B,0
|
||||||
LD L,A
|
LD L,A
|
||||||
|
|
||||||
IN A,(SLOT1)
|
|
||||||
LD C,A
|
|
||||||
LD A,SYS_PAGE
|
|
||||||
OUT (SLOT1),A
|
|
||||||
|
|
||||||
.loop: LD A,L
|
.loop: LD A,L
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
@ -397,17 +368,55 @@ EMM.GetMemBlkPages:
|
|||||||
CP #FF
|
CP #FF
|
||||||
JR Z,.end
|
JR Z,.end
|
||||||
;
|
;
|
||||||
|
IN A,(SLOT1)
|
||||||
|
LD C,A
|
||||||
|
LD A,SYS_PAGE
|
||||||
|
OUT (SLOT1),A
|
||||||
LD H,high (SYS_PAGE.RAMD_FAT - #4000 - #4000)
|
LD H,high (SYS_PAGE.RAMD_FAT - #4000 - #4000)
|
||||||
LD L,(HL)
|
LD L,(HL)
|
||||||
|
LD A,C
|
||||||
|
OUT (SLOT1),A
|
||||||
|
;
|
||||||
INC B
|
INC B
|
||||||
JR NZ,.loop
|
JR NZ,.loop
|
||||||
|
|
||||||
.error: SCF
|
.error: SCF
|
||||||
.end: LD A,C
|
.end: POP HL
|
||||||
OUT (SLOT1),A
|
|
||||||
POP HL
|
|
||||||
POP DE
|
POP DE
|
||||||
RET
|
RET
|
||||||
|
|
||||||
|
; RAMDRV.EXE ¢ë§ë¢ ¥â íâã äãªæ¨î á ¤à¥á®¬ ¢ SLOT1, ¯®í⮬㠫ãçè¥ â ª ¥ ®¯â¨¬¨§¨à®¢ âì
|
||||||
|
; EMM.GetMemBlkPages:
|
||||||
|
; PUSH DE
|
||||||
|
; PUSH HL
|
||||||
|
; EX DE,HL
|
||||||
|
; LD B,0
|
||||||
|
; LD L,A
|
||||||
|
|
||||||
|
; IN A,(SLOT1)
|
||||||
|
; LD C,A
|
||||||
|
; LD A,SYS_PAGE
|
||||||
|
; OUT (SLOT1),A
|
||||||
|
|
||||||
|
; .loop: LD A,L
|
||||||
|
; LD (DE),A
|
||||||
|
; INC DE
|
||||||
|
; AND A
|
||||||
|
; JR Z,.error
|
||||||
|
; CP #FF
|
||||||
|
; JR Z,.end
|
||||||
|
; ;
|
||||||
|
; LD H,high (SYS_PAGE.RAMD_FAT - #4000 - #4000)
|
||||||
|
; LD L,(HL)
|
||||||
|
; INC B
|
||||||
|
; JR NZ,.loop
|
||||||
|
|
||||||
|
; .error: SCF
|
||||||
|
; .end: LD A,C
|
||||||
|
; OUT (SLOT1),A
|
||||||
|
; POP HL
|
||||||
|
; POP DE
|
||||||
|
; RET
|
||||||
;----------------------------------------------------------------------;
|
;----------------------------------------------------------------------;
|
||||||
;
|
;
|
||||||
|
|
||||||
@ -843,6 +852,52 @@ GET_RAMD_NUM:
|
|||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
|
;
|
||||||
|
;----------------------------------------------------------------------;
|
||||||
|
; [x] 4/11/23
|
||||||
|
; ‚室:
|
||||||
|
; B = 0: swap to Sp
|
||||||
|
; B = #FF: swap to ZX
|
||||||
|
; B = #FE: no swap, only get info
|
||||||
|
; ‚ë室:
|
||||||
|
; A - current RAM Drives set
|
||||||
|
SWAP_RAM_DRIVES:
|
||||||
|
IN A,(SLOT3)
|
||||||
|
PUSH AF
|
||||||
|
LD A,SYS_PAGE
|
||||||
|
OUT (SLOT3),A
|
||||||
|
;
|
||||||
|
LD A,(SYS_PAGE.CURRENT_RAM_DRV)
|
||||||
|
CP B
|
||||||
|
JR Z,.exit ; 㦥 ãáâ ®¢«¥ § ¯à 訢 ¥¬ë© ¡®à
|
||||||
|
;
|
||||||
|
LD A,#FE
|
||||||
|
CP B
|
||||||
|
JR Z,.exit ; ¨ç¥£® ¥ ¬¥ïâì, ¢ë¤ âì ⥪ã騩 ¡®à
|
||||||
|
;
|
||||||
|
.swap: LD HL,SYS_PAGE.RAMD_KEYS
|
||||||
|
LD DE,SYS_PAGE.Sp_RAMD_KEYS
|
||||||
|
LD B,SYS_PAGE.RAMD_KEYS.NUM
|
||||||
|
.loop: LD A,(DE)
|
||||||
|
LD C,A
|
||||||
|
LD A,(HL)
|
||||||
|
LD (DE),A
|
||||||
|
LD A,C
|
||||||
|
LD (HL),A
|
||||||
|
INC HL
|
||||||
|
INC DE
|
||||||
|
DJNZ .loop
|
||||||
|
;
|
||||||
|
LD A,(SYS_PAGE.CURRENT_RAM_DRV)
|
||||||
|
XOR #FF
|
||||||
|
LD (SYS_PAGE.CURRENT_RAM_DRV),A
|
||||||
|
;
|
||||||
|
.exit: POP AF
|
||||||
|
OUT (SLOT3),A
|
||||||
|
RET
|
||||||
|
;----------------------------------------------------------------------;
|
||||||
|
;
|
||||||
|
|
||||||
|
|
||||||
;
|
;
|
||||||
;----------------------------------------------------------------------;
|
;----------------------------------------------------------------------;
|
||||||
|
|||||||
@ -166,11 +166,16 @@ INIT_SYS_ALL:
|
|||||||
|
|
||||||
LD HL,SYS_PAGE.RAMD_KEYS-#4000
|
LD HL,SYS_PAGE.RAMD_KEYS-#4000
|
||||||
LD DE,SYS_PAGE.RAMD_KEYS+1-#4000
|
LD DE,SYS_PAGE.RAMD_KEYS+1-#4000
|
||||||
|
|
||||||
LD BC,SYS_PAGE.RAMD_KEYS.NUM-1
|
LD BC,SYS_PAGE.RAMD_KEYS.NUM-1
|
||||||
LD (HL),0
|
LD (HL),0
|
||||||
LDIR
|
LDIR
|
||||||
|
; [x] 4/11/23
|
||||||
|
LD HL,SYS_PAGE.Sp_RAMD_KEYS-#4000
|
||||||
|
LD DE,SYS_PAGE.Sp_RAMD_KEYS+1-#4000
|
||||||
|
LD BC,SYS_PAGE.Sp_RAMD_KEYS.NUM-1
|
||||||
|
LD (HL),0
|
||||||
|
LDIR
|
||||||
|
;
|
||||||
LD DE,ZG_ADDRESS ; ¤à¥á § ª®£¥¥à â®à
|
LD DE,ZG_ADDRESS ; ¤à¥á § ª®£¥¥à â®à
|
||||||
LD (SYS_PAGE.WIN_ZG-#4000),DE
|
LD (SYS_PAGE.WIN_ZG-#4000),DE
|
||||||
;
|
;
|
||||||
|
|||||||
@ -72,9 +72,9 @@
|
|||||||
;FDD EQU #03
|
;FDD EQU #03
|
||||||
|
|
||||||
|
|
||||||
TEMP EQU #7E00 ; !HARDCODE
|
TEMP EQU #7E00 ; !HARDCODE
|
||||||
MEMMAP2 EQU TEMP ; ¤®«¦® ¡ëâì ¢ë஢¥® ¯® ALIGN 256
|
MEMMAP2 EQU TEMP ; ¤®«¦® ¡ëâì ¢ë஢¥® ¯® ALIGN 256
|
||||||
TPOINTD EQU TEMP-32
|
TPOINTD EQU TEMP - SYS_PAGE.RAMD_KEYS.NUM - SYS_PAGE.Sp_RAMD_KEYS.NUM ; [x] 4/11/23
|
||||||
|
|
||||||
|
|
||||||
;=======================================
|
;=======================================
|
||||||
@ -161,7 +161,7 @@ GETTIME:
|
|||||||
; .correct_century:
|
; .correct_century:
|
||||||
; LD (HL),A
|
; LD (HL),A
|
||||||
; LD D,#32 ;CENTURY
|
; LD D,#32 ;CENTURY
|
||||||
; LD C,#F7 ; !HARDCODE
|
; LD C,#F7 ; !HARDCODE
|
||||||
; RST_to_BIOS_18
|
; RST_to_BIOS_18
|
||||||
|
|
||||||
POP HL
|
POP HL
|
||||||
@ -237,35 +237,42 @@ CMSERR:
|
|||||||
|
|
||||||
; LD D,13
|
; LD D,13
|
||||||
; LD A,#80 ; !FIXIT CMOS
|
; LD A,#80 ; !FIXIT CMOS
|
||||||
; LD C,#F7 ; !HARDCODE
|
; LD C,#F7 ; !HARDCODE
|
||||||
; RST_to_BIOS
|
; RST_to_BIOS
|
||||||
RET
|
RET
|
||||||
|
|
||||||
CLEARM:
|
CLEARM: IN A,(SLOT3)
|
||||||
IN A,(SLOT3)
|
|
||||||
PUSH AF
|
PUSH AF
|
||||||
LD A,SYS_PAGE
|
LD A,SYS_PAGE
|
||||||
OUT (SLOT3),A
|
OUT (SLOT3),A
|
||||||
|
; save RAM disks on reboot when memory is cleared
|
||||||
LD HL,SYS_PAGE.RAMD_KEYS
|
LD HL,SYS_PAGE.RAMD_KEYS
|
||||||
LD DE,TPOINTD
|
LD DE,TPOINTD
|
||||||
LD BC,SYS_PAGE.RAMD_KEYS.NUM
|
LD BC,SYS_PAGE.RAMD_KEYS.NUM
|
||||||
LDIR
|
LDIR
|
||||||
|
; [x] 4/11/23
|
||||||
|
LD HL,SYS_PAGE.Sp_RAMD_KEYS
|
||||||
|
LD DE,TPOINTD + SYS_PAGE.RAMD_KEYS.NUM
|
||||||
|
LD BC,SYS_PAGE.Sp_RAMD_KEYS.NUM
|
||||||
|
LDIR
|
||||||
|
;
|
||||||
|
; ®ç¨é ¥¬ RAM Table
|
||||||
LD HL,MEMMAP2
|
LD HL,MEMMAP2
|
||||||
LD DE,MEMMAP2+1
|
LD DE,MEMMAP2+1
|
||||||
LD BC,255
|
LD BC,255
|
||||||
LD (HL),0
|
LD (HL),0
|
||||||
LDIR
|
LDIR
|
||||||
LD IX,SYS_PAGE.RAMD_KEYS ;RAM DISKS
|
; ¢®ááâ ¢«¨¢ ¥¬ RAM ¤¨áª¨
|
||||||
LD H,#C2
|
LD IX,SYS_PAGE.RAMD_KEYS ;RAM DISKS
|
||||||
|
LD H,high SYS_PAGE.RAMD_FAT
|
||||||
LD D,high MEMMAP2
|
LD D,high MEMMAP2
|
||||||
LD BC,#10FF
|
LD BC,SYS_PAGE.RAMD_KEYS.NUM*256 + #FF
|
||||||
MEMLOOP:
|
CALL .MEMLOOP
|
||||||
LD A,(IX)
|
; [x] 4/11/23
|
||||||
INC IX
|
LD IX,SYS_PAGE.Sp_RAMD_KEYS
|
||||||
OR A
|
LD B,SYS_PAGE.Sp_RAMD_KEYS.NUM
|
||||||
LD L,A
|
CALL .MEMLOOP
|
||||||
CALL NZ,RCHAIN
|
;
|
||||||
DJNZ MEMLOOP
|
|
||||||
CALL EMM.InitMem
|
CALL EMM.InitMem
|
||||||
LD BC,#400E ;!HARDCODE
|
LD BC,#400E ;!HARDCODE
|
||||||
CALL G_VALUE
|
CALL G_VALUE
|
||||||
@ -273,6 +280,18 @@ MEMLOOP:
|
|||||||
CALL NZ,CCHAIN
|
CALL NZ,CCHAIN
|
||||||
POP AF
|
POP AF
|
||||||
OUT (SLOT3),A
|
OUT (SLOT3),A
|
||||||
|
;!TEST; [ ] 04/11/2023 Žâ¤¥«ìë¥ à ¬¤¨áª¨ ¤«ï ०¨¬ ᯥªâà㬠¨ DSS. BLK_TO_RAMD
|
||||||
|
LD B,high BIOS.SWAP_RAM_DRIVES.Sp2000
|
||||||
|
JP SWAP_RAM_DRIVES
|
||||||
|
;
|
||||||
|
;
|
||||||
|
.MEMLOOP:
|
||||||
|
LD A,(IX)
|
||||||
|
INC IX
|
||||||
|
OR A
|
||||||
|
LD L,A
|
||||||
|
CALL NZ,RCHAIN
|
||||||
|
DJNZ .MEMLOOP
|
||||||
RET
|
RET
|
||||||
;
|
;
|
||||||
|
|
||||||
@ -644,7 +663,7 @@ INFO_MESSAGE: ;!FIXIT
|
|||||||
|
|
||||||
CALL TSETUP
|
CALL TSETUP
|
||||||
|
|
||||||
LD BC,#0710 ; !HARDCODE ¬ ᪠¨ ï祩ª ¤«ï çâ¥¨ï § ç¥¨ï ª¬®á ¤«ï ®á®¢®£® § £à㧮箣® ¤à ©¢
|
LD BC,#0710 ; !HARDCODE ¬ ᪠¨ ï祩ª ¤«ï çâ¥¨ï § ç¥¨ï ª¬®á ¤«ï ®á®¢®£® § £à㧮箣® ¤à ©¢
|
||||||
CALL PrepareToBOOT
|
CALL PrepareToBOOT
|
||||||
LD A,msgStrings.bootFail
|
LD A,msgStrings.bootFail
|
||||||
LD E,COLORS.CGA.INC.LRED
|
LD E,COLORS.CGA.INC.LRED
|
||||||
@ -657,7 +676,7 @@ ABOOT: LD A,msgStrings.bootAltDrv
|
|||||||
;CALL C,POSTMSG
|
;CALL C,POSTMSG
|
||||||
CALL C,POSTMSC
|
CALL C,POSTMSC
|
||||||
|
|
||||||
LD BC,#7010 ; !HARDCODE ¬ ᪠¨ ï祩ª ¤«ï çâ¥¨ï § ç¥¨ï ª¬®á ¤«ï «ìâ¥à ⨢®£® § £à㧮箣® ¤à ©¢
|
LD BC,#7010 ; !HARDCODE ¬ ᪠¨ ï祩ª ¤«ï çâ¥¨ï § ç¥¨ï ª¬®á ¤«ï «ìâ¥à ⨢®£® § £à㧮箣® ¤à ©¢
|
||||||
CALL PrepareToBOOT
|
CALL PrepareToBOOT
|
||||||
LD A,msgStrings.bootFail
|
LD A,msgStrings.bootFail
|
||||||
LD E,COLORS.CGA.INC.LRED
|
LD E,COLORS.CGA.INC.LRED
|
||||||
@ -925,12 +944,12 @@ CDSTART:
|
|||||||
RDSTART:
|
RDSTART:
|
||||||
LD A,msgStrings.bootRamDrv
|
LD A,msgStrings.bootRamDrv
|
||||||
CALL POSTMSG
|
CALL POSTMSG
|
||||||
LD B,#60 ; !HARDCODE: 6 - ⨯ ¤à ©¢ RAM-DRV, 0 - ®¬¥à ¤à ©¢
|
LD B,#60 ; !HARDCODE: 6 - ⨯ ¤à ©¢ RAM-DRV, 0 - ®¬¥à ¤à ©¢
|
||||||
.loop: PUSH BC
|
.loop: PUSH BC
|
||||||
CALL OS_LOAD
|
CALL OS_LOAD
|
||||||
POP BC
|
POP BC
|
||||||
INC B
|
INC B
|
||||||
LD A,#6F ; !HARDCODE - ¬ ªá¨¬ «ì®¥ ç¨á«® à ¬¤¨áª®¢
|
LD A,#6F ; !HARDCODE - ¬ ªá¨¬ «ì®¥ ç¨á«® à ¬¤¨áª®¢
|
||||||
SUB B
|
SUB B
|
||||||
JR NC,.loop
|
JR NC,.loop
|
||||||
RET
|
RET
|
||||||
@ -1035,14 +1054,15 @@ FINSTAL:
|
|||||||
LD A,SYS_PAGE
|
LD A,SYS_PAGE
|
||||||
OUT (SLOT3),A
|
OUT (SLOT3),A
|
||||||
LD HL,FDD_INI_TABLE.FDD_0
|
LD HL,FDD_INI_TABLE.FDD_0
|
||||||
LD BC,#20FF ;!HARDCODE table
|
LD BC,SYS_PAGE.FDD_TBL.Size*256 + #FF ; table_size*256 + fill_byte
|
||||||
FILLFDD:
|
.FILLFDD:
|
||||||
LD (HL),C
|
LD (HL),C
|
||||||
INC HL
|
INC HL
|
||||||
DJNZ FILLFDD
|
DJNZ .FILLFDD
|
||||||
|
;
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
OUT (SLOT3),A
|
OUT (SLOT3),A
|
||||||
LD BC,#0311
|
LD BC,#0311 ; !HARDCODE
|
||||||
CALL G_VALUE
|
CALL G_VALUE
|
||||||
LD HL,FD720A
|
LD HL,FD720A
|
||||||
OR A
|
OR A
|
||||||
@ -1056,7 +1076,7 @@ SETFD0:
|
|||||||
LD A,SYS_PAGE
|
LD A,SYS_PAGE
|
||||||
OUT (SLOT3),A
|
OUT (SLOT3),A
|
||||||
LD DE,FDD_INI_TABLE.FDD_0
|
LD DE,FDD_INI_TABLE.FDD_0
|
||||||
LD BC,#0008 ; !HARDCODE
|
LD BC,#0008 ; !HARDCODE
|
||||||
LDIR
|
LDIR
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
OUT (SLOT3),A
|
OUT (SLOT3),A
|
||||||
@ -1075,7 +1095,7 @@ SETFD1:
|
|||||||
LD A,SYS_PAGE
|
LD A,SYS_PAGE
|
||||||
OUT (SLOT3),A
|
OUT (SLOT3),A
|
||||||
LD DE,FDD_INI_TABLE.FDD_1
|
LD DE,FDD_INI_TABLE.FDD_1
|
||||||
LD BC,#0008 ; !HARDCODE
|
LD BC,#0008 ; !HARDCODE
|
||||||
LDIR
|
LDIR
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
OUT (SLOT3),A
|
OUT (SLOT3),A
|
||||||
@ -1527,9 +1547,9 @@ POSTMSC:
|
|||||||
JP CPRINTZ
|
JP CPRINTZ
|
||||||
|
|
||||||
SETLAND:
|
SETLAND:
|
||||||
LD A,#0E ; !HARDCODE CMOS ï祩ª options
|
LD A,#0E ; !HARDCODE CMOS ï祩ª options
|
||||||
CALL READCMS
|
CALL READCMS
|
||||||
AND #04 ; !HARDCODE CMOS § 票¥ ï§ëª
|
AND #04 ; !HARDCODE CMOS § 票¥ ï§ëª
|
||||||
JR NZ,.RUS
|
JR NZ,.RUS
|
||||||
;
|
;
|
||||||
LD HL,MSG_ENG
|
LD HL,MSG_ENG
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user