;Device-independent disk words  5/3/04 9/29/07
;Modified for v1.11 - DBOOT uses PRESET instead of -IRQ
;
;driver word !IDE or !7900 must be loaded (before or after)
; >IDE   Send Command to interface (see below for commands)
; <IDE   Push Disk Status
; Address W-1K   Writes 1KW from Address to selected disk block
; Address R-1K   Reads 1KW from selected disk block to Address
; blockH blockL SBLA    Sets Block Address
; LDFB           Loads system from current block address
; DBOOT          Boots default system from block 8
; DGEN           Save system to block 8
; drivenum CHDRV Change drive number (location 250 oct)
;
; Interface commands...
; 101XXX - SB1 - Sets 8 lsb's of 1K word block address
; 102XXX - SB2 - Sets next 8 msb's of 1K word block address
; 103XXX - SB3 - Sets next 8 msb's of 1K word block address
; 104XXX - SB4 - Sets two 2 bits only of 1K work block address
; 110XXX - RDB - Reads XXX blocks from disk. If XXX=0 one 1KW block
;  is read into the disk data buffer from the current block address.
;  If XXX>0 then XXX blocks (up to a maximum of 31) is read from disk
;  and then transfered to the HP.
; 111XXX - WRB - Writes XXX blocks from HP to disk.  If XXX=0 the 
;  contents of the disk data buffer are written to the disk at the
;  current block address.  If XXX>0 then XXX blocks (up to a maximum
;  of 31) is transfered from the host and written to disk.
;
"Loading >IDE" $PRINT CRLF
CREATE >IDE
* zero page vectors....
CMDVE  EQU 240                 command, >IDE code
STAVE  EQU 241                 status, <IDE code
W1KVE  EQU 242                 W-1K code
R1KVE  EQU 243                 R-1K code
SEEKV  EQU 244                 seek vector, sets seek adr to 246,247
BOOTV  EQU 245                 boot vector, seek or manually set first
BLKAL  EQU 246                 block address low
BLKAH  EQU 247                 block address high
DRVNM  EQU 250                 drive number
*
       JSB ZSPOP,I                pop command to send
       JSB CMDVE,I
END
"Loading <IDE" $PRINT CRLF
CREATE <IDE /KEEP
       JSB STAVE,I
       JSB ZSPSH,I                push disk status
END
"Loading W-1K" $PRINT CRLF
CREATE W-1K /KEEP
       JSB ZSPOP,I                pop address to write from
       JSB W1KVE,I
END
"Loading R-1K" $PRINT CRLF
CREATE R-1K /KEEP
       JSB ZSPOP,I                pop address to read into
       JSB R1KVE,I
END
; Set Block Address
; high low SBLA as in 0 10 SBLA LDFB
"Loading SBLA" $PRINT CRLF
CREATE SBLA /KEEP
       JSB ZSPOP,I
       STA BLKAL
       JSB ZSPOP,I
       STA BLKAH
       JSB SEEKV,I
END
; LDFB - loads system from current block address, seek first
; this is for loading saved systems from files.
"Loading LDFB" $PRINT CRLF
CREATE LDFB /KEEP
       JMP BOOTV,I
END
;
"Pseudo-var DRV" $PRINT CRLF
CREATE DRV /K
 LDA DNADR
 JSB ZSPSH,I
 JMP END
DNADR DEF DRVNM      ;address of zp drvnm variable
END
"Setting to drive 0" $PRINT CRLF
DRV 0 PUT
;
"Loading CHDRV" $PRINT CRLF
; drive# CHDRV - sets DRV var to drive#
DEFINE CHDRV
 DRV SWAP PUT
END
;
; DBOOT - loads system from block 8 of current drive
; mod 9/29/07 - PRESET instead of -IRQ
; 
"Loading DBOOT" $PRINT CRLF
DEFINE DBOOT
PRESET #0 10 SBLA LDFB
END
;
; DGEN - saves system to block 8 of current drive
;
"Loading DGEN" $PRINT CRLF
DEFINE DGEN
"Saving boot system to disk..." $PRINT
2 10 46 +DO #0 INDEX SBLA DUP W-1K 2000 ADD +LOOP DROP
CRLF "Done, status = " $PRINT <IDE PNUM
END
;----------------------------
"Done" $PRINT CONSOLE