<commit_before>;; Simple test. Compile with FASM.
;; macros for fasm
include 'fvm.inc'
<<<<<<< HEAD
use32
org 0
;; Align addresses to 4-bytes please
align 4
=======
>>>>>>> 64282712f8d2c58e3908683ad227a81fb2f510ab
push 0x09
;; Pop 0x09 into R1
pop1
;; execute debug instruction 
;debug
;; Load R1 into R0
ld0 R1
;; Load R0 with ASCII 'H'
ld0 'H'
;; Load R1 with R0
ld1 R0
;; Reload R0 with F_CON_WRITE (Means, write to stdout)
ld0 F_CON_WRITE
;; Call the Virtual Machine specific function
;; Load R0 with F_CON_WRITE
ld0 F_CON_WRITE
ld1 'H'
;; fcall - function call, call the F_CON_WRITE, with R1 = 'H'
fcall 
ld1 'E'
fcall 
ld1 'L'
fcall 
ld1 'L'
fcall 
ld1 'O'
fcall 
ld1 ' '
fcall 
ld1 'W'
fcall 
ld1 'O'
fcall 
ld1 'R'
fcall 
ld1 'L'
fcall 
ld1 'D'
fcall
ld1 ' '
fcall
<<<<<<< HEAD
;; Jump to sample1
jtx sample1
sample1:
;; Call Sample2
ld2 sample2
;; Exit
ccall
=======
;; Jump to address 0, loop
jtx 0
>>>>>>> 64282712f8d2c58e3908683ad227a81fb2f510ab
exit
sample2:
;; Load String address in R0
ld0 string+1
;; Grab a byte from R0
ld1fa0
;; Print that byte
ld0 F_CON_WRITE
fcall
;; Sleep for a while
slp
;; return from procedure
fret
;; Some string
string: db 'AOLX'<commit_msg>New instructions like LD1FA0<commit_after>;; Simple test. Compile with FASM.
;; macros for fasm
include 'fvm.inc'
use32
org 0
;; Align addresses to 4-bytes please
align 4
push 0x09
;; Pop 0x09 into R1
pop1
;; execute debug instruction 
;debug
;; Load R1 into R0
ld0 R1
;; Load R0 with ASCII 'H'
ld0 'H'
;; Load R1 with R0
ld1 R0
;; Reload R0 with F_CON_WRITE (Means, write to stdout)
ld0 F_CON_WRITE
;; Call the Virtual Machine specific function
;; Load R0 with F_CON_WRITE
ld0 F_CON_WRITE
ld1 'H'
;; fcall - function call, call the F_CON_WRITE, with R1 = 'H'
fcall 
ld1 'E'
fcall 
ld1 'L'
fcall 
ld1 'L'
fcall 
ld1 'O'
fcall 
ld1 ' '
fcall 
ld1 'W'
fcall 
ld1 'O'
fcall 
ld1 'R'
fcall 
ld1 'L'
fcall 
ld1 'D'
fcall
ld1 ' '
fcall
;; Jump to sample1
jtx sample1
sample1:
;; Call Sample2
ld2 sample2
;; Exit
ccall
;; Jump to address 0, loop
jtx 0
exit
sample2:
;; Load String address in R0
ld0 string+1
;; Grab a byte from R0
ld1fa0
;; Print that byte
ld0 F_CON_WRITE
fcall
;; Sleep for a while
slp
;; return from procedure
fret
;; Some string
string: db 'AOLX'
{'fraction_non_alphanumeric': 0.10610789121711993, 'fraction_numerical': 0.07579135086937137, 'mean_word_length': 4.123287671232877, 'pattern_counts': {'":': 0, '<': 17, '<?xml version=': 0, '>': 17, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6354572', 'n_tokens_mistral': 1016, 'n_tokens_neox': 946, 'n_words': 346}