0
|
1 ;Buggy machine language monitor and rudimentary O.S. version 1.0
|
184
|
2 ; 2022-01-11 Fix error handing in A command
|
0
|
3
|
|
4 * Memory map of SBC
|
|
5 * $0-$40 Zero page variables reserved by monitor and O.S.
|
|
6 * $40-$FF Zero page portion for user programs.
|
|
7 * $100-$17F Xmodem buffer 0, terminal input buffer,
|
|
8 * $180-$1FF Xmodem buffer 1, terminal output buffer.
|
|
9 * $200-$27F Terminal input line.
|
|
10 * $280-$2FF Variables reserved by monitor and O.S.
|
|
11 * $300-$400 System stack.
|
|
12 * $400-$7FFF RAM for user programs and data.
|
|
13 * $8000-$DFFF PROM for user programs.
|
|
14 * $E000-$E1FF I/O addresses.
|
|
15 * $E200-$E3FF Reserved.
|
|
16 * $E400-$FFFF Monitor ROM
|
|
17
|
|
18 * Reserved Zero page addresses
|
|
19 org $0000
|
|
20 setdp 0
|
|
21 * First the I/O routine vectors.
|
|
22 getchar rmb 3 ;Jump to getchar routine.
|
|
23 putchar rmb 3 ;Jump to putchar routine.
|
|
24 getline rmb 3 ;Jump to getline routine.
|
|
25 putline rmb 3 ;Jump to putline routine.
|
|
26 putcr rmb 3 ;Jump to putcr routine.
|
|
27 getpoll rmb 3 ;Jump to getpoll routine.
|
|
28 xopenin rmb 3 ;Jump to xopenin routine.
|
|
29 xopenout rmb 3 ;Jump to xopenout routine.
|
|
30 xabortin rmb 3 ;Jump to xabortin routine.
|
|
31 xclosein rmb 3 ;Jump to xclosein routine.
|
|
32 xcloseout rmb 3 ;Jump to xcloseout routine.
|
|
33 delay rmb 3 ;Jump to delay routine.
|
|
34
|
|
35 *Next the system variables in the zero page.
|
|
36 temp rmb 2 ;hex scanning/disasm
|
|
37 temp2 rmb 2 ;Hex scanning/disasm
|
|
38 temp3 rmb 2 ;Used in Srecords, H command
|
|
39 timer rmb 3 ;3 byte timer, incremented every 20ms
|
|
40 xpacknum rmb 1 ;Packet number for XMODEM block,
|
|
41 xsum rmb 1 ;XMODEM checksum
|
|
42 lastok rmb 1 ;flag to indicate last block was OK
|
|
43 xcount rmb 1 ;Count of characters in buffer.
|
|
44 xmode rmb 1 ;XMODEM mode, 0 none, 1 out, 2 in.
|
|
45
|
|
46 * I/O buffers.
|
|
47 buflen equ 128 ;Length of input line buffer.
|
|
48 org $100
|
|
49 buf0 rmb 128 ;Xmodem buffer 0, serial input buffer.
|
|
50 buf1 rmb 128 ;Xmodem buffer 1, serial output buffer.
|
|
51 linebuf rmb buflen ;Input line buffer.
|
|
52
|
|
53
|
|
54 * Interrupt vectors (start at $280)
|
|
55 * All interrupts except RESET are vectored through jumps.
|
|
56 * FIRQ is timer interrupt, IRQ is ACIA interrupt.
|
|
57 swi3vec rmb 3
|
|
58 swi2vec rmb 3
|
|
59 firqvec rmb 3
|
|
60 irqvec rmb 3
|
|
61 swivec rmb 3
|
|
62 nmivec rmb 3
|
|
63 xerrvec rmb 3 ;Error handler for XMODEM error.
|
|
64 exprvec rmb 3 ;Expression evaluator in assembler.
|
|
65 asmerrvec rmb 3 ;Error handler for assembler errors.
|
|
66
|
|
67 * Next the non zero page system variables.
|
|
68 oldpc rmb 2 ;Saved pc value for J command.
|
|
69 addr rmb 2 ;Address parameter.
|
|
70 length rmb 2 ;Length parameter.
|
|
71
|
|
72 brkpoints equ 4 ;Number of settable breakpoints.
|
|
73 bpaddr rmb brkpoints*3 ;Address and byte for each break point.
|
|
74 stepbp rmb 3 ;Address of P command break point.
|
|
75
|
|
76 sorg rmb 2 ;Origin address of S record entry.
|
|
77 soffs rmb 2 ;Offset load adrr-addr in record
|
|
78
|
|
79 oldgetc rmb 2 ;Old getchar address.
|
|
80 oldputc rmb 2 ;Old putchar address.
|
|
81 oldputcr rmb 2 ;Old putcr address.
|
|
82 lastterm rmb 1 ;Last terminating character.
|
|
83 filler rmb 1 ;Filler at end of XMODEM file.
|
|
84 xmcr rmb 1 ;end-of-line characters for XMODEM send.
|
|
85 savesp rmb 2 ;Save sp to restore it on error.
|
|
86
|
|
87 * Following variables are used by assembler/disassembler.
|
|
88 prebyte rmb 1
|
|
89 opc1 rmb 1
|
|
90 opcode rmb 1
|
|
91 postbyte rmb 1
|
|
92 amode rmb 1
|
|
93 operand rmb 2
|
|
94 mnembuf rmb 5 ;Buffer to store capitalized mnemonic.
|
|
95 opsize rmb 1 ;SIze (in bytes) of extra oeprand (0--2)
|
|
96 uncert rmb 1 ;Flag to indicate that op is unknown.
|
|
97 dpsetting rmb 2
|
|
98
|
|
99 endvars equ *
|
|
100
|
|
101 ramstart equ $400 ;first free RAM address.
|
|
102
|
|
103 ramtop equ $8000 ;top of RAM.
|
|
104
|
|
105 * I/O port addresses
|
|
106 aciactl equ $e000 ;Control port of ACIA
|
|
107 aciasta equ $e000 ;Status port of ACIA
|
|
108 aciadat equ $e001 ;Data port of ACIA
|
|
109
|
|
110 * ASCII control characters.
|
|
111 SOH equ 1
|
|
112 EOT equ 4
|
|
113 ACK equ 6
|
|
114 BS equ 8
|
|
115 TAB equ 9
|
|
116 LF equ 10
|
|
117 CR equ 13
|
|
118 NAK equ 21
|
|
119 CAN equ 24
|
|
120 DEL equ 127
|
|
121
|
|
122 CASEMASK equ $DF ;Mask to make lowercase into uppercase.
|
|
123
|
|
124 * Monitor ROM starts here.
|
|
125 org $E400
|
|
126
|
|
127 reset orcc #$FF ;Disable interrupts.
|
|
128 clra
|
|
129 tfr a,dp ;Set direct page register to 0.
|
|
130 lds #ramstart
|
|
131 ldx #intvectbl
|
|
132 ldu #swi3vec
|
|
133 ldb #osvectbl-intvectbl
|
|
134 bsr blockmove ;Initialize interrupt vectors from ROM.
|
|
135 ldx #osvectbl
|
|
136 ldu #0
|
|
137 ldb #endvecs-osvectbl
|
|
138 bsr blockmove ;Initialize I/O vectors from ROM.
|
|
139 bsr initacia ;Initialize serial port.
|
|
140 andcc #$0 ;Enable interrupts
|
|
141 * Put the 'saved' registers of the program being monitored on top of the
|
|
142 * stack. There are 12 bytes on the stack for cc,b,a,dp,x,y,u and pc
|
|
143 * pc is initialized to $400, the rest to zero.
|
|
144 ldx #0
|
|
145 tfr x,y
|
|
146 ldu #ramstart
|
|
147 pshs x,u
|
|
148 pshs x,y
|
|
149 pshs x,y
|
|
150 ldx #oldpc
|
|
151 ldb #endvars-oldpc
|
|
152 clvar clr ,x+
|
|
153 decb
|
|
154 bne clvar ;Clear the variable area.
|
|
155 ldd #$1A03
|
|
156 std filler ;Set XMODEM filler and end-of-line.
|
|
157 ldx #welcome
|
|
158 jsr outcount
|
|
159 jsr putcr ;Print a welcome message.
|
|
160 jmp cmdline
|
|
161 * Block move routine, from X to U length B. Modifies them all and A.
|
|
162 blockmove lda ,x+
|
|
163 sta ,u+
|
|
164 decb
|
|
165 bne blockmove
|
|
166 rts
|
|
167
|
|
168 * Initialize serial communications port, buffers, interrupts.
|
|
169 initacia ldb #$03
|
|
170 stb aciactl
|
|
171 ldb #%00110101
|
|
172 rts
|
|
173
|
|
174 * O.S. routine to read a character into B register.
|
|
175 osgetc ldb aciasta
|
|
176 bitb #$01
|
|
177 beq osgetc
|
|
178 ldb aciadat
|
|
179 rts
|
|
180
|
|
181 ;O.S. rotuine to check if there is a character ready to be read.
|
|
182 osgetpoll ldb aciasta
|
|
183 bitb #$01
|
|
184 bne poltrue
|
|
185 clrb
|
|
186 rts
|
|
187 poltrue ldb #$ff
|
|
188 rts
|
|
189
|
|
190 * O.S. routine to write the character in the B register.
|
|
191 osputc pshs a
|
|
192 putcloop lda aciasta
|
|
193 bita #$02
|
|
194 beq putcloop
|
|
195 stb aciadat
|
|
196 puls a
|
|
197 rts
|
|
198
|
|
199 * O.S. routine to read a line into memory at address X, at most B chars
|
|
200 * long, return actual length in B. Permit backspace editing.
|
|
201 osgetl pshs a,x
|
|
202 stb temp
|
|
203 clra
|
|
204 osgetl1 jsr getchar
|
|
205 andb #$7F
|
|
206 cmpb #BS
|
|
207 beq backsp
|
|
208 cmpb #DEL
|
|
209 bne osgetl2
|
|
210 backsp tsta ;Recognize BS and DEL as backspace key.
|
|
211 beq osgetl1 ;ignore if line already zero length.
|
|
212 ldb #BS
|
|
213 jsr putchar
|
|
214 ldb #' '
|
|
215 jsr putchar
|
|
216 ldb #BS ;Send BS,space,BS. This erases last
|
|
217 jsr putchar ;character on most terminals.
|
|
218 leax -1,x ;Decrement address.
|
|
219 deca
|
|
220 bra osgetl1
|
|
221 osgetl2 cmpb #CR
|
|
222 beq newline
|
|
223 cmpb #LF
|
|
224 bne osgetl3 ;CR or LF character ends line.
|
|
225 ldb lastterm
|
|
226 cmpb #CR
|
|
227 beq osgetl1 ;Ignore LF if it comes after CR
|
|
228 ldb #LF
|
|
229 newline stb lastterm
|
|
230 jsr putcr
|
|
231 tfr a,b ;Move length to B
|
|
232 puls a,x ;restore registers.
|
|
233 rts ;<--- Here is the exit point.
|
|
234 osgetl3 cmpb #TAB
|
|
235 beq dotab
|
|
236 cmpb #' '
|
|
237 blo osgetl1 ;Ignore control characters.
|
|
238 cmpa temp
|
|
239 beq osgetl1 ;Ignore char if line full.
|
|
240 jsr putchar ;Echo the character.
|
|
241 stb ,x+ ;Store it in memory.
|
|
242 inca
|
|
243 bra osgetl1
|
|
244 dotab ldb #' '
|
|
245 cmpa temp
|
|
246 beq osgetl1
|
|
247 jsr putchar
|
|
248 stb ,x+
|
|
249 inca
|
|
250 bita #7 ;Insert spaces until length mod 8=0
|
|
251 bne dotab
|
|
252 bra osgetl1
|
|
253
|
|
254 * O.S. routine to write a line starting at address X, B chars long.
|
|
255 osputl pshs a,b,x
|
|
256 tfr b,a
|
|
257 tsta
|
|
258 beq osputl1
|
|
259 osputl2 ldb ,x+
|
|
260 jsr putchar
|
|
261 deca
|
|
262 bne osputl2
|
|
263 osputl1 puls a,b,x
|
|
264 rts
|
|
265
|
|
266 * O.S. routine to terminate a line.
|
|
267 oscr pshs b
|
|
268 ldb #CR
|
|
269 jsr putchar
|
|
270 ldb #LF
|
|
271 jsr putchar ;Send the CR and LF characters.
|
|
272 puls b
|
|
273 rts
|
|
274
|
|
275 * Output a counted string at addr X
|
|
276 outcount pshs x,b
|
|
277 ldb ,x+
|
|
278 jsr putline
|
|
279 puls x,b
|
|
280 rts
|
|
281
|
|
282 timerirq inc timer+2
|
|
283 bne endirq
|
|
284 inc timer+1
|
|
285 bne endirq
|
|
286 inc timer
|
|
287 rti
|
|
288 aciairq nop
|
|
289 endirq rti
|
|
290
|
|
291 * Wait D times 20ms.
|
|
292 osdly addd timer+1
|
|
293 dlyloop cmpd timer+1
|
|
294 bne dlyloop
|
|
295 rts
|
|
296
|
|
297 * This table will be copied to the interrupt vector area in RAM.
|
|
298 intvectbl jmp endirq
|
|
299 jmp endirq
|
|
300 jmp timerirq
|
|
301 jmp aciairq
|
|
302 jmp unlaunch
|
|
303 jmp endirq
|
|
304 jmp xerrhand
|
|
305 jmp expr
|
184
|
306 jmp asmerr
|
0
|
307 * And this one to the I/O vector table.
|
|
308 osvectbl jmp osgetc
|
|
309 jmp osputc
|
|
310 jmp osgetl
|
|
311 jmp osputl
|
|
312 jmp oscr
|
|
313 jmp osgetpoll
|
|
314 jmp xopin
|
|
315 jmp xopout
|
|
316 jmp xabtin
|
|
317 jmp xclsin
|
|
318 jmp xclsout
|
|
319 jmp osdly
|
|
320 endvecs equ *
|
|
321
|
|
322 * The J command returns here.
|
|
323 stakregs pshs x ;Stack something where the pc comes
|
|
324 pshs cc,b,a,dp,x,y,u ;Stack the normal registers.
|
|
325 ldx oldpc
|
|
326 stx 10,s ;Stack the old pc value.
|
|
327 bra unlaunch1
|
|
328 * The G and P commands return here through a breakpoint.
|
|
329 * Registers are already stacked.
|
|
330 unlaunch ldd 10,s
|
|
331 subd #1
|
|
332 std 10,s ;Decrement pc before breakpoint
|
|
333 unlaunch1 andcc #$0 ;reenable the interrupts.
|
|
334 jsr disarm ;Disarm the breakpoints.
|
|
335 jsr dispregs
|
|
336 cmdline jsr xcloseout
|
|
337 sts savesp
|
|
338 ldx #linebuf
|
|
339 ldb #buflen
|
|
340 jsr getline
|
|
341 tstb
|
|
342 beq cmdline ;Ignore line if it is empty
|
|
343 abx
|
|
344 clr ,x ;Make location after line zero.
|
|
345 ldx #linebuf
|
|
346 ldb ,x+
|
|
347 andb #CASEMASK ;Make 1st char uppercase.
|
|
348 subb #'A'
|
|
349 bcs unk
|
|
350 cmpb #26
|
|
351 bcc unk ;Unknown cmd if it is not a letter.
|
|
352 ldx #cmdtab
|
|
353 aslb ;Index into command table.
|
|
354 jmp [b,x]
|
|
355
|
|
356 cmdtab fdb asm,break,unk,dump
|
|
357 fdb enter,find,go,hex
|
|
358 fdb inp,jump,unk,unk
|
|
359 fdb move,unk,unk,prog
|
|
360 fdb unk,regs,srec,trace
|
|
361 fdb unasm,unk,unk,xmodem
|
|
362 fdb unk,unk
|
|
363
|
|
364 * Unknown command handling routine.
|
|
365 unk jsr xabortin
|
|
366 ldx #unknown
|
|
367 jsr outcount
|
|
368 jsr putcr
|
|
369 jmp cmdline
|
|
370
|
|
371
|
|
372
|
|
373 * Here are some useful messages.
|
|
374 welcome fcb unknown-welcome-1
|
|
375 fcc "Welcome to BUGGY version 1.0"
|
|
376 unknown fcb brkmsg-unknown-1
|
|
377 fcc "Unknown command"
|
|
378 brkmsg fcb clrmsg-brkmsg-1
|
|
379 fcc "Breakpoint set"
|
|
380 clrmsg fcb fullmsg-clrmsg-1
|
|
381 fcc "Breakpoint cleared"
|
|
382 fullmsg fcb smsg-fullmsg-1
|
|
383 fcc "Breakpoints full"
|
|
384 smsg fcb lastrec-smsg-1
|
|
385 fcc "Error in S record"
|
|
386 lastrec fcb xsmsg-lastrec-1
|
|
387 fcc "S9030000FC"
|
|
388 xsmsg fcb xrmsg-xsmsg-1
|
|
389 fcc "Start XMODEM Send"
|
|
390 xrmsg fcb xamsg-xrmsg-1
|
|
391 fcc "Start XMODEM Receive"
|
|
392 xamsg fcb invmmsg-xamsg-1
|
|
393 fcc "XMODEM transfer aborted"
|
|
394 invmmsg fcb exprmsg-invmmsg-1
|
|
395 fcc "Invalid mnemonic"
|
|
396 exprmsg fcb modemsg-exprmsg-1
|
|
397 fcc "Expression error"
|
|
398 modemsg fcb brmsg-modemsg-1
|
|
399 fcc "Addressing mode error"
|
|
400 brmsg fcb endmsg-brmsg-1
|
|
401 fcc "Branch too long"
|
|
402 endmsg equ *
|
|
403
|
|
404 * Output hex digit contained in A
|
|
405 hexdigit adda #$90
|
|
406 daa
|
|
407 adca #$40
|
|
408 daa ;It's the standard conversion trick ascii
|
|
409 tfr a,b ;to hex without branching.
|
|
410 jsr putchar
|
|
411 rts
|
|
412
|
|
413 * Output contents of A as two hex digits
|
|
414 outbyte pshs a
|
|
415 lsra
|
|
416 lsra
|
|
417 lsra
|
|
418 lsra
|
|
419 bsr hexdigit
|
|
420 puls a
|
|
421 anda #$0f
|
|
422 bra hexdigit
|
|
423
|
|
424 * Output contents of d as four hex digits
|
|
425 outd pshs b
|
|
426 bsr outbyte
|
|
427 puls a
|
|
428 bsr outbyte
|
|
429 rts
|
|
430
|
|
431 * Skip X past spaces, B is first non-space character.
|
|
432 skipspace ldb ,x+
|
|
433 cmpb #' '
|
|
434 beq skipspace
|
|
435 rts
|
|
436
|
|
437 * Convert ascii hex digit in B register to binary Z flag set if no hex digit.
|
|
438 convb subb #'0'
|
|
439 blo convexit
|
|
440 cmpb #9
|
|
441 bls cb2
|
|
442 andb #CASEMASK ;Make uppercase.
|
|
443 subb #7 ;If higher than digit 9 it must be a letter.
|
|
444 cmpb #9
|
|
445 bls convexit
|
|
446 cmpb #15
|
|
447 bhi convexit
|
|
448 cb2 andcc #$FB ;clear zero
|
|
449 rts
|
|
450 convexit orcc #$04
|
|
451 rts
|
|
452
|
|
453 scanexit ldd temp
|
|
454 leax -1,x
|
|
455 tst temp2
|
|
456 rts ;<-- exit point of scanhex
|
|
457
|
|
458 * Scan for hexadecimal number at address X return in D, Z flag is set it no
|
|
459 * number found.
|
|
460 scanhex clr temp
|
|
461 clr temp+1
|
|
462 clr temp2
|
|
463 bsr skipspace
|
|
464 scloop jsr convb
|
|
465 beq scanexit
|
|
466 pshs b
|
|
467 ldd temp
|
|
468 aslb
|
|
469 rola
|
|
470 aslb
|
|
471 rola
|
|
472 aslb
|
|
473 rola
|
|
474 aslb
|
|
475 rola
|
|
476 addb ,s+
|
|
477 std temp
|
|
478 inc temp2
|
|
479 ldb ,x+
|
|
480 bra scloop
|
|
481
|
|
482 scan2parms std length
|
|
483 bsr scanhex
|
|
484 beq sp2
|
|
485 std addr
|
|
486 bsr skipspace
|
|
487 cmpb #','
|
|
488 bne sp2
|
|
489 bsr scanhex
|
|
490 beq sp2
|
|
491 std length
|
|
492 sp2 rts
|
|
493
|
|
494 * Scan two hexdigits at in and convert to byte into A, Z flag if error.
|
|
495 scanbyte bsr skipspace
|
|
496 bsr convb
|
|
497 beq sb1
|
|
498 tfr b,a
|
|
499 ldb ,x+
|
|
500 bsr convb
|
|
501 beq sb1
|
|
502 asla
|
|
503 asla
|
|
504 asla
|
|
505 asla
|
|
506 stb temp
|
|
507 adda temp
|
|
508 andcc #$fb ;Clear zero flag
|
|
509 sb1 rts
|
|
510
|
|
511
|
|
512 * This is the code for the D command, hex/ascii dump of memory
|
|
513 * Syntax: D or D<addr> or D<addr>,<length>
|
|
514 dump ldx #linebuf+1
|
|
515 ldd #$40
|
|
516 jsr scan2parms ;Scan address and length, default length=64
|
|
517 ldy addr
|
|
518 dh1 lda #16
|
|
519 sta temp+1
|
|
520 tfr y,d
|
|
521 jsr outd
|
|
522 ldb #' '
|
|
523 jsr putchar
|
|
524 dh2 lda ,y+ ;display row of 16 mem locations as hex
|
|
525 jsr outbyte
|
|
526 ldb #' '
|
|
527 lda temp+1
|
|
528 cmpa #9
|
|
529 bne dh6
|
|
530 ldb #'-' ;Do a - after the eighth byte.
|
|
531 dh6 jsr putchar
|
|
532 dec temp+1
|
|
533 bne dh2
|
|
534 leay -16,y ;And now for the ascii dump.
|
|
535 lda #16
|
|
536 dh3 ldb ,y+
|
|
537 cmpb #' '
|
|
538 bhs dh4
|
|
539 ldb #'.'
|
|
540 dh4 cmpb #DEL
|
|
541 blo dh5
|
|
542 ldb #'.' ;Convert all nonprintables to .
|
|
543 dh5 jsr putchar
|
|
544 deca
|
|
545 bne dh3
|
|
546 jsr putcr
|
|
547 ldd length
|
|
548 subd #16
|
|
549 std length
|
|
550 bhi dh1
|
|
551 sty addr
|
|
552 jmp cmdline
|
|
553
|
|
554 * This is the code for the E command, enter hex bytes or ascii string.
|
|
555 * Syntax E or E<addr> or E<addr> <bytes> or E<addr>"string"
|
|
556 enter ldx #linebuf+1
|
|
557 jsr scanhex
|
|
558 beq ent1
|
|
559 std addr
|
|
560 ent1 bsr entline
|
|
561 lbne cmdline ;No bytes, then enter interactively.
|
|
562 ent2 ldb #'E'
|
|
563 jsr putchar
|
|
564 ldd addr
|
|
565 jsr outd
|
|
566 ldb #' '
|
|
567 jsr putchar ;Display Eaddr + space
|
|
568 ldx #linebuf
|
|
569 ldb #buflen
|
|
570 jsr getline ;Get the line.
|
|
571 abx
|
|
572 clr ,x
|
|
573 ldx #linebuf
|
|
574 bsr entline
|
|
575 bne ent2
|
|
576 jmp cmdline
|
|
577
|
|
578 * Enter a line of hex bytes or ascci string at address X, Z if empty.
|
|
579 entline jsr skipspace
|
|
580 tstb
|
|
581 beq entexit
|
|
582 cmpb #'"'
|
|
583 beq entasc
|
|
584 leax -1,x
|
|
585 ldy addr
|
|
586 entl2 jsr scanbyte ;Enter hex digits.
|
|
587 beq entdone
|
|
588 sta ,y+
|
|
589 bra entl2
|
|
590 entasc ldy addr
|
|
591 entl3 lda ,x+
|
|
592 tsta
|
|
593 beq entdone
|
|
594 cmpa #'"'
|
|
595 beq entdone
|
|
596 sta ,y+
|
|
597 bra entl3
|
|
598 entdone sty addr
|
|
599 andcc #$fb
|
|
600 rts
|
|
601 entexit orcc #$04
|
|
602 rts
|
|
603
|
|
604 *This is the code for the I command, display the contents of an address
|
|
605 * Syntax: Iaddr
|
|
606 inp ldx #linebuf+1
|
|
607 jsr scanhex
|
|
608 tfr d,x
|
|
609 lda ,x ;Read the byte from memory.
|
|
610 jsr outbyte ;Display itin hex.
|
|
611 jsr putcr
|
|
612 jmp cmdline
|
|
613
|
|
614 *This is the code for the H command, display result of simple hex expression
|
|
615 *Syntax Hhexnum{+|-hexnum}
|
|
616 hex ldx #linebuf+1
|
|
617 jsr scanhex
|
|
618 std temp3
|
|
619 hexloop jsr skipspace
|
|
620 cmpb #'+'
|
|
621 bne hex1
|
|
622 jsr scanhex
|
|
623 addd temp3
|
|
624 std temp3
|
|
625 bra hexloop
|
|
626 hex1 cmpb #'-'
|
|
627 bne hexend
|
|
628 jsr scanhex
|
|
629 comb
|
|
630 coma
|
|
631 addd #1
|
|
632 addd temp3
|
|
633 std temp3
|
|
634 bra hexloop
|
|
635 hexend ldd temp3
|
|
636 jsr outd
|
|
637 jsr putcr
|
|
638 jmp cmdline
|
|
639
|
|
640 * This is the code for the G command, jump to the program
|
|
641 * Syntax G or G<addr>
|
|
642 go ldx #linebuf+1
|
|
643 jsr scanhex
|
|
644 beq launch
|
|
645 std 10,s ;Store parameter in pc location.
|
|
646 launch jsr arm ;Arm the breakpoints.
|
|
647 puls cc,b,a,dp,x,y,u,pc
|
|
648
|
|
649 * This is the code for the J command, run a subroutine.
|
|
650 * Syntax J<addr>
|
|
651 jump ldx #linebuf+1
|
|
652 ldd 10,s
|
|
653 std oldpc ;Save old pc
|
|
654 jsr scanhex
|
|
655 std 10,s ;Store parameter in PC location
|
|
656 tfr s,x
|
|
657 leas -2,s
|
|
658 tfr s,u
|
|
659 ldb #12 ;Move the saved register set 2 addresses
|
|
660 jsr blockmove ;down on the stack.
|
|
661 ldd #stakregs
|
|
662 std 12,s ;Prepare subroutine return address.
|
|
663 bra launch ;Jump to the routine.
|
|
664
|
|
665
|
|
666 * This is the code for the P command, run instruction followed by breakpoint
|
|
667 * Syntax P
|
|
668 prog ldy 10,s ;Get program counter value.
|
|
669 jsr disdecode ;Find out location past current insn.
|
|
670 sty stepbp
|
|
671 bra launch
|
|
672
|
|
673 * This is the code for the T command, single step trace an instruction.
|
|
674 * Syntax T
|
|
675 trace jsr traceone
|
|
676 jsr dispregs
|
|
677 jmp cmdline
|
|
678
|
|
679 traceone orcc #$50 ;Disable the interrupts.
|
|
680 ldd ,s++
|
|
681 std oldpc ;Remove saved pc from stack.
|
|
682 ldd #traceret
|
|
683 std firqvec+1 ;Adjust timer IRQ vector.
|
|
684 sync ;Synchronize on the next timer interrupt.
|
|
685 ;1 cycle
|
|
686 ldx #4441 ;3 cycles
|
|
687 traceloop leax -1,x ;6 cycles\x4441= 39969 cycles.
|
|
688 bne traceloop ;3 cycles/
|
|
689 nop ;2 cycles.
|
|
690 nop ;2 cycles.
|
|
691 nop ;2 cycles.
|
|
692 brn traceret ;3 cycles.
|
|
693 puls x,y,u,a,b,dp,cc,pc ;17 cycles, total=39999 20ms @ 2MHz
|
|
694 ;Pull all registers and execute.
|
|
695 ;Is timed such that next timer IRQ
|
|
696 ;occurs right after it.
|
|
697 traceret puls cc
|
|
698 pshs x,y,u,a,b,dp,cc;Store full register set instead of cc.
|
|
699 ldd #timerirq
|
|
700 std firqvec+1 ;Restore timer IRQ vector.
|
|
701 jmp [oldpc]
|
|
702
|
|
703
|
|
704 * Display the contents of 8 bit register, name in B, contents in A
|
|
705 disp8 jsr putchar
|
|
706 ldb #'='
|
|
707 jsr putchar
|
|
708 jsr outbyte
|
|
709 ldb #' '
|
|
710 jsr putchar
|
|
711 rts
|
|
712
|
|
713 * Display the contents of 16 bit register, name in B, contents in Y
|
|
714 disp16 jsr putchar
|
|
715 ldb #'='
|
|
716 jsr putchar
|
|
717 tfr y,d
|
|
718 jsr outd
|
|
719 ldb #' '
|
|
720 jsr putchar
|
|
721 rts
|
|
722
|
|
723 * Display the contents of the registers and disassemble instruction at
|
|
724 * PC location.
|
|
725 dispregs ldb #'X'
|
|
726 ldy 6,s ;Note that there's one return address on
|
|
727 bsr disp16 ;stack so saved register offsets are
|
|
728 ldb #'Y' ;inremented by 2.
|
|
729 ldy 8,s
|
|
730 bsr disp16
|
|
731 ldb #'U'
|
|
732 ldy 10,s
|
|
733 bsr disp16
|
|
734 ldb #'S'
|
|
735 tfr s,y
|
|
736 leay 14,y ;S of the running program is 12 higher,
|
|
737 ;because regs are not stacked when running.
|
|
738 bsr disp16
|
|
739 ldb #'A'
|
|
740 lda 3,s
|
|
741 bsr disp8
|
|
742 ldb #'B'
|
|
743 lda 4,s
|
|
744 bsr disp8
|
|
745 ldb #'D'
|
|
746 lda 5,s
|
|
747 bsr disp8
|
|
748 ldb #'C'
|
|
749 lda 2,s
|
|
750 bsr disp8
|
|
751 jsr putcr
|
|
752 ldb #'P'
|
|
753 ldy 12,s
|
|
754 bsr disp16
|
|
755 jsr disdecode
|
|
756 jsr disdisp ;Disassemble instruction at PC
|
|
757 jsr putcr
|
|
758 rts
|
|
759
|
|
760
|
|
761 * This is the code for the R command, display or alter the registers.
|
|
762 * Syntax R or R<letter><hex>
|
|
763 regs ldx #linebuf+1
|
|
764 jsr skipspace
|
|
765 tstb
|
|
766 bne setreg
|
|
767 bsr dispregs ;Display regs ifnothing follows.
|
|
768 jmp cmdline
|
|
769 setreg ldy #regtab
|
|
770 clra
|
|
771 andb #CASEMASK ;Make letter uppercase.
|
|
772 sr1 tst ,y
|
|
773 lbeq unk ;At end of register tab, unknown reg
|
|
774 cmpb ,y+
|
|
775 beq sr2 ;Found the register?
|
|
776 inca
|
|
777 bra sr1
|
|
778 sr2 pshs a
|
|
779 jsr scanhex ;Convert the hex argument.
|
|
780 pshs d
|
|
781 lda 2,s ;Get register number.
|
|
782 cmpa #4
|
|
783 bcc sr3
|
|
784 ldb 1,s ;It's 8 bit.
|
|
785 leas 3,s ;Remove temp stuff from stack.
|
|
786 stb a,s ;Store it in the reg on stack.
|
|
787 jmp cmdline
|
|
788 sr3 cmpa #8
|
|
789 bcc sr4
|
|
790 puls x ;It's 16 bit.
|
|
791 leas 1,s
|
|
792 lsla
|
|
793 suba #4 ;Convert reg no to stack offset.
|
|
794 stx a,s
|
|
795 jmp cmdline
|
|
796 sr4 puls u ;It's the stack pointer.
|
|
797 leas 1,s
|
|
798 leau -12,u
|
|
799 tfr s,x
|
|
800 tfr u,s ;Set new stack pointer.
|
|
801 ldb #12
|
|
802 jsr blockmove ;Move register set to new stack location.
|
|
803 jmp cmdline
|
|
804
|
|
805 regtab FCC "CABDXYUPS "
|
|
806
|
|
807 * Disarm the breakpoints, this is replace the SWI instructions with the
|
|
808 * original byte.
|
|
809 disarm ldx #bpaddr
|
|
810 lda #brkpoints+1
|
|
811 disarm1 ldu ,x++
|
|
812 ldb ,x+ ;Get address in u, byte in b
|
|
813 cmpu #0
|
|
814 beq disarm2
|
|
815 stb ,u
|
|
816 disarm2 deca
|
|
817 bne disarm1
|
|
818 ldu #0
|
|
819 stu -3,x ;Clear the step breakpoint.
|
|
820 rts
|
|
821
|
|
822 * Arm the breakponts, this is replace the byte at the breakpoint address
|
|
823 * with an SWI instruction.
|
|
824 arm ldx #bpaddr+brkpoints*3
|
|
825 lda #brkpoints+1 ;Arm them in reverse order of disarming.
|
|
826 arm1 ldu ,x ;Get address in u.
|
|
827 beq arm2
|
|
828 ldb ,u
|
|
829 stb 2,x
|
|
830 cmpu 12,s ;Compare to program counter location
|
|
831 beq arm2
|
|
832 ldb #$3F
|
|
833 stb ,u ;Store SWI instruction if not equal.
|
|
834 arm2 leax -3,x
|
|
835 deca
|
|
836 bne arm1
|
|
837 rts
|
|
838
|
|
839 * This is the code for the break command, set, clear display breakpoints.
|
|
840 * Syntax B or B<addr>. B displays, B<addr> sets or clears breakpoint.
|
|
841 break lda #brkpoints
|
|
842 sta temp2+1 ;Store number of breakpoints to visit.
|
|
843 ldx #linebuf+1
|
|
844 jsr scanhex
|
|
845 beq dispbp ;No number then display breakpoints
|
|
846 ldx #bpaddr
|
|
847 ldu #0
|
|
848 tfr u,y
|
|
849 bp1 cmpd ,x
|
|
850 beq clearit ;Found the breakpoint, so clear it,
|
|
851 cmpu ,x ;Is location zero
|
|
852 bne bp2
|
|
853 tfr x,y ;Set free address to y
|
|
854 bp2 leax 3,x
|
|
855 dec temp2+1
|
|
856 bne bp1
|
|
857 cmpy #0 ;Address not found in list of breakpoints
|
|
858 beq bpfull ;Was free address found.
|
|
859 std ,y ;If so, store breakpoint there.
|
|
860 ldx #brkmsg
|
|
861 bpexit jsr outcount
|
|
862 jsr putcr
|
|
863 jmp cmdline
|
|
864 clearit clra
|
|
865 clrb
|
|
866 std ,x
|
|
867 ldx #clrmsg
|
|
868 bra bpexit
|
|
869 bpfull ldx #fullmsg
|
|
870 bra bpexit
|
|
871
|
|
872 dispbp ldx #bpaddr
|
|
873 dbp1 ldd ,x
|
|
874 beq dbp2
|
|
875 jsr outd
|
|
876 ldb #' '
|
|
877 jsr putchar
|
|
878 dbp2 leax 3,x
|
|
879 dec temp2+1
|
|
880 bne dbp1
|
|
881 jsr putcr
|
|
882 jmp cmdline
|
|
883
|
|
884 * Scan hex byte into a and add it to check sum in temp2+1
|
|
885 addchk jsr scanbyte
|
|
886 lbeq srecerr
|
|
887 tfr a,b
|
|
888 addb temp2+1
|
|
889 stb temp2+1
|
|
890 rts
|
|
891
|
|
892 * This tis the code for the S command, the Motorola S records entry.
|
|
893 * Syntax SO<addr> or SS<addr>,<len> or S1<bytes> or S9<bytes>
|
|
894 srec ldx #linebuf+1
|
|
895 ldb ,x+
|
|
896 andb #CASEMASK
|
|
897 cmpb #'O'
|
|
898 beq setsorg
|
|
899 cmpb #'S'
|
|
900 beq sendrec
|
|
901 ldb -1,x
|
|
902 clr temp3
|
|
903 cmpb #'1'
|
|
904 beq readrec
|
|
905 cmpb #'9'
|
|
906 bne srecerr
|
|
907 inc temp3
|
|
908 readrec clr temp2+1 ;clear checksum.
|
|
909 bsr addchk
|
|
910 suba #2 ;discount the address bytes from the count.
|
|
911 sta temp3+1 ;Read length byte.
|
|
912 bsr addchk
|
|
913 pshs a
|
|
914 bsr addchk
|
|
915 puls b
|
|
916 exg a,b ;Read address into d.
|
|
917 ldu sorg
|
|
918 beq rr1
|
|
919 ldu soffs
|
|
920 bne rr1
|
|
921 pshs d ;Sorg is nonzero and soffs is zero, now
|
|
922 subd sorg ;set soffs
|
|
923 std soffs
|
|
924 puls d
|
|
925 rr1 subd soffs ;Subtract the address offset.
|
|
926 tfr d,y
|
|
927 rr2 bsr addchk
|
|
928 dec temp3+1
|
|
929 beq endrec
|
|
930 sta ,y+
|
|
931 bra rr2
|
|
932 endrec inc temp2+1 ;Check checksum.
|
|
933 bne srecerr
|
|
934 tst temp3
|
|
935 lbeq cmdline ;Was it no S9 record?
|
|
936 cmpy #0
|
|
937 beq endrec1
|
|
938 sty 10,s ;Store address into program counter.
|
|
939 endrec1 clra
|
|
940 clrb
|
|
941 std sorg ;Reset sorg, next S loads will be normal.
|
|
942 std soffs
|
|
943 jmp cmdline
|
|
944 srecerr jsr xabortin
|
|
945 ldx #smsg ;Error in srecord, display message.
|
|
946 jsr outcount
|
|
947 jsr putcr
|
|
948 jmp cmdline
|
|
949 setsorg jsr scanhex ;Set S record origin.
|
|
950 std sorg
|
|
951 clra
|
|
952 clrb
|
|
953 std soffs
|
|
954 jmp cmdline
|
|
955 * Send a memory region as S-records.
|
|
956 sendrec ldd #$100 ;Scan address and length parameter.
|
|
957 jsr scan2parms
|
|
958 ldd sorg
|
|
959 beq ss1
|
|
960 ldd addr
|
|
961 subd sorg
|
|
962 std soffs ;Compute offset for origin.
|
|
963 ss1 ldd length
|
|
964 beq endss ;All bytes sent?
|
|
965 cmpd #16
|
|
966 blo ss2
|
|
967 ldb #16 ;If more than 16 left, then send 16.
|
|
968 ss2 stb temp
|
|
969 negb
|
|
970 ldu length
|
|
971 leau b,u
|
|
972 stu length ;Discount line length from length.
|
|
973 ldb #'S'
|
|
974 jsr putchar
|
|
975 ldb #'1'
|
|
976 jsr putchar
|
|
977 clr temp+1 ;Clear check sum
|
|
978 ldb temp
|
|
979 addb #3
|
|
980 bsr checkout ;Output byte b as hex and add to check sum.
|
|
981 ldd addr
|
|
982 tfr d,y
|
|
983 subd soffs
|
|
984 exg a,b
|
|
985 bsr checkout
|
|
986 exg a,b
|
|
987 bsr checkout ;Output address (add into check sum)
|
|
988 ss3 ldb ,y+
|
|
989 bsr checkout
|
|
990 dec temp
|
|
991 bne ss3
|
|
992 sty addr
|
|
993 ldb temp+1
|
|
994 comb
|
|
995 bsr checkout ;Output checksum byte.
|
|
996 jsr putcr
|
|
997 bra ss1
|
|
998 endss ldx #lastrec
|
|
999 jsr outcount
|
|
1000 jsr putcr
|
|
1001 jmp cmdline
|
|
1002 * Output byte in register B and add it into check sum at temp+1
|
|
1003 checkout pshs a
|
|
1004 tfr b,a
|
|
1005 addb temp+1
|
|
1006 stb temp+1
|
|
1007 jsr outbyte
|
|
1008 puls a
|
|
1009 rts
|
|
1010
|
|
1011 * This is the code for the M command, move memory region.
|
|
1012 * Syntax: Maddr1,addr2,length
|
|
1013 move ldx #linebuf+1
|
|
1014 jsr scanhex
|
|
1015 lbeq unk
|
|
1016 std temp3
|
|
1017 jsr skipspace
|
|
1018 cmpb #','
|
|
1019 lbne unk
|
|
1020 jsr scanhex
|
|
1021 lbeq unk
|
|
1022 tfr d,u
|
|
1023 jsr skipspace
|
|
1024 cmpb #','
|
|
1025 lbne unk
|
|
1026 jsr scanhex
|
|
1027 lbeq unk
|
|
1028 tfr d,y ;Read the argument separated by commas
|
|
1029 ldx temp3 ;src addr to x, dest addr to u, length to y
|
|
1030 ;Don't tolerate syntax deviations.
|
|
1031 mvloop lda ,x+
|
|
1032 sta ,u+
|
|
1033 leay -1,y
|
|
1034 bne mvloop ;Perform the block move.
|
|
1035 jmp cmdline
|
|
1036
|
|
1037
|
|
1038 * This is the code for the F command, find byte/ascii string in memory.
|
|
1039 * Syntax: Faddr bytes or Faddr "ascii"
|
|
1040 find ldx #linebuf+1
|
|
1041 jsr scanhex
|
|
1042 tfr d,y ;Scan the start address.
|
|
1043 jsr skipspace
|
|
1044 cmpb #'"'
|
|
1045 bne findhex
|
|
1046 ldu #linebuf ;Quote found, so scan for quoted string.
|
|
1047 clra
|
|
1048 fstrloop ldb ,x+
|
|
1049 beq startsrch ;End of line without final quote.
|
|
1050 cmpb #'"'
|
|
1051 beq startsrch ;End quote found
|
|
1052 stb ,u+
|
|
1053 inca
|
|
1054 bra fstrloop
|
|
1055 findhex ldu #linebuf ;Convert string of hex bytes.
|
|
1056 leax -1,x ;String will be stored at start of line
|
|
1057 clra ;buffer and may overwrite part of the
|
|
1058 fhexloop pshs a ;already converted string.
|
|
1059 jsr scanbyte
|
|
1060 tfr a,b
|
|
1061 puls a
|
|
1062 beq startsrch
|
|
1063 stb ,u+
|
|
1064 inca
|
|
1065 bra fhexloop
|
|
1066 startsrch tsta ;Start searching, start addr in Y,
|
|
1067 ;string starts at linebuf, length A
|
|
1068 lbeq cmdline ;Quit with zero length string.
|
|
1069 clr temp3
|
|
1070 sta temp3+1
|
|
1071 srchloop tfr y,x
|
|
1072 lda temp3+1
|
|
1073 cmpx #$e100
|
|
1074 bcc srch1
|
|
1075 leax a,x
|
|
1076 cmpx #$e000 ;Stop at I/O addresses.
|
|
1077 lbcc cmdline
|
|
1078 srch1 tfr y,x
|
|
1079 ldu #linebuf
|
|
1080 srch2 ldb ,x+
|
|
1081 cmpb ,u+
|
|
1082 bne srch3 ;Not equal, try next address.
|
|
1083 deca
|
|
1084 bne srch2
|
|
1085 tfr y,d
|
|
1086 jsr outd ;String found
|
|
1087 jsr putcr
|
|
1088 inc temp3
|
|
1089 lda temp3
|
|
1090 cmpa #$10
|
|
1091 lbeq cmdline ;If 10 matches found, just stop.
|
|
1092 srch3 leay 1,y
|
|
1093 bra srchloop
|
|
1094
|
|
1095 * Send the contents of the xmodem buffer and get it acknowledged, zero flag
|
|
1096 * is set if transfer aborted.
|
|
1097 xsendbuf ldb #SOH
|
|
1098 jsr osputc ;Send SOH
|
|
1099 ldb xpacknum
|
|
1100 jsr osputc ;Send block number.
|
|
1101 comb
|
|
1102 jsr osputc ;and its complement.
|
|
1103 clr xsum
|
|
1104 lda #128
|
|
1105 ldx #buf0
|
|
1106 xsloop ldb ,x
|
|
1107 addb xsum
|
|
1108 stb xsum
|
|
1109 ldb ,x+
|
|
1110 jsr osputc
|
|
1111 deca
|
|
1112 bne xsloop ;Send the buffer contents.
|
|
1113 ldb xsum
|
|
1114 jsr osputc ;Send the check sum
|
|
1115 waitack jsr osgetc
|
|
1116 cmpb #CAN
|
|
1117 beq xsabt ;^X for abort.
|
|
1118 cmpb #NAK
|
|
1119 beq xsendbuf ;Send again if NAK
|
|
1120 cmpb #ACK
|
|
1121 bne waitack
|
|
1122 inc xpacknum
|
|
1123 xsok andcc #$fb ;Clear zero flag after ACK
|
|
1124 xsabt rts
|
|
1125
|
|
1126 * Start an XMODEM send session.
|
|
1127 xsendinit ldb #1
|
|
1128 stb xpacknum ;Initialize block number.
|
|
1129 waitnak jsr osgetc
|
|
1130 cmpb #CAN
|
|
1131 beq xsabt ;If ^X exit with zero flag.
|
|
1132 cmpb #NAK
|
|
1133 beq xsok
|
|
1134 bra waitnak ;Wait until NAK received.
|
|
1135
|
|
1136 * Send ETX and wait for ack.
|
|
1137 xsendeot ldb #EOT
|
|
1138 jsr osputc
|
|
1139 waitack2 jsr osgetc
|
|
1140 cmpb #CAN
|
|
1141 beq xsabt
|
|
1142 cmpb #NAK
|
|
1143 beq xsendeot
|
|
1144 cmpb #ACK
|
|
1145 beq xsok
|
|
1146 bra waitack2
|
|
1147
|
|
1148 * Read character into B with a timeout of A seconds, Carry set if timeout.
|
|
1149 gettimeout asla
|
|
1150 ldb #50
|
|
1151 mul
|
|
1152 tfr b,a
|
|
1153 adda timer+2
|
|
1154 gt1 jsr osgetpoll
|
|
1155 tstb
|
|
1156 bne gtexit
|
|
1157 cmpa timer+2
|
|
1158 bne gt1
|
|
1159 orcc #$1
|
|
1160 rts
|
|
1161 gtexit jsr osgetc
|
|
1162 andcc #$fe
|
|
1163 rts
|
|
1164
|
|
1165 * Wait until line becomes quiet.
|
|
1166 purge lda #3
|
|
1167 jsr gettimeout
|
|
1168 bcc purge
|
|
1169 rts
|
|
1170
|
|
1171 * Receive an XMODEM block and wait till it is OK, Z set if etx.
|
|
1172 xrcvbuf lda #3
|
|
1173 tst lastok
|
|
1174 beq sendnak
|
|
1175 ldb #ACK
|
|
1176 jsr osputc ;Send an ack.
|
|
1177 lda #5
|
|
1178 bra startblock
|
|
1179 sendnak ldb #NAK
|
|
1180 jsr osputc ;Send a NAK
|
|
1181 startblock clr lastok
|
|
1182 bsr gettimeout
|
|
1183 lda #3
|
|
1184 bcs sendnak ;Keep sending NAKs when timed out.
|
|
1185 cmpb #EOT
|
|
1186 beq xrcveot ;End of file reached, acknowledge EOT.
|
|
1187 cmpb #SOH
|
|
1188 bne purgeit ;Not, SOH, bad block.
|
|
1189 lda #1
|
|
1190 bsr gettimeout
|
|
1191 bcs purgeit
|
|
1192 cmpb xpacknum ;Is it the right block?
|
|
1193 beq xr1
|
|
1194 incb
|
|
1195 cmpb xpacknum ;Was it the previous block.
|
|
1196 bne purgeit
|
|
1197 inc lastok
|
|
1198 xr1 stb xsum
|
|
1199 lda #1
|
|
1200 bsr gettimeout
|
|
1201 bcs purgeit
|
|
1202 comb
|
|
1203 cmpb xsum ;Is the complement of the block number OK
|
|
1204 bne purgeit
|
|
1205 ldx #buf0
|
|
1206 clr xsum
|
|
1207 xrloop lda #1
|
|
1208 bsr gettimeout
|
|
1209 bcs purgeit
|
|
1210 stb ,x+
|
|
1211 addb xsum
|
|
1212 stb xsum
|
|
1213 cmpx #buf0+128
|
|
1214 bne xrloop ;Get the data bytes.
|
|
1215 lda #1
|
|
1216 bsr gettimeout
|
|
1217 bcs purgeit
|
|
1218 cmpb xsum
|
|
1219 bne purgeit ;Check the check sum.
|
|
1220 tst lastok
|
|
1221 bne xrcvbuf ;Block was the previous block, get next one
|
|
1222 inc lastok
|
|
1223 inc xpacknum
|
|
1224 andcc #$fb
|
|
1225 rts
|
|
1226 purgeit jsr purge
|
|
1227 bra sendnak
|
|
1228 xrcveot lda #3 ;EOT was received.
|
|
1229 ldb #ACK
|
|
1230 ackloop jsr osputc
|
|
1231 deca
|
|
1232 bne ackloop ;Send 3 acks in a row.
|
|
1233 rts
|
|
1234
|
|
1235
|
|
1236 savevecs ldx getchar+1
|
|
1237 stx oldgetc
|
|
1238 ldx putchar+1
|
|
1239 stx oldputc
|
|
1240 ldx putcr+1
|
|
1241 stx oldputcr
|
|
1242 clr lastterm
|
|
1243 rts
|
|
1244
|
|
1245 rstvecs ldx oldgetc
|
|
1246 stx getchar+1
|
|
1247 ldx oldputc
|
|
1248 stx putchar+1
|
|
1249 ldx oldputcr
|
|
1250 stx putcr+1
|
|
1251 clr lastterm
|
|
1252 rts
|
|
1253
|
|
1254 * O.S. routine to open input through XMODEM transfer.
|
|
1255 xopin pshs x,a,b
|
|
1256 ldx #xsmsg
|
|
1257 jsr outcount
|
|
1258 jsr putcr ;Display message to start XMODEM send.
|
|
1259 bsr savevecs
|
|
1260 ldx #noop
|
|
1261 stx putchar+1 ;Disable character output.
|
|
1262 ldx #xgetc
|
|
1263 stx getchar+1 ;
|
|
1264 clr lastok
|
|
1265 clr xcount
|
|
1266 lda #1
|
|
1267 sta xpacknum
|
|
1268 inca
|
|
1269 sta xmode ;set xmode to 2.
|
|
1270 puls x,a,b,pc
|
|
1271
|
|
1272 * O.S. routine to open output through XMODEM transfer.
|
|
1273 xopout pshs x,a,b
|
|
1274 bsr savevecs
|
|
1275 ldx #xrmsg
|
|
1276 jsr outcount ;Display message to start XMODEM receive
|
|
1277 jsr putcr
|
|
1278 ldx #xputc
|
|
1279 stx putchar+1
|
|
1280 ldx #xputcr
|
|
1281 stx putcr+1
|
|
1282 jsr xsendinit
|
|
1283 lbeq xerror
|
|
1284 clr xcount
|
|
1285 lda #1
|
|
1286 sta xmode
|
|
1287 puls x,a,b,pc
|
|
1288
|
|
1289
|
|
1290 * O.S. routine to abort input through XMODEM transfer.
|
|
1291 xabtin lda xmode
|
|
1292 cmpa #2
|
|
1293 bne xclsend
|
|
1294 jsr purge
|
|
1295 ldb #CAN
|
|
1296 lda #8
|
|
1297 xabtloop jsr osputc
|
|
1298 deca
|
|
1299 bne xabtloop ;Send 8 CAN characters to kill transfer.
|
|
1300 bsr rstvecs
|
|
1301 clr xmode
|
|
1302 ldx #xamsg
|
|
1303 jsr outcount
|
|
1304 jsr putcr ;Send diagnostic message.
|
|
1305 rts
|
|
1306
|
|
1307 * O.S. routine to close output through XMODEM transfer.
|
|
1308 xclsout lda xmode
|
|
1309 cmpa #1
|
|
1310 bne xclsend
|
|
1311 tst xcount
|
|
1312 beq xclsdone
|
|
1313 lda #128
|
|
1314 suba xcount
|
|
1315 xclsloop ldb filler
|
|
1316 bsr xputc
|
|
1317 deca
|
|
1318 bne xclsloop ;Transfer filler chars to force block out.
|
|
1319 xclsdone jsr xsendeot ;Send EOT
|
|
1320 lbeq xerror
|
|
1321 jsr rstvecs
|
|
1322 clr xmode
|
|
1323 xclsend rts
|
|
1324
|
|
1325 * O.S. routine to close input through XMODEM, by gobbling up the remaining
|
|
1326 * bytes.
|
|
1327 xclsin ldb xmode
|
|
1328 cmpb #2
|
|
1329 bne xclsend
|
|
1330 jsr putchar
|
|
1331 bra xclsin
|
|
1332
|
|
1333 * putchar routine for XMODEM
|
|
1334 xputc pshs x,a,b
|
|
1335 lda xcount
|
|
1336 inc xcount
|
|
1337 ldx #buf0
|
|
1338 stb a,x ;Store character in XMODEM buffer.
|
|
1339 cmpa #127
|
|
1340 bne xputc1 ;is buffer full?
|
|
1341 clr xcount
|
|
1342 pshs y,u
|
|
1343 jsr xsendbuf
|
|
1344 lbeq xerror
|
|
1345 puls y,u
|
|
1346 xputc1 puls x,a,b,pc
|
|
1347
|
|
1348 * putcr routine for XMODEM
|
|
1349 xputcr pshs b
|
|
1350 ldb xmcr
|
|
1351 bitb #2
|
|
1352 beq xputcr1
|
|
1353 ldb #CR
|
|
1354 bsr xputc
|
|
1355 xputcr1 ldb xmcr
|
|
1356 bitb #1
|
|
1357 beq xputcr2
|
|
1358 ldb #LF
|
|
1359 bsr xputc
|
|
1360 xputcr2 puls b
|
|
1361 rts
|
|
1362
|
|
1363 * getchar routine for XMODEM
|
|
1364 xgetc pshs x,a
|
|
1365 tst xcount ;No characters left?
|
|
1366 bne xgetc1
|
|
1367 pshs y,u
|
|
1368 jsr xrcvbuf ;Receive new block.
|
|
1369 puls y,u
|
|
1370 beq xgetcterm ;End of input?
|
|
1371 lda #128
|
|
1372 sta xcount
|
|
1373 xgetc1 lda xcount
|
|
1374 nega
|
|
1375 ldx #buf0+128
|
|
1376 ldb a,x ;Get character from buffer
|
|
1377 dec xcount
|
|
1378 puls x,a,pc
|
|
1379 xgetcterm jsr rstvecs
|
|
1380 clr xmode
|
|
1381 ldb filler
|
|
1382 puls x,a,pc
|
|
1383
|
|
1384 xerror jsr rstvecs ;Restore I/O vectors
|
|
1385 clr xmode
|
|
1386 ldx #xamsg
|
|
1387 jsr outcount
|
|
1388 jsr putcr
|
|
1389 jmp xerrvec
|
|
1390
|
|
1391 xerrhand lds savesp
|
|
1392 jmp cmdline
|
|
1393
|
|
1394 * This is the code for the X command, various XMODEM related commands.
|
|
1395 * Syntax: XSaddr,len XLaddr,len XX XOcrlf,filler, XSSaddr,len
|
|
1396 xmodem ldx #linebuf+1
|
|
1397 lda ,x+
|
|
1398 anda #CASEMASK ;Convert to uppercase.
|
|
1399 cmpa #'X'
|
|
1400 beq xeq
|
|
1401 cmpa #'L'
|
|
1402 beq xload
|
|
1403 cmpa #'O'
|
|
1404 beq xopts
|
|
1405 cmpa #'S'
|
|
1406 lbne unk
|
|
1407 lda ,x
|
|
1408 anda #CASEMASK
|
|
1409 cmpa #'S'
|
|
1410 beq xss
|
|
1411 ldd #$100 ;XSaddr,len command.
|
|
1412 jsr scan2parms ;Send binary through XMODEM
|
|
1413 jsr xopenout
|
|
1414 ldu addr
|
|
1415 ldy length
|
|
1416 xsbinloop ldb ,u+
|
|
1417 jsr putchar
|
|
1418 leay -1,y
|
|
1419 bne xsbinloop ;Send all the bytes through XMODEM.
|
|
1420 jmp cmdline
|
|
1421 xss leax 1,x ;XSSaddr,len command.
|
|
1422 jsr xopenout ;Send Srecords through XMODEM
|
|
1423 jmp sendrec
|
|
1424 xload jsr scanhex ;XLaddr command
|
|
1425 tfr d,y ;Load binary through XMODEM
|
|
1426 jsr xopenin
|
|
1427 xlodloop jsr getchar
|
|
1428 tst xmode ;File ended? then done
|
|
1429 lbeq cmdline
|
|
1430 stb ,y+
|
|
1431 bra xlodloop
|
|
1432 xeq jsr xopenin ;XX command
|
|
1433 jmp cmdline ;Execute commands received from XMODEM
|
|
1434 xopts ldd #$1a
|
|
1435 jsr scan2parms
|
|
1436 lda addr+1
|
|
1437 sta xmcr
|
|
1438 lda length+1
|
|
1439 sta filler
|
|
1440 jmp cmdline
|
|
1441
|
|
1442 * mnemonics table, ordered alphabetically.
|
|
1443 * 5 bytes name, 1 byte category, 2 bytes opcode, 8 bytes total.
|
|
1444 mnemtab fcc "ABX "
|
|
1445 fcb 0
|
|
1446 fdb $3a
|
|
1447 fcc "ADCA "
|
|
1448 fcb 7
|
|
1449 fdb $89
|
|
1450 fcc "ADCB "
|
|
1451 fcb 7
|
|
1452 fdb $c9
|
|
1453 fcc "ADDA "
|
|
1454 fcb 7
|
|
1455 fdb $8b
|
|
1456 fcc "ADDB "
|
|
1457 fcb 7
|
|
1458 fdb $cb
|
|
1459 fcc "ADDD "
|
|
1460 fcb 8
|
|
1461 fdb $c3
|
|
1462 fcc "ANDA "
|
|
1463 fcb 7
|
|
1464 fdb $84
|
|
1465 fcc "ANDB "
|
|
1466 fcb 7
|
|
1467 fdb $c4
|
|
1468 fcc "ANDCC"
|
|
1469 fcb 2
|
|
1470 fdb $1c
|
|
1471 fcc "ASL "
|
|
1472 fcb 10
|
|
1473 fdb $08
|
|
1474 fcc "ASLA "
|
|
1475 fcb 0
|
|
1476 fdb $48
|
|
1477 fcc "ASLB "
|
|
1478 fcb 0
|
|
1479 fdb $58
|
|
1480 fcc "ASR "
|
|
1481 fcb 10
|
|
1482 fdb $07
|
|
1483 fcc "ASRA "
|
|
1484 fcb 0
|
|
1485 fdb $47
|
|
1486 fcc "ASRB "
|
|
1487 fcb 0
|
|
1488 fdb $57
|
|
1489 fcc "BCC "
|
|
1490 fcb 4
|
|
1491 fdb $24
|
|
1492 fcc "BCS "
|
|
1493 fcb 4
|
|
1494 fdb $25
|
|
1495 fcc "BEQ "
|
|
1496 fcb 4
|
|
1497 fdb $27
|
|
1498 fcc "BGE "
|
|
1499 fcb 4
|
|
1500 fdb $2c
|
|
1501 fcc "BGT "
|
|
1502 fcb 4
|
|
1503 fdb $2e
|
|
1504 fcc "BHI "
|
|
1505 fcb 4
|
|
1506 fdb $22
|
|
1507 fcc "BHS "
|
|
1508 fcb 4
|
|
1509 fdb $24
|
|
1510 fcc "BITA "
|
|
1511 fcb 7
|
|
1512 fdb $85
|
|
1513 fcc "BITB "
|
|
1514 fcb 7
|
|
1515 fdb $c5
|
|
1516 fcc "BLE "
|
|
1517 fcb 4
|
|
1518 fdb $2f
|
|
1519 fcc "BLO "
|
|
1520 fcb 4
|
|
1521 fdb $25
|
|
1522 fcc "BLS "
|
|
1523 fcb 4
|
|
1524 fdb $23
|
|
1525 fcc "BLT "
|
|
1526 fcb 4
|
|
1527 fdb $2d
|
|
1528 fcc "BMI "
|
|
1529 fcb 4
|
|
1530 fdb $2b
|
|
1531 fcc "BNE "
|
|
1532 fcb 4
|
|
1533 fdb $26
|
|
1534 fcc "BPL "
|
|
1535 fcb 4
|
|
1536 fdb $2a
|
|
1537 fcc "BRA "
|
|
1538 fcb 4
|
|
1539 fdb $20
|
|
1540 fcc "BRN "
|
|
1541 fcb 4
|
|
1542 fdb $21
|
|
1543 mnembsr fcc "BSR "
|
|
1544 fcb 4
|
|
1545 fdb $8d
|
|
1546 fcc "BVC "
|
|
1547 fcb 4
|
|
1548 fdb $28
|
|
1549 fcc "BVS "
|
|
1550 fcb 4
|
|
1551 fdb $29
|
|
1552 fcc "CLR "
|
|
1553 fcb 10
|
|
1554 fdb $0f
|
|
1555 fcc "CLRA "
|
|
1556 fcb 0
|
|
1557 fdb $4f
|
|
1558 fcc "CLRB "
|
|
1559 fcb 0
|
|
1560 fdb $5f
|
|
1561 fcc "CMPA "
|
|
1562 fcb 7
|
|
1563 fdb $81
|
|
1564 fcc "CMPB "
|
|
1565 fcb 7
|
|
1566 fdb $c1
|
|
1567 fcc "CMPD "
|
|
1568 fcb 9
|
|
1569 fdb $1083
|
|
1570 fcc "CMPS "
|
|
1571 fcb 9
|
|
1572 fdb $118c
|
|
1573 fcc "CMPU "
|
|
1574 fcb 9
|
|
1575 fdb $1183
|
|
1576 fcc "CMPX "
|
|
1577 fcb 8
|
|
1578 fdb $8c
|
|
1579 fcc "CMPY "
|
|
1580 fcb 9
|
|
1581 fdb $108c
|
|
1582 fcc "COM "
|
|
1583 fcb 10
|
|
1584 fdb $03
|
|
1585 fcc "COMA "
|
|
1586 fcb 0
|
|
1587 fdb $43
|
|
1588 fcc "COMB "
|
|
1589 fcb 0
|
|
1590 fdb $53
|
|
1591 fcc "CWAI "
|
|
1592 fcb 2
|
|
1593 fdb $3c
|
|
1594 fcc "DAA "
|
|
1595 fcb 0
|
|
1596 fdb $19
|
|
1597 fcc "DEC "
|
|
1598 fcb 10
|
|
1599 fdb $0a
|
|
1600 fcc "DECA "
|
|
1601 fcb 0
|
|
1602 fdb $4a
|
|
1603 fcc "DECB "
|
|
1604 fcb 0
|
|
1605 fdb $5a
|
|
1606 fcc "EORA "
|
|
1607 fcb 7
|
|
1608 fdb $88
|
|
1609 fcc "EORB "
|
|
1610 fcb 7
|
|
1611 fdb $c8
|
|
1612 fcc "EQU "
|
|
1613 fcb 13
|
|
1614 fdb 5
|
|
1615 fcc "EXG "
|
|
1616 fcb 11
|
|
1617 fdb $1e
|
|
1618 mnemfcb fcc "FCB "
|
|
1619 fcb 13
|
|
1620 fdb 7
|
|
1621 fcc "FCC "
|
|
1622 fcb 13
|
|
1623 fdb 8
|
|
1624 fcc "FDB "
|
|
1625 fcb 13
|
|
1626 fdb 9
|
|
1627 fcc "INC "
|
|
1628 fcb 10
|
|
1629 fdb $0c
|
|
1630 fcc "INCA "
|
|
1631 fcb 0
|
|
1632 fdb $4c
|
|
1633 fcc "INCB "
|
|
1634 fcb 0
|
|
1635 fdb $5c
|
|
1636 fcc "JMP "
|
|
1637 fcb 10
|
|
1638 fdb $0e
|
|
1639 mnemjsr fcc "JSR "
|
|
1640 fcb 8
|
|
1641 fdb $8d
|
|
1642 fcc "LBCC "
|
|
1643 fcb 5
|
|
1644 fdb $1024
|
|
1645 fcc "LBCS "
|
|
1646 fcb 5
|
|
1647 fdb $1025
|
|
1648 fcc "LBEQ "
|
|
1649 fcb 5
|
|
1650 fdb $1027
|
|
1651 fcc "LBGE "
|
|
1652 fcb 5
|
|
1653 fdb $102c
|
|
1654 fcc "LBGT "
|
|
1655 fcb 5
|
|
1656 fdb $102e
|
|
1657 fcc "LBHI "
|
|
1658 fcb 5
|
|
1659 fdb $1022
|
|
1660 fcc "LBHS "
|
|
1661 fcb 5
|
|
1662 fdb $1024
|
|
1663 fcc "LBLE "
|
|
1664 fcb 5
|
|
1665 fdb $102f
|
|
1666 fcc "LBLO "
|
|
1667 fcb 5
|
|
1668 fdb $1025
|
|
1669 fcc "LBLS "
|
|
1670 fcb 5
|
|
1671 fdb $1023
|
|
1672 fcc "LBLT "
|
|
1673 fcb 5
|
|
1674 fdb $102d
|
|
1675 fcc "LBMI "
|
|
1676 fcb 5
|
|
1677 fdb $102b
|
|
1678 fcc "LBNE "
|
|
1679 fcb 5
|
|
1680 fdb $1026
|
|
1681 fcc "LBPL "
|
|
1682 fcb 5
|
|
1683 fdb $102a
|
|
1684 fcc "LBRA "
|
|
1685 fcb 6
|
|
1686 fdb $16
|
|
1687 fcc "LBRN "
|
|
1688 fcb 5
|
|
1689 fdb $1021
|
|
1690 fcc "LBSR "
|
|
1691 fcb 6
|
|
1692 fdb $17
|
|
1693 fcc "LBVC "
|
|
1694 fcb 5
|
|
1695 fdb $1028
|
|
1696 fcc "LBVS "
|
|
1697 fcb 5
|
|
1698 fdb $1029
|
|
1699 fcc "LDA "
|
|
1700 fcb 7
|
|
1701 fdb $86
|
|
1702 fcc "LDB "
|
|
1703 fcb 7
|
|
1704 fdb $c6
|
|
1705 fcc "LDD "
|
|
1706 fcb 8
|
|
1707 fdb $cc
|
|
1708 fcc "LDS "
|
|
1709 fcb 9
|
|
1710 fdb $10ce
|
|
1711 fcc "LDU "
|
|
1712 fcb 8
|
|
1713 fdb $ce
|
|
1714 fcc "LDX "
|
|
1715 fcb 8
|
|
1716 fdb $8e
|
|
1717 fcc "LDY "
|
|
1718 fcb 9
|
|
1719 fdb $108e
|
|
1720 fcc "LEAS "
|
|
1721 fcb 3
|
|
1722 fdb $32
|
|
1723 fcc "LEAU "
|
|
1724 fcb 3
|
|
1725 fdb $33
|
|
1726 fcc "LEAX "
|
|
1727 fcb 3
|
|
1728 fdb $30
|
|
1729 fcc "LEAY "
|
|
1730 fcb 3
|
|
1731 fdb $31
|
|
1732 fcc "LSL "
|
|
1733 fcb 10
|
|
1734 fdb $08
|
|
1735 fcc "LSLA "
|
|
1736 fcb 0
|
|
1737 fdb $48
|
|
1738 fcc "LSLB "
|
|
1739 fcb 0
|
|
1740 fdb $58
|
|
1741 fcc "LSR "
|
|
1742 fcb 10
|
|
1743 fdb $04
|
|
1744 fcc "LSRA "
|
|
1745 fcb 0
|
|
1746 fdb $44
|
|
1747 fcc "LSRB "
|
|
1748 fcb 0
|
|
1749 fdb $54
|
|
1750 fcc "MUL "
|
|
1751 fcb 0
|
|
1752 fdb $3d
|
|
1753 fcc "NEG "
|
|
1754 fcb 10
|
|
1755 fdb $00
|
|
1756 fcc "NEGA "
|
|
1757 fcb 0
|
|
1758 fdb $40
|
|
1759 fcc "NEGB "
|
|
1760 fcb 0
|
|
1761 fdb $50
|
|
1762 fcc "NOP "
|
|
1763 fcb 0
|
|
1764 fdb $12
|
|
1765 fcc "ORA "
|
|
1766 fcb 7
|
|
1767 fdb $8a
|
|
1768 fcc "ORB "
|
|
1769 fcb 7
|
|
1770 fdb $ca
|
|
1771 fcc "ORCC "
|
|
1772 fcb 2
|
|
1773 fdb $1a
|
|
1774 fcc "ORG "
|
|
1775 fcb 13
|
|
1776 fdb 12
|
|
1777 fcc "PSHS "
|
|
1778 fcb 12
|
|
1779 fdb $34
|
|
1780 fcc "PSHU "
|
|
1781 fcb 12
|
|
1782 fdb $36
|
|
1783 fcc "PULS "
|
|
1784 fcb 12
|
|
1785 fdb $35
|
|
1786 fcc "PULU "
|
|
1787 fcb 12
|
|
1788 fdb $37
|
|
1789 fcc "RMB "
|
|
1790 fcb 13
|
|
1791 fdb 0
|
|
1792 fcc "ROL "
|
|
1793 fcb 10
|
|
1794 fdb $09
|
|
1795 fcc "ROLA "
|
|
1796 fcb 0
|
|
1797 fdb $49
|
|
1798 fcc "ROLB "
|
|
1799 fcb 0
|
|
1800 fdb $59
|
|
1801 fcc "ROR "
|
|
1802 fcb 10
|
|
1803 fdb $06
|
|
1804 fcc "RORA "
|
|
1805 fcb 0
|
|
1806 fdb $46
|
|
1807 fcc "RORB "
|
|
1808 fcb 0
|
|
1809 fdb $56
|
|
1810 fcc "RTI "
|
|
1811 fcb 0
|
|
1812 fdb $3b
|
|
1813 fcc "RTS "
|
|
1814 fcb 0
|
|
1815 fdb $39
|
|
1816 fcc "SBCA "
|
|
1817 fcb 7
|
|
1818 fdb $82
|
|
1819 fcc "SBCB "
|
|
1820 fcb 7
|
|
1821 fdb $c2
|
|
1822 fcc "SET "
|
|
1823 fcb 13
|
|
1824 fdb 15
|
|
1825 fcc "SETDP"
|
|
1826 fcb 13
|
|
1827 fdb 14
|
|
1828 fcc "SEX "
|
|
1829 fcb 0
|
|
1830 fdb $1d
|
|
1831 fcc "STA "
|
|
1832 fcb 7
|
|
1833 fdb $87
|
|
1834 fcc "STB "
|
|
1835 fcb 7
|
|
1836 fdb $c7
|
|
1837 fcc "STD "
|
|
1838 fcb 8
|
|
1839 fdb $cd
|
|
1840 fcc "STS "
|
|
1841 fcb 9
|
|
1842 fdb $10cf
|
|
1843 fcc "STU "
|
|
1844 fcb 8
|
|
1845 fdb $cf
|
|
1846 fcc "STX "
|
|
1847 fcb 8
|
|
1848 fdb $8f
|
|
1849 fcc "STY "
|
|
1850 fcb 9
|
|
1851 fdb $108f
|
|
1852 fcc "SUBA "
|
|
1853 fcb 7
|
|
1854 fdb $80
|
|
1855 fcc "SUBB "
|
|
1856 fcb 7
|
|
1857 fdb $c0
|
|
1858 fcc "SUBD "
|
|
1859 fcb 8
|
|
1860 fdb $83
|
|
1861 fcc "SWI "
|
|
1862 fcb 0
|
|
1863 fdb $3f
|
|
1864 fcb "SWI2 "
|
|
1865 fcb 1
|
|
1866 fdb $103f
|
|
1867 fcb "SWI3 "
|
|
1868 fcb 1
|
|
1869 fdb $113f
|
|
1870 fcc "SYNC "
|
|
1871 fcb 0
|
|
1872 fdb $13
|
|
1873 fcc "TFR "
|
|
1874 fcb 11
|
|
1875 fdb $1f
|
|
1876 fcc "TST "
|
|
1877 fcb 10
|
|
1878 fdb $0d
|
|
1879 fcc "TSTA "
|
|
1880 fcb 0
|
|
1881 fdb $4d
|
|
1882 fcc "TSTB "
|
|
1883 fcb 0
|
|
1884 fdb $5d
|
|
1885
|
|
1886 mnemsize equ (*-mnemtab)/8
|
|
1887
|
|
1888 * Register table for PUSH/PULL and TFR/EXG instructions.
|
|
1889 * 3 bytes for name, 1 for tfr/exg, 1 for push/pull, 5 total
|
|
1890 asmregtab fcc "X "
|
|
1891 fcb $01,$10
|
|
1892 fcc "Y "
|
|
1893 fcb $02,$20
|
|
1894 aregu fcc "U "
|
|
1895 fcb $03,$40
|
|
1896 aregs fcc "S "
|
|
1897 fcb $04,$40
|
|
1898 fcc "PC "
|
|
1899 fcb $05,$80
|
|
1900 fcc "A "
|
|
1901 fcb $08,$02
|
|
1902 fcc "B "
|
|
1903 fcb $09,$04
|
|
1904 fcc "D "
|
|
1905 fcb $00,$06
|
|
1906 fcc "CC "
|
|
1907 fcb $0a,$01
|
|
1908 fcc "CCR"
|
|
1909 fcb $0a,$01
|
|
1910 fcc "DP "
|
|
1911 fcb $0b,$08
|
|
1912 fcc "DPR"
|
|
1913 fcb $0b,$08
|
|
1914 reginval fcc "? "
|
|
1915
|
|
1916 ixregs fcc "XYUS"
|
|
1917
|
|
1918 * opcode offsets to basic opcode, depends on first nibble.
|
|
1919 opcoffs fcb 0,0,0,0,0,0,-$60,-$70
|
|
1920 fcb 0,-$10,-$20,-$30,0,-$10,-$20,-$30
|
|
1921 * mode depending on first nibble of opcode.
|
|
1922 modetab fcb 3,0,0,0,0,0,5,4,1,3,5,4,1,3,5,4
|
|
1923 * mode depending on category code stored in mnemtab
|
|
1924 modetab2 fcb 0,0,1,5,6,7,7,1,2,2,0,8,9
|
|
1925 * modes in this context: 0 no operands, 1 8-bit immediate, 2 16 bit imm,
|
|
1926 * 3, 8-bit address, 4 16 bit address, 5 indexed with postbyte, 6 short
|
|
1927 * relative, 7 long relative, 8 pushpul, 9 tftetx
|
|
1928
|
|
1929 * Decode instruction pointed to by Y for disassembly (and to find out
|
|
1930 * how long it is). On return, U points to appropriate mnemonic table entry,
|
|
1931 * Y points past instruction.
|
|
1932 * It's rather clumsy code, but we do want to reuse the same table
|
|
1933 * as used with assembling.
|
|
1934 disdecode clr prebyte
|
|
1935 clr amode
|
|
1936 lda ,y+
|
|
1937 cmpa #$10
|
|
1938 beq ddec1
|
|
1939 cmpa #$11
|
|
1940 bne ddec2
|
|
1941 ddec1 sta prebyte ;Store $10 or $11 prebyte.
|
|
1942 lda ,y+ ;Get new opcode.
|
|
1943 ddec2 sta opcode
|
|
1944 lsra
|
|
1945 lsra
|
|
1946 lsra
|
|
1947 lsra ;Get high nibble.
|
|
1948 ldx #modetab
|
|
1949 ldb a,x
|
|
1950 stb amode
|
|
1951 ldx #opcoffs
|
|
1952 lda a,x
|
|
1953 adda opcode ;Add opcode offset to opcode.
|
|
1954 ddec4 sta opc1 ;Store the 'basis' opcode.
|
|
1955 ldu #mnemtab
|
|
1956 ldx #mnemsize
|
|
1957 ddecloop ldb #13
|
|
1958 cmpb 5,u ;Compare category code with 13
|
|
1959 beq ddec3 ;13=pseudo op, no valid opcode
|
|
1960 ldd prebyte
|
|
1961 cmpd 6,u
|
|
1962 beq ddecfound ;Opcode&prebyte agree, operation found.
|
|
1963 ddec3 leau 8,u ;point to next mnemonic
|
|
1964 leax -1,x
|
|
1965 bne ddecloop
|
|
1966 ldu #mnemfcb ;mnemonic not found, use FCB byte.
|
|
1967 lda #3
|
|
1968 sta amode ;Store mode 3, 8 bit address.
|
|
1969 lda opcode
|
|
1970 tst prebyte
|
|
1971 beq ddec5
|
|
1972 lda prebyte ;if it was the combination prebyte
|
|
1973 clr prebyte ;and opcode that was not found,
|
|
1974 leay -1,y ;FCB just the prebyte
|
|
1975 ddec5 sta operand+1 ;The byte must be stored as operand.
|
|
1976 rts
|
|
1977 ddecfound cmpu #mnembsr
|
|
1978 bne ddec6
|
|
1979 lda #$8d ;Is it really the BSR opcode?
|
|
1980 cmpa opcode
|
|
1981 beq ddec6
|
|
1982 ldu #mnemjsr ;We mistakenly found BSR instead of JSR
|
|
1983 ddec6 lda amode
|
|
1984 anda #$FE
|
|
1985 bne ddec7
|
|
1986 lda 5,u ;nibble-dependent mode was 0 or 1,
|
|
1987 ldx #modetab2 ;use category dependent mode instead.
|
|
1988 lda a,x
|
|
1989 sta amode
|
|
1990 ddec7 lda amode
|
|
1991 asla
|
|
1992 ldx #disdectab
|
|
1993 jmp [a,x] ;jump dependent on definitive mode.
|
|
1994 disdectab fdb noop,opdec1,opdec2,opdec1,opdec2,opdecidx
|
|
1995 fdb opdec1,opdec2,opdecpb,opdecpb
|
|
1996 disdectab1 fdb noop,noop,noop,noop,noop,noop,noop,noop
|
|
1997 fdb opdec1,opdec2,noop,noop,opdec1,opdec2,noop,opdec2
|
|
1998 opdec1 ldb ,y+
|
|
1999 sex
|
|
2000 od1a std operand
|
|
2001 noop rts
|
|
2002 opdec2 ldd ,y++
|
|
2003 bra od1a
|
|
2004 opdecpb ldb ,y+
|
|
2005 odpa stb postbyte
|
|
2006 rts
|
|
2007 opdecidx ldb ,y+
|
|
2008 bpl odpa ;postbytes <$80 have no extra operands.
|
|
2009 stb postbyte
|
|
2010 andb #$0f
|
|
2011 aslb
|
|
2012 ldx #disdectab1
|
|
2013 jmp [b,x]
|
|
2014
|
|
2015 * Display disassembled instruction after the invocation of disdecode.
|
|
2016 * U points to mnemonic table entry.
|
|
2017 disdisp tfr u,x
|
|
2018 ldb #5
|
|
2019 jsr putline ;Display the mnemonic.
|
|
2020 ldb #' '
|
|
2021 jsr putchar
|
|
2022 lda amode
|
|
2023 asla
|
|
2024 ldx #disdisptab
|
|
2025 jmp [a,x] ;Perform action dependent on mode.
|
|
2026 disdisptab fdb noop,disim8,disim16,disadr8,disadr16
|
|
2027 fdb disidx,disrel8,disrel16,distfr,dispush
|
|
2028 disim8 bsr puthash
|
|
2029 bra disadr8
|
|
2030 disim16 bsr puthash
|
|
2031 disadr16 bsr putdol
|
|
2032 ldd operand
|
|
2033 jmp outd
|
|
2034 disadr8 bsr putdol
|
|
2035 lda operand+1
|
|
2036 jmp outbyte
|
|
2037 disrel8 bsr putdol
|
|
2038 ldb operand+1
|
|
2039 sex
|
|
2040 dr8a sty temp
|
|
2041 addd temp
|
|
2042 jmp outd
|
|
2043 disrel16 bsr putdol
|
|
2044 ldd operand
|
|
2045 bra dr8a
|
|
2046
|
|
2047 puthash ldb #'#'
|
|
2048 jmp putchar
|
|
2049 putdol ldb #'$'
|
|
2050 jmp putchar
|
|
2051 putcomma ldb #','
|
|
2052 jmp putchar
|
|
2053 putspace ldb #' '
|
|
2054 jmp putchar
|
|
2055
|
|
2056 dispush ldb #12
|
|
2057 ldx #asmregtab ;Walk through the register table.
|
|
2058 clr temp
|
|
2059 regloop lda postbyte
|
|
2060 anda 4,x
|
|
2061 beq dispush1 ;Is bit corresponding to reg set in postbyte
|
|
2062 cmpx #aregu
|
|
2063 bne dispush3
|
|
2064 sta temp+1
|
|
2065 lda opcode
|
|
2066 anda #2
|
|
2067 bne dispush1 ;no u register in pshu pulu.
|
|
2068 lda temp+1
|
|
2069 dispush3 cmpx #aregs
|
|
2070 bne dispush4
|
|
2071 sta temp+1
|
|
2072 lda opcode
|
|
2073 anda #2
|
|
2074 beq dispush1 ;no s register in pshs puls.
|
|
2075 lda temp+1
|
|
2076 dispush4 coma
|
|
2077 anda postbyte ;remove the bits from postbyte.
|
|
2078 sta postbyte
|
|
2079 pshs b
|
|
2080 tst temp
|
|
2081 beq dispush2
|
|
2082 bsr putcomma ;print comma after first register.
|
|
2083 dispush2 bsr disregname
|
|
2084 inc temp
|
|
2085 puls b
|
|
2086 dispush1 leax 5,x
|
|
2087 decb
|
|
2088 bne regloop
|
|
2089 rts
|
|
2090
|
|
2091 distfr lda postbyte
|
|
2092 lsra
|
|
2093 lsra
|
|
2094 lsra
|
|
2095 lsra
|
|
2096 bsr distfrsub
|
|
2097 bsr putcomma
|
|
2098 lda postbyte
|
|
2099 anda #$0f
|
|
2100 distfrsub ldb #12
|
|
2101 ldx #asmregtab
|
|
2102 distfrloop cmpa 3,x
|
|
2103 beq distfrend
|
|
2104 leax 5,x
|
|
2105 decb
|
|
2106 bne distfrloop
|
|
2107 distfrend bsr disregname
|
|
2108 rts
|
|
2109
|
|
2110 disregname lda #3
|
|
2111 tfr x,u
|
|
2112 drnloop ldb ,u+
|
|
2113 cmpb #' '
|
|
2114 beq drnend
|
|
2115 jsr putchar
|
|
2116 deca
|
|
2117 bne drnloop
|
|
2118 drnend rts
|
|
2119
|
|
2120 disidxreg lda postbyte
|
|
2121 lsra
|
|
2122 lsra
|
|
2123 lsra
|
|
2124 lsra
|
|
2125 lsra
|
|
2126 anda #3
|
|
2127 ldx #ixregs
|
|
2128 ldb a,x
|
|
2129 jmp putchar
|
|
2130
|
|
2131 disidx clr temp
|
|
2132 lda postbyte
|
|
2133 bmi disidx1
|
|
2134 anda #$1f
|
|
2135 bita #$10
|
|
2136 bne negoffs
|
|
2137 jsr outdecbyte
|
|
2138 bra discomma
|
|
2139 negoffs ldb #'-'
|
|
2140 jsr putchar
|
|
2141 ora #$f0
|
|
2142 nega
|
|
2143 jsr outdecbyte
|
|
2144 discomma jsr putcomma ;Display ,Xreg and terminating ]
|
|
2145 disindex bsr disidxreg
|
|
2146 disindir tst temp ;Display ] if indirect.
|
|
2147 beq disidxend
|
|
2148 ldb #']'
|
|
2149 jsr putchar
|
|
2150 disidxend rts
|
|
2151 disidx1 bita #$10
|
|
2152 beq disidx2
|
|
2153 ldb #'['
|
|
2154 jsr putchar
|
|
2155 inc temp
|
|
2156 disidx2 lda postbyte
|
|
2157 anda #$0f
|
|
2158 asla
|
|
2159 ldx #disidxtab
|
|
2160 jmp [a,x] ;Jump to routine for indexed mode
|
|
2161 disadec2 lda #2
|
|
2162 bra disadeca
|
|
2163 disadec1 lda #1
|
|
2164 disadeca jsr putcomma
|
|
2165 disadloop ldb #'-'
|
|
2166 jsr putchar
|
|
2167 deca
|
|
2168 bne disadloop
|
|
2169 bra disindex
|
|
2170 disainc2 lda #2
|
|
2171 bra disainca
|
|
2172 disainc1 lda #1
|
|
2173 disainca sta temp+1
|
|
2174 jsr putcomma
|
|
2175 jsr disidxreg
|
|
2176 lda temp+1
|
|
2177 disailoop ldb #'+'
|
|
2178 jsr putchar
|
|
2179 deca
|
|
2180 bne disailoop
|
|
2181 jmp disindir
|
|
2182 disax ldb #'A'
|
|
2183 jsr putchar
|
|
2184 jmp discomma
|
|
2185 disbx ldb #'B'
|
|
2186 jsr putchar
|
|
2187 jmp discomma
|
|
2188 disdx ldb #'D'
|
|
2189 jsr putchar
|
|
2190 jmp discomma
|
|
2191 disinval ldb #'?'
|
|
2192 jsr putchar
|
|
2193 jmp disindir
|
|
2194 disnx lda operand+1
|
|
2195 bmi disnxneg
|
|
2196 disnx1 jsr putdol
|
|
2197 jsr outbyte
|
|
2198 jmp discomma
|
|
2199 disnxneg ldb #'-'
|
|
2200 jsr putchar
|
|
2201 nega
|
|
2202 bra disnx1
|
|
2203 disnnx jsr putdol
|
|
2204 ldd operand
|
|
2205 jsr outd
|
|
2206 jmp discomma
|
|
2207 disnpc jsr putdol
|
|
2208 ldb operand+1
|
|
2209 sex
|
|
2210 disnpca sty temp2
|
|
2211 addd temp2
|
|
2212 jsr outd
|
|
2213 ldx #commapc
|
|
2214 ldb #4
|
|
2215 jsr putline
|
|
2216 jmp disindir
|
|
2217 disnnpc jsr putdol
|
|
2218 ldd operand
|
|
2219 bra disnpca
|
|
2220 disdirect jsr putdol
|
|
2221 ldd operand
|
|
2222 jsr outd
|
|
2223 jmp disindir
|
|
2224
|
|
2225 commapc fcc ",PCR"
|
|
2226
|
|
2227 disidxtab fdb disainc1,disainc2,disadec1,disadec2
|
|
2228 fdb discomma,disbx,disax,disinval
|
|
2229 fdb disnx,disnnx,disinval,disdx
|
|
2230 fdb disnpc,disnnpc,disinval,disdirect
|
|
2231
|
|
2232 * Display byte A in decimal (0<=A<20)
|
|
2233 outdecbyte cmpa #10
|
|
2234 blo odb1
|
|
2235 suba #10
|
|
2236 ldb #'1'
|
|
2237 jsr putchar
|
|
2238 odb1 adda #'0'
|
|
2239 tfr a,b
|
|
2240 jmp putchar
|
|
2241
|
|
2242 * This is the code for the U command, unassemble instructions in memory.
|
|
2243 * Syntax: U or Uaddr or Uaddr,length
|
|
2244 unasm ldx #linebuf+1
|
|
2245 ldd #20
|
|
2246 jsr scan2parms ;Scan address,length parameters.
|
|
2247 ldd addr
|
|
2248 addd length
|
|
2249 std length
|
|
2250 ldy addr
|
|
2251 unasmloop tfr y,d
|
|
2252 jsr outd ;Display instruction address
|
|
2253 jsr putspace
|
|
2254 pshs y
|
|
2255 jsr disdecode
|
|
2256 puls x
|
|
2257 sty temp
|
|
2258 clr temp2
|
|
2259 unadishex lda ,x+
|
|
2260 jsr outbyte
|
|
2261 inc temp2
|
|
2262 inc temp2
|
|
2263 cmpx temp
|
|
2264 bne unadishex ;Display instruction bytes as hex.
|
|
2265 unadisspc ldb #' '
|
|
2266 jsr putchar
|
|
2267 inc temp2
|
|
2268 lda #11
|
|
2269 cmpa temp2 ;Fill out with spaces to width 11.
|
|
2270 bne unadisspc
|
|
2271 bne unadishex
|
|
2272 jsr disdisp ;Display disassembled instruction.
|
|
2273 jsr putcr
|
|
2274 cmpy length
|
|
2275 bls unasmloop
|
|
2276 sty addr
|
|
2277 jmp cmdline
|
|
2278
|
|
2279 * Simple 'expression evaluator' for assembler.
|
|
2280 expr ldb ,x
|
|
2281 cmpb #'-'
|
|
2282 bne pos
|
|
2283 clrb
|
|
2284 leax 1,x
|
|
2285 pos pshs b
|
|
2286 bsr scanfact
|
|
2287 beq exprend1
|
|
2288 tst ,s+
|
|
2289 bne exprend ;Was the minus sign there.
|
|
2290 coma
|
|
2291 comb
|
|
2292 addd #1
|
|
2293 andcc #$fb ;Clear Z flag for valid result.
|
|
2294 exprend rts
|
|
2295 exprend1 puls b
|
|
2296 rts
|
|
2297
|
|
2298 scanfact ldb ,x+
|
|
2299 cmpb #'$'
|
|
2300 lbeq scanhex ;Hex number if starting with dollar.
|
|
2301 cmpb #'''
|
|
2302 bne scandec ;char if starting with ' else decimal
|
|
2303 ldb ,x+
|
|
2304 lda ,x
|
|
2305 cmpa #'''
|
|
2306 bne scanchar2
|
|
2307 leax 1,x ;Increment past final quote if it's there.
|
|
2308 scanchar2 clra
|
|
2309 andcc #$fb ;Clear zero flag.
|
|
2310 rts
|
|
2311 scandec cmpb #'0'
|
|
2312 blo noexpr
|
|
2313 cmpb #'9'
|
|
2314 bhi noexpr
|
|
2315 clr temp
|
|
2316 clr temp+1
|
|
2317 scandloop subb #'0'
|
|
2318 bcs sdexit
|
|
2319 cmpb #10
|
|
2320 bcc sdexit
|
|
2321 pshs b
|
|
2322 ldd temp
|
|
2323 aslb
|
|
2324 rola
|
|
2325 pshs d
|
|
2326 aslb
|
|
2327 rola
|
|
2328 aslb
|
|
2329 rola
|
|
2330 addd ,s++ ;Multiply number by 10.
|
|
2331 addb ,s+
|
|
2332 adca #0 ;Add digit to 10.
|
|
2333 std temp
|
|
2334 ldb ,x+ ;Get next character.
|
|
2335 bra scandloop
|
|
2336 sdexit ldd temp
|
|
2337 leax -1,x
|
|
2338 andcc #$fb
|
|
2339 rts
|
|
2340 noexpr orcc #$04
|
|
2341 rts
|
|
2342
|
|
2343 * Assemble the instruction pointed to by X.
|
|
2344 * Fisrt stage: copy mnemonic to mnemonic buffer.
|
|
2345 asminstr lda #5
|
|
2346 ldu #mnembuf
|
|
2347 mncploop ldb ,x+
|
|
2348 beq mncpexit
|
|
2349 cmpb #' '
|
|
2350 beq mncpexit ;Mnemonic ends at first space or null
|
|
2351 andb #CASEMASK
|
|
2352 cmpb #'A'
|
|
2353 blo nolet
|
|
2354 cmpb #'Z'
|
|
2355 bls mnemcp1 ;Capitalize letters, but only letters.
|
|
2356 nolet ldb -1,x
|
|
2357 mnemcp1 stb ,u+ ;Copy to mnemonic buffer.
|
|
2358 deca
|
|
2359 bne mncploop
|
|
2360 mncpexit tsta
|
|
2361 beq mncpdone
|
|
2362 ldb #' '
|
|
2363 mnfilloop stb ,u+
|
|
2364 deca
|
|
2365 bne mnfilloop ;Fill the rest of mnem buffer with spaces.
|
|
2366 * Second stage: look mnemonic up using binary search.
|
|
2367 mncpdone stx temp3
|
|
2368 clr temp ;Low index=0
|
|
2369 lda #mnemsize
|
|
2370 sta temp+1 ;High index=mnemsize.
|
|
2371 bsrchloop ldb temp+1
|
|
2372 cmpb #$ff
|
|
2373 beq invmnem ;lower limit -1?
|
|
2374 cmpb temp
|
|
2375 blo invmnem ;hi index lower than low index?
|
|
2376 clra
|
|
2377 addb temp ;Add indexes.
|
|
2378 adca #0
|
|
2379 lsra
|
|
2380 rorb ;Divide by 2 to get average
|
|
2381 stb temp2
|
|
2382 aslb
|
|
2383 rola
|
|
2384 aslb
|
|
2385 rola
|
|
2386 aslb
|
|
2387 rola ;Multiply by 8 to get offset.
|
|
2388 ldu #mnemtab
|
|
2389 leau d,u ;Add offset to table base
|
|
2390 tfr u,y
|
|
2391 lda #5
|
|
2392 ldx #mnembuf
|
|
2393 bscmploop ldb ,x+
|
|
2394 cmpb ,y+
|
|
2395 bne bscmpexit ;Characters don't match?
|
|
2396 deca
|
|
2397 bne bscmploop
|
|
2398 jmp mnemfound ;We found the mnemonic.
|
|
2399 bscmpexit ldb temp2
|
|
2400 bcc bscmplower
|
|
2401 decb
|
|
2402 stb temp+1 ;mnembuf<table, adjust high limit.
|
|
2403 bra bsrchloop
|
|
2404 bscmplower incb
|
|
2405 stb temp ;mnembuf>table, adjust low limit.
|
|
2406 bra bsrchloop
|
|
2407 invmnem ldx #invmmsg
|
|
2408 jmp asmerrvec
|
|
2409 * Stage 3: Perform routine depending on category code.
|
|
2410 mnemfound clr uncert
|
|
2411 ldy addr
|
|
2412 lda 5,u
|
|
2413 asla
|
|
2414 ldx #asmtab
|
|
2415 jsr [a,x]
|
|
2416 sty addr
|
|
2417 rts
|
|
2418 asmtab fdb onebyte,twobyte,immbyte,lea
|
|
2419 fdb sbranch,lbranch,lbra,acc8
|
|
2420 fdb dreg1,dreg2,oneaddr,tfrexg
|
|
2421 fdb pushpul,pseudo
|
|
2422
|
|
2423 putbyte stb ,y+
|
|
2424 rts
|
|
2425 putword std ,y++
|
|
2426 rts
|
|
2427
|
|
2428 onebyte ldb 7,u ;Cat 0, one byte opcode w/o operands RTS
|
|
2429 bra putbyte
|
|
2430 twobyte ldd 6,u ;Cat 1, two byte opcode w/o operands SWI2
|
|
2431 bra putword
|
|
2432 immbyte ldb 7,u ;Cat 2, opcode w/ immdiate operand ANDCC
|
|
2433 bsr putbyte
|
|
2434 jsr scanops
|
|
2435 ldb amode
|
|
2436 cmpb #1
|
|
2437 lbne moderr
|
|
2438 ldb operand+1
|
|
2439 bra putbyte
|
|
2440 lea ldb 7,u ;Cat 3, LEA
|
|
2441 bsr putbyte
|
|
2442 jsr scanops
|
|
2443 lda amode
|
|
2444 cmpa #1
|
|
2445 lbeq moderr ;No immediate w/ lea
|
|
2446 cmpa #3
|
|
2447 lbhs doaddr
|
|
2448 jsr set3
|
|
2449 lda #$8f
|
|
2450 sta postbyte
|
|
2451 lda #2
|
|
2452 sta opsize ;Use 8F nn nn for direct mode.
|
|
2453 jmp doaddr
|
|
2454 sbranch ldb 7,u ;Cat 4, short branch instructions
|
|
2455 bsr putbyte
|
|
2456 jsr startop
|
|
2457 leax -1,x
|
|
2458 jsr exprvec
|
|
2459 lbeq exprerr
|
|
2460 jmp shortrel
|
|
2461 lbranch ldd 6,u ;Cat 5, long brach w/ two byte opcode
|
|
2462 bsr putword
|
|
2463 lbra1 jsr startop
|
|
2464 leax -1,x
|
|
2465 jsr exprvec
|
|
2466 lbeq exprerr
|
|
2467 jmp longrel
|
|
2468 lbra ldb 7,u ;Cat 6, long branch w/ one byte opcode.
|
|
2469 jsr putbyte
|
|
2470 bra lbra1
|
|
2471 acc8 lda #1 ;Cat 7, 8-bit two operand instructions ADDA
|
|
2472 sta opsize
|
|
2473 jsr scanops
|
|
2474 jsr adjopc
|
|
2475 jsr putbyte
|
|
2476 jmp doaddr
|
|
2477 dreg1 lda #2 ;Cat 8, 16-bit 2operand insns 1byte opc LDX
|
|
2478 sta opsize
|
|
2479 jsr scanops
|
|
2480 jsr adjopc
|
|
2481 jsr putbyte
|
|
2482 jmp doaddr
|
|
2483 dreg2 lda #2 ;Cat 9, 16-bit 2operand insns 2byte opc LDY
|
|
2484 sta opsize
|
|
2485 jsr scanops
|
|
2486 jsr adjopc
|
|
2487 lda 6,u
|
|
2488 jsr putword
|
|
2489 jmp doaddr
|
|
2490 oneaddr jsr scanops ;Cat 10, one-operand insns NEG..CLR
|
|
2491 ldb 7,u
|
|
2492 lda amode
|
|
2493 cmpa #1
|
|
2494 lbeq moderr ;No immediate mode
|
|
2495 cmpa #3
|
|
2496 bhs oaind ;indexed etc
|
|
2497 lda opsize
|
|
2498 deca
|
|
2499 beq oadir
|
|
2500 addb #$10 ;Add $70 for extended direct.
|
|
2501 oaind addb #$60 ;And $60 for indexed etc.
|
|
2502 oadir jsr putbyte ;And nothing for direct8.
|
|
2503 jmp doaddr
|
|
2504 tfrexg jsr startop ;Cat 11, TFR and EXG
|
|
2505 leax -1,x
|
|
2506 ldb 7,u
|
|
2507 jsr putbyte
|
|
2508 jsr findreg
|
|
2509 ldb ,u
|
|
2510 aslb
|
|
2511 aslb
|
|
2512 aslb
|
|
2513 aslb
|
|
2514 stb postbyte
|
|
2515 ldb ,x+
|
|
2516 cmpb #','
|
|
2517 lbne moderr
|
|
2518 jsr findreg
|
|
2519 ldb ,u
|
|
2520 orb postbyte
|
|
2521 jmp putbyte
|
|
2522 pushpul jsr startop ;Cat 12, PSH and PUL
|
|
2523 leax -1,x
|
|
2524 ldb 7,u
|
|
2525 jsr putbyte
|
|
2526 clr postbyte
|
|
2527 pploop jsr findreg
|
|
2528 ldb 1,u
|
|
2529 orb postbyte
|
|
2530 stb postbyte
|
|
2531 ldb ,x+
|
|
2532 cmpb #','
|
|
2533 beq pploop
|
|
2534 leax -1,x
|
|
2535 ldb postbyte
|
|
2536 jmp putbyte
|
|
2537 pseudo ;Cat 13, pseudo oeprations
|
|
2538 rts
|
|
2539
|
|
2540 * Adjust opcdoe depending on mode (in $80-$FF range)
|
|
2541 adjopc ldb 7,u
|
|
2542 lda amode
|
|
2543 cmpa #2
|
|
2544 beq adjdir ;Is it direct?
|
|
2545 cmpa #3
|
|
2546 bhs adjind ;Indexed etc?
|
|
2547 rts ;Not, then immediate, no adjust.
|
|
2548 adjind addb #$20 ;Add $20 to opcode for indexed etc modes.
|
|
2549 rts
|
|
2550 adjdir addb #$10 ;Add $10 to opcode for direct8
|
|
2551 lda opsize
|
|
2552 deca
|
|
2553 bne adjind ;If opsize=2, add another $20 for extended16
|
|
2554 rts
|
|
2555
|
|
2556 * Start scanning of operands.
|
|
2557 startop ldx temp3
|
|
2558 clr amode
|
|
2559 jmp skipspace
|
|
2560
|
|
2561 * amode settings in assembler: 1=immediate, 2=direct/extended, 3=indexed
|
|
2562 * etc. 4=pc relative, 5=indirect, 6=pcrelative and indirect.
|
|
2563
|
|
2564 * This subroutine scans the assembler operands.
|
|
2565 scanops bsr startop
|
|
2566 cmpb #'['
|
|
2567 bne noindir
|
|
2568 lda #5 ;operand starts with [, then indirect.
|
|
2569 sta amode
|
|
2570 ldb ,x+
|
|
2571 noindir cmpb #'#'
|
|
2572 lbeq doimm
|
|
2573 cmpb #','
|
|
2574 lbeq dospecial
|
|
2575 andb #CASEMASK ;Convert to uppercase.
|
|
2576 lda #$86
|
|
2577 cmpb #'A'
|
|
2578 beq scanacidx
|
|
2579 lda #$85
|
|
2580 cmpb #'B'
|
|
2581 beq scanacidx
|
|
2582 lda #$8B
|
|
2583 cmpb #'D'
|
|
2584 bne scanlab
|
|
2585 scanacidx ldb ,x+ ;Could it be A,X B,X or D,X
|
|
2586 cmpb #','
|
|
2587 bne nocomma
|
|
2588 sta postbyte
|
|
2589 clr opsize
|
|
2590 jsr set3
|
|
2591 jsr scanixreg
|
|
2592 bra scanend
|
|
2593 nocomma leax -1,x
|
|
2594 scanlab leax -1,x ;Point to the start of the operand
|
|
2595 jsr exprvec
|
|
2596 lbeq exprerr
|
|
2597 std operand
|
|
2598 tst uncert
|
|
2599 bne opsz2 ;Go for extended if operand unknown.
|
|
2600 subd dpsetting
|
|
2601 tsta ;Can we use 8-bit operand?
|
|
2602 bne opsz2
|
|
2603 inca
|
|
2604 bra opsz1
|
|
2605 opsz2 lda #2
|
|
2606 opsz1 sta opsize ;Set opsize depending on magnitude of op.
|
|
2607 lda amode
|
|
2608 cmpa #5
|
|
2609 bne opsz3 ;Or was it indirect.
|
|
2610 lda #2 ;Then we have postbyte and opsize=2
|
|
2611 sta opsize
|
|
2612 lda #$8F
|
|
2613 sta postbyte
|
|
2614 bra opsz4
|
|
2615 opsz3 lda #2
|
|
2616 sta amode ;Assume direct or absolute addressing
|
|
2617 opsz4 ldb ,x+
|
|
2618 cmpb #','
|
|
2619 lbeq doindex ;If followed by, then indexed.
|
|
2620 scanend lda amode
|
|
2621 cmpa #5
|
|
2622 blo scanend2 ;Was it an indirect mode?
|
|
2623 lda postbyte
|
|
2624 ora #$10 ;Set indirect bit.
|
|
2625 sta postbyte
|
|
2626 ldb ,x+
|
|
2627 cmpb #']' ;Check for the other ]
|
|
2628 lbeq moderr
|
|
2629 scanend2 rts
|
|
2630 doimm jsr exprvec ;Immediate addressing.
|
|
2631 lbeq exprerr
|
|
2632 std operand
|
|
2633 lda amode
|
|
2634 cmpa #5
|
|
2635 lbeq moderr ;Inirect mode w/ imm is illegal.
|
|
2636 lda #$01
|
|
2637 sta amode
|
|
2638 rts
|
|
2639 dospecial jsr set3
|
|
2640 clr opsize
|
|
2641 clra
|
|
2642 adecloop ldb ,x+
|
|
2643 cmpb #'-'
|
|
2644 bne adecend
|
|
2645 inca ;Count the - signs for autodecrement.
|
|
2646 bra adecloop
|
|
2647 adecend leax -1,x
|
|
2648 cmpa #2
|
|
2649 lbhi moderr
|
|
2650 tsta
|
|
2651 bne autodec
|
|
2652 clr postbyte
|
|
2653 jsr scanixreg
|
|
2654 clra
|
|
2655 aincloop ldb ,x+
|
|
2656 cmpb #'+'
|
|
2657 bne aincend
|
|
2658 inca
|
|
2659 bra aincloop ;Count the + signs for autoincrement.
|
|
2660 aincend leax -1,x
|
|
2661 cmpa #2
|
|
2662 lbhi moderr
|
|
2663 tsta
|
|
2664 bne autoinc
|
|
2665 lda #$84
|
|
2666 ora postbyte
|
|
2667 sta postbyte
|
|
2668 bra scanend
|
|
2669 autoinc adda #$7f
|
|
2670 ora postbyte
|
|
2671 sta postbyte
|
|
2672 bra scanend
|
|
2673 autodec adda #$81
|
|
2674 sta postbyte
|
|
2675 jsr scanixreg
|
|
2676 lbra scanend
|
|
2677 doindex clr postbyte
|
|
2678 jsr set3
|
|
2679 ldb ,x+
|
|
2680 andb #CASEMASK ;Convert to uppercase.
|
|
2681 cmpb #'P'
|
|
2682 lbeq dopcrel ;Check for PC relative.
|
|
2683 leax -1,x
|
|
2684 clr opsize
|
|
2685 bsr scanixreg
|
|
2686 ldd operand
|
|
2687 tst uncert
|
|
2688 bne longindex ;Go for long index if operand unknown.
|
|
2689 cmpd #-16
|
|
2690 blt shortindex
|
|
2691 cmpd #15
|
|
2692 bgt shortindex
|
|
2693 lda amode
|
|
2694 cmpa #5
|
|
2695 beq shortind1 ;Indirect may not be 5-bit index
|
|
2696 ;It's a five-bit index.
|
|
2697 andb #$1f
|
|
2698 orb postbyte
|
|
2699 stb postbyte
|
|
2700 lbra scanend
|
|
2701 shortindex cmpd #-128
|
|
2702 blt longindex
|
|
2703 cmpd #127
|
|
2704 bgt longindex
|
|
2705 shortind1 inc opsize
|
|
2706 ldb #$88
|
|
2707 orb postbyte
|
|
2708 stb postbyte
|
|
2709 lbra scanend
|
|
2710 longindex lda #$2
|
|
2711 sta opsize
|
|
2712 ldb #$89
|
|
2713 orb postbyte
|
|
2714 stb postbyte
|
|
2715 lbra scanend
|
|
2716 dopcrel ldb ,x+
|
|
2717 andb #CASEMASK ;Convert to uppercase
|
|
2718 cmpb #'C'
|
|
2719 blo pcrelend
|
|
2720 cmpb #'R'
|
|
2721 bhi pcrelend
|
|
2722 bra dopcrel ;Scan past the ,PCR
|
|
2723 pcrelend leax -1,x
|
|
2724 ldb #$8C
|
|
2725 orb postbyte ;Set postbyte
|
|
2726 stb postbyte
|
|
2727 inc amode ;Set addr mode to PCR
|
|
2728 lbra scanend
|
|
2729
|
|
2730 * Scan for one of the 4 index registers and adjust postbyte.
|
|
2731 scanixreg ldb ,x+
|
|
2732 andb #CASEMASK ;Convert to uppercase.
|
|
2733 pshs x
|
|
2734 ldx #ixregs
|
|
2735 clra
|
|
2736 scidxloop cmpb ,x+
|
|
2737 beq ixfound
|
|
2738 adda #$20
|
|
2739 bpl scidxloop
|
|
2740 jmp moderr ;Index register not found where expected.
|
|
2741 ixfound ora postbyte
|
|
2742 sta postbyte ;Set index reg bits in postbyte.
|
|
2743 puls x
|
|
2744 rts
|
|
2745
|
|
2746 * This routine sets amode to 3, if it was less.
|
|
2747 set3 lda amode
|
|
2748 cmpa #3
|
|
2749 bhs set3a
|
|
2750 lda #3
|
|
2751 sta amode
|
|
2752 set3a rts
|
|
2753
|
|
2754 * This subroutine lays down the address.
|
|
2755 doaddr lda amode
|
|
2756 cmpa #3
|
|
2757 blo doa1
|
|
2758 ldb postbyte
|
|
2759 jsr putbyte
|
|
2760 lda amode
|
|
2761 anda #1
|
|
2762 beq doapcrel ;pc rel modes.
|
|
2763 doa1 lda opsize
|
|
2764 tsta
|
|
2765 beq set3a
|
|
2766 deca
|
|
2767 beq doa2
|
|
2768 ldd operand
|
|
2769 jmp putword
|
|
2770 doa2 ldb operand+1
|
|
2771 jmp putbyte
|
|
2772 doapcrel sty addr
|
|
2773 ldd operand
|
|
2774 subd addr
|
|
2775 subd #1
|
|
2776 tst uncert
|
|
2777 bne pcrlong
|
|
2778 cmpd #-128
|
|
2779 blt pcrlong
|
|
2780 cmpd #-127
|
|
2781 bgt pcrlong
|
|
2782 lda #1
|
|
2783 sta opsize
|
|
2784 jmp putbyte
|
|
2785 pcrlong subd #1
|
|
2786 leay -1,y
|
|
2787 inc postbyte
|
|
2788 pshs d
|
|
2789 ldb postbyte
|
|
2790 jsr putbyte
|
|
2791 lda #2
|
|
2792 sta opsize
|
|
2793 puls d
|
|
2794 jmp putword
|
|
2795
|
|
2796 * This routine checks and lays down short relative address.
|
|
2797 shortrel sty addr
|
|
2798 subd addr
|
|
2799 subd #1
|
|
2800 cmpd #-128
|
|
2801 blt brerr
|
|
2802 cmpd #127
|
|
2803 bgt brerr
|
|
2804 jsr putbyte
|
|
2805 lda #4
|
|
2806 sta amode
|
|
2807 lda #1
|
|
2808 sta opsize
|
|
2809 rts
|
|
2810 * This routine lays down long relative address.
|
|
2811 longrel sty addr
|
|
2812 subd addr
|
|
2813 subd #2
|
|
2814 jsr putword
|
|
2815 lda #4
|
|
2816 sta amode
|
|
2817 lda #2
|
|
2818 sta opsize
|
|
2819 rts
|
|
2820
|
|
2821 brerr ldx #brmsg
|
|
2822 jmp asmerrvec
|
|
2823 exprerr ldx #exprmsg
|
|
2824 jmp asmerrvec
|
|
2825 moderr ldx #modemsg
|
|
2826 jmp asmerrvec
|
|
2827 asmerr pshs x
|
|
2828 jsr xabortin
|
|
2829 puls x
|
|
2830 jsr outcount
|
|
2831 jsr putcr
|
|
2832 lds savesp
|
|
2833 jmp cmdline
|
|
2834
|
|
2835 * Find register for TFR and PSH instruction
|
|
2836 findreg ldb #12
|
|
2837 pshs y,b
|
|
2838 ldu #asmregtab
|
|
2839 findregloop tfr x,y
|
|
2840 lda #3
|
|
2841 frcmps ldb ,u
|
|
2842 cmpb #' '
|
|
2843 bne frcmps1
|
|
2844 ldb ,y
|
|
2845 cmpb #'A'
|
|
2846 blt frfound
|
|
2847 frcmps1 ldb ,y+
|
|
2848 andb #CASEMASK
|
|
2849 cmpb ,u+
|
|
2850 bne frnextreg
|
|
2851 deca
|
|
2852 bne frcmps
|
|
2853 inca
|
|
2854 bra frfound
|
|
2855 frnextreg inca
|
|
2856 leau a,u
|
|
2857 dec ,s
|
|
2858 bne findregloop
|
|
2859 lbra moderr
|
|
2860 frfound leau a,u
|
|
2861 tfr y,x
|
|
2862 puls y,b
|
|
2863 rts
|
|
2864
|
|
2865 * This is the code for the A command, assemble instructions.
|
|
2866 * Syntax: Aaddr
|
|
2867 asm ldx #linebuf+1
|
|
2868 jsr scanhex
|
|
2869 std addr
|
|
2870 asmloop ldd addr
|
|
2871 jsr outd
|
|
2872 ldb #' '
|
|
2873 jsr putchar ;Print address and space.
|
|
2874 ldx #linebuf
|
|
2875 ldb #128
|
|
2876 jsr getline ;Get new line
|
|
2877 tstb
|
|
2878 lbeq cmdline ;Exit on empty line.
|
|
2879 abx
|
|
2880 clr ,x ;Make line zero terminated.
|
|
2881 ldx #linebuf
|
|
2882 jsr asminstr
|
|
2883 bra asmloop
|
|
2884
|
|
2885 * Jump table for monitor routines that are usable by other programs.
|
|
2886 org $ffc0
|
|
2887 jmp outbyte
|
|
2888 jmp outd
|
|
2889 jmp scanbyte
|
|
2890 jmp scanhex
|
|
2891 jmp scanfact
|
|
2892 jmp asminstr
|
|
2893
|
|
2894
|
|
2895 * Interrupt vector addresses at top of ROM. Most are vectored through jumps
|
|
2896 * in RAM.
|
|
2897 org $fff2
|
|
2898 fdb swi3vec
|
|
2899 fdb swi2vec
|
|
2900 fdb firqvec
|
|
2901 fdb irqvec
|
|
2902 fdb swivec
|
|
2903 fdb nmivec
|
|
2904 fdb reset
|
|
2905
|
|
2906 end
|