DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »UNICSEXT.SA«

└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »UNICSEXT.SA« 
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »UNICSEXT.SA« 

TextFile

 
***********************************************************************
*                       Copyright 1984 by                             *
*                       NCR Corporation                               *
*                       Dayton, Ohio  U.S.A.                          *
*                       All Rights Reserved                           *
***********************************************************************
*                       EOS Software produced by:                     *
*                       NCR Systems Engineering - Copenhagen          *
*                       Copenhagen                                    *
*                       DENMARK                                       *
***********************************************************************
 
UNIPSEXT  IDNT  1,0  CODE PROCEDURES FOR UNIPS
    SECTION 9
 
    XDEF STATEMENT,OBJCALLEXTEND
 
TEMP1 EQU 1<<14+1   ADDRESS OG TEMP POINTER #1
IN    EQU 1
OUT   EQU 2
RW    EQU 3
 
ARG   MACRO
      MOVE.L -(A0),-(A7)   PUSH POINTER ADDRESS
      MOVE #Ø1,-(A7)       PUSH USE/MODE
      CLR.L -(A7)          BASE OR DUMMY
      CLR.L -(A7)          POINTER ACTUAL IF NOT MODIFIED
      ENDM
 
 
STATEMENT DS.W 0           FUNCTION STATEMENT:LONG;
    MOVE.L (A5),4(A7)      FUNCTION RESULT:= STATEMENT#
    RTS                    RETURN;
 
OBJCALLEXTEND DS.W 0      FUNCTION  OBJCALLEXTEND(
*                                 æ EXT,OBJ,ENTRY#,VALSEG,VALBYTES,
NOOFPAR EQU 10   4 BYTE ENTITIES ææ FILEENV,JOBHANDLER,EXECARGS,
*                                 æ STACK,DATA ) : RESULTTYPE;
    MOVE.L A3,-(A7)       SAVE A3
    MOVE.L A7,D2          D2:=TOP OF ARGUMENTS
    LEA    4*NOOFPAR+8(A7),A0  A0:=TOP OF PARAMETERS;
    MOVE.L -(A0),-(A7)    PUSH EXTENSION OBJECT ADDRESS
    MOVE.L -(A0),-(A7)    PUSH OBJECT ADDRESS
    MOVE.L -(A0),-(A7)    PUSH ENTRY#
    ARG    RW             VALUE SUBSEGMENT
    MOVE.L -(A0),(A7)     STORE LENGTH OF SUBSEGMENT
    ARG    IN             FILEENV
    ARG    IN             JOBHANDLER
    ARG    OUT            EXECARGS
    CMP.L #TEMP1,-4(A0) IF NEXT PARAM=TEMP1 THEN
    BEQ.S SKIP            SKIP THE REST
    ARG    IN             STACK
    ARG    IN             DATA
SKIP DS.W 0
    MOVE.L A7,D4          D4:= BASE OF ARGUMENTS
    SUB.L  D4,D2          D2:= LENGTH:= TOP-BASE;
    MOVEQ.L #20,D5        D5:= KNEL_OP:= CALL_EXTEND;
    MOVE.L D2,-(A7)       SAVE LENGTH ON STACK TOP
    TRAP #7               CALL THE KERNEL;
    MOVE.L (A7)+,D2       D2:= RESTORE LENGTH
    ADD.L  D2,A7          POP KERNEL ARGUMENTS
    MOVE.L (A7)+,A3       A3:=POP SAVED A3;
    MOVE.L (A7)+,A0       A0:=POP RETURN ADDRESS;
    MOVEQ.L #4*NOOFPAR,D0 D0:= LENGTH OF FUNCTION CALL; (EXCL. RESULT)
    ADD.L  D0,A7          POP FUNCTION CALL
    MOVEM.L D6/D7,(A7)    STORE RESULT ON STACK
    JMP (A0)              RETURN TO CALLER
 
    END !
 
«eof»