File PBLOCK.FT (FORTRAN source file)

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

2I?C3M?M3N: 7EKR2,WI7ROR2,OL2,OC"M&J3C7O3M;O6 	S3M&,3D&,3N7U2,;R+U3M3SWL+N3G+C3H7SKT3I
N"M&J3C7O3M;O6 SS3A/C2,?B3T?T7MR,+O3P7KSI+U3M3KWZ3IWG3R:,3IWD3K:,3Z	E7GKE"M&J3C7O3M;O2 OI60J,+C20/SCC.,CP.,CI.,CT6,CG3U/NT*M2I?C3M?M3N& 3CWZ3IWG7RJ,3CWZ3IWG7RB,3Z	E7GKE6,+I3E
I+E3R3TWZ3IWG7RN,3CWZ3IWGR*M2I?C3M?M3N& 3CGT7BJ,3CGT7BN,3CGT7BN,+C3Z3PGT7BB,3Z&,3TKA6,+I6,ST+A3BT7Z2J&I3NWT7GKE6 WP7NSK6,CG3U/N3T:,3P;U+K3T3I/N7IWT3M&,3N	K2,;I/KCI2,;I/KGI"M&J7ISN3EWG3R: 7EKR2,WI7ROR.(F6*,&32,OL2,OC"M&J7ISN3EWG7RN +Y3M+I3D7IWN7MN,3L;E3GN,
HN,3T	R+NG*8&0"M&J7ISN3EWG7RN 3TOA/KJ(*0&02,?B3T?T/MF(*02)7TCO.(B12).,7IWT/MJ(*020"46)2J&I3NWT7GKE2 	N3D/E.(B1.0J,2):,3Z	E7GKE2,OI60J,+C20/SCC.,CP.,CI.,CT"M&J7ISN3EWG3R& 3CWZ3IWG7RJ,3CWZ3IWG7RB,3Z	E7GKE6,+I3E
I+E3R3TWZ3IWG7RN,3CWZ3IWGR*M2I;I3T
E+ECR7ISC+AB.2B06)N,3CGT/BJ(*0&02,OS/ZV(*02)3PGT/BF(*0&06,+P.(B5")*M2I;I3T
E+ECR3IGT/BF(*0&06,+I.(B56)R,3TKA.(B4*02)+TZ*5&0"M&J3RGE7LJ 3N7U2,OR3TKA.(B5")*M2I?L3GOI+ACL3LWE3RR,3DJ,.MFJ2I?F3RGM3TF("2&)3;I7TKE3N& 3NWT7GKE.MJJ2I?F3RGM3T&("6&)7E7TKE3N& 3NWT7GKE.MNJ2I?F3RGM3TF("6&)3;I7TKE7NJ 3E3A.MRJ2I?F3RGM3TV(*1:5"7&)7E7TKE7NJ 3E3A.
VJ2I?F3RGM3TF("1&)3C3AGR3CWTR*M26ZI3O7R+AT28F0"1&)3	LN7E6J^I3H3I+E" 7GWP7NSK2.WN*.&0"M&J7GSO+O" .1F0.,B1.2F,*023.1R0.,B1*5B)7GWP7NSK.MFJ"0&13C;O3T;IU	E3J"3E	G7NN *;:.2.V +NCD3BGE+R;B"M&J3C3A7LN 3B?LC7K2J^I3O?T. &1"9*M.1J02I?C3N	T3NWU2IK3E	G3N> 3FR 3E3C3AG
3T?IN*M2I[I6(	S3MV./QV."5&)3?C7NSS"M&J2 N 3A3L2 WG7T	SM*M*IB 3W	H+LE3S7Y6.GE*.&12I	3D;ET*M*IB 2 J 2=SD2(SI7ESN")*M*IB 2 & +F" +BB)3C3A3LZ 3AGT/LF(*0&1"M&J* B 2 GC+LCL7GSE3S7Y"M&J* B 2 [I6(	S3MV./QF."6&)/6"""*M*IB * B 2 GC+LCL7GSE3S7Y"M&J* B 2 3ES7E*JBI* B
2 & 7FN(+Y;M+E;Q*2&4*IK":6""J&I3C3A3LZ 3E3H.(Z1")*M2INI3A3L2 WG7T	SM*M*IB * B 2 3ES7E"J&I3C3A3LZ 3AGT/LF("66)*JBI* B 2 V 3N	DF*M*IB 2 V 3N	DF*M*IB 2 & 7FN(/Y3M*2: +O;R6 	S/MV>2)N 3A3L2 GF3T3A.("1"36)*JBI* B 3C3A3LV 3NWT"M&J* B 2 GC+LCL7GSE3S7Y"M&J* B 2 [I
(	S+M: +E;Q. N22)BI*"J;"M&J* B * B 3C3A3L^ 7EOTY7M*JBI* B 7EOLE*M*IB * B 2 [I6(	S3MV./Q^.2)BI*"J,"M&J* B * B 2 N 3A3L2 WG7T	SM*M*IB * B * B 3C3A3LZ 3E3H.(R1")*M*IB * B 2 ;E3D[I"M&J* B 2 ;E3D[I"M&J2 V 7N
D3H3IE*M2I;E3D[I"M&J+ICF6(	S3MV./Q^."6&)7R"3YWP""*M*IB 3C3A3L^ 7EOTY7M*JBI2 W3IWL6 N(+Y;M+E;Q"1&)3SI7ESN"M&J* B . 7B+DD3IWD+N	T"M&J* B 2 [I2 J(2)N 3A3L2 GF3T3A.(B1"16)*JBI* B 3C3A3L^ 7EOTY7M*JBI* B +ICF6(	S3MV./QF."6&)3^"3L	E+CKH"M&J* B * B 3C3A3L^ 7EOTY7
*JBI* B 7EOLE*M*IB * B 2 [I6 N(+Y;M+E;Q*2&42IB *"J:"M&J2IGC+LCL3FE/LF("66)"J&I3C3A3L^ 7EOTY7M*JBI* B 2 V 3LWS"M&J2IGC+LCL7FSA+AL*1&6"M&J* B * B 3ESNI7F*JBI* B 3ESNI7F*JBI* B 3C3A3LV 3NWT"M&J* B 2 GC+LCL7TCY3ESN3E3K3AGR3T?IN*M*IB 3ESN3W	HL7E2JVI3N	DF*M2I[I
 N(+Y;M+E;Q*7&8*IK7VKA""*M*IB 3C3A3L^ 7EOTY7M*JBI2 W3IWL6 N(+Y;M+E;Q"1&)3SI7ESN"M&J* B . 7B+DD3IWD+N	T"M&J* B 2 [I2 J(2)N 3A3L2 GF3T3A.(B1"16)*JBI* B 7KSI+UM3KWZ3IWG/RF,2)&=3D;ET*M*IB 2 . 7IWT3M.(3Z	E7GKE*,&2"=&57Z"+AKR"M&J* B 6 +K3E
I/E7R3KWZ3IWG/RF+"M&J* B 2 [I2 .(3Z	E7GKE6.GE..B2*0B)3C3A3LZ 3AGT/LV(*2&02I/7MA"M&J* B 2 GC+LCL7GSE3S7Y"M&J* B 2 [I6 N(+Y;M+E;Q*2&4*IK":6"*JBI* B 2 N 3A3L2 WG7T	SM*M*IB 2 V 3LWS"M&J* B * B +ICF6(	S3MV./QF."6&)/6"""*M*IB * B * B 3C3A3LZ 3E3H*(&5"M&J* B * B
2 N 3A3L2 WG7T	SM*M*IB * B 2 3ES7E"J&I3C3A3LZ 3AGT/LV(")*M*IB * B 2 ;E3D[I"M&J* B 2 ;E3D[I"M&J* B 2 GC+LCL7TCY3ESN3E3K3AGR3T?IN*M*IB 3ESN3W	HL7E2JVI3N	DF*M.1N02I[I6 N(+Y;M+E;Q*6:2+O;R3S7Y6.GE..B72)^ 3O?T. B124BI3P?R3C> 7DKE6 WFN7T2J&I+F" 3S7Y6.GE..N52)BI3

EI7N*JBI2 GC+LCL7EOR7E+T+EN.1F,")*M2I3ES7E*JBI2 GC+LCL7FSA+AL*1&7"M&J3ESNI7F2J^I3O?T. &1"9*M.1R02I[I6 N(+Y;M+E;Q*6&22I[3UON3T?IN*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I6 N(+Y;M+N;E*1B)3C3A3LZ 3AGT/LJ(2)BI3IWDN7T*JBI. 7B+DD3IWD+N	T"M&J2 & +F" +BB)3C3A3LZ 3AGT/LF(*0&1
M&J2 . 7IWT3M.(3Z	E7GKE*,&12=SI7ESN"M&J2 . 7IWT3M.(3Z	E7GKE*,&2"=68*JBI2 ;I/KGI6=+K3E
IE7R*JBI6 +K3E
I/E7R3KWZ3IWG/RF+"M&J2 . 7IWT3M.(3Z	E7GKE*,&12=SI7ESN"M&J2 . 7IWT3M.(3Z	E7GKE*,&2"=67*JBI6 +K3E
I/E7R3KWZ3IWG/RF+"M&J2 & +F" 3KWZ3IWG3R^./EJ.*0&02 GC+LCL7FSA+AL.5B22)BI3KGMX*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7PKA3AWM7TKE7LOIT7E*JBI2 [I6 N(+Y;M+N;E*2&42 GC+LCL7FSA+AL"5&)/*"""*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I6 N(+Y;M+N;E*1B)3C3A3LZ 3AGT/LJ(2)BI3IWDN7T*JBI2 
I/K7I3I/N7IWT3M&(3D;ET6)*JBI2 [I2 &(3N	K2 V./QB.2)N 3A3L2 GF3T3A.(B1"46)*JBI2 [I2(	K3T7U2(;I+K3I*2:)+N;E*3B)3C3A3LZ 3AGT/LF(*0&3"M&J2 . 7IWT3M&(3N	K.1N,2).=7IWT3M&(3N	K*,&3"M&J2 . 7IWT3M&(3N	K.1R,2).=7IWT3M&(3N	K*,&4"M&J2 N 3A3L2 WG7T	SM*M*IB +ICF6(	S3MV.
QJ."3&)/."""*M*IB 2 N 3A3L2 WG7T	SM*M*IB 7EOLE*M*IB 2 N 3A3L2 WF+HL*1&4"M&J* B 2 [I6 N(+Y;M+E;Q*7B)3C3A3L^ 7EOTY7M*JBI2 ;E3D[I"M&J7EOL3EBI3P?R3CSE3UWR"M&J2 N 3A3L2 WG7T	SM*M*IB +ICF6(	S3M:./EF.2)N 3A3L2 GF3T3A*(&22I	3D;ET*M*IB 3BR=3D&(D6)*JBI2 [I2 J(2)N 3
3L2 GF3T3A.(B1"16)*JBI2 	K3T7U6(+K3E
I+E3R.16)3IWDN7T*JBI2 	K3T7U6(+K3E
I+E3R.26)"6*M*IB 3KWZ3IWG3R.=3Z	E7GKE"+61*JBI2 [I2 .(3Z	E7GKE6.GE..B2*0B)3C3A3LZ 3AGT/LV(*2&02I/7MA"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A7LB 3AGR7MSE3E3R7ISSE*M*IB +ICF6(	S3MV./QJ."3&)/."""*M*IB 2 N 3A3L2 WG7T	SM*M*IB 7EOLE*M*IB 2 N 3A3L2 WF+HL*1&4"M&J2 V 3N	DF*
2I;E3D[I"M&J3C3A3L: 3E3W3EWVL*M2IGC+LCL7EOR7E+T+EN.5F,")*M2IGC+LCL3E;I3K3E7LKE/NF(*,&1"M&J7GSO/OF "969.JB125&I+F" 3S7Y6.GE..N2")*M*IB 3C3A3L^ 7EOTY7M2JVI3LWS"M&J2 N 3A3L2 WF+HL*1&4"M&J3ESNI7F2JNI3A3L6 KE7SSE3Z;E*(23"16)2J^I3O?T. B1"3*M.1&92I?C3N	T3NWU"M&J
ESN3W	HL7E2JVIN7D&J*L

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