Advertisement
INPUT/OUTPUT FUNCTIONS
25.3 -- Device Independent
110
Functions
LOOP 1
#TEXFIL
· GETLS
LDX
SCALL
Bes
EOF
. CS
=:>
ERROR
I
POSS ISLE END OF FILE
*
CONVERT DATA WITHIN SECTOR BUFFER
*
LOOP2
LDX
*
LDAA
BSR
STAA
INX
STX
CPX
BNE
LDAA
BSR
STAA
TEXFIL+IOCSBP .
X
GET CHAR FROM
BUFFER
CONVRT
X
· PUT CHARACTER BACK
·
INCREMENT BUFFER POINTER
TEXFIL+IOCSBP . SAVE POINTER
TEXFIL+IOCSBE . CHECK FOR LAST CHARACTER
LOOP2
NE
=>
MORE DATA TO CONVERT
X
CONVERT LAST CHARACTER
CDNVRT
X
*
WRITE LOGICAL SECTOR BACK INTO FILE
*
*
LDX
DEX
STX
LDX
SCALL
Bes
BRA
TEXFIL+IOCLSN . PICK UP LSN
· POINT BACK TO
LAST
READ SECTOR
TEXFIL+IOCLSN .
#TEXFIL
' . PUTLS
ERR3
LOOP
1
WRITE THE SECTOR BACK
CS
=::>
ERROR
READ NEXT.
SECTOR
AND
CONTINUE
*
END-OF-FILE DETECTED ON
INPUT
*
EQF
#ISEOF
ERR3
#TEXFIL
· CLOSE
ERR3
· RELES
ERR3
NE
=::>
I/O ERROR
CS
=:>
ERROR
CS
=:>
ERROR
EXIT
*
CMPB
BNE
LDX
SCALL
BCS
seALL
Bes
seALL
· MOENT
RETURN TO MOOS COMMAND INTERPRETER
*
CONVERT ALL UPPER CASE ALPHABETIC CHARACTERS TO LOWER
*
CASE CHARACTERS.
FIRST ALPHABETIC
*
CHARACTER FOLLOWING
A
PERIOD, EXCLAMATION POINT, OR
*
QUESTION MARK IS NOT CHANGED.
*
CONVRT
· CHECK FOR UIC
ALPHABETIC
NE
=:>
DON'T CONVERT
CONVERT TO L/C
CONVEX
CONEX2
SCALL
BCS
TST
BNE
ORAA
CLR
RTS
· ALPHA
CONTRM
UCFLG
CONVEX
#SPACE
UCFLG
RESET FLAG TO CONVERT NEXT ALFA
*
CONTRM CMPA
BEG
# '.
SETFLG
· PERIOD
Page
25-61
Advertisement
