home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / assemblr / library / tasmswan / showparm.asm < prev    next >
Encoding:
Assembly Source File  |  1989-07-16  |  888 b   |  57 lines
  1. %TITLE  "Display DOS command-line parameters"
  2.  
  3.     IDEAL
  4.     DOSSEG
  5.     MODEL    small
  6.     STACK    256
  7.  
  8.     DATASEG
  9.  
  10. exitCode    db    0
  11. string        db    20 DUP (?)
  12. s1        db      'Number of parameters = ', 0
  13.  
  14.  
  15.     CODESEG
  16.  
  17. ;---------- from PARAMS.obj
  18.     EXTRN     ParamCount:proc, GetParams:proc, GetOneParam:proc
  19.  
  20. ;---------- from BINASC.obj, STRINGS.obj, STRIO.obj
  21.     EXTRN    BinToAscDec:proc, NewLine:proc, StrWrite:proc
  22.     EXTRN    BinToAscHex:proc, StrUpper:proc
  23.  
  24. Start:
  25.     mov    ax,@data
  26.     mov    es,ax
  27.     call    GetParams
  28.     call    NewLine
  29.     mov    di,offset s1
  30.     call    StrWrite
  31.     call    ParamCount
  32.     mov    ax,dx
  33.     mov    cx,1
  34.     mov    di, offset string
  35.     call    BinToAscDec
  36.     call    StrWrite
  37.     call    NewLine
  38.     xor    cx,cx
  39. @@10:
  40.     call    ParamCount
  41.     cmp    cx,dx
  42.     je    Exit
  43.     push    cx
  44.     call    GetOneParam
  45.     call    StrUpper
  46.     call    StrWrite
  47.     call    NewLine
  48.     pop    cx
  49.     inc    cx
  50.     jmp    @@10
  51. Exit:
  52.     mov    ah,04Ch
  53.     mov    al,[exitCode]
  54.     int    21h
  55.  
  56.     END    Start
  57.