File F1117.PA (PAL assembler source file)

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

2/GP3R7A3EWT+RCS7FKO6 SR/S"-2 GT7SOK"M&J3X	LS	T*0>I3CGH3NWG* B0+TCO61R 7OB 7R[E7ESN2 	L3S	TN7G"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/2JN/7O	P3R
I+HCT2 N(*)B .1^924J 3YR 3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?IN*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/T3E& 3N?F3RGM3T?I3N& 7NR 7HOI2 ?D3C7U7ESN6 OI6 WS3BWJ+CCT+TCO3CGH3NWG2 	W3T?H+UCT7NSO3IWC*M>J3ASN2 S3O3U3D: +OCT+BCE3C;O7SKT3USE6 OA* CA3C7O7MSI3M;E3
J 3YR 3I	G3T3A6 GE7UCI3M;ET*M2/?C3R?P7RSA3I;O*.B 3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	T+OCN7AOS3UWM3S: 7OJ 7ECS7OON3I	B7LSIY*M2/?F3RF +NCY7EKR7OOR2 T+ACT7M	A6 CA3PGE3R& 7NR 7HOI2 ?D3C7U7ESN".*M"/*M2/T7EN 7OSF7WKA3ER 3EOS3RKI+ECD+ICN3T	H3SR 7OWC3M;E3T& 3SZ 3U;R3IS+ECD+TCO3TWH6 WP3RC3AWSR*M2/;U7DKE* CA3LOI7EON
EZ +OCR3UWS2 ;O* CA3S;I3GWL2 ?C7MWP7TKE6 	S3SWT3MF +NCD3C;A2 WB2 ?C3PWID*M6/^(3IT2 ;I7CWL3S?I3N> 3FR 3I	G3T3A*	CS7CCO3Y	R7GSH2 ?N3TOI+EB)3O3N3YZ +OCR3UWS2 ;I6 WSC7H6JN/7YSS+E3M6 E7CCE3TF 3S6 +ACY3OT7E
R3IWS2 WB6 KP3O	V3DSE2 ;I6 KW3I	T+NCG+BCY3D
I3IGTL6."J6/2JR/3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T2 ?F7RR +HCE3UWS*M>J+OCR3R3E3IKA3I	L+TCY+OCF7IOT2 ?S7F
T3AWR2 ;O6 GE7UCI3M;E7TR 7HSA6 OI2 ?N7TN 7UCP3LWI3DJ Y*M2/	D7GSI+A;L*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J"M6J6JJ//TS6 E+ECC7PKA3AWM7TKE+S6 2 SE3IWT3DJ 7YV 7SKE"M6J2JSP3PV8"=&I*/B1+ICF7PCD* >8E*M3EWA"=&I*/B1+ICF7SOY3T7E2 S3O3U7DN 3AWV6 GM6MBJ3W[R/A7L* >
21& 7FB 3OWW3RZ 3A3I2/WR3SGT+RCT3EGN3BWL3D& 3N" 3ASR7WKAE*M3HG3FSL"=& 2/	H3GWH+SCT3FWI+LCD3UWS+D" +ECG*3B07FKO* CA21.62 GM3C	H+N	E2M:J7TOA/K7S* >I3N7U7BKE2 [O2 GT7SOK2 ;I6 	S3SWTM*M*M>J3C7O3M;O2 GT+SCK3N7U7BKE+S6 2 SE3IWT3DJ 7YV 7SKE*M>J+ICT+ICS7A[D3IGS3B
L2 ?T2 WD3F;I3EF +LCL7TOA+KCS7HKE+EB.2 GN7MOE2 	G3V;E2 WB7L
O*M>J3AWR6 OU+ECD+BCY3S7O7EN 7YSS+ECM7TOA+KCS3ASN2 S3O3U3DJ 3ER 3EWL3TSE6 KF+OCM3T	HS*M2/	L+SCT+ICF3TWH2 ?C3RWR3S?P3N	D+NCG7TOA3K& 3S: +OCT3ION3LSU+ECD+ICN3TWH6 	S3SWTM*M2MNJ3LOOK&=2IN/3LOO3K" 3ASN7LKE* B-3S?H3USL2 WB2 	H+GCH3P	R3O	RT7Y6J
P/R7F*I>I7P
O+ECR3F	A3L" 3ASN3L;I7GR 3A/S6MRJ/T7Y*I>I3T3E7E	T+PCE3D	R7VKE2 GTS7K6JCLT&=2I2/3IWN6 KP7ISN+ECR3D	R7VKE2 GTS7K2JOMR&=2I6/3O	N7TKO2 ?C3N?S+LCE7RWO3T;IE*M3DGT"=&I2/WD3CGT+PCE3D	R7VKE2 GTS7K2J/R"8&=6IJ/+KB8+OCR/RK3ER 3I/S6 KD3IWV7RR 3A/S6MJJ/F"0"=&I2/[R*0B87
OI3KR 7R[I+ECR7TOAK*M/DOF"2&=2IR//FJ32 	D+SCK3D	R7VKE2 GTS7K6JOCA&=2IN/7AOS7EST3ER 7R[I+ECR7TOAK*M3CGSF&=2IN/7AOS7EST3EZ 3IWL6 WS3P?P+RCT7TOAK*M3UOD"=&I2/;U3IWV3RGS3LR 3I	G3T3A2 ?C7NKT3O3L+ECR7TOAK*M/OS2=:I7TOAK	S6/OO*/B87SCU7PKO+T6 2 ?N3RGM7L	L2 ?L7WOE7T
 3R?I7RSIY*M/OSF&=2I>//S"/2 	F+LCE7SCU7PKOT*M*M>J3S[O3TGW+RCE7PKA3AWM7TKE+S6 2 SE3IWT3DJ 7YV 7SKE"M6J2J&I3FWD3F>IS&8"<*M3O[S7LOD"=& 6/WN3MWB3R> 3FZ 3I3E+DCS+TCO3A3L3OGC+TCE+TCO+O?S*8" +ECG"26)6JOO3KSB+VB=2I>//S"/2 WK3Y?B3ASR2 WD3VOI3EN 3OWD2 V(/GB .36 2 ?
3N?S+L	E2M>J7SST/D7V* >I+O?S68R 3EWL3P	R3NWT3RR 3E	V+CCE3CSO+E" +ECG*0&42M>J7S	S/S7D* >I+O?S68N 7YSS+ECM7D[E3IWC6 KD3IWV7RR 3A/S2 V(*.;G2 /R"86)6JOO3F3I+LB=*IN/2 	F7LOL2 WN3EWD3DF 3FWT3R2 3IWN2 WFE7D.J:I*I"/+ECG24Z +OCR.2B420J 3ASU6 SV*0&5"M&J3ISFE	F7MKC"
6<2JOM7R	S+SB=.IF/2 [I2 OM7RN 7YSS+ACT3FOA3I	L+TCY7DOE3IWRD*M"I6>2J&I3FWD3FNI3LOO/K2I2MNJ7LSK/Y7P* >I20R(3KV83AR/3KV8+CB)+OCR21.(/WJ12)> /RJ 6(SV*8	E6 KO* "3/DK+E	P2MNJ7LGK/L7N* >I3M;I7IWM3M: 3UKM+ECR+OCF7ESN3RWI3S> 7NR +HCE3C?L+CCK3QWUU7E2JRI3E	C3M3A2M"J
ESRZ&=2I:/3UKM+ECR+OCF7HKA3DGW+RCE3TOI+KCS7PKE2 WS3C;OD*M3SWH7R+T"=& 6/WN3MWB3R> 7FN 7YSS+ECM3TOI+KCS7PKE2 WS3C;OD*M2IOO3T3A"M&J">*M6/GE7U[I3AWL3NWCS6:"J*M/A
C.7Z72=N +LCL3SGT2 GRL*M/A
C.7V72=N +LCL3SGT6 SRL*M/ASC.0B02=N +LCA3S3T2 GRR*M/AOC.7^72=N +LCL3SGT2 GRR*M/AKC.0B02=N +LCA3S3T6 SRR*M/ACC.0J02=N +LCA3S3T6 SRL*M*M>J3M;O3I?T3RN 3A3L2 GV3LWUS6:"J*M3C3A2=*IM	S"2&02/GC+LCL3TWH6 E7EWC7T[IE*M7POO7TOD2=* +MCP/IJI*4>I7DOI7MOI3SF 3N& 3NWT7RW
P7T2JGW3I7T2=*I+MCS/IJI*5>I3W	A3TZ +OCR3M3U7TCI+LCE3EWV7NOT"M6J2JWS/N7D"I&02/WS+NCD7MOE3S
AE*M3ROE7E[I.=F 6IJ/3EWC3IWV2 WM3SGSG7E2JGW3IWT.=JI6I^/7ASI2 ?F3RV 3V;E3TZ 3L
A6MJJ/U7N"I&32/?C3N	T3NWU2 GT+SCK3EWX7CSU3I;O6MNJ7UCS/N7D" &46/WS3SWP+NCD7TOA3KV 3XOE3U	TO7N2J?P/S7T"I&52/?P+SCT+ACN3EWV+NCT3FGLG*M7SCK7ION.=Z 2I&/3NWS+RCT3CSO3E& 3N?T2 ;I7TKE7RCU7TN 7KCI2 C3A;I2MRJ3EGR/I7L" &72/;I3I	T3AWT2 ;E3DF-3C	TO7N2J3B7KKA+GB="1&02/
B3O/C2 GT+SCK7FKO2 WR3A?S7NN 3POE3I	F+ECD+ICN3A
R6MNJ3ESNW&="1&12/WS+NCD7MOE3S
A3EF +NCD3W	AT*M3UKN3A
R.=F *2>I3UKN3LOO7KR 3A/S2 ?F7RJ 7EOA+OCN3SWP3C[I3ISE2 ;I6 KAG*M"M&J3ISF+ECF3UOD2IF</OB=2;?D.=.1/D7I22^;/CN=2;OE.=.4/R7C"5*M"I&I/D7C26V;/C7T27N;/SF=20R;/C7T.1.1/A7I.1:2"M6J6JR/3A/S6 SS7AWT3SZ 3L
AS6:"J*M3M
S/W7T.IB4"0&02/WM3SGS+GCE3W	AT*M7E
FT&=.2B0*0>I3EWV+NCT3FGL7G^ 7ASI6MJJ7U
NT&=.1B0*0>I3SC7EWD+LCE3W	AT*M7SCW/W7T.IR0"0&06/
S7ACP+ECR3W	AT*M7EKO7MSW.=B .2B02IV/3V;E3TZ 3L
A6 KO2 WM3SGS+GCE3W	AT*M3UWS7RSW.=B .1B06IV/7SKE6 CS3E	C3FWI7D^ 7ASI2MVJ3NKA/W7T. B0"4&02/;E3A3B7E^ 7ASI2MRJ7N
ET&=.0B0*1>I3DWO3S: +OCT3E	X+SCT3W	AT*M*M>J7SOY3T7E2 ?L7CSA3I;OS6:"J*M3M
S3T3B.=F .2B0"-&2*I>I7TOA3K6 7EOS3AWG2 GT3BWL6MRJ3SGT/B7L6 SN3A/S/SJ+* .23M
S3T3B"-&42/GT+SCK3SGT+TCE3TKA+LCE2-" 3OSLS*M"I&I6IR/3A/S2 	L+N3K+U3M+D3F+I3F+P3C+A3CM7Q2J[T3TKA+LB=3NGT7SOK*+B264R+3SGT+B7L*1>I7TOA3KZ 3L
A7SR 3A3B+E6 2 ?H7LOD"M&J"I&I2/GT+SCK3SGT7TOU2 3F7AOG"M6J6JOT3W3F+GB="3&52/GT+SCK+SCW3IN3I	B3TZ 3L
A2I;I2 	F3ESL" 602J?T/D7L.IZ3*IB/7L
O6 KO7DKE2 	T+MCE+OCF7D	A2 ;I2 	F3ESL" 602J?T/D7H.I^32I"/3IG6 KO7DKE2 	T+MCE+OCF7D	A2 ;I2 	F3ESL" 602JGD/T7E.IB42IR/3AWT2 ;I6 OO28Z 3O7RA	T+ICN3FWI+LCD"0*M7MKC/E7F.IF42I6/+CCR3SGT+RCT3EWV+NCT3FGL3G&I3NZ 3I3E/DB "M6J6J"I7LOI/TFI2IZ/3OOR3E2 7ISS3I
N2 [OF*M2I[I3D[E2IGTS	K"<*M2I3X7ISS*M>J7TOA7KR 3A3B7EN 7EWT+P6 6 R"3A/S*"B,6"WC+R2"2";I7ISW*"B,3ASN6 N"7TKAT6"2J6/7USS2 WB2 WD3F;I+ECD+BCY7TOAK6:"J*M6IR*3A/S* .23M
S3T3B"M&J3Z3B3O/C"I&22/WM3SGS+GCE3B[U7FKE2 ;I3I	T3A3L3YN 3LGER*M6IR*3A/S* .47TSS3A3B"M&J7CKU.%B16+WC+R>I3I	N3TGI3LZ 3L
AS*M6ISS7ASR"M&J"0&I2/;I3I	T+ACL+ACC"0*M6IR*3A/S2+[T3TKAL*M2I;I7ISW"M&J3X	LS7T.J:I"M6J2J&I3FWD7FRI3A/S.22I"M&J3X	LS7T*J*I7TOA+KB2226+7SSGB7L6J*I3B?LC	K*2>I7MOE3S
A3EJ 3U[F+ECR3I	N3TGI7L	L2 3C7EKA"M&J2*GT/SKK* .47TSS3A3B"M&J7CKU.2F%20N+/UKR2I&/7NSI3I3A2 3F7AOG"2*M6ISS7ASR"2*M"I&02I&/7NSI3I3A2 OA" 60*J*I7TOA+K.27TSF3A3B"M&J3I	N/WKT"M&J3X	LS7T.J:I"M6J2J&I3FWD7FRI3A/S.32I"M&J3X	LS7T*J*I7TOA+KB3226+7SSGB7L6J*I3B?LC	K*2
I7MOE3S
A3EJ 3U[F+ECR3I	N3TGI7L	L2 3C7EKA"M&J2*GT/SOK* .47TSS3A3B"M&J7CKU.3F%20N+/UOR2I&/7NSI3I3A2 3F7AOG"3*M6ISS7ASR"3*M"I&02I&/7NSI3I3A2 OA" 60*J*I7TOA+K.37TSF3A3B"M&J3I	N/WOT"M&J3X	LS7T.J:I"M6J6J"I7LOI/TBI2IZ/3OOR3E2 7ISS3I
N2 ;O&M*J

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