Renamed DICT opcode to CPY
This commit is contained in:
parent
68c5089ac6
commit
ea996c2c3f
|
@ -19,7 +19,7 @@ decode_ulz(FILE *src)
|
|||
short i, length;
|
||||
ptr = mem = malloc(0x10000);
|
||||
while((c = getc(src)) != EOF) {
|
||||
if(c & 0x80) { /* DICT */
|
||||
if(c & 0x80) { /* CPY */
|
||||
if(c & 0x40)
|
||||
length = (c & 0x3f) << 8 | getc(src);
|
||||
else
|
||||
|
|
|
@ -33,7 +33,7 @@
|
|||
!&stream
|
||||
|
||||
@decode_ulz_byte ( byte -- )
|
||||
DUP #80 AND ?op-dict
|
||||
DUP #80 AND ?op-cpy
|
||||
|
||||
@op-lit ( byte -- )
|
||||
#00 SWP INC2
|
||||
|
@ -43,7 +43,7 @@
|
|||
ADD2 .ptr STZ2
|
||||
JMP2r
|
||||
|
||||
@op-dict ( byte -- )
|
||||
@op-cpy ( byte -- )
|
||||
#7f AND
|
||||
DUP #40 AND ?&long
|
||||
#00 SWP !©
|
||||
|
|
Loading…
Reference in New Issue