SIMPLEWINDOW.ASM
FILE INFORMATION
FILENAME(S): SIMPLEWINDOW.ASM
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 16:59:22
APPEARS ON: 2 disk(s)
FILE HASH
e60ef6c63ab6cf0a1e7a2f18585588cf3c3c3f3c29521ad7266ade9ea3557920
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FCIII-SW | SIMPLEWINDOW.ASM | PRG | High Voltage Complete C64 Collection | 19 | 3 | DOWNLOAD FILE |
| A | SIMPLEWINDOW.ASM | PRG | marcus | 15 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 E8 03 3B 20 53 49 4D 50 4C 45 57 49 |..$...; SIMPLEWI| 00000010: 4E 44 4F 57 20 20 44 41 54 45 3A 20 31 30 AB 30 |NDOW DATE: 10.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 0B 09 56 04 AC B2 |......L.;...V...| 00000100: 24 30 42 45 31 2C 24 30 38 30 31 00 18 09 60 04 |$0BE1,$0801...`.| 00000110: 42 55 46 30 B2 24 41 33 00 25 09 6A 04 42 55 46 |BUF0.$A3.%.j.BUF| 00000120: 31 B2 24 41 34 00 40 09 74 04 8D B2 24 44 45 30 |1.$A4.@.t...$DE0| 00000130: 35 20 20 3B 20 9E 54 45 4D 20 43 91 53 C0 54 53 |5 ; .TEM C.S.TS| 00000140: 00 4A 09 7E 04 A0 B2 24 30 31 00 58 09 88 04 A4 |.J.~...$01.X....| 00000150: 42 41 43 4B B2 24 30 32 00 67 09 92 04 44 52 41 |BACK.$02.g...DRA| 00000160: 47 42 52 B2 24 30 38 00 6D 09 9C 04 3B 00 8F 09 |GBR.$08.m...;...| 00000170: A6 04 3B AB AB AB AB AB AB 20 42 41 53 49 43 20 |..;...... BASIC | 00000180: 53 54 41 52 54 55 50 20 83 20 2D 2D 2D 2D 2D 00 |STARTUP . -----.| 00000190: B0 09 B0 04 57 B0 20 24 30 38 31 37 2C 31 39 38 |....W. $0817,198| 000001A0: 37 20 20 3B 20 4C 49 4E 45 20 4E 55 4D 42 45 52 |7 ; LINE NUMBER| 000001B0: 00 CC 09 BA 04 42 59 54 20 24 39 45 20 20 3B 20 |.....BYT $9E ; | 000001C0: 42 41 53 49 43 20 9E AB 43 4F 44 45 00 ED 09 C4 |BASIC ..CODE....| 000001D0: 04 42 59 54 20 22 32 30 37 36 20 44 45 53 4B A4 |.BYT "2076 DESK.| 000001E0: 50 20 56 31 2E 30 22 2C 30 2C 30 2C 30 00 03 0A |P V1.0",0,0,0...| 000001F0: CE 04 42 59 54 20 31 2C 30 20 20 3B 20 56 45 52 |..BYT 1,0 ; VER| 00000200: 53 49 91 00 1F 0A D8 04 42 59 54 20 32 20 20 3B |SI......BYT 2 ;| 00000210: 20 53 49 5A 45 20 49 4E 20 42 4C 4F 43 4B 53 00 | SIZE IN BLOCKS.| 00000220: 38 0A E2 04 4A 4D 50 20 24 44 46 45 38 20 20 3B |8...JMP $DFE8 ;| 00000230: 20 53 54 41 52 54 55 50 00 4C 0A EC 04 42 59 54 | STARTUP.L...BYT| 00000240: 20 30 20 20 3B 20 55 4E 55 53 45 44 00 52 0A F6 | 0 ; UNUSED.R..| 00000250: 04 3B 00 63 0A 00 05 4D 4E 33 49 54 31 B2 24 43 |.;.c...MN3IT1.$C| 00000260: 30 43 32 00 74 0A 0A 05 4D 4E 33 49 54 32 B2 24 |0C2.t...MN3IT2.$| 00000270: 43 30 43 41 00 98 0A 14 05 3B AB AB AB AB AB AB |C0CA.....;......| 00000280: 20 4D 41 49 4E 20 AB AB AB AB AB AB AB AB AB AB | MAIN ..........| 00000290: AB AB AB AB AB AB AB AB 00 AE 0A 1E 05 53 54 41 |.............STA| 000002A0: 52 54 20 4A 53 52 20 53 55 52 56 49 56 45 00 CC |RT JSR SURVIVE..| 000002B0: 0A 28 05 4C 44 58 20 23 B3 49 54 45 4D 32 20 20 |.(.LDX #.ITEM2 | 000002C0: 3B 20 53 45 54 20 A2 20 4D 45 4E 55 00 DC 0A 32 |; SET . MENU...2| 000002D0: 05 4C 44 59 20 23 B1 49 54 45 4D 32 00 EB 0A 3C |.LDY #.ITEM2...<| 000002E0: 05 53 54 58 20 4D 4E 33 49 54 31 00 FC 0A 46 05 |.STX MN3IT1...F.| 000002F0: 53 54 59 20 4D 4E 33 49 54 31 AA 31 00 04 0B 50 |STY MN3IT1.1...P| 00000300: 05 52 54 53 00 0A 0B 5A 05 3B 00 2D 0B 64 05 3B |.RTS...Z.;.-.d.;| 00000310: AB AB AB AB AB AB 20 4D 45 4E 55 49 54 45 4D 20 |...... MENUITEM | 00000320: 53 54 52 55 43 54 55 52 45 20 AB AB AB 00 49 0B |STRUCTURE ....I.| 00000330: 6E 05 49 54 45 4D 32 20 57 B0 20 49 54 45 4D 33 |n.ITEM2 W. ITEM3| 00000340: 20 20 3B 20 82 49 54 45 4D 00 64 0B 78 05 57 B0 | ; .ITEM.d.x.W.| 00000350: 20 49 54 32 54 58 54 20 20 3B 20 49 54 45 4D 20 | IT2TXT ; ITEM | 00000360: 4E 41 4D 45 00 7C 0B 82 05 57 B0 20 9F 57 44 20 |NAME.|...W. .WD | 00000370: 20 3B 20 49 54 45 4D 20 45 58 45 43 00 97 0B 8C | ; ITEM EXEC....| 00000380: 05 42 59 54 20 31 2C 30 20 20 3B 20 45 4E 41 42 |.BYT 1,0 ; ENAB| 00000390: 4C 45 20 49 54 45 4D 00 B2 0B 96 05 49 54 45 4D |LE ITEM.....ITEM| 000003A0: 33 20 57 B0 20 30 20 20 3B 20 4E 4F 20 82 49 54 |3 W. 0 ; NO .IT| 000003B0: 45 4D 00 C0 0B A0 05 57 B0 20 49 54 33 54 58 54 |EM.....W. IT3TXT| 000003C0: 00 CE 0B AA 05 57 B0 20 55 4E 4C 49 4E 4B 00 DA |.....W. UNLINK..| 000003D0: 0B B4 05 42 59 54 20 31 2C 30 00 E0 0B BE 05 3B |...BYT 1,0.....;| 000003E0: 00 FB 0B C8 05 49 54 32 54 58 54 20 42 59 54 20 |.....IT2TXT BYT | 000003F0: 22 C4 C5 CD CF A0 D7 C4 22 2C 30 00 15 0C D2 05 |".......",0.....| 00000400: 49 54 33 54 58 54 20 42 59 54 20 22 D5 CE CC C9 |IT3TXT BYT "....| 00000410: CE CB 22 2C 30 00 1B 0C DC 05 3B 00 3E 0C E6 05 |..",0.....;.>...| 00000420: 3B AB AB AB AB AB AB 20 57 49 4E 44 4F 57 20 AB |;...... WINDOW .| 00000430: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 5F |..............._| 00000440: 0C F0 05 9F 57 44 20 4C 44 58 20 23 B3 57 49 4E |....WD LDX #.WIN| 00000450: 44 4F 57 20 20 3B 20 43 41 4C 4C 20 9F 57 44 00 |DOW ; CALL .WD.| 00000460: 70 0C FA 05 4C 44 59 20 23 B1 57 49 4E 44 4F 57 |p...LDY #.WINDOW| 00000470: 00 81 0C 04 06 4C 44 41 20 23 9F 57 49 4E 44 4F |.....LDA #.WINDO| 00000480: 57 00 8B 0C 0E 06 4A 4D 50 20 8D 00 91 0C 18 06 |W.....JMP ......| 00000490: 3B 00 AD 0C 22 06 57 49 4E 44 4F 57 20 57 B0 20 |;...".WINDOW W. | 000004A0: 30 20 20 3B 20 4E 4F 20 47 41 44 A1 53 00 C6 0C |0 ; NO GAD.S...| 000004B0: 2C 06 42 59 54 20 34 30 2C 34 30 20 20 3B 20 57 |,.BYT 40,40 ; W| 000004C0: 44 58 2C 57 44 59 00 E5 0C 36 06 42 59 54 20 31 |DX,WDY...6.BYT 1| 000004D0: 31 30 2C 35 30 20 20 3B 20 57 49 44 54 48 2C 48 |10,50 ; WIDTH,H| 000004E0: 45 49 47 48 54 00 03 0D 40 06 57 B0 20 57 44 54 |EIGHT...@.W. WDT| 000004F0: 49 54 4C 45 20 20 3B 20 57 49 4E 44 4F 57 20 4E |ITLE ; WINDOW N| 00000500: 41 4D 45 00 25 0D 4A 06 42 59 54 20 A0 AA A4 42 |AME.%.J.BYT ...B| 00000510: 41 43 4B AA 44 52 41 47 42 52 20 20 3B 20 57 44 |ACK.DRAGBR ; WD| 00000520: 46 4C 41 47 53 00 40 0D 54 06 42 59 54 20 36 36 |FLAGS.@.T.BYT 66| 00000530: 20 20 3B 20 57 44 54 49 54 4C 45 20 53 49 5A 45 | ; WDTITLE SIZE| 00000540: 00 4B 0D 5E 06 57 B0 20 30 2C 30 00 69 0D 68 06 |.K.^.W. 0,0.i.h.| 00000550: 57 44 54 49 54 4C 45 20 42 59 54 20 22 CD 59 20 |WDTITLE BYT ".Y | 00000560: D7 49 4E 44 4F 57 22 2C 30 00 6F 0D 72 06 3B 00 |.INDOW",0.o.r.;.| 00000570: 92 0D 7C 06 3B AB AB AB AB AB AB 20 55 4E 4C 49 |..|.;...... UNLI| 00000580: 4E 4B 20 AB AB AB AB AB AB AB AB AB AB AB AB AB |NK .............| 00000590: AB AB 00 B2 0D 86 06 55 4E 4C 49 4E 4B 20 4C 44 |.......UNLINK LD| 000005A0: 58 20 23 B3 57 49 4E 44 4F 57 20 20 3B 20 A0 20 |X #.WINDOW ; . | 000005B0: 57 44 00 C3 0D 90 06 4C 44 59 20 23 B1 57 49 4E |WD.....LDY #.WIN| 000005C0: 44 4F 57 00 CF 0D 9A 06 4A 53 52 20 A0 57 44 00 |DOW.....JSR .WD.| 000005D0: ED 0D A4 06 4C 44 58 20 23 B3 4D 4E 33 49 54 32 |....LDX #.MN3IT2| 000005E0: 20 20 3B 20 8F 4F 56 45 20 4D 45 4E 55 00 FE 0D | ; .OVE MENU...| 000005F0: AE 06 4C 44 59 20 23 B1 4D 4E 33 49 54 32 00 0D |..LDY #.MN3IT2..| 00000600: 0E B8 06 53 54 58 20 4D 4E 33 49 54 31 00 1E 0E |...STX MN3IT1...| 00000610: C2 06 53 54 59 20 4D 4E 33 49 54 31 AA 31 00 3C |..STY MN3IT1.1.<| 00000620: 0E CC 06 49 4E 43 20 24 38 30 30 34 20 20 3B 20 |...INC $8004 ; | 00000630: 8F 4F 56 45 20 53 55 52 56 49 56 45 00 44 0E D6 |.OVE SURVIVE.D..| 00000640: 06 52 54 53 00 4A 0E E0 06 3B 00 69 0E EA 06 3B |.RTS.J...;.i...;| 00000650: AB AB AB AB AB AB 20 A0 20 57 49 4E 44 4F 57 20 |...... . WINDOW | 00000660: AB AB AB AB AB AB AB AB AB 00 7A 0E F4 06 A0 57 |..........z....W| 00000670: 44 20 53 54 58 20 42 55 46 30 00 87 0E FE 06 53 |D STX BUF0.....S| 00000680: 54 59 20 42 55 46 31 00 9A 0E 08 07 4C 44 41 20 |TY BUF1.....LDA | 00000690: 23 57 44 91 53 43 52 45 45 4E 00 A4 0E 12 07 4A |#WD.SCREEN.....J| 000006A0: 53 52 20 8D 00 AC 0E 1C 07 49 4E 59 00 B6 0E 26 |SR ......INY...&| 000006B0: 07 42 45 51 20 A8 00 C3 0E 30 07 4C 44 58 20 42 |.BEQ ....0.LDX B| 000006C0: 55 46 30 00 D0 0E 3A 07 4C 44 59 20 42 55 46 31 |UF0...:.LDY BUF1| 000006D0: 00 E2 0E 44 07 4C 44 41 20 23 53 45 54 43 55 52 |...D.LDA #SETCUR| 000006E0: 57 44 00 EC 0E 4E 07 4A 53 52 20 8D 00 F9 0E 58 |WD...N.JSR ....X| 000006F0: 07 4C 44 41 20 23 57 44 A0 00 03 0F 62 07 4A 53 |.LDA #WD....b.JS| 00000700: 52 20 8D 00 0D 0F 6C 07 A8 20 52 54 53 00 13 0F |R ....l.. RTS...| 00000710: 76 07 3B 00 36 0F 80 07 3B AB AB AB AB AB AB 20 |v.;.6...;...... | 00000720: 52 45 53 45 54 20 53 55 52 56 49 56 45 20 AB AB |RESET SURVIVE ..| 00000730: AB AB AB AB AB AB 00 4B 0F 8A 07 53 55 52 56 49 |.......K...SURVI| 00000740: 56 45 20 4C 44 58 20 23 36 AB 31 00 5F 0F 94 07 |VE LDX #6.1._...| 00000750: 53 4C 50 20 4C 44 41 20 54 41 42 45 4C 2C 58 00 |SLP LDA TABEL,X.| 00000760: 6F 0F 9E 07 53 54 41 20 24 38 30 30 30 2C 58 00 |o...STA $8000,X.| 00000770: 77 0F A8 07 44 45 58 00 83 0F B2 07 42 50 4C 20 |w...DEX.....BPL | 00000780: 53 4C 50 00 8B 0F BC 07 52 54 53 00 A0 0F C6 07 |SLP.....RTS.....| 00000790: 54 41 42 45 4C 20 57 B0 20 53 54 41 52 54 AA 33 |TABEL W. START.3| 000007A0: 00 AF 0F D0 07 42 59 54 20 22 4D 47 38 37 22 00 |.....BYT "MG87".| 000007B0: B5 0F DA 07 3B 00 D8 0F E4 07 3B AB AB AB AB AB |....;.....;.....| 000007C0: AB 20 49 4E 43 4C 55 44 45 53 20 AB AB AB AB AB |. INCLUDES .....| 000007D0: AB AB AB AB AB AB AB AB 00 E7 0F EE 07 9F 57 49 |..............WI| 000007E0: 4E 44 4F 57 B2 34 38 00 F8 0F F8 07 57 44 91 53 |NDOW.48.....WD.S| 000007F0: 43 52 45 45 4E B2 37 30 00 03 10 02 08 57 44 A0 |CREEN.70.....WD.| 00000800: B2 36 35 00 13 10 0C 08 53 45 54 43 55 52 57 44 |.65.....SETCURWD| 00000810: B2 32 39 00 00 00 |.29... |
..$...; SIMPLEWINDOW DATE: 10.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...$0BE1,$0801...`.BUF0.$A3 .%.J.BUF1.$A4.@.T...$DE05 ; .TEM C.S.TS .J.~. .$01.X....BACK.$02.G...DRAGBR.$08. M...;.....;...... BASIC STARTUP . -----. ....W. $0817,1987 ; LINE NUMBER.L...BYT $9E ; BASIC ..CODE...D.BYT "2076 DESK. P V1.0",0,0,0...N.BYT 1,0 ; VERSI....X. BYT 2 ; SIZE IN BLOCKS.8...JMP $DFE8 ; STARTUP.L...BYT 0 ; UNUSED.R...;.C...M N3IT1.$C0C2.T...MN3IT2.$C0CA.....;...... MAIN .......................START JSR S URVIVE.L.(.LDX #.ITEM2 ; SET . MENU...2 .LDY #.ITEM2...<.STX MN3IT1...F.STY MN3I T1.1...P.RTS...Z.;.-.D.;...... MENUITEM STRUCTURE ....I.N.ITEM2 W. ITEM3 ; .ITE M.D.X.W. IT2TXT ; ITEM NAME.|...W. .WD ; ITEM EXEC.....BYT 1,0 ; ENABLE ITEM. ....ITEM3 W. 0 ; NO .ITEM... .W. IT3TXT .N...W. UNLINK.Z...BYT 1,0.....;...H.IT2 TXT BYT "DEMO WD",0...R.IT3TXT BYT "UNLI NK",0.....;.>...;...... WINDOW ......... ......._....WD LDX #.WINDOW ; CALL .WD. P...LDY #.WINDOW.....LDA #.WINDOW.....JM P ......;...".WINDOW W. 0 ; NO GAD.S.F. ,.BYT 40,40 ; WDX,WDY...6.BYT 110,50 ; WIDTH,HEIGHT...@.W. WDTITLE ; WINDOW N AME.%.J.BYT ..BACK.DRAGBR ; WDFLAGS.@. T.BYT 66 ; WDTITLE SIZE.K.^.W. 0,0.I.H. WDTITLE BYT "MY WINDOW",0.O.R.;...|.;... ... UNLINK ....................UNLINK LD X #.WINDOW ; WD.C...LDY #.WINDOW.O... JSR WD.....LDX #.MN3IT2 ; .OVE MENU... ..LDY #.MN3IT2.....STX MN3IT1...B.STY MN 3IT1.1.<.L.INC $8004 ; .OVE SURVIVE.D.V .RTS.J...;.I...;...... WINDOW ........ ..Z... WD STX BUF0.....STY BUF1.....LDA #WD.SCREEN.....JSR ......INY...&.BEQ ..C .0.LDX BUF0.P.:.LDY BUF1...D.LDA #SETCUR WD...N.JSR ....X.LDA #WD ...B.JSR ....L. . RTS...V.;.6...;...... RESET SURVIVE .. .......K...SURVIVE LDX #6.1._...SLP LDA TABEL,X.O...STA $8000,X.W...DEX.....BPL SLP.....RTS. .F.TABEL W. START.3...P.BYT "MG87"...Z.;.X...;...... INCLUDES ..... ..............WINDOW.48.....WD.SCREEN.70 .....WD .65.....SETCURWD.29...
> CLICK IMAGE PREVIEW FOR FULL MODAL