コペン爺のブログ一覧

きのうお約束の枝豆パーティーを敢行しました。
来られる予定でしたがお仕事、デート、出稼ぎなどで来られなくなった方々はまｔの機会に是非お越しください。

ほんじゃ～フォトストーリーで昨日の様子を・・・・。

まず「トミサンご夫婦」の到着。出迎えは「ミニー」


挨拶もそこそこに枝豆取りに。幹が太いので鎌では危ないので「ノコギリ」で切ります。


はい～一本収穫。お土産はどれでも２本太いのをどうぞ。


枝豆が終わったら次に「さつまいも掘り」品種は「紅あずま」


「３１さん」ご夫婦が到着。さっそく枝豆取りにアタック。

奥さんは番外の「ピーマン」「ミニトマト」も収穫。


おっと「トミサンの奥さん」は「柿」をＧＥＴ（笑）


３１さんご夫婦は仲良く「おいも掘り」


一通り収穫後まずコンロに火付けを・・・
火付け盗賊人ではありません（爆）。


豆を取って、井戸水で洗って・・・


そんでもって、塩を入れて沸騰している鍋に「ぶちこみます」


茹で上がったら塩を少々振って出来上がり。
爺さんが作った新米のおにぎりと枝豆。


さてと～後は黙々と食べて飲むだけ！！


枝豆、おにぎり全て完食！！

「３１さん奥さん」はハンモックで「ゆ～ら・・・ゆ～～～ら・・・」でご満悦（笑）


その後我が家の「温泉」に皆さん入って「いい湯だな～ハハハッ」状態（＾＾

ほんまうちのお風呂は温泉なんだからね！！
ここで「３１さん」は帰りの渋滞を考慮して愛車ＢＭＷ左ハンドルの車で「コーヒー」飲まずにお帰り。

またね～～～～～

「トミサンご夫婦」と家から１０分ちょっとの秘密の半プライベート・ビーチへ・・・。
ここで飲む「コスタリカ直輸入」３００円のコーヒーが美味い！！
この場所に２時間近く陣取っていたか（笑）
仲良かった頃の写真にならなければいいね（＾＾


「トミサン号（？）」の融資じゃない・・勇姿。


ほんま中身の濃い一日を過ごせ、明日からまた暫くは元気を貰えました。

ありがとうございました！！

いよいよ食欲の秋の季節になりました。

我が家の畑では「枝豆」「さつま芋」の収穫時期になりました。
そこで少しではありますが皆様に「お裾分け」したいと思い
「収穫祭」を行います。

開催日・・・１０月２０日（土曜）
時間・・・・・ＡＭ１０時半（早く来られる方は幾ら早くても結構（＾＾）、多少遅れても結構）
その他・・・
〇家族連れ、子供、おじいちゃん、おばあちゃん歓迎。
〇汚れてもいい、服装（特に足元）で来てください。
〇 お茶は用意しますがその他飲み物（ビール・ノンアルコールビール・焼酎
　　ウイスキー・泡盛・テキーラ・ブランデー・養命酒など）は自分の飲む分は
　　各人持参してください。
〇当方へのお土産、現金（特に輸吉の束）は一切不要です。
〇爺さんは何もしませんので、来られた方で「炭火」を起こし、枝豆採り、お芋掘り
　やっていただきますね。
　　　　
稲刈りが終わった後は「枝豆」


さつまいも



その場で「炭火」で「井戸水」を沸かして採ったばかりの「枝豆」をぶちこんで「食べる」！！

コンロはこれ


「お芋」はお米を採った「稲藁」を燃やして「焼き芋」にします。
ミニーは燃やしません。


大体一本の枝豆に１００～１５０房実っています。
これだけでもお腹いっぱいですが、今年採れた「新米でおにぎり」も用意します。

お米を炊くのも、おにぎり作るのもアナタです（＾＾

こんなプランですがよろしかった是非ご参加を！！

早いモンで今日は１０月１０日。
そろそろ年賀状発売ですよ～。
また一つ歳をとりますが爺さんには朗報が！！

この前体力測定をやったことをアップしましたが
その後気がついたら「時計が逆回り」している。

これって・・・若返るよ！！　　って暗示？？？


ほかの時計の電池を逆に入れても反対回りはしませんでした。

さ～これから爺さんはドンドン若蛙ぞう～！！

今日は全国的に体育の日。
富津市では「ふれあいスポーツフェスタ」という行事が行われました。
色々な個人競技、団体競技をやっていて当日自由参加も出来るということで
行ってきました。

