|
1840
|
1 *
|
|
|
2 * Dragon 32/64/Alpha printer device descriptor.
|
|
|
3 *
|
|
|
4 * Disassembled from the Alpha OS-9 2005-06-16, P.Harvey-Smith.
|
|
|
5 *
|
|
|
6
|
|
|
7 nam p
|
|
2040
|
8 ttl Dragon parallel printer device discriptor
|
|
1840
|
9
|
|
|
10 ifp1
|
|
|
11 use defsfile
|
|
|
12 endc
|
|
|
13
|
|
|
14 tylg set Devic+Objct
|
|
|
15 atrv set ReEnt+rev
|
|
|
16 rev set $01
|
|
|
17 mod eom,name,tylg,atrv,mgrnam,drvnam
|
|
|
18
|
|
|
19 fcb $03 mode byte
|
|
|
20 fcb $FF extended controller address
|
|
|
21 fdb $0000 physical controller address
|
|
|
22 fcb initsize-*-1 initilization table size
|
|
|
23 fcb $00 device type:0=scf,1=rbf,2=pipe,3=scf
|
|
|
24 fcb $00 case:0=up&lower,1=upper only
|
|
|
25 fcb $00 backspace:0=bsp,1=bsp then sp & bsp
|
|
|
26 fcb $00 delete:0=bsp over line,1=return
|
|
|
27 fcb $00 echo:0=no echo
|
|
|
28 fcb $01 auto line feed:0=off
|
|
|
29 fcb $00 end of line null count
|
|
|
30 fcb $00 pause:0=no end of page pause
|
|
|
31 fcb $42 lines per page
|
|
|
32 fcb $08 backspace character
|
|
|
33 fcb $18 delete line character
|
|
|
34 fcb $0D end of record character
|
|
|
35 fcb $00 end of file character
|
|
|
36 fcb $04 reprint line character
|
|
|
37 fcb $01 duplicate last line character
|
|
|
38 fcb $17 pause character
|
|
|
39 fcb $00 interrupt character
|
|
|
40 fcb $00 quit character
|
|
|
41 fcb $5F backspace echo character
|
|
|
42 fcb $07 line overflow character (bell)
|
|
|
43 fcb $00 init value for dev ctl reg
|
|
|
44 fcb $00 baud rate
|
|
|
45 fdb name copy of descriptor name address
|
|
|
46 fcb $00 acia xon char
|
|
|
47 fcb $00 acia xoff char
|
|
|
48
|
|
|
49 initsize equ *
|
|
|
50 name equ *
|
|
|
51 fcs /P/
|
|
|
52 mgrnam equ *
|
|
|
53 fcs /SCF/
|
|
|
54 drvnam equ *
|
|
2040
|
55 fcs /scdpp/
|
|
1840
|
56
|
|
|
57 emod
|
|
|
58 eom equ *
|
|
|
59 end
|
