MC68HC11E Motorola, MC68HC11E Datasheet - Page 242
MC68HC11E
Manufacturer Part Number
MC68HC11E
Description
Microcontrollers
Manufacturer
Motorola
Datasheet
1.MC68HC11E.pdf
(268 pages)
Available stocks
Company
Part Number
Manufacturer
Quantity
Price
Company:
Part Number:
MC68HC11E0CFN2
Manufacturer:
Freescale Semiconductor
Quantity:
10 000
Company:
Part Number:
MC68HC11E0CFN3
Manufacturer:
MOT
Quantity:
119
Company:
Part Number:
MC68HC11E0CFN3R2
Manufacturer:
FREESCALE
Quantity:
1 831
Company:
Part Number:
MC68HC11E0CFNE2
Manufacturer:
FREESCALE
Quantity:
6 221
Company:
Part Number:
MC68HC11E0CFNE2
Manufacturer:
Freescale Semiconductor
Quantity:
10 000
Company:
Part Number:
MC68HC11E0CFNE2R
Manufacturer:
Freescale Semiconductor
Quantity:
10 000
Company:
Part Number:
MC68HC11E0CFNE3
Manufacturer:
FREESCALE
Quantity:
6 249
Company:
Part Number:
MC68HC11E0CFNE3
Manufacturer:
Freescale Semiconductor
Quantity:
10 000
Company:
Part Number:
MC68HC11E0CFNE3R
Manufacturer:
Freescale Semiconductor
Quantity:
10 000
Company:
Part Number:
MC68HC11E1
Manufacturer:
MOTOLOLA
Quantity:
591
Application Note
1598 GOSUB 8020
1599 WEND
1600 XMT = 0: RCV = 0
1610 A$ = CHR$(CODE%(XMT))
1620 GOSUB 6500
1625 FOR I = 1 TO CODESIZE% - 1
1630 A$ = CHR$(CODE%(I))
1635 GOSUB 6500
1640 GOSUB 8000
1650 RCV = I - 1
1660 LOCATE 10,1:PRINT "Verifying byte #"; I; "
1664 IF CHR$(CODE%(RCV)) = B$ THEN 1670
1665 K=CODE%(RCV):GOSUB 8500
1666 LOCATE 1,1:PRINT "Byte #"; I; "
1668 K=ASC(B$):GOSUB 8500
1669 PRINT "
1670 NEXT I
1680 GOSUB 8000
1690 RCV = CODESIZE% - 1
1700 LOCATE 10,1:PRINT "Verifying byte #"; CODESIZE%; "
1710 IF CHR$(CODE%(RCV)) = B$ THEN 1720
1713 K=CODE(RCV):GOSUB 8500
1714 LOCATE 1,1:PRINT "Byte #"; CODESIZE%; "
1715 K=ASC(B$):GOSUB 8500
1716 PRINT "
1720 LOCATE 8, 1: PRINT : PRINT "Done!!!!"
4900 CLOSE
4910 INPUT "Press [RETURN] to quit...", Q$
5000 END
5900 '***********************************************************************
5910 '*
5930 '*
5940 '***********************************************************************
6000 FLAG = 0
6010 IF EOF(1) THEN FLAG = 1: RETURN
6020 A$ = INPUT$(1, #1)
6030 RETURN
6490 '***********************************************************************
6492 '*
6494 '*
6496 '***********************************************************************
6500 PRINT #2, A$;
6510 RETURN
6590 '***********************************************************************
6594 '*
6596 '***********************************************************************
7000 X = INSTR(H$, A$)
7010 IF X = 0 THEN FLAG = 1
7020 X = X - 1
7030 RETURN
242
Received "; HX$;
Received "; HX$;
SUBROUTINE TO READ IN ONE BYTE FROM A DISK FILE
SUBROUTINE TO SEND THE STRING IN A$ OUT TO THE DEVICE
SUBROUTINE THAT CONVERTS THE HEX DIGIT IN A$ TO AN INTEGER
Freescale Semiconductor, Inc.
RETURNS BYTE IN A$
OPENED AS FILE #2.
For More Information On This Product,
Go to: www.freescale.com
'POINTERS TO XMIT AND RECEIVE BYTES
'SEND FIRST BYTE
'SEND SECOND BYTE TO GET ONE IN QUEUE
'SEND IT
'GET BYTE FOR VERIFICATION
'GET BYTE FOR VERIFICATION
'ZERO BASED ARRAY 0 -> CODESIZE-1
", " - Sent "; HX$;
", " - Sent "; HX$;
"
"
AN1060 — Rev. 1.0
MOTOROLA