home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / TIME2.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  2KB  |  105 lines
  1.     page    66,132
  2. ;******************************** TIME2.ASM  *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. comment 
  13. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  TIME  )
  14. MONTH_TO_ASCII - get ASCII string for specified month
  15. ;
  16. ; inputs:    CX = month (1 - 12, January = 1)
  17. ; 
  18. ; output:    ES:[DI] = pointer to month name string
  19. ;            CX = length of month string
  20. ;
  21. ; Note: the day name string is not zero-terminated
  22. ;* * * * * * * * * * * * * *
  23. 
  24.     public    MONTH_TO_ASCII
  25. MONTH_TO_ASCII    PROC    FAR
  26.     mov    di,offset months
  27.     call    lookup
  28.     retf
  29. MONTH_TO_ASCII    ENDP    
  30.  
  31. months    label    byte
  32.     DB    'January  '
  33.     db    'February '
  34.     db    'March    '
  35.     db    'April    '
  36.     db    'May      '
  37.     db    'June     '
  38.     db    'July     '
  39.     db    'August   '
  40.     db    'September'
  41.     db    'October  '
  42.     db      'November '
  43.     db    'December '
  44. comment 
  45. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  TIME  )
  46. DAY_TO_ASCII - get string for specified day of the week
  47. ;
  48. ; inputs:    CX = day of week (1 - 7, Sunday = 1)
  49. ; 
  50. ; output:    ES:[DI] = pointer to day name string
  51. ;            CX = length of new string
  52. ;            
  53. ; Note: the day name string is not zero-terminated
  54. ;* * * * * * * * * * * * * *
  55. 
  56.     public    DAY_TO_ASCII
  57. DAY_TO_ASCII    proc    far
  58.     mov    di,offset days
  59.     call    lookup
  60.     retf
  61. DAY_TO_ASCII    ENDP    
  62.     
  63. days    label    byte        
  64.     db    'Sunday   '
  65.     db    'Monday   '
  66.     db    'Tuesday  '
  67.     db    'Wednesday'
  68.     db    'Thursday '
  69.     db    'Friday   '
  70.     db    'Saturday '
  71. ;--------------------------------------------------------
  72. ; local subroutine to index into a table
  73. ;  inputs:  cs:di points at table
  74. ;              cx is increment into table (1-12)
  75. ;  output:  es:di points at table entry
  76. ;              cx is length of table entry
  77. ;
  78. lookup:    cld
  79.     push    cs
  80.     pop    es        ;setup es
  81.     dec    cx
  82.     jcxz    lookup_exit    ;jmp if done
  83. lookup_lp:    
  84.     add    di,9        ;move to next table entry
  85.     loop    lookup_lp    ;loop till done
  86. lookup_exit:
  87.     push    di
  88.     mov    al,' '
  89.     mov    cx,9
  90.     repnz    scasb        ;find length of table entry
  91.     je    lookup_set    ;jmp if lenght found
  92.     mov    cx,-1
  93. lookup_set:    
  94.     sub    cx,9
  95.     neg    cx
  96.     dec    cx
  97.     pop    di        ;get ptr to table entry
  98.     ret    
  99.  
  100.  
  101. ;-----------------------------------------------------
  102.  
  103. LIBSEG    ENDS
  104.     end
  105.