OUTRVCT

(GIN Macro)
OUTRVCT.mac.txt
 #T*M ...[??? OUTRVCT SECT FILE FGN 65 DOC   
 #TKF ...[   
 #W55 ...#MAC OUTRVCT
 #WJP ...[   
 #X4* ...[   THIS MACRO SCANS ROUND OFFLINE CHAIN
 #XH^ ...[   AND PUTS THE NUMBER OF OUTSTANDING  
 #Y3K ...[   AUTONOMOUS RETRIEVES FOR THE
 #YH9 ...[   JOBNUMBER IN %A INTO %B; %A MUST
 #^2T ...[   BE AN ACCUMULATOR (X3 -> X7), IT CAN
 #^GF ...[   BE THE SAME AS %B......WRITTEN INITIALLY
 *225 ...[   FOR AN HLS EXTRACODE.   
 *2FP ...[   
 *2^* ...      LDN   0  0                   [COUNT OF JOB NUMBERS KEPT IN X0 
 *3D^ ...      LDX   1  BOLC                [START OF OFLC   
 *3YK ...M1OUTRVCT   
 *4D9 ...      LDX   1  FPTR(1)             [SKIP FDT FIRST TIME AROUND  
 *4XT ...      BXE   1  CXOL,M2OUTRVCT      [J IF END OF OFLC
 *5CF ...      LDX   2  FREVCT(1)           [X2 => COUNT OF JOBNUMBERS IN THIS FR
 *5X5 ...      BZE   2  M1OUTRVCT           [J IF NO JOB NUMBERS 
 *6BP ...M3OUTRVCT   
 *6W* ...      SMO      2                   [
 *7*^ ...      BXU   %A FREVCT(1),M4OUTRVCT [J IF NOT EQUAL  
 *7TK ...      ADN   0  1                   [WE HAVE A RETRIEVE  
 *8*9 ...M4OUTRVCT   
 *8ST ...      BCT   2  M3OUTRVCT           [J IF MORE JOB NUMBERS   
 *9#F ...      BRN      M1OUTRVCT           [J IF NO MORE JOBS IN THIS FREQ  
 *9S5 ...M2OUTRVCT   
 *=?P ...      LDX   1  FX1                 [RESET X1
 *=R* ...      LDX   2  FX2                 [AND X2  
 *?=^ ...      STO   0  %B                  [STORE COUNT IN %B   
 *?QK ...[   
 *#=9 ...[   ********************************************************************
 *#PT ...[   
 **9F ...#NOR