MACROS CAFS

(George Source)

MACROS CAFS.txt
22FL ...#   
22^= ...#   
23DW ...#     THIS FILE CONTAINS MACROS USED BY THE CAFS INTERFACE IN GEORGE 3  
23YG ...#   
24D6 ...#   
24XQ ...[???  JCAFSBSY SECT BACK FGN 1 DOC  
25CB ...#MAC  JCAFSBSY  
25X2 ...      JFNZ     %B,%A,BBFCAFSCT  
26BL ...#NOR
26W= ...[???  JCAFSNBS SECT BACK FGN 1 DOC  
27*W ...#MAC  JCAFSNBS  
27TG ...      JFZ      %B,%A,BBFCAFSCT  
28*6 ...#NOR
28SQ ...[???  JCAFSDV SECT BACK FGN 1 DOC   
29#B ...#MAC  JCAFSDV   
29S2 ...#STR  %C
2=?L ...#STR
2=R= ...(   
2?=W ...      LDX   0  JPTI+CAFSTYPE
2?QG ...      TXU   0  JPTI+CAFSTYPE+1  
2#=6 ...      BCC      M1CAFSDV 
2#PQ ...)   
2*9B ...      MODD     LDX   0  JK52F+1,%A,CPPTR(2) 
2*P2 ...      ANDN  0  1
2B8L ...      BNZ   0  %B   
2BN= ...M1CAFSDV
2C7W ...#NOR
2CMG ...[???  JNCAFSDV SECT BACK FGN 1 DOC  
2D76 ...#MAC  JNCAFSDV  
2DLQ ...#STR  %C
2F6B ...#STR
2FL2 ...(   
2G5L ...      LDX   0  JPTI+CAFSTYPE
2GK= ...      TXU   0  JPTI+CAFSTYPE+1  
2H4W ...      BCC      %B   
2HJG ...)   
2J46 ...      MODD     LDX   0  JK52F+1,%A,CPPTR(2) 
2JHQ ...      ANDN  0  1
2K3B ...      BZE   0  %B   
2KH2 ...#NOR
2L2L ...[???  CAFSINFO SECT BACK FGN 1 DOC  
2LG= ...#MAC  CAFSINFO  
2L^W ...#UNS  CF%A  
2MFG ...(   
2M^6 ...#ACC  %B
2NDQ ...(   
2NYB ...      LDX   0  %B   
2PD2 ...      SMO      FX2  
2PXL ...      STO   0  ACOMMUNE2
2QC= ...)   
2QWW ...#ACC  %B
2RBG ...#SKI
2RW6 ...(   
2S*Q ...      SMO      FX2  
2STB ...      STO   %B ACOMMUNE2
2T*2 ...)   
2TSL ...      LDN   0  CF%A 
2W#= ...      SMO      FX2  
2WRW ...      STO   0  ACOMMUNE1
2X?G ...      DOWN     CAFSINFO,1   
2XR6 ...)   
2Y=Q ...#UNS  CF%A  
2YQB ...#SKI
2^=2 ...!     UNKNOWN EVENT TYPE - %A   
2^PL ...#NOR
329= ...[???  JNCFENBU SECT BACK FGN 1 DOC  
32NW ...#MAC  JNCFENBU  
338G ...      LDCT  0  #300 
33N6 ...      MODD     ANDX  0  CFRDBITMASK,%A,CPPTR(2) 
347Q ...      BZE   0  %B   
34MB ...#NOR
3572 ...[???  CAFSPRIV SECT BACK FGN 1 DOC  
35LL ...#MAC  CAFSPRIV  
366= ...#MEN  CAFSPERI  
36KW ...#TRA  K50CAFSPERI   
375G ...      8H%A  
37K6 ...#END
384Q ...#NOR
^^^^ ...57706747000100000000