{целочислени}
 addfroms('MOVRII', 'i');    // load immediate integer into RegI 1
 addfroms('MOVRMI', 'i');    // load RegI from memory            2
 addfroms('MOVRVI', 'i');    // load RegI from pointer           3
 addfroms('MOVMRI', 'i');    // save RegI to memory              4
 addfroms('MOVVRI', 'i');    // save RegI to pointer             5
 addfroms('MOVMMI', 'ii');   // move memory to memory            6
 addfroms('MOVMVI', 'ii');   // move pointer to memory           7
 addfroms('MOVVMI', 'ii');   // move memory to pointer           8
 addfroms('MOVVVI', 'ii');   // move pointer to pointer          9

 {дробни}
 addfroms('MOVRID', 'd');    // load immediate double into RegD  10
 addfroms('MOVRMD', 'i');    // load RegD from memory            11
 addfroms('MOVRVD', 'i');    // load RegD from pointer           12*n
 addfroms('MOVMRD', 'i');    // save RegD to memory              13
 addfroms('MOVVRD', 'i');    // save RegD to pointer             14
 addfroms('MOVMMD', 'ii');   // move double memory to memory     15
 addfroms('MOVMVD', 'ii');   // move double memory to pointer    16*n
 addfroms('MOVVMD', 'ii');   // move double pointer to memory    17*n
 addfroms('MOVVVD', 'ii');   // move double pointer to pointer   18*n

 {стрингови}
 addfroms('MOVRIS', 's');    // load immediate string into RegS  19*fe
 addfroms('MOVRMS', 'i');    // load RegS from memory            20*fe
 addfroms('MOVRVS', 'i');    // load RegS from pointer           21
 addfroms('MOVMRS', 'i');    // save RegS to memory              22
 addfroms('MOVVRS', 'i');    // save RegS to pointer             23*fe
 addfroms('MOVMMS', 'ii');   // move string memory to memory     24
 addfroms('MOVMVS', 'ii');   // move string pointer to memory    25
 addfroms('MOVVMS', 'ii');   // move string memory to pointer    26*n
 addfroms('MOVVVS', 'ii');   // move string pointer to pointer   27*n

 {по-късно добавени}
 addfroms('MOVMIS', 'is');   // move immediate string to memory  96
 addfroms('MOVVII', 'ii');   // immediate to mem pointer         99
 addfroms('MOVMII', 'ii');   // immediate to memory             100
 addfroms('MOVRRI', 'rr');   // move regd <- regi               122*ct
 addfroms('MOVRRD', '');     // move regi <- regd               145*ct*fo
 addfroms('MOVMID', 'id');   // memd<=immd                      162

*n = не работи, води до грешка v1e_not_supported
*fe вдига флаг "v1fl_sempt", тоест "if_empty" ще работи
*ct сменя типа на съдържанието, новия тип е на първия операнд
*fo вдига флаг "v1fl_iover"

...
@init_tcp_state
gme  obuf,obufsize
mov  i,ic_settcprecvbuf        // sets the receive buffer
inp  obuf
mov  i,ic_settcprecvbsz        // sets receive buffer size
inp  obufsize
jsu  @init_out_pointers
ret
...

Микроверсии :

 addfroms('INPI_I', 'i');    // input immediate operand          31
 addfroms('INPM_I', 'i');    // input memory operand             32
 addfroms('INPV_I', 'i');    // input pointer operand            33*n

