sw/os8/v3d/sources/fortran/all/pause.ra

   1 /
   2 / VERSION 5A 4-26-77 MH
   3 /
   4         SECT8   #PAUSE  /FORTRAN PAUSE HANDLER
   5         EXTERN  #WRITO
   6         EXTERN  #RSVO
   7         EXTERN  #RENDO
   8         BASE    0
   9         FSTA    PNUM    /SAVE ARGUMENT
  10         STARTD
  11         FLDA    0       /GET RETURN ADDRESS
  12         FSTA    PAURET
  13         STARTF
  14         TRAP3   #WRITO
  15         JA      ZERO
  16         JA      PAUFMT
  17         FLDA    PNUM    /PRINT A MESSAGE "PAUSE N"
  18         TRAP3   #RSVO
  19         TRAP3   #RENDO
  20         TRAP4   OPAUSE  /DO ACTUAL PAUSE
  21 PAURET, JA      .       /RETURN
  22
  23 OPAUSE, 0
  24         AND%    0
  25         AND%    0       /WASTE SOME TIME SO THAT THE LAST
  26         AND%    0       /TWO CHARS OF THE MESSAGE WILL PRINT.
  27         AND%    0
  28         AND%    0
  29         ISZ     ZERO
  30         JMP     OPAUSE+1
  31 DPAUSE, IOF
  32         KSF
  33         JMP     .-1
  34         KRB
  35         CLA
  36         ION
  37         CDF CIF 0
  38         JMP%    OPAUSE
  39
  40 PNUM,   F       0.0
  41 ZERO,   F       0.0
  42 PAUFMT, TEXT    %(' PAUSE'I6/)%
  43         END