⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 p762.lst

📁 医院语音寻孚系统的汇编源代码
💻 LST
📖 第 1 页 / 共 5 页
字号:
00D9 00              248                   NOP
00DA 00              249                   NOP
00DB 75A715          250               MOV WDCON,#015H       ;  WDT ENABLE      330 ~ 719 MS RESET
00DE C2AF            251               CLR EA
00E0 758911          252               MOV TMOD,#011H
00E3 D288            253               SETB IT0
00E5 D28A            254               SETB IT1
00E7 D28C            255               SETB TR0
00E9 D28E            256               SETB TR1
A51 MACRO ASSEMBLER  P762                                                                   30/11/00 21:46:04 PAGE     5

00EB 00              257                  NOP
00EC 00              258                  NOP
00ED 75815F          259              MOV SP,#SP_START
00F0 75B802          260              MOV IP0,#02H
00F3 75B703          261              MOV IP0H,#03H
00F6 75A889          262              MOV IE,#89H
00F9 75E800          263              MOV IEN1,#00H
00FC 00              264                      NOP
00FD 00              265                      NOP
00FE 7585FD          266              MOV P0M2,#0FDH      ; P0 PORT  OUTPUT
0101 758400          267              MOV P0M1,#00H
                     268     
0104 759210          269              MOV P1M2,#10H
0107 759100          270              MOV P1M1,#00H
                     271     
010A 758002          272              MOV P0,#02H
010D 7590EF          273              MOV P1,#0EFH
0110 00              274                 NOP
0111 00              275                 NOP
0112 752D18          276              MOV SYS_DELAY,#018H
0115 00              277                      NOP
0116 00              278                      NOP
0117                 279     SYS_AGAIN_1:
0117 30060A          280                 JNB SYS_STATUS.6,SYS_AGAIN_2
011A 00              281                    NOP
011B 00              282                    NOP
011C 9146            283                 ACALL KEYS1_SEND
011E 00              284                   NOP
011F 00              285                   NOP
0120 C206            286                 CLR SYS_STATUS.6
0122 00              287                   NOP
0123 00              288                   NOP
                     289     
0124                 290     SYS_AGAIN_2:
0124 30070A          291                 JNB SYS_STATUS.7,SYS_AGAIN_3
0127 00              292                    NOP
0128 00              293                    NOP
0129 914E            294                 ACALL KEYS2_SEND
012B 00              295                   NOP
012C 00              296                   NOP
012D C207            297                 CLR SYS_STATUS.7
012F 00              298                   NOP
0130 00              299                   NOP
                     300     
0131                 301     SYS_AGAIN_3:
0131 C2AF            302                CLR EA
0133 E521            303                MOV A,DATA_NUM
0135 7016            304                JNZ  SYS_AGAIN_4
0137 00              305                    NOP
0138 00              306                    NOP
0139 7840            307                MOV R0,#HAO_BUFFER
013B 7A10            308                MOV R2,#010H
013D 00              309                    NOP
013E 00              310                    NOP
013F 74FF            311                MOV A,#0FFH
0141                 312     CLEAR_HAO_BUF:
0141 F6              313                MOV @R0,A
0142 08              314                INC R0
0143 00              315                    NOP
0144 00              316                    NOP
0145 DAFA            317                DJNZ R2,CLEAR_HAO_BUF
0147 00              318                    NOP
0148 00              319                    NOP
0149 01D0            320                AJMP SYS_AGAIN
014B 00              321                     NOP
014C 00              322                     NOP
A51 MACRO ASSEMBLER  P762                                                                   30/11/00 21:46:04 PAGE     6

014D                 323     SYS_AGAIN_4:
014D D2AF            324                SETB EA
014F 00              325                     NOP
0150 00              326                     NOP
0151 7151            327                ACALL DATA_SEND
0153 00              328                     NOP
0154 00              329                     NOP
0155 01D0            330                AJMP SYS_AGAIN
0157 00              331                     NOP
0158 00              332                     NOP
                     333     
                     334     ;***************************************************************************
                     335     ;
                     336     ;           POCSAG SEND TIMER 0 INTERRUPT PROGRAM
                     337     ;
                     338     ;***************************************************************************
0159 C0E0            339     POCSAG_SEND:  PUSH ACC
015B C0D0            340                   PUSH PSW
015D C083            341                   PUSH DPH
015F C082            342                   PUSH DPL
0161 88E0            343                   MOV  ACC,R0
0163 C0E0            344                   PUSH ACC
                     345     
0165 E527            346                   MOV A,SEND_BYTE
0167 33              347                   RLC A
0168 B3              348                   CPL C
0169 9286            349                   MOV POC_MOD,C
016B F527            350                   MOV SEND_BYTE,A
                     351     
016D 758CFA          352                   MOV TH0,#0FAH   ;  FREQUENCY 11.0592 MHZ
                     353     
0170 1528            354                   DEC SEND_BIT_NUM
0172 E528            355                   MOV A,SEND_BIT_NUM
0174 6004            356                   JZ  POC_SEND0
                     357     
0176 41E9            358                   AJMP POC_SEND_RET
                     359                     
0178 00              360                     NOP
0179 00              361                     NOP
                     362     
017A                 363     POC_SEND0:
017A 752808          364                   MOV SEND_BIT_NUM,#08H
                     365     
017D 900187          366                   MOV DPTR,#SEND_CHANG
                     367     
0180 E52B            368                   MOV A,Next_Step
0182 C3              369                   CLR C
0183 23              370                   RL A
0184 C3              371                   CLR C
0185 23              372                   RL A
0186 73              373                   JMP @A+DPTR
                     374     
