annotate io.c @ 54:fc10b7ae23d0

clock level2 worked
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 22 Jul 2018 19:41:06 +0900
parents fe88cea67ef0
children 8d151f303bee
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9
cb7aa75418b8 mmu and io
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
1 /* 6808 Simulator V092
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
2 created 1993,1994 by L.C. Benschop. copyleft (c) 1994-2014
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
3 by the sbc09 team, see AUTHORS for more details. license: GNU
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
4 General Public License version 2, see LICENSE for more details.
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 This program simulates a 6809 processor.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 System dependencies: short must be 16 bits.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 char must be 8 bits.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 long must be more than 16 bits.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 arrays up to 65536 bytes must be supported.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 machine must be twos complement.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 Most Unix machines will work. For MSODS you need long pointers
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 and you may have to malloc() the mem array of 65536 bytes.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 Define BIG_ENDIAN if you have a big-endian machine (680x0 etc)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 Special instructions:
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 SWI2 writes char to stdout from register B.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 SWI3 reads char from stdout to register B, sets carry at EOF.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 (or when no key available when using term control).
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 SWI retains its normal function.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 CWAI and SYNC stop simulator.
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 */
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 #include<stdio.h>
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 #include<stdlib.h>
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 #include<ctype.h>
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 #include<signal.h>
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 #include<sys/time.h>
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 #include <unistd.h>
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 #include <fcntl.h>
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 #include <string.h>
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
36 #include <time.h>
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 #ifdef USE_TERMIOS
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 #include <termios.h>
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 #endif
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 #define engine extern
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 #include "v09.h"
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
45 /*
3
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
46 * IO Map ( can be overrupped by ROM )
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
47 *
46
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
48 * In do_input/do_output call, we cannot access 6809 registers, since it is in i*reg,
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
49 * which is a local variable of interpr
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
50 *
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
51 * IOPAGE ~ IOPAGE+0x7f
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
52 * for OS9 level2
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
53 * IOPAGE 0xff80 means ioport beging 0xff80 but IOPAGE itself starts 0xff00
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
54 * 0xfe00-0xff7f, 0xffe0-0xffff can be used as RAM in fixed area in level2
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
55 * and these are ROM in level1
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
56 *
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
57 *
3
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
58 * IOPAGE + 0x00 ACIA control
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
59 * IOPAGE + 0x01 ACIA data
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
60 *
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
61 * IOPAGE + 0x11 MMU Taskreg 0 system map, 1 user map
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
62 * IOPAGE + 0x20-0x27 MMU reg system map
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
63 * IOPAGE + 0x28-0x2f MMU reg user map
3
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
64 *
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
65 * on reset tr==0 and only IOPAGE is valid
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
66 * translatation occur only on non-IOPAGE
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
67 * mem == phymem + 0x70000
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
68 * phy addr = phymem[ ( mmu[ adr >> 13 ] <<13 ) + (adr & 0x1fff ) ]
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
69 * tr=0 mmu=IOPAGE+0xa0
831ac057ea86 before mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
70 * tr=1 mmu=IOPAGE+0xa8
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
71 *
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
72 * IOPAGE + 0x30 Timer control 0x8f start timer/0x80 stop timer/0x04 update date
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
73 * read 0x10 bit menas timer
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
74 * IOPAGE + 0x31- YY/MM/DD/HH/MM/SS
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
75 *
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
76 * IOPAGE + 0x40 Disk control 0x81 read/0x55 write 0 ... ok / 0xff .. error
45
07c84761da6f dd vrbf asm code
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 44
diff changeset
77 * 0xd1- VDISK command
07c84761da6f dd vrbf asm code
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 44
diff changeset
78 * IOPAGE + 0x41 drive no / VDISK drv
07c84761da6f dd vrbf asm code
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 44
diff changeset
79 * IOPAGE + 0x42 LSN2 / VDISK sysmode 0 for system, 1 for user
49
947cbecdd8d5 read and dir worked.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 48
diff changeset
80 * IOPAGE + 0x43 LSN1
947cbecdd8d5 read and dir worked.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 48
diff changeset
81 * IOPAGE + 0x44 LSN0 / VDISK Curdir pd number
46
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
82 * IOPAGE + 0x45 ADR2 / VDISK caller stack
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
83 * IOPAGE + 0x46 ADR1
47
15f1e1b49928 open dir worked ?
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 46
diff changeset
84 * IOPAGE + 0x47 / VDISK path descriptor address (Y)
15f1e1b49928 open dir worked ?
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 46
diff changeset
85 * IOPAGE + 0x48
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
86 *
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
87 *
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
88 */
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
89
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
90 #define SECSIZE 256
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
91
19
84b28178c82f level2 shell worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 18
diff changeset
92
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 int timer = 1;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 struct termios termsetting;
20
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
95 struct termios newterm;
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
96 struct itimerval timercontrol;
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
97
20
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
98 int tflags;
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 int xmstat; /* 0= no XMODEM transfer, 1=send, 2=receiver */
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 unsigned char xmbuf[132];
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 int xidx;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 int acknak;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 int rcvdnak;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 int blocknum;
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
105 int timer_irq = 2 ; // 2 = FIRQ, 1 = IRQ
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
106
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 FILE *infile;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 FILE *xfile;
20
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
109 FILE *logfile;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
110 FILE *disk[] = {0,0};
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
111
46
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
112 #ifdef USE_VDISK
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
113 extern void do_vdisk(int c);
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
114 #endif
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
115
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
116
9
cb7aa75418b8 mmu and io
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
117 #ifdef USE_MMU
cb7aa75418b8 mmu and io
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
118 extern char *prog ; // for disass
11
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
119 extern Byte * mem0(Byte *iphymem, Word adr, Byte *immu) ;
44
b26c23331d02 add more function on vdisk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 35
diff changeset
120 #define pmem(a) mem0(phymem,a,mmu)
b26c23331d02 add more function on vdisk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 35
diff changeset
121 #else
b26c23331d02 add more function on vdisk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 35
diff changeset
122 #define pmem(a) (&mem[a])
9
cb7aa75418b8 mmu and io
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
123 #endif
cb7aa75418b8 mmu and io
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
124
44
b26c23331d02 add more function on vdisk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 35
diff changeset
125
20
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
126 extern int bpskip ;
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
127 extern int stkskip ;
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
128 extern FILE *logfile;
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
129
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
130 void do_timer(int,int);
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
131 void do_disk(int,int);
4
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
132 void do_mmu(int,int);
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
133
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 int char_input(void) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 int c, w, sum;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 if (!xmstat) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 if (infile) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 c = getc(infile);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 if (c == EOF) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 fclose(infile);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 infile = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 return char_input();
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 if (c == '\n')
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 c = '\r';
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 return c;
2
31d96e2b364e add virtual hd option to v09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
147 } else {
31d96e2b364e add virtual hd option to v09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
148 usleep(100);
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 return getchar();
2
31d96e2b364e add virtual hd option to v09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 1
diff changeset
150 }
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 } else if (xmstat == 1) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 if (xidx) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
153 c = xmbuf[xidx++];
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
154 if (xidx == 132) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 xidx = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
156 rcvdnak = EOF;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 acknak = 6;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 } else {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 if ((acknak == 21 && rcvdnak == 21) || (acknak == 6 && rcvdnak == 6)) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 rcvdnak = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
162 memset(xmbuf, 0, 132);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 w = fread(xmbuf + 3, 1, 128, xfile);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 if (w) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 printf("Block %3d transmitted, ", blocknum);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 xmbuf[0] = 1;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 xmbuf[1] = blocknum;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
168 xmbuf[2] = 255 - blocknum;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 blocknum = (blocknum + 1) & 255;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 sum = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 for (w = 3; w < 131; w++)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 sum = (sum + xmbuf[w]) & 255;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 xmbuf[131] = sum;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 acknak = 6;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
175 c = 1;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 xidx = 1;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 } else {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 printf("EOT transmitted, ");
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 acknak = 4;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 c = 4;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
181 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 } else if (rcvdnak == 21) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 rcvdnak = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 printf("Block %3d retransmitted, ", xmbuf[1]);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 c = xmbuf[xidx++]; /*retransmit the same block */
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 } else
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 c = EOF;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
188 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 return c;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 } else {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 if (acknak == 4) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
192 c = 6;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 acknak = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 fclose(xfile);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
195 xfile = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 xmstat = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 } else if (acknak) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
198 c = acknak;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 acknak = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 } else
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 c = EOF;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 if (c == 6)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 printf("ACK\n");
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 if (c == 21)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 printf("NAK\n");
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 return c;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
209
9
cb7aa75418b8 mmu and io
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
210 int do_input(int a) {
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 static int c, f = EOF;
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
212 if (a == 0+(IOPAGE&0x1ff)) {
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 if (f == EOF)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 f = char_input();
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
215 if (f != EOF) {
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 c = f;
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
217 mem[(IOPAGE&0xfe00) + a] = c;
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
218 }
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
219 mem[(IOPAGE&0xfe00) + a] = c = 2 + (f != EOF);
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
220 return c;
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
221 } else if (a == 1+(IOPAGE&0x1ff)) { /*data port*/
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 if (f == EOF)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 f = char_input();
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 if (f != EOF) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 c = f;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 f = EOF;
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
227 mem[(IOPAGE&0xfe00) + a] = c;
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 return c;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 }
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
231 return mem[(IOPAGE&0xfe00) + a];
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
233
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 void do_output(int a, int c) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 int i, sum;
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
236 if (a == 1+(IOPAGE&0x1ff)) { /* ACIA data port,ignore address */
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 if (!xmstat) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 if (logfile && c != 127 && (c >= ' ' || c == '\n'))
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 putc(c, logfile);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
240 putchar(c);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 fflush(stdout);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 } else if (xmstat == 1) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
243 rcvdnak = c;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 if (c == 6 && acknak == 4) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 fclose(xfile);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 xfile = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 xmstat = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
248 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 if (c == 6)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
250 printf("ACK\n");
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 if (c == 21)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
252 printf("NAK\n");
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 if (c == 24) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 printf("CAN\n");
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
255 fclose(xfile);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
256 xmstat = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
257 xfile = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
258 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
259 } else {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 if (xidx == 0 && c == 4) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
261 acknak = 4;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 printf("EOT received, ");
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
264 xmbuf[xidx++] = c;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
265 if (xidx == 132) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
266 sum = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
267 for (i = 3; i < 131; i++)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
268 sum = (sum + xmbuf[i]) & 255;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 if (xmbuf[0] == 1 && xmbuf[1] == 255 - xmbuf[2]
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 && sum == xmbuf[131])
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
271 acknak = 6;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
272 else
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
273 acknak = 21;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
274 printf("Block %3d received, ", xmbuf[1]);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
275 if (blocknum == xmbuf[1]) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
276 blocknum = (blocknum + 1) & 255;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
277 fwrite(xmbuf + 3, 1, 128, xfile);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
278 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
279 xidx = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
280 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
281 }
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
282 } else if (a >= 0x40+(IOPAGE&0x1ff)) { /* disk */
11
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
283 do_disk(a,c);
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
284 } else if (a >= 0x30+(IOPAGE&0x1ff)) { /* timer */
11
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
285 do_timer(a,c);
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
286 } else if (a >= 0x10+(IOPAGE&0x1ff)) { /* mmu */
4
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
287 do_mmu(a,c);
35
01519215ec70 add watch point
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 34
diff changeset
288 #ifdef USE_MMU
01519215ec70 add watch point
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 34
diff changeset
289 } else { /* fixed ram */
01519215ec70 add watch point
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 34
diff changeset
290 mem[ a + 0xfe00 ] = c;
01519215ec70 add watch point
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 34
diff changeset
291 #endif
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
292 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
293 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
294
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
295
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
296 void do_timer(int a, int c) {
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
297 struct itimerval timercontrol;
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
298 if (a==0x30+(IOPAGE&0x1ff) && c==0x8f) {
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
299 timercontrol.it_interval.tv_sec = 0;
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
300 timercontrol.it_interval.tv_usec = 20000;
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
301 timercontrol.it_value.tv_sec = 0;
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
302 timercontrol.it_value.tv_usec = 20000;
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
303 timer_irq = 1;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
304 setitimer(ITIMER_REAL, &timercontrol, NULL);
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
305 mem[(IOPAGE&0xfe00)+a]=c;
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
306 } else if (a==0x30+(IOPAGE&0x1ff) && c==0x80) {
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
307 timercontrol.it_interval.tv_sec = 0;
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
308 timercontrol.it_interval.tv_usec = 0;
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
309 setitimer(ITIMER_REAL, &timercontrol, NULL);
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
310 mem[(IOPAGE&0xfe00)+a]=c;
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
311 } else if (a==0x30+(IOPAGE&0x1ff) && c==0x04) {
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
312 time_t tm = time(0);
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
313 struct tm *t = localtime(&tm);
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
314 mem[IOPAGE+0x31] = t->tm_year;
53
fe88cea67ef0 clock interrupt
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 52
diff changeset
315 mem[IOPAGE+0x32] = t->tm_mon+1;
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
316 mem[IOPAGE+0x33] = t->tm_mday;
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
317 mem[IOPAGE+0x34] = t->tm_hour;
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
318 mem[IOPAGE+0x35] = t->tm_min;
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
319 mem[IOPAGE+0x36] = t->tm_sec;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
320 } else {
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
321 mem[(IOPAGE&0xfe00)+a]=c;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
322 }
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
323 }
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
324
44
b26c23331d02 add more function on vdisk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 35
diff changeset
325
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
326 void do_disk(int a, int c) {
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
327 if (a!=0x40+(IOPAGE&0x1ff)) {
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
328 mem[(IOPAGE&0xfe00)+a]=c;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
329 return;
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
330 }
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
331 int drv = mem[IOPAGE+0x41];
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
332 int lsn = (mem[IOPAGE+0x42]<<16) + (mem[IOPAGE+0x43]<<8) + mem[IOPAGE+0x44];
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
333 int buf = (mem[IOPAGE+0x45]<<8) + mem[IOPAGE+0x46];
44
b26c23331d02 add more function on vdisk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 35
diff changeset
334 Byte *phy = pmem(buf);
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
335 if (c==0x81) {
52
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 49
diff changeset
336 if (drv > 1 || disk[drv]==0) goto error;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
337 if (lseek(fileno(disk[drv]),lsn*SECSIZE,SEEK_SET)==-1) goto error;
30
7b1b25ff010a disk io for mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 23
diff changeset
338 if (read(fileno(disk[drv]),phy,SECSIZE)==-1) goto error;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
339 } else if (c==0x55) {
52
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 49
diff changeset
340 if (drv > 1 || disk[drv]==0) goto error;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
341 if (lseek(fileno(disk[drv]),lsn*SECSIZE,SEEK_SET)==-1) goto error;
30
7b1b25ff010a disk io for mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 23
diff changeset
342 if (write(fileno(disk[drv]),phy,SECSIZE)==-1) goto error;
46
ec9f494497e1 vdisk fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
343 #ifdef USE_VDISK
44
b26c23331d02 add more function on vdisk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 35
diff changeset
344 } else {
b26c23331d02 add more function on vdisk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 35
diff changeset
345 do_vdisk(c);
48
ea1b17311bf3 dir /v0 worked but dir /v0/src and chd /v0; dir does not
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 47
diff changeset
346 return;
44
b26c23331d02 add more function on vdisk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 35
diff changeset
347 #endif
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
348 }
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
349 mem[IOPAGE+0x40] = 0;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
350 return;
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
351 error :
7
a6db579d8c11 level 2 rom preparing...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 4
diff changeset
352 mem[IOPAGE+0x40] = 0xff;
1
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
353 }
3c736a81b886 add disk
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
354
4
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
355 void do_mmu(int a, int c)
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
356 {
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
357 #ifdef USE_MMU
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
358
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
359 if (a==0x11+(IOPAGE&0x1ff)) {
13
2aebc6b17fbf swi/rti bug fixed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
360 if (c&1) {
23
5217f23f2f9e break point
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 22
diff changeset
361 mmu = &mem[0xffa8];
13
2aebc6b17fbf swi/rti bug fixed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 12
diff changeset
362 } else {
23
5217f23f2f9e break point
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 22
diff changeset
363 mmu = &mem[0xffa0];
4
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
364 }
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
365 }
18
e3b08716aa53 fix mmu
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 13
diff changeset
366 mem[(IOPAGE&0xfe00)+a] = c; // other register such as 0xffa0-0xffaf
4
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
367 #endif
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
368 }
6159cc57d44e on going ...
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
369
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
370 void timehandler(int sig) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
371 attention = 1;
53
fe88cea67ef0 clock interrupt
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 52
diff changeset
372 #ifdef USE_MMU
fe88cea67ef0 clock interrupt
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 52
diff changeset
373 irq = 1;
fe88cea67ef0 clock interrupt
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 52
diff changeset
374 #else
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
375 irq = 2;
53
fe88cea67ef0 clock interrupt
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 52
diff changeset
376 #endif
fe88cea67ef0 clock interrupt
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 52
diff changeset
377 mem[IOPAGE+0x30] |= 0x10 ;
34
2032755628dc fix for nitros9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 30
diff changeset
378 // signal(SIGALRM, timehandler);
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
379 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
380
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
381 void handler(int sig) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
382 escape = 1;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
383 attention = 1;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
384 bpskip = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
385 stkskip = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
386 }
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
387
20
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
388 void init_term(void) {
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
389 tcgetattr(0, &termsetting);
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
390 tflags = fcntl(0, F_GETFL, 0);
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
391 }
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
392
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
393 void set_term(char c) {
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
394 signal(SIGQUIT, SIG_IGN);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
395 signal(SIGTSTP, SIG_IGN);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
396 signal(SIGINT, handler);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
397 signal(SIGUSR1, handler);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
398 newterm = termsetting;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
399 newterm.c_iflag = newterm.c_iflag & ~INLCR & ~ICRNL;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
400 newterm.c_lflag = newterm.c_lflag & ~ECHO & ~ICANON;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
401 newterm.c_cc[VTIME] = 0;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
402 newterm.c_cc[VMIN] = 1;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
403 newterm.c_cc[VINTR] = escchar;
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
404 tcsetattr(0, TCSAFLUSH, &newterm);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
405 fcntl(0, F_SETFL, tflags | O_NDELAY); /* Make input from stdin non-blocking */
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
406 signal(SIGALRM, timehandler);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
407 timercontrol.it_interval.tv_sec = 0;
54
fc10b7ae23d0 clock level2 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 53
diff changeset
408 timercontrol.it_interval.tv_usec = 2000000;
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
409 timercontrol.it_value.tv_sec = 0;
54
fc10b7ae23d0 clock level2 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 53
diff changeset
410 timercontrol.it_value.tv_usec = 2000000;
0
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
411 if (timer)
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
412 setitimer(ITIMER_REAL, &timercontrol, NULL);
9a224bd9b45f os9 emulation
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
413 }
20
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
414
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
415 void restore_term(void) {
22
10e33568b38a clean up
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 20
diff changeset
416 termsetting.c_iflag = termsetting.c_iflag | INLCR | ICRNL;
20
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
417 tcsetattr(0, TCSAFLUSH, &termsetting);
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
418 fcntl(0, F_SETFL, tflags);
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
419 signal(SIGALRM, SIG_IGN);
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
420 }
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
421
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
422
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
423
49fac9474858 separate trace file
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 19
diff changeset
424