File: PCT.LS of Disk: V50/Source/Source-Listing-FORTRAN-2
(Source file text)
RALF V50A 24-JUL-20 PAGE 1
SECT PCT
/ PCT(N)=RND(100).LT.N
EXTERN RND
00000 1030 JA #ST
00001 0063
#XR, ORG .+10
00012 2003 TEXT +PCT +
00013 2440
00014 4000
00015 1100 #RET, SETX #XR
00016 0002
00017 1110 SETB #BASE
00020 0023
00021 1030 JA .+3
00022 0024
#BASE, ORG .+6
N, ORG .+3
00034 0007 HUND, F 100.0
00035 3100
00036 0000
ORG #BASE+30
00053 0040 FNOP
00054 1030 JA #RET
00055 0015
00056 0040 FNOP
00057 0000 #GOBAK, 0;0
00060 0000
#RTN, BASE #BASE
00061 1030 JA #GOBAK
00062 0057
00063 0006 #ST, STARTD
00064 0210 0210
00065 6400 FSTA #GOBAK,0
00066 0057
00067 0200 0200
00070 1100 SETX #XR
00071 0002
00072 1110 SETB #BASE
00073 0023
00074 0101 LDX 0,1
00075 0000
00076 6200 FSTA #BASE
00077 0710 FLDA% #BASE,1+
00100 6202 FSTA N
00101 0005 STARTF
/ RND(100)
00102 1130 JSR RND
00103 0000
00104 1030 JA .+0004
00105 0110
00106 1030 JA HUND
00107 0034
/ .LT. N
00110 2602 FSUB% N
EXTERN #LT
00111 1120 JSA #LT
RALF V50A 24-JUL-20 PAGE 1-1
00112 0000
00113 1030 JA #RTN
00114 0061
RALF V50A 24-JUL-20 PAGE 1-2
NO ERRORS
11 SYMBOLS, NO ABS REFS
# C 00000 #BASE 00023 #GOBAK 00057 #LT X 00000
#MAIN S 00000 #RET 00015 #RTN 00061 #ST 00063
#XR 00002 HUND 00034 N 00031 PCT S 00115
RND X 00000