画像は富津市の「ゆるキャラ」

「ふっつん」です。

緑色で「ふ」の字を描いています。

そんな中「体力測定」コーナーがあり挑戦しました。


体力・知力には自信が有るので「チョロイ」もんだと思い・・・・。

まずは
立ち幅跳び・・・・・173センチ
上体起こし・・・３０秒に１２回。（これがきつかった）
長座体前屈・・・何センチ体を前に倒せるか・・・２７センチ（ギョ・・・・）
反復横飛び・・・２０秒間で・・・４０回（まあまあか？）
握力・・・・・・・・４３Ｋｇ

全部終わると集計してくれてプリントアウトされたのがこれ



なんと！！体力年齢は７０―７４歳。

数年前任天堂ゲームでは４５歳と出たので喜んでいたのに・・・

ここ数年で３０歳も歳をとったか？？？

やっと１０回になりましたがもう皆さん飽きたでしょ（笑）

朝の頭のスッキリしているうちにプログラム後悔じゃねえ公開です。

入力をちょっと工夫して「トランク」に荷物載ってるときは「オープンしない」ようにもなります。

まだまだ無駄な所も有るでしょうがま～エエでしょう。

ボケ防止には最高っす（爆）

--------------------------------------------------------------------
ご注意！
スペースを空けるのに「全角」使ってますので、このままコピーしてもエラーが出ます。

;-------------------------------------------------------------------------
; 　　　 初期設定

　　　　　　　　　　 list 　　 P=pic16f84a
　　　　　　　　　　 include "p16f84a.inc"

　　　　　　　　　　__CONFIG _HS_OSC & _WDT_OFF & _PWRTE_ON & _CP_OFF


　　　　　　　　　　ORG 　　　 0 　　　　　　　　　　　　　 ;０番地から始めるよ～


　　　　　　　　　　 GOTO 　　　 MAIN 　　　　　　　　　　　　　 ;MAINに飛んじまえ～

;-----------------------------------------------------------------------
　　　　　　　　　　; 割り込み処理

　　　　　　　　　　 ORG 　　　 4 　　　　　　　　　　 ;割り込みアドレス
　　　　　　　　　　CLRW
　　　　　　　　　　 CLRF 　　　 PORTB 　　　　　　　　　　 ;ポートＢクリア（出力停止）
　　　　　　　　　　GOTO 　　　 MAIN

;-----------------------------------------------------------------------
　　　　　　　　　　; メインプログラム

MAIN
　　　　　　　　　　 BSF 　　　 STATUS,RP0 　　　　　　　　　　 ;ポートＡを全て入力に設定
　　　　　　　　　　 MOVWF 　　　 TRISA
　　　　　　　　　　 MOVLW 　　　 H'01' 　　　　　　　　　　 ;ポートＢは０（ゼロ）以外は出力に設定
　　　　　　　　　　 MOVWF 　　　 TRISB

　　　　　　　　　　 MOVLW 　　　 90H 　　　　　　　　　　 ;INT割り込み許可
　　　　　　　　　　 MOVWF 　　　 INTCON

　　　　　　　　　　 BCF 　　　 STATUS,RP0 　　　　　　　　　　 ;ポートＢをクリア
　　　　　　　　　　 CLRF 　　　 PORTB

　　　　　　　　　　 CLRW
;----------------------------------------------------------------------
　　　　　　　　　　; スイッチ入力チエック
LOOP
　　　　　　　　　　 BTFSS 　　　　 PORTA,0 　　　　　　　　　　 ;オープンＳＷがＯＮか？
　　　　　　　　　　 GOTO 　　　　 OPEN 　　　　　　　　　　 ;ＯＮだったら　ＯＰＥＮへ


　　　　　　　　　　 BTFSS 　　　　 PORTA,1 　　　　　　　　　　　 ;クローズＳＷがＯＮか？
　　　　　　　　　　 GOTO 　　　　 CLOSE 　　　　　　　　　　　 ;ＯＮだったらＣＬＯＳＥへ

　　　　　　　　　　 BTFSS 　　　　 PORTA,2 　　　　　　　　　　 ;ウインドウＳＷがＯＮか？
　　　　　　　　　　 GOTO 　　　　 WINDOW 　　　　　　　　　　 ;ＯＮだったらＷＩＮＤＯＷへ

　　　　　　　　　　 GOTO 　　　　 LOOP
;-----------------------------------------------------------------------
　　　　　　　　　　　; オープン動作

