]> git.sur5r.net Git - cc65/commitdiff
New character type classification from Stefan Haubenthal
authorcuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Fri, 2 May 2003 09:13:17 +0000 (09:13 +0000)
committercuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Fri, 2 May 2003 09:13:17 +0000 (09:13 +0000)
git-svn-id: svn://svn.cc65.org/cc65/trunk@2114 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/apple2/ctype.s

index f54d50abe2a723d812c4cbd980c6296be14a8e86..203b59e5d2c1f502944882e3e370b25e5d9cd2e8 100644 (file)
@@ -1,9 +1,11 @@
-;
-; Ullrich von Bassewitz, 02.06.1998
+;                        
+; Stefan Haubenthal with minor changes from Ullrich von Bassewitz, 2003-05-02
 ;
 ; Character specification table.
 ;
 
+       .include        "ctype.inc"
+
 ; The tables are readonly, put them into the rodata segment
 
 .rodata
 ;     all real code goes into the common library.
 ;
 ;   * We save some code in the isxxx functions.
-;
-;
-; Bit assignments:
-;
-;   0 - Lower case char
-;   1 - Upper case char
-;   2 - Numeric digit
-;   3 - Hex digit (both, lower and upper)
-;   4 - Control character
-;   5 - The space character itself
-;   6 - Other whitespace (that is: '\f', '\n', '\r', '\t' and '\v')
-;   7 - Space or tab character
-
-       .export         __ctype
 
 __ctype:
