1.1 --- a/macros.oph Sun Jun 28 23:20:20 2015 +0200
1.2 +++ b/macros.oph Sun Jun 28 23:30:02 2015 +0200
1.3 @@ -174,15 +174,15 @@
1.4
1.5 .macro pushA
1.6 sei
1.7 - php
1.8 - pha
1.9 + php ; F -> stack
1.10 + pha ; A -> stack
1.11 sty TEMP
1.12 ldy #0
1.13 sta (USER), y
1.14 .invoke sub16 2, USER
1.15 ldy TEMP
1.16 - pla
1.17 - plp
1.18 + pla ; stack -> A
1.19 + plp ; stack -> F
1.20 cli
1.21 .macend
1.22
1.23 @@ -192,13 +192,13 @@
1.24
1.25 .macro pullA
1.26 sei
1.27 - php
1.28 + php ; F -> stack
1.29 sty TEMP
1.30 .invoke add16 2, USER
1.31 ldy #0
1.32 lda (USER), y
1.33 ldy TEMP
1.34 - plp
1.35 + plp ; stack -> F
1.36 cli
1.37 .macend
1.38
1.39 @@ -211,8 +211,8 @@
1.40
1.41 .macro call
1.42 sei
1.43 - php
1.44 - pha
1.45 + php ; F -> stack
1.46 + pha ; A -> stack
1.47 sty TEMP
1.48 ldy #0
1.49 lda #<_2
1.50 @@ -222,8 +222,8 @@
1.51 sta (USER), y
1.52 .invoke sub16 2, USER
1.53 ldy TEMP
1.54 - pla
1.55 - plp
1.56 + pla ; stack -> A
1.57 + plp ; stack -> F
1.58 cli
1.59 jmp _1
1.60 .macend
1.61 @@ -234,12 +234,12 @@
1.62
1.63 .macro return
1.64 sei
1.65 - php
1.66 - pha
1.67 + php ; F -> stack
1.68 + pha ; A -> stack
1.69 .invoke add16 2, USER
1.70 .invoke mov16_from_ref USER, ABSTEMP
1.71 - pla
1.72 - plp
1.73 + pla ; stack -> A
1.74 + plp ; stack -> F
1.75 cli
1.76 jmp (ABSTEMP)
1.77 .macend