sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-03-25 09:05:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Outstanding overlap (now 440 bytes)

Browse source
This commit is contained in:
Justine Tunney 2021-11-25 08:22:51 -08:00
parent a557787f5f
commit 920babb3e7
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
sectorlisp.S
View file

@ -239,14 +239,13 @@ Assoc: mov %dx,%si # Assoc(x:ax,y:dx):ax
mov (%bx,%si),%si
scasw
jne 1b
.byte 0xF6 # test §mov/cmp (nop next bytes)
.byte 0xF6 # testb §i8,i16(%bp,%di) jmp Car
Cadr: mov (%bx,%di),%di # contents of decrement register
.byte 0x3C # cmp §scasw,%al (nop next byte)
Cdr: scasw # increments our data index by 2
Car: mov (%di),%ax # contents of address register!!
2: ret
1: mov (%bx,%di),%di # di = Cdr(c)
Evcon: push %di # save c
mov (%di),%si # di = Car(c)
@ -287,9 +286,10 @@ Eval: test %ax,%ax # Eval(e:ax,a:dx):ax
pop %dx # restore a
1: ret
.sig: .fill 510 - (. - _start), 1, 0xce
.sig: .fill 512 - (2f - 1f) - (. - _start), 1, 0xce
1: .ascii " SECTORLISP v2 "
.word 0xAA55
.type .sig,@object
2: .type .sig,@object
.type kQuote,@object
.type kCond,@object
.type kAtom,@object