Renamed DICT opcode to CPY

This commit is contained in:
neauoire 2023-11-15 16:42:27 -08:00
parent 68c5089ac6
commit ea996c2c3f
2 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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 !&copy