Advertisement
INPUT/OUTPUT
FUNCTIONS
25.3 -- Device Independent
1/0
Functions
STARTA LDX
SCALL
BCS
SCALL
Bes
*
#OUTPUT
· RESRV
ERR3
· OPEN
ERR3
*
GET
LINE FROM CONSOLE
'*
CS
=:>
ERROR
CS
=>
ERROR
LOOP
LDX
SCALL
LDX
LDAB
SCALL
LDAA
CMPA
#PROMPT
· DSPLZ
DISPLAY
·THE INPUT
PROMPT, NO
CR/LF
*
BEG
STX
DEX
SCALL
STX
LDX
SCALL
BCC
'BRA
#RBUFF
GET
THE INPUT LINE
#RBUFFE-RBUFF
· KEYIN
X
#CR
EXIT
GET 1ST CHAR IN BUFFER
CHECK FOR TERMINATOR
EG
=>
THIS IS THE TERMINATING LINE
QUTPUT+IOCDBS . SETUP START RECORD POINTER
. CALC
END OF RECORD
BUFFER
· ADBX
. S
= NUMB CHARS INPUT
OUTPUT+IOCDBE . SETUP END RECORD POINTER
#OUTPUT
· PUTRC
WRITE THE RECORD
LOOP
CC =:> NQ ERRORS
ERR3
*
CLOSE AND RELEASE THE 10CB, RETURN TO MDOS
*
EXIT
LDX
#OUTPUT
POINT TO THE
IOCB
SCALL
· CLOSE
BCS
ERR3
CS
=:>
ERROR
SCALL
· RELES
BCS
ERR3
CS
=>
ERROR
MDOS
SCALL
· MDENT
RETURN TO MDOS
'* *
LEAVE SOME ROOM FOR STACK
'*
BSZ
END
80
START
STACK SET HERE BY LOAD
25.3.9
Specialized diskette lID functions
Three
additional
'1/0
functions exist that also use the
IOCB as a parameter
tab 1
ei
however,
th
ey ar e
d
ep enden t on the
device type being DK.
An
e~~or
will be returned
ir
any other
device type
is
specified.
25.3.9.1
Input logical sectors -- .
GETLS
The
.GETLS
~unction
reads one or
more
logical
sectors
from an opened rile into a sector buffer.
ENTRY PARAMETERS:
x
=
The address
or
an
lOeB
which has been
Page
25-51
Advertisement
