Listing of file='OP5D080A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 432, program filename = 'OP5D080A' 0010 REM . OP5D080A, 00-00 (06/28/75), 12002 : PRINT "MAT MERGE DIAGNOSTIC #2 (COMATF09).."; : DIM A$(5,5)1,W1$(6)1,W2$(5)2,B$(2)2,F$(30)2,G$(5,5)1 : GOSUB '50 : P1=P1+1 0180 MAT MERGEA$()TO W1$(),W2$(),B$() : GOSUB '70 : GOSUB '60 : P1=P1+1 : IF P1=15THEN 230 : GOTO 180 0230 FOR I=1TO 5 : IF W1$(I)<>HEX(FF)THEN 360 : NEXT I : IF W1$(6)<>HEX(03)THEN 360 : MAT MOVE A$(),F$(1)TO G$(1,1) : DIM X$2 : INIT(00)X$ : ADDC(X$,G$(1,1)) : ADDC(X$,G$(5,5)) : ADDC(X$,G$(1,5)) 0300 ADDC(X$,G$(2,1)) : ADDC(X$,G$(3,5)) : ADDC(X$,G$(4,3)) : IF X$=HEX(00C2)THEN 340 : E(4)=E(4)+1 : PRINT TAB(40);E(4);"ERRORS" 0330 LOAD DC T"OP5D090A" 0340 PRINT "O.K" : LOAD DC T"OP5D090A" 0360 PRINT TAB(40);"**** ERROR ****";"IN W1$()" : GOSUB '0 : STOP 0390 DEFFN'0 : PRINT "PASS #";P1 : PRINT "W1$() = " : HEXPRINT W1$() : PRINT "B$() =" : HEXPRINT B$() : PRINT "F$() =" : HEXPRINT F$() : PRINT "G$() =" : HEXPRINT G$() : RETURN 0500 DEFFN'60 : ON P1GOTO 540,540,540,550,540,540,540,540,560 0520 ON P1-9GOTO 540,570,540,580,590,600 : GOTO 600 0540 IF W1$(6)=HEX(00)THEN 630 : GOTO 600 0550 IF W1$(6)=HEX(01)THEN 630 : GOTO 600 0560 IF W1$(6)=HEX(02)THEN 630 : GOTO 600 0570 IF W1$(6)=HEX(05)THEN 630 : GOTO 600 0580 IF W1$(6)=HEX(04)THEN 630 : GOTO 600 0590 IF W1$(6)=HEX(03)THEN 630 : GOTO 600 0600 PRINT "**** ERROR ****";"PASS # ";P1 0610 GOSUB '0 : STOP 0630 RETURN 0640 DEFFN'50 : FOR I=1TO 5 : 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 : BIN(A$(4,I))=X4 : BIN(A$(3,I))=X5 : NEXT I : INIT(00)F$() : INIT(01)W1$() : RETURN 0720 DEFFN'70 : K=1 0740 IF B$(K)=HEX(0000)THEN 800 : L=L+1 : F$(L)=B$(K) : K=K+1 : IF K>2THEN 800 0790 GOTO 740 0800 RETURN 0810 DEFFN'15 : LOAD DC T"START"50