NSUGV17 <*>  =MATINV  =LNCURV  * *CPYFILE -D.WORDS* *BDOS  *TRANSLT. *SORTER 6 ?SORTS < *SMSORTRC -SOLCHASH -CUTCHASN *SORTED jF *TESTFLEV  *TSTFLE1`  *NAV1  *NAV2  * MATRIX INVERSI RINE ; Written April 5,'78. H. Frohbach, 408) 7369324. > Time to run is proportional to SQUARE of matrix size.. =( e.g., size 15 takes 9 times as long as size 5, etc.) ?2 The format at line 705 is just to make the columns neat. =< For more accuracy, delete 705 at expense of neatness. \"PROGRAM ASSUMES THAT THE OPERATIONS ARE PERFORMED BY" = "COMPETENT WORKMAN WITH PROPER INSTUCTIONS, TOOLS, AND" < "MATERIALS. NORMAL MANUFACTURING METHODS IMPROVEMENTS"  "ARE EXPECTED."  "T1= COST OF FIRST UNIT" 9 "LEARNING CURVE PERCENT = ESTIMATED SLOPE OF CURVE" = "EXPRESSED IN WHOLE #'S (IE, 89, 95, ETC) NORMAL RANGE" ; "FOR RELATIVELY SMALL QUANTITIES OF LESS THAN A FEW " "HUNDRED UNITS IS 75-98%." 2 \\"SELECT WHICH INFORMATION IS DESIRED : " & 5),"1. FIRST UNIT VALUE (T1) "  5),"2. CUM TOTAL ONLY " & 5),"3. INDIVIDUAL UNIT VALUE " *" 5),"4. UNIT VALUES AND CUM TOTAL " , A1 6 A11  @ A13  J T "NUMBER OF UNITS ",N4 ^ N41 N "h "LEARNING CURVE PERCENT ",L r "FIRST UNIT VALUE ",T1 | N21 N4  N10  BL100)  MB2)  A12 N2N4  YT1N2M)  \ COMPUTE CUM TAL  AM1  ET1A\ FCD)  N3N2.5371  CN3A  DN1.5371)A  QT1A)CD)  A12 X  N21   N21 : 2 \\"UNIT",10),"HOURS",20),"CUM TOTAL"\ & N2,10),T1,20),T1 0 D 2: N2,10),Y100.5)100,20),Q10.5)10 D N2 N X N2N4 b Q1Q10.5)10 6l \"CUM TOTAL FOR ",N4," UNITS IS ",Q10.5)10 >v \"CUM AVE FOR ",N4," UNITS IS ",Q1N4)1000.5)1000  # \ COMPUTE FIRST UNIT UE T1)   "UNIT NUMBER ",N2 " "LEARNING CURVE PERCENT ",L  "UNIT VALUE ",T2  ML100)2)  T1T2N2M 6 \"THEORETICAL VALUE OF T1 IS ",T1100.5)100   # \ COMPUTE INDIVIDUAL UNIT UE   "FIRST UNIT VALUE ",T1 #  "LEARNING CURVE PERCENT ",L  "UNIT NUMBER ",N2   N21 * ML100)2) 4 T2T1N2M) > T9T2100.5)100 H #R "VALUE OF UNIT ",N2," IS ",T9 \  'D69Y(b5fXC`@q@@x`DA81(AP7UAhid@SqBsxD""`fR$0BSO  lB`0`4t4E&ƙB:`", RҴ!Q#2oOQ#m8 "NOTE: 'TYPE ERROR' IMPLIES WRONG PRECISION BASIC"  F$8)  Y KSAK 415) 3665228 .( 504 LAKEMEAD WAY, REDWOOD CITY CA 94062 92 ALLOWS COPYING FILES IN BASIC, WITH A SIMULTANEOUS < FILE ENTS SUMMARY F "COPY FROM FILE:",F$ P #0,F$ AZ "ANTICIPATED TOTAL NO. NUMBERS, CHARACTERS, STRINGS:",N,C,T 'd "MAX.LENGTH OF ANY ONE STRING:",G n G0 Y$G) x X$6TCN),XN)  M0  S0  K0  0)1 6,, #0,Y$ LY$)  X$K1,K1)"$"  X$K2,K6)L)  L0  X$K7,K6L)Y$ KK6L SS1  MM1  #0,XM)  X$K1,K1)"#" " KK1 , 6 #0 K@ "HAVE READ",M," NUMBERS AND",S," STRINGS TOTALLING",KS6M," CHAR'S" J K1 T I0 6^ "INSERT DISKETTE TO COPY ONTO. COPY TO FILE:",F$ h #0,F$ r X$K,K)"#"  | X$K,K)"$"   JK1 K5  X$J,J)"0"   X$J,J)"9"     J   LX$J,K5))  #0,X$K6,K5L)  KK6L  r  KK1  II1  #0,XI)  r  #0  IS CONFIGURED FOR. THE BASIC CAN BE RELOCATED TO ANY 256 BYTE PAGE BOUNDARY. THE BASIC CAN BE CONFIGURED FOR A DOS AT ANY LOCATION. THIS PROG A1 20\\  29), "DIRTY WORDS"\\ E "Please list 10 of your very favorite dirty words, hitting the" %( "'RETURN' key after each word." 2 \ < " 1. ",A$ F " 2. ",B$ P " 3. ",C$ Z " 4. ",D$ d " 5. ",E$ n " 6. ",F$ x " 7. ",G$  " 8. ",H$  " 9. ",I$  " 10. ",J$  A1 10\\  A),A$  A),B$  A),C$  A),D$   A),E$    A),F$ "  , A),G$ 6  @ A),H$ J  T A),I$ ^  h A),I$ r  | A),J$   A60X)  XXXYY(Y9YJY[YlY}YXDXB AAAAAAAAAA BBBBBBBBBB CCCCCCCCCC DDDDDDDDDD EEEEEEEEEE FFFFFFFFFF HHHHHHHHHH IIIIIIIIII JJJJJJJJJJ KKKKKKKKKK8 BDOS BASIC Extentions to DOS to run under BASIC  h  List of routines ( Variable Directory 2 B Number of Disk blocks *< C Count of Directory entries active F D Directory pointer P D1 Filedependent info Z D3 Save value of D d F$ File name n F1$ One byte of file name (x F2$ File name just read from disk  F3$ Saved value of F$ + L Left byte of twobyte binary field . P Displacement within a directory entry , R Right byte of twobyte binary field  R$ Reply from console  S Sector address of file & S1 Next available unused sector  T File type  T3 Saved value of T  List of routines  h Main routine   Create routine '  Rewrite a directory block   Rename routine  p Delete routine   List routine "  Shrink routine ,  End routine 76  Locate & read a directory entry subroutine 4@  Read a twobyte binary field subroutine 5J  Read the next directory block subroutine *T v Write a twobyte binary field ^  Run routine >h "Create, Rename, Delete, List, Shrink, Go, or End: ",R$ r R$)0 h | R$R$1,1)  R$"E"  "Enter file name: ",F$  R$"L"   R$"C"   S10   "File already exists."  h  F3$F$  F$""    S11   "Directory if full"  h ! FIND THE AVAILABLE BLOCK  D3D  D0 1008 16 &  0 F$" " N : S1SB N D S1SB N D X F$F3$ b DD3 l SS1 #v "Enter number of blocks: ",B  "Enter file type: ",T  P0 7  F1F$P1,P1))  #1%DP,&F1,  P  XS  v  XB  v  #1%D12,&T,  h  R$"R" p  S11   "Old name not found"  h  F3$F$  D3D * "Enter new name: ",F$ 4  > S10 \ !H "New name already exists." R h \ DD3 f  p R$"D"  z S11   "File not found"  h  F$" "    R$"L"  1 "Enter file type wanted or 0 for all: ",T3  F3$F$  S10  C0 / "File name",12),"Sector",19),"Size",  25),"File type" / "=========",12),"======",19),"====",  25),"========="  D0 1008 16    F$" "  $ CC1 . S1SB S1SB 8 T30 L B TT3  L F3$"" ~ V P1 F3$) ` F3$P,P)"*" t j F$P,P)F3$P,P)  t P '~ F$,12),S,19),B,25),T," (",  T1 ,,,,  "Unspecified)"\  ( "Machine language program)"\   "BASIC Program)"\   "BASIC Data)"\   "ALS-8 File)"  D % \ "Next available sector: ",S1 $ C," Directory records in use" ( "Disk is ",S1100350),"% full" + "Directory is ",C10064),"% full"  h  R$"S"    S10   T2 2  "File is not BASIC" ( h 2 D1B n '< "Actual size, ",D1," is invalid" F h P BD1 n Z "Size unchanged" d h 'n "Size changed from ",B," to ",D1 x BD1    R$"G"   "Invalid request, ",R$  h  S01  ) #1,"<*>"\ IS NAME OF DIRECRY  S01  S10  F$F$" "  F$F$1,8)  D0 1008 16  F2$""  P0 7  #1%DP,&F1  F1$F1)  F2$F2$F1$ " P , F$F2$ S11 6 S11 T @ D J S10 T P8 ^  h SX r  | BX  #1%DP,&T  D10  T1   P13    D1X   T2  #1%D13,&D1    #1%DP,&R,&L  PP2  XL256R   S01 : & #1,"<*>" 0 S01 : F$"" D P0 7 N #1%DP,&F1 X F$F$F1) b P l T v LX256)  RXL256)  #1%DP,&R,&L,  PP2   S10   F$ feeieffXeezeff EIST e  f Af SMSO9 PROGRAM USED ENTER THE INSTRUCTIS YOUR MICRO : PROCESS ST THEM O DER . HELPS YOU TRANSLATE ; A PROGRAM YOU ARE FAMILIAR WITH ALL OF THE CODES A( THAT YOUR CHIP USES. THE'STED'FILE WAS SET UP THE Z 80A <2 CHIP IN THE HIZ.THE CODES CAME FROM THE MOSTEK Z 80 < MANUAL. 9F THE ST USED IN THIS PROGRAM IS A BUBBLE ST DE 9P THE DISK. APPLICATIS THAT ARE LGER,THERE ARE 2 ",S1 < F9$8),F7$8),F3$3) F B$8)\B$" " P E$S1),E1$S1),W$S1) Z A3$0)348) ",F9$ B " NAME OF FILE TO BE WRITTEN TO AFTER SORT> ",F7$\F7$F7$B$  F7$1,1)" " F7$F9$  #0,F9$\#0,N - N," RECORDS ARE ON FILE"," 0 THRU ",N1 > "------------------------------------------------------" > "WATCH THE SIZE OF YOUR MEMORY-THIS IS AN INTERNAL SORT" > "------------------------------------------------------"  + "STARTING POSITION OF SORT FIELD? ",P ' "LAST POSITION OF SORT FIELD? ",Q  IZ B1  I, , #0%IS15,A3$IS1)5,IS1)S15))  I   XZ B1 " X, , E$A3$XS15,XS1S15) 6 Y Z X @ E1$A3$YS15,YS1S15) J E$P,Q) E1$P,Q)  T SWITCH HERE ^ W$E$ h E$E1$ r E1$W$ | A3$XS15,XS1S15)E$  A3$YS15,YS1S15)E1$  Y  X  \#0  #1,F7$  LOOP  IG B1  I, ' #1%IS15,A3$IS15,IS1S15),  I  \#1%0,N,\#1  "SORT COMPLETE"   Z0\BN 2 " SORTING THE 1ST TO THE ",N," TH RECORDS ", " "(ENTRY #0 TO ",N1,")"\ > "THIS IS A SET OF PROGRAMS. IT WAS DESIGNED TO HELP YOU" ; "TRANSLATE PROGRAMS THAT YOU DID NOT WRITE YOURSELF."  $( "PRESS RETURN TO CONTINUE ",R$ 2 4< "THE SET OF PROGRAMS ALSO HAS A SIDE-BENEFIT." >F "THERE ARE 3 DIFFERENT SORTING METHODS AVAILABLE TO YOU" AP "THE FIRST IS A BUBBLE SORT THAT WRITES TO DISK AS IT GOES" Z $d "PRESS RETURN TO CONTINUE ",R$ n =x "THE SECOND IS A BUBBLE SORT THAT USES INTERNAL MEMORY" = " TO SORT AND IS MUCH FASTER.WHEN I SORTED 699 RECORDS" : " USING SORT 1,THE TIME WAS 27 HOURS. USING SORT 2,"  " THE TIME WAS 3 HOURS."  $ "PRESS RETURN TO CONTINUE ",R$  : "THE THIRD SORTING METHOD IS ALSO AN INTERNAL SORT." = "IT USES A MERGE-SORT TECHNIQUE THAT IS VERY VERY FAST" : "TO SORT THE SAME 699 RECORDS TOOK ONLY 12 MINUTES."  $ "PRESS RETURN TO CONTINUE ",R$  8 "SORT TYPE 1 IS IN THE PROGRAM CALLED 'TRANSLAT' "  6 "SORT TYPE 2 IS IN THE PROGRAM CALLED 'SORTER' "  7" "SORT TYPE 3 IS IN THE PROGRAM CALLED 'SMSORTR' " , $6 "PRESS RETURN TO CONTINUE ",R$ @ 3J "ALSO IN THE PACKAGE ARE PROGRAMS CALLED -- " @T " 'SORTED'--THIS IS A SORTED LISTING OF THE Z80 OP CODES " ^ :h " 'TESTFILE'--A FILE USED TO TEST THE PROGRAMS HERE" r 6| " 'TSTFILE1'--A FILE TO WRITE THE TEST INFO TO "  $ "PRESS RETURN TO CONTINUE ",R$  8 "SO HAVE FUN EXPERIMENTING WITH THE VARIOUS SORT" 9 "TECHNIQUES. IF YOU WANT , YOU CAN MODIFY THE SORT" 8 "PROGRAMS TO START THE SORT AT ONE OF THE MIDDLE " > " ITEMS AND END AT ANOTHER ITEM BEYOND IT IN THE MIDDLE"  > "JUST BE SURE TO REMEMBER TO WRITE THE REST OF THE FILE" , " AFTER YOU WRITE THE SORTED PORTION."  7 THIS IS A FAST MERGEST PROGRAM. YOU MUST ENTER 8 THE FILE BE STED THE FILE BE WRITTEN AFTER : THE ST.ALSO ENTER THE GTH OF THE ENTIRE RECD 2 5( THE BEGINNING ING POSITIS OF THE AREA 52 BE STED. THIS IS AN ERNAL ST, SO WATCH YOUR < MEMY SIZE. %F "SIZE OF ENTIRE RECORD + 2 ",S1 P F9$8),F7$8),F3$3) Z B$8)\B$" " d E$S1),E1$S1),W$S1) n A3$0)356) x "FILE TO BE SORTED ",F9$ * "FILE TO BE WRITTEN AFTER SORT ",F7$  #0,F9$\#0,N\N\SN1 Z0\G0 & "FIRST POSITION TO BE SORTED ",P % "LAST POSITION TO BE SORTED ",Q  IZ S  I, , #0%IS15,A3$IS1)5,IS1)S15))  I   MS MM2)  M0   J0\KSM  IJ\I,  LIM " E$A3$IS15,IS1S15) , E1$A3$LS15,LS1S15) 6 E$P,Q)E1$P,Q) | @ W$E$\E$E1$\E1$W$ J A3$IS15,IS1S15)E$ T A3$LS15,LS1S15)E1$ ^ IIM h I1 | r  | JJ1  JK     #1,F7$  IG N1  I, % #1%IS15,A3$IS15,IS1S15)  I  #1%0,N,  "DONE" $BEZDUMMY TZFINISH   Z 221PN͒!!ͩ2N͇͒6X͇6 8 ͇6XL͇6 ͇6XX ͇6Xj:G>GͿWͿ_ͩ}͇}o6X}!6T!6Y!6U!86\!:6^!<6/!v6G!x6 !z6H!|6 !~6J!6/!6 !6\!6B!6N!6M"""""7XͿWͿ_͇ͩ~ 6XͿWͿ_ͩ7͇~ 76" ͩ*6 JlUoY_TuGiB{NdḾP̝Hʛ~ …6"ͿX© * 8"* 8"* 8"* 8"* 8"~X7?~ʅX66$6, 6X6 q~M^}o*}O|G_y_dd}?o*}?li6 l:<2͒,: Ϳʴ*6*6*6::Ϳ7X: 1: N!:02':02)PN!p:02':02)!@++##_l_ididl!z@ʜ#=Ž{ʧ#=ßz7z 7{7{17?!~---~w,~w,~w,~w*~*~*~*~*~v*lC_CiCiCdCdClClC~^B!6 #|Q!!!7:<2͒,!wY:0!w:0@w!c!h! 6 #  w# w# * * THE GAME OF CHASE * * CAUTION - ROBOT NEAR! YOU HAVE BEEN DESTROYED! CONGRATULATIONS - YOU HAVE WON! --SCORE--YOU!ROBOTS!THE ROBOTS HAVE WON - : YOU HAVE BEATEN THEM - : HIT ANY KEY TO PLAY AGAIN..... LEVEL OF DIFFICULTY (0-9)? 4xV fͦZ221PN͒!!ͩ2N͇͒6X͇6 8 ͇6XL͇6 ͇6XX ͇6Xj:G>GͿWͿ_ͩ}͇}o6X}!6T!6Y!6U!86\!:6^!<6/!v6G!x6 !z6H!|6 !~6J!6/!6 !6\!6B!6N!6M"""""7XͿWͿ_͇ͩ~ 6XͿWͿ_ͩ7͇~ 76" ͩ*6 JlUoY_TuGiB{NdḾP̝Hʛ~ …6"ͿX© * 8"* 8"* 8"* 8"* 8"~X7?~ʅX66$6, 6X6 q~M^}o*}O|G_y_dd}?o*}?li6 l:<2͒,: Ϳʴ*6*6*6::Ϳ7X: 1: N!:02':02)PN!p:02':02)!@++##_l_ididl!z@ʜ#=Ž{ʧ#=ßz7z 7{7{17?!~---~w,~w,~w,~w*~*~*~*~*~v*lC_CiCiCdCdClClC~^B6Q!!!7:<2͒,!wY:0!w:0@w!c!h! 6 #  w# w# * * THE GAME OF CHASE * * CAUTION - ROBOT NEAR! YOU HAVE BEEN DESTROYED! CONGRATULATIONS - YOU HAVE WON! --SCORE--YOU:ROBOTS:THE ROBOTS HAVE WON - : YOU HAVE BEATEN THEM - : HIT ANY KEY TO PLAY AGAIN..... LEVEL OF DIFFICULTY (0-9)?% $^*foB^ofB^B00000000AAAAABCDEFGHIJ11111111BBBBABCDEFGHIJ33333333CCCCABCDEFGHIJ44444444DDDDABCDEFGHIJ55555555EEEEABCDEFGHIJ66666666FFFFABCDEFGHIJ77777777GGGGABCDEFGHIJ88888888HHHHABCDEFGHIJ99999999IIIIABCDEFGHIJ10000000JJJJABCDEFGHIJ20000000KKKKABCDEFGHIJ30000000LLLLABCDEFGHIJ40000000MMMMABCDEFGHIJ22222222ZZZZABCDEFGHIJ B00000000AAAAABCDEFGHIJ10000000JJJJABCDEFGHIJ11111111BBBBABCDEFGHIJ20000000KKKKABCDEFGHIJ22222222ZZZZABCDEFGHIJ30000000LLLLABCDEFGHIJ33333333CCCCABCDEFGHIJ40000000MMMMABCDEFGHIJ44444444DDDDABCDEFGHIJ55555555EEEEABCDEFGHIJ66666666FFFFABCDEFGHIJ77777777GGGGABCDEFGHIJ88888888HHHHABCDEFGHIJ99999999IIIIABCDEFGHIJ  pC00 NOP NONE 018805 LD BC,NN 02 LD (BC),A 03 INC BC 04 INC B 05 DEC B 0620 LD B,N 07 RLCANONE 08 EX AF,AF' 09 ADD HL,BC 0A LD A,(BC) 0B DEC BC 0C INC C 0D DEC C 0E20 LD C,N 0F RRCANONE 102E DJNZDIS 118805 LD DE,NN 12 LD (DE),A 13 INC DE 14 INC D 15 DEC D 1620 LD D,N 17 RLA NONE 182E JR DIS 19 ADD HL,DE 1A LD A,(DE) 1B DEC DE 1C INC E 1D DEC E 1E20 LD E,N 1F RRA NONE 202E JR NZ,DIS 218805 LD HL,NN 228805 LD (NN),HL 23 INC HL 24 INC H 25 DEC H 2620 LD H,N 27 DAA NONE 282E JR Z,DIS 29 ADD HL,HL 2A8805 LD HL,(NN) 2B DEC HL 2C INC L 2D DEC L 2E20 LD L,N 2F CPL NONE 302E JR NC,DIS 318805 LD SP,NN 328805 LD (NN),A 33 INC SP 34 INC (HL) 35 DEC (HL) 3620 LD (HL),N 37 SCF NONE 382E JR C,DIS 39 ADD HL,SP 3A8805 LD A,(NN) 3B DEC SP 3C INC A 3D DEC A 3E20 LD A,N 3F CCF NONE 40 LD B,B 41 LD B,C 42 LD B,D 43 LD B,E 44 LD B,H 45 LD B,L 46 LD B,(HL) 47 LD B,A 48 LD C,B 49 LD C,C 4A LD C,D 4B LD C,E 4C LD C,H 4D LD C,L 4E LD C,(HL) 4F LD C,A 50 LD D,B 51 LD D,C 52 LD D,D 53 LD D,E 54 LD D,H 55 LD D,L 56 LD D,(HL) 57 LD D,A 58 LD E,B 59 LD E,C 5A LD E,D 5B LD E,E 5C LD E,H 5D LD E,L 5E LD E,(HL) 5F LD E,A 60 LD H,B 61 LD H,C 62 LD H,D 63 LD H,E 64 LD H,H 65 LD H,L 66 LD H,(HL) 67 LD H,A 68 LD L,B 69 LD L,C 6A LD L,D 6B LD L,E 6C LD L,H 6D LD L,L 6E LD L,(HL) 6F LD L,A 70 LD (HL),B 71 LD (HL),C 72 LD (HL),D 73 LD (HL),E 74 LD (HL),H 75 LD (HL),L 76 HALTNONE 77 LD (HL),A 78 LD A,B 79 LD A,C 7A LD A,D 7B LD A,E 7C LD A,H 7D LD A,L 7E LD A,(HL) 7F LD A,A 80 ADD A,B 81 ADD A,C 82 ADD A,D 83 ADD A,E 84 ADD A,H 85 ADD A,L 86 ADD A,(HL) 87 ADD A,A 88 ADC A,B 89 ADC A,C 8A ADC A,D 8B ADC A,E 8C ADC A,H 8D ADC A,L 8E ADC A,(HL) 8F ADC A,A 90 SUB B 91 SUB C 92 SUB D 93 SUB E 94 SUB H 95 SUB L 96 SUB (HL) 97 SUB A 98 SBC A,B 99 SBC A,C 9A SBC A,D 9B SBC A,E 9C SBC A,H 9D SBC A,L 9E SBC A,(HL) 9F SBC A,A A0 AND B A1 AND C A2 AND D A3 AND E A4 AND H A5 AND L A6 AND (HL) A7 AND A A8 XOR B A9 XOR C AA XOR D AB XOR E AC XOR H AD XOR L AE XOR (HL) AF XOR A B0 OR B B1 OR C B2 OR D B3 OR E B4 OR H B5 OR L B6 OR (HL) B7 OR A B8 CP B B9 CP C BA CP D BB CP E BC CP H BD CP L BE CP (HL) BF CP A C0 RET NZ C1 POP BC C28805 JP NZ,NN C38805 JP NN C48805 CALLNZ,NN C5 PUSHBC C620 ADD A,N C7 RST 0 C8 RET Z C9 RET NONE CA8805 JP Z,NN CB00 RLC B CB01 RLC C CB02 RLC D CB03 RLC E CB04 RLC H CB05 RLC L CB06 RLC (HL) CB07 RLC A CB08 RRC B CB09 RRC C CB0A RRC D CB0B RRC E CB0C RRC H CB0D RRC L CB0E RRC (HL) CB0F RRC A CB10 RL B CB11 RL C CB12 RL D CB13 RL E CB14 RL H CB15 RL L CB16 RL (HL) CB17 RL A CB18 RR B CB19 RR C CB1A RR D CB1B RR E CB1C RR H CB1D RR L CB1E RR (HL) CB1F RR A CB20 SLA B CB21 SLA C CB22 SLA D CB23 SLA E CB24 SLA H CB25 SLA L CB26 SLA (HL) CB27 SLA A CB28 SRA B CB29 SRA C CB2A SRA D CB2B SRA E CB2C SRA H CB2D SRA L CB2E SRA (HL) CB2F SRA A CB38 SRL B CB39 SRL C CB3A SRL D CB3B SRL E CB3C SRL H CB3D SRL L CB3E SRL (HL) CB3F SRL A CB40 BIT 0,A CB41 BIT 0,C CB42 BIT 0,D CB43 BIT 0,E CB44 BIT 0,H CB45 BIT 0,L CB46 BIT 0,(HL) CB47 BIT 0,A CB48 BIT 1,B CB49 BIT 1,C CB4A BIT 1,D CB4B BIT 1,E CB4C BIT 1,H CB4D BIT 1,L CB4E BIT 1,(HL) CB4F BIT 1,A CB50 BIT 2,B CB51 BIT 2,C CB52 BIT 2,D CB53 BIT 2,E CB54 BIT 2,H CB55 BIT 2,L CB56 BIT 2,(HL) CB57 BIT 2,A CB58 BIT 3,B CB59 BIT 3,C CB5A BIT 3,D CB5B BIT 3,E CB5C BIT 3,H CB5D BIT 3,L CB5E BIT 3,(HL) CB5F BIT 3,A CB60 BIT 4,B CB61 BIT 4,C CB62 BIT 4,D CB63 BIT 4,E CB64 BIT 4,H CB65 BIT 4,L CB66 BIT 4,(HL) CB67 BIT 4,A CB68 BIT 5,B CB69 BIT 5,C CB6A BIT 5,D CB6B BIT 5,E CB6C BIT 5,H CB6D BIT 5,L CB6E BIT 5,(HL) CB6F BIT 5,A CB70 BIT 6,B CB71 BIT 6,C CB72 BIT 6,D CB73 BIT 6,E CB74 BIT 6,H CB75 BIT 6,L CB76 BIT 6,(HL) CB77 BIT 6,A CB78 BIT 7,B CB79 BIT 7,C CB7A BIT 7,D CB7B BIT 7,E CB7C BIT 7,H CB7D BIT 7,L CB7E BIT 7,(HL) CB7F BIT 7,A CB80 RES 0,B CB81 RES 0,C CB82 RES 0,D CB83 RES 0,E CB84 RES 0,H CB85 RES 0,L CB86 RES 0,(HL) CB87 RES 0,A CB88 RES 1,B CB89 RES 1,C CB8A RES 1,D CB8B RES 1,E CB8C RES 1,H CB8D RES 1,L CB8E RES 1,(HL) CB8F RES 1,A CB90 RES 2,B CB91 RES 2,C CB92 RES 2,D CB93 RES 2,E CB94 RES 2,H CB95 RES 2,L CB96 RES 2,(HL) CB97 RES 2,A CB98 RES 3,B CB99 RES 3,C CB9A RES 3,D CB9B RES 3,E CB9C RES 3,H CB9D RES 3,L CB9E RES 3,(HL) CB9F RES 3,A CBA0 RES 4,B CBA1 RES 4,C CBA2 RES 4,D CBA3 RES 4,E CBA4 RES 4,H CBA5 RES 4,L CBA6 RES 4,(HL) CBA7 RES 4,A CBA8 RES 5,B CBA9 RES 5,C CBAA RES 5,D CBAB RES 5,E CBAC RES 5,H CBAD RES 5,L CBAE RES 5,(HL) CBAF RES 5,A CBB0 RES 6,B CBB1 RES 6,C CBB2 RES 6,D CBB3 RES 6,E CBB4 RES 6,H CBB5 RES 6,L CBB6 RES 6,(HL) CBB7 RES 6,A CBB8 RES 7,B CBB9 RES 7,C CBBA RES 7,D CBBB RES 7,E CBBC RES 7,H CBBD RES 7,L CBBE RES 7,(HL) CBBF RES 7,A CBC0 SET 0,B CBC1 SET 0,C CBC2 SET 0,D CBC3 SET 0,E CBC4 SET 0,H CBC5 SET 0,L CBC6 SET 0,(HL) CBC7 SET 0,A CBC8 SET 1,B CBC9 SET 1,C CBCA SET 1,D CBCB SET 1,E CBCC SET 1,H CBCD SET 1,L CBCE SET 1,(HL) CBCF SET 1,A CBD0 SET 2,B CBD1 SET 2,C CBD2 SET 2,D CBD3 SET 2,E CBD4 SET 2,H CBD5 SET 2,L CBD6 SET 2,(HL) CBD7 SET 2,A CBD8 SET 3,B CBD9 SET 3,C CBDA SET 3,D CBDB SET 3,E CBDC SET 3,H CBDD SET 3,L CBDE SET 3,(HL) CBDF SET 3,A CBE0 SET 4,B CBE1 SET 4,C CBE2 SET 4,D CBE3 SET 4,E CBE4 SET 4,H CBE5 SET 4,L CBE6 SET 4,(HL) CBE7 SET 4,A CBE8 SET 5,B CBE9 SET 5,C CBEA SET 5,D CBEB SET 5,E CBEC SET 5,H CBED SET 5,L CBEE SET 5,(HL) CBEF SET 5,A CBF0 SET 6,B CBF1 SET 6,C CBF2 SET 6,D CBF3 SET 6,E CBF4 SET 6,H CBF5 SET 6,L CBF6 SET 6,(HL) CBF7 SET 6,A CBF8 SET 7,B CBF9 SET 7,C CBFA SET 7,D CBFB SET 7,E CBFC SET 7,H CBFD SET 7,L CBFE SET 7,(HL) CBFF SET 7,A CC8805 CALLZ,NN CD8805 CALLNN CE20 ADC A,N CF RST 08H D0 RET NC D1 POP DE D28805 JP NC,NN D320 OUT (N),A D48805 CALLNC,NN D5 PUSHDE D620 SUB N D7 RST 10H D8 RET C D9 EXX NONE DA8805 JP C,NN DB20 IN A,(N) DC8805 CALLC,NN DD09 ADD IX,BC DD19 ADD IX,DE DD218805LD IX,NN DD228805LD (NN),IX DD23 INC IX DD29 ADD IX,IX DD2A8805LD IX,(NN) DD2B DEC IX DD3405 INC (IX+IND) DD3505 DEC (IX+IND) DD360520LD (IX+IND),NDD39 ADD IX,SP DD4605 LD B,(IX+IND)DD4E05 LD C,(IX+IND)DD5605 LD D,(IX+IND)DD5E05 LD E,(IX+IND)DD6605 LD H,(IX+IND)DD6E05 LD L,(IX+IND)DD7005 LD (IX+IND),BDD7105 LD (IX+IND),CDD7205 LD (IX+IND),DDD7305 LD (IX+IND),EDD7405 LD (IX+IND),HDD750D LD (IX+IND),LDD7705 LD (IX+IND),ADD7E05 LD A,(IX+IND)DD8605 ADD A,(IX+IND)DD8E05 ADC A,(IX+IND)DD9605 SUB (IX+IND) DD9E05 SBC A,(IX+IND)DDA605 AND (IX+IND) DDAE05 XOR (IX+IND) DDB605 OR (IX+IND) DDBE05 CP (IX+IND) DDCB0506RLC (IX+IND) DDCB050ERRC (IX+IND) DDCB0516RL (IX+IND) DDCB051ERR (IX+IND) DDCB0526SLA (IX+IND) DDCB052ESRA (IX+IND) DDCB052ESRA (IX+IND) DDCB053ESRL (IX+IND) DDCB0546BIT 0,(IX+IND)DDCB054EBIT 1,(IX+IND)DDCB0556BIT 2,(IX+IND)DDCB055EBIT 3,(IX+IND)DDCB0566BIT 4,(IX+IND)DDCB056EBIT 5,(IX+IND)DDCB0576BIT 6,(IX+IND)DDCB057EBIT 7,(IX+IND)DDCB0586RES 0,(IX+IND)DDCB058ERES 1,(IX+IND)DDCB0596RES 2,(IX+IND)DDCB059ERES 3,(IX+IND)DDCB05A6RES 4,(IX+IND)DDCB05AERES 5,(IX+IND)DDCB05B6RES 6,(IX+IND)DDCB05BERES 7,(IX+IND)DDCB05C6SET 0,(IX+IND)DDCB05CESET 1,(IX+IND)DDCB05D6SET 2,(IX+IND)DDCB05DESET 3,(IX+IND)DDCB05E6SET 4,(IX+IND)DDCB05EESET 5,(IX+IND)DDCB05F6SET 6,(IX+IND)DDCB05FESET 7,(IX+IND)DDE1 POP IX DDE3 EX (SP),IX DDE5 PUSHIX DDE9 JP (IX) DDF9 LD SP,IX DE20 SBC A,N DF RST 18H E0 RET PO E1 POP HL E28805 JP PO,NN E3 EX (SP),HL E48805 CALLPO,NN E5 PUSHHL E620 AND N E7 RST 20H E8 RET PE E9 JP (HL) EA8805 JP PE,NN EB EX DE,HL EC8805 CALLPE,NN ED40 IN B,(C) ED41 OUT (C),B ED42 SBC HL,BC ED438805LD (NN),BC ED44 NEG NONE ED45 RETNNONE ED46 IM 0 ED47 LD I,A ED48 IN C,(C) ED49 OUT (C),C ED4A ADC HL,BC ED4B8805LD BC,(NN) ED4D RETINONE ED4F LD R,A ED50 IN D,(C) ED51 OUT (C),D ED52 SBC HL,DE ED538805LD (NN),DE ED56 IM 1 ED57 LD A,I ED58 IN E,(C) ED59 OUT (C),E ED5A ADC HL,DE ED5B8805LD DE,(NN) ED5E IM 2 ED5F LD A,R ED60 IN H,(C) ED61 OUT (C),H ED62 SBC HL,HL ED67 RRD NONE ED68 IN L,(C) ED69 OUT (C),L ED6A ADC HL,HL ED6F RLD NONE ED72 SBC HL,SP ED738805LD (NN),SP ED78 IN A,(C) ED79 OUT (C),A ED7A ADC HL,SP ED7B8805LD SP,(NN) EDA0 LDI NONE EDA1 CPI NONE EDA2 INI NONE EDA3 OUTINONE EDA8 LDD NONE EDA9 CPD NONE EDAA IND NONE EDAB OUTDNONE EDB0 LDIRNONE EDB1 CPIRNONE EDB2 INIRNONE EDB3 OTIRNONE EDB8 LDDRNONE EDB9 CPDRNONE EDBA INDRNONE EDBB OTDRNONE EE20 XOR N EF RST 28H F0 RET P F1 POP AF F28805 JP P,NN F3 DI NONE F48805 CALLP,NN F5 PUSHAF F620 OR N F7 RST 30H F8 RET M F9 LD SP,HL FA8805 JP M,NN FB EI NONE FC8805 CALLM,NN FD09 ADD IY,BC FD19 ADD IY,DE FD218805LD IY,NN FD228805LD (NN),IY FD23 INC IY FD29 ADD IY,IY FD2A8805LD IY,(NN) FD2B DEC IY FD3405 INC (IY+IND) FD3505 DEC (IY+IND) FD360520LD (IY+IND),NFD39 ADD IY,SP FD4605 LD B,(IY+IND)FD4E05 LD C,(IY+IND)FD5605 LD D,(IY+IND)FD5E05 LD E,(IY+IND)FD6605 LD H,(IY+IND)FD6E05 LD L,(IY+IND)FD7005 LD (IY+IND),BFD7105 LD (IY+IND),CFD7205 LD (IY+IND),DFD7305 LD (IY+IND),EFD7405 LD (IY+IND),HFD7505 LD (IY+IND),LFD7705 LD (IY+IND),AFD7E05 LD A,(IY+IND)FD8605 ADD A,(IY+IND)FD8E05 ADC A,(IY+IND)FD9605 SUB (IY+IND) FD9E05 SBC A,(IY+IND)FDA605 AND (IY+IND) FDAE05 XOR (IY+IND) FDB605 OR (IY+IND) FDBE05 CP (IY+IND) FDCB0506RLC (IY+IND) FDCB050ERRC (IY+IND) FDCB0516RL (IY+IND) FDCB051ERR (IY+IND) FDCB0526SLA (IY+IND) FDCB052ESRA (IY+IND) FDCB053ESRL (IY+IND) FDCB0546BIT 0,(IY+IND)FDCB054EBIT 1,(IY+IND)FDCB0556BIT 2,(IY+IND)FDCB055EBIT 3,(IY+IND)FDCB0566BIT 4,(IY+IND)FDCB056EBIT 5,(IY+IND)FDCB0576BIT 6,(IY+IND)FDCB057EBIT 7,(IY+IND)FDCB0586RES 0,(IY+IND)FDCB058ERES 1,(IY+IND)FDCB0596RES 2,(IY+IND)FDCB059ERES 3,(IY+IND)FDCB05A6RES 4,(IY+IND)FDCB05AERES 5,(IY+IND)FDCB05B6RES 6,(IY+IND)FDCB05BERES 7,(IY+IND)FDCB05C6SET 0,(IY+IND)FDCB05CESET 1,(IY+IND)FDCB05D6SET 2,(IY+IND)FDCB05DESET 3,(IY+IND)FDCB05E6SET 4,(IY+IND)FDCB05EESET 5,(IY+IND)FDCB05F6SET 6,(IY+IND)FDCB05FESET 7,(IY+IND)FDE1 POP IY FDE3 EX (SP),IY FDE5 PUSHIY FDE9 JP (IY) FDF9 LD SP,IY FE20 CP N FF RST 38H  -d NAV1 n 6x GREAT CIRCLE NAVIGATI  6 W R MAS 51278 408) 9981060  : THIS NAVIGATIAL PROGRAM COMPUTES THE GREAT CIRCLE 8 DISTANCE BETWEEN TWO POS THE EARTH'S SURFACE, " THE INITIAL TRUE HEADING  4 SHERN LATITUDES EASTERN LGITUDES MUST BE # ENTERED AS NEGATIVE NUMBERS  = DO USE LATITUDES AT 90 DEG 90 DEG N S POLES)   \\"APT AT START ",S$  "APT AT DESTINATION ",D$ 0 \"LATITUDE OF START (DEG,MIN,SEC) ",D,M,S   " L1X /, "LONGITUDE OF START (DEG,MIN,SEC) ",D,M,S 6  @ E1X 4J "LATITUDE OF DESTINATION (DEG,MIN,SEC) ",D,M,S T  ^ L2X 5h "LONGITUDE OF DESTINATION (DEG,MIN,SEC) ",D,M,S r  | E2X - BL1)L2))L1)L2)E2E1)))  CBBB1))1.5708 # D6057.2958C)100.5)100 G \\"THE GREAT CIRCLE DISTANCE FROM ",S$," TO ",D$," IS ",D," NM" 0 HL2)L1)D60Y))D60Y)L1))  H1HHH1))1.5708 " H2H157.2958)100.5)100  E1E2)0 H2360H2 : \"INITIAL TRUE HEADING TO ",D$," IS ",H2," DEGREES"   Y3.14159180  XDM60)S3600)  XXY  *d NAV2 n 4x GREAT CIRCLE PLOTTING  2 W R MAS 51678 408) 9981060  3 GIVEN THE LATITUDE LGITUDE OF TWO POS 1 THE GLOBE AN ERMEDIATE LGITUDE, THIS 5 PROGRAM CALCULATES THE LATITUDE CRESPDING 0 THE ERSECTI OF THE GREAT CIRCLE RE  THE ERMEDIATE LGITUDE  1 SHERN LATITUDES EASTERN LGITUDES MUST & BE ENTERED AS NEGATIVE NUMBERS   \\"APT AT START ",S$  "APT AT DESTINATION ",D$ 0 \"LATITUDE OF START (DEG,MIN,SEC) ",D,M,S  & " L1X /, "LONGITUDE OF START (DEG,MIN,SEC) ",D,M,S 6 & @ E1X 4J "LATITUDE OF DESTINATION (DEG,MIN,SEC) ",D,M,S T & ^ L2X 5h "LONGITUDE OF DESTINATION (DEG,MIN,SEC) ",D,M,S r & | E2X 6 \"INTERMEDIATE LONGITUDE (DEG,MIN,SEC) ",D,M,S  &  E3X  AX)X)X) ( AAL2)E1)AL1)E2))E3) ( BAL2)E1)AL1)E2))E3)  L3AB)E2E1))  D1Y1L3)  M1Y1L3D1)60) , S1Y1L3D1)60M1)60)10.5)10  D1)1 D1D11  L3)1 M160M11)  L3)1 S160S1 G \\" INTERMEDIATE LATITUDE IS ",D1," DEG ",M1," MIN ",S1," SEC" 9 \\"CALCULATE ANOTHER INTERMEDIATE LAT? (Y/N) ",A$  A$1,1)"Y"  & Y3.14159180 0 Y11Y : XDM60)S3600) D XXY N [[O[Y[ SJC }[ PHX [C[