mirror of
https://github.com/sethm/symon.git
synced 2024-07-06 01:28:57 +00:00
c1caf8c6b4
This change introduces simulated baud rates in the ACIA. Baud rate is controlled just as in the real 6551, by writing to the ACIA's control register. Baud rates between 50 and 19,200 baud are selectable. A baud rate of 0 has special meaning, and turns off all simulated baud rate delays (on a real 6551, this means to use an external clock instead of the internal baud rate generator) A busy-wait loop between steps in the simulator control program has also been added. This uses the high-resolution 'System.nanoTime()' call to wait a specific number of nanoseconds before continuing. Symon now waits at least 1uS between clock cycles, trying to approach a real 1MHz 6502 in performance. It is far from perfect, but it's better than it was. Also refactored the status panel to use a BoxLayout, and DRY-up some of the code.
32 lines
770 B
NASM
32 lines
770 B
NASM
;;
|
|
;; Output the string 'Hello, World!'
|
|
;;
|
|
|
|
|
|
.alias iobase $c000
|
|
.alias iostatus [iobase + 1]
|
|
.alias iocmd [iobase + 2]
|
|
.alias ioctrl [iobase + 3]
|
|
|
|
.org $0300
|
|
|
|
start: cli
|
|
lda #$09
|
|
sta iocmd ; Set command status
|
|
lda #$1a
|
|
sta ioctrl ; 0 stop bits, 8 bit word, 2400 baud
|
|
|
|
init: ldx #$00 ; Initialize index
|
|
|
|
loop: lda iostatus
|
|
and #$10 ; Is the tx register empty?
|
|
beq loop ; No, wait for it to empty
|
|
lda string,x ; Otherwise, load the string pointer
|
|
beq init ; If the char is 0, re-init
|
|
sta iobase ; Otherwise, transmit
|
|
|
|
inx ; Increment string pointer.
|
|
jmp loop ; Repeat write.
|
|
|
|
string: .byte "Hello, 6502 world! ", 0
|