-               .byte   $10     ;   0/00 ___ctrl_@___
-               .byte   $10     ;   1/01 ___ctrl_A___
-               .byte   $10     ;   2/02 ___ctrl_B___
-               .byte   $10     ;   3/03 ___ctrl_C___
-               .byte   $10     ;   4/04 ___ctrl_D___
-               .byte   $10     ;   5/05 ___ctrl_E___
-               .byte   $10     ;   6/06 ___ctrl_F___
-               .byte   $10     ;   7/07 ___ctrl_G___
-               .byte   $10     ;   8/08 ___ctrl_H___
-               .byte   $D0     ;   9/09 ___ctrl_I___
-               .byte   $50     ;  10/0a ___ctrl_J___
-               .byte   $50     ;  11/0b ___ctrl_K___
-               .byte   $50     ;  12/0c ___ctrl_L___
-               .byte   $50     ;  13/0d ___ctrl_M___
-               .byte   $10     ;  14/0e ___ctrl_N___
-               .byte   $10     ;  15/0f ___ctrl_O___
-               .byte   $10     ;  16/10 ___ctrl_P___
-               .byte   $10     ;  17/11 ___ctrl_Q___
-               .byte   $10     ;  18/12 ___ctrl_R___
-               .byte   $10     ;  19/13 ___ctrl_S___
-               .byte   $10     ;  20/14 ___ctrl_T___
-               .byte   $10     ;  21/15 ___ctrl_U___
-               .byte   $10     ;  22/16 ___ctrl_V___
-               .byte   $10     ;  23/17 ___ctrl_W___
-               .byte   $10     ;  24/18 ___ctrl_X___
-               .byte   $10     ;  25/19 ___ctrl_Y___
-               .byte   $10     ;  26/1a ___ctrl_Z___
-               .byte   $10     ;  27/1b ___ctrl_[___
-               .byte   $10     ;  28/1c ___ctrl_\___
-               .byte   $10     ;  29/1d ___ctrl_]___
-               .byte   $10     ;  30/1e ___ctrl_^___
-               .byte   $10     ;  31/1f ___ctrl_____
-               .byte   $A0     ;  32/20 ___SPACE___
-       .byte   $00     ;  33/21 _____!_____
-       .byte   $00     ;  34/22 _____"_____
-       .byte   $00     ;  35/23 _____#_____
-       .byte   $00     ;  36/24 _____$_____
-       .byte   $00     ;  37/25 _____%_____
-       .byte   $00     ;  38/26 _____&_____
-       .byte   $00     ;  39/27 _____'_____
-       .byte   $00     ;  40/28 _____(_____
-       .byte   $00     ;  41/29 _____)_____
-       .byte   $00     ;  42/2a _____*_____
-       .byte   $00     ;  43/2b _____+_____
-       .byte   $00     ;  44/2c _____,_____
-       .byte   $00     ;  45/2d _____-_____
-       .byte   $00     ;  46/2e _____._____
-       .byte   $00     ;  47/2f _____/_____
-       .byte   $0C     ;  48/30 _____0_____
-       .byte   $0C     ;  49/31 _____1_____
-       .byte   $0C     ;  50/32 _____2_____
-       .byte   $0C     ;  51/33 _____3_____
-       .byte   $0C     ;  52/34 _____4_____
-       .byte   $0C     ;  53/35 _____5_____
-       .byte   $0C     ;  54/36 _____6_____
-       .byte   $0C     ;  55/37 _____7_____
-       .byte   $0C     ;  56/38 _____8_____
-       .byte   $0C     ;  57/39 _____9_____
-       .byte   $00     ;  58/3a _____:_____
-       .byte   $00     ;  59/3b _____;_____
-       .byte   $00     ;  60/3c _____<_____
-       .byte   $00     ;  61/3d _____=_____
-       .byte   $00     ;  62/3e _____>_____
-       .byte   $00     ;  63/3f _____?_____
+               .byte   CT_CTRL                 ;   0/00 ___ctrl_@___
+       .byte   CT_CTRL                 ;   1/01 ___ctrl_A___
+       .byte   CT_CTRL                 ;   2/02 ___ctrl_B___
+       .byte   CT_CTRL                 ;   3/03 ___ctrl_C___
+       .byte   CT_CTRL                 ;   4/04 ___ctrl_D___
+       .byte   CT_CTRL                 ;   5/05 ___ctrl_E___
+       .byte   CT_CTRL                 ;   6/06 ___ctrl_F___
+       .byte   CT_CTRL                 ;   7/07 ___ctrl_G___
+       .byte   CT_CTRL                 ;   8/08 ___ctrl_H___
+       .byte   CT_CTRL | CT_OTHER_WS | CT_SPACE_TAB
+                                       ;   9/09 ___ctrl_I___
+       .byte   CT_CTRL | CT_OTHER_WS   ;  10/0a ___ctrl_J___
+       .byte   CT_CTRL | CT_OTHER_WS   ;  11/0b ___ctrl_K___
+       .byte   CT_CTRL | CT_OTHER_WS   ;  12/0c ___ctrl_L___
+       .byte   CT_CTRL | CT_OTHER_WS   ;  13/0d ___ctrl_M___
+       .byte   CT_CTRL                 ;  14/0e ___ctrl_N___
+       .byte   CT_CTRL                 ;  15/0f ___ctrl_O___
+       .byte   CT_CTRL                 ;  16/10 ___ctrl_P___
+       .byte   CT_CTRL                 ;  17/11 ___ctrl_Q___
+       .byte   CT_CTRL                 ;  18/12 ___ctrl_R___
+       .byte   CT_CTRL                 ;  19/13 ___ctrl_S___
+       .byte   CT_CTRL                 ;  20/14 ___ctrl_T___
+       .byte   CT_CTRL                 ;  21/15 ___ctrl_U___
+       .byte   CT_CTRL                 ;  22/16 ___ctrl_V___
+       .byte   CT_CTRL                 ;  23/17 ___ctrl_W___
+       .byte   CT_CTRL                 ;  24/18 ___ctrl_X___
+       .byte   CT_CTRL                 ;  25/19 ___ctrl_Y___
+       .byte   CT_CTRL                 ;  26/1a ___ctrl_Z___
+       .byte   CT_CTRL                 ;  27/1b ___ctrl_[___
+       .byte   CT_CTRL                 ;  28/1c ___ctrl_\___
+       .byte   CT_CTRL                 ;  29/1d ___ctrl_]___
+       .byte   CT_CTRL                 ;  30/1e ___ctrl_^___
+       .byte   CT_CTRL                 ;  31/1f ___ctrl_____
+       .byte   CT_SPACE | CT_SPACE_TAB ;  32/20 ___SPACE___
+       .byte   $00                     ;  33/21 _____!_____
+       .byte   $00                     ;  34/22 _____"_____
+       .byte   $00                     ;  35/23 _____#_____
+       .byte   $00                     ;  36/24 _____$_____
+       .byte   $00                     ;  37/25 _____%_____
+       .byte   $00                     ;  38/26 _____&_____
+       .byte   $00                     ;  39/27 _____'_____
+       .byte   $00                     ;  40/28 _____(_____
+       .byte   $00                     ;  41/29 _____)_____
+       .byte   $00                     ;  42/2a _____*_____
+       .byte   $00                     ;  43/2b _____+_____
+       .byte   $00                     ;  44/2c _____,_____
+       .byte   $00                     ;  45/2d _____-_____
+       .byte   $00                     ;  46/2e _____._____
+       .byte   $00                     ;  47/2f _____/_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  48/30 _____0_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  49/31 _____1_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  50/32 _____2_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  51/33 _____3_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  52/34 _____4_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  53/35 _____5_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  54/36 _____6_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  55/37 _____7_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  56/38 _____8_____
+       .byte   CT_DIGIT | CT_XDIGIT    ;  57/39 _____9_____
+       .byte   $00                     ;  58/3a _____:_____
+       .byte   $00                     ;  59/3b _____;_____
+       .byte   $00                     ;  60/3c _____<_____
+       .byte   $00                     ;  61/3d _____=_____
+       .byte   $00                     ;  62/3e _____>_____
+       .byte   $00                     ;  63/3f _____?_____
 
