2001-08-07, 23:13
es ist sooo cool in alten Erinnerungen schwelgen...
Nach GW-Basic hab' ich relativ schnell Turbo Pascal gelernt. Dann Assembler, C, C++, .... dann noch einige... und in letzter Zeit Perl, ASP/VB, PHP und für die Dipl. das ganze XML-Zeugs...
Aber die grenzgenialen alten Assemblerprogramme.. auf die bin ich heute noch stolz. 3000 Zeilen nur so:<pre> xor ah, ah
int 16h ; Tastatur lesen
and al, al ; ASCII-Zeichen?
jnz @@ASCIITaste1 ; ja: ASCII-Zeichen verarbeiten
cmp ah, 72 ; Cursor hinauf?
jnz @@NotCursorUp1 ; nein: Cursor hinab
cmp [bMenuPosition], 01h ; ist akt. Meneintrag der 1.
jz @@FirstMenuItem1 ; Ja: Spezialbehandlung
dec BYTE PTR [bMenuPosition] ; akt. Meneintrag um eins hinauf
jmp @@Schleife2 ; neu ausgeben und wiederholen</pre>
sorry, das musste jetzt sein [img]/images/icons/smile.gif[/img]
War ein Programm für die Schule, daher soviele Kommentare ;-)
Dafür gehe ich jetzt biken...
nòóx, Downhill Ranger
Edited by noox on 2001-08-07 17:30.
Nach GW-Basic hab' ich relativ schnell Turbo Pascal gelernt. Dann Assembler, C, C++, .... dann noch einige... und in letzter Zeit Perl, ASP/VB, PHP und für die Dipl. das ganze XML-Zeugs...
Aber die grenzgenialen alten Assemblerprogramme.. auf die bin ich heute noch stolz. 3000 Zeilen nur so:<pre> xor ah, ah
int 16h ; Tastatur lesen
and al, al ; ASCII-Zeichen?
jnz @@ASCIITaste1 ; ja: ASCII-Zeichen verarbeiten
cmp ah, 72 ; Cursor hinauf?
jnz @@NotCursorUp1 ; nein: Cursor hinab
cmp [bMenuPosition], 01h ; ist akt. Meneintrag der 1.
jz @@FirstMenuItem1 ; Ja: Spezialbehandlung
dec BYTE PTR [bMenuPosition] ; akt. Meneintrag um eins hinauf
jmp @@Schleife2 ; neu ausgeben und wiederholen</pre>
sorry, das musste jetzt sein [img]/images/icons/smile.gif[/img]
War ein Programm für die Schule, daher soviele Kommentare ;-)
Dafür gehe ich jetzt biken...
nòóx, Downhill Ranger
Edited by noox on 2001-08-07 17:30.