File tree Expand file tree Collapse file tree 3 files changed +208
-199
lines changed Expand file tree Collapse file tree 3 files changed +208
-199
lines changed Original file line number Diff line number Diff line change 9
9
10
10
;; lets enable 6309 since the CPU is required for the architecture of the computer
11
11
h6309 EQU 1
12
+ SWATCH EQU $A03D ; dumb stop watch routine
12
13
ORG $1000 ; Jump to this location with G 1000 in MON09 or ASSIST9
13
14
CONFIG:
14
15
ifdef h6309
15
16
LDMD #1 ; h6309 native mode
16
17
endif
17
18
19
+ LDA SWATCH ;should display "start" and start the debugger watch
18
20
;; main loop
19
21
LEAS -5 ,S ; Allocate 5 bytes on the stack
20
22
CLR ,S ; Clear X (temp low byte)
21
23
CLR 1 ,S ; Clear X (temp high byte)
22
24
CLR 2 ,S ; Clear Y (temp low byte)
23
25
CLR 3 ,S ; Clear Y (temp high byte)
24
26
; Dispite what mand_get says in mandelbrot.asm itterations is in 6,S
25
-
27
+
26
28
loop:
27
29
LBSR mand_get ; Compute Mandelbrot for current position
28
30
LBSR PLOT ; Map result to a gradient character and send it to UART
47
49
LEAS 5 ,S ; Deallocate stack
48
50
49
51
DONE:
52
+ LDA SWATCH ; should print the milliseconds delay.
50
53
ifdef h6309
51
54
LDMD #0 ; h6809 emulation mode
52
55
endif
You can’t perform that action at this time.
0 commit comments