File VSCG.PA (PAL assembler source file)

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

2/?C7PKY3IG3TJ 3YR 3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I/NF .9&6*M>J7BOA+ICC3CGH3ROA7TKE2 WG7NKE3A?TR*M6/KW7IST+ECN+BCY7MKU7R	A6 WR3B;E6 OA2 GP+RCT+OCF3TWH6 [K28&/2 ?S7F
T3AWR".*M2M2J3OGC/T7E.1B0"0*M*M*J3LOO3AWT*M>J7NSO+EB:3T	H3S6 3A;I6 KP7OKG+ACM3B
E7ION6 SA. B1*0B03W	H+CCH+ICS3O3NY*M2/;A6 KA7BSI7RKA3Y: 3UKM+E;R2 ?R3U	T+NCE+ICS.3J32 WD3C7I+ACL3LOO3A	T7OON2 ?L+N;G2MRJ7S	P.,BI2IN/3A3L2 	W+TCH3AOS+ICI3CGH3R& 3NF 7CWC3M3U3A?TR*M2I7J3S& 6 KS3C	H2I&/3S& 3TF 2 WS3AOR3HN 7HKA7ASC/E?R"M&J3TSA* CI7S[AE&22/C3E
C2 ?F3RN 7OSN3R3O2 CA7R6JRI+ACD/MR2"0*M6ICS3AN L7A2J*I+MCP3IR 7S	P2I&/3G?N+RCE3C;O3T?R3LN 7HKA2 :(3OV 3C?H")*M2IGT3D& 2 GS/VKE"M&J7JOM6 WO3TC+M>I7OSU7PSU2 ?T2 	D3S3PA7Y6JOD3P	Y2,*I+MCP3IR 7S	P2IV/7XSI2 	W+TCH/A7C"0*M*M>J3TWH2 ?F3L?L3W;I3G& 3SF 6 N"7HKO+TB
7DSA3AF 3RGE":*M/MR2"0&,.-R2"0*M7S[A+E222IGS/VGE2IF/7NSO7HKE2 WT3M?P7RKA7YN 7TKO3AWG6 KA+E;A6MNJ3RCI&,3SGE3RC2M6J"7&,"-67.JGM"4&,.-R16MRJ+O3P.IB5*6>I7TCO7MOO3T2 3IWN2 [O2 T7EN 3CWR+E;N"M6J"J*M2/?R3U	T+NCE2-WR7SSE2-F 3C?C3M3P3IS+ECS3TWH6 Z"7ESR+AKB6 WF7NSC
I;O2 N(3T3R*/	K".*M7ROE+E3T2IGT7DR O	P6/KE3AWS2 OS3RWE+NB,7ROE+ECT7ISN3G
E7RSA7OOR2 ;A3DN +PCR+TCO7TCO2 WLF7T.JZI.0Z62IV/3XOE3UWT" *M2IOD7A& *0>I7SSE* CY+TCO7TCO2MNJR&,3TSA. CY"M&J3TSA. GM"4*M2IOD7A& "0*M2IGT3D6 3A
RI7N2JOX3UWT2,RI+CCAX606JRI+ACD/MR2"0*M2I7J3PR 7S	P/IF-6IN/+ECT7ISN7EKG3A?T+RCS+TCO2"GM3R	G+N:""M6J6J	S+N3C2IGT3D6 *7>I6"	S3NC3R;O3IWZ*"B 7AN 3TKA7L+I3I
N6 WF7NSC3I;O" 6.6JRI+ACDX602J*I+MCP7XWCT7E"J*M6LZ/3A	R3A3B+ECS3UWS3DJ 3YN 7HKA7ASC+ECR3G;E3EGR7TKO6M"J"0&,.-B4*0>I3XN 7HKA7ASC+ECR7POO3I	T+OCN3R
E7ISSE7R.JCY.,VI"1&2*/CY3CGH3ROA7TKE2 ?P7SSI3I;O2 WR7GOI7TKE2MFJ.,BI2IN/7OSN3R3O2 ?WR7D*J3B"I&02/GM+SCK7WKOD*MC&,*0>I7MOA7KB 3O;I7TKE2M"J.,BI2I"/3A[L7WKO7DN 7WSIC7H"J*M2/?C7NSS7ASNS*M+C27"I67.J
C"7&,"7672JWCX&,.4B06MNJ/AGR6,NIA7R2JGM7SOK2,6I3A/S.0F-"M6J"J*M2/T+ICS+ICS3TWH2 ?R3U	T+NCE3W	H+CCH3DGE+LCS7WSI7HR +HCE2"GM+SKK2 ;AD*M2/R"7ICS3AOT+HB"3C;O3T?R7L^ 3OSR3SZ +OCR3TWH2 OA3TGU3LR 3EWT3R	M7NSA3I;O*M>J3ASN6 E7EWC3T?I3N> 7FR +HCE7ACP7RCO3RGI+TCE3VO
7TKO6 SS3R/O+ECS+TCO*M>J+BCE7DOI3PGL3YSE2 ;O2 T7EN 7CCO+E:.*.:.2M>J3UOT+H3M"I&02/	D3S3P+ACY3CGH7RSC+E;R2 ;E7TKE2 	W+TCH3AOS+ICI.2B4.-N3"7*M2I;A3DN "7&72/GM+SCK+TCO26J 7IOT"M&J3C3L2 GR+L>I"*626JRI+ACD7SKA*1>I3ASD2 	D3SGP3TC"M&J3DGC" 7A6JRI+ACD3IF 6IR/7HOI6
OI2 GM+SCK7WKOD*M2I;A3DN *7>I7MOA3K> +FCF7MOA3KJ 7IOT"M&J3C3L2 GR+L>I"*622JRI+CCAB*M2IGT3DJ "M&J3C3L2 GR+L>I"*646JRI+ACD+B>I**B67N
O"M&J3TSA2 GM7SOK.IZ/2 	T7MOE2 GM+SCK2+6 3A/S2 WH+ACD3P	O3NWTR*M2IOD3AN 6IB/+TCR7FKO2 GM+SCK3ASD7ROE7SOE"M&J3TSA* CIA*M2I3C7LJ A7R2JRI+CCA+B>I7SSE3S& 3NWT3N	S+FCY3BGL3N	K+NCG7BSI+SB,7FKI+SCT7A
L7AOY2 3B3A/NE7D2J&I+SCZA*M2IGT3D& " 7A2JRI+CCA+A>I7RSE3RWI+VCE3C;O3T?R7L^ 3OSR"M&J3DGC" 	H2/WS+TCS3L[E3T" 3A[L"M&J3TSA. CX"M&J3TSA. 
C"M&J3DGC. CX2IN/7HKA2 SA3V;AC7E"J6L2JGV6,RI+ACDH*M2I	CA*M2IOD3A" 6IJ/3EWS3T" 3A[L7WKO7DN 7WSIC7H2J&I+SCZH*M6IOI3ZN 2IF/3DGV3NWC6 SP3R> 7N* 3E?R" 7H6JRI+ACDA*M2I;S+A>I7TOE3T: 7ESX2 ?C7NKT+OCL7BSI"M&J7JCM* CI7OSU3C7H6I*/3E?R2 WM7AON2 3A7LZ 7ESC7OOR2 WW+RCE
EWX7CSU+E3D2 ?S6 EI7T2JNI+LCL3R3A"M&J3DGC" 	A2/WN+XCT3C;O3T?R3LJ +ICT+ICN3L;IK*M7MKA3G;I6,NIN	L2/T+ICS+ICS3TWH. CY2 6"3A
R+IKN2 ?P7ISN+ECR+ICN62N	2 ?C+M;P".*M2I7J7PZ +A>I7NSO2 ;A6 E7EWC3T?IN*M"M&J3TSA. [C.0R62I&/7NSI3I3A3IWZ2 ?VU7T2JRI+CCA7VSS3AWT"M&J3TSA" 	H*/B0+ICF3R
I+HCT3H3A+FB,21& 3F2 7ESF2 GHL7F2JNI+LCL7RKA2I&/3N?T2 	LN7K6JRI+ACD3IN 2I^/+ECT7MOA3KF 7DKD7EOS"M&J3S3N"M&J7JCM* ..*4>I3R".".*M2I3C7LJ T7R6JJIT7R6JJIT	R*/;LH6.2JRI+CCA7IN 3AWV"2*M"M&J3TSA* CI7S[AE626JJIT7R6JJIA7R2JFI+NCDC676JRI+ACDX&02/SA7D" 2 GM+SCK+TCO7
KP"M&J7JOM2 ?VU	T2/?L+ACD3XF 3B?S7LSUE*M2IGT3D& 2 GS/VKE"M&J3ASN. 
C"M&J3TSA. CY2IF/+DCD3Y6 3A/S2 ?T6 CCR*M2I7J7SZ 7OSU2I2/3OSA* CY7AOB7OWLT7E"J*M2IGT3DJ "M&J3C3L2 GRL*M2IOD3AJ 6IJ/7EKT7I[E3E: 7ESX2 3B3A/N3I
N2 	B3T& 3N?T2 	LN7K6JJIA	L2/;A7DR 3H;E2 ;I+TCO7BSI. F1"M&J3TSA2 WC+X>I3EWX7CSU3EF 3B?S7LSU+E" 7VOI3I3B+EB)3VOE7TKO"M&J7JOM2 ?VU7T2J*I+MCPV	A2/GB+CCK7FKO2 ?M+RCE3VOE7TKOS*M"L*M2/T+ICS+ICS3TWH2 ?R3U	T+NCE3W	H+CCH7ASC3U3A+LCY3EWX7CSU+ECS3TWH" *M6/SS3R/O+E3S
 ?P7ISN2 	D3S3P7AOY2,F +NCD3OT+ECR3F;U3C	T7OON2 ?FR*M2/T3E. +V>83IN 7OSN3R3O7LKE*.:.*M>J7DOI3PGL3Y> 7UCT+UCT7ASU7ON 7EWQ3EON3I
N2 ?R3U	T/N+E6MZJ7OSU.,BI"M&J.6^0*1>I3W	A3TZ +OCR3RGE+DCY3FGLG*M2I7J+P: "-616JOV7TSAE&,.6Z0*4>I7ASU7ON 7EWQ3EON+ECD7ION7TWR3C	TO7N2J&I+SCZ7VSS3AWT6IN/7EWQ3EONE*M2I3CA*M2I7J3P& 2 ?VU7T.J[C.0R6.,ZI.0R62I&/7NSI3I3A3IWZ7DR 3O2 3OSA" 7X"J*M*M>J3TWH2 ?F3L?L3W;I
GJ 7OSU3IWN6 E7EWC7TOE2 T+EJ 3TKA2"Z 3UON3T?IN*M2/[O2 ?M3V;I3GF 3L;O7GR +HCE3L;I7ER 7OR +HCE7NE7TR +ACB3S?TP6.6JR/+ACB3S?T+PCS3AWR2 ?L7CSA+ECD3EWV+RCY*1B03SGP7COE2 3A3O
N*M>J3TWH2 	L+NCE3F?R7MR +HCE3L[E3T6 3A
R+I;N6MRJ+A3B2IGT7DR 3AB+D>I7A[D3AON7E" "06.2JRI+CCAA*M6MRJ/AGB2,&I+SCZA&I2/?T2 WN+XCT3TKA6 SS+O;P"M&J3TSA* CIA*M2I;SA&I2/;E3D> 3F2 7ISS2=;E3D> 3F2 3IWN2 ?S2 ?D6 KC+L;F"M&J7JCM6 KC"M6J2JNII7A6JRI+ACDX&06IR/7ESS. CX2 	W+TCH3TWH2 GT7BN 7TCO2 	L+S;T"M&J3SGM2
3CA*M2I7J7PR /AGB2I:/+OCT3B
I2 ;E3O
U7HN 7OR +RCY3AGG+I;N"M6J6JRI+ACD3IF *I>I3O..6.NI+ECT3TWH2 GT3BF +NCD7ROE+ECT7ISN7EKG3A?T+R;S"M&J7JCM2 OX3UWT"M6J2JGT3BSH6,RI7AOB"-&12/WH+ACD+OCF3TKA6 SS+OCP3TKA+L;E".*M6LR/+HCE3F3O7L
O3I
N6 OI2 T3EF 7CWT+ACL2"GT+BCS3S?T+PB"7LOIT6:"J*M3TKA+S:="M&J.-V2"2*M.IF-"464*J6I"366.JVI"0*M.IV1"6*M.IZ2"4*M"M&J*0>I7ZKE3OV 7NOD2 T3E2 7ISS".6."J*M2/T3EZ 3O3L3O	W+NCG2"WS3AOR+HB"7RWO3T;I3EN 3HOE+KCS3TWH2 ;I7PSU*M>J3AOS+ICI3CSO3EF 3G	A7NSS2 T+EJ 7ASC3IWV2"N
7OSN3R3O2 C3AGR3CWT+R;S6MNJ7EKA+C3H"I&02/WS3AOR7HJ 7OSU3IWN".*M2IOD7AN 3AWV*1>I7S[A7ER +HCE7ICN+UCT3AOS+ICI3CGH3ROA7TKE"M&J3TSA6 KS/COH"M&J3DGC6 SPR*M6MNJ3RC"2&,7I+S6 SP+R>I3F3O7L
O2 3A3O
N2 ?D+WCN3TWH2 C3AGR3CWT7RR 3A3BE6.6JRI+ACD7IB T	R6/KB3I
N2 ;I* CA7LOI3TV 3L7E7ESN"M&J3SGN"M&J7JCM* CI3SGE3RC2IV/+NCD+OCF3TKA+LCE7FWO+NCD3ASN2 ?N2 GM3TC"!*M"M&J3CGI2IN/7OCM3L7E7ESN2 ?T2 WT+S;T"M&J7I+S6 SPR*M2IGT7DN 3AWV*1>I7N
O2 WT+SCT3AGG7ION7TR +HCE2"C+AKR".*M6I+S3AN L7A2J*I+MCP3SORH&22/?N2 GM3TC2 ?F3USN2 ?S6 KT3YF 3G	AN6!"J*M2IGT3D& 6 SP+R>I2"GM3TC2 ?F3USN*"F "!*M2IOD7AN 7EKAC	H2/?D2 ?D3U3B3E& 3N	D3ROE3T* 7UCM"M&J7JCM* CI3SGE3RC2IZ/3R7O2 3D7ISS2 ?P7ISN+E;R"M6J2JN/7OON3T;A+T
S7FKO2 T3EF 7B[OE*M7S[A+E21"I&02/WT+MCP3S?T3R
A3EF 3RGE".*M3SOR+H232I3D7ISS"-&12/WB3G;I3N;I3G> 7FR +HCE3C;O3T?R3LN 7HKA6.R 7ESS2 	L+S;T"M2J*M>J3TWH2 ?F3L?L3W;I7GB 7ASR3SF +RCE3TWH2 C3AGR3CWT7RR 3A3B+ECS7FKO2 T3EN 7HKA7ASCE7R2J^/3EWN7RSA+OCR".*M*M>J3CGH3ROA7TKE2 GM+SCK3C?O3R	D7NSAE7S"J*M2M6J3A/S"0&,.0
3*1>I3D*,*,25*&V,",7].JF2"463.JF4"465.J^2"065.J^0"467.JN0"0612JGM/SGK.,BI.7F02I2/*,3U7V^,*,3X3Y&,*,3T3N6,*,20*1",*,2)]*M.0B7"6*M.2R4"7*M.2J7"4*M.2R1"1*M.0R1"7*M7MOA+K22.IF0"4&1*/22/SR,*,2967*,*,2$6/2,*,2<">*M.0R7"7*M.4B4"4*M.0R7"7*M.0R1"1*M.2J1"7*M7MOA+K2
.IR0"2&4*/3A3CV,*,3F3G",*,3K60F,*,3R/PN,*,26282,",7B.JR3"464.JF4"467.J^0"061.JF4"464.JR2"0642JGM/SSK.,JI.6J26I:/*,;B+A2.*-.,",6*.JN4"065.JV4"063.JR0"266.JR4"064"J*M7PKT.,BI6IR/7ECM2 ?P7ISN+ECR3C3E7LV 3SSE2 ;I6 N"7EKA+CKH2 ?R3U	T+N;E"M6J2JGM/SWK.,RI.5V22IB
*,2"=*M.0B5"3*M.2R3"3*M.4J7"1*M.2B7"7*M.0R1"1*M7MOA+K26.IZ0"2&7*/2".	.,*,2:*?F,*,2,.MJJ.5V2.MRJ.5R2.MJJ.3N2.MFJ.1F2.MJJ.1^4"M2J7SKA"=&.2/C3AGR3CWT3RR 7ICS3AOT7HR 3A3BE*M.7R7*5>I*M.6R3"7*M.5B6*3>IA*M.4Z7"0*M.7B7*3>IB*M.2^1"5*M.7B0*3>IC*M.0^1"0*M.7B7*0>ID*M
3V5"1*M.5B6*3>IE*M.5^1"0*M.5B4*3>IF*M.5Z1"0*M.7B6*3>IG*M.0^1"6*M.5B2*3>IH*M.4Z7"0*M.5B2*1>II*M.1V1"6*M.7B0*0>IJ*M.5B4"4*M.6B5*3>IK*M.6^1"2*M.6B0*3>IL*M.0^0"0*M.7B4*1>IM*M.3B3"4*M.7B0*1>IN*M.3B0"5*M.7B4*3>IO*M.0^3"0*M.7B4*3>IP*M.4Z5"0*M.7B6*3>IQ*M.2^3"0*M.
B5*3>IR*M.4^5"2*M.7B6*2>IS*M.6Z3"0*M.5B0*1>IT*M.1V1"0*M.7B0*1>IU*M.6B0"5*M.6B0*1>IV*M.4F0"1*M.7B4*1>IW*M.6B2"5*M.5B0*1>IX*M.1B0"7*M.6B4*1>IY*M.1N3"0*M.LB7"0&2"/7Z.JB0"764.JB7"0&1"/7[.JF0"564.JB4"0&2"/7\.JB0"464.JB7"0&0"/7].JB3"560.JR5"0&4"/7^.JB6"760.JR6"
&4*/;BA6..JB2"764"J*M.MBJ.0B06IN/P*M.7B0*0>I3EWX7CSU/EN 2 &"3N	V3SKI+LKE2 WV3C?T7RN 3T?R7KOE".*M.5B0*6>I"!*M.2R0"6*M.5B0*6>I""*M.3B2"1*M.5R2*5>I"*M.5^5"2*M.7R6*2>I"$*M.6Z3"3*M.6R7*0>I"%*M.1^6"5*M.6Z7*0>I"&*M.3N6"7*M.4B0*6>I"	*M.3B0"0*M.6B0*1>I"(*M.0J1"4*M
6B0*1>I")*M.1B2"2*M.5B2*4>I"**M.7B7"0*M.5B0*4>I"+*M.6F0"4*M.4B0*6>I",*M.0N0"0*M.4B0*4>I"-*M.0F0"4*M.4B0*6>I".*M.0Z0"0*M.4B0*2>I"/*M.4B4"0*M.7B6*1>I"0*M.3B1"7*M.6B4*1>I"1*M.0V4"6*M.7B6*2>I"2*M.1F7"4*M.LV5"0&3"/63.J^4"760.JR6"0&2"/64.JN0"664.JZ7"0&0"/65.JR3
364.JZ7"0&3"/66.JF0"765.JB6"0&2"/67.JB0"760.J^5"0&3"/68.J^4"760.JR7"0&2"/69.JN0"664.JB5"0&6"/6:.JR1"660.JB5"0&6"/6;.JR1"360.JB6"0&2"/6<.JF2"260.JB5"0&5"/6=.JV5"060.JB6"0&2"/6>.JJ4"460.JV7"0&6"/6?.JN6"4666JR/7HOI6 OI2 T3E2 7ASS2 [O2 T3EN 7HKA7ASC+ECR7DOI7P
A+CCH3TKA+L;E*.:.".*M2MRJ7LOI+T:=6IR/3A3B3E> 3FF 3C	T+VCE3C;O3T?R3LN 7HKA7ASC7EOR".*M.IF2"5*M6IKC2IN/7AKR3I
A7EJ 7EWTR7N.JJI"1636JJI3EWS+T>I7VKE3TKA6 WF7NSC3I;O2 [O6 KE3AWS2 ;A7DJ 3EWS3T& 3NWT3GGR7TKOS6..JNI"7672JRI7S	P+I>I3RKU6 WO+T" 3I;G3OWRD6).JNI"7652JRI7S	P+I>I7ASL2 ?M+DCE7K	E2 &(3G?N3RSE")*M.IF2"1*M2IGT+B>IH7T.JJI"3676JNI3YON6IN/3YON2 N(3T3R2/S7ISF*/	O6 W
7NSC3I;O2 ?T6 SS3A3B3IWZ".*M"M&J*0>I7ZKE3OV 7NOD2 T3E2 7ISS*.:.".*M*M>J+ICT7AOL3OZ 3I	N3SWH7SR +HCE3CGH3ROA7TKE2 WG7NKE3A?T7RB 3R
O3R7A*.:.".6."J*M3ESN"=6."J6$&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