This commit is contained in:
Anatoliy Belyanskiy 2023-09-14 01:44:42 +10:00
parent a91ef403e0
commit 4b6fd91d99
6 changed files with 72 additions and 106 deletions

@ -1 +1 @@
Subproject commit cb37592f1a06f495e0396611d9ffde0c04406c89 Subproject commit b5c729733c85c7dd1fd52d875116d2a191c54ce7

View File

@ -1371,63 +1371,63 @@ Length EQU $-Setup_Starter.Start
;---------------------[ ‡€ƒ‹“˜Šˆ „‹Ÿ #41 <E28098><EFBFBD>ˆ]----------------------; ;---------------------[ ‡€ƒ‹“˜Šˆ „‹Ÿ #41 <E28098><EFBFBD>ˆ]----------------------;
;-------------[RST 08] ;-------------[RST 08]
RAM_BIOS_PROG: ; for CALL BIOS in 41h page ; RAM_BIOS_PROG: ; for CALL BIOS in #41 page
DISP #08 ; DISP #08
PUSH AF ; PUSH AF
LD A,ROM.BIOS ; LD A,ROM.BIOS
OUT (SYS_PORT.ROM),A ; OUT (SYS_PORT.ROM),A
POP AF ; POP AF
RET ; RET
ENT ; ENT
.Length EQU $-RAM_BIOS_PROG ; .Length EQU $-RAM_BIOS_PROG
;-------------------[] ; ;-------------------[]
;-------------[RST 38] ; ;-------------[RST 38]
PROG_NO_ROM: ; PROG_NO_ROM:
DISP #38 ; DISP #38
DI ; DI
LD A,#FF ; LD A,#FF
OUT (SLOT3),A ; OUT (SLOT3),A
OUT (SLOT2),A ; OUT (SLOT2),A
OUT (SLOT1),A ; OUT (SLOT1),A
LD SP,#BF00 ; LD SP,#BF00
LD C,BIOS.LP_OPEN_S ; LD C,BIOS.LP_OPEN_S
LD B,3 ; LD B,3
LD E,0 ; LD E,0
RST ToBIOS ; RST ToBIOS
LD C,BIOS.LP_CLS_WIN ; LD C,BIOS.LP_CLS_WIN
LD DE,0 ; LD DE,0
LD HL,#2050 ; LD HL,#2050
RST ToBIOS ; RST ToBIOS
LD A,1 ; LD A,1
OUT (RGMOD),A ; set scr-2 ; OUT (RGMOD),A ; set scr-2
LD HL,MESSAGE_NR ; LD HL,MESSAGE_NR
LD DE,#A000 ; LD DE,#A000
LD BC,MESSAGE_NR.size ; LD BC,MESSAGE_NR.size
LD A,C ; LD A,C
LDIR ; LDIR
LD HL,#A000 ; LD HL,#A000
LD D,0 ; delimiter ; LD D,0 ; delimiter
LD E,COLORS.FLASH + COLORS.PAPER.RED + COLORS.INC.CYAN ; LD E,COLORS.FLASH + COLORS.INC.RED
LD B,A ; LD B,A
LD C,BIOS.LP_PRINT_LINE3 ; LD C,BIOS.LP_PRINT_LINE3
RST ToBIOS ; RST ToBIOS
.loop: DI ; .loop: DI
HALT ; HALT
JR .loop ; JR .loop
MESSAGE_NR: DZ " Spectrum ROM not installed. Use spectrum.exe Press Ctrl+Alt+Del or RESET" ; MESSAGE_NR: DZ " Spectrum ROM not installed. Use spectrum.exe Press Ctrl+Alt+Del or RESET"
.size EQU $-MESSAGE_NR ; .size EQU $-MESSAGE_NR
ENT ; ENT
PROG_NO_ROM.size EQU $-PROG_NO_ROM ; PROG_NO_ROM.size EQU $-PROG_NO_ROM
;-------------------[] ;-------------------[]
;-----------------------------------------------------------------------; ;-----------------------------------------------------------------------;
;>$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$<; ;>$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$< >$<;

View File

@ -411,7 +411,7 @@ INSTALL:
LD DE,#0328 LD DE,#0328
CALL LP_SET_PLACE CALL LP_SET_PLACE
LD A,msgStrings.testBIOSmsg LD A,msgStrings.testBIOSmsg
LD E,COLORS.FLASH + COLORS.INC.RED ; !HARDCODE LD E,COLORS.FLASH + COLORS.INC.RED
CALL POSTMSC CALL POSTMSC
ENDIF ENDIF
@ -646,7 +646,6 @@ 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
@ -864,7 +863,6 @@ RECOVERYstart:
PrepareToBOOT: PrepareToBOOT:
CALL INT_OFF CALL INT_OFF
CALL G_VALUE CALL G_VALUE
;LD B,A
LD B,0 LD B,0
; FDD ; FDD
OR A OR A
@ -959,6 +957,7 @@ HDSTART:
PUSH BC PUSH BC
LD A,msgStrings.bootHdd LD A,msgStrings.bootHdd
CALL POSTMSG CALL POSTMSG
POP BC POP BC
POP AF POP AF
CP #FF CP #FF

View File

@ -386,10 +386,10 @@ FSC1:
ITEM: DB #00 ITEM: DB #00
ITEM_Restore: DB #00 ITEM_Restore: DB #00
NORCLR: DB #1F NORCLR: DB COLORS.PAPER.WHITE
HLTCLR: DB #1E HLTCLR: DB COLORS.PAPER.YELLOW
CURCLR: DB #4F CURCLR: DB #4F
WRMCLR: DB #1F WRMCLR: DB COLORS.PAPER.WHITE
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[v] ;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[v]

View File

@ -11,24 +11,14 @@ PIC_SET_PAL_FF EQU def_pal_mask*256+BIOS.PIC_SET_PAL
;; ;;
ScreenPOS: ScreenPOS:
;.GET_CUR:
; LD C,BIOS.LP_GET_PLACE
; JP_to_BIOS
.SUBNAME: .SUBNAME:
;CALL ScreenPOS.GET_CUR
CALL LP_GET_PLACE CALL LP_GET_PLACE
LD E,#24 LD E,#24
;.LOCAT:
; LD C,BIOS.LP_SET_PLACE
; JP_to_BIOS
JP LP_SET_PLACE JP LP_SET_PLACE
.CRLF: ;CALL ScreenPOS.GET_CUR .CRLF: CALL LP_GET_PLACE
CALL LP_GET_PLACE
INC D INC D
LD E,#00 LD E,#00
;JP ScreenPOS.LOCAT
JP LP_SET_PLACE JP LP_SET_PLACE
;; ;;
@ -60,53 +50,30 @@ PRINTDW:
RET RET
PRINTA: LD E,A PRINTA: LD E,A
; LD C,BIOS.LP_PRINT_ATR
; JP_to_BIOS
JP LP_PRINT_ATR JP LP_PRINT_ATR
PRINT_CHAR: PRINT_CHAR:
; LD BC,1*256 + BIOS.LP_PRINT_SYM
; JP_to_BIOS
LD B,1 LD B,1
JP LP_PRINT_SYM JP LP_PRINT_SYM
; ;
TPRINTZ: TPRINTZ: CALL LP_SET_PLACE
;CALL ScreenPOS.LOCAT PRINTZ: LD B,0
CALL LP_SET_PLACE
; LD BC,0*256 + BIOS.LP_PRINT_LINE6
PRINTZ:
LD B,0
LD D,B LD D,B
; JP_to_BIOS
JP LP_PRINT_LINE6 JP LP_PRINT_LINE6
; PRINTZ: HPRINTZ: LD B,0
; ; LD BC,0*256 + BIOS.LP_PRINT_LINE6
; LD B,0
; LD D,B
; ; JP_to_BIOS
; JP LP_PRINT_LINE6
HPRINTZ:
;LD BC,0*256 + BIOS.LP_PRINT_LINE5
LD B,0
LD D,B LD D,B
LD E,#0F LD E,COLORS.INC.WHITE
;JP_to_BIOS
JP LP_PRINT_LINE5 JP LP_PRINT_LINE5
CPRINTZ: CPRINTZ: LD B,0
;LD BC,0*256 + BIOS.LP_PRINT_LINE5
LD B,0
LD D,B LD D,B
LD E,A LD E,A
;JP_to_BIOS
JP LP_PRINT_LINE5 JP LP_PRINT_LINE5
;HL - NUMBER ;HL - NUMBER
IZPRINT: IZPRINT: LD D,1
LD D,1
JR IPRIN JR IPRIN
IPRINT: IPRINT:
LD D,0 LD D,0