|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Types: TextFile
Names: »EENT.SA«
└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »EENT.SA«
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »EENT.SA«
NOLIST
INCLUDE RR.FIOEQU.SA
INCLUDE RR.RTEQU.SA
LIST
NOFORMAT
TTL V 0.02 68K EOS PASCAL END ENTRY
EENT IDNT 0,02 68K EOS PASCAL END ENTRY
SECTION 8
*
*****************************************************************************
*
*
* FUNCTION:
* THE ROUTINE SETS UP RESULT=OK IN D6 AND D7, AND MAKES A
* KERNEL CALL RETURN OBJECT
*
* REGISTERS:
* ON ENTRY:
*
*
*
* MODIFIED REGISTERS
*
* 0 1 2 3 4 5 6 7
* A: * * * *
* D: * * * * * * * *
*
* EXTERNALS:
*
* .PEENT DEF
*
*
***************************************************************************
*
XDEF .PEENT
.PEENT EQU * ENTRY POINT
MOVE.L #PASCALNO<<16,D6 ORGSYS:= PASCAL
MOVEQ #SECPNO<<16,D7 ORG:= SE-CP
MOVEQ #1,D5 OBJECT RETURN
TSTOUT 'EENT11',0,0,TSTRTS1
TRAP #7 KERNEL CALL
END
«eof»