Listing of file='I52D010B' on disk='vmedia/702-0079.wvd.zip'
# Sector 530, program filename = 'I52D010B'
0010 REM . I52D010B, 00-00 (08/19/75), 12002
: SELECT PRINT 005
: SELECT INPUT 001
0110 PRINT HEX(03);"ISS PERIPHERAL DIAGNOSTIC - 2252A INTERFACE"
: PRINT HEX(0A);
: PRINT "ADDRESS SWITCHES = 5A . MOUNT CONNECTOR ON 2252A"
: PRINT
: PRINT " 1. SF.0 - SHOULD SET BOARD SWITCH"
0170 PRINT " PUT ALL SWITCHES (EXCEPT DATA SWITCH) UP"
: PRINT " 1. SF.1 - SHOULD SET BOARD SWITCH"
: PRINT " PUT ALL SWITCHES (EXCEPT DATA SWITCH) DOWN"
: PRINT
0230 PRINT "SF.15 - ISS PERIPHERAL DIAGNOSTIC MENU"
: STOP
0250 DEFFN'00
0260 PRINT HEX(03);"ISS PERIPHERAL DIAGNOSTIC - 2252A INTERFACE"
: PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A);"SF.15 - LOAD ISS PERIPHERAL DIAGNO
STIC MENU"
: PRINT HEX(010A);
: W=0
: DIM A$12,B$12
0310 A$=HEX(2B3F3F3F3F3F3F3F3F3F3F0D)
0320 FOR R=1TO 100
: SELECT INPUT 05A
: FOR Z=1TO 12
0350 KEYIN STR(B$,Z,1),370,370
0360 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"
: 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
: PRINT HEX(03);"ISS PERIPHERAL DIAGNOSTIC - 2252A INTERFACE"
: PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A);"SF.15 - LOAD ISS PERIPHERAL DIAGNO
STIC MENU"
: PRINT HEX(010A);
: W=0
0570 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
: 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)
0870 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'15
: LOAD DC F"START"