Listing of file='OP5D130A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 575, program filename = 'OP5D130A'
0010 REM . OP5D130A, 00-00 (06/28/75), 12002
: PRINT "MAT SEARCH DIAGNOSTIC #1 (COMATF14)..";
: DIM A$(1)32,B$(32)2,V$1,B1$(2)32
: INIT(FF)B$()
: A$(1)="12345678901234567890123456789012"
0150 V$="1"
: MAT SEARCHA$(),=V$TO B$()
: GOSUB '15
0160 IF STR(B1$(1),1,10)=HEX(0001000B0015001F0000)THEN 180
: E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D140A"
0180 MAT SEARCHA$(),<V$TO B$()
: GOSUB '15
: IF STR(B1$(1),1,8)=HEX(000A0014001E0000)THEN 210
: E(4)=E(4)+1
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D140A"
0210 MAT SEARCHA$(),<=V$TO B$()
: GOSUB '15
: IF STR(B1$(1),1,16)=HEX(0001000A000B00140015001E001F0000)THEN 240
: E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D140A"
0240 V$="8"
: MAT SEARCHA$(),>V$TO B$()
: GOSUB '15
: IF STR(B1$(1),1,8)=HEX(00090013001D0000)THEN 270
0260 E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D140A"
0270 MAT SEARCHA$(),>=V$TO B$()
: GOSUB '15
: IF STR(B1$(1),1,14)=HEX(0008000900120013001C001D0000)THEN 300
: E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D140A"
0300 INIT(FF)B$(),B1$()
: MAT SEARCHA$(),<>V$TO B$()
: GOSUB '15
: IF B1$(1)=HEX(00010002000300040005000600070009000A000B000C000D000E000F001
00011)THEN 330
0320 E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D140A"
0330 IF STR(B1$(2),1,28)=HEX(0013001400150016001700180019001A001B001D001E001F0
0200000)THEN 350
: E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D140A"
0350 PRINT "O.K."
: LOAD DC T"OP5D140A"
0352 DEFFN'15
: FOR I=1TO 16
: STR(B1$(1),2*I-1,2)=STR(B$(I),1,2)
0400 STR(B1$(2),2*I-1,2)=STR(B$(I+16),1,2)
: NEXT I
: RETURN
0430 DEFFN'15
: LOAD DC T"START"50