home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / utility / disk / pdos_112 / dosmacro.s < prev    next >
Text File  |  1993-07-31  |  13KB  |  980 lines
  1.  
  2. tos_init    macro
  3.     move.l    4(a7),a0    
  4.     move.l    $c(a0),d0
  5.     add.l    $14(a0),d0
  6.     add.l    $1c(a0),d0
  7.     add.l    #$500,d0        For stack & basepage    
  8.     lea    0(a0,d0.l),sp
  9.     m_shrink    d0,(a0)
  10.     endm
  11.  
  12. *************gemdos**************
  13. p_term0    macro
  14.     clr    -(sp)
  15.     trap    #1
  16.     addq.l    #2,sp
  17.     endm
  18. c_conin    macro
  19.     move    #1,-(sp)
  20.     trap    #1
  21.     addq.l    #2,sp
  22.     endm
  23. c_conout    macro
  24.     move    \1,-(sp)
  25.     move    #2,-(sp)
  26.     trap    #1
  27.     addq.l    #4,sp
  28.     endm
  29. c_auxin    macro
  30.     move    #3,-(sp)
  31.     trap    #1
  32.     addq.l    #2,sp
  33.     endm
  34. c_auxout    macro
  35.     move    \1,-(sp)
  36.     move    #4,-(sp)
  37.     trap    #1
  38.     addq.l    #4,sp
  39.     endm
  40. c_prnout    macro
  41.     move    \1,-(sp)
  42.     move    #5,-(sp)
  43.     trap    #1
  44.     addq.l    #4,sp
  45.     endm
  46. c_rawio    macro
  47.     move    \1,-(sp)
  48.     move    #6,-(sp)
  49.     trap    #1
  50.     addq.l    #4,sp
  51.     endm
  52. c_rawcin    macro
  53.     move    #7,-(sp)
  54.     trap    #1
  55.     addq.l    #2,sp
  56.     endm
  57. c_necin    macro
  58.     move    #8,-(sp)
  59.     trap    #1
  60.     addq.l    #2,sp
  61.     endm
  62. c_conws    macro
  63.     pea    \1
  64.     move    #9,-(sp)
  65.     trap    #1
  66.     addq.l    #6,sp
  67.     endm
  68. c_conrs    macro
  69.     pea    \1
  70.     move    #10,-(sp)
  71.     trap    #1
  72.     addq.l    #6,sp
  73.     endm
  74. c_conis    macro
  75.     move    #$b,-(sp)
  76.     trap    #1
  77.     addq.l    #2,sp
  78.     endm
  79. d_setdrv    macro
  80.     move    \1,-(sp)
  81.     move    #$e,-(sp)
  82.     trap    #1
  83.     addq.l    #4,sp
  84.     endm
  85. c_conos    macro
  86.     move    #$10,-(sp)
  87.     trap    #1
  88.     addq.l    #2,sp
  89.     endm
  90. c_prnos    macro
  91.     move    #$11,-(sp)
  92.     trap    #1
  93.     addq.l    #2,sp
  94.     endm
  95. c_auxis    macro
  96.     move    #$12,-(sp)
  97.     trap    #1
  98.     addq.l    #2,sp
  99.     endm
  100. c_auxos    macro
  101.     move    #$13,-(sp)
  102.     trap    #1
  103.     addq.l    #2,sp
  104.     endm
  105. m_addalt    macro
  106.     move.l    \1,-(sp)
  107.     move.l    \2,-(sp)
  108.     move    #$14,-(sp)
  109.     trap    #1
  110.     lea    10(sp),sp
  111.     endm
  112. d_getdrv    macro
  113.     move    #$19,-(sp)
  114.     trap    #1
  115.     addq.l    #2,sp
  116.     endm
  117. f_setdta    macro
  118.     pea    \1
  119.     move    #$1a,-(sp)
  120.     trap    #1
  121.     addq.l    #6,sp
  122.     endm
  123. super    macro
  124.     move.l    \1,-(sp)
  125.     move    #$20,-(sp)
  126.     trap    #1
  127.     addq.l    #6,sp
  128.     endm
  129. t_getdate    macro
  130.     move    #$2a,-(sp)
  131.     trap    #1
  132.     addq.l    #2,sp
  133.     endm
  134. t_setdate    macro
  135.     move    \1,-(sp)
  136.     move    #$2b,-(sp)
  137.     trap    #1
  138.     addq.l    #4,sp
  139.     endm
  140. t_gettime    macro
  141.     move    #$2c,-(sp)
  142.     trap    #1
  143.     addq.l    #2,sp
  144.     endm
  145. t_settime    macro
  146.     move    \1,-(sp)
  147.     move    #$2d,-(sp)
  148.     trap    #1
  149.     addq.l    #4,sp
  150.     endm
  151. f_getdta    macro
  152.     move    #$2f,-(sp)
  153.     trap    #1
  154.     addq.l    #2,sp
  155.     endm
  156. s_version    macro
  157.     move    #$30,-(sp)
  158.     trap    #1
  159.     addq.l    #2,sp
  160.     endm
  161. p_termres    macro
  162.     move    \1,-(sp)
  163.     move.l    \2,-(sp)
  164.     move    #$31,-(sp)
  165.     trap    #1
  166.     addq.l    #8,sp
  167.     endm
  168. d_free    macro
  169.     move    \1,-(sp)
  170.     pea    \2
  171.     move    #$36,-(sp)
  172.     trap    #1
  173.     addq.l    #8,sp
  174.     endm
  175. d_create    macro
  176.     pea    \1
  177.     move    #$39,-(sp)
  178.     trap    #1
  179.     addq.l    #6,sp
  180.     endm
  181. d_delete    macro
  182.     pea    \1
  183.     move    #$3a,-(sp)
  184.     trap    #1
  185.     addq.l    #6,sp
  186.     endm
  187. d_setpath    macro
  188.     pea    \1
  189.     move    #$3b,-(sp)
  190.     trap    #1
  191.     addq.l    #6,sp
  192.     endm
  193. f_create    macro
  194.     move    \1,-(sp)
  195.     pea    \2
  196.     move    #$3c,-(sp)
  197.     trap    #1
  198.     addq.l    #8,sp
  199.     endm
  200. f_open    macro
  201.     move    \1,-(sp)
  202.     pea    \2
  203.     move    #$3d,-(sp)
  204.     trap    #1
  205.     addq.l    #8,sp
  206.     endm
  207. f_close    macro
  208.     move    \1,-(sp)
  209.     move    #$3e,-(sp)
  210.     trap    #1
  211.     addq.l    #4,sp
  212.     endm
  213. f_read    macro
  214.     pea    \1
  215.     move.l    \2,-(sp)
  216.     move    \3,-(sp)
  217.     move    #$3f,-(sp)
  218.     trap    #1
  219.     lea    12(sp),sp
  220.     endm
  221. f_write    macro
  222.     pea    \1
  223.     move.l    \2,-(sp)
  224.     move    \3,-(sp)
  225.     move    #$40,-(sp)
  226.     trap    #1
  227.     lea    12(sp),sp
  228.     endm
  229. f_delete    macro
  230.     pea    \1
  231.     move    #$41,-(sp)
  232.     trap    #1
  233.     addq.l    #6,sp
  234.     endm
  235. f_seek    macro
  236.     move    \1,-(sp)
  237.     move    \2,-(sp)
  238.     move.l    \3,-(sp)
  239.     move    #$42,-(sp)
  240.     trap    #1
  241.     lea    10(sp),sp
  242.     endm
  243. f_attrib    macro    
  244.     move    \1,-(sp)
  245.     move    \2,-(sp)
  246.     pea    \3
  247.     move    #$43,-(sp)
  248.     trap    #1
  249.     lea    10(sp),sp
  250.     endm
  251. m_xalloc    macro
  252.     move    \1,-(sp)
  253.     move.l    \2,-(sp)
  254.     move    #$44,-(sp)
  255.     trap    #1
  256.     addq.l    #8,sp
  257.     endm
  258. f_dup    macro    
  259.     move    \1,-(sp)
  260.     move    #$45,-(sp)
  261.     trap    #1
  262.     addq.l    #4,sp
  263.     endm
  264. f_force    macro    
  265.     move    \1,-(sp)
  266.     move    \2,-(sp)
  267.     move    #$46,-(sp)
  268.     trap    #1
  269.     addq.l    #6,sp
  270.     endm
  271. d_getpath    macro    
  272.     move    \1,-(sp)
  273.     pea    \2
  274.     move    #$47,-(sp)
  275.     trap    #1
  276.     addq.l    #8,sp
  277.     endm
  278. m_alloc    macro    
  279.     move.l    \1,-(sp)
  280.     move    #$48,-(sp)
  281.     trap    #1
  282.     addq.l    #6,sp
  283.     endm
  284. m_free    macro    
  285.     pea    \1
  286.     move    #$49,-(sp)
  287.     trap    #1
  288.     addq.l    #6,sp
  289.     endm
  290. m_shrink    macro    
  291.     move.l    \1,-(sp)
  292.     pea    \2
  293.     clr    -(sp)
  294.     move    #$4a,-(sp)
  295.     trap    #1
  296.     lea    12(sp),sp
  297.     endm
  298. p_exec    macro    
  299.     ifeq    narg-4
  300.     pea    \1
  301.     pea    \2
  302.     pea    \3
  303.     move    \4,-(sp)
  304.     move    #$4b,-(sp)
  305.     trap    #1
  306.     lea    16(sp),sp
  307.     elseif
  308.     ifeq    narg-7
  309.     move.l    \1,-(sp)
  310.     move.l    \2,-(sp)
  311.     pea    \3
  312.     pea    \4
  313.     pea    \5
  314.     pea    \6
  315.     move    \7,-(sp)
  316.     move    #$4b,-(sp)
  317.     trap    #1
  318.     lea    28(sp),sp
  319.     elseif
  320.     pea    \1
  321.     move.w    \2,-(sp)
  322.     move.l    \3,-(sp)
  323.     move.l    \4,-(sp)
  324.     pea    \5
  325.     pea    \6
  326.     pea    \7
  327.     pea    \8
  328.     move    \9,-(sp)
  329.     move    #$4b,-(sp)
  330.     trap    #1
  331.     lea    34(sp),sp
  332.     endc
  333.     endc
  334.     endm
  335. p_term    macro    
  336.     move    \1,-(sp)
  337.     move    #$4c,-(sp)
  338.     trap    #1
  339.     endm
  340. f_sfirst    macro    
  341.     move    \1,-(sp)
  342.     pea    \2
  343.     move    #$4e,-(sp)
  344.     trap    #1
  345.     addq.l    #8,sp
  346.     endm
  347. f_snext    macro
  348.     move    #$4f,-(sp)
  349.     trap    #1
  350.     addq.l    #2,sp
  351.     endm
  352. f_rename    macro    
  353.     pea    \1
  354.     pea    \2
  355.     clr    -(sp)
  356.     move    #$56,-(sp)
  357.     trap    #1
  358.     lea    12(sp),sp
  359.     endm
  360. f_datime    macro
  361.     move    \1,-(sp)
  362.     move    \2,-(sp)
  363.     pea    \3
  364.     move    #$57,-(sp)
  365.     trap    #1
  366.     lea    10(sp),sp
  367.     endm
  368.  
  369. f_lock    macro
  370.     move.l    \1,-(sp)
  371.     move.l    \2,-(sp)
  372.     move.w    \3,-(sp)
  373.     move.w    \4,-(sp)
  374.     move.w    #$5c,-(sp)
  375.     trap    #1
  376.     lea    14(sp),sp
  377.     endm
  378.  
  379. * All of our added functions will start at $80, well above the region that
  380. * Atari will likely use in the future.
  381. p_userid    macro
  382.     move.l    \1,-(sp)
  383.     move.w    \2,-(sp)
  384.     move.w    \3,-(sp)
  385.     move    #$80,-(sp)
  386.     trap    #1
  387.     lea    10(sp),sp
  388.     endm
  389. p_priority    macro
  390.     move    \1,-(sp)
  391.     move    \2,-(sp)
  392.     move    #$81,-(sp)
  393.     trap    #1
  394.     addq.l    #6,sp
  395.     endm
  396. p_getpid    macro
  397.     move    #$82,-(sp)
  398.     trap    #1
  399.     addq.l    #2,sp
  400.     endm
  401. p_getppid    macro
  402.     move    #$83,-(sp)
  403.     trap    #1
  404.     addq.l    #2,sp
  405.     endm
  406. p_getpd    macro
  407.     move    \1,-(sp)
  408.     move    #$84,-(sp)
  409.     trap    #1
  410.     addq.l    #4,sp
  411.     endm
  412. p_findpid    macro
  413.     pea    \1
  414.     move    #$85,-(sp)
  415.     trap    #1
  416.     addq.l    #6,sp
  417.     endm
  418. p_procinf    macro
  419.     pea    \1
  420.     move    \2,-(sp)
  421.     move    #$86,-(sp)
  422.     trap    #1
  423.     addq.l    #8,sp
  424.     endm
  425.  
  426. p_nice    macro
  427.     move    \1,-(sp)
  428.     move    \2,-(sp)
  429.     move    #$87,-(sp)
  430.     trap    #1
  431.     addq.l    #6,sp
  432.     endm
  433.     
  434. m_salloc    macro
  435.     move.l    \1,-(sp)
  436.     move    #$88,-(sp)
  437.     trap    #1
  438.     addq.l    #6,sp
  439.     endm
  440. m_assign    macro
  441.     pea    \1
  442.     move    \2,-(sp)
  443.     move    #$89,-(sp)
  444.     trap    #1
  445.     addq.l    #8,sp
  446.     endm
  447.  
  448. f_status    macro
  449.     move    \1,-(sp)
  450.     move    \2,-(sp)
  451.     move    #$8b,-(sp)
  452.     trap    #1
  453.     addq.l    #6,sp
  454.     endm
  455. f_sfirstoff    macro
  456.     move    \1,-(sp)
  457.     move    \2,-(sp)
  458.     pea    \3
  459.     move    #$8c,-(sp)
  460.     trap    #1
  461.     lea    10(sp),sp
  462.     endm
  463.  
  464. wake_parent    macro
  465.     move    \1,-(sp)
  466.     move    #$8d,-(sp)
  467.     trap    #1
  468.     addq.l    #4,sp
  469.     endm
  470. wait    macro
  471.     move    #$8e,-(sp)
  472.     trap    #1
  473.     addq.l    #2,sp
  474.     endm
  475. sleep    macro
  476.     move.l    \1,-(sp)
  477.     move    #$8f,-(sp)
  478.     trap    #1
  479.     addq.l    #6,sp
  480.     endm
  481. ioqueue    macro
  482.     move.l    \1,-(sp)
  483.     move    \2,-(sp)
  484.     move    #$90,-(sp)
  485.     trap    #1
  486.     addq.l    #8,sp
  487.     endm
  488. wait_time    macro
  489.     move.l    \1,-(sp)
  490.     move    #$91,-(sp)
  491.     trap    #1
  492.     addq.l    #6,sp
  493.     endm
  494.  
  495. dev_create    macro
  496.     move    \1,-(sp)        Share flag (0=shareable)
  497.     pea    \2        Vars to copy to device descriptor
  498.     pea    \3        Vars to copy to new paths
  499.     pea    \4        Name of device driver
  500.     pea    \5        Name of file manager
  501.     pea    \6        Name system will recognize device as
  502.     move    #$92,-(sp)
  503.     trap    #1
  504.     lea    24(sp),sp
  505.     endm
  506. dev_fm_add    macro
  507.     move    \4,-(sp)        File manager type
  508.     pea    \3        Var ptr to load into a6 before calling
  509.     pea    \2        Subroutine entry point
  510.     pea    \1        Name of file manager
  511.     move    #$93,-(sp)
  512.     trap    #1
  513.     lea    16(sp),sp
  514.     endm
  515. dev_dd_add    macro
  516.     pea    \3        Var ptr loaded into a6 before calling
  517.     pea    \2        Subroutine entry point
  518.     pea    \1        Name of device driver
  519.     move    #$94,-(sp)
  520.     trap    #1
  521.     lea    14(sp),sp
  522.     endm
  523. list_devs    macro
  524.     pea    \1
  525.     move    \2,-(sp)
  526.     move    #$95,-(sp)
  527.     trap    #1
  528.     addq.l    #8,sp
  529.     endm
  530.  
  531. s_send    macro
  532.     move.l    \1,-(sp)
  533.     move    \2,-(sp)
  534.     move    #$96,-(sp)
  535.     trap    #1
  536.     addq.l    #8,sp
  537.     endm
  538. s_intercept    macro
  539.     pea    \1
  540.     pea    \2
  541.     move    #$97,-(sp)
  542.     trap    #1
  543.     lea    10(sp),sp
  544.     endm
  545. p_suspend    macro
  546.     move    \1,-(sp)
  547.     move    #$98,-(sp)
  548.     trap    #1
  549.     addq.l    #4,sp
  550.     endm
  551.  
  552. q_message    macro
  553.     pea    \1
  554.     move    #$99,-(sp)
  555.     trap    #1
  556.     addq.l    #6,sp
  557.     endm
  558. q_semaphore    macro
  559.     pea    \1
  560.     move    #$9a,-(sp)
  561.     trap    #1
  562.     addq.l    #6,sp
  563.     endm
  564. m_share    macro
  565.     pea    \1
  566.     move    #$9b,-(sp)
  567.     trap    #1
  568.     addq.l    #6,sp
  569.     endm
  570.  
  571. os_fvector    macro
  572.     pea    \1
  573.     move    \2,-(sp)
  574.     move    \3,-(sp)
  575.     move    #$9e,-(sp)
  576.     trap    #1
  577.     lea    10(sp),sp
  578.     endm
  579. os_sysvar    macro
  580.     move.l    \1,-(sp)
  581.     move    \2,-(sp)
  582.     move    \3,-(sp)
  583.     move    #$9f,-(sp)
  584.     trap    #1
  585.     lea    10(sp),sp
  586.     endm
  587. p_name    macro
  588.     pea    \1
  589.     move    \2,-(sp)
  590.     move    \3,-(sp)
  591.     move    #$a0,-(sp)
  592.     trap    #1
  593.     lea    10(sp),sp
  594.     endm
  595. p_vector    macro
  596.     move.l    \1,-(sp)
  597.     move    \2,-(sp)
  598.     move    #$a1,-(sp)
  599.     trap    #1
  600.     addq.l    #8,sp
  601.     endm
  602. p_attrib    macro
  603.     move    \1,-(sp)        Two byte values together
  604.     move    \2,-(sp)
  605.     move    #$a2,-(sp)
  606.     trap    #1
  607.     addq.l    #6,sp
  608.     endm
  609. p_maxmem    macro
  610.     move.l    \1,-(sp)
  611.     move    \2,-(sp)
  612.     move    \3,-(sp)
  613.     move    #$a3,-(sp)
  614.     trap    #1
  615.     lea    10(sp),sp
  616.     endm
  617.     
  618. **************bios**************
  619.  
  620. getmpb    macro    
  621.     pea    \1
  622.     clr    -(sp)
  623.     trap    #13
  624.     addq.l    #6,sp
  625.     endm
  626. bconstat    macro    
  627.     move    \1,-(sp)
  628.     move    #1,-(sp)
  629.     trap    #13
  630.     addq.l    #4,sp
  631.     endm
  632. bconin    macro    
  633.     move    \1,-(sp)
  634.     move    #2,-(sp)
  635.     trap    #13
  636.     addq.l    #4,sp
  637.     endm
  638. bconout    macro    
  639.     move    \1,-(sp)
  640.     move    \2,-(sp)
  641.     move    #3,-(sp)
  642.     trap    #13
  643.     addq.l    #6,sp
  644.     endm
  645. rwabs    macro    
  646.     move    \1,-(sp)
  647.     move    \2,-(sp)
  648.     move    \3,-(sp)
  649.     pea    \4
  650.     move    \5,-(sp)
  651.     move    #4,-(sp)
  652.     trap    #13
  653.     lea    14(sp),sp
  654.     endm
  655. setexec    macro    
  656.     pea    \1
  657.     move    \2,-(sp)
  658.     move    #5,-(sp)
  659.     trap    #13
  660.     addq.l    #8,sp
  661.     endm
  662. tickcal    macro
  663.     move    #6,-(sp)
  664.     trap    #13
  665.     addq.l    #2,sp
  666.     endm
  667. getbpb    macro    
  668.     move    \1,-(sp)
  669.     move    #7,-(sp)
  670.     trap    #13
  671.     addq.l    #4,sp
  672.     endm
  673. bcostat    macro    
  674.     move    \1,-(sp)
  675.     move    #8,-(sp)
  676.     trap    #13
  677.     addq.l    #4,sp
  678.     endm
  679. mediach    macro    
  680.     move    \1,-(sp)
  681.     move    #9,-(sp)
  682.     trap    #13
  683.     addq.l    #4,sp
  684.     endm
  685. drvmap    macro
  686.     move    #10,-(sp)
  687.     trap    #13
  688.     addq.l    #2,sp
  689.     endm
  690. kbshift    macro    
  691.     move    \1,-(sp)
  692.     move    #11,-(sp)
  693.     trap    #13
  694.     addq.l    #4,sp
  695.     endm
  696.  
  697. **************xbios**************
  698.     
  699. initmous    macro    
  700.     pea    \1
  701.     pea    \2
  702.     move    \3,-(sp)
  703.     clr    -(sp)
  704.     trap    #14
  705.     lea    12(sp),sp
  706.     endm
  707. ssbrk    macro    
  708.     move    \1,-(sp)
  709.     move    #1,-(sp)
  710.     trap    #14
  711.     addq.l    #4,sp
  712.     endm
  713. physbase    macro
  714.     move    #2,-(sp)
  715.     trap    #14
  716.     addq.l    #2,sp
  717.     endm
  718. logbase    macro
  719.     move    #3,-(sp)
  720.     trap    #14
  721.     addq.l    #2,sp
  722.     endm
  723. getrez    macro
  724.     move    #4,-(sp)
  725.     trap    #14
  726.     addq.l    #2,sp
  727.     endm
  728. setscreen    macro    
  729.     move    \1,-(sp)
  730.     pea    \2
  731.     pea    \3
  732.     move    #5,-(sp)
  733.     trap    #14
  734.     lea    12(sp),sp
  735.     endm
  736. setpalette    macro    
  737.     pea    \1
  738.     move    #6,-(sp)
  739.     trap    #14
  740.     addq.l    #6,sp
  741.     endm
  742. setcolor    macro    
  743.     move    \1,-(sp)
  744.     move    \2,-(sp)
  745.     move    #7,-(sp)
  746.     trap    #14
  747.     addq.l    #6,sp
  748.     endm
  749. floprd    macro    
  750.     move    \1,-(sp)
  751.     move    \2,-(sp)
  752.     move    \3,-(sp)
  753.     move    \4,-(sp)
  754.     move    \5,-(sp)
  755.     clr.l    -(sp)
  756.     pea    \6
  757.     move    #8,-(sp)
  758.     trap    #14
  759.     lea    20(sp),sp
  760.     endm
  761. flopwr    macro    
  762.     move    \1,-(sp)
  763.     move    \2,-(sp)
  764.     move    \3,-(sp)
  765.     move    \4,-(sp)
  766.     move    \5,-(sp)
  767.     clr.l    -(sp)
  768.     pea    \6
  769.     move    #9,-(sp)
  770.     trap    #14
  771.     lea    20(sp),sp
  772.     endm
  773. flopfmt    macro    
  774.     move    \1,-(sp)
  775.     move.l    #$87654321,-(sp)
  776.     move    \2,-(sp)
  777.     move    \3,-(sp)
  778.     move    \4,-(sp)
  779.     move    \5,-(sp)
  780.     move    \6,-(sp)
  781.     clr.l    -(sp)
  782.     pea    \7
  783.     move    #10,-(sp)
  784.     trap    #14
  785.     lea    26(sp),sp
  786.     endm
  787. midiws    macro    
  788.     pea    \1
  789.     move    \2,-(sp)
  790.     move    #12,-(sp)
  791.     trap    #14
  792.     addq.l    #8,sp
  793.     endm
  794. mfpint    macro    
  795.     pea    \1
  796.     move    \2,-(sp)
  797.     move    #13,-(sp)
  798.     trap    #14
  799.     addq.l    #8,sp
  800.     endm
  801. iorec    macro    
  802.     move    \1,-(sp)
  803.     move    #14,-(sp)
  804.     trap    #14
  805.     addq.l    #4,sp
  806.     endm
  807. rsconf    macro    
  808.     move    \1,-(sp)
  809.     move    \2,-(sp)
  810.     move    \3,-(sp)
  811.     move    \4,-(sp)
  812.     move    \5,-(sp)
  813.     move    \6,-(sp)
  814.     move    #15,-(sp)
  815.     trap    #14
  816.     lea    14(sp),sp
  817.     endm
  818. keytbl    macro    
  819.     pea    \1
  820.     pea    \2
  821.     pea    \3
  822.     move    #16,-(sp)
  823.     trap    #14
  824.     lea    14(sp),sp
  825.     endm
  826. random    macro
  827.     move    #17,-(sp)
  828.     trap    #14
  829.     addq.l    #2,sp
  830.     endm
  831. protobt    macro    
  832.     move    \1,-(sp)
  833.     move    \2,-(sp)
  834.     move.l    \3,-(sp)
  835.     pea    \4
  836.     move    #18,-(sp)
  837.     trap    #14
  838.     lea    14(sp),sp
  839.     endm
  840. flopver    macro    
  841.     move    \1,-(sp)
  842.     move    \2,-(sp)
  843.     move    \3,-(sp)
  844.     move    \4,-(sp)
  845.     move    \5,-(sp)
  846.     clr.l    -(sp)
  847.     pea    \6
  848.     move    #19,-(sp)
  849.     trap    #14
  850.     lea    20(sp),sp
  851.     endm
  852. scrdmp    macro
  853.     move    #20,-(sp)
  854.     trap    #14
  855.     addq.l    #2,sp
  856.     endm
  857. cursconf    macro    
  858.     move    \1,-(sp)
  859.     move    \2,-(sp)
  860.     move    #21,-(sp)
  861.     trap    #14
  862.     addq.l    #6,sp
  863.     endm
  864. settime    macro    
  865.     move.l    \1,-(sp)
  866.     move    #22,-(sp)
  867.     trap    #14
  868.     addq.l    #6,sp
  869.     endm
  870. gettime    macro
  871.     move    #23,-(sp)
  872.     trap    #14
  873.     addq.l    #2,sp
  874.     endm
  875. bioskeys    macro
  876.     move    #24,-(sp)
  877.     trap    #14
  878.     addq.l    #2,sp
  879.     endm
  880. ikbdws    macro    
  881.     pea    \1
  882.     move    \2,-(sp)
  883.     move    #25,-(sp)
  884.     trap    #14
  885.     addq.l    #8,sp
  886.     endm
  887. jdisint    macro
  888.     move    \1,-(sp)
  889.     move    #26,-(sp)
  890.     trap    #14
  891.     addq.l    #4,sp
  892.     endm
  893. jenabint    macro    
  894.     move    \1,-(sp)
  895.     move    #27,-(sp)
  896.     trap    #14
  897.     addq.l    #4,sp
  898.     endm
  899. giaccess    macro    
  900.     move    \1,-(sp)
  901.     move    \2,-(sp)
  902.     move    #28,-(sp)
  903.     trap    #14
  904.     addq.l    #6,sp
  905.     endm
  906. offgibit    macro    
  907.     move    \1,-(sp)
  908.     move    #29,-(sp)
  909.     trap    #14
  910.     addq.l    #4,sp
  911.     endm
  912. ongibit    macro    
  913.     move    \1,-(sp)
  914.     move    #30,-(sp)
  915.     trap    #14
  916.     addq.l    #4,sp
  917.     endm
  918. xbtimer    macro    
  919.     pea    \1
  920.     move    \2,-(sp)
  921.     move    \3,-(sp)
  922.     move    \4,-(sp)
  923.     move    #31,-(sp)
  924.     trap    #14
  925.     lea    12(sp),sp
  926.     endm
  927. dosound    macro    
  928.     pea    \1
  929.     move    #32,-(sp)
  930.     trap    #14
  931.     addq.l    #6,sp
  932.     endm
  933. setprt    macro    
  934.     move    \1,-(sp)
  935.     move    #33,-(sp)
  936.     trap    #14
  937.     addq.l    #4,sp
  938.     endm
  939. kbdvbase    macro
  940.     move    #34,-(sp)
  941.     trap    #14
  942.     addq.l    #2,sp
  943.     endm
  944. kbrate    macro    
  945.     move    \1,-(sp)
  946.     move    \2,-(sp)
  947.     move    #35,-(sp)
  948.     trap    #14
  949.     addq.l    #6,sp
  950.     endm
  951. prtblk    macro    
  952.     pea    \1
  953.     move    #36,-(sp)
  954.     trap    #14
  955.     addq.l    #6,sp
  956.     endm
  957. wvbl    macro
  958.     move    #37,-(sp)
  959.     trap    #14
  960.     addq.l    #2,sp
  961.     endm
  962. supexec    macro    
  963.     pea    \1
  964.     move    #38,-(sp)
  965.     trap    #14
  966.     addq.l    #6,sp
  967.     endm
  968. puntaes    macro
  969.     move    #39,-(sp)
  970.     trap    #14
  971.     addq.l    #2,sp
  972.     endm
  973. bconmap    macro
  974.     move    \1,-(sp)
  975.     move    #44,-(sp)
  976.     trap    #14
  977.     addq.l    #4,sp
  978.     endm
  979.  
  980.