Quelle  Show4.asm

;Programm zum Darstellen von BMP´s  mit einer Breite von max 320 Pixeln und einer Höhe von max. 
;200 Pixeln u. max. 256 Farben.  Syntax: show4 dateiname.ext. (c) Marcus Roming.
       
       .MODEL SMALL
       .486         
                     .STACK 100h

PalLen               EQU  1024  ;Länge Palette
Headerlaenge         EQU  PalLen + 54 ;Länge Header
Seg2BildAnf          EQU  2
Seg2BreiteFar        EQU  0
include macro.inc
extrn                CalcDi: NEAR               ;Nur zur Demonstration...

                     .DATA
Header               STRUC
         Typ         DW  ?   ;In BMP´s muß hier BM stehen
         Size1       DD  ?   
         Res1        DW  ?
         Res2        DW  ?
         OffBits     DD  ?   ;Bei Adr. hier fängt das Bild an (normal: 1078) Off: 10
         Size2       DD  ?
         Breite      DW  ?   ;Breite des Bildes in Pixel
         Breite2     DW  ?   ;hab ich aufgeteilt, die Hoehe auch
         Hoehe       DW  ?   ;Hoehe des Bildes in Pixel
         Hoehe2      DW  ?
         Planes      DW  ?
         BiBitCount  DW  ?   ;Farbtiefe 8 bit=256 
  Compression DD  ?
         SizeImage   DD  ?   ;Off: 34
         XPelsPerMtr DD  ?
         YPelsPerMtr DD  ?
         ColorsUsed  DD  ?
         CImportant  DD  ?
         Palette     DB  PalLen DUP (?)  ;Die Farbpalette
Header               ENDS
Head                 Header <>
Filename             DB 126 DUP (0)  ;Kommandozeile
FehlerMsg            DB "Fehler!$" 
FehlerMsg2           DB "Kein oder Falscher Parameter!$"
PaletteNeu           DB  PalLen DUP (?)
Segment2             DW  ?
                    
;**********************************ANFANG CODE **************************************************

                     .CODE
                     CutMem
                     Gettail Filename,NoTail
       call InitData1
                     mov  al,00h
                     mov  ah,3Dh
       mov  dx,OFFSET Filename
                     int  21h   ;Datei oeffnen
       jc   Fehler
       mov  bx,ax
       mov  ah,3Fh
       mov  cx,Headerlaenge
       mov  dx,OFFSET Head
                     int  21h   ;Header einlesen
       jc   Fehler
    
       AllocMem 0FFFh

       mov  [Segment2],ax  ;Speicher res.

       cmp  Head.Typ,"MB"  ;Bitmap?
       jne  Fehler
       cmp  Head.BiBitCount,08h ;8-Bit Farben?
       jne  Fehler
                     mov  cx,word ptr [Head.SizeImage]   
       call InitFardata
       mov  ah,3Fh                         
                     mov  dx,Seg2BildAnf
                     int  21h   ;Bild rein!!
       jc   Fehler
       mov  ah,3Eh
       int  21h   ;Closefile
       call InitData1       
       mov  ah,00h
       mov  al,13h
       int  10h   ;VGA-Modus
                     call MakePalette  ;Palette umwandeln
                     mov  ax,0A000h            
                     mov  es,ax   ;es auf Videospeicher 
                     xor  ax,ax   ;x-Pos: 0
                     mov  dx,[Head.Hoehe]  
       call CalcDi
                     mov  si,Seg2BildAnf ;Zeigt auf Bildanfang. Pointer fuer Buffer!
                     mov  cx,[Head.Hoehe]
       mov  ax,[Head.Breite]

       push ax   ;Anfang: Nullbyte(!) Korrektur
       mov  bl,4                 
       div  bl  
       xor  bx,bx
       cmp  ah,00h  ;Breite durch 4 teilbar?
       je   Weiter  ;Ja: Nichts machen Nein: bx mit Korrekturwert für si laden
        mov  al,ah
       xor  ah,ah
       mov  bx,04h  ;4 minus Rest=Nullbyte(s)
       sub  bx,ax   ;bx=Korrekturwert 
Weiter:              pop  ax
      ;Ende Nullbyte Korrektur
       call InitFardata
       mov  [ds:Seg2BreiteFar],ax
Loopy:               push cx   ;Bild zeichnen am Bsp. Vollbild: bei x=0 und y=200 anfangen, 
                     mov  cx,word ptr [ds:Seg2BreiteFar]       ;bis x=320 dann y=199 x=0 bis x=320, y=198 etc.
Loopx:               mov  al,byte ptr [si]
                     inc  si
       stosb
       Loop Loopx
       add  si,bx   ;+ Korrekturwert (d.h. entweder 0 oder 1)
       mov  ax,0            
       dec  dx 
       call CalcDi
       pop  cx
       Loop Loopy

       jmp  Ende
Fehler:       mov  ah,09h
                     call InitData1
       lea  dx,FehlerMsg
       int  21h
       jmp  Ende

NoTail:              call InitData1
                     mov  ah,09h
       lea  dx,FehlerMsg2
       int  21h

Ende:       mov  ah,07h  ;Warten auf Tastendruck
                     int  21h
       StVidMod 3h
       mov  es,[Segment2]
       mov  ah,49h
                     int  21h   ;Speicher wieder freigeben
                     mov  ah,4Ch
       int  21h

;**********************************ANFANG PROZEDUREN ********************************************


MakePalette          PROC NEAR   ;Palette von WIN mach DOS
                     push bx
       cld
                     push ds
       pop  es   ;ES=DS 
                     mov  si,OFFSET Head.Palette      
                     mov  di,OFFSET PaletteNeu     
                     mov  cx,1024                  
DivLoop:             
                     lodsb   ;r
                     shr  al,2   ;von 255-0 (WIN) nach 63-0 (DOS)
                     stosb
                     Loop DivLoop
                     mov  si,OFFSET PaletteNeu
                     mov  di,si
                     mov  cx,256 

BswapLoop:           
                     lodsd
                     shl eax,8        
                     bswap eax   ;Umstellen
                     stosd
       dec  di   ;nur 3 Bytes der 4 benötigt!
                     Loop BswapLoop

                     mov  ah,10h
                     mov  al,12h
                     mov  bx,0
                     mov  cx,256
                     mov  dx,OFFSET PaletteNeu
                     int  10h   ;Neue Palette nach DOS
       pop  bx
                     ret
MakePalette          ENDP 

InitData1            PROC NEAR
                     push ax
                     mov  ax,@data
                     mov  ds,ax
       ASSUME DS:@data
       pop  ax
       ret
InitData1            ENDP


InitFardata          PROC NEAR
                     push ax
       mov  ax,[Segment2]  ;DS auf Segment 2 
       mov  ds,ax
       pop  ax
       ret
InitFardata      ENDP

                     END