|
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: 1792 (0x700)
Types: TextFile
Names: »NSB.SA«
└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »NSB.SA«
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »NSB.SA«
NOLIST
INCLUDE RR.FIOEQU.SA
LIST
NOFORMAT
TTL V 0.02 68K EOS PASCAL NEW/DECLARE SUBSEGMENT
NSB IDNT 0,02 68K EOS PASCAL NEW/DECLARE SUBSEGMENT
SECTION 8
*
*****************************************************************************
*
*
* FUNCTION:
* THE ROUTINE SETS UP THE PARAMETERS FOR THE KERNEL CALL AND
* ON RETURN STORES THE RESULT
*
* REGISTERS:
* ON ENTRY:
*
* SP LOWEST ARGUMENT
* D5 KERNEL ENTRY NUMBER
*
*
* MODIFIED REGISTERS
*
* 0 1 2 3 4 5 6 7
* A: * * * * *
* D: * * * * * * * *
*
* EXTERNALS:
*
* .PNSB DEF
* .PDSB DEF
* .PLJSR REF
*
***************************************************************************
*
XDEF .PNSB
XDEF .PDSB
XREF .PLJSR
.PNSB EQU * ENTRY POINT
.PDSB EQU * ENTRY POINT
MOVE.L (SP)+,A4 A4:= RETURN ADDR
MOVEQ #18,D2 D2:= LENGTH
MOVE.L SP,D4 D4:= LOWARG
TSTOUT 'NSB-BEFORE',(SP),18(SP),TSTRTS3
TRAP #7 KERNEL CALL
LEA .PLJSR(PC),A3
ADDA.L #18,SP ADJUST STACK PIONTER
MOVEM.L D6/D7,-(SP) STACK:= RESULT VALUE
TSTOUT 'NSB11',(SP),12(SP),TSTRTS1
JMP (A4)
END
«eof»