home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / frasrc18.zip / PRINTERA.ASM < prev    next >
Assembly Source File  |  1991-04-16  |  9KB  |  157 lines
  1. ;
  2. ;    Paintjet tables for printer.c, in here so that we can link them
  3. ;    as part of the printer.c overlay and not waste far space.
  4. ;
  5. ;    The tables were copied from Lee Crocker's PGIF program, with
  6. ;    the 8 undithered colors moved to the first 8 table slots.
  7.  
  8. ;    required for compatibility if Turbo ASM
  9. IFDEF ??version
  10. MASM51
  11. QUIRKS
  12. ENDIF
  13.  
  14. .model medium, c
  15.  
  16. .code PRINTER_TEXT ; to combine with printer.c for TC++ overlays
  17.  
  18. ;  This file contains various lookup tables used by PJGIF.  Patterns contains
  19. ;  unsigned values representing each of the 330 HP PaintJet colors.  Each color
  20. ;  at 90 DPI is composed of four dots in 8 colors.  Each hex digit of these
  21. ;  unsigned values represents one of the four dots.  Although the PaintJet will
  22. ;  produce these patterns automatically in 90 DPI mode, it is much faster to do
  23. ;  it in software with the PaintJet in 8-color 180 DPI mode.
  24.  
  25.     public pj_patterns
  26.     public pj_reds
  27.     public pj_greens
  28.     public pj_blues
  29.  
  30. pj_patterns dw 7777h,0000h,1111h,2222h,3333h,4444h,5555h,6666h
  31.         dw         0001h,0002h,0003h,0004h,0005h,0006h,0007h
  32.         dw 0110h,0120h,0130h,0140h,0150h,0160h,0170h,0220h
  33.         dw 0230h,0240h,0250h,0260h,0270h,0330h,0340h,0350h
  34.         dw 0360h,0370h,0440h,0450h,0460h,0470h,0550h,0560h
  35.         dw 0570h,0660h,0670h,0770h,0111h,0112h,0113h,0114h
  36.         dw 0115h,0116h,0117h,2012h,0123h,0124h,0125h,0126h
  37.         dw 0127h,3013h,0134h,0135h,0136h,0137h,4014h,0145h
  38.         dw 0146h,0147h,5015h,0156h,0157h,6016h,0167h,7017h
  39.         dw 0222h,0223h,0224h,0225h,0226h,0227h,3023h,0234h
  40.         dw 0235h,0236h,0237h,4024h,0245h,0246h,0247h,5025h
  41.         dw 0256h,0257h,6026h,0267h,7027h,0333h,0334h,0335h
  42.         dw 0336h,0337h,4034h,0345h,0346h,0347h,5035h,0356h
  43.         dw 0357h,6036h,0367h,7037h,0444h,0445h,0446h,0447h
  44.         dw 5045h,0456h,0457h,6046h,0467h,7047h,0555h,0556h
  45.         dw 0557h,6056h,0567h,7057h,0666h,0667h,7067h,0777h
  46.         dw         1112h,1113h,1114h,1115h,1116h,1117h,2112h
  47.         dw 1123h,2114h,2115h,2116h,2117h,3113h,3114h,3115h
  48.         dw 3116h,3117h,4114h,4115h,4116h,4117h,5115h,5116h
  49.         dw 5117h,6116h,6117h,7117h,1222h,1223h,1224h,1225h
  50.         dw 1226h,1227h,3123h,1234h,1235h,1236h,1237h,4124h
  51.         dw 1245h,1246h,1247h,5125h,1256h,1257h,6126h,1267h
  52.         dw 7127h,1333h,1334h,1335h,1336h,1337h,4134h,1345h
  53.         dw 1346h,1347h,5135h,1356h,1357h,6136h,1367h,7137h
  54.         dw 1444h,1445h,1446h,1447h,5145h,1456h,1457h,6146h
  55.         dw 1467h,7147h,1555h,1556h,1557h,6156h,1567h,7157h
  56.         dw 1666h,1667h,7167h,1777h,      2223h,2224h,2225h
  57.         dw 2226h,2227h,3223h,3224h,3225h,3226h,3227h,4224h
  58.         dw 4225h,4226h,4227h,5225h,5226h,5227h,6226h,6227h
  59.         dw 7227h,2333h,2334h,2335h,2336h,2337h,4234h,2345h
  60.         dw 2346h,2347h,5235h,2356h,2357h,6236h,2367h,7237h
  61.         dw 2444h,2445h,2446h,2447h,5245h,2456h,2457h,6246h
  62.         dw 2467h,7247h,2555h,2556h,2557h,6256h,2567h,7257h
  63.         dw 2666h,2667h,7267h,2777h,      3334h,3335h,3336h
  64.         dw 3337h,4334h,4335h,4336h,4337h,5335h,5336h,5337h
  65.         dw 6336h,6337h,7337h,3444h,3445h,3446h,3447h,5345h
  66.         dw 3456h,3457h,6346h,3467h,7347h,3555h,3556h,3557h
  67.         dw 6356h,3567h,7357h,3666h,3667h,7367h,3777h
  68.         dw 4445h,4446h,4447h,5445h,5446h,5447h,6446h,6447h
  69.         dw 7447h,4555h,4556h,4557h,6456h,4567h,7457h,4666h
  70.         dw 4667h,7467h,4777h,      5556h,5557h,6556h,6557h
  71.         dw 7557h,5666h,5667h,7567h,5777h,       6667h,7667h
  72.         dw 6777h
  73.  
  74. ;  The 3 tables below contain the red, green, and blue values (on a scale of
  75. ;  0..255) of each of the 330 PaintJet colors.    These values are based on data
  76. ;  generously provided by HP customer service.
  77.  
  78. ;            11 <- changed black's value from this, seemed wrong
  79. ;               135 <- changed red's value from this
  80. ;                    11 <- changed blue's value from this
  81. pj_reds     db 229,  2,145,  7,227,  9,136,  5
  82.         db        17, 10, 17, 10, 16, 10, 16, 29, 16, 32, 15, 30, 15, 31,  9
  83.         db    15, 10, 15,  9, 13, 37, 15, 32, 16, 36, 10, 15,  9, 13, 30, 15
  84.         db    31,  8, 13, 38, 62, 26, 68, 26, 63, 26, 68, 16, 35, 16, 33, 16
  85.         db    33, 77, 26, 69, 29, 77, 16, 31, 16, 31, 64, 27, 71, 16, 36, 81
  86.         db     9, 15, 10, 15,  8, 13, 37, 15, 31, 15, 33, 10, 15,  9, 13, 29
  87.         db    15, 28,  8, 12, 28, 98, 28, 79, 32, 94, 16, 34, 17, 35, 73, 30
  88.         db    82, 17, 43,101, 11, 15, 10, 13, 29, 15, 27,  9, 13, 25, 65, 27
  89.         db    71, 16, 35, 88,  7, 12, 39,110,     54,146, 53,136, 58,144, 29
  90.         db    57, 28, 53, 29, 56,159, 54,144, 61,160, 27, 51, 28, 52,135, 55
  91.         db 144, 30, 60,159, 14, 23, 15, 22, 14, 21, 64, 30, 58, 32, 64, 15
  92.         db    22, 15, 21, 54, 31, 56, 14, 22, 64,185, 59,160, 69,185, 29, 57
  93.         db    31, 60,145, 63,162, 33, 71,186, 15, 22, 16, 21, 50, 30, 52, 15
  94.         db    21, 54,134, 58,145, 30, 60,161, 15, 22, 69,187,     13,  9, 14
  95.         db     6, 11, 31, 14, 27, 12, 27, 10, 14,  9, 12, 24,  9, 23,  6,  9
  96.         db    22, 76, 23, 61, 25, 74, 15, 29, 14, 28, 55, 23, 62, 12, 30, 73
  97.         db    11, 15, 10, 12, 25, 14, 23,  8, 11, 20, 50, 22, 53, 13, 26, 61
  98.         db     5,  8, 21, 71,     71,189, 87,227, 30, 63, 32, 69,164, 76,190
  99.         db    37, 89,227, 15, 22, 14, 20, 54, 31, 57, 14, 21, 63,147, 67,163
  100.         db    33, 72,191, 13, 24, 94,228,    15, 10, 13, 26, 14, 23, 10, 13
  101.         db    20, 50, 23, 50, 15, 26, 52,  8, 11, 23, 65,    60,147, 32, 67
  102.         db 166, 14, 24, 77,194,     8, 32, 97
  103.  
  104. ;            11 <- changed black's value from this, seemed wrong
  105. ;                65 <- changed green from this
  106. pj_greens   db 224,  2, 20, 72,211, 10, 11, 55
  107.         db        12, 15, 19, 11, 11, 14, 17, 14, 18, 22, 12, 13, 16, 19, 24
  108.         db    29, 16, 17, 23, 27, 41, 17, 22, 29, 39, 11, 10, 14, 14, 11, 14
  109.         db    17, 21, 25, 40, 16, 21, 28, 14, 16, 19, 25, 28, 37, 18, 20, 26
  110.         db    33, 48, 20, 26, 33, 46, 13, 12, 16, 18, 14, 18, 22, 24, 30, 42
  111.         db    40, 49, 25, 27, 39, 50, 69, 27, 33, 48, 66, 17, 17, 24, 27, 19
  112.         db    28, 35, 38, 48, 68,100, 32, 46, 65, 98, 18, 22, 29, 36, 27, 39
  113.         db    54, 49, 71,105, 11, 10, 14, 12, 10, 14, 13, 20, 20, 25, 11, 15
  114.         db    18, 22, 29, 49, 36, 46, 69,111,     23, 31, 16, 19, 22, 28, 30
  115.         db    37, 20, 22, 28, 34, 54, 22, 29, 36, 53, 14, 15, 17, 19, 17, 19
  116.         db    26, 25, 32, 46, 43, 50, 27, 28, 41, 49, 68, 29, 37, 51, 68, 19
  117.         db    19, 25, 28, 22, 30, 36, 40, 47, 66,104, 35, 51, 68,105, 20, 24
  118.         db    31, 37, 30, 38, 56, 50, 69,103, 13, 12, 15, 14, 13, 15, 16, 21
  119.         db    21, 26, 14, 16, 22, 23, 28, 44, 35, 42, 62,102,     78, 40, 44
  120.         db    65, 78, 98, 43, 53, 76, 99, 26, 27, 36, 40, 29, 43, 50, 63, 75
  121.         db    99,136, 49, 69, 98,142, 28, 32, 42, 51, 39, 52, 73, 77,103,145
  122.         db    17, 17, 21, 21, 18, 22, 24, 34, 37, 43, 19, 23, 30, 40, 48, 69
  123.         db    62, 76,101,147,     72,113,145,218, 33, 42, 52, 71, 61, 77,116
  124.         db 105,148,221, 18, 17, 21, 23, 21, 26, 30, 37, 43, 64, 30, 35, 48
  125.         db    50, 69,115, 77, 99,149,224,    10, 13, 11, 10, 12, 11, 17, 16
  126.         db    15,  9, 11, 12, 17, 17, 22, 26, 27, 36, 61,    14, 18, 21, 26
  127.         db    48, 34, 41, 68,115,    69, 99,149
  128.  
  129. ;            15 <- changed black's value from this, seemed wrong
  130. ;                56 <- changed green from this
  131. ;                       163 <- changed cyan from this
  132. pj_blues    db 216,  2, 34, 48, 33, 73, 64,168
  133.         db        18, 19, 18, 20, 19, 22, 21, 22, 24, 22, 26, 24, 27, 24, 27
  134.         db    24, 29, 27, 31, 29, 22, 27, 25, 30, 28, 31, 29, 33, 33, 28, 32
  135.         db    32, 41, 40, 46, 28, 32, 28, 34, 30, 36, 31, 35, 32, 38, 34, 41
  136.         db    35, 27, 35, 31, 39, 34, 40, 37, 44, 40, 34, 42, 37, 49, 47, 45
  137.         db    40, 36, 43, 40, 47, 43, 33, 40, 36, 45, 41, 44, 41, 49, 46, 40
  138.         db    49, 45, 58, 56, 58, 30, 38, 34, 44, 40, 42, 39, 49, 46, 38, 49
  139.         db    46, 59, 62, 67, 49, 46, 55, 52, 44, 55, 52, 64, 64, 66, 43, 55
  140.         db    53, 66, 70, 78, 87, 91,101,115,     39, 34, 42, 37, 43, 36, 45
  141.         db    38, 47, 42, 49, 43, 34, 41, 36, 44, 38, 49, 45, 52, 46, 40, 47
  142.         db    42, 56, 51, 45, 49, 45, 52, 48, 56, 50, 40, 47, 44, 52, 47, 54
  143.         db    51, 59, 55, 47, 58, 50, 66, 60, 56, 34, 44, 38, 48, 42, 52, 47
  144.         db    56, 50, 42, 51, 46, 64, 59, 57, 60, 56, 64, 61, 52, 61, 57, 72
  145.         db    67, 64, 48, 58, 53, 69, 65, 65, 87, 83, 87, 94,     53, 59, 55
  146.         db    64, 60, 46, 53, 49, 59, 54, 60, 56, 65, 62, 53, 62, 58, 76, 71
  147.         db    68, 41, 50, 45, 56, 51, 58, 53, 63, 59, 49, 60, 56, 74, 71, 71
  148.         db    66, 63, 73, 70, 60, 69, 67, 84, 81, 79, 55, 67, 64, 84, 81, 83
  149.         db 104,104,106,116,     32, 40, 53, 48, 54, 50, 61, 57, 46, 59, 56
  150.         db    76, 75, 80, 64, 59, 70, 67, 57, 69, 65, 83, 81, 85, 54, 68, 66
  151.         db    86, 88, 96,110,114,125,137,    71, 81, 78, 68, 77, 76, 93, 92
  152.         db    90, 65, 77, 75, 92, 93, 96,117,119,126,138,    78, 79, 98,102
  153.         db 110,124,131,143,157,    173,185,200
  154.  
  155.     end
  156.  
  157.