home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / achlib / achapp.s < prev    next >
Text File  |  1988-03-22  |  14KB  |  373 lines
  1. ;*** achstart.s
  2. ;
  3. ;    871121
  4.  
  5.  
  6. ;*** Stack & Heap Sizes
  7. ; 
  8. ;    The stack sits below the heap and has STACK long words 
  9. ;    allocated. The heap size (memory kept after a shrink)
  10. ;    is set by EXTRA. _brk monitors heap space r=  ests.
  11.  
  12. STACK     =         $200
  13. EXTRA     =         $2500
  14.  
  15.  
  16. ;*** Basepage Structure
  17.  
  18. LOTPA     =         $00       ; Low TPA address
  19. HITPA     =         $04       ; High TPA address
  20. CODEBASE  =         $08       ; Code segment start
  21. CODELEN   =         $0c       ; Code segment length
  22. DATABASE  =         $10       ; Data segment start
  23. DATALEN   =         $14       ; Data segment length
  24. BSSBASE   =         $18       ; Bss  segment start
  25. BSSLEN    =         $1c       ; Bss  segment length
  26. DTA       =         $20       ; Disk Transfer Address
  27. PARENT    =         $24       ; parent's basepage
  28. RESERVE1  =         $28       ; resevered
  29. ENVIRON   =         $2c       ; environment string
  30. FCB2      =         $38       ; 2nd parsed fcb
  31. FCB1      =         $5c       ; 1st parsed fcb
  32. COMMAND   =         $80       ; Command tail
  33.  
  34.  
  35.  
  36.           .globl    _FUBAR
  37.  
  38. ;*** Start here
  39.  
  40.           .text
  41.           .globl    __main
  42.           .globl    __exit
  43.           .globl    __sovf
  44.           .even
  45. _FUBAR:
  46.           move.l    4(sp),a5
  47.           move.l    a5,__base
  48.           move.l    #U_STACK,sp 
  49.  
  50.           move.l    CODELEN(a5),d0
  51.           add.l     DATALEN(a5),d0
  52.           add.l     BSSLEN(a5),d0
  53.           add.l     #EXTRA,d0
  54.  
  55.           move.l    d0,-(sp)
  56.           move.l    a5,-(sp)
  57.           clr.w     -(sp)
  58.           move      #$4a,-(sp)          ; do Mshrink
  59.           trap      #1
  60.           add.l     #12,sp
  61.  
  62.           move.l    __base,a0           ; Load C external
  63.           move.l    BSSBASE(a0),a1      ; a1 -> .bss region
  64.           adda.l    BSSLEN(a0),a1       ; a1 -> 1st heap loc
  65.           move.l    a1,__break          ; Put in "break" loc
  66.  
  67.           lea.l     COMMAND(a0),a2      ; a2 -> command line
  68.           move.b    (a2)+,d0            ; d0 = byte count
  69.           andi.l    #$ff,d0             ; clear junk
  70.           move.w    d0,-(a7)            ; push length
  71.           move.l    a2,-(a7)            ; Push commnd
  72.           clr.l     a6                  ; Clear frame pointer
  73.           jsr       __main
  74.           jmp       __exit
  75.  
  76.  
  77.  
  78.           .globl    _brk
  79.  
  80. ;*** brk
  81.  
  82.           .text
  83. _brk:           
  84.           move.l   4(sp),a0             ; new break r=  est
  85.           move.l    #-1,d0
  86.           move.l   __base,a1            ; basepage address
  87.           move.l   HITPA(a1),a1         ; get MAX break
  88.           cmpa.l    a0,a1               ; return -1 if 
  89.           ble.s     BRKX                ;  r=  est >= TOP
  90.           move.l    a0,__break
  91.           clr.l     d0
  92. BRKX:
  93.           rts         
  94.  
  95.  
  96. __sovf:
  97.           move.w    #9,d0               ; String print
  98.           lea       ovf,a0              ; a0-> message
  99.           move.l    a0,d1               ; load proper reg
  100.           trap      #2                  ; Issue message
  101. __exit:
  102.           move.w    #0,d0               ; Exit
  103.           trap      #2
  104.  
  105.  
  106.  
  107.           .globl    _blkfill
  108.  
  109. ;*** Block Fill function:
  110. ;
  111. ;    blkfill (dest, char, count);
  112. ;
  113. ; e  BYTE    *dest 
  114. ;    BYTE    char to fill
  115. ;    WORD    count
  116. ;
  117.           .text
  118. _blkfill:
  119.           move.l    4(a7),a0       ; -> Output area
  120.           move.w    8(a7),d1       ; =  output char
  121.           move.w    10(a7),d0      ; =  output count
  122.           ext.l     d0             ; make it long
  123.           subq.l    #1,d0          ; decrement
  124.           ble.s     filldone       ; Done if le
  125. fillit:   move.b    d1,(a0)+       ; move a byte
  126.           dbra      d0,fillit      ; Continue
  127. filldone: clr.l     d0             ; always return 0
  128.           rts 
  129.  
  130.  
  131.  
  132.           .globl    _index
  133.           .globl    _strchr
  134.  
  135. ;*** Index function to find out if a particular
  136. ;    character is in a string.
  137. ;
  138. ; e  long pointer to string
  139. ;    short character to find
  140. ;
  141. ; x  D0.L = pointer to character else NULL if failed
  142.  
  143.           .text
  144. _index:
  145. _strchr:
  146.           move.l    4(a7),a0       ; a0 -> String
  147.           move.w    8(a7),d0       ; D0 = desired character
  148. xindex: 
  149.           tst.b     (a0)           ; EOS?
  150.           bne.s     notend         ; No, continue to look
  151.           clr.l     d0             ; Not found
  152.           rts 
  153. notend: 
  154.           cmp.b     (a0)+,d0       ; check for character
  155.           bne.s     xindex
  156.           move.l    a0,d0          ; Found it
  157.           subq.l    #1,d0          ; set return pointer
  158.           rts
  159.  
  160.  
  161.  
  162.           .globl    ___pname 
  163.           .globl    ___tname
  164.           .globl    ___lname
  165.           .globl    ___xeof 
  166.  
  167. ;*** Runtime Data
  168.  
  169.           .data
  170.           .even
  171. ovf:      .dc.b     'Stack Overflow$'   ; Error message
  172. ___pname: .dc.b     'C runtime',0       ; Program name
  173. ___tname: .dc.b     'CON:',0            ; Console name
  174. ___lname: .dc.b     'LST:',0            ; List device name
  175. ___xeof:  .dc.b     $1a                 ; Control-Z
  176.  
  177.  
  178.  
  179.           .globl    __base
  180.           .globl    __break
  181.           .globl    ___cpmrv
  182.  
  183. ;*** BSS Data
  184.  
  185.           .bss
  186.           .even
  187. __base:   .ds.l     1              ; Base Page
  188. __break:  .ds.l     1              ; Break function
  189. ___cpmrv: .ds.w     1              ; Last CP/M return val
  190.  
  191.           .ds.l     STACK
  192. U_STACK:  .ds.l     1
  193.  
  194.  
  195.  
  196.           .globl    _crystal
  197.           
  198. ;*** AES Call
  199. ;
  200. ; e  long pointer to AES parameter block
  201.  
  202.           .text
  203. _crystal:
  204.           move.l    4(sp),d1
  205.           move.w    #200,d0
  206.           trap      #2
  207.           rts
  208.  
  209.  
  210.  
  211.           .globl    _control
  212.  
  213. ;*** AES Arrays
  214. ;
  215. ;    short control [] =
  216. ;         {
  217. ;              op code,
  218. ;              size in words of _int_in,
  219. ;              size in words of _int_out,
  220. ;              size in longs of _addr_in,
  221. ;              size in longs of _addr_out,
  222. ;         }
  223.  
  224.           .bss
  225.           .even
  226. _control: .ds.w     4
  227.  
  228.  
  229.  
  230.           .globl    _ctrl_cnts
  231.  
  232. ;*** Control Array Settings
  233. ;
  234. ;
  235. ;    This .data is used to set entrys 1, 2 and 3 in the control
  236. ;    array.
  237.  
  238.         .data
  239.         .even
  240. _ctrl_cnts:
  241.  
  242. ;    Application Manager
  243.         .dc.b   0, 1, 0                 ; func 010              
  244.         .dc.b   2, 1, 1                 ; func 011              
  245.         .dc.b   2, 1, 1                 ; func 012              
  246.         .dc.b   0, 1, 1                 ; func 013              
  247.         .dc.b   2, 1, 1                 ; func 014              
  248.         .dc.b   1, 1, 1                 ; func 015              
  249.         .dc.b   0, 0, 0                 ; func 016              
  250.         .dc.b   0, 0, 0                 ; func 017              
  251.         .dc.b   0, 0, 0                 ; func 008              
  252.         .dc.b   0, 1, 0                 ; func 019              
  253. ;    Event Manager
  254.         .dc.b   0, 1, 0                 ; func 020              
  255.         .dc.b   3, 5, 0                 ; func 021              
  256.         .dc.b   5, 5, 0                 ; func 022              
  257.         .dc.b   0, 1, 1                 ; func 023              
  258.         .dc.b   2, 1, 0                 ; func 024              
  259.         .dc.b   16, 7, 1                ; func 025              
  260.         .dc.b   2, 1, 0                 ; func 026              
  261.         .dc.b   0, 0, 0                 ; func 027              
  262.         .dc.b   0, 0, 0                 ; func 028              
  263.         .dc.b   0, 0, 0                 ; func 009              
  264. ;    Menu Manager
  265.         .dc.b   1, 1, 1                 ; func 030              
  266.         .dc.b   2, 1, 1                 ; func 031              
  267.         .dc.b   2, 1, 1                 ; func 032              
  268.         .dc.b   2, 1, 1                 ; func 033              
  269.         .dc.b   1, 1, 2                 ; func 034              
  270.         .dc.b   1, 1, 1                 ; func 005              
  271.         .dc.b   0, 0, 0                 ; func 006              
  272.         .dc.b   0, 0, 0                 ; func 007              
  273.         .dc.b   0, 0, 0                 ; func 008              
  274.         .dc.b   0, 0, 0                 ; func 009              
  275. ;    Object Manager
  276.         .dc.b   2, 1, 1                 ; func 040              
  277.         .dc.b   1, 1, 1                 ; func 041              
  278.         .dc.b   6, 1, 1                 ; func 042              
  279.         .dc.b   4, 1, 1                 ; func 043              
  280.         .dc.b   1, 3, 1                 ; func 044              
  281.         .dc.b   2, 1, 1                 ; func 045              
  282.         .dc.b   4, 2, 1                 ; func 046              
  283.         .dc.b   8, 1, 1                 ; func 047              
  284.         .dc.b   0, 0, 0                 ; func 048              
  285.         .dc.b   0, 0, 0                 ; func 049              
  286. ;    Form Manager
  287.         .dc.b   1, 1, 1                 ; func 050              
  288.         .dc.b   9, 1, 1                 ; func 051              
  289.         .dc.b   1, 1, 1                 ; func 002              
  290.         .dc.b   1, 1, 0                 ; func 003              
  291.         .dc.b   0, 5, 1                 ; func 004              
  292.         .dc.b   0, 0, 0                 ; func 005              
  293.         .dc.b   0, 0, 0                 ; func 006              
  294.         .dc.b   0, 0, 0                 ; func 007              
  295.         .dc.b   0, 0, 0                 ; func 008              
  296.         .dc.b   0, 0, 0                 ; func 009              
  297. ;    Dialog Manager
  298.         .dc.b   0, 0, 0                 ; func 060              
  299.         .dc.b   0, 0, 0                 ; func 061              
  300.         .dc.b   0, 0, 0                 ; func 062              
  301.         .dc.b   0, 0, 0                 ; func 003              
  302.         .dc.b   0, 0, 0                 ; func 004              
  303.         .dc.b   0, 0, 0                 ; func 005              
  304.         .dc.b   0, 0, 0                 ; func 006              
  305.         .dc.b   0, 0, 0                 ; func 007              
  306.         .dc.b   0, 0, 0                 ; func 008              
  307.         .dc.b   0, 0, 0                 ; func 009              
  308. ;    Graphics Manager
  309.         .dc.b   4, 3, 0                 ; func 070              
  310.         .dc.b   8, 3, 0                 ; func 071              
  311.         .dc.b   6, 1, 0                 ; func 072              
  312.         .dc.b   8, 1, 0                 ; func 073              
  313.         .dc.b   8, 1, 0                 ; func 074              
  314.         .dc.b   4, 1, 1                 ; func 075              
  315.         .dc.b   3, 1, 1                 ; func 076              
  316.         .dc.b   0, 5, 0                 ; func 077              
  317.         .dc.b   1, 1, 1                 ; func 078              
  318.         .dc.b   0, 5, 0                 ; func 009              
  319. ;    Scrap Manager
  320.         .dc.b   0, 1, 1                 ; func 080              
  321.         .dc.b   0, 1, 1                 ; func 081              
  322.         .dc.b   0, 0, 0                 ; func 082              
  323.         .dc.b   0, 0, 0                 ; func 083              
  324.         .dc.b   0, 0, 0                 ; func 084              
  325.         .dc.b   0, 0, 0                 ; func 005              
  326.         .dc.b   0, 0, 0                 ; func 006              
  327.         .dc.b   0, 0, 0                 ; func 007              
  328.         .dc.b   0, 0, 0                 ; func 008              
  329.         .dc.b   0, 0, 0                 ; func 009              
  330. ;    fseler Manager
  331.         .dc.b   0, 2, 2                 ; func 090              
  332.         .dc.b   0, 0, 0                 ; func 091              
  333.         .dc.b   0, 0, 0                 ; func 092              
  334.         .dc.b   0, 0, 0                 ; func 003              
  335.         .dc.b   0, 0, 0                 ; func 004              
  336.         .dc.b   0, 0, 0                 ; func 005              
  337.         .dc.b   0, 0, 0                 ; func 006              
  338.         .dc.b   0, 0, 0                 ; func 007              
  339.         .dc.b   0, 0, 0                 ; func 008              
  340.         .dc.b   0, 0, 0                 ; func 009              
  341. ;    Window Manager
  342.         .dc.b   5, 1, 0                 ; func 100              
  343.         .dc.b   5, 1, 0                 ; func 101              
  344.         .dc.b   1, 1, 0                 ; func 102              
  345.         .dc.b   1, 1, 0                 ; func 103              
  346.         .dc.b   2, 5, 0                 ; func 104              
  347.         .dc.b   6, 1, 0                 ; func 105              
  348.         .dc.b   2, 1, 0                 ; func 106              
  349.         .dc.b   1, 1, 0                 ; func 107              
  350.         .dc.b   6, 5, 0                 ; func 108              
  351.         .dc.b   0, 0, 0                 ; func 009              
  352. ;    Resource Manger
  353.         .dc.b   0, 1, 1                 ; func 110              
  354.         .dc.b   0, 1, 0                 ; func 111              
  355.         .dc.b   2, 1, 0                 ; func 112              
  356.         .dc.b   2, 1, 1                 ; func 113              
  357.         .dc.b   1, 1, 1                 ; func 114              
  358.         .dc.b   0, 0, 0                 ; func 115              
  359.         .dc.b   0, 0, 0                 ; func 006
  360.         .dc.b   0, 0, 0                 ; func 007
  361.         .dc.b   0, 0, 0                 ; func 008
  362.         .dc.b   0, 0, 0                 ; func 009
  363. ;    Shell Manager
  364.         .dc.b   0, 1, 2                 ; func 120
  365.         .dc.b   3, 1, 2                 ; func 121
  366.         .dc.b   1, 1, 1                 ; func 122
  367.         .dc.b   1, 1, 1                 ; func 123
  368.         .dc.b   0, 1, 1                 ; func 124
  369.         .dc.b   0, 1, 2                 ; func 125
  370.  
  371.  
  372.  
  373.