ARRAY.SRC
FILE INFORMATION
FILENAME(S): ARRAY.SRC
FILE TYPE(S): PRG
FILE SIZE: 9.8K
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
9818b5c1d355ee56b4e2f530698e8011326dc2d0d38629d62cd133fe1f75f8e0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | ARRAY.SRC | PRG | DuncanTwain | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 01 00 3B 41 52 52 41 59 20 4D 41 54 |......;ARRAY MAT|
00000010: 48 20 46 55 4E 43 54 49 91 53 00 31 08 02 00 3B |H FUNCTI.S.1...;|
00000020: 43 20 52 49 43 48 41 52 44 20 52 49 43 48 4D 91 |C RICHARD RICHM.|
00000030: 44 00 49 08 03 00 3B 20 33 30 38 20 52 4F 53 45 |D.I...; 308 ROSE|
00000040: 57 4F 4F 44 20 41 56 45 2E 00 61 08 04 00 3B 20 |WOOD AVE..a...; |
00000050: 53 50 52 49 4E 47 46 49 45 4C 44 2C 20 4F 48 49 |SPRINGFIELD, OHI|
00000060: 4F 00 6D 08 05 00 3B 20 34 35 35 30 36 00 82 08 |O.m...; 45506...|
00000070: 06 00 3B 20 28 35 31 33 29 20 33 32 32 AB 37 36 |..; (513) 322.76|
00000080: 35 30 00 8F 08 0A 00 B0 47 20 24 43 41 35 38 00 |50......G $CA58.|
00000090: B4 08 14 00 3A 4D 45 4D 46 41 43 20 2E 45 51 20 |....:MEMFAC .EQ |
000000A0: 24 42 42 41 32 20 20 3B 4D 45 4D B0 59 20 A4 20 |$BBA2 ;MEM.Y . |
000000B0: 46 41 43 31 00 D9 08 1E 00 3A 46 41 43 4D 45 4D |FAC1.....:FACMEM|
000000C0: 20 2E 45 51 20 24 42 42 44 34 20 20 3B 46 41 43 | .EQ $BBD4 ;FAC|
000000D0: 31 20 A4 20 4D 45 4D B0 59 00 06 09 28 00 3A 43 |1 . MEM.Y...(.:C|
000000E0: 4F 4D 50 41 52 20 2E 45 51 20 24 42 43 35 42 20 |OMPAR .EQ $BC5B |
000000F0: 20 3B 43 4F 4D 50 41 52 45 20 4D 45 4D B0 59 20 | ;COMPARE MEM.Y |
00000100: A4 20 46 41 43 31 00 2F 09 50 00 3A 4D 45 4D 50 |. FAC1./.P.:MEMP|
00000110: 4C 55 20 2E 45 51 20 24 42 38 36 37 20 20 3B 41 |LU .EQ $B867 ;A|
00000120: 44 44 20 4D 45 4D B0 59 20 A4 20 46 41 43 31 00 |DD MEM.Y . FAC1.|
00000130: 5A 09 5A 00 3A 4D 45 4D 4D 55 4C 20 2E 45 51 20 |Z.Z.:MEMMUL .EQ |
00000140: 24 42 41 32 38 20 20 3B 4D 55 4C 54 20 46 41 43 |$BA28 ;MULT FAC|
00000150: 31 20 42 59 20 4D 45 4D B0 59 00 85 09 64 00 3A |1 BY MEM.Y...d.:|
00000160: 4D 45 4D 53 55 42 20 2E 45 51 20 24 42 38 35 30 |MEMSUB .EQ $B850|
00000170: 20 3B 53 55 42 20 46 41 43 31 20 46 52 4F 4D 20 | ;SUB FAC1 FROM |
00000180: 4D 45 4D B0 59 00 B1 09 6E 00 3A 4D 45 4D 44 49 |MEM.Y...n.:MEMDI|
00000190: 56 20 2E 45 51 20 24 42 42 30 46 20 3B 44 49 56 |V .EQ $BB0F ;DIV|
000001A0: 49 44 45 20 46 41 43 31 20 42 59 20 4D 45 4D B0 |IDE FAC1 BY MEM.|
000001B0: 59 00 D8 09 78 00 4A 4D 50 20 3A 45 51 56 20 3B |Y...x.JMP :EQV ;|
000001C0: 20 41 28 29 B2 56 20 27 53 54 41 52 54 49 4E 47 | A().V 'STARTING|
000001D0: 20 41 44 44 52 45 53 53 00 F5 09 82 00 4A 4D 50 | ADDRESS.....JMP|
000001E0: 20 3A 45 51 42 20 3B 20 41 28 29 B2 42 28 29 20 | :EQB ; A().B() |
000001F0: 27 53 41 AA 33 00 14 0A 8C 00 4A 4D 50 20 3A 50 |'SA.3.....JMP :P|
00000200: 4C 56 20 3B 20 41 28 29 B2 41 28 29 AA 56 20 27 |LV ; A().A().V '|
00000210: 53 41 AA 36 00 35 0A 96 00 4A 4D 50 20 3A 50 4C |SA.6.5...JMP :PL|
00000220: 42 20 3B 20 41 28 29 B2 41 28 29 AA 42 28 29 20 |B ; A().A().B() |
00000230: 27 53 41 AA 39 00 55 0A A0 00 4A 4D 50 20 3A 53 |'SA.9.U...JMP :S|
00000240: 42 56 20 3B 20 41 28 29 B2 41 28 29 AB 56 20 27 |BV ; A().A().V '|
00000250: 53 41 AA 31 32 00 77 0A AA 00 4A 4D 50 20 3A 53 |SA.12.w...JMP :S|
00000260: 42 42 20 3B 20 41 28 29 B2 41 28 29 AB 42 28 29 |BB ; A().A().B()|
00000270: 20 27 53 41 AA 31 35 00 97 0A B4 00 4A 4D 50 20 | 'SA.15.....JMP |
00000280: 3A 4D 4C 56 20 3B 20 41 28 29 B2 41 28 29 AC 56 |:MLV ; A().A().V|
00000290: 20 27 53 41 AA 31 38 00 B9 0A BE 00 4A 4D 50 20 | 'SA.18.....JMP |
000002A0: 3A 4D 4C 42 20 3B 20 41 28 29 B2 41 28 29 AC 42 |:MLB ; A().A().B|
000002B0: 28 29 20 27 53 41 AA 32 31 00 D9 0A C8 00 4A 4D |() 'SA.21.....JM|
000002C0: 50 20 3A 44 56 56 20 3B 20 41 28 29 B2 41 28 29 |P :DVV ; A().A()|
000002D0: AD 56 20 27 53 41 AA 32 34 00 FB 0A D2 00 4A 4D |.V 'SA.24.....JM|
000002E0: 50 20 3A 44 56 42 20 3B 20 41 28 29 B2 41 28 29 |P :DVB ; A().A()|
000002F0: AD 42 28 29 20 27 53 41 AA 32 37 00 1B 0B DC 00 |.B() 'SA.27.....|
00000300: 4A 4D 50 20 3A 42 53 56 20 3B 20 41 28 29 B2 56 |JMP :BSV ; A().V|
00000310: AB 41 28 29 20 27 53 41 AA 33 30 00 3D 0B E6 00 |.A() 'SA.30.=...|
00000320: 4A 4D 50 20 3A 42 53 42 20 3B 20 41 28 29 B2 42 |JMP :BSB ; A().B|
00000330: 28 29 AB 42 28 29 20 27 53 41 AA 33 33 00 5D 0B |().B() 'SA.33.].|
00000340: F0 00 4A 4D 50 20 3A 56 44 56 20 3B 20 41 28 29 |..JMP :VDV ; A()|
00000350: B2 56 AD 41 28 29 20 27 53 41 AA 33 36 00 7F 0B |.V.A() 'SA.36...|
00000360: FA 00 4A 4D 50 20 3A 56 44 42 20 3B 20 41 28 29 |..JMP :VDB ; A()|
00000370: B2 42 28 29 AD 41 28 29 20 27 53 41 AA 33 39 00 |.B().A() 'SA.39.|
00000380: A0 0B 04 01 4A 4D 50 20 3A 4D 41 58 20 3B 20 56 |....JMP :MAX ; V|
00000390: B2 4D 41 58 28 41 28 29 29 20 27 53 41 AA 34 32 |.MAX(A()) 'SA.42|
000003A0: 00 C1 0B 0E 01 4A 4D 50 20 3A 4D 49 4E 20 3B 20 |.....JMP :MIN ; |
000003B0: 56 B2 4D 49 4E 28 41 28 29 29 20 27 53 41 AA 34 |V.MIN(A()) 'SA.4|
000003C0: 35 00 E4 0B 13 01 4A 4D 50 20 3A 53 51 55 41 52 |5.....JMP :SQUAR|
000003D0: 45 20 3B 20 41 28 29 B2 41 28 29 AE 32 20 27 53 |E ; A().A().2 'S|
000003E0: 41 AA 34 38 00 0D 0C 15 01 4A 4D 50 20 3A 49 4E |A.48.....JMP :IN|
000003F0: 53 45 52 54 20 3B 20 49 4E 53 45 52 54 20 56 20 |SERT ; INSERT V |
00000400: 41 54 20 41 28 29 20 27 53 41 AA 35 31 00 18 0C |AT A() 'SA.51...|
00000410: 18 01 3A 44 55 4D 4D 59 00 25 0C 22 01 2E 44 53 |..:DUMMY.%."..DS|
00000420: 24 30 30 30 36 00 30 0C 40 01 3A 5A 50 41 47 45 |$0006.0.@.:ZPAGE|
00000430: 00 3E 0C 4A 01 2E 44 53 20 24 30 30 30 44 00 5B |.>.J..DS $000D.[|
00000440: 0C 54 01 3A 53 5A 50 41 47 45 20 20 20 20 3B 20 |.T.:SZPAGE ; |
00000450: 52 4F 55 54 49 4E 45 20 A4 20 94 00 7C 0C 5E 01 |ROUTINE . ..|.^.|
00000460: 4C 44 59 20 23 24 30 43 20 20 20 3B 20 5A 45 52 |LDY #$0C ; ZER|
00000470: 4F 20 50 41 47 45 20 4D 45 4D B0 59 00 85 0C 68 |O PAGE MEM.Y...h|
00000480: 01 3A 53 5A 31 00 95 0C 72 01 4C 44 41 20 24 30 |.:SZ1...r.LDA $0|
00000490: 30 42 46 2C 59 00 A6 0C 7C 01 53 54 41 20 3A 5A |0BF,Y...|.STA :Z|
000004A0: 50 41 47 45 2C 59 00 AE 0C 86 01 44 45 59 00 BB |PAGE,Y.....DEY..|
000004B0: 0C 90 01 42 50 4C 20 3A 53 5A 31 00 C3 0C 9A 01 |...BPL :SZ1.....|
000004C0: 52 54 53 00 E6 0C A4 01 3A 52 45 53 45 54 20 20 |RTS.....:RESET |
000004D0: 20 20 20 20 20 20 3B 52 4F 55 54 49 4E 45 20 A4 | ;ROUTINE .|
000004E0: 20 52 45 53 45 54 00 09 0D AE 01 4C 44 59 20 23 | RESET.....LDY #|
000004F0: 24 30 43 20 20 20 20 20 20 3B 41 45 52 4F 20 50 |$0C ;AERO P|
00000500: 41 47 45 20 4D 45 4D B0 59 00 11 0D B8 01 3A 8C |AGE MEM.Y.....:.|
00000510: 5A 00 22 0D C2 01 4C 44 41 20 3A 5A 50 41 47 45 |Z."...LDA :ZPAGE|
00000520: 2C 59 00 32 0D CC 01 53 54 41 20 24 30 30 42 46 |,Y.2...STA $00BF|
00000530: 2C 59 00 3A 0D D6 01 44 45 59 00 46 0D E0 01 42 |,Y.:...DEY.F...B|
00000540: 50 4C 20 3A 8C 5A 00 5E 0D EA 01 52 54 53 20 20 |PL :.Z.^...RTS |
00000550: 20 20 20 20 20 20 20 20 20 3B 45 58 49 54 00 7A | ;EXIT.z|
00000560: 0D F4 01 3A 53 A4 52 45 20 20 20 20 20 20 20 20 |...:S.RE |
00000570: 3B 53 A4 52 45 20 46 41 43 31 00 95 0D FE 01 4C |;S.RE FAC1.....L|
00000580: 44 58 20 24 42 35 20 20 20 20 20 20 20 3B A4 20 |DX $B5 ;. |
00000590: 4D 45 4D B0 59 00 B5 0D 08 02 4C 44 59 20 24 42 |MEM.Y.....LDY $B|
000005A0: 36 20 20 20 20 20 20 20 3B 20 53 50 45 43 8B 49 |6 ; SPEC.I|
000005B0: 45 44 20 41 54 00 D1 0D 12 02 4A 53 52 20 3A 46 |ED AT.....JSR :F|
000005C0: 41 43 4D 45 4D 20 20 20 3B 20 24 42 35 2C 24 42 |ACMEM ; $B5,$B|
000005D0: 36 00 D9 0D 1C 02 52 54 53 00 F2 0D 26 02 3A 54 |6.....RTS...&.:T|
000005E0: 45 53 54 31 20 20 20 3B 54 48 49 53 20 50 B0 54 |EST1 ;THIS P.T|
000005F0: 49 91 00 0D 0E 30 02 4C 44 41 20 24 42 37 20 20 |I....0.LDA $B7 |
00000600: 3B 49 4E 43 8F 45 4E 54 53 20 54 48 45 00 27 0E |;INC.ENTS THE.'.|
00000610: 3A 02 43 4C 43 20 20 20 20 20 20 3B 53 45 43 91 |:.CLC ;SEC.|
00000620: 44 20 41 52 52 41 59 00 3F 0E 44 02 41 44 43 20 |D ARRAY.?.D.ADC |
00000630: 23 24 30 35 20 3B 50 4F B5 45 52 53 20 42 59 00 |#$05 ;PO.ERS BY.|
00000640: 4F 0E 4E 02 53 54 41 20 24 42 37 20 20 3B 35 00 |O.N.STA $B7 ;5.|
00000650: 5B 0E 58 02 4C 44 41 20 24 42 38 00 68 0E 62 02 |[.X.LDA $B8.h.b.|
00000660: 41 44 43 20 23 24 30 30 00 74 0E 6C 02 53 54 41 |ADC #$00.t.l.STA|
00000670: 20 24 42 38 00 8B 0E 76 02 3A 54 45 53 54 20 20 | $B8...v.:TEST |
00000680: 20 3B 52 4F 55 54 49 4E 45 20 A4 00 A0 0E 80 02 | ;ROUTINE ......|
00000690: 4C 44 41 20 24 42 39 20 3B 49 4E 43 8F 45 4E 54 |LDA $B9 ;INC.ENT|
000006A0: 00 B9 0E 8A 02 43 4C 43 20 20 20 20 20 3B 46 49 |.....CLC ;FI|
000006B0: 52 53 54 20 41 52 52 41 59 00 D1 0E 94 02 41 44 |RST ARRAY.....AD|
000006C0: 43 20 23 24 30 35 20 3B 50 4F B5 45 52 53 20 42 |C #$05 ;PO.ERS B|
000006D0: 59 00 E1 0E 9E 02 53 54 41 20 24 42 39 20 20 3B |Y.....STA $B9 ;|
000006E0: 35 00 ED 0E A8 02 4C 44 41 20 24 42 41 00 FA 0E |5.....LDA $BA...|
000006F0: B2 02 41 44 43 20 23 24 30 30 00 06 0F BC 02 53 |..ADC #$00.....S|
00000700: 54 41 20 24 42 41 00 1D 0F C6 02 3A 54 45 53 54 |TA $BA.....:TEST|
00000710: 32 20 20 20 20 3B AF 20 43 48 45 43 4B 00 34 0F |2 ;. CHECK.4.|
00000720: D0 02 43 4D 50 20 24 46 43 20 20 20 3B 81 20 54 |..CMP $FC ;. T|
00000730: 48 45 20 80 00 49 0F DA 02 42 4E 45 20 3A 9A 20 |HE ..I...BNE :. |
00000740: 3B 4F 46 20 41 52 52 41 59 00 55 0F E4 02 4C 44 |;OF ARRAY.U...LD|
00000750: 41 20 24 42 39 00 61 0F EE 02 43 4D 50 20 24 46 |A $B9.a...CMP $F|
00000760: 42 00 6C 0F F8 02 42 4E 45 20 3A 9A 00 74 0F 02 |B.l...BNE :..t..|
00000770: 03 43 4C 43 00 7C 0F 0C 03 52 54 53 00 8D 0F 16 |.CLC.|...RTS....|
00000780: 03 3A 9A 20 20 3B 8B 20 A8 20 A4 20 80 00 A7 0F |.:. ;. . . ....|
00000790: 20 03 53 45 43 20 20 20 20 3B 53 45 54 20 43 41 | .SEC ;SET CA|
000007A0: 52 52 59 20 42 49 54 00 AF 0F 2A 03 52 54 53 00 |RRY BIT...*.RTS.|
000007B0: C0 0F 34 03 3A 45 51 56 20 20 3B 41 28 29 B2 56 |..4.:EQV ;A().V|
000007C0: 00 E0 0F 3E 03 4A 53 52 20 3A 53 5A 50 41 47 45 |...>.JSR :SZPAGE|
000007D0: 20 3B 53 A4 52 45 20 5A 45 52 4F 20 50 41 47 45 | ;S.RE ZERO PAGE|
000007E0: 00 FD 0F 48 03 4A 53 52 20 3A 4D 4F 44 31 20 20 |...H.JSR :MOD1 |
000007F0: 20 3B A1 20 41 44 44 52 45 53 53 45 53 00 18 10 | ;. ADDRESSES...|
00000800: 52 03 4C 44 41 20 24 42 37 20 20 20 20 20 3B 41 |R.LDA $B7 ;A|
00000810: 44 44 52 45 53 53 20 4F 00 2B 10 5C 03 4C 44 59 |DDRESS O.+.\.LDY|
00000820: 20 24 42 38 20 20 20 20 20 3B 56 00 47 10 66 03 | $B8 ;V.G.f.|
00000830: 4A 53 52 20 3A 4D 45 4D 46 41 43 20 3B 93 20 56 |JSR :MEMFAC ;. V|
00000840: 20 A4 20 46 41 43 31 00 51 10 70 03 3A 45 51 56 | . FAC1.Q.p.:EQV|
00000850: 31 00 6D 10 7A 03 4C 44 58 20 24 42 39 20 20 20 |1.m.z.LDX $B9 |
00000860: 20 20 3B 41 44 44 52 45 53 53 20 4F 46 00 82 10 | ;ADDRESS OF...|
00000870: 84 03 4C 44 59 20 24 42 41 20 20 20 20 20 3B 41 |..LDY $BA ;A|
00000880: 28 29 00 9F 10 8E 03 4A 53 52 20 3A 46 41 43 4D |().....JSR :FACM|
00000890: 45 4D 20 3B 46 41 43 31 20 A4 20 41 28 58 29 00 |EM ;FAC1 . A(X).|
000008A0: BC 10 98 03 4A 53 52 20 3A 54 45 53 54 20 20 20 |....JSR :TEST |
000008B0: 3B 43 48 45 43 4B 20 8B 20 44 91 45 00 D6 10 A2 |;CHECK . D.E....|
000008C0: 03 42 43 53 20 3A 45 51 56 31 20 20 20 3B 4E 4F |.BCS :EQV1 ;NO|
000008D0: 20 9A 49 4E 55 45 00 F8 10 AC 03 4A 4D 50 20 3A | .INUE.....JMP :|
000008E0: 52 45 53 45 54 20 20 3B 59 45 53 20 45 58 49 54 |RESET ;YES EXIT|
000008F0: 20 52 4F 55 54 49 4E 45 00 13 11 B6 03 3A 50 4C | ROUTINE.....:PL|
00000900: 56 20 20 20 20 20 20 20 20 3B 41 28 29 B2 41 28 |V ;A().A(|
00000910: 29 AA 56 00 23 11 C0 03 4A 53 52 20 3A 53 5A 50 |).V.#...JSR :SZP|
00000920: 41 47 45 00 31 11 CA 03 4A 53 52 20 3A 4D 4F 44 |AGE.1...JSR :MOD|
00000930: 31 00 3B 11 D4 03 3A 50 4C 56 32 00 56 11 DE 03 |1.;...:PLV2.V...|
00000940: 4C 44 41 20 24 42 39 20 20 20 20 20 3B 93 20 41 |LDA $B9 ;. A|
00000950: 44 44 52 45 53 53 00 6F 11 E8 03 4C 44 59 20 24 |DDRESS.o...LDY $|
00000960: 42 41 20 20 20 20 3B 4F 46 20 82 20 41 28 29 00 |BA ;OF . A().|
00000970: 87 11 F2 03 53 54 41 20 24 42 35 20 20 20 20 3B |....STA $B5 ;|
00000980: 50 4F B5 45 52 20 81 00 A4 11 FC 03 53 54 59 20 |PO.ER ......STY |
00000990: 24 42 36 20 20 20 20 3B 53 A4 52 45 20 52 4F 55 |$B6 ;S.RE ROU|
000009A0: 54 49 4E 45 00 C7 11 06 04 4A 53 52 20 3A 4D 45 |TINE.....JSR :ME|
000009B0: 4D 46 41 43 3B 31 53 54 20 45 4C 45 4D 45 4E 54 |MFAC;1ST ELEMENT|
000009C0: 20 A4 20 46 41 43 31 00 E2 11 10 04 4C 44 41 20 | . FAC1.....LDA |
000009D0: 24 42 37 20 20 20 20 3B 41 44 44 52 45 53 53 20 |$B7 ;ADDRESS |
000009E0: 4F 46 00 F4 11 1A 04 4C 44 59 20 24 42 38 20 20 |OF.....LDY $B8 |
000009F0: 20 20 3B 56 00 12 12 24 04 4A 53 52 20 3A 4D 45 | ;V...$.JSR :ME|
00000A00: 4D 50 4C 55 20 3B 41 44 44 20 56 20 A4 20 46 41 |MPLU ;ADD V . FA|
00000A10: 43 31 00 30 12 2E 04 4A 53 52 20 3A 53 A4 52 45 |C1.0...JSR :S.RE|
00000A20: 20 20 3B 52 45 53 55 4C 54 53 20 A4 20 41 28 29 | ;RESULTS . A()|
00000A30: 00 3E 12 38 04 4A 53 52 20 3A 54 45 53 54 00 4C |.>.8.JSR :TEST.L|
00000A40: 12 42 04 42 43 53 20 3A 50 4C 56 32 00 5B 12 4C |.B.BCS :PLV2.[.L|
00000A50: 04 4A 4D 50 20 3A 52 45 53 45 54 00 76 12 56 04 |.JMP :RESET.v.V.|
00000A60: 3A 53 42 56 20 20 20 20 20 20 20 20 3B 41 28 29 |:SBV ;A()|
00000A70: B2 41 28 29 AB 56 00 86 12 60 04 4A 53 52 20 3A |.A().V...`.JSR :|
00000A80: 53 5A 50 41 47 45 00 94 12 6A 04 4A 53 52 20 3A |SZPAGE...j.JSR :|
00000A90: 4D 4F 44 31 00 9E 12 74 04 3A 53 42 56 31 00 B8 |MOD1...t.:SBV1..|
00000AA0: 12 7E 04 4C 44 41 20 24 42 37 20 20 20 20 3B 93 |.~.LDA $B7 ;.|
00000AB0: 20 41 44 44 52 45 53 53 00 CD 12 88 04 4C 44 59 | ADDRESS.....LDY|
00000AC0: 20 24 42 38 20 20 20 20 3B 4F 46 20 56 00 E7 12 | $B8 ;OF V...|
00000AD0: 92 04 4A 53 52 20 3A 4D 45 4D 46 41 43 20 3B 56 |..JSR :MEMFAC ;V|
00000AE0: 20 A4 20 46 41 43 31 00 01 13 9C 04 4C 44 41 20 | . FAC1.....LDA |
00000AF0: 24 42 39 20 20 20 20 3B 93 20 41 44 44 52 45 53 |$B9 ;. ADDRES|
00000B00: 53 00 14 13 A6 04 53 54 41 20 24 42 35 20 20 20 |S.....STA $B5 |
00000B10: 20 3B 4F 46 00 28 13 B0 04 4C 44 59 20 24 42 41 | ;OF.(...LDY $BA|
00000B20: 20 20 20 20 3B 41 28 29 00 34 13 BA 04 53 54 59 | ;A().4...STY|
00000B30: 20 24 42 36 00 55 13 C4 04 4A 53 52 20 3A 4D 45 | $B6.U...JSR :ME|
00000B40: 4D 53 55 42 20 3B 41 28 29 41 44 44 45 44 20 A4 |MSUB ;A()ADDED .|
00000B50: 20 46 41 43 31 00 72 13 CE 04 4A 53 52 20 3A 53 | FAC1.r...JSR :S|
00000B60: A4 52 45 20 20 3B 52 45 53 55 4C 54 20 A4 20 41 |.RE ;RESULT . A|
00000B70: 28 29 00 80 13 D8 04 4A 53 52 20 3A 54 45 53 54 |().....JSR :TEST|
00000B80: 00 8E 13 E2 04 42 43 53 20 3A 53 42 56 31 00 9D |.....BCS :SBV1..|
00000B90: 13 EC 04 4A 4D 50 20 3A 52 45 53 45 54 00 B3 13 |...JMP :RESET...|
00000BA0: F6 04 3A 42 53 56 20 20 20 3B 41 28 29 B2 56 AB |..:BSV ;A().V.|
00000BB0: 41 28 29 00 C3 13 00 05 4A 53 52 20 3A 53 5A 50 |A().....JSR :SZP|
00000BC0: 41 47 45 00 D1 13 0A 05 4A 53 52 20 3A 4D 4F 44 |AGE.....JSR :MOD|
00000BD0: 31 00 DB 13 14 05 3A 42 53 56 31 00 E7 13 1E 05 |1.....:BSV1.....|
00000BE0: 4C 44 41 20 24 42 39 00 F3 13 28 05 53 54 41 20 |LDA $B9...(.STA |
00000BF0: 24 42 35 00 FF 13 32 05 4C 44 59 20 24 42 41 00 |$B5...2.LDY $BA.|
00000C00: 0B 14 3C 05 53 54 59 20 24 42 36 00 25 14 46 05 |..<.STY $B6.%.F.|
00000C10: 4A 53 52 20 3A 4D 45 4D 46 41 43 20 3B 46 41 43 |JSR :MEMFAC ;FAC|
00000C20: 31 B2 41 28 29 00 3E 14 50 05 4C 44 41 20 24 42 |1.A().>.P.LDA $B|
00000C30: 37 20 20 20 20 20 3B 41 44 44 52 45 53 53 00 54 |7 ;ADDRESS.T|
00000C40: 14 5A 05 4C 44 59 20 24 42 38 20 20 20 20 20 3B |.Z.LDY $B8 ;|
00000C50: 4F 46 20 56 00 70 14 64 05 4A 53 52 20 3A 4D 45 |OF V.p.d.JSR :ME|
00000C60: 4D 53 55 42 20 3B 46 41 43 31 B2 56 AB 41 28 29 |MSUB ;FAC1.V.A()|
00000C70: 00 89 14 6E 05 4A 53 52 20 3A 53 A4 52 45 20 20 |...n.JSR :S.RE |
00000C80: 3B 41 28 29 B2 46 41 43 31 00 97 14 78 05 4A 53 |;A().FAC1...x.JS|
00000C90: 52 20 3A 54 45 53 54 00 A5 14 82 05 42 43 53 20 |R :TEST.....BCS |
00000CA0: 3A 42 53 56 31 00 B4 14 8C 05 4A 4D 50 20 3A 52 |:BSV1.....JMP :R|
00000CB0: 45 53 45 54 00 CF 14 96 05 3A 4D 4C 56 20 20 20 |ESET.....:MLV |
00000CC0: 20 20 20 20 20 3B 41 28 29 B2 41 28 29 AC 56 00 | ;A().A().V.|
00000CD0: DF 14 A0 05 4A 53 52 20 3A 53 5A 50 41 47 45 00 |....JSR :SZPAGE.|
00000CE0: ED 14 AA 05 4A 53 52 20 3A 4D 4F 44 31 00 F7 14 |....JSR :MOD1...|
00000CF0: B4 05 3A 4D 4C 56 31 00 03 15 BE 05 4C 44 41 20 |..:MLV1.....LDA |
00000D00: 24 42 39 00 1D 15 C8 05 53 54 41 20 24 42 35 20 |$B9.....STA $B5 |
00000D10: 20 20 20 20 20 3B 41 44 44 52 45 53 53 00 36 15 | ;ADDRESS.6.|
00000D20: D2 05 4C 44 59 20 24 42 41 20 20 20 20 20 20 3B |..LDY $BA ;|
00000D30: 4F 46 20 41 28 29 00 42 15 DC 05 53 54 59 20 24 |OF A().B...STY $|
00000D40: 42 36 00 5D 15 E6 05 4A 53 52 20 3A 4D 45 4D 46 |B6.]...JSR :MEMF|
00000D50: 41 43 20 20 3B 46 41 43 31 B2 41 28 29 00 77 15 |AC ;FAC1.A().w.|
00000D60: F0 05 4C 44 41 20 24 42 37 20 20 20 20 20 20 3B |..LDA $B7 ;|
00000D70: 41 44 44 52 45 53 53 00 8E 15 FA 05 4C 44 59 20 |ADDRESS.....LDY |
00000D80: 24 42 38 20 20 20 20 20 20 3B 4F 46 20 56 00 AB |$B8 ;OF V..|
00000D90: 15 04 06 4A 53 52 20 3A 4D 45 4D 4D 55 4C 20 20 |...JSR :MEMMUL |
00000DA0: 3B 46 41 43 31 B2 41 28 29 AC 56 00 C5 15 0E 06 |;FAC1.A().V.....|
00000DB0: 4A 53 52 20 3A 53 A4 52 45 20 20 20 3B 41 28 29 |JSR :S.RE ;A()|
00000DC0: B2 46 41 43 31 00 D3 15 18 06 4A 53 52 20 3A 54 |.FAC1.....JSR :T|
00000DD0: 45 53 54 00 E1 15 22 06 42 43 53 20 3A 4D 4C 56 |EST...".BCS :MLV|
00000DE0: 31 00 F0 15 2C 06 4A 4D 50 20 3A 52 45 53 45 54 |1...,.JMP :RESET|
00000DF0: 00 0C 16 36 06 3A 44 56 56 20 20 20 20 20 20 20 |...6.:DVV |
00000E00: 20 20 3B 41 28 29 B2 41 28 29 AD 56 00 1C 16 40 | ;A().A().V...@|
00000E10: 06 4A 53 52 20 3A 53 5A 50 41 47 45 00 2A 16 4A |.JSR :SZPAGE.*.J|
00000E20: 06 4A 53 52 20 3A 4D 4F 44 31 00 34 16 54 06 3A |.JSR :MOD1.4.T.:|
00000E30: 44 56 56 31 00 4D 16 5E 06 4C 44 41 20 24 42 37 |DVV1.M.^.LDA $B7|
00000E40: 20 20 20 20 20 20 3B 41 44 52 45 53 53 00 64 16 | ;ADRESS.d.|
00000E50: 68 06 4C 44 59 20 24 42 38 20 20 20 20 20 20 3B |h.LDY $B8 ;|
00000E60: 4F 46 20 56 00 7D 16 72 06 4A 53 52 20 3A 4D 45 |OF V.}.r.JSR :ME|
00000E70: 4D 46 41 43 20 20 3B 46 41 43 31 B2 56 00 97 16 |MFAC ;FAC1.V...|
00000E80: 7C 06 4C 44 41 20 24 42 39 20 20 20 20 20 20 3B ||.LDA $B9 ;|
00000E90: 41 44 44 52 45 53 53 00 B0 16 86 06 53 54 41 20 |ADDRESS.....STA |
00000EA0: 24 42 35 20 20 20 20 20 20 3B 4F 46 20 41 28 29 |$B5 ;OF A()|
00000EB0: 00 BC 16 90 06 4C 44 59 20 24 42 41 00 C8 16 9A |.....LDY $BA....|
00000EC0: 06 53 54 59 20 24 42 36 00 E5 16 A4 06 4A 53 52 |.STY $B6.....JSR|
00000ED0: 20 3A 4D 45 4D 44 49 56 20 20 3B 46 41 43 31 B2 | :MEMDIV ;FAC1.|
00000EE0: 41 28 29 AD 56 00 FF 16 AE 06 4A 53 52 20 3A 53 |A().V.....JSR :S|
00000EF0: A4 52 45 20 20 20 3B 41 28 29 B2 46 41 43 31 00 |.RE ;A().FAC1.|
00000F00: 0D 17 B8 06 4A 53 52 20 3A 54 45 53 54 00 1B 17 |....JSR :TEST...|
00000F10: C2 06 42 43 53 20 3A 44 56 56 31 00 2A 17 CC 06 |..BCS :DVV1.*...|
00000F20: 4A 4D 50 20 3A 52 45 53 45 54 00 46 17 D6 06 3A |JMP :RESET.F...:|
00000F30: 56 44 56 20 20 20 20 20 20 20 20 20 3B 41 28 29 |VDV ;A()|
00000F40: B2 56 AD 41 28 29 00 56 17 E0 06 4A 53 52 20 3A |.V.A().V...JSR :|
00000F50: 53 5A 50 41 47 45 00 64 17 EA 06 4A 53 52 20 3A |SZPAGE.d...JSR :|
00000F60: 4D 4F 44 31 00 6E 17 F4 06 3A 56 44 56 31 00 88 |MOD1.n...:VDV1..|
00000F70: 17 FE 06 4C 44 41 20 24 42 39 20 20 20 20 20 20 |...LDA $B9 |
00000F80: 3B 41 44 44 52 45 53 53 00 A1 17 08 07 53 54 41 |;ADDRESS.....STA|
00000F90: 20 24 42 35 20 20 20 20 20 20 3B 4F 46 20 41 28 | $B5 ;OF A(|
00000FA0: 29 00 AD 17 12 07 4C 44 59 20 24 42 41 00 B9 17 |).....LDY $BA...|
00000FB0: 1C 07 53 54 59 20 24 42 36 00 D4 17 26 07 4A 53 |..STY $B6...&.JS|
00000FC0: 52 20 3A 4D 45 4D 46 41 43 20 20 3B 46 41 43 31 |R :MEMFAC ;FAC1|
00000FD0: B2 41 28 29 00 EE 17 30 07 4C 44 41 20 24 42 37 |.A()...0.LDA $B7|
00000FE0: 20 20 20 20 20 20 3B 41 44 44 52 45 53 53 00 05 | ;ADDRESS..|
00000FF0: 18 3A 07 4C 44 59 20 24 42 38 20 20 20 20 20 20 |.:.LDY $B8 |
00001000: 3B 4F 46 20 56 00 23 18 44 07 4A 53 52 20 3A 4D |;OF V.#.D.JSR :M|
00001010: 45 4D 44 49 56 20 20 3B 46 41 43 31 B2 56 AD 46 |EMDIV ;FAC1.V.F|
00001020: 41 43 31 00 3D 18 4E 07 4A 53 52 20 3A 53 A4 52 |AC1.=.N.JSR :S.R|
00001030: 45 20 20 20 3B 41 28 29 B2 46 41 43 31 00 4B 18 |E ;A().FAC1.K.|
00001040: 58 07 4A 53 52 20 3A 54 45 53 54 00 59 18 62 07 |X.JSR :TEST.Y.b.|
00001050: 42 43 53 20 3A 56 44 56 31 00 68 18 6C 07 4A 4D |BCS :VDV1.h.l.JM|
00001060: 50 20 3A 52 45 53 45 54 00 86 18 76 07 3A 50 4C |P :RESET...v.:PL|
00001070: 42 20 20 20 20 20 20 20 20 20 3B 41 28 29 B2 41 |B ;A().A|
00001080: 28 29 AC 42 28 29 00 96 18 80 07 4A 53 52 20 3A |().B().....JSR :|
00001090: 53 5A 50 41 47 45 00 A4 18 8A 07 4A 53 52 20 3A |SZPAGE.....JSR :|
000010A0: 4D 4F 44 31 00 AE 18 94 07 3A 50 4C 42 31 00 C8 |MOD1.....:PLB1..|
000010B0: 18 9E 07 4C 44 41 20 24 42 37 20 20 20 20 20 20 |...LDA $B7 |
000010C0: 3B 41 44 44 52 45 53 53 00 E1 18 A8 07 4C 44 59 |;ADDRESS.....LDY|
000010D0: 20 24 42 38 20 20 20 20 20 20 3B 4F 46 20 42 28 | $B8 ;OF B(|
000010E0: 29 00 FC 18 B2 07 4A 53 52 20 3A 4D 45 4D 46 41 |).....JSR :MEMFA|
000010F0: 43 20 20 3B 46 41 43 31 B2 42 28 29 00 08 19 BC |C ;FAC1.B()....|
00001100: 07 4C 44 41 20 24 42 39 00 22 19 C6 07 53 54 41 |.LDA $B9."...STA|
00001110: 20 24 42 35 20 20 20 20 20 20 3B 41 44 44 52 45 | $B5 ;ADDRE|
00001120: 53 53 00 3B 19 D0 07 4C 44 59 20 24 42 41 20 20 |SS.;...LDY $BA |
00001130: 20 20 20 20 3B 4F 46 20 41 28 29 00 47 19 DA 07 | ;OF A().G...|
00001140: 53 54 59 20 24 42 36 00 67 19 E4 07 4A 53 52 20 |STY $B6.g...JSR |
00001150: 3A 4D 45 4D 50 4C 55 20 20 3B 46 41 43 31 B2 46 |:MEMPLU ;FAC1.F|
00001160: 41 43 31 AC 41 28 29 00 81 19 EE 07 4A 53 52 20 |AC1.A().....JSR |
00001170: 3A 53 A4 52 45 20 20 20 3B 41 28 29 B2 46 41 43 |:S.RE ;A().FAC|
00001180: 31 00 AC 19 F8 07 4A 53 52 20 3A 54 45 53 54 31 |1.....JSR :TEST1|
00001190: 20 20 20 3B 49 4E 43 8F 45 4E 54 20 42 20 50 4F | ;INC.ENT B PO|
000011A0: 49 4E 54 45 52 20 54 48 45 4E 20 41 00 BA 19 02 |INTER THEN A....|
000011B0: 08 42 43 53 20 3A 50 4C 42 31 00 C9 19 0C 08 4A |.BCS :PLB1.....J|
000011C0: 4D 50 20 3A 52 45 53 45 54 00 E6 19 16 08 3A 53 |MP :RESET.....:S|
000011D0: 42 42 20 20 20 20 20 20 20 20 3B 41 28 29 B2 41 |BB ;A().A|
000011E0: 28 29 AB 42 28 29 00 F6 19 20 08 4A 53 52 20 3A |().B()... .JSR :|
000011F0: 53 5A 50 41 47 45 00 04 1A 2A 08 4A 53 52 20 3A |SZPAGE...*.JSR :|
00001200: 4D 4F 44 31 00 0E 1A 34 08 3A 53 42 42 31 00 27 |MOD1...4.:SBB1.'|
00001210: 1A 3E 08 4C 44 41 20 24 42 37 20 20 20 20 20 3B |.>.LDA $B7 ;|
00001220: 41 44 44 52 45 53 53 00 3F 1A 48 08 4C 44 59 20 |ADDRESS.?.H.LDY |
00001230: 24 42 38 20 20 20 20 20 3B 4F 46 20 42 28 29 00 |$B8 ;OF B().|
00001240: 59 1A 52 08 4A 53 52 20 3A 4D 45 4D 46 41 43 20 |Y.R.JSR :MEMFAC |
00001250: 3B 46 41 43 31 B2 42 28 29 00 65 1A 5C 08 4C 44 |;FAC1.B().e.\.LD|
00001260: 41 20 24 42 39 00 7E 1A 66 08 53 54 41 20 24 42 |A $B9.~.f.STA $B|
00001270: 35 20 20 20 20 20 3B 41 44 44 52 45 53 53 00 96 |5 ;ADDRESS..|
00001280: 1A 70 08 4C 44 59 20 24 42 41 20 20 20 20 20 3B |.p.LDY $BA ;|
00001290: 4F 46 20 41 28 29 00 A2 1A 7A 08 53 54 59 20 24 |OF A()...z.STY $|
000012A0: 42 36 00 C1 1A 84 08 4A 53 52 20 3A 4D 45 4D 53 |B6.....JSR :MEMS|
000012B0: 55 42 20 3B 46 41 43 31 B2 41 28 29 AB 46 41 43 |UB ;FAC1.A().FAC|
000012C0: 31 00 D7 1A 8E 08 4A 53 52 20 3A 53 A4 52 45 20 |1.....JSR :S.RE |
000012D0: 20 3B 41 28 29 B2 31 00 F9 1A 98 08 4A 53 52 20 | ;A().1.....JSR |
000012E0: 3A 54 45 53 54 31 20 20 3B 49 4E 43 8F 45 4E 54 |:TEST1 ;INC.ENT|
000012F0: 20 42 20 54 48 45 4E 20 41 00 07 1B A2 08 42 43 | B THEN A.....BC|
00001300: 53 20 3A 53 42 42 31 00 16 1B AC 08 4A 4D 50 20 |S :SBB1.....JMP |
00001310: 3A 52 45 53 45 54 00 32 1B B6 08 3A 4D 4C 42 20 |:RESET.2...:MLB |
00001320: 20 20 20 20 20 20 3B 41 28 29 B2 41 28 29 AC 42 | ;A().A().B|
00001330: 28 29 00 42 1B C0 08 4A 53 52 20 3A 53 5A 50 41 |().B...JSR :SZPA|
00001340: 47 45 00 50 1B CA 08 4A 53 52 20 3A 4D 4F 44 31 |GE.P...JSR :MOD1|
00001350: 00 5A 1B D4 08 3A 4D 4C 42 31 00 72 1B DE 08 4C |.Z...:MLB1.r...L|
00001360: 44 41 20 24 42 37 20 20 20 20 3B 41 44 44 52 45 |DA $B7 ;ADDRE|
00001370: 53 53 00 89 1B E8 08 4C 44 59 20 24 42 38 20 20 |SS.....LDY $B8 |
00001380: 20 20 3B 4F 46 20 42 28 29 00 A3 1B F2 08 4A 53 | ;OF B().....JS|
00001390: 52 20 3A 4D 45 4D 46 41 43 20 3B 46 41 43 31 B2 |R :MEMFAC ;FAC1.|
000013A0: 42 28 29 00 AF 1B FC 08 4C 44 41 20 24 42 39 00 |B().....LDA $B9.|
000013B0: C7 1B 06 09 53 54 41 20 24 42 35 20 20 20 20 3B |....STA $B5 ;|
000013C0: 41 44 44 52 45 53 53 00 DE 1B 10 09 4C 44 59 20 |ADDRESS.....LDY |
000013D0: 24 42 41 20 20 20 20 3B 4F 46 20 41 28 29 00 EA |$BA ;OF A()..|
000013E0: 1B 1A 09 53 54 59 20 24 42 36 00 09 1C 24 09 4A |...STY $B6...$.J|
000013F0: 53 52 20 3A 4D 45 4D 4D 55 4C 20 3B 46 41 43 31 |SR :MEMMUL ;FAC1|
00001400: B2 46 41 43 31 AC 41 28 29 00 22 1C 2E 09 4A 53 |.FAC1.A()."...JS|
00001410: 52 20 3A 53 A4 52 45 20 20 3B 41 28 29 B2 46 41 |R :S.RE ;A().FA|
00001420: 43 31 00 44 1C 38 09 4A 53 52 20 3A 54 45 53 54 |C1.D.8.JSR :TEST|
00001430: 31 20 20 3B 49 4E 43 8F 45 4E 54 20 50 4F 49 4E |1 ;INC.ENT POIN|
00001440: 54 45 52 53 00 52 1C 42 09 42 43 53 20 3A 4D 4C |TERS.R.B.BCS :ML|
00001450: 42 31 00 61 1C 4C 09 4A 4D 50 20 3A 52 45 53 45 |B1.a.L.JMP :RESE|
00001460: 54 00 7E 1C 56 09 3A 44 56 42 20 20 20 20 20 20 |T.~.V.:DVB |
00001470: 20 20 3B 41 28 29 B2 41 28 29 AD 42 28 29 00 8E | ;A().A().B()..|
00001480: 1C 60 09 4A 53 52 20 3A 53 5A 50 41 47 45 00 9C |.`.JSR :SZPAGE..|
00001490: 1C 6A 09 4A 53 52 20 3A 4D 4F 44 31 00 A6 1C 74 |.j.JSR :MOD1...t|
000014A0: 09 3A 44 56 42 31 00 BF 1C 7E 09 4C 44 41 20 24 |.:DVB1...~.LDA $|
000014B0: 42 37 20 20 20 20 20 3B 41 44 44 52 45 53 53 00 |B7 ;ADDRESS.|
000014C0: D7 1C 88 09 4C 44 59 20 24 42 38 20 20 20 20 20 |....LDY $B8 |
000014D0: 3B 4F 46 20 42 28 29 00 F1 1C 92 09 4A 53 52 20 |;OF B().....JSR |
000014E0: 3A 4D 45 4D 46 41 43 20 3B 46 41 43 31 B2 42 28 |:MEMFAC ;FAC1.B(|
000014F0: 29 00 FD 1C 9C 09 4C 44 41 20 24 42 39 00 16 1D |).....LDA $B9...|
00001500: A6 09 53 54 41 20 24 42 35 20 20 20 20 20 3B 41 |..STA $B5 ;A|
00001510: 44 44 52 45 53 53 00 2E 1D B0 09 4C 44 59 20 24 |DDRESS.....LDY $|
00001520: 42 41 20 20 20 20 20 3B 4F 46 20 41 28 29 00 3A |BA ;OF A().:|
00001530: 1D BA 09 53 54 59 20 24 42 36 00 59 1D C4 09 4A |...STY $B6.Y...J|
00001540: 53 52 20 3A 4D 45 4D 44 49 56 20 3B 46 41 43 31 |SR :MEMDIV ;FAC1|
00001550: B2 46 41 43 31 AC 41 28 29 00 72 1D CE 09 4A 53 |.FAC1.A().r...JS|
00001560: 52 20 3A 53 A4 52 45 20 20 3B 41 28 29 B2 46 41 |R :S.RE ;A().FA|
00001570: 43 31 00 94 1D D8 09 4A 53 52 20 3A 54 45 53 54 |C1.....JSR :TEST|
00001580: 31 20 20 3B 49 4E 43 8F 45 4E 54 20 50 4F 49 4E |1 ;INC.ENT POIN|
00001590: 54 45 52 53 00 A2 1D E2 09 42 43 53 20 3A 44 56 |TERS.....BCS :DV|
000015A0: 42 31 00 B1 1D EC 09 4A 4D 50 20 3A 52 45 53 45 |B1.....JMP :RESE|
000015B0: 54 00 CE 1D F6 09 3A 42 53 42 20 20 20 20 20 20 |T.....:BSB |
000015C0: 20 20 3B 41 28 29 B2 42 28 29 AB 41 28 29 00 DE | ;A().B().A()..|
000015D0: 1D 00 0A 4A 53 52 20 3A 53 5A 50 41 47 45 00 EC |...JSR :SZPAGE..|
000015E0: 1D 0A 0A 4A 53 52 20 3A 4D 4F 44 31 00 F6 1D 14 |...JSR :MOD1....|
000015F0: 0A 3A 42 53 42 31 00 02 1E 1E 0A 4C 44 41 20 24 |.:BSB1.....LDA $|
00001600: 42 39 00 1B 1E 28 0A 4C 44 59 20 24 42 41 20 20 |B9...(.LDY $BA |
00001610: 20 20 20 3B 41 44 44 52 45 53 53 00 33 1E 32 0A | ;ADDRESS.3.2.|
00001620: 53 54 41 20 24 42 35 20 20 20 20 20 3B 4F 46 20 |STA $B5 ;OF |
00001630: 41 28 29 00 3F 1E 3C 0A 53 54 59 20 24 42 36 00 |A().?.<.STY $B6.|
00001640: 59 1E 46 0A 4A 53 52 20 3A 4D 45 4D 46 41 43 20 |Y.F.JSR :MEMFAC |
00001650: 3B 46 41 43 31 B2 41 28 29 00 72 1E 50 0A 4C 44 |;FAC1.A().r.P.LD|
00001660: 41 20 24 42 37 20 20 20 20 20 3B 41 44 44 52 45 |A $B7 ;ADDRE|
00001670: 53 53 00 8A 1E 5A 0A 4C 44 59 20 24 42 38 20 20 |SS...Z.LDY $B8 |
00001680: 20 20 20 3B 4F 46 20 42 28 29 00 A9 1E 64 0A 4A | ;OF B()...d.J|
00001690: 53 52 20 3A 4D 45 4D 53 55 42 20 3B 46 41 43 31 |SR :MEMSUB ;FAC1|
000016A0: B2 42 28 29 AB 46 41 43 31 00 C2 1E 6E 0A 4A 53 |.B().FAC1...n.JS|
000016B0: 52 20 3A 53 A4 52 45 20 20 3B 41 28 29 B2 46 41 |R :S.RE ;A().FA|
000016C0: 43 31 00 E4 1E 78 0A 4A 53 52 20 3A 54 45 53 54 |C1...x.JSR :TEST|
000016D0: 31 20 20 3B 49 4E 43 8F 45 4E 54 20 50 4F 49 4E |1 ;INC.ENT POIN|
000016E0: 54 45 52 53 00 F2 1E 82 0A 42 43 53 20 3A 42 53 |TERS.....BCS :BS|
000016F0: 42 31 00 01 1F 8C 0A 4A 4D 50 20 3A 52 45 53 45 |B1.....JMP :RESE|
00001700: 54 00 1E 1F 96 0A 3A 56 44 42 20 20 20 20 20 20 |T.....:VDB |
00001710: 20 20 3B 41 28 29 B2 42 28 29 AD 41 28 29 00 2E | ;A().B().A()..|
00001720: 1F A0 0A 4A 53 52 20 3A 53 5A 50 41 47 45 00 3C |...JSR :SZPAGE.<|
00001730: 1F AA 0A 4A 53 52 20 3A 4D 4F 44 31 00 46 1F B4 |...JSR :MOD1.F..|
00001740: 0A 3A 56 44 42 31 00 52 1F BE 0A 4C 44 41 20 24 |.:VDB1.R...LDA $|
00001750: 42 39 00 6B 1F C8 0A 53 54 41 20 24 42 35 20 20 |B9.k...STA $B5 |
00001760: 20 20 20 3B 41 44 44 52 45 53 53 00 83 1F D2 0A | ;ADDRESS.....|
00001770: 4C 44 59 20 24 42 41 20 20 20 20 20 3B 4F 46 20 |LDY $BA ;OF |
00001780: 41 28 29 00 8F 1F DC 0A 53 54 59 20 24 42 36 00 |A().....STY $B6.|
00001790: A9 1F E6 0A 4A 53 52 20 3A 4D 45 4D 46 41 43 20 |....JSR :MEMFAC |
000017A0: 3B 46 41 43 31 B2 41 28 29 00 C2 1F F0 0A 4C 44 |;FAC1.A().....LD|
000017B0: 41 20 24 42 37 20 20 20 20 20 3B 41 44 44 52 45 |A $B7 ;ADDRE|
000017C0: 53 53 00 DA 1F FA 0A 4C 44 59 20 24 42 38 20 20 |SS.....LDY $B8 |
000017D0: 20 20 20 3B 4F 46 20 42 28 29 00 F9 1F 04 0B 4A | ;OF B().....J|
000017E0: 53 52 20 3A 4D 45 4D 44 49 56 20 3B 46 41 43 31 |SR :MEMDIV ;FAC1|
000017F0: B2 42 28 29 AD 46 41 43 31 00 12 20 0E 0B 4A 53 |.B().FAC1.. ..JS|
00001800: 52 20 3A 53 A4 52 45 20 20 3B 41 28 29 B2 46 41 |R :S.RE ;A().FA|
00001810: 43 31 00 21 20 18 0B 4A 53 52 20 3A 54 45 53 54 |C1.! ..JSR :TEST|
00001820: 31 00 2F 20 22 0B 42 43 53 20 3A 56 44 42 31 00 |1./ ".BCS :VDB1.|
00001830: 3E 20 2C 0B 4A 4D 50 20 3A 52 45 53 45 54 00 57 |> ,.JMP :RESET.W|
00001840: 20 36 0B 3A 45 51 42 20 20 20 20 20 20 20 20 3B | 6.:EQB ;|
00001850: 41 28 29 B2 42 28 29 00 67 20 40 0B 4A 53 52 20 |A().B().g @.JSR |
00001860: 3A 53 5A 50 41 47 45 00 75 20 4A 0B 4A 53 52 20 |:SZPAGE.u J.JSR |
00001870: 3A 4D 4F 44 31 00 7F 20 54 0B 3A 45 51 42 31 00 |:MOD1.. T.:EQB1.|
00001880: 8C 20 5E 0B 4C 44 59 20 23 24 30 30 00 AC 20 68 |. ^.LDY #$00.. h|
00001890: 0B 4C 44 41 20 28 24 42 37 29 2C 59 20 20 3B 31 |.LDA ($B7),Y ;1|
000018A0: 53 54 20 42 59 54 45 20 4F 46 20 42 00 C3 20 72 |ST BYTE OF B.. r|
000018B0: 0B 53 54 41 20 28 24 42 39 29 2C 59 20 20 3B B5 |.STA ($B9),Y ;.|
000018C0: 4F 20 41 00 DD 20 7C 0B 49 4E 43 20 24 42 37 20 |O A.. |.INC $B7 |
000018D0: 20 20 20 20 20 3B 49 4E 43 8F 45 4E 54 00 F7 20 | ;INC.ENT.. |
000018E0: 86 0B 42 4E 45 20 3A 45 51 42 32 20 20 20 20 3B |..BNE :EQB2 ;|
000018F0: 41 44 44 52 45 53 53 00 0E 21 90 0B 49 4E 43 20 |ADDRESS..!..INC |
00001900: 24 42 38 20 20 20 20 20 20 3B 4F 46 20 42 00 18 |$B8 ;OF B..|
00001910: 21 9A 0B 3A 45 51 42 32 00 32 21 A4 0B 49 4E 43 |!..:EQB2.2!..INC|
00001920: 20 24 42 39 20 20 20 20 20 20 3B 49 4E 43 8F 45 | $B9 ;INC.E|
00001930: 4E 54 00 4C 21 AE 0B 42 4E 45 20 20 3A 45 51 42 |NT.L!..BNE :EQB|
00001940: 33 20 20 20 3B 41 44 44 52 45 53 53 00 63 21 B8 |3 ;ADDRESS.c!.|
00001950: 0B 49 4E 43 20 24 42 41 20 20 20 20 20 20 3B 4F |.INC $BA ;O|
00001960: 46 20 41 00 6D 21 C2 0B 3A 45 51 42 33 00 8C 21 |F A.m!..:EQB3..!|
00001970: CC 0B 4C 44 41 20 24 42 41 20 20 20 20 20 20 3B |..LDA $BA ;|
00001980: 48 49 20 42 59 54 45 20 4F 46 20 41 00 A9 21 D6 |HI BYTE OF A..!.|
00001990: 0B 4A 53 52 20 3A 54 45 53 54 32 20 20 20 3B 80 |.JSR :TEST2 ;.|
000019A0: 20 4F 46 20 41 52 52 41 59 00 C4 21 E0 0B 42 43 | OF ARRAY..!..BC|
000019B0: 53 20 3A 45 51 42 31 20 20 20 20 3B 4E 4F 20 9A |S :EQB1 ;NO .|
000019C0: 49 4E 55 45 00 E7 21 EA 0B 4A 4D 50 20 3A 52 45 |INUE..!..JMP :RE|
000019D0: 53 45 54 20 20 20 3B 59 45 53 20 45 58 49 54 20 |SET ;YES EXIT |
000019E0: 52 4F 55 54 49 4E 45 00 0B 22 F4 0B 3A 4D 4F 44 |ROUTINE.."..:MOD|
000019F0: 32 20 20 20 20 20 20 20 20 3B 46 49 4E 44 20 41 |2 ;FIND A|
00001A00: 44 44 52 45 53 53 20 4F 46 20 41 00 28 22 FE 0B |DDRESS OF A.("..|
00001A10: 4A 53 52 20 24 41 45 46 44 20 20 20 20 3B 53 4B |JSR $AEFD ;SK|
00001A20: 49 50 20 43 4F 4D 4D 41 00 43 22 08 0C 4A 53 52 |IP COMMA.C"..JSR|
00001A30: 20 24 41 44 39 45 20 20 20 20 3B 20 52 4F 55 54 | $AD9E ; ROUT|
00001A40: 49 4E 45 00 60 22 12 0C 4C 44 41 20 24 34 37 20 |INE.`"..LDA $47 |
00001A50: 20 20 20 20 20 3B 4C 4F 20 42 59 54 45 20 4F 46 | ;LO BYTE OF|
00001A60: 00 7C 22 1C 0C 53 54 41 20 24 42 39 20 20 20 20 |.|"..STA $B9 |
00001A70: 20 20 3B 41 20 41 44 44 52 45 53 53 00 99 22 26 | ;A ADDRESS.."&|
00001A80: 0C 4C 44 41 20 24 34 38 20 20 20 20 20 20 3B 48 |.LDA $48 ;H|
00001A90: 49 20 42 59 54 45 20 4F 46 00 B5 22 30 0C 53 54 |I BYTE OF.."0.ST|
00001AA0: 41 20 24 42 41 20 20 20 20 20 20 3B 41 20 41 44 |A $BA ;A AD|
00001AB0: 44 52 45 53 53 00 D0 22 3A 0C 4C 44 41 20 24 32 |DRESS..":.LDA $2|
00001AC0: 46 20 20 20 20 20 20 3B 53 54 41 52 54 20 4F 46 |F ;START OF|
00001AD0: 00 DC 22 44 0C 53 54 41 20 24 46 42 00 FB 22 4E |.."D.STA $FB.."N|
00001AE0: 0C 4C 44 41 20 24 33 30 20 20 20 20 20 20 3B 41 |.LDA $30 ;A|
00001AF0: 52 52 41 59 20 53 A4 52 41 47 45 00 07 23 58 0C |RRAY S.RAGE..#X.|
00001B00: 53 54 41 20 24 46 43 00 2D 23 62 0C 3A 41 47 41 |STA $FC.-#b.:AGA|
00001B10: 49 4E 20 20 20 20 20 20 20 3B 53 45 41 52 43 48 |IN ;SEARCH|
00001B20: 20 41 52 52 41 59 20 53 A4 52 41 47 45 00 3A 23 | ARRAY S.RAGE.:#|
00001B30: 6C 0C 4C 44 59 20 23 24 30 30 00 4A 23 76 0C 4C |l.LDY #$00.J#v.L|
00001B40: 44 41 20 28 24 46 42 29 2C 59 00 63 23 80 0C 43 |DA ($FB),Y.c#..C|
00001B50: 4D 50 20 24 34 35 20 20 20 20 20 20 3B 81 20 4E |MP $45 ;. N|
00001B60: 41 4D 45 00 75 23 8A 0C 42 4E 45 20 3A A9 32 20 |AME.u#..BNE :.2 |
00001B70: 20 20 3B 4F 46 00 7D 23 94 0C 49 4E 59 00 8D 23 | ;OF.}#..INY..#|
00001B80: 9E 0C 4C 44 41 20 28 24 46 42 29 2C 59 00 A9 23 |..LDA ($FB),Y..#|
00001B90: A8 0C 43 4D 50 20 24 34 36 20 20 20 20 20 20 3B |..CMP $46 ;|
00001BA0: 27 41 27 20 41 52 52 41 59 00 C3 23 B2 0C 42 4E |'A' ARRAY..#..BN|
00001BB0: 45 20 3A A9 20 20 20 20 3B 52 4F 55 54 49 4E 45 |E :. ;ROUTINE|
00001BC0: 20 8E 53 00 E4 23 BC 0C 4A 53 52 20 3A A9 31 20 | .S..#..JSR :.1 |
00001BD0: 20 20 3B 57 49 54 48 20 80 49 4E 47 20 41 44 44 | ;WITH .ING ADD|
00001BE0: 52 45 53 53 00 07 24 C6 0C 52 54 53 20 20 20 20 |RESS..$..RTS |
00001BF0: 20 20 20 20 20 20 3B 4F 46 20 41 28 29 49 4E 20 | ;OF A()IN |
00001C00: 24 46 42 2C 24 46 43 00 0F 24 D0 0C 3A A9 32 00 |$FB,$FC..$..:.2.|
00001C10: 17 24 DA 0C 49 4E 59 00 1E 24 E4 0C 3A A9 00 2A |.$..INY..$..:..*|
00001C20: 24 EE 0C 4A 53 52 20 3A A9 31 00 39 24 F8 0C 4A |$..JSR :.1.9$..J|
00001C30: 4D 50 20 3A 41 47 41 49 4E 00 52 24 02 0D 3A A9 |MP :AGAIN.R$..:.|
00001C40: 31 20 20 20 20 20 20 20 3B 52 4F 55 54 49 4E 45 |1 ;ROUTINE|
00001C50: 20 A4 00 71 24 0C 0D 49 4E 59 20 20 20 20 20 20 | ..q$..INY |
00001C60: 20 20 20 20 3B 53 4B 49 50 20 54 48 52 4F 55 47 | ;SKIP THROUG|
00001C70: 48 00 8F 24 16 0D 4C 44 41 20 28 24 46 42 29 2C |H..$..LDA ($FB),|
00001C80: 59 20 20 3B 41 52 52 41 59 20 4D 45 4D B0 59 00 |Y ;ARRAY MEM.Y.|
00001C90: A9 24 20 0D 53 54 41 20 24 46 44 20 20 20 20 20 |.$ .STA $FD |
00001CA0: 20 3B 46 52 4F 4D 20 91 45 00 C5 24 2A 0D 49 4E | ;FROM .E..$*.IN|
00001CB0: 59 20 20 20 20 20 20 20 20 20 20 3B 41 52 52 41 |Y ;ARRA|
00001CC0: 59 20 A4 20 82 00 D5 24 34 0D 4C 44 41 20 28 24 |Y . ...$4.LDA ($|
00001CD0: 46 42 29 2C 59 00 DD 24 3E 0D 43 4C 43 00 E9 24 |FB),Y..$>.CLC..$|
00001CE0: 48 0D 41 44 43 20 24 46 43 00 F5 24 52 0D 53 54 |H.ADC $FC..$R.ST|
00001CF0: 41 20 24 46 43 00 01 25 5C 0D 4C 44 41 20 24 46 |A $FC..%\.LDA $F|
00001D00: 42 00 09 25 66 0D 43 4C 43 00 15 25 70 0D 41 44 |B..%f.CLC..%p.AD|
00001D10: 43 20 24 46 44 00 21 25 7A 0D 53 54 41 20 24 46 |C $FD.!%z.STA $F|
00001D20: 42 00 2E 25 84 0D 42 43 43 20 3A 53 54 32 00 3A |B..%..BCC :ST2.:|
00001D30: 25 8E 0D 49 4E 43 20 24 46 43 00 43 25 98 0D 3A |%..INC $FC.C%..:|
00001D40: 53 54 32 00 4B 25 A2 0D 52 54 53 00 6D 25 AC 0D |ST2.K%..RTS.m%..|
00001D50: 3A 4D 4F 44 31 20 20 20 20 20 3B 52 4F 55 54 49 |:MOD1 ;ROUTI|
00001D60: 4E 45 20 A4 20 46 49 4E 44 20 42 28 29 00 87 25 |NE . FIND B()..%|
00001D70: B6 0D 4A 53 52 20 24 41 45 46 44 20 3B 53 4B 49 |..JSR $AEFD ;SKI|
00001D80: 50 20 43 4F 4D 4D 41 00 9F 25 C0 0D 4A 53 52 20 |P COMMA..%..JSR |
00001D90: 24 42 30 38 42 20 3B 20 52 4F 55 54 49 4E 45 00 |$B08B ; ROUTINE.|
00001DA0: B9 25 CA 0D 4C 44 41 20 24 34 37 20 20 20 3B A4 |.%..LDA $47 ;.|
00001DB0: 20 46 49 4E 44 20 56 2C 42 00 D1 25 D4 0D 53 54 | FIND V,B..%..ST|
00001DC0: 41 20 24 42 37 20 20 20 3B B0 20 43 52 45 41 54 |A $B7 ;. CREAT|
00001DD0: 45 00 E9 25 DE 0D 4C 44 41 20 24 34 38 20 20 20 |E..%..LDA $48 |
00001DE0: 3B 56 41 52 49 41 42 4C 45 00 02 26 E8 0D 53 54 |;VARIABLE..&..ST|
00001DF0: 41 20 24 42 38 20 20 20 3B 8B 20 A8 20 46 4F 55 |A $B8 ;. . FOU|
00001E00: 4E 44 00 10 26 F2 0D 4A 4D 50 20 3A 4D 4F 44 32 |ND..&..JMP :MOD2|
00001E10: 00 32 26 FC 0D 3A 4D 41 58 20 20 20 20 20 20 20 |.2&..:MAX |
00001E20: 20 3B 56 B2 4D 41 58 49 4D 55 4D 20 4F 46 20 41 | ;V.MAXIMUM OF A|
00001E30: 28 29 00 42 26 06 0E 4A 53 52 20 3A 53 5A 50 41 |().B&..JSR :SZPA|
00001E40: 47 45 00 50 26 10 0E 4A 53 52 20 3A 4D 4F 44 31 |GE.P&..JSR :MOD1|
00001E50: 00 5C 26 1A 0E 4C 44 41 20 24 42 39 00 68 26 24 |.\&..LDA $B9.h&$|
00001E60: 0E 4C 44 59 20 24 42 41 00 83 26 2E 0E 4A 53 52 |.LDY $BA..&..JSR|
00001E70: 20 3A 4D 45 4D 46 41 43 20 3B 46 41 43 31 B2 41 | :MEMFAC ;FAC1.A|
00001E80: 28 30 29 00 9C 26 38 0E 2E 58 59 20 3A 44 55 4D |(0)..&8..XY :DUM|
00001E90: 4D 59 20 20 3B 53 A4 52 45 20 49 4E 00 B5 26 42 |MY ;S.RE IN..&B|
00001EA0: 0E 4A 53 52 20 3A 46 41 43 4D 45 4D 20 3B 27 44 |.JSR :FACMEM ;'D|
00001EB0: 55 4D 4D 59 27 00 C3 26 4C 0E 4A 53 52 20 3A 54 |UMMY'..&L.JSR :T|
00001EC0: 45 53 54 00 CD 26 56 0E 3A 4D 41 58 32 00 E8 26 |EST..&V.:MAX2..&|
00001ED0: 60 0E 4C 44 41 20 24 42 39 20 20 20 20 20 3B 82 |`.LDA $B9 ;.|
00001EE0: 20 41 44 44 52 45 53 53 00 00 27 6A 0E 4C 44 59 | ADDRESS..'j.LDY|
00001EF0: 20 24 42 41 20 20 20 20 20 3B 4F 46 20 41 28 29 | $BA ;OF A()|
00001F00: 00 1A 27 74 0E 4A 53 52 20 3A 4D 45 4D 46 41 43 |..'t.JSR :MEMFAC|
00001F10: 20 3B 46 41 43 31 B2 41 28 29 00 29 27 7E 0E 2E | ;FAC1.A().)'~..|
00001F20: 58 59 20 3A 44 55 4D 4D 59 00 31 27 88 0E 54 58 |XY :DUMMY.1'..TX|
00001F30: 41 00 4A 27 92 0E 4A 53 52 20 3A 43 4F 4D 50 41 |A.J'..JSR :COMPA|
00001F40: 52 20 3B 43 4F 4D 50 41 52 45 00 6C 27 9C 0E 42 |R ;COMPARE.l'..B|
00001F50: 4D 49 20 3A 4D 41 58 33 20 20 20 3B 41 28 29 20 |MI :MAX3 ;A() |
00001F60: 57 49 54 48 20 27 44 55 4D 4D 59 27 00 89 27 A6 |WITH 'DUMMY'..'.|
00001F70: 0E 2E 58 59 20 3A 44 55 4D 4D 59 20 20 3B 46 41 |..XY :DUMMY ;FA|
00001F80: 43 31 20 4C 41 52 47 45 52 00 A9 27 B0 0E 4A 53 |C1 LARGER..'..JS|
00001F90: 52 20 3A 46 41 43 4D 45 4D 20 3B A7 20 27 44 55 |R :FACMEM ;. 'DU|
00001FA0: 4D 4D 59 27 B2 46 41 43 31 00 B3 27 BA 0E 3A 4D |MMY'.FAC1..'..:M|
00001FB0: 41 58 33 00 C8 27 C4 0E 4A 53 52 20 3A 54 45 53 |AX3..'..JSR :TES|
00001FC0: 54 20 20 20 3B 44 91 45 00 E2 27 CE 0E 42 43 53 |T ;D.E..'..BCS|
00001FD0: 20 3A 4D 41 58 32 20 20 20 3B 4E 4F 20 9A 49 4E | :MAX2 ;NO .IN|
00001FE0: 55 45 00 F7 27 D8 0E 2E 58 59 20 3A 44 55 4D 4D |UE..'...XY :DUMM|
00001FF0: 59 20 20 3B 59 45 53 00 15 28 E2 0E 54 58 41 20 |Y ;YES..(..TXA |
00002000: 20 20 20 20 20 20 20 20 3B 46 41 43 31 B2 27 44 | ;FAC1.'D|
00002010: 55 4D 4D 59 27 00 25 28 EC 0E 4A 53 52 20 3A 4D |UMMY'.%(..JSR :M|
00002020: 45 4D 46 41 43 00 3E 28 F6 0E 4C 44 58 20 24 42 |EMFAC.>(..LDX $B|
00002030: 37 20 20 20 20 20 3B 41 44 44 52 45 53 53 00 54 |7 ;ADDRESS.T|
00002040: 28 00 0F 4C 44 59 20 24 42 38 20 20 20 20 20 3B |(..LDY $B8 ;|
00002050: 4F 46 20 56 00 6C 28 0A 0F 4A 53 52 20 3A 46 41 |OF V.l(..JSR :FA|
00002060: 43 4D 45 4D 20 3B 56 B2 46 41 43 31 00 7B 28 14 |CMEM ;V.FAC1.{(.|
00002070: 0F 4A 4D 50 20 3A 52 45 53 45 54 00 9D 28 1E 0F |.JMP :RESET..(..|
00002080: 3A 4D 49 4E 20 20 20 20 20 20 20 20 3B 56 B2 4D |:MIN ;V.M|
00002090: 49 4E 49 4D 55 4D 20 4F 46 20 41 28 29 00 AD 28 |INIMUM OF A()..(|
000020A0: 28 0F 4A 53 52 20 3A 53 5A 50 41 47 45 00 BB 28 |(.JSR :SZPAGE..(|
000020B0: 32 0F 4A 53 52 20 3A 4D 4F 44 31 00 D3 28 3C 0F |2.JSR :MOD1..(<.|
000020C0: 4C 44 41 20 24 42 39 20 20 20 20 3B 41 44 44 52 |LDA $B9 ;ADDR|
000020D0: 45 53 53 00 EB 28 46 0F 4C 44 59 20 24 42 41 20 |ESS..(F.LDY $BA |
000020E0: 20 20 20 3B 4F 46 20 41 28 30 29 00 01 29 50 0F | ;OF A(0)..)P.|
000020F0: 4A 53 52 20 3A 4D 45 4D 46 41 43 20 3B 53 A4 52 |JSR :MEMFAC ;S.R|
00002100: 45 00 1A 29 5A 0F 2E 58 59 20 3A 44 55 4D 4D 59 |E..)Z..XY :DUMMY|
00002110: 20 20 3B 41 28 30 29 20 B5 4F 00 33 29 64 0F 4A | ;A(0) .O.3)d.J|
00002120: 53 52 20 3A 46 41 43 4D 45 4D 20 3B 27 44 55 4D |SR :FACMEM ;'DUM|
00002130: 4D 59 27 00 41 29 69 0F 4A 53 52 20 3A 54 45 53 |MY'.A)i.JSR :TES|
00002140: 54 00 4B 29 6E 0F 3A 4D 49 4E 32 00 67 29 78 0F |T.K)n.:MIN2.g)x.|
00002150: 4C 44 41 20 24 42 39 20 20 20 20 20 3B 41 44 44 |LDA $B9 ;ADD|
00002160: 52 45 53 53 20 4F 46 00 7E 29 82 0F 4C 44 59 20 |RESS OF.~)..LDY |
00002170: 24 42 41 20 20 20 20 20 3B 82 20 41 28 29 00 99 |$BA ;. A()..|
00002180: 29 8C 0F 4A 53 52 20 3A 4D 45 4D 46 41 43 20 3B |)..JSR :MEMFAC ;|
00002190: 93 20 B5 4F 20 46 41 43 31 00 AC 29 96 0F 2E 58 |. .O FAC1..)...X|
000021A0: 59 20 3A 44 55 4D 4D 59 20 20 3B AF 00 B4 29 A0 |Y :DUMMY ;...).|
000021B0: 0F 54 58 41 00 DA 29 AA 0F 4A 53 52 20 3A 43 4F |.TXA..)..JSR :CO|
000021C0: 4D 50 41 52 20 3B 43 4F 4D 50 41 52 45 20 57 49 |MPAR ;COMPARE WI|
000021D0: 54 48 20 27 44 55 4D 4D 59 27 00 F7 29 B4 0F 42 |TH 'DUMMY'..)..B|
000021E0: 50 4C 20 3A 4D 49 4E 33 20 20 20 3B 46 41 43 31 |PL :MIN3 ;FAC1|
000021F0: B3 27 44 55 4D 4D 59 00 12 2A BE 0F 2E 58 59 20 |.'DUMMY..*...XY |
00002200: 3A 44 55 4D 4D 59 20 20 3B A7 20 27 44 55 4D 4D |:DUMMY ;. 'DUMM|
00002210: 59 27 00 29 2A C8 0F 4A 53 52 20 3A 46 41 43 4D |Y'.)*..JSR :FACM|
00002220: 45 4D 20 3B B2 46 41 43 31 00 33 2A D2 0F 3A 4D |EM ;.FAC1.3*..:M|
00002230: 49 4E 33 00 41 2A DC 0F 4A 53 52 20 3A 54 45 53 |IN3.A*..JSR :TES|
00002240: 54 00 61 2A E6 0F 42 43 53 20 3A 4D 49 4E 32 20 |T.a*..BCS :MIN2 |
00002250: 20 20 3B 27 44 55 4D 4D 59 20 B2 4D 49 4E 28 41 | ;'DUMMY .MIN(A|
00002260: 29 00 70 2A F0 0F 2E 58 59 20 3A 44 55 4D 4D 59 |).p*...XY :DUMMY|
00002270: 00 78 2A FA 0F 54 58 41 00 92 2A 04 10 4A 53 52 |.x*..TXA..*..JSR|
00002280: 20 3A 4D 45 4D 46 41 43 20 3B 54 52 41 4E 53 46 | :MEMFAC ;TRANSF|
00002290: 45 52 00 AB 2A 0E 10 4C 44 58 20 24 42 37 20 20 |ER..*..LDX $B7 |
000022A0: 20 20 20 3B 27 44 55 4D 4D 59 27 00 BE 2A 18 10 | ;'DUMMY'..*..|
000022B0: 4C 44 59 20 24 42 38 20 20 20 20 20 3B A4 00 D1 |LDY $B8 ;...|
000022C0: 2A 22 10 4A 53 52 20 3A 46 41 43 4D 45 4D 20 3B |*".JSR :FACMEM ;|
000022D0: 56 00 E0 2A 2C 10 4A 4D 50 20 3A 52 45 53 45 54 |V..*,.JMP :RESET|
000022E0: 00 F7 2A 36 10 3A 53 51 55 41 52 45 20 20 20 20 |..*6.:SQUARE |
000022F0: 20 3B 41 B2 41 AC 41 00 07 2B 40 10 4A 53 52 20 | ;A.A.A..+@.JSR |
00002300: 3A 53 5A 50 41 47 45 00 15 2B 4A 10 4A 53 52 20 |:SZPAGE..+J.JSR |
00002310: 3A 4D 4F 44 32 00 1F 2B 54 10 3A 53 51 55 31 00 |:MOD2..+T.:SQU1.|
00002320: 38 2B 5E 10 4C 44 41 20 24 42 39 20 20 20 20 20 |8+^.LDA $B9 |
00002330: 3B 41 44 44 52 45 53 53 00 50 2B 68 10 4C 44 59 |;ADDRESS.P+h.LDY|
00002340: 20 24 42 41 20 20 20 20 20 3B 4F 46 20 41 28 29 | $BA ;OF A()|
00002350: 00 5C 2B 72 10 53 54 41 20 24 42 35 00 68 2B 7C |.\+r.STA $B5.h+||
00002360: 10 53 54 59 20 24 42 36 00 84 2B 86 10 4A 53 52 |.STY $B6..+..JSR|
00002370: 20 3A 4D 45 4D 46 41 43 20 3B 41 28 29 20 A4 20 | :MEMFAC ;A() . |
00002380: 46 41 43 31 00 90 2B 8B 10 4C 44 41 20 24 42 39 |FAC1..+..LDA $B9|
00002390: 00 9C 2B 8D 10 4C 44 59 20 24 42 41 00 B6 2B 90 |..+..LDY $BA..+.|
000023A0: 10 4A 53 52 20 3A 4D 45 4D 4D 55 4C 20 3B 46 41 |.JSR :MEMMUL ;FA|
000023B0: 43 31 B2 41 AC 41 00 C4 2B 9A 10 4A 53 52 20 3A |C1.A.A..+..JSR :|
000023C0: 53 A4 52 45 00 E5 2B A4 10 4A 53 52 20 3A 54 45 |S.RE..+..JSR :TE|
000023D0: 53 54 20 20 20 3B 49 4E 43 8F 45 4E 54 20 50 4F |ST ;INC.ENT PO|
000023E0: 49 4E 54 45 52 00 F3 2B AE 10 42 43 53 20 3A 53 |INTER..+..BCS :S|
000023F0: 51 55 31 00 02 2C B8 10 4A 4D 50 20 3A 52 45 53 |QU1..,..JMP :RES|
00002400: 45 54 00 1A 2C C2 10 3A 49 4E 53 45 52 54 20 20 |ET..,..:INSERT |
00002410: 20 20 20 3B 41 28 58 29 B2 56 00 35 2C CC 10 4A | ;A(X).V.5,..J|
00002420: 53 52 20 3A 53 5A 50 41 47 45 20 3B 46 4F 4C 4C |SR :SZPAGE ;FOLL|
00002430: 4F 57 49 4E 47 00 4F 2C D6 10 4A 53 52 20 3A 4D |OWING.O,..JSR :M|
00002440: 4F 44 31 20 20 20 3B 45 4C 45 4D 45 4E 54 53 00 |OD1 ;ELEMENTS.|
00002450: 6B 2C E0 10 4C 44 41 20 23 24 30 35 20 20 20 20 |k,..LDA #$05 |
00002460: 3B 4D 4F 56 45 44 20 44 4F 57 4E 00 8C 2C EA 10 |;MOVED DOWN..,..|
00002470: 53 54 41 20 24 42 46 20 20 20 20 20 3B 41 28 4D |STA $BF ;A(M|
00002480: 41 58 29 B2 41 28 4D 41 58 AB 31 29 00 A3 2C F4 |AX).A(MAX.1)..,.|
00002490: 10 4C 44 41 20 24 34 36 20 20 20 20 20 3B 9A 49 |.LDA $46 ;.I|
000024A0: 4E 55 45 00 BA 2C FE 10 41 53 4C 20 41 20 20 20 |NUE..,..ASL A |
000024B0: 20 20 20 20 3B 55 4E 54 49 4C 00 D7 2C 08 11 42 | ;UNTIL..,..B|
000024C0: 43 43 20 3A 49 4E 53 31 20 20 20 3B 41 28 58 AA |CC :INS1 ;A(X.|
000024D0: 31 29 B2 41 28 58 29 00 F1 2C 12 11 4C 44 41 20 |1).A(X)..,..LDA |
000024E0: 23 24 30 32 20 20 20 20 3B A7 20 41 28 58 29 B2 |#$02 ;. A(X).|
000024F0: 56 00 0F 2D 1C 11 53 54 41 20 24 42 46 20 20 20 |V..-..STA $BF |
00002500: 20 20 3B 52 4F 55 54 49 4E 45 20 57 49 4C 4C 00 | ;ROUTINE WILL.|
00002510: 2D 2D 26 11 3A 49 4E 53 31 20 20 20 20 20 20 20 |--&.:INS1 |
00002520: 3B 41 55 A4 4D 41 54 49 43 41 4C 4C 59 00 50 2D |;AU.MATICALLY.P-|
00002530: 30 11 4C 44 41 20 24 46 42 20 20 20 20 20 3B 55 |0.LDA $FB ;U|
00002540: 53 45 20 50 52 4F 50 45 52 20 4F 46 46 53 45 54 |SE PROPER OFFSET|
00002550: 00 71 2D 3A 11 43 4C 43 20 20 20 20 20 20 20 20 |.q-:.CLC |
00002560: 20 3B 81 20 56 41 52 49 41 42 4C 45 20 54 59 50 | ;. VARIABLE TYP|
00002570: 45 00 8C 2D 44 11 53 42 43 20 24 42 46 20 20 20 |E..-D.SBC $BF |
00002580: 20 20 3B 57 B0 4B 53 20 57 49 54 48 00 AA 2D 4E | ;W.KS WITH..-N|
00002590: 11 53 54 41 20 24 46 42 20 20 20 20 20 3B 53 54 |.STA $FB ;ST|
000025A0: 52 49 4E 47 53 20 28 41 24 29 00 C7 2D 58 11 4C |RINGS (A$)..-X.L|
000025B0: 44 41 20 24 46 43 20 20 20 20 20 3B B5 45 47 45 |DA $FC ;.EGE|
000025C0: 52 53 20 28 41 25 29 00 DA 2D 62 11 53 42 43 20 |RS (A%)..-b.SBC |
000025D0: 23 24 30 30 20 20 20 20 3B B0 00 F8 2D 6C 11 53 |#$00 ;...-l.S|
000025E0: 54 41 20 24 46 43 20 20 20 20 20 3B 46 4C 4F 41 |TA $FC ;FLOA|
000025F0: 54 49 4E 47 20 50 4F B5 00 04 2E 76 11 4C 44 41 |TING PO....v.LDA|
00002600: 20 24 46 42 00 0C 2E 80 11 43 4C 43 00 18 2E 8A | $FB.....CLC....|
00002610: 11 53 42 43 20 24 42 46 00 24 2E 94 11 53 54 41 |.SBC $BF.$...STA|
00002620: 20 24 46 44 00 30 2E 9E 11 4C 44 41 20 24 46 43 | $FD.0...LDA $FC|
00002630: 00 3D 2E A8 11 53 42 43 20 23 24 30 30 00 49 2E |.=...SBC #$00.I.|
00002640: B2 11 53 54 41 20 24 46 45 00 55 2E BC 11 4C 44 |..STA $FE.U...LD|
00002650: 59 20 24 42 46 00 5D 2E C6 11 44 45 59 00 67 2E |Y $BF.]...DEY.g.|
00002660: D0 11 3A 49 4E 53 32 00 77 2E DA 11 4C 44 41 20 |..:INS2.w...LDA |
00002670: 28 24 46 44 29 2C 59 00 87 2E E4 11 53 54 41 20 |($FD),Y.....STA |
00002680: 28 24 46 42 29 2C 59 00 8F 2E EE 11 44 45 59 00 |($FB),Y.....DEY.|
00002690: 9D 2E F8 11 42 50 4C 20 3A 49 4E 53 32 00 A9 2E |....BPL :INS2...|
000026A0: 02 12 4C 44 41 20 24 46 45 00 B5 2E 0C 12 43 4D |..LDA $FE.....CM|
000026B0: 50 20 24 42 41 00 C3 2E 16 12 42 4E 45 20 3A 49 |P $BA.....BNE :I|
000026C0: 4E 53 31 00 CF 2E 20 12 4C 44 41 20 24 46 44 00 |NS1... .LDA $FD.|
000026D0: DB 2E 2A 12 43 4D 50 20 24 42 39 00 E9 2E 34 12 |..*.CMP $B9...4.|
000026E0: 42 4E 45 20 3A 49 4E 53 31 00 F5 2E 3E 12 4C 44 |BNE :INS1...>.LD|
000026F0: 59 20 24 42 46 00 FD 2E 48 12 44 45 59 00 07 2F |Y $BF...H.DEY../|
00002700: 52 12 3A 49 4E 53 33 00 17 2F 5C 12 4C 44 41 20 |R.:INS3../\.LDA |
00002710: 28 24 42 37 29 2C 59 00 27 2F 66 12 53 54 41 20 |($B7),Y.'/f.STA |
00002720: 28 24 46 42 29 2C 59 00 2F 2F 70 12 44 45 59 00 |($FB),Y.//p.DEY.|
00002730: 3D 2F 7A 12 42 50 4C 20 3A 49 4E 53 33 00 4C 2F |=/z.BPL :INS3.L/|
00002740: 84 12 4A 4D 50 20 3A 52 45 53 45 54 00 53 2F 8E |..JMP :RESET.S/.|
00002750: 12 3A 80 00 5B 2F 98 12 2E 45 4E 00 00 00 |.:..[/...EN... |
......;ARRAY MATH FUNCTI.S.1...;C RICHAR
D RICHM.D.I...; 308 ROSEWOOD AVE..A...;
SPRINGFIELD, OHIO.M...; 45506.....; (513
) 322.7650......G $CA58.....:MEMFAC .EQ
$BBA2 ;MEM.Y . FAC1.Y...:FACMEM .EQ $BB
D4 ;FAC1 . MEM.Y...(.:COMPAR .EQ $BC5B
;COMPARE MEM.Y . FAC1./.P.:MEMPLU .EQ $
B867 ;ADD MEM.Y . FAC1.Z.Z.:MEMMUL .EQ
$BA28 ;MULT FAC1 BY MEM.Y...D.:MEMSUB .
EQ $B850 ;SUB FAC1 FROM MEM.Y...N.:MEMDI
V .EQ $BB0F ;DIVIDE FAC1 BY MEM.Y.X.X.JM
P :EQV ; A().V 'STARTING ADDRESS.....JMP
:EQB ; A().B() 'SA.3.....JMP :PLV ; A()
.A().V 'SA.6.5...JMP :PLB ; A().A().B()
'SA.9.U. .JMP :SBV ; A().A().V 'SA.12.W.
..JMP :SBB ; A().A().B() 'SA.15.....JMP
:MLV ; A().A().V 'SA.18.....JMP :MLB ; A
().A().B() 'SA.21.Y.H.JMP :DVV ; A().A()
.V 'SA.24...R.JMP :DVB ; A().A().B() 'SA
.27.....JMP :BSV ; A().V.A() 'SA.30.=...
JMP :BSB ; A().B().B() 'SA.33.]...JMP :V
DV ; A().V.A() 'SA.36....JMP :VDB ; A()
.B().A() 'SA.39. ...JMP :MAX ; V.MAX(A()
) 'SA.42.A...JMP :MIN ; V.MIN(A()) 'SA.4
5.....JMP :SQUARE ; A().A().2 'SA.48....
.JMP :INSERT ; INSERT V AT A() 'SA.51...
..:DUMMY.%."..DS$0006.0.@.:ZPAGE.>.J..DS
$000D.[.T.:SZPAGE ; ROUTINE . ..|.^.
LDY #$0C ; ZERO PAGE MEM.Y...H.:SZ1...
R.LDA $00BF,Y...|.STA :ZPAGE,Y.....DEY..
...BPL :SZ1.C...RTS.....:RESET ;R
OUTINE . RESET.....LDY #$0C ;AERO P
AGE MEM.Y.....:.Z.".B.LDA :ZPAGE,Y.2.L.S
TA $00BF,Y.:.V.DEY.F...BPL :.Z.^...RTS
;EXIT.Z...:S.RE ;S.RE FA
C1.....LDX $B5 ;. MEM.Y.....LDY $B
6 ; SPEC.IED AT.Q...JSR :FACMEM
; $B5,$B6.Y...RTS...&.:TEST1 ;THIS P.T
I....0.LDA $B7 ;INC.ENTS THE.'.:.CLC
;SEC.D ARRAY.?.D.ADC #$05 ;PO.ERS BY.
O.N.STA $B7 ;5.[.X.LDA $B8.H.B.ADC #$00
.T.L.STA $B8...V.:TEST ;ROUTINE .. ...
LDA $B9 ;INC.ENT.....CLC ;FIRST ARRA
Y.Q...ADC #$05 ;PO.ERS BY.....STA $B9 ;
5.....LDA $BA.....ADC #$00.....STA $BA..
.F.:TEST2 ;. CHECK.4.P.CMP $FC ;. T
HE ..I.Z.BNE :. ;OF ARRAY.U...LDA $B9.A.
..CMP $FB.L...BNE :..T...CLC.|...RTS....
.:. ;. . . .... .SEC ;SET CARRY BIT.
..*.RTS...4.:EQV ;A().V...>.JSR :SZPAGE
;S.RE ZERO PAGE...H.JSR :MOD1 ;. ADDR
ESSES...R.LDA $B7 ;ADDRESS O.+.\.LDY
$B8 ;V.G.F.JSR :MEMFAC ;. V . FAC1.
Q.P.:EQV1.M.Z.LDX $B9 ;ADDRESS OF...
..LDY $BA ;A().....JSR :FACMEM ;FAC1
. A(X).....JSR :TEST ;CHECK . D.E.V..
.BCS :EQV1 ;NO .INUE.....JMP :RESET ;
YES EXIT ROUTINE.....:PLV ;A().A(
).V.#...JSR :SZPAGE.1.J.JSR :MOD1.;.T.:P
LV2.V...LDA $B9 ;. ADDRESS.O...LDY $
BA ;OF . A().....STA $B5 ;PO.ER ..
....STY $B6 ;S.RE ROUTINE.G...JSR :ME
MFAC;1ST ELEMENT . FAC1.....LDA $B7 ;
ADDRESS OF.....LDY $B8 ;V...$.JSR :ME
MPLU ;ADD V . FAC1.0...JSR :S.RE ;RESUL
TS . A().>.8.JSR :TEST.L.B.BCS :PLV2.[.L
.JMP :RESET.V.V.:SBV ;A().A().V..
.`.JSR :SZPAGE...J.JSR :MOD1...T.:SBV1..
.~.LDA $B7 ;. ADDRESS.M...LDY $B8
;OF V.....JSR :MEMFAC ;V . FAC1.....LDA
$B9 ;. ADDRESS.....STA $B5 ;OF.(..
.LDY $BA ;A().4...STY $B6.U.D.JSR :ME
MSUB ;A()ADDED . FAC1.R.N.JSR :S.RE ;RE
SULT . A()...X.JSR :TEST.....BCS :SBV1..
...JMP :RESET.....:BSV ;A().V.A().C...
JSR :SZPAGE.Q...JSR :MOD1.....:BSV1.....
LDA $B9...(.STA $B5...2.LDY $BA...<.STY
$B6.%.F.JSR :MEMFAC ;FAC1.A().>.P.LDA $B
7 ;ADDRESS.T.Z.LDY $B8 ;OF V.P.D
.JSR :MEMSUB ;FAC1.V.A()...N.JSR :S.RE
;A().FAC1...X.JSR :TEST.....BCS :BSV1...
..JMP :RESET.O...:MLV ;A().A().V.
.. .JSR :SZPAGE.....JSR :MOD1.....:MLV1.
....LDA $B9...H.STA $B5 ;ADDRESS.6.
R.LDY $BA ;OF A().B...STY $B6.]...J
SR :MEMFAC ;FAC1.A().W...LDA $B7 ;
ADDRESS.....LDY $B8 ;OF V.....JSR :
MEMMUL ;FAC1.A().V.E...JSR :S.RE ;A()
.FAC1.S...JSR :TEST...".BCS :MLV1...,.JM
P :RESET...6.:DVV ;A().A().V...@
.JSR :SZPAGE.*.J.JSR :MOD1.4.T.:DVV1.M.^
.LDA $B7 ;ADRESS.D.H.LDY $B8 ;
OF V.}.R.JSR :MEMFAC ;FAC1.V...|.LDA $B
9 ;ADDRESS.....STA $B5 ;OF A()
.....LDY $BA.H...STY $B6.....JSR :MEMDIV
;FAC1.A().V.....JSR :S.RE ;A().FAC1.
....JSR :TEST...B.BCS :DVV1.*.L.JMP :RES
ET.F.V.:VDV ;A().V.A().V...JSR :
SZPAGE.D...JSR :MOD1.N...:VDV1.....LDA $
B9 ;ADDRESS.....STA $B5 ;OF A(
).....LDY $BA.....STY $B6.T.&.JSR :MEMFA
C ;FAC1.A()...0.LDA $B7 ;ADDRESS..
.:.LDY $B8 ;OF V.#.D.JSR :MEMDIV ;
FAC1.V.FAC1.=.N.JSR :S.RE ;A().FAC1.K.
X.JSR :TEST.Y.B.BCS :VDV1.H.L.JMP :RESET
...V.:PLB ;A().A().B().....JSR :
SZPAGE.....JSR :MOD1.....:PLB1.H...LDA $
B7 ;ADDRESS.....LDY $B8 ;OF B(
).....JSR :MEMFAC ;FAC1.B().....LDA $B9
.".F.STA $B5 ;ADDRESS.;.P.LDY $BA
;OF A().G.Z.STY $B6.G...JSR :MEMPLU
;FAC1.FAC1.A().....JSR :S.RE ;A().FAC
1.....JSR :TEST1 ;INC.ENT B POINTER TH
EN A.....BCS :PLB1.I...JMP :RESET.....:S
BB ;A().A().B()... .JSR :SZPAGE..
.*.JSR :MOD1...4.:SBB1.'.>.LDA $B7 ;
ADDRESS.?.H.LDY $B8 ;OF B().Y.R.JSR
:MEMFAC ;FAC1.B().E.\.LDA $B9.~.F.STA $B
5 ;ADDRESS...P.LDY $BA ;OF A()..
.Z.STY $B6.A...JSR :MEMSUB ;FAC1.A().FAC
1.W...JSR :S.RE ;A().1.....JSR :TEST1
;INC.ENT B THEN A.....BCS :SBB1.....JMP
:RESET.2...:MLB ;A().A().B().B...J
SR :SZPAGE.P.J.JSR :MOD1.Z.T.:MLB1.R...L
DA $B7 ;ADDRESS.....LDY $B8 ;OF B(
).....JSR :MEMFAC ;FAC1.B().....LDA $B9.
G...STA $B5 ;ADDRESS.....LDY $BA ;
OF A().....STY $B6...$.JSR :MEMMUL ;FAC1
.FAC1.A()."...JSR :S.RE ;A().FAC1.D.8.J
SR :TEST1 ;INC.ENT POINTERS.R.B.BCS :ML
B1.A.L.JMP :RESET.~.V.:DVB ;A().A
().B()...`.JSR :SZPAGE...J.JSR :MOD1...T
.:DVB1...~.LDA $B7 ;ADDRESS.W...LDY
$B8 ;OF B().....JSR :MEMFAC ;FAC1.B(
).....LDA $B9.....STA $B5 ;ADDRESS..
...LDY $BA ;OF A().:...STY $B6.Y.D.J
SR :MEMDIV ;FAC1.FAC1.A().R.N.JSR :S.RE
;A().FAC1...X.JSR :TEST1 ;INC.ENT POIN
TERS.....BCS :DVB1.....JMP :RESET.N...:B
SB ;A().B().A().....JSR :SZPAGE..
...JSR :MOD1.....:BSB1.....LDA $B9...(.L
DY $BA ;ADDRESS.3.2.STA $B5 ;OF
A().?.<.STY $B6.Y.F.JSR :MEMFAC ;FAC1.A(
).R.P.LDA $B7 ;ADDRESS...Z.LDY $B8
;OF B()...D.JSR :MEMSUB ;FAC1.B().FAC
1.B.N.JSR :S.RE ;A().FAC1...X.JSR :TEST
1 ;INC.ENT POINTERS.....BCS :BSB1.....J
MP :RESET.....:VDB ;A().B().A()..
. .JSR :SZPAGE.<...JSR :MOD1.F...:VDB1.R
...LDA $B9.K.H.STA $B5 ;ADDRESS...R.
LDY $BA ;OF A().....STY $B6.....JSR
:MEMFAC ;FAC1.A().B...LDA $B7 ;ADDRE
SS.Z...LDY $B8 ;OF B().....JSR :MEMD
IV ;FAC1.B().FAC1.. ..JSR :S.RE ;A().FA
C1.! ..JSR :TEST1./ ".BCS :VDB1.> ,.JMP
:RESET.W 6.:EQB ;A().B().G @.JSR
:SZPAGE.U J.JSR :MOD1. T.:EQB1.. ^.LDY
#$00.. H.LDA ($B7),Y ;1ST BYTE OF B.C R
.STA ($B9),Y ;.O A.. |.INC $B7 ;IN
C.ENT.. ..BNE :EQB2 ;ADDRESS..!..INC
$B8 ;OF B..!..:EQB2.2!..INC $B9
;INC.ENT.L!..BNE :EQB3 ;ADDRESS.C!.
.INC $BA ;OF A.M!B.:EQB3..!L.LDA $B
A ;HI BYTE OF A..!V.JSR :TEST2 ;.
OF ARRAY.D!..BCS :EQB1 ;NO .INUE..!.
.JMP :RESET ;YES EXIT ROUTINE.."..:MOD
2 ;FIND ADDRESS OF A.("..JSR $AEF
D ;SKIP COMMA.C"..JSR $AD9E ; ROUT
INE.`"..LDA $47 ;LO BYTE OF.|"..STA
$B9 ;A ADDRESS.."&.LDA $48 ;H
I BYTE OF.."0.STA $BA ;A ADDRESS.P"
:.LDA $2F ;START OF.."D.STA $FB.."N
.LDA $30 ;ARRAY S.RAGE..#X.STA $FC.
-#B.:AGAIN ;SEARCH ARRAY S.RAGE.:#
L.LDY #$00.J#V.LDA ($FB),Y.C#..CMP $45
;. NAME.U#..BNE :.2 ;OF.}#..INY..#
..LDA ($FB),Y..#..CMP $46 ;'A' ARRA
Y.C#..BNE :. ;ROUTINE .S..#..JSR :.1
;WITH .ING ADDRESS..$F.RTS ;O
F A()IN $FB,$FC..$P.:.2..$Z.INY..$..:..*
$..JSR :.1.9$..JMP :AGAIN.R$..:.1
;ROUTINE ..Q$..INY ;SKIP THROUG
H..$..LDA ($FB),Y ;ARRAY MEM.Y..$ .STA
$FD ;FROM .E.E$*.INY ;ARRA
Y . ..U$4.LDA ($FB),Y..$>.CLC..$H.ADC $F
C..$R.STA $FC..%\.LDA $FB..%F.CLC..%P.AD
C $FD.!%Z.STA $FB..%..BCC :ST2.:%..INC $
FC.C%..:ST2.K%..RTS.M%..:MOD1 ;ROUTI
NE . FIND B()..%..JSR $AEFD ;SKIP COMMA.
.%..JSR $B08B ; ROUTINE..%J.LDA $47 ;.
FIND V,B.Q%T.STA $B7 ;. CREATE..%..LD
A $48 ;VARIABLE..&..STA $B8 ;. . FOU
ND..&..JMP :MOD2.2&..:MAX ;V.MAXI
MUM OF A().B&..JSR :SZPAGE.P&..JSR :MOD1
.\&..LDA $B9.H&$.LDY $BA..&..JSR :MEMFAC
;FAC1.A(0)..&8..XY :DUMMY ;S.RE IN..&B
.JSR :FACMEM ;'DUMMY'.C&L.JSR :TEST.M&V.
:MAX2..&`.LDA $B9 ;. ADDRESS..'J.LDY
$BA ;OF A()..'T.JSR :MEMFAC ;FAC1.A
().)'~..XY :DUMMY.1'..TXA.J'..JSR :COMPA
R ;COMPARE.L'..BMI :MAX3 ;A() WITH 'DU
MMY'..'...XY :DUMMY ;FAC1 LARGER..'..JS
R :FACMEM ;. 'DUMMY'.FAC1..'..:MAX3.H'D.
JSR :TEST ;D.E..'N.BCS :MAX2 ;NO .IN
UE..'X..XY :DUMMY ;YES..(..TXA
;FAC1.'DUMMY'.%(..JSR :MEMFAC.>(..LDX $B
7 ;ADDRESS.T(..LDY $B8 ;OF V.L(.
.JSR :FACMEM ;V.FAC1.{(..JMP :RESET..(..
:MIN ;V.MINIMUM OF A()..((.JSR :S
ZPAGE..(2.JSR :MOD1.S(<.LDA $B9 ;ADDR
ESS..(F.LDY $BA ;OF A(0)..)P.JSR :MEM
FAC ;S.RE..)Z..XY :DUMMY ;A(0) .O.3)D.J
SR :FACMEM ;'DUMMY'.A)I.JSR :TEST.K)N.:M
IN2.G)X.LDA $B9 ;ADDRESS OF.~)..LDY
$BA ;. A()..)..JSR :MEMFAC ;. .O FAC
1..)...XY :DUMMY ;...) .TXA.Z)..JSR :CO
MPAR ;COMPARE WITH 'DUMMY'..)..BPL :MIN3
;FAC1.'DUMMY..*...XY :DUMMY ;. 'DUMM
Y'.)*H.JSR :FACMEM ;.FAC1.3*R.:MIN3.A*..
JSR :TEST.A*..BCS :MIN2 ;'DUMMY .MIN(A
).P*...XY :DUMMY.X*..TXA..*..JSR :MEMFAC
;TRANSFER..*..LDX $B7 ;'DUMMY'..*..
LDY $B8 ;..Q*".JSR :FACMEM ;V..*,.JM
P :RESET..*6.:SQUARE ;A.A.A..+@.JSR
:SZPAGE..+J.JSR :MOD2..+T.:SQU1.8+^.LDA
$B9 ;ADDRESS.P+H.LDY $BA ;OF A()
.\+R.STA $B5.H+|.STY $B6..+..JSR :MEMFAC
;A() . FAC1..+..LDA $B9..+..LDY $BA..+.
.JSR :MEMMUL ;FAC1.A.A.D+..JSR :S.RE..+.
.JSR :TEST ;INC.ENT POINTER..+..BCS :S
QU1..,..JMP :RESET..,B.:INSERT ;A(X)
.V.5,L.JSR :SZPAGE ;FOLLOWING.O,V.JSR :M
OD1 ;ELEMENTS.K,..LDA #$05 ;MOVED D
OWN..,..STA $BF ;A(MAX).A(MAX.1)..,.
.LDA $46 ;.INUE..,..ASL A ;UNT
IL.W,..BCC :INS1 ;A(X.1).A(X)..,..LDA
#$02 ;. A(X).V..-..STA $BF ;ROUTI
NE WILL.--&.:INS1 ;AU.MATICALLY.P-
0.LDA $FB ;USE PROPER OFFSET.Q-:.CLC
;. VARIABLE TYPE..-D.SBC $BF
;W.KS WITH..-N.STA $FB ;STRINGS (A
$).G-X.LDA $FC ;.EGERS (A%).Z-B.SBC
#$00 ;...-L.STA $FC ;FLOATING PO.
...V.LDA $FB.....CLC.....SBC $BF.$...STA
$FD.0...LDA $FC.=...SBC #$00.I...STA $F
E.U...LDY $BF.].F.DEY.G.P.:INS2.W.Z.LDA
($FD),Y.....STA ($FB),Y.....DEY.....BPL
:INS2.....LDA $FE.....CMP $BA.C...BNE :I
NS1.O. .LDA $FD...*.CMP $B9...4.BNE :INS
1...>.LDY $BF...H.DEY../R.:INS3../\.LDA
($B7),Y.'/F.STA ($FB),Y.//P.DEY.=/Z.BPL
:INS3.L/..JMP :RESET.S/..:..[/...EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL