From 4833dc3ce27fddb704cde79300ffe7d3655504a2 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Wed, 13 Jul 2022 19:46:19 -0700 Subject: [PATCH] Updated manifest.tal --- src/manifest.tal | 1 + 1 file changed, 1 insertion(+) diff --git a/src/manifest.tal b/src/manifest.tal index 6623d1b..8fa1462 100644 --- a/src/manifest.tal +++ b/src/manifest.tal @@ -364,6 +364,7 @@ JMP2r @sput ( chr str* -- ) ,scap JSR STA JMP2r @slen ( str* -- len* ) DUP2 ,scap JSR SWP2 SUB2 JMP2r @scat ( src* dst* -- ) DUP2 ,slen JSR ADD2 +@scpy ( src* dst* -- ) STH2 &w LDAk STH2kr STA INC2r INC2 LDAk ,&w JCN POP2 #00 STH2r STA JMP2r @mclr ( src* len* -- ) OVR2 ADD2 SWP2 &l STH2k #00 STH2r STA INC2 GTH2k ,&l JCN POP2 POP2 JMP2r @mcpy ( src* dst* len* -- ) SWP2 STH2 OVR2 ADD2 SWP2 &loop LDAk STH2kr STA INC2r INC2 GTH2k ,&loop JCN POP2 POP2 POP2r JMP2r