home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 441.lha / kickdate / cli.asm < prev    next >
Assembly Source File  |  1990-11-13  |  5KB  |  195 lines
  1. * 
  2. * /* KICKDATE - Copyright 1990 Joe Porkka
  3. *              FREELY DISTRIBUTABLE
  4. * 
  5. *      Purpose: Keeps the current date on the Kickstart disk
  6. *               for A1000 owners with autoboot harddrives.
  7. * 
  8. * Version 1.0
  9. * 
  10. * */
  11. * 
  12. pr_CLI equ $00ac
  13. cli_CommandName equ $0010
  14.  
  15. * This is a modified ASTARTUP.ASM file
  16. * it is stripped down to work only from a CLI
  17.  
  18. ******* Imported *******************************************************
  19.  
  20. xlib   macro
  21.        xref    _LVO\1
  22.        endm
  23.  
  24.        xref    _AbsExecBase
  25.        xlib    Input
  26.        xlib    Output
  27.  
  28.        xref    _main                   ; C code entry point
  29.  
  30.        xlib    FindTask
  31.        xlib    OpenLibrary
  32.        xlib    CloseLibrary
  33.  
  34. ******* Exported *******************************************************
  35.  
  36.        xdef    _SysBase
  37.        xdef    _DOSBase
  38.  
  39.        xdef    _errno
  40.        xdef    _stdin
  41.        xdef    _stdout
  42.        xdef    _stderr
  43.  
  44.        xdef    _exit                   ; standard C exit function
  45.  
  46. callsys macro
  47.        jsr _LVO\1(a6)
  48.        endm
  49.  
  50.  
  51. ************************************************************************
  52. *
  53. *      Standard Program Entry Point
  54. *
  55. ************************************************************************
  56. *
  57. *      main (argc, argv)
  58. *         int  argc;
  59. *         char *argv[];
  60. *
  61. ************************************************************************
  62.  
  63. startup:                               ; reference for Wack users
  64.                move.l  sp,initialSP    ; initial task stack pointer
  65.                move.l  d0,dosCmdLen
  66.                move.l  a0,dosCmdBuf
  67.  
  68.        ;------ get Exec's library base pointer:
  69.                move.l  _AbsExecBase,a6
  70.                move.l  a6,_SysBase
  71.  
  72.        ;------ get the address of our task
  73.                suba.l  a1,a1
  74.                callsys FindTask
  75.                move.l  d0,a4
  76.  
  77. fromCLI:
  78.        ;------ attempt to open DOS library:
  79.                bsr     openDOS
  80.  
  81.        ;------ find command name:
  82.                move.l  pr_CLI(a4),a0
  83.                add.l   a0,a0           ; bcpl pointer conversion
  84.                add.l   a0,a0
  85.                move.l  cli_CommandName(a0),a0
  86.                add.l   a0,a0           ; bcpl pointer conversion
  87.                add.l   a0,a0
  88.  
  89.        ;------ create buffer and array:
  90.                movem.l d2/a2/a3,-(sp)
  91.                lea     argvArray,a3
  92.                moveq.l #1,d2           ; param counter
  93.  
  94.        ;------ fetch command name:
  95.                moveq.l #0,d0
  96.                move.b  (a0)+,d0        ; size of command name
  97.                move.l  a0,(a3)+        ; ptr to command name
  98.                clr.b  0(a0,d0.w)          ; zero byte at end
  99.  
  100.        ;------ collect parameters:
  101.                move.l  dosCmdLen,d0
  102.                move.l  dosCmdBuf,a0
  103.        ;------ skip control characters and space:
  104. 3$:            move.b  (a0)+,d1
  105.                subq.l  #1,d0
  106.                ble.s   parmExit
  107.                cmp.b   #' ',d1
  108.                ble.s   3$
  109.  
  110.        ;------ copy parameter:
  111.                addq.l  #1,d2   ; param count
  112.                lea.l  -1(a0),a1
  113.                move.l  a1,(a3)+
  114. ;               bra.s   5$
  115. 4$:            move.b  (a0)+,d1
  116.                subq.l  #1,d0
  117.                cmp.b   #' ',d1
  118.                bgt     4$
  119. ;               ble.s   6$
  120. 5$:            ;move.b  d1,(a2)+
  121. ;               bra.s   4$
  122. ;6$:
  123.                clr.b   -1(a0)
  124.                cmp     #32,d2
  125.                blt     3$
  126. ;               bra.s   3$
  127. parmExit:      clr.b   (a0)+
  128.                clr.l   (a3)+
  129.  
  130.                move.l  d2,d0
  131.                movem.l (sp)+,d2/a2/a3
  132.                pea     argvArray
  133.                move.l  d0,-(sp)
  134.  
  135.  
  136. *
  137. *  The above code relies on the end of line containing a control
  138. *  character of any type, i.e. a valid character must not be the
  139. *  last.  This fact is ensured by DOS.
  140. *
  141.  
  142.  
  143.        ;------ get standard input handle:
  144.                move.l  _DOSBase,a6
  145.                callsys Input
  146.                move.l  d0,_stdin
  147.  
  148.        ;------ get standard output handle:
  149.                callsys  Output
  150.                move.l  d0,_stdout
  151.                move.l  d0,_stderr
  152.  
  153.        ;------ call C main entry point
  154.                jsr     _main
  155.  
  156.        ;------ return success code:
  157.                moveq.l #0,D0
  158.                move.l  initialSP,sp    ; restore stack ptr
  159.                rts
  160.  
  161. _exit:
  162.                move.l  4(SP),d0        ; extract return code
  163. exit2:
  164.                move.l  initialSP,SP    ; restore stack pointer
  165.                move.l  d0,-(SP)        ; save return code
  166.  
  167.        ;------ close DOS library:
  168.                move.l  _AbsExecBase,A6
  169.                move.l  _DOSBase,d0
  170. ******************************************
  171.  
  172.        DATA
  173.  
  174. ************************************************************************
  175.  
  176. _SysBase       dc.l    0
  177. _DOSBase       dc.l    0
  178.  
  179. _errno         dc.l    0
  180. _stdin         dc.l    0
  181. _stdout        dc.l    0
  182. _stderr        dc.l    0
  183.  
  184. initialSP      dc.l    0
  185.  
  186. dosCmdLen      dc.l    0
  187. dosCmdBuf      dc.l    0
  188.  
  189. argvArray      ds.l    32  ; MAX 32 args
  190.  
  191. DOSName        dc.b 'dos.library',0
  192.  
  193.  
  194.        END
  195.