CHK - Calculate a checksum for an object name : checksum CHK[6A93] << RCLF STD HEX 64 STWS ;set up proper modes. SWAP RCL ->STR 16 STWS DUP ;set up loop. #0h 1 ROT SIZE FOR j OVER j j SUB NUM R->B XOR RL ;work char into checksum. NEXT ->STR 3 OVER SIZE 1 - SUB ;Restore things. ROT STOF SWAP DROP >>