2023-03-09 21:35:56 -08:00
|
|
|
|
;
|
|
|
|
|
|
; Debug macro. To write to the file, use "Trace <logmessage>"
|
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
|
|
%if TRACEENABLED
|
|
|
|
|
|
|
|
|
|
|
|
%if CREATENEWLOGFILE
|
|
|
|
|
|
FirstTime DB 0
|
|
|
|
|
|
%endif
|
|
|
|
|
|
|
|
|
|
|
|
LogFileName DB "Logfile.Txt", 0
|
|
|
|
|
|
|
|
|
|
|
|
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
|
|
Proc WriteDebugFile
|
|
|
|
|
|
|
|
|
|
|
|
PushA
|
|
|
|
|
|
Push DS
|
|
|
|
|
|
|
|
|
|
|
|
Push CS
|
|
|
|
|
|
Pop DS
|
|
|
|
|
|
|
|
|
|
|
|
Push CX
|
|
|
|
|
|
Mov DX, Offset LogFileName
|
|
|
|
|
|
|
|
|
|
|
|
%if CREATENEWLOGFILE
|
|
|
|
|
|
|
|
|
|
|
|
Cmp DS:FirstTime, 0
|
|
|
|
|
|
JNE WriteDebugFile1
|
|
|
|
|
|
|
|
|
|
|
|
Mov AH, 3Ch
|
|
|
|
|
|
Xor CX, CX
|
|
|
|
|
|
Int 21h
|
|
|
|
|
|
JC WriteDebugFileEnd
|
|
|
|
|
|
|
|
|
|
|
|
Mov DS:FirstTime, 1
|
|
|
|
|
|
XChg AX, BX
|
|
|
|
|
|
Jmp WriteDebugFile2
|
|
|
|
|
|
|
|
|
|
|
|
WriteDebugFile1:
|
|
|
|
|
|
|
|
|
|
|
|
%ENDIF
|
|
|
|
|
|
Mov AX, 3D02h
|
|
|
|
|
|
Int 21h
|
|
|
|
|
|
JC WriteDebugFileEnd
|
|
|
|
|
|
|
|
|
|
|
|
XChg AX, BX
|
|
|
|
|
|
|
|
|
|
|
|
Mov AX, 4202h
|
|
|
|
|
|
Xor CX, CX
|
|
|
|
|
|
Xor DX, DX
|
|
|
|
|
|
Int 21h ; Move to end of file
|
|
|
|
|
|
|
|
|
|
|
|
WriteDebugFile2:
|
|
|
|
|
|
Mov AH, 40h
|
|
|
|
|
|
Pop CX
|
|
|
|
|
|
Push CX
|
|
|
|
|
|
Mov DX, SI
|
|
|
|
|
|
Int 21h
|
|
|
|
|
|
|
|
|
|
|
|
Mov AH, 3Eh
|
|
|
|
|
|
Int 21h
|
|
|
|
|
|
|
|
|
|
|
|
WriteDebugFileEnd:
|
|
|
|
|
|
Pop CX
|
|
|
|
|
|
Pop DS
|
|
|
|
|
|
PopA
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
|
|
;EndP WriteDebugFile
|
|
|
|
|
|
|
|
|
|
|
|
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
|
|
%macro Trace 1; Macro LogMessage
|
|
|
|
|
|
Local X, Y
|
|
|
|
|
|
|
|
|
|
|
|
PushF
|
|
|
|
|
|
Push CX
|
|
|
|
|
|
Push SI
|
|
|
|
|
|
Jmp Y
|
|
|
|
|
|
X:
|
|
|
|
|
|
DB %1
|
|
|
|
|
|
DB 0Dh, 0Ah
|
|
|
|
|
|
Y:
|
|
|
|
|
|
Mov CX, Y - X
|
|
|
|
|
|
Mov SI, X
|
|
|
|
|
|
Call WriteDebugFile
|
|
|
|
|
|
|
|
|
|
|
|
Pop SI
|
|
|
|
|
|
Pop CX
|
|
|
|
|
|
PopF
|
|
|
|
|
|
|
|
|
|
|
|
%endmacro
|
|
|
|
|
|
|
|
|
|
|
|
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
|
|
%ELSE
|
|
|
|
|
|
|
|
|
|
|
|
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
|
|
%macro Trace 1
|
|
|
|
|
|
%endmacro
|
|
|
|
|
|
|
|
|
|
|
|
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
|
|
%ENDIF
|
|
|
|
|
|
|
