648 lines
13 KiB
NASM
648 lines
13 KiB
NASM
; Tests for opcode range 0xF0-FF
|
|
; ---------------------------------
|
|
|
|
|
|
; 0xF4 - HALT
|
|
; ############################################################
|
|
|
|
TEST_F4_0:
|
|
sti
|
|
mov ax,0001
|
|
hlt ; Two halts in a row
|
|
hlt ; Should wait for two interrupts
|
|
|
|
|
|
; 0xF5 - CMC
|
|
; ############################################################
|
|
|
|
TEST_F5_0:
|
|
stc ; Set Carry Flag
|
|
cmc ; Compliment the Carry Flag
|
|
jc FAIL_F5_0 ; Carry should not be set
|
|
|
|
clc ; Clear Carry Flag
|
|
cmc ; Compliment the Carry Flag
|
|
jnc FAIL_F5_0 ; Carry should be set
|
|
jmp TEST_F6_0
|
|
|
|
|
|
FAIL_F5_0:
|
|
mov dx,00035 ; Print a 5
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
; 0xF6
|
|
; ############################################################
|
|
|
|
TEST_F6_0: ; TEST REG8/MEM8 , IMM8
|
|
mov dh,05A
|
|
test dh,0A5
|
|
jne FAIL_F6_0
|
|
|
|
mov byte[00050],081
|
|
test byte [00050],018
|
|
jne FAIL_F6_0
|
|
|
|
mov bl,011
|
|
test bl,011
|
|
je FAIL_F6_0
|
|
|
|
mov byte[00050],055
|
|
test byte [00050],055
|
|
je FAIL_F6_0
|
|
jmp TEST_F6_1
|
|
|
|
FAIL_F6_0:
|
|
mov dx,00036 ; Print a 6
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
TEST_F6_1: ; NOT REG8/MEM8
|
|
mov bl,055
|
|
not bl
|
|
cmp bl,0AA
|
|
jne FAIL_F6_1
|
|
|
|
mov byte[00050],033
|
|
not byte[00050]
|
|
cmp byte[00050],0CC
|
|
jne FAIL_F6_1
|
|
jmp TEST_F6_2
|
|
|
|
FAIL_F6_1:
|
|
mov dx,00036 ; Print a 6
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
|
|
TEST_F6_2: ; NEG REG8/MEM8
|
|
mov bl,055
|
|
neg bl
|
|
cmp bl,0AB
|
|
jne FAIL_F6_2
|
|
|
|
mov byte[00050],033
|
|
neg byte[00050]
|
|
cmp byte[00050],0CD
|
|
jne FAIL_F6_2
|
|
|
|
clc
|
|
mov dh,022 ; Carry should be set
|
|
neg dh
|
|
jnc FAIL_F6_2
|
|
|
|
mov dh,080 ; Overflow should be set
|
|
neg dh
|
|
jno FAIL_F6_2
|
|
mov dh,001 ; Overflow should NOT be set
|
|
neg dh
|
|
jo FAIL_F6_2
|
|
|
|
mov dh,0EE ; Parity should be set
|
|
neg dh
|
|
jnp FAIL_F6_2
|
|
mov dh,055 ; Parity should NOT be set
|
|
neg dh
|
|
jp FAIL_F6_2
|
|
|
|
mov dh,055 ; Sign should be set
|
|
neg dh
|
|
jns FAIL_F6_2
|
|
mov dh,0F5 ; Sign should NOT be set
|
|
neg dh
|
|
js FAIL_F6_2
|
|
|
|
mov dh,000 ; Zero should be set
|
|
neg dh
|
|
jnz FAIL_F6_2
|
|
mov dh,080 ; Zero should NOT be set
|
|
neg dh
|
|
jz FAIL_F6_2
|
|
jmp TEST_F6_3
|
|
|
|
FAIL_F6_2:
|
|
mov dx,00036 ; Print a 6
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
|
|
TEST_F6_3: ; MUL REG8/MEM8
|
|
mov ax,00000
|
|
mov cx,01111
|
|
mov bx,00000
|
|
mov dx,00000
|
|
L_F6_0:
|
|
mul cl
|
|
add bx,ax
|
|
inc dl
|
|
mov al,dl
|
|
mov ah,000
|
|
loop L_F6_0
|
|
cmp bx,01C30
|
|
jne FAIL_F6_3
|
|
jmp TEST_F6_4
|
|
|
|
FAIL_F6_3:
|
|
mov dx,00036 ; Print a 6
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
|
|
TEST_F6_4: ; IMUL REG8/MEM8
|
|
mov ax,00000
|
|
mov cx,01111
|
|
mov bx,00000
|
|
mov dx,00000
|
|
L_F6_1:
|
|
imul cl
|
|
add bx,ax
|
|
inc dl
|
|
mov al,dl
|
|
mov ah,000
|
|
loop L_F6_1
|
|
cmp bx,09C30
|
|
jne FAIL_F6_4
|
|
jmp TEST_F6_5
|
|
|
|
FAIL_F6_4:
|
|
mov dx,00036 ; Print a 6
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
TEST_F6_5: ; DIV REG8/MEM8
|
|
mov ax,000FF
|
|
mov cx,000FF
|
|
mov bx,00000
|
|
L_F6_2:
|
|
cmp cl,000
|
|
je DONE_F6_5
|
|
div cl
|
|
add bx,ax
|
|
mov ax,000FF
|
|
loop L_F6_2
|
|
DONE_F6_5:
|
|
cmp bx,0C8B1
|
|
jne FAIL_F6_5
|
|
jmp TEST_F6_6
|
|
|
|
FAIL_F6_5:
|
|
mov dx,00036 ; Print a 6
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
TEST_F6_6: ; IDIV REG8/MEM8
|
|
mov ax,0007F
|
|
mov cx,0007F
|
|
mov bx,00000
|
|
L_F6_3:
|
|
cmp cl,000
|
|
je DONE_F6_6
|
|
idiv cl
|
|
add bx,ax
|
|
mov ax,0007F
|
|
loop L_F6_3
|
|
DONE_F6_6:
|
|
cmp bx,0237D
|
|
jne FAIL_F6_6
|
|
jmp TEST_F7_0
|
|
|
|
FAIL_F6_6:
|
|
mov dx,00036 ; Print a 6
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
|
|
; 0xF7
|
|
; ############################################################
|
|
|
|
TEST_F7_0: ; TEST REG16/MEM16 , IMM16
|
|
mov dx,0115A
|
|
test dx,022A5
|
|
jne FAIL_F7_0
|
|
|
|
mov word[00050],01181
|
|
test word [00050],02218
|
|
jne FAIL_F7_0
|
|
|
|
mov bx,03311
|
|
test bx,03311
|
|
je FAIL_F7_0
|
|
|
|
mov word[00050],05555
|
|
test word [00050],05555
|
|
je FAIL_F7_0
|
|
jmp TEST_F7_1
|
|
|
|
FAIL_F7_0:
|
|
mov dx,00037 ; Print a 7
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
|
|
TEST_F7_1: ; NOT REG16/MEM16
|
|
mov bx,05555
|
|
not bx
|
|
cmp bx,0AAAA
|
|
jne FAIL_F7_1
|
|
|
|
mov word[00050],03333
|
|
not word[00050]
|
|
cmp word[00050],0CCCC
|
|
jne FAIL_F7_1
|
|
jmp TEST_F7_2
|
|
|
|
FAIL_F7_1:
|
|
mov dx,00037 ; Print a 7
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
|
|
TEST_F7_2: ; NEG REG16/MEM16
|
|
mov bx,05555
|
|
neg bx
|
|
cmp bx,0AAAB
|
|
jne FAIL_F7_2
|
|
|
|
mov word[00050],01234
|
|
neg word[00050]
|
|
cmp word[00050],0EDCC
|
|
jne FAIL_F7_2
|
|
|
|
clc
|
|
mov dx,0789A ; Carry should be set
|
|
neg dx
|
|
jnc FAIL_F7_2
|
|
|
|
mov dx,08000 ; Overflow should be set
|
|
neg dx
|
|
jno FAIL_F7_2
|
|
mov dx,00001 ; Overflow should NOT be set
|
|
neg dx
|
|
jo FAIL_F7_2
|
|
|
|
mov dx,000EE ; Parity should be set
|
|
neg dx
|
|
jnp FAIL_F7_2
|
|
mov dx,00055 ; Parity should NOT be set
|
|
neg dx
|
|
jp FAIL_F7_2
|
|
|
|
mov dx,00055 ; Sign should be set
|
|
neg dx
|
|
jns FAIL_F7_2
|
|
mov dx,0FFF5 ; Sign should NOT be set
|
|
neg dx
|
|
js FAIL_F7_2
|
|
|
|
mov dx,00000 ; Zero should be set
|
|
neg dx
|
|
jnz FAIL_F7_2
|
|
mov dx,00080 ; Zero should NOT be set
|
|
neg dx
|
|
jz FAIL_F7_2
|
|
jmp TEST_F7_3
|
|
|
|
FAIL_F7_2:
|
|
mov dx,00037 ; Print a 7
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
TEST_F7_3: ; MUL REG16/MEM16
|
|
mov ax,00000
|
|
mov cx,0FFFF
|
|
mov bx,00000
|
|
mov dx,00000
|
|
L_F7_0:
|
|
mov ax,cx
|
|
not ax
|
|
mul cx
|
|
add bx,ax
|
|
add bx,dx
|
|
loop L_F7_0
|
|
cmp bx,0AAAC
|
|
jne FAIL_F7_3
|
|
jmp TEST_F7_4
|
|
|
|
FAIL_F7_3:
|
|
mov dx,00037 ; Print a 7
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
|
|
TEST_F7_4: ; IMUL REG16/MEM16
|
|
mov ax,00000
|
|
mov cx,0FFFF
|
|
mov bx,00000
|
|
mov dx,00000
|
|
L_F7_1:
|
|
mov ax,cx
|
|
not ax
|
|
imul cx
|
|
add bx,ax
|
|
add bx,dx
|
|
loop L_F7_1
|
|
cmp bx,02AAC
|
|
jne FAIL_F7_4
|
|
jmp TEST_F7_5
|
|
|
|
FAIL_F7_4:
|
|
mov dx,00037 ; Print a 7
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
TEST_F7_5: ; DIV REG16/MEM16
|
|
mov dx,01234
|
|
mov ax,05678
|
|
mov cx,0ABCD
|
|
div cx
|
|
cmp ax,01b20
|
|
jne FAIL_F7_5
|
|
cmp dx,03DD8
|
|
jne FAIL_F7_5
|
|
|
|
mov dx,00000
|
|
mov ax,0FACE
|
|
mov cx,00055
|
|
div cx
|
|
cmp ax,02F3
|
|
jne FAIL_F7_5
|
|
cmp dx,0001F
|
|
jne FAIL_F7_5
|
|
|
|
mov dx,00000
|
|
mov ax,00000
|
|
mov cx,00055
|
|
div cx
|
|
cmp ax,00000
|
|
jne FAIL_F7_5
|
|
cmp dx,00000
|
|
jne FAIL_F7_5
|
|
|
|
; IDIV REG16/MEM16
|
|
mov dx,01234
|
|
mov ax,05678
|
|
mov cx,0ABCD
|
|
idiv cx
|
|
cmp ax,0C8A7
|
|
jne FAIL_F7_5
|
|
cmp dx,01BBD
|
|
jne FAIL_F7_5
|
|
|
|
mov dx,00000
|
|
mov ax,0FACE
|
|
mov cx,00055
|
|
idiv cx
|
|
cmp ax,002F3
|
|
jne FAIL_F7_5
|
|
cmp dx,0001F
|
|
jne FAIL_F7_5
|
|
|
|
mov dx,00000
|
|
mov ax,00000
|
|
mov cx,00055
|
|
idiv cx
|
|
cmp ax,00000
|
|
jne FAIL_F7_5
|
|
cmp dx,00000
|
|
jne FAIL_F7_5
|
|
|
|
jmp TEST_FE_0
|
|
|
|
|
|
FAIL_F7_5:
|
|
mov dx,00037 ; Print a 7
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
; 0xFE
|
|
; ############################################################
|
|
|
|
TEST_FE_0: ; INC REG8/MEM8
|
|
mov dh,044
|
|
inc dh
|
|
cmp dh,045
|
|
jne FAIL_FE_0
|
|
|
|
mov byte[00050],033
|
|
inc byte[00050]
|
|
cmp byte[00050],034
|
|
jne FAIL_FE_0
|
|
|
|
mov al,07F ; Overflow should be set
|
|
inc al
|
|
jno FAIL_FE_0
|
|
|
|
mov al,044 ; Overflow should NOT be set
|
|
inc al
|
|
jo FAIL_FE_0
|
|
|
|
mov al,0F3 ; Sign should be set
|
|
inc al
|
|
jns FAIL_FE_0
|
|
|
|
mov al,044 ; Sign should NOT be set
|
|
inc al
|
|
js FAIL_FE_0
|
|
|
|
mov al,0FF ; Zero should be set
|
|
inc al
|
|
jnz FAIL_FE_0
|
|
|
|
mov al,044 ; Zero should NOT be set
|
|
inc al
|
|
jz FAIL_FE_0
|
|
|
|
mov al,011 ; Parity should be set
|
|
inc al
|
|
jnp FAIL_FE_0
|
|
|
|
mov al,012 ; Parity should NOT be set
|
|
inc al
|
|
jp FAIL_FE_0
|
|
jmp TEST_FF_0
|
|
|
|
FAIL_FE_0:
|
|
mov dx,00045 ; Print a E
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
|
|
TEST_FE_1: ; DEC REG8/MEM8
|
|
mov dh,044
|
|
dec dh
|
|
cmp dh,043
|
|
jne FAIL_FE_1
|
|
|
|
mov byte[00050],033
|
|
dec byte[00050]
|
|
cmp byte[00050],032
|
|
jne FAIL_FE_1
|
|
|
|
mov al,080 ; Overflow should be set
|
|
dec al
|
|
jno FAIL_FE_1
|
|
|
|
mov al,044 ; Overflow should NOT be set
|
|
dec al
|
|
jo FAIL_FE_1
|
|
|
|
mov al,0F3 ; Sign should be set
|
|
dec al
|
|
jns FAIL_FE_1
|
|
|
|
mov al,044 ; Sign should NOT be set
|
|
dec al
|
|
js FAIL_FE_1
|
|
|
|
mov al,001 ; Zero should be set
|
|
dec al
|
|
jnz FAIL_FE_1
|
|
|
|
mov al,044 ; Zero should NOT be set
|
|
dec al
|
|
jz FAIL_FE_1
|
|
|
|
mov al,013 ; Parity should be set
|
|
dec al
|
|
jnp FAIL_FE_1
|
|
|
|
mov al,014 ; Parity should NOT be set
|
|
dec al
|
|
jp FAIL_FE_1
|
|
jmp TEST_FF_0
|
|
|
|
FAIL_FE_1:
|
|
mov dx,00045 ; Print a E
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
; ############################################################
|
|
|
|
TEST_FF_0: ; INC MEM16
|
|
mov word[00050],03333
|
|
inc word[00050]
|
|
cmp word[00050],03334
|
|
jne FAIL_FF_0
|
|
|
|
mov word[00050],07FFF ; Overflow should be set
|
|
inc word[00050]
|
|
jno FAIL_FF_0
|
|
|
|
mov word[00050],00044 ; Overflow should NOT be set
|
|
inc word[00050]
|
|
jo FAIL_FF_0
|
|
|
|
mov word[00050],07FFF ; Sign should be set
|
|
inc word[00050]
|
|
jns FAIL_FF_0
|
|
|
|
mov word[00050],00044 ; Sign should NOT be set
|
|
inc word[00050]
|
|
js FAIL_FF_0
|
|
|
|
mov word[00050],0FFFF ; Zero should be set
|
|
inc word[00050]
|
|
jnz FAIL_FF_0
|
|
|
|
mov word[00050],00044 ; Zero should NOT be set
|
|
inc word[00050]
|
|
jz FAIL_FF_0
|
|
|
|
mov word[00050],00011 ; Parity should be set
|
|
inc word[00050]
|
|
jnp FAIL_FF_0
|
|
|
|
mov word[00050],00012 ; Parity should NOT be set
|
|
inc word[00050]
|
|
jp FAIL_FF_0
|
|
jmp TEST_FF_1
|
|
|
|
FAIL_FF_0:
|
|
mov dx,00046 ; Print a F
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
TEST_FF_1: ; DEC MEM16
|
|
mov word[00050],03333
|
|
dec word[00050]
|
|
cmp word[00050],03332
|
|
jne FAIL_FF_1
|
|
|
|
mov word[00050],08000 ; Overflow should be set
|
|
dec word[00050]
|
|
jno FAIL_FF_1
|
|
|
|
mov word[00050],00044 ; Overflow should NOT be set
|
|
dec word[00050]
|
|
jo FAIL_FF_1
|
|
|
|
mov word[00050],0FFF3 ; Sign should be set
|
|
dec word[00050]
|
|
jns FAIL_FF_1
|
|
|
|
mov word[00050],00044 ; Sign should NOT be set
|
|
dec word[00050]
|
|
js FAIL_FF_1
|
|
|
|
mov word[00050],00001 ; Zero should be set
|
|
dec word[00050]
|
|
jnz FAIL_FF_1
|
|
|
|
mov word[00050],00044 ; Zero should NOT be set
|
|
dec word[00050]
|
|
jz FAIL_FF_1
|
|
|
|
mov word[00050],00013 ; Parity should be set
|
|
dec word[00050]
|
|
jnp FAIL_FF_1
|
|
|
|
mov word[00050],00014 ; Parity should NOT be set
|
|
dec word[00050]
|
|
jp FAIL_FF_1
|
|
jmp TEST_FF_2
|
|
|
|
FAIL_FF_1:
|
|
mov dx,00046 ; Print a F
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
TEST_FF_2: ; PUSH MEM16
|
|
mov word[00050],0ABCD
|
|
push word[00050]
|
|
pop ax
|
|
cmp ax,0ABCD
|
|
jne FAIL_FF_2
|
|
jmp Z_END
|
|
|
|
FAIL_FF_2:
|
|
mov dx,00046 ; Print a F
|
|
mov ax,00202
|
|
int 021
|
|
|
|
|
|
; xxxxxxxxxxxxxxxxxxxxxxx
|
|
; End
|
|
; xxxxxxxxxxxxxxxxxxxxxxx
|
|
Z_END:
|
|
mov ax,00000 ; DOS Commtest=Exit
|
|
int 021
|
|
|