prog8/examples/test.p8

38 lines
645 B
Plaintext
Raw Normal View History

%import textio
2020-09-27 11:31:46 +00:00
%import syslib
2020-09-27 20:05:44 +00:00
%zeropage basicsafe
2020-08-27 17:47:50 +00:00
main {
2020-10-04 15:47:57 +00:00
str planet_name = "12345678"
2020-09-27 11:31:46 +00:00
sub start() {
2020-09-29 01:58:17 +00:00
; txt.print(planet_name)
; txt.chrout('\n')
2020-10-04 15:47:57 +00:00
planet_name = "saturn" ; TODO make strcpy() actually work it now sets the address in the first two bytes...
2020-10-04 15:47:57 +00:00
txt.print(planet_name)
txt.chrout('\n')
}
asmsub testX() {
%asm {{
stx _saveX
lda #13
jsr txt.chrout
lda _saveX
jsr txt.print_ub
lda #13
jsr txt.chrout
ldx _saveX
rts
_saveX .byte 0
}}
2020-09-16 21:04:18 +00:00
}
2020-08-27 17:47:50 +00:00
}
2020-10-03 13:11:09 +00:00