*n - не работи, излъчва грешка v1e_not_supported

 {целочислени}
 addfroms('ADDRII', 'i');    // add to RegI immediate number    34*fz
 addfroms('ADDRMI', 'i');    // add memory + RegS               35*fz
 addfroms('ADDRVI', 'i');    // add pointer + RegS              36*fz
 addfroms('ADDMRI', 'i');    // add RegS + memory               37*fz
 addfroms('ADDVRI', 'i');    // add RegS + pointer              38*fz
 addfroms('ADDMMI', 'ii');   // add memory + memory             39*fz
 addfroms('ADDMVI', 'ii');   // add pointer + memory            40*n
 addfroms('ADDVMI', 'ii');   // add memory + pointer            41*fz
 addfroms('ADDVVI', 'ii');   // add pointer + pointer           42*n

 {дробни}
 addfroms('ADDRID', 'd');    // add to RegD immediate double    43*fz
 addfroms('ADDRMD', 'i');    // add RegD + memory               44
 addfroms('ADDRVD', 'i');    // add RegD + pointer              45*n
 addfroms('ADDMRD', 'i');    // add memory + RegD               46
 addfroms('ADDVRD', 'i');    // add pointer + RegD              47*n
 addfroms('ADDMMD', 'ii');   // add memory + memory             48*fz
 addfroms('ADDMVD', 'ii');   // add pointer + memory            49*n
 addfroms('ADDVMD', 'ii');   // add memory + pointer            50*n
 addfroms('ADDVVD', 'ii');   // add pointer + pointer           51*n

 {стрингови}
 addfroms('ADDRIS', 's');    // add RegS + immediate string     52
 addfroms('ADDRMS', 'i');    // add RegS + mem                  53
 addfroms('ADDRVS', 'i');    // add RegS + ptr                  54*fe
 addfroms('ADDMRS', 'i');    // add mem + RegS                  55
 addfroms('ADDVRS', 'i');    // add ptr + RegS                  56
 addfroms('ADDMMS', 'ii');   // add mem + mem                   57*fe
 addfroms('ADDMVS', 'ii');   // add ptr + mem                   58*n
 addfroms('ADDVMS', 'ii');   // add mem + ptr                   59*n
 addfroms('ADDVVS', 'ii');   // add ptr + ptr                   60*n

 {по-късно добавени}
 addfroms('ADDIRS', 's');    // add immediate+RegS              90*r
 addfroms('ADDMII', 'ii');   // add mem + immediate            102
 addfroms('ADDMIS', 'is');   // add mem,immediate              138
 addfroms('ADDMID', 'id');   // add mem + immediate double     152*fz

*n = не работи, води до грешка v1e_not_supported
*fz вдига флаг "v1fl_izero", тоест "if_zero" ще работи
*fe вдига флаг "v1fl_sempt", тоест "if_empty" ще работи
*r в този случай резултатът остава в регистър, тоест не в първи операнд.

@cycle
msg
jmf  @check_msg,if_message_received
sys  v1sq_get_time_tick
mov  tick,i
sub  i,lasttick
cmp  stepinterval,i
jmf  @cycle,if_bigger
mov  lasttick,tick
mov  i,ctxtype_chart
sys  v1sq_stepctx
mov  numusers,i
cmp  i,0
jmf  @no_action,if_equal
jmp  @cycle

 addfroms('JMPI_I', 'i');    // jump immediate                  61
 addfroms('JMPM_I', 'i');    // jump memory                     62*n
 addfroms('JMPV_I', 'i');    // jump ptr                        63*n

*n = не работи, води до грешка v1e_not_supported

...
@callsocketsend
mov  i,ic_sendbacktcp
inp  0
jmz  @callsocketsend
mov  i,ic_settcprecvbuf
inp  ibuf
mov  outsize,0
...

 addfroms('JMZI_I', 'i');    // jump relative if RegI is not 0 imm    64
 addfroms('JMZM_I', 'i');    // jump memory                     65*n
 addfroms('JMZV_I', 'i');    // jump pointer                    66*n

*n = не работи, води до грешка v1e_not_supported

...
CODE
LABEL @f1_main
cmp  ready_state,1
jmf  @wmsg_cycle,if_equal
mov  entry_line,s
...
@wmsg_cycle
msg
mov  sender_pid,i
...

 addfroms('JMFIII', 'ii');   // jump rel if (flag and i2)<>0 ii 67
 addfroms('JMFIMI', 'ii');   // jump imm mem                    68*n
 addfroms('JMFIVI', 'ii');   // jump imm ptr                    69*n

*n = не работи, води до грешка v1e_not_supported

 addfroms('CLFI_I', 'i');    // flag=o im                       70
 addfroms('CLFM_I', 'i');    // mem                             71
 addfroms('CLFV_I', 'i');    // ptr                             72*n

