Listing of file='OP2D040A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 463, program filename = 'OP2D040A'
0010 REM . OP2D040A, 00-00 (06/28/75), 12002
: DIM I$64,R2$10,A$3,C$(3,4)10
: PRINT "TESTING $GIO (0XYZ,11YZ,14YZ,15YZ,16YZ,17YZ)... ";
: FOR L=1TO 2
: $GIO(0131023203330434053506360737,R2$)
0020 IF R2$<>HEX(31323334353637000000)THEN 140
: A$="AB"
: R2$=" "
0030 FOR I=1TO 7
: BIN(A$)=I
: $GIOABC(A$,R2$)
: IF STR(R2$,I,1)<>"B"THEN 140
: STR(R2$,I)=" "
: IF STR(R2$,1,7)<>" "THEN 140
: $GIO(01471117014611160145111501441114014311130142111201411111,B$)C$
0040 IF B$<>HEX(41424344454647000000)THEN 140
: INIT(" ")C$()
: C$(2,3)=HEX(01FE1111)
: A$=" "
0050 FOR I=1TO 7
: $GIOABCDE0101(C$(2,3),C$())A$
: IF STR(C$(1,1),I,1)<>HEX(FE)THEN 140
: STR(C$(1,1),I,1)=" "
: IF STR(C$(1,1),2,6)<>" "THEN 140
: IF C$(1,2)<>" "THEN 140
: IF A$<>" "THEN 140
: ADDC(STR(C$(2,3),1,4),01)
: NEXT I
0060 R2$="1111113"
: $GIO(1411141214131414141514161417,R2$)
: IF R2$<>HEX(31313131313133080000)THEN 140
: $GIO(1411142214121421146614561465073114711477147601001411020014121421,R2$
)A$
0070 IF R2$<>HEX(00003131313131000000)THEN 140
: C$(1,2)="AAAAAAB"
: C$(1,1)=HEX(1411)
0080 FOR I=1TO 7
: $GIO(STR(C$(1,1),1,3),C$(1,2))C$()<>
: IF I=7THEN 90
: IF C$(1,2)<>HEX(41414141414142000000)THEN 140
: ADDC(STR(C$(1,1),1,2),01)
0090 NEXT I
: IF C$(1,2)<>HEX(41414141414142080000)THEN 140
: R2$=" "
: $GIO(01000201141203FF,R2$)
: IF R2$<>HEX(0001FF20202020080000)THEN 140
0100 R2$=" "
: $GIO(01000201151203FF,R2$)
: IF R2$<>HEX(00012020202020080000)THEN 140
: I$=HEX(010115110202152203031533040115141541040405051555060615660707157715
1201FF)
0110 $GIO(I$,R2$)
: IF R2$<>HEX(01020304050607080000)THEN 140
0120 R2$=" "
: $GIO(16000101020214121608030316010404,R2$)
: IF R2$<>HEX(01020320202020080000)THEN 140
: I$=HEX(17FF17F0170F01010202141217F703031708)
0130 R2$=" "
: $GIO(I$,R2$)
: IF R2$<>HEX(01020320202020080000)THEN 140
: NEXT L
: GOTO 150
0140 E(3)=E(3)+1
: GOTO 160
0150 PRINT "OK"
: GOTO 170
0160 PRINT TAB(40);E(3);"ERRORS"
0170 DATA LOAD DA T(1023,Z)B$,B$,B$
: IF B$="OP2D010A"THEN 180
: SELECT TAPE 10A
: LOAD DC TB$
0180 Z9(1)=Z9(1)+1
: SELECT TAPE 10A
: LOAD DC TB$
0200 DEFFN'15
: LOAD DC T"START"50