Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $ADR 0000h;
- LDA 0AF1h;
- RRC;
- RRC;
- PUSH PSW;
- RRC;
- ANI 00000111b;
- ADD A;
- LXI H, 0b00h;
- MOV L, A; в HL регистр с адресом операнда или смещением
- MOV E, M;
- INX H
- MOV D, M; в DE адрес операнда или смещение
- ;MOV A, B;
- POP PSW;
- ;RRC;
- ;CPI 0
- JNC AUTO_DEC
- LXI B, 0B0Ah; тут лежит база
- LDAX B;
- MOV L, A;
- INX B;
- LDAX B;
- MOV H, A; в HL База
- mov A, L;
- ADD E;
- MOV E,A;
- JNC notOver
- inr D;
- notOver:
- MOV A, H;
- ADD D;
- MOV D, A; теперь в DC адр операнда;
- LDAX D;
- DCR A;
- PUSH PSW
- STAX D;
- POP PSW
- JP myOut
- INX D;
- LDAX D;
- DCR A;
- STAX D;
- JMP myOut
- AUTO_DEC:
- LDAX D;
- DCR A;
- PUSH PSW
- STAX D;
- POP PSW
- JP no_z
- INX D;
- LDAX D;
- DCR A;
- STAX D;
- no_z:
- DCX H;
- MOV A, M;
- DCR A;
- MOV M, A;
- JP myOut
- INX H;
- MOV A, M;
- DCR A;
- MOV M, A;
- JMP myOut
- myOut:
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement