John's Vademecum

Try to learn something about everything, and everything about something -Thomas Huxley “Darwin's bulldog” (1824-1895)

User Tools

Site Tools

You are here: My digital Commonplace Book » Public Area » 02 : Calculators » Programs » DM41L Progs
Trace: • 03 : Computers • My digital Commonplace Book
public:calculator:progs:dm41l_progs

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
public:calculator:progs:dm41l_progs [30/12/25 09:55 GMT] – external edit 127.0.0.1public:calculator:progs:dm41l_progs [23/01/26 14:50 GMT] (current) – [Memory Dump] john
Line 45: Line 45:
 </code> </code>
  
 +This decodes as :
 +
 +<code>
 +; SIZE = 50
 +; STACK = 2 2 9 -1 2.016
 +; REG00 = 0 -1 11.75 0
 +; REG04 = 101.5789474 4.620836303 0 0
 +; REG08 = 0 0 0 811.1332867
 +; REG12 = 345737.5047 610 186050 247395.6524
 +; REG16 = 2 0 0 0
 +; REG48 = 0 0
 +LBL "DTT"
 +305
 +X<>Y
 +X>Y?
 +GTO 01
 +8
 +*
 +306
 ++
 +RTN
 +LBL 01
 +306
 +-
 +8
 +/
 +RTN
 +END
 +LBL "GAS"
 +"TARE"
 +PROMPT
 +ENTER
 +INT
 +X<>Y
 +FRC
 +100
 +*
 +16
 +/
 ++
 +.454
 +*
 +STO 01
 +"GROSS"
 +PROMPT
 +X<>Y
 +-
 +STO 02
 +"SIZE"
 +PROMPT
 +/
 +100
 +*
 +RTN
 +END
 +LBL "RL2S"
 +STO 02
 +20
 +/
 +10^X
 +STO 00
 +1
 ++
 +RCL 00
 +1
 +-
 +/
 +STO 01
 +RCL 02
 +RCL 01
 +RTN
 +END
 +LBL "S2RL"
 +STO 00
 +1
 +-
 +RCL 00
 +1
 ++
 +/
 +LOG
 +20
 +*
 +CHS
 +STO 01
 +RCL 00
 +RCL 01
 +RTN
 +END
 +LBL "MEMO"  ; Key: -22
 +0
 +STO 01
 +"MEMO"
 +SEEKPTA  ;XROM 25,43
 +FIX 02
 +CF 23
 +"ITEM?"
 +AON
 +PROMPT
 +AOFF
 +FC? 23
 +GTO 03
 +CF 22
 +LBL 00
 +POSFL  ;XROM 25,29
 +X<0?
 +APPREC  ;XROM 25,04
 +X<0?
 +GTO 02
 +ENTER
 +INT
 +X=Y?
 +GTO 01
 +1
 ++
 +SEEKPT  ;XROM 25,42
 +GTO 00
 +LBL 01
 +GETREC  ;XROM 25,20
 +SEEKPT  ;XROM 25,42
 +36
 +POSA  ;XROM 25,28
 +X<0?
 +GTO 03
 +AVIEW
 +AROT  ;XROM 25,06
 +ANUM  ;XROM 25,02
 +STO 01
 +" $"
 +POSFL  ;XROM 25,29
 +0
 +LBL 02
 +"AMOUNT?"
 +PROMPT
 +ST+ 01
 +" $"
 +ARCL 01
 +9
 +DELCHR  ;XROM 25,12
 +FS? 22
 +APPCHR  ;XROM 25,03
 +RCLPT  ;XROM 25,33
 +INT
 +SEEKPT  ;XROM 25,42
 +LBL 03
 +GETREC  ;XROM 25,20
 +AVIEW
 +FC? 21
 +STOP
 +GTO 03
 +LBL E
 +DELREC  ;XROM 25,13
 +GTO 03
 +END
 +END
 +; MEM = 40  000020022ef0bf  00000000000000  00000000000000  00000000000000
 +; MEM = 94  00000000000000  ffffffffffffff  00000000000000  00000000000000
 +; MEM = ac  00000000000000  00000000000000  323530313233ff  354c2042455441
 +; MEM = b0  33373210444d31  52434320343738  31342e30300b4d  0b434153482024
 +; MEM = b4  30b4001000201e  4d454d4f202020  9c000000c8072d  10428085c80609
 +; MEM = b8  9c214a6d131610  5b409700b200a6  0102515250555e  83838331a69cce
 +; MEM = bc  81121419193011  c600f400535647  10000000031008  53564720202020
 +; MEM = 200  00000000000000  000000400002ef  ffffffffffffff  00000000000000
 +
 +</code>
 +
 +using the Voyager decoder at [[https://dm41.swissmicros.com/]]
  
 ===== Section Two ===== ===== Section Two =====
public/calculator/progs/dm41l_progs.txt · Last modified: by john