Listing of file='OP5D070A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 569, program filename = 'OP5D070A' 0010 REM . OP5D070A, 00-00 (06/28/75), 12002 : PRINT "MAT MERGE DIAGNOSTIC #1 (COMATF08).."; : 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$(3,I))=X3 0190 BIN(A$(4,I))=X4 : BIN(A$(5,I))=X5 : NEXT I : INIT(00)F$() : INIT(01)W1$() : INIT(20)B$() 0240 MAT MERGEA$()TO W1$(),W2$(),B$() : P1=P1+1 : IF B$(1)=HEX(0000)THEN 290 : GOSUB '50 : GOTO 240 0290 MAT MOVE A$(),F$(1)TO G$(1,1) : DIM X$4 : INIT(00)X$ : ADDC(X$,G$(1,1)) : ADDC(X$,G$(5,5)) : ADDC(X$,G$(1,5)) 0340 ADDC(X$,G$(2,1)) : ADDC(X$,G$(3,5)) : ADDC(X$,G$(4,3)) : IF X$=HEX(000000C2)THEN 380 : E(4)=E(4)+1 : PRINT TAB(40);E(4);"ERRORS" : LOAD DC T"OP5D080A" 0380 PRINT "O.K." : LOAD DC T"OP5D080A" 0390 DEFFN'0 : SELECT PRINT 215(130) : PRINT "PASS #";P1 : PRINT "W1$() = " : HEXPRINT W1$() : PRINT "B$() =" : HEXPRINT B$() : PRINT "F$() =" : HEXPRINT F$() 0480 SELECT PRINT 005(64) : RETURN 0500 DEFFN'50 : K=1 0520 IF B$(K)=HEX(0000)THEN 570 : L=L+1 : F$(L)=B$(K) : K=K+1 : GOTO 520 0570 RETURN 0580 DEFFN'1 : PRINT "G$() = MERGED DATA =" : HEXPRINT G$() : RETURN 0620 DEFFN'2 : PRINT "A$() = " : HEXPRINT A$() : RETURN 0650 DEFFN'15 : LOAD DC T"START"50