morse.asm

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

LDA array_get_bp-6,0,0
mov cx,a
LDA array_get_bp-6,1,0
mov cx+1,a
LDA array_get_bp+3,0,0
mov ax,a
LDA array_get_bp+3,1,0
mov ax+1,a
ICMPRRW cx,ax
jbs sr,cflag
jmp @L$465
.stabn 68,0,748,L507
L507:
.stabn 224,0,1,L508
L508:
jmp @L$464
L$463:
.stabn 192,0,1,L509
L509:
.stabn 68,0,750,L510
L510:
.stabn 68,0,752,L511
L511:
LDA _bank_num,0,3
mov cl,a
ORMRB _regdata,cl,3
.stabn 68,0,753,L512
L512:
LDA _regdata,0,3
mov cl,a
STA _IOCA,0,2
.stabn 68,0,754,L513
L513:
mov a,@.b0.0
STA array_get_bp-6,0,0
mov a,@.b1.0
STA array_get_bp-6,1,0
jmp @L$472
L$469:
.stabn 192,0,2,L514
L514:
.stabn 68,0,755,L515
L515:
.stabn 68,0,756,L516
L516:
LDA _offset,0,3
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
LDA array_get_bp-6,0,0
add cx,a
LDA array_get_bp-6,1,0
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cl
STA _RC,0,0
.stabn 68,0,758,L517
L517:
LDA array_get_bp-6,0,0
mov cx,a
LDA array_get_bp-6,1,0
mov cx+1,a
LDA array_get_bp+2,0,0
add cl,a
LDA _RD,0,0
mov al,a
mov a,cl
mov r4,a
mov a,al
mov r0,a
.stabn 68,0,759,L518
L518:
.stabn 224,0,2,L519
L519:
L$470:
.stabn 68,0,754,L520
L520:
INCMW array_get_bp-6,0
L$472:
.stabn 68,0,754,L521
L521:
LDA array_get_bp-6,0,0
mov cx,a
LDA array_get_bp-6,1,0
mov cx+1,a
mov a,cx
STA array_get_bp-10,0,0
mov a,cx+1
STA array_get_bp-10,1,0
mov a,@.b0.256
mov ax,a
mov a,@.b1.256
mov ax+1,a
LDA _offset,0,3
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
mov a,cx
sub ax,a
mov a,cx+1
jbs sr,cflag
dec ax+1
sub ax+1,a
LDA array_get_bp-10,0,0
mov cx,a
LDA array_get_bp-10,1,0
mov cx+1,a
ICMPRRW cx,ax
jbs sr,cflag
jmp @L$469
.stabn 68,0,760,L522
L522:
LDA array_get_bp+3,0,0
mov cx,a
LDA array_get_bp+3,1,0
mov cx+1,a
mov a,cx
STA array_get_bp-12,0,0
mov a,cx+1
STA array_get_bp-12,1,0
mov a,@.b0.256
mov ax,a
mov a,@.b1.256
mov ax+1,a
LDA _offset,0,3
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
mov a,cx
sub ax,a
mov a,cx+1
jbs sr,cflag
dec ax+1
sub ax+1,a
LDA array_get_bp-12,0,0
mov cx,a
LDA array_get_bp-12,1,0
mov cx+1,a
mov a,ax
sub cx,a
mov a,ax+1
jbs sr,cflag
dec cx+1
sub cx+1,a
mov a,cx
STA _len_remnant,0,3
mov a,cx+1
STA _len_remnant,1,3
.stabn 68,0,762,L523
L523:
INCMB _bank_add,3
.stabn 68,0,763,L524
L524:
LSHMIB _bank_add,1,3
.stabn 68,0,764,L525
L525:
mov a,@-31
mov cl,a
ANDMRB _regdata,cl,3
.stabn 68,0,765,L526
L526:
LDA _bank_add,0,3
mov cl,a
ORMRB _regdata,cl,3
.stabn 68,0,766,L527
L527:
LDA _regdata,0,3
mov cl,a
STA _IOCA,0,2
.stabn 68,0,767,L528
L528:
mov a,@.b0.0
STA array_get_bp-6,0,0
mov a,@.b1.0
STA array_get_bp-6,1,0
jmp @L$476
L$473:
.stabn 192,0,2,L529
L529:
.stabn 68,0,768,L530
L530:
.stabn 68,0,769,L531
L531:
LDA _offset,0,3
mov cx,a
clra
jbc cl,7
mov a,@0xff
mov cx+1,a
LDA array_get_bp-6,0,0
add cx,a
LDA array_get_bp-6,1,0
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cl
STA _RC,0,0
.stabn 68,0,771,L532
L532:
LDA array_get_bp+3,0,0
mov cx,a
LDA array_get_bp+3,1,0
mov cx+1,a
LDA _len_remnant,0,3
sub cx,a
LDA _len_remnant,1,3
jbs sr,cflag
dec cx+1
sub cx+1,a
LDA array_get_bp-6,0,0
add cx,a
LDA array_get_bp-6,1,0
jbc sr,cflag
add a,@1
add cx+1,a
LDA array_get_bp+2,0,0
add cl,a
LDA _RD,0,0
mov al,a
mov a,cl
mov r4,a
mov a,al
mov r0,a
.stabn 68,0,772,L533
L533:
.stabn 224,0,2,L534
L534:
L$474:
.stabn 68,0,767,L535
L535:
INCMW array_get_bp-6,0
L$476:
.stabn 68,0,767,L536
L536:
LDA array_get_bp-6,0,0
mov cx,a
LDA array_get_bp-6,1,0
mov cx+1,a
LDA _len_remnant,0,3
mov ax,a
LDA _len_remnant,1,3
mov ax+1,a
ICMPRRW cx,ax
jbs sr,cflag
jmp @L$473
.stabn 68,0,774,L537
L537:
.stabn 224,0,1,L538
L538:
L$464:
.stabn 68,0,779,L539
L539:
.cfile "E:\Data\morse\morse.c(779):"
mov a, _nbuf
.stabn 68,0,780,L540
L540:
.cfile "E:\Data\morse\morse.c(780):"
mov 0x03, a
.stabn 68,0,781,L541
L541:
.cfile "E:\Data\morse\morse.c(781):"
mov a, _nbuf + 1
.stabn 68,0,782,L542
L542:
.cfile "E:\Data\morse\morse.c(782):"
mov 0x04, a
.stabn 68,0,784,L543
L543:
.cfile "E:\Data\morse\morse.c(784):"
mov a,_nbuf+2
.stabn 68,0,785,L544
L544:
.cfile "E:\Data\morse\morse.c(785):"
iow	0x0A
.stabn 68,0,788,L545
L545:
.stabn 224,0,0,L546
L546:
L$462:
mov a,array_get_bp-4
mov ecx,a
mov a,array_get_bp-3
mov ecx+1,a
mov a,array_get_bp-2
mov ecx+2,a
mov a,array_get_bp-1
mov ecx+3,a
ret
.STACK array_get_bp,local,12
public _emc_memcpy
public emc_memcpy_bp
.stabs "emc_memcpy:F15",36,0,0,_emc_memcpy
.section ".S20",C_CODE
.SYMDEF ".S20" 
_emc_memcpy:
.SYMDEF "_emc_memcpy" 
mov a,ecx
mov emc_memcpy_bp-4,a
mov a,ecx+1
mov emc_memcpy_bp-3,a
mov a,ecx+2
mov emc_memcpy_bp-2,a
mov a,ecx+3
mov emc_memcpy_bp-1,a
.stabs "dst:p8",160,0,0,emc_memcpy_bp+0
.stabs "src:p8",160,0,0,emc_memcpy_bp+2
.stabs "len:p8",160,0,0,emc_memcpy_bp+4
.stabs "i:8",128,0,0,emc_memcpy_bp-6
.stabs ":t22=ar1;0;0;2",128,0,0,0
.stabs "buf:22",128,0,0,emc_memcpy_bp-7
.stabn 192,0,0,L555
L555:
.stabn 68,0,792,L556
L556:
.stabn 68,0,796,L557
L557:
LDA emc_memcpy_bp+0,0,0
mov cx,a
LDA emc_memcpy_bp+0,1,0
mov cx+1,a
ICMPRIW cx,0
jbc sr,zflag
jmp @L$550
LDA emc_memcpy_bp+2,0,0
mov cx,a
LDA emc_memcpy_bp+2,1,0
mov cx+1,a
ICMPRIW cx,0
jbs sr,zflag
jmp @L$548
L$550:
.stabn 68,0,797,L558
L558:
jmp @L$547
L$548:
.stabn 68,0,798,L559
L559:
mov a,@.b0.0
STA emc_memcpy_bp-6,0,0
mov a,@.b1.0
STA emc_memcpy_bp-6,1,0
jmp @L$554
L$551:
.stabn 192,0,1,L560
L560:
.stabn 68,0,799,L561
L561:
.stabn 68,0,800,L562
L562:
mov a,@.b0.1
mov array_get_bp+3,a
mov a,@.b1.1
mov array_get_bp+3+1,a
mov a,@emc_memcpy_bp-7
mov array_get_bp+2,a
LDA emc_memcpy_bp+2,0,0
mov cx,a
LDA emc_memcpy_bp+2,1,0
mov cx+1,a
LDA emc_memcpy_bp-6,0,0
add cx,a
LDA emc_memcpy_bp-6,1,0
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cx
mov array_get_bp+0,a
mov a,cx+1
mov array_get_bp+0+1,a
.STACK array_get_bp,parameter,5
call _array_get
.stabn 68,0,801,L563
L563:
mov a,@.b0.1
mov array_set_bp+3,a
mov a,@.b1.1
mov array_set_bp+3+1,a
mov a,@emc_memcpy_bp-7
mov array_set_bp+2,a
LDA emc_memcpy_bp+0,0,0
mov cx,a
LDA emc_memcpy_bp+0,1,0
mov cx+1,a
LDA emc_memcpy_bp-6,0,0
add cx,a
LDA emc_memcpy_bp-6,1,0
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cx
mov array_set_bp+0,a
mov a,cx+1
mov array_set_bp+0+1,a
.STACK array_set_bp,parameter,5
call _array_set
.stabn 68,0,802,L564
L564:
.stabn 224,0,1,L565
L565:
L$552:
.stabn 68,0,798,L566
L566:
INCMW emc_memcpy_bp-6,0
L$554:
.stabn 68,0,798,L567
L567:
LDA emc_memcpy_bp-6,0,0
mov cx,a
LDA emc_memcpy_bp-6,1,0
mov cx+1,a
LDA emc_memcpy_bp+4,0,0
mov ax,a
LDA emc_memcpy_bp+4,1,0
mov ax+1,a
ICMPRRW cx,ax
jbs sr,cflag
jmp @L$551
.stabn 68,0,803,L568
L568:
.stabn 224,0,0,L569
L569:
L$547:
mov a,emc_memcpy_bp-4
mov ecx,a
mov a,emc_memcpy_bp-3
mov ecx+1,a
mov a,emc_memcpy_bp-2
mov ecx+2,a
mov a,emc_memcpy_bp-1
mov ecx+3,a
ret
.STACK emc_memcpy_bp,local,7
public _begin_send_words
public begin_send_words_bp
.stabs "begin_send_words:F15",36,0,0,_begin_send_words
.section ".S21",C_CODE
.SYMDEF ".S21" 
_begin_send_words:
.SYMDEF "_begin_send_words" 
mov a,ecx
mov begin_send_words_bp-4,a
mov a,ecx+1
mov begin_send_words_bp-3,a
mov a,ecx+2
mov begin_send_words_bp-2,a
mov a,ecx+3
mov begin_send_words_bp-1,a
.stabs "device_id:p8",160,0,0,begin_send_words_bp+0
.stabs "dest_id:p8",160,0,0,begin_send_words_bp+2
.stabs "offset:8",128,0,0,begin_send_words_bp-6
.stabs ":t23=ar1;0;1;2",128,0,0,0
.stabs "buf:23",128,0,0,begin_send_words_bp-8
.stabn 192,0,0,L571
L571:
.stabn 68,0,811,L572
L572:
.stabn 68,0,812,L573
L573:
mov a,@.b0.0
STA begin_send_words_bp-6,0,0
mov a,@.b1.0
STA begin_send_words_bp-6,1,0
.stabn 68,0,818,L574
L574:
mov a,@.b0.2
mov array_set_bp+3,a
mov a,@.b1.2
mov array_set_bp+3+1,a
mov a,@begin_send_words_bp+0
mov array_set_bp+2,a
LDA begin_send_words_bp-6,0,0
mov cx,a
LDA begin_send_words_bp-6,1,0
mov cx+1,a
mov a,@.b0.2048
add cx,a
mov a,@.b1.2048
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cx
mov array_set_bp+0,a
mov a,cx+1
mov array_set_bp+0+1,a
.STACK array_set_bp,parameter,5
call _array_set
.stabn 68,0,819,L575
L575:
mov a,@.b0.2
mov cx,a
mov a,@.b1.2
mov cx+1,a
ADDMRW begin_send_words_bp-6,cx,0
.stabn 68,0,820,L576
L576:
mov a,@.b0.2
mov array_set_bp+3,a
mov a,@.b1.2
mov array_set_bp+3+1,a
mov a,@begin_send_words_bp+2
mov array_set_bp+2,a
LDA begin_send_words_bp-6,0,0
mov cx,a
LDA begin_send_words_bp-6,1,0
mov cx+1,a
mov a,@.b0.2048
add cx,a
mov a,@.b1.2048
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cx
mov array_set_bp+0,a
mov a,cx+1
mov array_set_bp+0+1,a
.STACK array_set_bp,parameter,5
call _array_set
.stabn 68,0,821,L577
L577:
mov a,@.b0.2
mov cx,a
mov a,@.b1.2
mov cx+1,a
ADDMRW begin_send_words_bp-6,cx,0
.stabn 68,0,822,L578
L578:
LDA _ch_count,0,3
STA begin_send_words_bp-8,0,0
.stabn 68,0,823,L579
L579:
mov a,@.b0.1
mov array_set_bp+3,a
mov a,@.b1.1
mov array_set_bp+3+1,a
mov a,@begin_send_words_bp-8
mov array_set_bp+2,a
LDA begin_send_words_bp-6,0,0
mov cx,a
LDA begin_send_words_bp-6,1,0
mov cx+1,a
mov a,@.b0.2048
add cx,a
mov a,@.b1.2048
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cx
mov array_set_bp+0,a
mov a,cx+1
mov array_set_bp+0+1,a
.STACK array_set_bp,parameter,5
call _array_set
.stabn 68,0,824,L580
L580:
INCMW begin_send_words_bp-6,0
.stabn 68,0,825,L581
L581:
LDA _ch_count,0,3
mov cx,a
clr cx+1
mov a,cx
mov emc_memcpy_bp+4,a
mov a,cx+1
mov emc_memcpy_bp+4+1,a
mov a,@.b0.2128
mov emc_memcpy_bp+2,a
mov a,@.b1.2128
mov emc_memcpy_bp+2+1,a
LDA begin_send_words_bp-6,0,0
mov cx,a
LDA begin_send_words_bp-6,1,0
mov cx+1,a
mov a,@.b0.2048
add cx,a
mov a,@.b1.2048
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cx
mov emc_memcpy_bp+0,a
mov a,cx+1
mov emc_memcpy_bp+0+1,a
.STACK emc_memcpy_bp,parameter,6
call _emc_memcpy
.stabn 68,0,826,L582
L582:
LDA _ch_count,0,3
mov cx,a
clr cx+1
ADDMRW begin_send_words_bp-6,cx,0
.stabn 68,0,827,L583
L583:
LDA begin_send_words_bp+0,0,0
mov cx,a
LDA begin_send_words_bp+0,1,0
mov cx+1,a
LDA begin_send_words_bp+2,0,0
add cx,a
LDA begin_send_words_bp+2,1,0
jbc sr,cflag
add a,@1
add cx+1,a
LDA _ch_count,0,3
mov ax,a
clr ax+1
mov a,ax
add cx,a
mov a,ax+1
jbc sr,cflag
add a,@1
add cx+1,a
com cx
com cx+1
mov a,@.b0.1
add cx,a
mov a,@.b1.1
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cl
STA begin_send_words_bp-8,0,0
.stabn 68,0,828,L584
L584:
mov a,@.b0.1
mov array_set_bp+3,a
mov a,@.b1.1
mov array_set_bp+3+1,a
mov a,@begin_send_words_bp-8
mov array_set_bp+2,a
LDA begin_send_words_bp-6,0,0
mov cx,a
LDA begin_send_words_bp-6,1,0
mov cx+1,a
mov a,@.b0.2048
add cx,a
mov a,@.b1.2048
jbc sr,cflag
add a,@1
add cx+1,a
mov a,cx
mov array_set_bp+0,a
mov a,cx+1
mov array_set_bp+0+1,a
.STACK array_set_bp,parameter,5
call _array_set
.stabn 68,0,839,L585
L585:
.stabn 224,0,0,L586
L586:
L$570:
mov a,begin_send_words_bp-4
mov ecx,a
mov a,begin_send_words_bp-3
mov ecx+1,a
mov a,begin_send_words_bp-2
mov ecx+2,a
mov a,begin_send_words_bp-1
mov ecx+3,a
ret
.STACK begin_send_words_bp,local,8
public _init_key
public init_key_bp
.stabs "init_key:F15",36,0,0,_init_key
.section ".S22",C_CODE
.SYMDEF ".S22" 
_init_key:
.SYMDEF "_init_key" 
mov a,ecx
mov init_key_bp-4,a
mov a,ecx+1
mov init_key_bp-3,a
mov a,ecx+2
mov init_key_bp-2,a
mov a,ecx+3
mov init_key_bp-1,a
.stabn 192,0,0,L588
L588:
.stabn 68,0,842,L589
L589:
.stabn 68,0,845,L590
L590:
LDA _IOC7,0,2
STA _regdata,0,3
.stabn 68,0,846,L591
L591:
mov a,@_regdata
mov r4,a
mov a,r0
mov cx,a
clr cx+1
jbs cx,7
jmp @J19
mov a,@0xff
mov cx+1,a
J19:
mov a,@.b0.135
or cx,a
mov a,@.b1.135
or cx+1,a
mov a,cl
STA _regdata,0,3
.stabn 68,0,847,L592
L592:
LDA _regdata,0,3
STA _IOC7,0,2
.stabn 68,0,848,L593
L593:
LDA _IOCD,0,2
STA _regdata,0,3
.stabn 68,0,849,L594
L594:
mov a,@_regdata
mov r4,a
mov a,r0
mov cx,a
clr cx+1
jbs cx,7
jmp @J20
mov a,@0xff
mov cx+1,a
J20:
mov a,@.b0.135
or cx,a
mov a,@.b1.135
or cx+1,a
mov a,cl
STA _regdata,0,3
.stabn 68,0,850,L595
L595:
LDA _regdata,0,3
STA _IOCD,0,2
.stabn 68,0,851,L596
L596:
LDA _IOC9,0,2
STA _regdata,0,3
.stabn 68,0,852,L597
L597:
mov a,@-97
mov cl,a
ANDMRB _regdata,cl,3
.stabn 68,0,853,L598
L598:
LDA _regdata,0,3
STA _IOC9,0,2
.stabn 68,0,854,L599
L599:
LDA _PORT9,0,0
STA _regdata,0,3
.stabn 68,0,855,L600
L600:
mov a,@96
mov cl,a
ORMRB _regdata,cl,3
.stabn 68,0,856,L601
L601:
LDA _regdata,0,3
mov cl,a
STA _PORT9,0,0
.stabn 68,0,857,L602
L602:
.stabn 224,0,0,L603
L603:
L$587:
mov a,init_key_bp-4
mov ecx,a
mov a,init_key_bp-3
mov ecx+1,a
mov a,init_key_bp-2
mov ecx+2,a
mov a,init_key_bp-1
mov ecx+3,a
ret
.STACK init_key_bp,local,4
public _scan_key
public scan_key_bp
.stabs "scan_key:F2",36,0,0,_scan_key
.section ".S23",C_CODE
.SYMDEF ".S23" 
_scan_key:
.SYMDEF "_scan_key" 
mov a,ecx
mov scan_key_bp-4,a
mov a,ecx+1
mov scan_key_bp-3,a
mov a,ecx+2
mov scan_key_bp-2,a
mov a,ecx+3
mov scan_key_bp-1,a
.stabs "keydata:2",128,0,0,scan_key_bp-5
.stabn 192,0,0,L625
L625:
.stabn 68,0,861,L626
L626:
.stabn 68,0,862,L627
L627:
mov a,@.b0.255
mov cx,a
mov a,@.b1.255
mov cx+1,a
mov a,cl
STA scan_key_bp-5,0,0
.stabn 68,0,864,L628
L628:
LDA _PORT9,0,0
STA _regdata,0,3
.stabn 68,0,865,L629
L629:
mov a,@-33
mov cl,a
ANDMRB _regdata,cl,3
.stabn 68,0,866,L630
L630:
mov a,@64
mov cl,a
ORMRB _regdata,cl,3
.stabn 68,0,867,L631
L631:
LDA _regdata,0,3
STA _PORT9,0,0
.stabn 68,0,868,L632
L632:
LDA _PORT7,0,0
STA scan_key_bp-5,0,0
.stabn 68,0,869,L633
L633:
LDA scan_key_bp-5,0,0
mov cl,a
mov a,@.b0.255
mov ax,a
mov a,@.b1.255
mov ax+1,a
ICMPRRB cl,al
jbc sr,zflag
jmp @L$605
.stabn 192,0,1,L634
L634:
.stabn 68,0,870,L635
L635:
.stabn 68,0,871,L636
L636:
LDA scan_key_bp-5,0,0
mov cl,a
mov a,@1
and cl,a
ICMPRIB cl,0
jbs sr,zflag
jmp @L$607
.stabn 68,0,872,L637
L637:
mov a,@0
mov al,a
jmp @L$604
L$607:
.stabn 68,0,873,L638
L638:
LDA scan_key_bp-5,0,0