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.
The stock IDE-only builds do not include the no-status patch, the
"combo" 6i builds do have the patch to work with my hardware.

Status as of 9/20/08 - still works fine, haven't done a thing to it
but contemplating adding a Vinculum VDRIVE2 module to the unused
pins of port F and modifying the code to permit copying the disk
to and from a USB thumb/disk drive (and maybe other stuff).

Status as of 3/14/09 - the VDRIVE modification is in place and
required almost no modification to the interface hardware. In the
process a couple of typos were found in the base IDE interface code
which have NOT been fixed in the legacy hpdiskc2.asm source here,
lines 1077 and 1278 contain "clr[tab]acc" which don't clear the
accumulator as expected, these should be changed to "clr a" instead.
Who'd have thought a/acc weren't interchangeable... but as far as I
can tell this did not affect proper operation, ran that way for years.
Information and code for the VDRIVE mod is in the usb directory.

Status as of 6/5/10 - the IDE interface acted a bit cranky today..
a couple of times when using the hpos6i.abs menu build to run IPL and
binary apps, after playing around for awhile and returning to the menu
the disk was unresponsive, power-cycling the interface and restarting
HP-IPL/OS from loc 2 brought it back to life. I noticed the IDE ribbon
was right next to the digital lines coming from the level-shifters, after
repositioning the cables and otherwise wiggling things it worked fine,
couldn't replicate the problem again. Hmmm... might be crosstalk going on
between my scary point-to-point wiring. Or more likely a dirty contact
on one of the ribbon cables.. I don't trust those solderless things.

Status as of 6/9/10 - tested new kernel and disk menu build, used
menu options to import a couple of ABS/BASIC binaries, used FED/FEDUTIL's
MALOAD and SVFILE to import the corrected DM2.IPL file and convert it
to array-editor format, played a few games. Everything worked fine,
no repeat of the previous intermittent disk problems, which I presume
was a bad connection (probably should replace the IDE cable).


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.65
==================

This build is in the hposide.abs file, dated 1/1/12.

? 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 @LLP @ENSxx @CLH @LITxxxx @STRxxx @RTSxx @DIC @USR @BLK @END
@DIPxx RND TOKEx SDIC !IRQ -IRQ +AUTx -AUTx ADDCxxx INBLxxx OUTBxxxx GETIx
SETIx GETOx SETOx $DEFxxx HEADxxx WORDx 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 !LPT CKLPx MSLPx +PE
-PE >LPT $LPT NLPT 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
EOD=052137 FREE=007640

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
extra.ipl (select 32KW)
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
TERMINAL to set to ANSI mode
mkword.ipl
sfs.ipl
bigshift.ipl
print.ipl
sfslib.ipl
sfsutils.ipl
xutils.ipl

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.

If the library system and extra SFS/XDOS utilities are not needed for
making other builds that don't need them, enter FORGET LBUF and confirm,
this leaves 14667 octal words free (3 blocks allocated).

There are many ways to use the library, and different library files
can be made for different applications. The following describes how
to move extra SFS/XDOS utilities and some of the library utilities
into the library to free up dictionary space, but this is just one
possible use of the library system.

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 removing just the XDOS utilities (leaving the lib/file copy utilities)
enter: FORGET MS2F (Y to confirm)
This leaves 11727 octal words free (3 blocks allocated).

To remove the library/file copy utilities too enter: FORGET D>L
This leaves 13315 octal words free (3 blocks allocated).
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.

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 IDEMT 1.65
====================

This build is in the hposidem.abs file, dated 1/1/12.

? 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 @LLP @ENSxx @CLH @LITxxxx @STRxxx @RTSxx @DIC @USR @BLK @END
@DIPxx RND TOKEx SDIC !IRQ -IRQ +AUTx -AUTx ADDCxxx INBLxxx OUTBxxxx GETIx
SETIx GETOx SETOx $DEFxxx HEADxxx WORDx 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 !LPT CKLPx MSLPx +PE
-PE >LPT $LPT NLPT 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=055531 FREE=006246

