home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1993 / USERJN93.MSA / DEVPAC2_GEMMACRO.S < prev    next >
Text File  |  1993-04-20  |  15KB  |  969 lines
  1.  
  2. * Macro library to call AES & VDI
  3. * Copyright (c) HiSoft 1988
  4.  
  5. * 31.5.88    fixed appl_read,appl_write,graf_slidebox
  6. * 2.6.88    fixed evnt_multi
  7. * 11.9.88    v_contour_fill corrected (to v_contourfill)
  8. * 25.10.89    vswr_mode fixed (intint typo), added TOS 1.4 AES calls
  9. *        fsel_exinput, wind_new. Added shel_get/put
  10. * 1.5.90    Added form_button/form_keybd
  11. *        Typo in vq_extnd fixed
  12.  
  13. ***********AES Macros******************
  14.  
  15. * macro to call a given AES routine
  16. aes    macro    aes_number
  17.     XREF    CALL_AES,int_in,addr_in,int_out,addr_out,current_handle
  18.     moveq    #\1,d0
  19.     bsr    CALL_AES
  20.     endm
  21. *    may need to change BSR CALL_AES to JSR for large programs
  22.  
  23. appl_init    macro
  24.     aes    10
  25.     endm
  26.  
  27. appl_read    macro    id,length,buff
  28.     move.w    \1,int_in
  29.     move.w    \2,int_in+2
  30.     move.l    \3,addr_in
  31.     aes    11
  32.     endm
  33.  
  34. appl_write    macro    id,length,buffer
  35.     move.w    \1,int_in
  36.     move.w    \2,int_in+2
  37.     move.l    \3,addr_in
  38.     aes    12
  39.     endm
  40.  
  41. appl_find    macro    name
  42.     move.l    \1,addr_in
  43.     aes    13
  44.     endm
  45.  
  46. appl_tplay    macro    mem,num,scale
  47.     move.l    \1,addr_in
  48.     move.w    \2,int_in
  49.     move.w    \3,int_in+2
  50.     aes    14
  51.     endm
  52.  
  53. appl_trecord    macro    mem,count
  54.     move.l    \1,addr_in
  55.     move.w    \2,int_in
  56.     aes    15
  57.     endm
  58.  
  59. appl_exit    macro
  60.     aes    19
  61.     endm
  62.  
  63. evnt_keybd    macro
  64.     aes    20
  65.     endm
  66.  
  67. evnt_button    macro    clicks,mask,state
  68.     move.w    \1,int_in
  69.     move.w    \2,int_in+2
  70.     move.w    \3,int_in+4
  71.     aes    21
  72.     endm
  73.  
  74. evnt_mouse    macro    flags,x,y,w,h
  75.     move.w    \1,int_in
  76.     move.w    \2,int_in+2
  77.     move.w    \3,int_in+4
  78.     move.w    \4,int_in+6
  79.     move.w    \5,int_in+8
  80.     aes    22
  81.     endm
  82.  
  83. evnt_mesag    macro    buffer
  84.     move.l    \1,addr_in
  85.     aes    23
  86.     endm
  87.  
  88. evnt_timer    macro    longcount
  89.     move.l    \1,d0
  90.     swap    d0
  91.     move.l    d0,int_in
  92.     aes    24
  93.     endm
  94.  
  95. evnt_multi    macro    flags[,lots]
  96.     move.w    \1,int_in
  97.     IFNC    '\2',''
  98.     move.w    \2,int_in+2
  99.     ENDC
  100.     IFNC    '\3',''
  101.     move.w    \3,int_in+4
  102.     ENDC
  103.     IFNC    '\4',''
  104.     move.w    \4,int_in+6
  105.     ENDC
  106.     IFNC    '\5',''
  107.     move.w    \5,int_in+8
  108.     ENDC
  109.     IFNC    '\6',''
  110.     move.w    \6,int_in+10
  111.     ENDC
  112.     IFNC    '\7',''
  113.     move.w    \7,int_in+12
  114.     ENDC
  115.     IFNC    '\8',''
  116.     move.w    \8,int_in+14
  117.     ENDC
  118.     IFNC    '\9',''
  119.     move.w    \9,int_in+16
  120.     ENDC
  121.     IFNC    '\A',''
  122.     move.w    \A,int_in+18
  123.     ENDC
  124.     IFNC    '\B',''
  125.     move.w    \B,int_in+20
  126.     ENDC
  127.     IFNC    '\C',''
  128.     move.w    \C,int_in+22
  129.     ENDC
  130.     IFNC    '\D',''
  131.     move.w    \D,int_in+24
  132.     ENDC
  133.     IFNC    '\E',''
  134.     move.w    \E,int_in+26
  135.     ENDC
  136.     IFNC    '\F',''
  137.     move.l    \F,addr_in
  138.     ENDC
  139.     IFNC    '\G',''
  140.     move.l    \G,d0
  141.     swap    d0
  142.     move.l    d0,int_in+28
  143.     ENDC
  144.     aes    25
  145.     endm
  146.  
  147. evnt_dclick    macro    new,getset
  148.     move.w    \1,int_in
  149.     move.w    \2,int_in+2
  150.     aes    26
  151.     endm
  152.  
  153. menu_bar    macro    tree,show
  154.     move.l    \1,addr_in
  155.     move.w    \2,int_in
  156.     aes    30
  157.     endm
  158.  
  159. menu_icheck    macro    tree,item,check
  160.     move.l    \1,addr_in
  161.     move.w    \2,int_in
  162.     move.w    \3,int_in+2
  163.     aes    31
  164.     endm
  165.  
  166. menu_ienable    macro    tree,item,enable
  167.     move.l    \1,addr_in
  168.     move.w    \2,int_in
  169.     move.w    \3,int_in+2
  170.     aes    32
  171.     endm
  172.  
  173. menu_tnormal    macro    tree,title,normal
  174.     move.l    \1,addr_in
  175.     move.w    \2,int_in
  176.     move.w    \3,int_in+2
  177.     aes    33
  178.     endm
  179.  
  180. menu_text    macro    tree,item,text
  181.     move.l    \1,addr_in
  182.     move.w    \2,int_in
  183.     move.l    \3,addr_in+4
  184.     aes    34
  185.     endm
  186.  
  187. menu_register    macro    id,string
  188.     move.w    \1,int_in
  189.     move.l    \2,addr_in
  190.     aes    35
  191.     endm
  192.  
  193. objc_add    macro    tree,parent,child
  194.     move.l    \1,addr_in
  195.     move.w    \2,int_in
  196.     move.w    \3,int_in+2
  197.     aes    40
  198.     endm
  199.  
  200. objc_delete    macro    tree,object
  201.     move.l    \1,addr_in
  202.     move.w    \2,int_in
  203.     aes    41
  204.     endm
  205.  
  206. objc_draw    macro    tree,startob,depth,x,y,w,h
  207.     move.l    \1,addr_in
  208.     move.w    \2,int_in
  209.     move.w    \3,int_in+2
  210.     move.w    \4,int_in+4
  211.     move.w    \5,int_in+6
  212.     move.w    \6,int_in+8
  213.     move.w    \7,int_in+10
  214.     aes    42
  215.     endm
  216.  
  217. objc_find    macro    tree,startob,depth,x,y
  218.     move.l    \1,addr_in
  219.     move.w    \2,int_in
  220.     move.w    \3,int_in+2
  221.     move.w    \4,int_in+4
  222.     move.w    \5,int_in+6
  223.     aes    43
  224.     endm
  225.  
  226. objc_offset    macro    tree,object
  227.     move.l    \1,addr_in
  228.     move.w    \2,int_in
  229.     aes    44
  230.     endm
  231.  
  232. objc_order    macro    tree,object,newpos
  233.     move.l    \1,addr_in
  234.     move.w    \2,int_in
  235.     move.w    \3,int_in+2
  236.     aes    45
  237.     endm
  238.  
  239. objc_edit    macro    tree,object,char,idx,kind
  240.     move.l    \1,addr_in
  241.     move.w    \2,int_in
  242.     move.w    \3,int_in+2
  243.     move.w    \4,int_in+4
  244.     move.w    \5,int_in+6
  245.     aes    46
  246.     endm
  247.  
  248. objc_change    macro    tree,object,x,y,w,h,new,redraw
  249.     move.l    \1,addr_in
  250.     move.w    \2,int_in
  251.     clr.w    int_in+2
  252.     move.w    \3,int_in+4
  253.     move.w    \4,int_in+6
  254.     move.w    \5,int_in+8
  255.     move.w    \6,int_in+10
  256.     move.w    \7,int_in+12
  257.     move.w    \8,int_in+14
  258.     aes    47
  259.     endm
  260.  
  261. form_do    macro    tree,startob
  262.     move.l    \1,addr_in
  263.     move.w    \2,int_in
  264.     aes    50
  265.     endm
  266.  
  267. form_dial    macro    flag,x,y,w,h,x2,y2,w2,h2
  268.     move.w    \1,int_in
  269.     move.w    \2,int_in+2
  270.     move.w    \3,int_in+4
  271.     move.w    \4,int_in+6
  272.     move.w    \5,int_in+8
  273.     move.w    \6,int_in+10
  274.     move.w    \7,int_in+12
  275.     move.w    \8,int_in+14
  276.     move.w    \9,int_in+16
  277.     aes    51
  278.     endm
  279.  
  280. form_alert    macro    button,string
  281.     move.w    \1,int_in
  282.     move.l    \2,addr_in
  283.     aes    52
  284.     endm
  285.  
  286. form_error    macro    errnum
  287.     move.w    \1,int_in
  288.     aes    53
  289.     endm
  290.  
  291. form_center    macro    tree
  292.     move.l    \1,addr_in
  293.     aes    54
  294.     endm
  295.  
  296. form_keybd    macro    form,obj,nxt_obj,thechar
  297.     move.l    \1,addr_in
  298.     move.w    \2,int_in
  299.     move.w    \3,int_in+2
  300.     move.w    \4,int_in+4
  301.     aes    55
  302.     endm
  303.  
  304. form_button    macro    tree,object,clks
  305.     move.l    \1,addr_in
  306.     move.w    \2,int_in
  307.     move.w    \3,int_in+2
  308.     aes    56
  309.     endm
  310.  
  311. graf_rubberbox    macro    x,y,w,h
  312.     move.w    \1,int_in
  313.     move.w    \2,int_in+2
  314.     move.w    \3,int_in+4
  315.     move.w    \4,int_in+6
  316.     aes    70
  317.     endm
  318.     
  319. graf_dragbox    macro    w,h,x,y,bx,bh,bw,bh
  320.     move.w    \1,int_in
  321.     move.w    \2,int_in+2
  322.     move.w    \3,int_in+4
  323.     move.w    \4,int_in+6
  324.     move.w    \5,int_in+8
  325.     move.w    \6,int_in+10
  326.     move.w    \7,int_in+12
  327.     move.w    \8,int_in+14
  328.     aes    71
  329.     endm
  330.  
  331. graf_movebox    macro    w,h,x,y,dx,dy
  332.     move.w    \1,int_in
  333.     move.w    \2,int_in+2
  334.     move.w    \3,int_in+4
  335.     move.w    \4,int_in+6
  336.     move.w    \5,int_in+8
  337.     move.w    \6,int_in+10
  338.     aes    72
  339.     endm
  340.  
  341. graf_growbox    macro    x,y,w,h,fx,fy,fw,fh
  342.     move.w    \1,int_in
  343.     move.w    \2,int_in+2
  344.     move.w    \3,int_in+4
  345.     move.w    \4,int_in+6
  346.     move.w    \5,int_in+8
  347.     move.w    \6,int_in+10
  348.     move.w    \7,int_in+12
  349.     move.w    \8,int_in+14
  350.     aes    73
  351.     endm
  352.  
  353. graf_shrinkbox    macro    x,y,w,h,sx,sy,sw,sh
  354.     move.w    \1,int_in
  355.     move.w    \2,int_in+2
  356.     move.w    \3,int_in+4
  357.     move.w    \4,int_in+6
  358.     move.w    \5,int_in+8
  359.     move.w    \6,int_in+10
  360.     move.w    \7,int_in+12
  361.     move.w    \8,int_in+14
  362.     aes    74
  363.     endm
  364.  
  365. graf_watchbox    macro    tree,object,instate,outstate
  366.     clr.w    int_in
  367.     move.l    \1,addr_in
  368.     move.w    \2,int_in+2
  369.     move.w    \3,int_in+4
  370.     move.w    \4,int_in+6
  371.     aes    75
  372.     endm
  373.  
  374. graf_slidebox    macro    tree,parent,obj,vh
  375.     move.l    \1,addr_in
  376.     move.w    \2,int_in
  377.     move.w    \3,int_in+2
  378.     move.w    \4,int_in+4
  379.     aes    76
  380.     endm
  381.  
  382. graf_handle    macro
  383.     aes    77
  384.     endm
  385.  
  386. graf_mouse    macro    num<,addr>
  387.     move.w    \1,int_in
  388.     IFNC    '\2',''
  389.     move.l    \2,addr_in
  390.     ENDC
  391.     aes    78
  392.     endm
  393.  
  394. graf_mkstate    macro
  395.     aes    79
  396.     endm
  397.  
  398. scrp_read    macro    scrap
  399.     move.l    \1,addr_in
  400.     aes    80
  401.     endm
  402.  
  403. scrp_write    macro    scrap
  404.     move.l    \1,addr_in
  405.     aes    81
  406.     endm
  407.  
  408. fsel_input    macro    path,filename
  409.     move.l    \1,addr_in
  410.     move.l    \2,addr_in+4
  411.     aes    90
  412.     endm
  413.  
  414. fsel_exinput    macro    path,filename,label
  415.     move.l    \1,addr_in
  416.     move.l    \2,addr_in+4
  417.     move.l    \3,addr_in+8        needs bigger addr_in than before!
  418.     aes    91
  419.     endm
  420.     
  421. wind_create    macro    kind,x,y,w,h
  422.     move.w    \1,int_in
  423.     move.w    \2,int_in+2
  424.     move.w    \3,int_in+4
  425.     move.w    \4,int_in+6
  426.     move.w    \5,int_in+8
  427.     aes    100
  428.     endm
  429.  
  430. wind_open    macro    handle,x,y,w,h
  431.     move.w    \1,int_in
  432.     move.w    \2,int_in+2
  433.     move.w    \3,int_in+4
  434.     move.w    \4,int_in+6
  435.     move.w    \5,int_in+8
  436.     aes    101
  437.     endm
  438.  
  439. wind_close    macro    handle
  440.     move.w    \1,int_in
  441.     aes    102
  442.     endm
  443.  
  444. wind_delete    macro    handle
  445.     move.w    \1,int_in
  446.     aes    103
  447.     endm
  448.  
  449. wind_get    macro    handle,field
  450.     move.w    \1,int_in
  451.     move.w    \2,int_in+2
  452.     aes    104
  453.     endm
  454.  
  455. wind_set    macro    handle,field
  456.     move.w    \1,int_in
  457.     move.w    \2,int_in+2
  458.     aes    105
  459.     endm
  460.  
  461. wind_find    macro    x,y
  462.     move.w    \1,int_in
  463.     move.w    \2,int_in+2
  464.     aes    106
  465.     endm
  466.  
  467. wind_update    macro    begend
  468.     move.w    \1,int_in
  469.     aes    107
  470.     endm
  471.  
  472. wind_calc    macro    type,kind,inx,iny,inw,inh
  473.     move.w    \1,int_in
  474.     move.w    \2,int_in+2
  475.     move.w    \3,int_in+4
  476.     move.w    \4,int_in+6
  477.     move.w    \5,int_in+8
  478.     move.w    \6,int_in+10
  479.     aes    108
  480.     endm
  481.  
  482. wind_new    macro
  483.     aes    109
  484.     endm
  485.  
  486. rsrc_load    macro    name
  487.     move.l    \1,addr_in
  488.     aes    110
  489.     endm
  490.  
  491. rsrc_free    macro
  492.     aes    111
  493.     endm
  494.  
  495. rsrc_gaddr    macro    type,index
  496.     move.w    \1,int_in
  497.     move.w    \2,int_in+2
  498.     move.l    #112<<16+2,control
  499.     move.l    #1<<16,control+4
  500.     move.w    #1,control+8        unique!
  501.     move.l    #aes_params,d1
  502.     move.w    #200,d0
  503.     trap    #2
  504.     move.w    int_out,d0
  505.     endm
  506.  
  507. rsrc_saddr    macro    type,index,saddr
  508.     move.w    \1,int_in
  509.     move.w    \2,int_in+2
  510.     move.l    \3,addr_in
  511.     aes    113
  512.     endm
  513.  
  514. rsrc_obfix    macro    tree,object
  515.     move.l    \1,addr_in
  516.     move.w    \2,int_in
  517.     aes    114
  518.     endm
  519.  
  520. shel_read    macro    command,shell
  521.     move.l    \1,addr_in
  522.     move.l    \2,addr_in+4
  523.     aes    120
  524.     endm
  525.  
  526. shel_write    macro    doex,sgr,scr,cmd,shell
  527.     move.w    \1,int_in
  528.     move.w    \2,int_in+2
  529.     move.w    \3,int_in+4
  530.     move.l    \4,addr_in
  531.     move.l    \5,addr_in+4
  532.     aes    121
  533.     endm
  534.  
  535. shel_get    macro    buffer,length
  536.     move.l    \1,addr_in
  537.     move.w    \2,int_in
  538.     aes    122
  539.     endm
  540.  
  541. shel_put    macro    buffer,length
  542.     move.l    \1,addr_in
  543.     move.w    \2,int_in
  544.     aes    123
  545.     endm
  546.  
  547. shel_find    macro    buffer
  548.     move.l    \1,addr_in
  549.     aes    124
  550.     endm
  551.  
  552. shel_envrn    macro    value,string
  553.     move.l    \1,addr_in
  554.     move.l    \2,addr_in+4
  555.     aes    125
  556.     endm
  557.  
  558.  
  559. *********** END OF AES *************
  560.  
  561.  
  562. *********** VDI MACROS *************
  563.  
  564. * conditional macro definition(!) to call vdi routine
  565.     IFGT    __LK
  566. callvdi    macro    vdiname
  567.     XREF    \1,contrl,contrl1,contrl3
  568.     XREF    intin,ptsin,intout,ptsout,vdi_params
  569.     BSR    \1
  570.     endm
  571.     ELSEIF
  572. callvdi    macro    vdiname
  573.     BSR    \1
  574.     endm
  575.     ENDC
  576. * may need to change BSR above to JSR for large progs
  577.  
  578. v_opnwk    macro
  579.     callvdi    v_opnwk
  580.     endm
  581.  
  582. v_clswk    macro
  583.     callvdi    v_clswk
  584.     endm
  585.  
  586. v_opnvwk    macro
  587.     callvdi    v_opnvwk
  588.     endm
  589.  
  590. v_clsvwk    macro
  591.     callvdi    v_clsvwk
  592.     endm
  593.  
  594. v_clrwk    macro
  595.     callvdi    v_clrwk
  596.     endm
  597.  
  598. v_updwk    macro
  599.     callvdi    v_updwk
  600.     endm
  601.  
  602. vst_load_fonts    macro
  603.     callvdi    vst_load_fonts
  604.     endm
  605.  
  606. vst_unload_fonts    macro
  607.     callvdi    vst_unload_fonts
  608.     endm
  609.  
  610. vs_clip    macro    flag,x1,y1,x2,y2
  611.     move.w    \1,intin
  612.     move.w    \2,ptsin
  613.     move.w    \3,ptsin+2
  614.     move.w    \4,ptsin+4
  615.     move.w    \5,ptsin+6
  616.     callvdi    vs_clip
  617.     endm
  618.  
  619. v_pline    macro    count
  620.     move.w    \1,contrl1
  621.     callvdi    v_pline
  622.     endm
  623.  
  624. v_pmarker    macro    count
  625.     move.w    \1,contrl1
  626.     callvdi    v_pmarker
  627.     endm
  628.  
  629. v_gtext    macro    x,y,string
  630.     move.w    \1,ptsin
  631.     move.w    \2,ptsin+2
  632.     move.l    \3,a0
  633.     callvdi    v_gtext
  634.     endm
  635.  
  636. v_fillarea    macro    count
  637.     move.w    \1,contrl1
  638.     callvdi    v_fillarea
  639.     endm
  640.     
  641. v_contourfill    macro    x,y,index
  642.     move.w    \1,ptsin
  643.     move.w    \2,ptsin+2
  644.     move.w    \3,intin
  645.     callvdi    v_contourfill
  646.     endm
  647.  
  648. vr_recfl    macro    x1,y1,x2,y2
  649.     move.w    \1,ptsin
  650.     move.w    \2,ptsin+2
  651.     move.w    \3,ptsin+4
  652.     move.w    \4,ptsin+6
  653.     callvdi    vr_recfl
  654.     endm
  655.  
  656. v_bar    macro    x1,y1,x2,y2
  657.     move.w    \1,ptsin
  658.     move.w    \2,ptsin+2
  659.     move.w    \3,ptsin+4
  660.     move.w    \4,ptsin+6
  661.     callvdi    v_bar
  662.     endm
  663.  
  664. v_arc    macro    x,y,rad,start,end
  665.     move.w    \1,ptsin
  666.     move.w    \2,ptsin+2
  667.     move.w    \3,ptsin+12
  668.     moev.w    \4,intin
  669.     move.w    \5,intin+2
  670.     callvdi    v_arc
  671.     endm
  672.  
  673. v_pieslice    macro    x,y,rad,start,end
  674.     move.w    \1,ptsin
  675.     move.w    \2,ptsin+2
  676.     move.w    \3,ptsin+12
  677.     moev.w    \4,intin
  678.     move.w    \5,intin+2
  679.     callvdi    v_pieslice
  680.     endm
  681.  
  682. v_circle    macro    x,y,rad
  683.     move.w    \1,ptsin
  684.     move.w    \2,ptsin+2
  685.     move.w    \3,ptsin+8
  686.     callvdi    v_circle
  687.     endm
  688.  
  689. v_ellarc    macro    x,y,xr,yr,start,end
  690.     move.w    \1,ptsin
  691.     move.w    \2,ptsin+2
  692.     move.w    \3,ptsin+4
  693.     move.w    \4,ptsin+6
  694.     move.w    \5,intin
  695.     move.w    \6,intin+2
  696.     callvdi    v_ellarc
  697.     endm
  698.  
  699. v_ellpie    macro    x,y,xr,yr,start,end
  700.     move.w    \1,ptsin
  701.     move.w    \2,ptsin+2
  702.     move.w    \3,ptsin+4
  703.     move.w    \4,ptsin+6
  704.     move.w    \5,intin
  705.     move.w    \6,intin+2
  706.     callvdi    v_ellpie
  707.     endm
  708.  
  709. v_ellipse    macro    x,y,xr,yr
  710.     move.w    \1,ptsin
  711.     move.w    \2,ptsin+2
  712.     move.w    \3,ptsin+4
  713.     move.w    \4,ptsin+6
  714.     callvdi    v_ellipse
  715.     endm
  716.  
  717. v_rbox    macro    x1,y1,x2,y2
  718.     move.w    \1,ptsin
  719.     move.w    \2,ptsin+2
  720.     move.w    \3,ptsin+4
  721.     move.w    \4,ptsin+6
  722.     callvdi    v_rbox
  723.     endm
  724.  
  725. v_rfbox    macro    x1,y1,x2,y2
  726.     move.w    \1,ptsin
  727.     move.w    \2,ptsin+2
  728.     move.w    \3,ptsin+4
  729.     move.w    \4,ptsin+6
  730.     callvdi    v_rfbox
  731.     endm
  732.  
  733. v_justified    macro    x,y,string,length,ws,cs
  734.     move.w    \1,ptsin
  735.     move.w    \2,ptsin+2
  736.     move.w    \4,ptsin+4
  737.     move.w    \5,intin
  738.     move.w    \6,intin+2
  739.     move.l    \3,a0
  740.     callvdi    v_justified
  741.     endm
  742.  
  743. vswr_mode    macro    mode
  744.     move.w    \1,intin
  745.     callvdi    vswr_mode
  746.     endm
  747.  
  748. vs_color    macro    index,read,green,blue
  749.     move.w    \1,intin
  750.     move.w    \2,intin+2
  751.     move.w    \3,intin+4
  752.     move.w    \4,intin+6
  753.     callvdi    vs_color
  754.     endm
  755.  
  756. vsl_type    macro    style
  757.     move.w    \1,intin
  758.     callvdi    vsl_type
  759.     endm
  760.  
  761. vsl_udsty    macro    pattern
  762.     move.w    \1,intin
  763.     callvdi    vsl_udsty
  764.     endm
  765.  
  766. vsl_width    macro    width
  767.     move.w    \1,ptsin
  768.     callvdi    vsl_width
  769.     endm
  770.  
  771. vsl_color    macro    index
  772.     move.w    \1,intin
  773.     callvdi    vsl_color
  774.     endm
  775.  
  776. vsl_ends    macro    beg,end
  777.     move.w    \1,intin
  778.     move.w    \2,intin+2
  779.     callvdi    vsl_ends
  780.     endm
  781.  
  782. vsm_type    macro    symbol
  783.     move.w    \1,intin
  784.     callvdi    vsm_type
  785.     endm
  786.  
  787. vsm_height    macro    height
  788.     move.w    \1,ptsin+2
  789.     callvdi    vsm_height
  790.     endm
  791.  
  792. vsm_color    macro    index
  793.     move.w    \1,intin
  794.     callvdi    vsm_color
  795.     endm
  796.  
  797. vst_height    macro    height
  798.     move.w    \1,ptsin+2
  799.     callvdi    vst_height
  800.     endm
  801.  
  802. vst_point    macro    point
  803.     move.w    \1,intin
  804.     callvdi    vst_point
  805.     endm
  806.  
  807. vst_rotation    macro    angle
  808.     move.w    \1,intin
  809.     callvdi    vst_rotation
  810.     endm
  811.  
  812. vst_font    macro    font
  813.     move.w    \1,intin
  814.     callvdi    vst_font
  815.     endm
  816.  
  817. vst_color    macro    index
  818.     move.w    \1,intin
  819.     callvdi    vst_color
  820.     endm
  821.  
  822. vst_effects    macro    effect
  823.     move.w    \1,intin
  824.     callvdi    vst_effects
  825.     endm
  826.  
  827. vst_alignment    macro    hor,vert
  828.     move.w    \1,intin
  829.     move.w    \2,intin+2
  830.     callvdi    vst_alignment
  831.     endm
  832.  
  833. vsf_interior    macro    style
  834.     move.w    \1,intin
  835.     callvdi    vsf_interior
  836.     endm
  837.  
  838. vsf_style    macro    index
  839.     move.w    \1,intin
  840.     callvdi    vsf_style
  841.     endm
  842.  
  843. vsf_color    macro    index
  844.     move.w    \1,intin
  845.     callvdi    vsf_color
  846.     endm
  847.  
  848. vsf_perimeter    macro    vis
  849.     move.w    \1,intin
  850.     callvdi    vsf_perimeter
  851.     endm
  852.  
  853. vsf_updat    macro
  854.     callvdi    vsf_updat
  855.     endm
  856.  
  857. vro_cpyfm    macro    mode,sourceMFDB,destMFDB
  858.     move.w    \1,intin
  859.     move.l    \2,contrl+14
  860.     move.l    \3,contrl+18
  861.     callvdi    vro_cpyfm
  862.     endm
  863.  
  864. vrt_cpyfm    macro    mode,sourceMFDB,destMFDB,index1,index2
  865.     move.w    \1,intin
  866.     move.l    \2,contrl+14
  867.     move.l    \3,contrl+18
  868.     move.w    \4,intin+2
  869.     move.w    \5,intin+4
  870.     callvdi    vrt_cpyfm
  871.     endm
  872.  
  873. vr_trnfm    macro    source,dest
  874.     move.l    \1,contrl+14
  875.     move.l    \2,contrl+18
  876.     callvdi    vr_trnfm
  877.     endm
  878.  
  879. v_get_pixel    macro    x,y
  880.     move.w    \1,ptsin
  881.     move.w    \2,ptsin+2
  882.     callvdi    v_get_pixel
  883.     endm
  884.  
  885. vex_timv    macro    newtimer
  886.     move.l    \1,contrl+14
  887.     callvdi    vex_timv
  888.     endm
  889.  
  890. v_show_c    macro    reset
  891.     move.w    \1,intin
  892.     callvdi    v_show_c
  893.     endm
  894.  
  895. v_hide_c    macro
  896.     callvdi    v_hide_c
  897.     endm
  898.  
  899. vq_mouse    macro
  900.     callvdi    vq_mouse
  901.     endm
  902.  
  903. vex_butv    macro    newxbut
  904.     move.l    \1,contrl+14
  905.     callvdi    vex_butv
  906.     endm
  907.  
  908. vex_motv    macro    newmov
  909.     move.l    \1,contrl+14
  910.     callvdi    vex_motv
  911.     endm
  912.  
  913. vex_curv    macro    newcursor
  914.     move.l    \1,contrl+14
  915.     callvdi    vex_curv
  916.     endm
  917.  
  918. vq_key_s    macro
  919.     callvdi    vq_key_s
  920.     endm
  921.  
  922. vq_extnd    macro    flag
  923.     move.w    \1,intin
  924.     callvdi    vq_extnd
  925.     endm
  926.  
  927. vq_color    macro    index,flag
  928.     move.w    \1,intin
  929.     move.w    \2,intin+2
  930.     callvdi    vq_color
  931.     endm
  932.  
  933. vql_attributes    macro
  934.     callvdi    vql_attributes
  935.     endm
  936.  
  937. vqm_attributes    macro
  938.     callvdi    vqm_attributes
  939.     endm
  940.  
  941. vqf_attributes    macro
  942.     callvdi    vqf_attributes
  943.     endm
  944.  
  945. vqt_attributes    macro
  946.     callvdi    vqt_attributes
  947.     endm
  948.  
  949. vqt_extent    macro    string
  950.     move.l    \1,a0
  951.     callvdi    vqt_extent
  952.     endm
  953.  
  954. vqt_width    macro    char
  955.     move.w    \1,intin
  956.     callvdi    vqt_width
  957.     endm
  958.  
  959. vqt_name    macro    number
  960.     move.w    \1,intin
  961.     callvdi    vqt_name
  962.     endm
  963.  
  964. vqt_fontinfo    macro
  965.     callvdi    vqt_fontinfo
  966.     endm
  967.  
  968. *********** END OF VDI *****************
  969.