Testat 2 bestanden
This commit is contained in:
parent
d22365bf42
commit
b87fa8a100
@ -25,32 +25,50 @@ SEGM equ 90h
|
||||
|
||||
; 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
||||
segtext db 0x3F, 0x6, 0x5B, 0x4F, 0x66, 0x6D, 0x7D, 0x7, 0x7F, 0x6F, 0x77, 0xFF, 0x39, 0xBF, 0x79, 0x71
|
||||
res db 0x0
|
||||
|
||||
|
||||
jmp WDH
|
||||
|
||||
WDH: in ax, INPUT
|
||||
mov res, [ax]
|
||||
|
||||
mov bx, ax
|
||||
and ax, 00001111b;get second nibble
|
||||
out LED, ax;debug, output to leds
|
||||
;out LED, ax;debug, output to leds
|
||||
push ax;write result to stack
|
||||
|
||||
|
||||
mov ax, [res]
|
||||
mov ax, bx
|
||||
mov cl, 0x4
|
||||
sar ax, cl;shift right 4 times
|
||||
;and ax, 00001111b;
|
||||
out LED, ax;debug, output to leds
|
||||
push ax;write result to stack
|
||||
shr ax, cl;shift right 4 times
|
||||
|
||||
|
||||
pop ax;get from stack
|
||||
;out LED, ax;debug, output to leds
|
||||
pop bx;get from stack
|
||||
|
||||
sub ax, bx
|
||||
|
||||
out LED, ax;output to led
|
||||
|
||||
;right seven segment display
|
||||
push ax
|
||||
mov bx, segtext
|
||||
and ax, 0000000000001111b
|
||||
add bx, ax
|
||||
|
||||
mov al, [bx]
|
||||
|
||||
out SEGM, al;output to seven segment display
|
||||
|
||||
;left seven segment display
|
||||
pop ax;get from stack
|
||||
mov cl, 0x4
|
||||
shr ax, cl
|
||||
mov bx, segtext
|
||||
add bx, ax
|
||||
|
||||
mov al, [bx]
|
||||
out SEGM + 0x2, al
|
||||
|
||||
|
||||
jmp WDH
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user