A large commit.
[pdp8.git] / sw / os8 / v3d / sources / fortran / dectapes / dectape2 / 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