please dont rip this site

Here is a pic of the unit I built:

[I'm not sure of the] partnumbers for the print head, but most are interchangeable in that they are esentially large shiftregisters with multiple output strobes (if all several 1000 odd outputs drove at once you would need a massive psu)

From: andrew.mcmeikan@mitswa.com.au
Sent: Tuesday, September 21, 1999 5:00 PM
To: eplus1@san.rr.com
Subject: Re: send file thprn.asm

                ;be carefull when assembling                           
                ;there is a lookup table that MUST NOT cross a 
                ;256 byte boundry ---- CHECK IT

                LIST      P=16C84, F=INHX8M
                ;thermal printer controler
innerloop = 0ff
lilloop = 01
bigloop =0ff


strobe          macro   bt
                bsf     0x13,bt         ;bit for strobe
                bcf 0b,7                ;dont want interupts
                call outsr              ;clock it out
                call lildly             ;let it burn in
                bsf 0b,7                ;re-enable interupts
                bcf 0x13,bt             ;so next outsr clears it
                endm


                ORG     0x0000

                GOTO    main

                ORG     0x0004    
                ;entry occurs in here when host pulls strobe signal low
                ;to indicate data that requires printing
                ;useing this int routine occupies two levels of stack
                ;one for the return address and one for outsr's return
                ;centronics pinouts
                ; pin 1 strobe is connected to  RB0
                ; pin 2 data1   "       "       RA1
                ; pin 3 data2   "       "       RA2
                ; pin 4 data3   "       "       RA3
                ; pin 5 data4   "       "       RA4
                ; pin 6 data5   "       "       RB1
                ; pin 7 data6   "       "       RB2
                ; pin 8 data7   "       "       RB3
                ; pin 9 data8   "       "       RB4
                ; pin10 ack     "       "       Cap from BSY this dips low
                ;                                       when want next byte
                ; pin11 busy   is connected to  RA0  High= offline
                ; pin12 Paper out is connected to photocell High=no paper
                ;pins 19 to 30 are signal grounds GND
                ; pin31 INT    is connected to RESET (via diode)
                ;                       and is used to initialize printer

                
                movwf   0c              ;save 'W' in reg file 0c
                swapf   3,w             ;grab the flags
                movwf   0d              ;in reg 'd'
                                        ;should now be safe to continue!
                bsf     5,0             ;say we are busy


                ;read both ports to get byte of data
                rrf     5,w             ;read port a shifting data down one
                andlw   0f              ;only keep bottom bits
                movwf   0x16            ;keep incomming data here
                rrf     6,w             ;read port b shifting down one
                andlw   0f              ;wipe out extraneous bits
                movwf   0x17            ;waste another register
                swapf   0x17,w          ;get 'b' data lower into upper W
                iorwf   0x16,f          ;or top bits into data
                ;bit pattern from host now in 0x16

                incf    0e,f            ;increment our count of bytes
                
                ;clock data into thermal head
                movlw   08              ;for 8 bits
                movwf   0x17            ;better keep count of it
clkhd:          rlf     0x16,f          ;rotate it thru carry
                bsf     0x12,4          ;set data high
                btfss   3,0             ;check the carry flag
                bcf     0x12,4          ;clear data if required
                call outsr
                bsf     0x12,5          ;clock that bit in
                call outsr
                bcf     0x12,5          ;drop clock again
                call outsr
                decfsz  0x17,f          ;have we finished loop yet ?
                goto clkhd              ;guess not
                ;no point doing the extra shift as we are just
                ;throwing the data away once it is in the head


                ;if byte count=max then lets latch and let the main routine 
                ;                                         print it
                movlw   0xc0 ;try 192           ;216 max bytes per line 1728 bits
                subwf   0e,w            ;check max against our byte count
                btfss   3,2             ;the same? result of zero?
                goto continue           ;no its ok, head not full yet

                ;need to latch thermal head 
                ; We do not not lower busy here 
                ;as main routine will do so once it has reset
                ;the counter.

                bsf 0x12,6              ;latch bit for thermal head
                call outsr              ;send- no one else better be using it
                bcf 0x12,6              ;put back
                call outsr              ;send that to

                goto exint              ;leave int handler

continue:       ;tell host we are no longer busy, get next byte
                bcf     5,0             ;bring BSY low
                ;and fall thru to exit :)
exint:                                  ;now restore to before interupt
                swapf   0d,w            ;put flags back in order in W
                movwf   3               ;stickem bick in flags
                swapf   0c,f            ;flip saved W
                swapf   0c,w            ;flip it back into W
                bcf     0b,1            ;clear INTF flag so we can get more
                RETFIE            



