diff options
| author | B. Watson <yalhcru@gmail.com> | 2021-04-04 03:35:22 -0400 |
|---|---|---|
| committer | B. Watson <yalhcru@gmail.com> | 2021-04-04 03:35:22 -0400 |
| commit | 5ef86baf365b9c7e80fdc1df1283937698db37a5 (patch) | |
| tree | c259f2642e4ba6b5c9feed211eedc79063a237b9 /timed_getch.s | |
| parent | 30a7443be9ca61eeee3f2a2128b12598f2f3fc70 (diff) | |
| download | taipan-5ef86baf365b9c7e80fdc1df1283937698db37a5.tar.gz | |
Inline some array code, 8128 bytes free
Diffstat (limited to 'timed_getch.s')
| -rw-r--r-- | timed_getch.s | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/timed_getch.s b/timed_getch.s index eaf7ab3..5c5ff7c 100644 --- a/timed_getch.s +++ b/timed_getch.s @@ -1,7 +1,7 @@ .export _timed_getch, _set_jiffy_timer, _agetc, _numgetc - .export _yngetc, _lcgetc, _jsleep, _get_item - .import _cgetc, _cblank, putchar, _rand + .export _yngetc, _lcgetc, _jsleep, _get_item, _tjsleep + .import _cgetc, _cblank, putchar, _rand, _turbo .include "atari.inc" @@ -13,6 +13,14 @@ ; keyboard and timer functions for taipan. +; sleep for j jiffies, unless _turbo is set. +; extern void __fastcall__ tjsleep(unsigned int j); +_tjsleep: + sta FR0+4 + lda _turbo + bne jret + lda FR0+4 + ; sleep for j jiffies. ; extern void __fastcall__ jsleep(unsigned int j); _jsleep: @@ -21,6 +29,7 @@ jiffy_wait: lda CDTMV3 ora CDTMV3+1 bne jiffy_wait +jret: rts ; extern void __fastcall__ set_jiffy_timer(unsigned int jiffies); |