0187 00              375     SEND_CHANG:   NOP
0188 21D7            376                   AJMP Poc_Step0
018A 00              377                   NOP
018B 00              378                   NOP
018C 21E5            379                   AJMP Poc_Step1
018E 00              380                   NOP
018F 00              381                   NOP
0190 21F0            382                   AJMP Poc_Step2
0192 00              383                   NOP
0193 00              384                   NOP
0194 21F8            385                   AJMP Poc_Step3
0196 00              386                   NOP
0197 00              387                   NOP
0198 4100            388                   AJMP Poc_Step4
A51 MACRO ASSEMBLER  P762                                                                   30/11/00 21:46:04 PAGE     7

019A 00              389                   NOP
019B 00              390                   NOP
019C 4108            391                   AJMP Poc_Step5
019E 00              392                   NOP
019F 00              393                   NOP
01A0 4120            394                   AJMP Poc_Step6
01A2 00              395                   NOP
01A3 00              396                   NOP
01A4 412A            397                   AJMP Poc_Step7
01A6 00              398                   NOP
01A7 00              399                   NOP
01A8 4134            400                   AJMP Poc_Step8
01AA 00              401                   NOP
01AB 00              402                   NOP
01AC 413E            403                   AJMP Poc_Step9
01AE 00              404                   NOP
01AF 00              405                   NOP
01B0 4159            406                   AJMP Poc_Step10
01B2 00              407                   NOP
01B3 00              408                   NOP
01B4 418F            409                   AJMP Poc_Step11
01B6 00              410                   NOP
01B7 00              411                   NOP
01B8 4197            412                   AJMP Poc_Step12
01BA 00              413                   NOP
01BB 00              414                   NOP
01BC 419F            415                   AJMP Poc_Step13
01BE 00              416                   NOP
01BF 00              417                   NOP
01C0 41A7            418                   AJMP Poc_Step14
01C2 00              419                   NOP
01C3 00              420                   NOP
01C4 41AF            421                   AJMP Poc_Step15
01C6 00              422                   NOP
01C7 00              423                   NOP
01C8 41B7            424                   AJMP Poc_Step16
01CA 00              425                   NOP
01CB 00              426                   NOP
01CC 41BF            427                   AJMP Poc_Step17
01CE 00              428                   NOP
01CF 00              429                   NOP
01D0 41C7            430                   AJMP Poc_Step18
01D2 00              431                   NOP
01D3 00              432                   NOP
01D4 41CF            433                   AJMP Poc_Step19
01D6 00              434                   NOP
                     435     
01D7                 436     Poc_Step0:
01D7 752700          437                 MOV SEND_BYTE,#00H
                     438     
01DA D52906          439                 DJNZ SEND_BYTE_NUM,Poc_Step0_1
                     440     
01DD 752950          441                 MOV SEND_BYTE_NUM,#050H
01E0 752B01          442                 MOV Next_Step,#01H
                     443     
01E3                 444     Poc_Step0_1:
01E3 41E9            445                  AJMP POC_SEND_RET
                     446     
01E5                 447     Poc_Step1:
01E5 7527AA          448                 MOV SEND_BYTE,#0AAH
                     449     
01E8 D52903          450                 DJNZ SEND_BYTE_NUM,Poc_Step1_1
                     451     
01EB 752B02          452                 MOV Next_Step,#02H
                     453     
01EE                 454     Poc_Step1_1:
A51 MACRO ASSEMBLER  P762                                                                   30/11/00 21:46:04 PAGE     8

01EE 41E9            455                 AJMP POC_SEND_RET
                     456     
01F0                 457     Poc_Step2:
01F0 75277C          458              MOV SEND_BYTE,#07CH
01F3 752B03          459              MOV Next_Step,#03H
                     460     
01F6 41E9            461              AJMP POC_SEND_RET
                     462     
01F8                 463     Poc_Step3:
01F8 7527D2          464              MOV SEND_BYTE,#0D2H
01FB 752B04          465              MOV Next_Step,#04H
                     466     
01FE 41E9            467              AJMP POC_SEND_RET
                     468     
                     469     
0200                 470     Poc_Step4:
0200 752715          471              MOV SEND_BYTE,#015H
0203 752B05          472              MOV Next_Step,#05H
                     473     
0206 41E9            474              AJMP POC_SEND_RET
                     475     
                     476     
0208                 477     Poc_Step5:
0208 7527D8          478              MOV SEND_BYTE,#0D8H
                     479     
020B 752B0A          480              MOV Next_Step,#0AH
020E 752900          481              MOV SEND_BYTE_NUM,#00H
0211 752A00          482              MOV SEND_BYTE_NUM2,#00H
                     483     
0214 E526            484              MOV A,ZHENG_HAO
                     485     
0216 6006            486              JZ  Poc_Step5_1
0218 20E303          487              JB ACC.3,Poc_Step5_1          ;    QUN HU
                     488     
021B 752B06          489              MOV Next_Step,#06H
                     490     
021E                 491     Poc_Step5_1:
                     492     
021E 41E9            493            AJMP POC_SEND_RET
                     494     
                     495     ;      TONGBU_TABLE:  DB 07CH,0D2H,015H,0D8H
                     496     ;      KONXIAN_TABLE:  DB 07AH,089H,0C1H,097H
                     497     
                     498     
0220                 499     Poc_Step6:
0220 75277A          500              MOV SEND_BYTE,#07AH
0223 752B07          501              MOV Next_Step,#07H

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -