mirror of
https://github.com/nippur72/apple1-videocard-lib.git
synced 2025-01-30 09:30:11 +00:00
add ram test programs
This commit is contained in:
parent
687832c5fc
commit
4f6b138849
58
demos/checksum/checksum.c
Normal file
58
demos/checksum/checksum.c
Normal file
@ -0,0 +1,58 @@
|
||||
//#pragma start_address(0x8000)
|
||||
|
||||
#define APPLE1_USE_WOZ_MONITOR 1
|
||||
|
||||
#define INPUT_LINE_PROMPT_CHAR '?'
|
||||
|
||||
#include <string.h>
|
||||
|
||||
#include <utils.h>
|
||||
#include <apple1.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
byte *const KEYBUF = (byte *) 0x0200; // use the same keyboard buffer as in WOZ monitor
|
||||
|
||||
unsigned int start_address;
|
||||
unsigned int end_address;
|
||||
unsigned int check_sum;
|
||||
|
||||
unsigned int hex_to_word(byte *str) {
|
||||
unsigned int tmpword=0;
|
||||
byte hex_to_word_ok = 1;
|
||||
byte c;
|
||||
byte i;
|
||||
for(i=0; c=str[i]; ++i) {
|
||||
tmpword = tmpword << 4;
|
||||
if(c>='0' && c<='9') tmpword += (c-'0');
|
||||
else if(c>='A' && c<='F') tmpword += (c-65)+0x0A;
|
||||
else hex_to_word_ok = 0;
|
||||
}
|
||||
if(i>4 || i==0) hex_to_word_ok = 0;
|
||||
return tmpword;
|
||||
}
|
||||
|
||||
void main() {
|
||||
woz_puts("\r\r*** CHECKSUM ***\r");
|
||||
|
||||
while(1) {
|
||||
woz_puts("\rSTART ADDRESS "); apple1_input_line_prompt(KEYBUF, 4); if(KEYBUF[0]!=0) start_address = hex_to_word(KEYBUF);
|
||||
woz_puts("\rEND ADDRESS "); apple1_input_line_prompt(KEYBUF, 4); if(KEYBUF[0]!=0) end_address = hex_to_word(KEYBUF);
|
||||
|
||||
check_sum = 0;
|
||||
|
||||
for(unsigned int t=start_address;;t++) {
|
||||
byte b = *((byte *)t);
|
||||
check_sum += (unsigned int) b;
|
||||
if(t==end_address) break;
|
||||
}
|
||||
|
||||
woz_puts("\r\r");
|
||||
woz_print_hexword(start_address);
|
||||
woz_putc('-');
|
||||
woz_print_hexword(end_address);
|
||||
woz_puts(" => ");
|
||||
woz_print_hexword(check_sum);
|
||||
woz_puts(" CHECKSUM\r\r");
|
||||
}
|
||||
}
|
||||
|
14
demos/checksum/m.bat
Normal file
14
demos/checksum/m.bat
Normal file
@ -0,0 +1,14 @@
|
||||
@echo off
|
||||
|
||||
call ..\..\tools\build checksum
|
||||
call ..\..\tools\build ramchk
|
||||
call ..\..\tools\build ramfill
|
||||
|
||||
copy out\checksum.prg ..\..\..\apple1-emu\software\checksum.prg /y
|
||||
copy out\ramchk.prg ..\..\..\apple1-emu\software\ramchk.prg /y
|
||||
copy out\ramfill.prg ..\..\..\apple1-emu\software\ramfill.prg /y
|
||||
|
||||
copy out\checksum.bin ..\..\..\apple1-emu\software\sdcard_image\PLAB\CHKSUM#060280 /y
|
||||
copy out\ramchk.bin ..\..\..\apple1-emu\software\sdcard_image\PLAB\RAMCHK#060280 /y
|
||||
copy out\ramfill.bin ..\..\..\apple1-emu\software\sdcard_image\PLAB\RAMFILL#060280 /y
|
||||
|
100
demos/checksum/ramchk.c
Normal file
100
demos/checksum/ramchk.c
Normal file
@ -0,0 +1,100 @@
|
||||
#define APPLE1_USE_WOZ_MONITOR 1
|
||||
|
||||
#define INPUT_LINE_PROMPT_CHAR '?'
|
||||
|
||||
#include <string.h>
|
||||
|
||||
#include <utils.h>
|
||||
#include <apple1.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
byte *const KEYBUF = (byte *) 0x0200; // use the same keyboard buffer as in WOZ monitor
|
||||
|
||||
byte *start_address;
|
||||
byte *end_address;
|
||||
|
||||
unsigned int hex_to_word(byte *str) {
|
||||
unsigned int tmpword=0;
|
||||
byte hex_to_word_ok = 1;
|
||||
byte c;
|
||||
byte i;
|
||||
for(i=0; c=str[i]; ++i) {
|
||||
tmpword = tmpword << 4;
|
||||
if(c>='0' && c<='9') tmpword += (c-'0');
|
||||
else if(c>='A' && c<='F') tmpword += (c-65)+0x0A;
|
||||
else hex_to_word_ok = 0;
|
||||
}
|
||||
if(i>4 || i==0) hex_to_word_ok = 0;
|
||||
return tmpword;
|
||||
}
|
||||
|
||||
// 0 = bad ram
|
||||
// 1 = good ram
|
||||
// 2 = rom
|
||||
byte test_location(byte *ptr) {
|
||||
byte oldval = *ptr;
|
||||
*ptr = ~oldval; if(*ptr == oldval) return 2; // ROM found
|
||||
|
||||
if(*ptr != ~oldval) return 0;
|
||||
|
||||
*ptr = 0; if(*ptr != 0 ) return 0;
|
||||
*ptr = 255; if(*ptr != 255 ) return 0;
|
||||
|
||||
*ptr = (1<<0); if(*ptr != (1<<0) ) return 0;
|
||||
*ptr = (1<<1); if(*ptr != (1<<1) ) return 0;
|
||||
*ptr = (1<<2); if(*ptr != (1<<2) ) return 0;
|
||||
*ptr = (1<<3); if(*ptr != (1<<3) ) return 0;
|
||||
*ptr = (1<<4); if(*ptr != (1<<4) ) return 0;
|
||||
*ptr = (1<<5); if(*ptr != (1<<5) ) return 0;
|
||||
*ptr = (1<<6); if(*ptr != (1<<6) ) return 0;
|
||||
*ptr = (1<<7); if(*ptr != (1<<7) ) return 0;
|
||||
|
||||
*ptr = (~(1<<0)); if(*ptr != (~(1<<0)) ) return 0;
|
||||
*ptr = (~(1<<1)); if(*ptr != (~(1<<1)) ) return 0;
|
||||
*ptr = (~(1<<2)); if(*ptr != (~(1<<2)) ) return 0;
|
||||
*ptr = (~(1<<3)); if(*ptr != (~(1<<3)) ) return 0;
|
||||
*ptr = (~(1<<4)); if(*ptr != (~(1<<4)) ) return 0;
|
||||
*ptr = (~(1<<5)); if(*ptr != (~(1<<5)) ) return 0;
|
||||
*ptr = (~(1<<6)); if(*ptr != (~(1<<6)) ) return 0;
|
||||
*ptr = (~(1<<7)); if(*ptr != (~(1<<7)) ) return 0;
|
||||
|
||||
*ptr = oldval; if(*ptr != oldval) return 0;
|
||||
|
||||
return 1; // good ram
|
||||
}
|
||||
|
||||
void main() {
|
||||
woz_puts("\r\r*** RAM CHECK ***\r");
|
||||
|
||||
while(1) {
|
||||
byte curr_state = 3;
|
||||
|
||||
woz_puts("\rSTART ADDRESS "); apple1_input_line_prompt(KEYBUF, 4); start_address = (byte *) hex_to_word(KEYBUF);
|
||||
woz_puts("\rEND ADDRESS "); apple1_input_line_prompt(KEYBUF, 4); end_address = (byte *) hex_to_word(KEYBUF);
|
||||
|
||||
woz_puts("\r\r");
|
||||
|
||||
for(byte *t=start_address;;t++) {
|
||||
byte new_state = test_location(t);
|
||||
if(new_state != curr_state) {
|
||||
curr_state = new_state;
|
||||
woz_putc('\r');
|
||||
woz_print_hexword((unsigned int )t);
|
||||
if(curr_state == 0) { woz_puts(" BAD RAM"); curr_state = 3; }
|
||||
else if(curr_state == 1) woz_puts(" RAM");
|
||||
else if(curr_state == 2) woz_puts(" ROM");
|
||||
}
|
||||
|
||||
//if(!) {
|
||||
// woz_print_hexword((unsigned int )t);
|
||||
// woz_putc(' ');
|
||||
//}
|
||||
|
||||
if(t==end_address) break;
|
||||
//if((t & 0xFF)==0) woz_putc('.');
|
||||
}
|
||||
|
||||
woz_puts("\r\rDONE\r\r");
|
||||
}
|
||||
}
|
||||
|
75
demos/checksum/ramfill.c
Normal file
75
demos/checksum/ramfill.c
Normal file
@ -0,0 +1,75 @@
|
||||
#define APPLE1_USE_WOZ_MONITOR 1
|
||||
|
||||
#define INPUT_LINE_PROMPT_CHAR '?'
|
||||
|
||||
#include <string.h>
|
||||
|
||||
#include <utils.h>
|
||||
#include <apple1.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
byte *const KEYBUF = (byte *) 0x0200; // use the same keyboard buffer as in WOZ monitor
|
||||
|
||||
byte *start_address;
|
||||
byte *end_address;
|
||||
|
||||
unsigned int hex_to_word(byte *str) {
|
||||
unsigned int tmpword=0;
|
||||
byte hex_to_word_ok = 1;
|
||||
byte c;
|
||||
byte i;
|
||||
for(i=0; c=str[i]; ++i) {
|
||||
tmpword = tmpword << 4;
|
||||
if(c>='0' && c<='9') tmpword += (c-'0');
|
||||
else if(c>='A' && c<='F') tmpword += (c-65)+0x0A;
|
||||
else hex_to_word_ok = 0;
|
||||
}
|
||||
if(i>4 || i==0) hex_to_word_ok = 0;
|
||||
return tmpword;
|
||||
}
|
||||
|
||||
void main() {
|
||||
woz_puts("\r\r*** RAM FILL TEST ***\r");
|
||||
|
||||
woz_puts("\rSTART ADDRESS "); apple1_input_line_prompt(KEYBUF, 4); start_address = (byte *) hex_to_word(KEYBUF);
|
||||
woz_puts("\rEND ADDRESS "); apple1_input_line_prompt(KEYBUF, 4); end_address = (byte *) hex_to_word(KEYBUF);
|
||||
|
||||
woz_puts("\r\r");
|
||||
|
||||
while(1) {
|
||||
// fill with normal data
|
||||
rand_state = 1;
|
||||
for(byte *t=start_address;;t++) {
|
||||
byte r = (byte) (rand() & 0xFF);
|
||||
*t = r;
|
||||
if(t==end_address) break;
|
||||
}
|
||||
|
||||
// verify normal data
|
||||
rand_state = 1;
|
||||
for(byte *t=start_address;;t++) {
|
||||
byte r = (byte) (rand() & 0xFF);
|
||||
if(*t != r) { woz_print_hexword((unsigned int )t); woz_putc(' '); }
|
||||
if(t==end_address) break;
|
||||
}
|
||||
|
||||
// fill with inverted data
|
||||
rand_state = 1;
|
||||
for(byte *t=start_address;;t++) {
|
||||
byte r = (byte) (rand() & 0xFF);
|
||||
*t = ~r;
|
||||
if(t==end_address) break;
|
||||
}
|
||||
|
||||
// verify inverted data
|
||||
rand_state = 1;
|
||||
for(byte *t=start_address;;t++) {
|
||||
byte r = (byte) (rand() & 0xFF);
|
||||
if(*t != ~r) { woz_print_hexword((unsigned int )t); woz_putc(' '); }
|
||||
if(t==end_address) break;
|
||||
}
|
||||
|
||||
woz_putc('.');
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user