cos2000v1/programs/test.asm

use16
align 1

include "..\include\mem.h"
include "..\include\divers.h"

org 0h

header exe 1,0,imports,0,realstart

realstart:
    invoke    randomize
    push    0FFFFh
    pushd    652201
    pushd    1545454545
    push    1523
    push    2041
    push    zero
    push    fixe
    push    5
    push    'i'
    push    'a'
    pushd    5041
    pushd    125645
    pushd    5041
    pushd    125645
    pushd    5041
    pushd    125645
    push    message
    invoke    print
    xor     ax,ax
    int     16h
    invoke    clearscreen
    invoke    xchgpages
    invoke    clearscreen
    mov     cx,200
go1:
    invoke    xchgpages
    invoke    waitretrace
    invoke    print, textdemo1
    invoke    put
    invoke    xchgpages
    invoke    waitretrace
    dec     cx
    jnz     go1
    mov     cx,200
go2:
    invoke    xchgpages
    invoke    waitretrace
    invoke    print, textdemo2
    invoke    put
    invoke    xchgpages
    invoke    waitretrace
    dec     cx
    jnz     go2
    mov     cx,200
go3:
    invoke    xchgpages
    invoke    waitretrace 
    invoke    print, textdemo3
    invoke    put
    invoke    xchgpages
    invoke    waitretrace
    dec     cx
    jnz     go3
    invoke    clearscreen 
    invoke    xchgpages
    invoke    clearscreen
    invoke    print, texte2
    mov     bp,255
    xor     edx,edx
go4:
    invoke    xchgpages
    invoke    waitretrace
    inc     edx
    push    edx
    push    texte3
    invoke    print
    invoke    xchgpages
    invoke    waitretrace
    dec     bp
    jnz     go4
    push    texte4
    invoke    print
    mov     ax,0
    int     16h
    invoke    restorestate
    retf
put:
    invoke    random
    mov     di,ax
    and     di,4096-2
    mov     si,fond
    call    showstring2
    ret

		  
zero db 'Chaine a z<>ro terminal',0
fixe db 20,'Chaine a taille fixe'
message db "\s\m01\e\c07\h01D<31>monstration de la librairie VIDEO.LIB\l\l"
        db "\c01Nombres entiers ou sign<67>s (%%u/%%i):\l%u\l%iD\l"
        db "\c02Nombre hexad<61>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<69>o',0
texte2     db '\g04,13Routine d''affichage Ultra Rapide Agissant sur le Mat<61>riel'
           db '\g04,14Possibilit<69> 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 MATH.LIB,randomize
use MATH.LIB,random
use VIDEO.LIB,print
use VIDEO,xchgpages
use VIDEO,setvideomode
use VIDEO,clearscreen
use VIDEO,savestate
use VIDEO,restorestate
use VIDEO,waitretrace
endi