<HTML>
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
   <META NAME="GENERATOR" CONTENT="Mozilla/4.05 [en] (X11; I; Linux 2.1.115 i686) [Netscape]">
</HEAD>
<BODY>

<PRE>Listing 2. BASIC Program for Personal Computer</PRE>

<PRE></PRE>

<PRE>1 ' ***********************************************************************</PRE>

<PRE>2 ' *</PRE>

<PRE>3 ' *&nbsp;&nbsp;&nbsp; E9BUF.BAS - A PROGRAM TO DEMONSTRATE THE USE OF THE BOOT MODE</PRE>

<PRE>4 ' *&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ON THE HC11 BY PROGRAMMING AN HC711E9 WITH</PRE>

<PRE>5 ' *&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; BUFFALO 3.4</PRE>

<PRE>6 ' *</PRE>

<PRE>7 ' *&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; REQUIRES THAT THE S-RECORDS FOR BUFFALO (BUF34.S19)</PRE>

<PRE>8 ' *&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; BE AVAILABLE IN THE SAME DIRECTORY OR FOLDER</PRE>

<PRE>9 ' *</PRE>

<PRE>10 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; THIS PROGRAM HAS BEEN RUN BOTH ON A MS-DOS COMPUTER</PRE>

<PRE>11 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; USING QUICKBASIC 4.5 AND ON A MACINTOSH USING</PRE>

<PRE>12 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; QUICKBASIC 1.0.</PRE>

<PRE>14 '*</PRE>

<PRE>15 '************************************************************************</PRE>

<PRE>25 H$ = "0123456789ABCDEF"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'STRING TO USE FOR HEX CONVERSIONS</PRE>

<PRE>30 DEFINT B, I: CODESIZE% = 8192: ADRSTART= 57344!</PRE>

<PRE>35 BOOTCOUNT = 25&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'NUMBER OF BYTES IN BOOT CODE</PRE>

<PRE>40 DIM CODE%(CODESIZE%)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'BUFFALO 3.4 IS 8K BYTES LONG</PRE>

<PRE>45 BOOTCODE$ = ""&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'INITIALIZE BOOTCODE$ TO NULL</PRE>

<PRE>49 REM ***** READ IN AND SAVE THE CODE TO BE BOOT LOADED *****</PRE>

<PRE>50 FOR I = 1 TO BOOTCOUNT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '# OF BYTES IN BOOT CODE</PRE>

<PRE>55 READ Q$</PRE>

<PRE>60 A$ = MID$(Q$, 1, 1)</PRE>

<PRE>65 GOSUB 7000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'CONVERTS HEX DIGIT TO DECIMAL</PRE>

<PRE>70 TEMP = 16 * X&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'HANG ON TO UPPER DIGIT</PRE>

<PRE>75 A$ = MID$(Q$, 2, 1)</PRE>

<PRE>80 GOSUB 7000</PRE>

<PRE>85 TEMP = TEMP + X</PRE>

<PRE>90 BOOTCODE$ = BOOTCODE$ + CHR$(TEMP)&nbsp;&nbsp; 'BUILD BOOT CODE</PRE>

<PRE>95 NEXT I</PRE>

<PRE>96 REM ***** S-RECORD CONVERSION STARTS HERE *****</PRE>

<PRE>97 FILNAM$="BUF34.S19"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'DEFAULT FILE NAME FOR S-RECORDS</PRE>

<PRE>100 CLS</PRE>

<PRE>105 PRINT "Filename.ext of S-record file to be downloaded (";FILNAM$;") ";</PRE>

<PRE>107 INPUT Q$</PRE>

<PRE>110 IF Q$&lt;>"" THEN FILNAM$=Q$</PRE>

<PRE>120 OPEN FILNAM$ FOR INPUT AS #1</PRE>

<PRE>130 PRINT : PRINT "Converting "; FILNAM$; " to binary..."</PRE>

<PRE>999 REM ***** SCANS FOR 'S1' RECORDS *****</PRE>

<PRE>1000 GOSUB 6000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'GET 1 CHARACTER FROM INPUT FILE</PRE>

<PRE>1010 IF FLAG THEN 1250&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'FLAG IS EOF FLAG FROM SUBROUTINE</PRE>

<PRE>1020 IF A$ &lt;> "S" THEN 1000</PRE>

<PRE>1022 GOSUB 6000</PRE>

<PRE>1024 IF A$ &lt;> "1" THEN 1000</PRE>

<PRE>1029 REM ***** S1 RECORD FOUND, NEXT 2 HEX DIGITS ARE THE BYTE COUNT *****</PRE>

<PRE>1030 GOSUB 6000</PRE>

<PRE>1040 GOSUB 7000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'RETURNS DECIMAL IN X</PRE>

<PRE>1050 BYTECOUNT = 16 * X&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'ADJUST FOR HIGH NIBBLE</PRE>

<PRE>1060 GOSUB 6000</PRE>

<PRE>1070 GOSUB 7000</PRE>

<PRE>1080 BYTECOUNT = BYTECOUNT + X&nbsp;&nbsp; 'ADD LOW NIBBLE</PRE>

<PRE>1090 BYTECOUNT = BYTECOUNT - 3&nbsp;&nbsp; 'ADJUST FOR ADDRESS + CHECKSUM</PRE>

<PRE>1099 REM ***** NEXT 4 HEX DIGITS BECOME THE STARTING ADDRESS FOR THE DATA *****</PRE>

<PRE>1100 GOSUB 6000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'GET FIRST NIBBLE OF ADDRESS</PRE>

<PRE>1102 GOSUB 7000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'CONVERT TO DECIMAL</PRE>

<PRE>1104 ADDRESS= 4096 * X</PRE>

<PRE>1106 GOSUB 6000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'GET NEXT NIBBLE</PRE>

<PRE>1108 GOSUB 7000</PRE>

<PRE>1110 ADDRESS= ADDRESS+ 256 * X</PRE>

<PRE>1112 GOSUB 6000</PRE>

<PRE>1114 GOSUB 7000</PRE>

<PRE>1116 ADDRESS= ADDRESS+ 16 * X</PRE>

<PRE>1118 GOSUB 6000</PRE>

<PRE>1120 GOSUB 7000</PRE>

<PRE>1122 ADDRESS= ADDRESS+ X</PRE>

<PRE>1124 ARRAYCNT = ADDRESS-ADRSTART&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'INDEX INTO ARRAY</PRE>

<PRE>1129 REM ***** CONVERT THE DATA DIGITS TO BINARY AND SAVE IN THE ARRAY *****</PRE>

<PRE>1130 FOR I = 1 TO BYTECOUNT</PRE>

<PRE>1140 GOSUB 6000</PRE>

<PRE>1150 GOSUB 7000</PRE>

<PRE>1160 Y = 16 * X&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'SAVE UPPER NIBBLE OF BYTE</PRE>

<PRE>1170 GOSUB 6000</PRE>

<PRE>1180 GOSUB 7000</PRE>

<PRE>1190 Y = Y + X&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'ADD LOWER NIBBLE</PRE>

<PRE>1200 CODE%(ARRAYCNT) = Y&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'SAVE BYTE IN ARRAY</PRE>

<PRE>1210 ARRAYCNT = ARRAYCNT + 1&nbsp;&nbsp;&nbsp; 'INCREMENT ARRAY INDEX</PRE>

<PRE>1220 NEXT I</PRE>

<PRE>1230 GOTO 1000</PRE>

<PRE>1250 CLOSE 1</PRE>

<PRE>1499 REM ***** DUMP BOOTLOAD CODE TO PART *****</PRE>

<PRE>1500 'OPEN "R",#2,"COM1:1200,N,8,1" 'Macintosh COM statement</PRE>

<PRE>1505 OPEN "COM1:1200,N,8,1,CD0,CS0,DS0,RS" FOR RANDOM AS #2 'DOS COM statement</PRE>

<PRE>1510 INPUT "Comm port open"; Q$</PRE>

<PRE>1512 WHILE LOC(2) >0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'FLUSH INPUT BUFFER</PRE>

<PRE>1513 GOSUB 8020</PRE>

<PRE>1514 WEND</PRE>

<PRE>1515 PRINT : PRINT "Sending bootload code to target part..."</PRE>

<PRE>1520 A$ = CHR$(255) + BOOTCODE$ 'ADD HEX FF TO SET BAUD RATE ON TARGET HC11</PRE>

<PRE>1530 GOSUB 6500</PRE>

<PRE>1540 PRINT</PRE>

