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

**Defined in:** [[george:source:MACROS_PERI|MACROS PERI]]

**Used in:** [[george:source:MODE866|MODE866]], [[george:source:MODEA65|MODEA65]], [[george:source:RIGHT867|RIGHT867]], [[george:source:TAPEWAIT65|TAPEWAIT65]]

<code - SETMODEQ.mac.txt>
 LBSL    #MAC  SETMODEQ  
 LC#=          LDCT  0  #770 
 LCRW     MODD ANDX  0  JK52E,%A,CPPTR(2)
 LD?G     MODD ERS   0  JK52E,%A,CPPTR(2)
 LDR6          LDN   0  #300 
 LF=Q     MODD ANDX  0  JK52B,%A,CPPTR(2)
 LFQB     MODD ERS   0  JK52B,%A,CPPTR(2)
 LG=2          LDX   0  %B   
 LGPL          SLL   0  18   
 LH9=     MODD ORS   0  JK52E,%A,CPPTR(2)
 LHNW          SRL   0  16   
 LJ8G          ANDN  0  #300 
 LJN6     MODD ORS   0  JK52B,%A,CPPTR(2)
 LK7Q    #NOR
</code>