PC-X 1997 March/pcx08_9703.iso/melyviz/pcx-user/asm/jump.pas

Pascal/Delphi Source File | 1996-12-24 | 1.7 KB | 30 lines

{*********************************************************}
{                                                         }
{   A program forráskódja az IDG - PCX szerkesztôségének, }
{   és Bérczi László-nak a tulajdona.                     }
{   A forráskód a kereskedelmi célokat kivéve szabadon    }
{                    terjeszthetô !                       }
{                                                         }
{   PC-X User (c) 1997, március                           }
{*********************************************************}
var Nagyobb: Boolean;
BEGIN
  asm
    mov  al, 44h         {betöltjük al-be $44-et}
    cmp  al, 33h         {összehasonlítjuk al és $33 - értékeket, és módosulnak
                          a jelzôbitek}
    ja   @Nagyobb        {ha az összehasonlítás után a jelzôbitek úgy változtak,
                          hogy nagyobb az eredmény, akkor ugrik a @Nagyobb címkére,
                          ha nem folytatódik a program az-az kisebb (vagy egyenlô) volt.}
    {@Kisebb:}           {A @Kisebb címkét nem kell használni, csak tájékoztató jellegû}
    mov  Nagyobb, False  {A Nagyobb Boolean változóba False értéket mozgat}
    jmp  @Exit           {Minden feltétel nélkül átugrik az @Exit címkére}
  @Nagyobb:              {@Nagyobb címke, a JA utasítás után itt folytatódik a
                          program futása. (ha JA-ra igaz!)}
    mov  Nagyobb, True   {A Nagyobb Boolean változóba True értéket mozgat}
    {jmp  @Exit}         {Az ugró utasítás itt fölösleges csak, tájékoztat}
  @Exit:                 {A kisebb ágból ide ugrik a prg., mert ô már befejezte
                          érték átadását.}
  end;
  WriteLn(Nagyobb);
END.