17 lines
230 B
Plaintext
17 lines
230 B
Plaintext
|
; Copyright (C) 2024 Aer Iz
|
||
|
|
; Licensed under WTFPL <http://www.wtfpl.net>
|
||
|
|
|
||
|
|
maxsize
|
||
|
|
args 1 ; Насколько сварить носок
|
||
|
|
sub
|
||
|
|
|
||
|
|
@ 1
|
||
|
|
kjnz 2
|
||
|
|
quit
|
||
|
|
|
||
|
|
@ 2
|
||
|
|
#expr -
|
||
|
|
push -1
|
||
|
|
_unix_random
|
||
|
|
swap
|
||
|
|
jmp 1
|