image of READY prompt

Wang2200.org

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