Commit | Line | Data |
---|---|---|
7af5ad59 PH |
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 |