CPM-software/lib/libDebug.8080.asm at main · eiroca/CPM-software · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
; Copyright (C) 2020-2021 Enrico Croce - AGPL >= 3.0
;
; This program is free software: you can redistribute it and/or modify it under the terms of the
; GNU Affero General Public License as published by the Free Software Foundation, either version 3
; of the License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without
; even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
; Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License along with this program.
; If not, see <http://www.gnu.org/licenses/>.
;
;
; compile with RetroAssembler
; Tab Size = 10

	.target	"8080"

.if DEBUG > 0
.segment "Resources"
CllEntMsg	.ascii "Trace @$"
CllExtMsg	.ascii "Exiting call"
.endif

.lib

.macro WriteTrace()
.if 0 || (DEBUG >= 9) && 1
	pushRegs()
	Text_Print(CllEntMsg)
	call @me
@me	pop  H
	lxi  B, $FFF1	; -15
	dad  B
	Text_PrintHex4()
	Text_NL()
	popRegs()
.endif
.endmacro

.macro WriteStatus()
.if 0 || (DEBUG >= 5) && 1
	pushRegs()
	C_WRITE('A')
	C_WRITE(' ')
	popRegs()
	pushRegs()
	push	PSW
	Text_PrintHex2()
	C_WRITE(' ')
	pop	B
	mov	A,C
	Text_PrintHex2()
	C_WRITE(' ')
	C_WRITE('B')
	C_WRITE(' ')
	popRegs()
	pushRegs()
	mov	H,B
	mov	L,C
	Text_PrintHex4()
	C_WRITE(' ')
	C_WRITE('D')
	C_WRITE(' ')
	popRegs()
	pushRegs()
	xchg
	Text_PrintHex4()
	C_WRITE(' ')
	C_WRITE('H')
	C_WRITE(' ')
	popRegs()
	pushRegs()
	Text_PrintHex4()
	Text_NL()
	popRegs()
.endif
.endMacro