OPEN
　　　　　　　　　　 MOVLW 　　　　 010H 　　　　　　　　　　 ;ポートＢ４番に５Ｖ出力（リレーＯＮ）　　
　　　　　　　　　　 MOVWF 　　　　 PORTB
　　　　　　　　　　 MOVLW 　　　　 D'255' 　　　　　　　　　　 ;動作時間 '255'設定
　　　　　　　　　　MOVWF 　　　　 0EH 　　　　　　　　　　　 ;アドレス0EHに255を入力
　　　　　　　　　　 CALL 　　　　 LOOP3 　　　　　　　　　　 ;サブルーチンLOOP3を呼び出す

　　　　　　　　　　 GOTO 　　　　 MAIN 　　　　　　　　　　 ;サブルーチンが終わったら　MAIN　に戻れ

;------------------------------------------------------------------------
　　　　　　　　　　; クローズ動作

CLOSE
　　　　　　　　　　 MOVLW 　　　　 020H 　　　　　　　　　　 ;ポートＢ５番に５Ｖ出力（リレーＯＮ）
　　　　　　　　　　 MOVWF 　　　　 PORTB
　　　　　　　　　　 MOVLW 　　　　 D'255' 　　　　　　　　　　;動作時間 '255'設定
　　　　　　　　　　 MOVWF 　　　　 0EH 　　　　　　　　　　 ;アドレス0EHに255を入力
　　　　　　　　　　 CALL 　　　　 LOOP3 　　　　　　　　　　 ;サブルーチンLOOP3を呼び出す

　　　　　　　　　　GOTO 　　　　 MAIN 　　　　　　　　　　;サブルーチンが終わったら　MAIN　に戻れ
;------------------------------------------------------------------------
　　　　　　　　　　; ウインドウ動作

WINDOW
　　　　　　　　　　 MOVLW 　　　　 040H 　　　　　　　　　　 ;ポートＢ6番に５Ｖ出力（リレーＯＮ
　　　　　　　　　　 MOVWF 　　　　 PORTB
　　　　　　　　　　 MOVLW 　　　　 D'120' 　　　　　　　　　　 ;動作時間 '120'設定

　　　　　　　　　　 MOVWF 　　　　 0EH 　　　　　　　　　　　 ;アドレス0EHに120を入力
　　　　　　　　　　 CALL 　　　　 LOOP3 　　　　　　　　　　 ;サブルーチンLOOP3を呼び出す

　　　　　　　　　　 GOTO 　　　　 MAIN 　　　　　　　　　　 ;サブルーチンが終わったら　MAIN　に戻れ

;-----------------------------------------------------------------------

　　　　　　　　　　; サブルーチン（タイマー）

TIMER1
　　　　　　　　　　 MOVLW 　　　　 D'220'
　　　　　　　　　　 MOVWF 　　　　 0CH

LOOP1
　　　　　　　　　　 NOP
　　　　　　　　　　 DECFSZ 　　　　 0CH,1
　　　　　　　　　　 GOTO 　　　　 LOOP1
　　　　　　　　　　RETURN

TIMER2
　　　　　　　　　　 MOVLW 　　　　 D'100' 　　　　　　　　　　 ;アドレス0DHに100を入力

　　　　　　　　　　 MOVWF 　　　　 0DH
LOOP2
　　　　　　　　　　 NOP
　　　　　　　　　　 CALL 　　　　 TIMER1 　　　　　　　　　　 ;TIMER1を呼び出し（行く）
　　　　　　　　　　 DECFSZ 　　　　 0DH,1 　　　　　　　　　　　 ;アドレス0DH から１を引き算する
　　　　　　　　　　 GOTO 　　　　 LOOP2 　　　　　　　　　　 ;結果が"0"でなかったら　LOOP2に戻ってまた引き算
　　　　　　　　　　RETURN 　　　　　　　　　　　　 ;引き算の結果が"0"になったら「CALL」した「次に（下）」へ戻る

LOOP3
　　　　　　　　　　 NOP 　　　　　　　　　　 ;何もしない
　　　　　　　　　　 CALL 　　　　 TIMER2 　　　　　　　　　　 ;TIMER2を呼び出す（行く）
　　　　　　　　　　 DECFSZ 　　　　 0EH,1
　　　　　　　　　　 GOTO 　　　　 LOOP3
　　　　　　　　　　 RETURN


END 　　　　　　　　　 END