*                                                                               
*  TELEFILE ASSEMBLY INSTRUCTION PROCEDURES                                     
*                          FOR TCP-R                                            
*  UPDATED ON  SEPTEMBER 22, 1986  BY RGS.                                      
*                                                                               
         OPEN     A,G1,IFE,X,Y,Z                                                
G1       SET      1,7,4,3,17                                                    
IFE      SET      'INSTRUCTION FORMAT ERROR'                                    
P        SET      (S:IVAL&1)                                                    
S7       SET      (S:IVAL&8)=8                                                  
S9       SET      (S:IVAL&X'10')=X'10'                                          
Z        SET      2*S9                                                          
* USAGE FREQ 9                                                                  
LLOCKS   CNAME    1                                                             
         DO       S7                                                            
LMAP     CNAME    4                                                             
LPC      CNAME    2                                                             
         DO       S9                                                            
LMAPRE   CNAME    5                                                             
         FIN                                                                    
         FIN                                                                    
MMC      CNAME    0                                                             
         PROC                                                                   
         BOUND    4                                                             
A        SET      NAME|AF(1)                                                    
LF       EQU,0    %                                                             
         GEN,G1   0,X'6F',CF(2),A,0                                             
         ERROR,1,NUM(CF)~=2|A>5|CF(2)&1|AFA   IFE                               
         PEND                                                                   
ANLZ     S:SIN,0  X'44'                                                         
BC       S:SIN,1  X'698'                                                        
BDP      S:SIN,1  X'694'                                                        
BEV      S:SIN,1  X'688'                                                        
BIL      S:SIN,1  X'689'                                                        
BNC      S:SIN,1  X'688'                                                        
BNCNO    S:SIN,1  X'68C'                                                        
BNSO     S:SIN,1  X'688'                                                        
BNSU     S:SIN,1  X'68A'                                                        
BOD      S:SIN,1  X'698'                                                        
BOL      S:SIN,1  X'699'                                                        
BSE      S:SIN,1  X'691'                                                        
BSF      S:SIN,1  X'694'                                                        
BSNE     S:SIN,1  X'681'                                                        
BSNF     S:SIN,1  X'68F'                                                        
BSO      S:SIN,1  X'698'                                                        
BSU      S:SIN,1  X'692'                                                        
BWP      S:SIN,1  X'684'                                                        
CAL2     S:SIN,0  X'05'                                                         
CAL3     S:SIN,0  X'06'                                                         
CAL4     S:SIN,0  X'07'                                                         
INT      S:SIN,0  X'6B'                                                         
* USAGE FREQ 8                                                                  
         DO       S7                                                            
         DO       2=(S:IVAL&2)                                                  
BID      S:SIN,1  X'698'                                                        
BLD      S:SIN,1  X'688'                                                        
DSA      S:SIN,1  X'7C0'                                                        
         FIN                                                                    
         DO       P                                                             
BIOANR   S:SIN,1  X'698'                                                        
BIOAR    S:SIN,1  X'688'                                                        
BIODNO   S:SIN,1  X'684'                                                        
BIODO    S:SIN,1  X'694'                                                        
BIOSNP   S:SIN,1  X'694'                                                        
BIOSNS   S:SIN,1  X'694'                                                        
BIOSP    S:SIN,1  X'684'                                                        
BIOSS    S:SIN,1  X'684'                                                        
LRP      S:SIN,1  X'2F0'                                                        
         FIN                                                                    
         DO       S7                                                            
CBS      CNAME    X'60'                                                         
         DO       2=(S:IVAL&2)                                                  
EBS      CNAME    X'63'                                                         
         FIN                                                                    
MBS      CNAME    X'61'                                                         
TBS      CNAME    X'41'                                                         
TTBS     CNAME    X'40'                                                         
         PROC                                                                   
         BOUND    4                                                             
LF       EQU,0    %                                                             
         GEN,8,4,20 NAME,CF(2),BA(AF)                                           
         ERROR,1,NUM(CF)~=2|AFA    IFE                                          
         PEND                                                                   
         FIN                                                                    
         FIN                                                                    
* USAGE FREQ 7                                                                  
AIO      CNAME    X'6E'                                                         
         PROC                                                                   
         BOUND    4                                                             
LF       EQU,0    %                                                             
         GEN,G1   AFA,NAME,CF(2),AF(2),WA(AF(1))                                
         ERROR,1,NUM(CF)~=2|NUM(AF)>2 IFE                                       
         PEND                                                                   
LMS      S:SIN,0  X'2D'                                                         
LPSD     S:SIN,0  X'0E'                                                         
XPSD     S:SIN,0  X'0F'                                                         
         DO       4=(S:IVAL&4)                                                  
FAL      S:SIN,0  X'1D'                                                         
FAS      S:SIN,0  X'3D'                                                         
FDL      S:SIN,0  X'1E'                                                         
FDS      S:SIN,0  X'3E'                                                         
FML      S:SIN,0  X'1F'                                                         
FMS      S:SIN,0  X'3F'                                                         
FSL      S:SIN,0  X'1C'                                                         
FSS      S:SIN,0  X'3C'                                                         
         FIN                                                                    
         DO       S7                                                            
