home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / APW.SC / SC01Shell / Asm.Shell / Shell.macros < prev   
Encoding:
Text File  |  1990-03-24  |  2.9 KB  |  232 lines  |  [TEXT/pdos]
  1.  MACRO
  2. &lab _FixAppleMenu
  3. &lab ldx #$1E05
  4.  jsl $E10000
  5.  MEND
  6.  MACRO
  7. &lab _QuitGS ¶ms
  8. &lab jsl $E100A8
  9.  dc i2"$2029"
  10.  dc i4"¶ms"
  11.  MEND
  12.  MACRO
  13. &lab _Int2Hex
  14. &lab ldx #$220B
  15.  jsl $E10000
  16.  MEND
  17.  MACRO
  18. &lab _ShutDownTools
  19. &lab ldx #$1901
  20.  jsl $E10000
  21.  MEND
  22.  MACRO
  23. &lab _StartUpTools
  24. &lab ldx #$1801
  25.  jsl $E10000
  26.  MEND
  27.  MACRO
  28. &lab _TLShutDown
  29. &lab ldx #$0301
  30.  jsl $E10000
  31.  MEND
  32.  MACRO
  33. &lab _TLStartUp
  34. &lab ldx #$0201
  35.  jsl $E10000
  36.  MEND
  37.  MACRO
  38. &lab _MMShutDown
  39. &lab ldx #$0302
  40.  jsl $E10000
  41.  MEND
  42.  MACRO
  43. &lab _MMStartUp
  44. &lab ldx #$0202
  45.  jsl $E10000
  46.  MEND
  47.  MACRO
  48. &lab _DisableMItem
  49. &lab ldx #$310F
  50.  jsl $E10000
  51.  MEND
  52.  MACRO
  53. &lab _DrawMenuBar
  54. &lab ldx #$2A0F
  55.  jsl $E10000
  56.  MEND
  57.  MACRO
  58. &lab _EnableMItem
  59. &lab ldx #$300F
  60.  jsl $E10000
  61.  MEND
  62.  MACRO
  63. &lab _FixMenuBar
  64. &lab ldx #$130F
  65.  jsl $E10000
  66.  MEND
  67.  MACRO
  68. &lab _HiliteMenu
  69. &lab ldx #$2C0F
  70.  jsl $E10000
  71.  MEND
  72.  MACRO
  73. &lab _NewMenuBar2
  74. &lab ldx #$430F
  75.  jsl $E10000
  76.  MEND
  77.  MACRO
  78. &lab _SetMenuBar
  79. &lab ldx #$390F
  80.  jsl $E10000
  81.  MEND
  82.  MACRO
  83. &lab _SetMenuFlag
  84. &lab ldx #$1F0F
  85.  jsl $E10000
  86.  MEND
  87.  MACRO
  88. &lab _SetSysBar
  89. &lab ldx #$120F
  90.  jsl $E10000
  91.  MEND
  92.  MACRO
  93. &lab _SysBeep
  94. &lab ldx #$2C03
  95.  jsl $E10000
  96.  MEND
  97.  MACRO
  98. &lab _GrafOff
  99. &lab ldx #$0B04
  100.  jsl $E10000
  101.  MEND
  102.  MACRO
  103. &lab _InitCursor
  104. &lab ldx #$CA04
  105.  jsl $E10000
  106.  MEND
  107.  MACRO
  108. &lab _ReadChar
  109. &lab ldx #$220C
  110.  jsl $E10000
  111.  MEND
  112.  MACRO
  113. &lab _WriteCString
  114. &lab ldx #$200C
  115.  jsl $E10000
  116.  MEND
  117.  MACRO
  118. &lab pulllong &addr1,&addr2
  119. &lab ANOP
  120.  AIF C:&addr1=0,.a
  121.  AIF C:&addr2=0,.b
  122.  LCLC &C
  123. &C AMID &addr1,1,1
  124.  AIF "&C"="[",.zeropage
  125.  pullword &addr1
  126.  sta &addr2
  127.  pullword &addr1+2
  128.  sta &addr2+2
  129.  MEXIT
  130. .a
  131.  pullword
  132.  pullword
  133.  MEXIT
  134. .b
  135.  pullword &addr1
  136.  pullword &addr1+2
  137.  MEXIT
  138. .zeropage
  139.  ldy #&addr2
  140.  pullword &addr1,y
  141.  ldy #&addr2+2
  142.  pullword &addr1,y
  143.  MEND
  144.  MACRO
  145. &lab pullword &SYSOPR
  146. &lab ANOP
  147.  pla
  148.  AIF C:&SYSOPR=0,.end
  149.  sta &SYSOPR
  150. .end
  151.  MEND
  152.  MACRO
  153. &lab pushlong &addr,&offset
  154. &lab ANOP
  155.  LCLC &C
  156.  LCLC &REST
  157. &C AMID &addr,1,1
  158.  AIF "&C"="#",.immediate
  159.  AIF "&C"="[",.zeropage
  160.  AIF C:&offset=0,.nooffset
  161.  AIF "&offset"="s",.stack
  162.  pushword &addr+2,&offset
  163.  pushword &addr,&offset
  164.  MEXIT
  165. .nooffset
  166.  pushword &addr+2
  167.  pushword &addr
  168.  MEXIT
  169. .immediate
  170. &REST AMID &addr,2,L:&addr-1
  171.  dc I1'$F4',I2'(&REST)|-16'
  172.  dc I1'$F4',I2'&REST'
  173.  MEXIT
  174. .stack
  175.  pushword &addr+2,s
  176.  pushword &addr+2,s
  177.  MEXIT
  178. .zeropage
  179.  ldy #&offset+2
  180.  pushword &addr,y
  181.  ldy #&offset
  182.  pushword &addr,y
  183.  MEND
  184.  MACRO
  185. &lab pushword &SYSOPR
  186. &lab ANOP
  187.  AIF C:&SYSOPR=0,.b
  188.  LCLC &C
  189. &C AMID "&SYSOPR",1,1
  190.  AIF ("&C"="#").AND.(S:LONGA),.immediate
  191.  lda &SYSOPR
  192.  pha
  193.  MEXIT
  194. .b
  195.  pha
  196.  MEXIT
  197. .immediate
  198.  LCLC &REST
  199.  LCLA &BL
  200. &BL ASEARCH "&SYSOPR"," ",1
  201.  AIF &BL>0,.a
  202. &BL SETA L:&SYSOPR+1
  203. .a
  204. &REST AMID "&SYSOPR",2,&BL-2
  205.  dc I1'$F4',I2'&REST'
  206.  MEND
  207.  MACRO
  208. &lab _AlertWindow
  209. &lab ldx #$590E
  210.  jsl $E10000
  211.  MEND
  212.  MACRO
  213. &lab _FrontWindow
  214. &lab ldx #$150E
  215.  jsl $E10000
  216.  MEND
  217.  MACRO
  218. &lab _GetWKind
  219. &lab ldx #$2B0E
  220.  jsl $E10000
  221.  MEND
  222.  MACRO
  223. &lab _RefreshDesktop
  224. &lab ldx #$390E
  225.  jsl $E10000
  226.  MEND
  227.  MACRO
  228. &lab _TaskMaster
  229. &lab ldx #$1D0E
  230.  jsl $E10000
  231.  MEND
  232.