 
Т > Atom/src )Т Load System Kernel and System Basic $Т *EmulateTube Atom (<filename>) ('Т or *Atom (<filename>) within Tube 2: <GГ ░>&8000:х≥ "OS_GetEnv"╦A$:ГюA$,5)<>"B6502":Ъ"B6502"+аA$,їA$," ")) FН ┘ Ж:Я" at line ";·:Ю P: Zkernel$="Kernel65" d:sbasic$=":Software.BBCBasic.System.SBASIC2":brk%=&3403 nsave$  ="Atom65" xtitle$ ="65Tube" ┌
Рassem ▄: √kernel$="KernelCP" ═:sbasic$=":Software.BBCBasic.System.SBASIC2":brk%=&3403 ╙save$  ="AtomCP" Єtitle$ ="6502 CoPro" Ў
Рassem хЮ р: эщРassem ФIOADDR=&FEE0 Пч mcode% &5000 ЗЦ P=0 ╦ 1P%=&400:O%=mcode%[OPT P*3+4
.exec%"JMP Start:BRK:BRK:BRK,EQUB &42:EQUB copy-exec%67EQUB &10:EQUS "Atom/System Environment for "+title$@&EQUB &00:EQUS "0.10 (12-Feb-2012)"J	.copyT&EQUB &00:EQUS "(C)J.G.Harston":BRK^EQUS д12-╘title$,Ґ0)h	.ctrlr9EQUW &100:EQUD 0:EQUB &FF   :\ Load to file's address|
.Start├LDA #1:LDX #&00░4LDY #0:JSR &FFDA            :\ Find command line 
.cmdlpєTYA:PHAўLDX #0:LDY #0╦6LDA #5:JSR &FFF1            :\ Fetch byte from I/Oб%INC &00:BNE next:INC &01:BNE nextлINC &02:BNE next:INC &03ж	.nextЮPLA:TAYЙ0LDA &04:STA &100,Y          :\ Store locallyТ2INY:CMP #13:BNE cmdlp       :\ Loop until <cr>ЧLDA &100:CMP #13.PHP:BEQ nofile              :\ No filenameLDX #ctrl ─ 255LDY #ctrl │ 256&,LDA #&FF:JSR &FFDD          :\ Load file04LDA ctrl+6:STA entry+0      :\ Set entry address:LDA ctrl+7:STA entry+1D.nofileNLDA #12:JSR &FFEEXSEIb+LDA #buffer ─ 255:STA &00 :\ src=bufferlLDA #buffer │ 256:STA &01v2LDY #&00:STY &02            :\ dest=&F800, Y=0─LDA #&F8:STA &03┼
.loop1■LDA &03·7CMP #IOADDR │ 256:BNE copymos  :\ Skip IO addresses╗5CPY #IOADDR ─ 255:BCS skipmos  :\  at &FEF0-&FEFF╡.copymos╪+LDA (&00),Y:STA (&02),Y     :\ copy MOSф.skipmosпINY:BNE loop1зINC &01:INC &03:BNE loop1Д8PLP:BNE enter               :\ file loaded, enter itН<LDA entry+0:STA &02         :\ application start addressЬLDA entry+1:STA &03
.loop23LDA (&00),Y:STA (&02),Y     :\ copy applicationINY:BNE loop2 INC &01:INC &03*LDA &03:CMP #&F8:BNE loop24
.enter>2LDA entry+0:STA &EC         :\ set entry pointHLDA entry+1:STA &EDR8JMP (&FFFC)                 :\ start Atom/System MOS\
.entryfEQUW &A000p.bufferz]М└Ъ "Load "+kernel$+" "+ц~O%▌%Ъ "Load "+sbasic$+" "+ц~(O%+&800)≤B?(O%+&800+brk%)=0:?(O%+&800+brk%+4)=0:Т Remove BRK range check╒5A$=save$+" "+ц~mcode%+" "+ц~(O%+&4800)+" 400 400"╛Я"Saving ";A$;ІЪ"Save "+A$:ЯюАЪ