.TITLE LOAD ; DAVID R. WARNER, JR. ONU ; COLL OF LAW DEC 80 ; ; SUBR: LOAD A SUBSYSTEM FILE ; ENTRY: 1 ARG ; EXIT: 1 ARG ENTRY ARGUMENT PASSED UNCHANGED ; ERRORS: NONE ; CALLS: SYSIN ; .GLOBL LOAD,ZLOAD,QSYSIN,SUBSYS LOAD: MOV #-1, SUBSYS QSYSIN .WORD 0 ZLOAD = .-LOAD .END