STATUS_L_ADD# ; JOBNAME:STATUS_L_ADD ; JOBCOMMENT:Auslesen der additiven Lambdaregelung ; RESULT:STAT_L_ADD_WERT ; RESULTTYPE:real ; RESULTCOMMENT:Wert des additiven Lambdaregelung ; RESULT:STAT_L_ADD_EINH ; RESULTTYPE:string ; RESULTCOMMENT:Einheit des additiven Lambdaregelung ; RESULT:JOB_STATUS ; RESULTTYPE:string ; RESULTCOMMENT:"OKAY", wenn fehlerfrei ; clear S1 move S1,"RKAT" push #$1.L clear S1 move S1,S2 push #$1.L move F0,F2 push #$1.L clear S1 move S1,S4 push #$1.L clear S1 move S1,"RKAT" tabset "BetriebswTab" tabseek "NAME",S1 jz __00088818 clear S2 clear S1 tabget S2,"TELEGRAM" clear L0 __000884CF: move B4,S2[I1] comp B4,#$0.B jz __00088586 comp B4,#'a' jae __00088502 comp B4,#'A' jae __00088512 comp B4,#'0' jae __00088522 jump __00088818 __00088502: comp B4,#'f' jbe __00088532 jump __00088818 __00088512: comp B4,#'F' jbe __0008853C jump __00088818 __00088522: comp B4,#'9' jbe __00088546 jump __00088818 __00088532: subb B4,#'W' jump __0008854A __0008853C: subb B4,#'7' jump __0008854A __00088546: subb B4,#'0' __0008854A: test I1,#$1.I jnz __00088564 move B6,B4 adds I1,#$1.I jump __000884CF __00088564: move B5,B4 adds I1,#$1.I lsl B6,#$4.B move S1[I0],B6 adds S1[I0],B5 adds I0,#$1.I jump __000884CF __00088586: clear L0 clear L1 tabget S2,"POS_ADR" a2fix I0,S2 tabget S2,"LEN_ADR" a2fix I1,S2 tabget S2,"ADR" a2fix L1,S2 comp I1,#$3.I jnz __000885D5 move S1[I0],B6 subc I1,#$1.I addc I0,#$1.I __000885D5: comp I1,#$2.I jnz __000885EF move S1[I0],B5 subc I1,#$1.I addc I0,#$1.I __000885EF: comp I1,#$1.I jnz __00088604 move S1[I0],B4 subc I1,#$1.I __00088604: comp I1,#$0.I jnz __00088818 clear S2 xsend S2,S1 tabget S4,"MEAS" tabget S1,"BYTE" a2fix I0,S1 tabget S1,"DATA_TYPE" scmp S1,"1" jnz __00088659 move B4,S2[I0] move B5,#$0.B jump __000887BF __00088659: scmp S1,"2" jnz __00088675 move B4,S2[I0] move B5,#$0.B jump __00088719 __00088675: scmp S1,"3" jnz __00088691 move B4,S2[I0] move B5,#$0.B jump __00088723 __00088691: scmp S1,"4" jnz __000886B3 move B4,S2[I0] addc I0,#$1.I move B5,S2[I0] jump __0008872D __000886B3: scmp S1,"5" jnz __000886D5 move B5,S2[I0] addc I0,#$1.I move B4,S2[I0] jump __0008872D __000886D5: scmp S1,"6" jnz __000886F7 move B4,S2[I0] addc I0,#$1.I move B5,S2[I0] jump __0008873A __000886F7: scmp S1,"7" jnz __00088818 move B5,S2[I0] addc I0,#$1.I move B4,S2[I0] jump __0008873A __00088719: fix2flt F2,I2 jump __00088744 __00088723: fix2flt F2,B4 jump __00088744 __0008872D: clear I3 fix2flt F2,L1 jump __00088744 __0008873A: fix2flt F2,I2 jump __00088744 __00088744: tabget S1,"COMPU_TYPE" scmp S1,"--" jz __00088768 jump __00088796 __00088768: tabget S1,"FACT_A" a2flt F0,S1 fmul F2,F0 tabget S1,"FACT_B" a2flt F0,S1 fadd F2,F0 jump __0008880C __00088796: tabset S1 fix2hex S1,I2 tabseek "WERT",S1 tabget S1,"ERGEBNIS" a2flt F2,S1 jump __0008880C __000887BF: tabget S1,"MASK" a2fix I0,S1 move B3,B0 tabget S1,"VALUE" a2fix I0,S1 and B4,B3 xor B4,B0 jnz __000887FD a2flt F2,"1.0" jump __0008880C __000887FD: a2flt F2,"0.0" jump __0008880C __0008880C: push #$1.L jump __00088824 __00088818: push #$0.L jump __00088824 __00088824: pop L1 pop L0 pop L0 pop L0 pop L0 push L1 pop L0 jz __00088A75 nop move L0,#$3.L push L0 atsp L1,#$4.L clear S1 move S1,S2 clear L0 move B0,S1[L1] push L0 pop L0 pop L1 push L0 move L0,#$62.L push L0 pop L1 pop L0 comp L0,L1 jz __00088893 push #$0.L jump __00088899 __00088893: push #$1.L __00088899: pop L0 jz __000888C7 nop clear S1 move S1,"OKAY" push #$1.L clear S3 move S3,S1 pop L0 jump __0008899E __000888C7: move L0,#$3.L push L0 atsp L1,#$4.L clear S1 move S1,S2 clear L0 move B0,S1[L1] push L0 pop L0 pop L1 push L0 move L0,#$7F.L push L0 pop L1 pop L0 comp L0,L1 jz __00088919 push #$0.L jump __0008891F __00088919: push #$1.L __0008891F: pop L0 jz __00088955 nop clear S1 move S1,"NEG_RESPONSE" push #$1.L clear S3 move S3,S1 pop L0 jump __00088973 __00088955: clear S1 move S1,"UNDEF" push #$1.L clear S3 move S3,S1 pop L0 __00088973: clear S1 move S1,"-" push #$1.L clear S4 move S4,S1 pop L0 move L0,#$0.L push L0 move F2,F0 pop L0 __0008899E: etag __000889C2,"STAT_L_ADD_EINH" push #$1.L jump __000889C8 __000889C2: push #$0.L __000889C8: pop L0 jz __000889F8 nop clear S1 move S1,S4 push #$1.L ergs "STAT_L_ADD_EINH",S1 pop L0 __000889F8: etag __00088A1C,"STAT_L_ADD_WERT" push #$1.L jump __00088A22 __00088A1C: push #$0.L __00088A22: pop L0 jz __00088A4F nop move F0,F2 push #$1.L ergr "STAT_L_ADD_WERT",F0 pop L0 __00088A4F: clear S1 move S1,S3 push #$1.L ergs "JOB_STATUS",S1 pop L0 jump __00088B95 __00088A75: clear S1 move S1,"-" push #$1.L clear S4 move S4,S1 pop L0 move L0,#$0.L push L0 move F2,F0 pop L0 etag __00088AC4,"STAT_L_ADD_EINH" push #$1.L jump __00088ACA __00088AC4: push #$0.L __00088ACA: pop L0 jz __00088AFA nop clear S1 move S1,S4 push #$1.L ergs "STAT_L_ADD_EINH",S1 pop L0 __00088AFA: etag __00088B1E,"STAT_L_ADD_WERT" push #$1.L jump __00088B24 __00088B1E: push #$0.L __00088B24: pop L0 jz __00088B51 nop move F0,F2 push #$1.L ergr "STAT_L_ADD_WERT",F0 pop L0 __00088B51: clear S1 move S1,"ERROR_INVALID_VALUE_BETRIEBSWLESEN" push #$1.L ergs "JOB_STATUS",S1 pop L0 __00088B95: eoj eoj