-bug: display incorrect disk and channel number on boot

This commit is contained in:
Anatoliy Belyanskiy committed 2023-09-16 05:03:50 +10:00
1 parent 94dfe0ed94
commit eeaab481e6
6 files changed
+57 -61

No files matched your search

+20 -21
View File
@@ -4,26 +4,25 @@
;**********************************;
MACRO Conf_loader altera_chip
.START: DI
LD BC,#FFEE ; !HARDCODE
XOR A ; Z84.REG.WaitState_Ctrl - register - waits
OUT (C),A ; Z84.SYS.Control
INC C ; LD BC,#FFEF
LD A,4 ; !HARDCODE Memory waits set to 1
OUT (C),A ; Z84.SYS.Data
LD BC,#FF*256 + Z84.SYS.Control
XOR A ; Z84.REG.WaitState_Ctrl - register - waits
OUT (C),A ; Z84.SYS.Control
INC C ; LD BC,#FFEF
LD A,4 ; Memory waits set to 1
OUT (C),A ; Z84.SYS.Data
DEC C ; Z84.SYS.Control
DEC A ; LD A,3 3-nd register - boundaries
OUT (C),A ; Z84.REG.Misc_Ctrl
INC C ; cs0 enable, cs1 enable, 32-Bit CRC disable, reset output enable, Clock Divide-by-two
OUT (C),A ; Z84.SYS.Data
DEC C ; Z84.SYS.Control
DEC A ; LD A,3 - 3-nd register - boundaries
OUT (C),A ; Z84.REG.Misc_Ctrl
INC C ; cs0 enable, cs1 enable, 32-Bit CRC disable, reset output enable, Clock Divide-by-two
OUT (C),A ; Z84.SYS.Data
DEC C ; Z84.SYS.Control
DEC A ; LD A,2 Z84.REG..CS_Boundary 2-nd register - boundaries
OUT (C),A ; Z84.SYS.Data
DEC C ; Z84.SYS.Control
DEC A ; LD A,2 - Z84.REG..CS_Boundary 2-nd register - boundaries
OUT (C),A ; Z84.SYS.Data
INC C
LD A,#FE ; !HARDCODE
OUT (C),A ; boundaries FFFF..F000 - CS1
; EFFF..0000 - CS0
LD A,#FE ; boundaries FFFF..F000 - CS1
OUT (C),A ; EFFF..0000 - CS0
JR .LOOP_S1
;**************************************
@@ -43,8 +42,8 @@
JR NZ,.LOOP_S ; !!!!! ¯à¨¢ï§ª  ª  ¤à¥áã ¢ HL
; !TODO ã¡à âì ¢¥©âë ¤«ï ªíè ?
LD BC,#FFEE ; !HARDCODE
LD A,2 ; !HARDCODE
LD BC,#FF*256 + Z84.SYS.Control
LD A,Z84.REG.CS_Boundary ; !HARDCODE
OUT (C),A ; 0 register - waits
INC C
LD A,#F0
@@ -90,7 +89,7 @@
EXX
;---------------------------------------
LD DE,#FE00 ; !!!!! Check flag "don't erase fast-ram bitstream" - "IM"
LD DE,#FE00 ;!HARDCODE ; !!!!! Check flag "don't erase fast-ram bitstream" - "IM"
LD A,(#FEE0)
CP "I"
JR NZ,.ONES_CONFIG
@@ -101,7 +100,7 @@
DEC D ; multiple config!
.ONES_CONFIG:
LD IY,#0107 ;!!!!! ¯®¤ã¬ âì)))
LD IY,#0107 ;!HARDCODE ;!!!!! ¯®¤ã¬ âì)))
;!TEST
;LD IX,#FFFD
LD IX,SP2000_ConfID ;!!!!! ¯®¤ã¬ âì)))