CVA      S:SIN,0  X'29'                                                         
CVS      S:SIN,0  X'28'                                                         
         FIN                                                                    
         DO       2=(S:IVAL&2)                                                  
DA       S:SIN,0  X'79'                                                         
DC       S:SIN,0  X'7D'                                                         
DD       S:SIN,0  X'7A'                                                         
DL       S:SIN,0  X'7E'                                                         
DM       S:SIN,0  X'7B'                                                         
DS       S:SIN,0  X'78'                                                         
DST      S:SIN,0  X'7F'                                                         
PACK     S:SIN,0  X'76'                                                         
UNPK     S:SIN,0  X'77'                                                         
         FIN                                                                    
* USAGE FREQ 6                                                                  
AD       S:SIN,0  X'10'                                                         
CD       S:SIN,0  X'11'                                                         
CLM      S:SIN,0  X'19'                                                         
CLR      S:SIN,0  X'39'                                                         
DH       S:SIN,0  X'56'                                                         
EOR      S:SIN,0  X'48'                                                         
LAD      S:SIN,0  X'1B'                                                         
LAH      S:SIN,0  X'5B'                                                         
LAS      S:SIN,0  X'26'                                                         
LAW      S:SIN,0  X'3B'                                                         
LC       S:SIN,1  X'702'                                                        
LCD      S:SIN,0  X'1A'                                                         
LF       S:SIN,1  X'701'                                                        
MH       S:SIN,0  X'57'                                                         
MSP      S:SIN,0  X'13'                                                         
MTB      S:SIN,0  X'73'                                                         
SD       S:SIN,0  X'18'                                                         
* USAGE FREQ 5                                                                  
LCFI     CNAME    X'3000'                                                       
LCI      CNAME    X'2000'                                                       
LFI      CNAME    X'1000',0                                                     
         PROC                                                                   
         BOUND    4                                                             
LF       EQU,0    %                                                             
         GEN,8,16,4,4  2,NAME,AF                                                
         ERROR,1,AFA|NUM(AF)=0       IFE                                        
         PEND                                                                   
         DO       S9&P                                                          
LRA      S:SIN,0  X'2C'                                                         
FLVA     S:SIN,0  X'17'                                                         
LBS      S:SIN,1  X'270'                                                        
STBS     S:SIN,1  X'271'                                                        
RIO      CNAME    2                                                             
POLP     CNAME    4                                                             
POLR     CNAME    6                                                             
         PROC                                                                   
         DO       AFA                                                           
LF       EQU,0    %                                                             
         GEN,G1   1,X'4F',CF(2),AF(2),WA(AF(1))                                 
         ELSE                                                                   
LF       EQU,0    %                                                             
         GEN,8,4,3,4,5,8   X'4F',CF(2),AF(2),NAME,AF(1),0                       
         FIN                                                                    
         PEND                                                                   
         FIN                                                                    
         DO       P                                                             
HIO      CNAME    X'094F'                                                       
RD       CNAME    X'016C'                                                       
SIO      CNAME    X'094C'                                                       
TDV      CNAME    X'094E'                                                       
TIO      CNAME    X'094D'                                                       
WAIT     CNAME    X'032E'                                                       
WD       CNAME    X'016D'                                                       
         FIN                                                                    
NOP      CNAME    X'0202'                                                       
PZE      CNAME    X'0200'                                                       
SFL      CNAME    X'1424'                                                       
SFS      CNAME    X'0424'                                                       
* IS -IO|TDV                                                                    
* . IS SF-                                                                      
* . . IS PZE|WAIT|NOP                                                           
* . . . PRIVILEGED                                                              
* X X X X   :2ND DIGIT OF NAME                                                  
         PROC                                                                   
         BOUND    4                                                             
X        SET      NAME**-8&X'F'                                                 
Y        SET      NAME&X'7F'                                                    
         ERROR,1,NUM(CF)~=2&(X&2)=0|NUM(AF)>2 IFE                               
         GOTO,NUM(AF(1)) A,B,C                                                  
A        DO       (X&4)=0|AFA                                                   
LF       EQU,0    %                                                             
         GEN,G1   AFA,Y,CF(2),AF(2),WA(AF(1))                                   
         ERROR,1,Y=2&(NUM(CF)>1|AFA)    IFE                                     
         ELSE                                                                   
         GEN,8,4,3,6,3,1,7   Y,CF(2),AF(2),0,NAME(1)**-12,0,AF(1)               
LF       EQU,0    %                                                             
         FIN                                                                    
         GOTO     EXIT                                                          
B        ERROR,1,(X&6)>0 IFE                                                    
         DO       X=1                                                           
LF       EQU,0    %                                                             
         GEN,8,4,3,1,4,12    Y,CF(2),AF(2),0,AF(1,1),AF(1,2)                    
         ELSE                                                                   
LF       EQU,0    %                                                             
         GEN,8,4,3,6-Z,3+Z,1,7  Y,CF(2),AF(2),0,AF(1,1),0,AF(1,2)               
         FIN                                                                    
         GOTO     EXIT                                                          
