home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / oslib / oslib_1 / OSLib / User / Hdr / CompressJP < prev    next >
Encoding:
Text File  |  1995-07-03  |  2.1 KB  |  77 lines
  1. ;Assembler header file for CompressJPEG
  2. ;written by DefMod (Jun 30 1995) on Mon Jul  3 18:51:07 1995
  3. ;Jonathan Coxhead, Acorn Computers Ltd
  4.  
  5.         [       :LNOT: :DEF: Get_Types
  6.         GBLS    Get_Types
  7.         ]
  8.         [       :LNOT: :DEF: Types_Hdr
  9. Get_Types                       SETS    "GET OS:Hdr.Types"
  10.         |
  11. Get_Types                       SETS    ""
  12.         ]
  13.         $Get_Types
  14.  
  15.         [       :LNOT: :DEF: Get_OS
  16.         GBLS    Get_OS
  17.         ]
  18.         [       :LNOT: :DEF: OS_Hdr
  19. Get_OS                          SETS    "GET OS:Hdr.OS"
  20.         |
  21. Get_OS                          SETS    ""
  22.         ]
  23.         $Get_OS
  24.  
  25.         [       :LNOT: :DEF: Get_JPEG
  26.         GBLS    Get_JPEG
  27.         ]
  28.         [       :LNOT: :DEF: JPEG_Hdr
  29. Get_JPEG                        SETS    "GET OS:Hdr.JPEG"
  30.         |
  31. Get_JPEG                        SETS    ""
  32.         ]
  33.         $Get_JPEG
  34.  
  35.         [       :LNOT: :DEF: CompressJPEG_Hdr
  36.         GBLS    CompressJPEG_Hdr
  37.  
  38. ;Symbols for structure offsets and sizes
  39. CompressJPEG_Tag                *       4 ;abstract type
  40.                                 ^       0
  41. CompressJPEG_Parameters_width   #       Int
  42. CompressJPEG_Parameters_height  #       Int
  43. CompressJPEG_Parameters_quality #       Int
  44. CompressJPEG_Parameters_bytes_per_pixel #       Int
  45. CompressJPEG_Parameters_xdpi    #       Int
  46. CompressJPEG_Parameters_ydpi    #       Int
  47. CompressJPEG_Parameters         *       @
  48.  
  49.  
  50. ;Symbols for SWI's and SWI reason codes
  51. XCompressJPEG_Start             *       &6A500
  52. CompressJPEG_Start              *       &4A500
  53.    ;Entry
  54.    ;  R0 -> image (JPEG_Image)
  55.    ;  R1 = image_size (Int)
  56.    ;  R2 -> parameters (CompressJPEG_Parameters)
  57.    ;  R3 = workspace (pointer to Void)
  58.    ;  R4 = workspace_size (Int)
  59.    ;Exit
  60.    ;  R0 = tag (CompressJPEG_Tag)
  61.  
  62. XCompressJPEG_WriteLine         *       &6A501
  63. CompressJPEG_WriteLine          *       &4A501
  64.    ;Entry
  65.    ;  R0 = tag (CompressJPEG_Tag)
  66.    ;  R1 = pixels (pointer to data)
  67.  
  68. XCompressJPEG_Finish            *       &6A502
  69. CompressJPEG_Finish             *       &4A502
  70.    ;Entry
  71.    ;  R0 = tag (CompressJPEG_Tag)
  72.    ;Exit
  73.    ;  R0 = image_size (Int)
  74.  
  75.         ]
  76.         END
  77.