PROGRAM 0 272 BYTES 0: LABEL 0 DPY-DO YOU WISH TO RUN ALL TESTS ?A# IF REGA = 1 GOTO 1 DPY-ENTER STARTING POINT NO. /5# IF REG5 = 1 GOTO 1 IF REG5 = 2 GOTO 2 IF REG5 = 3 GOTO 3 IF REG5 = 4 GOTO 4 IF REG5 = 5 GOTO 5 IF REG5 = 6 GOTO 6 IF REG5 = 7 GOTO 7 IF REG5 = 8 GOTO 8 IF REG5 = 9 GOTO 9 IF REG5 = 10 GOTO A IF REG5 = 11 GOTO B IF REG5 = 12 GOTO C GOTO 0 1: LABEL 1 2: LABEL 2 3: LABEL 3 4: LABEL 4 EXECUTE PROGRAM 4 5: LABEL 5 EXECUTE PROGRAM 5 6: LABEL 6 EXECUTE PROGRAM 6 7: LABEL 7 EXECUTE PROGRAM 7 8: LABEL 8 EXECUTE PROGRAM 8 9: LABEL 9 EXECUTE PROGRAM 9 A: LABEL A EXECUTE PROGRAM 10 B: LABEL B EXECUTE PROGRAM 11 C: LABEL C EXECUTE PROGRAM 12 DPY-END OF TEST GOTO 0 PROGRAM 1 1097 BYTES 0: LABEL 0 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF DPY-IS 600605 DS3 AND DS4 ON ?A IF REGA = 0 GOTO 1 REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = F2 WRITE @ DFE8005 = EF WRITE @ DFE8009 = 20 WRITE @ DFE800B = 2F WRITE @ DFE409A = 00 WRITE @ DFE409B = 00 WRITE @ DFE409C = 00 WRITE @ DFE409D = 00 WRITE @ DFE409E = 00 WRITE @ DFE409F = 00 WRITE @ DFE40A9 = 05 WRITE @ DFE40B1 = 05 WRITE @ DFE40B9 = 05 WRITE @ DFE409D = 00 WRITE @ DFE40A5 = 48 WRITE @ DFE40A7 = 49 WRITE @ DFE4087 = 38 WRITE @ DFE4084 = 20 WRITE @ DFE4085 = 02 WRITE @ DFE4086 = 04 WRITE @ DFE408C = 00 WRITE @ DFE408D = 20 WRITE @ DFE408E = 00 WRITE @ DFE408F = 00 WRITE @ DFE4094 = 00 WRITE @ DFE4095 = FE WRITE @ DFE4096 = 8F WRITE @ DFE4097 = FF WRITE @ DFE408A = 02 WRITE @ DFE408B = 02 WRITE @ DFE40FF = 00 WRITE @ DFE4087 = 88 DPY-TYPE 31E ON SIMULATOR 2: LABEL 2 READ @ FE8003 IF REGE AND REG1 = 0002 GOTO 3 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 81 REG1 = 00F0 REG2 = 1F 4: LABEL 4 READ @ FE8001 DPY-WAIT FOR 7 $E IF REGE AND REG1 = 0070 GOTO 5 DEC REG2 IF REG2 = 00 GOTO 1 GOTO 4 5: LABEL 5 WRITE @ DFE8001 = 80 GOTO 6 1: LABEL 1 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 7 7: LABEL 7 DPY- READ FAILED ABORT TEST### STOP 6: LABEL 6 DPY-READ TEST PASSED## PRESS CONT STOP DPY-TYPE 15E ON SIMULATOR CONT# STOP DPY-TYPE 6608 PRESS ALM SW CONT# STOP DPY-IS 6608 = 12 CONT# STOP DPY-TYPE 6609 PRESS ALM SW CONT# STOP DPY-IS 6609 = 34 CONT# STOP DPY-TYPE 6806 PRESS ALM SW CONT# STOP DPY-IS 6806 = AB CONT# STOP DPY-TYPE 6807 PRESS ALM SW CONT# STOP DPY-IS 6807 = CD CONT# STOP DPY-TYPE F PRESS ALM SW CONT# STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 2 527 BYTES WRITE @ DFE8071 = 00 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = F3 WRITE @ DFE8005 = EE WRITE @ DFE401A = 00 WRITE @ DFE401B = 00 WRITE @ DFE401C = 00 WRITE @ DFE401D = 00 WRITE @ DFE401E = 00 WRITE @ DFE401F = 00 WRITE @ DFE4029 = 05 WRITE @ DFE4031 = 05 WRITE @ DFE4039 = 05 WRITE @ DFE401D = 00 WRITE @ DFE4025 = 48 WRITE @ DFE4027 = 49 WRITE @ DFE4007 = 38 WRITE @ DFE4004 = 88 WRITE @ DFE4005 = 10 WRITE @ DFE4006 = 05 WRITE @ DFE400C = 00 WRITE @ DFE400D = 20 WRITE @ DFE400E = 00 WRITE @ DFE400F = 00 WRITE @ DFE4014 = 00 WRITE @ DFE4015 = 10 WRITE @ DFE4016 = 00 WRITE @ DFE4017 = 00 WRITE @ DFE400A = 02 WRITE @ DFE400B = 02 WRITE @ DFE40FF = 00 WRITE @ DFE4007 = 88 DPY-DMA TRANSFER IN PROGRESS REG1 = FF00 0: LABEL 0 READ @ FE4000 IF REGE AND REG1 = 8100 GOTO 1 GOTO 0 1: LABEL 1 DPY-DMA TEST PASSED### STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 3 168 BYTES WRITE @ FA0003 = 03 WRITE @ DFE8071 = 00 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = F3 WRITE @ DFE8005 = EE REG3 = 202 REG2 = 200000 0: LABEL 0 WRITE @ REG2 = 1234 DPY-$F DEC REG3 INC REG2 IF REG3 > 00 GOTO 0 WRITE @ 2001FE = ABCD DPY-WRITE TO RAM COMPLETE# STOP PROGRAM 4 1150 BYTES DPY-STRAP U12.9 TO U67.4 CONT## STOP DPY-STRAP U6.14 TO U67.8 CONT## STOP DPY-STRAP U6.15 TO U57.8 CONT## STOP DPY-STRAP P2.16 TO LGND CONT## STOP 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F DPY-IS 600605 DS3 AND DS4 ON ?A IF REGA = 0 GOTO 1 WRITE @ DFE40DA = 00 WRITE @ DFE40DB = 00 WRITE @ DFE40DC = 00 WRITE @ DFE40DD = 00 WRITE @ DFE40DE = 00 WRITE @ DFE40DF = 00 WRITE @ DFE40E9 = 05 WRITE @ DFE40F1 = 05 WRITE @ DFE40F9 = 05 WRITE @ DFE40DD = 00 WRITE @ DFE40E5 = 48 WRITE @ DFE40E7 = 49 WRITE @ DFE40C7 = 38 WRITE @ DFE40C4 = A0 WRITE @ DFE40C5 = 82 WRITE @ DFE40C6 = 04 WRITE @ DFE40CC = 00 WRITE @ DFE40CD = 20 WRITE @ DFE40CE = 00 WRITE @ DFE40CF = 00 WRITE @ DFE40D4 = 00 WRITE @ DFE40D5 = FE WRITE @ DFE40D6 = 8F WRITE @ DFE40D7 = FF WRITE @ DFE40CA = 0A WRITE @ DFE40CB = 02 WRITE @ DFE40FF = 00 WRITE @ DFE40C7 = 88 2: LABEL 2 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 81 REG1 = 00F0 REG2 = 1F 3: LABEL 3 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO 4 DEC REG2 IF REG2 = 00 GOTO 1 GOTO 3 4: LABEL 4 READ @ DFE8061 WRITE @ DFE800B = 0F WRITE @ DFE800B = 2F 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR A $E IF REGE AND REG1 = 00A0 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 1 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 6 $E IF REGE AND REG1 = 0060 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 1 GOTO 7 8: LABEL 8 WRITE @ DFE8001 = 81 9: LABEL 9 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO A DEC REG2 IF REG2 = 00 GOTO 1 GOTO 9 1: LABEL 1 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO B B: LABEL B DPY- TEST NO. 4 FAILED ## STOP A: LABEL A WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 C: LABEL C DPY-WRITE BLOCK TEST PASSED# STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 5 696 BYTES DPY-REMOVE U12.9 TO U67.4 CONT## STOP DPY-STRAP U12.9 TO U67.2 CONT## STOP 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 81 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 READ @ DFE8061 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 83 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 8: LABEL 8 WRITE @ DFE8001 = 80 9: LABEL 9 READ @ FE8001 DPY-WAIT FOR 6 $E IF REGE AND REG1 = 0060 GOTO A DEC REG2 IF REG2 = 00 GOTO 4 GOTO 9 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO B B: LABEL B DPY- TEST NO. 5 FAILED ## STOP A: LABEL A WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 C: LABEL C DPY-WRITE ID BURST PASSED# STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 6 695 BYTES DPY-REMOVE U12.9 TO U67.2 CONT## STOP DPY-STRAP U12.9 TO U67.6 CONT## STOP 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 81 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 READ @ DFE8061 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 6 $E IF REGE AND REG1 = 0060 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 8: LABEL 8 WRITE @ DFE8001 = 81 9: LABEL 9 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO A DEC REG2 IF REG2 = 00 GOTO 4 GOTO 9 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO B B: LABEL B DPY- TEST NO. 6 FAILED ## STOP A: LABEL A WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 C: LABEL C DPY-WRITE TAPE MARK PASSED# STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 7 601 BYTES DPY-REMOVE P2.16 FROM LGND CONT## STOP 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 82 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- TEST NO. 7 FAILED ## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-READ FWD TAPE MARK PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 8 494 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE800B = 3F 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 0 $E IF REGE AND REG1 = 0000 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 7 7: LABEL 7 DPY- TEST NO. 8 FAILED ## STOP 6: LABEL 6 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 8: LABEL 8 DPY-READ FWD 1 FILE PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 9 903 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F WRITE @ DFE409A = 00 WRITE @ DFE409B = 00 WRITE @ DFE409C = 00 WRITE @ DFE409D = 00 WRITE @ DFE409E = 00 WRITE @ DFE409F = 00 WRITE @ DFE40A9 = 05 WRITE @ DFE40B1 = 05 WRITE @ DFE40B9 = 05 WRITE @ DFE409D = 00 WRITE @ DFE40A5 = 48 WRITE @ DFE40A7 = 49 WRITE @ DFE4087 = 38 WRITE @ DFE4084 = 20 WRITE @ DFE4085 = 02 WRITE @ DFE4086 = 04 WRITE @ DFE408C = 00 WRITE @ DFE408D = 20 WRITE @ DFE408E = 00 WRITE @ DFE408F = 00 WRITE @ DFE4094 = 00 WRITE @ DFE4095 = FE WRITE @ DFE4096 = 8F WRITE @ DFE4097 = FF WRITE @ DFE408A = 02 WRITE @ DFE408B = 02 WRITE @ DFE40FF = 00 WRITE @ DFE4087 = 88 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 81 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 7 $E IF REGE AND REG1 = 0070 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- TEST NO. 9 FAILED ## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-READ FWD 1 BLOCK PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 10 565 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 83 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- TEST NO. 10 FAILED ## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-READ IDB TEST PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 11 633 BYTES DPY-REMOVE U6.15 TO U57.8 CONT## STOP DPY-STRAP U6.15 TO U57.6 CONT## STOP 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 READ @ DFE8061 WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 1 $E IF REGE AND REG1 = 0010 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 81 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 0 $E IF REGE AND REG1 = 0000 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 WRITE @ DFE8071 = 00 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- TEST NO. 11 FAILED ## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-REWIND TEST PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 12 631 BYTES DPY-REMOVE U6.15 TO U57.6 CONT## STOP DPY-STRAP U6.15 TO U57.11 CONT## STOP 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 83 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- TEST NO. 12 FAILED ## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-READ REV IDB TEST PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 0 272 BYTES 0: LABEL 0 DPY-DO YOU WISH TO RUN ALL TESTS ?A# IF REGA = 1 GOTO 1 DPY-ENTER STARTING POINT NO. /5# IF REG5 = 1 GOTO 1 IF REG5 = 2 GOTO 2 IF REG5 = 3 GOTO 3 IF REG5 = 4 GOTO 4 IF REG5 = 5 GOTO 5 IF REG5 = 6 GOTO 6 IF REG5 = 7 GOTO 7 IF REG5 = 8 GOTO 8 IF REG5 = 9 GOTO 9 IF REG5 = 10 GOTO A IF REG5 = 11 GOTO B IF REG5 = 12 GOTO C GOTO 0 1: LABEL 1 2: LABEL 2 3: LABEL 3 4: LABEL 4 EXECUTE PROGRAM 4 5: LABEL 5 EXECUTE PROGRAM 5 6: LABEL 6 EXECUTE PROGRAM 6 7: LABEL 7 EXECUTE PROGRAM 7 8: LABEL 8 EXECUTE PROGRAM 8 9: LABEL 9 EXECUTE PROGRAM 9 A: LABEL A EXECUTE PROGRAM 10 B: LABEL B EXECUTE PROGRAM 11 C: LABEL C EXECUTE PROGRAM 12 DPY-END OF TEST GOTO 0 PROGRAM 1 1097 BYTES 0: LABEL 0 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF DPY-IS 600605 DS3 AND DS4 ON ?A IF REGA = 0 GOTO 1 REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = F2 WRITE @ DFE8005 = EF WRITE @ DFE8009 = 20 WRITE @ DFE800B = 2F WRITE @ DFE409A = 00 WRITE @ DFE409B = 00 WRITE @ DFE409C = 00 WRITE @ DFE409D = 00 WRITE @ DFE409E = 00 WRITE @ DFE409F = 00 WRITE @ DFE40A9 = 05 WRITE @ DFE40B1 = 05 WRITE @ DFE40B9 = 05 WRITE @ DFE409D = 00 WRITE @ DFE40A5 = 48 WRITE @ DFE40A7 = 49 WRITE @ DFE4087 = 38 WRITE @ DFE4084 = 20 WRITE @ DFE4085 = 02 WRITE @ DFE4086 = 04 WRITE @ DFE408C = 00 WRITE @ DFE408D = 20 WRITE @ DFE408E = 00 WRITE @ DFE408F = 00 WRITE @ DFE4094 = 00 WRITE @ DFE4095 = FE WRITE @ DFE4096 = 8F WRITE @ DFE4097 = FF WRITE @ DFE408A = 02 WRITE @ DFE408B = 02 WRITE @ DFE40FF = 00 WRITE @ DFE4087 = 88 DPY-TYPE 31E ON SIMULATOR 2: LABEL 2 READ @ FE8003 IF REGE AND REG1 = 0002 GOTO 3 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 81 REG1 = 00F0 REG2 = 1F 4: LABEL 4 READ @ FE8001 DPY-WAIT FOR 7 $E IF REGE AND REG1 = 0070 GOTO 5 DEC REG2 IF REG2 = 00 GOTO 1 GOTO 4 5: LABEL 5 WRITE @ DFE8001 = 80 GOTO 6 1: LABEL 1 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 7 7: LABEL 7 DPY- READ FAILED ABORT TEST### STOP 6: LABEL 6 DPY-READ TEST PASSED## PRESS CONT STOP DPY-TYPE 15E ON SIMULATOR CONT# STOP DPY-TYPE 6608 PRESS ALM SW CONT# STOP DPY-IS 6608 = 12 CONT# STOP DPY-TYPE 6609 PRESS ALM SW CONT# STOP DPY-IS 6609 = 34 CONT# STOP DPY-TYPE 6806 PRESS ALM SW CONT# STOP DPY-IS 6806 = AB CONT# STOP DPY-TYPE 6807 PRESS ALM SW CONT# STOP DPY-IS 6807 = CD CONT# STOP DPY-TYPE F PRESS ALM SW CONT# STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 2 527 BYTES WRITE @ DFE8071 = 00 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = F3 WRITE @ DFE8005 = EE WRITE @ DFE401A = 00 WRITE @ DFE401B = 00 WRITE @ DFE401C = 00 WRITE @ DFE401D = 00 WRITE @ DFE401E = 00 WRITE @ DFE401F = 00 WRITE @ DFE4029 = 05 WRITE @ DFE4031 = 05 WRITE @ DFE4039 = 05 WRITE @ DFE401D = 00 WRITE @ DFE4025 = 48 WRITE @ DFE4027 = 49 WRITE @ DFE4007 = 38 WRITE @ DFE4004 = 88 WRITE @ DFE4005 = 10 WRITE @ DFE4006 = 05 WRITE @ DFE400C = 00 WRITE @ DFE400D = 20 WRITE @ DFE400E = 00 WRITE @ DFE400F = 00 WRITE @ DFE4014 = 00 WRITE @ DFE4015 = 10 WRITE @ DFE4016 = 00 WRITE @ DFE4017 = 00 WRITE @ DFE400A = 02 WRITE @ DFE400B = 02 WRITE @ DFE40FF = 00 WRITE @ DFE4007 = 88 DPY-DMA TRANSFER IN PROGRESS REG1 = FF00 0: LABEL 0 READ @ FE4000 IF REGE AND REG1 = 8100 GOTO 1 GOTO 0 1: LABEL 1 DPY-DMA TEST PASSED### STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 3 168 BYTES WRITE @ FA0003 = 03 WRITE @ DFE8071 = 00 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = F3 WRITE @ DFE8005 = EE REG3 = 202 REG2 = 200000 0: LABEL 0 WRITE @ REG2 = 1234 DPY-$F DEC REG3 INC REG2 IF REG3 > 00 GOTO 0 WRITE @ 2001FE = ABCD DPY-WRITE TO RAM COMPLETE# STOP PROGRAM 4 1036 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F DPY-IS 600605 DS3 AND DS4 ON ?A IF REGA = 0 GOTO 1 WRITE @ DFE40DA = 00 WRITE @ DFE40DB = 00 WRITE @ DFE40DC = 00 WRITE @ DFE40DD = 00 WRITE @ DFE40DE = 00 WRITE @ DFE40DF = 00 WRITE @ DFE40E9 = 05 WRITE @ DFE40F1 = 05 WRITE @ DFE40F9 = 05 WRITE @ DFE40DD = 00 WRITE @ DFE40E5 = 48 WRITE @ DFE40E7 = 49 WRITE @ DFE40C7 = 38 WRITE @ DFE40C4 = A0 WRITE @ DFE40C5 = 82 WRITE @ DFE40C6 = 04 WRITE @ DFE40CC = 00 WRITE @ DFE40CD = 20 WRITE @ DFE40CE = 00 WRITE @ DFE40CF = 00 WRITE @ DFE40D4 = 00 WRITE @ DFE40D5 = FE WRITE @ DFE40D6 = 8F WRITE @ DFE40D7 = FF WRITE @ DFE40CA = 0A WRITE @ DFE40CB = 02 WRITE @ DFE40FF = 00 WRITE @ DFE40C7 = 88 2: LABEL 2 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 81 REG1 = 00F0 REG2 = 1F 3: LABEL 3 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO 4 DEC REG2 IF REG2 = 00 GOTO 1 GOTO 3 4: LABEL 4 READ @ DFE8061 WRITE @ DFE800B = 0F WRITE @ DFE800B = 2F 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR A $E IF REGE AND REG1 = 00A0 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 1 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 6 $E IF REGE AND REG1 = 0060 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 1 GOTO 7 8: LABEL 8 WRITE @ DFE8001 = 81 9: LABEL 9 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO A DEC REG2 IF REG2 = 00 GOTO 1 GOTO 9 1: LABEL 1 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO B B: LABEL B DPY- WRITE FAILED ABORT TEST## STOP A: LABEL A WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 C: LABEL C DPY-WRITE BLOCK TEST PASSED# STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 5 638 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 81 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 READ @ DFE8061 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 83 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 8: LABEL 8 WRITE @ DFE8001 = 80 9: LABEL 9 READ @ FE8001 DPY-WAIT FOR 6 $E IF REGE AND REG1 = 0060 GOTO A DEC REG2 IF REG2 = 00 GOTO 4 GOTO 9 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO B B: LABEL B DPY- WRITE FAILED ABORT TEST## STOP A: LABEL A WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 C: LABEL C DPY-WRITE ID BURST PASSED# STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 6 639 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 81 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 READ @ DFE8061 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 6 $E IF REGE AND REG1 = 0060 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 8: LABEL 8 WRITE @ DFE8001 = 81 9: LABEL 9 READ @ FE8001 DPY-WAIT FOR 3 $E IF REGE AND REG1 = 0030 GOTO A DEC REG2 IF REG2 = 00 GOTO 4 GOTO 9 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO B B: LABEL B DPY- WRITE FAILED ABORT TEST## STOP A: LABEL A WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 C: LABEL C DPY-WRITE TAPE MARK PASSED# STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 7 574 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 82 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- WRITE FAILED ABORT TEST## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-READ FWD TAPE MARK PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 8 499 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE800B = 3F 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 0 $E IF REGE AND REG1 = 0000 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 7 7: LABEL 7 DPY- WRITE FAILED ABORT TEST## STOP 6: LABEL 6 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 8: LABEL 8 DPY-READ FWD 1 FILE PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 9 908 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F WRITE @ DFE409A = 00 WRITE @ DFE409B = 00 WRITE @ DFE409C = 00 WRITE @ DFE409D = 00 WRITE @ DFE409E = 00 WRITE @ DFE409F = 00 WRITE @ DFE40A9 = 05 WRITE @ DFE40B1 = 05 WRITE @ DFE40B9 = 05 WRITE @ DFE409D = 00 WRITE @ DFE40A5 = 48 WRITE @ DFE40A7 = 49 WRITE @ DFE4087 = 38 WRITE @ DFE4084 = 20 WRITE @ DFE4085 = 02 WRITE @ DFE4086 = 04 WRITE @ DFE408C = 00 WRITE @ DFE408D = 20 WRITE @ DFE408E = 00 WRITE @ DFE408F = 00 WRITE @ DFE4094 = 00 WRITE @ DFE4095 = FE WRITE @ DFE4096 = 8F WRITE @ DFE4097 = FF WRITE @ DFE408A = 02 WRITE @ DFE408B = 02 WRITE @ DFE40FF = 00 WRITE @ DFE4087 = 88 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 81 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 7 $E IF REGE AND REG1 = 0070 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- WRITE FAILED ABORT TEST## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-READ FWD 1 BLOCK PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 10 569 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 83 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- WRITE FAILED ABORT TEST## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-READ IDB TEST PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 11 577 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 READ @ DFE8061 WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 1 $E IF REGE AND REG1 = 0010 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 81 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 0 $E IF REGE AND REG1 = 0000 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 WRITE @ DFE8071 = 00 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- WRITE FAILED ABORT TEST## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-REWIND TEST PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP PROGRAM 12 573 BYTES 0: LABEL 0 READ @ DFE8071 WRITE @ DFA0001 = 00 WRITE @ DFA0003 = 03 WRITE @ DFA0005 = FF REG1 = 000F WRITE @ DFE8071 = 00 WRITE @ DFE8007 = 42 WRITE @ DFE8001 = 80 WRITE @ DFE8003 = FE WRITE @ DFE8005 = F7 WRITE @ DFE8009 = 20 WRITE @ DFE800B = 3F 1: LABEL 1 WRITE @ DFE800B = 2F WRITE @ DFE8001 = 80 REG1 = 00F0 REG2 = 1F 2: LABEL 2 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 3 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 2 3: LABEL 3 WRITE @ DFE8001 = 83 5: LABEL 5 READ @ DFE8001 DPY-WAIT FOR 4 $E IF REGE AND REG1 = 0040 GOTO 6 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 5 6: LABEL 6 WRITE @ DFE8001 = 80 7: LABEL 7 READ @ FE8001 DPY-WAIT FOR 2 $E IF REGE AND REG1 = 0020 GOTO 8 DEC REG2 IF REG2 = 00 GOTO 4 GOTO 7 4: LABEL 4 DPY-PRESS 1 RETEST OR 0 STOP ?#/5 WRITE @ DFE8001 = 80 IF REG5 = 1 GOTO 0 IF REG5 = 0 GOTO 9 9: LABEL 9 DPY- WRITE FAILED ABORT TEST## STOP 8: LABEL 8 WRITE @ DFE800B = 3F WRITE @ DFE8001 = 00 A: LABEL A DPY-READ REV IDB TEST PASSED## STOP DPY-PRESS SW1 ON 605 CARD CONT# STOP