File CAMP.SV (save files (Executable program)

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

?>2CBPDPTDLV[,HL?PZL:HADJ<$LXB(.(,L40Z	D>8H4LN0J[,ELH4
H	D>8H4HN0.\\=H8L>XG(A8AAC0<2HGH28"HQP BHJM,%E	HOH+D. *D]HXD^ LD$L1<[DXQTCHUPBDCXR ]D]MH?PGDPX)^TRBLL\<GLE JL0BCPAQ>WL)H^BL+80LETBBDL?<$Z>6%SYSTEMNO(	>QP!7HBAF*%(ABA I>?=?CXCFQS0<2G 2".Q $BJBM%KE	O+".*X]XR^X$11[?QVCEUB$CRV]H]MP?G$P)V^REBC\G?EJ8B<CADQ>W)C^
 +0>EB5BA??DDJPYPPHHRS]<H*EK?%?%>I=XS: %<"$XP%;HP%:,5TM:1T=?UB-;TY*2T1);EA7;F)LG3,;D>(-9-8"-9F8F8FXR"-HR.$A*2A7.-:"<.-LSA6< I5PS.5: HSXS.<%4J+F+HR/ASA/AK>9K=<PSJK</JK;9K:<PSRK9/RCZCJC9F8DJC8FJC
)K)K<> : ZC*\BBXLH I8> /*%<++;XX I7X
: 
;W:-?B:?6=PC[?&<?B:"Q? SYNTAX ERRORH > -3M>> -5-3NQ8J8J8J"^NQ"^RQ*R%2RQ.QA7<(*[I1A7I1XTI50\K?<(*1K>>("7HT%?.^I0%?K=%?%/-.0ZI0%?K<%?%2: X".7"QOS/8 CAMP V5A-5"Q? NUMBER TOO BIG-9"Q? CAN	T - DEVICE DOESN	T EXIST-9"Q? I/O ERROR ON SYS:-9LHXQ%!-(BBCOCC?4==%-BA
KSPACE DEV: N FILES%-BACKSPACE DEV: N RECORDS%-EOF DEV:*/SET DEV: [NO] ATTRIB [N]%-SKIP DEV: N FILES%-SKIP DEV: N RECORDS%-SKIP DEV: EOD%-REWIND DEV:%-UNLOAD DEV:%-VERSION%-HELP-5:%-? CAN	T FOR THIS DEVICE-9K?
>J/Z!-5?O?)2?4?^*B
"%,*E:*A:%+.XUXV<HPV%4K?>(*L%+PU<H.HHV> .H-8XQNYRY<(*	HQ>(*$RY*[NYXQ,QHQ.YH]8D?.)%-? CAN	T - DEVICE IS READ-ONLY-9H]8F?.?%-? CAN	T - DEVICE IS WRITE-ONLY-9XY:AX,%4K>9K=<P+,X[X,HYA*> -)HY9F8DH[XY+Z:%+HY/VCRV]H]MP?G$P)V^REBC\G?EJH=H= X"I=XSX V%:<AR-=1RE==D1
6S+=3SS<CSP<BSP=%SP=+R	>REXPHSK?>(*EHP]HP\SPS*EI0]K>]%2*BHSI*<(+NI(XSI	]LS]V%:<ASE=2R7==D1XPI	]HP*FHSI*<(+LI(XS*5I	]%2*BK=]P \S%2.0Y+W0^A6I5/V[*%/[
H"> /]K*0&0!+&:/]\SI(XI%2I&%?LI<(-%%?+13	%.%2!4%$ZB$CU4A%<%$%HW%:?0\N?)YE-"%<%$%!QHW%:?0\?)X(-"%<%$%!HW%:?0]E?)YG?2ZH]?-":A] K?%
-9%<%$%!HW%:?0]B?2ZB?/ZU?-
+-"%<%$%!QHZ?H-8HW%:?0\?)YT-":AXYXZ%4<(/QK>> -8: %<LS<(/QK=>(+4%^XY: %<XZ%4<(/QK<<(+2K;> -8:AXZ/Q: +2+4/%V)V5?4<:<;=FAXY:AX,%4%]*WK?X[X,HYA*> -)HY9FHY9DH[<X-)XY*D:%+H,< XYHY.%\Z1%\Z2J1J2Z1J2>(*-J19D9XZ1Z22J$
J-[J3< +IJ1[K>[B[A2J$
A-[KAX\KBXX+LXXJ2X\H\K=X^2IL^X]H]8J8HA7XW: O<X%H%H\X&L&2AX&H&8F8F8FC;< K:X	.^K9[2S1+,S2+,/)?82PI>WNK;-HW?8MO
?/:A=PO?K>>(-9%-? CAN	T - AT BOT OR EOT-9%-% CAN	T - AT EOF-9%-% CAN	T - AT BOF-9
=HZ>(+J/<Z0$X8??<H.-XPHP?/;%-? CAN	T - I/O ERROR-9"--9K:"--9HY<(8A8!XK9"-P+O-9:A
=HZ> +!HY8 XK8"-P+\-9HY<(8A8!XK7"-P+&-9^$^5^5^	\Z2Z"[YZ[IJT]F B CCA][ $]Z??]K"J-9"JHX8A8J8JA*76-9HXK?> HX8J8JA*K>76.JK?> HXXPHP8J8H:HZ+HPAZ8!I79F8DK=Z(J+K<<B:-9H+> -8%Y<(-8X/H/AX> -)%WK;X.\-V8!XR\-V8!XTHT8!HR<(*??+LHTXRK;X.\.,HR> :AH/9F8DXTL.C:HT\.+NP.H.K
>(/\L.A*I;> +]L.8J8HA7K89H<(+]8DK7S\/\=HB<B?+P?0B8G:X0DFA9[ZHZ<(*Q?H*ZHY<(:A8![MK?H-9K>H-9HY<(+"8![M	=K<H-9	=$XC=>H*<-9:A[ZHZ>(*0HY<(:A8![MK;H-9HY8 Z6$X C??=>H*<K?+*XPHPC:>(+X/9K8H-9K7H-9[K$X8??<H/HXPHP?+[HPC:> -UHP-THZ>(/6KZ>(-S-R$XC??=>H-TK;[,$X B??=>H-
-9LBA,I6 6ADXDH BC!AEBC?9DXP%-? CAN	T - I/O ERRORK>X!K=Z[HP8DXP<X.[R[P!*R-9*	*/*4*>+H+M+\+&/</;/:%-(REWINDING)*W%-(BOT)*W%-(SELECT ERROR)*W%-(PARITY ERROR)*W%-(EOF)*W%-(RECORD LENGTH INCORRECT)*W%-(TIMING ERROR)*W%-(EOT)*W9HXK9>PHXC8K77&7-9+B*APFB X K ^\?

?%-(WRITE LOCK-OUT)/?%-(READ COMPARE ERROR)/?%-(ILLEGAL FUNCTION)/?%-% OPERATION NOT YET IMPLEMENTED-9%-? CAN	T - AT EOD-9$X B??<H/A=HM> U/A[DKDC>> /MKD-T$XB??=>H-T/U%KH)? 
7P&+^KK
7-?K	Z2I>9!M)[	<X.2M)%+M)K6+EPSL\ ? PAO!KH"OH^W%<X)%$%4%:=F"M= "M=S"?-8: %<%4<(-8K?>(*?%+[][^K>XILI= +(HW>(*HIK=*YLI[]LI[^[0LIX$X+HSX*%\K<>(!H*XSL$<(+IP$%Q+,L$X$	;$$	:-9%,-PX)H)<(-PAOX)%<*VK0>(+1%-? UNKNOWN ATTRIBUTE FOR DEVICE  -9P+: %<HSX*/!:S0K9*)P$H*X
*3S0K9X$*30 IU;?U		%B$11C%?=SH	<(* ZH	?B:-NH&C>JGXXH)> .HXX(L(9K=>X*]L(<(*1X).: H(*R%-? CAN	T - DEVICE IS RESIDENT-9:%-? CAN	T - OBSOLETE HANDLER-9JH[H	?":-N/B:%-? CAN	T - UNKNOWN VERSION OF THIS HANDLER-9H)> /!HWHX9PPZ%U:XZ/!/*& S^S^SSW/>GIS?&>NV;H7IKJJ\
%A?>GTTY	F??PTR/E?>PTP/J?=CDR&)?<LPT&0?0MTA&;A(N5B(*(F,H(I,)I4)P4*(241(0+(NZ,(S,Q([,U(F0S( ,](%,7)X.)]0D)"0	)60)0.&()29(2+W(8+K)A*<?N=1B?PS[W?L=WCWCICDCTCHCLCCCLCV"8ECCCOCDCECACLCTMODECECCCHCOCPCACGCECTCACBCLCOCCATIONCFCICLCESCRCECACDONLYCVCECRSIONCPCACRI
YCDCECNSITYCFCICLCLCFCLCACGCCCTCRCLCEVENCODDCDCECLCACYCGCACG2S"/?>XI=DH	?"GHY8 
>.O=?H*XH)%:??$1?>*W-M.G%-? CAN	T AFFECT ANNALEX LPT-9H&?H.(%-? CAN	T - NOT KL8E HANDLER-9H+> -8%,+"XYHYC<> +"HYC;\(.<2IL^9F9DH+8H8X8H\^2A/K2IL^9D9DH+8H8X\^2A/W:%-? BAD VERSION LETTER-9IL	:IK	:/0^9G)B$].S]
 :A:1J	?H+9F8FK>
=.	?H+9F8F8D8!
<.H%W-J.Q%WH+> K;K:
9.U	8H)%:??$1?>$1?=$1?<,--MO7K6> -IH+>(K5K4
7.]%W%4<(+CK3>(%4K2> -8+HH+>(K1KI	0%HBAG-IXP;$HPXRHPK/XTH+>(+!HPK.X[H[C-K,\RK+\T.7HPK*X[L[\RK)\T.7>H?6> J??<C6,(<2=Q:D CX<N*(;P< A(:B:AD*G%W%HBAK?-IK?XPH+9DK>HPXRLR\P.%-? CAN	T - MUST REASSEMBLE KL8E SOURCE-9%W-J.&Z?N?R?<(+8!XP%,*9HP9D>(*,.*%+HP8!?H+.*%;:
%<R*.*HXD^ LD$L1<[DXQTCHUPBDCXR ]D]MH?PGDPX)^TRBLL\<GLE JL0BCPAQ>WL)H^BL+80LETBBDB??[-J.[%HBBB	-IK?XPH+>(K>K=\P.D[%HBBC?-IK<XPLP9I5>P-IH+>(IGK;\P.S[-J.	J[HYAF> -EHYI.>(-E%HBB>-I8AXPLPA6K:XRHP8AXTHY8!\TLT\R.+H+> -8.%^<(/9XYH,> -8HYAD> -)/J	8H)%:??$1?>$1?=1
?<1--M/[%4K7> +5%</.%+/.=C*(2;?>HE:D ?>%-? ILLEGAL WIDTH-9Z
K?Z^J
"WJ
8F8DZ
R^*N.J8F8FAFIC%?.WN"R"K>XIN"R"8!X!N"8!XPR"LIHP>(*6P!*/."R"HI."H+> -8%YZ H,> -8%4XPHP<(+JK=> -8H&?HK<K<9J >X-)J K;Z HP>(+%YXYH,> .9%4> -8HY^ .9N "JK:%?M>Z!%>I=XSJ!]>+X7%> +/;$RO**+8RC>RC2KB/:>=C9??<H+> -8"THSX*K?%Q<H*QH*XSK>%Q-8K=K<
;.H)%:??$1?>$1?=$1?<4)?;4)?:4)-M.T"TH+> -8-J.*"TH+
:.1%-? UNKNOWN CARD CODE-9H+> -8	9%^K8<(+RK7> *6V66N/BV66[/BOV[	SVOV[(SVO	<(/VK;[)O(
)S	S(+]"B"B"B"B"B"B"?=?&1.:A:BD),)	CDCECFCLCMCNCTCUCVCWC\C]C^ZC G]B=LE?^
ADJI[<F!;N\HK>?] >G<[LHBCEZDJ;^FK!
NI=\ATECOSV[HK?Z4:A2J$
B6(.,J4Z<	>A8-NJ<[EKH
=	>!8-N.,*M"I6$"JBZ"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"8B>G6(

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