sciinit.lis

为日本瑞萨苏州分公司做的一个温控系统

                        .module SCIInit.c
                        .area text
 0000                   .dbfile SCIInit.c
 0000                   .dbfunc e SCIInit _SCIInit fV
 0000           _SCIInit::
 0000                   .dbline -1
 0000                   .dbline 4
 0000           ; #include "GP32C.H"
 0000           ; #include "SCIInit.H"
 0000           ; void SCIInit(void)
 0000           ;  {  //总线频率fBUS＝2.4576MHz，定义波特率Bt=9600
 0000                   .dbline 5
 0000           ;     SCBR=0b00000010;
 0000 A602              lda #2
 0002 B719              sta 0x19
 0004                   .dbline 7
 0004           ;     //设置允许SCI，正常码输出、8位数据、无校验
 0004           ;     SCC1=0b01000000; 
 0004 A640              lda #64
 0006 B713              sta 0x13
 0008                   .dbline 9
 0008           ;     //设置允许发送、允许接收，查询方式收发     
 0008           ;     SCC2=0b00001100;        
 0008 A60C              lda #12
 000A B714              sta 0x14
 000C                   .dbline -2
 000C           L1:
 000C                   .dbline 0 ; func end
 000C 81                rts
 000D                   .dbend
 000D                   .dbfunc e SCIOpen _SCIOpen fV
 000D           _SCIOpen::
 000D                   .dbline -1
 000D                   .dbline 12
 000D           ;  }
 000D           ; void SCIOpen(void)
 000D           ; {
 000D                   .dbline 13
 000D           ;       SCC2 |= (1 << 5);
 000D 1A14              bset #5,0x14
 000F                   .dbline -2
 000F           L2:
 000F                   .dbline 0 ; func end
 000F 81                rts
 0010                   .dbend