home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / achlib / achacc.s next >
Text File  |  1988-03-22  |  9KB  |  215 lines
  1. ;*** achacc.s
  2. ;
  3. ;    871124
  4.  
  5.  
  6. ;*** Long Stack Space
  7.  
  8. STACK     =         $200
  9.  
  10.  
  11. ;*** Accessory Start
  12.  
  13.           .text
  14.           .extern   _main
  15.           .even
  16.  
  17.           move.l    #U_STACK, sp 
  18.           jsr       _main
  19.           move.w    #0, (sp)
  20.           trap      #1
  21.  
  22.  
  23. ;*** Save Menu Line
  24.  
  25.           .text
  26. _MENUSAV::
  27.           movea.l   _scrloc, a0
  28.           lea       MENULINE, a1
  29.           move.w    #$1e0, d0
  30. .1:
  31.           move.l    (a0)+, (a1)+
  32.           dbf       d0, .1
  33.           rts
  34.  
  35.           .bss
  36.           .even
  37. MENULINE: .ds.l     $1f0
  38.  
  39.  
  40. ;*** Restore menu line
  41.  
  42.           .text
  43. _MENURES::
  44.           movea.l   _scrloc, a0
  45.           lea       MENULINE, a1
  46.           move.w    #$1e0, d0
  47. .1:
  48.           move.l    (a1)+, (a0)+
  49.           dbf       d0, .1
  50.           rts
  51.  
  52.  
  53. ;*** AES Call
  54. ;
  55. ; e  long pointer to AES parameter block
  56.  
  57.           .text
  58. _crystal::
  59.           move.l    4(sp), d1
  60.           move.w    #200, d0
  61.           trap      #2
  62.           rts
  63.  
  64.  
  65.           .bss
  66.           .even
  67. retsav:   .ds.l     1
  68.           .ds.l     STACK
  69. U_STACK:  .ds.l     1
  70.  
  71.  
  72.  
  73. ;*** Control Array Settings
  74. ;
  75. ;
  76. ;    This .data is used to set entrys 1, 2 and 3 in the control
  77. ;    array.
  78.  
  79.         .data
  80.         .even
  81. _ctrl_cnts::
  82.  
  83. ;    Application Manager
  84.         .dc.b   0, 1, 0                 ; func 010              
  85.         .dc.b   2, 1, 1                 ; func 011              
  86.         .dc.b   2, 1, 1                 ; func 012              
  87.         .dc.b   0, 1, 1                 ; func 013              
  88.         .dc.b   2, 1, 1                 ; func 014              
  89.         .dc.b   1, 1, 1                 ; func 015              
  90.         .dc.b   0, 0, 0                 ; func 016              
  91.         .dc.b   0, 0, 0                 ; func 017              
  92.         .dc.b   0, 0, 0                 ; func 008              
  93.         .dc.b   0, 1, 0                 ; func 019              
  94. ;    Event Manager
  95.         .dc.b   0, 1, 0                 ; func 020              
  96.         .dc.b   3, 5, 0                 ; func 021              
  97.         .dc.b   5, 5, 0                 ; func 022              
  98.         .dc.b   0, 1, 1                 ; func 023              
  99.         .dc.b   2, 1, 0                 ; func 024              
  100.         .dc.b   16, 7, 1                ; func 025              
  101.         .dc.b   2, 1, 0                 ; func 026              
  102.         .dc.b   0, 0, 0                 ; func 027              
  103.         .dc.b   0, 0, 0                 ; func 028              
  104.         .dc.b   0, 0, 0                 ; func 009              
  105. ;    Menu Manager
  106.         .dc.b   1, 1, 1                 ; func 030              
  107.         .dc.b   2, 1, 1                 ; func 031              
  108.         .dc.b   2, 1, 1                 ; func 032              
  109.         .dc.b   2, 1, 1                 ; func 033              
  110.         .dc.b   1, 1, 2                 ; func 034              
  111.         .dc.b   1, 1, 1                 ; func 005              
  112.         .dc.b   0, 0, 0                 ; func 006              
  113.         .dc.b   0, 0, 0                 ; func 007              
  114.         .dc.b   0, 0, 0                 ; func 008              
  115.         .dc.b   0, 0, 0                 ; func 009              
  116. ;    Object Manager
  117.         .dc.b   2, 1, 1                 ; func 040              
  118.         .dc.b   1, 1, 1                 ; func 041              
  119.         .dc.b   6, 1, 1                 ; func 042              
  120.         .dc.b   4, 1, 1                 ; func 043              
  121.         .dc.b   1, 3, 1                 ; func 044              
  122.         .dc.b   2, 1, 1                 ; func 045              
  123.         .dc.b   4, 2, 1                 ; func 046              
  124.         .dc.b   8, 1, 1                 ; func 047              
  125.         .dc.b   0, 0, 0                 ; func 048              
  126.         .dc.b   0, 0, 0                 ; func 049              
  127. ;    Form Manager
  128.         .dc.b   1, 1, 1                 ; func 050              
  129.         .dc.b   9, 1, 1                 ; func 051              
  130.         .dc.b   1, 1, 1                 ; func 002              
  131.         .dc.b   1, 1, 0                 ; func 003              
  132.         .dc.b   0, 5, 1                 ; func 004              
  133.         .dc.b   0, 0, 0                 ; func 005              
  134.         .dc.b   0, 0, 0                 ; func 006              
  135.         .dc.b   0, 0, 0                 ; func 007              
  136.         .dc.b   0, 0, 0                 ; func 008              
  137.         .dc.b   0, 0, 0                 ; func 009              
  138. ;    Dialog Manager
  139.         .dc.b   0, 0, 0                 ; func 060              
  140.         .dc.b   0, 0, 0                 ; func 061              
  141.         .dc.b   0, 0, 0                 ; func 062              
  142.         .dc.b   0, 0, 0                 ; func 003              
  143.         .dc.b   0, 0, 0                 ; func 004              
  144.         .dc.b   0, 0, 0                 ; func 005              
  145.         .dc.b   0, 0, 0                 ; func 006              
  146.         .dc.b   0, 0, 0                 ; func 007              
  147.         .dc.b   0, 0, 0                 ; func 008              
  148.         .dc.b   0, 0, 0                 ; func 009              
  149. ;    Graphics Manager
  150.         .dc.b   4, 3, 0                 ; func 070              
  151.         .dc.b   8, 3, 0                 ; func 071              
  152.         .dc.b   6, 1, 0                 ; func 072              
  153.         .dc.b   8, 1, 0                 ; func 073              
  154.         .dc.b   8, 1, 0                 ; func 074              
  155.         .dc.b   4, 1, 1                 ; func 075              
  156.         .dc.b   3, 1, 1                 ; func 076              
  157.         .dc.b   0, 5, 0                 ; func 077              
  158.         .dc.b   1, 1, 1                 ; func 078              
  159.         .dc.b   0, 5, 0                 ; func 009              
  160. ;    Scrap Manager
  161.         .dc.b   0, 1, 1                 ; func 080              
  162.         .dc.b   0, 1, 1                 ; func 081              
  163.         .dc.b   0, 0, 0                 ; func 082              
  164.         .dc.b   0, 0, 0                 ; func 083              
  165.         .dc.b   0, 0, 0                 ; func 084              
  166.         .dc.b   0, 0, 0                 ; func 005              
  167.         .dc.b   0, 0, 0                 ; func 006              
  168.         .dc.b   0, 0, 0                 ; func 007              
  169.         .dc.b   0, 0, 0                 ; func 008              
  170.         .dc.b   0, 0, 0                 ; func 009              
  171. ;    fseler Manager
  172.         .dc.b   0, 2, 2                 ; func 090              
  173.         .dc.b   0, 0, 0                 ; func 091              
  174.         .dc.b   0, 0, 0                 ; func 092              
  175.         .dc.b   0, 0, 0                 ; func 003              
  176.         .dc.b   0, 0, 0                 ; func 004              
  177.         .dc.b   0, 0, 0                 ; func 005              
  178.         .dc.b   0, 0, 0                 ; func 006              
  179.         .dc.b   0, 0, 0                 ; func 007              
  180.         .dc.b   0, 0, 0                 ; func 008              
  181.         .dc.b   0, 0, 0                 ; func 009              
  182. ;    Window Manager
  183.         .dc.b   5, 1, 0                 ; func 100              
  184.         .dc.b   5, 1, 0                 ; func 101              
  185.         .dc.b   1, 1, 0                 ; func 102              
  186.         .dc.b   1, 1, 0                 ; func 103              
  187.         .dc.b   2, 5, 0                 ; func 104              
  188.         .dc.b   6, 1, 0                 ; func 105              
  189.         .dc.b   2, 1, 0                 ; func 106              
  190.         .dc.b   1, 1, 0                 ; func 107              
  191.         .dc.b   6, 5, 0                 ; func 108              
  192.         .dc.b   0, 0, 0                 ; func 009              
  193. ;    Resource Manger
  194.         .dc.b   0, 1, 1                 ; func 110              
  195.         .dc.b   0, 1, 0                 ; func 111              
  196.         .dc.b   2, 1, 0                 ; func 112              
  197.         .dc.b   2, 1, 1                 ; func 113              
  198.         .dc.b   1, 1, 1                 ; func 114              
  199.         .dc.b   0, 0, 0                 ; func 115              
  200.         .dc.b   0, 0, 0                 ; func 006
  201.         .dc.b   0, 0, 0                 ; func 007
  202.         .dc.b   0, 0, 0                 ; func 008
  203.         .dc.b   0, 0, 0                 ; func 009
  204. ;    Shell Manager
  205.         .dc.b   0, 1, 2                 ; func 120
  206.         .dc.b   3, 1, 2                 ; func 121
  207.         .dc.b   1, 1, 1                 ; func 122
  208.         .dc.b   1, 1, 1                 ; func 123
  209.         .dc.b   0, 1, 1                 ; func 124
  210.         .dc.b   0, 1, 2                 ; func 125
  211.  
  212.  
  213.  
  214.  
  215.