File ICE.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

?>2CBPPVH[DAPS $LHNEN4UDBHEH
 H  H  H  H  L 4SH  H  SDPHCELXET$ NH UXFDE<RH  H   T(HL0)(0EH)XH   0 DIPSD,D DUHEYX HORDOPPI8OHALD0EETTH
H  H  (0EH)=H  H  H   TSTL DOPNDEPX $LHSTDCTODN<TH  H   TLHFTDAHRHOW	>2IO=C<>(*MK;2A
:K9
82I*RO7<(O6> *T2B/5
4
3; 
2; 
1; 
0O=C/>(*2AW.2IO-9F?H*+K,2A
+2IO*9D?*22AW)2I	(HO	> +FK6[[K7[\K&[]O6> +BO\
[S\S[S]+K6[[K%[\K$[]2IO62A
%2IS[O[	2AS\
\S]+P2I/"/?RQRC?<FN?;>A?AB>%.=?>!AIIAIBH HFZ>>E"Z61"Y66D>$T<R.C<BZJC>K=>(/<JC;K:>(/<J.CZK9
8J9FJK7Z1J9DJK6ZAN1R1<(+B2A^ANA2I	5A6A/4K3Z(2ANA2I	5B/2W1J12ARA^A2IJ22ARA^A2IRW8*T2AO0
/K.
0K.2I
-O,	5A:A/4KM2A
+2IO,	5C>A/<KV2A
*2IKW2A
)2IKW<(/(9 Z/?T\6I^:>>DTM FRZFT46AUIBE?>EQ]?;V?UL?V?TO>C=> W<2AO;2I<(*MO<<P+O
<; O<> *SK:
9O<2B	8K7	6K5	4K3	4O2C1>(K0K/2A
.2I	:IK-	6K,2Q
+2IO2C=>(*22B/*2C/)K(	6J<> /	2C/&.<;2I	%E*O$>(;A2A
2I.<K"	6*6K!	6*68!
<K 	4K 	4O<2B	8; O<> /
K:/?VABGZ"[D*>E?>PZLOLQABLZ;0X^P>BJXTBMXAZTLKZ BFARD>$V
>K=	</;/?T\XA[Y[
X.A<BZMNM<(.AK><(*NK="TRM*CK<"TK;"T*K.T<B0&0!*V:.T/?BJBMC
<!ZCFCICLCEB BB1B CNCOCTB CFCOCUCNCDBMBJB CECXCTCRCAB CBCLCOCCCKCSCCCACNB	CTB COCPCECNB COCUCTCPCUCTB CFCICLCEBMBJCICCCEB-B6CEBMBJCCCACNB	CTB CLCOCACDB CHCACNCDCLCECRBMBJB CBCLCOCCCKCSB CSCHCOCRCTB B!B!BMBJI C E   EDITOR: V-6E

PARENS ENCLOSE OPTIONAL ELEMENTS IN DESCRIPTION BELOW
IF AN ELEMENT IS ABSENT, CURRENT LINE IS USED AS DEFAULT

POSITION ELEMENTS:
       123     LINE 123 IN CURRENT PAGE
       11.62   LINE 62 OF PAGE 11 IN ORIGINAL FILE
       .39     ORIGINAL LINE 39 IN CURRENT ORIGINAL PAGE
       .       REPRESENTS CURRENT LINE IN CURRENT PAGE
       .+3     CURRENT LINE + 3 (+ AND - ALLOWED)
       A       FIRST LINE THROUGH LAST LINE IN PAGE BUFFER
       Z       LAST LINE IN BUFFER
       C       CONTEXT (SET BY =, DEFAULTED TO 3) FOR LIST
       F       FIRST SECTION: 1ST THROUGH CURRENT
       L       LAST SECTION: CURRENT THROUGH LAST
       /STRING/ TEXT STRING IN FILE
       ^^      MATCHES UP ARROW CHARACTER
       ^A      MATCHES ANY ALPHANUMERIC CHAR
       ^B      MATCHES ANY ALPHABETIC CHAR
       ^C      MATCHES END OF LINE CODE (SEARCH ONLY)
       ^D      MATCHES ANY DECIMAL DIGIT
       ^O      MATCHES ANY OCTAL DIGIT
       ^S      MATCHES ANY SEPARATOR (NON-ALPHANUMERIC)
       ^V      MATCHES ANY NUMBER OF CHARS TILL NEXT MATCHES
       ^X      MATCHES ANY CHAR EXCEPT NEXT CHAR
       ^?      MATCHES ANY CHAR IN THIS POSITION
       ^/      MATCHES THE SLASH CHAR

IF A COMMA SEPARATES SEARCH STRINGS, SEARCH IS FROM LINE 1
IF A SEMICOLON SEPARATES, SEARCH IS FROM CURRENT LINE
IF A COLON SEPARATES, SEARCH WILL NOT LEAVE CURRENT BUFFER
// INDICATES USE OF PREVIOUS SEARCH STRING IN THAT POSITION
(BOTH STRINGS ARE REMEMBERED)

ERROR MESSAGES:
       UC              UNDEFINED COMMAND
       L,P,S,F     LINE,PAGE,STRING,FILE SYNTAX ERROR
       L?,P?,S?,F?     LINE,PAGE,STRING,FILE NOT FOUND
       EF              END OF FILE FOUND
       CL              CLOSE OF OUTPUT FILE FAILED
       RM              NO MORE ROOM IN PAGE BUFFER
       ,;              BAD SEPARATOR TO ARGUMENTS

RUN-TIME OPTIONS:
       /A      ALLOW CONTROL/LOWER CASE CHARS TO BE ENTERED
       /B      INHIBIT AUTOMATIC FILE BACKUP ON CLOSE
       /C      DON	T INSERT PAGE8 CORRECTION FLAGS
       /D      DON	T READ IN FIRST PAGE OF FILE
       /F      IGNORE FORM FEEDS ON INPUT
       /H      ONLY FILL BUFFER HALF FULL ON READS
       /P      USE SLOW, BUT OPTIMAL PACKING ON E COMMAND
       /R      RETAIN PRIOR PAGE8 CORRECTION FLAGS
       /V      PUT HELP FILE ON LPT
       /Z      SKIP OVER & IGNORE END OF FILE
/ICE(EL) REPRESENTS ANY POSITIONING ELEMENT

       ()A             APPEND AFTER LINE
       (EL),(EL)B      BLOCK SAVE
       (EL)EL)C        CHANGE LINES
       (EL),(EL)D      DELETE LINES
       E               END FILE
       (EL)F           SELECT FILE: (EL)=1-5
       (EL)G           GET & LIST TAGGED LINE
       (EL)I           INSERT BEFORE LINE
       (XX),(YY)J      REPLACE ALL 	XX	S WITH 	YY	S       (EL)K           RESTORE BLOCK BEFORE LINE
       (EL),(EL)L      LIST LINES ON TTY
       (EL),(EL)M      LIST MODIFIED LINES ONLY ON TTY
       N               WRITE, THEN READ NEXT PAGE OF FILE
       (EL),(EL)P      PUNCH LINES TO OUTPUT FILE
       Q               QUIT FILE WITH CURRENT PAGE
       (EL)R           READ PAGE, (EL)=MAX LINES
       (EL)S           SEARCH SPECIFIED LINE
               -LF     REPLAY CURRENT LINE
               -CR     CLOSE LINE OFF
               -^L     FIND NEXT OCCURRENCE OF SEARCH CHAR
               -^G     GET NEW SEARCH CHAR
               -ALT    COPY NEXT CHAR OVER
               -RUBOUT DELETE CHAR TO LEFT
               -^P     ABORT SEARCH OF LINE
       (EL),(EL)V      LIST LINES ON LPT
       (EL)Y           YANK PAGES UNTIL LINE FOUND
       W               WHERE AM I ?
               C=      CURRENT LINE NUMBER
               L=      LAST LINE NUMBER
               S=      SPACE LEFT IN BUFFER
       (EL),(EL)X      LIST, QUERY FOR OPTIONAL DELETE
       (EL)=           SET CONTEXT LIST COUNT
       LEFT ARROW      LIST PREVIOUS LINE (NO CR)
       RIGHT ARROW     LIST NEXT LINE (NO CR)
IB??C?2K,RPA2K,UPCIIB?8 PAPAA??E>>>FS(S(PBHB BH<?$C<>	D<=$"<<%]<;(8<:&X<9$0<7$<6WM<5&?<4 ><3 ><2$[<0$*</(3<.&Q<-&G<* ?<)(S<( ><	 >=C&;=3LQ= $BLL?S?SEFUCRMF?FCLPP?,;CCB1CLBMBJ

I/O ERROR! CR=TRY AGAIN, ANYTHING ELSE=SKIP AHEAD  DELETE?
OUTPUT DEVICE FULL!  (.TM FILE CLOSED)
<<XI<1XJ<-XK<(XL=AXM<*XN<"W%=QW	<>XH<=W)<?XG2A:2J	>GE2AK=
<0Z2IN(2A<(/;	:R(0Y*^/;[,.*<B.,GFC9.*LNXVLNXWHV",HW",HWC89J8JXPHVC8HP8J8J",Q*/<H/7I*//I<BK6YK5XNH>9H=>X/42A$9BH?+[+^"2I/I	3"+J/"<BKU8J8J8J9IC2XPHPKW[WHPH=X=/"/?OJLH??>,L<C?ZQ0C"\;?H2AH?XLLL>(* P?L?2J	>A6A	=JKX9K<ZKP?L?
;X=P?IB>(L?X>K:X3K:X4X*/9P*2I; \	8/7.	<BC6.*H,.	XY"*XZ"*XPHP8F8FC5HY\OHP8J8J8HC5HZ\O"*QA*,XYE*-/E<BK4YAK6XO2AK\8J8J8J9IC3YDH6<(+[K29H5ID>X/1$:"HD/0$2I/E/$<BIDK^[^IDH5X5/$/?JJU??O><C?(3Y]GJPAGW6AYZ?J"L	>/=.D<BXKLK<(.D	<*F.L<B:K;"D	:K9>(RL.L2J	8HH5Z 
7O62J	5DFO	4K3"D/2.&<B;XTL[K19K0>P*7HT9FHT9DL[P[K/*(HT> R&.&2A.=<BXP2LK.2AZ;HP[QK-
,K+SK*SK)SKQK(		*;/S<B
&
%KQ9O&<P+]W%+W8!O&8![QO%/?LHLG"DB0?6>\0XL<(2A=PJ=F>ESYXBFNZN?=3.$D2ZQIFI$L<(/>K=	<K;Z/>2K.K<B2A	:*I	9*^;2AX(XBK8X)K7	6X2YEYKYJ	5; H"X"L"C4<(*Q	3XBK2\"X	;A
1HCX^HCX
2ILC2A
0K/X[X%X&L[K.>(+D	-+
L[K.> +WHT
0O0
,P[L[K+9K*>X+O	)+[	-	(HT
1O1
	P%/&HT
1O1	%X^H^X
/&K$/?HP^NEPBY!R3J=FPAJ&=RCGOMONBM48C?,SZQ.$]+J=<H"DB0KRN	>*E	=*E/<L[P[K;<(+K:<(*WK9<(*VK8>(*T	7QE*W; X	L[K;<(+K6>(*		5*:L[K4> *6HT
3P[L[K29K1>X*0	0*8	5	/HT
.P&+HT	-X
+K,	>+	=+*8HBK+<(/*K)>(/(H%<(+\?H+S		X^H^X
+\	&HX^H^X
HBK%>(/$H&<(/?H/"/?PEPI3+<6STX&Q?4&X<:H P^PBY!R3J=FPA=RJ&?
YUA?1?!=3M[P4V)P	>X
*I	=H 	<X
H
9 H^>P*PH^X
HB8!
;K:XHPHLHHB> *ULHXP,P.^<B8!XUK9XH2I**LH=H*,K8>(PU*%HH8A2A.^R42AP[.4<BL[	7K6<(+RK5<(+YK4<(+TK3<(+PK2<(/1K0<(*3K/<(*3K.>(*3	-
*0HC<H
X
K,X^*1HCX^
X
*1/
<B2I; HXPLP?H/+; HPXP/?RFIBY!?1?!6RIW?	K?:<:48=3IABFB6Y
TAXRLP=H*FK>> /=;AHP/<HBK;> 	:H,XU2I; HCXILI=H*ZK>>(PU*S8AHIX
; H,XU; HCXPLP=H*.K>>(*,; HP*"PU*);AHPX^/9.3<BL[K><(+MK8<(+MK7<(+MK6<(+EK5>(+F	4; X$P[	3	4HTP$8!X$HC	2H$	1.3/T<BOTST[Y	0+\/TIE>(+$HBK/>(/.	-	,X	YK+X2A/?]+Y
LQ<6TAP^	
J&Y!?>P?1?!P1Y\<4Q^Q	=3T.A<BNARAXQHQXPH	>(*\2IIK> *VLC?H*VLCPCK>> *NIK> IKHC2A*]K=XR2IHRXSLQ>(/<LR?H/;LQ=H*78!LR>(*4HPXQHS8AXR*
PRPQ*!C:J;Z:<B.<VGT4VUKU%U^U,UXUELR9D?H*4K>*+LRK99K8>X*.LRK79K6>X*.*4LRK99K8>X*4LRK79K6>X*4*.LRK59K4>X*4*.LRK99K8>X*4*./?H=HJ=FZ<%OS(VVIB=3VLRPQ8!LQ> />/=PQLR?H/<LRK;<(/=K:8!LQ>(/>PR*HYK*YQK; HSXSLS=H*"K;> *X2A;AHSW9/8R).)<BXK7XAL[K6> *	H[XILIK6>(+N*;2I\P
AP[L[K6<(/5K4<(+UK3>(+ML[PA*8; XA*;	2HBK1>(/5P[P	/0P[K/XHPHLH<(	2XPL[	.HP> +XLHXP,PK-+HK,+HH/?B/C^48E&XR<6Y^AQ?QXP=Q? TTABM=3S(T.T4XK>?^; IJYJ8A8A8A8A8A8A8A8AK=/<2I\2AHK>?H*Z; X&* ; X%HAK;IJYJP[/:.<BNC9R8!X;NC98!X<RO88!O7> W2IK6XHLH=H+EC9H;<(+H?VPHLHK5> +
62A	4*3LHC3H<<(+P? +; HH2A.P-P-P-P-P-P-P-P-P-P-P-P-P-P-:2AH-8!K2XPLPX+K1/?P-Y!/?]+=3IAPAOM	?V( WH 7 Z\PX(K>"QH-K=XPX-LP"QK<"QK;"Q/:/9.Q<BZ[J[8J8J8J"]J["].Q.]<BC8<(.]K7=HK6K5K4<(*+K3	2.]K1	2K0*).0<BH^XC; H
XI2ILI=H*=K/> *7HIXI; 2AH^2IXJLI=H+I\J+D\JHJX2A.0/O<B;H"K.HXAHA9K->X	,HXH8 HCXUHAX2IL\A; HX; HAXA/?Y[B<<=3BJBM"DC
<!B A? ?>LQ
 *B8* \PU/>HXIK=XJ2ALJC<K;2I\I2ALJ2I\I2ALJ2IK:<(*YK9\I*PK9\I2A/8.^<BX/; H^XI2IL^?H+
*5LI=H+!K:<(*1K9$/*(K9$/K7$/LI=H+!C;>(+AH.8!=H+J$/+JHBK6> +ULIK:> +E*5:HBK6> +UHI	52I	4K3	2HIXCH
9 HIPI>P*(K1$/2A.^:+]/$<B;K0"^	//$/+<B;/?Z0H	BL"DBJ=	
<3BJ[NBM=3H7?CD[^	>K=X^HX
HBK<>(*L	;"9/:K=X*J; HCXH2ILH=H	9K8> *SLH=H	9; HH8AX^2AH^X
/7; HCXP2ILP?H	9; HPXPLP=H*6K8> *+HP*^:*4.9<BX]2I; HXIH9!H0>P/6H*> /5H3\IH4\I	4<(+KK3<(/2K1<(/0K/<(+KK.<(+KK-<(/,K/<(/+K*\IHI9K)>P+K; /?BHBA B S?=?6L %N 1=&F* 9 M >=3Y!]*]$<	IB"
 \	>H!>(/=; HIXPLPC<K;\P/=; \2AK:XC/9K8\IHI8AXH48AC7K6X4H3C<X3	5:P]/4*MP3K3X4O2C1> /=HIK0>(//*MIB> /=P*HIK0> *M; \	.	-/,K+K*0"XPHCX$HP	)O(		K&>(+RHBK%>(+TH
XC/$H$+PK	"	!	 HX		K
/?<	"D.$JDENLQ<(<=48CG\^".?V(3]$Y]^;6=A>PA^?F*PO?BM^8IBH7?
KY["> />/=.D<BC<K;<(.DK:<(.DK9G*Q"X.DXUK8"XPU*R.D.X<B0&0!*Z"
.X.
<B;0Y.
0\K7< K6> .
0ZK5	4/3..<BC<K2<(..K9G*8"?..XUK8"?PU*9...?<B66"
61+A.?SG/G<BK1<(+[K0<(+
K/<(+!K.<(+^K-<(K,K+P18+EX1K*+EK)K(+EH1XPX1HPC	/?GBJBBMB[I?1?=AC=3=?LQZQ
L=1B BAK=4C?%]!O$K>/=	<H^XC;AX2	;2ILC=H*YK:PC> *I	9H9K8>P*EK7	6/5:*PO48!
4	3W4*^/5	2H^XC;AX2	;	9*EO1K:>(	0	//5H^XCO12IK:> +LC=H	0K:>(*?PC*7PCLC?H	0PCPCLCK.<(*7K-<(*7K,<(*7K+<(*7K*>(*7;$HCXCHCX^H^X
/)	22ILC?H/(LCC	K&/?H7?&B >?^?<WJ=V]$Y!CGZ0]+ONLQ"DBGC9[O=3,SY\F?8&\C/>H3C=K<X3/>;AX2H^XC	;H^X
	:	9/>; O8> O88!	7/>O8<(	69K5>X	6O89DO8K4X?H?XHLH>(	3K2
1; X>;AX=; 2I
02AK0XX*K/X3K/X4*VO88!X,/>;AX(K.X)/-;AX(K,	+	:/>/K<B2QK*<(+SK)\(P(2I/K/V<B2QL(2AP(XXHX/V/
<BXPK(XH;AX2IHH/?IABJ=6\^	K$	VPAIBF,GFYZE;?:YY^9ON[OZ00GH7?LQ(8 HP>(*LLH=H*PK>> *DP/=H8AXA*D2AHA/<K;	:HC	9	8K7	:K6	:2IO52AC4	8K7	:K3	:; H	8K7	:K2	:H8!K1	8K7	:/0K/XBK.	-/,2IO+2AC*> /)H*> *3
(2IK		-XCH>9H=K&>P+X; XCH>H=8!9F8F8F9D<(/,<HK%K$
;XO
"
!/?I]I\GUH^NBGD*FD>$* +^BZCQLQ=?S=L=	?IBP=
J=	
ZQC=	^	&=3*	>	=2APC/<* 
;
:	9*H.K<BXR2IO8O7K6XPHR\PO5XPO4C42AZ]$P"HL8	3.K2AH5Z,
22J	1HO02J	/DFO	32IO.2A9D?*6H <HK-
,O02J	/BFO+FO02J	/DFO	3H 
,O02J	/BFO+QK-"KK+
,O02J	/BFO	3H "K/*/^<BX(K)X^HX
K(		/?\^H	IB>TMFRBK>BFN?ZNYXG)??OLD]+ ;H$)FIEGI,2IH(	>K=XCHBK<> *L	;	>*IK:	>PC*L2A/9.S<B;2AK8X"K7
6K7
5
8YI$)K4<(+YK3<(+LK2<(+ K1<(+[K0<(+TK/>(/.H"K-?+L	,*^HX\"H2> +CO8K+<(/*K3>(/)P"HXXPH(> *^HP	(*^K	\"H(> .SK&	%.SK$	%K&	%*T9P+\9H"	X"*^K&	%/?23^UZQ
BM"D^O^$=D.K;OLQIA*>KC?>=5CFCEPCG+]BF*<;:H	.K>XIHI8 H">(/=LI	<*B.K<B2IO;2A?H*!HXK:>(*!HXK99K8>X*!HXK79K6>P*JRK.K.$<B:0Y*&0\C5K4<(/3K2<(K18A<(K0K/XXHXK.<(+YK->(+ 2IO;2A?H+VII> +VH2>(+O2AO,2AK+< K*>(+VHXK)<(+VK(		XX0ZHX.$K&XMLM<(+"	%+[;AYI0Z*&/?"X4=48C?<AE=
CG??=2C=>^>]>E0?=A?A< Z<E=7>"D,^CF0H2> />:2A/=.G<B;HCXA2ILA=H	<2APA
;2ILA2APA
:2ILA2A
9K9X	88!X82ILA2AXXHX	7HX\PAHXK6>(/5PHXH8> * 	8K4<(/3K2<(/>K1<(/0K/<(/.K-<(* K,<(*]K+<(/*K)<(/(K	>(+Z	&*2HX\HX	7PHK%?/**2K$	K9X
9K"	/?
ZQ^U;O.K?52OC2H?:EO2[A$2C>Q?;2A=52J=3"D.$CGCFCEY!>LQ2/>9P<H9H"3X/>K=\HX"K<	;/:K<	;K9XIHI8 H>(/>LI	8*S2ILA2APAXXHXK7>(*H/6.&<BK5XMLM<(*.	4*); H1X1.&.3<BYF8HYG K3>(+H"&IG>(+F K3< K2> *;;AIF.3XPIFXRHRK1<(+WK9XRLRK3>(+WPP+KHPC0K/YH"&QH+[*</ <BIFK1<(+)K9YFMF/ 
.+F	-/?"
CG?8G<9?)=7"XBA1P=3"DCF0FZQ
BM024; H^XIK>XJIK8!"^K=XI"^; H^IKIJXIHJK<YK"^K;\JHJX"	:	9;AX	/8.^<BXUHJK7?.^2ILI2A<(.^K6<(*3K;\JHU> PU* .^HU> *,.^.8<BK5= K4K3.8B[CE/?C ? < =3;OOS[OZ0BM<<H
CD6$(

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search