; OCTAPUS-E for HP-IPL/OS - 16K version ; Defines OE OE? SYSALL 1/1/04 ; modified SYSALL 4/8/06 to add header ; modified 9/29/07 to fix control-S search typo/bug ;---------------------------------------------- "Loading OE and OE?" $PRINT CRLF OCTAL DEFINE OE 34000 RUN END DEFINE OE? 34001 RUN END ;---------------------------------------------- "Loading SYSALL" $PRINT CRLF ; "SYSALL" - generate combined image containing ; HPIPLOS, OCTAPUS and OCTAPUS HELP. OCTAL DEFINE SYSALL 10 ;number of leader zero bytes, poke here to change DO ;write papertape leader... DUP IFNZ DEC #0 MSBOUT ENDIF DUP WHILE DROP "Writing..." $PRINT 2000 EOD ABSOUT ;save 2000 to EOD 2 1777 ABSOUT ;save 2-1777 34000 36377 ABSOUT ;save octapus-E PTZERO ;write trailer END ;----------------------------------------------- "Decoding 16K OCTAPUS-E binary (34000-36352)" $PRINT CRLF DEFINE D ;decoder $LEN 3 DIV DUP S>Z DEC #0 SWAP +DO $HEAD 74 SUB $HEAD 74 SUB 100 MUL ADD $HEAD 74 SUB 10000 MUL ADD OVER INDEX ADD SWAP PUT +LOOP $DROP Z>S ADD END 034000 "?l>>lFWm?@r=HXB@yBvq==QDvW==RD@r=RXBnq=xl=Fl>HXB=yBvq=Eq=lXC" D "tl=lXBqp=Wm=uWAjq>zWANl>BXAol>AXAhl>MX=bxB" D "Nk<=Eq=_XA=L[m=@PlXBdXClXJOn=Ql><<DXATr>WXAEv>XXAJv>FXA>n>EXANp>CXAip>GXACv>IXAKt>" D "HXAwv>{WAFl>YXAPl>xlF<<<{W=[_ESmF<<gx?@L`m>gxJcxC[mFcXB?LfXB?X=?LlX>?X=>L<" D "Er>fXBGYB>yBvq=Eq=dXCEq=eXCdXBqp=Wm=" D "dXJOn=dXBeXACl>dx?En><<MbXBLLko=" D "`n>{o=tl=OnFbXB\X=bXCNK{o=PXBnq=QXBnq=^n>bXB=X=?L<" D "=MDbXBLM<{o=Wm=dXB?X==NDJxBNKgXB@TbXBiX>bXCko=do>{o=Wm=iXBqp=OXBDo>bXB^X=bXCko=^n><<<" D "oXBgXCnXBbxBgxIwo>gx?@L<@L<\p><<=QDLLqpF<<<uWAVq>gZAOr>hxB" D "Ok=OEq=BXAhq>vWA=L" D "lZBeq>[m=tl=<<vqF<<@r=GYB" D "uxBvq=Pl>@r=xWBvxBvq=Pl>=QD\X==RDFXBsxBOt>TxBEt=eXBlxB@t<=<@" D "[X@>LZXBzr=\xBEt=\r>eXB=<@vW@zr=TxBEt=jVB>Ltl=FYB" D "EyBvq=<<<@TlXBrxB" D "kxANs>=@ljXBlXJKX=>LlXJMLNK" D "lXJ`X=?LD\" D "aXBss=zrF<<EtFGYBByBvq=Eq=iXClxB@t<=<@jXC?LCXBDyBvq=tt=kxB@rCjXB" D "FYBCyBvq=tt=Zr><<kx?ut>Eq=kxJkx?" D "=@lu>lXB>X=lxJNktTBjX@" D "tTCiX>>X=>LlXJ?X==tTB>X=?LiX>>X=?L" D "=QDKX?=RDbs>lxJqjlxJjx@cs><<<@t<<\CdX@" D "@Tex@MlGXB{xBvq=qWBOv>tl=HXBTw>Gw=?L@UjvBqwA" D "Xw>@w=bXCaX@aXCbXB<<<=Mfx?ex?bv>@w=aXARv>FXByxBvq=Cl>sWB" D "Ov>fXBdXCqp=Wm=bXBOn=kv><<GXB?yBvq=Cl>fXBrx@Ll<" D "ev>FXBzxBvq=fXBqp=Fl>fXBqp=Wm=fXJqp=Wm=bXBqp=tl=mv>fXKfXIyv>" D "<<<<" D "E<?m>Nm>OIA\x?{<<<{K<=<=zK" D "z{Kq{K{sKW><gh?<<<l?Dl?Gl?Pl?Tl?Vl?Kl?_l?el?gl?pl?ul?{l?" D "@m?Rm?A<^e>lb>vU>=N<>N<=t<>t<=>?>>?=v@>v@lc?Ar<" D "=r@>r@=r@>r@ORU==R=>R=BRr<]r<^r<]m<^m>S>=y@>y@UT?r@=@B=pE=Kv@" D "Kr<_s@os@PB>Bv@Brv??v@?r<<\?<<@<\@<L<>l<<>D<@D<^D<`D=MD" D "=UD=ND=ODNEANy@Ly@KI@AM@A=>NEANy@Ha@" D "Am@=Y@\l@LIA?A@\P@AIANA@DI@B=>Ny@\x?=EACu@{P@DI@?Q@Oi@IQAOA@" D "AIA>q@Um@\x>@A@NM@OQ@yHAKm@@A@@A@NM@\<>?=>Ny@\P@\<>=MAA=AQM@" D "Lq@N=>JA@AY@\x?Ae>Py@fd>\d>?y@=MAQ=AiHA\P@fd>\d>AEAKm@=I@AMA" D "{<>Au@\XANy@Ca@Ja@{<>KI@Ou@=MAPu@{HA@A@NM@OQ@AIA\HABy@L=>Ey@" D "Pu@NQ@\HA\x?P]>NQ@jp@>=>\`AeNy@yL@eMBfMC\m=[mF<\?" D "<<\mFna?gm?<<OA@\p@PA@==>@M@\DA\<>@=>\`>QM@Lq@?=>Ny@IP@" D "Ne<\`>QEA\t@PA@==>@M@\DA\<>E=>\`>QM@Lq@P=>LA@IP@Pe<\`>Km@@A@" D "P=>LA@\P@\<>\<>L=>\`>Q=A?u@\\@=MAA=AFpNQ@Ba@\`A=MAA=A" D "\<>\<>eD@P=>LA@\P@KE@JQAOM@FpHQ@?y@PA@\P@KI@AM@\<>eHA" D "O=>=Q@?EAI\@De?IAP=>\x@OA@AIA>q@Am@J=>TQ@\LAEm@Au@Fp<" D "PI@HEA?q>B=>Ny@?=>NQAAEAPu@H=>Ja@\P@KI@Pu@JQ@OMAFp<{{C<<<" D DROP "D" $DEFADR 4 SUB #0 PUT ;delete decoder ;--------------------------------------------------------------- "Done." $PRINT CONSOLE