Listing of file='OP5D130A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 577, program filename = 'OP5D130A'
0010 REM . OP5D130A, 00-00 (6/28/75), 12002
0100 PRINT "MAT SEARCH DIAGNOSTIC #1 (COMATF14)..";
: DIM A$(1)32,B$(32)2,V$1,B1$(2)32
: INIT(FF)B$()
: A$(1)="12345678901234567890123456789012"
: V$="1"
: MAT SEARCHA$(),=V$TO B$()
: GOSUB '14
0170 IF STR(B1$(1),1,10)=HEX(0001000B0015001F0000)THEN 220
: E(14)=E(14)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(14);"ERRORS"
: LOAD DC T#6,"OP5D140A"
0220 MAT SEARCHA$(),<V$TO B$()
: GOSUB '14
: IF STR(B1$(1),1,8)=HEX(000A0014001E0000)THEN 290
: E(14)=E(14)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(14);"ERRORS"
: LOAD DC T#6,"OP5D140A"
0290 MAT SEARCHA$(),<=V$TO B$()
: GOSUB '14
: IF STR(B1$(1),1,16)=HEX(0001000A000B00140015001E001F0000)THEN 360
: E(14)=E(14)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(14);"ERRORS"
: LOAD DC T#6,"OP5D140A"
0360 V$="8"
: MAT SEARCHA$(),>V$TO B$()
: GOSUB '14
: IF STR(B1$(1),1,8)=HEX(00090013001D0000)THEN 440
: E(14)=E(14)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(14);"ERRORS"
: LOAD DC T#6,"OP5D140A"
0440 MAT SEARCHA$(),>=V$TO B$()
: GOSUB '14
: IF STR(B1$(1),1,14)=HEX(0008000900120013001C001D0000)THEN 510
: E(14)=E(14)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(14);"ERRORS"
: LOAD DC T#6,"OP5D140A"
0510 INIT(FF)B$(),B1$()
: MAT SEARCHA$(),<>V$TO B$()
: GOSUB '14
: IF B1$(1)=HEX(00010002000300040005000600070009000A000B000C000D000E000F001
00011)THEN 590
: E(14)=E(14)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(14);"ERRORS"
0580 LOAD DC T#6,"OP5D140A"
0590 IF STR(B1$(2),1,28)=HEX(0013001400150016001700180019001A001B001D001E001F0
0200000)THEN 640
: E(14)=E(14)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(14);"ERRORS"
: LOAD DC T#6,"OP5D140A"
0640 PRINT "O.K."
: LOAD DC T#6,"OP5D140A"
0660 DEFFN'14
: FOR I=1TO 16
: STR(B1$(1),2*I-1,2)=STR(B$(I),1,2)
: STR(B1$(2),2*I-1,2)=STR(B$(I+16),1,2)
: NEXT I
: RETURN
0720 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"