morse.asm

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

jmp @L$137
L$136:
.stabn 68,0,487,L229
L229:
LDA lcd_display_bp-5,0,0
mov cl,a
ICMPRIB cl,52
jbc sr,zflag
jmp @L$138
jbs sr,cflag
jmp @L$138
ICMPRIB cl,74
jbc sr,cflag
jmp @L$138
.stabn 192,0,4,L230
L230:
.stabn 68,0,488,L231
L231:
.stabn 68,0,489,L232
L232:
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,490,L233
L233:
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_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,491,L234
L234:
.stabn 224,0,4,L235
L235:
jmp @L$139
L$138:
.stabn 68,0,492,L236
L236:
LDA lcd_display_bp-5,0,0
mov cl,a
ICMPRIB cl,73
jbc sr,zflag
jmp @L$140
jbs sr,cflag
jmp @L$140
ICMPRIB cl,95
jbc sr,cflag
jmp @L$140
.stabn 192,0,4,L237
L237:
.stabn 68,0,493,L238
L238:
.stabn 68,0,494,L239
L239:
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,495,L240
L240:
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_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,496,L241
L241:
.stabn 224,0,4,L242
L242:
jmp @L$141
L$140:
.stabn 68,0,497,L243
L243:
LDA lcd_display_bp-5,0,0
mov cl,a
ICMPRIB cl,95
jbs sr,zflag
jmp @L$142
.stabn 192,0,4,L244
L244:
.stabn 68,0,498,L245
L245:
.stabn 68,0,499,L246
L246:
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,500,L247
L247:
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_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,501,L248
L248:
.stabn 224,0,4,L249
L249:
L$142:
L$141:
L$139:
L$137:
.stabn 68,0,503,L250
L250:
.stabn 224,0,3,L251
L251:
L$127:
.stabn 68,0,504,L252
L252:
LDA _iocc_data,0,3
mov cl,a
STA _IOCC,0,2
.stabn 68,0,505,L253
L253:
.stabn 224,0,2,L254
L254:
L$123:
.stabn 68,0,453,L255
L255:
INCMB lcd_display_bp-6,0
.stabn 68,0,453,L256
L256:
LDA lcd_display_bp-6,0,0
mov cl,a
ICMPRIB cl,6
jbs sr,cflag
jmp @L$122
.stabn 68,0,506,L257
L257:
INCMB lcd_display_bp+0,0
.stabn 68,0,507,L258
L258:
DECMB lcd_display_bp+3,0
.stabn 68,0,508,L259
L259:
INCMB lcd_display_bp-9,0
.stabn 68,0,509,L260
L260:
.stabn 224,0,1,L261
L261:
L$114:
.stabn 68,0,424,L262
L262:
LDA lcd_display_bp+3,0,0
mov cl,a
UCMPRIB cl,0
jbs sr,zflag
jmp @L$113
.stabn 68,0,510,L263
L263:
LDA lcd_display_bp+0,0,0
mov cl,a
STA _lcd_current_addr,0,3
.stabn 68,0,511,L264
L264:
.stabn 224,0,0,L265
L265:
L$112:
mov a,lcd_display_bp-4
mov ecx,a
mov a,lcd_display_bp-3
mov ecx+1,a
mov a,lcd_display_bp-2
mov ecx+2,a
mov a,lcd_display_bp-1
mov ecx+3,a
ret
.STACK lcd_display_bp,local,12
public _lcd_append_str
public lcd_append_str_bp
.stabs "lcd_append_str:F15",36,0,0,_lcd_append_str
.section ".S9",C_CODE
.SYMDEF ".S9" 
_lcd_append_str:
.SYMDEF "_lcd_append_str" 
mov a,ecx
mov lcd_append_str_bp-4,a
mov a,ecx+1
mov lcd_append_str_bp-3,a
mov a,ecx+2
mov lcd_append_str_bp-2,a
mov a,ecx+3
mov lcd_append_str_bp-1,a
.stabs "str:p20",160,0,0,lcd_append_str_bp+0
.stabs "len:p10",160,0,0,lcd_append_str_bp+2
.stabs "pos:2",128,0,0,lcd_append_str_bp-5
.stabn 192,0,0,L269
L269:
.stabn 68,0,515,L270
L270:
.stabn 68,0,518,L271
L271:
LDA _lcd_current_addr,0,3
mov cl,a
LDA lcd_append_str_bp+2,0,0
mov al,a
add cl,a
ICMPRIB cl,20
jbc sr,zflag
jmp @L$267
jbs sr,cflag
jmp @L$267
.stabn 68,0,519,L272
L272:
mov a,@0
STA lcd_append_str_bp-5,0,0
jmp @L$268
L$267:
.stabn 68,0,521,L273
L273:
LDA _lcd_current_addr,0,3
STA lcd_append_str_bp-5,0,0
L$268:
.stabn 68,0,522,L274
L274:
LDA lcd_append_str_bp+2,0,0
mov lcd_display_bp+3,a
LDA lcd_append_str_bp+0,0,0
mov lcd_display_bp+1,a
LDA lcd_append_str_bp+0+1,0,0
mov lcd_display_bp+1+1,a
LDA lcd_append_str_bp-5,0,0
mov cl,a
mov lcd_display_bp+0,a
.STACK lcd_display_bp,parameter,4
call _lcd_display
.stabn 68,0,523,L275
L275:
.stabn 224,0,0,L276
L276:
L$266:
mov a,lcd_append_str_bp-4
mov ecx,a
mov a,lcd_append_str_bp-3
mov ecx+1,a
mov a,lcd_append_str_bp-2
mov ecx+2,a
mov a,lcd_append_str_bp-1
mov ecx+3,a
ret
.STACK lcd_append_str_bp,local,5
public _random
public random_bp
.stabs "random:F2",36,0,0,_random
.section ".S10",C_CODE
.SYMDEF ".S10" 
_random:
.SYMDEF "_random" 
mov a,ecx
mov random_bp-4,a
mov a,ecx+1
mov random_bp-3,a
mov a,ecx+2
mov random_bp-2,a
mov a,ecx+3
mov random_bp-1,a
.stabn 192,0,0,L278
L278:
.stabn 68,0,525,L279
L279:
.stabn 68,0,527,L280
L280:
LDA _RD,0,0
mov cl,a
mov a,@7
and cl,a
mov a,cl
mov al,a
.stabn 68,0,528,L281
L281:
.stabn 224,0,0,L282
L282:
L$277:
mov a,random_bp-4
mov ecx,a
mov a,random_bp-3
mov ecx+1,a
mov a,random_bp-2
mov ecx+2,a
mov a,random_bp-1
mov ecx+3,a
ret
.STACK random_bp,local,4
public _user_address
public user_address_bp
.stabs "user_address:F8",36,0,0,_user_address
.section ".S11",C_CODE
.SYMDEF ".S11" 
_user_address:
.SYMDEF "_user_address" 
mov a,ecx
mov user_address_bp-4,a
mov a,ecx+1
mov user_address_bp-3,a
mov a,ecx+2
mov user_address_bp-2,a
mov a,ecx+3
mov user_address_bp-1,a
.stabs "num:p2",160,0,0,user_address_bp+0
.stabs "band:2",128,0,0,user_address_bp-5
.stabs "odd:2",128,0,0,user_address_bp-6
.stabn 192,0,0,L286
L286:
.stabn 68,0,533,L287
L287:
.stabn 68,0,536,L288
L288:
LDA user_address_bp+0,0,0
mov cl,a
bc pr0,0
jbs cl,7
jmp @J4
bs pr0,0
dec cl
com cl
J4:
mov a,@1
mov ccounter,a
J5:
bc sr,cflag
rrc cl
djz ccounter
jmp @J5
jbs pr0,0
jmp @J6
com cl
inc cl
J6:
mov a,cl
STA user_address_bp-5,0,0
.stabn 68,0,537,L289
L289:
LDA user_address_bp+0,0,0
mov cl,a
mov a,@cl
mov pr0,a
mov a,@2
mov pr1,a
call idivrib
mov a,pr0
STA user_address_bp-6,0,0
.stabn 68,0,538,L290
L290:
LDA user_address_bp-6,0,0
mov cl,a
ICMPRIB cl,0
jbc sr,zflag
jmp @L$284
.stabn 68,0,539,L291
L291:
LDA user_address_bp-5,0,0
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
mov a,@8
mov al,a
mov a,cx
mov ax,a
mov a,cx+1
mov ax+1,a
mov a,@ax
mov pr0,a
mov a,@al
mov pr1,a
call shlrrw
jmp @L$283
L$284:
.stabn 68,0,541,L292
L292:
LDA user_address_bp-5,0,0
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
mov a,@8
mov al,a
mov a,@cx
mov pr0,a
mov a,@al
mov pr1,a
call shlrrw
mov a,cx
mov ax,a
mov a,cx+1
mov ax+1,a
mov a,@.b0.120
add ax,a
mov a,@.b1.120
jbc sr,cflag
add a,@1
add ax+1,a
.stabn 68,0,542,L293
L293:
.stabn 224,0,0,L294
L294:
L$283:
mov a,user_address_bp-4
mov ecx,a
mov a,user_address_bp-3
mov ecx+1,a
mov a,user_address_bp-2
mov ecx+2,a
mov a,user_address_bp-1
mov ecx+3,a
ret
.STACK user_address_bp,local,6
public _open_led
public open_led_bp
.stabs "open_led:F15",36,0,0,_open_led
.section ".S12",C_CODE
.SYMDEF ".S12" 
_open_led:
.SYMDEF "_open_led" 
mov a,ecx
mov open_led_bp-4,a
mov a,ecx+1
mov open_led_bp-3,a
mov a,ecx+2
mov open_led_bp-2,a
mov a,ecx+3
mov open_led_bp-1,a
.stabn 192,0,0,L296
L296:
.stabn 68,0,545,L297
L297:
.stabn 68,0,547,L298
L298:
LDA _IOC9,0,2
STA _regdata,0,3
.stabn 68,0,548,L299
L299:
mov a,@-5
mov cl,a
ANDMRB _regdata,cl,3
.stabn 68,0,549,L300
L300:
LDA _regdata,0,3
STA _IOC9,0,2
.stabn 68,0,550,L301
L301:
LDA _PORT9,0,0
STA _regdata,0,3
.stabn 68,0,551,L302
L302:
mov a,@4
mov cl,a
ORMRB _regdata,cl,3
.stabn 68,0,552,L303
L303:
LDA _regdata,0,3
mov cl,a
STA _PORT9,0,0
.stabn 68,0,553,L304
L304:
.stabn 224,0,0,L305
L305:
L$295:
mov a,open_led_bp-4
mov ecx,a
mov a,open_led_bp-3
mov ecx+1,a
mov a,open_led_bp-2
mov ecx+2,a
mov a,open_led_bp-1
mov ecx+3,a
ret
.STACK open_led_bp,local,4
public _close_led
public close_led_bp
.stabs "close_led:F15",36,0,0,_close_led
.section ".S13",C_CODE
.SYMDEF ".S13" 
_close_led:
.SYMDEF "_close_led" 
mov a,ecx
mov close_led_bp-4,a
mov a,ecx+1
mov close_led_bp-3,a
mov a,ecx+2
mov close_led_bp-2,a
mov a,ecx+3
mov close_led_bp-1,a
.stabn 192,0,0,L307
L307:
.stabn 68,0,555,L308
L308:
.stabn 68,0,557,L309
L309:
LDA _IOC9,0,2
STA _regdata,0,3
.stabn 68,0,558,L310
L310:
mov a,@-5
mov cl,a
ANDMRB _regdata,cl,3
.stabn 68,0,559,L311
L311:
LDA _regdata,0,3
STA _IOC9,0,2
.stabn 68,0,560,L312
L312:
LDA _PORT9,0,0
STA _regdata,0,3
.stabn 68,0,561,L313
L313:
mov a,@-5
mov cl,a
ANDMRB _regdata,cl,3
.stabn 68,0,562,L314
L314:
LDA _regdata,0,3
mov cl,a
STA _PORT9,0,0
.stabn 68,0,563,L315
L315:
.stabn 224,0,0,L316
L316:
L$306:
mov a,close_led_bp-4
mov ecx,a
mov a,close_led_bp-3
mov ecx+1,a
mov a,close_led_bp-2
mov ecx+2,a
mov a,close_led_bp-1
mov ecx+3,a
ret
.STACK close_led_bp,local,4
public _delay_ms
public delay_ms_bp
.stabs "delay_ms:F15",36,0,0,_delay_ms
.section ".S14",C_CODE
.SYMDEF ".S14" 
_delay_ms:
.SYMDEF "_delay_ms" 
mov a,ecx
mov delay_ms_bp-4,a
mov a,ecx+1
mov delay_ms_bp-3,a
mov a,ecx+2
mov delay_ms_bp-2,a
mov a,ecx+3
mov delay_ms_bp-1,a
.stabs "n:p8",160,0,0,delay_ms_bp+0
.stabs "i:10",128,0,0,delay_ms_bp-5
.stabn 192,0,0,L324
L324:
.stabn 68,0,566,L325
L325:
.stabn 68,0,567,L326
L326:
mov a,@166
STA delay_ms_bp-5,0,0
jmp @L$319
L$321:
.stabn 68,0,570,L327
L327:
L$322:
.stabn 68,0,569,L328
L328:
LDA delay_ms_bp-5,0,0
mov cl,a
mov a,@1
sub cl,a
mov a,cl
STA delay_ms_bp-5,0,0
UCMPRIB cl,0
jbs sr,zflag
jmp @L$321
L$319:
.stabn 68,0,568,L329
L329:
LDA delay_ms_bp+0,0,0
mov cx,a
LDA delay_ms_bp+0,1,0
mov cx+1,a
mov a,@.b0.1
sub cx,a
mov a,@.b1.1
jbs sr,cflag
dec cx+1
sub cx+1,a
mov a,cx
STA delay_ms_bp+0,0,0
mov a,cx+1
STA delay_ms_bp+0,1,0
ICMPRIW cx,0
jbs sr,zflag
jmp @L$322
.stabn 68,0,571,L330
L330:
.stabn 224,0,0,L331
L331:
L$317:
mov a,delay_ms_bp-4
mov ecx,a
mov a,delay_ms_bp-3
mov ecx+1,a
mov a,delay_ms_bp-2
mov ecx+2,a
mov a,delay_ms_bp-1
mov ecx+3,a
ret
.STACK delay_ms_bp,local,5
public _start_beep
public start_beep_bp
.stabs "start_beep:F15",36,0,0,_start_beep
.section ".S15",C_CODE
.SYMDEF ".S15" 
_start_beep:
.SYMDEF "_start_beep" 
mov a,ecx
mov start_beep_bp-4,a
mov a,ecx+1
mov start_beep_bp-3,a
mov a,ecx+2
mov start_beep_bp-2,a
mov a,ecx+3
mov start_beep_bp-1,a
.stabn 192,0,0,L333
L333:
.stabn 68,0,574,L334
L334:
.stabn 68,0,575,L335
L335:
LDA _IOC9,0,2
STA _regdata,0,3
.stabn 68,0,576,L336
L336:
mov a,@_regdata
mov r4,a
mov a,r0
mov cx,a
clr cx+1
jbs cx,7
jmp @J7
mov a,@0xff
mov cx+1,a
J7:
mov a,@.b0.-129
and cx,a
mov a,@.b1.-129
and cx+1,a
mov a,cl
STA _regdata,0,3
.stabn 68,0,577,L337
L337:
LDA _regdata,0,3
STA _IOC9,0,2
.stabn 68,0,578,L338
L338:
LDA _PORT9,0,0
STA _regdata,0,3
.stabn 68,0,579,L339
L339:
mov a,@_regdata
mov r4,a
mov a,r0
mov cx,a
clr cx+1
jbs cx,7
jmp @J8
mov a,@0xff
mov cx+1,a
J8:
mov a,@.b0.128
or cx,a
mov a,@.b1.128
or cx+1,a
mov a,cl
STA _regdata,0,3
.stabn 68,0,580,L340
L340:
LDA _regdata,0,3
mov cl,a
STA _PORT9,0,0
.stabn 68,0,582,L341
L341:
.stabn 224,0,0,L342
L342:
L$332:
mov a,start_beep_bp-4
mov ecx,a
mov a,start_beep_bp-3
mov ecx+1,a
mov a,start_beep_bp-2
mov ecx+2,a
mov a,start_beep_bp-1
mov ecx+3,a
ret
.STACK start_beep_bp,local,4
public _stop_beep
public stop_beep_bp
.stabs "stop_beep:F15",36,0,0,_stop_beep
.section ".S16",C_CODE
.SYMDEF ".S16" 
_stop_beep:
.SYMDEF "_stop_beep" 
mov a,ecx
mov stop_beep_bp-4,a
mov a,ecx+1
mov stop_beep_bp-3,a
mov a,ecx+2
mov stop_beep_bp-2,a
mov a,ecx+3
mov stop_beep_bp-1,a
.stabn 192,0,0,L344
L344:
.stabn 68,0,584,L345
L345:
.stabn 68,0,585,L346
L346:
LDA _IOC9,0,2
STA _regdata,0,3
.stabn 68,0,586,L347
L347:
mov a,@_regdata
mov r4,a
mov a,r0
mov cx,a
clr cx+1
jbs cx,7
jmp @J9
mov a,@0xff
mov cx+1,a
J9:
mov a,@.b0.-129
and cx,a
mov a,@.b1.-129
and cx+1,a
mov a,cl
STA _regdata,0,3
.stabn 68,0,587,L348
L348:
LDA _regdata,0,3
STA _IOC9,0,2
.stabn 68,0,588,L349
L349:
LDA _PORT9,0,0
STA _regdata,0,3
.stabn 68,0,589,L350
L350:
mov a,@_regdata
mov r4,a
mov a,r0
mov cx,a
clr cx+1
jbs cx,7
jmp @J10
mov a,@0xff
mov cx+1,a
J10:
mov a,@.b0.-129
and cx,a
mov a,@.b1.-129
and cx+1,a
mov a,cl
STA _regdata,0,3
.stabn 68,0,590,L351
L351:
LDA _regdata,0,3
mov cl,a
STA _PORT9,0,0
.stabn 68,0,591,L352
L352:
.stabn 224,0,0,L353
L353:
L$343:
mov a,stop_beep_bp-4
mov ecx,a
mov a,stop_beep_bp-3
mov ecx+1,a
mov a,stop_beep_bp-2
mov ecx+2,a
mov a,stop_beep_bp-1
mov ecx+3,a
ret
.STACK stop_beep_bp,local,4
public _init_timer