diff --git a/src/vmsrc/apple/plvm02.s b/src/vmsrc/apple/plvm02.s
index 7dc6090..78c165b 100755
--- a/src/vmsrc/apple/plvm02.s
+++ b/src/vmsrc/apple/plvm02.s
@@ -1728,15 +1728,16 @@ CDINTRP PLY
         JMP     FETCHOP
 CDINTRPEND
 ;
-;        LDA     #<ZERO
-;        LDX     #>ZERO
-;        LDY     #(CZEROEND-CZERO)
-;        JSR     OPCPY
-;CZERO   DEX
-;        STZ     ESTKL,X
-;        STZ     ESTKH,X
-;        JMP     NEXTOP
-;CZEROEND
+        LDA     #<CN
+        LDX     #>CN
+        LDY     #(CCNEND-CCN)
+        JSR     OPCPY
+CCN     DEX
+        LSR
+        STA     ESTKL,X
+        STZ     ESTKH,X
+        JMP     NEXTOP
+CCNEND
 ;
         LDA     #<CB
         LDX     #>CB