Trailing-Edge
-
PDP-10 Archives
-
bb-d549g-sb
-
camlow.mac
There are 3 other files named camlow.mac in the archive. Click here to see a list.
TITLE CAMLOW VERSION 3
SUBTTL IMPURE AREA FOR CAM & FED CWRU/CAM
EDIT==6
VERSION==XWD 300,EDIT
;COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
LOC 137
VERSION
RELOC
ENTRY ZOP
ENTRY XSW,BASCLN,BPAGNO
IFDEF CMPRSW,<ENTRY LINCNT,NUMLIN,CRPERR
LINCNT:NUMLIN:CRPERR: 0>
IFDEF CMPRSW,<ENTRY LINEN0
LINEN0: 0>
IFNDEF CMPRSW,<ENTRY OLDPNT,OLDNUM>
C=10
IFDEF CMPRSW,<LBUFP2: BLOCK 1>
ENTRY SAVFFF
ENTRY DSKFLG,TEMP,LINENO,SAV4,USEPTR
ENTRY BASPTR,SYSIPT,I,TEMP3,MESL,MESJ,CMP,CMRG
ENTRY CAMM,MESGC,MESGA,DELPT,MESGB,T2,SAVR14
ENTRY CORSAV,PTNF,PTNE,PTOF,PTOE,SAV23,STORED,STORE
DSKFLG: +0
ENTRY STORD2,STORE2,ARROWD,BOL,XCLAMD,A5STOR,TEM,PFLAG
ENTRY MCBUF,UCBUF,FFSAVE,STZERO,GOTCOM,TEMP2
ENTRY ERRNO,CORLER,CONNO,COLOND,EOF,EOSF,COUNTR
ENTRY FERR,FIRST,A,B,SAVEMC,SAVEUC,MCSTIN,ASWIT,EOL,ENZERO
ENTRY ERHDM,ERTRM,CNHDM,CNTRM,COMCM
ENTRY SAVXFF,FIRTIM
ENTRY PUSHST
ENTRY FIRS.T
PUSHST: BLOCK 15
ENTRY TEMP4
A1=1
TEMP4: 0
TEMP: + 0
LINENO: 0
SAV4: BLOCK 4
USEPTR: + 0
BASPTR: + 0
FIRTIM: BLOCK 1
SAVXFF: BLOCK 1
SYSIPT: BLOCK 3 ;
I: 0
TEMP3: 0
MESL: ASCIZ /*** FILE NOT ON BASE DEVICE
/
MESJ: ASCIZ /MANUFACTURER'S CORRECTION SUBFILE DELETED : /
CMP: ASCIZ /COMPAR: BASE= . USER-NEW = .
/
CMRG: ASCII /COMERG: BASE= . USER-NEW = . /
ASCIZ /MANF-NEW= .
/
CAMM: ASCII /CAM : BASE= . USER-NEW = . /
ASCIZ /MANF-NEW= .
/
MESGC: ASCIZ /-! . _ .
/
MESGA: ASCIZ /*** FILE NOT ON USER'S DEVICE
/
DELPT: ASCIZ /-!_ .
/
MESGB: ASCIZ /*** MOUNT NEXT INPUT DECTAPE ON UNIT
/
T2: +0
SAVR14: BLOCK 4
SAVFFF: BLOCK 1 ; TO SAVE .JBFF FOR FEDIT
CORSAV: BLOCK 4
PTNF: BLOCK 2
PTNE: BLOCK 2
PTOF: BLOCK 2
PTOE: BLOCK 2
SAV23: BLOCK 2
STORED: BLOCK 2
STORE: BLOCK 2
STORD2: BLOCK 2
STORE2: BLOCK 2
ARROWD: BLOCK 2
BOL: BLOCK 2
XCLAMD: BLOCK 2
A5STOR: 0
TEM: 0
PFLAG: 0
MCBUF: BLOCK 14
UCBUF: BLOCK 14
FFSAVE: + 0
; BEGINNING OF STORAGE AREA
STZERO:
GOTCOM: 0
TEMP2: 0
ERRNO: BLOCK 2
CORLER: BLOCK 2
CONNO: BLOCK 1
COLOND: BLOCK 2
EOF: BLOCK 2
EOSF: BLOCK 2
COUNTR: BLOCK 2
FERR: BLOCK 2
FIRS.T: BLOCK 2
A: BLOCK 2
B: BLOCK 2
SAVEMC: BLOCK 15
SAVEUC: BLOCK 15
MCSTIN: BLOCK 2
ASWIT: BLOCK 1
EOL: BLOCK 1
BASCLN: BLOCK 1 ;ASCII LINE NO. FROM BASE FILE
EXP 0
BPAGNO: BLOCK 1 ;PAGE NUMBER FROM BASE FILE.
XSW: BLOCK 1 ;ON IF /X IS TYPED (USED BY FED)
ENZERO:
;END OF STORAGE AREA
ERHDM: ASCII #- /-/-/-/-/ BEGINNING OF ERROR #
ASCIZ # IN USER INPUT SUBFILE \-\-\-\
#
ERTRM: ASCII #- /-/-/-/-/-/-/-/ END OF ERROR #
ASCIZ # IN USER INPUT SUBFILE \-\-\-\
#
CNHDM: ASCII #- /-/-/-/-/-/-/-/-/-/ BEGINNING OF #
ASCIZ #CONFLICT \-\-\-\-\-\-\-\-\
#
CNTRM: ASCII #- /-/-/-/-/-/-/-/-/-/-/-/-/ END OF #
ASCIZ #CONFLICT \-\-\-\-\-\-\-\-\
#
COMCM: ASCII /COMERG COMPLETED: ERRORS AND /
ASCIZ / CONFLICT(S) DETECTED
/
IFNDEF CMPRSW,<
IFNDEF BSIZE,<BSIZE=^D1750>
C=10
ENTRY CRPERR,GLTBL
CRPERR: 5
GLTBL: LBUFP2
[ENDP-1]
ENTRY SAVFFX
ENTRY OUTDEV,PPSET,ERRCNT,TOP,TOP1,TOP2
ENTRY LBUFP,LBUFP1,LBUFP2,P1,P2,SAVEXS,TEMP
ENTRY RTNTMP,WCADR,HIGH,ROOM,GETCNT,GETFIL
ENTRY NUMTMP,TEMPF1,TEMPF2,LINEND,LSTCH,SAVEC,SAVNO2
ENTRY LINCNT,SAVNO,LINENO,BUFF1,BUFF2,ENDP,NUMLIN
ENTRY TUMP
ENTRY LINEN0
OUTDEV: BLOCK 1
PPSET: BLOCK 20
SAVFFX: 0
LASPNT: BLOCK 2
OLDPNT: BLOCK 2
OLDNUM: BLOCK 2
ERRCNT: BLOCK 1
TOP: ;CONTAINS # LINES ACTUALLY STORED IN BUFFER
TOP1: BLOCK 1
TOP2: BLOCK 1
LBUFP:
LBUFP1: BLOCK 1
LBUFP2: BLOCK 1
P1: BLOCK 1
P2: BLOCK 1
SAVEXS: BLOCK 17
TUMP: BLOCK 1
RTNTMP: BLOCK 1 ;RETURN ADDRESS FOR "MULTI" SUBROUTINE
WCADR: BLOCK 1 ;TEMP IN GLINE SUBROUTINE
HIGH: BLOCK 1 ;USED BY NOROOM
ROOM: BLOCK 1 ;USED BY "NOROOM"
GETCNT: BLOCK 1 ;# LINES (-1) "GETTWO" GOT
GETFIL: BLOCK 1 ;# OF FILE FROM WHICH "GETTWO" GOT LINE (.L. 0 IF NONE)
NUMTMP: BLOCK 1 ;TEMP FOR NUMLIN
TEMPF1: BLOCK 1 ;TEMP FOR F1
TEMPF2: BLOCK 1 ;TEMP FOR F2
LINEND: 1
LSTCH: BLOCK 3
SAVEC: 0
SAVNO2: 0
LINCNT: 0
SAVNO: 0
LINEN0: BLOCK 3
BUFF1: BLOCK BSIZE
BUFF2: BLOCK BSIZE
ENDP:
NUMLIN: BLOCK 1
LIT
>
ENTRY P6WORD
ENTRY PTRS.
ENTRY SFF1,LOGIPT,SCHAR
ENTRY CMDDDB
ENTRY LOGSPC,MRGSPC,LSTSPC
ENTRY CMDSPC
ENTRY USPEC
ENTRY BSPEC
ENTRY UCSPEC
ENTRY MCSPEC
ENTRY SAVFF
ENTRY FED
ENTRY ATFLAG
ENTRY CRLF
ENTRY CRLFBF
ENTRY LAST.
ENTRY LSTOP
ENTRY CAMOPT
ENTRY CONFLA
ENTRY INCOPT
ENTRY ID.CNT
ENTRY MATQUO
ENTRY SAVAC2
ENTRY COMPOP
ENTRY DIASW
ENTRY SFMODE
ENTRY BASIPT
ENTRY USEIPT
ENTRY BADDB
ENTRY BASDDB
ENTRY USDDB
ENTRY USEDDB
ENTRY ID.
ENTRY NUMBF2
ENTRY NUMBUF
ENTRY SAVEPP
ENTRY STATE.
ENTRY PDL
ENTRY PPROGW
ENTRY OLDCNT
ENTRY COMCNT
ENTRY LISTB
ENTRY OPTION
ENTRY COMBUF
ENTRY LSTTY
ENTRY LOGTTY
ENTRY SIXCNT
ENTRY SIXBUF
ENTRY SIXPTR
ENTRY SEVPTR
ENTRY SAVACS
ENTRY SQVE2
ENTRY LSTBKS
ENTRY LSTRET
ENTRY PTRLST
ENTRY MRET
ENTRY PTRMRG
ENTRY SQVE1
ENTRY LRET
ENTRY PTRLG
ENTRY BLOCKS
ENTRY MCIPT
ENTRY LOGOPT
ENTRY SAVEXX
ENTRY MRGIPT
ENTRY MRGOPT
ENTRY LSTOPT
ENTRY LSTIPT
ENTRY UCDDB
ENTRY UCIPTF
ENTRY UCIPT
ENTRY LSTDDB
ENTRY MRGDDB
ENTRY LOGDDB
ENTRY MCDDB
ENTRY SAVE16
ENTRY FIRST.
ENTRY PRTOPT
ENTRY ASTRFL
ENTRY CMDIPTF
CMDDDB: BLOCK 7
CMDIPTF: BLOCK 3
FIRST.:
TSW: 0
ENTRY TSW
P6WORD: 0
HEADSW: 0
ASTRFL: 0
SCHAR: 0
SFF1: 0
LOGIPT: 0
SAVE16: 0
MCDDB: BLOCK 7
LOGDDB: BLOCK 7
MRGDDB: BLOCK 7
LSTDDB: BLOCK 7
UCIPT:UCIPTF: BLOCK 3
UCDDB: BLOCK 7
LSTIPT: BLOCK 3
LSTOPT: BLOCK 3
MRGOPT: BLOCK 3
MRGIPT: BLOCK 3
SAVEXX: 0
LOGOPT: BLOCK 3
MCIPT: BLOCK 3
BLOCKS: 0
PTRLG: 0
LRET: 0
SQVE1: 0
PTRMRG: 0
MRET: 0
PTRLST: 0
LSTRET: 0
LSTBKS: 0
SQVE2: 0
SAVACS: BLOCK 20
SEVPTR: 0
SIXPTR: 0
SIXBUF: BLOCK 2
SIXCNT: 0
LOGTTY: 0
LSTTY: 0
COMBUF: BLOCK 31
OPTION: BLOCK 5
ZOP: 0
LISTB: BLOCK 5
COMCNT: 0
OLDCNT: 0
PPROGW: 0
PDL: BLOCK 5
STATE.: 0
SAVEPP: 0
NUMBUF: BLOCK 3
NUMBF2: BLOCK 3
BYTE (7)54,11,11,11,11
ID.: 0
USEDDB:USDDB: BLOCK 7
BASDDB:BADDB: BLOCK 7
USEIPT: BLOCK 7
BASIPT: BLOCK 7
SFMODE: 0
DIASW: 0
COMPOP: 0
SAVAC2: BLOCK 20
MATQUO: 0
ID.CNT: 0
INCOPT: 0
CONFLA: 0
CAMOPT: 0
LSTOP: 0
LAST.: 0
PRTOPT: BLOCK 1
PTRS.: POINT 7,NUMBUF-1,35
POINT 7,ID.-2,35
POINT 7,CRLFBF-1,35
POINT 7,@LBUFP2,35
POINT 7,NUMBF2-1,35
CRLFBF:CRLF: ASCIZ/
/
ATFLAG: 0
FED: 0
SAVFF: 0
MCSPEC: 0
0
XWD 0,MCIPT
UCSPEC: 0
0
XWD 0,UCIPTF
BSPEC: 0
0
XWD 0,BASIPT
USPEC: 0
0
XWD 0,USEIPT
CMDSPC: 0
0
XWD 0,CMDIPT
LOGSPC: 0
0
XWD LOGOPT,0
MRGSPC: 0
0
XWD MRGOPT,MRGIPT
LSTSPC: 0
0
XWD LSTOPT,LSTIPT
ENTRY MESN
MESN: ASCIZ /*** FILE . NOT ON BASE DEVICE
/
ENTRY LINENO,CLINEN,TAG,BOLX,ID,CHARS,DELCT
ENTRY FLUSHT,COPYCT,MCSAV,MCSAV2,BUF,CMDBUF,PDLIST
ENTRY BUFFCT,CMDCNT,N,M,LASNUM,FIRST,LAST,SAVEAC,PEOFLG
FIRST: 0
CMDCN: 0
ENTRY CMDCN
ENTRY HEADSW,LINCTR,PAGCNT
ENTRY FIRST1
FIRST1: 0 ; FIRST COMMAND GOOD?
LINCTR: 0
PAGCNT: 0
CMDBUF: BLOCK 32
BUF: BLOCK 32
PDLIST: BLOCK 20
ENTRY DATCNT,DATBUF,TIMCNT,TIMBUF
DATCNT: 0
DATBUF: BLOCK 2
TIMCNT: 0
TIMBUF: BLOCK 3
CMDCNT: 0
BUFFCT: 0
COPYCT: 0
FLUSHT: 0
N: 0
M: 0
DELCT: 0
LASNUM: 0
CLINEN: 0
CHARS: 0
BOLX: 0
TAG: 0
ID: 0
MCSAV: 0
MCSAV2: 0
PEOFLG: 0
LAST: 0
JFFSAV: 0
ENTRY JFFSAV
SAVEAC: BLOCK 20
LIT
END;