sweet 16 debug code
This commit is contained in:
Kelvin Sherlock
parent
a2fcb6ee11
commit
39bc3dde14
|
|
@ -0,0 +1,208 @@
|
|||
#include "s16debug.h"
|
||||
#include <stdarg.h>
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <ctype.h>
|
||||
|
||||
#include <tcpip.h>
|
||||
#include <tcpipx.h>
|
||||
|
||||
#pragma optimize 79
|
||||
#pragma noroot
|
||||
|
||||
static char buffer[512];
|
||||
|
||||
static Word CheckSweet16(void)
|
||||
{
|
||||
static Word Sweet16 = -1;
|
||||
if (Sweet16 == -1)
|
||||
{
|
||||
/*
|
||||
* Apple II tech note 201
|
||||
*/
|
||||
word emu_id = 0;
|
||||
word emu_version = 0;
|
||||
asm {
|
||||
// the lda ..,x is to prevent
|
||||
// the 2nd lda from being optimized out.
|
||||
lda #0
|
||||
ldx #0
|
||||
sep #0x20
|
||||
sta >0x00c04f,x
|
||||
lda >0x00c04f,x
|
||||
sta <emu_id
|
||||
lda >0x00c04f,x
|
||||
sta <emu_version
|
||||
rep #0x20
|
||||
}
|
||||
|
||||
if (emu_id == 0x16 && emu_version >= 0x23) Sweet16 = 1;
|
||||
else Sweet16 = 0;
|
||||
}
|
||||
|
||||
return Sweet16;
|
||||
}
|
||||
|
||||
void s16_debug_puts(const char *str)
|
||||
{
|
||||
if (!CheckSweet16()) return;
|
||||
|
||||
asm {
|
||||
ldx <str+2
|
||||
ldy <str
|
||||
cop 0x84
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void s16_debug_dump(const char *bytes, unsigned length)
|
||||
{
|
||||
static const char *HexMap = "0123456789abcdef";
|
||||
|
||||
if (!CheckSweet16()) return;
|
||||
|
||||
while (length)
|
||||
{
|
||||
Word i, j, l;
|
||||
l = 16;
|
||||
if (l > length) l = length;
|
||||
|
||||
memset(buffer, ' ', sizeof(buffer));
|
||||
|
||||
for (i = 0, j = 0; i < l; ++i)
|
||||
{
|
||||
unsigned x = bytes[i];
|
||||
buffer[j++] = HexMap[x >> 4];
|
||||
buffer[j++] = HexMap[x & 0x0f];
|
||||
j++;
|
||||
if (i == 7) j++;
|
||||
|
||||
buffer[50 + i] = isascii(x) && isprint(x) ? x : '.';
|
||||
}
|
||||
|
||||
buffer[50 + 16 + 1] = 0;
|
||||
s16_debug_puts(buffer);
|
||||
|
||||
length -= l;
|
||||
bytes += l;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
void s16_debug_printf(const char *format, ...)
|
||||
{
|
||||
// need to format the data even if sweet-16 is
|
||||
// not present in order to clean up the stack.
|
||||
|
||||
va_list ap;
|
||||
va_start(ap, format);
|
||||
vsnprintf(buffer, sizeof(buffer), format, ap);
|
||||
va_end(ap);
|
||||
|
||||
s16_debug_puts(buffer);
|
||||
}
|
||||
|
||||
//---
|
||||
|
||||
void s16_debug_srbuff(const srBuff *sb)
|
||||
{
|
||||
if (!CheckSweet16()) return;
|
||||
|
||||
/*
|
||||
s16_debug_printf("%04x %04x %08lx %08lx %08lx %04x %04x %04x",
|
||||
sb->srState,
|
||||
sb->srNetworkError,
|
||||
sb->srSndQueued,
|
||||
sb->srRcvQueued,
|
||||
sb->srDestIP,
|
||||
sb->srDestPort,
|
||||
sb->srConnectType,
|
||||
sb->srAcceptCount
|
||||
);
|
||||
*/
|
||||
|
||||
s16_debug_printf(" srState: $%04x", sb->srState);
|
||||
s16_debug_printf(" srNetworkError: $%04x", sb->srNetworkError);
|
||||
s16_debug_printf(" srSndQueued: $%08lx", sb->srSndQueued);
|
||||
s16_debug_printf(" srRcvQueued: $%08lx", sb->srRcvQueued);
|
||||
s16_debug_printf(" srDestIP: $%08lx", sb->srDestIP);
|
||||
s16_debug_printf(" srDestPort: $%04x", sb->srDestPort);
|
||||
s16_debug_printf(" srConnectType: $%04x", sb->srConnectType);
|
||||
s16_debug_printf(" srAcceptCount: $%04x", sb->srAcceptCount);
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
void s16_debug_tcp(unsigned ipid)
|
||||
{
|
||||
userRecordPtr ur;
|
||||
userRecordHandle urh;
|
||||
|
||||
if (!CheckSweet16()) return;
|
||||
|
||||
urh = TCPIPGetUserRecord(ipid);
|
||||
|
||||
if (!urh) return;
|
||||
|
||||
ur = *urh;
|
||||
if (!ur) return;
|
||||
if (!ur->uwUserID) return;
|
||||
|
||||
// -- auto-generated --
|
||||
|
||||
s16_debug_printf(" uwUserID: $%04x", ur->uwUserID);
|
||||
s16_debug_printf(" uwDestIP: $%08lx", ur->uwDestIP);
|
||||
s16_debug_printf(" uwDestPort: $%04x", ur->uwDestPort);
|
||||
s16_debug_printf(" uwIP_TOS: $%04x", ur->uwIP_TOS);
|
||||
s16_debug_printf(" uwIP_TTL: $%04x", ur->uwIP_TTL);
|
||||
s16_debug_printf(" uwSourcePort: $%04x", ur->uwSourcePort);
|
||||
s16_debug_printf(" uwLogoutPending: $%04x", ur->uwLogoutPending);
|
||||
s16_debug_printf(" uwICMPQueue: $%08lx", ur->uwICMPQueue);
|
||||
s16_debug_printf(" uwTCPQueue: $%08lx", ur->uwTCPQueue);
|
||||
s16_debug_printf(" uwTCPMaxSendSeg: $%04x", ur->uwTCPMaxSendSeg);
|
||||
s16_debug_printf(" uwTCPMaxReceiveSeg: $%04x", ur->uwTCPMaxReceiveSeg);
|
||||
s16_debug_printf(" uwTCPDataInQ: $%08lx", ur->uwTCPDataInQ);
|
||||
s16_debug_printf(" uwTCPDataIn: $%08lx", ur->uwTCPDataIn);
|
||||
s16_debug_printf(" uwTCPPushInFlag: $%04x", ur->uwTCPPushInFlag);
|
||||
s16_debug_printf(" uwTCPPushInOffset: $%08lx", ur->uwTCPPushInOffset);
|
||||
s16_debug_printf(" uwTCPPushOutFlag: $%04x", ur->uwTCPPushOutFlag);
|
||||
s16_debug_printf(" uwTCPPushOutSEQ: $%08lx", ur->uwTCPPushOutSEQ);
|
||||
s16_debug_printf(" uwTCPDataOut: $%08lx", ur->uwTCPDataOut);
|
||||
s16_debug_printf(" uwSND_UNA: $%08lx", ur->uwSND_UNA);
|
||||
s16_debug_printf(" uwSND_NXT: $%08lx", ur->uwSND_NXT);
|
||||
s16_debug_printf(" uwSND_WND: $%04x", ur->uwSND_WND);
|
||||
s16_debug_printf(" uwSND_UP: $%04x", ur->uwSND_UP);
|
||||
s16_debug_printf(" uwSND_WL1: $%08lx", ur->uwSND_WL1);
|
||||
s16_debug_printf(" uwSND_WL2: $%08lx", ur->uwSND_WL2);
|
||||
s16_debug_printf(" uwISS: $%08lx", ur->uwISS);
|
||||
s16_debug_printf(" uwRCV_NXT: $%08lx", ur->uwRCV_NXT);
|
||||
s16_debug_printf(" uwRCV_WND: $%04x", ur->uwRCV_WND);
|
||||
s16_debug_printf(" uwRCV_UP: $%04x", ur->uwRCV_UP);
|
||||
s16_debug_printf(" uwIRS: $%08lx", ur->uwIRS);
|
||||
s16_debug_printf(" uwTCP_State: $%04x", ur->uwTCP_State);
|
||||
s16_debug_printf(" uwTCP_StateTick: $%08lx", ur->uwTCP_StateTick);
|
||||
s16_debug_printf(" uwTCP_ErrCode: $%04x", ur->uwTCP_ErrCode);
|
||||
s16_debug_printf(" uwTCP_ICMPError: $%04x", ur->uwTCP_ICMPError);
|
||||
s16_debug_printf(" uwTCP_Server: $%04x", ur->uwTCP_Server);
|
||||
s16_debug_printf(" uwTCP_ChildList: $%08lx", ur->uwTCP_ChildList);
|
||||
s16_debug_printf(" uwTCP_ACKPending: $%04x", ur->uwTCP_ACKPending);
|
||||
s16_debug_printf(" uwTCP_ForceFIN: $%04x", ur->uwTCP_ForceFIN);
|
||||
s16_debug_printf(" uwTCP_FINSEQ: $%08lx", ur->uwTCP_FINSEQ);
|
||||
s16_debug_printf(" uwTCP_MyFINACKed: $%04x", ur->uwTCP_MyFINACKed);
|
||||
s16_debug_printf(" uwTCP_Timer: $%08lx", ur->uwTCP_Timer);
|
||||
s16_debug_printf(" uwTCP_TimerState: $%04x", ur->uwTCP_TimerState);
|
||||
s16_debug_printf(" uwTCP_rt_timer: $%04x", ur->uwTCP_rt_timer);
|
||||
s16_debug_printf(" uwTCP_2MSL_timer: $%04x", ur->uwTCP_2MSL_timer);
|
||||
s16_debug_printf(" uwTCP_SaveTTL: $%04x", ur->uwTCP_SaveTTL);
|
||||
s16_debug_printf(" uwTCP_SaveTOS: $%04x", ur->uwTCP_SaveTOS);
|
||||
s16_debug_printf(" uwTCP_TotalIN: $%08lx", ur->uwTCP_TotalIN);
|
||||
s16_debug_printf(" uwTCP_TotalOUT: $%08lx", ur->uwTCP_TotalOUT);
|
||||
s16_debug_printf(" uwUDP_Server: $%04x", ur->uwUDP_Server);
|
||||
s16_debug_printf(" uwUDPQueue: $%08lx", ur->uwUDPQueue);
|
||||
s16_debug_printf(" uwUDPError: $%04x", ur->uwUDPError);
|
||||
s16_debug_printf(" uwUDPErrorTick: $%08lx", ur->uwUDPErrorTick);
|
||||
s16_debug_printf(" uwUDPCount: $%08lx", ur->uwUDPCount);
|
||||
|
||||
}
|
||||
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
#ifndef __s16_debug_h__
|
||||
#define __s16_debug_h__
|
||||
|
||||
void s16_debug_puts(const char *str);
|
||||
void s16_debug_printf(const char *format, ...);
|
||||
void s16_debug_dump(const char *data, unsigned size);
|
||||
|
||||
void s16_debug_tcp(unsigned ipid);
|
||||
|
||||
#ifdef __TCPIP__
|
||||
void s16_debug_srbuff(const srBuff *sb);
|
||||
#endif
|
||||
|
||||
#endif
|
||||
Loading…
Reference in New Issue