File BCOMP.SV (save files (Executable program)

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

5A<B??%)8 H^H;9 H:H^,BJ29LH!>((Y2ATB-G2;,[<KM,<KDSKO?.A2IHXXYHY<(H"XXI*,5E&K7?3>G?8HB88B.B F>!I>C\6AB$BJBM>E?AC^B<BB46HTB3<C B)=WFKB(?1= HB?YIJKU?UJ=FZK(FBDD?:?F$?<=AGIUF1LAKLB0 B>">&G8???0/G <%E DHGD,=?=DI?/ ,PI?XNLN<(*KI>> *D: X!I?XMH!>(H&I=XO: X
X[X\%<I;>(+P%:H!>(H	H(HO?+?H!>(*12IH\OHU\OHV\OHW\OHX<H%9\O2A: X
H <(+VI8<(-7I6<(*WI5<(+MI4> -3X^ ]2;XE1HR]1*3P!-3*NHUX[P
-3HV*V0!+V0"2KH*]0H+]/H,. J0[6XRZA B<P+:XP;&X JA9DXSHR8D=H-3XRHSP +,JAJAHP+$I.X JA2I/ %-TOO MANY FILESHO
H(? *UHU>(**H%X\H$X[H[Z%H\Z&H!>(HU>(H)8AZ$I,Z	2J%0LA-+J&X.HXUXVXWXXI*XZ: X]XY%)X H I(< I*<(-3I	>(+Y%&.,:H A%X HYI$?*6HY9HHZXQH <X+U8F8F8FLQ\QPY*6HU> P]-3PZI*5[+HU>(+6(-[+J&2J%0B+;K,9I"<P:9F8FA52IH\OK+/ HY>(H">(-!PY(2% %- NOT FOUNDX I1XP%&-3<XI
90XQ<XPP8H<PPQ*UXQ2IHQ8 DPHQ\P2A.KH I^9I]<X*/I\9PI
<PR$.$H[%[H\%[%- DOES NOT EXIST%Z2II=XNIYXP\NPP+D2A-XLMIW<(+JIV<(+VI;<(+YIU/ILM%T+JLMIS<(+JIR%T+YH!U>(-3I	HOXZ;VX^K7%Q9F8FA5LZ\Z2AH IP<(%)X -OM9:%-ILLEGAL SYNTAXK?$6XTI?XM0Y*GI00\XU0ZINXNLN< HU>(,N*O=+*;=3*5<A+Y=-*G=/*G=%+Q>*G=1*G<!*8=6+6==*;-HU\MHMIM?H*G
-3J\M-L-IK*.IJ$6HUII$6JLN> *B2I: ]H0!+G-GIFXU-IE$6/JIDXU;X2I]12A-*6HMIC>(+)BHK]$6K&$6HMXPK]$6: HM*FPT+IB*?PT+2IB$6XTHU$6/-J\MIAXNLN<(+&$6+:B*X,2I:AM0X*M/X+MX"];2A2J%0KH"J%> *
J&X(J	X	J(X&^)J*^+X"J,^-OU8D?H(Q.$F?VA<?	EB%+CD=:D\HB> -N%2A8!HC> -N	<%5=SK$=TJ)=CKA.Y%M-RHY>(-%%2DAU<(8A9 OLUOLSLA%> +M,???XPHP8J8J8J
HP
/UA%<(/
H>A%H>7/
HUUHVUHWUHX>(/(H=
HXU/(+;0!+90&:H<[8/7H5XLX!2I]T2CK?XZ%9BHL
(C	>	>[!$*0LKK=>(+C	>K!>(YH 91K"> *=HQALISXQHQ8!K>X*=2IK"\LK\LHQ\LP!2ALK<(/<K;<(*OIY<(+II=>(/:%8BAD ARGSK!> *=S!Y*P$*=H AUK9=IYK8H 9FJE2I
7HQ
6*0H C5["HQAL[/YX	X XQ	4+-K3>(+(	>H	> S$/$2APGK
NBNAH?8F=TFF=SG)E		?/>HQ2I\5/=%9AAD-(CH!<(/<8!2I]KH5[I:AMK<(+.X K;KI[JH XQKIXKKJXLLK9!LL>(*3<X*8KJK;[JPQ*]KIK;[IP *X+.LK9!LL>X*("?"?"?;&KI[I*+SISJOIX!OJ
IH!
J.?LK<(/K<HLKK:9IF<P+
X"P	!!!HQH"XQ+PSK/KHQ9DXQH 8DX /!: HKXK/)MK8A<(/9X H5XLK8XK,4NFD&=HCD-D0D=E$LK8!LL> * PLLL8!9LK>(*U>X*2A%8BAD ARGS: HLXLLK\LHLK?> *XUK/>PLPLPKPKP *2A%9AF4(C/=K?X+*&2ILK2A\LP *0/<POLOXNHNAT> +FH,>(+FK^XKH*X+X,HN	8K^[^P**7K^9F8FH(2J$RC\/;2KL32A\2H($RD\A/;/:
9BAJ4(C/9M<8D?H/	2J$RI/	H]H
>(S/H\8J8J//O5LLYM9LNF4G.0ABZAJAKD?+W$UXS9S O9S9=+WH\>(H]O9> *HK 9F8F8DJA8F8DZAZ7BK?=H+W[ K BG9F8FX!O>B3H!
>K ATJA2I
=0!"3-69?R7"*-6=SA:<(+K<=H+W.8H!+U$U? HYJ7>(	;+W8J"8X!H!9FH!8DXQH\"8HQ< /B:I6X[%8BAD DATE5?29;>2?.>0.2?	5+25+4>+9,;00=,11*;;=G ]EE/?P>6??>:D>H/9DW?W?W?*<(+E9D8F8FK>
=K<RO;8J8HC:K9K;$O88DX!K7X"H!8F8DX!H!C:K9KP"*]H/9D<(*79HK6X!K5KK4KL!RK3KH/K2?H: 
1XG;XX/2AO0C/K.
02C.A;	-K,
+K**O0&0!+M:/KX"L"8J8J8J]L"]P"+TC)<(/RK5C)K5K/]*9 JM1?JNO 0BPH7??&?
;B)B(B NR?<B0GB!NNG0 MQMONITOR ERROR 0 AT USER ERROR 0 AT NZN N*N8OAOJOTCLOSE ERRORDIRECTORY I/O ERRORDEVICE HANDLER NOT IN COREILLEGAL USR CALLI/O ERROR ON SYS:DIRECTORY OVERFLOWRESERVED<(+^H7%LXS%2E8F?X/Y%2EC)HS/Y!?YV*0&YJT+ ++P+0*1+!/S+A+Q+1X]XW.VCB)5V
?*Z6J6
?2J	>K2J	>I"2O=8 C<> +FO;
::AO9
8O7K6
5K4[DKE
3K2
1W=**OD
0SDOD
/J6
.K-
,/+ODZ5SDODZ4"2SD*^	-AA:+FJ49J8J8JC*<(K)8A9HJ6Z6.2+:SS+FST+FKU<(/(0&0!+N:SJ+J?:CCCHCACICNB CECRCRBMBJ	6%2E
5O5?+,> 
?/?.>G?2?0?1?;0"?4:D?&H:C?=:B?::A? :B?	6A2Z(A2J,F?!LW?-??>G?0??=?HH1? ,),\CWHJI,> P*,*FPL4%FBAL2AP4,4;ZHL>XP<,<>"<>[KKI6B7^?2AB ?<>A?C[?4?=?72A?;2B?:J(DB;B0C8,F2J?)E?&? I
?1D8>GBJBGM>9GJ%?/?.?-?,B/H
BMKAB?HHM>EI/JPH,D4?9D=%?XPXQI>XJ0Y*E%=* K?X\0ZH\%<K+XHLH=H+B8!H\> *PHHK<X\L\X\HP%;XP($%:2-9B BJBMB/CBCGB;CCCWC^CMCACLCDC
CFC?B+B-=H **=HPXTHQXU 4T%8XM*AH\9I7<P+WX\;&[[HQ9DXQHP8DXPS[+JHQH\XQPJ*E:I6%<* */[HQPM%5T:/[[*I4%<[%<PUB"%3TI2%<*=[ 4TXUH
%;XT%?+,[PUEW*A*&BC.ALHXSM1XNM0XOM/XKM.XC:AG?XRO?2A%-H^X
I,2I
>;$E+]+2AHK%5NHO8AXYHNXXHKXL <<H*0HNXTHOXU%*HTXZHUX[%=-9:/=I)0Y: 0\K<< R4.4I4%<I(%<: XM.= *I	HQXOHPXNI&]	I%XQI$X\IXHI"XILH2I\I2AP\+UM!8J>XI 2IM
]
2AM!X]I^%5PPQI]%5PPQHF%5PH]]!-)8PHQ<(8A<X8!HUXU-\==F>;?<B.BL+5%3NKU%<HRI[%<IZ%<HS%8-) *,)HPXXHQXYHP%-I&XLXSXR* HQ8!<(8 XC]	 4NXK%?IY%5N2IHN]1HO]0HK]/HC].2AHG2%XHR]WHS]>HXIV]UH^%;IT]SHY]R%:M!8J>X-Q-.%P%*-\ 4TAOX\ 4TA)>(+YHUANH\X\ 4TC6>(+2H\XU 4TX\HUC+K+> +
P\?8H\%5TH
%;XTH\XU/M <DP3*B*DBEC&C$B7EEFPC:F]H8GJIVITIUIXC1IWI:E4E3XCIMX\HC8F8DXCHC8DA,I[%<P\*QIL%<.MN
X\L\&+%<H1%<L\%8R
.
J/0&0!*.:%=-LIQ> .,0Z-)%?H!XWH
%;XV 4V 8!HQ> +M%3VI2%< 4V%8%?HW8!H">(-)PW*>IKIJIKIKIIXQ: XPXJI2%<-H[ 8D2L[K*Z;R92C*0>CH0>(//%	"L<BX0//I6%<IL%<,7A? < 4ZX\%:]G%	AN4<B&I%5Z.X1H\8!H2>(K?1>(*\I&XGH1C>K==HK>I>H19F.P9J8HC>I7AS<XI7X^.%=H:9J8HZ%J%A,I[X1J%A7<XI%9JI[P\./X4OA%FP0H4\2ASA/AXL[YPLXKY
(+\=H:IT[YSK/KH8D?X+Z;&E!]!H9F8F8DA,IE[3MG8!K3>(+7%:%	BL<BK3]GHC<K2X/KC??8OXLH\IP\*"(0!*E-)"(KU
XKV
YKW
ZJT^VJU^W.V2IM"DDA>G	.H[<BK:9HK92A+;2B/=2XXGI&2:2AOSC9J8H< +N2AKT%;KKZ:2AOQ8Z:J<
Q8OQ<KBKR> +KJ:
QST*52AKTKS8!X.(MBL??APC*	0!FFAFBADSV,*?9FUTILSV"J?%TECOSV(1? EDITSV"J?6SRCCOM?=A?BC><KLM
2A82CH\X <J38 L8D8P=P*	8XZUH^%;ITZQ<BHR9HHS<B<HPYXS8DXR2L%-2CH8!H\>(*%H.R.8F>X*/HNXZHYX;AH[XY8T*!G?S0*38H5CK,K-[,[-K1<(+^9D5DS-+^+^K;<(.CK:<(+[8A<(+	8A<(*K8A<(+ 8A> +^K,K-K9C88!K,8![-RC.CS/K.K/JB?*K+^K.JB8![/*KPA/M?)W?<?8HMFD ? A?H\X <J38 L8D8P=P*	8XZUH^%
ITZQ<BHR9HHS<B<HPYXS8DXR2L%-2CH8!H\>(*%H.R.8F>X*/HNXZHYX;AH[XY8T*!G?2IH+> +1H5XKH5XLL5C;K<\5MKX LKC?9J8J<XH49H<XH>9J8J8HXQLKAQX"H"\LH"8!LK9HHQ\LH"9D?X+	HQ8H> +	<P8A8:D5\5P +BO:AT>(+1MK8D9H]KK=XKK>XLILX X+/9D0NEO?0M?E?
O>[,	=(H+\9HK<(*;O>[,LO[+;XLO[*K+8D?X*4K*C;> *4!: K*9DK+8D?X*K*IF*3K*X!K+8!H19X[*(;Z[+K*08!H!=H/[*(T9*K: HK>(-%O>8A[,H8XMI?2LM[+;XLM[*XNXL[>K*C;9J<XK<9FKX[RLN29\LS>+R2AK*A7H.[*(P*+B-%%9HH[(C/!$V!AF(CK*9J8J8JC:<(K:8A9HK,[,/(
>PCFESE/J\PKINUSE.TE.HLJ\"ZBYTBLD.BI<J\D1XYES.R1<SRC:YES.RA.RAAN/QPAJ\??DIR</F=6J\??DIR<RKB0:/F=6J\??DIR RKA1:/F=60:J\J+HEADER.FUPALJ\K:AHK> (LL2I\M(NA?=?&>&HMH > (TPLPM2AP!(F,
7!(X]\^(FC">EAK>>G>G2B"GHG?&2C.?D[ 2LJ=[^2AN<8H2I>X+Q2B"G(HW<B2B"GFHK>B(P2B"GHHW<B/"X"XH "X"X"XPP"H"HPH%0%0
RDK 0\K?>(0Y+S2C/7ARDRDRDRDRDRDRDD;&ZOJD8 KLZ%;ZJ%Z)2LJM[9<BZCZDJF<BJCZCJ%C>Z)J%8H>XK;ZPNCC<J)Z)NCNCRCC78!ZENCRC7$NC9JPZA<XR)ZB7"JEK >(JXJB9JJ)7&JA77!*G7%9D< +&JEJX<P+6ZEJA8 B> 9XRA+G+FC=>(+27"9V7"7!+,7"7%> +/;$RO**+8RC>RC<B.C20 8HBF==CAEX%54BA+30BAS)DU0,
BO/4CCLCOMPA2COM0),COP9MEM/29CREA4%CREFDA4%DEL%4%DE!DIR%4ED)4HE,0LIN+MAC2LI34LO!$MAK%MAPMUNGPALPRI.4PU.(REN!-%RESCA.%,SETSK)0SQ5)3(SU"-)4TE/TY0%REQ5Q5%5%UAUBUCVE2ZE2/F54),QU)4ZAP *ERW
?*LK>X[HRZ^".?H/=K<
;2J&^H:A2J	:BF"*&:AJUZ^	9WIP?*&2K.]CCLSV>H/>	8NO CCL!K7ZARANAK6>(*1Y+S+ANAK59PK;>P+LY+Q8!NAC4RA>(*9Y<H+GR*/Y+Q:SX+GJ<H: 2A..DA??SW+!OV8J8J8J+%: [WOVSVC3ZBJBC)> : [XJB< SYC4/Y?
<?= G?CX>GB?&0CK/>EH?=2KPASCPJHDB(KADAXD$AMDB,AUILLLLL*C*;*=:2AO?
>K=
<O>2IJQZQ2B	=K(G/;"6U2AO^2IK:> /9	8K7XN2ALN2I<(*(K6> *^	58: 
42AO 2KK3X^2AL^2IX^H^Z4/2
1K0
/.6"6/.2B	=HG<BK-	,2I>2AH2C/
O+>(/*2B	=BDH<B/)ZQ	(+[:/U0!<H/UDDDFRQ+[/UDUMMYSVUR;"F $V;?\Z69X8SJ<OS^[B=EG?^R<?VK?.>G?	FU	?WZ	>/=K<9K;<X*NK:9PK9<PRD.DK8XP2A"&*Z:PPLP<(* "D>H*W"&XZ: HP2I
7.QLPK6< *-PP*	K5.&K4	3./K2	3.3K1	3.72CK0
//.I/O E]RROR ON [SYS:	-2AL^2I
,HZ>(O,9J8HC+<(/*K^[^2AO82I
)	(??[	O)> /*PZK	X^+KZ:T<TAGU
RQDDK=-=V=T[F=PB = RPHZ?UJ=F"F[JSW*K
?*,P^2AL^2IX[K?XNK
2AOA2I8H:H\N\N\N\N\NP^2AL^<(*"[XP^L^2IOX
X*V2IK
C>> 	=	<K
8D?	;P^2AL^2I	:O9< *:P^2AL^2I<(/8Z<B/7	6FO<(8A[ OB[OKOBB>(+!K5	42A2IQ$KQ[XSBK 	6B/BKX[SB/BKO+S2AO32I[OKO8F>P/KOC2K1S/2B8??V;?=BZ*"FVVRVYZ2V&D>!2I2B:	?DPG+X.A2C/>O=	<B.M<(.RZA	;&A.R	:.YZ2AL[K9>(L[2I<B	8.YK7XN2ALN> **: HNXNK6\N\N2I: HN
5HNZ:.&XPN;[NR;: N;XNR;N;[PR;: N;XMR;HP>(.;<BLN<B\MPP+N2I.;??A2	4R?CCL 3A OVERLAY BAD-TYPE R CCLC	;O3<(K*
3/+>&"*OB<H:VUZ.Z>P4F&>G1B[68D[72LK?+	2IN[1RN[2K1C>9D8FK?[ZKZ8A[%K1C=9J8J8H[3K3K<[5K39JK;[3K1C:9J8H8![4K4O3>(+SK48!
3K58A[PKP8A[QKQ8A[OK4>(*?OO.>ZOQK	[QOP[PO5C>9J8HOO8F8F8F[O2B	9?.A9<BH8> + ;&JZN
2S22IK8^X8K79HK6/2[$K	ZF2AO5<(<B[	OOKP>(*G<B+3?	P8>GA8Y	ZJNG2A8A9HZIJIVH*C.GX?Y4DAXA$MDA,UILLLLLP8$9DA6P8$9BI)$P8$9DA,P8$9DI4P8$9DI,<P8$9DI,P8$9DI2BP8$9DA8%P8$9BI$RP8$9BQ$QP8$9BA(P8$9BA$BP8$9BY&P8$9DI4)P8$9BQ&P8$9BQ$P8$9DA.JP8$9DA:HP8$9DA2P8$9DA9DP8$9DA:.
8$9BA&P8$9BI%SP8$9DI,8P8$9DA4$P8$9DA4[P8$9BY%AP8$9BY$GP8$9BY$PP8$9BY%IP8$9DA46K?X\	><(.K=> *CH\
<"7	;	:
9K8
7	6> O5<(/4XPO3Z]2B$PBZ/4K2[ZK1XNJ\XP2ALP	09J8JZ6PPLP	09F8F8DJ6	0:PP*&
/O.8!X].72AP\L\2I.=/CC-<(/,K+<(/,K*9K)<X+VK(\NSZ<H/	:LPC&/E< 6BJDL?& A?WWWV
EW?>2% ;.)[2[;V[6[*[. $=^=G?2IH\Z\: H\X\	?> *FH\8 J\Z9HN8 K>Z:2AN\2IK=> *YR9R\J9	<2A2APJ:	<2AX2AJ:8!J$Z39J3J5>X*6J9	<2AP2A/;02I	:!V2I:	: ?B]AD FILENAME OR ERROR READING INDIRECT FILEC]OMMAND LINE OVERFLOW"^AV;=YX^=:NZES<B	?2CJK>(/>/=XPHP8J8J8J"WHP"W.M2C	<
 "..WK;"WHS"MHT"MHU"MHV>(.]K:"WHV"M.]ZE	9*>Z3<BJE	8JEK7> ..J38AZK..JEK7>(..KO0\K6<(*FK5>(..JE+N0!+L0&>JZ[K..[,K;"WOSSSZ]K,?HK4K3[+N]	+N]R]C2> +
:AC,>(,/S"MJV".JP"./,?"M!?4A==]<UB.[=!8>EQUCAEX%54BA+30BAS)DU0,)BO/4CCLCOMPA2COM0),COP9MEM/29CREA4%CREFDA4%DEL%4%DE!DIR%4ED)4HE,0LIN+MAC2LI34LO!$MAK%MAPMUNGPALPRI.4PU.(REN!-%RESCA.%,SETSK)0SQ5)3(SU"-)4TE/TY0%REQ5Q5%5%UAUBUCVE2ZE2/F54),QU)4ZAP *ERW
?*LK>X[HRZ^".?H/=K<
;2J&^H:A2J	:BF"*&:AJUZ^	9WIP?*&2K.]CCLSV>H/>	8NO CCL!K7ZARANAK6>(*1Y+S+ANAK59PK;>P+LY+Q8!NAC4RA>(*9Y<H+GR*/Y+Q:SX+GJ<H: 2A..DA??SW+!OV8J8J8J+%: [WOVSVC3ZBJBC)> : [XJB< SYC4/Y?
<?= G?CX>GB?&0CK/>EHNOCOPYCMNOMATCCNPAUSECPREADONCRVERSIOCVNOCOMMCCNOSPACCSTABSCTBLANKSCBNOPRINCXNOISNCNOPTIMICQGOCGNOCOPYCDNOPREDCNRENAMECRFAILSACFCURRENCCLOGCLOTHERCOQUERYCQINQUIRCQINSPECCQTODAYCTUGLYCUINDEPECUINVERTCVEXCEPTCVVERSIOCWVCVNOLISTCPNOSYMTCU
ALFCRSABRCSNOLITECXKEEPCEMAMMOTCMMOBYCMALPHACABLOCKSCBCURRENCCEXTENDCEFASTCFBRIEFCFADDITICIEMPTIECMFREECMOTHERCOREMAINCRUGLYCUINVERTCVEXCEPTCVVERSIOCWVCVEXTENSCXPREDELCDDELETECDSPACESCBGOCGHALTSCHJUMPSCJJMPSCJCORECKMEMORYCKVERSIOCVSTARTCSJSWCWMCMBLOCKCBHE
DINCBHDRCBCREFCCKREFCCGOCGNOCONDCJLINKCLPERMCMNOLISTCNNOMACRCORESETCPEAECQREMOVECRNOBATCCZEXTENDCXKCKPCPMULTIPCSSLURPCSIMAGECIMULTIPCSSLURPCSGOCGINVERTCTSHIFTCBCREFCCDDTCDNOLINKCENOFILLCFGOCGNONPAGCHNOCONDCJLOADCLNOLISTCNNOORIGCONOSYMTCSNOREMECWWIDEB7WCWD
TAILCEEXTENDCEBRIEFCFFASTCFOKCONOCONFCOCARDSCCNONFATCEPAPERTCPQUIETCQHUSHCHTERMINCTTTYCTUNATTECUVERSIOCV026B6LISTCLKILLCKSTOPCSGOCGSTARTCGNOHCHDELETECDCOPIESCC([; > 4;VM78[&8M$N8S A:64>8V7,[^ A<F5F)R72([;85LVM78 A:6>A5P*+7;[V$:86B*7) B;B>H578[R A:6>D>$B5T
7;$/ A:65.W+7>*P:86*H7) A:6>$P6DR38(([;R6EVM8.([;F6PVM8+ A:6>$H5TR/7;(Y;N6$VM8D&E8G A;J6$R37/(J8G([;B6-VM78 :66=R/8J A:86>R78A A:6>A>$A5T*	7; A::6?R38Y[N8P8M A:8>$ 7G*P8A :>7J8\H&;8G A:6>$H5TR37; ;Z7W[" :67X87 $($0$[J$A:8>%P7G%L8A$8:67&[Z8=<L A:6>A>D5T*7;
J((E(J(N(S(X(]("(&(+(0(4(9(<)A)F)K)P)U)X)\) )%)*).)2)7)<*A*F*H*M*R*V*Z*
**(*,*0*5*:*?+C+G+L+Q+U+Y+^+"+	+,+1+3+8+=,B,G,J,N,R,V,Z,
,$,(,+,-,1,6,9,=-A-D-I-M-Q-V-[-
-"-	-,-1-3-5-:->.B.G.K.N.S.W.[.^..(.+.0.5.9.>/C/H/M/Q/S/X/]/!/%/(/-/1/6/;/?0C0H0K0P0U0X0\0 0$0	0+0.03EDITBOOTBITMAPSRCCOMBCOMPPAL8FOTPDIRE

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