Skip to navigation


Text: TWOK

[BBC Micro disc version, Text tokens]

Name: TWOK [Show more] Type: Macro Category: Text Summary: Macro definition for two-letter tokens in the token table Deep dive: Printing text tokens
Context: See this macro in context in the source code References: This macro is used as follows: * QQ18 uses TWOK

The following macro is used when building the recursive token table: TWOK 'x', 'y' Insert two-letter token "xy" See the deep dive on "Printing text tokens" for details on how two-letter tokens are stored in the recursive token table.
Arguments: 'x' The first letter of the two-letter token to insert into the table 'y' The second letter of the two-letter token to insert into the table
MACRO TWOK t, k IF t = 'A' AND k = 'L' EQUB 128 EOR RE ENDIF IF t = 'L' AND k = 'E' EQUB 129 EOR RE ENDIF IF t = 'X' AND k = 'E' EQUB 130 EOR RE ENDIF IF t = 'G' AND k = 'E' EQUB 131 EOR RE ENDIF IF t = 'Z' AND k = 'A' EQUB 132 EOR RE ENDIF IF t = 'C' AND k = 'E' EQUB 133 EOR RE ENDIF IF t = 'B' AND k = 'I' EQUB 134 EOR RE ENDIF IF t = 'S' AND k = 'O' EQUB 135 EOR RE ENDIF IF t = 'U' AND k = 'S' EQUB 136 EOR RE ENDIF IF t = 'E' AND k = 'S' EQUB 137 EOR RE ENDIF IF t = 'A' AND k = 'R' EQUB 138 EOR RE ENDIF IF t = 'M' AND k = 'A' EQUB 139 EOR RE ENDIF IF t = 'I' AND k = 'N' EQUB 140 EOR RE ENDIF IF t = 'D' AND k = 'I' EQUB 141 EOR RE ENDIF IF t = 'R' AND k = 'E' EQUB 142 EOR RE ENDIF IF t = 'A' AND k = '?' EQUB 143 EOR RE ENDIF IF t = 'E' AND k = 'R' EQUB 144 EOR RE ENDIF IF t = 'A' AND k = 'T' EQUB 145 EOR RE ENDIF IF t = 'E' AND k = 'N' EQUB 146 EOR RE ENDIF IF t = 'B' AND k = 'E' EQUB 147 EOR RE ENDIF IF t = 'R' AND k = 'A' EQUB 148 EOR RE ENDIF IF t = 'L' AND k = 'A' EQUB 149 EOR RE ENDIF IF t = 'V' AND k = 'E' EQUB 150 EOR RE ENDIF IF t = 'T' AND k = 'I' EQUB 151 EOR RE ENDIF IF t = 'E' AND k = 'D' EQUB 152 EOR RE ENDIF IF t = 'O' AND k = 'R' EQUB 153 EOR RE ENDIF IF t = 'Q' AND k = 'U' EQUB 154 EOR RE ENDIF IF t = 'A' AND k = 'N' EQUB 155 EOR RE ENDIF IF t = 'T' AND k = 'E' EQUB 156 EOR RE ENDIF IF t = 'I' AND k = 'S' EQUB 157 EOR RE ENDIF IF t = 'R' AND k = 'I' EQUB 158 EOR RE ENDIF IF t = 'O' AND k = 'N' EQUB 159 EOR RE ENDIF ENDMACRO