# Convert Declets To Binary Coded Decimal
+X-Form
+
* cdtbcd RA, RS
do i = 0 to 1
RA[n+8:n+19 ] <- DPD_TO_BCD( (RS)[n+12:n+21] )
RA[n+20:n+31] <- DPD_TO_BCD( (RS)[n+22:n+31] )
+Special Registers Altered:
+ None
+
# Add and Generate Sixes
+XO-Form
+
* addg6s RT,RA,RB
do i = 0 to 15
c <- [dc[0]]*4 || [dc[1]]*4 || ... || [dc[15]]*4
RT <- (¬c) & 0x6666_6666_6666_6666
+Special Registers Altered:
+ None
+
# Convert Binary Coded Decimal To Declets
+X-Form
+
* cbcdtd RA, RS
do i = 0 to 1
RA[n+0:n+11] <- 0
RA[n+12:n+21] <- BCD_TO_DPD( (RS)[n+8:n+19] )
RA[n+22:n+31] <- BCD_TO_DPD( (RS)[n+20:n+31] )
+
+Special Registers Altered:
+ None
+