Subversion Repositories Shiroi

Rev

Rev 22 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 22 Rev 27
Line 1... Line 1...
1 
/* $Id: shiroi.c 22 2024-08-31 10:44:32Z nishi $ */
 1 
/* $Id: shiroi.c 27 2024-08-31 12:38:59Z nishi $ */
2 
 
 2 
 
3 
#include "io.h"
 3 
#include "io.h"
4 
 
 4 
 
5 
#include "dri/math.h"
 5 
#include "dri/math.h"
6 
#include "dri/sound.h"
 6 
#include "dri/sound.h"
Line 114... Line 114...
114 
 
 114 
 
115 
	clear();
 115 
	clear();
116 
 
 116 
 
117 
	beep();
 117 
	beep();
118 
 
 118 
 
- 
 
 119 
	char hlt = 0;
119 
	if(text_kbd_data == -1){
 120 
	if(text_kbd_data == -1){
120 
		debug_number(0x0002);
 121 
		debug_number(0x0002);
- 
 
 122 
		thin_char();
121 
		putstr("Text  Card Mark I not present\r\n");
 123 
		putstr("Text  Card Mark I not present\r\n");
122 
		putstr("Text  Card Mark I is required to use the BASIC\r\n");
 124 
		putstr("Text  Card Mark I is required to use\r\nthe BASIC\r\n\r\n");
123 
		putstr("Halted. Get one.\r\n");
 - 
 
124 
		while(1);
 125 
		hlt = 1;
125 
	}
 126 
	}
126 
	if(fpu_stack == -1){
 127 
	if(fpu_stack == -1){
127 
		debug_number(0x0003);
 128 
		debug_number(hlt == 1 ? 0x0023 : 0x0003);
- 
 
 129 
		thin_char();
128 
		putstr("Math  Card Mark I not present\r\n");
 130 
		putstr("Math  Card Mark I not present\r\n");
129 
		putstr("Math  Card Mark I is required to use the BASIC\r\n");
 131 
		putstr("Math  Card Mark I is required to use\r\nthe BASIC\r\n\r\n");
- 
 
 132 
		hlt = 1;
- 
 
 133 
	}
- 
 
 134 
	if(hlt == 1){
130 
		putstr("Halted. Get one.\r\n");
 135 
		putstr("Halted.\r\n");
131 
		while(1);
 136 
		while(1);
132 
	}
 137 
	}
133 
 
 138 
 
134 
	int incr;
 139 
	int incr;
135 
	int move = 0;
 140 
	int move = 0;