3T#D ...[??? PERTYPNO SECT CENT FGN 2 DOC   
 3TJ=    [   
 3W3W    [MACRO FOR ENTERING PERIPHERAL TYPE AND UNIT NO. CONVERSION ROUTINE 
 3WHG    [BINARY TO CHARACTER
 3X36    #MAC  PERTYPNO  
 3XGQ          LDX   0  %A   
 3Y2B          SMO      FX2  
 3YG2          STO   0  EXEC3
 3Y^L          DOWN     PERTYPNO,1%B 
 3^F=    #NOR