home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 January / Chip_1997-01_cd.bin / ms95 / disk23 / dir05 / f008920.re_ / f008920.re
Text File  |  1996-04-02  |  1KB  |  36 lines
  1. ; DISPCHNG.UCM -- sequentially highlite all that have been modified in
  2. ;          a design file. Should be run in conjuction with 
  3. ;
  4.  
  5.          KEY 'NOECHO'
  6.          CMD NULCMD              ; Clear MicroStation state
  7.      MSG 'cfDisplay Changes'
  8.  
  9.          SET WWSECT = 0               ; Set search to the beginning of the file
  10.          SET WWBYTE = 0
  11.          SET CUREBL = WWSECT
  12.          SET CUREBY = WWBYTE
  13.  
  14. TOP:
  15.          RED CUREBL, CUREBY           ; Find first element
  16.          TST RELERR NE 0, EXITUC      ; Exit when at the EOF
  17.      TST UELETY EQ 34, SKIP          ;    Skip shared cell definition element
  18.  
  19.      SET R0 = SY.PRO & 1024       ; test for modified or new bit set
  20.      TST R0 EQ 0, SKIP            ; in properties word
  21.  
  22.      KEY 'DISPLAY HILITE'
  23.      PNT                          ; hilite it
  24.  
  25. SKIP:
  26.          SET CUREBL = ELEBLK          ; point to next element
  27.          SET CUREBY = ELECNT
  28.          GO TOP
  29.  
  30. EXITUC:  SET WWSECT = 0               ; reset file pointers
  31.          SET WWBYTE = 0
  32.          KEY 'ECHO'
  33.          CMD NULCMD
  34.          MSG 'stDisplay Changes Completed'
  35.          END
  36.