File PFMSY1.LD

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

()+/n3.7@?  GN K((@&&U-$U&&UBeU4lU&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U
"F 6 N$6%FQ%@GEb0o .P(jE6EO,E aLoEd,xPJ K0O0&,{FNDMbl2{: lD
20Hp yK(xK(Q0zI]AyY4TMAR0 X Ew?SjxSvy/[ySvz/DDDzuz?yFRzSv +D+G/+$+t+C-G-0 1+'-L.K& 2l/B))t+)')&B)| J4C{ 4K2 22*22*22*22*22*22*2 X HH4jjrj0@1h$hktHT2IHkKI&/BfhrffGf&Bf |I nu{nKl ll*ll*l :mP}UuU}_u.} u&}'T}BuAN2 AI.}/v}OK~a}fvf}oOk}v7}8e}Sv}/n `! ?}@w'}_\r}www}`|}.wH}I0v}dw~?@~t@@`PP Px @ l xp | 0@ x zP | @` 33S 0 @&!hPZ)fN~Buv~PjS~]u^~_kRX~yuF~/:m~v.~""b~/v~O= g~Kv~~Xrk~fvf~otZ`~vO~?Ce~v7~*+j~8v~_Eo~Sv~/a{d~nvo~o|ci~ wW~?K~~%w?~33s~@w'~_Nx~\w~/i}~www~lq~w`~O Tv~.wH~;<{~Iw0~oW$p~dw~?r
ut:Mtt/.GthO""B(t\/L6tP= GDtDOK~AQt8oXrK_t,ffFmt ?tZ@ztoOKt CEt}/7@#tq_*+J1te8E?tY/EOLtMOSJZtAa{Dht5noNut)O|cIuo WSuK^u?%?X,uy_33S:um@']Gua/NXUuU_\RbuIi]pu=/wwW~u1OlQ u&`\u TV'uO.HQ4uo;<[BuvI0VPuj?W$P]u^_d[kuRr
UyuF/`v:_tjv.hd"v"/(\o/vO6Pi=v DDdKv~Q8nXvr?_,ifvfom ctvZznvO? hvC_}bv7#qm*v+/1eg8v_?YbEvLMlSv/ZAgav{Oh5anvoou)l|vcv wW?qwKo{%w?,yu3w3?:mp@w'_GazNwUUu\w/bIiw_p=zwww~1twl &w`Oy wTo't.wH4~;w<?BvxIw0oPjsWw$]^}dw?kRxrw
_yFrF:P WCt A.p#RSVO FLDA KQ ATX 7 FLDA Q-0003,7 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0104,0 #236, JA .+0026 5061 1040 5411 6554 6530 5447 3205 2217 4003 2217 2323 4025 2047 5463 3054 1164 5465 3054 1166 5100 LDX 0105,0 #34, FLDA KQ FADD #LIT+0003 FSTA KQ FSUB #DOTMP+0011 JLE #G0006 LDX 0106,0 FLDA IMP FSUB IQ JGE #40 LDX 0107,0 #37, FLDA IMP FADD #LIT+0003 FSTA IST LDX 0110,0 #32, FLDA IST FSTA LQ FLDA IQ FSTA #DOTMP+0014 #G0007, LDX 0111,0 FLDA LQ FSTA IMQ LDX 0112,0 FLDA LQ FADD #LIT+0003 ATX 7 FLDA LQ ATX 6 FLDA Q-0003,7 FSUB Q-0003,6 JEQ #35 LDX 0113,0 FLDA LQ FADD #LIT+0003 ATX 7 FLDA LQ ATX 6 FLDA Q-0003,7 FSUB Q-0003,6 JGT #38 LDX 0114,0 FLDA LQ ATX 7 FLDA Q-0003,7 FSUB #LIT+0116 EXTERN #GE JSA #GE FSTA #TMP+0000 FLDA LQ FADD #LIT+0003 ATX 6 FLDA Q-0003,6 FSUB #LIT+0116 EXTERN #LT JSA #LT FMUL #TMP+0000 JNE #336 LDX 0115,0 JA #35 LDX 0116,0 #336, FLDA IDO FADD #LIT+0003 FSTA IDO LDX 0117,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0011 JA #237+2 FLDA LQ EXTERN #RSVO TRAP3 #RSVO FLDA IDO EXTERN #RSVO TRAP3 #RSVO FLDA LQ ATX 7 FLDA Q-0003,7 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0120,0 #237, JA .+0027 5061 1040 5411 6554 6530 5447 3205 2217 4003 2217 2323 4004 1727 1647 5463 3054 1164 5465 3054 1166 5100 LDX 0121,0 FLDA%A B@INASG"0MN@MN@@I03I13MX@MX@@A06A16 @DM"LGLGp@XX3ICO@SICODSICOHSQDSNCSTNMDO1FXFX"IN%
AP@E@5S@ED0X  PCE@EI G0N@@X@@NLADN"PD G Gp@NS0@@RPL E@N@G@L@GLM
`ARPWPESRPLGSNCSER EC ECL@IA@O @CDCBCCQCLCCCED X 2E EEEIERHR@@HRGTPTNI4NB4PUE@RPYCLC@ C 0 ESD@
TC TC@L0CL@@DS@20TN@HEF0APC0L@PDp EXTERN LINE EXTERN LINEV EXTERN MOD EXTERN QTFE EXTERN TRANS JA #ST #XR, ORG .+10 TEXT +MAIN + #RET, SETX #XR SETB #BASE JA .+3 #BASE, ORG .+6 ORG #BASE+30 FNOP JA #RET FNOP #GOBAK, 0;0 AB, ORG .+0003 AD, ORG .+0003 ADCBA, ORG .+0003 BC, ORG .+0003 BR, ORG .+0003 CASE, ORG .+0003 CLAC, ORG .+0003 CLEAR, ORG .+0003 CLUB, ORG .+0003 DELTAA, ORG .+0003 DELTAB, ORG .+0003 DELTAC, ORG .+0003 DELTAD, ORG .+0003 DEPTH, ORG .+0003 DYC, ORG .+0003 DYE, ORG .+0003 ENDA, ORG .+0003 HV, ORG .+0003 IA, ORG .+0003 IALF, ORG .+0003 IAM, ORG .+0003 IBA, ORG .+0003 IBL, ORG .+0003 IC, ORG .+0003 ICASE, ORG .+0003 ICHECK, ORG .+0003 ICUR, ORG .+0003 ID, ORG .+0003 IDEA, ORG .+0003 IDER, ORG .+0003 IDO, ORG .+0003 I.+0017 5061 1040 5447 1617 1605 2520 5047 5411 6354 4751 7547 5411 6551 LDX 0142,0 FLDA #LIT+0003 FSTA ICASE LDX 0143,0 FLDA #LIT+0003 ATX 7 FLDA NONEUP-0003,7 FMUL #LIT+0011 FSUB #LIT+0006 FSTA INB LDX 0144,0 FLDA #LIT+0003 FSTA IC #G0011, LDX 0145,0 FLDA IC FSTA INC LDX 0146,0 FLDA INB FSUB #LIT+0074 JLE #177 LDX 0147,0 #176, FLDA INB FSUB #LIT+0074 FSTA INB FLDA IC FADD #LIT+0003 FSTA IC FSUB #LIT+0060 JLE #G0011 LDX 0150,0 #177, FLDA INC FSTA NBA LDX 0151,0 FLDA INB FSTA ISTART LDX 0152,0 FLDA #LIT+0006 FSTA JY FLDA IIN FSTA #DOTMP+0022 #G0012, LDX 0153,0 FLDA JY ATX 7 FLDA #LIT+0003 ATX 6 FLDA NONEUP-0003,7 FSUB NONEUP-0003,6 FADD #LIT+0003 FSTA NPON LDX 0154,0 FLDA NPON FSUB NMAX JLE #601 LDX 0155,0 FLDA JY FSUB #LIT+0003 ATX 7 FLDA NONEUP-0003,7 FSTA UPTO LDX 0156,0 FLDA #LIT+0003 ATX 7 FLDA UPTO FSUB NONEUP-0003,7 FADD #LIT+0003 EXTERN #FIX JSA #FIX FSTA IEND LDX 0157,0 FLDA UPTO FMUL #LIT+0011 FSUB #LIT+0006 EXTERN #FIX JSA #FIX FSTA INBB LDX 0160,0 FLDA IEND FSTA IENDB LDX 0161,0 FLDA JY FSUB #LIT+0003 FSTA LULL LDX 0162,0 FLDA LULL FSUB #LIT+0003 FSTA NOSET LDX 0163,0 #945, JA .+0032 5061 1040 5447 1617 2305 2475 4754 1164 5461 6030 5447 1103 0123 0575 4754 1164 5461 6030 5447 1425 1414 7547 5411 6451 LDX 0164,0 JA #602 LDX 0165,0 #601, FLDA JY FADD #LIT+0003 FSTA JY FSUB #DOTMP+0022 JLE #G0012 LDX 0166,0 #602, FLDA #LIT+0006 FSTA IM FLDA IDO FSTA #DOTMP+0025 #G0013, LDX 0167,0 FLDA IM ATX 7 FLDA #LIT+0003 ATX 6 FLDA NONEDO-0003,7 FSUB NONEUP-0003,6 FADD #LIT+0003 FSTA NONEDO-0003,7 LDX 0170,0 #614, FLDA IM ATX 7 FLDA #LIT+0003 ATX 6 FLDA NONEUP-0003,7 FSUB NONEUP-0003,6 FADD #LIT+0003 FSTA NONEUP-0003,7 FLDA IM FADD #LIT+0003 FSTA IM FSUB #DOTMP+0025 JLE #G0013 LDX 0171,0 FLDA IIN ATX 7 FLDA #LIT+0003 ATX 6 FLDA NONEUP-0003,7 FSUB NONEUP-0003,6 FADD #LIT+0003 FSTA NONEUP-0003,7 LDX 0172,0 FLDA #LIT+0003 ATX 7 FLDA NONEDO-0003,7 FSUB NONEUP-0003,7 FADD #LIT+0003 FSTA NONEDO-0003,7 LDX 0173,0 FLDA #LIT+0003 ATX 7 FLDA #LIT+0003 FSTA NONEUP-0003,7 LDX 0174,0 #25, FLDA #LIT+0003 FSTA IAM LDX 0175,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #221+2 FLDA NBA EXTERN #RSVO TRAP3 #RSVO FLDA ISTART EXTERN #RSVO TRAP3 #RSVO FLDA IEND EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0176,0 #221, JA .+0031 5061 1040 5447 1602 0140 4754 1162 5463 3054 4711 2324 0122 2440 4754 1164 5463 3054 4711 0516 0440 4754 1164 5100 LDX 0177,0 FLDA #LIT+0000 FSTA IV LDX 0200,0 FLDA #LIT+0000 FSTA IQ LDX 0201,0 FLDA #LIT+0000 FSTA IP LDX 0202,0 FLDA NBA FSTA IBL FLDA NBL FSTA #DOTMP+0030 #G0014, LDX 0203,0 FLDA IBL FSTA BLNO LDX 0204,0
"F 6 N$6%FQ%J$:$ N%$c n |`(!z{| {K(Q(  ~G}&06z|0b!{if>f;<"FnziQ@ pSCqc&!LM.K0yK(xK(Q0zI]AyY4TMAR0 X ES3  z lb"H~Fna
#' )W3K<_
lra&N ,[_b(ze[ ^6 ^Cx(w_e`Fnx`cVdW6Ca.^ L^0?/.E"`9z^c(:z f[&V VbJ n VbV n^d ^C`Xc'LU,~(/y]9c @0`v9= _B}]&]]6] /e|2v_b Lw v]&e3&o}?x"""Bu(~""ts"&x0 t$k;CM(&"@"z6"bc70~"0CjMG 0r }0&@/3~"66&C|%{q)~0"~p'&@>uo %u&sr&4H/Cz)< hhC(M{<<b!;f@/zMM0yh&h<6<!.;xbwgv[{@A"?X"rJA6)b6mgfD}LG(*A C n |`&(?4.fnb""cac 0z"DJ"Cx$"bt" n~}'cx!"n0"{4z :
7 '"&ff" 7"D< $ & Dn "Mh/v)8d""b#Nkn&M"@T{ ?TTK>>|9>>4| bm)m`U((/g;2_Ug u.!xJ&NW? (?R}) <Gi#x
~~r b!g '}(&|+&f,f{=&z2&yx)wx)(6 /T($+&J6J +f(/&.>&.v"W/utxsrbq= pyoCPc IGw Kn' b n aha(W0| {| {)am7vF*:&3 0
N)C0C`7$n^t`FA,&d=b=fn,h==t==2D 8%=&2&0.fo =; }` 0V>bVbnVVbn`~)-J}) ff }9>J !6 j8W!|{l <}!Hzr{)d: >f!.)d>!by`)W xwdnv})>& )8jS0T0 @ cW0)8ZX  ,$CD/ @)% @@* (8=Z  &D2Uq@+X2n/2i#2]@,2Pa@-2} q1 "N`b_)@./ r@*@/2 q1 "
`b/)@0/ r@*@1 X2 JSR #EXITXIT0503,7i)&.6'6L~T/r}] Bt.B{G(.|91!. /=2"({{zi"AlTb ,c]{2e0(G{|d6TIq L 6 c),r) Ci r i(] y){b4lgg"&<osi1H@@>_ `5$n@FSTA P-0003,7 LDX 0234,0 #218, JA .+0032 5061 1040 5411 6454 6330 5447 2640 4754 0667 5663 5462 3054 4721 4047 5406 6756 6254 6230 5440 4720 4047 5406 6756 6251 LDX 0235,0 #33, FLDA JM FADD #LIT+0003 FSTA JM FSUB #DOTMP+0033 JLE #G0017 LDX 0236,0 FLDA #LIT+0003 FSTA IS FLDA NOSET FSTA #DOTMP+0036 #G0020, LDX 0237,0 FLDA IS ATX 7 FLDA NONEUP-0003,7 FSTA IALF LDX 0240,0 FLDA IS FADD #LIT+0003 ATX 7 FLDA NONEUP-0003,7 FSTA IZED LDX 0241,0 FLDA IS ATX 7 FLDA NONEDO-0003,7 FSTA IMED LDX 0242,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #947+2 FLDA IALF EXTERN #RSVO TRAP3 #RSVO FLDA IMED EXTERN #RSVO TRAP3 #RSVO FLDA IZED EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0243,0 #947, JA .+0030 5061 1040 5447 1101 1406 7547 5411 6454 6530 5447 1115 0504 7547 5411 6454 6530 5447 1132 0504 7547 5411 6451 LDX 0244,0 FLDA IZED FSUB IALF FADD #LIT+0003 FSTA ICUR LDX 0245,0 FLDA IMED ATX 7 FLDA IALF ATX 6 FLDA V-0003,7 FSUB V-0003,6 FSTA TIDVOL LDX 0246,0 FLDA IMED FSUB IALF FADD #LIT+0003 FSTA IMAD LDX 0247,0 FLDA IZED FSUB IMED FADD #LIT+0003 FSTA IZAD LDX 0250,0 FLDA IMAD FADD IZAD FSUB #LIT+0003 FMUL HV FSTA PERIOD LDX 0251,0 FLDA HV FMUL IMAD FSTA PERIOI LDX 0252,0 FLDA HV FMUL IZAD FSTA PERIOE LDX 0253,0 FLDA IALF ATX 7 FLDA P-0003,7 FSTA PMIN^6q~&$}"H|r~H. f0!b{bl <&Jnk56g08f))f))f n;"<=&0b,dz0'y2ti%'xy0ki?Neimi?ki?mi?mi?m)?EiFf~w ?v|3H td"fuP"(ZU#8CVR1R@VR A@18I<kr+PU p>vy!fn$(/]"@zr0!f0r (z(/$X!f$"k><*]#*|y\Z*X0"r(]g#fc@n#2f~"2gr"r#r'gp'&0b*0r (<z'h9 'bfn(?<"(bz@&c##7%cn"":z]J]JB 'g~'&$!"iy'c}"@Oi .F."c%#s&v{lqz;%q*a:jGOt)~}|N(/{2bziz)m&Ykf+(f# "y xin$J /P("fnl < (o. ?$)x) bwc(rvs+'1Bk~i0}is"kbld{+$r dz}IzEY!.k&u$^o&Yk&on& Xb lP]5Ypgek%
@/|zLerP&[R(/ "q~tBFg~lif.H>(}  ..r|/r{/r@ubo./F2fzy'x & gw ' .bH/bnf g '2"2yevV$qW} !>cnFd 72 '5 '5$R;*&lui%j(Z"&"J.x"btt)#@>&&7%cn"%Zzm X(@*d0;)9#.'/~',(/0&}C< lv_|q)zvn /&{Cz |Cytx7 w'vC}2FXon~v <2/u22P3b8<zvi2t's&v <x2'2'}IcH` rB qbjbc66bJnn 6o s s tUJp6& fk4 clnbd&iCAn5T32=Fn x(/ .({j&h 9j(&&l(# zi&~ &}y."hzvdwCxi&oD%>5f&@>/>&/&'>/&%c.>&>j &z.%'>.&)L2g02fsgrtphU#"wGR9"a>% ?^##a&cU{ %7#&7U67 C (Oe6(+"+b(ekly|I2A@@@@ Xga4@ @@ +l@*/*
@ :f @ ,&B@p Uv@ U
`@  @ N/X @`U! `@`U! ` F@[bory)@ B+@p
2B+@p  @@X4 @;h P ,B v@[@p @@ ;,)9-Z  ,B!@p
3B1@X4 @;h P ,BAv@[@p @@ ,@ 3,)b9ZY  DW/@
3B @`X!4!
`;hU  D~/`@ ['@!
@" @@# 3,)9-Z  ,B@$S@% @@& )9ZY  D3 @'!
@( )9Z  ,$BD@)% @@* (9ZY  &DU @+[&n !i$])@,P/@-} 1 "N`b_)@. r@*@/ 1 "
`b/)@0 r@*@1X 0,0 FLDA DELTAA FSUB #LIT+0116 JGE #G0023 FLDA DELTAA FNEG FSTA DELTAA #G0023, LDX 0301,0 FLDA DELTAB FSUB #LIT+0116 JGE #G0024 FLDA DELTAB FNEG FSTA DELTAB #G0024, LDX 0302,0 FLDA DELTAA FSUB #LIT+0132 EXTERN #LT JSA #LT FSTA #TMP+0000 FLDA DELTAB FSUB #LIT+0132 EXTERN #LT JSA #LT FADD #TMP+0000 JNE #46 LDX 0303,0 FLDA IT ATX 7 FLDA IT FSUB #LIT+0003 ATX 6 FLDA IT FADD #LIT+0003 ATX 5 FLDA P-0003,6 FADD P-0003,5 FDIV #LIT+0127 FSTA P-0003,7 LDX 0304,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #822+2 FLDA PMIN EXTERN #RSVO TRAP3 #RSVO FLDA IT ATX 7 FLDA P-0003,7 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0305,0 #822, JA .+0043 5061 1040 5447 2320 1113 0556 4017 1404 4026 0114 2505 4017 0640 2075 4754 0667 5662 5463 3054 4716 0527 4001 2605 2240 0107 0504 4026 0114 2505 7547 5406 6756 6251 LDX 0306,0 FLDA IT ATX 7 FLDA P-0003,7 FSUB PMINBK JLT #46 LDX 0307,0 FLDA PMINBK FSTA PMIN LDX 0310,0 FLDA PALX FSTA PMINBK LDX 0311,0 #46, FLDA IT FADD #LIT+0003 FSTA IT FSUB #DOTMP+0041 JLE #G0021 LDX 0312,0 FLDA IZAD FSUB LITDY JLE #644 LDX 0313,0 EXTERN #WRITO KNh@K"" %?H(\p,yE/@33C6P:m@= p@'MDD@GaJK~NHQ8`UUEXr0\B_,bIOff`iMm 0p=JtZwwGz`~1DO0lA &OCP`L} I7 TF#qP'D*+ .HA1ep4N8P;<K?Y BvHEpI0FLM@PjCS W$@ZAp]^Ma{@dKh5kRHno`r
Eu)@yFB|cP`:] W0tZ.WK`hT0""R%?(\_,yP/\3306PY:m= W@'PDDTGa K~QNQ8^UUPXr[\ _,YbIpffViPm Sp= tZPwwpz^~1@O[l X &pCU`@}R7P T`#q]'@*+Z.H1eW4`8U;<0?YRBvE_I0`LM\Pj0SZW$ZAW]^Pa{Td0h5QkRno^r
Pu)\yF |cYf:P Wct a.pKnh@k"" %?h(\p,ye/@33c6P:m`= p@'mDD@GajK~NhQ8`UUeXr0\b_,bIoff`imm 0p=jtZwwgz`~1dO0la &oCP`l} i7 Tf#qP'd*+ .Ha1ep4n8P;<k?Y BvhEpI0fLM@PjcS W$`ZAp]^ma{@dkh5kRhStD`AHAMF25&I&
TC xpx &5 ` ` xpx`StA`HAHA@ [t_C`r5Ra
  @F`%LPKYF5&t&5VKAbG
t&St&AHHHBR@A FV-MKr5SbtA`HAHAHA@A\

@l  l bB5a pR'O'QrYr_q pY' e rbpd' orlpn' y3rvpx' +rp'` .p}BK`Ih@7@0 TF"" #qM%?'D(\p*+J,yP.HA/@1eG3304N6P8E:m;<K= p?YB@'PBvHDD@EOGa I0FK~LMLNPjCQW(%A B@EC2KMN@MN@@I03I13MX@MX@ @( 1 @DM"LG` P lh%//C(K(h@@@@U@USNCSTNMD@n#.*b `@/b'$b(&b)+b))t@(c))t))t('D,"0kP @lE@EI  G0N@@X@@NLADN"PD
G Gp@NS0@@RPLE@ Note: Lines longer than 256 characters were wrapped



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