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

📄 p762.lst

📁 医院语音寻孚系统的汇编源代码
💻 LST
📖 第 1 页 / 共 5 页
字号:
045A 00             1006                    NOP
045B D1A1           1007               ACALL READ_93C46
045D 00             1008                    NOP
045E 00             1009                    NOP
045F E534           1010               MOV A,BYTE1_93C
0461 F6             1011               MOV @R0,A
0462 08             1012               INC R0
                    1013     
0463 E535           1014               MOV A,BYTE2_93C
0465 F6             1015               MOV @R0,A
0466 08             1016               INC R0
                    1017     
0467 7402           1018               MOV A,#02H
0469 4F             1019               ORL A,R7
046A F533           1020               MOV ADD_93C_L,A
046C 00             1021                    NOP
046D 00             1022                    NOP
046E D1A1           1023               ACALL READ_93C46
0470 00             1024                    NOP
0471 00             1025                    NOP
0472 E534           1026               MOV A,BYTE1_93C
0474 F6             1027               MOV @R0,A
0475 08             1028               INC R0
                    1029     
0476 E535           1030               MOV A,BYTE2_93C
0478 F6             1031               MOV @R0,A
0479 08             1032               INC R0
                    1033     
047A 7408           1034               MOV A,#08H
047C 4F             1035               ORL A,R7
047D F533           1036               MOV ADD_93C_L,A
047F 00             1037                    NOP
0480 00             1038                    NOP
0481 D1A1           1039               ACALL READ_93C46
0483 00             1040                    NOP
0484 00             1041                    NOP
0485 E534           1042               MOV A,BYTE1_93C
0487 F6             1043               MOV @R0,A
0488 08             1044               INC R0
A51 MACRO ASSEMBLER  P762                                                                   30/11/00 21:46:04 PAGE    17

                    1045     
0489 E535           1046               MOV A,BYTE2_93C
048B F6             1047               MOV @R0,A
048C 08             1048               INC R0
                    1049     
048D 740A           1050               MOV A,#0AH
048F 4F             1051               ORL A,R7
0490 F533           1052               MOV ADD_93C_L,A
0492 00             1053                    NOP
0493 00             1054                    NOP
0494 D1A1           1055               ACALL READ_93C46
0496 00             1056                    NOP
0497 00             1057                    NOP
0498 E534           1058               MOV A,BYTE1_93C
049A F6             1059               MOV @R0,A
049B 08             1060               INC R0
                    1061     
049C E535           1062               MOV A,BYTE2_93C
049E F6             1063               MOV @R0,A
049F 08             1064               INC R0
                    1065     
04A0 7404           1066               MOV A,#04H
04A2 4F             1067               ORL A,R7
04A3 F533           1068               MOV ADD_93C_L,A
04A5 00             1069                    NOP
04A6 00             1070                    NOP
04A7 D1A1           1071               ACALL READ_93C46
04A9 00             1072                    NOP
04AA 00             1073                    NOP
04AB E534           1074               MOV A,BYTE1_93C
04AD F526           1075               MOV ZHENG_HAO,A
04AF 00             1076                        NOP
04B0 00             1077                        NOP
04B1 91BC           1078              ACALL POC_START
04B3 00             1079                  NOP
04B4 00             1080                  NOP
                    1081     
04B5 61DE           1082              AJMP SEND_DATA_WAIT1
04B7 00             1083                   NOP
04B8 00             1084                   NOP
04B9 22             1085               RET
04BA 00             1086                   NOP
04BB 00             1087                   NOP
                    1088     
                    1089     
                    1090     ;****************************************************************************
                    1091     ;
                    1092     ;      POCSAG SEND START
                    1093     ;
                    1094     ;****************************************************************************
04BC                1095     POC_START:
04BC 00             1096                      NOP
04BD 00             1097                      NOP
04BE D287           1098                   SETB SEND_PTT         ;   SEND ENABLE
04C0 00             1099                      NOP
04C1 00             1100                      NOP
04C2 F132           1101                   ACALL DELAY
04C4 00             1102                      NOP
04C5 00             1103                      NOP
04C6 D114           1104                   ACALL FREQ_BUILD
04C8 00             1105                      NOP
04C9 00             1106                      NOP
04CA D200           1107                   SETB SYS_STATUS.0
                    1108     
04CC 752700         1109                   MOV SEND_BYTE,#00H
04CF 752800         1110                   MOV SEND_BIT_NUM,#00H
A51 MACRO ASSEMBLER  P762                                                                   30/11/00 21:46:04 PAGE    18

04D2 752980         1111                   MOV SEND_BYTE_NUM,#80H
04D5 752B00         1112                   MOV Next_Step,#00H
                    1113     
04D8 D2A9           1114                   SETB ET0
04DA 00             1115                        NOP
04DB 00             1116                        NOP
                    1117     
04DC                1118     POC_START_1:
                    1119     
04DC 22             1120                    RET
04DD 00             1121                        NOP
04DE 00             1122                        NOP
                    1123     
                    1124     ;************************************************************************
                    1125     ;
                    1126     ;       TIMER CLOCKING 4ms INT PROGRAM
                    1127     ;
                    1128     ;************************************************************************
