2024-03-12 22:39:54 +00:00
|
|
|
%zeropage basicsafe
|
2024-03-20 21:34:39 +00:00
|
|
|
%option no_sysinit
|
2023-12-31 00:02:33 +00:00
|
|
|
|
2024-01-07 17:48:18 +00:00
|
|
|
main {
|
2024-03-02 13:26:02 +00:00
|
|
|
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-17 22:18:33 +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
|
2024-03-16 19:58:45 +00:00
|
|
|
}
|