More DSKY Cleanup

Source/HBIOS/PPI_Bus.txt

@@ -0,0 +1,39 @@
+
+PPI Signal	PPIDE		PPISD		DSKY		DSKYNG (PROTO)	DSKYNG (FINAL)
+----------	-----		-----		-----		-----		-----
+PA0		<>D0				>ID0		<>D0		<>D0
+PA1		<>D1                            >ID1		<>D1		<>D1
+PA2		<>D2                            >ID2		<>D2		<>D2
+PA3		<>D3                            >ID3		<>D3		<>D3
+PA4		<>D4                            >ID4 /SHUTDOWN	<>D4		<>D4
+PA5		<>D5                            >ID5 /DECODE	<>D5		<>D5
+PA6		<>D6                            >ID6 HEXA/CODEB	<>D6		<>D6
+PA7		<>D7                            >ID7 DAT_COMING	<>D7		<>D7
+
+PB0		<>D8				+<ROW5                          
+PB1             <>D9				+<ROW4                          
+PB2             <>D10				+<ROW3                          
+PB3             <>D11				+<ROW2                          
+PB4             <>D12                           +<ROW1                          
+PB5             <>D13                           +<ROW0                          
+PB6             <>D14				+                               
+PB7             <>D15		<MISO		+                               
+
+PC0		>DA0		>MOSI		>COL0		>A0		>A0
+PC1		>DA1		>CLK		>COL1           		>/WR                
+PC2		>DA2				>COL2           		>/RD                
+PC3		>CS0*				>COL3		>CS&*		>CS&*
+PC4		>CS1*		>/CS				>CS&*		>CS&*
+PC5		>DIOW*						>/WR
+PC6		>DIOR*				>/WR		>/RD
+PC7		>RESET*				>MODE		>RESET		>RESET
+
+* Inverted by adapter
++ Pullup
+& Both signals must be asserted
+
+Compatibility:
+
+- PPISD & DSKY
+- PPIDE & DSKYNG
+- PPISD & DSKYNG

Source/HBIOS/dbgmon.asm

@@ -994,7 +994,7 @@ DSKY_ENTRY:
 ;
 FRONTPANELLOOP:
 	LD	HL,CPUUP		; SET POINTER TO CPU UP MSG
-	CALL	DSKY_SHOWSEG		; DISPLAY UNENCODED
+	CALL	DSKY_SHOW		; DISPLAY UNENCODED
 
   #IF (DSKYMODE == DSKYMODE_NG)
 	CALL 	DSKY_HIGHLIGHTCMDKEYS
@@ -1030,7 +1030,7 @@ FRONTPANELLOOP1:
 ;
 DOBOOT:
 	LD	HL,MSGBOOT		; SET POINTER TO BOOT MESSAGE
-	CALL	DSKY_SHOWSEG		; DISPLAY UNENCODED
+	CALL	DSKY_SHOW		; DISPLAY UNENCODED
 	JP	BOOT			; DO BOOT
 ;
 ;__DOPORTREAD_________________________________________________________________
@@ -1425,7 +1425,7 @@ ENCBUF1:
 	POP	HL			; RESTORE POINTER
 	DJNZ	ENCBUF1			; LOOP THRU ALL BUF POSITIONS
 	LD	HL,DSKY_BUF		; POINT TO DECODED BUFFER
-	CALL	DSKY_SHOWSEG		; DISPLAY IT
+	CALL	DSKY_SHOW		; DISPLAY IT
 	POP	DE			; RESTORE DE
 	POP	BC			; RESTORE BC
 	POP	AF			; RESTORE AF

Source/HBIOS/dsky.asm

@@ -4,31 +4,7 @@
 ;==================================================================================================
 ;
 ; THE DSKY MAY COSESIDE ON THE SAME PPI BUS AS A PPISD.  IT MAY NOT
