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

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

**Used in:** [[george:source:IPCON864|IPCON864]], [[george:source:IPCONA864|IPCONA864]], [[george:source:IPCONB8|IPCONB8]], [[george:source:IPCONC8|IPCONC8]], [[george:source:IPCONE865|IPCONE865]], [[george:source:IPCONG8|IPCONG8]], [[george:source:IPCSTART864|IPCSTART864]]

<code - TIPCREP.mac.txt>
 B#?8 ...[??? TIPCREP SECT COMM FGN 19 DOC   
 B#H2    #MAC  TIPCREP   
 B#LX ...[      %I IS THE NAME OF A SUBROUTINE TO BE CALLED  
 B#QS ...[      ON X0 IN THE EVENT OF BEING WOKEN
 B#WP ...[      UP WITH A READ UP
 B*2L    #STR  %B
 B*G=    (   
 B*^W          LDX   0  CLEANCT  
 BBFG    #STR  %A
 BB^6          ADN   0  5000/K9  
 BCDQ    #STR  %A
 BCYB    #SKI
 BDD2          ADN   0  10000/K9 
 BDXL          STO   0  IPCPTIME(2)  
 BFC=    )   
 BFWW    #STR  %A,CT 
 BGBG          BRN      MTIPCREP6
 BGW6    #STR  %A,CT 
 BH*Q    #SKI
 BHTB          BRN      MTIPCREP4
 BJ*2    MTIPCREP2   
 BJSL          GEOERR   1,IPCREP 
 BK#=    MTIPCREP1   
 BKRW    #STR  %B
 BL?G          JIPCMC   TO,%B
 BLR6    #STR  %B
 BM=Q    #SKI
 BMQB          JIPCM    TO,MTIPCREP2 
 BN=2    #STR  %A,CT 
 BNPL    #SKI
 BP9=    (   
 BPNW          LDX   0  CPRW1(2) 
 BQ8G          BPZ   0  MTIPCREP3
 BQN6          LDN   0  1
 BR7Q          ORX   0  GSIGN
 BRMB          STO   0  CHAINADD(2)  
 BS72          LDX   0  CPRW1(2) 
 BSLL          BNG   0  MTIPCREP4
 BT6=          NGNC  0  1
 BTKW          ANDS  0  CHAINADD(2)  
 BW5G          LDX   0  CHAINADD(2)  
 BWK6          SBN   0  1
 BX4Q          BZE   0  MTIPCREP3
 BXJB    MTIPCREP4   
 BY42          COOR1 
 BYHL          BRN      MTIPCREP1
 B^3=    MTIPCREP3   
 B^GW          LDCH  0  CPRW1(2) 
 C22G          ANDN  0  2
 C2G6    #STR  CT,%A 
 C2^Q          BZE   0  MTIPCREPA
 C3FB    #STR  %A
 C3^2          BZE   0  MTIPCREP 
 C4DL          LDX   0  CPRW1(2) 
 C4Y=          SLC   0  5
 C5CW    #STR  %A
 C5XG    (   
 C6C6    #STR  %D
 C6WQ          BPZ   0  %D   
 C7BB    #STR  %D
 C7W2    #SKI
 C8*L          BNG   0  MTIPCREP2
 C8T=    )   
 C9#W    #STR  %A
 C9SG    #SKI
 C=#6    (   
 C=RQ    #STR  %H
 C??B          BPZ   0  %H   
 C?R2    #STR  %H
 C#=L    #SKI
 C#Q=          BPZ   0  MTIPCREP2
 C*9W    )   
 C*PG          SRC   0  2
 CB96    #STR  %A
 CBNQ    (   
 CC8B    #STR  %C
 CCN2          BNG   0  %C   
 CD7L    #STR  %C
 CDM=    #SKI
 CF6W          BNG   0  MTIPCREP2
 CFLG    )   
 CG66    #STR  %A
 CGKQ    #SKI
 CH5B    (   
 CHK2    #STR  %G
 CJ4L          BNG   0  %G   
 CJJ=    #STR  %G
 CK3W    #SKI
 CKHG          BNG   0  MTIPCREP2
 CL36    )   
 CLGQ    #STR  %E
 CM2B          BRN      %E   
 CMG2    #STR  %E
 CM^L    #SKI
 CNF=          BRN      MTIPCREP2
 CNYW    #STR  %A
 CPDG    #SKI
 CPY6    MTIPCREPA   
 CQCQ    )   
 CQXB    #STR  %A,SPQ
 CRC2    #SKI
 CRWL    (   
 CSB=          LDX   0  CPRW2(2) 
 CSTW          BPZ   0  MTIPCREP5
 CT34 ...#STR  %I
 CT8= ...      CALL  0  %I   
 CT*G          LDN   0  1
 CTT6          ORX   0  GSIGN
 CW#Q          STO   0  CHAINADD(2)  
 CWSB          LDX   0  CPRW2(2) 
 CX#2          BNG   0  MTIPCREP6
 CXRL          NGNC  0  1
 CY?=          ANDS  0  CHAINADD(2)  
 CYQW          LDX   0  CHAINADD(2)  
 C^=G          SBN   0  1
 C^Q6          BZE   0  MTIPCREP5
 D29Q    MTIPCREP6   
 D2PB          COOR1 
 D392    #STR  %A
 D3NL          BRN      MTIPCREP1
 D48=    #STR  %A
 D4MW    #SKI
 D57G          BRN      MTIPCREPA
 D5M6    MTIPCREP5   
 D66Q    #STR  SPQ,%A
 D6LB    #SKI
 D762          CIPCM    Q
 D7KL          LDCH  0  CPRW2(2) 
 D85=          ANDN  0  2
 D8JW          BZE   0  MTIPCREP 
 D94G          LDX   0  CPRW2(2) 
 D9J6          SLC   0  5
 D=3Q    #STR  %D
 D=HB          BPZ   0  %D   
 D?32    #STR  %D
 D?GL    #SKI
 D#2=          BPZ   0  MTIPCREP2
 D#FW          SRC   0  2
 D#^G    #STR  %C
 D*F6          BNG   0  %C   
 D*YQ    #STR  %C
 DBDB    #SKI
 DBY2          BNG   0  MTIPCREP2
 DCCL    #STR  %F
 DCX=          BRN      %F   
 DDBW    #STR  %F
 DDWG    #SKI
 DFB6          BRN      MTIPCREP2
 DFTQ    )   
 DG*B    MTIPCREP
 DGT2    #NOR
</code>