38 lines
940 B
ArmAsm
38 lines
940 B
ArmAsm
.segment "NBASIN"
|
|
;***************************************
|
|
;* clall -- close all logical files *
|
|
;* deletes all table entries and*
|
|
;* restores default i/o channels *
|
|
;* and clears ieee port devices *
|
|
;*************************************
|
|
;
|
|
nclall lda #0
|
|
sta ldtnd ;forget all files
|
|
|
|
;********************************************
|
|
;* clrch -- clear channels *
|
|
;* unlisten or untalk ieee devices, but *
|
|
;* leave others alone. default channels *
|
|
;* are restored. *
|
|
;********************************************
|
|
;
|
|
nclrch ldx #3
|
|
cpx dflto ;is output channel ieee?
|
|
bcs jx750 ;no...
|
|
;
|
|
jsr unlsn ;yes...unlisten it
|
|
;
|
|
jx750 cpx dfltn ;is input channel ieee?
|
|
bcs clall2 ;no...
|
|
;
|
|
jsr untlk ;yes...untalk it
|
|
;
|
|
;restore default values
|
|
;
|
|
;
|
|
clall2 stx dflto ;output chan=3=screen
|
|
lda #0
|
|
sta dfltn ;input chan=0=keyboard
|
|
rts
|
|
|