-; SHARE A PPI BUS WITH A PPIDE.
-;
-PPIA		.EQU 	DSKYPPIBASE + 0	; PORT A
-PPIB		.EQU 	DSKYPPIBASE + 1	; PORT B
-PPIC		.EQU 	DSKYPPIBASE + 2	; PORT C
-PPIX	 	.EQU 	DSKYPPIBASE + 3	; PPI CONTROL PORT
-;
-;		ICM7218A	KEYPAD		PPISD
-;		--------	--------	--------
-; PA0-7		IO0-7
-; PB0-5				COLS 0-5
-; PB6
-; PB7						DO (<SD)
-; PC0				ROW 0		DI (>SD)
-; PC1				ROW 1		CLK (>SD)
-; PC2-3				ROWS 2-3
-; PC4						/CS (PRI)
-; PC5						/CS (SEC)
-; PC6		/WR
-; PC7		MODE
-;
-; DSKY SCAN CODES ARE ONE BYTE: CCRRRRRR
-; BITS 7-6 IDENTFY THE COLUMN OF THE KEY PRESSED
-; BITS 5-0 ARE A BITMAP, WITH A BIT ON TO INDICATE ROW OF KEY PRESSED
-;
+; SHARE A PPI BUS WITH A PPIDE.  SEE PPI_BUS.TXT FOR MORE INFORMATION.
 ;
 ; LED SEGMENTS (BIT VALUES)
 ;
@@ -38,6 +14,10 @@ PPIX	 	.EQU 	DSKYPPIBASE + 3	; PPI CONTROL PORT
 ;	08    10
 ;	+--01--+  80
 ;
+; DSKY SCAN CODES ARE ONE BYTE: CCRRRRRR
+; BITS 7-6 IDENTFY THE COLUMN OF THE KEY PRESSED
+; BITS 5-0 ARE A BITMAP, WITH A BIT ON TO INDICATE ROW OF KEY PRESSED
+;
 ;      ____PC0________PC1________PC2________PC3____
 ; PB5 |	 $20 [D]    $60 [E]    $A0 [F]	  $E0 [BO]
 ; PB4 |	 $10 [A]    $50 [B]    $90 [C]	  $D0 [GO]
@@ -46,6 +26,12 @@ PPIX	 	.EQU 	DSKYPPIBASE + 3	; PPI CONTROL PORT
 ; PB1 |	 $02 [1]    $42 [2]    $82 [3]	  $C2 [EN]
 ; PB0 |	 $01 [FW]   $41 [0]    $81 [BK]	  $C1 [CL]
 ;
+;
+PPIA		.EQU 	DSKYPPIBASE + 0	; PORT A
+PPIB		.EQU 	DSKYPPIBASE + 1	; PORT B
+PPIC		.EQU 	DSKYPPIBASE + 2	; PORT C
+PPIX	 	.EQU 	DSKYPPIBASE + 3	; PPI CONTROL PORT
+;
 ;__DSKY_INIT_________________________________________________________________________________________
 ;
 ;  CONFIGURE PARALLEL PORT AND CLEAR KEYPAD BUFFER
@@ -240,51 +226,57 @@ DSKY_KEYBUF	.DB	0
 #ENDIF	; DSKY_KBD
 ;
 ;==================================================================================================
-; DSKY HEX DISPLAY
+; CONVERT 32 BIT BINARY TO 8 BYTE HEX SEGMENT DISPLAY
 ;==================================================================================================
 ;
-DSKY_HEXOUT:
-	LD	B,DSKY_HEXBUFLEN
-	LD	HL,DSKY_BUF
-	LD	DE,DSKY_HEXBUF
-DSKY_HEXOUT1:
+; HL: ADR OF 32 BIT BINARY
+; DE: ADR OF DEST LED SEGMENT DISPLAY BUFFER (8 BYTES)
+;
+DSKY_BIN2SEG:
+	PUSH	HL
+	PUSH	DE
+	LD	B,4			; 4 BYTES OF INPUT
+	EX	DE,HL
+DSKY_BIN2SEG1:
 	LD	A,(DE)			; FIRST NIBBLE
 	SRL	A
 	SRL	A
 	SRL	A
 	SRL	A
+	PUSH	HL
+	LD	HL,DSKY_HEXMAP
+	CALL	DSKY_ADDHLA
+	LD	A,(HL)
+	POP	HL
 	LD	(HL),A
 	INC	HL
 	LD	A,(DE)			; SECOND NIBBLE
 	AND	0FH
+	PUSH	HL
+	LD	HL,DSKY_HEXMAP
+	CALL	DSKY_ADDHLA
+	LD	A,(HL)
+	POP	HL
 	LD	(HL),A
 	INC	HL
 	INC	DE			; NEXT BYTE
