5bd
TITLE Ex5.ASM
;======= H„mta HEX-tecken fr†n 'Buffer' och skriv ut dem p†
;======= sk„rmen efter konvertering HEX -> ASCII
;---------------------------------------------------------------------
CSEG    SEGMENT
        ASSUME CS:CSEG,DS:CSEG

        ORG 100H
Start:  jmp begin

;---------------------------------------------------------------------
buffer  db 1,2,3,4
;---------------------------------------------------------------------
;======= H„mta tecken fr†n buffer och skriv ut tecknet

FromBuffer PROC NEAR

        mov cx,00h              ;R„knare nollst„lles
        mov di,OFFSET buffer

Next_Char:
        mov al,[di]             ;1:a tecknet h„mtas
        add al,30h              ;HEX -> ASCII
        mov dl,al               ;Skriv
        mov ah,02h              ;WriteChar
        int 21h

        inc di                  ;™ka pekare
        inc cx                  ;™ka r„knare
        cmp cx,04h              ;Alla tecken h„mtade?
        jz  Avsluta             ;Om s† sluta h„mta

        jmp Next_Char           ;Annars h„mta n„sta tecken

Avsluta:
        ret

FromBuffer ENDP
;=======================================================================
Begin:
        call FromBuffer
        ret                     ;-> DOS
;------------------------------------------------------------------------
CSEG    ENDS
END     Start
;========================================================================
.

0