HEADING:(DRIFT) DRIFT TEST ROUTINE >MASK OR NO MASK< 1/23/87 GF STEP 4 GOSU STEP 500 500 LET REG 50 = 01 501 PRIN STRG 3 "DRIFT TEST ON" STRG 3 502 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 503 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 504 EXIT 505 GOSU STEP 545 01 506 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 507 LET J = I + 3.00000E+02 508 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 509 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 510 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 511 PRIN BIT 11 "R" I " NOM" J "=" NOM J 512 EXIT 515 LET M = DUM 811 516 GOSU STEP 544 DUM 804 517 GOSU STEP 529 01 518 GOSU STEP 523 02 519 PRIN "COMPLETE" STRG 3 520 LET REG 50 = 00 521 GOSU STEP 545 05 522 EXIT 523 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 524 READ TTY:;%1.0 THEN QUIT 525 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 526 PRIN "DRIFT IS BASED ON 120 SECONDS" 527 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 528 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 529 FOR N = 01 TO M 530 GOSU STEP 540 531 IF NOM J < 00 THEN GOTO STEP 537 532 IF VALU 1 = 02 THEN GOTO STEP 536 533 GOSU STEP 545 DUM 805 534 PRIN BIT 11 "TESTING R" I 535 TEST UNK 300 CODE 10 TOL I ACC 537 REJ 537 REG 0 536 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 537 NEXT N 538 EXIT 540 IF NOM N < 00 THEN LET N = - NOM N 541 LET I = N 542 LET J = I + 3.00000E+02 543 EXIT 544 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 545 LET L = VALU 1 * 2.50000E+03 546 FOR K = 01 TO L 547 NEXT K 548 EXIT UNK 300 NOM J SCAN I MAT 0 FUNC 0 DUM I REG 50 00 CODE 10 3, 8, 200, 0 DUM 800 0.00000E+00 801 0.00000E+00 802 0.00000E+00 803 0.00000E+00 804 0.00000E+00 805 0.00000E+00 806 0.00000E+00 807 0.00000E+00 808 0.00000E+00 809 8.00000E+01 810 -8.00000E+01 811 0.00000E+00 812 0.00000E+00 813 0.00000E+00