HP-IPL/OS IDE Disk Builds
  =========================

The HP-IPL/OS builds here are for running with a customized 8052-based
controller connected to an IDE disk drive which supports "LBA" access.
The controller is based on a "Paul" development board, Bob Shannon has
been running the system since 2005, as of 11/18/07 the IDE driver actually
works :) (apparently Bob's system had a patched status read that always
returned "OK", took a bit of debugging to determine that the posted IDE
driver code never worked... without actual plans to make the thing his
was the only operational example and happily running with old code)

The 8052 IDE disk controller code is in the hpdiskc2.asm file.
The comments include partial details about the HP interface, more
complete details are in the hpide* files.

Status as of 11/30/07 - partially tested and essentially working
but there's still an issue with <IDE after doing a block write.
The workaround is to force <IDE to always return 0, which can be
done by entering: "<IDE" $DEFADR INC 2400 PUT at the ? prompt then
entering DGEN to save the patched boot system. This of course defeats
the purpose of error-checking, just gets it working assuming the
interface is otherwise error-free. [this turned out to be because
the HP DUP REG board I'm using doesn't support transparent input,
as of 12/18/07 the system works fine, even if I had to hack <IDE]

Initializing an IDE disk...

After booting a stock HP-IPL/OS IDE binary, reconfigure with CONFIG and
2 RUN to restart if slot changes are required, and enter DGEN to save
a default boot system to the disk. Can be changed later to customize.
The boot system can be loaded by using IDE boot code in rom, loading the
small ideboot2.abs file via papertape and running from 77600, or by
entering DBOOT after loading/reconfiguring a stock HP-IPL/OS IDE binary.
To prepare the disk to store files, enter XINIT and enter 100 for the
octal number of volumes (directories) and 100 for the octal number of
files in the last volume. This permits 4096 files storing up to 256
megabytes of data, the maximum supported by SFS on a single drive. This
comes to 268,644,352 bytes after file system overhead. The driver permits
virtual drives, each additional drive number permits accessing another
~257 megabytes of disk. To use less drive space or be compatible with
images from another disk type, alter the number entered for the number
of volumes. For example to be compatible with 7906 disk images to
access the disk under simulation (say using a USB tray and the Linux
"DD" command to copy the disk to a file) enter 3 for the number of
volumes and 26 (octal) for the number of files in the last volume.
XINIT only affects the volume index in 1KW block 6 and does not
actually write anything anywhere else, disks can be "reformatted"
if necessary, use VRECOVER to regain access to existing volumes.
Once the disk is initialized, enter "LIB" MKVOL to create an initial
volume named LIB to put files in, the name in quotes can be up to 16
characters. Additional volumes can be created as needed.

IDE boot code...

The actual IDE bootrom code is in ideboot.lst, the ideboot2.abs file
is a papertape binary for "kickstarting" the system without a bootrom.
See ideboot2.hpa for source and operating instructions. This code is
hard-coded for the IDE interface in slot 23, to change for another
slot the "23"'s in the I/O instructions have to be changed, edit the
ideboot2.hpa file and reassemble using HPASM, ASM21 etc. 8 zero bytes
were manually added to the beginning of the ABS file using a hex editor.
It's possible to make a version that self-patches using a slot number
in the switch register but it's easier to simply hard-code it.


HP-IPL/OS IDE 1.53A
===================

This build is in the hposide.abs file, dated 8/30/08.