-	DJNZ	DSKY_HEXOUT1
-	LD	HL,DSKY_BUF
-	JR	DSKY_SHOWHEX
+	DJNZ	DSKY_BIN2SEG1
+	POP	DE
+	POP	HL
+	RET
 ;
 ;==================================================================================================
 ; DSKY SHOW BUFFER
 ;   HL: ADDRESS OF BUFFER
-;   ENTER @ SHOWHEX FOR HEX DECODING
-;   ENTER @ SHOWSEG FOR SEGMENT DECODING
 ;==================================================================================================
 ;
-DSKY_SHOWHEX:
-	LD	A,$D0			; 7218 -> (DATA COMING, HEXA DECODE)
-	JR	DSKY_SHOW
-;
-DSKY_SHOWSEG:
-	LD	A,$F0			; 7218 -> (DATA COMING, NO DECODE)
-	JR	DSKY_SHOW
-;
 DSKY_SHOW:
-	PUSH	AF			; SAVE 7218 CONTROL BITS
+	;;PUSH	AF			; SAVE 7218 CONTROL BITS
 	LD	A,82H			; SETUP PPI
 	OUT	(PPIX),A
 	CALL	DSKY_COFF
-	POP	AF
+	;;POP	AF
+	LD	A,$F0			; 7218 -> (DATA COMING, NO DECODE)
 	OUT	(PPIA),A
 	CALL	DSKY_STROBEC		; STROBE COMMAND
 	LD	B,DSKY_BUFLEN		; NUMBER OF DIGITS
@@ -313,11 +305,26 @@ DSKY_COFF:
 ;	CALL	DSKY_DELAY		; WAIT
 	RET
 ;
+;==================================================================================================
+; UTILTITY FUNCTIONS
+;==================================================================================================
+;
+DSKY_ADDHLA:
+	ADD	A,L
+	LD	L,A
+	RET	NC
+	INC	H
+	RET
+;
+;==================================================================================================
+; STORAGE
+;==================================================================================================
+;
 ; CODES FOR NUMERICS
-; HIGH BIT ALWAYS SET TO SUPPRESS DECIMAL POINT
-; CLEAR HIGH BIT TO SHOW DECIMAL POINT
+; HIGH BIT ALWAYS CLEAR TO SUPPRESS DECIMAL POINT
+; SET HIGH BIT TO SHOW DECIMAL POINT
 ;
-DSKY_NUMS:
+DSKY_HEXMAP:
 	.DB	$7B	; 0
 	.DB	$30	; 1
 	.DB	$6D	; 2

Source/HBIOS/dskyng.asm

@@ -4,6 +4,7 @@
 ;==================================================================================================
 ;
 ; A DSKYNG CAN SHARE A PPI BUS WITH EITHER A PPIDE OR PPISD.
+;   SEE PPI_BUS.TXT FOR MORE INFORMATION.
 ;
 ; LED SEGMENTS (BIT VALUES)
 ;
@@ -198,21 +199,25 @@ DSKY_KEYMAP:
 #ENDIF	; DSKY_KBD
 ;
 ;==================================================================================================
-; DSKY HEX DISPLAY
+; CONVERT 32 BIT BINARY TO 8 BYTE HEX SEGMENT DISPLAY
 ;==================================================================================================
 ;
-DSKY_HEXOUT:
-	LD	B,DSKY_HEXBUFLEN
-	LD	HL,DSKY_BUF
-	LD	DE,DSKY_HEXBUF
-DSKY_HEXOUT1:
+; HL: ADR OF 32 BIT BINARY
+; DE: ADR OF DEST LED SEGMENT DISPLAY BUFFER (8 BYTES)
+;
+DSKY_BIN2SEG:
+	PUSH	HL
+	PUSH	DE
+	LD	B,4			; 4 BYTES OF INPUT
+	EX	DE,HL
+DSKY_BIN2SEG1:
 	LD	A,(DE)			; FIRST NIBBLE
 	SRL	A
 	SRL	A
 	SRL	A
 	SRL	A
 	PUSH	HL
-	LD	HL,HEXMAP
+	LD	HL,DSKY_HEXMAP
 	CALL	DSKY_ADDHLA
 	LD	A,(HL)
 	POP	HL
@@ -221,49 +226,40 @@ DSKY_HEXOUT1:
 	LD	A,(DE)			; SECOND NIBBLE
 	AND	0FH
 	PUSH	HL
