Re: Free 50g for a level-free stack - Hewlett Packard

This is a discussion on Re: Free 50g for a level-free stack - Hewlett Packard ; GaaK wrote: >> 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 ...

+ Reply to Thread
Results 1 to 2 of 2

Thread: Re: Free 50g for a level-free stack

  1. Re: Free 50g for a level-free stack

    GaaK wrote:

    >> 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-


  2. Re: Free 50g for a level-free stack

    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 -


+ Reply to Thread