MirrorRepos
/
RomWBW
mirror of https://github.com/wwarthen/RomWBW.git
1
0
Fork 1
Code Issues Projects Releases Wiki Activity
Browse Source

Merge pull request #482 from kiwisincebirth/map/cbios-size 

CBIOS Size reduce by reducing resident utils
pull/484/head
Wayne Warthen 1 year ago
committed by GitHub
parent
6647b09cf7 4df6f00ed9
commit
f8f46c630a
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
3 changed files with 136 additions and 127 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 72
      Source/CBIOS/cbios.asm
  2. 186
      Source/CBIOS/util.asm
  3. 5
      Source/HBIOS/hbios.inc

72
Source/CBIOS/cbios.asm
View File

@ -411,8 +411,7 @@ REBOOT:
; ;
#IFDEF PLTWBW #IFDEF PLTWBW
; WARM START ; WARM START
LD B,BF_SYSRESET ; SYSTEM RESTART
LD C,BF_SYSRES_WARM ; WARM START
LD BC,BC_SYSRES_WARM ; SYSTEM WARM RESTART
CALL $FFF0 ; CALL HBIOS CALL $FFF0 ; CALL HBIOS
#ENDIF #ENDIF
; ;
@ -2199,8 +2198,7 @@ INIT:
#ELSE #ELSE
; GET CRITICAL BANK ID'S ; GET CRITICAL BANK ID'S
LD B,BF_SYSGET ; HBIOS FUNC=GET SYS INFO
LD C,BF_SYSGET_BNKINFO ; HBIOS SUBFUNC=GET BANK ASSIGNMENTS
LD BC,BC_SYSGET_BNKINFO ; HBIOS FUNC=GET SYS INFO;GET BANK ASSIGNMENTS
RST 08 ; CALL HBIOS RST 08 ; CALL HBIOS
LD A,D ; GET HBIOS BANK RETURNED IN D LD A,D ; GET HBIOS BANK RETURNED IN D
LD (BNKBIOS),A ; ... AND SAVE IT LD (BNKBIOS),A ; ... AND SAVE IT
@ -2213,8 +2211,7 @@ INIT:
#ENDIF #ENDIF
; ;
; SOFT RESET HBIOS ; SOFT RESET HBIOS
LD B,BF_SYSRESET ; HB FUNC: RESET
LD C,BF_SYSRES_INT ; WARM START
LD BC,BC_SYSRES_INT ; HB FUNC: RESET; WARM START
RST 08 ; DO IT RST 08 ; DO IT
; ;
#IF DEBUG #IF DEBUG
@ -2494,8 +2491,7 @@ DEV_INIT000:
DEV_INIT00: DEV_INIT00:
; LOOP THRU DEVICES ADDING DEVICES TO DEVMAP ; LOOP THRU DEVICES ADDING DEVICES TO DEVMAP
; CONSOLE DEVICE WAS ALREADY DONE, SO IT IS SKIPPED HERE ; CONSOLE DEVICE WAS ALREADY DONE, SO IT IS SKIPPED HERE
LD B,BF_SYSGET ; HBIOS FUNC: GET SYS INFO
LD C,BF_SYSGET_CIOCNT ; SUBFUNC: GET CIO UNIT COUNT
LD BC,BC_SYSGET_CIOCNT ; HBIOS FUNC: GET SYS INFO; GET CIO UNIT COUNT
RST 08 ; E := SERIAL UNIT COUNT RST 08 ; E := SERIAL UNIT COUNT
LD B,E ; COUNT TO B LD B,E ; COUNT TO B
LD C,0 ; UNIT INDEX LD C,0 ; UNIT INDEX
@ -2926,8 +2922,7 @@ DRV_INIT:
; DEVICES. NON-HARD DISK UNITS ARE ALWAYS CONSIDERED ; DEVICES. NON-HARD DISK UNITS ARE ALWAYS CONSIDERED
; ACTIVE, BUT HARD DISK UNITS ARE ONLY CONSIDERED ACTIVE ; ACTIVE, BUT HARD DISK UNITS ARE ONLY CONSIDERED ACTIVE
; IF THERE IS MEDIA IN THE DRIVE. ; IF THERE IS MEDIA IN THE DRIVE.
LD B,BF_SYSGET
LD C,BF_SYSGET_DIOCNT
LD BC,BC_SYSGET_DIOCNT ; GET DISK UNIT COUNT
RST 08 ; E := DISK UNIT COUNT RST 08 ; E := DISK UNIT COUNT
LD B,E ; COUNT TO B LD B,E ; COUNT TO B
LD A,B ; COUNT TO A LD A,B ; COUNT TO A
@ -3433,6 +3428,63 @@ DEV15 .EQU DEVUNK
; ;
#ENDIF #ENDIF
; ;
;
;__________________________________________________________________________________________________
;
; INITIALIZATION Utilities
;
; PRINT VALUE OF A IN DECIMAL WITH LEADING ZERO SUPPRESSION
;
PRTDECB:
PUSH HL
PUSH AF
LD L,A
LD H,0
CALL PRTDEC
POP AF
POP HL
RET
;
; PRINT VALUE OF HL IN DECIMAL WITH LEADING ZERO SUPPRESSION
;
PRTDEC:
PUSH BC
PUSH DE
PUSH HL
LD E,'0'
LD BC,-10000
CALL PRTDEC1
LD BC,-1000
CALL PRTDEC1
LD BC,-100
CALL PRTDEC1
LD C,-10
CALL PRTDEC1
LD E,0
LD C,-1
CALL PRTDEC1
POP HL
POP DE
POP BC
RET
PRTDEC1:
LD A,'0' - 1
PRTDEC2:
INC A
ADD HL,BC
JR C,PRTDEC2
SBC HL,BC
CP E
JR Z,PRTDEC3
LD E,0
CALL COUT
PRTDEC3:
RET
;
;__________________________________________________________________________________________________
;
; INITIALIZATION Working Storage
;
DPHTOP .DW 0 ; CURRENT TOP OF DPH POOL DPHTOP .DW 0 ; CURRENT TOP OF DPH POOL
DIRBUF .DW 0 ; DIR BUF POINTER DIRBUF .DW 0 ; DIR BUF POINTER
HEAPTOP .DW BUFPOOL ; CURRENT TOP OF HEAP HEAPTOP .DW BUFPOOL ; CURRENT TOP OF HEAP

