mirror of
https://github.com/irmen/prog8.git
synced 2024-11-27 03:50:27 +00:00
31 lines
546 B
Lua
31 lines
546 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
sub start() {
|
|
uword crc = $ffff
|
|
if crc & $8000 ; msb(crc) & $80
|
|
txt.print("yes")
|
|
else
|
|
txt.print("fail!")
|
|
|
|
if crc & $1234
|
|
txt.print("yes")
|
|
else
|
|
txt.print("fail!")
|
|
}
|
|
|
|
; sub start2() {
|
|
; ubyte[] arr = [1,2,3,4]
|
|
; uword pointer
|
|
; ubyte ix
|
|
;
|
|
; arr[ix] = arr[ix]+1
|
|
;
|
|
;; arr[3] = arr[3]+1
|
|
;; pointer[3] = pointer[3]+1
|
|
;
|
|
; txt.print_ub(arr[3])
|
|
; }
|
|
}
|