/usr/share/doc/crasm/examples/tstif.crasm is in crasm 1.8-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | ;;; Author: Leon Bottou
;;; Public Domain.
* equ $2000
dw end1-4*2
end2 dw (end1-4)*2
end1 dw $ad
if 1<2
if 1>2
dl 3000
else
dw 4000
endc
dw 1000
else
if 1<>1
dw 6000/2
endc
dw 2000
endc
clist off
if 1>2
dw 3000
else
dw 4000
endc
if 1<=1
dw 5000
if 1>2
dw 3000
else
dw 4000
endc
endc
|