home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / CreativeComputers.iso / shareware / text / dvi_3.62 / source / dvisrc.lha / dvihplj.s < prev    next >
Text File  |  1993-07-09  |  3KB  |  217 lines
  1. #NO_APP
  2. gcc_compiled.:
  3. .text
  4.     .even
  5. _prstr:
  6.     link a6,#-256
  7.     moveml #0x2020,sp@-
  8.     pea a6@(12)
  9.     movel a6@(8),sp@-
  10.     movel a6,d2
  11.     addl #-256,d2
  12.     movel d2,sp@-
  13.     jbsr _vsprintf
  14.     movel d2,a2
  15.     addw #12,sp
  16.     tstb a2@
  17.     jeq L6
  18. L5:
  19.     moveb a2@+,d1
  20.     extw d1
  21.     movew d1,sp@-
  22.     jbsr _prbyte
  23.     addqw #2,sp
  24.     tstb a2@
  25.     jne L5
  26. L6:
  27.     moveml a6@(-264),#0x404
  28.     unlk a6
  29.     rts
  30. LC0:
  31.     .ascii "\33*p%dY\0"
  32.     .even
  33. _skpl_hplj:
  34.     link a6,#0
  35.     movew a6@(8),d0
  36.     addw _vpos,d0
  37.     movew d0,_vpos
  38.     movew d0,sp@-
  39.     pea LC0
  40.     jbsr _prstr
  41.     unlk a6
  42.     rts
  43.     .even
  44. _skpl_hpljlow:
  45.     link a6,#0
  46.     movew a6@(8),d1
  47.     movew d1,d0
  48.     aslw #1,d0
  49.     addw d1,d0
  50.     addw _vpos,d0
  51.     movew d0,_vpos
  52.     movew d0,sp@-
  53.     pea LC0
  54.     jbsr _prstr
  55.     unlk a6
  56.     rts
  57. LC1:
  58.     .ascii "\33&f0S\33*p%dX\0"
  59. LC2:
  60.     .ascii "\33*r1A\0"
  61. LC3:
  62.     .ascii "\33*b%dW\0"
  63. LC4:
  64.     .ascii "\33*rB\33&f1S\0"
  65.     .even
  66. _send_hplj:
  67.     link a6,#0
  68.     moveml #0x3c30,sp@-
  69.     movel a6@(8),a3
  70.     addl _frame_buffer,a3
  71.     movew a6@(12),d4
  72.     addw d4,d4
  73.     movew a6@(16),sp@-
  74.     pea LC1
  75.     lea _prstr,a2
  76.     jbsr a2@
  77.     pea LC2
  78.     jbsr a2@
  79.     clrw d5
  80.     addw #10,sp
  81.     movew a6@(14),d0
  82.     subw d4,d0
  83.     movew d0,a2
  84. L17:
  85.     movew d4,sp@-
  86.     pea LC3
  87.     jbsr _prstr
  88.     clrw d3
  89.     addqw #6,sp
  90.     cmpw d3,d4
  91.     jle L18
  92.     clrw d2
  93. L16:
  94.     moveb a3@+,d2
  95.     movew d2,sp@-
  96.     jbsr _prbyte
  97.     addqw #2,sp
  98.     addqw #1,d3
  99.     cmpw d3,d4
  100.     jgt L16
  101. L18:
  102.     addl a2,a3
  103.     addqw #1,d5
  104.     cmpw #23,d5
  105.     jle L17
  106.     pea LC4
  107.     jbsr _prstr
  108.     clrw d0
  109.     moveml a6@(-24),#0xc3c
  110.     unlk a6
  111.     rts
  112.     .even
  113. _send_hpljlow:
  114.     link a6,#0
  115.     moveml #0x3c30,sp@-
  116.     movew a6@(16),d0
  117.     movel a6@(8),a3
  118.     addl _frame_buffer,a3
  119.     movew a6@(12),d4
  120.     addw d4,d4
  121.     movew d0,d1
  122.     aslw #1,d1
  123.     addw d0,d1
  124.     movew d1,sp@-
  125.     pea LC1
  126.     lea _prstr,a2
  127.     jbsr a2@
  128.     pea LC2
  129.     jbsr a2@
  130.     clrw d5
  131.     addw #10,sp
  132.     movew a6@(14),d0
  133.     subw d4,d0
  134.     movew d0,a2
  135. L27:
  136.     movew d4,sp@-
  137.     pea LC3
  138.     jbsr _prstr
  139.     clrw d3
  140.     addqw #6,sp
  141.     cmpw d3,d4
  142.     jle L28
  143.     clrw d2
  144. L26:
  145.     moveb a3@+,d2
  146.     movew d2,sp@-
  147.     jbsr _prbyte
  148.     addqw #2,sp
  149.     addqw #1,d3
  150.     cmpw d3,d4
  151.     jgt L26
  152. L28:
  153.     addl a2,a3
  154.     addqw #1,d5
  155.     cmpw #23,d5
  156.     jle L27
  157.     pea LC4
  158.     jbsr _prstr
  159.     clrw d0
  160.     moveml a6@(-24),#0xc3c
  161.     unlk a6
  162.     rts
  163. LC5:
  164.     .ascii "\33E\33*t300R\33&l0O\0"
  165.     .even
  166. _init_hplj:
  167.     link a6,#0
  168.     clrw _vpos
  169.     pea LC5
  170.     jbsr _prstr
  171.     unlk a6
  172.     rts
  173. LC6:
  174.     .ascii "\33E\33*t100R\33&l0O\0"
  175.     .even
  176. _init_hpljlow:
  177.     link a6,#0
  178.     clrw _vpos
  179.     pea LC6
  180.     jbsr _prstr
  181.     unlk a6
  182.     rts
  183. LC7:
  184.     .ascii "\14\0"
  185.     .even
  186. _exit_hplj:
  187.     link a6,#0
  188.     pea LC7
  189.     jbsr _prstr
  190.     unlk a6
  191.     rts
  192.     .even
  193. .globl _hplj
  194. _hplj:
  195.     link a6,#0
  196.     pea _exit_hplj
  197.     pea _init_hplj
  198.     pea _send_hplj
  199.     pea _skpl_hplj
  200.     movew #24,sp@-
  201.     jbsr _print_page
  202.     unlk a6
  203.     rts
  204.     .even
  205. .globl _hpljlow
  206. _hpljlow:
  207.     link a6,#0
  208.     pea _exit_hplj
  209.     pea _init_hpljlow
  210.     pea _send_hpljlow
  211.     pea _skpl_hpljlow
  212.     movew #24,sp@-
  213.     jbsr _print_page
  214.     unlk a6
  215.     rts
  216. .lcomm _vpos,2
  217.