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 11

0501 * 0502 00371 0 02 00511 LDA FACT+1 SCALE VALUE - WORD B 0503 00372 000201 IAB 0504 00373 0 02 00510 LDA FACT SCALE VALUE - WORD A 0505 00374 0 10 00426 JST STOR STORE SCALE VALUE 0506 00375 0 35 00442 LDX SAV3 RESTORE INDEX 0507 00376 0 12 00357 IRS O$XW RETURN ADDRESS 0508 00377 -0 01 00357 JMP* O$XW EXIT 0509 * 0510 * 0511 * SET PEN AT ORIGIN 0512 * 0513 00400 0 000000 O$XG DAC ** SET PEN AT ORIGIN 0514 00401 140040 CRA CLEAR A-REGISTER 0515 00402 0 35 00530 LDX =-10 INDEX REGISTER=-10 0516 00403 1 04 00456 LABL STA XFLT+10,1 PUT ZERO IN PARAMETER LOCATIONS 0517 00404 0 12 00000 IRS 0 TALLY INDEX REGISTER 0518 00405 0 01 00403 JMP LABL RETURN FOR NEXT PARAMETER 0519 * 0520 * MOVE PEN AS FAR WEST AS POSSIBLE 0521 00406 0 10 00000 JST O$XP PLOT A LINE 0522 00407 0 000516 DAC XPNW X CO-ORDINATE FOR MOVE WEST 0523 00410 0 000520 DAC YPNW Y CO-ORDINATE FOR MOVE WEST 0524 00411 0 000526 DAC THRE PEN UP 0525 00412 000000 OCT 0 END OF PARAMETER LIST 0526 * 0527 * MOVE PEN EAST TO WITHIN 10 MILLIMETRES OF PAPER EDGE 0528 00413 0 10 00000 JST O$XP PLOT A LINES 0529 00414 0 000522 DAC XPNE X CO-ORDINATE FOR MOVE EAST 0530 00415 0 000524 DAC YPNE Y CO-ORDINATE FOR MOVE EAST 0531 00416 0 000527 DAC MTHR PEN UP AND TERMINATE PLOT 0532 00417 000000 OCT 0 END OF PARAMETER LIST 0533 00420 -0 01 00400 JMP* O$XG EXIT 0534 * 0535 * 0536 * SUBROUTINES 0537 * 0538 * PICK UP A VARIABLE 0539 00421 0 000000 PCUP DAC ** PICK UP A VARIABLE 0540 00422 0 04 00424 STA L3 ADDRESS OF VARIABLE 0541 00423 0 10 00000 CALL L$22 SINGLE PRECISION LOAD 0542 00424 0 00 00000 L3 *** ** ADDRESS OF VARIABLE 0543 00425 -0 01 00421 JMP* PCUP EXIT 0544 * 0545 * STORE A VARIABLE 0546 00426 0 000000 STOR DAC ** STORE A VARIABLE 0547 00427 0 04 00443 STA SAV4 SAVE INDEX 0548 00430 -0 02 00357 LDA* O$XW ADDRESS OF PEN POSITIONING ENTRY 0549 00431 0 12 00357 IRS O$XW NEXT PEN POSITIONING ENTRY ADDRESS 0550 00432 0 04 00435 STA L4 STORE ADDRESS