Post Reply 
(42S) (& 41C): Ceiling (& Floor) Function Programme
02-01-2017, 08:09 AM
Post: #6
RE: HP 42S: Ceiling Function Programme
Werner, for this programme I have a size of 38 Bytes.

Code:

Werner's Programme

00 { 41-Byte Prgm }
 01>LBL "FLOOR"
 02 IP
 03 X<>Y
 04 X<> ST L
 05 X<Y?
 06 DSE ST Y        always skips
 07 LBL 00            nop
 08 GTO 00
 09>LBL "CEIL"
 10 IP
 11 X<>Y
 12 X<> ST L
 13 X>Y?
 14 ISG ST Y         always skips
 15>LBL 00           not a nop ;-)
16 X<> ST L
 17 X<>Y
 18 END
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: HP 42S: Ceiling Function Programme - Gerald H - 02-01-2017 08:09 AM



User(s) browsing this thread: 1 Guest(s)