home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 2
/
crawlyvol2.bin
/
apps
/
dtp
/
pgsmodst
/
atariprt
/
imageiic.s
< prev
next >
Wrap
Text File
|
1991-05-23
|
7KB
|
418 lines
include "prtequ.h"
*
* ImageWriter II color print driver
*
CR equ $d
LF equ $a
FF equ $c
ESC equ $1b
BLACK equ 48
CYAN equ 51
MAGENTA equ 50
YELLOW equ 49
SECTION printer,CODE,PUBLIC
***************************************************************
***************************************************************
***************************************************************
dumbentry:
clr.l d0
rts
dc.l "PRNT"
dc.w 200
*
* distribute the calls to the appropriate routines
*
C8510A:
move.l a0,table
lsl.w #2,d0
lea prntbl,a1
move.l 0(a1,d0.w),a1
jmp (a1)
*
* identify who I am, and set up who I like to speak to.
*
p_ident:
move.l #driver,pdrvrnm(a0) ;pointer to string for driver name
move.w #SERIAL+ASCENDING,device(a0)
prtok: moveq #1,d0
rts
*
* initialize the table of printer specific routines
*
p_init: clr.b pdl(a0) ;no page description language
clr.b pmult(a0) ;automatically print mulitiple copies?
clr.b pman(a0) ;handle manual feed?
move.b #PRT_CMYK,ptype(a0) ;printer type?
move.l sendout(a0),send+2 ;self-modifing code, tisk, tisk!
*
* pminlft and pmaxw must be evenly divisible by 16
* this is the part that should be worked out
*
move.w pdensity(a0),d0
cmp.w #7,d0
bcs pint1
moveq #6,d0
pint1: lsl.w #1,d0
lea xdpi_tbl,a1
move.w 0(a1,d0.w),pxdpi(a0) ;x resolution
lea ydpi_tbl,a1
move.w 0(a1,d0.w),pydpi(a0) ;y resolution
lea minl_tbl,a1
move.w 0(a1,d0.w),pminlft(a0) ;pixels from the left
lea minr_tbl,a1
move.w 0(a1,d0.w),pminrht(a0) ;pixels from the right
lea mint_tbl,a1
move.w 0(a1,d0.w),pmintop(a0) ;pixels down from top
lea minb_tbl,a1
move.w 0(a1,d0.w),pminbot(a0) ;pixels up from bottom
lea xover_tbl,a1
move.w 0(a1,d0.w),pxover(a0) ;percentage of x overlap of dots
lea yover_tbl,a1
move.w 0(a1,d0.w),pyover(a0) ;percentage of y overlap of dots
lea rowht_tbl,a1
move.w 0(a1,d0.w),prowht(a0) ;rows height modula
move.w 0(a1,d0.w),rowht
lea rows_tbl,a1
move.w 0(a1,d0.w),rows
lea grmode_tbl,a1
move.w 0(a1,d0.w),grmode
lsl.w #1,d0
lea maxw_tbl,a1
move.l 0(a1,d0.w),pmaxw(a0) ;maximum # pixels across
lea maxh_tbl,a1
move.l 0(a1,d0.w),pmaxh(a0) ;maximum # pixels down
bra prtok
*
* going to begin printing a document
*
p_bgndoc:
move.b #ESC,d0 ;unidirectional print
bsr send
move.b #">",d0
bra send
*
* about to start printing of a page
*
p_bgnpage:
bra prtok
*
* about to print a new tile for the page
*
p_bgntile:
bra prtok
*
* print a block to the printer
*
p_block:
move.l table,a0
move.l pblockplane(a0),pplane
move.l pblockw(a0),d0
move.w d0,width
move.l pblockptr(a0),a1
move.l (a1),a1
add.l pblockoff(a0),a1
move.l a1,v_base
*
*print the block
*
move.w rows,count
printt: lea setcolor,a0 ;yellow
bsr sendline
move.b #YELLOW,d0
bsr send
move.l v_base,lineptr
move.l pplane,d0
lsl.l #1,d0
add.l d0,lineptr
bsr putline
lea setcolor,a0 ;magenta
bsr sendline
move.b #MAGENTA,d0
bsr send
move.l v_base,lineptr
move.l pplane,d0
add.l d0,lineptr
bsr putline
lea setcolor,a0 ;cyan
bsr sendline
move.b #CYAN,d0
bsr send
move.l v_base,lineptr
bsr putline
lea setcolor,a0 ;black
bsr sendline
move.b #BLACK,d0
bsr send
move.l v_base,lineptr
move.l pplane,d0
lsl.l #1,d0
add.l pplane,d0
add.l d0,lineptr
bsr putline
move.b #ESC,d0 ;sets the line spacing to 1/144"
bsr send
move.b #"T",d0
bsr send
move.b #"0",d0
bsr send
move.b #"1",d0
bsr send
move.b #LF,d0
bsr send
moveq #0,d0
move.w width,d0
add.l d0,v_base
subq.w #1,count
bne printt
*
move.b #ESC,d0 ;sets the line spacing to 1/144"
bsr send
move.b #"T",d0
bsr send
moveq #0,d0
move.w #16,d0
sub.w rows,d0
divu #10,d0
move.l d0,-(sp)
or.b #"0",d0
bsr send
move.l (sp)+,d0
swap d0
or.b #"0",d0
bsr send
move.b #LF,d0
bra send
**************************************
putline:
move.l lineptr,a0
move.w #0,twidth
move.w #7,d1
print0: move.w width,d0
print1: tst.b -1(a0,d0.w)
bne print2
subq.w #1,d0
bne print1
moveq #1,d0
print2: cmp.w twidth,d0
blt print3
move.w d0,twidth
print3: move.w rows,d3
pri1: add.w width,a0
sub.w #1,d3
bgt pri1
dbf d1,print0
*
move.b #ESC,d0
bsr send
move.w grmode,d0
bsr send ;"p" or "P"
*
move.b #ESC,d0 ;sends the # of graphic bytes
bsr send
move.b #"G",d0
bsr send
moveq #0,d0
move.w twidth,d0
lsl.l #3,d0
divu #1000,d0
move.l d0,-(sp)
or.b #"0",d0
bsr send
move.l (sp)+,d0
swap d0
and.l #$FFFF,d0
divu #100,d0
move.l d0,-(sp)
or.b #"0",d0
bsr send
move.l (sp)+,d0
swap d0
and.l #$FFFF,d0
divu #10,d0
move.l d0,-(sp)
or.b #"0",d0
bsr send
move.l (sp)+,d0
swap d0
or.b #"0",d0
bsr send
move.w twidth,d2 ;length of the data in byte
print4: move.w d2,-(sp)
moveq #7,d4
print6: move.w d4,pixel
moveq #0,d1
moveq #0,d0
move.l lineptr,a0
s1: btst d4,(a0)
beq s2
bset d1,d0
s2: move.w rows,d3
pri2: add.w width,a0
sub.w #1,d3
bgt pri2
*
addq.w #1,d1
cmpi #8,d1
bne s1
bsr send
*
move.w pixel,d4
dbf d4,print6
add.l #1,lineptr
move.w (sp)+,d2
subq.w #1,d2
bgt print4
move.b #CR,d0
bra send
************************************
*
* just finished describing current tile
*
p_endtile:
move.l table,a0
move.l pblockh(a0),d0
mulu #144,d0
divu pydpi(a0),d0
move.w d0,scroll
beq prtok
pend1: move.b #ESC,d0 ;sets the line spacing to 1/144"
bsr send
move.b #"T",d0
bsr send
moveq #0,d0
move.w scroll,d0
cmp.w #81,d0
bcs pend2
move.w #80,d0
pend2: divu #10,d0
move.l d0,-(sp)
or.b #"0",d0
bsr send
move.l (sp)+,d0
swap d0
or.b #"0",d0
bsr send
move.b #LF,d0
bsr send
sub.w #80,scroll
bgt pend1
bra prtok
*
* just finished describing all tiles for this page
*
p_endpage:
bra prtok
*
* finished printing the document
*
p_enddoc:
bra prtok
*
* requested user stop
*
p_break:
bra p_endtile
***************************************************
*** these are the send routines for the ***
*** dot matrix driver. ***
***************************************************
*
*
sendline:
move.b (a0)+,d0
beq prtok
move.l a0,-(sp)
bsr send
move.l (sp)+,a0
bra sendline
*
*
send: jmp $ffffff
*
*
***********************************
*** ***
***********************************
SECTION printer,DATA,PUBLIC
prntbl: dc.l prtok,prtok,prtok,prtok,p_init
dc.l p_bgndoc,p_bgnpage,p_bgntile
dc.l p_block
dc.l p_endtile,p_endpage,p_enddoc
dc.l p_break,p_ident
xdpi_tbl: dc.w 144,144,160,160,160,160,160
ydpi_tbl: dc.w 72,144,72,144,144,144,144
minl_tbl: dc.w 36,36,40,40,40,40,40
minr_tbl: dc.w 36,36,40,40,40,40,40
mint_tbl: dc.w 0,0,0,0,0,0,0
minb_tbl: dc.w 0,0,0,0,0,0,0
maxw_tbl: dc.l 1152,1152,1280,1280,1280,1280,1280
maxh_tbl: dc.l 0,0,0,0,0,0,0
xover_tbl: dc.w 0,0,0,0,0,0,0
yover_tbl: dc.w 0,0,0,0,0,0,0
rowht_tbl: dc.w 8,16,8,16,16,16,16
rows_tbl: dc.w 1,2,1,2,2,2,2
grmode_tbl: dc.w "p","p","P","P","P","P"
setcolor: dc.b ESC,"K",0
driver: dc.b "ImageWriter II color v2.0 beta",0
SECTION printer,BSS,PUBLIC
table: ds.l 1
twidth: ds.w 1
pixel: ds.w 1
v_base: ds.l 1
lineptr: ds.l 1
pplane: ds.l 1
width: ds.w 1
count: ds.w 1
grmode: ds.w 1
rows: ds.w 1
rowht: ds.w 1
scroll: ds.w 1