-       .byte   $00     ;  64/40 _____@_____
-               .byte   $0A     ;  65/41 _____A_____
-               .byte   $0A     ;  66/42 _____B_____
-               .byte   $0A     ;  67/43 _____C_____
-               .byte   $0A     ;  68/44 _____D_____
-               .byte   $0A     ;  69/45 _____E_____
-               .byte   $0A     ;  70/46 _____F_____
-               .byte   $02     ;  71/47 _____G_____
-               .byte   $02     ;  72/48 _____H_____
-               .byte   $02     ;  73/49 _____I_____
-               .byte   $02     ;  74/4a _____J_____
-               .byte   $02     ;  75/4b _____K_____
-               .byte   $02     ;  76/4c _____L_____
-               .byte   $02     ;  77/4d _____M_____
-               .byte   $02     ;  78/4e _____N_____
-               .byte   $02     ;  79/4f _____O_____
-               .byte   $02     ;  80/50 _____P_____
-               .byte   $02     ;  81/51 _____Q_____
-               .byte   $02     ;  82/52 _____R_____
-               .byte   $02     ;  83/53 _____S_____
-               .byte   $02     ;  84/54 _____T_____
-               .byte   $02     ;  85/55 _____U_____
-               .byte   $02     ;  86/56 _____V_____
-               .byte   $02     ;  87/57 _____W_____
-               .byte   $02     ;  88/58 _____X_____
-               .byte   $02     ;  89/59 _____Y_____
-               .byte   $02     ;  90/5a _____Z_____
-       .byte   $00     ;  91/5b _____[_____
-       .byte   $00     ;  92/5c _____\_____
-       .byte   $00     ;  93/5d _____]_____
-       .byte   $00     ;  94/5e _____^_____
-       .byte   $00     ;  95/5f _UNDERLINE_
-       .byte   $00     ;  96/60 ___grave___
-               .byte   $09     ;  97/61 _____a_____
-               .byte   $09     ;  98/62 _____b_____
-               .byte   $09     ;  99/63 _____c_____
-               .byte   $09     ; 100/64 _____d_____
-               .byte   $09     ; 101/65 _____e_____
-               .byte   $09     ; 102/66 _____f_____
-               .byte   $01     ; 103/67 _____g_____
-               .byte   $01     ; 104/68 _____h_____
-               .byte   $01     ; 105/69 _____i_____
-               .byte   $01     ; 106/6a _____j_____
-               .byte   $01     ; 107/6b _____k_____
-               .byte   $01     ; 108/6c _____l_____
-               .byte   $01     ; 109/6d _____m_____
-               .byte   $01     ; 110/6e _____n_____
-               .byte   $01     ; 111/6f _____o_____
-               .byte   $01     ; 112/70 _____p_____
-               .byte   $01     ; 113/71 _____q_____
-               .byte   $01     ; 114/72 _____r_____
-               .byte   $01     ; 115/73 _____s_____
-               .byte   $01     ; 116/74 _____t_____
-               .byte   $01     ; 117/75 _____u_____
-               .byte   $01     ; 118/76 _____v_____
-               .byte   $01     ; 119/77 _____w_____
-               .byte   $01     ; 120/78 _____x_____
-               .byte   $01     ; 121/79 _____y_____
-               .byte   $01     ; 122/7a _____z_____
-               .byte   $00     ; 123/7b _____{_____
-               .byte   $00     ; 124/7c _____|_____
-               .byte   $00     ; 125/7d _____}_____
-               .byte   $00     ; 126/7e _____~_____
-               .byte   $40     ; 127/7f ____DEL____
+       .byte   $00                     ;  64/40 _____@_____
+       .byte   CT_UPPER | CT_XDIGIT    ;  65/41 _____A_____
+       .byte   CT_UPPER | CT_XDIGIT    ;  66/42 _____B_____
+       .byte   CT_UPPER | CT_XDIGIT    ;  67/43 _____C_____
+       .byte   CT_UPPER | CT_XDIGIT    ;  68/44 _____D_____
+       .byte   CT_UPPER | CT_XDIGIT    ;  69/45 _____E_____
+       .byte   CT_UPPER | CT_XDIGIT    ;  70/46 _____F_____
+       .byte   CT_UPPER                ;  71/47 _____G_____
+       .byte   CT_UPPER                ;  72/48 _____H_____
+       .byte   CT_UPPER                ;  73/49 _____I_____
+       .byte   CT_UPPER                ;  74/4a _____J_____
+       .byte   CT_UPPER                ;  75/4b _____K_____
+       .byte   CT_UPPER                ;  76/4c _____L_____
+       .byte   CT_UPPER                ;  77/4d _____M_____
+       .byte   CT_UPPER                ;  78/4e _____N_____
+       .byte   CT_UPPER                ;  79/4f _____O_____
+       .byte   CT_UPPER                ;  80/50 _____P_____
+       .byte   CT_UPPER                ;  81/51 _____Q_____
+       .byte   CT_UPPER                ;  82/52 _____R_____
+       .byte   CT_UPPER                ;  83/53 _____S_____
+       .byte   CT_UPPER                ;  84/54 _____T_____
+       .byte   CT_UPPER                ;  85/55 _____U_____
+       .byte   CT_UPPER                ;  86/56 _____V_____
+       .byte   CT_UPPER                ;  87/57 _____W_____
+       .byte   CT_UPPER                ;  88/58 _____X_____
+       .byte   CT_UPPER                ;  89/59 _____Y_____
+       .byte   CT_UPPER                ;  90/5a _____Z_____
+       .byte   $00                     ;  91/5b _____[_____
+       .byte   $00                     ;  92/5c _____\_____
+       .byte   $00                     ;  93/5d _____]_____
+       .byte   $00                     ;  94/5e _____^_____
+       .byte   $00                     ;  95/5f _UNDERLINE_
+       .byte   $00                     ;  96/60 ___grave___
+       .byte   CT_LOWER | CT_XDIGIT    ;  97/61 _____a_____
+       .byte   CT_LOWER | CT_XDIGIT    ;  98/62 _____b_____
+       .byte   CT_LOWER | CT_XDIGIT    ;  99/63 _____c_____
+       .byte   CT_LOWER | CT_XDIGIT    ; 100/64 _____d_____
+       .byte   CT_LOWER | CT_XDIGIT    ; 101/65 _____e_____
+       .byte   CT_LOWER | CT_XDIGIT    ; 102/66 _____f_____
+       .byte   CT_LOWER                ; 103/67 _____g_____
+       .byte   CT_LOWER                ; 104/68 _____h_____
+       .byte   CT_LOWER                ; 105/69 _____i_____
+       .byte   CT_LOWER                ; 106/6a _____j_____
+       .byte   CT_LOWER                ; 107/6b _____k_____
+       .byte   CT_LOWER                ; 108/6c _____l_____
+       .byte   CT_LOWER                ; 109/6d _____m_____
+       .byte   CT_LOWER                ; 110/6e _____n_____
+       .byte   CT_LOWER                ; 111/6f _____o_____
+       .byte   CT_LOWER                ; 112/70 _____p_____
+       .byte   CT_LOWER                ; 113/71 _____q_____
+       .byte   CT_LOWER                ; 114/72 _____r_____
+       .byte   CT_LOWER                ; 115/73 _____s_____
+       .byte   CT_LOWER                ; 116/74 _____t_____
+       .byte   CT_LOWER                ; 117/75 _____u_____
+       .byte   CT_LOWER                ; 118/76 _____v_____
+       .byte   CT_LOWER                ; 119/77 _____w_____
+       .byte   CT_LOWER                ; 120/78 _____x_____
+       .byte   CT_LOWER                ; 121/79 _____y_____
+       .byte   CT_LOWER                ; 122/7a _____z_____
+       .byte   $00                     ; 123/7b _____{_____
+       .byte   $00                     ; 124/7c _____|_____
+       .byte   $00                     ; 125/7d _____}_____
+       .byte   $00                     ; 126/7e _____~_____
+       .byte   CT_OTHER_WS             ; 127/7f ____DEL____
 
