wodangai.lst

用89S51做的摇摇棒

A51 MACRO ASSEMBLER  WODANGAI                                                             12/30/2008 13:26:00 PAGE     1


MACRO ASSEMBLER A51 V1.0
OBJECT MODULE PLACED IN WODANGAI.OBJ
ASSEMBLER INVOKED BY: D:\MANLEY\PMEDWIN\A51.EXE WODANGAI.ASM DB

LOC  OBJ            LINE     SOURCE

                       1     ;*************************************************
                       2     ;*  简易摇摇棒程序,P1 P2口为输出,P0.1接摇摆开关  *  
                       3     ;*************************************************
0000                   4             org 0000h
0000 020003            5             ljmp start
                       6             
0003 7580FF            7     start:  mov p0,#0ffh     ;p1口置高电平,所有灯全灭
0006 75A0FF            8             mov p2,#0ffh     ;p2口置高电平,所有灯全灭
0009 7800              9             mov r0,#00h      ;移位寄存器
000B 7950             10             mov r1,#80       ;16列*5个字=80列
000D D2B5             11             setb p3.5        ;p0.1口接开关,置高电平
000F 20B5FD           12     loop:   jb p3.5,loop     ;检测开关
0012 1138             13             acall d1ms       ;延时
0014 1138             14             acall d1ms       ;延时
0016 1138             15             acall d1ms       ;延时
0018 1138             16             acall d1ms       ;延时
001A 1138             17             acall d1ms       ;延时
001C E8               18     display:mov a,r0         ;逐位送显
001D 900041           19             mov dptr,#table  ;取表
0020 93               20             movc a,@a+dptr
0021 F580             21             mov p0,a         ;前8位送p1口显示
0023 08               22             inc r0           ;移位
0024 E8               23             mov a,r0         ;逐位送显
0025 900041           24             mov dptr,#table  ;取表
0028 93               25             movc a,@a+dptr
0029 F5A0             26             mov p2,a         ;后8位送p2口显示
002B 1138             27             acall d1ms       ;延时
002D 7580FF           28             mov p0,#0ffh     ;关闭p1口
0030 75A0FF           29             mov p2,#0ffh     ;关闭p2口
0033 08               30             inc r0           ;移位
0034 D9E6             31             djnz r1,display  ;未显示完80列则继续显示
0036 0103             32             ajmp start       ;显示完80列反回
                      33            
0038 7F32             34     d1ms:   mov r7,#50      ;延时一段时间
003A 7E64             35     d1:     mov r6,#100
003C DEFE             36     d2:     djnz r6,d2
003E DFFA             37             djnz r7,d1
0040 22               38             ret
                      39        ;==============================================================================
0041 08400880         40     table: DB 08H,40H,08H,80H,89H,00H,6BH,0FFH
0045 89006BFF
0049 0D010882         41            DB 0DH,01H,08H,82H,7FH,84H,41H,18H
004D 7F844118
0051 41E04100         42            DB 41H,0E0H,41H,00H,41H,0FCH,41H,02H
0055 41FC4102
0059 FF824002         43            DB 0FFH,82H,40H,02H,00H,0EH,00H,00H;祝
005D 000E0000
                      44        
0061 04204420         45            DB 04H,20H,44H,20H,54H,40H,54H,80H
0065 54405480
0069 55FF5692         46            DB 55H,0FFH,56H,92H,5CH,92H,0F4H,92H
006D 5C92F492
0071 54925692         47            DB 54H,92H,56H,92H,55H,0FFH,54H,80H
0075 55FF5480
0079 54404460         48            DB 54H,40H,44H,60H,04H,40H,00H,00H;春
007D 04400000
                      49        
0081 20002400         50            DB 20H,00H,24H,00H,24H,00H,24H,00H
A51 MACRO ASSEMBLER  WODANGAI                                                             12/30/2008 13:26:00 PAGE     2

0085 24002400
0089 2400FC00         51            DB 24H,00H,0FCH,00H,27H,0FFH,24H,00H
008D 27FF2400
0091 2400FC20         52            DB 24H,00H,0FCH,20H,24H,10H,24H,08H
0095 24102408
0099 2FF06400         53            DB 2FH,0F0H,64H,00H,20H,00H,00H,00H;节
009D 20000000
                      54        
00A1 01000E00         55            DB 01H,00H,0EH,00H,00H,00H,0FFH,0FFH
00A5 0000FFFF
00A9 08410442         56            DB   08H,41H,04H,42H,08H,44H,08H,58H
00AD 08440858
00B1 FFE00850         57            DB   0FFH,0E0H,08H,50H,08H,48H,08H,44H
00B5 08480844
00B9 1FC20843         58            DB   1FH,0C2H,08H,43H,00H,42H,00H,00H;快
00BD 00420000
                      59        
00C1 00000102         60            DB 00H,00H,01H,02H,03H,04H,3DH,08H
00C5 03043D08
00C9 21302102         61            DB 21H,30H,21H,02H,21H,01H,2FH,0FEH
00CD 21012FFE
00D1 41004100         62            DB 41H,00H,41H,00H,0C1H,20H,41H,10H
00D5 C1204110
00D9 010C0306         63            DB 01H,0CH,03H,06H,01H,00H,00H,00H;乐
00DD 01000000
                      64        
                      65        
                      66           
                      67     ;==============================================================================
                      68            END
A51 MACRO ASSEMBLER  WODANGAI                                                             12/30/2008 13:26:00 PAGE     3

SYMBOL TABLE LISTING
------ ----- -------


N A M E             T Y P E  V A L U E   ATTRIBUTES

D1 . . . . . . . .  C ADDR   003AH   A   
D1MS . . . . . . .  C ADDR   0038H   A   
D2 . . . . . . . .  C ADDR   003CH   A   
DISPLAY. . . . . .  C ADDR   001CH   A   
LOOP . . . . . . .  C ADDR   000FH   A   
P0 . . . . . . . .  D ADDR   0080H   A   
P2 . . . . . . . .  D ADDR   00A0H   A   
P3 . . . . . . . .  D ADDR   00B0H   A   
START. . . . . . .  C ADDR   0003H   A   
TABLE. . . . . . .  C ADDR   0041H   A   


REGISTER BANK(S) USED: 0 


ASSEMBLY COMPLETE.  0 WARNING(S), 0 ERROR(S)