$ô > AsmPDP PDP11 Assembler v1.21 RA$=¤OS_GetEnv:Ver$="1.21":òWin_TextIO:ftype%=&FFD:load%=-1:exec%=-1:òAssemInit Wfmax%=10:Þword% 7,cache% 259,file$(fmax%),ptr%(fmax%):eol$=½10:ços%>31:eol$=½13+½10 ( [ []]]":òexit(0):à ZJõ:çÀA$,2)="-D":A%=§A$," "):çA%:B%=§A$+"-","-",3):çB%=0„B%>A%:òPreLabel dCýÀA$,2)<>"-D":in$=¤cl("",0):out$=¤cl("",0):lst$=¤cl("",0):if%=£ n=çin$=""„vb%:ñcpu$" Assembler v"Ver$;À"/"+ver$,Ver$<>ver$) x6çin$="":è†"Input file: "in$:è†"Output file: "out$ ‚çin$="":òexit(0):à Œ;çdebug%:ñ" in$='"in$"'"'"out$='"out$"'"'"lst$='"lst$"'" –Ein%=¤openin("",in$):çin%=0:ñ"File '"in$"' not found":òexit(214):à 4çout$<>"":out$=¤f_name(out$):out%=¤openout(out$) ª4çlst$<>"":lst$=¤f_name(lst$):lst%=¤openout(lst$) ´Uî…ö:ñ" ";error$;Àpart$,error$<>"");À" ",error$<>"");"in "in$:òCloseAll:òexit(Ÿ):à ¾>ãpass%=1¸2:Ï#in%=0:Line$="":P%=0:O%=0:L%=0:errs%=0:fnum%=0 È(õ:if%=£:õ:òAssemLine:çpass%=2:òPass2 Ò P%=P%+num%:O%=O%+num%:ýÅ#in% Ü0çif%:çpass%=2:òerr("Missing #ENDIF in "+in$) æXfnum%=fnum%-1:çfnum%>-1:in$=file$(fnum%):Ù#in%:in%=¤openin("",in$):Ï#in%=ptr%(fnum%) ð4ýfnum%<0:ípass%:òlst("Errors: "+Ãerrs%):òlst("") úòCloseAll:î…òexit(errs%) 4çout$<>"":òf_settype(out$,ftype%):òf_stamp(out$) 5çout$<>"":çload%<>-1:òf_setaddr(out$,load%,exec%) 2çlst$<>"":òf_settype(lst$,&FFF):òf_stamp(lst$) "òexit(errs%) ,à 6+ÝòPass2:çnum%>0:çnum%<256:cache%?num%=0 @)çop%<>-1:cache%?1=op%256:?cache%=op% J;çnum%:çout%:çL%=0„P%"":òerr(error$+part$) há rCÝòerr(A$):òlst("****** "+A$):òlst(""):errs%=errs%-(errs%<127):á |"ÝòWin_TextIO:ços%<32„<&FFFF:á †,È™"GetStdHandle",-10¸@hfile%(1):*INPUT 1 -È™"GetStdHandle",-11¸@hfile%(2):*OUTPUT 2 šá ¤ÝòCloseAll ®#in% =in%:çin%:A%=in%:in%=0:Ù#A% ¸'in0%=in0%:çin0%:A%=in0%:in0%=0:Ù#A% Â'out%=out%:çout%:A%=out%:out%=0:Ù#A% Ì'lst%=lst%:çlst%:A%=lst%:lst%=0:Ù#A% Öá à Ýòlst(A$):çvb%:ñA$;:çA$="":ñ ê(çlst%:Õ#lst%,A$;:çA$="":Õ#lst%,eol$; ôá þÝ¤value(V$):êA%,B%,V% ;ê…:î…ê:çŸ=26:error$="Undefined label":=P%‹error$=ö$:=P% #A%=§V$,"$+"):çA%=0:A%=§V$,"$-") "çA%=0:A%=§V$,"+$"):çA%:A%=A%+1 &"çA%=0:A%=§V$,"-$"):çA%:A%=A%+1 0#çA%:V$=ÀV$,A%-1)+"P%"+ÁV$,A%+1) :õ D[A%=§V$,"'"):çA%:çÁV$,A%+2,1)="'":ç§V$,"""")=0:V$=ÀV$,A%-1)+Ã—ÁV$,A%+1,1)+ÁV$,A%+3)‹A%=0 N ýA%=0 XA%=§V$,"&o"):çA%=0:= V$ bõ:V%=0:B%=A%+2 l#õ:V%=(V%<<3)+»ÁV$,B%,1):B%=B%+1 v ýÁV$,B%,1)<"0"„ÁV$,B%,1)>"7" €V$=ÀV$,A%)+Ã~V%+ÁV$,B%) ŠA%=§V$,"&o"):ýA%=0 ”= V$ žÝòSetLabel ¨Fê…:î…ê:çŸ=31:error$="Invalid label name":á‹error$=ö$+Ãž:Word$="":á ²:çWord$=".BYTE"„Word$=".WORD":Word$="EQU"+ÁWord$,2,1):á ¼!çWord$=".BLKB":Word$="EQUM":á ÆgçWord$=".ASCII"„Word$=".ASCIIZ":Item$=""""+ÁItem$,2,©Item$-2)+""""+À",0",ÂA$,1)="Z"):Word$="EQUB":á Ð%çWord$=".ALIGN":òALIGN:Word$="":á Ú/çWord$=".EVEN":op%=0:num%=(P%€1):Word$="":á äOçÀLabel$,1)=".":Label$=ÁLabel$,2)‹çÂLabel$,1)=":":Label$=ÀLabel$,©Label$-1) î7part$=" setting '"+Label$+"'":çLabel$="_BSS%":L%=P% ø;ç¤uc(ÀItem$,4))<>"EQU ":òVar_Assign(Label$,ÃP%):òword:á jçÂLabel$,1)="$":òVar_Assign(Label$,""""+¤value(ÁItem$,5))+"""")‹òVar_Assign(Label$,Ã¤value(ÁItem$,5))) Word$="":á ÝòPreLabel:êL$,V$ )L$=ÁA$,3,A%-2):A$=¤s(ÁA$,§A$," ")+1)) *5A%=§L$,"="):çA%:V$=ÁL$,A%+1):L$=ÀL$,A%-1)‹V$="-1" 4òVar_Assign(L$,V$):á >4Ý¤o0(A%,N%):êA$,B%,L%:çA%<0:B%=2:A%=A%€&7FFFFFFF H;õA$=Ã(A%€7)+A$:A%=A%8:L%=L%+3:ýL%>27:=ÂÃ(A%+B%)+A$,N%) RÝ¤uc(A$):êB$:çA$="":="" \5õB$=B$+½(—A$€((A$<"@")„&DF)):A$=ÁA$,2):ýA$="":=B$ f\Ýòword:A%=§Item$+" "," "):Label$=ÀItem$,A%-1):Word$=¤uc(Label$):Item$=¤s(ÁItem$,A%+1)):á pCÝòEQU:byte%=1:çWord$="EQUM":num%=¤value(Item$):òFill:Word$="":á zYnum%=0:size%=§"SBW D",ÂWord$,1))-1:size%=size%-(size%=0):byte%=size%:çbyte%>2:byte%=2 „2õ:òEQUItem:Item$=¤s(ÁItem$,§Item$+",",",")+1)) Ž>ýItem$=""„num%>252:çnum%>252:error$="Equate item too long" ˜Word$="":á ¢ÝòEQUItem:type%=¹ ¬'ê…:î…êtype%=type%+1:çtype%:÷…:…Ÿ,ö$ ¶6çtype%:cache%!num%=¤value(Item$):num%=num%+size%:á ÀqçÀItem$,1)="""":A%=§Item$,"""",2):çA%:çÁA$,A%+1,1)<>"+":A$=ÁItem$,2,A%-2):Item$=ÁItem$,A%+1)‹A$=¤value(Item$) Ê+$(cache%+num%)=A$:num%=num%+©A$:byte%=1 Ôá ÞYÝòALIGN:num%=(P%€1):byte%=1:çItem$<>"":num%=¤value(Item$):num%=((P%+num%)€(-num%))-P% èòFill:á ò=ÝòFill:çnum%>0:çnum%<257:ãA%=0¸num%-1:cache%?A%=0:í:op%=0 ü!çnum%<0:error$="Code overrun" á JÝòAssemLine:Item$="":Word$="":num%=0:op%=-1:error$="":part$="":byte%=1 JLine$=¾#in%:çLine$="":ç#in%>1:Ï#in%=#in%-2:çš#in%<>š#in%:Line$=¾#in% $GõA%=§Line$,½9):çA%:Line$=ÀLine$,A%-1)+Ä8-(A%-1)ƒ8," ")+ÁLine$,A%+1) .ýA%=0:çdebug%:ñLine$ 8:A%=§Line$+";",";"):Text$=ÀLine$,A%-1):Line$=ÁLine$,A%) BItem$=¤s(Text$):çItem$="":á L#òword:çÀWord$,1)="#":òControl:á V çif%:á `6çÀWord$,1)="."„ÂWord$,1)=":":òSetLabel:çWord$="":á jçÀWord$,3)="EQU":òEQU:á t#çWord$="ORG":P%=¤value(Item$):á ~çWord$="ALIGN":òALIGN:á ˆòAssem:á ’ ÝòControl œçWord$="#ENDIF":if%=if%2:á ¦çWord$="#ELSE":if%=if%‚1:á °'çWord$="#IF":òIf(¤value(Item$)=0):á ºçWord$="#IFDEF":òIfDef:á Ä'çWord$="#IFNDEF":òIfDef:if%=if%‚1:á Î çif%:á Ø çWord$="#INCLUDE":òInclude:á â"çWord$="#ERROR":error$=Item$:á ìIçWord$="#DEFINE":òword:Item$="EQU "+Item$+À"-1",Item$=""):òSetLabel:á öá ÝòIf(A%):if%=if%*2+(A%€1):á GÝòIfDef:çÂItem$,1)="$":V%=¤value("LEN("+Item$+")")‹V%=¤value(Item$) 0òIf(error$<>""€Ÿ=26):error$=Àerror$,Ÿ<>26):á ÝòInclude (-ê…:î…ê:error$="#include "+Item$+": "+ö$:á 2>çÀItem$,1)="<":P$=¤fn_path(run$)+"lib"+d$‹P$=¤fn_path(in$) <,F$=Item$:ç§"<""",ÀF$,1)):F$=ÁF$,2,©F$-2) Fin0%=¤openin(P$,F$) P?çin0%=0:çÀItem$,1)="<":P$=¤fn_path(in$):in0%=¤openin(P$,F$) Z%çin0%=0:P$="":in0%=¤openin(P$,F$) d3çin0%=0:error$="#include "+Item$+" not found":á n4file$(fnum%)=in$:ptr%(fnum%)=#in%:fnum%=fnum%+1 x%Ù#in%:in%=in0%:in0%=0:in$=P$+F$:á ‚Ý¤openin(P$,A$):êin0% ŒEê…:î…ê:ç(Ÿ€255)=&CC:A%=©¤fn_path(A$):A$=ÀA$,A%)+ÀÁA$,A%+1),10)‹=0 –&in0%=Ž(P$+¤f_name(A$)):çin0%:=in0% +A$=A$+s$+ext$:in0%=Ž(P$+A$):çin0%:=in0% ªA$=ÀA$,©A$-©ext$-1) ´*ãA%=1¸©A$:çÁA$,A%,1)="\":ÁA$,A%,1)="/" ¾2ç(—ÁA$,A%,1)€&FE)=46:ÁA$,A%,1)=½(—ÁA$,A%,1)‚1) ÈíA%:=Ž(P$+¤f_name(A$)) ÒÝ¤openout(A$):çA$="":=0 ÜA%=®(A$):çA%:=A% æ/ñ"Can't open '"A$"'":òCloseAll:òexit(192):à ð=0 ú&Ý¤fn_path(A$):êA%,B%:A%=§A$,":",2) )õB%=A%:A%=§A$,d$,A%+1):ýA%=0:=ÀA$,B%) VÝ¤f_name(A$):ços%>31:êA%,B%:õB%=A%:A%=§A$,"\",A%+1):ýA%=0:ç§A$,".",B%)=0:A$=A$+"." =A$ "Ýòf_settype(A$,A%):ços%>8:á ,ÿ"SetType "+A$+" "+Ã~A%:á 6Ýòf_stamp(A$):ços%>8:á @ÿ"Stamp "+A$:á JÝòf_setaddr(A$,L%,E%):á TOÝòAssemInit:cpu$="PDP11":asm$="AsmPDP":ftype%=&1C5:ext$="mac":ver$="1.20":á ^1ÝòAssemList:òlst(¤o0(P%,6)):çnum%:òAssemList1 h:çbyte%=2:òlst(Ä1+7*(3-((num%-1)€6)/2-4*(num%=0))," ")) rFçbyte%<>2:çnum%:ç((num%-1)€7)>6:òlst(""):ç(num%€7)=0:òlst(Ä6," ")) |*çbyte%<>2:òlst(Ä1+4*(7-(num%€7))," ")) †çText$<>"":òlst(Text$) AA%=(24-©ÀText$,24))€(Text$<>""):çA%:çLine$<>"":òlst(ÄA%," ")) šçLine$<>"":òlst(Line$) ¤òlst(""):á ®NÝòAssemList1:ãA%=0¸num%-1ˆ1-(byte%=2):çA%:ç(A%€7)=0:òlst(""):òlst(Ä6," ")) ¸Hçbyte%=2:òlst(" "+¤o0(cache%!A%€&FFFF,6))‹òlst(" "+¤o0(cache%?A%,3)) Âí:á ÌÝòAssem Ö7byte%=2:num%=2:çWord$="BSS":L%=P%:_BSS%=P%:num%=0:á à9A%=§"CLRCOMINCDECNEGADCSBCTSTRORROLASRASL",ÀWord$,3)) ê=çA%:ç(A%-1)ƒ3=0:op%=5*8*8*8+(A%3)*8*8+¤byte+¤dd(Item$):á ô$A%=§"MOVCMPBITBICBIS",ÀWord$,3)) þ=çA%:ç(A%-1)ƒ3=0:op%=((A%+2)3)*8*8*8*8+¤byte+¤sd(Item$):á )A%=§"BPLBMIBHIBLSBVCBVSBCCBCS",Word$) LçA%=0:A%=§"BLO BHISBLOS",Word$):ç(A%-1)ƒ4=0:A%=(7-A%4)*3+1:çA%=16:A%=10 =çA%:ç(A%-1)ƒ3=0:op%=(A%3)*256+1*8*8*8*8*8+¤disp(Item$):á &/A%=§½0+½0+½0+"BR BNEBEQBGEBLTBGTBLE",Word$) 01çA%:ç(A%-1)ƒ3=0:op%=(A%3)*256+¤disp(Item$):á :+çWord$="ADD":op%=6*8*8*8*8+¤sd(Item$):á D,çWord$="SUB":op%=14*8*8*8*8+¤sd(Item$):á N$A%=§"MUL DIV ASH ASHCXOR",Word$) XAçA%:ç(A%-1)ƒ4=0:op%=7*8*8*8*8+(A%4)*8*8*8+¤rd(Item$,A%<16):á b+çWord$="JSR":op%=4*8*8*8+¤rd(Item$,0):á l'çWord$="JMP":op%=1*8*8+¤dd(Item$):á v(çWord$="SWAB":op%=3*8*8+¤dd(Item$):á €/çWord$="SXT":op%=6*8*8*8+7*8*8+¤dd(Item$):á ŠMçWord$="RTS":A%=¤r(Item$):op%=2*8*8+A%:error$=À"Missing register",A%<0):á ”)çWord$="CSM":op%=7*8*8*8+¤dd(Item$):á ž-çWord$="EMT":op%=68*8*8*8+¤value(Item$):á ¨4çWord$="TRAP":op%=68*8*8*8+4*8*8+¤value(Item$):á ²3çWord$="MARK":op%=6*8*8*8+4*8*8+¤value(Item$):á ¼.çWord$="SPL":op%=2*8*8+3*8+¤value(Item$):á Æ%A%=§"MTPSMFPDMTPDMFPS",ÀWord$,4)) ÐEçA%:ç(A%-1)ƒ4=0:op%=1*8*8*8*8*8+6*8*8*8+(A%4+4)*8*8+¤dd(Item$):á ÚA%=§"MFPIMTPI",ÀWord$,4)) ä9çA%:ç(A%-1)ƒ4=0:op%=6*8*8*8+(A%4+5)*8*8+¤dd(Item$):á îXçWord$="SOB":A%=§Item$,","):op%=63*8*8*8+¤r(ÀItem$,A%-1))*8*8+¤disp6(ÁItem$,A%+1)):á ø6çÀWord$,2)="CL":op%=160+§"CV N N",ÁWord$,3,1)):á 6çÀWord$,2)="SE":op%=176+§"CV N N",ÁWord$,3,1)):á 9A%=§"HALT WAIT RTI BPT IOT RESETRTT MFPT ",Word$) çA%:ç(A%-1)ƒ5=0:op%=A%5:á çWord$="CCC":op%=175:á *çWord$="SCC":op%=191:á 4çWord$="NOP":op%=160:á >$çWord$="ADR"„Word$="ADDR":òADR:á H$num%=0:error$="Unknown opcode":á R2Ý¤byte:ç©Word$=4:ç(ÁWord$,4,1)="B"):=8*8*8*8*8 \)ç©Word$<>3:error$="Bad opcode suffix" f=0 p3ÝòADR:çab%:Word$="MOV":Item$="#"+Item$:òAssem:á z*Line0$=Line$:Text0$=Text$:Item0$=Item$ „FA%=§Item0$,","):Word$="MOV":Item$="PC"+ÁItem0$,A%):òAssem:op0%=op% ŽQA%=§Item0$,","):Word$="ADD":Item$="#"+ÀItem0$,A%-1)+"-$-2"+ÁItem0$,A%):òAssem ˜Hnum%=num%+2:cache%!4=cache%!2:cache%?3=op%256:cache%?2=op%:op%=op0% ¢,Line$=Line0$:Text$=Text0$:Item$=Item0$:á ¬#Ý¤mr(A$):êA%,m%,r%,v%:A$=¤s(A$) ¶ çÀA$,1)="(":çÂA$,1)=")":m%=1 ÀçÀA$,1)="@":m%=1:A$=ÁA$,2) Ê$ç©A$=2:r%=¤r(A$):çr%>-1:=m%*8+r% ÔFçÀA$,1)="#":v%=¤value(ÁA$,2))€&FFFF:num%=num%+2:=(m%+2)*8+7+256*v% Þ%çÂA$,1)="+":m%=m%+2:A$=ÀA$,©A$-1) è"çÀA$,2)="-(":m%=m%+4:A$=ÁA$,2) ò9A%=§A$,"("):çA%:çÂA$,1)<>")":error$="Missing ')'":=-1 ü,çA%:r%=¤r(ÁA$,A%+1,2)):A$=ÀA$,A%-1)‹r%=7 3çA$<>"":v%=¤value(A$)€&FFFF:m%=m%+6:num%=num%+2 %çr%=7:çm%>5:v%=(v%-P%-num%)€&FFFF #çr%<0:error$="Missing register" $=m%*8+r%+256*v% .&Ý¤r(A$):êA%:A$=¤uc(A$):ç©A$<>2:=-1 8çA$="PC":=7 BçA$="SP":=6 LçÀA$,1)<>"R":=-1 VçÂA$,1)<"0"„ÂA$,1)>"7":=-1 `=»ÂA$,1) jEÝ¤sd(A$):êA%,src%,dst%,n%:A%=§A$,","):çA%=0:error$="Missing ,":=0 t=part$=" in source":n%=num%:src%=¤mr(ÀA$,A%-1)):çsrc%<0:=0 ~-çn%<>num%:cache%!n%=src%256:src%=src%€63 ˆ&çerror$="":part$=" in destination" ’*n%=num%:dst%=¤mr(ÁA$,A%+1)):çdst%<0:=0 œ-çn%<>num%:cache%!n%=dst%256:dst%=dst%€63 ¦=64*src%+dst% °NÝ¤rd(A$,f%):êA%,r%,dst%,n%:n%=num%:A%=§A$,","):çA%=0:error$="Missing ,":=0 º1çf%:r%=¤r(¤s(ÁA$,A%+1)))‹r%=¤r(¤s(ÀA$,A%-1))) Ä&çr%<0:error$="Missing register":=0 Î/çf%:dst%=¤mr(ÀA$,A%-1))‹dst%=¤mr(ÁA$,A%+1)) Ø-çn%<>num%:cache%!n%=dst%256:dst%=dst%€63 â=64*r%+dst% ìWÝ¤dd(A$):êA%,dst%,n%:n%=num%:dst%=¤mr(A$):çn%<>num%:cache%!n%=dst%256:dst%=dst%€63 ö(ç§A$,","):error$="Too many operands" =dst% ]Ý¤disp(A$):A%=(¤value(A$)-P%-2)/2:çA%<-128„A%>127:çerror$="":error$="Branch out of range" =A%€&FF \Ý¤disp6(A$):A%=(¤value(A$)-P%-2)/2:çA%<-32„A%>31:çerror$="":error$="Branch out of range" (=A%€&3F 2:Ý¤OS_GetEnv:êA$,A%,X%,Y%:X%=1:os%=((º&FFF4)€&FF00)256 31:ç>&FFFFF:ÞX%ê256:È™"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ PCA%=&600-&7B00*(>&8000)-&3F00*(>&C000):ç!(-&100)=@%:A%=-&300 Z;ç?(¸P-3)=0:A%=&100:ç“<&FFFF:A%=-&300:ç!(“+512)=@%:A%=“ dcA$=$A%:ç=&8F00:run$=A$:È™16¸A$,,A%:È™72,"",A%:A$=ÁA$,1+§A$+" "," ",1+§A$," "))):ç©A$=0:A$=run$ nSãY%=-1¸0:A$=" "+A$:õA$=ÁA$,2):ý—A$<>32:ç—A$=34:A%=§A$,"""",2)+1‹A%=§A$+" "," ") x9çY%:run$=ÁA$,1-(—A$=34),A%-1+2*(—A$=34)):A$=ÁA$,A%+1) ‚ í:=A$ Œ!Ýòos(A$):ç—A$=42:ÿA$‹ç©A$:×A$ –á FÝòexit(A%):ÿ"FX1,"+Ã(A%€255):quit$=quit$:A$=quit$:quit$="":òos(A$) ªç>&FFFFF:È˜A%‹à ´á ¾cÝ¤cl(l$,n%):çl$="":A$=¤s(A$):ç—A$=34:A%=§A$+" "" ",""" ",2):l$=ÁA$,2,A%-2):A$=¤s(ÁA$,A%+1)):=l$ È<çl$="":A%=§A$+" "," "):l$=ÀA$,A%-1):A$=¤s(ÁA$,A%+1)):=l$ ÒKçn%=0:çl$<>"":A%=§A$,l$):çA%:A$=¤s(ÀA$,A%-1)+ÁA$,§A$," ",A%)+1))+" ":=¹ Üçn%=0:çl$<>"":=£ æ%A%=§À" ",—l$=32)+A$,l$):çA%=0:="" ð'A$=ÀA$,A%-1)+¤s(ÁA$,§A$," ",A%)+1)) úCç—l$=32:l$=ÁA$,A%):A$=ÀA$,A%-1):=Ál$,1-(—l$=34),©l$+2*(—l$=34)) Pç—ÁA$,A%,1)<>34:l$=ÁA$,A%,§A$+" "," ",A%)-A%):A$=ÀA$,A%-1)+ÁA$,A%+©l$+1):=l$ Hl$=ÁA$,A%+1,§A$+" ",""" ",A%+1)-A%-1):A$=ÀA$,A%-1)+ÁA$,A%+©l$+3):=l$ /Ý¤s(A$):çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " "+çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " ,=A$ 66ÝòVar_Assign(N$,V$):Var_%=Var_%:A%=2*(?(¸P-3)>0)-1 @DçVar_%=0:êB%:B%=¸P-4:õ:B%=B%-1:ýB%?A%=13€B%?(?B%+A%)=13:Var_%=B% J1ç©N$>?Var_%-12:error$="Expression too long":á T-$(Var_%+4+A%)=N$+"="+½&A0+"(V$):"+½&E1:ç1 ^Pá:!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ÿ