.subckt COMP INP INM OUT CC
Rp 0 INP 1T
Rm 0 INM 1T
Ro 0 CC 1T
B 0 OUT V=(if((V(INP) > V(INM),-V(CC),0)))
.end COMP
