Browse Source

Update invntdev.asm

Very minor optimization.
pull/586/head
Wayne Warthen 7 months ago
parent
commit
0932a43fe7
No known key found for this signature in database GPG Key ID: 8B34ED29C07EEB0A
  1. 18
      Source/HBIOS/invntdev.asm

18
Source/HBIOS/invntdev.asm

@ -28,15 +28,6 @@
; INIT CODE ; INIT CODE
;***************************************************************************** ;*****************************************************************************
; ;
#if (BIOS == BIOS_WBW)
; Get the current console unit
ld b,BF_SYSPEEK ; HBIOS func: PEEK
ld d,BID_BIOS ; BIOS bank
ld hl,HCB_LOC + HCB_CONDEV ; console unit num in HCB
rst 08 ; do it
ld a,e ; put in A
ld (curcon),a ; save it
#endif
; ;
;***************************************************************************** ;*****************************************************************************
; Main Code starts here ; Main Code starts here
@ -506,7 +497,7 @@ PS_PAD1:
;***************************************************************************** ;*****************************************************************************
; ;
#include "util.asm" #include "util.asm"
#INCLUDE "decode.asm"
#include "decode.asm"
#include "bcd.asm" #include "bcd.asm"
; ;
;======================================================================= ;=======================================================================
@ -526,8 +517,7 @@ COUT:
; ;
; Output character to console via HBIOS ; Output character to console via HBIOS
ld e,a ; output char to E ld e,a ; output char to E
ld a,(curcon) ; get current console
ld c,a ; console unit to C
ld c,CIO_CONSOLE ; output to current HBIOS console
ld b,BF_CIOOUT ; HBIOS func: output char ld b,BF_CIOOUT ; HBIOS func: output char
rst 08 ; HBIOS outputs character rst 08 ; HBIOS outputs character
; ;
@ -692,10 +682,6 @@ PS_STRHDR .TEXT "Unit Device Type Capacity/Mode\r\n"
; ;
HB_BCDTMP .FILL 5,0 ; BCD NUMBER STORAGE (TEMP) HB_BCDTMP .FILL 5,0 ; BCD NUMBER STORAGE (TEMP)
; ;
#if (BIOS == BIOS_WBW)
curcon .db CIO_CONSOLE ; current console unit
#endif
;
;=============================================================================== ;===============================================================================
; ;
; IT IS CRITICAL THAT THE FINAL BINARY BE EXACTLY DEV_SIZ BYTES. ; IT IS CRITICAL THAT THE FINAL BINARY BE EXACTLY DEV_SIZ BYTES.

Loading…
Cancel
Save