blob: fa4f29761a8662b117f2d9ff910ae12baac26caf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
@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_string RA RB " HELLO CORECAMP"
cursor_to_line RA 2
put_string RA RB " BY JAN"
set_graphics_mode gr_text_mode
@label loop
jpi loop
|
