00000000: 01 1C 0E 1C 0A 00 AC B2 20 24 31 33 30 33 00 19 |........ $1303..|
00000010: 1C 14 00 2E 4C 49 53 20 53 00 24 1C 1E 00 2E 4F |....LIS S.$....O|
00000020: 42 4A 20 4D 00 4D 1C 28 00 3B 20 B2 B2 B2 B2 B2 |BJ M.M.(.; .....|
00000030: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000040: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 73 1C |..............s.|
00000050: 32 00 3B 20 53 55 50 45 52 20 AB 20 48 41 52 44 |2.; SUPER . HARD|
00000060: F4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 |. 1|
00000070: 39 38 37 00 9C 1C 3C 00 3B 20 B2 B2 B2 B2 B2 B2 |987...<.; ......|
00000080: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000090: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 ED 1C 41 |...............A|
000000A0: 00 4D 4F 44 49 20 B2 20 24 31 35 34 43 20 3A 44 |.MODI . $154C :D|
000000B0: 52 55 43 4B 20 B2 20 24 31 35 35 36 20 3A 5A 4F |RUCK . $1556 :ZO|
000000C0: 4F 4D 58 59 20 B2 20 24 31 35 35 33 20 3A 53 54 |OMXY . $1553 :ST|
000000D0: 41 20 4D 4F 44 49 20 3A 53 54 58 20 5A 4F 4F 4D |A MODI :STX ZOOM|
000000E0: 58 59 20 3A 53 54 59 20 44 52 55 43 4B 00 21 1D |XY :STY DRUCK.!.|
000000F0: 42 00 4C 44 41 20 44 52 55 43 4B 20 3A 43 4D 50 |B.LDA DRUCK :CMP|
00000100: 20 23 24 30 30 20 3A 42 4E 45 20 4E 31 20 3A 4C | #$00 :BNE N1 :L|
00000110: 44 41 20 23 37 35 20 3A 53 54 41 20 44 52 55 43 |DA #75 :STA DRUC|
00000120: 4B 00 5A 1D 43 00 4E 31 20 4C 44 41 20 5A 4F 4F |K.Z.C.N1 LDA ZOO|
00000130: 4D 58 59 20 3A 43 4D 50 20 23 24 30 30 20 3A 42 |MXY :CMP #$00 :B|
00000140: 4E 45 20 4E 32 20 3A 4C 44 41 20 23 31 37 20 3A |NE N2 :LDA #17 :|
00000150: 53 54 41 20 5A 4F 4F 4D 58 59 00 97 1D 44 00 4E |STA ZOOMXY...D.N|
00000160: 32 20 4A 53 52 20 5A 4F 4D 43 41 4C 20 3A 58 42 |2 JSR ZOMCAL :XB|
00000170: 4C 4F 20 B2 20 24 31 35 35 35 20 3A 58 42 48 49 |LO . $1555 :XBHI|
00000180: 20 B2 20 24 31 35 35 34 20 3A 5A 4F 4F 4D 59 20 | . $1554 :ZOOMY |
00000190: B2 20 24 31 35 35 37 00 C1 1D 46 00 4C 44 41 20 |. $1557...F.LDA |
000001A0: 23 24 30 30 20 3A 53 54 41 20 24 46 41 20 3A 53 |#$00 :STA $FA :S|
000001B0: 54 41 20 58 42 48 49 20 3A 53 54 41 20 58 42 4C |TA XBHI :STA XBL|
000001C0: 4F 00 03 1E 50 00 4C 44 41 20 23 24 32 30 20 3A |O...P.LDA #$20 :|
000001D0: 53 54 41 20 24 46 42 20 3A 53 41 46 41 20 B2 20 |STA $FB :SAFA . |
000001E0: 24 31 35 34 41 20 3A 53 41 46 42 20 B2 20 24 31 |$154A :SAFB . $1|
000001F0: 35 34 42 20 3A 4D 4F 44 52 45 47 20 B2 20 24 31 |54B :MODREG . $1|
00000200: 35 34 44 00 2C 1E 53 00 4C 44 41 20 23 24 30 30 |54D.,.S.LDA #$00|
00000210: 20 3A 53 54 41 20 24 46 43 20 3A 4C 44 41 20 23 | :STA $FC :LDA #|
00000220: 24 30 34 20 3A 53 54 41 20 24 46 44 00 4F 1E 55 |$04 :STA $FD.O.U|
00000230: 00 52 4F 57 20 B2 20 24 31 33 30 32 20 3A 4C 44 |.ROW . $1302 :LD|
00000240: 41 20 23 24 30 30 20 3A 53 54 41 20 52 4F 57 00 |A #$00 :STA ROW.|
00000250: C7 1E 5A 00 43 4F 4C 20 B2 20 24 31 33 30 30 20 |..Z.COL . $1300 |
00000260: 3A 4D 45 4D 20 B2 20 24 31 35 35 38 20 3A 41 43 |:MEM . $1558 :AC|
00000270: 43 55 20 B2 20 24 31 35 36 30 20 3A 50 53 45 55 |CU . $1560 :PSEU|
00000280: EB 20 B2 20 24 31 35 36 38 20 3A 43 31 20 B2 20 |. . $1568 :C1 . |
00000290: 24 31 35 34 45 20 3A 43 32 20 B2 20 24 31 35 34 |$154E :C2 . $154|
000002A0: 46 20 3A 43 33 20 B2 20 24 31 35 35 30 20 3A 43 |F :C3 . $1550 :C|
000002B0: 34 20 B2 20 24 31 35 35 31 20 3A 5A 4F 4F 4D 20 |4 . $1551 :ZOOM |
000002C0: B2 20 24 31 35 35 32 00 E2 1E 64 00 4A 53 52 20 |. $1552...d.JSR |
000002D0: 9F 20 3A 4A 53 52 20 58 43 41 4C 43 20 3A 82 52 |. :JSR XCALC :.R|
000002E0: 4F 57 00 1D 1F 6E 00 4C 44 41 20 23 24 30 30 20 |OW...n.LDA #$00 |
000002F0: 3A 53 54 41 20 5A 4F 4F 4D 20 3A 82 5A 4F 4D 20 |:STA ZOOM :.ZOM |
00000300: 4A 53 52 20 54 55 52 4E 55 50 20 3A 4C 44 41 20 |JSR TURNUP :LDA |
00000310: 23 24 30 30 20 3A 53 54 41 20 43 4F 4C 00 69 1F |#$00 :STA COL.i.|
00000320: 73 00 82 43 4F 4C 20 4A 53 52 20 59 43 41 4C 43 |s..COL JSR YCALC|
00000330: 20 3A 4C 44 58 20 23 24 30 30 20 3A EC 41 20 4C | :LDX #$00 :.A L|
00000340: 44 41 20 23 24 30 30 20 3A 53 54 41 20 4D 45 4D |DA #$00 :STA MEM|
00000350: 2C 58 20 3A 49 4E 58 20 3A 43 50 58 20 23 24 30 |,X :INX :CPX #$0|
00000360: 38 20 3A 42 4E 45 20 EC 41 00 9D 1F 78 00 4C 44 |8 :BNE .A...x.LD|
00000370: 58 20 23 24 30 30 20 3A EC 43 20 4C 44 59 20 23 |X #$00 :.C LDY #|
00000380: 24 30 30 20 3A EC 42 20 4C 44 41 20 41 43 43 55 |$00 :.B LDA ACCU|
00000390: 2C 59 20 3A 53 54 41 20 24 31 33 30 31 00 C2 1F |,Y :STA $1301...|
000003A0: 82 00 4C 44 41 20 54 41 42 4C 45 2C 58 20 3A 42 |..LDA TABLE,X :B|
000003B0: 49 54 20 24 31 33 30 31 20 3A 42 45 51 20 57 52 |IT $1301 :BEQ WR|
000003C0: 91 47 00 ED 1F 8C 00 43 4C 43 20 3A 4C 44 41 20 |.G.....CLC :LDA |
000003D0: 4D 45 4D 2C 58 20 3A 41 44 43 20 54 41 42 4C 45 |MEM,X :ADC TABLE|
000003E0: 2C 59 20 3A 53 54 41 20 4D 45 4D 2C 58 00 0C 20 |,Y :STA MEM,X.. |
000003F0: 96 00 57 52 91 47 20 49 4E 59 20 3A 43 50 59 20 |..WR.G INY :CPY |
00000400: 23 24 30 38 20 3A 42 4E 45 20 EC 42 00 26 20 A0 |#$08 :BNE .B.& .|
00000410: 00 49 4E 58 20 3A 43 50 58 20 23 24 30 38 20 3A |.INX :CPX #$08 :|
00000420: 42 4E 45 20 EC 43 00 30 20 AA 00 4A 53 52 20 99 |BNE .C.0 ..JSR .|
00000430: 00 62 20 AF 00 49 4E 43 20 43 4F 4C 20 3A 4A 53 |.b ..INC COL :JS|
00000440: 52 20 50 4C 55 53 20 3A 4C 44 41 20 43 4F 4C 20 |R PLUS :LDA COL |
00000450: 3A 43 4D 50 20 23 34 30 20 3A 42 4E 45 20 82 43 |:CMP #40 :BNE .C|
00000460: 4F 4C 00 78 20 B2 00 4A 53 52 20 24 46 46 45 31 |OL.x ..JSR $FFE1|
00000470: 20 3A 42 45 51 20 8A 90 00 B9 20 B4 00 4C 44 41 | :BEQ .... ..LDA|
00000480: 20 23 24 30 44 20 3A 4A 53 52 20 24 46 46 44 32 | #$0D :JSR $FFD2|
00000490: 20 3A 49 4E 43 20 5A 4F 4F 4D 20 3A 4C 44 41 20 | :INC ZOOM :LDA |
000004A0: 5A 4F 4F 4D 20 3A 43 4D 50 20 5A 4F 4F 4D 59 20 |ZOOM :CMP ZOOMY |
000004B0: 3A 42 4E 45 20 54 52 55 45 00 E1 20 BE 00 49 4E |:BNE TRUE.. ..IN|
000004C0: 43 20 52 4F 57 20 3A 4C 44 41 20 52 4F 57 20 3A |C ROW :LDA ROW :|
000004D0: 43 4D 50 20 23 32 35 20 3A 42 4E 45 20 82 52 4F |CMP #25 :BNE .RO|
000004E0: 57 00 F0 20 C8 00 4A 53 52 20 A0 20 3A 52 54 53 |W.. ..JSR . :RTS|
000004F0: 00 03 21 FC 26 54 52 55 45 20 4A 53 52 20 4D 49 |..!.&TRUE JSR MI|
00000500: 4E 55 53 00 10 21 06 27 4A 4D 50 20 82 5A 4F 4D |NUS..!.'JMP .ZOM|
00000510: 00 1E 21 0E 27 8A 90 20 3A 4A 4D 50 20 A0 00 42 |..!.'.. :JMP ..B|
00000520: 21 0F 27 54 41 42 4C 45 20 2E 42 59 54 20 31 32 |!.'TABLE .BYT 12|
00000530: 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 |8,64,32,16,8,4,2|
00000540: 2C 31 00 65 21 10 27 9F 20 4C 44 41 20 23 24 30 |,1.e!.'. LDA #$0|
00000550: 31 20 3A 4C 44 58 20 23 24 30 34 20 3A 4C 44 59 |1 :LDX #$04 :LDY|
00000560: 20 23 24 30 30 00 A8 21 1A 27 4A 53 52 20 24 46 | #$00..!.'JSR $F|
00000570: 46 42 41 20 3A 4C 44 41 20 23 24 30 30 20 3A 4A |FBA :LDA #$00 :J|
00000580: 53 52 20 24 46 46 42 44 20 3A 4A 53 52 20 24 46 |SR $FFBD :JSR $F|
00000590: 46 43 30 20 3A 4C 44 58 20 23 24 30 31 20 3A 4A |FC0 :LDX #$01 :J|
000005A0: 53 52 20 24 46 46 43 39 00 BF 21 24 27 4C 44 41 |SR $FFC9..!$'LDA|
000005B0: 20 23 32 37 20 3A 4A 53 52 20 24 46 46 44 32 00 | #27 :JSR $FFD2.|
000005C0: D6 21 2E 27 4C 44 41 20 23 36 35 20 3A 4A 53 52 |.!.'LDA #65 :JSR|
000005D0: 20 24 46 46 44 32 00 ED 21 38 27 4C 44 41 20 23 | $FFD2..!8'LDA #|
000005E0: 38 20 20 3A 4A 53 52 20 24 46 46 44 32 00 F5 21 |8 :JSR $FFD2..!|
000005F0: 42 27 52 54 53 00 FB 21 4C 27 99 00 47 22 74 27 |B'RTS..!L'..G"t'|
00000600: 4C 44 58 20 23 24 30 30 20 3A EC 44 20 4C 44 59 |LDX #$00 :.D LDY|
00000610: 20 23 24 30 30 20 3A EC 45 20 4C 44 41 20 4D 45 | #$00 :.E LDA ME|
00000620: 4D 2C 58 20 3A 4A 53 52 20 24 46 46 44 32 20 3A |M,X :JSR $FFD2 :|
00000630: 49 4E 59 20 3A 43 50 59 20 5A 4F 4F 4D 58 59 20 |INY :CPY ZOOMXY |
00000640: 3A 42 4E 45 20 EC 45 00 61 22 7E 27 49 4E 58 20 |:BNE .E.a"~'INX |
00000650: 3A 43 50 58 20 23 24 30 38 20 3A 42 4E 45 20 EC |:CPX #$08 :BNE .|
00000660: 44 00 69 22 88 27 52 54 53 00 8E 22 92 27 A0 20 |D.i".'RTS..".'. |
00000670: 4A 53 52 20 24 46 46 43 43 20 3A 4C 44 41 20 23 |JSR $FFCC :LDA #|
00000680: 24 30 31 20 3A 4A 53 52 20 24 46 46 43 33 00 96 |$01 :JSR $FFC3..|
00000690: 22 9C 27 52 54 53 00 C0 22 A6 27 50 4C 55 53 20 |".'RTS..".'PLUS |
000006A0: 20 43 4C 43 20 3A 4C 44 41 20 24 46 41 20 3A 41 | CLC :LDA $FA :A|
000006B0: 44 43 20 23 24 30 38 20 3A 53 54 41 20 24 46 41 |DC #$08 :STA $FA|
000006C0: 00 DF 22 B0 27 4C 44 41 20 24 46 42 20 3A 41 44 |..".'LDA $FB :AD|
000006D0: 43 20 23 24 30 30 20 3A 53 54 41 20 24 46 42 00 |C #$00 :STA $FB.|
000006E0: 08 23 B2 27 49 4E 43 20 24 46 43 20 3A 4C 44 41 |.#.'INC $FC :LDA|
000006F0: 20 24 46 43 20 3A 43 4D 50 20 23 24 30 30 20 3A | $FC :CMP #$00 :|
00000700: 42 4E 45 20 4E 4F 50 4C 00 1E 23 B4 27 49 4E 43 |BNE NOPL..#.'INC|
00000710: 20 24 46 44 20 3A 4E 4F 50 4C 20 52 54 53 00 3E | $FD :NOPL RTS.>|
00000720: 23 BA 27 54 55 52 4E 55 50 20 20 3A 4C 44 41 20 |#.'TURNUP :LDA |
00000730: 23 32 37 20 3A 4A 53 52 20 24 46 46 44 32 00 57 |#27 :JSR $FFD2.W|
00000740: 23 BF 27 4C 44 41 20 44 52 55 43 4B 20 3A 4A 53 |#.'LDA DRUCK :JS|
00000750: 52 20 24 46 46 44 32 00 6F 23 C4 27 4C 44 41 20 |R $FFD2.o#.'LDA |
00000760: 58 42 48 49 20 3A 4A 53 52 20 24 46 46 44 32 00 |XBHI :JSR $FFD2.|
00000770: 87 23 CE 27 4C 44 41 20 58 42 4C 4F 20 3A 4A 53 |.#.'LDA XBLO :JS|
00000780: 52 20 24 46 46 44 32 00 8F 23 D8 27 52 54 53 00 |R $FFD2..#.'RTS.|
00000790: A9 23 E2 27 58 43 41 4C 43 20 20 20 3A 4C 44 58 |.#.'XCALC :LDX|
000007A0: 20 23 24 30 30 20 3A EC 46 00 CE 23 EC 27 43 4C | #$00 :.F..#.'CL|
000007B0: 43 20 3A 4C 44 41 20 58 42 48 49 20 3A 41 44 43 |C :LDA XBHI :ADC|
000007C0: 20 23 36 34 20 3A 53 54 41 20 58 42 48 49 00 EF | #64 :STA XBHI..|
000007D0: 23 F6 27 4C 44 41 20 58 42 4C 4F 20 3A 41 44 43 |#.'LDA XBLO :ADC|
000007E0: 20 23 24 30 31 20 3A 53 54 41 20 58 42 4C 4F 00 | #$01 :STA XBLO.|
000007F0: 10 24 00 28 49 4E 58 20 3A 43 50 58 20 5A 4F 4F |.$.(INX :CPX ZOO|
00000800: 4D 58 59 20 3A 42 4E 45 20 EC 46 20 3A 52 54 53 |MXY :BNE .F :RTS|
00000810: 00 2E 24 0A 28 59 43 41 4C 43 20 20 20 3A 4C 44 |..$.(YCALC :LD|
00000820: 41 20 23 24 30 30 20 3A 53 54 41 20 43 32 00 47 |A #$00 :STA C2.G|
00000830: 24 14 28 4C 44 41 20 23 24 30 30 20 3A 53 54 41 |$.(LDA #$00 :STA|
00000840: 20 43 31 20 3A EC 47 00 58 24 1E 28 4C 44 58 20 | C1 :.G.X$.(LDX |
00000850: 23 24 30 30 20 3A EC 48 00 6B 24 28 28 4C 44 59 |#$00 :.H.k$((LDY|
00000860: 20 43 31 20 3A 4A 53 52 20 FE 21 00 83 24 32 28 | C1 :JSR .!..$2(|
00000870: 4C 44 59 20 43 32 20 3A 53 54 41 20 50 53 45 55 |LDY C2 :STA PSEU|
00000880: EB 2C 59 00 A6 24 3C 28 49 4E 43 20 43 32 20 3A |.,Y..$<(INC C2 :|
00000890: 49 4E 58 20 3A 43 50 58 20 5A 4F 4F 4D 59 20 3A |INX :CPX ZOOMY :|
000008A0: 42 4E 45 20 EC 48 00 CB 24 46 28 49 4E 43 20 43 |BNE .H..$F(INC C|
000008B0: 31 20 3A 4C 44 41 20 43 31 20 3A 43 4D 50 20 23 |1 :LDA C1 :CMP #|
000008C0: 24 30 38 20 3A 42 4E 45 20 EC 47 00 D1 24 4B 28 |$08 :BNE .G..$K(|
000008D0: 3A 00 EA 24 50 28 4C 44 41 20 23 B3 50 53 45 55 |:..$P(LDA #.PSEU|
000008E0: EB 20 3A 53 54 41 20 24 46 45 00 1F 25 5A 28 4C |. :STA $FE..%Z(L|
000008F0: 44 41 20 23 B1 50 53 45 55 EB 20 3A 53 54 41 20 |DA #.PSEU. :STA |
00000900: 24 46 46 20 3A 4C 44 41 20 5A 4F 4F 4D 20 3A 43 |$FF :LDA ZOOM :C|
00000910: 4D 50 20 23 24 30 30 20 3A 42 45 51 20 EB A8 00 |MP #$00 :BEQ ...|
00000920: 34 25 64 28 4C 44 58 20 23 24 30 30 20 3A EC 49 |4%d(LDX #$00 :.I|
00000930: 20 43 4C 43 00 53 25 6E 28 4C 44 41 20 24 46 45 | CLC.S%n(LDA $FE|
00000940: 20 3A 41 44 43 20 23 24 30 38 20 3A 53 54 41 20 | :ADC #$08 :STA |
00000950: 24 46 45 00 72 25 78 28 4C 44 41 20 24 46 46 20 |$FE.r%x(LDA $FF |
00000960: 3A 41 44 43 20 23 24 30 30 20 3A 53 54 41 20 24 |:ADC #$00 :STA $|
00000970: 46 46 00 8C 25 82 28 49 4E 58 20 3A 43 50 58 20 |FF..%.(INX :CPX |
00000980: 5A 4F 4F 4D 20 3A 42 4E 45 20 EC 49 00 CF 25 8C |ZOOM :BNE .I..%.|
00000990: 28 EB A8 20 4C 44 59 20 23 24 30 30 20 3A EC 4A |(.. LDY #$00 :.J|
000009A0: 20 4C 44 41 20 28 24 46 45 29 2C 59 20 3A 53 54 | LDA ($FE),Y :ST|
000009B0: 41 20 41 43 43 55 2C 59 20 3A 49 4E 59 20 3A 43 |A ACCU,Y :INY :C|
000009C0: 50 59 20 23 24 30 38 20 3A 42 4E 45 20 EC 4A 00 |PY #$08 :BNE .J.|
000009D0: D7 25 96 28 52 54 53 00 E6 25 B4 28 4D 49 4E 55 |.%.(RTS..%.(MINU|
000009E0: 53 20 20 53 45 43 00 05 26 BE 28 4C 44 41 20 24 |S SEC..&.(LDA $|
000009F0: 46 41 20 3A 53 42 43 20 23 24 34 30 20 3A 53 54 |FA :SBC #$40 :ST|
00000A00: 41 20 24 46 41 00 24 26 C8 28 4C 44 41 20 24 46 |A $FA.$&.(LDA $F|
00000A10: 42 20 3A 53 42 43 20 23 24 30 31 20 3A 53 54 41 |B :SBC #$01 :STA|
00000A20: 20 24 46 42 00 48 26 CA 28 53 45 43 20 3A 4C 44 | $FB.H&.(SEC :LD|
00000A30: 41 20 24 46 43 20 3A 53 42 43 20 23 24 32 38 20 |A $FC :SBC #$28 |
00000A40: 3A 53 54 41 20 24 46 43 00 67 26 CC 28 4C 44 41 |:STA $FC.g&.(LDA|
00000A50: 20 24 46 44 20 3A 53 42 43 20 23 24 30 30 20 3A | $FD :SBC #$00 :|
00000A60: 53 54 41 20 24 46 44 00 6F 26 D2 28 52 54 53 00 |STA $FD.o&.(RTS.|
00000A70: 7F 26 DC 28 FE 21 20 4C 44 41 20 4D 4F 44 49 00 |.&.(.! LDA MODI.|
00000A80: 96 26 F0 28 43 4D 50 20 23 24 30 31 20 3A 42 45 |.&.(CMP #$01 :BE|
00000A90: 51 20 4D 4F 44 32 00 B0 26 04 29 4D 4F 44 31 20 |Q MOD2..&.)MOD1 |
00000AA0: 4C 44 41 20 28 24 46 41 29 2C 59 20 3A 52 54 53 |LDA ($FA),Y :RTS|
00000AB0: 00 D6 26 0E 29 4D 4F 44 32 20 53 54 58 20 53 41 |..&.)MOD2 STX SA|
00000AC0: 46 41 20 3A 53 54 59 20 53 41 46 42 20 3A 4C 44 |FA :STY SAFB :LD|
00000AD0: 59 20 23 24 30 30 00 F2 26 18 29 4C 44 41 20 28 |Y #$00..&.)LDA (|
00000AE0: 24 46 43 29 2C 59 20 3A 53 54 41 20 4D 4F 44 52 |$FC),Y :STA MODR|
00000AF0: 45 47 00 08 27 22 29 4C 44 58 20 23 24 30 30 20 |EG..'")LDX #$00 |
00000B00: 3A 53 54 58 20 24 46 45 00 1E 27 2C 29 4C 44 58 |:STX $FE..',)LDX|
00000B10: 20 23 24 44 30 20 3A 53 54 58 20 24 46 46 00 36 | #$D0 :STX $FF.6|
00000B20: 27 36 29 43 4D 50 20 23 24 30 30 20 3A 42 45 51 |'6)CMP #$00 :BEQ|
00000B30: 20 4E 4F 4D 4F 44 00 4F 27 40 29 4C 44 58 20 23 | NOMOD.O'@)LDX #|
00000B40: 24 30 30 20 3A 4D 4F 44 4C 4F 50 20 43 4C 43 00 |$00 :MODLOP CLC.|
00000B50: 6E 27 4A 29 4C 44 41 20 24 46 45 20 3A 41 44 43 |n'J)LDA $FE :ADC|
00000B60: 20 23 24 30 38 20 3A 53 54 41 20 24 46 45 00 8D | #$08 :STA $FE..|
00000B70: 27 54 29 4C 44 41 20 24 46 46 20 3A 41 44 43 20 |'T)LDA $FF :ADC |
00000B80: 23 24 30 30 20 3A 53 54 41 20 24 46 46 00 AD 27 |#$00 :STA $FF..'|
00000B90: 5E 29 49 4E 58 20 3A 43 50 58 20 4D 4F 44 52 45 |^)INX :CPX MODRE|
00000BA0: 47 20 3A 42 4E 45 20 4D 4F 44 4C 4F 50 00 BB 27 |G :BNE MODLOP..'|
00000BB0: 68 29 4E 4F 4D 4F 44 20 43 4C 43 00 DA 27 72 29 |h)NOMOD CLC..'r)|
00000BC0: 4C 44 41 20 24 46 45 20 3A 41 44 43 20 53 41 46 |LDA $FE :ADC SAF|
00000BD0: 42 20 3A 53 54 41 20 24 46 45 00 F9 27 7C 29 4C |B :STA $FE..'|)L|
00000BE0: 44 41 20 24 46 46 20 3A 41 44 43 20 23 24 30 30 |DA $FF :ADC #$00|
00000BF0: 20 3A 53 54 41 20 24 46 46 00 1A 28 86 29 4C 44 | :STA $FF..(.)LD|
00000C00: 58 20 23 31 34 20 3A 4C 44 41 20 23 24 46 45 20 |X #14 :LDA #$FE |
00000C10: 3A 4A 53 52 20 24 46 46 37 34 00 27 28 8B 29 4C |:JSR $FF74.'(.)L|
00000C20: 44 58 20 53 41 46 41 00 2F 28 90 29 52 54 53 00 |DX SAFA./(.)RTS.|
00000C30: 54 28 9A 29 5A 4F 4D 43 41 4C 20 4C 44 41 20 5A |T(.)ZOMCAL LDA Z|
00000C40: 4F 4F 4D 58 59 20 3A 54 41 59 20 3A 4C 44 58 20 |OOMXY :TAY :LDX |
00000C50: 23 24 30 30 00 60 28 A4 29 5A EC 20 20 53 45 43 |#$00.`(.)Z. SEC|
00000C60: 00 85 28 AE 29 4C 44 41 20 5A 4F 4F 4D 58 59 20 |..(.)LDA ZOOMXY |
00000C70: 3A 53 42 43 20 23 24 31 30 20 3A 53 54 41 20 5A |:SBC #$10 :STA Z|
00000C80: 4F 4F 4D 58 59 00 A6 28 B8 29 49 4E 58 20 3A 42 |OOMXY..(.)INX :B|
00000C90: 43 53 20 5A EC 20 3A 44 45 58 20 3A 53 54 58 20 |CS Z. :DEX :STX |
00000CA0: 5A 4F 4F 4D 58 59 00 C1 28 C2 29 54 59 41 20 3A |ZOOMXY..(.)TYA :|
00000CB0: AF 20 23 24 30 46 20 3A 53 54 41 20 5A 4F 4F 4D |. #$0F :STA ZOOM|
00000CC0: 59 00 C9 28 CC 29 52 54 53 00 E7 28 D6 29 53 54 |Y..(.)RTS..(.)ST|
00000CD0: 41 20 24 31 34 45 43 20 3A 53 54 58 20 24 31 34 |A $14EC :STX $14|
00000CE0: 46 30 20 3A 52 54 53 00 00 00 |F0 :RTS... |
........ $1303......LIS S.$....OBJ M.M.(
.; ...................................S.
2.; SUPER . HARD. 1987...<.
; .....................................A
.MODI . $154C :DRUCK . $1556 :ZOOMXY . $
1553 :STA MODI :STX ZOOMXY :STY DRUCK.!.
B.LDA DRUCK :CMP #$00 :BNE N1 :LDA #75 :
STA DRUCK.Z.C.N1 LDA ZOOMXY :CMP #$00 :B
NE N2 :LDA #17 :STA ZOOMXY...D.N2 JSR ZO
MCAL :XBLO . $1555 :XBHI . $1554 :ZOOMY
. $1557.A.F.LDA #$00 :STA $FA :STA XBHI
:STA XBLO...P.LDA #$20 :STA $FB :SAFA .
$154A :SAFB . $154B :MODREG . $154D.,.S.
LDA #$00 :STA $FC :LDA #$04 :STA $FD.O.U
.ROW . $1302 :LDA #$00 :STA ROW.G.Z.COL
. $1300 :MEM . $1558 :ACCU . $1560 :PSEU
. . $1568 :C1 . $154E :C2 . $154F :C3 .
$1550 :C4 . $1551 :ZOOM . $1552...D.JSR
. :JSR XCALC :.ROW...N.LDA #$00 :STA ZOO
M :.ZOM JSR TURNUP :LDA #$00 :STA COL.I.
S..COL JSR YCALC :LDX #$00 :.A LDA #$00
:STA MEM,X :INX :CPX #$08 :BNE .A...X.LD
X #$00 :.C LDY #$00 :.B LDA ACCU,Y :STA
$1301.B...LDA TABLE,X :BIT $1301 :BEQ WR
.G.....CLC :LDA MEM,X :ADC TABLE,Y :STA
MEM,X.. ..WR.G INY :CPY #$08 :BNE .B.&
.INX :CPX #$08 :BNE .C.0 ..JSR ..B ..INC
COL :JSR PLUS :LDA COL :CMP #40 :BNE .C
OL.X ..JSR $FFE1 :BEQ .... ..LDA #$0D :J
SR $FFD2 :INC ZOOM :LDA ZOOM :CMP ZOOMY
:BNE TRUE.. ..INC ROW :LDA ROW :CMP #25
:BNE .ROW.. H.JSR :RTS..!.&TRUE JSR MI
NUS..!.'JMP .ZOM..!.'.. :JMP .B!.'TABLE
.BYT 128,64,32,16,8,4,2,1.E!.'. LDA #$0
1 :LDX #$04 :LDY #$00..!.'JSR $FFBA :LDA
#$00 :JSR $FFBD :JSR $FFC0 :LDX #$01 :J
SR $FFC9..!$'LDA #27 :JSR $FFD2.V!.'LDA
#65 :JSR $FFD2..!8'LDA #8 :JSR $FFD2..!
B'RTS..!L'..G"T'LDX #$00 :.D LDY #$00 :.
E LDA MEM,X :JSR $FFD2 :INY :CPY ZOOMXY
:BNE .E.A"~'INX :CPX #$08 :BNE .D.I".'RT
S..".' JSR $FFCC :LDA #$01 :JSR $FFC3..
".'RTS..".'PLUS CLC :LDA $FA :ADC #$08
:STA $FA..".'LDA $FB :ADC #$00 :STA $FB.
.#.'INC $FC :LDA $FC :CMP #$00 :BNE NOPL
..#.'INC $FD :NOPL RTS.>#.'TURNUP :LDA
#27 :JSR $FFD2.W#.'LDA DRUCK :JSR $FFD2.
O#D'LDA XBHI :JSR $FFD2..#N'LDA XBLO :JS
R $FFD2..#X'RTS..#.'XCALC :LDX #$00 :.
F.N#.'CLC :LDA XBHI :ADC #64 :STA XBHI..
#.'LDA XBLO :ADC #$01 :STA XBLO..$.(INX
:CPX ZOOMXY :BNE .F :RTS..$.(YCALC :LD
A #$00 :STA C2.G$.(LDA #$00 :STA C1 :.G.
X$.(LDX #$00 :.H.K$((LDY C1 :JSR .!..$2(
LDY C2 :STA PSEU.,Y..$<(INC C2 :INX :CPX
ZOOMY :BNE .H.K$F(INC C1 :LDA C1 :CMP #
$08 :BNE .G.Q$K(:..$P(LDA #.PSEU. :STA $
FE..%Z(LDA #.PSEU. :STA $FF :LDA ZOOM :C
MP #$00 :BEQ ...4%D(LDX #$00 :.I CLC.S%N
(LDA $FE :ADC #$08 :STA $FE.R%X(LDA $FF
:ADC #$00 :STA $FF..%.(INX :CPX ZOOM :BN
E .I.O%.(.. LDY #$00 :.J LDA ($FE),Y :ST
A ACCU,Y :INY :CPY #$08 :BNE .J.W%.(RTS.
.%.(MINUS SEC..&.(LDA $FA :SBC #$40 :ST
A $FA.$&H(LDA $FB :SBC #$01 :STA $FB.H&J
(SEC :LDA $FC :SBC #$28 :STA $FC.G&L(LDA
$FD :SBC #$00 :STA $FD.O&R(RTS.&.(.! L
DA MODI..&.(CMP #$01 :BEQ MOD2..&.)MOD1
LDA ($FA),Y :RTS.V&.)MOD2 STX SAFA :STY
SAFB :LDY #$00..&.)LDA ($FC),Y :STA MODR
EG..'")LDX #$00 :STX $FE..',)LDX #$D0 :S
TX $FF.6'6)CMP #$00 :BEQ NOMOD.O'@)LDX #
$00 :MODLOP CLC.N'J)LDA $FE :ADC #$08 :S
TA $FE..'T)LDA $FF :ADC #$00 :STA $FF..'
^)INX :CPX MODREG :BNE MODLOP..'H)NOMOD
CLC.Z'R)LDA $FE :ADC SAFB :STA $FE..'|)L
DA $FF :ADC #$00 :STA $FF..(.)LDX #14 :L
DA #$FE :JSR $FF74.'(.)LDX SAFA./(.)RTS.
T(.)ZOMCAL LDA ZOOMXY :TAY :LDX #$00.`(.
)Z. SEC..(.)LDA ZOOMXY :SBC #$10 :STA Z
OOMXY..(.)INX :BCS Z. :DEX :STX ZOOMXY.A
(B)TYA :. #$0F :STA ZOOMY.I(L)RTS..(V)ST
A $14EC :STX $14F0 :RTS...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL