File FOCINT.PA (PAL assembler source file)

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

2/;I3I	T+ACL3DGI3L
O+UCE7FKO6 OP*/B83FOOA7L"J*M.IF*"7662J&I7NSI"M6J*J*I.4B0"0*M3I	NT&,3TSA6 R(7ECLC7H2JRI+CCA.1Z7"M&J3DGC2 WT7L
S"M&J3C[D"M&J3TSA* CI.(B2*7>I7M[O3E2 3E
N+TCH+OCF3I	N3TGI3LR 3I3A7OWGE*M2ISC/FF "0*M2IOD3AJ 7UKF*I"/7JOU3T& 3NN 3AWS")*M2I?IN*M6IWP3S+H"M&J2I?D"+612J&IO7F6JRI+ACD.(N4"0&0*/N"+B"7FKO6 	S3SWT7MN 7TSAU7S2J*I+MCS3L?O7KCU"M&J3CGL2 3C3LN M7A6JRI+ACD/PGT"M&J3DGC6 SP"1*M2I	FN	T2I^/+ECT7SOY3T7E6 SS7AWT7
Z 3A	R3A3BE*M2I
F+ECT7IB T612JZI7PSU2 ;I3I7T+P>I7S[A3E& 3TZ +OCR7LSAE7R2JZI7ESX"M&J3TSA2 3F+A/C*1>I+ICF+I
T7S* 3E?R2,& 7NSI3I3A2 	D3A?L3GWU2 GW+S
N7TR 7HKEE*M2I;S3AN L7A2J*I+MCP3SOE7RSE2IF/7SWS+MCE3SGT3NGD+RCD3FGE7TKUE7S2JC3K?LG&,3TSA. F("0&02/F"+B"2(WK+ECP3S;I* B&7COO")*M2I7J3S2 3O/OU7P6JNI+ZCA3CGL"M&J7JCM2 C3K	SN*M2I7J3SN 3H;AG	E2/	K+LCL3A3L6 E3T;E3DSE6 WF7NSC3I;OS*M6INI3IGN+D7D"1*M2IGT+D" 3XGT/B
-6IN/+ECT7VKA3IKA+LCE7BSO3T7O"M&J7JCM2 C3K	F/LF-2MNJ7HOK+I3N2IGT+D" .2B0*IJ/+BK2 .(7ECE2 3A3LZ 3UON3T?I+N	S"M&J7JOM2 ?L7OWKP*M6I+S3AN L7A2J*I+MCP3C/H3F3I"M&J7JOM2 C3A
N+E>I3K3I3L2 +O3G6 E+PB,3A;T"M&J2I?L3GSA/DF-"M&J3TSA. V(.1^72IF/+NCD7ROE+ECT7BSO3T7O"M&J3DGC2 ?B3T?TM*M3C/H3F3I6,RI+ACD.(B4*0>I2"CD*"" 3F3I3EN 3O7M3ASNS6)2J*I+MCS3L?O7KCU"M&J3SGZ2 3CA*M2I7J3PN 7HOKP*M2I7J3SN 3H;AG	E2/	K+LCL3F3I3EN 3O7M3ASNS*M2IZI3IGL+D7D"
*M3C/H+S3P2IGT+D" .5B0*IJ/+EK2 2(3ESA3I
N6 CS3AWC2 ;I6 	T+PCE3[?F3RZ 3IWL+S	]"M&J7JOM2 ?L7OWKP*M6I+S3AN L7A2J*I+MCP3C/HE7Q2J*I+MCS3CGH3NWG"M&J6ICS3ASD"-612JC7KGE6,RI+ACD.(B7*0>I2"CG*"" *	^=2 ;I6 	T+P	E"M&J7JOM2 ?L7OWKP*M2I;S3AN L	A6IJ/3EWV3RWS2 WS3NWS2 ;O2 ?N7NN-3T;A7DKA3DZ 7ESA3UWRS*M2I7J3PN 3
OKO7L2J*I+MCS3CGH3NWG"M&J6IGE3ASD"-612JC3K?CL&,3TSA. F(.0B0*IJ/+HK2 Z(+OCR*	^:2 ;I6 OAK6)2J*I+MCS3L?O7KCU"M&J3SGN2 3CA*M2I7J3PN 3HGKM7P2J*I+MCS3CGH3NWG"M&J2I?C3LSA/DF-2MNJ3HGK+M3P2IGT+D" .1B1*0>I2"CI*"" 7FKO* B&7ION3TGE3D> 3FV ")*M2I7J3S2 3O/OU7P6JNI+NCA3
GL"M&J7JCM2 C7KKPC*M2I7J3SN 3H;AG7E"J&I7ACM3ASD"-612JC7KKPC&,3TSA. N("0&02/N"+B"6(E3T;E3DSE6 KP3E	C3S?IN6)2J*I+MCS3L?O7KCU"M&J3SGZ2 3CA*M2I7J7PN 7EKCE7T2J*I+MCS3CGH3NWG"M&J2I?F3RSA/DF-"M&J3TSA* 6("3612JRI+CCA3L?O7KCU"M&J3TSA. ^(.2B7"M&J3DGC. B1"M&J3TSA2 Z
3O[R+I7N"1*M2IOD/AF "1*M2IGT3D& . F1"M&J3DGC* CI"1602J&I+SCZ3L?O7KCU"M&J7JCM* 6."3*M3SOE7RSE6,RI+ACD3ESN"M&J3DGC2 GL7S[T2IV/7ROA7EZ 3A	R3A3BE7S6JRI+ACD.(F4"0602J*I+MCS3L?O7KCU2IN/3RGE+TCE3TWH2 T3RWE2 WS3CWR7TZ 3A	R3A3BE7S6JRI+ACD.(J4"0602J*I+MCS3L?O7KCU"M
J3TSA. R(.3B0"M&J7JOM2 ?L7OWKP*M2I3C3AN +LCL3CGM"M&J3TSA6 SP"1*M2IOD7AB T&12IJ/3A/C+UCP/PGT"M&J3F;IT&I2/WR3S?T+RCE7SOY3T7E2 WS3CWR7TZ 3A	R3A3BE*M2I
F+ECT3I	N7TCM"M&J7FWP3T& 6 SP"1*M2IWFX7T6JRI+ACD7LOAT7V2JRI+CCA3ESN*I>I3M/A7ER 3H7E2 WS3CWRT*M2I7J3P& * .."1*M.IJ2"1&42IV/7ROA3EF +LCL7TET*M2M&J7NSI+M3P2IKZ3LOO/KR 2I"/3OSL3I
N6 KA+ECA7FKO* N	"	*M"M&J3P
AE*M2L?L7OWKP&,"0*M2IOD3AF D7D6JBI3USJ*M2I^IS612J&I+SCZ/PGT"M&J3TSA* CI/PGT6IB/3I/C6 CU2 	F7RSS2 	S3G	N3FOI7ASN2 ?WR7D2J*I+MCP3I2 3O/OU7P"J*M3CGH3NWG.,BI"M&J3TSA* CI3CGH3NWG"M&J7I+S2 C3A
NE*M2IOD/AF "0*M3C?L+O3P2IGT3D& . B1"M&J3SGN"M&J7JCM* CI3CGH3NWG"M&J3DGC. KT"M&J3TSA* CI"1602JRI+CCA7IR "2*M2I7J3PN 3L?OP*M*M>J3TWH+SCE3AWR2 T3E2 7ISS7SR 7OB 3AOT3HZ 3OGC7LR 7O& 7OKU6 WC3S?T7M+I+ECD3SWPC7S"J*M7FKO3ASD.,^I"0*M"I65.JFI"167.J^I.7V7"M&J.5J5"6
M.I^7"762.JVI.5^2"M&J"7*M.IN5"160.JNI.7Z5"M&J.5F3"4*M.I^3"566.JVI.3B2"M&J.3V7"6*M.IF6"463.J^I.7F7"M&J.6^2"7*M.IF3"467.JZI.4J0"M&J.3R0"7*M.IV6"460.JNI.0N4"M&J.6N7"6*M.I^2"M&J.7N0"6*M.IJ5"663.J^I.1V0"M&J.2R0"7*M.IB7"762.JNI.0^4"M&J.7Z2"0*M.I^7"561.JBI"M6J2J
F3R	FN&,.1R0"2*M.IB1"466.JNI.2Z5"M&J.7B0"4*M.IB1"465.JFI.0F4"M&J.7J4"0*M.IN5"064.JNI.0V4"M&J.1V2"6*M.IB3"466.J^I.2B0"M&J.1V2"4*M.IB7"064.JNI.2R5"M&J.1B2"0*M.IB7"064.JNI.2B0"M&J.2V2"5*M.IJ5"667.JFI.2R5"M&J.3R0"6*M.IJ1"060.JNI.0V4"M&J.5Z6"1*M2MZJ3IGL+D3D6IW
3SKH*I>I7PSA+CCH7POUH7B2J6I7POU+H7A.1F+"3*M6IWP3SKH"1&I2/GP3TC6 WP3SKH"1*M.IV5*7.6"163.JFI.2F0*I>I7PSA+CCH3C7OG7O.JJI.7V2"M&J"0*M6MNJ3IGN+D3D.IB4"5*M.I^2"265.JRI"066.JJI.7V22M2J3OGG+D3D.IB4"2*M.I^2"265.JRI"063.JJI.7V2"M&J.4R0"M&J.2J7"5*M"I60"J*M3C3O3ASD.,
I.2Z1"M&J.1^3"1&I6/R	+ACD3A	L+S
T"M&J.1F2"7*M2I7J3S& 2 OE7HCO"M&J"0*M6MNJ3PSAD&,.6B0"1*M2I3C3AN L	L2IR/+O
N7TB 3R;I3T2 3ESA3I
N6 CS3AWC"M&J.6B0"2*M2I3C3AN L7L.JBI"M6J6JGE3ASD.,ZI.0F0"M&J.1N3"5&I6/R	+ACD7PGE"	*M.IB6"0626JBI3R;IT7C.JZI.1V3"M&J.0^2"5&I6/KP7ISN2 WL3A	D+NCG*	^="M&J"0*M2MFJ3MGP+D3D.IZ5"662.J^I.5J3"M&J.6N1"3*M.IR2"6*M.IN6"061.J^I.5J3"M&J"0*M"M&J3P
AE*M&L*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