Mekelan 说:
(store_time_of_day, ":timeofday"),
(try_begin),
(ge,":timeofday",12),
(assign, reg4, 1),
(val_sub, ":timeofday", 12),
(else_try),
(assign, reg4, 0),
(try_end),
(try_begin),
(eq, ":timeofday", 0),
(assign, ":timeofday", 12),
(try_end),
(assign, reg3, ":timeofday"),
("jan_reg1_reg2", "{reg2} Jan {reg1}, {s2} {reg3}{reg4?pm:am}"),
xPearse 说:
(store_time_of_day, reg3),
(store_mod, reg3, ":num_hours", 12),
(val_add, reg3, 1),
("january_reg1_reg2", "{reg2} January {reg1}, {s2}, {reg3}h"),