home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / CopeAssembler.lnx / QV_SYSTEM (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  6.7 KB  |  276 lines
  1. qv_system
  2. prg FORMATTED geos FILE v1.0
  3. cope source v1.1
  4. cope eDITOR v1.2
  5. uNTITLED
  6. eDITsOURCE
  7. @7@u@G@W@
  8. ; *****************
  9. ; *     equates for geos qUICKvIEW pROGRAM
  10. ; *             by bill sharp
  11. ; ***************
  12. r0 = $02
  13. r1 = $04
  14. r2 = $06
  15. r3 = $08
  16. r4 = $0a
  17. r5 = $0c
  18. r6 = $0e
  19. r7 = $10
  20. r8 = $12
  21. r9 = $14
  22. r10 = $16
  23. r11 = $18
  24. r12 = $1a
  25. r13 = $1c
  26. a0 = $fb
  27. a1 = $fd
  28. a2 = $70
  29. a3 = $72
  30. a4 = $74
  31. a5 = $76
  32. a6 = $78
  33. a7 = $7a
  34. a8 = $7c
  35. a9 = $7e
  36. ;-----
  37. ; constants
  38. tABS = $4004
  39. CURdRIVE = $8489
  40. CURrECORD = $8496
  41. DIReNTRYbUF = $8400
  42. fILEhEADER = $8100
  43. curdhd = $8200
  44. NUMdRIVES = $848d
  45. SYSdbdATA = $851d
  46. ;----
  47. ; note:
  48. ;  tHE MORE LABELS YOU HAVE THE SLOWER THE aSSEMBLER
  49. ;  WILL RUN.  pLACE A SEMI-COLON IN FRONT OF THE ROUTINES
  50. ;  YOU WILL NOT BE USING.
  51. ;misc
  52. ;bOOTgeos     =  $c000
  53. ;rESEThANDLE   =  $c003
  54. ;iNTERRUPTmAIN  =  $c100
  55. ; processes
  56. ;iNITpROCESSES   =  $c103
  57. ;rESTARTpROCESS =  $c106
  58. ;eNABLEpROCESS  =  $c109
  59. ;bLOCKpROCESS   =  $c10c
  60. ;uNBLOCKpROCESS =  $c10f
  61. ;fREEZEpROCESS  =  $c112
  62. ;uNFREEZEpROCESS = $c115
  63. ; graphics
  64. ;hORIZONTALlINE   =  $c118
  65. ;iNVERTlINE       =  $c11b
  66. ;rECOVERlINE    = $c11e
  67. ;vERTICALlINE     = $c121
  68.  rECTANGLE      = $c124
  69. ;fRAMErECTANGLE = $c127
  70.  iNVERTrECTANGLE = $c12a
  71. ;rECOVERrECTANGLE = $c12d
  72. ;dRAWlINE  = $c130
  73. ;dRAWpOINT = $c133
  74. ;gRAPHICSsTRING = $c136
  75.  sETpATTERN =$c139
  76.  gETsCANlINE = $c13c
  77. ;tESTpOINT = $c13f
  78. ; background generation
  79. ;bITMAPuP = $c142
  80. ;  character manipulation
  81.  pUTcHAR = $c145
  82.  pUTsTRING = $c148
  83. ;uSEsYSTEMfONT = $c14b
  84. ; mouse & menus
  85. ;sTARTmOUSEmODE = $c14e
  86. ;rECOVERmENU = $c154
  87. ;rECOVERaLLmENUS = $c157
  88.  dOiCONS = $c15a
  89. ; utilities
  90. ;dsHIFTlEFT = $c15d
  91. ;bbmULT = $c160
  92. ;bmULT = $c163
  93. ;dmULT = $c166
  94. ;dDIV = $c169
  95. ;dsDIV = $c16c
  96. ;dABS = $c16f
  97. ;dNEGATE = $c172
  98. ;dDEC = $c175
  99. ;cLEARrAM = $c178
  100. ;fILLrAM = $c17b
  101.  mOVEdATA = $c17e
  102. ;iNITrAM = $c181
  103. ;pUTdECIMAL = $c184
  104. ;gETrANDOM = $c187
  105. ; misc mouse, menu, graphics, sleep
  106. ;mOUSEuP = $c18a
  107. ;mOUSEoFF = $c18d
  108. ;dOpREVIOUSmENU = $c190
  109. ;rEdOmENU = $c193
  110. ;gETsERIALnUMBER = $c196
  111. ;sLEEP = $c199
  112. ;cLEARmOUSEmODE = $c19c
  113.  I_rECTANGLE = $c19f
  114. ;I_fRAMErECTANGLE = $c1a2
  115. ;I_rECOVERrECTANGLE = $c1a5
  116. ;I_gRAPHICSsTRING = $c1a8
  117. ;  background generation
  118. ;I_bITMAPuP = $c1ab
  119. ; character manipulatiion
  120.  I_pUTsTRING = $c1ae
  121. ;gETrEALsIZE = $c1b1
  122. ;      mouse & menus
  123. ;      utilities
  124. ;I_fILLrAM = $c1b4
  125.  I_mOVEdATA = $c1b7
  126. ; routines added later
  127. ;gETsTRING = $c1ba
  128. ;gOTOfIRSTmENU = $c1bd
  129. ;iNITtEXTpROMPT = $c1c0
  130. ;mAINlOOP = $c1c3
  131. ;dRAWsPRITE = $c1c6
  132. ;gETcHARwIDTH = $c1c9
  133. ;lOADcHARsET = $c1cc
  134. ;pOSsPRITE = $c1cf
  135. ;eNABLsPRITE = $c1d2
  136. ;dISABLsPRITE = $c1d5
  137. ;cALLrOUTINE = $c1d8
  138. ;cALCbLKSfREE = $c1db
  139. ;cHKdKgeos = $c1de
  140.  nEWdISK = $c1e1
  141. ;gETbLOCK = $c1e4
  142. ;pUTbLOCK = $c1e7
  143. ;sETgeosdISK = $c1ea
  144.  sAVEfILE = $c1ed
  145. ;sETgdIReNTRY = $c1f0
  146. ;bLDgdIReNTRY = $c1f3
  147. ;gETfREEdIRbLK = $c1f6
  148.  wRITEfILE = $c1f9
  149. ;bLKaLLOC = $c1fc
  150.  rEADfILE = $c1ff
  151.  sMALLpUTcHAR = $c202
  152. ;fOLLOWcHAIN = $c205
  153.  gETfILE = $c208
  154.  fINDfILE = $c20b
  155. ;crc = $c20e
  156.  lDfILE = $c211
  157. ;eNTERtURBO = $c214
  158. ;lDdESKaCC = $c217
  159. ;rEADbLOCK = $c21a
  160. ;lDaPPLIC = $c21d
  161. ;wRITEbLOCK = $c220
  162. ;vERwRITEbLOCK = $c223
  163. ;fREEfILE = $c226
  164.  gETfhDRiNFO = $c229
  165.  eNTERdESKtOP = $c22c
  166. ;sTARTaPPL = $c22f
  167. ;eXITtURBO = $c232
  168. ;pURGEtURBO = $c235
  169.  dELETEfILE = $c238
  170.  fINDftYPES = $c23b
  171. ;rSTRaPPL = $c23e
  172. ;tObASIC = $c241
  173. ;fASTdELfILE = c244
  174. ;gETdIRhEAD = $c247
  175. ;pUTdIRHEAD = $c24a
  176. ;nXTbLKaLLOC = $c24d
  177. ;iMPRINTrECTANGLE = $c250
  178.  I_iMPRINTrECTANGLE = $c253
  179. ;dOdLGbOX = $c256
  180. ;rENAMEfILE = $c259
  181. ;iNITfORio = $c25c
  182. ;dONEwITHio = $c25f
  183. ;dsHIFTrIGHT = $c262
  184. ;cOPYsTRING = $c265
  185. ;cOPYfsTRING = $c268
  186. ;cMPsTRING = $c26b
  187. ;cMPfsTRING = $c26e
  188. ;fIRSTiNIT = $c271
  189.  oPENrECORDfILE = $c274
  190.  cLOSErECORDfILE = $c277
  191.  nEXTrECORD = $c27a
  192.  pREVIOUSrECORD = $c27d
  193.  pOINTrECORD = $c280
  194. ;dELETErECORD = $c283
  195. ;iNSERTrECORD = $c286
  196.  aPPENDrECORD = $c289
  197.  rEADrECORD = $c28c
  198.  wRITErECORD = $c28f
  199. ;sETnEXTfREE = $c292
  200. ;uPDATErECORDfILE = $c295
  201.  gETpTRcURdKnM = $c298
  202. ;pROMPToN = $c29b
  203. ;pROMPToFF = $c29e
  204.  oPENdISK = $c2a1
  205. ;dOiNLINErETURN = $c2a4
  206. ;gETnEXTcHAR = $c2a7
  207. ;bITMAPcLIP = $c2aa
  208. ;fINDbambIT = $c2ad
  209.  sETdEVICE = $c2b0
  210.  iSmSEiNrEGION = $c2b3
  211. ;rEADbYTE = $c2b6
  212. ;fREEbLOCK = $c2b9
  213. ;cHANGEdISKdEVICE = $c2bc
  214. ;rSTRfRMdIALOG = $c2bf
  215. ;pANIC = $c2c2
  216. ;bIToTHERcLIP = $c2c5
  217. ;sTASHram = $c2c8
  218. ;fETCHram = $c2cb
  219. ;sWAPram = $c2ce
  220. ;vERIFYram = $c2d1
  221. ;dOramoP = $c2d4
  222. ;maCROS FOR aSSEMBLER
  223. ;------
  224. ; macros
  225. .mac LOADW; EXAMP.LE LOAD r0:MEMUS
  226. LDX #<?2
  227. STX ?1
  228. LDX #>?2
  229. STX ?1+1
  230. ;----
  231. ; THIS MACRO SETS UP THE MENU STRUCTURE
  232. .mac MENU
  233. .wORD ?1
  234. .bYTE ?2
  235. .wORD ?3
  236. ;-----
  237. .mac MOVEW
  238.  LDX ?1
  239.  STX ?2
  240.  LDX ?1+1
  241.  STX ?2+1
  242. ;----
  243. .mac ADDW
  244. LDA ?1
  245. ADC ?2
  246. STA ?2
  247. LDA ?1+1
  248. ADC ?2+1
  249. STA ?2+1
  250. ;----
  251. .mac ADDY
  252. ADC ?1
  253. STA ?1
  254. LDA ?1+1
  255. ADC #0
  256. STA ?1+1
  257. ;----
  258. .mac BRA
  259. JMP ?1
  260. ;-----
  261. .mac SUBW
  262.  lda ?1
  263.  sbc ?2
  264.  sta ?3
  265.  LDA ?1+1
  266.  SBC ?2+1
  267.  STA ?3+1
  268. ;-----
  269. .mac BRANCH
  270. BVC ?1
  271. ;=====
  272. ;tHIS IS PAGE 4
  273. ; IT IS NOT BLANK ANYMORE.
  274. tHIS IS PAGE 5.
  275. tHIS IS PAGE 10
  276.