Requires a HP21xx "MX" machine such as a HP2113 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 10335 octal free memory (2 blocks allocated).
Some of the magtape words can go in the library, probably MS2MT MT2MS
B2MT MT2B MTSHOW and D2MT for 11375 octal free.


HP-IPL/OS MT6I 1.65
===================

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

1)7906 2)IDE 3
HP-IPL/OS MT6I 1.65
? 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 @LLP @ENSxx @CLH @LITxxxx @STRxxx @RTSxx @DIC @USR @BLK @END
@DIPxx RND TOKEx SDIC !IRQ -IRQ +AUTx -AUTx ADDCxxx INBLxxx OUTBxxxx GETIx
SETIx GETOx SETOx $DEFxxx HEADxxx WORDx 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=054124 FREE=005653

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 a 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 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
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 HP paper-tape
BASIC (stock from the configurator, without a run at loc 2), so that entering
BYE reruns HP-IPL/OS. If HP 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 12411 octal free.
FORGET _DM to remove the disk menu too for 14022 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


HP-IPL/OS 6/I 1.65
==================

This build is in the hpos6i.abs file, dated 1/1/12.
The following is after booting via PTR (not from disk)...

1)7906 2)IDE 3
HP-IPL/OS 6/I 1.65
? 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 @LLP @ENSxx @CLH @LITxxxx @STRxxx @RTSxx @DIC @USR @BLK @END
@DIPxx RND TOKEx SDIC !IRQ -IRQ +AUTx -AUTx ADDCxxx INBLxxx OUTBxxxx GETIx
SETIx GETOx SETOx $DEFxxx HEADxxx WORDx 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 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 I?DRx I!IDx %DT
!DISx CHPL ?DRV 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 HLT
ALTRxx RUNAxx PTHExxxx AAOUx ALTAxx ALTDxxx CLRHxxx ALTHxxx _FLG _XFR _LNZ
_CNT _MCZ FCAM ?MSOxx _PAD _CBD _TRA AM2Axx APUT AGET F2ABx SHAM UNSHxx
MSUPxxxx _DM _RC CONSxxx T$FIxx DMENx !DMI
EOD=053557 FREE=006220

Configuration...
Slot 11 - console interface
Slot 12 - papertape reader
Slot 13 - papertape punch
Slot 16 - 13037/7906 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.

IDE driver patched to disable status.

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

Package list and setup details...
start with hpiplos1.abs
extra.ipl (select 32KW)
3 ALLOCATE
RENAME +IRQ !IRQ
oct70.ipl
create.ipl
version.ipl
baci.ipl
mkword.ipl
cfge.ipl
dms.ipl
config.ipl
double.ipl
float.ipl
floatext.ipl
ttyscan.ipl (ignore not found error)
hpscreen.ipl
TERMINAL to default to ANSI
disk.ipl
7906.ipl
RENAME ?DRV 7?DRV
RENAME CHPL 7CHPL
RENAME !7906 7!7906
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
xdos.ipl
xutils.ipl
nolf.ipl
altutil.ipl
fcam.ipl
sham.ipl
msupatch.ipl
dm2.ipl
FORGET !DM
DEFINE !DMI
 %DT GET IFNZ #0 S>SR DMENU ENDIF END
"<IDE" $DEFADR INC 2400 PUT

This is a "combo" 7906/IDE build with a disk menu for use as the boot system
for a 7906 disk simulation. This lets me run close or exactly the same disk
image under simulation as I run with real hardware, using the save/restore
function of the new IDE/USB firmware as described below.

Here's what the menu looks like... (files from the 7906 sim package)

