File: EXPIR.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1 /R=R1**R2 INTERNAL FUNCTION / / / VERSION 50A 27-MAY-80 WVDM / / SECT #EXPIR BASE 0 EXTERN EXP3 00000 1030 JA . 00001 0000 00002 6400 FSTA EXPON,0 /EXPONENT 00003 0024 00004 0200 FLDA 0 /BASE CONTAINS BASE. NICE! 00005 6400 FSTA BASE,0 00006 0021 00007 1130 JSR EXP3 /EXP3(BASE,EXPON) 00010 0000 00011 1030 JA .+6 00012 0017 00013 1030 JA BASE 00014 0021 00015 1030 JA EXPON 00016 0024 00017 1030 JA #EXPIR 00020 0000 00021 0000 BASE, F 0.0 00022 0000 00023 0000 00024 0000 EXPON, F 0.0 00025 0000 00026 0000 RALF V50A 8-APR-92 PAGE 1-1 NO ERRORS 4 SYMBOLS, NO ABS REFS # C 00000 #EXPIR S 00027 #MAIN S 00000 BASE 00021 EXPON 00024 EXP3 X 00000