39 lines
825 B
ArmAsm
39 lines
825 B
ArmAsm
|
|
;;
|
|
;; Official Kernal routine, described in:
|
|
;;
|
|
;; - [RG64] C64 Programmer's Reference Guide - page 281
|
|
;; - [CM64] Compute's Mapping the Commodore 64 - page 230
|
|
;;
|
|
;; CPU registers that has to be preserved (see [RG64]): .Y
|
|
;;
|
|
|
|
|
|
clall:
|
|
|
|
;; Store .Y register
|
|
tya
|
|
pha
|
|
|
|
;; Original routine probably just sets LDTND to 0, but this is not really safe,
|
|
;; so we actually close all the channels; at least IDE64 does the same for
|
|
;; it's channels, see CLALL description in the IDE64 User's Guide
|
|
*
|
|
ldy LDTND
|
|
beq +
|
|
dey
|
|
lda LAT, y
|
|
jsr close ; XXX jump through ICLOSE?
|
|
jmp -
|
|
*
|
|
;; Restore .Y register
|
|
pla
|
|
tay
|
|
|
|
;; 'C64 Programmers Reference Guide', page 281, claims it calls CLRCHN too
|
|
jsr clrchn
|
|
|
|
;; Not sure whether original Kernal does so, but it seems sane to also clear possible errors
|
|
jmp kernalstatus_reset
|
|
|