-	LD	HL,HEXMAP
+	LD	HL,DSKY_HEXMAP
 	CALL	DSKY_ADDHLA
 	LD	A,(HL)
 	POP	HL
 	LD	(HL),A
 	INC	HL
 	INC	DE			; NEXT BYTE
-	DJNZ	DSKY_HEXOUT1
-	LD	HL,DSKY_BUF
-	JR	DSKY_SHOW
+	DJNZ	DSKY_BIN2SEG1
+	POP	DE
+	POP	HL
+	RET
 ;
 ;==================================================================================================
 ; DSKY SHOW BUFFER
 ;   HL: ADDRESS OF BUFFER
-;   ENTER @ SHOWHEX FOR HEX DECODING
-;   ENTER @ SHOWSEG FOR SEGMENT DECODING
 ;==================================================================================================
 ;
-DSKY_SHOWHEX:
-	JR	DSKY_SHOW
-;
-DSKY_SHOWSEG:
-	JR	DSKY_SHOW
-;
 DSKY_SHOW:
-;	PUSH	HL
-;	CALL	DSKY_RESET
-;	POP	HL
 	LD	C,0			; STARTING DISPLAY POSITION
 	LD	B,DSKY_BUFLEN		; NUMBER OF CHARS
 	JP	DSKY_PUTSTR
 ;
+;==================================================================================================
+; DSKYNG OUTPUT ROUTINES
+;==================================================================================================
 ;
-;
-;
-; COMMAND IN A
+; SEND DSKY COMMAND BYTE IN REGISTER A
 ; TRASHES BC
 ;
 DSKY_CMD:
 	LD	B,$01
 	JR	DSKY_DOUT2
 ;
-; DATA VALUE IN A
+; SEND DSKY DATA BYTE IN REGISTER A
 ; TRASHES BC
 ;
 DSKY_DOUT:
@@ -317,21 +313,25 @@ DSKY_DOUT2:
 	CALL	DSKY_PPIIDLE
 	RET
 ;
-; STATUS VALUE IN A
+;==================================================================================================
+; DSKYNG OUTPUT ROUTINES
+;==================================================================================================
+;
+; RETURN DSKY STATUS VALUE IN A
 ; TRASHES BC
 ;
 DSKY_ST:
 	LD	B,$01
 	JR	DSKY_DIN2
 ;
-; DATA VALUE RETURNED IN A
+; RETURN NEXT DATA VALUE IN A
 ; TRASHES BC
 ;
 DSKY_DIN:
 	LD	B,$00
 ;
 DSKY_DIN2:
-	; SET PPI LINE CONFIG TO WRITE MODE
+	; SET PPI LINE CONFIG TO READ MODE
 	CALL	DSKY_PPIRD
 ;
 	; SETUP
@@ -374,7 +374,11 @@ DSKY_DIN2:
 	CALL	DSKY_PPIIDLE
 	RET
 ;
-; BLANK THE DISPLAY (WITHOUT USING CLEAR)
+;==================================================================================================
+; DSKYNG UTILITY ROUTINES
+;==================================================================================================
+;
+; BLANK DSKYNG DISPLAY  (WITHOUT USING CLEAR)
 ;
 DSKY_BLANK:
 	LD	A,DSKY_CMD_WDSP
@@ -456,39 +460,13 @@ DSKY_GETSTR1:
 	DJNZ	DSKY_GETSTR1
 	RET
 ;
-; HL IS ADR OF ENCODED STRING OF BYTES
-; B IS LEN OF STRING (BYTES)
-; C IS POSITION IN DISPLAY RAM TO WRITE
-;
-DSKY_PUTENCSTR:
-	PUSH	BC
-	LD	A,C
-	ADD	A,DSKY_CMD_WDSP
-	CALL	DSKY_CMD
-	POP	BC
-	EX	DE,HL
-DSKY_PUTENCSTR1:
-	LD	A,(DE)
-	INC	DE
-	LD	HL,HEXMAP
-	CALL	DSKY_ADDHLA
-	LD	A,(HL)
-	XOR	$FF
-	PUSH	BC
-	CALL	DSKY_DOUT
-	POP	BC
-	DJNZ	DSKY_PUTENCSTR1
-	RET
-
-;
-;	This function is intended to update the LEDs.  It expects 8 bytes following the call, and
-;	updates the entire matrix.
+;	This function is intended to update the LEDs.  It expects 8 bytes
+;	following the call, and	updates the entire matrix.
 ;
 ;  EXAMPLE:
 ;	CALL 	DSKY_PUTLED
 ;	.DB 	$00,$00,$00,$00,$00,$00,$00,$00
 ;
