projects / pdp8.git / blame
| 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 |