Mercurial > hg > Members > kono > nitros9-code
annotate level1/modules/scdwndesc.asm @ 2414:e96eb55b10b5
Made progress in backporting to Level 1
| author | boisy |
|---|---|
| date | Tue, 26 Jan 2010 03:51:52 +0000 |
| parents | b399116a3b5f |
| children | 86e18364d3de |
| rev | line source |
|---|---|
| 2324 | 1 ******************************************************************** |
| 2 * scdwdesc - Drivewire Network Device Descriptor | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Edt/Rev YYYY/MM/DD Modified by | |
| 7 * Comment | |
| 8 * ------------------------------------------------------------------ | |
| 9 * 0.3 2009/12/?? Aaron Wolfe | |
| 2343 | 10 * Added SHARE. bit to mode. |
| 2324 | 11 * |
| 12 * 0.4 2009/12/27 Boisy G. Pitre | |
| 13 * Removed SHARE. bit from mode because of tsmon issues. | |
| 14 * | |
| 15 * 0.5 2009/12/29 Boisy G. Pitre | |
| 16 * Made U and T descriptor templates. Backspace is now $7F for | |
| 17 * telnet clients which are likely to access the T ports. | |
| 18 * | |
| 19 * This descriptor has slightly different defaults, intended to be used as | |
| 20 * the channel for the DriveWire utilities | |
| 21 * | |
| 22 * 0.6 2010/01/12 Boisy G. Pitre | |
| 23 * Renamed. | |
| 2365 | 24 * |
| 25 * 0.7 2010/01/20 Boisy G. Pitre | |
| 26 * No more /N0. /Term is /N0. | |
| 2324 | 27 |
| 28 nam scdwdesc | |
| 29 ttl DriveWire network Device Descriptor | |
| 30 | |
| 31 ifp1 | |
| 32 use defsfile | |
| 33 endc | |
| 34 | |
| 35 tylg set Devic+Objct | |
| 36 atrv set ReEnt+rev | |
| 2365 | 37 rev set $07 |
| 2324 | 38 |
| 39 mod eom,name,tylg,atrv,mgrnam,drvnam | |
| 40 | |
| 2343 | 41 fcb SHARE.+UPDAT. mode byte |
| 2324 | 42 fcb HW.Page extended controller address |
| 43 fdb $FF00+Addr physical controller address | |
| 44 fcb initsize-*-1 initilization table size | |
| 45 fcb DT.SCF device type:0=scf,1=rbf,2=pipe,3=scf | |
| 46 fcb $00 case:0=up&lower,1=upper only | |
| 47 fcb $01 backspace:0=bsp,1=bsp then sp & bsp | |
| 48 fcb $00 delete:0=bsp over line,1=return | |
| 2372 | 49 IFEQ Addr-0 |
| 50 fcb $01 echo:0=no echo | |
| 51 fcb $01 auto line feed:0=off | |
| 52 ELSE | |
| 2344 | 53 fcb $00 echo:0=no echo |
| 54 fcb $00 auto line feed:0=off | |
| 2372 | 55 ENDC |
| 2324 | 56 fcb $00 end of line null count |
| 57 fcb $00 pause:0=no end of page pause | |
| 58 fcb 24 lines per page (not a safe assumption anymore!) | |
| 2344 | 59 fcb C$BSP backspace character (on most telnet clients) |
| 2324 | 60 fcb C$DEL delete line character |
| 61 fcb C$CR end of record character | |
| 62 fcb C$EOF end of file character | |
| 63 fcb C$RPRT reprint line character | |
| 64 fcb C$RPET duplicate last line character | |
| 65 fcb C$PAUS pause character | |
| 66 fcb C$INTR interrupt character | |
| 67 fcb C$QUIT quit character | |
| 68 fcb C$BSP backspace echo character | |
| 69 fcb C$BELL line overflow character (bell) | |
| 70 fcb $00 mode byte for terminal descriptor | |
| 71 fcb B600 baud rate (not used, maybe future assignment?) | |
| 72 fdb name copy of descriptor name address | |
| 73 fcb $00 acia xon char (not used, maybe future assignment?) | |
| 74 fcb $00 acia xoff char (not used, maybe future assignment?) | |
| 75 fcb 80 (szx) number of columns for display | |
| 76 fcb 24 (szy) number of rows for display | |
| 77 initsize equ * | |
| 78 | |
|
2383
b399116a3b5f
Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents:
2372
diff
changeset
|
79 name equ * |
| 2365 | 80 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
|
81 fcs /Term/ |
| 2324 | 82 ELSE |
|
2383
b399116a3b5f
Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents:
2372
diff
changeset
|
83 IFNE Addr-255 |
|
b399116a3b5f
Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents:
2372
diff
changeset
|
84 fcc /N/ |
| 2324 | 85 IFGT Addr-9 |
| 86 fcc '1' | |
| 87 fcb 176+Addr-10 | |
| 88 ELSE | |
| 89 fcb 176+Addr | |
| 90 ENDC | |
|
2383
b399116a3b5f
Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents:
2372
diff
changeset
|
91 ELSE |
|
b399116a3b5f
Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents:
2372
diff
changeset
|
92 fcs /N/ |
|
b399116a3b5f
Now we have a /N descriptor... and the code in scdwn.asm to handle it.
boisy
parents:
2372
diff
changeset
|
93 ENDC |
| 2324 | 94 ENDC |
| 95 mgrnam fcs /SCF/ | |
| 96 drvnam fcs /scdwn/ | |
| 97 | |
| 98 emod | |
| 99 eom equ * | |
| 100 end | |
| 101 |