S5 program help

:C -DB39 //call DB39

    :L DD 30 //load data double word 30

    :L KG +4000000+3 //'L KG' load constant value (K=Konstante) real (G=gleitpunkt) +0.4+3 = 0.4*10 to the power of 3 = 0.4*1000 = 400.0!!!

    ::G  //divide real-numbers

    :C -DB6  //call DB6

    :T DD 24 //transfert to data double word 24 of DB6

    :

    :

    :C -DB6

    :L DD 234 //Load data double word 234 of DB6

    :L KG +1000000+3 //Load +0.1E+3 = 100.0

    :XG     //XG ? multiply real-numbers <- OK

    :C -DB39

    :T DD 33 //Store the result (DB6.DD234 * 100.0) in data double word 33 of DB39

    :

    :C -DB6

    :L DD 236 //Load data double word 236 of DB6

    :L KG +100000+3

    :XG //Multiply by 100.0

    :C -DB39 

    :T DD 72 //STore in data double word of DB39

    :

    :C -DB6

    :AN D 233.0 //and not data bit 233.0 of DB6

    :C -DB39

    := D 40.8 //if D233.0 in DB6 is false then D40.8 in DB39 is true

    :

    :C -DB7

    :L DD 70

    :C -DB39

    :T DD 79 // Copy data double word 70 of DB7 to data double word 79 in DB39