74SY ...[??? NAME SECT CENT FGN 32 DOC  
 754Q    [   
 75JB    [THE MACRO FOR GIVING A BLOCK A PARTICULAR TYPE AND SUB TYPE
 7642    [   
 76HL    #MAC  NAME  
 773=          LDN   0  %C+%B               [LOAD BLOCK TYPE 
 77GW          SLL   0  12                  [SHIFT UP
 782G          MOD      STO 0 ATYPE,%A   
 78G6    #NOR