PROGRAM 1   804 BYTES

   SYNC FREE-RUN
   DPY-PUT PROBE @ U15-11
   DPY-+-PRESS CONT#
   STOP
   READ PROBE
   WRITE @ 10000 = FF
   READ PROBE
   IF REG0 AND 4000000 > 0 GOTO 1
   DPY-INCORRECT-SUSPECT U9 OR U15
   GOTO 9
1: LABEL 1
   DPY-SIGNAL CORRECT
   DPY-+-PRESS CONT#
   STOP
   DPY-LIGHT TEST
   DPY-+-PRESS CONT#
   STOP
   READ PROBE
   DPY-PLACE PROBE @ U15-6
   DPY-+-PRESS CONT#
   STOP
   WRITE @ 10000 = FB
   READ PROBE
   IF REG0 AND 4000000 > 0 GOTO 2
   DPY-INCORRECT--REPLACE U15
   GOTO 9
2: LABEL 2
   DPY-SIGNAL CORRECT
   DPY-+-PRESS CONT#
   STOP
   DPY-IF LIGHT IS OFF REPLACE Q9
   STOP
   READ PROBE
   DPY-PLACE PROBE @ U15-5
   DPY-+-PRESS CONT
   STOP
   WRITE @ 10000 = FD
   READ PROBE
   IF REG0 AND 4000000 > 0 GOTO 3
   DPY-INCORRECT-REPLACE U15
   GOTO 9
3: LABEL 3
   DPY-SIGNAL CORRECT
   DPY-+-PRESS CONT#
   STOP
   DPY-IF LIGHT OFF REPLACE Q11
   STOP
   READ PROBE
   DPY-PLACE PROBE @ U15-2
   DPY-+-PRESS CONT#
   STOP
   WRITE @ 10000 = FE
   READ PROBE
   IF REG0 AND 4000000 > 0 GOTO 4
   DPY-INCORRECT REPLACE U15
   GOTO 9
4: LABEL 4
   DPY-SIGNAL CORRECT
   DPY-+-PRESS CONT#
   STOP
   DPY-IF LIGHT OFF REPLACE Q10
   STOP
   READ PROBE
   DPY-PLACE PROBE @ U15-19
   DPY-+-PRESS CONT#
   STOP
   WRITE @ 10000 = 7F
   READ PROBE
   IF REG0 AND 4000000 > 0 GOTO 5
   DPY-INCORRECT REPLACE U15
   GOTO 9
5: LABEL 5
   DPY-SIGNAL CORRECT-PRESS CONT#
   STOP
   DPY-CLAW OPEN SUSPECT Q5
   STOP
   WRITE @ 10000 = FF
   EXECUTE PROGRAM 2
9: LABEL 9
   DPY-TEST COMPLETE

PROGRAM 2   309 BYTES

   SYNC FREE-RUN
   READ PROBE
   DPY-PLACE PROBE @ U16-11
   DPY-+-PRESS CONT#
   STOP
   WRITE @ 10010 = FF
   READ PROBE
   IF REG0 AND 4000000 > 0 GOTO 1
   DPY-INCORRECT SUSPECT U9 OR U16
   STOP
   GOTO 3
1: LABEL 1
   DPY-SIGNAL CORRECT
   DPY-+-PRESS CONT#
   STOP
   DPY-LED DISPLAY TEST
   DPY-+-PRESS CONT#
   STOP
   DPY-WILL DECREMENT 09-01
   DPY-+-PRESS CONT#
   STOP
   WRITE @ 10010 = 00
   REG1 = A9
2: LABEL 2
   WRITE @ 10010 = REG1 REPT REPT REPT REPT REPT REPT REPT REPT REPT REPT REPT 
REPT REPT REPT REPT REPT REPT REPT
   DEC REG1
   IF REG1 > A0 GOTO 2
   DPY-IF INCORRECT REPLACE U16
   DPY-+-CONT#
   STOP
3: LABEL 3

PROGRAM 3   2 BYTES