código para frame.hax

Frame.hax es un archivo pensado para ser cargado a la memoria de haxbox justo al iniciar. Debería incluir los procedimientos más usados escritos en jenoassembler-hax para que cualquiera de nuestros programas pueda usarlos. Se aconseja mucho el uso de éstas funciones con su mismo nombre si se quiere mantener compatibilidad con los códigos de este sitio. Éste es el frame.hax hoy día.

---

// frame.hax para haxbox 0.05
busout 8,start
call frame.print,#*********************************** /n
call frame.print,#****  maquina virtual haxbox.  **** /n
call frame.print,#*********************************** /n /n
call frame.print,#2012 abdlab software/n/n/n/n
set #_%ilasmexe%_,#C:\Windows\Microsoft.NET\Framework\v4.0.30319\ilasm.exe 
jump @ haxbox_frame_fin

// :: haxboxframework V.1.0 ::

proc frame.print
busout #3,f!1
busout #3,/n
return

proc frame.printinln
busout #3,f!1
return

proc frame.printlst
get+ f!1
set0+ core_reg2
foreach
call frame.print,core_reg0
next
return

proc frame.prompt
busout #3,f!1
busout #3,/n
input
busout #3,core_reg2
busout #3,/n
return core_reg2

proc frame.rand
set #_nums0,f!1
set #_nums1,f!2
mode int
set0 _nums0
set1 _nums1
rand
set #?return,core_reg2
mode str
return core_reg2

proc frame.il.make
set #_tmp,f!1
call frame.concat,#_%ilasmexe%_,_tmp
call frame.shell,core_reg2
return f!0

proc frame.shell
busout #10,f!1
return f!0

proc frame.web
busout #12,f!1
return f!0

proc frame.telnet
busout #11,f!1,f!2
return f!0

proc frame.nav.open
set _tmp,f!1
call frame.concat,#start ,_tmp
busout #10,core_reg2
return

proc frame.savefile
busout #5,f!1,f!2
return

proc frame.readfile
busout #6,f!1
return f!0

proc frame.concat
mode str
set0 f!1
set1 f!2
suma
return core_reg2

proc frame.file.del
mode str
set0 #del 
set1 f!1
suma
busout #10,core_reg2
return

proc frame.bytecrypt
set0 f!1
explode0
tobyte0
join0 #x
return core_reg0

proc frame.bytedecrypt
set0 f!1
parse0 #x
todata0
set0 core_dump0
return core_reg0

proc frame.crypt
set #_pass,f!2
set0 f!1
explode0
tobyte0
set #_nums0,core_num0
set #_nums1,_nums0
join0 #x
return core_reg0

proc frame.decrypt
set0 f!1
parse0 #x
todata0
set0 core_dump0
return core_reg0

@ haxbox_frame_fin
call frame.print,#$cls