inputoutput.asm

十六进制转化为二进制

CRLF MACRO
   ; MOV DL,0DH
  ;  MOV AH,02H
  ;  INT 21H
    MOV DL,0AH
    MOV AH,02H
   INT 21H
     ENDM

DATASG SEGMENT
STR DB 5
    ;DB 5 DUP(?)
DATASG ENDS
CODESG SEGMENT
MAIN PROC FAR
     ASSUME CS:CODESG,DS:DATASG
     MOV AX,DATASG
     MOV DS,AX
    
     LEA DX,STR
     MOV AH,10
      INT 21H
CRLF
  MOV BP,2
START:
      CMP [STR+BP] ,'F'
JA EXIT
CMP [STR+BP+1] ,'F'
JA EXIT
CMP [STR+BP+2] ,'F'
JA EXIT
CMP [STR+BP+3] ,'F'
JA EXIT
MOV BL,BYTE PTR[STR+BP]
SUB BL,30H 
CMP BL,0AH 
JC NEXT
SUB BL,07H
NEXT:
MOV BH,BYTE PTR[STR+BP+1]
SUB BH,30H 
CMP BH,0AH  
JC YW
SUB BH,07H

YW:MOV CL,4
SHL BL,CL
   ;SHL BL,1
;SHL BL,1
;SHL BL,1
OR BL,BH

MOV CX,8
L1:SHL BL,1
JNC LING
YI:MOV DL,31H
   MOV AH,02H
  INT 21H
  JMP L2
LING:MOV DL,30H
    MOV AH,02H
    INT 21H
 L2:LOOP L1  
 NEXT1:ADD BP,02H
CMP BP,5
JB START
EXIT:
MOV AX,4C00H
INT 21H     
     CODESG ENDS
     
END MAIN