Šī lapa labāk darbojas, ja pārlūkam ir iespējots JavaScript.
Sākums
Izpētīt
lain.church
Palīdzība
Reģistrēties
Pierakstīties
izaya
/
collapseos
spogulis no
https://github.com/hsoft/collapseos.git
Vērot
1
Pievienot zvaigznīti
1
Atdalīts
0
Kods
Problēmas
0
Laidieni
0
Vikivietne
Aktivitāte
Pārlūkot izejas kodu
forth: Forth-ify "OR"
pull/95/head
Virgil Dupras
pirms 4 gadiem
vecāks
eb6a07a162
revīzija
1871f7cdb4
4 mainītis faili
ar
15 papildinājumiem
un
19 dzēšanām
Dalītais skats
Salīdzināšanas iespējas
Rādīt statistiku
Lejupielādēt ielāpa failu
Lejupielādēt izmaiņu failu
Binārs
emul/forth/z80c.bin
+1
-19
forth/forth.asm
+1
-0
forth/z80a.fs
+13
-0
forth/z80c.fs
Binārs
emul/forth/z80c.bin
Parādīt failu
+ 1
- 19
forth/forth.asm
Parādīt failu
@@ -1505,27 +1505,9 @@ DIVMOD:
jp next
.db "OR"
.fill 5
.dw $-DIVMOD
.db 0
OR:
.dw nativeWord
pop hl
pop de
call chkPS
ld a, e
or l
ld l, a
ld a, d
or h
ld h, a
push hl
jp next
.db "XOR"
.fill 4
.dw $-
OR
.dw $-DIVMOD
.db 0
XOR:
.dw nativeWord
+ 1
- 0
forth/z80a.fs
Parādīt failu
@@ -53,6 +53,7 @@
OR A,
;
0xa0 OP1r0 ANDr,
0xb0 OP1r0 ORr,
( qq -- also works for ss )
: OP1qq
+ 13
- 0
forth/z80c.fs
Parādīt failu
@@ -84,6 +84,19 @@ CODE AND
HL PUSHqq,
;CODE
CODE OR
HL POPqq,
DE POPqq,
chkPS,
A E LDrr,
L ORr,
L A LDrr,
A D LDrr,
H ORr,
H A LDrr,
HL PUSHqq,
;CODE
CODE PC!
BC POPqq,
HL POPqq,
Rakstīt
Priekšskatītījums
Notiek ielāde…
Atcelt
Saglabāt