Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2026-04-21 17:16:33 +00:00
Code Issues Projects Releases Wiki Activity

Implement struct field long and signed word bitshifts. Fixes #194

Browse Source
This commit is contained in:
Irmen de Jong
2025-11-25 22:28:28 +01:00
parent 93135774e6
commit 8b86f97aaa
3 changed files with 240 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/test.p8
+45 -9
View File
@@ -1,18 +1,54 @@
%option no_sysinit ; leave the CX16 defaults in place
%zeropage basicsafe ; don't step on BASIC zero page locations
%import textio
%zeropage basicsafe
main {
struct element {
ubyte type
long x
word w
}
sub start() {
long @shared lv1, lv2
word w = -1111
long l = -11111111
^^element myElement = [1, -11111111, -1111]
lv1 = 1111
lv2 = 8888
cx16.r0r1sl = lv1
cx16.r14r15sl = lv2 + cx16.r0r1sl
txt.print_l(cx16.r14r15sl)
txt.print_w(w)
txt.spc()
w >>= 4
txt.print_w(w)
txt.spc()
w <<= 4
txt.print_w(w)
txt.nl()
txt.print_w(myElement.w)
txt.spc()
myElement.w >>= 4
txt.print_w(myElement.w)
txt.spc()
myElement.w <<= 4
txt.print_w(myElement.w)
txt.nl()
txt.nl()
txt.print_l(l)
txt.spc()
l >>= 4
txt.print_l(l)
txt.spc()
l <<= 4
txt.print_l(l)
txt.nl()
txt.print_l(myElement.x)
txt.spc()
myElement.x >>= 4
txt.print_l(myElement.x)
txt.spc()
myElement.x <<= 4
txt.print_l(myElement.x)
txt.nl()
}
}