Post Reply 
HP-41 ROM Module wishlist from PPC V9N4P35-36
04-18-2021, 06:38 AM
Post: #6
RE: HP-41 ROM Module wishlist from PPC V9N4P35-36
FWIW, here's the code for STOR and RCLR in case you're interested:

Code:
092    "R"    
00C    "L"    RCL Relative
003    "C"    uses IND SREG
012    "R"    
378    READ 13(c)    get .END. Location
10E    A=C S&X    put in A.X for compares
1BC    RCR 11    location of SREG
306    ?A<C  S&X    off limits?
0B3    JNC +22d    yes, show "NONEXISTENT"
270    RAMSLCT    select SREG
038    READATA    read value
0EE    C<>B ALL    done.
18C    ?FSET  11    
3B5    ?C XQ    
051    ->14ED    [R^SUB]
046    C=0 S&X    
270    RAMSLCT    
0CE    C=B ALL    
0E8    WRIT 3(X)    
3E0    RTN    
092    "R"    
00F    "O"    STO Relative
014    "T"    uses IND SREG
013    "S"    
0F8    READ 3(X)    read value
070    N=C ALL    put in in N
378    READ 13(c)    get .END. Location
10E    A=C S&X    put in A.X for compares
1BC    RCR 11    location of SREG
306    ?A<C  S&X    off limits?
381    ?NC GO    yes, show "NONEXISTENT"
00A    ->02E0    [ERRNE]
270    RAMSLCT    select SREG
0B0    C=N ALL    recall value
2F0    WRTDATA    put in SREG
3C1    ?NC GO    terminate
002    ->00F0    [NFRPU]

"To live or die by your own sword one must first learn to wield it aptly."
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: HP-41 ROM Module wishlist from PPC V9N4P35-36 - Ángel Martin - 04-18-2021 06:38 AM



User(s) browsing this thread: 1 Guest(s)