-;
 DSKY_PUTLED:
         EX	(SP),HL
 	PUSH	AF
@@ -508,41 +486,38 @@ DSKY_PUTLED_1:
         POP	AF
 	EX	(SP),HL
 	RET
-
 ;
 ;	This function is intended to beep the speaker on the DSKY
 ;
-;
 DSKY_BEEP:
 	PUSH	AF
 	PUSH	BC
 
 	LD 	C,$0F
 	CALL	DSKY_GETBYTE
-	or 	$20
+	OR 	$20
 	LD 	C,$0F
 	CALL	DSKY_PUTBYTE
 
 ;;; 	timer . . .
 	PUSH	HL
-	ld 	hl,$8FFF
+	LD 	hl,$8FFF
 DSKY_BEEP1:
-	dec 	hl
-	ld 	a,H
-	cp 	0
-	jp 	nz,DSKY_BEEP1
-	pop 	hl
+	DEC 	HL
+	LD 	A,H
+	CP 	0
+	JP 	NZ,DSKY_BEEP1
+	POP 	HL
 
 	LD 	C,$0F
 	CALL	DSKY_GETBYTE
-	and  	$DF
+	AND  	$DF
 	LD 	C,$0F
 	CALL	DSKY_PUTBYTE
 
 	POP	BC
         POP	AF
 	RET
-
 ;
 ;	This function is intended to turn on DSKY L1
 ;
@@ -552,14 +527,13 @@ DSKY_L1ON:
 
 	LD 	C,$0D
 	CALL	DSKY_GETBYTE
-	or 	$20
+	OR 	$20
 	LD 	C,$0D
 	CALL	DSKY_PUTBYTE
 
 	POP	BC
         POP	AF
 	RET
-
 ;
 ;	This function is intended to turn on DSKY L2
 ;
@@ -569,14 +543,13 @@ DSKY_L2ON:
 
 	LD 	C,$0E
 	CALL	DSKY_GETBYTE
-	or 	$20
+	OR 	$20
 	LD 	C,$0E
 	CALL	DSKY_PUTBYTE
 
 	POP	BC
         POP	AF
 	RET
-
 ;
 ;	This function is intended to turn off DSKY L1
 ;
@@ -586,14 +559,13 @@ DSKY_L1OFF:
 
 	LD 	C,$0D
 	CALL	DSKY_GETBYTE
-	and 	$DF
+	AND 	$DF
 	LD 	C,$0D
 	CALL	DSKY_PUTBYTE
 
 	POP	BC
         POP	AF
 	RET
-
 ;
 ;	This function is intended to turn off DSKY L2
 ;
@@ -603,16 +575,17 @@ DSKY_L2OFF:
 
 	LD 	C,$0E
 	CALL	DSKY_GETBYTE
-	and 	$DF
+	AND 	$DF
 	LD 	C,$0E
 	CALL	DSKY_PUTBYTE
 
 	POP	BC
         POP	AF
 	RET
-
-
-
+;
+;==================================================================================================
+; DSKYNG LINE CONTROL ROUTINES
+;==================================================================================================
 ;
 ; SETUP PPI FOR WRITING: PUT PPI PORT A IN OUTPUT MODE
 ; AVOID REWRTING PPIX IF ALREADY IN OUTPUT MODE
@@ -639,15 +612,6 @@ DSKY_PPIWR1:
 	POP	AF
 	RET
 ;
-;
-;
-DSKY_ADDHLA:
-	ADD	A,L
-	LD	L,A
-	RET	NC
-	INC	H
-	RET
-;
 ; SETUP PPI FOR READING: PUT PPI PORT A IN INPUT MODE
 ; AVOID REWRTING PPIX IF ALREADY IN INPUT MODE
 ;
@@ -664,10 +628,6 @@ DSKY_PPIRD:
 	OUT	(PPIX),A
 	LD	(DSKY_PPIX_VAL),A
 ;
