$DEBUG PAGELENGTH(55) /*******************/ /* */ /* E X $ 2 9 2 0 */ /* */ /*******************/ M$EX$2920: DO; /****************************************************/ /* */ /* 2920 SOFTWARE - ASSEMBLER, COMPILER , AND */ /* SIMULATOR */ /* */ /* */ /* LAST UPDATED - 23.5.82 DROR */ /* */ /****************************************************/ $NOLIST $INCLUDE(COMMON.DCL) $INCLUDE(ISIS.DCL) $INCLUDE(:F1:ISISIO.DCL) $INCLUDE(STRING.DCL) $LIST GET$FNAME: PROCEDURE(NAME$P,TYPE,WILDCARD,NULLNAME,EXTPNT) EXTERNAL; DECLARE NAME$P ADDRESS, TYPE BYTE, WILDCARD BOOLEAN, NULLNAME BOOLEAN, EXTPNT BOOLEAN; END GET$FNAME; EX$ZERO: PROCEDURE (COM$LINE$P,COM$TYPE$P,COMP$P) EXTERNAL; DECLARE COM$LINE$P ADDRESS, COM$TYPE$P ADDRESS, COMP$P ADDRESS; END EX$ZERO; EX$ONE: PROCEDURE (COM$LINE$P,COM$TYPE$P,COMP1$P,MSG1$P) EXTERNAL; DECLARE COM$LINE$P ADDRESS, COM$TYPE$P ADDRESS, COMP1$P ADDRESS, MSG1$P ADDRESS; END EX$ONE; EX$AS2920: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC; DECLARE COM$LINE$P ADDRESS, COM$TYPE$P ADDRESS; DECLARE COMP1 STRUCTURE( ML ADDRESS, L ADDRESS, D(8) BYTE ) DATA (7,7,'AS2920 ',0); DECLARE MSG1(*) BYTE DATA( LF, ' --- 2920 ASSEMBLER ---',CR,LF, ' SOURCE FILE',CR,LF, ' ..............', 0); CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1); END EX$AS2920; EX$SM2920: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC; DECLARE COM$LINE$P ADDRESS, COM$TYPE$P ADDRESS; DECLARE COMP STRUCTURE( ML ADDRESS, L ADDRESS, D(13) BYTE ) DATA (12,12,'SM2920.SFT',CR,LF,0); CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP); END EX$SM2920; EX$SPAS20: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC; DECLARE COM$LINE$P ADDRESS, COM$TYPE$P ADDRESS; DECLARE COMP STRUCTURE( ML ADDRESS, L ADDRESS, D(13) BYTE ) DATA (12,12,':F1:SPAS20',CR,LF,0); CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP); END EX$SPAS20; END M$EX$2920;