Listing of file='OP5D090A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 368, program filename = 'OP5D090A' 0010 REM . OP5D090A, 00-00 (06/28/75), 12002 : PRINT "MAT MERGE DIAGNOSTIC #3 (COMATF10).."; : DIM A$(5,5)1,W1$(6)1,W2$(5)2,B$(30)2,F$(30)2,G$(5,5)1 : FOR I=1TO 5 0170 X1=X1+3 : X2=X2+8 : X3=X3+11 : X4=X4+17 : X5=X5+18 : BIN(A$(1,I))=X1 : BIN(A$(2,I))=X2 : BIN(A$(5,I))=X3 0190 BIN(A$(4,I))=X4 : BIN(A$(3,I))=X5 : NEXT I : INIT(00)F$() : DIM Y$6 : Y$=HEX(050403020101) : FOR I=1TO 5 : W1$(I)=STR(Y$,I,1) : NEXT I 0250 MAT MERGEA$()TO W1$(),W2$(),B$() : P1=P1+1 : IF B$(1)=HEX(0000)THEN 300 : GOSUB '50 : GOTO 250 0300 MAT MOVE A$(),F$(1)TO G$(1,1) : DIM X$4 : INIT(00)X$ 0340 ADDC(X$,G$(1,1)) : ADDC(X$,G$(3,1)) : ADDC(X$,G$(1,5)) : ADDC(X$,G$(2,1)) : ADDC(X$,G$(3,5)) : ADDC(X$,G$(3,3)) : IF X$=HEX(00000127)THEN 390 : E(4)=E(4)+1 : PRINT TAB(40);E(4);"ERRORS" 0380 LOAD DC T"OP5D100A" 0390 PRINT "O.K." : LOAD DC T"OP5D100A" 0400 DEFFN'0 : SELECT PRINT 215(130) : PRINT "PASS #";P1 0430 PRINT "W1$() = " : HEXPRINT W1$() : PRINT "B$() =" : HEXPRINT B$() : PRINT "F$() =" : HEXPRINT F$() : SELECT PRINT 005(64) : RETURN 0510 DEFFN'50 : K=1 0530 IF B$(K)=HEX(0000)THEN 580 : L=L+1 : F$(L)=B$(K) : K=K+1 : GOTO 530 0580 RETURN 0590 DEFFN'1 : PRINT "G$() = MERGED DATA =" : HEXPRINT G$() : RETURN 0630 DEFFN'2 : PRINT "A$() = " : HEXPRINT A$() : RETURN 0660 DEFFN'15 : LOAD DC T"START"50