{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACDEF8)}}
====== MACDEF8 ======
(George Source)

**Macros used:** [[george:macro:ABANDCOM|ABANDCOM]], [[george:macro:COMERR|COMERR]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FREECORE|FREECORE]], [[george:macro:ISSUCOMB|ISSUCOMB]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:PARANOT|PARANOT]], [[george:macro:PARANUMB|PARANUMB]], [[george:macro:PHOTO|PHOTO]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETCOMER|SETCOMER]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:TESTMOVE|TESTMOVE]]

<code - MACDEF8.txt>22FL    #OPT  K0MACDEF=0
22^=    #LIS  K0MACDEF>K0COMMAND>K0ALLGEO>K0GREATGEO
23DW    #SEG  MACDEF8                      [A C PUTMAN  
23YG                   8HMACDEF 
24D6    # ENTRY POINTS  
24XQ          SEGENTRY K1MACDEF,Z1MACDEF
25CB    #   
25X2    TEXT           +14  
26BL                   14HINPUT %A,TENDM
26W=    #   
27*W    #   
27TG    # THIS SEGMENT INPUTS A MACRO DEFINITION INTO THE FILE SPECIFIED BY THE 
28*6    # USER. IT ISSUES AN INTERNAL INPUT.
28SQ    #   
29#B    Z1MACDEF
29S2          PARANUMB 6
2=?L          BZE   6  NOFN                [J IF NO PARS. SPECIFIED 
2=R=          SETNCORE CPDATA-A1+4,3,ADATA,CREADL   
2?=W          SBN   6  1
2?QG          BZE   6  TDEF1               [J IF DEFAULT TERM. REQD.
2#=6          PHOTO    7
2#PQ          PARANOT  2                   [GET TERM.   
2*9B          MHUNT    2,CPB,CUNI   
2*P2          LDX   6  ANUM(2)  
2B8L          BZE   6  TDEF                [NULL PAR. - INSERT DEFAULT  
2BN=          ANDN  6  #7777               [ISOLATE CHARACTER COUNT 
2C7W          TESTMOVE 7,NMV               [J IF BLOCK NOT MOVED
2CMG          MHUNTW   3,ADATA,CREADL   
2D76    NMV   LDX   4  2
2DLQ          LDX   2  TEXT(1)             [INSERT NO. OF CMS.  
2F6B          STO   2  A1(3)               [AND 
2FL2          LDN   2  TEXT+1(1)           [FIXED   
2G5L          ADN   3  CPDATA              [PART
2GK=          MOVE  2  2                   [OF TEXT 
2H4W          SBN   3  CPDATA              [IN ADATA/CREADL BLOCK   
2HJG          SBN   6  5
2J46          BPZ   6  NCHANGE             [J. IF NO.OF CHS.IN TERM. IS 5 OR
2JHQ          ADS   6  A1(3)
2K3B    NCHANGE                            [READLINE BLOCK  
2KH2          ADN   2  2
2L2L          ADN   3  CPDATA+2 
2LG=          MVCH  2  1
2L^W          LDX   2  4
2MFG          ADN   2  APARA
2M^6          MVCH  2  5                   [INSERT TERM. IN READLINE BLOCK  
2NDQ          FREECORE 4                   [FREE UNI-BLOCK  
2NYB ...XIN   ISSUCOMB RONG,XBRK
2PD2    XEND  ENDCOM
2PXL    RONG  SETCOMER  
2QC=          BRN      XEND 
2QM4 ...XBRK  ABANDCOM  
2QWW    TDEF  FREECORE 2                   [FREE UNI-BLOCK  
2RBG    TDEF1 LDX   2  TEXT(1)             [INSERT  
2RW6          STO   2  A1(3)               [COUNT   
2S*Q          ADN   3  CPDATA              [AND 
2STB          LDN   2  TEXT+1(1)           [TEXT IN 
2T*2          MOVE  2  3                   [ADATA/CREADL BLOCK  
2TSL          ADN   2  3
2W#=          ADN   3  3
2WRW          MVCH  2  2
2X?G          BRN      XIN  
2XR6    NOFN  COMERR   JPARMIS,JFNAME   
2Y=Q          MENDAREA 10,K99MACDEF 
2YQB    #END
^^^^ ...20461127000300000000
</code>