6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-27 09:33:42 +00:00
Code Issues Projects Releases Wiki Activity

The 65C02 code didn't work

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3488 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-04-23 14:12:19 +00:00
parent 424d1d7782
commit 5c2eebcda1
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
libsrc/common/putenv.s
View File

@ -15,8 +15,6 @@
.include "errno.inc" .include "errno.inc"
.macpack cpu
.code .code
;---------------------------------------------------------------------------- ;----------------------------------------------------------------------------
@ -43,14 +41,9 @@
; Remember the offset of the equal sign and replace it by a zero. ; Remember the offset of the equal sign and replace it by a zero.
.if (.cpu .bitand ::CPU_ISET_65SC02)
phy
stz (ptr1),y
.else
sty tmp1 sty tmp1
lda #$00 lda #$00
sta (ptr1),y sta (ptr1),y
.endif
; Search for the string in the environment. searchenv will set the N flag if ; Search for the string in the environment. searchenv will set the N flag if
; the string is not found, otherwise X contains the index of the entry, ptr2 ; the string is not found, otherwise X contains the index of the entry, ptr2
@ -61,11 +54,7 @@
; Before doing anything else, restore the old environment string. ; Before doing anything else, restore the old environment string.
.if (.cpu .bitand ::CPU_ISET_65SC02)
ply
.else
ldy tmp1 ldy tmp1
.endif
lda #'=' lda #'='
sta (ptr1),y sta (ptr1),y