{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS LLS)}}
====== MACROS LLS ======
(George Source)


<code - MACROS LLS.txt>3G54 ...[??? SETRTP SECT CENT FGN 3 DOC 
3G#W    #   
3GSG    #     THIS MACRO SETS THE REALTIME 'PRIORITY' MARKER
3H#6    #   
3HD3 ...#UNS  IMR   
3HHY ...#SKI
3HMT ...(   
3HRQ    #MAC  SETRTP
3J?B    #STR  %A,1  
3JR2          LDX   1  %A   
3K=L          FLIPS    JCLASS(1),,14
3KQ=          FPCAJO   1
3L9W          ADX   1  %B   
3LPG          LDX   0  GSIGN
3M96          SMO      %B   
3MNQ          ORS   0  ACR1(1)  
3N8B          LDX   1  FX1  
3NN2          LDX   2  FX2  
3P7L    #NOR
3P85 ...)   
3P8J ...#UNS  IMR   
3P93 ...(   
3P9G ...#MAC  SETRTP
3P9^ ...#STR  %A,1  
3P=D ...      LDX   1  %A   
3P=X ...      BS       1,JBREPRI
3P?B ...      FPCAJO   1
3P?T ...      LDX   0  GSIGN
3P## ...      SMO      %B   
3P#R ...      ORS   0  AMR1(1)  
3P*= ...      LDX   1  FX1  
3P*P ...      LDX   2  FX2  
3PB8 ...#NOR
3PBM ...)   
3PCD ...[??? UNSETRTP SECT CENT FGN 3 DOC   
3PM=    #   
3Q6W    #     THIS MACRO UNSETS THE REALTIME 'PRIORITY' MARKER  
3QLG    #   
3QQC ...#UNS  IMR   
3QW# ...#SKI
3R29 ...(   
3R66    #MAC  UNSETRTP  
3RKQ    #STR  %A,1  
3S5B          LDX   1  %A   
3SK2          FLIPS    JCLASS(1),14 
3T4L          FPCAJO   1
3TJ=          LDN   2  4
3W3W          ADX   1  2
3WHG    MUNSETRTP   
3X36          LDX   0  GSIGN
3XGQ          SMO      2
3Y2B          ANDX  0  ACR1-2(1)
3YG2          SMO      2
3Y^L          ERS   0  ACR1-2(1)
3^F=          SBN   1  1
3^YW          BCT   2  MUNSETRTP
42DG          LDX   1  FX1  
42Y6          LDX   2  FX2  
43CQ    #NOR
43XB ...)   
44C2 ...#UNS  IMR   
44WL ...(   
45B= ...#MAC  UNSETRTP  
45TW ...#STR  %A,1  
46*G ...      LDX   1  %A   
46T6 ...      BC       1,JBREPRI
47#Q ...      FPCAJO   1
47SB ...      LDN   2  4
48#2 ...      NGNC  0  1
48RL ...MUNSETRTP   
49?= ...      SMO      2
49QW ...      ANDS  0  AMR1-1(1)
4==G ...      BCT   2  MUNSETRTP
4=Q6 ...      LDX   1  FX1  
4?9Q ...      LDX   2  FX2  
4?PB ...#NOR
4#92 ...)   
745G ...[??? SCBB SECT CENT FGN 3 DOC   
CRWL    #   
CSB=    #   
CT*G    #   
CTT6    #     THIS MACRO SETS THE CHANNEL BUSY BIT IN THE APPROPRIATE OLPA  
CW#Q    #   
CWSB    #MAC  SCBB  
CX#2    #SKI  IPCV2 
CXRL    (   
CY?=          LDBIT    2,0  
CYQW    #STR  %A
C^=G          MOD      ORS   0  BFSTATE,%A  
C^Q6    #STR  %A
D29Q    #SKI
D2PB    (   
D392          SMO      FX2  
D3NL          ORS   0  BFSTATE  
D48=    )   
D4MW    )   
D57G    #NOR
D5C# ...[??? CCBB SECT CENT FGN 3 DOC   
D5M6    #   
D66Q    #     THIS MACRO CLEARS THE CHANNEL BUSY BIT IN THE APPROPRIATE OLPA
D6LB    #   
D762    #MAC  CCBB  
D7KL    #SKI  IPCV2 
D85=    (   
D8JW          LDBIT    2,0  
D94G    #STR  %A
D9J6    (   
D=3Q          MOD      ANDX  0  BFSTATE,%A  
D=HB          MOD      ERS   0  BFSTATE,%A  
D?32    )   
D?GL    #STR  %A
D#2=    #SKI
D#FW    (   
D#^G          SMO      FX2  
D*F6          ANDX  0  BFSTATE  
D*YQ          SMO      FX2  
DBDB          ERS   0  BFSTATE  
DBY2    )   
DCCL    )   
DCX=    #NOR
DD74 ...[??? JCBB SECT CENT FGN 3 DOC   
DDBW    #   
DDWG    #     THIS MACRO JUMPS TO %B IF THE CHANNEL BUSY BIT IS SET 
DFB6    #   
DFTQ    #MAC  JCBB  
DG*B    #SKI  IPCV2 
DGT2    (   
DH#L          LDBIT    2,0  
DHS=    #STR  %A
DJ?W          MOD      ANDX  0  BFSTATE,%A  
DJRG    #STR  %A
DK?6    #SKI
DKQQ    (   
DL=B          SMO      FX2  
DLQ2          ANDX  0  BFSTATE  
DM9L    )   
DMP=          BNZ   0  %B   
DN8W    )   
DNNG    #NOR
^^^^ ...53222000001100000000
</code>