<PRE>1550 FOR I = 1 TO BOOTCOUNT&nbsp;&nbsp;&nbsp;&nbsp; '# OF BYTES IN BOOT CODE BEING ECHOED</PRE>

<PRE>1560 GOSUB 8000</PRE>

<PRE>1564 K=ASC(B$):GOSUB 8500</PRE>

<PRE>1565 PRINT "Character #"; I; " received = "; HX$</PRE>

<PRE>1570 NEXT I</PRE>

<PRE>1590 PRINT "Programming is ready to begin.": INPUT "Are you ready"; Q$</PRE>

<PRE>1595 CLS</PRE>

<PRE>1597 WHILE LOC(2) > 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'FLUSH INPUT BUFFER</PRE>

<PRE>1598 GOSUB 8020</PRE>

<PRE>1599 WEND</PRE>

<PRE>1600 XMT = 0: RCV = 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'POINTERS TO XMIT AND RECEIVE BYTES</PRE>

<PRE>1610 A$ = CHR$(CODE%(XMT))</PRE>

<PRE>1620 GOSUB 6500&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'SEND FIRST BYTE</PRE>

<PRE>1625 FOR I = 1 TO CODESIZE% - 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'ZERO BASED ARRAY 0 -> CODESIZE-1</PRE>

<PRE>1630 A$ = CHR$(CODE%(I))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'SEND SECOND BYTE TO GET ONE IN QUEUE</PRE>

<PRE>1635 GOSUB 6500&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'SEND IT</PRE>

<PRE>1640 GOSUB 8000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'GET BYTE FOR VERIFICATION</PRE>

<PRE>1650 RCV = I - 1</PRE>

<PRE>1660 LOCATE 10,1:PRINT "Verifying byte #"; I; "&nbsp;&nbsp;&nbsp; "</PRE>

<PRE>1664 IF CHR$(CODE%(RCV)) = B$ THEN 1670</PRE>

<PRE>1665 K=CODE%(RCV):GOSUB 8500</PRE>

<PRE>1666 LOCATE 1,1:PRINT "Byte #"; I; "&nbsp;&nbsp;&nbsp; ", " - Sent "; HX$;</PRE>

<PRE>1668 K=ASC(B$):GOSUB 8500</PRE>

<PRE>1669 PRINT "&nbsp; Received "; HX$;</PRE>

<PRE>1670 NEXT I</PRE>

<PRE>1680 GOSUB 8000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'GET BYTE FOR VERIFICATION</PRE>

<PRE>1690 RCV = CODESIZE% - 1</PRE>

<PRE>1700 LOCATE 10,1:PRINT "Verifying byte #"; CODESIZE%; "&nbsp;&nbsp;&nbsp; "</PRE>

<PRE>1710 IF CHR$(CODE%(RCV)) = B$ THEN 1720</PRE>

<PRE>1713 K=CODE(RCV):GOSUB 8500</PRE>

<PRE>1714 LOCATE 1,1:PRINT "Byte #"; CODESIZE%; "&nbsp;&nbsp;&nbsp; ", " - Sent "; HX$;</PRE>

<PRE>1715 K=ASC(B$):GOSUB 8500</PRE>

<PRE>1716 PRINT "&nbsp; Received "; HX$;</PRE>

<PRE>1720 LOCATE 8, 1: PRINT : PRINT "Done!!!!"</PRE>

<PRE>4900 CLOSE</PRE>

<PRE>4910 INPUT "Press [RETURN] to quit...", Q$</PRE>

<PRE>5000 END</PRE>

<PRE>5900 '***********************************************************************</PRE>

<PRE>5910 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SUBROUTINE TO READ IN ONE BYTE FROM A DISK FILE</PRE>

<PRE>5930 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; RETURNS BYTE IN A$</PRE>

<PRE>5940 '***********************************************************************</PRE>

<PRE>6000 FLAG = 0</PRE>

<PRE>6010 IF EOF(1) THEN FLAG = 1: RETURN</PRE>

