yazdmich

Untitled

Apr 24th, 2014
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.57 KB | None | 0 0
  1. CLO ; Close opened windows
  2. MOV AL,0 ; Initilize AL
  3. MOV CL,C0 ; Initilize VDU counter
  4. IN: ; I/O loop start label
  5. CMP CL,00 ; Check that VDU is not full. If full, jump to end
  6. JZ END ; -^- ;
  7. IN 00 ; Input character from keyboard, store in AL
  8. CMP AL,7A ; Is the character 'z'? If yes, jump to end
  9. JZ END ; -^- ;
  10. CMP AL,5A ; Is the character 'Z'? If yes, jump to end
  11. JZ END ; -^- ;
  12. MOV [CL],AL ; Move character from AL to VDU location at CL
  13. INC CL ; Move to next VDU location
  14. JMP IN ; Move to top of I/O loop
  15. END: ; End label
  16. END ; End program
Advertisement
Add Comment
Please, Sign In to add comment