📄 3310_8key_431.asm
字号:
.db 0x40,0x3c,0x44,0x28,0x10,0x28
;-Line--0077----&h44,&h1C,&hA0,&hA0,&hA0,&h7C,--
.db 0x44,0x1c,0xa0,0xa0,0xa0,0x7c
;-Line--0078----&h44,&h64,&h54,&h4C,&h44,&h48,--
.db 0x44,0x64,0x54,0x4c,0x44,0x48
;-Line--0079----&h55,&h56,&h55,&h24,&h00,&h00,--
.db 0x55,0x56,0x55,0x24,0x00,0x00
;-Line--0080----&h77,&h00,&h00,&h38,&h44,&h46,--
.db 0x77,0x00,0x00,0x38,0x44,0x46
;-Line--0081----&h45,&h44,&h38,&h45,&h46,&h45,--
.db 0x45,0x44,0x38,0x45,0x46,0x45
;-Line--0082----&h44,&h00,&h00,&h07,&h05,&h07,--
.db 0x44,0x00,0x00,0x07,0x05,0x07
;-Line--0083----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0084----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0085----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0086----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0087----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0088----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0089----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0090----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0091----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0092----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0093----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0094----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0095----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0096----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0097----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0098----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0099----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0100----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0101----&h00,&h00,&h00,&h00,&h00,&h00,--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0102----&h00,&h00,&h00,&h00,&h00,&h00--
.db 0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0062----$Include "C:\FastAVR\dian.bas"--
;-Line--0002----dian = 14, 2, ' Image Table Name, Xbytes, N of Lines, 30 bytes--
dian:
.db 0x0e,0x02
;-Line--0003----&hF8,&h48,&h48,&h48,&h48,&hFF,&h48,&h48,&h48,&h48,&hF8,&h00,&h00,&h00,&h0F,&h04,--
.db 0xf8,0x48,0x48,0x48,0x48,0xff,0x48,0x48,0x48,0x48,0xf8,0x00,0x00,0x00,0x0f,0x04
;-Line--0004----&h04,&h04,&h04,&h3F,&h44,&h44,&h44,&h44,&h4F,&h40,&h70,&h00--
.db 0x04,0x04,0x04,0x3f,0x44,0x44,0x44,0x44,0x4f,0x40,0x70,0x00
;-Line--0063----$Include "C:\FastAVR\ya.bas"--
;-Line--0002----ya = 16, 2, ' Image Table Name, Xbytes, N of Lines, 34 bytes--
ya:
.db 0x10,0x02
;-Line--0003----&h00,&h00,&hFE,&h02,&h42,&h42,&h42,&h42,&hFA,&h42,&h42,&h42,&h62,&h42,&h02,&h00,--
.db 0x00,0x00,0xfe,0x02,0x42,0x42,0x42,0x42,0xfa,0x42,0x42,0x42,0x62,0x42,0x02,0x00
;-Line--0004----&h20,&h18,&h27,&h20,&h20,&h20,&h20,&h20,&h3F,&h20,&h21,&h2E,&h24,&h20,&h20,&h00--
.db 0x20,0x18,0x27,0x20,0x20,0x20,0x20,0x20,0x3f,0x20,0x21,0x2e,0x24,0x20,0x20,0x00
;-Line--0064----$Include "C:\FastAVR\Sclk1616HD.bas"--
;-Line--0001----$Source = Off--
sclk1616hd:
.db 0x10,0x02
.db 0x00,0x00,0x06,0x0e,0x1e,0x3e,0x7e,0xfe,0x7e,0x3e,0x1e,0x0e,0x06,0x00,0x00,0x00
.db 0x00,0x00,0x30,0x28,0x24,0x22,0x21,0x20,0x21,0x22,0x24,0x28,0x30,0x00,0x00,0x00
.db 0x00,0x00,0x06,0x0e,0x1e,0x3a,0x7a,0xfa,0x7a,0x3a,0x1e,0x0e,0x06,0x00,0x00,0x00
.db 0x00,0x00,0x30,0x28,0x24,0x22,0x31,0x3f,0x31,0x22,0x24,0x28,0x30,0x00,0x00,0x00
.db 0x00,0x00,0x06,0x0a,0x12,0x32,0x62,0xe2,0x62,0x32,0x12,0x0a,0x06,0x00,0x00,0x00
.db 0x00,0x00,0x30,0x38,0x34,0x32,0x39,0x3f,0x39,0x32,0x34,0x38,0x30,0x00,0x00,0x00
.db 0x00,0x00,0x06,0x0a,0x12,0x22,0x42,0xc2,0x42,0x22,0x12,0x0a,0x06,0x00,0x00,0x00
.db 0x00,0x00,0x30,0x38,0x3c,0x3a,0x3d,0x3f,0x3d,0x3a,0x3c,0x38,0x30,0x00,0x00,0x00
.db 0x00,0x00,0x06,0x0a,0x12,0x22,0x42,0x82,0x42,0x22,0x12,0x0a,0x06,0x00,0x00,0x00
.db 0x00,0x00,0x30,0x38,0x3c,0x3e,0x3f,0x3f,0x3f,0x3e,0x3c,0x38,0x30,0x00,0x00,0x00
.db 0x80,0x80,0x80,0x80,0x80,0x80,0x80,0xff,0x81,0x82,0x84,0x88,0x90,0xa0,0xc0,0x00
.db 0x01,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0x7f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00
.db 0x00,0xfc,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0x40,0x20,0x10,0x08,0x04,0xfc,0x00,0x00
.db 0x00,0x1f,0x1f,0x0f,0x07,0x03,0x01,0x00,0x01,0x02,0x04,0x08,0x10,0x1f,0x00,0x00
.db 0xc0,0xe0,0xf0,0xf8,0xfc,0xfe,0xff,0xff,0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x00
.db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x7f,0x40,0x20,0x10,0x08,0x04,0x02,0x01,0x00
;****** END OF USER BASIC CODE ****************
; String constants:
S000: .db "www.atmel.com", 0
S001: .db "key=", 0
;////// ShiftOut //////////////////////////
_Sout: sbi DDRB, 5
ldi r24,0x08
_So2: rol zl
brcc _So1
sbi PORTB,5
rjmp _So3
_So1: cbi PORTB,5
_So3: sbi PORTB,7
dec r24
cbi PORTB,7
brne _So2
cbi PORTB,5
ret
;////// ShiftIn //////////////////////////
_Sin: cbi DDRB,5
ldi r24,0x08
_Si2: clc
sbi PORTB,7
sbic PINB,5
sec
rol zl
cbi PORTB,7
dec r24
brne _Si2
ret
;////// GraphLcdInit /////////////////////
_NkIni: sbi DDRB,5
sbi DDRB,7
sbi DDRB,4
sbi DDRB,3
cbi PORTB,3
cbi PORTB,4
ldi r20,0x21
rcall _PcSer
ldi r20,0xc8
rcall _PcSer
ldi r20,0x06
rcall _PcSer
ldi r20,0x13
rcall _PcSer
ldi r20,0x20
rcall _PcSer
ldi r20,0x0c
rcall _PcSer
sbi PORTB,4
_PcCls: clr r0
ldi r24,0x06
_PcC2: ldi r25,0x54
_PcC1: rcall _PcOut
dec r25
brne _PcC1
dec r24
brne _PcC2
ret
_PcWr: rcall _PcAdr
rcall _PcOut
ret
_PcAdr: cbi PORTB,4
mov r20,r16
ori r20,0x80
rcall _PcSer
mov r20,r17
ori r20,0x40
rcall _PcSer
sbi PORTB,4
ret
;////// LoadNokiaDisplay /////////////////
_PcOut: mov r20,r0
_PcSer: ldi r18,0x08
cbi PORTB,3
_Pc2: rol r20
brcc _Pc1
sbi PORTB,5
rjmp _Pc3
_Pc1: cbi PORTB,5
_Pc3: sbi PORTB,7
dec r18
cbi PORTB,7
brne _Pc2
cbi PORTB,5
sbi PORTB,3
ret
_Pcnst: cbi PORTB,4
ori zl,0x80
ldi r20,0x21
rcall _PcSer
mov r20,zl
rcall _PcSer
ldi r20,0x20
rcall _PcSer
sbi PORTB,4
ret
;////// GLcd numbers /////////////////////
_PcBW: ld r20,Z+
subi r20,0x20
brlo _PcBW1
push zl
push zh
push r17
rcall _PcCh
pop r17
pop zh
pop zl
rjmp _PcBW
_PcBW1: ret
;////// GLcd string constant /////////////
_PcSc: lpm r20,Z+
subi r20,0x20
brlo _PcSc1
push zl
push zh
push r17
rcall _PcCh
pop r17
pop zh
pop zl
rjmp _PcSc
_PcSc1: ret
;////// GraphCharPrint ///////////////////
_PcChr: subi zl,0x20
mov r20,zl
push r17
rcall _PcCh
pop r17
ret
_PcCh: lds zl,_fntL
lds zh,_fntH
rcall _Pcset
rcall _PcimM
push r9
rcall _PcIot
pop r9
add r16,r8
mov zl,r9
clr r0
_PcCh1: inc r16
rcall _PcOut
dec zl
brne _PcCh1
ret
_Fnt: sts _fntL,zl
sts _fntH,zh
ret
;////// Images Set ///////////////////////
_Pcimg: rcall _PcSet
rcall _PcIot
ret
_PcSet: lpm r8,Z+
lpm r9,Z+
ret
_PcIot: rcall _PcAdr
mov r19,r8
_PcIo1: lpm r0,Z+
rcall _PcOut
dec r19
brne _PcIo1
inc r17
dec r9
brne _PcIot
ret
;////// Images Array Set /////////////////
_PcImA: rcall _PcSet
rcall _PcImM
rcall _PcIot
ret
_PcImM: mov r14,zl
mov r15,zh
mov zl,r20
clr zh
mov r24,r8
clr r25
rcall Mp16u
mov r24,r9
rcall Mp16u
add zl,r14
adc zh,r15
ret
;////// ByteToStr ////////////////////////
_B2str: clr zh
clt
push yl
push yh
st -Y,zh
lds r25,_fmtD
tst r25
breq _N2st7
rcall _N2str
ldi r22,0x2e
st -Y,r22
_N2st7: lds r25,_fmtC
rcall _N2str
tst r25
breq _N2st3
lds r22,_lchr
_N2st4: st -Y,r22
dec r25
brne _N2st4
_N2st3: mov zl,yl
mov zh,yh
pop yh
pop yl
ret
_N2str: ldi r21,0x08
sub r22,r22
_N2st1: lsr zh
rol zl
rol r22
rol zh
cpi r22,0x0a
brcs _N2st2
sbci r22,0x0a
inc zl
_N2st2: dec r21
brne _N2st1
subi r22,-0x30
st -Y,r22
dec r25
breq _N2st8
tst zl
brne _N2str
_N2st8: ret
;////// _Waitms ///////////////////////////
_Wms: ldi r20,0x14
_Wms1: ldi r21,0x7A
_Wms2: dec r21
brne _Wms2
dec r20
brne _Wms1
dec zl
brne _Wms
ret
;////// 16x16 hardware multiplay /////////
Mp16u: mul zl,r24
movw r22,r0
mul zl,r25
add r23,r0
mul zh,r24
add r23,r0
movw zl,r22
ret
;System Global Variables: 10 bytes
;User Global Variables: 4 bytes
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -