File PCM2B.PA (PAL assembler source file)

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

2*GP/RGT2M&J3TGR+N3S" 60*JB * B * B 7JOM* CI3L	C7NSI2M2J3COP+MB," 60*JB * B * B 7JOM* CI3L;II7T*JB * B * B 3D	SZ7E2JSL3P7C*,B "0*M* B * B 2 * +MCS3I2 7ICNS7P6JCL+S3P* B "0*M* B * B 2 * +MCS3I& 3TGRN7S6JSL3R;A+SB,"0*M* B * B 2 * +MCS3I2 3COPM*M* B * B 2 * 
MCS3I2 7PCS*MBJ* B * B 2 7J3S& 2 SL3P7C*MBJ* B * B 6 OD3IWZ*MBJ* B * B 2 7J3P& 6 SL3R;AS*M"M6J2JOL3I	N+TB,3C;II7T2J	L7NSI*,B 3I	NT*M3L;I7PCS2,& 7NOPP*M3D	S+Z3E. B *MBJ* B * B " 60"J*M"M6J"J*M2*GP/RKT2M&J7NOP+PB," 60*JB * B * B 3CGL*MBJ* B * B 2 GT3D: U7M*
B * B * B 3CGI*MBJ* B * B 2 OD3AN 3UKR+ICT2/;I7TKE3MSE7ISA7EV S7E*JB * B * B 3TSA2 3F7ASGB*M* B * B 2 R +CCA3FGL3GSA*MBJ* B * B 2 OD3A& 2 3F3AGGD*M* B * B 2 & +SCZ3FGL3GSA*MBJ* B * B 6 OI3ZN 3UKRI7T*JB * B * B 7JCM* 6."3*M* B * B 6 N T7A*JB * B * B 3TSA6 
NM*M* B * B 2 R +CCA3S	HF7T*JB * B * B 3TSA6 WNM*M* B * B 2 N I7A*JB * B * B 3DGC2 	B7TKN*MBJ* B * B 2 7J3S& 2 	L7EORK7P2JWL3R/S+PB,"0*M* B * B 2 * +MCS3I& 7NOPP*M7PCS*,B . B *MBJ* B * B 2 OD7A^ 3OSR* > 3I	N3TF 3FWT3RV 7VKE7Y^ 3OSR*MBJ* B * B 2 OD3AN 3H?W
7D*JB * B * B 3TSA2 	B7TKN*MBJ* B * B 2 OD3AN 3UKRI7T*JB * B * B 3TSA2 3F7ASGB*M* B * B 2 R +CCA3FGL3GSA2MJJ3E	G+NB,2 7J3S& 2 WL3R/SP*M* B * B . V *0B 2 V/3RGR+R;G2 T7ROE3H3O3D> 7RB 3E	RO7D*JB * B * B 7JCM2 ?N7EKR*MBJ* B * B 2 3C3A& A7C*JB * B * B 3DGC* C
3FGL3GSA*MBJ* B * B 2 GT7D^ 3OSR*MBJ* B * B 2 3C7LJ A7R*JB * B * B 3C3M*MBJ* B * B 2 7J3PV 3N;DE*M3NWO+R3R2 N L7A*JB * B * B 3DGC* CI3FGL3GSA*MBJ* B * B 2 GT7D^ 3OSR*MBJ* B * B 2 3C7LJ A7R2J;E3DWN*,B 3DGC2 ?WR7D*JB * B * B 3TSA2 C7WKOD*M* B * B 6 J A7R*JB
* B * B 3DGC2 C7WKOD*M* B * B 2 & +SCZ3FGL3GSA*MBJ* B * B 6 OI3ZN 3UKRI7T*JB * B * B 7JCM2 WB3G;I*MBJ* B * B 2 GT3DN 3H?WR7D*JB * B * B 3M3Q2 S+LB 2/S7ISF2 C3A
N+ECD7WKO3D& 7NJ 3IG7TB 3O	S3T?IN*M3S	H+F3T. B *MBJ* B * B 2 7J3P& 6 OPP*M3LWI3R/S3P&,7NODK7P2J3F7ASG+BB,3FGLG616JWN+MB,* B *2B * > 3N7U7BKE2 [O2 	B+TCS+ICN7WKOD*M7BSI+N3R. B 6M^J3OSR*,B " 602JC7WKO+DB,"0*M7CKU7BSI.,B 2MZJ3L
A+A3D" 60"J*M"M6J"J*M3ISN7SCK.,B *MBJ* B * B 2 3CA*M* B * B 6 R +ACD3G;OU7M*JB * B * B 3CGI*MBJ* B * B 2 OD7AB 3E	RO7D*JB * B * B 7JOM* CI3ISN7SCK2MRJ7SCK*,B " 60*JB * B * B 7I+S2 WP3R?ID*M* B * B 2 * +MCP3W	ET*M* B * B 6 R +ACD3IR 7SCK*MBJ* B * B 2 OD3AR
I7V*JB * B * B 3CGM*MBJ* B * B 6 GM3LR V7I2J	D+VB,* B "0*M* B * B 2 N +LCA3MGQ*MBJ* B * B 2 	CA*M* B * B 2 R +CCA7PKE3ISO*MBJ* B * B 6 OI3ZR 7SCK6M^J7ESI*,B 6 OI3ZR 7SCK*MBJ* B * B 2 7J3P& 6 ODK7P2J?G3N7U*,B .1B0* B * B 2 &/3NWT3RGV+LCL7ASF+ECR3SGTR7T2JWP
R?I+DB,"0*M"M6J"J*M"M6J2JKI7UOR+TB,"0*M* B * B 2 * +MCS3ISN7SCK2M2J3D/S+PB," 60*JB * B * B 7JOM* CI7LOI7SCK2M2J3S/S+PB," 60*JB * B * B 3CGL*MBJ* B * B 2 GT3D2 3E
NT7H*JB * B * B 3CGI*MBJ* B * B 2 OD3AN 3U3RE7N*JB * B * B 3CGM*MBJ* B * B 2 OD3AN 3O;U+TB22 &/7NSI2 ?C7USN* B2+TCO.7^7"7*M* B * B 2 R +CCA3B3FA7G*JB * B * B 7JOM* CI7IWB7RSS2MJJ7UOR+TB," 60*JB * B * B 3TSA* CI7BKUS7T*JB * B * B 3DGC2 WPR61*JB * B * B 7I+
6 WB7RSS*MBJ* B * B 2 GT3DJ 3FGLG*M* B * B 6 N +ZCA3CGL*MBJ* B * B 2 7J3PJ 3U
RE7N*JB * B * B 7JOM* CI7LODK7P2JWP+R21* B *0B * B * B * > 7PKE3ISO2 ?F/RF +SCT7CWO3NWT+RB,7SSE6 KF+OCM7PCS*MBJ* B * B 2 7J3P& 6 WB7RSS*MBJ* B * B 6 OI3ZN 3O;UT62*JB * B * B 7JCM* CI7BKUS7T*JB * B * B 3CGL2 GIC*M* B * B 2 R +CCA3B3F+ACG6 N/+ECT7BKU3S[T3L
A*MBJ* B * B 2 GT3DZ 7ASKO7R*JB * B * B 3CGI*MBJ* B * B 2 OD3AN 3O;UT626JWB3RWG+NB,7I+S6 WC3RWLN*M* B * B 2 * +MCP..V+*MBJ* B * B 2 OD3AJ 3FGLG*M* B * B 6 R +ACD3L;E3GT*MBJ* B * B 2 	CA*M* B * B 2 R +CCA7CKU3L;E*MBJ* B * B 2 7J3S& 6 OL7SCK*MBJ* B * B . B4
0B0* B * B 6/KP3OGB3B3I7I	T2 ?F3RV +RCR+ICN7BKUS7T*JB * B * B 7SCK*MBJ* B * B 6 OI3ZJ 7UORT*M* B * B 2 * +MCP3IJ 7UORT*M7LOI7SCK2,& 7NOSK7P2JWL7NSG+HB,"2606JWC3RWL+NB,"0*M3B3F+A3G. B 2MNJ3O;U+T22" 602JGF3K?T+RB,"164"J*M"M6J"J*M2*GP/ROT2M&J7NOS+K3P" 60*JB 
 B * B 7JOM" 7R*JB * B * B 3CGL*MBJ* B * B 2 GT3DN 3A3L*MBJ* B * B 2 	CA*M* B * B 2 R +CCA7CKU3C3A*MBJ* B * B 2 7J7SB 3R;A*MBJ* B * B 6 OI3ZN 3UORA7L*JB * B * B 7JCM* 6."2*M* B * B 2 * +MCS3I& 7NOSK7P6JOS+K3P* B "0*M* B * B 2 * +MCS3PGRN*M* B * B 2 N L7L*
B * B * B 3TSA* CI3S/SP*M* B * B 2 & +SCZ3S/SP*M* B * B 6 N +ZCL3CGL* B 2/	L+NCL.=F 2 ?F3RV 3R?RR*M* B * B 2 & +SCZ3S/SP*M* B * B 2 * +MCP7IN 7SCK2MNJ3A3L*,B . B1*0B * B * > 3N7U2 [O2 GC7LOL2 ?F7RB 3R;A2MNJ3UOR+A3L" 60"J*M6MJJ*,B * B 2 3HT*M* B * B 2 * +M
P/RZ+"3*M3PGR+NB,2 " L7T*JB * B * B 3CGL*MBJ* B * B 2 GT7DJ .+^7*MBJ* B * B 2 GRL*M* B * B 2 F +NCD/R^+"1*M* B * B 2 R +CCA/R^+"4*M* B * B 6 R +ACD/R^+"6*M3ASN* /R"7602JGT7DJ .+R7.M^J.0Z0.M^J.0Z02/GR7LJ A7T2JGRL*M3DGC* /R"7622JGT7DJ .+^72MFJ+NCD/R^+"0*M.7
0"6*M.7B0"6*M3R3A6MRJ+ACD/R^+"6*M3DGC* /R"763.JR7*3>03S3N2 /SP*M7I+S* /R"762.JB7"0602JGT7DJ .+^7.M^J.1R02/3C7LJ A7L.JR7"3606JOI7ZJ .+N76MNJK7P6JOI7ZJ .+J7.M^J.0B02MNJL7L2JGT7DJ .+^72MRJ+CCA/R^+"7*M3TSA* /R"7662JGRL*M.7N4"0*M7I+S* /R"762.JB7"0602J3CL*M3TSA
 /R"7632JOD7AJ .+Z76MRJ+ACD/R^+"5*M3R3A6MRJ+ACD/R^+"5*M3TSA* /R"7622JOD7AJ .+V76MRJ+ACD/R^+"5*M7JCM* CI3PGRN*M20:/+OCT3UWSD*M.7B221N/+LCA3IOA2MRJ+CCA/R^+"7*M3DGC* /R"7662JOD7AJ .+V72M*J+MCP7IJ .MFJ"767.JR7"060"J60"J60"J60"J60"J60"J602J3HT*M7HSL2MZJ3L
A*1B,* B02 Z/3L
A2 ?F3RJ +ICT"1612J3F/AKG*,B "0*M"L*M*M>J3JKS. F2* B7"760"J*M*/7N7BSI6 	S3LGL3BOI* ;P3C6.2 ?C7DKE*M>J3U	S+NCG3C3A7LR 3OR 3E?C7DKE"M6J"J*M2*GP/RST2MNJ+G3O* B 2 7J3S& 2 	C7NSI2MNJ7OCD+C3M" 60*JB * B * B 3DGC2 ;I7PSU*MBJ* B * B 2 GT3D& 7NWPT*M* B * B 6 N M7A
JB * B * B 3CGM*MBJ* B * B 2 OD3A6 3A
R* B * B * > 2 6-+OD7ICN+U	T"M6J*JB * B * B 3CGM*MBJ* B * B 2 GT7DR 3HGTB7A*JB * B * B 3TSA2 	D/SCP*MBJ* B * B 2 OD3A2 O7C*JB * B * B 3TSA2 	D/SCP*MBJ* B * B 2 OD3AR 7ICS"M6J2J?C3D?L+PB,3TSA* CI3LOO*MBJ* B * B 2 OD3A6 7USLC*M* B * B 6 R +ACD7S+I+ECC* B * 
 2/?C7MWP+TCE7TKH3ES3H3OD*M* B * B 2 6 +QCL7M	U2M6J7USL+CB," 60*JB * B * B 3S3H*MBJ* B * B " 62"J*M* B * B 6 R +ACD7MKAG*M* B * B 2 N +LCA3S3N* B * B * B 2/[I2 ?M3D&(7NWP/T:)3TWH3S?H+L3D*MBJ* B * B 2 GT3DR 7ICS* B * B * > 3SKU3TGR+CCT7DOI3PZ 3R7O2 ?LC*M* 
 * B 2 N I7A*JB * B * B 3TSA2 ?LC*M* B * B 2 R +CCA3LOO"M6J*JB * B * B 3TSA2 	D+SCP* B * B 2 "/7A[L3ER 7ICS*MBJ* B * B 2 3C7LJ A7R*JB * B * B 3SGN* B * B * B * B 2 &/3FR 7ICS*=20*MBJ* B * B 2 7J3PR +UCN* B * B * > 3F;I3ISE7D*JB * B * B 3DGC2 	DS7P"J*M* B 
 B 6 R +ACD3LOO*MBJ* B * B 2 GT3DR 7ICS*MBJ* B * B 2 OD3A2 +OCC* B * B * > 3LOO2:&=3FJ +ICT/NF=2 T+ECN3LOO2-	D+S3P*MBJ* B * B * B * B * B * B * B * > * B 2 V 3LWS2 ?L3CR+7ICS*MBJ* B * B 2 7J3PN 3O3DO7P"J*M3D;U*,B 2 N M7A*JB * B * B 3TSA2 T3TKAA*M* B * B 2
N I7A*JB * B * B 3TSA2 ?L+CB * B * B 2 N/7OCM3UWT2 	BT7S*JB * B * B 3DGC6 OL7BSIS*M*MBJ* B * B 2 3CL*M* B * B 6 R +ACD7ICNU7T*JB * B * B 3SGP2 3CA*M* B * B 6 N T7L*JB * B * B 3TSA6 OL7BSIS*M* B * B 6 N Z7L*JB * B * B 3CGM* B * B * B * B 2 6/3O	D+FCY3CSOE*
* B * B 2 F +NCD/CSM* B * B * B */CN7BSIS*M* B * B 2 R +CCA3C?CD7E*JB * B * B 3TSA2 OC3OWD*MBJ* B * B 2 7J3S& 2 WD3C	SN*M* B * B 6 N 3IWZC*M* B * B 2 N L7A*JB * B * B 3TSA2 OC3OWD*MBJ* B * B 2 7J3P& 2 ?C3DOPM*M"M6J2J	C7NSI*,B "0*M* B * B 2 * +MCS3IR 3E	CN
P*JB * B * B 7S+IE7C2JWD3C	S+NB,"0*M* B * B 2 * +MCP3C?G"M6J2JWD3C;I+PB,3I	NT*M"M6J2JT3TKA+AB,7TSHA7B"J*M7TSH+A3B. V "2672J7C*4B,* B "3*M7DOI+P20. F * B * B 2 F/+LCL3A?B+VCE7SSE2 ?F/RJ 2 	BT7S2J;I7PSU*,B "0*M7MKA+GB,. B 2MRJ7ICS*,B " 602J?L+CB,* B "0*M3LK
7IOT.,B 2MNJ3CSO+EB," 602J	S3ZOE*,B *0B * B * B * B * B 2 R/3E?C7DKE6 SS3AWT*MBJ* B * B " 60"J*M"M6J"J*M"M2J"M6J"J*M6/OL/MJ .0^ . B7"M6J*JB/3NJ-+ICT3S3Y3LKA+ICC3PN.*.CM3DOE3OWDR*M*M*J7PKAT652J?G*,B * B 7JOM* CI3I	NT*M3DOE3P7C.,B *MBJ* B * B 2 ;A3D6 *1B * 
 * B * > 3NJ 7IOT*MBJ* B * B 2 OD3AN 3OWD"M6J*JB * B * B 3TSA* CI3DOE3P7C* B 2 J/3R;I3G& 7NN 7TSAE*M* B * B 2 : +OCP* B * B * B * B 6/OI3ZR 7ECC+CCM+ICF3S3P+ICT3SGT7TOE*MBJ* B * B 2 OD7AR E7M*JB * B * B 3TSA* CI3T7E*MBJ* B * B 2 OD7AN 3IWZH7I*JB * B * B 7
+S2 WTM*M* B * B 6 R +ACD7IR E7M*JB * B * B 3DGC2 	S3Z3EO*M*MBJ* B * B 2 GT3DN 3OWD*MBJ* B * B 2 ;A3D6 *2B * B * B * > +MCS7BSI*MBJ* B * B 2 3CL*M* B * B 6 N +ZCA3CGL*MBJ* B * B 2 7C+LB * B * B * B * > 7ISN3O2 3I/N"M6J*JB * B * B 3TSA2 ?CD7E*JB * B * B 3S
Z*MBJ* B * B 2 7C+AB * B * B * B * > 3UWS2 	S+GCN7BSI*MBJ* B * B 2 ;A3D6 *3B * B * B * > /NF-2 	BT7S*JB * B * B 3DGC2 ?M3D?CD*M*MBJ* B * B 2 3C7AJ +ACL* B * B * > +MCS7BSI2 ;I+TCO3P3O3CSO*MBJ* B * B 2 OD7AB 3OOLO7D"J*M*MBJ* B * B 2 GT3D6 3OODO7D*JB * B * 
 3TSA6 CO3TKA*MBJ* B * B 2 OD7AR E7M"J*M* B * B 6 R +ACD7IR E7M*JB * B * B 3DGC6 WML7T"J*M* B * B 6 R +ACD7S+I3E	H*MBJ* B * B 6 GM3L6 U7Y6JWM+L3T* B "0*M* B * B 2 F S7R*JB * B * B "160"J*M* B * B 6 R +ACD3P3O3CSO* B * B 2/;I7SKE7TB 3OGL7RSIY*M* B * B 2 N 
LCL7RKA*MBJ* B * B 6 GMA*M* B * B 6 N Z7L*JB * B * B 3CGI"M6J*JB * B * B 3DGC6 WO7TWPT*M*MBJ* B * B 2 GT3D6 3OODO7D*JB * B * B 3TSA6 SS3TKA* B * B 6 V/3PGD+TCE3SGTT7E*JB * B * B 3DGC2 WTM*M* B * B 6 R +ACD7IR E7M*JB * B * B 3DGC2 WTM*M* B * B 2 * +MCP7IR 
7M"J*M7OSU*,B 6 R +ACD3IR 7ECC+CCM* B 2/WR7TKU7NN 7TSAE*M* B * B 2 & +SCZ3DOE3P7C*MBJ* B * B 2 OD7AR E7M*JB * B * B 3TSA2 	S3ZEI*M* B * B 2 R +CCA7IR E7M*JB * B * B 7I+S2 WTM*M* B * B 6 R +ACD7S+I3E?L*MBJ* B * B 2 OD3A& 2 WTM*M"M6J"J*M* B * B 6 R +ACD7OSU
PSU*MBJ* B * B 2 7J3P& 2 WD3COPM*M"M6J"J*M*M>J*-6-*-6-*-6-*-6-*-6-*-6-"M6J"J*M*M>J3SGT+TCE3CGH3NWG2 ?R3U	T7NOE"M6J2JWD7C	A*,B 3TSA2 	S3Z3EO*M* B * B 2 6 Q7L*JB * B * B 3TSA2 	S3ZEI*M* B * B 2 2 S7R*JB * B * B "2*M* B * B 2 N +MCA3C3L*MBJ* B * B 2 GT7DN 3I
ZH7I*JB * B * B 3DGC2 	S3ZEI*M*MBJ* B * B 6 GM+AB * B * B * B * > 3DOE2 	S3Z3EO*M* B * B 2 N +ICA3S3T*MBJ* B * B 2 GT7DN 3IWZL7O*JB * B * B 3S3N*MBJ* B * B 6 OI7ZN 3IWZ+HCI* B * > 7CKAR7Y*JB * B * B 3DGC2 	S3Z3EO*M*MBJ* B * B 2 GT3D6 +ICN* B * B * > 3L7I+
CT3SGML7L*JB * B * B 3CGI2 3CL*M* B * B 6 R +ACD7S+I3E	H*MBJ* B * B 2 3CA*M* B * B 6 R +ACD3M;I*MBJ* B * B 2 ;S+LB * B * B * B * > 3M;I2 ;I+TCO7S+I3E	H*MBJ* B * B 2 OD7AN 3IWZ+HCI* B * > +ICF7S+I3E	H2<	MN*M* B * B 2 N L7A"J*M* B * B 2 * +MCP7OSU"M6J"J*M3G
R+WB,6 R +ACD7S+I3E?L*MBJ* B * B 6 GML*M* B * B 6 R +ACD7S+I3E	H*MBJ* B * B 6 OLR*M* B * B . B *MBJ* B * B 2 GT7DN 3IWZH7I*JB * B * B 3DGC2 	S3ZEI*M* B * B 2 6 +QCA* B * B * B * B 6/KG+OCW7S+I3E?L*MBJ* B * B 2 GT7DN 3IWZL7O*JB * B * B 3DGC2 	S3Z3EO*M* B *
B 6 N Z7L*JB * B * B 3IOA* B * B * B * B 2 N/7AKRY*M* B * B 6 R +ACD7S+I3E	H*MBJ* B * B 6 CSA*M* B * B 2 N +LCA3C3L2 7C7AJ +ACR2/WS3TF 7CR /ON .7^7*MBJ* B * B 2 OD7AN 3IWZH7I"J*M* B * B 2 * +MCP7OSU"M6J"J*M2/;I3I	T3A	L7SSA3I;O"M6J2J;I+I3T* B "0*M* B * B 2
N L7A*JB * B * B 3TSA* CI3I	NT*M* B * B 2 & +SCZ3I	NT*M* B * B 2 R +CCA3T7E*MBJ* B * B 2 GT3D6 I7N*JB * B * B 3DGC* CI3T7E*MBJ* B * B 6 OI7ZR E7M*JB * B * B 3DGC* CI3T7E*MBJ* B * B 2 7J3P^ O*M*M>J3TKA7LOE"M6J"J*M3G?R+S3T2 ^ 7R
O*MBJ* B * B 2 WD7C	A"M6J6JCO*,B * B .1B0*0B * B * B * B 2 6/+ACX7A
L7AOY. B1"060*JB * B * B .2N5"M6J"J*M"M6J"J*M"M6J"J*M6/SS3OGRG7E"J*M3CSO+EB,. B 2M6J3OOD+O3D" 602J?P3L?C+DB,"0*M3T7E*,B . B 2M>J7UCT+U3T" 602J	S3ZE+IB,"0*M7S+I3E?L.,B "M6J6JB/3AGR7MSE7EOR6,N +ECT7FKO6 
T3OJ-+ICT3G?RW*M2M6J*1B,* B . B0"063.JKM*,B * B .0B0"2*M+M23* B . B .0F02M>J3PGT+BB,6 CO6MNJ3TGT+BB,6 KG7OSS2M6J+I3N* B . B1"M6J2J;I+CB,* B .1B0"M6J"J*M"M6J"J*M*M>J*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-*M"M6J"J6$&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