File F1102.PA (PAL assembler source file)

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

2//R*8CE3D	R7VKE2 ?F7RJ +T7S"8*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/?C7PKY3IG+TB *(	C. F .9R76 	B2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J3TWH2 ;I7FKO7MSA3I;O2 ;I2 T+ICS3DOO3UWM+NCT+ICS3SKU3JOE7TR 3ON 3H;A+GCE7
SI7HWO3T: 3O	TC7E2JF/+NCD3S?H3USL2 ?N3TJ 3EN 7OON7TWR+ECD+ACS3AN 3O7M3I7T7ESN6 	B2 	D7GSI+ACL7EWQ3I7P7ESN*M>J7CKO7PKO3A	T+O;N2 R 3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T*M>J7FKO2 ;A3YV 3R?R+RCS3TGH3T6 +ACY7ACP7EKA2 ;I2 T+IC
3DOO3UWM+N;T*M>J*M>J3TWH2 ?S7F
T3AWR2 WD7SKC3IWB3D& 7NR 7HOI2 ?D3C7U7ESN6 OI6 WF3R	N3SWH7DR 7OR +HCE7PKU3CGH7SKE*M>J3USN+ECR3A2 3IWC3NWS2 ?F7RV +SCE+OCN7AN 3I
N+LCE3C7O7PSU+ECR7SOY3T7E2 ;A3DN +ACN+BCE7CCO3ISE*M>J2(	W+TCH3ION7LOU3I;O2 [O2 	D7GSI+A
L3SN 7O	P3R
I+HCT7NSO3IWC2)> 7N	L2 ?F7RV +SCE+ICN3SOUH*M6/	S3SWT+MB,3EOX7ESP6 OA2 GM3Y> 3TWH3R	W+SCE+BCE3P?R3VSI+ECD+ICN3W	R3T;I3GJ 3YR 3I	G3T3A".*M"/*M2/	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	L+TCY7FKO2 T7EV S7E2J>/7RJ 3E	L3A	B7LSI3Y> 3
& +TCS3S[O3TGW+RCE+OCN7EWQ3I7P7ESN2 T+ACT+ICS7NSO6 WS3P3P3ISE6 	B*M>J3D
I3IGTL6."J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J*M7TOAK&=/RK2M&J7N
IT&="0*M7CKU.=BI"M6J6JOD/K7P.I^6"4612JOD/L7R.I^6"4622J3D/A7G.I^6"4632J3D/C7A.I^6"4646JKD/S7T.I^6"4652J3D/D7C.I^6"466"J*M2I	F3ESL6IWC/RF%"0*M.IN*.4B06MRJ+M3P6MNJ7TKAT&,3C3A2MRJ3OWN+F3G2 /S3P;IS*M7T	R+C3T2I;I7TCRT*M2M2J7OCO2,NIA7L6JJI3EWCI	V2I^/+ECT3A6 7EOS
AWG2MFJ7DKD.,BI"M&J3DGC2I3FD*M2IOA.7^7"5*M2IOD7ARI3ROY+T>I7T	R* B33T7IE7S2J;I+I3T6IOI3ZRI3OWNF	G2/;I3I	T3A	L+ZCE3EWV+NCT3FGLG*M2I7C7AN +TCL*I*/2*F 3C6 +ACY+BCE23" 3EWR* **"M&J3TSA2ISAD7R2JRIC	A3ASD+R>I3ASD7ROE3S> 7FB 3AGR7MSE+ECR3B?L+CCK*-B1+ICNA7C2J*IM	S
GSE"M&J3TSA*I6(*4>I3P?R3P
A3AWT2 	B/TF 20& 3N?T2 T3E2 3I/N"M&J3ASN.IN(2IN/3LGE3RF +LCL3H
I3H>-3RWD3RJ 7IOT"M&J3R3A*I>I7RSO3AWT2 	B/TF 20& 3N?T2 ?L3W>-3RWD3RJ I7T2JRIC	A3P
A7CSN6IN/7TKO7ER 3R;A3S?F3RWM7DV 7NSI"M&J7JOM2IWGT*M2I;A+D"I.7^7*0>I7GSE6 WF7NSC3I;O2 ?W+R3D"M&J3TSA2IGP3G;C+T>I3C7O3B;I7E^ 3IT2 ;U+ICT3N7U7BKE"M&J3DGC2IGP3G;C+T>I3ASN6 SS3OWR6 SI6 
AA7Y2J*IM	S7GSE"M&J3DOLA&I6/WP7TN 7TKA3T;I7GR 3R;A3SWF3RF 7DKD7EOS2 ;I2 GH7R
D3AWR"M&J3CGL2 3C3L& A7C2JFIN	D3P
A7CSN"M&J3SGZ2 3CA& 6/V"7NSI."6 2 	D+S+K22"+3A[L* B-3CWH+CCK3W	H+CCH3H3AF*M2IGT+D"I.6Z2*0>I3SOE3OSN2 GH+LCF2-F +DCD3B?L+CCK3N7U7BKE2 [O3FWST*M2I7J3S^IE	T2/?T2 3B3O/C6 WN3MWBR*M2IOD7AJIE	C2/GS+VCE7L
O6 KO7DKE"M&J3TSA2IGP3G;CT*M2I;A+D"I.4^0*6>I7GSE2 ;U+ICT7BSI+SB,3FWI+LCD7BSI3SF +NCD3RGE7D^/7RSI3EJ I7T6JNIZ7L2J&IA	C2IF/+DCD3H
I3H> 3RWD3RJ 3LOO3K: 3UKME7R6JRIA	D.(B4*0>I3ASD2 ;I7TKE7RCU3TV 3NKA+LCE7BSI"M&J3DGC6IKC6IN/7TKO3EF 7SN 3K3E3E?T3NN 3O7M3ASN2 WR7GOI7TKE"M&J3TSA2IGP3G;CT*M2I;A+D"I.3B7*0>I3I?S7LSA7EB 3AWG2 ?C7USN2 	F3ESL"M&J3SGN"M&J/ASC.0B0*I>I3A3L+OCW3F3U3LZ 3I3E7DR 3R;A3
WFR7S2JRIC	A3P
A7CSN"M&J3TSA2IGP3G;CT*M2I;A7DJI/KZ7"0&02/[I2 ;E7TKI7ER 3R;A3SWF3R& 3S> +NCE3P
AE6,6JNI+NCA3CGL"M&J3TSA.IF("0&02/WS+TJ 3OWN2-GP+GCE3TGR3N[S+EKR2 	B3T& 3NN 3O7M3ASN2 WRG*M2I?IF&I2/;I7TKE7RCU+TCS3O[F2 W3IWL2 ?L3A	D+NCG3R
E7ISS7EOR"!*M2I7J7SJI3KWST	P6/SS7ASR6 KT7AON7FKE2 ;A7DN +ECT+UCP7NE3T> N7E6JRIA	D6(OF3T;IT*M2ISC3FN U7R2J&IO	N*I*/2*: 3OWT2 T+EJ 3DGC2 SI7ICS2"6 7USS2 WB2 T3E: 7ESX2 ;I7SKT"M&J3DGC" 	I2(SI7ICS2I&/7NSI3I3A3IWZ2 ;I7TKE7RCU3TR 7ICS3AOTH*M2IGCL*M2IGW3IWT6MBJ3
;O+F3G2 ?D3N[EG&I2/GW+ICT7FKO2 ?C3M3P3E	TO7N6JRIA	D"(&32/?L+ACD3C;O3SGT+NCT7FKO2 GB3C	K+NCG+UCP3ASDR*M6IOI7ZJI7T	RF	G2/	D3DV 3V;E3TZ 3L
A2 	S3G	N+FCY7EKR+OCR+OCR3C7O3PWL3T?IN6?2J*IM	P3I	N+T>I7EKR+OCR+OCR7PKW2 GF+ICL6-J 7EKT3YV 3N	T+RCE3OWP7RSA3I;O"M&J7JOM2IWG+T>I3T	H3S* 7USS2 WS+TCS3TWH2 [D2 ;A3DF 7DKD6MBJ.7B6"0&,.7B6"0*M2IGT7DNI7TSAU7S2JRI+CCA" 	I3ASDR*M2IGT3DZIL7D2JRIC	A3P3FD*M2IGT3DFI7
KD"M&J3TSA*I6(*7>I7GSE2 ?P7ISN+ECR+TCO7MOE3S
A3EV 3V;E3TZ 3L
A"M&J3C3A"M&J7POOT*M3SGT7TOU",*M3P3FD&,7HSL"M&J7JCM2I?LO	P2/WG3TF 7NSO7HKE2 WM3SGSG7E"J*M7RKT3Y
F.,B *I>I7RSE+RCY3FGLG*M6MJJ+E3C*I>I7L
O6-KO7DKE2 3B3O/C6 WN3MWBR*M7GSE.,BI2MZJ+L3D2I3HT*M6IOI3ZFI7DKD"M&J3TSA" 	I3ASDR*M2I7J3P& 2IWGT*M6MBJ3AOG+N3T" &06IB/3AWG2 ?C7USN2 ?F7RR 3R;A3SWFR*M+C3R"I&06IN/3K3E3E?T3NN 3O7M3ASN2 WR7GOI7TKE2 ?C3NWT7NOT2M:J3EOWR&,"0*M2//R28& 3NWT7RWR+PCT7SKE3VOIE*M2MZJ3
	T+N3T6 KDS	T6IJ/3ESA6 SS7AWT7SJ 3E	G3SWTR*M2I3C7LJ +ACL.IR/.0B02 WM7AON2 ?N6 KE7RKO+SB,20& +SJ 7ICM7OOS3I3B+EB"7HKEE*M6I+S3AN +LCA2IV/3R?RR6?2J*I+MCP+I"I3RWKR	R6/KE7RKO2 ?R3U	T+NCE+ICN7NE7TB 3AWG6MJJ3KWN+X3T2 GT7DBI3AOGN7T6JNI+PCA3SGN2 3C+A>I3CWH+CCK7FKO
 GL+SCT3TGR3N[SE7R2J*I+MCP+I"I3R?K7VKE"M&J3TSA2IWN7WKC2I^/+ECT3PWR3C7O7PSU+ECD3C7O3M;A7DJ 3E	G3SWT3RN 3H;A7GOE"M&J7JOM2I/R7SSE+P>I3SGT+RCT7NE7TR 3R;A3SWF3RF +NCD7SSE6 CU2 T3E> +NCE7ASF+ECR3TGHT*M2I	C/FB "M&J7POO7TOD*I>I3E	X3T& 3NWT7RWR+PCT7RWO3T;I+E6 2 SI
ICS6 SS3I3L6 GE3U3A+SJ 7FSS7ISN""*M6MJJ3KWS+T3P" &06IJ/7OSU3IWN2 ?T6 SS7ASR6 CU* CA3TGR3N[SE7R6JRIA	DC	R2/;A7DB 3ROE7OCM3UWT2 T3E: 7ESX2 ;OE6.2JRI3LOD*I>I3LGO7DR +HCE/RK3EN 3O7M3ASN2 WR7GOI7TKE"M&J3TSA2IWRC*M2I3DA	G2I2/3OSA2 3B3O/C6 WN3MWB3RF +NCDG7O6JRIA
D3P
A7CSN"M&J3TSA2I/R.7B6*0>I+WCE3PWR3C7O7PSU7ER +HCE7NE7TR 3R;A3SWF3RJ 3EGC3UWS2 TE*M2IOD7ABI3AOGN	T2//R*8CE7HOA* CA7VKE3Y: 7AKR+OCW3W;I7D
O2 ;I2 W3IC"M&J7I+S2IWR+C>I+TCO3I	N3TGI+TCE3TGH7TR 3R;A3SWF3R> 3NWC2 T3EZ 3L
A2 ?P+PCS+U;P"M&J7SCK"M&J7I+S6IKC2I"/3IG6-KO7DKE2 3B3O/C6 WN3MWB3R& 3NN 3O7M3ASN2 WR7GOI7TKE"M&J3TSA2IWRC*M2I;A+D"I"3&72/[I2 WW6 KA3E: +OCT3G	O+NCG+TCO3A: +ECW3TGR+C3K"M&J3CGI6 SSL& 2/WW2 ?D7NR	2 GH+VCE+TCO3CWH+CCK3HGE7DKE3S: 7ESX6 CO3EGR3T?IN6.2J/R.7B6*0
,.7B6"0*M2IGT7DBI3AOGN	T2/[I2 WN+XCT3TGR3N[S+ECR+ICS3H3A3FJ 3LOOK6,2JFIN	D/R
K.6B06I^/3E6 7USS2 WS7TR +HCE3H3A3FJ-3LOO3KN 3O7M3ASN2 	BT6.6JNI+NCA3CGL"M&J3TSA.IF(.0B0"M&J7RKT*I>I3L;I3K" +ACS2"?D7NR	2 C3E/C2 WH3AWD+RB"7BSI"M&J7RKA"M&J3DGC2IWN7WKC6IN/7TKO7EN 3POE3I3A2 ?C3MGM+NCD3R
E7ISS+ECR7BSI3SZ +OCR7NE7TR 3IWM".*M2I7J3P& 2I/R7SSEP*M2IGPG7E2J&/3NWT7RWR+PCT3S	K3PN 3H	A3NV 7NKTY*M2M&J7NKT+P3T. .0"0&I2//S+ICP3CGH3I	N+NCG3GWO3S" 3EWR"M&J3D/SP*M2I7J3P& 2I;I7TCRT*M2ISC3FN +ICF7CKU6IN/+ECT+DCF3ASN2 [I2 ?C3RWR3C3TY*M2I7J3P& *I.."1*M3I	D+
3P2I
I7NKOE&I2/
I7NKO3E& 7NSI3I3A2 ;I7TKE7RCUT7S2JNI+ICF"0&I2/SI7ICS6 OI* CA7CKO7OSU3IWN2 	WT7H6JBI7OSSD	S6IR/+HCE7ROT*-B87ISN7EKR7USP6 	S3SWTM*M6MRJ3RGY+G3N2 ;A+D"I.4F02IN/3HOE7KR 7ON +ECE+ICFW7E6JNI+NCA3CGL* >I7H[A7ER 7OJ 3EGC3LKI7RSAE*M2I7J3P:I3ROEA	L2/?N"M&J3D3CR&I2/
C7EKA2 	D+SCK3SGT7TOU"M&J/ACC.0J0*I>I7MOY3TOI2 WS3QWU3NWC2 [O2 ;I7SKT7USC3I;O7S^ 3HOIH*M2IODL	R6IJ/3EGC3LKI7RSA+ECS3AR 7R[IE*M2I7J3S&I7DOI+P>I3ROE3A	L3BGR+TCE3G;E3EGR7TOE* CA3D;O3EZ 3L
A2 3A7MOO3T& 3MWM3DGI3T3EY6,6JRI+ACD+I"IC	R2/;A3DF 2 WS+ECK3D;O7EN 3I;G+ACL3WWH3N& 3T& 3SZ 3I	N3SWHD*M2I;A+D"I*6>I3TWH3R[E3OWR2 WW6 WM+SCT3EGN3BWL2 T7EN 3E/E2 ?D+NCE3S
I3N3A"M&J3TSA.IZ("0&02/?T2 WS7TR +HCE3D;O3EZ 3L
A2 ;A3DN 7AOU3EF 3N& 3NWT7RWR+P;T"M&J3DSLC&I2/?N2 ?S3OWN7RN 3ASI2 T+ACN3D;OE6!2J*IM	S3I	DS	P2/GW+ICT7FKO2 T3EZ 3IGN3LZ 3L
A"M&J7DORT*M2I3C7LJ +ACL2I&/7FR +HCE3ROE3A	L3BGR+TCE3G;E3EGR3TSE2 ;A6 KE7RJ0",*M6I+S3AN L7A2J*IM	P3RWKR	R2/?B3YF +RCE7YWO2 ;I6 KT3OKU+LGE2M:J3ROE+A3L2 ODL	R2IN/3LGE7RN 7TSA+UCS3R
E7ISSE7R2JWS3T[E2,RI+CCA+I"I7RKT3Y
F6 N/+ECT3FGL7GR /OB 6 KO. F-"M&J3TSA2IR(3OWNF7G2J*IM	S3I	DS	P2/	D3S	M+SCS3ASN2 ?P+SCT3EWV+NCT3FGLG*M3H3AT&,7HSL*I>I3C;A7NSO2 WG3T" 3EWR"!*M6MJJ7KKER&,7DORT&I2/WR+ACD3SGT7TOU2 WR7GOI7TKE"M&J7I+S" 	I6(KT7YSC2I"/+OCW3M;A7YR 3IWM3S" 3AWV2 WW2 WB+ECN7TKH3O
U3H" 3EWR"?*M2I7J7PRI3RGYG	N2/?R+OCM7FKO2 ;O3E6 3OWR".*M3R?K7VKE2,R +CCA+I"I3SGT7TOU6 N/+ECT3SGT7TOU2 ?T* B0+OCR7SOT7TOU2 WR7GOI7TKE"M&J3D3CR&I2/3C7EKA2 GN7S	T2 3F7AOG2 &(3FF +N	Y"M&J3SGT*I>I3ISN3IGC+TCE3F;I+ACL7RSE3U;R"M&J7JCM2IWS3T[E2IF/+NCD7ASC3IGV+TCE
TOAK*M2M&J3G?N+R3E2 ODL7R6JBI7OSSD	S2IN/3LGE3RZ 3L
A2 ;A3DR 3I7S7IOS"M&J3P
AE*M*IR$"MBJ"BBZ

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