Файл z.Lst

1 ;PROGRAM Zaidyllin;

2 ;R5-ARGUMENT;

3 ;R6-SOSTOJANIE;

4 ;R7-V-FUNK;

5 ;----------------;

6

7 0000 ORG 000H

8

9 0000 04 0A JMP RES

10

11 000A ORG 00AH

12

13 000A B8 10 RES: MOV R0,#16 ;STR SOS 1

14 000C B0 01 MOV @R0,#1

15 000E 18 INC R0

16 000F B0 01 MOV @R0,#1

17 0011 18 INC R0

18 0012 B0 01 MOV @R0,#1

19 0014 18 INC R0

20 0015 B0 02 MOV @R0,#2

21 0017 18 INC R0

22 0018 B0 01 MOV @R0,#1

23 001A 18 INC R0

24 001B B0 06 MOV @R0,#6

25 001D 18 INC R0

26 001E B0 03 MOV @R0,#3

27 0020 18 INC R0

28 0021 B0 01 MOV @R0,#1

29

30 0023 B8 18 MOV R0,#24 ;STR SOS 2

31 0025 B0 03 MOV @R0,#3

32 0027 18 INC R0

33 0028 B0 02 MOV @R0,#2

34 002A 18 INC R0

35 002B B0 02 MOV @R0,#2

36 002D 18 INC R0

37 002E B0 02 MOV @R0,#2

38 0030 18 INC R0

39 0031 B0 01 MOV @R0,#1

40 0033 18 INC R0

41 0034 B0 02 MOV @R0,#2

42 0036 18 INC R0

43 0037 B0 05 MOV @R0,#5

44 0039 18 INC R0

45 003A B0 06 MOV @R0,#6

46

47 003C B8 20 MOV R0,#32 ;STR SOS 3

48 003E B0 03 MOV @R0,#3

49 0040 18 INC R0

50 0041 B0 02 MOV @R0,#2

51 0043 18 INC R0

52 0044 B0 03 MOV @R0,#3

53 0046 18 INC R0

54 0047 B0 04 MOV @R0,#4

55 0049 18 INC R0

56 004A B0 03 MOV @R0,#3

57 004C 18 INC R0

58 004D B0 03 MOV @R0,#3

59 004F 18 INC R0

60 0050 B0 03 MOV @R0,#3

61 0052 18 INC R0

62 0053 B0 05 MOV @R0,#5

63

64 0055 B8 28 MOV R0,#40 ;STR SOS 4

65 0057 B0 04 MOV @R0,#4

66 0059 18 INC R0

67 005A B0 05 MOV @R0,#5

68 005C 18 INC R0

69 005D B0 06 MOV @R0,#6

70 005F 18 INC R0

71 0060 B0 04 MOV @R0,#4

72 0062 18 INC R0

73 0063 B0 03 MOV @R0,#3

74 0065 18 INC R0

75 0066 B0 02 MOV @R0,#2

76 0068 18 INC R0

77 0069 B0 04 MOV @R0,#4

78 006B 18 INC R0

79 006C B0 04 MOV @R0,#4

80

81 006E B8 30 MOV R0,#48 ;STR SOS 5

82 0070 B0 04 MOV @R0,#4

83 0072 18 INC R0

84 0073 B0 05 MOV @R0,#5

85 0075 18 INC R0

86 0076 B0 06 MOV @R0,#6

87 0078 18 INC R0

88 0079 B0 05 MOV @R0,#5

89 007B 18 INC R0

90 007C B0 01 MOV @R0,#1

91 007E 18 INC R0

92 007F B0 02 MOV @R0,#2

93 0081 18 INC R0

94 0082 B0 05 MOV @R0,#5

95 0084 18 INC R0

96 0085 B0 05 MOV @R0,#5

97

98 0087 B8 38 MOV R0,#56 ;STR SOS 6

99 0089 B0 06 MOV @R0,#6

100 008B 18 INC R0

101 008C B0 06 MOV @R0,#6

102 008E 18 INC R0

103 008F B0 06 MOV @R0,#6

104 0091 18 INC R0

105 0092 B0 05 MOV @R0,#5

106 0094 18 INC R0

107 0095 B0 01 MOV @R0,#1

108 0097 18 INC R0

109 0098 B0 06 MOV @R0,#6

110 009A 18 INC R0

111 009B B0 06 MOV @R0,#6

112 009D 18 INC R0

113 009E B0 06 MOV @R0,#6

114 ;----------;

115 00A0 B8 09 MOV R0,#9 ;V-FUNK

116 00A2 B0 00 MOV @R0,#0

117 00A4 18 INC R0

118 00A5 B0 08 MOV @R0,#8

119 00A7 18 INC R0

120 00A8 B0 07 MOV @R0,#7

121 00AA 18 INC R0

122 00AB B0 0F MOV @R0,#15

123 00AD 18 INC R0

124 00AE B0 03 MOV @R0,#3

125 00B0 18 INC R0

126 00B1 B0 06 MOV @R0,#6

127 ;----------;

128 00B3 BD 00 MOV R5,#0 ;INIT

129 00B5 BE 01 MOV R6,#1

130 00B7 BF 0F MOV R7,#15

131 ;----------;

132 00B9 00 START: NOP

133 00BA FE MOV A,R6

134 00BB AA MOV R2,A

135 00BC 23 08 MOV A,#8

136 ;----------;SOST

137 00BE 03 08 ST1: ADD A,#8

138 00C0 EA BE DJNZ R2,ST1

139 00C2 AA MOV R2,A

140 00C3 FD MOV A,R5

141 00C4 6A ADD A,R2

142 00C5 A8 MOV R0,A

143 00C6 F0 MOV A,@R0

144 00C7 AE MOV R6,A

145 ;-----------; V-FUNK

146 00C8 03 08 ADD A,#8

147 00CA A8 MOV R0,A

148 00CB F0 MOV A,@R0

149 00CC AF MOV R7,A

150 ;-----------; I/O

151 00CD 3A OUTL P2,A

152 00CE 23 FF MOV A,#0FFH

153 00D0 39 OUTL P1,A

154 00D1 09 IN A,P1

155 00D2 AD MOV R5,A

156 00D3 04 B9 JMP START

157 ;-----------;

20