PIC 16C5X 之恋爱追求程式

;程式从这里开始
START:
MOVLW 99 ;W = 99
MOVWF 表白 ;表白 = W = 99

继续努力 :
CALL 试探 ;执行试探程式
ANDWF 成功 ;比较成功和W
INCFSZ W,F ;W=W+1
;如果 W=0,试探程式结果为成功,跳过下一个指令
;如果 W!=0,试探程式结果为白费心机,执行下一个指令
GOTO 选择 ;跳到选择
GOTO 拍拖 ;跳到拍拖

;试探程式
试探 :
MOVF 示爱,爱人 ;向爱人示爱
MOVLW 拒绝 ;W=拒绝
ANDWF 反应 ;比较反应和W
INCFSZ W,F ;反应=拒绝?
RETLW 成功 ;如果反应!=拒绝,W=成功,返回
RETLW 白费心机 ;如果反应=拒绝,W=白费心机,返回

;选择程式
选择 :
MOVLW 表白 ;W=表白次数
DECFSZ 表白,1 ;W=W-1,如果W=0,跳过下一个指令
GOTO 继续努力 ;跳到继续努力
GOTO 放弃 ;跳到放弃

;拍拖程式
拍拖 :
MOVF 我爱你,爱人 ;告诉爱人我爱她

;放弃程式
放弃 :
NOP ;没有执行指令,整个程式在此结束

粉红苹果系列 #168