1985-01-08 11:48:43 +00:00
|
|
|
.define inn
|
1987-01-19 10:51:50 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-01-08 11:48:43 +00:00
|
|
|
|
|
|
|
|
!bitnr in R1
|
|
|
|
|
!size (bytes) in R2
|
|
|
|
|
inn:
|
|
|
|
|
ld R3, R2
|
|
|
|
|
sra R2
|
|
|
|
|
ldk R0, $0
|
|
|
|
|
div RR0, $020 !R0: bitnr, R1: wordnr
|
|
|
|
|
cp R1, R2
|
|
|
|
|
jr UGE, 1f !R1 must be < R2
|
|
|
|
|
inc R1, $2 !R1 contains nr of words from top stack
|
|
|
|
|
sla R1
|
|
|
|
|
ld R1, RR14(R1)
|
|
|
|
|
bit R1, R0
|
|
|
|
|
jr EQ, 1f
|
|
|
|
|
ldk R0, $1
|
|
|
|
|
jr 2f
|
|
|
|
|
1: ldk R0, $0
|
|
|
|
|
2: ld R1, R3
|
|
|
|
|
popl RR2, *RR14
|
|
|
|
|
add R15, R1
|
|
|
|
|
jp *RR2
|
