mirror of
https://github.com/irmen/prog8.git
synced 2024-10-17 10:24:55 +00:00
32 lines
609 B
Lua
32 lines
609 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
sub start() {
|
|
uword crc = $ffff
|
|
txt.print_uwhex(crc | (crc & $8000), true)
|
|
; if crc & $8000 ; msb(crc) & $80
|
|
; txt.print("yes")
|
|
; else
|
|
; txt.print("fail!")
|
|
;
|
|
; if msb(crc) & $80
|
|
; 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])
|
|
; }
|
|
}
|