O16-DPT9 rev A

* 0520-001-H002 (O16-DPT9) DRAWING NO. 41285751-001-01 PAGE 8

0351 001227 PLSW EQU ADIP+'1200 SOUTHWEST - PAPER DOWN, PEN LEFT 0352 001427 PEND EQU ADIP+'1400 PEN DOWN 0353 001627 PENU EQU ADIP+'1600 PEN UP 0354 * 0355 * SKS 0356 000127 PLNB EQU ADIP+'0100 SKIP IF PLOTTER NOT BUSY 0357 000227 PLLR EQU ADIP+'0200 SKIP UNLESS LIMIT REACHED 0358 000427 PLNI EQU ADIP+'0400 SKIP IF PLOTTER NOT INTERRUPTING 0359 * 0360 * 0361 * MAIN PROGRAM 0362 * 0363 * OUTPUT START HEADING MESSAGE TO ASR 0364 01000 0 02 04463 STRT LDA =-34 NUMBER OF WORDS TO BE OUTPUT 0365 01001 0 10 04030 JST OASR OUTPUT TO ASR 0366 01002 106612 OCT 106612,105212 CR/LF/LF/IF 01003 105212 0367 01004 151724 BCI 15,START O16-DPT9 41285751-001-01 01005 140722 01006 152240 01007 147661 01010 133255 01011 142320 01012 152271 01013 120264 01014 130662 01015 134265 01016 133665 01017 130655 01020 130260 01021 130655 01022 130261 0368 01023 106612 OCT 106612 CARRIAGE RETURN/LINE FEED 0369 01024 106612 OCT 106612 CARRIAGE RETURN/LINE FEED 0370 01025 144706 BCI 15,IF H316 SET SENSE SWITCH 1 NOW 01026 120310 01027 131661 01030 133240 01031 151705 01032 152240 01033 151705 01034 147323 01035 142640 01036 151727 01037 144724 01040 141710 01041 120261 01042 120316 01043 147727 0371 01044 0 02 04462 CHNG LDA =-1 NUMBER OF WORDS TO BE OUTPUT