Re: New XYENC 1/13/09 release

[Carl Distefano cld@xxxxxxxx]

Reply to note from wbass@xxxxxxxx Sun, 18 Jan 2009 18:54:42 -0700 (MST)

Wally:

> BTW, in doing another release, I'm thinking I'll combine the 5
> XYENC modules into one, with both the L,H,LH suffix nuances and
> the line breaking being controlled by parameters after the 2nd
> filename. The line breaking parm would be a 2 digit number
> between 10 and 99, giving the user a choice of line lengths.
> And you could either have/not have line breaking on any the
> different L,H,LH options. Does that seem acceptable to you?

Sounds fine to me. Variable line length would be handy.

> Unfortunately, I've seen XyWrite III make data errors
> occasionally when you bombard it with change commands the way
> that QDF1 does, so don't assume that it can't be a XyWrite
> problem. Let me know what you figure out.

Well, I translated QDF1 into idiomatic Xy4 code, and there are far
fewer errors now -- almost none, in fact -- so it was primarily a
Xy3-Xy4 "compatibility" issue. I also reworked QDF2 so that it
branches to Xy4-compatible code if running under Xy4. (I'll post
these below.) QDF3 works as is.

> BTW, another question. Do you have any idea how closely the NB
> 8.0 set of primitive functions matches those in XY IV?

They're a superset of Xy4's. NB expands the function set by using
131d|83h in the third byte, in addition to 128-130d|80-82h. The
mnemonics work out as shown below; the ones starting with "BM", on
the next-to-last line, have 131d in the third byte (some of these,
like àL, àR, àB, and àE, are placeholders, not working funcs):

@0 @1 @2 @3 @4 @5 @6 @7 @8 @9 @A @B @C @D @E @F @G @H @I
@J @K @L @M @N @O @P @Q @R @S @T @U @V @W @X @Y @Z AD AS
BF BK BS CC CD CH CI CL CM CN CP CR CS CU DC DF GH DL DP
DS DW EL ER EX GT HM M0 M1 M2 M3 M4 M5 M6 M7 M8 MD MU MV
NC NL NK NP NR NS NT NW PC PD PL PP PR PS PT PU PW R0 R1
R2 R3 R4 R5 R6 R7 R8 R9 RC RD RE RL RP RS RV RW SD SH SI
SK SM SN SS SU SV TF TI TN TS UD WA WC WC WN WS WX WW XC
XD DT S1 S2 S3 S4 S5 S6 S7 SP BC LB LE NF PF TP BD MS NM
LD LL LR LU UP FF YD DO DX MK SO OP WZ NX SW FD FM TL TR
TE ED EE HC EC MC #1 #2 #3 #4 #5 #6 #7 #8 #9 $1 $2 $3 $4
$5 $6 $7 $8 $9 DR EN C0 C1 C2 C3 C4 C5 C6 C7 C8 C9 EF IB
NO NI CO $0 LS XP WG XM &0 &1 &2 &3 &4 &5 &6 &7 &8 &9 &A
&B &C &D &E &F &G &H &I &J &K &L &M &N &O
&P &Q &R &S &T
&U &V &W &X &Y &Z HL $A $B $C $D $E $F $G $H $I $J $K $L
$M $N $O $P $Q $R $S $T $U $V $W $X $Y $Z XX H@ VH MW QH
DK SR SC TG H1 JH DZ DD DM LT RK NN MT ET ZT T1 TT ≪ ≫
IT SL SF FL FR FC SY ME AC FS TW MI RO NB Q1 Q2 Q3 Q4 Q5
Q6 Q7 Q8 TO IR AR AX DB DE HF SA OV TC TB JM SG XH FT BX
M< CB M9 MZ ZZ RX ST KF JC AK TM NU B4 QP HG US XE ES RB
S- S+ ** BN RU CF UI XS EA BT KD DN HI WH XN FX UN MX AZ
BR HK #X OL BM JR XO XW TX LF LO BL XT WT IC CT VB -D WD
RM LM àL àR àB àE MP MN QL QR MF


Here's QDF1.PM for Xy4:

