Listing of file='INDEX.MAC;03' on disk='vmedia/asm_utility_4-sideA-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; INDEX - FIND THE INDEX OF A CHARACTER IN A STRING ; ; VALUES ON ENTRY: ; A - CHARACTER TO LOOK FOR ; HL => STRING - TERMINATED BY A NULL (0) ; ; RETURNS: ; <Z> - CHARACTER FOUND ; A = INDEX IN STRING ; ; NOTE: THE INDEX STARTS FROM ZERO I.E. OFFSET FROM ; THE BEGINNING OF THE STRING. ; ; <NZ> - CHARACTER NOT FOUND ; A = LENGTH OF STRING (EXCULDING THE NULL) ; ; NOTE: THIS CAN BE USED TO DETERMINE THE LENGTH OF ; A STRING BY SEARCHING FOR A NULL. ; ; DESTROYS: ; HL INCREMENTED TO CHARACTER IN LIST ; ENTRY INDEX INDEX: PUSH B MVI B,0 MOV C,A IND10: MOV A,M ORA A JZ IND20 CMP C JZ IND30 INX H INR B JMP IND10 IND20: INR B IND30: MOV A,B POP B RET END