mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
Incorporate FDISK80
This commit is contained in:
@@ -59,7 +59,7 @@ MEMTOP .EQU $10000
|
||||
#ENDIF
|
||||
;
|
||||
#IFDEF PLTUNA
|
||||
#INCLUDE "../HBIOS/ubios.inc"
|
||||
#INCLUDE "../UBIOS/ubios.inc"
|
||||
#ENDIF
|
||||
;
|
||||
.ORG CBIOS_LOC ; DEFINED IN STD.ASM
|
||||
@@ -1790,19 +1790,14 @@ INIT:
|
||||
LD HL,($FFFE) ; UNA ENTRY VECTOR
|
||||
LD (9),HL ; STORE AT 0x0009
|
||||
#ELSE
|
||||
; ASK HBIOS FOR CRITICAL BANK ID'S (BIOS AND USER BANKS)
|
||||
; SAVE THESE VALUES FOR LATER USE
|
||||
LD B,BF_SYSHCBGETB ; HB FUNC: GET HCB BYTE
|
||||
LD C,HCB_BIDBIOS ; BIOS BANK ID
|
||||
CALL $FFF0 ; RST 8 IS NOT YET INSTALLED
|
||||
LD A,E ; PUT IN A
|
||||
LD (BNKBIOS),A ; SAVE IT
|
||||
LD B,BF_SYSHCBGETB ; HB FUNC: GET HCB BYTE
|
||||
LD C,HCB_BIDUSR ; USER BANK ID
|
||||
CALL $FFF0 ; RST 8 IS NOT YET INSTALLED
|
||||
LD A,E ; PUT IN A
|
||||
LD (BNKUSER),A ; SAVE IT
|
||||
|
||||
LD B,BF_SYSGET ; HBIOS FUNC=GET SYS INFO
|
||||
LD C,BF_SYSGET_BNKINFO ; HBIOS SUBFUNC=GET BANK ASSIGNMENTS
|
||||
CALL $FFF0 ; CALL HBIOS, RST 08 NOT YET INSTALLED
|
||||
LD A,D ; GET HBIOS BANK RETURNED IN D
|
||||
LD (BNKBIOS),A ; ... AND SAVE IT
|
||||
LD A,E ; GET USER BANK RETURNED IN E
|
||||
LD (BNKUSER),A ; ... AND SAVE IT
|
||||
|
||||
; MAKE SURE USER BANK IS ACTIVE
|
||||
LD B,BF_SYSSETBNK ; HB FUNC: SET BANK
|
||||
LD A,(BNKUSER) ; SELECT USER BANK
|
||||
@@ -1831,11 +1826,6 @@ INIT:
|
||||
LD (BNKRAMD),A
|
||||
#ENDIF
|
||||
|
||||
; CBIOS BANNER
|
||||
CALL NEWLINE ; FORMATTING
|
||||
LD DE,STR_BANNER ; POINT TO BANNER
|
||||
CALL WRITESTR ; DISPLAY IT
|
||||
|
||||
; PARAMETER INITIALIZATION
|
||||
XOR A ; LOAD DEFAULT IOBYTE
|
||||
LD (IOBYTE),A ; STORE IT
|
||||
@@ -1844,6 +1834,11 @@ INIT:
|
||||
XOR A ; ZERO
|
||||
LD (DEFDRIVE),A ; STORE IT
|
||||
|
||||
; CBIOS BANNER
|
||||
CALL NEWLINE ; FORMATTING
|
||||
LD DE,STR_BANNER ; POINT TO BANNER
|
||||
CALL WRITESTR ; DISPLAY IT
|
||||
|
||||
#IFDEF PLTUNA
|
||||
; SAVE COMMAND PROCESSOR IMAGE TO MALLOCED CACHE IN UNA BIOS PAGE
|
||||
LD C,$F7 ; UNA MALLOC
|
||||
|
||||
Reference in New Issue
Block a user