home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / SETPGMS.ZIP / SETGLOB.ASM < prev    next >
Assembly Source File  |  1987-01-06  |  1KB  |  33 lines
  1.                  PAGE   60,132 
  2.  
  3.                  ;Usage is: SETGLOB  varname=value
  4.                  ;clone of SET command that demonstrates updating
  5.                  ;      the environment string.
  6.                  ;No matter what,the
  7.                  ;      global environment is updated
  8.  
  9.  
  10. code_seg         segment para public
  11.                  assume  cs:code_seg,ds:code_seg,es:code_seg
  12.                  extrn   env_set:near
  13.                  org    80h
  14. psp_parm_string  db     ?
  15.                  org    100h
  16. main             proc   far
  17.                  jmp    main_start
  18.                  db     'Copyright 1987, A. B. Krueger GPW MI, 48236'
  19. main_start:      ;this is the actual main line program
  20.  
  21.                  mov     si,offset psp_parm_string  ;address of set string
  22.                  or      psp_parm_string,80h        ;select global environment
  23.  
  24.                  call    env_set                    ;change environment per ds:si
  25.  
  26.                  mov     ah,4Ch
  27.                  int     21h                                 
  28.  
  29. main             endp
  30. code_seg      ends   
  31.               end     main
  32.  
  33.