186
Source/CBIOS/util.asm
View File

@ -28,10 +28,10 @@ PC_COLON:
LD A,':' LD A,':'
JR PC_PRTCHR JR PC_PRTCHR
PC_COMMA:
PUSH AF
LD A,','
JR PC_PRTCHR
;PC_COMMA:
; PUSH AF
; LD A,','
; JR PC_PRTCHR
PC_LBKT: PC_LBKT:
PUSH AF PUSH AF
@ -43,30 +43,30 @@ PC_RBKT:
LD A,']' LD A,']'
JR PC_PRTCHR JR PC_PRTCHR
PC_LT:
PUSH AF
LD A,'<'
JR PC_PRTCHR
;PC_LT:
; PUSH AF
; LD A,'<'
; JR PC_PRTCHR
PC_GT:
PUSH AF
LD A,'>'
JR PC_PRTCHR
;PC_GT:
; PUSH AF
; LD A,'>'
; JR PC_PRTCHR
PC_LPAREN:
PUSH AF
LD A,'('
JR PC_PRTCHR
;PC_LPAREN:
; PUSH AF
; LD A,'('
; JR PC_PRTCHR
PC_RPAREN:
PUSH AF
LD A,')'
JR PC_PRTCHR
;PC_RPAREN:
; PUSH AF
; LD A,')'
; JR PC_PRTCHR
PC_ASTERISK:
PUSH AF
LD A,'*'
JR PC_PRTCHR
;PC_ASTERISK:
; PUSH AF
; LD A,'*'
; JR PC_PRTCHR
PC_CR: PC_CR:
PUSH AF PUSH AF
@ -201,7 +201,7 @@ _REGDMP:
LD A,'@' LD A,'@'
CALL COUT CALL COUT
POP AF POP AF
PUSH BC PUSH BC
LD BC,(REGDMP_PC) LD BC,(REGDMP_PC)
CALL PRTHEXWORD ; PC CALL PRTHEXWORD ; PC
@ -235,7 +235,7 @@ _REGDMP:
POP AF POP AF
;LD SP,(RD_STKSAV) ; BACK TO ORIGINAL STACK FRAME ;LD SP,(RD_STKSAV) ; BACK TO ORIGINAL STACK FRAME
JP $FFFF ; RETURN, $FFFF IS DYNAMICALLY UPDATED JP $FFFF ; RETURN, $FFFF IS DYNAMICALLY UPDATED
REGDMP_RET .EQU $-2 ; RETURN ADDRESS GOES HERE REGDMP_RET .EQU $-2 ; RETURN ADDRESS GOES HERE
; ;
@ -340,17 +340,17 @@ ADDHLA1:
; IN: MULTIPLY H BY E ; IN: MULTIPLY H BY E
; OUT: HL = RESULT, E = 0, B = 0 ; OUT: HL = RESULT, E = 0, B = 0
; ;
MULT8:
LD D,0
LD L,D
LD B,8
MULT8_LOOP:
ADD HL,HL
JR NC,MULT8_NOADD
ADD HL,DE
MULT8_NOADD:
DJNZ MULT8_LOOP
RET
;MULT8:
; LD D,0
; LD L,D
; LD B,8
;MULT8_LOOP:
; ADD HL,HL
; JR NC,MULT8_NOADD
; ADD HL,DE
;MULT8_NOADD:
; DJNZ MULT8_LOOP
; RET
; ;
; FILL MEMORY AT HL WITH VALUE A, LENGTH IN BC, ALL REGS USED ; FILL MEMORY AT HL WITH VALUE A, LENGTH IN BC, ALL REGS USED
; LENGTH *MUST* BE GREATER THAN 1 FOR PROPER OPERATION!!! ; LENGTH *MUST* BE GREATER THAN 1 FOR PROPER OPERATION!!!
@ -364,54 +364,6 @@ FILL:
LDIR ; DO THE REST LDIR ; DO THE REST
RET ; RETURN RET ; RETURN
; ;
; PRINT VALUE OF A IN DECIMAL WITH LEADING ZERO SUPPRESSION
;
PRTDECB:
PUSH HL
PUSH AF
LD L,A
LD H,0
CALL PRTDEC
POP AF
POP HL
RET
;
; PRINT VALUE OF HL IN DECIMAL WITH LEADING ZERO SUPPRESSION
;
PRTDEC:
PUSH BC
PUSH DE
PUSH HL
LD E,'0'
LD BC,-10000
CALL PRTDEC1
LD BC,-1000
CALL PRTDEC1
LD BC,-100
CALL PRTDEC1
LD C,-10
CALL PRTDEC1
LD E,0
LD C,-1
CALL PRTDEC1
POP HL
POP DE
POP BC
RET
PRTDEC1:
LD A,'0' - 1
PRTDEC2:
INC A
ADD HL,BC
JR C,PRTDEC2
SBC HL,BC
CP E
JR Z,PRTDEC3
LD E,0
CALL COUT
PRTDEC3:
RET
;
; PRINT THE HEX BYTE VALUE IN A ; PRINT THE HEX BYTE VALUE IN A
; ;
PRTHEXBYTE: PRTHEXBYTE:
@ -457,9 +409,9 @@ HEXASCII:
HEXCONV: HEXCONV:
AND 0FH ;LOW NIBBLE ONLY AND 0FH ;LOW NIBBLE ONLY
ADD A,90H ADD A,90H
DAA
DAA
ADC A,40H ADC A,40H
DAA
DAA
RET RET
; ;
;**************************** ;****************************
@ -488,40 +440,40 @@ BCD2BYTE:
; [0..99] => [00H..99H] ; [0..99] => [00H..99H]
;***************************** ;*****************************
; ;
BYTE2BCD:
PUSH BC
LD B,10
LD C,-1
BYTE2BCD1:
INC C
SUB B
JR NC,BYTE2BCD1
ADD A,B
LD B,A
LD A,C
ADD A,A
ADD A,A
ADD A,A
ADD A,A
OR B
POP BC
RET
;BYTE2BCD:
; PUSH BC
; LD B,10
; LD C,-1
;BYTE2BCD1:
; INC C
; SUB B
; JR NC,BYTE2BCD1
; ADD A,B
; LD B,A
; LD A,C
; ADD A,A
; ADD A,A
; ADD A,A
; ADD A,A
; OR B
; POP BC
; RET
; ;
; PRINT A BYTE BUFFER IN HEX POINTED TO BY DE ; PRINT A BYTE BUFFER IN HEX POINTED TO BY DE
; REGISTER A HAS SIZE OF BUFFER ; REGISTER A HAS SIZE OF BUFFER
; ;
PRTHEXBUF:
OR A
RET Z ; EMPTY BUFFER
;
LD B,A
PRTHEXBUF1:
CALL PC_SPACE
LD A,(DE)
CALL PRTHEXBYTE
INC DE
DJNZ PRTHEXBUF1
RET
;PRTHEXBUF:
; OR A
; RET Z ; EMPTY BUFFER
;
; LD B,A
;PRTHEXBUF1:
; CALL PC_SPACE
; LD A,(DE)
; CALL PRTHEXBYTE
; INC DE
; DJNZ PRTHEXBUF1
; RET
; ;
; LEFT SHIFT DE:HL BY B BITS (B > 0) ; LEFT SHIFT DE:HL BY B BITS (B > 0)
; ;

5
Source/HBIOS/hbios.inc
View File

@ -146,6 +146,11 @@ BF_SYSINT_SET .EQU $20 ; SET INT VECTOR ADDRESS
; 2 BYTE FUNCTION/SUBFUNCTION : BC_ => BIOS CALL ; 2 BYTE FUNCTION/SUBFUNCTION : BC_ => BIOS CALL
; e.g. LOAD BC, BC_SYSxxxx (avoid load B and C seperately) ; e.g. LOAD BC, BC_SYSxxxx (avoid load B and C seperately)
; ;
BC_SYSRES_INT .EQU BF_SYSRESET * $100 + BF_SYSRES_INT
BC_SYSRES_WARM .EQU BF_SYSRESET * $100 + BF_SYSRES_WARM
BC_SYSRES_COLD .EQU BF_SYSRESET * $100 + BF_SYSRES_COLD
BC_SYSRES_USER .EQU BF_SYSRESET * $100 + BF_SYSRES_USER
;
BC_SYSGET_CIOCNT .EQU BF_SYSGET * $100 + BF_SYSGET_CIOCNT BC_SYSGET_CIOCNT .EQU BF_SYSGET * $100 + BF_SYSGET_CIOCNT
BC_SYSGET_CIOFN .EQU BF_SYSGET * $100 + BF_SYSGET_CIOFN BC_SYSGET_CIOFN .EQU BF_SYSGET * $100 + BF_SYSGET_CIOFN
BC_SYSGET_DIOCNT .EQU BF_SYSGET * $100 + BF_SYSGET_DIOCNT BC_SYSGET_DIOCNT .EQU BF_SYSGET * $100 + BF_SYSGET_DIOCNT

Write Preview
Loading…
Cancel
Save