Previous File Previous Page Single Page Next Page Next File

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

0351 00202 0 11 00477 CAS IDLY COMPARE WITH ABSOLUTE DELTA Y 0352 00203 101000 NOP IDLX>IDLY, NO ACTION 0353 00204 0 01 00214 JMP NORM IDLX=IDLY 0354 00205 000201 IAB IDLX<IDLY, PUT X VALUE IN B-REGISTER 0355 * 0356 * MAKE DECISION ON TYPE OF MOVE 0357 * SWAP X AND Y VALUES WITH EACH OTHER 0358 00206 0 02 00477 LDA IDLY DELTA Y 0359 00207 0 04 00476 STA IDLX PUT Y VALUE IN PLACE OF X VALUE 0360 00210 000201 IAB BRING BACK X VALUE 0361 00211 0 04 00477 STA IDLY PUT IT IN PLACE OF Y VALUE 0362 00212 0 02 00501 LDA YPLT Y DIRECTION 0363 00213 0 04 00500 STA XPLT PUT IT IN PLACE OF X DIRECTION 0364 * 0365 * EQUAL X AND Y MOVE 0366 00214 0 02 00476 NORM LDA IDLX ABSOLUTE DELTA X 0367 00215 0415 77 ALS 1 MULTIPLY BY TWO 0368 00216 0 04 00503 STA TDX TDX=IDLX*2 0369 00217 0 02 00477 LDA IDLY ABSOLUTE DELTA Y 0370 00220 0415 77 ALS 1 MULTIPLY BY TWO 0371 00221 0 04 00504 STA TDY TDY=IDLY*2 0372 00222 140040 CRA CLEAR A-REGISTER 0373 00223 0 04 00473 STA TEMP TEMPORARY 0374 00224 0 04 00505 STA N NUMBER OF STEPS 0375 * 0376 00225 0 35 00530 TENT LDX =-10 INDEX REGISTER:-10 0377 00226 0 02 00473 OUTP LDA TEMP TEMPORARY 0378 00227 0 06 00504 ADD TDY ADD (2*DELTA Y) 0379 00230 0 11 00476 CAS IDLX COMPARE WITH DELTA X 0380 00231 0 01 00234 JMP L1 DELTA X<TDY 0381 00232 0 01 00240 JMP BASE DELTA X=TDY, USE X DIRECTION 0382 00233 0 01 00240 JMP BASE DELTA X>TDY, USE X DIRECTION 0383 00234 0 07 00503 L1 SUB TDX SUBTRACT TDX FROM TDY 0384 00235 0 04 00473 STA TEMP TEMPORARY 0385 00236 0 02 00502 LDA XYPL USE COMBINATION MOVE 0386 00237 0 01 00242 JMP EXEC GO EXECUTE COMBINATION MOVE 0387 * 0388 00240 0 04 00473 BASE STA TEMP PUT TDY IN TEMPORARY 0389 00241 0 02 00500 LDA XPLT AND PLOT X VALUE 0390 * 0391 * PLOT THE MOVE 0392 00242 0 06 00506 EXEC ADD OCP BASIC OCP INSTRUCTION 0393 00243 0 04 00246 STA EXCM COMPUTED OCP 0394 00244 34 0127 SKS SKNB SKIP IF NOT BUSY 0395 00245 0 01 00244 JMP *-1 WAIT UNTIL NOT BUSY 0396 00246 0 00 00000 EXCM *** ** COMPUTED OCP 0397 00247 0 12 00505 IRS N TALLY NUMBER OF STEPS 0398 00250 0 02 00505 LDA N NUMBER OF STEPS 0399 00251 0 11 00476 CAS IDLX DELTA X 0400 00252 101000 NOP N>IDLX. NO ACTION
Previous File Previous Page Single Page Next Page Next File