All pastes #200264 Raw Edit

Quartus

public text v1 · immutable
#200264 ·published 2006-10-13 01:41 UTC
rendered paste body
: calendar-header, ( -- )  CMD_DEFINECALENDAR c,  calendarNumber get c, ;

: calendar-body, ( -- )  13 1 do  i calendarGetMonthMap storeInt  loop ;

: calendar, ( -- addr len )  here i>m  calendar-header, calendar-body,  here over m>i - ;

: calendar>buffer ( txBuffer -- )
  here swap
  calendar, build-generic-command
  here! ;