| 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 |