Listing of file='I52D010A' on disk='vmedia/702-0079.wvd.zip'
# Sector 570, program filename = 'I52D010A'
0010 REM . I52D010A, 00-00 (08/19/75), 12002
: SELECT PRINT 005
: SELECT INPUT 001
0110 GOSUB 9000
: PRINT HEX(0A);
: PRINT "ADDRESS SWITCHES = 5A . MOUNT CONNECTOR ON 2252"
0140 PRINT "THIS DIAG. ASSUMES THAT ECN#4229 IS DONE.PLEASE CHECK ECN. "
: PRINT
: PRINT " 1. SF.0 - SHOULD SET BOARD SWITCH"
: PRINT " PUT ALL SWITCHES (EXCEPT DATA SWITCH) UP"
0180 PRINT " 1. SF.1 - SHOULD SET BOARD SWITCH"
0190 PRINT " PUT ALL SWITCHES (EXCEPT DATA SWITCH) DOWN"
: STOP
0250 DEFFN'00
: GOSUB 9000
0280 PRINT HEX(010A);
: W=0
: DIM A$12,B$12
: A$=HEX(2B3F3F3F3F3F3F3F3F3F3F0D)
0320 FOR R=1TO 100
: SELECT INPUT 05A
: FOR Z=1TO 12
0350 KEYIN STR(B$,Z,1),370,370
: GOTO 350
0370 NEXT Z
: IF A$<>B$THEN 480
: SELECT PRINT 005
: SELECT INPUT 001
: W=W+1
: PRINT " PASS# ";W
: PRINT HEX(0C);
: NEXT R
: PRINT HEX(0A0A0A0A)
: PRINT " TEST PASSED"
0460 FOR I8=1TO 500
: I8=I8
: NEXT I8
: GOTO 110
0480 SELECT INPUT 001
: PRINT HEX(030A0A0A0A)
: PRINT " TEST FAILED-------MAKE SURE YOU ARE RUNNING RIGHT DIAG."
: STOP
0520 DEFFN'01
: GOSUB 9000
0540 W=0
: A$=HEX(2D303030303030303030300D)
: GOTO 320
0590 STOP
0610 DEFFN'03
: X$=HEX(2B3F3F3F3F3F3F3F3F3F3F)
: GOTO 650
0630 DEFFN'04
: X$=HEX(2D30303030303030303030)
: GOTO 650
0650 K=0
0660 SELECT INPUT 25A
0670 SELECT CO 25A
: INPUT V$
: PRINT HEX(03)
: SELECT CO 005
: IF X$<>V$THEN 780
: K=K+1
: PRINT "PASS#";K
: IF K=300THEN 760
: GOTO 660
0760 PRINT HEX(0A0A);"TEST PASSED"
: STOP
0780 PRINT "ERROR"
: STOP
0800 DEFFN'05
: SELECT INPUT 25A
: K=0
0830 SELECT CO 25A
: INPUT V$
: SELECT CO 005
: PRINT HEX(03)
: IF V$<>HEX(2B3F3F3F3F3F3F3F3F3F3F)THEN 930
: K=K+1
: PRINT "PASS#";K
: IF K=100THEN 910
: GOTO 830
0910 PRINT "TEST PASSED"
: STOP
0930 PRINT HEX(03);"ERROR"
0940 DEFFN'31
: LOAD DC F"START"
9000 PRINT HEX(03);"2200 HARDWARE DIGNOSTICS - 2252 BCD PARALELL INTERFACE ---
------"
: PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIGNSOTIC MENU ; KEY 'RESET' AND
SF'31";HEX(01)
: RETURN