设为首页收藏本站
切换到宽版

矿石收音机论坛

 找回密码
 加入会员

QQ登录

只需一步，快速开始

搜索
矿石收音机论坛»论坛 › ∷技术区∷ › 〓晶体管与集成〓 › 电码训练器
12下一页
返回列表 发新帖
查看: 2831|回复: 18

电码训练器

[复制链接]
sjp
     
发表于 2023-9-28 15:28:32 | 显示全部楼层 |阅读模式
该电码训练器使用了一片8脚的15F104W单片机，使用双键或单键工作且速度可调，另有呼叫电码输出。（自动呼叫电码输出呼号可以自行修改）




          ;晶振频率12M
          ORG 0
          MOV P3,#00011111B
          MOV 10H,#3
          MOV R1,#125
          AJMP  STAR
STAR:     JB    P3.0,KK1             ;
          AJMP   D1                  ;点脉冲输出
KK1:      JB    P3.1,KK2             ;
          AJMP   D2                  ;划脉冲输出
KK2:      JB    P3.2,KK3             ;
          AJMP   D3                  ;加速
kk3:      JB    P3.3,KK4             ;
          AJMP   D4                  ;减速
kk4:      JB    P3.4,STAR        ;
          AJMP   D5                  ;自动

;*********点脉冲输出******************
D1:       SETB P3.5
          LCALL DELL
          CLR  P3.5
          LCALL DELL
          JB  P3.0,STAR
          AJMP D1
;*********划脉冲输出*******************
D2:       SETB P3.5
          LCALL DELL
          DJNZ  10H,D2
          CLR  P3.5
          LCALL DELL
          MOV 10H,#3
          JB  P3.1,STAR
          AJMP D2
;***********************************
D3:
;*****************加速**************
          CLR   A
          MOV   R1,#125              ;加速数据送R1
ZZ:       MOV   A,R1
          MOV   20H,A                ;加速数据送20
TT1:      CJNE  R1,#25,JRR           ;两数相等下去，不等跳到

TT1
          AJMP  STAR
JRR:      DEC   20H                  ;加速数据减1
          LCALL DELL
JRJ:      MOV   R1,20H               ;减好后送R1
          JNB    P3.3,TT1
          AJMP  STAR
;****************减速****************
D4:       CLR   A
          MOV   A,R1
          MOV   20H,A
FF1:      CJNE  R1,#250,DD1          ;两数相等下去，不等跳到TT
          AJMP  STAR
DD1:      INC   20H                  ;减速数据加1
          LCALL DELL
          MOV   R1,20H               ;加好后送R1
          JNB   P3.2,FF1
          AJMP  STAR
;**********自动发送呼号

**CQ,CQ,DE,BG4FTQ,PSE,K********************
D5:       LCALL   DAI   ;-
          LCALL   DII   ;.
          LCALL   DAI   ;- C
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII   ;. Q
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DII   ;.
          LCALL   DAI   ;- C
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII   ;. Q
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DII   ;.
          LCALL   DII   ;. D
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;. E
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DII   ;.
          LCALL   DII   ;. B
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII   ;. G
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DII   ;. 4
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DAI   ;- F
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;- T
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII   ;. Q
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DII   ;.
          LCALL   DII   ;. B
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII   ;. G
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DII   ;. 4
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DAI   ;- F
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;- T
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII   ;. Q
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DAI   ;-
          LCALL   DAI   ;- P
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DII   ;. S
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;. E
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DII   ;.
          LCALL   DAI   ;- K
          AJMP    STAR
;*********____**划脉冲输出*************
DAI:      SETB P3.5
          LCALL DELL
          DJNZ  10H,DAI
          CLR  P3.5
          LCALL DELL
          MOV 10H,#3
          RET
;********** . **点脉冲输出**************
DII:      SETB P3.5
          LCALL DELL
          CLR  P3.5
          LCALL DELL
          RET

;************延时1***********
DELL:     MOV   R2,20H
LD1:      MOV   R3,#25
LD2:      MOV   R4,#50
             DJNZ  R4,$
             DJNZ  R3,LD2
             DJNZ  R2,LD1
             RET
            END
DMXLQ.JPG

评分

4

查看全部评分

回复

使用道具 举报