*n = не работи, води до грешка v1e_not_supported

 addfroms('MSPI_I', 'I');    // put a message-immediste number  73
 addfroms('MSPM_I', 'I');    // put a message-memory            74

 addfroms('MSG___', '');     // get a message                   75

 addfroms('IDL___', '');     // set idle                        76

 addfroms('DIE___', '');     // die                             77

 {стрингови}
 addfroms('CMPRIS', 's');    // cmp RegS + immediate string     78*fb*fe*fd*fbe
 addfroms('CMPRMS', 'i');    // cmp RegS + mem                  79*fb*fe*fd*fbe
 addfroms('CMPRVS', 'i');    // cmp RegS + ptr                  80*n
 addfroms('CMPMMS', 'ii');   // cmp mem + mem                   81*fb*fe*fd*fbe
 addfroms('CMPVMS', 'ii');   // cmp mem + ptr                   82*n
 addfroms('CMPVVS', 'ii');   // cmp ptr + ptr                   83*n

 {по-късно добавени}
 addfroms('CMPMII', 'ii');   // cmp mem + immediate            101*fb*fe*fd*fbe
 addfroms('CMPRII', 'i');    // cmp regi=immediate             105*fb*fe*fd*fbe
 addfroms('CMPMMI', 'ii');   // cmp mem=mem                    106*fb*fe*fd*fbe
 addfroms('CMPMIS', 'is');   // cmp mem=imm                    111*fb*fe*fd*fbe
 addfroms('CMPRMI', 'i');    // cmp RegS + mem                 119*fb*fe*fd*fbe
 addfroms('CMPVMI', 'ii');   // cmp ptr=memi                   123*fb*fe*fd*fbe
 addfroms('CMPIRI', 'i');    // cmp immediate - regI           144*fb*fe*fd*fbe
 addfroms('CMPRID', 'rd');   // cmp regd - immediate           149*fb*fe*fd*fbe
 addfroms('CMPIRS', 's');    // cmp immediare RegS             156*fb*fe*fd*fbe
 addfroms('CMPMRI', 'ii');   // cmp mem RegI                   157*fb*fe*fd*fbe
 addfroms('CMPIMI', 'ii');   // cmp imm + mem                  158*fb*fe*fd*fbe
 addfroms('CMPVII', 'ii');   // cmp ptr^=immediate             160*fb*fe*fd*fbe


*fb if_bigger ще работи
*fe if_equal ще работи
*fd if_differ ще работи
*fbe if_big_or_equal ще работи
*n не работи, грешка v1e_not_supported

...
//================ subroutines =========================
@add_list
cmp  listmode,0
jmf  @exit_build_list,if_equal
mov  listbox_cmd_wid,edit_rect_ident
mov  s,listbox_cmd_cmline
str  soc_getlength
add  i,41
mvm  s,listbox_cmd_num,S
jsu  @add_a_command
@exit_build_list
ret
...

@add_a_command
put  s,254
mov  aux_point,p2
mov  s,'0000'
jsu  @insert_string_aux
pop  s,254
jsu  @insert_string_aux
mov  [aux_point],i
add  outsize,i
add  outsize,4
ret
...

 addfroms('JSUI_I',  'i');   // jump to a subroutine            84
 addfroms('RET___',  '');    // return from subroutine          85

...
//================ subroutines =========================
@add_list
cmp  listmode,0
jmf  @exit_build_list,if_equal
mov  listbox_cmd_wid,edit_rect_ident
mov  s,listbox_cmd_cmline
str  soc_getlength
add  i,41
mvm  s,listbox_cmd_num,S
jsu  @add_a_command
@exit_build_list
ret
...

 addfroms('STRI_I',  'i');   // string operation immediate code 86

...
mov  s,itm_command_str
spo  'PLAYER',s
jmf  @work_group_cmd,if_equal
spo  'VSCR',s
jmf  @set_vscroll_position,if_equal
spo  'HSCR',s
jmf  @set_hscroll_position,if_equal
spo  'DT',s
jmf  @set_drag_position,if_equal
spo  'SEARCHTEXT',s
jmf  @launch_textsearch_dialog,if_equal
...

 addfroms('SPORIS',  's');   // RegI=pos (immediate str,RegS)  87*fe
 addfroms('SPOIRS',  's');   // RegI=pos (immediate str,RegS)  88*fe
 addfroms('SPORMS',  'ii');  // RegI=pos (memory str,RegS)     89*fz

