O16-DPT9 rev A

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

03506 142316 1778 * 1779 * MOVE PEN UP (WITHOUT INTERRUPT) 1780 03507 0 000000 MPUP DAC ** MOVE PEN UP (WITHOUT INT) 1781 03510 14 1627 DP38 OCP PENU PEN UP 1782 03511 34 0127 DP39 SKS PLNB SKIP IF PLOTTER NOT BUSY 1783 03512 0 01 03517 JMP PUP1 PLOTTER BUSY, OK 1784 03513 0 10 04150 JST ERRR ERROR ROUTINE 1785 03514 101000 NOP 1786 03515 147302 BCI 2,NBUP PEN NOT BUSY IMMEDIATELY AFTER MOVING UP 03516 152720 1787 03517 101020 PUP1 SS1 TEST FOR SENSE SWITCH 1 SET 1788 03520 0 01 03523 JMP D510 NOT SET, DDP-516 BEING USED 1789 * SET, H316 BEING USED 1790 03521 0 02 04374 LDA =-2604 2604 = (25*1000)/(6*1.6) 1791 03522 100000 SKP 1792 * 1793 03523 0 02 04373 D510 LDA =-4845 4845 = (25*1000)/(6*0.86) 1794 03524 34 0127 PUP0 SKS PLNB SKIP IF PLOTTER NOT BUSY 1795 03525 100000 SKP PLOTTER BUSY, DELAY LOOP 1796 03526 -0 01 03507 JMP* MPUP EXIT FROM SUBROUTINE 1797 03527 141206 AOA 1798 03530 101040 SNZ TEST FOR COMPLETION OF 25 MS DELAY LOOP 1799 03531 0 10 04150 JST ERRR ERROR ROUTINE 1800 03532 0 01 03524 JMP PUP0 DELAY LOOP OF 25 MILLI-SECONDS 1801 03533 141323 BCI 2,BSUP PEN BUSY 25 MS AFTER MOVING UP 03534 152720 1802 * 1803 * MOVE PLOTTER EAST ONE STEP (WITH INTERRUPT) 1804 03535 0 000000 MIET DAC ** MOVE PLOTTER EAST (WITH INT) 1805 03536 14 0127 DP41 OCP PLET EAST - CARRIAGE RIGHT 1806 03537 34 0127 DP42 SKS PLNB SKIP IF PLOTTER NOT BUSY 1807 03540 0 10 03655 JST INTD 1808 03541 0 10 04150 JST ERRR ERROR ROUTINE 1809 03542 -0 01 03535 JMP* MIET EXIT FROM SUBROUTINE 1810 03543 147302 BCI 2,NBET P NOT BUSY IMMEDIATELY AFTER MOVING EAST 03544 142724 1811 * 1812 * MOVE PLOTTER WEST ONE STEP (WITH INTERRUPT) 1813 03545 0 000000 MIWT DAC ** MOVE PLOTTER WEST (WITH INT) 1814 03546 14 0227 DP43 OCP PLWT WEST - CARRIAGE LEFT 1815 03547 34 0127 DP44 SKS PLNB SKIP IF PLOTTER NOT BUSY 1816 03550 0 10 03655 JST INTD 1817 03551 0 10 04150 JST ERRR ERROR ROUTINE 1818 03552 -0 01 03545 JMP* MIWT EXIT FROM SUBROUTINE 1819 03553 147302 BCI 2,NBWT P NOT BUSY IMMEDIATELY AFTER MOVING WEST 03554 153724 1820 * 1821 * MOVE PLOTTER NORTH ONE STEP (WITH INTERRUPT) 1822 03555 0 000000 MINT DAC ** MOVE PLOTTER NORTH (WITH INT)