; CC65 runtime: Pop TOS into sreg
;
- .export popsreg
- .import incsp2
- .importzp sp, sreg
+ .export popsreg
+ .import incsp2
+ .importzp sp, sreg
.macpack cpu
popsreg:
- pha ; save A
- ldy #1
- lda (sp),y ; get hi byte
- sta sreg+1 ; store it
+ pha ; save A
+ ldy #1
+ lda (sp),y ; get hi byte
+ sta sreg+1 ; store it
.if (.cpu .bitand ::CPU_ISET_65SC02)
- lda (sp) ; get lo byte
+ lda (sp) ; get lo byte
.else
- dey
- lda (sp),y ; get lo byte
+ dey
+ lda (sp),y ; get lo byte
.endif
- sta sreg ; store it
- pla ; get A back
- jmp incsp2 ; bump stack and return
+ sta sreg ; store it
+ pla ; get A back
+ jmp incsp2 ; bump stack and return