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