

 PROCEDURE [INLINE] syp$mtr_hang_if_system_jrt_set (test_number: 0 .. 255);
?? PUSH (LISTEXT := ON) ??

    VAR
     count: integer;

    IF test_number IN syv$test_jr_system THEN
      count := count + 1;
      display_integer_monitor ( ' Hang monitor JRT test ', test_number);
      REPEAT
        { Give it something to do - even though youll never get out of here.
        count := count + 1;
        #SPOIL (syv$test_jr_system);
        count := count - 1 + 1;
      UNTIL NOT (test_number IN syv$test_jr_system);
    IFEND;
  PROCEND syp$mtr_hang_if_system_jrt_set;
*copyc dfc$test_jr_constants
*copyc syv$test_jr_system
*copyc dfi$monitor_display
?? POP ??