C        ERROR,1,(X&8)=0 IFE                                                    
         GEN,8,4,3,6-Z,3=Z,1,3,4     ;                                          
                  Y,CF(2),AF(2),0,AF(1,1),1,AF(1,2),AF(1,3)                     
EXIT     PEND                                                                   
         DO       S9                                                            
SSD      CNAME    X'E'                                                          
SSS      CNAME    X'C'                                                          
         FIN                                                                    
SAD      CNAME    X'A'                                                          
SAS      CNAME    X'8'                                                          
SCD      CNAME    X'6'                                                          
SCS      CNAME    X'4'                                                          
SLD      CNAME    X'2'                                                          
SLS      CNAME    X'0'                                                          
         PROC                                                                   
         BOUND    4                                                             
         ERROR,1,NUM(CF)~=2|NUM(AF)=0   IFE                                     
         DO       AFA                                                           
LF       EQU,0    %                                                             
         GEN,G1   1,X'25',CF(2),AF(2),WA(AF(1))                                 
         ELSE                                                                   
LF       EQU,0    %                                                             
         GEN,8,4,3,10,7   X'25',CF(2),AF(2),NAME,AF(1)                          
         FIN                                                                    
         PEND                                                                   
         CLOSE    A,G1,IFE,P,S7,S9,X,Y,Z                                        
* USAGE FREQ 4                                                                  
BNOV     S:SIN,1  X'684'                                                        
BOV      S:SIN,1  X'694'                                                        
CB       S:SIN,0  X'71'                                                         
EXU      S:SIN,1  X'670'                                                        
LCF      S:SIN,1  X'703'                                                        
LCH      S:SIN,0  X'5A'                                                         
LCW      S:SIN,0  X'3A'                                                         
LS       S:SIN,0  X'4A'                                                         
MTH      S:SIN,0  X'53'                                                         
PLM      S:SIN,0  X'0A'                                                         
PLW      S:SIN,0  X'08'                                                         
PSM      S:SIN,0  X'0B'                                                         
PSW      S:SIN,0  X'09'                                                         
S        S:SIN,0  X'25'                                                         
SF       S:SIN,0  X'24'                                                         
SH       S:SIN,0  X'58'                                                         
STCF     S:SIN,1  X'740'                                                        
XW       S:SIN,0  X'46'                                                         
* USAGE FREQ 3                                                                  
AH       S:SIN,0  X'50'                                                         
BCR      S:SIN,0  X'68'                                                         
BCS      S:SIN,0  X'69'                                                         
BGZ      S:SIN,1  X'692'                                                        
BLEZ     S:SIN,1  X'682'                                                        
BLZ      S:SIN,1  X'691'                                                        
CAL1     S:SIN,0  X'04'                                                         
CH       S:SIN,0  X'51'                                                         
CS       S:SIN,0  X'45'                                                         
DW       S:SIN,0  X'36'                                                         
LM       S:SIN,0  X'2A'                                                         
MI       S:SIN,2  X'23'                                                         
MW       S:SIN,0  X'37'                                                         
STH      S:SIN,0  X'55'                                                         
STM      S:SIN,0  X'2B'                                                         
STS      S:SIN,0  X'47'                                                         
* USAGE FREQ 2                                                                  
AND      S:SIN,0  X'4B'                                                         
AWM      S:SIN,0  X'66'                                                         
BANZ     S:SIN,1  X'694'                                                        
BAZ      S:SIN,1  X'684'                                                        
BDR      S:SIN,0  X'64'                                                         
BGE      S:SIN,1  X'681'                                                        
BGEZ     S:SIN,1  X'681'                                                        
BIR      S:SIN,0  X'65'                                                         
BLE      S:SIN,1  X'682'                                                        
BNE      S:SIN,1  X'693'                                                        
LD       S:SIN,0  X'12'                                                         
LH       S:SIN,0  X'52'                                                         
MTW      S:SIN,0  X'33'                                                         
OR       S:SIN,0  X'49'                                                         
STD      S:SIN,0  X'15'                                                         
SW       S:SIN,0  X'38'                                                         
* USAGE FREQ 1                                                                  
AI       S:SIN,2  X'20'                                                         
AW       S:SIN,0  X'30'                                                         
B        S:SIN,1  X'680'                                                        
BAL      S:SIN,0  X'6A'                                                         
BE       S:SIN,1  X'683'                                                        
BEZ      S:SIN,1  X'683'                                                        
BG       S:SIN,1  X'692'                                                        
BL       S:SIN,1  X'691'                                                        
BNEZ     S:SIN,1  X'693'                                                        
CI       S:SIN,2  X'21'                                                         
CW       S:SIN,0  X'31'                                                         
LI       S:SIN,2  X'22'                                                         
LB       S:SIN,0  X'72'                                                         
LW       S:SIN,0  X'32'                                                         
STB      S:SIN,0  X'75'                                                         
STW      S:SIN,0  X'35'                                                         
         END                                                                    
