DM41L Progs - Make It Tea

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

Trace: • 6502 based homebrew computer • CA65 Setup • Another diversion... I3 Tiling WM • Benchmarking • Prepping • Mastodon & Twitter • 30m CW TX

You are here: Make It Tea » Public Area » Calculators » Programs » DM41L Progs

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

<-[[.:start]]


====== DM41L Progs ======

  * Memo {{ :public:calculator:progs:03319.pdf |}}
    * from HP Documents archive. 
===== Memory Dump =====

  * 15<sup>th</sup> Feb 2025

<code>
DM41
00  91000000000000  09000000000000  02000000000000  02000000000000
04  02016000000000  00000000000000  00000000000000  00000000000000
08  2b000000000000  c0020020020000  0000000000c000  00000000000000
0c  000000000041a7  1d9001691ce1a7  0000002c028000  00000020004000
40  000020022ef0bf  00000000000000  00000000000000  00000000000000
94  00000000000000  ffffffffffffff  00000000000000  00000000000000
ac  00000000000000  00000000000000  323530313233ff  354c2042455441
b0  33373210444d31  52434320343738  31342e30300b4d  0b434153482024
b4  30b4001000201e  4d454d4f202020  9c000000c8072d  10428085c80609
b8  9c214a6d131610  5b409700b200a6  0102515250555e  83838331a69cce
bc  81121419193011  c600f400535647  10000000031008  53564720202020
1a4  00000000000000  00000000000000  00000000000000  ca110900c80029
1a8  00cf6aa64db400  a6547ead1584b4  43a66168a66a04  0119a64cac16a6
1ac  8e9201f220249b  414d4f554e543f  2024a65d1003f7  7ea646a64231f2
1b0  1316a65c66b400  b10002a654a66a  78b2001140a66a  a64466b3058368
1b4  00a91601a65d66  3f8c8e8bad17b4  a917f54954454d  454d4fa66b9c02
1b8  454d4f1031f44d  0309c600f51a4d  425431202185c6  20114043561210
1bc  5332524c301141  c60309c600f500  11414331222185  10435730114020
1c0  00524c32533212  85c80709c600f5  458e4311101042  714132f453495a
1c4  f547524f53538e  401a1415144231  11101042111643  52458e83687169
1c8  00474153f45441  85c20409c600f4  02131016411843  18421310164085
1cc  1310157145b201  c000f400445454  00000000000000  91000000000000
1d0  01175000000001  00000000000000  01015789474002  04620836303000
1d8  00000000000000  08111332867002  03457375047005  06100000000002
1dc  01860500000005  02473956524005  02000000000000  00000000000000
200  00000000000000  000000400002ef  ffffffffffffff  00000000000000
A: c000f400445454  B: 0000002c0280fd  C: 0000002c0280fd
S: 00100100000000
M: 00011cd5ff73cb  N: 000000000c1440  G: 00


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


--- //John Pumford-Green 15/02/25 14:19 GMT//


===== Further Information =====


{{tag>calculator dm41l}}

Navigation

Search

Toolbox