Karoshi MSX Community
22 de Febrero de 2019, 02:51:34 pm *
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.

Ingresar con nombre de usuario, contraseña y duración de la sesión
Noticias:
 
   Inicio   Ayuda Buscar Ingresar Registrarse  
Páginas: [1]
  Imprimir  
Autor Tema: Image presentation using "blinds"  (Leído 2037 veces)
0 Usuarios y 1 Visitante están viendo este tema.
jltursan
Karoshi Forum's Guru
*******
Mensajes: 1516


¿Que es lo que has aprendido hoy?


WWW Email
« : 02 de Octubre de 2006, 07:24:38 pm »

Mensaje original por Robsy

Hi! This is a very simple example of presenting a full screen image using blinds (like the homonymous presentation style in M$ PowerPoint).

Código:
    FORCLR equ 0F3E9h
    BLINDS:
    ; Presents a full screen image
    ; Parameters:
    ; HL- address of CHR image data
    ; DE- address of CLR image data
    ;-----------------------------------
    ; Store pointers
    push de
    push hl
    ; Set COLOR 15,0,0 (adjust to your own needs)
    ld hl,FORCLR
    ld [hl],15
    inc hl
    ld [hl],0
    inc hl
    ld [hl],0
    ; Set SCREEN 2
    call INIGRP
    ; Disable screen
    call DISSCR
    ; Copy CHR to screen
    pop hl
    ld de,CHRTBL
    ld bc,1800h
    call LDIRVM
    ; Enable screen
    call ENASCR
    ; Prepare pointers
    pop de
    ld hl,CLRTBL
    ld b,8
    ; Big loop
    @@LOOP1:
    push bc
    push de
    push hl
    ld b,3
    @@LOOP2:
    push bc
    ld b,32
    halt ; Include more HALTs to reduce speed
    @@LOOP3:
    push bc
    ld a,[de]
    call WRTVRM
    ld bc,8
    add hl,bc
    ex de,hl
    add hl,bc
    ex de,hl
    pop bc
    djnz @@LOOP3
    pop bc
    djnz @@LOOP2
    pop hl
    pop de
    pop bc
    inc hl
    inc de
    djnz @@LOOP1
    ret

Hope that it will work fine! And remember to use compressed images!
En línea

Doom dee doom dee doom
Páginas: [1]
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.21 | SMF © 2013, Simple Machines XHTML 1.0 válido! CSS válido!