mirror of
https://github.com/PDP-10/PCC20.git
synced 2026-05-04 15:25:45 +00:00
27 lines
359 B
Plaintext
27 lines
359 B
Plaintext
;
|
|
; C20LIB - Tops-20 Midas Stuff
|
|
;
|
|
|
|
TITLE C20LIB
|
|
.INSRT <C>NC
|
|
.INSRT <C>NM
|
|
|
|
CENTRY MAKTAG,[TAGP]
|
|
|
|
HRRZ A,TAGP ; TAG POINTER
|
|
MOVE B,(P) ; RETURN PC
|
|
MOVEM B,(A) ; SAVE RETURN PC
|
|
MOVEI B,-2(P) ; STACK POINTER BEFORE CALL
|
|
MOVEM B,1(A) ; SAVE STACK POINTER
|
|
RETURN
|
|
|
|
CENTRY GOTAG,[TAGP]
|
|
|
|
; MCALL DISMISS
|
|
MOVE A,TAGP
|
|
MOVE P,1(A)
|
|
HRRZ D,(A)
|
|
GO (D)
|
|
|
|
END
|