File ROPEN.SB (8k SABR macro assembler source file)

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

2/?R3P;E2.KS* B-3CWR3AWT2 ;A3D> 3P;E6 WF7NSC3I;O3SZ +OCR7FKO3TGR7NJ 3ASNO7M2JF/3CWC+SCS3I>/".*M*/********B*7MOU3T: +OCT3LGO3D& 3N?T. B1.0B0.-F1.7^76 V(+SCR3AWRA6)2J2/3OSA3S" 3ASN7LKE6 SA. F0.0B06.R 7HOI6 KA+ECA3W3I3LJ 7EJ 3EWS3RWV3D& F*M*/> 3I> +R> 3O& 7S
 3POE3I	F+ECD+TCO3TWH2 	L3N	K+NCG3LGO7DKE*.> 3I> +R> O*M6/KA7EJ 7EWQ3IWR3D> 7N	L2 [I* CA3N;O2 ?C+R7E7ROE3IWD+NCT3H;A3DWL3R& 7SV 3SSE".*M"/*M2/?M3D[I3ISE2 ?F3R2 7EOS2 ?C+RCE3SGP+CCE+BCY+ECD3SGM3LWL7NWB+R;G*M>J6+KE7RKO2 WM3SGS+GCE7FKO2 GB7DJ 3E?C+RCD3L;E3GT
M>J6+KE7RKO2 WM3SGS+GCE+ICF7NSO2 ;E3O
U3HF +D;D3I[N6.^ 3OSRS*M2/F+2 WM3T?H7DR 3ON 3H;A+GCE3TWH2 WD7FWA+LCT6.KF6 E3T;E3S?IN6.*J./3M;I+UCS+ICD+ICS3A3L3OWW3DZ +OCR7RCO+ECN2(KA7SZ 7AWL3E& 3SF 7SWS3MSE")*M6/GM2-WR7GOI7TKE6 OI2 ?N3T2 3O
N+ECR3UWSD6.2JV/3R?R3R6 7EOS3AWG7S^ 3I3L2 3A7W	A7S^ 3O/R2 ?NW6."J6/2JVI7NKT3YNI3RGET*M2I;E7T	R2I?R3P;E"M&J3OSPE	F3TSA/IFI.4B0"M&J3OSPE	F3DGC/INI.4B0"M&J3OSPE	F7JCM/IVI.4B0"M&J3OSPE	F7JOM/IRI.4B0"M&J7LCA*M>J2MZJ3N7A.,BI.;B *I>I3F3I3EGN+MCE7WSI+H: +FCR7ESX7
ON3I;O2MZJ3N7A"2&,"0*M7IET&,.0J6"2&I2/Z.R*M3CWR3R	R2,NI7RKER&I6/KE7RKO2 ?R3U	TN7E6JOUR&,.2B0*I>I7ESN+RCY7UKS2M&J+N3F.IR1"0&46IB/3O;I7TKE2 ?T2 SA3D&.+N;F2 ?W7ROD2M2J7PSN.,BI.0^1*I>I3P	O3NWT7RR 3OZ 3IWL2 WL7NSG7H^ 3OSR2 ;I2 	D3ROE7TKOY*M+C272M.J7PSN.,BI.0^0
I>I3P	O3NWT7RR 3OR 3IWR3C?T+RCY7K	E7WKOD*M7EKR"1&,7TE+TJ 3CWRA6"6JKE+R3A2I3B3O/C" &22IF/7PKP3O	P3AWT2 WM+S;S2 ?C7MOE2 WHR7E"J6/2JZ/3IWL6 KC7ESA7EJ 7OSU3IWN2:N 3A3L6 KC7ESA+E^(7D[E*	^,3F3I+E2	3L	F+L3E3LWRC6)2J2/3F3I3EZ=3IWL2 WL7NSG3H& 3NJ 3LOO+K;S*M>J3LWR/
6 3ROE3OSR2 WL7NSG3H& 7N^ 3OSRS6."J6/6JKC7ESA2,JI3LOO/KJ *I>I3CWR3AWT* CA3F3IE*M2IGT3DV /RGR2I6/3OWV2 	R7GSH6 KE7RKO2 WM+S;S"M&J3DGC6 KER7A6JRI+ACD7EKR"162JRI+CCA7EKRA62J*I+MCS7D[E3F3I2I^/+ECT3H;A3DWL3RZ,3IWL3N7AE*M2I3C3AN L7L2J*I+MCS7GSE3A
R2I^/+ECT3F3I3E2 3E
NT7H2JRI+CCA3CWR*8>I7FKO2 3C3OWS"M&J7JOM2 WG7TKA+G>I7GSE2 WR7CKO3D2 3E
NT7H2JRI+CCA3CWR*7>I7S[A7ER 7ECM".*M2IGT3DZ 7PSN6IN/+ECT3P	O3NWT7RR 3OZ 3IWLN7A2JRI+CCA3CWR"3*M6LRI+ACD3CWR*8>I7GSE2 WL7NSGH*M2I;A+D" .7B4*0>I7MOU3TJ +E: +L;E.3^7"M&J3SGN2 3CA*M2IGT3DN /RE*I:/+L;E.3^72 	F+NCD7FSI3T;I3G" 3OWL"M&J3C3L6 SR3LN;+LCL3R3T2I6/3OW
2 ?T2 	B+TCS*0:.".676JRI+ACD3CWR"1&2/R+3E	V+CCE3N7U7BKE"M&J.6F2"2&I2/	C/FF "0*M2I7J+SCI7UKS"M&J" &32IV/3NWT3RZ 3IWL2MNJ/ROE*,BI"0&I2/?P7ISNE7R*JBI"0&I2/	W+LCL+BCE3SGT3R	T+NCG3B?LC7K2J*I3M	P2 N 7RKER	I*/**7EKR+O+R"**M.IJ6"1&12IN/+DCF"1602JNI+LCA3IOA"M&J3TS
3I& N	F2/WG3T2 +O;C2 [O2 :23DF.+D;D3I[N6.^ 3OSR"M&J3SGM*I>I3M;I..J 2 SA3D&.+N;F"M&J7JCM3IN 7RKER	I*/B1+OCR*0B:7EKRO7R6JRI3A	D6 CLN7T2JRI+CCA3CWR*3>I7S[A7EB 7OSN+ECR3T7EP6.6JRI+ACD3CWR*7>I7GSE2 WR7CKO3D2 3E
NT7H2JRI3C	A6 KCE&32/GS+VCE3ROE3OSR2 WL7NSGH*M2IGT+DCI3K;PT*M2I;A3DN "7&I2/3B3O/C6 WN3MWB3R> 7FN 3E7G7ESN"M&J3DGC6 KCE672J*I+MCS3MOYD	F2/WR7SSE2 GD3T[A3I3ED*M.IJ6"0&22IN/+ICF"0*M2I7J+SCI3CWR*2>I3UWS2 GH3N3DE7R*JBI.4F2"0&I6/KW3IWT* B13S
E3M;ET*M.IF .4B02MNJ/R
E*,BI"0*M2I7J+PCI3CWR3R	R6I^/7RSI3EV 3R?RR*M2IGT3DN /RGE*>I7GSE2 WD3VOI+EN "M&J.6F2"2&I2/	C/FF "0*M2I7J+SCI7UKS2IZ/3OOR3ER 3AGT2 	F3ESL"M&J" &42IN/7LOOE*M3F;PT&,2 ;FA7M6JKC+E28.IB *I>I3L;E3GT"M&J7JCM3IN 7RKER	I*/**6*KE7RKO"M&J.6F2"2&I2/	C/FF "0*M2I7J+SCI7
KS"M&J. F1*I>I3SGW7PV +SCR7OSU"M&J7RSE+RCN3CWRA	T2/?DN7E2JF/+LCL7EKR7OOR6 KA3EZ 3AGT+LB;+SCO+NCO7RSE3U;R6 SA2 3AL6."J6/"J6/2J^/7EST3I
N2 T3EF 7RWG3M;ET7S2JWG7TKAG&,"0*M6I+S3LN L	A2/[I2 	L+NCK+ICS7SSE2:^ +ECT7NE7T^ 3OSR"M&J7JCM2 WG3TSCF*M2IGT3D& 6 KC7ESA"M&J3DGC2 WG3TSCF*M2I;I3CN 3RGET66JRI3A	D6 KC7ESA"*M2IOD7AB 7NKT"M&J3ION6 KC7ESA*>I7FKO2 WN+XCT3C3AL*M7GSE3C[D.,BI*I>I3W3I3LJ 3EN D7F6JR
3A	D2 ;PT	R2/WG3TF +R;G"M&J3ION2 ;PT	R2/?F3R: 7ESX2 GC+LCL7WSI3H2 3I/N"=612J*I+MCP3I^ 3EGTR	G2/WR3S?T+RCE3P7G2 GD3T[A3I3ED*M"/*M"/*M2L;P+T3R2M6J3YSCF&,"0*M2I7J3P& 2 6 3YSC+F>I7FKO+CCE7CKU3R;E3TR 3AGT3FWIL7D"J6/"J6/2JWD3V	FL&,"0&I2/WF3TC2 GH3N3D+E3R2 WG3TZ
3IWL3N7AE*M2I3C3AN L	L2I2/3I/N6 WM+SCT+BCE"0*M2I7J3S^ 3EGTR	G2/C+A;R* B13ASN* B27D[E2.: 3AWM"M&J3DGC6 KCE612JNI+LCL3C3M"M&J7JOM2 WG7TKA+G>I3CGH+RB.23F +NCD24R +E;V2 GNM7E2JRI+CCA3CWR"162JNIL7L2J*I+MCS7GSE3A
R2IN/7HKA..F 2 ;A/DJ 2 	F3L;E3AWM"M&J3DGC2 ;FA7M2JNI+LCL3C3M"M&J7JOM2 WG7TKA+G>I3CGH+RB.23F +NCD24Z 3IWL3N7AE*M2IOD3AZ 3N7A"*M2I7J3S^ 3EGTR	G2/C+A;R* B53ASN* B63F3I3EGNM7E2JRI+CCA3FGNM62.JZI.2J1*I>I3C[I. B1"M&J7JOM. ^7"060*JBI"1&02I2/3O/C6 OUR*M2IGT+D" .1
0*1>I3LGO3D" 3ASN7LKE6 SA. F0.0B0"M&J3DGC6 KCE62.JZI.2J1*I>I3C[I. B1"M&J7JOM7IV S7R*JBI"1&I2/WF3TC2 GH3N3DE7R6JKC+E21.IB ";606JKC+E22.IB "M&J7JCM3IN 7RKER	I2/	G+VCE7EKR+OCR7MOES6.2J*I3M	P2 WD3V	F+L>I7RSE3U;R"M6J2JGPG7E"J6/"J6/"J6/*J>L3R;A3D7O2 	F+LCE3OWP7
J 7OSU3IWN*M>J2IGC+LCL7RCO+EN+I3D2	WD+V2	2		F+L
E")*M2/GC3NF 3L?S2 WB6 OU+ECD+TCO3CGH3NWG2 T3ER 3EGF7USL2 Z.R*M6/E3T;E3S?IN6:"J&/3C3A7LJ 3OWP/NB(6,"	+Y&	*M>J3TWH6 E3T;E3S?I3NZ +OCR7RCO+ECN3ASN6 KC7ESAE*M6/OI2 ?N+W: X7Y"J6/2JWG7TKAI&,7GSE3A
R2MRJ3E[V+I3I2IWD3V	FL*M7UKS"2&,.2B02M6J3YSC+F3I6I	M3C[D2MVJ3R;PT&,7EKRA*M7D[EI&,3CWR"162JWI3X	T2,&I7ESX*I>I3P	O7NOT2 ?T2 Z.3RV 3XWT3N	SO7N2JSI.,BI*I>I3F3I3E& 3D: 3UKME7R2JWT/MKP.,BI2M&J/NKF.,FI.4R02M2J7PSN"2&,.0F0"7*M3F;P+T222I;FA7M6JKE+R222IWT+XCT2"?R+P
N2MRJ+E3V6MJJ3OWPN&,3B?L+CCK"2&I6/CO+ECN7RWO3T;IE*M2I3C3AN +LCL3C3M2 7CA*M2IGT3DV 3R;P+T>I7SSE2 ?P7ISNE7R2JRI+CCA"1&06IR/3O6 3OWV6 KER6.6JRI+ACD7EKR*2>I2 WM7SOS3AWG2 ;A3DV 7NKTY*M2IOD+ACI"1606JRI+ACD7EKR"262JRI3C	A. B1"M&J3TSA2 ?R3P;E"M&J3DGC/IF "0*M2IGT7
J 3OWPN62JRI3C	A. B1"M&J7JOM3I^ 3EGTR	I2/WG3T& +D" 3L;I/KB=")*M2I;SA&I2/[I2 SI* B=*0B ":*M2I7J7PJ /OP2IN/3H;A+GCE3D[E3A3U3TV 3XWT3N	SO7N6JNIP7A2JNII	A2I6/3AWK2 KA3S3O3UWT"M&J3DGC2 SI"M&J7JOM3IR 3E[VI	I2/WG3T" 3ASN7LKE2 ;A3DZ 3IWL3N7AE*M2IGT3D& D&I2/C3E/C2
SI"M&J3TSA* 6("5&I6/WM+SCT+BCE2.WL".656JNI+MCA3SGZ2 3CA*M2I7J3PN 7RKE+R>I2*V*3R?R+RB:3BSA2 SI"M&J3TSA6 CF/NKT6IN/+ECT3P	O3NWT7RR 3OZ 3IWL3N7AE*M2IOD7AJ /OOP"M&J3TSA3IR 3E	V2I^/+ECT7D[E3IWC6 WN3MWBR*M2IOD3AR E	V6IN/3AWV2 ;O2 T+ICS3P
AE*M6LRI+ACD7D[E"M&J.6F2"2&I2/	C/FF "0*M2I7J+SCI7UKS"2*M.IJ *I>I3L?O7KCU6MJJ/OOP*,BI"0&I2/	F3L;E7AB 3O;I7TKE6MJJ/O[P*,BI"0&I2/	W+LCL+BCE2-	F+LCE3L;E3GT"M&J7JCM6 KC7EKR*I*/2*:*+OCT7FWON7D.JZI.2F1*I>I3C[D. B1"M&J3CGL2 3C3L& A7C6JRI3A	D2 ;IF&22/?C7MWP+TCE3AS
2 ;I7F^ 3OSR" 626JNIM	A*IN/2 [O2 SA3D&.+N;F3WSR3S6 7USS2 WB" 622J*I+MCP3CWRR	R2/> 3R6 3OWR"M&J3TSA3I2 7PSN"2*M2IOD7AR 7ECM"2*M2IGT+DCI3T7EP&22/WR7CKO3D2 3E
NT7H6JNI+PCA3SGN*I>I3ROE3OSR2 WL7NSG3H6 7USS2 WB2 ?PS6.2J*I+MCP3CWRR	R*/**3BSA2 WR7CKO3D2 3E
NT7H2JRI+CCA7D[E"*M2I7J+SCI3MOY3D	F6IJ/3EWS3TR 3AGT3FWIL7D.JZI.2J1*I>I3C[I. B1"M&J7JOM7IV /SKR2IZ/3OOR3ER 3AGT2 	F3ESL"M&J. F1*I>I3SGW7PWOT*M2IGT3D& D&I2/?C3M?M3N2 +O;C2=SI**.4.1R7"M&J3C3L6 SRL&I./R*"M&J3TSA. F("7632JRI+CCA"1&06IN/+ECT7ASU3O& 3NWDX*M.IJ6"
&12IN/+DCF"1606JRI+ACD7D[E*>I7SSE2 WR7CKO3D2 3E
NT7H2JRI3C	A. B1"M&J3TSA2 ?RP&62/WS+T6 3F3I3E2 3E
NT7H2JRI3C	A. B1"M&J3TSA2 ?RP&32/WS7TN 7TKA3T3B3O/C"M&J3DGC/IF "0*M2IGT3DR E	V6IN/+ECT7D[E3IWC" 62JRI3C	A. B1"M&J7RSE+RCN3CWRA	T2/WR7TKUN*M6LKC7EKR2,*I3M	S6 	M3C[D+I>I7ROE+ECT7DSA3A	F3ESL"M&J.6F2"2&I2/	C/FF "0*M2I7J+SCI7UKS"2*M.IF "1&I2/WR3S?T+RCE7FKO3TGR
N> 7PKE6.N 7YSSE7M2JNI3A3L* 217EKRO7R2JFI+RCG7EKR+A>I+NCO7RSE3U;R2:F +LCL7FSAA7L"J6/"J6/2J?R+P282I7J+SCI7GSE3A	R2I^/+ECT7N
E6 E3T;E3S?IN*M2IOD+ACI7IET7I6JJI7EKT3NN 3RGE+T>I3D;OE*M"/*M2I;ED*MBLBZ

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