LP-IOL

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

0101 * USE 0102 * 0103 * INTERNAL MODULES 0104 * 0105 * NAME CALLING SEQUENCE CALLS ERRORS 0106 * 0107 * O$LH CALL O$LH NONE 0108 * DAC HEADING BUFFER 0109 * RETURN 0110 * 0111 * O$LA CALL O$LA O$LE NONE 0112 * DAC LINE BUFFER 0113 * RETURN 0114 * 0115 * O$LE CALL O$LE NONE 0116 * RETURN 0117 * 0118 * 0119 * EXTERNAL MODULES 0120 * 0121 * NONE 0122 * 0123 * 0124 * ERRORS 0125 * 0126 * NONE ARE REPORTED IN A STANDARDIZED MANNER. IF AN ALARM IS 0127 * DETECTED, UP TO TEN ATTEMPTS ARE MADE TO OUTPUT THE LINE, IF 0128 * THAT FAILS THE PROGRAM HALTS WITH 052525 IN THE A-REGISTER. 0129 * 0130 * 0131 * METHOD 0132 * 0133 * O$LH SETS UP A HEADING LINE WHICH IS STORED IN A BUFFER PROVIDED 0134 * BY THIS MODULE (O$LHB). THE DEFAULT NUMBER OF WORDS COPIED IS 0135 * 48 (96 CHARACTERS), HOWEVER THE O$LLHW MAY BE MODIFIED TO SET A 0136 * DIFFERENT NUMBER OF WORDS. NORMALLY, THE PAGE NUMBER WILL BE 0137 * PRINTED AFTER THE HEADING SUPPLIED BY O$LH AT THE TOP OF EACH 0138 * PAGE. IN ORDER TO AVOID A PARTIAL PAGE NUMBER, IF O$LLHW IS 0139 * GREATER THAN 55 (110 CHARACTERS) THEN IT IS MODIFIED TO THE 0140 * VALUE 60, AND 60 WORDS ARE COPIED INTO THE BUFFER TO BE PRINTED 0141 * AT THE TOP OF EACH PAGE WITH NO PAGE NUMBER. 0142 * 0143 * O$LA PRINTS A LINE. IF THE CURRENT PAGE IS FULL WHEN THIS ROUTINE 0144 * IS CALLED THEN O$LE IS AUTOMATICALLY CALLED TO MOVE TO THE START 0145 * OF THE NEXT PAGE. THE NUMBER OF LINES PRINTED PER PAGE IS 0146 * INDICATED BY O$LLLC. THIS VALUE MUST BE SET CONSIDERING THE SIZE 0147 * OF THE PAPER FORM AND THE PLACEMENT OF THE VERTICAL TAB STOPS. 0148 * 0149 * O$LE EJECTS TO THE START OF THE NEXT PAGE. THE HEADING IS PRINTED 0150 * WITH THE PAGE NUMBER, AND THE PAGE NUMBER IS INCREMENTED. THE