? WORDS
DO +DO INDEx +LOOx >STEx IFNZ IFZ IF<0 ENDIx ELSE UNTIx WHILx CASE = < > <=
>= <> DEFAxxx ENDCxxx EXECxxx WBOOx AND OR XOR ADD SUB INC DEC NOT 2CPL DUP
DROP OVER ROT SWAP GET PUT PNUM CRLF DECIxxx OCTAx BINAxx RADIx SP>S SB>S
XP>S XB>S YP>S YB>S ZP>S ZB>S END EOD DEFIxx DMPS S>SR SR>S PCHR PWRD CHRIx
S>X X>S S>Y Y>S S>Z Z>S MUL ASL ASR ROL ROR DIV RUN X>>Y X>>Z Y>>X Z>>X
$PRIxx $SWAx $CPY $DUP $DROx $LEN $ADR $XTExx $PUT $GET $CRExxx $STR $HEAx
$APPxxx $TAIx $IN $CAT $VAL <>COx >PTP <PTR MSPAxxx MSBOxx MSBIx MSWOxx
MSWIx MS$Oxx MS$Ix MSCRxx >MS <MS MS_Sxxx MS_Rxxxxxx CONSxxx #0 #1 @TL @TB1
@TB2 @ANVxx @ENSxx @CLH @LITxxxx @STRxxx @RTSxx @DIC @USR @BLK @END @DIPxx
RND TOKEx SDIC !IRQ -IRQ +AUTx -AUTx INBLxxx OUTBxxxx GETIx SETIx GETOx
SETOx $DEFxxx HEADxxx WORDx ADDCxxx ADDHxxxxx ADDHxxxxxx FIXLxxxx ADDMxxxx
VARIxxxx CONSxxxx ALLOxxxx ZEROxxxxx BPUT BGET $EQUxx $SLIxx $TRIx ABSOxx
PTZExx MARKxxx SETCxx GLOBxx DUMP PDEF EXPLxxx FORGxx ERASx FETCx STASx
HIDExxxx RENAxx DELExx UNDExxxx WHERxxx LOAD OE OE? SYSAxx CREAxx PRESxx
!BACx MSBAxx <BACx >BACx BACIxxx TTYCxx +TBG -TBG >TBG TBGZxxx >WDT +WDT
-WDT !100xx T>>S TIMExxx PTIMx !WDA CBUS ?BUS >BUS <BUS *BUS +REN -REN +ATN
-ATN !HPIx CLRBxx LISTxx TALK $>BUx $<BUx .BUS !DMS -DMS SDMA UDMA UJUMx
SJUMx SPAGx C>ACxxx A>CCxxx USPAxx DMSTxxxx UPTR MSUSxx ABSLxxx GOUSxx
GOSYxxxx ALTSxxx ?DMS VERSxxx CONFxx DADD D2CPx EMUL EDIV DSWAx $DVAx $DSTx
>IDE <IDE W-1K R-1K SBLA LDFB DRV CHDRx DBOOx DGEN WKBUx XCV 16Pax ChkSxx
MKVOx Findxxxxx DELVxx RENVxx CHVOx LSVOx VolIxxx DirIxxx GetVxx GetFxxx
PutFxxx $VOL ZAM AM2F F2AM XSAVx XLOAx XSHOx XDIR XREN XDEL ?DRV !IDE FIX
FLT FP+ FP- FP* FP/ DFLT DFIX PWR1x $>FP FP>$ FSGN FSQR TTYPx TERMxxxx ESC
POS CLS COLOx -COLxx MKWOxx ENDWxxx <FILx >FILx UCOMx FSS CWA LAA RAA FPA
FSA FCA FNA DNA VNA NDEA DBLA DBHA FSLA FSHA DupCxxxx SCDRx RCDRx ChkBxx
ChkDxx DIRExxxxx REOPxx OPEN SEEK DirUxxxxx CLOSx CNF DEL BCOPx RELExxx
?SFS -SFS DASL DASR DLSL DLSR DROL DROR !PRN CKPRx MSPRx +PE -PE LBUF BSRCx
MSASxxx RCTL RUN&xxx LIBLxxx LIBExx LFIL LIB SETLxx LFORxxx LDIR LCLOxx R L
D>L A>L L>A MS>L D2F FCOPx FMOVx FDUP MS2F F2MS ABS2x VRECxxxx XRECxxxx
XINIx +TD -TD >TD -GD +GD >GD *GT
EOD=052253 FREE=007524

Configuration...
Slot 10 - time-base generator
Slot 11 - console interface
Slot 12 - papertape reader
Slot 13 - papertape punch
Slot 17 - HPIB interface
Slot 20 - LPT interface
Slot 22 - BACI interface
Slot 23 - IDE disk interface

Package list...
hpiplos1.abs - version 1.5 kernel
extra.ipl
3 ALLOCATE
oct70.ipl
create.ipl
baci.ipl
tbg.ipl
hpib.ipl
dms.ipl
version.ipl
config.ipl
FORGET !SDC (no SR reconfig)
double.ipl
disk.ipl
xdos.ipl
ide.ipl
float.ipl
floatext.ipl
hpscreen.ipl
mkword.ipl
sfs.ipl
bigshift.ipl
print.ipl
sfslib.ipl
sfsutils.ipl
xutils.ipl
hp2645.ipl

Includes the "fast" library system, the build is arranged so that the words
after the library words can be stored in or run from the library, including
some of the library words themselves. If the library system isn't needed
use the technique shown below for saving the HP2645 words to save any words
in the dictionary after the library to alternate memory, FORGET LBUF to
remove the library words then reload the words saved to alt mem. Otherwise
the various extra words appearing after the library can be saved to the
library then removed from the dictionary to save memory.

