HR.GRAPHICS PAL
FILE INFORMATION
FILENAME(S): HR.GRAPHICS PAL
FILE TYPE(S): PRG
FILE SIZE: 14.2K
FIRST SEEN: 2025-11-30 18:13:15
APPEARS ON: 1 disk(s)
FILE HASH
05ee91cf211dd8d2f72b797f2588e289d80c0f49d7327f7f74def54627a777e4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0140B | HR.GRAPHICS PAL | PRG | Sailor, Ganheden | 16 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 0A 00 9E 37 30 30 00 16 08 14 00 2E |.......700......|
00000010: 4F 50 54 20 4F 4F 00 28 08 1E 00 9C 53 43 52 4E |OPT OO.(....SCRN|
00000020: 20 B2 20 24 43 30 30 30 00 39 08 28 00 50 B0 54 | . $C000.9.(.P.T|
00000030: 41 20 B2 20 24 44 44 30 30 00 4B 08 32 00 44 44 |A . $DD00.K.2.DD|
00000040: 52 41 20 20 B2 20 24 44 44 30 32 00 5D 08 3C 00 |RA . $DD02.].<.|
00000050: 56 49 43 43 52 20 B2 20 24 44 30 31 31 00 70 08 |VICCR . $D011.p.|
00000060: 46 00 56 49 43 4D 43 52 20 B2 20 24 44 30 31 38 |F.VICMCR . $D018|
00000070: 00 82 08 50 00 42 B0 44 45 52 20 B2 20 24 44 30 |...P.B.DER . $D0|
00000080: 32 30 00 94 08 5A 00 53 54 41 52 54 20 B2 20 24 |20...Z.START . $|
00000090: 45 30 30 30 00 A2 08 64 00 90 20 B2 20 24 46 46 |E000...d.. . $FF|
000000A0: 33 46 00 B1 08 6E 00 43 48 52 A1 20 B2 20 24 37 |3F...n.CHR. . $7|
000000B0: 33 00 BF 08 78 00 BD 20 B2 20 24 42 37 46 31 00 |3...x.. . $B7F1.|
000000C0: D0 08 82 00 46 4C 54 BD 20 B2 20 24 41 44 39 45 |....FLT. . $AD9E|
000000D0: 00 E1 08 8C 00 46 4C 54 B5 20 B2 20 24 42 43 39 |.....FLT. . $BC9|
000000E0: 42 00 F2 08 96 00 B5 46 4C 54 20 B2 20 24 42 33 |B......FLT . $B3|
000000F0: 39 31 00 05 09 A0 00 53 54 50 52 54 4E 20 B2 20 |91.....STPRTN . |
00000100: 24 46 36 45 44 00 18 09 AA 00 42 52 45 41 4B 20 |$F6ED.....BREAK |
00000110: 20 B2 20 24 41 38 32 46 00 2B 09 B4 00 43 48 52 | . $A82F.+...CHR|
00000120: 4F 55 54 20 B2 20 24 46 46 44 32 00 3E 09 BE 00 |OUT . $FFD2.>...|
00000130: 43 48 4B 4F 55 54 20 B2 20 24 46 46 43 39 00 4D |CHKOUT . $FFC9.M|
00000140: 09 C8 00 A0 20 20 B2 20 24 46 46 43 33 00 5E 09 |.... . $FFC3.^.|
00000150: D2 00 49 45 52 52 B0 20 B2 20 24 33 30 30 00 70 |..IERR. . $300.p|
00000160: 09 DC 00 49 52 51 20 20 20 20 B2 20 24 33 31 34 |...IRQ . $314|
00000170: 00 80 09 E6 00 B5 48 49 47 48 20 B2 20 24 36 34 |......HIGH . $64|
00000180: 00 8F 09 F0 00 B5 4C 4F 57 20 B2 20 24 36 35 00 |......LOW . $65.|
00000190: 9E 09 FA 00 54 45 4D 50 20 B2 20 24 46 44 00 AF |....TEMP . $FD..|
000001A0: 09 04 01 43 4F 4C 4F 55 52 20 B2 20 24 46 43 00 |...COLOUR . $FC.|
000001B0: BE 09 0E 01 54 59 50 45 20 B2 20 24 31 39 00 CA |....TYPE . $19..|
000001C0: 09 18 01 83 20 3D 20 24 32 30 00 D8 09 22 01 58 |.... = $20...".X|
000001D0: 42 49 20 B2 20 24 32 31 00 E6 09 2C 01 56 59 20 |BI . $21...,.VY |
000001E0: B2 20 24 32 42 39 00 F4 09 36 01 56 58 20 20 B2 |. $2B9...6.VX .|
000001F0: 20 24 46 42 00 04 0A 40 01 B7 41 44 44 20 B2 20 | $FB...@..ADD . |
00000200: 24 33 31 31 00 12 0A 4A 01 58 31 20 B2 20 24 32 |$311...J.X1 . $2|
00000210: 41 37 00 20 0A 54 01 58 32 20 B2 20 24 32 41 39 |A7. .T.X2 . $2A9|
00000220: 00 2E 0A 5E 01 44 58 20 B2 20 24 32 41 42 00 3C |...^.DX . $2AB.<|
00000230: 0A 68 01 59 31 20 B2 20 24 32 41 44 00 4A 0A 72 |.h.Y1 . $2AD.J.r|
00000240: 01 59 32 20 B2 20 24 32 41 45 00 58 0A 7C 01 44 |.Y2 . $2AE.X.|.D|
00000250: 59 20 B2 20 24 32 41 46 00 69 0A 86 01 54 57 4F |Y . $2AF.i...TWO|
00000260: 44 58 20 B2 20 24 32 42 30 00 7A 0A 90 01 54 57 |DX . $2B0.z...TW|
00000270: 4F 44 59 20 B2 20 24 32 42 32 00 8C 0A 9A 01 52 |ODY . $2B2.....R|
00000280: 45 53 55 4C 54 20 B2 20 24 32 42 34 00 9E 0A A4 |ESULT . $2B4....|
00000290: 01 54 45 4D 50 58 32 20 B2 20 24 32 42 36 00 B0 |.TEMPX2 . $2B6..|
000002A0: 0A AE 01 54 45 4D 50 59 32 20 B2 20 24 32 42 38 |...TEMPY2 . $2B8|
000002B0: 00 BD 0A B8 01 AC B2 20 24 43 34 30 37 00 CD 0A |....... $C407...|
000002C0: C2 01 4A 4D 50 20 49 4E 49 54 41 4C 4C 00 D7 0A |..JMP INITALL...|
000002D0: CC 01 4A 4D 50 20 94 00 E7 0A D6 01 4E 4F 50 3A |..JMP ......NOP:|
000002E0: 4E 4F 50 3A 4E 4F 50 00 F5 0A E0 01 4A 4D 50 20 |NOP:NOP.....JMP |
000002F0: 42 4C 4F 43 4B 00 04 0B EA 01 4A 4D 50 20 42 4F |BLOCK.....JMP BO|
00000300: 58 46 49 4C 00 16 0B F4 01 4A 4D 50 20 43 4C 53 |XFIL.....JMP CLS|
00000310: 43 4F 4C 4F 55 52 00 25 0B FE 01 4A 4D 50 20 53 |COLOUR.%...JMP S|
00000320: 45 54 50 4E 54 00 35 0B 08 02 4A 4D 50 20 42 43 |ETPNT.5...JMP BC|
00000330: 4F 4C 4F 55 52 00 3F 0B 12 02 4A 4D 50 20 8C 00 |OLOUR.?...JMP ..|
00000340: 4E 0B 1C 02 4A 4D 50 20 43 49 52 43 4C 45 00 5B |N...JMP CIRCLE.[|
00000350: 0B 26 02 4A 4D 50 20 4C 49 4E 45 00 67 0B 30 02 |.&.JMP LINE.g.0.|
00000360: 4A 4D 50 20 42 4F 58 00 77 0B 3A 02 4A 4D 50 20 |JMP BOX.w.:.JMP |
00000370: 53 45 54 53 43 52 53 00 7D 0B 44 02 3B 00 8B 0B |SETSCRS.}.D.;...|
00000380: 4E 02 43 4C 45 41 52 20 B2 20 AC 00 91 0B 58 02 |N.CLEAR . ....X.|
00000390: 3B 00 A1 0B 62 02 4C 44 59 20 23 B1 53 54 41 52 |;...b.LDY #.STAR|
000003A0: 54 00 B2 0B 6C 02 53 54 59 20 54 45 4D 50 20 AA |T...l.STY TEMP .|
000003B0: 20 31 00 C2 0B 76 02 4C 44 59 20 23 B3 53 54 41 | 1...v.LDY #.STA|
000003C0: 52 54 00 CF 0B 80 02 53 54 59 20 54 45 4D 50 00 |RT.....STY TEMP.|
000003D0: D7 0B 8A 02 54 59 41 00 DF 0B 94 02 54 41 58 00 |....TYA.....TAX.|
000003E0: E7 0B 9E 02 53 45 49 00 F4 0B A8 02 4C 4F 4F 50 |....SEI.....LOOP|
000003F0: 20 B2 20 AC 00 05 0C B2 02 53 54 41 20 28 54 45 | . ......STA (TE|
00000400: 4D 50 29 2C 59 00 0D 0C BC 02 49 4E 59 00 1A 0C |MP),Y.....INY...|
00000410: C6 02 42 4E 45 20 4C 4F 4F 50 00 2B 0C D0 02 49 |..BNE LOOP.+...I|
00000420: 4E 43 20 54 45 4D 50 20 AA 20 31 00 33 0C DA 02 |NC TEMP . 1.3...|
00000430: 49 4E 58 00 40 0C E4 02 43 50 58 20 23 24 32 30 |INX.@...CPX #$20|
00000440: 00 4D 0C EE 02 42 4E 45 20 4C 4F 4F 50 00 53 0C |.M...BNE LOOP.S.|
00000450: F8 02 3B 00 65 0C 02 03 43 4C 53 43 4F 4C 4F 55 |..;.e...CLSCOLOU|
00000460: 52 20 B2 20 AC 00 6B 0C 0C 03 3B 00 75 0C 16 03 |R . ..k...;.u...|
00000470: 4A 53 52 20 BD 00 7D 0C 20 03 54 58 41 00 85 0C |JSR ..}. .TXA...|
00000480: 2A 03 41 53 4C 00 8D 0C 34 03 41 53 4C 00 95 0C |*.ASL...4.ASL...|
00000490: 3E 03 41 53 4C 00 9D 0C 48 03 41 53 4C 00 AC 0C |>.ASL...H.ASL...|
000004A0: 52 03 53 54 41 20 43 4F 4C 4F 55 52 00 B6 0C 5C |R.STA COLOUR...\|
000004B0: 03 4A 53 52 20 BD 00 BE 0C 66 03 54 58 41 00 CC |.JSR ....f.TXA..|
000004C0: 0C 70 03 B0 41 20 43 4F 4C 4F 55 52 00 DC 0C 7A |.p..A COLOUR...z|
000004D0: 03 4C 44 59 20 23 B1 9C 53 43 52 4E 00 ED 0C 84 |.LDY #..SCRN....|
000004E0: 03 53 54 59 20 54 45 4D 50 20 AA 20 31 00 FD 0C |.STY TEMP . 1...|
000004F0: 8E 03 4C 44 59 20 23 B3 9C 53 43 52 4E 00 0A 0D |..LDY #..SCRN...|
00000500: 98 03 53 54 59 20 54 45 4D 50 00 17 0D A2 03 4C |..STY TEMP.....L|
00000510: 44 58 20 54 45 4D 50 00 1D 0D AC 03 3B 00 2B 0D |DX TEMP.....;.+.|
00000520: B6 03 4C 4F 4F 50 31 20 B2 20 AC 00 31 0D C0 03 |..LOOP1 . ..1...|
00000530: 3B 00 42 0D CA 03 53 54 41 20 28 54 45 4D 50 29 |;.B...STA (TEMP)|
00000540: 2C 59 00 4A 0D D4 03 49 4E 59 00 58 0D DE 03 42 |,Y.J...INY.X...B|
00000550: 4E 45 20 4C 4F 4F 50 31 00 69 0D E8 03 49 4E 43 |NE LOOP1.i...INC|
00000560: 20 54 45 4D 50 20 AA 20 31 00 71 0D F2 03 49 4E | TEMP . 1.q...IN|
00000570: 58 00 7C 0D FC 03 43 50 58 20 23 34 00 8A 0D 06 |X.|...CPX #4....|
00000580: 04 42 4E 45 20 4C 4F 4F 50 31 00 92 0D 10 04 43 |.BNE LOOP1.....C|
00000590: 4C 49 00 9A 0D 1A 04 52 54 53 00 AA 0D 24 04 41 |LI.....RTS...$.A|
000005A0: 44 44 52 45 53 53 20 B2 20 AC 00 B7 0D 2E 04 4C |DDRESS . ......L|
000005B0: 44 41 20 56 59 AA 31 00 C5 0D 38 04 42 45 51 20 |DA VY.1...8.BEQ |
000005C0: AC 20 AA 20 33 00 CD 0D 42 04 52 54 53 00 D8 0D |. . 3...B.RTS...|
000005D0: 4C 04 4C 44 41 20 56 59 00 E5 0D 56 04 43 4D 50 |L.LDA VY...V.CMP|
000005E0: 20 23 32 30 30 00 F3 0D 60 04 42 43 43 20 AC 20 | #200...`.BCC . |
000005F0: AA 20 33 00 FB 0D 6A 04 52 54 53 00 0A 0E 74 04 |. 3...j.RTS...t.|
00000600: 4C 44 41 20 56 58 20 AA 20 31 00 19 0E 7E 04 42 |LDA VX . 1...~.B|
00000610: 45 51 20 58 59 4F 4B 41 59 00 24 0E 88 04 43 4D |EQ XYOKAY.$...CM|
00000620: 50 20 23 32 00 32 0E 92 04 42 43 43 20 AC 20 AA |P #2.2...BCC . .|
00000630: 20 33 00 3A 0E 9C 04 52 54 53 00 45 0E A6 04 4C | 3.:...RTS.E...L|
00000640: 44 41 20 56 58 00 51 0E B0 04 43 4D 50 20 23 36 |DA VX.Q...CMP #6|
00000650: 34 00 60 0E BA 04 42 43 43 20 58 59 4F 4B 41 59 |4.`...BCC XYOKAY|
00000660: 00 68 0E C4 04 52 54 53 00 6E 0E CE 04 3B 00 7D |.h...RTS.n...;.}|
00000670: 0E D8 04 58 59 4F 4B 41 59 20 B2 20 AC 00 83 0E |...XYOKAY . ....|
00000680: E2 04 3B 00 8E 0E EC 04 4C 44 41 20 23 30 00 9B |..;.....LDA #0..|
00000690: 0E F6 04 53 54 41 20 54 45 4D 50 00 AC 0E 00 05 |...STA TEMP.....|
000006A0: 53 54 41 20 54 45 4D 50 20 AA 20 31 00 B7 0E 0A |STA TEMP . 1....|
000006B0: 05 4C 44 41 20 56 58 00 C8 0E 14 05 AF 20 23 25 |.LDA VX...... #%|
000006C0: 30 30 30 30 30 31 31 31 00 D4 0E 1E 05 53 54 41 |00000111.....STA|
000006D0: 20 58 42 49 00 DF 0E 28 05 4C 44 41 20 23 37 00 | XBI...(.LDA #7.|
000006E0: E7 0E 32 05 53 45 43 00 F3 0E 3C 05 53 42 43 20 |..2.SEC...<.SBC |
000006F0: 58 42 49 00 FB 0E 46 05 54 41 58 00 06 0F 50 05 |XBI...F.TAX...P.|
00000700: 4C 44 41 20 56 59 00 17 0F 5A 05 AF 20 23 25 31 |LDA VY...Z.. #%1|
00000710: 31 31 31 31 30 30 30 00 21 0F 64 05 53 54 41 20 |1111000.!.d.STA |
00000720: 83 00 29 0F 6E 05 43 4C 43 00 31 0F 78 05 41 53 |..).n.CLC.1.x.AS|
00000730: 4C 00 42 0F 82 05 52 4F 4C 20 54 45 4D 50 20 AA |L.B...ROL TEMP .|
00000740: 20 31 00 4A 0F 8C 05 41 53 4C 00 5B 0F 96 05 52 | 1.J...ASL.[...R|
00000750: 4F 4C 20 54 45 4D 50 20 AA 20 31 00 63 0F A0 05 |OL TEMP . 1.c...|
00000760: 43 4C 43 00 6D 0F AA 05 41 44 43 20 83 00 7B 0F |CLC.m...ADC ..{.|
00000770: B4 05 42 43 43 20 AC 20 AA 20 35 00 8C 0F BE 05 |..BCC . . 5.....|
00000780: 49 4E 43 20 54 45 4D 50 20 AA 20 31 00 94 0F C8 |INC TEMP . 1....|
00000790: 05 43 4C 43 00 9C 0F D2 05 41 53 4C 00 AD 0F DC |.CLC.....ASL....|
000007A0: 05 52 4F 4C 20 54 45 4D 50 20 AA 20 31 00 B5 0F |.ROL TEMP . 1...|
000007B0: E6 05 41 53 4C 00 C6 0F F0 05 52 4F 4C 20 54 45 |..ASL.....ROL TE|
000007C0: 4D 50 20 AA 20 31 00 CE 0F FA 05 41 53 4C 00 DF |MP . 1.....ASL..|
000007D0: 0F 04 06 52 4F 4C 20 54 45 4D 50 20 AA 20 31 00 |...ROL TEMP . 1.|
000007E0: EC 0F 0E 06 53 54 41 20 54 45 4D 50 00 FC 0F 18 |....STA TEMP....|
000007F0: 06 4C 44 41 20 23 B1 53 54 41 52 54 00 0D 10 22 |.LDA #.START..."|
00000800: 06 41 44 43 20 54 45 4D 50 20 AA 20 31 00 1E 10 |.ADC TEMP . 1...|
00000810: 2C 06 53 54 41 20 54 45 4D 50 20 AA 20 31 00 29 |,.STA TEMP . 1.)|
00000820: 10 36 06 4C 44 41 20 56 58 00 3A 10 40 06 AF 20 |.6.LDA VX.:.@.. |
00000830: 23 25 31 31 31 31 31 30 30 30 00 42 10 4A 06 43 |#%11111000.B.J.C|
00000840: 4C 43 00 4F 10 54 06 41 44 43 20 54 45 4D 50 00 |LC.O.T.ADC TEMP.|
00000850: 5C 10 5E 06 53 54 41 20 54 45 4D 50 00 6A 10 68 |\.^.STA TEMP.j.h|
00000860: 06 42 43 43 20 AC 20 AA 20 34 00 7B 10 72 06 49 |.BCC . . 4.{.r.I|
00000870: 4E 43 20 54 45 4D 50 20 AA 20 31 00 8A 10 7C 06 |NC TEMP . 1...|.|
00000880: 4C 44 41 20 56 58 20 AA 20 31 00 98 10 86 06 42 |LDA VX . 1.....B|
00000890: 45 51 20 AC 20 AA 20 34 00 A9 10 90 06 49 4E 43 |EQ . . 4.....INC|
000008A0: 20 54 45 4D 50 20 AA 20 31 00 B4 10 9A 06 4C 44 | TEMP . 1.....LD|
000008B0: 41 20 56 59 00 C5 10 A4 06 AF 20 23 25 30 30 30 |A VY...... #%000|
000008C0: 30 30 31 31 31 00 CD 10 AE 06 43 4C 43 00 DA 10 |00111.....CLC...|
000008D0: B8 06 41 44 43 20 54 45 4D 50 00 E7 10 C2 06 53 |..ADC TEMP.....S|
000008E0: 54 41 20 54 45 4D 50 00 F5 10 CC 06 42 43 43 20 |TA TEMP.....BCC |
000008F0: AC 20 AA 20 34 00 06 11 D6 06 49 4E 43 20 54 45 |. . 4.....INC TE|
00000900: 4D 50 20 AA 20 31 00 0E 11 E0 06 53 45 49 00 18 |MP . 1.....SEI..|
00000910: 11 EA 06 4C 44 41 20 31 00 20 11 F4 06 50 48 41 |...LDA 1. ...PHA|
00000920: 00 31 11 FE 06 AF 20 23 25 31 31 31 31 31 31 30 |.1.... #%1111110|
00000930: 31 00 3B 11 08 07 53 54 41 20 31 00 46 11 12 07 |1.;...STA 1.F...|
00000940: 4C 44 59 20 23 30 00 57 11 1C 07 4C 44 41 20 28 |LDY #0.W...LDA (|
00000950: 54 45 4D 50 29 2C 59 00 5F 11 26 07 54 41 59 00 |TEMP),Y._.&.TAY.|
00000960: 67 11 30 07 50 4C 41 00 71 11 3A 07 53 54 41 20 |g.0.PLA.q.:.STA |
00000970: 31 00 79 11 44 07 54 59 41 00 81 11 4E 07 43 4C |1.y.D.TYA...N.CL|
00000980: 49 00 91 11 58 07 4C 44 59 20 54 41 42 4C 45 2C |I...X.LDY TABLE,|
00000990: 58 00 9D 11 62 07 53 54 59 20 58 42 49 00 A7 11 |X...b.STY XBI...|
000009A0: 6C 07 53 54 41 20 83 00 AF 11 76 07 52 54 53 00 |l.STA ....v.RTS.|
000009B0: BD 11 80 07 54 41 42 4C 45 20 B2 20 AC 00 DC 11 |....TABLE . ....|
000009C0: 8A 07 2E 42 59 54 45 20 31 2C 32 2C 34 2C 38 2C |...BYTE 1,2,4,8,|
000009D0: 31 36 2C 33 32 2C 36 34 2C 31 32 38 00 E2 11 94 |16,32,64,128....|
000009E0: 07 3B 00 F1 11 9E 07 53 45 54 50 4E 54 20 B2 20 |.;.....SETPNT . |
000009F0: AC 00 F7 11 A8 07 3B 00 04 12 B2 07 4A 53 52 20 |......;.....JSR |
00000A00: A1 46 4C 54 00 11 12 BC 07 4C 44 41 20 B5 4C 4F |.FLT.....LDA .LO|
00000A10: 57 00 1C 12 C6 07 53 54 41 20 56 58 00 27 12 D0 |W.....STA VX.'..|
00000A20: 07 53 54 41 20 58 32 00 35 12 DA 07 4C 44 41 20 |.STA X2.5...LDA |
00000A30: B5 48 49 47 48 00 44 12 E4 07 53 54 41 20 56 58 |.HIGH.D...STA VX|
00000A40: 20 AA 20 31 00 53 12 EE 07 53 54 41 20 58 32 20 | . 1.S...STA X2 |
00000A50: AA 20 31 00 5D 12 F8 07 4A 53 52 20 BD 00 68 12 |. 1.]...JSR ..h.|
00000A60: 02 08 53 54 58 20 56 59 00 73 12 0C 08 53 54 58 |..STX VY.s...STX|
00000A70: 20 59 32 00 7D 12 16 08 4A 53 52 20 BD 00 85 12 | Y2.}...JSR ....|
00000A80: 20 08 54 58 41 00 8D 12 2A 08 50 48 41 00 9D 12 | .TXA...*.PHA...|
00000A90: 34 08 4A 53 52 20 41 44 44 52 45 53 53 00 A5 12 |4.JSR ADDRESS...|
00000AA0: 3E 08 50 4C 41 00 AD 12 48 08 54 41 58 00 BA 12 |>.PLA...H.TAX...|
00000AB0: 52 08 50 4C 4F 54 20 B2 20 AC 00 C5 12 5C 08 43 |R.PLOT . ....\.C|
00000AC0: 50 58 20 23 30 00 D3 12 66 08 42 4E 45 20 AC 20 |PX #0...f.BNE . |
00000AD0: AA 20 36 00 E1 12 70 08 4A 53 52 20 42 49 A4 46 |. 6...p.JSR BI.F|
00000AE0: 46 00 E9 12 7A 08 52 54 53 00 F4 12 84 08 43 50 |F...z.RTS.....CP|
00000AF0: 58 20 23 31 00 02 13 8E 08 42 4E 45 20 AC 20 AA |X #1.....BNE . .|
00000B00: 20 36 00 0F 13 98 08 4A 53 52 20 42 49 A4 4E 00 | 6.....JSR BI.N.|
00000B10: 17 13 A2 08 52 54 53 00 25 13 AC 08 4A 53 52 20 |....RTS.%...JSR |
00000B20: A4 47 47 4C 45 00 2D 13 B6 08 52 54 53 00 3A 13 |.GGLE.-...RTS.:.|
00000B30: C0 08 42 49 A4 4E 20 B2 20 AC 00 46 13 CA 08 4C |..BI.N . ..F...L|
00000B40: 44 41 20 58 42 49 00 4F 13 D4 08 B0 41 20 83 00 |DA XBI.O....A ..|
00000B50: 5A 13 DE 08 4C 44 59 20 23 30 00 6B 13 E8 08 53 |Z...LDY #0.k...S|
00000B60: 54 41 20 28 54 45 4D 50 29 2C 59 00 73 13 F2 08 |TA (TEMP),Y.s...|
00000B70: 52 54 53 00 79 13 FC 08 3B 00 89 13 06 09 53 45 |RTS.y...;.....SE|
00000B80: 54 53 43 52 53 20 B2 20 AC 00 8F 13 10 09 3B 00 |TSCRS . ......;.|
00000B90: 97 13 1A 09 53 45 49 00 A4 13 24 09 4C 44 41 20 |....SEI...$.LDA |
00000BA0: 44 44 52 41 00 B6 13 2E 09 B0 41 20 23 25 30 30 |DDRA......A #%00|
00000BB0: 30 30 30 30 31 31 00 C3 13 38 09 53 54 41 20 44 |000011...8.STA D|
00000BC0: 44 52 41 00 D0 13 42 09 4C 44 41 20 50 B0 54 41 |DRA...B.LDA P.TA|
00000BD0: 00 E1 13 4C 09 AF 20 23 25 31 31 31 31 31 31 30 |...L.. #%1111110|
00000BE0: 30 00 EE 13 56 09 53 54 41 20 50 B0 54 41 00 FD |0...V.STA P.TA..|
00000BF0: 13 60 09 4C 44 41 20 56 49 43 4D 43 52 00 0F 14 |.`.LDA VICMCR...|
00000C00: 6A 09 B0 41 20 23 25 30 30 30 30 31 30 30 30 00 |j..A #%00001000.|
00000C10: 20 14 74 09 AF 20 23 25 30 30 30 30 31 31 31 31 | .t.. #%00001111|
00000C20: 00 2F 14 7E 09 53 54 41 20 56 49 43 4D 43 52 00 |./.~.STA VICMCR.|
00000C30: 3D 14 88 09 4C 44 41 20 56 49 43 43 52 00 4F 14 |=...LDA VICCR.O.|
00000C40: 92 09 B0 41 20 23 25 30 30 31 30 30 30 30 30 00 |...A #%00100000.|
00000C50: 5D 14 9C 09 53 54 41 20 56 49 43 43 52 00 6C 14 |]...STA VICCR.l.|
00000C60: A6 09 4C 44 41 20 23 B3 54 45 53 54 00 79 14 B0 |..LDA #.TEST.y..|
00000C70: 09 53 54 41 20 B7 41 44 44 00 88 14 BA 09 4C 44 |.STA .ADD.....LD|
00000C80: 41 20 23 B1 54 45 53 54 00 99 14 C4 09 53 54 41 |A #.TEST.....STA|
00000C90: 20 B7 41 44 44 20 AA 20 31 00 A8 14 CE 09 4C 44 | .ADD . 1.....LD|
00000CA0: 41 20 23 B3 A2 45 52 52 00 B6 14 D8 09 53 54 41 |A #..ERR.....STA|
00000CB0: 20 49 45 52 52 B0 00 C5 14 E2 09 4C 44 41 20 23 | IERR......LDA #|
00000CC0: B1 A2 45 52 52 00 D7 14 EC 09 53 54 41 20 49 45 |..ERR.....STA IE|
00000CD0: 52 52 B0 20 AA 20 31 00 E7 14 F6 09 4C 44 41 20 |RR. . 1.....LDA |
00000CE0: 23 B3 B5 52 55 50 54 00 F3 14 00 0A 53 54 41 20 |#..RUPT.....STA |
00000CF0: 49 52 51 00 03 15 0A 0A 4C 44 41 20 23 B1 B5 52 |IRQ.....LDA #..R|
00000D00: 55 50 54 00 13 15 14 0A 53 54 41 20 49 52 51 20 |UPT.....STA IRQ |
00000D10: AA 20 31 00 19 15 1E 0A 3B 00 29 15 28 0A 42 43 |. 1.....;.).(.BC|
00000D20: 4F 4C 4F 55 52 20 B2 20 AC 00 2F 15 32 0A 3B 00 |OLOUR . ../.2.;.|
00000D30: 39 15 3C 0A 4A 53 52 20 BD 00 43 15 46 0A 53 54 |9.<.JSR ..C.F.ST|
00000D40: 58 20 83 00 51 15 50 0A 4C 44 41 20 42 B0 44 45 |X ..Q.P.LDA B.DE|
00000D50: 52 00 60 15 5A 0A 53 54 41 20 4F 4C 44 43 4F 4C |R.`.Z.STA OLDCOL|
00000D60: 00 71 15 64 0A AF 20 23 25 31 31 31 31 30 30 30 |.q.d.. #%1111000|
00000D70: 30 00 7A 15 6E 0A B0 41 20 83 00 88 15 78 0A 53 |0.z.n..A ....x.S|
00000D80: 54 41 20 42 B0 44 45 52 00 93 15 82 0A 4C 44 41 |TA B.DER.....LDA|
00000D90: 20 23 30 00 9E 15 8C 0A 53 54 41 20 56 59 00 AD | #0.....STA VY..|
00000DA0: 15 96 0A 53 54 41 20 56 59 20 AA 20 31 00 B5 15 |...STA VY . 1...|
00000DB0: A0 0A 43 4C 49 00 BD 15 AA 0A 52 54 53 00 C3 15 |..CLI.....RTS...|
00000DC0: B4 0A 3B 00 D1 15 BE 0A A4 47 47 4C 45 20 B2 20 |..;......GGLE . |
00000DD0: AC 00 DD 15 C8 0A 4C 44 41 20 58 42 49 00 E6 15 |......LDA XBI...|
00000DE0: D2 0A 45 B0 20 83 00 F1 15 DC 0A 4C 44 59 20 23 |..E. ......LDY #|
00000DF0: 30 00 02 16 E6 0A 53 54 41 20 28 54 45 4D 50 29 |0.....STA (TEMP)|
00000E00: 2C 59 00 0A 16 F0 0A 52 54 53 00 10 16 FA 0A 3B |,Y.....RTS.....;|
00000E10: 00 1E 16 04 0B 42 49 A4 46 46 20 B2 20 AC 00 2B |.....BI.FF . ..+|
00000E20: 16 0E 0B 4C 44 41 20 23 24 46 46 00 36 16 18 0B |...LDA #$FF.6...|
00000E30: 45 B0 20 58 42 49 00 3E 16 22 0B AF 20 83 00 49 |E. XBI.>.".. ..I|
00000E40: 16 2C 0B 4C 44 59 20 23 30 00 5A 16 36 0B 53 54 |.,.LDY #0.Z.6.ST|
00000E50: 41 20 28 54 45 4D 50 29 2C 59 00 62 16 40 0B 52 |A (TEMP),Y.b.@.R|
00000E60: 54 53 00 68 16 4A 0B 3B 00 72 16 54 0B 8C 20 B2 |TS.h.J.;.r.T.. .|
00000E70: 20 AC 00 7E 16 5E 0B 4C 44 41 20 23 32 33 00 8D | ..~.^.LDA #23..|
00000E80: 16 68 0B 53 54 41 20 56 49 43 4D 43 52 00 99 16 |.h.STA VICMCR...|
00000E90: 72 0B 4C 44 41 20 23 32 37 00 A7 16 7C 0B 53 54 |r.LDA #27...|.ST|
00000EA0: 41 20 56 49 43 43 52 00 B4 16 86 0B 4C 44 41 20 |A VICCR.....LDA |
00000EB0: 23 31 39 39 00 C1 16 90 0B 53 54 41 20 50 B0 54 |#199.....STA P.T|
00000EC0: 41 00 CD 16 9A 0B 4C 44 41 20 23 36 33 00 DA 16 |A.....LDA #63...|
00000ED0: A4 0B 53 54 41 20 44 44 52 41 00 E9 16 AE 0B 4C |..STA DDRA.....L|
00000EE0: 44 41 20 4F 4C 44 43 4F 4C 00 F7 16 B8 0B 53 54 |DA OLDCOL.....ST|
00000EF0: 41 20 42 B0 44 45 52 00 FF 16 C2 0B 52 54 53 00 |A B.DER.....RTS.|
00000F00: 05 17 CC 0B 3B 00 12 17 D6 0B 54 45 53 54 20 B2 |....;.....TEST .|
00000F10: 20 AC 00 18 17 E0 0B 3B 00 25 17 EA 0B 4A 53 52 | ......;.%...JSR|
00000F20: 20 46 4C 54 B5 00 32 17 F4 0B 4C 44 41 20 B5 4C | FLT..2...LDA .L|
00000F30: 4F 57 00 3D 17 FE 0B 53 54 41 20 56 58 00 4B 17 |OW.=...STA VX.K.|
00000F40: 08 0C 4C 44 41 20 B5 48 49 47 48 00 5A 17 12 0C |..LDA .HIGH.Z...|
00000F50: 53 54 41 20 56 58 20 AA 20 31 00 64 17 1C 0C 4A |STA VX . 1.d...J|
00000F60: 53 52 20 BD 00 6F 17 26 0C 53 54 58 20 56 59 00 |SR ..o.&.STX VY.|
00000F70: 7F 17 30 0C 4A 53 52 20 41 44 44 52 45 53 53 00 |..0.JSR ADDRESS.|
00000F80: 89 17 3A 0C 4C 44 41 20 83 00 93 17 44 0C AF 20 |..:.LDA ....D.. |
00000F90: 58 42 49 00 A0 17 4E 0C 42 45 51 20 A8 53 45 54 |XBI...N.BEQ .SET|
00000FA0: 00 AD 17 58 0C 4C 44 59 20 23 24 46 46 00 B5 17 |...X.LDY #$FF...|
00000FB0: 62 0C 54 59 41 00 C5 17 6C 0C 53 A4 52 45 46 4C |b.TYA...l.S.REFL|
00000FC0: 54 20 B2 20 AC 00 D2 17 76 0C 4A 53 52 20 B5 46 |T . ....v.JSR .F|
00000FD0: 4C 54 00 DA 17 80 0C 52 54 53 00 E0 17 8A 0C 3B |LT.....RTS.....;|
00000FE0: 00 ED 17 94 0C A8 53 45 54 20 B2 20 AC 00 F3 17 |......SET . ....|
00000FF0: 9E 0C 3B 00 FE 17 A8 0C 4C 44 59 20 23 30 00 06 |..;.....LDY #0..|
00001000: 18 B2 0C 54 59 41 00 0E 18 BC 0C 43 4C 43 00 1E |...TYA.....CLC..|
00001010: 18 C6 0C 42 43 43 20 53 A4 52 45 46 4C 54 00 2B |...BCC S.REFLT.+|
00001020: 18 D0 0C A2 45 52 52 20 B2 20 AC 00 35 18 DA 0C |....ERR . ..5...|
00001030: 4A 53 52 20 8C 00 45 18 E4 0C 4A 53 52 20 55 4E |JSR ..E...JSR UN|
00001040: 44 4F 56 45 43 00 55 18 EE 0C 4A 4D 50 20 28 49 |DOVEC.U...JMP (I|
00001050: 45 52 52 B0 29 00 5B 18 F8 0C 3B 00 6B 18 02 0D |ERR.).[...;.k...|
00001060: 4C 49 42 4F 49 4E 50 20 B2 20 AC 00 71 18 0C 0D |LIBOINP . ..q...|
00001070: 3B 00 7E 18 16 0D 4A 53 52 20 A1 46 4C 54 00 8B |;.~...JSR .FLT..|
00001080: 18 20 0D 4C 44 41 20 B5 4C 4F 57 00 96 18 2A 0D |. .LDA .LOW...*.|
00001090: 53 54 41 20 58 31 00 A4 18 34 0D 4C 44 41 20 B5 |STA X1...4.LDA .|
000010A0: 48 49 47 48 00 B3 18 3E 0D 53 54 41 20 58 31 20 |HIGH...>.STA X1 |
000010B0: AA 20 31 00 BD 18 48 0D 4A 53 52 20 BD 00 C8 18 |. 1...H.JSR ....|
000010C0: 52 0D 53 54 58 20 59 31 00 D5 18 5C 0D 4A 53 52 |R.STX Y1...\.JSR|
000010D0: 20 A1 46 4C 54 00 E2 18 66 0D 4C 44 41 20 B5 4C | .FLT...f.LDA .L|
000010E0: 4F 57 00 ED 18 70 0D 53 54 41 20 58 32 00 FB 18 |OW...p.STA X2...|
000010F0: 7A 0D 4C 44 41 20 B5 48 49 47 48 00 0A 19 84 0D |z.LDA .HIGH.....|
00001100: 53 54 41 20 58 32 20 AA 20 31 00 14 19 8E 0D 4A |STA X2 . 1.....J|
00001110: 53 52 20 BD 00 1F 19 98 0D 53 54 58 20 59 32 00 |SR ......STX Y2.|
00001120: 29 19 A2 0D 4A 53 52 20 BD 00 36 19 AC 0D 53 54 |)...JSR ..6...ST|
00001130: 58 20 54 59 50 45 00 3E 19 B6 0D 52 54 53 00 44 |X TYPE.>...RTS.D|
00001140: 19 C0 0D 3B 00 53 19 CA 0D 43 48 45 43 4B 58 20 |...;.S...CHECKX |
00001150: B2 20 AC 00 59 19 D4 0D 3B 00 64 19 DE 0D 4C 44 |. ..Y...;.d...LD|
00001160: 41 20 23 31 00 70 19 E8 0D 53 54 41 20 B4 44 58 |A #1.p...STA .DX|
00001170: 00 78 19 F2 0D 53 45 43 00 83 19 FC 0D 4C 44 41 |.x...SEC.....LDA|
00001180: 20 58 31 00 8E 19 06 0E 53 42 43 20 58 32 00 9D | X1.....SBC X2..|
00001190: 19 10 0E 53 54 41 20 52 45 53 55 4C 54 00 AC 19 |...STA RESULT...|
000011A0: 1A 0E 4C 44 41 20 58 31 20 AA 20 31 00 BB 19 24 |..LDA X1 . 1...$|
000011B0: 0E 53 42 43 20 58 32 20 AA 20 31 00 CE 19 2E 0E |.SBC X2 . 1.....|
000011C0: 53 54 41 20 52 45 53 55 4C 54 20 AA 20 31 00 DD |STA RESULT . 1..|
000011D0: 19 38 0E 42 43 43 20 52 4D 49 4E 55 53 00 EC 19 |.8.BCC RMINUS...|
000011E0: 42 0E 4C 44 41 20 52 45 53 55 4C 54 00 FF 19 4C |B.LDA RESULT...L|
000011F0: 0E 43 4D 50 20 52 45 53 55 4C 54 20 AA 20 31 00 |.CMP RESULT . 1.|
00001200: 0D 1A 56 0E 42 4E 45 20 52 50 4C 55 53 00 18 1A |..V.BNE RPLUS...|
00001210: 60 0E 4C 44 41 20 23 30 00 23 1A 6A 0E 53 54 41 |`.LDA #0.#.j.STA|
00001220: 20 44 58 00 32 1A 74 0E 53 54 41 20 44 58 20 AA | DX.2.t.STA DX .|
00001230: 20 31 00 3A 1A 7E 0E 52 54 53 00 40 1A 88 0E 3B | 1.:.~.RTS.@...;|
00001240: 00 4F 1A 92 0E 52 4D 49 4E 55 53 20 B2 20 AC 00 |.O...RMINUS . ..|
00001250: 55 1A 9C 0E 3B 00 5D 1A A6 0E 53 45 43 00 68 1A |U...;.]...SEC.h.|
00001260: B0 0E 4C 44 41 20 58 32 00 73 1A BA 0E 53 42 43 |..LDA X2.s...SBC|
00001270: 20 58 31 00 7E 1A C4 0E 53 54 41 20 44 58 00 8D | X1.~...STA DX..|
00001280: 1A CE 0E 4C 44 41 20 58 32 20 AA 20 31 00 9C 1A |...LDA X2 . 1...|
00001290: D8 0E 53 42 43 20 58 31 20 AA 20 31 00 AB 1A E2 |..SBC X1 . 1....|
000012A0: 0E 53 54 41 20 44 58 20 AA 20 31 00 B3 1A EC 0E |.STA DX . 1.....|
000012B0: 52 54 53 00 B9 1A F6 0E 3B 00 C7 1A 00 0F 52 50 |RTS.....;.....RP|
000012C0: 4C 55 53 20 B2 20 AC 00 CD 1A 0A 0F 3B 00 D9 1A |LUS . ......;...|
000012D0: 14 0F 4C 44 41 20 23 AB 31 00 E5 1A 1E 0F 53 54 |..LDA #.1.....ST|
000012E0: 41 20 B4 44 58 00 F4 1A 28 0F 4C 44 41 20 52 45 |A .DX...(.LDA RE|
000012F0: 53 55 4C 54 00 FF 1A 32 0F 53 54 41 20 44 58 00 |SULT...2.STA DX.|
00001300: 12 1B 3C 0F 4C 44 41 20 52 45 53 55 4C 54 20 AA |..<.LDA RESULT .|
00001310: 20 31 00 21 1B 46 0F 53 54 41 20 44 58 20 AA 20 | 1.!.F.STA DX . |
00001320: 31 00 29 1B 50 0F 52 54 53 00 2F 1B 5A 0F 3B 00 |1.).P.RTS./.Z.;.|
00001330: 3E 1B 64 0F 43 48 45 43 4B 59 20 B2 20 AC 00 44 |>.d.CHECKY . ..D|
00001340: 1B 6E 0F 3B 00 4F 1B 78 0F 4C 44 41 20 23 31 00 |.n.;.O.x.LDA #1.|
00001350: 5B 1B 82 0F 53 54 41 20 B4 44 59 00 63 1B 8C 0F |[...STA .DY.c...|
00001360: 53 45 43 00 6E 1B 96 0F 4C 44 41 20 59 31 00 79 |SEC.n...LDA Y1.y|
00001370: 1B A0 0F 53 42 43 20 59 32 00 88 1B AA 0F 42 43 |...SBC Y2.....BC|
00001380: 43 20 59 4D 49 4E 55 53 00 96 1B B4 0F 42 4E 45 |C YMINUS.....BNE|
00001390: 20 59 50 4C 55 53 00 A1 1B BE 0F 53 54 41 20 44 | YPLUS.....STA D|
000013A0: 59 00 A9 1B C8 0F 52 54 53 00 AF 1B D2 0F 3B 00 |Y.....RTS.....;.|
000013B0: BE 1B DC 0F 59 4D 49 4E 55 53 20 B2 20 AC 00 C4 |....YMINUS . ...|
000013C0: 1B E6 0F 3B 00 CC 1B F0 0F 53 45 43 00 D7 1B FA |...;.....SEC....|
000013D0: 0F 4C 44 41 20 59 32 00 E2 1B 04 10 53 42 43 20 |.LDA Y2.....SBC |
000013E0: 59 31 00 ED 1B 0E 10 53 54 41 20 44 59 00 F5 1B |Y1.....STA DY...|
000013F0: 18 10 52 54 53 00 03 1C 22 10 59 50 4C 55 53 20 |..RTS...".YPLUS |
00001400: B2 20 AC 00 0E 1C 2C 10 53 54 41 20 44 59 00 1A |. ....,.STA DY..|
00001410: 1C 36 10 4C 44 41 20 23 AB 31 00 26 1C 40 10 53 |.6.LDA #.1.&.@.S|
00001420: 54 41 20 B4 44 59 00 2E 1C 4A 10 52 54 53 00 34 |TA .DY...J.RTS.4|
00001430: 1C 54 10 3B 00 41 1C 5E 10 4C 49 4E 45 20 B2 20 |.T.;.A.^.LINE . |
00001440: AC 00 47 1C 68 10 3B 00 4F 1C 72 10 53 45 49 00 |..G.h.;.O.r.SEI.|
00001450: 5F 1C 7C 10 4A 53 52 20 4C 49 42 4F 49 4E 50 00 |_.|.JSR LIBOINP.|
00001460: 6E 1C 86 10 4C 49 4E 45 4E 54 20 B2 20 AC 00 7D |n...LINENT . ..}|
00001470: 1C 90 10 4A 53 52 20 43 48 45 43 4B 58 00 8C 1C |...JSR CHECKX...|
00001480: 9A 10 4A 53 52 20 43 48 45 43 4B 59 00 94 1C A4 |..JSR CHECKY....|
00001490: 10 43 4C 43 00 A3 1C AE 10 4C 44 41 20 44 58 20 |.CLC.....LDA DX |
000014A0: AA 20 31 00 AE 1C B8 10 41 44 43 20 44 58 00 BD |. 1.....ADC DX..|
000014B0: 1C C2 10 42 45 51 20 44 59 47 54 44 58 00 C8 1C |...BEQ DYGTDX...|
000014C0: CC 10 4C 44 41 20 44 59 00 D7 1C D6 10 42 45 51 |..LDA DY.....BEQ|
000014D0: 20 44 58 47 54 44 59 00 E6 1C E0 10 4C 44 41 20 | DXGTDY.....LDA |
000014E0: 44 58 20 AA 20 31 00 F5 1C EA 10 42 4E 45 20 44 |DX . 1.....BNE D|
000014F0: 58 47 54 44 59 00 FD 1C F4 10 53 45 43 00 08 1D |XGTDY.....SEC...|
00001500: FE 10 4C 44 41 20 44 58 00 13 1D 08 11 53 42 43 |..LDA DX.....SBC|
00001510: 20 44 59 00 22 1D 12 11 42 43 53 20 44 58 47 54 | DY."...BCS DXGT|
00001520: 44 59 00 31 1D 1C 11 44 59 47 54 44 58 20 B2 20 |DY.1...DYGTDX . |
00001530: AC 00 3F 1D 26 11 4A 53 52 20 4C 49 4E 45 31 00 |..?.&.JSR LINE1.|
00001540: 47 1D 30 11 43 4C 49 00 4F 1D 3A 11 52 54 53 00 |G.0.CLI.O.:.RTS.|
00001550: 5E 1D 44 11 44 58 47 54 44 59 20 B2 20 AC 00 6C |^.D.DXGTDY . ..l|
00001560: 1D 4E 11 4A 53 52 20 4C 49 4E 45 32 00 74 1D 58 |.N.JSR LINE2.t.X|
00001570: 11 43 4C 49 00 7C 1D 62 11 52 54 53 00 82 1D 6C |.CLI.|.b.RTS...l|
00001580: 11 3B 00 8E 1D 76 11 42 4F 58 20 B2 20 AC 00 94 |.;...v.BOX . ...|
00001590: 1D 80 11 3B 00 A4 1D 8A 11 4A 53 52 20 4C 49 42 |...;.....JSR LIB|
000015A0: 4F 49 4E 50 00 AF 1D 94 11 4C 44 41 20 59 31 00 |OINP.....LDA Y1.|
000015B0: B7 1D 9E 11 54 41 59 00 BF 1D A8 11 50 48 41 00 |....TAY.....PHA.|
000015C0: CA 1D B2 11 4C 44 41 20 59 32 00 D2 1D BC 11 50 |....LDA Y2.....P|
000015D0: 48 41 00 DA 1D C6 11 54 59 41 00 E5 1D D0 11 53 |HA.....TYA.....S|
000015E0: 54 41 20 59 32 00 ED 1D DA 11 53 45 49 00 FC 1D |TA Y2.....SEI...|
000015F0: E4 11 4A 53 52 20 4C 49 4E 45 4E 54 00 04 1E EE |..JSR LINENT....|
00001600: 11 50 4C 41 00 0F 1E F8 11 53 54 41 20 59 31 00 |.PLA.....STA Y1.|
00001610: 1A 1E 02 12 53 54 41 20 59 32 00 22 1E 0C 12 50 |....STA Y2."...P|
00001620: 48 41 00 2A 1E 16 12 53 45 49 00 39 1E 20 12 4A |HA.*...SEI.9. .J|
00001630: 53 52 20 4C 49 4E 45 4E 54 00 41 1E 2A 12 50 4C |SR LINENT.A.*.PL|
00001640: 41 00 4C 1E 34 12 53 54 41 20 59 32 00 54 1E 3E |A.L.4.STA Y2.T.>|
00001650: 12 50 4C 41 00 5F 1E 48 12 53 54 41 20 59 31 00 |.PLA._.H.STA Y1.|
00001660: 6A 1E 52 12 4C 44 41 20 58 32 00 72 1E 5C 12 50 |j.R.LDA X2.r.\.P|
00001670: 48 41 00 81 1E 66 12 4C 44 41 20 58 32 20 AA 20 |HA...f.LDA X2 . |
00001680: 31 00 89 1E 70 12 50 48 41 00 94 1E 7A 12 4C 44 |1...p.PHA...z.LD|
00001690: 41 20 58 31 00 9F 1E 84 12 53 54 41 20 58 32 00 |A X1.....STA X2.|
000016A0: AE 1E 8E 12 4C 44 41 20 58 31 20 AA 20 31 00 BD |....LDA X1 . 1..|
000016B0: 1E 98 12 53 54 41 20 58 32 20 AA 20 31 00 C5 1E |...STA X2 . 1...|
000016C0: A2 12 53 45 49 00 D4 1E AC 12 4A 53 52 20 4C 49 |..SEI.....JSR LI|
000016D0: 4E 45 4E 54 00 DC 1E B6 12 50 4C 41 00 EB 1E C0 |NENT.....PLA....|
000016E0: 12 53 54 41 20 58 32 20 AA 20 31 00 FA 1E CA 12 |.STA X2 . 1.....|
000016F0: 53 54 41 20 58 31 20 AA 20 31 00 02 1F D4 12 50 |STA X1 . 1.....P|
00001700: 4C 41 00 0D 1F DE 12 53 54 41 20 58 32 00 18 1F |LA.....STA X2...|
00001710: E8 12 53 54 41 20 58 31 00 20 1F F2 12 53 45 49 |..STA X1. ...SEI|
00001720: 00 2F 1F FC 12 4A 53 52 20 4C 49 4E 45 4E 54 00 |./...JSR LINENT.|
00001730: 37 1F 06 13 52 54 53 00 3D 1F 10 13 3B 00 4C 1F |7...RTS.=...;.L.|
00001740: 1A 13 42 4F 58 46 49 4C 20 B2 20 AC 00 52 1F 24 |..BOXFIL . ..R.$|
00001750: 13 3B 00 62 1F 2E 13 4A 53 52 20 4C 49 42 4F 49 |.;.b...JSR LIBOI|
00001760: 4E 50 00 71 1F 38 13 4A 53 52 20 43 48 45 43 4B |NP.q.8.JSR CHECK|
00001770: 59 00 7D 1F 42 13 4C 44 41 20 B4 44 59 00 8B 1F |Y.}.B.LDA .DY...|
00001780: 4C 13 42 50 4C 20 AC 20 AA 20 35 00 9A 1F 56 13 |L.BPL . . 5...V.|
00001790: 4A 53 52 20 53 57 41 50 59 53 00 A5 1F 60 13 4C |JSR SWAPYS...`.L|
000017A0: 44 59 20 44 59 00 B0 1F 6A 13 4C 44 41 20 59 31 |DY DY...j.LDA Y1|
000017B0: 00 BB 1F 74 13 53 54 41 20 59 32 00 C9 1F 7E 13 |...t.STA Y2...~.|
000017C0: 4C 4F 4F 50 36 20 B2 20 AC 00 D1 1F 88 13 54 59 |LOOP6 . ......TY|
000017D0: 41 00 D9 1F 92 13 50 48 41 00 EC 1F 9C 13 53 45 |A.....PHA.....SE|
000017E0: 49 3A 4A 53 52 20 4C 49 4E 45 4E 54 00 F7 1F A6 |I:JSR LINENT....|
000017F0: 13 49 4E 43 20 59 31 00 02 20 B0 13 49 4E 43 20 |.INC Y1.. ..INC |
00001800: 59 32 00 0A 20 BA 13 50 4C 41 00 12 20 C4 13 54 |Y2.. ..PLA.. ..T|
00001810: 41 59 00 1A 20 CE 13 44 45 59 00 28 20 D8 13 42 |AY.. ..DEY.( ..B|
00001820: 4E 45 20 4C 4F 4F 50 36 00 30 20 E2 13 52 54 53 |NE LOOP6.0 ..RTS|
00001830: 00 36 20 EC 13 3B 00 44 20 F6 13 42 4C 4F 43 4B |.6 ..;.D ..BLOCK|
00001840: 20 B2 20 AC 00 4A 20 00 14 3B 00 5A 20 0A 14 4A | . ..J ..;.Z ..J|
00001850: 53 52 20 4C 49 42 4F 49 4E 50 00 69 20 14 14 4A |SR LIBOINP.i ..J|
00001860: 53 52 20 43 48 45 43 4B 58 00 78 20 1E 14 4A 53 |SR CHECKX.x ..JS|
00001870: 52 20 43 48 45 43 4B 59 00 85 20 28 14 4C 44 41 |R CHECKY.. (.LDA|
00001880: 20 54 59 50 45 00 8D 20 32 14 41 53 4C 00 95 20 | TYPE.. 2.ASL.. |
00001890: 3C 14 41 53 4C 00 9D 20 46 14 41 53 4C 00 A5 20 |<.ASL.. F.ASL.. |
000018A0: 50 14 41 53 4C 00 B4 20 5A 14 53 54 41 20 43 4F |P.ASL.. Z.STA CO|
000018B0: 4C 4F 55 52 00 BE 20 64 14 4A 53 52 20 BD 00 C6 |LOUR.. d.JSR ...|
000018C0: 20 6E 14 54 58 41 00 D4 20 78 14 B0 41 20 43 4F | n.TXA.. x..A CO|
000018D0: 4C 4F 55 52 00 E3 20 82 14 53 54 41 20 43 4F 4C |LOUR.. ..STA COL|
000018E0: 4F 55 52 00 EE 20 8C 14 4C 44 41 20 23 30 00 FB |OUR.. ..LDA #0..|
000018F0: 20 96 14 53 54 41 20 54 45 4D 50 00 0C 21 A0 14 | ..STA TEMP..!..|
00001900: 53 54 41 20 54 45 4D 50 20 AA 20 31 00 17 21 AA |STA TEMP . 1..!.|
00001910: 14 4C 44 41 20 59 31 00 1F 21 B4 14 43 4C 43 00 |.LDA Y1..!..CLC.|
00001920: 27 21 BE 14 41 53 4C 00 38 21 C8 14 52 4F 4C 20 |'!..ASL.8!..ROL |
00001930: 54 45 4D 50 20 AA 20 31 00 40 21 D2 14 41 53 4C |TEMP . 1.@!..ASL|
00001940: 00 51 21 DC 14 52 4F 4C 20 54 45 4D 50 20 AA 20 |.Q!..ROL TEMP . |
00001950: 31 00 59 21 E6 14 43 4C 43 00 64 21 F0 14 41 44 |1.Y!..CLC.d!..AD|
00001960: 43 20 59 31 00 72 21 FA 14 42 43 43 20 AC 20 AA |C Y1.r!..BCC . .|
00001970: 20 35 00 83 21 04 15 49 4E 43 20 54 45 4D 50 20 | 5..!..INC TEMP |
00001980: AA 20 31 00 8B 21 0E 15 43 4C 43 00 93 21 18 15 |. 1..!..CLC..!..|
00001990: 41 53 4C 00 A4 21 22 15 52 4F 4C 20 54 45 4D 50 |ASL..!".ROL TEMP|
000019A0: 20 AA 20 31 00 AC 21 2C 15 41 53 4C 00 BD 21 36 | . 1..!,.ASL..!6|
000019B0: 15 52 4F 4C 20 54 45 4D 50 20 AA 20 31 00 C5 21 |.ROL TEMP . 1..!|
000019C0: 40 15 41 53 4C 00 D6 21 4A 15 52 4F 4C 20 54 45 |@.ASL..!J.ROL TE|
000019D0: 4D 50 20 AA 20 31 00 DE 21 54 15 43 4C 43 00 E9 |MP . 1..!T.CLC..|
000019E0: 21 5E 15 41 44 43 20 58 31 00 F6 21 68 15 53 54 |!^.ADC X1..!h.ST|
000019F0: 41 20 54 45 4D 50 00 04 22 72 15 42 43 43 20 AC |A TEMP.."r.BCC .|
00001A00: 20 AA 20 35 00 15 22 7C 15 49 4E 43 20 54 45 4D | . 5.."|.INC TEM|
00001A10: 50 20 AA 20 31 00 1D 22 86 15 43 4C 43 00 2D 22 |P . 1.."..CLC.-"|
00001A20: 90 15 4C 44 41 20 23 B1 9C 53 43 52 4E 00 3E 22 |..LDA #..SCRN.>"|
00001A30: 9A 15 41 44 43 20 54 45 4D 50 20 AA 20 31 00 4F |..ADC TEMP . 1.O|
00001A40: 22 A4 15 53 54 41 20 54 45 4D 50 20 AA 20 31 00 |"..STA TEMP . 1.|
00001A50: 5A 22 AE 15 4C 44 58 20 59 31 00 69 22 B8 15 4F |Z"..LDX Y1.i"..O|
00001A60: 55 54 45 52 31 20 B2 20 AC 00 78 22 C2 15 4C 44 |UTER1 . ..x"..LD|
00001A70: 41 20 43 4F 4C 4F 55 52 00 83 22 CC 15 4C 44 59 |A COLOUR.."..LDY|
00001A80: 20 23 30 00 91 22 D6 15 4C 4F 4F 50 37 20 B2 20 | #0.."..LOOP7 . |
00001A90: AC 00 A2 22 E0 15 53 54 41 20 28 54 45 4D 50 29 |..."..STA (TEMP)|
00001AA0: 2C 59 00 AA 22 EA 15 49 4E 59 00 B5 22 F4 15 43 |,Y.."..INY.."..C|
00001AB0: 50 59 20 44 58 00 C3 22 FE 15 42 4E 45 20 4C 4F |PY DX.."..BNE LO|
00001AC0: 4F 50 37 00 CB 22 08 16 43 4C 43 00 D8 22 12 16 |OP7.."..CLC.."..|
00001AD0: 4C 44 41 20 54 45 4D 50 00 E4 22 1C 16 41 44 43 |LDA TEMP.."..ADC|
00001AE0: 20 23 34 30 00 F1 22 26 16 53 54 41 20 54 45 4D | #40.."&.STA TEM|
00001AF0: 50 00 FF 22 30 16 42 43 43 20 AC 20 AA 20 34 00 |P.."0.BCC . . 4.|
00001B00: 10 23 3A 16 49 4E 43 20 54 45 4D 50 20 AA 20 31 |.#:.INC TEMP . 1|
00001B10: 00 18 23 44 16 49 4E 58 00 23 23 4E 16 43 50 58 |..#D.INX.##N.CPX|
00001B20: 20 59 32 00 32 23 58 16 42 4E 45 20 4F 55 54 45 | Y2.2#X.BNE OUTE|
00001B30: 52 31 00 3A 23 62 16 52 54 53 00 49 23 6C 16 53 |R1.:#b.RTS.I#l.S|
00001B40: 57 41 50 59 53 20 B2 20 AC 00 51 23 76 16 50 48 |WAPYS . ..Q#v.PH|
00001B50: 41 00 5C 23 80 16 4C 44 41 20 59 31 00 64 23 8A |A.\#..LDA Y1.d#.|
00001B60: 16 50 48 41 00 6F 23 94 16 53 54 41 20 59 32 00 |.PHA.o#..STA Y2.|
00001B70: 77 23 9E 16 50 4C 41 00 82 23 A8 16 53 54 41 20 |w#..PLA..#..STA |
00001B80: 59 31 00 8D 23 B2 16 4C 44 41 20 23 31 00 99 23 |Y1..#..LDA #1..#|
00001B90: BC 16 53 54 41 20 B4 44 59 00 A1 23 C6 16 50 4C |..STA .DY..#..PL|
00001BA0: 41 00 A9 23 D0 16 52 54 53 00 B7 23 DA 16 4C 49 |A..#..RTS..#..LI|
00001BB0: 4E 45 31 20 B2 20 AC 00 C2 23 E4 16 4C 44 41 20 |NE1 . ...#..LDA |
00001BC0: 23 30 00 D4 23 EE 16 53 54 41 20 54 57 4F 44 59 |#0..#..STA TWODY|
00001BD0: 20 AA 20 31 00 DF 23 F8 16 4C 44 41 20 58 31 00 | . 1..#..LDA X1.|
00001BE0: EA 23 02 17 53 54 41 20 56 58 00 F9 23 0C 17 4C |.#..STA VX..#..L|
00001BF0: 44 41 20 58 31 20 AA 20 31 00 08 24 16 17 53 54 |DA X1 . 1..$..ST|
00001C00: 41 20 56 58 20 AA 20 31 00 13 24 20 17 4C 44 41 |A VX . 1..$ .LDA|
00001C10: 20 59 31 00 1E 24 2A 17 53 54 41 20 56 59 00 2D | Y1..$*.STA VY.-|
00001C20: 24 34 17 4C 44 41 20 44 58 20 AA 20 31 00 3F 24 |$4.LDA DX . 1.?$|
00001C30: 3E 17 53 54 41 20 54 57 4F 44 58 20 AA 20 31 00 |>.STA TWODX . 1.|
00001C40: 4A 24 48 17 4C 44 41 20 44 58 00 52 24 52 17 41 |J$H.LDA DX.R$R.A|
00001C50: 53 4C 00 64 24 5C 17 52 4F 4C 20 54 57 4F 44 58 |SL.d$\.ROL TWODX|
00001C60: 20 AA 20 31 00 72 24 66 17 53 54 41 20 54 57 4F | . 1.r$f.STA TWO|
00001C70: 44 58 00 81 24 70 17 53 54 41 20 45 50 53 49 4C |DX..$p.STA EPSIL|
00001C80: 91 00 93 24 7A 17 4C 44 41 20 54 57 4F 44 58 20 |...$z.LDA TWODX |
00001C90: AA 20 31 00 A6 24 84 17 53 54 41 20 45 50 53 49 |. 1..$..STA EPSI|
00001CA0: 4C 91 20 AA 20 31 00 B1 24 8E 17 4C 44 41 20 44 |L. . 1..$..LDA D|
00001CB0: 59 00 B9 24 98 17 41 53 4C 00 CB 24 A2 17 52 4F |Y..$..ASL..$..RO|
00001CC0: 4C 20 54 57 4F 44 59 20 AA 20 31 00 D9 24 AC 17 |L TWODY . 1..$..|
00001CD0: 53 54 41 20 54 57 4F 44 59 00 E1 24 B6 17 53 45 |STA TWODY..$..SE|
00001CE0: 43 00 F0 24 C0 17 4C 44 41 20 45 50 53 49 4C 91 |C..$..LDA EPSIL.|
00001CF0: 00 FB 24 CA 17 53 42 43 20 44 59 00 0A 25 D4 17 |..$..SBC DY..%..|
00001D00: 53 54 41 20 45 50 53 49 4C 91 00 1D 25 DE 17 4C |STA EPSIL...%..L|
00001D10: 44 41 20 45 50 53 49 4C 91 20 AA 20 31 00 28 25 |DA EPSIL. . 1.(%|
00001D20: E8 17 53 42 43 20 23 30 00 3B 25 F2 17 53 54 41 |..SBC #0.;%..STA|
00001D30: 20 45 50 53 49 4C 91 20 AA 20 31 00 49 25 FC 17 | EPSIL. . 1.I%..|
00001D40: 42 43 53 20 AC 20 AA 20 35 00 5C 25 06 18 44 45 |BCS . . 5.\%..DE|
00001D50: 43 20 45 50 53 49 4C 91 20 AA 20 31 00 67 25 10 |C EPSIL. . 1.g%.|
00001D60: 18 4C 44 59 20 44 59 00 75 25 1A 18 4C 4F 4F 50 |.LDY DY.u%..LOOP|
00001D70: 38 20 B2 20 AC 00 7D 25 24 18 54 59 41 00 85 25 |8 . ..}%$.TYA..%|
00001D80: 2E 18 50 48 41 00 94 25 38 18 4A 53 52 20 50 55 |..PHA..%8.JSR PU|
00001D90: 54 50 4F B5 00 A4 25 42 18 4A 53 52 20 43 48 45 |TPO...%B.JSR CHE|
00001DA0: 43 4B 45 50 00 AF 25 4C 18 43 50 58 20 23 31 00 |CKEP..%L.CPX #1.|
00001DB0: BD 25 56 18 42 4E 45 20 45 50 47 5A 45 00 C5 25 |.%V.BNE EPGZE..%|
00001DC0: 60 18 43 4C 43 00 D4 25 6A 18 4C 44 41 20 45 50 |`.CLC..%j.LDA EP|
00001DD0: 53 49 4C 91 00 E2 25 74 18 41 44 43 20 54 57 4F |SIL...%t.ADC TWO|
00001DE0: 44 58 00 F1 25 7E 18 53 54 41 20 45 50 53 49 4C |DX..%~.STA EPSIL|
00001DF0: 91 00 03 26 88 18 4C 44 41 20 54 57 4F 44 58 20 |...&..LDA TWODX |
00001E00: AA 20 31 00 16 26 92 18 41 44 43 20 45 50 53 49 |. 1..&..ADC EPSI|
00001E10: 4C 91 20 AA 20 31 00 29 26 9C 18 53 54 41 20 45 |L. . 1.)&..STA E|
00001E20: 50 53 49 4C 91 20 AA 20 31 00 36 26 A6 18 4A 53 |PSIL. . 1.6&..JS|
00001E30: 52 20 41 44 4A 59 00 3E 26 B0 18 50 4C 41 00 46 |R ADJY.>&..PLA.F|
00001E40: 26 BA 18 54 41 59 00 4E 26 C4 18 44 45 59 00 5C |&..TAY.N&..DEY.\|
00001E50: 26 CE 18 42 4E 45 20 4C 4F 4F 50 38 00 64 26 D8 |&..BNE LOOP8.d&.|
00001E60: 18 52 54 53 00 72 26 E2 18 45 50 47 5A 45 20 B2 |.RTS.r&..EPGZE .|
00001E70: 20 AC 00 7A 26 EC 18 43 4C 43 00 89 26 F6 18 4C | ..z&..CLC..&..L|
00001E80: 44 41 20 45 50 53 49 4C 91 00 97 26 00 19 41 44 |DA EPSIL...&..AD|
00001E90: 43 20 54 57 4F 44 58 00 9F 26 0A 19 54 41 58 00 |C TWODX..&..TAX.|
00001EA0: B2 26 14 19 4C 44 41 20 45 50 53 49 4C 91 20 AA |.&..LDA EPSIL. .|
00001EB0: 20 31 00 C4 26 1E 19 41 44 43 20 54 57 4F 44 58 | 1..&..ADC TWODX|
00001EC0: 20 AA 20 31 00 CC 26 28 19 54 41 59 00 D4 26 32 | . 1..&(.TAY..&2|
00001ED0: 19 53 45 43 00 DC 26 3C 19 54 58 41 00 EA 26 46 |.SEC..&<.TXA..&F|
00001EE0: 19 53 42 43 20 54 57 4F 44 59 00 F9 26 50 19 53 |.SBC TWODY..&P.S|
00001EF0: 54 41 20 45 50 53 49 4C 91 00 01 27 5A 19 54 59 |TA EPSIL...'Z.TY|
00001F00: 41 00 13 27 64 19 53 42 43 20 54 57 4F 44 59 20 |A..'d.SBC TWODY |
00001F10: AA 20 31 00 26 27 6E 19 53 54 41 20 45 50 53 49 |. 1.&'n.STA EPSI|
00001F20: 4C 91 20 AA 20 31 00 33 27 78 19 4A 53 52 20 41 |L. . 1.3'x.JSR A|
00001F30: 44 4A 58 00 40 27 82 19 4A 53 52 20 41 44 4A 59 |DJX.@'..JSR ADJY|
00001F40: 00 48 27 8C 19 50 4C 41 00 50 27 96 19 54 41 59 |.H'..PLA.P'..TAY|
00001F50: 00 58 27 A0 19 44 45 59 00 66 27 AA 19 42 4E 45 |.X'..DEY.f'..BNE|
00001F60: 20 4C 4F 4F 50 38 00 6E 27 B4 19 52 54 53 00 7B | LOOP8.n'..RTS.{|
00001F70: 27 BE 19 41 44 4A 58 20 B2 20 AC 00 87 27 C8 19 |'..ADJX . ...'..|
00001F80: 4C 44 41 20 B4 44 58 00 95 27 D2 19 42 4D 49 20 |LDA .DX..'..BMI |
00001F90: 53 55 42 44 58 00 9D 27 DC 19 43 4C 43 00 A8 27 |SUBDX..'..CLC..'|
00001FA0: E6 19 4C 44 41 20 56 58 00 B3 27 F0 19 41 44 43 |..LDA VX..'..ADC|
00001FB0: 20 23 31 00 BE 27 FA 19 53 54 41 20 56 58 00 CD | #1..'..STA VX..|
00001FC0: 27 04 1A 4C 44 41 20 56 58 20 AA 20 31 00 D8 27 |'..LDA VX . 1..'|
00001FD0: 0E 1A 41 44 43 20 23 30 00 E7 27 18 1A 53 54 41 |..ADC #0..'..STA|
00001FE0: 20 56 58 20 AA 20 31 00 EF 27 22 1A 52 54 53 00 | VX . 1..'".RTS.|
00001FF0: FD 27 2C 1A 53 55 42 44 58 20 B2 20 AC 00 05 28 |.',.SUBDX . ...(|
00002000: 36 1A 53 45 43 00 10 28 40 1A 4C 44 41 20 56 58 |6.SEC..(@.LDA VX|
00002010: 00 1B 28 4A 1A 53 42 43 20 23 31 00 26 28 54 1A |..(J.SBC #1.&(T.|
00002020: 53 54 41 20 56 58 00 35 28 5E 1A 4C 44 41 20 56 |STA VX.5(^.LDA V|
00002030: 58 20 AA 20 31 00 40 28 68 1A 53 42 43 20 23 30 |X . 1.@(h.SBC #0|
00002040: 00 4F 28 72 1A 53 54 41 20 56 58 20 AA 20 31 00 |.O(r.STA VX . 1.|
00002050: 57 28 7C 1A 52 54 53 00 64 28 86 1A 41 44 4A 59 |W(|.RTS.d(..ADJY|
00002060: 20 B2 20 AC 00 70 28 90 1A 4C 44 41 20 B4 44 59 | . ..p(..LDA .DY|
00002070: 00 7E 28 9A 1A 42 4D 49 20 AC 20 AA 20 36 00 89 |.~(..BMI . . 6..|
00002080: 28 A4 1A 49 4E 43 20 56 59 00 91 28 AE 1A 52 54 |(..INC VY..(..RT|
00002090: 53 00 9C 28 B8 1A 44 45 43 20 56 59 00 A4 28 C2 |S..(..DEC VY..(.|
000020A0: 1A 52 54 53 00 B4 28 CC 1A 43 48 45 43 4B 45 50 |.RTS..(..CHECKEP|
000020B0: 20 B2 20 AC 00 BF 28 D6 1A 4C 44 58 20 23 30 00 | . ...(..LDX #0.|
000020C0: CE 28 E0 1A 4C 44 41 20 45 50 53 49 4C 91 00 D9 |.(..LDA EPSIL...|
000020D0: 28 EA 1A 43 4D 50 20 23 30 00 EC 28 F4 1A 4C 44 |(..CMP #0..(..LD|
000020E0: 41 20 45 50 53 49 4C 91 20 AA 20 31 00 F7 28 FE |A EPSIL. . 1..(.|
000020F0: 1A 53 42 43 20 23 30 00 06 29 08 1B 42 4D 49 20 |.SBC #0..)..BMI |
00002100: 45 50 4C 45 5A 45 00 0E 29 12 1B 43 4C 43 00 1D |EPLEZE..)..CLC..|
00002110: 29 1C 1B 4C 44 41 20 45 50 53 49 4C 91 00 30 29 |)..LDA EPSIL..0)|
00002120: 26 1B 41 44 43 20 45 50 53 49 4C 91 20 AA 20 31 |&.ADC EPSIL. . 1|
00002130: 00 3F 29 30 1B 42 45 51 20 45 50 4C 45 5A 45 00 |.?)0.BEQ EPLEZE.|
00002140: 47 29 3A 1B 52 54 53 00 56 29 44 1B 45 50 4C 45 |G):.RTS.V)D.EPLE|
00002150: 5A 45 20 B2 20 AC 00 5E 29 4E 1B 49 4E 58 00 66 |ZE . ..^)N.INX.f|
00002160: 29 58 1B 52 54 53 00 74 29 62 1B 4C 49 4E 45 32 |)X.RTS.t)b.LINE2|
00002170: 20 B2 20 AC 00 7F 29 6C 1B 4C 44 41 20 23 30 00 | . ...)l.LDA #0.|
00002180: 91 29 76 1B 53 54 41 20 54 57 4F 44 59 20 AA 20 |.)v.STA TWODY . |
00002190: 31 00 9C 29 80 1B 4C 44 41 20 58 31 00 A7 29 8A |1..)..LDA X1..).|
000021A0: 1B 53 54 41 20 56 58 00 B6 29 94 1B 4C 44 41 20 |.STA VX..)..LDA |
000021B0: 58 31 20 AA 20 31 00 C5 29 9E 1B 53 54 41 20 56 |X1 . 1..)..STA V|
000021C0: 58 20 AA 20 31 00 D0 29 A8 1B 4C 44 41 20 59 31 |X . 1..)..LDA Y1|
000021D0: 00 DB 29 B2 1B 53 54 41 20 56 59 00 EA 29 BC 1B |..)..STA VY..)..|
000021E0: 4C 44 41 20 44 58 20 AA 20 31 00 FC 29 C6 1B 53 |LDA DX . 1..)..S|
000021F0: 54 41 20 54 57 4F 44 58 20 AA 20 31 00 07 2A D0 |TA TWODX . 1..*.|
00002200: 1B 4C 44 41 20 44 58 00 0F 2A DA 1B 41 53 4C 00 |.LDA DX..*..ASL.|
00002210: 21 2A E4 1B 52 4F 4C 20 54 57 4F 44 58 20 AA 20 |!*..ROL TWODX . |
00002220: 31 00 2F 2A EE 1B 53 54 41 20 54 57 4F 44 58 00 |1./*..STA TWODX.|
00002230: 3A 2A F8 1B 4C 44 41 20 44 59 00 42 2A 02 1C 41 |:*..LDA DY.B*..A|
00002240: 53 4C 00 54 2A 0C 1C 52 4F 4C 20 54 57 4F 44 59 |SL.T*..ROL TWODY|
00002250: 20 AA 20 31 00 62 2A 16 1C 53 54 41 20 54 57 4F | . 1.b*..STA TWO|
00002260: 44 59 00 71 2A 20 1C 53 54 41 20 45 50 53 49 4C |DY.q* .STA EPSIL|
00002270: 91 00 79 2A 2A 1C 50 48 41 00 8B 2A 34 1C 4C 44 |..y**.PHA..*4.LD|
00002280: 41 20 54 57 4F 44 59 20 AA 20 31 00 9E 2A 3E 1C |A TWODY . 1..*>.|
00002290: 53 54 41 20 45 50 53 49 4C 91 20 AA 20 31 00 A6 |STA EPSIL. . 1..|
000022A0: 2A 48 1C 53 45 43 00 AE 2A 52 1C 50 4C 41 00 BC |*H.SEC..*R.PLA..|
000022B0: 2A 5C 1C 53 42 43 20 54 57 4F 44 58 00 CB 2A 66 |*\.SBC TWODX..*f|
000022C0: 1C 53 54 41 20 45 50 53 49 4C 91 00 DE 2A 70 1C |.STA EPSIL...*p.|
000022D0: 4C 44 41 20 45 50 53 49 4C 91 20 AA 20 31 00 F0 |LDA EPSIL. . 1..|
000022E0: 2A 7A 1C 53 42 43 20 54 57 4F 44 58 20 AA 20 31 |*z.SBC TWODX . 1|
000022F0: 00 03 2B 84 1C 53 54 41 20 45 50 53 49 4C 91 20 |..+..STA EPSIL. |
00002300: AA 20 31 00 11 2B 8E 1C 4C 4F 4F 50 39 20 B2 20 |. 1..+..LOOP9 . |
00002310: AC 00 20 2B 98 1C 4A 53 52 20 50 55 54 50 4F B5 |.. +..JSR PUTPO.|
00002320: 00 30 2B A2 1C 4A 53 52 20 43 48 45 43 4B 45 50 |.0+..JSR CHECKEP|
00002330: 00 3B 2B AC 1C 43 50 58 20 23 31 00 4A 2B B6 1C |.;+..CPX #1.J+..|
00002340: 42 4E 45 20 45 50 47 5A 45 32 00 57 2B C0 1C 4A |BNE EPGZE2.W+..J|
00002350: 53 52 20 41 44 4A 58 00 5F 2B CA 1C 43 4C 43 00 |SR ADJX._+..CLC.|
00002360: 6E 2B D4 1C 4C 44 41 20 45 50 53 49 4C 91 00 7C |n+..LDA EPSIL..||
00002370: 2B DE 1C 41 44 43 20 54 57 4F 44 59 00 8B 2B E8 |+..ADC TWODY..+.|
00002380: 1C 53 54 41 20 45 50 53 49 4C 91 00 9E 2B F2 1C |.STA EPSIL...+..|
00002390: 4C 44 41 20 45 50 53 49 4C 91 20 AA 20 31 00 B0 |LDA EPSIL. . 1..|
000023A0: 2B FC 1C 41 44 43 20 54 57 4F 44 59 20 AA 20 31 |+..ADC TWODY . 1|
000023B0: 00 C3 2B 06 1D 53 54 41 20 45 50 53 49 4C 91 20 |..+..STA EPSIL. |
000023C0: AA 20 31 00 CB 2B 10 1D 43 4C 43 00 D7 2B 1A 1D |. 1..+..CLC..+..|
000023D0: 42 43 43 20 44 91 45 00 E6 2B 24 1D 45 50 47 5A |BCC D.E..+$.EPGZ|
000023E0: 45 32 20 B2 20 AC 00 F3 2B 2E 1D 4A 53 52 20 41 |E2 . ...+..JSR A|
000023F0: 44 4A 58 00 00 2C 38 1D 4A 53 52 20 41 44 4A 59 |DJX..,8.JSR ADJY|
00002400: 00 08 2C 42 1D 43 4C 43 00 17 2C 4C 1D 4C 44 41 |..,B.CLC..,L.LDA|
00002410: 20 45 50 53 49 4C 91 00 25 2C 56 1D 41 44 43 20 | EPSIL..%,V.ADC |
00002420: 54 57 4F 44 59 00 2D 2C 60 1D 54 41 58 00 40 2C |TWODY.-,`.TAX.@,|
00002430: 6A 1D 4C 44 41 20 45 50 53 49 4C 91 20 AA 20 31 |j.LDA EPSIL. . 1|
00002440: 00 52 2C 74 1D 41 44 43 20 54 57 4F 44 59 20 AA |.R,t.ADC TWODY .|
00002450: 20 31 00 5A 2C 7E 1D 54 41 59 00 62 2C 88 1D 53 | 1.Z,~.TAY.b,..S|
00002460: 45 43 00 6A 2C 92 1D 54 58 41 00 78 2C 9C 1D 53 |EC.j,..TXA.x,..S|
00002470: 42 43 20 54 57 4F 44 58 00 87 2C A6 1D 53 54 41 |BC TWODX..,..STA|
00002480: 20 45 50 53 49 4C 91 00 8F 2C B0 1D 54 59 41 00 | EPSIL...,..TYA.|
00002490: A1 2C BA 1D 53 42 43 20 54 57 4F 44 58 20 AA 20 |.,..SBC TWODX . |
000024A0: 31 00 B4 2C C4 1D 53 54 41 20 45 50 53 49 4C 91 |1..,..STA EPSIL.|
000024B0: 20 AA 20 31 00 C0 2C CE 1D 44 91 45 20 B2 20 AC | . 1..,..D.E . .|
000024C0: 00 C8 2C D8 1D 53 45 43 00 D3 2C E2 1D 4C 44 41 |..,..SEC..,..LDA|
000024D0: 20 58 32 00 DE 2C EC 1D 53 42 43 20 56 58 00 ED | X2..,..SBC VX..|
000024E0: 2C F6 1D 53 54 41 20 54 45 4D 50 58 32 00 FC 2C |,..STA TEMPX2..,|
000024F0: 00 1E 4C 44 41 20 58 32 20 AA 20 31 00 0B 2D 0A |..LDA X2 . 1..-.|
00002500: 1E 53 42 43 20 56 58 20 AA 20 31 00 13 2D 14 1E |.SBC VX . 1..-..|
00002510: 43 4C 43 00 22 2D 1E 1E 41 44 43 20 54 45 4D 50 |CLC."-..ADC TEMP|
00002520: 58 32 00 30 2D 28 1E 42 4E 45 20 4C 4F 4F 50 39 |X2.0-(.BNE LOOP9|
00002530: 00 38 2D 32 1E 52 54 53 00 47 2D 3C 1E 50 55 54 |.8-2.RTS.G-<.PUT|
00002540: 50 4F B5 20 B2 20 AC 00 57 2D 46 1E 4A 53 52 20 |PO. . ..W-F.JSR |
00002550: 41 44 44 52 45 53 53 00 64 2D 50 1E 4C 44 58 20 |ADDRESS.d-P.LDX |
00002560: 54 59 50 45 00 71 2D 5A 1E 4A 53 52 20 50 4C 4F |TYPE.q-Z.JSR PLO|
00002570: 54 00 79 2D 64 1E 52 54 53 00 88 2D 6E 1E 43 49 |T.y-d.RTS..-n.CI|
00002580: 52 43 4C 45 20 B2 20 AC 00 90 2D 78 1E 53 45 49 |RCLE . ...-x.SEI|
00002590: 00 9D 2D 82 1E 4A 53 52 20 A1 46 4C 54 00 AA 2D |..-..JSR .FLT..-|
000025A0: 8C 1E 4C 44 41 20 B5 4C 4F 57 00 B4 2D 96 1E 53 |..LDA .LOW..-..S|
000025B0: 54 41 20 48 00 C2 2D A0 1E 4C 44 41 20 B5 48 49 |TA H..-..LDA .HI|
000025C0: 47 48 00 D1 2D AA 1E 53 54 41 20 48 20 20 AA 20 |GH..-..STA H . |
000025D0: 31 00 DE 2D B4 1E 4A 53 52 20 A1 46 4C 54 00 EB |1..-..JSR .FLT..|
000025E0: 2D BE 1E 4C 44 41 20 B5 4C 4F 57 00 F5 2D C8 1E |-..LDA .LOW..-..|
000025F0: 53 54 41 20 4B 00 03 2E D2 1E 4C 44 41 20 B5 48 |STA K.....LDA .H|
00002600: 49 47 48 00 0F 2E DC 1E 53 54 41 20 4B AA 31 00 |IGH.....STA K.1.|
00002610: 19 2E E6 1E 4A 53 52 20 BD 00 24 2E F0 1E 53 54 |....JSR ..$...ST|
00002620: 58 20 41 31 00 2E 2E FA 1E 4A 53 52 20 BD 00 39 |X A1.....JSR ..9|
00002630: 2E 04 1F 53 54 58 20 42 31 00 43 2E 0E 1F 4A 53 |...STX B1.C...JS|
00002640: 52 20 BD 00 50 2E 18 1F 53 54 58 20 54 59 50 45 |R ..P...STX TYPE|
00002650: 00 5B 2E 22 1F 4C 44 41 20 23 30 00 67 2E 2C 1F |.[.".LDA #0.g.,.|
00002660: 53 54 41 20 50 48 49 00 71 2E 36 1F 53 54 41 20 |STA PHI.q.6.STA |
00002670: 59 00 7E 2E 40 1F 53 54 41 20 50 48 49 59 00 8D |Y.~.@.STA PHIY..|
00002680: 2E 4A 1F 53 54 41 20 50 48 49 59 AA 31 00 9B 2E |.J.STA PHIY.1...|
00002690: 54 1F 53 54 41 20 50 48 49 AA 31 00 A6 2E 5E 1F |T.STA PHI.1...^.|
000026A0: 4C 44 41 20 41 31 00 B1 2E 68 1F 43 4D 50 20 42 |LDA A1...h.CMP B|
000026B0: 31 00 BF 2E 72 1F 42 45 51 20 43 41 53 45 31 00 |1...r.BEQ CASE1.|
000026C0: CD 2E 7C 1F 42 43 53 20 43 41 53 45 32 00 DB 2E |..|.BCS CASE2...|
000026D0: 86 1F 53 54 41 20 46 49 52 53 54 00 E6 2E 90 1F |..STA FIRST.....|
000026E0: 4C 44 41 20 42 31 00 F4 2E 9A 1F 53 54 41 20 53 |LDA B1.....STA S|
000026F0: 45 43 4E 44 00 FE 2E A4 1F 53 54 41 20 58 00 0B |ECND.....STA X..|
00002700: 2F AE 1F 4C 4F 4F 50 42 20 B2 AC 00 18 2F B8 1F |/..LOOPB ..../..|
00002710: 4A 53 52 20 43 4F 4D 31 00 27 2F C2 1F 4A 53 52 |JSR COM1.'/..JSR|
00002720: 20 4F 43 54 53 43 58 00 34 2F CC 1F 4A 53 52 20 | OCTSCX.4/..JSR |
00002730: 43 4F 4D 32 00 3E 2F D6 1F 4C 44 41 20 58 00 48 |COM2.>/..LDA X.H|
00002740: 2F E0 1F 43 4D 50 20 59 00 56 2F EA 1F 42 43 53 |/..CMP Y.V/..BCS|
00002750: 20 4C 4F 4F 50 42 00 5E 2F F4 1F 43 4C 49 00 66 | LOOPB.^/..CLI.f|
00002760: 2F FE 1F 52 54 53 00 73 2F 08 20 43 41 53 45 32 |/..RTS.s/. CASE2|
00002770: 20 B2 AC 00 81 2F 12 20 53 54 41 20 53 45 43 4E | ..../. STA SECN|
00002780: 44 00 8B 2F 1C 20 53 54 41 20 58 00 96 2F 26 20 |D../. STA X../& |
00002790: 4C 44 41 20 42 31 00 A4 2F 30 20 53 54 41 20 46 |LDA B1../0 STA F|
000027A0: 49 52 53 54 00 B1 2F 3A 20 4C 4F 4F 50 43 20 B2 |IRST../: LOOPC .|
000027B0: AC 00 BE 2F 44 20 4A 53 52 20 43 4F 4D 31 00 CD |.../D JSR COM1..|
000027C0: 2F 4E 20 4A 53 52 20 4F 43 54 53 43 59 00 DA 2F |/N JSR OCTSCY../|
000027D0: 58 20 4A 53 52 20 43 4F 4D 32 00 E4 2F 62 20 4C |X JSR COM2../b L|
000027E0: 44 41 20 58 00 EE 2F 6C 20 43 4D 50 20 59 00 FC |DA X../l CMP Y..|
000027F0: 2F 76 20 42 43 53 20 4C 4F 4F 50 43 00 04 30 80 |/v BCS LOOPC..0.|
00002800: 20 43 4C 49 00 0C 30 8A 20 52 54 53 00 19 30 94 | CLI..0. RTS..0.|
00002810: 20 43 41 53 45 31 20 B2 AC 00 24 30 9E 20 4C 44 | CASE1 ...$0. LD|
00002820: 41 20 41 31 00 2E 30 A8 20 53 54 41 20 58 00 3B |A A1..0. STA X.;|
00002830: 30 B2 20 4C 4F 4F 50 41 20 B2 AC 00 48 30 BC 20 |0. LOOPA ...H0. |
00002840: 4A 53 52 20 43 4F 4D 31 00 54 30 C6 20 4A 53 52 |JSR COM1.T0. JSR|
00002850: 20 4F 43 54 00 61 30 D0 20 4A 53 52 20 43 4F 4D | OCT.a0. JSR COM|
00002860: 32 00 6B 30 DA 20 4C 44 41 20 58 00 75 30 E4 20 |2.k0. LDA X.u0. |
00002870: 43 4D 50 20 59 00 83 30 EE 20 42 43 53 20 4C 4F |CMP Y..0. BCS LO|
00002880: 4F 50 41 00 8B 30 F8 20 43 4C 49 00 93 30 02 21 |OPA..0. CLI..0.!|
00002890: 52 54 53 00 A2 30 0C 21 4F 43 54 50 4C 54 20 B2 |RTS..0.!OCTPLT .|
000028A0: 20 AC 00 AD 30 16 21 4C 44 41 20 58 32 00 B5 30 | ...0.!LDA X2..0|
000028B0: 20 21 43 4C 43 00 BF 30 2A 21 41 44 43 20 48 00 | !CLC..0*!ADC H.|
000028C0: CA 30 34 21 53 54 41 20 56 58 00 D2 30 3E 21 50 |.04!STA VX..0>!P|
000028D0: 48 41 00 DD 30 48 21 4C 44 41 20 23 30 00 EA 30 |HA..0H!LDA #0..0|
000028E0: 52 21 41 44 43 20 48 20 AA 31 00 F7 30 5C 21 53 |R!ADC H .1..0\!S|
000028F0: 54 41 20 56 58 AA 31 00 FF 30 66 21 50 48 41 00 |TA VX.1..0f!PHA.|
00002900: 07 31 70 21 43 4C 43 00 12 31 7A 21 4C 44 41 20 |.1p!CLC..1z!LDA |
00002910: 59 32 00 1C 31 84 21 41 44 43 20 4B 00 27 31 8E |Y2..1.!ADC K.'1.|
00002920: 21 53 54 41 20 56 59 00 32 31 98 21 4C 44 41 20 |!STA VY.21.!LDA |
00002930: 23 30 00 3E 31 A2 21 41 44 43 20 4B AA 31 00 4B |#0.>1.!ADC K.1.K|
00002940: 31 AC 21 53 54 41 20 56 59 AA 31 00 5A 31 B6 21 |1.!STA VY.1.Z1.!|
00002950: 4A 53 52 20 50 55 54 50 4F B5 00 62 31 C0 21 53 |JSR PUTPO..b1.!S|
00002960: 45 43 00 6C 31 CA 21 4C 44 41 20 48 00 77 31 D4 |EC.l1.!LDA H.w1.|
00002970: 21 53 42 43 20 58 32 00 82 31 DE 21 53 54 41 20 |!SBC X2..1.!STA |
00002980: 56 58 00 8F 31 E8 21 4C 44 41 20 48 20 AA 31 00 |VX..1.!LDA H .1.|
00002990: 9A 31 F2 21 53 42 43 20 23 30 00 A7 31 FC 21 53 |.1.!SBC #0..1.!S|
000029A0: 54 41 20 56 58 AA 31 00 B6 31 06 22 4A 53 52 20 |TA VX.1..1."JSR |
000029B0: 50 55 54 50 4F B5 00 BE 31 10 22 53 45 43 00 C8 |PUTPO...1."SEC..|
000029C0: 31 1A 22 4C 44 41 20 4B 00 D3 31 24 22 53 42 43 |1."LDA K..1$"SBC|
000029D0: 20 59 32 00 DE 31 2E 22 53 54 41 20 56 59 00 EA | Y2..1."STA VY..|
000029E0: 31 38 22 4C 44 41 20 4B AA 31 00 F5 31 42 22 53 |18"LDA K.1..1B"S|
000029F0: 42 43 20 23 30 00 02 32 4C 22 53 54 41 20 56 59 |BC #0..2L"STA VY|
00002A00: AA 31 00 11 32 56 22 4A 53 52 20 50 55 54 50 4F |.1..2V"JSR PUTPO|
00002A10: B5 00 19 32 60 22 50 4C 41 00 26 32 6A 22 53 54 |...2`"PLA.&2j"ST|
00002A20: 41 20 56 58 AA 31 00 2E 32 74 22 50 4C 41 00 39 |A VX.1..2t"PLA.9|
00002A30: 32 7E 22 53 54 41 20 56 58 00 48 32 88 22 4A 53 |2~"STA VX.H2."JS|
00002A40: 52 20 50 55 54 50 4F B5 00 50 32 92 22 43 4C 43 |R PUTPO..P2."CLC|
00002A50: 00 5A 32 9C 22 4C 44 41 20 48 00 65 32 A6 22 41 |.Z2."LDA H.e2."A|
00002A60: 44 43 20 58 33 00 70 32 B0 22 53 54 41 20 56 58 |DC X3.p2."STA VX|
00002A70: 00 78 32 BA 22 50 48 41 00 84 32 C4 22 4C 44 41 |.x2."PHA..2."LDA|
00002A80: 20 48 AA 31 00 8F 32 CE 22 41 44 43 20 23 30 00 | H.1..2."ADC #0.|
00002A90: 9C 32 D8 22 53 54 41 20 56 58 AA 31 00 A4 32 E2 |.2."STA VX.1..2.|
00002AA0: 22 50 48 41 00 AC 32 EC 22 43 4C 43 00 B6 32 F6 |"PHA..2."CLC..2.|
00002AB0: 22 4C 44 41 20 4B 00 C1 32 00 23 41 44 43 20 59 |"LDA K..2.#ADC Y|
00002AC0: 33 00 CC 32 0A 23 53 54 41 20 56 59 00 D8 32 14 |3..2.#STA VY..2.|
00002AD0: 23 4C 44 41 20 4B AA 31 00 E3 32 1E 23 41 44 43 |#LDA K.1..2.#ADC|
00002AE0: 20 23 30 00 F0 32 28 23 53 54 41 20 56 59 AA 31 | #0..2(#STA VY.1|
00002AF0: 00 FF 32 32 23 4A 53 52 20 50 55 54 50 4F B5 00 |..22#JSR PUTPO..|
00002B00: 07 33 3C 23 53 45 43 00 11 33 46 23 4C 44 41 20 |.3<#SEC..3F#LDA |
00002B10: 48 00 1C 33 50 23 53 42 43 20 58 33 00 27 33 5A |H..3P#SBC X3.'3Z|
00002B20: 23 53 54 41 20 56 58 00 34 33 64 23 4C 44 41 20 |#STA VX.43d#LDA |
00002B30: 48 20 AA 31 00 3F 33 6E 23 53 42 43 20 23 30 00 |H .1.?3n#SBC #0.|
00002B40: 4C 33 78 23 53 54 41 20 56 58 AA 31 00 5B 33 82 |L3x#STA VX.1.[3.|
00002B50: 23 4A 53 52 20 50 55 54 50 4F B5 00 63 33 8C 23 |#JSR PUTPO..c3.#|
00002B60: 53 45 43 00 6D 33 96 23 4C 44 41 20 4B 00 78 33 |SEC.m3.#LDA K.x3|
00002B70: A0 23 53 42 43 20 59 33 00 83 33 AA 23 53 54 41 |.#SBC Y3..3.#STA|
00002B80: 20 56 59 00 8F 33 B4 23 4C 44 41 20 4B AA 31 00 | VY..3.#LDA K.1.|
00002B90: 9A 33 BE 23 53 42 43 20 23 30 00 A7 33 C8 23 53 |.3.#SBC #0..3.#S|
00002BA0: 54 41 20 56 59 AA 31 00 B6 33 D2 23 4A 53 52 20 |TA VY.1..3.#JSR |
00002BB0: 50 55 54 50 4F B5 00 BE 33 DC 23 50 4C 41 00 CB |PUTPO...3.#PLA..|
00002BC0: 33 E6 23 53 54 41 20 56 58 AA 31 00 D3 33 F0 23 |3.#STA VX.1..3.#|
00002BD0: 50 4C 41 00 DE 33 FA 23 53 54 41 20 56 58 00 ED |PLA..3.#STA VX..|
00002BE0: 33 04 24 4A 53 52 20 50 55 54 50 4F B5 00 F8 33 |3.$JSR PUTPO...3|
00002BF0: 0E 24 4C 44 41 20 23 30 00 05 34 18 24 53 54 41 |.$LDA #0..4.$STA|
00002C00: 20 56 59 AA 31 00 0D 34 22 24 43 4C 49 00 15 34 | VY.1..4"$CLI..4|
00002C10: 2C 24 52 54 53 00 22 34 36 24 43 4F 4D 31 20 B2 |,$RTS."46$COM1 .|
00002C20: 20 AC 00 2D 34 40 24 4C 44 41 20 23 30 00 3C 34 | ..-4@$LDA #0.<4|
00002C30: 4A 24 53 54 41 20 50 48 49 59 AA 31 00 4B 34 54 |J$STA PHIY.1.K4T|
00002C40: 24 53 54 41 20 54 45 4D 50 AA 31 00 55 34 5E 24 |$STA TEMP.1.U4^$|
00002C50: 4C 44 41 20 59 00 5F 34 68 24 41 53 4C 20 41 00 |LDA Y._4h$ASL A.|
00002C60: 6E 34 72 24 52 4F 4C 20 50 48 49 59 AA 31 00 7B |n4r$ROL PHIY.1.{|
00002C70: 34 7C 24 53 54 41 20 50 48 49 59 00 88 34 86 24 |4|$STA PHIY..4.$|
00002C80: 49 4E 43 20 50 48 49 59 00 96 34 90 24 42 43 43 |INC PHIY..4.$BCC|
00002C90: 20 4A 55 4D 50 31 00 A5 34 9A 24 49 4E 43 20 50 | JUMP1..4.$INC P|
00002CA0: 48 49 59 AA 31 00 B3 34 A4 24 4A 55 4D 50 31 20 |HIY.1..4.$JUMP1 |
00002CB0: B2 20 AC 00 BB 34 AE 24 43 4C 43 00 C7 34 B8 24 |. ...4.$CLC..4.$|
00002CC0: 4C 44 41 20 50 48 49 00 D4 34 C2 24 41 44 43 20 |LDA PHI..4.$ADC |
00002CD0: 50 48 49 59 00 E1 34 CC 24 53 54 41 20 50 48 49 |PHIY..4.$STA PHI|
00002CE0: 59 00 EF 34 D6 24 53 54 41 20 50 48 49 58 59 00 |Y..4.$STA PHIXY.|
00002CF0: FD 34 E0 24 4C 44 41 20 50 48 49 AA 31 00 0C 35 |.4.$LDA PHI.1..5|
00002D00: EA 24 41 44 43 20 50 48 49 59 AA 31 00 1B 35 F4 |.$ADC PHIY.1..5.|
00002D10: 24 53 54 41 20 50 48 49 59 AA 31 00 2B 35 FE 24 |$STA PHIY.1.+5.$|
00002D20: 53 54 41 20 50 48 49 58 59 AA 31 00 35 35 08 25 |STA PHIXY.1.55.%|
00002D30: 4C 44 41 20 58 00 42 35 12 25 53 54 41 20 54 45 |LDA X.B5.%STA TE|
00002D40: 4D 50 00 4F 35 1C 25 41 53 4C 20 54 45 4D 50 00 |MP.O5.%ASL TEMP.|
00002D50: 5E 35 26 25 52 4F 4C 20 54 45 4D 50 AA 31 00 6B |^5&%ROL TEMP.1.k|
00002D60: 35 30 25 44 45 43 20 54 45 4D 50 00 79 35 3A 25 |50%DEC TEMP.y5:%|
00002D70: 42 43 43 20 4A 55 4D 50 32 00 88 35 44 25 44 45 |BCC JUMP2..5D%DE|
00002D80: 43 20 54 45 4D 50 AA 31 00 96 35 4E 25 4A 55 4D |C TEMP.1..5N%JUM|
00002D90: 50 32 20 B2 20 AC 00 9E 35 58 25 53 45 43 00 AC |P2 . ...5X%SEC..|
00002DA0: 35 62 25 4C 44 41 20 50 48 49 58 59 00 B9 35 6C |5b%LDA PHIXY..5l|
00002DB0: 25 53 42 43 20 54 45 4D 50 00 C7 35 76 25 53 54 |%SBC TEMP..5v%ST|
00002DC0: 41 20 50 48 49 58 59 00 D7 35 80 25 4C 44 41 20 |A PHIXY..5.%LDA |
00002DD0: 50 48 49 58 59 AA 31 00 E6 35 8A 25 53 42 43 20 |PHIXY.1..5.%SBC |
00002DE0: 54 45 4D 50 AA 31 00 F6 35 94 25 53 54 41 20 50 |TEMP.1..5.%STA P|
00002DF0: 48 49 58 59 AA 31 00 FE 35 9E 25 52 54 53 00 09 |HIXY.1..5.%RTS..|
00002E00: 36 A8 25 4F 43 54 20 B2 AC 00 13 36 B2 25 4C 44 |6.%OCT ....6.%LD|
00002E10: 41 20 58 00 1E 36 BC 25 53 54 41 20 58 32 00 29 |A X..6.%STA X2.)|
00002E20: 36 C6 25 53 54 41 20 59 33 00 33 36 D0 25 4C 44 |6.%STA Y3.36.%LD|
00002E30: 41 20 59 00 3E 36 DA 25 53 54 41 20 59 32 00 49 |A Y.>6.%STA Y2.I|
00002E40: 36 E4 25 53 54 41 20 58 33 00 58 36 EE 25 4A 53 |6.%STA X3.X6.%JS|
00002E50: 52 20 4F 43 54 50 4C 54 00 60 36 F8 25 52 54 53 |R OCTPLT.`6.%RTS|
00002E60: 00 6D 36 02 26 43 4F 4D 32 20 B2 20 AC 00 7A 36 |.m6.&COM2 . ..z6|
00002E70: 0C 26 4C 44 41 20 50 48 49 59 00 88 36 16 26 53 |.&LDA PHIY..6.&S|
00002E80: 54 41 20 54 45 4D 50 32 00 94 36 20 26 53 54 41 |TA TEMP2..6 &STA|
00002E90: 20 50 48 49 00 A3 36 2A 26 4C 44 41 20 50 48 49 | PHI..6*&LDA PHI|
00002EA0: 59 AA 31 00 B3 36 34 26 53 54 41 20 54 45 4D 50 |Y.1..64&STA TEMP|
00002EB0: 32 AA 31 00 C1 36 3E 26 53 54 41 20 50 48 49 AA |2.1..6>&STA PHI.|
00002EC0: 31 00 CB 36 48 26 49 4E 43 20 59 00 D9 36 52 26 |1..6H&INC Y..6R&|
00002ED0: 4C 44 41 20 50 48 49 58 59 00 E6 36 5C 26 53 54 |LDA PHIXY..6\&ST|
00002EE0: 41 20 54 45 4D 50 00 F6 36 66 26 4C 44 41 20 50 |A TEMP..6f&LDA P|
00002EF0: 48 49 58 59 AA 31 00 05 37 70 26 53 54 41 20 54 |HIXY.1..7p&STA T|
00002F00: 45 4D 50 AA 31 00 10 37 7A 26 42 50 4C 20 B6 31 |EMP.1..7z&BPL .1|
00002F10: 00 1C 37 84 26 45 B0 20 23 24 46 46 00 2B 37 8E |..7.&E. #$FF.+7.|
00002F20: 26 53 54 41 20 54 45 4D 50 AA 31 00 38 37 98 26 |&STA TEMP.1.87.&|
00002F30: 4C 44 41 20 54 45 4D 50 00 44 37 A2 26 45 B0 20 |LDA TEMP.D7.&E. |
00002F40: 23 24 46 46 00 51 37 AC 26 53 54 41 20 54 45 4D |#$FF.Q7.&STA TEM|
00002F50: 50 00 5E 37 B6 26 49 4E 43 20 54 45 4D 50 00 6C |P.^7.&INC TEMP.l|
00002F60: 37 C0 26 42 43 43 20 AC 20 AA 20 35 00 7D 37 CA |7.&BCC . . 5.}7.|
00002F70: 26 49 4E 43 20 54 45 4D 50 20 AA 20 31 00 88 37 |&INC TEMP . 1..7|
00002F80: D4 26 B6 31 20 B2 20 AC 00 98 37 DE 26 4C 44 41 |.&.1 . ...7.&LDA|
00002F90: 20 54 45 4D 50 32 AA 31 00 A3 37 E8 26 42 50 4C | TEMP2.1..7.&BPL|
00002FA0: 20 B6 32 00 AF 37 F2 26 45 B0 20 23 24 46 46 00 | .2..7.&E. #$FF.|
00002FB0: BF 37 FC 26 53 54 41 20 54 45 4D 50 32 AA 31 00 |.7.&STA TEMP2.1.|
00002FC0: CD 37 06 27 4C 44 41 20 54 45 4D 50 32 00 D9 37 |.7.'LDA TEMP2..7|
00002FD0: 10 27 45 B0 20 23 24 46 46 00 E7 37 1A 27 53 54 |.'E. #$FF..7.'ST|
00002FE0: 41 20 54 45 4D 50 32 00 F5 37 24 27 49 4E 43 20 |A TEMP2..7$'INC |
00002FF0: 54 45 4D 50 32 00 03 38 2E 27 42 43 43 20 AC 20 |TEMP2..8.'BCC . |
00003000: AA 20 35 00 13 38 38 27 49 4E 43 20 54 45 4D 50 |. 5..88'INC TEMP|
00003010: 32 AA 31 00 1E 38 42 27 B6 32 20 B2 20 AC 00 2D |2.1..8B'.2 . ..-|
00003020: 38 4C 27 4C 44 41 20 54 45 4D 50 AA 31 00 3D 38 |8L'LDA TEMP.1.=8|
00003030: 56 27 43 4D 50 20 54 45 4D 50 32 AA 31 00 4B 38 |V'CMP TEMP2.1.K8|
00003040: 60 27 42 45 51 20 4D 41 59 42 45 00 57 38 6A 27 |`'BEQ MAYBE.W8j'|
00003050: 42 43 43 20 59 45 53 00 5F 38 74 27 52 54 53 00 |BCC YES._8t'RTS.|
00003060: 6D 38 7E 27 4D 41 59 42 45 20 B2 20 AC 00 7A 38 |m8~'MAYBE . ..z8|
00003070: 88 27 4C 44 41 20 54 45 4D 50 00 88 38 92 27 43 |.'LDA TEMP..8.'C|
00003080: 4D 50 20 54 45 4D 50 32 00 94 38 9C 27 42 43 43 |MP TEMP2..8.'BCC|
00003090: 20 59 45 53 00 9C 38 A6 27 52 54 53 00 A8 38 B0 | YES..8.'RTS..8.|
000030A0: 27 59 45 53 20 B2 20 AC 00 B6 38 BA 27 4C 44 41 |'YES . ...8.'LDA|
000030B0: 20 50 48 49 58 59 00 C2 38 C4 27 53 54 41 20 50 | PHIXY..8.'STA P|
000030C0: 48 49 00 D2 38 CE 27 4C 44 41 20 50 48 49 58 59 |HI..8.'LDA PHIXY|
000030D0: AA 31 00 E0 38 D8 27 53 54 41 20 50 48 49 AA 31 |.1..8.'STA PHI.1|
000030E0: 00 EA 38 E2 27 44 45 43 20 58 00 F2 38 EC 27 52 |..8.'DEC X..8.'R|
000030F0: 54 53 00 FF 38 F6 27 53 43 41 4C 45 20 B2 AC 00 |TS..8.'SCALE ...|
00003100: 0A 39 00 28 4C 44 58 20 23 38 00 18 39 0A 28 4C |.9.(LDX #8..9.(L|
00003110: 44 41 20 46 49 52 53 54 00 28 39 14 28 53 54 41 |DA FIRST.(9.(STA|
00003120: 20 54 45 4D 50 32 AA 31 00 33 39 1E 28 4C 44 41 | TEMP2.1.39.(LDA|
00003130: 20 23 30 00 40 39 28 28 53 54 41 20 54 45 4D 50 | #0.@9((STA TEMP|
00003140: 00 4F 39 32 28 53 54 41 20 54 45 4D 50 AA 31 00 |.O92(STA TEMP.1.|
00003150: 5B 39 3C 28 4D 55 4C 54 20 B2 AC 00 65 39 46 28 |[9<(MULT ...e9F(|
00003160: 41 53 4C 20 41 00 74 39 50 28 52 4F 4C 20 54 45 |ASL A.t9P(ROL TE|
00003170: 4D 50 AA 31 00 84 39 5A 28 41 53 4C 20 54 45 4D |MP.1..9Z(ASL TEM|
00003180: 50 32 AA 31 00 91 39 64 28 42 43 43 20 53 4B 49 |P2.1..9d(BCC SKI|
00003190: 50 00 99 39 6E 28 43 4C 43 00 A7 39 78 28 41 44 |P..9n(CLC..9x(AD|
000031A0: 43 20 54 45 4D 50 32 00 B4 39 82 28 42 43 43 20 |C TEMP2..9.(BCC |
000031B0: 53 4B 49 50 00 C3 39 8C 28 49 4E 43 20 54 45 4D |SKIP..9.(INC TEM|
000031C0: 50 AA 31 00 CF 39 96 28 53 4B 49 50 20 B2 AC 00 |P.1..9.(SKIP ...|
000031D0: D7 39 A0 28 44 45 58 00 E4 39 AA 28 42 4E 45 20 |.9.(DEX..9.(BNE |
000031E0: 4D 55 4C 54 00 F1 39 B4 28 53 54 41 20 54 45 4D |MULT..9.(STA TEM|
000031F0: 50 00 FC 39 BE 28 4C 44 58 20 23 38 00 0A 3A C8 |P..9.(LDX #8..:.|
00003200: 28 4C 44 41 20 53 45 43 4E 44 00 1A 3A D2 28 53 |(LDA SECND..:.(S|
00003210: 54 41 20 54 45 4D 50 32 AA 31 00 29 3A DC 28 4C |TA TEMP2.1.):.(L|
00003220: 44 41 20 54 45 4D 50 AA 31 00 34 3A E6 28 44 49 |DA TEMP.1.4:.(DI|
00003230: 56 20 B2 AC 00 41 3A F0 28 41 53 4C 20 54 45 4D |V ...A:.(ASL TEM|
00003240: 50 00 4B 3A FA 28 52 4F 4C 20 41 00 5B 3A 04 29 |P.K:.(ROL A.[:.)|
00003250: 43 4D 50 20 54 45 4D 50 32 AA 31 00 6A 3A 0E 29 |CMP TEMP2.1.j:.)|
00003260: 42 43 43 20 42 52 41 4E 43 48 00 7A 3A 18 29 53 |BCC BRANCH.z:.)S|
00003270: 42 43 20 54 45 4D 50 32 AA 31 00 87 3A 22 29 49 |BC TEMP2.1..:")I|
00003280: 4E 43 20 54 45 4D 50 00 95 3A 2C 29 42 52 41 4E |NC TEMP..:,)BRAN|
00003290: 43 48 20 B2 AC 00 9D 3A 36 29 44 45 58 00 A9 3A |CH ....:6)DEX..:|
000032A0: 40 29 42 4E 45 20 44 49 56 00 B1 3A 4A 29 52 54 |@)BNE DIV..:J)RT|
000032B0: 53 00 BF 3A 54 29 4F 43 54 53 43 59 20 B2 AC 00 |S..:T)OCTSCY ...|
000032C0: C9 3A 5E 29 4C 44 41 20 58 00 D4 3A 68 29 53 54 |.:^)LDA X..:h)ST|
000032D0: 41 20 58 32 00 E2 3A 72 29 53 54 41 20 54 45 4D |A X2..:r)STA TEM|
000032E0: 50 32 00 F0 3A 7C 29 4A 53 52 20 53 43 41 4C 45 |P2..:|)JSR SCALE|
000032F0: 00 FD 3A 86 29 4C 44 41 20 54 45 4D 50 00 08 3B |..:.)LDA TEMP..;|
00003300: 90 29 53 54 41 20 59 33 00 12 3B 9A 29 4C 44 41 |.)STA Y3..;.)LDA|
00003310: 20 59 00 1D 3B A4 29 53 54 41 20 58 33 00 2B 3B | Y..;.)STA X3.+;|
00003320: AE 29 53 54 41 20 54 45 4D 50 32 00 39 3B B8 29 |.)STA TEMP2.9;.)|
00003330: 4A 53 52 20 53 43 41 4C 45 00 46 3B C2 29 4C 44 |JSR SCALE.F;.)LD|
00003340: 41 20 54 45 4D 50 00 51 3B CC 29 53 54 41 20 59 |A TEMP.Q;.)STA Y|
00003350: 32 00 60 3B D6 29 4A 53 52 20 4F 43 54 50 4C 54 |2.`;.)JSR OCTPLT|
00003360: 00 68 3B E0 29 52 54 53 00 76 3B EA 29 4F 43 54 |.h;.)RTS.v;.)OCT|
00003370: 53 43 58 20 B2 AC 00 80 3B F4 29 4C 44 41 20 58 |SCX ....;.)LDA X|
00003380: 00 8B 3B FE 29 53 54 41 20 59 33 00 99 3B 08 2A |..;.)STA Y3..;.*|
00003390: 53 54 41 20 54 45 4D 50 32 00 A7 3B 12 2A 4A 53 |STA TEMP2..;.*JS|
000033A0: 52 20 53 43 41 4C 45 00 B4 3B 1C 2A 4C 44 41 20 |R SCALE..;.*LDA |
000033B0: 54 45 4D 50 00 BF 3B 26 2A 53 54 41 20 58 32 00 |TEMP..;&*STA X2.|
000033C0: C9 3B 30 2A 4C 44 41 20 59 00 D4 3B 3A 2A 53 54 |.;0*LDA Y..;:*ST|
000033D0: 41 20 59 32 00 E2 3B 44 2A 53 54 41 20 54 45 4D |A Y2..;D*STA TEM|
000033E0: 50 32 00 F0 3B 4E 2A 4A 53 52 20 53 43 41 4C 45 |P2..;N*JSR SCALE|
000033F0: 00 FD 3B 58 2A 4C 44 41 20 54 45 4D 50 00 08 3C |..;X*LDA TEMP..<|
00003400: 62 2A 53 54 41 20 58 33 00 17 3C 6C 2A 4A 53 52 |b*STA X3..<l*JSR|
00003410: 20 4F 43 54 50 4C 54 00 1F 3C 76 2A 52 54 53 00 | OCTPLT..<v*RTS.|
00003420: 2D 3C 80 2A B5 52 55 50 54 20 B2 20 AC 00 35 3C |-<.*.RUPT . ..5<|
00003430: 8A 2A 50 48 41 00 3D 3C 94 2A 54 58 41 00 45 3C |.*PHA.=<.*TXA.E<|
00003440: 9E 2A 50 48 41 00 4D 3C A8 2A 54 59 41 00 55 3C |.*PHA.M<.*TYA.U<|
00003450: B2 2A 50 48 41 00 64 3C BC 2A 4A 53 52 20 53 54 |.*PHA.d<.*JSR ST|
00003460: 50 52 54 4E 00 74 3C C6 2A 42 4E 45 20 52 45 47 |PRTN.t<.*BNE REG|
00003470: 55 4C 41 52 00 82 3C D0 2A 4A 53 52 20 24 45 33 |ULAR..<.*JSR $E3|
00003480: 39 44 00 93 3C DA 2A 52 45 47 55 4C 41 52 20 B2 |9D..<.*REGULAR .|
00003490: 20 20 AC 00 9B 3C E4 2A 50 4C 41 00 A3 3C EE 2A | ...<.*PLA..<.*|
000034A0: 54 41 59 00 AB 3C F8 2A 50 4C 41 00 B3 3C 02 2B |TAY..<.*PLA..<.+|
000034B0: 54 41 58 00 BB 3C 0C 2B 50 4C 41 00 C9 3C 16 2B |TAX..<.+PLA..<.+|
000034C0: 4A 4D 50 20 24 45 41 33 31 00 D9 3C 20 2B 49 4E |JMP $EA31..< +IN|
000034D0: 49 54 41 4C 4C 20 B2 20 AC 00 E7 3C 2A 2B 4A 53 |ITALL . ...<*+JS|
000034E0: 52 20 43 4C 45 41 52 00 F7 3C 34 2B 4A 4D 50 20 |R CLEAR..<4+JMP |
000034F0: 53 45 54 53 43 52 53 00 04 3D 3E 2B A1 46 4C 54 |SETSCRS..=>+.FLT|
00003500: 20 B2 20 AC 00 11 3D 48 2B 4A 53 52 20 43 48 52 | . ...=H+JSR CHR|
00003510: A1 00 1E 3D 52 2B 4A 53 52 20 46 4C 54 BD 00 2B |...=R+JSR FLT..+|
00003520: 3D 5C 2B 4A 53 52 20 46 4C 54 B5 00 33 3D 66 2B |=\+JSR FLT..3=f+|
00003530: 52 54 53 00 3D 3D 70 2B 94 20 B2 20 AC 00 47 3D |RTS.==p+. . ..G=|
00003540: 7A 2B 4A 53 52 20 BD 00 55 3D 84 2B 53 54 58 20 |z+JSR ..U=.+STX |
00003550: 46 49 C3 55 4D 00 64 3D 8E 2B 4A 53 52 20 43 48 |FI.UM.d=.+JSR CH|
00003560: 4B 4F 55 54 00 74 3D 98 2B 4C 44 41 20 23 B3 53 |KOUT.t=.+LDA #.S|
00003570: 54 41 52 54 00 81 3D A2 2B 53 54 41 20 54 45 4D |TART..=.+STA TEM|
00003580: 50 00 90 3D AC 2B 4A 53 52 20 43 48 52 4F 55 54 |P..=.+JSR CHROUT|
00003590: 00 A0 3D B6 2B 4C 44 41 20 23 B1 53 54 41 52 54 |..=.+LDA #.START|
000035A0: 00 AF 3D C0 2B 4A 53 52 20 43 48 52 4F 55 54 00 |..=.+JSR CHROUT.|
000035B0: C0 3D CA 2B 53 54 41 20 54 45 4D 50 20 AA 20 31 |.=.+STA TEMP . 1|
000035C0: 00 CB 3D D4 2B 4C 44 59 20 23 30 00 D6 3D DE 2B |..=.+LDY #0..=.+|
000035D0: 4C 44 58 20 23 30 00 E5 3D E8 2B 4C 4F 4F 50 31 |LDX #0..=.+LOOP1|
000035E0: 30 20 B2 20 AC 00 EF 3D F2 2B 4C 44 41 20 31 00 |0 . ...=.+LDA 1.|
000035F0: F7 3D FC 2B 50 48 41 00 08 3E 06 2C AF 20 23 25 |.=.+PHA..>.,. #%|
00003600: 31 31 31 31 31 31 30 31 00 10 3E 10 2C 53 45 49 |11111101..>.,SEI|
00003610: 00 1A 3E 1A 2C 53 54 41 20 31 00 2B 3E 24 2C 4C |..>.,STA 1.+>$,L|
00003620: 44 41 20 28 54 45 4D 50 29 2C 59 00 35 3E 2E 2C |DA (TEMP),Y.5>.,|
00003630: 53 54 41 20 83 00 3D 3E 38 2C 50 4C 41 00 47 3E |STA ..=>8,PLA.G>|
00003640: 42 2C 53 54 41 20 31 00 4F 3E 4C 2C 43 4C 49 00 |B,STA 1.O>L,CLI.|
00003650: 59 3E 56 2C 4C 44 41 20 83 00 68 3E 60 2C 4A 53 |Y>V,LDA ..h>`,JS|
00003660: 52 20 43 48 52 4F 55 54 00 70 3E 6A 2C 49 4E 59 |R CHROUT.p>j,INY|
00003670: 00 7F 3E 74 2C 42 4E 45 20 4C 4F 4F 50 31 30 00 |..>t,BNE LOOP10.|
00003680: 90 3E 7E 2C 49 4E 43 20 54 45 4D 50 20 AA 20 31 |.>~,INC TEMP . 1|
00003690: 00 98 3E 88 2C 49 4E 58 00 A5 3E 92 2C 43 50 58 |..>.,INX..>.,CPX|
000036A0: 20 23 24 32 30 00 B4 3E 9C 2C 42 4E 45 20 4C 4F | #$20..>.,BNE LO|
000036B0: 4F 50 31 30 00 C2 3E A6 2C 4C 44 41 20 46 49 C3 |OP10..>.,LDA FI.|
000036C0: 55 4D 00 CC 3E B0 2C 4A 53 52 20 A0 00 D4 3E BA |UM..>.,JSR ...>.|
000036D0: 2C 52 54 53 00 DA 3E C4 2C 3B 00 EA 3E CE 2C 55 |,RTS..>.,;..>.,U|
000036E0: 4E 44 4F 56 45 43 20 B2 20 AC 00 F0 3E D8 2C 3B |NDOVEC . ...>.,;|
000036F0: 00 F8 3E E2 2C 53 45 49 00 05 3F EC 2C 4C 44 41 |..>.,SEI..?.,LDA|
00003700: 20 23 24 33 31 00 11 3F F6 2C 53 54 41 20 49 52 | #$31..?.,STA IR|
00003710: 51 00 1E 3F 00 2D 4C 44 41 20 23 24 45 41 00 2E |Q..?.-LDA #$EA..|
00003720: 3F 0A 2D 53 54 41 20 49 52 51 20 AA 20 31 00 3B |?.-STA IRQ . 1.;|
00003730: 3F 14 2D 4C 44 41 20 23 24 38 42 00 49 3F 1E 2D |?.-LDA #$8B.I?.-|
00003740: 53 54 41 20 49 45 52 52 B0 00 56 3F 28 2D 4C 44 |STA IERR..V?(-LD|
00003750: 41 20 23 24 45 33 00 68 3F 32 2D 53 54 41 20 49 |A #$E3.h?2-STA I|
00003760: 45 52 52 B0 20 AA 20 31 00 70 3F 3C 2D 43 4C 49 |ERR. . 1.p?<-CLI|
00003770: 00 78 3F 46 2D 52 54 53 00 86 3F 50 2D 58 33 20 |.x?F-RTS..?P-X3 |
00003780: 2E 57 B0 44 20 30 00 95 3F 5A 2D 59 33 20 2E 42 |.W.D 0..?Z-Y3 .B|
00003790: 59 54 45 20 30 00 A3 3F 64 2D 4B 20 20 2E 57 B0 |YTE 0..?d-K .W.|
000037A0: 44 20 30 00 B1 3F 6E 2D 48 20 20 2E 57 B0 44 20 |D 0..?n-H .W.D |
000037B0: 30 00 C2 3F 78 2D 54 45 4D 50 32 20 2E 57 B0 44 |0..?x-TEMP2 .W.D|
000037C0: 20 30 00 D2 3F 82 2D 50 48 49 59 20 2E 57 B0 44 | 0..?.-PHIY .W.D|
000037D0: 20 30 00 E3 3F 8C 2D 50 48 49 58 59 20 2E 57 B0 | 0..?.-PHIXY .W.|
000037E0: 44 20 30 00 F2 3F 96 2D 50 48 49 20 2E 57 B0 44 |D 0..?.-PHI .W.D|
000037F0: 20 30 00 02 40 A0 2D B4 44 58 20 2E 42 59 54 45 | 0..@.-.DX .BYTE|
00003800: 20 30 00 12 40 AA 2D B4 44 59 20 2E 42 59 54 45 | 0..@.-.DY .BYTE|
00003810: 20 30 00 24 40 B4 2D 45 50 53 49 4C 91 20 2E 57 | 0.$@.-EPSIL. .W|
00003820: B0 44 20 30 00 33 40 BE 2D 41 31 20 2E 42 59 54 |.D 0.3@.-A1 .BYT|
00003830: 45 20 30 00 42 40 C8 2D 42 31 20 2E 42 59 54 45 |E 0.B@.-B1 .BYTE|
00003840: 20 30 00 54 40 D2 2D 46 49 52 53 54 20 2E 42 59 | 0.T@.-FIRST .BY|
00003850: 54 45 20 30 00 66 40 DC 2D 53 45 43 4E 44 20 2E |TE 0.f@.-SECND .|
00003860: 42 59 54 45 20 30 00 74 40 E6 2D 58 20 2E 42 59 |BYTE 0.t@.-X .BY|
00003870: 54 45 20 30 00 82 40 F0 2D 59 20 2E 42 59 54 45 |TE 0..@.-Y .BYTE|
00003880: 20 30 00 94 40 FA 2D 45 52 52 56 45 43 20 2E 57 | 0..@.-ERRVEC .W|
00003890: B0 44 20 30 00 A7 40 04 2E 4F 4C 44 43 4F 4C 20 |.D 0..@..OLDCOL |
000038A0: 2E 42 59 54 45 20 30 00 B9 40 0E 2E 46 49 C3 55 |.BYTE 0..@..FI.U|
000038B0: 4D 20 2E 42 59 54 45 20 30 00 D9 40 18 2E 50 48 |M .BYTE 0..@..PH|
000038C0: 41 53 45 20 2E 8B 20 50 48 41 53 45 AB AC 3A 50 |ASE .. PHASE..:P|
000038D0: 48 41 53 45 20 45 52 52 B0 00 E0 40 22 2E 2E 80 |HASE ERR...@"...|
000038E0: 00 E6 40 2C 2E 80 00 00 00 |..@,..... |
.......700......OPT OO.(....SCRN . $C000
.9.(.P.TA . $DD00.K.2.DDRA . $DD02.].<.
VICCR . $D011.P.F.VICMCR . $D018...P.B.D
ER . $D020...Z.START . $E000...D.. . $FF
3F...N.CHR. . $73...X.. . $B7F1.P...FLT.
. $AD9E.....FLT. . $BC9B......FLT . $B3
91... .STPRTN . $F6ED.....BREAK . $A82F
.+...CHROUT . $FFD2.>...CHKOUT . $FFC9.M
.H. . $FFC3.^.R.IERR. . $300.P...IRQ
. $314......HIGH . $64......LOW . $65.
....TEMP . $FD.....COLOUR . $FC.....TYPE
. $19.J.... = $20.X.".XBI . $21...,.VY
. $2B9...6.VX . $FB...@..ADD . $311...J
.X1 . $2A7. .T.X2 . $2A9...^.DX . $2AB.<
.H.Y1 . $2AD.J.R.Y2 . $2AE.X.|.DY . $2AF
.I...TWODX . $2B0.Z...TWODY . $2B2.....R
ESULT . $2B4.....TEMPX2 . $2B6.....TEMPY
2 . $2B8....... $C407.M.B.JMP INITALL.W.
L.JMP ....V.NOP:NOP:NOP.....JMP BLOCK...
..JMP BOXFIL.....JMP CLSCOLOUR.%...JMP S
ETPNT.5...JMP BCOLOUR.?...JMP ..N...JMP
CIRCLE.[.&.JMP LINE.G.0.JMP BOX.W.:.JMP
SETSCRS.}.D.;...N.CLEAR . ....X.;...B.LD
Y #.START...L.STY TEMP . 1.B.V.LDY #.STA
RT.O...STY TEMP.W...TYA.....TAX.....SEI.
....LOOP . ......STA (TEMP),Y.....INY...
F.BNE LOOP.+.P.INC TEMP . 1.3.Z.INX.@...
CPX #$20.M...BNE LOOP.S...;.E...CLSCOLOU
R . ..K...;.U...JSR ..}. .TXA...*.ASL...
4.ASL...>.ASL...H.ASL...R.STA COLOUR...\
.JSR ....F.TXA.L.P..A COLOUR...Z.LDY #..
SCRN.....STY TEMP . 1.....LDY #..SCRN...
..STY TEMP.....LDX TEMP.....;.+...LOOP1
. ..1...;.B.J.STA (TEMP),Y.J.T.INY.X...B
NE LOOP1.I...INC TEMP . 1.Q...INX.|...CP
X #4.....BNE LOOP1.....CLI.....RTS...$.A
DDRESS . ......LDA VY.1.E.8.BEQ . . 3.M.
B.RTS.X.L.LDA VY...V.CMP #200...`.BCC .
. 3...J.RTS...T.LDA VX . 1...~.BEQ XYOKA
Y.$...CMP #2.2...BCC . . 3.:...RTS.E...L
DA VX.Q...CMP #64.`...BCC XYOKAY.H.D.RTS
.N.N.;.}.X.XYOKAY . ......;.....LDA #0..
...STA TEMP.....STA TEMP . 1.....LDA VX.
H.... #%00000111.T...STA XBI...(.LDA #7.
..2.SEC...<.SBC XBI...F.TAX...P.LDA VY..
.Z.. #%11111000.!.D.STA ..).N.CLC.1.X.AS
L.B...ROL TEMP . 1.J...ASL.[...ROL TEMP
. 1.C. .CLC.M...ADC ..{...BCC . . 5.....
INC TEMP . 1...H.CLC...R.ASL.....ROL TEM
P . 1.....ASL.F...ROL TEMP . 1.N...ASL..
...ROL TEMP . 1.....STA TEMP.....LDA #.S
TART...".ADC TEMP . 1...,.STA TEMP . 1.)
.6.LDA VX.:.@.. #%11111000.B.J.CLC.O.T.A
DC TEMP.\.^.STA TEMP.J.H.BCC . . 4.{.R.I
NC TEMP . 1...|.LDA VX . 1.....BEQ . . 4
.....INC TEMP . 1.....LDA VY.E.... #%000
00111.M...CLC.Z...ADC TEMP...B.STA TEMP.
..L.BCC . . 4...V.INC TEMP . 1.....SEI..
...LDA 1. ...PHA.1.... #%11111101.;...ST
A 1.F...LDY #0.W...LDA (TEMP),Y._.&.TAY.
G.0.PLA.Q.:.STA 1.Y.D.TYA...N.CLI...X.LD
Y TABLE,X...B.STY XBI...L.STA ....V.RTS.
....TABLE . .......BYTE 1,2,4,8,16,32,64
,128.....;.....SETPNT . ......;.....JSR
.FLT.....LDA .LOW...F.STA VX.'.P.STA X2.
5.Z.LDA .HIGH.D...STA VX . 1.S...STA X2
. 1.]...JSR ..H...STX VY.S...STX Y2.}...
JSR .... .TXA...*.PHA...4.JSR ADDRESS...
>.PLA...H.TAX...R.PLOT . ..E.\.CPX #0.S.
F.BNE . . 6...P.JSR BI.FF...Z.RTS.....CP
X #1.....BNE . . 6.....JSR BI.N.....RTS.
%...JSR .GGLE.-...RTS.:...BI.N . ..F.J.L
DA XBI.O.T..A ..Z...LDY #0.K...STA (TEMP
),Y.S...RTS.Y...;.....SETSCRS . ......;.
....SEI...$.LDA DDRA......A #%00000011.C
.8.STA DDRA.P.B.LDA P.TA...L.. #%1111110
0...V.STA P.TA...`.LDA VICMCR...J..A #%0
0001000. .T.. #%00001111./.~.STA VICMCR.
=...LDA VICCR.O....A #%00100000.]...STA
VICCR.L...LDA #.TEST.Y...STA .ADD.....LD
A #.TEST...D.STA .ADD . 1...N.LDA #..ERR
...X.STA IERR..E...LDA #..ERR.W...STA IE
RR. . 1.....LDA #..RUPT.....STA IRQ.....
LDA #..RUPT.....STA IRQ . 1.....;.).(.BC
OLOUR . ../.2.;.9.<.JSR ..C.F.STX ..Q.P.
LDA B.DER.`.Z.STA OLDCOL.Q.D.. #%1111000
0.Z.N..A ....X.STA B.DER.....LDA #0.....
STA VY.....STA VY . 1... .CLI.....RTS.C.
..;.Q....GGLE . ....H.LDA XBI...R.E. ...
...LDY #0.....STA (TEMP),Y.....RTS.....;
.....BI.FF . ..+...LDA #$FF.6...E. XBI.>
.".. ..I.,.LDY #0.Z.6.STA (TEMP),Y.B.@.R
TS.H.J.;.R.T.. . ..~.^.LDA #23...H.STA V
ICMCR...R.LDA #27...|.STA VICCR.....LDA
#199.A...STA P.TA.M...LDA #63.Z...STA DD
RA.....LDA OLDCOL.....STA B.DER...B.RTS.
..L.;...V.TEST . ......;.%...JSR FLT..2.
..LDA .LOW.=...STA VX.K...LDA .HIGH.Z...
STA VX . 1.D...JSR ..O.&.STX VY..0.JSR
ADDRESS...:.LDA ....D.. XBI. .N.BEQ .SET
...X.LDY #$FF...B.TYA.E.L.S.REFLT . ..R.
V.JSR .FLT.Z...RTS.....;......SET . ....
..;.....LDY #0.....TYA.....CLC...F.BCC S
.REFLT.+.P..ERR . ..5.Z.JSR ..E...JSR UN
DOVEC.U...JMP (IERR.).[...;.K...LIBOINP
. ..Q...;.~...JSR .FLT... .LDA .LOW...*.
STA X1...4.LDA .HIGH...>.STA X1 . 1...H.
JSR ..H.R.STX Y1.U.\.JSR .FLT...F.LDA .L
OW...P.STA X2...Z.LDA .HIGH.....STA X2 .
1.....JSR ......STX Y2.)...JSR ..6...ST
X TYPE.>...RTS.D...;.S.J.CHECKX . ..Y.T.
;.D...LDA #1.P...STA .DX.X...SEC.....LDA
X1.....SBC X2.....STA RESULT.....LDA X1
. 1...$.SBC X2 . 1.N...STA RESULT . 1..
.8.BCC RMINUS...B.LDA RESULT...L.CMP RES
ULT . 1...V.BNE RPLUS...`.LDA #0.#.J.STA
DX.2.T.STA DX . 1.:.~.RTS.@...;.O...RMI
NUS . ..U...;.]...SEC.H...LDA X2.S...SBC
X1.~.D.STA DX...N.LDA X2 . 1...X.SBC X1
. 1.....STA DX . 1.....RTS.....;.G...RP
LUS . ..M...;.Y...LDA #.1.....STA .DX...
(.LDA RESULT...2.STA DX...<.LDA RESULT .
1.!.F.STA DX . 1.).P.RTS./.Z.;.>.D.CHEC
KY . ..D.N.;.O.X.LDA #1.[...STA .DY.C...
SEC.N...LDA Y1.Y. .SBC Y2.....BCC YMINUS
.....BNE YPLUS.....STA DY...H.RTS...R.;.
....YMINUS . ..D...;.L...SEC.W...LDA Y2.
....SBC Y1.....STA DY.....RTS...".YPLUS
. ....,.STA DY...6.LDA #.1.&.@.STA .DY..
.J.RTS.4.T.;.A.^.LINE . ..G.H.;.O.R.SEI.
_.|.JSR LIBOINP.N...LINENT . ..}...JSR C
HECKX.....JSR CHECKY.....CLC.....LDA DX
. 1.....ADC DX...B.BEQ DYGTDX.H.L.LDA DY
.W.V.BEQ DXGTDY.....LDA DX . 1.....BNE D
XGTDY.....SEC.....LDA DX.....SBC DY."...
BCS DXGTDY.1...DYGTDX . ..?.&.JSR LINE1.
G.0.CLI.O.:.RTS.^.D.DXGTDY . ..L.N.JSR L
INE2.T.X.CLI.|.B.RTS...L.;...V.BOX . ...
...;.....JSR LIBOINP.....LDA Y1.....TAY.
....PHA.J...LDA Y2.R...PHA.Z.F.TYA...P.S
TA Y2...Z.SEI.....JSR LINENT.....PLA....
.STA Y1.....STA Y2."...PHA.*...SEI.9. .J
SR LINENT.A.*.PLA.L.4.STA Y2.T.>.PLA._.H
.STA Y1.J.R.LDA X2.R.\.PHA...F.LDA X2 .
1...P.PHA...Z.LDA X1.....STA X2.....LDA
X1 . 1.....STA X2 . 1.E...SEI.T...JSR LI
NENT.....PLA.....STA X2 . 1...J.STA X1 .
1...T.PLA.....STA X2.....STA X1. ...SEI
./...JSR LINENT.7...RTS.=...;.L...BOXFIL
. ..R.$.;.B...JSR LIBOINP.Q.8.JSR CHECK
Y.}.B.LDA .DY...L.BPL . . 5...V.JSR SWAP
YS...`.LDY DY...J.LDA Y1...T.STA Y2.I.~.
LOOP6 . ..Q...TYA.Y...PHA.....SEI:JSR LI
NENT.....INC Y1.. ..INC Y2.. ..PLA.. D.T
AY.. N.DEY.( X.BNE LOOP6.0 ..RTS.6 ..;.D
..BLOCK . ..J ..;.Z ..JSR LIBOINP.I ..J
SR CHECKX.X ..JSR CHECKY.. (.LDA TYPE..
2.ASL.. <.ASL.. F.ASL.. P.ASL.. Z.STA CO
LOUR.. D.JSR ..F N.TXA.T X..A COLOUR.. .
.STA COLOUR.. ..LDA #0.. ..STA TEMP..! .
STA TEMP . 1..!..LDA Y1..!..CLC.'!..ASL.
8!H.ROL TEMP . 1.@!R.ASL.Q!..ROL TEMP .
1.Y!..CLC.D!..ADC Y1.R!..BCC . . 5..!..I
NC TEMP . 1..!..CLC..!..ASL..!".ROL TEMP
. 1..!,.ASL..!6.ROL TEMP . 1.E!@.ASL.V!
J.ROL TEMP . 1..!T.CLC..!^.ADC X1..!H.ST
A TEMP.."R.BCC . . 5.."|.INC TEMP . 1.."
..CLC.-"..LDA #..SCRN.>"..ADC TEMP . 1.O
"..STA TEMP . 1.Z"..LDX Y1.I"..OUTER1 .
..X"B.LDA COLOUR.."L.LDY #0.."V.LOOP7 .
..."..STA (TEMP),Y.."..INY.."..CPY DX.C"
..BNE LOOP7.K"..CLC.X"..LDA TEMP.."..ADC
#40.."&.STA TEMP.."0.BCC . . 4..#:.INC
TEMP . 1..#D.INX.##N.CPX Y2.2#X.BNE OUTE
R1.:#B.RTS.I#L.SWAPYS . ..Q#V.PHA.\#..LD
A Y1.D#..PHA.O#..STA Y2.W#..PLA..#..STA
Y1..#..LDA #1..#..STA .DY..#F.PLA..#P.RT
S..#Z.LINE1 . ..B#..LDA #0.T#..STA TWODY
. 1..#..LDA X1..#..STA VX..#..LDA X1 .
1..$..STA VX . 1..$ .LDA Y1..$*.STA VY.-
$4.LDA DX . 1.?$>.STA TWODX . 1.J$H.LDA
DX.R$R.ASL.D$\.ROL TWODX . 1.R$F.STA TWO
DX..$P.STA EPSIL...$Z.LDA TWODX . 1..$..
STA EPSIL. . 1..$..LDA DY..$..ASL.K$..RO
L TWODY . 1.Y$..STA TWODY..$..SEC..$..LD
A EPSIL...$J.SBC DY..%T.STA EPSIL...%..L
DA EPSIL. . 1.(%..SBC #0.;%..STA EPSIL.
. 1.I%..BCS . . 5.\%..DEC EPSIL. . 1.G%.
.LDY DY.U%..LOOP8 . ..}%$.TYA..%..PHA..%
8.JSR PUTPO...%B.JSR CHECKEP..%L.CPX #1.
.%V.BNE EPGZE.E%`.CLC.T%J.LDA EPSIL...%T
.ADC TWODX..%~.STA EPSIL...&..LDA TWODX
. 1..&..ADC EPSIL. . 1.)&..STA EPSIL. .
1.6&..JSR ADJY.>&..PLA.F&..TAY.N&D.DEY.\
&N.BNE LOOP8.D&X.RTS.R&..EPGZE . ..Z&..C
LC..&..LDA EPSIL...&..ADC TWODX..&..TAX.
.&..LDA EPSIL. . 1.D&..ADC TWODX . 1.L&(
.TAY.T&2.SEC..&<.TXA..&F.SBC TWODY..&P.S
TA EPSIL...'Z.TYA..'D.SBC TWODY . 1.&'N.
STA EPSIL. . 1.3'X.JSR ADJX.@'..JSR ADJY
.H'..PLA.P'..TAY.X' .DEY.F'..BNE LOOP8.N
'..RTS.{'..ADJX . ...'H.LDA .DX..'R.BMI
SUBDX..'..CLC..'..LDA VX..'..ADC #1..'..
STA VX.M'..LDA VX . 1.X'..ADC #0..'..STA
VX . 1..'".RTS..',.SUBDX . ...(6.SEC..(
@.LDA VX..(J.SBC #1.&(T.STA VX.5(^.LDA V
X . 1.@(H.SBC #0.O(R.STA VX . 1.W(|.RTS.
D(..ADJY . ..P(..LDA .DY.~(..BMI . . 6..
(..INC VY..(..RTS..(..DEC VY..(B.RTS..(L
.CHECKEP . ...(V.LDX #0.N(..LDA EPSIL..Y
(..CMP #0..(..LDA EPSIL. . 1..(..SBC #0.
.)..BMI EPLEZE..)..CLC..)..LDA EPSIL..0)
&.ADC EPSIL. . 1.?)0.BEQ EPLEZE.G):.RTS.
V)D.EPLEZE . ..^)N.INX.F)X.RTS.T)B.LINE2
. ..)L.LDA #0..)V.STA TWODY . 1..)..LD
A X1..)..STA VX..)..LDA X1 . 1.E)..STA V
X . 1.P)..LDA Y1..)..STA VY..)..LDA DX .
1..)F.STA TWODX . 1..*P.LDA DX..*Z.ASL.
!*..ROL TWODX . 1./*..STA TWODX.:*..LDA
DY.B*..ASL.T*..ROL TWODY . 1.B*..STA TWO
DY.Q* .STA EPSIL..Y**.PHA..*4.LDA TWODY
. 1..*>.STA EPSIL. . 1..*H.SEC..*R.PLA..
*\.SBC TWODX.K*F.STA EPSIL...*P.LDA EPSI
L. . 1..*Z.SBC TWODX . 1..+..STA EPSIL.
. 1..+..LOOP9 . .. +..JSR PUTPO..0+..JSR
CHECKEP.;+..CPX #1.J+..BNE EPGZE2.W+..J
SR ADJX._+J.CLC.N+T.LDA EPSIL..|+..ADC T
WODY..+..STA EPSIL...+..LDA EPSIL. . 1..
+..ADC TWODY . 1.C+..STA EPSIL. . 1.K+..
CLC.W+..BCC D.E..+$.EPGZE2 . ...+..JSR A
DJX..,8.JSR ADJY..,B.CLC..,L.LDA EPSIL..
%,V.ADC TWODY.-,`.TAX.@,J.LDA EPSIL. . 1
.R,T.ADC TWODY . 1.Z,~.TAY.B,..SEC.J,..T
XA.X,..SBC TWODX..,..STA EPSIL...,..TYA.
.,..SBC TWODX . 1..,D.STA EPSIL. . 1..,N
.D.E . ..H,X.SEC.S,..LDA X2..,..SBC VX..
,..STA TEMPX2..,..LDA X2 . 1..-..SBC VX
. 1..-..CLC."-..ADC TEMPX2.0-(.BNE LOOP9
.8-2.RTS.G-<.PUTPO. . ..W-F.JSR ADDRESS.
D-P.LDX TYPE.Q-Z.JSR PLOT.Y-D.RTS..-N.CI
RCLE . ...-X.SEI..-..JSR .FLT..-..LDA .L
OW..-..STA H.B- .LDA .HIGH.Q-..STA H .
1..-..JSR .FLT..-..LDA .LOW..-H.STA K...
R.LDA .HIGH.....STA K.1.....JSR ..$...ST
X A1.....JSR ..9...STX B1.C...JSR ..P...
STX TYPE.[.".LDA #0.G.,.STA PHI.Q.6.STA
Y.~.@.STA PHIY...J.STA PHIY.1...T.STA PH
I.1...^.LDA A1...H.CMP B1...R.BEQ CASE1.
M.|.BCS CASE2.....STA FIRST.....LDA B1..
...STA SECND.....STA X../..LOOPB ..../..
JSR COM1.'/B.JSR OCTSCX.4/L.JSR COM2.>/V
.LDA X.H/..CMP Y.V/..BCS LOOPB.^/..CLI.F
/..RTS.S/. CASE2 ..../. STA SECND../. ST
A X../& LDA B1../0 STA FIRST../: LOOPC .
.../D JSR COM1.M/N JSR OCTSCY.Z/X JSR CO
M2../B LDA X../L CMP Y../V BCS LOOPC..0.
CLI..0. RTS..0. CASE1 ...$0. LDA A1..0.
STA X.;0. LOOPA ...H0. JSR COM1.T0F JSR
OCT.A0P JSR COM2.K0Z LDA X.U0. CMP Y..0
. BCS LOOPA..0. CLI..0.!RTS..0.!OCTPLT .
...0.!LDA X2..0 !CLC..0*!ADC H.J04!STA
VX.R0>!PHA..0H!LDA #0..0R!ADC H .1..0\!S
TA VX.1..0F!PHA..1P!CLC..1Z!LDA Y2..1.!A
DC K.'1.!STA VY.21.!LDA #0.>1.!ADC K.1.K
1.!STA VY.1.Z1.!JSR PUTPO..B1.!SEC.L1J!L
DA H.W1T!SBC X2..1.!STA VX..1.!LDA H .1.
.1.!SBC #0..1.!STA VX.1..1."JSR PUTPO...
1."SEC.H1."LDA K.S1$"SBC Y2..1."STA VY..
18"LDA K.1..1B"SBC #0..2L"STA VY.1..2V"J
SR PUTPO...2`"PLA.&2J"STA VX.1..2T"PLA.9
2~"STA VX.H2."JSR PUTPO..P2."CLC.Z2."LDA
H.E2."ADC X3.P2."STA VX.X2."PHA..2D"LDA
H.1..2N"ADC #0..2X"STA VX.1..2."PHA..2.
"CLC..2."LDA K.A2.#ADC Y3.L2.#STA VY.X2.
#LDA K.1..2.#ADC #0..2(#STA VY.1..22#JSR
PUTPO...3<#SEC..3F#LDA H..3P#SBC X3.'3Z
#STA VX.43D#LDA H .1.?3N#SBC #0.L3X#STA
VX.1.[3.#JSR PUTPO..C3.#SEC.M3.#LDA K.X3
#SBC Y3..3.#STA VY..3.#LDA K.1..3.#SBC
#0..3H#STA VY.1..3R#JSR PUTPO...3.#PLA.K
3.#STA VX.1.S3.#PLA..3.#STA VX..3.$JSR P
UTPO...3.$LDA #0..4.$STA VY.1..4"$CLI..4
,$RTS."46$COM1 . ..-4@$LDA #0.<4J$STA PH
IY.1.K4T$STA TEMP.1.U4^$LDA Y._4H$ASL A.
N4R$ROL PHIY.1.{4|$STA PHIY..4.$INC PHIY
..4.$BCC JUMP1..4.$INC PHIY.1..4.$JUMP1
. ...4.$CLC.G4.$LDA PHI.T4B$ADC PHIY..4L
$STA PHIY..4V$STA PHIXY..4.$LDA PHI.1..5
.$ADC PHIY.1..5.$STA PHIY.1.+5.$STA PHIX
Y.1.55.%LDA X.B5.%STA TEMP.O5.%ASL TEMP.
^5&%ROL TEMP.1.K50%DEC TEMP.Y5:%BCC JUMP
2..5D%DEC TEMP.1..5N%JUMP2 . ...5X%SEC..
5B%LDA PHIXY..5L%SBC TEMP.G5V%STA PHIXY.
W5.%LDA PHIXY.1..5.%SBC TEMP.1..5.%STA P
HIXY.1..5.%RTS..6.%OCT ....6.%LDA X..6.%
STA X2.)6F%STA Y3.36P%LDA Y.>6Z%STA Y2.I
6.%STA X3.X6.%JSR OCTPLT.`6.%RTS.M6.&COM
2 . ..Z6.&LDA PHIY..6.&STA TEMP2..6 &STA
PHI..6*&LDA PHIY.1..64&STA TEMP2.1.A6>&
STA PHI.1.K6H&INC Y.Y6R&LDA PHIXY..6\&ST
A TEMP..6F&LDA PHIXY.1..7P&STA TEMP.1..7
Z&BPL .1..7.&E. #$FF.+7.&STA TEMP.1.87.&
LDA TEMP.D7.&E. #$FF.Q7.&STA TEMP.^7.&IN
C TEMP.L7.&BCC . . 5.}7J&INC TEMP . 1..7
T&.1 . ...7.&LDA TEMP2.1..7.&BPL .2..7.&
E. #$FF..7.&STA TEMP2.1.M7.'LDA TEMP2.Y7
.'E. #$FF..7.'STA TEMP2..7$'INC TEMP2..8
.'BCC . . 5..88'INC TEMP2.1..8B'.2 . ..-
8L'LDA TEMP.1.=8V'CMP TEMP2.1.K8`'BEQ MA
YBE.W8J'BCC YES._8T'RTS.M8~'MAYBE . ..Z8
.'LDA TEMP..8.'CMP TEMP2..8.'BCC YES..8.
'RTS..8.'YES . ...8.'LDA PHIXY.B8D'STA P
HI.R8N'LDA PHIXY.1..8X'STA PHI.1..8.'DEC
X..8.'RTS..8.'SCALE ....9.(LDX #8..9.(L
DA FIRST.(9.(STA TEMP2.1.39.(LDA #0.@9((
STA TEMP.O92(STA TEMP.1.[9<(MULT ...E9F(
ASL A.T9P(ROL TEMP.1..9Z(ASL TEMP2.1..9D
(BCC SKIP..9N(CLC..9X(ADC TEMP2..9.(BCC
SKIP.C9.(INC TEMP.1.O9.(SKIP ...W9 (DEX.
.9.(BNE MULT..9.(STA TEMP..9.(LDX #8..:H
(LDA SECND..:R(STA TEMP2.1.):.(LDA TEMP.
1.4:.(DIV ...A:.(ASL TEMP.K:.(ROL A.[:.)
CMP TEMP2.1.J:.)BCC BRANCH.Z:.)SBC TEMP2
.1..:")INC TEMP..:,)BRANCH ....:6)DEX..:
@)BNE DIV..:J)RTS..:T)OCTSCY ...I:^)LDA
X.T:H)STA X2..:R)STA TEMP2..:|)JSR SCALE
..:.)LDA TEMP..;.)STA Y3..;.)LDA Y..;.)S
TA X3.+;.)STA TEMP2.9;.)JSR SCALE.F;B)LD
A TEMP.Q;L)STA Y2.`;V)JSR OCTPLT.H;.)RTS
.V;.)OCTSCX ....;.)LDA X..;.)STA Y3..;.*
STA TEMP2..;.*JSR SCALE..;.*LDA TEMP..;&
*STA X2.I;0*LDA Y.T;:*STA Y2..;D*STA TEM
P2..;N*JSR SCALE..;X*LDA TEMP..<B*STA X3
..<L*JSR OCTPLT..<V*RTS.-<.*.RUPT . ..5<
.*PHA.=<.*TXA.E<.*PHA.M<.*TYA.U<.*PHA.D<
.*JSR STPRTN.T<F*BNE REGULAR..<P*JSR $E3
9D..<Z*REGULAR . ...<.*PLA..<.*TAY..<.*
PLA..<.+TAX..<.+PLA.I<.+JMP $EA31.Y< +IN
ITALL . ...<*+JSR CLEAR..<4+JMP SETSCRS.
.=>+.FLT . ...=H+JSR CHR...=R+JSR FLT..+
=\+JSR FLT..3=F+RTS.==P+. . ..G=Z+JSR ..
U=.+STX FICUM.D=.+JSR CHKOUT.T=.+LDA #.S
TART..=.+STA TEMP..=.+JSR CHROUT. =.+LDA
#.START..=.+JSR CHROUT..=J+STA TEMP . 1
.K=T+LDY #0.V=.+LDX #0..=.+LOOP10 . ...=
.+LDA 1..=.+PHA..>.,. #%11111101..>.,SEI
..>.,STA 1.+>$,LDA (TEMP),Y.5>.,STA ..=>
8,PLA.G>B,STA 1.O>L,CLI.Y>V,LDA ..H>`,JS
R CHROUT.P>J,INY.>T,BNE LOOP10..>~,INC
TEMP . 1..>.,INX..>.,CPX #$20..>.,BNE LO
OP10.B>.,LDA FICUM.L>.,JSR .T>.,RTS.Z>D
,;..>N,UNDOVEC . ...>X,;..>.,SEI..?.,LDA
#$31..?.,STA IRQ..?.-LDA #$EA..?.-STA I
RQ . 1.;?.-LDA #$8B.I?.-STA IERR..V?(-LD
A #$E3.H?2-STA IERR. . 1.P?<-CLI.X?F-RTS
..?P-X3 .W.D 0..?Z-Y3 .BYTE 0..?D-K .W.
D 0..?N-H .W.D 0.B?X-TEMP2 .W.D 0.R?.-P
HIY .W.D 0..?.-PHIXY .W.D 0..?.-PHI .W.D
0..@ -.DX .BYTE 0..@.-.DY .BYTE 0.$@.-E
PSIL. .W.D 0.3@.-A1 .BYTE 0.B@H-B1 .BYTE
0.T@R-FIRST .BYTE 0.F@.-SECND .BYTE 0.T
@.-X .BYTE 0..@.-Y .BYTE 0..@.-ERRVEC .W
.D 0..@..OLDCOL .BYTE 0..@..FICUM .BYTE
0.Y@..PHASE .. PHASE..:PHASE ERR...@"...
..@,.....
> CLICK IMAGE PREVIEW FOR FULL MODAL