Angka Dan Bukan Angka

;================== ;ANGKA DAN BUKAN ANGKA ;ANGKA = 39H ;BUKAN ANGKA = 30H ;================== CODE_SEG SEGMENT ASSUME CS:CODE_SEG ORG 100H START: JMP MULAI TEXT_INPUT DB 'INPUT TOMBOL=$' TEXT_ANGKA DB 13,10,'INPUT=ANGKA$' TEXT_BUKAN_ANGKA DB 13,10,'INPUT=BUKAN ANGKA$' MULAI: MOV DX,OFFSET TEXT_INPUT MOV AH,09H INT 21H MOV AH,01H INT 21H CMP AL,30H ;CMP AL,'0' JB TAMPIL1 CMP AL,39H JA TAMPIL1 MOV DX,OFFSET TEXT_ANGKA MOV AH,09H INT 21H INT 20H TAMPIL1: MOV DX,OFFSET TEXT_BUKAN_ANGKA MOV AH,09H INT 21H INT 20H CODE_SEG ENDS END START