昨日のアセンブラから修正しました
STATUSを出し入れしてます。これでCALL命令で問題無く使えてます。アセンブラも少し綺麗な書き方が出来ます。
TIM04は、ポートAの値で時間作ってます
これで、違うことに使えそうです
;**疑似乱数 波高変換
RONDMH
CALL ROUD1
ROUND2
CALL TIM04
CALL RONDMH1
GOTO ROUND2
ROUD1
CLRF M1
MOVLW D'3'
MOVWF T2
MOVLW D'7'
MOVWF T3
MOVLW D'11'
MOVWF M3
MOVF STATUS,W
MOVWF POP
RETURN
RONDMH1
; CALL TIM04
MOVF POP,W
MOVWF STATUS
RLF M1
MOVF M1,W
XORWF T2,0
XORWF T3,0
XORWF M3,0
MOVWF M1
MOVWF PORTB
INCF T2,1
INCF T3,1
INCF M3,1
MOVF STATUS,W
MOVWF POP
RETURN
;********************
;04mSタイマー
TIM04
; MOVLW D'54'
MOVF PORTA,W
MOVWF T1
RLF T1,1
; RLF T1,1
; RLF T1,1
TIMLOOP1
DECFSZ T1,F
GOTO TIMLOOP1
RETURN
;********************
END
