MC51
FILE INFORMATION
FILENAME(S): MC51
FILE TYPE(S): USR
FILE SIZE: 3.2K
FIRST SEEN: 2025-10-20 14:31:15
APPEARS ON: 1 disk(s)
FILE HASH
e53356aa20929a10d404c05ca3e42220e0ace21f0640445cf010ea9c7c48105e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C | MC51 | USR | Treasure Chest - Klaus Der Suhler | 20 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 20 3D 3D 3D 00 3B 20 45 44 49 54 45 52 20 46 |; ===.; EDITER F| 00000010: 4F 52 20 47 45 4F 53 20 41 53 53 45 4D 42 4C 45 |OR GEOS ASSEMBLE| 00000020: 52 00 3B 20 20 42 59 20 42 49 4C 4C 20 53 48 41 |R.; BY BILL SHA| 00000030: 52 50 00 3B 3D 3D 3D 00 53 54 41 52 54 00 20 4A |RP.;===.START. J| 00000040: 53 52 20 4F 70 65 6E 44 69 73 6B 00 3B 20 00 3B |SR OpenDisk.; .;| 00000050: 20 6C 6F 61 64 20 74 68 65 20 64 69 73 6B 20 6E | load the disk n| 00000060: 61 6D 65 20 69 6E 74 6F 20 62 75 66 66 65 72 20 |ame into buffer | 00000070: 54 46 4E 61 6D 65 00 3B 20 54 68 69 73 20 69 73 |TFName.; This is| 00000080: 20 6E 65 63 65 73 73 61 72 79 20 62 65 63 61 75 | necessary becau| 00000090: 73 65 20 74 68 65 20 75 73 65 72 20 6D 61 79 20 |se the user may | 000000A0: 63 68 61 6E 67 65 20 74 68 65 00 3B 20 66 69 6C |change the.; fil| 000000B0: 65 6E 61 6D 65 2E 20 20 57 65 20 63 61 6E 6E 6F |ename. We canno| 000000C0: 74 20 61 73 73 75 6D 65 20 77 68 61 74 20 69 74 |t assume what it| 000000D0: 20 69 73 2E 00 3B 00 20 6C 6F 61 64 77 20 52 36 | is..;. loadw R6| 000000E0: 3A 54 46 4E 61 6D 65 00 20 6C 64 61 20 23 36 00 |:TFName. lda #6.| 000000F0: 20 73 74 61 20 52 37 00 20 6C 64 61 20 23 31 00 | sta R7. lda #1.| 00000100: 20 73 74 61 20 52 37 2B 31 00 20 6C 6F 61 64 77 | sta R7+1. loadw| 00000110: 20 52 31 30 3A 4C 6B 46 72 00 20 6A 73 72 20 46 | R10:LkFr. jsr F| 00000120: 69 6E 64 46 54 79 70 65 73 00 3B 00 3B 2D 2D 2D |indFTypes.;.;---| 00000130: 2D 2D 2D 00 20 4A 53 52 20 24 43 31 38 41 3B 20 |---. JSR $C18A; | 00000140: 6D 6F 75 73 65 75 70 00 20 4A 53 52 20 43 6C 72 |mouseup. JSR Clr| 00000150: 5F 53 63 72 65 65 6E 00 20 4A 53 52 20 56 45 43 |_Screen. JSR VEC| 00000160: 54 4F 52 00 6C 6F 61 64 77 20 52 30 3A 49 43 4F |TOR.loadw R0:ICO| 00000170: 4E 53 00 20 4A 53 52 20 24 43 31 35 41 3B 20 64 |NS. JSR $C15A; d| 00000180: 6F 20 49 43 4F 4E 53 00 6C 6F 61 64 77 20 52 30 |o ICONS.loadw R0| 00000190: 3A 4D 45 4E 55 53 00 20 4C 44 41 20 23 31 00 20 |:MENUS. LDA #1. | 000001A0: 4A 53 52 20 24 43 31 35 31 3B 20 44 6F 4D 65 6E |JSR $C151; DoMen| 000001B0: 75 00 20 52 54 53 00 4C 6B 46 72 20 2E 42 79 74 |u. RTS.LkFr .Byt| 000001C0: 65 20 27 43 4F 50 45 5F 56 4C 49 52 27 00 54 46 |e 'COPE_VLIR'.TF| 000001D0: 4E 61 6D 65 20 2E 42 6C 6F 63 6B 20 32 30 00 2E |Name .Block 20..| 000001E0: 42 79 74 65 20 27 41 42 43 44 45 46 27 2C 30 00 |Byte 'ABCDEF',0.| 000001F0: 3B 3D 3D 3D 00 3B 20 49 43 4F 4E 20 52 4F 55 54 |;===.; ICON ROUT| 00000200: 49 4E 45 00 49 43 4F 4E 53 00 2E 42 59 54 45 20 |INE.ICONS..BYTE | 00000210: 31 20 3B 20 31 20 49 43 4F 4E 00 2E 57 4F 52 44 |1 ; 1 ICON..WORD| 00000220: 20 31 36 30 00 2E 42 59 54 45 20 30 00 2E 57 4F | 160..BYTE 0..WO| 00000230: 52 44 20 49 63 64 74 00 2E 42 59 54 45 20 33 38 |RD Icdt..BYTE 38| 00000240: 2C 30 2C 32 2C 31 35 00 2E 57 4F 52 44 20 51 55 |,0,2,15..WORD QU| 00000250: 49 54 32 20 3B 20 43 4F 44 45 00 49 63 64 74 00 |IT2 ; CODE.Icdt.| 00000260: 2E 42 59 54 45 20 31 35 38 00 2E 42 59 54 45 20 |.BYTE 158..BYTE | 00000270: 32 35 35 2C 32 35 35 2C 30 2C 30 2C 32 35 35 2C |255,255,0,0,255,| 00000280: 32 35 35 2C 31 32 38 2C 30 31 2C 31 32 38 2C 31 |255,128,01,128,1| 00000290: 2C 31 32 38 2C 31 00 2E 42 59 54 45 20 31 33 35 |,128,1..BYTE 135| 000002A0: 2C 32 32 35 2C 31 33 35 2C 32 32 35 2C 31 33 35 |,225,135,225,135| 000002B0: 2C 32 32 35 00 2E 42 59 54 45 20 31 32 38 2C 30 |,225..BYTE 128,0| 000002C0: 31 2C 31 32 38 2C 30 31 2C 31 32 38 2C 30 31 00 |1,128,01,128,01.| 000002D0: 2E 42 59 54 45 20 32 35 35 2C 32 35 35 00 2E 42 |.BYTE 255,255..B| 000002E0: 59 54 45 20 30 2C 30 00 2E 42 59 54 45 20 32 35 |YTE 0,0..BYTE 25| 000002F0: 35 2C 32 35 35 00 3B 3D 3D 3D 00 4D 45 4E 55 53 |5,255.;===.MENUS| 00000300: 00 2E 42 59 54 45 20 4D 41 4E 54 4F 50 00 2E 42 |..BYTE MANTOP..B| 00000310: 59 54 45 20 4D 41 4E 42 4F 54 00 2E 57 4F 52 44 |YTE MANBOT..WORD| 00000320: 20 4D 41 4E 4C 46 54 00 2E 57 4F 52 44 20 4D 41 | MANLFT..WORD MA| 00000330: 4E 52 54 00 2E 42 59 54 45 20 48 4F 52 49 5A 20 |NRT..BYTE HORIZ | 00000340: 7C 20 35 00 2E 57 4F 52 44 20 4D 54 58 31 00 2E || 5..WORD MTX1..| 00000350: 42 59 54 45 20 24 38 30 00 2E 57 4F 52 44 20 4D |BYTE $80..WORD M| 00000360: 53 42 31 00 2E 57 4F 52 44 20 4D 54 58 32 00 2E |SB1..WORD MTX2..| 00000370: 42 59 54 45 20 24 38 30 00 2E 57 4F 52 44 20 4D |BYTE $80..WORD M| 00000380: 53 42 32 00 2E 57 4F 52 44 20 4D 54 58 33 00 2E |SB2..WORD MTX3..| 00000390: 42 59 54 45 20 24 38 30 20 00 2E 57 4F 52 44 20 |BYTE $80 ..WORD | 000003A0: 4D 53 42 33 00 2E 57 4F 52 44 20 4D 54 58 34 00 |MSB3..WORD MTX4.| 000003B0: 2E 42 59 54 45 20 24 38 30 20 3B 20 53 55 42 2D |.BYTE $80 ; SUB-| 000003C0: 4D 45 4E 55 00 2E 57 4F 52 44 20 4D 53 42 34 00 |MENU..WORD MSB4.| 000003D0: 2E 57 4F 52 44 20 4D 54 58 35 00 2E 42 59 54 45 |.WORD MTX5..BYTE| 000003E0: 20 24 38 30 00 2E 57 4F 52 44 20 4D 53 42 35 00 | $80..WORD MSB5.| 000003F0: 4D 54 58 31 20 2E 42 59 54 45 20 50 4C 41 49 4E |MTX1 .BYTE PLAIN| 00000400: 2C 31 32 38 2C 30 00 4D 54 58 32 20 2E 42 59 54 |,128,0.MTX2 .BYT| 00000410: 45 20 27 46 69 6C 65 27 2C 30 00 4D 54 58 33 20 |E 'File',0.MTX3 | 00000420: 2E 42 59 54 45 20 27 45 64 69 74 27 2C 30 00 4D |.BYTE 'Edit',0.M| 00000430: 54 58 34 20 2E 42 59 54 45 20 27 53 65 61 72 63 |TX4 .BYTE 'Searc| 00000440: 68 27 2C 30 00 4D 54 58 35 20 2E 42 59 54 45 20 |h',0.MTX5 .BYTE | 00000450: 27 54 6F 6F 6C 62 6F 78 27 2C 30 00 3B 3D 3D 20 |'Toolbox',0.;== | 00000460: 53 54 41 52 54 20 4F 46 20 20 53 55 42 2D 4D 45 |START OF SUB-ME| 00000470: 4E 55 53 00 4D 53 42 31 00 2E 42 59 54 45 20 4D |NUS.MSB1..BYTE M| 00000480: 41 4E 42 4F 54 00 2E 42 59 54 45 20 4D 41 4E 42 |ANBOT..BYTE MANB| 00000490: 4F 54 2B 31 2A 31 34 2B 31 00 2E 57 4F 52 44 20 |OT+1*14+1..WORD | 000004A0: 4D 41 4E 4C 46 54 00 2E 57 4F 52 44 20 4D 41 4E |MANLFT..WORD MAN| 000004B0: 4C 46 54 2B 33 30 00 2E 42 59 54 45 20 56 45 52 |LFT+30..BYTE VER| 000004C0: 54 20 7C 20 31 00 2E 57 4F 52 44 20 53 78 31 31 |T | 1..WORD Sx11| 000004D0: 00 2E 42 59 54 45 20 30 00 2E 57 4F 52 44 20 4E |..BYTE 0..WORD N| 000004E0: 4F 43 4F 44 45 00 53 78 31 31 20 2E 42 59 54 45 |OCODE.Sx11 .BYTE| 000004F0: 20 27 43 4F 50 45 20 49 6E 66 6F 27 2C 30 00 3B | 'COPE Info',0.;| 00000500: 2D 2D 2D 2D 2D 00 4D 53 42 32 00 2E 42 59 54 45 |-----.MSB2..BYTE| 00000510: 20 4D 41 4E 42 4F 54 00 2E 42 59 54 45 20 4D 41 | MANBOT..BYTE MA| 00000520: 4E 42 4F 54 2B 35 2A 31 34 2B 31 00 2E 57 4F 52 |NBOT+5*14+1..WOR| 00000530: 44 20 4D 41 4E 4C 46 54 2B 32 30 00 2E 57 4F 52 |D MANLFT+20..WOR| 00000540: 44 20 4D 41 4E 4C 46 54 2B 38 36 00 2E 42 59 54 |D MANLFT+86..BYT| 00000550: 45 20 56 45 52 54 20 7C 20 35 00 2E 57 4F 52 44 |E VERT | 5..WORD| 00000560: 20 53 75 32 31 00 2E 42 59 54 45 20 30 00 2E 57 | Su21..BYTE 0..W| 00000570: 4F 52 44 20 4C 4F 41 44 00 2E 57 4F 52 44 20 53 |ORD LOAD..WORD S| 00000580: 75 32 32 00 2E 42 59 54 45 20 30 00 2E 57 4F 52 |u22..BYTE 0..WOR| 00000590: 44 20 53 41 56 45 00 2E 57 4F 52 44 20 53 75 32 |D SAVE..WORD Su2| 000005A0: 33 00 2E 42 59 54 45 20 30 00 2E 57 4F 52 44 20 |3..BYTE 0..WORD | 000005B0: 50 52 49 4E 54 00 2E 57 4F 52 44 20 53 75 32 34 |PRINT..WORD Su24| 000005C0: 00 2E 42 59 54 45 20 30 20 00 2E 57 4F 52 44 20 |..BYTE 0 ..WORD | 000005D0: 51 55 49 54 00 2E 57 4F 52 44 20 53 75 32 35 00 |QUIT..WORD Su25.| 000005E0: 2E 42 59 54 45 20 30 00 2E 57 4F 52 44 20 53 61 |.BYTE 0..WORD Sa| 000005F0: 76 65 41 73 31 00 53 75 32 31 20 2E 42 59 54 45 |veAs1.Su21 .BYTE| 00000600: 20 27 4C 6F 61 64 27 2C 32 30 2C 36 34 2C 30 2C | 'Load',20,64,0,| 00000610: 31 32 38 2C 27 4C 27 2C 30 00 53 75 32 32 20 2E |128,'L',0.Su22 .| 00000620: 42 59 54 45 20 27 53 61 76 65 27 2C 32 30 2C 36 |BYTE 'Save',20,6| 00000630: 34 2C 30 2C 31 32 38 2C 27 53 27 2C 30 00 53 75 |4,0,128,'S',0.Su| 00000640: 32 33 20 2E 42 59 54 45 20 27 50 72 69 6E 74 27 |23 .BYTE 'Print'| 00000650: 2C 30 00 53 75 32 34 20 2E 42 59 54 45 20 27 51 |,0.Su24 .BYTE 'Q| 00000660: 75 69 74 27 2C 32 30 2C 36 34 2C 30 2C 31 32 38 |uit',20,64,0,128| 00000670: 2C 27 51 27 2C 30 00 53 75 32 35 20 2E 42 59 54 |,'Q',0.Su25 .BYT| 00000680: 45 20 27 53 61 76 65 20 41 73 2E 2E 2E 27 2C 30 |E 'Save As...',0| 00000690: 00 3B 20 45 4E 44 20 53 75 45 4E 55 20 32 00 3B |.; END SuENU 2.;| 000006A0: 20 53 54 41 52 54 20 53 75 45 4E 55 20 33 00 4D | START SuENU 3.M| 000006B0: 53 42 33 00 2E 42 59 54 45 20 4D 41 4E 42 4F 54 |SB3..BYTE MANBOT| 000006C0: 00 2E 42 59 54 45 20 4D 41 4E 42 4F 54 2B 34 2A |..BYTE MANBOT+4*| 000006D0: 31 34 2B 31 00 2E 57 4F 52 44 20 4D 41 4E 4C 46 |14+1..WORD MANLF| 000006E0: 54 2B 34 31 00 2E 57 4F 52 44 20 4D 41 4E 4C 46 |T+41..WORD MANLF| 000006F0: 54 2B 31 30 35 00 2E 42 59 54 45 20 56 45 52 54 |T+105..BYTE VERT| 00000700: 2B 34 00 2E 57 4F 52 44 20 53 75 33 31 00 2E 42 |+4..WORD Su31..B| 00000710: 59 54 45 20 30 00 2E 57 4F 52 44 20 43 55 54 00 |YTE 0..WORD CUT.| 00000720: 2E 57 4F 52 44 20 53 75 33 32 00 2E 42 59 54 45 |.WORD Su32..BYTE| 00000730: 20 30 00 2E 57 4F 52 44 20 43 4F 50 59 00 2E 57 | 0..WORD COPY..W| 00000740: 4F 52 44 20 53 75 33 33 00 2E 42 59 54 45 20 30 |ORD Su33..BYTE 0| 00000750: 00 2E 57 4F 52 44 20 50 41 53 54 45 20 00 2E 57 |..WORD PASTE ..W| 00000760: 4F 52 44 20 53 75 33 34 00 2E 42 59 54 45 20 30 |ORD Su34..BYTE 0| 00000770: 00 2E 57 4F 52 44 20 43 4C 45 41 52 00 53 75 33 |..WORD CLEAR.Su3| 00000780: 31 20 2E 42 59 54 45 20 27 43 75 74 27 2C 32 30 |1 .BYTE 'Cut',20| 00000790: 2C 38 33 2C 30 2C 31 32 38 2C 27 58 27 2C 30 00 |,83,0,128,'X',0.| 000007A0: 53 75 33 32 20 2E 42 59 54 45 20 27 43 6F 70 79 |Su32 .BYTE 'Copy| 000007B0: 27 2C 32 30 2C 38 33 2C 30 2C 31 32 38 2C 27 43 |',20,83,0,128,'C| 000007C0: 27 2C 30 00 53 75 33 33 20 2E 42 59 54 45 20 27 |',0.Su33 .BYTE '| 000007D0: 50 61 73 74 65 27 2C 32 30 2C 38 33 2C 30 2C 31 |Paste',20,83,0,1| 000007E0: 32 38 2C 27 54 27 2C 30 00 53 75 33 34 20 2E 42 |28,'T',0.Su34 .B| 000007F0: 59 54 45 20 27 43 6C 65 61 72 27 2C 32 30 2C 38 |YTE 'Clear',20,8| 00000800: 35 2C 30 2C 27 44 45 4C 27 2C 30 00 4D 53 42 34 |5,0,'DEL',0.MSB4| 00000810: 00 2E 42 59 54 45 20 4D 41 4E 42 4F 54 00 2E 42 |..BYTE MANBOT..B| 00000820: 59 54 45 20 4D 41 4E 42 4F 54 2B 34 33 00 2E 57 |YTE MANBOT+43..W| 00000830: 4F 52 44 20 4D 41 4E 4C 46 54 2B 36 33 00 2E 57 |ORD MANLFT+63..W| 00000840: 4F 52 44 20 4D 41 4E 4C 46 54 2B 31 34 32 00 2E |ORD MANLFT+142..| 00000850: 42 59 54 45 20 56 45 52 54 2B 33 00 2E 57 4F 52 |BYTE VERT+3..WOR| 00000860: 44 20 53 75 34 31 00 2E 42 59 54 45 20 30 00 2E |D Su41..BYTE 0..| 00000870: 57 4F 52 44 20 46 49 4E 44 00 2E 57 4F 52 44 20 |WORD FIND..WORD | 00000880: 53 75 34 32 00 2E 42 59 54 45 20 30 00 2E 57 4F |Su42..BYTE 0..WO| 00000890: 52 44 20 52 50 54 53 54 52 00 2E 57 4F 52 44 20 |RD RPTSTR..WORD | 000008A0: 53 75 34 34 00 2E 42 59 54 45 20 30 00 2E 57 4F |Su44..BYTE 0..WO| 000008B0: 52 44 20 50 61 67 65 47 4F 3B 20 47 6F 4D 65 6E |RD PageGO; GoMen| 000008C0: 75 3B 20 63 68 61 6E 67 65 64 20 74 6F 20 64 65 |u; changed to de| 000008D0: 6C 65 74 65 20 66 75 6E 63 74 69 6F 6E 20 6B 65 |lete function ke| 000008E0: 79 20 64 69 73 70 6C 61 79 00 53 75 34 31 20 2E |y display.Su41 .| 000008F0: 42 59 54 45 20 27 46 69 6E 64 2E 2E 2E 27 2C 32 |BYTE 'Find...',2| 00000900: 30 2C 31 32 30 2C 30 2C 31 32 38 2C 27 46 27 2C |0,120,0,128,'F',| 00000910: 30 00 53 75 34 32 20 2E 42 59 54 45 20 27 52 65 |0.Su42 .BYTE 'Re| 00000920: 70 6C 61 63 65 2E 2E 2E 27 2C 32 30 2C 31 32 30 |place...',20,120| 00000930: 2C 30 2C 31 32 38 2C 27 52 27 2C 30 00 53 75 34 |,0,128,'R',0.Su4| 00000940: 34 20 2E 42 59 54 45 20 27 47 6F 74 6F 20 50 61 |4 .BYTE 'Goto Pa| 00000950: 67 65 2E 2E 2E 27 2C 32 30 2C 31 32 30 2C 30 2C |ge...',20,120,0,| 00000960: 31 32 38 2C 27 47 27 2C 30 00 4D 53 42 35 00 2E |128,'G',0.MSB5..| 00000970: 42 59 54 45 20 4D 41 4E 42 4F 54 00 2E 42 59 54 |BYTE MANBOT..BYT| 00000980: 45 20 4D 41 4E 42 4F 54 2B 32 39 00 2E 57 4F 52 |E MANBOT+29..WOR| 00000990: 44 20 4D 41 4E 4C 46 54 2B 39 39 00 2E 57 4F 52 |D MANLFT+99..WOR| 000009A0: 44 20 4D 41 4E 4C 46 54 2B 31 35 35 00 2E 42 59 |D MANLFT+155..BY| 000009B0: 54 45 20 56 45 52 54 2B 32 00 2E 57 4F 52 44 20 |TE VERT+2..WORD | 000009C0: 53 75 35 32 00 2E 42 59 54 45 20 30 20 00 2E 57 |Su52..BYTE 0 ..W| 000009D0: 4F 52 44 20 41 73 61 76 65 00 2E 57 6F 72 64 20 |ORD Asave..Word | 000009E0: 53 75 35 33 00 2E 42 79 74 65 20 30 00 2E 57 6F |Su53..Byte 0..Wo| 000009F0: 72 64 20 42 4D 61 72 6B 00 53 75 35 32 20 2E 42 |rd BMark.Su52 .B| 00000A00: 79 74 65 20 27 41 75 74 6F 53 61 76 65 27 2C 30 |yte 'AutoSave',0| 00000A10: 00 53 75 35 33 20 2E 42 79 74 65 20 27 42 6F 6F |.Su53 .Byte 'Boo| 00000A20: 6B 4D 61 72 6B 27 2C 30 00 3B 3D 3D 20 20 45 4E |kMark',0.;== EN| 00000A30: 44 20 4F 46 20 4D 45 4E 55 20 54 41 42 4C 45 53 |D OF MENU TABLES| 00000A40: 00 3B 20 56 45 43 54 4F 52 20 54 41 42 4C 45 00 |.; VECTOR TABLE.| 00000A50: 56 45 43 54 4F 52 00 4A 53 52 20 24 43 31 42 37 |VECTOR.JSR $C1B7| 00000A60: 00 2E 57 4F 52 44 20 54 4D 50 4E 4D 45 00 2E 57 |..WORD TMPNME..W| 00000A70: 4F 52 44 20 46 4E 41 4D 45 00 2E 42 59 54 45 20 |ORD FNAME..BYTE | 00000A80: 31 37 2C 30 00 56 45 43 54 4F 52 31 00 4C 44 58 |17,0.VECTOR1.LDX| 00000A90: 20 23 30 00 49 4E 58 00 52 54 53 00 3B 3D 3D 00 | #0.INX.RTS.;==.| 00000AA0: 51 55 49 54 00 4A 53 52 20 24 43 31 42 44 00 51 |QUIT.JSR $C1BD.Q| 00000AB0: 55 49 54 32 00 4A 4D 50 20 45 4E 54 44 53 4B 00 |UIT2.JMP ENTDSK.| 00000AC0: 3B 3D 3D 3D 3D 00 3B 20 44 49 41 4C 4F 47 20 42 |;====.; DIALOG B| 00000AD0: 4F 58 45 53 00 44 42 31 20 2E 42 59 54 45 20 31 |OXES.DB1 .BYTE 1| 00000AE0: 32 38 2B 32 00 2E 42 59 54 45 20 31 31 2C 37 30 |28+2..BYTE 11,70| 00000AF0: 2C 33 30 00 2E 57 4F 52 44 20 57 61 00 2E 42 59 |,30..WORD Wa..BY| 00000B00: 54 45 20 31 31 2C 34 35 2C 34 35 00 2E 57 4F 52 |TE 11,45,45..WOR| 00000B10: 44 20 57 61 32 00 2E 42 79 74 65 20 31 31 2C 36 |D Wa2..Byte 11,6| 00000B20: 38 2C 37 35 00 2E 57 6F 72 64 20 57 61 33 00 2E |8,75..Word Wa3..| 00000B30: 42 79 74 65 20 31 31 2C 34 30 2C 36 30 00 2E 57 |Byte 11,40,60..W| 00000B40: 6F 72 64 20 57 61 34 00 2E 42 59 54 45 20 31 34 |ord Wa4..BYTE 14| 00000B50: 2C 30 00 57 61 20 2E 42 59 54 45 20 42 4F 4C 44 |,0.Wa .BYTE BOLD| 00000B60: 2C 27 67 65 6F 43 4F 50 45 27 2C 50 4C 41 49 4E |,'geoCOPE',PLAIN| 00000B70: 2C 30 00 57 61 32 20 2E 42 59 54 45 20 27 43 6F |,0.Wa2 .BYTE 'Co| 00000B80: 70 79 72 69 67 68 74 20 31 39 38 37 2C 20 31 39 |pyright 1987, 19| 00000B90: 38 38 27 2C 30 00 57 61 34 20 2E 42 79 74 65 20 |88',0.Wa4 .Byte | 00000BA0: 27 62 79 20 42 69 6C 6C 20 53 68 61 72 70 20 43 |'by Bill Sharp C| 00000BB0: 6F 6D 70 75 74 69 6E 67 27 2C 30 00 57 61 33 20 |omputing',0.Wa3 | 00000BC0: 2E 42 79 74 65 20 27 56 65 72 73 69 6F 6E 20 31 |.Byte 'Version 1| 00000BD0: 2E 31 27 2C 30 00 3B 3D 3D 3D 00 3B 41 50 50 4C |.1',0.;===.;APPL| 00000BE0: 49 43 41 54 49 4F 4E 20 43 4F 44 45 2F 4D 45 4E |ICATION CODE/MEN| 00000BF0: 55 53 20 41 4E 44 20 49 43 4F 4E 53 2E 00 4E 4F |US AND ICONS..NO| 00000C00: 43 4F 44 45 00 4A 53 52 20 24 43 31 42 44 20 3B |CODE.JSR $C1BD ;| 00000C10: 47 4F 54 4F 20 46 49 52 53 54 20 4D 45 4E 55 00 |GOTO FIRST MENU.| 00000C20: 6C 6F 61 64 77 20 52 30 3A 44 42 31 00 4A 53 52 |loadw R0:DB1.JSR| 00000C30: 20 24 43 32 35 36 3B 20 44 4F 20 44 49 41 4C 4F | $C256; DO DIALO| 00000C40: 47 20 42 4F 58 00 52 54 53 00 4E 6F 43 48 41 52 |G BOX.RTS.NoCHAR| 00000C50: 00 4A 53 52 20 24 43 31 42 44 20 3B 47 4F 54 4F |.JSR $C1BD ;GOTO| 00000C60: 20 46 49 52 53 54 20 4D 45 4E 55 00 6C 6F 61 64 | FIRST MENU.load| 00000C70: 77 20 52 30 3A 44 42 31 00 4A 53 52 20 24 43 32 |w R0:DB1.JSR $C2| 00000C80: 35 36 3B 20 44 4F 20 44 49 41 4C 4F 47 20 42 4F |56; DO DIALOG BO| 00000C90: 58 00 52 54 53 00 3B 3D 3D 3D 3D 00 00 00 |X.RTS.;====... |
; ===.; EDITER FOR GEOS ASSEMBLER.; BY BILL SHARP.;===.START. JSR OPENDISK.; .; LOAD THE DISK NAME INTO BUFFER TFNAME.; THIS IS NECESSARY BECAUSE THE USER MAY CHANGE THE.; FILENAME. WE CANNOT ASSUME WHAT IT IS..;. LOADW R6:TFNAME. LDA #6. STA R7. LDA #1. STA R7+1. LOADW R10:LKF R. JSR FINDFTYPES.;.;------. JSR $C18A; MOUSEUP. JSR CLR_SCREEN. JSR VECTOR.LOAD W R0:ICONS. JSR $C15A; DO ICONS.LOADW R0 :MENUS. LDA #1. JSR $C151; DOMENU. RTS.L KFR .BYTE 'COPE_VLIR'.TFNAME .BLOCK 20.. BYTE 'ABCDEF',0.;===.; ICON ROUTINE.ICON S..BYTE 1 ; 1 ICON..WORD 160..BYTE 0..WO RD ICDT..BYTE 38,0,2,15..WORD QUIT2 ; CO DE.ICDT..BYTE 158..BYTE 255,255,0,0,255, 255,128,01,128,1,128,1..BYTE 135,225,135 ,225,135,225..BYTE 128,01,128,01,128,01. .BYTE 255,255..BYTE 0,0..BYTE 255,255.;= ==.MENUS..BYTE MANTOP..BYTE MANBOT..WORD MANLFT..WORD MANRT..BYTE HORIZ | 5..WOR D MTX1..BYTE $80..WORD MSB1..WORD MTX2.. BYTE $80..WORD MSB2..WORD MTX3..BYTE $80 ..WORD MSB3..WORD MTX4..BYTE $80 ; SUB- MENU..WORD MSB4..WORD MTX5..BYTE $80..WO RD MSB5.MTX1 .BYTE PLAIN,128,0.MTX2 .BYT E 'FILE',0.MTX3 .BYTE 'EDIT',0.MTX4 .BYT E 'SEARCH',0.MTX5 .BYTE 'TOOLBOX',0.;== START OF SUB-MENUS.MSB1..BYTE MANBOT..B YTE MANBOT+1*14+1..WORD MANLFT..WORD MAN LFT+30..BYTE VERT | 1..WORD SX11..BYTE 0 ..WORD NOCODE.SX11 .BYTE 'COPE INFO',0.; -----.MSB2..BYTE MANBOT..BYTE MANBOT+5*1 4+1..WORD MANLFT+20..WORD MANLFT+86..BYT E VERT | 5..WORD SU21..BYTE 0..WORD LOAD ..WORD SU22..BYTE 0..WORD SAVE..WORD SU2 3..BYTE 0..WORD PRINT..WORD SU24..BYTE 0 ..WORD QUIT..WORD SU25..BYTE 0..WORD SA VEAS1.SU21 .BYTE 'LOAD',20,64,0,128,'L', 0.SU22 .BYTE 'SAVE',20,64,0,128,'S',0.SU 23 .BYTE 'PRINT',0.SU24 .BYTE 'QUIT',20, 64,0,128,'Q',0.SU25 .BYTE 'SAVE AS...',0 .; END SUENU 2.; START SUENU 3.MSB3..BYT E MANBOT..BYTE MANBOT+4*14+1..WORD MANLF T+41..WORD MANLFT+105..BYTE VERT+4..WORD SU31..BYTE 0..WORD CUT..WORD SU32..BYTE 0..WORD COPY..WORD SU33..BYTE 0..WORD P ASTE ..WORD SU34..BYTE 0..WORD CLEAR.SU3 1 .BYTE 'CUT',20,83,0,128,'X',0.SU32 .BY TE 'COPY',20,83,0,128,'C',0.SU33 .BYTE ' PASTE',20,83,0,128,'T',0.SU34 .BYTE 'CLE AR',20,85,0,'DEL',0.MSB4..BYTE MANBOT..B YTE MANBOT+43..WORD MANLFT+63..WORD MANL FT+142..BYTE VERT+3..WORD SU41..BYTE 0.. WORD FIND..WORD SU42..BYTE 0..WORD RPTST R..WORD SU44..BYTE 0..WORD PAGEGO; GOMEN U; CHANGED TO DELETE FUNCTION KEY DISPLA Y.SU41 .BYTE 'FIND...',20,120,0,128,'F', 0.SU42 .BYTE 'REPLACE...',20,120,0,128,' R',0.SU44 .BYTE 'GOTO PAGE...',20,120,0, 128,'G',0.MSB5..BYTE MANBOT..BYTE MANBOT +29..WORD MANLFT+99..WORD MANLFT+155..BY TE VERT+2..WORD SU52..BYTE 0 ..WORD ASAV E..WORD SU53..BYTE 0..WORD BMARK.SU52 .B YTE 'AUTOSAVE',0.SU53 .BYTE 'BOOKMARK',0 .;== END OF MENU TABLES.; VECTOR TABLE. VECTOR.JSR $C1B7..WORD TMPNME..WORD FNAM E..BYTE 17,0.VECTOR1.LDX #0.INX.RTS.;==. QUIT.JSR $C1BD.QUIT2.JMP ENTDSK.;====.; DIALOG BOXES.DB1 .BYTE 128+2..BYTE 11,70 ,30..WORD WA..BYTE 11,45,45..WORD WA2..B YTE 11,68,75..WORD WA3..BYTE 11,40,60..W ORD WA4..BYTE 14,0.WA .BYTE BOLD,'GEOCOP E',PLAIN,0.WA2 .BYTE 'COPYRIGHT 1987, 19 88',0.WA4 .BYTE 'BY BILL SHARP COMPUTING ',0.WA3 .BYTE 'VERSION 1.1',0.;===.;APPL ICATION CODE/MENUS AND ICONS..NOCODE.JSR $C1BD ;GOTO FIRST MENU.LOADW R0:DB1.JSR $C256; DO DIALOG BOX.RTS.NOCHAR.JSR $C1 BD ;GOTO FIRST MENU.LOADW R0:DB1.JSR $C2 56; DO DIALOG BOX.RTS.;====...
> CLICK IMAGE PREVIEW FOR FULL MODAL