File: PAUSE.RA of Tape: OS8/OS8-Latest/new-10
(Source file text)
/ 'PAUSE XXXX' STATEMENT INTERNAL FUNCTION / / / VERSION 40A 28-MAY-80 WVDM / / FRUN=0 /SET=1 IF FRUN IS USED / SECT8 #PAUSE /FORTRAN PAUSE HANDLER EXTERN #WRITO EXTERN #RSVO EXTERN #RENDO BASE 0 FSTA PNUM /SAVE ARGUMENT STARTD FLDA 0 /GET RETURN ADDRESS FSTA PAURET STARTF TRAP3 #WRITO JA ZERO JA PAUFMT FLDA PNUM /PRINT A MESSAGE "PAUSE N" TRAP3 #RSVO TRAP3 #RENDO TRAP4 OPAUSE /DO ACTUAL PAUSE PAURET, JA . /RETURN OPAUSE, 0 AND% 0 AND% 0 /WASTE SOME TIME SO THAT THE LAST AND% 0 /TWO CHARS OF THE MESSAGE WILL PRINT. AND% 0 AND% 0 ISZ ZERO JMP OPAUSE+1 DPAUSE, IOF KSF JMP .-1 TAD PARITY KRS TAD MCTLCB /IS IT ^C OR ^B? CLL RAR SZA /YES DON'T CLEAR FLAG KCC /FOR OTHERS CLEAR FLAG CLA 6254 /SKIP ON MULTI-8 ION CDF CIF 0 JMP% OPAUSE PARITY, 200 MCTLCB, -202 PNUM, F 0.0 ZERO, F 0.0 IFZERO FRUN < PAUFMT, TEXT %(' PAUSE'I6/)% > IFNZRO FRUN < PAUFMT, "(&177 "'&177 " &177 "P&177 "A&177 "U&177 "S&177 "E&177 "'&177 "I&177 "6&177 "/&177 ")&177 > END