printb.lst

单片机实验与实践教程(一)的全部实验的源程序库

A51 MACRO ASSEMBLER  PRINTB                                                               11/23/2003 09:30:43 PAGE     1


MACRO ASSEMBLER A51 V6.12
OBJECT MODULE PLACED IN PRINTB.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE PRINTB.ASM DB

LOC  OBJ            LINE     SOURCE

                       1     ;实验14 微型打印机接口实验
                       2     ;B：按下列格式打印出当前时间表：
                       3     ;YEAR：        2003                      （2003年）
                       4     ;DATE：        12：17：02                （ 12月：17日：周2）
                       5     ;CLOCK：       19：15：53                （19点：15分：53秒）
0000                   6                ORG     00H                   ;PROGRAM12B.ASM
0000 0130              7                AJMP    MAIN
0030                   8                ORG     30H
0030                   9     MAIN:     ; ACALL   SUBWRITE
0030 1134             10                             ACALL   PRINT
0032 0132             11     STOP:      AJMP    STOP
0034 740A             12     PRINT:     MOV     A,#0AH                 ; 换行
0036 1200C4           13                LCALL   PR
0039 740D             14                MOV     A,#0DH                 ;回车
003B 1200C4           15                LCALL   PR
003E 9000E8           16                MOV     DPTR,#CLK               ;  打印ASCII字符："CLOCK: "
0041 E4               17     SC:        CLR     A
0042 93               18                MOVC    A,@A+DPTR
0043 1200C4           19                LCALL   PR
0046 A3               20                INC     DPTR
0047 B420F7           21                CJNE    A,#20H,SC
                      22            ;   CLOCK
004A 7871             23                MOV     R0,#71H                  ;打印  时：分：秒（ "12：46：35： "）
004C 7D06             24                MOV     R5,#6
004E E6               25     SS0:       MOV     A,@R0
004F 2430             26               ADD     A,#30H                    ;转换手滴狝SCII码
0051 1200C4           27                LCALL   PR
0054 08               28                INC     R0
0055 E8               29                MOV     A,R0
0056 30E005           30                JNB     ACC.0,SB                  ;在第1，3，5位之后应打印安"： "号
0059 743A             31                MOV     A,#3AH                    ;在第0，2，4位之后应不打印"： "号
005B 1200C4           32                LCALL   PR
005E DDEE             33     SB:        DJNZ    R5,SS0
0060 7420             34                MOV     A,#20H
0062 1200C4           35                LCALL   PR
0065 7420             36                MOV     A,#20H
0067 1200C4           37                LCALL   PR
006A 740D             38                MOV     A,#0DH
006C 1200C4           39                LCALL   PR
006F 9000E2           40                MOV     DPTR,#DATE                ;打印ASCII字符："DATE： "
0072 E4               41     SD:        CLR     A
0073 93               42                MOVC    A,@A+DPTR
0074 1200C4           43                LCALL   PR
0077 A3               44                INC     DPTR
0078 B420F7           45                CJNE    A,#20H,SD
                      46           ;    DATE
007B 7877             47                MOV     R0,#77H                 ;打印 月：日：周日：（"12：23：5： "）
007D 7D05             48                MOV     R5,#5
007F E6               49     SS1:       MOV     A,@R0
0080 2430             50                ADD     A,#30H
0082 1200C4           51                LCALL   PR
0085 08               52                INC     R0
0086 E8               53                MOV     A,R0
0087 30E005           54                JNB     ACC.0,SA
008A 743A             55                MOV     A,#3AH
008C 1200C4           56               LCALL   PR
008F DDEE             57     SA:        DJNZ    R5,SS1
0091 7420             58                MOV     A,#20H
A51 MACRO ASSEMBLER  PRINTB                                                               11/23/2003 09:30:43 PAGE     2

0093 1200C4           59                LCALL   PR
0096 7420             60                MOV     A,#20H
0098 1200C4           61                LCALL   PR
009B 740D             62                MOV     A,#0DH
009D 1200C4           63                LCALL   PR
00A0 9000DC           64                MOV     DPTR,#YEAR         ;打印ASCII字符：" YEAR： "
00A3 E4               65     SE:        CLR     A
00A4 93               66                MOVC    A,@A+DPTR
00A5 1200C4           67                LCALL   PR
00A8 A3               68                INC     DPTR
00A9 B420F7           69               CJNE    A,#20H,SE
                      70           ;   YEAR 
00AC 787C             71               MOV      R0,#7CH              ;打印年：（"2003"）
00AE 7D04             72               MOV      R5,#4
00B0 E6               73     SS2:      MOV      A,@R0
00B1 2430             74               ADD      A,#30H
00B3 1200C4           75               LCALL    PR
00B6 08               76               INC      R0
00B7 DDF7             77               DJNZ     R5,SS2
00B9 740A             78               MOV      A,#0AH       ;打印机换行
00BB 1200C4           79               LCALL    PR
00BE 740D             80               MOV      A,#0DH       ; 打印机回车
00C0 1200C4           81               LCALL    PR
00C3 22               82               RET
00C4 C083             83     PR:       PUSH     DPH           ;打印子程序，要打业淖址