mirror of
https://github.com/irmen/prog8.git
synced 2024-10-18 16:24:26 +00:00
52 lines
914 B
Lua
52 lines
914 B
Lua
%import textio
|
|
%import test_stack
|
|
|
|
main {
|
|
%option force_output
|
|
|
|
sub start() {
|
|
test_stack.test()
|
|
uword ww = 10
|
|
repeat 10 {
|
|
ww++
|
|
txt.print_uw(ww)
|
|
txt.nl()
|
|
}
|
|
test_stack.test()
|
|
|
|
repeat {
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
;main {
|
|
; sub start() {
|
|
; %asm {{
|
|
; lda #<float5_111
|
|
; ldy #>float5_111
|
|
; jsr floats.MOVFM
|
|
; lda #<float5_122
|
|
; ldy #>float5_122
|
|
; jsr floats.FADD
|
|
; jsr floats.FOUT
|
|
; sta $7e
|
|
; sty $7f
|
|
; ldy #64
|
|
;_loop
|
|
; lda ($7e),y
|
|
; beq _done
|
|
; jsr c64.CHROUT
|
|
; iny
|
|
; bne _loop
|
|
;_done
|
|
; rts
|
|
;
|
|
;float5_111 .byte $81, $64e, $14, $7a, $e1 ; float 1.11
|
|
;float5_122 .byte $81, $1c, $28, $f5, $c2 ; float 1.22
|
|
;
|
|
; }}
|
|
; }
|
|
;
|
|
;}
|