no TGI_ERR_NO_MEM or TGI_ERR_NO_IOCB anymore: replaced by TGI_ERR_NO_RES

[cc65] / libsrc / runtime / popsreg.s

diff --git a/libsrc/runtime/popsreg.s b/libsrc/runtime/popsreg.s
index a79f9dc412d8693788d8d8eebecd2335ad3a6aa2..80e484339d4d4b4b3650a94ef35f7142b5960f67 100644 (file)
--- a/libsrc/runtime/popsreg.s
+++ b/libsrc/runtime/popsreg.s
@@ -1,5 +1,5 @@
 ;
-; Ullrich von Bassewitz, 21.08.1998
+; Ullrich von Bassewitz, 1998-08-21, 2009-02-22
 ;
 ; CC65 runtime: Pop TOS into sreg
 ;
@@ -8,15 +8,20 @@
        .import         incsp2
                .importzp       sp, sreg
 
+        .macpack        cpu
+
 popsreg:
        pha                     ; save A
-       ldy     #0
+       ldy     #1
+       lda     (sp),y          ; get hi byte
+       sta     sreg+1          ; store it
+.if (.cpu .bitand ::CPU_ISET_65SC02)
+       lda     (sp)            ; get lo byte
+.else
+       dey
        lda     (sp),y          ; get lo byte
+.endif
        sta     sreg            ; store it
-       iny
-       lda     (sp),y          ; get hi byte
-       sta     sreg+1          ; store it
        pla                     ; get A back
        jmp     incsp2          ; bump stack and return
 
-