JENV [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: JENV)}}
====== JENV ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_SIB|MACROS SIB]]

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CORE867|CORE867]], [[george:source:DUMMYB867|DUMMYB867]], [[george:source:ENGAGE867|ENGAGE867]], [[george:source:FREEPER867|FREEPER867]], [[george:source:GIVE867|GIVE867]], [[george:source:GROPE867|GROPE867]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:LIBREQ866|LIBREQ866]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:LOADERDA867|LOADERDA867]], [[george:source:LOADERMT867|LOADERMT867]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:PARSORT867|PARSORT867]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PERFLOGS866|PERFLOGS866]], [[george:source:PMDUMPDA85|PMDUMPDA85]], [[george:source:SETDISC866|SETDISC866]], [[george:source:SETUPA867|SETUPA867]], [[george:source:STRATEGY865|STRATEGY865]], [[george:source:SWITCH867|SWITCH867]]

<code - JENV.mac.txt>
 2C78 ...#   
 2C79 ...#   
 2C7# ...[ THE MACRO DEFINITIONS IN THIS FILE ARE DESTINED FOR   
 2C7G ...[ 'MACS EMUL'. THE DEFINITIONS ARE ONLY COMPILED FROM   
 2C7N ...[ ONE OF THESE FILES FOR ANY ISSUE OF GEORGE:   
 2C7W ...[   
 2C84 ...[ WHILE 8.62 IS SUPPORTED, MACROS SIB IS USED   
 2C8= ...[ AFTERWARDS, MACS EMUL IS THE FILE 
 2C8D ...[   
 2C8L ...[ WHEN MARKS
 2C8S ...[ BELOW 8.63 ARE NO LONGER SUPPORTED, THE DEFINITIONS   
 2C92 ...[ SHOULD BE MOVED FROM THIS FILE
 2C98 ...[ INTO MACS EMUL
 2C9B ...[   
 2C9J ...[   
 2C=6 ...[   
 2C=# ...[??? JENV SECT COMM FGN 1 DOC   
 2C=G ...[   
 2C=N ...#MAC            JENV
 2C=W ...[               ====
 2C?4 ...[   
 2C?= ...[ JUMP TO %A IF IN ENVIRONMENT %B   
 2C?D ...[   
 2C?L ...[ %A - LABEL TO GO TO IF MATCH  
 2C?S ...[ %B - ENVIRONMENT - 1900, MEEP OR DME  
 2C#2 ...[   
 2C#8 ...#STR           1900,%B  
 2C#B ...#SKI
 2C#J ...(   
 2C#Q ...      JBC      %A,,CPEMU
 2C#Y ...#EXI
 2C*6 ...)   
 2C*# ...      JBC      MJENV,,CPEMU        [ EMULATION TYPE TO TEST 
 2C*G ...      LF       ,CPEMUENV,0  
 2C*H ...#STR  MEEP,%B   
 2C*J ...#STR
 2C*K ...(   
 2C*L ...      SBN   0   CPMEEP  
 2C*M ...      BZE   0   %A  
 2C*N ...)   
 2C*P ...#STR   DME,%B   
 2C*Q ...#STR
 2C*R ...(   
 2C*S ...      SBN   0   CPDME   
 2C*T ...      BPZ   0   %A  
 2C*W ...)   
 2C*X ...#STR   CME,%B   
 2C*Y ...#STR
 2C*^ ...(   
 2CB2 ...      SBN   0   CPCME   
 2CB3 ...      BZE   0   %A  
 2CB4 ...)   
 2CB5 ...MJENV   
 2CB6 ...#NOR
</code>