41Notes (New Version - Search)

[gileno]

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

[Karl Schneider]

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

[gileno]

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

[Vieira, Luiz C. (Brazil)]

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)

[gileno]

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.

[Howard Owen]

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.

[Geir Isene]

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

[Geir Isene]

How about alarms for notes?

[gileno]

Maybe in the next version :-)