| SwissMicros DM-15
|
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |

| What's in the box | Some tests | Link to a PC | Transfert example |
|
This machine can perform:
|
![]() Here are the informations displayed with ON+E sequence. It's a DM15, with FirmwareV14 and option M80 (128 registers instead of 63) Runs at 12MHz and the battery delivers 2.777 Volts. |
| Program | Time HP-15C | Time DM15 12MHz | Time DM15 48MHz |
f LBL A 1000 STO 0 f LBL 0 DSG 0 GTO 0 RTN |
320 sec to be verified |
55 sec | 13 sec |
| Program | Time HP-15C | Time DM15 12MHz | Time DM15 48MHz |
f LBL A f x! RTN f FIX 4 1 ENTER 2 f Integ A |
??? | 8.5 sec | 2 sec |




| Let's run the well-known Hebdogiciel test consisting, from a value of 2, to compute 20 times the square root and then 20 times the square. I use the emulator to type in the program, you'll notice that every function is directly accessible with the mouse and you don't have to use the "f" and "g" keys. |
f LBL A .01901 ; count from 0 to 19 with step 1 STO 0 STO 1 2 ; starting value LBL 0 ; loop 20 times on the SQR SQR ISG 0 GTO 0 LBL 1 ; and 20 times on the square X^2 ISG 1 GTO 1 RTN |
A right clic on the emulator opens a menu. Select DM-15/Write. ![]() |
Here, I want to send the program. To send registers, you must have your emulator and DM-15 set to the same register and program partition! ![]() |
the transfert begins. It's very fast and in a few seconds you should see this message. To qui the mode SERIAL CONSOLE, just use the ON key of your calculator.. ![]() |
save your program with comments and details about labels and register use. Here is the resulting file for the Hebdogiciel test. |
# --------------------------------------------
# HEWLETT·PACKARD 15C Simulator program
# Created with version 3.2.00
# --------------------------------------------
#T:Test HEBDOGICIEL
#D:f A
#L-1:main program
#L0:20 SQRT loop
#L1:20 x² loop
#R0:1st loop counter
#R1:2nd loop counter
# --------------------------------------------
000 { }
001 { 42 21 11 } f LBL A
002 { 48 } .
003 { 0 } 0
004 { 1 } 1
005 { 9 } 9
006 { 0 } 0
007 { 1 } 1
008 { 44 0 } STO 0
009 { 44 1 } STO 1
010 { 2 } 2
011 { 42 21 0 } f LBL 0
012 { 11 } ?x?
013 { 42 6 0 } f ISG 0
014 { 22 0 } GTO 0
015 { 42 21 1 } f LBL 1
016 { 43 11 } g x²
017 { 42 6 1 } f ISG 1
018 { 22 1 } GTO 1
019 { 43 32 } g RTN
# -------------------------------------------- |
Test HEBDOGICIELDescriptionf A -> renvoit une valeur proche de 2.(returns a value close to 2). Program resourcesLabels
Storage Registers
|
Program
|