========= HP-IPL/OS 6/I 1.65 ======================
A) Binary   BASIC2              B) Binary   CHESS         
C) Binary   REVRSI              D) Run IPL  MAZE          
E) Run IPL  FED                 F) Text     SUMMARY       
G) Binary   BEASTIOV            H) Binary   GOLF          
I) Binary   GOMOKU              J) Binary   OREGON        
K) Binary   LANDER              L) Binary   OTHOV         
M) Binary   SEA BATTLE          N) Binary   TREK          
O) Binary   TTY TREK            P) Binary   WUMPUS        
Q) Binary   SFS UTILITY         R) Text     CHESS-FILES   
S) Text     REVRSI-FILES        T) Text     DISK NOTES    
1) Exit to prompt  2) Clear alt and halt   3) Load ABS from PTR
4) Delete file     5) Rename bin/txt file  6) Import/Export file
Press a key: 

This enhanced version of DMENU uses the same naming scheme as the
original single-column version, files with names beginning with @ are
binaries and run using XLOAD, filenames beginning with # are text files
and displayed using XSHOW, filenames beginning with $ are "run and forget"
IPL apps subject to certain rules - the filename after $ must equal the
word name that runs the app, and must be the first word defined. The
simplest way to do this is use $DEFADR in the first word to execute
the actual app word, which is typically the last word in a IPL app
(see the notes for the original DMENU and SFS library, which requires
a similar technique to implement run and forget).

Option 2 presents an almost empty 31KW workspace in which to run other
binaries, use SIO/BCS to compile stuff, whatever. Halt and execute from
location 77000 to return to HP-IPL/OS and the menu (assuming the swapper
wasn't overwritten or alt memory disturbed). If accidentally selected
then just run to return to the menu.

Option 3 loads a binary from PTR into alternate memory. After selecting, it
prompts to Clear or Overlay, if clear is selected alt mem is cleared and the
swapper placed in memory, if overlay is selected the binary is added to
whatever else is in alt mem. If neither is selected it cancels the operation,
otherwise prompts to halt to attach, press Y to swap cables, type the attach
command under simulation etc then run to continue (c under sim). ABSLOAD
is used to load the binary, if the binary contains a run vector in locs 2/3
and the swapper is present (added by selecting Clear) then it offers to run
the binary. Note - if loading the stock HP BASIC or anything else that
doesn't have a run vector, after returning to the menu press 1 for a prompt
then enter ALTRUN to prompt for the actual run address and add the vector,
ALTRUN also detects and patches HP BASIC so that BYE returns to HP-IPL/OS.
Or... use the import ABS option from option 6 to import the binary to a
disk file first, which performs similar patches but doesn't run the binary.

Options 4 and 5 perform basic file management for files on the menu,
no option is given to rename an IPL app since doing so would break it.
Drop to a prompt and use XDOS commands to manage files not on the menu.

Option 6 displays an import/export menu...

1) Import ABS from PTR
2) Export ABS to PTP
3) Import text from PTR
4) Export text to PTP
5) List disk directory
Press 1-5 or any other key to exit:

These options import and export disk files, the files are NOT automatically
named per DMENU specs (@ # $) so for files on the menu the prefix needs to
be added when specifying the filename. Option 5 lists the true filenames.
The text file import depends on the infrastructure delivering one or more
zero bytes after the file ends, which is usually the case. With some hardware
setups it may be necessary to add a 0 byte to the end of the file. The ABS
import option calls ABS2F to import a binary and patch it so it'll work with
HP-IPL/OS (include optionally patching HP BASIC's BYE command). The text
export option copies the file to PTP, stopping when all bytes are transferred.
The ABS export option uses the FCAM package's words to scan alternate memory
and guess what areas need to be exported (usually it includes enough area
around the binary code to ensure proper operation when memory isn't cleared),
on real hardware the scan process takes awhile. Press Y to confirm the ranges
if it looks about right (otherwise manual use of AAOUT etc is needed).
All of the import/export options prompt to halt for attaching files.

If a binary is detected in alt mem more options are displayed...

7) Save binary     8) Display binary data  9) Punch ABS to PTP

