内部程序如下：（有两个点是我改过的K1_INPUT的K2_INPUT）
SET
A #BIPOLAR
JC EL01
L 0.000000e+000
T #K1
JU EI01
EL01: L #K1_INPUT
T #K1
EI01: NOP 0
L #K2_INPUT
T #K2



L #IN
ITD
DTR
T #IN_REAL



L #HI_LIM
L #LO_LIM
-R
T #SPAN






L #IN_REAL
L #K1
>=R
JC EL02
L 8
T #RET_VAL
L #LO_LIM
T #OUT
JU FAIL
EL02: POP
L #K2
<=R
JC EI04
L 8
T #RET_VAL
L #HI_LIM
T #OUT
JU FAIL
EI04: NOP 0
NOP 0



L #K2
L #K1
-R
T #TEMP1
L #IN_REAL
L #K1
-R
L #TEMP1
/R
L #SPAN
*R
L #LO_LIM
+R
T #OUT



L 0
T #RET_VAL
SET
JU SVBR
FAIL: CLR
SVBR: SAVE