home *** CD-ROM | disk | FTP | other *** search
/ Esprit de Apple Corps / EDAC-2.iso / Graphics / Apps / Programs / SuperMagic / Real.Time / SM.MACROS.txt < prev   
Encoding:
Text File  |  1991-06-14  |  2.4 KB  |  208 lines
  1.  MACRO
  2. &LAB LONG &A,&B
  3.  LCLB &I
  4.  LCLB &M
  5. &A AMID &A,1,1
  6. &M SETB ("&A"="M").OR.("&A"="m")
  7. &I SETB ("&A"="I").OR.("&A"="i")
  8.  AIF C:&B=0,.A
  9. &B AMID &B,1,1
  10. &M SETB ("&B"="M").OR.("&B"="m").OR.&M
  11. &I SETB ("&B"="I").OR.("&B"="i").OR.&I
  12. .A
  13. &LAB REP #&M*32+&I*16
  14.  AIF .NOT.&M,.B
  15.  LONGA ON
  16. .B
  17.  AIF .NOT.&I,.C
  18.  LONGI ON
  19. .C
  20.  MEND
  21.  MACRO
  22. &LAB PH2 &N1
  23.  LCLC &C
  24. &LAB ANOP
  25. &C AMID &N1,1,1
  26.  AIF "&C"="#",.D
  27.  AIF S:LONGA=1,.A
  28.  REP #%00100000
  29. .A
  30.  AIF "&C"<>"{",.B
  31. &C AMID &N1,L:&N1,1
  32.  AIF "&C"<>"}",.G
  33. &N1 AMID &N1,2,L:&N1-2
  34.  LDA (&N1)
  35.  PHA
  36.  AGO .E
  37. .B
  38.  LDA &N1
  39.  PHA
  40.  AGO .E
  41. .D
  42. &N1 AMID &N1,2,L:&N1-1
  43.  PEA &N1
  44.  AGO .F
  45. .E
  46.  AIF S:LONGA=1,.F
  47.  SEP #%00100000
  48. .F
  49.  MEXIT
  50. .G
  51.  MNOTE "Missing closing '}'",16
  52.  MEND
  53.  MACRO
  54. &LAB PH4 &N1
  55.  LCLC &C
  56. &LAB ANOP
  57. &C AMID &N1,1,1
  58.  AIF "&C"="#",.D
  59.  AIF S:LONGA=1,.A
  60.  REP #%00100000
  61. .A
  62.  AIF "&C"<>"{",.B
  63. &C AMID &N1,L:&N1,1
  64.  AIF "&C"<>"}",.G
  65. &N1 AMID &N1,2,L:&N1-2
  66.  LDY #2
  67.  LDA (&N1),Y
  68.  PHA
  69.  LDA (&N1)
  70.  PHA
  71.  AGO .E
  72. .B
  73.  AIF "&C"<>"[",.C
  74.  LDY #2
  75.  LDA &N1,Y
  76.  PHA
  77.  LDA &N1
  78.  PHA
  79.  AGO .E
  80. .C
  81.  LDA &N1+2
  82.  PHA
  83.  LDA &N1
  84.  PHA
  85.  AGO .E
  86. .D
  87. &N1 AMID &N1,2,L:&N1-1
  88.  PEA +(&N1)|-16
  89.  PEA &N1
  90.  AGO .F
  91. .E
  92.  AIF S:LONGA=1,.F
  93.  SEP #%00100000
  94. .F
  95.  MEXIT
  96. .G
  97.  MNOTE "Missing closing '}'",16
  98.  MEND
  99.  MACRO
  100. &LAB SHORT &A,&B
  101.  LCLB &I
  102.  LCLB &M
  103. &A AMID &A,1,1
  104. &M SETB ("&A"="M").OR.("&A"="m")
  105. &I SETB ("&A"="I").OR.("&A"="i")
  106.  AIF C:&B=0,.A
  107. &B AMID &B,1,1
  108. &M SETB ("&B"="M").OR.("&B"="m").OR.&M
  109. &I SETB ("&B"="I").OR.("&B"="i").OR.&I
  110. .A
  111. &LAB SEP #&M*32+&I*16
  112.  AIF .NOT.&M,.B
  113.  LONGA OFF
  114. .B
  115.  AIF .NOT.&I,.C
  116.  LONGI OFF
  117. .C
  118.  MEND
  119.  MACRO
  120. &LAB QUIT &DCB
  121. &LAB JSL $E100A8
  122.  DC I2'$29'
  123.  DC I4'&DCB'
  124.  MEND
  125.  MACRO
  126. &LAB _MMSTARTUP
  127. &LAB LDX #$0202
  128.  JSL $E10000
  129.  MEND
  130.  MACRO
  131. &LAB _MMSHUTDOWN
  132. &LAB LDX #$0302
  133.  JSL $E10000
  134.  MEND
  135.  MACRO
  136. &LAB _SYSFAILMGR
  137. &LAB LDX #$1503
  138.  JSL $E10000
  139.  MEND
  140.  MACRO
  141. &LAB _TLSTARTUP
  142. &LAB LDX #$0201
  143.  JSL $E10000
  144.  MEND
  145.  MACRO
  146. &LAB _TLSHUTDOWN
  147. &LAB LDX #$0301
  148.  JSL $E10000
  149.  MEND
  150.  MACRO
  151. &lab wordresult
  152. &lab phd
  153.  MEND
  154.  MACRO
  155. &LAB PL4 &N1
  156.  LCLC &C
  157. &LAB ANOP
  158.  AIF S:LONGA=1,.A
  159.  REP #%00100000
  160. .A
  161. &C AMID &N1,1,1
  162.  AIF "&C"<>"{",.B
  163. &C AMID &N1,L:&N1,1
  164.  AIF "&C"<>"}",.F
  165. &N1 AMID &N1,2,L:&N1-2
  166.  PLA
  167.  STA (&N1)
  168.  LDY #2
  169.  PLA
  170.  STA (&N1),Y
  171.  AGO .D
  172. .B
  173.  AIF "&C"<>"[",.C
  174.  PLA
  175.  STA &N1
  176.  LDY #2
  177.  PLA
  178.  STA &N1,Y
  179.  AGO .D
  180. .C
  181.  PLA
  182.  STA &N1
  183.  PLA
  184.  STA &N1+2
  185. .D
  186.  AIF S:LONGA=1,.E
  187.  SEP #%00100000
  188. .E
  189.  MEXIT
  190. .F
  191.  MNOTE "Missing closing '}'",16
  192.  MEND
  193.  MACRO
  194. &LAB _NEWHANDLE
  195. &LAB LDX #$0902
  196.  JSL $E10000
  197.  MEND
  198.  MACRO
  199. &lab longresult
  200. &lab phd
  201.  phd
  202.  MEND
  203.  MACRO
  204. &LAB _DISPOSEALL
  205. &LAB LDX #$1102
  206.  JSL $E10000
  207.  MEND
  208.