L2d: 2:L"5,BL,A$AL:(L4.55*YL"5"(/Nl,A,%1 ((Nl,A,%HY,A($A($A g#zShg{] K YL!5Y\MLYL"5LLIMC BSKP ZSC^6/ JMP I RERR-A ,B %=1 ADRLCLC# JMP RETUR-1&4#ERDUM, LDX TKS16-A,BB& JMP I 9EROM-A,BE4HBKE[H% ASSEMBLER OUTPUT ROUTINElK% CONTROLNUMBER IS IN X-REGo[{lPILE, COPY SL DAo STA V9-A ,B{ COPY SX DA JPL I RPU4P-A ,B COPY SA DX ADD CHCM-A,B˫ STA CHCM-A,Bث LDX I PER,X JMP ,X PER, PER+1 OUT %FEED  AC1 %LF AC1 %LR'  AC1 %LC5 AC9 %AFFC' AC9 %ARFQ5 AC9 %AFR_C AC9 %ARRmQ AC1 %SFL{_ AC1 %AFLm AC1 %SRL{ AC1 %COMN AC2 %MAIN AC2 %LIBR AC2 %ENTRϬ OUT %BEGݬ AC2 %REF AC8 %END OUT 1 %INHBALL RS  OUT %EOF  OUT %DUMMY - LNF- AC1 %RT;  AC3 %ASFI- AC9 %ADSW; AC1 %PARAMdI AC1 %9GOgWsdAC, COPY SL DXg STX V17-A ,Bs JPL I PCH3-A ,B COPY SA DL ADD CHCM-A,B STA CHCM-A,Bí COPY SL DAѭ JMP I V17-A ,BԭAC2, LDA ADR1-A ,B AND MSK89 JPL AC;*LBYTACAC1, LDA ADR2-A ,B JPL AC$ JMP OUT'?$)AC3, LDA ADR1-A,B % ASF - AGS.J' JPL ACX? LDA ADR2-A,BcJ JPL ACpX LDA V18-A,B|c JMP AC1 1p|AC9, LDA ADR1-A,B JMP AC1-1AC8, LDA CHCM-A,B COPY CM2 SA DAƮ JPL I PCH3-A ,BѮ JMP OUTԮ׮OUT, JMP I V9-A ,B STZ 8OBJE-A ,B:SNL>= JMP UNCHG2- JMP UNCHG2-A ,B5@MSK89, 37777 % FACTOR TO REMOVE SYMBOL FLAG BITS8>5)FILLA8M>)WRITE RETUR KTR11VA )WRITE PILEbM)WRITE AC AC1 OUTtV)KILL PER AC AC2 AC8 AC9 OUTb)KILL RETUR KTR1t)WRITE PUTL PLUSS PCH8 )KILL PLUSSSLSH=*"MACD¯! LDD SYMB-A,B; STF I (11FLGƯ"ɯׯ JPL I SPCE-A,B BSKP ZRO UDSF DT JMP I (ERRX STA CASR-A ,B  STA CLC-A ,B LDA OUTF-A,B'  JAZ SLSH16 BSET ZRO 170 DTD' STT FLAG-A ,BQ6 LDX (SLSH1_D STX V18-A ,BmQ LDX CLC-A ,Bz_ JMP I (KTR11}mzSLSH1, LDA ONLF-A ,B} JAZ SLSH2D+2"MAC LDA I CLC-A ,B"MACD JPL I *1; MCDSL˰"MACM+MACF+MACDհ% SLASH ONLINE LDX CLC-A,B JPL I (DGET" STZ PNCHF-A ,B+SLSH2D,JPL I LAST-A ,B % DISASSEMBLER' JMP NRDS-A ,B5 JMP NRD2-A ,B8'A5 )WRITE SLSHD8GAJDoGD % 22/3-68 ROUTINE TEKSTUT TO PRINT TEXT PACKED BY TEKSTRJ< % CALLED WITH ADDRESS OF FIRST WORD IN X-REGISTERo5TEKSTUT,MIN ERRCO-A,B; COPY SA DA % COUNT ERRORSʱ+ STZ PNCHF-A ,B % SAFETY FIRSTֱ COPY SL DA COPY SX DD STD LOC0-A ,B LDX (TT01;EXIT  JPL TEXXT-1 MIN ERMF-A ,B)  LDA CLC-A ,B7 JPL I PRO-A ,BC) LDX (TT02P7 JPL TEXXT-1^C LDD LOC0-A ,BjP COPY SA DLv^ COPY SD DXj MIN ERMF-A ,BvTEXXT, SWAP SL DT LDA 0 ,X SHA ROT 10 JPL TEST5Ų JPL I PRPUP-A ,BѲ LDA 0 ,Xݲ JPL TEST5 JPL I PRPUP-A ,B RINC DXc, JMP T  JMP TEXXT 1 TEST5, AND (177( AAA - ##'3 JAZ * 3>( AAA ##'G3 EXITU> STZ ERMF-A ,BaG COPY ST DPdUja)FILLmdwj)WRITE TEKSTUTzm}wz}DASCI9, LDA LAST-A,B; STA ASCIF-A,B; LDA (ADUMP; STA LAST-A,B; JMP *2ʳ=PRNT, STZ ASCIF-A,B; STZ PNCHF-A,B; JPL I CARP-A,B; JMP ENT1ͳ;PNCH, STZ ASCIF-A,B; MIN PNCHF-A,B; JPL TPFD; LDA CRLF-A,B JPL I PCH2-A ,B ENT1, LDD LBD-A ,B"MAC  JPL DUMPR)"MACM+MACF+MACD7 STA V17-A ,BF) RADD CM1 SD DAT7 STA V18-A ,BbF LDX V17-A ,BnT JPL I (DGET|b STX V6-A ,Bn8 STX V6+1-A ,B %SET PHYSICAL CORE-ADDRESS| LDA V17-A ,B JPL DUMPR+1 JMP *+7ϴ MIN V17-A ,Bݴ LDX V17-A ,B JPL I (DGETT1ENT2D, JPL I LAST-A ,B % DISASSEMB+ENT2D, JPL I LAST-A ,B % DISASSEMBLER( LDA CRLF-A ,B8 JPL I PCH2-A ,BF( MIN V18-A ,BR8 JMP *-7VF"aR SAA ##@pV JPL I PRPUP-A ,B~a LDA PNCHF-A ,Bp JAZ *2~LAB1, JPL TPFD* LDA ASCIF-A,B; JAZ *2; STA LAST-A,B JMP UNCHG2-A ,B嵽C % DUMPR , ROUTINE TO DUMP , LBD IN A - UBD IN D-REGISTRERDUMPR, STD V6-A ,B COPY SL DTDE  STT V7-A ,B JPL I PRO-A ,B&  SAA ##/5 JPL I PRPUP-A ,B8&F5RET1, LDA I V6-A ,B_8+RET2D, JPL I LAST-A ,B % DISASSEMBLERmF LDA CRLF-A ,B|_ JPL I PCH2-A ,Bm MIN V6-A ,B|4 COPY SA DA % ADDRESS 177777 !!!!! LDA V6-A ,B SUB V6 1-A ,B˶ RDCR DAֶ JAN RET1 JMP I V7-A ,BTPFD, COPY SL DT SAX -1  SAX -177 COPY DA$  JPL I PRPUP-A ,B/ JNC *-1;$ COPY ST DP>/H;% ASCII - DUMPj>>ADUMP, COPY SL DD; STD V1-A,B; SHA ZIN SHR 10; JPL I PRPUP-A,BH, LDA V1-A,B; AND (177; JPL I PRPUP-A,Bj LDD V1-A,B; COPY SD DP)FILL)WRITE PRNT PNCH ENT1 LAB1)WRITE DUMPR RET1 TPFD÷η)KILL ENT1 RET1ѷԷ׷ BPUN1, SAA 4 STA CMDF-A ,B STZ V18-A ,BAP JMP NRD1-A ,B UTSP, JPL I SLST-A ,B;0 JMP I (12ERR % SYMBOL NOT FOUND!I  LDX V18-A ,BO;"N10MC\I STX V9-A ,B`O"l\ JXZ PSTUs`"-N10MCl- AAT -33 % BOOTSTRAP SIZEs"N10MC JMP CERNQ"(F:OL)MAC:BPUNSTU1PSTU, MIN V18ޥޥެެ. STT I LIM1 1 vvwubb~bA#bHh5beb^[iH\G!0eHX5(fnb wN`xpXU8SUUAXTPHQ@N.26X-X-o? XN h@H"@Xb pbbaM(2<FP`PNCHF-A ,BqX JPL TPFDf LDA CRLF-A ,Bq JPL I PCH2-A ,B LDT V8-A ,B LDD LIM1 JPL DUMPR1 LDA V8-A ,B๳9 JPL I PRO-A ,B % PRPU MUST NOT REMOVE BIT 7 SAA ##! JPL I PRPUP-A ,BAP UTSP1, LDA LBD-A ,B JPL PCH16%  COPY SA DX2 LDD LBD-A ,B@% RADD CM1 SD DAP2 RADD CM2 CLD SA DA\@ JPL PCH16fP HVhVOSS55HL5_5 5 5;P:5 H63^5P/X,@+ŀp, 5 !5$5&5.5/5?5@5 \5^5:5PX@Ā BPUNZύ(: JPL I (DGETۺ STA V18-A,B LDD PB-A ,B CL=\' P=\' T=\' A=\' D=\' X=\' L=\' B=\'ST=\'OC=\'AD=\' CI=\'F.ACC=\'CPTADXLBSORI 7ACE{nPCH16% CURLREMOVED 12-6-73. JMP C"ɻ JTPFDػ JMP G2-A ,Bۻ LI TLS TLSENX {Xb% g,gY{@XKHKPJI fXGHGPCI eXBHBPںxN ƨVaa֨a a Faa K֨a o)/XQ/ Q7XQ&XQ2X X X L.bb,..M.Q).2X2X00QX/Ѩ'I[QY\7 [X$Ũ%X"¨HYҸʨQYҸŨ ?QYҸ YӻШQYҸ42X X",oYӻYڻXY,Y9LILY{Z AYӻШYhAYӻXPL+PN7=LIL T. I޳ IX=YQIYӻYL'==L IIIXIѫXIY{ZIXIk: Z #%h2NzX)AX'ΨH% ΫA e InIH H IIIYI e Lx8$AQLp8 $AQ YIQe Q Q׫gO iEف ك0AQEك e I AQEIiIYQXXXX X ~}XHiOIqsr@+Xغ)nL.H}h (ݻѲXL  רY{Xr$FORMAT ERR\'$UNDEF SYMBL\'$TABL FULL\'$L LIM>U LIM\'<\'$\'$ADR IN TR\'$ILL P\'$STOP\'$PRIV INST\'$ILL INSTR\'$ILL JMP\'$ILL LOAD\'$ILL STORE\'$BLOCKED STORE\'$ILL MCALL\'$ILL IOT OR DEVNO\'/\' \'$FATAL ERR\'ަ޺A@*__ΥޥAUA˄&APOj BE(KYݶY?()ٻ/KY1(I.K X (I4I/O-ERROR '3% )eAI )% )eAOAO)!YݶAAYYYY0Iݳ8OYI/, LY;(+/YYI/L ,H!YLI YYQ>Y<(YOAYYY0O:UIl)XfQNHJY/Il\)٬R0 aHP/)ssLAII YIi G:G)ٻ&uHZHH H)ٻH NF :IܳJYD%IH ͥIQbY" Q^ YϨyQ^q HioImYF۲FY'IHY MYݶ !K "Y"L}aiIŨmŨ ͨ3ը.i..i. IQ^_a  Q.v~Y" Y:8Y"tQQ7# F!AI I 'I )YT~Q)YY_Y IQwIY_ bI QSYbp`oIbYY &IY"xAZ! )!I NAA Y"DY Y"<)!AIi2 Iݲ IݲIݲK ܨ Y" QvQ7L 1RYݶYY"AY!!YݶYY"A YݶYY"FY Y@ Yݶ YY:(YݶOY"YCFY IݳI Y"u Y|jY"wY2()ٻ/K OHJ߻Oo )ͽ0͹0 IlzYE(|I Q6IڳIըY OYX,X+X*YĩO ܻ A۩O۩OFo?ph Q(/IlN i}J}ΥAU`A[ ܩM^II)ن7u}9!I}Iك ׫ 7=I۲~ I6) Q Qv~M,-nFݲ# ׻Fݲ#a ׻I1Cz8D=b@.GGGGGGGGCCX9?oIݳKFY߶dY. SSP=7D AmY Y-YmI IŨE K IKIK GKB g׻Fٲ ' ׻Fٲ 'a׸2AA''aרIٸ'IAAIڨ AK)ٻ !ޫn)!Y YD( YD(% QIݳI IY=%IIIA)I~O&T($YA% I.Iͮ<I  IY3(QY% I$.I5xY4AQI EAQY QKNF K Q̆YL̅ K 1fYY"Y5()/KYݶ1Y".eQ7#'YY/ !)Y"Q Q79Iݲ)!) YY6()/Y9 YwY"YIouYIݳ\IQ50.Y7(I.YQQIY/!)I߳Ia$ )ٻ& Iu}XuIUGY)ٻ"YL\ I  }~i , GwAOYYH2 )Y"Iu}%IQQ7L7/!I+G Y"IQQyYݶ ͵Ob! Ll L oI$bY8(( YQ>( Q>(/ <0L8AF<Kͽ<4K bpJ,! pF,!TIͽI (\7L͍Lp3ͥLqQpv~.T͏A)%bgY"Y"Yz Ll T\Li>IbL?YI ,!A(YB%I IY=B YT>EI A&TYY9Qtͮ\IYI I%I Lu Q!AAqn)͵ )YI AOTYYAAQTYYAAI Libe Y9(YL.YHpnOXlbgkQ;hIhIg I?^X_]I Lu pYnIiHT͵R)XNLTKI5LS5H@"X:TQ\I b>b&bbbbgY" @gHX,uXTͱl@X Q!!*QNVQ^fbfI II I ra!Y0}GIكp0G)J !!g)ۆ!xp G) ?a!iوGوGa!iوHوH,III= M Ie IiI  bK.CIlIuIݲ bL.)ͽ0͹0 I1II  IlI Y=%e }Hoa ^*$$$$*&+**$gla eIpI IIIIIO?4  Iݲ~X.Y,IKIKAmey!)X AIX))lOA&LGLGp ٲ'brU;I H7 'AI ) @GII O!f/GKI AmIi̅fEGra!xGIpG)J M&7Y9A(IiMP"AI Q($I!GIo)̍FL. I/uOaHHJ&!eIiAMIYSI F YGI KX{I X{S- MAC -'HLkKi11u A!iϳAOIQײ&ҨAMIQ׳QѸ$IQ IQQQӨQ91 uQ).Qª{fbYyQĀб nI5 bb e I  #Aa!D)JgG'F  , c A7gYQI YIYNQY"oAI }4SYMBBRF\COREIiQ$QѸ ҸQ ӸQ fYrfQӸQҸZ5Zc 5bIiO&IݳI QYͺIY/Oͨ ܻ Y"'IY)"9I)7L<<4'}iʳgʩOOQ7YOYYW OX(I-GII XI»-GI̻OS SOFTWARE PROTECTED AREA 'TABLE AREA 'vOAI Y }iʲ ,=GYLI Y@GOgOIݳI i̅ YTJl*%!&Tɦ.AA O(*+,-5ZFO;X@H@k(OBPX>%OE Z2 P4NekIb*P'J(J" JҸڸAZL ZNLVLOHFHk'.GOZ V=.bbN{@J6&Z/bj=*boo)ͽ0͹0H3ͽ0}RbyZٶV sV ORbXW@JILL. BREAKPOINT 'BREAKPOINT NOT RESTORED 'AOOI0G)J-GM IAnf́ M0AGIE'd   ;iu K )!٪YE(N1IY QYL A e FEA181UwA N191Iҳ B 191I,͸3NAͨ#,nI.811I 9191I 9YͶ1IAY)!e F Ҳʲ; 5A IFӲb6@K G0G*Gg1X }-}1dGͽ7o18D//911f-a YIa Q4ʑ 1i؇nI L9G" ف}ف}ف}ف~nL. #,7nLق .0qكuaك*IڻGO0G.GO0G=EG+Q-GI Aͽ/M0G}0GYWyO~b O5/EWuAbbuy}nbu}n)p 5bnى.z`p.??H& OI O%1eݶ ن GY9jgoNqyp ؂ݸGEوGEn_a1iمbكAݽy2CQW\قnA"لW كEQ52 {>M;pXC8ق75؃ك;19JX(ODISASSEMBLER ERROR 'كݽLK>e y؁>QEf0GEكoNݼلbɴ:ق EقOIR؁yكܨKyكVdك;كCҨوpXX9~H ͯ[w1ZbWZ#O؄لyyقfقpل!ܽݽݽ Gل`IݱQL 5lL5 Aݶbbr@̀@̀RIRADDRSUBSWAPCOPYNDREXOROBLDADCBABOWAITBSTATCTEKPSTSAAANIIOEQG0SSCMZ,JXLDSHJAJPMPNCFMDVPIRTONDNPR-*NLKA12RCLRRDEXdd:dNd/d&&dq:N/:1:9Q tNR`hh:hNh/ll:lNl//rx(x6d~ Q6hd~  68 N pqJYN h 0Nq6q$(,0 L9>9ӄP]P`PXPT4<48@@DD0{@czvwI I OQwH 7Ii!O e!I INI%ը+upAFQV#YX I B Ix a* - u!IQQ>U IݲYRYE 60AEك0 AAbe!ͨe!YLṗ Q7qPLQQQY)ͫ IrQI I Qи)g*, w~Y)*Y! YY/ !Y"Qv\>7 L͍LpͥQͪ?FYK ܻ &HQY  AK W ܳMAQY I AFi9M c AIiH1 I AKc ܩMY" Yw u FX(I.IQI aF ;LibFJI Y,IAM 1d AALp Ed AKYI Lp-=LxAY=oiI/\YI KY,wYX(MISSING PARAMETER 'MACRO ERROR NO 'wLxLpSa=GJ=In$G05'YI }i ,u}'YOwP/Lp,5Lx5Q7L AIiͮiQYI }i Lu}L5͍ YY--OY-Y--OY---ggIbIIIH Ii/ $߳  iX (Oe  Y a AmAe ͸ agYQ|CHECKSUM ERROR 'K O  Y"#u!!iY IŸ1I OI˸ 1ĨQ ͮ An͍qb L % US JMP STR2 JMP STRT % NOT FOUND1$ LDA 9LSMR9+2-A ,B; RADD SA DXL/ LDA TMP; STA 2 ,X % ,C OK\1 LDA TMP; STA SEGMNjL JMP UNCHG2-A ,Bq\TMP, 0xjSMBCL, 0q+ 5403 % ,CxNUM, 0BOOLN, 0KNILB, 0NUMIN, COPY SL DA; STA KNILB+ STZ BOOLN; STZ NUM; JPL I REA1P-A ,B) JPL DECIT; AAA -2; AAA -70; JAP NO VALU1 JPL DECIT; AAA 2; AA