LP-IOL

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

0284 * 0285 * LIST PAGE NUMBER 0286 00062 000001 PAGE DEC 1 LIST PAGE NUMBER 0287 * 0288 00063 0 000074 HDSZ DAC HDRE-HEAD MAXIMUM NO. WORDS IN HEADER 0289 00064 0 000345 HPTR DAC HEAD+51 1ST TWO CHARS OF PAGE NUM. GO HERE 0290 00065 0 000262 HDRA DAC HEAD ADDRESS OF HEADER BUFFER 0291 00066 0 000346 HPN2 DAC HEAD+52 2ND TWO CHARS OF PAGE NUM. GO HERE 0292 00067 0 000364 PGNA DAC PAGN POINT AT ' PAGE ' TEXT 0293 * 0294 * LIST LINE NUMBER 0295 00070 077777 LINE OCT 77777 MAXIMUM +VE INT. - FORCE NEW PAGE 0296 * 0297 00071 DECI BSS 4 BUFFER FOR ASCII CONV. PAGE NUMBER 0298 * 0299 00075 001750 DEC 1000 TABLE OF DECIMAL POWERS 0300 00076 000144 DEC 100 0301 00077 000012 DEC 10 0302 000100 DTAB EQU * 0303 * 0304 * 0305 00100 0 000000 O$LA DAC ** OUTPUT LINE TO LINEPRINTER 0306 00101 0 15 00261 STX SAVX SAVE 0307 00102 0 02 00061 LDA LCNT LIST LINE COUNT/PAGE 0308 00103 0 07 00070 SUB LINE CURRENT LINE 0309 00104 100400 SPL ANY SPACE THIS PAGE? 0310 00105 0 10 00116 JST O$LE NO - EJECT 0311 00106 0 12 00070 IRS LINE STEP LINE NUMBER 0312 00107 34 0403 SKS LPNP SKIP IF NOT SHIFTING PAPER 0313 00110 0 01 00107 JMP *-1 0314 00111 14 1703 OCP LPLN STEP ONE LINE 0315 00112 -0 02 00100 LDA* O$LA ADDRESS OF BUFFER TO PRINT 0316 00113 0 10 00214 JST OUTL 0317 00114 0 12 00100 IRS O$LA 0318 00115 -0 01 00100 JMP* O$LA 0319 * 0320 * 0321 00116 0 000000 O$LE DAC ** EJECT 0322 00117 0 15 00261 STX SAVX SAVE 0323 00120 140040 CRA CLEAR... 0324 00121 0 04 00071 STA DECI 1000S DIGIT 0325 00122 0 04 00072 STA DECI+1 100S DIGIT 0326 00123 0 04 00073 STA DECI+2 10S DIGIT 0327 * 0328 00124 0 02 00400 LDA =9999 MAX 4-DIGIT DECIMAL 0329 00125 0 07 00062 SUB PAGE CURRENT VALUE 0330 00126 101400 SMI TOO BIG? 0331 00127 0 01 00132 JMP DECC NO, IT'S OK - GO CONVERT 0332 00130 140040 CRA YES, RESET TO ZERO 0333 00131 0 04 00062 STA PAGE