;Alto->8086 small-c compiler rev 2.0 C_CODE SEGMENT $INCLUDE(8086LIB.D) $INCLUDE(RPCSignals.DEC) ASSUME CS:C_CODE, DS:C_DATA ; #include ; extern int CODE(); ; int AuthenticateFailed; ; int CallFailed; ; int ExportFailed; ; int ImportFailed; ; int RejectUnbound; ; int RejectProtocol; ; SignalInitialize() _SignalInitialize: PUSH BP MOV BP,SP ; { ; AuthenticateFailed = CODE(); CALL _CODE MOV _AuthenticateFailed,BX ; CallFailed = CODE(); CALL _CODE MOV _CallFailed,BX ; ExportFailed = CODE(); CALL _CODE MOV _ExportFailed,BX ; ImportFailed = CODE(); CALL _CODE MOV _ImportFailed,BX ; RejectUnbound = CODE(); CALL _CODE MOV _RejectUnbound,BX ; RejectProtocol = CODE(); CALL _CODE MOV _RejectProtocol,BX ; }; MOV SP,BP POP BP RET; ; int CONT(s, c, sl) int s, c; struct Seal *sl; { return CONTINUE; }; _CONT: PUSH BP MOV BP,SP PUSH CX PUSH BX MOV BX,4 MOV SP,BP POP BP RET; ; int REJ(s, c, sl) int s, c; struct Seal *sl; { return REJECT; }; _REJ: PUSH BP MOV BP,SP PUSH CX PUSH BX MOV BX,1 MOV SP,BP POP BP RET; ; int RES(s, c, sl) int s, c; struct Seal *sl; { return RESUME; }; _RES: PUSH BP MOV BP,SP PUSH CX PUSH BX MOV BX,2 MOV SP,BP POP BP RET; ; Externals Declared Here PUBLIC _AuthenticateFailed PUBLIC _CallFailed PUBLIC _ExportFailed PUBLIC _ImportFailed PUBLIC _RejectUnbound PUBLIC _RejectProtocol PUBLIC _SignalInitialize PUBLIC _CONT PUBLIC _REJ PUBLIC _RES C_CODE ENDS ; Number of Bytes of Code = 055X, (85)