File ENDROL.PA (PAL assembler source file)

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

6/J 3U;N3I
N2 ;E3D> 7FJ 3O3L6 WS3MGMR	Y.I"12-GM/Y&-"0*M"M6J"J6/2JV/7DSI2 	H3S?T/R+Y*M>J*M>J*2607N[O.-"72I2(+H	N*M>J*I&12 Z 3IWX7DN 7TKA3T> 7FJ 3O3L2 GS3M3P3E2 3E
N+T;H*M>J*M>J*2667AKP.-B92I2(+H	N*M>J*I&12 R 3EWL3TSE2 ?C+DCE+TCO+DCO7WSI7HJ 3ASN+OCM3S7A3P	L+NCG3ASN*M>J*IB 2 F 3DWD3DN 3OWD2 ?F3RJ +OCX3S7A3P	LN7G"J6/"J*M"M6J"J*M"M6J"J*M"M6J"J*M"M&J7TOAK&=3ESN3R3O"M&J7CKU2=VI7NKD3L3FD*M2I;I7ISW.=BI"M&J7VKES&="3*M"M6J"J
M"M6J"J*M"M6J2JZI3I3E3DV 7NKD3L3F/DF%"0*M2IV*7NKD3L?LC*M"L6/"J6/"J&/3ESN2 [O2 ?R+LCL3T7IE*M"/*M"/*M3SGT+R3T2I3CB*M2IGCL*M6IWS3S;PD*M"M&J3CKL"M&J3TSA2 WN3W;R+F>I7WOA* CA7N
E2 ?R+LCL3N7U7BKE2 ;E7TKE+ECD"?*M2I;S3AN L7A2J*I+MCP3FV3"0&02/?N2,^ 3O> N*M2I7J3SZ 23?ER	M2/?M+VCE3TWH2 WN7WJ 3O3L6 WN3MWBR*M.I^-"M&J7CSR/XF0"M&J7CSR/XZ0"M&J3DGC2 WN3W;R+F>I3CWL+ACR3TWH2 WN7WJ 3O3L6 WN3MWB3RZ 3L
A"M&J3C3A"M&J3S;ED*M6IKCT*M.IOF3M
S"1*M2MZJ.3CE"0&,3TSA6 CN7UCT+F>I7WOA* CA7N
E6 WP7TV-3PV 3NWT3RSE" 6?6JNIN7A2J*I+MCP3FV3"0&12/?N2,^ 3O> N*M2ISC/FF "0*M2IOD3A& 6 B(7UWT+P&1"M&J3C[D6 WCR*M2IOD3A: 7PSUP	F2/3C7EKA2 T3E: +ECW7PSU6-CU2 3FA7G2JNIA7L6JNI3ESN"M&J7CSR"M&J3F63/SKG"M6J6JRI+ACD3NS7EKA"M&J3DGC2 S7EKAC*M2IOD3A: 3SWHA	R2/3C7EKA6
WO3RZ 3L
A".*M2I7J3SZ 23?ER	M2/?G2 ?M+VCE3TWH2 WN7WB +U7TU7P*J6I"3*M6IKC/TCX"2*M6IKC/TCX"7*M"L6/.JOF/EF06,RI+ACD3N3S3IOT6I^/+ACS3A: +ECW3S	L7T^ 7ISD3HV 3NWT3RSE" 6?6JNIN7A2J*I+MCP3FV3"0&22/?N2,^ 3O> N*M2IOD7AN 7LSI+C>I7YOE6,V 3PGD+TCE3TWH6 WC3RWR+NCT3S	L7T^ 7ISDH*
2IOD3A: 3S	LT	C2/F +NCD3CWL+ACR3TWH2 WN7WN 7LSI2 	W3DT2 3FA7G2J*I+MCS3FV33O7R"M&J"-622JNI7RT"0642JNI7RT"0692JNIA7L6JNI3ESN"M&J7CSR"M&J3F63/SOG"M6J.JOF/EJ06,RI+ACD3NC3OOP6I^/+ACS3A: +ECW3C?H3P2 3E
N+TCH7ESN3EWR/D> "M&J3SGN"M&J7JCM. OF/EN02I:/+OB,+GCOO7N2JRI+CCA3C?HP	C6/CU7DSA7ER +HCE7CKU3R;E7TJ 3O3L2 C+OCP3CSOE*M2IOD3A: 3C?HP	C2/3C7EKA2 T3E: +ECW3C?H3PN 3OWD2 3FA7G2J*I+MCS3FV33O7R2I^/3O6 3OWV2 T3E: +ECW3C?H3P2 3E
NT7H*J6I"4*M6IKC/TCX"5*M6IKC/TGX"0*M2IGCL*M2IWSN7D2JNIR7T2JZI63OMG64"J*M3FV3*0232I3CB*M2IGT3DN 7HCO+C>I7GSE2 T3E: 3UKM+ECR+OCF3SWH7EOT2 WB3TWWE7N6JRI+ACD2(?E3RWL/NF-*)>I2 C3A;N+ECL23F +NCD3TWH6 CS3LOI7ER 3A3BE*M2IOD3AZ 23/W+A>I2 ?F7RR 7HOI2 C+OCP3L;E3GT"M
J3TSA* CI7F^3K7A2JNII7A2JNI+DCF"2602JRI+CCA+I" 3M?E3R;L*)>I7S[A3E& 3TZ +OCR3TWH2 GS3M3P7ER 3A/S"M&J3C[D6 WCR*M"M&J3TSA2 C3OOP2I^/+ECT3TWH6 WN3MWB3R> 7FN 3HWE+TCS+TCO"M&J3TSA2 V(7OKR+E7J"1&)6/J 3EWJ+CCT+ACT3TWH6 SS7ASR2/;E3D> 7FJ 3O3L"M&J3DGC. OF3WGK*IB/7F
O2 T+ICS3C?H3P2 3E
NT7H6JRI+ACD3IZ 23/WA*M2I	CA*M2ISC/FJ "0*M2IOD3A& 2 6(7EKO+R	J6IN/3AWV6 SI2 ?F7RR +HCE3S7A3PWL2 GTS7K2JNI+DCF7CKU"M6J6JRI+ACD3C?HP	C2/?D2 T7EN 3AWM2 ?F7RN 7TKA3TV/+NCD3R3OL*M2IGT+D" 7EKO3S7A*-&1*IB/3S7A3PWLS*M2IOD3AZ 23/WA*M2IGT3D& . OF3WGK"M&J3CGI"M&J3C[
. B2"M&J3DGC* CI2(WM7OORM6)2JNI+DCF7CKU"M2J"/*M2IGT3DN 7HCO+C>I7N
O2 WG7TR +HCE3N7U7BKE2 [O2 S7ESE7SR O*M2IGT+D" 7IKN3R+E*-&1*IB/3R+E7ESC6 KA3O;U3D& 7NJ-3O3L6 CS3LOIE7S2JRI+CCA7F^3K7A6JRI+ACD3IZ 23/WA*M2I	CA*M2ISC/FJ "0*M2IOD3A& 2 6(7IKN+R	J"M&J3C[D6 WCR*M"M&J3TSA2 C3OOP2IF/+NCD7FKO2 ;I2-?R+LCL3S3P3IWC2 GS3M3PE7S6JRI+AC
2(;I3RGS/MF-")6I2JRI+CCA7F^3K7A6JRI+ACD3IZ 23/WA*M2I	CA*M2ISC/FJ "0*M2IOD3A& 2 6(7IKN+S	M"M&J3C[D6 WCR*M"M&J3TSA6 ON3AOM+D>I7WOA* CA7N
E2 GS3M3P3EN 3OWD2 ;E7TKE+ECD"?*M2I;SA6 2J*I+MCP3FV3"0&62/?N2,^ 3O> N*M2ISC/FJ "0*M2IOD3A& 6 B(3AOT+O	N"M&J3C[D6 WCR*M2IOD3A: 3S7AC	D2/WR7SSE2 WN7WN 7ACM+LCE3CSO3EZ 3L
A"M&J7JCM. OF/EV0*M>J2MZJ23/WA&,"0*M"M&J3P
AE*M"L6/.JOF/EV02,*I+MCS3FV33O7R"M&J"-642JNI7RT"0632JNI7RT"0682JNIA7L6JNI3ESN"M&J7CSR"M&J3F63/SWG*M>J*M>J*M>J6IKC7ESA7ER +HCE7PKA3TGI3LJ +OCX7MOE3S
AE*M"/*M"/*M3FV3*0262MZJ.3CE"7&,7JOM. OF7EKO+M>I7M[O7ER +HCE3SWH+ECT7CWO3NWTR*M.IN-"M&J7CSR/DZ0"+612JNI3R7T"1616JRI+ACD.(R-*0&06IN/+ECT+UCP7PKA3TGI3LJ +OCX7MOE3S
AE*M2IOD7AB 3AKRM	G2/?C7USN+E;R"M&J3C[D. B1"M&J3TSA* CI6(KP3O3FG&)2/WG7TR +HCE7ASC3IWV6 KP7OWD+CCT3TGR7Y^ 3OSR"M&J3C[D6 WCR*M2IGT+D" 3TGR3Y3T*-&12IF/+NCD3C;O7VKE3T& 7TR 3OF 2 WL3TWTR*M2IOD3AZ 23GE"M&J3TSA* CI3FV3A*M2IOD3AN 3R7T*1.1"1&12/;A7DB +UCT+ICT+ICN
TWH2 WM3SGSG7E2JNIA7L6JNI3ESN"M&J7CSR3M
S"M&J3F63/S[G"M&J3C[D. B1"M&J3CKL"M&J7I+S* CI6(
S3PWRJ&)2/WS7TR +HCE3R+E7ESC2 ;A7DB 3RSO7USC6 KT7AOY"M&J7I+S* CI6(
S7PKPO&)6/R 7ON 7WCA"M&J3C[D6 WCR*M2IGT3D& 2 N(7RT*0.6"6&)2/WL3AWV2 T3E: +ECW7CSU6 WN3MWBR*M2IOD3AN 3UORU	T6/KA3O;U3DZ +OCR3S7A3PWL"M6J2JNIL7B6JRI+ACD.(OF3MKTL6)2JRI+CCA3FV3A*M3FV320F76,RI+ACD3IZ 23GE"M&J7I+S. OFE7A6JNIN7A2J*I+MCP3FV3"0682JRI+CCA3F633SF7"
&J3C3A"M&J3S;ED7W2JNIR7T2JZI63OMG672J*I+MCP3FV320F7"M2J"/*M3FV3*0282IGT+D" 7CSR7CKT*)>I3R3E7EOA7ER +HCE7CSR2 ?C7USN+ECR7TOA+KB,I7T2JNIA	L*IB/3H3E3D> +FCF+ICN2"GT3LWL+Y:""M&J3UKN3A
R"M&J3UWS7RSW6+WR7NSW"M6J2J*I+MCP3SGTR7T"J6/"J6/"J6/.JOF3MKTL&,7CSR/XZ0"M&J7CSR/X^0"M&J7CSR/X"0"M&J7CSR/X&0"M&J7CSR/XB1"M&J"0*M6MRJ7R	A+T3L.IB2"0&26IB/3RSO7USC" 7B.JJI.0F0*I>I3P?R3DOU3TF "M&J.4R0"0&I6/WD7M	M"M&J.2B0"3&I6/KP7OWD+CCTC*M"/*M"/*M"/*M"/*M"/*M3
V33O7R.,BI"M&J3CKL"M&J3TSA* CI3FV33O7R"M&J7I+S. OF7EKOM*M2IOD3AZ 23GE"M&J3TSA* CI3FV33O7R"M&J7I+S. OF7EKOM*M2IOD3AZ 23KE"M&J3TSA* CI3FV33O7R"M&J7I+S. OF7EKOM*M2IOD3AZ 23OE"M6J6JRI+ACD3IZ 23KE"M&J7I+S. OFE7B2JRI+CCA3IZ 23OE"M&J7I+S. OFE7C2J&I+SCZ3FV3A*M2I7
+P: "-652JNIL7B2J*I+MCP3IZ 23?ER	M2/WR7TKUN*M"M2J"/*M3FV3A&,"0*M3FV3B&,"0*M3FV3C&,"0*M2MZJ63OM+G212IKZ3LOO/KN "M&J7CSR/CZ0"M6J.JOF3M
S"2&,3Z3B3O/C" 632JNI3ROT"067"J*M3F63/SOG6,*I3B?L+CCK"3*M6IKC/TCC"9*M2MZJ63OM+G242IKZ3LOO/KN "M&J7CSR/CB1"M6J.JOF3M
S"5&,3Z3B3O/C" 632JNI3ROT"068"J*M3F63/S[G*,B 3Z3B3O/C" 632J6I3O7P"161"J*M3F63/S
G6,*I3B?L+CCK"3*M3F633SF7.,BI"M6J6JBI3AWG"M2J"/*M"/*M6/RI3A3B+ECS+OCF3C?H7PJ 3EGL3TSE2 GD+TCA7FKO2 GS3M3P3I
N*M>J*M>J"M6J"J6/"J6/"J&/3N7U7BKE2 [O2 C7OOP2 ?T2 GW+ICT3B[E3OWR6 SS7ASR3I
N2 TE6 "J&/3ESN2 [O2 ?R+LCL3S7A3PWL+SB,7ASF+ECR+WCE3SWE2 T7EV 3N	WN7D"J&/3S	W3TC3OWV+RB.3T	H3S: 3UKM+ECR*=" 3TWH6 WN3MWB3R> 3FN 7HCOS*M2/ZI3R7O2 T7EN 3P	L+CCE3TKA+LCE+TCO3TWH2 C7OCP+E	R* B-2(TE*M2/:I3UKM+ECR+OCF3ESN2 [O2 ?R+LCL3S7A3PWL+SB)*-" 3TWH6 WN3MWB
R> F*M2/VI+NCD+OCF3R3O7LJ 3EWJ7COT")*M"/*M"/*M7EKO3L;E.,VI"5&I./^1286 3MN 7HCO2 WL7NSGH*M.IB5*I>I.1"9"M&J"4&1.IJ/"368"J&/"3&4.IJ/"966.JNI"3&I./&2"8*M.IZ2*I>I.3R5"M&J"2&5.IN/"968"J&/"2&3.IR/"360"J*M"/*M"/*M2/:I3UKM+ECR+OCF3R+E7ESC3SZ +OCR3SGT+R?T3ESN2 ?R+L
L3S7A3P	LN7G"J6/"J6/2J?E3RWRJ&,"4&2.IF/*7B8+MCM3C?H3P2 3E
NT7H.JNI"7&I./&1"8*M.IJ3*I>I.2"3*M>J.IR2*I>I.2Z9"M&J"2&4.IJ/"968.JJI"1&I./V3"4*M.I^1*I>I.3"9*M>J.IZ1*I>I.4B3"M6J"J6/"J6/"J&/3N7U7BKE2 [O2 GS3M3P+ECS7FKO6 SS7ASR2/;E7DJ 3O3L2 GS3M3P3I
N*M>J*M>J2MVJ7OOR+A3M"I&5.IF/*7B8+MCM3C?H3P2 3E
NT7H.JVI*I>I.1"9"M&J"4&I./N2"8*M./NI*I>I.2Z9"M&J"3&I./&2"8*M"I&3.IN/"564.JJI*I>I.3"9*M>J"I&2.IR/"360"J*M"/*M"/*M2/:I3UKM+ECR+OCF3R+E7ESC3SZ +OCR+I7N3R3O7LN 3P	L+CCE3S7A3P	LN7G"J6/"J6/2J;I3RWRJ&,"1&1.IF/*7B8+MCM3C?H3P2 3E
NT7H.JFI"0&I./&1"8*M"I&6.IJ/"368"J&/"5&I./&2"6*M"I&5.IJ/"968.JRI*I>I.3R5"M&J"4&I./&3"8*M./RI*I>I.4B3"M6J"J6/"J6/"J&/3N7U7BKE2 [O2 GS3M3P+ECS7FKO2 ;I2-?R+LCL3S3P3IWC2 GS3M3P3I
N*M>J*M>J2M&J7NOR+A3M"I&5.IF/*7B8+MCM3C?H3P2 3E
NT7H.JVI*I>I.1"9"M&J"4&I./N2"8*M./NI*I>I.2Z9"M&J"3&I./&2"8*M"I&3.IN/"564.JJI*I>I.3"9*M>J"I&2.IR/"360"J*M2IGPG7E2J:I7OWP3NC"M&J3X	L+SCT"1*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