~vdupras/collapseos-trs804p

aaff304c21613d1ea622495bb5b44b1d0a2696a7 — Virgil Dupras 1 year, 4 months ago f5526fe master
Update Dusk
4 files changed, 13 insertions(+), 13 deletions(-)

M boot.fs
M build.fs
M duskos
M trs804p.fs
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