1 // SPDX-License-Identifier: MIT
3 #include "../pistorm-dev-enums.h"
5 #include <exec/resident.h>
6 #include <exec/errors.h>
7 #include <exec/memory.h>
8 #include <exec/lists.h>
9 #include <exec/alerts.h>
10 #include <exec/tasks.h>
12 #include <exec/execbase.h>
14 #include <libraries/expansion.h>
16 #include <devices/trackdisk.h>
17 #include <devices/timer.h>
18 #include <devices/scsidisk.h>
20 #include <dos/filehandler.h>
22 #include <proto/exec.h>
23 #include <proto/disk.h>
24 #include <proto/expansion.h>
30 unsigned int pistorm_base_addr = 0xFFFFFFFF;
32 #define WRITESHORT(cmd, val) *(unsigned short *)((unsigned int)(pistorm_base_addr+cmd)) = val;
33 #define WRITELONG(cmd, val) *(unsigned int *)((unsigned int)(pistorm_base_addr+cmd)) = val;
34 #define WRITEBYTE(cmd, val) *(unsigned char *)((unsigned int)(pistorm_base_addr+cmd)) = val;
36 #define READSHORT(cmd, var) var = *(volatile unsigned short *)(pistorm_base_addr + cmd);
37 #define READLONG(cmd, var) var = *(volatile unsigned int *)(pistorm_base_addr + cmd);
38 #define READBYTE(cmd, var) var = *(volatile unsigned short *)(pistorm_base_addr + cmd);
40 #define RETURN_CMDRES READSHORT(PI_CMDRESULT, short_val); return short_val;
42 unsigned short short_val;
44 unsigned int pi_find_pistorm() {
45 unsigned int board_addr = 0xFFFFFFFF;
46 struct ExpansionBase *expansionbase = (struct ExpansionBase *)OpenLibrary("expansion.library", 0L);
48 if (expansionbase == NULL) {
50 printf("Failed to open expansion.library.\n");
54 struct ConfigDev* cd = NULL;
55 cd = (struct ConfigDev*)FindConfigDev(cd, 2011, 0x6B);
57 board_addr = (unsigned int)cd->cd_BoardAddr;
58 CloseLibrary((struct Library *)expansionbase);
63 void pi_reset_amiga(unsigned short reset_code) {
64 WRITESHORT(PI_CMD_RESET, reset_code);
67 // Kickstart/Extended ROM stuff
68 unsigned short pi_remap_kickrom(char *filename) {
69 WRITELONG(PI_STR1, (unsigned int)filename);
70 WRITESHORT(PI_CMD_KICKROM, 1);
75 unsigned short pi_remap_extrom(char *filename) {
76 WRITELONG(PI_STR1, (unsigned int)filename);
77 WRITESHORT(PI_CMD_EXTROM, 1);
83 // TODO: There's currently no way to read back what drives are mounted at which SCSI index.
84 unsigned short pi_piscsi_map_drive(char *filename, unsigned char index) {
85 WRITESHORT(PI_WORD1, index);
86 WRITELONG(PI_STR1, (unsigned int)filename);
87 WRITESHORT(PI_CMD_PISCSI_CTRL, PISCSI_CTRL_MAP);
92 unsigned short pi_piscsi_unmap_drive(unsigned char index) {
93 WRITESHORT(PI_WORD1, index);
94 WRITESHORT(PI_CMD_PISCSI_CTRL, PISCSI_CTRL_UNMAP);
99 // For virtual removable media. Not yet implemented.
100 unsigned short pi_piscsi_insert_media(char *filename, unsigned char index) {
101 WRITESHORT(PI_WORD1, index);
102 WRITELONG(PI_STR1, (unsigned int)filename);
103 WRITESHORT(PI_CMD_PISCSI_CTRL, PISCSI_CTRL_INSERT);
108 unsigned short pi_piscsi_eject_media(unsigned char index) {
109 WRITESHORT(PI_WORD1, index);
110 WRITESHORT(PI_CMD_PISCSI_CTRL, PISCSI_CTRL_EJECT);
116 unsigned short pi_load_config(char *filename) {
117 WRITELONG(PI_STR1, (unsigned int)filename);
118 WRITESHORT(PI_CMD_SWITCHCONFIG, PICFG_LOAD);
123 void pi_reload_config() {
124 WRITESHORT(PI_CMD_SWITCHCONFIG, PICFG_RELOAD);
127 void pi_load_default_config() {
128 WRITESHORT(PI_CMD_SWITCHCONFIG, PICFG_DEFAULT);
131 unsigned short pi_handle_config(unsigned char cmd, char *str) {
132 if (cmd == PICFG_LOAD) {
133 WRITELONG(PI_STR1, (unsigned int)str);
135 WRITESHORT(PI_CMD_SWITCHCONFIG, cmd);
141 #define SIMPLEWRITE_SHORT(a, b) \
142 void a(unsigned short val) { WRITESHORT(b, val); }
144 // Simple feature status write functions
145 SIMPLEWRITE_SHORT(pi_enable_rtg, PI_CMD_RTGSTATUS);
146 SIMPLEWRITE_SHORT(pi_enable_net, PI_CMD_NETSTATUS);
147 SIMPLEWRITE_SHORT(pi_enable_piscsi, PI_CMD_RTGSTATUS);
149 // Generic feature status setting function.
150 // Example: pi_set_feature_status(PI_CMD_RTGSTATUS, 1) to enable RTG
151 // pi_set_feature_status(PI_CMD_PISCSI_CTRL, PISCSI_CTRL_ENABLE) to enable PiSCSI
152 void pi_set_feature_status(unsigned short cmd, unsigned char value) {
153 WRITESHORT(cmd, value);
156 #define SIMPLEREAD_SHORT(a, b) \
157 unsigned short a() { READSHORT(b, short_val); return short_val; }
159 // Simple feature status read functions
160 SIMPLEREAD_SHORT(pi_get_hw_rev, PI_CMD_HWREV);
161 SIMPLEREAD_SHORT(pi_get_sw_rev, PI_CMD_SWREV);
162 SIMPLEREAD_SHORT(pi_get_rtg_status, PI_CMD_RTGSTATUS);
163 SIMPLEREAD_SHORT(pi_get_net_status, PI_CMD_NETSTATUS);
164 SIMPLEREAD_SHORT(pi_get_piscsi_status, PI_CMD_PISCSI_CTRL);
165 SIMPLEREAD_SHORT(pi_get_cmd_result, PI_CMDRESULT);