File MONDL2.BA (BASIC source file)

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

*1B03R7E****2 ;I3SR 7ESU3SC3E6 +ICT3KWL3IWN3NF 3ESN7EWR3NWG7NV 3EWB3RWS7TSZ2 ?VN*M*2B03R7E****2 KE3ER3ASR6 WH3B
I6 WG3MWM3RKS3AC* B * B * B * >3"766.JB32 	D7MJ .$R(*02)+N"$"96).JB4* SR* B=2"GF3LOS+HCE3E;I3GKA3EJ,7IST3E: +ECU3E;I3GKE+EGN6"+\*$J=7R2"/B61"1*M*5B0/R6320G\.3B=/\	D*=:3.2^8*87E6024/M61.7R.257\206=21K\.=B1"060.JB6. 7M*1:76925/F61.5J.25;\*=:765K\.0&=6226/V6
.1J.69S\6=20/H6066207RJ=20"+20G\.=N-..J4"5*M*7B0/R6120G\.1"=..R823V6.-R0/\GT6=20/FB=/\7P20;\6=21/M6260O\6=20/CB=/\7Z.1V8.2"./\WG.=B1"060.JB8* SM2=6"3EWT7R2"/N6$2"	K3L7O3EWT7R2"+ICF/Z6$*"KJ2 T+ECN.1^0"0*M*9B03P	R7N3T3P	R7N3T3P	R7N3T3P	R+NKT3M;O3DGL3NWD3S7I
UGL3T?I/NJ 6"C\3R;IT*M.1B06 KP7ISN2"	S+NCD3SWI2 OS3H;O2 	E3NGM3L^ 3E3F3OWG3N*(2 SO+ECR+NJ)2;	\7NWP7TF "$*M.1B12 [I* SQ2=*"6"R 3H;E. N320	\7FF .$6 2 :"6"R 3H;E. N160C\3R;I7TJ 2$
\3O?T. B1"0*M.1B26 KP7ISN7\KP7ISN.MFJ*3B03P	R+NKT3SWI2 	S+NCD3N;U2 WB3IV 3IWN3R6 3OSN3L;A3D7E7IOS3I;O2.3A3SR +ECR3P3I+OCT7DKE""6;.JR160B 3R;I+TB"3M;O3DGL3NWD*-2"2"GK3PWS3L. 3O;E3N;E2 	S3EJ 7ESS3I7M+TCE3B[E3E3H/E.".MFJ*5B03P	R+NKT2 ;A2 GD7SN 7TWE3E
R3EGR+ECT3GKE+E;N*"J,7DKE2 ?B3ROD7OCM3UWT7R^ 3ISR2 I3N;E""6;.JZ160B 3R;I+TB"3D;A3N2 3A[U3ESN2 WB3S	T7MSM3E& 3N?F3RGM3T?I3N;E2,	D+E2"2"	S7E* +UCR""6;.J^160B 3R;I7TN"7TWE7EWR+NCG7DOE2 OS3H[I7FOE2 WB3NWO3T
I+E3N7AOU7DWR3CWK+NJ!7\KP7ISN.MFJ*8B03P	R+NKT7DKE2 	W3NWK3L:,3AC2 WD3M^ 7EKF7ASG2 	W+R3D7B+E3EOI3HWN3TR +ICE7FWL3GGL+GGE""6;.J&160B 3R;I3T&"+HCN3K;A3N6 +AKN2,Z"3O
L3ESN3E7R7AOS+ECN7BOE7CKH3EKI/E+N""*M.2B06 KP7ISN.""120> 7DKE* B-.1B86 KG+ACD7ISS2 	E7N^ +ECG7DKI7ESK2 ?V3M6 3OSN2 WWG6".JF260B 3R;I+T6". B96 KG+ACD7ISS6 WA3FV 3IWN3RR 3IWR3KWT3N2 3I	N3E& 7NJ 3IC3T;U7G^ 7ESL7RWAM6".JJ260B 3R;I/T&"20^ 3RSA6 OI3TF +UCF3E;I+
CR3L;I+ICE7AOU2 WD7RJ 3IC3T;U7GZ +OCM3W3E3TGR+UKM.MJJ*3B03P	R+NKT20^ 3RSA6 OI3TV +ICN3W
E2 	D3R/E3T& 7NJ 3IC3T;U3GR +ECS3M;O7DOE6"C\3R;IT*M.2B46 KP7ISN2 GT/BN(.0.)."F-*8F0.1B86"C\3R;I7TR +AB*3&4*;F"""*M.2B56 KP7ISN2 GT/BJ(.7.)*"B-.920* .-.-: . B96"C\3R;I7TR +AB*3&4*;F"6"C\3R;I7TR +AB*3&4.;B"""*M.2B66 KP7ISN2 GT/BJ(.7.)2"?M3N?D7BKE3FGL3EC7E2"
P	RN7T.J^260B 3R;I3TF"3LWL2 	W3NWK7L* 7WOI3CWH+N6 . "160V +NCD.+F *8B03GGR7DN 3ISN2 ?M3E3G3IC"!6".J"260B 3R;I7TC\3R;I/TF"2 	E3NWH+ICT3TWR7IOB3T[O7FJ 3EOI+HCT3FWU3RV 3IWN2 WS3K;U+DCE7MA3IGM+LKE";*M.2B96 KP7ISN*"CN3SC+UKB2,R"+ECR3SC+UCB3K;A3N^ 3EGW3E3H7T^ 3
SR/E+N""*M.3B06 KP7ISN6"KE2 GK+NCN20> 7DKE2 WJ3D;E2 WW+RCT3Z	W3SC+ECN*1B03USN. B160B 7R+O7ESN""6;.JF360B 3R;I+TB"3A;N3E7H+EKN7\KP7ISN.MNJ*2B03P	R+NKT3K	E+NCE3N
E3A	T+VCE3Z	E3T> 7DKE2 OS3HKU2 	E3NWG3B;E"!6".JN360B 3R;IT*M.3B46 KP7ISN2"	E3NGG/B+E2 WZ3I	T3NWT3RGV+LCL+ICN3S/E3USN+E7N*-6-*-6-*-6-*(	Z""*M.3B56 KP7ISN*"B * B * B 6 KP3OWZ3NGT3NGG+BCE7DOE2 OS3HKU+E7S*-6-*-6-*-6-*(	P""*M.3B66 KP7ISN*"B * B * B 2 3F3U3G3AW
3W;I3K3E2 ;I6 KG+A7D*-6-*-6-*-6-*-6-*(	W6"C\3R;IT*M.3B76 KP7ISN2"WW+NCN3SWI2 	D3E6 7IOS3I;O2 KA3BWR3CWH7N^ 3O3L+E3N3GKE+ECN3SWI* 20.0B,2 	E+NJ!.MNJ*8B03P	RN7T.J&360B 3R;I3TF"3U
S3AWB2:J +ICS7JSE+ZCT7VKE7SKT3IC3EWN2 WZ+ICT+ICN3S/E3USN+EKN.MRJ*0B03P	R+NKT* B * B * B 3HWO+HCE+ICN7MSE+EKR.MRJ*1B03P	R+NKT* B * B * B 7ESN7FKE3N;U7GZ +OCN7DKE2 GL3NWD3SWT3LWL2 ;I2 WM7TKE""*M.4B26 KP7ISN*"B * B * B 2 WV3R	T3K3A3E^ 3EOS3H	W3N	D3GWK+ICT+IC
7MN/+EKK.MRJ*3B03P	R+NKT* B * B * B 7HKO3I?Z3NGT+LCE7GOE7C
H3ISN3I/G7ESI2 ;I* ?M3S/E""*M.4B46 KP7ISN*"B * B * B 2 WR3S3T3IC+ECN3E;I3H	E3T;E6 KT3EKI3S?T+FKF.MRJ*5B03P	R7N3T3P	RN7T.JZ460B 3R;I+TB"3Z	E+TB 2 ?H3EWH* B * B 7ESN7FKE3N;U+GB 2 WV+R;T2 WG+SB.2 " 3O	R2.^ +E;S""6;.J^460B 3R;I+TB"* B 3TWR7IOB3T[OF6".J"420Z +
CR/N6 * B0+TCO67203P	R+NCT3TKA*(	N*;6"6"2;7NE3T: .MRJ*9B03P	R+NCT3TKA.(F7*)J;6 2"7GSO/OV "660.JB560B 3R;I7T*"*,3P/W."3\;I7PSU. GT*,3F3P[\*=?F.1B03\[I. GT*<B03TWH/N^ "960.JF520& 7FR *1B=60R 3H;E. B16120+ICF7AOB*(	P* B>.1B82 T+ECN.8B13\[I* CF2=> 2 T+ECN.5B3
MVJ*2B0+ICF* CF.<B *.B13TWH/N" 6320+ICF/F: * B13TWH/N" "360.JN520: * B=6220+ICF/T21. B460R 3H;E. R520;\* B=+T>1"260.JR560R 61R=21://\7P/PN*..R1.1&5./"160O\2=	S7NB(2)O\2=?C7SB(2)7\226=60R*21Z*"/7B.JV560J *36=.0V..*CR**"(+V>07R:)*2.)3RF*21F*21G\*36=62J*21F*
1J/.MVJ*6B07FKO* CI.=F 2 ?T6 3N+ICF/M6160R 3H;E. "5207\216=216-22	\3F6 .1B>2 T+ECN.5B9.MVJ*7B03FZ=.*F(.+GM./KM2)7\226=216+62C\3R;I7TR"3R	E7BSS3O[F3T;A3K2 7EKE2"7\.1B=3\?G+TCO.5B9.MVJ*8B0/FB=/\KM"=60.J&5206 *=7M.0V..*KM/\SR.=OR/\OR.=B-*.*5+R*06(Z(60J/.)K^6
J+.*GA.*GA.MZJ*0B0/R62*(*3+R63+R&4*/.2.0B..0J526Z*21Z***?C3MG\24F=23G\*36=62J*21F*61J/.MZJ*1B0/A62*(*3+A63+A&4*/.2.0B..0J526Z*21Z***?S*(+M7R2)7XJ=61R*.1B+*.*5+R*2+T*1T61.JJ660J *=/R3X\20"=60"+/\GR.=GR.+KR.*GT/\7A3AF+61R*.1B+*.*5+A*2+T*17T21/A61+A.1+A*2T61
JN6206 *=7M.0V..*KM/\7T7TR+21	\3F" 20R<69R 3H;E. R620;\7ESX" 7I.JR620" .=CH6*3Z/H61+R*13ZS\.=CR**+A3ZS\61J=.*GA6*3Z/T62+M*13B6/60S\22&=+NT+T.2.0V.")*M.6B52 [I. GH.<B 2 T+ECN.6B6/\GH2=;I3T"(.1B+*.&53\?G+TCO.6B7.MZJ*6B0/H617ISN.(GH*-:0"56).J^620& 3FR * B<60
 3H;E. "620S\2=;I3TR(*+:0652)7GSO/OZ "960.J"620R 2=;I3TR(*-:0"56).J&620& 3FR .12 * B03TWH/N^ 6020/D617ISN.(GD*+:0652)7GSO/O^ "160.JB720R 21&=+NT+D61.0V.")*M.7B12 [I2 KA3S"(.)F<2 T+ECN.7B33\[I. 3H60R 3H;E. J720\2=;I3T"(*+:0652)7GSO/O^ "360.JJ720" 2=;I3T"(*
:0"56).JN760R 2=;I7TR(*+:0652)3P	R+NCT3TKA*(&1.;/T3TKA*(&8.;/H3TKA.("12)R;2;GT/BN(.6.)/H.13TKA.(&4")6;.JR760B 3R;I3TR 61R;+AB*6&2.;KT.M^J*5B0+ICF/H20+DB93TWH/N^ 6720+ICF+R*0/AF>*6:4*4B73TWH/N& 6720+ICF/M:160R 3H;E. B5"0*M.7B6. GT.=B2/\7F60C\6=207GSO/OV "3
0.J^720& 7FJ *16<.8J..1Z9/EB-64R 3H;E. F920	\3FF +BS3RF*.1:).4&..3^1/EB-64R 3H;E. F9"0*M.7B82 [I. CH2<R-69R 3H;E. F920	\3FF +BS/D:)*1*07ZR 3H;E. &920
\3O?T. ^8"0*M.7B96 KP7ISN2"	M3TR 7IOE+ECR7KCA3S3E2 ?K3E;N+ECN3SWI2 	D7EJ 3A7U2-WZ+ICT7GOE7E+T+EJ ";*M.8B06 KP7ISN2"	N7CSH2 WU7BKE3W;I3D;E6!2"7GSO/OV "060.JF860B 3R;I7T^"3E;N2 	S3E" 7EWR7MCS3I;N+ECN3W3O3L;E2,GD+NCN3SWT3IWG7NN +ICE3DOO3HF +UGS"!6".JJ820^ 3O
T. B5"0*M.8B36 KP7ISN2";U3MWO3G	L3CWH7RN 7CWH3BWW/R+T6"2;+ICF/FB<2 T+ECN.8B6.M"J*4B0+ICF/F2 * :061R 3H;E. V860C\3R;I7T*"3U^ 7ROO+SJ!3\?G+TCO.5B0.M"J*5B03P	R+NKT+ZCU3KWL+IGN2"
\3O?T. B5"0*M.8B66 KP7ISN2"WN7GSA3IWV7R^ 7ESR2"
\3O?T. B5"0*M.8B76 KP7ISN2"	H+ECR7ISS2 	D3E. 7OSN3R3O7LSS3A	T+OCN*-B-7DKE2 SA7LKE6 OI7TN 3IC+ECR""6;.J"860B 3R;I3T^"3EGL3NWD7T2"3P	R+NKT7HKE3Z	L3CWH3N^ 3LWU7C
K7UON+CCH*-B-+ECS3GKA2 WK3IWN. .".M"J*9B03P	R+NKT7BOE3CGH3E	D3G;U3G;E2 ;A2 WD3R. 7AOP+EKL7\KP7ISN2"	S3E. 3O;E3N;E. .".M&J*0B03P	R+NKT3N;U2 	M3TR +ECM7FKO3SC3U
N7SKP7OKG3A7M2 WB3G;I3N;E6.2"7GSO/OF .0B2.M&J*1B03P	R+NCT7PSN*(&7*;*"**************B*7WWR3M7M* **************"*6".JJ960B 3R;I7TV"7MN +ICE7TSU6 OE2 	M3R: +UCN7WKI3K	L+CCH3L	E7DN:+ICE3S;I3DF 3BWG7SWT7E+R+TJ!.M&J*3B03P	R+NKT3DSA3UOR3H" 3AWB7NN +ICE3EWB3NV 3I
N3N. 7RSA+ECR3V;O2"F;+BS/H.)/M.$.M&J*4B03P	R+NKT2 	T3EWF2 WV7RKU3SOA+HGT6"\61N=+QR+D*1+D.1+H*1+H&1.M&J*5B03P	R+NKT3SWI2 	S+NCD7MSI2 	E7NKE2 WG3SC3W;I3D
I3K	E7TZ +OKN.;GX2;6"2/WS/K.".M&J*6B03P	R+NKT6 WA3FWG3SC3L
A+EKN3\?G+TCO.1J0"0*M.9B76 KP7ISN2"	S7EN 3ISN2 7I2 3A7LZ 3E3R3OWR3N^ 3EGG3NWG+N6 "-6".J"960B 3R;I3T>"3HWN2 ?H3F;F3U
N6 WA3FV 3IWN2 	W3EWD3RWK+HKR3\?G+TCO.1J0"0*M.9B96 KP7ISN2"	S7EN 3ISN2 	S3CWH3R^ 3EGL3NWD+T6 * B-*-B 3SWI2 GH3B;E2 KA+ECR3DWI. .".MFJ.0B06 KP7ISN2"GL3NWD3SWT3LWL6"C\3R;I7TV"/M."7AOB*(?D+G&5*;SN*;B"7VKE3FE+L;T2"
\3O?T. B1"260.JB1*1B03P	R+NKT7MOI3S?I3N& +SCT3A
B7EKB3OC+EGN""*M.1J060B 3R;I7T^"3O3L+ECN3SWI2 ?N+CCH3M3A2 3F3I
E+EN3J> 7DKE* 	N6"2;7ICN+UCTZ6$.JB1*3B0+ICF/Z6$*"KJ2 T+ECN6520+ICF/Z6$*"KN2 T+ECN.1R060C\3R;I7TJ 2$
\3O?T. B1"260.JB1*4B03P	R+NKT3SC3AWD2,GD3S6 3OSN3L;A7DCE3R
O3R7A3MJ 3EGD7UKE3TV 3S& 3MWM+RJ ";*M.1V060B 3R;I3TV"3RGF3HWR+NCE7ASS3R;O7ASU+EKN7\KP7ISN6"WZ2 WV3R	L3EWR+NJ!.MFJ.0B62 ?G+TCO.1N1"0*M.1^060B 3R;IT*M.1"060B 3R;I3T^"+U3T3W3O3L;E2 	S3E: +UCN3DWI2 ?K3M3P7EST3EV 3I[N3UE3R;U/GF(2)R,+ICE3E;I""6;.JB1*9B03P	R+NKT
GKA+EJ 2,F"3U
S3AWB2 	E3NWW7IWS3NWG/NJ(2)> 7DKE2 	N7CSH7SZ +OCN3B	E3D7E*(&3""6;.JF1*0B07ICN+UCTB61.JFL.1B12 [I. GB*=B13TWH/NF 6220+ICF/B6162R 3H;E. N320	\3FJ .1N=2 T+ECN.4B5.MFJ.1B26 KP7ISN* SR3\?G+TCO.1"0"0*M.1N120V N7DBJBZ

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