Mercurial > hg > Members > kono > nitros9-code
comparison level1/modules/piper.asm @ 0:6641a883d6b0
Initial revision
author | boisy |
---|---|
date | Thu, 04 Apr 2002 16:34:12 +0000 |
parents | |
children | 668388823050 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:6641a883d6b0 |
---|---|
1 ******************************************************************** | |
2 * Piper - Pipe device driver | |
3 * | |
4 * $Id$ | |
5 * | |
6 * Ed. Comments Who YY/MM/DD | |
7 * ------------------------------------------------------------------ | |
8 * 2 Tandy/Microware original version | |
9 | |
10 nam Piper | |
11 ttl Pipe device driver | |
12 | |
13 * Disassembled 98/08/23 17:31:20 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 2 | |
23 | |
24 mod eom,name,tylg,atrv,Init,size | |
25 | |
26 u0000 rmb 6 | |
27 size equ . | |
28 fcb $03 | |
29 | |
30 name fcs /Piper/ | |
31 fcb edition | |
32 | |
33 Init clrb | |
34 rts | |
35 nop | |
36 | |
37 Read clrb | |
38 rts | |
39 nop | |
40 | |
41 Write clrb | |
42 rts | |
43 nop | |
44 | |
45 GetStat clrb | |
46 rts | |
47 nop | |
48 | |
49 SetStat clrb | |
50 rts | |
51 nop | |
52 | |
53 Term clrb | |
54 rts | |
55 | |
56 emod | |
57 eom equ * |