Previous File Previous Page Single Page Next Page Next File

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

0184 * 0185 * 0186 SUBR O$LH LINE PRINTER HEADER INITIALIZE 0187 SUBR O$LA LINE PRINTER LIST A LINE 0188 SUBR O$LE LINE PRINTER EJECT 0189 * 0190 SUBR O$LLHB,HEAD LINE PRINTER LIST HEADING BUFFER 0191 SUBR O$LLHW,HWRD LINE PRINTER LIST HEADING BUFFER NO. OF WORDS 0192 SUBR O$LLPN,PAGE LINE PRINTER LIST PAGE NUMBER 0193 SUBR O$LLLC,PAGE LINE PRINTER LIST LINE COUNT/PAGE 0194 SUBR O$LLLN,PAGE LINE PRINTER LIST LINE NUMBER 0195 * 0196 * 0197 CF5 H316 AND DDP-516 0198 REL RELOCATABLE 0199 * 0200 * 0201 * LINE PRINTER DEVICE CODES 0202 * 0203 * LINE PRINTER ADDRESS 0204 000003 LPTA EQU '3 LINE PRINTER ADDRESS 0205 * 0206 * OCP 0207 000103 LPSS EQU LPTA+'0100 LINE PRINTER START SCAN 0208 000203 LPES EQU LPTA+'0200 LINE PRINTER END SCAN 0209 001303 LPFF EQU LPTA+'1300 LINE PRINTER FORM FEED 0210 001603 LPVT EQU LPTA+'1600 LINE PRINTER SKIP TO VERTICAL TAB 0211 001703 LPLN EQU LPTA+'1700 LINE PRINTER STEP ONE LINE 0212 * 0213 * SKS 0214 000003 LPSR EQU LPTA+'0000 LINE PRINTER SKIP IF READY 0215 000203 LPNB EQU LPTA+'0200 LINE PRINTER SKIP IF NOT BUSY 0216 000303 LPNA EQU LPTA+'0300 LINE PRINTER SKIP IF NO ALARM 0217 000403 LPNP EQU LPTA+'0400 LINE PRINTER SKIP IF NOT SHIFTING PAPER 0218 * 0219 * OTA 0220 000003 LPCP EQU LPTA+'0000 LINE PRINTER OUTPUT CHARACTER PAIR 0221 * 0222 * 0223 00000 0 000000 O$LH DAC ** HEADER INITIALIZE 0224 00001 -0 02 00000 LDA* O$LH PICK UP BUFFER POINTER 0225 00002 0 04 00057 STA ADDR AND SAVE 0226 * 0227 00003 0 02 00065 LDA HDRA HEADER BUFFER TO BE INITIALIZED 0228 00004 0 04 00064 STA HPTR PLACE IN POINTER 0229 00005 0 02 00406 LDA =-66 -VE SIZE OF BUFFER 0230 00006 0 04 00056 STA CNTR INITIALIZE COUNTER 0231 00007 0 02 00405 LDA =A TWO SPACES 0232 00010 -0 04 00064 CLLP STA* HPTR STORE IN BUFFER 0233 00011 0 12 00064 IRS HPTR STEP POINTER
Previous File Previous Page Single Page Next Page Next File