发表于 2023-9-28 15:48:05 来自手机 | 显示全部楼层
惊现汇编大佬！
回复 支持 反对

使用道具 举报

天缘
     
发表于 2023-9-28 17:48:38 | 显示全部楼层
"自动"是指手键自动键转换吗?
回复 支持 反对

使用道具 举报

jysl
     
发表于 2023-9-28 18:20:12 | 显示全部楼层
guodegang 发表于 2023-9-28 15:48
惊现汇编大佬！

小程序 用汇编 更简单点……
回复 支持 反对

使用道具 举报

sjp
     
 楼主| 发表于 2023-9-28 18:45:27 来自手机 | 显示全部楼层
guodegang 发表于 2023-9-28 15:48
惊现汇编大佬！

你是大佬，我只能做些简单的东西。
回复 支持 反对

使用道具 举报

sjp
     
 楼主| 发表于 2023-9-28 18:54:52 来自手机 | 显示全部楼层
天缘 发表于 2023-9-28 17:48
"自动"是指手键自动键转换吗?

自动发送呼号和手键是分开的。该机输出部分去掉蜂鸣器，可以接入电台电键插口，这样呼叫时就可以不用手键拍发了，直接按自动拍发呼叫，且方便正确。
回复 支持 反对

使用道具 举报

radio988931
     
发表于 2023-9-28 18:58:05 | 显示全部楼层
哇塞，好久不见汇编，也N年不写汇编，感觉都忘了
回复 支持 反对

使用道具 举报

radio988931
     
发表于 2023-9-28 19:01:36 | 显示全部楼层
前两年做过arduino类似的，曾经想考照玩玩，本地无线电管理部门距离我家3km,后来放弃了。
回复 支持 反对

使用道具 举报

sjp
     
 楼主| 发表于 2023-9-28 19:06:19 来自手机 | 显示全部楼层
radio988931 发表于 2023-9-28 19:01
前两年做过arduino类似的，曾经想考照玩玩，本地无线电管理部门距离我家3km,后来放弃了。

考个照拿个呼号，小功率CW玩玩也蛮好的。
回复 支持 反对

使用道具 举报

radio988931
     
发表于 2023-9-28 19:08:14 | 显示全部楼层
本帖最后由 radio988931 于 2023-9-28 19:10 编辑
sjp 发表于 2023-9-28 19:06
考个照拿个呼号，小功率CW玩玩也蛮好的。


我朋友拿到照了，验机是买的二手手台，我没去考，目前手里没电台，哪天淘个二手也去考下。
回复 支持 反对

使用道具 举报

rener
     
发表于 2023-9-28 20:05:07 | 显示全部楼层
我只能看懂汇编了
回复 支持 反对

使用道具 举报

发表于 2023-9-29 02:17:24 | 显示全部楼层
sjp 发表于 2023-9-28 18:45
你是大佬，我只能做些简单的东西。

您玩笑了，我觉得汇编很神奇啊，一直不很理解，加之网络上对于汇编的资料又比C语言少太多太多，您有何汇编方面的资料推荐一下吗
回复 支持 反对

使用道具 举报

sjp
     
 楼主| 发表于 2023-9-29 13:56:58 | 显示全部楼层
给一个DL4YHF的PIC键控器，用PIC单片机汇编，这个汇编程序长得不得了，看不懂。

key1cir.gif

dl4yhf_pic_keyer.zip

85.4 KB, 下载次数: 59

keyer_rx3qfm.zip

27.2 KB, 下载次数: 52
回复 支持 反对

使用道具 举报

sjp
     
 楼主| 发表于 2023-9-30 12:12:21 | 显示全部楼层
优化了程序，修正了错误。加减速度程序优化一下更加简练。4是4点一划少了一点。

          ;晶振频率12M
          ORG 0
          MOV P3,#00011111B     ;初始化
          MOV 10H,#3            ;预置数3送10H
          MOV 20H,#125          ;预置数125送20H
          AJMP  STAR
STAR:   JB    P3.0,KK1      
             AJMP   D1             ;点脉冲输出
KK1:     JB    P3.1,KK2        ;
            AJMP   D2              ;划脉冲输出
KK2:     JB    P3.2,KK3        ;           扫描按键
            AJMP   D3              ;加速
