File MGLOB.MA (MACREL macro assembler source file)

Directory of image this file is from
This file as a plain text file

/4 GLOBALS FOR MACREL X2H
	.LIST
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)  1977 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/

/GLOBAL VARIABLES FOR MACRO PROCESSOR /FIELD 0 SYMBOLS (MAC.PA) SYM=31 /ADDR OF PACKED SYMBOL ("NAME1") TXTSTR=SYM+3 /ST POINTER TO FIRST CELL OF MACRO DEF TXTEND=SYM+5 /ST POINTER TO LAST CELL OF MACRO DEF /FIELD 1 SYMBOLS (MACIO.PA) STRJMP=1400 /CURRENT INPUT STREAM SWITCH=1402 /SUBROUTINE TO SWITCH STREAMS SWBACK=1516 /SUBROUTINE TO SWITCH STREAMS BACK MGET=204 /MACRO SPACE STREAM COROUTINE MG1=211 /MGET INPUT: FIRST CELL OF TEXT MGT4=312 MRET=MGET+1 RGET=404 /REPEAT RANGE STREAM COROUTINE RRET=RGET+1 R=412 /CURRENT REPEAT RANGE: FIRST CELL S=R+1 /CURRENT REPEAT RANGE: LAST CELL V=R-1 /CURRENT REPEAT VALUE
/GLOBAL VARIABLES FOR MACRO PROCESSOR, CONT. /INTERNAL PARAMETERS MAXRGS=12 /MAX NR OF MACRO ARGUMENTS PER CALL MAXLVS=6 /MAX NR OF NESTED MACRO CALLS
TOCBLK=33 TOCLEN=15 VERNUM="2 PTCHLEV="A AUXOVR=2400 ATFLD=10 VERSN=0 KNT=1 NUM=2 TEMP=3 SWATOL=4 SWMTOX=5 SWYTO9=6 X7=7 XR0=10 XR1=11 XR2=12 XR3=13 XR4=14 XR5=15 XR6=16 XR7=17 FORM=20 LINCNT=21 PAGENO=22 LINENO=23 LINEN2=24 LINEXT=25 CHAR=26 NEWTIT=27 FLG=30 NAME1=31 NAME2=32 NAME3=33 NAME4=34 SYMVAL=NAME4 FLAG=35 SYMSCT=36 QUAL=37 LINPTR=40 PASS=41 FREEPTR=42 LPTR=43 PC=44 CURSCT=45 CSTYPE=46 BINARY=47 EXPABS=50 EXPREL=51 EXPCOD=52 TRMABS=53 TRMREL=54 TRMCOD=55 SYMNUM=56 UNDEF=57 REMAIN=60 SAVPTR=61 PCFLAG=62 BNFLAG=63 CURFLD=64 LITPAG=65 LITSCT=66 CLTLOC=67 ZLTLOC=70 IFLAG=71 ZFLAG=72 PUNFLG=73 PAD=74 HGHLOC=75 TAGLOC=76 BITS=77 HISEK=100 LINOUT=101 INIFLG=102 CONCNT=103 TCKNT=104 WIDTH=105 RELOK=106 AT1=107 AT2=110 AT4=111 OV1=112 MS1=113 MS2=114 SS3=115 SMCOUNT=116 SAVLIN=117 FLGLOC=120 FLGFLG=121 HDRWRD=122 START=200 UVER=201 JSW=202 STARTR=203 STARTK=204 UVERK=205 JSWKEY=206 NIXT=206 NEX=207 PPASS=213 INILST=214 INIENAB=215 SBTKNT=216 TOCSIZ=217 LNKGEN=220 ERRPAG=221 ERRMAC=222 ERRSCT=223 ERRLIN=224 ERRLVL=225 CTRLO=226 MACLEV=227 GETLSD=230 IGNORE=240 CNVADR=246 PAUSY=266 PSEUDB=266 PSEUDP=267 PSEUDO=270 PSEUDN=271 BYEB=277 BYEP=300 BYEX=301 HGHSCT=304 ENNTRY=330 ENABWD=334 LINTRY=340 LISTWD=344 RADXWD=350 ZSECTN=351 MACSAV=352 ERRBLK=353 EXTPC=326 OLDSCT=327
NEWSCT= 4^400 REL12Z= 5^400 PSHVAL= 6^400 PSHCON= 7^400 PSHFLD= 10^400 POPVAL= 11^400 PSHLSD= 12^400 XDFLSD= 13^400 ORGCOD= 1 /SPECIAL LOADER CODE FOR ORIGINS POPCOD= 2 PSHCOD= 3 /PUSH NEXT 12-BIT WORD ONTO STACK NEGCOD= 4 /NEGATE TOP OF STACK ADDCOD= 5 /ADD TOP TWO ITEMS ON STACK, RESULT ON STACK SUBCOD= 6 /SUB " MULCOD= 7 /MULTIPLY " DIVCOD= 10 /DIVIDE " IORCOD= 11 /INCLUSIVE OR ANDCOD= 12 /AND " LSHCOD= 13 /LEFT SHIFT LEVCOD= 14 /PUSH LEVEL/OVERLAY ONTO STACK ABSCOD= 15 /SAME AS 1 BUT ORIGIN IS ABSOLUTE SWPCOD= 16 /SWITCH TOP TWO ITEMS ON STACK STKORG= 17 /ORIGIN IS ON TOP OF STACK PGLINS=70 /NUMBER OF LINES PER PAGE PERM= 1000 MRI= 2000 PSEUM= 2 PSEUD= 3 ENTRYY= 4 GLOB= 5 EXTRN= 6 ZTRN= 7 XTABS=3 /NO. OF TABS FOR EXTENSION LINE INPLEN=2 /NO. OF BLOCKS IN INPUT BUFFER PINLEN=INPLEN^2 FIXMRI INCR=ISZ /INCREMENT, BUT NO SKIP EXPECTED OUTLN=1 /NO. OF BLOCKS IN (LIST) OUTPUT BUFFER OUTPRS=OUTLN^200/NO. OF DOUBLE-WORDS IN OUTPUT BUFFER OUTCRS=OUTLN^600/NO. OF CHARS IN OUTPUT BUFFER USR=7700 HEADLN=40 /# OF CHARS IN TITLE HEADING SUBLEN=61 /# OF CHARS IN SUBTITLE HEADING (AT LEAST 20) MQL=7421 DATEWD=7666 /LOCATION OF OS/8 DATE IN FIELD 1 RTABSF=1^1000 /ABSOLUTE FIELD RESTRICTION RTABSO=2^1000 /ABSOLUTE ORIGIN RESTRICTION RTSAMP=3^1000 /SAME PAGE AND FIELD AS REF RESTRICTION RTSAMF=4^1000 /SAME FIELD AS REF RESTRICTION EXTNDED=0^400 REL12= 1^400 RELFLD= 2^400 LOADZB= 3^400
.ASECT LITS FIELD 0 *123 QQ7, 7 QQ40, 40 QQ70, 70 QQ77, 77 QQ177, 177 QQ200, 200 QQ377, 377 QM200, -200 QQ7600=QM200 QM10, -10 QQ7770=QM10 QQASEMLV,ASEMLV QQBACKUP,BACKUP QQBRANCH,BRANCH QQCREF, CREF QQCRLF, CRLF QQDPRINT,DPRINT QQENTER,ENTER QQEOS, EOS QQERROR,ERROR QQEXPR, EXPR QQFSCHEK,FSCHEK QQGETCHR,GETCHR QQGETKAR,GETKAR QQGETSYM,GETSYM QQHGHSCT,HGHSCT QQLETTER,LETTER QQLISTER,LISTER QQLOOKUP,LOOKUP QQ7000=QQLOOKUP QM1000=QQ7000 QQORIG, ORIG QQOUT, OUT QQPARSYM,PARSYM QQPASS3,PASS3 QQPOTB, 7605 /UNUSED QQPOP, POP QQPUSH, PUSH QQPUNBIT,PUNBIT QQPUTBIT,PUTBIT QQPUTSYM,PUTSYM QQPUXBIN,PUXBIN QQREADLN,READLN QQROTL6,ROTL6 QQSCAN, SCAN .LIST / FIXTAB



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search