DataMuseum.dk

Presents historical artifacts from the history of:

Bogika Butler

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Bogika Butler

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦7ea4cebf9⟧ TextFile

    Length: 2048 (0x800)
    Types: TextFile
    Names: »MPA.SA«

Derivation

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

TextFile

           NOLIST
           INCLUDE     RR.FIOEQU.SA
           LIST
           NOFORMAT
 
           TTL         V 0.01   68K EOS PASCAL MAP DATA SEGMENT ADAPTABLE
MPA        IDNT          0,01   68K EOS PASCAL MAP DATA SEGMENT ADAPTABLE
 
           SECTION 8
*
*****************************************************************************
*
*
*          FUNCTION:
*                  THE ROUTINE MAPS A NEW ADAPTABLE DATA SEGMENT, CALLING
*                  MPF
*
*
*          REGISTERS:
*          ON ENTRY:
*
*                  D0   MINIMUM LENGTH
*                  D1   MAXIMUN LENGTH
*
*                  A0   ADDRESS OF SEGMENT REFERENCE
*                  A1   DISPLACEMENT
*                  A4   ADDRESS OF ADAPTABLE POINTER; A4+8 = ADDR OF MAP DESC
*                  A5   ADDRESS OF RMA DESCRIPTOR
*
*
*          MODIFIED REGISTERS
*
*                     0 1 2 3 4 5 6 7
*                  A:   *     *
*                  D:   *   *
*
*          EXTERNALS:
*
*                  .PMPA         DEF
*                  .PMPF         REF
*
***************************************************************************
*
           XDEF    .PMPA
           XREF    .PMPF
 
 
.PMPA      EQU      *                  ENTRY POINT
           ADD.L    #8,A4              A4:= MAP DESCRIPTOR
           MOVE.L   D1,-(SP)           STACK:= MAX LENGTH
           BSR      .PMPF              JUMP MAP FIXED SEGMENT
           MOVE.L   (SP)+,D1           D1:= MAX LENGTH
           SUB.L    #8,A4              ADP.PTR.DISP:= STARTADDR - OWN ADDR
           SUB.L    A4,A1
           MOVE.L   A1,(A4)
 
           CMP.L    D1,D3              ADP.PTR.LENGTH:=
         IF <LT>    THEN.S             MIN(MAX LENGTH, SEGMENT LENGTH)
           MOVE.L   D3,4(A4)
         ELSE.S
           MOVE.L   D1,4(A4)
         ENDI
         TSTOUT 'MPA11',0,0,TSTRTS1
           RTS
 
           END
 
«eof»