kk3:     JB    P3.3,KK4        ;
            AJMP   D4              ;减速
kk4:     JB    P3.4,STAR      ;
            AJMP   D5              ;

;*********点脉冲输出************
D1:    SETB P3.5
          LCALL DELL
          CLR  P3.5             ;输出一个点脉冲
          LCALL DELL
          JB  P3.0,STAR
          AJMP D1
;*********划脉冲输出************
D2:    SETB P3.5
          LCALL DELL
          DJNZ  10H,D2
          CLR  P3.5             ;划输出连续三个点脉冲
          LCALL DELL
          MOV 10H,#3
          JB  P3.1,STAR
          AJMP D2

;*****************加速***********
D3:
          MOV   R1,20H           ;加速数据送20
TT1:   CJNE  R1,#50,JRR    ;比较相等下去，不等跳到TT1
          AJMP  STAR
JRR:   DEC   20H                 ;加速数据减1
          LCALL DELL
          MOV   R1,20H           ;减好后送R1
          JNB   P3.2,TT1          ;按下连续减
          AJMP  STAR
;****************减速****************
D4:
          MOV   R1,20H            ;减速数据送20
FF1:   CJNE  R1,#250,DD1   ;两数相等下去，不等跳到FF1
          AJMP  STAR
DD1:  INC   20H                   ;减速数据加1
          LCALL DELL
          MOV   R1,20H            ;加好后送R1
          JNB   P3.3,FF1           ;按下连续加
          AJMP  STAR
;****自动发送呼号*CQ,CQ,DE,BG4FTQ,BG4FTQ,PSE,K*************
D5:    LCALL   DAI   ;-
          LCALL   DII   ;.
          LCALL   DAI  ;- C
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII    ;. Q
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DII    ;.
          LCALL   DAI   ;- C
          LCALL   DII    ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII    ;. Q
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI  ;-
          LCALL   DII   ;.
          LCALL   DII   ;. D
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;. E
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI  ;-
          LCALL   DII   ;.
          LCALL   DII   ;. B
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII    ;. G
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DII   ;. 4
          LCALL   DAI  ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DAI  ;- F
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;- T
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII    ;. Q
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI  ;-
          LCALL   DII   ;.
          LCALL   DII   ;. B
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII    ;. G
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DII   ;. 4
          LCALL   DAI  ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DAI  ;- F
          LCALL   DII   ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;- T
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DAI   ;-
          LCALL   DII    ;. Q
          LCALL   DAI   ;-
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII    ;.
          LCALL   DAI   ;-
          LCALL   DAI   ;- P
          LCALL   DII    ;.
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII   ;.
          LCALL   DII   ;.
          LCALL   DII   ;. S
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DII    ;. E
          LCALL DELL
          LCALL DELL
          NOP
          LCALL   DAI   ;-
          LCALL   DII    ;.
          LCALL   DAI   ;- K
          AJMP    STAR
;*********____**划脉冲输出**********
DAI:   SETB P3.5
          LCALL DELL
          DJNZ  10H,DAI
          CLR  P3.5
          LCALL DELL
          MOV 10H,#3
          RET
;********** . **点脉冲输出***********
DII:    SETB P3.5
          LCALL DELL
          CLR  P3.5
          LCALL DELL
          RET

;************延时1***********
DELL: MOV   R2,20H
LD1:   MOV   R3,#50  
LD2:   MOV   R4,#50
          DJNZ  R4,$
          DJNZ  R3,LD2
          DJNZ  R2,LD1
          RET
          END

DMXLQ.HEX.rar

396 Bytes, 下载次数: 47

DMXLQ.ASM.rar

874 Bytes, 下载次数: 42
回复 支持 反对

使用道具 举报

sjp
     
 楼主| 发表于 2023-9-30 13:38:19 | 显示全部楼层
jiedamotuo 发表于 2023-9-30 13:26
这个工程量可不小了。。

还可以吧，这个属于小程序。       
回复 支持 反对

使用道具 举报

12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入会员

本版积分规则

小黑屋|手机版|矿石收音机 ( 蒙ICP备05000029号-1 )

蒙公网安备 15040402000005号

GMT+8, 2025-5-5 08:51

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表