![]() |
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
|