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

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:LDSTART850|LDSTART850]], [[george:source:PARAM865|PARAM865]], [[george:source:PARAMA865|PARAMA865]], [[george:source:PARAMB865|PARAMB865]], [[george:source:SETPARAM867|SETPARAM867]], [[george:source:SETPB867|SETPB867]], [[george:source:SETPE867|SETPE867]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SETPRAMB867|SETPRAMB867]], [[george:source:WHATPER867|WHATPER867]]

<code - PTYPE.mac.txt>
 6834 ...[??? PTYPE SECT CENT FGN 21 DOC 
 68=W    #MAC  PTYPE 
 68QG          LDX   2  FX2  
 69=6          LDN   0  %A                  [BLOCK TYPE  
 69PQ          ADN   0  %B                  [BLOCK SUBTYPE   
 6=9B          STO   0  ACOMMUNE2(2) 
 6=P2          LDX   0  %C                  [ADDRESS OF BLOCK
 6?8L          STO   0  ACOMMUNE3(2) 
 6?N=          LDN   0  %D                  [INTERNAL ADDRESS OF 1ST CHAR
 6#7W          STO   0  ACOMMUNE4(2) 
 6#MG    #STR  %F
 6*76    (   
 6*LQ          LDN   0  %F   
 6B6B          STO   0  ACOMMUNE6(2) 
 6BL2    )   
 6C5L    #STR  %F
 6CK=    #SKI
 6D4W    (   
 6DJG          SBN   0  1
 6F46          STO   0  ACOMMUNE6(2) 
 6FHQ    )   
 6G3B          LDX   0  %E                  [LENGTH OF STRING
 6GH2          STO   0  ACOMMUNE5(2) 
 6H2L          PHOTO    0
 6HG=          STO   0  ACOMMUNE1(2) 
 6H^W          DOWN     ANALYSEA,2   
 6JFG    #NOR
</code>