LP-IOL

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

0384 00204 0 02 00065 LDA HDRA POINT AT HEADER BUFFER 0385 00205 0 10 00214 JST OUTL AND PRINT 0386 * 0387 00206 34 0403 SKS LPNP SKIP IF NOT SHIFTING PAPER 0388 00207 0 01 00206 JMP *-1 0389 00210 14 1603 OCP LPVT SKIP TO VERTICAL TAB 0390 * 0391 00211 0 02 00401 LDA =1 SET CURRENT LINE NUMBER 0392 00212 0 04 00070 STA LINE TO ONE 0393 00213 -0 01 00116 JMP* O$LE RETURN 0394 * 0395 00214 0 000000 OUTL DAC ** OUTPUT LINE TO PRINTER 0396 00215 0 04 00257 STA BUFR A IS POINTER TO BUFFER 0397 00216 0 02 00373 LDA =-10 INITIALIZE RETRY COUNTER 0398 00217 0 04 00256 STA RCNT FOR TEN ATTEMPTS 0399 00220 0 02 00257 RTRY LDA BUFR BUFFER ADDRESS 0400 00221 0 04 00260 STA BPTR INIT. POINTER 0401 00222 0 02 00063 LDA HDSZ CHARACTERS? 0402 00223 140407 TCA NEGATE 0403 00224 0 04 00000 STA 0 0404 * 0405 00225 34 0203 SKS LPNB SKIP IF NOT BUSY 0406 00226 0 01 00225 JMP *-1 0407 00227 14 0103 OCP LPSS START SCAN 0408 00230 -0 02 00260 OTL1 LDA* BPTR PICK UP CHARACTER PAIR 0409 00231 74 0003 OTA LPCP OUTPUT CHARACTER PAIR 0410 00232 0 01 00231 JMP *-1 LOOP UNTIL READY 0411 00233 0 12 00260 IRS BPTR STEP POINTER 0412 00234 0 12 00000 IRS 0 STEP COUNTER 0413 00235 0 01 00230 JMP OTL1 LOOP OVER CHARACTERS 0414 * 0415 00236 0406 60 ARR '20 SHORT TIMING DELAY? 0416 00237 0406 75 ARR '03 11 MICROSECONDS (516) 0417 * 0418 00240 34 0003 SKS LPSR SKIP IF READY 0419 00241 100000 SKP NOT YET - CHECK ALARM 0420 00242 14 0203 OCP LPES READY - STOP SCAN 0421 00243 34 0303 OTL2 SKS LPNA SKIP IF NO ALARM 0422 00244 0 01 00251 JMP ALRM OOPS, SOMETHING WRONG 0423 00245 34 0203 SKS LPNB SKIP IF NOT BUSY 0424 00246 0 01 00243 JMP OTL2 KEEP CHECKING 0425 00247 0 35 00261 OUTX LDX SAVX RESTORE X 0426 00250 -0 01 00214 JMP* OUTL RETURN 0427 * 0428 00251 0 02 00372 ALRM LDA ='52525 NOTICEABLE A-REG. PATTERN 0429 00252 0 12 00256 IRS RCNT STEP RETRY COUNTER 0430 00253 0 01 00220 JMP RTRY GIVE IT ANOTHER GO 0431 00254 000000 HLT OUT OF TRIES - HALT 0432 00255 0 01 00247 JMP OUTX RETURN IF RESTARTED 0433 *