main            ;thermal printer control program 192 dpi 9 inch 1728 pixels
                ;need to set up direction bits for ports
                ;and set initial pin levels

                movlw   0               ;pullups and interrupt on neg edge
                option                  ;set options
                movlw 0ff
                movf    5,f             ;set all pins high on port a
                movlw 0fe               ;RA0 as output
                tris    5               ;porta as input except RA0
                movlw   01f             ;make bits 6,7 &5 low
                movf    6,f
                movlw   01f             ;port b 5,6,7 as output
                tris    6               ;make it so !
                movlw   08              ;specify which phase to start on
                movwf   0x15            ;store it somewhere safe
                clrf    0e              ;zero byte count for head
                 movlw  00              ;phases off clk,lat,data, strb off
                 movwf   0x12            ;data for shift reg 1
                 movlw  00              ;all strobes off (low)
                 movwf   0x13            ;data for shift reg 2
                 call outsr             ;set all pins high except for stepper
                movlw   0x90            ;enable RB0 and GIE interupt bits
                movwf    0b             ;interupts now turned on!
                bcf 5,0                 ;say we are not busy
p1=8;9 ;1                                 
p2=4;8 ;3         ;ok here are definitions of how the shift registers are wired
p3=2;0c;2         ; ok on 0x12    bit0    stepper phase A
p4=1;4 ;6         ;               bit1    "       "     B
p5=8;6 ;4         ;               bit2    "       "     C
p6=4;2 ;0c        ;               bit3    "       "     D
p7=2;3 ;8         ;               bit4    Data for thermal head
p8=1;1 ;9         ;               bit5    Clock for thermal Head
                ;               bit6    Latch for thermal head
                ;               bit7    strobe 1 for thermal head

                ;       0x13    bit0 to bit7 rest of strobes for head


mloop:          ;this is the loopy bit of main
                ;we sit in here till we get a full head
                ;then we reset the counter, send an ack to the host
                ;print the line out and advance the paper, then we sit until
                ;the head is full again :)
                                        ;first check if the head is full
                movlw   0xc0 ;try 192            ;216 max bytes per line 1728 bits
                subwf   0e,w            ;check max against our byte count
                btfss   3,2             ;the same? result of zero?
                goto mloop              ;no not yet keep waiting
                clrf    0e              ;Ok we've spotted the head full

                
                ;need to strobe head drivers          
                bsf     0x12,7          ;strb1
                bcf     0xb,7           ;turn off interupts
                call outsr              ;Fire!
                call lildly             ;let it burn!
                bsf 0b,7                ;re-enable interupts
                bcf     0x12,7          ;ok thats done
                
                strobe 0
                strobe 1
                strobe 2
                strobe 3
                strobe 4
                strobe 5
                strobe 6
                strobe 7
                
                bcf     0b,7            ;turn off interupts
                call outsr              ;yay! all strobes Fired!
                bcf 5,0                 ;ok we aren't busy any more
                bsf 0b,7                ;re-enable interupts

                call papadv             ;move paper on to next line
                goto mloop              ;lets go back and see if another
                                        ;line is ready yet

phlook:         ;this routine looks up the value for a particular phase
                ;important that this lookup resides within a 256 byte block
                ;as PCL is directly modified.  if called with value grater 
                ;than 8 ,will cause who knows what kind of crash!
                addwf   02,f            ;ok now its going to jump :)
                nop                     ;err dont expect zero ?!?!
                retlw   p8              ;return with phase 8
                retlw   p7              ;coz we are counting down
                retlw   p6              ;remember... see next routine!
                retlw   p5
                retlw   p4
                retlw   p3
                retlw   p2
                retlw   p1
                sleep                   ;coz its all gone wrong if it
                                        ;gets here or past!
                                        ;check the listing to be sure
                                        ;it fits between page boundries!

papadv:         ;this routine is to activate a paper advance one step
                ;it will use register #15 to keep track of which
                ;point in the phase cycle it is
                movlw   0f0             ;prep mask
                bcf     0b,7            ;diable interupts
                andwf   0x12,f          ;nock off bottom bits
                movf    0x15,w          ;grab our phase number into W
                call phlook
                iorwf   0x12,f          ;new pattern now set
                bsf     0b,7            ;ints re-enabled
                decf    0x15,f          ;get next phase number
                btfsc   3,2             ;did we hit zero?
                goto recount            ;yep need to reload the counter
                bcf     0b,7            ;turn off interupts coz of (outsr)
                call outsr              ;jump to out put new phase
                bsf     0b,7            ;turn on interupts again
                return                  ;and go back
