📄 glcd_t~1.asm
字号:
;*******************************************************
;* Code Produced by the *
;* PROTON+ Compiler. Ver 1.24d *
;* Copyright Rosetta Technologies/Crownhill Associates *
;* Written by Les Johnson. 2002 *
;*******************************************************
NOLIST
#include "S:\JKJ\CROWNH~2\GLCD_T~1.PBP"
LIST
XPOS Equ 54
YPOS Equ 55
F1_SOF equ $ ; GLCD_T~1.BAS
F2_SOF equ $ ; PROTON_G4.INT
F2_000069 equ $ ; in [PROTON_G4.INT] ADCON1 = 7 ' Set PORTA and PORTE to all digital
Movlw 7
Bsf STATUS,5
ram_bank = 1
Movwf ADCON1
F2_EOF equ $ ; PROTON_G4.INT
F1_000010 equ $ ; in [GLCD_T~1.BAS] Cls
Bcf STATUS,5
ram_bank = 0
F@Call GLcd@Cls
F1_000011 equ $ ; in [GLCD_T~1.BAS] Print at 0 , 2 , "Graphic LCD Test"
Clrf GEN
Movlw 2
F@Call GLCD_Cur
Movlw 'G'
F@Call Print
Movlw 'r'
F@Call Print
Movlw 'a'
F@Call Print
Movlw 'p'
F@Call Print
Movlw 'h'
F@Call Print
Movlw 'i'
F@Call Print
Movlw 'c'
F@Call Print
Movlw ' '
F@Call Print
Movlw 'L'
F@Call Print
Movlw 'C'
F@Call Print
Movlw 'D'
F@Call Print
Movlw ' '
F@Call Print
Movlw 'T'
F@Call Print
Movlw 'e'
F@Call Print
Movlw 's'
F@Call Print
Movlw 't'
F@Call Print
AGAIN
F1_000014 equ $ ; in [GLCD_T~1.BAS] For Xpos = 0 to 63
Clrf XPOS
fr@lb2
Movlw 64
Subwf XPOS,W
set@page nx@lb3
Btfsc STATUS,0
Goto nx@lb3
F1_000015 equ $ ; in [GLCD_T~1.BAS] Ypos = SIN Xpos
Movfw XPOS
F@Call Sin
Movwf YPOS
F1_000016 equ $ ; in [GLCD_T~1.BAS] Plot Xpos , Ypos
Movfw XPOS
Movwf GEN
Movfw YPOS
F@Call LCD@Plot
F1_000017 equ $ ; in [GLCD_T~1.BAS] Delayms 10
Movlw 10
F@Call dl@ms
F1_000018 equ $ ; in [GLCD_T~1.BAS] Next
Incf XPOS,F
set@page fr@lb2
Btfss STATUS,2
Goto fr@lb2
nx@lb3
F1_000019 equ $ ; in [GLCD_T~1.BAS] For Xpos = 0 to 63
Clrf XPOS
fr@lb4
Movlw 64
Subwf XPOS,W
set@page nx@lb5
Btfsc STATUS,0
Goto nx@lb5
F1_000020 equ $ ; in [GLCD_T~1.BAS] Ypos = SIN Xpos
Movfw XPOS
F@Call Sin
Movwf YPOS
F1_000021 equ $ ; in [GLCD_T~1.BAS] UnPlot Xpos , Ypos
Movfw XPOS
Movwf GEN
Movfw YPOS
F@Call LCD@UnPlot
F1_000022 equ $ ; in [GLCD_T~1.BAS] Delayms 10
Movlw 10
F@Call dl@ms
F1_000023 equ $ ; in [GLCD_T~1.BAS] Next
Incf XPOS,F
set@page fr@lb4
Btfss STATUS,2
Goto fr@lb4
nx@lb5
F1_000024 equ $ ; in [GLCD_T~1.BAS] Goto Again
F@Jump AGAIN
F3_SOF equ $ ; FONT.INC
FONT
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 255
DATA 255
DATA 255
DATA 255
DATA 255
DATA 255
DATA 7
DATA 7
DATA 7
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 7
DATA 7
DATA 7
DATA 224
DATA 224
DATA 224
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 224
DATA 224
DATA 224
DATA 255
DATA 255
DATA 255
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 255
DATA 255
DATA 255
DATA 7
DATA 7
DATA 7
DATA 7
DATA 7
DATA 7
DATA 224
DATA 224
DATA 224
DATA 224
DATA 224
DATA 224
DATA 224
DATA 224
DATA 224
DATA 7
DATA 7
DATA 7
DATA 7
DATA 7
DATA 7
DATA 224
DATA 224
DATA 224
DATA 255
DATA 255
DATA 255
DATA 224
DATA 224
DATA 224
DATA 224
DATA 224
DATA 224
DATA 255
DATA 255
DATA 255
DATA 7
DATA 7
DATA 7
DATA 255
DATA 255
DATA 255
DATA 255
DATA 255
DATA 255
DATA 7
DATA 7
DATA 7
DATA 85
DATA 170
DATA 85
DATA 170
DATA 85
DATA 170
DATA 170
DATA 85
DATA 170
DATA 85
DATA 170
DATA 85
DATA 1
DATA 1
DATA 1
DATA 1
DATA 1
DATA 1
DATA 128
DATA 128
DATA 128
DATA 128
DATA 128
DATA 128
DATA 255
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 255
DATA 255
DATA 1
DATA 1
DATA 1
DATA 1
DATA 1
DATA 1
DATA 1
DATA 1
DATA 1
DATA 1
DATA 255
DATA 255
DATA 128
DATA 128
DATA 128
DATA 128
DATA 128
DATA 128
DATA 128
DATA 128
DATA 128
DATA 128
DATA 255
DATA 0
DATA 0
DATA 6
DATA 9
DATA 9
DATA 6
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 79
DATA 0
DATA 0
DATA 0
DATA 0
DATA 7
DATA 0
DATA 7
DATA 0
DATA 0
DATA 20
DATA 127
DATA 20
DATA 127
DATA 20
DATA 0
DATA 36
DATA 42
DATA 127
DATA 42
DATA 18
DATA 0
DATA 35
DATA 19
DATA 8
DATA 100
DATA 98
DATA 0
DATA 54
DATA 73
DATA 85
DATA 34
DATA 80
DATA 0
DATA 0
DATA 5
DATA 3
DATA 0
DATA 0
DATA 0
DATA 28
DATA 34
DATA 65
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 65
DATA 34
DATA 28
DATA 0
DATA 20
DATA 8
DATA 62
DATA 8
DATA 20
DATA 0
DATA 8
DATA 8
DATA 62
DATA 8
DATA 8
DATA 0
DATA 0
DATA 80
DATA 48
DATA 0
DATA 0
DATA 0
DATA 8
DATA 8
DATA 8
DATA 8
DATA 8
DATA 0
DATA 0
DATA 96
DATA 96
DATA 0
DATA 0
DATA 0
DATA 32
DATA 16
DATA 8
DATA 4
DATA 2
DATA 0
DATA 62
DATA 81
DATA 73
DATA 69
DATA 62
DATA 0
DATA 0
DATA 66
DATA 127
DATA 64
DATA 0
DATA 0
DATA 66
DATA 97
DATA 81
DATA 73
DATA 70
DATA 0
DATA 33
DATA 65
DATA 69
DATA 75
DATA 49
DATA 0
DATA 24
DATA 20
DATA 18
DATA 127
DATA 16
DATA 0
DATA 39
DATA 69
DATA 69
DATA 69
DATA 57
DATA 0
DATA 60
DATA 74
DATA 73
DATA 73
DATA 48
DATA 0
DATA 1
DATA 113
DATA 9
DATA 5
DATA 3
DATA 0
DATA 54
DATA 73
DATA 73
DATA 73
DATA 54
DATA 0
DATA 6
DATA 73
DATA 73
DATA 73
DATA 62
DATA 0
DATA 0
DATA 54
DATA 54
DATA 0
DATA 0
DATA 0
DATA 0
DATA 86
DATA 54
DATA 0
DATA 0
DATA 0
DATA 8
DATA 20
DATA 34
DATA 65
DATA 0
DATA 0
DATA 20
DATA 20
DATA 20
DATA 20
DATA 20
DATA 0
DATA 0
DATA 65
DATA 34
DATA 20
DATA 8
DATA 0
DATA 2
DATA 1
DATA 81
DATA 9
DATA 6
DATA 0
DATA 50
DATA 73
DATA 121
DATA 65
DATA 62
DATA 0
DATA 126
DATA 17
DATA 17
DATA 17
DATA 126
DATA 0
DATA 127
DATA 73
DATA 73
DATA 73
DATA 54
DATA 0
DATA 62
DATA 65
DATA 65
DATA 65
DATA 34
DATA 0
DATA 127
DATA 65
DATA 65
DATA 34
DATA 28
DATA 0
DATA 127
DATA 73
DATA 73
DATA 73
DATA 65
DATA 0
DATA 127
DATA 9
DATA 9
DATA 9
DATA 1
DATA 0
DATA 62
DATA 65
DATA 73
DATA 73
DATA 122
DATA 0
DATA 127
DATA 8
DATA 8
DATA 8
DATA 127
DATA 0
DATA 0
DATA 65
DATA 127
DATA 65
DATA 0
DATA 0
DATA 32
DATA 64
DATA 65
DATA 63
DATA 1
DATA 0
DATA 127
DATA 8
DATA 20
DATA 34
DATA 65
DATA 0
DATA 127
DATA 64
DATA 64
DATA 64
DATA 64
DATA 0
DATA 127
DATA 2
DATA 12
DATA 2
DATA 127
DATA 0
DATA 127
DATA 4
DATA 8
DATA 16
DATA 127
DATA 0
DATA 62
DATA 65
DATA 65
DATA 65
DATA 62
DATA 0
DATA 127
DATA 9
DATA 9
DATA 9
DATA 6
DATA 0
DATA 62
DATA 65
DATA 81
DATA 33
DATA 94
DATA 0
DATA 127
DATA 9
DATA 25
DATA 41
DATA 70
DATA 0
DATA 70
DATA 73
DATA 73
DATA 73
DATA 49
DATA 0
DATA 1
DATA 1
DATA 127
DATA 1
DATA 1
DATA 0
DATA 63
DATA 64
DATA 64
DATA 64
DATA 63
DATA 0
DATA 31
DATA 32
DATA 64
DATA 32
DATA 31
DATA 0
DATA 63
DATA 64
DATA 56
DATA 64
DATA 63
DATA 0
DATA 99
DATA 20
DATA 8
DATA 20
DATA 99
DATA 0
DATA 7
DATA 8
DATA 112
DATA 8
DATA 7
DATA 0
DATA 97
DATA 81
DATA 73
DATA 69
DATA 67
DATA 0
DATA 127
DATA 65
DATA 65
DATA 0
DATA 0
DATA 0
DATA 2
DATA 4
DATA 8
DATA 16
DATA 32
DATA 0
DATA 0
DATA 0
DATA 65
DATA 65
DATA 127
DATA 0
DATA 4
DATA 2
DATA 1
DATA 2
DATA 4
DATA 0
DATA 64
DATA 64
DATA 64
DATA 64
DATA 64
DATA 0
DATA 0
DATA 1
DATA 2
DATA 4
DATA 0
DATA 0
DATA 32
DATA 84
DATA 84
DATA 84
DATA 120
DATA 0
DATA 127
DATA 72
DATA 68
DATA 68
DATA 56
DATA 0
DATA 56
DATA 68
DATA 68
DATA 68
DATA 32
DATA 0
DATA 56
DATA 68
DATA 68
DATA 72
DATA 127
DATA 0
DATA 56
DATA 84
DATA 84
DATA 84
DATA 24
DATA 0
DATA 8
DATA 126
DATA 9
DATA 1
DATA 2
DATA 0
DATA 12
DATA 82
DATA 82
DATA 82
DATA 62
DATA 0
DATA 127
DATA 8
DATA 4
DATA 4
DATA 120
DATA 0
DATA 0
DATA 68
DATA 125
DATA 64
DATA 0
DATA 0
DATA 0
DATA 32
DATA 64
DATA 68
DATA 61
DATA 0
DATA 127
DATA 16
DATA 40
DATA 68
DATA 0
DATA 0
DATA 0
DATA 65
DATA 127
DATA 64
DATA 0
DATA 0
DATA 124
DATA 4
DATA 24
DATA 4
DATA 120
DATA 0
DATA 124
DATA 8
DATA 4
DATA 4
DATA 120
DATA 0
DATA 56
DATA 68
DATA 68
DATA 68
DATA 56
DATA 0
DATA 124
DATA 20
DATA 20
DATA 20
DATA 8
DATA 0
DATA 8
DATA 20
DATA 20
DATA 24
DATA 124
DATA 0
DATA 124
DATA 8
DATA 4
DATA 4
DATA 8
DATA 0
DATA 72
DATA 84
DATA 84
DATA 84
DATA 32
DATA 0
DATA 4
DATA 63
DATA 68
DATA 64
DATA 32
DATA 0
DATA 60
DATA 64
DATA 64
DATA 32
DATA 124
DATA 0
DATA 28
DATA 32
DATA 64
DATA 32
DATA 28
DATA 0
DATA 60
DATA 64
DATA 48
DATA 64
DATA 60
DATA 0
DATA 68
DATA 40
DATA 16
DATA 40
DATA 68
DATA 0
DATA 12
DATA 80
DATA 80
DATA 80
DATA 60
DATA 0
DATA 68
DATA 100
DATA 84
DATA 76
DATA 68
DATA 0
DATA 8
DATA 54
DATA 65
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 127
DATA 0
DATA 0
DATA 0
DATA 0
DATA 0
DATA 65
DATA 54
DATA 8
DATA 0
DATA 0
DATA 8
DATA 4
DATA 8
DATA 4
DATA 0
F3_EOF equ $ ; FONT.INC
F1_EOF equ $ ; GLCD_T~1.BAS
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -