ALPC

.MODEL TINY .386 .DATAtext db '*duolc elprup lettil A*'; A littel purple cloud y db 1 dup(?) .code org 100hSTART: mov al,13h int 10h mov ax,0a000h mov es,ax mov cl,222 ; dettalo3: mov al,cl ; 剅 mov ah,cl ; till shr ah,2 ; att mov bh,ah ; st刲la mov bl,0 ; in CALL SetPal ; palletten loop lo3 ; som ; jag mov al,7 ; vill mov ah,63 ; ha xor bx,bx CALL SetPal ; /GoSuB mov ch,0fah ; samma sak som mov cx,64000 fast en byte mindre mov si,word ptr [y] add si,10000lo: mov bx,cx mov al,[si+bx] cmp al,100 jb fixaon: mov es:[bx],al loop lo mov cl,7lo2: pusha mov dx,ds ; h剅 b拦jar interpoleringen mov ax,0A000h mov ds,ax xor si,si newpixel: xor ah,ah xor bh,bh mov al,[si
+3
19] mov bl,[si+320] add ax,bx mov bl,[si+321] add ax,bx mov bl,[si] add ax,bx shr ax,2 jz @dont_dec dec al @dont_dec: mov [si],al inc si jnz newpixel mov ds,dx ; h剅 slutar interpoleringen popa loop lo2 mov cl,24rensa: CALL delay CALL scroll loop rensa mov cl,23 mov ah,02hlop: mov bx,23 sub bx,cx mov dl,[text+bx] int 21h CALL delay CALL scroll mov dl,8 int 21h loop lopavslut: xor ax,ax int 16h mov ax,3 int 10h mov cl,25 mov ah,02hlopa: mov bx,cx sub bx,2 mov dl,[text+bx] int 21h loop lopa retfixa: add al,120 jmp onSetPal PROC NEAR ; al = farg ah = r摅 bl = gr拢 bh = bl? mov dx,3C8h out dx,al inc dx mov al,ah out dx,al mov al,bl out dx,al mov al,bh out dx,al retSetPal ENDPdelay PROC NEAR ; sl攁r ner 5 hundradels sekunder p?ett ungif剅.. pusha mov ah,2ch ; med andra ord.. det g唕 20 s唍a h剅 p?en sek... int 21h mov bl,dllo1: int 21h cmp dl,bl je lo1 popa retdelay ENDPscroll PROC NEAR pusha mov ax,0701h xor cx,cx mov dh,24 mov dl,0 int 10h popa retscroll ENDPEND START