vitamin-caig / sjasmplus

SJAsmPlus mirror ("master" branch) + my modifications ("my" branch)
http://zx.pk.ru/showthread.php?t=447
4 stars 2 forks source link

128K Snapshot - BASIC channels issue #5

Open psbhlw opened 10 years ago

psbhlw commented 10 years ago

A snapshot which is created in 'device zxspectrum128' mode has broken BASIC channels info (system variables). For example, when printing to chan #2 via RST 16 we actually print to chan #0. You can see this in attached example.

In attached archive:

code.a80 - example of such a code
sysv_bas - clean dump of system variables without TR-DOS vars (#5C00-#5CCA)
sysv_trdos - clean dump of system variables with TR-DOS vars (#5C00-#5D3A)

Also, I propose the idea to make _sysvbas by default in both 48k sna and 128k sna, and to have an option to choose _sysvtrdos or nothing at all.

UUencoded archive:

section 1 of 1 of file basic_chan_addrs.tar.gz  < MxUUE v0.6.7 (c) 1999-2004 Maxxi >

begin 644 basic_chan_addrs.tar.gz
M'XL("'06"5,$`&)A<VEC7V-H86Y?861D<G,N=&%R`.S:2>P+41P'\-=*[`TB
MEH3P++$$-?-F.JW];SJUKT5L;:R5V$7M$<O!T<7-P<5)7,3919"((`X."(E:
M2BVMMB2U_NLW,ZW6&$N)_?MITLZ\>;_?O#=+Y]<_*S:N3/B7A23V$\F2%`P&
M.>,FJ>[3)H10N2P42=:"LE`5:@JH@K;_U$&!992O[2A^)9]YFL[S9^E2JICA
MA5SNSJMT-O/([VM+F]NL3&Q;O2+!=^U(;DJLV+)YZWI9A'QM?6UYQ<SH1-Y/
MDR2)?S"*I^[GTP6>39523U+\63YW+Y]Z^O1-?=@T@]XF31O:3P0#H6I8]OF#
M[)LT?TB!-((RSZ?O90K%?.YN+2ZR8$%UL;:[^T_*_%GN?G5'_,KYJXX]35XX
MM%\@K(RO1OC]_OK1+)@9Y7R\(^N=7/Y^<YZ7TOGLFT=U$YXWE_-!_29$!@\=
M[]C+^*']U&!=ADW+-B4V<VDD7[UA+0\Z.@\2BC9"H225S@6:JI_.0C[]U,_'
MSYT;73++)4*HGXG09T:-<+06$1X_;1KO)QF:7C>@7(E",L6W_-WC?"K[R>B%
M,US6)+DN_.[C)\TE,UP\HN-=S#WF@W*%K-]*-MC7UKJ8Z"JB#N99>YPQCUWZ
M(>\G)"4\DD]*K%NWD6_?N'G=RCZ.71N1H7,C"^8ZKI]B^G&AF')TU<-6UVF1
M&=5SG\FF/AZWO<.Z<3^S!N5K^\F$9:7NA%M'\F[N?F7PM<[1.30R6:N/GQ*E
MM_Z."^9AZFZFD$H_I8[TJD[(,$_`P/K)#Z2^UMRH4V4JD=GS*-^PVD&HS>W#
M8;`/\.-</I]^7*3[Q#K_Z:>T9%\#Z:RY.*B8>_+V<<ZZ)PK9U+.7N6*JS^"/
M[U=.]X(DF=FJ5F]8L7SU!MXWN3.Y;<GR9<F^(U<FN0AHG^VS9?/*C76]J!]-
M_UFF\/;#3JT1O'OZ_$FYF,O3\-LDEVU+)#<LXWTW;UR_9-/FU1NV^&FU[U#K
MVZ,V0`:_C/7\7Y?<PGZBKSS_53E0>_XKDC"?_YHB\/S_%:QO=XE\_$WF:RL)
MMPU?JA4DY7.I5+<-GZDKI(!;9VK7W-J_JP:1S">TYK*+4+5=R)QJ$F$]R;^W
M7I%&V-D4;M!25>-5C"S9>50^P3`'1B5,(,R_7MO(LAT7<LQ2%M7V\1-J[8W4
M0;)B9:`)&@J?$*ET<Z^.9-7NJW,EPC^41@W53'+`3F%P^E((&979-UY)R9J5
M1Y;,/&JHDJ?Q^DJV+Q\Z"F&#4W%%`R,-55URR$ZAF4=%$NY'15"_$7:_D+DK
MNE4I@/Q(A28D.Z/NN"J$[-;>0#4G1#4!77AB!"V:"1JH\81B)XB8$Y7"W+X]
MOZ7R$_8U)F3S*%'9)ZS(;ZH'1<`.59V'0ZNV*Y':"6ZH=A3V94*9C+K+_I.*
M4H3L;D'G"$94V^50[2;[QNI3D>S@$8ZDBOR9=N'6_DWU:RU4#6D!+4RO"8*>
M]]J$H*!E5<C4QSZU2N"C](U4OHKJEH':`Y]IU]S:O[]V5H)N^=PJ:L4\G^;B
M1SV^I<Y61C00Z:B^5<DMEMIEM_:O5NJJ<`O[6OVN*HXHQV`8_''6+UN;\"]?
M]COK?_H%$*C4_YJD*=9%%%!EU/^_0G+-LN3Z3>NV)OV)'0E>_6LP'S:,?A..
M^14_#N&W^NB;G/T<7[S_57IT*$''[W\M&,#?_W^-!0/KUT;&*@M+/:T8````
M``````````#\<T(`_S'VG_.UX+XRZU7R]?/26M=6'M:2M6,>9GZ.'>=Y=[O7
MWOD/6FT\WJ%#AXOILX=#?=CI=/<';'03*U_RO%U",<WELH=YZ4!>CS,V(#X@
M/BI^/3XR?H->UZCE9MQ\#3L4Z^BM[G-*-\9.T3]*EJVU/MU84VI6G^Y]NGE"
MC-*<N%JZ66KN-:A%<^_35^2Q'O$L=J%^Q.4EY?*+-L<Z3GW1YER7.?L[7.@2
M51</+Q/:V%<.:++6M\7-V)CX4;9\X\8MG.A'V!%K3C9/:_.]-47LHW2O8Z]C
M;>S,YMOH^-LEY=''J9?W)4VOU'<Y`_A7]5DP\,:[/B-C)ZXVCYTH#L;$I-CE
MM;ZQWLN>KIT&+_6T9Y='\[&^:]V;Z_]G*`,`````````````````````````
M````````````````````````````````````````````````````````````
M`````````````````("_VDDE%3OCG<YNQ=B^(</FLB'#A@Q+*(QE._I8&W:@
M9\>>T1[;>K3HS,:RT;J^1]<9VZWOUO7=C-:;FO31C.TP=-W8P=B>IMU-37LJ
MGTW6]AGF=C/,C!O;FHQES.OUZF:[,6G3)(/:J;,5IZ]:9/73ET>G3*!/VI_5
MS]R;G4^/3JFL&^;VIM%><WMS1Q/%5?JSI=T8````````````P'OVX$``````
M`,C_M1%45555555555555555555555555555555555555555555555555555
M5555555555555555555555555:6=NN>%((CC./X_XN'(<0H/4;`7(<J=6W:%
MN\OUF@L2$CL1HI<XD2@D5'JO0KP`E4(A$@_A!6B\`XWZQLPBB""*NT*^G\GN
M[/R3F9TI?@,`````````````````````````````0`-4=ZK;*VNK5:DCY?M1
M%'GB.?Z'_E6@`D_E`U^%D9\/?5N9C/*!)[Z@WDSR#&<R(RW)."6MTFG?KL]^
M/ZU0MK-2%;-@7L:I*9'K6.0D/HE=?Q7?N&:_;F/7Y##N:?JXP*[(DIV;DV6O
M7\H/E=Q`KM\N,B6_6C3&/*6/LK-/Z?/>^?WN\]XY]U79$_Q=DO^MS?6-.MX`
MO^5_(GK+?QA%@;*5,`@4^6\$E_WW_/>U_2'_Y;?\FYIQ^9_1(F-Z3,_HDI[6
M!==LI:1=^Y3_T\&L'+3]F/_:T'AS;?CL3I52^<?X\J?\7R;YMT6WE<E0A5VV
MOX^+VOZO*-+Q=?/IY-UN9^RUC^JBOE`O%9.<3-LS%8[M==94LH5:QMXKW#<`
+_J%G<N"I70`H`@#I
`
end
sum -r/size 39045/3220 section (from "begin" to "end")
sum -r/size 1957/2306 entire input file