prog8/examples/test.p8

%import textio
%import string
%import test_stack

main {

    ubyte[23]  savedata
    ubyte[17] cargohold = 0
    uword filenameptr = $c000

    sub start() {
        test_stack.test()

        uword @shared uw
        ubyte @shared ub
        word @shared ww

        push(127)
        pop(ub)
        txt.print_ub(ub)
        txt.nl()
        pushw(32767)
        popw(uw)
        txt.print_uw(uw)
        txt.nl()

;        uw=10000
;        routines(44,uw+123)
;        routines2(44,uw+123)
;
;        routine(uw+123, 22,33, true, 44)
;        routine2(uw+123, 22,33, true, 44)

        test_stack.test()

        repeat {
        }

    }

    sub routine(uword num, ubyte a1, ubyte a2, ubyte switch, byte a3) {
        txt.print_uw(num)
        txt.spc()
        txt.print_ub(a1)
        txt.spc()
        txt.print_ub(a2)
        txt.spc()
        txt.print_ub(switch)
        txt.spc()
        txt.print_b(a3)
        txt.nl()
    }

    sub routines(ubyte bb, uword num) {
        txt.print_ub(bb)
        txt.spc()
        txt.print_uw(num)
        txt.nl()
    }

    asmsub routine2(uword num @AY, ubyte a1 @R1, ubyte a2 @R0, ubyte switch @Pc, ubyte a3 @X) {
        %asm {{
            sta  routine.num
            sty  routine.num+1
            lda  #0
            adc  #0
            sta  routine.switch
            lda  cx16.r0
            sta  routine.a2
            lda  cx16.r1
            sta  routine.a1
            stx  routine.a3
            jmp  routine
        }}
    }

    asmsub routines2(ubyte bb @X, uword num @AY) {
        %asm {{
            sta  routines.num
            sty  routines.num+1
            stx  routines.bb
            jmp  routines
        }}
    }

}
failed attempt of using sys.push/pop for stack args 2021-11-27 22:52:47 +00:00			`%import textio`
better error checking for wrong pop() 2021-11-28 01:49:18 +00:00			`%import string`
added sys.push() and sys.pop() to put values on cpu stack. Added missing builtin functions to syntax-files. 2021-11-27 17:09:15 +00:00			`%import test_stack`
refactoring symbol lookups 2021-10-27 21:48:02 +00:00
more petscii tests 2021-10-30 13:15:11 +00:00			`main {`
todo 2021-11-06 18:09:33 +00:00
fix: also allow pass-by-reference arguments to builtin functions that accept UWORD (adds implicit type cast) 2021-11-28 01:34:53 +00:00			`ubyte[23] savedata`
			`ubyte[17] cargohold = 0`
better error checking for wrong pop() 2021-11-28 01:49:18 +00:00			`uword filenameptr = $c000`
fix: also allow pass-by-reference arguments to builtin functions that accept UWORD (adds implicit type cast) 2021-11-28 01:34:53 +00:00
fixed division of signed byte number by 2. (!) 2021-11-09 23:17:56 +00:00			`sub start() {`
added sys.push() and sys.pop() to put values on cpu stack. Added missing builtin functions to syntax-files. 2021-11-27 17:09:15 +00:00			`test_stack.test()`

improved setting Carry bit as asmsub parameter 2021-11-28 02:05:46 +00:00			`uword @shared uw`
			`ubyte @shared ub`
			`word @shared ww`
better error checking for wrong pop() 2021-11-28 01:49:18 +00:00
fix the check of double-defined subroutine variables 2021-11-28 11:50:35 +00:00			`push(127)`
			`pop(ub)`
			`txt.print_ub(ub)`
			`txt.nl()`
			`pushw(32767)`
			`popw(uw)`
			`txt.print_uw(uw)`
			`txt.nl()`

			`; uw=10000`
			`; routines(44,uw+123)`
			`; routines2(44,uw+123)`
			`;`
			`; routine(uw+123, 22,33, true, 44)`
			`; routine2(uw+123, 22,33, true, 44)`
added sys.push() and sys.pop() to put values on cpu stack. Added missing builtin functions to syntax-files. 2021-11-27 17:09:15 +00:00
			`test_stack.test()`
char encodings now use UByte type instead of short 2021-11-20 23:07:17 +00:00
			`repeat {`
			`}`
small refactor and spelling fixes 2021-11-27 13:08:34 +00:00
simplified NumericLiteral to always just contain a Double instead of a Number for the value 2021-11-16 22:52:30 +00:00			`}`
fix substituting 0 only if its actually the same variable that's substituted 2021-11-21 11:34:57 +00:00
failed attempt of using sys.push/pop for stack args 2021-11-27 22:52:47 +00:00			`sub routine(uword num, ubyte a1, ubyte a2, ubyte switch, byte a3) {`
			`txt.print_uw(num)`
			`txt.spc()`
			`txt.print_ub(a1)`
			`txt.spc()`
			`txt.print_ub(a2)`
			`txt.spc()`
			`txt.print_ub(switch)`
			`txt.spc()`
			`txt.print_b(a3)`
			`txt.nl()`
fix reporting of (not) unused code after GoSub jump 2021-11-27 20:22:34 +00:00			`}`

undid failed attempt of using sys.push/sys.pop for stack args - now using new push(), pushw(), pop(), popw() builtin functions 2021-11-28 00:22:40 +00:00			`sub routines(ubyte bb, uword num) {`
			`txt.print_ub(bb)`
			`txt.spc()`
			`txt.print_uw(num)`
			`txt.nl()`
			`}`

moved A to the end of the param list to avoid having to store its value 2021-11-28 02:55:13 +00:00			`asmsub routine2(uword num @AY, ubyte a1 @R1, ubyte a2 @R0, ubyte switch @Pc, ubyte a3 @X) {`
allow scoped identifiers to reference a subroutine parameter directly. also for asmsubroutines, but the asm generation for that is not yet done. 2021-11-21 22:21:39 +00:00			`%asm {{`
moved A to the end of the param list to avoid having to store its value 2021-11-28 02:55:13 +00:00			`sta routine.num`
			`sty routine.num+1`
improved setting Carry bit as asmsub parameter 2021-11-28 02:05:46 +00:00			`lda #0`
			`adc #0`
			`sta routine.switch`
moved A to the end of the param list to avoid having to store its value 2021-11-28 02:55:13 +00:00			`lda cx16.r0`
			`sta routine.a2`
failed attempt of using sys.push/pop for stack args 2021-11-27 22:52:47 +00:00			`lda cx16.r1`
			`sta routine.a1`
			`stx routine.a3`
			`jmp routine`
allow scoped identifiers to reference a subroutine parameter directly. also for asmsubroutines, but the asm generation for that is not yet done. 2021-11-21 22:21:39 +00:00			`}}`
added GoSub node (internal use only later for calling subroutines) 2021-11-21 15:23:48 +00:00			`}`
allow scoped identifiers to reference a subroutine parameter directly. also for asmsubroutines, but the asm generation for that is not yet done. 2021-11-21 22:21:39 +00:00
undid failed attempt of using sys.push/sys.pop for stack args - now using new push(), pushw(), pop(), popw() builtin functions 2021-11-28 00:22:40 +00:00			`asmsub routines2(ubyte bb @X, uword num @AY) {`
			`%asm {{`
			`sta routines.num`
			`sty routines.num+1`
			`stx routines.bb`
			`jmp routines`
			`}}`
			`}`

added compiler option to choose string literal deduplication yes/no -- default changed to NO 2021-05-12 22:35:22 +00:00			`}`