2021-11-24 00:41:04 +00:00
|
|
|
%import textio
|
|
|
|
%import conv
|
2021-10-27 21:48:02 +00:00
|
|
|
|
2021-10-30 13:15:11 +00:00
|
|
|
main {
|
2021-11-06 18:09:33 +00:00
|
|
|
|
2021-11-09 23:17:56 +00:00
|
|
|
sub start() {
|
2021-11-13 11:56:59 +00:00
|
|
|
|
2021-11-24 00:41:04 +00:00
|
|
|
uword xx
|
2021-11-26 19:32:12 +00:00
|
|
|
ubyte yy = 33
|
2021-11-26 19:56:30 +00:00
|
|
|
xx=xx-routine(2)
|
2021-11-24 00:41:04 +00:00
|
|
|
; concat_string(random_name())
|
|
|
|
|
|
|
|
; ubyte xx=20
|
|
|
|
; ubyte yy=10
|
|
|
|
;
|
|
|
|
; routine(33)
|
|
|
|
; txt.setcc(xx+1, yy+3, 81, 7)
|
|
|
|
; txt.setcc(xx+2, yy+2, 81, 7)
|
|
|
|
; txt.setcc(xx+3, yy+1, 81, 7)
|
|
|
|
;
|
|
|
|
; ; TODO test new param load with subroutine call in expression:
|
|
|
|
; ; yy=routine(33)
|
|
|
|
;
|
|
|
|
; main.routine.r1arg = 20
|
|
|
|
; ; main.routine2.r2arg = 20 ; TODO asmgen
|
|
|
|
;
|
|
|
|
; xx = main.routine.r1arg
|
|
|
|
; xx++
|
|
|
|
; ;xx = main.routine2.r2arg ; TODO asmgen
|
|
|
|
; ;xx++
|
2021-11-20 23:07:17 +00:00
|
|
|
|
|
|
|
repeat {
|
|
|
|
}
|
2021-11-16 22:52:30 +00:00
|
|
|
}
|
2021-11-21 11:34:57 +00:00
|
|
|
|
2021-11-24 00:41:04 +00:00
|
|
|
sub random_name() -> str {
|
|
|
|
ubyte ii
|
|
|
|
str name = " " ; 8 chars max
|
|
|
|
return name
|
2021-11-21 22:21:39 +00:00
|
|
|
}
|
2021-11-24 00:41:04 +00:00
|
|
|
|
2021-11-26 19:56:30 +00:00
|
|
|
ubyte qqq
|
2021-11-24 00:41:04 +00:00
|
|
|
sub routine(ubyte r1arg) -> ubyte {
|
2021-11-26 19:56:30 +00:00
|
|
|
return qqq
|
|
|
|
return main.start.yy
|
2021-11-21 22:21:39 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
asmsub routine2(ubyte r2arg @ A) {
|
|
|
|
%asm {{
|
|
|
|
rts
|
|
|
|
}}
|
2021-11-21 15:23:48 +00:00
|
|
|
}
|
2021-11-21 22:21:39 +00:00
|
|
|
|
2021-05-12 22:35:22 +00:00
|
|
|
}
|