-;	; DIAGNOSTIC
-;	LD	A,'R'
-;	CALL	COUT
-;
 DSKY_PPIRD1:
 	POP	AF
 	RET
@@ -677,12 +637,26 @@ DSKY_PPIRD1:
 DSKY_PPIIDLE:
 	JR	DSKY_PPIRD		; SAME AS READ MODE
 ;
+;==================================================================================================
+; UTILTITY FUNCTIONS
+;==================================================================================================
+;
+DSKY_ADDHLA:
+	ADD	A,L
+	LD	L,A
+	RET	NC
+	INC	H
+	RET
+;
+;==================================================================================================
+; STORAGE
+;==================================================================================================
+;
 ; CODES FOR NUMERICS
 ; HIGH BIT ALWAYS CLEAR TO SUPPRESS DECIMAL POINT
 ; SET HIGH BIT TO SHOW DECIMAL POINT
 ;
-HEXMAP:
-DSKY_NUMS:
+DSKY_HEXMAP:
 	.DB	$3F	; 0
 	.DB	$06	; 1
 	.DB	$5B	; 2

Source/HBIOS/hbios.asm

@@ -1431,20 +1431,18 @@ SAVE_REC_M:
 	CALL	DSKY_INIT
 
 	LD	HL,MSG_HBVER +  5
-	LD	A,(DSKY_NUMS + RMJ)
-	;AND	$7F
+	LD	A,(DSKY_HEXMAP + RMJ)
 	OR	$80
 	LD	(HL),A
 	INC	HL
-	LD	A,(DSKY_NUMS + RMN)
-	;AND	$7F
+	LD	A,(DSKY_HEXMAP + RMN)
 	OR	$80
 	LD	(HL),A
 	INC	HL
-	LD	A,(DSKY_NUMS + RUP)
+	LD	A,(DSKY_HEXMAP + RUP)
 	LD	(HL),A
 	LD	HL,MSG_HBVER
-	CALL	DSKY_SHOWSEG
+	CALL	DSKY_SHOW
 #ENDIF
 ;
 #IF (WBWDEBUG == USEMIO)		; BUFFER OUTPUT UNTIL
@@ -2862,7 +2860,11 @@ HB_DSKFUNC	.DB	0		; CURRENT DISK FUNCTION
 ;
 ; THE CURRENT DISK UNIT NUMBER WILL BE DISPLAYED IN THE FIRST
 ; 2 SEG DISPLAYS.  THE LOWER 24 BITS OF THE SECTOR WILL BE
-; DISPLAYED IN THE LAST 6 SEG DISPLAYS
+; DISPLAYED IN THE LAST 6 SEG DISPLAYS.
+;
+; A DOT IS DISPLAYED TO SEPARATE THE UNIT NUMBER FROM THE ADDRESS
+; DISPLAY.  ALSO, A TRAILING DOT IS DISPLAYED IF THE I/O FUNCTION
+; IS A WRITE.
 ;
 ;   HL: ADDRESS OF 32-BIT SECTOR NUMBER (LITTLE-ENDIAN)
 ;   ALL REGISTERS PERSERVED
@@ -2882,7 +2884,22 @@ HB_DSKACT1:
 	DJNZ	HB_DSKACT1		; LOOP
 	LD	A,(HB_DSKUNIT)		; GET DISK UNIT NUM
 	LD	(DE),A			; PUT AT HEAD OF BUF
-	CALL	DSKY_HEXOUT		; DISPLAY ON DSKY
+HB_DSKACT2:
+	LD	HL,DSKY_HEXBUF		; BINARY BUF
+	LD	DE,DSKY_BUF		; DISPLAY BUF
+	CALL	DSKY_BIN2SEG		; CONVERT TO SEG DISPLAY BUF
+	LD	A,(DSKY_BUF+1)		; SECOND SEGMENT
+	OR	%10000000		; TURN ON DOT
+	LD	(DSKY_BUF+1),A		; SAVE IT
+	LD	A,(HB_DSKFUNC)		; GET CURRENT I/O FUNCTION
+	CP	BF_DIOWRITE		; IS IT A WRITE?
+	JR	NZ,HB_DSKACT3		; IF NOT, NO DOT, SKIP AHEAD
+	LD	A,(DSKY_BUF+7)		; LAST SEGMENT
+	OR	%10000000		; TURN ON DOT
+	LD	(DSKY_BUF+7),A		; SAVE IT
+HB_DSKACT3:
+	EX	DE,HL			; SEG DISPLAY BUF TO HL
+	CALL	DSKY_SHOW		; DISPLAY ON DSKY
 	POP	HL
 	POP	DE
 	POP	BC
