File CRTCTR.PA (PAL assembler source file)

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

6/V 3PGD+TCE3TWH6 KC3TR 3AGT2 ?C7USN7EOR"I&I*2637M	A.-B9*M>J*M>J*M>J*M>J2IT+ICS7TOA3K6 3A;I3T	A+NCS3TWH6 KP7OWD+CCT7DSA3AN 3O;U7TKES*M2/RI7ICS7L	A+ECD+OCN3TWH6 KC+TB.2 [I2 T3E& 7NKC3EWM+NCT3A
R3UWMN7T"J&/+ICS3N
E3A	T+V3E2 T3EN 3O;U7TKE3SF +RCE3CWL3AWR3DF N7D"J&/3TWH3N& 7NKC3EWM3NWTD6."J6/"J*M"/*M2/SE+ICT7HOI7TKOY6:"J6/.JJ/216-+A7Y"9&02(LN6)"J&/*1B)3ASD+ECD3CSO3EZ +OCR3S3P3IWC2 GS3M3P3EN 3O;U7TKE*M>J"M6J"J*M"M6J"J*M"M&J7TOAK&=7CSR7CKT"M&J7CKU2=NI3ROT3T3FD*M2I;I7I
W.=BI"M&J7VKES&="3*M"M6J"J*M"M6J"J*M2I	F3ESL6 KC7TSC3FSL.%B1"M&J6*KC7TSC3LOO"M2J"/*M"/*M6/J%7PVI3PGD+TCE3TWH6 KC3TR 3AGT2 ?C7USN7EOR*M>J*M>J6MNJ7TKA+TB,2 3CB*M2IGT+D" 7CSR3D[E*)>I7POO3T> +UCR3EWV+NCT3FGL7GR O*M2IGCL&I2/GS7YR +HCE7DSA7AV 3PGDT7E6JBI7OSS*I>
+ICS3C7O3PWL3TSE".*M2ISC/FJ "0*M2IGCL&I2/?G2 ?T2 3S7ECE6 R	+ICL3NWE3DSE".*M6IWS3S;PD*M"M&J3CKL"M&J3C[I6 WCR&I2/	D3SKA+LCE7ISN7EKR7USP3SZ +OCR3A6 3OWM+N;T"M&J3TSA2 ;I7CSR+C>I+ICS3TWH2 ;I3CWR3M;E3TN 7HCO3SZ 3L
A2 WS/T> "M&J3SGN"M&J7JCM6 KC/TGC2I:/+OB,+GCOO7N2J6IQ	L6I&/+E3S2 GS+VCE3TWH2 ;I3CWR3M;E7TZ 7AWLE*M2IOD3A& 7NKCT	C2/3C7EKA2 T3EN 7HCO3S& 7NKC3EWM+NCT3FGLG*M2I7J3SN 3RGTD	D2/?G2 ;I3CWR3M;E7TR +HCE3C?H+PCS7TE3TF 3RGE".*M.IZ-"M&J7CSR/DF0"+652JJI3IONH7P2JNI3RS
M616JKC/TGC2,NI+ICF7CKU"M&J3TSA2 ;I7CSR+R>I+ICS3TWH2 ;I3CWR3M;E7TJ 3EWJ7COT2 3F+ACG7SSE" 6?6JNIN7A2J*I+MCP7CSRC&22/?N2,^ 3O> N*M6IGML&I2/WY+SB,7S[A7ER +HCE3ION3R7E7ESN2 GV3LWU"M&J3DGC2 ;I7CSR+R>I3CWL+ACR3TWH2 WR3JOE+TCS3ION3R7E7ESN2 3F+A;G"M&J7JOM6 KC3TSA
D>I+GCO3ION3R7E7ESN2 T7EJ 3EWJ7COT2 WT+XCT3AWRA6.*J6I"4*M6IKC/TCD.2N+"M&J3B;I3R+E"M&J7CSR/DKM2MNJ3ROT"2&,3C[I6 WCR*M2IGT3D& 7NKCT	S6/OI2 T3E& 7NKC3EWM+NCT3S7A3PWL3SZ 3L
A2 WS/T> "M&J3SGN"M&J7JCM6 KC/TOC2I:/+OB,+GCOO7N2J6IQ	L6I&/+E3S2 GS+VCE3TWH2 ;I3CWR3M;E7TZ 7AWLE6.2JRI+CCA3ION7ROT2IN/3LGE7RR +HCE3ION3R7E7ESN2 GS3M3P+ECS3FGLG6.2J*I+MCS7CSR3ASD2I^/3O& 7NKC3EWM+NCT3TWH2 GS3M3P+ECS7TE3TF 3RGE".*M.IR-"M&J7CSR/DN0"+632JJI7IO
A7M2JNI3RSTM63*J>L2MNJ3ROT"3&,3C[I6 WCR*M2IGT3D& 7NKCT	M6/OI2 T3E& 7NKC3EWM+MCT7MSE+ECR3FGL7GN +ECT"?*M2I;SA*M2I7J3PN 3ROT*4>I+N3O2 ?G2 ;O"M&J3M3Q*I>I7S[A7ER +HCE3ION3R7E7ESN2 GV3LWU"M&J3DGC2 ;I7CSR+M>I3CWL+ACR3TWH2 ;I3CWR3M;E3T6 3EWT+RCS3FGLG6.2J*I+MCS7C
R3ASD2I^/3O& 7NKC3EWM+NCT3TWH2 WM7TKE7SR 7ESX6 KA+E;A"M&J"-662JNI3RST*0.4"5*M2I	B7NSMR*M6IKC3T7D"4*M7CSR+C242I	C3FN U7R6JRI+ACD3ION3RKT2I&/7SR +HCE3ION3R7E7ESN2 ?B7XOE2 3F+ACG7SSE" 6?6JNIN7A2J*I+MCP7CSRC&52/?N2,^ 3O> N*M6IGML&I2/WY+SB,7S[A7ER +HCE3ION3R7E
ESN2 GV3LWU"M&J3DGC2 ;I7CSR+B>I3CWL+ACR3TWH2 ;I3CWR3M;E3TJ 3OWX3SZ 3L
A".*M2I7J3SN 3RGTD	D2/?G2 ;I3CWR3M;E7TR +HCE7BO2 WT+XCT3AWRA6.*J6I"4*M6IKC/TCD.5N+"M&J3B;I7BO"M&J7CSR/DWM2MNJ3ROT"5&,3C[I6 WCR*M2IGT3D& 7NKCS	T6/OI2 T3E& 7NKC3EWM+NCT3SWH7EOT2 3F+ACG7SSE" 6?6JNIN7A2J*I+MCP7CSRC&62/?N2,^ 3O> N*M6IGML&I2/WY+SB,7S[A7ER +HCE3
ON3R7E7ESN2 GV3LWU"M&J3DGC2 ;I7COR+T>I3CWL+ACR3TWH2 ;I3CWR3M;E3TZ 3L
A"M&J7JOM6 KC3TSA+D>I+GCO3ION3R7E7ESN2 T7EN 3HWE+TCS7TE3TF 3RGE"M&J"-632JNI3RST*0.6"3*M2I	B3NST*M6IKC3T7D"6*M7CSR+C262I	C3FN U7R6JRI+ACD3ION7RKS2I&/7SR +HCE3ION3R7E7ESN2 S7ISF2 ?R+LCL3FGLG*M2I;SA&I2/WS/T> "M&J7JCM6 KC/T
C2I:/+OB,+GCOO7N2J6IQ	L6I&/+E3S2 GS+VCE3TWH2 ;I3CWR3M;E7TZ 7AWLE6.2JRI+CCA3ION7RKS2IN/3LGE7RR +HCE3ION3R7E7ESN2 S7ISF2 ?R+LCL3FGLG*M2I7J3SN 3RGTD	D2/?G2 ;I3CWR3M;E7TR +HCE3S	H+FCT3R3O7LR 7ESX"M&J"-&22IF/3RGE".*M6IKC/TCD.7F+"M&J3B;I7SKH"M&J7CSR/D
M"M2J"/*M7CSR+C272I	C3FN U7R6JRI+ACD3ION7ROS2I&/7SR +HCE3ION3R7E7ESN6 CS3LOI7EN 7ACML7E6JNIN	A*IB/7CWO3NWT3RZ 3L
A2 WS/T> "M&J7JCM6 KC/TC2I:/+OB,+GCOO7N2J6IQ	L6I&/+E3S2 GS+VCE3TWH2 ;I3CWR3M;E7TZ 7AWLE6.2JRI+CCA3ION7ROS2IN/3LGE7RR +HCE3FGLG*M2I7J3SN 3RGTD	D2/^ 3O& 7NKC3EWM+NCT3TWH2 ?C7USNE7R*J6I"4*M6IKC/TCD.8N+"M&J3B;I3S7S"M&J7CSR/DM2MNJ3ROT*8B,2 3CB*M2I7J7PN 7TKA+T>
3A3L2 ?D+N3E2 GB+CCK+TCO3SWLE7P*J>L2MNJ3RST+M212 KZ3LOO/KN 2IN/7HCO2 ?C7USNE7R2JNI3RST"061"J*M7CSR/DKM6,*I3B?L+CCK*3>I3R+E7ESC2 ?C7USNE7R2JNI3RST"062"J*M7CSR/DOM6,*I3B?L+CCK*3>I3S7A3PWL2 ?C7USNE7R2JNI3RST"063"J*M7CSR/DSM6,*I3B?L+CCK*3>I7MSE+ECR7CWO3NWTR*M
IKC/TCD"4*M"M&J3P
AE*M"M6J"J6/6JKC3T7D*5B,3Z3B3O/C" &32/?B7XOE2 ?C7USNE7R2JNI3RST"065"J*M7CSR/D[M6,*I3B?L+CCK*3>I3SWH7EOT2 ;I2 ?B3XN 3O;U7TKE"M&J7CSR/DZ0"M6J6JKC3T7D"7&,3Z3B3O/C" &32/S7ISF2 ?R+LCL7CWO3NWTR*M6IKC/TCD"7*M2MNJ3RST+M28"I&16IR/7HOI2 ?C7USN+ECR+ICS7N[E+ECR3SWE3N
 7NR +HCE"M&J"0&I2/N +RCT"!6!.JBI"M&J7CSR/D"0*I>I3S3P3IWC2 GS3M3P3EN 3O;U7TKE*M>J"M2J"/*M"/*M6/J%6IOA3C	I2 C3AGR3CWT3RF 3D	D3T?I7NJ 7OSU3IWN*M>J*M>J6%
T2I?C+MCE7HKE+EB +TCO3ION3R7E7ESN*M>J*ICA7CWO3NWT3RZ +OCR3TWH2 ?R+LCL3SGT7TOU2 	D3S3P+ACY3AWR+AB.3TWH*M>J2IGV3LWU2 ;I2 T3E6 */CQ3R
E7ISS+ECR+ICS3TWH6 WN3MWB7RR 3OJ E6 "J&/3ASD+ECD+TCO3TWH6 WC3RWR+NCT7CWO3NWT7RZ 7AWLE6."J&/+ICT+ICS7AOS3UWM7DR 7HSA2 T3E& 7NKC3EWM+NCT+ICS7LOE7SR 3H;A6 KO" *M2/VI3QGU7LR /OF 20R 3E	C3M3A".*M2/&I7FR +HCE3ION3R7E7ESN6 KA3G7U7ESN6 OI2 WN7GSA3IWV6,R H7E"J&/7C
O3NWT3R& 3SN 3LGE3RSE2 ;A7DR 3H;E2 ;I3CWR3M;E3TSE".*M"/*M6/R%7NRI+HCE3C3A3L;I7GN 7EWQ3EON3E& S6:*JV/T7N*JV/T	N*(?M+QB)2=& 7NKC3EWM+NCT3V3AU7E*JV/T	N7JOM6 KC3TSAD*M6/R%+N6I2(WL7NSG3H> 7FR +HCE3S7U")*M6/R%3NFI7DKD7EOS2 [O2 T7EV 7NSI3SR 3I	GT*M6/R%3NFI7DKD7E
S2 [O2 T3EJ 3IGN+RCY7CWO3NWTR*M6/R%3NFI7DKD7EOS2 [O2 T3ER 7ICS7L	A2 WM3SGS+GCE3POA7KSE*M>J2%;T*M>J2MNJ3RGT+D3D"I606JRI+ACD3IN 3RGTD	D2/WG7TR +HCE3N7U7BKE2 [O2 	D7GSI3S& 7NR +HCE3S7U"M&J7I+S6 KC3TSAD*M2IOD3AN 3RGTA*M2IGT3D& 6 KC3TSA+D>I7GSE2 T3EF 7DKD7EOS2
[O2 T7EV 7NSI3SR 3I	GT*M6IOI3ZN 3RGTD	D2/[O2 T3EN +RCT7TE3TF 3RGE".*M2IOD3AN 3RGTB*M2IGT3D& 6 KC3TSA+D>I7GSE2 T3EF 7DKD7EOS2 [O2 T7EV 7NSI3SR 3I	GT*M6IOI3ZN 3RGTD	D2/[O2 T3EJ 3IGN+RCY7CWO3NWTR6.2JRI+CCA7CSRA7C2JFIC	L2I&/7NKC3EWM+NCT3A
R3UWM+NCT3N
E3A	T+VCE"?*M6ICS3AN L7A2J*I+MCS7CSR7CKL6I&/+E3S2 ?G2 3C7EKA2 ?C7USN7EOR2 	F7RSS".*M2IOAL&I2/WR7M[O3E6 7IWN7SN 3I;G2,& 3FF +N;Y"M&J3C3L2 GRL*M2I3C7LJ A7R6JRI+ACD3IN 3RGT+B>I3ASD2 T3E& 7NKC3EWM+NCT+TCO3TWH2 ;U7IOT"M&J3DGC* CI7CSRA	B2/	D7GSI".*M2I7J3PN 3RGT
2F+2I^/3ON 3HOE3KZ +OCR7AV 7NSI3SR 3I	G3T> 7VKE3F?LW*M7CSR+A212IGT3D& 6 KC3TKA6I^/3H;E* CA7CKA+RCY3OOC7UOR2,N 3HOE3K& 7FR +HCE"M&J3TSA* 6(.4R0"0&)2/WN3WR 3I	G3T& 3S: +OCW7AN 3POAE6.6JNI+ZCA3CGL"M&J7JCM6 KC/TKA2I:/+OB,+GCO3ASD2 ;I2 T3EN 7AKRY*M2IGT+D" .4Z0
1&)2/WY+SB,7SSE2 T3E: +ECW3D
I+ICT+TCO"16.2JRI+CCA3IN 3RGTB*M2I7J3PN 3RGT*3>I+GCOO7N2JNL3RGT"2&,7I+S* CI7CSRA	B2/;I3CWR3M;E7TR +HCE3D
II7T6JRI+ACD3IN 3RGT+B>I+ICS3TWH2 	D7GSI. B16 KO6 KG7ESA+ECR"?*M2IGT+D" .-B4*7&2"M&J3SGP"M&J7JCM6 KC/TOA2I:/+OB,+GCOO7N6JRI+ACD.(B4*6&06I&/+E3S2 WR7SSE2 T3ER 3I	G7TR 7O* 3E?R".*M2IOD3A& 6 KC3TKA"M&J3CKL2 7CA&I2/?M+VCE3TWH2 WT+XCT3P	O3NWT3RZ +OCR3TWH2 WNX7
6JRI+ACD7CSRA	B2/?P7WKE2 [O2 WTN6.2JRI+CCA7CSRA7B2J&I+SCZ7CSRA	A6/OI2 T3E2 7OCO2 ?C7USN+ECR7ZKE/O> "M&J7JCM6 KC/TGA2I:/+OB,3P?R7COE7SR +HCE7CKA+RCY3D
II7T"J*M7CSR+A232I3CB*M2IOAL&I2/WG7TR +HCE3ION3R7E7ESN2 GV3LWU"M&J3C3L2 GRL&I6/J 3E?M+VCE7A	N2 	S+GCN7BSI2 ;AD*M2I3C7LJ A7R2JNI+DCF"2606JRI+ACD3IN 3RGT+C>I2 ;I+TCO3TWH2 ?L3W> 3RWD3RJ 3IGN+RCY7CWO3NWTR*M2IOD3A& 6 KC3TOA"M&J3S3N*I>I7WOA2 T3EWR* CA7CKA+RCY"?
M2I7J3PN 3RGT*4>I+NCO7CKA+R3Y2 3A3LR 3OWN2,^ 3O> N*M6IOI3ZN 3RGT+C>I3ASD2 GC7R	R2 ;I+TCO3H
I3H> 3RWD3RJ 3IGNR7Y2J&I+SCZ3IN 3RGT+C>I2 ?C7USN+E;R"M&J7NCO"M6J6JKC/TSA*,B 3C[D6 WCR*M2IGT3D& 6 KC3TSA+D>I7GSE2 T3EF 7DKD7EOS2 [O2 T3ER 7ICS7L	A"M&J7I+S6 KC3TSA+D>I2 WM3SGS+G;E"M&J3DGC6 KC/TWA"M&J3TSA* CI7CSRA&56/OI2 T3E6 7EOS3AWG2 WP3N	D+NCG"?*M6I+S3AN 
7A2J*I+MCP3IN 3RGTD	D2/WY+SB,7JOU7TJ 7EWT+R;N"M6J2JNIA	L2I:/+OB,3S;E3D& 7TR 7OR +HCE7CSR2 GH3N3D+E;R"M&J3S;ED*M6IKCT*M7CSR+A25"I602JNIL7B2J*I+MCP3IN 3RGTD	D2/?N7W^ 7EJ	3EZ 3I	N3SWH+DB,7RSE3U;R"M6J"J*M7CSR+A3A"I&02I2/3OGC7LN 7TKO3AWG2MNJ3RGTB&,"0*M7CSR+A3C
 B 2MNJ3RGTD&,"0*M"L6/"J6/*JV/3RNI3LGE7RR +HCE7CSR2 ?R+LCL3SGT7TOU2 ?C7USN7EOR*M>J*M>J6%
T2I?C+MCE7HKE7ER 3ON 3LGE7RR +HCE3R3O7LN 7TSA+UCS7CWO3NWT+R;S*M>J*M>J*M>J2MNJ3ROT+L3R"I602JNI+LCB3IOA"M&J3TSA6 KC3TGA6IN/+ECT+UCP3A2 7OCO2 ?C7USN+E;R"M&J3DGC6 KC3TSA"M&J3TSA6 KC3TGA2I^/+ECT3TWH2 SA3DWR+SCS+OCF3TWH2 WT+XCT3AWRA6.6JRI+ACD7CSRA7B2JRI+CCA/XGR
3*M2IGT+D" .4R0"0&)2/	F+LCL3TWH2 WT+XCT3AWR7A^ 3IT6 CS3AWCS6.2JRI+CCA7I" /RN1"M&J7I+S6 KC3TSA"M&J7JCM* 6."3*M2IGT+D" .4Z0"0&)6/WP3TF 2 WZ+RCO+ICN3TWH2 ;U7IOT2 	D7GSI".*M2IOD3A& 6 KX"1632JNI+DCF"2602JRI+CCA3IN 3RGT+C>I3CWL+ACR3TWH2 ;U7IOT2 ?C7USN+ECR3D
I+I;T"M&J3C[D6 WCR*M2IGT3DN 3RGT+A>I+ICS3TWH2 	B7NKA3YN 3O;U7TKE2 ?D3U3B7EB 3ROE".*M2IGT+D" "46)6JNI+MCA3SGZ2 3CA*M2I7J3P& 6 KC3T3C+R>I+N3O2 WR7TKUN6.2JNI+LCB3IOA*I>I7YOE2,N 3LGE7RR +HCE3H
I3H> 3RWD7R^ 3OSR"M&J3TSA6 KC3TOA2I>/7FR +HCE3B;I7A	R2 ?C7USN+E;R"M&J3DGC6 KC3TSA"M&J3C[D. B2"M&J3DGC* CI7CSRA7D2JNI+DCF7CKU"M&J7JCM* CI7CSR7CKL2I:/+OCW7RSE3U;R".*M"M&J3P
AE*M"M&J7NCO3UONH&I./OF3C7O3MF +NCD7CSR7TSX2 ?F3L?LW*M"I*M2I3X7ISS" 61&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