From 1628c51bd6ccda7ac482f96a98b38d5d10eacc44 Mon Sep 17 00:00:00 2001
From: b1ackmai1er <difficultylevelhigh@gmail.com>
Date: Sat, 12 Oct 2019 01:28:06 +0800
Subject: [PATCH] Update nascom.asm

Remove debug code
---
 Source/HBIOS/nascom.asm | 91 -----------------------------------------
 1 file changed, 91 deletions(-)

diff --git a/Source/HBIOS/nascom.asm b/Source/HBIOS/nascom.asm
index df498552..c61fcb4b 100644
--- a/Source/HBIOS/nascom.asm
+++ b/Source/HBIOS/nascom.asm
@@ -4484,8 +4484,6 @@ SPK_OCTDIV:
 
 SPK_OCTOK:
 
-	CALL	DISP
-
 	POP	BC		; MULTIPLY CHL X B
 	PUSH	HL		; SAVE
 
@@ -4511,8 +4509,6 @@ MULDLP:	DJNZ	MULSKP		; DIVIDE BY 8
 	POP	DE
 	EX	DE,HL
 
-	CALL	DISP
-
 ;	The following SPK_BEEPER routine is a modification of code from 
 ;	"The Complete SPECTRUM ROM DISSASSEMBLY" by Dr Ian Logan & Dr Frank O’Hara
 ;	https://www.esocop.org/docs/CompleteSpectrumROMDisassemblyThe.pdf
@@ -4611,8 +4607,6 @@ FRQ_AJ1:SLA	C		; C<C<0	; DEHL = DEHL - (2 * CPUKHZ)
 
 FRQ_AJ2:	; AT THIS POINT DEHL = CPUKHZ * 125 E.G.  9982 KHZ * 125 = 0012:DE14
 
-;	CALL	DISP
-
 	PUSH	HL			; DEHL = CPUKHZ / 8) / FREQUENCY
 	POP	IX			; HLIX = DENOMINATOR
 	EX	DE,HL
@@ -4661,91 +4655,6 @@ DUROVF:	LD	(IY+2),E
 	DJNZ	TBL_LP			; LOOP COUNTER
 
 	RET
-
-DISP:	
-	PUSH	BC
-	PUSH	DE
-	PUSH	HL
-
-	PUSH	DE
-	POP	BC
-	CALL	PRTHEXWORD
-
-	LD	A,' '
-	CALL	MONOUT
-
-	PUSH	HL
-	POP	BC
-	CALL	PRTHEXWORD
-
-	LD	A,' '
-	CALL	MONOUT
-
-	POP	HL
-	POP	DE
-	POP	BC
-	RET
-
-PRTHEXBYTE:
-	PUSH	AF
-	PUSH	DE
-	CALL	HEXASCII
-	LD	A,D
-	CALL	MONOUT
-	LD	A,E
-	CALL	MONOUT
-	POP	DE
-	POP	AF
-	RET
-;
-; PRINT THE HEX WORD VALUE IN BC
-;
-PRTHEXWORD:
-	PUSH	AF
-	LD	A,B
-	CALL	PRTHEXBYTE
-	LD	A,C
-	CALL	PRTHEXBYTE
-	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
-	CALL	HEXCONV
-	LD	E,A
-	LD	A,D
-	RLCA
-	RLCA
-	RLCA
-	RLCA
-	CALL	HEXCONV
-	LD	D,A
-	RET
-;
-; CONVERT LOW NIBBLE OF A TO ASCII HEX
-;
-HEXCONV:
-	AND	0FH	     ;LOW NIBBLE ONLY
-	ADD	A,90H
-	DAA
-	ADC	A,40H
-	DAA
-	RET
 ;
 ;	ONE OCTAVE TONE TABLE IN FREQUENCY, DURATION FORMAT. TO COMPENSATE FOR DIFFERENT
 ;	CPU FREQUENCIES THE DURATION IS CALCULATED AND POPULATED AT STARTUP. DIFFERENT OCTAVE