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

**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]

**Used in:** 

<code - BSUJFORM.mac.txt>
 FLB6 ...[???  BSUJFORM  
 FLTQ ...#   
 FM*B ...#     THIS RESTORE TIME MACRO PROVIDES VALUES   
 FMT2 ...#     FOR PARAMETERS IN THE FORMULA USED BY THE 
 FN#L ...#     BACKING STORE UNJAMMER WHEN DECIDING WHICH
 FNS= ...#     FILES TO THROW OFF-LINE.  
 FP?W ...#     SEE DESIGN SPECIFICATION DS8424   
 FPRG ...#   
 FQ?6 ...#MAC  BSUJFORM  
 FQQQ ...#ALT  BSUVAL = 0
 FR=B ...#ALT  BSUSKIP = 0   
 FRQ2 ...      BSUJ %A,1,999,0   
 FS9L ...      BSUJ %B,2,9,1 
 FSP= ...      BSUJ %C,3,9,1 
 FT8W ...      BSUJ %D,4,9,0 
 FTNG ...#SKI  BSUSKIP   
 FW86 ...#SKI
 FWMQ ...(   
 FX7B ...#MEN  CHTABLE   
 FXM2 ...#TRA  BSUJFORM1 
 FY6L ...      +0
 FYL= ...      +0
 F^5W ...      +0
 F^KG ...      +0
 G256 ...#END
 G2JQ ...#MEND BSPRUNE   
 G34B ...#TRA  K10BSPRUNE
 G3J2 ...      BRN      K11BSPRUNE   
 G43L ...#TRA  K12BSPRUNE
 G4H= ...      BRN      K13BSPRUNE   
 G52W ...#END
 G5GG ...#MEND BSUNJAM   
 G626 ...#TRA  K10BSUNJAM
 G6FQ ...      BRN      K11BSUNJAM   
 G6^B ...#END
 G7F2 ...#MEND BSUJSTAT  
 G7YL ...#TRA  K10BSUJSTAT   
 G8D= ...      BRN      K11BSUJSTAT  
 G8XW ...#END
 G9CG ...)   
 G9X6 ...#SKI  BSUSKIP   
 G=BQ ...(   
 G=WB ...#SKI  BSUVAL
 G?B2 ...#SKI
 G?TL ...(   
 G#*= ...!ALL PARAMETERS ARE ZERO
 G#SW ...#EXI
 G*#G ...)   
 G*S6 ...#MEND BSPRUNE   
 GB?Q ...#TRA  K10BSPRUNE
 GBRB ...      NULL  
 GC?2 ...#TRA  K12BSPRUNE
 GCQL ...      NULL  
 GD== ...#END
 GDPW ...#MEND BSUNJAM   
 GF9G ...#TRA  K10BSUNJAM
 GFP6 ...      NULL  
 GG8Q ...#END
 GGNB ...#MEND BSUJSTAT  
 GH82 ...#TRA  K10BSUJSTAT   
 GHML ...      NULL  
 GJ7= ...#END
 GJLW ...)   
 GK6G ...#NOR
</code>