Press 7 to save the binary to a disk file, press 8 to run the SHAM
utility to show alternate memory, press 9 to punch the binary to an
ABS file attached to PTP (prompts to halt to attach). If punching a
HP BASIC program, use option 7 first to patch it (if you don't want
to actually save to disk press enter at the filename prompt).

If a binary being saved is a HP BASIC program then it prompts to patch...

1)autorun 2)preserve or no change:

Press 1 to patch the binary so the basic program automatically runs.
Press 2 to patch the binary to re-enter and preserve the BASIC program.
Press any other key to make no changes but be careful, if not previously
patched any entered BASIC code will be erased when the binary runs.

If a MSU BASIC program is detected then it prompts to run the MSUPATCH
utility to change the startup message or other options. The supplied
msubasic.abs binary is pre-patched to always preserve the BASIC program,
further patching is not necessary but I usually change the message to
something like "MSU BASIC WITH TREK, RUN TO START" etc to label what
it is. There is no autorun patch option (that I've discovered).

After prompting for patch options, or if the binary is not BASIC,
it prompts for a filename to save to disk. Press just enter to not save
otherwise enter a name (14 chars or less). If the file exists it prompts
to delete the existing file first. "@ " is automatically added to the name
to display the file on the menu, if that's not what's intended then press 1
afterwards to drop to a prompt and enter "@ name" "name" XREN to rename
the file so that it does not show up on the menu.

This version of DMENU is a rather complex chunk of IPL that attempts
to make it easy to operate a HP mini-computer without having to know a
bunch of commands, although like just about everything about this machine
(and HP-IPL/OS) some knowledge of what it does is needed to set up the
system to begin with. Hopefully I explained it well enough to use.
The hpos6i.abs build is rather fat due to all the included utilities
but there's still enough memory to run fairly large IPL apps and memory
usage in the build doesn't matter when running binaries, so I find it
quite useful. An older version of this build (at least until it gets
updated) is used for the 7906 disk simulation so those unfamiliar can
just press a key to run a game, and it's my preferred boot build on
my IDE disk system so I can boot up and go.

To remove the menu, drop to the prompt (or run from PTR and don't
select a disk driver) then FORGET _DM and confirm for 12056 octal words
free with 3 blocks allocated. The build contains most of the alt memory
hacking tools, if not needed FORGET HLT for 17414 octal words free,
or 21414 octal free after 2 ALLOCATE.


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

The easiest and safest way to save and restore IDE disk data is to use
the VDRIVE mod and a USB thumbdrive, the new firmware permits saving from
1 to 9 SFS volumes which should be plenty for most apps. The VDRIVE method
is somewhat slow (about 12 minutes per SFS volume with a 22mhz IDE interface
processor) but the operation can be conducted entirely within the interface
without having to run the HP minicomputer and is quite convenient. With the
VDRIVE mod the existing IDE-compatible 7906 disk image for simulation can
be copied to a new IDE disk in a matter of minutes.

Another backup/restore method is to use dd or other disk imaging software
and a compatible USB IDE drive tray, however be EXTREMELY CAREFUL if doing
that, lest HP-IPL/OS accidently end up on the PC's boot drive. If you don't
know exactly what you're doing (or don't have backups) don't attempt it.
Another issue with this method is finding an IDE disk that works with
both the IDE controller and a modern USB interface might be difficult.

An existing SimH-compatible disk image can be (slowly) copied to the
IDE disk via a "pass through" PTR emulator using the DIRESTORE word from
the ipl_notes.txt file. If a way to write PTP to a PC file is available
then it wouldn't take a lot to write a similar IPL program to (slowly)
save a disk image. If all else fails, individual disk files can be
saved and restored through the console using the bkfile.ipl package.

The number of 1KW blocks needed to save a certain number of SFS volumes
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 a dd command.
If saving or restoring a SimH-compatible disk image then the dd conv=swab
option must be used to swap the bytes in each 16 bit word.

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!
Offsets could be used to save/restore the virtual drives independently.

. . .