Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $ADR 0000h
- LXI B, 400h; тут номер ячейки откуда
- LXI D, 800h; куда
- BEGIN:
- LDAX B; читаем значение из ячейки в А
- SHL A;
- JC ZERO ;
- ;число нечетное
- MVI A, 1;
- JMP STORE_NEW
- ZERO: ; число четное
- MVI A, 0;
- STORE_NEW:
- STAX D;
- ; проверяем, стоит ли в ВС адрес 2043
- MOV A, B;
- SUI 111b;
- JNZ NEXT_ITER
- MOV A, C;
- SUI 11111011b;
- JNZ NEXT_ITER
- JMP OUT; в ВС вдрес 2043, т.е. прошли по всем знач-ям
- ;если не по всем, то переходим к след. итерации
- NEXT_ITER:
- INX B;
- INX D;
- JMP BEGIN
- ; пустой выход из программы
- OUT:
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement