File SGIN2.PA (PAL assembler source file)

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

*/B * B 2 	S3G;I*3B * B * B 2 * +S?B+J?G+MCI*2:3.4^."6*M*M>J7ICN+UCT3S
I3N3A2 ;O2 	DS7K6JR/3I	M+NCG+BCY3RGE7LR 3IWM2 3C3O/C*M>J3F3I3E> 3RGG7NOI3A	T+OCN+BCY+PCS"8*M6/CO3T?I/N6 3NR 3E	F7NOE2 WD7SKI+ECD3L;E3GT2 [O2 	F+LCE+ICN7OSC*M>J+ICF+NCO*=CN+ICS7G[I+ECN3TWH2 GM3XF 3V	A3LKA+LCE3F3I3E2 3E
N+TCH3W3IL*M2/WB2 3A3LOO3AWTD*M2/[I* CA3F3I3E2 3O
N+ECR3TGH7NR +HCE7MA6 [A3A3I3A3B3EZ 3IWL2 WL7NSGH*M6/OI6 CS3E	C3FWI3DJ /Y6 3N: 3OV 3R?R3RR 3I
A7NOI3TOI6 OI*M>J7G[I+ECN7BSU2 T7EB 3R
O3R7A7M^ 3I3L2 WR7TKU7NR 7OR +HCE3C7O3M;AD*M2/WD3CSO+ECR7FKO2 ;A3OT+ECR3F3I7EN 3POE3I	F7ASC3I;O*M>J7RSA3ER 3E	F7NOE2 T7EN 2/F/3M3P3I
N2 GRT7E"J*M2MZJ3I3E/DF "M6J2JGP/GGE.=Z2"0606JWA/T7O"160"J*M2*GP/GGE"M6J2J	S3G;I*,B 3SGWB*M2IGCM*M"I*M2IGT+D" .7B6"6*M2IOD3AF /RGG"M6J2JNI+LCA3IOA"M&J7JOM* CI.(^7"0&02/;E7TKE"M&J"3*M3A
R"1&,"0*M3A
R"2&,*0B * B * B * B * B * B * > 3N7A3E> +R6 3L;E3GT"M&J7JCM6 KE7RKO"M6J"J*M2I3TS*M2IGT+D" 7JCM2 ;E7T	R.2F+"M&J3DGC2 	S3G;I"+61"J*M7ESN/RKY2,*I+MCP3S
II7N2JNIA7M2JRI+CCA3E[R3L
A"M&J3DGC2 [B3S7EP*M2IOD7AR 3OGTL*M"M&J3CGM"I&I2/3C7EKA6 WB3FWF3RF 3RGE"M&J3TSA2 [BS7T2JRI+CCA7ASUO*M2IGT3D6 .6B0"0*M2IOD3AN 7LKEC7T2JNI+DCF"0*M2IOD3A& 6 WAT7O2J&I+SCZ3CWL7RSC"M&J7JCM* 6."2*M2ISC/FF "0*M"M&J3TSA6 KA+GB1* B * B * B * B 2 :/7ESX6 WM3L	T3PWL
 [O2 ?FU7R2JNII7A2JFI+NCD"(632JRI+CCA3DS7ISF"M6J"J*M2IODL7S6JRI+ACD3DS7ISF*I>I7SSE6 CU2 OW2,GC2 ?F3R& 7NSI2 [XE7R6JNIN7A2J*I+MCP7NOO7HSF"M&J3S3H"M&J"1602JNII7A2JRI3LOW"M&J3CGM"M&J3TSA2 [BS7T2JRI3LGC"M&J3TSA2 ?C7MKWD*M2I/SP*M7NOO7HSF6,RI+ACD3C7O/WKD*I>I3SG
3RC6 KT3A/C2 ;OL7Y2JRI3LOD"M&J3TSA6 KAG&12IN/3LGE/RF 2.3B3O/C3S> 3NR 3IOS"M&J3DSLW*M6IODK7D2J*I+MCP..F-"M&J3D/SE*M2I7J+P: "+632J&I+SCZ3E[R3L
A"M&J3D3CS*M"M&J3TSA6 OD3H[I+TB * B * B * B 6 N/7TKA3T;I3GF 7DKD7EOS2 ;O2 	DS7K6JRI+ACD3A
R"1*M2IOD3AN 3UKRL7K"J*M2IGT3DR 3S	H+FCT* B * B * > 3CWH+CCK3F3I3E2 3E
NT7H6JRI+ACD3A
R"2*M2IOD3A6 3M3XE7N2JNI+LCL3C3M2 7CA*M2IGT3D6 3M3XE7N6JRI+ACD+I" .7R6*6B * B * B * B 2/WL7NSG3HJ +YB "=7N6JNI+NCL3CGL"M&J7JCM* .."3*M2I7J7SR 3P;LG	S6IR/3YWP6 [A3A3I3A3B3EZ 3IWL2 WL7NSGH*M2I7J7PN 3I	GN*M"M&J3TSA* CI.(Z7"4662JNII7A6JNIN7A6JRI+ACD7MM3L;E"M&
3CGI"M&J7LKS"M&J"2*M2I	CA*M2IOD7AR 3F?TT*M"M6J"J*M2IGT3D& 2 GR7TCE"M&J3CGI*MBJ* B * B 2 3CA7B*JB * B * B 3CGL*MBJ* B * B 2 GT3DV 3NKAL7E2JNI3LWO"M&J3C7A"M6J"J*M* B * B 6 R +ACD2 WR3T;R+PB * B 6 N/+ECT+UCP7RSE3U;R2 SA+DCR+ICN3S7A3H;A*MBJ* B * B 2 OD7AN 3M;
+SCR* B * > 7FKO2 ;I+ICT+OCF3S7A3H;A"M6J*JB * B * B 3TSA2 ?C7MKWD*M* B * B 2 R 3LOD"M6J*JB * B * B 3TSA2 [B+SCT* B * B * B 2/WS7TV 3PF 3U?T2 ?F3R& 7NSI2 P3AWS*MBJ* B * B 2 OD3AF 3U?T"M6J*JB * B * B 3TSA2 GGI7N*JB * B * B 7AODC*M2I3CS7A*JB * B * B 3CGL"M6J
JB * B * B 7JCM2 7S3H	NN*M"M6J"J*M"L*M3CWL7RSC",*M3DS7ISF.,BI2M6J3M3X+E3N"I606JKE3FGL+GB,"0*M7RSA+EB,. J *0B0* B * B * B * B * > 3S7A3P	L+NCG7RSAE*M3EGN3BWL.,V .6B46MJJ7EKT+N3P2 ;I3T?DN*M3C7O3WSR.,BI2MNJ7O
M+D22.IB2"0*M3G	A+NB,. B * B * B * B * B * > 3AOD2 WS3N	S7T[I7I	T2 ;A3DN 3H;A3N3E" 60.J[M.0B0*,6I.6B0"0*M3T7E",*M7RSA+E3P.IF2"4&52I&/7NN 3I?GU7T"J*M2MVJ3R?RR&,3TOD"M&J""7R6JRID7C*JJIE*M2ISTC*M2IN""M&J3TOD"M&J""6?6JRI3O3OG7O"J6L6JB*3AWG.1J+"060"J*M"M&J3S7A
H;A2=7J3S& " 6.6JNI3M;HS7R"J*M"M6J2J?L+P21* B 3TSA6 	S3SWR+SB * B * > 3CWH+CCK7DOI3CF 7DKD7EOS*MBJ* B * B 2 	C3AN L7L*JB * B * B 3TSA6 WC3R3BK*M2I;SL*M* B * B 2 " L7T"J*M* B * B 6 N 3AMA7N"J*M* B * B 6 R +ACD7CKU3B/L*MBJ* B * B 2 3DD7W"J*M* B * B 6 N 3AMA
N"J*M* B * B 6 R +ACD3NKR7LOK* B * B * B 6 V/3PGD+TCE7DOI3CF 7DKD7EOS*MBJ* B * B 2 GT3DN 3UKRL7K*JB * B * B 3DGC6 WC3R3BK*M*MBJ* B * B 2 GS3MGH+NB * B * B * B * B 2/GW+ICT7FKO2 ;E3D> 7FR F*M* B * B 2 R 3SSK*MBJ* B * B 2 7J+P: "-62"J*M* B * B 2 R 3SWK* B *
B * B * B * B 6 R/3FV 3R?R/R> *MBJ* B * B 2 7J7PR 3F/O*MBJ* B * B 6 OI3ZV 3R3FA7G2JRI7COL"M6J2J[T+O3K* B 3S7A3H;A"M6J2J&I+SCZ7TSOA7L*JB * B * B 7I+S2 [T7TSO*MBJ* B * B 2 /SP*M2I7J3PR U7N"J*M2IGS3MGHN*M*MBJ* B * B 6 OI7ZR 3F[BC7T*JB * B * B 7JCM2 	TN61"J*M
L*M2M*J3G	L+NB,2 GT3DJ 7FSS*MBJ* B * B 2 OD7AR 3F[BN7X*JB * B * B 3S7A3H;A*MBJ* B * B 2 GT3DJ 7FWNM*M* B * B 2 N I7A*JB * B * B 3DGC2 [T3BOFT*M* B * B 2 * +MCP3T;I"2*M6MRJ/IGN*,B 2 GT7DR 3F[B+NCX* B * B 6 V/3PGD+TCE3TGR3SWF7RWB3F: 7ESX*MBJ* B * B 2 GT3DJ 
F;LG*M* B * B 2 R +CCA3TKF7FN"M6J"J*M"M6J2J	T+N222IGS3MGHN*M*MBJ* B * B 2 GT3DJ 3F;L+GB * B * B 2/WS7TV 7P^ 3CF +NCD+CCA7FKO6 KT7AON7FKE*MBJ* B * B 2 	CA*M* B * B 2 R 3LOW*MBJ* B * B 2 GS3MGHN*M* B * B 2 N M7A*JB * B * B 3TSA2 [T3B;FX*M* B * B 2 R 3LGC"M6
6JNI3AMA7N"J*M2IGLS&I2/C3E/C6 KS2 	B/TF "1*M2IGRR*M2I;SL*M2I7J3PR U7N"J*M2IGS3MGHN*M"M&J3K[S*I>I7ISN7EKR7USP2 [I2 WK3Y?B3ASR6 SS3ROUK*M2I/SP*M2I?T7OOLR*M6MRJ3TOO+L3S2 GS3MGHN*M* B * B 6 R +ACD7BOF7ECM* B * B 2 F/7NSY3H;I7GR 7OR 3R;A3SWFR6?*JB * B * B 3SGN
 3C+AB * B " *M* B * B 2 * +MCP3T?T7COL* B * B 2 :/+OB,2 GWI7T"J*M* B * B 6 N 3AMA7N*JB * B * B 3CGL2 3C3LN +MCA* B * > 3DOE3R7E7ESN6 WB3FWSM7P6JRI+ACD7BOF7ECM*MBJ* B * B 2 OD3AJ 3FWS+MCP* B * B 2/[B3S7E7PN 7HWO+LCD+BCE3C3A3LSE6 WB3F[S+UGL"!6!*JB * B * B 
S7A3H;A*MBJ* B * B 2 7J3P2 /OGP"M6J"J*M"M6J6JWC3R3B+KB,"0*M3NKR7LOK.,RI6MRJ3F?T+TB,* B0* B * B * B * > 7CSN2 ?F7RR 3OGT3L: 3R> 3FJ 3U[F7EOR6MRJ3F[B+C3T" 606J	S3SWRS&,.4B02MJJ7FSS*,B . B1"0602J[T3B;F+XB,*0B * B * B * B 2 F/7DKD+ECS+OCF7NE3TJ +UCF+TCO+BCE3T
R3N[S7EKRE7D2J[B3N7U*,B *3B * B * B * B 2 :/3R> 3FJ 3U[F7EOR2 ;I2 ?CR7E2J[B3L
N*,B .2B0"0*M7BOF7ECM.,B 6MRJ3OGTL&,"0*M"M6J"J*M2M^J7EOT/A7M7JOM* CI".*M* B * B 2 ^ 3T7SS7R"J*M3SM7NKS.,B * B * B * B * B 2 "/3ASN7LOE2 ;I7PSU2 GS3M3PE7S*JB * B * B 7GSE3S7A*MBJ* B * B 6 OI7ZN 3AOM+NCT* B 2/T+ICS7ICN+UCT3B[U6 WF/L?L*MBJ* B * B 2 7J3P& 2 7
7HON+RB * > +N3O2 WR7TKU7NR 3O6 3A;I6 KP7OKG3A7M"M6J*JB * B * B 7GSE3S7A"M6J*JB * B * B 3CGL2 GI+CB * B * > 3FWR3EJ +UCF3AGV3IGL3BWL"?*M* B * B 6 R +ACD7BOF7ECM*MBJ* B * B 2 7CA*M* B * B 6 R +ACD3B;FU7M*JB * B * B 3SGM6 +S3AN L7A*JB * B * B 7JCM2 ;I"3*M* 
 * B 6 R +DCC* B * B * B 2 :/+OB,6 	T+PCE3DGI3G?N3S	TC*M* B * B * J O*M* B * B 2 * +MCP/IKN"M6J2J;I*3B,* B 7GSE3S7A*MBJ* B * B 6 OI3ZJ 3FWS+MCP* B 6/CU7DSA3EJ 3F[S3U3L*!F!*MBJ* B * B 2 /SP*M* B * B 2 " +LCT* B * B * B 2 N/3AGT7SKT3OP+ICC7HSL"M6J*JB * B * 
 7GSE3S7A"M6J*JB * B * B 7I+S2 
S3BOF+TB 2 :/7ESX2 	S3GGN3LJ +UCF+ICN3L;IE6?*JB * B * B 7JCM2 ;I*1B * B * > 7YOE6MNJ3M;H+I3N2 GT3DJ 7FSS* B * B 6/SS7ASR2 ?F3R& 7NSI*MBJ* B * B 2 OD7AN 3G[B+NCX2 :/7ESX2 	S3GJ +UCF3SGT7ROT6 KF+OCM7BSO3T7O2 [O" *M* B * B 2 ^ 7EOTA7M*JB * B * B 3TSA2 [B3N7U
MBJ* B * B 2 	CA*M* B * B 2 R +CCA3SKG7FSC*MBJ* B * B 2 7J3P& N622J;I*1B,* B 3TSA2 
S3B;F+XB * > 7NE7TN +ICG3B[U6 OI2 ;I2 	LN7E*JB * B * B 3TSA2 [B3L
N*MBJ* B * B 2 OD7AN 3G[BN7X"J*M* B * B 2 ^ 7EOTA7M"J*M/IKN*,B 2 ^ 7EOTA7M*JB * B * B 3TSA2 [B3L
N*MBJ* B * B 2 	CA*M* B * B 6 R +ACD7ESX7ROA*MBJ* B * B 2 OD7AN 3AOMN7T*JB * B * B 7GSE3S7A"M6J*JB * B * B 3CGM* B * B * B * B 2 F/3U?T3ISN7EKC+ECG7FKO2 WG3TGS7MV 3PGD3TSE*MBJ* B * B 2 GT7DN 3G[BN7X*JB * B * B 3DGC6 WAT7O"J*M*MBJ* B * B 2 7J3P& 2 7S7HONR*
"M6J"J*M3S7A7CSN.,B 6MNJ3G[B+N3X" 602J
S3BOF+TB,"0*M7ESX7ROA.,ZI"M6J"J*M*M*J3P
A+E.1.4B0"M6J2J;I3T?DN&,3CGL*I>I3S	W3TC2 	F3LWTR*M2IGT7DN 7WKWD*M2I?S"3*M"M&J7JOM6 CT3L
NS*M6MRJ3S/TB&,7LOA"M&J7RKA"M&J3S3N2 3CA*M2I7J3PN 3H/CU7P6JRI3O3OS7R2J*I+MCS3P7P"M&J7JCM6 OT3TKK"M6J2JC7CWKP&,7LOA"M&J7RKA"M&J3S3Z2 3CA*M2I7J3PN 3L/CG7O6JRI3O3OS7R2J*I+MCS3P7P"M&J7JCM2 C7CWKP*M"M6J2J3C3C
KO&,3CGL2 7CA*M2I3CZ7E2JNIA7M6JRI+ACD3EGN3BWL"M&J3C?LE*M2I3CS7A2JNIL7A2J*I+MCP3J3GI7N"J*M3D;U*,B 2 N L7A*JB * B * B 3TSA6 KE3FGLG*M* B * B 6 N N7A*JB * B * B 7JCM2 ?N7EKR"M6J*JB * B * B 3TOD*MBJ* B * B 2 V"*MBJ* B * B 2 STC*M* B * B * J "=*M* B * B 6 R +A
D3E[R3L
A"M&J3TOOT*M3NWO+R3R2IGCM*M2IGT7DR 3OGTL*M2ISL*M"I622JNII7A2JRI+CCA7IB 7L	AP&12/	F+LCE3L;E3GT2 ?F7RB 7L	A"M6J6JRI+ACD3A
R"1*M2IOD3A& 2 3P7ACY*2>I3SGT3R	T+NCG3ASD7ROE3S> 2 	DS7K"J*M2IGT+D" 3NWOR7R2JRI+CCA7IB 7L	AP&32/WR7TKU7NR 7ON 3I	G3NF 3FWT7RB 7L	A3I
N"M6J6JRID7C*JJIC*M2ISTC*M2I2""M&J3TOD"M&J""7O6JRID7C*JJIS*M2ISTC*M2IV""M&J3TOD"M&J""6?"J*M6IOKF*M2I7J+P: "-612J.IR7S2JNI3HOEK*M6I&""M&J7JCM2 3C3OWS"M&J3DGC2 OA7S[AE*M2I	LN7E6JRI+ACD7AOC3AWV"M&J3T?O7LKS"M&J3T?O3L?G"M6J"J*M3PGL/YGP.,JI.0F12I&/7NN 3I?G+UCT3

R"2*M3PGL/YKP.,JI.0B12IF//RGG6MBJ7L	A+P23.IR2"4&52/3P7ACY2MFJ3CGS+V3E"I606J
S3WSR.,FI"M6J2J3C3OWS6,RI3CGHR*M2IOKC*M2IGCM*M2IGT7DR 3OGTL*M2ISL*M"I622JRI+CCA3L;E3GT"M6J2J&IA	C2IR/+ECC+NCR"1*M* B * B 2 * +MCS+I" .7B7*0B * B * > 3C?LS7E*JB * B * B "4*M* B * B . ^ .6Z02M2J3E
N+T3H" 60*JB * B * B 7HSL"M6J2J;ED&,3C[I2 SC/FB "M&J7JCM* CI..F+*MBJ* B * B . Z7"060"J*M"M6J"J6L6JB*3AWG.1Z+"060"J*M"M6J6JCP+MB,* B *0B * B * B * B * B 2 R/7ICS7L	A2 	S3GF 3M3P7IWT+DCE+ICNM7Q2JNI+LCA3CGM"M&J7C+LE*M2I3CA*M2IGT7DB 3POML7E2JNI3LWO"M&J"M&J7CO
A*M2I3CS7K2J*I+MCP..F-"M&J7AODF*M2I7J+P: "-612JFI3DKR*MBJ* B * B 6 CSA*M* B * B 2 N M7A*JB * B * B 3DGC2 GS3M3PE*M*MBJ* B * B 2 GT7DN 7TSAE*M* B * B 2 N I7A*JB * B * B 3TSA2 GS3M3PE*M* B * B 6 N +PCA3CGL*MBJ* B * B 2 7J7PN 3M3AL*M*MBJ* B * B 2 GT7DN 7ACML
E*JB * B * B 3DGC6 SS3AWT"M6J2J7S3A3L*,B 3TSA6 SS3AWT*MBJ* B * B 2 GIC*M* B * B 6 N +PCA3CGL*MBJ* B * B 2 7J3P> 3V?LA7D"J*M* B * B 6 R +ACD3SGTT7E*JB * B * B 3N	M*MBJ* B * B 2 GT+D" .1B0"0*M* B * B 2 F +NCD.(B6"060*JB * B * B 3DGC2 GS3M3P+EB * B 6 R/+ECM3
WS*MBJ* B * B 2 OSA*M* B * B 2 R +CCA3S	HF7T*JB * B * B 3TSA2 GS3M3PE*M* B * B 2 2 S7R2JS7ISF*,B "0*M6IGML*M2I7J7PV 3PGDT7E6J[O3LGO+DB,3CGM*MBJ* B * B 6 GML*M6IOI3ZN N7T2J*I+MCP..N-6MVJ3PGD+T3E2IGT7DN 7TSAE*M* B * B 6 R +ACD3DOER*M* B * B 2 R +CCA3SGTT7E*
B * B * B 7JCM* CI3P7P"M6J6JSS3AWT*,B "0*M3S7A3PWL.,B 2MRJ7EKC*,B . F-6MBJ3POM+L3E.IV5"060"J*M"M6J"J*M7GOT7MKS.,B *MBJ* B * B 2 SAS7F*JB * B * B 7JCM* 6."1*M*MBJ* B * B 2 3CA*M* B * B 2 N 3L/S*MBJ* B * B 2 7J3P> K*M"M&J3T[S"M&J7SCK*MBJ* B * B 2 3TS*M* B *
B 2 N 3LGS*MBJ* B * B 2 3CA*M2M>JK&,7AKDB*M2I3CS7K*JB * B * B 7JCM* 6."1*M* B * B 2 N +DCF"0*M* B * B 2 R +CCA3IF 3U?T*MBJ* B * B 2 SC/FF "0*M* B * B 2 N 3LGS*MBJ* B * B 2 3CA*M* B * B 2 * +MCP3I^ 3T7SS7R"J*M"M6J2J;CT6,6JCT3L
N+SB,"0*M* B * B 6 R D7C*JB * B * B ""7N*JB * B * B 3TOD*MBJ* B * B . 6"*MBJ* B * B 2 GT3D6 3M3XE7N*JB * B * B 3CGI*MBJ* B * B 2 ?TC7T*JB * B * B 7JCM* CI3T3P7NOG"M6J"J*M*$R$*$R$*$R$*$R$*$R$*$R$*$R$*$R$*$R$*$R$"$*M"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