Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/rpgimp.mac
There is 1 other file named rpgimp.mac in the archive. Click here to see a list.
TITLE RPGIMP FOR RPGLIB
SUBTTL IMPURE AREA FOR RPGLIB
;COPYRIGHT 1976 BOB CURRIER AND CERRITOS COLLEGE
SEARCH INTERM
BIS==:BIS
MCS==:MCS
DBMS==:DBMS
DEBUG==:DEBUG
SEARCH COMUNI
%%COMUNI==:%%COMUNI
TWOSEG
RPGIMP: ENTRY RPGIMP ; MAKE SURE WE GET LOADED
SALL
PURLO% ; DEFINE THE LO-SEG
FIXNUM==:FIXNUM
LIBIMP==:0 ; SATISFY GLOBAL
; DEFINE NECESSARY AC'S
AC1==1
AC2==2
AC6==6
PURHI% ; DEFINE THE HI-SEG
FIXNUM==:FIXNUM
END