File DISP.PA (PAL assembler source file)

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

6/OO*/B83H;A3DWL3RZ +OCR/KV*/CI7DOI3PGLY6.6JV/7SOE6 
T7OB 3AWG3S> 3FN 3OWR2 ;A3DR 7ICS7L	A7SR +HCE3C7O3PWLT7E2JF/3S	C3IN 7HKA7ASC+ECR7SSE6.N(7OKR7YR 7HSA2 GB+CCK7AKR+O3W2%F N7D6JN/3QGU+RCE3BGR3CWK+TCS3AWR2 GB+D:)*M>J3W	R3TWT3NJ 3YZ 3L?O3RF 3NT3O	N2,J 3I7O3E	D3C3A2 GL+BCS+OCF3TWH*M>J7NSA3I;O+ACL7ROE7EKA+CCH3

R3A	N7SSA3I;O6,R +N3O6 	R7S	WK6,2J"/3O3L3ASN2.?C3M3P3EWT3DJ 3Y" 6.R 3RWA3N;K+E3R3S3E6 SS7UST7GKAT6."J*M2/WH3AWD3RJ 3LOO3KZ +OCR+O?S68N 7YSSE7M"J*M.*B0"060.J^I.7^7*I>I3OWN2 WS7PKA3AWT2 GH3N3DE7R.JBI.3J2*I>I7D[E3IWC6 	T+PCE3N7A/E* 6 KC"87E.J^I.0V0"M&J.0F4"1
I6/OO*/B87D[E3IWC2 GN+MCE2:R I7S.JJI.3B0"M&J.1N0"0&I2/WD3VOI3EN 7OSN3R3O2 3B3O/C2 ?W+RCD",*M"I&I6/KW3IWT2-;O+LCY7D[E3IWC",*M"I&I2/3P3AWC2 [O2 GC+RCD3RGE7DKE2 GH3N3DE7R.JRI.0B0*I>I7ESN+RCY3P	O+NCT2:: 3O7R+ACL7ESNR7Y.JBI.0B0"M&J.0B0"0*M2M2J3OGC/T7E.0B2"0*M2
?L7CSAE*M2/T+ICS3P
A3EN 7OON7ISS3S> 3FF 2 ?N3RGM7LB +SB83H;A3DWL3RV 7NKTY*M2MRJ+P3L"I&02IV/7NKT7YB 3O;IT*M2I7J3PR 7ICS"+&12/WB3C7O+ECS20F 3FWT7RR +HCE7FKI+SCT3T7IE*M2ISRF&I2/	P+CCK+UCP3TWH2 WR7TKU3NZ 3I3ED6.6JRI+ACD3D3P3C[I*I./.6B2"3*M2IOD3AR 7PLI	T6/KC7ESA7EJ 7EWTR7N6JRI+A
D3IR P	L2/	F3ESL2 [O6 WB3FWFR*M2I;A3DN "7606JRI+ACD3D3P3C[D"+&5./Z+.2F0"M&J3DGC6 CD3LSCF*M2I3C3AN +LCL3C3M2 GR+R>I/A7C.4B0"0*M2IGT3D& 6 CD+L>I3CWH+CCK7FKO2 WR+ACD+OCR3W	RT7E2J&I+SCZ3D3P"M&J3SGP2 ;SA&I2/WR+ACD+ICS3BSA2,: 3UKM2 [O2 GP7GOE"M&J7JCM6 CD7LKE+R>
7MOU3TJ /E: "0*M2I;A3DN .7B7*0>I+N;O2 [O2 GP7GOE2 ?T6 KW3IWT"M&J3CGI"M&J3DGC6 CD3LOW6I^/3OSR7CWO+NCT2=?D3U3B7EB 3AWGS*M2IGT3D& 6 CD+L>I7GSE6 WB3FWF3RF 7DKD7EOS"M&J7I+S6 CDL&I2/?F3RN 7OKR7ESC2 WR7TKUN*M2IOD3AR 3POL+A>I3ASN6 OU3EF 3SF 7DKD7EOS2 ?P7ISNE7R"J*
"M2J2/WH+RCE3C7O+ECS3TWH6 KP7OKG+ACM3M	A3NZ 3R7A7EV:3NGP+CCK3TWH" *M2/C3AGR3CWT+RCS3F?R7MR +HCE3B[U7FKE2 ;A3DR 7ICS7L	A2 T+E;M"M6J6JCD3LWGT&,7JOM2 WG7TWB+F>I3POI7KV 3PF 2 CA7R2J*I+MCS3IR 7ICS2IR/7ICS7L	A"M&J3TSA6 CD3LWT+M>I3L[E/TR * ;M3SJ.7IOT"M&J3ASN. 
C.4B0"M&J3DGC6 CD3L7T"M&J7JOM2 WG7TWB+F>I7NE3TN 7HKA7ASCE7R2J*I+MCS3IR 7ICS"M&J3TSA6 CD3LWT+M>I242 *.;S7BSIS*M2I;A3DN .7B4"0*M2I3C7LJ T7R6JJIT7R6JRI+ACD3D3PT	M./R+* ;M3SJ.7IOT"M&J7RKT"M&J7RKT"M&J3ASN. OC"7672J*I+MCS3IR 7ICS2IF/+NCD7DOI3PGLY*M6IOI3ZR 7P
L+C>I7WKO3D?C7USN6 [O3E[R7L
O"?*M2I7J3PR 3P
LE	T2/?N7T& E7T6JCD7LKER&,7I+S6 CDL&I2/;I2 GC+SCE+OCF7EKR+OCR/A3C20"=3ASR6 KER6.2J&I+SCZ3D3P2MRJ7PL+I3T2I3HT&I2/SC3FN +ICF+TCO7RSE3U;R2 	F3ESL"M&J7JCM* CI3D3P*M>J+ICN3TWH2 ?F3L?L3W;I3G2 3OGC3T?I+NCS3A> 3NWC2 ;O+LCY3CSO3EZ 3IWXS*M2/T3E& 3N	D3ROE3TF 7DKD7EO
+ECS3UWS3D& 7NR 7HOI6 KP7OKG+A;M" *M2/?F7RJ 3E?L7CSA3A	B7LSIY6."J*M7DOIP&,3D3P7DOI6-CD3LWT/MF-2IJ/3E?C7MOE2 ?P7ISN+ECR+TCO3D3P7DOI2MRJ7PSL+E3M2I7J+S: 2MRJ7PSLM&,3TSA2 	DS7P6JCD3LGC6,RI+ACD3D3P3T7E2MRJ7P
LC&,3DGC2 	DS7P2JRI+CCA3D3P"+&12/3C7EKA2 T3E* 7UCM"M&J7JOM* CI7DOI+P>I3W	A3TZ +OCR3EGR+SCE3TWH2 	F7RSS2 	TM7E2JWG7TWBF&,7JCM6 CD/LJ+2I^/+ECT7A^ 3OSR6 KF+OCM3B[U6 WS3B?R3U	TN7E6JCD3LSCF&,7HSL*I>I3P	O7NOT2 ?T2 	F3ESL2 [O6 WBF*M2IGT3D& 6 CD3LGC"M&J7I+S6 CD3L
C"M&J3DGC6 CD3LWTM*M2IGT3DR 7PSLE7M2JFI+NCD/C^3"7*M2ISC/FB *I>I3H;A3DWL+RCS7A
L7AOY2 ;I2 	F3ESL" 602J.IS	F2I./E	Y3S?T+PCS7OSU7PSU"M&J7JCM* CI7GSE3B[U"M&J3CGL*I>I3LGE+VCE7ISN7ECR7RSE3A	T+OCN+TCO3TWH" *M2I7J3PR 3PWLR	R6/KP7OKG3A7M2/?N3RGM7LJ 7EWTR7N"J*M/CB7.,^I"0*M3D3P3C[I2,NI+DCF3C[I" 60*J>L7HKE3EN 3OWM7SR +HCE7LOI7T^ 3IT2 	D3S3P7A
Y3OSRS*M2/;O3EZ +OCR3EOA3HN 7HKA7ASC+E;R2 T7ER +WCO+L;S7BSI3SN 3OWD2 ?FR*M2/T3E6 3A/S2 ?T2 GT+K;E2M2J7ISS+C:="M&J.0B0"0&I6/CS3AWC"M&J.2B4"3&I"/6!.JBI.1N2*I>I""*M.IB5"7&1*IN/"M&J.5V3"5&I"/6$.JZI.1V4*I>I"%*M.IF3"7&1*IZ/"M&J.0J0"3&I"/6	.JBI.1B1*I>I"(*M.IJ0"0
4*I&/"M&J.0^3"4&I"/6*.JVI.0F0*I>I"+*M.IB6"0&3*I2/"M&J.1B0"1&I"/6-.JJI.0N0*I>I".*M.IN0"0&0*I>/2MNJ.7B7"0&,.7B7"0&I*/207AOL7OV 3S[E+UCL3C;O3SGTN7T.JZI.0F1*I>I"1*M.I^1"3&1.IJ/"M&J.1F7"5&I"/63.JNI.4V0*I>I"4*M.IJ3"1&5.IV/"M&J.1^3"5&I"/66.JJI.3B0*I>I"7*M.I^1"7&
.I"/"M&J.1V7"5&I"/69.JJI.2N0*I>I":*M.IJ4"0&3.I./"M&J.0B7"0&I"/6<.JFI.0F1*I>I"=*M.IR0"1&4.I:/"M&J.1Z5"3&I"/6?.JNI.7F7*I>I*M.IZ3"2&52IF/"M&J.3^1"5&I"/7B.JBI.3F7*I>IC*M.IZ7"0&22IR/"M&J.1^3"1&I"/7E.JFI.3F6*I>IF*M.I^1"6&22I^/"M&J.1Z4"5&I"/7H.JRI.3F1*I>II*M.IJ7
0&22I*/"M&J.4Z0"0&I"/7K.JBI.0F7*I>IL*M.IF5"0&42I6/"M2J.IB5"1&42I:/2MNJ.7B4"0&,.7B4"0&I*/3O7AOL7OV 3S[E+UCL3C;O3SGTN7T.JFI.7F6*I>IP*M.IR7"1&06IF/"M&J.3N4"6&I"/7R.JFI.3V5*I>IS*M.IN4"0&16IR/"M&J.0^4"5&I"/7U.JRI.3B0*I>IV*M.IJ5"1&06I^/"M&J.0F3"4&I"/7X.JBI.3R0*
>IY*M.I^2"0&06I*/"M&J.0Z1"1&I"/7[.JBI.0R1*I>I3BOA3K3S3AS"M&J.0B6"5&I"/7].JFI.4^6*I>I^*M.IF0"7&02IJ/3A/C6 KA7R
O"M6J.JOC*727.I^3"7*M*M>J3T	H3S& 7SR +HCE7ASC3U3A2 	D3S3P+ACY7RWO3T;I7E^ 3HOI3HN 3HOE+KCS7FKO*M>J3SWP3CGI3LN 7HKA7ASC7EOR2,& 3G?N7ROE2 ?N3T	H+NCG7FKO2 ?H7NOE3TR 7ICS7L	A*M>J2(?C7NKT+OCL3CGH+RCS3W3I3LJ 7EZ 7IWS3A	L3SSE*)B,3CWR3AWT3SF 3N& 3NWTN6-6JN/7I	F2 ?
+RCD3ASN2 WS3AOR7HOE2 T3E6 3A/S+SB.+ICT3TWH3N" 7ACP7EON*M>J+TCO7DOI3PGL7YR +HCE3CGH3ROA7TKE".*M*M*J3LOO3AWT.+B2"0*M3D3P7DOI.,BI*I>I7ESN+ECR7WSI3HN 7HKA2 ;I2 OA.," 2 	BT*M2I7J7PN 3AWV*1>I7FKI+SCT3T7I3E> 7N	L2 ?C+D3E3BOE3OWMS6 6JNIN	A2IN/7RR-7ESS".*M2I7J3PN
R&I2/WYS6.2J&IA7C6JNIN	A2IZ/F6?2J*I+MCP7FKO+M>I7YOE".*M6ICSA*M2I7J+P: "+646JRI+ACD/MZ1"M&J3SGZ*I>I3C;O3T?R7L* "?*M2I7J+P: "+&32I:/O6.2JNI+LCA3C3L"M&J7JCM* CI3D3P7DOI6I&/+E3S3I;G3OWR2 [L"M&J3TSA2 GB/SGE2IN/3RGE+TCE3P	O3NWTR*M2IOD7AN 3AWV*1>I7S[A+EB13P	O7NO
2 ?T2 	D3S3P7WKO3D> 7FR 7HOI"M&J3TSA* CI7S[AE&12/C+A;R2 	P+CCK+ICTU7P2JFI+NCDC&32I6/3A/S* B27BSI2 GM+SCK3CSOE*M6ISR3LN L	L2I6/7USL3I3P3YJ /Y" "M&J3R3A"M&J3TSA2 GB/SKE2IN/3RGE+TCE3P	O3NWT7RR 3O6 3A/S7WKOD*M2IOD3AR /PKL"+&42/?P7ISN7SR 3O6 3A/S7WKOD*M2IGT3D&
2 GS/VGE2I6/3AWK* B13BGL+NCK3SGT+RCT3VOE7TKO2 	BT*M2I3C7LJ A7R6JCD+L262IOD7AN 3AWV*1>I7S[A3EN 7OSN3A;I/SF 21& 3NWT3N	S+FCY7BSIS*M"I&I2/;A3D> +NCE7GKA3B
A3EJ I7T"J*M"L*M3D3P"1&,3TSA. GM"3&I2/?C7USN/SV 2 ;A3DF 2 GH+LCF7MOA7K^ 3OSRS*M2IOD3AN 3O;UT*M3D3P"2&,3TSA2 ?C7USN6I^/3HOI3H" 3A[L"?*M2IGR3RN L	L2I>//D7D3R
I/H/T3EWV3N2=7ESF"M&J3S3N2 3CA*M2I7J3PR /PSL2I2/7ESF2 GHL7F6JRI+ACD7MOAK&02/;I7DE+ECD7ION7TWR3C	TO7N2J&I+SCZ..F-2MRJ/POL2,RI+CCA7S[AE&22/?C3NGT7ION. GY.,GX.,CY.,CX"M&J3TSA. [C.0R62I&/7NSI2 ?V7UKT7OSU3IWN"M&J3DGC2 ?V/UGT"M&J3TSA2 GS/VKE2I^/+ECT3D3E+T7AX*M2
;A3DN "7*M2IGT7D" "M&J7JOM2 ?VU	T2/?L+ACDX*M2IGT7DN 3AWV*2>I7GSE2 WD3LGT"-7Y6JJIA7R6JJIT7R2JFI+NCDC676JRI+ACDY*M2I7J7SZ 7OSU2I2/3OSA" 7Y6JRI+ACD7S[AE&12/WG7TR +HCE7ISN7EON7I	F7WKOD*M2I3C7LJ A	L6IN/3EGP7RSA3E: 7ESX2 	BT*M2IOD7AN 3AWV"1*M2IGRL&I2/OA*=B0+OCR
1" 21&=3NWT+N;S7BSI")*M2IGT3DN .4B06IN/7HKO7TZ 7ESC+OCR3CSOE*M2I7J7SZ 7OSU2IR/7OR +HCE3VOE7TKO"M&J7I+S2 ?C7USN2IF/+LCL3EWL3V;E2 WV3C?T+RCS3D;OE6?2J*I+MCP3D3P*2>I7NSO2 WYT*M2IGT3DN "7&I2/WY+SB,7M[O7E" 2 	R7GSH2 ;O7EB 3O	S3T?IN*M3D3P"7&,3TSA" 7X2JRI+CCAX*M2
7J3P& 6 CD3L	D+S>I7RSE3U;R"M6J6JCD+L242IGT7DN 3AWV*2>I7FKO2 WL+FCT3H3AF*M6ISRR*M6ISRR*M6ISRR*M2I7J3PR /POL"M2J2/;O+CCE3O3N3YN 3OWD2 ?F7RJ 3E?L7CSA3A	B7LSIY*M6MNJ3AWV"1&,3TSA6 CD3L	DS*M7S[A+E222IGT3DJ 3AWS"1*M7CWO+N3T2IOD3AJ 3AWS"1*MX&,3TSA" 7Q*J3Y2IOD3AR 
PSL+I/S"1*M7VWOT&,7JCM2 ?F/RKM2I2/3OSA* 3X3LGO7D& 2,R 7OZ 7ESCO7R2J?V/UGT.,ZI.0Z6*I>I3ISN3EWX3D& 7NSS+RB.7SSE2 ?T2 	F7RSS"M&J7I+S* 6."1&I2/	T+MCE7ESNR7Y2JNIL7A.JZI.0F7*I>I3W	A3TZ +OCR3RGE+DCY3FGLG*M2I7J+P: "-61.JZI.0J7*I>I3CWL+ACR7HKA3DGW+RCE3FGL3G& 3NN 3
WS"M&J*I>I+OCF+ACN3E	X3TZ 3R7O2 SEI7T2J*I+MCP7IZ 7OSU"M6J6JN/3POE3I3A2 C3AGR3CWT+RCS3H;A3DWLR*M2MNJR&,3TSA" 	Y6IB/3AWG6 [O3E[R7L
O"?*M2IGT7DR O	P6IN/3Y7M7EKT+ICC3P
AE*M2I7S3AN L7A2J*I+MCP/CKR*I>IN7O2J?F+R3M.IB6"7&16I^/7ASI2 ?F3RZ 3L
A"M&J7JCM* .."2*M2I7J3PZ 3O7R.2J+"M&J3K[S*I>I7A	N2 C3AGR3CWT7RR 3YWP7DN,7TCO3S> 7UCTU7T2J*I+MCP..R-"M&J7JCM6 KC"2*M7FKO+M222I3C3AN +LCL3C3M2 GI7CJ T	L2/OA.=663EGR+SCE3CSOE*M2I7J7SZ 7OSU2IV/7ROAE*M2IGT7DR O	P2I6/3OWV* CY+TCO7TCO"M&J3DGC" 7Y6JKC"2&,3TSA2 WL
	T2/?M+VCE7XR 3O2 7ESF"M&J3DGC" 7X6JRI+ACD/MN1*I>I7M[O7E& * B13L;I3ER 3O;W"M&J3TSA" 7Y2JRI+CCAY*M2I7J3PR /P[L2IR/3OF 6 WD7M	M6 CS3AWC6 	B2 3C7EKA3I
N2 TE*M"I&I2/;I3T;E3S[I7Y^ 3OSR2 ;A3DR 3O;I3GF 2 	WL7D"J&I6IN/+ECT+OCF7MOA+K;S"M6J2J6L3A/S"0&,.6B0"0*M7TCO.,BI.4R6"M&J.3B2"0*M.IB3"664.JNI.2R0"M&J.0Z0"0*M/MF2"5&,.-F2"5*M7BOA+E212I	L3SOT6-CD3LOW.-F12M6J3A/S"1&,.6B2"2*M.IR3"360.JZI.2R6"M&J.3Z0"0*M/CB4"0&,.
B4"0&I2/3A+SCO3UWS3F3U2 ?C7NSS".*M.IB0"364.JGM"3&,.-N12MNJ"7&,"7*M7MOA+K22.IR3"062.J[C.0R6.,ZI.0R6"M&J.0B2"0*M.IR3"064.JNI.0J32MNJ"3&,.0B0"3*M7BOA+E222IGT3D6 3A/S"0*M3L[ET&,.-B4"0*M7MOA+K23.IJ0"163.JJI.2J0"M&J.4R2"2*M.IJ6"664.JRI.4B4"M&J.0Z0"2*M/MZ1*,6I"1
6*J3Q2IGT3D6 .2V1*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