Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50413/aproc.mac
There are 2 other files named aproc.mac in the archive. Click here to see a list.
	UNIVERSAL	APROC
	SUBTTL	ASCII EDIT PACKAGE EDIT PACKAGE
;
;	AEDIT - A UNIVERSAL FILE FOR THE ASCII EDIT PACKAGE
;
;				DA GORKA 30-MAR-76
;
;
; [01] ADDED THE SIXBIT CONVERTER AND EDITOR

P==17				; WHERE THE CALLS COME FROM
EXTERNAL	ADIT%,AMSG%,AFD1%,AFD2%,AEXIT%,ADECV%,APOS%,ACHAR%
EXTERNAL	ADAY%,ATIME%,ADECF%,AOCTF%,AOCTV%,AOCTL%
EXTERNAL	ASIX%		; [01]
;
;	A$<MUMBLE> WILL GENERATE ALL THE IMMEDIATE LOADS
;
DEFINE	A$DIT(X),<
	MOVEI	1,X
	PUSHJ	P,ADIT%
	>

DEFINE	A$MSG(X),<
	MOVEI	1,X
	PUSHJ	P,AMSG%
	>
DEFINE	A$POS(X),<
	MOVEI	1,X
	PUSHJ	P,APOS%
	>

DEFINE	A$FD1(X),<
	MOVE	1,X
	PUSHJ	P,AFD1%
	>

DEFINE	A$FD2(X),<
	DMOVE	1,X
	PUSHJ	P,AFD2%
	>

DEFINE	A$DECV(X),<
	MOVE	1,X
	PUSHJ	P,ADECV%
	>

DEFINE	A$EXIT,<
	PUSHJ	P,AEXIT%
	>

DEFINE	A$CHAR(X<0>),<
	MOVEI 1,X
	PUSHJ	P,ACHAR%
	>

DEFINE	A$TIME(X),<
	MOVEI	1,X
	PUSHJ	P,ATIME%
	>

DEFINE	A$DATE(X),<
	MOVE	1,X
	PUSHJ	P,ADAY%
	>

DEFINE	A$LINE(X),<
	A$CHAR	15
	A$CHAR	12
	>

DEFINE	A$PKT(X,Y),<
	+	X,,Y		;; LENGTH IN WDS,,ADDR OF BUFFER
	+	0		;; CURRENT POSITION IN LINE
	+	0		;; COUNT OF CHARS USED IN THE LINE
	+	0		;; BYTE POINTER OF START OF LINE
	+	0		;; TEMP STORAGE FOR PACKAGE
	>

DEFINE	A$DECF(X),<
	MOVE	1,X
	PUSHJ	P,ADECF%
	>
DEFINE	A$OCTF(X,Y),<
IFN	Y,<MOVEI 2,Y>
	MOVEI	1,X
	PUSHJ	P,AOCTF%
	>

DEFINE	A$OCTL(X,Y),<
IFN	Y,<MOVEI 2,Y>
	MOVEI	1,X
	PUSHJ	P,AOCTR%
	>

DEFINE	A$OCTV(X),<
	MOVEI	1,X
	PUSHJ	P,AOCTV%
	>

DEFINE	A$SIX(X),<		; [01]
	MOVE	1,X		; [01]
	PUSHJ	P,ASIX%		; [01]
	>			; [01]
;
;	A%<MUMBLE> WILL GENERATE THE CORRECT CALL ONLY
;
DEFINE	A%DIT,<
	PUSHJ	P,ADIT%
	>

DEFINE	A%MSG,<
	PUSHJ	P,AMSG%
	>
DEFINE	A%POS,<
	PUSHJ	P,APOS%
	>

DEFINE	A%FD1,<
	PUSHJ	P,AFD1%
	>

DEFINE	A%FD2,<
	PUSHJ	P,AFD2%
	>

DEFINE	A%DECV,<
	PUSHJ	P,ADECV%
	>

DEFINE	A%EXIT,<
	PUSHJ	P,AEXIT%
	>

DEFINE	A%CHAR,<
	PUSHJ	P,ACHAR%
	>

DEFINE	A%TIME,<
	PUSHJ	P,ATIME%
	>

DEFINE	A%DATE,<
	PUSHJ	P,ADAY%
	>

DEFINE	A%LINE,<
	A%CHAR	15
	A%CHAR	12
	>

DEFINE	A%PKT(X,Y),<
	+	X,,Y		;; LENGTH IN WDS,,ADDR OF BUFFER
	+	0		;; CURRENT POSITION IN LINE
	+	0		;; COUNT OF CHARS USED IN THE LINE
	+	0		;; BYTE POINTER OF START OF LINE
	+	0		;; TEMP STORAGE FOR PACKAGE
	>

DEFINE	A%DECF,<
	PUSHJ	P,ADECF%
	>

DEFINE	A%OCTF(X,Y),<
IFN	Y,<MOVEI 2,Y>
	PUSHJ	P,AOCTF%
	>

DEFINE	A%OCTL(X,Y),<
IFN	Y,<MOVEI 2,Y>
	PUSHJ	P,AOCTL%
	>

DEFINE	A%OCTV,<
	PUSHJ	P,AOCTV%
	>
	END
DEFINE	A%SIX,<			;; [01]
	PUSHJ	P,ASIX%		;; [01]
	>			;; [01]