home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / gstobjects_1 / message / Example / BasicC (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1994-09-10  |  1.0 KB  |  49 lines
  1.  C from BASIC
  2.  Author: George Taylor, george@tardis.ed.ac.uk
  3. _StringFrom0(A%)
  4.  basicC_StringFrom0,A%
  5. _StringTo0(A%)
  6.  basicC_StringTo0,A%
  7. _CCall(x)
  8.  x<100 
  9. = VectorBase+x*4
  10. = VectorBase+192+(x-100)*4
  11. _BasicCInit
  12. VectorBase=
  13.  basicC_Init
  14. _AssembleRequests_basicC
  15.  b,p,P%,requestBlock,pairsStart,pairsEnd,branchStart,branchEnd
  16.  b 256
  17.  p=0 
  18. [ OPT p
  19. .requestBlock
  20. ; Adhesive request block
  21.  EQUD 142
  22.  EQUD 0
  23.  EQUD 0
  24.  EQUD 0
  25. $# EQUD (branchEnd-branchStart)/4
  26. %! EQUD (pairsEnd-pairsStart)/8
  27. ; pairs themselves
  28. .pairsStart
  29.   EQUD 0
  30.   EQUD 5
  31. .pairsEnd
  32. ; branch table
  33. .branchStart
  34. .basicC_StringTo0
  35.   MOVS  PC,R14
  36. .basicC_StringFrom0
  37.   MOVS  PC,R14
  38. .basicC_ToDouble
  39.   MOVS  PC,R14
  40. .basicC_FromDouble
  41.   MOVS  PC,R14
  42. .basicC_Init
  43.   MOVS  PC,R14
  44. .basicC_CCall
  45.   MOVS  PC,R14
  46. .branchEnd
  47.  EQUD 0
  48. = requestBlock
  49.