File FPATCH.PA (PAL assembler source file)

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

6/B /S"/2 ?F7RKT+ACN3C7O3P3I+ECR3OWV3RGL+Y*I**B*3FGP3TC..V0* **"**M*M>J2I>I3C?T7BKE. "2.,F .9B7"M6J2JN/7O	P3R
I+HCT.1^9"0&I3D
I3IGT3LV 3Q	U3PWM+NCT7CKOP6."J&/2I6I3A;Y3ASR2,6 7AOS".*M"M&J3FWI+LCD"0*M6IOJ7BSI/S^=.7Z4"M&J3M[O3IWL.=Z7"0602J6I7PKA/A7M.7R6"3*M2I3L3UON/H^=.0F06IR/3AWK6 WO7T^ 3H;E2 WM3R	G+NCG7WSI3HN 7OCM3IWLR*M2I?D.=F7"7&4*IJ/"M&J3E	L/S7T.1Z1*2>I""*M2I7E/SGG.=J1"6&6"/6"
JVI3M
S.164.1F5*4>I""*M2I3F/S7T.2J4*IJ/"M&J7FKO/S7T.5Z3*2>I""*M6ICF7RCO.=R1*4>I""*M2I?G3O;O.=R5"5&5"/6"2J.I3O;U/TF="1&3"/6"2J2I7PKT/I7N.5^4*IJ/"M&J7LWP3NC.=N5"3&3"/6"2J2I7T	T/P7E.7F1*4>I""*M.I
L.5^="5&I"/6"2J>I3S?T/PR=.0J5*IJ/"M&J3X	F/N7I.5V3*4>I""*M*L*I.2B06MNJ7TKAT&,3C[I. B1"M&J7JOM* CI.(^7"060.JFI*0>I3EOS3AWP"M&J3C[I. B1"M&J7JOM* CI.(B2"0*M"I&52/?C3MGM+NCD3DOE3OWD"M&J.0J6*4>I6.SF6 OA3S7U+ECD7ESX7EON3I;O"M&J3CGL2 GIC*M2I	C/FF "0*M2I7J3S& . J(
060.JRI*I>I3C?L+SCE3OWP7RSA+OCR3UWS3DF 3SR 3EWLT7E2J>I3U;S3AWM*I>I3D3E3EWT2 ?F7RKT7NR.3M& 3F& 3TV 7XOIT7S.JBI"M&J3CGL*I>I+ICT3DSI7NR	6 E7ISS"M&J3CGL2 GIC&I2/;E7TKE* CA3F3I3E> +NJ 7SOY*"6 2 GM3X7I+UCM7S+IE*M2I	C/FF "0*M2I7J3S& . J("060.JNI2IV/3NWTR*M7OOU3R
E2,>I3U;S3AWM2M"J7OOL+I3Z"I602J*I+MCP+I" 3OWUR	R2/W7AOT2 ?G3I
N2 ;O2 WH/R?E"M&J3CGL2 GIC&I2/WD3VOI+EJ 7SOY""*M2I	C/FF "0*M2I7J3S& . J("060.JJI6MBJ3TGS+B3R2IGSB7R.JBI*I>I3UWS7LOE3S2 3E
N+TCH7WKOD*M2I7J3P& 2 J(3I
GI7E6JRI+ACD7POT7AKB"M&J3DGC* CI2(3C3SKAR*M2IGT3D> 7UKSE7C2JRI+CCA+I" 7OSU3ROE"M&J3TSA2 ?H3L	SZ*M2IOD3A& 2 >(3UORN7T6JRI+ACD.(B1"0606JRI+ACD+I" 3JKS7IOT"M&J3DGC* CI6(OJ7BSI+S>I7SSE6 V"7NSS7ASR3A3B+EB"3SGT7TOU2 	BT*M2I7J3S& 2 Z(7N
E+F>I3I	N3TGI7L+I3EZ 7IOR3T& 7NWP3TZ 3IWL2 W3IWL* ?I3O6 +OCN+ICS+ICN7CKOE*M2ISC/FF "0*M2IGT3D> 7UKSE7C2JRI+CCA+I" .7J6"0*M2I3C3A& A7C2JRI+CCA+I" .7F6"7*M2I3C3AN +LCL3C3M6 SRL*M2I;A3D& 2 6(7PKAA7M6JRI+ACD+I" 3M[O3IWL"+656JNI+NCA3CGL"M&J3DGC* CI2(3FS7T6JRI+
CD+I" .7B6"0*M2I;S3AN L7A6JRI+ACD+I" 3MGP3R7A"M&J3ASN. R("1*M2I;S3AN L	A2IR/+ICD+HCE3SWP3C[I3YF 2 2"2"> +RJ +GB"7OSP3I;O2 	W3T?H+UCTA*M2I7J3PZ 3C[D*0>I3R3E3OGC3TKA+LCE7OSU7PSU2 	F/L?E2MZJ3TSA+N3M2IGT3DJ 3DGFL	T2/WY+S6 2 	G+VCE3H7I2 ;OE*M2IOD3A& . 
B.6B02I:/3AWM+DJ 7FKO3T3R2.7T""*M6IOI3ZZ 3TSAN7M2J&I+SCZ/BZ7"0602J&I+SCZ/B^7"7632J*I+MCP3FGT3D7N2MZJ3C[D"0&,3C[D" 602J*I+MCP+I" .1B0*3>I3SGT+RCT3C7O3P3I3A	TO7N"J*M3B[D7ASL.,FI*I>I7D[E3IWC6 N"+YKS"M&J7TE+T>I7FKO3T3R+T?M2MJJ.7B6"0&,.7B6"0*M/B^7*723.I^7"763"
*M*L>I3ASD3I	T7OON2 ?T2 ?F7RKT+ACN7EKR+OCR7MOE3S
AE7S"J*M2IV*7LOI/TF+"M&J3N7U/SGG"M&J2*7E/SGG"-62*J6I7EKR*661"1&;7EOM/GV1"M&J6-KE/RJ6.-.12I7E/SGG"6*M2IV-/R[R.3F-2;VI3M
S"167*J6I7EKR*664"1&;7EOM/GB2"M&J.0.I2I7E/SGG"4*M2IR/3U7M7YB 3AWG7SR 3ON 7OON3O	L7DSA3EN 3OWR2 7I3AWG"M&J.*Z1"060.JBI"M&J.*B2"060.JBI"M&J.*R2"060.JBI"M&J.*B3"060.JBI"M&J.*Z5"060.JBI"M2J.IV*.4B02MZJ7N
EF&,"0*M2ISC/FF "0*M2IGT3D& 2 	F7LSPR*M2I;SA*M2I7J3PV 3OWFR	R2/;E3D> 3F& 7NWP7TJ 3EOA3HSE2 WB7FKO3EV +NCD3SGT3T7E7ESN"M&J3DGC2 ;I3W;CT*M2IGT3D& 2 	F7LSPR*M2I;A+D" .7Z7"0*M6I+SA*M2IGT+D" "1672JNI+LCL3C3M6 SRR*M6ISRR*M2IOD3A& 3NORN7T2J&I+SCZ3F3I7PKT"M&J3TSA
 CI3F3I7PKT"M&J3DGC2 ;I3ROE"M&J7I+S2 	F7LSPR*M2IGT+D" .5B0*1>I7FKO3TGR3NF 3L?L+WCS3T?W2-GP+GCE3H;A3DWLR7S2JRI+CCA3IN3N3D"M&J3TSA2 ;I3W;CT*M2ISC/FB "M&J3C[I. B1"M&J7JOM* CI.(B2"0*M"I&16/OA3S
I3NF +NCD7FSE+CCH3H;A3DWLR*M3IN3N3D.,VI.0B02I2/3OGC3T?I+NCS.5B0.0V-.3^76 KA3EZ 3RWE"M&J7JCM2 ?I7EKR6IN/3OWM3T	H7NOG2 OS7R
EY*M2I3C3AN M7A2JRI+CCA7I
N7CSN"M&J3DGC2 ;I3E[O"M&J7JOM2 ?M3U?CR*M2I7J3P& 2 ;F3E[W2MZJ7ICL+T3R.IZ7"1672JWG3TC.,BI"M&J3K[S"M&J7JCM* .."5*M6IKKS*M2IGT+D" .-B2"3*M2I;S3AN L7A2J*I+MCP+I" .7B6"0*M6IOI3Z* 3M
PE7T2J&I+SCZ7I
N7CSN2M*J3M
P2,*I+MCP7JCM7GSE"M&J3TSA2 ;I3E[O"M&J3SGN2 3CA*M2I7J3P* 7USSR7D2JWG7TNT&,3C[I. B1"M&J7JOM* CI/G^7"060.JFI*0>I3EOS3AWP"M&J7JOM2 ;F3E[W2M*J7USS+R3D2I7J3S& 2 ;I3HSN+L>I3IN3N3D2 ?C3NGT7ION2 ?L+CCN+OCF7D[E3IWC2 GH3N3DE7R.JBI.2B06IJ/3ESA* B23H3A7FJ-3E?C7ROD2 ;I
TCO3FWI+LCD"0*M3IKN7FSP2,&I7NWBF*M7IKN+E3C"I602J*I+MCP7RKE7RKO"M&J7I+S2 ;I3ROE"M&J7I+S2 ;I3R;CT*M2I/SP*M3ESN3F3I2,&I+SCZ3IWNO7F6JRI+ACD.(Z-"0612JRI+CCA7I
N7CSN"M&J3TSA2 7JP7G2JRI+CCA7JCM7GSE"M&J3TSA2 ;I7BCFT*M2IOD3A& 7NSPR*M2I7J3P^ 3EOT/HF+2M*J3M
P+E3T2I7J+P: "M&J7JCM2 ;I7CKH"1*M2I7J3P& 3NCR622J;I7CKH"3&,3TSA2 7JP7G2JRI+CCA7JCM7GSE"M&J3TSA* CI7ICNT7R2JFI+NCD.(R7"0602JNI+LCL7RKT"M&J7RKT"M&J3TSA2 ;I7TCM"M&J7RKT"M&J7RKT"M&J7I+S2 ;I7PKT"M&J7JCM2 OG3H?CM*M3ION/HKR6,RI+ACD3I& 7NSPR*M2I;A+D" .7B4"0*M2IOD
A& 3N7TP*M6IOI3Z& 7NSPR*M3ION/HGR6,RI+ACD3I& 7NSPR*M3GC3C7O2,FI+NCD.(^3"7*M2IGT+D" .-N2"2*M2I;SA*M2I7J3P^ 3E;TX7T6JRI+ACD.(N2"2*M2I	C/FF "0*M6IOI3Z^ 3EOTH*M2I7J3P& 2 WG3TC6MJJ7EKR+O3R2I7S3AN L7A2J^I.7B760J=7EKRO7R2J*I+MCP3ESN3F3I2M&J7OKER&,7JOM* CI2([S3AG
L*M2I	C/FF "0*M7EKR*6222I7J3S& 2 2(3L;UC7H2J;I7PKT.,BI2M&J3NOW+N3T"I602J;I7TCM.,BI2M&J3NOR+N3T"I602J;I3E[O.,BI2MVJ3OWF+R3R2I7J3S6 3OOUO	R2/	K+CCK3M;O3I?T3R> U7T2J*I+MCS+I" 3SGF3T3A"M&J3C[I. B12MVJ/R[R"1&,7JOM* CI2(3L3UONH*M7MWO7CKO.,BI"M&J3C[D" 602JNI+ICF
1602J*I+MCS+I" .2B0"M&J"1612J*I+MCP3I6 3OOUO7R"J&L.*J3"060.JOP*727.I^3"7*M/PR7*020.IR7"0&06I^/3A;R3I
N* **2*?D2 ?N3T6 3OWV2 T+I+S"*6*"J*M7PSU+C3H"I602JRI+CCA7PSUM7P6JJIA7L2JRI+CCA7PSU3L/N6MBJ3UOT+H3X6IOI3Z* 7MCPU7T2J&I+SCZ7O
U7DSC2M*J7MCP2,*I+MCP7JCM7PSU"M&J3CGL2 3C3LN +MCL3R3T"M&J3TSA6 WO3R;CT*M6I+SL*M2I7J3P> 7UKE/RF+"M&J3DGC6 WO3R;CT*M6IOI3ZN 7LOOC7T2J&I+SCZ3C?L7SSC"M&J7JOM* CI.(Z7"067.JRI.4B02M>J3U[B+P3T6IWO3B[U2M>J7UKT+E3C"I602J*I+MCP+I" 3IWOR7R2J&I+SCZ7OSU3ROE"M&J7I+S6 W
3TWRC*M2IGT+D" .-R1"0612JRI+CCA7O
U7DSC"M&J3TSA6 WO7BCFT*M2IOD3A> 7USPR*M2IGT3D* 7MCP"M&J3DGC2 7J7PWPT*M2I7J7PB 3UOTH7X2J7J7PWPT&,7JCM" 6.2J*I+MCP7PSU/CGH"M&J7JCM6 WP3TC"2*M7PSU/COH6,RI+ACD7PSUM7P6JJIT7L6JJIT7L2JRI+CCA7PSUM7P6JRI+ACD7JCMP*M2IOD3A* 7MCPU7T6JRI+ACD7PSUM7P2JFI+NCD/PR7"0606JR
+ACD3I> 3U?PL7D2JRI+CCA3I> 3U?PL7D6JRI+ACD7PSUM7P6JJIT7L6JJIT7L.JKP*0212I;A7DB .7B4"0*M2IGT3D& 6 WO7PKT"M&J3DGC* CI7OCUT7R2J&I+SCZ7OCUT7R2J*I+MCP3PC3C7O6MBJ3UOT+H222IGT3D> 7USPR*M2IOD3A> 3U?PL7D2J&I+SCZ7OCUT7R6JWP3TC"1&,3TSA6 WP7TCM6MBJ.2B02,FI+NCD/P^3"7*
2IOD3A& 6 WO7PKT6MBJ3COH+O3M2I	C/FF "0*M2IGT7DB 3U3TN7K2JNI+LCL7RKA"M&J7JCM* CI7PSUC7H"J*M3E[O7OSR6,NI+ZCA3CGL*I>I7A	N6 KE7RKOS6?2J*I+MCP7IN /FZ7"0&02/WY+SB,+DCO7NSO6 OA3S7E3BWL"M&J3DGC2 OP3H?CM*M2IGT+D" .2J3"M&J7JOM6 WP3TC"M&J3TSA6 WO3WODT*M2IGT+D" .1B4"
*M6I+S3AN L7A2J*I+MCP..V-*I>I3F3I3LJ 3U[F+ECR7WSI7H: Z*M2IGT3D& 2 *(3S	BT7S6JJIA7R2JNI+LCL3C3M2 GRL*M2IOD3A& 2 *(3S	BT	S2/?N2 WN+ECD+TCO7S[A3EN 3OWR2 ;O2 T+ICS3M;O3I?T3RN 3A3L"M&J3C[I. B1"M&J7JOM* CI.(^7"060.JFI*0>I3EOS3AWP"M&J3CGL2 GIC&I2/WD3VOI+EJ 7SOY"
*M2I	C/FF "0*M2I7J3S& . KP"060.JRI2IN/7LOOE*M6IWO3SGNM*M3C?L7SSC.,BI2IN/7LOO3I
N2 WL7NSGH*M2I7J3P> 7UKE/RN-"M&J3C[I. B1"M&J7JOM* CI/PB2"0*M"I&66IJ/U7N2J3C3SKAR&,"0*M3B
I3GWI2,*I+MCS+I" 7MWO7CKO"M&J7JOM2 [S3AGTL*M2I	C/FF "0*M7EKR*6232I7J3S& 2 2(3L;UC7H2JNI+LCA3C3L2 7C7AJ T7L2JFI+NCD+I" 3JKS7IOT"M&J3DGC* CI6(OJ7BSI+S>I3W?H7OOP* B-3GWU+SCS+WCE3S?H3USL2 WR3S?T+RCE7CKO3EF 3FWT3RF L7L6JWO7EKR2,*I+MCS+I" 7MWO7CKO"M&J7JOM2 [S3A
TL*M2I	C/FF "0*M7EKR*6242I7J3S& 2 2(3L;UC7H2J&I7NWB/FF=.6B0"M&J3OKU/U7F.3B6"0*M7OKU7CSN.,BI2M>J7USPR&,3OKUU7F6JWO3WODT&,.-R1"0616JWP7TCM.,BI2M>J3U?P+L3D"I602J[S3AGTL&,"0*M6IWP3T;L7KN=7FSAA7L2J[S.7B6"0&,.7B6"0&I2/3C7EKA2 OA"M&J3C[D. B1"M&J3TSA2 OS3D[I"0*M2
OD3A& . F("7676JRI+ACD.(Z5"0612JRI+CCA7IB .2B0"M&J3TSA2 [S.7B6"0*M2IOD3A& . KP"0612JOS3D[I"0&,3C[D2 	C/FB "M&J7JCM* CI3SGF3T3A"M2J.IJ*.2B02IN/3A;N+OCT+GCO7POA/TJ .3N76MNJ7AKB6,RI7ESX6IN/7AKB"/*M2IWTX	T6/[S"/*M7OOU3N7A6,RI7ESX2IZ/7OSR7RSNM6/6JWN3M
S"1&,7TE+T>I3I3L3EGG3LN 7OSN7IWN3A	T+O?N2MVJ3M
S*1252IWTX	T2/?N2 ;E7DN 7TSA3EWM+N?T2MVJ3M
S*1262IWTX	T*?I3OV 3R?RR62J7E/SGG"7&,7TE+T>I3SKA7RN.3V: +OCT7FWO+N?D2MVJ3M
S*2202IWTX	T2/?N2 ?R+OCM7FKO6 WO7TWPT6/"J&L3FWI+LCD"1*M6IR/7HOE3EF +RCE3TWH2 GP3TC+ECS3OWV7RR +HCE3C7O3P3I+E;R"M6J"J*M2IZ*7OOR+T>I3HGE7DKE6 KP7ISNE7R2J:IO7P2J:IO7P2J:IO7P"J*M2IZ*7OOR/TV+2I2/3ESA+ECR7OSU7PSU"M&J3CGL2 3C3LN +MCA3R3T.IN/2 C3AGR3CWT+RCS+OCF3L
E7DKE"M6J*J*I7LSP3R;I"+&12/	H+G7H3SWP+ECD3RGE7DKE2 ?R3U	TN7E2JNI+ICF"0*M2I7J3S& * .."1*M2IWG3TC"M6J*J*I7OSS+O/P"1*M2I7J3S& 6 CF7RCO6IB/3UON+H^ 3C3A/LB 6,E+I
T"M&J.IJ6"5632J*I+MCP3I> 3S?TP*M"M&J6*CL3UON/HF+6IB/3UON7HJ 7OSU3IWN"M&J3C[I" 602J*I+MCS+I: "+622JNI+LCA7SCK"M&J7PSUC7H"J*M6I"*3F;I/IN-6IR/3R	A7LKE6 KP7ISNE7R2JNI+LCA3C3L2 7C7AJ T	L*/B33CGH3ROA7TKE3S> 7FR 3R	A7LKE"M6J*J*I3X	F+N7I*1>I3ESN3I
N2 WS3QWU3NWC"M&J3C[D2 	C/FB "M&J3TSA. 
L"5&I2/	P+CCK+UCP7EKR+OCR3FGLG*M2I7J3P& * .."1*M2I?E7FKOT*M"M&J2*?G3O;O"+&46/KT3A3I+ECR7ASF+ECR2";E+DB"3SGT3T7E7ESN"M&J3CGL2 3C3LN +MCA3R3T.IN/2 C7AOR6 SEC6."J*M2I2*3L;U+C/H"1&02/GP3TC2 ;I6 KE7RKO2 ?R3U	T+NCE+TCO7CKU3E& 3N	F7NSI7EB 3R;I7TWOT*M2I3C3AN +LCL
CGM2 GRL*M2IGT3D. 3O;UT*M2I7J3PV 7PSAC7H2JOE7OSN"=6."J*M2I2*7T	T+P/E*1>I7R[E7EOR7ER +TCY3W	A3T6 3OWD"M&J7TOL"M&J3T[S"M&J7JCM* 6."1*M"M&J2*?D"+&12/?C3N	T3NGU3T?I3N> 3FV 3R?R7RJ 7OSU3IWN2 GP3TC2MVJ7PSA+C3H2I7S+A>I+ICF+I
T3S: 3EGG7T[IE*M2I7C+A>I3D;O*	CT3C7O3PWL3M;E3T& T*M2I7J3PV 3C;O+T>I7RSE3U;R2 ?T2 ?R3U	TN7E*JRI"M2JBZ

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