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

**Defined in:** [[george:source:MACROS_RME10|MACROS RME10]]

**Used in:** 

<code - DEFMODE.mac.txt>
 59=N ...[??? DEFMODE SECT FILE FGN 4 DOC
 59GG    #     THIS MACRO ALTERS THE INITIAL MODE SETTING
 5=26    #     ON MAGNETIC TAPE DECKS
 5=FQ    #MAC  DEFMODE   
 5=LY ...#STR %A,OFF 
 5=S6 ...(   
 5?YL    #MEN  SETUPA
 5#D= ...#TRA  K50SETUPA 
 5#XW          LPROP    3,0  
 5*CG          ANDN  0  #200 
 5*X6 ...      BNZ   0  K51SETUPA
 5BBQ    #STR  800,%B
 5BWB    #SKI
 5CB2    (   
 5CF6 ...      JNOTMT21S 3,MSP4  
 5CJ= ...      LDN   0  +ADMSS+ADMS%B
 5CMB ...      BRN      MSP2 
 5CQG ...MSP4
 5CTL          LCAP     3,0  
 5D*=          ANDN  0  #4   
 5DSW ...      BNZ   0  MSP3 
 5F#G          LDN   0  +ADMS+ADMS%A 
 5FS6          BRN      MSP2 
 5F^# ...MSP3
 5G6G ...      LDN   0  +ADMSL+ADMS%B
 5G?Q    )   
 5G*# ...#STR  800,%B
 5GBW ...(   
 5GDD ...#STR  L,%A  
 5GG2 ...#SKI
 5GHJ ...(   
 5GK6 ...      JNOTMT21S 3,MSP1  
 5GLN ...      LDN   0  +ADMSS+ADMS%B
 5GN= ...      BRN      MSP2 
 5GPS ...)   
 5GRB    MSP1  LDN   0  +ADMS%B+ADMS%A   
 5H38 ...)   
 5H?2    MSP2  STO   0  GEN0 
 5HQL          SETMODEQ 3,GEN0   
 5J==          LDX   0  GEN0 
 5JPW          DFSET    3,SMODE,0
 5K9G ...      BRN      K51SETUPA
 5KP6    #END
 5MP8 ...)   
 5MQQ ...#STR %A,OFF 
 5MS# ...#SKI
 5MTW ...(   
 5MXD ...#MEN SETUPA 
 5NC4 ...#TRA K50SETUPA  
 5NWN ...      LMODEQ   3,0  
 6H^W          DFSET    3,SMODE,0
 6JFG ...      BRN      K51SETUPA
 6J^6    #GAP  50
 6J^P ...      SEGENTRY  K51SETUPA   
 6K2# ...#END
 6K2X ...)   
 6K3G ...#NOR
</code>