O16-DPT9 rev A

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

1961 03756 34 0427 DP63 SKS PLNI SKIP IF PLOTTER NOT INTERRUPTING 1962 03757 0 01 03764 JMP ZIN0 PLOTTER INTERRUPTING, OK 1963 03760 0 10 04150 JST ERRR ERROR ROUTINE 1964 03761 101000 NOP 1965 03762 144716 BCI 2,INCZ INTERRUPT NOT CAUSED BY PLOTTER (Z-AXIS) 03763 141732 1966 03764 0 12 03730 ZIN0 IRS INTZ UPDATE RETURN ADDRESS 1967 03765 34 0127 DP64 SKS PLNB SKIP IF PLOTTER NOT BUSY 1968 03766 0 10 04150 JST ERRR ERROR ROUTINE 1969 03767 -0 01 03730 JMP* INTZ EXIT FROM SUBROUTINE 1970 03770 141301 BCI 2,BAIZ P REMAINING BUSY AFTER INT (Z-AXIS) 03771 144732 1971 * 1972 * HALF REGAB AND ADD DOUBLE LENGTH COUNTER 1973 03772 0 000000 HADD DAC ** 1974 03773 000201 IAB INTERCHANGE REGS A AND B 1975 03774 140200 RCB ZERO C BIT 1976 03775 141206 AOA ADD ONE 1977 03776 140100 SSP ZERO MS BIT OF REG A 1978 03777 000201 IAB INTERCHANGE REGS A AND B 1979 04000 141216 ACA ADD CARRY BIT 1980 04001 0401 77 LRS 1 REGAB = ROUNDED VALUE 1981 04002 0 06 04321 ADD CNTB ADD MS HALF OF COUNTER 1982 04003 000201 IAB INTERCHANGE REGS A AND B 1983 04004 140200 RCB ZERO C BIT 1984 04005 0 06 04320 ADD CNTA ADD LS HALF OF COUNTER 1985 04006 140100 SSP ZERO MS BIT OF REGA 1986 04007 000201 IAB INTERCHANGE REGS A AND B 1987 04010 141216 ACA ADD CARRY BIT 1988 04011 -0 01 03772 JMP* HADD EXIT FROM SUBROUTINE 1989 * 1990 * CALCULATE [(0.4142*M) - INTEGER]*(2**13) 1991 04012 0 000000 CALC DAC ** CALCULATE [(0.4142*M) - INTEGER]*(2**13) 1992 04013 0 02 04336 LDA MRKR MARKER (M) 1993 04014 0414 77 LGL 1 REGA = 2M 1994 04015 0 06 04336 ADD MRKR REGA = 3M 1995 04016 0414 76 LGL 2 REGA = 12M 1996 04017 0 06 04336 ADD MRKR REGA = 13M 1997 04020 0414 76 LGL 2 REGA = 52M 1998 04021 0 06 04336 ADD MRKR REGA = 53M 1999 04022 000201 IAB REGA = JUNK + REGB = 53M 2000 04023 0410 72 LLL 6 REGAB = 3392M (MS BITS OF REGA = JUNK) 2001 04024 000201 IAB REGA = LS HALF OF 3392M 2002 04025 0 06 04336 ADD MRKR REGA = LS HALF OF 3393M 2003 04026 0 03 04370 ANA ='17777 REGA = [(0.4142*M) - INTEGER]*(2**13) 2004 04027 -0 01 04012 JMP* CALC EXIT FROM SUBROUTINE 2005 * 2006 * OUTPUT TO AUTOMATIC SEND-RECEIVE SET 2007 04030 0 000000 OASR DAC ** OUTPUT TO ASR 2008 04031 0 04 04324 STA CNTR WORD COUNTER