File ROTA21.PA (PAL assembler source file)

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

*/**2*?R7TSA3R;O****"/*M3FWI+LCD"1*M3MGQ.=V7"0616J
S/P^=.5F2*M*J.0N0"0*M7BWO+N3D"0*M3X	D+F3F"0*M3Y	D+F3F"0*M+X3H"0*M3WSA+D3R"0*M3YC/KB,6M^J3C/H.,F-"4*M+W3L.-R16MBJ3P	O+N3T"0*M7XB17LSO",60.JGY3P?L/TB,2M&J3NWD+X3S"0*M3X3P+O3T"0*M+X22.7B4"2*M+Y22"0*M+X21"0*M+Y21"0*M/AN,"160*J3B.3^22MNJ.,N3"3*M/D^,.0F42MVJ.,N
"7642JSY+I3F"0*M3P3C7EKA.,^3"7672J?P7ISN.1B,";602J?P7ISN.2B,";602J?P7ISN.3B,";602J?P7ISN.4B,";602J?P7ISN.5B,";602J?P7ISN.6B,";602J?P7ISN.7B,";602J?P7ISN.8B,";602JGA.,R26M"J3V3A.,N1"7*M3YGV/LF,"4646JCP61B,"1*M+C21"0*M/PKP.,GP2MNJ.2B,6MBJ+P23+P.1"2*M+C23"0*
/PSP.,GP"+62.JSC",606JCP65B,.1R+2MNJ.5B,6MBJ+P26+P.1"4*M+C26"0*M/P
P.,GP"+66.J
C",606JCP68B,.1Z+2MNJ.8B,6M*J/ECR",60.JGP.,F *;6 *1B;.-.1. F-*;6 *1B;*1B;*1B;"1*M+P25"0*M/AKA",60*J3H"0*M+H21"0*M+H22"0*M7CON+T6,"1602JWR7CON+T6,"1602J?M3M3H/DB,2M>J+N3E"0*M3T?W",602J;K/TB,2M6J+A3N"260*J3F"0*M/GB,*M*J.4Z42M&J7NSI",602JN +LCA3C3L*MBJ3DGC2 
YH7K6JR +ACD.(^7*6&4*MBJ3DGC2 3W*MBJ3TSA. KX*MBJ3CGI*MBJ3TSA. GX*MBJ3SGM*MBJ7JCM. OS*MBJ3CGL*MBJ7JOM6 
S3IOTH*M+S232 3C3AN L7L6JR +ACDY622JN I7A6JR +ACDY616JN M7A2J* +MCPS642JN +LCA3C3L*MBJ3TSA. ^(.0B0")*M2 OD3A& " 7A6JR +ACD.(B7*0&0*MBJ3DGC* CIB*M2 GT+D" *2&0*MBJ3CGL*MBJ3TSA. F(.1^4")*M2 OD3A& " 7C2J* +MCP3SGTR7T.JSS2,N +LCA3C3L*MBJ3TSA" 7D2JR +CCA3IF *MB
3TSA" 7D2JR +CCA3IJ *MBJ3TSA" 7E2JR +CCA3IN *MBJ7JCM6 SS7ASR2M&J+N3I2 7J3P& 2 ;II7T.JJ*"0606JSS7ASR2,* +MCS3P?LT*M2 7J7SN 7WSIC7H2J* +MCS3P?LT*M2 7J7S" 3GWRA7T2J: O7P2J* +MCP3I	N2M"JL7T6J
S3IOT/HB,*MBJ3TSA. GX*MBJ3DGC2 X*MBJ3TSA. KX*MBJ3DGC. GX*MBJ3TSA2 X*MBJ3DGC. KX*MBJ3TSA. GY*MBJ3DGC2 X*MBJ3TSA. KY*MBJ3DGC. GY*MBJ3TSA2 X*MBJ3DGC. KY*MBJ7JCM* CI3S	W3TC6MBJ7LSO",606JR +ACDW7L2JR +CCA3WCK*M2 GT+D" .7Z4"06)2JR +CCA3WSAD7R6JR +ACD.(B4*0&0*MB
3DGC6 CP3O;IT*M2 GT7D" "1*M2 	CA*M2 OD7A" 3P?LT*M2 GT7D& "1*M2 	CA*M2 OD7A& 213PO7T2J3P/OGT2,* +MCS6 CSO7T2J& +SCZ3X3PO7T2J* +MCP3P?LT612JN +LCL3CGL6M&J3P?L+TB,3TSA2 GW7DKD*MBJ3TSA* 6(*2&0*MBJ3DGC2 GW7DKD*MBJ7I+S. GY3P?LT*M2 7J7P& 3P?LT*M2 GT7DB 3P	ON7T6J
 W7P2JN +LCA3C3L*MBJ3TSA* CI3WSAD7R2J6 Q7A2JR +CCA7I^ 3ASDR*M2 7J3P& 2 3PO7T2J
X3RGE/TB,*MBJ3TSA. GX*MBJ3CGI*MBJ3TSA. KX*MBJ3DGC2 SX3I[F*MBJ3TSA. GY*MBJ3CGI*MBJ3TSA. KY*MBJ3DGC2 SY3I[F*MBJ3TSA2 SX3I[F*MBJ3DGC2 ?B3USN*MBJ3TSA2 SX3I[F*MBJ3CGI" *M2 OD7A" 213PO7T6JR +ACD3Y	DF7F2J: O7P2JN I7A2JR +CCA3Y	DF*M7HKE+EB,3TSA2 OYH7K6JR +ACD3Y	D
7F2JR +CCA3YCK*M2 GT7D& 3C/H*MBJ3CGI" *M2 GT3DJ 3O;UD*M6 CSA*M2 7J7PJ 3EWST*M2 3C3AN L7L6JR +ACD3P?P7ISN*MBJ7SCW*MBJ3CGL2 3CL*M2 GT3D& 2 GW7DKD*MBJ3MGQ*MBJ3DGC* CI3WSAD7R2J* +MCS3S?PT*M2 7J3P" 3EWR6MJJ3EWS+TB,3CGL2 3CL*M2 GT3DJ 3O;UD*M2 	CA6 6JR +ACD3YCK*
2 OD7A& 3C/H*MBJ3TSA2 GW7DKD*MBJ3TSA* 6(*2&0*MBJ3DGC2 GW7DKD*MBJ3TSA6 CP3O;IT*M6 
SP*M2 3C3AN L7L6JR +ACD7I^ 3ASDR*M6 GMA*M2 OD3A& 2 GW7DKD*MBJ7I+S2 SYI7F2J* +MCP7HKE/EN+*MBJ7JCM* CI7XKG7ESA6MNJ7PSO",602J& +SCZ3WCK*M2 7J+P: .+R1*MBJ3TSA2 3W*MBJ3DGC2 OWH7K2JN +LCL3CGL*MBJ3TSA. R(.0B0")*M2 OD7AB 3P	ON7T6JR +ACD3WSAD7R2J& A7C2JR +CCA3WSAD
R2J& +SCZ7XB17LSO*MBJ7JCM* CI3S?PT*M2 7J3P& 2 
X3RGET*M2 3C3LN L7A6JR +ACD3P?P7ISN*MBJ7RKA*MBJ3DGC6 CP3O;IT*M6 OI7Z" 213PO7T2J* +MCP7IN 7PSO*MBJ7JCM* CI7XKG7ESA*M*J.0B4"0*M3S?C+P3E"0*M2 3C3AN L7L2J> S7R2JN I7A6JR +ACD.(F-")*M2 OD3A& 3NWDX7S.JZ .1Z5*MBJ7JCM* 6."1*M6 OI3Z& 3NWDX7S2J* +MCP..N-*MBJ7JCM* C
3S?CP7E2JWR3S?P/TB,*MBJ7I+S2 OWH7K2J* +MCP..F+"4*M2 GT7D^ L*M2 OD7A^ 3C/H*MBJ3CGL2 3CL*M2 GT+D" .3^7"76)2JR +CCA3P3C7EKA*MBJ3TSA2 GW7DKD*MBJ3IOA*MBJ3DGC2 GW7DKD*MBJ7I+S. GX3P?LT*M2 7J3P& 2 WR3S?PT*M2 7J7PN 7TKA/TR+*MBJ3S3T2 3CA*M2 GT7DB 3CWLA7R6JJ A7R2JR 
CCA3P3C7EKA*MBJ7I+S. GX3P?LT*M2 7J3P& 2 WR3S?PT*M2 7J7PN 7TKA/TR+*M*J.0B6"0*M7RSO+AB,3CGL2 3CL*M2 GT+D" .1B4"06).JZ .1B5*MBJ7NCO*MBJ7NCO*MBJ3CGL2 3C3L& +ACC3R3A*MBJ3R[D*MBJ.6V1"1*M2 3C3AN L7L6JR +ACD.(GP")*M2 OD7AB P616JR +ACD.(GP")*M2 OD7AB P626JR +ACD.(
P*+&2*MBJ3DGC6 CP"3*M2 GT+D" +P.1"26)2JR +CCA/PSP*MBJ3TSA6 B(.1R+")*M2 OD7AB P656JR +ACD.(GP*+&4*MBJ3DGC6 CP"6*M2 GT+D" +P.1"66)2JR +CCA/P
P*MBJ3TSA6 B(.1Z+")*M2 OD7AB P686JR +ACDA7A6JJ A7R2JR +CCA/AKA*MBJ3C3L*MBJ3TSA6 [XA7L2JR +CCA3P	O/NGT*MBJ3TSA6 [YA7L6JR +ACDA7A2JR +CCA3P	O/NGT"+616JR +ACD3XGVL*M2 GT3DF A622JR +CCA3P	O/NKT*MBJ3TSA6 [YA7L6JR +ACD/AKA*MBJ3DGC2 ?P7ISN.2F+*MBJ3TSA6 [XA7L6JR 
ACDA7A2JR +CCA3P	O/NOT*MBJ3TSA6 [YA7L2JR +CCA3P	O/NOT"+616JR +ACD3P	O/NKT*MBJ3DGC2 ?P7ISN"4*M2 GT3DF A622JN I7A6JR +ACD3YGVL*M2 OD7AB 3O;I+T.4"1*M2 GT7D" 3V3A*MBJ3DGC2 ?P7ISN"5*M2 GT3DF A*M2 	CA*M2 GT7D& 3V3A*MBJ3DGC2 ?P7ISN.5F+*MBJ3TSA2 GA"2*M2 	CA*M2 GT
D" 3V3A*MBJ3DGC2 ?P7ISN"6*M2 GT7DB 3O;I+T.4"1*M2 OD7AB 3O;I+T.6"1*M2 GT3DF A*M2 	CA*M2 GT7D" 3V3A*MBJ3DGC2 ?P7ISN"7*M2 GT7D& 3V3A*MBJ3DGC2 ?P7ISN.7F+*MBJ3TSA2 ?P7ISN"6*M2 OD7AB 3O;IT686JR +ACD3P	O/NKT"+612JR +CCA3P	O/NT"+616JR +ACDA7A2JR +CCAC616JR +ACD/A
A*MBJ3DGC. KC*MBJ3TSA2 GA*MBJ3DGC. OC*MBJ3TSA2 GA"2*M2 OD3AN "4*M2 GT3DF A*M2 OD3AN "5*M2 GT3DF A622JR +CCAC666JR +ACDA7A2JR +CCAC676JR +ACD/AKA*MBJ3DGC. C*MBJ7JOM6 KE3AWS6MJJ3OGT21*,+MCS3C3L3S?CP7E2J* +MCS3EGRS7E2J* +MCS7RSOA642J. S7F2J* +MCP7RSOA612JN +
CF3C[I. B0*MBJ7JCM. J0"060.JF*.0B06MJJ3OGT.4B,*MBJ3TSA6 B(+P&1*MBJ3DGC" 7H6JR +ACD6(CP"16)2JR +CCAF*M2 GT3D& " 7H2JR +CCAH616JR +ACD2(?P7ISN"16)2JR +CCAH622J?R/TKA6,R +ACD3I" "1*M2 GT3D& . KH*MBJ3DGC* CIH622J& +SCZH*M6 OI3Z" "1*M6 OI3Z" "2*M. J7"4606JR +A
D3I" *MBJ3SGN*MBJ7JCM2 3FI7P2JR +CCA3I" 6MJJ3OGT*3B,3TSA* CIH616JR +ACD3I" "2*M3DGC* CIH622J& +SCZ7CONT*M2 7J7PJ 3OGT"5*M2 GT7DJ 3E;CS7T2JR +CCA7CONT*M2 7J3P& 2 ?R/TSA2MZJ7LCI6,R +ACDA7A2JR +CCA3I" *MBJ3TSA* CIH616JR +ACD3I" "2*M2 OD3A& . KH*MBJ7I+S" 7H6J
 +ACD3I" *MBJ3SGZ*MBJ7JCM2 ?R/T[A6MJJ3OGT*7B,3TSA" 7H6JR +ACD.(J-")*M2 OD3A" *MBJ3TSA* CIF*M2 OD3A& " 7H2J& +SCZH*M2 7J7PJ 3OGT.3N+6MJJ3OGT*6B,3DGC" 7G6JR +ACDH*M2 GT+D" *-&2*MBJ3DGC" 7H6JR +ACDG*M2 OD3A& " 7H2J& +SCZH*M2 7J7PJ 3OGT.3N+6MJJ3OGT*5B,7I+S. K
*MBJ7I+S" 7H2JN L7A6JR +ACD3I" *MBJ3DGC. GH*MBJ7JCM2 ?R/TKA2MVJ7ROA/EB,*MBJ3TSA. F(.4B0")*M2 OD3AJ 3O;UD*M2 GT+D" .-J6*0&0*MBJ3DGC2 SX3I[F*MBJ3DGC* CI7BWON7D2J& +SCZ7BWON7D2J& +SCZ3X	DF7F2J* +MCP..N-*MBJ7JCM* CI3EGRS7E2J3C3LOS3OWP",602JN +LCA3C3L*MBJ3TSA*
6("46)2JR +CCA7KSN*MBJ3TSA6 B(3O;I+T&1*MBJ3DGC2 ;OE*M2 GT+D" 3P	O/NWT")6 2JR +CCA3T?W2MNJ+L212 GT3D& 2 ;OE*M2 OD7A" "2*M6 OI3Z> N7E6JR +ACD3I> N7E2JR +CCAY622J& +SCZ3OWN*MBJ3TSA* CI3T?W*MBJ3DGC. GX*MBJ7I+S6 
TO*M2 GT3D& 6 
TO*M2 OD7A& "1*M6 OI7ZR W7O2J* +MCS3CWHC7K2J* +MCS3I	NT*M6 OI3Z. N7T2J* +MCP/CGL*MBJ7JOM2 OS3OWP*MBJ7JCM* CI3C3L3S?CP7E2JC3E/C",606JR +ACDX622JN I7A6JR +ACDX616JN Z7A2J* +MCP3IN 3HOEK*M6LR +ACDY622JN I7A6JR +ACDY616JN M7A2J* +MCP3IN 3HOEK*M2 3C3AN L7L6JR 
ACDY612JR +CCAX7H6JR +ACDY622JR +CCAY616JR +ACDX7H2JR +CCAY622J* +MCP3IN 3HOEK*M"$*M2LOD7A& "1*M3TSA2 X2MRJ+CCAY622J7J3P& 2 C3E/C*MRJ"M2J2 OD7A& "1*M2 GT7D" H*M2 OD7A& "2*M2 7J3P& 2 C3E/C*MRJ"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