diff --git a/sd-emutos/.cproject b/sd-emutos/.cproject
index d5bc355..e83946d 100644
--- a/sd-emutos/.cproject
+++ b/sd-emutos/.cproject
@@ -77,7 +77,6 @@
make
-
all
true
true
@@ -85,12 +84,19 @@
make
-
clean
true
true
true
+
+ make
+
+ test
+ true
+ true
+ true
+
diff --git a/sd-emutos/Makefile b/sd-emutos/Makefile
index 2e84ee0..77f0d64 100644
--- a/sd-emutos/Makefile
+++ b/sd-emutos/Makefile
@@ -6,7 +6,9 @@
TOOLCHAIN_PREFIX=m68k-atari-mint-
CC=$(TOOLCHAIN_PREFIX)gcc
-CFLAGS=-mcpu=5475 \
+CFLAGS=-mcpu=68000 \
+ -Os \
+ -g \
-Wno-multichar\
-Wall
EMUSD=emusd
@@ -22,6 +24,9 @@ OBJECTS=$(SOURCES:.c=.o)
$(APP): $(OBJECTS)
$(CC) $(CFLAGS) $(OBJECTS) -o $(APP)
-
+
+test: xhdi_test.c
+ $(CC) $(CFLAGS) -Wl,-traditional-format xhdi_test.c -o xhdi_test.prg
+
.PHONY clean:
- rm -rf *.o $(APP)
\ No newline at end of file
diff --git a/sd-emutos/xhdi.h b/sd-emutos/xhdi.h
index 45e85c4..5ba7664 100644
--- a/sd-emutos/xhdi.h
+++ b/sd-emutos/xhdi.h
@@ -55,6 +55,7 @@
#include
#endif /* _FEATURES_H */
+
extern long xhdi_entrypoint;
/* XHDI #0 */
@@ -64,16 +65,17 @@ __extension__ \
register long retvalue __asm__("d0"); \
\
__asm__ volatile( \
- "move.w #XHDI_VERSION,-(sp)\n\t" \
- "jsr [xhdi_entry]\n\t" \
+ "move.w #0,-(sp)\n\t" \
+ "move.l %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
"addq.l #2,sp\n\t" \
- : ="r"(retvalue) /* outputs */ \
- : [xhdi_entry]"g"(xhdi_entry) /* inputs */ \
- : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ : [retvalue]"=r"(retvalue) /* outputs */ \
+ : [entry] "m" (xhdi_entry) /* inputs */ \
+ : __CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
AND_MEMORY \
); \
retvalue; \
-});
+})
#define e_xhdi_version xhdi_version(xhdi_entrypoint)
/* XHDI #1 */
@@ -89,10 +91,11 @@ __extension__ \
"lea [block_size],-(sp)\n\t" \
"move.l [flags],-(sp)\n\t" \
"lea [product_name],-(sp)\n\t" \
- "jsr [xhdi_entry]\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
"lea 18(sp),sp\n\t" \
- : ="r"(retvalue) /* outputs */ \
- : [xhdi_entry]"g"(xhdi_entry), \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"a"(xhdi_entry), \
[major]"g"(major), \
[minor]"g"(minor), \
[block_size]"g"(block_size), \
@@ -116,9 +119,10 @@ __extension__ \
"move.w [minor],-(sp)\n\t" \
"move.w [do_reserve],-(sp)\n\t" \
"move.w [key],-(sp)\n\t" \
- "jsr [xhdi_entry]\n\t" \
+ "lea [xhdi_entry],a0\n\t" \
+ "jsr (a0)\n\t" \
"lea 10(sp),sp\n\t" \
- : ="r"(retvalue) /* outputs */ \
+ : "=r"(retvalue) /* outputs */ \
: [xhdi_entry]"g"(xhdi_entry), \
[major]"g"(major), \
[minor]"g"(minor), \
@@ -137,14 +141,15 @@ __extension__ \
register long retvalue __asm__("d0"); \
\
__asm__ volatile( \
- "move.w #XHDI_DO_LOCK,-(sp)\n\t" \
+ "move.w #XHDI_LOCK,-(sp)\n\t" \
"move.w [major],-(sp)\n\t" \
"move.w [minor],-(sp)\n\t" \
"move.w [do_lock],-(sp)\n\t" \
"move.w [key],-(sp)\n\t" \
- "jsr [xhdi_entry]\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
"lea 10(sp),sp\n\t" \
- : ="r"(retvalue) /* outputs */ \
+ : "=r"(retvalue) /* outputs */ \
: [xhdi_entry]"g"(xhdi_entry), \
[major]"g"(major), \
[minor]"g"(minor), \
@@ -163,14 +168,15 @@ __extension__ \
register long retvalue __asm__("d0"); \
\
__asm__ volatile( \
- "move.w #XHDI_DO_STOP,-(sp)\n\t" \
+ "move.w #XHDI_STOP,-(sp)\n\t" \
"move.w [major],-(sp)\n\t" \
"move.w [minor],-(sp)\n\t" \
"move.w [do_stop],-(sp)\n\t" \
"move.w [key],-(sp)\n\t" \
- "jsr [xhdi_entry]\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
"lea 10(sp),sp\n\t" \
- : ="r"(retvalue) /* outputs */ \
+ : "=r"(retvalue) /* outputs */ \
: [xhdi_entry]"g"(xhdi_entry), \
[major]"g"(major), \
[minor]"g"(minor), \
@@ -189,14 +195,15 @@ __extension__ \
register long retvalue __asm__("d0"); \
\
__asm__ volatile( \
- "move.w #XHDI_DO_STOP,-(sp)\n\t" \
+ "move.w #XHDI_EJECT,-(sp)\n\t" \
"move.w [major],-(sp)\n\t" \
"move.w [minor],-(sp)\n\t" \
"move.w [do_eject],-(sp)\n\t" \
"move.w [key],-(sp)\n\t" \
- "jsr [xhdi_entry]\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
"lea 10(sp),sp\n\t" \
- : ="r"(retvalue) /* outputs */ \
+ : "=r"(retvalue) /* outputs */ \
: [xhdi_entry]"g"(xhdi_entry), \
[major]"g"(major), \
[minor]"g"(minor), \
@@ -215,51 +222,362 @@ __extension__ \
register long retvalue __asm__("d0"); \
\
__asm__ volatile( \
- "move.w #XHDI_DRIVEMAP,-(sp)\n\t" \
- "jsr [xhdi_entry]\n\t" \
- "addq.l #2,sp\n\t" \
- : ="r"(retvalue) /* outputs */ \
- : [xhdi_entry]"g"(xhdi_entry) /* inputs */ \
- : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ "move.w #6,-(sp)\n\t" \
+ "move.l %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "addq.l #2,sp\n\t" \
+ : [retvalue] "=r" (retvalue)/* outputs */ \
+ : [entry] "a" (xhdi_entry) /* inputs */ \
+ : __CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
AND_MEMORY \
); \
retvalue; \
- });
+ })
#define e_xhdi_drivemap xhdi_drivemap(xhdi_entrypoint)
-#ifdef _NOT_USED_
-extern uint32_t xhdi_inquire_device(UINT16_T bios_device, UINT16_T *major, UINT16_T *minor,
- uint32_t *start_sector, /* BPB */ void *bpb); /* XHDI 7 */
+/* XHDI #7 */
+#define xhdi_inquire_device(xhdi_entry, major, minor, start_sector, bpb) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_INQUIRE_DEVICE,-(sp)\n\t" \
+ "move.w [major],-(sp)\n\t" \
+ "move.w [minor],-(sp)\n\t" \
+ "lea [start_sector],-(sp)\n\t" \
+ "lea [bpb],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 14(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [major]"g"(major), \
+ [minor]"g"(minor), \
+ [start_sector]"g"(start_sector), \
+ [bpb]"g"(bpb), \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_inquire_driver(UINT16_T bios_device, char *name, char *version,
- char *company, UINT16_T *ahdi_version, UINT16_T *maxIPL); /* XHDI 8 */
+/* XHDI #8 */
+#define xhdi_inquire_driver(xhdi_entry, bios_device, name, version, company, ahdi_version, max_ipl) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_INQUIRE_DRIVER,-(sp)\n\t" \
+ "move.w [bios_device],-(sp)\n\t" \
+ "lea [name],-(sp)\n\t" \
+ "lea [version],-(sp)\n\t" \
+ "move.w [ahdi_version],-(sp)\n\t" \
+ "move.w [max_ipl],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 16(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [bios_device]"g"(bios_device), \
+ [name]"g"(name), \
+ [version]"g"(version), \
+ [company]"g"(company), \
+ [ahdi_version]"g"(ahdi_version), \
+ [max_ipl]"g"(max_ipl), \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_new_cookie(void *newcookie); /* XHDI 9 */
+/* XHDI #9 */
+#define xhdi_new_cookie(xhdi_entry, newcookie) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_NEW_COOKIE,-(sp)\n\t" \
+ "lea [newcookie],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "addq.l #6,sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [newcookie]"g"(newcookie) /* inputs */ \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
+#define e_xhdi_new_cookie xhdi_newcookie(xhdi_entrypoint)
-extern uint32_t xhdi_read_write(UINT16_T major, UINT16_T minor, UINT16_T rwflag,
- uint32_t recno, UINT16_T count, void *buf); /* XHDI 10 */
+/* XHDI #10 */
+#define xhdi_read_write(xhdi_entry, major, minor, rwflag, recno, count, buf) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_READ_WRITE,-(sp)\n\t" \
+ "move.w [major],-(sp)\n\t" \
+ "move.w [minor],-(sp)\n\t" \
+ "move.w [rwflag],-(sp)\n\t" \
+ "lea [recno],-(sp)\n\t" \
+ "move.w [count],-(sp)\n\t" \
+ "lea [buf],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 18(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [major]"g"(major), \
+ [minor]"g"(minor), \
+ [rwflag]"g"(rwflag) \
+ [recno]"g"(recno), \
+ [count]"g"(count), \
+ [buf]"g"(buf) \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_inquire_target2(UINT16_T major, UINT16_T minor, uint32_t *block_size,
- uint32_t *device_flags, char *product_name, UINT16_T stringlen); /* XHDI 11 */
+/* XHDI #11 */
+#define xhdi_inquire_target2(xhdi_entry, major, minor, block_size, device_flags, product_name, stringlen) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_INQUIRE_TARGET2,-(sp)\n\t"\
+ "move.w [major],-(sp)\n\t" \
+ "move.w [minor],-(sp)\n\t" \
+ "lea [block_size],-(sp)\n\t" \
+ "lea [recno],-(sp)\n\t" \
+ "lea [device_flags],-(sp)\n\t" \
+ "lea [product_name],-(sp)\n\t" \
+ "move.w [stringlen],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 24(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [major]"g"(major), \
+ [minor]"g"(minor), \
+ [blocksize]"g"(blocksize) \
+ [device_flags]"g"(device_flags), \
+ [product_name]"g"(product_name), \
+ [stringlen]"g"(stringlen) \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_inquire_device2(UINT16_T bios_device, UINT16_T *major, UINT16_T *minor,
- UINT16_T *start_sector, /* BPB */ void *bpb, uint32_t *blocks, char *partid); /* XHDI 12 */
+/* XHDI #12 */
+#define xhdi_inquire_device2(xhdi_entry, bios_device, major, minor, start_sector, bpb, blocks, partid) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_DEVICE2,-(sp)\n\t" \
+ "move.w [bios_device],-(sp)\n\t" \
+ "lea [major],-(sp)\n\t" \
+ "lea [minor],-(sp)\n\t" \
+ "lea [start_sector],-(sp)\n\t" \
+ "lea [bpb],-(sp)\n\t" \
+ "lea [blocks],-(sp)\n\t" \
+ "lea [part_id],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 28(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [bios_device]"g"(bios_device), \
+ [major]"g"(major), \
+ [minor]"g"(minor), \
+ [start_sector]"g"(start_sector) \
+ [bpb]"g"(bpb), \
+ [blocks]"g"(blocks), \
+ [partid]"g"(partid) \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_driver_special(uint32_t key1, uint32_t key2, UINT16_T subopcode, void *data); /* XHDI 13 */
+/* XHDI #13 */
+#define xhdi_driver_special(xhdi_entry, key1, key2, subopcode, data) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_DRIVER_SPECIAL,-(sp)\n\t" \
+ "move.l [key1],-(sp)\n\t" \
+ "move.l [key2],-(sp)\n\t" \
+ "move.w [subopcode],-(sp)\n\t" \
+ "lea [data],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 16(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [key1]"g"(key1), \
+ [key2]"g"(key2), \
+ [subopcode]"g"(subopcode), \
+ [data]"g"(data) \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_get_capacity(UINT16_T major, UINT16_T minor, uint32_t *blocks, uint32_t *bs); /* XHDI 14 */
+/* XHDI #14 */
+#define xhdi_get_capacyty(xhdi_entry, major, minor, blocks, bs) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_GET_CAPACITY,-(sp)\n\t" \
+ "move.w [major],-(sp)\n\t" \
+ "move.w [minor],-(sp)\n\t" \
+ "lea [blocks],-(sp)\n\t" \
+ "lea [bs],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 12(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [major]"g"(major), \
+ [minor]"g"(minor), \
+ [blocks]"g"(blocks), \
+ [bs]"g"(bs) \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_medium_changed(UINT16_T major, UINT16_T minor); /* XHDI 15 */
+/* XHDI #15 */
+#define xhdi_medium_changed(xhdi_entry, major, minor) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_MEDIUM_CHANGED,-(sp)\n\t" \
+ "move.w [major],-(sp)\n\t" \
+ "move.w [minor],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 12(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [major]"g"(major), \
+ [minor]"g"(minor), \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_mint_info(UINT16_T opcode, void *data); /* XHDI 16 */
+/* XHDI #16 */
+#define xhdi_mint_info(xhdi_entry, opcode, data) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_MINT_INFO,-(sp)\n\t" \
+ "move.w [opcode],-(sp)\n\t" \
+ "lea [data],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 8(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [opcode]"g"(opcode), \
+ [data]"g"(data), \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_dos_limits(UINT16_T which, uint32_t limit); /* XHDI 17 */
+/* XHDI #17 */
+#define xhdi_dos_limits(xhdi_entry, which, limit) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_DOS_LIMITS,-(sp)\n\t" \
+ "move.w [which],-(sp)\n\t" \
+ "move.l [limit],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 8(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [which]"g"(which), \
+ [limit]"g"(limit), \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
-extern uint32_t xhdi_last_access(UINT16_T major, UINT16_T minor, uint32_t *ms); /* XHDI 18 */
-
-extern uint32_t xhdi_reaccess(UINT16_T major, UINT16_T minor); /* XHDI 19 */
-
-#endif /* _NOT_USED_ */
+/* XHDI #18 */
+#define xhdi_last_access(xhdi_entry, major, minor, ms) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_LAST_ACCESS,-(sp)\n\t" \
+ "move.w [major],-(sp)\n\t" \
+ "move.w [minor],-(sp)\n\t" \
+ "lea [ms],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 10(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [major]"g"(major), \
+ [minor]"g"(minor), \
+ [ms]"g"(ms) \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
+/* XHDI #18 */
+#define xhdi_last_reaccess(xhdi_entry, major, minor) \
+__extension__ \
+ ({ \
+ register long retvalue __asm__("d0"); \
+ \
+ __asm__ volatile( \
+ "move.w #XHDI_LAST_ACCESS,-(sp)\n\t" \
+ "move.w [major],-(sp)\n\t" \
+ "move.w [minor],-(sp)\n\t" \
+ "lea %[entry],a0\n\t" \
+ "jsr (a0)\n\t" \
+ "lea 6(sp),sp\n\t" \
+ : "=r"(retvalue) /* outputs */ \
+ : [xhdi_entry]"g"(xhdi_entry), \
+ [major]"g"(major), \
+ [minor]"g"(minor), \
+ : CLOBBER_RETURN("d0") "d1", "d2", "a0", "a1", "a2" /* clobbered regs */ \
+ AND_MEMORY \
+ ); \
+ retvalue; \
+})
#endif /* XHDI_H_ */
diff --git a/sd-emutos/xhdi_test.c b/sd-emutos/xhdi_test.c
new file mode 100644
index 0000000..dcf465b
--- /dev/null
+++ b/sd-emutos/xhdi_test.c
@@ -0,0 +1,58 @@
+/*
+ * xhdi_test.c
+ *
+ * Created on: 04.05.2013
+ * Author: mfro
+ */
+
+#include
+#include
+#include
+#include "xhdi.h"
+
+
+static uint32_t *xhdi;
+
+static uint32_t cookieptr(void)
+{
+ return * (uint32_t *) 0x5a0L;
+}
+
+int getcookie(uint32_t cookie, uint32_t *p_value)
+{
+ uint32_t *cookiejar = (uint32_t *) Supexec(cookieptr);
+
+ if (!cookiejar) return 0;
+
+ do
+ {
+ if (cookiejar[0] == cookie)
+ {
+ if (p_value) *p_value = cookiejar[1];
+ return 1;
+ }
+ else
+ cookiejar = &(cookiejar[2]);
+ } while (cookiejar[-2]);
+
+ return 0;
+}
+
+int main(int argc, char *argv[])
+{
+ (void) Cconws("\033EGCC XHDI Test Program\r\n=====================\r\n\r\n");
+
+ if (getcookie('XHDI', (uint32_t *) &xhdi))
+ {
+ printf("XHDI cookie: %p\r\n", xhdi);
+
+ printf("xhdi version : %ld\r\n", xhdi_version(xhdi));
+ printf("xhdi drivemap: %lx\r\n", xhdi_drivemap(xhdi));
+ }
+ else
+ (void) Cconws("no XHDI cookie found.\r\n");
+
+ (void) Cconws("press any key\r\n");
+ (void) Cconin();
+ return 0;
+}