41Notes (New Version - Search)



#10

41Notes (HP-41CX or HP-41C/CV with X-Function)

My small contribution to store small notes

01 LBL "41NOTES"
02 "NOTES"
03 RCLPTA
04 FIX 0
05 CF 29
06 CF 21
07 LBL 52
08 "A:F:I:P:V? " '3 spaces
09 ASROOM
10 ARCL X
11 AVIEW
12 GETKEY
13 X=0?
14 GTO 15
15 CLD
16 XEQ IND X
17 GTO 52
18 LBL 11
19 CLA
20 AON
21 PROMPT
22 AOFF
23 APPREC
24 RTN
25 LBL 24
26 SF 25
27 "NOTES"
28 20 ' Modify for large number of notes
29 PURFL
30 CRFLAS
31 RTN
32 LBL 15
33 CLD
34 FIX 2
35 STOP
36 LBL 62
37 CLX
38 SEEKPT
39 SF 25
40 LBL 61
41 GETREC
42 AVIEW
43 PSE
44 "-:+:D:R:S?"
45 FC? 25
46 GTO 52
47 AVIEW
48 GETKEY
49 X=0?
50 GTO 52
51 XEQ IND X
52 GTO 61
53 LBL 51
54 CLX
55 SEEKPT
56 RCLPT
57 INT
58 1
59 -
60 SEEKPT
61 GTO 61
62 LBL 14
63 DELREC
64 GTO 61
65 LBL 43
66 CLX
67 SEEKPT
68 SF 25
69 LBL 00
70 GETREC
71 FC? 25
72 GTO 52
73 AVIEW
74 FS? 55
75 PRA
76 GTO 00
77 LBL 53
78 "SRC?"
79 AON
80 PROMPT
81 AOFF
82 CLX
83 SEEKPT
84 POSFL
85 INT
86 SEEKPT
87 GTO 61

Instructions

XEQ "41NOTES"

First time: press I 'Initialize "NOTES" file in X-Memory

Option

A ' Add Notes (Max 24 bytes) R/S
E ' End
I ' Initialize (First time or Clear all Notes !!!)
P ' Print or View Records
V ' View ------ + ' Next Record
- ' Previous Record
D ' Delete Present Record
R ' Return
S ' Search a string

* In the main menu if there is not any key pressed in 10 seconds the program concludes.
* In the visualization way if there is not any key pressed in 10 seconds returns for the main menu

Edited: 23 Oct 2005, 6:03 p.m. after one or more responses were posted


#11

Gileno --

A few questions about your program:

1. Line 75: What is PRA?

2. Line 78: Should SRC? be a text string in quotes?

3. Line 87: GOTO should be GTO.

-- KS


#12

Line 75:PRA = Contents of the ALPHA register is printed.
Line 78: Should SRC? be a text string in quotes? Yes
Line 87: GOTO should be GTO. Yes


#13

Hi, Gileno;

just to add a suggestion about PRA. What about mentioning that PRA can be found in, at least, three standard HP ROM? Meanning the 82143A standard HP41 printer, the HPIL module (when printer is active through the small mode key) and in the 82242A (IR printer module). These three modules offer PRA.

Cheers.

Luiz (Brazil)


#14

In any one of the described manners the use of the instruction PRA it is identical. Send for printer of the content of the alpha register.


#15

Your description is correct, as far as it goes. I think the suggestion may have been to include more informaton in the documentation of your program. You could also explain that flag 55 is the "printer existence flag." For the IR printer module and the non-HP-IL pronter, the flag is on if the module is present, regardless of whether the printer is on or in range as the case may be. With the HP-IL module, flag 55 (and flag 21) are set if there is an active loop with a printer or display device on it.

#16

And for better readability with my VIM highlight plugin:


001 *LBL "41NOTES"
002 'NOTES
003 RCLPTA
004 FIX 0
005 CF 29
006 CF 21
007 LBL 52
008 'A:F:I:P:V? "
009 ASROOM
010 ARCL X
011 AVIEW
012 GETKEY
013 X=0?
014 GTO 15
015 CLD
016 XEQ IND X
017 GTO 52
018 LBL 11
019 CLA
020 AON
021 PROMPT
022 AOFF
023 APPREC
024 RTN
025 LBL 24
026 SF 25
027 'NOTES
028 20
029 PURFL
030 CRFLAS
031 RTN
032 LBL 15
033 CLD
034 FIX 2
035 STOP
036 LBL 62
037 CLX
038 SEEKPT
039 SF 25
040 LBL 61
041 GETREC
042 AVIEW
043 PSE
044 '-:+:D:R:S?
045 FC? 25
046 GTO 52
047 AVIEW
048 GETKEY
049 X=0?
050 GTO 52
051 XEQ IND X
052 GTO 61
053 LBL 51
054 CLX
055 SEEKPT
056 RCLPT
057 INT
058 1
059 -
060 SEEKPT
061 GTO 61
062 LBL 14
063 DELREC
064 GTO 61
065 LBL 43
066 CLX
067 SEEKPT
068 SF 25
069 LBL 00
070 GETREC
071 FC? 25
072 GTO 52
073 AVIEW
074 FS? 55
075 PRA
076 GTO 00
077 LBL 53
078 'SRC?
079 AON
080 PROMPT
081 AOFF
082 CLX
083 SEEKPT
084 POSFL
085 INT
086 SEEKPT
087 GTO 61
#17

How about alarms for notes?


#18

Maybe in the next version :-)


Possibly Related Threads...
Thread Author Replies Views Last Post
  Global search of archives.. uhmgawa 9 352 09-30-2010, 10:17 PM
Last Post: Garth Wilson
  OT - PC's: a tool in search of a need David Hayden 34 989 05-07-2010, 10:02 AM
Last Post: Steve Leibson
  [OT] useful feedback search tool for the infamous auction web site Pascal 2 126 03-25-2010, 06:02 PM
Last Post: Wilhelm Taylor
  Forum Search - help!! Mark Edmonds 18 535 08-10-2009, 02:38 AM
Last Post: db (martinez, ca.)
  Open letter, search and plea for Emmanuel Compes - E03_RTN PeterP 22 624 07-28-2008, 09:36 AM
Last Post: Martin Pinckney
  41Notes Plus with alarms gileno 0 105 11-17-2006, 01:22 PM
Last Post: gileno
  41Notes - Correction !!! gileno 0 89 02-25-2006, 08:57 AM
Last Post: gileno
  41Notes - Maintenance Gileno - Brasil 3 145 11-12-2005, 05:14 PM
Last Post: Gileno - Brazil
  41Notes (New Version) gileno 4 182 10-20-2005, 12:24 AM
Last Post: Geir Isene
  41Notes !!!! gileno 2 134 10-06-2005, 07:24 AM
Last Post: Gileno

Forum Jump: