STARTACT [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: STARTACT)}}
====== STARTACT ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_LEF|MACROS LEF]]

**Used in:** [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:BSUNJAM867|BSUNJAM867]], [[george:source:CARTCONT867|CARTCONT867]], [[george:source:DTQUEST860|DTQUEST860]], [[george:source:DTREST860|DTREST860]], [[george:source:DTSCAN860|DTSCAN860]], [[george:source:DTSTART867|DTSTART867]], [[george:source:DTSUBSA867|DTSUBSA867]], [[george:source:DTWRONG867|DTWRONG867]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:IPBLOG866|IPBLOG866]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTFREE867|LISTFREE867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTNIP865|LISTNIP865]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTPROC867|LISTPROC867]], [[george:source:LISTSEAR867|LISTSEAR867]], [[george:source:PERFLOGS866|PERFLOGS866]], [[george:source:RELPER867|RELPER867]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:UNLOADMT867|UNLOADMT867]], [[george:source:WLC867|WLC867]], [[george:source:WLE862|WLE862]]

<code - STARTACT.mac.txt>
 GDKJ ...[??? STARTACT SECT DEVT FGN 2 DOC   
 GDTB    #MAC  STARTACT  
 GF2J ...#STR %A,RET 
 GF7Q ...(   
 GF*2    #STR  %B
 GFSL    (   
 GG#=    #OPT  M1STARTACT=1  
 GGRW          CALL  %B M2STARTACT   
 GH?G    #SKI  M1STARTACT
 GHR6    (   
 GJ=Q          BRN      M3STARTACT   
 GJQB    MSTARTACT   
 GK=2    )   
 GKPL    )   
 GL9=    #STR  %B
 GLNW    #SKI  M1STARTACT
 GM8G    (   
 GMN6    #STR  %B
 GN7Q          SBX   %B FX1  
 GNMB    #SKI  G%AACT
 GP72    #SKI
 GPLL    (   
 GQ6=          BBUS     B%AACT,FLAGACT,M7STARTACT
 GQKW          FLIPS    FLAGACT,B%AACT   
 GR5G          BRN      M5STARTACT   
 GRK6    M6STARTACT  
 GS4Q          PAIR     %E,%F
 GSJB    M5STARTACT  
 GT42          GETACT   %C,%D
 GTHL          LDX   2  BPTR(2)  
 GW3=          LDX   0  M6STARTACT(1)
 GWGW          STO   0  ALINK1(2)
 GX2G          LDX   0  M6STARTACT+1(1)  
 GXG6          STO   0  ALINK2(2)
 GX^Q          FPUT  
 GYFB    M7STARTACT  
 GY^2          LDX   1  FX1  
 G^DL    )   
 G^Y=    #SKI  G%AACT
 H2CW    (   
 H2XG          LDX   2  B%AACT   
 H3C6          BNG   2  M7STARTACT   
 H3WQ          ORX   2  GSIGN
 H4BB          STO   2  B%AACT   
 H4W2          ERX   2   GSIGN   
 H5*L          FPUT  
 H5T=    M7STARTACT  
 H6#W    )   
 H6SG          LDX   2  FX2  
 H7#6    #STR  %B
 H7RQ    (   
 H8?B          ADX   %B FX1  
 H8R2          EXIT  %B 0
 H9=L    )   
 H9Q=    M3STARTACT  
 H=9W    )   
 H=PG    #STR  %B
 H?96    (   
 H?NQ    #SKI  M1STARTACT
 H#8B    (   
 H#N2    #FRE  M1STARTACT
 H*7L    #DEF  M2STARTACT=MSTARTACT  
 H*M=    #DEF  M1STARTACT=0  
 HB6W    )   
 HBLG    )   
 HBPL ...)   
 HBSQ ...#STR %A,RET 
 HBXW ...#STR
 HC32 ...      LONGON #170                  [WAKE UP DUMP TAPE SCHEDULER 
 HC66    #NOR
</code>