* 
* /* KICKDATE - Copyright 1990 Joe Porkka
*              FREELY DISTRIBUTABLE
* 
*      Purpose: Keeps the current date on the Kickstart disk
*               for A1000 owners with autoboot harddrives.
* 
* Version 1.0
* 
* */
* 
pr_CLI equ $00ac
cli_CommandName equ $0010

* This is a modified ASTARTUP.ASM file
* it is stripped down to work only from a CLI

******* Imported *******************************************************

xlib   macro
       xref    _LVO\1
       endm

       xref    _AbsExecBase
       xlib    Input
       xlib    Output

       xref    _main                   ; C code entry point

       xlib    FindTask
       xlib    OpenLibrary
       xlib    CloseLibrary

******* Exported *******************************************************

       xdef    _SysBase
       xdef    _DOSBase

       xdef    _errno
       xdef    _stdin
       xdef    _stdout
       xdef    _stderr

       xdef    _exit                   ; standard C exit function

callsys macro
       jsr _LVO\1(a6)
       endm


************************************************************************
*
*      Standard Program Entry Point
*
************************************************************************
*
*      main (argc, argv)
*         int  argc;
*         char *argv[];
*
************************************************************************

startup:                               ; reference for Wack users
               move.l  sp,initialSP    ; initial task stack pointer
               move.l  d0,dosCmdLen
               move.l  a0,dosCmdBuf

       ;------ get Exec's library base pointer:
               move.l  _AbsExecBase,a6
               move.l  a6,_SysBase

       ;------ get the address of our task
               suba.l  a1,a1
               callsys FindTask
               move.l  d0,a4

fromCLI:
       ;------ attempt to open DOS library:
               bsr     openDOS

       ;------ find command name:
               move.l  pr_CLI(a4),a0
               add.l   a0,a0           ; bcpl pointer conversion
               add.l   a0,a0
               move.l  cli_CommandName(a0),a0
               add.l   a0,a0           ; bcpl pointer conversion
               add.l   a0,a0

       ;------ create buffer and array:
               movem.l d2/a2/a3,-(sp)
               lea     argvArray,a3
               moveq.l #1,d2           ; param counter

       ;------ fetch command name:
               moveq.l #0,d0
               move.b  (a0)+,d0        ; size of command name
               move.l  a0,(a3)+        ; ptr to command name
               clr.b  0(a0,d0.w)          ; zero byte at end

       ;------ collect parameters:
               move.l  dosCmdLen,d0
               move.l  dosCmdBuf,a0
       ;------ skip control characters and space:
3$:            move.b  (a0)+,d1
               subq.l  #1,d0
               ble.s   parmExit
               cmp.b   #' ',d1
               ble.s   3$

       ;------ copy parameter:
               addq.l  #1,d2   ; param count
               lea.l  -1(a0),a1
               move.l  a1,(a3)+
;               bra.s   5$
4$:            move.b  (a0)+,d1
               subq.l  #1,d0
               cmp.b   #' ',d1
               bgt     4$
;               ble.s   6$
5$:            ;move.b  d1,(a2)+
;               bra.s   4$
;6$:
               clr.b   -1(a0)
               cmp     #32,d2
               blt     3$
;               bra.s   3$
parmExit:      clr.b   (a0)+
               clr.l   (a3)+

               move.l  d2,d0
               movem.l (sp)+,d2/a2/a3
               pea     argvArray
               move.l  d0,-(sp)


*
*  The above code relies on the end of line containing a control
*  character of any type, i.e. a valid character must not be the
*  last.  This fact is ensured by DOS.
*


       ;------ get standard input handle:
               move.l  _DOSBase,a6
               callsys Input
               move.l  d0,_stdin

       ;------ get standard output handle:
               callsys  Output
               move.l  d0,_stdout
               move.l  d0,_stderr

       ;------ call C main entry point
               jsr     _main

       ;------ return success code:
               moveq.l #0,D0
               move.l  initialSP,sp    ; restore stack ptr
               rts

_exit:
               move.l  4(SP),d0        ; extract return code
exit2:
               move.l  initialSP,SP    ; restore stack pointer
               move.l  d0,-(SP)        ; save return code

       ;------ close DOS library:
               move.l  _AbsExecBase,A6
               move.l  _DOSBase,d0
******************************************

       DATA

************************************************************************

_SysBase       dc.l    0
_DOSBase       dc.l    0

_errno         dc.l    0
_stdin         dc.l    0
_stdout        dc.l    0
_stderr        dc.l    0

initialSP      dc.l    0

dosCmdLen      dc.l    0
dosCmdBuf      dc.l    0

argvArray      ds.l    32  ; MAX 32 args

DOSName        dc.b 'dos.library',0


       END