map variant

can call f first instead
• more or less efficient?

map: gettag val, arg2
cmp val, #4
jump.ne next
rts

next: push arg1
push arg2
load proc, arg1
getcar arg1, arg2
jsr 0(proc)
pop arg2
pop arg1
push val
getcdr arg2, arg2
jsr map
load arg1, val
pop arg2
jsr cons
rts

Previous slide

Back to first slide

View graphic version