Section 14: Flags220
Keystrokes Display      
PRGM 
       
     
g GTO · · 
  00 REG 46    
     
g LBL 
       
     
ALPHA HEX ALPHA 
  01 LBLTHEX    
        This initializes the program by storing A through F in R10 through R15, respectively.
ALPHA A 
  02TA _    
 
g ASTO 10 
  03 ASTO 10    
 
B 
  04TB _    
 
g ASTO 11 
  05 ASTO 11    
 
C 
  06TC _    
 
g ASTO 12 
  07 ASTO 12    
 
D 
  08TD _    
 
g ASTO 13 
  09 ASTO 13    
 
E 
  10TE _    
 
g ASTO 14 
  11 ASTO 14    
 
F 
  12TF _    
 
g ASTO 15 ALPHA 
  13 ASTO 15    
 
g LBL 01 
  14 LBL 01    
     
ALPHA INPUT? ALPHA 
  15TINPUT?    
     
XEQ 
       
     
ALPHA PROMPT ALPHA 
  16 PROMPT    
    Prompts and stops for input.
ALPHA FS?C ALPHA 
       
     
22 
  17 FS?C 22    
    Was the input a number?...
g RTN 
  18 RTN    
    ...yes, displays number and stops.
XEQ 
       
     
ALPHA FC?S ALPHA 
       
     
23 
  19 FS?C 23    
    Was the input a ALPHA?...
g GTO 01 
  20 GTO 01    
    ...yes, goes to LBL 01.
APHA g ASTO · X 
  20 GTO 01    
    No, places the input into the X-register.
APHA 
       
   
10.01501 
  22 10.01501      
     
STO 02 
  23 STO 02    
    Stores the loop control number into R02.
 
       
   
g LBL 02 
  24 LBL 02    
     
R  
  25 RDN    
     
RCL g 02 
  26 RCL IND 02    
    Recalls the letter in the indirectly addressed register.