Alternatively, just save a copy of the complete build for when the utilities
are needed, do this now by entering "SFS/STOCK" XSAVE (change name as needed).
Adapt the following steps to include the kinds of utilities that would be
useful to access from the library. Some of the utilities such as VRECOVER
XRECOVER and XINIT obviously should not be run while SFS is running but
can be loaded as needed or to make utility builds.

As configured 192KW memory is required to use the library. If less memory
is installed then LBUF must be set to the SFS buffer to use...
For 128KW enter: LBUF 1 PUT
For 160KW enter: LBUF 2 PUT
Note: The FCOPY FMOVE and FDUP words require at least 160KW and cannot
be run from the library unless 192KW memory is installed.

To activate and copy the XDOS utilities to the library enter...

$VOL "LIBRARY.FILE" SETLIB     (adjust the library name as needed)
"MS2F" D>L
"F2MS" D>L
"ABS2F" D>L
"VRECOVER" D>L
"XRECOVER" D>L
"XINIT" D>L

To copy the SFS library and file copy utilities to the library enter...

"D>L" D>L
"A>L" D>L
"L>A" D>L
"D2F" D>L
"FCOPY" D>L
"FMOVE" D>L
"FDUP" D>L

The MS>L (MS in to library) utility requires A>L so if needed in the
library a multiword segment must be created, enter...

RENAME MS>L MLMAIN
DEFINE MS>L
"MLMAIN" $DEFADR IFZ DROP ELSE EXECUTE ENDIF END
ZAM 2 MSUSER >MS
EXPLAIN MS>L
EXPLAIN A>L
EXPLAIN MLMAIN
"LIBEND" $PRINT CRLF
CONSOLE
A>L

After everything desired has been copied to the library do LDIR to make
sure it all looks OK then LCLOSE. Nothing is written to disk until LCLOSE
is used, so it might be a good idea to LDIR then LCLOSE LIB while building
the library to save at different stages. If an error occurs while importing
code into the library, do -SFS to abandon the changes then LIB to reopen
the library and try again.

Note... there is no protection against overflowing the library, do frequent
LDIR commands to keep up with the library size, if it gets much over 170000
start getting worried about it. "NAME" LFORGET can be used to trim the
library by deleting NAME and everything after it - juggling is needed using
L or L>A to load words into the dictionary or alt mem, using D>L or A>L to
add back after deleting something from the middle. Be especially careful when
juggling multi-word library segments.

If the HP2645 terminal words need to be kept then enter the following to
temporarily store them in alternate memory...

ZAM 2 MSUSER >MS
EXPLAIN +TD
EXPLAIN -TD
EXPLAIN >TD
EXPLAIN -GD
EXPLAIN +GD
EXPLAIN >GD
EXPLAIN *GT
"CONSOLE" $PRINT CRLF
CONSOLE

If removing just the XDOS utilities (leaving the lib/file copy utilities)
enter: FORGET MS2F (Y to confirm)
This leaves 11756 octal words free (EOD=50021), 3 blocks allocated.

To remove the library/file copy utilities too enter: FORGET D>L
This leaves 13344 octal words free (EOD=46433).
After removing the lib utilities if D>L or other lib utilities needed then
instead of a command like "WORDNAME" D>L instead enter: "WORDNAME" "D>L" R
Note - the R must be at the end of the line when running utilities from
the library, the load does not take place until AFTER the last command so
commands after a R will execute before the run-and-forget takes place.
D>L might be frequently used so if desired FORGET A>L instead.

If the HP2645 words were saved to restore enter: 2 MSUSER <MS

Once the dictionary is set up as desired DGEN or "BuildName" XSAVE to save
the new build. Note! SFS must not be in use when saving a build, or it will
start up with phantom buffers open, preventing the buffers from being
used to open new files. If it happens -SFS then delete/resave the build.

To access words in the library after rebooting, enter LIB to activate,
LDIR for directory, "name" L to load the word if you want to keep in
memory, "name" R to run the word and automatically forget it when it's done.

For example, to import say chess.abs to a disk file, attach the abs to
PTR by whatever means and (with LIB active) enter "CHESS" "ABS2F" R
to copy to a "CHESS" file, which can be run using "CHESS" XLOAD
(that example requires CRLF line ends, set in terminal emulator or
 press control-J to enter moves - be aware that some things in HP-IPL/OS
 don't like line-feeds, I use two "ProComm" profiles to switch back and
 forth as needed, there's also a nolf.ipl file for adding a console
 "manipulator" to remove line feeds from the input stream)

The stock library words permit only single IPL words to be automatically
saved to the library file. The system permits storing compound multi-word
IPL packages and also CREATE code for machine-coded words, however to run
and forget the first word in the IPL package must be the same as the name
in the library file. This can be accomplished by making the first word run
the main program using something like...

OCTAL DEFINE PROGNAME
"MAIN" $DEFADR DUP IFZ DROP ELSE EXECUTE ENDIF
ENDIF
... variables, sub words, etc
DEFINE MAIN
... the main program
END
LIBEND

Other ways to make something compatible with the library's run/forget
function are to define a dummy word then use direct dictionary manipulation
to "wrap" it all into one word, see maze.ipl for an example of this. The
MKWORD and ENDWORD words automate this.

Note - in a library file the last line must be LIBEND with no leading spaces.
Generally IPL's are written using CONSOLE to permit operation from papertape
or a regular file on disk or magtape, for these CONSOLE must be changed to
LIBEND before importing. If manually editing a library file, individual
segments are marked by ;;;FILE:WORDNAME: on a line preceding the package.


HP-IPL/OS IDE/MT153A
====================

This build is in the hposidem.abs file, dated 8/30/08.

? WORDS
DO +DO INDEx +LOOx >STEx IFNZ IFZ IF<0 ENDIx ELSE UNTIx WHILx CASE = < > <=
>= <> DEFAxxx ENDCxxx EXECxxx WBOOx AND OR XOR ADD SUB INC DEC NOT 2CPL DUP
DROP OVER ROT SWAP GET PUT PNUM CRLF DECIxxx OCTAx BINAxx RADIx SP>S SB>S
XP>S XB>S YP>S YB>S ZP>S ZB>S END EOD DEFIxx DMPS S>SR SR>S PCHR PWRD CHRIx
S>X X>S S>Y Y>S S>Z Z>S MUL ASL ASR ROL ROR DIV RUN X>>Y X>>Z Y>>X Z>>X
$PRIxx $SWAx $CPY $DUP $DROx $LEN $ADR $XTExx $PUT $GET $CRExxx $STR $HEAx
$APPxxx $TAIx $IN $CAT $VAL <>COx >PTP <PTR MSPAxxx MSBOxx MSBIx MSWOxx
MSWIx MS$Oxx MS$Ix MSCRxx >MS <MS MS_Sxxx MS_Rxxxxxx CONSxxx #0 #1 @TL @TB1
@TB2 @ANVxx @ENSxx @CLH @LITxxxx @STRxxx @RTSxx @DIC @USR @BLK @END @DIPxx
RND TOKEx SDIC !IRQ -IRQ +AUTx -AUTx INBLxxx OUTBxxxx GETIx SETIx GETOx
SETOx $DEFxxx HEADxxx WORDx ADDCxxx ADDHxxxxx ADDHxxxxxx FIXLxxxx ADDMxxxx
VARIxxxx CONSxxxx ALLOxxxx ZEROxxxxx BPUT BGET $EQUxx $SLIxx $TRIx ABSOxx
PTZExx MARKxxx SETCxx GLOBxx DUMP PDEF EXPLxxx FORGxx ERASx FETCx STASx
HIDExxxx RENAxx DELExx UNDExxxx WHERxxx LOAD OE OE? SYSAxx CREAxx PRESxx
!BACx MSBAxx <BACx >BACx BACIxxx TTYCxx +TBG -TBG >TBG TBGZxxx >WDT +WDT
-WDT !100xx T>>S TIMExxx PTIMx !WDA CBUS ?BUS >BUS <BUS *BUS +REN -REN +ATN
-ATN !HPIx CLRBxx LISTxx TALK $>BUx $<BUx .BUS !DMS -DMS SDMA UDMA UJUMx
SJUMx SPAGx C>ACxxx A>CCxxx USPAxx DMSTxxxx UPTR MSUSxx ABSLxxx GOUSxx
GOSYxxxx ALTSxxx ?DMS VERSxxx CONFxx DADD D2CPx EMUL EDIV DSWAx $DVAx $DSTx
>IDE <IDE W-1K R-1K SBLA LDFB DRV CHDRx DBOOx DGEN WKBUx XCV 16Pax ChkSxx
MKVOx Findxxxxx DELVxx RENVxx CHVOx LSVOx VolIxxx DirIxxx GetVxx GetFxxx
PutFxxx $VOL ZAM AM2F F2AM XSAVx XLOAx XSHOx XDIR XREN XDEL ?DRV !IDE FIX
FLT FP+ FP- FP* FP/ DFLT DFIX PWR1x $>FP FP>$ FSGN FSQR TTYPx TERMxxxx ESC
POS CLS COLOx -COLxx MKWOxx ENDWxxx <FILx >FILx UCOMx FSS CWA LAA RAA FPA
FSA FCA FNA DNA VNA NDEA DBLA DBHA FSLA FSHA DupCxxxx SCDRx RCDRx ChkBxx
ChkDxx DIRExxxxx REOPxx OPEN SEEK DirUxxxxx CLOSx CNF DEL BCOPx RELExxx
?SFS -SFS DASL DASR DLSL DLSR DROL DROR !PRN CKPRx MSPRx +PE -PE LBUF BSRCx
MSASxxx RCTL RUN&xxx LIBLxxx LIBExx LFIL LIB SETLxx LFORxxx LDIR LCLOxx R L
D>L A>L L>A MS>L D2F FCOPx FMOVx FDUP MTINxx MTRExx MTWRxxx GAP GAPMxxx
FS1R BS1R FS1F BS1F RWLP RWOL MTSTxxxx MTBOxx MTWAxx ?MTExxxx EOF RECOxxx
FILEx MTSCxx MTGEx IDREx MTDIx DLTF MTSExx MMTIx MTSAxx MTLOxx MS2Mx MT2Mx
B2MT MT2B MTSHxx D2MT MS2F F2MS ABS2x VRECxxxx XRECxxxx XINIx
EOD=055502 FREE=006275

