EUKLIDEX.SRC
FILE INFORMATION
FILENAME(S): EUKLIDEX.SRC
FILE TYPE(S): PRG
FILE SIZE: 26.1K
FIRST SEEN: 2025-11-30 01:12:52
APPEARS ON: 1 disk(s)
FILE HASH
29cf98ca8daeea6422b11dd70fed01e87618a36386b8810b6918de415483394f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10808 SEITE A | EUKLIDEX.SRC | PRG | C64er, DuncanTwain | 19 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 24 20 3D 20 01 00 9F 31 2C 38 2C 31 2C 22 40 30 |$ = ...1,8,1,"@0|
00000010: 3A C5 D5 CB CC C9 C4 45 58 22 00 48 20 64 00 9E |:......EX".H d..|
00000020: 33 36 38 36 34 00 54 20 6E 00 2E 4F 50 54 20 4F |36864.T n..OPT O|
00000030: 31 00 67 20 D7 00 4D 45 4D 44 49 56 20 B2 20 24 |1.g ..MEMDIV . $|
00000040: 42 42 30 46 00 7A 20 EB 00 4D 45 4D 46 41 43 20 |BB0F.z ..MEMFAC |
00000050: B2 20 24 42 42 41 32 00 8D 20 F5 00 46 41 43 4D |. $BBA2.. ..FACM|
00000060: 45 4D 20 B2 20 24 42 42 44 34 00 9C 20 FA 00 46 |EM . $BBD4.. ..F|
00000070: 4D 20 B2 20 24 42 42 44 34 00 AF 20 FF 00 4D 45 |M . $BBD4.. ..ME|
00000080: 4D 4D 49 4E 20 B2 20 24 42 38 35 30 00 C2 20 09 |MMIN . $B850.. .|
00000090: 01 4D 45 4D 4D 55 4C 54 20 B2 24 42 41 32 38 00 |.MEMMULT .$BA28.|
000000A0: D5 20 13 01 4D 45 4D 50 4C 55 53 20 B2 24 42 38 |. ..MEMPLUS .$B8|
000000B0: 36 37 00 E6 20 63 01 BF 20 20 20 20 B2 20 24 45 |67.. c.. . $E|
000000C0: 32 36 42 00 F7 20 68 01 BE 20 20 20 20 B2 20 24 |26B.. h.. . $|
000000D0: 45 32 36 34 00 06 21 90 01 47 42 20 B2 20 24 42 |E264..!..GB . $B|
000000E0: 37 39 45 00 19 21 95 01 46 52 4D 4E 55 4D 20 B2 |79E..!..FRMNUM .|
000000F0: 20 24 41 44 38 41 00 2C 21 9F 01 43 48 4B 43 4F | $AD8A.,!..CHKCO|
00000100: 4D 20 B2 20 24 41 45 46 44 00 3D 21 A9 01 43 48 |M . $AEFD.=!..CH|
00000110: 52 A1 20 B2 20 24 30 30 37 33 00 4F 21 FE 01 50 |R. . $0073.O!..P|
00000120: 54 52 20 B2 20 38 37 20 3B 20 38 38 00 5F 21 08 |TR . 87 ; 88._!.|
00000130: 02 3B 20 31 30 31 34 AB 31 30 31 37 00 AA 21 3F |.; 1014.1017..!?|
00000140: 02 3B 20 42 45 CF 5A 54 20 38 33 34 2C 31 30 31 |.; BE.ZT 834,101|
00000150: 38 2C 31 30 31 39 2C 38 33 30 2C 38 33 36 2C 38 |8,1019,830,836,8|
00000160: 33 39 2C 38 33 33 2C 24 36 34 2C 24 36 35 2C 31 |39,833,$64,$65,1|
00000170: 30 31 35 2C 38 34 32 2C 38 33 35 2C 38 33 37 2C |015,842,835,837,|
00000180: 39 39 33 AB 39 39 39 00 CA 21 40 02 3B 20 42 45 |993.999..!@.; BE|
00000190: CF 5A 54 20 31 30 31 34 2C 31 30 31 35 2C 31 30 |.ZT 1014,1015,10|
000001A0: 31 36 2C 31 30 31 37 00 D9 21 58 02 46 4C 41 47 |16,1017..!X.FLAG|
000001B0: 20 B2 20 38 32 39 00 E9 21 5D 02 46 4C 41 47 31 | . 829..!].FLAG1|
000001C0: 20 B2 20 38 33 31 00 F9 21 5F 02 46 4C 41 47 43 | . 831..!_.FLAGC|
000001D0: 20 B2 20 38 33 32 00 07 22 62 02 50 20 20 20 B2 | . 832.."b.P .|
000001E0: 20 38 33 38 00 1D 22 B2 02 3B 20 42 45 CF 5A 54 | 838.."..; BE.ZT|
000001F0: 20 31 30 30 30 AB 31 30 30 35 00 2B 22 BE 02 50 | 1000.1005.+"..P|
00000200: 4E 54 20 B2 20 24 37 31 00 3A 22 C2 02 50 54 54 |NT . $71.:"..PTT|
00000210: 52 20 B2 20 24 34 39 00 46 22 C3 02 AC B2 20 24 |R . $49.F".... $|
00000220: 38 30 31 00 6B 22 C5 02 2E 42 59 54 20 B3 24 38 |801.k"...BYT .$8|
00000230: 30 42 2C B1 24 38 30 42 2C B3 31 39 38 37 2C B1 |0B,.$80B,.1987,.|
00000240: 31 39 38 37 2C 24 39 45 00 79 22 CA 02 2E C6 20 |1987,$9E.y".... |
00000250: 22 32 30 36 31 22 00 88 22 CB 02 2E 42 59 54 20 |"2061".."...BYT |
00000260: 30 2C 30 2C 30 00 B0 22 CC 02 4C 44 41 20 23 B3 |0,0,0.."..LDA #.|
00000270: 56 31 3A 4C 44 59 20 23 B1 56 31 3A 53 54 41 20 |V1:LDY #.V1:STA |
00000280: 24 33 30 34 3A 53 54 59 20 24 33 30 35 00 D8 22 |$304:STY $305.."|
00000290: CD 02 4C 44 41 20 23 B3 56 32 3A 4C 44 59 20 23 |..LDA #.V2:LDY #|
000002A0: B1 56 32 3A 53 54 41 20 24 33 30 36 3A 53 54 59 |.V2:STA $306:STY|
000002B0: 20 24 33 30 37 00 00 23 CF 02 4C 44 41 20 23 B3 | $307..#..LDA #.|
000002C0: 56 33 3A 4C 44 59 20 23 B1 56 33 3A 53 54 41 20 |V3:LDY #.V3:STA |
000002D0: 24 33 30 38 3A 53 54 59 20 24 33 30 39 00 4E 23 |$308:STY $309.N#|
000002E0: D2 02 4A 53 52 20 24 45 35 34 34 3A 4C 44 41 20 |..JSR $E544:LDA |
000002F0: 23 31 34 3A 4A 53 52 20 24 46 46 44 32 3A 4C 44 |#14:JSR $FFD2:LD|
00000300: 41 20 23 31 35 34 3A 4A 53 52 20 24 46 46 44 32 |A #154:JSR $FFD2|
00000310: 3A 4C 44 59 20 23 30 3A 53 54 59 20 35 33 32 38 |:LDY #0:STY 5328|
00000320: 30 3A 53 54 59 20 35 33 32 38 31 00 85 23 D4 02 |0:STY 53281..#..|
00000330: 41 53 20 4C 44 41 20 49 4E 49 2C 59 3A 53 54 41 |AS LDA INI,Y:STA|
00000340: 20 31 30 32 34 2C 59 3A 49 4E 59 3A 43 50 59 20 | 1024,Y:INY:CPY |
00000350: 23 31 39 37 3A 42 4E 45 20 41 53 3A 4C 44 59 20 |#197:BNE AS:LDY |
00000360: 23 37 00 AB 23 D6 02 41 53 31 20 4C 44 41 20 23 |#7..#..AS1 LDA #|
00000370: 31 37 3A 4A 53 52 20 24 46 46 44 32 3A 44 45 59 |17:JSR $FFD2:DEY|
00000380: 3A 42 4E 45 20 41 53 31 00 E4 23 DA 02 4C 44 41 |:BNE AS1..#..LDA|
00000390: 20 23 B3 45 55 4B 4C 3A 53 54 41 20 24 32 42 3A | #.EUKL:STA $2B:|
000003A0: 4C 44 41 20 23 B1 45 55 4B 4C 3A 53 54 41 20 24 |LDA #.EUKL:STA $|
000003B0: 32 43 3A 4C 44 58 20 23 33 39 3A 4C 44 41 20 23 |2C:LDX #39:LDA #|
000003C0: 31 00 03 24 DC 02 53 54 41 20 35 35 32 39 36 2C |1..$..STA 55296,|
000003D0: 58 3A 44 45 58 3A 42 50 4C 20 49 4E 49 AB 31 32 |X:DEX:BPL INI.12|
000003E0: 00 1B 24 DE 02 4A 53 52 20 24 41 36 34 34 3A 4A |..$..JSR $A644:J|
000003F0: 4D 50 20 24 41 34 37 34 00 3F 24 E0 02 49 4E 49 |MP $A474.?$..INI|
00000400: 20 2E C6 20 22 3C 2A 2A 2A 3C 2A 2A 2A 3C 2A 2A | .. "<***<***<**|
00000410: 2A 3C 2A 2A 20 45 55 4B 4C 49 44 22 00 4D 24 E2 |*<** EUKLID".M$.|
00000420: 02 2E 42 59 54 20 35 2C 32 34 00 67 24 E4 02 2E |..BYT 5,24.g$...|
00000430: C6 20 22 20 2A 2A 3E 2A 2A 2A 3E 2A 2A 2A 3E 2A |. " **>***>***>*|
00000440: 2A 2A 3E 22 00 85 24 E5 02 2E C6 20 22 20 20 20 |**>"..$.... " |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 22 00 A5 24 E6 02 2E C6 20 22 20 20 20 20 20 | "..$.... " |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 22 00 CF 24 E8 02 2E 42 59 54 20 32 2C 32 35 | "..$...BYT 2,25|
00000490: 2C 33 32 2C 38 37 2C 35 2C 31 38 2C 31 34 2C 35 |,32,87,5,18,14,5|
000004A0: 2C 31 38 2C 33 32 2C 36 36 2C 31 38 00 F7 24 E9 |,18,32,66,18..$.|
000004B0: 02 2E 42 59 54 20 31 2C 31 34 2C 34 2C 33 32 2C |..BYT 1,14,4,32,|
000004C0: 31 2C 31 34 2C 34 2C 33 32 2C 38 34 2C 38 2C 31 |1,14,4,32,84,8,1|
000004D0: 35 2C 31 33 00 1C 25 EA 02 2E 42 59 54 20 31 2C |5,13..%...BYT 1,|
000004E0: 31 39 2C 33 32 2C 38 33 2C 33 2C 38 2C 31 32 2C |19,32,83,3,8,12,|
000004F0: 31 35 2C 35 2C 37 2C 31 32 00 3D 25 EB 02 2E C6 |15,5,7,12.=%....|
00000500: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | " |
00000510: 20 20 20 20 20 20 20 20 20 22 00 5B 25 EC 02 2E | ".[%...|
00000520: C6 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |. " |
00000530: 20 20 20 20 20 20 20 22 00 7A 25 ED 02 2E C6 20 | ".z%.... |
00000540: 22 20 20 28 43 29 20 31 39 38 37 20 20 20 20 20 |" (C) 1987 |
00000550: 33 32 37 33 30 20 22 00 A1 25 EE 02 2E 42 59 54 |32730 "..%...BYT|
00000560: 20 32 2C 31 2C 31 39 2C 39 2C 33 2C 33 32 2C 32 | 2,1,19,9,3,32,2|
00000570: 2C 32 35 2C 32 30 2C 35 2C 31 39 2C 33 32 00 B3 |,25,20,5,19,32..|
00000580: 25 EF 02 2E 42 59 54 20 36 2C 31 38 2C 35 2C 35 |%...BYT 6,18,5,5|
00000590: 00 D0 25 F8 02 56 31 20 4C 44 58 20 24 37 41 3A |..%..V1 LDX $7A:|
000005A0: 4C 44 59 20 23 34 3A 53 54 59 20 31 35 00 04 26 |LDY #4:STY 15..&|
000005B0: F9 02 4E 58 20 4C 44 41 20 24 32 30 30 2C 58 3A |..NX LDA $200,X:|
000005C0: 42 50 4C 20 4E 52 3A 43 4D 50 20 23 24 46 46 3A |BPL NR:CMP #$FF:|
000005D0: 42 45 51 20 54 43 3A 49 4E 58 3A 42 4E 45 20 4E |BEQ TC:INX:BNE N|
000005E0: 58 00 38 26 FA 02 4E 52 20 43 4D 50 20 23 22 20 |X.8&..NR CMP #" |
000005F0: 22 3A 42 45 51 20 54 43 3A 53 54 41 20 38 3A 43 |":BEQ TC:STA 8:C|
00000600: 4D 50 20 23 24 32 32 3A 42 45 51 20 47 43 3A 42 |MP #$22:BEQ GC:B|
00000610: 49 54 20 31 35 00 63 26 FB 02 42 56 53 20 54 43 |IT 15.c&..BVS TC|
00000620: 3A 43 4D 50 20 23 22 3F 22 3A 42 4E 45 20 53 4B |:CMP #"?":BNE SK|
00000630: 3A 4C 44 41 20 23 24 39 39 3A 42 4E 45 20 54 43 |:LDA #$99:BNE TC|
00000640: 00 8B 26 FC 02 53 4B 20 43 4D 50 20 23 22 30 22 |..&..SK CMP #"0"|
00000650: 3A 42 43 43 20 53 4B 31 3A 43 4D 50 20 23 22 3C |:BCC SK1:CMP #"<|
00000660: 22 3A 42 43 43 20 54 43 00 B9 26 FD 02 53 4B 31 |":BCC TC..&..SK1|
00000670: 20 53 54 59 20 50 4E 54 3A 4C 44 59 20 23 30 3A | STY PNT:LDY #0:|
00000680: 53 54 59 20 31 31 3A 44 45 59 3A 53 54 58 20 24 |STY 11:DEY:STX $|
00000690: 37 41 3A 44 45 58 00 C8 26 02 03 43 4C 20 49 4E |7A:DEX..&..CL IN|
000006A0: 59 3A 49 4E 58 00 01 27 07 03 54 4E 20 4C 44 41 |Y:INX..'..TN LDA|
000006B0: 20 24 32 30 30 2C 58 3A 53 45 43 3A 53 42 43 20 | $200,X:SEC:SBC |
000006C0: 24 41 30 39 45 2C 59 3A 42 45 51 20 43 4C 3A 43 |$A09E,Y:BEQ CL:C|
000006D0: 4D 50 20 23 24 38 30 3A 42 4E 45 20 82 43 00 0B |MP #$80:BNE .C..|
000006E0: 27 09 03 B0 41 20 31 31 00 1B 27 0C 03 54 43 31 |'...A 11..'..TC1|
000006F0: 20 4C 44 59 20 50 4E 54 00 5A 27 11 03 54 43 20 | LDY PNT.Z'..TC |
00000700: 49 4E 58 3A 49 4E 59 3A 53 54 41 20 24 32 30 30 |INX:INY:STA $200|
00000710: AB 35 2C 59 3A 43 4D 50 20 23 30 3A 42 45 51 20 |.5,Y:CMP #0:BEQ |
00000720: 45 4E 3A 53 45 43 3A 53 42 43 20 23 22 3A 22 3A |EN:SEC:SBC #":":|
00000730: 42 45 51 20 53 4B 32 00 73 27 13 03 43 4D 50 20 |BEQ SK2.s'..CMP |
00000740: 23 24 38 33 AB 22 3A 22 3A 42 4E 45 20 53 4B 33 |#$83.":":BNE SK3|
00000750: 00 82 27 16 03 53 4B 32 20 53 54 41 20 31 35 00 |..'..SK2 STA 15.|
00000760: A8 27 1B 03 53 4B 33 20 53 45 43 3A 53 42 43 20 |.'..SK3 SEC:SBC |
00000770: 23 24 38 46 AB 22 3A 22 3A 42 4E 45 20 4E 58 3A |#$8F.":":BNE NX:|
00000780: 53 54 41 20 38 00 CE 27 20 03 52 4C 20 4C 44 41 |STA 8..' .RL LDA|
00000790: 20 24 32 30 30 2C 58 3A 42 45 51 20 54 43 3A 43 | $200,X:BEQ TC:C|
000007A0: 4D 50 20 38 3A 42 45 51 20 54 43 00 F1 27 25 03 |MP 8:BEQ TC..'%.|
000007B0: 47 43 20 49 4E 59 3A 53 54 41 20 24 32 30 30 AB |GC INY:STA $200.|
000007C0: 35 2C 59 3A 49 4E 58 3A 42 4E 45 20 52 4C 00 07 |5,Y:INX:BNE RL..|
000007D0: 28 2A 03 82 43 20 4C 44 58 20 24 37 41 3A 49 4E |(*..C LDX $7A:IN|
000007E0: 43 20 31 31 00 41 28 2F 03 57 49 20 49 4E 59 3A |C 11.A(/.WI INY:|
000007F0: 4C 44 41 20 24 41 30 39 45 AB 31 2C 59 3A 42 50 |LDA $A09E.1,Y:BP|
00000800: 4C 20 57 49 3A 4C 44 41 20 24 41 30 39 45 2C 59 |L WI:LDA $A09E,Y|
00000810: 3A 42 4E 45 20 54 4E 3A 42 45 51 20 57 54 00 5B |:BNE TN:BEQ WT.[|
00000820: 28 34 03 4E A5 20 4C 44 41 20 24 32 30 30 2C 58 |(4.N. LDA $200,X|
00000830: 3A 42 50 4C 20 54 43 31 00 8C 28 39 03 45 4E 20 |:BPL TC1..(9.EN |
00000840: 53 54 41 20 24 32 30 30 AB 33 2C 59 3A 44 45 43 |STA $200.3,Y:DEC|
00000850: 20 24 37 42 3A 4C 44 41 20 23 24 46 46 3A 53 54 | $7B:LDA #$FF:ST|
00000860: 41 20 24 37 41 3A 52 54 53 00 AA 28 3E 03 57 54 |A $7A:RTS..(>.WT|
00000870: 20 4C 44 59 20 23 30 3A 4C 44 41 20 4E 54 2C 59 | LDY #0:LDA NT,Y|
00000880: 3A 42 4E 45 20 57 53 00 B9 28 43 03 57 43 20 49 |:BNE WS..(C.WC I|
00000890: 4E 59 3A 49 4E 58 00 F0 28 48 03 57 53 20 4C 44 |NY:INX..(H.WS LD|
000008A0: 41 20 24 32 30 30 2C 58 3A 53 45 43 3A 53 42 43 |A $200,X:SEC:SBC|
000008B0: 20 4E 54 2C 59 3A 42 45 51 20 57 43 3A 43 4D 50 | NT,Y:BEQ WC:CMP|
000008C0: 20 23 24 38 30 3A 42 4E 45 20 4E 58 4E 00 02 29 | #$80:BNE NXN..)|
000008D0: 4D 03 B0 41 20 31 31 3A 42 4E 45 20 54 43 31 00 |M..A 11:BNE TC1.|
000008E0: 19 29 52 03 4E 58 4E 20 4C 44 58 20 24 37 41 3A |.)R.NXN LDX $7A:|
000008F0: 49 4E 43 20 31 31 00 4F 29 57 03 57 49 31 20 49 |INC 11.O)W.WI1 I|
00000900: 4E 59 3A 4C 44 41 20 4E 54 AB 31 2C 59 3A 42 50 |NY:LDA NT.1,Y:BP|
00000910: 4C 20 57 49 31 3A 4C 44 41 20 4E 54 2C 59 3A 42 |L WI1:LDA NT,Y:B|
00000920: 4E 45 20 57 53 3A 42 45 51 20 4E A5 00 8E 29 5C |NE WS:BEQ N...)\|
00000930: 03 56 32 20 42 50 4C 20 4F 55 54 3A 42 49 54 20 |.V2 BPL OUT:BIT |
00000940: 31 35 3A 42 4D 49 20 4F 55 54 3A 43 4D 50 20 23 |15:BMI OUT:CMP #|
00000950: 24 46 46 3A 42 45 51 20 4F 55 54 3A 43 4D 50 20 |$FF:BEQ OUT:CMP |
00000960: 23 24 43 43 3A 42 43 53 20 4E 4C 00 9C 29 61 03 |#$CC:BCS NL..)a.|
00000970: 4A 4D 50 20 24 41 37 32 34 00 AE 29 66 03 4F 55 |JMP $A724..)f.OU|
00000980: 54 20 4A 4D 50 20 24 41 36 46 33 00 D7 29 6B 03 |T JMP $A6F3..)k.|
00000990: 4E 4C 20 53 45 43 3A 53 42 43 20 23 24 43 42 3A |NL SEC:SBC #$CB:|
000009A0: 54 41 58 3A 53 54 59 20 50 54 54 52 3A 4C 44 59 |TAX:STY PTTR:LDY|
000009B0: 20 23 AB 31 00 E7 29 70 03 82 20 44 45 58 3A 42 | #.1..)p.. DEX:B|
000009C0: 45 51 20 A5 00 0C 2A 75 03 4C 4F 4F 50 20 49 4E |EQ ...*u.LOOP IN|
000009D0: 59 3A 4C 44 41 20 4E 54 2C 59 3A 42 50 4C 20 4C |Y:LDA NT,Y:BPL L|
000009E0: 4F 4F 50 3A 42 4D 49 20 82 00 36 2A 7A 03 A5 20 |OOP:BMI ..6*z.. |
000009F0: 49 4E 59 3A 4C 44 41 20 4E 54 2C 59 3A 42 4D 49 |INY:LDA NT,Y:BMI|
00000A00: 20 4F 45 3A 4A 53 52 20 24 41 42 34 37 3A 42 4E | OE:JSR $AB47:BN|
00000A10: 45 20 A5 00 47 2A 7F 03 4F 45 20 4A 4D 50 20 24 |E ..G*..OE JMP $|
00000A20: 41 36 45 46 00 69 2A 84 03 56 33 20 4A 53 52 20 |A6EF.i*..V3 JSR |
00000A30: 43 48 52 A1 3A 4A 53 52 20 54 43 44 3A 4A 4D 50 |CHR.:JSR TCD:JMP|
00000A40: 20 24 41 37 41 45 00 91 2A 89 03 54 43 44 20 43 | $A7AE..*..TCD C|
00000A50: 4D 50 20 23 43 53 3A 42 43 43 20 4F 43 3A 43 4D |MP #CS:BCC OC:CM|
00000A60: 50 20 23 43 45 AA 31 3A 42 43 43 20 4F 4B 00 AA |P #CE.1:BCC OK..|
00000A70: 2A 8E 03 4F 43 20 4A 53 52 20 24 37 39 3A 4A 4D |*..OC JSR $79:JM|
00000A80: 50 20 24 41 37 45 44 00 E1 2A 93 03 4F 4B 20 53 |P $A7ED..*..OK S|
00000A90: 45 43 3A 53 42 43 20 23 43 53 3A 41 53 4C 3A 54 |EC:SBC #CS:ASL:T|
00000AA0: 41 58 3A 4C 44 41 20 43 54 AA 31 2C 58 3A 50 48 |AX:LDA CT.1,X:PH|
00000AB0: 41 3A 4C 44 41 20 43 54 2C 58 3A 50 48 41 00 EE |A:LDA CT,X:PHA..|
00000AC0: 2A 98 03 4A 4D 50 20 43 48 52 A1 00 FB 2A A8 03 |*..JMP CHR...*..|
00000AD0: 43 53 20 B2 20 24 43 43 00 08 2B A9 03 43 45 20 |CS . $CC..+..CE |
00000AE0: B2 20 24 45 39 00 19 2B AC 03 4E 54 20 2E C6 20 |. $E9..+..NT .. |
00000AF0: 22 50 41 47 C5 22 00 28 2B AE 03 2E C6 20 22 45 |"PAG.".(+.... "E|
00000B00: 52 41 53 C5 22 00 37 2B B0 03 2E C6 20 22 43 4F |RAS.".7+.... "CO|
00000B10: 4C 4F D2 22 00 44 2B B2 03 2E C6 20 22 53 45 D4 |LO.".D+.... "SE.|
00000B20: 22 00 52 2B B4 03 2E C6 20 22 41 58 49 D3 22 00 |".R+.... "AXI.".|
00000B30: 60 2B B6 03 2E C6 20 22 4C 49 4E C5 22 00 6F 2B |`+.... "LIN.".o+|
00000B40: B8 03 2E C6 20 22 41 4C 49 4E C5 22 00 7F 2B BA |.... "ALIN."..+.|
00000B50: 03 2E C6 20 22 57 49 4E 44 4F D7 22 00 8E 2B BC |... "WINDO."..+.|
00000B60: 03 2E C6 20 22 53 43 41 4C C5 22 00 9D 2B BE 03 |... "SCAL."..+..|
00000B70: 2E C6 20 22 50 4D 4F 44 C5 22 00 AD 2B C0 03 2E |.. "PMOD."..+...|
00000B80: C6 20 22 42 4F 52 44 45 D2 22 00 BD 2B C4 03 2E |. "BORDE."..+...|
00000B90: C6 20 22 49 4E 56 45 52 D3 22 00 CC 2B C6 03 2E |. "INVER."..+...|
00000BA0: C6 20 22 53 47 4F 54 CF 22 00 D9 2B C8 03 2E C6 |. "SGOT."..+....|
00000BB0: 20 22 52 41 D9 22 00 EA 2B CA 03 2E C6 20 22 45 | "RA."..+.... "E|
00000BC0: 4C 4C 49 50 53 C5 22 00 F9 2B CE 03 2E C6 20 22 |LLIPS."..+.... "|
00000BD0: 57 52 49 54 C5 22 00 08 2C D2 03 2E C6 20 22 41 |WRIT."..,.... "A|
00000BE0: 4E 47 4C C5 22 00 17 2C D4 03 2E C6 20 22 47 4C |NGL."..,.... "GL|
00000BF0: 4F 41 C4 22 00 26 2C D6 03 2E C6 20 22 47 53 41 |OA.".&,.... "GSA|
00000C00: 56 C5 22 00 34 2C D8 03 2E C6 20 22 48 41 52 C4 |V.".4,.... "HAR.|
00000C10: 22 00 41 2C DA 03 2E C6 20 22 44 4F D4 22 00 50 |".A,.... "DO.".P|
00000C20: 2C DC 03 2E C6 20 22 4C 4D 4F 44 C5 22 00 5E 2C |,.... "LMOD.".^,|
00000C30: DE 03 2E C6 20 22 54 41 4B C5 22 00 6D 2C E4 03 |.... "TAK.".m,..|
00000C40: 2E C6 20 22 53 53 54 45 D0 22 00 7C 2C EE 03 2E |.. "SSTE.".|,...|
00000C50: C6 20 22 46 52 41 4D C5 22 00 8C 2C F0 03 2E C6 |. "FRAM."..,....|
00000C60: 20 22 53 54 41 54 55 D3 22 00 9B 2C F2 03 2E C6 | "STATU."..,....|
00000C70: 20 22 44 4D 4F 44 C5 22 00 A9 2C F4 03 2E C6 20 | "DMOD."..,.... |
00000C80: 22 43 4F 50 D9 22 00 B8 2C F5 03 2E C6 20 22 42 |"COP."..,.... "B|
00000C90: 4C 4F 43 CB 22 00 C6 2C F6 03 2E C6 20 22 54 45 |LOC."..,.... "TE|
00000CA0: 53 D4 22 00 D1 2C 4B 04 2E 42 59 54 20 30 00 E1 |S."..,K..BYT 0..|
00000CB0: 2C 4C 04 43 54 20 2E 57 B0 20 51 31 AB 31 00 EE |,L.CT .W. Q1.1..|
00000CC0: 2C 4E 04 2E 57 B0 20 51 32 AB 31 00 FB 2C 50 04 |,N..W. Q2.1..,P.|
00000CD0: 2E 57 B0 20 51 33 AB 31 00 08 2D 52 04 2E 57 B0 |.W. Q3.1..-R..W.|
00000CE0: 20 51 34 AB 31 00 18 2D 54 04 2E 57 B0 20 24 41 | Q4.1..-T..W. $A|
00000CF0: 46 30 38 AB 31 00 25 2D 55 04 2E 57 B0 20 51 36 |F08.1.%-U..W. Q6|
00000D00: AB 31 00 32 2D 56 04 2E 57 B0 20 51 37 AB 31 00 |.1.2-V..W. Q7.1.|
00000D10: 3F 2D 57 04 2E 57 B0 20 51 38 AB 31 00 4C 2D 58 |?-W..W. Q8.1.L-X|
00000D20: 04 2E 57 B0 20 51 39 AB 31 00 5A 2D 5A 04 2E 57 |..W. Q9.1.Z-Z..W|
00000D30: B0 20 51 31 30 AB 31 00 68 2D 5C 04 2E 57 B0 20 |. Q10.1.h-\..W. |
00000D40: 51 31 31 AB 31 00 76 2D 60 04 2E 57 B0 20 51 31 |Q11.1.v-`..W. Q1|
00000D50: 33 AB 31 00 87 2D 62 04 2E 57 B0 20 51 32 39 AB |3.1..-b..W. Q29.|
00000D60: 31 39 AB 31 00 95 2D 64 04 2E 57 B0 20 51 31 35 |19.1..-d..W. Q15|
00000D70: AB 31 00 A3 2D 66 04 2E 57 B0 20 51 31 36 AB 31 |.1..-f..W. Q16.1|
00000D80: 00 B1 2D 6A 04 2E 57 B0 20 51 31 37 AB 31 00 BF |..-j..W. Q17.1..|
00000D90: 2D 6E 04 2E 57 B0 20 51 31 39 AB 31 00 CD 2D 70 |-n..W. Q19.1..-p|
00000DA0: 04 2E 57 B0 20 51 32 30 AB 31 00 DB 2D 72 04 2E |..W. Q20.1..-r..|
00000DB0: 57 B0 20 51 32 31 AB 31 00 E9 2D 74 04 2E 57 B0 |W. Q21.1..-t..W.|
00000DC0: 20 51 32 32 AB 31 00 F7 2D 76 04 2E 57 B0 20 51 | Q22.1..-v..W. Q|
00000DD0: 32 33 AB 31 00 07 2E 78 04 2E 57 B0 20 51 32 39 |23.1...x..W. Q29|
00000DE0: AB 37 AB 31 00 15 2E 7E 04 2E 57 B0 20 51 32 35 |.7.1...~..W. Q25|
00000DF0: AB 31 00 23 2E 80 04 2E 57 B0 20 51 32 36 AB 31 |.1.#....W. Q26.1|
00000E00: 00 31 2E 8A 04 2E 57 B0 20 51 32 38 AB 31 00 3F |.1....W. Q28.1.?|
00000E10: 2E 8C 04 2E 57 B0 20 51 32 39 AB 31 00 4F 2E 8E |....W. Q29.1.O..|
00000E20: 04 2E 57 B0 20 51 31 35 AB 37 AB 31 00 5D 2E 90 |..W. Q15.7.1.]..|
00000E30: 04 2E 57 B0 20 51 33 31 AB 31 00 6B 2E 91 04 2E |..W. Q31.1.k....|
00000E40: 57 B0 20 51 34 34 AB 31 00 79 2E 92 04 2E 57 B0 |W. Q44.1.y....W.|
00000E50: 20 51 33 32 AB 31 00 86 2E 96 05 3B AC AC AC CC | Q32.1.....;....|
00000E60: AC AC AC 00 94 2E 98 05 51 31 20 4A 53 52 20 47 |........Q1 JSR G|
00000E70: 42 00 A4 2E 9A 05 54 58 41 3A 42 4E 45 20 50 41 |B.....TXA:BNE PA|
00000E80: 31 00 D8 2E 9C 05 4C 44 41 20 23 32 37 3A 50 48 |1.....LDA #27:PH|
00000E90: 41 3A 4C 44 41 20 23 32 31 3A 4C 44 58 20 23 32 |A:LDA #21:LDX #2|
00000EA0: 30 30 3A 4C 44 59 20 23 31 35 31 3A 42 4E 45 20 |00:LDY #151:BNE |
00000EB0: 50 41 32 AA 39 00 06 2F 9E 05 50 41 31 20 4A 53 |PA2.9../..PA1 JS|
00000EC0: 52 20 43 48 4B 43 4F 4D 3A 4A 53 52 20 47 42 3A |R CHKCOM:JSR GB:|
00000ED0: 54 58 41 3A 53 54 41 20 38 33 39 3A 42 4E 45 20 |TXA:STA 839:BNE |
00000EE0: 50 41 32 00 29 2F A0 05 4C 44 41 20 23 35 39 3A |PA2.)/..LDA #59:|
00000EF0: 50 48 41 3A 4C 44 58 20 23 32 30 30 3A 42 4E 45 |PHA:LDX #200:BNE|
00000F00: 20 50 41 32 AA 35 00 47 2F AA 05 50 41 32 20 4C | PA2.5.G/..PA2 L|
00000F10: 44 41 20 23 31 38 37 3A 50 48 41 3A 4C 44 58 20 |DA #187:PHA:LDX |
00000F20: 23 32 31 36 00 64 2F B4 05 3B 20 50 41 32 AA 35 |#216.d/..; PA2.5|
00000F30: 3A 4C 44 41 20 23 31 33 3A 4C 44 59 20 23 31 34 |:LDA #13:LDY #14|
00000F40: 38 00 9C 2F BE 05 3B 20 50 41 32 AA 39 3A 53 54 |8../..; PA2.9:ST|
00000F50: 59 20 24 44 44 30 30 3A 53 54 58 20 35 33 32 37 |Y $DD00:STX 5327|
00000F60: 30 3A 53 54 41 20 35 33 32 37 32 3A 50 4C 41 3A |0:STA 53272:PLA:|
00000F70: 53 54 41 20 35 33 32 36 35 00 A4 2F D2 05 52 54 |STA 53265../..RT|
00000F80: 53 00 B1 2F DC 05 3B AC AC AC CD AC AC AC 00 C8 |S../..;.........|
00000F90: 2F E1 05 51 32 20 4C 44 41 20 23 30 3A 53 54 41 |/..Q2 LDA #0:STA|
00000FA0: 20 46 4C 41 47 00 F6 2F E6 05 4C 44 41 20 23 B1 | FLAG../..LDA #.|
00000FB0: 24 45 30 30 30 3A 53 54 41 20 50 54 52 AA 31 3A |$E000:STA PTR.1:|
00000FC0: 4C 44 41 20 23 B3 24 45 30 30 30 3A 53 54 41 20 |LDA #.$E000:STA |
00000FD0: 50 54 52 00 15 30 F0 05 4C 44 58 20 23 24 33 34 |PTR..0..LDX #$34|
00000FE0: 3A 53 45 49 3A 53 54 58 20 31 3A 4C 44 58 20 23 |:SEI:STX 1:LDX #|
00000FF0: 33 32 00 20 30 FA 05 4C 44 59 20 23 30 00 3F 30 |32. 0..LDY #0.?0|
00001000: FC 05 3B 20 51 32 AA 32 32 3A 4C 44 41 20 46 4C |..; Q2.22:LDA FL|
00001010: 41 47 3A 42 50 4C 20 51 32 AA 33 31 00 57 30 FF |AG:BPL Q2.31.W0.|
00001020: 05 4C 44 41 20 28 50 54 52 29 2C 59 3A 45 B0 20 |.LDA (PTR),Y:E. |
00001030: 23 24 46 46 00 7D 30 04 06 3B 20 51 32 AA 33 31 |#$FF.}0..; Q2.31|
00001040: 3A 53 54 41 20 28 50 54 52 29 2C 59 3A 49 4E 59 |:STA (PTR),Y:INY|
00001050: 3A 42 4E 45 20 51 32 AA 32 32 00 AC 30 0E 06 49 |:BNE Q2.22..0..I|
00001060: 4E 43 20 50 54 52 AA 31 3A 44 45 58 3A 42 4E 45 |NC PTR.1:DEX:BNE|
00001070: 20 51 32 AA 32 30 3A 4C 44 58 20 23 24 33 37 3A | Q2.20:LDX #$37:|
00001080: 53 54 58 20 31 3A 43 4C 49 00 B4 30 18 06 52 54 |STX 1:CLI..0..RT|
00001090: 53 00 C1 30 D0 07 3B AC AC AC CE AC AC AC 00 CF |S..0..;.........|
000010A0: 30 DA 07 51 33 20 4A 53 52 20 47 42 00 EE 30 EE |0..Q3 JSR GB..0.|
000010B0: 07 54 58 41 3A 41 53 4C 3A 41 53 4C 3A 41 53 4C |.TXA:ASL:ASL:ASL|
000010C0: 3A 41 53 4C 3A 53 54 41 20 53 4F 00 15 31 F3 07 |:ASL:STA SO..1..|
000010D0: 4A 53 52 20 43 48 4B 43 4F 4D 3A 4A 53 52 20 47 |JSR CHKCOM:JSR G|
000010E0: 42 3A 54 58 41 3A B0 41 20 53 4F 3A 53 54 41 20 |B:TXA:.A SO:STA |
000010F0: 53 4F 00 2B 31 F5 07 4A 53 52 20 24 37 39 3A 42 |SO.+1..JSR $79:B|
00001100: 45 51 20 51 33 AA 34 37 00 66 31 F8 07 4A 53 52 |EQ Q3.47.f1..JSR|
00001110: 20 43 48 4B 43 4F 4D 3A 4A 53 52 20 47 42 3A 53 | CHKCOM:JSR GB:S|
00001120: 54 58 20 53 4F AA 31 3A 4A 53 52 20 43 48 4B 43 |TX SO.1:JSR CHKC|
00001130: 4F 4D 3A 4A 53 52 20 47 42 3A 53 54 58 20 35 33 |OM:JSR GB:STX 53|
00001140: 32 38 31 00 9C 31 02 08 3B 20 51 33 AA 34 37 3A |281..1..; Q3.47:|
00001150: 4C 44 41 20 23 B3 24 43 30 30 30 3A 53 54 41 20 |LDA #.$C000:STA |
00001160: 50 54 52 3A 4C 44 41 20 23 B1 24 43 30 30 30 3A |PTR:LDA #.$C000:|
00001170: 53 54 41 20 50 54 52 AA 31 00 B5 31 0C 08 4C 44 |STA PTR.1..1..LD|
00001180: 58 20 23 34 3A 4C 44 59 20 23 30 3A 4C 44 41 20 |X #4:LDY #0:LDA |
00001190: 53 4F 00 DB 31 16 08 3B 20 51 33 AA 36 32 3A 53 |SO..1..; Q3.62:S|
000011A0: 54 41 20 28 50 54 52 29 2C 59 3A 49 4E 59 3A 42 |TA (PTR),Y:INY:B|
000011B0: 4E 45 20 51 33 AA 36 32 00 F7 31 20 08 49 4E 43 |NE Q3.62..1 .INC|
000011C0: 20 50 54 52 AA 31 3A 44 45 58 3A 42 4E 45 20 51 | PTR.1:DEX:BNE Q|
000011D0: 33 AA 36 32 00 25 32 2A 08 4C 44 41 20 23 B3 35 |3.62.%2*.LDA #.5|
000011E0: 35 32 39 36 3A 53 54 41 20 50 54 52 3A 4C 44 41 |5296:STA PTR:LDA|
000011F0: 20 23 B1 35 35 32 39 36 3A 53 54 41 20 50 54 52 | #.55296:STA PTR|
00001200: AA 31 00 39 32 34 08 4C 44 58 20 23 34 3A 4C 44 |.1.924.LDX #4:LD|
00001210: 41 20 53 4F AA 31 00 7A 32 3E 08 3B 20 51 32 38 |A SO.1.z2>.; Q28|
00001220: AB 31 31 3A 53 54 41 20 28 50 54 52 29 2C 59 3A |.11:STA (PTR),Y:|
00001230: 49 4E 59 3A 42 4E 45 20 51 32 38 AB 31 31 3A 49 |INY:BNE Q28.11:I|
00001240: 4E 43 20 50 54 52 AA 31 3A 44 45 58 3A 42 4E 45 |NC PTR.1:DEX:BNE|
00001250: 20 51 32 38 AB 31 31 00 82 32 48 08 52 54 53 00 | Q28.11..2H.RTS.|
00001260: 88 32 5F 09 3B 00 9A 32 60 09 3B AC AC AC 46 52 |.2_.;..2`.;...FR|
00001270: 2E 41 4D 45 AC AC AC 00 B3 32 6A 09 51 32 38 20 |.AME.....2j.Q28 |
00001280: 4A 53 52 20 47 42 3A 53 54 58 20 35 33 32 38 30 |JSR GB:STX 53280|
00001290: 00 BB 32 74 09 52 54 53 00 C1 32 C3 09 3B 00 DB |..2t.RTS..2..;..|
000012A0: 32 C4 09 3B AC AC AC 53 2E 45 54 2C 53 2E 45 54 |2..;...S.ET,S.ET|
000012B0: 41 2E 58 49 53 AC AC AC 00 FA 32 C6 09 51 34 20 |A.XIS.....2..Q4 |
000012C0: 4C 44 59 20 23 24 44 30 3A 4A 53 52 20 EA 59 3A |LDY #$D0:JSR .Y:|
000012D0: 42 45 51 20 41 58 49 00 28 33 C8 09 4A 53 52 20 |BEQ AXI.(3..JSR |
000012E0: 47 42 3A 54 58 41 3A AF 20 23 31 35 3A 53 54 41 |GB:TXA:. #15:STA|
000012F0: 20 38 33 30 3A AF 20 23 33 3A 53 54 41 20 38 33 | 830:. #3:STA 83|
00001300: 36 3A 52 54 53 00 64 33 CC 09 41 58 49 20 4A 53 |6:RTS.d3..AXI JS|
00001310: 52 20 43 48 52 A1 3A 43 4D 50 20 23 36 35 3A 42 |R CHR.:CMP #65:B|
00001320: 43 43 20 41 31 3A 43 4D 50 20 23 36 38 3A 42 43 |CC A1:CMP #68:BC|
00001330: 43 20 41 32 3A 41 31 20 4A 4D 50 20 24 41 46 30 |C A2:A1 JMP $AF0|
00001340: 38 00 B3 33 CE 09 41 32 20 54 41 58 3A 4C 44 41 |8..3..A2 TAX:LDA|
00001350: 20 24 37 41 3A 50 48 41 3A 4C 44 41 20 24 37 42 | $7A:PHA:LDA $7B|
00001360: 3A 50 48 41 3A 54 58 41 3A 53 45 43 3A 53 42 43 |:PHA:TXA:SEC:SBC|
00001370: 20 23 36 35 3A 41 53 4C 3A 41 53 4C 3A 41 53 4C | #65:ASL:ASL:ASL|
00001380: 3A 41 53 4C 3A 41 53 4C 3A 41 53 4C 3A 54 41 59 |:ASL:ASL:ASL:TAY|
00001390: 00 DD 33 D0 09 41 33 20 4A 53 52 20 43 48 52 A1 |..3..A3 JSR CHR.|
000013A0: 3A 53 54 41 20 55 2C 59 3A 42 45 51 20 41 35 3A |:STA U,Y:BEQ A5:|
000013B0: 49 4E 59 3A 42 4E 45 20 41 33 00 FC 33 D2 09 41 |INY:BNE A3..3..A|
000013C0: 35 20 50 4C 41 3A 53 54 41 20 24 37 42 3A 50 4C |5 PLA:STA $7B:PL|
000013D0: 41 3A 53 54 41 20 24 37 41 00 09 34 D8 09 4A 53 |A:STA $7A..4..JS|
000013E0: 52 20 43 48 52 A1 00 45 34 DE 09 41 34 20 4C 44 |R CHR..E4..A4 LD|
000013F0: 41 20 23 30 3A 53 54 41 20 38 33 34 3A 4A 53 52 |A #0:STA 834:JSR|
00001400: 20 46 52 4D 4E 55 4D 3A 4A 53 52 20 52 55 3A 4C | FRMNUM:JSR RU:L|
00001410: 44 58 20 23 B3 58 4B 30 3A 4C 44 59 20 23 B1 58 |DX #.XK0:LDY #.X|
00001420: 4B 30 00 7A 34 E0 09 4A 53 52 20 45 49 4E 4D 49 |K0.z4..JSR EINMI|
00001430: 54 3A 4A 53 52 20 52 55 3A 4C 44 58 20 23 B3 59 |T:JSR RU:LDX #.Y|
00001440: 4B 30 3A 4C 44 59 20 23 B1 59 4B 30 3A 4A 53 52 |K0:LDY #.YK0:JSR|
00001450: 20 46 41 43 4D 45 4D 00 94 34 E2 09 4A 53 52 20 | FACMEM..4..JSR |
00001460: 43 48 4B 43 4F 4D 3A 4A 53 52 20 46 52 4D 4E 55 |CHKCOM:JSR FRMNU|
00001470: 4D 00 B3 34 E4 09 4C 44 58 20 23 B3 43 3A 4C 44 |M..4..LDX #.C:LD|
00001480: 59 20 23 B1 43 3A 4A 53 52 20 46 41 43 4D 45 4D |Y #.C:JSR FACMEM|
00001490: 00 CE 34 E7 09 4A 53 52 20 52 44 3A 4C 44 41 20 |..4..JSR RD:LDA |
000014A0: 23 30 3A 53 54 41 20 46 4C 41 47 00 F5 34 E9 09 |#0:STA FLAG..4..|
000014B0: 4C 44 58 20 23 B3 41 4C 50 48 41 3A 4C 44 59 20 |LDX #.ALPHA:LDY |
000014C0: 23 B1 41 4C 50 48 41 3A 4A 53 52 20 46 41 43 4D |#.ALPHA:JSR FACM|
000014D0: 45 4D 00 FF 34 EC 09 4A 53 52 20 BF 00 33 35 F6 |EM..4..JSR ..35.|
000014E0: 09 4C 44 58 20 23 B3 BF 41 4C 3A 4C 44 59 20 23 |.LDX #..AL:LDY #|
000014F0: B1 BF 41 4C 3A 4A 53 52 20 46 41 43 4D 45 4D 3A |..AL:JSR FACMEM:|
00001500: 4A 53 52 20 48 4F 4C 45 41 4C 3A 4A 53 52 20 BE |JSR HOLEAL:JSR .|
00001510: 00 67 35 00 0A 4C 44 58 20 23 B3 BE 41 4C 3A 4C |.g5..LDX #..AL:L|
00001520: 44 59 20 23 B1 BE 41 4C 3A 4A 53 52 20 46 41 43 |DY #..AL:JSR FAC|
00001530: 4D 45 4D 3A 4C 44 41 20 24 36 31 3A 42 45 51 20 |MEM:LDA $61:BEQ |
00001540: 41 58 49 32 00 9F 35 08 0A 4A 53 52 20 48 4F 4C |AXI2..5..JSR HOL|
00001550: 45 41 4C 3A 4A 53 52 20 24 45 32 42 34 3A 4C 44 |EAL:JSR $E2B4:LD|
00001560: 58 20 23 B3 C0 41 4C 3A 4C 44 59 20 23 B1 C0 41 |X #..AL:LDY #..A|
00001570: 4C 3A 4A 53 52 20 46 41 43 4D 45 4D 00 BA 35 0A |L:JSR FACMEM..5.|
00001580: 0A 41 58 49 32 20 4A 53 52 20 24 37 39 3A 42 4E |.AXI2 JSR $79:BN|
00001590: 45 20 53 45 45 31 31 00 D1 35 0F 0A 4C 44 41 20 |E SEE11..5..LDA |
000015A0: 23 32 3A 53 54 41 20 38 34 32 3A 52 54 53 00 16 |#2:STA 842:RTS..|
000015B0: 36 14 0A 53 45 45 31 31 20 43 4D 50 20 23 22 21 |6..SEE11 CMP #"!|
000015C0: 22 3A 42 4E 45 20 53 45 45 31 3A 4C 44 41 20 23 |":BNE SEE1:LDA #|
000015D0: 33 3A 53 54 41 20 38 34 32 3A 4C 44 41 20 23 32 |3:STA 842:LDA #2|
000015E0: 35 30 3A 53 54 41 20 38 33 34 3A 4A 4D 50 20 43 |50:STA 834:JMP C|
000015F0: 48 52 A1 00 2E 36 1E 0A 53 45 45 31 20 4C 44 41 |HR...6..SEE1 LDA|
00001600: 20 23 33 3A 53 54 41 20 38 34 32 00 48 36 28 0A | #3:STA 842.H6(.|
00001610: 4A 53 52 20 43 48 4B 43 4F 4D 3A 4A 53 52 20 46 |JSR CHKCOM:JSR F|
00001620: 52 4D 4E 55 4D 00 53 36 2A 0A 4A 53 52 20 52 44 |RMNUM.S6*.JSR RD|
00001630: 00 78 36 2B 0A 4C 44 58 20 23 B3 42 45 54 41 3A |.x6+.LDX #.BETA:|
00001640: 4C 44 59 20 23 B1 42 45 54 41 3A 4A 53 52 20 46 |LDY #.BETA:JSR F|
00001650: 41 43 4D 45 4D 00 9C 36 2C 0A 4C 44 41 20 24 36 |ACMEM..6,.LDA $6|
00001660: 31 3A 42 4E 45 20 53 45 32 3A 4A 53 52 20 53 45 |1:BNE SE2:JSR SE|
00001670: 30 3A 4A 4D 50 20 24 37 39 00 E7 36 2E 0A 53 45 |0:JMP $79..6..SE|
00001680: 32 20 4C 44 41 20 23 B3 41 4C 50 48 41 3A 4C 44 |2 LDA #.ALPHA:LD|
00001690: 59 20 23 B1 41 4C 50 48 41 3A 4A 53 52 20 4D 45 |Y #.ALPHA:JSR ME|
000016A0: 4D 46 41 43 3A 4C 44 41 20 24 36 31 3A 42 4E 45 |MFAC:LDA $61:BNE|
000016B0: 20 53 45 33 3A 4A 53 52 20 53 45 30 3A 4A 4D 50 | SE3:JSR SE0:JMP|
000016C0: 20 24 37 39 00 38 37 2F 0A 53 45 33 20 4C 44 41 | $79.87/.SE3 LDA|
000016D0: 20 23 B3 42 45 54 41 3A 4C 44 59 20 23 B1 42 45 | #.BETA:LDY #.BE|
000016E0: 54 41 3A 4A 53 52 20 4D 45 4D 50 4C 55 53 3A 4C |TA:JSR MEMPLUS:L|
000016F0: 44 41 20 23 B3 24 45 32 45 30 3A 4C 44 59 20 23 |DA #.$E2E0:LDY #|
00001700: 24 45 32 3A 4A 53 52 20 24 42 43 35 42 3A 42 4E |$E2:JSR $BC5B:BN|
00001710: 45 20 53 45 31 00 5F 37 30 0A 4C 44 41 20 23 B3 |E SE1._70.LDA #.|
00001720: 24 45 32 45 30 3A 4C 44 59 20 23 B1 24 45 32 45 |$E2E0:LDY #.$E2E|
00001730: 30 3A 4A 53 52 20 4D 45 4D 46 41 43 00 86 37 31 |0:JSR MEMFAC..71|
00001740: 0A 4C 44 58 20 23 B3 BE 47 41 53 54 3A 4C 44 59 |.LDX #..GAST:LDY|
00001750: 20 23 B1 BE 47 41 53 54 3A 4A 53 52 20 46 41 43 | #..GAST:JSR FAC|
00001760: 4D 45 4D 00 9A 37 32 0A 4C 44 41 20 23 31 3A 53 |MEM..72.LDA #1:S|
00001770: 54 41 20 46 4C 41 47 00 C3 37 34 0A 53 45 31 20 |TA FLAG..74.SE1 |
00001780: 4C 44 41 20 23 B3 42 45 54 41 3A 4C 44 59 20 23 |LDA #.BETA:LDY #|
00001790: B1 42 45 54 41 3A 4A 53 52 20 4D 45 4D 46 41 43 |.BETA:JSR MEMFAC|
000017A0: 00 01 38 44 0A 4A 53 52 20 BE 3A 4C 44 58 20 23 |..8D.JSR .:LDX #|
000017B0: B3 BE 42 45 3A 4C 44 59 20 23 B1 BE 42 45 3A 4A |..BE:LDY #..BE:J|
000017C0: 53 52 20 46 41 43 4D 45 4D 3A 4A 53 52 20 48 4F |SR FACMEM:JSR HO|
000017D0: 4C 45 42 45 3A 4A 53 52 20 24 45 32 42 34 00 24 |LEBE:JSR $E2B4.$|
000017E0: 38 46 0A 4C 44 58 20 23 B3 C0 42 45 3A 4C 44 59 |8F.LDX #..BE:LDY|
000017F0: 20 23 B1 C0 42 45 3A 4A 53 52 20 46 41 43 4D 45 | #..BE:JSR FACME|
00001800: 4D 00 6C 38 50 0A 4C 44 41 20 23 B3 C0 41 4C 3A |M.l8P.LDA #..AL:|
00001810: 4C 44 59 20 23 B1 C0 41 4C 3A 4A 53 52 20 4D 45 |LDY #..AL:JSR ME|
00001820: 4D 44 49 56 3A 4A 53 52 20 5A 55 53 A4 52 41 3A |MDIV:JSR ZUS.RA:|
00001830: 4A 53 52 20 24 42 46 37 31 3A 4A 53 52 20 24 45 |JSR $BF71:JSR $E|
00001840: 33 30 45 3A 4A 53 52 20 BE 00 A5 38 5A 0A 4C 44 |30E:JSR ...8Z.LD|
00001850: 58 20 23 B3 BE 41 4C 53 54 3A 4C 44 59 20 23 B1 |X #..ALST:LDY #.|
00001860: BE 41 4C 53 54 3A 4A 53 52 20 46 41 43 4D 45 4D |.ALST:JSR FACMEM|
00001870: 3A 4A 53 52 20 54 53 3A 4A 53 52 20 4D 45 4D 46 |:JSR TS:JSR MEMF|
00001880: 41 43 00 E6 38 64 0A 4C 44 41 20 23 B3 24 42 39 |AC..8d.LDA #.$B9|
00001890: 42 43 3A 4C 44 59 20 23 B1 24 42 39 42 43 3A 4A |BC:LDY #.$B9BC:J|
000018A0: 53 52 20 4D 45 4D 44 49 56 3A 4A 53 52 20 24 42 |SR MEMDIV:JSR $B|
000018B0: 46 37 31 3A 4A 53 52 20 24 45 33 30 45 3A 4A 53 |F71:JSR $E30E:JS|
000018C0: 52 20 BE 00 26 39 6E 0A 4C 44 58 20 23 B3 BE 42 |R ..&9n.LDX #..B|
000018D0: 45 53 54 3A 4C 44 59 20 23 B1 BE 42 45 53 54 3A |EST:LDY #..BEST:|
000018E0: 4A 53 52 20 46 41 43 4D 45 4D 3A 4C 44 41 20 46 |JSR FACMEM:LDA F|
000018F0: 4C 41 47 3A 42 45 51 20 53 45 34 3A 4A 4D 50 20 |LAG:BEQ SE4:JMP |
00001900: 24 37 39 00 4E 39 73 0A 53 45 34 20 4A 53 52 20 |$79.N9s.SE4 JSR |
00001910: 48 4F 4C 45 42 45 3A 4A 53 52 20 24 45 32 42 34 |HOLEBE:JSR $E2B4|
00001920: 3A 4A 53 52 20 5A 55 53 A4 52 41 00 80 39 78 0A |:JSR ZUS.RA..9x.|
00001930: 4A 53 52 20 48 4F 4C 45 41 4C 3A 4C 44 41 20 23 |JSR HOLEAL:LDA #|
00001940: B3 24 45 32 45 30 3A 4C 44 59 20 23 B1 24 45 32 |.$E2E0:LDY #.$E2|
00001950: 45 30 3A 4A 53 52 20 4D 45 4D 4D 49 4E 00 B9 39 |E0:JSR MEMMIN..9|
00001960: 82 0A 4C 44 41 20 23 B3 42 45 54 41 3A 4C 44 59 |..LDA #.BETA:LDY|
00001970: 20 23 B1 42 45 54 41 3A 4A 53 52 20 4D 45 4D 4D | #.BETA:JSR MEMM|
00001980: 49 4E 3A 4A 53 52 20 24 42 46 42 34 3A 4A 53 52 |IN:JSR $BFB4:JSR|
00001990: 20 24 45 32 42 34 00 E9 39 8C 0A 4A 53 52 20 54 | $E2B4..9..JSR T|
000019A0: 53 3A 4A 53 52 20 4D 45 4D 44 49 56 3A 4A 53 52 |S:JSR MEMDIV:JSR|
000019B0: 20 24 42 46 37 31 3A 4A 53 52 20 24 45 33 30 45 | $BF71:JSR $E30E|
000019C0: 3A 4A 53 52 20 BE 00 10 3A 96 0A 4C 44 58 20 23 |:JSR ...:..LDX #|
000019D0: B3 BE 47 41 53 54 3A 4C 44 59 20 23 B1 BE 47 41 |..GAST:LDY #..GA|
000019E0: 53 54 3A 4A 4D 50 20 46 41 43 4D 45 4D 00 31 3A |ST:JMP FACMEM.1:|
000019F0: E6 0A 45 49 4E 4D 49 54 20 4A 53 52 20 46 41 43 |..EINMIT JSR FAC|
00001A00: 4D 45 4D 3A 4A 53 52 20 43 48 4B 43 4F 4D 00 40 |MEM:JSR CHKCOM.@|
00001A10: 3A F0 0A 4A 4D 50 20 46 52 4D 4E 55 4D 00 5B 3A |:..JMP FRMNUM.[:|
00001A20: F5 0A 52 55 20 4A 53 52 20 24 42 38 34 39 3A 4A |..RU JSR $B849:J|
00001A30: 4D 50 20 24 42 43 43 43 00 89 3A FA 0A 48 4F 4C |MP $BCCC..:..HOL|
00001A40: 45 41 4C 20 4C 44 41 20 23 B3 41 4C 50 48 41 3A |EAL LDA #.ALPHA:|
00001A50: 4C 44 59 20 23 B1 41 4C 50 48 41 3A 4A 4D 50 20 |LDY #.ALPHA:JMP |
00001A60: 4D 45 4D 46 41 43 00 B5 3A 04 0B 48 4F 4C 45 42 |MEMFAC..:..HOLEB|
00001A70: 45 20 4C 44 41 20 23 B3 42 45 54 41 3A 4C 44 59 |E LDA #.BETA:LDY|
00001A80: 20 23 B1 42 45 54 41 3A 4A 4D 50 20 4D 45 4D 46 | #.BETA:JMP MEMF|
00001A90: 41 43 00 02 3B 0E 0B 52 44 20 4C 44 41 20 23 B3 |AC..;..RD LDA #.|
00001AA0: 24 41 45 41 38 3A 4C 44 59 20 23 B1 24 41 45 41 |$AEA8:LDY #.$AEA|
00001AB0: 38 3A 4A 53 52 20 4D 45 4D 4D 55 4C 54 3A 4C 44 |8:JSR MEMMULT:LD|
00001AC0: 41 20 23 B3 48 31 38 30 3A 4C 44 59 20 23 B1 48 |A #.H180:LDY #.H|
00001AD0: 31 38 30 3A 4A 4D 50 20 4D 45 4D 4D 55 4C 54 00 |180:JMP MEMMULT.|
00001AE0: 2A 3B 22 0B 5A 55 53 A4 52 41 20 4C 44 58 20 23 |*;".ZUS.RA LDX #|
00001AF0: B3 53 4F 3A 4C 44 59 20 23 B1 53 4F 3A 4A 4D 50 |.SO:LDY #.SO:JMP|
00001B00: 20 46 41 43 4D 45 4D 00 47 3B 2C 0B 54 53 20 4C | FACMEM.G;,.TS L|
00001B10: 44 41 20 23 B3 53 4F 3A 4C 44 59 20 23 B1 53 4F |DA #.SO:LDY #.SO|
00001B20: 3A 52 54 53 00 93 3B 4A 0B 53 45 30 20 4C 44 58 |:RTS..;J.SE0 LDX|
00001B30: 20 23 B3 41 4C 50 48 41 3A 4C 44 59 20 23 B1 41 | #.ALPHA:LDY #.A|
00001B40: 4C 50 48 41 3A 4A 53 52 20 46 41 43 4D 45 4D 3A |LPHA:JSR FACMEM:|
00001B50: 4C 44 58 20 23 B3 42 45 54 41 3A 4C 44 59 20 23 |LDX #.BETA:LDY #|
00001B60: B1 42 45 54 41 3A 4A 53 52 20 46 41 43 4D 45 4D |.BETA:JSR FACMEM|
00001B70: 00 B6 3B 4B 0B 4C 44 58 20 23 B3 C0 42 45 3A 4C |..;K.LDX #..BE:L|
00001B80: 44 59 20 23 B1 C0 42 45 3A 4A 53 52 20 46 41 43 |DY #..BE:JSR FAC|
00001B90: 4D 45 4D 00 D9 3B 4C 0B 4C 44 58 20 23 B3 BF 41 |MEM..;L.LDX #..A|
00001BA0: 4C 3A 4C 44 59 20 23 B1 BF 41 4C 3A 4A 53 52 20 |L:LDY #..AL:JSR |
00001BB0: 46 41 43 4D 45 4D 00 FC 3B 4D 0B 4C 44 58 20 23 |FACMEM..;M.LDX #|
00001BC0: B3 C0 41 4C 3A 4C 44 59 20 23 B1 C0 41 4C 3A 4A |..AL:LDY #..AL:J|
00001BD0: 53 52 20 46 41 43 4D 45 4D 00 23 3C 4E 0B 4C 44 |SR FACMEM.#<N.LD|
00001BE0: 41 20 23 B3 24 42 39 42 43 3A 4C 44 59 20 23 B1 |A #.$B9BC:LDY #.|
00001BF0: 24 42 39 42 43 3A 4A 53 52 20 4D 45 4D 46 41 43 |$B9BC:JSR MEMFAC|
00001C00: 00 4A 3C 4F 0B 4C 44 58 20 23 B3 BE 42 45 53 54 |.J<O.LDX #..BEST|
00001C10: 3A 4C 44 59 20 23 B1 BE 42 45 53 54 3A 4A 53 52 |:LDY #..BEST:JSR|
00001C20: 20 46 41 43 4D 45 4D 00 71 3C 50 0B 4C 44 58 20 | FACMEM.q<P.LDX |
00001C30: 23 B3 BE 41 4C 53 54 3A 4C 44 59 20 23 B1 BE 41 |#..ALST:LDY #..A|
00001C40: 4C 53 54 3A 4A 53 52 20 46 41 43 4D 45 4D 00 98 |LST:JSR FACMEM..|
00001C50: 3C 52 0B 4C 44 58 20 23 B3 BE 47 41 53 54 3A 4C |<R.LDX #..GAST:L|
00001C60: 44 59 20 23 B1 BE 47 41 53 54 3A 4A 53 52 20 46 |DY #..GAST:JSR F|
00001C70: 41 43 4D 45 4D 00 BB 3C 54 0B 4C 44 58 20 23 B3 |ACMEM..<T.LDX #.|
00001C80: BE 41 4C 3A 4C 44 59 20 23 B1 BE 41 4C 3A 4A 53 |.AL:LDY #..AL:JS|
00001C90: 52 20 46 41 43 4D 45 4D 00 DE 3C 56 0B 4C 44 58 |R FACMEM..<V.LDX|
00001CA0: 20 23 B3 BE 42 45 3A 4C 44 59 20 23 B1 BE 42 45 | #..BE:LDY #..BE|
00001CB0: 3A 4A 4D 50 20 46 41 43 4D 45 4D 00 ED 3C 68 0B |:JMP FACMEM..<h.|
00001CC0: 58 4B 20 20 AC B2 20 AC AA 35 00 FC 3C 6B 0B 59 |XK .. ..5..<k.Y|
00001CD0: 4B 20 20 AC B2 20 AC AA 35 00 0B 3D 6D 0B 58 4B |K .. ..5..=m.XK|
00001CE0: 30 20 AC B2 20 AC AA 35 00 1A 3D 72 0B 59 4B 30 |0 .. ..5..=r.YK0|
00001CF0: 20 AC B2 20 AC AA 35 00 29 3D 77 0B 58 4B 31 20 | .. ..5.)=w.XK1 |
00001D00: AC B2 20 AC AA 35 00 38 3D 7C 0B 59 4B 31 20 AC |.. ..5.8=|.YK1 .|
00001D10: B2 20 AC AA 35 00 47 3D 7E 0B 5A 4B 31 20 AC B2 |. ..5.G=~.ZK1 ..|
00001D20: 20 AC AA 35 00 56 3D 81 0B 58 4B 32 20 AC B2 20 | ..5.V=..XK2 .. |
00001D30: AC AA 35 00 65 3D 86 0B 59 4B 32 20 AC B2 20 AC |..5.e=..YK2 .. .|
00001D40: AA 35 00 74 3D 88 0B 5A 4B 32 20 AC B2 20 AC AA |.5.t=..ZK2 .. ..|
00001D50: 35 00 82 3D 89 0B 43 4F 20 AC B2 20 AC AA 35 00 |5..=..CO .. ..5.|
00001D60: 90 3D 8A 0B 53 49 20 AC B2 20 AC AA 35 00 9D 3D |.=..SI .. ..5..=|
00001D70: 8B 0B 2E 42 59 54 20 30 2C 30 00 B0 3D 8D 0B 4B |...BYT 0,0..=..K|
00001D80: 20 20 20 20 20 20 20 AC B2 20 AC AA 35 00 C3 3D | .. ..5..=|
00001D90: 90 0B 41 4C 50 48 41 20 20 20 AC B2 20 AC AA 35 |..ALPHA .. ..5|
00001DA0: 00 D4 3D 95 0B BE 41 4C 20 20 20 AC B2 20 AC AA |..=...AL .. ..|
00001DB0: 35 00 E5 3D 9A 0B BF 41 4C 20 20 20 AC B2 20 AC |5..=...AL .. .|
00001DC0: AA 35 00 F6 3D 9F 0B C0 41 4C 20 20 20 AC B2 20 |.5..=...AL .. |
00001DD0: AC AA 35 00 09 3E A4 0B 42 45 54 41 20 20 20 20 |..5..>..BETA |
00001DE0: AC B2 20 AC AA 35 00 1A 3E A9 0B BE 42 45 20 20 |.. ..5..>...BE |
00001DF0: 20 AC B2 20 AC AA 35 00 2B 3E AE 0B C0 42 45 20 | .. ..5.+>...BE |
00001E00: 20 20 AC B2 20 AC AA 35 00 3C 3E B3 0B BE 42 45 | .. ..5.<>...BE|
00001E10: 53 54 20 AC B2 20 AC AA 35 00 4D 3E B4 0B BE 41 |ST .. ..5.M>...A|
00001E20: 4C 53 54 20 AC B2 20 AC AA 35 00 5E 3E B5 0B BE |LST .. ..5.^>...|
00001E30: 47 41 53 54 20 AC B2 20 AC AA 35 00 71 3E B6 0B |GAST .. ..5.q>..|
00001E40: 43 20 20 20 20 20 20 20 AC B2 20 AC AA 35 00 84 |C .. ..5..|
00001E50: 3E B8 0B 53 4F 20 20 20 20 20 20 AC B2 20 AC AA |>..SO .. ..|
00001E60: 35 00 A6 3E C2 0B 48 31 38 30 20 20 20 20 2E 42 |5..>..H180 .B|
00001E70: 59 54 20 31 32 31 2C 35 34 2C 31 31 2C 39 36 2C |YT 121,54,11,96,|
00001E80: 31 38 32 00 CD 3E CC 0B 54 45 4E 20 2E 42 59 54 |182..>..TEN .BYT|
00001E90: 20 31 31 35 2C 38 31 2C 31 38 33 2C 32 33 2C 38 | 115,81,183,23,8|
00001EA0: 39 20 20 3B 20 31 30 AE AB 34 00 DC 3E D6 0B 58 |9 ; 10..4..>..X|
00001EB0: 31 4C 20 2E 42 59 54 20 31 00 EB 3E E0 0B 58 31 |1L .BYT 1..>..X1|
00001EC0: 48 20 2E 42 59 54 20 31 00 FA 3E EA 0B 59 31 20 |H .BYT 1..>..Y1 |
00001ED0: 20 2E 42 59 54 20 31 00 09 3F EF 0B 59 31 48 20 | .BYT 1..?..Y1H |
00001EE0: 2E 42 59 54 20 31 00 18 3F F4 0B 58 32 4C 20 2E |.BYT 1..?..X2L .|
00001EF0: 42 59 54 20 32 00 27 3F FE 0B 58 32 48 20 2E 42 |BYT 2.'?..X2H .B|
00001F00: 59 54 20 32 00 36 3F 08 0C 59 32 20 20 2E 42 59 |YT 2.6?..Y2 .BY|
00001F10: 54 20 32 00 45 3F 0D 0C 59 32 48 20 2E 42 59 54 |T 2.E?..Y2H .BYT|
00001F20: 20 32 00 54 3F 12 0C 58 4C 20 20 2E 42 59 54 20 | 2.T?..XL .BYT |
00001F30: 33 00 63 3F 1C 0C 58 48 20 20 2E 42 59 54 20 33 |3.c?..XH .BYT 3|
00001F40: 00 72 3F 26 0C 59 20 20 20 2E 42 59 54 20 33 00 |.r?&.Y .BYT 3.|
00001F50: 81 3F 2B 0C 59 48 20 20 2E 42 59 54 20 33 00 90 |.?+.YH .BYT 3..|
00001F60: 3F 30 0C 53 31 20 20 2E 42 59 54 20 31 00 9F 3F |?0.S1 .BYT 1..?|
00001F70: 3A 0C 53 32 20 20 2E 42 59 54 20 32 00 AE 3F 3D |:.S2 .BYT 2..?=|
00001F80: 0C 4E 31 20 20 2E 42 59 54 20 31 00 BD 3F 3F 0C |.N1 .BYT 1..??.|
00001F90: 4E 32 20 20 2E 42 59 54 20 32 00 CC 3F 44 0C 49 |N2 .BYT 2..?D.I|
00001FA0: 4E 4C 20 2E 42 59 54 20 30 00 DB 3F 4E 0C 49 4E |NL .BYT 0..?N.IN|
00001FB0: 48 20 2E 42 59 54 20 30 00 E9 3F 58 0C 58 52 20 |H .BYT 0..?X.XR |
00001FC0: 2E 42 59 54 20 30 00 03 40 52 0D 49 31 4C 20 B2 |.BYT 0..@R.I1L .|
00001FD0: 20 58 4B AA 31 3A 49 31 48 20 B2 20 58 4B AA 32 | XK.1:I1H . XK.2|
00001FE0: 00 1D 40 54 0D 49 32 4C 20 B2 20 58 4B AA 33 3A |..@T.I2L . XK.3:|
00001FF0: 49 32 48 20 B2 20 58 4B AA 34 00 37 40 56 0D 44 |I2H . XK.4.7@V.D|
00002000: 58 4C 20 B2 20 59 4B AA 31 3A 44 58 48 20 B2 20 |XL . YK.1:DXH . |
00002010: 59 4B AA 32 00 51 40 58 0D 44 59 4C 20 B2 20 59 |YK.2.Q@X.DYL . Y|
00002020: 4B AA 33 3A 44 59 48 20 B2 20 59 4B AA 34 00 5F |K.3:DYH . YK.4._|
00002030: 40 60 0D 58 55 20 AC B2 20 AC AA 35 00 6D 40 61 |@`.XU .. ..5.m@a|
00002040: 0D 58 4F 20 AC B2 20 AC AA 35 00 7B 40 64 0D 53 |.XO .. ..5.{@d.S|
00002050: 53 20 AC B2 20 AC AA 35 00 88 40 AC 0D 3B AC AC |S .. ..5..@..;..|
00002060: AC D1 AC AC AC 00 98 40 B1 0D 3B 56 B0 52 4F 55 |.......@..;V.ROU|
00002070: 54 49 4E 45 4E 00 DC 40 B6 0D 4D 41 4B 45 58 20 |TINEN..@..MAKEX |
00002080: 4C 44 41 20 4E 31 3A 42 45 51 20 4D 41 4B 58 32 |LDA N1:BEQ MAKX2|
00002090: 3A 4C 44 41 20 53 31 3A 42 4D 49 20 4D 41 4B 58 |:LDA S1:BMI MAKX|
000020A0: 31 3A 49 4E 43 20 58 4C 3A 42 4E 45 20 4D 41 4B |1:INC XL:BNE MAK|
000020B0: 58 32 3A 49 4E 43 20 58 48 00 EA 40 BB 0D 4D 41 |X2:INC XH..@..MA|
000020C0: 4B 58 32 20 52 54 53 00 21 41 C0 0D 4D 41 4B 58 |KX2 RTS.!A..MAKX|
000020D0: 31 20 44 45 43 20 58 4C 3A 4C 44 41 20 58 4C 3A |1 DEC XL:LDA XL:|
000020E0: 20 43 4D 50 20 23 24 46 46 3A 42 4E 45 20 4D 41 | CMP #$FF:BNE MA|
000020F0: 4B 58 32 3A 44 45 43 20 58 48 3A 52 54 53 00 68 |KX2:DEC XH:RTS.h|
00002100: 41 CA 0D 4D 41 4B 45 59 20 4C 44 41 20 4E 32 3A |A..MAKEY LDA N2:|
00002110: 42 45 51 20 4D 41 4B 58 32 3A 4C 44 41 20 53 32 |BEQ MAKX2:LDA S2|
00002120: 3A 42 4D 49 20 4D 41 4B 59 31 3A 49 4E 43 20 59 |:BMI MAKY1:INC Y|
00002130: 3A 42 4E 45 20 4D 41 4B 58 32 3A 49 4E 43 20 59 |:BNE MAKX2:INC Y|
00002140: 48 3A 52 54 53 00 9C 41 D4 0D 4D 41 4B 59 31 20 |H:RTS..A..MAKY1 |
00002150: 44 45 43 20 59 3A 4C 44 41 20 59 3A 43 4D 50 20 |DEC Y:LDA Y:CMP |
00002160: 23 24 46 46 3A 42 4E 45 20 4D 41 4B 58 32 3A 44 |#$FF:BNE MAKX2:D|
00002170: 45 43 20 59 48 3A 52 54 53 00 C5 41 EA 0D 50 55 |EC YH:RTS..A..PU|
00002180: 4E 4B 54 31 20 4C 44 41 20 23 B3 59 4B 31 3A 4C |NKT1 LDA #.YK1:L|
00002190: 44 59 20 23 B1 59 4B 31 3A 4A 53 52 20 52 4F 54 |DY #.YK1:JSR ROT|
000021A0: 32 44 00 E8 41 EE 0D 4C 44 41 20 23 B3 58 4B 31 |2D..A..LDA #.XK1|
000021B0: 3A 4C 44 59 20 23 B1 58 4B 31 3A 4A 53 52 20 52 |:LDY #.XK1:JSR R|
000021C0: 4F 54 32 44 31 00 0B 42 F2 0D 4C 44 41 20 23 B3 |OT2D1..B..LDA #.|
000021D0: 58 4B 31 3A 4C 44 59 20 23 B1 58 4B 31 3A 4A 53 |XK1:LDY #.XK1:JS|
000021E0: 52 20 52 4F 54 32 44 32 00 2E 42 FC 0D 4C 44 41 |R ROT2D2..B..LDA|
000021F0: 20 23 B3 59 4B 31 3A 4C 44 59 20 23 B1 59 4B 31 | #.YK1:LDY #.YK1|
00002200: 3A 4A 53 52 20 52 4F 54 32 44 33 00 4E 42 06 0E |:JSR ROT2D3.NB..|
00002210: 4A 53 52 20 5A 55 58 31 3A 4A 53 52 20 48 4F 4C |JSR ZUX1:JSR HOL|
00002220: 45 4B 3A 4A 4D 50 20 5A 55 59 31 00 73 42 24 0E |EK:JMP ZUY1.sB$.|
00002230: 48 4F 4C 45 4B 20 4C 44 41 20 23 B3 4B 3A 4C 44 |HOLEK LDA #.K:LD|
00002240: 59 20 23 B1 4B 3A 4A 4D 50 20 4D 45 4D 46 41 43 |Y #.K:JMP MEMFAC|
00002250: 00 88 42 2E 0E EA 59 20 53 54 59 20 53 4F 3A 4C |..B...Y STY SO:L|
00002260: 44 59 20 23 30 00 A3 42 38 0E 4C 44 41 20 28 24 |DY #0..B8.LDA ($|
00002270: 37 41 29 2C 59 3A 43 4D 50 20 53 4F 3A 52 54 53 |7A),Y:CMP SO:RTS|
00002280: 00 C3 42 42 0E EA 45 44 20 4C 44 59 20 23 22 46 |..BB..ED LDY #"F|
00002290: 22 3A 4A 53 52 20 EA 59 3A 42 4E 45 20 54 45 34 |":JSR .Y:BNE TE4|
000022A0: 00 DC 42 4C 0E 4C 44 41 20 23 31 3A 53 54 41 20 |..BL.LDA #1:STA |
000022B0: 50 3A 42 4E 45 20 54 45 31 00 FC 42 56 0E 54 45 |P:BNE TE1..BV.TE|
000022C0: 34 20 4C 44 59 20 23 22 44 22 3A 4A 53 52 20 EA |4 LDY #"D":JSR .|
000022D0: 59 3A 42 4E 45 20 54 45 32 00 15 43 60 0E 4C 44 |Y:BNE TE2..C`.LD|
000022E0: 41 20 23 32 3A 53 54 41 20 50 3A 42 4E 45 20 54 |A #2:STA P:BNE T|
000022F0: 45 31 00 35 43 6A 0E 54 45 32 20 4C 44 59 20 23 |E1.5Cj.TE2 LDY #|
00002300: 22 45 22 3A 4A 53 52 20 EA 59 3A 42 45 51 20 54 |"E":JSR .Y:BEQ T|
00002310: 45 33 00 43 43 74 0E 4A 4D 50 20 24 41 46 30 38 |E3.CCt.JMP $AF08|
00002320: 00 5A 43 7E 0E 54 45 33 20 4C 44 41 20 23 32 35 |.ZC~.TE3 LDA #25|
00002330: 30 3A 53 54 41 20 50 00 6B 43 88 0E 54 45 31 20 |0:STA P.kC..TE1 |
00002340: 4A 4D 50 20 43 48 52 A1 00 80 43 92 0E 52 4F 54 |JMP CHR...C..ROT|
00002350: 32 44 20 4A 53 52 20 4D 45 4D 46 41 43 00 AF 43 |2D JSR MEMFAC..C|
00002360: 9C 0E 4C 44 41 20 23 B3 BE 41 4C 3A 4C 44 59 20 |..LDA #..AL:LDY |
00002370: 23 B1 BE 41 4C 3A 4A 53 52 20 4D 45 4D 4D 55 4C |#..AL:JSR MEMMUL|
00002380: 54 3A 4A 4D 50 20 5A 55 53 A4 52 41 00 C5 43 B0 |T:JMP ZUS.RA..C.|
00002390: 0E 52 4F 54 32 44 31 20 4A 53 52 20 4D 45 4D 46 |.ROT2D1 JSR MEMF|
000023A0: 41 43 00 FC 43 BA 0E 4C 44 41 20 23 B3 BF 41 4C |AC..C..LDA #..AL|
000023B0: 3A 4C 44 59 20 23 B1 BF 41 4C 3A 4A 53 52 20 4D |:LDY #..AL:JSR M|
000023C0: 45 4D 4D 55 4C 54 3A 4A 53 52 20 54 53 3A 4A 53 |EMMULT:JSR TS:JS|
000023D0: 52 20 4D 45 4D 50 4C 55 53 00 23 44 BF 0E 4C 44 |R MEMPLUS.#D..LD|
000023E0: 58 20 23 B3 BE 42 45 53 54 3A 4C 44 59 20 23 B1 |X #..BEST:LDY #.|
000023F0: BE 42 45 53 54 3A 4A 53 52 20 46 41 43 4D 45 4D |.BEST:JSR FACMEM|
00002400: 00 45 44 C4 0E 4C 44 41 20 23 B3 43 4F 3A 4C 44 |.ED..LDA #.CO:LD|
00002410: 59 20 23 B1 43 4F 3A 4A 53 52 20 4D 45 4D 4D 55 |Y #.CO:JSR MEMMU|
00002420: 4C 54 00 69 44 C6 0E 4C 44 41 20 23 B3 59 4B 30 |LT.iD..LDA #.YK0|
00002430: 3A 4C 44 59 20 23 B1 59 4B 30 3A 4A 53 52 20 4D |:LDY #.YK0:JSR M|
00002440: 45 4D 50 4C 55 53 00 89 44 C9 0E 4A 53 52 20 24 |EMPLUS..D..JSR $|
00002450: 42 38 34 39 3A 4A 53 52 20 24 42 43 43 43 3A 4A |B849:JSR $BCCC:J|
00002460: 4D 50 20 5A 55 4B 00 9F 44 CE 0E 52 4F 54 32 44 |MP ZUK..D..ROT2D|
00002470: 32 20 4A 53 52 20 4D 45 4D 46 41 43 00 CE 44 D8 |2 JSR MEMFAC..D.|
00002480: 0E 4C 44 41 20 23 B3 BE 41 4C 3A 4C 44 59 20 23 |.LDA #..AL:LDY #|
00002490: B1 BE 41 4C 3A 4A 53 52 20 4D 45 4D 4D 55 4C 54 |..AL:JSR MEMMULT|
000024A0: 3A 4A 4D 50 20 5A 55 53 A4 52 41 00 E4 44 EC 0E |:JMP ZUS.RA..D..|
000024B0: 52 4F 54 32 44 33 20 4A 53 52 20 4D 45 4D 46 41 |ROT2D3 JSR MEMFA|
000024C0: 43 00 25 45 F6 0E 4C 44 41 20 23 B3 BF 41 4C 3A |C.%E..LDA #..AL:|
000024D0: 4C 44 59 20 23 B1 BF 41 4C 3A 4A 53 52 20 4D 45 |LDY #..AL:JSR ME|
000024E0: 4D 4D 55 4C 54 3A 4A 53 52 20 54 53 3A 4A 53 52 |MMULT:JSR TS:JSR|
000024F0: 20 4D 45 4D 4D 49 4E 3A 4A 53 52 20 5A 55 53 A4 | MEMMIN:JSR ZUS.|
00002500: 52 41 00 6A 45 F8 0E 4C 44 41 20 23 B3 53 49 3A |RA.jE..LDA #.SI:|
00002510: 4C 44 59 20 23 B1 53 49 3A 4A 53 52 20 4D 45 4D |LDY #.SI:JSR MEM|
00002520: 46 41 43 3A 4C 44 41 20 23 B3 BE 42 45 53 54 3A |FAC:LDA #..BEST:|
00002530: 4C 44 59 20 23 B1 BE 42 45 53 54 3A 4A 53 52 20 |LDY #..BEST:JSR |
00002540: 4D 45 4D 4D 55 4C 54 00 81 45 F9 0E 4A 53 52 20 |MEMMULT..E..JSR |
00002550: 54 53 3A 4A 53 52 20 4D 45 4D 50 4C 55 53 00 A5 |TS:JSR MEMPLUS..|
00002560: 45 FB 0E 4C 44 41 20 23 B3 58 4B 30 3A 4C 44 59 |E..LDA #.XK0:LDY|
00002570: 20 23 B1 58 4B 30 3A 4A 53 52 20 4D 45 4D 50 4C | #.XK0:JSR MEMPL|
00002580: 55 53 00 BD 45 00 0F 4A 53 52 20 24 42 38 34 39 |US..E..JSR $B849|
00002590: 3A 4A 4D 50 20 24 42 43 43 43 00 E5 45 0A 0F 5A |:JMP $BCCC..E..Z|
000025A0: 55 58 31 20 4C 44 58 20 23 B3 58 4B 31 3A 4C 44 |UX1 LDX #.XK1:LD|
000025B0: 59 20 23 B1 58 4B 31 3A 4A 4D 50 20 46 41 43 4D |Y #.XK1:JMP FACM|
000025C0: 45 4D 00 0D 46 14 0F 5A 55 58 32 20 4C 44 58 20 |EM..F..ZUX2 LDX |
000025D0: 23 B3 58 4B 32 3A 4C 44 59 20 23 B1 58 4B 32 3A |#.XK2:LDY #.XK2:|
000025E0: 4A 4D 50 20 46 41 43 4D 45 4D 00 35 46 1E 0F 5A |JMP FACMEM.5F..Z|
000025F0: 55 59 31 20 4C 44 58 20 23 B3 59 4B 31 3A 4C 44 |UY1 LDX #.YK1:LD|
00002600: 59 20 23 B1 59 4B 31 3A 4A 4D 50 20 46 41 43 4D |Y #.YK1:JMP FACM|
00002610: 45 4D 00 5D 46 28 0F 5A 55 59 32 20 4C 44 58 20 |EM.]F(.ZUY2 LDX |
00002620: 23 B3 59 4B 32 3A 4C 44 59 20 23 B1 59 4B 32 3A |#.YK2:LDY #.YK2:|
00002630: 4A 4D 50 20 46 41 43 4D 45 4D 00 83 46 32 0F 5A |JMP FACMEM..F2.Z|
00002640: 55 59 20 20 4C 44 58 20 23 B3 59 4B 3A 4C 44 59 |UY LDX #.YK:LDY|
00002650: 20 23 B1 59 4B 3A 4A 4D 50 20 46 41 43 4D 45 4D | #.YK:JMP FACMEM|
00002660: 00 A9 46 37 0F 5A 55 58 20 20 4C 44 58 20 23 B3 |..F7.ZUX LDX #.|
00002670: 58 4B 3A 4C 44 59 20 23 B1 58 4B 3A 4A 4D 50 20 |XK:LDY #.XK:JMP |
00002680: 46 41 43 4D 45 4D 00 D1 46 3C 0F 5A 55 5A 31 20 |FACMEM..F<.ZUZ1 |
00002690: 4C 44 58 20 23 B3 5A 4B 31 3A 4C 44 59 20 23 B1 |LDX #.ZK1:LDY #.|
000026A0: 5A 4B 31 3A 4A 4D 50 20 46 41 43 4D 45 4D 00 F9 |ZK1:JMP FACMEM..|
000026B0: 46 46 0F 5A 55 5A 32 20 4C 44 58 20 23 B3 5A 4B |FF.ZUZ2 LDX #.ZK|
000026C0: 32 3A 4C 44 59 20 23 B1 5A 4B 32 3A 4A 4D 50 20 |2:LDY #.ZK2:JMP |
000026D0: 46 41 43 4D 45 4D 00 1C 47 4B 0F 5A 55 4B 20 4C |FACMEM..GK.ZUK L|
000026E0: 44 58 20 23 B3 4B 3A 4C 44 59 20 23 B1 4B 3A 4A |DX #.K:LDY #.K:J|
000026F0: 4D 50 20 46 41 43 4D 45 4D 00 44 47 50 0F 4D 55 |MP FACMEM.DGP.MU|
00002700: 4C 54 58 20 4C 44 41 20 23 B3 53 58 3A 4C 44 59 |LTX LDA #.SX:LDY|
00002710: 20 23 B1 53 58 3A 4A 4D 50 20 4D 45 4D 4D 55 4C | #.SX:JMP MEMMUL|
00002720: 54 00 6C 47 5A 0F 4D 55 4C 54 59 20 4C 44 41 20 |T.lGZ.MULTY LDA |
00002730: 23 B3 53 59 3A 4C 44 59 20 23 B1 53 59 3A 4A 4D |#.SY:LDY #.SY:JM|
00002740: 50 20 4D 45 4D 4D 55 4C 54 00 94 47 64 0F 4D 55 |P MEMMULT..Gd.MU|
00002750: 4C 54 5A 20 4C 44 41 20 23 B3 53 5A 3A 4C 44 59 |LTZ LDA #.SZ:LDY|
00002760: 20 23 B1 53 5A 3A 4A 4D 50 20 4D 45 4D 4D 55 4C | #.SZ:JMP MEMMUL|
00002770: 54 00 A6 47 9F 0F 3B 48 41 55 50 54 52 4F 55 54 |T..G..;HAUPTROUT|
00002780: 49 4E 45 00 D1 47 A0 0F 51 36 20 4C 44 41 20 23 |INE..G..Q6 LDA #|
00002790: 30 3A 53 54 41 20 46 4C 41 47 3A 53 54 41 20 46 |0:STA FLAG:STA F|
000027A0: 4C 41 47 31 3A 53 54 41 20 46 4C 41 47 43 00 E0 |LAG1:STA FLAGC..|
000027B0: 47 AA 0F 87 54 20 4A 53 52 20 EA 45 44 00 00 48 |G...T JSR .ED..H|
000027C0: B4 0F 4A 53 52 20 46 52 4D 4E 55 4D 3A 4A 53 52 |..JSR FRMNUM:JSR|
000027D0: 20 4D 55 4C 54 58 3A 4A 53 52 20 52 55 00 34 48 | MULTX:JSR RU.4H|
000027E0: C0 0F 4C 44 58 20 23 B3 58 4B 31 3A 4C 44 59 20 |..LDX #.XK1:LDY |
000027F0: 23 B1 58 4B 31 3A 4A 53 52 20 45 49 4E 4D 49 54 |#.XK1:JSR EINMIT|
00002800: 3A 4A 53 52 20 4D 55 4C 54 59 3A 4A 53 52 20 52 |:JSR MULTY:JSR R|
00002810: 55 00 52 48 C3 0F 4A 53 52 20 5A 55 59 31 3A 4C |U.RH..JSR ZUY1:L|
00002820: 44 58 20 23 32 35 35 3A 53 54 58 20 39 39 30 00 |DX #255:STX 990.|
00002830: 6E 48 C8 0F 4C 44 41 20 38 34 32 3A 43 4D 50 20 |nH..LDA 842:CMP |
00002840: 23 32 3A 42 45 51 20 4C 49 4E 31 00 A2 48 D2 0F |#2:BEQ LIN1..H..|
00002850: 4A 53 52 20 43 48 4B 43 4F 4D 3A 4A 53 52 20 46 |JSR CHKCOM:JSR F|
00002860: 52 4D 4E 55 4D 3A 4A 53 52 20 4D 55 4C 54 5A 3A |RMNUM:JSR MULTZ:|
00002870: 4A 53 52 20 52 55 3A 4A 53 52 20 5A 55 5A 31 00 |JSR RU:JSR ZUZ1.|
00002880: C7 48 DC 0F 4C 49 4E 31 20 4C 44 41 20 46 4C 41 |.H..LIN1 LDA FLA|
00002890: 47 3A 42 50 4C 20 4C 49 4E 31 AA 38 3A 4A 4D 50 |G:BPL LIN1.8:JMP|
000028A0: 20 24 37 39 00 F7 48 E6 0F 3B 20 4C 49 4E 31 AA | $79..H..; LIN1.|
000028B0: 38 3A 4C 44 59 20 23 31 36 34 3A 4A 53 52 20 EA |8:LDY #164:JSR .|
000028C0: 59 3A 42 45 51 20 4C 49 4E 32 3A 4A 4D 50 20 24 |Y:BEQ LIN2:JMP $|
000028D0: 41 46 30 38 00 25 49 FA 0F 4C 49 4E 32 20 4A 53 |AF08.%I..LIN2 JS|
000028E0: 52 20 43 48 52 A1 3A 4A 53 52 20 46 52 4D 4E 55 |R CHR.:JSR FRMNU|
000028F0: 4D 3A 4A 53 52 20 4D 55 4C 54 58 3A 4A 53 52 20 |M:JSR MULTX:JSR |
00002900: 52 55 00 48 49 04 10 4C 44 58 20 23 B3 58 4B 32 |RU.HI..LDX #.XK2|
00002910: 3A 4C 44 59 20 23 B1 58 4B 32 3A 4A 53 52 20 45 |:LDY #.XK2:JSR E|
00002920: 49 4E 4D 49 54 00 66 49 0E 10 4A 53 52 20 4D 55 |INMIT.fI..JSR MU|
00002930: 4C 54 59 3A 4A 53 52 20 52 55 3A 4A 53 52 20 5A |LTY:JSR RU:JSR Z|
00002940: 55 59 32 00 82 49 18 10 4C 44 41 20 38 34 32 3A |UY2..I..LDA 842:|
00002950: 43 4D 50 20 23 32 3A 42 45 51 20 4C 49 4E 33 00 |CMP #2:BEQ LIN3.|
00002960: B6 49 22 10 4A 53 52 20 43 48 4B 43 4F 4D 3A 4A |.I".JSR CHKCOM:J|
00002970: 53 52 20 46 52 4D 4E 55 4D 3A 4A 53 52 20 4D 55 |SR FRMNUM:JSR MU|
00002980: 4C 54 5A 3A 4A 53 52 20 52 55 3A 4A 53 52 20 5A |LTZ:JSR RU:JSR Z|
00002990: 55 5A 32 00 DA 49 2C 10 4C 49 4E 33 20 4C 44 41 |UZ2..I,.LIN3 LDA|
000029A0: 20 46 4C 41 47 3A 42 45 51 20 4C 49 4E 31 38 3A | FLAG:BEQ LIN18:|
000029B0: 4A 4D 50 20 24 37 39 00 24 4A 31 10 4C 49 4E 31 |JMP $79.$J1.LIN1|
000029C0: 38 20 4C 44 41 20 38 34 32 3A 43 4D 50 20 23 32 |8 LDA 842:CMP #2|
000029D0: 3A 42 45 51 20 4C 49 4E 34 3A 4C 44 41 20 38 33 |:BEQ LIN4:LDA 83|
000029E0: 34 3A 42 4D 49 20 4B 4F 4D 4D 3A 4A 4D 50 20 4C |4:BMI KOMM:JMP L|
000029F0: 49 4E 31 31 3A 4B 4F 4D 4D 20 4A 4D 50 20 47 41 |IN11:KOMM JMP GA|
00002A00: 4B 00 38 4A 3B 10 4C 49 4E 34 20 4A 53 52 20 50 |K.8J;.LIN4 JSR P|
00002A10: 55 4E 4B 54 31 00 5A 4A 40 10 4C 44 41 20 23 B3 |UNKT1.ZJ@.LDA #.|
00002A20: 59 4B 32 3A 4C 44 59 20 23 B1 59 4B 32 3A 4A 53 |YK2:LDY #.YK2:JS|
00002A30: 52 20 52 4F 54 32 44 00 7D 4A 4A 10 4C 44 41 20 |R ROT2D.}JJ.LDA |
00002A40: 23 B3 58 4B 32 3A 4C 44 59 20 23 B1 58 4B 32 3A |#.XK2:LDY #.XK2:|
00002A50: 4A 53 52 20 52 4F 54 32 44 31 00 A0 4A 54 10 4C |JSR ROT2D1..JT.L|
00002A60: 44 41 20 23 B3 58 4B 32 3A 4C 44 59 20 23 B1 58 |DA #.XK2:LDY #.X|
00002A70: 4B 32 3A 4A 53 52 20 52 4F 54 32 44 32 00 C3 4A |K2:JSR ROT2D2..J|
00002A80: 5E 10 4C 44 41 20 23 B3 59 4B 32 3A 4C 44 59 20 |^.LDA #.YK2:LDY |
00002A90: 23 B1 59 4B 32 3A 4A 53 52 20 52 4F 54 32 44 33 |#.YK2:JSR ROT2D3|
00002AA0: 00 E3 4A 68 10 4A 53 52 20 5A 55 58 32 3A 4A 53 |..Jh.JSR ZUX2:JS|
00002AB0: 52 20 48 4F 4C 45 4B 3A 4A 53 52 20 5A 55 59 32 |R HOLEK:JSR ZUY2|
00002AC0: 00 12 4B 7C 10 53 50 8A 47 20 4C 44 41 20 23 30 |..K|.SP.G LDA #0|
00002AD0: 3A 53 54 41 20 46 4C 41 47 3A 4A 53 52 20 4B 91 |:STA FLAG:JSR K.|
00002AE0: 56 45 52 31 3A 4A 53 52 20 4B 91 56 45 52 32 00 |VER1:JSR K.VER2.|
00002AF0: 35 4B C2 10 4C 44 41 20 23 B3 58 4B 31 3A 4C 44 |5K..LDA #.XK1:LD|
00002B00: 59 20 23 B1 58 4B 31 3A 4A 53 52 20 4D 45 4D 46 |Y #.XK1:JSR MEMF|
00002B10: 41 43 00 79 4B C7 10 4C 44 41 20 23 B3 58 4B 32 |AC.yK..LDA #.XK2|
00002B20: 3A 4C 44 59 20 23 B1 58 4B 32 3A 4A 53 52 20 4D |:LDY #.XK2:JSR M|
00002B30: 45 4D 4D 49 4E 3A 4A 53 52 20 5A 55 4B 3A 4A 53 |EMMIN:JSR ZUK:JS|
00002B40: 52 20 24 42 43 33 39 3A 4C 44 41 20 24 36 36 3A |R $BC39:LDA $66:|
00002B50: 53 54 41 20 53 31 00 AA 4B C9 10 4C 44 41 20 24 |STA S1..K..LDA $|
00002B60: 36 31 3A 53 54 41 20 4E 31 3A 4A 53 52 20 48 4F |61:STA N1:JSR HO|
00002B70: 4C 45 4B 3A 4A 53 52 20 24 42 43 35 38 3A 4A 53 |LEK:JSR $BC58:JS|
00002B80: 52 20 24 42 43 39 42 00 CE 4B CA 10 4C 44 41 20 |R $BC9B..K..LDA |
00002B90: 24 36 35 3A 53 54 41 20 44 58 4C 3A 4C 44 41 20 |$65:STA DXL:LDA |
00002BA0: 24 36 34 3A 53 54 41 20 44 58 48 00 F1 4B CC 10 |$64:STA DXH..K..|
00002BB0: 4C 44 41 20 23 B3 59 4B 31 3A 4C 44 59 20 23 B1 |LDA #.YK1:LDY #.|
00002BC0: 59 4B 31 3A 4A 53 52 20 4D 45 4D 46 41 43 00 35 |YK1:JSR MEMFAC.5|
00002BD0: 4C D1 10 4C 44 41 20 23 B3 59 4B 32 3A 4C 44 59 |L..LDA #.YK2:LDY|
00002BE0: 20 23 B1 59 4B 32 3A 4A 53 52 20 4D 45 4D 4D 49 | #.YK2:JSR MEMMI|
00002BF0: 4E 3A 4A 53 52 20 5A 55 4B 3A 4A 53 52 20 24 42 |N:JSR ZUK:JSR $B|
00002C00: 43 33 39 3A 4C 44 41 20 24 36 36 3A 53 54 41 20 |C39:LDA $66:STA |
00002C10: 53 32 00 66 4C DD 10 4C 44 41 20 24 36 31 3A 53 |S2.fL..LDA $61:S|
00002C20: 54 41 20 4E 32 3A 4A 53 52 20 48 4F 4C 45 4B 3A |TA N2:JSR HOLEK:|
00002C30: 4A 53 52 20 24 42 43 35 38 3A 4A 53 52 20 24 42 |JSR $BC58:JSR $B|
00002C40: 43 39 42 00 99 4C F9 10 4C 44 41 20 24 36 35 3A |C9B..L..LDA $65:|
00002C50: 53 54 41 20 44 59 4C 3A 4C 44 41 20 24 36 34 3A |STA DYL:LDA $64:|
00002C60: 53 54 41 20 44 59 48 3A 4C 44 41 20 23 30 3A 53 |STA DYH:LDA #0:S|
00002C70: 54 41 20 38 33 37 00 C4 4C FE 10 4C 44 41 20 44 |TA 837..L..LDA D|
00002C80: 58 48 3A 43 4D 50 20 44 59 48 3A 42 43 43 20 42 |XH:CMP DYH:BCC B|
00002C90: 31 3A 42 45 51 20 42 31 AB 38 3A 42 43 53 20 42 |1:BEQ B1.8:BCS B|
00002CA0: 33 00 E7 4C 08 11 3B 20 42 31 AB 38 20 3A 4C 44 |3..L..; B1.8 :LD|
00002CB0: 41 20 44 58 4C 3A 43 4D 50 20 44 59 4C 3A 42 43 |A DXL:CMP DYL:BC|
00002CC0: 53 20 42 33 00 1D 4D 12 11 42 31 20 4C 44 41 20 |S B3..M..B1 LDA |
00002CD0: 23 31 3A 53 54 41 20 38 33 37 3A 4C 44 59 20 44 |#1:STA 837:LDY D|
00002CE0: 58 4C 3A 4C 44 41 20 44 59 4C 3A 53 54 41 20 44 |XL:LDA DYL:STA D|
00002CF0: 58 4C 3A 53 54 59 20 44 59 4C 00 41 4D 17 11 4C |XL:STY DYL.AM..L|
00002D00: 44 59 20 44 58 48 3A 4C 44 41 20 44 59 48 3A 53 |DY DXH:LDA DYH:S|
00002D10: 54 41 20 44 58 48 3A 53 54 59 20 44 59 48 00 70 |TA DXH:STY DYH.p|
00002D20: 4D 1C 11 42 33 20 4C 44 41 20 44 59 4C 3A 41 53 |M..B3 LDA DYL:AS|
00002D30: 4C 3A 53 54 41 20 49 31 4C 3A 4C 44 41 20 44 59 |L:STA I1L:LDA DY|
00002D40: 48 3A 52 4F 4C 3A 53 54 41 20 49 31 48 00 9C 4D |H:ROL:STA I1H..M|
00002D50: 26 11 4C 44 41 20 44 58 4C 3A 41 53 4C 3A 53 54 |&.LDA DXL:ASL:ST|
00002D60: 41 20 49 32 4C 3A 4C 44 41 20 44 58 48 3A 52 4F |A I2L:LDA DXH:RO|
00002D70: 4C 3A 53 54 41 20 49 32 48 00 D4 4D 30 11 53 45 |L:STA I2H..M0.SE|
00002D80: 43 3A 4C 44 41 20 49 31 4C 3A 53 42 43 20 44 58 |C:LDA I1L:SBC DX|
00002D90: 4C 3A 53 54 41 20 38 34 30 3A 4C 44 41 20 49 31 |L:STA 840:LDA I1|
00002DA0: 48 3A 53 42 43 20 44 58 48 3A 53 54 41 20 38 34 |H:SBC DXH:STA 84|
00002DB0: 31 00 F3 4D 3A 11 4C 44 58 20 23 31 3A 53 54 58 |1..M:.LDX #1:STX|
00002DC0: 20 49 4E 4C 3A 44 45 58 3A 53 54 58 20 49 4E 48 | INL:DEX:STX INH|
00002DD0: 00 31 4E 3F 11 4C 44 41 20 58 31 4C 3A 53 54 41 |.1N?.LDA X1L:STA|
00002DE0: 20 58 4C 3A 4C 44 41 20 58 31 48 3A 53 54 41 20 | XL:LDA X1H:STA |
00002DF0: 58 48 3A 4C 44 41 20 59 31 3A 53 54 41 20 59 3A |XH:LDA Y1:STA Y:|
00002E00: 4C 44 41 20 59 31 48 3A 53 54 41 20 59 48 00 61 |LDA Y1H:STA YH.a|
00002E10: 4E 44 11 42 31 34 20 4A 53 52 20 50 4F B5 3A 42 |ND.B14 JSR PO.:B|
00002E20: 43 53 20 45 4E 45 3A 4C 44 41 20 58 52 3A 42 45 |CS ENE:LDA XR:BE|
00002E30: 51 20 42 31 34 AA 31 33 3A 4A 53 52 20 49 00 7D |Q B14.13:JSR I.}|
00002E40: 4E 45 11 3B 20 42 31 34 AA 31 33 3A 4C 44 41 20 |NE.; B14.13:LDA |
00002E50: 38 34 31 3A 42 4D 49 20 42 35 00 9A 4E 46 11 4C |841:BMI B5..NF.L|
00002E60: 44 41 20 38 33 37 3A 42 45 51 20 42 36 3A 4A 53 |DA 837:BEQ B6:JS|
00002E70: 52 20 4D 41 4B 45 58 00 B3 4E 49 11 4A 4D 50 20 |R MAKEX..NI.JMP |
00002E80: 42 36 AA 33 3A 45 4E 45 20 42 43 53 20 80 45 45 |B6.3:ENE BCS .EE|
00002E90: 00 C4 4E 4E 11 42 36 20 4A 53 52 20 4D 41 4B 45 |..NN.B6 JSR MAKE|
00002EA0: 59 00 FC 4E 58 11 53 45 43 3A 4C 44 41 20 38 34 |Y..NX.SEC:LDA 84|
00002EB0: 30 3A 53 42 43 20 49 32 4C 3A 53 54 41 20 38 34 |0:SBC I2L:STA 84|
00002EC0: 30 3A 4C 44 41 20 38 34 31 3A 53 42 43 20 49 32 |0:LDA 841:SBC I2|
00002ED0: 48 3A 53 54 41 20 38 34 31 00 25 4F 62 11 42 35 |H:STA 841.%Ob.B5|
00002EE0: 20 4C 44 41 20 38 33 37 3A 42 45 51 20 42 38 3A | LDA 837:BEQ B8:|
00002EF0: 4A 53 52 20 4D 41 4B 45 59 3A 4A 4D 50 20 42 38 |JSR MAKEY:JMP B8|
00002F00: AA 33 00 36 4F 6C 11 42 38 20 4A 53 52 20 4D 41 |.3.6Ol.B8 JSR MA|
00002F10: 4B 45 58 00 6E 4F 76 11 43 4C 43 3A 4C 44 41 20 |KEX.nOv.CLC:LDA |
00002F20: 38 34 30 3A 41 44 43 20 49 31 4C 3A 53 54 41 20 |840:ADC I1L:STA |
00002F30: 38 34 30 3A 4C 44 41 20 38 34 31 3A 41 44 43 20 |840:LDA 841:ADC |
00002F40: 49 31 48 3A 53 54 41 20 38 34 31 00 8A 4F 80 11 |I1H:STA 841..O..|
00002F50: 49 4E 43 20 49 4E 4C 3A 42 4E 45 20 42 31 31 3A |INC INL:BNE B11:|
00002F60: 49 4E 43 20 49 4E 48 00 B9 4F 8A 11 42 31 31 20 |INC INH..O..B11 |
00002F70: 4C 44 41 20 44 58 48 3A 43 4D 50 20 49 4E 48 3A |LDA DXH:CMP INH:|
00002F80: 42 43 43 20 80 45 3A 42 45 51 20 42 31 33 3A 42 |BCC .E:BEQ B13:B|
00002F90: 43 53 20 42 31 34 00 D9 4F 94 11 42 31 33 20 4C |CS B14..O..B13 L|
00002FA0: 44 41 20 44 58 4C 3A 43 4D 50 20 49 4E 4C 3A 42 |DA DXL:CMP INL:B|
00002FB0: 43 53 20 42 31 34 00 22 50 9E 11 80 45 20 4C 44 |CS B14."P...E LD|
00002FC0: 41 20 58 32 4C 3A 53 54 41 20 58 4C 3A 4C 44 41 |A X2L:STA XL:LDA|
00002FD0: 20 58 32 48 3A 53 54 41 20 58 48 3A 4C 44 41 20 | X2H:STA XH:LDA |
00002FE0: 59 32 3A 53 54 41 20 59 3A 4C 44 41 20 59 32 48 |Y2:STA Y:LDA Y2H|
00002FF0: 3A 53 54 41 20 59 48 3A 4A 53 52 20 50 4F B5 00 |:STA YH:JSR PO..|
00003000: 6C 50 A8 11 80 45 45 20 4C 44 41 20 58 32 4C 3A |lP...EE LDA X2L:|
00003010: 53 54 41 20 58 31 4C 3A 4C 44 41 20 58 32 48 3A |STA X1L:LDA X2H:|
00003020: 53 54 41 20 58 31 48 3A 4C 44 41 20 59 32 3A 53 |STA X1H:LDA Y2:S|
00003030: 54 41 20 59 31 3A 4C 44 41 20 59 32 48 3A 53 54 |TA Y1:LDA Y2H:ST|
00003040: 41 20 59 31 48 3A 52 54 53 00 A5 50 C6 11 50 4F |A Y1H:RTS..P..PO|
00003050: B5 20 4C 44 58 20 23 30 3A 53 54 58 20 31 30 31 |. LDX #0:STX 101|
00003060: 37 3A 44 45 58 3A 53 54 58 20 39 39 34 3A 4C 44 |7:DEX:STX 994:LD|
00003070: 41 20 50 3A 43 4D 50 20 23 32 3A 42 4E 45 20 46 |A P:CMP #2:BNE F|
00003080: 4F 4C 00 D8 50 D0 11 49 4E 43 20 46 4C 41 47 43 |OL..P..INC FLAGC|
00003090: 3A 4C 44 41 20 46 4C 41 47 43 3A 4C 49 4E 49 45 |:LDA FLAGC:LINIE|
000030A0: 20 AF 20 23 31 3A 42 4E 45 20 46 4F 4C 3A 43 4C | . #1:BNE FOL:CL|
000030B0: 43 3A 52 54 53 00 10 51 D5 11 46 4F 4C 20 4A 53 |C:RTS..Q..FOL JS|
000030C0: 52 20 54 54 3A 4C 44 58 20 31 30 31 38 3A 42 45 |R TT:LDX 1018:BE|
000030D0: 51 20 46 31 3A 43 50 58 20 23 31 3A 42 4E 45 20 |Q F1:CPX #1:BNE |
000030E0: 46 32 3A 54 41 59 3A 42 45 51 20 46 31 00 1F 51 |F2:TAY:BEQ F1..Q|
000030F0: D7 11 50 45 20 43 4C 43 3A 52 54 53 00 63 51 D8 |..PE CLC:RTS.cQ.|
00003100: 11 46 32 20 43 50 58 20 23 32 3A 42 4E 45 20 46 |.F2 CPX #2:BNE F|
00003110: 33 3A 54 41 59 3A 42 45 51 20 46 31 3A 4C 44 58 |3:TAY:BEQ F1:LDX|
00003120: 20 50 3A 4C 44 41 20 23 32 35 30 3A 53 54 41 20 | P:LDA #250:STA |
00003130: 50 3A 53 54 58 20 39 39 37 3A 42 4E 45 20 46 31 |P:STX 997:BNE F1|
00003140: 00 A6 51 EE 11 46 33 20 43 50 58 20 23 32 35 35 |..Q..F3 CPX #255|
00003150: 3A 42 4E 45 20 46 34 3A 54 41 59 3A 42 45 51 20 |:BNE F4:TAY:BEQ |
00003160: 50 45 3A 46 35 20 4C 44 41 20 58 4C 3A 53 54 41 |PE:F5 LDA XL:STA|
00003170: 20 39 39 33 3A 4C 44 41 20 58 48 3A 53 54 41 20 | 993:LDA XH:STA |
00003180: 39 39 34 00 C5 51 F0 11 4C 44 41 20 59 3A 53 54 |994..Q..LDA Y:ST|
00003190: 41 20 39 39 35 3A 53 45 43 3A 42 43 53 20 50 45 |A 995:SEC:BCS PE|
000031A0: AA 31 00 0D 52 F3 11 46 34 20 43 50 58 20 23 31 |.1..R..F4 CPX #1|
000031B0: 30 30 3A 42 4E 45 20 46 31 3A 54 41 59 3A 42 45 |00:BNE F1:TAY:BE|
000031C0: 51 20 46 31 3A 49 4E 43 20 39 39 30 3A 4C 44 41 |Q F1:INC 990:LDA|
000031D0: 20 39 39 30 3A 43 4D 50 20 39 39 31 3A 42 4E 45 | 990:CMP 991:BNE|
000031E0: 20 50 45 3A 42 45 51 20 46 35 00 3B 52 F8 11 46 | PE:BEQ F5.;R..F|
000031F0: 31 20 4C 44 41 20 31 30 30 33 3A 43 4D 50 20 58 |1 LDA 1003:CMP X|
00003200: 48 3A 42 45 51 20 50 33 3A 42 43 53 20 50 33 AA |H:BEQ P3:BCS P3.|
00003210: 31 30 3A 42 43 43 20 4F 00 62 52 FE 11 50 33 20 |10:BCC O.bR..P3 |
00003220: 4C 44 41 20 31 30 30 32 3A 43 4D 50 20 58 4C 3A |LDA 1002:CMP XL:|
00003230: 42 43 53 20 50 33 AA 31 30 3A 42 43 43 20 4F 00 |BCS P3.10:BCC O.|
00003240: 8D 52 00 12 4C 44 41 20 31 30 30 31 3A 43 4D 50 |.R..LDA 1001:CMP|
00003250: 20 58 48 3A 42 45 51 20 50 35 3A 42 43 43 20 50 | XH:BEQ P5:BCC P|
00003260: 35 AA 31 30 3A 42 43 53 20 4F 00 B4 52 02 12 50 |5.10:BCS O..R..P|
00003270: 35 20 4C 44 41 20 31 30 30 30 3A 43 4D 50 20 58 |5 LDA 1000:CMP X|
00003280: 4C 3A 42 45 51 20 50 35 AA 31 30 3A 42 43 53 20 |L:BEQ P5.10:BCS |
00003290: 4F 00 E5 52 04 12 4C 44 41 20 59 48 3A 42 4E 45 |O..R..LDA YH:BNE|
000032A0: 20 4F 3A 4C 44 58 20 59 3A 42 45 51 20 50 36 3A | O:LDX Y:BEQ P6:|
000032B0: 44 45 58 3A 43 50 58 20 31 30 30 35 3A 42 43 53 |DEX:CPX 1005:BCS|
000032C0: 20 4F 00 FD 52 06 12 50 36 20 43 50 58 20 31 30 | O..R..P6 CPX 10|
000032D0: 30 34 3A 42 43 53 20 4F AA 35 00 15 53 1E 12 4F |04:BCS O.5..S..O|
000032E0: 20 4C 44 41 20 46 4C 41 47 31 3A 4C 53 52 3A 52 | LDA FLAG1:LSR:R|
000032F0: 54 53 00 2A 53 2F 12 4C 44 41 20 23 31 3A 53 54 |TS.*S/.LDA #1:ST|
00003300: 41 20 46 4C 41 47 31 00 5A 53 34 12 4C 44 41 20 |A FLAG1.ZS4.LDA |
00003310: 59 3A AF 20 23 24 46 38 3A 53 54 41 20 38 33 35 |Y:. #$F8:STA 835|
00003320: 3A 53 54 41 20 24 36 34 3A 4C 44 41 20 23 30 3A |:STA $64:LDA #0:|
00003330: 53 54 41 20 24 36 35 00 7E 53 3E 12 41 53 4C 20 |STA $65.~S>.ASL |
00003340: 24 36 34 3A 52 4F 4C 20 24 36 35 3A 41 53 4C 20 |$64:ROL $65:ASL |
00003350: 24 36 34 3A 52 4F 4C 20 24 36 35 00 B5 53 48 12 |$64:ROL $65..SH.|
00003360: 43 4C 43 3A 4C 44 41 20 24 36 34 3A 41 44 43 20 |CLC:LDA $64:ADC |
00003370: 38 33 35 3A 53 54 41 20 24 36 34 3A 4C 44 41 20 |835:STA $64:LDA |
00003380: 24 36 35 3A 41 44 43 20 23 30 3A 53 54 41 20 24 |$65:ADC #0:STA $|
00003390: 36 35 00 F4 53 52 12 41 53 4C 20 24 36 34 3A 52 |65..SR.ASL $64:R|
000033A0: 4F 4C 20 24 36 35 3A 41 53 4C 20 24 36 34 3A 52 |OL $65:ASL $64:R|
000033B0: 4F 4C 20 24 36 35 3A 41 53 4C 20 24 36 34 3A 52 |OL $65:ASL $64:R|
000033C0: 4F 4C 20 24 36 35 3A 4C 44 41 20 59 3A AF 20 23 |OL $65:LDA Y:. #|
000033D0: 37 00 23 54 5C 12 43 4C 43 3A 41 44 43 20 24 36 |7.#T\.CLC:ADC $6|
000033E0: 34 3A 53 54 41 20 24 36 34 3A 4C 44 41 20 24 36 |4:STA $64:LDA $6|
000033F0: 35 3A 41 44 43 20 23 30 3A 53 54 41 20 24 36 35 |5:ADC #0:STA $65|
00003400: 00 60 54 66 12 43 4C 43 3A 4C 44 41 20 58 4C 3A |.`Tf.CLC:LDA XL:|
00003410: AF 20 23 24 46 38 3A 41 44 43 20 24 36 34 3A 53 |. #$F8:ADC $64:S|
00003420: 54 41 20 24 36 34 3A 4C 44 41 20 58 48 3A 41 44 |TA $64:LDA XH:AD|
00003430: 43 20 24 36 35 3A 53 54 41 20 24 36 35 00 A0 54 |C $65:STA $65..T|
00003440: 70 12 43 4C 43 3A 4C 44 41 20 23 B3 24 45 30 30 |p.CLC:LDA #.$E00|
00003450: 30 3A 41 44 43 20 24 36 34 3A 53 54 41 20 24 36 |0:ADC $64:STA $6|
00003460: 34 3A 4C 44 41 20 23 B1 24 45 30 30 30 3A 41 44 |4:LDA #.$E000:AD|
00003470: 43 20 24 36 35 3A 53 54 41 20 24 36 35 00 C1 54 |C $65:STA $65..T|
00003480: 7A 12 4C 44 41 20 58 4C 3A AF 20 23 37 3A 45 B0 |z.LDA XL:. #7:E.|
00003490: 20 23 37 3A 54 41 58 3A 4C 44 41 20 23 31 00 E2 | #7:TAX:LDA #1..|
000034A0: 54 84 12 50 4F 35 20 44 45 58 3A 42 4D 49 20 50 |T..PO5 DEX:BMI P|
000034B0: 4F 3A 41 53 4C 20 41 3A 42 4E 45 20 50 4F 35 00 |O:ASL A:BNE PO5.|
000034C0: FE 54 89 12 50 4F 20 4C 44 58 20 31 30 31 37 3A |.T..PO LDX 1017:|
000034D0: 42 50 4C 20 50 4F 39 3A 52 54 53 00 47 55 8E 12 |BPL PO9:RTS.GU..|
000034E0: 50 4F 39 20 4C 44 58 20 38 33 39 3A 42 45 51 20 |PO9 LDX 839:BEQ |
000034F0: 50 4F 30 30 3A 4C 44 58 20 23 30 3A 50 48 41 3A |PO00:LDX #0:PHA:|
00003500: 4C 44 59 20 23 35 32 3A 53 45 49 3A 53 54 59 20 |LDY #52:SEI:STY |
00003510: 31 3A 4C 44 59 20 23 30 3A 4C 44 41 20 28 24 36 |1:LDY #0:LDA ($6|
00003520: 34 29 2C 59 00 67 55 93 12 53 54 41 20 32 3A 4C |4),Y.gU..STA 2:L|
00003530: 44 59 20 23 35 35 3A 53 54 59 20 31 3A 43 4C 49 |DY #55:STY 1:CLI|
00003540: 3A 50 4C 41 00 8A 55 98 12 50 4F 31 30 20 49 4E |:PLA..U..PO10 IN|
00003550: 58 3A 53 54 41 20 38 33 35 3A AF 20 23 33 3A 42 |X:STA 835:. #3:B|
00003560: 45 51 20 50 4F 31 31 00 AE 55 A2 12 50 4F 31 35 |EQ PO11..U..PO15|
00003570: 20 4C 44 41 20 32 3A AF 20 23 32 35 32 3A 53 54 | LDA 2:. #252:ST|
00003580: 41 20 32 3A 4C 44 41 20 38 33 36 00 CA 55 A7 12 |A 2:LDA 836..U..|
00003590: 50 4F 31 32 20 44 45 58 3A 42 45 51 20 45 51 3A |PO12 DEX:BEQ EQ:|
000035A0: 41 53 4C 3A 41 53 4C 00 03 56 A9 12 50 48 41 3A |ASL:ASL..V..PHA:|
000035B0: 4C 44 41 20 32 3A 4A 53 52 20 45 4C 3A 4A 53 52 |LDA 2:JSR EL:JSR|
000035C0: 20 45 4C 3A 53 54 41 20 32 3A 50 4C 41 3A 4A 4D | EL:STA 2:PLA:JM|
000035D0: 50 20 50 4F 31 32 3A 45 51 20 42 45 51 20 45 31 |P PO12:EQ BEQ E1|
000035E0: 00 1C 56 AC 12 50 4F 31 31 20 4C 44 41 20 38 33 |..V..PO11 LDA 83|
000035F0: 35 3A 4C 53 52 3A 4C 53 52 00 4B 56 AD 12 50 48 |5:LSR:LSR.KV..PH|
00003600: 41 3A 4C 44 41 20 32 3A 4A 53 52 20 45 52 3A 4A |A:LDA 2:JSR ER:J|
00003610: 53 52 20 45 52 3A 53 54 41 20 32 3A 50 4C 41 3A |SR ER:STA 2:PLA:|
00003620: 4A 4D 50 20 50 4F 31 30 00 89 56 AE 12 50 4F 30 |JMP PO10..V..PO0|
00003630: 30 20 50 48 41 3A 53 45 43 3A 4C 44 41 20 24 36 |0 PHA:SEC:LDA $6|
00003640: 35 3A 53 42 43 20 23 24 45 30 3A 53 54 41 20 50 |5:SBC #$E0:STA P|
00003650: 54 54 52 AA 31 3A 4C 44 41 20 24 36 34 3A 53 54 |TTR.1:LDA $64:ST|
00003660: 41 20 50 54 54 52 00 C6 56 B0 12 4C 53 52 20 50 |A PTTR..V..LSR P|
00003670: 54 54 52 AA 31 3A 52 B0 20 50 54 54 52 3A 4C 53 |TTR.1:R. PTTR:LS|
00003680: 52 20 50 54 54 52 AA 31 3A 52 B0 20 50 54 54 52 |R PTTR.1:R. PTTR|
00003690: 3A 4C 53 52 20 50 54 54 52 AA 31 3A 52 B0 20 50 |:LSR PTTR.1:R. P|
000036A0: 54 54 52 00 0C 57 B1 12 4C 44 41 20 50 54 54 52 |TTR..W..LDA PTTR|
000036B0: AA 31 3A 43 4C 43 3A 41 44 43 20 23 24 43 30 3A |.1:CLC:ADC #$C0:|
000036C0: 53 54 41 20 50 54 54 52 AA 31 3A 4C 44 59 20 23 |STA PTTR.1:LDY #|
000036D0: 30 3A 4C 44 41 20 38 33 30 3A 41 53 4C 3A 41 53 |0:LDA 830:ASL:AS|
000036E0: 4C 3A 41 53 4C 3A 41 53 4C 00 43 57 B2 12 53 54 |L:ASL:ASL.CW..ST|
000036F0: 41 20 38 33 35 3A 4C 44 41 20 28 50 54 54 52 29 |A 835:LDA (PTTR)|
00003700: 2C 59 3A AF 20 23 31 35 3A B0 41 20 38 33 35 3A |,Y:. #15:.A 835:|
00003710: 53 54 41 20 28 50 54 54 52 29 2C 59 3A 50 4C 41 |STA (PTTR),Y:PLA|
00003720: 00 76 57 B6 12 50 4F 49 4E 36 20 4C 44 59 20 23 |.vW..POIN6 LDY #|
00003730: 30 3A 4C 44 58 20 23 35 32 3A 53 45 49 3A 53 54 |0:LDX #52:SEI:ST|
00003740: 58 20 31 3A 4C 44 58 20 50 3A 42 4D 49 20 50 4F |X 1:LDX P:BMI PO|
00003750: 49 4E 37 00 8F 57 C0 12 B0 41 20 28 24 36 34 29 |IN7..W...A ($64)|
00003760: 2C 59 3A 42 4E 45 20 50 4F 49 4E 38 00 AB 57 CA |,Y:BNE POIN8..W.|
00003770: 12 50 4F 49 4E 37 20 45 B0 20 23 24 46 46 3A AF |.POIN7 E. #$FF:.|
00003780: 20 28 24 36 34 29 2C 59 00 F3 57 D4 12 50 4F 49 | ($64),Y..W..POI|
00003790: 4E 38 20 53 54 41 20 28 24 36 34 29 2C 59 3A 4C |N8 STA ($64),Y:L|
000037A0: 44 58 20 23 35 35 3A 53 54 58 20 31 3A 4C 44 58 |DX #55:STX 1:LDX|
000037B0: 20 39 39 37 3A 42 45 51 20 50 50 3A 53 54 58 20 | 997:BEQ PP:STX |
000037C0: 50 3A 50 50 20 43 4C 49 3A 43 4C 43 3A 52 54 53 |P:PP CLI:CLC:RTS|
000037D0: 00 25 58 DE 12 45 31 20 54 41 58 3A 4C 44 41 20 |.%X..E1 TAX:LDA |
000037E0: 32 3A 4C 44 59 20 23 30 3A 53 54 41 20 28 24 36 |2:LDY #0:STA ($6|
000037F0: 34 29 2C 59 3A 54 58 41 3A 4A 4D 50 20 50 4F 49 |4),Y:TXA:JMP POI|
00003800: 4E 36 00 4A 58 E8 12 45 4C 20 43 4C 43 3A 52 4F |N6.JX..EL CLC:RO|
00003810: 4C 3A 42 43 43 20 45 45 32 3A B0 41 20 23 31 3A |L:BCC EE2:.A #1:|
00003820: 45 45 32 20 52 54 53 00 70 58 F2 12 45 52 20 43 |EE2 RTS.pX..ER C|
00003830: 4C 43 3A 52 B0 3A 42 43 43 20 45 45 33 3A B0 41 |LC:R.:BCC EE3:.A|
00003840: 20 23 31 32 38 3A 45 45 33 20 52 54 53 00 9A 58 | #128:EE3 RTS..X|
00003850: 24 13 4B 91 56 45 52 31 20 4C 44 41 20 23 B3 58 |$.K.VER1 LDA #.X|
00003860: 4B 31 3A 4C 44 59 20 23 B1 58 4B 31 3A 4A 53 52 |K1:LDY #.XK1:JSR|
00003870: 20 4D 45 4D 46 41 43 00 C8 58 2E 13 4A 53 52 20 | MEMFAC..X..JSR |
00003880: 24 42 43 39 42 3A 4C 44 41 20 24 36 34 3A 53 54 |$BC9B:LDA $64:ST|
00003890: 41 20 58 31 48 3A 4C 44 41 20 24 36 35 3A 53 54 |A X1H:LDA $65:ST|
000038A0: 41 20 58 31 4C 00 F5 58 38 13 4C 44 41 20 23 B3 |A X1L..X8.LDA #.|
000038B0: 59 4B 31 3A 4C 44 59 20 23 B1 59 4B 31 3A 4A 53 |YK1:LDY #.YK1:JS|
000038C0: 52 20 4D 45 4D 46 41 43 3A 4A 53 52 20 24 42 43 |R MEMFAC:JSR $BC|
000038D0: 39 42 00 1C 59 42 13 4C 44 41 20 24 36 35 3A 53 |9B..YB.LDA $65:S|
000038E0: 54 41 20 59 31 3A 4C 44 41 20 24 36 34 3A 53 54 |TA Y1:LDA $64:ST|
000038F0: 41 20 59 31 48 3A 52 54 53 00 46 59 4C 13 4B 91 |A Y1H:RTS.FYL.K.|
00003900: 56 45 52 32 20 4C 44 41 20 23 B3 58 4B 32 3A 4C |VER2 LDA #.XK2:L|
00003910: 44 59 20 23 B1 58 4B 32 3A 4A 53 52 20 4D 45 4D |DY #.XK2:JSR MEM|
00003920: 46 41 43 00 74 59 56 13 4A 53 52 20 24 42 43 39 |FAC.tYV.JSR $BC9|
00003930: 42 3A 4C 44 41 20 24 36 34 3A 53 54 41 20 58 32 |B:LDA $64:STA X2|
00003940: 48 3A 4C 44 41 20 24 36 35 3A 53 54 41 20 58 32 |H:LDA $65:STA X2|
00003950: 4C 00 A1 59 60 13 4C 44 41 20 23 B3 59 4B 32 3A |L..Y`.LDA #.YK2:|
00003960: 4C 44 59 20 23 B1 59 4B 32 3A 4A 53 52 20 4D 45 |LDY #.YK2:JSR ME|
00003970: 4D 46 41 43 3A 4A 53 52 20 24 42 43 39 42 00 C8 |MFAC:JSR $BC9B..|
00003980: 59 6A 13 4C 44 41 20 24 36 35 3A 53 54 41 20 59 |Yj.LDA $65:STA Y|
00003990: 32 3A 4C 44 41 20 24 36 34 3A 53 54 41 20 59 32 |2:LDA $64:STA Y2|
000039A0: 48 3A 52 54 53 00 12 5A 88 13 47 41 4B 20 4A 53 |H:RTS..Z..GAK JS|
000039B0: 52 20 57 45 43 3A 4C 44 41 20 23 30 3A 53 54 41 |R WEC:LDA #0:STA|
000039C0: 20 46 4C 41 47 43 3A 4C 44 41 20 23 B3 42 45 54 | FLAGC:LDA #.BET|
000039D0: 41 3A 4C 44 59 20 23 B1 42 45 54 41 3A 4A 53 52 |A:LDY #.BETA:JSR|
000039E0: 20 52 4F 55 54 31 3A 4A 53 52 20 5A 55 58 31 00 | ROUT1:JSR ZUX1.|
000039F0: 41 5A 8D 13 4C 44 41 20 23 B3 BE 42 45 53 54 3A |AZ..LDA #..BEST:|
00003A00: 4C 44 59 20 23 B1 BE 42 45 53 54 3A 4A 53 52 20 |LDY #..BEST:JSR |
00003A10: 52 4F 55 54 31 3A 4A 53 52 20 5A 55 58 32 00 6C |ROUT1:JSR ZUX2.l|
00003A20: 5A 92 13 4C 44 41 20 23 B3 BE 42 45 3A 4C 44 59 |Z..LDA #..BE:LDY|
00003A30: 20 23 B1 BE 42 45 3A 4A 53 52 20 52 4F 55 54 32 | #..BE:JSR ROUT2|
00003A40: 3A 4A 53 52 20 5A 55 59 31 00 A4 5A 97 13 4C 44 |:JSR ZUY1..Z..LD|
00003A50: 41 20 23 B3 BE 41 4C 53 54 3A 4C 44 59 20 23 B1 |A #..ALST:LDY #.|
00003A60: BE 41 4C 53 54 3A 4A 53 52 20 52 4F 55 54 32 3A |.ALST:JSR ROUT2:|
00003A70: 4A 53 52 20 5A 55 59 32 3A 4A 53 52 20 53 50 8A |JSR ZUY2:JSR SP.|
00003A80: 47 00 CF 5A 9C 13 4C 44 41 20 23 B3 C0 42 45 3A |G..Z..LDA #..BE:|
00003A90: 4C 44 59 20 23 B1 C0 42 45 3A 4A 53 52 20 52 4F |LDY #..BE:JSR RO|
00003AA0: 55 54 33 3A 4A 53 52 20 5A 55 59 31 00 07 5B A1 |UT3:JSR ZUY1..[.|
00003AB0: 13 4C 44 41 20 23 B3 BE 47 41 53 54 3A 4C 44 59 |.LDA #..GAST:LDY|
00003AC0: 20 23 B1 BE 47 41 53 54 3A 4A 53 52 20 52 4F 55 | #..GAST:JSR ROU|
00003AD0: 54 33 3A 4A 53 52 20 5A 55 59 32 3A 4A 53 52 20 |T3:JSR ZUY2:JSR |
00003AE0: 53 50 8A 47 00 43 5B A6 13 4C 44 41 20 23 30 3A |SP.G.C[..LDA #0:|
00003AF0: 53 54 41 20 46 4C 41 47 43 3A 4C 44 41 20 23 B3 |STA FLAGC:LDA #.|
00003B00: BE 42 45 3A 4C 44 59 20 23 B1 BE 42 45 3A 4A 53 |.BE:LDY #..BE:JS|
00003B10: 52 20 52 4F 55 54 34 3A 4A 53 52 20 5A 55 58 31 |R ROUT4:JSR ZUX1|
00003B20: 00 83 5B AB 13 4C 44 41 20 23 B3 BE 41 4C 53 54 |..[..LDA #..ALST|
00003B30: 3A 4C 44 59 20 23 B1 BE 41 4C 53 54 3A 4A 53 52 |:LDY #..ALST:JSR|
00003B40: 20 52 4F 55 54 34 3A 4A 53 52 20 5A 55 58 32 3A | ROUT4:JSR ZUX2:|
00003B50: 4A 53 52 20 53 50 8A 47 3A 4A 4D 50 20 57 45 43 |JSR SP.G:JMP WEC|
00003B60: 00 CB 5B D8 13 52 4F 55 54 31 20 4A 53 52 20 4D |..[..ROUT1 JSR M|
00003B70: 45 4D 46 41 43 3A 4C 44 41 20 23 B3 58 4B 30 3A |EMFAC:LDA #.XK0:|
00003B80: 4C 44 59 20 23 B1 58 4B 30 3A 4A 53 52 20 4D 45 |LDY #.XK0:JSR ME|
00003B90: 4D 4D 49 4E 3A 4A 53 52 20 24 42 38 34 39 3A 4A |MMIN:JSR $B849:J|
00003BA0: 4D 50 20 24 42 43 43 43 00 10 5C DC 13 52 4F 55 |MP $BCCC..\..ROU|
00003BB0: 54 32 20 4A 53 52 20 4D 45 4D 46 41 43 3A 4C 44 |T2 JSR MEMFAC:LD|
00003BC0: 41 20 23 B3 43 3A 4C 44 59 20 23 B1 43 3A 4A 53 |A #.C:LDY #.C:JS|
00003BD0: 52 20 4D 45 4D 50 4C 55 53 3A 4C 44 41 20 23 B3 |R MEMPLUS:LDA #.|
00003BE0: 59 4B 30 3A 4C 44 59 20 23 B1 59 4B 30 00 34 5C |YK0:LDY #.YK0.4\|
00003BF0: DE 13 4A 53 52 20 4D 45 4D 50 4C 55 53 3A 4A 53 |..JSR MEMPLUS:JS|
00003C00: 52 20 24 42 38 34 39 3A 4A 4D 50 20 24 42 43 43 |R $B849:JMP $BCC|
00003C10: 43 00 7C 5C E2 13 52 4F 55 54 33 20 4A 53 52 20 |C.|\..ROUT3 JSR |
00003C20: 4D 45 4D 46 41 43 3A 4C 44 41 20 23 B3 59 4B 30 |MEMFAC:LDA #.YK0|
00003C30: 3A 4C 44 59 20 23 B1 59 4B 30 3A 4A 53 52 20 4D |:LDY #.YK0:JSR M|
00003C40: 45 4D 4D 49 4E 3A 4A 53 52 20 24 42 38 34 39 3A |EMMIN:JSR $B849:|
00003C50: 4A 4D 50 20 24 42 43 43 43 00 C1 5C E6 13 52 4F |JMP $BCCC..\..RO|
00003C60: 55 54 34 20 4A 53 52 20 4D 45 4D 46 41 43 3A 4C |UT4 JSR MEMFAC:L|
00003C70: 44 41 20 23 B3 43 3A 4C 44 59 20 23 B1 43 3A 4A |DA #.C:LDY #.C:J|
00003C80: 53 52 20 4D 45 4D 50 4C 55 53 3A 4C 44 41 20 23 |SR MEMPLUS:LDA #|
00003C90: B3 58 4B 30 3A 4C 44 59 20 23 B1 58 4B 30 00 E5 |.XK0:LDY #.XK0..|
00003CA0: 5C E8 13 4A 53 52 20 4D 45 4D 50 4C 55 53 3A 4A |\..JSR MEMPLUS:J|
00003CB0: 53 52 20 24 42 38 34 39 3A 4A 4D 50 20 24 42 43 |SR $B849:JMP $BC|
00003CC0: 43 43 00 2C 5D EC 13 57 45 43 20 4C 44 41 20 23 |CC.,]..WEC LDA #|
00003CD0: B3 58 4B 31 3A 4C 44 59 20 23 B1 58 4B 31 3A 4A |.XK1:LDY #.XK1:J|
00003CE0: 53 52 20 4D 45 4D 46 41 43 3A 4C 44 41 20 23 B3 |SR MEMFAC:LDA #.|
00003CF0: 42 45 54 41 3A 4C 44 59 20 23 B1 42 45 54 41 3A |BETA:LDY #.BETA:|
00003D00: 4A 53 52 20 24 42 41 38 43 00 72 5D EE 13 4C 44 |JSR $BA8C.r]..LD|
00003D10: 58 20 23 B3 42 45 54 41 3A 4C 44 59 20 23 B1 42 |X #.BETA:LDY #.B|
00003D20: 45 54 41 3A 4A 53 52 20 46 4D 3A 4A 53 52 20 24 |ETA:JSR FM:JSR $|
00003D30: 42 42 46 43 3A 4C 44 58 20 23 B3 58 4B 31 3A 4C |BBFC:LDX #.XK1:L|
00003D40: 44 59 20 23 B1 58 4B 31 3A 4A 53 52 20 46 4D 00 |DY #.XK1:JSR FM.|
00003D50: B3 5D F0 13 4C 44 41 20 23 B3 59 4B 31 3A 4C 44 |.]..LDA #.YK1:LD|
00003D60: 59 20 23 B1 59 4B 31 3A 4A 53 52 20 4D 45 4D 46 |Y #.YK1:JSR MEMF|
00003D70: 41 43 3A 4C 44 41 20 23 B3 BE 42 45 3A 4C 44 59 |AC:LDA #..BE:LDY|
00003D80: 20 23 B1 BE 42 45 3A 4A 53 52 20 24 42 41 38 43 | #..BE:JSR $BA8C|
00003D90: 00 F7 5D F2 13 4C 44 58 20 23 B3 BE 42 45 3A 4C |..]..LDX #..BE:L|
00003DA0: 44 59 20 23 B1 BE 42 45 3A 4A 53 52 20 46 4D 3A |DY #..BE:JSR FM:|
00003DB0: 4A 53 52 20 24 42 42 46 43 3A 4C 44 58 20 23 B3 |JSR $BBFC:LDX #.|
00003DC0: 59 4B 31 3A 4C 44 59 20 23 B1 59 4B 31 3A 4A 53 |YK1:LDY #.YK1:JS|
00003DD0: 52 20 46 4D 00 38 5E F4 13 4C 44 41 20 23 B3 5A |R FM.8^..LDA #.Z|
00003DE0: 4B 31 3A 4C 44 59 20 23 B1 5A 4B 31 3A 4A 53 52 |K1:LDY #.ZK1:JSR|
00003DF0: 20 4D 45 4D 46 41 43 3A 4C 44 41 20 23 B3 C0 42 | MEMFAC:LDA #..B|
00003E00: 45 3A 4C 44 59 20 23 B1 C0 42 45 3A 4A 53 52 20 |E:LDY #..BE:JSR |
00003E10: 24 42 41 38 43 00 7C 5E F6 13 4C 44 58 20 23 B3 |$BA8C.|^..LDX #.|
00003E20: C0 42 45 3A 4C 44 59 20 23 B1 C0 42 45 3A 4A 53 |.BE:LDY #..BE:JS|
00003E30: 52 20 46 4D 3A 4A 53 52 20 24 42 42 46 43 3A 4C |R FM:JSR $BBFC:L|
00003E40: 44 58 20 23 B3 5A 4B 31 3A 4C 44 59 20 23 B1 5A |DX #.ZK1:LDY #.Z|
00003E50: 4B 31 3A 4A 53 52 20 46 4D 00 C1 5E F8 13 4C 44 |K1:JSR FM..^..LD|
00003E60: 41 20 23 B3 58 4B 32 3A 4C 44 59 20 23 B1 58 4B |A #.XK2:LDY #.XK|
00003E70: 32 3A 4A 53 52 20 4D 45 4D 46 41 43 3A 4C 44 41 |2:JSR MEMFAC:LDA|
00003E80: 20 23 B3 BE 42 45 53 54 3A 4C 44 59 20 23 B1 BE | #..BEST:LDY #..|
00003E90: 42 45 53 54 3A 4A 53 52 20 24 42 41 38 43 00 02 |BEST:JSR $BA8C..|
00003EA0: 5F FA 13 4C 44 58 20 23 B3 BE 42 45 53 54 3A 4C |_..LDX #..BEST:L|
00003EB0: 44 59 20 23 B1 BE 42 45 53 54 3A 4A 53 52 20 46 |DY #..BEST:JSR F|
00003EC0: 4D 3A 4A 53 52 20 24 42 42 46 43 3A 4C 44 58 20 |M:JSR $BBFC:LDX |
00003ED0: 23 B3 58 4B 32 3A 4C 44 59 20 23 B1 58 4B 32 00 |#.XK2:LDY #.XK2.|
00003EE0: 0D 5F FB 13 4A 53 52 20 46 4D 00 52 5F FC 13 4C |._..JSR FM.R_..L|
00003EF0: 44 41 20 23 B3 59 4B 32 3A 4C 44 59 20 23 B1 59 |DA #.YK2:LDY #.Y|
00003F00: 4B 32 3A 4A 53 52 20 4D 45 4D 46 41 43 3A 4C 44 |K2:JSR MEMFAC:LD|
00003F10: 41 20 23 B3 BE 41 4C 53 54 3A 4C 44 59 20 23 B1 |A #..ALST:LDY #.|
00003F20: BE 41 4C 53 54 3A 4A 53 52 20 24 42 41 38 43 00 |.ALST:JSR $BA8C.|
00003F30: 93 5F FE 13 4C 44 58 20 23 B3 BE 41 4C 53 54 3A |._..LDX #..ALST:|
00003F40: 4C 44 59 20 23 B1 BE 41 4C 53 54 3A 4A 53 52 20 |LDY #..ALST:JSR |
00003F50: 46 4D 3A 4A 53 52 20 24 42 42 46 43 3A 4C 44 58 |FM:JSR $BBFC:LDX|
00003F60: 20 23 B3 59 4B 32 3A 4C 44 59 20 23 B1 59 4B 32 | #.YK2:LDY #.YK2|
00003F70: 00 9E 5F FF 13 4A 53 52 20 46 4D 00 E3 5F 00 14 |.._..JSR FM.._..|
00003F80: 4C 44 41 20 23 B3 5A 4B 32 3A 4C 44 59 20 23 B1 |LDA #.ZK2:LDY #.|
00003F90: 5A 4B 32 3A 4A 53 52 20 4D 45 4D 46 41 43 3A 4C |ZK2:JSR MEMFAC:L|
00003FA0: 44 41 20 23 B3 BE 47 41 53 54 3A 4C 44 59 20 23 |DA #..GAST:LDY #|
00003FB0: B1 BE 47 41 53 54 3A 4A 53 52 20 24 42 41 38 43 |..GAST:JSR $BA8C|
00003FC0: 00 24 60 02 14 4C 44 58 20 23 B3 BE 47 41 53 54 |.$`..LDX #..GAST|
00003FD0: 3A 4C 44 59 20 23 B1 BE 47 41 53 54 3A 4A 53 52 |:LDY #..GAST:JSR|
00003FE0: 20 46 4D 3A 4A 53 52 20 24 42 42 46 43 3A 4C 44 | FM:JSR $BBFC:LD|
00003FF0: 58 20 23 B3 5A 4B 32 3A 4C 44 59 20 23 B1 5A 4B |X #.ZK2:LDY #.ZK|
00004000: 32 00 2F 60 03 14 4A 4D 50 20 46 4D 00 5A 60 0C |2./`..JMP FM.Z`.|
00004010: 14 50 55 4E 4B 54 33 44 20 4C 44 41 20 23 B3 59 |.PUNKT3D LDA #.Y|
00004020: 4B 31 3A 4C 44 59 20 23 B1 59 4B 31 3A 4A 53 52 |K1:LDY #.YK1:JSR|
00004030: 20 52 4F 54 33 44 31 00 7D 60 0E 14 4C 44 41 20 | ROT3D1.}`..LDA |
00004040: 23 B3 58 4B 31 3A 4C 44 59 20 23 B1 58 4B 31 3A |#.XK1:LDY #.XK1:|
00004050: 4A 53 52 20 52 4F 54 33 44 32 00 A0 60 10 14 4C |JSR ROT3D2..`..L|
00004060: 44 41 20 23 B3 58 4B 31 3A 4C 44 59 20 23 B1 58 |DA #.XK1:LDY #.X|
00004070: 4B 31 3A 4A 53 52 20 52 4F 54 33 44 33 00 C3 60 |K1:JSR ROT3D3..`|
00004080: 12 14 4C 44 41 20 23 B3 59 4B 31 3A 4C 44 59 20 |..LDA #.YK1:LDY |
00004090: 23 B1 59 4B 31 3A 4A 53 52 20 52 4F 54 33 44 34 |#.YK1:JSR ROT3D4|
000040A0: 00 E6 60 14 14 4C 44 41 20 23 B3 5A 4B 31 3A 4C |..`..LDA #.ZK1:L|
000040B0: 44 59 20 23 B1 5A 4B 31 3A 4A 53 52 20 52 4F 54 |DY #.ZK1:JSR ROT|
000040C0: 33 44 35 00 26 61 1E 14 4A 53 52 20 24 42 38 34 |3D5.&a..JSR $B84|
000040D0: 39 3A 4A 53 52 20 24 42 43 43 43 3A 4A 53 52 20 |9:JSR $BCCC:JSR |
000040E0: 5A 55 59 31 3A 4C 44 41 20 23 B3 58 31 4C 3A 4C |ZUY1:LDA #.X1L:L|
000040F0: 44 59 20 23 B1 58 31 4C 3A 4A 53 52 20 4D 45 4D |DY #.X1L:JSR MEM|
00004100: 46 41 43 00 47 61 28 14 4A 53 52 20 24 42 38 34 |FAC.Ga(.JSR $B84|
00004110: 39 3A 4A 53 52 20 24 42 43 43 43 3A 4A 4D 50 20 |9:JSR $BCCC:JMP |
00004120: 5A 55 58 31 00 5D 61 B4 14 4C 49 4E 31 31 20 4A |ZUX1.]a..LIN11 J|
00004130: 53 52 20 50 55 4E 4B 54 33 44 00 80 61 B7 14 4C |SR PUNKT3D..a..L|
00004140: 44 41 20 23 B3 59 4B 32 3A 4C 44 59 20 23 B1 59 |DA #.YK2:LDY #.Y|
00004150: 4B 32 3A 4A 53 52 20 52 4F 54 33 44 31 00 A3 61 |K2:JSR ROT3D1..a|
00004160: BE 14 4C 44 41 20 23 B3 58 4B 32 3A 4C 44 59 20 |..LDA #.XK2:LDY |
00004170: 23 B1 58 4B 32 3A 4A 53 52 20 52 4F 54 33 44 32 |#.XK2:JSR ROT3D2|
00004180: 00 C6 61 C8 14 4C 44 41 20 23 B3 58 4B 32 3A 4C |..a..LDA #.XK2:L|
00004190: 44 59 20 23 B1 58 4B 32 3A 4A 53 52 20 52 4F 54 |DY #.XK2:JSR ROT|
000041A0: 33 44 33 00 E9 61 D2 14 4C 44 41 20 23 B3 59 4B |3D3..a..LDA #.YK|
000041B0: 32 3A 4C 44 59 20 23 B1 59 4B 32 3A 4A 53 52 20 |2:LDY #.YK2:JSR |
000041C0: 52 4F 54 33 44 34 00 0C 62 DC 14 4C 44 41 20 23 |ROT3D4..b..LDA #|
000041D0: B3 5A 4B 32 3A 4C 44 59 20 23 B1 5A 4B 32 3A 4A |.ZK2:LDY #.ZK2:J|
000041E0: 53 52 20 52 4F 54 33 44 35 00 4C 62 E6 14 4A 53 |SR ROT3D5.Lb..JS|
000041F0: 52 20 24 42 38 34 39 3A 4A 53 52 20 24 42 43 43 |R $B849:JSR $BCC|
00004200: 43 3A 4A 53 52 20 5A 55 59 32 3A 4C 44 41 20 23 |C:JSR ZUY2:LDA #|
00004210: B3 58 31 4C 3A 4C 44 59 20 23 B1 58 31 4C 3A 4A |.X1L:LDY #.X1L:J|
00004220: 53 52 20 4D 45 4D 46 41 43 00 6D 62 EB 14 4A 53 |SR MEMFAC.mb..JS|
00004230: 52 20 24 42 38 34 39 3A 4A 53 52 20 24 42 43 43 |R $B849:JSR $BCC|
00004240: 43 3A 4A 53 52 20 5A 55 58 32 00 7A 62 F0 14 4A |C:JSR ZUX2.zb..J|
00004250: 4D 50 20 53 50 8A 47 00 C1 62 18 15 49 20 4C 44 |MP SP.G..b..I LD|
00004260: 41 20 59 3A 43 4D 50 20 23 32 30 30 3A 42 43 53 |A Y:CMP #200:BCS|
00004270: 20 52 4F 54 33 44 31 AB 31 3A 53 54 41 20 4B AB | ROT3D1.1:STA K.|
00004280: 31 3A 4C 44 41 20 50 3A 53 54 41 20 4B AB 32 3A |1:LDA P:STA K.2:|
00004290: 4C 44 41 20 23 32 35 30 3A 53 54 41 20 50 00 E8 |LDA #250:STA P..|
000042A0: 62 22 15 3B 20 49 AA 32 31 3A 49 4E 43 20 59 3A |b".; I.21:INC Y:|
000042B0: 4C 44 41 20 59 3A 43 4D 50 20 58 52 3A 42 43 53 |LDA Y:CMP XR:BCS|
000042C0: 20 49 AA 33 38 00 FC 62 2C 15 4A 53 52 20 46 31 | I.38..b,.JSR F1|
000042D0: 3A 4A 4D 50 20 49 AA 32 31 00 27 63 36 15 3B 20 |:JMP I.21.'c6.; |
000042E0: 49 AA 33 38 3A 4C 44 41 20 4B AB 31 3A 53 54 41 |I.38:LDA K.1:STA|
000042F0: 20 59 3A 4C 44 41 20 4B AB 32 3A 53 54 41 20 50 | Y:LDA K.2:STA P|
00004300: 3A 52 54 53 00 6C 63 70 17 52 4F 54 33 44 31 20 |:RTS.lcp.ROT3D1 |
00004310: 4A 53 52 20 4D 45 4D 46 41 43 3A 4C 44 41 20 23 |JSR MEMFAC:LDA #|
00004320: B3 BE 42 45 53 54 3A 4C 44 59 20 23 B1 BE 42 45 |..BEST:LDY #..BE|
00004330: 53 54 3A 4A 53 52 20 4D 45 4D 4D 55 4C 54 3A 4A |ST:JSR MEMMULT:J|
00004340: 4D 50 20 5A 55 53 A4 52 41 00 A6 63 7A 17 52 4F |MP ZUS.RA..cz.RO|
00004350: 54 33 44 32 20 4A 53 52 20 4D 45 4D 46 41 43 3A |T3D2 JSR MEMFAC:|
00004360: 4C 44 41 20 23 B3 BE 41 4C 53 54 3A 4C 44 59 20 |LDA #..ALST:LDY |
00004370: 23 B1 BE 41 4C 53 54 3A 4A 53 52 20 4D 45 4D 4D |#..ALST:JSR MEMM|
00004380: 55 4C 54 00 C7 63 84 17 4C 44 41 20 23 B3 53 4F |ULT..c..LDA #.SO|
00004390: 3A 4C 44 59 20 23 B1 53 4F 3A 4A 53 52 20 4D 45 |:LDY #.SO:JSR ME|
000043A0: 4D 4D 49 4E 00 EB 63 8E 17 4C 44 41 20 23 B3 58 |MMIN..c..LDA #.X|
000043B0: 4B 30 3A 4C 44 59 20 23 B1 58 4B 30 3A 4A 53 52 |K0:LDY #.XK0:JSR|
000043C0: 20 4D 45 4D 50 4C 55 53 00 0E 64 98 17 4C 44 58 | MEMPLUS..d..LDX|
000043D0: 20 23 B3 58 31 4C 3A 4C 44 59 20 23 B1 58 31 4C | #.X1L:LDY #.X1L|
000043E0: 3A 4A 4D 50 20 46 41 43 4D 45 4D 00 48 64 A2 17 |:JMP FACMEM.Hd..|
000043F0: 52 4F 54 33 44 33 20 4A 53 52 20 4D 45 4D 46 41 |ROT3D3 JSR MEMFA|
00004400: 43 3A 4C 44 41 20 23 B3 BE 41 4C 53 54 3A 4C 44 |C:LDA #..ALST:LD|
00004410: 59 20 23 B1 BE 41 4C 53 54 3A 4A 53 52 20 4D 45 |Y #..ALST:JSR ME|
00004420: 4D 4D 55 4C 54 00 74 64 AC 17 4C 44 41 20 23 B3 |MMULT.td..LDA #.|
00004430: C0 41 4C 3A 4C 44 59 20 23 B1 C0 41 4C 3A 4A 53 |.AL:LDY #..AL:JS|
00004440: 52 20 4D 45 4D 4D 55 4C 54 3A 4A 4D 50 20 5A 55 |R MEMMULT:JMP ZU|
00004450: 4B 00 AE 64 B6 17 52 4F 54 33 44 34 20 4A 53 52 |K..d..ROT3D4 JSR|
00004460: 20 4D 45 4D 46 41 43 3A 4C 44 41 20 23 B3 BE 42 | MEMFAC:LDA #..B|
00004470: 45 53 54 3A 4C 44 59 20 23 B1 BE 42 45 53 54 3A |EST:LDY #..BEST:|
00004480: 4A 53 52 20 4D 45 4D 4D 55 4C 54 00 D2 64 C0 17 |JSR MEMMULT..d..|
00004490: 4C 44 41 20 23 B3 C0 42 45 3A 4C 44 59 20 23 B1 |LDA #..BE:LDY #.|
000044A0: C0 42 45 3A 4A 53 52 20 4D 45 4D 4D 55 4C 54 00 |.BE:JSR MEMMULT.|
000044B0: FA 64 CA 17 4C 44 41 20 23 B3 4B 3A 4C 44 59 20 |.d..LDA #.K:LDY |
000044C0: 23 B1 4B 3A 4A 53 52 20 4D 45 4D 50 4C 55 53 3A |#.K:JSR MEMPLUS:|
000044D0: 4A 4D 50 20 5A 55 4B 00 34 65 D4 17 52 4F 54 33 |JMP ZUK.4e..ROT3|
000044E0: 44 35 20 4A 53 52 20 4D 45 4D 46 41 43 3A 4C 44 |D5 JSR MEMFAC:LD|
000044F0: 41 20 23 B3 BE 47 41 53 54 3A 4C 44 59 20 23 B1 |A #..GAST:LDY #.|
00004500: BE 47 41 53 54 3A 4A 53 52 20 4D 45 4D 4D 55 4C |.GAST:JSR MEMMUL|
00004510: 54 00 58 65 DE 17 4C 44 41 20 23 B3 BE 42 45 3A |T.Xe..LDA #..BE:|
00004520: 4C 44 59 20 23 B1 BE 42 45 3A 4A 53 52 20 4D 45 |LDY #..BE:JSR ME|
00004530: 4D 4D 55 4C 54 00 77 65 E8 17 4C 44 41 20 23 B3 |MMULT.we..LDA #.|
00004540: 4B 3A 4C 44 59 20 23 B1 4B 3A 4A 53 52 20 4D 45 |K:LDY #.K:JSR ME|
00004550: 4D 4D 49 4E 00 9B 65 F2 17 4C 44 41 20 23 B3 59 |MMIN..e..LDA #.Y|
00004560: 4B 30 3A 4C 44 59 20 23 B1 59 4B 30 3A 4A 4D 50 |K0:LDY #.YK0:JMP|
00004570: 20 4D 45 4D 50 4C 55 53 00 AC 65 9C 18 3B AC AC | MEMPLUS..e..;..|
00004580: AC 54 45 2E 53 54 AC AC AC 00 DE 65 A6 18 51 33 |.TE.ST.....e..Q3|
00004590: 32 20 4C 44 41 20 23 30 3A 53 54 41 20 39 39 39 |2 LDA #0:STA 999|
000045A0: 3A 53 54 41 20 59 48 3A 4A 53 52 20 24 42 37 45 |:STA YH:JSR $B7E|
000045B0: 42 3A 4A 53 52 20 50 52 4F 42 45 00 06 66 B0 18 |B:JSR PROBE..f..|
000045C0: 53 54 58 20 59 3A 4C 44 41 20 24 31 34 3A 53 54 |STX Y:LDA $14:ST|
000045D0: 41 20 58 4C 3A 4C 44 41 20 24 31 35 3A 53 54 41 |A XL:LDA $15:STA|
000045E0: 20 58 48 00 4A 66 BA 18 54 54 20 4C 44 41 20 23 | XH.Jf..TT LDA #|
000045F0: 32 35 30 3A 53 54 41 20 31 30 31 37 3A 4A 53 52 |250:STA 1017:JSR|
00004600: 20 4F AA 31 30 3A 53 54 41 20 31 30 31 35 3A 4C | O.10:STA 1015:L|
00004610: 44 58 20 23 35 32 3A 53 45 49 3A 53 54 58 20 31 |DX #52:SEI:STX 1|
00004620: 3A 4C 44 59 20 23 30 00 74 66 BF 18 4C 44 41 20 |:LDY #0.tf..LDA |
00004630: 28 24 36 34 29 2C 59 3A 4C 44 58 20 23 35 35 3A |($64),Y:LDX #55:|
00004640: 53 54 58 20 31 3A 43 4C 49 3A 53 54 41 20 39 39 |STX 1:CLI:STA 99|
00004650: 38 00 86 66 C1 18 AF 20 31 30 31 35 3A 42 4E 45 |8..f... 1015:BNE|
00004660: 20 54 45 00 A9 66 C2 18 4C 44 58 20 38 33 39 3A | TE..f..LDX 839:|
00004670: 42 45 51 20 54 45 3A 4C 44 58 20 23 30 3A 4C 44 |BEQ TE:LDX #0:LD|
00004680: 41 20 31 30 31 35 00 C9 66 C4 18 54 31 20 49 4E |A 1015..f..T1 IN|
00004690: 58 3A 53 54 41 20 31 30 31 35 3A AF 20 23 33 3A |X:STA 1015:. #3:|
000046A0: 42 45 51 20 54 32 00 D7 66 CE 18 54 33 20 4C 44 |BEQ T2..f..T3 LD|
000046B0: 41 20 23 33 00 F8 66 D8 18 54 34 20 44 45 58 3A |A #3..f..T4 DEX:|
000046C0: 42 45 51 20 54 35 3A 41 53 4C 3A 41 53 4C 3A 4A |BEQ T5:ASL:ASL:J|
000046D0: 4D 50 20 54 34 00 17 67 E2 18 54 32 20 4C 44 41 |MP T4..g..T2 LDA|
000046E0: 20 31 30 31 35 3A 4C 53 52 3A 4C 53 52 3A 4A 4D | 1015:LSR:LSR:JM|
000046F0: 50 20 54 31 00 24 67 EC 18 54 35 20 AF 20 39 39 |P T1.$g..T5 . 99|
00004700: 38 00 47 67 F6 18 54 45 20 53 54 41 20 39 39 39 |8.Gg..TE STA 999|
00004710: 3A 4C 44 58 20 23 30 3A 53 54 58 20 31 30 31 37 |:LDX #0:STX 1017|
00004720: 3A 52 54 53 00 54 67 58 1B 3B AC AC AC D3 AC AC |:RTS.TgX.;......|
00004730: AC 00 6F 67 62 1B 51 38 20 4A 53 52 20 24 42 37 |..ogb.Q8 JSR $B7|
00004740: 45 42 3A 4A 53 52 20 50 52 4F 42 45 00 9E 67 6C |EB:JSR PROBE..gl|
00004750: 1B 4C 44 41 20 24 31 34 3A 53 54 41 20 31 30 30 |.LDA $14:STA 100|
00004760: 30 3A 4C 44 41 20 24 31 35 3A 53 54 41 20 31 30 |0:LDA $15:STA 10|
00004770: 30 31 3A 53 54 58 20 31 30 30 34 00 B5 67 76 1B |01:STX 1004..gv.|
00004780: 4C 44 41 20 23 31 36 34 3A 4A 53 52 20 24 41 45 |LDA #164:JSR $AE|
00004790: 46 46 00 CD 67 7B 1B 4A 53 52 20 24 42 37 45 42 |FF..g{.JSR $B7EB|
000047A0: 3A 4A 53 52 20 50 52 4F 42 45 00 00 68 80 1B 4C |:JSR PROBE..h..L|
000047B0: 44 41 20 24 31 34 3A 53 54 41 20 31 30 30 32 3A |DA $14:STA 1002:|
000047C0: 4C 44 41 20 24 31 35 3A 53 54 41 20 31 30 30 33 |LDA $15:STA 1003|
000047D0: 3A 53 54 58 20 31 30 30 35 3A 52 54 53 00 40 68 |:STX 1005:RTS.@h|
000047E0: BC 1B 50 52 4F 42 45 20 4C 44 41 20 24 31 35 3A |..PROBE LDA $15:|
000047F0: 43 4D 50 20 23 B1 33 32 30 3A 42 45 51 20 50 52 |CMP #.320:BEQ PR|
00004800: 4F 42 45 AA 31 31 3A 42 43 43 20 50 52 4F 42 45 |OBE.11:BCC PROBE|
00004810: AA 32 30 3A 4A 4D 50 20 24 42 32 34 38 00 78 68 |.20:JMP $B248.xh|
00004820: C6 1B 3B 20 50 52 4F 42 45 AA 31 31 3A 4C 44 41 |..; PROBE.11:LDA|
00004830: 20 24 31 34 3A 43 4D 50 20 23 B3 33 32 30 3A 42 | $14:CMP #.320:B|
00004840: 43 43 20 50 52 4F 42 45 AA 32 30 3A 4A 4D 50 20 |CC PROBE.20:JMP |
00004850: 24 42 32 34 38 00 A3 68 D0 1B 3B 20 50 52 4F 42 |$B248..h..; PROB|
00004860: 45 AA 32 30 3A 43 50 58 20 23 32 30 30 3A 42 43 |E.20:CPX #200:BC|
00004870: 43 20 54 45 AA 38 3A 4A 4D 50 20 24 42 32 34 38 |C TE.8:JMP $B248|
00004880: 00 B5 68 84 1C 3B AC AC AC 41 4C 2E 49 4E 45 AC |..h..;...AL.INE.|
00004890: AC AC 00 F4 68 8E 1C 51 37 20 4C 44 41 20 23 32 |....h..Q7 LDA #2|
000048A0: 35 30 3A 53 54 41 20 46 4C 41 47 3A 53 54 41 20 |50:STA FLAG:STA |
000048B0: 46 4C 41 47 43 3A 53 54 41 20 46 4C 41 47 31 3A |FLAGC:STA FLAG1:|
000048C0: 4A 53 52 20 87 54 3A 4A 53 52 20 43 48 4B 43 4F |JSR .T:JSR CHKCO|
000048D0: 4D 00 39 69 98 1C 4A 53 52 20 46 52 4D 4E 55 4D |M.9i..JSR FRMNUM|
000048E0: 3A 4A 53 52 20 5A 55 53 A4 52 41 3A 4A 53 52 20 |:JSR ZUS.RA:JSR |
000048F0: 43 48 4B 43 4F 4D 3A 4A 53 52 20 46 52 4D 4E 55 |CHKCOM:JSR FRMNU|
00004900: 4D 3A 4A 53 52 20 52 44 3A 4A 53 52 20 5A 55 4B |M:JSR RD:JSR ZUK|
00004910: 3A 4A 53 52 20 BE 00 69 69 A2 1C 4A 53 52 20 54 |:JSR ..ii..JSR T|
00004920: 53 3A 4A 53 52 20 4D 45 4D 4D 55 4C 54 3A 4C 44 |S:JSR MEMMULT:LD|
00004930: 41 20 38 34 32 3A 43 4D 50 20 23 33 3A 42 45 51 |A 842:CMP #3:BEQ|
00004940: 20 41 4C 49 4E 31 00 A1 69 AC 1C 4C 44 41 20 23 | ALIN1..i..LDA #|
00004950: B3 58 4B 31 3A 4C 44 59 20 23 B1 58 4B 31 3A 4A |.XK1:LDY #.XK1:J|
00004960: 53 52 20 4D 45 4D 50 4C 55 53 3A 4A 53 52 20 24 |SR MEMPLUS:JSR $|
00004970: 42 38 34 39 3A 4A 53 52 20 24 42 43 43 43 00 C8 |B849:JSR $BCCC..|
00004980: 69 B6 1C 4A 53 52 20 4D 55 4C 54 58 3A 4A 53 52 |i..JSR MULTX:JSR|
00004990: 20 5A 55 58 32 3A 4A 53 52 20 48 4F 4C 45 4B 3A | ZUX2:JSR HOLEK:|
000049A0: 4A 53 52 20 BF 00 DF 69 BB 1C 4A 53 52 20 54 53 |JSR ...i..JSR TS|
000049B0: 3A 4A 53 52 20 4D 45 4D 4D 55 4C 54 00 21 6A C0 |:JSR MEMMULT.!j.|
000049C0: 1C 4C 44 41 20 23 B3 59 4B 31 3A 4C 44 59 20 23 |.LDA #.YK1:LDY #|
000049D0: B1 59 4B 31 3A 4A 53 52 20 4D 45 4D 50 4C 55 53 |.YK1:JSR MEMPLUS|
000049E0: 3A 4A 53 52 20 24 42 38 34 39 3A 4A 53 52 20 24 |:JSR $B849:JSR $|
000049F0: 42 43 43 43 3A 4A 53 52 20 4D 55 4C 54 59 00 37 |BCCC:JSR MULTY.7|
00004A00: 6A C5 1C 4A 53 52 20 5A 55 59 32 3A 4A 4D 50 20 |j..JSR ZUY2:JMP |
00004A10: 4C 49 4E 34 00 66 6A CA 1C 41 4C 49 4E 31 20 4A |LIN4.fj..ALIN1 J|
00004A20: 53 52 20 5A 55 58 3A 4A 53 52 20 43 48 4B 43 4F |SR ZUX:JSR CHKCO|
00004A30: 4D 3A 4A 53 52 20 46 52 4D 4E 55 4D 3A 4A 53 52 |M:JSR FRMNUM:JSR|
00004A40: 20 52 44 00 8A 6A CF 1C 4A 53 52 20 5A 55 59 3A | RD..j..JSR ZUY:|
00004A50: 4A 53 52 20 BE 3A 4C 44 41 20 23 B3 58 4B 3A 4C |JSR .:LDA #.XK:L|
00004A60: 44 59 20 23 B1 58 4B 00 CD 6A D4 1C 4A 53 52 20 |DY #.XK..j..JSR |
00004A70: 4D 45 4D 4D 55 4C 54 3A 4C 44 41 20 23 B3 58 4B |MEMMULT:LDA #.XK|
00004A80: 31 3A 4C 44 59 20 23 B1 58 4B 31 3A 4A 53 52 20 |1:LDY #.XK1:JSR |
00004A90: 4D 45 4D 50 4C 55 53 3A 4A 53 52 20 4D 55 4C 54 |MEMPLUS:JSR MULT|
00004AA0: 58 3A 4A 53 52 20 5A 55 58 32 00 0C 6B D9 1C 4C |X:JSR ZUX2..k..L|
00004AB0: 44 41 20 23 B3 4B 3A 4C 44 59 20 23 B1 4B 3A 4A |DA #.K:LDY #.K:J|
00004AC0: 53 52 20 4D 45 4D 46 41 43 3A 4A 53 52 20 BF 3A |SR MEMFAC:JSR .:|
00004AD0: 4A 53 52 20 5A 55 4B 3A 4C 44 41 20 23 B3 59 4B |JSR ZUK:LDA #.YK|
00004AE0: 3A 4C 44 59 20 23 B1 59 4B 00 1B 6B DB 1C 4A 53 |:LDY #.YK..k..JS|
00004AF0: 52 20 4D 45 4D 46 41 43 00 48 6B DE 1C 4A 53 52 |R MEMFAC.Hk..JSR|
00004B00: 20 BE 3A 4C 44 41 20 23 B3 4B 3A 4C 44 59 20 23 | .:LDA #.K:LDY #|
00004B10: B1 4B 3A 4A 53 52 20 4D 45 4D 4D 55 4C 54 3A 4A |.K:JSR MEMMULT:J|
00004B20: 53 52 20 54 53 00 8B 6B E3 1C 4A 53 52 20 4D 45 |SR TS..k..JSR ME|
00004B30: 4D 4D 55 4C 54 3A 4C 44 41 20 23 B3 59 4B 31 3A |MMULT:LDA #.YK1:|
00004B40: 4C 44 59 20 23 B1 59 4B 31 3A 4A 53 52 20 4D 45 |LDY #.YK1:JSR ME|
00004B50: 4D 50 4C 55 53 3A 4A 53 52 20 4D 55 4C 54 59 3A |MPLUS:JSR MULTY:|
00004B60: 4A 53 52 20 5A 55 59 32 00 B9 6B E8 1C 4C 44 41 |JSR ZUY2..k..LDA|
00004B70: 20 23 B3 59 4B 3A 4C 44 59 20 23 B1 59 4B 3A 4A | #.YK:LDY #.YK:J|
00004B80: 53 52 20 4D 45 4D 46 41 43 3A 4A 53 52 20 BF 3A |SR MEMFAC:JSR .:|
00004B90: 4A 53 52 20 54 53 00 E9 6B F2 1C 4A 53 52 20 4D |JSR TS..k..JSR M|
00004BA0: 45 4D 4D 55 4C 54 3A 4C 44 41 20 23 B3 5A 4B 31 |EMMULT:LDA #.ZK1|
00004BB0: 3A 4C 44 59 20 23 B1 5A 4B 31 3A 4A 53 52 20 4D |:LDY #.ZK1:JSR M|
00004BC0: 45 4D 50 4C 55 53 00 1C 6C FC 1C 4A 53 52 20 4D |EMPLUS..l..JSR M|
00004BD0: 55 4C 54 5A 3A 4A 53 52 20 5A 55 5A 32 3A 4C 44 |ULTZ:JSR ZUZ2:LD|
00004BE0: 41 20 38 33 34 3A 42 4D 49 20 47 41 4B 41 4C 3A |A 834:BMI GAKAL:|
00004BF0: 4A 4D 50 20 4C 49 4E 31 31 00 2E 6C 06 1D 47 41 |JMP LIN11..l..GA|
00004C00: 4B 41 4C 20 4A 4D 50 20 47 41 4B 00 34 6C 10 1D |KAL JMP GAK.4l..|
00004C10: 3B 00 41 6C 14 1E 3B AC AC AC D8 AC AC AC 00 77 |;.Al..;........w|
00004C20: 6C 32 1E 3B 20 51 32 39 AB 31 39 3A 4A 53 52 20 |l2.; Q29.19:JSR |
00004C30: 46 52 4D 4E 55 4D 3A 4A 53 52 20 24 42 37 46 37 |FRMNUM:JSR $B7F7|
00004C40: 3A 4A 53 52 20 24 41 38 41 33 3A 4A 4D 50 20 24 |:JSR $A8A3:JMP $|
00004C50: 41 37 41 45 00 7D 6C 36 1F 3B 00 8F 6C 40 1F 3B |A7AE.}l6.;..l@.;|
00004C60: AC AC AC 4C 4D 2E 4F 44 45 AC AC AC 00 AF 6C 4A |...LM.ODE.....lJ|
00004C70: 1F 3B 20 51 32 39 AB 37 3A 4A 53 52 20 47 42 3A |.; Q29.7:JSR GB:|
00004C80: 53 54 58 20 31 30 31 38 3A 52 54 53 00 B5 6C 9A |STX 1018:RTS..l.|
00004C90: 1F 3B 00 C8 6C A4 1F 3B AC AC AC 53 54 2E 41 54 |.;..l..;...ST.AT|
00004CA0: 55 53 AC AC AC 00 0C 6D AE 1F 51 32 39 20 4C 44 |US.....m..Q29 LD|
00004CB0: 41 20 23 31 35 3A 4C 44 58 20 23 38 3A 4C 44 59 |A #15:LDX #8:LDY|
00004CC0: 20 23 31 35 3A 4A 53 52 20 24 46 46 42 41 3A 4C | #15:JSR $FFBA:L|
00004CD0: 44 41 20 23 30 3A 4A 53 52 20 24 46 46 42 44 3A |DA #0:JSR $FFBD:|
00004CE0: 4A 53 52 20 24 46 46 43 30 00 22 6D B8 1F 4C 44 |JSR $FFC0."m..LD|
00004CF0: 58 20 23 31 35 3A 4A 53 52 20 24 46 46 43 36 00 |X #15:JSR $FFC6.|
00004D00: 56 6D C2 1F 3B 20 51 32 39 AA 32 32 3A 4A 53 52 |Vm..; Q29.22:JSR|
00004D10: 20 24 46 46 43 46 3A 4A 53 52 20 24 46 46 44 32 | $FFCF:JSR $FFD2|
00004D20: 3A 42 49 54 20 31 34 34 3A 42 56 43 20 51 32 39 |:BIT 144:BVC Q29|
00004D30: AA 32 32 00 76 6D CC 1F 4A 53 52 20 24 46 46 43 |.22.vm..JSR $FFC|
00004D40: 43 3A 4C 44 41 20 23 31 35 3A 4A 53 52 20 24 46 |C:LDA #15:JSR $F|
00004D50: 46 43 33 00 7E 6D D6 1F 52 54 53 00 84 6D FE 1F |FC3.~m..RTS..m..|
00004D60: 3B 00 97 6D 08 20 3B AC AC AC 49 4E 2E 56 45 52 |;..m. ;...IN.VER|
00004D70: 53 AC AC AC 00 BA 6D 12 20 51 31 33 20 4C 44 41 |S.....m. Q13 LDA|
00004D80: 20 23 32 35 30 3A 53 54 41 20 46 4C 41 47 3A 4A | #250:STA FLAG:J|
00004D90: 4D 50 20 51 32 AA 35 00 C8 6D 6C 20 53 58 20 AC |MP Q2.5..ml SX .|
00004DA0: B2 20 AC AA 35 00 D6 6D 76 20 53 59 20 AC B2 20 |. ..5..mv SY .. |
00004DB0: AC AA 35 00 E4 6D 80 20 53 5A 20 AC B2 20 AC AA |..5..m. SZ .. ..|
00004DC0: 35 00 EA 6D C6 20 3B 00 FC 6D D0 20 3B AC AC AC |5..m. ;..m. ;...|
00004DD0: 53 43 2E 41 4C 45 AC AC AC 00 3D 6E DA 20 51 39 |SC.ALE....=n. Q9|
00004DE0: 20 4A 53 52 20 46 52 4D 4E 55 4D 3A 4C 44 58 20 | JSR FRMNUM:LDX |
00004DF0: 23 B3 53 58 3A 4C 44 59 20 23 B1 53 58 3A 4A 53 |#.SX:LDY #.SX:JS|
00004E00: 52 20 46 41 43 4D 45 4D 3A 4A 53 52 20 24 37 39 |R FACMEM:JSR $79|
00004E10: 3A 42 45 51 20 51 32 39 AB 31 00 4C 6E DF 20 4A |:BEQ Q29.1.Ln. J|
00004E20: 53 52 20 43 48 4B 43 4F 4D 00 8A 6E E4 20 4A 53 |SR CHKCOM..n. JS|
00004E30: 52 20 46 52 4D 4E 55 4D 3A 4C 44 58 20 23 B3 53 |R FRMNUM:LDX #.S|
00004E40: 59 3A 4C 44 59 20 23 B1 53 59 3A 4A 53 52 20 46 |Y:LDY #.SY:JSR F|
00004E50: 41 43 4D 45 4D 3A 4A 53 52 20 24 37 39 3A 42 45 |ACMEM:JSR $79:BE|
00004E60: 51 20 51 32 39 AB 31 00 C1 6E EE 20 4A 53 52 20 |Q Q29.1..n. JSR |
00004E70: 43 48 4B 43 4F 4D 3A 4A 53 52 20 46 52 4D 4E 55 |CHKCOM:JSR FRMNU|
00004E80: 4D 3A 4C 44 58 20 23 B3 53 5A 3A 4C 44 59 20 23 |M:LDX #.SZ:LDY #|
00004E90: B1 53 5A 3A 4A 4D 50 20 46 41 43 4D 45 4D 00 C7 |.SZ:JMP FACMEM..|
00004EA0: 6E 8E 21 3B 00 D7 6E 98 21 3B AC AC AC 44 4F 2E |n.!;..n.!;...DO.|
00004EB0: 54 AC AC AC 00 19 6F A2 21 51 32 33 20 4C 44 41 |T.....o.!Q23 LDA|
00004EC0: 20 23 32 35 30 3A 53 54 41 20 46 4C 41 47 3A 4A | #250:STA FLAG:J|
00004ED0: 53 52 20 87 54 3A 4C 44 41 20 38 34 32 3A 43 4D |SR .T:LDA 842:CM|
00004EE0: 50 20 23 32 3A 42 4E 45 20 44 31 3A 4A 53 52 20 |P #2:BNE D1:JSR |
00004EF0: 50 55 4E 4B 54 31 00 3C 6F AC 21 3B 20 51 32 33 |PUNKT1.<o.!; Q23|
00004F00: AA 31 38 3A 4A 53 52 20 4B 91 56 45 52 31 3A 4A |.18:JSR K.VER1:J|
00004F10: 53 52 20 43 48 41 4E 47 45 00 82 6F B6 21 4C 44 |SR CHANGE..o.!LD|
00004F20: 41 20 58 31 4C 3A 53 54 41 20 58 4C 3A 4C 44 41 |A X1L:STA XL:LDA|
00004F30: 20 58 31 48 3A 53 54 41 20 58 48 3A 4C 44 41 20 | X1H:STA XH:LDA |
00004F40: 59 31 3A 53 54 41 20 59 3A 4C 44 41 20 59 31 48 |Y1:STA Y:LDA Y1H|
00004F50: 3A 53 54 41 20 59 48 3A 4A 4D 50 20 50 4F B5 00 |:STA YH:JMP PO..|
00004F60: B2 6F C0 21 44 31 20 4C 44 41 20 38 33 34 3A 42 |.o.!D1 LDA 834:B|
00004F70: 4D 49 20 44 31 AA 31 31 3A 4A 53 52 20 50 55 4E |MI D1.11:JSR PUN|
00004F80: 4B 54 33 44 3A 4A 4D 50 20 51 32 33 AA 31 38 00 |KT3D:JMP Q23.18.|
00004F90: E6 6F CA 21 3B 20 44 31 AA 31 31 3A 4C 44 41 20 |.o.!; D1.11:LDA |
00004FA0: 23 B3 58 4B 31 3A 4C 44 59 20 23 B1 58 4B 31 3A |#.XK1:LDY #.XK1:|
00004FB0: 4A 53 52 20 4D 45 4D 46 41 43 3A 4A 53 52 20 5A |JSR MEMFAC:JSR Z|
00004FC0: 55 58 32 00 12 70 D4 21 4C 44 41 20 23 B3 59 4B |UX2..p.!LDA #.YK|
00004FD0: 31 3A 4C 44 59 20 23 B1 59 4B 31 3A 4A 53 52 20 |1:LDY #.YK1:JSR |
00004FE0: 4D 45 4D 46 41 43 3A 4A 53 52 20 5A 55 59 32 00 |MEMFAC:JSR ZUY2.|
00004FF0: 46 70 DE 21 4C 44 41 20 23 B3 5A 4B 31 3A 4C 44 |Fp.!LDA #.ZK1:LD|
00005000: 59 20 23 B1 5A 4B 31 3A 4A 53 52 20 4D 45 4D 46 |Y #.ZK1:JSR MEMF|
00005010: 41 43 3A 4A 53 52 20 5A 55 5A 32 3A 4A 4D 50 20 |AC:JSR ZUZ2:JMP |
00005020: 47 41 4B 00 4C 70 56 22 3B 00 5E 70 60 22 3B AC |GAK.LpV";.^p`";.|
00005030: AC AC 44 4D 2E 4F 44 45 AC AC AC 00 81 70 6A 22 |..DM.ODE.....pj"|
00005040: 3B 20 51 31 35 AB 37 3A 4A 53 52 20 47 42 3A 53 |; Q15.7:JSR GB:S|
00005050: 54 58 20 4C 49 4E 49 45 AA 31 3A 52 54 53 00 87 |TX LINIE.1:RTS..|
00005060: 70 BA 22 3B 00 97 70 28 23 3B AC AC AC 52 41 2E |p.";..p(#;...RA.|
00005070: 59 AC AC AC 00 CC 70 32 23 51 31 35 20 4C 44 41 |Y.....p2#Q15 LDA|
00005080: 20 23 32 35 30 3A 53 54 41 20 46 4C 41 47 3A 53 | #250:STA FLAG:S|
00005090: 54 41 20 46 4C 41 47 43 3A 53 54 41 20 46 4C 41 |TA FLAGC:STA FLA|
000050A0: 47 31 3A 4A 53 52 20 87 54 00 0C 71 37 23 4C 44 |G1:JSR .T..q7#LD|
000050B0: 41 20 38 34 32 3A 43 4D 50 20 23 33 3A 42 45 51 |A 842:CMP #3:BEQ|
000050C0: 20 52 41 33 20 3B 20 51 31 35 AA 32 31 3A 4A 53 | RA3 ; Q15.21:JS|
000050D0: 52 20 50 55 4E 4B 54 31 3A 4A 53 52 20 24 37 39 |R PUNKT1:JSR $79|
000050E0: 3A 42 45 51 20 41 55 53 32 00 24 71 38 23 4A 53 |:BEQ AUS2.$q8#JS|
000050F0: 52 20 43 48 41 4E 47 45 3A 4A 53 52 20 43 48 52 |R CHANGE:JSR CHR|
00005100: A1 00 36 71 39 23 41 55 53 32 20 4A 4D 50 20 53 |..6q9#AUS2 JMP S|
00005110: 50 8A 47 00 60 71 3C 23 43 48 41 4E 47 45 20 4C |P.G.`q<#CHANGE L|
00005120: 44 41 20 23 B3 58 4B 31 3A 4C 44 59 20 23 B1 58 |DA #.XK1:LDY #.X|
00005130: 4B 31 3A 4A 53 52 20 4D 45 4D 46 41 43 00 9E 71 |K1:JSR MEMFAC..q|
00005140: 46 23 4C 44 41 20 23 B3 58 4B 32 3A 4C 44 59 20 |F#LDA #.XK2:LDY |
00005150: 23 B1 58 4B 32 3A 4A 53 52 20 24 42 41 38 43 3A |#.XK2:JSR $BA8C:|
00005160: 4A 53 52 20 5A 55 58 32 3A 4A 53 52 20 24 42 42 |JSR ZUX2:JSR $BB|
00005170: 46 43 3A 4A 53 52 20 5A 55 58 31 00 C1 71 50 23 |FC:JSR ZUX1..qP#|
00005180: 4C 44 41 20 23 B3 59 4B 31 3A 4C 44 59 20 23 B1 |LDA #.YK1:LDY #.|
00005190: 59 4B 31 3A 4A 53 52 20 4D 45 4D 46 41 43 00 FF |YK1:JSR MEMFAC..|
000051A0: 71 5A 23 4C 44 41 20 23 B3 59 4B 32 3A 4C 44 59 |qZ#LDA #.YK2:LDY|
000051B0: 20 23 B1 59 4B 32 3A 4A 53 52 20 24 42 41 38 43 | #.YK2:JSR $BA8C|
000051C0: 3A 4A 53 52 20 5A 55 59 32 3A 4A 53 52 20 24 42 |:JSR ZUY2:JSR $B|
000051D0: 42 46 43 3A 4A 53 52 20 5A 55 59 31 00 22 72 5D |BFC:JSR ZUY1."r]|
000051E0: 23 4C 44 41 20 23 B3 5A 4B 31 3A 4C 44 59 20 23 |#LDA #.ZK1:LDY #|
000051F0: B1 5A 4B 31 3A 4A 53 52 20 4D 45 4D 46 41 43 00 |.ZK1:JSR MEMFAC.|
00005200: 60 72 60 23 4C 44 41 20 23 B3 5A 4B 32 3A 4C 44 |`r`#LDA #.ZK2:LD|
00005210: 59 20 23 B1 5A 4B 32 3A 4A 53 52 20 24 42 41 38 |Y #.ZK2:JSR $BA8|
00005220: 43 3A 4A 53 52 20 5A 55 5A 32 3A 4A 53 52 20 24 |C:JSR ZUZ2:JSR $|
00005230: 42 42 46 43 3A 4A 4D 50 20 5A 55 5A 31 00 96 72 |BBFC:JMP ZUZ1..r|
00005240: 64 23 52 41 33 20 4C 44 41 20 38 33 34 3A 42 4D |d#RA3 LDA 834:BM|
00005250: 49 20 52 41 41 33 3A 4A 53 52 20 50 55 4E 4B 54 |I RAA3:JSR PUNKT|
00005260: 33 44 3A 4A 53 52 20 24 37 39 3A 42 45 51 20 41 |3D:JSR $79:BEQ A|
00005270: 55 53 32 00 B7 72 69 23 4A 53 52 20 43 48 41 4E |US2..ri#JSR CHAN|
00005280: 47 45 3A 4A 53 52 20 43 48 52 A1 3A 4A 4D 50 20 |GE:JSR CHR.:JMP |
00005290: 41 55 53 32 00 EE 72 6E 23 52 41 41 33 20 4A 53 |AUS2..rn#RAA3 JS|
000052A0: 52 20 47 41 4B 3A 4A 53 52 20 24 37 39 3A 42 45 |R GAK:JSR $79:BE|
000052B0: 51 20 51 32 31 AB 31 3A 4A 53 52 20 43 48 41 4E |Q Q21.1:JSR CHAN|
000052C0: 47 45 3A 4A 4D 50 20 43 48 52 A1 00 F4 72 E6 23 |GE:JMP CHR...r.#|
000052D0: 3B 00 05 73 F0 23 3B AC AC AC 43 4F 2E 50 59 AC |;..s.#;...CO.PY.|
000052E0: AC AC 00 1A 73 FA 23 51 33 31 20 4A 53 52 20 47 |....s.#Q31 JSR G|
000052F0: 42 3A 53 54 58 20 50 00 4F 73 FF 23 43 4F 4A 55 |B:STX P.Os.#COJU|
00005300: 4D 50 20 4C 44 41 20 23 B1 24 41 30 30 30 3A 53 |MP LDA #.$A000:S|
00005310: 54 41 20 50 54 52 AA 31 3A 4C 44 41 20 23 B3 24 |TA PTR.1:LDA #.$|
00005320: 41 30 30 30 3A 53 54 41 20 50 54 52 00 7D 73 01 |A000:STA PTR.}s.|
00005330: 24 4C 44 41 20 23 B1 24 45 30 30 30 3A 53 54 41 |$LDA #.$E000:STA|
00005340: 20 50 4E 54 AA 31 3A 4C 44 41 20 23 B3 24 45 30 | PNT.1:LDA #.$E0|
00005350: 30 30 3A 53 54 41 20 50 4E 54 00 9C 73 04 24 4C |00:STA PNT..s.$L|
00005360: 44 58 20 23 24 33 34 3A 53 45 49 3A 53 54 58 20 |DX #$34:SEI:STX |
00005370: 31 3A 4C 44 58 20 23 33 32 00 B2 73 0E 24 4C 41 |1:LDX #32..s.$LA|
00005380: 4C 31 20 4C 44 59 20 23 30 3A 53 54 58 20 4B 00 |L1 LDY #0:STX K.|
00005390: D3 73 10 24 4C 41 4C 34 20 4C 44 41 20 50 3A 42 |.s.$LAL4 LDA P:B|
000053A0: 4D 49 20 45 5A 55 41 3A 42 45 51 20 41 43 48 45 |MI EZUA:BEQ ACHE|
000053B0: 00 1A 74 13 24 4C 44 41 20 28 50 54 52 29 2C 59 |..t.$LDA (PTR),Y|
000053C0: 3A 4C 44 58 20 50 3A 43 50 58 20 23 31 3A 42 4E |:LDX P:CPX #1:BN|
000053D0: 45 20 41 45 3A B0 41 20 28 50 4E 54 29 2C 59 3A |E AE:.A (PNT),Y:|
000053E0: 41 45 20 53 54 41 20 28 50 4E 54 29 2C 59 3A 4A |AE STA (PNT),Y:J|
000053F0: 4D 50 20 4C 41 4C 32 00 44 74 18 24 45 5A 55 41 |MP LAL2.Dt.$EZUA|
00005400: 20 4C 44 41 20 28 50 4E 54 29 2C 59 3A 53 54 41 | LDA (PNT),Y:STA|
00005410: 20 28 50 54 52 29 2C 59 3A 4A 4D 50 20 4C 41 4C | (PTR),Y:JMP LAL|
00005420: 32 00 85 74 22 24 41 43 48 45 20 4C 44 41 20 28 |2..t"$ACHE LDA (|
00005430: 50 54 52 29 2C 59 3A 50 48 41 3A 4C 44 41 20 28 |PTR),Y:PHA:LDA (|
00005440: 50 4E 54 29 2C 59 3A 53 54 41 20 28 50 54 52 29 |PNT),Y:STA (PTR)|
00005450: 2C 59 3A 50 4C 41 3A 53 54 41 20 28 50 4E 54 29 |,Y:PLA:STA (PNT)|
00005460: 2C 59 00 9B 74 7C 24 4C 41 4C 32 20 49 4E 59 3A |,Y..t|$LAL2 INY:|
00005470: 42 4E 45 20 4C 41 4C 34 00 D9 74 86 24 49 4E 43 |BNE LAL4..t.$INC|
00005480: 20 50 54 52 AA 31 3A 49 4E 43 20 50 4E 54 AA 31 | PTR.1:INC PNT.1|
00005490: 3A 4C 44 58 20 4B 3A 44 45 58 3A 42 4E 45 20 4C |:LDX K:DEX:BNE L|
000054A0: 41 4C 31 3A 4C 44 58 20 23 24 33 37 3A 53 54 58 |AL1:LDX #$37:STX|
000054B0: 20 31 3A 43 4C 49 00 E1 74 90 24 52 54 53 00 E7 | 1:CLI..t.$RTS..|
000054C0: 74 12 25 3B 00 F9 74 1C 25 3B AC AC AC 47 53 2E |t.%;..t.%;...GS.|
000054D0: 41 56 45 AC AC AC 00 23 75 2B 25 51 32 31 20 4A |AVE....#u+%Q21 J|
000054E0: 53 52 20 24 45 31 44 34 3A 4C 44 58 20 23 B3 24 |SR $E1D4:LDX #.$|
000054F0: 43 30 30 30 3A 4C 44 59 20 23 B1 24 43 30 30 30 |C000:LDY #.$C000|
00005500: 00 6B 75 30 25 4C 44 41 20 23 B3 24 41 30 30 30 |.ku0%LDA #.$A000|
00005510: 3A 53 54 41 20 24 46 44 3A 4C 44 41 20 23 B1 24 |:STA $FD:LDA #.$|
00005520: 41 30 30 30 3A 53 54 41 20 24 46 45 3A 4C 44 41 |A000:STA $FE:LDA|
00005530: 20 23 24 46 44 3A 4C 44 58 20 23 24 33 36 3A 53 | #$FD:LDX #$36:S|
00005540: 45 49 3A 53 54 58 20 31 00 90 75 3A 25 4A 53 52 |EI:STX 1..u:%JSR|
00005550: 20 24 46 46 44 38 3A 4C 44 58 20 23 24 33 37 3A | $FFD8:LDX #$37:|
00005560: 53 54 58 20 31 3A 43 4C 49 3A 52 54 53 00 96 75 |STX 1:CLI:RTS..u|
00005570: DA 25 3B 00 A8 75 E4 25 3B AC AC AC 47 4C 2E 4F |.%;..u.%;...GL.O|
00005580: 41 44 AC AC AC 00 D2 75 EE 25 51 32 30 20 4A 53 |AD.....u.%Q20 JS|
00005590: 52 20 24 45 31 44 34 3A 4C 44 58 20 23 B3 24 41 |R $E1D4:LDX #.$A|
000055A0: 30 30 30 3A 4C 44 59 20 23 B1 24 41 30 30 30 00 |000:LDY #.$A000.|
000055B0: EB 75 F8 25 4C 44 41 20 23 30 3A 4A 53 52 20 24 |.u.%LDA #0:JSR $|
000055C0: 46 46 44 35 3A 52 54 53 00 F1 75 A2 26 3B 00 02 |FFD5:RTS..u.&;..|
000055D0: 76 10 27 3B AC AC AC 50 4D 4F 44 45 AC AC AC 00 |v.';...PMODE....|
000055E0: 1C 76 1A 27 51 31 30 20 4A 53 52 20 47 42 3A 53 |.v.'Q10 JSR GB:S|
000055F0: 54 58 20 58 52 3A 52 54 53 00 2E 76 74 27 3B AC |TX XR:RTS..vt';.|
00005600: AC AC 42 4C 4F 2E 43 4B AC AC AC 00 79 76 7E 27 |..BLO.CK....yv~'|
00005610: 51 34 34 20 4C 44 41 20 23 30 3A 53 54 41 20 46 |Q44 LDA #0:STA F|
00005620: 4C 41 47 3A 53 54 41 20 46 4C 41 47 31 3A 53 54 |LAG:STA FLAG1:ST|
00005630: 41 20 46 4C 41 47 43 3A 4A 53 52 20 54 45 34 AB |A FLAGC:JSR TE4.|
00005640: 31 34 3A 4A 53 52 20 24 42 37 45 42 3A 4A 53 52 |14:JSR $B7EB:JSR|
00005650: 20 50 52 4F 42 45 00 85 76 81 27 53 54 58 20 58 | PROBE..v.'STX X|
00005660: 31 4C 00 A7 76 83 27 4C 44 41 20 24 31 34 3A 53 |1L..v.'LDA $14:S|
00005670: 54 41 20 58 4C 3A 4C 44 41 20 24 31 35 3A 53 54 |TA XL:LDA $15:ST|
00005680: 41 20 58 48 00 D2 76 88 27 4C 44 41 20 23 31 36 |A XH..v.'LDA #16|
00005690: 34 3A 4A 53 52 20 24 41 45 46 46 3A 4A 53 52 20 |4:JSR $AEFF:JSR |
000056A0: 24 42 37 45 42 3A 4A 53 52 20 50 52 4F 42 45 00 |$B7EB:JSR PROBE.|
000056B0: FE 76 92 27 53 54 58 20 58 31 48 3A 4C 44 41 20 |.v.'STX X1H:LDA |
000056C0: 24 31 34 3A 53 54 41 20 58 32 48 3A 4C 44 41 20 |$14:STA X2H:LDA |
000056D0: 24 31 35 3A 53 54 41 20 58 32 4C 00 23 77 9C 27 |$15:STA X2L.#w.'|
000056E0: 42 4C 4F 31 20 4C 44 41 20 58 31 4C 3A 53 54 41 |BLO1 LDA X1L:STA|
000056F0: 20 59 3A 4C 44 41 20 23 30 3A 53 54 41 20 59 48 | Y:LDA #0:STA YH|
00005700: 00 5A 77 A6 27 42 4C 4F 32 20 4A 53 52 20 50 4F |.Zw.'BLO2 JSR PO|
00005710: B5 3A 49 4E 43 20 59 3A 4C 44 59 20 59 3A 43 50 |.:INC Y:LDY Y:CP|
00005720: 59 20 58 31 48 3A 42 43 43 20 42 4C 4F 32 3A 42 |Y X1H:BCC BLO2:B|
00005730: 45 51 20 42 4C 4F 32 00 75 77 B0 27 49 4E 43 20 |EQ BLO2.uw.'INC |
00005740: 58 4C 3A 42 4E 45 20 42 4C 4F 33 3A 49 4E 43 20 |XL:BNE BLO3:INC |
00005750: 58 48 00 96 77 BA 27 42 4C 4F 33 20 4C 44 41 20 |XH..w.'BLO3 LDA |
00005760: 58 48 3A 43 4D 50 20 58 32 4C 3A 42 43 43 20 42 |XH:CMP X2L:BCC B|
00005770: 4C 4F 31 00 BB 77 C4 27 4C 44 41 20 58 4C 3A 43 |LO1..w.'LDA XL:C|
00005780: 4D 50 20 58 32 48 3A 42 43 43 20 42 4C 4F 31 3A |MP X2H:BCC BLO1:|
00005790: 42 45 51 20 42 4C 4F 31 00 C3 77 CE 27 52 54 53 |BEQ BLO1..w.'RTS|
000057A0: 00 C9 77 FA 28 3B 00 DC 77 04 29 3B AC AC AC 42 |..w.(;..w.);...B|
000057B0: 4F 2E 52 44 45 52 AC AC AC 00 EF 77 0E 29 51 31 |O.RDER.....w.)Q1|
000057C0: 31 20 4A 53 52 20 46 52 4D 4E 55 4D 00 1B 78 10 |1 JSR FRMNUM..x.|
000057D0: 29 4C 44 58 20 23 B3 58 55 3A 4C 44 59 20 23 B1 |)LDX #.XU:LDY #.|
000057E0: 58 55 3A 4A 53 52 20 46 41 43 4D 45 4D 3A 4A 53 |XU:JSR FACMEM:JS|
000057F0: 52 20 43 48 4B 43 4F 4D 00 2A 78 13 29 4A 53 52 |R CHKCOM.*x.)JSR|
00005800: 20 46 52 4D 4E 55 4D 00 5D 78 15 29 4C 44 58 20 | FRMNUM.]x.)LDX |
00005810: 23 B3 58 4F 3A 4C 44 59 20 23 B1 58 4F 3A 4A 53 |#.XO:LDY #.XO:JS|
00005820: 52 20 46 41 43 4D 45 4D 3A 4A 53 52 20 24 37 39 |R FACMEM:JSR $79|
00005830: 3A 42 45 51 20 51 31 31 AB 31 00 A2 78 68 29 4C |:BEQ Q11.1..xh)L|
00005840: 44 41 20 23 B3 58 55 3A 4C 44 59 20 23 B1 58 55 |DA #.XU:LDY #.XU|
00005850: 3A 4A 53 52 20 4D 45 4D 46 41 43 3A 4A 53 52 20 |:JSR MEMFAC:JSR |
00005860: 52 44 3A 4C 44 58 20 23 B3 58 55 3A 4C 44 59 20 |RD:LDX #.XU:LDY |
00005870: 23 B1 58 55 3A 4A 53 52 20 46 41 43 4D 45 4D 00 |#.XU:JSR FACMEM.|
00005880: E7 78 72 29 4C 44 41 20 23 B3 58 4F 3A 4C 44 59 |.xr)LDA #.XO:LDY|
00005890: 20 23 B1 58 4F 3A 4A 53 52 20 4D 45 4D 46 41 43 | #.XO:JSR MEMFAC|
000058A0: 3A 4A 53 52 20 52 44 3A 4C 44 58 20 23 B3 58 4F |:JSR RD:LDX #.XO|
000058B0: 3A 4C 44 59 20 23 B1 58 4F 3A 4A 53 52 20 46 41 |:LDY #.XO:JSR FA|
000058C0: 43 4D 45 4D 00 F4 78 7C 29 4A 4D 50 20 43 48 52 |CMEM..x|)JMP CHR|
000058D0: A1 00 FA 78 C2 29 3B 00 0C 79 CC 29 3B AC AC AC |...x.);..y.);...|
000058E0: 53 53 2E 54 45 50 AC AC AC 00 42 79 D6 29 51 32 |SS.TEP....By.)Q2|
000058F0: 36 20 4A 53 52 20 46 52 4D 4E 55 4D 3A 4A 53 52 |6 JSR FRMNUM:JSR|
00005900: 20 24 37 39 3A 42 45 51 20 51 32 36 AA 31 34 3A | $79:BEQ Q26.14:|
00005910: 4A 53 52 20 52 44 3A 4A 53 52 20 43 48 52 A1 00 |JSR RD:JSR CHR..|
00005920: 6C 79 E0 29 3B 20 51 32 36 AA 31 34 3A 4C 44 58 |ly.); Q26.14:LDX|
00005930: 20 23 B3 53 53 3A 4C 44 59 20 23 B1 53 53 3A 4A | #.SS:LDY #.SS:J|
00005940: 4D 50 20 46 41 43 4D 45 4D 00 72 79 EE 2A 3B 00 |MP FACMEM.ry.*;.|
00005950: 84 79 F8 2A 3B AC AC AC 57 52 2E 49 54 45 AC AC |.y.*;...WR.ITE..|
00005960: AC 00 B9 79 02 2B 51 31 37 20 4C 44 41 20 23 32 |...y.+Q17 LDA #2|
00005970: 35 30 3A 53 54 41 20 46 4C 41 47 3A 53 54 41 20 |50:STA FLAG:STA |
00005980: 46 4C 41 47 43 3A 53 54 41 20 46 4C 41 47 31 3A |FLAGC:STA FLAG1:|
00005990: 4A 53 52 20 87 54 00 D3 79 0C 2B 4C 44 41 20 38 |JSR .T..y.+LDA 8|
000059A0: 34 32 3A 43 4D 50 20 23 33 3A 42 45 51 20 57 33 |42:CMP #3:BEQ W3|
000059B0: 00 E9 79 16 2B 4A 53 52 20 50 55 4E 4B 54 31 3A |..y.+JSR PUNKT1:|
000059C0: 4A 4D 50 20 57 34 00 0B 7A 20 2B 57 33 20 4C 44 |JMP W4..z +W3 LD|
000059D0: 41 20 38 33 34 3A 42 4D 49 20 57 34 3A 4A 53 52 |A 834:BMI W4:JSR|
000059E0: 20 50 55 4E 4B 54 33 44 00 39 7A 2A 2B 57 34 20 | PUNKT3D.9z*+W4 |
000059F0: 4A 53 52 20 4B 91 56 45 52 31 3A 4C 44 41 20 59 |JSR K.VER1:LDA Y|
00005A00: 31 3A 53 54 41 20 59 3A 4C 44 41 20 59 31 48 3A |1:STA Y:LDA Y1H:|
00005A10: 53 54 41 20 59 48 00 71 7A 34 2B 4A 53 52 20 43 |STA YH.qz4+JSR C|
00005A20: 48 4B 43 4F 4D 3A 4A 53 52 20 47 42 3A 53 54 58 |HKCOM:JSR GB:STX|
00005A30: 20 4B AA 31 3A 4A 53 52 20 43 48 4B 43 4F 4D 3A | K.1:JSR CHKCOM:|
00005A40: 4C 44 58 20 23 30 3A 53 54 58 20 38 34 30 00 BF |LDX #0:STX 840..|
00005A50: 7A 39 2B 4C 44 58 20 23 24 46 46 3A 53 54 58 20 |z9+LDX #$FF:STX |
00005A60: 31 33 3A 4A 53 52 20 24 41 44 39 45 3A 4A 53 52 |13:JSR $AD9E:JSR|
00005A70: 20 24 42 37 38 32 3A 53 54 59 20 39 39 36 3A 44 | $B782:STY 996:D|
00005A80: 45 59 3A 43 4D 50 20 23 24 46 46 3A 42 4E 45 20 |EY:CMP #$FF:BNE |
00005A90: 52 52 3A 4A 4D 50 20 24 42 32 34 38 00 07 7B 3E |RR:JMP $B248..{>|
00005AA0: 2B 52 52 20 4C 44 59 20 38 34 30 3A 4C 44 41 20 |+RR LDY 840:LDA |
00005AB0: 58 31 4C 3A 53 54 41 20 58 4C 3A 4C 44 41 20 58 |X1L:STA XL:LDA X|
00005AC0: 31 48 3A 53 54 41 20 58 48 3A 4C 44 41 20 28 24 |1H:STA XH:LDA ($|
00005AD0: 32 32 29 2C 59 3A 43 4D 50 20 23 36 34 3A 42 43 |22),Y:CMP #64:BC|
00005AE0: 43 20 57 32 00 28 7B 48 2B 43 4D 50 20 23 39 36 |C W2.({H+CMP #96|
00005AF0: 3A 42 43 53 20 57 35 3A AF 20 23 31 39 31 3A 42 |:BCS W5:. #191:B|
00005B00: 43 43 20 57 32 00 44 7B 52 2B 57 35 20 42 4D 49 |CC W2.D{R+W5 BMI|
00005B10: 20 57 36 3A AF 20 23 32 32 33 3A 42 50 4C 20 57 | W6:. #223:BPL W|
00005B20: 32 00 52 7B 57 2B 57 36 20 AF 20 23 31 32 37 00 |2.R{W+W6 . #127.|
00005B30: 96 7B 5C 2B 57 32 20 53 54 41 20 50 4E 54 3A 4C |.{\+W2 STA PNT:L|
00005B40: 44 59 20 23 30 3A 53 54 59 20 50 4E 54 AA 31 3A |DY #0:STY PNT.1:|
00005B50: 41 53 4C 20 50 4E 54 3A 52 4F 4C 20 50 4E 54 AA |ASL PNT:ROL PNT.|
00005B60: 31 3A 41 53 4C 20 50 4E 54 3A 52 4F 4C 20 50 4E |1:ASL PNT:ROL PN|
00005B70: 54 AA 31 00 CD 7B 66 2B 41 53 4C 20 50 4E 54 3A |T.1..{f+ASL PNT:|
00005B80: 52 4F 4C 20 50 4E 54 AA 31 3A 43 4C 43 3A 4C 44 |ROL PNT.1:CLC:LD|
00005B90: 41 20 50 4E 54 AA 31 3A 41 44 43 20 23 24 44 38 |A PNT.1:ADC #$D8|
00005BA0: 3A 53 54 41 20 50 4E 54 AA 31 00 DB 7B 70 2B 57 |:STA PNT.1..{p+W|
00005BB0: 50 20 4C 44 59 20 23 37 00 07 7C 7A 2B 57 57 20 |P LDY #7..|z+WW |
00005BC0: 4C 44 58 20 23 35 31 3A 53 45 49 3A 53 54 58 20 |LDX #51:SEI:STX |
00005BD0: 31 3A 4C 44 41 20 28 50 4E 54 29 2C 59 3A 53 54 |1:LDA (PNT),Y:ST|
00005BE0: 59 20 58 4B 00 19 7C 84 2B 4C 44 58 20 23 38 3A |Y XK..|.+LDX #8:|
00005BF0: 53 54 58 20 59 4B 00 3B 7C 8E 2B 57 4C 20 52 4F |STX YK.;|.+WL RO|
00005C00: 4C 20 41 3A 53 54 41 20 4B 3A 42 43 43 20 57 30 |L A:STA K:BCC W0|
00005C10: 3A 4A 53 52 20 50 4F B5 00 57 7C 98 2B 57 30 20 |:JSR PO..W|.+W0 |
00005C20: 49 4E 43 20 58 4C 3A 42 4E 45 20 57 37 3A 49 4E |INC XL:BNE W7:IN|
00005C30: 43 20 58 48 00 8E 7C A2 2B 57 37 20 4C 44 41 20 |C XH..|.+W7 LDA |
00005C40: 4B 3A 44 45 43 20 59 4B 3A 42 4E 45 20 57 4C 3A |K:DEC YK:BNE WL:|
00005C50: 44 45 43 20 59 3A 4C 44 41 20 59 3A 43 4D 50 20 |DEC Y:LDA Y:CMP |
00005C60: 23 24 46 46 3A 42 4E 45 20 57 38 00 99 7C AC 2B |#$FF:BNE W8..|.+|
00005C70: 44 45 43 20 59 48 00 D0 7C B6 2B 57 38 20 4C 44 |DEC YH..|.+W8 LD|
00005C80: 41 20 58 31 4C 3A 53 54 41 20 58 4C 3A 4C 44 41 |A X1L:STA XL:LDA|
00005C90: 20 58 31 48 3A 53 54 41 20 58 48 3A 4C 44 59 20 | X1H:STA XH:LDY |
00005CA0: 58 4B 3A 44 45 59 3A 42 50 4C 20 57 57 00 07 7D |XK:DEY:BPL WW..}|
00005CB0: C0 2B 43 4C 43 3A 4C 44 41 20 58 31 4C 3A 41 44 |.+CLC:LDA X1L:AD|
00005CC0: 43 20 4B AA 31 3A 53 54 41 20 58 31 4C 3A 4C 44 |C K.1:STA X1L:LD|
00005CD0: 41 20 58 31 48 3A 41 44 43 20 23 30 3A 53 54 41 |A X1H:ADC #0:STA|
00005CE0: 20 58 31 48 00 27 7D C5 2B 4C 44 41 20 59 31 3A | X1H.'}.+LDA Y1:|
00005CF0: 53 54 41 20 59 3A 4C 44 41 20 59 31 48 3A 53 54 |STA Y:LDA Y1H:ST|
00005D00: 41 20 59 48 00 51 7D CA 2B 49 4E 43 20 38 34 30 |A YH.Q}.+INC 840|
00005D10: 3A 4C 44 59 20 38 34 30 3A 43 50 59 20 39 39 36 |:LDY 840:CPY 996|
00005D20: 3A 42 45 51 20 57 45 3A 4A 4D 50 20 52 52 00 6E |:BEQ WE:JMP RR.n|
00005D30: 7D D4 2B 57 45 20 4C 44 58 20 23 35 35 3A 53 54 |}.+WE LDX #55:ST|
00005D40: 58 20 31 3A 43 4C 49 3A 52 54 53 00 74 7D E2 2C |X 1:CLI:RTS.t}.,|
00005D50: 3B 00 86 7D EC 2C 3B AC AC AC 41 4E 2E 47 4C 45 |;..}.,;...AN.GLE|
00005D60: AC AC AC 00 B2 7D F6 2C 51 31 39 20 4A 53 52 20 |.....}.,Q19 JSR |
00005D70: 46 52 4D 4E 55 4D 3A 4A 53 52 20 24 42 46 42 34 |FRMNUM:JSR $BFB4|
00005D80: 3A 4A 53 52 20 52 44 3A 4A 53 52 20 5A 55 4B 00 |:JSR RD:JSR ZUK.|
00005D90: D9 7D 00 2D 4A 53 52 20 BE 3A 4C 44 58 20 23 B3 |.}.-JSR .:LDX #.|
00005DA0: 43 4F 3A 4C 44 59 20 23 B1 43 4F 3A 4A 53 52 20 |CO:LDY #.CO:JSR |
00005DB0: 46 41 43 4D 45 4D 00 0A 7E 0A 2D 4A 53 52 20 48 |FACMEM..~.-JSR H|
00005DC0: 4F 4C 45 4B 3A 4A 53 52 20 BF 3A 4C 44 58 20 23 |OLEK:JSR .:LDX #|
00005DD0: B3 53 49 3A 4C 44 59 20 23 B1 53 49 3A 4A 4D 50 |.SI:LDY #.SI:JMP|
00005DE0: 20 46 41 43 4D 45 4D 00 19 7E 7C 2E 55 20 AC B2 | FACMEM..~|.U ..|
00005DF0: 20 AC AA 31 39 32 00 1F 7E D6 2E 3B 00 30 7E E0 | ..192..~..;.0~.|
00005E00: 2E 3B AC AC AC 54 41 2E 45 D2 AC AC AC 00 79 7E |.;...TA.E.....y~|
00005E10: EA 2E 51 32 35 20 4C 44 41 20 23 24 44 30 3A 4A |..Q25 LDA #$D0:J|
00005E20: 53 52 20 24 41 45 46 46 3A 43 4D 50 20 23 36 35 |SR $AEFF:CMP #65|
00005E30: 3A 42 43 43 20 44 44 31 3A 43 4D 50 20 23 36 38 |:BCC DD1:CMP #68|
00005E40: 3A 42 43 43 20 44 44 32 3A 44 44 31 20 4A 4D 50 |:BCC DD2:DD1 JMP|
00005E50: 20 24 41 46 30 38 00 8D 7E EF 2E 44 44 32 20 53 | $AF08..~..DD2 S|
00005E60: 45 43 3A 53 42 43 20 23 36 35 00 C9 7E F4 2E 54 |EC:SBC #65..~..T|
00005E70: 41 58 3A 4C 44 41 20 24 37 41 3A 50 48 41 3A 4C |AX:LDA $7A:PHA:L|
00005E80: 44 41 20 24 37 42 3A 50 48 41 3A 54 58 41 3A 41 |DA $7B:PHA:TXA:A|
00005E90: 53 4C 3A 41 53 4C 3A 41 53 4C 3A 41 53 4C 3A 41 |SL:ASL:ASL:ASL:A|
00005EA0: 53 4C 3A 41 53 4C 00 F8 7E FE 2E 43 4C 43 3A 41 |SL:ASL..~..CLC:A|
00005EB0: 44 43 20 23 B3 55 3A 53 54 41 20 24 37 41 3A 4C |DC #.U:STA $7A:L|
00005EC0: 44 41 20 23 B1 55 3A 41 44 43 20 23 30 3A 53 54 |DA #.U:ADC #0:ST|
00005ED0: 41 20 24 37 42 00 2C 7F 08 2F 4A 53 52 20 24 37 |A $7B.,../JSR $7|
00005EE0: 39 3A 4A 53 52 20 41 34 3A 50 4C 41 3A 53 54 41 |9:JSR A4:PLA:STA|
00005EF0: 20 24 37 42 3A 50 4C 41 3A 53 54 41 20 24 37 41 | $7B:PLA:STA $7A|
00005F00: 3A 4A 4D 50 20 43 48 52 A1 00 32 7F CA 30 3B 00 |:JMP CHR..2..0;.|
00005F10: 46 7F D4 30 3B AC AC AC 45 4C 2E 4C 49 50 53 45 |F..0;...EL.LIPSE|
00005F20: AC AC AC 00 72 7F DE 30 51 31 36 20 4C 44 41 20 |....r..0Q16 LDA |
00005F30: 38 34 32 3A 43 4D 50 20 23 32 3A 42 45 51 20 51 |842:CMP #2:BEQ Q|
00005F40: 31 36 AA 31 30 3A 4A 4D 50 20 24 41 46 30 38 00 |16.10:JMP $AF08.|
00005F50: A2 7F E8 30 3B 20 51 31 36 AA 31 30 3A 4C 44 41 |...0; Q16.10:LDA|
00005F60: 20 23 32 35 30 3A 53 54 41 20 46 4C 41 47 3A 53 | #250:STA FLAG:S|
00005F70: 54 41 20 46 4C 41 47 43 3A 4A 53 52 20 87 54 00 |TA FLAGC:JSR .T.|
00005F80: E4 7F ED 30 4C 44 41 20 23 B3 58 4B 31 3A 4C 44 |...0LDA #.XK1:LD|
00005F90: 59 20 23 B1 58 4B 31 3A 4A 53 52 20 4D 45 4D 46 |Y #.XK1:JSR MEMF|
00005FA0: 41 43 3A 4C 44 58 20 23 B3 BE 42 45 3A 4C 44 59 |AC:LDX #..BE:LDY|
00005FB0: 20 23 B1 BE 42 45 3A 4A 53 52 20 46 41 43 4D 45 | #..BE:JSR FACME|
00005FC0: 4D 00 26 80 EF 30 4C 44 41 20 23 B3 59 4B 31 3A |M.&..0LDA #.YK1:|
00005FD0: 4C 44 59 20 23 B1 59 4B 31 3A 4A 53 52 20 4D 45 |LDY #.YK1:JSR ME|
00005FE0: 4D 46 41 43 3A 4C 44 58 20 23 B3 C0 42 45 3A 4C |MFAC:LDX #..BE:L|
00005FF0: 44 59 20 23 B1 C0 42 45 3A 4A 53 52 20 46 41 43 |DY #..BE:JSR FAC|
00006000: 4D 45 4D 00 6D 80 F2 30 4A 53 52 20 43 48 4B 43 |MEM.m..0JSR CHKC|
00006010: 4F 4D 3A 4A 53 52 20 46 52 4D 4E 55 4D 3A 4A 53 |OM:JSR FRMNUM:JS|
00006020: 52 20 4D 55 4C 54 58 3A 4C 44 58 20 23 B3 BE 41 |R MULTX:LDX #..A|
00006030: 4C 53 54 3A 4C 44 59 20 23 B1 BE 41 4C 53 54 3A |LST:LDY #..ALST:|
00006040: 4A 53 52 20 46 41 43 4D 45 4D 00 B4 80 FC 30 4A |JSR FACMEM....0J|
00006050: 53 52 20 43 48 4B 43 4F 4D 3A 4A 53 52 20 46 52 |SR CHKCOM:JSR FR|
00006060: 4D 4E 55 4D 3A 4A 53 52 20 4D 55 4C 54 59 3A 4C |MNUM:JSR MULTY:L|
00006070: 44 58 20 23 B3 BE 47 41 53 54 3A 4C 44 59 20 23 |DX #..GAST:LDY #|
00006080: B1 BE 47 41 53 54 3A 4A 53 52 20 46 41 43 4D 45 |..GAST:JSR FACME|
00006090: 4D 00 FE 80 06 31 4C 44 41 20 23 B3 58 55 3A 4C |M....1LDA #.XU:L|
000060A0: 44 59 20 23 B1 58 55 3A 4A 53 52 20 4D 45 4D 46 |DY #.XU:JSR MEMF|
000060B0: 41 43 3A 4C 44 58 20 23 B3 42 45 54 41 3A 4C 44 |AC:LDX #.BETA:LD|
000060C0: 59 20 23 B1 42 45 54 41 3A 4A 53 52 20 46 41 43 |Y #.BETA:JSR FAC|
000060D0: 4D 45 4D 3A 4A 53 52 20 45 4C 33 00 2D 81 2E 31 |MEM:JSR EL3.-..1|
000060E0: 4A 53 52 20 51 32 33 AA 31 35 3A 4C 44 41 20 24 |JSR Q23.15:LDA $|
000060F0: 37 41 3A 53 54 41 20 53 5A 3A 4C 44 41 20 24 37 |7A:STA SZ:LDA $7|
00006100: 42 3A 53 54 41 20 53 5A AA 31 00 50 81 33 31 45 |B:STA SZ.1.P.31E|
00006110: 4C 32 20 4A 53 52 20 24 37 39 3A 42 45 51 20 45 |L2 JSR $79:BEQ E|
00006120: 4C 32 AA 38 3A 4A 53 52 20 43 48 52 A1 00 9B 81 |L2.8:JSR CHR....|
00006130: 38 31 4C 44 41 20 23 B3 42 45 54 41 3A 4C 44 59 |81LDA #.BETA:LDY|
00006140: 20 23 B1 42 45 54 41 3A 4A 53 52 20 4D 45 4D 46 | #.BETA:JSR MEMF|
00006150: 41 43 3A 4C 44 41 20 23 B3 58 4F 3A 4C 44 59 20 |AC:LDA #.XO:LDY |
00006160: 23 B1 58 4F 3A 4A 53 52 20 24 42 43 35 42 3A 42 |#.XO:JSR $BC5B:B|
00006170: 50 4C 20 45 4C 33 AB 33 00 E6 81 42 31 4C 44 41 |PL EL3.3...B1LDA|
00006180: 20 23 B3 53 53 3A 4C 44 59 20 23 B1 53 53 3A 4A | #.SS:LDY #.SS:J|
00006190: 53 52 20 4D 45 4D 50 4C 55 53 3A 4C 44 58 20 23 |SR MEMPLUS:LDX #|
000061A0: B3 42 45 54 41 3A 4C 44 59 20 23 B1 42 45 54 41 |.BETA:LDY #.BETA|
000061B0: 3A 4A 53 52 20 46 41 43 4D 45 4D 3A 4A 53 52 20 |:JSR FACMEM:JSR |
000061C0: 45 4C 33 00 0A 82 47 31 4C 44 41 20 53 5A 3A 53 |EL3...G1LDA SZ:S|
000061D0: 54 41 20 24 37 41 3A 4C 44 41 20 53 5A AA 31 3A |TA $7A:LDA SZ.1:|
000061E0: 53 54 41 20 24 37 42 00 21 82 4C 31 4A 53 52 20 |STA $7B.!.L1JSR |
000061F0: 51 31 35 AA 32 31 3A 4A 4D 50 20 45 4C 32 00 35 |Q15.21:JMP EL2.5|
00006200: 82 6A 31 3B 20 45 4C 33 AB 33 3A 4A 4D 50 20 24 |.j1; EL3.3:JMP $|
00006210: 37 39 00 67 82 3C 32 45 4C 33 20 4A 53 52 20 BE |79.g.<2EL3 JSR .|
00006220: 3A 4C 44 41 20 23 B3 BE 41 4C 53 54 3A 4C 44 59 |:LDA #..ALST:LDY|
00006230: 20 23 B1 BE 41 4C 53 54 3A 4A 53 52 20 4D 45 4D | #..ALST:JSR MEM|
00006240: 4D 55 4C 54 00 94 82 41 32 4C 44 41 20 23 B3 BE |MULT...A2LDA #..|
00006250: 42 45 3A 4C 44 59 20 23 B1 BE 42 45 3A 4A 53 52 |BE:LDY #..BE:JSR|
00006260: 20 4D 45 4D 50 4C 55 53 3A 4A 53 52 20 5A 55 58 | MEMPLUS:JSR ZUX|
00006270: 31 00 B9 82 46 32 4C 44 41 20 23 B3 42 45 54 41 |1...F2LDA #.BETA|
00006280: 3A 4C 44 59 20 23 B1 42 45 54 41 3A 4A 53 52 20 |:LDY #.BETA:JSR |
00006290: 4D 45 4D 46 41 43 00 E7 82 50 32 4A 53 52 20 BF |MEMFAC...P2JSR .|
000062A0: 3A 4C 44 41 20 23 B3 BE 47 41 53 54 3A 4C 44 59 |:LDA #..GAST:LDY|
000062B0: 20 23 B1 BE 47 41 53 54 3A 4A 53 52 20 4D 45 4D | #..GAST:JSR MEM|
000062C0: 4D 55 4C 54 00 25 83 55 32 4C 44 41 20 23 B3 C0 |MULT.%.U2LDA #..|
000062D0: 42 45 3A 4C 44 59 20 23 B1 C0 42 45 3A 4A 53 52 |BE:LDY #..BE:JSR|
000062E0: 20 4D 45 4D 50 4C 55 53 3A 4C 44 41 20 23 30 3A | MEMPLUS:LDA #0:|
000062F0: 53 54 41 20 46 4C 41 47 31 3A 4A 4D 50 20 5A 55 |STA FLAG1:JMP ZU|
00006300: 59 31 00 2B 83 C7 32 3B 00 3E 83 C8 32 3B AC AC |Y1.+..2;.>..2;..|
00006310: AC AC 48 41 2E 52 44 AC AC AC AC 00 59 83 D2 32 |..HA.RD.....Y..2|
00006320: 51 32 32 20 4A 53 52 20 24 42 37 39 45 3A 53 54 |Q22 JSR $B79E:ST|
00006330: 58 20 50 52 AA 34 00 6E 83 E6 32 4C 44 58 20 23 |X PR.4.n..2LDX #|
00006340: 34 3A 4A 53 52 20 24 45 31 31 38 00 9C 83 F0 32 |4:JSR $E118....2|
00006350: 4C 44 41 20 23 B3 24 45 30 30 30 3A 53 54 41 20 |LDA #.$E000:STA |
00006360: 50 4E 54 3A 4C 44 41 20 23 B1 24 45 30 30 30 3A |PNT:LDA #.$E000:|
00006370: 53 54 41 20 50 4E 54 AA 31 00 CF 83 FA 32 4C 44 |STA PNT.1....2LD|
00006380: 41 20 23 32 35 3A 53 54 41 20 24 36 32 3A 4C 44 |A #25:STA $62:LD|
00006390: 58 20 50 52 AA 34 3A 43 50 58 20 23 31 30 3A 42 |X PR.4:CPX #10:B|
000063A0: 4E 45 20 48 36 3A 4A 4D 50 20 4D 31 00 DD 83 FD |NE H6:JMP M1....|
000063B0: 32 48 36 20 4C 44 59 20 23 30 00 0B 84 FE 32 48 |2H6 LDY #0....2H|
000063C0: 31 30 20 4C 44 41 20 50 52 2C 59 3A 4A 53 52 20 |10 LDA PR,Y:JSR |
000063D0: 24 46 46 44 32 3A 49 4E 59 3A 43 50 59 20 23 37 |$FFD2:INY:CPY #7|
000063E0: 3A 42 4E 45 20 48 31 30 00 1F 84 FF 32 4C 44 41 |:BNE H10....2LDA|
000063F0: 20 23 34 30 3A 53 54 41 20 24 36 31 00 58 84 04 | #40:STA $61.X..|
00006400: 33 48 30 20 4C 44 41 20 23 38 3A 53 54 41 20 24 |3H0 LDA #8:STA $|
00006410: 36 33 3A 4C 44 41 20 23 31 32 38 3A 53 54 41 20 |63:LDA #128:STA |
00006420: 24 36 34 3A 53 45 49 3A 4C 44 41 20 23 35 32 3A |$64:SEI:LDA #52:|
00006430: 53 54 41 20 31 00 75 84 0E 33 48 34 20 4C 44 59 |STA 1.u..3H4 LDY|
00006440: 20 23 37 3A 4C 44 41 20 23 30 3A 53 54 41 20 24 | #7:LDA #0:STA $|
00006450: 36 35 00 AD 84 18 33 48 33 20 4C 44 41 20 28 50 |65....3H3 LDA (P|
00006460: 4E 54 29 2C 59 3A AF 20 24 36 34 3A 42 45 51 20 |NT),Y:. $64:BEQ |
00006470: 48 31 3A 4C 44 41 20 24 36 35 3A B0 41 20 23 31 |H1:LDA $65:.A #1|
00006480: 32 38 3A 53 54 41 20 24 36 35 00 D2 84 22 33 48 |28:STA $65..."3H|
00006490: 31 20 54 59 41 3A 42 45 51 20 48 32 3A 4C 53 52 |1 TYA:BEQ H2:LSR|
000064A0: 20 24 36 35 3A 44 45 59 3A 42 50 4C 20 48 33 00 | $65:DEY:BPL H3.|
000064B0: 1F 85 2C 33 48 32 20 4C 44 41 20 31 3A 45 B0 20 |..,3H2 LDA 1:E. |
000064C0: 23 32 3A 53 54 41 20 31 3A 43 4C 49 3A 4C 53 52 |#2:STA 1:CLI:LSR|
000064D0: 20 24 36 34 3A 4C 44 41 20 24 36 35 3A 4A 53 52 | $64:LDA $65:JSR|
000064E0: 20 24 46 46 44 32 3A 4C 44 41 20 31 3A 45 B0 20 | $FFD2:LDA 1:E. |
000064F0: 23 32 3A 53 45 49 3A 53 54 41 20 31 00 32 85 31 |#2:SEI:STA 1.2.1|
00006500: 33 44 45 43 20 24 36 33 3A 42 4E 45 20 48 34 00 |3DEC $63:BNE H4.|
00006510: 62 85 36 33 4C 44 41 20 50 4E 54 3A 43 4C 43 3A |b.63LDA PNT:CLC:|
00006520: 41 44 43 20 23 38 3A 53 54 41 20 50 4E 54 3A 42 |ADC #8:STA PNT:B|
00006530: 43 43 20 48 35 3A 49 4E 43 20 50 4E 54 AA 31 00 |CC H5:INC PNT.1.|
00006540: 8A 85 40 33 48 35 20 4C 44 41 20 23 35 35 3A 53 |..@3H5 LDA #55:S|
00006550: 54 41 20 31 3A 43 4C 49 3A 44 45 43 20 24 36 31 |TA 1:CLI:DEC $61|
00006560: 3A 42 4E 45 20 48 30 00 A0 85 4A 33 4C 44 41 20 |:BNE H0...J3LDA |
00006570: 23 31 33 3A 4A 53 52 20 24 46 46 44 32 00 BB 85 |#13:JSR $FFD2...|
00006580: 54 33 44 45 43 20 24 36 32 3A 42 45 51 20 48 31 |T3DEC $62:BEQ H1|
00006590: 31 3A 4A 4D 50 20 48 36 00 E7 85 68 33 48 31 31 |1:JMP H6...h3H11|
000065A0: 20 4C 44 41 20 23 32 37 3A 4A 53 52 20 24 46 46 | LDA #27:JSR $FF|
000065B0: 44 32 3A 4C 44 41 20 23 36 34 3A 4A 53 52 20 24 |D2:LDA #64:JSR $|
000065C0: 46 46 44 32 00 14 86 72 33 48 48 48 20 4C 44 41 |FFD2...r3HHH LDA|
000065D0: 20 23 34 3A 4A 53 52 20 24 46 46 43 33 3A 4A 53 | #4:JSR $FFC3:JS|
000065E0: 52 20 24 41 42 42 35 3A 4A 4D 50 20 24 41 37 41 |R $ABB5:JMP $A7A|
000065F0: 45 00 33 86 90 33 50 52 20 2E 42 59 54 20 32 37 |E.3..3PR .BYT 27|
00006600: 2C 34 39 2C 32 37 2C 34 32 2C 30 2C 36 34 2C 31 |,49,27,42,0,64,1|
00006610: 00 4B 86 9A 33 4D 31 20 4C 44 41 20 23 38 3A 4A |.K..3M1 LDA #8:J|
00006620: 53 52 20 24 46 46 44 32 00 62 86 A4 33 4D 30 20 |SR $FFD2.b..3M0 |
00006630: 4C 44 41 20 23 34 30 3A 53 54 41 20 24 36 31 00 |LDA #40:STA $61.|
00006640: 9B 86 AE 33 4D 32 20 4C 44 41 20 23 37 3A 53 54 |...3M2 LDA #7:ST|
00006650: 41 20 24 36 33 3A 4C 44 41 20 23 31 32 38 3A 53 |A $63:LDA #128:S|
00006660: 54 41 20 24 36 34 3A 53 45 49 3A 4C 44 41 20 23 |TA $64:SEI:LDA #|
00006670: 35 32 3A 53 54 41 20 31 00 B1 86 B8 33 4D 33 20 |52:STA 1....3M3 |
00006680: 4C 44 59 20 23 30 3A 53 54 59 20 24 36 35 00 D1 |LDY #0:STY $65..|
00006690: 86 C2 33 4D 34 20 4C 44 41 20 28 50 4E 54 29 2C |..3M4 LDA (PNT),|
000066A0: 59 3A AF 20 24 36 34 3A 42 45 51 20 4D 35 00 ED |Y:. $64:BEQ M5..|
000066B0: 86 CC 33 4C 44 41 20 24 36 35 3A B0 41 20 23 31 |..3LDA $65:.A #1|
000066C0: 32 38 3A 53 54 41 20 24 36 35 00 19 87 D6 33 4D |28:STA $65....3M|
000066D0: 35 20 54 59 41 3A 43 50 59 20 23 37 3A 42 45 51 |5 TYA:CPY #7:BEQ|
000066E0: 20 4D 36 3A 4C 53 52 20 24 36 35 3A 49 4E 59 3A | M6:LSR $65:INY:|
000066F0: 42 50 4C 20 4D 34 00 58 87 E0 33 4D 36 20 4C 44 |BPL M4.X..3M6 LD|
00006700: 41 20 31 3A 45 B0 20 23 32 3A 53 54 41 20 31 3A |A 1:E. #2:STA 1:|
00006710: 43 4C 49 3A 4C 53 52 20 24 36 34 3A 4C 44 41 20 |CLI:LSR $64:LDA |
00006720: 24 36 35 3A B0 41 20 23 31 32 38 3A 4A 53 52 20 |$65:.A #128:JSR |
00006730: 24 46 46 44 32 00 81 87 EA 33 4C 44 41 20 31 3A |$FFD2....3LDA 1:|
00006740: 45 B0 20 23 32 3A 53 45 49 3A 53 54 41 20 31 3A |E. #2:SEI:STA 1:|
00006750: 44 45 43 20 24 36 33 3A 42 4E 45 20 4D 33 00 B1 |DEC $63:BNE M3..|
00006760: 87 F4 33 4C 44 41 20 50 4E 54 3A 43 4C 43 3A 41 |..3LDA PNT:CLC:A|
00006770: 44 43 20 23 38 3A 53 54 41 20 50 4E 54 3A 42 43 |DC #8:STA PNT:BC|
00006780: 43 20 4D 37 3A 49 4E 43 20 50 4E 54 AA 31 00 D9 |C M7:INC PNT.1..|
00006790: 87 FE 33 4D 37 20 4C 44 41 20 23 35 35 3A 53 54 |..3M7 LDA #55:ST|
000067A0: 41 20 31 3A 43 4C 49 3A 44 45 43 20 24 36 31 3A |A 1:CLI:DEC $61:|
000067B0: 42 4E 45 20 4D 32 00 05 88 08 34 4C 44 41 20 23 |BNE M2....4LDA #|
000067C0: 31 33 3A 4A 53 52 20 24 46 46 44 32 3A 44 45 43 |13:JSR $FFD2:DEC|
000067D0: 20 24 36 32 3A 42 45 51 20 4D 38 3A 4A 4D 50 20 | $62:BEQ M8:JMP |
000067E0: 4D 30 00 27 88 12 34 4D 38 20 4C 44 41 20 23 24 |M0.'..4M8 LDA #$|
000067F0: 30 46 3A 4A 53 52 20 24 46 46 44 32 3A 4A 4D 50 |0F:JSR $FFD2:JMP|
00006800: 20 48 48 48 00 44 88 98 3A 2E 42 59 54 20 30 2C | HHH.D..:.BYT 0,|
00006810: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00006820: 30 00 54 88 80 3E 45 55 4B 4C 20 2E 42 59 54 20 |0.T..>EUKL .BYT |
00006830: 30 00 00 00 |0... |
$ = ...1,8,1,"@0:EUKLIDEX".H D..36864.T
N..OPT O1.G W.MEMDIV . $BB0F.Z ..MEMFAC
. $BBA2.. ..FACMEM . $BBD4.. ..FM . $BBD
4.. ..MEMMIN . $B850.B ..MEMMULT .$BA28.
U ..MEMPLUS .$B867.. C.. . $E26B.. H.
. . $E264..!..GB . $B79E..!..FRMNUM .
$AD8A.,!..CHKCOM . $AEFD.=!..CHR. . $00
73.O!..PTR . 87 ; 88._!..; 1014.1017..!?
.; BEOZT 834,1018,1019,830,836,839,833,$
64,$65,1015,842,835,837,993.999.J!@.; BE
OZT 1014,1015,1016,1017.Y!X.FLAG . 829..
!].FLAG1 . 831..!_.FLAGC . 832.."B.P .
838.."..; BEOZT 1000.1005.+"..PNT . $71
.:"B.PTTR . $49.F"C... $801.K"E..BYT .$8
0B,.$80B,.1987,.1987,$9E.Y"J..F "2061"..
"K..BYT 0,0,0.."L.LDA #.V1:LDY #.V1:STA
$304:STY $305.X"M.LDA #.V2:LDY #.V2:STA
$306:STY $307..#O.LDA #.V3:LDY #.V3:STA
$308:STY $309.N#R.JSR $E544:LDA #14:JSR
$FFD2:LDA #154:JSR $FFD2:LDY #0:STY 5328
0:STY 53281..#T.AS LDA INI,Y:STA 1024,Y:
INY:CPY #197:BNE AS:LDY #7..#V.AS1 LDA #
17:JSR $FFD2:DEY:BNE AS1..#Z.LDA #.EUKL:
STA $2B:LDA #.EUKL:STA $2C:LDX #39:LDA #
1..$..STA 55296,X:DEX:BPL INI.12..$..JSR
$A644:JMP $A474.?$..INI .F "<***<***<**
*<** EUKLID".M$...BYT 5,24.G$...F " **>*
**>***>***>"..$...F "
"..$...F " ".O$...
BYT 2,25,32,87,5,18,14,5,18,32,66,18..$.
..BYT 1,14,4,32,1,14,4,32,84,8,15,13..%.
..BYT 1,19,32,83,3,8,12,15,5,7,12.=%...F
" ".[%...F "
".Z%...F " (C) 1987
32730 "..%...BYT 2,1,19,9,3,32,2,25,20,5
,19,32..%...BYT 6,18,5,5.P%..V1 LDX $7A:
LDY #4:STY 15..&..NX LDA $200,X:BPL NR:C
MP #$FF:BEQ TC:INX:BNE NX.8&..NR CMP #"
":BEQ TC:STA 8:CMP #$22:BEQ GC:BIT 15.C&
..BVS TC:CMP #"?":BNE SK:LDA #$99:BNE TC
..&..SK CMP #"0":BCC SK1:CMP #"<":BCC TC
..&..SK1 STY PNT:LDY #0:STY 11:DEY:STX $
7A:DEX.H&..CL INY:INX..'..TN LDA $200,X:
SEC:SBC $A09E,Y:BEQ CL:CMP #$80:BNE .C..
'...A 11..'..TC1 LDY PNT.Z'..TC INX:INY:
STA $200.5,Y:CMP #0:BEQ EN:SEC:SBC #":":
BEQ SK2.S'..CMP #$83.":":BNE SK3..'..SK2
STA 15..'..SK3 SEC:SBC #$8F.":":BNE NX:
STA 8.N' .RL LDA $200,X:BEQ TC:CMP 8:BEQ
TC..'%.GC INY:STA $200.5,Y:INX:BNE RL..
(*..C LDX $7A:INC 11.A(/.WI INY:LDA $A09
E.1,Y:BPL WI:LDA $A09E,Y:BNE TN:BEQ WT.[
(4.N. LDA $200,X:BPL TC1..(9.EN STA $200
.3,Y:DEC $7B:LDA #$FF:STA $7A:RTS..(>.WT
LDY #0:LDA NT,Y:BNE WS..(C.WC INY:INX..
(H.WS LDA $200,X:SEC:SBC NT,Y:BEQ WC:CMP
#$80:BNE NXN..)M..A 11:BNE TC1..)R.NXN
LDX $7A:INC 11.O)W.WI1 INY:LDA NT.1,Y:BP
L WI1:LDA NT,Y:BNE WS:BEQ N...)\.V2 BPL
OUT:BIT 15:BMI OUT:CMP #$FF:BEQ OUT:CMP
#$CC:BCS NL..)A.JMP $A724..)F.OUT JMP $A
6F3.W)K.NL SEC:SBC #$CB:TAX:STY PTTR:LDY
#.1..)P.. DEX:BEQ ...*U.LOOP INY:LDA NT
,Y:BPL LOOP:BMI ..6*Z.. INY:LDA NT,Y:BMI
OE:JSR $AB47:BNE ..G*.OE JMP $A6EF.I*.
.V3 JSR CHR.:JSR TCD:JMP $A7AE..*..TCD C
MP #CS:BCC OC:CMP #CE.1:BCC OK..*..OC JS
R $79:JMP $A7ED..*..OK SEC:SBC #CS:ASL:T
AX:LDA CT.1,X:PHA:LDA CT,X:PHA..*..JMP C
HR...*..CS . $CC..+..CE . $E9..+..NT .F
"PAGE".(+...F "ERASE".7+...F "COLOR".D+.
..F "SET".R+...F "AXIS".`+...F "LINE".O+
...F "ALINE".+...F "WINDOW"..+...F "SCA
LE"..+...F "PMODE"..+...F "BORDER"..+D..
F "INVERS".L+F..F "SGOTO".Y+H..F "RAY"..
+J..F "ELLIPSE"..+N..F "WRITE"..,R..F "A
NGLE"..,T..F "GLOAD".&,V..F "GSAVE".4,X.
.F "HARD".A,Z..F "DOT".P,...F "LMODE".^,
...F "TAKE".M,...F "SSTEP".|,...F "FRAME
"..,...F "STATUS"..,...F "DMODE"..,...F
"COPY"..,...F "BLOCK".F,...F "TEST".Q,K.
.BYT 0..,L.CT .W. Q1.1..,N..W. Q2.1..,P.
.W. Q3.1..-R..W. Q4.1..-T..W. $AF08.1.%-
U..W. Q6.1.2-V..W. Q7.1.?-W..W. Q8.1.L-X
..W. Q9.1.Z-Z..W. Q10.1.H-\..W. Q11.1.V-
`..W. Q13.1..-B..W. Q29.19.1..-D..W. Q15
.1..-F..W. Q16.1..-J..W. Q17.1..-N..W. Q
19.1.M-P..W. Q20.1..-R..W. Q21.1..-T..W.
Q22.1..-V..W. Q23.1...X..W. Q29.7.1...~
..W. Q25.1.#....W. Q26.1.1....W. Q28.1.?
....W. Q29.1.O....W. Q15.7.1.]....W. Q31
.1.K....W. Q44.1.Y....W. Q32.1.....;...L
........Q1 JSR GB.....TXA:BNE PA1.X...LD
A #27:PHA:LDA #21:LDX #200:LDY #151:BNE
PA2.9../..PA1 JSR CHKCOM:JSR GB:TXA:STA
839:BNE PA2.)/ .LDA #59:PHA:LDX #200:BNE
PA2.5.G/..PA2 LDA #187:PHA:LDX #216.D/.
.; PA2.5:LDA #13:LDY #148../..; PA2.9:ST
Y $DD00:STX 53270:STA 53272:PLA:STA 5326
5../R.RTS../..;...M....H/..Q2 LDA #0:STA
FLAG../..LDA #.$E000:STA PTR.1:LDA #.$E
000:STA PTR..0..LDX #$34:SEI:STX 1:LDX #
32. 0..LDY #0.?0..; Q2.22:LDA FLAG:BPL Q
2.31.W0..LDA (PTR),Y:E. #$FF.}0..; Q2.31
:STA (PTR),Y:INY:BNE Q2.22..0..INC PTR.1
:DEX:BNE Q2.20:LDX #$37:STX 1:CLI..0..RT
S.A0P.;...N....O0Z.Q3 JSR GB..0..TXA:ASL
:ASL:ASL:ASL:STA SO..1..JSR CHKCOM:JSR G
B:TXA:.A SO:STA SO.+1..JSR $79:BEQ Q3.47
.F1..JSR CHKCOM:JSR GB:STX SO.1:JSR CHKC
OM:JSR GB:STX 53281..1..; Q3.47:LDA #.$C
000:STA PTR:LDA #.$C000:STA PTR.1..1..LD
X #4:LDY #0:LDA SO..1..; Q3.62:STA (PTR)
,Y:INY:BNE Q3.62..1 .INC PTR.1:DEX:BNE Q
3.62.%2*.LDA #.55296:STA PTR:LDA #.55296
:STA PTR.1.924.LDX #4:LDA SO.1.Z2>.; Q28
.11:STA (PTR),Y:INY:BNE Q28.11:INC PTR.1
:DEX:BNE Q28.11..2H.RTS..2_.;..2`.;...FR
.AME.....2J.Q28 JSR GB:STX 53280..2T.RTS
.A2C.;..2D.;...S.ET,S.ETA.XIS.....2F.Q4
LDY #$D0:JSR .Y:BEQ AXI.(3H.JSR GB:TXA:.
#15:STA 830:. #3:STA 836:RTS.D3L.AXI JS
R CHR.:CMP #65:BCC A1:CMP #68:BCC A2:A1
JMP $AF08..3N.A2 TAX:LDA $7A:PHA:LDA $7B
:PHA:TXA:SEC:SBC #65:ASL:ASL:ASL:ASL:ASL
:ASL:TAY..3P.A3 JSR CHR.:STA U,Y:BEQ A5:
INY:BNE A3..3R.A5 PLA:STA $7B:PLA:STA $7
A..4X.JSR CHR..E4..A4 LDA #0:STA 834:JSR
FRMNUM:JSR RU:LDX #.XK0:LDY #.XK0.Z4..J
SR EINMIT:JSR RU:LDX #.YK0:LDY #.YK0:JSR
FACMEM..4..JSR CHKCOM:JSR FRMNUM..4..LD
X #.C:LDY #.C:JSR FACMEM.N4..JSR RD:LDA
#0:STA FLAG..4..LDX #.ALPHA:LDY #.ALPHA:
JSR FACMEM..4..JSR ..35..LDX #..AL:LDY #
..AL:JSR FACMEM:JSR HOLEAL:JSR ..G5..LDX
#..AL:LDY #..AL:JSR FACMEM:LDA $61:BEQ
AXI2..5..JSR HOLEAL:JSR $E2B4:LDX #..AL:
LDY #..AL:JSR FACMEM..5..AXI2 JSR $79:BN
E SEE11.Q5..LDA #2:STA 842:RTS..6..SEE11
CMP #"!":BNE SEE1:LDA #3:STA 842:LDA #2
50:STA 834:JMP CHR...6..SEE1 LDA #3:STA
842.H6(.JSR CHKCOM:JSR FRMNUM.S6*.JSR RD
.X6+.LDX #.BETA:LDY #.BETA:JSR FACMEM..6
,.LDA $61:BNE SE2:JSR SE0:JMP $79..6..SE
2 LDA #.ALPHA:LDY #.ALPHA:JSR MEMFAC:LDA
$61:BNE SE3:JSR SE0:JMP $79.87/.SE3 LDA
#.BETA:LDY #.BETA:JSR MEMPLUS:LDA #.$E2
E0:LDY #$E2:JSR $BC5B:BNE SE1._70.LDA #.
$E2E0:LDY #.$E2E0:JSR MEMFAC..71.LDX #..
GAST:LDY #..GAST:JSR FACMEM..72.LDA #1:S
TA FLAG.C74.SE1 LDA #.BETA:LDY #.BETA:JS
R MEMFAC..8D.JSR .:LDX #..BE:LDY #..BE:J
SR FACMEM:JSR HOLEBE:JSR $E2B4.$8F.LDX #
..BE:LDY #..BE:JSR FACMEM.L8P.LDA #..AL:
LDY #..AL:JSR MEMDIV:JSR ZUS.RA:JSR $BF7
1:JSR $E30E:JSR ...8Z.LDX #..ALST:LDY #.
.ALST:JSR FACMEM:JSR TS:JSR MEMFAC..8D.L
DA #.$B9BC:LDY #.$B9BC:JSR MEMDIV:JSR $B
F71:JSR $E30E:JSR ..&9N.LDX #..BEST:LDY
#..BEST:JSR FACMEM:LDA FLAG:BEQ SE4:JMP
$79.N9S.SE4 JSR HOLEBE:JSR $E2B4:JSR ZUS
.RA..9X.JSR HOLEAL:LDA #.$E2E0:LDY #.$E2
E0:JSR MEMMIN..9..LDA #.BETA:LDY #.BETA:
JSR MEMMIN:JSR $BFB4:JSR $E2B4..9..JSR T
S:JSR MEMDIV:JSR $BF71:JSR $E30E:JSR ...
:..LDX #..GAST:LDY #..GAST:JMP FACMEM.1:
..EINMIT JSR FACMEM:JSR CHKCOM.@:..JMP F
RMNUM.[:..RU JSR $B849:JMP $BCCC..:..HOL
EAL LDA #.ALPHA:LDY #.ALPHA:JMP MEMFAC..
:..HOLEBE LDA #.BETA:LDY #.BETA:JMP MEMF
AC..;..RD LDA #.$AEA8:LDY #.$AEA8:JSR ME
MMULT:LDA #.H180:LDY #.H180:JMP MEMMULT.
*;".ZUS.RA LDX #.SO:LDY #.SO:JMP FACMEM.
G;,.TS LDA #.SO:LDY #.SO:RTS..;J.SE0 LDX
#.ALPHA:LDY #.ALPHA:JSR FACMEM:LDX #.BE
TA:LDY #.BETA:JSR FACMEM..;K.LDX #..BE:L
DY #..BE:JSR FACMEM.Y;L.LDX #..AL:LDY #.
.AL:JSR FACMEM..;M.LDX #..AL:LDY #..AL:J
SR FACMEM.#<N.LDA #.$B9BC:LDY #.$B9BC:JS
R MEMFAC.J<O.LDX #..BEST:LDY #..BEST:JSR
FACMEM.Q<P.LDX #..ALST:LDY #..ALST:JSR
FACMEM..<R.LDX #..GAST:LDY #..GAST:JSR F
ACMEM..<T.LDX #..AL:LDY #..AL:JSR FACMEM
..<V.LDX #..BE:LDY #..BE:JMP FACMEM..<H.
XK .. ..5..<K.YK .. ..5..=M.XK0 .. ..5
..=R.YK0 .. ..5.)=W.XK1 .. ..5.8=|.YK1 .
. ..5.G=~.ZK1 .. ..5.V=..XK2 .. ..5.E=..
YK2 .. ..5.T=..ZK2 .. ..5..=..CO .. ..5.
.=..SI .. ..5..=...BYT 0,0..=..K .
. ..5.C=..ALPHA .. ..5.T=...AL .. ..
5..=...AL .. ..5..=...AL .. ..5..>..
BETA .. ..5..>...BE .. ..5.+>...BE
.. ..5.<>...BEST .. ..5.M>...ALST .. .
.5.^>...GAST .. ..5.Q>..C .. ..5..
>..SO .. ..5..>B.H180 .BYT 121,5
4,11,96,182.M>L.TEN .BYT 115,81,183,23,8
9 ; 10..4..>V.X1L .BYT 1..>..X1H .BYT 1
..>..Y1 .BYT 1..?..Y1H .BYT 1..?..X2L .
BYT 2.'?..X2H .BYT 2.6?..Y2 .BYT 2.E?..
Y2H .BYT 2.T?..XL .BYT 3.C?..XH .BYT 3
.R?&.Y .BYT 3..?+.YH .BYT 3..?0.S1 .
BYT 1..?:.S2 .BYT 2..?=.N1 .BYT 1..??.
N2 .BYT 2.L?D.INL .BYT 0..?N.INH .BYT 0
..?X.XR .BYT 0..@R.I1L . XK.1:I1H . XK.2
..@T.I2L . XK.3:I2H . XK.4.7@V.DXL . YK.
1:DXH . YK.2.Q@X.DYL . YK.3:DYH . YK.4._
@`.XU .. ..5.M@A.XO .. ..5.{@D.SS .. ..5
..@..;...Q.....@..;V.ROUTINEN..@..MAKEX
LDA N1:BEQ MAKX2:LDA S1:BMI MAKX1:INC XL
:BNE MAKX2:INC XH..@..MAKX2 RTS.!A..MAKX
1 DEC XL:LDA XL: CMP #$FF:BNE MAKX2:DEC
XH:RTS.HAJ.MAKEY LDA N2:BEQ MAKX2:LDA S2
:BMI MAKY1:INC Y:BNE MAKX2:INC YH:RTS..A
T.MAKY1 DEC Y:LDA Y:CMP #$FF:BNE MAKX2:D
EC YH:RTS.EA..PUNKT1 LDA #.YK1:LDY #.YK1
:JSR ROT2D..A..LDA #.XK1:LDY #.XK1:JSR R
OT2D1..B..LDA #.XK1:LDY #.XK1:JSR ROT2D2
..B..LDA #.YK1:LDY #.YK1:JSR ROT2D3.NB..
JSR ZUX1:JSR HOLEK:JMP ZUY1.SB$.HOLEK LD
A #.K:LDY #.K:JMP MEMFAC..B...Y STY SO:L
DY #0..B8.LDA ($7A),Y:CMP SO:RTS.CBB..ED
LDY #"F":JSR .Y:BNE TE4..BL.LDA #1:STA
P:BNE TE1..BV.TE4 LDY #"D":JSR .Y:BNE TE
2..C`.LDA #2:STA P:BNE TE1.5CJ.TE2 LDY #
"E":JSR .Y:BEQ TE3.CCT.JMP $AF08.ZC~.TE3
LDA #250:STA P.KC..TE1 JMP CHR...C..ROT
2D JSR MEMFAC..C..LDA #..AL:LDY #..AL:JS
R MEMMULT:JMP ZUS.RA.EC..ROT2D1 JSR MEMF
AC..C..LDA #..AL:LDY #..AL:JSR MEMMULT:J
SR TS:JSR MEMPLUS.#D..LDX #..BEST:LDY #.
.BEST:JSR FACMEM.EDD.LDA #.CO:LDY #.CO:J
SR MEMMULT.IDF.LDA #.YK0:LDY #.YK0:JSR M
EMPLUS..DI.JSR $B849:JSR $BCCC:JMP ZUK..
DN.ROT2D2 JSR MEMFAC.NDX.LDA #..AL:LDY #
..AL:JSR MEMMULT:JMP ZUS.RA..D..ROT2D3 J
SR MEMFAC.%E..LDA #..AL:LDY #..AL:JSR ME
MMULT:JSR TS:JSR MEMMIN:JSR ZUS.RA.JE..L
DA #.SI:LDY #.SI:JSR MEMFAC:LDA #..BEST:
LDY #..BEST:JSR MEMMULT..E..JSR TS:JSR M
EMPLUS..E..LDA #.XK0:LDY #.XK0:JSR MEMPL
US..E..JSR $B849:JMP $BCCC..E..ZUX1 LDX
#.XK1:LDY #.XK1:JMP FACMEM..F..ZUX2 LDX
#.XK2:LDY #.XK2:JMP FACMEM.5F..ZUY1 LDX
#.YK1:LDY #.YK1:JMP FACMEM.]F(.ZUY2 LDX
#.YK2:LDY #.YK2:JMP FACMEM..F2.ZUY LDX
#.YK:LDY #.YK:JMP FACMEM..F7.ZUX LDX #.
XK:LDY #.XK:JMP FACMEM.QF<.ZUZ1 LDX #.ZK
1:LDY #.ZK1:JMP FACMEM..FF.ZUZ2 LDX #.ZK
2:LDY #.ZK2:JMP FACMEM..GK.ZUK LDX #.K:L
DY #.K:JMP FACMEM.DGP.MULTX LDA #.SX:LDY
#.SX:JMP MEMMULT.LGZ.MULTY LDA #.SY:LDY
#.SY:JMP MEMMULT..GD.MULTZ LDA #.SZ:LDY
#.SZ:JMP MEMMULT..G..;HAUPTROUTINE.QG .
Q6 LDA #0:STA FLAG:STA FLAG1:STA FLAGC..
G...T JSR .ED..H..JSR FRMNUM:JSR MULTX:J
SR RU.4H..LDX #.XK1:LDY #.XK1:JSR EINMIT
:JSR MULTY:JSR RU.RHC.JSR ZUY1:LDX #255:
STX 990.NHH.LDA 842:CMP #2:BEQ LIN1..HR.
JSR CHKCOM:JSR FRMNUM:JSR MULTZ:JSR RU:J
SR ZUZ1.GH..LIN1 LDA FLAG:BPL LIN1.8:JMP
$79..H..; LIN1.8:LDY #164:JSR .Y:BEQ LI
N2:JMP $AF08.%I..LIN2 JSR CHR.:JSR FRMNU
M:JSR MULTX:JSR RU.HI..LDX #.XK2:LDY #.X
K2:JSR EINMIT.FI..JSR MULTY:JSR RU:JSR Z
UY2..I..LDA 842:CMP #2:BEQ LIN3..I".JSR
CHKCOM:JSR FRMNUM:JSR MULTZ:JSR RU:JSR Z
UZ2.ZI,.LIN3 LDA FLAG:BEQ LIN18:JMP $79.
$J1.LIN18 LDA 842:CMP #2:BEQ LIN4:LDA 83
4:BMI KOMM:JMP LIN11:KOMM JMP GAK.8J;.LI
N4 JSR PUNKT1.ZJ@.LDA #.YK2:LDY #.YK2:JS
R ROT2D.}JJ.LDA #.XK2:LDY #.XK2:JSR ROT2
D1. JT.LDA #.XK2:LDY #.XK2:JSR ROT2D2.CJ
^.LDA #.YK2:LDY #.YK2:JSR ROT2D3..JH.JSR
ZUX2:JSR HOLEK:JSR ZUY2..K|.SP.G LDA #0
:STA FLAG:JSR K.VER1:JSR K.VER2.5KB.LDA
#.XK1:LDY #.XK1:JSR MEMFAC.YKG.LDA #.XK2
:LDY #.XK2:JSR MEMMIN:JSR ZUK:JSR $BC39:
LDA $66:STA S1..KI.LDA $61:STA N1:JSR HO
LEK:JSR $BC58:JSR $BC9B.NKJ.LDA $65:STA
DXL:LDA $64:STA DXH..KL.LDA #.YK1:LDY #.
YK1:JSR MEMFAC.5LQ.LDA #.YK2:LDY #.YK2:J
SR MEMMIN:JSR ZUK:JSR $BC39:LDA $66:STA
S2.FL..LDA $61:STA N2:JSR HOLEK:JSR $BC5
8:JSR $BC9B..L..LDA $65:STA DYL:LDA $64:
STA DYH:LDA #0:STA 837.DL..LDA DXH:CMP D
YH:BCC B1:BEQ B1.8:BCS B3..L..; B1.8 :LD
A DXL:CMP DYL:BCS B3..M..B1 LDA #1:STA 8
37:LDY DXL:LDA DYL:STA DXL:STY DYL.AM..L
DY DXH:LDA DYH:STA DXH:STY DYH.PM..B3 LD
A DYL:ASL:STA I1L:LDA DYH:ROL:STA I1H..M
&.LDA DXL:ASL:STA I2L:LDA DXH:ROL:STA I2
H.TM0.SEC:LDA I1L:SBC DXL:STA 840:LDA I1
H:SBC DXH:STA 841..M:.LDX #1:STX INL:DEX
:STX INH.1N?.LDA X1L:STA XL:LDA X1H:STA
XH:LDA Y1:STA Y:LDA Y1H:STA YH.AND.B14 J
SR PO.:BCS ENE:LDA XR:BEQ B14.13:JSR I.}
NE.; B14.13:LDA 841:BMI B5..NF.LDA 837:B
EQ B6:JSR MAKEX..NI.JMP B6.3:ENE BCS .EE
.DNN.B6 JSR MAKEY..NX.SEC:LDA 840:SBC I2
L:STA 840:LDA 841:SBC I2H:STA 841.%OB.B5
LDA 837:BEQ B8:JSR MAKEY:JMP B8.3.6OL.B
8 JSR MAKEX.NOV.CLC:LDA 840:ADC I1L:STA
840:LDA 841:ADC I1H:STA 841..O..INC INL:
BNE B11:INC INH..O..B11 LDA DXH:CMP INH:
BCC .E:BEQ B13:BCS B14.YO..B13 LDA DXL:C
MP INL:BCS B14."P...E LDA X2L:STA XL:LDA
X2H:STA XH:LDA Y2:STA Y:LDA Y2H:STA YH:
JSR PO..LP...EE LDA X2L:STA X1L:LDA X2H:
STA X1H:LDA Y2:STA Y1:LDA Y2H:STA Y1H:RT
S..PF.PO. LDX #0:STX 1017:DEX:STX 994:LD
A P:CMP #2:BNE FOL.XPP.INC FLAGC:LDA FLA
GC:LINIE . #1:BNE FOL:CLC:RTS..QU.FOL JS
R TT:LDX 1018:BEQ F1:CPX #1:BNE F2:TAY:B
EQ F1..QW.PE CLC:RTS.CQX.F2 CPX #2:BNE F
3:TAY:BEQ F1:LDX P:LDA #250:STA P:STX 99
7:BNE F1..Q..F3 CPX #255:BNE F4:TAY:BEQ
PE:F5 LDA XL:STA 993:LDA XH:STA 994.EQ..
LDA Y:STA 995:SEC:BCS PE.1..R..F4 CPX #1
00:BNE F1:TAY:BEQ F1:INC 990:LDA 990:CMP
991:BNE PE:BEQ F5.;R..F1 LDA 1003:CMP X
H:BEQ P3:BCS P3.10:BCC O.BR..P3 LDA 1002
:CMP XL:BCS P3.10:BCC O..R..LDA 1001:CMP
XH:BEQ P5:BCC P5.10:BCS O..R..P5 LDA 10
00:CMP XL:BEQ P5.10:BCS O..R..LDA YH:BNE
O:LDX Y:BEQ P6:DEX:CPX 1005:BCS O..R..P
6 CPX 1004:BCS O.5..S..O LDA FLAG1:LSR:R
TS.*S/.LDA #1:STA FLAG1.ZS4.LDA Y:. #$F8
:STA 835:STA $64:LDA #0:STA $65.~S>.ASL
$64:ROL $65:ASL $64:ROL $65..SH.CLC:LDA
$64:ADC 835:STA $64:LDA $65:ADC #0:STA $
65..SR.ASL $64:ROL $65:ASL $64:ROL $65:A
SL $64:ROL $65:LDA Y:. #7.#T\.CLC:ADC $6
4:STA $64:LDA $65:ADC #0:STA $65.`TF.CLC
:LDA XL:. #$F8:ADC $64:STA $64:LDA XH:AD
C $65:STA $65. TP.CLC:LDA #.$E000:ADC $6
4:STA $64:LDA #.$E000:ADC $65:STA $65.AT
Z.LDA XL:. #7:E. #7:TAX:LDA #1..T..PO5 D
EX:BMI PO:ASL A:BNE PO5..T..PO LDX 1017:
BPL PO9:RTS.GU..PO9 LDX 839:BEQ PO00:LDX
#0:PHA:LDY #52:SEI:STY 1:LDY #0:LDA ($6
4),Y.GU..STA 2:LDY #55:STY 1:CLI:PLA..U.
.PO10 INX:STA 835:. #3:BEQ PO11..U..PO15
LDA 2:. #252:STA 2:LDA 836.JU..PO12 DEX
:BEQ EQ:ASL:ASL..V..PHA:LDA 2:JSR EL:JSR
EL:STA 2:PLA:JMP PO12:EQ BEQ E1..V..PO1
1 LDA 835:LSR:LSR.KV..PHA:LDA 2:JSR ER:J
SR ER:STA 2:PLA:JMP PO10..V..PO00 PHA:SE
C:LDA $65:SBC #$E0:STA PTTR.1:LDA $64:ST
A PTTR.FV..LSR PTTR.1:R. PTTR:LSR PTTR.1
:R. PTTR:LSR PTTR.1:R. PTTR..W..LDA PTTR
.1:CLC:ADC #$C0:STA PTTR.1:LDY #0:LDA 83
0:ASL:ASL:ASL:ASL.CW..STA 835:LDA (PTTR)
,Y:. #15:.A 835:STA (PTTR),Y:PLA.VW..POI
N6 LDY #0:LDX #52:SEI:STX 1:LDX P:BMI PO
IN7..W...A ($64),Y:BNE POIN8..WJ.POIN7 E
. #$FF:. ($64),Y..WT.POIN8 STA ($64),Y:L
DX #55:STX 1:LDX 997:BEQ PP:STX P:PP CLI
:CLC:RTS.%X..E1 TAX:LDA 2:LDY #0:STA ($6
4),Y:TXA:JMP POIN6.JX..EL CLC:ROL:BCC EE
2:.A #1:EE2 RTS.PX..ER CLC:R.:BCC EE3:.A
#128:EE3 RTS..X$.K.VER1 LDA #.XK1:LDY #
.XK1:JSR MEMFAC.HX..JSR $BC9B:LDA $64:ST
A X1H:LDA $65:STA X1L..X8.LDA #.YK1:LDY
#.YK1:JSR MEMFAC:JSR $BC9B..YB.LDA $65:S
TA Y1:LDA $64:STA Y1H:RTS.FYL.K.VER2 LDA
#.XK2:LDY #.XK2:JSR MEMFAC.TYV.JSR $BC9
B:LDA $64:STA X2H:LDA $65:STA X2L..Y`.LD
A #.YK2:LDY #.YK2:JSR MEMFAC:JSR $BC9B.H
YJ.LDA $65:STA Y2:LDA $64:STA Y2H:RTS..Z
..GAK JSR WEC:LDA #0:STA FLAGC:LDA #.BET
A:LDY #.BETA:JSR ROUT1:JSR ZUX1.AZ..LDA
#..BEST:LDY #..BEST:JSR ROUT1:JSR ZUX2.L
Z..LDA #..BE:LDY #..BE:JSR ROUT2:JSR ZUY
1..Z..LDA #..ALST:LDY #..ALST:JSR ROUT2:
JSR ZUY2:JSR SP.G.OZ..LDA #..BE:LDY #..B
E:JSR ROUT3:JSR ZUY1..[..LDA #..GAST:LDY
#..GAST:JSR ROUT3:JSR ZUY2:JSR SP.G.C[.
.LDA #0:STA FLAGC:LDA #..BE:LDY #..BE:JS
R ROUT4:JSR ZUX1..[..LDA #..ALST:LDY #..
ALST:JSR ROUT4:JSR ZUX2:JSR SP.G:JMP WEC
.K[X.ROUT1 JSR MEMFAC:LDA #.XK0:LDY #.XK
0:JSR MEMMIN:JSR $B849:JMP $BCCC..\..ROU
T2 JSR MEMFAC:LDA #.C:LDY #.C:JSR MEMPLU
S:LDA #.YK0:LDY #.YK0.4\..JSR MEMPLUS:JS
R $B849:JMP $BCCC.|\..ROUT3 JSR MEMFAC:L
DA #.YK0:LDY #.YK0:JSR MEMMIN:JSR $B849:
JMP $BCCC.A\..ROUT4 JSR MEMFAC:LDA #.C:L
DY #.C:JSR MEMPLUS:LDA #.XK0:LDY #.XK0..
\..JSR MEMPLUS:JSR $B849:JMP $BCCC.,]..W
EC LDA #.XK1:LDY #.XK1:JSR MEMFAC:LDA #.
BETA:LDY #.BETA:JSR $BA8C.R]..LDX #.BETA
:LDY #.BETA:JSR FM:JSR $BBFC:LDX #.XK1:L
DY #.XK1:JSR FM..]..LDA #.YK1:LDY #.YK1:
JSR MEMFAC:LDA #..BE:LDY #..BE:JSR $BA8C
..]..LDX #..BE:LDY #..BE:JSR FM:JSR $BBF
C:LDX #.YK1:LDY #.YK1:JSR FM.8^..LDA #.Z
K1:LDY #.ZK1:JSR MEMFAC:LDA #..BE:LDY #.
.BE:JSR $BA8C.|^..LDX #..BE:LDY #..BE:JS
R FM:JSR $BBFC:LDX #.ZK1:LDY #.ZK1:JSR F
M.A^..LDA #.XK2:LDY #.XK2:JSR MEMFAC:LDA
#..BEST:LDY #..BEST:JSR $BA8C.._..LDX #
..BEST:LDY #..BEST:JSR FM:JSR $BBFC:LDX
#.XK2:LDY #.XK2.._..JSR FM.R_..LDA #.YK2
:LDY #.YK2:JSR MEMFAC:LDA #..ALST:LDY #.
.ALST:JSR $BA8C.._..LDX #..ALST:LDY #..A
LST:JSR FM:JSR $BBFC:LDX #.YK2:LDY #.YK2
.._..JSR FM.._..LDA #.ZK2:LDY #.ZK2:JSR
MEMFAC:LDA #..GAST:LDY #..GAST:JSR $BA8C
.$`..LDX #..GAST:LDY #..GAST:JSR FM:JSR
$BBFC:LDX #.ZK2:LDY #.ZK2./`..JMP FM.Z`.
.PUNKT3D LDA #.YK1:LDY #.YK1:JSR ROT3D1.
}`..LDA #.XK1:LDY #.XK1:JSR ROT3D2. `..L
DA #.XK1:LDY #.XK1:JSR ROT3D3.C`..LDA #.
YK1:LDY #.YK1:JSR ROT3D4..`..LDA #.ZK1:L
DY #.ZK1:JSR ROT3D5.&A..JSR $B849:JSR $B
CCC:JSR ZUY1:LDA #.X1L:LDY #.X1L:JSR MEM
FAC.GA(.JSR $B849:JSR $BCCC:JMP ZUX1.]A.
.LIN11 JSR PUNKT3D..A..LDA #.YK2:LDY #.Y
K2:JSR ROT3D1..A..LDA #.XK2:LDY #.XK2:JS
R ROT3D2.FAH.LDA #.XK2:LDY #.XK2:JSR ROT
3D3..AR.LDA #.YK2:LDY #.YK2:JSR ROT3D4..
B..LDA #.ZK2:LDY #.ZK2:JSR ROT3D5.LB..JS
R $B849:JSR $BCCC:JSR ZUY2:LDA #.X1L:LDY
#.X1L:JSR MEMFAC.MB..JSR $B849:JSR $BCC
C:JSR ZUX2.ZB..JMP SP.G.AB..I LDA Y:CMP
#200:BCS ROT3D1.1:STA K.1:LDA P:STA K.2:
LDA #250:STA P..B".; I.21:INC Y:LDA Y:CM
P XR:BCS I.38..B,.JSR F1:JMP I.21.'C6.;
I.38:LDA K.1:STA Y:LDA K.2:STA P:RTS.LCP
.ROT3D1 JSR MEMFAC:LDA #..BEST:LDY #..BE
ST:JSR MEMMULT:JMP ZUS.RA..CZ.ROT3D2 JSR
MEMFAC:LDA #..ALST:LDY #..ALST:JSR MEMM
ULT.GC..LDA #.SO:LDY #.SO:JSR MEMMIN..C.
.LDA #.XK0:LDY #.XK0:JSR MEMPLUS..D..LDX
#.X1L:LDY #.X1L:JMP FACMEM.HD..ROT3D3 J
SR MEMFAC:LDA #..ALST:LDY #..ALST:JSR ME
MMULT.TD..LDA #..AL:LDY #..AL:JSR MEMMUL
T:JMP ZUK..D..ROT3D4 JSR MEMFAC:LDA #..B
EST:LDY #..BEST:JSR MEMMULT.RD..LDA #..B
E:LDY #..BE:JSR MEMMULT..DJ.LDA #.K:LDY
#.K:JSR MEMPLUS:JMP ZUK.4ET.ROT3D5 JSR M
EMFAC:LDA #..GAST:LDY #..GAST:JSR MEMMUL
T.XE..LDA #..BE:LDY #..BE:JSR MEMMULT.WE
..LDA #.K:LDY #.K:JSR MEMMIN..E..LDA #.Y
K0:LDY #.YK0:JMP MEMPLUS..E..;...TE.ST..
...E..Q32 LDA #0:STA 999:STA YH:JSR $B7E
B:JSR PROBE..F..STX Y:LDA $14:STA XL:LDA
$15:STA XH.JF..TT LDA #250:STA 1017:JSR
O.10:STA 1015:LDX #52:SEI:STX 1:LDY #0.
TF..LDA ($64),Y:LDX #55:STX 1:CLI:STA 99
8..FA.. 1015:BNE TE..FB.LDX 839:BEQ TE:L
DX #0:LDA 1015.IFD.T1 INX:STA 1015:. #3:
BEQ T2.WFN.T3 LDA #3..FX.T4 DEX:BEQ T5:A
SL:ASL:JMP T4..G..T2 LDA 1015:LSR:LSR:JM
P T1.$G..T5 . 998.GG..TE STA 999:LDX #0:
STX 1017:RTS.TGX.;...S....OGB.Q8 JSR $B7
EB:JSR PROBE..GL.LDA $14:STA 1000:LDA $1
5:STA 1001:STX 1004..GV.LDA #164:JSR $AE
FF.MG{.JSR $B7EB:JSR PROBE..H..LDA $14:S
TA 1002:LDA $15:STA 1003:STX 1005:RTS.@H
..PROBE LDA $15:CMP #.320:BEQ PROBE.11:B
CC PROBE.20:JMP $B248.XHF.; PROBE.11:LDA
$14:CMP #.320:BCC PROBE.20:JMP $B248..H
P.; PROBE.20:CPX #200:BCC TE.8:JMP $B248
..H..;...AL.INE.....H..Q7 LDA #250:STA F
LAG:STA FLAGC:STA FLAG1:JSR .T:JSR CHKCO
M.9I..JSR FRMNUM:JSR ZUS.RA:JSR CHKCOM:J
SR FRMNUM:JSR RD:JSR ZUK:JSR ..II..JSR T
S:JSR MEMMULT:LDA 842:CMP #3:BEQ ALIN1..
I..LDA #.XK1:LDY #.XK1:JSR MEMPLUS:JSR $
B849:JSR $BCCC.HI..JSR MULTX:JSR ZUX2:JS
R HOLEK:JSR ...I..JSR TS:JSR MEMMULT.!J.
.LDA #.YK1:LDY #.YK1:JSR MEMPLUS:JSR $B8
49:JSR $BCCC:JSR MULTY.7JE.JSR ZUY2:JMP
LIN4.FJJ.ALIN1 JSR ZUX:JSR CHKCOM:JSR FR
MNUM:JSR RD..JO.JSR ZUY:JSR .:LDA #.XK:L
DY #.XK.MJT.JSR MEMMULT:LDA #.XK1:LDY #.
XK1:JSR MEMPLUS:JSR MULTX:JSR ZUX2..KY.L
DA #.K:LDY #.K:JSR MEMFAC:JSR .:JSR ZUK:
LDA #.YK:LDY #.YK..K..JSR MEMFAC.HK..JSR
.:LDA #.K:LDY #.K:JSR MEMMULT:JSR TS..K
..JSR MEMMULT:LDA #.YK1:LDY #.YK1:JSR ME
MPLUS:JSR MULTY:JSR ZUY2..K..LDA #.YK:LD
Y #.YK:JSR MEMFAC:JSR .:JSR TS..K..JSR M
EMMULT:LDA #.ZK1:LDY #.ZK1:JSR MEMPLUS..
L..JSR MULTZ:JSR ZUZ2:LDA 834:BMI GAKAL:
JMP LIN11..L..GAKAL JMP GAK.4L..;.AL..;.
..X....WL2.; Q29.19:JSR FRMNUM:JSR $B7F7
:JSR $A8A3:JMP $A7AE.}L6.;..L@.;...LM.OD
E.....LJ.; Q29.7:JSR GB:STX 1018:RTS..L.
.;.HL..;...ST.ATUS.....M..Q29 LDA #15:LD
X #8:LDY #15:JSR $FFBA:LDA #0:JSR $FFBD:
JSR $FFC0."M..LDX #15:JSR $FFC6.VMB.; Q2
9.22:JSR $FFCF:JSR $FFD2:BIT 144:BVC Q29
.22.VML.JSR $FFCC:LDA #15:JSR $FFC3.~MV.
RTS..M..;..M. ;...IN.VERS.....M. Q13 LDA
#250:STA FLAG:JMP Q2.5.HML SX .. ..5.VM
V SY .. ..5..M. SZ .. ..5..MF ;..MP ;...
SC.ALE....=NZ Q9 JSR FRMNUM:LDX #.SX:LDY
#.SX:JSR FACMEM:JSR $79:BEQ Q29.1.LN. J
SR CHKCOM..N. JSR FRMNUM:LDX #.SY:LDY #.
SY:JSR FACMEM:JSR $79:BEQ Q29.1.AN. JSR
CHKCOM:JSR FRMNUM:LDX #.SZ:LDY #.SZ:JMP
FACMEM.GN.!;.WN.!;...DO.T.....O.!Q23 LDA
#250:STA FLAG:JSR .T:LDA 842:CMP #2:BNE
D1:JSR PUNKT1.<O.!; Q23.18:JSR K.VER1:J
SR CHANGE..O.!LDA X1L:STA XL:LDA X1H:STA
XH:LDA Y1:STA Y:LDA Y1H:STA YH:JMP PO..
.O.!D1 LDA 834:BMI D1.11:JSR PUNKT3D:JMP
Q23.18..OJ!; D1.11:LDA #.XK1:LDY #.XK1:
JSR MEMFAC:JSR ZUX2..PT!LDA #.YK1:LDY #.
YK1:JSR MEMFAC:JSR ZUY2.FP.!LDA #.ZK1:LD
Y #.ZK1:JSR MEMFAC:JSR ZUZ2:JMP GAK.LPV"
;.^P`";...DM.ODE.....PJ"; Q15.7:JSR GB:S
TX LINIE.1:RTS..P.";..P(#;...RA.Y....LP2
#Q15 LDA #250:STA FLAG:STA FLAGC:STA FLA
G1:JSR .T..Q7#LDA 842:CMP #3:BEQ RA3 ; Q
15.21:JSR PUNKT1:JSR $79:BEQ AUS2.$Q8#JS
R CHANGE:JSR CHR..6Q9#AUS2 JMP SP.G.`Q<#
CHANGE LDA #.XK1:LDY #.XK1:JSR MEMFAC..Q
F#LDA #.XK2:LDY #.XK2:JSR $BA8C:JSR ZUX2
:JSR $BBFC:JSR ZUX1.AQP#LDA #.YK1:LDY #.
YK1:JSR MEMFAC..QZ#LDA #.YK2:LDY #.YK2:J
SR $BA8C:JSR ZUY2:JSR $BBFC:JSR ZUY1."R]
#LDA #.ZK1:LDY #.ZK1:JSR MEMFAC.`R`#LDA
#.ZK2:LDY #.ZK2:JSR $BA8C:JSR ZUZ2:JSR $
BBFC:JMP ZUZ1..RD#RA3 LDA 834:BMI RAA3:J
SR PUNKT3D:JSR $79:BEQ AUS2..RI#JSR CHAN
GE:JSR CHR.:JMP AUS2..RN#RAA3 JSR GAK:JS
R $79:BEQ Q21.1:JSR CHANGE:JMP CHR...R.#
;..S.#;...CO.PY.....S.#Q31 JSR GB:STX P.
OS.#COJUMP LDA #.$A000:STA PTR.1:LDA #.$
A000:STA PTR.}S.$LDA #.$E000:STA PNT.1:L
DA #.$E000:STA PNT..S.$LDX #$34:SEI:STX
1:LDX #32..S.$LAL1 LDY #0:STX K.SS.$LAL4
LDA P:BMI EZUA:BEQ ACHE..T.$LDA (PTR),Y
:LDX P:CPX #1:BNE AE:.A (PNT),Y:AE STA (
PNT),Y:JMP LAL2.DT.$EZUA LDA (PNT),Y:STA
(PTR),Y:JMP LAL2..T"$ACHE LDA (PTR),Y:P
HA:LDA (PNT),Y:STA (PTR),Y:PLA:STA (PNT)
,Y..T|$LAL2 INY:BNE LAL4.YT.$INC PTR.1:I
NC PNT.1:LDX K:DEX:BNE LAL1:LDX #$37:STX
1:CLI..T.$RTS..T.%;..T.%;...GS.AVE....#
U+%Q21 JSR $E1D4:LDX #.$C000:LDY #.$C000
.KU0%LDA #.$A000:STA $FD:LDA #.$A000:STA
$FE:LDA #$FD:LDX #$36:SEI:STX 1..U:%JSR
$FFD8:LDX #$37:STX 1:CLI:RTS..UZ%;..U.%
;...GL.OAD....RU.%Q20 JSR $E1D4:LDX #.$A
000:LDY #.$A000..U.%LDA #0:JSR $FFD5:RTS
..U.&;..V.';...PMODE.....V.'Q10 JSR GB:S
TX XR:RTS..VT';...BLO.CK....YV~'Q44 LDA
#0:STA FLAG:STA FLAG1:STA FLAGC:JSR TE4.
14:JSR $B7EB:JSR PROBE..V.'STX X1L..V.'L
DA $14:STA XL:LDA $15:STA XH.RV.'LDA #16
4:JSR $AEFF:JSR $B7EB:JSR PROBE..V.'STX
X1H:LDA $14:STA X2H:LDA $15:STA X2L.#W.'
BLO1 LDA X1L:STA Y:LDA #0:STA YH.ZW.'BLO
2 JSR PO.:INC Y:LDY Y:CPY X1H:BCC BLO2:B
EQ BLO2.UW.'INC XL:BNE BLO3:INC XH..W.'B
LO3 LDA XH:CMP X2L:BCC BLO1..WD'LDA XL:C
MP X2H:BCC BLO1:BEQ BLO1.CWN'RTS.IW.(;..
W.);...BO.RDER.....W.)Q11 JSR FRMNUM..X.
)LDX #.XU:LDY #.XU:JSR FACMEM:JSR CHKCOM
.*X.)JSR FRMNUM.]X.)LDX #.XO:LDY #.XO:JS
R FACMEM:JSR $79:BEQ Q11.1..XH)LDA #.XU:
LDY #.XU:JSR MEMFAC:JSR RD:LDX #.XU:LDY
#.XU:JSR FACMEM..XR)LDA #.XO:LDY #.XO:JS
R MEMFAC:JSR RD:LDX #.XO:LDY #.XO:JSR FA
CMEM..X|)JMP CHR...XB);..YL);...SS.TEP..
..BYV)Q26 JSR FRMNUM:JSR $79:BEQ Q26.14:
JSR RD:JSR CHR..LY.); Q26.14:LDX #.SS:LD
Y #.SS:JMP FACMEM.RY.*;..Y.*;...WR.ITE..
...Y.+Q17 LDA #250:STA FLAG:STA FLAGC:ST
A FLAG1:JSR .T.SY.+LDA 842:CMP #3:BEQ W3
..Y.+JSR PUNKT1:JMP W4..Z +W3 LDA 834:BM
I W4:JSR PUNKT3D.9Z*+W4 JSR K.VER1:LDA Y
1:STA Y:LDA Y1H:STA YH.QZ4+JSR CHKCOM:JS
R GB:STX K.1:JSR CHKCOM:LDX #0:STX 840..
Z9+LDX #$FF:STX 13:JSR $AD9E:JSR $B782:S
TY 996:DEY:CMP #$FF:BNE RR:JMP $B248..{>
+RR LDY 840:LDA X1L:STA XL:LDA X1H:STA X
H:LDA ($22),Y:CMP #64:BCC W2.({H+CMP #96
:BCS W5:. #191:BCC W2.D{R+W5 BMI W6:. #2
23:BPL W2.R{W+W6 . #127..{\+W2 STA PNT:L
DY #0:STY PNT.1:ASL PNT:ROL PNT.1:ASL PN
T:ROL PNT.1.M{F+ASL PNT:ROL PNT.1:CLC:LD
A PNT.1:ADC #$D8:STA PNT.1..{P+WP LDY #7
..|Z+WW LDX #51:SEI:STX 1:LDA (PNT),Y:ST
Y XK..|.+LDX #8:STX YK.;|.+WL ROL A:STA
K:BCC W0:JSR PO..W|.+W0 INC XL:BNE W7:IN
C XH..|.+W7 LDA K:DEC YK:BNE WL:DEC Y:LD
A Y:CMP #$FF:BNE W8..|.+DEC YH.P|.+W8 LD
A X1L:STA XL:LDA X1H:STA XH:LDY XK:DEY:B
PL WW..}.+CLC:LDA X1L:ADC K.1:STA X1L:LD
A X1H:ADC #0:STA X1H.'}E+LDA Y1:STA Y:LD
A Y1H:STA YH.Q}J+INC 840:LDY 840:CPY 996
:BEQ WE:JMP RR.N}T+WE LDX #55:STX 1:CLI:
RTS.T}.,;..}.,;...AN.GLE.....}.,Q19 JSR
FRMNUM:JSR $BFB4:JSR RD:JSR ZUK.Y}.-JSR
.:LDX #.CO:LDY #.CO:JSR FACMEM..~.-JSR H
OLEK:JSR .:LDX #.SI:LDY #.SI:JMP FACMEM.
.~|.U .. ..192..~V.;.0~..;...TA.ER....Y~
..Q25 LDA #$D0:JSR $AEFF:CMP #65:BCC DD1
:CMP #68:BCC DD2:DD1 JMP $AF08..~..DD2 S
EC:SBC #65.I~..TAX:LDA $7A:PHA:LDA $7B:P
HA:TXA:ASL:ASL:ASL:ASL:ASL:ASL..~..CLC:A
DC #.U:STA $7A:LDA #.U:ADC #0:STA $7B.,
./JSR $79:JSR A4:PLA:STA $7B:PLA:STA $7A
:JMP CHR..2J0;.FT0;...EL.LIPSE....R.0
Q16 LDA 842:CMP #2:BEQ Q16.10:JMP $AF08.
..0; Q16.10:LDA #250:STA FLAG:STA FLAGC
:JSR .T...0LDA #.XK1:LDY #.XK1:JSR MEMF
AC:LDX #..BE:LDY #..BE:JSR FACMEM.&..0LD
A #.YK1:LDY #.YK1:JSR MEMFAC:LDX #..BE:L
DY #..BE:JSR FACMEM.M..0JSR CHKCOM:JSR F
RMNUM:JSR MULTX:LDX #..ALST:LDY #..ALST:
JSR FACMEM....0JSR CHKCOM:JSR FRMNUM:JSR
MULTY:LDX #..GAST:LDY #..GAST:JSR FACME
M....1LDA #.XU:LDY #.XU:JSR MEMFAC:LDX #
.BETA:LDY #.BETA:JSR FACMEM:JSR EL3.-..1
JSR Q23.15:LDA $7A:STA SZ:LDA $7B:STA SZ
.1.P.31EL2 JSR $79:BEQ EL2.8:JSR CHR....
81LDA #.BETA:LDY #.BETA:JSR MEMFAC:LDA #
.XO:LDY #.XO:JSR $BC5B:BPL EL3.3...B1LDA
#.SS:LDY #.SS:JSR MEMPLUS:LDX #.BETA:LD
Y #.BETA:JSR FACMEM:JSR EL3...G1LDA SZ:S
TA $7A:LDA SZ.1:STA $7B.!.L1JSR Q15.21:J
MP EL2.5.J1; EL3.3:JMP $79.G.<2EL3 JSR .
:LDA #..ALST:LDY #..ALST:JSR MEMMULT...A
2LDA #..BE:LDY #..BE:JSR MEMPLUS:JSR ZUX
1...F2LDA #.BETA:LDY #.BETA:JSR MEMFAC..
.P2JSR .:LDA #..GAST:LDY #..GAST:JSR MEM
MULT.%.U2LDA #..BE:LDY #..BE:JSR MEMPLUS
:LDA #0:STA FLAG1:JMP ZUY1.+.G2;.>.H2;..
..HA.RD.....Y.R2Q22 JSR $B79E:STX PR.4.N
..2LDX #4:JSR $E118....2LDA #.$E000:STA
PNT:LDA #.$E000:STA PNT.1.O..2LDA #25:ST
A $62:LDX PR.4:CPX #10:BNE H6:JMP M1....
2H6 LDY #0....2H10 LDA PR,Y:JSR $FFD2:IN
Y:CPY #7:BNE H10....2LDA #40:STA $61.X..
3H0 LDA #8:STA $63:LDA #128:STA $64:SEI:
LDA #52:STA 1.U..3H4 LDY #7:LDA #0:STA $
65....3H3 LDA (PNT),Y:. $64:BEQ H1:LDA $
65:.A #128:STA $65.R."3H1 TYA:BEQ H2:LSR
$65:DEY:BPL H3...,3H2 LDA 1:E. #2:STA 1
:CLI:LSR $64:LDA $65:JSR $FFD2:LDA 1:E.
#2:SEI:STA 1.2.13DEC $63:BNE H4.B.63LDA
PNT:CLC:ADC #8:STA PNT:BCC H5:INC PNT.1.
..@3H5 LDA #55:STA 1:CLI:DEC $61:BNE H0.
.J3LDA #13:JSR $FFD2...T3DEC $62:BEQ H1
1:JMP H6...H3H11 LDA #27:JSR $FFD2:LDA #
64:JSR $FFD2...R3HHH LDA #4:JSR $FFC3:JS
R $ABB5:JMP $A7AE.3..3PR .BYT 27,49,27,4
2,0,64,1.K..3M1 LDA #8:JSR $FFD2.B..3M0
LDA #40:STA $61....3M2 LDA #7:STA $63:LD
A #128:STA $64:SEI:LDA #52:STA 1....3M3
LDY #0:STY $65.Q.B3M4 LDA (PNT),Y:. $64:
BEQ M5...L3LDA $65:.A #128:STA $65...V3M
5 TYA:CPY #7:BEQ M6:LSR $65:INY:BPL M4.X
..3M6 LDA 1:E. #2:STA 1:CLI:LSR $64:LDA
$65:.A #128:JSR $FFD2....3LDA 1:E. #2:SE
I:STA 1:DEC $63:BNE M3....3LDA PNT:CLC:A
DC #8:STA PNT:BCC M7:INC PNT.1.Y..3M7 LD
A #55:STA 1:CLI:DEC $61:BNE M2....4LDA #
13:JSR $FFD2:DEC $62:BEQ M8:JMP M0.'..4M
8 LDA #$0F:JSR $FFD2:JMP HHH.D..:.BYT 0,
0,0,0,0,0,0,0,0,0.T..>EUKL .BYT 0...
> CLICK IMAGE PREVIEW FOR FULL MODAL