image of READY prompt

Wang2200.org

Listing of file='OP5D060A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 701, program filename = 'OP5D060A'
0010 REM .   OP5D060A,   00-00 (06/28/75),   12002
   : DIM A$(255)1,B$(255)2,T$1,C$(2)2,Q$(1,1)64,Q$64,F$(6,4)
   : DIM P$(4,5)2,P$2,R$(1,1)2,Y1$19
   : PRINT "MAT SEARCH",
   : FOR I=0TO 254
   : BIN(A$(I+1))=I
   : NEXT I
0140 GOSUB '40(0)
   : GOSUB '40(254)
   : GOSUB '40(100)
   : FOR I=1TO 20
   : GOSUB '40(I)
   : NEXT I
0160 T$=HEX(FF)
   : MAT SEARCHA$(),=STR(T$,1,1)TO C$()STEP 1
   : IF C$(1)<>HEX(0000)THEN 800
   : IF C$(2)<>" "THEN 800
   : GOSUB '41(0)
   : GOSUB '41(6)
   : GOSUB '41(253)
   : GOSUB '42(1)
   : GOSUB '42(17)
   : GOSUB '43(254)
   : GOSUB '43(245)
   : GOSUB '43(1)
   : GOSUB '44(253)
   : GOSUB '44(200)
0220 T$=HEX(FE)
   : MAT SEARCHA$(),<>T$TO B$()
   : X=253
   : GOSUB 760
0240 Q$="A12345A"
   : FOR I=1TO 6
   : FOR J=1TO 4
   : F$(I,J)=Q$
   : ADD(STR(Q$,1,1),01)
   : ADD(STR(Q$,7,1),01)
   : NEXT J
   : NEXT I
   : Y1$="G12345G"
   : MAT SEARCHF$(),=STR(Y1$,1,7)TO P$()
   : IF P$(1,1)<>HEX(0061)THEN 800
   : IF P$(1,2)<>HEX(0000)THEN 800
0280 MAT SEARCHF$(),=STR(Y1$,2,5)TO P$()
   : P$=HEX(0002)
   : GOSUB '51(4)
0290 Y1$="F12345F"
   : MAT SEARCHF$(),>STR(Y1$,1,7)TO R$()
   : IF R$(1,1)<>HEX(0061)THEN 800
   : INIT(FF)C$()
   : Y1$=" "
   : MAT SEARCHA$()<80,0>,>STR(Y1$,1,1)TO C$()
   : IF C$(1)<>HEX(0000)THEN 800
   : IF C$(2)<>HEX(FFFF)THEN 800
0320 Y1$=HEX(10)
   : FOR I=1TO 17
   : INIT(FF)C$()
   : MAT SEARCHA$()<I,18-I>,=Y1$TO C$()
0340 IF STR(C$(1),1,1)<>HEX(00)THEN 800
   : IF C$(2)<>HEX(0000)THEN 800
   : IF VAL(STR(C$(1),2,1))<>18-ITHEN 800
   : NEXT I
   : INIT("X")A$()
   : Y1$="XXX"
   : MAT SEARCHA$(),=STR(Y1$,1,3)TO B$()
   : P$=HEX(0001)
   : FOR I=1TO 253
   : IF B$(I)<>P$THEN 800
0390 ADDC(P$,01)
   : NEXT I
   : IF B$(254)<>HEX(0000)THEN 800
0400 F$(6,2)=F$(1,1)
   : F$(6,3)=F$(1,2)
   : F$(6,4)=F$(1,3)
   : Y1$="  B12345B         C"
   : MAT SEARCHF$(),=Y1$TO B$()
   : IF B$(1)<>HEX(000F)THEN 800
   : IF B$(2)<>HEX(015F)THEN 800
   : IF B$(3)<>HEX(0000)THEN 800
0440 INIT(FF)A$(),B$()
   : Y1$=" "
   : MAT SEARCHA$()<250,6>,>=STR(Y1$,1,4)TO B$()
   : IF B$(1)<>HEX(0001)THEN 800
0470 IF B$(2)<>HEX(0002)THEN 800
   : IF B$(3)<>HEX(0003)THEN 800
   : IF B$(4)<>HEX(0000)THEN 800
   : IF B$(5)<>HEX(FFFF)THEN 800
   : INIT(FF)F$(),B$()
   : Q$=HEX(FFFE)
   : MAT SEARCHF$(),<=Q$TO B$()STEP 3
0510 IF B$(1)<>HEX(0000)THEN 800
   : IF B$(2)<>HEX(FFFF)THEN 800
   : Q$=HEX(FF)
   : FOR J=2TO 20
   : INIT(FF)B$()
   : MAT SEARCHF$(),=Q$TO B$()STEP J
   : I=0
0540 P$=HEX(0001)
   : BIN(T$)=J
   : FOR K=1TO 384STEP J
   : I=I+1
   : NEXT K
   : IF B$(I+1)<>HEX(0000)THEN 800
   : IF B$(I+2)<>HEX(FFFF)THEN 800
   : NEXT J
   : INIT(30)B$()
   : B$(255)="12"
   : Q$="11"
   : FOR S=1TO 20STEP 2
   : MAT SEARCHB$()<S,511-S>,>Q$TO C$()STEP 2
0600 C=VAL(C$(1))*256+VAL(STR(C$(1),2))
   : IF C<>510-STHEN 800
   : IF C$(2)<>HEX(0000)THEN 800
   : NEXT S
   : GOTO 810
0640 DEFFN'51(I1)
   : FOR I=1TO I1
   : FOR J=1TO 5
   : IF P$(I,J)<>P$THEN 800
   : ADDC(P$,10)
   : NEXT J
   : NEXT I
   : RETURN
0670 DEFFN'43(X)
   : BIN(T$)=X
   : MAT SEARCHA$(),>=T$TO B$()STEP 2/2
0680 FOR J=1TO 255-X
   : IF VAL(B$(J))*256+VAL(STR(B$(J),2))<>J+XTHEN 800
   : NEXT J
   : IF B$(J+1)<>HEX(0000)THEN 800
   : RETURN
0700 DEFFN'44(X)
   : BIN(T$)=X-1
   : MAT SEARCHA$(),>T$TO B$()
   : GOTO 680
0720 DEFFN'40(X)
   : BIN(T$)=X
   : MAT SEARCHA$(),=T$TO B$()
   : IF VAL(B$(1))*256+VAL(STR(B$(1),2))<>X+1THEN 800
   : IF B$(2)<>HEX(0000)THEN 800
   : RETURN
0750 DEFFN'41(X)
   : BIN(T$)=X
   : MAT SEARCHA$(),<=T$TO B$()
0760 FOR J=1TO X+1
   : IF VAL(B$(J))*256+VAL(STR(B$(J),2))<>JTHEN 800
   : NEXT J
   : IF B$(X+2)<>HEX(0000)THEN 800
   : RETURN
0780 DEFFN'42(X)
   : BIN(T$)=X
   : X=X-1
0790 MAT SEARCHA$(),<T$TO B$()
   : GOTO 760
0800 E(4)=E(4)+1
   : GOTO 820
0810 PRINT "OK"
   : GOTO 830
0820 PRINT TAB(40);E(4);"ERRORS"
0830 LOAD DC T"OP5D070A"
0840 DEFFN'15
   : LOAD DC T"START"50