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

📄 doorc.lst

📁 该程序是医院用的CPCR记录仪的终端控制程序
💻 LST
📖 第 1 页 / 共 5 页
字号:
    0F4E 93000159  STS	0x159,R16
(0341) 	TX_BUF0[26]=EEPROMread(4*16+3);
    0F50 E403      LDI	R16,0x43
    0F51 E010      LDI	R17,0
    0F52 940E48AD  CALL	_EEPROMread
    0F54 9300015A  STS	0x15A,R16
(0342) 	TX_BUF0[27]=EEPROMread(4*16+4);
    0F56 E404      LDI	R16,0x44
    0F57 E010      LDI	R17,0
    0F58 940E48AD  CALL	_EEPROMread
    0F5A 9300015B  STS	0x15B,R16
(0343) 	TX_BUF0[28]=EEPROMread(4*16+5);
    0F5C E405      LDI	R16,0x45
    0F5D E010      LDI	R17,0
    0F5E 940E48AD  CALL	_EEPROMread
    0F60 9300015C  STS	0x15C,R16
(0344) 	TX_BUF0[29]=EEPROMread(4*16+6);
    0F62 E406      LDI	R16,0x46
    0F63 E010      LDI	R17,0
    0F64 940E48AD  CALL	_EEPROMread
    0F66 9300015D  STS	0x15D,R16
(0345) 	
(0346) 	TX_BUF0[30]=EEPROMread(5*16+0);
    0F68 E500      LDI	R16,0x50
    0F69 E010      LDI	R17,0
    0F6A 940E48AD  CALL	_EEPROMread
    0F6C 9300015E  STS	0x15E,R16
(0347) 	TX_BUF0[31]=EEPROMread(5*16+1);
    0F6E E501      LDI	R16,0x51
    0F6F E010      LDI	R17,0
    0F70 940E48AD  CALL	_EEPROMread
    0F72 9300015F  STS	0x15F,R16
(0348) 	TX_BUF0[32]=EEPROMread(5*16+2);
    0F74 E502      LDI	R16,0x52
    0F75 E010      LDI	R17,0
    0F76 940E48AD  CALL	_EEPROMread
    0F78 93000160  STS	0x160,R16
(0349) 	TX_BUF0[33]=EEPROMread(5*16+3);
    0F7A E503      LDI	R16,0x53
    0F7B E010      LDI	R17,0
    0F7C 940E48AD  CALL	_EEPROMread
    0F7E 93000161  STS	0x161,R16
(0350) 	TX_BUF0[34]=EEPROMread(5*16+4);
    0F80 E504      LDI	R16,0x54
    0F81 E010      LDI	R17,0
    0F82 940E48AD  CALL	_EEPROMread
    0F84 93000162  STS	0x162,R16
(0351) 	TX_BUF0[35]=EEPROMread(5*16+5);
    0F86 E505      LDI	R16,0x55
    0F87 E010      LDI	R17,0
    0F88 940E48AD  CALL	_EEPROMread
    0F8A 93000163  STS	0x163,R16
(0352) 	TX_BUF0[36]=EEPROMread(5*16+6);
    0F8C E506      LDI	R16,0x56
    0F8D E010      LDI	R17,0
    0F8E 940E48AD  CALL	_EEPROMread
    0F90 93000164  STS	0x164,R16
(0353) 	
(0354) 	TX_BUF0[37]=EEPROMread(6*16+0);
    0F92 E600      LDI	R16,0x60
    0F93 E010      LDI	R17,0
    0F94 940E48AD  CALL	_EEPROMread
    0F96 93000165  STS	0x165,R16
(0355) 	TX_BUF0[38]=EEPROMread(6*16+1);
    0F98 E601      LDI	R16,0x61
    0F99 E010      LDI	R17,0
    0F9A 940E48AD  CALL	_EEPROMread
    0F9C 93000166  STS	0x166,R16
(0356) 	TX_BUF0[39]=EEPROMread(6*16+2);
    0F9E E602      LDI	R16,0x62
    0F9F E010      LDI	R17,0
    0FA0 940E48AD  CALL	_EEPROMread
    0FA2 93000167  STS	0x167,R16
(0357) 	TX_BUF0[40]=EEPROMread(6*16+3);
    0FA4 E603      LDI	R16,0x63
    0FA5 E010      LDI	R17,0
    0FA6 940E48AD  CALL	_EEPROMread
    0FA8 93000168  STS	0x168,R16
