home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / CopeAssembler.lnx / MC51 (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  3.7 KB  |  202 lines
  1. prg FORMATTED geos FILE v1.0
  2. cope sOURCE v1.1
  3. disk a
  4. cope eDITOR v1.1
  5. uNTITLED
  6. ajpjwjAjNjZj
  7. /; ===
  8. ; editer for geos assembler
  9. ;  by bill sharp
  10. start
  11.  jsr oPENdISK
  12. ; LOAD THE DISK NAME INTO BUFFER tfnAME
  13. ; tHIS IS NECESSARY BECAUSE THE USER MAY CHANGE THE
  14. ; FILENAME.  wE CANNOT ASSUME WHAT IT IS.
  15.  LOADW r6:tfnAME
  16.  LDA #6
  17.  STA r7
  18.  LDA #1
  19.  STA r7+1
  20.  LOADW r10:lKfR
  21.  JSR fINDftYPES
  22. ;------
  23.  jsr $c18a; MOUSEUP
  24.  jsr cLR_sCREEN
  25.  jsr vector
  26. LOADW r0:icons
  27.  jsr $c15a; DO icons
  28. LOADW r0:menus
  29.  lda #1
  30.  jsr $c151; dOmENU
  31. lKfR .bYTE 'cope_vlir'
  32. tfnAME .bLOCK 20
  33. .bYTE 'abcdef',0
  34. ; icon routine
  35. icons
  36. .byte 1 ; 1 icon
  37. .word 160
  38. .byte 0
  39. .word iCDT
  40. .byte 38,0,2,15
  41. .word quit2 ; code
  42. .byte 158
  43. .byte 255,255,0,0,255,255,128,01,128,1,128,1
  44. .byte 135,225,135,225,135,225
  45. .byte 128,01,128,01,128,01
  46. .byte 255,255
  47. .byte 0,0
  48. .byte 255,255
  49. menus
  50. .byte mantop
  51. .byte manbot
  52. .word manlft
  53. .word manrt
  54. .byte horiz {$7c} 5
  55. .word mtx1
  56. .byte $80
  57. .word msb1
  58. .word mtx2
  59. .byte $80
  60. .word msb2
  61. .word mtx3
  62. .byte $80 
  63. .word msb3
  64. .word mtx4
  65. .byte $80 ; sub-menu
  66. .word msb4
  67. .word mtx5
  68. .byte $80
  69. .word msb5
  70. mtx1 .byte plain,128,0
  71. mtx2 .byte 'fILE',0
  72. mtx3 .byte 'eDIT',0
  73. mtx4 .byte 'sEARCH',0
  74. mtx5 .byte 'tOOLBOX',0
  75. ;== start of  sub-menus
  76. .byte manbot
  77. .byte manbot+1*14+1
  78. .word manlft
  79. .word manlft+30
  80. .byte vert {$7c} 1
  81. .word sX11
  82. .byte 0
  83. .word nocode
  84. sX11 .byte 'cope iNFO',0
  85. ;-----
  86. .byte manbot
  87. .byte manbot+5*14+1
  88. .word manlft+20
  89. .word manlft+86
  90. .byte vert {$7c} 5
  91. .word sU21
  92. .byte 0
  93. .word load
  94. .word sU22
  95. .byte 0
  96. .word save
  97. .word sU23
  98. .byte 0
  99. .word print
  100. .word sU24
  101. .byte 0 
  102. .word quit
  103. .word sU25
  104. .byte 0
  105. .word sAVEaS1
  106. sU21 .byte 'lOAD',20,64,0,128,'l',0
  107. sU22 .byte 'sAVE',20,64,0,128,'s',0
  108. sU23 .byte 'pRINT',0
  109. sU24 .byte 'qUIT',20,64,0,128,'q',0
  110. sU25 .byte 'sAVE aS...',0
  111. ; end sUenu 2
  112. ; start sUenu 3
  113. .byte manbot
  114. .byte manbot+4*14+1
  115. .word manlft+41
  116. .word manlft+105
  117. .byte vert+4
  118. .word sU31
  119. .byte 0
  120. .word cut
  121. .word sU32
  122. .byte 0
  123. .word copy
  124. .word sU33
  125. .byte 0
  126. .word paste 
  127. .word sU34
  128. .byte 0
  129. .word clear
  130. sU31 .byte 'cUT',20,83,0,128,'x',0
  131. sU32 .byte 'cOPY',20,83,0,128,'c',0
  132. sU33 .byte 'pASTE',20,83,0,128,'t',0
  133. sU34 .byte 'cLEAR',20,85,0,'del',0
  134. .byte manbot
  135. .byte manbot+43
  136. .word manlft+63
  137. .word manlft+142
  138. .byte vert+3
  139. .word sU41
  140. .byte 0
  141. .word find
  142. .word sU42
  143. .byte 0
  144. .word rptstr
  145. .word sU44
  146. .byte 0
  147. .word pAGEgo; gOmENU; CHANGED TO DELETE FUNCTION KEY DISPLAY
  148. sU41 .byte 'fIND...',20,120,0,128,'f',0
  149. sU42 .byte 'rEPLACE...',20,120,0,128,'r',0
  150. sU44 .byte 'gOTO pAGE...',20,120,0,128,'g',0
  151. .byte manbot
  152. .byte manbot+29
  153. .word manlft+99
  154. .word manlft+155
  155. .byte vert+2
  156. .word sU52
  157. .byte 0 
  158. .word aSAVE
  159. .wORD sU53
  160. .bYTE 0
  161. .wORD bmARK
  162. sU52 .bYTE 'aUTOsAVE',0
  163. sU53 .bYTE 'bOOKmARK',0
  164. ;==  end of menu tables
  165. ; vector table
  166. vector
  167. jsr $c1b7
  168. .word tmpnme
  169. .word fname
  170. .byte 17,0
  171. vector1
  172. ldx #0
  173. jsr $c1bd
  174. quit2
  175. jmp entdsk
  176. ;====
  177. ; dialog boxes
  178. db1 .byte 128+2
  179. .byte 11,70,30
  180. .word wA
  181. .byte 11,45,45
  182. .word wA2
  183. .bYTE 11,68,75
  184. .wORD wA3
  185. .bYTE 11,40,60
  186. .wORD wA4
  187. .byte 14,0
  188. wA .byte bold,'GEOcope',plain,0
  189. wA2 .byte 'cOPYRIGHT 1987, 1988',0
  190. wA4 .bYTE 'BY bILL sHARP cOMPUTING',0
  191. wA3 .bYTE 'vERSION 1.1',0
  192. ;application code/menus and icons.
  193. nocode
  194. jsr $c1bd ;goto first menu
  195. LOADW r0:db1
  196. jsr $c256; do dialog box
  197. nOchar
  198. jsr $c1bd ;goto first menu
  199. LOADW r0:db1
  200. jsr $c256; do dialog box
  201. ;====
  202.