<PRE>6020 A$ = INPUT$(1, #1)</PRE>

<PRE>6030 RETURN</PRE>

<PRE>6490 '***********************************************************************</PRE>

<PRE>6492 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SUBROUTINE TO SEND THE STRING IN A$ OUT TO THE DEVICE</PRE>

<PRE>6494 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OPENED AS FILE #2.</PRE>

<PRE>6496 '***********************************************************************</PRE>

<PRE>6500 PRINT #2, A$;</PRE>

<PRE>6510 RETURN</PRE>

<PRE>6590 '***********************************************************************</PRE>

<PRE>6594 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SUBROUTINE THAT CONVERTS THE HEX DIGIT IN A$ TO AN INTEGER</PRE>

<PRE>6596 '***********************************************************************</PRE>

<PRE>7000 X = INSTR(H$, A$)</PRE>

<PRE>7010 IF X = 0 THEN FLAG = 1</PRE>

<PRE>7020 X = X - 1</PRE>

<PRE>7030 RETURN</PRE>

<PRE>7990 '**********************************************************************</PRE>

<PRE>7992 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SUBROUTINE TO READ IN ONE BYTE THROUGH THE COMM PORT OPENED</PRE>

<PRE>7994 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AS FILE #2.&nbsp; WAITS INDEFINITELY FOR THE BYTE TO BE</PRE>

<PRE>7996 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; RECEIVED.&nbsp; SUBROUTINE WILL BE ABORTED BY ANY</PRE>

<PRE>7998 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; KEYBOARD INPUT.&nbsp; RETURNS BYTE IN B$.&nbsp; USES Q$.</PRE>

<PRE>7999 '**********************************************************************</PRE>

<PRE>8000 WHILE LOC(2) = 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'WAIT FOR COMM PORT INPUT</PRE>

<PRE>8005 Q$ = INKEY$: IF Q$ &lt;> "" THEN 4900 'IF ANY KEY PRESSED, THEN ABORT</PRE>

<PRE>8010 WEND</PRE>

<PRE>8020 B$ = INPUT$(1, #2)</PRE>

<PRE>8030 RETURN</PRE>

<PRE>8490 '************************************************************************</PRE>

<PRE>8491 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DECIMAL TO HEX CONVERSION</PRE>

<PRE>8492 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INPUT:&nbsp; K - INTEGER TO BE CONVERTED</PRE>

<PRE>8493 '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OUTPUT: HX$ - TWO CHARACTER STRING WITH HEX CONVERSION</PRE>

<PRE>8494 '************************************************************************</PRE>

<PRE>8500 IF K > 255 THEN HX$="Too big":GOTO 8530</PRE>

<PRE>8510 HX$=MID$(H$,K\16+1,1)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'UPPER NIBBLE</PRE>

<PRE>8520 HX$=HX$+MID$(H$,(K MOD 16)+1,1)&nbsp; 'LOWER NIBBLE</PRE>

<PRE>8530 RETURN</PRE>

<PRE>9499 '******************** BOOT CODE ****************************************</PRE>

<PRE>9500 DATA 86, 23&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'LDAA&nbsp;&nbsp; #$23</PRE>

<PRE>9510 DATA B7, 10, 02&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'STAA&nbsp;&nbsp; OPT2&nbsp;&nbsp;&nbsp; make port C wire or</PRE>

<PRE>9520 DATA 86, FE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'LDAA&nbsp;&nbsp; #$FE</PRE>

<PRE>9530 DATA B7, 10, 03&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'STAA&nbsp;&nbsp; PORTC&nbsp;&nbsp; light 1 LED on port C bit 0</PRE>

<PRE>9540 DATA C6, FF&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'LDAB&nbsp;&nbsp; #$FF</PRE>

<PRE>9550 DATA F7, 10, 07&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'STAB&nbsp;&nbsp; DDRC&nbsp;&nbsp;&nbsp; make port C outputs</PRE>

<PRE>9560 DATA CE, 0F, A0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'LDX&nbsp;&nbsp;&nbsp; #4000&nbsp;&nbsp; 2msec at 2MHz</PRE>

<PRE>9570 DATA 18, CE, E0, 00&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'LDY&nbsp;&nbsp;&nbsp; #$E000&nbsp; Start of BUFFALO 3.4</PRE>

<PRE>9580 DATA 7E, BF, 00&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'JMP&nbsp;&nbsp;&nbsp; $BF00&nbsp;&nbsp; EPROM routine start address</PRE>

<PRE>9590 '***********************************************************************</PRE>

<PRE>&nbsp;</PRE>

</BODY>
</HTML>
