mirror of
https://github.com/irmen/prog8.git
synced 2024-11-20 03:32:05 +00:00
47 lines
1.2 KiB
Lua
47 lines
1.2 KiB
Lua
%import test_stack
|
|
%import textio
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
|
|
asmsub opcode(uword instr_info_ptr @AY, ubyte addr_mode @X) clobbers(X) -> ubyte @A, ubyte @Pc {
|
|
%asm {{
|
|
rts
|
|
}}
|
|
}
|
|
|
|
sub start () {
|
|
ubyte xx = opcode(0, 1)
|
|
test_stack.test()
|
|
|
|
|
|
|
|
; 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')
|
|
}
|
|
}
|