2020-12-27 01:22:18 +00:00
|
|
|
%import test_stack
|
|
|
|
|
%import textio
|
2021-01-03 01:45:25 +00:00
|
|
|
%zeropage basicsafe
|
2020-12-08 00:02:38 +00:00
|
|
|
%option no_sysinit
|
|
|
|
|
|
2020-12-08 21:54:20 +00:00
|
|
|
main {
|
2020-12-21 23:59:07 +00:00
|
|
|
|
2021-01-05 01:44:55 +00:00
|
|
|
asmsub opcode(uword instr_info_ptr @AY, ubyte addr_mode @X) clobbers(X) -> ubyte @A, ubyte @Pc {
|
|
|
|
|
%asm {{
|
|
|
|
|
rts
|
|
|
|
|
}}
|
|
|
|
|
}
|
|
|
|
|
|
2020-12-22 04:43:02 +00:00
|
|
|
sub start () {
|
2021-01-05 01:44:55 +00:00
|
|
|
ubyte xx = opcode(0, 1)
|
2021-01-05 00:41:32 +00:00
|
|
|
test_stack.test()
|
|
|
|
|
|
2020-12-31 15:46:24 +00:00
|
|
|
|
|
|
|
|
|
2021-01-02 16:50:08 +00:00
|
|
|
; found = strfind("irmen de jong", ' ')
|
|
|
|
|
; txt.print_uwhex(found, 1)
|
|
|
|
|
; txt.chrout('\n')
|
|
|
|
|
; found = strfind(" irmen-de-jong", ' ')
|
|
|
|
|
; txt.print_uwhex(found, 1)
|
|
|
|
|
; txt.chrout('\n')
|
|
|
|
|
; found = strfind("irmen-de-jong ", ' ')
|
|
|
|
|
; txt.print_uwhex(found, 1)
|
|
|
|
|
; txt.chrout('\n')
|
|
|
|
|
; found = strfind("irmen-de-jong", ' ')
|
|
|
|
|
; txt.print_uwhex(found, 1)
|
|
|
|
|
; txt.chrout('\n')
|
|
|
|
|
|
|
|
|
|
; found = strfinds("irmen de jong", "de")
|
|
|
|
|
; txt.print_uwhex(found, 1)
|
|
|
|
|
; txt.chrout('\n')
|
|
|
|
|
; found = strfinds("irmen de jong", "irmen")
|
|
|
|
|
; txt.print_uwhex(found, 1)
|
|
|
|
|
; txt.chrout('\n')
|
|
|
|
|
; found = strfinds("irmen de jong", "jong")
|
|
|
|
|
; txt.print_uwhex(found, 1)
|
|
|
|
|
; txt.chrout('\n')
|
|
|
|
|
; found = strfinds("irmen de jong", "de456")
|
|
|
|
|
; txt.print_uwhex(found, 1)
|
|
|
|
|
; txt.chrout('\n')
|
2020-12-31 15:46:24 +00:00
|
|
|
}
|
2020-08-27 17:47:50 +00:00
|
|
|
}
|
