O$XP, PLOT, O$XO, OFFSET, O$XF, FACTOR, O$XW, WHERE, O$XG, ORIGIN

* 0078-001-H908 (O$XP) DRAWING NO. 41285371-301-02 PAGE 4

0151 * TO WITHIN 10 MILLIMETRES OF THE EDGE OF THE PAPER. THIS IS TAKEN 0152 * AS THE ORIGIN (0,0). 0153 * 0154 * THESE ROUTINES ALSO CALL THE FOLLOWING MATH LIBRARY ROUTINES: S$22, 0155 * D$22, M$22, C$21 AND H$22. 0156 * 0157 * 0158 ************************************************************************ 0159 * 0160 * 0161 SUBR O$XP PLOT A LINE 0162 SUBR PLOT,O$XP PLOT A LINE 0163 SUBR O$XO PROVIDE OFFSET DISTANCES AND SCALE FACTORS 0164 SUBR OFFSET,O$XO PROVIDE OFFSET DISTANCES AND SCALE FACTORS 0165 SUBR O$XF PROVIDE SCALE VALUE FOR BOTH AXES 0166 SUBR FACTOR,O$XF PROVIDE SCALE VALUE FOR BOTH AXES 0167 SUBR O$XW REQUEST PRESENT PEN POSITION 0168 SUBR WHERE,O$XW REQUEST PRESENT PEN POSITION 0169 SUBR O$XG SET PEN AT ORIGIN 0170 SUBR ORIGIN,O$XG SET PEN AT ORIGIN 0171 * 0172 * 0173 CF5 H316 OR DDP-516 0174 REL RELOCATABLE 0175 * 0176 * 0177 * PLOTTER DEVICE CODES 0178 * 0179 * OCP 0180 000027 DADP EQU '0027 DEVICE ADDRESS OF DIGITAL PLOTTER 0181 001427 PNDN EQU DADP+'1400 PUT PEN DOWN 0182 001627 PNUP EQU DADP+'1600 PUT PEN UP 0183 * 0184 * SKS 0185 000127 SKNB EQU DADP+'100 SKIP IF NOT BUSY 0186 000227 SKLM EQU DADP+'200 SKIP IF LIMIT OF TRAVEL NOT REACHED 0187 * 0188 * 0189 * PLOT A LINE 0190 * 0191 00000 0 000000 O$XP DAC ** PLOT A LINE 0192 00001 0 15 00437 STX SAVE SAVE INDEX 0193 00002 -0 02 00000 LDA* O$XP ADDRESS OF X 0194 00003 0 12 00000 IRS O$XP ADDRESS OF NEXT PARAMETER 0195 00004 0 10 00421 JST PCUP PICK UP X 0196 00005 0 04 00444 STA XFLT FLOATING POINT X VALUE - WORD A 0197 00006 0 04 00452 STA XFX FLOATING POINT X POSITION - WORD A 0198 00007 000201 IAB 0199 00010 0 04 00445 STA XFLT+1 FLOATING POINT X VALUE - WORD B 0200 00011 0 04 00453 STA XFX+1 FLOATING POINT X POSITION - WORD B