Previous File Previous Page Single Page Next Page Next File

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

0301 * CALCULATE CHANGE IN PEN POSITION FROM PREVIOUS POSITION 0302 * CHANGE IN X POSITION IDLX=ABS(IX-IPNX) 0303 00133 0 02 00471 LDA IX FIXED POINT VALUE OF X 0304 00134 0 07 00450 SUB IPNX PREVIOUS PEN POSITION 0305 00135 0 04 00474 STA DLTX DELTA X 0306 00136 100400 SPL IS IT NEGATIVE? 0307 00137 140407 TCA YES, MAKE IT POSITIVE 0308 00140 0 04 00476 STA IDLX ABSOLUTE DELTA X 0309 * 0310 * CHANGE IN Y POSITION IDLY=ABS(IY-IPNY) 0311 00141 0 02 00472 LDA IY FIXED POINT VALUE OF Y 0312 00142 0 07 00451 SUB IPNY PREVIOUS PEN POSITION 0313 00143 0 04 00475 STA DLTY DELTA Y 0314 00144 100400 SPL IS IT NEGATIVE? 0315 00145 140407 TCA YES, MAKE IT POSITIVE 0316 00146 0 04 00477 STA IDLY ABSOLUTE DELTA Y 0317 * 0318 * TEST FOR DIRECTION AND METHOD OF PEN MOTION 0319 * IS THERE MOTION IN THE X DIRECTION? 0320 00147 0 02 00474 LDA DLTX DELTA X 0321 00150 101040 SNZ IS IT ZERO? 0322 00151 0 01 00156 JMP XPL3 YES, GO STORE X DIRECTION 0323 00152 101400 SMI NO, IS IT NEGATIVE? 0324 00153 0 01 00160 JMP XPL2 NO, MUST BE POSITIVE 0325 00154 0 02 00534 LDA ='200 YES, NEGATIVE X MOTION 0326 00155 0 01 00161 JMP XPLX GO STORE X DIRECTION 0327 00156 140040 XPL3 CRA NO X MOTION 0328 00157 0 01 00161 JMP XPLX GO STORE X DIRECTION 0329 00160 0 02 00533 XPL2 LDA ='100 POSITIVE X MOTION 0330 00161 0 04 00500 XPLX STA XPLT STORE X DIRECTION 0331 * 0332 * IS THERE MOTION IN THE Y DIRECTION? 0333 00162 0 02 00475 XPLA LDA DLTY DELTA Y 0334 00163 101040 SNZ IS IT ZERO? 0335 00164 0 01 00171 JMP YPL3 YES, GO STORE Y DIRECTION 0336 00165 101400 SMI NO, IS IT NEGATIVE 0337 00166 0 01 00173 JMP YPL1 NO, MUST BE POSITIVE 0338 00167 0 02 00532 LDA ='1000 YES. NEGATIVE Y MOTION 0339 00170 0 01 00174 JMP YPLY GO STORE Y DIRECTION 0340 00171 140040 YPL3 CRA NO Y MOTION 0341 00172 0 01 00174 JMP YPLY GO STORE Y DIRECTION 0342 00173 0 02 00531 YPL1 LDA ='400 POSITIVE Y MOTION 0343 00174 0 04 00501 YPLY STA YPLT STORE Y DIRECTION 0344 * 0345 * TEST FOR A COMBINATION MOVE YPLT+XPLT=XYPL 0346 00175 0 06 00500 YPLA ADD XPLT X DIRECTION 0347 00176 0 04 00502 STA XYPL COMBINATION MOVE 0348 00177 101040 SNZ IS IT ZERO 0349 00200 0 01 00261 JMP EXIT YES, NO MOTION 0350 00201 0 02 00476 LDA IDLX ABSOLUTE DELTA X
Previous File Previous Page Single Page Next Page Next File