?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     ORG 100h ; or 0x100, or $100, or #100
  2.  
  3.     ; useful macro that padding code
  4.     MACRO PADORG addr
  5.          ; add padding
  6.          IF $ < addr
  7.          BLOCK addr-$
  8.          ENDIF
  9.          ORG addr
  10.     ENDM
  11.  
  12.     MACRO PADORG2 addr
  13.          ; add padding + display warning
  14.          IF $ > addr
  15.            ; no padding
  16.            DISPLAY /L, "Warning! PADORG failed! ", $, " is more than ", addr
  17.          ELSE
  18.            ; add padding
  19.            BLOCK addr-$
  20.          ENDIF
  21.          ORG addr
  22.     ENDM
  23.  
  24.     ; try the macros defined in documentation
  25.     PADORG $104
  26.     PADORG2 $106
  27.     PADORG2 $102
  28.     nop
  29.     PADORG2 $103
  30.