Requires a HP21xx "MX" machine such as a HP2113E with at least 64KW memory
to use XDOS and/or magtape, and at least 96KW to use SFS. As configured
requires 192KW to use the library system.

Configuration...
Slot 10 - time-base generator
Slot 11 - console interface
Slot 12 - papertape reader
Slot 13 - papertape punch
Slots 14,15 - 13181/7970 magtape interface set
Slot 17 - HPIB interface
Slot 20 - LPT interface
Slot 22 - BACI interface
Slot 23 - IDE disk interface

Package list...
Start with hposide.abs
FORGET MS2F
2 ALLOCATE
magtape.ipl
mtextra.ipl
FORGET HELP
xutils.ipl

FORGET MS2F for 10364 octal free memory (EOD=53413).
Some of the magtape words can go in the library, probably MS2MT MT2MS
B2MT MT2B MTSHOW and D2MT for 11424 octal free (EOD=52353).


HP-IPL/OS MT6I 1.51
===================

This build is in the hposmt6i.abs file, dated 2/13/08.
The following is after booting via PTR (not from disk)...

1)7906 2)IDE 3
HP-IPL/OS MT6I 1.51
? WORDS
DO +DO INDEx +LOOx >STEx IFNZ IFZ IF<0 ENDIx ELSE UNTIx WHILx CASE = < > <=
>= <> DEFAxxx ENDCxxx EXECxxx WBOOx AND OR XOR ADD SUB INC DEC NOT 2CPL DUP
DROP OVER ROT SWAP GET PUT PNUM CRLF DECIxxx OCTAx BINAxx RADIx SP>S SB>S
XP>S XB>S YP>S YB>S ZP>S ZB>S END EOD DEFIxx DMPS S>SR SR>S PCHR PWRD CHRIx
S>X X>S S>Y Y>S S>Z Z>S MUL ASL ASR ROL ROR DIV RUN X>>Y X>>Z Y>>X Z>>X
$PRIxx $SWAx $CPY $DUP $DROx $LEN $ADR $XTExx $PUT $GET $CRExxx $STR $HEAx
$APPxxx $TAIx $IN $CAT $VAL <>COx >PTP <PTR MSPAxxx MSBOxx MSBIx MSWOxx
MSWIx MS$Oxx MS$Ix MSCRxx >MS <MS MS_Sxxx MS_Rxxxxxx CONSxxx #0 #1 @TL @TB1
@TB2 @ANVxx @ENSxx @CLH @LITxxxx @STRxxx @RTSxx @DIC @USR @BLK @END @DIPxx
RND TOKEx SDIC !IRQ -IRQ +AUTx -AUTx INBLxxx OUTBxxxx GETIx SETIx GETOx
SETOx $DEFxxx HEADxxx WORDx ADDCxxx ADDHxxxxx ADDHxxxxxx FIXLxxxx ADDMxxxx
VARIxxxx CONSxxxx ALLOxxxx ZEROxxxxx BPUT BGET $EQUxx $SLIxx $TRIx ABSOxx
PTZExx MARKxxx SETCxx GLOBxx DUMP PDEF EXPLxxx FORGxx ERASx FETCx STASx
HIDExxxx RENAxx DELExx UNDExxxx WHERxxx LOAD OE OE? SYSAxx CREAxx PRESxx
VERSxxx !BACx MSBAxx <BACx >BACx BACIxxx TTYCxx MKWOxx ENDWxxx CFGE !DMS
-DMS SDMA UDMA UJUMx SJUMx SPAGx C>ACxxx A>CCxxx USPAxx DMSTxxxx UPTR
MSUSxx ABSLxxx GOUSxx GOSYxxxx ALTSxxx ?DMS CONFxx !SDC MTINxx MTRExx
MTWRxxx GAP GAPMxxx FS1R BS1R FS1F BS1F RWLP RWOL MTSTxxxx MTBOxx MTWAxx
?MTExxxx EOF RECOxxx FILEx MTSCxx MTGEx IDREx MTDIx DLTF MTSExx MMTIx
MTSAxx MTLOxx MS2Mx MT2Mx B2MT MT2B MTSHxx D2MT DADD D2CPx EMUL EDIV DSWAx
$DVAx $DSTx FIX FLT FP+ FP- FP* FP/ DFLT DFIX PWR1x $>FP FP>$ FSGN FSQR
TTYSxxx TTYGxx TTYPx TERMxxxx ESC POS CLS COLOx -COLxx >IDE <IDE W-1K R-1K
SBLA LDFB DRV CHDRx DBOOx DGEN 7?DRx 7CHPx 7!79xx WKBUx XCV 16Pax ChkSxx
MKVOx Findxxxxx DELVxx RENVxx CHVOx LSVOx VolIxxx DirIxxx GetVxx GetFxxx
PutFxxx $VOL ZAM AM2F F2AM XSAVx XLOAx XSHOx XDIR XREN XDEL MS2F F2MS ABS2x
VRECxxxx XRECxxxx XINIx !NOLx I?DRx I!IDx %DT !DISx CHPL ?DRV _DM _RC
CONSxxx DMENx !DMI HLT ALTRxx RUNAxx PTHExxxx AAOUx ALTAxx ALTDxxx CLRHxxx
ALTHxxx ALTExx CONGxx ALTGxx CONAxx _FLG _XFR _LNZ _CNT _MCZ FCAM ?MSOxx
_PAD _CBD _TRA AM2Axx APUT AGET F2ABx MT2F
EOD=054143 FREE=005634

