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 9

0401 00253 0 01 00261 JMP EXIT EOUAL. MOVE COMPLETED 0402 00254 0 12 00000 IRS 0 TALLY INDEX 0403 00255 0 01 00226 JMP OUTP GO FOR NEXT MOVE 0404 00256 34 0227 SKS SKLM SKIP IF LIMIT NOT REACHED 0405 00257 0 01 00261 JMP EXIT LIMIT REACHED. MOVE COMPLETE 0406 00260 0 01 00225 JMP TENT GO FOR NEXT MOVE 0407 * 0408 00261 0 02 00456 EXIT LDA IC PEN POSITION INDICATOR 0409 00262 101400 SMI SKIP IF END OF PLOT REACHED 0410 00263 0 01 00272 JMP PLUS CONTINUE WITH PLOT 0411 * 0412 * END OF PLOT. SET ALL PARAMETERS TO ZERO 0413 00264 140040 TERM CRA END OF PLOT 0414 00265 0 35 00530 LDX =-10 INDEX REGISTER=-10 0415 00266 1 04 00456 L2 STA XFLT+10,1 ZERO IN PARAMETERS 0416 00267 0 12 00000 IRS 0 TALLY INDEX REGISTER 0417 00270 0 01 00266 JMP L2 RETURN FOR NEXT PARAMETER 0418 00271 0 01 00276 JMP PLSA FINISH PLOT ROUTINE 0419 * 0420 * OBTAIN NEW PEN POSITION COORDINATES 0421 00272 0 02 00471 PLUS LDA IX FIXED POINT VALUE OF X 0422 00273 0 04 00450 STA IPNX NEW X POSITION 0423 00274 0 02 00472 LDA IY FIXED POINT VALUE OF Y 0424 00275 0 04 00451 STA IPNY NEW Y POSITION 0425 * 0426 * FINISH PLOT ROUTINE 0427 00276 0 12 00000 PLSA IRS O$XP INCREMENT RETURN ADDRESS 0428 00277 0 12 00000 IRS O$XP INCREMENT RETURN ADDRESS 0429 00300 0 35 00437 LDX SAVE RESTORE INDEX 0430 00301 -0 01 00000 JMP* O$XP EXIT 0431 * 0432 * 0433 * PROVIDE OFFSET DISTANCES AND SCALE FACTORS 0434 * 0435 00302 0 000000 O$XO DAC ** PROVIDE OFFSET DISTANCES AND SCALE FACTORS 0436 00303 0 15 00440 STX SAV1 SAVE INDEX 0437 00304 -0 02 00302 LDA* O$XO ADDRESS OF XMIN 0438 00305 0 12 00302 IRS O$XO ADDRESS OF NEXT PARAMETER 0439 00306 0 10 00421 JST PCUP PICK UP XMIN 0440 00307 0 04 00461 STA XMIN X FROM OFFSET ENTRY - WORD A 0441 00310 000201 IAB 0442 00311 0 04 00462 STA XMIN+1 X FROM OFFSET ENTRY - WORD B 0443 00312 -0 02 00302 LDA* O$XO ADDRESS OF XFAC 0444 00313 0 12 00302 IRS O$XO ADDRESS OF NEXT PARAMETER 0445 00314 0 10 00421 JST PCUP PICK UP XFAC 0446 00315 0 04 00465 STA XFAC SCALE FACTOR FOR X - WORD A 0447 00316 000201 IAB 0448 00317 0 04 00466 STA XFAC+1 SCALE FACTOR FOR X - WORD B 0449 * 0450 00320 -0 02 00302 LDA* O$XO ADDRESS OF YMIN