From 5ef86baf365b9c7e80fdc1df1283937698db37a5 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Sun, 4 Apr 2021 03:35:22 -0400 Subject: Inline some array code, 8128 bytes free --- timed_getch.s | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'timed_getch.s') 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); -- cgit v1.2.3