image of READY prompt

Wang2200.org

Listing of file='BDIAG24' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector sector 366, program filename = 'BDIAG24 '
0020 PRINT AT(09,32);"AND,OR,XOR,BOOL <-- TESTING",
0080 S=SPACE
0090 DIM A$1,A$(513)1
0100 A$=HEX(CA)
   : OR (A$,AC)
   : IF A$<>HEX(EE)THEN 8990
0110 A$=HEX(CA)
   : XOR (A$,AC)
   : IF A$<>HEX(66)THEN 8990
0120 A$=HEX(CA)
   : AND (A$,AC)
   : IF A$<>HEX(88)THEN 8990
0130 A$=HEX(CA)
   : BOOL0(A$,AC)
   : IF A$<>HEX(00)THEN 8990
0140 A$=HEX(CA)
   : BOOL1(A$,AC)
   : IF A$<>HEX(11)THEN 8990
0150 A$=HEX(CA)
   : BOOL2(A$,AC)
   : IF A$<>HEX(24)THEN 8990
0160 A$=HEX(CA)
   : BOOL3(A$,AC)
   : IF A$<>HEX(35)THEN 8990
0170 A$=HEX(CA)
   : BOOL4(A$,AC)
   : IF A$<>HEX(42)THEN 8990
0180 A$=HEX(CA)
   : BOOL5(A$,AC)
   : IF A$<>HEX(53)THEN 8990
0190 A$=HEX(CA)
   : BOOL6(A$,AC)
   : IF A$<>HEX(66)THEN 8990
0200 A$=HEX(CA)
   : BOOL7(A$,AC)
   : IF A$<>HEX(77)THEN 8990
0210 A$=HEX(CA)
   : BOOL8(A$,AC)
   : IF A$<>HEX(88)THEN 8990
0220 A$=HEX(CA)
   : BOOL9(A$,AC)
   : IF A$<>HEX(99)THEN 8990
0230 A$=HEX(CA)
   : BOOLA(A$,AC)
   : IF A$<>HEX(AC)THEN 8990
0240 A$=HEX(CA)
   : BOOLB(A$,AC)
   : IF A$<>HEX(BD)THEN 8990
0250 A$=HEX(CA)
   : BOOLC(A$,AC)
   : IF A$<>HEX(CA)THEN 8990
0260 A$=HEX(CA)
   : BOOLD(A$,AC)
   : IF A$<>HEX(DB)THEN 8990
0270 A$=HEX(CA)
   : BOOLE(A$,AC)
   : IF A$<>HEX(EE)THEN 8990
0280 A$=HEX(CA)
   : BOOLF(A$,AC)
   : IF A$<>HEX(FF)THEN 8990
0300 FOR I=1TO 8
   : B$,C$=ALL(FF)
   : AND (STR(B$,I,I),5A)
   : STR(C$,I,I)=ALL(5A)
   : IF B$<>C$THEN 8990
   : XOR (STR(B$,I,I),FF)
   : STR(C$,I,I)=ALL(A5)
   : OR (STR(B$,I,I),5A)
   : STR(C$,I,I)=ALL(FF)
   : IF B$<>C$THEN 8990
   : NEXT I
0320 FOR I=1TO 16
   : B$,C$,D$=ALL(FF)
   : XOR (B$,STR(C$,1,I))
   : STR(D$,1,I)=ALL(00)
   : IF D$<>B$THEN 8990
   : NEXT I
0330 OR (A$(),FF)
   : AND (A$(),5A)
   : XOR (A$(),FF)
   : BOOLE(A$(),5A)
   : IF POS(A$()<>FF)<>0THEN 8990
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(24)=E(24)+1
9000 PRINT AT(09,48,16);
   : IF E(24)=0THEN PRINT "OK";
   : ELSE PRINT E(24);"ERRORS"
9010 LOAD DC T"BDIAG25 "