Skip to Content

SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Loop

Created by: Ton Verra at: 2/28/2011 11:02 AM (10 Replies)

Rating (2)

Thanks 7

Result pages:: |; 1 | 2; |

11 Entries

Entries per page: 10 | all

2/28/2011 11:02 AM	Rate (0)
Ton Verra Gold Member Joined: 4/20/2007 Last visit: 9/1/2025 Posts: 731 Rating: (43)	Hello, Quick question. I'm trying to improve my program. Does anyone know of a way to make this piece faster: BACK: L #CurrentStep L 0 ==I JCN GRO0 L 2#0 T #GroupsCurrentStep JU GR17 GRO0: L #CurrentStep L 1 ==I JCN GRO1 L #GroupsStep1 T #GroupsCurrentStep JU GR17 GRO1: L #CurrentStep L 2 ==I JCN GRO2 L #GroupsStep2 T #GroupsCurrentStep JU GR17 GROn: L #CurrentStep L n ==I JCN GROn L #GroupsStepn T #GroupsCurrentStep JU GR17 (n= 0..17) GR17: NOP 0

Suggestion To thank Quote Answer

2/28/2011 11:28 AM	Rate (1)
hdhosseini Diamond Expert Joined: 1/28/2009 Last visit: 9/15/2025 Posts: 6875 Rating: (1368)	Ton Verra I'm trying to improve my program. Does anyone know of a way to make this piece faster: BACK: L #CurrentStep L 0 ==I JCN GRO0 L 2#0 T #GroupsCurrentStep JU GR17 GRO0: L #CurrentStep L 1 ==I JCN GRO1 L #GroupsStep1 T #GroupsCurrentStep JU GR17 GRO1: L #CurrentStep L 2 ==I JCN GRO2 L #GroupsStep2 T #GroupsCurrentStep JU GR17 GROn: L #CurrentStep L n ==I JCN GROn L #GroupsStepn T #GroupsCurrentStep JU GR17 (n= 0..17) GR17: NOP 0 Hi You can check this link for as an example of jump distributor: case in STL BR
	Demo Channel on Youtube
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Ton Verra

2/28/2011 12:10 PM	Rate (0)
Ton Verra Gold Member Joined: 4/20/2007 Last visit: 9/1/2025 Posts: 731 Rating: (43)	Perfect! Thank you! L #Number //Load jump destination number into ACCU 1-L-L. JL LSTX //Jump destination if ACCU 1-L-L > 24. JU SEG0 //Jump destination if ACCU 1-L-L = 0. JU SEG1 //Jump destination if ACCU 1-L-L = 1. JU SEG2 //Jump destination if ACCU 1-L-L = 2. JU SEG3 //Jump destination if ACCU 1-L-L = 3. JU SEGn LSTX: L 0 T #ActiveGroups JU COMM SEG0: SET L 0 T #ActiveGroups JU COMM SEG1: L #GroupsStep1 T #ActiveGroups JU COMM SEG2: L #GroupsStep2 T #ActiveGroups JU COMM SEG3: L #GroupsStep3 T #ActiveGroups JU COMM SEGn: L #GroupsStepn T #ActiveGroups JU COMM (n=0..24) COMM: NOP 0

Suggestion To thank Quote Answer

2/28/2011 6:51 PM	Rate (1)
Aret Posts: 2348 Rating: (265)	My 5 cents (on initial example) - assuming this is FC I'm trying to improve my program. Does anyone know of a way to make this piece faster: GroupsStep : ARRAY[1..n] OF INT; L P##GroupsStep L #CurrentStep // assuming this is INT // If you need some check to examine limits (i.e. <17) - put it here SLD 4 // SLD3 to get pointer+SLD1 to get *2 (INT has 2 bytes) +D LAR2 L W[AR2, P#0.0] T#GroupsCurrentStep
Aret Posts: 2348 Rating: (265)
Suggestion To thank Quote Answer
This contribution was helpful to 2 thankful Users fritz Ton Verra

