Calcolatori elettronici - #205

.MODEL small
.STACK
.DATA

OPA DB ?
OPB DB ?
RIS DB ?

.CODE
.STARTUP

MOV CX, 8
MOV BL, 0
MOV DL, 0


GETBYTE:  MOV AH, 01H
          INT 21H
          CMP AL, 13D
          JE LESS8
          AND AL, 0FH
          SHL BL, 1
          ADD BL, AL
          LOOP GETBYTE

LESS8:    CMP DL, 0
          JE  SAVEOPA
          JMP SAVEOPB

SAVEOPA:  MOV OPA, BL
          MOV DL, 1
          MOV CX, 8
          MOV BL, 0
          JMP GETBYTE

SAVEOPB:  MOV OPB, BL

          MOV AL, OPA
          XOR AL, BL

          MOV RIS, AL

          NOT BL
          MOV AL, OPA
          AND AL, BL
          NOT AL

          OR RIS, AL

.EXIT
END