MIST.S
FILE INFORMATION
FILENAME(S): MIST.S
FILE TYPE(S): PRG
FILE SIZE: 5.9K
FIRST SEEN: 2025-11-30 18:05:23
APPEARS ON: 2 disk(s)
FILE HASH
38dbb9eba54960e5cc29785a6890f74d8e24b3311ed12d3ec6591dd836e98b7b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 58 S 1 | MIST.S | PRG | Xii | 11 | 5 | DOWNLOAD FILE |
| LOADSTAR 58 S 1 | MIST.S | PRG | Sailor, Ganheden | 11 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 5A 00 8F 4F 50 45 4E 31 35 2C 38 2C |..&.Z..OPEN15,8,|
00000010: 31 35 2C 22 53 30 3A 4D 49 53 54 2E 4F 22 3A 43 |15,"S0:MIST.O":C|
00000020: 4C 4F 53 45 31 35 00 40 08 64 00 9F 32 2C 38 2C |LOSE15.@.d..2,8,|
00000030: 31 2C 22 30 3A 4D 49 53 54 2E 4F 2C 50 2C 57 22 |1,"0:MIST.O,P,W"|
00000040: 00 49 08 6E 00 9E 37 30 30 00 55 08 78 00 2E 4F |.I.n..700.U.x..O|
00000050: 50 54 20 4F 32 00 5B 08 82 00 3B 00 69 08 8C 00 |PT O2.[...;.i...|
00000060: 4D 41 58 C3 20 B2 20 31 36 00 78 08 96 00 52 AF |MAX. . 16.x...R.|
00000070: 4F 4D 20 B2 20 24 46 37 00 87 08 A0 00 A9 20 B2 |OM . $F7...... .|
00000080: 20 52 AF 4F 4D AA 32 00 97 08 AA 00 43 4F 55 4E | R.OM.2.....COUN|
00000090: 54 20 B2 20 A9 AA 31 00 A6 08 B4 00 44 45 53 54 |T . ..1.....DEST|
000000A0: 20 B2 20 24 46 42 00 B7 08 BE 00 53 52 43 20 B2 | . $FB.....SRC .|
000000B0: 20 44 45 53 54 AA 32 00 C6 08 C8 00 43 48 52 A1 | DEST.2.....CHR.|
000000C0: 20 B2 20 24 37 33 00 CC 08 D2 00 3B 00 E0 08 DC | . $73.....;....|
000000D0: 00 50 52 4E 45 52 52 B0 20 B2 20 24 41 34 33 37 |.PRNERR. . $A437|
000000E0: 00 F3 08 E6 00 A1 43 4F 4D 4D 41 20 B2 20 24 41 |......COMMA . $A|
000000F0: 45 46 44 00 06 09 F0 00 53 45 54 46 4C 53 20 B2 |EFD.....SETFLS .|
00000100: 20 24 46 46 42 41 00 19 09 FA 00 53 45 54 4E 41 | $FFBA.....SETNA|
00000110: 4D 20 B2 20 24 46 46 42 44 00 27 09 04 01 93 20 |M . $FFBD.'.... |
00000120: B2 20 24 46 46 44 35 00 3C 09 0E 01 43 4F 4C B0 |. $FFD5.<...COL.|
00000130: 4D 45 4D 20 20 B2 20 24 30 34 30 30 00 50 09 18 |MEM . $0400.P..|
00000140: 01 59 53 43 52 4F 4C 4C 20 B2 20 24 44 30 31 31 |.YSCROLL . $D011|
00000150: 00 63 09 22 01 56 49 43 4D 45 4D 20 B2 20 24 44 |.c.".VICMEM . $D|
00000160: 30 31 38 00 75 09 2C 01 93 41 44 44 52 20 B2 20 |018.u.,..ADDR . |
00000170: 24 34 30 30 30 00 7B 09 36 01 3B 00 8A 09 40 01 |$4000.{.6.;...@.|
00000180: 4A 4D 50 20 50 41 53 54 20 3B 00 9A 09 4A 01 4A |JMP PAST ;...J.J|
00000190: 4D 50 20 50 41 53 54 93 20 3B 00 A0 09 54 01 3B |MP PAST. ;...T.;|
000001A0: 00 B0 09 5E 01 55 46 43 20 2E 42 59 54 45 20 36 |...^.UFC .BYTE 6|
000001B0: 00 C0 09 68 01 55 42 43 20 2E 42 59 54 45 20 31 |...h.UBC .BYTE 1|
000001C0: 00 C6 09 72 01 3B 00 CC 09 7C 01 3B 00 E2 09 86 |...r.;...|.;....|
000001D0: 01 50 41 53 54 20 4A 53 52 20 A1 43 4F 4D 4D 41 |.PAST JSR .COMMA|
000001E0: 20 3B 00 00 0A 90 01 53 54 41 20 53 4E 41 4D 45 | ;.....STA SNAME|
000001F0: 20 3B 20 94 20 31 53 54 20 43 48 41 52 20 4F 46 | ; . 1ST CHAR OF|
00000200: 00 13 0A 9A 01 3B 20 20 53 54 52 49 4E 47 20 4E |.....; STRING N|
00000210: 41 4D 45 00 19 0A A4 01 3B 00 35 0A AE 01 4A 53 |AME.....;.5...JS|
00000220: 52 20 43 48 52 A1 20 3B 20 46 45 54 43 48 20 82 |R CHR. ; FETCH .|
00000230: 20 43 48 41 52 00 43 0A B8 01 42 4E 45 20 42 44 | CHAR.C...BNE BD|
00000240: 31 20 3B 00 61 0A C2 01 4C 44 58 20 23 31 31 20 |1 ;.a...LDX #11 |
00000250: 3B 20 99 20 27 53 59 4E 54 41 58 20 45 52 52 B0 |; . 'SYNTAX ERR.|
00000260: 27 00 73 0A CC 01 4A 4D 50 20 50 52 4E 45 52 52 |'.s...JMP PRNERR|
00000270: B0 20 3B 00 79 0A D6 01 3B 00 8C 0A E0 01 42 44 |. ;.y...;.....BD|
00000280: 31 20 43 4D 50 20 23 22 24 22 20 3B 00 9A 0A EA |1 CMP #"$" ;....|
00000290: 01 42 4E 45 20 42 44 32 20 3B 00 A9 0A F4 01 4C |.BNE BD2 ;.....L|
000002A0: 44 41 20 23 24 38 30 20 3B 00 B7 0A FE 01 2E 42 |DA #$80 ;......B|
000002B0: 59 54 45 20 24 32 43 00 C9 0A 08 02 42 44 32 20 |YTE $2C.....BD2 |
000002C0: B0 41 20 23 24 38 30 20 3B 00 DB 0A 12 02 53 54 |.A #$80 ;.....ST|
000002D0: 41 20 53 4E 41 4D 45 AA 31 20 3B 00 E1 0A 1C 02 |A SNAME.1 ;.....|
000002E0: 3B 00 F6 0A 26 02 50 41 43 8B 59 20 4A 53 52 20 |;...&.PAC.Y JSR |
000002F0: 43 48 52 A1 20 3B 00 04 0B 30 02 42 45 51 20 42 |CHR. ;...0.BEQ B|
00000300: 44 33 20 3B 00 13 0B 3A 02 43 4D 50 20 23 22 3A |D3 ;...:.CMP #":|
00000310: 22 20 3B 00 23 0B 44 02 42 4E 45 20 50 41 43 8B |" ;.#.D.BNE PAC.|
00000320: 59 20 3B 00 29 0B 4E 02 3B 00 3B 0B 58 02 42 44 |Y ;.).N.;.;.X.BD|
00000330: 33 20 4C 44 41 20 24 32 44 20 3B 00 49 0B 62 02 |3 LDA $2D ;.I.b.|
00000340: 53 54 41 20 53 52 43 20 3B 00 57 0B 6C 02 4C 44 |STA SRC ;.W.l.LD|
00000350: 41 20 24 32 45 20 3B 00 67 0B 76 02 53 54 41 20 |A $2E ;.g.v.STA |
00000360: 53 52 43 AA 31 20 3B 00 6D 0B 80 02 3B 00 83 0B |SRC.1 ;.m...;...|
00000370: 8A 02 4D 41 49 4E 46 49 4E 44 20 4C 44 59 20 23 |..MAINFIND LDY #|
00000380: 30 20 3B 00 91 0B 94 02 4C 44 41 20 53 52 43 20 |0 ;.....LDA SRC |
00000390: 3B 00 9F 0B 9E 02 43 4D 50 20 24 32 46 20 3B 00 |;.....CMP $2F ;.|
000003A0: AD 0B A8 02 42 4E 45 20 42 44 34 20 3B 00 BD 0B |....BNE BD4 ;...|
000003B0: B2 02 4C 44 41 20 53 52 43 AA 31 20 3B 00 CB 0B |..LDA SRC.1 ;...|
000003C0: BC 02 43 4D 50 20 24 33 30 20 3B 00 D9 0B C6 02 |..CMP $30 ;.....|
000003D0: 42 4E 45 20 42 44 34 20 3B 00 F3 0B D0 02 4C 44 |BNE BD4 ;.....LD|
000003E0: 58 20 23 32 37 20 3B 20 99 20 27 55 4E 96 49 4E |X #27 ; . 'UN.IN|
000003F0: 45 44 27 00 05 0C DA 02 4A 4D 50 20 50 52 4E 45 |ED'.....JMP PRNE|
00000400: 52 52 B0 20 3B 00 0B 0C E4 02 3B 00 2A 0C EE 02 |RR. ;.....;.*...|
00000410: 42 44 34 20 4C 44 41 20 28 53 52 43 29 2C 59 20 |BD4 LDA (SRC),Y |
00000420: 3B 20 53 45 41 52 43 48 20 81 00 47 0C F8 02 43 |; SEARCH ..G...C|
00000430: 4D 50 20 53 4E 41 4D 45 20 3B 20 20 53 54 52 49 |MP SNAME ; STRI|
00000440: 4E 47 20 4E 41 4D 45 00 55 0C 02 03 42 4E 45 20 |NG NAME.U...BNE |
00000450: 42 44 36 20 3B 00 5F 0C 0C 03 49 4E 59 20 3B 00 |BD6 ;._...INY ;.|
00000460: 71 0C 16 03 4C 44 41 20 28 53 52 43 29 2C 59 20 |q...LDA (SRC),Y |
00000470: 3B 00 83 0C 20 03 43 4D 50 20 53 4E 41 4D 45 AA |;... .CMP SNAME.|
00000480: 31 20 3B 00 91 0C 2A 03 42 4E 45 20 42 44 36 20 |1 ;...*.BNE BD6 |
00000490: 3B 00 A7 0C 34 03 49 4E 59 20 3B 20 46 20 4F 20 |;...4.INY ; F O |
000004A0: 55 20 4E 20 44 20 21 00 CB 0C 3E 03 4C 44 41 20 |U N D !...>.LDA |
000004B0: 28 53 52 43 29 2C 59 20 3B 20 46 45 54 43 48 20 |(SRC),Y ; FETCH |
000004C0: 53 54 52 49 4E 47 20 C3 47 54 48 00 EF 0C 48 03 |STRING .GTH...H.|
000004D0: 43 4D 50 20 23 4D 41 58 C3 AA 31 20 3B 20 22 47 |CMP #MAX..1 ; "G|
000004E0: 52 45 41 54 45 52 20 54 48 41 4E 20 31 36 3F 00 |REATER THAN 16?.|
000004F0: FD 0C 52 03 42 43 43 20 42 44 35 20 3B 00 14 0D |..R.BCC BD5 ;...|
00000500: 5C 03 4C 44 58 20 23 32 33 20 3B 20 59 45 53 2C |\.LDX #23 ; YES,|
00000510: 20 99 20 AB 00 36 0D 66 03 4A 4D 50 20 50 52 4E | . ..6.f.JMP PRN|
00000520: 45 52 52 B0 20 3B 20 27 53 54 52 49 4E 47 20 A4 |ERR. ; 'STRING .|
00000530: 4F 20 4C 91 47 27 00 3C 0D 70 03 3B 00 4F 0D 7A |O L.G'.<.p.;.O.z|
00000540: 03 42 44 35 20 53 54 41 20 C3 47 54 48 20 3B 00 |.BD5 STA .GTH ;.|
00000550: 59 0D 84 03 49 4E 59 20 3B 00 6B 0D 8E 03 4C 44 |Y...INY ;.k...LD|
00000560: 41 20 28 53 52 43 29 2C 59 20 3B 00 7B 0D 98 03 |A (SRC),Y ;.{...|
00000570: 53 54 41 20 50 4F B5 45 52 20 3B 00 85 0D A2 03 |STA PO.ER ;.....|
00000580: 49 4E 59 20 3B 00 97 0D AC 03 4C 44 41 20 28 53 |INY ;.....LDA (S|
00000590: 52 43 29 2C 59 20 3B 00 A9 0D B6 03 53 54 41 20 |RC),Y ;.....STA |
000005A0: 50 4F B5 45 52 AA 31 20 3B 00 BC 0D C0 03 42 4E |PO.ER.1 ;.....BN|
000005B0: 45 20 43 4C 45 41 52 53 52 43 20 3B 00 C2 0D CA |E CLEARSRC ;....|
000005C0: 03 3B 00 E5 0D D4 03 42 44 36 20 43 4C 43 20 3B |.;.....BD6 CLC ;|
000005D0: 20 41 44 44 20 37 20 A4 20 53 54 52 49 4E 47 20 | ADD 7 . STRING |
000005E0: 50 4E 54 52 2E 00 F3 0D DE 03 4C 44 41 20 53 52 |PNTR......LDA SR|
000005F0: 43 20 3B 00 00 0E E8 03 41 44 43 20 23 37 20 3B |C ;.....ADC #7 ;|
00000600: 00 0E 0E F2 03 53 54 41 20 53 52 43 20 3B 00 21 |.....STA SRC ;.!|
00000610: 0E FC 03 42 43 43 20 4D 41 49 4E 46 49 4E 44 20 |...BCC MAINFIND |
00000620: 3B 00 31 0E 06 04 49 4E 43 20 53 52 43 AA 31 20 |;.1...INC SRC.1 |
00000630: 3B 00 44 0E 10 04 42 4E 45 20 4D 41 49 4E 46 49 |;.D...BNE MAINFI|
00000640: 4E 44 20 3B 00 4A 0E 1A 04 3B 00 63 0E 24 04 3B |ND ;.J...;.c.$.;|
00000650: 20 80 20 4F 46 20 53 54 52 49 4E 47 20 48 AF 4C | . OF STRING H.L|
00000660: 49 4E 47 00 69 0E 2E 04 3B 00 8A 0E 38 04 43 4C |ING.i...;...8.CL|
00000670: 45 41 52 53 52 43 20 4C 44 41 20 23 B1 93 41 44 |EARSRC LDA #..AD|
00000680: 44 52 20 3B 20 43 4C 45 41 52 00 AB 0E 42 04 53 |DR ; CLEAR...B.S|
00000690: 54 41 20 44 45 53 54 AA 31 20 3B 20 38 4B 20 41 |TA DEST.1 ; 8K A|
000006A0: 54 20 93 20 41 44 44 52 45 53 53 00 B9 0E 4C 04 |T . ADDRESS...L.|
000006B0: 4C 44 58 20 23 33 32 20 3B 00 C6 0E 56 04 4C 44 |LDX #32 ;...V.LD|
000006C0: 41 20 23 30 20 3B 00 D5 0E 60 04 53 54 41 20 44 |A #0 ;...`.STA D|
000006D0: 45 53 54 20 3B 00 DF 0E 6A 04 54 41 59 20 3B 00 |EST ;...j.TAY ;.|
000006E0: E5 0E 74 04 3B 00 FF 0E 7E 04 43 4C 4F 4F 50 31 |..t.;...~.CLOOP1|
000006F0: 20 53 54 41 20 28 44 45 53 54 29 2C 59 20 3B 00 | STA (DEST),Y ;.|
00000700: 09 0F 88 04 49 4E 59 20 3B 00 1A 0F 92 04 42 4E |....INY ;.....BN|
00000710: 45 20 43 4C 4F 4F 50 31 20 3B 00 2B 0F 9C 04 49 |E CLOOP1 ;.+...I|
00000720: 4E 43 20 44 45 53 54 AA 31 20 3B 00 36 0F A6 04 |NC DEST.1 ;.6...|
00000730: 44 45 58 20 20 3B 00 47 0F B0 04 42 4E 45 20 43 |DEX ;.G...BNE C|
00000740: 4C 4F 4F 50 31 20 3B 00 4D 0F BA 04 3B 00 5D 0F |LOOP1 ;.M...;.].|
00000750: C4 04 4C 44 41 20 50 4F B5 45 52 20 3B 00 6B 0F |..LDA PO.ER ;.k.|
00000760: CE 04 53 54 41 20 53 52 43 20 3B 00 7D 0F D8 04 |..STA SRC ;.}...|
00000770: 4C 44 41 20 50 4F B5 45 52 AA 31 20 3B 00 8D 0F |LDA PO.ER.1 ;...|
00000780: E2 04 53 54 41 20 53 52 43 AA 31 20 3B 00 93 0F |..STA SRC.1 ;...|
00000790: EC 04 3B 00 B5 0F F6 04 4C 44 59 20 23 30 20 3B |..;.....LDY #0 ;|
000007A0: 20 43 48 45 43 4B 20 81 20 44 4F 4F 44 4C 45 21 | CHECK . DOODLE!|
000007B0: 20 81 4D 41 54 00 C7 0F 00 05 4C 44 41 20 28 53 | .MAT.....LDA (S|
000007C0: 52 43 29 2C 59 20 3B 00 D6 0F 0A 05 43 4D 50 20 |RC),Y ;.....CMP |
000007D0: 23 22 44 22 20 3B 00 E5 0F 14 05 42 4E 45 20 A8 |#"D" ;.....BNE .|
000007E0: 44 44 4C 20 3B 00 EF 0F 1E 05 49 4E 59 20 3B 00 |DDL ;.....INY ;.|
000007F0: 01 10 28 05 4C 44 41 20 28 53 52 43 29 2C 59 20 |..(.LDA (SRC),Y |
00000800: 3B 00 10 10 32 05 43 4D 50 20 23 22 44 22 20 3B |;...2.CMP #"D" ;|
00000810: 00 1F 10 3C 05 42 4E 45 20 A8 44 44 4C 20 3B 00 |...<.BNE .DDL ;.|
00000820: 2E 10 46 05 4C 44 41 20 23 24 46 46 20 3B 00 3C |..F.LDA #$FF ;.<|
00000830: 10 50 05 2E 42 59 54 45 20 24 32 43 00 4E 10 5A |.P..BYTE $2C.N.Z|
00000840: 05 A8 44 44 4C 20 4C 44 41 20 23 30 20 3B 00 60 |..DDL LDA #0 ;.`|
00000850: 10 64 05 53 54 41 20 44 44 4C 46 4C 41 47 20 3B |.d.STA DDLFLAG ;|
00000860: 00 66 10 6E 05 3B 00 89 10 78 05 4C 44 41 20 23 |.f.n.;...x.LDA #|
00000870: 38 20 3B 20 93 20 48 49 AB 52 45 53 20 53 43 52 |8 ; . HI.RES SCR|
00000880: 45 45 4E 20 49 4D 41 47 45 00 93 10 82 05 54 41 |EEN IMAGE.....TA|
00000890: 58 20 3B 00 A0 10 8C 05 4C 44 59 20 23 30 20 3B |X ;.....LDY #0 ;|
000008A0: 00 B1 10 96 05 4A 53 52 20 53 45 54 46 4C 53 20 |.....JSR SETFLS |
000008B0: 3B 00 CD 10 A0 05 4C 44 41 20 C3 47 54 48 20 3B |;.....LDA .GTH ;|
000008C0: 20 46 49 C3 41 4D 45 20 20 C3 47 54 48 00 DD 10 | FI.AME .GTH...|
000008D0: AA 05 4C 44 58 20 50 4F B5 45 52 20 3B 00 EF 10 |..LDX PO.ER ;...|
000008E0: B4 05 4C 44 59 20 50 4F B5 45 52 AA 31 20 3B 00 |..LDY PO.ER.1 ;.|
000008F0: 00 11 BE 05 4A 53 52 20 53 45 54 4E 41 4D 20 3B |....JSR SETNAM ;|
00000900: 00 0D 11 C8 05 4C 44 41 20 23 30 20 3B 00 17 11 |.....LDA #0 ;...|
00000910: D2 05 54 41 58 20 3B 00 29 11 DC 05 42 49 54 20 |..TAX ;.)...BIT |
00000920: 44 44 4C 46 4C 41 47 20 3B 00 38 11 E6 05 42 50 |DDLFLAG ;.8...BP|
00000930: 4C 20 4E B0 4D 93 20 3B 00 4F 11 F0 05 4C 44 59 |L N.M. ;.O...LDY|
00000940: 20 23 B1 28 93 41 44 44 52 AB 24 34 30 30 29 00 | #.(.ADDR.$400).|
00000950: 5D 11 FA 05 2E 42 59 54 45 20 24 32 43 00 72 11 |]....BYTE $2C.r.|
00000960: 04 06 4E B0 4D 93 20 4C 44 59 20 23 B1 93 41 44 |..N.M. LDY #..AD|
00000970: 44 52 00 78 11 0E 06 3B 00 84 11 18 06 4A 53 52 |DR.x...;.....JSR|
00000980: 20 93 20 3B 00 8A 11 22 06 3B 00 9C 11 2C 06 42 | . ;...".;...,.B|
00000990: 49 54 20 44 44 4C 46 4C 41 47 20 3B 00 AE 11 36 |IT DDLFLAG ;...6|
000009A0: 06 42 4D 49 20 44 44 4C 43 4F 4C B0 20 3B 00 B4 |.BMI DDLCOL. ;..|
000009B0: 11 40 06 3B 00 D2 11 4A 06 4C 44 41 20 55 42 43 |.@.;...J.LDA UBC|
000009C0: 20 3B 20 46 45 54 43 48 20 43 4F 4C B0 20 42 59 | ; FETCH COL. BY|
000009D0: 54 45 00 DE 11 54 06 AF 20 23 31 35 20 3B 00 EC |TE...T.. #15 ;..|
000009E0: 11 5E 06 53 54 41 20 55 42 43 20 3B 00 FA 11 68 |.^.STA UBC ;...h|
000009F0: 06 4C 44 41 20 55 46 43 20 3B 00 06 12 72 06 41 |.LDA UFC ;...r.A|
00000A00: 53 4C 20 41 20 3B 00 12 12 7C 06 41 53 4C 20 41 |SL A ;...|.ASL A|
00000A10: 20 3B 00 1E 12 86 06 41 53 4C 20 41 20 3B 00 2A | ;.....ASL A ;.*|
00000A20: 12 90 06 41 53 4C 20 41 20 3B 00 37 12 9A 06 B0 |...ASL A ;.7....|
00000A30: 41 20 55 42 43 20 3B 00 3D 12 A4 06 3B 00 4A 12 |A UBC ;.=...;.J.|
00000A40: AE 06 4C 44 58 20 23 32 35 30 00 69 12 B8 06 49 |..LDX #250.i...I|
00000A50: 4E 49 54 43 4F 4C 52 20 53 54 41 20 43 4F 4C B0 |NITCOLR STA COL.|
00000A60: 4D 45 4D AB 31 2C 58 20 3B 00 81 12 C2 06 53 54 |MEM.1,X ;.....ST|
00000A70: 41 20 43 4F 4C B0 4D 45 4D AA 32 34 39 2C 58 20 |A COL.MEM.249,X |
00000A80: 3B 00 99 12 CC 06 53 54 41 20 43 4F 4C B0 4D 45 |;.....STA COL.ME|
00000A90: 4D AA 34 39 39 2C 58 20 3B 00 B1 12 D6 06 53 54 |M.499,X ;.....ST|
00000AA0: 41 20 43 4F 4C B0 4D 45 4D AA 37 34 39 2C 58 20 |A COL.MEM.749,X |
00000AB0: 3B 00 BB 12 E0 06 44 45 58 20 3B 00 CE 12 EA 06 |;.....DEX ;.....|
00000AC0: 42 4E 45 20 49 4E 49 54 43 4F 4C 52 20 3B 00 DE |BNE INITCOLR ;..|
00000AD0: 12 F4 06 42 45 51 20 50 41 53 54 93 20 3B 00 E4 |...BEQ PAST. ;..|
00000AE0: 12 FE 06 3B 00 F9 12 08 07 44 44 4C 43 4F 4C B0 |...;.....DDLCOL.|
00000AF0: 20 4C 44 58 20 23 34 20 3B 00 06 13 12 07 4C 44 | LDX #4 ;.....LD|
00000B00: 59 20 23 30 20 3B 00 14 13 1C 07 53 54 59 20 53 |Y #0 ;.....STY S|
00000B10: 52 43 20 3B 00 23 13 26 07 53 54 59 20 44 45 53 |RC ;.#.&.STY DES|
00000B20: 54 20 3B 00 37 13 30 07 4C 44 41 20 23 B1 43 4F |T ;.7.0.LDA #.CO|
00000B30: 4C B0 4D 45 4D 20 3B 00 48 13 3A 07 53 54 41 20 |L.MEM ;.H.:.STA |
00000B40: 44 45 53 54 AA 31 20 3B 00 61 13 44 07 4C 44 41 |DEST.1 ;.a.D.LDA|
00000B50: 20 23 B1 28 93 41 44 44 52 AB 24 34 30 30 29 20 | #.(.ADDR.$400) |
00000B60: 3B 00 71 13 4E 07 53 54 41 20 53 52 43 AA 31 20 |;.q.N.STA SRC.1 |
00000B70: 3B 00 77 13 58 07 3B 00 91 13 62 07 44 44 4C 4C |;.w.X.;...b.DDLL|
00000B80: 4F 4F 50 20 4C 44 41 20 28 53 52 43 29 2C 59 20 |OOP LDA (SRC),Y |
00000B90: 3B 00 A4 13 6C 07 53 54 41 20 28 44 45 53 54 29 |;...l.STA (DEST)|
00000BA0: 2C 59 20 3B 00 AE 13 76 07 49 4E 59 20 3B 00 C0 |,Y ;...v.INY ;..|
00000BB0: 13 80 07 42 4E 45 20 44 44 4C 4C 4F 4F 50 20 3B |...BNE DDLLOOP ;|
00000BC0: 00 D0 13 8A 07 49 4E 43 20 53 52 43 AA 31 20 3B |.....INC SRC.1 ;|
00000BD0: 00 E1 13 94 07 49 4E 43 20 44 45 53 54 AA 31 20 |.....INC DEST.1 |
00000BE0: 3B 00 EB 13 9E 07 44 45 58 20 3B 00 FB 13 A8 07 |;.....DEX ;.....|
00000BF0: 42 4E 45 20 44 44 4C 4C 4F 4F 50 00 01 14 B2 07 |BNE DDLLOOP.....|
00000C00: 3B 00 19 14 BC 07 50 41 53 54 93 20 42 49 54 20 |;.....PAST. BIT |
00000C10: 59 53 43 52 4F 4C 4C 20 3B 00 29 14 C6 07 42 50 |YSCROLL ;.)...BP|
00000C20: 4C 20 50 41 53 54 93 20 3B 00 2F 14 D0 07 3B 00 |L PAST. ;./...;.|
00000C30: 4B 14 DA 07 4C 44 41 20 23 24 32 30 20 3B 20 43 |K...LDA #$20 ; C|
00000C40: 4C 45 41 52 20 53 43 52 45 45 4E 00 5C 14 E4 07 |LEAR SCREEN.\...|
00000C50: 53 54 41 20 44 45 53 54 AA 31 20 3B 00 66 14 EE |STA DEST.1 ;.f..|
00000C60: 07 54 41 58 20 3B 00 73 14 F8 07 4C 44 41 20 23 |.TAX ;.s...LDA #|
00000C70: 30 20 3B 00 82 14 02 08 53 54 41 20 44 45 53 54 |0 ;.....STA DEST|
00000C80: 20 3B 00 8C 14 0C 08 54 41 59 20 3B 00 A6 14 16 | ;.....TAY ;....|
00000C90: 08 43 4C 4F 4F 50 32 20 53 54 41 20 28 44 45 53 |.CLOOP2 STA (DES|
00000CA0: 54 29 2C 59 20 3B 00 B0 14 20 08 49 4E 59 20 3B |T),Y ;... .INY ;|
00000CB0: 00 C1 14 2A 08 42 4E 45 20 43 4C 4F 4F 50 32 20 |...*.BNE CLOOP2 |
00000CC0: 3B 00 D2 14 34 08 49 4E 43 20 44 45 53 54 AA 31 |;...4.INC DEST.1|
00000CD0: 20 3B 00 DD 14 3E 08 44 45 58 20 20 3B 00 EE 14 | ;...>.DEX ;...|
00000CE0: 48 08 42 4E 45 20 43 4C 4F 4F 50 32 20 3B 00 F4 |H.BNE CLOOP2 ;..|
00000CF0: 14 52 08 3B 00 16 15 5C 08 4C 44 41 20 59 53 43 |.R.;...\.LDA YSC|
00000D00: 52 4F 4C 4C 20 3B 20 41 43 54 49 56 41 54 45 20 |ROLL ; ACTIVATE |
00000D10: 48 49 AB 52 45 53 00 2A 15 66 08 B0 41 20 23 25 |HI.RES.*.f..A #%|
00000D20: 30 30 31 30 30 30 30 30 20 3B 00 3C 15 70 08 53 |00100000 ;.<.p.S|
00000D30: 54 41 20 59 53 43 52 4F 4C 4C 20 3B 00 4B 15 7A |TA YSCROLL ;.K.z|
00000D40: 08 4C 44 41 20 23 24 31 38 20 3B 00 5C 15 84 08 |.LDA #$18 ;.\...|
00000D50: 53 54 41 20 56 49 43 4D 45 4D 20 3B 00 62 15 8E |STA VICMEM ;.b..|
00000D60: 08 3B 00 76 15 98 08 3B 20 49 4E 49 54 20 52 AF |.;.v...; INIT R.|
00000D70: 4F 4D 20 C5 55 45 00 7C 15 A2 08 3B 00 8B 15 AC |OM .UE.|...;....|
00000D80: 08 4C 44 41 20 23 24 41 42 20 3B 00 9A 15 B6 08 |.LDA #$AB ;.....|
00000D90: 53 54 41 20 52 AF 4F 4D 20 3B 00 A9 15 C0 08 4C |STA R.OM ;.....L|
00000DA0: 44 41 20 23 24 43 44 20 3B 00 BA 15 CA 08 53 54 |DA #$CD ;.....ST|
00000DB0: 41 20 52 AF 4F 4D AA 31 20 3B 00 C0 15 D4 08 3B |A R.OM.1 ;.....;|
00000DC0: 00 CD 15 DE 08 4C 44 41 20 23 36 20 3B 00 D9 15 |.....LDA #6 ;...|
00000DD0: E8 08 53 54 41 20 A9 20 3B 00 DF 15 F2 08 3B 00 |..STA . ;.....;.|
00000DE0: E5 15 FC 08 3B 00 FA 15 06 09 4D 41 49 4E 4D 49 |....;.....MAINMI|
00000DF0: 53 54 20 4C 44 58 20 A9 20 3B 00 0D 16 10 09 4C |ST LDX . ;.....L|
00000E00: 44 41 20 42 4F 55 4E 44 53 2C 58 20 3B 00 21 16 |DA BOUNDS,X ;.!.|
00000E10: 1A 09 4C 44 59 20 4F 46 46 53 45 54 53 2C 58 20 |..LDY OFFSETS,X |
00000E20: 3B 00 2B 16 24 09 54 41 58 20 3B 00 35 16 2E 09 |;.+.$.TAX ;.5...|
00000E30: 44 45 58 20 3B 00 4E 16 38 09 4C 4C 4F 4F 50 31 |DEX ;.N.8.LLOOP1|
00000E40: 20 4C 44 41 20 4D 41 53 4B 83 2C 59 20 3B 00 5F | LDA MASK.,Y ;._|
00000E50: 16 42 09 53 54 41 20 54 45 4D 50 2C 58 20 3B 00 |.B.STA TEMP,X ;.|
00000E60: 69 16 4C 09 44 45 59 20 3B 00 73 16 56 09 44 45 |i.L.DEY ;.s.V.DE|
00000E70: 58 20 3B 00 84 16 60 09 42 50 4C 20 4C 4C 4F 4F |X ;...`.BPL LLOO|
00000E80: 50 31 20 3B 00 8A 16 6A 09 3B 00 AA 16 74 09 4C |P1 ;...j.;...t.L|
00000E90: 44 59 20 23 30 20 3B 20 49 4E 49 54 20 53 43 52 |DY #0 ; INIT SCR|
00000EA0: 45 45 4E 20 50 4F B5 45 52 53 00 B9 16 7E 09 53 |EEN PO.ERS...~.S|
00000EB0: 54 59 20 44 45 53 54 20 3B 00 C7 16 88 09 53 54 |TY DEST ;.....ST|
00000EC0: 59 20 53 52 43 20 3B 00 D6 16 92 09 4C 44 41 20 |Y SRC ;.....LDA |
00000ED0: 23 24 32 30 20 3B 00 E7 16 9C 09 53 54 41 20 44 |#$20 ;.....STA D|
00000EE0: 45 53 54 AA 31 20 3B 00 F7 16 A6 09 53 54 41 20 |EST.1 ;.....STA |
00000EF0: 43 4F 55 4E 54 20 3B 00 04 17 B0 09 41 53 4C 20 |COUNT ;.....ASL |
00000F00: 41 20 20 3B 00 14 17 BA 09 53 54 41 20 53 52 43 |A ;.....STA SRC|
00000F10: AA 31 20 3B 00 1A 17 C4 09 3B 00 3B 17 CE 09 4D |.1 ;.....;.;...M|
00000F20: 49 53 54 31 20 4C 44 41 20 52 AF 4F 4D 20 3B 20 |IST1 LDA R.OM ; |
00000F30: 43 41 4C 43 20 52 AF 4F 4D 20 23 00 4A 17 D8 09 |CALC R.OM #.J...|
00000F40: 52 4F 4C 20 52 AF 4F 4D 20 3B 00 58 17 E2 09 45 |ROL R.OM ;.X...E|
00000F50: B0 20 52 AF 4F 4D 20 3B 00 66 17 EC 09 52 B0 20 |. R.OM ;.f...R. |
00000F60: 52 AF 4F 4D 20 3B 00 77 17 F6 09 49 4E 43 20 52 |R.OM ;.w...INC R|
00000F70: AF 4F 4D AA 31 20 3B 00 89 17 00 0A 41 44 43 20 |.OM.1 ;.....ADC |
00000F80: 52 AF 4F 4D AA 31 20 20 3B 00 99 17 0A 0A 42 56 |R.OM.1 ;.....BV|
00000F90: 43 20 49 47 4E B0 45 20 3B 00 AA 17 14 0A 49 4E |C IGN.E ;.....IN|
00000FA0: 43 20 52 AF 4F 4D AA 31 20 3B 00 BF 17 1E 0A 49 |C R.OM.1 ;.....I|
00000FB0: 47 4E B0 45 20 53 54 41 20 52 AF 4F 4D 20 3B 00 |GN.E STA R.OM ;.|
00000FC0: C5 17 28 0A 3B 00 D1 17 32 0A 4C 44 58 20 A9 20 |..(.;...2.LDX . |
00000FD0: 3B 00 E1 17 3C 0A AF 20 4D 41 53 4B 53 2C 58 20 |;...<.. MASKS,X |
00000FE0: 3B 00 F4 17 46 0A 43 4D 50 20 42 4F 55 4E 44 53 |;...F.CMP BOUNDS|
00000FF0: 2C 58 20 3B 00 04 18 50 0A 42 43 53 20 4D 49 53 |,X ;...P.BCS MIS|
00001000: 54 31 20 3B 00 0E 18 5A 0A 54 41 58 20 3B 00 1F |T1 ;...Z.TAX ;..|
00001010: 18 64 0A 4C 44 41 20 54 45 4D 50 2C 58 20 3B 00 |.d.LDA TEMP,X ;.|
00001020: 2F 18 6E 0A AF 20 28 53 52 43 29 2C 59 20 3B 00 |/.n.. (SRC),Y ;.|
00001030: 41 18 78 0A B0 41 20 28 44 45 53 54 29 2C 59 20 |A.x..A (DEST),Y |
00001040: 3B 00 54 18 82 0A 53 54 41 20 28 44 45 53 54 29 |;.T...STA (DEST)|
00001050: 2C 59 20 3B 00 5E 18 8C 0A 49 4E 59 20 3B 00 6E |,Y ;.^...INY ;.n|
00001060: 18 96 0A 42 4E 45 20 4D 49 53 54 31 20 3B 00 74 |...BNE MIST1 ;.t|
00001070: 18 A0 0A 3B 00 85 18 AA 0A 49 4E 43 20 44 45 53 |...;.....INC DES|
00001080: 54 AA 31 20 3B 00 95 18 B4 0A 49 4E 43 20 53 52 |T.1 ;.....INC SR|
00001090: 43 AA 31 20 3B 00 A5 18 BE 0A 44 45 43 20 43 4F |C.1 ;.....DEC CO|
000010A0: 55 4E 54 20 3B 00 B5 18 C8 0A 42 4E 45 20 4D 49 |UNT ;.....BNE MI|
000010B0: 53 54 31 20 3B 00 BB 18 D2 0A 3B 00 C7 18 DC 0A |ST1 ;.....;.....|
000010C0: 44 45 43 20 A9 20 3B 00 D6 18 E6 0A 42 4D 49 20 |DEC . ;.....BMI |
000010D0: 45 58 49 54 20 3B 00 E9 18 F0 0A 4A 4D 50 20 4D |EXIT ;.....JMP M|
000010E0: 41 49 4E 4D 49 53 54 20 3B 00 EF 18 FA 0A 3B 00 |AINMIST ;.....;.|
000010F0: 03 19 04 0B 45 58 49 54 20 4C 44 41 20 23 24 32 |....EXIT LDA #$2|
00001100: 30 20 3B 00 14 19 0E 0B 53 54 41 20 44 45 53 54 |0 ;.....STA DEST|
00001110: AA 31 20 3B 00 1E 19 18 0B 54 41 58 20 3B 00 2A |.1 ;.....TAX ;.*|
00001120: 19 22 0B 41 53 4C 20 41 20 3B 00 38 19 2C 0B 53 |.".ASL A ;.8.,.S|
00001130: 54 41 20 53 52 43 AA 31 00 43 19 36 0B 4C 44 59 |TA SRC.1.C.6.LDY|
00001140: 20 23 30 00 50 19 40 0B 53 54 59 20 44 45 53 54 | #0.P.@.STY DEST|
00001150: 00 5C 19 4A 0B 53 54 59 20 53 52 43 00 72 19 54 |.\.J.STY SRC.r.T|
00001160: 0B 80 4C 4F 4F 50 20 4C 44 41 20 28 53 52 43 29 |..LOOP LDA (SRC)|
00001170: 2C 59 00 83 19 5E 0B 53 54 41 20 28 44 45 53 54 |,Y...^.STA (DEST|
00001180: 29 2C 59 00 8B 19 68 0B 49 4E 59 00 99 19 72 0B |),Y...h.INY...r.|
00001190: 42 4E 45 20 80 4C 4F 4F 50 00 A8 19 7C 0B 49 4E |BNE .LOOP...|.IN|
000011A0: 43 20 44 45 53 54 AA 31 00 B6 19 86 0B 49 4E 43 |C DEST.1.....INC|
000011B0: 20 53 52 43 AA 31 00 BE 19 90 0B 44 45 58 00 CC | SRC.1.....DEX..|
000011C0: 19 9A 0B 42 4E 45 20 80 4C 4F 4F 50 00 D4 19 A4 |...BNE .LOOP....|
000011D0: 0B 52 54 53 00 DA 19 AE 0B 3B 00 E8 19 B8 0B 4D |.RTS.....;.....M|
000011E0: 41 53 4B 83 20 3D 20 2A 00 EE 19 C2 0B 3B 00 17 |ASK. = *.....;..|
000011F0: 1A CC 0B 2E 42 59 54 45 32 35 34 2C 32 35 33 2C |....BYTE254,253,|
00001200: 32 35 31 2C 32 34 37 2C 32 33 39 2C 32 32 33 2C |251,247,239,223,|
00001210: 31 39 31 2C 31 32 37 00 40 1A D6 0B 2E 42 59 54 |191,127.@....BYT|
00001220: 45 32 35 32 2C 32 35 30 2C 32 34 39 2C 32 34 36 |E252,250,249,246|
00001230: 2C 32 34 35 2C 32 34 33 2C 32 33 38 2C 32 33 37 |,245,243,238,237|
00001240: 00 69 1A E0 0B 2E 42 59 54 45 32 33 35 2C 32 33 |.i....BYTE235,23|
00001250: 31 2C 32 32 32 2C 32 32 31 2C 32 31 39 2C 32 31 |1,222,221,219,21|
00001260: 35 2C 32 30 37 2C 31 39 30 00 92 1A EA 0B 2E 42 |5,207,190......B|
00001270: 59 54 45 31 38 39 2C 31 38 37 2C 31 38 33 2C 31 |YTE189,187,183,1|
00001280: 37 35 2C 31 35 39 2C 31 32 36 2C 31 32 35 2C 31 |75,159,126,125,1|
00001290: 32 33 00 B9 1A F4 0B 2E 42 59 54 45 31 31 39 2C |23......BYTE119,|
000012A0: 31 31 31 2C 39 35 2C 36 33 2C 32 34 38 2C 32 34 |111,95,63,248,24|
000012B0: 34 2C 32 34 32 2C 32 34 31 00 E2 1A FE 0B 2E 42 |4,242,241......B|
000012C0: 59 54 45 32 33 36 2C 32 33 34 2C 32 33 33 2C 32 |YTE236,234,233,2|
000012D0: 33 30 2C 32 32 39 2C 32 32 37 2C 32 32 30 2C 32 |30,229,227,220,2|
000012E0: 31 38 00 0B 1B 08 0C 2E 42 59 54 45 32 31 37 2C |18......BYTE217,|
000012F0: 32 31 34 2C 32 31 33 2C 32 31 31 2C 32 30 36 2C |214,213,211,206,|
00001300: 32 30 35 2C 32 30 33 2C 31 39 39 00 34 1B 12 0C |205,203,199.4...|
00001310: 2E 42 59 54 45 31 38 38 2C 31 38 36 2C 31 38 35 |.BYTE188,186,185|
00001320: 2C 31 38 32 2C 31 38 31 2C 31 37 39 2C 31 37 34 |,182,181,179,174|
00001330: 2C 31 37 33 00 5D 1B 1C 0C 2E 42 59 54 45 31 37 |,173.]....BYTE17|
00001340: 31 2C 31 36 37 2C 31 35 38 2C 31 35 37 2C 31 35 |1,167,158,157,15|
00001350: 35 2C 31 35 31 2C 31 34 33 2C 31 32 34 00 86 1B |5,151,143,124...|
00001360: 26 0C 2E 42 59 54 45 31 32 32 2C 31 32 31 2C 31 |&..BYTE122,121,1|
00001370: 31 38 2C 31 31 37 2C 31 31 35 2C 31 31 30 2C 31 |18,117,115,110,1|
00001380: 30 39 2C 31 30 37 00 A8 1B 30 0C 2E 42 59 54 45 |09,107...0..BYTE|
00001390: 31 30 33 2C 39 34 2C 39 33 2C 39 31 2C 38 37 2C |103,94,93,91,87,|
000013A0: 37 39 2C 36 32 2C 36 31 00 CD 1B 3A 0C 2E 42 59 |79,62,61...:..BY|
000013B0: 54 45 35 39 2C 35 35 2C 34 37 2C 33 31 2C 32 34 |TE59,55,47,31,24|
000013C0: 30 2C 32 33 32 2C 32 32 38 2C 32 32 36 00 F6 1B |0,232,228,226...|
000013D0: 44 0C 2E 42 59 54 45 32 32 35 2C 32 31 36 2C 32 |D..BYTE225,216,2|
000013E0: 31 32 2C 32 31 30 2C 32 30 39 2C 32 30 34 2C 32 |12,210,209,204,2|
000013F0: 30 32 2C 32 30 31 00 1F 1C 4E 0C 2E 42 59 54 45 |02,201...N..BYTE|
00001400: 31 39 38 2C 31 39 37 2C 31 39 35 2C 31 38 34 2C |198,197,195,184,|
00001410: 31 38 30 2C 31 37 38 2C 31 37 37 2C 31 37 32 00 |180,178,177,172.|
00001420: 48 1C 58 0C 2E 42 59 54 45 31 37 30 2C 31 36 39 |H.X..BYTE170,169|
00001430: 2C 31 36 36 2C 31 36 35 2C 31 36 33 2C 31 35 36 |,166,165,163,156|
00001440: 2C 31 35 34 2C 31 35 33 00 71 1C 62 0C 2E 42 59 |,154,153.q.b..BY|
00001450: 54 45 31 35 30 2C 31 34 39 2C 31 34 37 2C 31 34 |TE150,149,147,14|
00001460: 32 2C 31 34 31 2C 31 33 39 2C 31 33 35 2C 31 32 |2,141,139,135,12|
00001470: 30 00 9A 1C 6C 0C 2E 42 59 54 45 31 31 36 2C 31 |0...l..BYTE116,1|
00001480: 31 34 2C 31 31 33 2C 31 30 38 2C 31 30 36 2C 31 |14,113,108,106,1|
00001490: 30 35 2C 31 30 32 2C 31 30 31 00 BB 1C 76 0C 2E |05,102,101...v..|
000014A0: 42 59 54 45 39 39 2C 39 32 2C 39 30 2C 38 39 2C |BYTE99,92,90,89,|
000014B0: 38 36 2C 38 35 2C 38 33 2C 37 38 00 DC 1C 80 0C |86,85,83,78.....|
000014C0: 2E 42 59 54 45 37 37 2C 37 35 2C 37 31 2C 36 30 |.BYTE77,75,71,60|
000014D0: 2C 35 38 2C 35 37 2C 35 34 2C 35 33 00 FD 1C 8A |,58,57,54,53....|
000014E0: 0C 2E 42 59 54 45 35 31 2C 34 36 2C 34 35 2C 34 |..BYTE51,46,45,4|
000014F0: 33 2C 33 39 2C 33 30 2C 32 39 2C 32 37 00 24 1D |3,39,30,29,27.$.|
00001500: 94 0C 2E 42 59 54 45 32 33 2C 31 35 2C 32 32 34 |...BYTE23,15,224|
00001510: 2C 32 30 38 2C 32 30 30 2C 31 39 36 2C 31 39 34 |,208,200,196,194|
00001520: 2C 31 39 33 00 4D 1D 9E 0C 2E 42 59 54 45 31 37 |,193.M....BYTE17|
00001530: 36 2C 31 36 38 2C 31 36 34 2C 31 36 32 2C 31 36 |6,168,164,162,16|
00001540: 31 2C 31 35 32 2C 31 34 38 2C 31 34 36 00 76 1D |1,152,148,146.v.|
00001550: A8 0C 2E 42 59 54 45 31 34 35 2C 31 34 30 2C 31 |...BYTE145,140,1|
00001560: 33 38 2C 31 33 37 2C 31 33 34 2C 31 33 33 2C 31 |38,137,134,133,1|
00001570: 33 31 2C 31 31 32 00 99 1D B2 0C 2E 42 59 54 45 |31,112......BYTE|
00001580: 31 30 34 2C 31 30 30 2C 39 38 2C 39 37 2C 38 38 |104,100,98,97,88|
00001590: 2C 38 34 2C 38 32 2C 38 31 00 BA 1D BC 0C 2E 42 |,84,82,81......B|
000015A0: 59 54 45 37 36 2C 37 34 2C 37 33 2C 37 30 2C 36 |YTE76,74,73,70,6|
000015B0: 39 2C 36 37 2C 35 36 2C 35 32 00 DB 1D C6 0C 2E |9,67,56,52......|
000015C0: 42 59 54 45 35 30 2C 34 39 2C 34 34 2C 34 32 2C |BYTE50,49,44,42,|
000015D0: 34 31 2C 33 38 2C 33 37 2C 33 35 00 FC 1D D0 0C |41,38,37,35.....|
000015E0: 2E 42 59 54 45 32 38 2C 32 36 2C 32 35 2C 32 32 |.BYTE28,26,25,22|
000015F0: 2C 32 31 2C 31 39 2C 31 34 2C 31 33 00 22 1E DA |,21,19,14,13."..|
00001600: 0C 2E 42 59 54 45 31 31 2C 37 2C 31 39 32 2C 31 |..BYTE11,7,192,1|
00001610: 36 30 2C 31 34 34 2C 31 33 36 2C 31 33 32 2C 31 |60,144,136,132,1|
00001620: 33 30 00 44 1E E4 0C 2E 42 59 54 45 31 32 39 2C |30.D....BYTE129,|
00001630: 39 36 2C 38 30 2C 37 32 2C 36 38 2C 36 36 2C 36 |96,80,72,68,66,6|
00001640: 35 2C 34 38 00 65 1E EE 0C 2E 42 59 54 45 34 30 |5,48.e....BYTE40|
00001650: 2C 33 36 2C 33 34 2C 33 33 2C 32 34 2C 32 30 2C |,36,34,33,24,20,|
00001660: 31 38 2C 31 37 00 83 1E F8 0C 2E 42 59 54 45 31 |18,17......BYTE1|
00001670: 32 2C 31 30 2C 39 2C 36 2C 35 2C 33 2C 31 32 38 |2,10,9,6,5,3,128|
00001680: 2C 36 34 00 9A 1E 02 0D 2E 42 59 54 45 33 32 2C |,64......BYTE32,|
00001690: 31 36 2C 38 2C 34 2C 32 2C 31 00 A0 1E 0C 0D 3B |16,8,4,2,1.....;|
000016A0: 00 C4 1E 16 0D 42 4F 55 4E 44 53 20 2E 42 59 54 |.....BOUNDS .BYT|
000016B0: 45 20 38 2C 32 38 2C 35 36 2C 37 30 2C 35 36 2C |E 8,28,56,70,56,|
000016C0: 32 38 2C 38 00 E6 1E 20 0D 4F 46 46 53 45 54 53 |28,8... .OFFSETS|
000016D0: 20 2E 42 59 54 45 20 37 2C 33 35 2C 39 31 2C 31 | .BYTE 7,35,91,1|
000016E0: 36 31 2C 32 31 37 00 F8 1E 2A 0D 2E 42 59 54 45 |61,217...*..BYTE|
000016F0: 20 32 34 35 2C 32 35 33 00 1C 1F 34 0D 4D 41 53 | 245,253...4.MAS|
00001700: 4B 53 20 2E 42 59 54 45 20 37 2C 33 31 2C 36 33 |KS .BYTE 7,31,63|
00001710: 2C 31 32 37 2C 36 33 2C 33 31 2C 37 00 22 1F 3E |,127,63,31,7.".>|
00001720: 0D 3B 00 31 1F 48 0D C3 47 54 48 20 AC B2 AC AA |.;.1.H..GTH ....|
00001730: 31 00 41 1F 52 0D 53 4E 41 4D 45 20 AC B2 AC AA |1.A.R.SNAME ....|
00001740: 32 00 51 1F 5C 0D 50 4F B5 45 52 20 AC B2 AC AA |2.Q.\.PO.ER ....|
00001750: 32 00 63 1F 66 0D 44 44 4C 46 4C 41 47 20 AC B2 |2.c.f.DDLFLAG ..|
00001760: AC AA 31 00 69 1F 70 0D 3B 00 76 1F 7A 0D 54 45 |..1.i.p.;.v.z.TE|
00001770: 4D 50 20 B2 20 AC 00 00 00 |MP . .... |
..&.Z..OPEN15,8,15,"S0:MIST.O":CLOSE15.@
.D..2,8,1,"0:MIST.O,P,W".I.N..700.U.X..O
PT O2.[...;.I...MAXC . 16.X...R.OM . $F7
... .. . R.OM.2.....COUNT . ..1.....DEST
. $FB.....SRC . DEST.2.F.H.CHR. . $73.L
.R.;.....PRNERR. . $A437......COMMA . $A
EFD.....SETFLS . $FFBA.....SETNAM . $FFB
D.'.... . $FFD5.<...COL.MEM . $0400.P..
.YSCROLL . $D011.C.".VICMEM . $D018.U.,.
.ADDR . $4000.{.6.;...@.JMP PAST ;...J.J
MP PAST. ;. .T.;...^.UFC .BYTE 6...H.UBC
.BYTE 1.F.R.;.L.|.;.....PAST JSR .COMMA
;.....STA SNAME ; . 1ST CHAR OF.....;
STRING NAME.....;.5...JSR CHR. ; FETCH .
CHAR.C...BNE BD1 ;.A.B.LDX #11 ; . 'SYN
TAX ERR.'.S.L.JMP PRNERR. ;.Y.V.;.....BD
1 CMP #"$" ;.....BNE BD2 ;.....LDA #$80
;......BYTE $2C.I...BD2 .A #$80 ;.....ST
A SNAME.1 ;.....;...&.PAC.Y JSR CHR. ;..
.0.BEQ BD3 ;...:.CMP #":" ;.#.D.BNE PAC.
Y ;.).N.;.;.X.BD3 LDA $2D ;.I.B.STA SRC
;.W.L.LDA $2E ;.G.V.STA SRC.1 ;.M...;...
..MAINFIND LDY #0 ;.....LDA SRC ;.....CM
P $2F ;.....BNE BD4 ;.....LDA SRC.1 ;.K.
..CMP $30 ;.Y.F.BNE BD4 ;...P.LDX #27 ;
. 'UN.INED'...Z.JMP PRNERR. ;.....;.*...
BD4 LDA (SRC),Y ; SEARCH ..G...CMP SNAME
; STRING NAME.U...BNE BD6 ;._...INY ;.
Q...LDA (SRC),Y ;... .CMP SNAME.1 ;...*.
BNE BD6 ;...4.INY ; F O U N D !.K.>.LDA
(SRC),Y ; FETCH STRING CGTH...H.CMP #MAX
C.1 ; "GREATER THAN 16?...R.BCC BD5 ;...
\.LDX #23 ; YES, . ..6.F.JMP PRNERR. ; '
STRING .O L.G'.<.P.;.O.Z.BD5 STA CGTH ;.
Y...INY ;.K...LDA (SRC),Y ;.{...STA PO.E
R ;.....INY ;.....LDA (SRC),Y ;.....STA
PO.ER.1 ;.....BNE CLEARSRC ;.B.J.;...T.B
D6 CLC ; ADD 7 . STRING PNTR......LDA SR
C ;.....ADC #7 ;.....STA SRC ;.!...BCC M
AINFIND ;.1...INC SRC.1 ;.D...BNE MAINFI
ND ;.J...;.C.$.; . OF STRING H.LING.I...
;...8.CLEARSRC LDA #..ADDR ; CLEAR...B.S
TA DEST.1 ; 8K AT . ADDRESS...L.LDX #32
;.F.V.LDA #0 ;.U.`.STA DEST ;...J.TAY ;.
..T.;...~.CLOOP1 STA (DEST),Y ;.....INY
;.....BNE CLOOP1 ;.+...INC DEST.1 ;.6...
DEX ;.G...BNE CLOOP1 ;.M...;.].D.LDA PO
.ER ;.K.N.STA SRC ;.}.X.LDA PO.ER.1 ;...
..STA SRC.1 ;.....;.....LDY #0 ; CHECK .
DOODLE! .MAT.G...LDA (SRC),Y ;.V...CMP
#"D" ;.....BNE .DDL ;.....INY ;...(.LDA
(SRC),Y ;...2.CMP #"D" ;...<.BNE .DDL ;.
..F.LDA #$FF ;.<.P..BYTE $2C.N.Z..DDL LD
A #0 ;.`.D.STA DDLFLAG ;.F.N.;...X.LDA #
8 ; . HI.RES SCREEN IMAGE.....TAX ;. ...
LDY #0 ;.....JSR SETFLS ;.M. .LDA CGTH ;
FICAME CGTH.....LDX PO.ER ;.....LDY PO
.ER.1 ;.....JSR SETNAM ;...H.LDA #0 ;...
R.TAX ;.)...BIT DDLFLAG ;.8...BPL N.M. ;
.O...LDY #.(.ADDR.$400).]....BYTE $2C.R.
..N.M. LDY #..ADDR.X...;.....JSR . ;..."
.;...,.BIT DDLFLAG ;...6.BMI DDLCOL. ;..
.@.;.R.J.LDA UBC ; FETCH COL. BYTE...T..
#15 ;...^.STA UBC ;...H.LDA UFC ;...R.A
SL A ;...|.ASL A ;.....ASL A ;.*...ASL A
;.7....A UBC ;.=...;.J...LDX #250.I...I
NITCOLR STA COL.MEM.1,X ;...B.STA COL.ME
M.249,X ;...L.STA COL.MEM.499,X ;...V.ST
A COL.MEM.749,X ;.....DEX ;.N...BNE INIT
COLR ;.....BEQ PAST. ;.....;.....DDLCOL.
LDX #4 ;.....LDY #0 ;.....STY SRC ;.#.&
.STY DEST ;.7.0.LDA #.COL.MEM ;.H.:.STA
DEST.1 ;.A.D.LDA #.(.ADDR.$400) ;.Q.N.ST
A SRC.1 ;.W.X.;...B.DDLLOOP LDA (SRC),Y
;...L.STA (DEST),Y ;...V.INY ;.....BNE D
DLLOOP ;.P...INC SRC.1 ;.....INC DEST.1
;.....DEX ;.....BNE DDLLOOP.....;.....PA
ST. BIT YSCROLL ;.).F.BPL PAST. ;./.P.;.
K.Z.LDA #$20 ; CLEAR SCREEN.\...STA DEST
.1 ;.F...TAX ;.S...LDA #0 ;.....STA DEST
;.....TAY ;.....CLOOP2 STA (DEST),Y ;..
. .INY ;.A.*.BNE CLOOP2 ;.R.4.INC DEST.1
;...>.DEX ;...H.BNE CLOOP2 ;...R.;...\
.LDA YSCROLL ; ACTIVATE HI.RES.*.F..A #%
00100000 ;.<.P.STA YSCROLL ;.K.Z.LDA #$1
8 ;.\...STA VICMEM ;.B...;.V...; INIT R.
OM EUE.|...;.....LDA #$AB ;.....STA R.OM
;.....LDA #$CD ;...J.STA R.OM.1 ;...T.;
.M...LDA #6 ;.Y...STA . ;.....;.....;...
..MAINMIST LDX . ;.....LDA BOUNDS,X ;.!.
..LDY OFFSETS,X ;.+.$.TAX ;.5...DEX ;.N.
8.LLOOP1 LDA MASK.,Y ;._.B.STA TEMP,X ;.
I.L.DEY ;.S.V.DEX ;...`.BPL LLOOP1 ;...J
.;...T.LDY #0 ; INIT SCREEN PO.ERS...~.S
TY DEST ;.G...STY SRC ;.V...LDA #$20 ;..
...STA DEST.1 ;.....STA COUNT ;.....ASL
A ;.....STA SRC.1 ;...D.;.;.N.MIST1 LDA
R.OM ; CALC R.OM #.J.X.ROL R.OM ;.X...E
. R.OM ;.F...R. R.OM ;.W...INC R.OM.1 ;.
....ADC R.OM.1 ;.....BVC IGN.E ;.....IN
C R.OM.1 ;.....IGN.E STA R.OM ;.E.(.;.Q.
2.LDX . ;...<.. MASKS,X ;...F.CMP BOUNDS
,X ;...P.BCS MIST1 ;...Z.TAX ;...D.LDA T
EMP,X ;./.N.. (SRC),Y ;.A.X..A (DEST),Y
;.T...STA (DEST),Y ;.^...INY ;.N...BNE M
IST1 ;.T. .;.....INC DEST.1 ;.....INC SR
C.1 ;.....DEC COUNT ;...H.BNE MIST1 ;...
R.;.G...DEC . ;.V...BMI EXIT ;.....JMP M
AINMIST ;.....;.....EXIT LDA #$20 ;.....
STA DEST.1 ;.....TAX ;.*.".ASL A ;.8.,.S
TA SRC.1.C.6.LDY #0.P.@.STY DEST.\.J.STY
SRC.R.T..LOOP LDA (SRC),Y...^.STA (DEST
),Y...H.INY...R.BNE .LOOP...|.INC DEST.1
.....INC SRC.1.....DEX.L...BNE .LOOP.T..
.RTS.Z...;.....MASK. = *...B.;...L..BYTE
254,253,251,247,239,223,191,127.@.V..BYT
E252,250,249,246,245,243,238,237.I....BY
TE235,231,222,221,219,215,207,190......B
YTE189,187,183,175,159,126,125,123......
BYTE119,111,95,63,248,244,242,241......B
YTE236,234,233,230,229,227,220,218......
BYTE217,214,213,211,206,205,203,199.4...
.BYTE188,186,185,182,181,179,174,173.]..
..BYTE171,167,158,157,155,151,143,124...
&..BYTE122,121,118,117,115,110,109,107..
.0..BYTE103,94,93,91,87,79,62,61.M.:..BY
TE59,55,47,31,240,232,228,226...D..BYTE2
25,216,212,210,209,204,202,201...N..BYTE
198,197,195,184,180,178,177,172.H.X..BYT
E170,169,166,165,163,156,154,153.Q.B..BY
TE150,149,147,142,141,139,135,120...L..B
YTE116,114,113,108,106,105,102,101...V..
BYTE99,92,90,89,86,85,83,78......BYTE77,
75,71,60,58,57,54,53......BYTE51,46,45,4
3,39,30,29,27.$....BYTE23,15,224,208,200
,196,194,193.M....BYTE176,168,164,162,16
1,152,148,146.V....BYTE145,140,138,137,1
34,133,131,112......BYTE104,100,98,97,88
,84,82,81......BYTE76,74,73,70,69,67,56,
52...F..BYTE50,49,44,42,41,38,37,35...P.
.BYTE28,26,25,22,21,19,14,13.".Z..BYTE11
,7,192,160,144,136,132,130.D....BYTE129,
96,80,72,68,66,65,48.E....BYTE40,36,34,3
3,24,20,18,17......BYTE12,10,9,6,5,3,128
,64......BYTE32,16,8,4,2,1. ...;.D...BOU
NDS .BYTE 8,28,56,70,56,28,8... .OFFSETS
.BYTE 7,35,91,161,217...*..BYTE 245,253
...4.MASKS .BYTE 7,31,63,127,63,31,7.".>
.;.1.H.CGTH ....1.A.R.SNAME ....2.Q.\.PO
.ER ....2.C.F.DDLFLAG ....1.I.P.;.V.Z.TE
MP . ....
> CLICK IMAGE PREVIEW FOR FULL MODAL