home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / CGRAPH.ZIP / C-ITOH.DOC < prev    next >
Text File  |  1998-07-30  |  1KB  |  83 lines
  1.      Several   persons  have  asked  about  interfacing  the  Graphics
  2. Software to the C.Itoh printer.  The following is recommended for  the
  3. C.Itoh Prowriter Mod 1550:
  4.  
  5.      Bit image graphics using 8 head wires is supported by the C.Itoh.
  6. The  graphics mode is entered by an escape sequence which includes the
  7. number of sequential graphic characters ...
  8.  
  9.         <ESC> 'Snnnn' 
  10.  
  11.      Where  nnnn  is  the  ASCII  representation  of  the  number   of
  12. characters,  ie:  if  200  characters  are  to be transmitted then the
  13. sequence is:
  14.  
  15.      <ESC> 'S0200'
  16.  
  17.      The  following  code is UNTESTED and should be used as a starting
  18. point for the C.Itoh interface.
  19.  
  20.      Substitute for XFRPLT
  21.  
  22. ;
  23. ESC-GR:    DEFB    27,'S0539'    ; 0539 = 7*59 + 126 
  24. ;                  7*LINES + FILL1
  25. XFRPLT:
  26.     IF    PAS.Z
  27.     ENTRY    XFRPLT
  28.     PUSH    IX
  29.     PUSH    IY
  30.     ENDIF
  31. ;
  32.     LD    IX,(IMGPTR)
  33.     LD    C,LINES
  34. XFR1:
  35. ;
  36.     PUSH    BC
  37.     LD    DE,ESC-GR
  38.     LD    C,5
  39.     CALL    BDOS
  40. ;
  41.     LD    B,FILL1
  42. XFR10:
  43.     LD    A,0
  44.     CALL    PRNTR
  45.     DJNZ    XFR10
  46. ;
  47.     LD    BC,LENGTH
  48. XFR2:
  49.     LD    H,(IX+0)
  50.     CALL    ROTL
  51.     CALL    PRNTR
  52.     INC    IX
  53.     DEC    BC
  54.     LD    A,C
  55.     OR    B
  56.     JR    NZ,XFR2
  57. ;
  58.     POP    BC
  59.     DEC    C
  60.     JR    NZ,XFR1
  61. ;
  62.     IF    PAS.Z
  63.     POP    IY
  64.     POP    IX
  65.     ENDIF
  66. ;
  67.     RET
  68. ;
  69. ;    Reverse bit order for printer
  70. ROTL:
  71.     PUSH    DE
  72.     PUSH    BC
  73.     XOR    A
  74.     LD    B,8
  75. ROTL2:
  76.     SRL    H
  77.     RLA    A
  78.     DJNZ    ROTL2
  79.     POP    BC
  80.     POP    DE
  81.     RET
  82. ;
  83.