File GMMMA.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN2 7G3MGM2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7OCM3UWT7SR +HCE3G7A+MCA3F;U3C	T+OCN7FKO* CA7G[I+ECN3A
R3UWMN7T"J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 7G3MGM6(X6,G2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B 6 X6 R-+HCE3A
R3UWM+NCT7FKO2 T3E^ 3A7M3AZ 3UON3T?IN*M+CB * B * B * B +GCX2-T7EJ 7EWS3LGT+NCT3G7A+MCA3F;U3C	T+OCN3V3AU7E*JCC* B * B * B 2 WI7RJ-7EWS3LGT+NCT7EKR+OCR3CSO7E^ 7HKEE*M+CB * B * B * B * B 2 WI/RB=2 : 3OV 3R?RR*M+CB * B * B * B * B 2 WI/RF=6 " 3X& 7S^ 3IT+ICN.
B0.0B021> 3FJ 3E;I3GF 2 WN7GSA3IWV2 ;I3T
EE7R*JCC* B * B * B * B 2 & /E7R*2B +XCX+GCT*5276 [O3E[R7L
O2,^ 7XN +ECT+TCO.1B./EV72MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3TWH2 WR7CKU3S?I7NJ 3EGL3T?I3NF +
CD3P3O3Y?N3MGI3LF 7PKP3O	X7MSA3I;O2MNJ* B * B * B 2 J 3YN 2.GH3S	T7NOG6,KJ*.B,6	CA3P?R3X7I3A	T7OON2 ?F3RR 3I	G3T3A2 ?C7MWP7TKE+S2	2MNJ* B * B * B 6 B 3R;I7CSE+OCN3U	N7VKE7SSI7YB 7ROE+SB,.1V9"5*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.
.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 7G3MGM6(X6,G2,WIR6)*JB * B 2 [I6(X.-^5..Z)*,26"4*M* B * B47IKE"=62*JB * B 6 G*=:1.7OE*8B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B "0*M* B * B 7RS
3U;R*MBJ* B 66" 6=X*MBJ* B 2 V /R7R.1B./EZ-*MBJ* B 2 & /E7R"0*M* B * B /G7X.1B.*MBJ* B 2 & 7F"(*-:2.0V).0V,.0F,"5*M* B *1B0+IF/XJ-*.&0.1B1.,F1.0F,"5*M* B *1B57X"=*-:1"0*M* B * B /G7X+G+XX*M* B * B +GCO+TCO"160*JB . B52 [I*(7X.1B..)B6.,J1.0F,"160"J7C*JCC* 
 * B 2 WS3E& 7F" 6 OI2 WN+ACR3N
E3A	T+VCE7ISN3EWG3R> 7R* 3E?R2MNJ*MBJ. Z 20& 7F"(6-KE/RZ).2Z,.2","0*M* B *6B23YZ=3LGO3T&(+NT+X&)"-7X*JB * B 2 [I2(KA7S&(2)V-+R	R.1B3.,N1.0Z,"4*M* B *6B4+IF.1B.*-7Y7EKR.)N1.0F,*320"760"J7C*JCC* B * B * CX7NSO2 WN+ACR3A: 3EGG7T[I3E& 3NWT7GKE6 KO2 WZR7O"J7C*
B . B72 [I*(7X.1B..)B8.,B8.,F1"0*M* B *8B0/G7X+G?XX*M* B * B 7X"=*+:1"0*M* B * B +GCO+TCO"760*JB .1B1. 7Y/XF-".60*JB * B 6 	G*=:160&+**6(.0V..7F7.0^1*++Y.(B+.."9.5V8*4.0+Y"**-:0.8Z7.4F268&+**.(.0"..3"2.2J1"+*M* B . F +Y"**-:0.5"6.4J769&+**.(.0J..5"4.2V0*+
Y.(B-..V0.1&4.9B3*)&)*)&)")*M* B * B /G7X+G+XG7Y*JB .1B22 WR7TKUN*M. F *3B07IKE"=61*JB * B 2 WR7TKUN*M* B * B 3ESN&M*J"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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