mirror of
https://github.com/antoinevignau/source.git
synced 2024-10-31 22:06:40 +00:00
1 line
2.1 KiB
ArmAsm
Executable File
1 line
2.1 KiB
ArmAsm
Executable File
|
|
CASE OBJECT
|
|
|
|
;-----------------------------------------------
|
|
;
|
|
; Imported addresses
|
|
;
|
|
;-----------------------------------------------
|
|
|
|
import _THErrNum,_THInfo,_THShutDown,_THStartUp,_THWord,_THXVal
|
|
|
|
;-----------------------------------------------
|
|
;
|
|
; Forward addresses and entries
|
|
;
|
|
;-----------------------------------------------
|
|
|
|
ENTRY _THretaddr
|
|
PRINT OFF
|
|
|
|
****************************************************************
|
|
* ;
|
|
* THINT.SRC - Assembly-language interface routines for TH ;
|
|
* ;
|
|
* Robert A. Hearn ;
|
|
* StyleWare, Inc. 9/12/87 ;
|
|
* ;
|
|
****************************************************************
|
|
|
|
|
|
LOAD 'macros.dump'
|
|
|
|
****************************************************************
|
|
|
|
THStartUp PROC EXPORT
|
|
;Using THIntData
|
|
|
|
phb ; must do this since we can't screw
|
|
pulllong >_THretaddr ; up the stack
|
|
|
|
phk
|
|
plb
|
|
|
|
call _THStartUp
|
|
moveword _THXVal,x
|
|
|
|
pushlong _THretaddr
|
|
plb
|
|
|
|
lda >_THErrNum
|
|
cmp #1
|
|
|
|
rtl
|
|
|
|
ENDP
|
|
|
|
****************************************************************
|
|
|
|
THShutDown PROC EXPORT
|
|
;Using THIntData
|
|
|
|
phb ; must do this since we can't screw
|
|
pulllong >_THretaddr ; up the stack
|
|
|
|
phk
|
|
plb
|
|
|
|
call _THShutDown
|
|
moveword _THXVal,x
|
|
|
|
pushlong _THretaddr
|
|
plb
|
|
|
|
lda >_THErrNum
|
|
cmp #1
|
|
|
|
rtl
|
|
|
|
ENDP
|
|
|
|
****************************************************************
|
|
|
|
THWord PROC EXPORT
|
|
;Using THIntData
|
|
|
|
phb ; must do this since we can't screw
|
|
pulllong >_THretaddr ; up the stack
|
|
|
|
phk
|
|
plb
|
|
|
|
call _THWord
|
|
moveword _THXVal,x
|
|
|
|
pushlong _THretaddr
|
|
plb
|
|
|
|
lda >_THErrNum
|
|
cmp #1
|
|
|
|
rtl
|
|
|
|
ENDP
|
|
|
|
****************************************************************
|
|
|
|
THInfo PROC EXPORT
|
|
;Using THIntData
|
|
|
|
phb ; must do this since we can't screw
|
|
pulllong >_THretaddr ; up the stack
|
|
|
|
phk
|
|
plb
|
|
|
|
call _THInfo
|
|
moveword _THXVal,x
|
|
|
|
pushlong _THretaddr
|
|
plb
|
|
|
|
lda >_THErrNum
|
|
cmp #1
|
|
|
|
rtl
|
|
|
|
ENDP
|
|
|
|
*****************************************************************
|
|
|
|
THIntData PROC EXPORT
|
|
EXPORT _THretaddr
|
|
|
|
_THretaddr DS.B 4
|
|
|
|
ENDP
|
|
END
|
|
|