recount:        movlw   08              ;we hit zero reset it back to 8
                movwf   0x15            ;use it next time round
                bcf     0b,7            ;clear interupt enable
                call    outsr           ;I know its just below us 
                bsf     0b,7            ;but tis only way to keep
                return                  ;the interupts rightly enabled

outsr:          ;this routine takes bytes at 0x12 and 0x13
                ;and clocks them out onto the shift registers
                ;shift registers accessed on port b bits 5,6 & 7
                ;bit 6 as clock - clocks data on POSITIVE edge
                ;bit 7 as data  - non inverted
                ;bit 5 as strobe - latches data on NEGATIVE edge
                ; we are sending lsb first ie bit# 1 on shift register
                ; output pin #8
                ; sending byte at address 0x12 first then 0x13
                ; this puts 0x12 on the last shift register in line
                ;uses reg # 14 to keep count of bits

                ;since this code is NON-RE-ENTERENT, do NOT call it
                ;while interupts are enabled, coz the int handler
                ;calls this routine to access the thermal head.

                movlw   08              ;for 8 bits
                movwf   0x14            ;better keep count of it
shiftbits:      rrf     0x12,f          ;rotate it thru carry
                bsf     6,7             ;set data high
                btfss   3,0             ;check the carry flag
                bcf     6,7             ;clear data if required
                bsf     6,6             ;clock that bit in
                bcf     6,6             ;drop clock again
                decfsz  0x14,f          ;have we finished loop yet ?
                goto shiftbits          ;guess not
                rrf     0x12,f          ;preserve the data, shift the carry
                        ;now we have finished one byte lets do the other
                movlw   08              ;for 8 bits
                movwf   0x14            ;better keep count of it
shiftbitsagain: rrf     0x13,f          ;rotate it thru carry
                bsf     6,7             ;set data high
                btfss   3,0             ;check the carry flag
                bcf     6,7             ;clear data if required
                bsf     6,6             ;clock that bit in
                bcf     6,6             ;drop clock again
                decfsz  0x14,f          ;have we finished loop yet ?
                goto shiftbitsagain     ;guess not
                rrf     0x13,f          ;preserve the data, shift the carry
                        ;now we have really finished clocking bits
                bsf     6,5             ;bring up the strobe line
                bcf     6,5             ;and LATCH it
                return                  ;back to where ever.


lildly          movlw lilloop
                movwf 0x11
                goto reload
bigdly          MOVLW   bigloop
                MOVWF   0x11      
reload          MOVLW   innerloop   
                MOVWF   0x10      
inloop          NOP               
                DECFSZ  0x10      , f       
                GOTO    inloop
                DECFSZ  0x11      , f       
                GOTO    reload
                RETURN            


                                  
                ORG     0X2000
                DATA    00
                DATA    00
                DATA    00
                DATA    00


                ORG     0x2007    
                DATA    0x19            ;fuse settings
                                  
                org     0x2100
                ;data    00
                ;data    00
                ;data    00

                END

See also:


file: /Techref/microchip/thprn_asm.htm, 15KB, , updated: 2005/10/12 13:04, local time: 2014/7/22 18:28,
TOP NEW HELP FIND: 
54.227.67.210:LOG IN

 ©2014 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?
Please DO link to this page! Digg it! / MAKE! / 

<A HREF="http://www.piclist.com/techref/microchip/thprn_asm.htm"> PIC Terman Printer Controller</A>

After you find an appropriate page, you are invited to your to this massmind site! (posts will be visible only to you before review) Just type in the box and press the Post button. (HTML welcomed, but not the <A tag: Instead, use the link box to link to another page. A tutorial is available Members can login to post directly, become page editors, and be credited for their posts.


Link? Put it here: 
if you want a response, please enter your email address: 
Attn spammers: All posts are reviewed before being made visible to anyone other than the poster.
Did you find what you needed?

  PICList 2014 contributors:
o List host: MIT, Site host massmind.org, Top posters @20140722 RussellMc, Richard R. Pope, IVP, alan.b.pearce, John Gardner, Isaac Marino Bavaresco, Bob Blick, James Cameron, Josh Koffman, cdb,
* Page Editors: James Newton, David Cary, and YOU!
* Roman Black of Black Robotics donates from sales of Linistep stepper controller kits.
* Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters.
* Monthly Subscribers: Gregg Rew. on-going support is MOST appreciated!
* Contributors: Richard Seriani, Sr.
 

Welcome to www.piclist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .