File F1103.PA (PAL assembler source file)

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

2/GC3SWS3TWT2 GH3N3D+ECR7FKO6 SR/S"-*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J7CCO3Y	R7GSH* " +CB). &1*7B4+BCY3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	TO7N"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/6JR/+HCE3I[N3O7R3A	T+OCN+ICN3T	H3SR 7OWC3M;E3T& 7SN 3U+B7ESC2 ?T2 C3A
N7E^ 3IT7OSU2 ?N3TOIE*M2/;A7DN 7HWO+LCD7NSO2 WB2 ?C7NSS3RWU3DF 3SF 2 ?C3M	M3TWM+NCT+BCY3D
I3IGT3LV 3Q	U3PWMN7T2JN/7OCR3OGR3T?I+NB.2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	LT7Y2JZ/+OCR7A	N6 KE7RKO7SR 7HSA2 GM3YF 3PWP+ACR+ICN3T	H3SR 7OWC3M;ET6."J6/6JR/+HCE3S[O3TGW+RCE7DOE3C	R3BSE2 ;I2 T+ICS3DOO3UWM+NCT+ICS7FKU7NOI3H
E2 ?T2 T7EB 3UOR7HOAE7R6JV/3NWD3RF 2 	L3C;E+SCE7FKO6 OU3E> 3NF 2 	S3N3G3EN 7OCM3UWT7RN 7YSS+ECM3ASN2 GC3NJ 3EN 3O	PE7D*J"/7WSI3H& 3N3C3U	S+OCN+OCF3D
I3IGT7LN	2 ?C7PKY3IG3T: 3O	T+C	E2 ;O+LCY7FKO6 OU3E& 7NN 3UC*M>J7SOY3T7E2,V 3XWC+PCT+ACS7M	A6 SO7HKE7WOI3EJ 7EB 7R[O3IWD3D& 7N^ 7RSI3I
N6 	B2 	D7GSI+A;L*M>J*M>J3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	T+OCN7AOS3UWM3S: 7OJ 7ECS7OON3I	B7LSI3YZ +OCR3TWH6 OUE*M6/KO2 WR3LGI3B3I7I	T2 [O6 SI7SN 7OSF7WKA3E> 3NV 3Q	U3PWM+NCT3TGH3T& 3S: +OCT7SCU3P	L+ECDB7Y2JR/3I	G3T3A".*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2IOK/L7R.6B7*0>I3CWL
ACR3A3L"M&J*I>I3CWL+ACR3SGT7TOU* CA3ASN* CB3R
E7ISS7EOR"M&J3KSS/RZ=.7F06IN/7KCI2 ;O2 GD+TCA3FGLG*M6IOK/E7N.6B7*2>I3S	K3P> 3NV 3R?RR*M6IOK/B7F.6B7*3>I3S	K3P> 7NJ 3ESA3YZ 3L
A"M&J7KOL/AZ=.7R02I2/3OSA6 SS7AWT3SF 6 KF+OCM+ACC.4F-"1*M"I&I2/3C7EKA2 OA6,R 3H;E"M&J*I>I3LGO/D" 2 	B3TN 7OCM3L7E7ESN2 [O6 SS7AWT3SF "M&J*I>I3BOA3K& 3N?T2 OA"M&J3KGS/FZ=.7V06IN/7KCI2 ;O2 ;A3YZ 3L
A6 KO6 KE7RKO"M&J3K?G/AZ=.7Z02IF/3SWS+RCT3TWH2 ?C3NWT7NOT2 [O6 SS7AWT3SF ",*M"I&I6/KT7AON7FKE2 GD+TCA+ICF3RGE3D> 7R^ 7RSIE*M6IKK/S7B.6B7*7>I3RGE7DN 7TSA+UCS3B& 3N?T2 OA* 64"1612J&I/N7T"1*M"M&J3I	N/W7T"0*M2IGT/S7K3CGS"M&J7CKU.=B1"M&J3FWIL	D7CKU.%B1"M6J2JZ/
O7R+ACT+OCF7MOE3S
A3E& S6:"J6/2J6/+S3G2IKZ3LOO/KN *M>J2I?W+RCD.16 2 ;UI7T"J&/2I	B+TCS.9F-.16 2 ;UI7T"J&/2I	B+TB *0BI* B=.06 6 SU3I	L3TWI3SN 3A3L*M>J"I&I. 6 * B12=" 3ASN7LKE2 GCL7L"J&/7WKO/DJ * B=3F;U3C	TO7N"J&/2I?F3R" 3ASN7LKE2 	B/TB * B=.16 6 KW3IWT.,6 * B06=J 3ESA*M>J"I&
* B 2 	B+TCS.6"-* B=3FWI+LCD+OCF3B[U7FKE*M>J"I&I* B 2 	B/TF .16 * B12=R 3O: +OCT3S?T+RCE7DSA+A" +OCN3RGE3D> 7N	L")*M"/&I7FKO6 SU3I	L+TCY3U	T7L^ 3OSR*M>J"I&I*1B06=J 3E	WN7D"J&/.INI.06 2 GB7COK3POA3EZ 3IWL2 GGP*M"/&I.IB4* B=3W	R+TCE3F3I3E^ A7P"J&/.IVI.06 2 
B7COK3POA3EJ 3LOO3K^ A7P"J&/.I^I.06 2 /S+ICP+TCO3F3I3E^ A7P"J&/7WKO/DN *M>J2IZI+OCR3U	T7LSI/Y6 6 SS7AWT7SJ 7EWTR7N"J&/2I?F3R" 3ASN7LKE* B=3B[U7FKE2 SA3DWRS7S"J&/7WKO/DR *M>J2IZI+OCR3H;A3DWL/R6 2 WR7CKO7DN 3IWZ*M>J2IZI+OCR3U	T+LB 7UWN3SSE*M>J2I?W+RCD"5*M"/
I7FKO2 GH3N3D+ECR6=N 7TSA+UCS7RSE3U;R*M>J2IZI+OCR3U	T+LB 7UWN3SSE"M6J6JN/7TSA+UCS3BJ 7IOT":*M./RI6=KC3CJ/+LCK7EKRO7R"J&/65R=3I	MN7G"J&/26V=+O?T7BSO*M>J.I673E[O*M>J.I683D	R+VCE7ECMT7Y"J&/69J=W*M./FI60^=7RSI3E2 3O/C6 WOT*M./FI61J=3ESAY*M.IN*.2B02MZJ3ISX+V3C
 606JJIA	R2I6/3OWV2 ;U+ICT+TCO3L;I+KB;7D[E3IWC2 ?T2 OA"M&J3ASN.IN(2I6/3A/S2 [O3FR 3E	V+CCE3CSOE*M2IOD3ARIV	C2/GS+VCE7D[E3IWC2 ?CD7E6JNIZ7L6JRIA	D.(B1"0*M2IOD3AFI3B;UI	T2/WS7TV 7NSI2 ;I2 	B/TV "M&J3TSA6I[DC*M2I3C7LJ T7L6JJIA7L2JRIC	A3DOV2I6/3OWV2 ?T2 	B+TC
.6"-"M&J3TSA2I&(3OKTL*M2IOD3A&I7OCTT7R2J?I3T?L+O3P3TSA" 	I7ISO7PKT"M&J3SGN*I>I3ESN2 [O2 GT3BWL"?*M2I7J3PNI3HOEK	R2/WYS*M2IOD7ARIM7P6JRI+ACD7IRIM7P2JFIN	D.(^7"0&72/GM+SCK7OSU2 3O3DR V7C6JRIA	D3DOV2I&/3NWS+RCT7N
E2 ;OE*M2IOD3A& 2I7T+P>I7RCE3LOAE*M6IOI3Z&I7OCTT	R2/?P7ISN2 ?T2 WN+XCT3OWN"M&J7JCM2I?I3T?LO7P"J*M7TCM.,BI2MRJ+V3C"I&02IR/3E	V+CCE3CSOE*M7ISO7PKT.,B 2MNJ3HOE+K3R2 7J3S& 2IN(3LGER*M2IGT+D"I.2B0"M&J7JOM2I?L3AGD6IN/3EWL+CCT3D	RV7E2J*I+MCS+I"I3CWH3CKK"M&J3ASN.
^(.7V32I&/3G?N+RCE7ESO2/?B3TZ 3L
A* B+3W?L"M&J3TSA*I6("1*M6I+S3ANIL7A2J*I+MCP+I"I3S3E7EKR2 :/+OCT3RGED7Y2J*I+MCP3IZI3ISXV7C"J*M6MJJ3ESAX&,7JOM" 	I2(CK*M2I;A3D2I.3R7"M&J3SGZ"M&J7JCM6IKER7X2J?I3TN62,.I3GGO*I>I7GSE2 C+ACR7JOU7TJ 3ESA"M&J3DGC6I	BT7E2J&IS	Z3B;KT*M2I/SP*M2I7J7PJI7WKCC*M2IGT3DJ
3YWT2MJJ3FSL2,"IL7T2J7D3P3F+GB,3DGC" 	I7BSP+R>I7ZKE3OSE2 [I2 	B/TF .1F=2 ;O2 WRA7D2JNIL7A2J&IS	Z7BSPR*M2ISC3FNIU7R.JOL*724.I^3"4*M2I7J3S& 2I&(7DOIP*M2I7J7PJI3ESAX*M2M2J3OSAA&,"0*M2IGT3DFI3B;UI7T2J?I+T242I3KS7A2JNIL7A2J*I+MCP3I2I3OSAA*M2MFJ3B;U+I3T" 60"J*M
ROW+R3C2IGT+D"I.2B62+;I+T>I3EGN3BWL2,V 3NKA+LCE7ISN+E3R2 WR+ACD3COR"M&J7JOM2I?L3AGD"M&J7JOM" 	I2(?G"M&J7JOM" 	I2(SI7ICS"M&J7JOM" 	I2(CK*M3COR+M3N2I7J3S& 2I^(O*M2I7J3S& 2I&(7DOIP*M2I7J3S& 2IN(3HOEK7B2JFIN	D.(^7"7&52/
I7NKO7E^ L7O6JRIA	D.(F-2MVJ7RR6,NIN	A3CGL2IV/3R?R/R?S"M&J7JCM6IKE+R/R*1>I+NCO2-N 3LGE3NJ 3I3L2 [O2 WH7ASLH*M+E236IOI3Z& 2IV(3R;K+T>I7T	R* B33T7IE7S2J*I+MCP+I"I7EKR7C[O6 J/7EKTY*M7EKRR&,3SGT*I>I7EKR+OCR3W	H+LCE3RGE3D;I3GN R7C2J*I+MCS+I"I3CWLA7R2J*I+MCP+I"I
F;IA7L6JKW3IWT+XB,7JCM2IWR7AD6M^J7RSI+E3L2 7J3S& 2IN(H7K2JNI+LCL7RKT"M&J3S3Z"M&J7JCM6IKER	R2/3W3O> 7N^ 7RSI3E> 3P: +OCT7WKO+TCH7RSE3R	YN7G6JNI+ZCA3CGL"M&J7JCM.IOE"M&J7I+S2I/BN7T6JNIK7P2J*IM	P7WKCC*M3B	F3ESL2," L7T2J&IS	Z7BSPR*M.IB7"M&J3TSA" 	I7BSPR*M2I7J3
& 2I^(O*M2I7J3S& 2I&(7DOIP*M2I7J7P^I7RSIE7L"J*M6M^J3COR6,RIA	D.(Z220&+N7T2J*IM	S3LGOD7A2J*IM	P3CORM7N2J/B+N3T"I&02I:/3UKM+ECR+OCF3CGH+RCS7ECX7ESCE7D6JCB+T3R"I&02I:/7ESX2 ?L7CSA3I;O2 ;I6 WB3FWF7RR 7ON 7TKO3E& 3N?T2MJJ3YWT.,BI*I>I3T7E7PKO3A	R+LCY3H3O+DCS7BS
3EZ 3O;UD*M2IGPG7E2J?I3T3B2,&I/OCT"M&J7ISO"1*M2I?IT642J&I/OWT"M&J7ISO"6*M2I?I3TN6"M&J7ISO"7*M6IKE3R?CV*M"I60"J*M3U	TL&,7RKA"M&J3DGC" 	I2(;UI7T2JRIC	A7R
ES7W2J*I+MCS+I"I7GSE2IZ/3UON3T?I7N^ 3OSR"M&J3TSA*I6("1606JNIN7A2J&IS	Z7R
ES7W6JRIA	D.(F220&+N7T2JRIC	A3T7E3P;F"M&J3TSA" 	I2(;UI7T2J&IO7F2J*I+MCS+I"I7FI3DOV2 Z/+ICX7D[E3IWC2 ?CD7E6JRIA	D6(SU"M&J3DGC2ISI7ICS6IN/+ECT7RSE3U;R2 SA3DWRS7S6JRIA	D3T7E3P;F"M&J7JOM" 	I2(?L3AGD"M&J7JOM2I?G2I&/7NSI7ISA7EV 3T3I"M&J7JCM" 	I2(?C3M;D6MVJT&,7J
M2IC3E/C+B>I3L?O3KF 7TN 7TSA+UCSB*M2I;A+D"I"5&02/C3E/C2 ?F3RN +LB,7ECM+T3Y6 KO2 3WO*M"I&I2/	G+VCE+NCO7EKR+OCR+OCN3W?L* **************"**M"I&I2/GB3DZ +OCR3W
RA7P6JNIN7A2J*IM	PO	K2/?N6 KE7RKOS*M2IGT+D"I.-B4"M&J3SGZ2I3CA*M2I7J3P:I3O?T+K>I7EKR+OCR7NSO2 3C"M&J3TSA2IWR7W
S"M&J3SGN2I3C+A>I+CCL+OCK+ICF3DSI2 WR3W;ID*M7NSO+O3K6ISSA*M+O3K2I7J3SNI3LGER*M2I7J3PZI3IGNL*M6MRJ7ECM+F3N" 602JWR7W
S.,BI*I>I216 3E;A3S> 7PKE3A	T+OCN+ICS7R
E3ISN2MNJ3HOE+K3B" 602J?I+T276IKKS	B6IJ/3ESA6 SS7AWT3SJ 2 ;I+TCO+ACC.4F-"1*M2IOD3AJI3SGTT	E2/GS+VCE3SGT7TOU" 7B6JRIA	D7BSS3AWT"M&J7JCM" 	I3CWH3CKK"M6J2J3C7EKA.,BI"M&J3DGC6IKE3R;I+D>I*-B13MGE+NCS6 KE7RKO2M&J/OCT2,.I7CKL*I>I3CWL+ACR3SGT7TOU* CA3ASN" 7B2J*I+
CP3INI3LGER*M2M^JO&,"0*M7ISO"6&,3K?GA&I6/OA7SKE3TN 7OSN7ESN3S> 7FN 7TSA+UCSA*M2I3CA*M2I7J3P& 2I?G"M6J2JCK&,"0*M2I7J3SNI3HOEK7B2JFIN	D.(^3"6*M7ISO"1&,3KSSR*M2I/SP&I2/GD+TCA3FGL3G: +OCT+UCP"-*M2I7J3P& 2ICK*M2IGT+D"I.-B2"M&J3SGN2I3C+A>I+ICS+ICT3ESN2 [O2 	F/L
E"M&J7JCM" 	I6(KER	R2/WY+SB,7EKR+OCR2-J +UCT3D;O*	CT7RSER7Y6JRIA	D7BSS3AWT"M&J7JCM" 	I3C/H"M6J6JOB7TSA+EB,"0&I6/SS7AWT3S> 7FJ 3E	G3SWT3RJ 2MVJ3R	R+N3D" 602J	F3N3A6,RIA	D2(?D3N[EG*M2I7J3S&I7DOI+P>I3F;I+ACL7POD2 WS+TCS3EWV+NCT3FGLG*M2I3HT&I2/WD3B
U2 ;O+L;Y2 S3O3U3D: 3EWV3R^ +ECT7HKEE*M2M&J7DOIP&,7HSL"M&J3C[I"I606JBI7OSSD7S"J*M7COA7ISN6,* 3B?L+CCK"2*M7ISO"5&,3KGSF*M2I7J3P& 2IGC3S;IT*M2ISC3FN +ICF7CKU"M&J7JCM" 	I3I	DS7P"J*M7EKR7C[O2,. 7CKL"M&J3TSA.IJ(*5.07ISN"M&J7JOM" 	I2(?L3AGD"M&J7JOM2I?G2IJ/3A/C3
GP+CCE3B?LC7K2J*I+MCS+I"I3I	DS	P2/GWI7T2J*IM	S3CWH3CKK"M&J3ASN.IN("7&42/	K+LCL3W	R+T7E3LOO3KJ I7T6JNIZ	A3CGL"M&J7JCM" 	I6(KER7R2J*I+MCS+I"I7SSEU	P2/WR2-WS7TV 3P> 7PKE3A	TO7N2J*IM	P3I	D+S/P*1> 3F/A3EF 2 7JS*M2IGPG7E"J&/6*KOG63"J*M3SGT+R3T2IGCL*M3D;O3E
F6,N 3K	PN7S2JNI3A	SN7T2J?L+O3P2IGCL*M2IWR3C	EV*M3ASDR&,"0*M2IOD3AZIL7D2JRIC	AR7W6JRIA	D3DGC7SSE"M&J3DGC" 	I2(7D3P3FG*M2IOA.7^7"5*M2IGT3DFI7DKD"M&J3DGC2IWM3V3FG*M6IOI3ZRI3OWNF7G2J*IM	S7GSE"M&J7I+S2ISAD7R2JNIL	L3R3A"M&J3S3N"M&J7JCM" 	I6(SUI7L6JJIA7R2JRIC	A
U	NT*M2I7J3S^IE7T2JFIN	D/PB72I&/3S3O3AWT2 	F3ESL2 [O6 WB3FWFR*M2IGT+D"I3C[D"M&J3DGC2IOWD7F2J*IM	S7GSE6IJ/7EKT7I[E3EZ 3UON3T?I3NN 7OSN3R3O2 ?WR7D6JJIA	L6IJ/3ESA6/KW3IWT2 	B7TR 3O2 3I/N"M&J3S3N"M&J7JCM2IWR/AGD*1>I7AJ 3ESA6 CO"M&J3CGL2IGRL*M3R;A+D3W2IOD7AJI+
>I/R7W21& 7F^ 7RSIE*M6IOI3ZFI7DKD"M&J7JOM2IWGT*M2IOD3AJI3U[FE	R2/GS+VCEI7T2J&IS	Z3ASDR*M2I7J3S^IE7T2JNID	F7CKU"M&J3DGC6IOB3IWZ6IJ/3E?C+RCD7S+IE*M2IGT7DVI7NSI"M&J3I[O"M&J7JOM" 	I2(	F7X[DC*M2IGT7D^I3C[D"M&J3DGC" 	I2([B3I3ED*M2IGT7D^I3C[D"M&J3DGC" 	I2([BL7D6
NI+TCA3C3L6 SR+L>I3TSA* 6("3*M2IOD3AVI3R;KT*M2I7J7SNI7EWT+P>I7SSE6 CU2 WR+ACD+OCR3W	RT7E2J?C3M;D2,&IO7N2J:IO7P2JNIA7L6J^I7ASIE*M2I?D3N[EG*M3R;T7SOT2,& S	Z3ASDR*M2IGT3D& 2IV(3R	RN7D2JFI+NCD+I"I7BSS3AWT"M&J7JOM2ISC7FOMG*M2IOD3A& 2ISAD7R2JNID	F7CKU"M&J3TSA2I
FD*M2IOD7ABI3FSL"M&J3TSA2IWM3V3FG*M2IGCL*M2I?PS7T2J[P+L3D"I602J*IM	P3L?OP*M2M^J+E3T"I602J*IM	S3C[D3M
S"M&J3TSA" 	I3ASDR*M2ISC3FNIU7R2J*I+MCP3I^IE7T"J*M3C[D3M
S.,B 2MZJ+L3D"I602J*I+MCP3INI3D7FS7G"J*M3RGE/DF16,J T	R2IJ/+ICT*1B1+TCO3L;IK*M6I+S3LNIL7A2JRI+CCA+I"I7DCM3F
L2 R/+O
N7TN 7TKO3ER 3AGT"M&J7JCM2IGR7N
D2MRJ7COA+E3T6 CB+T[R.1^7.+Z3"0&02/OD3A& 6ICBT7R"J*M3U	NT&,"0*M7M[E3F
L.,B 2MJJ3U[F+E3R" 606J
R.,BI*I>I21& 7F^ 7RSIE*M3E/R+N3T.IN-6MBJ*720.IB72MJJ7S+IE&,.2B0"M6J2JWS7LKE+RB,3SGT"M&J7JCM6ISR7NSS+S>I7RSE3U;R6 KE7RKO6MNJ7EWTP&,"0*M2IGT7DJIW*M2IGT+D"I3W	R7TE"M&J3DGC" 	I2(SI7ICS6IN/+ECT7RSE3U;R2 SA3DWRS7S6JRIA	D3B[U7FKE"M&J3DGC" 	I6(CBT7R6JRIA	D3B	SZ7E
JNIM	A6I^/7ASN2 ?T2 WR+ACD3OWN2 ?MR7E6JRIA	DR7W2JRI+CCA+I"I3B;KT*M2IGT7DJIW*M2I3C7LJIT7L6JJIT	L6I^/7RSI3EZ 3NN 3OWD"=606JRIA	D.(B220&+N	T2/WS3LOE3TF +NCD7ISN7EKR7USP2 ;E3A3BE*M2I7J3S& 2I2(3OSAA*M3WSCF&,7HSL"M&J3TSA6I
R"M&J3SGZ2I3CA*M2IGT3D& 6IWB3FWF+R>I6=CB+TCR2(?F/RJ 2 WL3V3E3S> 3F& 3N	D3ROET6)2JNID	F7CKU"M&J7JOM" 	I2(?G"M&J7JCM" 	I7SSEU7P"J*M"I6$"JBBBZ

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