File DAYTIM.PA (PAL assembler source file)

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

*/**6*R +S?S28R 7ASY+ICM****2 WV3R	S+OCN*1* 6*2**M>J+BCY3JO7N& 3O;UG&I.2F/.8^/"6*M"/*MBL((.0B0"0*M2I3C3AN L7L6JRIA	D7ROE7TSR"M&J3SGR"M&J3USN"M&J7JCM" 	I..F+"M&J3I	NT*M*M*J.0J0"0*M7PSU3N7U2=*I+MCS+I:I"M&J3N7U7OSU2I:/3UKM+ECR7OSU7PSU6MBJ3UST/A7T2I7J3S& "I6.
JRI3AWT+R>I7UCN3A/C2 GD+TCE7WKOD*M7PSU3IWM2=*I+MCS+I:I"M&J3T7I+E>I7OSU7PSU2 	TM7E6JWP3TWMS&=7JOM" 	I".*M2IWM7SWO+T>I7OSU7PSU2 GP7LR 7ESX"M6J2JGD3TGDY&,*0>I7D	A2MRJ3A7T+O3N"I&02/?M3NT2MRJ7A	TR&,*0>I3YGER*M2M:J7UCM+N3T6IWN3M?H2M:J3UMO&,"0*M"I60.JBI"M6J2JWR7
KTT&,..F+"M&J3SGT"M&J3C?LS&I2/3C3E;A6 CU2 SO7P6JRIA	D/PV1"M&J7TOL"M&J3TSA.ION"M&J7TOL"M&J3CGL2 3HT*M6MBJ.2B6*,JI.0J-"060.JKP*420*IB".-B2"0*M+P27"I67.J
N*,6I"7*M/P^7.,^I"7*M/PB1"0&,.1B06MBJ*125.IV12M:J"3&,"-632J7T+P20"I602J7T+P21"I602JGD3Y;PT&,7D	A3T3B2M6J7OCN+N3T2I?M3NKTL*M3C7O7MOE*,:I6MRJ7ESX*I2"" 6"2J	N3NWMS&,".*M7TE+TJI*1J9"M6J6JSP7AB"1&,3TSA*I.."1*M.IZ7"560.J^I.7^6"M&J.7^7"6*M.I^7"767"J*M3PGT+B3X2IG
+D:I"+61.JBI.7B0"M&J.1R5"0*M.IJ4"260.JZI.6B5"M6J2JWM7SWOT&,"0*M2IOD/AFI"0*M2IGT3D& .IB1"M&J3DGC2I7TP606JRIA	D7TCM"0*M6ISRR*M6ISRR*M6ISRR*M2I7J3S6I7ECSU7T6JRIA	D7TCM"0*M2I7J3S6I7ECSU7T2J*IM	P7MOE7OSU"+622JWM7SWPT&,"0*M2I;A7DBI"7676JNIN7A2J*I+MCP3I6I3E?SU7T
JRIC	A7TCM"1*M2IGT7DRI/MGP"M&J3ASN.IKP"4606JNI+NCA3CGL"M&J3TSA.IGP"0606JRIA	D7TCM"1*M2I7J7SRI3YWP"M&J7JCM" 	I7MOE7PSU"M6J6J	T+P3E"I606JRIL7S2JNIL7A2J*I+MCP7IRI3YWP"M6JBJBL.*J0"0602J6/3A;I2 3F+O3W2 WG3TR 3AGT6 KF+OCM7TOS*/282 ;A3DN 3A3L6 WS3B?R3U	T7NOE2M&J
NSI2,RI3AWT*I>I7GSE2 GD+TGE"M&J3DGC2I7TP&02/GS+VCE7FKO2 GD3Y> 7F^ 3E/E"M&J3TSA6IWN3M;PT*M2I?TD*M6IWP3T7IE&I2/?G6 KP7ISN2 H2:7M2 [O2 GDY*M2IGT7DBI.2B4"M6J2J*IM	S7TCY+E>I7AN 3POAE*M2IGT7DRI/MCP"M&J7PSU7DSA*I>I7UCN3A/C2 GD+TCE+TCO3M;O+T3H2 GD+YB,3YGER*M2IGT7
RI/MCP"M&J3C3L*I>I3CWL+ACR3OWV3R3FO7W6JRIA	DN&72/GT+KCE"7*M6I+SL&I2/GT+KCE3T?O6 WM/C?H"M&J7JCM*I6.*3>I+NCO3KWE3P^ 3O;IG*M2IGT7DBI*7>I7YOE2,F +DCD3BOA/K^ 6 ^(3E> 7N	L2 GC+RCE3A?B+UCT3TWH2 WR3M	A3NWDR*M2IGT3DRI7ACYN	T2/WG3TF 7DKD7EOS2 ?T2 GT3BWL"M&J3DGC2I7T
&02/GS+VCEI7T6JRI+ACD7IRI/MCP6IN/+ECT3P	O3NWT7RR 3O6 7EOS3AWG"M&J7PSU7MOE*I>I3P	R+NCT7D	A2 [O2 WWE7K6JRIA	D3C7O7MOE"M&J7PSU7MOE*I>I*"B,""*M2IGT3DRI3A7TO	N2/WG3T6 7OSNH*M2IGT3D6I7OCNN	T2/WG3TF 7DKD7EOS2 ;I+TCO3TKAL7E2JRIC	A7TCM"0*M2IGT3D& 2I7TP&02/WG3TF 7D
D7EOS2 ?T2 WM3SGSG7E6JBI3U7TE	S6IB/3R;I3T6 7OSNH*M2IGT7DBI.2B4"M&J7JOM6I	TP	E*/CA3SGPC7E6JRIA	D7DSA7D	A"M&J7PSU3N7U*I>I7D	A2 [O2 ?M3NT"M&J3SR " 626JRIA	D3C7O7MOE"M&J7PSU7MOE*I>I*"B,""*M2IGT3D:I3I7NE7S6JBI3U7TE	S*IJ/*1J9"M&J3TSA2IGD7TKY"M&J7PSU3N7U*I>I3P	R
NCT3YGER*M*ICD"2*M2I7J7PJI7ESS+R/T*1>I3A3L2 ?D+NGE*!F!"!*M"M2J4J/7OSU3IWN2 ?T2 ;U3POA3KR 3AWT2 ?WR7D2JR/3AWT2 ?W+RCD7MOU3TJ +EN 2 [O2 GDY7S2JZ/3R7O* >1.1^/"4*M7DSA+E3R"I602JRIC	A7DSA7D	A*I>I7S[A3ER 3AWT2 ?WR7D6JRIA	D7DSA.1J1"M&J3DGC2IGD7TKY*M>J3C3A3C3U3AW
* B+OCF3YGER7S2JGD/TGE6,RIA	D7DSA7D	A"M&J3SGM2 3CA*M2I7J3PRI3AWT"2*M6IOI3ZRI7A	TR*M2IGT3DRI/AWT"6646JRIA	D7DSA7D	A"M&J3DGC2IGD3TGDY*M2I7J3PRI3AWT"1*M2/?N3WN 3AOL3UGL+TCE7D	A2 [O2 ?M3NT2MRJ3AWT"2&,3DGC2IGD3T?MN*M2IGT3DRI3ASTA7Y6JRIA	D7DSA"3676JNIP7A2J*IM	P
.R+"M&J7I+S2IGD3T?MN*M2IOD3ARI3ASTA7Y2J*IM	P7DSA+E.2"1*M2I3CA*M6IOI3ZRI3ASTA7Y2J:/+OCW7H[A3ER +ACY+OCF3M;O+TCH+ICN7DSA7D	A2MRJ3AWT"3&,3TSA2IGD3T?MN*M2IGT3DRI/AGT"4*M6ICSA*M2I7J+P:I"+642J&IS	Z7DSAY7R2JRIC	A7DSA3M;O"M&J7JCM2IGD/TOE"M&J3CGL*M>J7N
O2 GH+VCE7D	A2 ;I2 GD3TGDY*M2/WY+ACR+ICN7DSAY7R2JF/+NCD3M;O+TCH+ICN7DSA3M;O"M&J7JCM" 	I7DSAE7R"J*M7DSA.5R6*,6I.5R6*I6/.3J72 WD3C7IA7L2JGD/TR1*,6I"1&4./F-22R 3E	C3M3A2MRJ/AOT"7&,.-^3*I6/*3B13DOE3IGML*M7DSA.1J1.,FI"1&2./R72 WD3C7IA7L"J*MBL(<7RWO3T;I7ER 3O> 
UCT+UCT3T7IE*M6/SS3OWR3D& 3N: 3UM3OF +NCD3N7U+H/O61R 3O" 3H6:7MN:S*M3T7IE&,"0*M2IGT7DBI3TKAX*M2IOD7ABI3T7IX*M2IGT7DBI3TKAX612JRIC	A3P	T/MGX"M&J3TSA6ISP7FKOM*M2IOD7ABI3T?CN7T"J*M3P3T7OCO6,RIA	D/PZ2"0*M2IOD7ABI7TWNM*M2I3CL*M2IGT3D:I3UM/OF+6MBJ3T7IX&,7NCO"M&
3DGC6IWN3M?H"+626JJIA7L6JRIA	D3N7UH7O6JSP7IM"1&,7NCO"M&J3S3N"M&J7JCM6ISP3IGM"M&J3DGC6IWN3M?H"M&J3TSA6IWN3M?H"+622JRIC	A3N7U+H/O"1*M6IOI7ZBI7TWNM*M2I7J7PBI3T?L+O/P"2*M6MBJ3T7IA&,7I+S6ISP7IM"M&J7I+S6ISP7IM"1*M2I3CA*M2IGT7DBI7TWNM*M2I7J7SRI3YWP"M&J3TSA6ISP3C
OT*M2I;SA*M2I7J3P& 2I	TM7E2JNI+LCL3R3A"M&J3DGC6ISP3C;OT*M6I+SL*M2I7J7PBI3T?LO7P6JRIA	D3POT3O;L"M&J7JOM6I	TP7E2J*IM	P3P3T7OCO"M6J6JSP7FKOM&,.5B0"0*M3POT3O;L*,JI.:J-"0606JSP3C;OT&,"0*M3P;T+U3M"I60"J*MBL((.0B4"0*M2/?C3M	B7NSA3I;O2 OO3T3A2-WD3C7I+ACL7OSU7PSU2
?R3U	TN7E2JV/3NWTR&:3TSA2IGV3LWU*M>J2I7J3S:I3U?MU7T"J&/3SR " 63"J&/7RSE3U;R*M>J*M>J*M>J3S6I3E;A7SR 7ON 7UCP7ROE3S2 3ESA3I
N2 WZ7ROO*M>J3D6I3E;A7SR 3O> 7UCT+UCT+ICN3DOE3IGML*M"/&33D
I7IOT2 ?T6 WO7TWP+TB,61R /OR 2 	D7GSIS*M"/*M"/*M6MNJ2=7JS*M3D&=S7Z6JWA/XF="7*M2M:J3U?M+U3T"I602JRIC	A3N7U"M&J3TSA" 	I3N7U7OSU"M&J3C3L2 GRL&I2/OO3T3A6 KO2 WD3C7I+ACL7OSU7PSU"?*M6ICS3AN L7A6JRIA	D3DOE7OSC2IR/3E	C3M3A"M&J3TSA2IOO3T;P+T>I7OSCA7L2JRIC	A3S/T7PS
6IB/+UCT+ICT+ICN3SGT+CCK3P	O3NWTR*M2IGT7DBI.2B6"M&J3DGC2IGD+T/A"1*M2IGT7DBI.2B6"M&J3DGC2IGD+T/A"2*M2IGT7DBI.2B6"M&J3DGC2IGD+T/A"3*M"M&J3TSA2IGD3T;PT*M2IOD3ARI3AGT6IN/+ECT7DSA7AB 3O;I7TKE"M&J3CGM2 3C7LJ T7L2JRIC	A7CWON	T2/WS7TV 3P& +SCZ3L?OP*M2IGT3D:IU	M2/
G7TSE3H> +UCT3N7U7BKE2M:J3U3M+O3P2IGT3D& 6ISS3K;P+T>I3T/A3EF 7W	A2 GV3LWU"M&J3SGP"M&J7JCM*I..*3>I+ICF3N
E2,N 3H;A+GCE+TCO7P
O+E7R"1*M6IOI3Z& 2IGDT	A2/GT3K;E6 
A+ACY3V3A2,& 7NKC7EZ 7AWLE*M2I7J3P:I3U3MO	P2/GT+KCE3AGW3Y6 3OWR"M&J3DGC6IWN+M>I+WCE3T?O7KR +OCO3MOUH*M2IGT3D& 6ISS3K;P+T>I3ASD2 T+ACT3V3A+UCE3BOAK*M2I	CA*M2IGT3D:IU7M2J&IS	Z7DSA+A>I3ION+RCE7DSA7AR 3O: 7ESX2 CA7R2J&IS	Z3S/T7PSN2I&/7NKC7EN 7TCK+NCT+TCO7NE7T
 7AWLE*M6IOI3ZNI3O;U+T>I3AWR2 WW2 ?D/N?E"M&J7JCM6IWN3M?L+P>I7NCO+EB,7G
O+ACN3BOAK6!6JRIA	D/PJ4"6&02/T+ICSI	S7A* 3E?R2,J +UCT+ICTI7S2JRIC	A7DSA/AR+2I:/3EGG7T[I+EB,3ISN3IGC7TOE2 ;E3D> 7FN 3TOAK*M"M&J3TSA" 	I3N7U7OSU2IF/+RCE+WCE+TCO7SCU3PWRS7S6JNI+MCA3CGL*I>I3LGE3D;I7G* 3E?RS6?2J*IM	P3N7U7PSU2I:/+OB,+GCO7OSU7PSU"M&J3TSA2IGD3T;P
*M2IOD3ARI3AGT"M&J3CGM2 3C7LJ T7L2JRIC	A7CWON7T6JWN7MWSP&,3TSA.IKP"6602JNII7A6JRI+ACD3IRI3AGT2I&/7FR 7HOI6 OI* CA7ZKEO*M6I+S3AN L	A6IB/+UCT7AN 3POA3E" 3EWR"M&J7JCM6IWN7MWP+T>I+ICF7NSO2,R +O
N7TN 7UCP7ROE3SF 3N7Y3OWR"M&J3TSA.IKP"4602JRI+CCA3IRI3AGT"M&J7I+S2IGDT7A2J&IS	Z7CWON	T2/[I2 T+ICS+ICS3A3L2 WZ+RCO3N7U7BKE"M&J7JCM6IWN7MWS+P>I3D;O2	CT7SCU3PWR*CS3TWH2 GL+SCT3OWN"M6J6JWN7MWPT&,3TSA" 	I3N7U7OSU2IZ/7IWG+RCE3N7U7BKE"M&J3ASN.I
P2I>/3FN 7HKA7SR 3O> 7UCTU7T2JNII7A6JRIA	D7OSU7PSN"M&J3DGC6IWAX*M2IGT3D& 6IWAX*M2I3TS*M2I7S3AN L7A2J*IM	P..N-"M&J7I+S6IWN7MWOT*M2I7J3P& 6IWN7MWOT*M*M>J7HKE3E& 3SF +LCL3TWH2 GD+TCA3NWE3DSE2 ?F7RR +HCE7RWO3T;IE*M6MBJ.4Z2"0&,.4Z2"0*M7CWO+N3T"I606JSS3K;PT&,"0
M3N7U.,BI2MRJ3E?C+C3T2IWD7CSS3K>-7COTT7K2JOO3T;PT&,7OSC3S/T2MRJ3E	CM7A2JWD7CSSK&,.-B1"0&0./F-.0B02 WD3C7IA7L*J6I.1B0*I6/.1B02 WD3C7IA7L*J6I"1&0./F-20R 3E	C3M3A2M>J3CGTL*M7OSC3S/T*,6I.1B0*0>I.-B1*0B07OSCA7L*J6I.1B0*I6/.1B02 OO3T3A"M&J.-B1*I6/*1B07OSCA7L"J*
7DSA7PSN*,:I"+622JGD+T3A*I.."1*M"I&02/T7OOU3ASNS*M"I&06/WH7NKD7EOD"M&J*0>I3T;ES*M"I&02/;O+E/S.4B0"0*M7OSU7PSN*,:I"-61"J*MBL047OSN+B3L2IGJ/NF-"M&J3FKE"-612J6I+A7R"1*M6ICA/RF-"M&J7M	A"-612J*I+U7N"1*M6IWJ/LF-"M&J3A
U"-616JNI+E7P"1*M2IOO/TF-"M&J7N[O"-612JRI+E7C"1*M2MRJ7ASY+B3L6IWT/EF-"M&J3WSE"-616JRI+H7U"1*M6IKF/IF-"M&J7SSA"-616JNI+U7N"1*M2I?M/NF-"M6J2JGJN&,7TE+TJI3J;A7UKAY6"2JWFB&,7TE+TJI3FKE3RGU+RKY2M6J+A3R2IWTX	T2"GM3RC""*M7AKP6,RI7ESX2IF"3P	RL6"2JGMY&,7TE+TJI7M	A
"*M3J;U6,RI7ESX2I*"3UWN""*M3J3U6,RI7ESX2I*"7U	L""*M3A
U6,RI7ESX2IF"7UWG+SKT6MNJ+E3P2IWTX	T2"WS3PWT3MWBR6"2JOOT&,7TE+TJI7OSC3OWBR6"2J?NV&,7TE+TJI7N[O3EKM+EKR2MRJ+E3C2IWTX	T2"WD3C7E7BKE""*M6MNJ+U3N2IWTX	T6"WS3NGDY6"2J?MN&,7TE+TJI3M;O7D	A""*M3TWU6,RI7ESX6IR"7UOE7D	A""*M3WSE6,RI7ESX6I^"3E;D3ESS+AKY6MRJ+H3U2IWTX	
2"T7UOR7D	A""*M3F	R6,RI7ESX2IZ"3RSI+AKY6MNJ+A3T2IWTX	T2"GS7TKU7D	A""*M"M6J"J*M*$R$"M2J B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"
"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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