Wang 2200 Virtual Media

Listing of file='M3' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 147, program filename = 'M3'
0010 COM H7$8
   : DIM X$1,E$2
0020 E$=HEX(07DC)
   : ADDC(E$,STR(H7$,2,2))
   : ADDC(E$,STR(H7$,2,2))
0030 HEXPRINT H7$;
   : PRINT "   ";
   : HEXPRINT E$;
0040 B=INT(VAL(E$)/32)
   : A=INT(B/2)
   : B=16*(B-2*A)
0050 X$=STR(E$,2)
   : AND (X$,10)
   : B=8-VAL(X$)/2+B
0060 PRINT "   BOARD";A+1;
0080 A=0
   : FOR I=1TO 8
   : X$=H7$
   : AND (X$,80)
   : IF STR(X$,1,1)=HEX(00)THEN 130
   : A=I+4
0130 ROTATE(STR(H7$,1,1),1)
   : NEXT I
   : IF A=0THEN 180
0150 A=A-8*INT((A-1)/8)
   : PRINT ,"CHIP # ";A+B;" IS BAD"
0160 IF STR(H7$,4,1)=HEX(00)THEN 190
   : ADDC(E$,STR(H7$,4,2))
   : STR(H7$,4,1)=HEX(00)
   : PRINT " OR POSSIBLY ";
   : HEXPRINT E$;
   : GOTO 40
0180 PRINT " MEMORY PROBLEM, NOT DECODABLE"
0190 LOAD DC T"M0"