; > Sources.Front

;;-----------------------------------------------------------------------------
;; Risc OS English Territory. 
;;
;; Change list:
;;            
;; 0.03 24-Apr-91 Fixed bug, ConvertTimeToOrdinals returned 
;;                day of year in the day of week loaction
;; 0.05 30-Apr-91 Fixed bug, more characters are punctuation.
;;    
;;-----------------------------------------------------------------------------
;; Wish list
;;-----------------------------------------------------------------------------

Module_BaseAddr

        GET     TerrHdr:ListOpts
        GET     TerrHdr:Macros
        GET     TerrHdr:System
        GET     TerrHdr:ModHand
        GET     TerrHdr:Services
;        GET     TerrHdr:VduExt
        GET     TerrHdr:File
        GET     TerrHdr:NewErrors
        GET     TerrHdr:Variables
        GET     TerrHdr:Proc
;        GET     TerrHdr:Sprite
;        GET     TerrHdr:Wimp
;        GET     TerrHdr:WimpSpace
;        GET     TerrHdr:Messages
;        GET     TerrHdr:Filer
        GET     TerrHdr:CMOS    
        GET     TerrHdr:MsgTrans
;        GET     TerrHdr:MsgMenus
        GET     TerrHdr:ResourceFS
        GET     TerrHdr:Territory
        GET     TerrHdr:NdrDebug

        GET     Version

        GBLL    debug
        GBLL    debugxx
        GBLL    hostvdu
        GBLL    debugdt

hostvdu SETL    {TRUE}
debug   SETL    {FALSE}
debugxx SETL    {FALSE}
debugdt SETL    {FALSE}          ; Date and Time.

; ----------------------------------------------------------------------------------------------------------------------
        MACRO
$label  ALIGNHASH  $o,$m
      [ ((@-$o):AND:($m-1))<>0
$label  #          $m-((@-$o):AND:($m-1))
      |
$label  #          0
      ]
        MEND



; ----------------------------------------------------------------------------
;       Workspace layout


wsptr            RN      R12
                ^       0,wsptr

wsorigin           #    0
message_file_block #   20     ; Message file block and flag
TimeZoneName       #    4
scratch_buffer     #  100     ; Scratch buffer space.
error_buffer       #  100     ; Space for errors.

        ALIGNHASH       wsorigin,16

max_running_work   *       (@-wsorigin)

; -----------------------------------------------------------------------------
        LNK     Sources.ModHead

