org $84C836 ;Gate switch PLM  
  DW Init : DW Main
  
  org $84C6E0
  Init:
    LDX $1DC7,y
    LDA $C70A,x : STA $1D27,y
    LDX $1DC7,y
    LDA $C71A,x : BEQ +
    LDX $1C87,y
    DEX : DEX
    JSR $82B4
  +
    LDX $1DC7,y
    LDA $C72A,x
    BEQ +
    LDX $1C87,y
    INX : INX
    JSR $82B4
  +
    RTS
    
  org $84C70A
    dw $BCAF, $BCB5, $BCC7, $BCCD ;C70A
    dw $C046, $0000, $C04A, $0000 ;C71A
    dw $0000, $C047, $0000, $C04B ;C72A
    
  org $84BCAF
    Main:
    DW $0001, $A5D7
    DW $86BC