(0358) 	TX_BUF0[41]=EEPROMread(6*16+4);
    0FAA E604      LDI	R16,0x64
    0FAB E010      LDI	R17,0
    0FAC 940E48AD  CALL	_EEPROMread
    0FAE 93000169  STS	0x169,R16
(0359) 	TX_BUF0[42]=EEPROMread(6*16+5);
    0FB0 E605      LDI	R16,0x65
    0FB1 E010      LDI	R17,0
    0FB2 940E48AD  CALL	_EEPROMread
    0FB4 9300016A  STS	0x16A,R16
(0360) 	TX_BUF0[43]=EEPROMread(6*16+6);
    0FB6 E606      LDI	R16,0x66
    0FB7 E010      LDI	R17,0
    0FB8 940E48AD  CALL	_EEPROMread
    0FBA 9300016B  STS	0x16B,R16
(0361) 	
(0362) 	TX_BUF0[44]=EEPROMread(7*16+0);
    0FBC E700      LDI	R16,0x70
    0FBD E010      LDI	R17,0
    0FBE 940E48AD  CALL	_EEPROMread
    0FC0 9300016C  STS	0x16C,R16
(0363) 	TX_BUF0[45]=EEPROMread(7*16+1);
    0FC2 E701      LDI	R16,0x71
    0FC3 E010      LDI	R17,0
    0FC4 940E48AD  CALL	_EEPROMread
    0FC6 9300016D  STS	0x16D,R16
(0364) 	TX_BUF0[46]=EEPROMread(7*16+2);
    0FC8 E702      LDI	R16,0x72
    0FC9 E010      LDI	R17,0
    0FCA 940E48AD  CALL	_EEPROMread
    0FCC 9300016E  STS	0x16E,R16
(0365) 	TX_BUF0[47]=EEPROMread(7*16+3);
    0FCE E703      LDI	R16,0x73
    0FCF E010      LDI	R17,0
    0FD0 940E48AD  CALL	_EEPROMread
    0FD2 9300016F  STS	0x16F,R16
(0366) 	TX_BUF0[48]=EEPROMread(7*16+4);
    0FD4 E704      LDI	R16,0x74
    0FD5 E010      LDI	R17,0
    0FD6 940E48AD  CALL	_EEPROMread
    0FD8 93000170  STS	0x170,R16
(0367) 	TX_BUF0[49]=EEPROMread(7*16+5);
    0FDA E705      LDI	R16,0x75
    0FDB E010      LDI	R17,0
    0FDC 940E48AD  CALL	_EEPROMread
    0FDE 93000171  STS	0x171,R16
(0368) 	TX_BUF0[50]=EEPROMread(7*16+6);
    0FE0 E706      LDI	R16,0x76
    0FE1 E010      LDI	R17,0
    0FE2 940E48AD  CALL	_EEPROMread
    0FE4 93000172  STS	0x172,R16
(0369) 	
(0370) 	TX_BUF0[51]=EEPROMread(8*16+0);
    0FE6 E800      LDI	R16,0x80
    0FE7 E010      LDI	R17,0
    0FE8 940E48AD  CALL	_EEPROMread
    0FEA 93000173  STS	0x173,R16
(0371) 	TX_BUF0[52]=EEPROMread(8*16+1);
    0FEC E801      LDI	R16,0x81
    0FED E010      LDI	R17,0
    0FEE 940E48AD  CALL	_EEPROMread
    0FF0 93000174  STS	0x174,R16
(0372) 	TX_BUF0[53]=EEPROMread(8*16+2);
    0FF2 E802      LDI	R16,0x82
    0FF3 E010      LDI	R17,0
    0FF4 940E48AD  CALL	_EEPROMread
    0FF6 93000175  STS	0x175,R16
(0373) 	TX_BUF0[54]=EEPROMread(8*16+3);
    0FF8 E803      LDI	R16,0x83
    0FF9 E010      LDI	R17,0
    0FFA 940E48AD  CALL	_EEPROMread
    0FFC 93000176  STS	0x176,R16
(0374) 	TX_BUF0[55]=EEPROMread(8*16+4);
    0FFE E804      LDI	R16,0x84
    0FFF E010      LDI	R17,0
    1000 940E48AD  CALL	_EEPROMread
    1002 93000177  STS	0x177,R16
