File BL0A.PA (PAL assembler source file)

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

2/ZI3E3H3E3R7ISS3E2 3EWSN*M"/*M2/FI3U
S3AWB2:F ".&12IGD3T7U.:F .7N...Z7*M>J*M*J"1602J;I+E3V"I602J;I+E3Y"I602J;I+E3Z"I60"J6/.JN*.0B0*M>J*M>J"060"J6/2JWB*0202IOKC*M2I3TS*M2I7J3S& 2 WB"0	C6/KC2,[L"M&J3CGL2 3CL*M2IGT3DJ 3EF0*I>I/L
H.2F-"M&J3DGC2 ;IE7V"J6/.JB/"1*M"/*M/BCE"1&,3TSA* CI3IWNV*M2I;SA*M2I7J3PJ /EB1"M&J7JOM* CI/BCEB&I6/WA7SKD3U/C"M&J7JCM2 WB"061"J6/.JF/"0*M"/*M/BGE"0&,7NCO"M&J3TSA2 WB20OZ"M&J3DGC* CI/BCEZ	B2/WT+XCT/L
H"5*M./J0*M>J2MJJ/EJ02,*I+MCS3IJ 3EN0*I>I6(KC*)B,2([L")*M"/*M./N0*M>J2MJJ/EN02,:IO7P"J6/2JWB*0242I?NP*M2I7J3S& 2 WB"0	E2/	E3NOS3HKU3N;R2.V 3I
N3EWBN*M"/*M2I7J3S& 2 WB"07C6JRI+ACD3IJ 3EZ0"M&J3SGN2 3CA&I2/;A+ZB.3E;I3SC3U;B+R;N* B=.0> "M&J7JCM2 WB"0&52/GJ*M>J"M&J7JOM* CI/BCE+G>I3FE7LKE+LB.7AOU+D;R*M>J2MJJ/EV02,NI+LCA3C3L*M>J2MJJ/E^02,*I+MCS3IJ 3EN02IV/3NWD7RWO3T;IE*M2I7J3S& 2 WB"0	C6/KC2/[L*M>J"M&
3TSA2 WB"07N2JRI+CCA3IWNV*M2IGT3D& 2 ;IE7V6JNIN7A2J*I+MCP/BCE"8*M2I7J3S& 2 WB"0	B6/WA7SKD3U/C2 V"3NWD""*M2I7J+P: "-64"J6/2JWB*0282I7J3S& 2 WB"0	C6/KC2/[L"M&J7JCM* CI/BCE+I>I3Z7U2 GR3HWM7NKP7OKG3A7M*M>J*M>J2MJJ/E"1U&,*0>I3FE7LKE7RWO3T;IE*M2I3CA*M2I7J3S& 2 
B"0	C6/KC2/[L"M&J3TSA2 WB20WZ"M&J3DGC2 ;IE7V6JRI+ACD3I& 7N[E"M&J3SGN"M&J7JCM* CI/BGE"8	U6/WR3E/C7SKP3U
N"M&J7JOM* CI/BCE+B>I7AOU3GKA7ER 7ESX2 L"7662J*I+MCP..R-*M>J*M>J2MJJ/AOU"0&,*0>I7RWO3T;I3EN 3R2/F*M2I3CA*M2IGT3DJ 7E*0F*M2I7J3S& 2 WB"07B6JRI+ACD/BCEZ7G2J*I+MCS3IJ 3EJ0"M&J7JCM* CI7BWA"360"J6/"J6/2JWB*03A2IL*762"1*M/BCEB&,/ACU"0*M/BCEC&,7BWA"3602JWB*03E2I
B/UGP2MJJ3EZ02,2I/HF72MJJ3E^02,JI7ECU"2*M/BCEI&,/DCU*0>I3Z7U2 GR3HWM7NKP7OKG3A7M2MJJ3E:02,2I/H"7"-612JWB20KZ2,JI3E^12MJJ7E*0C&,/L
H.5F-2MJJ7E*0E&,/L
H.6F-2MJJ7E*0F&,.2V12MJJ7E*0G&,.2J1*M>J"M2J"/*M.*J3"060"J6/2JWB/UGP.,BI6IJ/7OSU3IWN2 	E3NOS3HKU3N;R2.V 3I
N3EWBN*M"/*M/BGE"2&,3TSA2 WB"1	O*I6/"2622JRI+CCA/BGEP&I2/GZ3E3H+ECR"1*M2IGT3DJ 3E*1"M&J3DGC2 WB"1	Q2/SA+RB.3E;I3SC3U;B+R;N7LOIT7E"J6/.JF/"3*M"/*M/BGE"3&,7JOM* CI/BGEF&I2/N(+R2)2 2(F6)6JRI+ACD/BGEG&I2/L*765"1*M2IOD3A& 7N[E"M&J3TSA* CI3IWNV*M2I;SA*M2I7J3PJ 
ER1"M&J7JOM* CI/BGEH&I6/WA7SKD3U/C"M&J7JCM* 6."4*M"/*M./R1*M>J2MJJ/ER12,NI+LCA3C3L"M&J3DGC2 WB"17Y2JRI+CCA/BGEZ&I"/7A2JRI+CCA/BGE/ZF+*I>IB*M2IOD3AJ 7E*1"+&22IN/*M>J*M>J"165"J6/2JWB*1252I3CA&I2/	E3NGGB7E2J*I+MCS3IJ 3E&1"M&J3DGC2 WB"17X6JRI+ACD/BGEX*M2IGT3D
 7E^1"M&J3SGN"M&J7JCM2 WB"1&56IN/3POAE*M2IGT3DJ 7EZ1"M&J3SGN"M&J7JCM2 WB"1&4*IJ/"/6"6JRI+ACD/BGET*M6I+SA*M2I7J+P: "+632J&I+SCZ/BGE/ZJ+*I>I/C* "=612J*I+MCP/BGE"7&I"/6!6JRI+ACD/BGES*M2I;S3AN L7A2J*I+MCP/BGE"7	A*I"/+C	R*M>J2MJJ/EV1A&,3TSA2 WB*1/Z"1&I"/7B6JNI
ZCA3CGL"M&J7JCM2 WB"1&82IZ/3E3HE7R6JRI+ACD/BGEZ&I"/7A6JNI+ZCA3CGL"M&J7JCM2 WB"1662J&I+SCZ/BGEZ&I*/CA.:F="M&J3TSA2 WB"17X6JRI+ACD/BGEU*M6ICSA*M2I7J3PJ /E"1*I>I3FE7LKE"M&J3TSA2 WB"1	R*I6/"1606JNI+MCA3CGL"M&J7JCM2 WB"1&82IZ/3E3HE7R6JRI+ACD/BGEX*M2IGT3DJ 7EV1
I>I.-Z2"0*M2IOD3AJ 7E&1*I>I3SWP3ICE7R2J*I+MCP/BGE"5*M"/*M./Z1*M>J2MJJ/EZ16,RI+ACD/BGEY*M2I3C7LJ A7L2JRI+CCA/BGEY*M2IGT3DJ 7E&1"M&J3C3L6 SRL*M2IGT3DJ 7E&1*I>I*1B.3ZA7L" . B1"M&J3TSA2 WB"1	X.IJ/*.JI"M&J3TSA2 WB"1	U*I6/.2B6"M&J3DGC2 WB"17Y6JRI+ACD/BGEY*M6ICS
AN N7A2J*I+MCP/BGE"8*M2IGT3DJ 3E>1"M&J3SGM6 +SA&I2/GZ+HCL3Z3U7AOE3S
I" 6?2J*I+MCP/BGE"8&I2/WNI7N2J&I+SCZ/BGE/ZF+"M&J7JCM2 WB"165"J6/.JF/"7*M"/*M/BGE"7&,3CGL"M&J3TSA2 WB"17Y6JNIN7A2J*I+MCP/BGE"8&I2/WF3HWLR*M2IOD3A& 2 WB"1	Q6/KN2.V(7ION7CWH+BB)+ICN7LOIT7E2J&I+SCZ/BGEQ*M6IOI3ZJ 7EB1.IJ/*2B.3E;I3TGR/G> "M&J7JCM2 WB"1&42/WNI7N
J*I+MCP/BGE"77B"J6/2JWB21F72,:IO7P"J6/2JWB21F7"1&,3TSA2 WB"17Y2JRI+CCA3IJ 7EF1"M&J7I+S2 WB"17Q"J6/2JWB21J72,RI+CCA3IJ 7EF1"M&J7JCM* CI7BWEP&16/WR3E/C7SKP3U
N*M>J*M>J"168"J6/2JWB*1282I7J3S& 2 WB"17K2J*I+MCP/BGE"2*M"/*M"/*M/BGEF&,7BWA"3602JWB*13G"I602JWB*13H6IWA"0602JWB*13I2I	E"0602JWB*13J2IL"7612JWB*13K2IWB61V82MJJ3E>1*,6I"2662JWB*13P"I602JWB*13Q"I602JWB*13R.IF-"2&I*I6/"1602JWB*13S.I^32MJJ7ER1.,NI2MJJ7EV1*,6I
2B62MJJ7EZ1*,6I"1672JWB*13W.IJ-"4602JWB*13X"I602JWB*13Y"I&0*I>I3SWP3IC+ECR6-* 3A3H2MJJ7E*1.,BI"I&I"/7A.JBI"I&I"/7B.JBI"I&I"/7C"J6/*J*L.3B4"0*M"/*M7BWE+P22"I&02/WF3HWL3R	L3SWT6 WA7SKD3U/CE7N6JRI+ACD/BKEC*M2IOD3A& 7N[E2IF/+DCR7LOI+TCE7MSI2 	E3NOS3HKU3N;R".*
"/*M/BKE"0&,3TSA* CI3IWNV*M2I;SA&I2/	L3SWT3N;E+DCE"?*M2I7J3P& 2 WB/UKP2I*/7AJ-3UOE7KCS3R;UG*M"/*M2IOD3AJ 3EJ26I*/7WN.+PB.3E;I3SC6.KN".*M"/*M2IGT3DJ 3EF2"M&J3TSA2 WB"27B2JRI+CCA/BKE+Z>I7AKD2.Z 3E3H3E3R2.Z 7UKE2 	E3NOS3H:.R6.6JRI+ACD3IJ 7E*2"M&J3DGC2 ;IE7Y"
6/"J6/6JRI+ACD/BKEB*M./B2"M&J3TSA2 WB"37A6JNIP7A2J*I+MCP/BKE"5*M2IGT3DJ 3EF3"M&J3SGP"M&J7JCM2 WB"2666JRI+ACD/BOEC*M2IOD3A& 2 WB"27D6JRI+ACD/BOED*M2I7J3PJ /E^2*M>J2MJJ/EV26,RI+ACD/BOEB*M2IGT3DJ 3EN3"M&J3DGC* CI/BKED*M2IGT3DJ 3E.2"M&J7JCM2 WB"267"J6/2JWB*22
2IGT3DJ 3EJ3"M&J3TSA2 WB"37C2JRI+CCA3IJ 3ER2"M&J3TSA2 WB"27J"J6/2JWB*2272IOD3A& 2 WB"27E6JRI+ACD/BKEF*M2IOD3A& 7N+E"M&J7JOM* CI/BKEG*M2IGT3D& 2 ;IE7Z6JNIN7A2J*I+MCP/BKE"8*M2I7J3S& 2 WB"27H2J*I+MCP..R-*M>J2MJJ/E"22,*I+MCS3IJ 7E"2"M&J7JCM2 WB"260"J6/"J6/2JW
*23A2IL*767"1*M/BKEB&,"0*M/BKEC&,/L
H.1F-2MJJ3ER22,2I/HR7.+^12MJJ3EV22,2I/HR7.+Z12MJJ3EZ22,2I/HR7"-612JWB*23G2IGB/UB32MJJ3E"22,FI/UB02MJJ3E*2.,JI"6612JWB*23K.IR2"0*M/BKEX&,/BSE"0*M/BKEZ&,"0*M"/*M/BOEA&,.-J12MJJ3EJ3.,FI"2*M/BOEC&,.2B62MJJ3ER3.,JI"662"J6/*J*L.3B6"0*M"/*M"/*M/LH.0Z=.0B2*M>J2MJ
/EB4.,BI"M&J3TSA2 WB"47A2JRI+CCA3IWNZ*M2I7J3SJ 3EOSH*M2IGT3DJ 3E"4"M&J3DGC2 ;IE7Z2J*I+MCS7BOEC7H6JRI+ACD/BSEJ*M2IOD3A& 7N+E"M&J3TSA2 ;IE7Y6JRI+ACD/BSEK*M2IOD3A& 7N	E"M&J7JOM2 WB3SC"M&J3TSA2 WB"47L2JRI+CCA3IWNZ*M2I7J3SJ 3EOSH*M2I7J3S& 2 WB"47M6JRI+ACD/BSER
M2IOD3A& 7N+E"M&J3TSA* CI3IWNZ*M2I;SA*M2I7J3P& 2 WB"4602J*I+MCS3IJ 3E:4"M&J7JCM* 6."4*M"/*M"/*M7BOE+C3H"I606JRI+ACD/BSEB*M2IOD3AJ 7E*4*M>J2MJJ/ECS2,RI+CCA/BSEX*M2ISC/FJ+"0*M2IGT3D& 2 ;IE7Y2JNI+D/F"0602JNII7A6JRI+ACD/BSED*M6ICSA*M2I7J3PJ /EGS"M&J7I+S2 WB"4
X2J*I+MCP..R-*M>J2MJJ/EGS6,RI+ACD/BSEC*M2IOD3AJ 7E&4"M&J3TSA2 WB"47X6JRI+ACD/BSEE*M2IOD3A& 2 ;IE7Z2JRI+CCA/BSEX*M2IGT3DJ 7E&4"M&J3TSA2 WB"47B6JNIP7A2J*I+MCP7BOE"2*M6IOI3ZJ 7E"4"M&J7JCM* 6."4*M"/*M7BOE"2&,3TSA2 WB"47F2JRI+CCA/BSEY*M2IGT3DJ 7E"4"M&J3TSA2 WB
47E2JRI+CCA3I& 7N+E"M&J3DGC2 WB"47X6JRI+ACD/BSEY*M2IGT3DJ 3EV4"M&J3DGC* CI3IWNZ*M6IOI3Z& 7N+E"M&J7I+S2 WB"47Z2J*I+MCP7BOE"0*M2I7J3P& 2 WB3SC*M>J*M>J2MJJ3EF46,RI/AGB.+J22MJJ3EJ4*,6I"1622JWB*43C.IR1"4*M/BSED&,.-R1"4*M/BSEE&,.2B62MJJ3EZ4.,FI"2*M/BSEG&,"-612J
B*43H2IGT+B.2"2622JWB*43J2IGT+B.3"2622JWB*43K.IR6"4*M/BSEL&,3TKA.4J+"2*M"/*M/BSEM&,7BWA"3602JWB*43N6IWA"0602JWB*43R2IGT+B61"1*M"/*M/BSEX&,"0*M/BSEY&,"0*M/BSEZ&,"0*M"/*M"/*M/L
H"5&,.3Z2"I&I"/7V.JNI"0&5*I>IE*M.IJ3"2&I6IJ/"M&J.3N2"I&I"/7S.JNI"2&5*I>IU*M.IB3"3&I2IN/"M&J.3B1"I&I"/7H.JJI"5&0*I>I"(*M.IB3"5&I2IV/"M&J.3F1"I&I"/7I.JNI"1&6*I>IN*M.IJ3"3&I6IN/"M&J.3N0"I&I"/7C.JNI"1&0*I>IH*M.IJ3"5&I6IV/"M&J.3J0"I&I"/7B.JJI"5&1*I>I")*M.I^2"2
I.I*/"M&J"0*M/L
H"6&,.3Z0"I&I"/7F.JNI"0&5*I>IE*M.IF3"0&I2I"/"M&J.3R1"I&I"/7L.JNI"0&5*I>IE*M.IJ3"2&I6IJ/"M&J.3B1"I&I"/7H.JNI"0&1*I>IA*M.IB3"6&I2IZ/"M&J.3R2"I&I"/7T.JNI"0&5*I>IE*M.IR2"0*M.IB3"5&I2IV/"M&J.3F1"I&I"/7I.JNI"1&6*I>IN*M.IB3"7&I2I^/"M&J.3F0"I&I"/7A.JNI"0&2*I>IB*M
IB3"5&I2IV/"M&J"0*M"/*M/L
H"8&,.3V0*I>I3ESNE*M.IF3"6*M.IB3"4*M.IB3"5*M"I60"J6/2JL*7272IL*860"1*M2IL*8.0"2632J2I/HB8.+^4"M&J/LH.0^+"3*M2IL*8.0.1^1"M&J/LH.0F+"4632J2I/HB8.+Z1"7*M2IL*8.0.2N1"M&J/LH.0J+"3672J2I/HB8.+Z2"3*M2IL*8.0.3^0"M&J/LH.0N+"3632J2I/HB8.+V3"7*M2IL*8.0.4N0"M&J/LH.0R
"2672J2I/HB8.+V4"3*M2IL*8.0.4^7"M&J/LH.0V+"2632J2I/HB8.+R5"7*M2IL*8.0.5N7"M&J/LH.0Z+"1672J2I/HB8.+R6"3*M"/*M/L
H"1&,.0B;.;.0.0B;.;.0.0B;.;.0.0B;.;.0.0B;.;.0.0B;.;.0.0B;.;.0.0B;";60"J6/2JL*722.IB3*6>I3FE7LKE7LOI+TCE+R7D3KWL7BKE"M&J.3V02IF/3USS3ROU3K;E"M&J.3B1"M&J.3R1"M&J.3V0"M&J.3J2"M&J.3R1"M&J.3F1"M&J.3N2"M&J.3R2"M&J.3V0"M&J.2B4"M&J.3J2"M&J.3R0"M&J.2V5"M&J.3N1"M&J
3R1"M&J.3V0"M&J.3J0"M&J.3V0"M&J.3J2"M&J.2B4"M&J.3F0"M&J.3V2"M&J.3N2"M&J.3R0"M&J.3J2"M&J.3V2"M&J.3N0"M&J.3N1"M&J.3V0"M&J.3Z1"M&J"0*M"/*M"/*M"L6/2JL*724.IB3*5>I3E;I3SC+UCB+N;R6:" X*M.IF3"1*M.IF3"6*M.IJ3"3*M.IB3"3*M.IF3"0*M.IJ3"5*M.IB3"2*M.IR2"0*M.IF3"6*M.IJ
"2*M.IV2"6*M.I^2"2*M.IR2"0*M"I60.JBI"M&J"0*M"I60"J6/"J6/2JGT+B21.IJ3"2*M.IB3"4*M.IR2"0*M.IR2"0*M.IR2"0*M.IR2"0*M.IR2"0*M.IF3"3*M.IF3"7*M.IF3"6*M.IJ3"4*M.IV2"6*M.IR2"0*M.IR2"0*M.IZ2"1*M.IV2"5*M.IZ2"1*M.IZ2"0*M.IR2.0B;.;.0.0J;.4.0.0B;.;.0.2B4.;.0.0B;.;R2.0B
.;.0.0J;.4.0.0B;";60.JJI.4.0.0B;.;.0.2B4.;.0.0B;.;R2.0B;.;.0.0J;.4.0.0B;.;.0.2B4.;.0.0B;"M&J.2V1"M&J.2J1*M>J6MRJ/AKB.,JI.4.0.2B4.;R2.0J;.4.0.2B4.;R2.0J;.4.0.2B4.;R2.0J;.4.0.2B4.;R2.0J;"460.JJI"661.JJI"661.JJI"565.JJI"662.JJI"660.JJI.4.0.0B;.;.0.2B4.;.0.0B
.;R2.0B;.;.0.0J;.4.0.0B;.;.0.2B4.;.0.0B;"M&J.2B4.;.0.0B;.;R2.0B;.;.0.0J;.4.0.0B;.;.0.2B4.;.0.0B;.;R2.0B;.;.0"0*M.IF2"5*M.IF2"2*M"/*M3TKA"3&,.3J1"M&J.3N1"M&J.3V0"M&J.3J0"M&J.3V0"M&J.3J2"M&J.2B4"M&J.3J1"M&J.3^1"M&J.3Z1"M&J.3R2"M&J.2Z5"M&J.2B4"M&J.2B4"M&J.2F
"M&J.2V5"M&J.2F6"M&J.2B6"M&J.2B4.;.0.0B;.;R2.0B;.;.0.0J;.4.0.0B;.;.0.2B4.;.0.0B;.;R2.0B;.;.0"0*M.IR2.0B;.;.0.0J;.4.0.0B;.;.0.2B4.;.0.0B;.;R2.0B;.;.0.0J;.4.0.0B;";60.JJI"165.JJI"162"J6/2JGT+B24.IR2.0J;.4.0.2B4.;R2.0J;.4.0.2B4.;R2.0J;.4.0.2B4.;R2.0J;.4.0.2B
.;R2"0*M.IZ2"1*M.IZ2"1*M.IV2"5*M.IZ2"2*M.IZ2"0*M.IR2.0B;.;.0.0J;.4.0.0B;.;.0.2B4.;.0.0B;.;R2.0B;.;.0.0J;.4.0.0B;";60.JJI.4.0.0B;.;.0.2B4.;.0.0B;.;R2.0B;.;.0.0J;.4.0.0B;.;.0.2B4.;.0.0B;"M&J.2V1"M&J.2J1"M&J"0*M"/*M"/*M"$*MBLBZ

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