blob: f4d84ae5ff5101bbc405f3266427494f4400be12 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
@opt stack_pointer RF
@opt csr_scratch RH
@use ext_std:*
@use ext_string_io:*
; bootstrap code (must be called to set up mandatory data)
; will jump to label main
@include bootstrap
@label main
cursor_to_line RA 1
put_char RA RB %SPACE
put_string RA RB HELLO CORECAMP
cursor_to_line RA 3
put_char RA RB %SPACE
put_string RA RB BY JAN
; set graphics mode to sprite mode
; set_graphics_mode gr_sprite_mode
set_graphics_mode gr_text_mode
@label loop
jpi loop
|