3/1/2011 10:32 AM	Rate (0)
Ton Verra Gold Member Joined: 4/20/2007 Last visit: 9/1/2025 Posts: 731 Rating: (43)	I'll have to try that one. Got another loop here. The input is a datablock with 2 pointers, 2 temp values, 2 final values and 100 sample values: AdresRegister DWORD DW#16#80 Beginadres P#16.0 = DW#16#0000080 AdresRegister2 DWORD DW#16#80 MinValueTemp INT 0 MinValue INT 0 MaksMinValueTemp INT 0 MaksMinValue INT 0 StoreValue ARRAY[1..100] INT I got a function to store the values. (using the first pointer) And made another function to scan the block and look for the lowest value. But somehow when the scan is done, I lose the value. I don't understand why. L #DataBlockSample //number of block containing data T #DBNR OPN DB [#DBNR] L DBW [DBD 4] //load value pointer points at L DBW 8 //load stored min value for this scan <I //compare JCN JMP0 //if lower move current value to min value L DBW [DBD 4] T DBW 8 JMP0: L DBD 4 //pointer L P#2.0 //add 20 to go to next value +D T DBD 4 L DBLG //block length SLD 3 >D JNB JMP2 L P#16.0 //restart cycle T DBD 4 L DBW 8 //compare min value with max value. L DBW 12 //if higher, store new min value >I JNB JMP1 L DBW 8 T DBW 12 JMP1: OPN DB [#DBNR] L DBW 12 //when scan is performerd, load temp value to output T DBW 14 L DBW 8 T DBW 10 L 5000 //load maks possible value to min value T DBW 8 JMP2: NOP 0
	Last edited by: Ton Verra at: 3/1/2011 10:44 AM Simplified code.
Suggestion To thank Quote Answer

3/1/2011 3:15 PM	Rate (0)
jacek d Platinum Expert Joined: 9/23/2005 Last visit: 9/15/2025 Posts: 5116 Rating: (768)	The question is which value do you loose. Can you be a little bit more specific ?
	Regards, Jacek What is confusing you is the fact that you never see a number but always its digit representation. So you end up thinking that the number is the representation. - Andrej Bauer Any claims against me - based on whatever legal reason - resulting from the use of any code and/or ideas presented on this forum shall be excluded. #StayWithUkraine
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Ton Verra

3/1/2011 6:43 PM	Rate (0)
Ton Verra Gold Member Joined: 4/20/2007 Last visit: 9/1/2025 Posts: 731 Rating: (43)	I'm sorry. I lose the value stored in #MinValueTemp

Suggestion To thank Quote Answer

3/2/2011 11:10 AM	Rate (0)
jacek d Platinum Expert Joined: 9/23/2005 Last visit: 9/15/2025 Posts: 5116 Rating: (768)	MinValueTemp is at DBW 12 I suppose... Looks like you messed up with addressing.
	Regards, Jacek What is confusing you is the fact that you never see a number but always its digit representation. So you end up thinking that the number is the representation. - Andrej Bauer Any claims against me - based on whatever legal reason - resulting from the use of any code and/or ideas presented on this forum shall be excluded. #StayWithUkraine
Suggestion To thank Quote Answer

3/2/2011 2:55 PM	Rate (0)
Ton Verra Gold Member Joined: 4/20/2007 Last visit: 9/1/2025 Posts: 731 Rating: (43)	Hei, No it isn't. I think I found my flaw. Something to do with the length of the datablock. Thanks anyway!

Suggestion To thank Quote Answer

3/7/2011 11:14 AM	Rate (0)
jacek d Platinum Expert Joined: 9/23/2005 Last visit: 9/15/2025 Posts: 5116 Rating: (768)	I had to have some brainmalfunction while writting my previous post.
	Regards, Jacek What is confusing you is the fact that you never see a number but always its digit representation. So you end up thinking that the number is the representation. - Andrej Bauer Any claims against me - based on whatever legal reason - resulting from the use of any code and/or ideas presented on this forum shall be excluded. #StayWithUkraine
Suggestion To thank Quote Answer
This contribution was helpful to 2 thankful Users Ton Verra hdhosseini

|

Share this page:

Share this page on...

Follow us on