home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / EDISK.ZIP / DISPLAY.INC < prev    next >
Encoding:
Text File  |  1985-12-22  |  1.6 KB  |  64 lines
  1. {  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BEGIN INCLUDE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  2.    Filename :  DISPLAY.INC
  3. }
  4. PROCEDURE DISPLAY (DEV : STRING4; P : BUFFTYPE; DISP : INTEGER);
  5. {  ***************************************************************************
  6.    Display 128 bytes in HEX and ASCII given the starting address (AD), and
  7.    an offset (DISP) to display.
  8.    ***************************************************************************
  9. }
  10. VAR
  11.    I,J     : INTEGER;
  12.    DEVICE  : TEXT;
  13.  
  14. BEGIN
  15.    ASSIGN (DEVICE,DEV);
  16.    REWRITE (DEVICE);
  17.    LOWVIDEO;
  18.    WRITE (DEVICE,' ':6);
  19.    FOR I := 0 TO 15 DO WRITE (DEVICE,HEX(I),' ');
  20.    WRITE (DEVICE,'    ');
  21.    WRITE (DEVICE,'0123456789ABCDEF');
  22.    IF DEV = 'LST:' THEN
  23.    BEGIN
  24.       WRITE (DEVICE,CR,'':6);
  25.       WRITE (DEVICE,REPLICATE(47,'_'),'':5,REPLICATE(16,'_'));
  26.       WRITELN (DEVICE);
  27.    END
  28.    ELSE
  29.       WRITELN (DEVICE);
  30.    FOR I := 0 TO 7 DO
  31.    BEGIN
  32.       LOWVIDEO;
  33.       WRITE (DEVICE,HEX(I*16+DISP):4,'  ');
  34.       HIGHVIDEO;
  35.       FOR J := 0 TO 15 DO
  36.       BEGIN
  37.          WRITE (DEVICE,HEX(P[I*16+J]),' ');
  38.       END;
  39.       WRITE (DEVICE,'    ');
  40.       FOR J := 0 TO 15 DO
  41.       BEGIN
  42.          IF (P[I*16+J] < $7F) AND
  43.             (P[I*16+J] > $1F) THEN
  44.          BEGIN
  45.             HIGHVIDEO;
  46.             WRITE (DEVICE,CHR(P[I*16+J]));
  47.          END
  48.          ELSE
  49.          BEGIN
  50.             LOWVIDEO;
  51.             WRITE (DEVICE,'.');
  52.          END;
  53.       END;
  54.       WRITELN (DEVICE);
  55.       HIGHVIDEO;
  56.    END;
  57.    CLOSE (DEVICE);
  58. END; { DISPLAY }
  59.  
  60.  
  61. {  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< END INCLUDE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  62. }
  63.  
  64.