Subversion Repositories Shiroi

Rev

Rev 12 | Rev 14 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12 Rev 13
Line 1... Line 1...
1 
/* $Id: shiroi.c 12 2024-08-29 04:19:08Z nishi $ */
 1 
/* $Id: shiroi.c 13 2024-08-29 04:36:14Z nishi $ */
2 
 
 2 
 
3 
#include "io.h"
 3 
#include "io.h"
4 
 
 4 
 
5 
#include "math.h"
 5 
#include "math.h"
6 
#include "sound.h"
 6 
#include "sound.h"
Line 104... Line 104...
104 
	if(vdp_addr == -1){
 104 
	if(vdp_addr == -1){
105 
#else
 105 
#else
106 
	if(vdp_addr == -1 && vdg_addr == -1){
 106 
	if(vdp_addr == -1 && vdg_addr == -1){
107 
#endif
 107 
#endif
108 
		int i;
 108 
		int i;
- 
 
 109 
		debug_number(0x0001);
109 
		for(i = 0; i < 3; i++){
 110 
		for(i = 0; i < 3; i++){
110 
			_beep(1L * 1024 / 2);
 111 
			_beep(1L * 1024);
111 
			unsigned long j;
 112 
			unsigned long j;
112 
			for(j = 0; j < 1L * 1024 / 2; j++);
 113 
			for(j = 0; j < 1L * 1024; j++);
113 
		}
 114 
		}
114 
		while(1);
 115 
		while(1);
115 
	}
 116 
	}
116 
 
 117 
 
117 
	video_init();
 118 
	video_init();
Line 120... Line 121...
120 
	clear();
 121 
	clear();
121 
 
 122 
 
122 
	beep();
 123 
	beep();
123 
 
 124 
 
124 
	if(text_kbd_data == -1){
 125 
	if(text_kbd_data == -1){
- 
 
 126 
		debug_number(0x0002);
125 
		putstr("Text  Card Mark I not present\r\n");
 127 
		putstr("Text  Card Mark I not present\r\n");
126 
		putstr("Text  Card Mark I is required to use the BASIC\r\n");
 128 
		putstr("Text  Card Mark I is required to use the BASIC\r\n");
127 
		putstr("Halted. Get one.\r\n");
 129 
		putstr("Halted. Get one.\r\n");
128 
		while(1);
 130 
		while(1);
129 
	}
 131 
	}
130 
	if(fpu_stack == -1){
 132 
	if(fpu_stack == -1){
- 
 
 133 
		debug_number(0x0003);
131 
		putstr("Math  Card Mark I not present\r\n");
 134 
		putstr("Math  Card Mark I not present\r\n");
132 
		putstr("Math  Card Mark I is required to use the BASIC\r\n");
 135 
		putstr("Math  Card Mark I is required to use the BASIC\r\n");
133 
		putstr("Halted. Get one.\r\n");
 136 
		putstr("Halted. Get one.\r\n");
134 
		while(1);
 137 
		while(1);
135 
	}
 138 
	}