|
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: 1408 (0x580)
Types: TextFile
Names: »CHKOBJ.SA«
└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »CHKOBJ.SA«
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »CHKOBJ.SA«
NOLIST
INCLUDE RR.FIOEQU.SA
INCLUDE RR.RTEQU.SA
LIST
NOFORMAT
TTL V 0.02 68K EOS PASCAL CHECK OBJECT CALL
CHKOBJ IDNT 0,02 68K EOS PASCAL CHECK OBJECT CALL
SECTION 8
*
*****************************************************************************
*
*
* FUNCTION:
* THE ROUTINE CHECKS IF AN OBJECT CALL IS IN PROGRESS
*
* REGISTERS:
* ON ENTRY:
*
*
* MODIFIED REGISTERS
*
* 0 1 2 3 4 5 6 7
* A:
* D: *
*
* EXTERNALS:
*
* .PCHKOBJ DEF
* .PEXCEPT REF
*
*
***************************************************************************
*
XDEF .PCHKOBJ
XREF .PEXCEPT
.PCHKOBJ EQU * ENTRY POINT
TSTOUT 'CHKOBJ11',RMAOBCDS(A5),RMAOBCDS+4(A5),TSTRTS1
TST RMAOBCDS(A5) IF OBJECT CALL IS GOING ON
IF <NE> THEN.S THEN
MOVE.L #OBJERR,D0 OBJECT ERROR
BRA .PEXCEPT EXCEPTION
ENDI
RTS
END
«eof»