home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Assempro 1987.07.12 / Lowe_Assempro_1987_07_12.img / TOS / AES.S next >
Encoding:
Text File  |  1985-11-20  |  11.5 KB  |  725 lines
  1. ;***************  AES  ***************
  2.  NOLIST
  3. SCF_AES:MACRO %\1,%\2,%\3,%\4,%\5
  4.  LEA CONTRL,A3
  5.  MOVE #\1,(A3)+
  6.  MOVE #\2,(A3)+
  7.  MOVE #\3,(A3)+
  8.  MOVE #\4,(A3)+
  9.  MOVE #\5,(A3)
  10.  ENDM
  11. AES:MACRO
  12.  MOVE.L AESPTR,D1
  13.  MOVE #$C8,D0
  14.  TRAP #2
  15.  ENDM
  16. APPL_INIT:MACRO $\1
  17.  SCF_AES 10,0,1,0,0
  18.  AES
  19.  LEA \1,A3
  20.  MOVE INTOUT,(A3)
  21.  ENDM
  22. APPL_EXIT:MACRO $\1
  23.  SCF_AES 19,0,1,0,0
  24.  AES
  25.  MOVE INTOUT,\1
  26.  ENDM
  27. GRAF_HANDLE:MACRO $\1
  28.  SCF_AES 77,0,5,0,0
  29.  AES
  30.  LEA INTOUT,A3
  31.  LEA \1,A4
  32.  MOVE.L (A3)+,(A4)+
  33.  MOVE.L (A3)+,(A4)+
  34.  MOVE (A3),(A4)
  35.  ENDM
  36. WIND_GET:MACRO $\1,\2,$\3,$\4
  37.  SCF_AES 104,2,5,0,0
  38.  LEA INTIN,A3
  39.  MOVE \1,(A3)+
  40.  MOVE #\2,(A3)
  41.  AES
  42.  LEA INTOUT,A3
  43.  MOVE (A3)+,\3
  44.  IFEQ (\2-8)*(\2-9)*(\2-10)*(\2-15)*(\2-16),0
  45.   MOVE (A3),\4
  46.  ELSE
  47.   LEA \4,A4
  48.   MOVE.L (A3)+,(A4)+
  49.   MOVE.L (A3),(A4)
  50.  ENDIF
  51.  ENDM
  52. WIND_CREATE:MACRO $\1,$\2,$\3
  53.  SCF_AES 100,5,1,0,0
  54.  LEA INTIN,A3
  55.  MOVE \1,(A3)+
  56.  LEA \2,A4
  57.  MOVE.L (A4)+,(A3)+
  58.  MOVE.L (A4),(A3)
  59.  AES
  60.  MOVE INTOUT,\3
  61.  ENDM
  62. WIND_OPEN:MACRO $\1,$\2,$\3
  63.  SCF_AES 101,5,1,0,0
  64.  LEA INTIN,A3
  65.  MOVE \1,(A3)+
  66.  LEA \2,A4
  67.  MOVE.L (A4)+,(A3)+
  68.  MOVE.L (A4),(A3)
  69.  AES
  70.  MOVE INTOUT,\3
  71.  ENDM
  72. WIND_CLOSE:MACRO $\1,$\2
  73.  SCF_AES 102,1,1,0,0
  74.  LEA INTIN,A3
  75.  MOVE \1,(A3)
  76.  AES
  77.  MOVE INTOUT,\2
  78.  ENDM
  79. WIND_DELETE:MACRO $\1,$\2
  80.  SCF_AES 103,1,1,0,0
  81.  LEA INTIN,A3
  82.  MOVE \1,(A3)
  83.  AES
  84.  MOVE INTOUT,\2
  85.  ENDM
  86. WIND_SET:MACRO $\1,\2,$\3,$\4,$\5
  87.  SCF_AES 105,6,1,0,0
  88.  LEA INTIN,A3
  89.  MOVE \1,(A3)+
  90.  MOVE #\2,(A3)+
  91.  IFEQ \2,14
  92.   PEA \3
  93.   MOVE.L (SP)+,D3
  94.   SWAP D3
  95.   MOVE.L D3,(A3)+
  96.   MOVE \4,(A3)
  97.   AES
  98.   MOVE INTOUT,\5
  99.  ELSE
  100.   IFEQ (\2-1)*(\2-8)*(\2-9)*(\2-10)*(\2-15)*(\2-16),0
  101.    MOVE \3,(A3)
  102.   ELSE
  103.    LEA \3,A4
  104.    IFEQ (\2-2)*(\2-3),0
  105.     MOVE.L A4,(A3)
  106.    ELSE
  107.     MOVE.L (A4)+,(A3)+
  108.     MOVE.L (A4),(A3)
  109.    ENDIF
  110.   ENDIF
  111.   AES
  112.   MOVE INTOUT,\4
  113.  ENDIF
  114.  ENDM
  115. WIND_FIND:MACRO $\1,$\2,$\3
  116.  SCF_AES 106,2,1,0,0
  117.  LEA INTIN,A3
  118.  MOVE \1,(A3)+
  119.  MOVE \2,(A3)
  120.  AES
  121.  MOVE INTOUT,\3
  122.  ENDM
  123. WIND_UPDATE:MACRO $\1,$\2
  124.  SCF_AES 107,1,1,0,0
  125.  LEA INTIN,A3
  126.  MOVE \1,(A3)
  127.  AES
  128.  MOVE INTOUT,\2
  129.  ENDM
  130. WIND_CALC:MACRO $\1,$\2,$\3,$\4,$\5
  131.  SCF_AES 108,6,5,0,0
  132.  LEA INTIN,A3
  133.  MOVE \1,(A3)+
  134.  MOVE \2,(A3)+
  135.  LEA \3,A4
  136.  MOVE.L (A4)+,(A3)+
  137.  MOVE.L (A4),(A3)
  138.  AES
  139.  LEA INTOUT,A3
  140.  MOVE (A3)+,\4
  141.  LEA \5,A4
  142.  MOVE.L (A3)+,(A4)+
  143.  MOVE.L (A3),(A4)
  144.  ENDM
  145. EVNT_KEYBD:MACRO $\1
  146.  SCF_AES 20,0,1,0,0
  147.  AES
  148.  MOVE INTOUT,\1
  149.  ENDM
  150. EVNT_BUTTON:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  151.  SCF_AES 21,3,5,0,0
  152.  LEA INTIN,A3
  153.  MOVE \1,(A3)+
  154.  MOVE \2,(A3)+
  155.  MOVE \3,(A3)
  156.  AES
  157.  LEA INTOUT,A3
  158.  MOVE (A3)+,\4
  159.  LEA \5,A4
  160.  MOVE.L (A3)+,(A4)+
  161.  MOVE (A3)+,(A4)+
  162.  MOVE (A3),\6
  163.  ENDM
  164. EVNT_MOUSE:MACRO $\1,$\2,$\3,$\4
  165.  SCF_AES 22,5,5,0,0
  166.  LEA INTIN,A3
  167.  MOVE \1,(A3)+
  168.  LEA \2,A4
  169.  MOVE.L (A4)+,(A3)+
  170.  MOVE.L (A4),(A3)
  171.  AES
  172.  LEA INTOUT,A3
  173.  MOVE (A3)+,\3
  174.  LEA \4,A4
  175.  MOVE.L (A3)+,(A4)+
  176.  MOVE.L (A3),(A4)
  177.  ENDM
  178. EVNT_TIMER:MACRO $\1,$\2
  179.  SCF_AES 24,2,1,0,0
  180.  LEA INTIN,A3
  181.  MOVE.L \1,D3
  182.  SWAP D3
  183.  MOVE.L D3,(A3)
  184.  AES
  185.  MOVE INTOUT,\2
  186.  ENDM
  187. EVNT_MESAG:MACRO $\1,$\2
  188.  SCF_AES 23,0,1,1,0
  189.  LEA ADDRIN,A3
  190.  LEA \1,A4
  191.  MOVE.L A4,(A3)
  192.  AES
  193.  MOVE INTOUT,\2
  194.  ENDM
  195. EVNT_MULTI:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7,$\8,$\9,$\10,$\11,$\12,$\13,$\14
  196.  SCF_AES 25,16,7,1,0
  197.  LEA INTIN,A3
  198.  MOVE \1,(A3)+
  199.  MOVE \2,(A3)+
  200.  MOVE \3,(A3)+
  201.  MOVE \4,(A3)+
  202.  MOVE \5,(A3)+
  203.  LEA \6,A4
  204.  MOVE.L (A4)+,(A3)+
  205.  MOVE.L (A4),(A3)+
  206.  MOVE \7,(A3)+
  207.  LEA \8,A4
  208.  MOVE.L (A4)+,(A3)+
  209.  MOVE.L (A4),(A3)+
  210.  MOVE.L \9,D3
  211.  SWAP D3
  212.  MOVE.L D3,(A3)
  213.  LEA ADDRIN,A3
  214.  LEA \10,A4
  215.  MOVE.L A4,(A3)
  216.  AES
  217.  LEA INTOUT,A3
  218.  MOVE (A3)+,\11
  219.  LEA \12,A4
  220.  MOVE.L (A3)+,(A4)+
  221.  MOVE.L (A3)+,(A4)
  222.  MOVE (A3)+,\13
  223.  MOVE (A3),\14
  224.  ENDM
  225. APPL_READ:MACRO $\1,$\2,$\3,$\4
  226.  SCF_AES 11,2,1,1,0
  227.  LEA INTIN,A3
  228.  MOVE \1,(A3)+
  229.  MOVE \2,(A3)
  230.  LEA ADDRIN,A3
  231.  LEA \3,A4
  232.  MOVE.L A4,(A3)
  233.  AES
  234.  MOVE INTOUT,\4
  235.  ENDM
  236. APPL_WRITE:MACRO $\1,$\2,$\3,$\4
  237.  SCF_AES 12,2,1,1,0
  238.  LEA INTIN,A3
  239.  MOVE \1,(A3)+
  240.  MOVE \2,(A3)
  241.  LEA ADDRIN,A3
  242.  LEA \3,A4
  243.  MOVE.L A4,(A3)
  244.  AES
  245.  MOVE INTOUT,\4
  246.  ENDM
  247. OBJC_DRAW:MACRO $\1,$\2,$\3,$\4,$\5
  248.  SCF_AES 42,6,1,1,0
  249.  LEA INTIN,A3
  250.  MOVE \1,(A3)+
  251.  MOVE \2,(A3)+
  252.  LEA \3,A4
  253.  MOVE.L (A4)+,(A3)+
  254.  MOVE.L (A4),(A3)
  255.  LEA ADDRIN,A3
  256.  LEA \4,A4
  257.  MOVE.L A4,(A3)
  258.  AES
  259.  MOVE INTOUT,\5
  260.  ENDM
  261. OBJC_FIND:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  262.  SCF_AES 43,4,1,1,0
  263.  LEA INTIN,A3
  264.  MOVE \1,(A3)+
  265.  MOVE \2,(A3)+
  266.  MOVE \3,(A3)+
  267.  MOVE \4,(A3)
  268.  LEA ADDRIN,A3
  269.  LEA \5,A4
  270.  MOVE.L A4,(A3)
  271.  AES
  272.  MOVE INTOUT,\6
  273.  ENDM
  274. OBJC_OFFSET:MACRO $\1,$\2,$\3,$\4,$\5
  275.  SCF_AES 44,1,3,1,0
  276.  LEA INTIN,A3
  277.  MOVE \1,(A3)
  278.  LEA ADDRIN,A3
  279.  LEA \2,A4
  280.  MOVE.L A4,(A3)
  281.  AES
  282.  MOVE INTOUT,\3
  283.  MOVE INTOUT+2,\4
  284.  MOVE INTOUT+4,\5
  285.  ENDM
  286. OBJC_EDIT:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  287.  SCF_AES 46,4,2,1,0
  288.  LEA INTIN,A3
  289.  MOVE \1,(A3)+
  290.  MOVE \2,(A3)+
  291.  MOVE \3,(A3)+
  292.  MOVE \4,(A3)
  293.  LEA ADDRIN,A3
  294.  LEA \5,A4
  295.  MOVE.L A4,(A3)
  296.  AES
  297.  MOVE INTOUT,\6
  298.  MOVE INTOUT+2,\7
  299.  ENDM
  300. OBJC_CHANGE:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  301.  SCF_AES 47,8,1,1,0
  302.  LEA INTIN,A3
  303.  MOVE \1,(A3)+
  304.  MOVE \2,(A3)+
  305.  LEA \3,A4
  306.  MOVE.L (A4)+,(A3)+
  307.  MOVE.L (A4),(A3)+
  308.  MOVE \4,(A3)+
  309.  MOVE \5,(A3)
  310.  LEA ADDRIN,A3
  311.  LEA \6,A4
  312.  MOVE.L A4,(A3)
  313.  AES
  314.  MOVE INTOUT,\7
  315.  ENDM
  316. RSRC_LOAD:MACRO $\1,$\2
  317.  SCF_AES 110,0,1,1,0
  318.  LEA ADDRIN,A3
  319.  LEA \1,A4
  320.  MOVE.L A4,(A3)
  321.  AES
  322.  MOVE INTOUT,\2
  323.  ENDM
  324. RSRC_FREE:MACRO $\1
  325.  SCF_AES 111,0,1,0,0
  326.  AES
  327.  MOVE INTOUT,\1
  328.  ENDM
  329. RSRC_GADDR:MACRO $\1,$\2,$\3,$\4
  330.  SCF_AES 112,2,1,0,1
  331.  LEA INTIN,A3
  332.  MOVE \1,(A3)+
  333.  MOVE \2,(A3)
  334.  AES
  335.  MOVE INTOUT,\3
  336.  MOVE.L ADDROUT,\4
  337.  ENDM
  338. RSRC_SADDR:MACRO $\1,$\2,$\3,$\4
  339.  SCF_AES 113,2,1,1,0
  340.  LEA INTIN,A3
  341.  MOVE \1,(A3)+
  342.  MOVE \2,(A3)
  343.  LEA ADDRIN,A3
  344.  LEA \3,A4
  345.  MOVE.L A4,(A3)
  346.  AES
  347.  MOVE INTOUT,\4
  348.  ENDM
  349. FORM_DO:MACRO $\1,$\2,$\3
  350.  SCF_AES 50,1,1,1,0
  351.  LEA INTIN,A3
  352.  MOVE \1,(A3)
  353.  LEA ADDRIN,A3
  354.  LEA \2,A4
  355.  MOVE.L A4,(A3)
  356.  AES
  357.  MOVE INTOUT,\3
  358.  ENDM
  359. FORM_DIAL:MACRO $\1,$\2,$\3,$\4
  360.  SCF_AES 51,9,1,1,0
  361.  LEA INTIN,A3
  362.  MOVE \1,(A3)+
  363.  LEA \2,A4
  364.  MOVE.L (A4)+,(A3)+
  365.  MOVE.L (A4),(A3)+
  366.  LEA \3,A4
  367.  MOVE.L (A4)+,(A3)+
  368.  MOVE.L (A4),(A3)
  369.  AES
  370.  MOVE INTOUT,\4
  371.  ENDM
  372. FORM_CENTER:MACRO $\1,$\2,$\3
  373.  SCF_AES 54,0,5,1,0
  374.  LEA ADDRIN,A3
  375.  LEA \1,A4
  376.  MOVE.L A4,(A3)
  377.  AES
  378.  LEA INTOUT,A3
  379.  MOVE (A3)+,\2
  380.  LEA \3,A4
  381.  MOVE.L (A3)+,(A4)+
  382.  MOVE.L (A3),(A4)
  383.  ENDM
  384. FORM_ALERT:MACRO $\1,$\2,$\3
  385.  SCF_AES 52,1,1,1,0
  386.  LEA INTIN,A3
  387.  MOVE \1,(A3)
  388.  LEA ADDRIN,A3
  389.  LEA \2,A4
  390.  MOVE.L A4,(A3)
  391.  AES
  392.  MOVE INTOUT,\3
  393.  ENDM
  394. FORM_ERROR:MACRO $\1,$\2
  395.  SCF_AES 53,1,1,0,0
  396.  LEA INTIN,A3
  397.  MOVE \1,(A3)
  398.  AES
  399.  MOVE INTOUT,\2
  400.  ENDM
  401. MENU_BAR:MACRO $\1,$\2,$\3
  402.  SCF_AES 30,1,1,1,0
  403.  LEA INTIN,A3
  404.  MOVE \1,(A3)
  405.  LEA ADDRIN,A3
  406.  LEA \2,A4
  407.  MOVE.L A4,(A3)
  408.  AES
  409.  MOVE INTOUT,\3
  410.  ENDM
  411. MENU_ICHECK:MACRO $\1,$\2,$\3,$\4
  412.  SCF_AES 31,2,1,1,0
  413.  LEA INTIN,A3
  414.  MOVE \1,(A3)+
  415.  MOVE \2,(A3)
  416.  LEA ADDRIN,A3
  417.  LEA \3,A4
  418.  MOVE.L A4,(A3)
  419.  AES
  420.  MOVE INTOUT,\4
  421.  ENDM
  422. MENU_IENABLE:MACRO $\1,$\2,$\3,$\4
  423.  SCF_AES 32,2,1,1,0
  424.  LEA INTIN,A3
  425.  MOVE \1,(A3)+
  426.  MOVE \2,(A3)
  427.  LEA ADDRIN,A3
  428.  LEA \3,A4
  429.  MOVE.L A4,(A3)
  430.  AES
  431.  MOVE INTOUT,\4
  432.  ENDM
  433. MENU_TNORMAL:MACRO $\1,$\2,$\3,$\4
  434.  SCF_AES 33,2,1,1,0
  435.  LEA INTIN,A3
  436.  MOVE \1,(A3)+
  437.  MOVE \2,(A3)
  438.  LEA ADDRIN,A3
  439.  LEA \3,A4
  440.  MOVE.L A4,(A3)
  441.  AES
  442.  MOVE INTOUT,\4
  443.  ENDM
  444. MENU_TEXT:MACRO $\1,$\2,$\3,$\4
  445.  SCF_AES 34,1,1,2,0
  446.  LEA INTIN,A3
  447.  MOVE \1,(A3)
  448.  LEA ADDRIN,A3
  449.  LEA \2,A4
  450.  MOVE.L A4,(A3)+
  451.  LEA \3,A4
  452.  MOVE.L A4,(A3)
  453.  AES
  454.  MOVE INTOUT,\4
  455.  ENDM
  456. MENU_REGISTER:MACRO $\1,$\2,$\3
  457.  SCF_AES 35,1,1,1,0
  458.  LEA INTIN,A3
  459.  MOVE \1,(A3)
  460.  LEA ADDRIN,A3
  461.  LEA \2,A4
  462.  MOVE.L A4,(A3)
  463.  AES
  464.  MOVE INTOUT,\3
  465.  ENDM
  466. GRAF_RUBBERBOX:MACRO $\1,$\2,$\3,$\4
  467.  SCF_AES 70,4,3,0,0
  468.  LEA INTIN,A3
  469.  LEA \1,A4
  470.  MOVE.L (A4)+,(A3)+
  471.  MOVE.L (A4),(A3)
  472.  AES
  473.  LEA INTOUT,A3
  474.  MOVE (A3)+,\2
  475.  MOVE (A3)+,\3
  476.  MOVE (A3),\4
  477.  ENDM
  478. GRAF_DRAGBOX:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7,$\8
  479.  SCF_AES 71,8,3,0,0
  480.  LEA INTIN,A3
  481.  MOVE \1,(A3)+
  482.  MOVE \2,(A3)+
  483.  MOVE \3,(A3)+
  484.  MOVE \4,(A3)+
  485.  LEA \5,A4
  486.  MOVE.L (A4)+,(A3)+
  487.  MOVE.L (A4),(A3)
  488.  AES
  489.  LEA INTOUT,A3
  490.  MOVE (A3)+,\6
  491.  MOVE (A3)+,\7
  492.  MOVE (A3),\8
  493.  ENDM
  494. GRAF_MOVEBOX:MACRO $\1,$\2,$\3,$\4,$\5,$\6,$\7
  495.  SCF_AES 72,6,1,0,0
  496.  LEA INTIN,A3
  497.  MOVE \1,(A3)+
  498.  MOVE \2,(A3)+
  499.  MOVE \3,(A3)+
  500.  MOVE \4,(A3)+
  501.  MOVE \5,(A3)+
  502.  MOVE \6,(A3)
  503.  AES
  504.  MOVE INTOUT,\7
  505.  ENDM
  506. GRAF_GROWBOX:MACRO $\1,$\2,$\3
  507.  SCF_AES 73,8,1,0,0
  508.  LEA INTIN,A3
  509.  LEA \1,A4
  510.  MOVE.L (A4)+,(A3)+
  511.  MOVE.L (A4),(A3)+
  512.  LEA \2,A4
  513.  MOVE.L (A4)+,(A3)+
  514.  MOVE.L (A4),(A3)
  515.  AES
  516.  MOVE INTOUT,\3
  517.  ENDM
  518. GRAF_SHRINKBOX:MACRO $\1,$\2,$\3
  519.  SCF_AES 74,8,1,0,0
  520.  LEA INTIN,A3
  521.  LEA \1,A4
  522.  MOVE.L (A4)+,(A3)+
  523.  MOVE.L (A4),(A3)+
  524.  LEA \2,A4
  525.  MOVE.L (A4)+,(A3)+
  526.  MOVE.L (A4),(A3)
  527.  AES
  528.  MOVE INTOUT,\3
  529.  ENDM
  530. GRAF_WATCHBOX:MACRO $\1,$\2,$\3,$\4,$\5
  531.  SCF_AES 75,4,1,1,0
  532.  LEA INTIN+2,A3
  533.  MOVE \1,(A3)+
  534.  MOVE \2,(A3)+
  535.  MOVE \3,(A3)
  536.  LEA ADDRIN,A3
  537.  LEA \4,A4
  538.  MOVE.L A4,(A3)
  539.  AES
  540.  MOVE INTOUT,\5
  541.  ENDM
  542. GRAF_SLIDEBOX:MACRO $\1,$\2,$\3,$\4,$\5
  543.  SCF_AES 76,3,1,1,0
  544.  LEA INTIN,A3
  545.  MOVE \1,(A3)+
  546.  MOVE \2,(A3)+
  547.  MOVE \3,(A3)
  548.  LEA ADDRIN,A3
  549.  LEA \4,A4
  550.  MOVE.L A4,(A3)
  551.  AES
  552.  MOVE INTOUT,\5
  553.  ENDM
  554. GRAF_MOUSE:MACRO $\1,$\2,$\3
  555.  SCF_AES 78,1,1,1,0
  556.  LEA INTIN,A3
  557.  MOVE \1,(A3)
  558.  LEA ADDRIN,A3
  559.  LEA \2,A4
  560.  MOVE.L A4,(A3)
  561.  AES
  562.  MOVE INTOUT,\3
  563.  ENDM
  564. GRAF_MKSTATE:MACRO $\1,$\2,$\3,$\4,$\5
  565.  SCF_AES 79,0,5,0,0
  566.  AES
  567.  LEA INTOUT,A3
  568.  MOVE (A3)+,\1
  569.  MOVE (A3)+,\2
  570.  MOVE (A3)+,\3
  571.  MOVE (A3)+,\4
  572.  MOVE (A3),\5
  573.  ENDM
  574. APPL_FIND:MACRO $\1,$\2
  575.  SCF_AES 13,0,1,1,0
  576.  LEA ADDRIN,A3
  577.  LEA \1,A4
  578.  MOVE.L A4,(A3)
  579.  AES
  580.  MOVE INTOUT,\2
  581.  ENDM
  582. APPL_TPLAY:MACRO $\1,$\2,$\3,$\4
  583.  SCF_AES 14,2,1,1,0
  584.  LEA ADDRIN,A3
  585.  LEA \1,A4
  586.  MOVE.L A4,(A3)
  587.  LEA INTIN,A3
  588.  MOVE \2,(A3)+
  589.  MOVE \3,(A3)
  590.  AES
  591.  MOVE INTOUT,\4
  592.  ENDM
  593. APPL_TRECORD:MACRO $\1,$\2,$\3
  594.  SCF_AES 15,1,1,1,0
  595.  LEA ADDRIN,A3
  596.  LEA \1,A4
  597.  MOVE.L A4,(A3)
  598.  LEA INTIN,A3
  599.  MOVE \2,(A3)
  600.  AES
  601.  MOVE INTOUT,\3
  602.  ENDM
  603. EVNT_DCLICK:MACRO $\1,$\2,$\3
  604.  SCF_AES 26,2,1,0,0
  605.  LEA INTIN,A3
  606.  MOVE \1,(A3)+
  607.  MOVE \2,(A3)
  608.  AES
  609.  MOVE INTOUT,\3
  610.  ENDM
  611. OBJC_ADD:MACRO $\1,$\2,$\3,$\4
  612.  SCF_AES 40,2,1,1,0
  613.  LEA ADDRIN,A3
  614.  LEA \1,A4
  615.  MOVE.L A4,(A3)
  616.  LEA INTIN,A3
  617.  MOVE \2,(A3)+
  618.  MOVE \3,(A3)
  619.  AES
  620.  MOVE INTOUT,\4
  621.  ENDM
  622. OBJC_DELETE:MACRO $\1,$\2,$\3
  623.  SCF_AES 41,1,1,1,0
  624.  LEA ADDRIN,A3
  625.  LEA \1,A4
  626.  MOVE.L A4,(A3)
  627.  LEA INTIN,A3
  628.  MOVE \2,(A3)
  629.  AES
  630.  MOVE INTOUT,\3
  631.  ENDM
  632. OBJC_ORDER:MACRO $\1,$\2,$\3,$\4
  633.  SCF_AES 45,2,1,1,0
  634.  LEA ADDRIN,A3
  635.  LEA \1,A4
  636.  MOVE.L A4,(A3)
  637.  LEA INTIN,A3
  638.  MOVE \2,(A3)+
  639.  MOVE \3,(A3)
  640.  AES
  641.  MOVE INTOUT,\4
  642.  ENDM
  643. SCRP_READ:MACRO $\1,$\2
  644.  SCF_AES 80,0,1,1,0
  645.  LEA ADDRIN,A3
  646.  LEA \1,A4
  647.  MOVE.L A4,(A3)
  648.  AES
  649.  MOVE INTOUT,\2
  650.  ENDM
  651. SCRP_WRITE:MACRO $\1,$\2
  652.  SCF_AES 81,0,1,1,0
  653.  LEA ADDRIN,A3
  654.  LEA \1,A4
  655.  MOVE.L A4,(A3)
  656.  AES
  657.  MOVE INTOUT,\2
  658.  ENDM
  659. FSEL_INPUT:MACRO $\1,$\2,$\3,$\4
  660.  SCF_AES 90,0,2,2,0
  661.  LEA ADDRIN,A3
  662.  LEA \1,A4
  663.  MOVE.L A4,(A3)+
  664.  LEA \2,A4
  665.  MOVE.L A4,(A3)
  666.  AES
  667.  MOVE INTOUT,\3
  668.  MOVE INTOUT+2,\4
  669.  ENDM
  670. RSRC_OBFIX:MACRO $\1,$\2,$\3
  671.  SCF_AES 114,1,1,1,0
  672.  LEA ADDRIN,A3
  673.  LEA \1,A4
  674.  MOVE.L A4,(A3)
  675.  LEA INTIN,A3
  676.  MOVE \2,(A3)
  677.  AES
  678.  MOVE INTOUT,\3
  679.  ENDM
  680. SHEL_READ:MACRO $\1,$\2,$\3
  681.  SCF_AES 120,0,1,2,0
  682.  LEA ADDRIN,A3
  683.  LEA \1,A4
  684.  MOVE.L A4,(A3)+
  685.  LEA \2,A4
  686.  MOVE.L A4,(A3)
  687.  AES
  688.  MOVE INTOUT,\3
  689.  ENDM
  690. SHEL_WRITE:MACRO $\1,$\2,$\3,$\4,$\5,$\6
  691.  SCF_AES 121,3,1,2,0
  692.  LEA INTIN,A3
  693.  MOVE \1,(A3)+
  694.  MOVE \2,(A3)+
  695.  MOVE \3,(A3)
  696.  LEA ADDRIN,A3
  697.  LEA \4,A4
  698.  MOVE.L A4,(A3)+
  699.  LEA \5,A4
  700.  MOVE.L A4,(A3)
  701.  AES
  702.  MOVE INTOUT,\6
  703.  ENDM
  704. SHEL_FIND:MACRO $\1,$\2
  705.  SCF_AES 124,0,1,1,0
  706.  LEA ADDRIN,A3
  707.  LEA \1,A4
  708.  MOVE.L A4,(A3)
  709.  AES
  710.  MOVE INTOUT,\2
  711.  ENDM
  712. SHEL_ENVRN:MACRO $\1,$\2,$\3
  713.  SCF_AES 125,0,1,2,0
  714.  LEA ADDRIN,A3
  715.  LEA \1,A4
  716.  MOVE.L A4,(A3)+
  717.  LEA \2,A4
  718.  MOVE.L A4,(A3)
  719.  AES
  720.  MOVE INTOUT,\3
  721.  ENDM
  722.  LIST
  723.  END
  724.  
  725.