![]() |
Routines |
| Prev: 6F47 | Up: Map | Next: 6FD3 |
|
Used by the routine at TOKENISE.
Letter for letter, over the shorter of the two -- which is what lets TOKENISE take a typed word as an abbreviation.
|
||||||||
| LETTERS_AGREE | 6FBA | LD A,(TYPED_LENGTH) | B = the shorter of the two lengths | |||||
| 6FBD | LD B,A | |||||||
| 6FBE | LD A,(ENTRY_LENGTH) | |||||||
| 6FC1 | CP B | |||||||
| 6FC2 | JR NC,LETTERS_AGREE_0 | |||||||
| 6FC4 | LD B,A | |||||||
| LETTERS_AGREE_0 | 6FC5 | LD HL,TYPED_LETTERS | Compare that many letters | |||||
| 6FC8 | LD DE,ENTRY_LETTERS | |||||||
| LETTERS_AGREE_1 | 6FCB | LD A,(DE) | ||||||
| 6FCC | CP (HL) | |||||||
| 6FCD | RET NZ | |||||||
| 6FCE | INC DE | |||||||
| 6FCF | INC HL | |||||||
| 6FD0 | DJNZ LETTERS_AGREE_1 | |||||||
| 6FD2 | RET | |||||||
| Prev: 6F47 | Up: Map | Next: 6FD3 |