home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 500-599 / ff589.lza / Term / TermSrc.lha / CodeCmp.asm < prev    next >
Assembly Source File  |  1991-09-02  |  2KB  |  104 lines
  1. * $Revision Header * Header built automatically - do not edit! *************
  2. *
  3. *    (C) Copyright 1991 by Olaf 'Olsen' Barthel & MXM
  4. *
  5. *    Name .....: CodeCmp.asm
  6. *    Created ..: Monday 21-Jan-91 20:12
  7. *    Revision .: 0
  8. *
  9. *    Date            Author          Comment
  10. *    =========       ========        ====================
  11. *    21-Jan-91       Olsen           Created this file!
  12. *
  13. * $Revision Header *********************************************************
  14.  
  15.     csect    text,0,0,1,2
  16.  
  17. *--------------------------------------------------------------------------
  18. *
  19. *    This file contains small and fast character comparison routines
  20. *    which are employed by the VT100/ANSI control sequence parser.
  21. *
  22. *--------------------------------------------------------------------------
  23.  
  24.     xdef    _Num1
  25.  
  26. _Num1:    move.l    4(sp),d0
  27.  
  28.     cmp.w    #'0',d0
  29.     blt.s    1$    ; d0 < '0'
  30.  
  31.     cmp.w    #'9',d0
  32.     bgt.s    1$    ; d0 > '9'
  33.  
  34.     moveq    #1,d0
  35.     rts
  36.  
  37. 1$    moveq    #0,d0
  38.     rts
  39.  
  40. *--------------------------------------------------------------------------
  41.  
  42.     xdef    _Num2
  43.  
  44. _Num2:    move.l    4(sp),d0
  45.  
  46.     cmp.w    #'0',d0
  47.     blt.s    3$    ; d0 < '0'
  48.  
  49.     cmp.w    #'9',d0
  50.     bgt.s    1$    ; d0 > '9'
  51.  
  52. 2$    moveq    #1,d0
  53.     rts
  54.  
  55. 1$    cmp.w    #';',d0    ; d0 = ';'
  56.     beq.s    2$
  57.  
  58. 3$    moveq    #0,d0
  59.     rts
  60.  
  61. *--------------------------------------------------------------------------
  62.  
  63.     xdef    _Num3
  64.  
  65. _Num3:    move.l    4(sp),d0
  66.  
  67.     cmp.w    #'?',d0    ; d0 = '?'
  68.     beq.s    2$
  69.  
  70.     cmp.w    #'0',d0
  71.     blt.s    1$    ; d0 < '0'
  72.  
  73.     cmp.w    #'9',d0
  74.     bgt.s    1$    ; d0 > '9'
  75.  
  76. 2$    moveq    #1,d0
  77.     rts
  78.  
  79. 1$    moveq    #0,d0
  80.     rts
  81.  
  82. *--------------------------------------------------------------------------
  83.  
  84.     xdef    _Num4
  85.  
  86. _Num4:    move.l    4(sp),d0
  87.  
  88.     cmp.w    #'=',d0    ; d0 = '='
  89.     beq.s    2$
  90.  
  91.     cmp.w    #'0',d0
  92.     blt.s    1$    ; d0 < '0'
  93.  
  94.     cmp.w    #'9',d0
  95.     bgt.s    1$    ; d0 > '9'
  96.  
  97. 2$    moveq    #1,d0
  98.     rts
  99.  
  100. 1$    moveq    #0,d0
  101.     rts
  102.  
  103.     end
  104.