feat: version bêta 1.3.2fr
This commit is contained in:
parent
8d0fd22134
commit
e8f7d8a1e7
|
|
@ -0,0 +1,23 @@
|
||||||
|
asm= lzasm /z/t
|
||||||
|
lnk= elink
|
||||||
|
|
||||||
|
all: exem-lib.lib exem-ce.ce pmode.ce isa.ce editeur.ce volume.ce test.ce verifier.ce gestion.ce logo.ce souris.ce
|
||||||
|
|
||||||
|
.asm.obj:
|
||||||
|
$(asm) $<
|
||||||
|
|
||||||
|
.obj.ce:
|
||||||
|
$(lnk) $< $*.ce
|
||||||
|
|
||||||
|
.obj.lib:
|
||||||
|
$(lnk) $< $*.lib
|
||||||
|
|
||||||
|
clean:
|
||||||
|
del *.obj
|
||||||
|
del *.ce
|
||||||
|
del *.bak
|
||||||
|
del *.lib
|
||||||
|
del *.com
|
||||||
|
del *.bin
|
||||||
|
del *.sys
|
||||||
|
del *.err
|
||||||
Binary file not shown.
|
After Width: | Height: | Size: 15 KiB |
|
|
@ -0,0 +1,355 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
include "..\include\graphic.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,offset imports,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
mov ax,0305h
|
||||||
|
mov bx,0008h
|
||||||
|
int 16h
|
||||||
|
call [savestate]
|
||||||
|
call [setvideomode],2
|
||||||
|
xor ebp,ebp
|
||||||
|
xor ax,ax
|
||||||
|
mov fs,ax
|
||||||
|
call [disablescroll]
|
||||||
|
adres:
|
||||||
|
call [saveparamto],offset infos
|
||||||
|
mov al,[infos.lines]
|
||||||
|
dec al
|
||||||
|
mov [lastline],al
|
||||||
|
mov al,[infos.columns]
|
||||||
|
sub al,16
|
||||||
|
mov bl,al
|
||||||
|
shr al,2
|
||||||
|
mov [sizex],al
|
||||||
|
and bl,11b
|
||||||
|
mov [sizex2],bl
|
||||||
|
mov al,[infos.mode]
|
||||||
|
cmp al,[oldmode]
|
||||||
|
je noinit
|
||||||
|
call [clearscreen]
|
||||||
|
mov [oldmode],al
|
||||||
|
noinit:
|
||||||
|
call [setxy],0,0
|
||||||
|
mov edi,ebp
|
||||||
|
mov bh,[lastline]
|
||||||
|
lines:
|
||||||
|
xor edx,edx
|
||||||
|
mov dx,di
|
||||||
|
push edx
|
||||||
|
mov edx,edi
|
||||||
|
shr edx,4*4
|
||||||
|
shl edx,4*3
|
||||||
|
push edx
|
||||||
|
push offset spaces
|
||||||
|
call [print]
|
||||||
|
mov dx,di
|
||||||
|
mov al,[sizex]
|
||||||
|
mov esi,edi
|
||||||
|
doaline:
|
||||||
|
mov edx,edi
|
||||||
|
shr edx,4*4
|
||||||
|
shl edx,4*3
|
||||||
|
mov fs,dx
|
||||||
|
push [dword ptr fs:di]
|
||||||
|
push 8
|
||||||
|
call [showhex]
|
||||||
|
call [showchar],' '
|
||||||
|
inc edi
|
||||||
|
dec al
|
||||||
|
jnz doaline
|
||||||
|
mov edi,esi
|
||||||
|
push offset spaces2
|
||||||
|
call [print]
|
||||||
|
mov al,[sizex]
|
||||||
|
doaline2:
|
||||||
|
mov edx,edi
|
||||||
|
shr edx,4*4
|
||||||
|
shl edx,4*3
|
||||||
|
mov fs,dx
|
||||||
|
push [word ptr fs:di]
|
||||||
|
call [showchar]
|
||||||
|
inc edi
|
||||||
|
dec al
|
||||||
|
jnz doaline2
|
||||||
|
dec bh
|
||||||
|
je outes
|
||||||
|
cmp [sizex2],0
|
||||||
|
je lines
|
||||||
|
call [addline]
|
||||||
|
jmp lines
|
||||||
|
outes:
|
||||||
|
call [setxy],0,[word ptr lastline]
|
||||||
|
call [print],offset menu
|
||||||
|
waitkey:
|
||||||
|
mov ax,0
|
||||||
|
int 16h
|
||||||
|
cmp ax,3B00h
|
||||||
|
jne suit
|
||||||
|
inc ebp
|
||||||
|
jmp adres
|
||||||
|
suit:
|
||||||
|
cmp ax,3C00h
|
||||||
|
jne suit2
|
||||||
|
dec ebp
|
||||||
|
jmp adres
|
||||||
|
suit2:
|
||||||
|
cmp ax,3D00h
|
||||||
|
jne suit3
|
||||||
|
add ebp,24*16
|
||||||
|
jmp adres
|
||||||
|
suit3:
|
||||||
|
cmp ax,3E00h
|
||||||
|
jne suit4
|
||||||
|
sub ebp,24*16
|
||||||
|
jmp adres
|
||||||
|
suit4:
|
||||||
|
cmp ax,3F00h
|
||||||
|
jne suit5
|
||||||
|
add ebp,010000h
|
||||||
|
jmp adres
|
||||||
|
suit5:
|
||||||
|
cmp ax,4000h
|
||||||
|
jne suit6
|
||||||
|
sub ebp,010000h
|
||||||
|
jmp adres
|
||||||
|
suit6:
|
||||||
|
cmp ax,4100h
|
||||||
|
jne suit7
|
||||||
|
mov [dword ptr pope],'TIDE'
|
||||||
|
call [setxy],0,[word ptr lastline]
|
||||||
|
call [print],offset menu
|
||||||
|
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],' EUV'
|
||||||
|
push cs
|
||||||
|
pop es
|
||||||
|
jmp adres
|
||||||
|
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,[lastline]
|
||||||
|
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 edi,[es:bx-1]
|
||||||
|
mov dx,[es:si-1]
|
||||||
|
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 [gs:bx],ch
|
||||||
|
pusha
|
||||||
|
popa
|
||||||
|
mov cl,[gs:bx]
|
||||||
|
cmp ch,cl
|
||||||
|
je no
|
||||||
|
push si ax
|
||||||
|
call [setxy],0,[word ptr lastline]
|
||||||
|
call [print],offset msg
|
||||||
|
mov ax,0
|
||||||
|
int 16h
|
||||||
|
call [setxy],0,[word ptr lastline]
|
||||||
|
call [print],offset menu
|
||||||
|
pop bx si
|
||||||
|
mov [es:bx-1],edi
|
||||||
|
mov [es:si-1],dx
|
||||||
|
no:
|
||||||
|
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 adres
|
||||||
|
call [restorestate]
|
||||||
|
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
|
||||||
|
mov dx,[xx]
|
||||||
|
shl dx,1
|
||||||
|
add si,dx
|
||||||
|
add si,129
|
||||||
|
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 ebx,ebx
|
||||||
|
mov bx,[xx]
|
||||||
|
mov dx,[yy]
|
||||||
|
shl dx,4
|
||||||
|
add bx,dx
|
||||||
|
add ebx,ebp
|
||||||
|
mov edx,ebx
|
||||||
|
shr edx,4*4
|
||||||
|
shl edx,4*3
|
||||||
|
mov gs,dx
|
||||||
|
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
|
||||||
|
|
||||||
|
xx dw 0
|
||||||
|
yy dw 0
|
||||||
|
xxyy dw 3
|
||||||
|
xxyy2 dw 3
|
||||||
|
|
||||||
|
lastline db 0
|
||||||
|
sizex db 0
|
||||||
|
sizex2 db 0
|
||||||
|
|
||||||
|
dep db ':',0
|
||||||
|
msg db '\c74Erreur : zone non modifiable (ROM) pressez une touche pour continuer ',0
|
||||||
|
menu db '\c70haut/bas [F1/2] Offset [F3/4] Segment [F5/6] Mode F7, Quitter F8 MODE '
|
||||||
|
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 vgainf <>
|
||||||
|
|
||||||
|
importing
|
||||||
|
use VIDEO,setvideomode
|
||||||
|
use VIDEO,savestate
|
||||||
|
use VIDEO,restorestate
|
||||||
|
use VIDEO,setxy
|
||||||
|
use VIDEO,addline
|
||||||
|
use VIDEO,saveparamto
|
||||||
|
use VIDEO,disablescroll
|
||||||
|
use VIDEO,clearscreen
|
||||||
|
use VIDEO.LIB,print
|
||||||
|
use VIDEO.LIB,showhex
|
||||||
|
use VIDEO.LIB,showchar
|
||||||
|
endi
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -0,0 +1,26 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,offset imports,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
call [print],offset message
|
||||||
|
call [waitkey]
|
||||||
|
retf
|
||||||
|
|
||||||
|
message db 'Appel de la librairie \c02video\c07 et de la librairie \c02EXEM-LIB.LIB\c07 !',0
|
||||||
|
|
||||||
|
importing
|
||||||
|
use VIDEO.LIB,print
|
||||||
|
use EXEM-LIB.LIB,waitkey
|
||||||
|
endi
|
||||||
|
|
@ -0,0 +1,24 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,offset exports,,,>
|
||||||
|
|
||||||
|
waitkey:
|
||||||
|
mov ax,0
|
||||||
|
int 16h
|
||||||
|
retf
|
||||||
|
|
||||||
|
exporting
|
||||||
|
|
||||||
|
declare waitkey
|
||||||
|
ende
|
||||||
|
|
@ -0,0 +1,117 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\fat.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
include "..\include\graphic.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,offset imports,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
call [saveparamto],offset infos
|
||||||
|
call [print],offset msg1
|
||||||
|
call [initdrive]
|
||||||
|
xor bp,bp
|
||||||
|
call [findfirstfile],offset bufferentry
|
||||||
|
jc nofiles
|
||||||
|
go:
|
||||||
|
push [word bufferentry.result.fileattr]
|
||||||
|
push [bufferentry.result.filesize]
|
||||||
|
push [bufferentry.result.filetime]
|
||||||
|
push [bufferentry.result.filedate]
|
||||||
|
push [bufferentry.result.filetimecrea]
|
||||||
|
push [bufferentry.result.filedatecrea]
|
||||||
|
mov bx,offset bufferentry.result.filename
|
||||||
|
push bx
|
||||||
|
push offset line
|
||||||
|
call [print]
|
||||||
|
|
||||||
|
call [findnextfile],offset bufferentry
|
||||||
|
jc nofiles
|
||||||
|
inc bp
|
||||||
|
jmp go
|
||||||
|
nofiles:
|
||||||
|
call [print],offset menu
|
||||||
|
mov [xx],1
|
||||||
|
call changelineattr,[xx],112
|
||||||
|
endof:
|
||||||
|
mov ax,0
|
||||||
|
int 16h
|
||||||
|
cmp ah,50h
|
||||||
|
jne tre1
|
||||||
|
cmp [xx],bp
|
||||||
|
ja endof
|
||||||
|
call changelineattr,[xx],7
|
||||||
|
inc [xx]
|
||||||
|
call changelineattr,[xx],112
|
||||||
|
jmp endof
|
||||||
|
tre1:
|
||||||
|
cmp ah,48h
|
||||||
|
jne tre2
|
||||||
|
cmp [xx],1
|
||||||
|
je endof
|
||||||
|
call changelineattr,[xx],7
|
||||||
|
dec [xx]
|
||||||
|
call changelineattr,[xx],112
|
||||||
|
jmp endof
|
||||||
|
tre2:
|
||||||
|
cmp al,0Dh
|
||||||
|
jne tre3
|
||||||
|
tre3:
|
||||||
|
cmp ah,59
|
||||||
|
jne tre4
|
||||||
|
jmp realstart
|
||||||
|
tre4:
|
||||||
|
cmp ah,67
|
||||||
|
jne endof
|
||||||
|
retf
|
||||||
|
|
||||||
|
;couleur al pour ligne %0 en %1
|
||||||
|
PROC changelineattr near
|
||||||
|
USES ax,bx,di,es
|
||||||
|
ARG @line:word,@attr:word
|
||||||
|
mov ax,0B800h
|
||||||
|
mov es,ax
|
||||||
|
mov ax,[@line]
|
||||||
|
add ax,3
|
||||||
|
mul [cs:infos.columns]
|
||||||
|
mov di,ax
|
||||||
|
shl di,1
|
||||||
|
mov al,[cs:infos.columns]
|
||||||
|
inc di
|
||||||
|
mov bx,[@attr]
|
||||||
|
@@popep:
|
||||||
|
mov [es:di],bl
|
||||||
|
add di,2
|
||||||
|
dec al
|
||||||
|
jnz @@popep
|
||||||
|
ret
|
||||||
|
endp changelineattr
|
||||||
|
|
||||||
|
xx dw 1
|
||||||
|
xxold dw 0
|
||||||
|
menu db '\c70 [F1] Lire disque [F9] Quitter \c07',0
|
||||||
|
msg1 db '\e\g00,00\c70 Gestionnaire de fichier Version 1.5 '
|
||||||
|
db '\g00,01\c07--------------------------------------------------------------------------------'
|
||||||
|
db '\g00,02Nom Ext. Date creation Date modification Taille Attributs'
|
||||||
|
db '\g00,03-------------------------------------------------------------------------------\l',0
|
||||||
|
line db '\c07%n %d %t %d %t %z %a\l',0
|
||||||
|
bufferentry find <>
|
||||||
|
infos vgainf <>
|
||||||
|
|
||||||
|
importing
|
||||||
|
use VIDEO.LIB,print
|
||||||
|
use VIDEO,saveparamto
|
||||||
|
use DISQUE,initdrive
|
||||||
|
use DISQUE,findfirstfile
|
||||||
|
use DISQUE,findnextfile
|
||||||
|
endi
|
||||||
|
|
||||||
|
|
@ -0,0 +1,46 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
retf
|
||||||
|
|
||||||
|
PNP_ADR_PORT equ 0x279
|
||||||
|
PNP_WRITE_PORT equ 0xA79
|
||||||
|
;MIN and MAX READ_ADDR must have the bottom two bits set
|
||||||
|
MIN_READ_ADDR equ 0x203
|
||||||
|
MAX_READ_ADDR equ 0x3FF
|
||||||
|
;READ_ADDR_STEP must be a multiple of 4
|
||||||
|
READ_ADDR_STEP equ 8
|
||||||
|
|
||||||
|
;bits
|
||||||
|
CONFIG_WAIT_FOR_KEY equ 0x02
|
||||||
|
CONFIG_RESET_CSN equ 0x04
|
||||||
|
IDENT_LEN equ 9
|
||||||
|
|
||||||
|
;renvoie le timer en ax
|
||||||
|
ctc:
|
||||||
|
cli
|
||||||
|
mov dx,043h
|
||||||
|
mov al,0
|
||||||
|
out dx,al
|
||||||
|
mov dx,40h
|
||||||
|
in al,dx
|
||||||
|
mov ah,al
|
||||||
|
in al,dx
|
||||||
|
sti
|
||||||
|
ret
|
||||||
|
|
||||||
|
;attend pendant ax microsecondes
|
||||||
|
usleep:
|
||||||
|
|
@ -0,0 +1,91 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,offset imports,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
call [cs:mballoc],65535
|
||||||
|
jc problem3
|
||||||
|
push ax
|
||||||
|
pop es
|
||||||
|
call [cs:projfile],offset logo
|
||||||
|
jc problem
|
||||||
|
mov ecx,eax
|
||||||
|
call [cs:mbfind],offset logo
|
||||||
|
jc problem
|
||||||
|
call [cs:decompressrle],ax,0,es,0,cx
|
||||||
|
jc problem2
|
||||||
|
push es
|
||||||
|
pop ds
|
||||||
|
call [cs:savestate]
|
||||||
|
call [cs:setvideomode],word 8
|
||||||
|
call [cs:clearscreen]
|
||||||
|
call [cs:loadbmppalet],word 0
|
||||||
|
call [cs:showbmp],word 0,word 20,word 150
|
||||||
|
jc problem4
|
||||||
|
push cs
|
||||||
|
pop ds
|
||||||
|
call [cs:print],offset poper
|
||||||
|
endofit:
|
||||||
|
xor ax,ax
|
||||||
|
int 16h
|
||||||
|
call [cs:restorestate]
|
||||||
|
retf
|
||||||
|
|
||||||
|
problem:
|
||||||
|
push cs
|
||||||
|
pop ds
|
||||||
|
call [cs:print],offset error
|
||||||
|
jmp endofit
|
||||||
|
|
||||||
|
problem2:
|
||||||
|
push cs
|
||||||
|
pop ds
|
||||||
|
call [cs:print],offset error2
|
||||||
|
jmp endofit
|
||||||
|
|
||||||
|
problem3:
|
||||||
|
push cs
|
||||||
|
pop ds
|
||||||
|
call [cs:print],offset error3
|
||||||
|
jmp endofit
|
||||||
|
|
||||||
|
problem4:
|
||||||
|
push cs
|
||||||
|
pop ds
|
||||||
|
call [cs:print],offset error4
|
||||||
|
jmp endofit
|
||||||
|
|
||||||
|
poper db '\c0BC\c0CO\c0DS\c0E2\c0E0\c0E0\c0F0 en mode graphique',0
|
||||||
|
logo db 'COS.RIP',0
|
||||||
|
ok1 db 'Chargement de l''image OK',0
|
||||||
|
ok2 db 'Decompression de l''image OK',0
|
||||||
|
error3 db '\c04Une erreur est apparue lors de l''allocation de mémoire',0
|
||||||
|
error db '\c04Une erreur est apparue lors du chargement de l''image',0
|
||||||
|
error2 db '\c04Une erreur est apparue lors de la decompression de l''image',0
|
||||||
|
error4 db '\c0FUne erreur est apparue lors de l''affichage de l''image',0
|
||||||
|
|
||||||
|
|
||||||
|
importing
|
||||||
|
use VIDEO,restorestate
|
||||||
|
use VIDEO,savestate
|
||||||
|
use VIDEO,setvideomode
|
||||||
|
use VIDEO,clearscreen
|
||||||
|
use DISQUE,decompressrle
|
||||||
|
use DISQUE,projfile
|
||||||
|
use SYSTEME,mbfind
|
||||||
|
use SYSTEME,mballoc
|
||||||
|
use VIDEO.LIB,print
|
||||||
|
use BMP.LIB,showbmp
|
||||||
|
use BMP.LIB,loadbmppalet
|
||||||
|
endi
|
||||||
|
|
@ -0,0 +1,471 @@
|
||||||
|
.model tiny
|
||||||
|
.486
|
||||||
|
smart
|
||||||
|
.code
|
||||||
|
org 0100h
|
||||||
|
start:
|
||||||
|
;call setemettor
|
||||||
|
call getfirstlpt
|
||||||
|
call initlpt
|
||||||
|
call receivecommand
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
gogo db 'Salut'
|
||||||
|
gotoz db 23 dup (0)
|
||||||
|
|
||||||
|
;Re‡ois une commande et l'execute
|
||||||
|
Receivecommand:
|
||||||
|
push ax bx cx di es
|
||||||
|
push cs
|
||||||
|
pop es
|
||||||
|
mov di,offset command
|
||||||
|
call receivelptblock
|
||||||
|
mov bl,al
|
||||||
|
xor bh,bh
|
||||||
|
shl bx,1
|
||||||
|
add bx,offset cmd
|
||||||
|
call [bx]
|
||||||
|
pop es di cx ax
|
||||||
|
ret
|
||||||
|
command db 25 dup (0)
|
||||||
|
cmd dw nothings
|
||||||
|
dw sendram
|
||||||
|
|
||||||
|
nothings:
|
||||||
|
ret
|
||||||
|
|
||||||
|
Sendram:
|
||||||
|
push ax cx si ds
|
||||||
|
mov ax,es:[di]
|
||||||
|
mov si,ax
|
||||||
|
mov ax,es:[di+2]
|
||||||
|
mov ds,ax
|
||||||
|
mov cx,es:[di+2]
|
||||||
|
call sendlptblock
|
||||||
|
pop ds si cx ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
;---------Segment Adress-----------
|
||||||
|
Bios equ 040h
|
||||||
|
;---------Offset Adress------------
|
||||||
|
Lptadr equ 008h
|
||||||
|
Timer equ 06Ch
|
||||||
|
;---------Constant-----------------
|
||||||
|
onesec equ 18
|
||||||
|
tensec equ 182
|
||||||
|
Ack equ 00
|
||||||
|
Nack equ 0FFh
|
||||||
|
maxtry equ 10
|
||||||
|
tokenstart equ 0
|
||||||
|
tokennext equ 1
|
||||||
|
tokenstop equ 2
|
||||||
|
tokenbad equ 3
|
||||||
|
tokenresend equ 4
|
||||||
|
|
||||||
|
|
||||||
|
Initlpt:
|
||||||
|
push ax ecx
|
||||||
|
call StartTimer
|
||||||
|
cmp emettor,0
|
||||||
|
je receptinit
|
||||||
|
mov al,10000b
|
||||||
|
call SetLptOut
|
||||||
|
waitinit1:
|
||||||
|
call EndTimer
|
||||||
|
cmp cx,cs:timeout
|
||||||
|
ja errorinit
|
||||||
|
call getlptIn
|
||||||
|
cmp al,00000b
|
||||||
|
jnz waitinit1
|
||||||
|
jmp endinit
|
||||||
|
receptinit:
|
||||||
|
call EndTimer
|
||||||
|
cmp cx,cs:timeout
|
||||||
|
ja errorinit
|
||||||
|
call getlptIn
|
||||||
|
cmp al,00000b
|
||||||
|
jnz receptinit
|
||||||
|
mov al,10000b
|
||||||
|
call SetLptOut
|
||||||
|
endinit:
|
||||||
|
clc
|
||||||
|
pop ecx ax
|
||||||
|
ret
|
||||||
|
errorinit:
|
||||||
|
stc
|
||||||
|
pop ecx ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
;-Envoie DL (dh) JNE si problŠme JNC error timeout
|
||||||
|
Sendlpt:
|
||||||
|
push ax bx ecx
|
||||||
|
call StartTimer
|
||||||
|
mov dh,dl
|
||||||
|
mov al,dl
|
||||||
|
and al,0Fh
|
||||||
|
call SetLptOut
|
||||||
|
waitSend:
|
||||||
|
call EndTimer
|
||||||
|
cmp cx,cs:timeout
|
||||||
|
ja errorsend
|
||||||
|
call getlptIn
|
||||||
|
bt ax,4
|
||||||
|
jnc waitsend
|
||||||
|
and al,0Fh
|
||||||
|
mov bl,al
|
||||||
|
call StartTimer ;/////
|
||||||
|
mov al,dh
|
||||||
|
shr al,4
|
||||||
|
or al,10000b
|
||||||
|
call SetLptOut
|
||||||
|
waitSend2:
|
||||||
|
call EndTimer
|
||||||
|
cmp cx,cs:timeout
|
||||||
|
ja errorsend
|
||||||
|
call getlptIn
|
||||||
|
bt ax,4
|
||||||
|
jc waitsend2
|
||||||
|
and al,0Fh
|
||||||
|
shl al,4
|
||||||
|
add bl,al
|
||||||
|
cmp dl,bl
|
||||||
|
pop ecx bx ax
|
||||||
|
clc
|
||||||
|
ret
|
||||||
|
errorsend:
|
||||||
|
pop ecx bx ax
|
||||||
|
stc
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
;-Re‡ois DL (dh)
|
||||||
|
Receivelpt:
|
||||||
|
push ax bx ecx
|
||||||
|
call StartTimer
|
||||||
|
waitreceive:
|
||||||
|
call EndTimer
|
||||||
|
cmp cx,cs:timeout
|
||||||
|
ja errorreceive
|
||||||
|
call getlptIn
|
||||||
|
bt ax,4
|
||||||
|
jnc waitreceive
|
||||||
|
and al,0Fh
|
||||||
|
mov dl,al
|
||||||
|
call SetLptOut
|
||||||
|
call StartTimer ;/////
|
||||||
|
waitreceive2:
|
||||||
|
call EndTimer
|
||||||
|
cmp cx,cs:timeout
|
||||||
|
ja errorreceive
|
||||||
|
call getlptIn
|
||||||
|
bt ax,4
|
||||||
|
jc waitreceive2
|
||||||
|
and al,0Fh
|
||||||
|
mov dh,al
|
||||||
|
shl dh,4
|
||||||
|
add dl,dh
|
||||||
|
or al,10000b
|
||||||
|
call SetlptOut
|
||||||
|
clc
|
||||||
|
pop ecx bx ax
|
||||||
|
ret
|
||||||
|
errorreceive:
|
||||||
|
stc
|
||||||
|
pop ecx bx ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;-AX
|
||||||
|
SetTimeout:
|
||||||
|
mov cs:Timeout,ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
timeout dw tensec
|
||||||
|
|
||||||
|
getTimeout:
|
||||||
|
mov ax,cs:Timeout
|
||||||
|
ret
|
||||||
|
|
||||||
|
SetEmettor:
|
||||||
|
mov cs:Emettor,1
|
||||||
|
ret
|
||||||
|
|
||||||
|
Emettor db 0
|
||||||
|
|
||||||
|
SetReceptor:
|
||||||
|
mov cs:Emettor,0
|
||||||
|
ret
|
||||||
|
|
||||||
|
;->bx Nøport->Adresse dx
|
||||||
|
GetLpt:
|
||||||
|
push ax bx ds
|
||||||
|
mov ax,bios
|
||||||
|
mov ds,ax
|
||||||
|
dec bx
|
||||||
|
shl bx,1
|
||||||
|
mov dx,ds:[Lptadr+bx]
|
||||||
|
mov cs:lpt,dx
|
||||||
|
pop ds bx ax
|
||||||
|
ret
|
||||||
|
lpt dw 0
|
||||||
|
|
||||||
|
;->bx Nøport->Adresse dx
|
||||||
|
GetFirstLpt:
|
||||||
|
push ax ds
|
||||||
|
mov ax,bios
|
||||||
|
mov ds,ax
|
||||||
|
xor bx,bx
|
||||||
|
findlpt:
|
||||||
|
mov dx,ds:[Lptadr+bx]
|
||||||
|
cmp dx,0
|
||||||
|
jne oklpt
|
||||||
|
add bx,2
|
||||||
|
cmp bx,4
|
||||||
|
jbe findlpt
|
||||||
|
oklpt:
|
||||||
|
mov cs:lpt,dx
|
||||||
|
pop ds ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;->
|
||||||
|
StartTimer:
|
||||||
|
push ax ecx ds
|
||||||
|
mov ax,Bios
|
||||||
|
mov ds,ax
|
||||||
|
mov ecx,ds:[timer]
|
||||||
|
mov times,ecx
|
||||||
|
pop ds ecx ax
|
||||||
|
ret
|
||||||
|
times dd 0
|
||||||
|
|
||||||
|
;->Ecx time elapsed
|
||||||
|
EndTimer:
|
||||||
|
push ax ds
|
||||||
|
mov ax,Bios
|
||||||
|
mov ds,ax
|
||||||
|
mov ecx,ds:[timer]
|
||||||
|
sub ecx,times
|
||||||
|
mov ecx,0
|
||||||
|
pop ds ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;->
|
||||||
|
GetLptOut:
|
||||||
|
push dx
|
||||||
|
mov dx,lpt
|
||||||
|
in al,dx
|
||||||
|
pop dx
|
||||||
|
ret
|
||||||
|
|
||||||
|
GetLptIn:
|
||||||
|
push dx
|
||||||
|
mov dx,lpt
|
||||||
|
inc dx
|
||||||
|
in al,dx
|
||||||
|
shr al,3
|
||||||
|
pop dx
|
||||||
|
ret
|
||||||
|
|
||||||
|
GetLptInOut:
|
||||||
|
push dx
|
||||||
|
mov dx,lpt
|
||||||
|
add dx,2
|
||||||
|
in al,dx
|
||||||
|
and al,11111b
|
||||||
|
pop dx
|
||||||
|
ret
|
||||||
|
|
||||||
|
SetLptOut:
|
||||||
|
push dx
|
||||||
|
mov dx,lpt
|
||||||
|
out dx,al
|
||||||
|
pop dx
|
||||||
|
ret
|
||||||
|
|
||||||
|
SetLptIn:
|
||||||
|
push dx
|
||||||
|
mov dx,lpt
|
||||||
|
inc dx
|
||||||
|
out dx,al
|
||||||
|
pop dx
|
||||||
|
ret
|
||||||
|
|
||||||
|
SetLptInOut:
|
||||||
|
push dx
|
||||||
|
mov dx,lpt
|
||||||
|
add dx,2
|
||||||
|
out dx,al
|
||||||
|
pop dx
|
||||||
|
ret
|
||||||
|
|
||||||
|
;R‚alise un checksum 8 bits sur donn‚es DS:SI, nb CX r‚sultat dans dl
|
||||||
|
Checksum8:
|
||||||
|
push cx si
|
||||||
|
check:
|
||||||
|
add dl,[si]
|
||||||
|
inc si
|
||||||
|
dec cx
|
||||||
|
jnz check
|
||||||
|
pop si cx
|
||||||
|
ret
|
||||||
|
|
||||||
|
;DS:SI pointeur sur donn‚es, CX nombres de donn‚es, AL token
|
||||||
|
SendLptBlock:
|
||||||
|
push ax bx cx edx si edi bp
|
||||||
|
mov dx,cx
|
||||||
|
shl edx,16
|
||||||
|
mov dh,al
|
||||||
|
call checksum8
|
||||||
|
mov edi,edx
|
||||||
|
xor dh,dh
|
||||||
|
mov bp,dx
|
||||||
|
mov ah,maxtry
|
||||||
|
retry:
|
||||||
|
mov bl,4
|
||||||
|
xor al,al
|
||||||
|
header:
|
||||||
|
mov dx,di
|
||||||
|
call sendlpt
|
||||||
|
setne al
|
||||||
|
jc outt
|
||||||
|
rol edi,8
|
||||||
|
dec bl
|
||||||
|
jnz header
|
||||||
|
cmp al,0
|
||||||
|
jne notgood
|
||||||
|
mov dl,ACK
|
||||||
|
jmp allsend
|
||||||
|
notgood:
|
||||||
|
mov dl,NACK
|
||||||
|
allsend:
|
||||||
|
call sendlpt
|
||||||
|
setne al
|
||||||
|
jc outt
|
||||||
|
cmp al,0
|
||||||
|
je okheader
|
||||||
|
dec ah
|
||||||
|
jnz retry
|
||||||
|
jmp outt
|
||||||
|
okheader:
|
||||||
|
cmp cx,0
|
||||||
|
je endoftrans
|
||||||
|
mov di,maxtry
|
||||||
|
retry2:
|
||||||
|
mov bx,cx
|
||||||
|
xor ax,ax
|
||||||
|
body:
|
||||||
|
mov dl,[si+bx-1]
|
||||||
|
add ah,dl
|
||||||
|
call sendlpt
|
||||||
|
setne al
|
||||||
|
jc outt
|
||||||
|
dec bx
|
||||||
|
jnz body
|
||||||
|
cmp al,0
|
||||||
|
jne notgood2
|
||||||
|
mov dl,ACK
|
||||||
|
jmp allisend
|
||||||
|
notgood2:
|
||||||
|
mov dl,NACK
|
||||||
|
allisend:
|
||||||
|
call sendlpt
|
||||||
|
setne al
|
||||||
|
jc outt
|
||||||
|
cmp al,0
|
||||||
|
je endoftrans
|
||||||
|
dec di
|
||||||
|
jnz retry2
|
||||||
|
outt:
|
||||||
|
stc
|
||||||
|
endoftrans:
|
||||||
|
mov al,ah
|
||||||
|
xor ah,ah
|
||||||
|
cmp bp,ax
|
||||||
|
pop bp edi si edx cx bx ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;Receptionne en es:di les donn‚es au nombres de CX token AL (AH) (ECX)
|
||||||
|
receiveLptBlock:
|
||||||
|
push ax bx dx si bp
|
||||||
|
mov ah,maxtry
|
||||||
|
retrye:
|
||||||
|
mov bl,4
|
||||||
|
headere:
|
||||||
|
call receivelpt
|
||||||
|
jc outte
|
||||||
|
mov cl,dl
|
||||||
|
rol ecx,8
|
||||||
|
dec bl
|
||||||
|
jnz headere
|
||||||
|
call receivelpt
|
||||||
|
jc outte
|
||||||
|
cmp dl,ACK
|
||||||
|
je okheadere
|
||||||
|
dec ah
|
||||||
|
jnz retrye
|
||||||
|
jmp outte
|
||||||
|
okheadere:
|
||||||
|
mov al,ch
|
||||||
|
xor ch,ch
|
||||||
|
mov bp,cx
|
||||||
|
rol ecx,16
|
||||||
|
cmp cx,0
|
||||||
|
je endoftranse
|
||||||
|
mov si,maxtry
|
||||||
|
retrye2:
|
||||||
|
mov bx,cx
|
||||||
|
xor ah,ah
|
||||||
|
bodye:
|
||||||
|
call receivelpt
|
||||||
|
jc outte
|
||||||
|
mov es:[di+bx-1],dl
|
||||||
|
add ah,dl
|
||||||
|
dec bx
|
||||||
|
jnz bodye
|
||||||
|
call receivelpt
|
||||||
|
jc outte
|
||||||
|
cmp dl,ACK
|
||||||
|
je endoftranse
|
||||||
|
dec si
|
||||||
|
jnz retrye2
|
||||||
|
outte:
|
||||||
|
stc
|
||||||
|
endoftranse:
|
||||||
|
mov bl,ah
|
||||||
|
xor bh,bh
|
||||||
|
cmp bp,bx
|
||||||
|
pop bp si dx bx ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
end start;
|
||||||
|
|
@ -0,0 +1,12 @@
|
||||||
|
program Project1;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
Unit1 in 'UNIT1.PAS' {Form1};
|
||||||
|
|
||||||
|
{$R *.RES}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
@ -0,0 +1,34 @@
|
||||||
|
[Compiler]
|
||||||
|
A=1
|
||||||
|
B=0
|
||||||
|
D=1
|
||||||
|
F=0
|
||||||
|
I=1
|
||||||
|
K=1
|
||||||
|
L=1
|
||||||
|
P=1
|
||||||
|
Q=0
|
||||||
|
R=0
|
||||||
|
S=1
|
||||||
|
T=0
|
||||||
|
U=1
|
||||||
|
V=1
|
||||||
|
W=0
|
||||||
|
X=1
|
||||||
|
Y=1
|
||||||
|
|
||||||
|
[Linker]
|
||||||
|
MapFile=0
|
||||||
|
LinkBuffer=0
|
||||||
|
DebugInfo=0
|
||||||
|
OptimizeExe=0
|
||||||
|
StackSize=16384
|
||||||
|
HeapSize=8192
|
||||||
|
|
||||||
|
[Directories]
|
||||||
|
OutputDir=
|
||||||
|
SearchPath=
|
||||||
|
Conditionals=
|
||||||
|
|
||||||
|
[Parameters]
|
||||||
|
RunParams=
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,517 @@
|
||||||
|
unit Unit1;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
|
||||||
|
Forms, Dialogs, StdCtrls, Grids, Outline, DirOutln, FileCtrl, Buttons,
|
||||||
|
Gauges, ExtCtrls, Spin, Mask;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
DriveComboBox1: TDriveComboBox;
|
||||||
|
FilterComboBox1: TFilterComboBox;
|
||||||
|
FileListBox1: TFileListBox;
|
||||||
|
DirectoryListBox1: TDirectoryListBox;
|
||||||
|
SpeedButton1: TSpeedButton;
|
||||||
|
SpeedButton2: TSpeedButton;
|
||||||
|
Memo1: TMemo;
|
||||||
|
Memo2: TMemo;
|
||||||
|
Memo3: TMemo;
|
||||||
|
SpeedButton3: TSpeedButton;
|
||||||
|
SpeedButton4: TSpeedButton;
|
||||||
|
Gauge1: TGauge;
|
||||||
|
SpeedButton5: TSpeedButton;
|
||||||
|
SpeedButton6: TSpeedButton;
|
||||||
|
SpinButton1: TSpinButton;
|
||||||
|
MaskEdit1: TMaskEdit;
|
||||||
|
SpeedButton8: TSpeedButton;
|
||||||
|
SpinButton2: TSpinButton;
|
||||||
|
okm: TCheckBox;
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure FormActivate(Sender: TObject);
|
||||||
|
procedure SpinButton1DownClick(Sender: TObject);
|
||||||
|
procedure SpinButton1UpClick(Sender: TObject);
|
||||||
|
procedure showadress(Sender: TObject);
|
||||||
|
procedure SpeedButton6Click(Sender: TObject);
|
||||||
|
procedure SpeedButton8Click(Sender: TObject);
|
||||||
|
procedure MaskEdit1Change(Sender: TObject);
|
||||||
|
procedure SpinButton2DownClick(Sender: TObject);
|
||||||
|
procedure SpinButton2UpClick(Sender: TObject);
|
||||||
|
procedure SpeedButton3Click(Sender: TObject);
|
||||||
|
procedure Memo2Click(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
{ Private-déclarations }
|
||||||
|
public
|
||||||
|
{ Public-déclarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
const UNESEC = 1000;
|
||||||
|
DIXSEC = 4000;
|
||||||
|
ACK = $00;
|
||||||
|
NAK = $FF;
|
||||||
|
MAXTRY = 5;
|
||||||
|
|
||||||
|
type DBloc = array[ 1..15534 ] of byte;
|
||||||
|
type BHEADER = record
|
||||||
|
case boolean of
|
||||||
|
true : ( Checksum:byte;
|
||||||
|
Lenb : byte;
|
||||||
|
Lenh : byte;
|
||||||
|
Token : byte;
|
||||||
|
|
||||||
|
);
|
||||||
|
false : ( Champ : array[ 0..3 ] of byte );
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
Inlpt : word;
|
||||||
|
Outlpt : word;
|
||||||
|
times : longint;
|
||||||
|
Block : DBLOC;
|
||||||
|
adress :longint;
|
||||||
|
errors: boolean;
|
||||||
|
reste:integer;
|
||||||
|
pop:boolean;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.DFM}
|
||||||
|
|
||||||
|
function Getlpt( Number : integer ) : boolean;
|
||||||
|
begin
|
||||||
|
Outlpt := MemW[ $0040: 6 + Number * 2 ];
|
||||||
|
if ( Outlpt <> 0 ) then
|
||||||
|
begin
|
||||||
|
Inlpt := Outlpt + 1;
|
||||||
|
Getlpt := TRUE;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Getlpt := FALSE;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function getfirstlpt:byte;
|
||||||
|
var i:integer;
|
||||||
|
begin
|
||||||
|
i:=1;
|
||||||
|
while (not(getlpt(i)) or (i>4)) do inc(i);
|
||||||
|
if (getlpt(i)=false) then i:=0;
|
||||||
|
getfirstlpt:= i;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function getb:byte;
|
||||||
|
begin
|
||||||
|
getb:=port[inlpt] and $F8
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure putb(what:byte);
|
||||||
|
begin
|
||||||
|
port[outlpt]:=what;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure starttimer;
|
||||||
|
begin
|
||||||
|
times:=GetTickCount;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function endtimer:longint;
|
||||||
|
begin
|
||||||
|
endtimer:=getTickCount-times;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Initlpt( Emetteur : boolean ) : boolean;
|
||||||
|
begin
|
||||||
|
errors:=false;
|
||||||
|
putb($10);
|
||||||
|
putb($18);
|
||||||
|
putb($10);
|
||||||
|
starttimer;
|
||||||
|
if ( Emetteur ) then
|
||||||
|
begin
|
||||||
|
while ( ( GetB <> $00 ) and ( Endtimer <= DIXSEC ) ) do;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
while ( ( GetB <> $00 ) and ( Endtimer <= DIXSEC ) ) do;
|
||||||
|
PutB( $10 );
|
||||||
|
end;
|
||||||
|
Initlpt := ( Endtimer <= DIXSEC );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function sendlpt( Wert : byte ) : boolean;
|
||||||
|
var Retour : byte;
|
||||||
|
label fin;
|
||||||
|
begin
|
||||||
|
if errors then goto fin;
|
||||||
|
Starttimer;
|
||||||
|
PutB( Wert and $0F );
|
||||||
|
while ( ( ( GetB and 128 ) = 0 ) and ( Endtimer <= DIXSEC )) do;
|
||||||
|
if ( Endtimer > DIXSEC ) then
|
||||||
|
begin
|
||||||
|
errors:=true;
|
||||||
|
goto fin;
|
||||||
|
end;
|
||||||
|
Retour := ( GetB shr 3 ) and $0F;
|
||||||
|
Starttimer;
|
||||||
|
PutB( ( Wert shr 4 ) or $10 );
|
||||||
|
while ( ( ( GetB and 128 ) <> 0 ) and ( Endtimer <= DIXSEC ) ) do
|
||||||
|
if ( Endtimer > DIXSEC ) then
|
||||||
|
begin
|
||||||
|
errors:=true;
|
||||||
|
goto fin;
|
||||||
|
end;
|
||||||
|
Retour := Retour or ( ( GetB shl 1 ) and $F0 );
|
||||||
|
fin:
|
||||||
|
sendlpt := ( Wert = Retour );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function receivelpt : byte;
|
||||||
|
var LoNib,
|
||||||
|
HiNib : byte;
|
||||||
|
label fin;
|
||||||
|
begin
|
||||||
|
if errors then goto fin;
|
||||||
|
Starttimer;
|
||||||
|
while ( ( ( GetB and 128 ) = 0 ) and ( Endtimer <= DIXSEC )) do;
|
||||||
|
if ( Endtimer > DIXSEC ) then
|
||||||
|
begin
|
||||||
|
errors:=true;
|
||||||
|
goto fin;
|
||||||
|
end;
|
||||||
|
LoNib := ( GetB shr 3 ) and $0F;
|
||||||
|
PutB( LoNib );
|
||||||
|
Starttimer;
|
||||||
|
while ( ( ( GetB and 128 ) <> 0 ) and ( Endtimer <= DIXSEC ) ) do;
|
||||||
|
if ( Endtimer > DIXSEC ) then
|
||||||
|
begin
|
||||||
|
errors:=true;
|
||||||
|
goto fin;
|
||||||
|
end;
|
||||||
|
HiNib := ( GetB shl 1 ) and $F0;
|
||||||
|
PutB( ( HiNib shr 4 ) or $10 );
|
||||||
|
fin:
|
||||||
|
receivelpt := ( LoNib or HiNib );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function checksum8(Nombre:word;Dptr : pointer):byte ;
|
||||||
|
var donnees : ^DBloc ;
|
||||||
|
i:word;
|
||||||
|
ch:byte;
|
||||||
|
begin
|
||||||
|
ch:=0;
|
||||||
|
donnees:=dptr;
|
||||||
|
for i:=1 to Nombre do ch:=ch + Donnees^[ i ];
|
||||||
|
checksum8:=ch;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SendlptBlock( Token : byte;
|
||||||
|
Nombre : word;
|
||||||
|
Dptr : pointer ):boolean;
|
||||||
|
var header : BHEADER;
|
||||||
|
ok : boolean;
|
||||||
|
i : word;
|
||||||
|
trys : word;
|
||||||
|
Donnees : ^DBloc;
|
||||||
|
label fin;
|
||||||
|
begin
|
||||||
|
form1.gauge1.visible:=true;
|
||||||
|
header.Token := Token;
|
||||||
|
header.Lenb := (Nombre and $FF00) shr 8;
|
||||||
|
header.Lenh := Nombre and $FF;
|
||||||
|
header.Checksum:=checksum8(nombre,Dptr);
|
||||||
|
trys := MAXTRY;
|
||||||
|
repeat
|
||||||
|
ok := TRUE;
|
||||||
|
for i := 0 to 3 do
|
||||||
|
ok := ok and sendlpt( Header.Champ[ i ] );
|
||||||
|
if ( ok ) then
|
||||||
|
ok := ok and sendlpt( ACK )
|
||||||
|
else
|
||||||
|
ok := ok and sendlpt( NAK );
|
||||||
|
if ( not ok ) then
|
||||||
|
dec( trys );
|
||||||
|
until ( ( ok ) or ( trys = 0 ) or (errors));
|
||||||
|
if ( (trys = 0) or (errors)) then
|
||||||
|
begin
|
||||||
|
goto fin;
|
||||||
|
SendlptBlock:=false;
|
||||||
|
end;
|
||||||
|
if ( Nombre > 0 ) then
|
||||||
|
begin
|
||||||
|
Donnees := DPTR;
|
||||||
|
trys := MAXTRY;
|
||||||
|
repeat
|
||||||
|
ok := TRUE;
|
||||||
|
for i := Nombre downto 1 do
|
||||||
|
begin
|
||||||
|
ok := ok and sendlpt( Donnees^[ i ] );
|
||||||
|
reste:=trunc(100-i/nombre*100);
|
||||||
|
form1.gauge1.progress:=reste
|
||||||
|
end;
|
||||||
|
if ( ok ) then
|
||||||
|
ok := ok and sendlpt( ACK )
|
||||||
|
else
|
||||||
|
ok := ok and sendlpt( NAK );
|
||||||
|
if ( not ok ) then
|
||||||
|
dec( trys );
|
||||||
|
until ( ( ok ) or ( trys = 0 ) or (errors));
|
||||||
|
if ( (trys = 0) or (errors)) then
|
||||||
|
begin
|
||||||
|
goto fin;
|
||||||
|
SendlptBlock:=false;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
SendlptBlock:=true;
|
||||||
|
fin:
|
||||||
|
form1.gauge1.visible:=false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ReceivelptBlock( var Token : byte;
|
||||||
|
var Len : word;
|
||||||
|
Dptr : pointer ):boolean;
|
||||||
|
var header : BHEADER;
|
||||||
|
ok : boolean;
|
||||||
|
i : word;
|
||||||
|
trys : word;
|
||||||
|
EscapeStatus : boolean;
|
||||||
|
ByteBuffer : byte;
|
||||||
|
Donnees : ^DBloc;
|
||||||
|
label fin,good;
|
||||||
|
begin
|
||||||
|
form1.gauge1.visible:=true;
|
||||||
|
trys := MAXTRY;
|
||||||
|
repeat
|
||||||
|
for i:= 0 to 3 do
|
||||||
|
Header.Champ[ i ] := receivelpt;
|
||||||
|
ByteBuffer := receivelpt;
|
||||||
|
if ( ByteBuffer <> ACK ) then
|
||||||
|
dec( trys );
|
||||||
|
until ( ( trys = 0 ) or ( ByteBuffer = ACK ) or (errors));
|
||||||
|
if ( (trys = 0) or (errors)) then
|
||||||
|
begin
|
||||||
|
goto fin;
|
||||||
|
receivelptblock:=false;
|
||||||
|
end;
|
||||||
|
Token := Header.Token;
|
||||||
|
Len := Header.Lenh+(Header.Lenb shl 8);
|
||||||
|
if ( Len > 0 ) then
|
||||||
|
begin
|
||||||
|
Donnees := Dptr;
|
||||||
|
trys := MAXTRY;
|
||||||
|
repeat
|
||||||
|
for i := len downto 1 do
|
||||||
|
begin
|
||||||
|
Donnees^[ i ] := receivelpt;
|
||||||
|
reste:=trunc(100-i/len*100);
|
||||||
|
form1.gauge1.progress:=reste
|
||||||
|
end;
|
||||||
|
ByteBuffer := receivelpt;
|
||||||
|
if ( ByteBuffer <> ACK ) then
|
||||||
|
dec( trys );
|
||||||
|
until ( ( trys = 0 ) or ( ByteBuffer = ACK ) );
|
||||||
|
if ( trys = 0 ) then
|
||||||
|
begin
|
||||||
|
goto fin;
|
||||||
|
receivelptblock:=false;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
receivelptblock:=true;
|
||||||
|
fin:
|
||||||
|
form1.gauge1.visible:=false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function Sendfile(name:string):boolean;
|
||||||
|
var lus:word;
|
||||||
|
Fichier:file;
|
||||||
|
begin
|
||||||
|
assign( Fichier, Name );
|
||||||
|
reset( Fichier, 1 );
|
||||||
|
Blockread( Fichier, Block, 15000, Lus );
|
||||||
|
if lus>0 then
|
||||||
|
Sendfile:=SendlptBlock( 1, Lus, @Block )
|
||||||
|
else
|
||||||
|
Sendfile:=false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormActivate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
adress:=0;
|
||||||
|
showadress(sender);
|
||||||
|
Memo2Click(Sender);
|
||||||
|
SpeedButton8Click(Sender);
|
||||||
|
pop:=true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpinButton1DownClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (adress>0) and okm.checked then
|
||||||
|
begin
|
||||||
|
dec(adress);
|
||||||
|
SpeedButton6Click(Sender);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpinButton1UpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (adress<65536*16) and okm.checked then
|
||||||
|
begin
|
||||||
|
inc(adress);
|
||||||
|
SpeedButton6Click(Sender);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function hextoint(hex:string;n:word):longint;
|
||||||
|
var
|
||||||
|
resu,exp:longint;
|
||||||
|
i:word;
|
||||||
|
begin
|
||||||
|
hex :=UpperCase(hex);
|
||||||
|
resu:=0;
|
||||||
|
exp:=1;
|
||||||
|
for i:=n downto 1 do
|
||||||
|
begin
|
||||||
|
resu:=resu+(Pos(hex[i],'0123456789ABCDEF')-1)*(exp);
|
||||||
|
exp:=exp*16
|
||||||
|
end;
|
||||||
|
hextoint:=resu;
|
||||||
|
end ;
|
||||||
|
|
||||||
|
function adresstoint(hex:string):longint;
|
||||||
|
begin
|
||||||
|
adresstoint:=hextoint(Copy(hex, 1, 4),4)shl 4 + hextoint(Copy(hex, length(hex)-3, 4),4)
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.showadress(Sender: TObject);
|
||||||
|
var i,j,adh,adl:word;
|
||||||
|
adress2:longint;
|
||||||
|
old,old2:string;
|
||||||
|
begin
|
||||||
|
memo1.clear;
|
||||||
|
memo2.clear;
|
||||||
|
memo3.clear;
|
||||||
|
for i:=0 to 29 do
|
||||||
|
begin
|
||||||
|
adress2:=adress+i*16;
|
||||||
|
adl:=adress2 and $FFFF;
|
||||||
|
adh:=(adress2 and $F0000) shr 4;
|
||||||
|
memo1.lines.add(IntToHex(adh,4)+':'+IntToHex(adl,4)) ;
|
||||||
|
old:='';
|
||||||
|
old2:='';
|
||||||
|
for j:=1 to 16 do
|
||||||
|
begin
|
||||||
|
old:=old+inttohex(block[i*16+j],2);
|
||||||
|
if block[i*16+j]=0 then
|
||||||
|
old2:=old2+'.'
|
||||||
|
else
|
||||||
|
old2:=old2+char(block[i*16+j]) ;
|
||||||
|
if j mod 2=0 then old:=old+' ';
|
||||||
|
end;
|
||||||
|
memo2.lines.add(old) ;
|
||||||
|
memo3.lines.add(old2) ;
|
||||||
|
end
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpeedButton8Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if getfirstlpt=0 then showmessage('Pas de port parallèle détecté');
|
||||||
|
errors:=false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpeedButton6Click(Sender: TObject);
|
||||||
|
var adl,adh,good:word;
|
||||||
|
tok:byte;
|
||||||
|
ok:boolean;
|
||||||
|
begin
|
||||||
|
if (inlpt=0) then SpeedButton8Click(sender);
|
||||||
|
if ((inlpt<>0) and (initlpt(true))) then
|
||||||
|
begin
|
||||||
|
adl:=adress and $FFFF;
|
||||||
|
adh:=(adress and $F0000) shr 4;
|
||||||
|
Block[1]:=lo(adl);
|
||||||
|
Block[2]:= hi(adl);
|
||||||
|
Block[3]:= lo(adh);
|
||||||
|
Block[4]:= hi(adh);
|
||||||
|
Block[5]:= lo(512);
|
||||||
|
Block[6]:= hi(512) ;
|
||||||
|
ok:=false;
|
||||||
|
if SendlptBlock( 1,6,@Block) then ok:=receivelptBlock(tok,good ,@Block); {demande de RAM}
|
||||||
|
if not(ok) or errors then Showmessage('Erreur de transmission !!!!!!!!!!');
|
||||||
|
showadress(sender);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Showmessage('Pas de PC distant');
|
||||||
|
putb($08);
|
||||||
|
errors:=false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.MaskEdit1Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if pop then
|
||||||
|
begin
|
||||||
|
adress:=adresstoint(maskedit1.text);
|
||||||
|
if okm.checked=true then SpeedButton6Click(sender);
|
||||||
|
showadress(sender);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpinButton2DownClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (adress+16*30<=65536*16) and okm.checked then
|
||||||
|
begin
|
||||||
|
adress:=adress+16*30;
|
||||||
|
SpeedButton6Click(Sender);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpinButton2UpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (adress-16*30>=0) and okm.checked then
|
||||||
|
begin
|
||||||
|
adress:=adress-16*30;
|
||||||
|
SpeedButton6Click(Sender);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
procedure TForm1.SpeedButton3Click(Sender: TObject);
|
||||||
|
var adl,adh,good:word;
|
||||||
|
adress2:longint;
|
||||||
|
tok:byte;
|
||||||
|
ok:boolean;
|
||||||
|
begin
|
||||||
|
if (inlpt=0) then SpeedButton8Click(sender);
|
||||||
|
if ((inlpt<>0) and (initlpt(true))) then
|
||||||
|
begin
|
||||||
|
adress2 :=adresstoint(maskedit1.text);
|
||||||
|
adl:=adress2 and $FFFF;
|
||||||
|
adh:=(adress2 and $F0000) shr 4;
|
||||||
|
Block[1]:=lo(adl);
|
||||||
|
Block[2]:= hi(adl);
|
||||||
|
Block[3]:= lo(adh);
|
||||||
|
Block[4]:= hi(adh);
|
||||||
|
ok:=SendlptBlock( 7,4,@Block);
|
||||||
|
if not(ok) or errors then Showmessage('Erreur de transmission !!!!!!!!!!');
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Showmessage('Pas de PC distant');
|
||||||
|
putb($18);
|
||||||
|
errors:=false;
|
||||||
|
end;
|
||||||
|
procedure TForm1.Memo2Click(Sender: TObject);
|
||||||
|
var ligne,col,pos,adl,adh:word;
|
||||||
|
adress2:longint;
|
||||||
|
begin
|
||||||
|
ligne:=memo2.selstart div 42;
|
||||||
|
col:= (trunc((memo2.selstart mod 42+1) / 2.5));
|
||||||
|
pos:=16*ligne+col;
|
||||||
|
label1.caption:=inttostr(ligne)+':'+inttostr(col)+':'+inttostr(pos);
|
||||||
|
adress2:=pos+adress;
|
||||||
|
adl:=adress2 and $FFFF;
|
||||||
|
adh:=(adress2 and $F0000) shr 4;
|
||||||
|
pop:=false;
|
||||||
|
maskedit1.text:=inttohex(adh,4)+':'+inttohex(adl,4);
|
||||||
|
pop:=true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
@ -0,0 +1,22 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
mov eax,cr0
|
||||||
|
or al,1
|
||||||
|
mov cr0,eax
|
||||||
|
retf
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -0,0 +1,32 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,offset imports,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
call [mouseon]
|
||||||
|
jc errormouse
|
||||||
|
call [print],offset message
|
||||||
|
retf
|
||||||
|
|
||||||
|
errormouse:
|
||||||
|
call [print],offset errormessage
|
||||||
|
retf
|
||||||
|
|
||||||
|
message db 'Activation de la souris\l',0
|
||||||
|
errormessage db 'impossible d''activer la souris\l',0
|
||||||
|
|
||||||
|
importing
|
||||||
|
use VIDEO.LIB,print
|
||||||
|
use MOUSE.SYS,mouseon
|
||||||
|
endi
|
||||||
|
|
@ -0,0 +1,169 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,offset imports,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
call [savestate]
|
||||||
|
push 0FFFFh
|
||||||
|
pushd 652201
|
||||||
|
pushd 1545454545
|
||||||
|
push 1523
|
||||||
|
push 2041
|
||||||
|
push offset zero
|
||||||
|
push offset fixe
|
||||||
|
push 5
|
||||||
|
push 'i'
|
||||||
|
push 'a'
|
||||||
|
pushd 5041
|
||||||
|
pushd 125645
|
||||||
|
pushd 5041
|
||||||
|
pushd 125645
|
||||||
|
pushd 5041
|
||||||
|
pushd 125645
|
||||||
|
push offset message
|
||||||
|
call [print]
|
||||||
|
xor ax,ax
|
||||||
|
int 16h
|
||||||
|
call [clearscreen]
|
||||||
|
call [xchgpages]
|
||||||
|
call [clearscreen]
|
||||||
|
mov cx,200
|
||||||
|
go1:
|
||||||
|
call [xchgpages]
|
||||||
|
call [waitretrace]
|
||||||
|
call [print],offset textdemo1
|
||||||
|
call put
|
||||||
|
call [xchgpages]
|
||||||
|
call [waitretrace]
|
||||||
|
dec cx
|
||||||
|
jnz go1
|
||||||
|
mov cx,200
|
||||||
|
go2:
|
||||||
|
call [xchgpages]
|
||||||
|
call [waitretrace]
|
||||||
|
call [print],offset textdemo2
|
||||||
|
call put
|
||||||
|
call [xchgpages]
|
||||||
|
call [waitretrace]
|
||||||
|
dec cx
|
||||||
|
jnz go2
|
||||||
|
mov cx,200
|
||||||
|
go3:
|
||||||
|
call [xchgpages]
|
||||||
|
call [waitretrace]
|
||||||
|
call [print],offset textdemo3
|
||||||
|
call put
|
||||||
|
call [xchgpages]
|
||||||
|
call [waitretrace]
|
||||||
|
dec cx
|
||||||
|
jnz go3
|
||||||
|
call [xchgpages]
|
||||||
|
call [clearscreen]
|
||||||
|
call [print],offset texte2
|
||||||
|
call [xchgpages]
|
||||||
|
call [clearscreen]
|
||||||
|
call [xchgpages]
|
||||||
|
mov bp,255
|
||||||
|
xor edx,edx
|
||||||
|
go4:
|
||||||
|
call [xchgpages]
|
||||||
|
call [waitretrace]
|
||||||
|
inc edx
|
||||||
|
push edx
|
||||||
|
push offset texte3
|
||||||
|
call [print]
|
||||||
|
call [xchgpages]
|
||||||
|
call [waitretrace]
|
||||||
|
dec bp
|
||||||
|
jnz go4
|
||||||
|
push offset texte4
|
||||||
|
call [print]
|
||||||
|
mov ax,0
|
||||||
|
int 16h
|
||||||
|
call [restorestate]
|
||||||
|
retf
|
||||||
|
put:
|
||||||
|
call random
|
||||||
|
mov di,dx
|
||||||
|
and di,4096-2
|
||||||
|
mov si,offset fond
|
||||||
|
call showstring2
|
||||||
|
ret
|
||||||
|
random:
|
||||||
|
push ax
|
||||||
|
MOV AX,[cs:randseed]
|
||||||
|
MOV DX,8405h
|
||||||
|
MUL DX
|
||||||
|
INC AX
|
||||||
|
MOV [cs:randseed],AX
|
||||||
|
pop ax
|
||||||
|
ret
|
||||||
|
randseed dw 1234h
|
||||||
|
Randomize:
|
||||||
|
push ax cx dx
|
||||||
|
mov ah,0
|
||||||
|
int 1ah
|
||||||
|
mov [cs:randseed],dx
|
||||||
|
pop dx cx ax
|
||||||
|
ret
|
||||||
|
|
||||||
|
zero db 'Chaine a z‚ro terminal',0
|
||||||
|
fixe db 20,'Chaine a taille fixe'
|
||||||
|
message db "\m01\e\c07\h01D‚monstration de la librairie VIDEO.LIB\l\l"
|
||||||
|
db "\c01Nombres entiers ou sign‚s (%%u/%%i):\l%u\l%iD\l"
|
||||||
|
db "\c02Nombre hexad‚cimaux (%%h):\l%hD\l%hW\l"
|
||||||
|
db "\c03Nombres Binaires (%%b):\l%bD\l%bB\l"
|
||||||
|
db "\c04Caracteres simples ou multiples (%%c/%%cM):\l%c\l%cM\l"
|
||||||
|
db "\c05Chaines a z‚ro terminal ou fixes (%%0/%%s):\l%s\l%0\l"
|
||||||
|
db "\c06Dates et heures (%%t/%%d):\l%t\l%d\l"
|
||||||
|
db "\c07Nombre a echelle automatique (%%z):\l%z\l%z\l"
|
||||||
|
db "\c08Attributs de fichiers (%%a):\l%a",0
|
||||||
|
|
||||||
|
fond db 16,'Ceci est un fond'
|
||||||
|
textdemo1 db '\c05Scrolling Scrolling Scrolling Scrolling Scrolling Scrolling Scrolling Scrolling\l',0
|
||||||
|
textdemo2 db '\c07Vertical Vertical Vertical Vertical Vertical Vertical Vertical Vertical\l',0
|
||||||
|
textdemo3 db '\c09Rapide Rapide Rapide Rapide Rapide Rapide Rapide Rapide\l',0
|
||||||
|
texte1 db 'Echange rapide de pages Vid‚o',0
|
||||||
|
texte2 db '\g04,13Routine d''affichage Ultra Rapide Agissant sur le Mat‚riel'
|
||||||
|
db '\g04,14Possibilit‚ de r‚aliser des effets de superposition',0
|
||||||
|
texte3 db '\c04%bD\l',0
|
||||||
|
texte4 db '\g01,00Sauvegarde et restauration de l''ecran (%%s/%%r)',0
|
||||||
|
|
||||||
|
showstring2:
|
||||||
|
push es bx cx si di
|
||||||
|
add di,4000
|
||||||
|
mov bx,0B800h
|
||||||
|
mov es,bx
|
||||||
|
mov bl,[si]
|
||||||
|
mov ch,3
|
||||||
|
strinaize4:
|
||||||
|
inc si
|
||||||
|
mov cl,[si]
|
||||||
|
mov [es:di],cx
|
||||||
|
add di,2
|
||||||
|
dec bl
|
||||||
|
jnz strinaize4
|
||||||
|
pop di si cx bx es
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
importing
|
||||||
|
use VIDEO.LIB,print
|
||||||
|
use VIDEO,xchgpages
|
||||||
|
use VIDEO,setvideomode
|
||||||
|
use VIDEO,clearscreen
|
||||||
|
use VIDEO,savestate
|
||||||
|
use VIDEO,restorestate
|
||||||
|
use VIDEO,waitretrace
|
||||||
|
endi
|
||||||
|
|
@ -0,0 +1,106 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,offset imports,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
call [savestate]
|
||||||
|
call [print],offset msg
|
||||||
|
mov bp,1000h
|
||||||
|
xor di,di
|
||||||
|
xor cx,cx
|
||||||
|
xor edx,edx
|
||||||
|
verifall:
|
||||||
|
mov ah,1
|
||||||
|
int 16h
|
||||||
|
jz nokey
|
||||||
|
cmp al,' '
|
||||||
|
je enend
|
||||||
|
nokey:
|
||||||
|
mov dx,di
|
||||||
|
push edx
|
||||||
|
mov dx,cx
|
||||||
|
inc dx
|
||||||
|
push edx
|
||||||
|
mov ax,cx
|
||||||
|
inc ax
|
||||||
|
mov si,100
|
||||||
|
mul si
|
||||||
|
mov si,2880
|
||||||
|
div si
|
||||||
|
mov dx,ax
|
||||||
|
push edx
|
||||||
|
call [print],offset msg2
|
||||||
|
call gauge
|
||||||
|
call [verifysector],cx
|
||||||
|
jc errors
|
||||||
|
je noprob
|
||||||
|
inc di
|
||||||
|
noprob:
|
||||||
|
inc cx
|
||||||
|
cmp cx,2880
|
||||||
|
jnz verifall
|
||||||
|
enend:
|
||||||
|
cmp di,0
|
||||||
|
je noatall
|
||||||
|
call [print],offset error2
|
||||||
|
jmp someof
|
||||||
|
noatall:
|
||||||
|
call [print],offset noerror
|
||||||
|
someof:
|
||||||
|
mov ah,0
|
||||||
|
int 16h
|
||||||
|
call [restorestate]
|
||||||
|
retf
|
||||||
|
errors:
|
||||||
|
call [print],offset error
|
||||||
|
mov ah,0
|
||||||
|
int 16h
|
||||||
|
call [restorestate]
|
||||||
|
retf
|
||||||
|
|
||||||
|
error db '\g10,10Erreur avec le lecteur de disquette !',0
|
||||||
|
error2 db '\g10,10Le disque est defectueux, appuyez sur une touche pour quitter',0
|
||||||
|
noerror db '\g10,10Pas de secteurs defectueux, appuyez sur une touche pour continuer',0
|
||||||
|
msg db '\m02\e\c07\g29,00- Test de surface du disque -\g02,49<Pressez espace pour quitter>',0
|
||||||
|
msg2 db '\g10,20%u %%\g10,16%u cluster testes. \h34%u cluster defectueux. ',0
|
||||||
|
|
||||||
|
gauge:
|
||||||
|
push ax dx
|
||||||
|
mov ax,cx
|
||||||
|
mul [sizeof]
|
||||||
|
div [max]
|
||||||
|
xor edx,edx
|
||||||
|
mov dx,[sizeof]
|
||||||
|
sub dx,ax
|
||||||
|
push dx
|
||||||
|
push 'Û'
|
||||||
|
mov dx,ax
|
||||||
|
push dx
|
||||||
|
push 'Û'
|
||||||
|
push offset gauges
|
||||||
|
call [print]
|
||||||
|
pop dx ax
|
||||||
|
retn
|
||||||
|
|
||||||
|
max dw 2879
|
||||||
|
sizeof dw 50
|
||||||
|
|
||||||
|
gauges db '\g10,18\c05%cM\c07%cM',0
|
||||||
|
|
||||||
|
importing
|
||||||
|
use VIDEO.LIB,print
|
||||||
|
use VIDEO,savestate
|
||||||
|
use VIDEO,restorestate
|
||||||
|
use DISQUE,verifysector
|
||||||
|
endi
|
||||||
|
|
@ -0,0 +1,351 @@
|
||||||
|
model tiny,stdcall
|
||||||
|
p586N
|
||||||
|
locals
|
||||||
|
jumps
|
||||||
|
codeseg
|
||||||
|
option procalign:byte
|
||||||
|
|
||||||
|
include "..\include\mem.h"
|
||||||
|
include "..\include\divers.h"
|
||||||
|
include "..\include\graphic.h"
|
||||||
|
|
||||||
|
org 0h
|
||||||
|
|
||||||
|
start:
|
||||||
|
header exe <"CE",1,0,0,,offset imports,,offset realstart>
|
||||||
|
|
||||||
|
realstart:
|
||||||
|
mov ax,0305h
|
||||||
|
mov bx,0008h
|
||||||
|
int 16h
|
||||||
|
call [savestate]
|
||||||
|
call [setvideomode],2
|
||||||
|
xor ebp,ebp
|
||||||
|
xor ax,ax
|
||||||
|
mov fs,ax
|
||||||
|
call [disablescroll]
|
||||||
|
adres:
|
||||||
|
call [saveparamto],offset infos
|
||||||
|
call [readsector],[sect],offset buffer
|
||||||
|
jnc adres2
|
||||||
|
errtr:
|
||||||
|
call [setxy],0,[word ptr lastline]
|
||||||
|
call [print],offset errordisk
|
||||||
|
xor ax,ax
|
||||||
|
int 16h
|
||||||
|
adres2:
|
||||||
|
call [saveparamto],offset infos
|
||||||
|
mov al,[infos.lines]
|
||||||
|
dec al
|
||||||
|
mov [lastline],al
|
||||||
|
mov al,[infos.columns]
|
||||||
|
sub al,16
|
||||||
|
mov bl,al
|
||||||
|
shr al,2
|
||||||
|
mov [sizex],al
|
||||||
|
and bl,11b
|
||||||
|
mov [sizex2],bl
|
||||||
|
mov al,[infos.mode]
|
||||||
|
cmp al,[oldmode]
|
||||||
|
je noinit
|
||||||
|
call [clearscreen]
|
||||||
|
mov [oldmode],al
|
||||||
|
noinit:
|
||||||
|
call [setxy],0,0
|
||||||
|
mov edi,ebp
|
||||||
|
mov bh,[lastline]
|
||||||
|
lines:
|
||||||
|
xor edx,edx
|
||||||
|
mov dx,di
|
||||||
|
push edx
|
||||||
|
mov edx,edi
|
||||||
|
mov dx,[sect]
|
||||||
|
push edx
|
||||||
|
push offset spaces
|
||||||
|
call [print]
|
||||||
|
mov dx,di
|
||||||
|
mov al,[sizex]
|
||||||
|
mov esi,edi
|
||||||
|
doaline:
|
||||||
|
push [dword ptr di+offset buffer]
|
||||||
|
push 8
|
||||||
|
call [showhex]
|
||||||
|
call [showchar],' '
|
||||||
|
inc edi
|
||||||
|
dec al
|
||||||
|
jnz doaline
|
||||||
|
mov edi,esi
|
||||||
|
push offset spaces2
|
||||||
|
call [print]
|
||||||
|
mov al,[sizex]
|
||||||
|
doaline2:
|
||||||
|
push [word ptr di+offset buffer]
|
||||||
|
call [showchar]
|
||||||
|
inc edi
|
||||||
|
dec al
|
||||||
|
jnz doaline2
|
||||||
|
dec bh
|
||||||
|
je outes
|
||||||
|
cmp [sizex2],0
|
||||||
|
je lines
|
||||||
|
call [addline]
|
||||||
|
jmp lines
|
||||||
|
outes:
|
||||||
|
call [setxy],0,[word ptr lastline]
|
||||||
|
call [print],offset menu
|
||||||
|
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
|
||||||
|
call [writesector],[sect],offset buffer
|
||||||
|
jnc waitkey
|
||||||
|
jmp errtr
|
||||||
|
suit6:
|
||||||
|
cmp ax,4100h
|
||||||
|
jne suit7
|
||||||
|
mov [dword ptr pope],'TIDE'
|
||||||
|
call [setxy],0,[word ptr lastline]
|
||||||
|
call [print],offset menu
|
||||||
|
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],' EUV'
|
||||||
|
push cs
|
||||||
|
pop es
|
||||||
|
call [writesector],[sect],offset buffer
|
||||||
|
jnc waitkey
|
||||||
|
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,[lastline]
|
||||||
|
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 edi,[es:bx-1]
|
||||||
|
mov dx,[es:si-1]
|
||||||
|
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 adres
|
||||||
|
call [restorestate]
|
||||||
|
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
|
||||||
|
mov dx,[xx]
|
||||||
|
shl dx,1
|
||||||
|
add si,dx
|
||||||
|
add si,129
|
||||||
|
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
|
||||||
|
|
||||||
|
xx dw 0
|
||||||
|
yy dw 0
|
||||||
|
xxyy dw 3
|
||||||
|
xxyy2 dw 3
|
||||||
|
|
||||||
|
lastline db 0
|
||||||
|
sizex db 0
|
||||||
|
sizex2 db 0
|
||||||
|
buffer db 2048 dup (0)
|
||||||
|
|
||||||
|
dep db ':',0
|
||||||
|
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
|
||||||
|
sect dw 0
|
||||||
|
infos vgainf <>
|
||||||
|
|
||||||
|
importing
|
||||||
|
use DISQUE,readsector
|
||||||
|
use DISQUE,writesector
|
||||||
|
use VIDEO,setvideomode
|
||||||
|
use VIDEO,savestate
|
||||||
|
use VIDEO,restorestate
|
||||||
|
use VIDEO,setxy
|
||||||
|
use VIDEO,addline
|
||||||
|
use VIDEO,saveparamto
|
||||||
|
use VIDEO,disablescroll
|
||||||
|
use VIDEO,clearscreen
|
||||||
|
use VIDEO.LIB,print
|
||||||
|
use VIDEO.LIB,showhex
|
||||||
|
use VIDEO.LIB,showchar
|
||||||
|
endi
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue