prog8/examples/test.p8

18 lines
441 B
Plaintext
Raw Normal View History

%zeropage basicsafe
%option no_sysinit
main {
sub start() {
2024-03-21 22:40:36 +00:00
bool @shared flag
2024-03-22 20:45:58 +00:00
cx16.r1=9999
2024-03-25 21:15:41 +00:00
flag = test(42)
2024-03-22 20:45:58 +00:00
cx16.r0L, flag = test2(12345, 5566, flag, -42)
2024-03-25 22:20:03 +00:00
cx16.r1, flag = test3()
2024-03-21 22:40:36 +00:00
}
2024-03-25 22:20:03 +00:00
romsub $8000 = test(ubyte arg @A) -> bool @Pc
romsub $8002 = test2(uword arg @AY, uword arg2 @R1, bool flag @Pc, byte value @X) -> ubyte @A, bool @Pc
romsub $8003 = test3() -> uword @R1, bool @Pc
}