cpu.8080: fix stack effects.
							parent
							
								
									2608214622
								
							
						
					
					
						commit
						375d9813fb
					
				| 
						 | 
				
			
			@ -1395,11 +1395,11 @@ SYMBOL: last-opcode
 | 
			
		|||
 | 
			
		||||
SYNTAX: INSTRUCTION:  ";" parse-tokens parse-instructions ;
 | 
			
		||||
 | 
			
		||||
SYNTAX: cycles 
 | 
			
		||||
SYNTAX: cycles
 | 
			
		||||
  #! Set the number of cycles for the last instruction that was defined.
 | 
			
		||||
  scan-token string>number last-opcode get-global instruction-cycles set-nth ;
 | 
			
		||||
 | 
			
		||||
SYNTAX: opcode ( -- )
 | 
			
		||||
SYNTAX: opcode
 | 
			
		||||
  #! Set the opcode number for the last instruction that was defined.
 | 
			
		||||
  last-instruction get-global 1quotation scan-token hex>
 | 
			
		||||
  dup last-opcode set-global set-instruction ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue