27 lines
325 B
Plaintext
27 lines
325 B
Plaintext
|
; Чё-то кириллицей.
|
||
|
|
@ 0
|
||
|
|
$string liblabafile/test.lb
|
||
|
|
$string r
|
||
|
|
#exec liblabafile/open_file.lb
|
||
|
|
|
||
|
|
@ 1
|
||
|
|
#exec std/dup4.lb
|
||
|
|
#exec liblabafile/getc_file.lb
|
||
|
|
; |char ptr[4]>
|
||
|
|
push 4
|
||
|
|
pick
|
||
|
|
push 4
|
||
|
|
pick
|
||
|
|
push 4
|
||
|
|
pick
|
||
|
|
push 4
|
||
|
|
pick
|
||
|
|
; |ptr[4] char ptr[4]>
|
||
|
|
#exec liblabafile/eof_file.lb
|
||
|
|
jnz 2
|
||
|
|
putc
|
||
|
|
jmp 1
|
||
|
|
|
||
|
|
@ 2
|
||
|
|
quit
|