Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     ORG 'PS'  :   OUTPUT "Issue45C_arg_substitution.bin"
  2.  
  3.     DEFARRAY arrayIdx 2,3,4,0,1
  4.     DEFARRAY arrayTxt 't0', 't1', 't2', 't3', 't4'
  5.  
  6.     ; read array items in macro
  7.     MACRO readArray idx?
  8. .ii=-idx?
  9.         db      arrayTxt[ arrayIdx[ idx? + .ii ] ], " "
  10.         db      arrayTxt[ arrayIdx[ .ii + idx? ] ], " "
  11.         DUP idx?
  12.             DEFINE readArrayM_idx? .ii+idx?
  13.             db      arrayTxt[ arrayIdx[ .ii + idx? ] ], " "
  14.             db      arrayTxt[arrayIdx[readArrayM_idx?]], " "
  15.             IF 0 <= readArrayM_idx?
  16.                 db      arrayTxt[arrayIdx[readArrayM_idx?]], " "
  17.             ENDIF
  18.             UNDEFINE readArrayM_idx?
  19. .ii=.ii+1
  20.         EDUP
  21.     ENDM
  22.  
  23.     readArray 4
  24.     db  arrayTxt[arrayIdx[4]], "\n"
  25.