home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / TASMSWAN.ZIP / STRUC.ASM < prev    next >
Assembly Source File  |  1989-07-13  |  744b  |  49 lines

  1. %TITLE  "Structure demo for the Turbo Debugger"
  2.  
  3.     IDEAL
  4.     DOSSEG
  5.     MODEL    small
  6.     STACK    256
  7.  
  8. STRUC    Date
  9.  day    db    1
  10.  month    db      ?
  11.  year    dw    1991
  12. ENDS Date
  13.  
  14. STRUC    CityState
  15.  city    db    '####################',0
  16.  state    db    '##',0
  17. ENDS CityState
  18.  
  19.  
  20.     DATASEG
  21.  
  22. exitCode    db    0
  23.  
  24. today         Date        <>
  25. birthDay    Date        <8,8,1988>    ; for this program
  26. earthDay    Date        <1,1,2001>
  27. newYear        Date        <,,1990>
  28.  
  29. address        CityState    <>
  30. glitterTown    CityState     <'Hollywood','CA'>
  31. pennState    CityState    <'Pennstate','PA'>
  32. hotSpot        CityState    <'Brownsville','TX'>
  33. defaultState    CityState    <,'NH'>
  34. defaultCity    CityState    <'New York City'>
  35.  
  36.  
  37.     CODESEG
  38.  
  39. Start:
  40.     mov    ax,@data
  41.     mov    ds,ax
  42.  
  43. Exit:
  44.     mov    ah,04Ch
  45.     mov    al,[exitCode]
  46.     int    21h
  47.  
  48.     END    Start
  49.