$case
$segmented
$model(medium)
$extend
$nomod166
$stdnames(reg164ci.def)

	regdef	R12,R4,R1
;**************************************************************************************************************
; Definition des OS-Routinen
OSsegment	EQU	0
POP_R4		EQU	0765AH
PUSH_R12	EQU	075D6H

userseg		SECTION CODE word at 30000h
assume	dpp3:userseg


;************************************************************************************************************
;  liesst den Inhalt einer Speicherzelle von Bank 0
;  Uebergabe:  Adresse auf dem Stack des aktuellen Threads
;  Rueckgabe   Speicherinhalt auf dem Stack des aktuellen Threads
		public	intRAM

intRAM		proc far

		CALLS	OSsegment,POP_R4	;hole Adresse vom Stack
		EXTS	#0,#1
		MOV	R12,[R4]		;Speicher-Inhalt lesen
		CALLS	OSsegment,PUSH_R12	;auf Stack schaffen
		POP	R1			;Rcksprung (2xPOP wegen Fehler im OS)
		POP	R1
		RETS				;eigentlicher Rcksprung
intRAM		endp
userseg		ENDS
		END
       