38 lines
729 B
Plaintext
38 lines
729 B
Plaintext
_runtimePath_ "../runtime"
|
|
_userCodeStart_ &h0300
|
|
_codeRomType_ ROMv1
|
|
|
|
cls
|
|
10 aaa = &h21
|
|
aaa = aaa AND &hFFFF
|
|
a = NOT aaa - peek(aaa AND pEeK(&h0000 OR peek(&h0000))) AND &hFC OR peek(aaa+1) + 23 XOR &B00001111 - NOT 56 + NOT aaa
|
|
b = 131
|
|
gosub blamo
|
|
|
|
rem cls
|
|
print hex$(a, 2);" ";hex$(b, 4);" ";hex$(&h1111 OR &h2222, 4)
|
|
print "test";" ";"dog";" ";56+44;" ";a;" ";hex$(get("ROM_TYPE") AND &hFC, 2)
|
|
x = &h0080
|
|
z = (x AND &h3F) LSL 8
|
|
at x, (z AND &h3F)
|
|
print hex$(x, 4);" ";hex$(z, 4)
|
|
' goto 10
|
|
END
|
|
|
|
blamo: b = &haa55 XOR &hF0F0
|
|
b = b XOR a
|
|
|
|
for i = 0 to 10
|
|
c$ = CHR$(32)
|
|
c = 32
|
|
f = peek(0)
|
|
d = c AND &hAA55 AND a
|
|
z = a + 5 + b
|
|
b = -b
|
|
print i; " " ;hex$(b, 4)
|
|
next i
|
|
|
|
g = z - NOT g
|
|
h = NOT a - d
|
|
return
|