AM79C90 Advanced Micro Devices, AM79C90 Datasheet - Page 50

• Manufacturer Part Number: AM79C90
• Description: CMOS Local Area Network Controller for Ethernet (C-LANCE)
• Manufacturer: Advanced Micro Devices

170
180
190
200
210
220
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
50
AMD
PRINT “ENTER ETHERNET ADDRESS AS 6 HEXADECIMAL NUMBERS SEPARATED ”
PRINT “BY BLANKS. EACH NUMBER REPRESENTS ONE BYTE. THE LEAST ”
PRINT “SIGNIFICANT BIT OF THE FIRST BYTE IS THE FIRST BIT TRANSMITTED.”
PRINT “”
PRINT “ENTER ETHERNET ADDRESS”;
INPUT A$(0), A$(1), A$(2), A$(3), A$(4), A$(5)
REM
REM UNPACK ETHERNET ADDRESS INTO ADDRESS ARRAY
REM
M=0
FOR I = 0 TO 47: A(I) = 0: NEXT I
FOR I = 0 TO 5
IF LEN(A$(I)) = 1 THEN A$(I) = “0” + A$(I)
A$(I) = UCASE$(A$(I))
FOR N = 2 TO 1 STEP –1
Y$ = MID$(A$(I), N, 1)
IF Y$ = “0” THEN 510
IF Y$ = “1” THEN A(M) = 1: GOTO 510
IF Y$ = “2” THEN A(M + 1) = 1: GOTO 510
IF Y$ = “3” THEN A(M + 1) = 1: A(M) = 1: GOTO 510
IF Y$ = “4” THEN A(M + 2) = 1: GOTO 510
IF Y$ = “5” THEN A(M + 2) = 1: A(M) = 1: GOTO 510
IF Y$ = “6” THEN A(M + 2) = 1: A(M + 1) = 1: GOTO 510
IF Y$ = “7” THEN A(M + 2) = 1: A(M + 1) = 1: A(M) = 1: GOTO 510
A(M + 3) = 1
IF Y$ = “8” THEN 510
IF Y$ = “9” THEN A(M) = 1: GOTO 510
IF Y$ = “A” THEN A(M + 1) = 1: GOTO 510
IF Y$ = “B” THEN A(M + 1) = 1: A(M) = 1: GOTO 510
IF Y$ = “C” THEN A(M + 2) = 1: GOTO 510
IF Y$ = “D” THEN A(M + 2) = 1: A(M) = 1: GOTO 510
IF Y$ = “E” THEN A(M + 2) = 1: A(M + 1) = 1: GOTO 510
IF Y$ = “F” THEN A(M + 2) = 1: A(M + 1) = 1: A(M) = 1
M=M+4
NEXT N
NEXT I
REM
REM PERFORM CRC ALGORITHM ON ARRAY A(0–47)
REM
FOR I = 0 TO 31: C(I) = 1: NEXT I
FOR N = 0 TO 47
REM SHIFT CRC REGISTER BY 1
FOR I = 32 TO 1 STEP –1: C(l) = C(I–1): NEXT I
C(0) = 0
T = C(32) XOR A(N): REM T = CONTROL BIT
IF T = 0 THEN 700: REM JUMP IF CONTROL BIT=0
Am79C90