TOPS-10 Monitor Calls Manual Volume 2 AA-K039D ... - Trailing-Edge

OPEN [OPCODE 050]
EXAMPLES
iSubroutine to OPEN the disk in dump mode
iCall with:
PUSHJ P,DMPINI
RETURN HERE
DMPINI: OPEN DSK,OPNBLK iOPEN the disk on channel "DSK"
JRST NOTAVL iDevice is busy
ENTER DSK,FILE iCreate a new file
JRST FILBAD iCannot ENTER file name in
i disk directory.
POPJ P,
iReturn - file is now open for
Dump mode output.
iHere if device DSK: cannot be OPENed
NOTAVL: OUTSTR [ASCIZ n?CANNOT OPEN DSK:
n]
iPrint an error message
EXIT
iReturn to the monitor
iHere if file cannot be created
FILBAD: OUTSTR [ASCIZ n?CANNOT CREATE DSK:DUMP.BIN
n ]
iPrint an error message
iReturn to the monitor
iSelect dump mode
iDevice name
iNo buffers
iFile name
iFile name extension
iDefault protection
iDefault directory
EXIT
OPNBLK: EXP
SIXBIT
EXP
FILE: SIXBIT
SIXBIT
EXP
EXP
iSubroutine
iCall with:
. IODMP
/DSK/
a
/DUMP/
/BIN/
a
to write data in buffer
FILL BUFFER WITH DATA
PUSHJ P,DMPOUT
RETURN HERE
DMPOUT: OUT DSK,OUTLST iWrite data
POPJ P,
iNo errors - Return to caller
OUTSTR [ASCIZ n?OUTPUT ERROR FOR DSK:DUMP.BIN
n ]
iOutput error message
iReturn to monitor
EXIT
iCommand list for output
OUTLST: IOWD BUFSIZ, BUFFER
EXP 0
BUFFER: BLOCK BUFSIZ
iSubroutine to close out file
iCall with:
PUSHJ P,DMPDON
RETURN HERE
iWrite BUFSIZ words from buffer
iEnd of command list
iOutput buffer
DMPDON: CLOSE
STATO
POPJ
OUTSTR
n ]
EXIT
DSK,
iWrite the end of file
DSK,IO.ERR iAre there any errors?
P, i No-return
[ASCIZ n?ERROR CLOSING DSK:DUMP.BIN
iPrint error message
iReturn to the monitor
RELATED CALLS
o
o
FILOP.
INIT
22-276