(0375) 	TX_BUF0[56]=EEPROMread(8*16+5);
    1004 E805      LDI	R16,0x85
    1005 E010      LDI	R17,0
    1006 940E48AD  CALL	_EEPROMread
    1008 93000178  STS	0x178,R16
(0376) 	TX_BUF0[57]=EEPROMread(8*16+6);
    100A E806      LDI	R16,0x86
    100B E010      LDI	R17,0
    100C 940E48AD  CALL	_EEPROMread
    100E 93000179  STS	0x179,R16
(0377) 	
(0378) 	TX_BUF0[58]=EEPROMread(9*16+0);
    1010 E900      LDI	R16,0x90
    1011 E010      LDI	R17,0
    1012 940E48AD  CALL	_EEPROMread
    1014 9300017A  STS	0x17A,R16
(0379) 	TX_BUF0[59]=EEPROMread(9*16+1);
    1016 E901      LDI	R16,0x91
    1017 E010      LDI	R17,0
    1018 940E48AD  CALL	_EEPROMread
    101A 9300017B  STS	0x17B,R16
(0380) 	TX_BUF0[60]=EEPROMread(9*16+2);
    101C E902      LDI	R16,0x92
    101D E010      LDI	R17,0
    101E 940E48AD  CALL	_EEPROMread
    1020 9300017C  STS	0x17C,R16
(0381) 	TX_BUF0[61]=EEPROMread(9*16+3);
    1022 E903      LDI	R16,0x93
    1023 E010      LDI	R17,0
    1024 940E48AD  CALL	_EEPROMread
    1026 9300017D  STS	0x17D,R16
(0382) 	TX_BUF0[62]=EEPROMread(9*16+4);
    1028 E904      LDI	R16,0x94
    1029 E010      LDI	R17,0
    102A 940E48AD  CALL	_EEPROMread
    102C 9300017E  STS	0x17E,R16
(0383) 	TX_BUF0[63]=EEPROMread(9*16+5);
    102E E905      LDI	R16,0x95
    102F E010      LDI	R17,0
    1030 940E48AD  CALL	_EEPROMread
    1032 9300017F  STS	0x17F,R16
(0384) 	TX_BUF0[64]=EEPROMread(9*16+6);
    1034 E906      LDI	R16,0x96
    1035 E010      LDI	R17,0
    1036 940E48AD  CALL	_EEPROMread
    1038 93000180  STS	0x180,R16
(0385) 	
(0386) 	TX_BUF0[65]=EEPROMread(10*16+0);
    103A EA00      LDI	R16,0xA0
    103B E010      LDI	R17,0
    103C 940E48AD  CALL	_EEPROMread
    103E 93000181  STS	0x181,R16
(0387) 	TX_BUF0[66]=EEPROMread(10*16+1);
    1040 EA01      LDI	R16,0xA1
    1041 E010      LDI	R17,0
    1042 940E48AD  CALL	_EEPROMread
    1044 93000182  STS	0x182,R16
(0388) 	TX_BUF0[67]=EEPROMread(10*16+2);
    1046 EA02      LDI	R16,0xA2
    1047 E010      LDI	R17,0
    1048 940E48AD  CALL	_EEPROMread
    104A 93000183  STS	0x183,R16
(0389) 	TX_BUF0[68]=EEPROMread(10*16+3);
    104C EA03      LDI	R16,0xA3
    104D E010      LDI	R17,0
    104E 940E48AD  CALL	_EEPROMread
    1050 93000184  STS	0x184,R16
(0390) 	TX_BUF0[69]=EEPROMread(10*16+4);
    1052 EA04      LDI	R16,0xA4
    1053 E010      LDI	R17,0
    1054 940E48AD  CALL	_EEPROMread
    1056 93000185  STS	0x185,R16
(0391) 	TX_BUF0[70]=EEPROMread(10*16+5);
    1058 EA05      LDI	R16,0xA5
    1059 E010      LDI	R17,0
    105A 940E48AD  CALL	_EEPROMread
    105C 93000186  STS	0x186,R16
(0392) 	TX_BUF0[71]=EEPROMread(10*16+6);
    105E EA06      LDI	R16,0xA6
    105F E010      LDI	R17,0
    1060 940E48AD  CALL	_EEPROMread
    1062 93000187  STS	0x187,R16
(0393) 	SET_LIGHT(); 	
    1064 98BE      CBI	0x17,6