-               .byte   $00     ; 128/80 ___________
-               .byte   $00     ; 129/81 ___________
-               .byte   $00     ; 130/82 ___________
-               .byte   $00     ; 131/83 ___________
-               .byte   $00     ; 132/84 ___________
-               .byte   $00     ; 133/85 ___________
-               .byte   $00     ; 134/86 ___________
-               .byte   $00     ; 135/87 ___________
-               .byte   $00     ; 136/88 ___________
-               .byte   $00     ; 137/89 ___________
-               .byte   $00     ; 138/8a ___________
-               .byte   $00     ; 139/8b ___________
-               .byte   $00     ; 140/8c ___________
-               .byte   $00     ; 141/8d ___________
-               .byte   $00     ; 142/8e ___________
-               .byte   $00     ; 143/8f ___________
-               .byte   $00     ; 144/90 ___________
-               .byte   $00     ; 145/91 ___________
-               .byte   $00     ; 146/92 ___________
-               .byte   $10     ; 147/93 ___________
-               .byte   $00     ; 148/94 ___________
-               .byte   $00     ; 149/95 ___________
-               .byte   $00     ; 150/96 ___________
-               .byte   $00     ; 151/97 ___________
-               .byte   $00     ; 152/98 ___________
-               .byte   $00     ; 153/99 ___________
-               .byte   $00     ; 154/9a ___________
-               .byte   $00     ; 155/9b ___________
-               .byte   $00     ; 156/9c ___________
-               .byte   $00     ; 157/9d ___________
-               .byte   $00     ; 158/9e ___________
-               .byte   $00     ; 159/9f ___________
+; The upper 128 characters are actually unused on the Apple, we wil encode
+; them as "other printable"
 
