LP-IOL

* ????-???-???? (LP-IOL) DRAWING NO. 41285997-001-01 PAGE 9

0334 * 0335 * CONVERT TO DECIMAL 0336 00132 0 02 00062 DECC LDA PAGE PICK UP PAGE NUMBER 0337 00133 0 35 00402 LDX =-3 3 POWERS OF 10 0338 00134 1 07 00100 DECL SUB DTAB,1 SUBTRACT A POWER OF TEN 0339 00135 100400 SPL STILL POSITIVE? 0340 00136 0 01 00141 JMP DECM NO, IT'S GONE -VE 0341 00137 1 12 00074 IRS DECI+3,1 YES, INCREMENT ASCII DIGIT 0342 00140 0 01 00134 JMP DECL SUBTRACT POWER AGAIN 0343 00141 1 06 00100 DECM ADD DTAB,1 OOPS, -VE - RESTORE IT 0344 00142 0 12 00000 IRS 0 STEP COUNTER 0345 00143 0 01 00134 JMP DECL LOOP FOR NEXT SMALLER POWER OF 10 0346 00144 0 04 00074 STA DECI+3 REMAINDER IS UNITS 0347 * 0348 00145 0 12 00062 IRS PAGE INCREMENT FOR NEXT PAGE 0349 * 0350 00146 0 02 00071 LDA DECI PICK UP 1000S 0351 00147 100040 SZE ZERO? 0352 00150 0 01 00164 JMP D100 NO - SO TWO CHARS IN FIRST WORD 0353 00151 0 02 00377 LDA ='020000 ONE SPACE IN 1ST CHAR 0354 00152 -0 04 00064 STA* HPTR SAVE IN BUFFER 0355 00153 0 02 00072 LDA DECI+1 PICK UP 100S 0356 00154 100040 SZE ZERO? 0357 00155 0 01 00170 JMP D101 NO - ONE CHAR 0358 00156 0 02 00376 LDA ='020040 YES, TWO SPACES 0359 00157 -0 04 00064 STA* HPTR PLACE IN BUFFER 0360 00160 0 02 00073 LDA DECI+2 PICK UP 10S 0361 00161 101040 SNZ ZERO? 0362 00162 0 06 00375 ADD =-'20 YES, LATER +'60 GOES TO SPACE 0363 00163 0 01 00174 JMP D102 0364 * 0365 00164 0 06 00374 D100 ADD ='60 CONVERT TO ASCII 0366 00165 0414 70 LGL 8 TO UPPER CHAR 0367 00166 -0 04 00064 STA* HPTR PLACE IN BUFFER 0368 00167 0 02 00072 LDA DECI+1 PICK UP 100S 0369 00170 0 06 00374 D101 ADD ='60 CONVERT TO ASCII 0370 00171 -0 06 00064 ADD* HPTR ADD IN UPPER CHARACTER 0371 00172 -0 04 00064 STA* HPTR PLACE PAIR IN BUFFER 0372 00173 0 02 00073 LDA DECI+2 PICK UP 10S 0373 * 0374 00174 0 06 00374 D102 ADD ='60 CONVERT TO ASCII 0375 00175 0414 70 LGL 8 TO UPPER CHAR 0376 00176 0 06 00074 ADD DECI+3 ADD IN UNITS 0377 00177 0 06 00374 ADD ='60 CONVERT TO ASCII 0378 00200 -0 04 00066 STA* HPN2 PLACE PAIR IN BUFFER 0379 * 0380 00201 34 0403 SKS LPNP SKIP IF NOT SHIFTING PAPER 0381 00202 0 01 00201 JMP *-1 0382 00203 14 1303 OCP LPFF FORM FEED 0383 *