(0394) 	TX_BUF0[72]=EEPROMread(11*16+0);
    1065 EB00      LDI	R16,0xB0
    1066 E010      LDI	R17,0
    1067 940E48AD  CALL	_EEPROMread
    1069 93000188  STS	0x188,R16
(0395) 	TX_BUF0[73]=EEPROMread(11*16+1);
    106B EB01      LDI	R16,0xB1
    106C E010      LDI	R17,0
    106D 940E48AD  CALL	_EEPROMread
    106F 93000189  STS	0x189,R16
(0396) 	TX_BUF0[74]=EEPROMread(11*16+2);
    1071 EB02      LDI	R16,0xB2
    1072 E010      LDI	R17,0
    1073 940E48AD  CALL	_EEPROMread
    1075 9300018A  STS	0x18A,R16
(0397) 	TX_BUF0[75]=EEPROMread(11*16+3);
    1077 EB03      LDI	R16,0xB3
    1078 E010      LDI	R17,0
    1079 940E48AD  CALL	_EEPROMread
    107B 9300018B  STS	0x18B,R16
(0398) 	TX_BUF0[76]=EEPROMread(11*16+4);
    107D EB04      LDI	R16,0xB4
    107E E010      LDI	R17,0
    107F 940E48AD  CALL	_EEPROMread
    1081 9300018C  STS	0x18C,R16
(0399) 	TX_BUF0[77]=EEPROMread(11*16+5);
    1083 EB05      LDI	R16,0xB5
    1084 E010      LDI	R17,0
    1085 940E48AD  CALL	_EEPROMread
    1087 9300018D  STS	0x18D,R16
(0400) 	TX_BUF0[78]=EEPROMread(11*16+6);
    1089 EB06      LDI	R16,0xB6
    108A E010      LDI	R17,0
    108B 940E48AD  CALL	_EEPROMread
    108D 9300018E  STS	0x18E,R16
(0401) 	
(0402) 	TX_BUF0[79]=EEPROMread(12*16+0);
    108F EC00      LDI	R16,0xC0
    1090 E010      LDI	R17,0
    1091 940E48AD  CALL	_EEPROMread
    1093 9300018F  STS	0x18F,R16
(0403) 	TX_BUF0[80]=EEPROMread(12*16+1);
    1095 EC01      LDI	R16,0xC1
    1096 E010      LDI	R17,0
    1097 940E48AD  CALL	_EEPROMread
    1099 93000190  STS	0x190,R16
(0404) 	TX_BUF0[81]=EEPROMread(12*16+2);
    109B EC02      LDI	R16,0xC2
    109C E010      LDI	R17,0
    109D 940E48AD  CALL	_EEPROMread
    109F 93000191  STS	0x191,R16
(0405) 	TX_BUF0[82]=EEPROMread(12*16+3);
    10A1 EC03      LDI	R16,0xC3
    10A2 E010      LDI	R17,0
    10A3 940E48AD  CALL	_EEPROMread
    10A5 93000192  STS	0x192,R16
(0406) 	TX_BUF0[83]=EEPROMread(12*16+4);
    10A7 EC04      LDI	R16,0xC4
    10A8 E010      LDI	R17,0
    10A9 940E48AD  CALL	_EEPROMread
    10AB 93000193  STS	0x193,R16
(0407) 	TX_BUF0[84]=EEPROMread(12*16+5);
    10AD EC05      LDI	R16,0xC5
    10AE E010      LDI	R17,0
    10AF 940E48AD  CALL	_EEPROMread
    10B1 93000194  STS	0x194,R16
(0408) 	TX_BUF0[85]=EEPROMread(12*16+6);
    10B3 EC06      LDI	R16,0xC6
    10B4 E010      LDI	R17,0
    10B5 940E48AD  CALL	_EEPROMread
    10B7 93000195  STS	0x195,R16
(0409) 	
(0410) 	TX_BUF0[86]=0x03;
    10B9 E083      LDI	R24,3
    10BA 93800196  STS	0x196,R24
(0411) 	TransmitByte0(TX_BUF0,87);
    10BC E527      LDI	R18,0x57
    10BD E400      LDI	R16,0x40
    10BE E011      LDI	R17,1
    10BF DCA8      RCALL	_TransmitByte0
