blkfs.patch

--- combined.fs
+++ combined.fs
@@ -12,12 +12,15 @@
 370 TI-84+ LCD                 375 TI-84+ Keyboard
 380 TI-84+ Boot code & macros
 390 TRS-80 4P drivers          405 Dan SBC drivers
+
+500 AVR        600 8086        700 6809       800 6502
 ( ----- 001 )
 \ Z80 port's Macros and constants. See doc/code/z80.txt
 : Z80A 5 LOAD ( wordtbl ) 320 329 LOADR 7 LOAD ( Flow words ) ;
 : Z80C 302 314 LOADR ;
 : TRS804PM 390 LOAD ;
 : TI84M 380 LOAD ; : TI84BOOT 381 382 LOADR ;
+: XARCHM 501 LOAD 601 LOAD 701 LOAD 801 LOAD ;
 \ see comment at TICKS' definition
 \ 7.373MHz target: 737t. outer: 37t inner: 16t
 \ tickfactor = (737 - 37) / 16
@@ -1101,16 +1104,18 @@
   DUP 4 = IF VD_CURCL @ [ VID_WDTH 28 - LITN ] > IF
     [ VID_WDTH 24 - LITN ] ELSE VD_CURCL @ 4 + THEN
     VD_CURCL ! DROP 0 THEN DUP UNTIL ;
+( ----- 199 )
+
 ( ----- 000 )
 AVR MASTER INDEX
 
-301 AVR macros                 302 AVR assembler
-320 SMS PS/2 controller        345 Arduino blinker
-350 Arduino SPI spitter
+501 AVR macros                 502 AVR assembler
+520 SMS PS/2 controller        545 Arduino blinker
+550 Arduino SPI spitter
 
 ( ----- 001 )
-: AVRA 302 312 LOADR ;
-: ATMEGA328P 315 LOAD ;
+: AVRA 502 512 LOADR ;
+: ATMEGA328P 515 LOAD ;
 ( ----- 002 )
 \ AVR assembler. See doc/asm/avr.txt.
 \ We divide by 2 because each PC represents a word.
@@ -1571,15 +1576,17 @@
   R1 TST, ' BRNE AGAIN?, \ end main
 R16 $00 LDI, UCSR0B R16 STS, \ Disable UART
 BEGIN, AGAIN, \ end program
+( ----- 099 )
+
 ( ----- 000 )
 8086 MASTER INDEX
 
-301 8086 boot code             306 8086 HAL
-311 8086 assembler             320 8086 drivers
+601 8086 boot code             606 8086 HAL
+611 8086 assembler             620 8086 drivers
 ( ----- 001 )
 \ 8086 macros
-: 8086A 5 LOAD ( wordtbl ) 311 318 LOADR 7 LOAD ( Flow ) ;
-: 8086C 302 309 LOADR ;
+: 8086A 5 LOAD ( wordtbl ) 611 618 LOADR 7 LOAD ( Flow ) ;
+: 8086C 602 609 LOADR ;
 ( ----- 002 )
 \ 8086 boot code. PS=SP, RS=BP, IP=DX, TOS=BX
 FJR JRi, TO L1 ( main ) 4 OALLOT ( 3=boot driveno )
@@ -1846,21 +1853,23 @@
   AL BL MOVrr, BX POPx, AH $0e MOVri, $10 INT, ;CODE
 : CELL! ( c pos -- ) 0 CURSOR! _ ;
 : NEWLN ( old -- new ) 1+ DUP LINES = IF 1- CR _ LF _ THEN ;
+( ----- 099 )
+
 ( ----- 000 )
 6809 MASTER INDEX
 
-301 6809 macros                302 6809 boot code
-310 6809 assembler
-320 TRS-80 Color Computer 2
-325 6809 disassembler          340 6809 emulator
-360 Virgil's workspace
+701 6809 macros                702 6809 boot code
+710 6809 assembler
+720 TRS-80 Color Computer 2
+725 6809 disassembler          740 6809 emulator
+760 Virgil's workspace
 ( ----- 001 )
 ( 6809 declarations )
-: 6809A 310 318 LOADR 7 LOAD ( flow ) ;
-: 6809C 302 308 LOADR ;
-: 6809D 325 336 LOADR ; : 6809E 340 354 LOADR ;
-: COCO2 320 LOAD 322 324 LOADR ;
-: DGN32 321 LOAD 322 324 LOADR ;
+: 6809A 710 718 LOADR 7 LOAD ( flow ) ;
+: 6809C 702 708 LOADR ;
+: 6809D 725 736 LOADR ; : 6809E 740 754 LOADR ;
+: COCO2 720 LOAD 722 724 LOADR ;
+: DGN32 721 LOAD 722 724 LOADR ;
 ( ----- 002 )
 \ 6809 Boot code. IP=Y, PS=S, RS=U
 PS_ADDR # LDS, RS_ADDR # LDU, 0 () JMP, PC 2 - TO lblboot
@@ -2484,20 +2493,22 @@
 ( write ) 42 # LDD, PSHS, D TO? () STB,
 L3 BR BRA,
 'HERE !
+( ----- 099 )
+
 ( ----- 000 )
 6502 MASTER INDEX
 
-301 6502 macros and consts     302 6502 assembler
-310 6502 boot code             330 6502 disassembler
-335 6502 emulator              350 Virgil's workspace
-360 Apple IIe drivers
+801 6502 macros and consts     802 6502 assembler
+810 6502 boot code             830 6502 disassembler
+835 6502 emulator              850 Virgil's workspace
+860 Apple IIe drivers
 ( ----- 001 )
 \ 6502 macros and constants. See doc/code/6502.txt
-: 6502A 302 305 LOADR 7 LOAD ( flow ) ;
-: 6502M 309 LOAD ;
-: 6502C 310 321 LOADR ;
-: 6502D 330 334 LOADR ;
-: 6502E 335 342 LOADR ;
+: 6502A 802 805 LOADR 7 LOAD ( flow ) ;
+: 6502M 809 LOAD ;
+: 6502C 810 821 LOADR ;
+: 6502D 830 834 LOADR ;
+: 6502E 835 842 LOADR ;
 \ ZP assignments
 $06 VALUE 'A
 $08 VALUE 'N