*fe ако позицията е 1, if_equal ще работи
*fz ако позицията е 0, if_zero ще работи

...
MAIN
cmp  ready_state,1
jmf  @cycle,if_equal
gme  ubuf,ubsize
...

 addfroms('GMEMII', 'ii');   // get memory                      91
 addfroms('FMEM_I', 'i');    // free memory                     92

...
@asquire_startplayer_data
mov  i,12
mov  d,150.0
str  soc_getsubstr 
put  notify_cmd_num,150
mvm  notify_cmd_num,s
mov  startplayertype,notify_rect_kind
mov  startplayerwid,notify_cmd_id
mov  incomingplayertext,notify_cmd_rest
pop  notify_cmd_num,150
cmp  startplayertype,v1gutp_baloon
jmf  @send_baloontext_to_terminal,if_equal
cmp  startplayertype,v1gutp_clubman
jmf  @check_man_name,if_equal
ret
...

 addfroms('PUTMII', 'ii');   // push into the stack mem,imm     93
 addfroms('POPMII', 'ii');   // pop from the stack mem,imm      94

...
@cansendit
mov  uploadcmd,uploadprogramname
mov  i,this_process_pid
str  soc_frominteger
add  s,filetypestr
add  s,bagfilename
add  s,voption
str  soc_upcase
mov  d,1.0
mov  i,2
exe  uploadcmd,''
mov  s,bagfilename
dsk  dsk_deletefile
ret
...

 addfroms('EXEMIS', 'is');   // execute another program         95
 addfroms('EXEMMS', 'ii');   // execute mem                    120
 addfroms('EXEIIS', 'ss');   // imm imm                        163
 addfroms('EXEIMS', 'ss');   // imm mem                        164

...
@obtain_homeregion
mov  s,''
mov  i,0
mov  d,0.0
sys  v1sq_getuserhomeposition
mov  userhomeline,s
ret
...

 addfroms('SYSI_I', 'i');    // ask a question                  97

...
@asquire_shiftstate
mov  i,os_shiftstate_address
mov  d,i
mov  i,parrent_osid
sys  v1sq_get_intptr_from_id
mov  os_ptr_shiftstate,i
mov  i,8
mvm  shiftpressed,[os_ptr_shiftstate]
ret
...

 addfroms('MVMMMI', 'ii');   // copy mem <- mem                103*li
 addfroms('MVMVVI', 'ii');   // copy ptr <- ptr                104*li

 addfroms('MVMMVI', 'ii');   // cmp mem <- ptr                 107*li
 addfroms('MVMVMI', 'ii');   // cmp ptr <- mem                 108*li

 addfroms('MVMRMS', 'i');    // move regs <- mem, length=regi  114*lis1
 addfroms('MVMMRS', 'i');    // move mem <- regs, length(regs) 115*s1
 addfroms('MVMVRS', 'i');    // move ptr <- regs, length(regs) 116*s1

 addfroms('MVMRVS', 'i');    // move reg <-ptr, length(regs)   121*lis1

 addfroms('MVMRMI', 'ri');  // move regd <- mem, length=regi   132*li
 addfroms('MVMMRD', 'ir');  // move mem <-regd, length=regi    133*li

*li дължината на преноса идва от регистър I
*lis1 дължината на преноса е в I, но не повече от 254 и данните се настаняват от първата буква на S надясно
*s1 дължината на преноса е колкото дължината на стринга; преноса започва от първата буква на S надясно

 addfroms('REGMMI', 'ii');   // cmp mem <- mem                 109

 addfroms('SUBMMI', 'ii');   // sub mem mem                    110*fz
 addfroms('SUBMRI', 'i');    // sub m-regi                     112*fz
 addfroms('SUBMII', 'ii');   // sub m-imm                      113*fz
 addfroms('SUBRII', 'ii');   // sub reg-imm                    136
 addfroms('SUBVMI', 'ii');   // sub ptr-mem                    141*fz
 addfroms('SUBRMI', 'ri');   // sub reg-mem                    142*fz
 addfroms('SUBMID', 'id');   // sub mem + immediate double     153*fz
 addfroms('SUBMMD', 'ii');   // sub mem + immediate double     154*fz