Note.. if no 7906 or IDE disk is present press any key besides 1 or 2
to avoid running the disk menu (and hanging). If booted using an IDE or
7906 bootrom, or the ideboot2.abs boot program, it automatically chooses
the appropriate driver and runs the disk menu.

Note.. this is my build for my old non-transparent I/O interface, thus
the <IDE word has been patched to always return 0 (no error). To return
it to stock status-checking enter: "<IDE" $DEFADR INC 114241 PUT

Configuration...
Slot 11 - console interface
Slot 12 - papertape reader
Slot 13 - papertape punch
Slots 14,15 - 13181/7970 magtape interface set
Slot 16 - 13037/7906 interface
Slot 17 - HPIB interface
Slot 22 - BACI interface
Slot 23 - IDE disk interface

Supports selecting TTY and/or BACI slots at startup. Put TTY slot in SR
bits 0-5, BACI slot in bits 6-11, set bit 12 for BACI console or set bit 15
to disable autostart words (bit 12 must be clear), and run from location 70.

Requires a MX machine with at least 64KW of memory.

Package list and setup details...
Start with hposmt.abs (v1.4)
FORGET HELP
double.ipl
float.ipl
floatext.ipl
ttyscan.ipl (COLO NOT FOUND intended, don't need the demo)
hpscreen.ipl
TERMINAL to default to ANSI
disk.ipl
7906.ipl
RENAME ?DRV 7?DRV
RENAME CHPL 7CHPL
RENAME !7906 7!7906
xdos.ipl
xutils.ipl
nolf.ipl
ide.ipl
RENAME ?DRV I?DRV
RENAME !IDE I!IDE
VARIABLE %DT
DEFINE !DISK
 77700 GET 17727 SUB IFZ 7!7906 2 ELSE
  77700 GET 177770 AND 63730 SUB IFZ I!IDE #1 ELSE
   77600 GET 177770 AND 63630 SUB IFZ I!IDE #1 ELSE
    "1)7906 2)IDE " $PRINT CHRIN CASE
     = 61 7!7906 2
     = 62 I!IDE #1
     DEFAULT #0
    ENDCASE
   ENDIF
  ENDIF
 ENDIF
 %DT SWAP PUT END
DEFINE CHPL
 %DT GET CASE = 2 7CHPL DEFAULT DROP ENDCASE END
DEFINE ?DRV
 %DT GET CASE = 1 I?DRV = 2 7?DRV ENDCASE END
dmenu.ipl
FORGET !DM
DEFINE !DMI
 %DT GET IFNZ #0 S>SR DMENU ENDIF END
altutil.ipl
conalt.ipl
fcam.ipl
mt2f.ipl
"<IDE" $DEFADR INC 2400 PUT

This is an XDOS-only build, mainly for the purpose of loading other
binaries using DMENU (such as SFS builds or BASIC or BCS games etc)
but also contains utilities for both simulation and real-hardware use.

To be listed by DMENU binary filenames must begin with "@ ", text filenames
must begin with "# " (listed using XSHOW), and supports run-and-forget IPL
packages that begin with "$ " - NOTE! to work right these files must be
named "$ WORD" where WORD is the name of the first defined word in the
package, and also the word that runs whatever it is. The MAZE game in
maze.ipl is compatible. Other ways to do it is chain forward...
DEFINE an appropriately named word that does:
"ProgName" $DEFADR DUP IFZ DROP ELSE EXECUTE ENDIF END
where "ProgName" is the word that really runs the app, usually the last
word in the package. The package must end with CONSOLE. Note that this
build has two CONSOLE words, the 2nd one is part of dmenu.ipl to implement
the run-and-forget function, it chains to the stock CONSOLE word then checks
variables to see if run from DMENU, if so runs then removes the word.

When running binaries, HP-IPL/OS is copied to alt memory. Run from
location 77000 to swap alt and main memory to exit back to HP-IPL/OS.
The ABS2F import utility prompts to add this exit if it detects paper-tape
BASIC (stock from the configurator, without a run at loc 2), so that entering
BYE reruns HP-IPL/OS. If BASIC is detected in alt memory when DMENU is run
it lists an option to save BASIC plus the program to a disk file in a way
that preserves the program when reloaded, or optionally auto-runs the
program. This save automatically adds the "@ " to whatever name is given
so that it shows up on the menu, and prompts to delete if the file exists.

This build contains several extra utilities so it's a bit heavy on memory.
FORGET HLT to remove the altmem utilities, text-encoded sysgens and utilities
for punching arbitrary ABS files, leaving the disk menu with 12372 octal free.
FORGET _DM to remove the disk menu too for 14003 octal free.

Some of the utilities include... (some of these stock extra/dms/xdos)

ALTSAVE - puts swapper at 77000 and copies HP-IPL/OS to alt mem. Do this
  before putting something in alt mem to swap/run or use ALTRUN/ALTHALT.
ZAM - clears alt mem (often ALTSAVE ZAM used to get swapper and clear)
HLT - halts, add to (some) commands (like LOAD) to permit swapping cables
ABSLOAD - loads ABS file from MS in (PTR) into alt mem
[address] [value] APUT - puts a value in alt mem
[address] AGET PNUM - prints a value from alt mem
[from] [to] ALTDUMP - prints a range of values from alt mem
ALTRUN - runs binary in alt mem, prompts for run addr if not defined
ALTABS - options for saving alt mem to MS out (PTP) as ABS file
RUNABS - loads and runs ABS from MS in (PTR), prompts to halt for cable-swap
CLRHALT - does and ALTSAVE ZAM and halts with (mostly) clear main mem
ALTHALT - swaps alt to main and halts, if run jump at 2, continue to run
CONGEN - dumps HP-IPL/OS system to console as encoded text
ALTGEN - prompts for range(s) and dumps alt mem to console as encoded text
CONALT - loads encoded text binary from console into alt mem
FCAM - Find Code in Alt Mem - prints detected non-zero code in alt mem
AM2ABS - uses info from FCAM to output ABS to MS out (PTP), prompts to halt
"FILE" F2ABS - copies file to alt mem then runs AM2ABS
?MSOUT - prints current MS out assignment
#mtfile "FILE" MT2F - copies magtape (text) file to a disk file

The encoded text utilities CONGEN ALTGEN and CONALT can be handy for use
on real hardware for saving code without requiring a PTP emu, and loading
code without requiring attaching it to PTR, which for me presently involves
halting to swap cables, and for other PTR emulator designs requires burning
a memory chip, instead can be fed via the console... for timely loads best
to be switched to a BACI console to do this - CONFIG, enter past slot prompts
and select BACI, 2 RUN to restart. Or with this build: 10000 S>SR 70 RUN


Saving and restoring IDE disk images
====================================

A USB drive tray may be used to copy the IDE disk contents to and from
a file on a Linux-compatible host PC using the "dd" command. This is
particularly handy for setting up a system under simulation (using the
"combo" build with both IDE and 7906 drivers), which can be booted on
real hardware. The SimH HP2100 7906 disk format is compatible with IDE
provided only a single platter is used. This technique is also very useful
for simply backing up and restoring disk images without simulation.

WARNING! Misapplication of these commands can result in data loss!
Not responsible for any damage that may result, know what you are doing!!!
The detachable USB drive is (now) /dev/sdc in my system, make sure this is the
case (and not a host PC drive), otherwise change the commands accordingly.
To avoid mistakes (like typing the wrong /dev/device) best to put in scripts.

To copy a disk image file to the drive, I (now) use the following command...
sudo dd if=imagefilename.ext of=/dev/sdc conv=swab
Substitute the input filename and make sure /dev/sdc is the USB drive.
The USB drive used to be /dev/sda, but since upgrading from Ubuntu 6.06
(which used hda, hdb etc for hard drives) to Ubuntu 8.04, all hard drives
internal and external use the sd* prefix. To find out what device is the
USB drive adapter, in a terminal with the external drive Not connected
run the command ls /dev then connect the drive and do ls /dev again and
note which new sd* device was added.

The following script checks to make sure the device does not exist
when run, prompts to attach the drive and confirms, then writes.
This assumes the USB ide drive is /dev/sdc and the disk image filename
is 7906.dsk, edit as needed...

-------- cut - file copy7906toIDE.sh ---------------
#!/bin/bash
# warning... make darn sure idedrive = /dev/[ext USB drive]
# don't attached until prompted to, if exists won't run
# this is free software, no warranty whatsoever.
idedrive=/dev/sdc
if [ -e $idedrive ]; then
 echo "$idedrive exists, not running"
else
 echo "Attach IDE drive to $idedrive"
 echo "---- Enter Y to confirm ----"
 read answer
 if [ $answer == "Y" ]; then
  if [ -e $idedrive ]; then
   sudo dd conv=swab if=7906.dsk of=$idedrive
  else
   echo "$idedrive not found"
  fi
 fi
fi
echo "---- Press Enter to end ----"
read answer
----------------------------------------------------

This is a Linux-specific solution, it should be possible to do a
similar thing under Windows but a critical function is the swap bytes
conversion. DD for Windows does not appear to have conv=swab, the dd
included with CygWin has the swab option but can only output to a file
so it can be used to make an image with the bytes swapped which can
then be copied as-is to the drive using another drive imaging program.

To copy a drive to a disk image file, I (now) use something like this...
dd if=/dev/sdc of=imagefilename.ext bs=10000000 count=1 conv=swab
Substitute the output filename, set bs to how many bytes to copy which
depends on the disk contents, how many volumes it contains, etc. 10000000
is the approximate size of a single 7906 platter, which is actually 10100736
bytes but if formatted according to the HP-IPL/OS docs (3 volumes 26 octal
files in the last volume, or 150 decimal total files) works out to 9914368.
10000000 is close enough. I'm using 7906 geometry because it makes it easy
to set up disks under simulation or access disks copied from the IDE disk
using the 7906 sim, but the IDE disk can be formatted to any capacity up
to 64 volumes of 64 files each, for each virtual drive, up to the entire
capacity of the drive.

The bs= spec could be set to 2048 then count= set to the (decimal) number
of 1KW blocks to save which can be derived from doing an XDIR of the last
volume, looking at the block low/high numbers of the last file then converting
to decimal, adding 33 dec to account for the last file's size and convert to a
count. Or just pick a bs= number which you know is big enough to capture all
of the data, it doesn't matter if empty space is also saved other than making
the image file bigger.

The number of 1KW blocks to save can be calculated exactly using the
following formula...

39 + (#volumes-1)*2049 + (#files in last volume)*32

3 volumes with 22 dec files in last volume works out to 4841 1KW blocks
(9914368 bytes) and can be specified as bs=2048 count=4841 in the dd command.

Each virtual drive adds 131174 blocks (268644352 bytes) to the size of the
last drive's files, so this technique is not recommended for saving such
drives due to the huge size of the backup file unless all volumes of the
first drive truly are full, which would be one stuffed HP-IPL/OS system!

. . .