8100 START:LXI H,8200
8103 MVI C,O5
8105 MVI A,00
8107 OUT C2
8109 MVI A,CC
810B OUT C2
810D MVI A,90
810F OUT C2
8111 L1:MOV A,M
8112 OUT CO
8114 INX H
8115 DCR D
8116 JNZ L1
8119 CALL 8500
811C MVI A,CC
811E OUT C2
8120 MVI A,90
8122 OUT C2
8123 MVI A,FF
8126 OUT C0
8127 OUT C0
8128 OUT C0
8129 OUT C0
812A OUT C0
812B OUT C0
812C CALL 8500
812F DCR C
8130 JMP START
8133 HLT
DELAY:
8500 LXI B,8004
8503 L2:MVI D,0F
8505 L1:NOP
8506 DCR D
8507 JNZ L1
850A DCR B
850B MOV A,C
850C ORA B
850D JNZ L2
8510 RET
No comments:
Post a Comment