mirror of https://github.com/wwarthen/RomWBW.git
b1ackmai1er
6 years ago
committed by
GitHub
GitHub
37 changed files with 723 additions and 415 deletions
@ -0,0 +1,33 @@ |
|||||
|
|
||||
|
|
||||
|
CLI_ABRT_IF_OPT_FIRST: |
||||
|
LD A, (FCB+1) |
||||
|
CP '-' ; OPTION FIRST OR - MISSING FILENAME? |
||||
|
JP Z, ERRCMD ; SHOW USAGE |
||||
|
RET |
||||
|
|
||||
|
CLI_HAVE_HBIOS_SWITCH: |
||||
|
LD HL, CLIARGS ; TEST FOR --HBIOS ON COMNMAND LINE |
||||
|
LD DE, HBIOSOPT |
||||
|
CALL STRINDEX |
||||
|
JR NZ, CLI_HAVE_HBIOS_SWITCH1 |
||||
|
OR $FF ; IS NOT HBIOS |
||||
|
LD (HBIOSMD), A |
||||
|
RET |
||||
|
CLI_HAVE_HBIOS_SWITCH1: |
||||
|
AND 0 ; IS HBIOS |
||||
|
LD (HBIOSMD), A |
||||
|
RET |
||||
|
|
||||
|
CLI_ABRT_UNSUPPFILTYP: |
||||
|
PUSH AF |
||||
|
ISHBIOS |
||||
|
JR Z, CLI_ABRT_UNSUPPFILTYP1 |
||||
|
POP AF |
||||
|
CP TYPMYM |
||||
|
RET NZ |
||||
|
ERRWITHMSG(MSGUNSUP) ; EXIT WITH UNSUPPORTED FILE TYPE MESSAGE |
||||
|
|
||||
|
CLI_ABRT_UNSUPPFILTYP1: |
||||
|
POP AF |
||||
|
RET |
||||
@ -0,0 +1,4 @@ |
|||||
|
CLIARGS .EQU $81 |
||||
|
RESTART .EQU $0000 ; CP/M restart vector |
||||
|
BDOS .EQU $0005 ; BDOS invocation vector |
||||
|
FCB .EQU $5C ; Location of default FCB |
||||
@ -0,0 +1,15 @@ |
|||||
|
IDENT .EQU $FFFE ; loc of RomWBW HBIOS ident ptr |
||||
|
; |
||||
|
RMJ .EQU 3 ; intended CBIOS version - major |
||||
|
RMN .EQU 1 ; intended CBIOS version - minor |
||||
|
; |
||||
|
BF_SYSVER .EQU $F1 ; BIOS: VER function |
||||
|
BF_SYSGET .EQU $F8 ; HBIOS: SYSGET function |
||||
|
; |
||||
|
|
||||
|
BF_SND .EQU $50 |
||||
|
BF_SNDRESET .EQU BF_SND + 0 ; RESET SOUND SYSTEM |
||||
|
BF_SNDVOL .EQU BF_SND + 1 ; REQUEST SOUND VOL - D IS CHANNEL, E CONTAINS VOLUME (255 MAX, 0 SILENT) - SCALED AS REQUIRED BY DRIVER (EG: MAPS TO JUST 4 BIT RESOLUTION FOR SN76489) |
||||
|
BF_SNDPIT .EQU BF_SND + 2 ; REQUEST SOUND PITCH - D IS CHANNEL, HL CONTAINS PITCH (0 LOWEST NOTE, FFFF HIGHEST NOTE) - SCALED BY DRIVER (EG: MAPS TO JUST 10 BITS FOR SN76489 ) |
||||
|
BF_SNDPLAY .EQU BF_SND + 4 ; INITIATE THE REQUESTED SOUND COMMAND |
||||
|
BF_SNDQUERY .EQU BF_SND + 5 ; D IS CHANNEL, E IS SUBCOMMAND |
||||
@ -0,0 +1,175 @@ |
|||||
|
; |
||||
|
; Print character in A without destroying any registers |
||||
|
; |
||||
|
PRTCHR: |
||||
|
PUSH BC ; save registers |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
LD E,A ; character to print in E |
||||
|
LD C,$02 ; BDOS function to output a character |
||||
|
CALL BDOS ; do it |
||||
|
POP HL ; restore registers |
||||
|
POP DE |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
PRTDOT: |
||||
|
; |
||||
|
; shortcut to print a dot preserving all regs |
||||
|
PUSH AF ; save af |
||||
|
LD A,'.' ; load dot char |
||||
|
CALL PRTCHR ; print it |
||||
|
POP AF ; restore af |
||||
|
RET ; done |
||||
|
; |
||||
|
PRTCR: |
||||
|
; |
||||
|
; shortcut to print a dot preserving all regs |
||||
|
PUSH AF ; save af |
||||
|
LD A,13 ; load CR value |
||||
|
CALL PRTCHR ; print it |
||||
|
POP AF ; restore af |
||||
|
RET ; done |
||||
|
; |
||||
|
; Print a zero terminated string at (DE) without destroying any registers |
||||
|
; |
||||
|
PRTSTR: |
||||
|
PUSH DE |
||||
|
; |
||||
|
PRTSTR1: |
||||
|
LD A,(DE) ; get next char |
||||
|
OR A |
||||
|
JR Z,PRTSTR2 |
||||
|
CALL PRTCHR |
||||
|
INC DE |
||||
|
JR PRTSTR1 |
||||
|
; |
||||
|
PRTSTR2: |
||||
|
POP DE ; restore registers |
||||
|
RET |
||||
|
; |
||||
|
; Print the value in A in hex without destroying any registers |
||||
|
; |
||||
|
PRTHEX: |
||||
|
PUSH AF ; save AF |
||||
|
PUSH DE ; save DE |
||||
|
CALL HEXASCII ; convert value in A to hex chars in DE |
||||
|
LD A,D ; get the high order hex char |
||||
|
CALL PRTCHR ; print it |
||||
|
LD A,E ; get the low order hex char |
||||
|
CALL PRTCHR ; print it |
||||
|
POP DE ; restore DE |
||||
|
POP AF ; restore AF |
||||
|
RET ; done |
||||
|
; |
||||
|
; print the hex word value in bc |
||||
|
; |
||||
|
PRTHEXWORD: |
||||
|
PUSH AF |
||||
|
LD A,B |
||||
|
CALL PRTHEX |
||||
|
LD A,C |
||||
|
CALL PRTHEX |
||||
|
POP AF |
||||
|
RET |
||||
|
; |
||||
|
; print the hex dword value in de:hl |
||||
|
; |
||||
|
PRTHEX32: |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
POP BC |
||||
|
CALL PRTHEXWORD |
||||
|
PUSH HL |
||||
|
POP BC |
||||
|
CALL PRTHEXWORD |
||||
|
POP BC |
||||
|
RET |
||||
|
; |
||||
|
; Convert binary value in A to ascii hex characters in DE |
||||
|
; |
||||
|
HEXASCII: |
||||
|
LD D,A ; save A in D |
||||
|
CALL HEXCONV ; convert low nibble of A to hex |
||||
|
LD E,A ; save it in E |
||||
|
LD A,D ; get original value back |
||||
|
RLCA ; rotate high order nibble to low bits |
||||
|
RLCA |
||||
|
RLCA |
||||
|
RLCA |
||||
|
CALL HEXCONV ; convert nibble |
||||
|
LD D,A ; save it in D |
||||
|
RET ; done |
||||
|
|
||||
|
; |
||||
|
; Convert low nibble of A to ascii hex |
||||
|
; |
||||
|
HEXCONV: |
||||
|
AND $0F ; low nibble only |
||||
|
ADD A,$90 |
||||
|
DAA |
||||
|
ADC A,$40 |
||||
|
DAA |
||||
|
RET |
||||
|
|
||||
|
; |
||||
|
; Print value of A or HL in decimal with leading zero suppression |
||||
|
; Use prtdecb for A or prtdecw for HL |
||||
|
; |
||||
|
PRTDECB: |
||||
|
PUSH HL |
||||
|
LD H,0 |
||||
|
LD L,A |
||||
|
CALL PRTDECW ; print it |
||||
|
POP HL |
||||
|
RET |
||||
|
; |
||||
|
PRTDECW: |
||||
|
PUSH AF |
||||
|
PUSH BC |
||||
|
PUSH DE |
||||
|
PUSH HL |
||||
|
CALL PRTDEC0 |
||||
|
POP HL |
||||
|
POP DE |
||||
|
POP BC |
||||
|
POP AF |
||||
|
RET |
||||
|
; |
||||
|
PRTDEC0: |
||||
|
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 |
||||
|
PRTDEC1: |
||||
|
LD A,'0' - 1 |
||||
|
PRTDEC2: |
||||
|
INC A |
||||
|
ADD HL,BC |
||||
|
JR C,PRTDEC2 |
||||
|
SBC HL,BC |
||||
|
CP E |
||||
|
RET Z |
||||
|
LD E,0 |
||||
|
CALL PRTCHR |
||||
|
RET |
||||
|
; |
||||
|
; Start a new line |
||||
|
; |
||||
|
CRLF2: |
||||
|
CALL CRLF ; two of them |
||||
|
CRLF: |
||||
|
PUSH AF ; preserve AF |
||||
|
LD A,13 ; <CR> |
||||
|
CALL PRTCHR ; print it |
||||
|
LD A,10 ; <LF> |
||||
|
CALL PRTCHR ; print it |
||||
|
POP AF ; restore AF |
||||
|
RET |
||||
@ -0,0 +1,39 @@ |
|||||
|
STRINDEX: ; SEARCH FOR STRING AT DE WITHIN STRING AT HL |
||||
|
|
||||
|
LD B, 0 |
||||
|
LD C, 0 |
||||
|
|
||||
|
TRYNEXT: |
||||
|
PUSH HL |
||||
|
PUSH DE |
||||
|
CALL STRCMP |
||||
|
POP DE |
||||
|
POP HL |
||||
|
RET Z |
||||
|
|
||||
|
INC HL |
||||
|
INC BC |
||||
|
LD A, (HL) |
||||
|
OR A |
||||
|
JR NZ, TRYNEXT |
||||
|
|
||||
|
OR $FF ; RETURN NZ |
||||
|
RET |
||||
|
|
||||
|
STRCMP: ; COMPARE STRING AT HL WITH DE - RETURN Z IF LIKE |
||||
|
LD A, (DE) |
||||
|
OR A |
||||
|
RET Z |
||||
|
|
||||
|
LD B, A |
||||
|
LD A, (HL) |
||||
|
OR A |
||||
|
JR NZ, STRCMP1 |
||||
|
OR $FF ; END OF STRING HL - SO NOT FOUND |
||||
|
RET |
||||
|
STRCMP1 |
||||
|
CP B |
||||
|
RET NZ |
||||
|
INC HL |
||||
|
INC DE |
||||
|
JR STRCMP |
||||
@ -0,0 +1,60 @@ |
|||||
|
|
||||
|
; |
||||
|
; Wait for quark play time. Can use hardware timer if |
||||
|
; supported by hardware or simple delay loop otherwise. |
||||
|
; Delay loop requires QDLY to be pre-set to to achieve |
||||
|
; optimal 20ms wait time. |
||||
|
; |
||||
|
WAITQ LD A,(WMOD) ; Get delay mode |
||||
|
OR A ; Set flags |
||||
|
JR Z,DLY ; Delay mode |
||||
|
; |
||||
|
; Timer loop |
||||
|
CALL TIM2 ; Read timer LSB into A |
||||
|
LD C,A ; Init prev value |
||||
|
TIM1 PUSH BC ; Save prev value |
||||
|
CALL TIM2 ; Read timer LSB into A |
||||
|
POP BC ; Recover prev value |
||||
|
CP C ; Compare to prev |
||||
|
RET NZ ; Done if changed |
||||
|
JR TIM1 ; Else, loop |
||||
|
; |
||||
|
TIM2 LD B,$F8 ; BIOS SYSGET function |
||||
|
LD C,$D0 ; TIMER sub-function |
||||
|
RST 08 ; Call BIOS |
||||
|
LD A,L ; MSB to A |
||||
|
RET ; Return to loop |
||||
|
; |
||||
|
; Delay spin loop (40 tstates per loop) |
||||
|
DLY LD BC,(QDLY) ; Load quark delay factor |
||||
|
DLY1 DEC BC ; [6] |
||||
|
NOP ; [4] |
||||
|
NOP ; [4] |
||||
|
NOP ; [4] |
||||
|
NOP ; [4] |
||||
|
LD A,B ; [4] |
||||
|
OR C ; [4] |
||||
|
JP NZ,DLY1 ; [10] |
||||
|
RET |
||||
|
|
||||
|
; |
||||
|
; Test for timer running to determine if it can be used for delay |
||||
|
; Return string message in DE |
||||
|
; Assigned (WMOD) with 0 if no hardware time, 1 if hardware timer found |
||||
|
; |
||||
|
PROBETIMER: |
||||
|
LD B,BF_SYSGET ; HBIOS: GET function |
||||
|
LD C,$D0 ; TIMER subfunction |
||||
|
RST 08 ; DE:HL := current tick count |
||||
|
LD A,L ; DE:HL == 0? |
||||
|
OR H |
||||
|
OR E |
||||
|
OR D |
||||
|
LD A,0 ; Assume no timer |
||||
|
LD DE,MSGDLY ; Delay mode msg |
||||
|
JR Z,SETDLY ; If tick count is zero, no timer active |
||||
|
LD A,$FF ; Value for timer active |
||||
|
LD DE,MSGTIM ; Timer mode msg |
||||
|
SETDLY: |
||||
|
LD (WMOD),A ; Save wait mode |
||||
|
RET |
||||
@ -0,0 +1,4 @@ |
|||||
|
#DEFINE ISHBIOS LD A, (HBIOSMD) \ OR A |
||||
|
#DEFINE PRTSTRDE(X) LD DE, X \ CALL PRTSTR |
||||
|
#DEFINE PRTCRLF CALL CRLF |
||||
|
#DEFINE ERRWITHMSG(X) LD DE, X \ JP ERR |
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
Reference in new issue