Add test for HB63C09M

test for HB63C09M This runs the same routines for the back end as the COCO, using 6309 optimizations, as well as 24bit FP maths

Author: lindoran

hb63c09/68b50.asm

@@ -0,0 +1,32 @@
+; UART and control the routines are set up for the 6850
+; or 'like' such as the 6850 Wrapper in the HB63C09M.
+
+USTAT   EQU $A000           ; UART Status Register
+UDATA   EQU $A001           ; UART Data Register
+
+; Send CRLF to terminal
+CRLF:   LDA #$0A               ; Line feed
+        BSR CHOUT
+        LDA #$0D               ; Carriage return
+        BSR CHOUT
+        RTS
+
+; Map iterations to printable ASCII characters
+PLOT:   LDA 6,S                ; Load iteration count
+        INCA                   ; Offset for gradient lookup
+        LDY #PSUSHD            ; Address of gradient table
+        LDA A,Y                ; Load corresponding ASCII shade
+; Fall through to `CHOUT`
+
+CHOUT:  PSHS A                 ; Save character in A
+WRWAIT: LDA USTAT              ; Check UART status
+        BITA #2                ; Ready to send?
+        BEQ WRWAIT             ; Wait until ready
+        PULS A                 ; Restore character
+        STA UDATA              ; Send character
+        RTS
+
+
+; 16 levels of pseudo-shades in 7-Bit ASCII (darkest to lightest)
+PSUSHD: FCB $23,$40,$25,$26,$58,$2A,$2B,$3D ; Darker characters
+        FCB $2D,$7E,$3A,$2E,$2C,$60,$20,$20 ; Lighter characters

hb63c09/Makefile

@@ -0,0 +1,17 @@
+# Define variables
+ASM = hb-mand.asm
+LIST = hb-mand.lst
+OUTPUT = hb-mand.s19
+
+# Define the lwasm command
+LZASM = lwasm
+
+# Compilation rule
+all: $(OUTPUT)
+
+$(OUTPUT): $(ASM)
+	$(LZASM) -l$(LIST) -fsrec -o$(OUTPUT) -3 $(ASM)
+
+# Clean rule
+clean:
+	rm -f $(LIST) $(OUTPUT)

hb63c09/hb-mand.asm

@@ -0,0 +1,58 @@
+;; asembly battle royal for the HB63C09M
+;; This simply resets the comptuer at the end of exicution, and should 
+;; technically work on any homebrew computer with a serial MLM as long as 
+;; there is a supported UART -- You should check the addresses in your
+;; source file for the UART to make shure they align with your architecture 
+
+;; lets enable 6309 since the CPU is required for the architecture of the computer
+h6309   EQU 1
+
+        ORG $1000
+
+        ifdef h6309
+	ldmd #1 		; h6309 native mode
+        endif
+
+;; main loop
+        LEAS    -5,S            ; Allocate 5 bytes on the stack
+        CLR     ,S              ; Clear X (temp low byte)
+        CLR     1,S             ; Clear X (temp high byte)
+        CLR     2,S             ; Clear Y (temp low byte)
+        CLR     3,S             ; Clear Y (temp high byte)
+                                ; Dispite what mand_get says in mandelbrot.asm itterations is in 6,S
+
+loop:
+        LBSR    mand_get        ; Compute Mandelbrot for current position
+        LBSR    PLOT            ; Map result to a gradient character and send it to UART
+
+        LDD     ,S              ; Load X register
+        ADDD    #1              ; Increment X
+        STD     ,S              ; Save X back
+
+        CMPD    #MAND_WIDTH     ; Check if X reached the width
+        BNE     loop            ; If not, continue
+
+        BSR     CRLF            ; Send CRLF to start a new line
+        CLR     ,S              ; Reset X to 0
+        CLR     1,S
+
+        LDD     2,S             ; Load Y register
+        ADDD    #1              ; Increment Y
+        STD     2,S             ; Save Y back
+
+        CMPD    #MAND_HEIGHT    ; Check if Y reached the height
+        BNE     loop            ; If not, continue
+        LEAS    5,S             ; Deallocate stack
+        
+        
+        ifdef h6309
+	ldmd #0 		; h6809 emulation mode
+        endif
+
+        JMP [$FFFE]             ; Jump to reset vector
+
+;; includes
+        INCLUDE "68b50.asm"
+        
+         
+        INCLUDE "../6x09/mandelbrot24.asm" ; Include Mandelbrot and fixed-point routines