Listing of file='OP2D010A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 79, program filename = 'OP2D010A'
0010 REM . OP2D010A, 00-00 (06/28/75), 12002
: SELECT PRINT 005
: GOSUB 500
: GOSUB '100
: GOSUB 500
0120 PRINT "TESTING $IF ON... ";
: FOR I=1TO 2
: SELECT TAPE 001,#6001
: $IF ON 190
: $IF ON /001,190
: $IF ON #6,190
0170 $IF ON /005,180
: GOTO 170
0180 NEXT I
: GOTO 200
0190 E(3)=E(3)+1
: GOTO 210
0200 PRINT "OK"
: GOTO 220
0210 PRINT TAB(40);E(3);"ERRORS"
0220 LOAD DC T"OP2D020A"
0500 PRINT HEX(0A0A);
: PRINT HEX(03);"2200 SYSTEM DIAGNOSTIC - GIO PASS ";Z9(1);" **** ";E(3);"
ERRORS"
: PRINT "------------------------------------"
: RETURN
0600 DEFFN'100
0610 ON O8 GOTO 620,630,640
: STOP "SYSTEM ERROR"
0620 SELECT PRINT 005
: RETURN
0630 SELECT PRINT 215
: RETURN
0640 SELECT PRINT 211
: RETURN
9000 DEFFN'15
: LOAD DC T"START"50