File MSBAT.SV (save files (Executable program)

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

?>2CBXHSATDHR(
DH. <LATDHR(
G8EDI O$/H<O/HH<<HM(
D<$.DSHVEH8R8UH PDBLAICX$DOPRR8AH8RX DOT
X*LI<LH?8?*P/
$<ED$<JBD$LMG$TDCK$<LADD$TRN F&"B"BBBZ?9A(=?TXBDCB\BJSDJHL+F4NCILAN;B>I?0\I>>(0Y,%2C-=UZ>&P >$>= D.=QK?8CECZC?BZBL	B*BIGB B0B)B1?<JBJIR?8=1I^H$JB9B]HLC4I8K3J4BMM?2?>A4>AA?<H=9I2=42C5.DA=?=>=7=82A=.C)JWJ:DWBO?=0P=2=3=/>==BK?< K>K=C<Z\HRPR9HNRZ"<X*WJ\9F8F8F
\N"C<*YN"C;J\^".J\Z"HSPS*9HN"R"Z\N\<X*-8J8J8JC<"2XQHQ."K:<(K>=HK9K8.22C	7.:2C	6.>[E$Y(2B/B$U^K?>(SI; HSXS/I2ALIXHHQ< I5>(+SHAHQ< I5>(+EH8!HA>(+MH8 AHP>(.9HA8 HP> R9.9;&F+F/B
A?!??C
>.=3N[NONSN<(*L[OOOC?
O*CXS$U^$\*8*3*MHS[PN[NKPXSONSN<(/>[OOO8F?HK=KO8A[DOO8H8JC<8 [Q[R> *WSQ*,HS[TOOC<8 [QSQ<H+U>(*7KTXS+UKRSR	;8![S$U^KS/RXS.$U^$\*6*//>OO8F?/>KO8A[$Z/>OOC?K:
OOOC9K8
O/7*/I
<(+:I^<(+<I]< FC 
?PB"GFFO?O?"$+ ; O?"I; O?/>XRHRZ$; HSXS$U^$\*8+E$U^K=>(*^HQ$V^*UK<$V^J$XS.IXSN$R$$]$U^$\*7+GHQ$!*)K<$!.$[HN4R4[IN4R4[JOISISJ=+FKH> *<OJZ4:.4*[U<%UZ+F8%W*N2AM<2IM<> %S-R2AM<]Q2IM<]QHUX[+*%X+(%U+*2/ZP[+$2%SIP%O2*N2A82I8/2M<X[MQBM=3DLEPNZE$Y()NR[";$[$K?ZVK>Z
HS[%HS[&$U^$\*S":?;RVRW*Q":D?9S$K=ZVK<ZW*QS$*.":J?=*1":D?9R*7:K%	;+*K%	:.N:R:XRN:R:[)HQ8![	HQK9[(K&XS$U^K	<(.:K(= *3K8=+ZK7= *3K6=H*3:S)+ ; [)+IHQ$V+I+(2C/-CQK/>\?6??2L9J8H8AIHY<&FIF$*<+B*:+NRZPNRZQK?ZRNP^QRPRQRR*I.XR	>ZP"/*&2B	=*&K<Z.	;> *$R.*^*W2A
:2IK9$V^K9$!XS.SK8Z.	;<(+!K7<(+JK62B	5+GZJ$!J$V^HRK4?+QR.*2./R/ZP$],GK3$!./$]+:2B	=*&	;Z.K2B.>(+SK1B.> +S*$RP+GJP8 ZPRP<H/K0$!+	L58!<(B =?BBI8BN*C?=? BM,B:?8HE[[?:.ALK2C/?NDZDK>ZA2C.D2AO=2IK<XPLPXP2AO;2I> " 2AO:2I>(,P2C	9" ,P2AW82I$],E. "DP<"DJVN+R+[LHS[[
T?<KS>(*:K7$!TD?:K6XSJ+G:K5$!TJ?>KXS.+$UK4<(/JSJK3/JOTSTXSOTST["J/T$!SSS"+[/T)I.]O/2IIH> 	/	0/).(](C=B.JB:"L$%$+K!LKN&< *ENRXPLP9J8J8J"OLP"OPP*FC?<(.	>$!.OK=2A
<;&
;R:J:
:;A
9K8
72INVZ($Y)MNVRVZ7K6XR2B	5K42A
72I.V$V2C.5K3= +BK2=R;:.;KT[RKTK1<(/DK0[TOD[QSD$Y/D"OUSU[KTK/=H+%K.[TKT["$YSU:/U), I+]QHPMO"]:&2YTI=GP+R$GRF	]\YH
PB2?$W$X&,$^*I$Y(;(W*L$Z(W*E$],I$[(W$],NO??K>K=2A
<2I$
$],RO;?H/:K9$!	8(K7$!$[(WK6$!/:$W$X&0$^*7$Y)A(W$],U$[(W*>$Z(W*/$],U$],9K6$!+IK5$!$],$[($],2K42A
<2I$
$],R$],X$],4$[(W$],"O;?H+$],R$],I	8($],^K3
2/:$W$X()$],>$
$]-IHT
2/:I\+NQ&;BIBMB<WZB*LK	S $]?^	N$W$X&2$^*H	?(W*K$Z(W*E$],I$[(WK>$!O=8D?*Z$[	1K<$!*\$]-UK;2A
:2I$
$]-X$[(WO9?H*3K8$!O78D?H*1$Y(	:$[	:K>$!$[(WO6?*<$]-
K<$!K5
4	3(W/2$W	1+S$W$X()+S$W	0O/> +SK.
/K-
,$].=$[(]K<$!$
$],RHT
4/2+7H:IX$(HWHHX> K?%WH\HM (^KDS(]YQ\LKOD+NX	W	9B,	S $]BM	0B<NV$X&7$]-!O?8D?*M$Y(C(]*P$Y)G(]$[(]O>?* O>8D?H*\$Y(	:K=$!$[	:O<?*%$]-4$]-&O;8D?*/$[(M$]-(O:?H*:	9(W*:$[(W$]-+*2$^<H+\$U^[&$U^K8> +IK&$\*
*!;$HSXS$Z(W*:$[(W$]-+*:$]-.$]-0;$HS	7+L$]-2
6.$W"K5
4	3N&	;LI9!HP> +7LI9!HQ> +7LILD+NXCN:FI=COU	Z(L	^B,	9(BK?[WK>XO\OSW*E$W$U^$\*8**I; HS[Y$U^$ *KHQK=8![WKW8!9D8FKWK<[W$U^$\*&*)*KOWC;K:
W*!OWC9K8
W*!HS[V$U^$ *>HQ[X$U^$\*7*,KVXSOWC7
WKW8A[G$Z+MOWC6K5
WKY	4*IOWC7KX
W+I.OZSZ[
$[O
K3> /ZS
O
K2> /Z$],</Z*NHZ	=>X	<;	+,FI 
?<H7?P/?)Y=P)X>:	?	>*I	?$X()*I	?Q$],>$
$]-6$[(]*X$].$[($].G*Z$].I$]-0K=[OK<[PK;KP[POP?+HOPC:<(*0XQK9$!HQ$!*5KP8AZ4$[OP8D?*;K8$!OP8F?+A$]->K7$!KOK6$!$]-0SO* $]-2HT
5/4$X()$^<H+[$Z(]+[/Q$].M	3N&K0"/NA	;D>A/82K/JVU CA0A\AD> Z4?LDLK+NB:B/B<B=C?G)R?6TV$W$X&=$^*H	?(W*K$Z(W*E$],I$[(WK>$!O=8D?*Z$[	1K<$!*\$]-UK;2A
:2I$
$].WO9?H*5$]-0O88D?H*/$Y(	:	7	:K>$!$[(W$].Z$[(WO9?H+CO6?+CK5$!$[	:K>$!$[(WK<$!K4
3	2(W/1[	0NK/
.
-HT
3$W$]/I	0N&2AO,2IK+XPLP$]K*$!/[/	5ERB +W!N:OT"LDLKOD+NSCB,	"WZ	9	S $]BM	0B<NV$X	B$]. O??*J$]./O>?*O$].1O=?*T$].3$]-0O<8D?*^$[(M$]-(O;?*,O;8D?H*($Y(	:$[	:$].5O:?H*7	9(W*7$[(W$]-0*/$^<H+A$Z(W$[(W$]-0*7$].8O88D?+VO7> +NK6
7K5
4$Y(C(]$[(]K3$!.$Y)S(]
2+Q$W"K1
0	/N&<B/ PP+!![A?:?<?4B GB08B8LD+NSFN:BM(DKDS(C(BOU	Z	9(L	-	)	%	J	N	S	S	0	S	9	W(B	9(L	Z	^	0	S	9	"	%	)	-(B	9(L	ZDBASICFFORTRANSNOLISTCRALFSNOAUTOKSSYMBJSABRKINPUTSOUTPUTPTWOHBSRCHCLISTHKIMAGEHTLIBRARYTTYLPTDECKBATPROGLDFILDSKPROG<4<1UTUVVOWU<2<==CV	V,V1WPW
WPE[E)E)E)DSEK=C=T=Q=3HYH
H(H(H(=F=R=Q=T=3FZF^F1F1F1L	P*RXGU [Q[NP[NL)L)L)L)//D// /W/Z/]/T?INVALID OPTION: /?INVALID FILE SPECIFICATION - ?
BCL LINE TOO LONG
?

$.R PIP
*<BAT:
$EOD
.R PIP
*PROG.BA<<PROG.BA
FILE 3:"DATA.DA"\FILEV 4:""
PROG.BA,BAT:,/T.R PIP
*DATA.DA<BAT:
$EOD
.R BCOMP
*PROG.BA
BAT:
$EOD
.R F4
*/F.R LOAD
*<
*/L
*/C
*/O
*$
/S$EOD
.R FRTS
*/C
*DATA.DA/4
*/5
*/5=4?NO PROGRAM TO RUN
$EOD
.R FORT
*.R LOADER
*.R LOADER
*GENIOX/I/O/H</M
*$
.SAVE .RUN $BASIC$FORTRAN.R FOTP
*FIL???.*/D
$EOD$JOB$MSG$DECK$LOAD$RUN$Z>6%SYSTEM9%/HN*P+F3B????P0P0P0P0P0P0P0P0,:SHL?=?CXCFQS?0?1)^=U=BG(OBZL=RA ?;<>EC?KZPBI$G]DB0?XL(?<BMHZBI=3NP) ")MBJ(8)--%O"G.%!>A? $?GZ!	 2C*B FO = O?D)&FE?BX[P&<H*F2J	?H; X&2J$TEK>XH2IO=C<> (1LH<(;VX	LH<((9X(LHX)LHX*LHX+K;Z6O:
92AJ6
8K7Z.H	2J$TATA(8J.X/H	2J$TC((72J$TIX&2IJ6
6H	C5
4O32AC2<(
19F> K0K/X /.> .:;(R8!JB> .:.J: .JE5CZCJC9F8DJC8FJC
)K)K<> : ZC*\BBXLH I8> D;"RTQ>>OO>PTAQU>>E(D>$=??K?
>K=
<K;
:K9
82I
7
6K5
4O3C2>(* KK
7KL
6K1
42AK0
>K/
<K.
:K-
82IO,C+>(K*K)2K	(O	C&>(*2K%
$K
"K!*7K 
$K

"K^
]O]
\K[
Z
Y2AX-; X.OX
WKVXKKUX^;&X
X/T+I*XH2%$%4%1LHX2LHF>W?PZB6N:OT"+NTXGU RSJ+O][+MZB>%CB(/FP>$ U!5 & 6. H>\D.&XPQ$! W$S!8$U )$Z 9	?/>LJXUHJXIK=XYX%XXLJXZK<Z9D8FHX9FXXK;Z<(*"$Q*"K:= *%K9=H*%K8\IP%PY*J/7$P* 2K	6.	$R2K.+LJ2K./[2LK5[A2AN3R3[BKA
BK.3P++QI7X
;XL
X : X^.EH+<(+EX+P
L
I
<(+EK8<(+CK7>(: +MK>XJLJ<(/]$(] + :K6[,K5X(%"0(-, 4HWA,%6/.?
2CN5JB0I=GO?0?;P7HE>K?P".$SH7X"P.*7P,*3">K>XYK=XJ6:*<">C69<H*$6Y*U">6\\JPY*U69* 6<*(6<PY(3\JK=XJK>XYK<LJ> *3PY*-*7K=XJRE; X.; X,.EC*R[+K;[,.>0Y+K0\C:K9>(.AS+/CS,/C0XK8	7K6XY	50Y+!0\C:K9<(.A0XK4>(*7*M6:+UK>XYK=XJ*T0Y+(+W/S?:-4%OI\$	I%?)L]\;R?BG?=A??6O<[??X
?LJXVLJXWK?XHK>XYX!K=XZLHP!9D<X*ZPZ*LPY*I	</;$P$R+ILH> *VPY*YH!K=? *&; X-2K/:	<H H!XYLY<(*VXYHYK9<(*5K8> +HK7X[LJ< *=P[*7+FK:> +FHYK9> K6K5XYK4XJ	:K3$R/;KX9F8D[XKX8DA0IX$(SY+L/HH)<(+9?H+7H:IX$(HWHHX> K?%WH\HM >(+2H7%W%V+7H7B \G 6?0? P
GLNL$?4?<TLYC?> *HK>$R*MLY9J8J8J"QLY"QPY*HC=<(.K<<(K;=HK:K9$R.QK8XR"K7XR.]$SL7H%8 XYK6XIPY<H*2LI$R*,H%>(*7K5$R.$%:HP8F:HR?X+GXPXQXR%!: H0X0P/P$*9-?B B CPCACLB8B-CVB1B0CAB B0B5B-AJAUALB-B7B7B CPCACGCEB X/^W"5IR$(I\$(H0B \P+R?B
A>.?!?BI?X$XYK?X[LJ<(*ZK><(*VK=$Q*QXZ"\HZ$RP[*DK<$R*&"\: X$*&PY*QHY8 XYPY<H.\K;$R* H"> P/:$SO$[&K9C&K8>(+$R*K&8F8FC99D[	K	8FK	[	K&8F8DC7<(+J9DS	<P+D> +K	9HK6[	O	<X+T8J8J8JC5<(+YK;+$K&K4<(+!K3> +K=K2+$$P.*A3A.A2A,A3A2A3A*A/BBIXO8?
T?8?9GFB BMC?=? P
*	Z); HKZ*J)8F8FCDN*^*R*J)8J8J8HCDN*^*P^*$$/"X(6RZK?XKK>X^RW=R;&X
.\K.[VKV"<H(5KVK<> .+K;*,X!X$X%2K/:P-+AK9XY	:K8"+B<O78!JZ[VP&<H+O2J	6H; X&H	2J$TD(4KV8!8F8FC52IO4
42A/3?-\H"K:[V2IOV2A8$:D/$\;$/%ARD!>R>O?0?B6Z\,LBJ=3B7>W?K?XHK>XYX]HX\K=XR"$K<XRK;XYH]>(	:K9XY	:/8;A2J$TB\((2JYZ;A
72J$TF$SR=LHXZX[H\HZ=H*1P[X\**:H[< *8H]>(*;P]K6$RPY*	.$0&0!+AK5> .?K4+2A:H09DK3XHLHXYX0	:LHXY,YK>>(/SK"22%PK"I
>/SI%+TBJSVI>0\K=<(0Y/-,%22/23$%4%4%$Z^=BJ=3B0?&BF\2L]\0P+R??<
OBATCHSV
$END
NO CARDS IN ERROR
LOAD MORE CARDS OR TYPE ^Z
NO OUTPUT FILE SPECIFIED
CAN	T FETCH DEVICE HANDLER
CAN	T ENTER FILE
OUTPUT ERROR
FILE TOO BIG
CAN	T CLOSE FILE
CARD IN READER BACKWARDS.  TYPE SPACE TO CONTINUE.
"BATCH.SV" NOT ON SYS: - CAN	T CHAIN
MSBAT - VERSION 3A
]IB]VB]$B]-B]4B];B^DI(^^>^1B0X>\?6??QRSTUVWXYP&),/258DL"%(+.147:^ZAF= N!$	*-0369\[CGE;
?<]KMJO>HIBDATACALLCLOSEDEFINECHAINDIMENSIONCHANGEENDCLOSE 4\ENDFILEGOSUBIFINPUTINPUT 3:LISTNEXTOLDPRINTPRINT 4:READRESTORERUNFORGOTOIF ENDLETLINPUTNEWONRANDOMOVERLAYREPLACEUNSAVEREMARKRETURNSAVESTOPCLOSE 4\STOPCOMMONASSIGNCOMPLEXBACKSPACECONTINUEBLOCK DA
ADATACALLDEFINE FILEDOENDEQUIVALENCEFORMATGO TOINTEGERPAUSEREALREWINDSUBROUTINECDIMENSIONDOUBLE PRECISIONEND FILEEXTERNALFUNCTIONIFLOGICALREADRETURNSTOPWRITE E!L!P .!V!X!^!Z!*!A!E!5 L &!R 1 4 ^ 6 >!"!.!2!&
? U B!G I ! Q!I
< $" ""*","/"6":">CGJNTU[$).35:=$A$D!?"C"G"L"R"W"]HL	5	?/BS=	4BH /3+Y*$K2X	K2X(I,
1Z-*)YAXWH)> /!HWHX9PPZ%U:XZ/!/*& S^S^SSW/>GIS?&>NV;H7IKJJ\XHNOI0

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