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