Aktív témák

• #10 OddMan őstag

  2004-12-17 11:29:29 #10

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  OddMan

  őstag

  Írtam egy egyszerű kis ams kódot, ami kiszínezi fehérre a képernyőt 320x200 256 színű képernyőnél pascalban. Talán indulásnak jó lesz.
  
  
  ####### vidasm.pas
  program vidasm;
  
  uses crt;
  
  procedure video320x200; assembler;
  asm
  mov ax,13h
  int 10h
  end;
  
  procedure video80x25; assembler;
  asm
  mov ax,03h
  int 10h
  end;
  
  procedure bg; assembler;
  asm
  mov ax,0a000h
  mov es,ax
  mov ax,0Fh
  xor di,di
  mov cx,320*200
  @cikl:
  mov es:[di],ax
  inc di
  loop @cikl
  end;
  
  
  BEGIN
  writeln('program starting...');
  video320x200;
  bg;
  repeat
  until keypressed;
  video80x25;
  END.
  
  
  [Szerkesztve]

  ''A szíved szabad! Légy bátor és kövesd!''

Aktív témák