?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. testCond    MACRO arg1?, arg2?, arg3?
  2.                 IF arg1?
  3.                     DB  arg2?
  4.                     IF !arg1?
  5.                         never happens
  6.                     ENDIF
  7.                 ELSE
  8.                     DB  arg3?
  9.                     IF $8004 <= $
  10.                         DB  "..."
  11.                     ELSE
  12.                         jr  nc,.localLabelInCondition + '!'
  13.                     ENDIF
  14. .localLabelInCondition
  15.                 ENDIF
  16.             ENDM
  17.  
  18.         DEVICE ZXSPECTRUM48 : ORG $8000
  19.         OUTPUT "conditions_in_macro.bin"
  20.         testCond 1, 'A', 'B'    ; A
  21.         testCond 0, 'A', 'B'    ; B0!
  22.         DB " "                  ; " "
  23.         testCond 0, 'C', 'D'    ; D...
  24.         OUTEND
  25.