File TRIMUL.BA (BASIC source file)

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

61J +ECM*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-6 KT7IWM+LB./BN36 WB"3*M62J +ECM********************2*V 7RSS3E3L3U
N3SGD3T7U. &12-WF/B^-66N /PCL.0B0.0J1.MNJ2 WR+M* ****6*Z 7EOR3I;O2 ?V/MF 296-+A7R*7B6****"*6**JB53R;A3D7O3IWZ.MFJ60J +ECM******B*7DOA6 CS3I3E6 KT7IWM+LCA****"*6*.JB26 KP7ISN* *"**B*3T	R3M3U+A* **J** C\3P	R+NCT* C\3P	R+NCT.MJJ25^ 7OWS/BF .0B0* C\3R7E2 F*3N
F7NOG7WKE+TCE3E;I3M3A+ICG7SSE3Z;E"**M*3B03P	R+NCT*"**2*F 3U
S3A
N3S	S3TGU3T?I+N* **J** C\3P	R+NCT.MNJ25^ 7OWS/BR .0B0* C\3R7E6 N*3PWI7LSS3ASN"**M*3B73P	R+NCT2"I7R* /U+G* B**-6-*-B-3C7O7PSU7E+R/U+G* J-* C\3P	R+NCT* C\3P	R+NCT.MVJ60B 3R;I+TJ 3W3O3L;E2 	S3EJ 3E	G3NWN+NB?+J?A3N	E+N2"* C\7ICN+UCT+AB$7\B 3R;I+TB 7\B 3R;IT6 
JB62 [I* SA2=:"3E;I6"R 3H;E. 7B622 . GA"=62.JB72 ;O* CB7GOO+UCB.2B0.0N,.0B0* C\3R7E2 J*.=*12 WM3NOS+HB,/BJ=2:N 7OCM3UWTR6*.JB82 [I. 7B62R 3H;E2 ^ 7OWS/BR .0B0* C\3R7E6 N*3PWI7LSS3ASN6 WA7SKD3U/C+E+N.M&J20& 3FZ .=^22 T+ECN.8B0.MFJ*0B0+B"=/BF+*)"-/BF-2)J** 
\+GCO+TCO"760.JB820& 3FJ *=B13TWH+NB 7GOO+UCB.4B0602 2 WR+M* 3S	P7EOL3T;AD6*.JF820^ 7OWS/BV .0B0* C\3R7E2 ^*3E	W+N7N7VKE7LOUT6*.JB960B 3R;I+TJ 7NWE+ECS3S	P/E?L2 GJ2/WN+IKN6,2 2 ;I7PSU* SA.M&J*1B0+ICF/A6$2"GJ6"R 3H;E6 KP7ISN6 2 6 KP7ISN6 2 2 ?G3SKU. V1*0B0
\^ 7OR /ON "0*M.9&92 ?G2 ?T. &9"969.JB1*0B03R7E* **2*F 3NGF7NOG7WKE+TCE3E;I3M3A+ICG****.MFJ.0B12 GD+TCA.1J8.2V,*226.2N7.4J,*720*622.1J4.,R4*622*728.8F4.4N,.0N,*928*426.5B9.,Z1.3J8.MFJ.0V12 GD+TCA.1J,.7N,.,V2*,27*221.9F,.9F,.1V,.,N1.,^1.,N2.,V1*,22*226.4J,
4Z,.,J2*,28*220*120*128*122*126"164.JB1*2B03D7I* A*2&7*,B*1&4*,M*12)/PJ(*72)+M"1"16).JB1*3B07FKO. 7I61R /OF 642 2 WR+ACD3B&(6)2 2 WN+XCT7I2 2 ?F3R& *=B1+TCO*2B77\J 3ESA* P+IB)3\: 7ESX" 7I.JV1*0B03R7E* ****B 3A[N3A
N3SWW3RWT* **"**M.1F520Z *=B03\J *=B13\6 *(&0*=B03\6 *(&1*=B07\* .0B=* C\/PB(.)F=* C\/MB=.MFJ.5B22 ?F3R& *=B1+TCO*2B73\F *(	I*=B03\: 7ESX" 7I.JV1*3B03S&=+NT63J*+ND*0&)"+61.JV1*4B03P	R+NCT6"SS7RSA3E	G7EN"* C\3P	R+NCT* C\3P	R+NCT.MFJ.9&92 WR7TKUN*M.2B060J +
CM****2 WM3NOS+H* "*6*.JB2*1B03P	R+NCT2"I7R* +UKG6,2 2 ;I7PSU* CZ7\B 3R;IT6 .JB2*1B5+ICF/ZB>2 T+ECN+ICF/ZJ<68R 3H;E2 [I* A/Z6)60R 3H;E. B2"265.JB2*2B0+GCO+TCO.2F0"0*M.2J025& 3F6 *(&0*=B03TWH3N& 3F6 *(&1*=B03TWH3N& 7F* .=R12 T+ECN.2F0"0*M.2V020& 3FZ *>B33T
H+NB 7GOO+UCB.6B0602 2 WR+M* 3MWU3HWL3NJ 7ESS3I7M+E+N.MJJ.0B6* A/Z6)612 . 7F/FF+* C\/Z60Z*M.2&969J 7EWTR7N.JB3*0B03R7E* **2*N 7OCM3UWT+R* "*6*.JB3*1B07GOO+UCB.7B0602 2 WR+M* 3WA3LN 7OCM3UWTR6*.JB3*3B03P	R+NCT2"?C7MWP7TKE3Z
U*:2"7Z2 6 KP7ISN" *M.3R020& 3FZ *>B33TWH+NB 7GOO+UCB.6B0602 2 WR+M* 3MWU3HWL3NJ 7ESS3I7M+E+N.MNJ.0B5* A/Z6)622 . 7F/FF+* C\/Z60Z*M.3&969J 7EWTR7N.JB4*0B03R7E* **6*N 3PWI7LSS3ASN6 WA7SKD3U/C+ECN****.MRJ.0B12 ?F3R& .1F=2 ?T* B73SWT/PN * C\7FKO. KI*=B0+TCO6
2 2 ?F3R& .3B=2 ?T" 62.JB4*3B03I&=21&+23&+.2&*.MRJ.0J32 [I* A/I6)60R 3H;E6 KP7ISN6 OU3I
N* 6"*J.,/I* C\+GCO+TCO.4R0"0*M.4N025& 3FF *(	I*=B13TWH7NB 3R;I+TJ * * *"B;3\^ 7OR /OR .0B4.MRJ.0^36 KP7ISN* B"* J-";*M.4R020: 7ESX. OI* C\3P	R+NCT6,2 2 WN+XCT+IB27\B 3R;I+TB 3\: 7ESX. GI* C\3P	R+NCT* C\3P	R+NCT.MRJ.9&92 WR7TKUN*M.5B060J +ECM****2 WG3W;I+
6 2 WV7RWL+SCT****.MVJ.0B16 KP7ISN6 N"+ICE3HKA+EKN/MB(2)6"3UE3L;E2,R +ECR3C7O7PSU+ECR7HSA2 6"*(&16"WM3E3H+EKN.MVJ.0B22 [I* M.06)/MF(6)R 3H;E6 KP7ISN* *"**B*3UWN7NOT3C	H3EWD+N* **J** C\+GCO+TCO.5B1"0*M.5N020& 3F6 *(&0*>M*1B)3TWH7NB 3R;I+TJ ****2 	S3E" 3AWB
N^ 3E?W3NWN+N* **J** C\+GCO+TCO.5B1"0*M.5R060B 3R;I+TJ ****2 	S3E" 3AWB3N2 3ESI+ECR7VKE7LKO+ECN****""*M.5B160B 3R;I+TB 7\B 3R;IT6 .JR5*9B97RSE3U;R.MZJ.0B02 WR+M* **B*7A+N3A3H6 WM3E3H+ECN7BOE3T7I3M;E* **"**M.6F020?G3SKU. B9"060.JB6*2B07FKO. 7I*1B3+TCO61N 7
CE. F-.MZJ.0B32 ?G3SKU. F9"060.JB6*4B0+ICF+M"1/BF-.)J=2 T+ECN3MJ(*-&1*=M/BF-.)F+* C\/MF=.MZJ.0B52 WN+XCTI*M.6&969J 7EWTR7N.JB7*0B03R7E* **2*N 7OCM3UWT+R6 2 GW+HCL****.M^J.0B12 ;O* CS7GOO+UCB.7B5.0^,.6B0.,^7"060.JB7*9B97RSE3U;R.M^J.1B02 WR+M* **B*7SKT3AWT3
WI* B1****.M^J.1B12 [I. CZ*=B03TWH+NB 7GOO+UCB.7B9602 2 ?G2 ?T. F7"969.JF7*2B0+ICF/AF(.46)60R 3H;E2 [I. 7M61R 3H;E. 7Z*1B43\^ 7OR /O^ .1&9.M^J.1B32 [I. ;Z*1B43TWH7N* .="2*-CZ3\^ 7OR /O^ .1B5.M^J.1B4. 7Z+Z"+*164+Z*)"2*M.7V120& 3FF *(	Z.<B>2 T+ECN2 ?G3SKU. 
7"060.JF7*9B97RSE3U;R.M^J.2B02 WR+M* **B*7SKT3AWT3GWI* B2****.M^J.2B22 [I* A*1&4*=B03TWH3N& 3F6 *=B13TWH7N* .=R1* C\+GCO+TCO.7&2"9*M.7N220Z +OCR7IB=*(&02 ?T. Z2.M^J.2B42 [I* A3P&(.)6)60R 3H;E* P.06)/IF+* C\7ZB=*(	I* C\+GCO+TCO.7&2"9*M.7V220: 7ESX" 7I.JJ7*
B97RSE3U;R.M^J.3B02 WR+M* **B*7SKT3AWT3GWI* B3****.M^J.3B12 [I. 3F63R 3H;E2 ^ 7OWS/B^ .9B0* C\+GCO+TCO.7&3"9*M.7N320^ 7OWS/B^ .3B5* C\+ICF/Z6160R 3H;E2 ^ 7OWS/B^ .9B0* C\+GCO+TCO.7&3"9*M.7R360* .=FB* C\+GCO+TCO.7&3"9*M.7V320& 3FF .(R1.)B=2 T+ECN+ICF/MF=2 
+ECN/Z61*1B47\* .2F=642 2 ?G2 ?T. N7"969.JN7*5B2/I64+B"-/BF-2)J** C\/J61602 . OJ*=B07\* .1B=* C\/Z62602 . 7R602 . OR"=60.JN7*5B57FKO. OI*=B1+TCO*2B77\* *=P+I&3.M^J.3B62 [I* A/Z2)*>B03TWH/N^ .3B9.M^J.3V62 ?G3SKU. B9*0B03\* .2B=* C\/J64"0*M.7^320Z +OCR/IF=6
R /OF 6 SS+ECP"-61.JN7*7B57GOO+UCB.9B1"0*M.7^326& 3F6 21&(.46)62R 3H;E. KJ.=KJ*+B17\J +ECM6*KF3ESM3E6 3UE3L;E"**M.7^327& 3F6 21J(*-&A*=B23TWH3N* 24*=.4F+* C\3R7E2 V*3IWG+NCE3MWU3HWLN6*.JN7*7B87NE3T& .M^J.3&72 [I. 7Z*1B43TWH/N^ .3B9.M^J.3B82 [I. SJ.<B>2 T+
CN.7"3"5*M.7"321& 3F* .2B=2 T+ECN+ICF/R:<60R 3H;E. N7"960.JN7*8B2+ICF/J6260R 3H;E. 7R7Z2 2 ?G2 ?T. N7"960.JN7*8B3+ICF/J:2+JB13TWH7NJ *=CZ7\J .3F=* C\+GCO+TCO.7"3"6*M.7"324& 7FJ .3B=2 T+ECN7R*=* C\/R63612 2 ?G2 ?T. N7"866.JN7*8B5+ICF/J22*>B03TWH3N& 3F* .4:
60R 3H;E2 [I. KJ2>*=61R 3H;E2 [I. SJ2>*=63R 3H;E. GZ*=CZ7\* 62*=.M^J.3Z82 [I. KJ.>GJ2 T+ECN/J61+JB27\* 61*=* C\3R7E2 Z*3R7E+DCE3MWU3HWLN6*.JN7*8B7+ICF/J:4+JB33TWH3N* 23*=642 . KZ*=CZ7\J +ECM2*	E3G;E3E6 3UE3L;E"**M.7&320: 7ESX. OI.M^J.3&92 WR7TKUN*M.7B460J
+ECM****6 SS7RSA3E	G/ER * **"**M.7F420& 3FZ *<B33TWH+NB 7GOO+UCB.7B9602 2 ?G2 ?T. R7"969.JR7*3B07GOO+UCB.7V3602 2 [I. KZ*=B03TWH+NB 7GOO+UCB.7B9602 2 ?G2 ?T. R7"969.JR7*4B07Z*=622 2 ?G2 ?T. R7"969.JR7*9B97RSE3U;R.M^J.5B02 WR+M* **B*7SKT3AWT3GWI* B5****.M^
.5B12 [I. 3F63R 3H;E2 ^ 7OWS/B^ .2B0* C\+GCO+TCO.7&5"9*M.7J520^ 7OWS/B^ .3B5.M^J.5B32 [I. 3M*>B03TWH/N^ .5B6.M^J.5B4. 7Z7R2 2 [I. 7Z60R 3H;E. 7ZZ62.JV7*5B0+GCO+TCO.7&5"9*M.7Z520& 7F* .1B=2 T+ECN+ICF/Z6260R 3H;E. 7Z7R2 2 ?G2 ?T. V7"969.JV7*7B0+ICF/J:3+JB13
WH7N* .=KZ* C\+GCO+TCO.7&5"9*M.7"560* .=GZ.M^J.5&92 WR7TKUN*M.7B660J +ECM****6 SS7RSA3E	G/EZ * **"**M.7F620& 7FB *(&0*>B83TWH/N^ .6B4.M^J.6B22 ?G3SKU. J7*0B03\& 3F& .>&=2 T+ECN/PB(.)&=* C\+GCO+TCO.7R6"0*M.7N620^ 7OR /O^ .6&9.M^J.6B42 ?G3SKU. V7"060.JZ7*9B
7RSE3U;R.M^J.7B02 WR+M* **B*7SKT3AWT3GWI* B7****.M^J.7B12 [I* P.0:)68R 3H;E. ^7"365.J^7*2B07GOO+UCB.7B2602 2 [I. ;I*=B93TWH7NB *(&0*=B93\^ 7OR /O^ .7V3.M^J.7B32 ?G2 ?T. ^7"969.J^7*3B5+ICF/MF=2 T+ECN+ICF/AF(.46)60R 3H;E. 7Z*1B43\^ 7OR /O^ .7&9.M^J.7B42 ?G3
KU. N7"562.J^7*4B2+ICF/MF=2 T+ECN.7V7"0*M.7R724& 3F* .36>+JB23TWH7N* .=KZ* C\+GCO+TCO.7&7"9*M.7R766* *=CR3\& 7FJ *=B03TWH7N* .=KZ.M^J.7^42 ?G2 ?T. ^7"969.J^7*5B0+ICF/Z6160R 3H;E2 [I. KZ*=B03TWH7N* *=CR3\^ 7OR /O^ .7&9.M^J.7B62 [I. OJ2>*=61R 3H;E. 7Z+ZB23\
 7OR /O^ .7&9.M^J.7B7. 7ZZ61.J^7*9B97RSE3U;R.M^J.8B02 WR+M* **B*7SKT3AWT3GWI* B8****.M^J.8B12 [I. 7M61R 3H;E. "7"460.J"7*2B0+ICF/Z6060R 3H;E2 ^ 7OWS/B^ .2B0* C\+GCO+TCO.7&8"9*M.7N820?G3SKU. F7*3B03\^ 7OR /O^ .8&9.M^J.8B42 ?G3SKU. V7"060.J"7*9B97RSE3U;R.M^
.9B02 WR+M* **B*3Z[U3A3L* **"**M.7F960* 2=;I/TJ(67J*+ND*0&)"+61.J&7*2B0+ICF7A*(.):<60R 3H;E. &7"160.J&7*3B0+ICF/ZF=64R 3H;E2 [I. 7M60R 3H;E. &7"160.J&7*9B97RSE3U;R.M&J.0B02 WR+M* **B*7ISN3E;R7EV 3NWT7RKP7OKG3A7M+E* "*6*.JB9*1B03R7E* **2*. 21J 7ESS3I7M+ECN
***.M&J.0B22 [I. 3Z*1B53TWH3N. 21J=*(	Z* C\+GCO+TCO.9&0"9*M.9N020. 61*=6-*(.-R1.)J** C\/K613B.("16).JB9*9B97RSE3U;R.M&J.1B02 WR+M* **B*7ZSU3R[E3F;E+DCE3MWU3HWL3NF +UCF7A+N3A3H2 3E3EWM3NWT* CB7PWR3EWF+N* "*6*.JF9*1B0/K62+KB13\. 22.=.2J/+^CI3\6 .1B(.)B=* C\
M"1.16)"0*M.9J120& 3F& +NT+K&2*=B03TWH/N& .1&9.M&J.1B3. GK.=GK6-:2I*M.9R120Z +OCR/JB=2 ?T" 62.JF9*5B0+OCN3I^ 7OWS/B& .6F0.,Z9*022.9B6.3&,.6R0.,Z9*025.9B6.6&,.6^0.,Z9*028.9B6.9&,.6B1.,Z9*121.9F6.2&,.6N1.M&J.1B62 [I* A+I&2*=B03TWH/N& .1B8.M&J.1B7. GM*(A+I&2
-&1.=GM*(A+I&2*-&1"+61.JF9*8B07NE3T* .M&J.1&92 WR7TKUN*M.9B560J +ECM****2 3E3EWM3NWT2 WD3R6 3UE3L;E2 WB3S	T3MWM+N* "*6*.JV9*1B03D[E2 ;F7A"(*)"=7ISN6("(*-&1*/&3.)N*.M&J.5B22 WD3FZ +NB/X6)2(;I+T"(/XF-.)&/*)*)"9*M.9N520R +ECF3FON*(	X*=7X3FKN*(	X.M&J.6F0. KI2
;F7A*(.)F+*+CJ7\J 7EWTR7N.JZ9*0B2/I623FKN*(	Z*+7Z3FGN*(	Z*+*37J2 2 WR7TKUN*M.9B623& 22Z=+NC+Z.)29*** C\7RSE3U;R.M&J.6R0. KI2=;F7B*(.)F+*+*47J2 2 WR7TKUN*M.9B625& 22Z=+NB+Z.).3J+**CJ7\J 7EWTR7N.JZ9*0B6/I623FON*(	Z2+;F7B*(.)N/*+*67J2 2 WR7TKUN*M.9B627& 22Z=
NC+Z.)3FKN*(	Z*/.928*** C\7RSE3U;R.M&J.6"0. KI2=;F7C*(2)Z-+NB+Z>).9F+20*** C\7RSE3U;R.M&J.6&0. KI2=;F7C*(2)Z-+NB+Z>).3F+22*** C\7RSE3U;R.M&J.6B1. KI2=;F7C*(2)Z-+NA+Z>).3F+23*** C\7RSE3U;R.M&J.6F1. KI2=;F7C*(2)Z-+NA+Z>).6F+21*** C\7RSE3U;R.M&J.6J1. KI2=;F7
*(.)J+2*Z(+NB+Z>)*9.)27*** C\7RSE3U;R.M&J.6N1. KI2=;F7C*(.)R+2*Z(+NB+Z>)*9.)25*** C\7RSE3U;R.M&J.9&92 ;ED*MBZ

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