O16-DPT9 rev B

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

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