Merge pull request #20 from lindoran/main

Adding ASCII output for 6850 and Testing for the HB63C09

Author: SlithyMatt

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/README.md

@@ -0,0 +1,18 @@
+hb63c09m:
+
+The HB63C09 Completes asembly in 261 miliseconds (.261 Seconds) I beleve that is faster than the most recent Agon Light test, under asembly.
+
+Computer is clocked at 20Mhz and has a wait state for serial (which is the only video output) so once the graphics expansion is completed 
+it will be interesting to see how much faster the test completes without the serial io wait state.
+
+CPU SPECS: 
+ HD68C09 CPU running in native mode.
+ system clock 20Mhz
+ E strobe 5Mhz
+ Serial output 
+ MRDY is sent on every IO request and is cleared by the IO Controller.
+
+
+I did not run the test without video output.
+
+this code takes advantage of the speed tweeks avalible to the 6309 and uses the same maths in the ../6x09 directory that the Coco uses.

hb63c09/hb-mand.asm

@@ -0,0 +1,64 @@
+;; 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 
+
+;; Load this into MON09 or ASSIST09 with 'L' command by pasteing the .S19 
+;; into the terminal.
+
+;; lets enable 6309 since the CPU is required for the architecture of the computer
+h6309   EQU 1
+SWATCH  EQU $A03D               ; dumb stop watch routine
+        ORG $1000               ; Jump to this location with G 1000 in MON09 or ASSIST9
+CONFIG:
+        ifdef h6309
+	LDMD #1 		; h6309 native mode
+        endif
+
+        LDA     SWATCH          ;should display "start" and start the debugger watch
+;; 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
+        
+DONE:       
+        LDA     SWATCH          ; should print the milliseconds delay.
+        ifdef h6309
+	LDMD #0 		; h6809 emulation mode
+        endif
+
+        JMP [$FFFE]             ; Jump to reset vector
+
+;; includes uart and multi-mandelbrot for 24 bit fp math for optimal results.
+
+        INCLUDE "68b50.asm"
+        
+         
+        INCLUDE "../6x09/mandelbrot24.asm" ; Include Mandelbrot and fixed-point routines