diff options
| author | mrb0nk500 <b0nk@b0nk.xyz> | 2020-01-10 16:35:34 -0500 |
|---|---|---|
| committer | mrb0nk500 <b0nk@b0nk.xyz> | 2020-01-10 16:35:34 -0500 |
| commit | 861d56e556b597115ad01b4b4cc0e5b932545ce9 (patch) | |
| tree | d24d9718da054658a833b932595819c030065d1a /programs/forg.s | |
| parent | 1dfc78b8bf5b708cb1118a9d6646397772a1b894 (diff) | |
Added GPLv2.
We're now Free Software!!!
Diffstat (limited to 'programs/forg.s')
| -rw-r--r-- | programs/forg.s | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/programs/forg.s b/programs/forg.s new file mode 100644 index 0000000..3e6aea1 --- /dev/null +++ b/programs/forg.s @@ -0,0 +1,17 @@ +forg: + iny ; Increment offset. + lda buf, y + jsr iswhite + bcs forg ; Reset y, if we hit the null terminator. + cmp #$2E ; Is this character a '.'? + bne forg_exit ; No, so return. + sty org ; Yes, so store the origin. +forg_end: + iny ; Increment offset. + lda buf, y + jsr istoken + bcs forg_end + dey + sty scr_col +forg_exit: + rts ; End of forg. |