; 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 JxBNK <<uWAVq>gZAOr>hxB" D
"Ok