- ;; ****************************************
- ;; Beginning of module
- .title "Test runtime"
- .module Runtime
-
- .globl _main
- .STACK = 0xE000
-
- .area _INIT (ABS)
- .org 0x0
- jp 0x100
-
- .org 0x100
-__init::
- ;; Beginning of the code
- DI ; Disable interrupts
- LD SP,#.STACK
- ;; Call the main function
- CALL _main
- ld a, #0
- out (1), a
+ .area _CODE
+ .globl _putchar
+ .globl _exit
__putchar::
- ld a,l
- out (0xff),a
- ret
-
- .org 0x200
- .area _HOME
- .area _CODE
- .area _OVERLAY
- .area _ISEG
- .area _BSEG
- .area _XSEG
- .area _GSINIT
- .area _GSFINAL
- .area _GSINIT
- .area _CODE
+ jp _putchar
- .area _DATA
+__exitEmu::
+ jp _exit