WRITEYOUROWN.ASM
FILE INFORMATION
FILENAME(S): WRITEYOUROWN.ASM
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 16:59:22
APPEARS ON: 2 disk(s)
FILE HASH
cddf49e688997e1ff6e19369cbb116d2678f4ce03f3e1f60e1aec78741e10df8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FCIII-SW | WRITEYOUROWN.ASM | PRG | High Voltage Complete C64 Collection | 22 | 1 | DOWNLOAD FILE |
| A | WRITEYOUROWN.ASM | PRG | marcus | 10 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 E8 03 3B 20 57 52 49 54 45 59 4F 55 |..$...; WRITEYOU| 00000010: 52 4F 57 4E 20 20 44 41 54 45 3A 20 32 33 AB 30 |ROWN DATE: 23.0| 00000020: 33 AB 38 38 00 4B 08 F2 03 3B AB AB AB AB AB AB |3.88.K...;......| 00000030: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................| 00000040: AB AB AB AB AB AB AB AB AB AB AB 00 51 08 FC 03 |............Q...| 00000050: 3B 00 76 08 06 04 3B 20 54 48 45 20 46 49 4E 41 |;.v...; THE FINA| 00000060: 4C 20 43 41 52 54 52 49 44 47 45 20 49 49 49 20 |L CARTRIDGE III | 00000070: 44 45 53 4B A4 50 00 7C 08 10 04 3B 00 9E 08 1A |DESK.P.|...;....| 00000080: 04 3B 20 20 20 20 20 52 49 53 4B 41 20 48 26 50 |.; RISKA H&P| 00000090: 2C 20 4D 41 52 43 20 44 45 52 4B 53 45 4E 00 A4 |, MARC DERKSEN..| 000000A0: 08 24 04 3B 00 C6 08 2E 04 3B 20 20 20 20 20 50 |.$.;.....; P| 000000B0: 20 52 20 4F 20 4A 20 45 20 43 20 54 20 20 20 44 | R O J E C T D| 000000C0: 20 45 20 4D 20 4F 00 CC 08 38 04 3B 00 F3 08 42 | E M O...8.;...B| 000000D0: 04 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............| 000000E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................| 000000F0: AB AB AB 00 F9 08 4C 04 3B 00 1D 09 56 04 3B 20 |......L.;...V.; | 00000100: 50 52 4F 43 45 44 55 52 45 20 44 55 52 49 4E 47 |PROCEDURE DURING| 00000110: 20 44 45 56 45 4C 4F 50 4D 45 4E 54 3A 00 3C 09 | DEVELOPMENT:.<.| 00000120: 60 04 3B AB 55 53 45 20 54 48 49 53 20 53 54 41 |`.;.USE THIS STA| 00000130: 52 54 55 50 20 52 4F 55 54 49 4E 45 00 5E 09 6A |RTUP ROUTINE.^.j| 00000140: 04 3B AB B8 45 20 57 B0 4B 53 50 41 43 45 20 49 |.;..E W.KSPACE I| 00000150: 53 3A 20 24 36 35 43 30 AB 24 36 45 38 30 00 76 |S: $65C0.$6E80.v| 00000160: 09 74 04 3B 20 53 54 41 52 54 20 57 49 54 48 20 |.t.; START WITH | 00000170: 9E 24 36 35 43 30 00 98 09 7E 04 3B AB 4C 45 41 |.$65C0...~.;.LEA| 00000180: 56 45 20 44 45 53 4B 54 50 20 57 49 54 48 20 8A |VE DESKTP WITH .| 00000190: AD 90 AA 52 45 53 45 54 00 BB 09 88 04 3B AB 52 |...RESET.....;.R| 000001A0: 45 53 54 41 52 54 20 41 53 53 45 4D 42 4C 45 52 |ESTART ASSEMBLER| 000001B0: 20 57 49 54 48 20 24 38 30 30 39 00 C4 09 92 04 | WITH $8009.....| 000001C0: 3B 20 B0 3A 00 EA 09 9C 04 3B AB 41 44 44 20 4A |; .:.....;.ADD J| 000001D0: 53 52 20 24 38 30 32 30 20 41 53 20 54 48 45 20 |SR $8020 AS THE | 000001E0: 46 49 52 53 54 20 4C 49 4E 45 00 0C 0A A6 04 3B |FIRST LINE.....;| 000001F0: AB 4C 45 41 56 45 20 44 45 53 4B 54 50 20 57 49 |.LEAVE DESKTP WI| 00000200: 54 48 20 8A AD 90 AA 52 45 53 45 54 00 2F 0A B0 |TH ....RESET./..| 00000210: 04 3B AB 52 45 53 54 41 52 54 20 41 53 53 45 4D |.;.RESTART ASSEM| 00000220: 42 4C 45 52 20 57 49 54 48 20 24 38 30 32 33 00 |BLER WITH $8023.| 00000230: 4D 0A BA 04 3B AB 45 4E 54 45 52 20 D2 20 A4 20 |M...;.ENTER . . | 00000240: 8C 20 53 4F 55 52 43 45 20 43 4F 44 45 00 53 0A |. SOURCE CODE.S.| 00000250: C4 04 3B 00 5F 0A CE 04 8D B2 24 44 45 30 35 00 |..;._.....$DE05.| 00000260: 69 0A D8 04 A0 B2 24 30 31 00 77 0A E2 04 A4 42 |i.....$01.w....B| 00000270: 41 43 4B B2 24 30 32 00 86 0A EC 04 44 52 41 47 |ACK.$02.....DRAG| 00000280: 42 52 B2 24 30 38 00 8C 0A F6 04 3B 00 98 0A 00 |BR.$08.....;....| 00000290: 05 AC B2 24 36 35 43 30 00 BD 0A 0A 05 3B 20 4A |...$65C0.....; J| 000002A0: 53 52 20 24 38 30 32 30 20 20 3B 20 4F 50 54 49 |SR $8020 ; OPTI| 000002B0: 91 41 4C 20 53 45 45 20 41 42 4F 56 45 00 C5 0A |.AL SEE ABOVE...| 000002C0: 14 05 53 45 49 00 E0 0A 1E 05 4A 53 52 20 53 54 |..SEI.....JSR ST| 000002D0: 41 52 54 20 20 3B 20 9F 20 44 45 53 4B AB A4 50 |ART ; . DESK..P| 000002E0: 00 02 0B 28 05 4A 53 52 20 49 4E 49 54 20 20 3B |...(.JSR INIT ;| 000002F0: 20 41 44 44 20 59 4F 55 20 4F 57 4E 20 53 54 55 | ADD YOU OWN STU| 00000300: 46 46 00 1C 0B 32 05 4A 4D 50 20 24 38 30 30 36 |FF...2.JMP $8006| 00000310: 20 20 3B 20 A4 20 85 20 4C 4F 4F 50 00 22 0B 3C | ; . . LOOP.".<| 00000320: 05 3B 00 30 0B 46 05 4D 4E 33 B2 24 43 30 37 34 |.;.0.F.MN3.$C074| 00000330: 00 41 0B 50 05 4D 4E 33 49 54 31 B2 24 43 30 43 |.A.P.MN3IT1.$C0C| 00000340: 32 00 65 0B 5A 05 3B AB AB AB AB AB AB 20 4D 41 |2.e.Z.;...... MA| 00000350: 49 4E 20 AB AB AB AB AB AB AB AB AB AB AB AB AB |IN .............| 00000360: AB AB AB AB AB 00 88 0B 64 05 49 4E 49 54 20 4C |........d.INIT L| 00000370: 44 58 20 23 B3 49 54 45 4D 32 20 20 3B 20 53 45 |DX #.ITEM2 ; SE| 00000380: 54 20 A2 20 4D 45 4E 55 00 98 0B 6E 05 4C 44 59 |T . MENU...n.LDY| 00000390: 20 23 B1 49 54 45 4D 32 00 A7 0B 78 05 53 54 58 | #.ITEM2...x.STX| 000003A0: 20 4D 4E 33 49 54 31 00 B8 0B 82 05 53 54 59 20 | MN3IT1.....STY | 000003B0: 4D 4E 33 49 54 31 AA 31 00 D1 0B 8C 05 4C 44 41 |MN3IT1.1.....LDA| 000003C0: 20 23 31 36 AA 31 20 20 3B 20 32 20 4D 45 4E 55 | #16.1 ; 2 MENU| 000003D0: 53 00 DF 0B 96 05 53 54 41 20 4D 4E 33 AA 37 00 |S.....STA MN3.7.| 000003E0: E7 0B A0 05 52 54 53 00 ED 0B AA 05 3B 00 05 0C |....RTS.....;...| 000003F0: B4 05 49 54 45 4D 32 20 57 B0 20 30 20 20 3B 20 |..ITEM2 W. 0 ; | 00000400: 82 49 54 45 4D 00 20 0C BE 05 57 B0 20 49 54 32 |.ITEM. ...W. IT2| 00000410: 54 58 54 20 20 3B 20 49 54 45 4D 20 4E 41 4D 45 |TXT ; ITEM NAME| 00000420: 00 38 0C C8 05 57 B0 20 9F 57 44 20 20 3B 20 49 |.8...W. .WD ; I| 00000430: 54 45 4D 20 45 58 45 43 00 53 0C D2 05 42 59 54 |TEM EXEC.S...BYT| 00000440: 20 31 2C 30 20 20 3B 20 45 4E 41 42 4C 45 20 49 | 1,0 ; ENABLE I| 00000450: 54 45 4D 00 59 0C DC 05 3B 00 74 0C E6 05 49 54 |TEM.Y...;.t...IT| 00000460: 32 54 58 54 20 42 59 54 20 22 C4 C5 CD CF A0 D7 |2TXT BYT "......| 00000470: C4 22 2C 30 00 7A 0C F0 05 3B 00 9D 0C FA 05 3B |.",0.z...;.....;| 00000480: AB AB AB AB AB AB 20 57 49 4E 44 4F 57 20 AB AB |...... WINDOW ..| 00000490: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 BE 0C |................| 000004A0: 04 06 9F 57 44 20 4C 44 58 20 23 B3 57 49 4E 44 |...WD LDX #.WIND| 000004B0: 4F 57 20 20 3B 20 43 41 4C 4C 20 9F 57 44 00 CF |OW ; CALL .WD..| 000004C0: 0C 0E 06 4C 44 59 20 23 B1 57 49 4E 44 4F 57 00 |...LDY #.WINDOW.| 000004D0: E0 0C 18 06 4C 44 41 20 23 9F 57 49 4E 44 4F 57 |....LDA #.WINDOW| 000004E0: 00 EA 0C 22 06 4A 4D 50 20 8D 00 F0 0C 2C 06 3B |...".JMP ....,.;| 000004F0: 00 0C 0D 36 06 57 49 4E 44 4F 57 20 57 B0 20 30 |...6.WINDOW W. 0| 00000500: 20 20 3B 20 4E 4F 20 47 41 44 A1 53 00 25 0D 40 | ; NO GAD.S.%.@| 00000510: 06 42 59 54 20 34 30 2C 34 30 20 20 3B 20 57 44 |.BYT 40,40 ; WD| 00000520: 58 2C 57 44 59 00 44 0D 4A 06 42 59 54 20 31 31 |X,WDY.D.J.BYT 11| 00000530: 30 2C 35 30 20 20 3B 20 57 49 44 54 48 2C 48 45 |0,50 ; WIDTH,HE| 00000540: 49 47 48 54 00 62 0D 54 06 57 B0 20 57 44 54 49 |IGHT.b.T.W. WDTI| 00000550: 54 4C 45 20 20 3B 20 57 49 4E 44 4F 57 20 4E 41 |TLE ; WINDOW NA| 00000560: 4D 45 00 84 0D 5E 06 42 59 54 20 A0 AA A4 42 41 |ME...^.BYT ...BA| 00000570: 43 4B AA 44 52 41 47 42 52 20 20 3B 20 57 44 46 |CK.DRAGBR ; WDF| 00000580: 4C 41 47 53 00 9F 0D 68 06 42 59 54 20 36 36 20 |LAGS...h.BYT 66 | 00000590: 20 3B 20 57 44 54 49 54 4C 45 20 53 49 5A 45 00 | ; WDTITLE SIZE.| 000005A0: AA 0D 72 06 57 B0 20 30 2C 30 00 C8 0D 7C 06 57 |..r.W. 0,0...|.W| 000005B0: 44 54 49 54 4C 45 20 42 59 54 20 22 CD 59 20 D7 |DTITLE BYT ".Y .| 000005C0: 49 4E 44 4F 57 22 2C 30 00 CE 0D 86 06 3B 00 ED |INDOW",0.....;..| 000005D0: 0D 90 06 3B AB AB AB AB AB AB 20 9F 20 44 45 53 |...;...... . DES| 000005E0: 4B AB A4 50 20 AB AB AB AB AB AB AB AB 00 0B 0E |K..P ...........| 000005F0: 9A 06 53 54 41 52 54 20 4C 44 41 20 23 24 34 32 |..START LDA #$42| 00000600: 20 20 3B 20 46 43 49 49 49 20 91 00 19 0E A4 06 | ; FCIII ......| 00000610: 53 54 41 20 24 44 46 46 46 00 31 0E AE 06 4A 53 |STA $DFFF.1...JS| 00000620: 52 20 9F 44 54 20 20 3B 20 9F 20 53 43 52 45 45 |R .DT ; . SCREE| 00000630: 4E 00 41 0E B8 06 4A 4D 50 20 28 24 38 30 30 34 |N.A...JMP ($8004| 00000640: 29 00 55 0E C2 06 9F 44 54 20 4A 4D 50 20 28 24 |).U....DT JMP ($| 00000650: 38 30 30 31 29 00 5B 0E CC 06 3B 00 7E 0E D6 06 |8001).[...;.~...| 00000660: 3B AB AB AB AB AB AB 20 49 4E 43 4C 55 44 45 53 |;...... INCLUDES| 00000670: 20 AB AB AB AB AB AB AB AB AB AB AB AB AB 00 8D | ...............| 00000680: 0E E0 06 9F 57 49 4E 44 4F 57 B2 34 38 00 00 00 |....WINDOW.48...|
..$...; WRITEYOUROWN DATE: 23.03.88.K.. .;..................................Q... ;.V...; THE FINAL CARTRIDGE III DESK.P.| ...;.....; RISKA H&P, MARC DERKSEN.. .$.;.F...; P R O J E C T D E M O.L .8.;...B.;.............................. ......L.;...V.; PROCEDURE DURING DEVELOP MENT:.<.`.;.USE THIS STARTUP ROUTINE.^.J .;..E W.KSPACE IS: $65C0.$6E80.V.T.; STA RT WITH .$65C0...~.;.LEAVE DESKTP WITH . ...RESET.....;.RESTART ASSEMBLER WITH $8 009.D...; .:.....;.ADD JSR $8020 AS THE FIRST LINE.....;.LEAVE DESKTP WITH ....R ESET./...;.RESTART ASSEMBLER WITH $8023. M...;.ENTER R . . SOURCE CODE.S.D.;._.N. ..$DE05.I.X. .$01.W....BACK.$02.....DRAG BR.$08.....;.......$65C0.....; JSR $8020 ; OPTI.AL SEE ABOVE.E...SEI.....JSR ST ART ; . DESK..P...(.JSR INIT ; ADD YOU OWN STUFF...2.JMP $8006 ; . . LOOP.".< .;.0.F.MN3.$C074.A.P.MN3IT1.$C0C2.E.Z.;. ..... MAIN .....................D.INIT L DX #.ITEM2 ; SET . MENU...N.LDY #.ITEM2 ...X.STX MN3IT1.....STY MN3IT1.1.Q...LDA #16.1 ; 2 MENUS.....STA MN3.7... .RTS. ....;.....ITEM2 W. 0 ; .ITEM. ...W. IT2 TXT ; ITEM NAME.8.H.W. .WD ; ITEM EXEC .S.R.BYT 1,0 ; ENABLE ITEM.Y...;.T...IT 2TXT BYT "DEMO WD",0.Z...;.....;...... W INDOW .....................WD LDX #.WIND OW ; CALL .WD.O...LDY #.WINDOW.....LDA #.WINDOW...".JMP ....,.;...6.WINDOW W. 0 ; NO GAD.S.%.@.BYT 40,40 ; WDX,WDY.D. J.BYT 110,50 ; WIDTH,HEIGHT.B.T.W. WDTI TLE ; WINDOW NAME...^.BYT ..BACK.DRAGB R ; WDFLAGS...H.BYT 66 ; WDTITLE SIZE. ..R.W. 0,0.H.|.WDTITLE BYT "MY WINDOW",0 .N...;.....;...... . DESK..P ........... ..START LDA #$42 ; FCIII ......STA $DFF F.1...JSR .DT ; . SCREEN.A...JMP ($8004 ).U.B..DT JMP ($8001).[.L.;.~.V.;...... INCLUDES ...................WINDOW.48...
> CLICK IMAGE PREVIEW FOR FULL MODAL