HEADING:(READ.JY) RUNTIME JOYSTICK & READ HEAD ROUTINES COMBINED STEP 500 PRIN STRG 500 501 XFER DEV 500 REG 0 MASK 0 BRAN 0 502 XFER DEV 501 REG 0 MASK 0 BRAN 0 503 LET REG 500 = 00 504 GOSU STEP 514 505 XFER DEV 502 REG 0 MASK 0 BRAN 0 506 LET REG 500 = 1.00000E+00 507 GOSU STEP 514 508 LET REG 501 = 00 509 XFER DEV 503 REG 501 MASK 500 BRAN 0 510 IF REG 501 = 00 THEN GOTO STEP 502 511 XFER DEV 504 REG 0 MASK 0 BRAN 0 512 XFER DEV 505 REG 0 MASK 0 BRAN 0 513 GOTO STEP 528 514 XFER DEV 506 REG 502 MASK 501 BRAN 0 515 IF REG 502 = 00 THEN GOTO STEP 527 516 XFER DEV 506 REG 502 MASK 502 BRAN 0 517 IF REG 502 # 00 THEN GOTO STEP 523 518 IF REG 500 = 00 THEN GOTO STEP 521 519 NIBL DLTA 500 POS 500 DENS 500 BRAN 0 520 GOTO STEP 527 521 NIBL DLTA 501 POS 500 DENS 500 BRAN 0 522 GOTO STEP 527 523 IF REG 500 = 00 THEN GOTO STEP 526 524 NIBL DLTA 502 POS 501 DENS 500 BRAN 0 525 GOTO STEP 527 526 NIBL DLTA 503 POS 501 DENS 500 BRAN 0 527 EXIT 528 PRIN STRG 600 529 XFER DEV 600 REG 0 MASK 0 BRAN 0 530 XFER DEV 601 REG 0 MASK 0 BRAN 0 531 GOSU STEP 538 532 LET DLTA 600 = DUM 600 * DLTA 601 533 XFER DEV 602 REG 0 MASK 0 BRAN 0 534 GOSU STEP 538 535 LET POS 600 = DLTA 600 + ( DUM 600 * DLTA 602 ) 536 XFER DEV 605 REG 0 MASK 0 BRAN 0 537 GOTO STEP 544 538 LET REG 600 = 00 539 LET REG 601 = 00 540 XFER DEV 603 REG 600 MASK 0 BRAN 0 541 XFER DEV 604 REG 601 MASK 0 BRAN 0 542 LET DUM 600 = REG 600 * 010000 + REG 601 - 0100000 543 EXIT 544 REM " ANYTHING ELSE NEEDED IN SUBROUTINE GOES HERE " 545 PRIN "POS 600 = " POS 600 546 EXIT DENS 500 SPD 500 PWR 0 DEV 500 06002 501 06401 502 06402 503 06564 504 06561 505 06001 506 06444 600 06002 601 06401 602 06402 603 06412 604 06414 605 06001 REG 1 00 2 00 3 00 4 00 500 00 501 00 502 00 600 00 601 00 MASK 500 01000 501 01 502 02 POS 500 -3810, -3810 501 3810, 3810 600 0, 0 DUM 600 0.00000E+00 SPD 500 1.00000E+03, 1.00000E+03 STRG 500 _ 600 _ DLTA 500 0, -2 501 -2, 0 502 0, 2 503 2, 0 600 0, 0 601 1, 0 602 0, 1