BasicLine10: .word BasicLine20 .word 10 :SYS("65424") .byte $00 BasicLine20: .word $0000 // Done .macro SYS(statement) { .byte $9e, $20 .text statement }
- Insert basic: I use a leading $00, so starting with $0800 is correct in such case. However, I can also directly start with the basic command and start with $0801. Makes no difference? Anyway, I changes it to $0801 and added 3 trailing zero bytes.
- Insert sinus: ok, I'll look at it. What do you mean by asymmetric? The start with $7f?
- Jump to error: it didn't work with user scripts simply because I forgot to include it in that function as well. fixed now.
The Payday User Interface Experience Group (PUIEG) did some research on the GUI of Relaunch64 and I finally decided that both user scripts and predefined settings is too much.
I added the latest Beta 13 to source forge:
.var Temp = List() .pc = $2000 "Code somewhere else" .eval Temp = Temp.add(*) CodeStart: lda #$00 sta $d020 rts .pc = $0801 "BASIC Code" BasicLine10: .word BasicLine20 .word 10 :SYS(Temp.get(0)) BasicLine20: .word $0000 .macro SYS(statement) { .byte $9e, $20 .text statement .byte $00 }
.pc = $2000 start: nop .pc = $801 .word !+, 2014 .byte $9e .text toIntString(start) .byte 0 !: .word 0
*= $2000 start nop *= $801 !word +, 2014 !byte $9e !if (start > 9999) {!byte 48 + start / 10000} !byte 48 + start / 1000 % 10, 48 + start / 100 % 10, 48 + start / 10 % 10, 48 + start % 10, 0 + !word 0
.pc = $2000 "Start Code" Start: lda #$00 sta $d020 rts .pc = $0801 "BASIC" :BASIC(10) :SYS(Start) !: :BASIC(20) :SYS(8192) !: .word 0 { // Macros for BASIC .macro BASIC(argument) { .word !+, argument } .macro SYS(argument) { .byte $9e, $20 .text toIntString(argument) .byte $00 } }