home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / misc / kickdate.lzh / CLI.ASM next >
Encoding:
Assembly Source File  |  1990-10-11  |  3.6 KB  |  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.