File: SIGN.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=SIGN(R1,R2) SINGLE PREC. SIGN TRANSFER
/
/
/ VERSION 50A 23-MAY-80 WVDM
/
/ R:=SIGN(R2)*ABS(R1)
/
SECT SIGN
ENTRY ISIGN
00000 1030 JA #ST
00001 0053
#XR, ORG .+10
00012 2311 TEXT 'SIGN '
00013 0716
00014 4040
#BASE, ORG .+3
A, ORG .+3
B, ORG .+3
ORG #BASE+31
00046 1030 JA #BASE
00047 0015
00050 0000 GOBACK, 0;0;0
00051 0000
00052 0000
BASE #BASE
ISIGN,
00053 0006 #ST, STARTD
00054 0210 0210
00055 6400 FSTA GOBACK+1,0
00056 0051
00057 0200 0200
00060 1100 SETX #XR
00061 0002
00062 1110 SETB #BASE
00063 0015
00064 0101 LDX 0,1
00065 0000
00066 6200 FSTA #BASE
00067 0710 FLDA% #BASE,1+
00070 6201 FSTA A
00071 0710 FLDA% #BASE,1+
00072 6202 FSTA B
00073 0005 STARTF
00074 0602 FLDA% B
00075 1050 JLT #50
00076 0104
00077 0601 FLDA% A
00100 1050 JLT #100
00101 0107
00102 1030 JA GOBACK+1
00103 0051
00104 0601 #50, FLDA% A
00105 1050 JLT GOBACK+1
00106 0051
00107 0003 #100, FNEG
00110 1030 JA GOBACK+1
RALF V50A 8-APR-92 PAGE 1-1
00111 0051
RALF V50A 8-APR-92 PAGE 1-2
NO ERRORS
10 SYMBOLS, NO ABS REFS
# C 00000 #BASE 00015 #MAIN S 00000 #ST 00053
#XR 00002 #100 00107 #50 00104 A 00020
B 00023 GOBACK 00050 ISIGN 00053 SIGN S 00112