home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / RiscOS / APP / DEVS / LIB / GSTOBJ.ZIP / GstObjects / squash / Example / Squash (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1994-09-14  |  599b  |  29 lines
  1.  Author: George Taylor, george@tardis.ed.ac.uk
  2. _AssembleRequests_squash
  3.  b,p,P%,requestBlock,pairsStart,pairsEnd,branchStart,branchEnd
  4.  b 256
  5.  p=0 
  6. [ OPT p
  7. .requestBlock
  8. ; Adhesive request block
  9.  EQUD 145
  10.  EQUD 0
  11.  EQUD 0
  12.  EQUD 0
  13. # EQUD (branchEnd-branchStart)/4
  14. ! EQUD (pairsEnd-pairsStart)/8
  15. ; pairs themselves
  16. .pairsStart
  17.   EQUD 0
  18.   EQUD 1
  19. .pairsEnd
  20. ; branch table
  21. .branchStart
  22. .squash_GetSize%
  23.   MOVS  PC,R14
  24. .squash_Load%
  25.   MOVS  PC,R14
  26. .branchEnd
  27.  EQUD 0
  28. = requestBlock
  29.