:
,
:
36-62
..
:
...
. .
2008
1
: , , ( ). 70.
LXI H,0100H; 0100
MVI B,46H;
LXI D,0200H;
M2: MOV A,M;
ANI 01H;
JZ M1; , 1
MOV A,M;
XCHG; ,
MOV M,A;
INX H;
XCHG
INX H;
DCRB;,
JNZ M2; ,
M3: LXI H,0100H;
MVI B,46H;
LXI D,0300H;
M5: MOV A,M;
ANI 01H;
JNZ M4; , 4
MOV A,M;
XCHG; ,
MOV M,A;
INX H;
XCHG
INX H;
DCR B; ,
JNZ M5; ,
HLT; ,
M1: INX H;
DCR B; ,
JNZ M2; , 2
JMP M3;
M4: INX H;
DCR B; ,
JNZ M5; , 5
HLT; ,
:
2
: , 70 , 100 200, .
LXI D,0200H;
M5: LXI H,0100H; 0100
MVI B,46H;
M1: MOV A,M;
DCR B;,
JZ M2; , 2
M3: INX H;
CMP M;
JZ M1; , 1
JC M1; , 1
DCR B;,
JNZ M3; ,
M2:CMP M;
JZ M4; , 4
DCX H;
JMP M2; 2
M4:MVI C,OO;
MOV M,C;
XCHG; H D
MOV M,A;
INX H;
XCHG; D
MOV A,E;
|
|
|
CPI 46H
JNZ M5; , 5
HLT;
3
: , 70 0150 .
MVI B, 46H;
M3:MVI D, 46H;
LXI H, 0150H;
M1:DCR D; ,
JZ M4; , 4
MOV A,M;
INX H;
SUB M;
JP M1; , 1
DCX H;
MOV A,M;
INX H;
MOV C,M;
MOV M,A;
DCX H;
MOV M,C;
INX H;
JMP M1; 1
M4:DCR B; 70
JZ M2;
JMP M3;
M2:HLT
4
: , 70 0150 2 , , .
LXI H,0150H;
MVI B,46H;
MVI E,00H; E
M3: MVI C,09H;
MOV A,M;
M1: RLC;
DCR C;,
JZ M2; , 2
JNC M1; , , 0 1, 0,
INX D; 1, 1
JMP M1; 1
M2:MOV A,M
DCX H
DCX H;
MOV M,A;
INX H;
INX H
INX H;
DCR B; ,
JNZ M3; ,
DCX H;
MOV M,E; ,
DCX H
MOV M,D
HLT;
:
5
: , 0100 0200. .
LXI SP,0401H; ,
LXI H,0100H;
LXI D,0200H;
MVI B,46H;
M1: MOV A,M; .
CMA;
XCHG;
MOV C,M;
MOV M,A;
MOV A,C;
CMA;
XCHG;
MOV M,A;
INX H;
INX D;
DCR B;,
JNZ M1; ,
MVI B,46H;
M5: LXI H,040FH;
PUSH B;
|
|
|
M6: MOV A,M;
DCR B; ,
JZ M3; , 3
DCX H;
JZ M6;
JNC M6; ,
DCX H;
DCR B; ,
JNZ M2; ,
INX H;
MOV D,M;
MOV M,A;
INX H;
M3: CMP M;
JZ M4; , 4
INX H;
JMP M3; 3
M4: MOV M,D;
LDA 0400H; 0400
DCR A;
STA 0400H; 0400
POP B;
JNZ M5; , 5
MVI B,46H;
M11: LXI H,060FH;
PUSH B;B→
M8: MOV A,M;
;
DCR B;,
JZ M7; , 7
DCX H;
M10: CMP M;
JZ M8; , 8
JNC M8; , 8
DCX H;
DCR B; ,
JNZ M10; ,
INX H;
MOV D,M;
MOV M,A;
INX H;
M7: CMP M;
JZ M9; , 9
INX H;
JMP M7;
M9: MOV M,D;
LDA 0400H; 0400
DCR A;
STA 0400H;
POP B;
JNZ M11;
HLT;
:
