|
86
|
1 ********************************************************************
|
|
|
2 * sbc09 emulator
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Edt/Rev YYYY/MM/DD Modified by
|
|
|
7 * Comment
|
|
|
8 * ------------------------------------------------------------------
|
|
|
9 * 1 2018/08/20 S. Kono
|
|
|
10 * Emulatoe sbc09 on os9 lv2
|
|
|
11
|
|
|
12 nam Sbc09
|
|
|
13 ttl Sbc09 emulator
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 * Module header definitions
|
|
|
20 tylg set Prgrm+Objct
|
|
|
21 atrv set ReEnt+rev
|
|
|
22 rev set $00
|
|
|
23 edition set 1
|
|
|
24
|
|
|
25 mod eom,name,tylg,atrv,start,size
|
|
|
26
|
|
|
27 org 0
|
|
|
28 ioentry rmb $80
|
|
|
29 filepath rmb 2
|
|
|
30 parmptr rmb 2
|
|
|
31 stdin rmb 1
|
|
|
32 chksum rmb 1
|
|
|
33 bcount rmb 1
|
|
|
34 adr rmb 2
|
|
|
35 readbuff rmb $100
|
|
|
36 org $400
|
|
|
37 emstart rmb $e000-.
|
|
|
38 size equ .
|
|
|
39
|
|
|
40 name fcs /Sbc09/
|
|
|
41 fcb edition
|
|
|
42
|
|
|
43 start
|
|
|
44 clr <stdin
|
|
|
45 stx <parmptr save parameter pointer
|
|
|
46 lda #READ. read access mode
|
|
|
47 os9 I$Open open file
|
|
|
48 bcs L0049 branch if error
|
|
|
49 sta <filepath else save path to file
|
|
|
50 stx <parmptr and updated parm pointer
|
|
|
51 L001F lda <filepath get path
|
|
|
52 leax readbuff,u point X to read buffer
|
|
|
53 ldy #200 read up to 200 bytes
|
|
|
54 os9 I$ReadLn read it!
|
|
|
55 bcs L0035 branch if error
|
|
|
56 bsr srecords
|
|
|
57 bra L001F else exit
|
|
|
58 L0035 cmpb #E$EOF did we get an EOF error?
|
|
|
59 * bne L0049 exit if not
|
|
|
60 lda <filepath else get path
|
|
|
61 os9 I$Close and close it
|
|
|
62 bcs L0049 branch if error
|
|
|
63 * ldx <parmptr get param pointer
|
|
|
64 * lda ,x get char
|
|
|
65 * cmpa #C$CR end of command line?
|
|
|
66 * bne start branch if not
|
|
|
67
|
|
|
68 copytbl
|
|
87
|
69 lda #$17 lbra
|
|
|
70 sta $e400
|
|
|
71 leax Exit,pcr
|
|
|
72 leax -$e403,x
|
|
|
73 stx $e401
|
|
86
|
74 leax iotbl,pcr
|
|
|
75 leay iotblend,pcr
|
|
|
76 pshs x,y
|
|
|
77 ldy #(iotblend-iotbl)
|
|
|
78 l1 ldb #$7e * JMP
|
|
|
79 stb ,u+
|
|
|
80 ldd ,x++
|
|
|
81 addb 1,s
|
|
|
82 adca ,s
|
|
|
83 std ,u++
|
|
|
84 cmpx 2,s
|
|
|
85 bne l1
|
|
|
86 puls x,y
|
|
|
87 jmp $400
|
|
|
88
|
|
|
89 Exit clrb
|
|
|
90 os9 F$Exit
|
|
|
91
|
|
|
92 iotbl
|
|
|
93 fdb getchar-iotbl
|
|
|
94 fdb putchar-iotbl
|
|
|
95 fdb getline-iotbl
|
|
|
96 fdb putline-iotbl
|
|
|
97 fdb putcr-iotbl
|
|
|
98 fdb getpoll-iotbl
|
|
|
99 fdb xopenin-iotbl
|
|
|
100 fdb xopenout-iotbl
|
|
|
101 fdb xabortin-iotbl
|
|
|
102 fdb xclosein-iotbl
|
|
|
103 fdb xcloseout-iotbl
|
|
|
104 fdb delay-iotbl
|
|
|
105 iotblend
|
|
|
106
|
|
|
107 L0049
|
|
|
108 err ldb #1
|
|
|
109 bra Exit
|
|
|
110
|
|
|
111 srecords
|
|
|
112 leax readbuff,u
|
|
|
113 clr <chksum
|
|
|
114 sline lda ,x+
|
|
|
115 cmpa #'S'
|
|
|
116 bne slast
|
|
|
117 lda ,x+
|
|
|
118 cmpa #'1'
|
|
|
119 bne slast
|
|
|
120 bsr gthex2
|
|
|
121 subb #3
|
|
|
122 stb <bcount
|
|
|
123 bsr gthex2
|
|
|
124 stb <adr
|
|
|
125 bsr gthex2
|
|
|
126 stb <adr+1
|
|
|
127 lda <bcount
|
|
|
128 ldy <adr
|
|
|
129 sbyte bsr gthex2
|
|
|
130 stb ,y+
|
|
|
131 deca
|
|
|
132 bgt sbyte
|
|
|
133 slast
|
|
|
134 bsr gthex2
|
|
|
135 lda <chksum
|
|
|
136 cmpa #$ff
|
|
|
137 bne err1
|
|
|
138 err1
|
|
|
139 rts
|
|
|
140
|
|
|
141 gthex4 pshs d
|
|
|
142 bsr gthex2
|
|
|
143 stb ,s
|
|
|
144 bsr gthex2
|
|
|
145 stb 1,s
|
|
|
146 puls d,pc
|
|
|
147
|
|
|
148 gthex2 pshs b
|
|
|
149 bsr gthex1
|
|
|
150 aslb
|
|
|
151 aslb
|
|
|
152 aslb
|
|
|
153 aslb
|
|
|
154 stb ,s
|
|
|
155 bsr gthex1
|
|
|
156 addb ,s
|
|
|
157 stb ,s
|
|
|
158 addb <chksum
|
|
|
159 stb <chksum
|
|
|
160 puls b,pc
|
|
|
161
|
|
|
162 gthex1 ldb ,x+
|
|
|
163 subb #'0'
|
|
|
164 blo rgethex1
|
|
|
165 cmpb #9
|
|
|
166 bls rgethex1
|
|
|
167 subb #7
|
|
|
168 rgethex1
|
|
|
169 rts
|
|
|
170
|
|
|
171 putchar * Output one character in B register.
|
|
|
172 PSHS X,Y
|
|
|
173 BRA OUTCH1
|
|
|
174 getchar * Input one character into B register.
|
|
|
175 PSHS A,B,X,Y
|
|
|
176 GETCH0
|
|
|
177 LDA #0
|
|
|
178 LEAX 1,S
|
|
|
179 LDY #1
|
|
|
180 OS9 I$Read
|
|
|
181 BCS GETCH0
|
|
|
182 PULS A,B,X,Y,PC
|
|
|
183 putcr * Output a newline.
|
|
|
184 LDB #C$CR
|
|
|
185 bsr putchar
|
|
|
186 LDB #C$LF
|
|
|
187 PSHS X,Y
|
|
|
188 OUTCH1 PSHS A,B
|
|
|
189 LEAX 1,S
|
|
|
190 LDA #1
|
|
|
191 LDY #1
|
|
|
192 OS9 I$Write
|
|
|
193 PULS A,B,X,Y,PC
|
|
|
194 getpoll
|
|
|
195 PSHS X,Y,D
|
|
|
196 LDA #0
|
|
|
197 LDB #SS.Ready
|
|
|
198 OS9 I$GetStt
|
|
|
199 CMPB #$F6 Not Ready
|
|
|
200 BNE RSENSE
|
|
|
201 CLRB
|
|
|
202 PULS X,Y,D,PC
|
|
|
203 RSENSE
|
|
|
204 ORCC #1 set carry to indicate ready
|
|
|
205 RNSENSE
|
|
|
206 PULS X,Y,D,PC
|
|
|
207
|
|
|
208 getline * Input line at address in X, length in B.
|
|
|
209 PSHS A,B,X,Y
|
|
|
210 GETLN0
|
|
|
211 CLRA
|
|
|
212 TFR D,Y
|
|
|
213 LDA <stdin
|
|
|
214 OS9 I$ReadLn
|
|
|
215 BCS GETLN0
|
|
87
|
216 LEAY -1,Y
|
|
|
217 TFR Y,D
|
|
86
|
218 * LDA D,X
|
|
|
219 * CMPA #C$CR
|
|
|
220 * BNE GETLN1
|
|
|
221 * LEAY -1,Y
|
|
|
222 GETLN1 STY ,S
|
|
|
223 PULS A,B,X,Y,PC
|
|
|
224 putline * Output string at address in X, length in B.
|
|
|
225 PSHS A,B,X,Y
|
|
|
226 CLRA
|
|
|
227 TFR D,Y
|
|
|
228 LDA <stdin
|
|
|
229 OS9 I$WritLn
|
|
|
230 PULS A,B,X,Y,PC
|
|
|
231 xopenin
|
|
|
232 xopenout
|
|
|
233 xabortin
|
|
|
234 xclosein
|
|
|
235 xcloseout
|
|
|
236 RTS
|
|
|
237
|
|
|
238 delay PSHS D,X * address **$21**
|
|
|
239 * On input the D register contains the number of timer
|
|
|
240 * ticks to wait. Each timer tick is 20ms
|
|
|
241 TFR D,X
|
|
|
242 OS9 F$Sleep
|
|
|
243 PULS D,X,PC
|
|
|
244
|
|
|
245
|
|
|
246
|
|
|
247 emod
|
|
|
248 eom equ *
|
|
|
249 end
|
