better hardreset func
This commit is contained in:
parent
b30ce3cce1
commit
a04553034b
@ -376,13 +376,21 @@ REINIT: DEC B
|
|||||||
;[x]
|
;[x]
|
||||||
.HardReset:
|
.HardReset:
|
||||||
DI
|
DI
|
||||||
|
LD A,SYS_PORT.CNF_0
|
||||||
|
OUT (SYS_PORT.ROM),A
|
||||||
|
;
|
||||||
|
LD A,Z84.REG.Misc_Ctrl
|
||||||
|
OUT (Z84.SYS.Control),A
|
||||||
|
LD A,%0000'0011 ; CS1/CS0 enabled
|
||||||
|
OUT (Z84.SYS.Data),A
|
||||||
|
;
|
||||||
LD A,DCP_PAGE
|
LD A,DCP_PAGE
|
||||||
OUT (SLOT1),A ; set DCP page
|
OUT (SLOT1),A ; set DCP page
|
||||||
LD A,ACEX.RESET
|
LD A,ACEX.RESET
|
||||||
LD (#4400),A ; open for WR
|
LD (#4400),A ; open for WR
|
||||||
.loop: LD BC,#0100 ; 横« á¡à®á
|
.loop: LD BC,#0100 ; 横« á¡à®á
|
||||||
OUT (C),C
|
OUT (C),C
|
||||||
LD B,0
|
LD B,C
|
||||||
OUT (C),C
|
OUT (C),C
|
||||||
JR .loop ; ¯®«®áâìî § 横«¨âì!
|
JR .loop ; ¯®«®áâìî § 横«¨âì!
|
||||||
;
|
;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user