File: PAUSE.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/ 'PAUSE XXXX' STATEMENT INTERNAL FUNCTION
/
/
/ VERSION 50A 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
00000 6400 FSTA PNUM /SAVE ARGUMENT
00001 0057
00002 0006 STARTD
00003 0200 FLDA 0 /GET RETURN ADDRESS
00004 6400 FSTA PAURET
00005 0025
00006 0005 STARTF
00007 3000 TRAP3 #WRITO
00010 0000
00011 1030 JA ZERO
00012 0062
00013 1030 JA PAUFMT
00014 0065
00015 0400 FLDA PNUM /PRINT A MESSAGE "PAUSE N"
00016 0057
00017 3000 TRAP3 #RSVO
00020 0000
00021 3000 TRAP3 #RENDO
00022 0000
00023 4000 TRAP4 OPAUSE /DO ACTUAL PAUSE
00024 0027
00025 1030 PAURET, JA . /RETURN
00026 0025
00027 0000 OPAUSE, 0
00030 0600 AND% 0
00031 0600 AND% 0 /WASTE SOME TIME SO THAT THE LAST
00032 0600 AND% 0 /TWO CHARS OF THE MESSAGE WILL PRINT.
00033 0600 AND% 0
00034 0600 AND% 0
00035 2262 ISZ ZERO
00036 5230 JMP OPAUSE+1
00037 6002 DPAUSE, IOF
00040 6031 KSF
00041 5240 JMP .-1
00042 1255 TAD PARITY
00043 6034 KRS
00044 1256 TAD MCTLCB /IS IT ^C OR ^B?
00045 7110 CLL RAR
00046 7440 SZA /YES DON'T CLEAR FLAG
00047 6032 KCC /FOR OTHERS CLEAR FLAG
00050 7200 CLA
00051 6254 6254 /SKIP ON MULTI-8
RALF V50A 8-APR-92 PAGE 1-1
00052 6001 ION
00053 6203 CDF CIF 0
00054 5627 JMP% OPAUSE
00055 0200 PARITY, 200
00056 7576 MCTLCB, -202
00057 0000 PNUM, F 0.0
00060 0000
00061 0000
00062 0000 ZERO, F 0.0
00063 0000
00064 0000
IFZERO FRUN <
00065 5047 PAUFMT, TEXT %(' PAUSE'I6/)%
00066 4020
00067 0125
00070 2305
00071 4711
00072 6657
00073 5100
>
IFNZRO FRUN <
PAUFMT, "(&177
"'&177
" &177
"P&177
"A&177
"U&177
"S&177
"E&177
"'&177
"I&177
"6&177
"/&177
")&177
>
RALF V50A 8-APR-92 PAGE 1-2
NO ERRORS
13 SYMBOLS, NO ABS REFS
# C 00000 #MAIN S 00000 #PAUSE 8 00074 #RENDO X 00000
#RSVO X 00000 #WRITO X 00000 DPAUSE 00037 FRUN 00000
MCTLCB 00056 OPAUSE 00027 PARITY 00055 PAUFMT 00065
PAURET 00025 PNUM 00057 ZERO 00062