image of READY prompt

Wang2200.org

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

# Sector 328, program filename = 'WCPD260A'
0010 REM .   WCPD260A,   00-00 (06/28/75),   12002
   : DIM C$4,P$1
   : PRINT " TESTING BOOL ........................";
   : A$,B$=HEX(00FFE11ED22DC33CB44BA55A96698778)
   : C$="ABCD"
0130 BOOL0(A$,A5)
   : P$=HEX(00)
   : GOSUB 500
   : A$=B$
   : BOOL0(STR(A$,1,16),A$)
   : GOSUB 500
0150 A$=B$
   : BOOLF(A$,STR(C$,2,2))
   : IF STR(A$,1,2)<>HEX(FFFF)THEN 530
   : IF STR(A$,3)<>STR(B$,3)THEN 530
   : P$=HEX(FF)
   : A$=B$
   : BOOLF(A$,B1)
   : GOSUB 500
   : E$=HEX(0123456789ABCDEFF1E2D3C4)
   : A$,A1$=B$
   : OR (A$,B3)
   : BOOLE(A1$,B3)
   : GOSUB 520
0210 OR (A$,E$)
   : BOOLE(A1$,E$)
   : GOSUB 520
   : AND (A$,C4)
   : BOOL8(A1$,C4)
   : GOSUB 520
   : AND (A$,E$)
   : BOOL8(A1$,E$)
   : GOSUB 520
0240 XOR (A$,A5)
   : BOOL6(A1$,A5)
   : GOSUB 520
   : XOR (A$,E$)
   : BOOL6(A1$,E$)
   : GOSUB 520
   : OR (A$,96)
   : BOOL1(A1$,96)
   : GOSUB 510
   : OR (A$,E$)
   : BOOL1(A1$,E$)
   : GOSUB 510
   : AND (A$,87)
   : BOOL7(A1$,87)
   : GOSUB 510
   : AND (A$,E$)
   : BOOL7(A1$,E$)
   : GOSUB 510
0300 XOR (A$,B4)
   : BOOL9(A1$,B4)
   : GOSUB 510
   : XOR (A$,E$)
   : BOOL9(A1$,E$)
   : GOSUB 510
   : BOOLC(A1$,F0)
   : GOSUB 520
   : BOOLC(A1$,E$)
   : GOSUB 520
0340 AND (A$,00)
   : OR (A$,C3)
   : BOOLA(A1$,C3)
   : GOSUB 520
   : BOOLA(A1$,E$)
   : A$=E$
   : GOSUB 520
   : BOOL3(A1$,96)
   : GOSUB 510
   : BOOL3(A1$,E$)
   : GOSUB 510
   : BOOL5(A$,78)
   : P$=HEX(87)
   : GOSUB 500
   : A$,A1$=B$
   : A$=E$
   : BOOL5(A1$,E$)
   : GOSUB 510
0400 XOR (A$,5A)
   : AND (A$,5A)
   : BOOL2(A1$,5A)
   : GOSUB 520
   : XOR (A$,E$)
   : AND (A$,E$)
   : BOOL2(A1$,E$)
   : GOSUB 520
0420 XOR (A$,2D)
   : AND (A$,2D)
   : BOOLD(A1$,2D)
   : GOSUB 510
   : XOR (A$,E$)
   : AND (A$,E$)
   : BOOLD(A1$,E$)
   : GOSUB 510
   : XOR (A$,96)
   : AND (A$,69)
   : BOOL4(A1$,96)
   : GOSUB 520
   : BOOL4(A1$,E$)
   : XOR (A$,E$)
   : XOR (E$,FF)
   : AND (A$,E$)
   : GOSUB 520
0460 XOR (A$,C3)
   : AND (A$,3C)
   : BOOLB(A1$,C3)
   : GOSUB 510
   : BOOLB(A1$,E$)
   : XOR (A$,E$)
   : XOR (E$,FF)
   : AND (A$,E$)
   : GOSUB 510
0490 PRINT "OK"
   : GOTO 550
0500 FOR I=1TO 16
   : IF STR(A$,I,1)<>P$THEN 530
   : NEXT I
   : RETURN
0510 XOR (A$,FF)
0520 IF A$<>A1$THEN 530
   : A$,A1$=B$
   : RETURN
0530 E(1)=E(1)+1
0540 PRINT TAB(40);E(1);"ERRORS"
0550 LOAD DC T"WCPD270A"
0560 DEFFN'15
   : LOAD DC T"START"50