home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Assempro 1987.07.12 / Lowe_Assempro_1987_07_12.img / TOS / VDI.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  17.2 KB  |  1,110 lines
  1. ;***************  VDI  ***************
  2.  NOLIST
  3. SCF_VDI:MACRO %\1,%\2,%\3,$\4
  4.  LEA CONTRL,A3
  5.  MOVE #\1,(A3)
  6.  MOVE #\2,2(A3)
  7.  MOVE #\3,6(A3)
  8.  MOVE \4,12(A3)
  9.  ENDM
  10. VDI:MACRO
  11.  MOVE.L VDIPTR,D1
  12.  MOVE #$73,D0
  13.  TRAP #2
  14.  ENDM
  15. V_OPNWK:MACRO $\1,$\2,$\3
  16.  SCF_VDI 1,0,11,GR_HANDLE
  17.  LEA INTIN,A4
  18.  LEA \1,A3
  19.  MOVEQ #10,D3
  20.  MOVE (A3)+,(A4)+
  21.  DBRA D3,#-4
  22.  VDI
  23.  LEA \3,A4
  24.  LEA INTOUT,A3
  25.  MOVEQ #44,D3
  26.  MOVE (A3)+,(A4)+
  27.  DBRA D3,#-4
  28.  LEA PTSOUT,A3
  29.  MOVEQ #11,D3
  30.  MOVE (A3)+,(A4)+
  31.  DBRA D3,#-4
  32.  LEA \2,A3
  33.  MOVE CONTRL+12,(A3)
  34.  ENDM
  35. V_CLSWK:MACRO $\1
  36.  SCF_VDI 2,0,0,\1
  37.  VDI
  38.  ENDM
  39. V_OPNVWK:MACRO $\1,$\2,$\3
  40.  SCF_VDI 100,0,11,GR_HANDLE
  41.  LEA INTIN,A4
  42.  LEA \1,A3
  43.  MOVEQ #10,D3
  44.  MOVE (A3)+,(A4)+
  45.  DBRA D3,#-4
  46.  VDI
  47.  LEA \3,A4
  48.  LEA INTOUT,A3
  49.  MOVEQ #44,D3
  50.  MOVE (A3)+,(A4)+
  51.  DBRA D3,#-4
  52.  LEA PTSOUT,A3
  53.  MOVEQ #11,D3
  54.  MOVE (A3)+,(A4)+
  55.  DBRA D3,#-4
  56.  LEA \2,A3
  57.  MOVE CONTRL+12,(A3)
  58.  ENDM
  59. V_CLSVWK:MACRO $\1
  60.  SCF_VDI 101,0,0,\1
  61.  VDI
  62.  ENDM
  63. V_CLRWK:MACRO $\1
  64.  SCF_VDI 3,0,0,\1
  65.  VDI
  66.  ENDM
  67. V_UPDWK:MACRO $\1
  68.  SCF_VDI 4,0,0,\1
  69.  VDI
  70.  ENDM
  71. VST_LOAD_FONTS:MACRO $\1,$\2,$\3
  72.  SCF_VDI 119,0,1,\1
  73.  LEA INTIN,A3
  74.  MOVE \2,(A3)
  75.  VDI
  76.  MOVE INTOUT,\3
  77.  ENDM
  78. VST_UNLOAD_FONTS:MACRO $\1,$\2
  79.  SCF_VDI 120,0,1,\1
  80.  LEA INTIN,A3
  81.  MOVE \2,(A3)
  82.  VDI
  83.  ENDM
  84. VS_CLIP:MACRO $\1,$\2,$\3
  85.  SCF_VDI 129,2,1,\1
  86.  LEA INTIN,A3
  87.  MOVE \2,(A3)+
  88.  LEA PTSIN,A3
  89.  LEA \3,A4
  90.  MOVE.L (A4)+,(A3)+
  91.  MOVE.L (A4),(A3)
  92.  VDI
  93.  ENDM
  94. V_PLINE:MACRO $\1,$\2,$\3
  95.  LEA CONTRL,A3
  96.  MOVE #6,(A3)+
  97.  MOVE \2,(A3)
  98.  MOVE #0,4(A3)
  99.  MOVE \1,10(A3)
  100.  LEA PTSIN,A3
  101.  LEA \3,A4
  102.  MOVE \2,D3
  103.  MOVEQ #127,D4
  104.  MOVE.L (A4)+,(A3)+
  105.  SUBQ #1,D3
  106.  DBLE D4,#-6
  107.  VDI
  108.  ENDM
  109. V_PMARKER:MACRO $\1,$\2,$\3
  110.  LEA CONTRL,A3
  111.  MOVE #7,(A3)+
  112.  MOVE \2,(A3)
  113.  MOVE #0,4(A3)
  114.  MOVE \1,10(A3)
  115.  LEA PTSIN,A3
  116.  LEA \3,A4
  117.  MOVE \2,D3
  118.  MOVEQ #127,D4
  119.  MOVE.L (A4)+,(A3)+
  120.  SUBQ #1,D3
  121.  DBLE D4,#-6
  122.  VDI
  123.  ENDM
  124. V_GTEXT:MACRO $\1,$\2,$\3,$\4
  125.  SCF_VDI 8,1,127,\1
  126.  LEA INTIN,A3
  127.  LEA \4,A4
  128.  MOVEQ #126,D3
  129.  CLR D4
  130.  MOVE.B (A4)+,D4
  131.  MOVE D4,(A3)+
  132.  DBEQ D3,#-6
  133.  LEA CONTRL+6,A3
  134.  SUB D3,(A3) ;Länge
  135.  LEA PTSIN,A3
  136.  MOVE \2,(A3)+
  137.  MOVE \3,(A3)
  138.  VDI
  139.  ENDM
  140. V_FILLAREA:MACRO $\1,$\2,$\3
  141.  LEA CONTRL,A3
  142.  MOVE #9,(A3)+
  143.  MOVE \2,(A3)
  144.  MOVE #0,4(A3)
  145.  MOVE \1,10(A3)
  146.  LEA PTSIN,A3
  147.  LEA \3,A4
  148.  MOVE \2,D3
  149.  MOVEQ #127,D4
  150.  MOVE.L (A4)+,(A3)+
  151.  SUBQ #1,D3
  152.  DBLE D4,#-6
  153.  VDI
  154.  ENDM
  155. V_CELLARRAY:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  156.  LEA CONTRL,A3
  157.  MOVE #10,(A3)+
  158.  MOVE #2,(A3)+
  159.  ADDQ.L #8,A3
  160.  MOVE \1,(A3)+
  161.  MOVE \3,(A3)+
  162.  MOVE \4,(A3)+
  163.  MOVE \5,(A3)+
  164.  MOVE \6,(A3)
  165.  MOVE -2(A3),D3
  166.  MULU -4(A3),D3
  167.  MOVE D3,-14(A3)
  168.  LEA INTIN,A3
  169.  LEA \7,A4
  170.  MOVE (A4)+,(A3)+
  171.  DBRA D3,#-4
  172.  LEA PTSIN,A3
  173.  LEA \2,A4
  174.  MOVE.L (A4)+,(A3)+
  175.  MOVE.L (A4),(A3)
  176.  VDI
  177.  ENDM
  178. V_CONTOURFILL:MACRO $\1,$\2,$\3,$\4
  179.  SCF_VDI 103,1,1,\1
  180.  LEA INTIN,A3
  181.  MOVE \4,(A3)
  182.  LEA PTSIN,A3
  183.  MOVE \2,(A3)+
  184.  MOVE \3,(A3)
  185.  VDI
  186.  ENDM
  187. VR_RECFL:MACRO $\1,$\2
  188.  SCF_VDI 114,2,0,\1
  189.  LEA PTSIN,A3
  190.  LEA \2,A4
  191.  MOVE.L (A4)+,(A3)+
  192.  MOVE.L (A4),(A3)
  193.  VDI
  194.  ENDM
  195. V_BAR:MACRO $\1,$\2
  196.  SCF_VDI 11,2,0,\1
  197.  MOVE #1,10(A3)
  198.  LEA PTSIN,A3
  199.  LEA \2,A4
  200.  MOVE.L (A4)+,(A3)+
  201.  MOVE.L (A4),(A3)
  202.  VDI
  203.  ENDM
  204. V_ARC:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  205.  SCF_VDI 11,4,2,\1
  206.  MOVE #2,10(A3)
  207.  LEA INTIN,A3
  208.  MOVE \5,(A3)+
  209.  MOVE \6,(A3)
  210.  LEA PTSIN,A3
  211.  MOVE \2,(A3)+
  212.  MOVE \3,(A3)+
  213.  CLR.L (A3)+
  214.  CLR.L (A3)+
  215.  MOVE \4,(A3)+
  216.  CLR (A3)
  217.  VDI
  218.  ENDM
  219. V_PIESLICE:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  220.  SCF_VDI 11,4,2,\1
  221.  MOVE #3,10(A3)
  222.  LEA INTIN,A3
  223.  MOVE \5,(A3)+
  224.  MOVE \6,(A3)
  225.  LEA PTSIN,A3
  226.  MOVE \2,(A3)+
  227.  MOVE \3,(A3)+
  228.  CLR.L (A3)+
  229.  CLR.L (A3)+
  230.  MOVE \4,(A3)+
  231.  CLR (A3)
  232.  VDI
  233.  ENDM
  234. V_CIRCLE:MACRO $\1,$\2,$\3,$\4
  235.  SCF_VDI 11,3,0,\1
  236.  MOVE #4,10(A3)
  237.  LEA PTSIN,A3
  238.  MOVE \2,(A3)+
  239.  MOVE \3,(A3)+
  240.  CLR.L (A3)+
  241.  MOVE \4,(A3)+
  242.  CLR (A3)
  243.  VDI
  244.  ENDM
  245. V_ELLARC:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  246.  SCF_VDI 11,2,2,\1
  247.  MOVE #6,10(A3)
  248.  LEA INTIN,A3
  249.  MOVE \6,(A3)+
  250.  MOVE \7,(A3)
  251.  LEA PTSIN,A3
  252.  MOVE \2,(A3)+
  253.  MOVE \3,(A3)+
  254.  MOVE \4,(A3)+
  255.  MOVE \5,(A3)
  256.  VDI
  257.  ENDM
  258. V_ELLPIE:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  259.  SCF_VDI 11,2,2,\1
  260.  MOVE #7,10(A3)
  261.  LEA INTIN,A3
  262.  MOVE \6,(A3)+
  263.  MOVE \7,(A3)
  264.  LEA PTSIN,A3
  265.  MOVE \2,(A3)+
  266.  MOVE \3,(A3)+
  267.  MOVE \4,(A3)+
  268.  MOVE \5,(A3)
  269.  VDI
  270.  ENDM
  271. V_ELLIPSE:MACRO $\1,$\2,$\3,$\4,$\5
  272.  SCF_VDI 11,2,0,\1
  273.  MOVE #5,10(A3)
  274.  LEA PTSIN,A3
  275.  MOVE \2,(A3)+
  276.  MOVE \3,(A3)+
  277.  MOVE \4,(A3)+
  278.  MOVE \5,(A3)
  279.  VDI
  280.  ENDM
  281. V_RBOX:MACRO $\1,$\2
  282.  SCF_VDI 11,2,0,\1
  283.  MOVE #8,10(A3)
  284.  LEA PTSIN,A3
  285.  LEA \2,A4
  286.  MOVE.L (A4)+,(A3)+
  287.  MOVE.L (A4),(A3)
  288.  VDI
  289.  ENDM
  290. V_RFBOX:MACRO $\1,$\2
  291.  SCF_VDI 11,2,0,\1
  292.  MOVE #9,10(A3)
  293.  LEA PTSIN,A3
  294.  LEA \2,A4
  295.  MOVE.L (A4)+,(A3)+
  296.  MOVE.L (A4),(A3)
  297.  VDI
  298.  ENDM
  299. V_JUSTIFIED:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  300.  SCF_VDI 11,2,129,\1
  301.  LEA INTIN,A3
  302.  MOVE \6,(A3)+
  303.  MOVE \7,(A3)+
  304.  LEA \4,A4
  305.  MOVEQ #126,D3
  306.  CLR D4
  307.  MOVE.B (A4)+,D4
  308.  MOVE D4,(A3)+
  309.  DBEQ D3,#-6
  310.  LEA CONTRL+6,A3
  311.  SUB D3,(A3) ;Länge
  312.  LEA PTSIN,A3
  313.  MOVE \2,(A3)+
  314.  MOVE \3,(A3)+
  315.  MOVE \5,(A3)+
  316.  CLR (A3)
  317.  VDI
  318.  ENDM
  319. VSWR_MODE:MACRO $\1,$\2,$\3
  320.  SCF_VDI 32,0,1,\1
  321.  LEA INTIN,A3
  322.  MOVE \2,(A3)
  323.  VDI
  324.  MOVE INTOUT,\3
  325.  ENDM
  326. VS_COLOR:MACRO $\1,$\2,$\3
  327.  SCF_VDI 14,0,4,\1
  328.  LEA INTIN,A3
  329.  MOVE \2,(A3)+
  330.  LEA \3,A4
  331.  MOVE.L (A4)+,(A3)+
  332.  MOVE (A4),(A3)
  333.  VDI
  334.  ENDM
  335. VSL_COLOR:MACRO $\1,$\2,$\3
  336.  SCF_VDI 17,0,1,\1
  337.  LEA INTIN,A3
  338.  MOVE \2,(A3)
  339.  VDI
  340.  MOVE INTOUT,\3
  341.  ENDM
  342. VSL_TYPE:MACRO $\1,$\2,$\3
  343.  SCF_VDI 15,0,1,\1
  344.  LEA INTIN,A3
  345.  MOVE \2,(A3)
  346.  VDI
  347.  MOVE INTOUT,\3
  348.  ENDM
  349. VSL_UDSTY:MACRO $\1,$\2
  350.  SCF_VDI 113,0,1,\1
  351.  LEA INTIN,A3
  352.  MOVE \2,(A3)
  353.  VDI
  354.  ENDM
  355. VSL_WIDTH:MACRO $\1,$\2,$\3
  356.  SCF_VDI 16,1,0,\1
  357.  LEA PTSIN,A3
  358.  MOVE \2,(A3)+
  359.  CLR (A3)
  360.  VDI
  361.  MOVE PTSOUT,\3
  362.  ENDM
  363. VSL_ENDS:MACRO $\1,$\2,$\3
  364.  SCF_VDI 108,0,2,\1
  365.  LEA INTIN,A3
  366.  MOVE \2,(A3)+
  367.  MOVE \3,(A3)
  368.  VDI
  369.  ENDM
  370. VSM_TYPE:MACRO $\1,$\2,$\3
  371.  SCF_VDI 18,0,1,\1
  372.  LEA INTIN,A3
  373.  MOVE \2,(A3)
  374.  VDI
  375.  MOVE INTOUT,\3
  376.  ENDM
  377. VSM_HEIGHT:MACRO $\1,$\2,$\3
  378.  SCF_VDI 19,1,0,\1
  379.  LEA PTSIN,A3
  380.  CLR (A3)+
  381.  MOVE \2,(A3)
  382.  VDI
  383.  MOVE.L INTOUT,\3
  384.  ENDM
  385. VSM_COLOR:MACRO $\1,$\2,$\3
  386.  SCF_VDI 20,0,1,\1
  387.  LEA INTIN,A3
  388.  MOVE \2,(A3)
  389.  VDI
  390.  MOVE INTOUT,\3
  391.  ENDM
  392. VST_HEIGHT:MACRO $\1,$\2,$\3
  393.  SCF_VDI 12,1,0,\1
  394.  LEA PTSIN,A3
  395.  CLR (A3)+
  396.  MOVE \2,(A3)
  397.  VDI
  398.  LEA PTSOUT,A3
  399.  LEA \3,A4
  400.  MOVE.L (A3)+,(A4)+
  401.  MOVE.L (A3),(A4)
  402.  ENDM
  403. VST_POINT:MACRO $\1,$\2,$\3,$\4
  404.  SCF_VDI 107,0,1,\1
  405.  LEA INTIN,A3
  406.  MOVE \2,(A3)
  407.  VDI
  408.  MOVE INTOUT,\3
  409.  LEA PTSOUT,A3
  410.  LEA \4,A4
  411.  MOVE.L (A3)+,(A4)+
  412.  MOVE.L (A3),(A4)
  413.  ENDM
  414. VST_ROTATION:MACRO $\1,$\2,$\3
  415.  SCF_VDI 13,0,1,\1
  416.  LEA INTIN,A3
  417.  MOVE \2,(A3)
  418.  VDI
  419.  MOVE INTOUT,\3
  420.  ENDM
  421. VST_FONT:MACRO $\1,$\2,$\3
  422.  SCF_VDI 21,0,1,\1
  423.  LEA INTIN,A3
  424.  MOVE \2,(A3)
  425.  VDI
  426.  MOVE INTOUT,\3
  427.  ENDM
  428. VST_EFFECTS:MACRO $\1,$\2,$\3
  429.  SCF_VDI 106,0,1,\1
  430.  LEA INTIN,A3
  431.  MOVE \2,(A3)
  432.  VDI
  433.  MOVE INTOUT,\3
  434.  ENDM
  435. VST_COLOR:MACRO $\1,$\2,$\3
  436.  SCF_VDI 22,0,1,\1
  437.  LEA INTIN,A3
  438.  MOVE \2,(A3)
  439.  VDI
  440.  MOVE INTOUT,\3
  441.  ENDM
  442. VST_ALIGNMENT:MACRO $\1,$\2,$\3,$\4,$\5
  443.  SCF_VDI 39,0,2,\1
  444.  LEA INTIN,A3
  445.  MOVE \2,(A3)+
  446.  MOVE \3,(A3)
  447.  VDI
  448.  MOVE INTOUT,\4
  449.  MOVE INTOUT+2,\5
  450.  ENDM
  451. VSF_INTERIOR:MACRO $\1,$\2,$\3
  452.  SCF_VDI 23,0,1,\1
  453.  LEA INTIN,A3
  454.  MOVE \2,(A3)
  455.  VDI
  456.  MOVE INTOUT,\3
  457.  ENDM
  458. VSF_STYLE:MACRO $\1,$\2,$\3
  459.  SCF_VDI 24,0,1,\1
  460.  LEA INTIN,A3
  461.  MOVE \2,(A3)
  462.  VDI
  463.  MOVE INTOUT,\3
  464.  ENDM
  465. VSF_COLOR:MACRO $\1,$\2,$\3
  466.  SCF_VDI 25,0,1,\1
  467.  LEA INTIN,A3
  468.  MOVE \2,(A3)
  469.  VDI
  470.  MOVE INTOUT,\3
  471.  ENDM
  472. VSF_PERIMETER:MACRO $\1,$\2,$\3
  473.  SCF_VDI 104,0,1,\1
  474.  LEA INTIN,A3
  475.  MOVE \2,(A3)
  476.  VDI
  477.  MOVE INTOUT,\3
  478.  ENDM
  479. VSF_UDPAT:MACRO $\1,$\2,$\3
  480.  LEA CONTRL,A3
  481.  MOVE #112,(A3)
  482.  CLR 2(A3)
  483.  MOVE \3,D3
  484.  LSL #4,D3
  485.  MOVE D3,6(A3)
  486.  MOVE \1,12(A3)
  487.  LEA INTIN,A3
  488.  LEA \2,A4
  489.  MOVEQ #127,D4
  490.  MOVE (A4)+,(A3)+
  491.  SUBQ #1,D3
  492.  DBLE D4,#-6
  493.  VDI
  494.  ENDM
  495. VRO_CPYFORM:MACRO $\1,$\2,$\3,$\4,$\5
  496.  SCF_VDI 109,4,1,\1
  497.  LEA \4,A4
  498.  MOVE.L A4,14(A3)
  499.  LEA \5,A4
  500.  MOVE.L A4,18(A3)
  501.  LEA INTIN,A3
  502.  MOVE \2,(A3)
  503.  LEA PTSIN,A3
  504.  LEA \3,A4
  505.  MOVE.L (A4)+,(A3)+
  506.  MOVE.L (A4)+,(A3)+
  507.  MOVE.L (A4)+,(A3)+
  508.  MOVE.L (A4),(A3)
  509.  VDI
  510.  ENDM
  511. VRO_CPYFM:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  512.  SCF_VDI 121,4,3,\1
  513.  LEA \4,A4
  514.  MOVE.L A4,14(A3)
  515.  LEA \5,A4
  516.  MOVE.L A4,18(A3)
  517.  LEA INTIN,A3
  518.  MOVE \2,(A3)+
  519.  LEA \6,A4
  520.  MOVE.L (A4),(A3)
  521.  LEA PTSIN,A3
  522.  LEA \3,A4
  523.  MOVE.L (A4)+,(A3)+
  524.  MOVE.L (A4)+,(A3)+
  525.  MOVE.L (A4)+,(A3)+
  526.  MOVE.L (A4),(A3)
  527.  VDI
  528.  ENDM
  529. VR_TRNFM:MACRO $\1,$\2,$\3
  530.  SCF_VDI 110,0,0,\1
  531.  LEA \2,A4
  532.  MOVE.L A4,14(A3)
  533.  LEA \3,A4
  534.  MOVE.L A4,18(A3)
  535.  VDI
  536.  ENDM
  537. V_GET_PIXEL:MACRO $\1,$\2,$\3,$\4,$\5
  538.  SCF_VDI 105,1,0,\1
  539.  LEA PTSIN,A3
  540.  MOVE \2,(A3)+
  541.  MOVE \3,(A3)
  542.  VDI
  543.  MOVE INTOUT,\4
  544.  MOVE INTOUT+2,\5
  545.  ENDM
  546. VSIN_MODE:MACRO $\1,$\2,$\3,$\4
  547.  SCF_VDI 33,0,2,\1
  548.  LEA INTIN,A3
  549.  MOVE \2,(A3)+
  550.  MOVE \3,(A3)
  551.  VDI
  552.  MOVE INTOUT,\4
  553.  ENDM
  554. VRQ_LOCATOR:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  555.  SCF_VDI 28,1,0,\1
  556.  LEA PTSIN,A3
  557.  MOVE \2,(A3)+
  558.  MOVE \3,(A3)
  559.  VDI
  560.  MOVE PTSOUT,\4
  561.  MOVE PTSOUT+2,\5
  562.  MOVE INTOUT,\6
  563.  ENDM
  564. VSM_LOCATOR:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  565.  SCF_VDI 28,1,0,\1
  566.  LEA PTSIN,A3
  567.  MOVE \2,(A3)+
  568.  MOVE \3,(A3)
  569.  VDI
  570.  MOVE CONTRL+4,D3
  571.  MOVE CONTRL+8,D4
  572.  ANDI #1,D3
  573.  ANDI #2,D4
  574.  OR D3,D4
  575.  MOVE D4,\4
  576.  MOVE PTSOUT,\5
  577.  MOVE PTSOUT+2,\6
  578.  MOVE INTOUT,\7
  579.  ENDM
  580. VRQ_VALUATOR:MACRO $\1,$\2,$\3,$\4
  581.  SCF_VDI 29,0,1,\1
  582.  LEA INTIN,A3
  583.  MOVE \2,(A3)
  584.  VDI
  585.  MOVE INTOUT,\3
  586.  MOVE INTOUT+2,\4
  587.  ENDM
  588. VSM_VALUATOR:MACRO $\1,$\2,$\3,$\4,$\5
  589.  SCF_VDI 29,0,1,\1
  590.  LEA INTIN,A3
  591.  MOVE \2,(A3)
  592.  VDI
  593.  MOVE CONTRL+8,\5
  594.  MOVE INTOUT,\3
  595.  MOVE INTOUT+2,\4
  596.  ENDM
  597. VRQ_CHOICE:MACRO $\1,$\2,$\3
  598.  SCF_VDI 30,0,1,\1
  599.  LEA INTIN,A3
  600.  MOVE \2,(A3)
  601.  VDI
  602.  MOVE INTOUT,\3
  603.  ENDM
  604. VSM_CHOICE:MACRO $\1,$\2,$\3
  605.  SCF_VDI 30,0,0,\1
  606.  VDI
  607.  MOVE CONTRL+8,\2
  608.  MOVE INTOUT,\3
  609.  ENDM
  610. VRQ_STRING:MACRO $\1,$\2,$\3,$\4,$\5
  611.  SCF_VDI 31,1,2,\1
  612.  LEA INTIN,A3
  613.  MOVE \2,(A3)+
  614.  MOVE \3,(A3)
  615.  LEA PTSIN,A3
  616.  LEA \4,A4
  617.  MOVE.L (A4),(A3)
  618.  VDI
  619.  LEA INTOUT+2,A3
  620.  LEA \5,A4
  621.  MOVE CONTRL+8,D3
  622.  BRA.S #4
  623.  MOVE (A3)+,D4
  624.  MOVE.B D4,(A4)+
  625.  DBRA D3,#-6
  626.  CLR.B (A4)
  627.  ENDM
  628. VSM_STRING:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  629.  SCF_VDI 31,1,2,\1
  630.  LEA INTIN,A3
  631.  MOVE \2,(A3)+
  632.  MOVE \3,(A3)
  633.  LEA PTSIN,A3
  634.  LEA \4,A4
  635.  MOVE.L (A4),(A3)
  636.  VDI
  637.  LEA INTOUT+2,A3
  638.  LEA \6,A4
  639.  MOVE CONTRL+8,D3
  640.  MOVE D3,\5
  641.  BRA.S #4
  642.  MOVE (A3)+,D4
  643.  MOVE.B D4,(A4)+
  644.  DBRA D3,#-6
  645.  CLR.B (A4)
  646.  ENDM
  647. VSC_FORM:MACRO $\1,$\2
  648.  SCF_VDI 111,0,37,\1
  649.  LEA INTIN,A3
  650.  LEA \2,A4
  651.  MOVEQ #36,D3
  652.  MOVE (A4)+,(A3)+
  653.  DBRA D3,#-4
  654.  VDI
  655.  ENDM
  656. VEX_TIME:MACRO $\1,$\2,$\3,$\4
  657.  SCF_VDI 118,0,0,\1
  658.  LEA \2,A4
  659.  MOVE.L A4,14(A3)
  660.  VDI
  661.  MOVE.L CONTRL+18,\3
  662.  MOVE INTOUT,\4
  663.  ENDM
  664. V_SHOW_C:MACRO $\1,$\2
  665.  SCF_VDI 122,0,1,\1
  666.  LEA INTIN,A3
  667.  MOVE \2,(A3)
  668.  VDI
  669.  ENDM
  670. V_HIDE_C:MACRO $\1
  671.  SCF_VDI 123,0,0,\1
  672.  VDI
  673.  ENDM
  674. VQ_MOUSE:MACRO $\1,$\2,$\3,$\4
  675.  SCF_VDI 124,0,0,\1
  676.  VDI
  677.  MOVE INTOUT,\2
  678.  MOVE PTSOUT,\3
  679.  MOVE PTSOUT+2,\4
  680.  ENDM
  681. VEX_BUTV:MACRO $\1,$\2,$\3
  682.  SCF_VDI 125,0,0,\1
  683.  LEA \2,A4
  684.  MOVE.L A4,14(A3)
  685.  VDI
  686.  MOVE.L CONTRL+18,\3
  687.  ENDM
  688. VEX_MOTV:MACRO $\1,$\2,$\3
  689.  SCF_VDI 126,0,0,\1
  690.  LEA \2,A4
  691.  MOVE.L A4,14(A3)
  692.  VDI
  693.  MOVE.L CONTRL+18,\3
  694.  ENDM
  695. VEX_CURV:MACRO $\1,$\2,$\3
  696.  SCF_VDI 127,0,0,\1
  697.  LEA \2,A4
  698.  MOVE.L A4,14(A3)
  699.  VDI
  700.  MOVE.L CONTRL+18,\3
  701.  ENDM
  702. VQ_KEY_S:MACRO $\1,$\2
  703.  SCF_VDI 128,0,0,\1
  704.  VDI
  705.  MOVE INTOUT,\2
  706.  ENDM
  707. VQ_EXTND:MACRO $\1,$\2,$\3
  708.  SCF_VDI 102,0,1,\1
  709.  LEA INTIN,A3
  710.  MOVE \2,(A3)
  711.  VDI
  712.  LEA \3,A4
  713.  LEA INTOUT,A3
  714.  MOVEQ #44,D3
  715.  MOVE (A3)+,(A4)+
  716.  DBRA D3,#-4
  717.  LEA PTSOUT,A3
  718.  MOVEQ #11,D3
  719.  MOVE (A3)+,(A4)+
  720.  DBRA D3,#-4
  721.  ENDM
  722. VQ_COLOR:MACRO $\1,$\2,$\3,$\4
  723.  SCF_VDI 26,0,2,\1
  724.  LEA INTIN,A3
  725.  MOVE \2,(A3)+
  726.  MOVE \3,(A3)
  727.  VDI
  728.  LEA INTOUT+2,A3
  729.  LEA \4,A4
  730.  MOVE.L (A3)+,(A4)+
  731.  MOVE (A3),(A4)
  732.  ENDM
  733. VQL_ATTRIBUTES:MACRO $\1,$\2
  734.  SCF_VDI 35,0,0,\1
  735.  VDI
  736.  LEA INTOUT,A3
  737.  LEA \2,A4
  738.  MOVE.L (A3)+,(A4)+
  739.  MOVE.L (A3)+,(A4)+
  740.  MOVE (A3),(A4)+
  741.  MOVE PTSOUT,(A4)
  742.  ENDM
  743. VQM_ATTRIBUTES:MACRO $\1,$\2
  744.  SCF_VDI 36,0,0,\1
  745.  VDI
  746.  LEA INTOUT,A3
  747.  LEA \2,A4
  748.  MOVE.L (A3)+,(A4)+
  749.  MOVE (A3),(A4)+
  750.  MOVE.L PTSOUT,(A4)
  751.  ENDM
  752. VQF_ATTRIBUTES:MACRO $\1,$\2
  753.  SCF_VDI 37,0,0,\1
  754.  VDI
  755.  LEA INTOUT,A3
  756.  LEA \2,A4
  757.  MOVE.L (A3)+,(A4)+
  758.  MOVE.L (A3)+,(A4)+
  759.  MOVE (A3),(A4)
  760.  ENDM
  761. VQT_ATTRIBUTES:MACRO $\1,$\2
  762.  SCF_VDI 38,0,0,\1
  763.  VDI
  764.  LEA INTOUT,A3
  765.  LEA \2,A4
  766.  MOVE.L (A3)+,(A4)+
  767.  MOVE.L (A3)+,(A4)+
  768.  MOVE.L (A3),(A4)+
  769.  LEA PTSOUT,A3
  770.  MOVE.L (A3)+,(A4)+
  771.  MOVE.L (A3),(A4)
  772.  ENDM
  773. VQT_EXTENT:MACRO $\1,$\2,$\3
  774.  SCF_VDI 116,0,127,\1
  775.  LEA INTIN,A3
  776.  LEA \2,A4
  777.  MOVEQ #126,D3
  778.  CLR D4
  779.  MOVE.B (A4)+,D4
  780.  MOVE D4,(A3)+
  781.  DBEQ D3,#-6
  782.  LEA CONTRL+6,A3
  783.  SUB D3,(A3)
  784.  VDI
  785.  LEA PTSOUT,A3
  786.  LEA \3,A4
  787.  MOVE.L (A3)+,(A4)+
  788.  MOVE.L (A3)+,(A4)+
  789.  MOVE.L (A3)+,(A4)+
  790.  MOVE.L (A3),(A4)
  791.  ENDM
  792. VQT_WIDTH:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  793.  SCF_VDI 117,0,1,\1
  794.  LEA INTIN,A3
  795.  MOVE \2,(A3)
  796.  VDI
  797.  MOVE INTOUT,\3
  798.  LEA PTSOUT,A3
  799.  MOVE (A3),\4
  800.  MOVE 4(A3),\5
  801.  MOVE 8(A3),\6
  802.  ENDM
  803. VQIN_MODE:MACRO $\1,$\2,$\3
  804.  SCF_VDI 115,0,1,\1
  805.  LEA INTIN,A3
  806.  MOVE \2,(A3)
  807.  VDI
  808.  MOVE INTOUT,\3
  809.  ENDM
  810. VQT_NAME:MACRO $\1,$\2,$\3,$\4
  811.  SCF_VDI 130,0,1,\1
  812.  LEA INTIN,A3
  813.  MOVE \2,(A3)
  814.  VDI
  815.  LEA INTOUT,A3
  816.  MOVE (A3)+,\3
  817.  LEA \4,A4
  818.  MOVEQ #31,D3
  819.  MOVE (A3)+,D4
  820.  MOVE.B D4,(A4)+
  821.  DBRA D3,#-6
  822.  ENDM
  823. VQ_CELLARRAY:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7,$\8
  824.  SCF_VDI 27,2,0,\1
  825.  MOVE \3,14(A3)
  826.  MOVE \4,16(A3)
  827.  LEA PTSIN,A3
  828.  LEA \2,A4
  829.  MOVE.L (A4)+,(A3)+
  830.  MOVE.L (A4),(A3)
  831.  VDI
  832.  LEA CONTRL+18,A3
  833.  MOVE (A3)+,\5
  834.  MOVE (A3)+,\6
  835.  MOVE (A3),\7
  836.  LEA INTOUT,A3
  837.  LEA \8,A4
  838.  MOVE CONTRL+8,D3
  839.  MOVE (A3)+,(A4)+
  840.  DBRA D3,#-4
  841.  ENDM
  842. VQT_FONTINFO:MACRO $\1,$\2,$\3,$\4,$\5
  843.  SCF_VDI 131,0,0,\1
  844.  VDI
  845.  MOVE INTOUT,\2
  846.  MOVE INTOUT+2,\3
  847.  LEA PTSOUT,A3
  848.  LEA \4,A4
  849.  MOVE 2(A3),(A4)+
  850.  MOVE 6(A3),(A4)+
  851.  MOVE 10(A3),(A4)+
  852.  MOVE 14(A3),(A4)+
  853.  MOVE 18(A3),(A4)
  854.  MOVE (A3),\5
  855.  LEA \6,A4
  856.  MOVE 4(A3),(A4)+
  857.  MOVE 8(A3),(A4)+
  858.  MOVE 12(A3),(A4)
  859.  ENDM
  860. ESC_VDI:MACRO %\1,%\2,%\3,$\4
  861.  LEA CONTRL,A3
  862.  MOVE #5,(A3)
  863.  MOVE #\1,2(A3)
  864.  MOVE #\2,6(A3)
  865.  MOVE #\3,10(A3)
  866.  MOVE \4,12(A3)
  867.  ENDM
  868. VQ_CHCELLS:MACRO $\1,$\2,$\3
  869.  ESC_VDI 0,0,1,\1
  870.  VDI
  871.  MOVE INTOUT,\2
  872.  MOVE INTOUT+2,\3
  873.  ENDM
  874. V_EXIT_CUR:MACRO $\1
  875.  ESC_VDI 0,0,2,\1
  876.  VDI
  877.  ENDM
  878. V_ENTER_CUR:MACRO $\1
  879.  ESC_VDI 0,0,3,\1
  880.  VDI
  881.  ENDM
  882. V_CURUP:MACRO $\1
  883.  ESC_VDI 0,0,4,\1
  884.  VDI
  885.  ENDM
  886. V_CURDOWN:MACRO $\1
  887.  ESC_VDI 0,0,5,\1
  888.  VDI
  889.  ENDM
  890. V_CURRIGHT:MACRO $\1
  891.  ESC_VDI 0,0,6,\1
  892.  VDI
  893.  ENDM
  894. V_CURLEFT:MACRO $\1
  895.  ESC_VDI 0,0,7,\1
  896.  VDI
  897.  ENDM
  898. V_CURHOME:MACRO $\1
  899.  ESC_VDI 0,0,8,\1
  900.  VDI
  901.  ENDM
  902. V_EEOS:MACRO $\1
  903.  ESC_VDI 0,0,9,\1
  904.  VDI
  905.  ENDM
  906. V_EEOL:MACRO $\1
  907.  ESC_VDI 0,0,10,\1
  908.  VDI
  909.  ENDM
  910. VS_CURADDRESS:MACRO $\1,$\2,$\3
  911.  ESC_VDI 0,2,11,\1
  912.  LEA INTIN,A3
  913.  MOVE \2,(A3)+
  914.  MOVE \3,(A3)
  915.  VDI
  916.  ENDM
  917. V_CURTEXT:MACRO $\1,$\2
  918.  ESC_VDI 0,127,12,\1
  919.  LEA INTIN,A3
  920.  LEA \2,A4
  921.  MOVEQ #126,D3
  922.  CLR D4
  923.  MOVE.B (A4)+,D4
  924.  MOVE D4,(A3)+
  925.  DBEQ D3,#-6
  926.  LEA CONTRL+6,A3
  927.  SUB D3,(A3) ;Länge
  928.  VDI
  929.  ENDM
  930. V_RVON:MACRO $\1
  931.  ESC_VDI 0,0,13,\1
  932.  VDI
  933.  ENDM
  934. V_RVOFF:MACRO $\1
  935.  ESC_VDI 0,0,14,\1
  936.  VDI
  937.  ENDM
  938. VQ_CURADDRESS:MACRO $\1,$\2,$\3
  939.  ESC_VDI 0,0,15,\1
  940.  VDI
  941.  MOVE INTOUT,\2
  942.  MOVE INTOUT+2,\3
  943.  ENDM
  944. VQ_TABSTATUS:MACRO $\1,$\2
  945.  ESC_VDI 0,0,16,\1
  946.  VDI
  947.  MOVE INTOUT,\2
  948.  ENDM
  949. V_HARDCOPY:MACRO $\1
  950.  ESC_VDI 0,0,17,\1
  951.  VDI
  952.  ENDM
  953. V_DSPCUR:MACRO $\1,$\2,$\3
  954.  ESC_VDI 1,0,18,\1
  955.  LEA PTSIN,A3
  956.  MOVE \2,(A3)+
  957.  MOVE \3,(A3)
  958.  VDI
  959.  ENDM
  960. V_RMCUR:MACRO $\1
  961.  ESC_VDI 0,0,19,\1
  962.  VDI
  963.  ENDM
  964. V_FORM_ADV:MACRO $\1
  965.  ESC_VDI 0,0,20,\1
  966.  VDI
  967.  ENDM
  968. V_OUTPUT_WINDOW:MACRO $\1,$\2
  969.  ESC_VDI 2,0,21,\1
  970.  LEA PTSIN,A3
  971.  LEA \2,A4
  972.  MOVE.L (A4)+,(A3)+
  973.  MOVE.L (A4),(A3)
  974.  VDI
  975.  ENDM
  976. V_CLEAR_DISP_LIST:MACRO $\1
  977.  ESC_VDI 0,0,22,\1
  978.  VDI
  979.  ENDM
  980. V_BIT_IMAGE:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  981.  LEA CONTRL,A3
  982.  MOVE #5,(A3)
  983.  MOVE \5,2(A3)
  984.  MOVE #127,6(A3)
  985.  MOVE #23,10(A3)
  986.  MOVE \1,12(A3)
  987.  LEA INTIN,A3
  988.  MOVE \3,(A3)+
  989.  MOVE \4,(A3)+
  990.  LEA \2,A4
  991.  MOVEQ #124,D3
  992.  CLR D4
  993.  MOVE.B (A4)+,D4
  994.  MOVE D4,(A3)+
  995.  DBEQ D3,#-6
  996.  LEA CONTRL+6,A3
  997.  SUB D3,(A3)
  998.  LEA PTSIN,A3
  999.  LEA \6,A4
  1000.  MOVE.L (A4)+,(A3)+
  1001.  MOVE.L (A4),(A3)
  1002.  VDI
  1003.  ENDM
  1004. VS_PALETTE:MACRO $\1,$\2,$\3
  1005.  ESC_VDI 0,1,60,\1
  1006.  LEA INTIN,A3
  1007.  MOVE \2,(A3)
  1008.  VDI
  1009.  MOVE INTOUT,\3
  1010.  ENDM
  1011. VQP_FILMS:MACRO $\1,$\2
  1012.  ESC_VDI 0,0,91,\1
  1013.  VDI
  1014.  LEA INTOUT,A3
  1015.  LEA \2,A4
  1016.  MOVEQ #124,D3
  1017.  MOVE (A3)+,D4
  1018.  MOVE.B D4,(A4)+
  1019.  DBRA D3,#-6
  1020.  ENDM
  1021. VQP_STATE:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  1022.  ESC_VDI 0,0,92,\1
  1023.  VDI
  1024.  LEA INTOUT,A3
  1025.  MOVE (A3)+,\2
  1026.  MOVE (A3)+,\3
  1027.  MOVE (A3)+,\4
  1028.  MOVE (A3)+,\5
  1029.  MOVE (A3)+,\6
  1030.  LEA \7,A4
  1031.  MOVEQ #15,D3
  1032.  MOVE (A3)+,D4
  1033.  MOVE.B D4,(A4)+
  1034.  DBRA D3,#-6
  1035.  ENDM
  1036. VSP_STATE:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  1037.  ESC_VDI 0,21,93,\1
  1038.  LEA INTIN,A3
  1039.  MOVE \2,(A3)+  
  1040.  MOVE \3,(A3)+  
  1041.  MOVE \4,(A3)+  
  1042.  MOVE \5,(A3)+  
  1043.  MOVE \6,(A3)+
  1044.  LEA \7,A4
  1045.  MOVEQ #15,D3
  1046.  CLR D4
  1047.  MOVE.B (A4)+,D4
  1048.  MOVE D4,(A3)+
  1049.  DBRA D3,#-6
  1050.  VDI
  1051.  ENDM
  1052. VSP_SAVE:MACRO $\1
  1053.  ESC_VDI 0,0,94,\1
  1054.  VDI
  1055.  ENDM
  1056. VSP_MESSAGE:MACRO $\1
  1057.  ESC_VDI 0,0,95,\1
  1058.  VDI
  1059.  ENDM
  1060. VQP_ERROR:MACRO $\1,$\2
  1061.  ESC_VDI 0,0,96,\1
  1062.  VDI
  1063.  MOVE INTOUT,\2
  1064.  ENDM
  1065. V_META_EXTENTS:MACRO $\1,$\2
  1066.  ESC_VDI 2,0,98,\1
  1067.  LEA PTSIN,A3
  1068.  LEA \2,A4
  1069.  MOVE.L (A4)+,(A3)+
  1070.  MOVE.L (A4),(A3)
  1071.  VDI
  1072.  ENDM
  1073. V_WRITE_META:MACRO $\1,$\2,$\3,$\4,$\5
  1074.  LEA CONTRL,A3
  1075.  MOVE #5,(A3)
  1076.  MOVE \4,2(A3)
  1077.  MOVE \2,6(A3)
  1078.  MOVE #99,10(A3)
  1079.  MOVE \1,12(A3)
  1080.  LEA INTIN,A3
  1081.  LEA \3,A4
  1082.  MOVE CONTRL+6,D3
  1083.  BRA.S #2
  1084.  MOVE (A4)+,(A3)+
  1085.  DBRA D3,#-4
  1086.  LEA PTSIN,A3
  1087.  LEA \5,A4
  1088.  MOVE CONTRL+2,D3
  1089.  BRA.S #2
  1090.  MOVE (A4)+,(A3)+
  1091.  DBRA D3,#-4
  1092.  VDI
  1093.  ENDM
  1094. VM_FILENAME:MACRO $\1,$\2
  1095.  ESC_VDI 0,73,100,\1
  1096.  LEA INTIN,A3
  1097.  LEA \2,A4
  1098.  MOVEQ #72,D3
  1099.  CLR D4
  1100.  MOVE.B (A4)+,D4
  1101.  MOVE D4,(A3)+
  1102.  DBEQ D3,#-6
  1103.  LEA CONTRL+6,A3
  1104.  SUB D3,(A3) ;Länge
  1105.  VDI
  1106.  ENDM
  1107.  LIST
  1108.  END
  1109.