feat: version bêta 1.3.2fr
This commit is contained in:
parent
2eee63e178
commit
9e47321c92
|
|
@ -0,0 +1,20 @@
|
|||
asm= lzasm /z/t
|
||||
lnk= elink
|
||||
|
||||
all: detect.lib video.lib str0.lib bmp.lib
|
||||
|
||||
.asm.obj:
|
||||
$(asm) $<
|
||||
|
||||
.obj.lib:
|
||||
$(lnk) $< $*.lib
|
||||
|
||||
clean:
|
||||
del *.obj
|
||||
del *.ce
|
||||
del *.bak
|
||||
del *.lib
|
||||
del *.com
|
||||
del *.bin
|
||||
del *.sys
|
||||
del *.err
|
||||
|
|
@ -0,0 +1,105 @@
|
|||
model tiny,stdcall
|
||||
p586N
|
||||
locals
|
||||
jumps
|
||||
codeseg
|
||||
option procalign:byte
|
||||
|
||||
include "..\include\mem.h"
|
||||
include "..\include\divers.h"
|
||||
include "..\include\bmp.h"
|
||||
|
||||
org 0h
|
||||
|
||||
start:
|
||||
header exe <"CE",1,0,0,offset exports,offset imports,,>
|
||||
|
||||
exporting
|
||||
declare showbmp
|
||||
declare loadbmppalet
|
||||
ende
|
||||
|
||||
importing
|
||||
use VIDEO,showpixel
|
||||
endi
|
||||
|
||||
;==========SHOWBMP=========
|
||||
;Affiche le BMP pointée par DS:%0 en %1, %2
|
||||
;<- DS:%0 BMP, %1 coordonnées X, %2 coordonnées Y
|
||||
;->
|
||||
;==========================
|
||||
PROC showbmp FAR
|
||||
ARG @pointer:word, @x:word, @y:word
|
||||
USES ax,bx,cx,dx,si,di
|
||||
mov si,[@pointer]
|
||||
cmp [word ptr (bmp_file si).bmp_filetype],"MB"
|
||||
jne @@errorshowing
|
||||
mov edi,[(bmp_file si).bmp_bitmapoffset]
|
||||
add di,400h
|
||||
add di,si
|
||||
xor ebx,ebx
|
||||
mov ecx,[(bmp_file si).bmp_height]
|
||||
mov edx,[(bmp_file si).bmp_width]
|
||||
;and dx,11111100b
|
||||
cmp edx,[(bmp_file si).bmp_width]
|
||||
;jae @@noadjust
|
||||
;add dx,4
|
||||
@@noadjust:
|
||||
sub edx,[(bmp_file si).bmp_width]
|
||||
@@bouclette:
|
||||
push bx cx
|
||||
add bx,[@x]
|
||||
add cx,[@y]
|
||||
call [cs:showpixel],bx,cx,[word ptr di]
|
||||
pop cx bx
|
||||
inc bx
|
||||
inc di
|
||||
cmp ebx,[(bmp_file si).bmp_width]
|
||||
jb @@bouclette
|
||||
xor bx,bx
|
||||
;add di,dx
|
||||
dec cx
|
||||
cmp cx,0
|
||||
jne @@bouclette
|
||||
clc
|
||||
ret
|
||||
@@errorshowing:
|
||||
stc
|
||||
ret
|
||||
ENDP showbmp
|
||||
|
||||
|
||||
;==========LOADBMPPALET=========
|
||||
;Charge la palette du BMP pointée par DS:%0
|
||||
;-> DS:%0 BMP
|
||||
;<-
|
||||
;===============================
|
||||
PROC loadbmppalet FAR
|
||||
ARG @pointer:word
|
||||
USES ax,bx,cx,dx,si
|
||||
mov si,[@pointer]
|
||||
mov bx,0400h+36h-4
|
||||
mov cx,100h
|
||||
mov dx, 3c8h
|
||||
@@paletteload:
|
||||
mov al, cl
|
||||
dec al
|
||||
out dx, al
|
||||
inc dx
|
||||
mov al,[bx+si+2]
|
||||
shr al,2
|
||||
out dx, al
|
||||
mov al,[bx+si+1]
|
||||
shr al,2
|
||||
out dx, al
|
||||
mov al,[bx+si]
|
||||
shr al,2
|
||||
out dx, al
|
||||
sub bx,4
|
||||
dec dx
|
||||
dec cl
|
||||
jnz @@paletteload
|
||||
ret
|
||||
ENDP loadbmppalet
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,762 @@
|
|||
model tiny,stdcall
|
||||
p586
|
||||
locals
|
||||
jumps
|
||||
codeseg
|
||||
option procalign:byte
|
||||
|
||||
include "..\include\mem.h"
|
||||
include "..\include\cpu.h"
|
||||
include "..\include\pci.h"
|
||||
|
||||
org 0h
|
||||
|
||||
header exe <"CE",1,0,0,offset exports,,,>
|
||||
|
||||
exporting
|
||||
declare cpuinfo
|
||||
declare setinfo
|
||||
declare pciinfo
|
||||
declare getpciclass
|
||||
declare getpcisubclass
|
||||
declare getcardinfo
|
||||
declare pcireadbyte
|
||||
declare pcireadword
|
||||
declare pcireaddword
|
||||
declare detectvmware
|
||||
ende
|
||||
|
||||
PROC detectvmware FAR
|
||||
USES eax,ebx,ecx,edx
|
||||
mov eax,564D5868h
|
||||
mov ebx,12345h
|
||||
mov ecx,00Ah
|
||||
mov edx,5658h
|
||||
in ax,dx
|
||||
cmp ebx,564D5868h
|
||||
ret
|
||||
endp detectvmware
|
||||
|
||||
;renvoie un pointer dx:ax vers la classe %0
|
||||
PROC getpciclass FAR
|
||||
ARG @class:word
|
||||
USES di
|
||||
mov di,[@class]
|
||||
and di,0FFh
|
||||
shl di,1
|
||||
mov ax,[cs:offset classes+di]
|
||||
mov dx,cs
|
||||
ret
|
||||
endp getpciclass
|
||||
|
||||
;renvoie un pointer dx:ax vers la sous-classe de %1 et de classe %0
|
||||
PROC getpcisubclass FAR
|
||||
ARG @class:word,@subclass:word
|
||||
USES di
|
||||
mov di,[@class]
|
||||
and di,0FFh
|
||||
shl di,1
|
||||
mov di,[cs:offset classesd+di]
|
||||
mov dx,[@subclass]
|
||||
and dx,0FFh
|
||||
cmp dx,80h
|
||||
jne @@suiteac
|
||||
mov ax,offset divers
|
||||
jmp @@found
|
||||
@@suiteac:
|
||||
shl dx,1
|
||||
add di,dx
|
||||
mov ax,[cs:di]
|
||||
@@found:
|
||||
mov dx,cs
|
||||
ret
|
||||
endp getpcisubclass
|
||||
|
||||
divers db 'divers',0
|
||||
|
||||
classes:
|
||||
dw offset class0
|
||||
dw offset class1
|
||||
dw offset class2
|
||||
dw offset class3
|
||||
dw offset class4
|
||||
dw offset class5
|
||||
dw offset class6
|
||||
dw offset class7
|
||||
dw offset class8
|
||||
dw offset class9
|
||||
dw offset class10
|
||||
dw offset class11
|
||||
dw offset class12
|
||||
dw offset class13
|
||||
dw offset class14
|
||||
dw offset class15
|
||||
dw offset class16
|
||||
dw offset class17
|
||||
class0 db 'ancien',0
|
||||
class1 db 'stockage',0
|
||||
class2 db 'reseau',0
|
||||
class3 db 'affichage',0
|
||||
class4 db 'multimedia',0
|
||||
class5 db 'memoire',0
|
||||
class6 db 'pont',0
|
||||
class7 db 'communication',0
|
||||
class8 db 'systeme',0
|
||||
class9 db 'acquisition',0
|
||||
class10 db 'dock',0
|
||||
class11 db 'processeur',0
|
||||
class12 db 'bus serie',0
|
||||
class13 db 'sans fil',0
|
||||
class14 db 'intelligent',0
|
||||
class15 db 'satellite',0
|
||||
class16 db 'cryptage',0
|
||||
class17 db 'traitement signal',0
|
||||
|
||||
|
||||
;Classes et sous classes
|
||||
classesd:
|
||||
dw offset class0d
|
||||
dw offset class1d
|
||||
dw offset class2d
|
||||
dw offset class3d
|
||||
dw offset class4d
|
||||
dw offset class5d
|
||||
dw offset class6d
|
||||
dw offset class7d
|
||||
dw offset class8d
|
||||
dw offset class9d
|
||||
dw offset class10d
|
||||
dw offset class11d
|
||||
dw offset class12d
|
||||
dw offset class13d
|
||||
dw offset class14d
|
||||
dw offset class15d
|
||||
dw offset class16d
|
||||
dw offset class17d
|
||||
|
||||
class0d:
|
||||
dw offset subclass00
|
||||
dw offset subclass01
|
||||
subclass00 db 'divers',0
|
||||
subclass01 db 'vga',0
|
||||
|
||||
class1d:
|
||||
dw offset subclass10
|
||||
dw offset subclass11
|
||||
dw offset subclass12
|
||||
dw offset subclass13
|
||||
dw offset subclass14
|
||||
subclass10 db 'scsi',0
|
||||
subclass11 db 'ide',0
|
||||
subclass12 db 'disquette',0
|
||||
subclass13 db 'ipi',0
|
||||
subclass14 db 'raid',0
|
||||
|
||||
class2d:
|
||||
dw offset subclass20
|
||||
dw offset subclass21
|
||||
dw offset subclass22
|
||||
dw offset subclass23
|
||||
dw offset subclass24
|
||||
subclass20 db 'ethernet',0
|
||||
subclass21 db 'token ring',0
|
||||
subclass22 db 'fddi',0
|
||||
subclass23 db 'atm',0
|
||||
subclass24 db 'isdn',0
|
||||
|
||||
class3d:
|
||||
dw offset subclass30
|
||||
dw offset subclass31
|
||||
dw offset subclass32
|
||||
subclass30 db 'vga',0
|
||||
subclass31 db 'xga',0
|
||||
subclass32 db '3D',0
|
||||
|
||||
class4d:
|
||||
dw offset subclass40
|
||||
dw offset subclass41
|
||||
dw offset subclass42
|
||||
subclass40 db 'video',0
|
||||
subclass41 db 'audio',0
|
||||
subclass42 db 'telephonie',0
|
||||
|
||||
class5d:
|
||||
dw offset subclass50
|
||||
dw offset subclass51
|
||||
subclass50 db 'ram',0
|
||||
subclass51 db 'flash',0
|
||||
|
||||
class6d:
|
||||
dw offset subclass60
|
||||
dw offset subclass61
|
||||
dw offset subclass62
|
||||
dw offset subclass63
|
||||
dw offset subclass64
|
||||
dw offset subclass65
|
||||
dw offset subclass66
|
||||
dw offset subclass67
|
||||
dw offset subclass68
|
||||
subclass60 db 'hote',0
|
||||
subclass61 db 'isa',0
|
||||
subclass62 db 'eisa',0
|
||||
subclass63 db 'mca',0
|
||||
subclass64 db 'pci',0
|
||||
subclass65 db 'pcmcia',0
|
||||
subclass66 db 'nubus',0
|
||||
subclass67 db 'cardbus',0
|
||||
subclass68 db 'RACEway',0
|
||||
|
||||
class7d:
|
||||
dw offset subclass70
|
||||
dw offset subclass71
|
||||
dw offset subclass72
|
||||
dw offset subclass73
|
||||
subclass70 db 'serie',0
|
||||
subclass71 db 'parallele',0
|
||||
subclass72 db 'serie multiport',0
|
||||
subclass73 db 'modem',0
|
||||
|
||||
class8d:
|
||||
dw offset subclass80
|
||||
dw offset subclass81
|
||||
dw offset subclass82
|
||||
dw offset subclass83
|
||||
dw offset subclass84
|
||||
subclass80 db 'pic',0
|
||||
subclass81 db 'dma',0
|
||||
subclass82 db 'timer',0
|
||||
subclass83 db 'rtc',0
|
||||
subclass84 db 'hotplug',0
|
||||
|
||||
class9d:
|
||||
dw offset subclass90
|
||||
dw offset subclass91
|
||||
dw offset subclass92
|
||||
dw offset subclass93
|
||||
dw offset subclass94
|
||||
subclass90 db 'clavier',0
|
||||
subclass91 db 'stylo',0
|
||||
subclass92 db 'souris',0
|
||||
subclass93 db 'scanner',0
|
||||
subclass94 db 'joystick',0
|
||||
|
||||
class10d:
|
||||
dw offset subclass100
|
||||
subclass100 db 'station',0
|
||||
|
||||
class11d:
|
||||
dw offset subclass110
|
||||
dw offset subclass111
|
||||
dw offset subclass112
|
||||
dw offset subclass113
|
||||
dw offset subclass114
|
||||
subclass110 db '386',0
|
||||
subclass111 db '486',0
|
||||
subclass112 db 'pentium',0
|
||||
subclass113 db 'alpha',0
|
||||
subclass114 db 'coprocesseur',0
|
||||
|
||||
class12d:
|
||||
dw offset subclass120
|
||||
dw offset subclass121
|
||||
dw offset subclass122
|
||||
dw offset subclass123
|
||||
dw offset subclass124
|
||||
dw offset subclass125
|
||||
subclass120 db 'firewire',0
|
||||
subclass121 db 'access',0
|
||||
subclass122 db 'ssa',0
|
||||
subclass123 db 'usb',0
|
||||
subclass124 db 'fibre',0
|
||||
subclass125 db 'smbus',0
|
||||
|
||||
class13d:
|
||||
dw offset subclass130
|
||||
dw offset subclass131
|
||||
dw offset subclass132
|
||||
subclass130 db 'irda',0
|
||||
subclass131 db 'ir',0
|
||||
subclass132 db 'rf',0
|
||||
|
||||
class14d:
|
||||
dw offset subclass140
|
||||
subclass140 db 'IO arch',0
|
||||
|
||||
class15d:
|
||||
dw offset subclass150
|
||||
dw offset subclass151
|
||||
dw offset subclass152
|
||||
dw offset subclass153
|
||||
subclass150 db 'tv',0
|
||||
subclass151 db 'audio',0
|
||||
subclass152 db 'voix',0
|
||||
subclass153 db 'donnees',0
|
||||
|
||||
class16d:
|
||||
dw offset subclass160
|
||||
dw offset subclass161
|
||||
subclass160 db 'reseau',0
|
||||
subclass161 db 'jeux',0
|
||||
|
||||
class17d:
|
||||
dw offset subclass170
|
||||
subclass170 db 'dpio',0
|
||||
|
||||
|
||||
;al=bus cl=deviceid ch=func es:di
|
||||
PROC getcardinfo FAR
|
||||
ARG @bus:word,@device:word,@function:word,@pointer:word
|
||||
USES eax,bx,di
|
||||
mov di,[@pointer]
|
||||
cmp [@function],0
|
||||
je @@amultiorfirst
|
||||
call pcireadbyte,[@bus],[@device],0,offset (pcidata).typed
|
||||
and al,multifunction
|
||||
cmp al,0
|
||||
jne @@amultiorfirst
|
||||
mov [word ptr di],0000h
|
||||
jmp @@notexist
|
||||
@@amultiorfirst:
|
||||
xor bx,bx
|
||||
@@goinfos:
|
||||
call pcireadword,[@bus],[@device],[@function],bx
|
||||
inc bl
|
||||
inc bl
|
||||
cmp bl,2
|
||||
ja @@notzarb
|
||||
cmp ax,0FFFFh
|
||||
je @@notexist
|
||||
cmp ax,00000h
|
||||
je @@notexist
|
||||
@@notzarb:
|
||||
mov [ds:di],ax
|
||||
inc di
|
||||
inc di
|
||||
cmp bl,40h
|
||||
jbe @@goinfos
|
||||
clc
|
||||
ret
|
||||
@@notexist:
|
||||
stc
|
||||
ret
|
||||
endp getcardinfo
|
||||
|
||||
;lit un octet du bus %0 device %1 function %2 nø %3 et le met en AL
|
||||
PROC pcireadbyte FAR
|
||||
ARG @bus:word,@device:word,@function:word,@pointer:word
|
||||
USES bx,dx
|
||||
mov al,[byte ptr @bus]
|
||||
mov ah,80h
|
||||
shl eax,16
|
||||
mov ah,[byte ptr @device]
|
||||
shl ah,3
|
||||
or ah,[byte ptr @function]
|
||||
mov bl,[byte ptr @pointer]
|
||||
mov al,bl
|
||||
and al,0fch
|
||||
mov dx,config1addr
|
||||
out dx,eax
|
||||
mov dx,config1data
|
||||
and bl,3
|
||||
or dl,bl
|
||||
in al,dx
|
||||
ret
|
||||
endp pcireadbyte
|
||||
|
||||
;lit 2 octet du bus %0 device %1 function %2 nø %3 et le met en AX
|
||||
PROC pcireadword FAR
|
||||
ARG @bus:word,@device:word,@function:word,@pointer:word
|
||||
USES bx,dx
|
||||
mov al,[byte ptr @bus]
|
||||
mov ah,80h
|
||||
shl eax,16
|
||||
mov ah,[byte ptr @device]
|
||||
shl ah,3
|
||||
or ah,[byte ptr @function]
|
||||
mov bl,[byte ptr @pointer]
|
||||
mov al,bl
|
||||
and al,0fch
|
||||
mov dx,config1addr
|
||||
out dx,eax
|
||||
mov dx,config1data
|
||||
and bl,3
|
||||
or dl,bl
|
||||
in ax,dx
|
||||
ret
|
||||
endp pcireadword
|
||||
|
||||
;lit 4 octet du bus %0 device %1 function %2 nø %3 et le met en EAX
|
||||
PROC pcireaddword FAR
|
||||
ARG @bus:word,@device:word,@function:word,@pointer:word
|
||||
USES bx,dx
|
||||
mov al,[byte ptr @bus]
|
||||
mov ah,80h
|
||||
shl eax,16
|
||||
mov ah,[byte ptr @device]
|
||||
shl ah,3
|
||||
or ah,[byte ptr @function]
|
||||
mov bl,[byte ptr @pointer]
|
||||
mov al,bl
|
||||
and al,0fch
|
||||
mov dx,config1addr
|
||||
out dx,eax
|
||||
mov dx,config1data
|
||||
and bl,3
|
||||
or dl,bl
|
||||
in eax,dx
|
||||
ret
|
||||
endp pcireaddword
|
||||
|
||||
;Prob avec str pci
|
||||
;renvoie en %0 la structure pciinf carry if error
|
||||
PROC pciinfo FAR
|
||||
ARG @pointer:word
|
||||
USES ax,bx,cx,edx,edi
|
||||
mov ax,0B101h
|
||||
xor edi,edi
|
||||
mov edx," PCI"
|
||||
int 1Ah
|
||||
jc @@errorpci
|
||||
cmp dx,04350h
|
||||
jne @@errorpci
|
||||
cmp ah,0
|
||||
jne @@errorpci
|
||||
mov di,[@pointer]
|
||||
mov [(pciinf di).version_major],bh
|
||||
mov [(pciinf di).version_minor],bl
|
||||
mov [(pciinf di).types],al
|
||||
mov [(pciinf di).maxbus],cl
|
||||
clc
|
||||
ret
|
||||
@@errorpci:
|
||||
stc
|
||||
ret
|
||||
endp pciinfo
|
||||
|
||||
|
||||
;retourne en DS:%1 les set supporté du processeur par rapport a la struct %0
|
||||
PROC setinfo FAR
|
||||
ARG @pointer:word,@set:word
|
||||
USES bx,si,di
|
||||
mov di,[@set]
|
||||
lea si,[ds:cpu.mmx]
|
||||
add si,[@pointer]
|
||||
mov bx,offset @@theset
|
||||
@@set:
|
||||
cmp [word ptr cs:bx],0FFFFh
|
||||
je @@endofset
|
||||
cmp [byte ptr si],1
|
||||
jne @@nextset
|
||||
push bx
|
||||
mov bx,[cs:bx]
|
||||
@@put:
|
||||
mov al,[cs:bx]
|
||||
cmp al,0
|
||||
je @@enofput
|
||||
mov [di],al
|
||||
inc bx
|
||||
inc di
|
||||
jmp @@put
|
||||
@@enofput:
|
||||
pop bx
|
||||
@@nextset:
|
||||
inc bx
|
||||
inc bx
|
||||
inc si
|
||||
jmp @@set
|
||||
@@endofset:
|
||||
mov [byte ptr di],0
|
||||
ret
|
||||
|
||||
@@theset dw offset @@mmx
|
||||
dw offset @@mmx2
|
||||
dw offset @@sse
|
||||
dw offset @@sse2
|
||||
dw offset @@sse3
|
||||
dw offset @@fpu
|
||||
dw offset @@now3d
|
||||
dw offset @@now3d2
|
||||
dw offset @@htt
|
||||
dw offset @@apic
|
||||
dw 0FFFFh
|
||||
|
||||
@@mmx db "MMX ",0
|
||||
@@mmx2 db "MMX2 ",0
|
||||
@@now3d db "3dNow! ",0
|
||||
@@now3d2 db "3dNow Extended! ",0
|
||||
@@htt db "HyperThreading",0
|
||||
@@sse db "SSE ",0
|
||||
@@sse2 db "SSE2 ",0
|
||||
@@sse3 db "SSE3 ",0
|
||||
@@apic db "APIC ",0
|
||||
@@fpu db "FPU ",0
|
||||
|
||||
endp setinfo
|
||||
|
||||
;retourne en DS:%0 les capacités du processeur
|
||||
PROC cpuinfo FAR
|
||||
ARG @pointer:word
|
||||
USES eax,ebx,ecx,edx,si,di,ds,es
|
||||
push ds
|
||||
pop es
|
||||
mov di,[@pointer]
|
||||
mov al,0
|
||||
mov cx,size cpu
|
||||
cld
|
||||
rep stosb
|
||||
mov di,[@pointer]
|
||||
call nocpuid ;Test si cpuid est dispo
|
||||
je @@nocpuidatall
|
||||
xor eax,eax
|
||||
cpuid ;Fonction 0 de CPUID
|
||||
mov [dword ptr (cpu di).vendor],ebx ;Vendeur sur 13 octets
|
||||
mov [dword ptr (cpu di+4).vendor],edx
|
||||
mov [dword ptr (cpu di+8).vendor],ecx
|
||||
mov [byte ptr (cpu di+12).vendor],0
|
||||
cmp eax,1
|
||||
jb @@nofonc1
|
||||
mov eax,1
|
||||
cpuid ;Fonction 1 de CPUID
|
||||
mov ebx,eax ;infos de model
|
||||
and ebx,1111b
|
||||
mov [(cpu di).stepping],bl
|
||||
shr eax,4
|
||||
mov ebx,eax
|
||||
and ebx,1111b
|
||||
mov [(cpu di).models],bl
|
||||
shr eax,4
|
||||
mov ebx,eax
|
||||
and ebx,1111b
|
||||
mov [(cpu di).family],bl
|
||||
shr eax,4
|
||||
mov ebx,eax
|
||||
and ebx,11b
|
||||
mov [(cpu di).types],bl
|
||||
shr eax,2
|
||||
mov ebx,eax
|
||||
and ebx,1111b
|
||||
mov [(cpu di).emodels],bl
|
||||
shr eax,4
|
||||
mov [(cpu di).efamily],al
|
||||
mov ebx,edx
|
||||
and ebx,1 ;infos de jeu d'instruction
|
||||
setnz [(cpu di).fpu]
|
||||
mov ebx,edx
|
||||
and ebx,100000000000000000000000b
|
||||
setnz [(cpu di).mmx]
|
||||
mov ebx,edx
|
||||
and ebx,10000000000000000000000000b
|
||||
setnz [(cpu di).sse]
|
||||
mov ebx,edx
|
||||
and ebx,100000000000000000000000000b
|
||||
setnz [(cpu di).sse2]
|
||||
mov ebx,ecx
|
||||
and ebx,1b
|
||||
setnz [(cpu di).sse3]
|
||||
mov ebx,edx
|
||||
and ebx,10000000000000000000000000000b
|
||||
setnz [(cpu di).htt]
|
||||
@@nofonc1:
|
||||
mov eax,80000000h ;Fonction 80000000 de CPUID
|
||||
cpuid
|
||||
cmp eax,80000001h
|
||||
jb @@nofonc8
|
||||
mov eax,80000001h ;Fonction 80000000 de CPUID
|
||||
cpuid
|
||||
mov ebx,edx
|
||||
and ebx,10000000000000000000000b
|
||||
setnz [(cpu di).mmx2]
|
||||
mov ebx,edx
|
||||
and ebx,1000000000000000000000000000000b
|
||||
setnz [(cpu di).now3d]
|
||||
mov ebx,edx
|
||||
and ebx,10000000000000000000000000000000b
|
||||
setnz [(cpu di).now3d2]
|
||||
mov ebx,edx
|
||||
and ebx,1000000000b
|
||||
setnz [(cpu di).apic]
|
||||
@@nofonc8:
|
||||
mov si,offset @@marks
|
||||
push cs
|
||||
pop ds
|
||||
@@search:
|
||||
mov di,[@pointer]
|
||||
mov cx,12
|
||||
cld
|
||||
rep cmpsb
|
||||
jne @@notthegood
|
||||
cmp cx,0
|
||||
jne @@notthegood
|
||||
mov cl,[si]
|
||||
inc si
|
||||
mov di,[@pointer]
|
||||
cld
|
||||
rep movsb
|
||||
mov al,0
|
||||
stosb
|
||||
mov di,[@pointer]
|
||||
cmp [es:(cpu di).family],15
|
||||
jne @@notextended
|
||||
mov al,[es:(cpu di).efamily]
|
||||
mov ah,[es:(cpu di).emodels]
|
||||
mov di,[si+2]
|
||||
jmp @@searchmodel
|
||||
@@notextended:
|
||||
mov al,[es:(cpu di).family]
|
||||
mov ah,[es:(cpu di).models]
|
||||
mov di,[si]
|
||||
@@searchmodel:
|
||||
cmp [di],ax
|
||||
jne @@notgoodfamily
|
||||
mov si,di
|
||||
inc si
|
||||
inc si
|
||||
lea di,[es:cpu.names]
|
||||
add di,[@pointer]
|
||||
@@copystr:
|
||||
mov al,[si]
|
||||
mov [es:di],al
|
||||
inc si
|
||||
inc di
|
||||
cmp al,0
|
||||
jne @@copystr
|
||||
jmp @@endofsearch
|
||||
@@notgoodfamily:
|
||||
inc di
|
||||
@@nextelement:
|
||||
inc di
|
||||
cmp [byte ptr di-1],0
|
||||
jne @@nextelement
|
||||
jmp @@searchmodel
|
||||
@@notthegood:
|
||||
inc si
|
||||
cmp [word ptr si],0FFFFh
|
||||
jne @@notthegood
|
||||
inc si
|
||||
inc si
|
||||
cmp [word ptr si],0FFFFh
|
||||
je @@endofsearch
|
||||
jmp @@search
|
||||
@@endofsearch:
|
||||
ret
|
||||
@@nocpuidatall:
|
||||
ret
|
||||
|
||||
;tableau avec vendeur taille + chainereelle + pointeur famille + pointeur famille etendue
|
||||
|
||||
@@marks db "GenuineIntel",5,"Intel"
|
||||
dw @@intelfamily,@@intelfamilye
|
||||
dw 0FFFFh
|
||||
|
||||
db "AuthenticAMD",3,"Amd"
|
||||
dw @@amdfamily,@@amdfamilye
|
||||
dw 0FFFFh
|
||||
|
||||
db "CyrixInstead",5,"Cyrix"
|
||||
dw @@cyrixfamily,@@cyrixfamilye
|
||||
dw 0FFFFh
|
||||
dw 0FFFFh
|
||||
|
||||
|
||||
;tableau avec famille modele et chaine 0
|
||||
|
||||
@@intelfamily:
|
||||
db 4,0,"486 DX-25/33",0
|
||||
db 4,1,"486 DX-50",0
|
||||
db 4,2,"486 SX",0
|
||||
db 4,3,"486 DX/2",0
|
||||
db 4,4,"486 SL",0
|
||||
db 4,5,"486 SX/2",0
|
||||
db 4,7,"486 DX/2-WB",0
|
||||
db 4,8,"486 DX/4",0
|
||||
db 4,9,"486 DX/4-WB",0
|
||||
db 5,0,"Pentium 60/66 A-step",0
|
||||
db 5,1,"Pentium 60/66",0
|
||||
db 5,2,"Pentium 75 - 200",0
|
||||
db 5,3,"OverDrive PODP5V83",0
|
||||
db 5,4,"Pentium MMX",0
|
||||
db 5,7,"Mobile Pentium 75-200",0
|
||||
db 5,8,"Mobile Pentium MMX",0
|
||||
db 6,0,"Pentium Pro A-step",0
|
||||
db 6,1,"Pentium Pro",0
|
||||
db 6,3,"Pentium II (Klamath)",0
|
||||
db 6,5,"Pentium II (Deschutes)",0
|
||||
db 6,6,"Mobile Pentium II",0
|
||||
db 6,7,"Pentium III (Katmai)",0
|
||||
db 6,8,"Pentium III (Coppermine)",0
|
||||
db 6,9,"Mobile Pentium III",0
|
||||
db 6,10,"Pentium III (0.18 µm)",0
|
||||
db 6,11,"Pentium III (0.13 µm)",0
|
||||
db 7,0,"Itanium (IA-64)",0
|
||||
db 0FFh,0FFh,"Inconnu",0
|
||||
|
||||
@@intelfamilye:
|
||||
db 0,0,"Pentium IV (0.18 µm)",0
|
||||
db 0,1,"Pentium IV (0.18 µm)",0
|
||||
db 0,2,"Pentium IV (0.13 µm)",0
|
||||
db 0,3,"Pentium IV (0.09 µm)",0
|
||||
db 1,0,"Itanium 2 (IA-64)",0
|
||||
db 0FFh,0FFh,"Inconnu",0
|
||||
|
||||
@@amdfamily:
|
||||
db 4,3,"486 DX/2",0
|
||||
db 4,7,"486 DX/2-WB",0
|
||||
db 4,8,"486 DX/4",0
|
||||
db 4,9,"486 DX/4-WB",0
|
||||
db 4,14,"Am5x86-WT",0
|
||||
db 4,15,"Am5x86-WB",0
|
||||
db 5,0,"K5/SSA5",0
|
||||
db 5,1,"K5 (PR120/133)",0
|
||||
db 5,2,"K5 (PR166)",0
|
||||
db 5,3,"K5 (PR200)",0
|
||||
db 5,6,"K6 (0.30 µm)",0
|
||||
db 5,7,"K6 (0.25 µm)",0
|
||||
db 5,8,"K6-2",0
|
||||
db 5,9,"K6-3",0
|
||||
db 5,13,"K6-2+/K6-III+ (0.18 µm)",0
|
||||
db 6,0,"Athlon (25 µm)",0
|
||||
db 6,1,"Athlon (25 µm)",0
|
||||
db 6,2,"Athlon (18 µm)",0
|
||||
db 6,3,"Duron",0
|
||||
db 6,4,"Athlon (Thunderbird)",0
|
||||
db 6,6,"Athlon (Palamino)",0
|
||||
db 6,7,"Duron (Morgan)",0
|
||||
db 6,8,"Athlon (Thoroughbred)",0
|
||||
db 6,10,"Athlon (Barton)",0
|
||||
db 0FFh,0FFh,"Inconnu",0
|
||||
|
||||
@@amdfamilye:
|
||||
db 0,4,"Athlon 64",0
|
||||
db 0,5,"Athlon 64 FX/Opteron",0
|
||||
db 0FFh,0FFh,"Inconnu",0
|
||||
|
||||
@@cyrixfamily:
|
||||
db 4,4,"MediaGX",0
|
||||
db 5,2,"6x86/6x86L",0
|
||||
db 5,4,"MediaGX MMX Enhanced",0
|
||||
db 6,0,"MII (6x86MX)",0
|
||||
db 6,5,"VIA Cyrix M2 core",0
|
||||
db 6,6,"WinChip C5A",0
|
||||
db 6,7,"WinChip C5B/WinChip C5C",0
|
||||
db 6,8,"WinChip C5N",0
|
||||
db 6,9,"WinChip C5XL/WinChip C5P",0
|
||||
db 0FFh,0FFh,"Inconnu",0
|
||||
|
||||
@@cyrixfamilye:
|
||||
db 0FFh,0FFh,"Inconnu",0
|
||||
|
||||
endp cpuinfo
|
||||
|
||||
;Test si CPUID est supporté oui=not Equal
|
||||
nocpuid:
|
||||
pushfd
|
||||
pop eax
|
||||
xor eax,00200000h
|
||||
push eax
|
||||
popfd
|
||||
pushfd
|
||||
pop eax
|
||||
cmp eax,ebx
|
||||
ret
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,993 @@
|
|||
model tiny,stdcall
|
||||
p586N
|
||||
locals
|
||||
jumps
|
||||
codeseg
|
||||
option procalign:byte
|
||||
|
||||
include "..\include\mem.h"
|
||||
include "..\include\divers.h"
|
||||
|
||||
org 0h
|
||||
|
||||
header exe <"CE",1,0,0,offset exports,,,>
|
||||
|
||||
|
||||
exporting
|
||||
declare checksyntax
|
||||
declare cmpitems
|
||||
declare gettypeditem
|
||||
declare gettyped
|
||||
declare whatisitem
|
||||
declare whatis
|
||||
declare strtoadress
|
||||
declare strisadress
|
||||
declare strisname
|
||||
declare strisbase
|
||||
declare strtoint
|
||||
declare left
|
||||
declare right
|
||||
declare middle
|
||||
declare fill
|
||||
declare replaceallchar
|
||||
declare searchchar
|
||||
declare invert
|
||||
declare cmpstr
|
||||
declare evalue
|
||||
declare insert
|
||||
declare delete
|
||||
declare copy
|
||||
declare concat
|
||||
declare compressdelimiter
|
||||
declare setnbitems
|
||||
declare getitemsize
|
||||
declare getitem
|
||||
declare getpointeritem
|
||||
declare getnbitems
|
||||
declare getlength
|
||||
declare setlength
|
||||
declare uppercase
|
||||
declare onecase
|
||||
declare lowercase
|
||||
declare invertcase
|
||||
ende
|
||||
|
||||
;Librairie qui prend en charge le format de STR ASCIIZ
|
||||
;# nombre 8
|
||||
;? str 7
|
||||
;& nom 6
|
||||
|
||||
;High Low
|
||||
;0 variable 4 hex
|
||||
;1 byte 3 dec
|
||||
;2 word 2 oct
|
||||
;3 3 octets 1 bin
|
||||
;4 dword 5 adresse
|
||||
;5 5 octets 6 nom
|
||||
;6 ... 7 str
|
||||
; 8 nombre
|
||||
|
||||
;Renvoie carry si la syntaxe de ds:si n'est pas respect‚ par rapport a es:di
|
||||
PROC checksyntax FAR
|
||||
ARG @src:word,@dest:word,@delim:word
|
||||
USES ax,bx,cx,dx,si,di,ds,es
|
||||
LOCAL @@temp:word:256
|
||||
push ss
|
||||
pop es
|
||||
lea si,[@@temp]
|
||||
mov di,[@dest]
|
||||
call copy,[@src],si
|
||||
call xch
|
||||
call compressdelimiter,si,[@delim]
|
||||
call getnbitems,si,[@delim]
|
||||
mov bx,ax
|
||||
call xch
|
||||
call getnbitems,di,[@delim]
|
||||
cmp bx,ax
|
||||
jne @@notequalatall
|
||||
xor cx,cx
|
||||
@@itemer:
|
||||
call xch
|
||||
call whatisitem,si,cx,[@delim]
|
||||
mov dx,ax
|
||||
call xch
|
||||
call whatisitem,di,cx,[@delim]
|
||||
cmp ax,dx
|
||||
jne @@prob
|
||||
cmp al,6
|
||||
jb @@equal
|
||||
call cmpitems
|
||||
je @@equal
|
||||
@@prob:
|
||||
cmp dl,4
|
||||
ja @@nonumber
|
||||
cmp dl,8
|
||||
je @@equal
|
||||
;cmp al,4
|
||||
;jne @@notequalatall
|
||||
cmp dh,ah
|
||||
ja @@notequalatall
|
||||
jmp @@equal
|
||||
@@nonumber:
|
||||
cmp al,7
|
||||
jne @@nostr
|
||||
cmp ah,0
|
||||
jne @@notequalatall
|
||||
jmp @@equal
|
||||
@@nostr:
|
||||
cmp al,6
|
||||
jne @@noname
|
||||
cmp dl,6
|
||||
jne @@noname
|
||||
cmp ah,0
|
||||
jne @@notequalatall
|
||||
jmp @@equal
|
||||
@@noname:
|
||||
cmp al,8
|
||||
je @@equal
|
||||
jmp @@notequalatall
|
||||
@@equal:
|
||||
inc cx
|
||||
cmp cx,bx
|
||||
jne @@itemer
|
||||
cld
|
||||
@@ackno:
|
||||
ret
|
||||
@@notequalatall:
|
||||
stc
|
||||
jmp @@ackno
|
||||
endp checksyntax
|
||||
|
||||
xch:
|
||||
push es
|
||||
push ds
|
||||
pop es
|
||||
pop ds
|
||||
ret
|
||||
|
||||
|
||||
;Compare les ‚l‚ments cx de deux chaine ds:si et es:di
|
||||
PROC cmpitems FAR
|
||||
ARG @src:word,@dest:word,@item:word,@delim:word
|
||||
USES ax,cx,si,di,es
|
||||
push ds
|
||||
pop es
|
||||
call getpointeritem,[@src],[@item],[@delim]
|
||||
mov si,ax
|
||||
call getitemsize,[@src],[@item],[@delim]
|
||||
mov di,[@dest]
|
||||
mov cx,ax
|
||||
cld
|
||||
rep cmpsb
|
||||
clc
|
||||
ret
|
||||
endp cmpitems
|
||||
|
||||
|
||||
;Renvoie l'‚l‚ment cx de ds:si dans edx si nb et dans es:di si str ou name
|
||||
PROC gettypeditem FAR
|
||||
ARG @src:word,@item:word,@delim:word
|
||||
USES bx,cx,si,di
|
||||
mov si,[@src]
|
||||
mov cx,[@item]
|
||||
call getpointeritem,si,cx,[@delim]
|
||||
mov di,ax
|
||||
inc cx
|
||||
call getpointeritem,si,cx,[@delim]
|
||||
mov si,ax
|
||||
dec si
|
||||
mov cl,0
|
||||
xchg cl,[ds:si]
|
||||
call gettyped,di
|
||||
xchg cl,[ds:si]
|
||||
clc
|
||||
ret
|
||||
endp gettypeditem
|
||||
|
||||
|
||||
;Renvoie eax si nb et dans ds:eax si str ou name
|
||||
PROC gettyped FAR
|
||||
ARG @src:word
|
||||
USES si
|
||||
mov si,[@src]
|
||||
xor eax,eax
|
||||
call whatis,si
|
||||
cmp al,1
|
||||
je @@bin
|
||||
cmp al,2
|
||||
je @@oct
|
||||
cmp al,3
|
||||
je @@dec
|
||||
cmp al,4
|
||||
je @@hex
|
||||
cmp al,5
|
||||
je @@pointer
|
||||
mov ax,si
|
||||
jmp @@endofgettypeditem
|
||||
@@bin:
|
||||
call strtoint,si,2
|
||||
jmp @@endofgettypeditem
|
||||
@@oct:
|
||||
call strtoint,si,8
|
||||
jmp @@endofgettypeditem
|
||||
@@dec:
|
||||
call strtoint,si,10
|
||||
jmp @@endofgettypeditem
|
||||
@@hex:
|
||||
call strtoint,si,16
|
||||
jmp @@endofgettypeditem
|
||||
@@pointer:
|
||||
call strtoadress,si
|
||||
@@endofgettypeditem:
|
||||
clc
|
||||
ret
|
||||
endp gettyped
|
||||
|
||||
;Renvoie dans ax le type de la str0 point‚e par ds:%0 ‚l‚ment %1 delim %3
|
||||
PROC whatisitem FAR
|
||||
ARG @src:word,@item:word,@delim:word
|
||||
USES bx,cx,si,di
|
||||
mov si,[@src]
|
||||
mov cx,[@item]
|
||||
call getpointeritem,si,cx,[@delim]
|
||||
mov di,ax
|
||||
inc cx
|
||||
call getpointeritem,si,cx,[@delim]
|
||||
mov si,ax
|
||||
dec si
|
||||
mov cl,0
|
||||
xchg cl,[ds:si]
|
||||
call whatis,di
|
||||
xchg cl,[ds:si]
|
||||
clc
|
||||
ret
|
||||
endp whatisitem
|
||||
|
||||
;Renvoie dans ax le type de la str0 point‚e par ds:%0
|
||||
;High Low
|
||||
;0 variable 4 hex
|
||||
;1 byte 3 dec
|
||||
;2 word 2 oct
|
||||
;3 3 octets 1 bin
|
||||
;4 dword 5 adresse
|
||||
;5 5 octets 6 name
|
||||
;6 ... 7 str
|
||||
PROC whatis FAR
|
||||
ARG @src:word
|
||||
USES bx,cx,edx,si
|
||||
mov si,[@src]
|
||||
xor cx,cx
|
||||
mov cl,2
|
||||
call strisbase,si,cx
|
||||
jnc @@finbase
|
||||
mov cl,8
|
||||
call strisbase,si,cx
|
||||
jnc @@finbase
|
||||
mov cl,10
|
||||
call strisbase,si,cx
|
||||
jnc @@finbase
|
||||
mov cl,16
|
||||
call strisbase,si,cx
|
||||
jc @@testadress
|
||||
@@finbase:
|
||||
mov bx,cx
|
||||
xor ch,ch
|
||||
mov al,[cs:bx+offset basenn-2]
|
||||
push eax
|
||||
call strtoint,si,cx
|
||||
mov edx,eax
|
||||
pop eax
|
||||
cmp edx,0000FFFFh
|
||||
ja @@bits32
|
||||
cmp dx,00FFh
|
||||
ja @@bits16
|
||||
mov ah,1
|
||||
jmp @@endofwhat
|
||||
@@bits16:
|
||||
mov ah,2
|
||||
jmp @@endofwhat
|
||||
@@bits32:
|
||||
mov ah,4
|
||||
jmp @@endofwhat
|
||||
@@testadress:
|
||||
call strisadress,si
|
||||
jc @@testname
|
||||
mov ax,0005h
|
||||
jmp @@endofwhat
|
||||
@@testname:
|
||||
call strisname
|
||||
jc @@testnumber
|
||||
xor ah,ah
|
||||
cmp [byte ptr si],'&'
|
||||
je @@okname
|
||||
call getlength,si
|
||||
mov ah,al
|
||||
@@okname:
|
||||
mov al,06h
|
||||
jmp @@endofwhat
|
||||
@@testnumber:
|
||||
cmp [byte ptr si],'#'
|
||||
jne @@testvarstr
|
||||
xor ah,ah
|
||||
mov al,08h
|
||||
jmp @@endofwhat
|
||||
@@testvarstr:
|
||||
xor ah,ah
|
||||
cmp [byte ptr si],'?'
|
||||
je @@okvarstr
|
||||
call getlength,si
|
||||
mov ah,al
|
||||
@@okvarstr:
|
||||
mov al,07h
|
||||
@@endofwhat:
|
||||
clc
|
||||
ret
|
||||
endp whatis
|
||||
|
||||
|
||||
|
||||
;Renvoie non carry si la str ds:si point‚e peut ˆtre une adresse
|
||||
PROC strtoadress FAR
|
||||
;push
|
||||
stc
|
||||
;pop
|
||||
ret
|
||||
endp strtoadress
|
||||
|
||||
|
||||
;Renvoie en es:di le pointeur str0 ds:si
|
||||
PROC strisadress FAR
|
||||
;push
|
||||
stc
|
||||
;pop
|
||||
ret
|
||||
endp strisadress
|
||||
|
||||
;Renvoie non carry si la str ds:%0 point‚e peut ˆtre un nom de fichier
|
||||
PROC strisname FAR
|
||||
ARG @src:word
|
||||
USES ax,si,di
|
||||
mov si,[@src]
|
||||
@@isname:
|
||||
mov al,[si]
|
||||
inc si
|
||||
cmp al,0
|
||||
je @@itsok
|
||||
mov di,offset non
|
||||
@@verify:
|
||||
mov ah,[cs:di]
|
||||
inc di
|
||||
cmp ah,0FFh
|
||||
je @@isname
|
||||
cmp ah,al
|
||||
jne @@verify
|
||||
stc
|
||||
jmp @@itsdead
|
||||
@@itsok:
|
||||
clc
|
||||
@@itsdead:
|
||||
ret
|
||||
endp strisname
|
||||
|
||||
non db '/<>|"?*:\',01,0FFh
|
||||
|
||||
;Renvoie non carry si le texte point‚ par %0 est de la base %1
|
||||
PROC strisbase FAR
|
||||
ARG @src:word,@base:word
|
||||
USES ax,cx,si,di,es
|
||||
push cs
|
||||
pop es
|
||||
mov si,[@src]
|
||||
@@isstrbase:
|
||||
mov al,[si]
|
||||
cmp al,0
|
||||
je @@okbase
|
||||
mov cx,[@base]
|
||||
xor ch,ch
|
||||
mov di,cx
|
||||
cmp al,[es:di-2+offset basen]
|
||||
je @@verifbase
|
||||
xor ch,ch
|
||||
inc cl
|
||||
mov di,offset base
|
||||
cld
|
||||
repne scasb
|
||||
cmp cx,0
|
||||
je @@nobase
|
||||
inc si
|
||||
jmp @@isstrbase
|
||||
@@okbase:
|
||||
clc
|
||||
@@endbase:
|
||||
ret
|
||||
@@verifbase:
|
||||
cmp [byte ptr si+1],0
|
||||
je @@okbase
|
||||
@@nobase:
|
||||
stc
|
||||
jmp @@endbase
|
||||
endp strisbase
|
||||
|
||||
base db '0123456789ABCDEF'
|
||||
basen db 'b o d h'
|
||||
basenn db 1,0,0,0,0,0,2,0,3,0,0,0,0,0,4
|
||||
|
||||
|
||||
;Converti un str %0 de base %1 en int dans eax
|
||||
PROC strtoint FAR
|
||||
ARG @src:word,@base:word
|
||||
USES ebx,ecx,edx,si,edi,es
|
||||
push cs
|
||||
pop es
|
||||
mov si,[@src]
|
||||
@@gotos:
|
||||
cmp [byte ptr si+1], 0
|
||||
je @@oklo
|
||||
inc si
|
||||
jmp @@gotos
|
||||
@@oklo:
|
||||
mov edi,1
|
||||
xor ebx,ebx
|
||||
@@baseto:
|
||||
cmp [@src],si
|
||||
ja @@endbaseto
|
||||
mov al,[si]
|
||||
xor ecx,ecx
|
||||
mov cl,[byte ptr @base]
|
||||
inc cl
|
||||
push di
|
||||
mov di,offset base
|
||||
cld
|
||||
repne scasb
|
||||
pop di
|
||||
jne @@noop
|
||||
sub cl,[byte ptr @base]
|
||||
neg cl
|
||||
mov eax,edi
|
||||
mul ecx
|
||||
add ebx,eax
|
||||
mov eax,edi
|
||||
mov cl,[byte ptr @base]
|
||||
mul ecx
|
||||
mov edi,eax
|
||||
@@noop:
|
||||
dec si
|
||||
jmp @@baseto
|
||||
@@endbaseto:
|
||||
mov eax,ebx
|
||||
clc
|
||||
ret
|
||||
endp strtoint
|
||||
|
||||
|
||||
;Renvoie en ds:%1 la partie de %2 caractŠres a partir de la gauche de ds:%0
|
||||
PROC left FAR
|
||||
ARG @src:word,@dest:word,@nb:word
|
||||
USES ax,cx,si,di,es
|
||||
push ds
|
||||
pop es
|
||||
mov si,[@src]
|
||||
mov di,[@dest]
|
||||
mov cx,[@nb]
|
||||
cld
|
||||
rep movsb
|
||||
mov al,0
|
||||
stosb
|
||||
clc
|
||||
ret
|
||||
endp left
|
||||
|
||||
;Renvoie en ds:%1 la partie de %2 caractŠres a partir de la droite de ds:%0
|
||||
PROC right FAR
|
||||
ARG @src:word,@dest:word,@nb:word
|
||||
USES ax,cx,si,di,es
|
||||
push ds
|
||||
pop es
|
||||
mov si,[@src]
|
||||
mov di,[@dest]
|
||||
call getlength,si
|
||||
add si,ax
|
||||
sub si,[@nb]
|
||||
mov cx,[@nb]
|
||||
cld
|
||||
rep movsb
|
||||
mov al,0
|
||||
stosb
|
||||
clc
|
||||
ret
|
||||
endp right
|
||||
|
||||
;Renvoie en ds:%1 la partie de %3 caractŠres a partir de la position %2 de ds:%0
|
||||
PROC middle FAR
|
||||
ARG @src:word,@dest:word,@item:word,@nb:word
|
||||
USES ax,cx,si,di,es
|
||||
push ds
|
||||
pop es
|
||||
mov si,[@src]
|
||||
mov di,[@dest]
|
||||
mov cx,[@nb]
|
||||
add si,[@item]
|
||||
cld
|
||||
rep movsb
|
||||
mov al,0
|
||||
stosb
|
||||
clc
|
||||
ret
|
||||
endp middle
|
||||
|
||||
;Rempli de %3 caractŠres %2 a partir de la position %1 de ds:%0
|
||||
PROC fill FAR
|
||||
ARG @src:word,@item:word,@char:word,@nb:word
|
||||
USES ax,cx,si,di,es
|
||||
push ds
|
||||
pop es
|
||||
mov di,[@src]
|
||||
add di,[@item]
|
||||
mov ax,[@char]
|
||||
mov cx,[@nb]
|
||||
cld
|
||||
rep stosb
|
||||
clc
|
||||
ret
|
||||
endp fill
|
||||
|
||||
;Remplace tout les caractŠres %1 de ds:%0 par des caractŠres %2
|
||||
PROC replaceallchar FAR
|
||||
ARG @src:word,@char1:word,@char2:word
|
||||
USES ax,cx,dx,di,es
|
||||
mov di,[@src]
|
||||
call getlength,di
|
||||
mov cx,ax
|
||||
mov ax,[@char1]
|
||||
mov dx,[@char2]
|
||||
push ds
|
||||
pop es
|
||||
@@findandchange:
|
||||
repne scasb
|
||||
cmp cx,0
|
||||
je @@endofchange
|
||||
mov [es:di-1],dl
|
||||
jmp @@findandchange
|
||||
@@endofchange:
|
||||
clc
|
||||
ret
|
||||
endp replaceallchar
|
||||
|
||||
;Recherche un caractŠre dl dans la chaŒne ds:%0
|
||||
PROC searchchar FAR
|
||||
ARG @src:word,@char:word
|
||||
USES cx,di,es
|
||||
mov di,[@src]
|
||||
call getlength,di
|
||||
mov cx,ax
|
||||
push ds
|
||||
pop es
|
||||
mov ax,[@char]
|
||||
repne scasb
|
||||
mov ax,di
|
||||
dec ax
|
||||
clc
|
||||
ret
|
||||
endp searchchar
|
||||
|
||||
;Inverse la chaine point‚e en ds:%0
|
||||
PROC invert FAR
|
||||
ARG @src:word
|
||||
USES ax,cx,si,di
|
||||
mov si,[@src]
|
||||
call getlength,si
|
||||
mov di,si
|
||||
add di,ax
|
||||
dec di
|
||||
@@revert:
|
||||
mov al,[si]
|
||||
xchg al,[di]
|
||||
mov [si],al
|
||||
inc si
|
||||
dec di
|
||||
cmp si,di
|
||||
ja @@finishinvert
|
||||
dec di
|
||||
cmp si,di
|
||||
ja @@finishinvert
|
||||
inc di
|
||||
jmp @@revert
|
||||
@@finishinvert:
|
||||
clc
|
||||
ret
|
||||
endp invert
|
||||
|
||||
;Compares 2 chaines de caractŠres DS:%0 et DS:%1 zerof si non equal
|
||||
PROC cmpstr FAR
|
||||
ARG @src:word,@dest:word
|
||||
USES cx,dx,si,di
|
||||
push ds
|
||||
pop es
|
||||
mov si,[@src]
|
||||
mov di,[@dest]
|
||||
call getlength,di
|
||||
mov cx,ax
|
||||
call getlength,si
|
||||
cmp cx,ax
|
||||
jne @@notequal
|
||||
repe cmpsb
|
||||
@@notequal:
|
||||
ret
|
||||
endp cmpstr
|
||||
|
||||
;Compares 2 chaines de caractŠres DS:%0 et DS:%1 zerof si non equal et renvoie le nb de caractŠre egaux dans ax
|
||||
PROC evalue FAR
|
||||
ARG @src:word,@dest:word
|
||||
USES cx,si,di,es
|
||||
push ds
|
||||
pop es
|
||||
mov si,[@src]
|
||||
mov di,[@dest]
|
||||
call getlength ,di
|
||||
mov cx,ax
|
||||
repe cmpsb
|
||||
pushf
|
||||
jne @@noident
|
||||
sub ax,cx
|
||||
popf
|
||||
clc
|
||||
ret
|
||||
@@noident:
|
||||
sub ax,cx
|
||||
dec ax
|
||||
popf
|
||||
clc
|
||||
ret
|
||||
endp evalue
|
||||
|
||||
;Insert une chaine ds:%0 en ds:%1 a partir du caractŠre %2
|
||||
PROC insert FAR
|
||||
ARG @src:word,@dest:word,@item:word
|
||||
USES ax,cx,si,di,es
|
||||
push es
|
||||
pop ds
|
||||
mov si,[@dest]
|
||||
call getlength,si
|
||||
mov cx,ax
|
||||
add si,ax
|
||||
mov di,si
|
||||
call getlength,[@src]
|
||||
add di,ax
|
||||
sub cx,[@item]
|
||||
inc cx
|
||||
std
|
||||
rep movsb
|
||||
mov si,[@src]
|
||||
mov di,[@dest]
|
||||
add di,[@item]
|
||||
mov cx,ax
|
||||
cld
|
||||
rep movsb
|
||||
clc
|
||||
ret
|
||||
endp insert
|
||||
|
||||
|
||||
;Detruit %2 caractŠres a partir du caractŠre %1 de DS:%0
|
||||
PROC delete FAR
|
||||
ARG @src:word,@item:word,@size:word
|
||||
USES ax,cx,dx,si,di,es
|
||||
push ds
|
||||
pop es
|
||||
mov si,[@src]
|
||||
call getlength,si
|
||||
mov cx,ax
|
||||
sub cx,[@size]
|
||||
sub cx,[@item]
|
||||
inc cx
|
||||
add si,[@item]
|
||||
mov di,si
|
||||
add si,[@size]
|
||||
cld
|
||||
rep movsb
|
||||
clc
|
||||
ret
|
||||
endp delete
|
||||
|
||||
;Copie une chaine de ds:si en es:di
|
||||
PROC copy FAR
|
||||
ARG @src:word,@dest:word
|
||||
USES ax,cx,si,di
|
||||
mov si,[@src]
|
||||
mov di,[@dest]
|
||||
call getlength,si
|
||||
mov cx,ax
|
||||
cld
|
||||
rep movsb
|
||||
mov al,0
|
||||
stosb
|
||||
clc
|
||||
ret
|
||||
endp copy
|
||||
|
||||
|
||||
;ConcatŠne le chaine ds:si avec ds:di
|
||||
PROC concat FAR
|
||||
ARG @src:word,@dest:word
|
||||
USES ax,cx,si,di,es
|
||||
push ds
|
||||
pop es
|
||||
mov si,[@src]
|
||||
call getlength,si
|
||||
mov cx,ax
|
||||
mov di,[@dest]
|
||||
call getlength,di
|
||||
add di,ax
|
||||
cld
|
||||
rep movsb
|
||||
mov al,0
|
||||
stosb
|
||||
clc
|
||||
ret
|
||||
endp concat
|
||||
|
||||
|
||||
;D‚truit les d‚limiteur qui sont cons‚cutifs dans ds:%0 -> renvoie le nb d'item
|
||||
PROC compressdelimiter FAR
|
||||
ARG @src:word,@delim:word
|
||||
USES cx,dx,si,di,es
|
||||
mov di,[@src]
|
||||
call getlength,di
|
||||
mov cx,ax
|
||||
push ds
|
||||
pop es
|
||||
mov ax,[@delim]
|
||||
xor dx,dx
|
||||
@@compressitems:
|
||||
repne scasb
|
||||
inc dx
|
||||
@@againcomp:
|
||||
cmp [di],al
|
||||
jne @@nosup
|
||||
call delete,di,0,1
|
||||
jmp @@againcomp
|
||||
@@nosup:
|
||||
cmp cx,0
|
||||
jne @@compressitems
|
||||
mov ax,dx
|
||||
clc
|
||||
ret
|
||||
endp compressdelimiter
|
||||
|
||||
;Met le nombre d'‚l‚ments de ds:%0 à %1
|
||||
PROC setnbitems FAR
|
||||
ARG @src:word,@size:word,@delim:word
|
||||
USES ax,cx,di,es
|
||||
mov di,[@src]
|
||||
cmp [@size],0
|
||||
je @@onlyzero
|
||||
call getnbitems,di,[@delim]
|
||||
cmp [@size],ax
|
||||
je @@noadjust
|
||||
jb @@subsome
|
||||
push ds
|
||||
pop es
|
||||
sub ax,[@size]
|
||||
neg ax
|
||||
mov cx,ax
|
||||
call getlength,di
|
||||
add di,ax
|
||||
mov ax,[@delim]
|
||||
mov ah,'a'
|
||||
rep stosw
|
||||
xor al,al
|
||||
stosb
|
||||
jmp @@noadjust
|
||||
@@subsome:
|
||||
call getpointeritem,[@src],[@size],[@delim]
|
||||
dec ax
|
||||
mov di,ax
|
||||
@@onlyzero:
|
||||
mov [byte ptr di],0
|
||||
@@noadjust:
|
||||
clc
|
||||
ret
|
||||
endp setnbitems
|
||||
|
||||
;Renvoie la taille ax de l'‚l‚ment %0
|
||||
PROC getitemsize FAR
|
||||
ARG @src:word,@item:word,@delim:word
|
||||
USES cx,dx
|
||||
mov cx,[@item]
|
||||
call getpointeritem,[@src],cx,[@delim]
|
||||
mov dx,ax
|
||||
inc cx
|
||||
call getpointeritem,[@src],cx,[@delim]
|
||||
sub ax,dx
|
||||
dec ax
|
||||
clc
|
||||
ret
|
||||
endp getitemsize
|
||||
|
||||
;Renvoie en ds:%1 l'‚l‚ment %2 de ds:%0
|
||||
PROC getitem FAR
|
||||
ARG @src:word,@dest:word,@item:word,@delim:word
|
||||
USES ax,cx,si,di,es
|
||||
push ds
|
||||
pop es
|
||||
call getpointeritem,[@src],[@item],[@delim]
|
||||
mov si,ax
|
||||
call getitemsize,[@src],[@item],[@delim]
|
||||
mov di,[@dest]
|
||||
mov cx,ax
|
||||
cld
|
||||
rep movsb
|
||||
mov al,0
|
||||
stosb
|
||||
clc
|
||||
ret
|
||||
endp getitem
|
||||
|
||||
;renvoi un pointeur ax sur l'‚l‚ment %1 de ds:%0
|
||||
PROC getpointeritem FAR
|
||||
ARG @src:word,@item:word,@delim:word
|
||||
USES cx,dx,di,es
|
||||
mov di,[@src]
|
||||
cmp [@item],0
|
||||
je @@finishpointer
|
||||
push ds
|
||||
pop es
|
||||
call getlength,di
|
||||
mov cx,ax
|
||||
push ds
|
||||
pop es
|
||||
mov ax,[@delim]
|
||||
xor dx,dx
|
||||
@@countnbitems:
|
||||
cmp [@item],dx
|
||||
je @@finishpointer
|
||||
cld
|
||||
repne scasb
|
||||
inc dx
|
||||
cmp cx,0
|
||||
jne @@countnbitems
|
||||
inc di
|
||||
@@finishpointer:
|
||||
mov ax,di
|
||||
clc
|
||||
ret
|
||||
endp getpointeritem
|
||||
|
||||
;Renvoie le nombre d'‚l‚ments ax de ds:%0
|
||||
PROC getnbitems FAR
|
||||
ARG @src:word,@delim:word
|
||||
USES cx,dx,di,es
|
||||
mov di,[@src]
|
||||
call getlength,di
|
||||
mov cx,ax
|
||||
push ds
|
||||
pop es
|
||||
mov ax,[@delim]
|
||||
xor dx,dx
|
||||
cld
|
||||
@@countitems:
|
||||
repne scasb
|
||||
inc dx
|
||||
cmp cx,0
|
||||
jne @@countitems
|
||||
mov ax,dx
|
||||
clc
|
||||
ret
|
||||
endp getnbitems
|
||||
|
||||
;renvoie la taille en octets AX de la chaine point‚e en ds:%0
|
||||
PROC getlength FAR
|
||||
ARG @src:word
|
||||
USES cx,di,es
|
||||
push ds
|
||||
pop es
|
||||
mov di,[@src]
|
||||
mov al,0
|
||||
mov cx,0FFFFh
|
||||
cld
|
||||
repne scasb
|
||||
neg cx
|
||||
dec cx
|
||||
dec cx
|
||||
mov ax,cx
|
||||
clc
|
||||
ret
|
||||
endp getlength
|
||||
|
||||
;Met la taille en octets de la chaine point‚e ds:%0 a %1
|
||||
PROC setlength FAR
|
||||
ARG @src:word,@size:word
|
||||
USES si
|
||||
mov si,[@src]
|
||||
add si,[@size]
|
||||
mov [byte ptr si],0
|
||||
clc
|
||||
ret
|
||||
endp setlength
|
||||
|
||||
;met en majuscule la chaine ds:%0
|
||||
PROC uppercase FAR
|
||||
ARG @src:word
|
||||
USES si,ax
|
||||
mov si,[@src]
|
||||
@@uppercase:
|
||||
mov al,[ds:si]
|
||||
inc si
|
||||
cmp al,0
|
||||
je @@enduppercase
|
||||
cmp al,'a'
|
||||
jb @@uppercase
|
||||
cmp al,'z'
|
||||
ja @@uppercase
|
||||
sub [byte ptr si-1],'a'-'A'
|
||||
jmp @@uppercase
|
||||
@@enduppercase:
|
||||
clc
|
||||
ret
|
||||
endp uppercase
|
||||
|
||||
;met en majuscule la premiŠre lettre chaine ds:%0
|
||||
PROC onecase FAR
|
||||
ARG @src:word
|
||||
USES ax
|
||||
mov si,[@src]
|
||||
mov al,[ds:si]
|
||||
cmp al,'a'
|
||||
jb @@oneenduppercase
|
||||
cmp al,'z'
|
||||
ja @@oneenduppercase
|
||||
sub [byte ptr si],'a'-'A'
|
||||
@@oneenduppercase:
|
||||
clc
|
||||
ret
|
||||
endp onecase
|
||||
|
||||
;met en minuscule la chaine ds:%0
|
||||
PROC lowercase FAR
|
||||
ARG @src:word
|
||||
USES si,ax
|
||||
mov si,[@src]
|
||||
@@lowercase:
|
||||
mov al,[ds:si]
|
||||
inc si
|
||||
cmp al,0
|
||||
je @@endlowercase
|
||||
cmp al,'A'
|
||||
jb @@lowercase
|
||||
cmp al,'Z'
|
||||
ja @@lowercase
|
||||
add [byte ptr si-1],'a'-'A'
|
||||
jmp @@lowercase
|
||||
@@endlowercase:
|
||||
clc
|
||||
ret
|
||||
endp lowercase
|
||||
|
||||
;Inverse la casse la chaine ds:%0
|
||||
PROC invertcase FAR
|
||||
ARG @src:word
|
||||
USES si,ax
|
||||
mov si,[@src]
|
||||
@@invertcase:
|
||||
mov al,[ds:si]
|
||||
inc si
|
||||
cmp al,0
|
||||
je @@endinvertcase
|
||||
cmp al,'A'
|
||||
jb @@invertcase
|
||||
cmp al,'Z'
|
||||
jbe @@goinvertcase
|
||||
cmp al,'a'
|
||||
jb @@invertcase
|
||||
cmp al,'z'
|
||||
ja @@invertcase
|
||||
sub [byte ptr si-1],'a'-'A'
|
||||
jmp @@invertcase
|
||||
@@goinvertcase:
|
||||
add [byte ptr si-1],'a'-'A'
|
||||
jmp @@invertcase
|
||||
@@endinvertcase:
|
||||
clc
|
||||
ret
|
||||
endp invertcase
|
||||
|
||||
|
|
@ -0,0 +1,891 @@
|
|||
model tiny,stdcall
|
||||
p486
|
||||
locals
|
||||
jumps
|
||||
codeseg
|
||||
option procalign:byte
|
||||
|
||||
include "..\include\mem.h"
|
||||
|
||||
org 0h
|
||||
|
||||
header exe <"CE",1,0,0,offset exports,offset imports,,>
|
||||
|
||||
exporting
|
||||
declare print
|
||||
declare showdate
|
||||
declare showtime
|
||||
declare showname
|
||||
declare showattr
|
||||
declare showsize
|
||||
declare showspace
|
||||
declare showint
|
||||
declare showsigned
|
||||
declare showhex
|
||||
declare showbin
|
||||
declare showbcd
|
||||
declare showstring
|
||||
declare showstring0
|
||||
declare showintr
|
||||
declare showintl
|
||||
declare showchar
|
||||
ende
|
||||
|
||||
importing
|
||||
use VIDEO,addline
|
||||
use VIDEO,setcolor
|
||||
use VIDEO,getxy
|
||||
use VIDEO,setxy
|
||||
use VIDEO,setvideomode
|
||||
use VIDEO,setfont
|
||||
use VIDEO,clearscreen
|
||||
use VIDEO,enablescroll
|
||||
use VIDEO,disablescroll
|
||||
use VIDEO,showchars
|
||||
use VIDEO,savestate
|
||||
use VIDEO,restorestate
|
||||
endi
|
||||
|
||||
|
||||
;================PRINT==============
|
||||
;Affiche la chaine %0 en utilisant les parametres de formatage %x....%x
|
||||
;-> %0 %x
|
||||
;<-
|
||||
;===================================
|
||||
PROC print FAR
|
||||
ARG @@pointer:word
|
||||
push ax bx cx si di
|
||||
xor di,di
|
||||
mov si,[@@pointer]
|
||||
@@strinaize0:
|
||||
mov cl,[si]
|
||||
cmp cl,0
|
||||
je @@no0
|
||||
cmp cl,'%'
|
||||
je @@special
|
||||
cmp cl,'\'
|
||||
je @@special2
|
||||
@@showit:
|
||||
xor ch,ch
|
||||
call [cs:showchars],cx,0FFFFh
|
||||
inc si
|
||||
jmp @@strinaize0
|
||||
@@special:
|
||||
cmp [byte ptr si+1],'%'
|
||||
jne @@notshowit
|
||||
inc si
|
||||
jmp @@showit
|
||||
@@notshowit:
|
||||
mov cl,[byte ptr si+1]
|
||||
cmp cl,'c'
|
||||
je @@showchars
|
||||
cmp cl,'u'
|
||||
je @@showint
|
||||
cmp cl,'v'
|
||||
je @@showfixint
|
||||
cmp cl,'w'
|
||||
je @@showintr
|
||||
cmp cl,'i'
|
||||
je @@showsigned
|
||||
cmp cl,'h'
|
||||
je @@showhex
|
||||
cmp cl,'b'
|
||||
je @@showbin
|
||||
cmp cl,'s'
|
||||
je @@showstring
|
||||
cmp cl,'0'
|
||||
je @@showstring0
|
||||
cmp cl,'y'
|
||||
je @@showbcd
|
||||
cmp cl,'z'
|
||||
je @@showsize
|
||||
cmp cl,'a'
|
||||
je @@showattr
|
||||
cmp cl,'n'
|
||||
je @@showname
|
||||
cmp cl,'t'
|
||||
je @@showtime
|
||||
cmp cl,'d'
|
||||
je @@showdate
|
||||
clc
|
||||
jmp @@no0
|
||||
|
||||
@@showchars:
|
||||
cmp [byte ptr si+2],'M'
|
||||
je @@showmultchar
|
||||
call [cs:showchars],[word ptr @@pointer+di+2],0FFFFh
|
||||
add si,2
|
||||
add di,2
|
||||
jmp @@strinaize0
|
||||
@@showmultchar:
|
||||
mov cx,[offset @@pointer+di+2+2]
|
||||
cmp cx,0
|
||||
je @@nextfunc
|
||||
@@showcharsx:
|
||||
call [cs:showchars],[word ptr @@pointer+di+2],0FFFFh
|
||||
dec cx
|
||||
jnz @@showcharsx
|
||||
@@nextfunc:
|
||||
add si,3
|
||||
add di,4
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showint:
|
||||
call showint,[dword ptr @@pointer+di+2]
|
||||
add si,2
|
||||
add di,4
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showfixint:
|
||||
call showintl,[word ptr @@pointer+di+6],[dword ptr @@pointer+di+2]
|
||||
add di,6
|
||||
add si,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showintr:
|
||||
call showintr,[word ptr @@pointer+di+6],[dword ptr @@pointer+di+2]
|
||||
add di,6
|
||||
add si,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showsigned:
|
||||
call @@Chosesize
|
||||
call showsigned
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showhex:
|
||||
call @@Chosesize
|
||||
call showhex
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showbin:
|
||||
call @@Chosesize
|
||||
call showbin
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showstring:
|
||||
cmp [byte ptr si+2],'P'
|
||||
je @@showstring@@pointer
|
||||
call showstring,[word ptr @@pointer+di+2]
|
||||
add si,2
|
||||
add di,2
|
||||
jmp @@strinaize0
|
||||
@@showstring@@pointer:
|
||||
push ds
|
||||
mov ds,[offset @@pointer+di+2+2]
|
||||
call showstring,[word ptr @@pointer+di+2]
|
||||
add si,3
|
||||
add di,4
|
||||
pop ds
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showstring0:
|
||||
cmp [byte ptr si+2],'P'
|
||||
je @@showstring0@@pointer
|
||||
call showstring0,[word ptr offset @@pointer+di+2]
|
||||
add si,2
|
||||
add di,2
|
||||
jmp @@strinaize0
|
||||
@@showstring0@@pointer:
|
||||
push ds
|
||||
mov ds,[offset @@pointer+di+2+2]
|
||||
call showstring0,[word ptr offset @@pointer+di+2]
|
||||
add si,3
|
||||
add di,4
|
||||
pop ds
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showbcd:
|
||||
call @@Chosesize
|
||||
call showbcd
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showsize:
|
||||
call showsize,[dword ptr offset @@pointer+di+2]
|
||||
add si,2
|
||||
add di,4
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showattr:
|
||||
call showattr,[word ptr offset @@pointer+di+2]
|
||||
add si,2
|
||||
add di,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showname:
|
||||
call showname,[word ptr offset @@pointer+di+2]
|
||||
add si,2
|
||||
add di,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showtime:
|
||||
call showtime,[word ptr offset @@pointer+di+2]
|
||||
add si,2
|
||||
add di,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showdate:
|
||||
call showdate,[word ptr offset @@pointer+di+2]
|
||||
add si,2
|
||||
add di,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@Chosesize:
|
||||
pop cx
|
||||
push [dword ptr offset @@pointer+di+2]
|
||||
add di,4
|
||||
cmp [byte ptr si+2],'B'
|
||||
je @@byte
|
||||
cmp [byte ptr si+2],'W'
|
||||
je @@word
|
||||
cmp [byte ptr si+2],'D'
|
||||
je @@dword
|
||||
dec si
|
||||
|
||||
@@word:
|
||||
push 16
|
||||
add si,3
|
||||
push cx
|
||||
retn
|
||||
|
||||
@@byte:
|
||||
push 8
|
||||
add si,3
|
||||
push cx
|
||||
retn
|
||||
|
||||
@@dword:
|
||||
push 32
|
||||
add si,3
|
||||
push cx
|
||||
retn
|
||||
|
||||
@@special2:
|
||||
cmp [byte ptr si+1],'\'
|
||||
jne @@notshowit2
|
||||
inc si
|
||||
jmp @@showit
|
||||
@@notshowit2:
|
||||
mov cl,[byte ptr si+1]
|
||||
cmp cl,'l'
|
||||
je @@showline
|
||||
cmp cl,'g'
|
||||
je @@goto
|
||||
cmp cl,'h'
|
||||
je @@gotox
|
||||
cmp cl,'c'
|
||||
je @@color
|
||||
cmp cl,'m'
|
||||
je @@setvideomode
|
||||
cmp cl,'e'
|
||||
je @@clearscreen
|
||||
cmp cl,'s'
|
||||
je @@savestate
|
||||
cmp cl,'r'
|
||||
je @@restorestate
|
||||
cmp cl,'i'
|
||||
je @@enablescroll
|
||||
cmp cl,'j'
|
||||
je @@disablescroll
|
||||
cmp cl,'f'
|
||||
je @@setfont
|
||||
clc
|
||||
jmp @@no0
|
||||
|
||||
@@color:
|
||||
mov al,[si+2]
|
||||
sub al,'0'
|
||||
shl al,4
|
||||
add al,[si+3]
|
||||
sub al,'0'
|
||||
xor ah,ah
|
||||
call [cs:setcolor],ax
|
||||
add si,4
|
||||
jmp @@strinaize0
|
||||
|
||||
@@gotox:
|
||||
mov bh,[si+2]
|
||||
sub bh,'0'
|
||||
mov bl,bh
|
||||
shl bl,3
|
||||
add bl,bh
|
||||
add bl,bh
|
||||
add bl,[si+3]
|
||||
sub bl,'0'
|
||||
xor bh,bh
|
||||
call [cs:getxy]
|
||||
xor ah,ah
|
||||
call [cs:setxy],bx,ax
|
||||
add si,4
|
||||
jmp @@strinaize0
|
||||
|
||||
@@setvideomode:
|
||||
mov ah,[si+2]
|
||||
sub ah,'0'
|
||||
mov al,ah
|
||||
shl al,3
|
||||
add al,ah
|
||||
add al,ah
|
||||
add al,[si+3]
|
||||
sub al,'0'
|
||||
xor ah,ah
|
||||
call [cs:setvideomode],ax
|
||||
add si,4
|
||||
jmp @@strinaize0
|
||||
|
||||
@@setfont:
|
||||
mov ah,[si+2]
|
||||
sub ah,'0'
|
||||
mov al,ah
|
||||
shl al,3
|
||||
add al,ah
|
||||
add al,ah
|
||||
add al,[si+3]
|
||||
sub al,'0'
|
||||
xor ah,ah
|
||||
call [cs:setfont],ax
|
||||
add si,4
|
||||
jmp @@strinaize0
|
||||
|
||||
@@showline:
|
||||
call [cs:addline]
|
||||
add si,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@clearscreen:
|
||||
call [cs:clearscreen]
|
||||
add si,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@savestate:
|
||||
call [cs:savestate]
|
||||
add si,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@restorestate:
|
||||
call [cs:restorestate]
|
||||
add si,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@enablescroll:
|
||||
call [cs:enablescroll]
|
||||
add si,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@disablescroll:
|
||||
call [cs:disablescroll]
|
||||
add si,2
|
||||
jmp @@strinaize0
|
||||
|
||||
@@goto:
|
||||
mov ah,[si+2]
|
||||
sub ah,'0'
|
||||
mov al,ah
|
||||
shl al,3
|
||||
add al,ah
|
||||
add al,ah
|
||||
add al,[si+3]
|
||||
sub al,'0'
|
||||
xor ah,ah
|
||||
;
|
||||
mov bh,[si+5]
|
||||
sub bh,'0'
|
||||
mov bl,bh
|
||||
shl bl,3
|
||||
add bl,bh
|
||||
add bl,bh
|
||||
add bl,[si+6]
|
||||
sub bl,'0'
|
||||
xor bh,bh
|
||||
call [cs:setxy],ax,bx
|
||||
add si,7
|
||||
jmp @@strinaize0
|
||||
|
||||
@@no0:
|
||||
add di,bp
|
||||
mov ax,[ss:bp] ;BP
|
||||
mov bx,[ss:bp+2] ;IP
|
||||
mov cx,[ss:bp+4] ;CS
|
||||
mov [ss:di],ax
|
||||
mov [ss:di+2],bx
|
||||
mov [ss:di+4],cx
|
||||
mov bp,di
|
||||
pop di si cx bx ax
|
||||
mov sp,bp
|
||||
ret
|
||||
ENDP print
|
||||
|
||||
|
||||
;================SHOWDATE==============
|
||||
;Affiche la date contenu en %0
|
||||
;-> %0
|
||||
;<-
|
||||
;======================================
|
||||
PROC showdate FAR
|
||||
ARG @dates:word
|
||||
USES edx
|
||||
xor edx,edx
|
||||
mov dx,[@dates]
|
||||
and dx,11111b
|
||||
call showintl,2,edx
|
||||
call [cs:showchars],'/',0FFFFh
|
||||
mov dx,[@dates]
|
||||
shr dx,5
|
||||
and dx,111b
|
||||
call showintl,2,edx
|
||||
call [cs:showchars],'/',0FFFFh
|
||||
mov dx,[@dates]
|
||||
shr dx,8
|
||||
and dx,11111111b
|
||||
add dx,1956
|
||||
call showintl,2,edx
|
||||
ret
|
||||
ENDP showdate
|
||||
|
||||
;================SHOWTIME==============
|
||||
;Affiche l'heure contenu en %0
|
||||
;-> %0
|
||||
;<-
|
||||
;======================================
|
||||
PROC showtime FAR
|
||||
ARG @times:word
|
||||
USES edx
|
||||
xor edx,edx
|
||||
mov dx,[@times]
|
||||
shr dx,11
|
||||
and dx,11111b
|
||||
call showintl,2,edx
|
||||
call [cs:showchars],':',0FFFFh
|
||||
mov dx,[@times]
|
||||
shr dx,5
|
||||
and dx,111111b
|
||||
call showintl,2,edx
|
||||
call [cs:showchars],':',0FFFFh
|
||||
mov dx,[@times]
|
||||
and dx,11111b
|
||||
shl dx,1
|
||||
call showintl,2,edx
|
||||
ret
|
||||
ENDP showtime
|
||||
|
||||
;================SHOWNAME==============
|
||||
;Affiche le nom pointé par ds:%0
|
||||
;-> ds:%0
|
||||
;<-
|
||||
;======================================
|
||||
PROC showname FAR
|
||||
ARG @thename:word
|
||||
USES cx,si
|
||||
mov si,[@thename]
|
||||
xor cx,cx
|
||||
@@showthename:
|
||||
call [cs:showchars],[word ptr ds:si],0FFFFh
|
||||
inc si
|
||||
inc cx
|
||||
cmp cx,8
|
||||
jne @@suiteaname
|
||||
call [cs:showchars],' ',0FFFFh
|
||||
@@suiteaname:
|
||||
cmp cx,8+3
|
||||
jb @@showthename
|
||||
ret
|
||||
ENDP showname
|
||||
|
||||
;================SHOWATTR==============
|
||||
;Affiche les attributs spécifié par %0
|
||||
;-> %0
|
||||
;<-
|
||||
;======================================
|
||||
PROC showattr FAR
|
||||
ARG @attr:word
|
||||
push 0FFFFh
|
||||
test [@attr],00000001b
|
||||
je @@noreadonly
|
||||
push 'L'
|
||||
jmp @@readonly
|
||||
@@noreadonly:
|
||||
push '-'
|
||||
@@readonly:
|
||||
call [cs:showchars]
|
||||
push 0FFFFh
|
||||
test [@attr],00000010b
|
||||
je @@nohidden
|
||||
push 'C'
|
||||
jmp @@hidden
|
||||
@@nohidden:
|
||||
push '-'
|
||||
@@hidden:
|
||||
call [cs:showchars]
|
||||
push 0FFFFh
|
||||
test [@attr],00000100b
|
||||
je @@nosystem
|
||||
push 'S'
|
||||
jmp @@system
|
||||
@@nosystem:
|
||||
push '-'
|
||||
@@system:
|
||||
call [cs:showchars]
|
||||
push 0FFFFh
|
||||
test [@attr],00100000b
|
||||
je @@noarchive
|
||||
push 'A'
|
||||
jmp @@archive
|
||||
@@noarchive:
|
||||
push '-'
|
||||
@@archive:
|
||||
call [cs:showchars]
|
||||
push 0FFFFh
|
||||
test [@attr],00010000b
|
||||
je @@nodirectory
|
||||
push 'R'
|
||||
jmp @@directory
|
||||
@@nodirectory:
|
||||
push '-'
|
||||
@@directory:
|
||||
call [cs:showchars]
|
||||
ret
|
||||
ENDP showattr
|
||||
|
||||
;================SHOWSIZE==============
|
||||
;Affiche le nom pointé par %0
|
||||
;-> %0
|
||||
;<-
|
||||
;======================================
|
||||
PROC showsize FAR
|
||||
ARG @thesize:dword
|
||||
USES edx,ds
|
||||
push cs
|
||||
pop ds
|
||||
mov edx,[@thesize]
|
||||
cmp edx,1073741824
|
||||
ja @@giga
|
||||
cmp edx,1048576*9
|
||||
ja @@mega
|
||||
cmp edx,1024*9
|
||||
ja @@kilo
|
||||
call showintr,4,edx
|
||||
call showstring0,offset unit
|
||||
jmp @@finsize
|
||||
@@kilo:
|
||||
shr edx,10
|
||||
call showintr,4,edx
|
||||
call showstring0,offset unitkilo
|
||||
jmp @@finsize
|
||||
@@mega:
|
||||
shr edx,20
|
||||
call showintr,4,edx
|
||||
call showstring0,offset unitmega
|
||||
jmp @@finsize
|
||||
@@giga:
|
||||
shr edx,30
|
||||
call showintr,4,edx
|
||||
call showstring0,offset unitgiga
|
||||
@@finsize:
|
||||
ret
|
||||
|
||||
unit db ' o ',0
|
||||
unitkilo db ' ko',0
|
||||
unitmega db ' mo',0
|
||||
unitgiga db ' go',0
|
||||
ENDP showsize
|
||||
|
||||
;==========SHOWSPACE===========
|
||||
;met un espace aprés le curseur
|
||||
;->
|
||||
;<-
|
||||
;==============================
|
||||
PROC showspace FAR
|
||||
call [cs:showchars],' ',0FFFFh
|
||||
clc
|
||||
ret
|
||||
ENDP showspace
|
||||
|
||||
|
||||
;==========SHOWINT===========
|
||||
;Affiche un entier %0 aprés le curseur
|
||||
;-> %0
|
||||
;<-
|
||||
;============================
|
||||
PROC showint FAR
|
||||
ARG @integer:dword
|
||||
USES eax,bx,cx,edx,esi
|
||||
xor cx,cx
|
||||
mov eax,[@integer]
|
||||
mov esi,10
|
||||
mov bx,offset showbuffer+27
|
||||
@@decint:
|
||||
xor edx,edx
|
||||
div esi
|
||||
add dl,'0'
|
||||
inc cx
|
||||
mov [cs:bx],dl
|
||||
dec bx
|
||||
cmp ax,0
|
||||
jne @@decint
|
||||
mov ax,cx
|
||||
@@showinteger:
|
||||
inc bx
|
||||
mov cl,[cs:bx]
|
||||
call [cs:showchars],cx,0FFFFh
|
||||
dec ax
|
||||
jnz @@showinteger
|
||||
ret
|
||||
|
||||
showbuffer db 50 dup (0FFh)
|
||||
ENDP showint
|
||||
|
||||
;==========SHOWINTL===========
|
||||
;Affiche un entier %0 aprés le curseur de taille %1 caractère centré a gauche
|
||||
;-> %0 un entier % taille en caractères
|
||||
;<-
|
||||
;===============================
|
||||
PROC showintl FAR
|
||||
ARG @sizeofint:word,@integer:dword
|
||||
USES eax,bx,cx,edx,esi,di
|
||||
mov di,[@sizeofint]
|
||||
xor cx,cx
|
||||
mov eax,[@integer]
|
||||
mov esi,10
|
||||
mov bx,offset showbuffer+27
|
||||
@@decint:
|
||||
xor edx,edx
|
||||
div esi
|
||||
add dl,'0'
|
||||
inc cx
|
||||
mov [cs:bx],dl
|
||||
dec bx
|
||||
cmp cx,di
|
||||
jae @@nomuch
|
||||
cmp ax,0
|
||||
jne @@decint
|
||||
mov ax,di
|
||||
xchg cx,di
|
||||
sub cx,di
|
||||
@@rego:
|
||||
mov [byte ptr cs:bx],'0'
|
||||
dec bx
|
||||
dec cx
|
||||
jnz @@rego
|
||||
jmp @@finishim
|
||||
@@nomuch:
|
||||
mov ax,di
|
||||
@@finishim:
|
||||
@@showinteger:
|
||||
inc bx
|
||||
mov cl,[cs:bx]
|
||||
call [cs:showchars],cx,0FFFFh
|
||||
dec ax
|
||||
jnz @@showinteger
|
||||
ret
|
||||
ENDP showintl
|
||||
|
||||
;==========SHOWINTR===========
|
||||
;Affiche un entier %0 aprés le curseur de taille %1 caractère centré a droite
|
||||
;-> %0 un entier % taille en caractères
|
||||
;<-
|
||||
;===============================
|
||||
PROC showintr FAR
|
||||
ARG @sizeofint:word,@integer:dword
|
||||
USES eax,bx,cx,edx,esi,di
|
||||
mov di,[@sizeofint]
|
||||
xor cx,cx
|
||||
mov eax,[@integer]
|
||||
mov esi,10
|
||||
mov bx,offset showbuffer+27
|
||||
@@decint:
|
||||
xor edx,edx
|
||||
div esi
|
||||
add dl,'0'
|
||||
inc cx
|
||||
mov [cs:bx],dl
|
||||
dec bx
|
||||
cmp cx,di
|
||||
jae @@nomuch
|
||||
cmp ax,0
|
||||
jne @@decint
|
||||
mov ax,di
|
||||
xchg cx,di
|
||||
sub cx,di
|
||||
@@rego:
|
||||
mov [byte ptr cs:bx],' '
|
||||
dec bx
|
||||
dec cx
|
||||
jnz @@rego
|
||||
jmp @@finishim
|
||||
@@nomuch:
|
||||
mov ax,di
|
||||
@@finishim:
|
||||
@@showinteger:
|
||||
inc bx
|
||||
mov cl,[cs:bx]
|
||||
call [cs:showchars],cx,0FFFFh
|
||||
dec ax
|
||||
jnz @@showinteger
|
||||
ret
|
||||
ENDP showintr
|
||||
|
||||
;==========SHOWSIGNED===========
|
||||
;Affiche un entier %0 de taille %1 aprés le curseur
|
||||
;-> %0 un entier, %1 la taille
|
||||
;<-
|
||||
;===============================
|
||||
PROC showsigned FAR
|
||||
ARG @sizeofint:word,@integer:dword=taille
|
||||
USES ebx,cx,edx
|
||||
mov ebx,[@integer]
|
||||
mov cx,[@sizeofint]
|
||||
xor edx,edx
|
||||
cmp cx,1
|
||||
ja @@signed16
|
||||
mov dl,bl
|
||||
cmp dl,7Fh
|
||||
jbe @@notsigned
|
||||
neg dl
|
||||
jmp @@showminus
|
||||
@@signed16:
|
||||
cmp cx,2
|
||||
ja @@signed32
|
||||
mov dx,bx
|
||||
cmp dx,7FFFh
|
||||
jbe @@notsigned
|
||||
neg dx
|
||||
jmp @@showminus
|
||||
@@signed32:
|
||||
mov edx,ebx
|
||||
cmp edx,7FFFFFFFh
|
||||
jbe @@notsigned
|
||||
neg edx
|
||||
@@showminus:
|
||||
call [cs:showchars],'-',0FFFFh
|
||||
@@notsigned:
|
||||
call showint,edx
|
||||
ret
|
||||
ENDP showsigned
|
||||
|
||||
;==========SHOWHEX===========
|
||||
;Affiche un nombre hexadécimal %0 de taille %1 aprés le curseur
|
||||
;-> %0 un entier, %1 la taille
|
||||
;<-
|
||||
;============================
|
||||
PROC showhex FAR
|
||||
ARG @sizeofint:word,@integer:dword=taille
|
||||
USES ax,bx,cx,edx
|
||||
mov edx,[@integer]
|
||||
mov cx,[@sizeofint]
|
||||
mov ax,cx
|
||||
shr ax,2
|
||||
sub cx,32
|
||||
neg cx
|
||||
shl edx,cl
|
||||
@@Hexaize:
|
||||
rol edx,4
|
||||
mov bx,dx
|
||||
and bx,0fh
|
||||
mov cl,[cs:bx+offset Tab]
|
||||
call [cs:showchars],cx,0FFFFh
|
||||
dec al
|
||||
jnz @@Hexaize
|
||||
ret
|
||||
|
||||
Tab db '0123456789ABCDEF'
|
||||
ENDP showhex
|
||||
|
||||
;==========SHOWBIN===========
|
||||
;Affiche un nombre binaire %0 de taille %1 aprés le curseur
|
||||
;-> %0 un entier, %1 la taille
|
||||
;<-
|
||||
;============================
|
||||
PROC showbin FAR
|
||||
ARG @sizeofint:word,@integer:dword=taille
|
||||
USES ax,cx,edx
|
||||
mov edx,[@integer]
|
||||
mov cx,[@sizeofint]
|
||||
sub cx,32
|
||||
neg cx
|
||||
shl edx,cl
|
||||
mov ax,[@sizeofint]
|
||||
@@binaize:
|
||||
rol edx,1
|
||||
mov cl,'0'
|
||||
adc cl,0
|
||||
call [cs:showchars],cx,0FFFFh
|
||||
dec al
|
||||
jnz @@binaize
|
||||
ret
|
||||
ENDP showbin
|
||||
|
||||
;==========SHOWBCD===========
|
||||
;Affiche un nombre en BCD %0 de taille %1 aprés le curseur
|
||||
;-> %0 un entier, %1 la taille
|
||||
;<-
|
||||
;============================
|
||||
PROC showbcd FAR
|
||||
ARG @sizeofint:word,@integer:dword
|
||||
USES ax,cx,edx
|
||||
mov edx,[@integer]
|
||||
mov ax,[@sizeofint]
|
||||
mov cx,ax
|
||||
shr ax,2
|
||||
sub cx,32
|
||||
neg cx
|
||||
shl edx,cl
|
||||
@@BCDaize:
|
||||
rol edx,4
|
||||
mov cl,dl
|
||||
and cl,0fh
|
||||
add cl,'0'
|
||||
call [cs:showchars],cx,0FFFFh
|
||||
dec al
|
||||
jnz @@BCDaize
|
||||
ret
|
||||
ENDP showbcd
|
||||
|
||||
;==========SHOWSTRING===========
|
||||
;Affiche une chaine de caractère pointée par ds:%1 aprés le curseur
|
||||
;-> ds:%1 pointeur chaine type pascal
|
||||
;<-
|
||||
;===============================
|
||||
PROC showstring FAR
|
||||
ARG @pointer:word
|
||||
USES bx,si
|
||||
mov si,[@pointer]
|
||||
mov bl,[si]
|
||||
@@strinaize:
|
||||
inc si
|
||||
call [cs:showchars],[word ptr si],0FFFFh
|
||||
dec bl
|
||||
jnz @@strinaize
|
||||
ret
|
||||
ENDP showstring
|
||||
|
||||
;==========showchars===========
|
||||
;Affiche un caractère %0 aprés le curseur
|
||||
;-> %0 caractère
|
||||
;<-
|
||||
;===============================
|
||||
PROC showchar FAR
|
||||
ARG @pointer:word
|
||||
call [cs:showchars],[@pointer],0FFFFh
|
||||
ret
|
||||
ENDP showchar
|
||||
|
||||
;==========SHOWSTRING0===========
|
||||
;Affiche une chaine de caractère pointée par ds:%1 aprés le curseur
|
||||
;-> ds:%1 pointeur chaine type zéro terminal
|
||||
;<-
|
||||
;================================
|
||||
PROC showstring0 FAR
|
||||
ARG @pointer:word
|
||||
USES cx,si
|
||||
mov si,[@pointer]
|
||||
@@strinaize0:
|
||||
mov cl,[si]
|
||||
cmp cl,0
|
||||
je @@no0
|
||||
call [cs:showchars],cx,0FFFFh
|
||||
inc si
|
||||
jmp @@strinaize0
|
||||
@@no0:
|
||||
ret
|
||||
ENDP showstring0
|
||||
|
||||
Loading…
Reference in New Issue