PROGRAM LISTING: 85-04/PBI.M65

þþõ	
T;;Device name, E.G. T for "Telephone".ª†SEARCH#Q†HATABS9;;Get a byte from table&#F…FNDIT;;0? Then we found space.02:2D2N(>$;;Length of HATABSXD†SEARCH;;Still lookingb/:;;No room in HATABS; device not initializedlX;vX;         We found a spot.€	…FNDITŠQ>†DEVNAM;;Get device name.”#P†HATABS9;;Put it in blank spot.ž2¨&Q>…GPDVVÿ;;Get lo byte of vector.²'Q>…GPDVV†GETBYTîQ>†PUTBYTH$>†GETSTA˜Q>†NONEEDè;;;Indicate we handled it.ò:üX;X;