Add files via upload

compile.bat

@@ -0,0 +1,14 @@
+@echo off
+set file=main
+
+echo Assembling...
+asm6809.exe -D %file%.asm -o HBD.BIN -l output.txt
+if errorlevel 1 goto end
+echo Creating Disk Image...
+dragondos.exe delete hbd.vdk HBD.BIN
+dragondos.exe write hbd.vdk HBD.BIN
+echo Creating Tape File (44.1KHz)...
+perl ../tools/bin2cas.pl -r 22050 -o hbd.wav -D HBD.BIN
+echo Booting Emulator...
+xroar.exe -vo sdl -default-machine dragon32 -extbas D:\CODEDEV\Dragon-32\xroar-0.36.2-w64\D32.rom -nodos -kbd-translate -run HBD.BIN
+:end

credits.asm

@@ -0,0 +1,78 @@
+creditsmain
+        ldx creditsaddr
+        ldy #$7F0
+        clr xcnt
+creditslp1
+        lda ,x+
+        sta ,y+
+        inc xcnt
+        lda xcnt
+        cmpa #16
+        bne creditslp1
+        clr xcnt
+        rts
+
+patchcredits
+        ldd #$0000
+        ldx #$7F0
+patchcreditslp
+        std ,x++
+        cmpx #$800
+        bne patchcreditslp
+        rts
+
+copycredits
+        ldx #$400
+        ldy #$3F0
+        clr xcnt
+        clr ycnt
+copycreditslp1
+        ldd ,x++
+        std ,y++
+        inc xcnt
+        lda xcnt
+        cmpa #8
+        bne copycreditslp1
+        clr xcnt
+        inc ycnt
+        ;leax 16,x          ;it took me 4 hours to realise
+        ;leay 16,y          ;why i didn't need to do this
+        lda ycnt
+        cmpa #64
+        bne copycreditslp1
+        rts
+
+credits
+        inc vscnt2
+        lda vscnt2
+        cmpa #6
+        bne creditsend
+        clr vscnt2
+        lda creditsflag
+        cmpa #0
+        beq docredits
+        jsr creditsinit
+        clr creditsflag
+docredits
+        jsr creditsmain
+        ldx creditsaddr
+        cmpx #creditsgfxend-16
+        beq skipscreditsreset
+        jsr copycredits
+        jsr patchcredits
+        ldx creditsaddr
+        leax 16,x
+        stx creditsaddr
+        ldx creditsaddr
+        cmpx #creditsgfxend-16
+        beq skipscreditsreset
+        bra creditsend
+skipscreditsreset
+        ldx #creditsgfxend-16
+        stx creditsaddr
+creditsend
+        rts
+
+creditsgfx
+        includebin "gfx/creditsgreets.bin"
+creditsgfxend

infoscreen.asm

@@ -0,0 +1,76 @@
+infoscrn
+        ldx #$400
+        ldy currchar
+info1
+        lda ,x
+        cmpa ,y
+        beq info2
+        deca
+info2
+        sta ,x+
+        ;leax 1,x
+        leay 1,y
+        cmpx #$600
+        bne info1
+        rts
+
+infoscrnend
+        lda vscnt
+        cmpa #3
+        bne skipinfoend
+        clr vscnt
+        inc sceneval
+        bra infoend2
+skipinfoend
+        ldx #$400
+infoend1
+        lda ,x
+        cmpa #144       ;207 = white ;144 = black 2
+        beq infoskipinc
+        inca
+infoskipinc
+        sta ,x+
+        cmpx #$600
+        bne infoend1
+infoend2
+        rts
+
+infoscrnmain
+        lda vscnt
+        cmpa #12
+        bne skipinfo
+        clr vscnt
+        inc sceneval
+        bra endinfo
+skipinfo
+        lda infoflag
+        cmpa #0
+        beq sceneinfo
+        jsr infoscrninit
+        clr infoflag
+        ;jsr palswap
+sceneinfo
+        jsr infoscrn
+        bra endinfo
+checkinfoend
+        jsr infoscrnend
+endinfo
+        rts
+
+infostring
+        fcv "        SO WHAT'S IN A          "
+        fcv "                                "
+        fcb 143,143,129,134,143,129,130,143,137,134,143,129,131,143,137,134,143,128,138,143,143,131,130,143,131,130,143,137,131,141,143,143
+        fcb 143,143,133,138,143,129,133,143,129,130,143,133,130,143,133,138,143,129,136,143,143,139,130,143,129,131,143,143,137,143,143,143
+        fcb 143,143,132,137,143,133,138,143,133,138,143,132,136,143,134,137,143,133,128,143,143,140,136,143,132,140,143,143,141,143,143,143
+        fcv "                                "
+        fcv "  MOTOROLA 6809E CPU @ 0.89MHZ  "
+        fcv "WITH LIMITED 16-BIT CAPABILITIES"
+        fcv "   POWERFUL ADDRESSING MODES    "
+        fcv "                                "
+        fcv "   MOTOROLA 6847 VDG FOR GFX:   "
+        fcv " UP TO 256X192, UP TO 4 COLOURS "
+        fcv " 2 DODGY LOOKING COLOR PALETTES "
+        fcv "                                "
+        fcv " 32KB RAM, 6-BIT DAC FOR SOUND  "
+        fcv "    40 YEARS OLD THIS MONTH!    "

init.asm

@@ -0,0 +1,61 @@
+sgcolinit
+        jsr sg12init
+        jsr sg12clr
+        clr vscnt2
+        rts
+
+titleinit
+        jsr pmode1
+        ldd #$0000
+        jsr clearscrn_1
+        clr vscnt2
+        rts
+
+creditsinit
+        jsr pmoded
+        ldd #$0000
+        jsr clearscrn_d
+        ;jsr testpattern
+        clr vscnt2
+        clr torusflag
+        rts
+
+scrollinit
+        jsr pmodeia
+        jsr palswap
+        ldd #$8080
+        jsr clearscrn_d
+        ;jsr scroll1
+        clr vscnt2
+        rts
+
+twistinit
+        jsr pmoded
+        jsr palswap
+        ldd #$0000
+        jsr clearscrn_d
+        clr twistflag
+        rts
+
+sheepinit
+        jsr pmoded
+        jsr palswap
+        ldd #$5555
+        jsr clearscrn_d
+        clr sheepflag
+        rts
+
+infoscrninit
+        jsr pmodeia
+        ldd #$8F8F
+        ;ldd #$7f7f
+        jsr clearscrn_d
+        lda #0
+        sta infoflag
+        rts
+
+sg12init
+        jsr sg12mode
+        jsr sg12clr
+        jsr palswap
+        rts