Exemplos SYS-RPL

DISP2 - programa similar ao comando DISP que coloca uma string na tela com fontes pequenas
DISP2C - similar ao DISP2 mas coloca a string na tela centralizada


DISP2
Programa similar ao comando DISP da HP48 que mostra na tela uma determinada string " " na linha desejada com fontes pequenas

Comando SYS-RPLFunção
::
CK2NOLASTWD
COERCE
#1-
SIX
#*
SWAP
$>grob
ZERO
UNROT
XYGROBDISP
;
abre o programa
checa se há dois argumentos na pilha operacional
transforma um número em BINT
subtrai 1
coloca na pilha o BINT <6d>
multiplica
inverte as posições dos objetos do nível 1 e 2
converte a string em um grob com fonte pequena
coloca <0d> na pilha
roda para baixo 3 níveis da pilha
mostra o texto na tela
finaliza o programa

Exemplo de programa USER que utiliza o DISP2:
<< CLLCD "HP48GX - HEWLETT PACKARD" 3 DISP2 3 FREEZE >>

DISP2C
Programa similar ao comando DISP da HP48 que mostra na tela uma determinada string " " na linha desejada com fontes pequenas e centralizado na tela

Comando SYS-RPLFunção
::
CK2NOLASTWD
COERCE
#1-
SIX
#*
SWAP
$>grob
DUP
GROBDIMw
BINT_131d
SWAP
#-
#2/
UNROT
XYGROBDISP
;
abre o programa







duplica o objeto do nível 1
verifica o tamanho do Grob (largura)
coloca <131d> na pilha

subtrai os BINTS
divide por 2



Exemplo de programa USER que utiliza o DISP2:
<< CLLCD "HP48GX - HEWLETT PACKARD" 3 DISP2C 3 FREEZE >>


Exemplos feitos por Tacio Philip utiizando Jazz como compilador