morse.asm

用在EM78860单片机制作的摩斯密码机源文件

L51:
LDA _regdata,0,3
mov cl,a
STA _RE,0,0
.stabn 68,0,364,L52
L52:
.stabn 224,0,0,L53
L53:
L$47:
mov a,enable_lcd_bp-4
mov ecx,a
mov a,enable_lcd_bp-3
mov ecx+1,a
mov a,enable_lcd_bp-2
mov ecx+2,a
mov a,enable_lcd_bp-1
mov ecx+3,a
ret
.STACK enable_lcd_bp,local,4
public _lcd_clear
public lcd_clear_bp
.stabs "lcd_clear:F15",36,0,0,_lcd_clear
.section ".S5",C_CODE
.SYMDEF ".S5" 
_lcd_clear:
.SYMDEF "_lcd_clear" 
mov a,ecx
mov lcd_clear_bp-4,a
mov a,ecx+1
mov lcd_clear_bp-3,a
mov a,ecx+2
mov lcd_clear_bp-2,a
mov a,ecx+3
mov lcd_clear_bp-1,a
.stabs "i:10",128,0,0,lcd_clear_bp-5
.stabn 192,0,0,L63
L63:
.stabn 68,0,366,L64
L64:
.stabn 68,0,369,L65
L65:
mov a,@0
STA lcd_clear_bp-5,0,0
jmp @L$58
L$55:
.stabn 192,0,1,L66
L66:
.stabn 68,0,370,L67
L67:
.stabn 68,0,371,L68
L68:
LDA lcd_clear_bp-5,0,0
STA _IOCB,0,2
.stabn 68,0,372,L69
L69:
mov a,@0
STA _IOCC,0,2
.stabn 68,0,373,L70
L70:
.stabn 224,0,1,L71
L71:
L$56:
.stabn 68,0,369,L72
L72:
INCMB lcd_clear_bp-5,0
L$58:
.stabn 68,0,369,L73
L73:
LDA lcd_clear_bp-5,0,0
mov cl,a
UCMPRIB cl,59
jbs sr,cflag
jmp @L$55
.stabn 68,0,374,L74
L74:
mov a,@64
STA lcd_clear_bp-5,0,0
jmp @L$62
L$59:
.stabn 192,0,1,L75
L75:
.stabn 68,0,375,L76
L76:
.stabn 68,0,376,L77
L77:
LDA lcd_clear_bp-5,0,0
STA _IOCB,0,2
.stabn 68,0,377,L78
L78:
mov a,@0
STA _IOCC,0,2
.stabn 68,0,378,L79
L79:
.stabn 224,0,1,L80
L80:
L$60:
.stabn 68,0,374,L81
L81:
INCMB lcd_clear_bp-5,0
L$62:
.stabn 68,0,374,L82
L82:
LDA lcd_clear_bp-5,0,0
mov cl,a
UCMPRIB cl,123
jbs sr,cflag
jmp @L$59
.stabn 68,0,379,L83
L83:
mov a,@0
STA _lcd_current_addr,0,3
.stabn 68,0,380,L84
L84:
.stabn 224,0,0,L85
L85:
L$54:
mov a,lcd_clear_bp-4
mov ecx,a
mov a,lcd_clear_bp-3
mov ecx+1,a
mov a,lcd_clear_bp-2
mov ecx+2,a
mov a,lcd_clear_bp-1
mov ecx+3,a
ret
.STACK lcd_clear_bp,local,5
public _indir_addr
public indir_addr_bp
.stabs "indir_addr:F2",36,0,0,_indir_addr
.section ".S6",C_CODE
.SYMDEF ".S6" 
_indir_addr:
.SYMDEF "_indir_addr" 
mov a,ecx
mov indir_addr_bp-4,a
mov a,ecx+1
mov indir_addr_bp-3,a
mov a,ecx+2
mov indir_addr_bp-2,a
mov a,ecx+3
mov indir_addr_bp-1,a
.stabs ":t20=*2",128,0,0,0
.stabs "str:p20",160,0,0,indir_addr_bp+0
.stabs "i:p2",160,0,0,indir_addr_bp+2
.stabs "data:2",128,0,0,indir_addr_bp-5
.stabn 192,0,0,L87
L87:
.stabn 68,0,382,L88
L88:
.stabn 68,0,387,L89
L89:
.cfile "E:\Data\morse\morse.c(387):"
mov a,indir_addr_bp+2
.stabn 68,0,388,L90
L90:
.cfile "E:\Data\morse\morse.c(388):"
mov 0x14,a
.stabn 68,0,389,L91
L91:
.cfile "E:\Data\morse\morse.c(389):"
mov a,	indir_addr_bp+0
.stabn 68,0,390,L92
L92:
.cfile "E:\Data\morse\morse.c(390):"
mov 0x4,a
.stabn 68,0,391,L93
L93:
.cfile "E:\Data\morse\morse.c(391):"
mov a,0x0
.stabn 68,0,392,L94
L94:
.cfile "E:\Data\morse\morse.c(392):"
add a,0x14
.stabn 68,0,393,L95
L95:
.cfile "E:\Data\morse\morse.c(393):"
mov indir_addr_bp-5,a
.stabn 68,0,395,L96
L96:
LDA indir_addr_bp-5,0,0
mov al,a
.stabn 68,0,396,L97
L97:
.stabn 224,0,0,L98
L98:
L$86:
mov a,indir_addr_bp-4
mov ecx,a
mov a,indir_addr_bp-3
mov ecx+1,a
mov a,indir_addr_bp-2
mov ecx+2,a
mov a,indir_addr_bp-1
mov ecx+3,a
ret
.STACK indir_addr_bp,local,5
public _indir_addr1
public indir_addr1_bp
.stabs "indir_addr1:F2",36,0,0,_indir_addr1
.section ".S7",C_CODE
.SYMDEF ".S7" 
_indir_addr1:
.SYMDEF "_indir_addr1" 
mov a,ecx
mov indir_addr1_bp-4,a
mov a,ecx+1
mov indir_addr1_bp-3,a
mov a,ecx+2
mov indir_addr1_bp-2,a
mov a,ecx+3
mov indir_addr1_bp-1,a
.stabs ":t21=*2",128,0,0,0
.stabs "str:p21",160,0,0,indir_addr1_bp+0
.stabs "i:p2",160,0,0,indir_addr1_bp+1
.stabs "data:2",128,0,0,indir_addr1_bp-5
.stabn 192,0,0,L100
L100:
.stabn 68,0,398,L101
L101:
.stabn 68,0,403,L102
L102:
.cfile "E:\Data\morse\morse.c(403):"
mov a,indir_addr1_bp+1
.stabn 68,0,404,L103
L103:
.cfile "E:\Data\morse\morse.c(404):"
mov 0x14,a
.stabn 68,0,405,L104
L104:
.cfile "E:\Data\morse\morse.c(405):"
mov a,	indir_addr1_bp+0
.stabn 68,0,406,L105
L105:
.cfile "E:\Data\morse\morse.c(406):"
mov 0x4,a
.stabn 68,0,407,L106
L106:
.cfile "E:\Data\morse\morse.c(407):"
mov a,0x0
.stabn 68,0,408,L107
L107:
.cfile "E:\Data\morse\morse.c(408):"
add a,0x14
.stabn 68,0,409,L108
L108:
.cfile "E:\Data\morse\morse.c(409):"
mov indir_addr1_bp-5,a
.stabn 68,0,411,L109
L109:
LDA indir_addr1_bp-5,0,0
mov al,a
.stabn 68,0,412,L110
L110:
.stabn 224,0,0,L111
L111:
L$99:
mov a,indir_addr1_bp-4
mov ecx,a
mov a,indir_addr1_bp-3
mov ecx+1,a
mov a,indir_addr1_bp-2
mov ecx+2,a
mov a,indir_addr1_bp-1
mov ecx+3,a
ret
.STACK indir_addr1_bp,local,5
public _lcd_display
public lcd_display_bp
.stabs "lcd_display:F15",36,0,0,_lcd_display
.section ".S8",C_CODE
.SYMDEF ".S8" 
_lcd_display:
.SYMDEF "_lcd_display" 
mov a,ecx
mov lcd_display_bp-4,a
mov a,ecx+1
mov lcd_display_bp-3,a
mov a,ecx+2
mov lcd_display_bp-2,a
mov a,ecx+3
mov lcd_display_bp-1,a
.stabs "pos:p10",160,0,0,lcd_display_bp+0
.stabs "str:p20",160,0,0,lcd_display_bp+1
.stabs "len:p10",160,0,0,lcd_display_bp+3
.stabs "data:2",128,0,0,lcd_display_bp-5
.stabs "j:2",128,0,0,lcd_display_bp-6
.stabs "index:2",128,0,0,lcd_display_bp-7
.stabs "addr:2",128,0,0,lcd_display_bp-8
.stabs "i:2",128,0,0,lcd_display_bp-9
.stabn 192,0,0,L144
L144:
.stabn 68,0,417,L145
L145:
.stabn 68,0,420,L146
L146:
mov a,@0
STA lcd_display_bp-9,0,0
.stabn 68,0,420,L147
L147:
mov a,@0
STA lcd_display_bp-6,0,0
jmp @L$114
L$113:
.stabn 192,0,1,L148
L148:
.stabn 68,0,425,L149
L149:
.stabn 68,0,426,L150
L150:
LDA lcd_display_bp+0,0,0
mov cl,a
UCMPRIB cl,10
jbc sr,cflag
jmp @L$116
.stabn 192,0,2,L151
L151:
.stabn 68,0,427,L152
L152:
.stabn 68,0,428,L153
L153:
LDA lcd_display_bp+0,0,0
mov cl,a
mov a,@1
and cl,a
UCMPRIB cl,0
jbc sr,zflag
jmp @L$118
.stabn 192,0,3,L154
L154:
.stabn 68,0,429,L155
L155:
.stabn 68,0,430,L156
L156:
mov a,@5
STA lcd_display_bp-10,0,0
LDA lcd_display_bp+0,0,0
mov al,a
STA lcd_display_bp-11,0,0
mov a,@10
mov cl,a
mov a,al
sub cl,a
LDA lcd_display_bp-10,0,0
mov al,a
mov a,@al
mov pr0,a
mov a,@cl
mov pr1,a
call umulrrb
mov a,al
STA lcd_display_bp-12,0,0
LDA lcd_display_bp-11,0,0
mov cl,a
mov a,@1
sub cl,a
bc sr,cflag
rrc cl
LDA lcd_display_bp-10,0,0
mov al,a
mov a,@al
mov pr0,a
mov a,@cl
mov pr1,a
call umulrrb
LDA lcd_display_bp-12,0,0
mov cl,a
mov a,al
add cl,a
mov a,cl
STA lcd_display_bp-8,0,0
.stabn 68,0,431,L157
L157:
.stabn 224,0,3,L158
L158:
jmp @L$117
L$118:
.stabn 192,0,3,L159
L159:
.stabn 68,0,433,L160
L160:
.stabn 68,0,435,L161
L161:
mov a,@5
mov cl,a
LDA lcd_display_bp+0,0,0
mov al,a
bc sr,cflag
rrc al
mov a,@cl
mov pr0,a
mov a,@al
mov pr1,a
call umulrrb
mov a,cl
STA lcd_display_bp-8,0,0
.stabn 68,0,436,L162
L162:
.stabn 224,0,3,L163
L163:
.stabn 68,0,438,L164
L164:
.stabn 224,0,2,L165
L165:
jmp @L$117
L$116:
.stabn 192,0,2,L166
L166:
.stabn 68,0,440,L167
L167:
.stabn 68,0,441,L168
L168:
LDA lcd_display_bp+0,0,0
mov cl,a
mov a,@1
and cl,a
UCMPRIB cl,0
jbc sr,zflag
jmp @L$120
.stabn 192,0,3,L169
L169:
.stabn 68,0,442,L170
L170:
.stabn 68,0,444,L171
L171:
mov a,@5
mov cl,a
mov a,@20
mov al,a
LDA lcd_display_bp+0,0,0
sub al,a
mov a,@1
sub al,a
bc sr,cflag
rrc al
mov a,@cl
mov pr0,a
mov a,@al
mov pr1,a
call umulrrb
mov a,@64
add cl,a
mov a,cl
STA lcd_display_bp-8,0,0
.stabn 68,0,445,L172
L172:
.stabn 224,0,3,L173
L173:
jmp @L$121
L$120:
.stabn 192,0,3,L174
L174:
.stabn 68,0,447,L175
L175:
.stabn 68,0,449,L176
L176:
mov a,@5
mov cl,a
LDA lcd_display_bp+0,0,0
mov al,a
mov a,@10
sub al,a
bc sr,cflag
rrc al
mov a,@1
add al,a
mov a,@cl
mov pr0,a
mov a,@al
mov pr1,a
call umulrrb
mov a,@20
add cl,a
mov a,@64
add cl,a
mov a,cl
STA lcd_display_bp-8,0,0
.stabn 68,0,450,L177
L177:
.stabn 224,0,3,L178
L178:
L$121:
.stabn 68,0,451,L179
L179:
.stabn 224,0,2,L180
L180:
L$117:
.stabn 68,0,452,L181
L181:
LDA lcd_display_bp-9,0,0
mov indir_addr_bp+2,a
LDA lcd_display_bp+1,0,0
mov indir_addr_bp+0,a
LDA lcd_display_bp+1+1,0,0
mov indir_addr_bp+0+1,a
.STACK indir_addr_bp,parameter,3
call _indir_addr
mov a,al
STA lcd_display_bp-5,0,0
.stabn 68,0,453,L182
L182:
mov a,@1
STA lcd_display_bp-6,0,0
L$122:
.stabn 192,0,2,L183
L183:
.stabn 68,0,454,L184
L184:
.stabn 68,0,455,L185
L185:
LDA lcd_display_bp-8,0,0
mov cl,a
LDA lcd_display_bp-6,0,0
add cl,a
mov a,@1
sub cl,a
mov a,cl
STA _IOCB,0,2
.stabn 68,0,456,L186
L186:
mov a,@0
STA _iocc_data,0,3
.stabn 68,0,457,L187
L187:
LDA lcd_display_bp+0,0,0
mov cl,a
mov a,@1
and cl,a
UCMPRIB cl,0
jbc sr,zflag
jmp @L$126
.stabn 192,0,3,L188
L188:
.stabn 68,0,458,L189
L189:
.stabn 68,0,459,L190
L190:
LDA lcd_display_bp-5,0,0
mov cl,a
ICMPRIB cl,31
jbc sr,zflag
jmp @L$128
jbs sr,cflag
jmp @L$128
ICMPRIB cl,53
jbc sr,cflag
jmp @L$128
.stabn 192,0,4,L191
L191:
.stabn 68,0,460,L192
L192:
.stabn 68,0,461,L193
L193:
LDA lcd_display_bp-5,0,0
mov cl,a
mov a,@32
sub cl,a
mov a,cl
STA lcd_display_bp-7,0,0
.stabn 68,0,462,L194
L194:
mov a,@6
mov cl,a
STA lcd_display_bp-10,0,0
LDA lcd_display_bp-7,0,0
mov al,a
mov a,@cl
mov pr0,a
mov a,@al
mov pr1,a
call umulrrb
LDA lcd_display_bp-10,0,0
mov al,a
LDA lcd_display_bp-6,0,0
sub al,a
mov a,al
add cl,a
mov a,cl
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
mov a,@.b0._lcd_word_table1
mov ax,a
mov a,@.b1._lcd_word_table1
mov ax+1,a
mov a,ax
add cx,a
mov a,ax+1
jbc sr,cflag
add a,@1
add cx+1,a
LDAP cx,0,1
mov cl,a
ORMRB _iocc_data,cl,3
.stabn 68,0,463,L195
L195:
.stabn 224,0,4,L196
L196:
jmp @L$127
L$128:
.stabn 68,0,464,L197
L197:
LDA lcd_display_bp-5,0,0
mov cl,a
ICMPRIB cl,52
jbc sr,zflag
jmp @L$130
jbs sr,cflag
jmp @L$130
ICMPRIB cl,74
jbc sr,cflag
jmp @L$130
.stabn 192,0,4,L198
L198:
.stabn 68,0,465,L199
L199:
.stabn 68,0,466,L200
L200:
LDA lcd_display_bp-5,0,0
mov cl,a
mov a,@53
sub cl,a
mov a,cl
STA lcd_display_bp-7,0,0
.stabn 68,0,467,L201
L201:
mov a,@6
mov cl,a
STA lcd_display_bp-10,0,0
LDA lcd_display_bp-7,0,0
mov al,a
mov a,@cl
mov pr0,a
mov a,@al
mov pr1,a
call umulrrb
LDA lcd_display_bp-10,0,0
mov al,a
LDA lcd_display_bp-6,0,0
sub al,a
mov a,al
add cl,a
mov a,cl
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
mov a,@.b0._lcd_word_table2
mov ax,a
mov a,@.b1._lcd_word_table2
mov ax+1,a
mov a,ax
add cx,a
mov a,ax+1
jbc sr,cflag
add a,@1
add cx+1,a
LDAP cx,0,1
mov cl,a
ORMRB _iocc_data,cl,3
.stabn 68,0,468,L202
L202:
.stabn 224,0,4,L203
L203:
jmp @L$127
L$130:
.stabn 68,0,469,L204
L204:
LDA lcd_display_bp-5,0,0
mov cl,a
ICMPRIB cl,73
jbc sr,zflag
jmp @L$132
jbs sr,cflag
jmp @L$132
ICMPRIB cl,95
jbc sr,cflag
jmp @L$132
.stabn 192,0,4,L205
L205:
.stabn 68,0,470,L206
L206:
.stabn 68,0,471,L207
L207:
LDA lcd_display_bp-5,0,0
mov cl,a
mov a,@74
sub cl,a
mov a,cl
STA lcd_display_bp-7,0,0
.stabn 68,0,472,L208
L208:
mov a,@6
mov cl,a
STA lcd_display_bp-10,0,0
LDA lcd_display_bp-7,0,0
mov al,a
mov a,@cl
mov pr0,a
mov a,@al
mov pr1,a
call umulrrb
LDA lcd_display_bp-10,0,0
mov al,a
LDA lcd_display_bp-6,0,0
sub al,a
mov a,al
add cl,a
mov a,cl
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
mov a,@.b0._lcd_word_table3
mov ax,a
mov a,@.b1._lcd_word_table3
mov ax+1,a
mov a,ax
add cx,a
mov a,ax+1
jbc sr,cflag
add a,@1
add cx+1,a
LDAP cx,0,1
mov cl,a
ORMRB _iocc_data,cl,3
.stabn 68,0,473,L209
L209:
.stabn 224,0,4,L210
L210:
jmp @L$127
L$132:
.stabn 68,0,474,L211
L211:
LDA lcd_display_bp-5,0,0
mov cl,a
ICMPRIB cl,95
jbs sr,zflag
jmp @L$127
.stabn 192,0,4,L212
L212:
.stabn 68,0,475,L213
L213:
.stabn 68,0,476,L214
L214:
LDA lcd_display_bp-5,0,0
mov cl,a
mov a,@95
sub cl,a
mov a,cl
STA lcd_display_bp-7,0,0
.stabn 68,0,477,L215
L215:
mov a,@6
mov cl,a
STA lcd_display_bp-10,0,0
LDA lcd_display_bp-7,0,0
mov al,a
mov a,@cl
mov pr0,a
mov a,@al
mov pr1,a
call umulrrb
LDA lcd_display_bp-10,0,0
mov al,a
LDA lcd_display_bp-6,0,0
sub al,a
mov a,al
add cl,a
mov a,cl
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
mov a,@.b0._lcd_word_table4
mov ax,a
mov a,@.b1._lcd_word_table4
mov ax+1,a
mov a,ax
add cx,a
mov a,ax+1
jbc sr,cflag
add a,@1
add cx+1,a
LDAP cx,0,1
mov cl,a
ORMRB _iocc_data,cl,3
.stabn 68,0,478,L216
L216:
.stabn 224,0,4,L217
L217:
.stabn 68,0,479,L218
L218:
.stabn 224,0,3,L219
L219:
jmp @L$127
L$126:
.stabn 192,0,3,L220
L220:
.stabn 68,0,481,L221
L221:
.stabn 68,0,482,L222
L222:
LDA lcd_display_bp-5,0,0
mov cl,a
ICMPRIB cl,31
jbc sr,zflag
jmp @L$136
jbs sr,cflag
jmp @L$136
ICMPRIB cl,53
jbc sr,cflag
jmp @L$136
.stabn 192,0,4,L223
L223:
.stabn 68,0,483,L224
L224:
.stabn 68,0,484,L225
L225:
LDA lcd_display_bp-5,0,0
mov cl,a
mov a,@32
sub cl,a
mov a,cl
STA lcd_display_bp-7,0,0
.stabn 68,0,485,L226
L226:
mov a,@6
mov cl,a
LDA lcd_display_bp-7,0,0
mov al,a
mov a,@cl
mov pr0,a
mov a,@al
mov pr1,a
call umulrrb
LDA lcd_display_bp-6,0,0
add cl,a
mov a,cl
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
mov a,@.b0._lcd_word_table1
mov ax,a
mov a,@.b1._lcd_word_table1
mov ax+1,a
mov a,ax
add cx,a
mov a,ax+1
jbc sr,cflag
add a,@1
add cx+1,a
LDAP cx,0,1
mov cl,a
ORMRB _iocc_data,cl,3
.stabn 68,0,486,L227
L227:
.stabn 224,0,4,L228
L228: