Submitted by Steve Fewell
Description:
| 8DAF | 032 162 141 | 20 A2 8D | JSR &8DA2 Increment (&37, &38) pointer | |
| 8DB2 | 7 | 178 055 | B2 37 | LDA (&37) |
| 8DB4 | 201 013 | C9 0D | CMP#&0D | |
| 8DB6 | ' | 240 039 | F0 27 | BEQ 39 --> &8DDF [RTS (exit when &0D char found)] |
| 8DB8 | 201 032 | C9 20 | CMP#&20 | |
| 8DBA | 240 243 | F0 F3 | BEQ -13 --> &8DAF | |
| 8DBC | & | 201 038 | C9 26 | CMP#&26 |
| 8DBE | 208 016 | D0 10 | BNE 16 --> &8DD0 | |
| 8DC0 | 032 169 141 | 20 A9 8D | JSR &8DA9 Increment and read character at (&37, &38) pointer | |
| 8DC3 | 032 148 141 | 20 94 8D | JSR &8D94 Check for numeric digit [Line Number] | |
| 8DC6 | 176 248 | B0 F8 | BCS -8 --> &8DC0 | |
| 8DC8 | A | 201 065 | C9 41 | CMP#&41 |
| 8DCA | 144 230 | 90 E6 | BCC -26 --> &8DB2 Continue to Tokenise | |
| 8DCC | G | 201 071 | C9 47 | CMP#&47 |
| 8DCE | 144 240 | 90 F0 | BCC -16 --> &8DC0 | |
| 8DD0 | " | 201 034 | C9 22 | CMP#&22 |
| 8DD2 | 208 012 | D0 0C | BNE 12 --> &8DE0 | |
| 8DD4 | 032 169 141 | 20 A9 8D | JSR &8DA9 Increment and read character at (&37, &38) pointer | |
| 8DD7 | " | 201 034 | C9 22 | CMP#&22 |
| 8DD9 | 240 212 | F0 D4 | BEQ -44 --> &8DAF | |
| 8DDB | 201 013 | C9 0D | CMP#&0D | |
| 8DDD | 208 245 | D0 F5 | BNE -11 --> &8DD4 | |
| 8DDF | ` | 096 | 60 | RTS |
| 8DE0 | : | 201 058 | C9 3A | CMP#&3A |
| 8DE2 | 208 009 | D0 09 | BNE 9 --> &8DED | |
| 8DE4 | 032 162 141 | 20 A2 8D | JSR &8DA2 Increment (&37, &38) pointer | |
| 8DE7 | d; | 100 059 | 64 3B | STZ &3B |
| 8DE9 | d< | 100 060 | 64 3C | STZ &3C |
| 8DEB | 128 197 | 80 C5 | BRA -59 --> &8DB2 Continue to Tokenise | |
| 8DED | , | 201 044 | C9 2C | CMP#&2C |
| 8DEF | 240 190 | F0 BE | BEQ -66 --> &8DAF | |
| 8DF1 | * | 201 042 | C9 2A | CMP#&2A |
| 8DF3 | 208 012 | D0 0C | BNE 12 --> &8E01 | |
| 8DF5 | ; | 165 059 | A5 3B | LDA &3B |
| 8DF7 | 240 230 | F0 E6 | BEQ -26 --> &8DDF [RTS (as '*' Star command, don't tokenise line)] | |
| 8DF9 | 162 255 | A2 FF | LDX#&FF | |
| 8DFB | ; | 134 059 | 86 3B | STX &3B |
| 8DFD | d< | 100 060 | 64 3C | STZ &3C |
| 8DFF | 128 174 | 80 AE | BRA -82 --> &8DAF | |
| 8E01 | . | 201 046 | C9 2E | CMP#&2E |
| 8E03 | 240 014 | F0 0E | BEQ 14 --> &8E13 | |
| 8E05 | 032 148 141 | 20 94 8D | JSR &8D94 Check for numeric digit [Line Number] | |
| 8E08 | , | 144 044 | 90 2C | BCC 44 --> &8E36 |
| 8E0A | < | 166 060 | A6 3C | LDX &3C |
| 8E0C | 240 005 | F0 05 | BEQ 5 --> &8E13 | |
| 8E0E | 032 004 141 | 20 04 8D | JSR &8D04 Tokenise Line Number | |
| 8E11 | 144 156 | 90 9C | BCC -100 --> &8DAF | |
| 8E13 | 7 | 178 055 | B2 37 | LDA (&37) |
| 8E15 | 032 155 141 | 20 9B 8D | JSR &8D9B If character is not "." then check for Digit (Carry is set if found) | |
| 8E18 | 144 005 | 90 05 | BCC 5 --> &8E1F | |
| 8E1A | 032 162 141 | 20 A2 8D | JSR &8DA2 Increment (&37, &38) pointer | |
| 8E1D | 128 244 | 80 F4 | BRA -12 --> &8E13 | |
| 8E1F | 162 255 | A2 FF | LDX#&FF | |
| 8E21 | ; | 134 059 | 86 3B | STX &3B |
| 8E23 | 128 196 | 80 C4 | BRA -60 --> &8DE9 | |
| 8E25 | 032 132 141 | 20 84 8D | JSR &8D84 Check whether character is valid within a Variable name (letter, '_', or digit) | |
| 8E28 | 144 207 | 90 CF | BCC -49 --> &8DF9 | |
| 8E2A | 7 | 178 055 | B2 37 | LDA (&37) |
| 8E2C | 032 132 141 | 20 84 8D | JSR &8D84 Check whether character is valid within a Variable name (letter, '_', or digit) | |
| 8E2F | 144 238 | 90 EE | BCC -18 --> &8E1F | |
| 8E31 | 032 162 141 | 20 A2 8D | JSR &8DA2 Increment (&37, &38) pointer | |
| 8E34 | 128 244 | 80 F4 | BRA -12 --> &8E2A | |
| 8E36 | A | 201 065 | C9 41 | CMP#&41 |
| 8E38 | 144 191 | 90 BF | BCC -65 --> &8DF9 | |
| 8E3A | X | 201 088 | C9 58 | CMP#&58 |
| 8E3C | 176 231 | B0 E7 | BCS -25 --> &8E25 | |
| 8E3E | V | 162 086 | A2 56 | LDX#&56 |
| 8E40 | 9 | 134 057 | 86 39 | STX &39 |
| 8E42 | 162 132 | A2 84 | LDX#&84 | |
| 8E44 | : | 134 058 | 86 3A | STX &3A |
| 8E46 | 160 000 | A0 00 | LDY#&00 | |
| 8E48 | 9 | 210 057 | D2 39 | CMP (&39) |
| 8E4A | 144 222 | 90 DE | BCC -34 --> &8E2A | |
| 8E4C | 208 015 | D0 0F | BNE 15 --> &8E5D | |
| 8E4E | 200 | C8 | INY | |
| 8E4F | 9 | 177 057 | B1 39 | LDA (&39),Y |
| 8E51 | 01 | 048 049 | 30 31 | BMI 49 --> &8E84 |
| 8E53 | 7 | 209 055 | D1 37 | CMP (&37),Y |
| 8E55 | 240 247 | F0 F7 | BEQ -9 --> &8E4E | |
| 8E57 | 7 | 177 055 | B1 37 | LDA (&37),Y |
| 8E59 | . | 201 046 | C9 2E | CMP#&2E |
| 8E5B | 240 011 | F0 0B | BEQ 11 --> &8E68 | |
| 8E5D | 200 | C8 | INY | |
| 8E5E | 9 | 177 057 | B1 39 | LDA (&39),Y |
| 8E60 | 016 251 | 10 FB | BPL -5 --> &8E5D | |
| 8E62 | 201 254 | C9 FE | CMP#&FE | |
| 8E64 | 208 015 | D0 0F | BNE 15 --> &8E75 | |
| 8E66 | 176 194 | B0 C2 | BCS -62 --> &8E2A | |
| 8E68 | 200 | C8 | INY | |
| 8E69 | 9 | 177 057 | B1 39 | LDA (&39),Y |
| 8E6B | 0 | 048 023 | 30 17 | BMI 23 --> &8E84 |
| 8E6D | 9 | 230 057 | E6 39 | INC &39 |
| 8E6F | 208 248 | D0 F8 | BNE -8 --> &8E69 | |
| 8E71 | : | 230 058 | E6 3A | INC &3A |
| 8E73 | 128 244 | 80 F4 | BRA -12 --> &8E69 | |
| 8E75 | 8 | 056 | 38 | SEC |
| 8E76 | 200 | C8 | INY | |
| 8E77 | 152 | 98 | TYA | |
| 8E78 | e9 | 101 057 | 65 39 | ADC &39 |
| 8E7A | 9 | 133 057 | 85 39 | STA &39 |
| 8E7C | 144 002 | 90 02 | BCC 2 --> &8E80 | |
| 8E7E | : | 230 058 | E6 3A | INC &3A |
| 8E80 | 7 | 178 055 | B2 37 | LDA (&37) |
| 8E82 | 128 194 | 80 C2 | BRA -62 --> &8E46 | |
| 8E84 | 170 | AA | TAX | |
| 8E85 | 200 | C8 | INY | |
| 8E86 | 9 | 177 057 | B1 39 | LDA (&39),Y |
| 8E88 | = | 133 061 | 85 3D | STA &3D |
| 8E8A | 136 | 88 | DEY | |
| 8E8B | J | 074 | 4A | LSR A |
| 8E8C | 144 007 | 90 07 | BCC 7 --> &8E95 | |
| 8E8E | 7 | 177 055 | B1 37 | LDA (&37),Y |
| 8E90 | 032 132 141 | 20 84 8D | JSR &8D84 Check whether character is valid within a Variable name (letter, '_', or digit) | |
| 8E93 | 176 149 | B0 95 | BCS -107 --> &8E2A | |
| 8E95 | 138 | 8A | TXA | |
| 8E96 | $= | 036 061 | 24 3D | BIT &3D |
| 8E98 | P | 080 006 | 50 06 | BVC 6 --> &8EA0 |
| 8E9A | ; | 166 059 | A6 3B | LDX &3B |
| 8E9C | 208 002 | D0 02 | BNE 2 --> &8EA0 | |
| 8E9E | i@ | 105 064 | 69 40 | ADC#&40 |
| 8EA0 | 136 | 88 | DEY | |
| 8EA1 | 032 235 140 | 20 EB 8C | JSR &8CEB Replace untokenised value with token | |
| 8EA4 | 162 255 | A2 FF | LDX#&FF | |
| 8EA6 | = | 165 061 | A5 3D | LDA &3D |
| 8EA8 | J | 074 | 4A | LSR A |
| 8EA9 | J | 074 | 4A | LSR A |
| 8EAA | 144 004 | 90 04 | BCC 4 --> &8EB0 | |
| 8EAC | ; | 134 059 | 86 3B | STX &3B |
| 8EAE | d< | 100 060 | 64 3C | STZ &3C |
| 8EB0 | J | 074 | 4A | LSR A |
| 8EB1 | 144 004 | 90 04 | BCC 4 --> &8EB7 | |
| 8EB3 | d; | 100 059 | 64 3B | STZ &3B |
| 8EB5 | d< | 100 060 | 64 3C | STZ &3C |
| 8EB7 | J | 074 | 4A | LSR A |
| 8EB8 | 144 016 | 90 10 | BCC 16 --> &8ECA | |
| 8EBA | H | 072 | 48 | PHA |
| 8EBB | 160 001 | A0 01 | LDY#&01 | |
| 8EBD | 7 | 177 055 | B1 37 | LDA (&37),Y |
| 8EBF | 032 132 141 | 20 84 8D | JSR &8D84 Check whether character is valid within a Variable name (letter, '_', or digit) | |
| 8EC2 | 144 005 | 90 05 | BCC 5 --> &8EC9 | |
| 8EC4 | 032 162 141 | 20 A2 8D | JSR &8DA2 Increment (&37, &38) pointer | |
| 8EC7 | 128 244 | 80 F4 | BRA -12 --> &8EBD | |
| 8EC9 | h | 104 | 68 | PLA |
| 8ECA | J | 074 | 4A | LSR A |
| 8ECB | 144 002 | 90 02 | BCC 2 --> &8ECF | |
| 8ECD | < | 134 060 | 86 3C | STX &3C |
| 8ECF | J | 074 | 4A | LSR A |
| 8ED0 | 176 013 | B0 0D | BCS 13 --> &8EDF | |
| 8ED2 | L | 076 175 141 | 4C AF 8D | JMP &8DAF Keep tokenising until end of line found |
| 8D9B | . | 201 046 | C9 2E | CMP#&2E |
| 8D9D | 208 245 | D0 F5 | BNE -11 --> &8D94 Check for numeric digit [Line Number] | |
| 8D9F | ` | 096 | 60 | RTS |