File: DSIGN.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/D=DSIGN(D1,D2) DOUBLE PREC. TRANSFER OF SIGN
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
SECT DSIGN
00000 1030 JA #ST
00001 0053
#XR, ORG .+10
00012 0423 TEXT 'DSIGN '
00013 1107
00014 1640
#BASE, ORG .+6
A, ORG .+6
B, ORG .+6
ORG #BASE+31
00046 1030 JA #BASE
00047 0015
00050 0000 GOBACK, 0;0;0
00051 0000
00052 0000
BASE #BASE
DPCHK
00053 0006 #ST, STARTD
00054 0210 0210 /FLDA 10
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 6202 FSTA A
00071 0710 FLDA% #BASE,1+
00072 6204 FSTA B
00073 0050 STARTE
00074 0604 FLDA% B /NEG?
00075 1050 JLT #50 /B POS
00076 0104
00077 0602 FLDA% A
00100 1050 JLT #100
00101 0107
00102 1030 JA GOBACK+1 /A+,B+
00103 0051
00104 0602 #50, FLDA% A
00105 1050 JLT GOBACK+1 /A-,B-
00106 0051
00107 0003 #100, FNEG /OPP. SIGNS
00110 1030 JA GOBACK+1
00111 0051
RALF V50A 8-APR-92 PAGE 1-1
NO ERRORS
9 SYMBOLS, NO ABS REFS
# C 00000 #BASE 00015 #MAIN S 00000 #ST 00053
#XR 00002 #100 00107 #50 00104 A 00023
B 00031 DSIGN S 00112 GOBACK 00050