Mercurial > hg > Members > kono > nitros9-code

comparison level2/modules/parallel.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * Parallel - Disto Parallel Printer driver
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 12 ???
9
10 nam Parallel
11 ttl Disto Parallel Printer driver
12
13 * Disassembled 98/08/25 13:20:51 by Disasm v1.6 (C) 1988 by RML
14
15 ifp1
16 use defsfile
17 endc
18
19 tylg set Drivr+Objct
20 atrv set ReEnt+rev
21 rev set $01
22 edition set 12
23
24 mod eom,name,tylg,atrv,start,size
25
26 u0000 rmb 29
27 u001D rmb 1
28 u001E rmb 1
29 u001F rmb 1
30 size equ .
31 fcb $03
32
33 name fcs /Parallel/
34 fcb edition
35
36 start equ *
37 lbra L0079
38 lbra L0029
39 lbra L002D
40 lbra L005C
41 lbra L0058
42 lbra L006D
43 L0029 comb
44 ldb #$CB
45 rts
46 L002D ldb >MPI.Slct
47 andb #$33
48 pshs b
49 ldb #$33
50 stb >MPI.Slct
51 tst >$FF52
52 bmi L004B
53 L003E sta >$FF52
54 sta >$FF52
55 puls b
56 stb >MPI.Slct
57 clrb
58 rts
59 L004B ldx #$0001
60 os9 F$Sleep
61 tst >$FF52
62 bpl L003E
63 bra L004B
64 L0058 comb
65 ldb #$D0
66 rts
67 L005C cmpa #$26
68 bne L0058
69 ldx $06,y
70 clra
71 ldb <u001D,u
72 std $04,x
73 ldb <u001E,u
74 std $06,x
75 L006D clra
76 lbra L002D
77 lbra L002D
78 lbra L002D
79 clrb
80 rts
81 L0079 ldd <$2C,y
82 std <u001D,u
83 lda <$26,y
84 sta <u001F,u
85 clrb
86 rts
87
88 emod
89 eom equ *
90 end
91