Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/scdwndesc.asm @ 2687:f3b7ca8083fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed creation of descriptors
author Boisy Pitre <boisy.pitre@nuance.com>
date Sun, 15 Jul 2012 11:10:20 -0500
parents 07cc32e3d96f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
1 ********************************************************************
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
2 * scdwdesc - Drivewire Network Device Descriptor
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
3 *
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
4 * $Id$
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
5 *
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
7 * Comment
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
9 * 0.3 2009/12/?? Aaron Wolfe
2343
16b98c4a836d Added SHARE. bit to device driver and descriptor
boisy
parents: 2341
diff changeset
10 * Added SHARE. bit to mode.
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
11 *
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
12 * 0.4 2009/12/27 Boisy G. Pitre
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
13 * Removed SHARE. bit from mode because of tsmon issues.
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
14 *
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
15 * 0.5 2009/12/29 Boisy G. Pitre
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
16 * Made U and T descriptor templates. Backspace is now $7F for
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
17 * telnet clients which are likely to access the T ports.
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
18 *
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
19 * This descriptor has slightly different defaults, intended to be used as
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
20 * the channel for the DriveWire utilities
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
21 *
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
22 * 0.6 2010/01/12 Boisy G. Pitre
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
23 * Renamed.
2365
da4f3fbe1556 Term replacles /N0
boisy
parents: 2344
diff changeset
24 *
da4f3fbe1556 Term replacles /N0
boisy
parents: 2344
diff changeset
25 * 0.7 2010/01/20 Boisy G. Pitre
da4f3fbe1556 Term replacles /N0
boisy
parents: 2344
diff changeset
26 * No more /N0. /Term is /N0.
2543
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
27 *
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
28 * 0.8 2010/05/28 Aaron Wolfe
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
29 * /N14 is now /MIDI
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
30
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
31 nam scdwdesc
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
32 ttl DriveWire network Device Descriptor
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
33
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
34 ifp1
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
35 use defsfile
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
36 endc
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
37
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
38 tylg set Devic+Objct
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
39 atrv set ReEnt+rev
2365
da4f3fbe1556 Term replacles /N0
boisy
parents: 2344
diff changeset
40 rev set $07
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
41
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
42 mod eom,name,tylg,atrv,mgrnam,drvnam
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
43
2343
16b98c4a836d Added SHARE. bit to device driver and descriptor
boisy
parents: 2341
diff changeset
44 fcb SHARE.+UPDAT. mode byte
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
45 fcb HW.Page extended controller address
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
46 fdb $FF00+Addr physical controller address
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
47 fcb initsize-*-1 initilization table size
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
48 fcb DT.SCF device type:0=scf,1=rbf,2=pipe,3=scf
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
49 fcb $00 case:0=up&lower,1=upper only
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
50 fcb $01 backspace:0=bsp,1=bsp then sp & bsp
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
51 fcb $00 delete:0=bsp over line,1=return
2372
bfb8eefc19e1 Renamed S$Peer to S$HUP
boisy
parents: 2365
diff changeset
52 IFEQ Addr-0
bfb8eefc19e1 Renamed S$Peer to S$HUP
boisy
parents: 2365
diff changeset
53 fcb $01 echo:0=no echo
bfb8eefc19e1 Renamed S$Peer to S$HUP
boisy
parents: 2365
diff changeset
54 fcb $01 auto line feed:0=off
bfb8eefc19e1 Renamed S$Peer to S$HUP
boisy
parents: 2365
diff changeset
55 ELSE
2662
07cc32e3d96f More fixes
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2661
diff changeset
56 IFGT Addr-14
07cc32e3d96f More fixes
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2661
diff changeset
57 fcb $01 echo:0=no echo
07cc32e3d96f More fixes
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2661
diff changeset
58 fcb $01 auto line feed:0=off
07cc32e3d96f More fixes
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2661
diff changeset
59 ELSE
2344
f15fa431d748 Updated
boisy
parents: 2343
diff changeset
60 fcb $00 echo:0=no echo
f15fa431d748 Updated
boisy
parents: 2343
diff changeset
61 fcb $00 auto line feed:0=off
2372
bfb8eefc19e1 Renamed S$Peer to S$HUP
boisy
parents: 2365
diff changeset
62 ENDC
2662
07cc32e3d96f More fixes
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2661
diff changeset
63 ENDC
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
64 fcb $00 end of line null count
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
65 fcb $00 pause:0=no end of page pause
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
66 fcb 24 lines per page (not a safe assumption anymore!)
2543
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
67 IFEQ Addr-14
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
68 fcb 0 backspace character (on most telnet clients)
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
69 fcb 0 delete line character
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
70 fcb 0 end of record character
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
71 fcb 0 end of file character
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
72 fcb 0 reprint line character
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
73 fcb 0 duplicate last line character
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
74 fcb 0 pause character
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
75 fcb 0 interrupt character
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
76 fcb 0 quit character
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
77 fcb 0 backspace echo character
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
78 fcb 0 line overflow character (bell)
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
79 ELSE
2344
f15fa431d748 Updated
boisy
parents: 2343
diff changeset
80 fcb C$BSP backspace character (on most telnet clients)
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
81 fcb C$DEL delete line character
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
82 fcb C$CR end of record character
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
83 fcb C$EOF end of file character
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
84 fcb C$RPRT reprint line character
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
85 fcb C$RPET duplicate last line character
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
86 fcb C$PAUS pause character
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
87 fcb C$INTR interrupt character
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
88 fcb C$QUIT quit character
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
89 fcb C$BSP backspace echo character
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
90 fcb C$BELL line overflow character (bell)
2543
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
91 ENDC
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
92 fcb $00 mode byte for terminal descriptor
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
93 fcb B600 baud rate (not used, maybe future assignment?)
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
94 fdb name copy of descriptor name address
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
95 fcb $00 acia xon char (not used, maybe future assignment?)
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
96 fcb $00 acia xoff char (not used, maybe future assignment?)
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
97 fcb 80 (szx) number of columns for display
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
98 fcb 24 (szy) number of rows for display
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
99 initsize equ *
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
100
2383
b399116a3b5f Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents: 2372
diff changeset
101 name equ *
2365
da4f3fbe1556 Term replacles /N0
boisy
parents: 2344
diff changeset
102 IFEQ Addr-0
2383
b399116a3b5f Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents: 2372
diff changeset
103 fcs /Term/
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
104 ELSE
2543
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
105 IFEQ Addr-14
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
106 fcs /MIDI/
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
107 ELSE
2659
95c7e747c154 Added support for virtual window (/Zx) devices
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2543
diff changeset
108 IFEQ Addr-255
2660
adb21dec5e10 Another commit to update makefiles
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2659
diff changeset
109 fcs 'N'
2659
95c7e747c154 Added support for virtual window (/Zx) devices
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2543
diff changeset
110 ELSE
2687
f3b7ca8083fd Fixed creation of descriptors
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2662
diff changeset
111 IFGT Addr-15
f3b7ca8083fd Fixed creation of descriptors
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2662
diff changeset
112 IFEQ Addr-16
2659
95c7e747c154 Added support for virtual window (/Zx) devices
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2543
diff changeset
113 fcs /Term/
95c7e747c154 Added support for virtual window (/Zx) devices
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2543
diff changeset
114 ELSE
95c7e747c154 Added support for virtual window (/Zx) devices
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2543
diff changeset
115 fcc /Z/
2661
9e9ed6d6b4c2 Updated so that scdwn handles SS.Montr
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2660
diff changeset
116 fcb 176+Addr-16
2659
95c7e747c154 Added support for virtual window (/Zx) devices
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2543
diff changeset
117 ENDC
95c7e747c154 Added support for virtual window (/Zx) devices
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2543
diff changeset
118 ELSE
2383
b399116a3b5f Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents: 2372
diff changeset
119 fcc /N/
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
120 IFGT Addr-9
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
121 fcc '1'
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
122 fcb 176+Addr-10
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
123 ELSE
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
124 fcb 176+Addr
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
125 ENDC
2659
95c7e747c154 Added support for virtual window (/Zx) devices
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2543
diff changeset
126 ENDC
2383
b399116a3b5f Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents: 2372
diff changeset
127 ENDC
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
128 ENDC
2543
86e18364d3de change descriptor and makefiles for dw midi device
aaronwolfe
parents: 2383
diff changeset
129 ENDC
2324
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
130 mgrnam fcs /SCF/
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
131 drvnam fcs /scdwn/
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
132
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
133 emod
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
134 eom equ *
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
135 end
ccd33b48321a Renamed scdwt to scdwn, t/u to n descriptors
boisy
parents:
diff changeset
136