File DECODE.FT (FORTRAN source file)

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

+CB * B 6 KP7OKG+ACM3DOE3OWD*MBJ* B 2 R 3IWM3N	S+OCN3I?C+DE*52)7IWG7EOS*(25*2&06,OI7CKO/EV(.,B22)&,7POO*(&52MNJ2MNJ* B * B 3N3P2 : 3UKM+ECR+OCF3PGL7YKES*M+CB * B 2 OI3OWD* B 3CSO7ER 3OJ 3ER 3IOS3OWV3RSE2MNJ* B * B 7IWG7EOS2 ^ 7UOE7SOE2 ;E7TKE+ECD+BCY3TWH2
3P3AWYR*M+CB * B 6 OI7CKO+EB 3S?C+RCE7FKO2 GE+CCH7ESN3EWR3D^ 7UOES*M+CB * B 2 ON3R3C+RB 3N7U7BKE2 [O2 ?C3RWR+CCT3C3O7OKU2MNJ* B * B 7NKC7POO2 : 3UKM+ECR+OCF7CKO3ROE3TN 3O?L+UCR3ASN2 ?P7SSI3I;O2MNJ* B * B 7NWG7EOS2 : 3UKM+ECR+OCF3GWUS7S"J7C*JCC* B 2 Z 7IOR
T^ +ECT3N7U7BKE2 [O2 3P3AWYR7S"J7C*JB * B 6 KW3IWT*(24*2&7.MJJ*7B 2 Z 3O7R+AT2	V 3NWT3R: 3UKM+ECR+OCF3PGL7YKE/S6 "	6)*JB * B 2 WR+AD.4F,2): P7L*JB1* B 2 ?F3RGM3T&("16)*JB * B 2 [I*(" 6 CN+L: +L;E* B0*): +O;R* B(3N3P2 ^.+TB.*2& * B)7GSO/OV "2*M*2B * B 3C;O
T;IU7E*JB * B 2 [I2(: +PCL6.GE..F * B)7GSO/OV 2MNJ2MNJ* B * B 7GSE2 ?C+DCE3F?R3MZ 7IOR7TB 7L	AE7R"J7C*JB * B 6 KW3IWT*(24"46)*JB4* B 2 ?F3RGM+T^(2 ;E7TKE2 ?C/D7E""6)*JB * B 2 WR+AD.4N,2)& 3CSOE*M*3B * B 7FKO7MSA2(&5"16)*JB * B 2 ?G+TCO"8*MC*M+CB * B 2 WG7
KE3AWT2 ?C+DCE3F?R7MJ 3ASN+OCM3G;E3EGR7TKO" *MC*M*5B * B 3C;O3T;IU7E*JB * B 2 ?D* B7/I6 * 21" 65*JB * B 2 GC+LCL3R;A3FZ(+I	X*MBJ* B 2 & /X6 2 [I+IX7FI**:5"06)*JB * B 2 OI3OWD*(	I* B=I7X*JB7* B 2 ?C3N	T3NWU2MNJ2MNJ* B * B 3P	R+NCT3CSOE*MC*M*8B * B 3C;O3T;I
7E*JB * B 6 KW3IWT*(24*9B)3I?CD7E*JB9* B 2 ?F3RGM/TF(/XV,+I&12MNJ2MNJ* B * B 3M	A7NJ 7OSU3IWN2MNJ*MBJ* B 2 : 3GWU+SCS.=B 2MNJ2MNJ* B 2 Z 7IOR3T^ +ECT3GWUS7S"J7C.JB1* B 2 ?C3N	T3NWU*MBJ* B 2 : 3GWU+SCS2=: 3GWU+SCS.+F *MBJ* B 6 ^ 7RSI/ER(.,F1")*M*1B1* B 7FK
7MSA6("12,V	3NWT3R^ 7UOE+S^:")*M* B * B 3RGE/DR(*,&32(& 3GWU+SS* 3I2 
N7UOE+S& 2,& * B=*1B,*5& 2MNJ2MNJ* B * B 3EGV3LGU+TCE3GWUS7S"J7C*JCC* B 2 & 7NSI3I3A3IWZ2 ?C7USNS*MC*M* B * B 7NKC7CKL* B="0*M* B * B 7NKC7POO* B="0*M* B * B +DCO*1B4/I6 * 21" 65*JB * B 6 CI+OS+IB).=B .MFJ*4B 2 N 7OSN7IWNE*MC*M+CB * B 3I?P3SN 3OWDS6,*JCC*
B . B * B 3N	E3TWH7RB 3O	S3T?I7NV 3SSE2 ?F7RN 7CKOE*M+CB * B * B12 N 3OWD2 ?P7SSI3I;O6 OU+ECD7FKO2 OS3OWR2MNJ* B * B *2B 6 WG7EOS2 ?P7SSI3I;O6 OU+ECD7FKO2 OS3OWR2MNJ* B * B *3B 2 ?B+TCH3UWS3DZ +OCR3S?CR7E"J7C*JCC* B 2 	F7RSS6 [E7AWL3AWT2 	D3ROE3T" 7IOT2MN
*MBJ* B 2 R /OF 25& * B=*1B,"5*M* B * B +IF2 OI3OWD2(& * B)2.WN2.& 3GWU+SS* 3I2 
N7UOE+S& * B)7GSO/OF "5*M* B * B 3I?P3S&(.)6 " 63*JB * B 2 ON3R?P/S6 2 ON3R?P+S. " 61.JV1* B 2 ?C3N	T3NWU2MNJ2MNJ* B 2 : 7ESX6 [E7AWL3AWT2 ?C3RWR+CCT3C3O7OKUS*MC*M* B * B +DCO*1B8/I6 * 21" 65"J7C*JCC* B 2 C3E/C6 WG7EOS2 ;I3I	T3A	L7ZSA3I;O2MNJ*MBJ* B * B +
F6 CI+OS* CI*): +E;Q* B22)^ 3O?T. "1*MBJ* B * B +IF6 CI+OS* CI*): +E;Q* B32)^ 3O?T. "1*MBJ* B 2 R /OF 27* * B=*1B,"5*MC*M+CB * B 3CWH+CCK7FKO2 ?C+DCE3U	T7L+I3A	TO7N"J7C*JB * B 2 & +FB(3I?P+SB(+J& 2 V.+QB.*1& 2 ?G+TCO"167*JB * B 2 & +FB(3I?P+SB(+J& 2 V.+QB
*3& 2 ?G+TCO"167"J7C*JCC* B 2 C3E/C2 ?F3R" I7T"J7C*JB * B 2 & +FB(7IWG7EOS2(& 2,: 3GWU+SCS*): +N;E2 OI3OWD2(* * B)2)^ 3O?T. ^1*MBJ* B 2 : 3COR+LCR2=: 3COR+LCR.+F *MBJ* B * B +IF6 CI+OS* CJ*): +E;Q* B02)& 7POO2(* * B).=F *MBJ* B * B +IF6 CI+OS* CJ*): +E;Q*
B22)& 7POO2(* * B).=N *MBJ* B * B +IF6 CI+OS* CI*): +E;Q* B02)& 7POO2(& * B).=J *MBJ* B * B +IF6 CI+OS* CI*): +E;Q* B12)& 7POO2(& * B).=N *MBJ* B 2 ^ 3O?T. "1.MFJ*7B * B 3C;O3T;IU7E.J"1* B 2 ?C3N	T3NWU2MNJ2MNJ* B 2 Z 3O7R+ACT7ROE7USLS*MC*M* B * B 2 ?D. B2
 CI.=F .,V *MBJ* B 2 & 3S?C+RE* 3I2 
