O16-DPT9 rev B

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

1960 03750 0 12 03714 ZIN0 IRS INTZ UPDATE RETURN ADDRESS 1961 03751 34 0127 DP64 SKS PLNB SKIP IF PLOTTER NOT BUSY 1962 03752 0 10 04176 JST ERRR ERROR ROUTINE 1963 03753 -0 01 03714 JMP* INTZ EXIT FROM SUBROUTINE 1964 03754 141301 BCI 2,BAIZ P REMAINING BUSY AFTER INT (Z-AXIS) 03755 144732 1965 * 1966 * HALF REGAB AND ADD DOUBLE LENGTH COUNTER 1967 03756 0 000000 HADD DAC ** 1968 03757 000201 IAB INTERCHANGE REGS A AND B 1969 03760 140200 RCB ZERO C BIT 1970 03761 141206 AOA ADD ONE 1971 03762 140100 SSP ZERO MS BIT OF REG A 1972 03763 000201 IAB INTERCHANGE REGS A AND B 1973 03764 141216 ACA ADD CARRY BIT 1974 03765 0401 77 LRS 1 REGAB = ROUNDED VALUE 1975 03766 0 06 04347 ADD CNTB ADD MS HALF OF COUNTER 1976 03767 000201 IAB INTERCHANGE REGS A AND B 1977 03770 140200 RCB ZERO C BIT 1978 03771 0 06 04346 ADD CNTA ADD LS HALF OF COUNTER 1979 03772 140100 SSP ZERO MS BIT OF REGA 1980 03773 000201 IAB INTERCHANGE REGS A AND B 1981 03774 141216 ACA ADD CARRY BIT 1982 03775 -0 01 03756 JMP* HADD EXIT FROM SUBROUTINE 1983 * 1984 * INITIALIZE FOR CALC 1985 03776 0 000000 ICLC DAC ** 1986 03777 140040 CRA 1987 04000 0 04 04412 STA SSTP SSTP = NO. OF SIDE-STEPS 1988 04001 141206 AOA 1989 04002 0 04 04364 STA MRKR MRKR = COUNT OF STEPS 1990 04003 -0 01 03776 JMP* ICLC 1991 * 1992 * CALCULATE [(0.4142*M) - SSTP]*(2**13) 1993 04004 0 000000 CALC DAC ** CALCULATE [(0.4142*M) - SSTP]*(2**13) 1994 04005 0 02 04412 LDA SSTP SIDE-STEPS 1995 04006 000201 IAB TO LOWER BITS 1996 04007 140040 CRA CLEAR UPPER BITS 1997 04010 0411 63 LLS 13 MULTIPLY BY (2**13) 1998 04011 0 04 04413 STA SSHI 1999 04012 000201 IAB 2000 04013 0 04 04414 STA SSLO 2001 * 2002 04014 0 02 04364 LDA MRKR MARKER (M) 2003 04015 0414 77 LGL 1 REGA = 2M 2004 04016 0 06 04364 ADD MRKR REGA = 3M 2005 04017 0414 76 LGL 2 REGA = 12M 2006 04020 0 06 04364 ADD MRKR REGA = 13M 2007 04021 0414 76 LGL 2 REGA = 52M 2008 04022 0 06 04364 ADD MRKR REGA = 53M