v8080: Fix bootblock and building of it

diff --git a/Kernel/platform-v8080/Makefile b/Kernel/platform-v8080/Makefile
index 03641a6..a983a04 100644 (file)
--- a/Kernel/platform-v8080/Makefile
+++ b/Kernel/platform-v8080/Makefile
@@ -23,7 +23,7 @@ $(COBJS): %.o: %.c
 clean:
        rm -f $(OBJS) $(JUNK)  core *~ bootblock.bin bootblock
 
-bootblock:
+bootblock: bootblock.s
        ack -mfuzix -c bootblock.s
        $(ACK_ROOT)/lib/ack/em_led -btext:0 -o bootblock.bin -s bootblock.o
        aslod <bootblock.bin >bootblock

diff --git a/Kernel/platform-v8080/bootblock.s b/Kernel/platform-v8080/bootblock.s
index a8ecd0b..b8dcb81 100644 (file)
--- a/Kernel/platform-v8080/bootblock.s
+++ b/Kernel/platform-v8080/bootblock.s
@@ -31,7 +31,12 @@ dmal = 15
 dmah = 16
 sectorh = 17
 
-diskload:      di
+diskload:
+               di
+               mvi a,'B'
+               out 1
+               mvi a,':'
+               out 1
                xra a
                out sectorh             ! sector high always 0
                out drive               ! drive always 0
@@ -40,6 +45,7 @@ diskload:     di
                mvi c,19                ! number of tracks to load (56Kish)
 
                lxi d,128
+               lxi h,0x100
 
 load_tracks:   in track
                inr a                   ! next track
@@ -58,13 +64,28 @@ load_sectors:
                xra a                   ! read
                out command             ! go
                in status               ! status
+
+               mvi a,'.'
+               out 1
+
                dad d
                dcr b
                jnz load_sectors        ! 26 sectors = 3328 bytes
+
+               mvi a, 13
+               out 1
+               mvi a,10
+               out 1
+
                dcr c
                jnz load_tracks
+
+
+               mvi a,'G'
+               out 1
                mvi a, 13
                out 1
                mvi a,10
                out 1
-               jmp 0x88
+               jmp 0x100
+               
\ No newline at end of file