Put debug output behind debug define in io.asm
This commit is contained in:
parent
1c62da4e2d
commit
48436ef9bd
1 changed files with 17 additions and 0 deletions
17
io.asm
17
io.asm
|
@ -1,6 +1,8 @@
|
||||||
; SPDX-License-Identifier: MIT
|
; SPDX-License-Identifier: MIT
|
||||||
; Copyright (c) 2021 Juhani 'nortti' Krekelä.
|
; Copyright (c) 2021 Juhani 'nortti' Krekelä.
|
||||||
|
|
||||||
|
debug equ 1
|
||||||
|
|
||||||
iosegment equ 60h
|
iosegment equ 60h
|
||||||
dossegment equ iosegment + 1*1024/16 ; DOS starts 1KiB after IO system
|
dossegment equ iosegment + 1*1024/16 ; DOS starts 1KiB after IO system
|
||||||
|
|
||||||
|
@ -64,8 +66,10 @@ init:
|
||||||
shl ax, cl
|
shl ax, cl
|
||||||
; Memory size is passed in dx
|
; Memory size is passed in dx
|
||||||
mov dx, ax
|
mov dx, ax
|
||||||
|
if debug
|
||||||
call hexprint16
|
call hexprint16
|
||||||
call newline
|
call newline
|
||||||
|
endif
|
||||||
|
|
||||||
; Disk table is passed in si
|
; Disk table is passed in si
|
||||||
mov si, offset iogroup:disks_table
|
mov si, offset iogroup:disks_table
|
||||||
|
@ -94,9 +98,11 @@ init:
|
||||||
test al, al
|
test al, al
|
||||||
jnz open_error
|
jnz open_error
|
||||||
|
|
||||||
|
if debug
|
||||||
mov al, '+'
|
mov al, '+'
|
||||||
mov ah, 0eh
|
mov ah, 0eh
|
||||||
int 10h
|
int 10h
|
||||||
|
endif
|
||||||
|
|
||||||
; Set random record field 0
|
; Set random record field 0
|
||||||
mov word ptr iogroup:command_fcb+33, 0
|
mov word ptr iogroup:command_fcb+33, 0
|
||||||
|
@ -114,12 +120,14 @@ init:
|
||||||
cmp al, 1
|
cmp al, 1
|
||||||
jne read_error
|
jne read_error
|
||||||
|
|
||||||
|
if debug
|
||||||
mov ax, cx
|
mov ax, cx
|
||||||
call hexprint16
|
call hexprint16
|
||||||
|
|
||||||
mov al, '.'
|
mov al, '.'
|
||||||
mov ah, 0eh
|
mov ah, 0eh
|
||||||
int 10h
|
int 10h
|
||||||
|
endif
|
||||||
|
|
||||||
; Set up segments for command.com
|
; Set up segments for command.com
|
||||||
mov ds, bx
|
mov ds, bx
|
||||||
|
@ -205,6 +213,7 @@ putch endp
|
||||||
; OUT:
|
; OUT:
|
||||||
; TODO: Document
|
; TODO: Document
|
||||||
diskread proc far
|
diskread proc far
|
||||||
|
if debug
|
||||||
push ax
|
push ax
|
||||||
mov ax, 0e00h + 'r'
|
mov ax, 0e00h + 'r'
|
||||||
int 10h
|
int 10h
|
||||||
|
@ -226,6 +235,7 @@ diskread proc far
|
||||||
call hexprint16
|
call hexprint16
|
||||||
call newline
|
call newline
|
||||||
pop ax
|
pop ax
|
||||||
|
endif
|
||||||
|
|
||||||
; TODO: Everything except sregs can be trashed
|
; TODO: Everything except sregs can be trashed
|
||||||
push es
|
push es
|
||||||
|
@ -272,7 +282,9 @@ diskread proc far
|
||||||
|
|
||||||
sector_read_fail:
|
sector_read_fail:
|
||||||
mov al, ah
|
mov al, ah
|
||||||
|
if debug
|
||||||
call hexprint8;debg
|
call hexprint8;debg
|
||||||
|
endif
|
||||||
mov al, '?'
|
mov al, '?'
|
||||||
mov ah, 0eh
|
mov ah, 0eh
|
||||||
int 10h
|
int 10h
|
||||||
|
@ -532,7 +544,9 @@ error:
|
||||||
mov ah, 0eh
|
mov ah, 0eh
|
||||||
mov al, '!'
|
mov al, '!'
|
||||||
int 10h
|
int 10h
|
||||||
|
if debug
|
||||||
call far_caller
|
call far_caller
|
||||||
|
endif
|
||||||
|
|
||||||
hang:
|
hang:
|
||||||
hlt
|
hlt
|
||||||
|
@ -583,6 +597,8 @@ days_since_epoch: dw 0
|
||||||
data ends
|
data ends
|
||||||
|
|
||||||
code segment
|
code segment
|
||||||
|
if debug
|
||||||
|
|
||||||
hexprint16 proc
|
hexprint16 proc
|
||||||
xchg al, ah
|
xchg al, ah
|
||||||
call hexprint8
|
call hexprint8
|
||||||
|
@ -672,6 +688,7 @@ logaddr proc
|
||||||
ret
|
ret
|
||||||
logaddr endp
|
logaddr endp
|
||||||
|
|
||||||
|
endif
|
||||||
code ends
|
code ends
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in a new issue