[Bits 16]

   jmp start ; spring zum anfang des 16Bit kernels

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   
;; DESKRIPTOREN                            ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

NULL_Desc: ; Deskriptor auf 0
   dd 0
   dd 0

CODE_Desc: ; Code Deskriptor
; Datensegment: Execute-Read
; Segment present
; Privilegstufe: 0
; 4096 Byte per Unit
; 32-Bit
; Basisadresse: 0
; Segmentgröße: 0xFFFFF
   dw 0xFFFF
   dw 0
   db 0
   db 0x9A
   db 0xCF
   db 0

DATA_Desc: ; Daten Deskriptor
; Datensegment: Read-Write
; Segment present
; Privilegstufe: 0
; 4096 Byte per Unit
; 32-Bit
; Basisadresse: 0
; Segmentgröße: 0xFFFFF
   dw 0xFFFF
   dw 0
   db 0
   db 0x92
   db 0xCF
   db 0

gdt:
   Limit dw 0 ; Größe der GDT (wird später eingetragen)
   Base  dd 0 ; Adresse der GDT (wird später eingetragen)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   
;; Anfang des Codes                        ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

start:         ; Hier gehts los!

   cli         ; Keine Interrupts bitte!


;; Enable A20 Gate (works!! so I delete it) ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   
;; Wechsel in den PMODE                    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   mov eax, cs ; eax auf derzeitige Codesegment setzen
   mov  ds, ax ; ds auf Codesegment setzen
   
   ; Segmentstartadressen Verschieben
   shl eax, 4 
   mov [CODE_Desc+2], ax ; Den 1. Teil der Linearen Adresse eintragen
   mov [DATA_Desc+2], ax
   shr eax, 16
   mov [CODE_Desc+4], al ; Den 2. Teil der Linearen Adresse eintragen
   mov [DATA_Desc+4], al
   
   ; Eintragen der Basisadresse und Limit für die GDT
   mov eax, cs        ; eax auf derzeitige Codesegment setzen
   shl eax, 4
   add eax, NULL_Desc ; Anfang der Deskriptoren

   mov [Base] , eax
   mov [Limit], WORD gdt - NULL_Desc - 1 ; Startoffset vom Offset der GDT Subtraieren
   
   lgdt [gdt] ; GDT Register laden
   
   mov eax, cr0 ; Das CR0 Register in eax laden
   or  eax, 1   ; Das 0. Bit (PE Bit) auf 1 setzen
   mov cr0, eax ; Den neuen Wert in CR0 laden
  
   db 0xEA  ; Bitmuster für ein FAR JUMP
   dw PMODE ; Angabe des Offsets zu dem gesprungen werden soll
   dw 0x8   ; Angabe des Selektors für das Segment zu dem gespr. werden soll


;;;;;;;;;;;;;;;;;;;;;
;  AB HIER 32 BIT  ;;
;;;;;;;;;;;;;;;;;;;;;

[Bits 32]

PMODE:
   
   ; Segmentstartadresse wieder auf 0 setzen
   mov WORD [CODE_Desc+2], 0
   mov WORD [DATA_Desc+2], 0
   mov BYTE [CODE_Desc+4], 0
   mov BYTE [DATA_Desc+4], 0

   ; Selektor für das Datensegment erstellen
   mov eax, 2  ; Index 2 der GTD auswählen (CODE_Desc)
   shl eax, 3  ; Im Selektor beginnt der Index erst ab Bit 3
   mov  ds, ax
   mov  es, ax
   mov  ss, ax
   mov eax, 0
   mov  fs, ax ; FS und GS auf NULL_Desc zeigen lassen
   mov  gs, ax
   mov esp, 0x1FFFFF ; ESP (Stack) auf 2 MB setzen

   jmp 0x8:0x10000 + PMODE2 ; Sprung in das "neue" Codesegment


PMODE2:

   ;print a string
   mov ebx, 1
   mov ecx, 1
   mov esi, msg_REOS
   call printstr ; doesn't work 

ENDLESS:
   jmp ENDLESS ; Endlosschleife

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   
;; Variablen                               ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; 1. Byte ist das Attribut
; 1. Byte is the Attribute
msg_REOS db 0x8E,"REOS",0,0


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   
;; Funktionen                              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; works correct.
;ESI>Test EBX>Spalten ECX>Zeilen
printstr: 
   ; Position berechnen
   imul ecx, 80     ; 80 Zeichen pro Reihe
   add  ebx, ecx    ; und die Aktuelle spalte dazu
   imul ebx, 2      ; mal 2 wegen dem Attr.-byte

   ; VRAM initialisieren
   mov edi, 0xB8000 ; VideoRam
   add edi, ebx     ; Zur gewünschten adresse springen
   ; Farbe laden
   ;inc esi          ; 1. Zeichen holen
   mov dl, [esi]    ; 1. Zeichen laden (Farbcode) in dl

   ; ausgabeschleife
  .char:
   ; Auf abbruch prüfen
   inc esi          ; Zum Nächsten Zeichen gehen
   mov bl, [esi]    ; und in bx laden
   cmp bl, 0        ; ist das Byte = 0 ?
   jz  .done        ; Dann ist jetzt schluss

   ; Zeichen ausgeben
   mov [edi], bl    ; Zeichen ausgeben
   inc edi          ; Weiter im VRAM
   mov [edi], dl    ; Attribut ausgeben
   inc edi          ; Weiter im VRAM
   jmp .char

  .done:
   ret
 
;...    

mov esi, msg_REOS
call printstr ; GEHT NICHT 
;...
msg_REOS db 0x8E,"REOS",0,0    

inc esi ; because the first byte ist the color
mov bl, [esi]    

now in BL should be the "R", but it isn't.

   ;TEST
   mov bl, 0x23 ; = '#'
   mov dl, 0x0C ; Red
   mov [edi], bl
   inc edi
   mov [edi], dl
    

try this:
msg db "Hello World",0
mov esi,msg
mov bl,[esi]    

   mov esi, msg_REOS
   add esi, 0x10000-1 ; So, it works !!??!!??
   call printstr