mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
Merge pull request #3258 from scottmangiapane/master
Added support for TI Code
This commit is contained in:
Arfon Smith
GitHub
@@ -4072,6 +4072,17 @@ SystemVerilog:
|
|||||||
codemirror_mode: verilog
|
codemirror_mode: verilog
|
||||||
codemirror_mime_type: text/x-systemverilog
|
codemirror_mime_type: text/x-systemverilog
|
||||||
language_id: 363
|
language_id: 363
|
||||||
|
TI Program:
|
||||||
|
type: programming
|
||||||
|
ace_mode: text
|
||||||
|
color: "#A0AA87"
|
||||||
|
extensions:
|
||||||
|
- ".8xp"
|
||||||
|
- ".8xk"
|
||||||
|
- ".8xk.txt"
|
||||||
|
- ".8xp.txt"
|
||||||
|
language_id: 422
|
||||||
|
tm_scope: none
|
||||||
TLA:
|
TLA:
|
||||||
type: programming
|
type: programming
|
||||||
extensions:
|
extensions:
|
||||||
|
|||||||
63
samples/TI Program/srcalpha.8xp.txt
Normal file
63
samples/TI Program/srcalpha.8xp.txt
Normal file
@@ -0,0 +1,63 @@
|
|||||||
|
.AlphaCS
|
||||||
|
#ExprOff
|
||||||
|
If getKey(41)
|
||||||
|
sub(ADM)
|
||||||
|
End
|
||||||
|
Lbl START
|
||||||
|
"appv alpha "->Str1
|
||||||
|
"appvAlphaCS"->Str2
|
||||||
|
.ALPHA CS
|
||||||
|
[7EFFFFE7FFFFE7E7]->Pic11
|
||||||
|
[E0E0E0E0E0FFFF7F]->Pic12
|
||||||
|
[FEFFE7FFFEE0E0E0]->Pic13
|
||||||
|
[E7E7E7FFFFE7E7E7]->Pic14
|
||||||
|
[7EFFFFE7FFFFE7E7]->Pic15
|
||||||
|
[7FFFFFE0E0FFFF7F]->Pic16
|
||||||
|
[7FFFFF781EFFFFFE]->Pic17
|
||||||
|
.arch
|
||||||
|
[0038447C44440000]->Pic21
|
||||||
|
.hide
|
||||||
|
[0054004400540000]->Pic22
|
||||||
|
.lock
|
||||||
|
[0038447C7C7C0000]->Pic23
|
||||||
|
.(c) Scott Mangiapane
|
||||||
|
Data(72,8)->GDB0
|
||||||
|
[42600A360008000100994DDF2A6C61B1B28091294A22AAAAAAAB005A6DCA226A69B9A9800000000000202000000000000000C0200000000000000000000000000000000000000000]
|
||||||
|
.icon unknown
|
||||||
|
Data(16,16)->GDB11
|
||||||
|
[EFFEA803EB8308032BFB28032BFB0803EBFBA803EBFB08032B8328032FFF07FF]
|
||||||
|
.icon SRC
|
||||||
|
Data(16,16)->GDB12
|
||||||
|
[01801A583E7C3FFC3FFC3E7C1A580A500240FFFFC471BDAFCC6FF5AF8DB1FFFF]
|
||||||
|
.icon ASM
|
||||||
|
Data(16,16)->GDB13
|
||||||
|
[FFFFFFFFFFFFFFFFFFFFCE6BB5D586D5B75DB4DDFFFFFFFFFFFFFFFFFFFFFFFF]
|
||||||
|
.icon shell
|
||||||
|
Data(16,16)->GDB14
|
||||||
|
[FFFFFFFFFFFFFFFFFFFFFFFF97B5B155D5359595FFFFFFFFFFFFFFFFFFFFFFFF]
|
||||||
|
Goto SET
|
||||||
|
prgmSRCFUNC
|
||||||
|
prgmSRCGUI
|
||||||
|
prgmSRCSORT
|
||||||
|
Lbl SET
|
||||||
|
.start, set up
|
||||||
|
ClrDraw
|
||||||
|
StoreGDB
|
||||||
|
DiagnosticOff
|
||||||
|
Fix 5
|
||||||
|
Full
|
||||||
|
!If GetCalc(Str1,[Y1])
|
||||||
|
sub(NEW)
|
||||||
|
StoreGDB
|
||||||
|
End
|
||||||
|
GetCalc(Str1,[Y1])
|
||||||
|
If {[Y1]+0}
|
||||||
|
!If sub(CODE)
|
||||||
|
Goto END
|
||||||
|
End
|
||||||
|
End
|
||||||
|
Asm(FDCB249E)
|
||||||
|
If {[Y1]+6}
|
||||||
|
Asm(FDCB24DE)
|
||||||
|
End
|
||||||
|
Goto DLIST
|
||||||
194
samples/TI Program/srcfunc.8xp.txt
Normal file
194
samples/TI Program/srcfunc.8xp.txt
Normal file
@@ -0,0 +1,194 @@
|
|||||||
|
.FUNC AlphaCS
|
||||||
|
Lbl ADM
|
||||||
|
DiagnosticOff
|
||||||
|
Fix 5
|
||||||
|
Full
|
||||||
|
StoreGDB
|
||||||
|
sub(D2,13,17,70,29,"Admin Access")
|
||||||
|
sub(D1,15,27)
|
||||||
|
Text(15,37,"Admin Code: - - - -")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->A
|
||||||
|
End
|
||||||
|
Text(55,37,"*")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->B
|
||||||
|
End
|
||||||
|
Text(62,37,"*")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->C
|
||||||
|
End
|
||||||
|
Text(69,37,"*")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->D
|
||||||
|
End
|
||||||
|
Text(76,37,"*")
|
||||||
|
DispGraph
|
||||||
|
Normal
|
||||||
|
Pause 100
|
||||||
|
Full
|
||||||
|
If (A!=20) or (B!=35) or (C!=18) or (D!=27)
|
||||||
|
Goto END
|
||||||
|
End
|
||||||
|
sub(D2,13,17,70,29,"Author Info")
|
||||||
|
sub(D1,15,27)
|
||||||
|
Bitmap(15,38,GDB0)
|
||||||
|
DispGraph
|
||||||
|
Repeat (getKey) and (getKey(9))
|
||||||
|
End
|
||||||
|
DelVar "appv alpha "
|
||||||
|
Return
|
||||||
|
Lbl D1
|
||||||
|
.draws title
|
||||||
|
Pt-On([r1]+1,[r2]+1,Pic11)
|
||||||
|
Pt-On([r1]+10,[r2]+1,Pic12)
|
||||||
|
Pt-On([r1]+19,[r2]+1,Pic13)
|
||||||
|
Pt-On([r1]+28,[r2]+1,Pic14)
|
||||||
|
Pt-On([r1]+37,[r2]+1,Pic15)
|
||||||
|
Pt-On([r1]+48,[r2]+1,Pic16)
|
||||||
|
Pt-On([r1]+57,[r2]+1,Pic17)
|
||||||
|
RectI([r1],[r2],66,10)
|
||||||
|
Pxl-Off([r1],[r2])
|
||||||
|
RectI([r1]+14,[r2],4,5)
|
||||||
|
RectI([r1]+23,[r2]+7,4,3)
|
||||||
|
RectI([r1]+46,[r2]+1,1,8)
|
||||||
|
RectI([r1]+45,[r2],3,1)
|
||||||
|
RectI([r1]+46,[r2]+9,2,1)
|
||||||
|
Pxl-Off([r1]+65,[r2]+9)
|
||||||
|
Return
|
||||||
|
Lbl D2
|
||||||
|
.windows
|
||||||
|
Rect([r1]+1,[r2],[r3]-2,[r4])
|
||||||
|
Rect([r1],[r2]+1,[r3],[r4]-2)
|
||||||
|
RectI([r1]+1,[r2]+1,[r3]-2,[r4]-2)
|
||||||
|
Text([r1]+2,[r2]+2,[r5])
|
||||||
|
RectI([r1]+1,[r2]+1,[r3]-2,8)
|
||||||
|
Pt-Off([r1]+[r3]-9,[r2]+1,[C1BEAAB6AABEC1FF])
|
||||||
|
Pxl-On([r1]+1,[r2]+[r4]-2)
|
||||||
|
Pxl-On([r1]+[r3]-2,[r2]+[r4]-2)
|
||||||
|
Return
|
||||||
|
Lbl D3
|
||||||
|
.archiving box
|
||||||
|
sub(D2,15,22,66,20,"Archiving...")
|
||||||
|
Text(17,31,"Please wait...")
|
||||||
|
Return
|
||||||
|
Lbl CODE
|
||||||
|
sub(D2,15,22,66,20,"Access Denied")
|
||||||
|
Text(29,32," - - - - ")
|
||||||
|
DispGraph
|
||||||
|
1->[r2]
|
||||||
|
Repeat getKey->[r1]
|
||||||
|
End
|
||||||
|
Text(29,32,"*")
|
||||||
|
DispGraph
|
||||||
|
If [r1]!=({[Y1]+1})
|
||||||
|
0->[r2]
|
||||||
|
End
|
||||||
|
Repeat getKey->[r1]
|
||||||
|
End
|
||||||
|
Text(39,32,"*")
|
||||||
|
DispGraph
|
||||||
|
If [r1]!=({[Y1]+2})
|
||||||
|
0->[r2]
|
||||||
|
End
|
||||||
|
Repeat getKey->[r1]
|
||||||
|
End
|
||||||
|
Text(49,32,"*")
|
||||||
|
DispGraph
|
||||||
|
If [r1]!=({[Y1]+3})
|
||||||
|
0->[r2]
|
||||||
|
End
|
||||||
|
Repeat getKey->[r1]
|
||||||
|
End
|
||||||
|
Text(59,32,"*")
|
||||||
|
DispGraph
|
||||||
|
If [r1]!=({[Y1]+4})
|
||||||
|
0->[r2]
|
||||||
|
End
|
||||||
|
Normal
|
||||||
|
Pause 200
|
||||||
|
Full
|
||||||
|
Return[r2]
|
||||||
|
Lbl NEW
|
||||||
|
ClrDraw
|
||||||
|
sub(D1,0,0)
|
||||||
|
RectI(0,11,96,1)
|
||||||
|
Text(1,12,"Installation")
|
||||||
|
Text(1,20,"Enter your new keycode:")
|
||||||
|
Text(1,26," - - - - ")
|
||||||
|
DispGraph
|
||||||
|
GetCalc(Str1,16)->[r1]
|
||||||
|
Fill([r1],16,1)
|
||||||
|
0->{[r1]}
|
||||||
|
Repeat getKey->[r2]
|
||||||
|
End
|
||||||
|
[r2]->{[r1]+1}
|
||||||
|
Text(1,26,"*")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->[r2]
|
||||||
|
End
|
||||||
|
[r2]->{[r1]+2}
|
||||||
|
Text(7,26,"*")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->[r2]
|
||||||
|
End
|
||||||
|
[r2]->{[r1]+3}
|
||||||
|
Text(13,26,"*")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->[r2]
|
||||||
|
End
|
||||||
|
[r2]->{[r1]+4}
|
||||||
|
Text(19,26,"*")
|
||||||
|
DispGraph
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Text(1,34,"Confirm keycode:")
|
||||||
|
Text(1,40," - - - - ")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->[r2]
|
||||||
|
End
|
||||||
|
[r2]->{L1+1}
|
||||||
|
Text(1,40,"*")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->[r2]
|
||||||
|
End
|
||||||
|
[r2]->{L1+2}
|
||||||
|
Text(7,40,"*")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->[r2]
|
||||||
|
End
|
||||||
|
[r2]->{L1+3}
|
||||||
|
Text(13,40,"*")
|
||||||
|
DispGraph
|
||||||
|
Repeat getKey->[r2]
|
||||||
|
End
|
||||||
|
[r2]->{L1+4}
|
||||||
|
Text(19,40,"*")
|
||||||
|
DispGraph
|
||||||
|
If ({[r1]+1}={L1+1}) and ({[r1]+2}={L1+2}) and ({[r1]+3}={L1+3}) and ({[r1]+4}={L1+4})
|
||||||
|
sub(D3)
|
||||||
|
DispGraph
|
||||||
|
GetCalc(Str2,10)
|
||||||
|
Archive Str1
|
||||||
|
GetCalc(Str1,[Y1])
|
||||||
|
ClrDraw
|
||||||
|
Return
|
||||||
|
Else
|
||||||
|
Text(1,48,"ERROR keycodes do not")
|
||||||
|
Text(1,54,"match.")
|
||||||
|
DispGraph
|
||||||
|
UnArchive Str1
|
||||||
|
DelVar Str1
|
||||||
|
Repeat getKey
|
||||||
|
End
|
||||||
|
Goto END
|
||||||
|
End
|
||||||
|
Return
|
||||||
|
Lbl END
|
||||||
|
Asm(FDCB249E)
|
||||||
|
If {[Y1]+6}
|
||||||
|
Asm(FDCB24DE)
|
||||||
|
End
|
||||||
|
ClrDraw
|
||||||
|
ClrDraw^^r
|
||||||
|
ClrHome
|
||||||
|
Return^^r
|
||||||
563
samples/TI Program/srcgui.8xp.txt
Normal file
563
samples/TI Program/srcgui.8xp.txt
Normal file
@@ -0,0 +1,563 @@
|
|||||||
|
.GUI AlphaCS
|
||||||
|
#Axiom(RUNPRGM)
|
||||||
|
#Axiom(ZSTAXE)
|
||||||
|
Lbl DLIST
|
||||||
|
ClrDraw
|
||||||
|
ClrDraw^^r
|
||||||
|
sub(D1,0,0)
|
||||||
|
RectI(0,11,96,1)
|
||||||
|
!If sub(POLAR,1)
|
||||||
|
RectI(0,63,96,1)
|
||||||
|
Text(1,13,"No programs found.")
|
||||||
|
DispGraph
|
||||||
|
Goto KLIST2
|
||||||
|
Else
|
||||||
|
Fill(L5,50,0)
|
||||||
|
Copy(L1,L5,20)
|
||||||
|
13->B->G
|
||||||
|
0->I
|
||||||
|
1->H
|
||||||
|
Text(1,13,L2)
|
||||||
|
If D
|
||||||
|
Pt-On(77,13,Pic21)
|
||||||
|
End
|
||||||
|
If E
|
||||||
|
Pt-On(83,13,Pic22)
|
||||||
|
End
|
||||||
|
If F
|
||||||
|
Pt-On(89,13,Pic23)
|
||||||
|
End
|
||||||
|
For(S,1,6)
|
||||||
|
If sub(ADJ,1)
|
||||||
|
S*7+13->G
|
||||||
|
Text(1,S*7+13,L2)
|
||||||
|
If D
|
||||||
|
Pt-On(77,S*7+13,Pic21)
|
||||||
|
End
|
||||||
|
If E
|
||||||
|
Pt-On(83,S*7+13,Pic22)
|
||||||
|
End
|
||||||
|
If F
|
||||||
|
Pt-On(89,S*7+13,Pic23)
|
||||||
|
End
|
||||||
|
End
|
||||||
|
End
|
||||||
|
End
|
||||||
|
Fill(L4,50,0)
|
||||||
|
Copy(L1,L4,20)
|
||||||
|
Lbl KLIST1
|
||||||
|
Rect(90,0,6,10)
|
||||||
|
RectI(90,0,6,10)
|
||||||
|
0->S->T
|
||||||
|
sub(POLAR,1)
|
||||||
|
If Equ>String(L1,L5)
|
||||||
|
S++
|
||||||
|
End
|
||||||
|
sub(POLAR,0)
|
||||||
|
If Equ>String(L1,L4)
|
||||||
|
T++
|
||||||
|
End
|
||||||
|
If (S) and (T)
|
||||||
|
Pt-On(90,6,[F870200000000000])
|
||||||
|
Pt-On(90,2,[2070F80000000000])
|
||||||
|
Else
|
||||||
|
If S
|
||||||
|
Pt-On(90,4,[2070F80000000000])
|
||||||
|
End
|
||||||
|
If T
|
||||||
|
Pt-On(90,4,[F870200000000000])
|
||||||
|
End
|
||||||
|
End
|
||||||
|
RectI(0,63,96,1)
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
DispGraph
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
RectI(0,63,96,1)
|
||||||
|
If getKey(15)
|
||||||
|
Goto DLIST
|
||||||
|
End
|
||||||
|
Repeat getKey
|
||||||
|
If getKey(41)
|
||||||
|
Repeat getKey(41)=0
|
||||||
|
End
|
||||||
|
Asm(3E01D303FB76)
|
||||||
|
Repeat getKey(41)=0
|
||||||
|
End
|
||||||
|
End
|
||||||
|
End
|
||||||
|
If getKey(48)
|
||||||
|
Goto DSET1
|
||||||
|
End
|
||||||
|
If (getKey(9)) or (getKey(54))
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L5,L1,20)
|
||||||
|
If (B-13/7)=0
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L5+1,L1,20)
|
||||||
|
sub(DATA)
|
||||||
|
Else
|
||||||
|
For(B-13/7)
|
||||||
|
sub(ADJ,1)
|
||||||
|
End
|
||||||
|
End
|
||||||
|
Goto DPRGM1
|
||||||
|
End
|
||||||
|
If getKey(4)
|
||||||
|
If (B!=13)
|
||||||
|
For(S,0,7)
|
||||||
|
RectI(0,63,96,1)
|
||||||
|
RectI(0,B-S,96,7)
|
||||||
|
DispGraph
|
||||||
|
RectI(0,B-S,96,7)
|
||||||
|
RectI(0,63,96,1)
|
||||||
|
End
|
||||||
|
B-7->B
|
||||||
|
Else
|
||||||
|
sub(POLAR,1)
|
||||||
|
If Equ>String(L1,L5)
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L4,L1,20)
|
||||||
|
sub(ADJ,0)
|
||||||
|
Fill(L4,50,0)
|
||||||
|
Copy(L1,L4,20)
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L5,L1,20)
|
||||||
|
sub(ADJ,0)
|
||||||
|
Fill(L5,50,0)
|
||||||
|
Copy(L1,L5,20)
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L4,L1,20)
|
||||||
|
Rect(0,0,96,13)
|
||||||
|
RectI(0,0,96,13)
|
||||||
|
For(7)
|
||||||
|
Vertical+
|
||||||
|
End
|
||||||
|
Rect(0,62,96,2)
|
||||||
|
RectI(0,62,96,2)
|
||||||
|
Text(1,13,L2)
|
||||||
|
If D
|
||||||
|
Pt-On(77,13,Pic21)
|
||||||
|
End
|
||||||
|
If E
|
||||||
|
Pt-On(83,13,Pic22)
|
||||||
|
End
|
||||||
|
If F
|
||||||
|
Pt-On(89,13,Pic23)
|
||||||
|
End
|
||||||
|
Rect(0,0,96,13)
|
||||||
|
RectI(0,0,96,13)
|
||||||
|
sub(D1,0,0)
|
||||||
|
RectI(0,11,96,1)
|
||||||
|
End
|
||||||
|
End
|
||||||
|
End
|
||||||
|
If getKey(1)
|
||||||
|
If (B!=G)
|
||||||
|
For(S,0,7)
|
||||||
|
RectI(0,63,96,1)
|
||||||
|
RectI(0,B+S,96,7)
|
||||||
|
DispGraph
|
||||||
|
RectI(0,B+S,96,7)
|
||||||
|
RectI(0,63,96,1)
|
||||||
|
End
|
||||||
|
B+7->B
|
||||||
|
Else
|
||||||
|
sub(POLAR,0)
|
||||||
|
If Equ>String(L1,L4)
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L5,L1,20)
|
||||||
|
sub(ADJ,1)
|
||||||
|
Fill(L5,50,0)
|
||||||
|
Copy(L1,L5,20)
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L4,L1,20)
|
||||||
|
sub(ADJ,1)
|
||||||
|
Fill(L4,50,0)
|
||||||
|
Copy(L1,L4,20)
|
||||||
|
For(7)
|
||||||
|
Vertical-
|
||||||
|
End
|
||||||
|
Text(1,55,L2)
|
||||||
|
If D
|
||||||
|
Pt-On(77,55,Pic21)
|
||||||
|
End
|
||||||
|
If E
|
||||||
|
Pt-On(83,55,Pic22)
|
||||||
|
End
|
||||||
|
If F
|
||||||
|
Pt-On(89,55,Pic23)
|
||||||
|
End
|
||||||
|
Rect(0,0,96,13)
|
||||||
|
RectI(0,0,96,13)
|
||||||
|
sub(D1,0,0)
|
||||||
|
RectI(0,11,96,1)
|
||||||
|
End
|
||||||
|
End
|
||||||
|
End
|
||||||
|
If getKey(15)
|
||||||
|
Goto END
|
||||||
|
End
|
||||||
|
Goto KLIST1
|
||||||
|
Lbl KLIST2
|
||||||
|
If getKey(15)
|
||||||
|
Goto DLIST
|
||||||
|
End
|
||||||
|
Repeat getKey
|
||||||
|
If getKey(41)
|
||||||
|
Repeat getKey(41)=0
|
||||||
|
End
|
||||||
|
Asm(3E01D303FB76)
|
||||||
|
Repeat getKey(41)=0
|
||||||
|
End
|
||||||
|
End
|
||||||
|
End
|
||||||
|
If getKey(48)
|
||||||
|
Goto DSET1
|
||||||
|
End
|
||||||
|
If getKey(15)
|
||||||
|
Goto END
|
||||||
|
End
|
||||||
|
Goto KLIST2
|
||||||
|
Lbl DPRGM1
|
||||||
|
GetCalc("appv alpha ",[Y1])
|
||||||
|
13->B
|
||||||
|
D->X
|
||||||
|
E->Y
|
||||||
|
F->Z
|
||||||
|
Lbl DPRGM2
|
||||||
|
GetCalc(L1,[Y3])
|
||||||
|
0->H
|
||||||
|
If ({[Y3]+0}=187) and ({[Y3]+1}=109)
|
||||||
|
1->H
|
||||||
|
If {[Y3]+2}=201
|
||||||
|
2->H
|
||||||
|
End
|
||||||
|
If {[Y3]+3}=201
|
||||||
|
3->H
|
||||||
|
End
|
||||||
|
End
|
||||||
|
If {[Y3]+0}=58
|
||||||
|
4->H
|
||||||
|
End
|
||||||
|
ClrDraw
|
||||||
|
ClrDraw^^r
|
||||||
|
sub(D1,0,0)
|
||||||
|
RectI(0,11,96,1)
|
||||||
|
Text(1,49,L2)
|
||||||
|
RectI(0,48,96,16)
|
||||||
|
69->S
|
||||||
|
If Z
|
||||||
|
Pt-Change(S,56,Pic23)
|
||||||
|
S-6->S
|
||||||
|
End
|
||||||
|
If Y
|
||||||
|
Pt-Change(S,56,Pic22)
|
||||||
|
S-6->S
|
||||||
|
End
|
||||||
|
If X
|
||||||
|
Pt-Change(S,56,Pic21)
|
||||||
|
End
|
||||||
|
RectI(1,56,94,7)
|
||||||
|
Text(2,56,"size: ",{[Y3]-2}^^r>Dec)
|
||||||
|
Text(1,13,"Run (with zStart)")
|
||||||
|
If X
|
||||||
|
Text(1,20,"Unarchive PRGM")
|
||||||
|
Else
|
||||||
|
Text(1,20,"Archive PRGM")
|
||||||
|
End
|
||||||
|
If Y
|
||||||
|
Text(1,27,"Unhide PRGM")
|
||||||
|
Else
|
||||||
|
Text(1,27,"Hide PRGM")
|
||||||
|
End
|
||||||
|
If Z
|
||||||
|
Text(1,34,"Unlock PRGM")
|
||||||
|
Else
|
||||||
|
Text(1,34,"Lock PRGM")
|
||||||
|
End
|
||||||
|
Rect(76,44,20,20)
|
||||||
|
RectI(77,45,18,18)
|
||||||
|
If H=0
|
||||||
|
Bitmap(78,46,GDB11)
|
||||||
|
End
|
||||||
|
If H=1
|
||||||
|
Bitmap(78,46,GDB13)
|
||||||
|
End
|
||||||
|
If H=2
|
||||||
|
Bitmap(78,46,GDB14)
|
||||||
|
End
|
||||||
|
If H=3
|
||||||
|
Bitmap(78,46,GDB14)
|
||||||
|
End
|
||||||
|
If H=4
|
||||||
|
Bitmap(78,46,GDB12)
|
||||||
|
End
|
||||||
|
Lbl KPRGM
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
DispGraph
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
Repeat getKey
|
||||||
|
End
|
||||||
|
If (getKey(9)) or (getKey(54))
|
||||||
|
If B=13
|
||||||
|
sub(SETPRGM)
|
||||||
|
Goto RUN
|
||||||
|
Else
|
||||||
|
Fill(L2,20,0)
|
||||||
|
Copy(L1+1,L2,20)
|
||||||
|
Fill(L1,20,0)
|
||||||
|
Copy(L2,L1,20)
|
||||||
|
sub(DATA)
|
||||||
|
If B=20
|
||||||
|
If X
|
||||||
|
0->X
|
||||||
|
Else
|
||||||
|
1->X
|
||||||
|
End
|
||||||
|
Goto DPRGM2
|
||||||
|
End
|
||||||
|
If B=27
|
||||||
|
If Y
|
||||||
|
0->Y
|
||||||
|
Else
|
||||||
|
1->Y
|
||||||
|
End
|
||||||
|
Goto DPRGM2
|
||||||
|
End
|
||||||
|
If B=34
|
||||||
|
If Z
|
||||||
|
0->Z
|
||||||
|
Else
|
||||||
|
1->Z
|
||||||
|
End
|
||||||
|
Goto DPRGM2
|
||||||
|
End
|
||||||
|
End
|
||||||
|
End
|
||||||
|
If (getKey(4)) and (B!=13)
|
||||||
|
For(S,0,7)
|
||||||
|
RectI(0,B-S,96,7)
|
||||||
|
DispGraph
|
||||||
|
RectI(0,B-S,96,7)
|
||||||
|
Normal
|
||||||
|
Pause 3
|
||||||
|
Full
|
||||||
|
End
|
||||||
|
B-7->B
|
||||||
|
End
|
||||||
|
If ((getKey(1)) and (B!=34)
|
||||||
|
For(S,0,7)
|
||||||
|
RectI(0,B+S,96,7)
|
||||||
|
DispGraph
|
||||||
|
RectI(0,B+S,96,7)
|
||||||
|
Normal
|
||||||
|
Pause 3
|
||||||
|
Full
|
||||||
|
End
|
||||||
|
B+7->B
|
||||||
|
End
|
||||||
|
If getKey(15)
|
||||||
|
sub(SETPRGM)
|
||||||
|
Goto DLIST
|
||||||
|
End
|
||||||
|
Goto KPRGM
|
||||||
|
Lbl SETPRGM
|
||||||
|
If (X!=D) or (Y!=E) or (Z!=F)
|
||||||
|
If X
|
||||||
|
sub(D3)
|
||||||
|
DispGraph
|
||||||
|
End
|
||||||
|
UnArchive L1
|
||||||
|
X->D
|
||||||
|
If (E!=Y)
|
||||||
|
If Y
|
||||||
|
{C-7}-64->{C-7}
|
||||||
|
{L1+1}-64->{L1+1}
|
||||||
|
Else
|
||||||
|
{C-7}+64->{C-7}
|
||||||
|
{L1+1}+64->{L1+1}
|
||||||
|
End
|
||||||
|
Y->E
|
||||||
|
End
|
||||||
|
If (F!=Z)
|
||||||
|
If Z
|
||||||
|
6->{C}
|
||||||
|
|E06->{L1}
|
||||||
|
Else
|
||||||
|
5->{C}
|
||||||
|
|E05->{L1}
|
||||||
|
End
|
||||||
|
Z->F
|
||||||
|
End
|
||||||
|
If X
|
||||||
|
Archive L1
|
||||||
|
End
|
||||||
|
End
|
||||||
|
GetCalc(L1,[Y3])
|
||||||
|
Return
|
||||||
|
Lbl RUN
|
||||||
|
GetCalc("appv hold ",20)->S
|
||||||
|
Fill(S,20,0)
|
||||||
|
Copy(L1+1,S,10)
|
||||||
|
A->{S+15}
|
||||||
|
DiagnosticOn
|
||||||
|
Fix 4
|
||||||
|
Normal
|
||||||
|
If D
|
||||||
|
GetCalc("appvzRun",{[Y3]-2}^^r)->S
|
||||||
|
Copy([Y3],S,{[Y3]-2}^^r)
|
||||||
|
End
|
||||||
|
2-SampZInt(|LRUNERR)
|
||||||
|
If D
|
||||||
|
Fpdf("appvzRun")
|
||||||
|
Else
|
||||||
|
Fpdf(L1)
|
||||||
|
End
|
||||||
|
2-SampTInt
|
||||||
|
DelVar "appvzRun"
|
||||||
|
GetCalc("appv hold ")->S
|
||||||
|
Fill(L1,20,0)
|
||||||
|
Copy(S,L1,10)
|
||||||
|
{S+15}->A
|
||||||
|
sub(DATA)
|
||||||
|
DelVar "appv hold "
|
||||||
|
DiagnosticOff
|
||||||
|
Fix 5
|
||||||
|
Full
|
||||||
|
Repeat getKey=0
|
||||||
|
End
|
||||||
|
Goto DPRGM1
|
||||||
|
Lbl RUNERR
|
||||||
|
2-SampFTest ->S
|
||||||
|
DelVar "appvzRun"
|
||||||
|
DiagnosticOff
|
||||||
|
Fix 5
|
||||||
|
Full
|
||||||
|
sub(D2,10,22,76,20,"Error")
|
||||||
|
If S=8
|
||||||
|
Text(12,31,"Syntax")
|
||||||
|
Else
|
||||||
|
Text(12,31,"Error "[23]"",S>Dec)
|
||||||
|
End
|
||||||
|
DispGraph
|
||||||
|
Repeat (getKey) and (getKey(9))
|
||||||
|
End
|
||||||
|
GetCalc("appv hold ")->S
|
||||||
|
Fill(L1,20,0)
|
||||||
|
Copy(S,L1,10)
|
||||||
|
{S+15}->A
|
||||||
|
sub(DATA)
|
||||||
|
DelVar "appv hold "
|
||||||
|
DiagnosticOff
|
||||||
|
Fix 5
|
||||||
|
Full
|
||||||
|
Repeat getKey=0
|
||||||
|
End
|
||||||
|
Goto DPRGM1
|
||||||
|
Lbl DSET1
|
||||||
|
21->B
|
||||||
|
{[Y1]+5}->X
|
||||||
|
{[Y1]}->Y
|
||||||
|
{[Y1]+6}->Z
|
||||||
|
Lbl DSET2
|
||||||
|
ClrDraw
|
||||||
|
sub(D1,0,0)
|
||||||
|
RectI(0,11,96,1)
|
||||||
|
Text(1,12,"by ClrDraw, Nov 2013, v 1")
|
||||||
|
RectI(0,19,96,1)
|
||||||
|
RectI(0,63,96,1)
|
||||||
|
If X
|
||||||
|
Text(1,21,"Show Hidden On")
|
||||||
|
Else
|
||||||
|
Text(1,21,"Show Hidden Off")
|
||||||
|
End
|
||||||
|
If Y
|
||||||
|
Text(1,28,"Password On")
|
||||||
|
Else
|
||||||
|
Text(1,28,"Password Off")
|
||||||
|
End
|
||||||
|
If Z
|
||||||
|
Text(1,35,"Lowercase On")
|
||||||
|
Else
|
||||||
|
Text(1,35,"Lowercase Off")
|
||||||
|
End
|
||||||
|
Text(1,42,"Uninstall AlphaCS")
|
||||||
|
Lbl KSET
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
DispGraph
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
Repeat getKey
|
||||||
|
End
|
||||||
|
If (getKey(54)) or (getKey(9))
|
||||||
|
If B=21
|
||||||
|
If X
|
||||||
|
0->X
|
||||||
|
Else
|
||||||
|
1->X
|
||||||
|
End
|
||||||
|
Goto DSET2
|
||||||
|
End
|
||||||
|
If B=28
|
||||||
|
If Y
|
||||||
|
0->Y
|
||||||
|
Else
|
||||||
|
1->Y
|
||||||
|
End
|
||||||
|
Goto DSET2
|
||||||
|
End
|
||||||
|
If B=35
|
||||||
|
If Z
|
||||||
|
0->Z
|
||||||
|
Else
|
||||||
|
1->Z
|
||||||
|
End
|
||||||
|
Goto DSET2
|
||||||
|
End
|
||||||
|
If B=42
|
||||||
|
If sub(CODE)
|
||||||
|
DelVar Str1
|
||||||
|
Goto END
|
||||||
|
Else
|
||||||
|
Goto DSET2
|
||||||
|
End
|
||||||
|
End
|
||||||
|
End
|
||||||
|
If (getKey(4)) and (B!=21)
|
||||||
|
For(7)
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
DispGraph
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
B--
|
||||||
|
Normal
|
||||||
|
Pause 3
|
||||||
|
Full
|
||||||
|
End
|
||||||
|
End
|
||||||
|
If (getKey(1)) and (B!=42)
|
||||||
|
For(7)
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
DispGraph
|
||||||
|
RectI(0,B,96,7)
|
||||||
|
B++
|
||||||
|
Normal
|
||||||
|
Pause 3
|
||||||
|
Full
|
||||||
|
End
|
||||||
|
End
|
||||||
|
If getKey(15)
|
||||||
|
If ({[Y1]+5}!=X) or ({[Y1]}!=Y) or ({[Y1]+6}!=Z)
|
||||||
|
UnArchive Str1
|
||||||
|
GetCalc(Str1)->S
|
||||||
|
X->{S+5}
|
||||||
|
Y->{S}
|
||||||
|
Z->{S+6}
|
||||||
|
sub(D3)
|
||||||
|
DispGraph
|
||||||
|
Archive Str1
|
||||||
|
GetCalc(Str1,[Y1])
|
||||||
|
End
|
||||||
|
Repeat getKey=0
|
||||||
|
End
|
||||||
|
Goto DLIST
|
||||||
|
End
|
||||||
|
Goto KSET
|
||||||
138
samples/TI Program/srcsort.8xp.txt
Normal file
138
samples/TI Program/srcsort.8xp.txt
Normal file
@@ -0,0 +1,138 @@
|
|||||||
|
.SORT AlphaCS
|
||||||
|
Lbl POLAR
|
||||||
|
Fill(L1,50,0)
|
||||||
|
{|E9830}^^r->[r2]
|
||||||
|
Repeat (({[r2]}=5) or ({[r2]}=6)) and (({[r2]-7}>48) or (({[Y1]+5}) and ({[r2]-7}<28)))
|
||||||
|
[r2]-{[r2]-6}-7->[r2]
|
||||||
|
If [r2]<={|E982E}^^r
|
||||||
|
Return0
|
||||||
|
End
|
||||||
|
End
|
||||||
|
For([r3],1,{[r2]-6})
|
||||||
|
{[r2]-6-[r3]}->{L1+[r3]-1}
|
||||||
|
End
|
||||||
|
[r2]-{[r2]-6}-7->[r2]
|
||||||
|
Repeat 0
|
||||||
|
If (({[r2]}=5) or ({[r2]}=6)) and (({[r2]-7}>48) or (({[Y1]+5}) and ({[r2]-7}<28)))
|
||||||
|
Fill(L2,50,0)
|
||||||
|
For([r3],1,{[r2]-6}
|
||||||
|
{[r2]-6-[r3]}->{L2+[r3]-1
|
||||||
|
End
|
||||||
|
0->[r3]
|
||||||
|
Repeat ({L1+[r3]}!={L2+[r3]}) or ([r3]=20)
|
||||||
|
[r3]++
|
||||||
|
End
|
||||||
|
If (({L1+[r3]}>{L2+[r3]}) and ([r1]=1)) or (({L1+[r3]}<{L2+[r3]}) and ([r1]=0))
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L2,L1,20)
|
||||||
|
End
|
||||||
|
Else
|
||||||
|
If [r2]<{|E982E}^^r
|
||||||
|
sub(DATA)
|
||||||
|
Return1
|
||||||
|
End
|
||||||
|
End
|
||||||
|
[r2]-{[r2]-6}-7->[r2]
|
||||||
|
End
|
||||||
|
Lbl ADJ
|
||||||
|
Fill(L2,50,0)
|
||||||
|
Copy(L1+1,L2,20)
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L2,L1)
|
||||||
|
Fill(L3,50,0)
|
||||||
|
Copy(L1,L3,20)
|
||||||
|
Fill(L1,50,0)
|
||||||
|
{|E9830}^^r->[r2]
|
||||||
|
sub(CHECK)
|
||||||
|
Repeat (({[r2]}=5) or ({[r2]}=6)) and ([r4]) and (({[r2]-7}>48) or ({[r2]-7}<28))
|
||||||
|
[r2]-{[r2]-6}-7->[r2]
|
||||||
|
If [r2]<{|E982E}^^r
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L3,L1,20)
|
||||||
|
Fill(L3,50,0)
|
||||||
|
sub(DATA)
|
||||||
|
Return0
|
||||||
|
End
|
||||||
|
sub(CHECK)
|
||||||
|
End
|
||||||
|
For([r3],1,{[r2]-6})
|
||||||
|
{[r2]-6-[r3]}->{L1+[r3]-1}
|
||||||
|
End
|
||||||
|
[r2]-{[r2]-6}-7->[r2]
|
||||||
|
Repeat 0
|
||||||
|
sub(CHECK)
|
||||||
|
If (({[r2]}=5) or ({[r2]}=6)) and ([r4]) and (({[r2]-7}>48) or ({[r2]-7}<28))
|
||||||
|
Fill(L2,50,0)
|
||||||
|
For([r3],1,{[r2]-6}
|
||||||
|
{[r2]-6-[r3]}->{L2+[r3]-1
|
||||||
|
End
|
||||||
|
0->[r3]
|
||||||
|
Repeat ({L1+[r3]}!={L2+[r3]}) or ([r3]=20)
|
||||||
|
[r3]++
|
||||||
|
End
|
||||||
|
If (({L1+[r3]}>{L2+[r3]}) and ([r1]=1)) or (({L1+[r3]}<{L2+[r3]}) and ([r1]=0))
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L2,L1,20)
|
||||||
|
End
|
||||||
|
Else
|
||||||
|
If [r2]<{|E982E}^^r
|
||||||
|
sub(DATA)
|
||||||
|
Return1
|
||||||
|
End
|
||||||
|
End
|
||||||
|
[r2]-{[r2]-6}-7->[r2]
|
||||||
|
End
|
||||||
|
Lbl CHECK
|
||||||
|
0->[r4]
|
||||||
|
Repeat ({[r2]-7-[r4]}!={L3+[r4]}) or (([r4]>={[r2]-6}) and ({L3+[r4]}=0))
|
||||||
|
[r4]++
|
||||||
|
End
|
||||||
|
If ((({[r2]-7-[r4]}<{L3+[r4]}) and ([r1]=1)) or (({[r2]-7-[r4]}>{L3+[r4]}) and ([r1]=0))) or (([r4]>={[r2]-6}) and ({L3+[r4]}=0))
|
||||||
|
0->[r4]
|
||||||
|
Else
|
||||||
|
1->[r4]
|
||||||
|
End
|
||||||
|
Return
|
||||||
|
Lbl DATA
|
||||||
|
{|E9830}^^r->C
|
||||||
|
Repeat 0
|
||||||
|
Repeat ({C}=5) or ({C}=6) and (({[r1]-7}>48) or ({[r1]-7}<28))
|
||||||
|
C-{C-6}-7->C
|
||||||
|
End
|
||||||
|
Fill(L2,50,0)
|
||||||
|
For([r1],1,{C-6})
|
||||||
|
{C-6-[r1]}->{L2+[r1]-1}
|
||||||
|
End
|
||||||
|
!If Equ>String(L1,L2)
|
||||||
|
If {C-5}=0
|
||||||
|
0->D
|
||||||
|
Else
|
||||||
|
1->D
|
||||||
|
End
|
||||||
|
If {C-7}<28
|
||||||
|
1->E
|
||||||
|
Else
|
||||||
|
0->E
|
||||||
|
End
|
||||||
|
If {C}=6
|
||||||
|
1->F
|
||||||
|
Else
|
||||||
|
0->F
|
||||||
|
End
|
||||||
|
Fill(L2,50,0)
|
||||||
|
Copy(L1,L2,20)
|
||||||
|
Fill(L1,50,0)
|
||||||
|
Copy(L2,L1+1,20)
|
||||||
|
If E
|
||||||
|
{L2}+64->{L2}
|
||||||
|
End
|
||||||
|
If F
|
||||||
|
|E06->{L1}
|
||||||
|
Else
|
||||||
|
|E05->{L1}
|
||||||
|
End
|
||||||
|
Return
|
||||||
|
End
|
||||||
|
C-{C-6}-7->C
|
||||||
|
End
|
||||||
|
Return
|
||||||
Reference in New Issue
Block a user