File SWAP.PA (PAL assembler source file)

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

6/
S7ACP+ECR7TOA3KZ +OCR7ROT68Z "2&I*I>8*3>0"764"J*M./JI6-CA/R^-25N 3H;A/G+E2 ?F3RWC2 [O7FN 7W
P3TF +NCD7FKO+CCE+OCN3N;O7RSW*M>J.I"16-WJ/N^-25Z +ICX3G?R+SCS3B
U2 ;I2 ?N3NN-3HOE3K?P7ISN3I
N2 WV3R	SO7N"J&/*1693J;U.-V72 	F3XJ +UCG+ICN3CWH7CCK3O;I3T;I7GZ 7EOR3I;O"M6J"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/2JN/7O	P3R
I+HCT2 N(*)B .1^9.4F,.9V76 	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+GCE7WSI7HWO3T: 3O	TC7E2JF/+NCD3S?H3USL2 ?N3TJ 3EN 7OON7TWR+ECD+ACS3AN 3O7M
I7T7ESN6 	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+ICS3DOO3UWM+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&L7TOAK&=3SGW3PWPR&I6/	B2 S3A;W* >7*2>5"7642JNI/U7R"I602J&I7N
IT&=3R;UW7T2JZI3I3E/DBI*I>I7MOU3TJ 3EZ 3I3E/DB "M&J2*?C3MGMN7D2J&I7NSI"I&I2/;E7T	R2 ?P7ISN2 ?F3R& 7NSI3I3A3IGZ3T?IN*M2I[X3RWE*M>J*M>J7PKA7TSI3I;O2 GT3BWL6 B(7ASR+B	L2 ;E3T	R/E+S*M>J7MOU3TJ 3E& 7NSI3I3A3IWZ3DJ 7YV 7SKE6 OA6 E3PGL3IWN3D& 7NR +HCE3C7O3M;ET7S
JR/+O
N3TZ 3O
R+ECT+TCO3R7E3OWV2 WL3A	D+NCG*"J/6 KF+OCM3L;I+ECS3UWSD*M"/*M6IB*7ASRB7L6J"I7LOI/TFI"M&J3I;F3Z?R2IGP3R;TS&I2<3X7ISS"I602J6/3FSL.060"I&I2/WM7MKO3YZ 3I3E3D> 7FB 7ASR3I	T+OCN*B0*(;E+GB.22& 3FZ 3I3E/DJ ")*M2/SA/DCR"0&=*I>I7L
O7ESS2 SA3DWR+SCS+ICN7PKA7TSI3I;O. B*M>J7S+I/EB0"=&I6IN/3IWZ2 [O2 GP3R	T3T?I+NN *0" 7CKO7EB 3AWGS6)6JNI3IWZ60:0*1.03M3F/DB0/^B1.+B4"0602JFI7DKD"0606J*I3B?LC	K"2*M2I3X7ISS"M&J3I;F3Z?R2IGP3R;T/SF-6I"<7LOI/TBI*M>J3M3F/DF0"=&I2I6/3E?M+RCY3FWI+LCD+OCF7PKA7TSI3
;O. F*M>J3ASD/RF0"=&I2I2/3OWW+SCT3ASD7ROE3S& 7NB 7ASR3I	T+OCN"616JN/3IWZ.061"I&I2/	S+ZCE+OCF7PKA7TSI3I;O. F2 N(3OWR2 GP7GOE")*M2I	S/ZCE.1G^206+3FSL60:1*1.0.4B0"0*M2ISA/DCR"1*M2IKZ3LOO/KJI"M&J3X	LS7T2J&I7F+NR	O7PKA7TON"-&22<3X7ISS"I602J6/3FSL.062"I&I2/WM7M
O3YZ 3I3E3D> 7FB 7ASR3I	T+OCN"622JF/7DKD.062"I&I2/?L7WOE3TF 7DKD7EOS2 ;I2 GP3R	T3T?I+NN "2*M2/	S/ZCE"2&=*I>I7S+I3E> 7FB 7ASR3I	T+OCN"626JNI3IWZ60:2*1.03M3F/DJ0/^B1.+B4"0602JFI7DKD"0626J*I3B?LC	K"2*M2I3X7ISS"M&J3I;F3Z?R2IGP3R;T/SN-6I"<7LOI/TBI*M>J3M3F/DN0"
&I2/GP3R	T3T?I+NN "3*M2/SA/DCR"36=6JN/3IWZ.063"M&J7S+I/EN0/^B12+[M/LCD.3G^.0R+.0B0"M&J3ASD/RN0"M&J3Z3B3O/C"I626J"I7LOIT*M2I[I7NKZ7OBI7ASR+N7S.42I3X	LS	T"0*M2/[M/LCD"4&=6IB/7ASR3I	T+OCN"642JF/7DKD.064*M>J7S+I/ER0"=*M2I	S/ZCE.4G^206+3FSL60:4*1.0.4B0"0*M2ISA
DCR"4*M2IKZ3LOO/KJI"M&J3X	LS7T2J&I7F+NR	O7PKA7TON"-&52<3X7ISS"I602J6/3FSL.065*I>I7PKA7TSI3I;O. V*M>J3ASD/RV0"=*M2/	S/ZCE"56=6JNI3IWZ60:5*1.03M3F/DV0/^B1.+B4"0602JFI7DKD"0656J*I3B?LC	K"2*M2I3X7ISS"M&J3I;F3Z?R2IGP3R;T/SZ-6I"<7LOI/TBI*M>J3M3F/DZ0"=&I2/GP3R	T
T?I+NN "6*M2/SA/DCR"66=6JN/3IWZ.066"M&J7S+I/EZ0/^B12+[M/LCD.6G^.0R+.0B0"M&J3ASD/RZ0"M&J3Z3B3O/C"I626J"I7LOIT*M2I[I7NKZ7OBI7ASR+N7S.72I3X	LS	T"0*M2/[M/LCD"7&=6IB/7ASR3I	T+OCN"672JF/7DKD.067*M>J7S+I/E^0"=*M2I	S/ZCE.7G^206+3FSL60:7*1.0.4B0"0*M2ISA/DCR"7*M2IK
3LOO/KJI"M&J3X	L/S;T.>:>.>:>">*M"/*M2/SA7DSI3I;O+ACL7PKA7TSI3I;O3S6 +ACY+BCE3D[E3IWN3DJ 7YR +HCE3UWS3RF 7SN 7H
O3NF 7B[OE*M6/WF3RT3E7R3OWR6,R +HCE7PKA7TSI3I;O2 GT3BWL2 GM7YJ 3E	S+DCE7A	N3WWH+RCE+ICN3FWI+LCD7ZKEO*M"/*M2I3X7ISS"I606JBI3AWG"M2J6IKN7TOA7KN=7WCA7PKE"+612J?L3O;PX&,7I+F3E?R2I
H3H3F/D2I3I;O">*M6IOI3Z:I3X[TL	G2IJ/7UCM2 [T3TKA7LB 3O;I7TKE"M&J7I+S2I[N3L
AS&I2/;A7DR 3A/S2 ?C7USNE7R*JBI7JCM2I?L3O?PN&I2/?C3N	T3NWU2 [I2 ;A7YR 3A/S3S2 7ESF6MNJ7WCA+E3X2IN A7L*JBI7SOU3PSN6MNJ7TKAT6,6J
S3A?PN&,3TSA2I:(3RGT+S/K7TSF3A3B"M&J3DGC6IN3T3FG&I2/?P7ISN7SR 3O: 7ESX2 [T3TKA3LV 7NKTY*M2IGT+D"I7NSR3A/S6-SN3A/SS*M2IOD3A:I3FGLG	S6IR/3FGT+BCL7ESN+RCY3OWV3R3F+OCW7CWON7T2J?L3O?PN&,3TSA" 	I7NSX3F
L*I>I7GSE* CA3FGL7G^ 3OSR"M&J3ASN6IOK7W
PT&I2/WK+ECP3O3N7YR +HCE7SCW+WCT7BSI"M&J3SGN2 3CA&I6IR/7HOI2 GT+SCK+ICN7SCW/W?T"M&J2 7J3P2I7OCON	X2I:/+OB:7T	R2 WN+XCT7TOAK*M2I[I7ZKE3O"I3G[HL	D2<?IF6>2J&I7F+NR	O3HG3FSL2IN<+ICF7CKU">*M2IGT3D& 6IN3T3FG&I2/WG7TR +HCE3FGL7G^ 3OSR"M&J3TSA*I6(7SCWW	T2I2/7EOS2
T7EN 7W
P3TJ I7T6JNIN	A*I>I7TOA7KJ 3UGN3BWL2 ?NW6?*JBI7JCM2I?G3T;OE&I2/WY+SB:7ROE3IWD7N	C2 GC3N	D7DSAE*M2IGT3D.I7N
RT&I2/?N2:Z 3L
A2 	H3M: 7OKN3E	S3D;ET*M2IOD3A& 6IN3T3FG&I2/;A7DR +RCY3S7O3E;O3EV 3LWS"M&J7JCM2I?L3O;PX*M7GSO3OWN2,&I3FWZR	O3HG3FSL2I&</O;N"M&J3TSA6IN3T3FG*M2IGT+D"I2-[T3TKAL*M2I3C7LJ A	L*I>I7TOA3K: 3UKM+ECR3T7I+ECS"2*M2IGT+D"I6-KN7TOA3K:-3RGT+S/K7ROE3T3B"M&J3DGC6ISPR&26
B/3O;I+TCS+TCO7ROE3T3B2 ?W+RCD"1*M3UKN7U	S6,RI+ACD7IBI/TKR"M&J3ASN.I^(.7R7"M&J3DGC6ISPR&36IB/3O;I+TCS+TCO7PKA3T3B2 ?W+RCD"1*M2IGT3D& 6ISPR636JJIA	R*I>I7PKA7TSI3I;O6 WB+SCY7BSI2 ?T2 	LN7K6JNIZ	L*I>I7PKA7TSI3I;O6 WB/S?Y"M&J2 7J3PNI7HCKT&I2/WY+SB:3CWH7CCK3O;
T*M2IGRL*M2IOD3A2I3EWVL&I2/GS+VCE+ICO3D	R7VKE6 KAG622J&IS	Z7PKT"2&I2/?P7ISN7SR 7OJ 7ESS+BCL7WKO/DJ "M&J7I+S" 	I7PKT"3&I2/3F+ACG7PKA7TSI3I;O6 WBS7Y2J&IS	Z7PKT"3&I2/?P7ISN7SR 7OB 7ASR+BCL7WKO/DJ "M&J3TSA" 	I7PKT"3&I2/WG7TB 7ASR3I	T+OCN3ASD7ROES*M2IOD3ANI3OG
D7R2J&IS	Z7PKT"3&I2/?P7ISN7SR 7OB 7ASR+BCL7WKO/DN "M&J3TSA" 	I7PKT"3*M2I;SA&I2IF/3N?Y+NCE3H7OE6?*JBI7JCM2I?N7RSIE*M2IOD7ABI/TSR*I>I3P	O7NOT2 ?T2 WR3SKT7L^ 3OSR" 616JRIA	D7PKT"4*M2I7CA&I2IN/7OCM3AWR2 	W+TCH3S7A7EB 3O;I7TKE"M&J3TSA6ISPR&22IZ/+OCR7N
E2 WR3SSI7ESN"M&J3SGN2 3CA&I6IN/3AWM2 GT/S?K"M&J2 7J3P:I3OWRA	D6I&//E+S2 ?N2 GT+SCKI7O6JRI+ACD7IBI/TSR"M&J7RKA"I&I6/^"7RSI3E6 +EB"7BSI2 ?T2 	LN7K6JNI+NCL3CGL"I&I2/WN+ECD+TCO3W	R+TCE7CKU3R;E3T> 7CWC3P;AT6?*JBI7JCM2I?N7RSIE&I2/?N6:J 3ESA2 ;I2 WN3W> 7CWC3P;A
*M6IOI7ZBI/TSR*I>I3P	O7NOT2 ?T2 WR3SKT7L^ 3OSR" 626JRI+ACD7IBI/TSR*I>I/A7C7DOI3KF 7DKD7EOS2 ?F7R^ 7RSIE*M2IOD3ARI3SGKD7R2J*IM	S3S;E7DSI2M:J3O	R+T3E2I3C3LN +MCA7RKA*I>I/AOC.7^7"M&J3ASN2IWL3V3E"M&J3DGC2IWL3V3E*I>I3CWL+ACR3TWH6 KW3IWT2 	BT*M2IGT3D& 6ISPR622J
IC	A3D/S7AKD"M&J7JOM2IWS3N	DT6I2J?N3RGED&,3CGL2 7CA*M2IGT7DBI/TKR"M&J3DGC" 	I7PKT"3*M2IGT3D& 6ISPR636JRIA	D6(KN7TOA3K:+3RGT+S7K7ROE3T3B"M&J3C3L2 GRR*M2IGCL&I2IN/3LGE3R" +ICS3SGW7P^ 7ASI"M&J2 ;U7BKAG*M7K
S7PSW*,BI7SCWW7T2J*IM	P3SGW3P;O*I>I7ROE3C;A6 KF+OCM3TWH2 ?TP*M2I[I3D[E2IC3E/CP	T"<*M3C/H+P3T6ISS3LN +LCA3R3T*I>I/ACC.0J0"M&J3TSA6ISPR632JRIC	A7PKT"4*M2IGT3D& 6ISPR642JRIC	A7PKT"1&I2/?P7ISN7SR 3O> 3WWN7RN	2 WR3SKT7L^ 3OSR" 616JRI+ACD7IBI/TGR"M&J7RKT"I&I2/N
3HOE3K?P7ISN3A3B+EB"7BSI2 ?T2 	LN7K6JNI+NCL3CGL"I&I6/OI2 WH2 C3E/C3P	O3NGT3BWL"?*M2I* M	P3L?O7PN*I>I/N+O2 WN+XCT7RGE7UOET*M2IGT7DBI/TGR"M&J3C3L2 7CA*M2IGT7DBI/TKR*I>I3C7O7PKA7EJ 7ESS+BCL3P	O3NWTR7S6JNI+ZCL3CGL"I&I2/WN3W?C7MKE2 	H3GWH7RB 3R?I7RSIY6?*JBI7JC
2I?L3O;PX&I2/?N2:: 7ESX2 WR3QWUS7T6JRIA	D7PKT"1*M2IGT+D"I7NSR3A/S6+KN7TOA7KJ-7ESSB7L2JNI+LCL7RKA"M&J3C3A"M&J2 3B7KKAG*M"I6>2J;K7RSW*,BI3N;O7RSW"M&J3ISFE	F3CWH7CCK/T2I"M&J3SGT"I&I2/3F+ACG7PKA7TSI3I;O2 Z"3RWE""*M2IGT3D& 6ISPR632JRI+CCA7IBI/TOR"M&J7JCM2I;U7B
UY*M"I6>2J&I3FSN+ECF3CWH7CCK/T2 2MNJ7HCKT&,3CGL"M&J7JCM2I?L3O;PX*M"I6>6JN3T3FG&,"0*M3N3F7AOG.,BI6MBJ/TKR.,BI6MBJ/TOR.,BI6MBJ/TSR",*M3S;E7DSI.,BI6MJJ7EKTY&,3C3A"M&J2 WS7N
D"M&J6 	SS*M6IN 3Y7SS7G6JRIA	D7EKR7OOR"M&J3SGN2 3CA*M2I* +MCP7INI3ESNI7T2J*IM	P7RSER7Y6J	S7SOMG&,3Z3B3O/C" 632J;U+I3T6IWS7NSI2M2J3EWVL&,".*M7CKO7AKD*,:I2MRJ3SGK+D3R"I6.6JSP+R212MVJ3R?R+R3S"I6.6JBI3AWG"M2J2IGT7SK.=NI"2*M.I7T.IJ4"M6J"J6/6JR/+HCE3F3O7L
O3I
N2 ?C+DCE+ICS7ASC3U3A+LCY7PKA3T> 7FR +HCE3EWX7CSU3IWV*M>J7H
O3EWV+RB,+ICT7ROE3IWD3S" 3EWR2 ?F3RN 7OCM3A	T3B3I7I	T2 	W+TCH7VKE3S?I/NF ".*M2/;E7TKE2 	W+TCH3I;O2,F /CB=2,2 3I/N2=?D7NR	2 GC+R3E2 GS+VCE3SGT+TCE+OCN7ISN7EKR7USPS*M"/*M7XKF+E3E"I&0*I>I3FWR7EV 3PF 2 GP3R	T3T?IN*M2IGT7DRI3A/SX*M2IGT+D"I6-KN7TOAK*M6ICSA&I6IR
7HOI2 GT+SCK7L
O+ECR3P	R3O	R+TCY3TGH7NN 7WCA7PKE"?*M2I* +MCP7I"I3FWRE&I2/?N2:J +ACD3FWR3EN 3O7M3ASN"M&J3C3L2 GRL*M2IGT+D"I7ROE3T3B"M&J3DGC"I	T6IB/3O;I+TCS+TCO7ROE3T3B2 ?W+RCD"1*M2IGT3D& "I7T6JNIN	A*I>I+ICS7TOA7KJ 3E3A+LCY3N;O7ROE"?*M2I* +MCP7I"I3FWRE&I2/?N6:J 7EWTR7N2JF
N	D.(^7"7&46I&//E+S6 KE3AWS2 3F+ACG7BSIS*M2IOD7ARI*I>I3P	O7NOT2 ?T2 GP3RKT7L^ 3OSR" 612JFI/C^7"7662JFI+NCD7IRI"M&J3DGC" 	IT&I2/3F+ACG7PKA7TSI3I;O2 Z"3RWE""*M2IGT7DRI3A/SX*M2IGT+D"I7TSF3A3B"M&J3DGC"I	T6IB/3O;I+TCS+TCO7TOA7KN	2 3F+ACG7WKOD*M2I[I7NKZ3O"I3G[H
	D2<	C/FB ">*M2I[I7ZKE3O"I3G[HL	D2<?IF6>6JNI+TCL7RKA"M&J3TSA" 	IT*M2IOD3A& "I	T2IZ/3L
A2 GT+SCK3N;O7ROE3IWDN7T6JRIA	D6(J-7U
N/TF-"M&J3ASN" 	I6(
S7ACP+E/R7TSF3A3B"M&J3DGC" 	I6(
S7ACP+E/R7TSF3A3B2IN/3AON+ECL3SGW3PWP7RJ +UCN3W	AT*M2I[I7ZKE3O"I3G[HL	D2<?IN&>2/WB2 	N+CCE3S;I+CCE3SGP+CCE+ICS+NCO3P?R3BWLM*M2I7J3P& 2I[X3RWE*I>I3F;I3D: 7ESX2 GT+SCK+TCO3R;U"M2J"/*M2/T3EZ 3O3L3O	W+NCG3CSO3E& 3SV 3NWT3RSE6 SA2 ?L+ACD3T7I3EF +NCD3EWX7CSUE7D
JR/3O& 7NSI3I3A3IWZ2 T7EJ 7ESS+BCL7WSI7HR +HCE7DOI3KF 7DKD7EOS2 [O2 GEC7H2J:/7OKN3E	S3D;E7TR 3A/S*.B 3OON7ER 7HOI2 ?C+DCE7HOA2 WR7TKU3NSE2 ?T2 T3EV 3XOE",*M6/SI6 OI2 WN7VKE6 E7EWC3TSE2 
A3A;I*.B +ICT7CWO+LCD+BCE3PGL3CSE2 ;I2 ;AY*M2/GP3R	T3T?I+N" 3S;I+CCE3A3L6 KA3EV 7MSP3YF 3T2 3OSA2 	T+M	E2 [I2 WD7SKI+E;D*M>J2M&J7NSI.,BI"M&J3C[I.IB1"M&J7JOM" 	I.(^7"060*JBI"1602JWN3X	TN&,3C[I.IB1"M&J7JOM" 	I.(B2"0*M.IV "M&J. N2"2662JNID	F"1606JRI+ACD+I"I.
R6"6*M2I;SA*M2I* M	P3N	O7NWPT*M2I3C7LJ A7L6JRIA	D6(N-7WCA7PKE6-
S7ACP+E7R61J+7ESSB7L2JRIC	AT*M2IGT3D& .I^(.6Z4"I6/6JRIA	D2([T3TKA+L>I"M&J3DGC2I[T7PKT"I6/6JRI+ACD+I"I.7J6"0*M2ISCF*M2IGIC*M2IOD3A& "I7T6JRI+ACD7IRI7FSP+R>I"M&J3ASN*I6(7SCW+W7T3N;O7RSW"-&12/?F3RWC2 GT+SCK3N;O2-WR3SSI7ESN2 GW+ICT7BSI2 ;O"M&J3TSA2I:(7OKNW	T"
*M2IOD3A& 2I[T7PKT"I6/2JNID	F"1602J?N7ICN+U3T3TSA" 	I.(Z7"4622JNID7F6JNI+MCA3CGL"M&J2 7J3P:I7ESXI7N2JNII	F"1602J*I+MCS+I"I.2B0"M&J. F1"M&J3CGL2 3C3LN M7A6JRIA	D3I	NT*M2IOD3A&I7NSI"M&J3TSA2I&(O7N2JRI+CCA3I&I7NSI"M&J7JCM" 	I.(B2"0*M6MRJ7FSPR&,"0&I"/*M*IR$*$
$"M2J"ZB"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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