main.ls1

数控系统的模拟系统,用SSTC51仿真单片机,仿真数控机床切割,能执行数控机床代码.

0030 7001            754             JNZ     ?C0390
0032 1E              755             DEC     R6
0033                 756     ?C0390:
0033 4C              757             ORL     A,R4
0034 70F6            758             JNZ     ?C0012
0036                 759     ?C0013:
                     760     
                     761                             
0036 D291            762             SETB    X_M
                     763     
                     764                             
0038 EB              765             MOV     A,R3
0039 1B              766             DEC     R3
003A 7001            767             JNZ     ?C0391
003C 1A              768             DEC     R2
003D                 769     ?C0391:
                     770     
                     771                             
003D EB              772             MOV     A,R3
003E 4A              773             ORL     A,R2
A51 MACRO ASSEMBLER  MAIN                                                                 05/19/2007 22:35:26 PAGE    13

003F 70D1            774             JNZ     ?C0008
                     775     
                     776     
                     777                             
0041                 778     ?C0014:
0041 22              779             RET     
                     780     
                     781     
                     782     
                     783     
                     784     
                     785     
----                 786             RSEG  ?PR?_weizhi?MAIN
0000                 787     _weizhi:
                     788             USING   0
                     789                             
                     790     
                     791     
                     792     
                     793     
                     794                             
                     795     
                     796     
                     797                             
0000 D3              798             SETB    C
0001 EF              799             MOV     A,R7
0002 9400            800             SUBB    A,#00H
0004 EE              801             MOV     A,R6
0005 6480            802             XRL     A,#080H
0007 9480            803             SUBB    A,#080H
0009 400F            804             JC      ?C0015
000B D3              805             SETB    C
000C ED              806             MOV     A,R5
000D 9400            807             SUBB    A,#00H
000F EC              808             MOV     A,R4
0010 6480            809             XRL     A,#080H
0012 9480            810             SUBB    A,#080H
0014 4004            811             JC      ?C0015
                     812     
                     813                             
0016 7A00            814             MOV     R2,#00H
0018 7B01            815             MOV     R3,#01H
001A                 816     ?C0015:
                     817     
                     818                             
001A C3              819             CLR     C
001B EE              820             MOV     A,R6
001C 6480            821             XRL     A,#080H
001E 9480            822             SUBB    A,#080H
0020 500E            823             JNC     ?C0016
0022 ED              824             MOV     A,R5
0023 9400            825             SUBB    A,#00H
0025 EC              826             MOV     A,R4
0026 6480            827             XRL     A,#080H
0028 9480            828             SUBB    A,#080H
002A 4004            829             JC      ?C0016
                     830     
                     831                             
002C 7A00            832             MOV     R2,#00H
002E 7B02            833             MOV     R3,#02H
0030                 834     ?C0016:
                     835     
                     836                             
0030 C3              837             CLR     C
0031 EE              838             MOV     A,R6
0032 6480            839             XRL     A,#080H
A51 MACRO ASSEMBLER  MAIN                                                                 05/19/2007 22:35:26 PAGE    14

0034 9480            840             SUBB    A,#080H
0036 500C            841             JNC     ?C0017
0038 C3              842             CLR     C
0039 EC              843             MOV     A,R4
003A 6480            844             XRL     A,#080H
003C 9480            845             SUBB    A,#080H
003E 5004            846             JNC     ?C0017
                     847     
                     848                             
0040 7A00            849             MOV     R2,#00H
0042 7B03            850             MOV     R3,#03H
0044                 851     ?C0017:
                     852     
                     853                             
0044 D3              854             SETB    C
0045 EF              855             MOV     A,R7
0046 9400            856             SUBB    A,#00H
0048 EE              857             MOV     A,R6
0049 6480            858             XRL     A,#080H
004B 9480            859             SUBB    A,#080H
004D 400B            860             JC      ?C0018
004F EC              861             MOV     A,R4
0050 6480            862             XRL     A,#080H
0052 9480            863             SUBB    A,#080H
0054 5004            864             JNC     ?C0018
                     865     
                     866                             
0056 7A00            867             MOV     R2,#00H
0058 7B04            868             MOV     R3,#04H
005A                 869     ?C0018:
                     870     
                     871                             
