mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
25 lines
389 B
Plaintext
25 lines
389 B
Plaintext
*
|
|
* SUBROUTINE FOR CP/M68K PIP UTILITY
|
|
*
|
|
SECTION 9
|
|
XDEF INPLOC,OUTPLOC,INPD,OUTD
|
|
*
|
|
INPLOC EQU *
|
|
NOP
|
|
RTS
|
|
*
|
|
OUTPLOC EQU *
|
|
NOP
|
|
RTS
|
|
*
|
|
INPD EQU *
|
|
NOP
|
|
RTS
|
|
*
|
|
OUTD EQU *
|
|
NOP
|
|
MOVE.L (A7)+,A0
|
|
LEA 2(A7),A7
|
|
JMP (A0)
|
|
END
|