git.gag.com Git - fw/sdcc/blob - device/lib/_ispunct.lst

   1                               1 ;--------------------------------------------------------
   2                               2 ; File Created by SDCC : FreeWare ANSI-C Compiler
   3                               3 ; Version 2.1.9Ga Sun Jan 16 17:31:29 2000
   4                               4
   5                               5 ;--------------------------------------------------------
   6                               6         .module _ispunct
   7                               7 ;--------------------------------------------------------
   8                               8 ; publics variables in this module
   9                               9 ;--------------------------------------------------------
  10                              10         .globl _ispunct
  11                              11 ;--------------------------------------------------------
  12                              12 ; special function registers
  13                              13 ;--------------------------------------------------------
  14                              14 ;--------------------------------------------------------
  15                              15 ; special function bits
  16                              16 ;--------------------------------------------------------
  17                              17 ;--------------------------------------------------------
  18                              18 ; internal ram data
  19                              19 ;--------------------------------------------------------
  20                              20         .area   DSEG    (DATA)
  21                              21 ;--------------------------------------------------------
  22                              22 ; overlayable items in internal ram
  23                              23 ;--------------------------------------------------------
  24                              24         .area   OSEG    (OVR,DATA)
  25                              25 ;--------------------------------------------------------
  26                              26 ; indirectly addressable internal ram data
  27                              27 ;--------------------------------------------------------
  28                              28         .area   ISEG    (DATA)
  29                              29 ;--------------------------------------------------------
  30                              30 ; bit data
  31                              31 ;--------------------------------------------------------
  32                              32         .area   BSEG    (BIT)
  33                              33 ;--------------------------------------------------------
  34                              34 ; external ram data
  35                              35 ;--------------------------------------------------------
  36                              36         .area   XSEG    (XDATA)
  37    0000                      37 _ispunct_c_1_1:
  38    0000                      38         .ds     0x0001
  39                              39 ;--------------------------------------------------------
  40                              40 ; global & static initialisations
  41                              41 ;--------------------------------------------------------
  42                              42         .area GSINIT (CODE)
  43                              43 ;--------------------------------------------------------
  44                              44 ; code
  45                              45 ;--------------------------------------------------------
  46                              46         .area CSEG (CODE)
  47                     0000     47         G$ispunct$0$0 ==.
  48                              48 ;       _ispunct.c 25
  49                              49 ;       -----------------------------------------
  50                              50 ;        function ispunct
  51                              51 ;       -----------------------------------------
  52    0000                      52 _ispunct:
  53                     0002     53         ar2 = 0x02
  54                     0003     54         ar3 = 0x03
  55                     0004     55         ar4 = 0x04
  56                     0005     56         ar5 = 0x05
  57                     0006     57         ar6 = 0x06
  58                     0007     58         ar7 = 0x07
  59                     0000     59         ar0 = 0x00
  60                     0001     60         ar1 = 0x01
  61                              61 ;       _ispunct.c 34
  62    0000 C0 82                62         push    dpl
  63    0002 90s00r00             63         mov     dptr,#_ispunct_c_1_1
  64    0005 D0 E0                64         pop     acc
  65    0007 F0                   65         movx    @dptr,a
  66                              66 ;       _ispunct.c 28
  67    0008 90s00r00             67         mov     dptr,#_ispunct_c_1_1
  68    000B E0                   68         movx    a,@dptr
  69    000C FA                   69         mov     r2,a
  70    000D C0 02                70         push    ar2
  71    000F 8A 82                71         mov     dpl,r2
  72    0011 12s00r00             72         lcall   _isprint
  73    0014 AB 82                73         mov     r3,dpl
  74    0016 D0 02                74         pop     ar2
  75    0018 EB                   75         mov     a,r3
  76                              76 ; Peephole 110   removed ljmp by inverse jump logic
  77    0019 60 30                77         jz  00102$
  78    001B                      78 00114$:
  79                              79 ;       _ispunct.c 29
  80    001B C0 02                80         push    ar2
  81    001D 8A 82                81         mov     dpl,r2
  82    001F 12s00r00             82         lcall   _islower
  83    0022 AB 82                83         mov     r3,dpl
  84    0024 D0 02                84         pop     ar2
  85    0026 EB                   85         mov     a,r3
  86                              86 ; Peephole 109   removed ljmp by inverse jump logic
  87    0027 70 22                87         jnz  00102$
  88    0029                      88 00115$:
  89                              89 ;       _ispunct.c 30
  90    0029 C0 02                90         push    ar2
  91    002B 8A 82                91         mov     dpl,r2
  92    002D 12s00r00             92         lcall   _isupper
  93    0030 AB 82                93         mov     r3,dpl
  94    0032 D0 02                94         pop     ar2
  95    0034 EB                   95         mov     a,r3
  96                              96 ; Peephole 109   removed ljmp by inverse jump logic
  97    0035 70 14                97         jnz  00102$
  98    0037                      98 00116$:
  99                              99 ;       _ispunct.c 31
 100    0037 BA 20 02            100         cjne    r2,#0x20,00117$
 101                             101 ; Peephole 132   changed ljmp to sjmp
 102    003A 80 0F               102         sjmp 00102$
 103    003C                     103 00117$:
 104                             104 ;       _ispunct.c 32
 105    003C 8A 82               105         mov     dpl,r2
 106    003E 12s00r00            106         lcall   _isdigit
 107    0041 AA 82               107         mov     r2,dpl
 108    0043 EA                  108         mov     a,r2
 109                             109 ; Peephole 109   removed ljmp by inverse jump logic
 110    0044 70 05               110         jnz  00102$
 111    0046                     111 00118$:
 112                             112 ;       _ispunct.c 33
 113    0046 75 82 01            113         mov     dpl,#0x01
 114                             114 ; Peephole 132   changed ljmp to sjmp
 115    0049 80 03               115         sjmp 00107$
 116    004B                     116 00102$:
 117                             117 ;       _ispunct.c 34
 118    004B 75 82 00            118         mov     dpl,#0x00
 119    004E                     119 00107$:
 120                     004E    120         C$_ispunct.c$35$1$1 ==.
 121                     004E    121         XG$ispunct$0$0 ==.
 122    004E 22                  122         ret
 123                             123         .area   CSEG    (CODE)