28 lines
699 B
ArmAsm
28 lines
699 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
|
|
;;
|
|
|
|
;; XXX currently does not preserve register Y, to be fixed!
|
|
|
|
clall:
|
|
|
|
;; 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 clall
|
|
*
|
|
;; 'C64 Programmers Reference Guide', page 281, claims it calls CLRCHN too
|
|
jmp clrchn
|