LP-IOL

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

0234 00012 0 12 00056 IRS CNTR STEP COUNTER 0235 00013 0 01 00010 JMP CLLP GO BACK UNTIL BUFFER FILLED 0236 * 0237 00014 0 02 00065 LDA HDRA 0238 00015 0 04 00064 STA HPTR POINT TO START OF BUFFER 0239 00016 0 02 00404 LDA =55 (110 CHARACTERS) 0240 00017 0 07 00060 SUB HWRD NUMBER OF WORDS IN HEADER 0241 00020 101400 SMI MORE THAN 110 CHAR.S? 0242 00021 0 01 00024 JMP HCPY NO COPY JUST HWRD 0243 00022 0 02 00403 LDA =60 SET TO 60 0244 00023 0 04 00060 STA HWRD COPY WHOLE BUFFER 0245 00024 140040 HCPY CRA 0246 00025 0 07 00060 SUB HWRD A = -HRWD 0247 00026 0 10 00045 JST MCPY COPY TEXT ACROSS 0248 00027 0 02 00067 LDA PGNA PAGE NUMBER BUFFER 0249 00030 0 04 00057 STA ADDR SET ADDRESS 0250 00031 0 02 00402 LDA =-3 2 WORDS FOR 'PAGE' ONE SPACE EACH SIDE 0251 00032 0 10 00045 JST MCPY COPY INTO HEADER 0252 00033 0 02 00064 LDA HPTR 1ST TWO CHARS OF PAGE NUM. GO HERE 0253 00034 0 06 00401 ADD =1 ADD ONE BECAUSE 0254 00035 0 04 00066 STA HPN2 2ND TWO CHARS OF PAGE NUM. GO HERE 0255 00036 0 02 00061 LDA LCNT LIST LINE COUNT/PAGE 0256 00037 0 06 00401 ADD =1 START BEYOND END OF PAGE 0257 00040 0 04 00070 STA LINE TO FORCE INITIAL NEW PAGE 0258 00041 0 02 00401 LDA =1 RESET CURRENT PAGE NUMBER 0259 00042 0 04 00062 STA PAGE TO ONE 0260 00043 0 12 00000 IRS O$LH SKIP PARAMETER 0261 00044 -0 01 00000 JMP* O$LH RETURN 0262 * 0263 00045 0 000000 MCPY DAC ** COPY MEMORY FROM 'ADDR' 0264 00046 0 04 00056 STA CNTR -VE NO. WORDS IN A ON ENTRY 0265 00047 -0 02 00057 MCPL LDA* ADDR PICK UP WORD 0266 00050 -0 04 00064 STA* HPTR MORE TO NEW LOCATION 0267 00051 0 12 00057 IRS ADDR STEP SOURCE ADDR 0268 00052 0 12 00064 IRS HPTR STEP DEST ADDR 0269 00053 0 12 00056 IRS CNTR STEP COUNTER 0270 00054 0 01 00047 JMP MCPL LOOP FOR NEXT WORD 0271 00055 -0 01 00045 JMP* MCPY ALL DONE - RETURN 0272 * 0273 * 0274 * VARIABLES AND CONSTANTS 0275 * 0276 00056 CNTR BSS 1 COUNTER 0277 00057 ADDR BSS 1 ADDRESS POINTER 0278 * 0279 * LIST HEADER WORDS 0280 00060 000060 HWRD DEC 48 WORDS IN HEADER (96 CHAR. DEFAULT) 0281 * 0282 * LIST LINE COUNT/PAGE 0283 00061 000062 LCNT DEC 50 LIST LINE COUNT/PAGE