1 files changed, 122 insertions, 0 deletions
diff --git a/v4.0-ozzie/bin/DISK2/BIOS/DEFDBUG.INC b/v4.0-ozzie/bin/DISK2/BIOS/DEFDBUG.INC
new file mode 100644
index 0000000..590e376
--- /dev/null
+++ b/v4.0-ozzie/bin/DISK2/BIOS/DEFDBUG.INC
@@ -0,0 +1,122 @@
+;**     DEFDBUG.ASM - Debugging Macro Definitions
+;
+;
+;       DEBUG   n,m,<format string>, <arg list>
+;
+;
+.sall
+DEBUG   MACRO   N,M,string,args
+ local b,c
+ IFDEF DEBUGFLG
+  pushf
+  DEBUGTST N,M
+  jz    b
+  push ax
+  push bp
+  call  c               ;; push address of string
+  DB    '&string',0
+c:      mov     bp,sp
+; IFNB      <args>
+ IRP     Y,<args>
+  IFIDN   <Y>,<ax>
+    push 4[bp]
+  ELSE
+  IFIDN   <Y>,<AX>
+    push 4[bp]
+  ELSE
+  IFIDN   <Y>,<bp>
+    push 2[bp]
+  ELSE
+  IFIDN   <Y>,<BP>
+    push 2[bp]
+  ELSE
+    mov     ax,Y
+    push ax
+   ENDIF
+   ENDIF
+   ENDIF
+   ENDIF
+ ENDM
+; ENDIF
+  call    DPRINTF
+  mov     sp,bp
+  pop     ax              ;; discard format string offset
+  pop     bp
+  pop     ax
+b:      popf
+   ENDIF
+ENDM
+;**     ERRNZ - generate assembly error if arg != 0
+;
+ERRNZ   MACRO   EXPR
+ IF1
+  IFE     expr
+  ELSE
+  RADIX   0       ; CONDITION NOT MET - ERROR
+  ENDIF
+ ENDIF
+        ENDM
+;**     DBBEG - Start debugging range
+;
+DBBEG   MACRO   N,M
+ LOCAL   lab
+ IFDEF   DEBUGFLG
+  pushf
+  DEBUGTST N,M
+  jnz     lab                     ;; am to do it
+  DBJMP   %DBCNT
+lab:
+    ENDM
+DBJMP   MACRO   N
+ jmp DBLAB&N
+        ENDM
+;**     DEBUGTST - Test Debug Flags
+;
+;       DEBUGTST   n,m
+;
+;       Where N and M are bit masks.
+;
+;       If one or more of the bits in N is set in the high byte
+;       of BUGBITS, and one or more of the bits in M is set in
+;       the low byte of BUGBITS then clear the Z flag.
+;
+;       In other words:
+;
+;       If both masks show a "hit" clear 'Z' else set 'Z'
+;
+;       USES    FLAGS
+DEBUGTST    MACRO   N,M
+        LOCAL   A
+        test    BYTE PTR BUGBITS,n
+        jz      A
+        test    BYTE PTR BUGBITS+1,m
+A:
+        ENDM
+DBEND   MACRO
+        DBLAB   %DBCNT
+DBCNT   =       DBCNT+1
+        popf
+        ENDM
+DBLAB   MACRO   N
+DBLAB&N:
+        ENDM
+  DBCNT = 1

diff --git a/v4.0-ozzie/bin/DISK2/BIOS/DEFDBUG.INC b/v4.0-ozzie/bin/DISK2/BIOS/DEFDBUG.INC new file mode 100644 index 0000000..590e376 --- /dev/null +++ b/v4.0-ozzie/bin/DISK2/BIOS/DEFDBUG.INC
@@ -0,0 +1,122 @@
	1	;** DEFDBUG.ASM - Debugging Macro Definitions
	2	;
	3	;
	4	; DEBUG n,m,<format string>, <arg list>
	5	;
	6	;
	7
	8	.sall
	9
	10	DEBUG MACRO N,M,string,args
	11	local b,c
	12	IFDEF DEBUGFLG
	13	pushf
	14	DEBUGTST N,M
	15	jz b
	16	push ax
	17	push bp
	18	call c ;; push address of string
	19	DB '&string',0
	20	c: mov bp,sp
	21	; IFNB <args>
	22	IRP Y,<args>
	23	IFIDN <Y>,<ax>
	24	push 4[bp]
	25	ELSE
	26	IFIDN <Y>,<AX>
	27	push 4[bp]
	28	ELSE
	29	IFIDN <Y>,<bp>
	30	push 2[bp]
	31	ELSE
	32	IFIDN <Y>,<BP>
	33	push 2[bp]
	34	ELSE
	35	mov ax,Y
	36	push ax
	37	ENDIF
	38	ENDIF
	39	ENDIF
	40	ENDIF
	41	ENDM
	42	; ENDIF
	43	call DPRINTF
	44	mov sp,bp
	45	pop ax ;; discard format string offset
	46	pop bp
	47	pop ax
	48	b: popf
	49	ENDIF
	50	ENDM
	51
	52
	53
	54
	55	;** ERRNZ - generate assembly error if arg != 0
	56	;
	57
	58	ERRNZ MACRO EXPR
	59	IF1
	60	IFE expr
	61	ELSE
	62	RADIX 0 ; CONDITION NOT MET - ERROR
	63	ENDIF
	64	ENDIF
	65	ENDM
	66
	67
	68	;** DBBEG - Start debugging range
	69	;
	70
	71	DBBEG MACRO N,M
	72	LOCAL lab
	73	IFDEF DEBUGFLG
	74	pushf
	75	DEBUGTST N,M
	76	jnz lab ;; am to do it
	77	DBJMP %DBCNT
	78	lab:
	79	ENDM
	80
	81
	82
	83	DBJMP MACRO N
	84	jmp DBLAB&N
	85	ENDM
	86
	87
	88	;** DEBUGTST - Test Debug Flags
	89	;
	90	; DEBUGTST n,m
	91	;
	92	; Where N and M are bit masks.
	93	;
	94	; If one or more of the bits in N is set in the high byte
	95	; of BUGBITS, and one or more of the bits in M is set in
	96	; the low byte of BUGBITS then clear the Z flag.
	97	;
	98	; In other words:
	99	;
	100	; If both masks show a "hit" clear 'Z' else set 'Z'
	101	;
	102	; USES FLAGS
	103
	104	DEBUGTST MACRO N,M
	105	LOCAL A
	106	test BYTE PTR BUGBITS,n
	107	jz A
	108	test BYTE PTR BUGBITS+1,m
	109	A:
	110	ENDM
	111
	112	DBEND MACRO
	113	DBLAB %DBCNT
	114	DBCNT = DBCNT+1
	115	popf
	116	ENDM
	117
	118	DBLAB MACRO N
	119	DBLAB&N:
	120	ENDM
	121
	122	DBCNT = 1