?? 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 + -