File PROG.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file
7FI3M	R2 
F/E7T.5B0"0*M7FI3M	R6 CF/U7T.6B0"0*M7FI3M	R2 GF/D7D.1B0"0*M7FI3M	R6 OF/U7B.2B0"0*M7FI3M	R2 +F/M7P.0B0"0*M7FI3M	R2 7F/P7Y.3B0"0*M7FI3M	R2 SF/I7V.4B0"0*M3F	F/XB=.0N12MZJ7LSO.=B0"1646JOF/Q7R.0B0"2*M7FGS/UB=.0F02MZJ7I+S.=B0"0602JOF/D7F.7B0"1*M7FCS/A^=.1B02MZJ
ESX.=B0"060.J^*"0*M7TCY+EB,"0*M* B * B 3T[S*MBJ* B 2 * +MCP..F-* > 3W	A7TR 3I3L6 ST3Y& 7SJ 3ESAY*M* B * B 7TOL*MBJ* B 2 N L7A*JB * B 2 7J3P& 6 	T+PCE6 J/7EWTR7N6JKC+L3F" 60*JB * B 2 GT+D" .2V1* > C7R*JB * B 2 7J+SB 7TCYE*M* B * B 3TSA* " .2J1* > L7F*JB * 
 2 7J7SR 3YWP*MBJ* B 2 * +MCP3IN 3R[L* B 2/WR7TKUN*M.*Z1"0*M+NB,"0*M+TB,"0*M+MB,"0*M+KB,"0*M+LB,"0*M+PB,"0*M+N3N" 60*J*L.2B0*MBJ* B 2 N +LCA3C3L* B 2/;I3I	T3A	L+ZCE7T	T*MBJ* B 6 R L7S*JB * B 2 OKC*M* B * B 3TSA* " N*M* B * B 3DGC6 J "1*M* B * B 3TSA* " .7
7*2B * > 3I	N3TGI7L+I+EB 3L?OP*M* B * B 3DGC2 N N7T*JB * B 2 GT+DB 2(SAD7R*JB * B 2 OD+AB R622J?L+O3P2 7J3SN 3R[L*MBJ* B 6 R +ACD7IJ *2B 2 2/7OCO6 	T7POE*MBJ* B 2 * +MCS6 KP7ISN* > 3QWU3S	T7OON*MBJ* B 2 * +MCS7LOI+TCN* > +OCN3TWH6 STY*M* B * B 3DGC* CI+RB
* B 6/SS3OWRS*M* B * B 7I+S6 J *1B * B 6/OE3P;O7COE*MBJ* B 2 & +SCZ. KR* B * B/+ICN3LOO3A	T7OON*MBJ* B 2 & +SCZ2 ;C+TB 2 :/2 T+RCUP*M* B * B 7JCM2 2 7OCO*MBJ* B 6 R +ACD" 7P*JB * B 6 +SA*M* B * B 7JCM* : *+B3* B 6/WJ+LCP+ICF3P3O3A	R+TCY+ICS"+*M* B * B 3TS
* " .7R0*1B 2/	C3A& 7NSS3ROU3T?U3NN 3OW*MBJ* B 2 R +CCA. CS* B * > 7PSU2 ;I2 GS3M3P7EJ 7OSU3IWN*MBJ* B 2 N L7A*JB * B 2 GT+DB N*M* B * B 3CGI*MBJ* B 2 R +CCA2 ;N*MBJ* B 6 R +ACD" 7K*JB * B 6 SRL*M* B * B 3R3A*MBJ* B 6 R +ACD. Z(.2F0* B 2/WS7TV 3PN +DCF7IO
7TWR3C	TO7N*JB * B 2 OD+AB S61*JB * B 2 7J3P& . R("060.JGQ6,R 7ESX2 :/3UKM+ECR+OCF3S7A3PWL+S>:6MFJ*2B,7TE+T> 3S7A3PWL2 ;I7TKE3V3A2 ;I6 OM/E+C"/*M+Q232 WT+XCT2 N/3H;A3N3E6 WN3MWB+R>:6MFJ*4B,2 WT+XCT2/GS3M3P+ECS3S?T3RSE2 ;I2 	F3ESL":6/.JWQ6,R 7ESX6 N/7TKA3T
I3GF 3T2 3OGC3T?I+N>:6MFJ*6B,7TE+T> 3P3O3A	R+TCY+OCF3SGT+RCT3P3U/S+E"/*M+R21" 60.JKR.,B 2MNJ+N3T" 602JSA+D3R. GQ*MBJ* B . KQ*MBJ* B . OQ*MBJ* B 6 F "4*M* B 6 F "5*M* B 6 F "6*M.LR*"060*JB * B 2 3CA*M* B * B 3C[D. J *0B * > 7ZKE3O> U7T*JB * B 2 GT+DB .(R2*
B0* > 3TWH*MBJ* B 2 R +CCA2 GD* B * > 7DOI3PGLY*M* B * B 3DGC* CI+DCA* B 6/WB3FWFR*M* B * B 7I+S2 GD*MBJ* B 2 * +MCP* : "-62*JB * B . V6*0B0* > 3SGT+RCT+UCP3AOD*MBJ* B . Z .5Z0* B 6 J/3ES2 C3A;N+ECL"0*M* B * B 7NCO*MBJ* B 2 : O7P*JB * B 2 ?NP*M* B * B 7NC
*MBJ* B . Z .5V0* B * > 3W	A3TZ +OCR3SGT+RCT3P3US7E*JB * B . V6"061*JB * B 2 7J+PB ..F-6MNJ*0B,2 : +OCP* B * > 3CGH3NWF7R 3ON +ICA+OCN6-B 3OGL7R	T*MBJ* B 6 R +ACD. ^(.4N6*MBJ* B 6 N +PCA2 3CA*M* B * B 7JCM* : "-662JGS3M3P+EB,3TSA2 6 *MBJ* B . Z .5Z0* B * 
 2/GS3M3P3EN 3H;A3N3E" 7M*JB * B 2 ?NP*M* B * B 7NCO*MBJ* B 2 : O7P*JB * B 2 ?NP*M* B * B .6B5"5*M* B * B .6B5*1B * > 3W	A3TZ +OCR3S7A3PWL*MBJ* B 2 * +MCP* 6."1*M* B * B 3C3L*MBJ* B 6 N M7A*JB * B 2 7J+PB 7POO* B 2 */7UCM2 [I2 GS3M3P3E& 7PB 3O	S7T[IE*M* B
* B 3S3T2 GRR*M* B * B 3S3T2 GR+RB * > 7D[I3IWD6 	B" 64*JB * B 2 7J+PB ..N+6MBJ+O3S2 N +LCL7RKA*MBJ* B 6 J A7R.JGS*,B 2 SC/FF *0B * > 3S3E7SC2 GD+TCA3FWI+LCDK*M* B * B 3DGC* CI+LB 2/GS+VCE3S7A3PCL*MBJ* B 6 R +ACD3I2 *MBJ* B 2 N +DCF. B2*MBJ* B 2 R +CCA3I2
* B 6 N/3AWV2 ;I2 	F3ESL* B27AOLO*M* B * B 3C[D. B *MBJ* B 2 & +SCZ" 7L*JB * B 6 OI+ZB N7N*JB * B 2 7J+PB ..J+*MBJ* B 2 * +MCP. KS*MBJ* B 2 * +MCS2 WD7L	A*MBJ* B 2 * +MCP2 GS3M3P+EB 6 R/3AWK2 WN+XCT3S7A3PWL6MNJ*2B,2 N L7L*JB * B 2 SC+FB *1B0* > 7SSE6 CU*M
J* B 6 R +ACD" 7N*JB * B 2 OD3A& . J(*0B 2 Z/+OCR7FSF*MBJ* B 6 R +ACD* 6("1*M* B * B 3DGC* CI.(F2*MBJ* B 6 R +ACD* CN* B * > 7RWO3T;IE*M* B * B 7RKA*MBJ* B 2 & +SCZ+I" "261*JB * B 6 +SA*M* B * B 7JCM* 6."3*M* B * B 3C[I. F "0*M* B * B 7JOM* CI.(V1*0B * B 
/?D2 [F3T> 7NN 7ACM7LOE*MBJ* B 2 N +DCF"0*M* B * B 7JOM6 B 3OWW+RB * > 3C7O7PSU7ER +HCE3CWO7FN 3QGU3RSE*MBJ* B 2 * +MCS+I" .3B4*0B * > 7DOI3PGLY*M* B * B 7HSL2MRJ3EGL+YB," 60*JB * B 2 GT+DB T*M* B * B 3CGI*MBJ* B 2 R +CCA2 OT*MBJ* B 6 R +ACD. ^(.4V3* > 61
S2 	T+MCE3D3D+ACY3O3N+Y: .9^66 OME7C*JB * B 2 OD+AB D7A*JB * B 6 OI+ZB D7A*JB * B 2 7J+PB ..F-* B 2/WD7L	A*MBJ* B 6 R +ACD. ^(.3V7* > 2 WD7L	A2 613SOE" *M* B * B 3DGC2 R A*M* B * B 7I+S6 R C*M* B * B 7JCM* : *-B5* B 2/R 3EGL7YN 3OWM2 ?MR7E*JB * B 2 7J3P& 
 WD7L	A6MRJ+CB,"0*M+D3A" 60*J*L.6B02M2J7ISS+NB,"0*M* B * B 3CGL2 3CL*M* B * B 3DGC2 WNX7T.JGL*,B 6 OKF*M* B * B 7JCM2 2 *1B 6 ^/7ASI2 ?F3RF 2 CA7R*JB * B 6 KKB*M* B * B 7TOL* B 2/WR+ACD3ASN2 OE+HCO3CGHR*M* B * B 3TSA* " .7N5*0B ./J-"560*JB * B 6 CSA*M* B 
 B 7JCM2 2 7ISSR7N*JB * B 2 GT+DB .(^7*7B0* > .-B1*MBJ* B 6 N M7A*JB * B 2 7J+PB ..N+* > 6 WJ+MCP+ICF3A: 3UKME7R*JB * B 2 GT+DB *(B52 F//CB=2 [I2 	M7NOU2 F /CJ=2 [I2 ?P7SSI3IWV*MBJ* B 2 F +NCD. ^(*MBJ* B 6 R +ACD2 WNX7T*JB * B 6 SRL*M* B * B 3R3A*MBJ* B 2
R +CCA2 WN+XCT* > 2 GS+VCE3N7U7BKE"*68*JB * B 2 7J+PB L612J	L7SKT+NB,3CGL*MBJ* B 6 R +ACD2 WNX7T*JB * B 2 GRR*M* B * B 7RKT*MBJ* B 2 * +MCP3I2 7ISS+NB 6 J/3ECT+RCN7WSI3H: 3IKM+ECR+ICNA7C6JKP7ISN.,B *MBJ* B 2 R +CCA2 WNX7T6JKP+TB,6 R +ACD3I: 7ESX*MBJ* B 2 
 S7W*JB * B 2 ;A+DB .(^7* B 2/WG/TF +SCT3CGHR*M* B * B 3SGN*MBJ* B 2 * +MCP7IB 3R;I+TB 6 J/7EWT+RCN+ICF3D;OE*M* B * B 3TSA* 6("460*JB * B 6 CSA*M* B * B 3TSA* " .1B0*MBJ* B 6 R +ACD. J(*4B0* B 2 6/3AWK* B87BS6 OA3C	I2 ?CD7E*JB * B 2 7J+SB 7TCYE*M* B * B 3
SA* CI7NET*M* B * B 3ASN* " *7B7* > 7GSE2 :23DN 7HKA*MBJ* B 6 N N7A*JB * B 2 7J3P& 6 KP7ISN* > 7RSE3U;R2 [I2 ?DN7E*JB * B 2 GT+DB .(R-"0*M* B * B 3SGP*MBJ* B 6 R +ACD. F("060*JB * B 2 GT+DB .(R2"0*M* B * B 7JOM6 	T+PCE* > 7TCY3EN 7HCA*MBJ* B 2 & +SCZ2 WNX
T*JB * B 2 7J+PB 7PSR2M:J7ESX.,B "M2J.*B1"0602J?P7WKE.,B *MBJ* B 2 N +LCA2 3CL*M* B * B 3TSA2 : *MBJ* B 6 J A7R*JB * B 2 	CA*M* B * B 3DGC2 : 7CWON7T*JB * B 2 GT+DB .(R2"060*JB * B 2 OD+AB S*M* B * B 3TSA* " .1B6*0B * B * B * > 3I	N3TGI7L+I3A	TO7N*JB * B 
 OD+AB 3T7EP*M+P21* B 3C[D. F "0*M* B 3TSA* CI+SB 2/WG7TJ 3E3A2 GPR7T*JB * B 2 SC+FB "0*M* B * B 3DGC. R "4*M* B * B 7JOM* CI"7*M* B * B 3F?LT*M* B * B 7FGS+UB * B 6/GS7UKA3E& T*M* B * B 7FWP+TB 3SWT+MCP* B 2/GS+VCE3T7E7PKO3A	RL7Y*JB * B 2 WFX7T*JB * B 6 
I+ZB S*M* B * B 3C[D. F "0*M* B * B 3TSA* CI+SB * > 7GSE2 7I+ACG7PKAT*M* B * B 3C[D. B *MBJ* B 2 R +CCA. R4*MBJ* B 2 * +MCS/I^ *MBJ* B 2 Z 7LSO*MBJ* B 2 Z 7SWQ* B * > 7SWQ3AWR6 SI*MBJ* B 2 Z 3ASD6 N 3T7E+PB * > 3ASD2 WR+ACL7PKAT*M* B * B 3FSC+FB "360*JB *
B 6 CF+UCT7IR 7ECM* B 2/GS+VCE+ICN3FWI+LCD"3*M* B * B 3FWG3T& 2 WTM7P*JB * B 2 OF+DCF" 60*JB * B 6 OF+UCB2 7S+ACX* > 3CWH+CCK7FKO2 GM7XZ 7AWLE*M* B * B 7FCSA*M* B * B 3F7J+PB ..N+* B 2 */7UCM2 [I2 ?N/T: 2 GM7XZ 7ZWLE*M* B * B 3FSA+DB 3SGMX*M* B * B 7FWP+T
 3SGM+XB * > 7S[A3E: +ECW7MA2 GV3LWU*MBJ* B 2 Z 7ESX*MBJ* B 2 N +DCF" 60*JB * B 6 OI+ZB 3T7EP*M* B * B 7I+S6 R 7ECM*MBJ* B 2 & +SCZ2 WTM7P*JB * B 6 OI+ZB S*M* B * B 7I+S2 : 7CWO+NCT* B 2/;I3CWR3M;E3YN 3O;U7TKE*MBJ* B 2 * +MCP. GP*MBJ* B 6 R +ACD" 7N*JB * 
 2 GRR*M* B * B 3CGI*MBJ* B 2 R +CCA2 ON3O;UT*M* B * B 3TSA* " .1B6*0B * > 3R	E7NSI3I3A3IWZ*MBJ* B 2 R +CCA2 WTM7P*JB * B 2 GT+DB .(R4"060*JB * B 2 OD+AB S*M+P22* B 7JOM* CI"7*M* B * B 3FWG+TB 3SGMX*M* B * B 7FGSR*M* B * B 7FWP+TB 3SGMX*M* B * B 3FSC+FB "
60*JB * B 2 
F+ECT7IR 7ECM* B 2/WG3TN 3O[E6 GS7UKAE7D*JB * B 2 OF+DCF" 60*JB * B 6 OFQ7R*JB * B 2 SF+ICV2 7S+ACX* B 2/	D3VSI3EJ 3Y6 +ACX3V3AU7E*JB * B 2 7F+PCY6 WN+MCB* B 6/WM3L	T7P	L6 	B. B2"467*JB * B 2 [FI7X*JB * B 2 WFX7T*JB * B 2 SC+FB "260*JB * B 2 GT+DB "464*JB
* B 2 OD3A& * CS* > 3S?T+RCE+ICN3B[U7FKE*MBJ* B 2 N +DCF"0*M* B * B 7I+S6 R 7ECM*MBJ* B 2 & +SCZ2 WTM7P*JB * B 6 OI+ZB 3T7EP*M* B * B 7I+S6 N *MBJ* B 2 & +SCZ2 ON3O;UT*M* B * B 7JCM6 B *2B * > +DCO7NE3TN 3O[E*MBJ* B 2 N +LCA3C3L*MBJ* B 6 R +ACD" 7N*JB * B
2 GRR6 *JB * B 2 	CA*M* B * B 3DGC2 : 7CWO+NCT* B */B /NJ/*MBJ* B 6 R +ACD" 7S*JB * B 2 GT+DB .(F-*MBJ* B 2 R +CCA2 WTM7P*JB * B 2 SC+FB "260.JOP*,B 2 GT3D& 2 WT+MCP* > 7S[A3E6 7IKRO7R*JB * B 2 OD3A& * CS* > 3IGM+GCE+OCF2 ?CE7F*JB * B 6 OI+ZB S*M* B * B 3
SA2 WTM7P*JB * B 2 GT+DB .(F-*MBJ* B 2 R +CCA2 WTM7P*JB * B 6 OI+ZB 3N?C7USN*MBJ* B 2 * +MCP. OP*MBJ* B 2 N +DCF"0*M* B * B 7JCM* CI7P
O+ECR* > 7RSE3U;R6MNJ*,B .2B4"0*M3T7E+PB,.1B6"0*M3SGM+XB,.0B;";606JSS7ECM.,B .;.0"0*M3N7U+BB,.0F0.3N;.7^7.;B0"0602JON3O;U+TB,"0*M*LB * B 2 	F3ESL" 61.JF*"5602J?D7FSF.=B66MNJ7OSR.=R52MZJ+F3T. B *MBJ* B 2 N +DCF. B1*MBJ* B 2 * +MCS3IR 3O[FT*M* B * B 7JOM* C
7SKOT*M* B * B 3C[I" 60*JB * B 2 7J3P& 2 [F+TB 6 J/7EWTR7N&J*L"360*JB * B 6 CF+UCT7IR 7ECM* B 2/GS+VCE+ICN3FWI+LCD"3*M* B * B 3FWG3T& 2 WTM7P*JB * B 2 OF+DCF" 60*JB * B 6 OF+UCB2 7S+ACX* > 3CWH+CCK7FKO2 GM7XZ 7AWLE*M* B * B 7FCSA*M* B * B 3F7J+PB ..N+* B 
 */7UCM2 [I2 ?N/T: 2 GM7XZ 7ZWLE*M* B * B 3FSA+DB 3SGMX*M* B * B 7FWP+TB 3SGM+XB * > 7S[A3E: +ECW7MA2 GV3LWU*MBJ* B 2 Z 7ESX*MBJ* B 2 N +DCF" 60*JB * B 6 OI+ZB 3T7EP*M* B * B 7I+S6 R 7ECM*MBJ* B 2 & 

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