Enable 65C02 ConstantNybble

2024-07-03 05:29:30 +00:00 · 2018-03-05 12:19:47 -08:00 · 2018-03-05 12:19:47 -08:00 · f3ef1b4820
commit f3ef1b4820
parent 334bf1ec4d
1 changed files with 10 additions and 9 deletions
--- 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