381 lines
5.8 KiB
NASM
381 lines
5.8 KiB
NASM
.model tiny
|
|
.486
|
|
smart
|
|
.code
|
|
|
|
org 0h
|
|
|
|
include ..\include\mem.h
|
|
|
|
start:
|
|
header exe <,1,0,,,offset imports,,>
|
|
|
|
realstart:
|
|
mov ax,0305h
|
|
mov bx,0008h
|
|
int 16h
|
|
mov ah,28h
|
|
int 47H
|
|
mov ax,0002
|
|
int 47H
|
|
mov ah,2
|
|
int 47h
|
|
mov ah,43
|
|
int 47h
|
|
xor bp,bp
|
|
push cs
|
|
push cs
|
|
pop es
|
|
pop ds
|
|
Adres:
|
|
mov di,offset infos
|
|
mov ah,34
|
|
int 47h
|
|
dec infos
|
|
push cs
|
|
pop es
|
|
mov cx,sect
|
|
mov di,offset buffer
|
|
mov ah,0h
|
|
int 48h
|
|
jnc noerror
|
|
errtr:
|
|
mov ah,25
|
|
mov bl,infos
|
|
xor bh,bh
|
|
int 47h
|
|
push offset errordisk
|
|
call [print]
|
|
mov ax,0
|
|
int 16h
|
|
noerror:
|
|
adres2:
|
|
mov di,offset infos
|
|
mov ah,34
|
|
int 47h
|
|
dec byte ptr [di]
|
|
mov al,[di+1]
|
|
sub al,16
|
|
mov bl,al
|
|
shr al,2
|
|
mov [di+1],al
|
|
and bl,11b
|
|
mov [di+2],bl
|
|
mov al,[di+7]
|
|
cmp al,oldmode
|
|
je noinit
|
|
mov ah,2
|
|
int 47h
|
|
mov oldmode,al
|
|
noinit:
|
|
mov bx,0
|
|
mov ah,25
|
|
int 47h
|
|
mov bh,infos
|
|
mov di,bp
|
|
lines:
|
|
xor edx,edx
|
|
mov dx,di
|
|
push edx
|
|
mov dx,sect
|
|
push edx
|
|
push offset spaces
|
|
call [print]
|
|
mov al,infos+1
|
|
mov si,di
|
|
doaline:
|
|
push dword ptr [di+offset buffer]
|
|
push 8
|
|
call [showhex]
|
|
push ' '
|
|
call [showchar]
|
|
inc di
|
|
dec al
|
|
jnz doaline
|
|
mov di,si
|
|
push offset spaces2
|
|
call [print]
|
|
mov al,infos+1
|
|
doaline2:
|
|
push word ptr [di+offset buffer]
|
|
call [showchar]
|
|
inc di
|
|
dec al
|
|
jnz doaline2
|
|
dec bh
|
|
je outes
|
|
cmp byte ptr infos+2,0
|
|
je lines
|
|
mov ah,6
|
|
int 47h
|
|
jmp lines
|
|
outes:
|
|
mov bh,0
|
|
mov bl,infos
|
|
mov ah,25
|
|
int 47h
|
|
push offset menu
|
|
call [print]
|
|
waitkey:
|
|
mov ax,0
|
|
int 16h
|
|
cmp ax,3B00h
|
|
jne suit
|
|
cmp bp,8*16
|
|
jae waitkey
|
|
add bp,16
|
|
jmp adres2
|
|
suit:
|
|
cmp ax,3C00h
|
|
jne suit2
|
|
cmp bp,0
|
|
je waitkey
|
|
sub bp,16
|
|
jmp adres2
|
|
suit2:
|
|
cmp ax,3D00h
|
|
jne suit3
|
|
cmp sect,2880
|
|
ja waitkey
|
|
inc sect
|
|
jmp adres
|
|
suit3:
|
|
cmp ax,3E00h
|
|
jne suit4
|
|
cmp sect,0
|
|
je waitkey
|
|
dec sect
|
|
jmp adres
|
|
suit4:
|
|
cmp ax,3F00h
|
|
jne suit5
|
|
jmp adres2
|
|
suit5:
|
|
cmp ax,4000h
|
|
jne suit6
|
|
mov cx,sect
|
|
mov di,offset buffer
|
|
mov ah,1
|
|
int 48h
|
|
jnc waitkey
|
|
jmp errtr
|
|
suit6:
|
|
cmp ax,4100h
|
|
jne suit7
|
|
mov dword ptr [pope],'TIDE'
|
|
mov bh,0
|
|
mov bl,infos
|
|
mov ah,25
|
|
int 47h
|
|
push offset menu
|
|
call [print]
|
|
mov ax,0B800h
|
|
mov es,ax
|
|
mov xxyy2,3
|
|
mov xxyy,3
|
|
call calc1
|
|
call calc2
|
|
waitst:
|
|
mov ax,0
|
|
int 16h
|
|
cmp ah,41h
|
|
jne tre
|
|
mov dword ptr [pope],'WEIV'
|
|
push cs
|
|
pop ds
|
|
mov cx,sect
|
|
mov si,offset buffer
|
|
mov ah,1
|
|
int 48h
|
|
jnc adres
|
|
jmp errtr
|
|
tre:
|
|
cmp al,0
|
|
jne write
|
|
cmp ah,48h
|
|
jne tre1
|
|
cmp yy,0
|
|
je waitst
|
|
dec yy
|
|
jmp cursor
|
|
tre1:
|
|
cmp ah,50h
|
|
jne tre2
|
|
mov al,infos
|
|
dec al
|
|
xor ah,ah
|
|
cmp yy,ax
|
|
je waitst
|
|
inc yy
|
|
jmp cursor
|
|
tre2:
|
|
cmp ah,4Dh
|
|
jne tre4
|
|
cmp xx,15
|
|
je waitst
|
|
inc xx
|
|
jmp cursor
|
|
tre4:
|
|
cmp ah,4Bh
|
|
jne waitst
|
|
cmp xx,0
|
|
je waitst
|
|
dec xx
|
|
jmp cursor
|
|
write:
|
|
call AsciiHex2dec
|
|
cmp cl,15
|
|
ja waitst
|
|
call calc1
|
|
call calc2
|
|
mov byte ptr es:[bx],0112
|
|
mov es:[bx-1],al
|
|
writs:
|
|
mov ax,0
|
|
int 16H
|
|
mov ch,cl
|
|
call AsciiHex2dec
|
|
cmp cl,15
|
|
ja writs
|
|
shl ch,4
|
|
add ch,cl
|
|
mov es:[bx+1],al
|
|
mov es:[si-1],ch
|
|
mov ax,bx
|
|
call calc3
|
|
mov [bx],ch
|
|
inc xx
|
|
cmp xx,16
|
|
jne pasde
|
|
inc yy
|
|
mov xx,0h
|
|
pasde:
|
|
call calc1
|
|
call calc2
|
|
jmp waitst
|
|
|
|
cursor:
|
|
call calc1
|
|
call calc2
|
|
jmp waitst
|
|
suit7:
|
|
cmp ax,4200h
|
|
jne adres2
|
|
mov ah,29h
|
|
int 47H
|
|
retf
|
|
|
|
calc1:
|
|
push ax dx si
|
|
mov ax,xx
|
|
mov dx,xx
|
|
shl ax,2
|
|
shl dx,1
|
|
add ax,dx
|
|
add ax,27
|
|
mov bx,YY
|
|
mov dx,yy
|
|
shl bx,5
|
|
shl dx,7
|
|
add bx,dx
|
|
add bx,ax
|
|
mov byte ptr es:[bx],112
|
|
mov byte ptr es:[bx+2],112
|
|
mov si,xxyy
|
|
mov byte ptr es:[si],07
|
|
mov byte ptr es:[si+2],07
|
|
mov xxyy,bx
|
|
pop si dx ax
|
|
ret
|
|
|
|
calc2:
|
|
push ax bx dx
|
|
mov si,YY
|
|
mov dx,yy
|
|
shl si,5
|
|
shl dx,7
|
|
add si,dx
|
|
add si,2
|
|
mov dx,xx
|
|
shl dx,1
|
|
add si,dx
|
|
add si,127
|
|
mov byte ptr es:[si],112
|
|
mov bx,xxyy2
|
|
mov byte ptr es:[bx],07
|
|
mov xxyy2,si
|
|
pop dx bx ax
|
|
ret
|
|
|
|
calc3:
|
|
push dx
|
|
xor bx,bx
|
|
mov bx,xx
|
|
mov dx,yy
|
|
shl dx,4
|
|
add bx,dx
|
|
add bx,bp
|
|
add bx,offset buffer
|
|
pop dx
|
|
ret
|
|
|
|
asciihex2dec:
|
|
cmp al,'a'
|
|
jb nomin
|
|
cmp al,'f'
|
|
ja nomin
|
|
sub al,'a'-'A'
|
|
jmp ismaj
|
|
nomin:
|
|
cmp al,'A'
|
|
jb nomaj
|
|
cmp al,'F'
|
|
ja nomaj
|
|
ismaj:
|
|
mov cl,al
|
|
sub cl,'A'-10
|
|
jmp endt
|
|
nomaj:
|
|
mov cl,al
|
|
sub cl,'0'
|
|
endt:
|
|
ret
|
|
|
|
dep db ':',0
|
|
sect dw 0
|
|
xx dw 0
|
|
yy dw 0
|
|
xxyy dw 3
|
|
xxyy2 dw 3
|
|
|
|
errordisk db '\c74Une erreur est apparue sur le lecteur, appuyez sur une touche ',0
|
|
menu db '\c70Haut&Bas [F1/2] Secteur [F3/4] Charger/Sauver [F5/6] Mode [F7] Quit. [F8] '
|
|
pope db 'VUE ',0
|
|
spaces db '\c02%hW:%hW \c04| \c07',0
|
|
spaces2 db '\c04 | \c07',0
|
|
|
|
showbuffer db 35 dup (0FFh)
|
|
oldmode db 0
|
|
infos db 40 dup (0)
|
|
buffer db 2048 dup (0)
|
|
|
|
imports:
|
|
db "VIDEO.LIB::print",0
|
|
print dd 0
|
|
db "VIDEO.LIB::showhex",0
|
|
showhex dd 0
|
|
db "VIDEO.LIB::showchar",0
|
|
showchar dd 0
|
|
dw 0
|
|
|
|
|
|
end start
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|