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