diff --git a/kernal/cbm/channel/channel.s b/kernal/cbm/channel/channel.s index 82c68a55..204ba21c 100644 --- a/kernal/cbm/channel/channel.s +++ b/kernal/cbm/channel/channel.s @@ -96,7 +96,7 @@ untlk = $ffab ; misc x16 additions .export clear_status -.export get_fa +.export extapi_getlfs .segment "ZPCHANNEL" : zeropage diff --git a/kernal/cbm/channel/x16additions.s b/kernal/cbm/channel/x16additions.s index f0aca83d..027ee866 100644 --- a/kernal/cbm/channel/x16additions.s +++ b/kernal/cbm/channel/x16additions.s @@ -3,6 +3,8 @@ clear_status: stz status rts -get_fa: - lda fa +extapi_getlfs: + lda la + ldx fa + ldy sa rts diff --git a/kernal/x16/extapi.s b/kernal/x16/extapi.s index a6fd6c62..6271c441 100644 --- a/kernal/x16/extapi.s +++ b/kernal/x16/extapi.s @@ -1,11 +1,12 @@ .import clear_status -.import get_fa +.import extapi_getlfs .export extapi .segment "UTIL" -; This API call expects and requires e=1 +; This API call expects and requires +; m=1,x=1,sp=$01xx (or e=1) extapi: pha ; reserve two free spots on the stack pha @@ -31,5 +32,5 @@ secrts: apitbl: .word secrts-1 ; slot 0 is reserved .word clear_status-1 ; API 1 - .word get_fa-1 ; API 2 + .word extapi_getlfs-1 ; API 2