| ... | ... |
@@ -742,9 +742,13 @@ |
| 742 | 742 |
JMP2r |
| 743 | 743 |
|
| 744 | 744 |
@asma-literal-rel-addr |
| 745 |
+ LIT LIT ;asma-write-byte JSR2 |
|
| 746 |
+ ( fall through ) |
|
| 747 |
+ |
|
| 748 |
+@asma-rel-addr |
|
| 745 | 749 |
,asma-addr-helper JSR |
| 746 | 750 |
;asma/addr LDA2 SUB2 |
| 747 |
- #0003 SUB2 |
|
| 751 |
+ #0002 SUB2 |
|
| 748 | 752 |
|
| 749 | 753 |
DUP2 #0080 LTH2 STH |
| 750 | 754 |
DUP2 #ff7f GTH2 STHr ORA ,&in-bounds JCN |
| ... | ... |
@@ -754,7 +758,7 @@ |
| 754 | 758 |
JMP2r |
| 755 | 759 |
|
| 756 | 760 |
&in-bounds |
| 757 |
- ;asma-write-lit JSR2 |
|
| 761 |
+ ;asma-write-byte JSR2 |
|
| 758 | 762 |
POP |
| 759 | 763 |
JMP2r |
| 760 | 764 |
|
| ... | ... |
@@ -913,13 +917,14 @@ |
| 913 | 917 |
&29 :&28 $2 ") 00 :asma-comment-end |
| 914 | 918 |
&2c :&29 :&2d ", 00 :asma-literal-rel-addr |
| 915 | 919 |
&2d $2 $2 "- 00 :asma-zero-addr |
| 916 |
- &_entry :&26 :&7b ". 00 :asma-literal-zero-addr |
|
| 920 |
+ &_entry :&26 :&5f ". 00 :asma-literal-zero-addr |
|
| 917 | 921 |
&3a $2 $2 ": 00 :asma-abs-addr |
| 918 | 922 |
&3b :&3a $2 "; 00 :asma-literal-abs-addr |
| 919 | 923 |
&3d :&3b :&40 "= 00 :asma-abs-addr |
| 920 | 924 |
&40 $2 $2 "@ 00 :asma-label-define |
| 921 |
- &7b :&3d :&7d "{ 00 :asma-ignore
|
|
| 922 |
- &7c $2 $2 "| 00 :asma-pad-absolute |
|
| 925 |
+ &5f :&3d :&7d "_ 00 :asma-rel-addr |
|
| 926 |
+ &7b $2 $2 "{ 00 :asma-ignore
|
|
| 927 |
+ &7c :&7b $2 "| 00 :asma-pad-absolute |
|
| 923 | 928 |
&7d :&7c :&7e "} 00 :asma-ignore |
| 924 | 929 |
&7e $2 $2 "~ 00 :asma-include |
| 925 | 930 |
|