0010 @lm @rm 5 @f @ty 5 @sk @n 0020 Files for HP71: 0030 @ty 2 @f off @f 0040 LINK7175 0050 @f off @f @ty 1 0060 Program transfer between HP75 and HP71. See LINK7571. Article published in 0070 PPC Computer Journal V3N4P3. 0080 @ty 2 @sk 0090 DT 0100 @f off @f @ty 1 0110 Display test in assembly language. CALL or RUN DT. The whole LCD is 0120 turn on for about 3 seconds, then turn off. 0130 @ty 2 @sk 0140 TELDIR71 0150 @f off @f @ty 1 0160 Telephone/address book directory for HP71. See TELDIR. Article published in 0170 PPC Computer Journal V3N6P15. 0180 @ty 2 @sk 0190 INPMFP71 0200 @f off @f @ty 1 0210 Input routine for MFPLOT71 (multi-function plotting program) See also INPMFPIO. 0220 @ty 2 @sk 0230 MFPLOT71 0240 @f off @f @ty 1 0250 Multi-function plotting routine for N functions. Article published in PPC 0260 Computer Journal V3N6P2. 0270 @ty 2 @sk 0280 RPNCALC 0290 @f off @f @ty 1 0300 Source code for FORTH RPN calculator. Complied in FRTHRPN2 FORTH file. Article 0310 published in PPC V3N6P24. 0320 @ty 2 @sk 0330 UTIL0001 0340 @f off @f @ty 1 0350 Provides some basic FORTH utilities such as VLIST, show LOCK password, WIDTH, 0360 PWIDTH, etc. Compiled in FRTHRPN2 FORTH file. Article 0370 published in PPC Computer Journal V3N6P24. 0380 @ty 2 @sk 0390 DISPTEST 0400 @f off @f @ty 1 0410 Same as DT but in HP BASIC. Type number of seconds then press [RUN]. The LCD 0420 will stay on for that number of seconds then turn off. 0430@ty 2 @p 0440 MASSDUMP 0450@f off @f @ty 1 0460 Dump record(s) in mass medium in HEX or ASCII. Similar to TAPEDUMP published 0470 in PPC V2N3P6. 0480 @ty 2 @sk 0490 REFMT 0500 @f off @f @ty 1 0510 Resize TEXT file copied from mass medium (tape or disc but not card) to correct 0520 size. The HP71 assumes the number of records as file size, for example, a 800 0530 bytes TEXT file copied to disc and copied back would have file size of 1024 0540 bytes (the null bytes are not claimed even the file is edited!), hence the need 0550 of the program. FORTH/ASSEMBLER ROM required. 0560 @ty 2 @sk 0570 CONVTXT 0580 @f off @f @ty 1 0590 Delete or append line numbers in TEXT files so that it can be used on HP75 or 0600 vice versa. 0610 @ty 2 @sk 0620 LCDRAW 0630 @f off @f @ty 1 0640 Draws pattern on LCD. The cursor is reduced as one pixel (dot) and can be 0650 moved using cursor keys. [D] draws with pen down (ie: turn on dots when cursor 0660 is moved), [E] erases dots when moving the cursor, [M] moves cursor without drawing 0670 or erasing dots [Q] Quit. Setting flag 1 before pressing [RUN] will not 0680 clear pattern in display. The graphic bits are stored in L$. 0690 @ty 2 @sk 0700 LOGO 0710 @f off @f @ty 1 0720 Data file contains 4 fun logos, an HP logo, a Pac Man logo and two CHHU logos. 0730 @ty 5 @sk 0740 New files added: 0750@f off @f 0760 For HP75: 0770 @ty 2 @sk 0780 LINK75 0790 @f off @f @ty 1 0800 Improved versions of previous LINK programs. 0810 @ty 2 @sk 0820 CATALOGT 0830 @f off @f @ty 1 0840 ThinkJet version of CATALOG. 0850 @ty 2 @sk 0860 SDDCOPY 0870 @f off @f @ty 1 0880 Single disc drive copy, uses HPILCMD LEX file instead of I/O ROM to speed up 0890 transfer. (ROM switching reduces speed by more than 20% !) The program does 0900 not provide any additional information like SCDCOPY. A string of 19K is 0910 created for temporary storage, hence 8K RAM module is needed. (All other files 0920 must be removed from memory to have enough memory to run the program) 0930 @ty 2 @sk 0940 IOCONV 0950 @f off @f @ty 1 0960 Convert programs to use I/O ROM keywords instead of the keywords used in various 0970 LEX files; HPILCMDS, DEMOLEX, AUTOLOOP, etc. Clever use of SET ACCESS in I/O ROM 0980 prevent copying and purging of LEX files everytime when a program is 0990 converted (by clearing the token bit) Soon to be published in CHHU Chronicle. 1000 @ty 2 @sk 1010 INPMFPTJ 1020 @f off @f @ty 1 1030 ThinkJet version of plotting program in EPSON ESC mode. I/O ROM required. See 1040 also PPC Computer Journal V3N6P2. 1050 @ty 2 @sk 1060 MFPLOTTJ 1070 @f off @f @ty 1 1080 Same as above. 1090 @ty 2 @p 1100 PLOT3DTJ 1110 @f off @f @ty 1 1120 ThinkJet 3D plotting program in EPSON ESC mode. Article published in PPC 1130 Computer Journal V3N5P7. See also PPC Journal V12N2P28 for bug fix. 1140 @ty 2 @sk 1150 BPLOTTJ 1160 @f off @f @ty 1 1170 Same as above. 1180 @ty 2 @sk 1190 GCALENTJ 1200 @f off @f @ty 1 1210 Same as above. 1220 @ty 5 @sk 1230 For HP71: 1240 @ty 2 @f off @f 1250 LINK71 1260 @f off @f @ty 1 1270 Improved version of previous LINK programs. 1280 @ty 2 @sk 1290 VECTOR 1300 @f off @f @ty 1 1310 RPN vector calculator. There are two stacks, one vector stack (with user 1320 specified dimension) and a real number stack. Each stack has 4 levels, X-Y-Z-T 1330 and LASTX. Keys are arranged in HP10 series fashion. [SPC] 1340 for toggling between two stacks 1350 (flag 0 on indicates real stack), [.] for initating number entry in 1360 either stack, [C] performs vector cross product (must be 3D vector), [D] performs 1370 vector dot (inner) product. [Up/Down-Arrow] for roll up and roll down 1380 stack, [g] [ENDLINE] is LASTX, [+] [-] [*] [/] perform simple math in real 1390 stack, where as [+] [-] are vector addition and subtraction in vector stack, and 1400 [*] [/] are scalar multiplication and division of real X and vector X. [F] 1410 is FNORM (in math module), or length of vector. [V] is X<>Y in respective 1420 stack. [B] is back-arrow, and [P] is CHS. [T] is transfer vector element 1430 to real stack. [f] [/] is SQRT, [g] [/] is X^2, [f] [4] is SIN, [f] [5] is 1440 COS, [f] [1] is ASIN and [f] [2] is ACOS. [Q] to quit. Press a character 1450 key to recover form error message. Example: FIX 2, run VECTOR, [ENDLINE] (use default 1460value) to define 3D vector. [.] and enter 1,2,3. To find length of vector, press 1470 [F], see 3.74 in real stack. To find the unit vector, [SPC] [/], see 1480 0.27\0.53\0.80. To find direction angles, Alpha is: [T] 1 [ENDLINE] [f] [2], 1490 Beta is: [T] 2 [ENDLINE] [f] [2] and Gamma is: [T] 3 [ENDLINE] [g] [2]. NOTE: 1500 when performing operations, the result is always put into its respective stack, 1510 (ie: Dot product is scalar, Cross product is vector, etc.) And only the stack 1520 that stores the result is altered (ie: Dot product will push result in real stack) 1530 MATH ROM is required and SCROLL statement is used from FORTH/ASSEMBLER ROM. 1540 @ty 2 @sk 1550 Additional information on ThinkJet: 1560 @f @f off @ty 1 1570 To switch to ESPON ESC mode: 1580 HP75: SEND UNL LISTEN DEVADDR(":P1") DDL 6 DATA 18 SDC 1590 HP71: SEND UNL LISTEN DEVADDR("HP2225B") MTA DDL 6 DATA 18 SDC 1600@sk @f 1610 Note: press RESET button on ThinkJet before executing the sequence to prevent 1620 undesirable form feed. 1630@sk @f off 1640 I hope you folks enjoy all these programs. 1650 1660 Happy Programming! 1670 1680 Albert Shan [494] 1690 1709 S. Bonnie Brae St. 1700 L.A., CA 90006 ** This address is valid till end of August '85 **