04DF                1129     TIMER_OUT:
04DF 758DE0         1130                MOV TH1,#0E0H
04E2 00             1131                   NOP
04E3 00             1132                   NOP
04E4 20970E         1133                JB KEYS1,TEST_KEY2
04E7 00             1134                   NOP
04E8 00             1135                   NOP
04E9 209709         1136                JB KEYS1,TEST_KEY2
04EC 00             1137                   NOP
04ED 00             1138                   NOP
04EE 209704         1139                JB KEYS1,TEST_KEY2
04F1 00             1140                   NOP
04F2 00             1141                   NOP
04F3 D206           1142                SETB SYS_STATUS.6
                    1143     
04F5                1144     TEST_KEY2:
04F5 20960E         1145                JB KEYS2,TEST_WDT
04F8 00             1146                   NOP
04F9 00             1147                   NOP
04FA 209609         1148                JB KEYS2,TEST_WDT
04FD 00             1149                   NOP
04FE 00             1150                   NOP
04FF 209604         1151                JB KEYS2,TEST_WDT
0502 00             1152                   NOP
0503 00             1153                   NOP
0504 D207           1154                SETB SYS_STATUS.7
                    1155     
0506                1156     TEST_WDT:
0506 00             1157                   NOP
0507 00             1158                   NOP
0508 D52C3E         1159                DJNZ SYS_DELAY1,TIMER1_RET
050B 00             1160                   NOP
050C 00             1161                   NOP
050D D52D06         1162                DJNZ SYS_DELAY,TEST_OLD_DATA
0510 00             1163                     NOP
0511 00             1164                     NOP
0512 01D0           1165                AJMP SYS_AGAIN
0514 00             1166                     NOP
0515 00             1167                     NOP
                    1168     
0516                1169     TEST_OLD_DATA:
                    1170     
0516 D52E30         1171                DJNZ OLD_DELAY,TIMER1_RET
0519 752E10         1172                MOV OLD_DELAY,#010H           ; about 60 S
                    1173     
051C C0E0           1174                PUSH ACC
051E 88E0           1175                MOV  ACC,R0
0520 C0E0           1176                PUSH ACC
A51 MACRO ASSEMBLER  P762                                                                   30/11/00 21:46:04 PAGE    19

0522 89E0           1177                MOV  ACC,R1
0524 C0E0           1178                PUSH ACC
0526 8AE0           1179                MOV  ACC,R2
0528 C0E0           1180                PUSH ACC
                    1181     
052A 7408           1182                MOV A,#OLD_BUFFER
052C F8             1183                MOV R0,A
052D 04             1184                INC A
052E F9             1185                MOV R1,A
052F 7A0F           1186                MOV R2,#0FH
                    1187     
0531                1188     MOVE_OLD_BUF:
0531 E7             1189                MOV A,@R1
0532 F6             1190                MOV @R0,A
0533 08             1191                INC R0
0534 09             1192                INC R1
0535 DAFA           1193                DJNZ R2,MOVE_OLD_BUF
0537 00             1194                     NOP
0538 00             1195                     NOP
0539 76FF           1196                MOV @R0,#0FFH
                    1197     
053B D0E0           1198                POP ACC
053D AAE0           1199                MOV R2,ACC
053F D0E0           1200                POP ACC
0541 A9E0           1201                MOV R1,ACC
0543 D0E0           1202                POP ACC
0545 A8E0           1203                MOV R0,ACC
0547 D0E0           1204                POP ACC
0549                1205     TIMER1_RET:
                    1206     
0549 D2AB           1207                 SETB ET1
054B 32             1208                 RETI
                    1209     
054C 00             1210                   NOP
054D 00             1211                   NOP
                    1212     
                    1213     ;************************************************************************
                    1214     ;
                    1215     ;            DATA INPUT INT0 PROGRAM
                    1216     ;
                    1217     ;************************************************************************
054E                1218     DATAIN_INT0:
054E C0D0           1219                   PUSH PSW
0550 C0E0           1220                   PUSH ACC
                    1221     
0552 8BE0           1222                   MOV ACC,R3
0554 C0E0           1223                   PUSH ACC
                    1224     
0556 8AE0           1225                   MOV ACC,R2
0558 C0E0           1226                   PUSH ACC
                    1227     
055A 88E0           1228                   MOV ACC,R0
055C C0E0           1229                   PUSH ACC
                    1230     
055E 7B00           1231                   MOV R3,#00H
                    1232     
0560 C28E           1233                   CLR TR1
0562 758D00         1234                   MOV TH1,#00H
0565 758B00         1235                   MOV TL1,#00H
0568 C28F           1236                   CLR TF1
056A D28E           1237                   SETB TR1
                    1238     
056C C289           1239                   CLR IE0
056E 7A04           1240                   MOV R2,#04H
0570 00             1241                       NOP
0571 00             1242                       NOP
A51 MACRO ASSEMBLER  P762                                                                   30/11/00 21:46:04 PAGE    20

0572                1243     IN_AGAIN:
0572 308F0A         1244                   JNB TF1,IN_AGAIN_0
0575 00             1245                       NOP
0576 00             1246                       NOP
0577 C28F           1247                   CLR TF1
0579 DA04           1248                   DJNZ R2,IN_AGAIN_0
057B A1C0           1249                   AJMP IN_END
057D 00             1250                       NOP
057E 00             1251                       NOP
057F                1252     IN_AGAIN_0:
057F 20913E         1253                   JB JM_XIAOYIN,IN_END
0582 00             1254                       NOP
0583 00             1255                       NOP
0584 2090EB         1256                   JB JM_DATA,IN_AGAIN
0587 00

⌨️ 快捷键说明

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