<-[[.:start]] ====== DM41L Progs ====== * Memo {{ :public:calculator:progs:03319.pdf |}} * from HP Documents archive. ===== Memory Dump ===== * 15^th Feb 2025 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 This decodes as : ; 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 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}}