@@ -2892,6 +2909,10 @@ HB_DSKACT1:
 ; THIS IS THE CHS VARIANT OF THE ABOVE.  THIS IS USED BY CHS ORIENTED
 ; DISK DRIVERS (BASICALLY JUST FLOPPY).
 ;
+; THE CURRENT DISK UNIT NUMBER WILL BE DISPLAYED IN THE FIRST
+; 2 SEG DISPLAYS.  THE TRACK, HEAD, AND SECTOR WILL BE DISPLAYED IN
+; THE LAST 6 SEG DISPLAYS
+;
 ;   HL: ADDRESS OF CYL,HD,SEC IN THE FORMAT CCSH
 ;   ALL REGISTERS PRESERVED
 ;
@@ -2916,14 +2937,7 @@ HB_DSKACTCHS:
 	DEC	HL			; BACK TO SECTOR
 	LD	A,(HL)			; GET SECTOR
 	LD	(DE),A			; ADD TO BUF
-	CALL	DSKY_HEXOUT		; DISPLAY ON DSKY
-	POP	HL
-	POP	DE
-	POP	BC
-	POP	AF
-	RET
-;
-HB_HEXBUF	.FILL	4,0		; 4 BYTE HEX DISPLAY BUFFER
+	JR	HB_DSKACT2
 ;
 #ENDIF
 ;

Source/HBIOS/romldr.asm

@@ -208,7 +208,7 @@ prompt:
 #if (DSKYENABLE)
 	call	DSKY_RESET		; clear DSKY
 	ld	hl,msg_sel		; boot select msg
-	call	DSKY_SHOWSEG		; show on DSKY
+	call	DSKY_SHOW		; show on DSKY
 
  #IF (DSKYMODE == DSKYMODE_NG)
 	call 	DSKY_PUTLED
@@ -606,7 +606,7 @@ reboot:
 ;
 #if (DSKYENABLE)
 	ld	hl,msg_boot		; point to boot message
-	call	DSKY_SHOWSEG		; display message
+	call	DSKY_SHOW		; display message
 #endif
 ;
 	; cold boot system
@@ -638,7 +638,7 @@ romload:
 ;
 #if (DSKYENABLE)
 	ld	hl,msg_load		; point to load message
-	call	DSKY_SHOWSEG		; display message
+	call	DSKY_SHOW		; display message
 #endif
 ;
 #if (BIOS == BIOS_WBW)
@@ -722,7 +722,7 @@ romload1:
 ;
 #if (DSKYENABLE)
 	ld	hl,msg_go		; point to go message
-	call	DSKY_SHOWSEG		; display message
+	call	DSKY_SHOW		; display message
 #endif
 ;
 	ld	l,(ix+ra_ent)		; HL := app entry address
@@ -747,7 +747,7 @@ diskboot:
 ;
 #if (DSKYENABLE)
 	ld	hl,msg_load		; point to load message
-	call	DSKY_SHOWSEG		; display message
+	call	DSKY_SHOW		; display message
 #endif
 ;
 #if (BIOS == BIOS_WBW)
@@ -1031,7 +1031,7 @@ diskboot10:
 ;
 #if (DSKYENABLE)
 	ld	hl,msg_go		; point to go message
-	call	DSKY_SHOWSEG		; display message
+	call	DSKY_SHOW		; display message
 #endif
 ;
 	; Jump to entry vector

Source/ver.inc

@@ -2,4 +2,4 @@
 #DEFINE	RMN	1
 #DEFINE	RUP	1
 #DEFINE	RTP	0
-#DEFINE BIOSVER	"3.1.1-pre.89"
+#DEFINE BIOSVER	"3.1.1-pre.90"

Source/ver.lib

@@ -3,5 +3,5 @@ rmn	equ	1
 rup	equ	1
 rtp	equ	0
 biosver	macro
-	db	"3.1.1-pre.89"
+	db	"3.1.1-pre.90"
 	endm