📄 sszjqz.lst
字号:
PL/M-51 COMPILER 10/24/:4 PAGE 1
DOS 6.22 (038-N) PL/M-51 V1.2
COMPILER INVOKED BY: D:\PLM\PLM51.EXE SSZJQZ.PLM ROM(LARGE)DB SB
/*砂石电子秤程序 snwjgp.plm*/
1 1 ST0: DO; /*主程序开始*/
$INCLUDE(UTIL51.H)
=
2 2 = SETBD0: PROCEDURE(SADDR,BDATA,LEN) EXTERNAL;
3 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= BDATA BYTE, /*DATA TO BE SET*/
= LEN BYTE; /*LENGTH*/
4 1 = END SETBD0;
=
5 2 = SETBX0: PROCEDURE(SADDR,BDATA,LEN) EXTERNAL;
6 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= BDATA BYTE, /*DATA TO BE SET*/
= LEN WORD; /*LENGTH*/
7 1 = END SETBX0;
=
8 2 = SETWD0: PROCEDURE(SADDR,WDATA,LEN) EXTERNAL;
9 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= WDATA WORD, /*DATA TO BE SET*/
= LEN BYTE; /*LENGTH*/
10 1 = END SETWD0;
=
11 2 = SETWX0: PROCEDURE(SADDR,WDATA,LEN) EXTERNAL;
12 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= WDATA WORD, /*DATA TO BE SET*/
= LEN WORD; /*LENGTH*/
13 1 = END SETWX0;
=
14 2 = DEC_DPTR: PROCEDURE EXTERNAL; /*DEC DPTR*/
15 1 = END DEC_DPTR;
=
16 2 = MOVDD0: PROCEDURE(SADDR,DADDR,LEN) EXTERNAL;
17 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= DADDR BYTE, /*DESTINATION ADDR*/
= LEN BYTE; /*LENGTH*/
18 1 = END MOVDD0;
=
19 2 = MOVXD0: PROCEDURE(SADDR,DADDR,LEN) EXTERNAL;
20 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR BYTE, /*DESTINATION ADDR*/
= LEN BYTE; /*LENGTH*/
21 1 = END MOVXD0;
=
22 2 = MOVDX0: PROCEDURE(SADDR,DADDR,LEN) EXTERNAL;
23 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= DADDR WORD, /*DESTINATION ADDR*/
= LEN BYTE; /*LENGTH*/
24 1 = END MOVDX0;
=
25 2 = MOVCD0: PROCEDURE(SADDR,DADDR,LEN) EXTERNAL;
26 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR BYTE, /*DESTINATION ADDR*/
PL/M-51 COMPILER ST0 10/24/:4 PAGE 2
= LEN BYTE; /*LENGTH*/
27 1 = END MOVCD0;
=
28 2 = MOVCX0: PROCEDURE(SADDR,DADDR,LEN) EXTERNAL;
29 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR WORD, /*DESTINATION ADDR*/
= LEN WORD; /*LENGTH*/
30 1 = END MOVCX0;
=
31 2 = MOVXX0: PROCEDURE(SADDR,DADDR,LEN) EXTERNAL;
32 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR WORD, /*DESTINATION ADDR*/
= LEN WORD; /*LENGTH*/
33 1 = END MOVXX0;
=
34 2 = CMPDD0: PROCEDURE(SADDR,DADDR,LEN) WORD EXTERNAL;
35 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= DADDR BYTE, /*DESTINATION ADDR*/
= LEN BYTE; /*LENGTH*/
36 1 = END CMPDD0; /*IF EQU THEN TREURN 0FFFFH*/
= /*ELSE THEN RETURN OFFSET */
=
37 2 = CMPXD0: PROCEDURE(SADDR,DADDR,LEN) WORD EXTERNAL;
38 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR BYTE, /*DESTINATION ADDR*/
= LEN BYTE; /*LENGTH*/
39 1 = END CMPXD0;
=
40 2 = CMPCD0: PROCEDURE(SADDR,DADDR,LEN) WORD EXTERNAL;
41 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR BYTE, /*DESTINATION ADDR*/
= LEN BYTE; /*LENGTH*/
42 1 = END CMPCD0;
=
43 2 = CMPCX0: PROCEDURE(SADDR,DADDR,LEN) WORD EXTERNAL;
44 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR WORD, /*DESTINATION ADDR*/
= LEN WORD; /*LENGTH*/
45 1 = END CMPCX0;
=
46 2 = CMPCC0: PROCEDURE(SADDR,DADDR,LEN) WORD EXTERNAL;
47 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR WORD, /*DESTINATION ADDR*/
= LEN WORD; /*LENGTH*/
48 1 = END CMPCC0;
=
49 2 = CMPXX0: PROCEDURE(SADDR,DADDR,LEN) WORD EXTERNAL;
50 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR WORD, /*DESTINATION ADDR*/
= LEN WORD; /*LENGTH*/
51 1 = END CMPXX0;
=
52 2 = FNDBD0: PROCEDURE(SADDR,BDATA,LEN) WORD EXTERNAL;
53 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= BDATA BYTE, /*DATA TO BE FOUND*/
= LEN BYTE; /*LENGTH*/
54 1 = END FNDBD0;
PL/M-51 COMPILER ST0 10/24/:4 PAGE 3
=
55 2 = FNDBC0: PROCEDURE(SADDR,BDATA,LEN) WORD EXTERNAL;
56 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= BDATA BYTE, /*DATA TO BE FOUND*/
= LEN WORD; /*LENGTH*/
57 1 = END FNDBC0;
=
58 2 = FNDBX0: PROCEDURE(SADDR,BDATA,LEN) WORD EXTERNAL;
59 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= BDATA BYTE, /*DATA TO BE FOUND*/
= LEN WORD; /*LENGTH*/
60 1 = END FNDBX0;
=
61 2 = FNDWD0: PROCEDURE(SADDR,WDATA,LEN) WORD EXTERNAL;
62 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= WDATA WORD, /*DATA TO BE FOUND*/
= LEN BYTE; /*LENGTH*/
63 1 = END FNDWD0;
=
64 2 = FNDWC0: PROCEDURE(SADDR,WDATA,LEN) WORD EXTERNAL;
65 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= WDATA WORD, /*DATA TO BE FOUND*/
= LEN WORD; /*LENGTH*/
66 1 = END FNDWC0;
=
67 2 = FNDWX0: PROCEDURE(SADDR,WDATA,LEN) WORD EXTERNAL;
68 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= WDATA WORD, /*DATA TO BE FOUND*/
= LEN WORD; /*LENGTH*/
69 1 = END FNDWX0;
=
70 2 = SKPBD0: PROCEDURE(SADDR,BDATA,LEN) WORD EXTERNAL;
71 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= BDATA BYTE, /*DATA TO BE SKIPED*/
= LEN BYTE; /*LENGTH*/
72 1 = END SKPBD0;
=
73 2 = SKPBC0: PROCEDURE(SADDR,BDATA,LEN) WORD EXTERNAL;
74 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= BDATA BYTE, /*DATA TO BE SKIPED*/
= LEN WORD; /*LENGTH*/
75 1 = END SKPBC0;
=
76 2 = SKPBX0: PROCEDURE(SADDR,BDATA,LEN) WORD EXTERNAL;
77 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= BDATA BYTE, /*DATA TO BE SKIPED*/
= LEN WORD; /*LENGTH*/
78 1 = END SKPBX0;
=
79 2 = SKPWD0: PROCEDURE(SADDR,WDATA,LEN) WORD EXTERNAL;
80 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= WDATA WORD, /*DATA TO BE SKIPED*/
= LEN BYTE; /*LENGTH*/
81 1 = END SKPWD0;
=
82 2 = SKPWC0: PROCEDURE(SADDR,WDATA,LEN) WORD EXTERNAL;
83 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
PL/M-51 COMPILER ST0 10/24/:4 PAGE 4
= WDATA WORD, /*DATA TO BE SKIPED*/
= LEN WORD; /*LENGTH*/
84 1 = END SKPWC0;
=
85 2 = SKPWX0: PROCEDURE(SADDR,WDATA,LEN) WORD EXTERNAL;
86 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= WDATA WORD, /*DATA TO BE SKIPED*/
= LEN WORD; /*LENGTH*/
87 1 = END SKPWX0;
=
88 2 = RMVDD0: PROCEDURE(SADDR,DADDR,LEN) EXTERNAL; /*MOV FROM SADDR+LEN-1 TO SADDR*/
89 2 = DECLARE SADDR BYTE, /*SOURCE ADDR*/
= DADDR BYTE, /*DESTINATION ADDR*/
= LEN BYTE; /*LENGTH*/
90 1 = END RMVDD0;
=
91 2 = RMVXX0: PROCEDURE(SADDR,DADDR,LEN) EXTERNAL;
92 2 = DECLARE SADDR WORD, /*SOURCE ADDR*/
= DADDR WORD, /*DESTINATION ADDR*/
= LEN WORD; /*LENGTH*/
93 1 = END RMVXX0;
=
$INCLUDE(REG51.DCL)
= /* 8051 REG DECLARE */
94 1 = DECLARE
= P0 BYTE AT (80H) register,
= P1 BYTE AT (90H) register,
= P2 BYTE AT (0A0H) register,
= P3 BYTE AT (0B0H) register,
= PSW BYTE AT (0D0H) register,
= ACC BYTE AT (0E0H) register,
= B BYTE AT (0F0H) register,
= SP BYTE AT (81H) register,
= DPL BYTE AT (82H) register,
= DPH BYTE AT (83H) register,
= PCON BYTE AT (87H) register,
= TCON BYTE AT (88H) register,
= TMOD BYTE AT (89H) register,
= TL0 BYTE AT (8AH) register,
= TL1 BYTE AT (8BH) register,
= TH0 BYTE AT (8CH) register,
= TH1 BYTE AT (8DH) register,
= IE BYTE AT (0A8H) register,
= IP BYTE AT (0B8H) register,
= SOCN BYTE AT (98H) register,
= SBUF BYTE AT (99H) register;
= /* bin reg psw */
95 1 = DECLARE
= CY BIT AT (0D7H) register,
= AC BIT AT (0D6H) register,
= FO BIT AT (0D5H) register,
= RS1 BIT AT (0D4H) register,
= RS0 BIT AT (0D3H) register,
= OV BIT AT (0D2H) register,
= P BIT AT (0D0H) register,
= /* TCON */
= TF1 BIT AT (8FH) register,
PL/M-51 COMPILER ST0 10/24/:4 PAGE 5
= TR1 BIT AT (8EH) register,
= TF0 BIT AT (8DH) register,
= TR0 BIT AT (8CH) register,
= IE1 BIT AT (8BH) register,
= IT1 BIT AT (8AH) register,
= IE0 BIT AT (89H) register,
= IT0 BIT AT (88H) register,
= /* IE */
= EA BIT AT (0AFH) register,
= ES BIT AT (0ACH) register,
= ET1 BIT AT (0ABH) register,
= EX1 BIT AT (0AAH) register,
= ET0 BIT AT (0A9H) register,
= EX0 BIT AT (0A8H) register,
= /* IP */
= PS BIT AT (0BCH) register,
= PT1 BIT AT (0BBH) register,
= PX1 BIT AT (0BAH) register,
= PTO BIT AT (0B9H) register,
= PX0 BIT AT (0B8H) register,
= /* P3 BIN */
= RD BIT AT (0B7H) register,
= WR BIT AT (0B6H) register,
= T1 BIT AT (0B5H) register,
= T0 BIT AT (0B4H) register,
= INT1 BIT AT (0B3H) register,
= INT0 BIT AT (0B2H) register,
= TXD BIT AT (0B1H) register,
= RXD BIT AT (0B0H) register,
= /* SCON BIN */
= SM0 BIT AT (9FH) register,
= SM1 BIT AT (9EH) register,
= SM2 BIT AT (9DH) register,
= REN BIT AT (9CH) register,
= TB8 BIT AT (9BH) register,
= RB8 BIT AT (9AH) register,
= TI BIT AT (99H) register,
= RI BIT AT (98H) register;
96 1 DECLARE
KKDD WORD IDATA,
KKDD3 WORD IDATA,
KKDD1 WORD IDATA,
KKDD2 WORD IDATA,
YSYS WORD IDATA,
QLL WORD IDATA,
KBF WORD IDATA,
KBF1 WORD IDATA,
KBF2 WORD IDATA,
MM1 WORD IDATA,
MM2 WORD IDATA,
TQLL WORD IDATA,
TQLL1 WORD IDATA,
TQLL2 WORD IDATA,
ERR1 BYTE,
ZTZW BYTE,/*状态转换位置*/
WWYY BYTE,/*状态转换位置*/
WYX(8) BYTE,/*显示8位数据*/
PL/M-51 COMPILER ST0 10/24/:4 PAGE 6
XS BYTE,/*控制PPB口记忆*/
XX BYTE,/*控制PPB口记忆*/
XY BYTE,/*控制PPB口记忆*/
DQ BYTE IDATA,
CZD BYTE,/*AD低位*/
CZG BYTE,/*AD高位*/
KZ BYTE,/*控制口*/
JJSS WORD IDATA,/*串行口*/
JJS1 WORD IDATA,/*串行口*/
JJS3 WORD IDATA,/*串行口*/
JJS2 BYTE IDATA,/*串行口*/
DDXX WORD IDATA,/*串行口*/
DDXX1 WORD IDATA,/*串行口*/
JSJS WORD IDATA,/*串行口*/
DDX1(7) BYTE IDATA,/*串行口*/
JP BYTE;/*键值*/
97 1 DECLARE
YZZL WORD,/*预置重量*/
SJZL WORD,/*实际重量*/
SL(4) WORD,/*每一种物料秤量前的重量*/
YZDDY(4) WORD,/*当前物料灾弥亓⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -