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