-;;;
+;;;
;;; A Fuzix booter for the CoCo3
;;;
npage .db 0 ; next page no.
pos .dw 0 ; buffer pos in memory
nampre fcn /"FUZIX.BIN/ ; " image to load
-
+
;; And the Kick-off
start
sts frame
lda #'F ; print F
- jsr 0xa282 ;
+ jsr 0xa282 ;
;; open kernel image file
ldb #'I ; input mode
jsr open
lbcs abort
lda #'U ; print "U"
jsr $a282
- ;; Move to task one
+ ;; Move to task one
ldx #$ffa0
ldu #$ffa8
ldd ,x++ ; copy mmu regs
.db $7e ; jump
bounce_end
-
+
;;; Gets next word from file
;;; takes: nothing
;;; returns: D = next word
jsr $a176 ; A = low byte
exg a,b ; flip D = next word
rts
-
+
;;; Sets load address
;;; takes: D = Address
lsra
lsra
lsra ; A= blk no
- sta $ffaa ; put in mmu
+ sta $ffaa ; put in mmu
puls d
anda #$1f ; D = offset
addd #$4000 ; mmu offset
lds frame
rts
-
+
;;; Open a file
;;; takes: B=ascii mode (I,O,D)
;;; returns: C set on error
err@ coma ; set C
puls b,pc ; return
-
+
;;; Close file buffer
close
- end start
\ No newline at end of file
+ end start
#define swap_map(x) ((uint8_t *)(x))
/* The Drivewire block dev rawmode=1 doesn't work just now
- with the bank16k.c memory layout (yet), so we have to
+ with the bank16k.c memory layout (yet), so we have to
use legacy binary loading... */
#define CONFIG_LEGACY_EXEC