{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: PERTYPNO)}}
====== PERTYPNO ======
(GIN Macro)

**Defined in:** [[george:source:MACROS2JSR|MACROS2JSR]]

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:DETACH867|DETACH867]], [[george:source:ILLPERI70|ILLPERI70]], [[george:source:INKS|INKS]], [[george:source:INMOP867|INMOP867]], [[george:source:MONOLITH864|MONOLITH864]], [[george:source:OFFREL867|OFFREL867]], [[george:source:PERFAIL866|PERFAIL866]]

<code - PERTYPNO.mac.txt>
 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
</code>