N7UOE+S& * B="0*M*2B0* B 2 ?C3N	T3NWU*MBJ* B 2 & +FB(7NKC7CKL2 2.+EB.*0& 2 ?G+TCO"262*JB * B 2 ?D. F2* CI.=F 2,: 3CORL7R*JB * B 6 OI7CKO+EB(+IB,7NWG7EOS* B).=F .MJJ*1B 2 N 7OSN7IWNE*M*2B2* B 2 ?C3N	T3NWU*MBJ* B 2 & +FB(7NKC7POO2 V.+QB.*0& 2 ?G+TCO"264*JB 
 B . GL* B=7NKC7CKL* B+"1*M* B * B +LB22=: 7CCR+OCS2+: 3CORL7R*JB * B 2 [I2(2 *2: +G;T* B52)^ 3O?T. B5*MBJ* B * B +DCO*2B3/I6 . GL2,2 "2*M* B * B 6 OI7CKO+EB(+IB,7NWG7EOS* B).=J .MJJ*3B * B 3C;O3T;IU7E"J7C*JCC* B 6 B 3R;I7TJ 7EWS7LOT2MNJ.MJJ*4B * B 3C;O3T
IU7E*JB * B 6 ^ 7RSI/ER(.,"2")*M*2B8* B 2 ?F3RGM+T^(6 WN3MWB+RB 3GWU+SCS6 N 7CKO+E&	*MBJ* B * B +DCO*2B6/L6 * 212 
N7UOES*M* B * B 6 KW3IWT*(24*2&5* 3L2(
I7UOE3S&(*,	L.,7I.1V,")6,*JB * B *$B * B * B * B * B 2 &(3S?C+RE3J2,2)*,*=21"56).JV2* B 2 Z 3O7R+AT*33X+I22*43X.5GI6,"32,&5"16).JZ2* B 2 N 7OSN7IWNE*MC*M+CB * B 2 WT+SCT7FKO2 WD3CSOE7D"J7C*JB * B 2 & +FB(7NKC7POO2 ^.+EB.*5& 2 ?G+TCO"360"J7C*JCC* B 6 R 7ES
2 ?F3R2 3I	M3T> 3F^ 7UOE7SOE2MNJ*MBJ* B * B 2 [I2(: 3GWU+SCS2.WG..J *0& 2 ?G+TCO"362*JB * B 2 ^ 3O?T. B12MNJ2MNJ* B * B 3W;I2MNJ.MNJ*0B * B 3C;O3T;IU7E*JB * B 6 ^ 7RSI/ER(.,F3")6 .JF3* B 2 Z 3O7R+AT2	N 3O
N7RSA3UGL3T?I+N3S2 ?Y3U" 3AWV6 KB3OWK7NR +HCE3CSO+E&	*MBJ* B 2 ^ 3O?T. R32MNJ2MNJ* B * B 7LOOE*MC*M*3B2* B 3C;O3T;IU7E*JB * B 6 KW3IWT*(24*3&3.MNJ*3B 2 Z 3O7R+AT6	N 7OKR+Y:.2.?Y3UN 3O3U3D: +OCT3GWU+SCS3TWH2 ?C+D
E")*M*3B4* B 3C;O3T;IU7E*JB * B 6 KW3IWT*(24*3&52(& 3CSO3E&(2)&,*=21*5& .MNJ*5B * B 7FKO7MSA6("12,&5"16)"J7C*JCC* B 3A?N3TWH3R^ 3AWM"?*MC*M* B * B 6 KW3IWT*(24*4&0.MRJ*0B 2 Z 3O7R+AT2	F 7NSO7HKE2 GG/M?E"	6)*JB * B 6 J 3ESA*(24*4&1I7G.JF4* B 2 ?F3RGM3TF("1
)*JB * B 2 [I2(& +G: +E;Q2 "1+Y& 2 ?G+TCO"2*M* B 6 ^ 7RSI/ER(.,J4")*M*4B2* B 7FKO7MSA*(B	3ESN2 [O6 WR+N&	*MBJ* B 2 ?G+TCO"969"J7C*JCC* B 6 KE7RKO2 WM3SGS7GOE2MNJ.MVJ*0B 2 ?C3N	T3NWU*MBJ* B 6 ^ 7RSI/ER(.,F52): 3COR+L3R7NKC7POO.MVJ*1B 2 Z 3O7R+AT6	B 3R
O3R7A6 KE7RKO*(2	+I25*	^/.,WI*,&	*	& *MBJ* B 2 ^ 3O?T. &9.MVJ*2B * B 3C;O3T;IU7E*JB * B 6 KW3IWT*(24*5&3.MVJ*3B 2 Z 3O7R+AT2	V 3R?R+RB,7I[N3A	L3DV 7NKT+Y&	.M&J*9B 2 N 7OSN7IWNE*M* B * B 3S?TP*M* B * B 3ESN2MVJ"M2JBZ

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