-               .byte   $00     ; 160/a0 ___________
-               .byte   $00     ; 161/a1 ___________
-               .byte   $00     ; 162/a2 ___________
-               .byte   $00     ; 163/a3 ___________
-               .byte   $00     ; 164/a4 ___________
-               .byte   $00     ; 165/a5 ___________
-               .byte   $00     ; 166/a6 ___________
-               .byte   $00     ; 167/a7 ___________
-               .byte   $00     ; 168/a8 ___________
-               .byte   $00     ; 169/a9 ___________
-               .byte   $00     ; 170/aa ___________
-               .byte   $00     ; 171/ab ___________
-               .byte   $00     ; 172/ac ___________
-               .byte   $00     ; 173/ad ___________
-               .byte   $00     ; 174/ae ___________
-               .byte   $00     ; 175/af ___________
-               .byte   $00     ; 176/b0 ___________
-               .byte   $00     ; 177/b1 ___________
-               .byte   $00     ; 178/b2 ___________
-               .byte   $00     ; 179/b3 ___________
-               .byte   $00     ; 180/b4 ___________
-               .byte   $00     ; 181/b5 ___________
-               .byte   $00     ; 182/b6 ___________
-               .byte   $00     ; 183/b7 ___________
-               .byte   $00     ; 184/b8 ___________
-               .byte   $00     ; 185/b9 ___________
-               .byte   $00     ; 186/ba ___________
-               .byte   $00     ; 187/bb ___________
-               .byte   $00     ; 188/bc ___________
-               .byte   $00     ; 189/bd ___________
-               .byte   $00     ; 190/be ___________
-               .byte   $00     ; 191/bf ___________
+        .res    128, $00
 
