; ; Ullrich von Bassewitz, 02.06.1998 ; ; Character specification table. ; ; The tables are readonly, put them into the rodata segment .rodata ; The following 256 byte wide table specifies attributes for the isxxx type ; of functions. Doing it by a table means some overhead in space, but it ; has major advantages: ; ; * It is fast. If it were'nt for the slow parameter passing of cc65, one ; could even define macros for the isxxx functions (this is usually ; done on other platforms). ; ; * It is highly portable. The only unportable part is the table itself, ; 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: .repeat 2 ; 2 times for normal and inverted .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 $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____ .endrepeat