Add std/string/array/concat.lb
This commit is contained in:
		
							parent
							
								
									5ac9f3e5da
								
							
						
					
					
						commit
						fcdb37b72f
					
				
							
								
								
									
										25
									
								
								std/string/array/concat.lb
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										25
									
								
								std/string/array/concat.lb
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,25 @@
 | 
				
			|||||||
 | 
					@ 0
 | 
				
			||||||
 | 
					 args 0
 | 
				
			||||||
 | 
					 size
 | 
				
			||||||
 | 
					 #exec std/string/array/rev.lb
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					 args 1
 | 
				
			||||||
 | 
					 dup
 | 
				
			||||||
 | 
					@ 1
 | 
				
			||||||
 | 
					 kjz 2
 | 
				
			||||||
 | 
					 args 1
 | 
				
			||||||
 | 
					 #exec std/rot.lb
 | 
				
			||||||
 | 
					 #exec std/rot.lb
 | 
				
			||||||
 | 
					 #expr -
 | 
				
			||||||
 | 
					 jmp 1
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					@ 2
 | 
				
			||||||
 | 
					 pop
 | 
				
			||||||
 | 
					 ;#exec std/string/array/rev.lb ; Finish getting arguments
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					 #expr +
 | 
				
			||||||
 | 
					 #exec std/rev.lb 
 | 
				
			||||||
 | 
					 pop
 | 
				
			||||||
 | 
					 size
 | 
				
			||||||
 | 
					 quit
 | 
				
			||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user