005A D3              872             SETB    C
005B EF              873             MOV     A,R7
005C 9400            874             SUBB    A,#00H
005E EE              875             MOV     A,R6
005F 6480            876             XRL     A,#080H
0061 9480            877             SUBB    A,#080H
0063 4007            878             JC      ?C0019
0065 ED              879             MOV     A,R5
0066 4C              880             ORL     A,R4
0067 7003            881             JNZ     ?C0019
0069 FA              882             MOV     R2,A
006A 7B05            883             MOV     R3,#05H
006C                 884     ?C0019:
                     885     
                     886                             
006C EF              887             MOV     A,R7
006D 4E              888             ORL     A,R6
006E 700F            889             JNZ     ?C0020
0070 D3              890             SETB    C
0071 ED              891             MOV     A,R5
0072 9400            892             SUBB    A,#00H
0074 EC              893             MOV     A,R4
0075 6480            894             XRL     A,#080H
0077 9480            895             SUBB    A,#080H
0079 4004            896             JC      ?C0020
007B 7A00            897             MOV     R2,#00H
007D 7B06            898             MOV     R3,#06H
007F                 899     ?C0020:
                     900     
                     901                             
007F C3              902             CLR     C
0080 EE              903             MOV     A,R6
0081 6480            904             XRL     A,#080H
0083 9480            905             SUBB    A,#080H
A51 MACRO ASSEMBLER  MAIN                                                                 05/19/2007 22:35:26 PAGE    15

0085 5007            906             JNC     ?C0021
0087 ED              907             MOV     A,R5
0088 4C              908             ORL     A,R4
0089 7003            909             JNZ     ?C0021
008B FA              910             MOV     R2,A
008C 7B07            911             MOV     R3,#07H
008E                 912     ?C0021:
                     913     
                     914                             
008E EF              915             MOV     A,R7
008F 4E              916             ORL     A,R6
0090 700C            917             JNZ     ?C0022
0092 C3              918             CLR     C
0093 EC              919             MOV     A,R4
0094 6480            920             XRL     A,#080H
0096 9480            921             SUBB    A,#080H
0098 5004            922             JNC     ?C0022
009A 7A00            923             MOV     R2,#00H
009C 7B08            924             MOV     R3,#08H
009E                 925     ?C0022:
                     926     
                     927                             
009E AF03            928             MOV     R7,AR3
00A0 AE02            929             MOV     R6,AR2
                     930     
                     931                             
00A2                 932     ?C0023:
00A2 22              933             RET     
                     934     
                     935     
                     936     
                     937     
                     938     
----                 939             RSEG  ?PR?xoy1?MAIN
0000                 940     xoy1:
                     941             USING   0
                     942                             
                     943     
                     944                             
                     945     
                     946                             
0000 D290            947             SETB    X_F
                     948     
                     949                             
0002 D292            950             SETB    Y_F
0004                 951     ?C0024:
                     952     
                     953                             
0004 E500     F      954             MOV     A,n+01H
0006 4500     F      955             ORL     A,n
0008 601B            956             JZ      ?C0028
                     957     
                     958                             
000A C3              959             CLR     C
000B E500     F      960             MOV     A,Fm1
000D 6480            961             XRL     A,#080H
000F 9480            962             SUBB    A,#080H
0011 4005            963             JC      ?C0026
0013 120000   F      964             LCALL   L?0467
0016 8003            965             SJMP    ?C0027
0018                 966     ?C0026:
                     967     
                     968                             
0018 120000   F      969             LCALL   L?0469
001B                 970     ?C0027:
                     971     
A51 MACRO ASSEMBLER  MAIN                                                                 05/19/2007 22:35:26 PAGE    16

                     972                             
001B E500     F      973             MOV     A,n+01H
001D 1500     F      974             DEC     n+01H
001F 70E3            975             JNZ     ?C0024
0021 1500     F      976             DEC     n
0023                 977     ?C0392:
                     978     
                     979                             
0023 80DF            980             SJMP    ?C0024
                     981     
                     982                             
0025                 983     ?C0028:
0025 22              984             RET     
                     985     
                     986     
                     987     
                     988     
                     989     
----                 990             RSEG  ?PR?xoy2?MAIN
0000                 991     xoy2:
                     992             USING   0
                     993                             
                     994     
                     995                             
                     996     
                     997                             
0000 C290            998             CLR     X_F
                     999     
                    1000                             
0002 D292           1001             SETB    Y_F
0004                1002     ?C0029:
                    1003     
                    1004                             
0004 E500     F     1005             MOV     A,n+01H
0006 4500     F     1006             ORL     A,n
0008 6023           1007             JZ      ?C0033
                    1008     
                    1009                             
000A C3             1010             CLR     C