Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0108/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]