M boot.fs => boot.fs +2 -2
@@ 4,8 4,8 @@ S" boot.bin" mountImage ( drv ) value mydrv
mydrv DriveFile :new structbind IO myfile
: spitrom ( a u -- ) myfile :write myfile :flush ;
xcomp z80a
-301 load \ Macros
+401 load \ Macros
0 xstart
-325 load \ bootloader
+425 load \ bootloader
xorg here over - spitrom
bye
M build.fs => build.fs +6 -6
@@ 13,16 13,16 @@ DRVMEM 6 + value FDMEM
DRVMEM 9 + value MSPAN_MEM
DRVMEM 10 + value UNDERCUR \ char under cursor
DRVMEM 11 + value RXTX_MEM
-xcomp z80a 301 load \ macros
+xcomp z80a 401 load \ macros
xcompc z80c corel
-305 load \ Video
-310 312 loadr \ Floppy
-315 316 loadr \ Serial
-320 322 loadr \ Keyboard
+405 load \ Video
+410 412 loadr \ Floppy
+415 416 loadr \ Serial
+420 422 loadr \ Keyboard
alias fd@ (ms@)
alias fd! (ms!)
create (msdsks) 6 nc, 100 100 100 180 180 0
-330 load \ Media Span
+430 load \ Media Span
blksub gridsub rxtxsub
: init grid$ kbd$ blk$ mspan$ fd$ $e cl$ ( 9600 bauds ) ;
xorg here over - spitrom
M duskos => duskos +1 -1
@@ 1,1 1,1 @@
-Subproject commit a8f0e4f2e1e3c33f3711606811912f94064af006
+Subproject commit 448b9701483919a0c3daf1e85de62e786a565b0c
M trs804p.fs => trs804p.fs +4 -4
@@ 1,10 1,10 @@
( ----- 000 )
TRS-80 4P MASTER INDEX
-301 Macros 305 Video Driver
-310 Floppy Driver 315 Serial Driver
-320 Keyboard Driver 325 Boot Loader
-330 Media Span subsystem
+401 Macros 405 Video Driver
+410 Floppy Driver 415 Serial Driver
+420 Keyboard Driver 425 Boot Loader
+430 Media Span subsystem
( ----- 001 )
\ TRS-80 drivers declarations and macros
\ FDMEM 3b: FDSEL 1b FDOP 2b