home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1358 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  8.0 KB
  1. From: johnm@vaxc.cc.monash.edu.au
  2. Newsgroups: alt.sources
  3. Subject: [pcip] Re: 802.3 Novell and TCP/IP on top of Packet Driver
  4. Message-ID: <12139@stag.math.lsa.umich.edu>
  5. Date: 21 May 90 04:47:30 GMT
  6.  
  7. Archive-name: novell-packet-ipx/18-May-90
  8. Original-posting-by: johnm@vaxc.cc.monash.edu.au
  9. Original-subject: Re: 802.3 Novell and TCP/IP on top of Packet Driver
  10. Reposted-by: emv@math.lsa.umich.edu (Edward Vielmetti)
  11.  
  12. [This is an experimental alt.sources re-posting from the newsgroup(s)
  13. comp.protocols.tcp-ip.ibmpc. Comments on this service to emv@math.lsa.umich.edu 
  14. (Edward Vielmetti).]
  15.  
  16.  
  17. In article <399@van-bc.UUCP>, skl@van-bc.UUCP (Samuel Lam) writes:
  18. > By now, thanks to Kelly MacDonald at BYU, we all know how to do
  19. > Ethernet II (Blue Book) Novell over a packet driver and make it
  20. > co-exist with a TCP/IP stack on top of the same packet driver...
  21. > 
  22. > The question of the day now is:  Does anyone have any insight
  23. > in doing the same with the ordinary 802.3 Novell, so that one
  24. > would not have to involve the Novell servers and other Novell
  25. > nodes on the network just to get TCP/IP and Novell to co-exist
  26. > on one Ethernet interface on a single PC?
  27.  
  28. I've done it.  I modified HEAD.ASM and TAIL.ASM from version 5 of the
  29. packet drivers and use an IPX linked against PDSHELL.OBJ.  
  30.  
  31. I also modified things so that the packet driver doesn't initialize the
  32. Ethernet card until you actually use the packet driver.  This works well
  33. with the WD8003E driver, but with the NE1000/Tiara driver it doesn't
  34. show you the Ethernet address until you actually start using the packet
  35. driver.  :-(
  36.  
  37. We had to continue using 802.3 Novell because we needed student PCs to
  38. remote boot (from the Novell fileserver).  In the AUTOEXEC.BAT just load
  39. the appropriate packet driver, IPX linked against PDSHELL, NET3, and do
  40. the rest of the things you normally do.  No need to have a RAM disk
  41. taking up memory.
  42.  
  43. In our AUTOEXEC.BAT we also have a program that looks at the signature
  44. in the Ethernet Boot ROM and decides which packet driver to load (with
  45. which IRQ etc.).  This means we can have *one* boot image on the server
  46. for all types of cards, and we don't have classrooms full of PCs each
  47. reading BOOTCONF.SYS two bytes at a time ... but that's a different
  48. story.
  49.  
  50. Please use this code, improve it (it's my only bit of 8*86 coding --
  51. done without a manual), and share it around.
  52.  
  53.     John
  54.  
  55. Here are my the differences to the version 5 files.
  56.  
  57. ------------------  HEAD.DIF  ------------------------------
  58. *** VC$1:[COS142D.KA9Q.DRIVERS5]HEAD.ASM;1
  59. --- head.asm
  60. **************
  61. *** 42,47
  62.   is_at        db    0        ; =1 if we're on an AT.
  63.   sys_features    db    0        ; 2h = MC   40h = 2nd 8259
  64.   
  65.   functions    label    word
  66.       dw    f_driver_info        ;function 1
  67.       dw    f_access_type
  68. --- 42,51 -----
  69.   is_at        db    0        ; =1 if we're on an AT.
  70.   sys_features    db    0        ; 2h = MC   40h = 2nd 8259
  71.   
  72. + ; call etopen the first time the packet driver is called
  73. + called_etopen   db      0               ; have called etopen
  74. +         extrn   etopen: near
  75. + 
  76.   functions    label    word
  77.       dw    f_driver_info        ;function 1
  78.       dw    f_access_type
  79. **************
  80. *** 197,202
  81.       jz    our_isr_ei        ;no.
  82.   ;    sti                ;yes - re-enable them.
  83.   our_isr_ei:
  84.       mov    dh,BAD_COMMAND        ;in case we find a bad number.
  85.       mov    bl,ah            ;jump to the correct function.
  86.       mov    bh,0
  87. --- 201,235 -----
  88.       jz    our_isr_ei        ;no.
  89.   ;    sti                ;yes - re-enable them.
  90.   our_isr_ei:
  91. + 
  92. +         cmp     called_etopen,1         ; have we initialized the card?
  93. +         je      our_isr_cont            ; yes
  94. + 
  95. +         push    ax                    ; save lots of registers
  96. +         push    bx
  97. +         push    cx
  98. +         push    dx
  99. +         push    si
  100. +         push    di
  101. +         push    bp
  102. +         push    ds
  103. +         push    es
  104. + 
  105. +         call    etopen                  ; init the card
  106. +         mov     called_etopen,1         ; remember this fact
  107. + 
  108. +         pop     es                      ; restore lots of registers
  109. +         pop     ds
  110. +         pop     bp
  111. +         pop     di
  112. +         pop     si
  113. +         pop     dx
  114. +         pop     cx
  115. +         pop     bx
  116. +         pop     ax
  117. +  
  118. + our_isr_cont:
  119. + 
  120.       mov    dh,BAD_COMMAND        ;in case we find a bad number.
  121.       mov    bl,ah            ;jump to the correct function.
  122.       mov    bh,0
  123. **************
  124. *** 464,469
  125.   ;    mov    si,_SI[bp]
  126.   ;    mov    cx,_CX[bp]    ; count of bytes
  127.   
  128.       call    send_pkt
  129.       pop    ds
  130.       ret
  131. --- 497,518 -----
  132.   ;    mov    si,_SI[bp]
  133.   ;    mov    cx,_CX[bp]    ; count of bytes
  134.   
  135. + ; Take Ethernet encapsulated Novell IPX packets (from BYU's PDSHELL) and
  136. + ; change them to be IEEE 802.3 encapsulated.
  137. + EPROT_OFF       equ     EADDR_LEN*2
  138. + 
  139. +         cmp     ds:[si].EPROT_OFF,3781h ; if not Novell (prot 8137)
  140. +         jne     f_send_pkt_1            ;  don't tread on it
  141. +         push    ax                      ; get scratch reg
  142. +         mov     ah,[si].EPROT_OFF+4     ; get len
  143. +         mov     al,[si].EPROT_OFF+5
  144. +         inc     ax                      ; make even (rounding up)
  145. +         and     ax,0fffeh
  146. +         mov     ds:[si].EPROT_OFF,ah    ; save in prot field
  147. +         mov     ds:[si].EPROT_OFF+1,al
  148. +         pop     ax                      ; restore old contents
  149. + f_send_pkt_1:
  150. +    
  151.       call    send_pkt
  152.       pop    ds
  153.       ret
  154. **************
  155. *** 752,757
  156.   ;enter with cx = packet length, es:di -> packet type.
  157.       assume    ds:code, es:nothing
  158.       push    cx
  159.   
  160.       mov    bx,offset handles
  161.   recv_find_1:
  162. --- 801,819 -----
  163.   ;enter with cx = packet length, es:di -> packet type.
  164.       assume    ds:code, es:nothing
  165.       push    cx
  166. + 
  167. + ; Take IEEE 802.3 encapsulated packets that could be Novell IPX and
  168. + ; make them Ethernet encapsulated Novell IPX packets (for PDSHELL).
  169. +         push    ax                      ; get scratch reg
  170. +         mov     ah,es:[di]              ; get length word
  171. +         mov     al,es:[di]+1
  172. +         cmp     ax,GIANT                ; if > GIANT
  173. +         ja      recv_find_0             ;  then it is a protocol
  174. +         cmp     es:2[di],0ffffh         ; if next word not ffff
  175. +         jne     recv_find_0             ;  then not Novell
  176. +         mov     es:[di],3781h           ; make Novell protocol (8137)
  177. + recv_find_0:
  178. +         pop     ax                      ; restore old contents
  179.   
  180.       mov    bx,offset handles
  181.   recv_find_1:
  182. ------------------  HEAD.DIF  ------------------------------
  183.  
  184. ------------------  TAIL.DIF  ------------------------------
  185. *** VC$1:[COS142D.KA9Q.DRIVERS5]TAIL.ASM;1
  186. --- tail.asm
  187. **************
  188. *** 36,41
  189.    db "Packet driver skeleton copyright 1988-89, Russell Nelson.",CR,LF
  190.    db "This program is free software; see the file COPYING for details.",CR,LF
  191.    db "NO WARRANTY; see the file COPYING for details.",CR,LF
  192.   crlf_msg    db    CR,LF,'$'
  193.   
  194.   ;parse_args should parse the arguments.
  195. --- 36,42 -----
  196.    db "Packet driver skeleton copyright 1988-89, Russell Nelson.",CR,LF
  197.    db "This program is free software; see the file COPYING for details.",CR,LF
  198.    db "NO WARRANTY; see the file COPYING for details.",CR,LF
  199. +  db "Delayed etopen and IEEE 802.3 mods by John Mann.",CR,LF
  200.   crlf_msg    db    CR,LF,'$'
  201.   
  202.   ;parse_args should parse the arguments.
  203. **************
  204. *** 177,185
  205.       jmp    error
  206.   int_ok:
  207.   
  208. !     call    etopen            ;init the driver.  If any errors,
  209. !                     ;this routine returns cy.
  210. !     jc    no_resident
  211.   
  212.       push    dx            ;remember where they want to end.
  213.   
  214. --- 178,192 -----
  215.       jmp    error
  216.   int_ok:
  217.   
  218. ! ; Don't call etopen when we are loaded, but when we are called
  219. ! ; for the first time
  220. ! ;
  221. ! ;    call    etopen            ;init the driver.  If any errors,
  222. ! ;                    ;this routine returns cy.
  223. ! ;    jc    no_resident
  224. ! ;
  225. ! ; Save all of driver in case needed by delayed etopen
  226. !         mov     dx,offset end_tail      ; save whole of driver
  227.   
  228.       push    dx            ;remember where they want to end.
  229.   
  230. **************
  231. *** 523,528
  232.       loope    memory_test_1        ;keep going if the store worked.
  233.       pop    ds
  234.       ret
  235.   
  236.   code    ends
  237.   
  238. --- 530,537 -----
  239.       loope    memory_test_1        ;keep going if the store worked.
  240.       pop    ds
  241.       ret
  242. + 
  243. + end_tail        label   byte            ; end of the driver
  244.   
  245.   code    ends
  246.   
  247. ------------------  TAIL.DIF  ------------------------------
  248.  
  249. --
  250. John Mann, Computer Centre, Monash University, Clayton VIC 3168, Australia
  251. Net: johnm@vaxc.cc.monash.edu.au  Ph: +61 3 565 4774  FAX: +61 3 565 4746
  252.