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

Fix variable referencing bug in QEMU (#19)

Browse source
This commit is contained in:
Hikaru Ikuta 2022-01-03 11:23:25 +09:00 committed by GitHub
parent 39ef281e64
commit 32dfd00780
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
bin/sectorlisp.bin
View file

Binary file not shown.

2
sectorlisp.S
View file

@ -233,7 +233,7 @@ Assoc: mov %dx,%si # Assoc(x:ax,y:dx):ax
mov (%bx,%si),%si mov (%bx,%si),%si
scasw scasw
jne 1b jne 1b
.byte 0xF6 # testb §i8,i16(%bp,%di) jmp Car .byte 0xA9 # shifted ip; read as test, cmp
Cadr: mov (%bx,%di),%di # contents of decrement register Cadr: mov (%bx,%di),%di # contents of decrement register
.byte 0x3C # cmp §scasw,%al (nop next byte) .byte 0x3C # cmp §scasw,%al (nop next byte)
Cdr: scasw # increments our data index by 2 Cdr: scasw # increments our data index by 2