L DBD0 //Load the value from data double word DBD0 into ACCU 1. (This value must be in the floating point format).
L DBD4 //Copy the value from ACCU 1 into ACCU 2. Load the value from data double word DBD4 into ACCU 1. (This value must be in the floating point format).
+R //Add the contents of ACCU 1 and ACCU 2 as floating point numbers (32 bit, IEEE-FP) and save the result in ACCU 1.
L DBD8 //Copy the value from ACCU 1 into ACCU 2 load the value from data double word DBD8 into ACCU 1.
ENT //Copy the contents of ACCU 3 into ACCU 4. Copy the contents of ACCU 2 (intermediate result) into ACCU 3.
L DBD12 //Load the value from data double word DBD12 into ACCU 1.
-R //Subtract the contents of ACCU 1 from the contents of ACCU 2 and store the result in ACCU 1. Copy the contents of ACCU 3 into ACCU 2. Copy the contents of ACCU 4 into ACCU 3.
/R //Divide the contents of ACCU 2 (DBD0 + DBD4) by the contents of ACCU 1 (DBD8 - DBD12). Save the result in ACCU 1.
T DBD16 //Transfer the results (ACCU 1) to data double word DBD16.