| English | Japanese |
|
|
Access until yesterday |
| Introduction. | 【【Lily Diary] Diary of Life in Mindanao |
| 10/12/31 | TV antenna fabrication |
| 10/12/24 | Cute operator |
| 10/12/23 | Business and broadcasters consult with us. |
| 10/12/17 | Business Antenna Construction |
| 10/12/15 | Antennas found in the city |
| 10/12/10 | 14MHz antenna repair completed |
| 10/12/07 | 14MHz antenna destruction |
| 10/12/04 | Fare8 Club Christmas Party |
| 10/12/04 | Gigi Class C Retake |
| 10/11/27 | To Manila, PARA's General Assembly |
| 10/11/16 | A piglet was born. |
| 10/11/06 | Ham Shop Situation |
| 10/11/02 | Internet connection is not available |
| 10/10/27 | STANDARD C150 repair |
| 10/10/22 | Ham Shop Page |
| 10/10/22 | power outage |
| 10/09/30 | Autumn Condition |
| 10/09/17 | DU8UTP Franco. |
| 10/09/12 | Challenge PSK 31 |
| 10/09/07 | Expansion of piggery |
| 10/08/12 | Antenna repair for 21 MHz |
| 10/08/07 | The 21 MHz antenna is broken. |
| 10/08/06 | Backyard and Antenna |
| 10/08/03 | sunset |
| 10/07/31 | Radio Commercials |
| 10/07/03 | Shack Introduction |
| 10/06/21 | Repeater Controller |
| 10/06/07 | Repeater Controller CW Routine |
| 10/05/20 | Clear sky, group of antennas |
| 10/05/18 | antenna group |
| 10/05/13 | 50MHz also open |
| 10/05/09 | Election...eh! Are you sure? |
| 10/05/06 | How to write a card via manager |
| 10/05/04 | shack |
| 10/04/20 | VHF Repeater Orders Received |
| 10/04/12 | Philippine Military Group |
| 10/04/11 | business |
| 10/04/05 | 21MHz and 50MHz antennas |
| 10/04/04 | Failed 50MHz installation |
| 10/04/04 | If not available, make one. 50MHz balun |
| 10/04/02 | If you don't have it, make it. Cross mount. |
| 10/04/01 | 50MHz 5EL remanufactured |
| 10/03/23 | Four 16-meter-long bamboos |
| 10/03/22 | Production of 21MHz 3-element yagi |
| 10/03/15 | Purchase a generator |
| 10/03/05 | wire antenna |
| 10/02/03 | Broken again. |
| 10/01/20 | I'm going in the wrong direction. |
| 10/01/19 | 18MHz Yagi breakage for Japan |
| 10/01/04 | 7/8 2-stage 144MHz band GP |
| JI1FGX/DU9 Mindanao Diary Programming AVR Microcontroller(2010/06/07) |
||
|---|---|---|
| I used to make a repeater controller using an AVR ATMEGA88 that I purchased from Kyoritsu Denshi Digit in Japan. I was sick and hot and in escape mode during the process and didn't make much progress, but I finally got the whole picture. Development environment is a trial version of BASCOM-AVR Basic However, I exceeded 4KB in the process, so I paid 10,000 yen to purchase the official version!  The target is MEGA-8-V1 and its proprietary interface.  |
||
| This source code is tailored to the ATMEGA88. The repeater control portion is complete, but the whole picture will be released after this CW routine is merged. Still sad that I still can't get out of Basic.Kohr Technical Institute CombatantI have been coldly dismissed by the "Mere Old Man" as "C or Assembler". |
||
| ' Copyright ©2008-2009 JI1FGX Kouichi Ueno ' $regfile = "m88def.dat" ' specify the used micro $crystal = 1280000 ' used crystal frequency $baud = 19200 ' use baud rate $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default use 10 for the SW stack $framesize = 40 ' default use 40 for the frame space $default Eram Dim Eeprom_value(22) As Eram Byte At $01 $default Sram Dim Modechar(5) As String * 20 Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 Config Lcdpin = Pin , E = Portb.3 , Rs = Portb.2 Modechar(5) = "DE JI1FGX/DU9" Declare Sub Cw() Config Lcd = 20 * 4 'configure lcd screen Config Portd = Input Config Portd.7 = Output Config Portd.7 = Output Config Portc = &B110000 Set Portc.5 Set Portc.6 '&B110000 Call Cw End Sub Cw() Dim In_char As String * 1 Dim CW_data As String * 5 Dim M As String * 1 Dim Cwlen As Byte Dim Cwcodelen As Byte Cls. For Cwlen = 1 To Len(modechar(5)) Locate 2 , Cwlen Lcd Mid(modechar(5) , Cwlen , 1) In_char = Mid(modechar(5) , Cwlen , 1) If In_char = " " Then CW_data = " " If In_char = "A" Then CW_data = ". -" If In_char = "B" Then CW_data = "-..." If In_char = "C" Then CW_data = "-. -." If In_char = "D" Then CW_data = "-..." If In_char = "E" Then CW_data = "." If In_char = "F" Then CW_data = ". -." If In_char = "G" Then CW_data = "--." If In_char = "H" Then CW_data = "...." If In_char = "I" Then CW_data = "..." If In_char = "J" Then CW_data = ". ---" If In_char = "K" Then CW_data = "-. -" If In_char = "L" Then CW_data = ". -..." If In_char = "M" Then CW_data = "--" If In_char = "N" Then CW_data = "-." If In_char = "O" Then CW_data = "---" If In_char = "P" Then CW_data = ". --." If In_char = "Q" Then CW_data = "--. -" If In_char = "R" Then CW_data = ". -." If In_char = "S" Then CW_data = "..." If In_char = "T" Then CW_data = "-" If In_char = "U" Then CW_data = ". -" If In_char = "V" Then CW_data = "... -" If In_char = "W" Then CW_data = ". --" If In_char = "X" Then CW_data = "-. -" If In_char = "Y" Then CW_data = "-. --" If In_char = "Z" Then CW_data = "--..." If In_char = "0" Then CW_data = "-----" If In_char = "1" Then CW_data = ". ----" If In_char = "2" Then CW_data = "... ---" If In_char = "3" Then CW_data = "... --" If In_char = "4" Then CW_data = ".... -" If In_char = "5" Then CW_data = "....." If In_char = "6" Then CW_data = "-...." If In_char = "7" Then CW_data = "--..." If In_char = "8" Then CW_data = "---..." If In_char = "9" Then CW_data = "----." If In_char = "/" Then CW_data = "-. -." For Cwcodelen = 1 To Len(CW_data) If Mid(CW_data , Cwcodelen , 1) = "." Then Sound Portc.4 , 100 , 100 If Mid(CW_data , Cwcodelen , 1) = "-" Then Sound Portc.4 , 300 , 100 If Mid(CW_data , Cwcodelen , 1) = " " Then Waitms 80 Waitms 30 Next Waitms 200 Next End Sub End |
||
| May 20, 2010 June 21, 2010 | ||