*fz вдига флаг v1fl_izero, тоест if_zero ще работи

@cp_alive
pme
cmp  i,child_pid
jmf  @c_have_msg,if_equal
cmp  s,'0002'
jmf  @unfocus_child_tree,if_equal
cmp  s,'0003'
jmf  @focus_child_tree,if_equal
cmp  s,'0004'
jmf  @end_child_tree,if_equal
spo  '0008 0000PLAYER',s
cmp  i,1
jmf  @get_group_cmd,if_equal
@translate_to_child
msg
msp  child_pid
idl

 addfroms('PME___', '');    // peek a message                  124

@doopenfile
pur  s
cmp  textfilename,''
jmf  @dontsaverecent,if_equal
jsu  @save_recentname
@dontsaverecent
por  s
mov  i,2
str  soc_strfromw
jsu  @sub_openfile
jmp  @end_tmmsg_cycle

 addfroms('PURR_I', 'r');   // push into the stack reg         125
 addfroms('PORR_I', 'r');   // pop from the stack reg          126
 addfroms('PURR_D', 'r');   // push into the stack reg         127
 addfroms('PORR_D', 'r');   // pop from the stack reg          128
 addfroms('PURR_S', 'r');   // push into the stack reg         129
 addfroms('PORR_S', 'r');   // pop from the stack reg          130

VARI
 ...
 eline_container      ''
 eline_cont_ptr       ^eline_container
 ...
CODE
...
@saveresultondisk
cmp  textfilename,''
jmf  @exitsaveresult,if_equal
mov  s,eline_container
str  soc_getlength
mov  textfilesize,i
mov  d,0.0
mov  i,4
mvm  d,textfilesize
mov  s,textfilename
add  '__',s
mov  i,eline_cont_ptr
add  i,1
dsk  dsk_savefile
@exitsaveresult
ret
...

VARI
...
 isfilesze                 0
 saved_wx1                 0
 saved_wy1                 0
 saved_wdx                 0
 saved_wdy                 0
 ...
 windowstate_ptr           ^saved_wx1
 initstate_filename        'MAINWINDOWSTATE.DAT'
...
CODE
...
@read_windowstate
mov  isfilesze,24
mov  i,4
mvm  d,isfilesze
mov  i,windowstate_ptr
mov  s,'APP\'
add  s,workpath
add  s,'\'
add  s,initstate_filename
dsk  dsk_loadfile
cmp  i,0
jmf  @exit_read_wstate,if_differ
mov  window_start_centered,0
....

...
@set_cursor_in_window
mov  i,obufsize
mov  d,i
mov  i,table_head_ptr
mov  s,table_name
clf  ttc_putrcinwindow
dsk  dsk_table
ret
...

 addfroms('DSKI_I', 'i');   // disk oper                       131

 addfroms('MULMMI', 'ii');  // mul mem <-mem                   134*fz
 addfroms('MULRII', 'ri');  // mul reg <-immediate             139
 addfroms('MULRMD', 'ri');  // mul regd <- memory              146*fz
 addfroms('MULRMI', 'ri');  // mul regi <- memory              148
 addfroms('MULMII', 'ii');  // mul memory <-immediate          150*fz
 addfroms('MULMMD', 'ii');  // mul mem + mem double            155*fz
 addfroms('MULRID', 'rd');  // mul reg*imm                     159*fz

*fz вдига флаг v1fl_izero, тоест if_zero ще работи

...
@calc_eline_length
mov  i,edit_rect_dx
mov  i,btnline_cmd_x1
sub  i,15
sub  i,eline_initx
mov  eline_winlen,i
div  eline_winlen,terminal_chardx
mov  eline_maxlen,eline_winlen
ret

 addfroms('DIVMMI', 'ii');  // div mem <-mem                   135*fz
 addfroms('DIVMII', 'ii');  // div mem <-immediate             140
 addfroms('DIVRII', 'ri');  // div reg <-immediate             143*fz
 addfroms('DIVRMD', 'ri');  // div regd <- memory              147*fo

*fz вдига флаг v1fl_izero, тоест if_zero ще работи
*fo вдига флаг v1fl_iover, тоест if_over ще работи

 addfroms('ABSMMI', 'ii');  // abs/sign mem / mem              151