| C64 ROM | Routines |
| Prev: B1D1 | Up: Map | Next: B391 |
|
|
||||
| B37D | A5 0D | LDA $0D | get data type flag, $FF = string, $00 = numeric | |
| B37F | F0 03 | BEQ $B384 | branch if numeric | |
| B381 | 20 A6 B6 | JSR $B6A6 | pop string off descriptor stack, or from top of string space; returns with A = length, X=$71=pointer low byte, Y=$72=pointer high byte | |
|
FRE(n) was numeric so do this
|
||||
| B384 | 20 26 B5 | JSR $B526 | go do garbage collection | |
| B387 | 38 | SEC | set carry for subtract | |
| B388 | A5 33 | LDA $33 | get bottom of string space low byte | |
| B38A | E5 31 | SBC $31 | subtract end of arrays low byte | |
| B38C | A8 | TAY | copy result to Y | |
| B38D | A5 34 | LDA $34 | get bottom of string space high byte | |
| B38F | E5 32 | SBC $32 | subtract end of arrays high byte | |
| Prev: B1D1 | Up: Map | Next: B391 |