Mercurial > hg > Members > kono > nitros9-code

changeset 3035:1cef81d100ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added the missing BECKERTO section to the dwwrite.asm file.
author David Ladd <drencor-xeen@users.sf.net>
date Tue, 06 Jan 2015 23:19:01 -0600
parents f818de1b815a
children 42861a1dd59e
files level1/modules/dwwrite.asm
diffstat 1 files changed, 19 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/dwwrite.asm	Sat Jan 03 00:02:16 2015 -0600
+++ b/level1/modules/dwwrite.asm	Tue Jan 06 23:19:01 2015 -0600
@@ -58,10 +58,28 @@
           bne       txByte              ; loop if more to send
 
           puls      cc,d,pc           ; restore registers and return
+          ELSE
+          IFNE BECKERTO
+DWWrite   pshs      d,cc              ; preserve registers
+          orcc      #$50                ; mask interrupts
+;          ldu       #BBOUT              ; point U to bit banger out register
+;          lda       3,u                 ; read PIA 1-B control register
+;          anda      #$f7                ; clear sound enable bit
+;          sta       3,u                 ; disable sound output
+;          fcb       $8c                 ; skip next instruction
+
+txByte
+          lda       ,x+
+          sta       $FF42
+          leay      -1,y                ; decrement byte counter
+          bne       txByte              ; loop if more to send
+
+          puls      cc,d,pc           ; restore registers and return
+          ENDC
           ENDC
           ENDC
 
-          IFEQ BECKER+JMCPBCK+ARDUINO
+          IFEQ BECKER+JMCPBCK+ARDUINO+BECKERTO
           IFEQ BAUD38400+H6309
 *******************************************************
 * 57600 (115200) bps using 6809 code and timimg