diff --git a/Source/HBIOS/hbios.asm b/Source/HBIOS/hbios.asm index 6ce54737..61144d64 100644 --- a/Source/HBIOS/hbios.asm +++ b/Source/HBIOS/hbios.asm @@ -63,7 +63,7 @@ ; - [xio|mio].asm ; - dsky.asm ; - unlzsa2s.asm -; +; ; ; INCLUDE GENERIC STUFF ; @@ -268,16 +268,14 @@ HBX_INVOKE: LD A,(HB_CURBNK) ; GET CURRENT BANK LD (HB_INVBNK),A ; SAVE INVOCATION BANK - ;LD SP,HBX_TMPSTK ; USE SMALL TEMP STACK FRAME IN HI MEM FOR BANK SWITCH - LD SP,HBX_BUF_END ; BORROW HBX_BUF FOR TEMP STACK + LD SP,HBX_TMPSTK ; BORROW HBX_BUF FOR STACK IN HIGH MEMORY LD A,BID_BIOS ; HBIOS BANK CALL HBX_BNKSEL ; SELECT IT LD SP,HB_STACK ; NOW USE FULL HBIOS STACK IN HBIOS BANK CALL HB_DISPATCH ; CALL HBIOS FUNCTION DISPATCHER - ;LD SP,HBX_TMPSTK ; USE SMALL TEMP STACK FRAME IN HI MEM FOR BANK SWITCH - LD SP,HBX_BUF_END ; BORROW HBX_BUF FOR TEMP STACK + LD SP,HBX_TMPSTK ; BORROW HBX_BUF FOR STACK IN HIGH MEMORY PUSH AF ; SAVE AF (FUNCTION RETURN) LD A,(HB_INVBNK) ; LOAD ORIGINAL BANK @@ -392,7 +390,7 @@ HBX_BNKSEL1: ; HBX_BNKCPY: LD (HBX_BC_SP),SP ; PUT STACK - LD SP,HBX_TMPSTK ; ... IN HI MEM + LD SP,HBX_BNKSTK ; TEMPORARY STACK IN HIGH MEMORY (NOT IN HBX_BUF) LD A,(HB_CURBNK) ; GET CURRENT BANK PUSH AF ; AND SAVE TO RESTORE LATER @@ -473,7 +471,7 @@ HBX_TGTADR .EQU $ + 1 ; HBX_PEEK: LD (HBX_PPSP),SP ; SAVE ORIGINAL STACK FRAME - LD SP,HBX_TMPSTK ; USE SMALL TEMP STACK FRAME IN HI MEM + LD SP,HBX_TMPSTK ; BORROW HBX_BUF FOR STACK IN HIGH MEMORY LD A,(HB_CURBNK) PUSH AF LD A,D @@ -483,7 +481,7 @@ HBX_PEEK: ; HBX_POKE: LD (HBX_PPSP),SP ; SAVE ORIGINAL STACK FRAME - LD SP,HBX_TMPSTK ; USE SMALL TEMP STACK FRAME IN HI MEM + LD SP,HBX_TMPSTK ; BORROW HBX_BUF FOR STACK IN HIGH MEMORY LD A,(HB_CURBNK) PUSH AF LD A,D @@ -497,11 +495,6 @@ HBX_PPRET: HBX_PPSP .EQU $ - 2 RET ; -; SMALL TEMPORARY STACK FOR USE BY INVOKE, PEEK, AND POKE -; - .FILL 20,$CC ; 10 LEVEL STACK -HBX_TMPSTK .EQU $ -; ; PRIVATE STACK AT END OF HBIOS CODE ; OCCUPIES SPACE BEFORE IVT ; @@ -517,9 +510,9 @@ HBX_STACK .EQU $ ; HBIOS INTERRUPT SLOT ASSIGNMENTS ; ; # Z80 Z180 -; --- -------------- -------------- +; --- -------------- -------------- ; 0 CTC0A INT1 -+ -; 1 CTC0B INT2 | +; 1 CTC0B INT2 | ; 2 CTC0C TIM0 | ; 3 CTC0D TIM1 | ; 4 DMA0 +- Z180 INTERNAL @@ -605,7 +598,7 @@ HBX_INT: ; COMMON INTERRUPT ROUTING CODE LD L,(HL) ; OFFSET INTO JP TABLE FOR THIS INT LD H,HB_IVT >> 8 ; MSB OF HBIOS INT JP TABLE - + CALL JPHL ; CALL HANDLER VIA INT JP TABLE LD A,(HB_CURBNK) ; GET PRE-INT BANK @@ -629,16 +622,23 @@ HBX_INT_SP .EQU $ - 2 ; ; FILL TO START OF BOUNCE BUFFER ; -HBX_INTFILL .EQU (HBX_XFC - HBX_BUFSIZ - $) - .ECHO "HBIOS INT space remaining: " - .ECHO HBX_INTFILL +HBX_PROXYFILL .EQU (HBX_XFC - HBX_BUFSIZ - $) + .ECHO "HBIOS PROXY space remaining: " + .ECHO HBX_PROXYFILL .ECHO " bytes.\n" - .FILL HBX_INTFILL,$FF + .FILL HBX_PROXYFILL,$FF +; +; TEMPORARY STACK FOR USE BY HBX_BNKCPY (NOT IN HBX_BUF) +; +HBX_BNKSTK .EQU $ ; ; INTERBANK COPY BUFFER (64 BYTES) ; HBX_BUF .FILL HBX_BUFSIZ,0 -HBX_BUF_END .EQU $ +; +; TEMPORARY STACK FOR USE BY INVOKE, PEEK, AND POKE +; +HBX_TMPSTK .EQU $ ; ; HBIOS PROXY MGMT BLOCK (TOP 32 BYTES) ; @@ -931,7 +931,7 @@ HB_START1: ; BNKCALL ARRIVES HERE, BUT NOW RUNNING IN RAM BANK #IF (BT_REC_TYPE == BT_REC_SBC01) LD A,%00100000 ; DISABLE RTC AND OUT (RTCIO),A ; DRQ DRIVER READ - IN A,(RTCIO) ; BIT 0 (DRQ). + IN A,(RTCIO) ; BIT 0 (DRQ). CPL ; PULLED HIGH AND 1 ; IS RECOVERY MODE LD (HB_BOOT_REC),A ; SAVE FOR LATER @@ -939,16 +939,16 @@ HB_START1: ; BNKCALL ARRIVES HERE, BUT NOW RUNNING IN RAM BANK #IF (BT_REC_TYPE == BT_REC_SBC1B) IN A,(RTCIO) ; RTC PORT, BIT 6 HAS THE BIT 6,A ; STATE OF CONFIG JUMPER - LD A,1 ; JUMPER INSTALLED + LD A,1 ; JUMPER INSTALLED JR Z,SAVE_REC_M ; IS RECOVERY MODE LD A,0 SAVE_REC_M: LD (HB_BOOT_REC),A ; SAVE FOR LATER #ENDIF #IF (BT_REC_TYPE == BT_REC_SBCRI) - IN A,($68 + 6) ; UART_MSR MODEM + IN A,($68 + 6) ; UART_MSR MODEM BIT 6,A ; STATUS REGISTER - LD A,0 ; BIT 6 + LD A,0 ; BIT 6 JR Z,SAVE_REC_M ; IS RECOVERY MODE LD A,1 SAVE_REC_M: @@ -1113,7 +1113,7 @@ HB_CPU2: ; #IF (HTIMENABLE) ; SIMH TIMER ; - #IF (INTMODE == 1) + #IF (INTMODE == 1) LD HL,HB_TIMINT CALL HB_ADDIM1 ; ADD TO IM1 CALL LIST #ENDIF @@ -1125,7 +1125,7 @@ HB_CPU2: #IF (KIOENABLE) LD A,%11111001 ; RESET ALL DEVICES, SET DAISYCHAIN OUT (KIOBASE+$0E),A ; DO IT -#ENDIF +#ENDIF ; #IF (CTCENABLE) CALL CTC_PREINIT @@ -1187,7 +1187,7 @@ HB_CPU2: LD DE,(HB_PCINITTBL) ; EXECUTE FIRST ; DE IS VALUE OF TOP ENTRY LD HL,HB_PCINITTBL ; HL IS ADDRESS OF TOP OF TABLE PUSH HL ; PUSH (1) TOP OF TABLE - PUSH DE ; PUSH (2) VALUE OF TOP ENTRY + PUSH DE ; PUSH (2) VALUE OF TOP ENTRY PUSH HL ; PUSH (3) TOP OF TABLE CALL ADDHLA ; HL IS ADDRESS OF DESIRED CONSOLE ENTRY POP DE ; PLACE IT AT THE TOP OF THE ; POP (3) DE IS TOP OF TABLE @@ -1391,7 +1391,7 @@ HB_SPDTST: JR Z,NOT_REC_M1 ; INITIALIZATION TABLE LD B,HB_INITRLEN LD DE,HB_INIT_REC - JR IS_REC_M1 + JR IS_REC_M1 #ENDIF NOT_REC_M1: @@ -1834,7 +1834,7 @@ DIO_TBL .FILL DIO_SIZ,0 ; SPACE FOR ENTRIES ; HL=BUF ADR ; E=SEC COUNT ; D=BUF BANK ID -; +; HB_DSKREAD: ; ; THE ACTUAL SECTOR READ FUNCTION ADDRESS IS ON TOS, SAVE IT @@ -1922,7 +1922,7 @@ HB_DSKREADX: ; HL=BUF ADR ; E=SEC COUNT ; D=BUF BANK ID -; +; HB_DSKWRITE: ; ; THE ACTUAL SECTOR READ FUNCTION ADDRESS IS ON TOS, SAVE IT @@ -2680,7 +2680,7 @@ HB_BADINTCNT .DB 0 RRCA CALL PRTHEXBYTE PRTS("H: $") - + CALL XREGDMP ;CALL CONTINUE OR $FF ; SIGNAL INTERRUPT HANDLED @@ -2953,8 +2953,8 @@ ORG_FONTS .EQU $ FONT8X8: #IF USELZSA2 #INCLUDE "font8x8c.asm" - #ELSE - #INCLUDE "font8x8u.asm" + #ELSE + #INCLUDE "font8x8u.asm" #ENDIF .ECHO " 8X8" #ENDIF @@ -2963,8 +2963,8 @@ FONT8X8: FONT8X11: #IF USELZSA2 #INCLUDE "font8x11c.asm" - #ELSE - #INCLUDE "font8x11u.asm" + #ELSE + #INCLUDE "font8x11u.asm" #ENDIF .ECHO " 8X11" #ENDIF @@ -2973,8 +2973,8 @@ FONT8X11: FONT8X16: #IF USELZSA2 #INCLUDE "font8x16c.asm" - #ELSE - #INCLUDE "font8x16u.asm" + #ELSE + #INCLUDE "font8x16u.asm" #ENDIF .ECHO " 8X16" #ENDIF @@ -3855,7 +3855,7 @@ COUT: JR COUT2 ; CONTINUE ; COUT1: -; +; #IF (WBWDEBUG == USEXIO) LD A,E ; GET OUTPUT CHAR BACK TO ACCUM CALL XIO_OUTC ; OUTPUT VIA XIO diff --git a/Source/HBIOS/hbios.inc b/Source/HBIOS/hbios.inc index 444bae8b..441cfcc2 100644 --- a/Source/HBIOS/hbios.inc +++ b/Source/HBIOS/hbios.inc @@ -131,7 +131,7 @@ VDADEV_VGA .EQU $40 ; ECB VGA3 - HITACHI HD6445 ;EMUTYP_NONE .EQU 0 ; NONE ;EMUTYP_TTY .EQU 1 ; TTY ;EMUTYP_ANSI .EQU 2 ; ANSI -; +; ; HBIOS CONTROL BLOCK OFFSETS ; WARNING: THESE OFFSETS WILL CHANGE SIGNIFICANTLY BETWEEN RELEASES ; IT IS STRONGLY RECOMMENDED THAT YOU DO NOT USE THEM! diff --git a/Source/HBIOS/sd.asm b/Source/HBIOS/sd.asm index 2930fa72..70ee71d9 100644 --- a/Source/HBIOS/sd.asm +++ b/Source/HBIOS/sd.asm @@ -108,7 +108,7 @@ ; JUST DISCARD THE FIRST BYTE RECEIVED AFTER A COMMAND IS SENT WITH THE ; ASSUMPTION THAT IT MUST BE A FILL BYTE AND IS NOT RELIABLE DUE TO FLOATING ; MISO. -; +; ; THESE CHANGES ARE CONSISTENT WITH THE POPULAR ARDUINO SDFAT LIBRARY, SO THEY ARE ; PROBABLY PRETTY SAFE. HOWEVER, I HAVE BRACKETED THE CHANGES WITH THE EQUATE BELOW. ; IF YOU WANT TO REVERT THESE HACKS, JUST SET THE EQUATE TO FALSE.