FjfbhPI:
Bset CORCON,#0
Mov RK,w4
Lac w4,#4,A
Mov GIVE,w4
Mov MEASURE,w5
Sub w4,w5,w4
Mov w4,EK
Mov KP,w5
Mac w4*w5,A
Btst ACCAU,#0
Bra Z, ABC
Neg a
Sac.r a,#-4,w5
Neg w5,w5
Mov w5,U
Mov UMIN,w4
Sub w4,w5,w5
Bra nc,ABC1
Mov w4,UK
Goto ABC2
ABC:
Sac.r a,#-4,w5
Mov w5,U
Mov UMAX,w4
Sub w5,w4,w5
Bra nc,ABC1
Mov w4,UK
Goto ABC2
ABC1:
Mov U,w5
Mov w5,UK
ABC2:
Mov RK,w4
Lac w4,#4,A
Mov U,w4
Mov UK,w5
Sub w5,w4,w4
Mov KC,w5
Mac w4*w5,A
Mov EK,w4
Mov KI,w5
Mac w4*w5,A
Btst ACCAU,#0
Bra Z, ABC3
Neg a
Sac.r a,#-4,w5
Neg w5,w5
Goto ABC4
ABC3:
Sac.r a,#-4,w5
ABC4:
Mov w5,RK
return下载本文
