O16-DPT9 rev B

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

0351 000227 PLWT EQU ADIP+'0200 WEST - PEN LEFT 0352 000427 PLNT EQU ADIP+'0400 NORTH - PAPER UP 0353 000527 PLNE EQU ADIP+'0500 NORTHEAST - PAPER UP. PEN RIGHT 0354 000627 PLNW EQU ADIP+'0600 NORTHWEST - PAPER UP. PEN LEFT 0355 001027 PLST EQU ADIP+'1000 SOUTH - PAPER DOWN 0356 001127 PLSE EQU ADIP+'1100 SOUTHEAST - PAPER DOWN, PEN RIGHT 0357 001227 PLSW EQU ADIP+'1200 SOUTHWEST - PAPER DOWN, PEN LEFT 0358 001427 PEND EQU ADIP+'1400 PEN DOWN 0359 001627 PENU EQU ADIP+'1600 PEN UP 0360 * 0361 * SKS 0362 000127 PLNB EQU ADIP+'0100 SKIP IF PLOTTER NOT BUSY 0363 000227 PLLR EQU ADIP+'0200 SKIP UNLESS LIMIT REACHED 0364 000427 PLNI EQU ADIP+'0400 SKIP IF PLOTTER NOT INTERRUPTING 0365 * 0366 * 0367 * MAIN PROGRAM 0368 * 0369 * OUTPUT START HEADING MESSAGE TO ASR 0370 01000 0 02 04513 STRT LDA =-34 NUMBER OF WORDS TO BE OUTPUT 0371 01001 0 10 04056 JST OASR OUTPUT TO ASR 0372 01002 106612 OCT 106612,105212 CR/LF/LF/IF 01003 105212 0373 01004 151724 BCI 15,START O16-DPT9 41285751-001-02 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 130262 0374 01023 106612 OCT 106612 CARRIAGE RETURN/LINE FEED 0375 01024 106612 OCT 106612 CARRIAGE RETURN/LINE FEED 0376 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