1
2 :
3 DIM mcode% &400
4 FOR P=0 TO 1
5 P%=&8000:O%=mcode%
6 [OPT P*3+4
7 EQUB &4C:EQUW language :\ Language entry
8 EQUB &60:EQUW 0 :\ Service entry
9 EQUB &CD :\ ROM type Serv+Lang+ARM
10 EQUB copyright AND 255 :\ Copyright offset
11 EQUB &00 :\ Version number
12 EQUS "ARM Hello World" :\ ROM title
13 EQUB &00
14 EQUS "0.00 (18 Jul 2008)" :\ Version string
15 .copyright
16 EQUB &00:EQUS "(C)":EQUB &00
17 ALIGN
18 :
19 .language
20 EQUD &03100060 :\ 6502 RTS, ARM TSTEQ R0,#&60
21 SWI "OS_WriteS"
22 EQUS "Hello world"
23 EQUB 13:EQUB 10:EQUB 0:ALIGN
24 SWI "OS_Exit"
25 ]NEXT
26 PRINT"*SAVE ARMHELLO ";~mcode%;" ";~O%