(15/42/47): Floor and Ceiling Functions

[dm319]

For 42s something like:

Code:

00 { 15-Byte Prgm }
01▸LBL "CEIL"
02 +/-
03 XEQ "FLR"
04 +/-
05 END

Code:

00 { 32-Byte Prgm }
01▸LBL "FLR"
02 ENTER
03 IP
04 X=Y?
05 GTO 01
06 CLX
07 R↓
08 X<0?
09 GTO 02
10 IP
11 GTO 03
12▸LBL 02
13 IP
14 1
15 -
16 GTO 03
17▸LBL 01
18 X<>Y
19 CLX
20 R↓
21▸LBL 03
22 END