Below is my code. It generating error on my system. I put my problem on pds forum. Mr. Tim told me that program is compiling sucessfully.
Can some test below mentioned program. Only test is it compiles or not ?
Here is pds link
http://www.picbasic.org/forum/showthrea ... #post91751
- Code: Select all
Device 18F452
XTAL 20
OPTIMISER_LEVEL 3
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Dim Display_Data As Byte
Dim index As Byte
Dim Message_Cnt As Byte
Dim Message_Data As String * 100
Dim Shift_Cnt As Byte
Dim Buffer[8] As Byte
Dim temp As Byte
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
main:
DelayMS 100
While 1 = 1
For temp = 48 To 57
Display_Data = temp
GoSub LOAD_BUFFER
Next
Wend
LOAD_BUFFER:
Display_Data = Message_Data [Message_Cnt]
If Display_Data = 92 Then
Message_Cnt = 0
Display_Data = Message_Data [Message_Cnt]
GoTo LOAD_BUFFER
EndIf
Inc Message_Cnt
index = Display_Data - 32 'BECAUSE OUR 1ST INDEX START FROM SPACE
On index GoToL L0, L1, L2, L3, L4, L5, L6, L7, L8 ,L9,_
L10, L11, L12, L13, L14, L15, L16, L17, L18, L19,_
L20, L21, L22, L23, L24, L25, L26, L27, L28, L29,_
L30, L31, L32, L33, L34, L35, L36, L37, L38, L39,_
L40, L41, L42, L43, L44, L45, L46, L47, L48, L49,_
L50, L51, L52, L53, L54, L55, L56, L57, L58, L59,_
L60, L61, L62, L63, L64, L65, L66, L67, L68, L69,_
L70, L71, L72, L73, L74, L75, L76, L77, L78, L79,_
L80, L81, L82, L83, L84, L85, L86, L87, L88, L89,_
L90,
L0:
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $00 '/ ROW-2
Buffer[2] = $00 '\ ROW-3
Buffer[3] = $00
Buffer[4] = $00
Buffer[5] = $00
Buffer[6] = $00
Buffer[7] = $00 'ROW-8
Return
L1:
L2:
L3:
L4:
L5:
L6:
L7:
L8:
L9:
L10:
L11:
L12:
L13:
L14:
L15:
L16: '\ CHAR-0
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L17: '\CHAR-1
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $20 '\ ROW-1 DATA
Buffer[1] = $60 '/ ROW-2
Buffer[2] = $A0 '\ ROW-3
Buffer[3] = $20
Buffer[4] = $20
Buffer[5] = $20
Buffer[6] = $20
Buffer[7] = $F8 'ROW-8
Return
L18: '\CHAR-2
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $08 '\ ROW-3
Buffer[3] = $10
Buffer[4] = $20
Buffer[5] = $40
Buffer[6] = $80
Buffer[7] = $F8 'ROW-8
Return
L19: '\ CHAR-3
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F8 '\ ROW-1 DATA
Buffer[1] = $08 '/ ROW-2
Buffer[2] = $10 '\ ROW-3
Buffer[3] = $20
Buffer[4] = $10
Buffer[5] = $08
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L20: '\CHAR-4
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $F1
Buffer[4] = $08
Buffer[5] = $08
Buffer[6] = $08
Buffer[7] = $08 'ROW-8
Return
L21: '\CGAR-5
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F8 '\ ROW-1 DATA
Buffer[1] = $80 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $F0
Buffer[4] = $08
Buffer[5] = $08
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L22:
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $80
Buffer[4] = $F0
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L23: '\CHAR-7
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F8 '\ ROW-1 DATA
Buffer[1] = $08 '/ ROW-2
Buffer[2] = $08 '\ ROW-3
Buffer[3] = $10
Buffer[4] = $20
Buffer[5] = $20
Buffer[6] = $20
Buffer[7] = $20 'ROW-8
Return
L24: '\CHAR-8
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $70
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L25: '\CHAR-9
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $78
Buffer[4] = $08
Buffer[5] = $08
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L26: '
L27:
L28:
L29:
L30:
L31:
L32:
L33: '\ CHAR A
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $20 '\ ROW-1 DATA
Buffer[1] = $50 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $F8
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L34: 'CHAR-B
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $f0 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $f0
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $f0 'ROW-8
Return
L35: 'CHAR-C
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $80
Buffer[4] = $80
Buffer[5] = $80
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L36: 'CHAR-D
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F0 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $F0 'ROW-8
Return
L37: 'CHAR-E
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F8 '\ ROW-1 DATA
Buffer[1] = $80 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $F0
Buffer[4] = $80
Buffer[5] = $80
Buffer[6] = $80
Buffer[7] = $F8 'ROW-8
Return
L38: 'CHAR-F
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F8 '\ ROW-1 DATA
Buffer[1] = $80 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $F0
Buffer[4] = $80
Buffer[5] = $80
Buffer[6] = $80
Buffer[7] = $80 'ROW-8
Return
L39: 'CHAR-G
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $80
Buffer[4] = $B8
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L40: 'CHAR-H
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $F8
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L41: 'CHAR-I
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F8 '\ ROW-1 DATA
Buffer[1] = $20 '/ ROW-2
Buffer[2] = $20 '\ ROW-3
Buffer[3] = $20
Buffer[4] = $20
Buffer[5] = $20
Buffer[6] = $20
Buffer[7] = $F8 'ROW-8
Return
L42: 'CHAR-J
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F8 '\ ROW-1 DATA
Buffer[1] = $20 '/ ROW-2
Buffer[2] = $20 '\ ROW-3
Buffer[3] = $20
Buffer[4] = $20
Buffer[5] = $20
Buffer[6] = $A0
Buffer[7] = $40 'ROW-8
Return
L43: 'CHAR-K
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $90 '/ ROW-2
Buffer[2] = $A0 '\ ROW-3
Buffer[3] = $C0
Buffer[4] = $A0
Buffer[5] = $90
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L44: 'L
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $80 '\ ROW-1 DATA
Buffer[1] = $80 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $80
Buffer[4] = $80
Buffer[5] = $80
Buffer[6] = $80
Buffer[7] = $F8 'ROW-8
Return
L45: 'CHAR-M
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $D8 '/ ROW-2
Buffer[2] = $A8 '\ ROW-3
Buffer[3] = $A8
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L46: 'CHAT-N
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $C8
Buffer[4] = $A8
Buffer[5] = $98
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L47: 'CHAR-0
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L48: 'CHAR-P
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F0 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $F0
Buffer[4] = $80
Buffer[5] = $80
Buffer[6] = $80
Buffer[7] = $80 'ROW-8
Return
L49: 'CHAR-Q
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $A8
Buffer[5] = $98
Buffer[6] = $88
Buffer[7] = $74 'ROW-8
Return
L50: 'CHAR-R
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F0 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $F0
Buffer[4] = $A0
Buffer[5] = $90
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L51: 'CHAR-S
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $70 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $70
Buffer[4] = $08
Buffer[5] = $08
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L52: 'CHAR-T
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F8 '\ ROW-1 DATA
Buffer[1] = $20 '/ ROW-2
Buffer[2] = $20 '\ ROW-3
Buffer[3] = $20
Buffer[4] = $20
Buffer[5] = $20
Buffer[6] = $20
Buffer[7] = $20 'ROW-8
Return
L53: 'CHAR-U
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L54: 'CHAR-V
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $50
Buffer[7] = $20 'ROW-8
Return
L55: 'CHAR-W
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $A8
Buffer[5] = $A8
Buffer[6] = $D8
Buffer[7] = $88 'ROW-8
Return
L56: 'CHAR-X
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $50 '\ ROW-3
Buffer[3] = $20
Buffer[4] = $50
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L57: 'CHAR-Y
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $88 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $50
Buffer[4] = $20
Buffer[5] = $20
Buffer[6] = $20
Buffer[7] = $20 'ROW-8
Return
L58: 'CHAR-Z
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $F8 '\ ROW-1 DATA
Buffer[1] = $08 '/ ROW-2
Buffer[2] = $08 '\ ROW-3
Buffer[3] = $10
Buffer[4] = $20
Buffer[5] = $40
Buffer[6] = $80
Buffer[7] = $F8 'ROW-8
Return
L59:
L60:
L61:
L62:
L63:
L64:
L65: '\CHAR-a
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $70 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $08
Buffer[4] = $78
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L66: 'CHAR-b
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $80 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $b0
Buffer[4] = $C8
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $F0 'ROW-8
Return
L67: 'CHAR-c
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $70 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $80
Buffer[4] = $80
Buffer[5] = $80
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L68: 'CHAR-d
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $08 '/ ROW-2
Buffer[2] = $08 '\ ROW-3
Buffer[3] = $68
Buffer[4] = $98
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $78 'ROW-8
Return
L69: 'CHAR-e
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $70 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $F0
Buffer[5] = $80
Buffer[6] = $80
Buffer[7] = $70 'ROW-8
Return
L70: '\CHAR-f
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $30 '/ ROW-2
Buffer[2] = $48 '\ ROW-3
Buffer[3] = $40
Buffer[4] = $E0
Buffer[5] = $40
Buffer[6] = $40
Buffer[7] = $40 'ROW-8
Return
L71: '\CHAR-g
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $70 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $78
Buffer[5] = $08
Buffer[6] = $08
Buffer[7] = $70 'ROW-8
Return
L72: '\CHAR-h
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $80 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $A0
Buffer[4] = $C8
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L73: 'CHAR-i
Shift_Cnt = $03 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $40 '/ ROW-2
Buffer[2] = $00 '\ ROW-3
Buffer[3] = $C0
Buffer[4] = $40
Buffer[5] = $40
Buffer[6] = $40
Buffer[7] = $E0 'ROW-8
Return
L74: 'CHAR-j
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $10 '/ ROW-2
Buffer[2] = $30 '\ ROW-3
Buffer[3] = $10
Buffer[4] = $10
Buffer[5] = $10
Buffer[6] = $90
Buffer[7] = $60 'ROW-8
Return
L75: 'CHAR-k
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $90 '\ ROW-3
Buffer[3] = $A0
Buffer[4] = $C0
Buffer[5] = $A0
Buffer[6] = $90
Buffer[7] = $88 'ROW-8
Return
L76: '\CHAR-l
Shift_Cnt = $03 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $C0 '/ ROW-2
Buffer[2] = $40 '\ ROW-3
Buffer[3] = $40
Buffer[4] = $40
Buffer[5] = $40
Buffer[6] = $40
Buffer[7] = $E0 'ROW-8
Return
L77: 'CHAR-m
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $D8 '/ ROW-2
Buffer[2] = $A8 '\ ROW-3
Buffer[3] = $A8
Buffer[4] = $A8
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L78: 'CHAR-n
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $D0 '/ ROW-2
Buffer[2] = $C8 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L79: 'CHAR-o
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $70 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $A8
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $88
Buffer[7] = $70 'ROW-8
Return
L80: 'CHAR-p
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $F0 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $F0
Buffer[5] = $80
Buffer[6] = $80
Buffer[7] = $80 'ROW-8
Return
L81: 'CHAR-q
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $68 '/ ROW-2
Buffer[2] = $98 '\ ROW-3
Buffer[3] = $98
Buffer[4] = $78
Buffer[5] = $08
Buffer[6] = $08
Buffer[7] = $08 'ROW-8
Return
L82: 'CHAR-r
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $D0 '/ ROW-2
Buffer[2] = $C8 '\ ROW-3
Buffer[3] = $80
Buffer[4] = $80
Buffer[5] = $80
Buffer[6] = $80
Buffer[7] = $80 'ROW-8
Return
L83: 'CHAR-s
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $70 '/ ROW-2
Buffer[2] = $80 '\ ROW-3
Buffer[3] = $80
Buffer[4] = $70
Buffer[5] = $08
Buffer[6] = $08
Buffer[7] = $F0 'ROW-8
Return
L84: 'CHAR-t
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $40 '/ ROW-2
Buffer[2] = $E0 '\ ROW-3
Buffer[3] = $40
Buffer[4] = $40
Buffer[5] = $40
Buffer[6] = $48
Buffer[7] = $30 'ROW-8
Return
L85: 'CHAR-u
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $98
Buffer[7] = $68 'ROW-8
Return
L86: 'char-v
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $88
Buffer[5] = $88
Buffer[6] = $90
Buffer[7] = $20 'ROW-8
Return
L87: 'CHAR-w
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $A8
Buffer[5] = $A8
Buffer[6] = $B8
Buffer[7] = $50 'ROW-8
Return
L88: 'CHAR-x
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $50
Buffer[4] = $20
Buffer[5] = $50
Buffer[6] = $88
Buffer[7] = $88 'ROW-8
Return
L89: 'CHAR-y
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $88 '/ ROW-2
Buffer[2] = $88 '\ ROW-3
Buffer[3] = $88
Buffer[4] = $78
Buffer[5] = $08
Buffer[6] = $08
Buffer[7] = $70 'ROW-8
Return
L90: 'CHAR-z
Shift_Cnt = $05 '/ HOW MANY TIMES DATA WILL SHIFT
Buffer[0] = $00 '\ ROW-1 DATA
Buffer[1] = $F8 '/ ROW-2
Buffer[2] = $08 '\ ROW-3
Buffer[3] = $10
Buffer[4] = $20
Buffer[5] = $40
Buffer[6] = $80
Buffer[7] = $F8 'ROW-8
Return