(0412) 	for(i=0;i<3800;i++);
    10C0 2744      CLR	R20
    10C1 2755      CLR	R21
    10C2 C002      RJMP	0x10C5
    10C3 5F4F      SUBI	R20,0xFF
    10C4 4F5F      SBCI	R21,0xFF
    10C5 3D48      CPI	R20,0xD8
    10C6 E0EE      LDI	R30,0xE
    10C7 075E      CPC	R21,R30
    10C8 F3D0      BCS	0x10C3
(0413) 	CLEAR_LIGHT();
    10C9 9ABE      SBI	0x17,6
    10CA 940E486E  CALL	pop_gset1
    10CC 9508      RET
_setup_curtime:
  i                    --> R20
    10CD 940E486B  CALL	push_gset1
(0414) }
(0415) void setup_curtime(void)
(0416) {
(0417)  	 		unsigned char i;
(0418) 			for(i=0;i<7;i++)
    10CF 2744      CLR	R20
    10D0 C013      RJMP	0x10E4
(0419) 			time_data[6-i]=RX_BUF0[2+i];
    10D1 2E24      MOV	R2,R20
    10D2 2433      CLR	R3
    10D3 E0E6      LDI	R30,6
    10D4 E0F0      LDI	R31,0
    10D5 19E2      SUB	R30,R2
    10D6 09F3      SBC	R31,R3
    10D7 E08C      LDI	R24,0xC
    10D8 E092      LDI	R25,2
    10D9 0FE8      ADD	R30,R24
    10DA 1FF9      ADC	R31,R25
    10DB E386      LDI	R24,0x36
    10DC E091      LDI	R25,1
    10DD 2DA2      MOV	R26,R2
    10DE 27BB      CLR	R27
    10DF 0FA8      ADD	R26,R24
    10E0 1FB9      ADC	R27,R25
    10E1 902C      LD	R2,0(X)
    10E2 8220      STD	Z+0,R2
    10E3 9543      INC	R20
    10E4 3047      CPI	R20,7
    10E5 F358      BCS	0x10D1
(0420) 			Set_1302(time_data);
    10E6 E00C      LDI	R16,0xC
    10E7 E012      LDI	R17,2
    10E8 940E1AAF  CALL	_Set_1302
(0421) 			senddata(0);
    10EA 2700      CLR	R16
    10EB D003      RCALL	_senddata
    10EC 940E486E  CALL	pop_gset1
    10EE 9508      RET
_senddata:
  i                    --> R20
  flag                 --> R20
    10EF 940E486B  CALL	push_gset1
    10F1 2F40      MOV	R20,R16
(0422) }
(0423) 
(0424) void senddata(unsigned char flag)
(0425) {
(0426)  	 	unsigned int i;
(0427) 		
(0428)  	 	SET_LIGHT();
    10F2 98BE      CBI	0x17,6
(0429) 		TX_BUF0[0]=0x11;
    10F3 E181      LDI	R24,0x11
    10F4 93800140  STS	TX_BUF0,R24
(0430) 		TX_BUF0[1]=4;
    10F6 E084      LDI	R24,4
    10F7 93800141  STS	TX_BUF0+1,R24
(0431) 		TX_BUF0[2]=3;
    10F9 E083      LDI	R24,3
    10FA 93800142  STS	TX_BUF0+2,R24
(0432) 		TransmitByte0(TX_BUF0,3);
    10FC E023      LDI	R18,3
    10FD E400      LDI	R16,0x40
    10FE E011      LDI	R17,1
    10FF DC68      RCALL	_TransmitByte0
(0433) 		for(i=0;i<3800;i++);
    1100 2744      CLR	R20
    1101 2755      CLR	R21
    1102 C002      RJMP	0x1105
    1103 5F4F      SUBI	R20,0xFF
    1104 4F5F      SBCI	R21,0xFF
    1105 3D48      CPI	R20,0xD8
    1106 E0EE      LDI	R30,0xE
    1107 075E      CPC	R21,R30
    1108 F3D0      BCS	0x1103
(0434) 		CLEAR_LIGHT();
    1109 9ABE      SBI	0x17,6
    110A 940E486E  CALL	pop_gset1
    110C 9508      RET
_timer1_ovf_isr:
    110D 922A      ST	R2,-Y
    110E 923A      ST	R3,-Y
    110F 938A      ST	R24,-Y
    1110 939A      ST	R25,-Y
    1111 B62F      IN	R2,0x3F
    1112 922A      ST	R2,-Y
(0435) }
(0436) #pragma interrupt_handler timer1_ovf_isr:15

⌨️ 快捷键说明

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