File CR8E.PA (PAL assembler source file)

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

2/GC+RCD3RGE7DKE2 ?F3RJ 3U3ID*M.IB*"M&J"-612JWD3VOI3EN 3RV82;WD3VOI3EN /D/R.2N0.0R;.0B02;KZ3LOO/KJ "M6J*J*I.2B0"M6J2JOR/S7F.6N6"1*M7RKC/AZ=.6J36MJJ7CCS.=Z6"7612JOR/S7E.6^6"2*M2MNJ+D3R"I&02IV/7NKT7YB 3O;I7TJ 3EGL7T[I7E* 3E?R2MNJ/D
R*720.I^7"0&0*IJ/3SGM2 3C+AB"3CWL7AOR2 T3EF C*M7CKD7TCM.,BI*I>I7LOE7SR 3H;A. B4*06 6 KP3OWT7COT2 T+EJ 3SGM2 3CA6"2J*I+MCP7CKD7SSE2I&/7NSI3I3A3IGZ3T?I+N6 2 WB3C7O+ECS2"SRF6"6JRI+ACD7CKD3C[I2IZ/3O7R2 N"+ICF3C[D* KN2 ?T2 GC3L	L+NCG3FWI7LOD"M&J3DGC2 SC3R	X+T>
7S[A3EN 3A3L3I
N2 	F3ESLS*M2IGT3DN 3DOR+C7F"1*M2IOD3AN 7DR+I7T*1>I7ROE7TKO7ER +HCE6"OI3ZN +DKR"M&J3TSA* CI7CKD2I^/+ECT3F;U3C	T+OCN7WKOD*M2I;A3DN /DCR"7&02/WG3TJ 3U[F+ECR3FWI+LCD7BSIS*M2IGT3DN 3DORC	F2/GM+KCE+AJ 3C[D* KN"M&J3DGC2 SC3R7T*2>I7S[A3E& 7TR 7ECM3OGR3R3IY*M2IGT
D& 2 SC+R>I7GSE6 WF7NSC3I;O2 ?W+RCD3AGGI7N2J&I+SCZ7CKD"M&J3SGP*I>I+ICS+ICT7A^ 7RSI3EZ 3UON3T?IN6?2J*I+MCP7CKD7EKR6I&/+ECS2-" 3ASR6 KE7RKO"M&J3ASN2 SC/R^7*0>I7GSE2 ?C7USN2 	BT7S2JNII7A2JRI+CCA7CKDW	C2/GS+VCE7WKO3DN 3O;U+T" 7D[I3IWD3DJ /YJ ")*M2IGT3D& 2 SC+
>I7GSE6 WB3FWF3RF 7DKD7EOS"M&J3DGC2 SC3RGC2IF/+NCD7S[A3E& T*M6IOI3ZN D	R6IR/+HCE3B?L+CCK3N7U7BKE6 OI2 
I7NKOE7D2JSC3ROCF&,3C[D*I>I+WCE3AWR2 ;I2 	F3ESL" 602JRI+CCA3IN 3D	RN&22/WR7SSE6 +^2 3F+ACG+TCO7ZKEO*M2IGT3DN 7DSRM622JRI+CCA3IN 3D	RN&32/WS7TR +HCE3B[U7FKE2 	F3ESL2 N"+DCFN6"2JSC7RCL2,*I+MCS3IN 3D	RN&42/WG3TF 2 C3AGR3CWTR*M2IOD3A& 2 SC3RGC2IJ/3U[F+ECR3FWI
LCD+ICS7RSE3U;R+ECD7CKO3ROE7T	L"M&J7JOM* CI7CKD/ISN2I^/+ECT7NE3TN 7HKA7ASCE7R2JRI+CCA7CKD7TCM2IF/+NCD7S[A3E& T*M2I7J3S& 2 SC3R;I*4>I7GSE2 WN+XCT3CGH3ROA7TKE"M&J3R3T"M&J3R3T*I>I7GSE2 T3EZ 7IOR3TZ 7OKU2 	B+TCS+OCFI7T2JRI+CCA7CKD/TKM6IN/3AWV2 T7EJ 7ESS2 ?F3R
 3AWTR*M2IGT3DN 7DSRM622JFI+NCD7CKD.7B42I>/7N	L* B47BSIS*M2IGT3D& 2 SC3RGC"M&J3DGC* CI7CKDC	A2/SA7DR 7HOO3EJ 7IOT2 ?T6 N13TN 7HKA7ASCE7R2J&I+SCZ7CKDC	A6/WB+MCP3P	O3NWT7RR 3OJ 3U[FE7R2JSC/RR7"0&,.7B4"0&I6/KP3OWT+CCT3TWH6 OI3ZF 3G	A7NSS2 /S7IOP"M&J3TSA2 SC3
7T"2*M6ISRL*M6ISRL&I2/?N3W^ +ECT7L
O6 KO7DKE* B47BSIS*M2I;A3DN /D
R.4B02IF/+NCD3O3N/YR 2 	BT7S6JRI+ACD7CKD7TCM2IF/+DCD+ICN3TWH2 :23DN 7HKA7ASCE7R2JRI+CCA3IN 3DOR+A>I3ASN6 SS3OWR2 T7E^ 3OSR"M&J7I+S2 SC3RGC2IJ/7UCM2 ?P7ISN+ECR3AGGI7N2JSC/R^0"0&,"7&06IB/7RSO7ESC2 T3E& S7Z2J&I+SCZ7CKDW	C2/?D/N?E"M&J7JCM2 SC7RCL2I:/+O6 2 ?LO
P2J&I+SCZ7CKD"M&J7I+S2 SCR&I2/[I6 +^2 T+ICS+ICS2"3C3LN +LCA3IOA""*M7CKD7XSI2,"IL	T6IJ/7ESS3OWR2 GC3L	L+NCG3FWI7LOD"M&J7JCM* CI7CKD2IV/7XSI"M6J2JSC7RKER&,3C3L2 3C3AN +MCL7RKA2I"/3ASR6 KE7RKO"M&J7JCM2 SC3R	X/TJ-"M6J2JSC3RGC.,BI*I>I3B[U7FKE2 ?P7ISNE7R2JSC3RO
.,BI*I>I7WKO3DN 3O;U3TR 3I	V3DSE6 	B" 622JSC3R7T"2&,"0&I6/CS7LSI2 ?W+RCD3T7E7PKO7A	R2MNJ3DOR+I3F2I	C3FN +DCF*0>I+TCO7FKO3MV 7XSI2 ?WR7D"J*M7CKD/IKN2,NI3D+R+M7P7CKD3LOO2IN/7OKR7ESC+ECD+ACT3I	N3TGI7L+I3A	T+OCN3T7IE*M7CKD/ION2,NI3DOR+D7F7CKD3LOO2MNJ3D	R+N242
SC3ROG3HN-3D3RO7C"J*M7CKD3T3B.,BI.0F2.;J2.2.3.2J4.5J;.6^2.;B3.3.1.3B2.3R;.0^0.;V3"062.JJI.0^1.;N6.6.4.6Z5.6Z;.7B7.;F7.7.2.7F5.4B;.5^7.;Z3"367.JFI.5J5.;N5.5.4.5V5.6V;.7B6.;F6.6.2.0B1.4F;.2F1.;N3"764.JBI.6F4.;J4.4.3.4R4.5R;.6^4.;B5.5.1.7F3.6N;.4B1.;N1"766"J
M2/?D2 ?N3T& 3NWS+RCT7A	N3T	H+NCG7BSE3WWE+NJ 7CKD3T3B2"F +NCD2"SC7RWB+FF""!*M2MNJ3DKR/U7F".&I2/GC+RCD3B[U7FKE"M6J2JSC3RWST&,3R[D*I>I3I	N3TGI7L+I3A	T+OCN3CSOE*M2IGT3DN 3DORC7F2JRI+CCA7CKD/SGE6IN/3AWV2 GC3L	L+NCG3FWI7LOD"M&J3C[D*I>I+WCE3AWR2 ;I2 	F3ESL" 602
*I+MCS".&I2/	F+NCD7OSU6 WO3R2 3OGC3T?IN*M7CKD3LOO6,RI+ACD7CKD/SKE2IF/7DKD7EOS2 ?T2 ?M3D[IY*M2IGT3DN 3D3R+O7C*1>I7CKO3ROE3T& T*M2IOD3AN 7DORE&32/GS+VCEI7T6JRI+ACD3IN 7DORE&32/WG3TR 3AGT2 ?T2 ?M3D[IY*M2IGT3DN 3D3R+O7C*1>I7CKO3ROE3T& T*M2IOD3A& 2 SC3RWS*3>I3
SN2 WR3S?T+RCEI7T2J&I+SCZ7CKD3LOO2I:/7ESX2 SA3DWRS7S2J&I+SCZ7CKD/SSE2I6/3OWR"?*M2I7J3PN 3D3RO	C2/WY+S6 2 ?LO7P6JRI+ACD7CKD7SSE"M&J3DGC2 SC/RN+6IN/+ECT3TWH6 J"+DKF2MNJ7DOR+E212I3HT&I2/WR3S?T+RCE3C3A3L;I3GZ 3I3ED7S2J*I+MCP7CKD"+&32/;A3DJ 3A/C2 ?T2 ?N3RGML*M
MNJ7DOR+E23"I&02I6/3O	D+FCY3P	O3NWTR*M7CKD/SSE*,6I"6&I2/	S3X2 3OGC3T?I+NCS+TCO3MSO7I	F"M6J2JSC3RWS"2&,7CKD/IKN2-SC3R?L+C>I3LOO3A	T7OON2 ?T2 ?M3D[IY*M2ISC3R;I23N-3D3RO7C2JNI3D	R+N647CKD3LOO"M&J7CKD/IWN2-SC3R?LC*M2ISC3RKA3FN-3D3RO7C2JNI7DSR+A7D7CKD3LOO"M2J2
SC7RWB/FV+"0&I2/;E3D> 7FR +HCE3B[U7FKE"M6J2JSC3ROGH&,"0&I2/WG3TF 2 C3AGR3CWT7RJ 7OSU3IWN"M&J3C[D*I>I+WCE3AWR2 ;I2 	F3ESL" 602JSC3R7JP&,"0&I2/T+ICS+ICS2"7J3PN 3DOR+DKF2 [A7TKE* CA^7Z2J&I+SCZ7CKD7CSN2I6/3OWR2 C3AGR3CWT+RCS+ICN3TWH2 ;I7TKE3N3A6 WB3FWFR6?2J*I
MCP7CKD7GSE6I&/+ECS2-^ +ECT3OWN2MNJ3D
R+E246IOI3ZN 3DORT&22/	G+VCE/AJ *125. F222Z +OCR3EWV+RCY7CKAD*M2I7J3PN 3DORL	F./F2*5B,.2J12 ?R3U	TN7E2JNI+LCL3CGL2 7C7AJ T7L2JRI+CCA7CKD/CKT6IJ/3EWS3TN 3O;U7TR +O6 "3*M2IGT3DN 3DGRB7F2JRI+CCA7CKDP	T2/WS7TB 3O;I7TKE2 ?T2 ;I7TKE3N3A6 WB3FWFR*M7CKD/GCE2,.IS	
2I./3EKY3OGR3DZ 3L
A6 CU"?*M2I7J3PN 3D
RE&72/?N* B-7T	R2 ?T2 WR+ACD3AN 3ASR"M&J7KOR*I>I3RGE7DN 7TSA+ICC3F?R3M. 3EKY7OKAD*M2I;A3DN /DGR"7&72/
I7NKO7EB 3A	RT7Y6JRI+ACD7CKD/MN02I&/3S& 7T: C6?6JNIN7A2J*I+MCP3IN /D
R"6&02/WY+S6 2 ?T2 ?M7NSI+OCR3VGI. ^0.6B0"M&J3TSA2 SC/RKM*7>I+ICS+ICT/^?Z"M&J3SGZ2 3CA*M2I7J3PN 3D
RE&72/?N* B-7GSE* CA7CKAD*M2IOKC&I2/	K+LCL3FGLG*M7CKD7G+E2,NI+LCA3CGM"M&J3DGC2 SC3R;C+T>I7ROE+ECT7CWO7NOT2 ?T2 /SI7P2JNI+LCA3CGM"M&J3DGC2 SC7RSC"2*M2IGT3DN 3D7RO7D2JRI+CCA7CKD7JCM6IN/+ECT+TCO7G[I/EB "	7S6JRI+ACD7CKD7OKP"M&J3DGC* CI7CKD/IWN2IF/+NCD7AN 7OSF
 KE7RKO"M&J3TSA2 SC/RN2*2>I^7Z2JSC3RSCF&,7HSL*I>I+TCO3B[U7FKE2 	F3ESL"M&J7JCM* CI7CKD3GC2IV/7XSI"M6J2JSC3RWG"7&,7ROCE&I2/WS3LOE3TF 2 GCR7D2J*I+MCP7CKD/GCE2I:/3O^ +O6 6 KT3YF 3G	AN*M2IOD3AN 7DOR+W>I7SSE2 GP3C	K+NCG3S	W3TC2MNJ3D
R+E212IORS	P2IN/3ASR2 ?D/N?E"M&J7JCM2 SC3RWG*2>I+NCO6-R +RCY7FKO2 GD+TCA3RGED7Y2JSC3RWG"3&,3TSA* CI7CKDP	T2/WG3T2 7ASS6 
T3ON 7HKA7ASC7EOR"M&J3SGZ*I>I7BSO7HN 3POA/E?S"M&J7JCM2 SC3RWG*5>IN7O2JNI+LCA3CGM"M&J3TSA2 SC7RSP"M&J3DGC2 SC7RSP2IJ/3A/C6 CU2 ?P7ISN+ECR3OWN"M&J7I+S2 SC3R;CT*M6IOI3ZN 3DORN	T2/;A7DR 3AWK2 ?C7USN2 ?D+WCN+BCY"2*M2I7J3PN 3D
RE&32/WT+SCT3AGG+ICN+O;R".6.2J*I+MCP7CKD/GSE2I&/3FN 3O;U3T& 7S* 3E?R2 T3EF 2 3B3A/N2 GCR7D"J*M7CKD/GWE2,FI+NCD7CKD.0^72I&/7SJ 3IG3T" 3ASN2 C3AGR3CWT3RF 6 CS3AWC"?*M2I;S3AN L7A2J&I+SCZ7CKD7CSN6I&/+ECS7AN 3POA+E6 2 WR3DOU3EN 3O;UT*M2IGT3D& 2 SC7RSP2I^/+ECT7
OA3T: +O7N3SGPC7E6JRI+ACD7CKD/M^72I&/3S& +TJ +
J "?*M2I;S3AN L7A2JSC7RCOR&,3C3L2 3C3A& A	C2/WY+S6 * B17ISN3OF C*M2IGT3DN 3DORN	T6/OI2 ?C7USN2 3A+SCO"16?6JNI+NCA3CGL"M&J7JCM2 SC3RWG+Z>I7YOE* B-7MOU3TJ 3EV +NCD+OCF3F3IE*M7CKD/G[E6,RI+ACD7CKD.0^7"M&J3DGC2 SC7R
S6IN/+ECT3O[F7SSE6 KF+OCM2"SC3RKTL6"2JSC3RWGT&,7I+S2 SC7R
S2IJ/7UCM2 [O3FWST*M2IGT3DN 7DOR+W>I3O[F7SSE2 ;I+TCOA7C2J*I+MCS7CKD/GE2I^/+ECT3AN 7HKA7ASCE7R6JRI+ACD7CKD.2B42I6/3AWK6 SI6 OA3C	I2MNJ3D7R+O3D2I7J3PN 3DORD7F"J*M7CKD/GE.,BI*I>I7GSE6 KF+OCM3B[U7FKE2 ?R3U	TN7E2JNI+LCL7RKA*I>I7D[I3IWD6 	B* B22-F +NCD7ISN3O2 3
/N6 OI2 ;I3DOI3A?TR*M2IGT3DN 7DSRA	D2/SA3DWR+SCS+OCF2"SC3RKTL6"2JRI+CCA7CKD/TOM6IN/+ECT3P	O3NWTR*M2IGT3D& 2 SC3R7T*3>I7GSE2 ?WR7D6JNIZ	L6IN/3H[IT6?2J*I+MCP..R+*I>IN7O6JJIT	R6I&/E7S6JJIT7R6JJIT7R2JFI+NCD7CKD.0^72I^/+ECT26J 7IOT"M&J7JCM* CI7CKD/GE"M6J2JSC3R
G"2&,7ROCF&I2/GD+TCA3RGE/D?Y"M&J7JCM2 SC3RWG*1>I+NCO6-R +RCY7FKO2 ;E3D> 3FN 3ASR"M&J3CGL2 7CA*M2IGT3DN 3DORN7T2JRI+CCA7CKD7CSN2IN/3O;U7TR +HCE3CGH3ROA7TKES*M2IORR	A6IJ/3ESA2 3A3PGH"M&J7JOM2 SC3RWG*8>I7GSE2 GT3BWL2 ;E7T	R"M&J7I+S2 SC7R
S6I^/3HOI7HN 3IWD"?*M2I7J3PN 3D
RE&92/WL+FCT3SSIE*M2IGT3D& 2 SC7RSP"M&J3DGC* CI7CKDP	T2/?F+RCM3R
I+HCT3SSIE*M2I7J3PN 3D
RE&12/?C3N	T3NWU"M6J2JSC3RWG"9&,3C3L6 SRL&I2/S7ISF2 WLF7T6JJIT7L6JJIT7L2J&I+SCZ7CKDP	T6/WB+MCP3P	O3NWTR*M2IOD3A& 2 SC7RSP6IN/7TKO3E2 7ESF2 	SD7E2JNI+LCA3CGM"M&J7JCM2 SC3RWG.1F-2IN/7OSN7IWN+E6 2 WS7TN 7WSIC7H"J*M7CKD3C[L2,NI+LCA3CGM"M&J3DGC2 SC3R;C+T>I7SSE
 GM+ICN7CWO+NCT+TCO3S	KP*M2IGT3DN 3DORT622JNI+LCL3CGM6 SR+L>I3A3L2 T+ICS3DWO3S& +S:.".*M2IGT3DN 3DORT&22/GM+KCE/AJ 6 KO. F-"M&J3TSA2 SC/RF2*3>I+SCO3T	H3S6 3AWK3SF . F225> /RJ "1622J*I+MCP7CKD3C[D"M6J2JSC/RZ7"0&,.7B6"0&I2/?M7NSI+OCR3ASD7ROES*M7CKD/MN0*,6I"
&I2/O^2 WTS7T2JSC/RKM"7&,.-^2*I>I.-^2.-63.-J36 +^2 WTS7T2JSC3R;CT&,"-&12I6/3A;I2 ?C7USN2MNJ3DOR+T22.IF-*I>I.2V1.,J *1B27CWON7T2JSC7RSP.,BI*I>I3B[U7FKE2 ?P7ISNE7R2JSC7R
S.,BI*I>I3S	W3TC2MNJ7DSR+M23"I&06IR/7ECM3OGRR7Y2JSC/RR2"0&,.2B4*I>I3AOS+ICI3SGPC7E2JSC/RF2"3&,.2N1*I>I.2V1.,J *1B27CKO3ROE3T?I3NZ 7ASCO7R2JSC/RN2"2&,.2J3*I>I3AOS+ICI^7Z2JSC/R^1"7&,.1^7*I>I7PKA7I	T2 GMS7K2JSC/R^0"7&,"7&76IN/+ICX7BSI2 GMS7K2JSC/R
M"7&,.-^7"0&0*I6/*"C
""*M2MNJ3DGR+B3F2ISC7RWB/FF-2-SC3R?L+C>I3MSO3I	F+ECD3LOO3A	T7OON2MNJ7DSR+A3D2ISC3RKT3LN-3D3RO7C2JSC3R;I"5&,7CKD7XSI*-617CKD3LOO*MRJ*$R$"$6$&J*L

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