123456789101112131415161718192021 |
- .define sts2
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- sts2:
- popl saveret, *RR14
- pop R0, *RR14 !object size
- ldk R2, $0
- pop R3, *RR14 !address of object
- cp R0, $1
- jr NE, 1f
- pop R0, *RR14
- ldb *RR2, RL0
- jr 2f
- 1: sra R0
- ldir *RR2, *RR14, R0
- 2: pushl *RR14, saveret
- ret
|