Parallax Propeller Manual Del Usuario página 194

Lista de Códigos de Objetos
PUB bin(value, digits)
'' Envía representación de carácter de un numero binario a la terminal.
value <<= 32 - digits
repeat digits
tx((value <-= 1) & 1 + "0")
PUB GetBin : value | tempstr[11]
'' Obtiene representación de carácter binario de un numero de la terminal
'' Regresa el valor correspondiente
GetStr(@tempstr)
value := StrToBin(@tempstr)
PUB StrToBin(stringptr) : value | char, index
'' Convierte representación de cero terminal de cadena de un numero binario a un valor
value := index := 0
repeat until ((char := byte[stringptr][index++]) == 0)
if char => "0" and char =< "1"
value := value * 2 + (char - "0")
if byte[stringptr] == "-"
value := - value
PUB hex(value, digits)
'' Imprime un número hexadecimal
value <<= (8 - digits) << 2
repeat digits
tx(lookupz((value <-= 4) & $F : "0".."9", "A".."F"))
PUB GetHex : value | tempstr[11]
'' Obtiene representación de carácter hexadecimal de un numero de la terminal
'' Regresa el valor correspondiente
GetStr(@tempstr)
value := StrToHex(@tempstr)
PUB StrToHex(stringptr) : value | char, index
'' Convierte una representación de cero terminación de cadena de un numero hexadecimal
a un valor
value := index := 0
repeat until ((char := byte[stringptr][index++]) == 0)
if (char => "0" and char =< "9")
value := value * 16 + (char - "0")
elseif (char => "A" and char =< "F")
value := value * 16 + (10 + char - "A")
elseif(char => "a" and char =< "f")
value := value * 16 + (10 + char - "a")
if byte[stringptr] == "-"
value := - value
DAT
'*******************************************
'* Controlador serial lenguaje ensamblador *
'*******************************************
Pagina 194 · Kit Educativo de Prácticas Propeller: Fundamentos