'%--_XYENCode_start--
'BXes_1'Q2~'XP'XD'TF~~'CR~'BXcha_/;~[//'Q2'TF'BXcha_/'?/'/;~>/
'Q2'BXcha_/'.'/;~/'.'?>/'Q2'BXcha_
/','/;~/','?>/'Q2',*','^~'TF~'BXse_/'/;~<~/'Q2~~>'TF~~~~==7~>~~>'BXse_/,/'Q2
'SI'/2'BXjmp_~'Q2~',*','^'CL'CL'CL'SI~'WG
'CR'XP'CL'SI~'CR~~>~~~~~~'BXcha_/'/7;~/'/8'?>/'Q2',*','^~-1~>~~~~~~~'BXcha_/'/1;~/'?>'/2/'Q2
'BXcha_/'/;~/'?>/'Q2~'BX
se_/'/1'?<~/'Q2~~>'TF~~'CL'CL'CL'CL
'BD'SI~~~>~~~~~~~~~~
~~'BXse_/'`~/'Q2~~>'TF
~~'CL'CL'CL'SI'/~'CR'CR'CR'SI~~
~>~~~~~~~<
SV02,JM~>~~~~~~<
SV02,Q2~>~'BXcha_/'/2'//'//'Q2~~<1~>~~~-1~>~~'NO
~>~<1~>~~~~~~~+~~>~~<
GLF~>~~<1~>~~~~~~<4~>~~~~<5~>~+1~>~~~~-1
~>~~~~~>~~~<7~>~~~<8~>~+1~>~<
SX08,~+~+~~>~~~~~-1~>~~~)>0~>~~~>~~'NO~>
~~~~'TF~'BXse_/'/;N
/'Q2~~>'TF~~'DF'CL'DF~'RD'BD~~>~~'^
'%--_XYENCode___end--

And here's a dual-action (Xy3|Xy4) QDF2.PM:

'%--_XYENCode_start--
'BCes_1'XC'XP'TF~~""~>~~
~>~~~~~'^'^XyWrite_II
I+'^~'BCcia_$'?@$:~25500$'XC'BC(=:~@):~255'^'BCcia_$'?
H$:~25508$'XC'BC(=:~H):~255'^'BCcia_$'?I$:~25509$'XC'BC(=:~I
):~255'^'BCcia_$'?J$:~2550A$'XC'BC(=LF):~255'^'BCcia_$'?M$:~255
0D$'XC'BC(=CR):~255'^'BCcia_$'?Q$:~25511$'XC'BC(=:~Q):~255'^
'BCcia_$'?Z$:~2551A$'XC'BC(=:~Z):~255'^'BCcia_$'?[$:~2551B$'XC
'BC(=:~[):~255'^'BCcia_$'`|$:~25521$'XC'BC(='|):~255'^'BCcia
_$'`/$:~25525$'XC'BC(='/):~255'^'BCcia_$'``$:~25527$'XC'BC(=
'`):~255'^'BCcia_$'`.$:~2553A$'XC'BC(='.):~255'^'BCcia_$'`,$
:~2553B$'XC'BC(=',):~255'^'BCcia_$'`-$:~2555F$'XC'BC(='-):~255
'^'BCcia_$'`?$:~2557E$'XC'BC(='?):~255'^'BCcia_$'?<$:~255AE$
'XC'BC(=:~<):~255'^'BCcia_$'?>$:~255AF$'XC'BC(=:~>):~255'^'BC
cia_$'?{$~{$'XC'BC:~255'^'BCcia_$'?=$~=$'XC'BC:~255'^'BCes_0
'XC'BC'GT~'^'^~'BC',*',_XyWrite_IV'^'BXcia_$'?@$:
~@$'Q2',*','^'BXcia_$'?H$:~H$'Q2',*','^'BXcia_$'?I$:~I$'Q2',
*','^'BXcia_$'?J$:~J$'Q2',*','^',*',cia_$'?M$:~M$'Q2',*','^'BX
cia_$'?Q$:~Q$'Q2',*','^'BXcia_$'?Z$:~Z$'Q2',*','^'BXcia_$'?[
$:~[$'Q2',*','^'BXcia_$'`|$:'|$'Q2',*','^'BXcia_$'`/$:'/$'Q2
',*','^'BXcia_$'``$:'`$'Q2',*','^'BXcia_$'`.$:'.$'Q2',*','^'BX
cia_$'`,$:',$'Q2',*','^'BXcia_$'`-$:'-$'Q2',*','^'BXcia_$'`?
$:'?$'Q2',*','^'BXcia_$'?<$:~<$'Q2',*','^'BXcia_$'?>$:~>$'Q2
',*','^'BXcia_$'?{$~{$'Q2',*',:~255'^'BXcia_$'?=$~=$'Q2',*',
:~255'^~'^
'%--_XYENCode___end--

--
Carl Distefano
cld@xxxxxxxx