Display Morebei Aufräumarbeiten auf ein 32 Jahre altes DOS Intro von mir gestossen - war mir 100% sicher das ist alles in TurboAssembler geschrieben,
bekomme beim starten allerdings ein "Runtime Error 200 in...." das war doch das Turbo Pascal Problem....
warum ich damals die Unit .crt brauchte?
BEGIN
LoadSong (Musik);
IF Musik.SongOK
THEN
BEGIN
asm
push ds
push es
les di,Musik.MyBuff
lds si,Musik.Song
xor al,al (* irqmode!! *)
call _InitAdlib
pop es
pop ds
end;
screen;
scrollline1;
scrollline2;
waitforkey;
asm
call _StopAdlib
END ;
END;
end.
Ah, das gute alte Turbo Pascal. Da habe ich damals auch alles Mögliche mit getrieben, auch mit Assembler dabei.
Läuft hier auch noch brav in der DOS-Box.
Den Runtime 200-Patcher hast du?