<div id='wikitext'>
<pre><b> File: PUT.LS of Disk: V50/Source/Source-Listing-FORTRAN-2</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>

RALF V50A   24-JUL-20    PAGE 1

                    SECT    PUT
            /        INTEGER FUNCTION PUT(OBJECT,WHERE,PVAL)
            /        C
            /        C PUT IS THE SAME AS MOVE, EXCEPT IT RETURNS A VALUE USED TO SET UP THE
            /        C NEGATED PROP VALUES FOR THE REPOSITORY OBJECTS.
            /        C
            /        IMPLICIT INTEGER (A-Z)
            /        C
            
                    EXTERN  MOVE
00000 1030          JA      #ST
00001 0063  
            #XR,    ORG     .+10
00012 2025          TEXT    +PUT  +
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
            PVAL,   ORG     .+3
00034 0001  M1,     F       -1.0
00035 6000  
00036 0000  
                    ORG     #BASE+30
00053 0040          FNOP
00054 1030          JA      #RET
00055 0015  
00056 0040          FNOP
00057 0000  #GOBAK, 0;0
00060 0000  
                    #LBL=.
                    ORG     #LBL
            #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 6400          FSTA    #G1
00101 0114  
00102 0710          FLDA%   #BASE,1+
00103 6400          FSTA    #G2
RALF V50A   24-JUL-20    PAGE 1-1

00104 0116  
00105 0710          FLDA%   #BASE,1+
00106 6202          FSTA    PVAL
00107 0005          STARTF
            /        CALL MOVE(OBJECT,WHERE)
00110 1130          JSR     MOVE
00111 0000  
00112 1030          JA      .+6
00113 0120  
00114 1030  #G1,    JA      .
00115 0114  
00116 1030  #G2,    JA      .
00117 0116  
            /        PUT=(-1)-PVAL
00120 0203          FLDA    M1
00121 2602          FSUB%   PVAL
00122 1030          JA      #RTN
00123 0061  
RALF V50A   24-JUL-20    PAGE 1-2

NO ERRORS 
13 SYMBOLS, NO ABS REFS 

 #      C 00000   #BASE    00023   #GOBAK   00057   #G1      00114  
 #G2      00116   #LBL     00061   #MAIN  S 00000   #RET     00015  
 #RTN     00061   #ST      00063   #XR      00002   MOVE   X 00000  
 M1       00034   PUT    S 00124   PVAL     00031  
</pre>
<hr/>
</div>