On 9 abr, 04:00, "Joe Horn" wrote:
> GaaKwrote:
> >> Bad upload? Bad download?
> > ?? ... not for me... downloading again is Ok.
>
> Your program uses PTR 22CD3, which works in ROM version 2.09,
> but it causes an instant Memory Clear in ROM version 2.10-7.
>
> The code that you wish to call has moved to address 22CD2 in ROM
> 2.10-7.
> It's unsupported and should not be called by address. It's the final
> command
> in the supported word "DispMenu.1".
>
> I poked 22CD2 into my copy of your program, and it works great! But
> of course
> it's not portable to my other machines, each of which has a different
> ROM version.
> Can it be made fully portable?
>
> Thanks again!
>
> -Joe-

....sorry ... sorry. this entry works only in ROM 2.09 (no other).

the replacement for any ROM:
CODE
LC(5) (=DispMenu.1)+150
CD0EX
A=DAT0 A
D0=C
PC=(A)
ENDCODE

So, the full masd code :

!NO CODE
!RPL
::
xRCLF
InitSysUI
::
INCOMPDROP
STOALLFcont2_
BEGIN
AtUserStack
SysMenuCheck
PTR 2A32D
::
EditLExists?
IT
CODE 0001B 1321B82100317314C1308D94150
DispCommandLine
;
?DispStatus
::
PTR 2A28C
::
TOADISP
BINT1
::
StackLineHeight
EditLExists?
?SKIP
#8+
CommandLineHeight
CODE 00028 1331F0CE08147131808B2C034701331458D1B130
#=case
3DROP
DUP4UNROLL
#-
SCANFONT
BEGIN
DUP
NULL$
4PICK
#6+
DEPTH
#>ITE
'NOP
::
4PICK
#5+
PICK
;
BINT74
SysITE
BINT1
BINT0
BINT52
TestSysFlag
ARRYREAL
TestSysFlag
IT
::
7PICK
#1<>
OR
;
BINT95
TestSysFlag
OBJ>R_
3PICK
'NOP
EQ
?SKIP
::
2LIST
TestSysFlag
?SEMI
{
BINT2
BINT3
BINT4
BINT29
BINT5
BINT6
}
4PICK
XEQTYPE
COERCE
SWAPDROP
#=POSCOMP
#0<>
?SEMI
BINT95
SetSysFlag
;
FPTR 2 95
BINT95
R>OBJ_
ITE
SetSysFlag
ClrSysFlag
UNROTDUP
6ROLL
SWAP
5ROLL
EditLExists?
CODE 000CB
8428F86A435508528F86A434606A708FD5F30068FB97601B2B 22810007D5CA340400082480B83460310586280818FA7E21FD 8608143C6CAF2CA131D9C6F2C9C98FC0760D4118CA8DC75308 FD5F30100068FB97601BDF818142342B228C4C2F0C21341106 D6F
4UNROLL
#-
SWAP#1+SWAP
DUP#0=
UNTIL
3DROP
;
SetDA2aValid
;
;
EditLExists?
?SKIP
CODE 0001B 1321B8210031F314C1308D94150
PTR 2A346
::
BINT0
BINT1
GETDF
DoLabel
BINT22
BINT2
GETDF
DoLabel
BINT44
BINT3
GETDF
DoLabel
BINT66
BINT4
GETDF
DoLabel
BINT88
BINT5
GETDF
DoLabel
BINT110
BINT6
GETDF
DoLabel
CODE 00014 34A80E2136142134808C
SetDA3Valid
;
ClrDAsOK
GetKeyOb
ERRSET
DoKeyOb
ERRTRAP
SysErrorTrap
AGAIN
;
ERRTRAP
VLM
;
@

BYTES: #24C2h 562

Enjoy it and sorry again.

- GaaK -