prog8/examples/test.p8

%import textio
%import floats
%import syslib
%zeropage basicsafe

main {

    sub start() {

        ubyte[100] array

        memset(array, len(array)-1, 255)

        ubyte xx
        for xx in array {
            txt.print_ubhex(xx, false)
            txt.chrout(',')
        }
        txt.chrout('\n')

        testX()
    }

    asmsub testX() {
        %asm {{
            stx  _saveX
            lda  #13
            jsr  txt.chrout
            lda  #'x'
            jsr  txt.chrout
            lda  #'='
            jsr  txt.chrout
            lda  _saveX
            jsr  txt.print_ub
            lda  #' '
            jsr  txt.chrout
            lda  #'s'
            jsr  txt.chrout
            lda  #'p'
            jsr  txt.chrout
            lda  #'='
            jsr  txt.chrout
            tsx
            txa
            jsr  txt.print_ub
            lda  #13
            jsr  txt.chrout
            ldx  _saveX
            rts
_saveX   .byte 0
        }}
    }
}
auto select correct library to import based on target, instead of having c64- and cx16- prefix variants some programs are now 100% source compatible between C64 and Cx16 targets! import libraries have been rena;med 2020-09-20 21:49:36 +00:00			`%import textio`
implement proper returning of float values via FAC1 2020-11-01 05:27:17 +00:00			`%import floats`
mader versions of abs() and sgn() returning value in register 2020-10-28 21:56:13 +00:00			`%import syslib`
todos 2020-09-27 20:05:44 +00:00			`%zeropage basicsafe`
implemented remaining float operations 2020-08-27 17:47:50 +00:00
do..until condition can now refer to variables defined in the loop's inner scope. 2020-09-24 17:26:07 +00:00			`main {`
allow creating string arrays. Fixed array index scaling for word arrays. 2020-09-28 00:23:36 +00:00
textelite 2020-10-09 20:47:42 +00:00			`sub start() {`
fix missing float casts 2020-11-09 22:57:50 +00:00
fix passing address of pass-by-reference assignment to a UWORD 2020-11-09 23:35:24 +00:00			`ubyte[100] array`
fix missing float casts 2020-11-09 22:57:50 +00:00
fix passing address of pass-by-reference assignment to a UWORD 2020-11-09 23:35:24 +00:00			`memset(array, len(array)-1, 255)`
fix missing float casts 2020-11-09 22:57:50 +00:00
fix passing address of pass-by-reference assignment to a UWORD 2020-11-09 23:35:24 +00:00			`ubyte xx`
			`for xx in array {`
			`txt.print_ubhex(xx, false)`
			`txt.chrout(',')`
			`}`
fix missing float casts 2020-11-09 22:57:50 +00:00			`txt.chrout('\n')`

cleaning up and correcting cc for builtin functions 2020-11-05 00:26:45 +00:00			`testX()`
preparing for subroutine return values via registers instead of stack 2020-10-23 18:56:10 +00:00			`}`

expression splitter for vardecls with binexpr init expression 2020-10-01 22:34:12 +00:00			`asmsub testX() {`
			`%asm {{`
			`stx _saveX`
			`lda #13`
			`jsr txt.chrout`
begun with converting builtin functions to new call convention 2020-11-02 21:45:46 +00:00			`lda #'x'`
			`jsr txt.chrout`
			`lda #'='`
			`jsr txt.chrout`
expression splitter for vardecls with binexpr init expression 2020-10-01 22:34:12 +00:00			`lda _saveX`
			`jsr txt.print_ub`
begun with converting builtin functions to new call convention 2020-11-02 21:45:46 +00:00			`lda #' '`
			`jsr txt.chrout`
			`lda #'s'`
			`jsr txt.chrout`
			`lda #'p'`
			`jsr txt.chrout`
			`lda #'='`
			`jsr txt.chrout`
			`tsx`
			`txa`
			`jsr txt.print_ub`
expression splitter for vardecls with binexpr init expression 2020-10-01 22:34:12 +00:00			`lda #13`
			`jsr txt.chrout`
			`ldx _saveX`
			`rts`
			`_saveX .byte 0`
			`}}`
version 4.2 2020-09-16 21:04:18 +00:00			`}`
implemented remaining float operations 2020-08-27 17:47:50 +00:00			`}`