-               .byte   $02     ; 192/c0 ___________
-               .byte   $02     ; 193/c1 ___________
-               .byte   $02     ; 194/c2 ___________
-               .byte   $02     ; 195/c3 ___________
-               .byte   $02     ; 196/c4 ___________
-               .byte   $02     ; 197/c5 ___________
-               .byte   $02     ; 198/c6 ___________
-               .byte   $02     ; 199/c7 ___________
-               .byte   $02     ; 200/c8 ___________
-               .byte   $02     ; 201/c9 ___________
-               .byte   $02     ; 202/ca ___________
-               .byte   $02     ; 203/cb ___________
-               .byte   $02     ; 204/cc ___________
-               .byte   $02     ; 205/cd ___________
-               .byte   $02     ; 206/ce ___________
-               .byte   $02     ; 207/cf ___________
-               .byte   $02     ; 208/d0 ___________
-               .byte   $02     ; 209/d1 ___________
-               .byte   $02     ; 210/d2 ___________
-               .byte   $02     ; 211/d3 ___________
-               .byte   $02     ; 212/d4 ___________
-               .byte   $02     ; 213/d5 ___________
-               .byte   $02     ; 214/d6 ___________
-               .byte   $02     ; 215/d7 ___________
-               .byte   $02     ; 216/d8 ___________
-               .byte   $02     ; 217/d9 ___________
-               .byte   $02     ; 218/da ___________
-               .byte   $02     ; 219/db ___________
-               .byte   $02     ; 220/dc ___________
-               .byte   $02     ; 221/dd ___________
-               .byte   $02     ; 222/de ___________
-               .byte   $00     ; 223/df ___________
-               .byte   $01     ; 224/e0 ___________
-               .byte   $01     ; 225/e1 ___________
-               .byte   $01     ; 226/e2 ___________
-               .byte   $01     ; 227/e3 ___________
-               .byte   $01     ; 228/e4 ___________
-               .byte   $01     ; 229/e5 ___________
-               .byte   $01     ; 230/e6 ___________
-               .byte   $01     ; 231/e7 ___________
-               .byte   $01     ; 232/e8 ___________
-               .byte   $01     ; 233/e9 ___________
-               .byte   $01     ; 234/ea ___________
-               .byte   $01     ; 235/eb ___________
-               .byte   $01     ; 236/ec ___________
-               .byte   $01     ; 237/ed ___________
-               .byte   $01     ; 238/ee ___________
-               .byte   $01     ; 239/ef ___________
-               .byte   $01     ; 240/f0 ___________
-               .byte   $01     ; 241/f1 ___________
-               .byte   $01     ; 242/f2 ___________
-               .byte   $01     ; 243/f3 ___________
-               .byte   $01     ; 244/f4 ___________
-               .byte   $01     ; 245/f5 ___________
-               .byte   $01     ; 246/f6 ___________
-               .byte   $01     ; 247/f7 ___________
-               .byte   $01     ; 248/f8 ___________
-               .byte   $01     ; 249/f9 ___________
-               .byte   $01     ; 250/fa ___________
-               .byte   $01     ; 251/fb ___________
-               .byte   $01     ; 252/fc ___________
-               .byte   $01     ; 253/fd ___________
-               .byte   $01     ; 254/fe ___________
-               .byte   $00     ; 255/ff ___________