RPL Programming Examples 2-9
BDISP program listing
Program: Comments:
"!
"!
452!
0QQ!O7!
!
!
67<KK!!
K#S!
:;<=!
<=4!
!
#!G!
"!
!
OEEO4!
"!S6=!1!
"!LO:!1!
"!4<O!1!
"!;<T!1!
3!a!
!
7LK!^!
<NBE!
!
G!#D:K!
!
!
2B4!
^!46D2!
=<T:!
!
1!
V!7K<<J<!
1!
2K<D<KN<!
Begins the main nested program.
Makes a copy of n.
Clears flag
–55 to enable
LASTARG.
Begins error trap.
Converts n to a binary integer.
If an error occurs, do nothing (no
commands in the THEN clause).
Creates a local variable n and
begins the defining program.
Clears the display.
Nested program for BIN.
Nested program for OCT.
Nested program for DEC.
Nested program for HEX.
Sets the counter limits.
Starts the loop with counter j.
Executes one of the nested base
programs (initially for HEX).
Makes a string showing n in the
current base.
Pads the string to 22 characters.
Displays the string in the jth line.
Increments j and repeats the loop.
Ends the defining program.
Freezes the status and stack
areas.
Ends the main nested program.
Stores the current flag status,
executes the main nested
program, and restores the status.
»
`OBDISP K
Stores the program in BDISP.
Checksum: # 22884d
Bytes: 187
To Next Page
Loading...
