SCREEN MANAGER
FILE INFORMATION
FILENAME(S): SCREEN MANAGER
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-12-01 01:08:51
APPEARS ON: 1 disk(s)
FILE HASH
6aec16fd754a7b28fb6e9bfd71326c9f514b3a7f53a9a218b0c46d0053c40758
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLER FILER | SCREEN MANAGER | PRG | hedning, loot | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 64 00 AC B2 20 24 43 30 30 30 00 15 |....d... $C000..| 00000010: 08 6E 00 2E 53 00 1C 08 78 00 2E 50 00 23 08 82 |.n..S...x..P.#..| 00000020: 00 2E 4F 00 29 08 8C 00 3B 00 3F 08 96 00 3B 20 |..O.)...;.?...; | 00000030: 49 4E 49 54 49 45 52 41 20 4C 41 42 45 4C 53 00 |INITIERA LABELS.| 00000040: 45 08 A0 00 3B 00 5F 08 AA 00 3B 20 42 41 53 49 |E...;._...; BASI| 00000050: 43 27 53 20 52 4F 4D 20 52 55 54 49 4E 45 52 00 |C'S ROM RUTINER.| 00000060: 65 08 B4 00 3B 00 77 08 BE 00 4B 4F 4D 4D 41 20 |e...;.w...KOMMA | 00000070: B2 20 24 41 45 46 44 00 88 08 C8 00 A1 4E 55 4D |. $AEFD......NUM| 00000080: 20 B2 20 24 42 37 45 42 00 96 08 D2 00 85 20 B2 | . $B7EB...... .| 00000090: 20 24 41 34 41 34 00 AC 08 D7 00 43 41 4C 43 55 | $A4A4.....CALCU| 000000A0: 4C 41 54 45 20 B2 20 24 45 35 36 43 00 B2 08 DC |LATE . $E56C....| 000000B0: 00 3B 00 C3 08 E1 00 53 43 52 45 45 4E 20 B2 20 |.;.....SCREEN . | 000000C0: 32 30 39 00 D4 08 E6 00 43 4F 43 41 52 54 20 B2 |209.....COCART .| 000000D0: 20 24 46 43 00 DA 08 F0 00 3B 00 EA 08 FA 00 52 | $FC.....;.....R| 000000E0: 41 44 4E 52 20 B2 20 36 38 30 00 FA 08 04 01 50 |ADNR . 680.....P| 000000F0: 4C 55 53 53 20 B2 20 36 38 32 00 08 09 0E 01 52 |LUSS . 682.....R| 00000100: 41 44 20 B2 20 32 31 34 00 19 09 18 01 4B 4F 4C |AD . 214.....KOL| 00000110: 55 4D 4E 20 B2 20 32 31 31 00 28 09 22 01 A4 4B |UMN . 211.(."..K| 00000120: 45 4E 20 B2 20 36 38 35 00 38 09 2C 01 41 4E 54 |EN . 685.8.,.ANT| 00000130: 41 4C 20 B2 20 36 38 36 00 46 09 36 01 52 56 53 |AL . 686.F.6.RVS| 00000140: 20 B2 20 36 38 37 00 55 09 40 01 43 4F 4C B0 20 | . 687.U.@.COL. | 00000150: B2 20 36 38 38 00 65 09 45 01 53 49 53 54 41 20 |. 688.e.E.SISTA | 00000160: B2 20 36 38 39 00 76 09 4A 01 54 45 43 4B 45 4E |. 689.v.J.TECKEN| 00000170: 20 B2 20 36 39 30 00 86 09 54 01 50 41 55 53 45 | . 690...T.PAUSE| 00000180: 20 B2 20 36 39 31 00 95 09 5E 01 54 45 4D 50 20 | . 691...^.TEMP | 00000190: B2 20 36 39 32 00 A5 09 63 01 44 8B 46 20 B2 20 |. 692...c.D.F . | 000001A0: 35 34 32 37 32 00 AB 09 68 01 3B 00 C6 09 72 01 |54272...h.;...r.| 000001B0: 3B 20 49 4E 49 54 49 45 52 49 4E 47 20 56 49 44 |; INITIERING VID| 000001C0: 20 41 4E 52 4F 50 00 CC 09 7C 01 3B 00 E0 09 86 | ANROP...|.;....| 000001D0: 01 41 4E 52 4F 50 20 4A 53 52 20 4B 4F 4D 4D 41 |.ANROP JSR KOMMA| 000001E0: 00 ED 09 90 01 4A 53 52 20 A1 4E 55 4D 00 FB 09 |.....JSR .NUM...| 000001F0: 9A 01 53 54 58 20 50 4C 55 53 53 00 07 0A A4 01 |..STX PLUSS.....| 00000200: 4C 44 41 20 24 31 34 00 15 0A AE 01 53 54 41 20 |LDA $14.....STA | 00000210: 52 41 44 4E 52 00 21 0A B8 01 4C 44 41 20 24 31 |RADNR.!...LDA $1| 00000220: 35 00 31 0A C2 01 53 54 41 20 52 41 44 4E 52 AA |5.1...STA RADNR.| 00000230: 31 00 3E 0A CC 01 4A 53 52 20 43 4F 50 59 00 4D |1.>...JSR COPY.M| 00000240: 0A D6 01 4A 53 52 20 43 48 41 4E 47 45 00 5C 0A |...JSR CHANGE.\.| 00000250: E0 01 4A 53 52 20 49 4E 53 54 41 4C 00 64 0A EA |..JSR INSTAL.d..| 00000260: 01 52 54 53 00 6A 0A F4 01 3B 00 8B 0A FE 01 3B |.RTS.j...;.....;| 00000270: 20 4B 4F 50 49 45 52 41 20 42 41 53 49 43 20 52 | KOPIERA BASIC R| 00000280: 4F 4D 20 54 49 4C 4C 20 52 41 4D 00 91 0A 08 02 |OM TILL RAM.....| 00000290: 3B 00 9E 0A 12 02 43 4F 50 59 20 53 45 49 00 AB |;.....COPY SEI..| 000002A0: 0A 1C 02 4C 44 41 20 23 24 30 30 00 B7 0A 26 02 |...LDA #$00...&.| 000002B0: 53 54 41 20 24 46 45 00 C4 0A 30 02 4C 44 41 20 |STA $FE...0.LDA | 000002C0: 23 24 41 30 00 D0 0A 3A 02 53 54 41 20 24 46 46 |#$A0...:.STA $FF| 000002D0: 00 DC 0A 44 02 4C 44 58 20 23 33 32 00 E7 0A 4E |...D.LDX #32...N| 000002E0: 02 4C 44 59 20 23 30 00 FC 0A 58 02 4C 4F 4F 50 |.LDY #0...X.LOOP| 000002F0: 20 4C 44 41 20 28 24 46 45 29 2C 59 00 0C 0B 62 | LDA ($FE),Y...b| 00000300: 02 53 54 41 20 28 24 46 45 29 2C 59 00 14 0B 6C |.STA ($FE),Y...l| 00000310: 02 49 4E 59 00 21 0B 76 02 42 4E 45 20 4C 4F 4F |.INY.!.v.BNE LOO| 00000320: 50 00 29 0B 80 02 44 45 58 00 37 0B 8A 02 42 45 |P.)...DEX.7...BE| 00000330: 51 20 4B 4C 41 52 54 00 43 0B 94 02 49 4E 43 20 |Q KLART.C...INC | 00000340: 24 46 46 00 50 0B 9E 02 4A 4D 50 20 4C 4F 4F 50 |$FF.P...JMP LOOP| 00000350: 00 5E 0B A8 02 4B 4C 41 52 54 20 43 4C 49 00 66 |.^...KLART CLI.f| 00000360: 0B B2 02 52 54 53 00 6C 0B BC 02 3B 00 85 0B C6 |...RTS.l...;....| 00000370: 02 3B 20 4D 4F 44 8B 49 45 52 41 20 92 49 4E 47 |.; MOD.IERA .ING| 00000380: 20 4C 4F 4F 50 00 8B 0B D0 02 3B 00 9F 0B DA 02 | LOOP.....;.....| 00000390: 43 48 41 4E 47 45 20 4C 44 41 20 23 24 34 43 00 |CHANGE LDA #$4C.| 000003A0: AD 0B E4 02 53 54 41 20 24 41 34 38 44 00 BA 0B |....STA $A48D...| 000003B0: EE 02 4C 44 41 20 23 24 38 30 00 C8 0B F8 02 53 |..LDA #$80.....S| 000003C0: 54 41 20 24 41 34 38 45 00 D5 0B 02 03 4C 44 41 |TA $A48E.....LDA| 000003D0: 20 23 24 41 34 00 E3 0B 0C 03 53 54 41 20 24 41 | #$A4.....STA $A| 000003E0: 34 38 46 00 EB 0B 16 03 52 54 53 00 F1 0B 20 03 |48F.....RTS... .| 000003F0: 3B 00 17 0C 2A 03 3B 20 49 4E 53 54 41 4C 45 52 |;...*.; INSTALER| 00000400: 41 20 4E 59 20 49 52 51 AB 52 55 54 49 4E 2C 55 |A NY IRQ.RUTIN,U| 00000410: 52 20 42 41 53 49 43 00 1D 0C 34 03 3B 00 2C 0C |R BASIC...4.;.,.| 00000420: 3E 03 49 4E 53 54 41 4C 20 53 45 49 00 3A 0C 48 |>.INSTAL SEI.:.H| 00000430: 03 4C 44 41 20 23 B3 49 52 51 00 48 0C 52 03 53 |.LDA #.IRQ.H.R.S| 00000440: 54 41 20 24 30 33 31 34 00 56 0C 5C 03 4C 44 41 |TA $0314.V.\.LDA| 00000450: 20 23 B1 49 52 51 00 64 0C 66 03 53 54 41 20 24 | #.IRQ.d.f.STA $| 00000460: 30 33 31 35 00 84 0C 70 03 3B 20 20 20 20 20 20 |0315...p.; | 00000470: 20 20 20 20 20 4B 4F 50 50 4C 41 20 55 52 20 42 | KOPPLA UR B| 00000480: 41 53 49 43 00 90 0C 7A 03 4C 44 41 20 24 30 31 |ASIC...z.LDA $01| 00000490: 00 9B 0C 84 03 AF 20 23 24 46 45 00 A7 0C 8E 03 |...... #$FE.....| 000004A0: 53 54 41 20 24 30 31 00 AF 0C 98 03 43 4C 49 00 |STA $01.....CLI.| 000004B0: B7 0C A2 03 52 54 53 00 BD 0C AC 03 3B 00 E3 0C |....RTS.....;...| 000004C0: B6 03 3B 20 4E 59 20 49 52 51 AB 52 55 54 49 4E |..; NY IRQ.RUTIN| 000004D0: 2C 4B 4F 4C 4C 20 41 56 20 46 AB C0 47 45 4E 54 |,KOLL AV F..GENT| 000004E0: 45 52 2E 00 E9 0C C0 03 3B 00 FB 0C CA 03 49 52 |ER......;.....IR| 000004F0: 51 20 44 45 43 20 50 41 55 53 45 00 06 0D D4 03 |Q DEC PAUSE.....| 00000500: 42 4E 45 20 55 54 00 11 0D DE 03 4C 44 41 20 23 |BNE UT.....LDA #| 00000510: 36 00 1F 0D E8 03 53 54 41 20 50 41 55 53 45 00 |6.....STA PAUSE.| 00000520: 2B 0D F2 03 4C 44 41 20 31 39 37 00 36 0D FC 03 |+...LDA 197.6...| 00000530: 43 4D 50 20 23 33 00 5B 0D 06 04 42 45 51 20 46 |CMP #3.[...BEQ F| 00000540: 37 3B 20 48 4F 50 50 41 20 54 49 4C 4C 20 48 55 |7; HOPPA TILL HU| 00000550: 56 55 44 20 50 52 4F 47 52 41 4D 00 66 0D 10 04 |VUD PROGRAM.f...| 00000560: 43 4D 50 20 23 34 00 71 0D 1A 04 42 4E 45 20 46 |CMP #4.q...BNE F| 00000570: 33 00 7F 0D 24 04 49 4E 43 20 35 33 32 38 30 00 |3...$.INC 53280.| 00000580: 8D 0D 2E 04 46 33 20 43 4D 50 20 23 35 00 98 0D |....F3 CMP #5...| 00000590: 38 04 42 4E 45 20 46 35 00 A6 0D 42 04 49 4E 43 |8.BNE F5...B.INC| 000005A0: 20 35 33 32 38 31 00 B4 0D 4C 04 46 35 20 43 4D | 53281...L.F5 CM| 000005B0: 50 20 23 36 00 BF 0D 56 04 42 4E 45 20 55 54 00 |P #6...V.BNE UT.| 000005C0: CD 0D 60 04 4A 4D 50 20 48 43 4F 50 59 00 DE 0D |..`.JMP HCOPY...| 000005D0: 6A 04 55 54 20 4A 4D 50 20 24 45 41 33 31 00 E4 |j.UT JMP $EA31..| 000005E0: 0D 74 04 3B 00 01 0E 7E 04 3B 20 49 52 51 AB 52 |.t.;...~.; IRQ.R| 000005F0: 55 54 49 4E 20 23 32 20 2C 20 27 46 4C 41 53 48 |UTIN #2 , 'FLASH| 00000600: 27 00 07 0E 88 04 3B 00 1A 0E 92 04 49 52 51 32 |'.....;.....IRQ2| 00000610: 20 44 45 43 20 50 41 55 53 45 00 26 0E 9C 04 42 | DEC PAUSE.&...B| 00000620: 4E 45 20 55 54 32 00 34 0E A6 04 49 4E 43 20 35 |NE UT2.4...INC 5| 00000630: 33 32 38 30 00 3F 0E B0 04 4C 44 41 20 23 39 00 |3280.?...LDA #9.| 00000640: 4D 0E BA 04 53 54 41 20 50 41 55 53 45 00 59 0E |M...STA PAUSE.Y.| 00000650: C4 04 55 54 32 20 50 4C 41 00 61 0E CE 04 54 41 |..UT2 PLA.a...TA| 00000660: 59 00 69 0E D8 04 50 4C 41 00 71 0E E2 04 54 41 |Y.i...PLA.q...TA| 00000670: 58 00 79 0E EC 04 50 4C 41 00 81 0E F6 04 52 54 |X.y...PLA.....RT| 00000680: 49 00 87 0E 00 05 3B 00 AC 0E 0A 05 3B 20 48 55 |I.....;.....; HU| 00000690: 56 55 44 20 50 52 4F 47 52 41 4D 20 46 5C 52 20 |VUD PROGRAM F\R | 000006A0: 42 45 52 5B 4B 4E 49 4E 47 20 41 56 00 C4 0E 14 |BER[KNING AV....| 000006B0: 05 3B 20 99 20 52 55 54 49 4E AD 53 54 52 5B 4E |.; . RUTIN.STR[N| 000006C0: 47 41 52 2E 00 CA 0E 1E 05 3B 00 D5 0E 28 05 46 |GAR......;...(.F| 000006D0: 37 20 53 45 49 00 E2 0E 32 05 4C 44 41 20 23 24 |7 SEI...2.LDA #$| 000006E0: 30 34 00 F3 0E 3C 05 53 54 41 20 53 43 52 45 45 |04...<.STA SCREE| 000006F0: 4E AA 31 00 00 0F 46 05 4C 44 41 20 23 24 30 30 |N.1...F.LDA #$00| 00000700: 00 0F 0F 50 05 53 54 41 20 53 43 52 45 45 4E 00 |...P.STA SCREEN.| 00000710: 1B 0F 5A 05 4C 44 59 20 23 31 38 00 2F 0F 64 05 |..Z.LDY #18./.d.| 00000720: 4C 4F 4F 50 31 20 53 54 41 20 36 38 32 2C 59 00 |LOOP1 STA 682,Y.| 00000730: 37 0F 6E 05 44 45 59 00 45 0F 78 05 42 4E 45 20 |7.n.DEY.E.x.BNE | 00000740: 4C 4F 4F 50 31 00 52 0F 82 05 4C 44 41 20 23 32 |LOOP1.R...LDA #2| 00000750: 35 35 00 5F 0F 8C 05 53 54 41 20 43 4F 4C B0 00 |55._...STA COL..| 00000760: 65 0F 96 05 3B 00 73 0F A0 05 4C 44 41 20 35 33 |e...;.s...LDA 53| 00000770: 32 38 30 00 80 0F AA 05 53 54 41 20 54 45 4D 50 |280.....STA TEMP| 00000780: 00 8E 0F B4 05 4C 44 41 20 35 33 32 38 31 00 9D |.....LDA 53281..| 00000790: 0F BE 05 53 54 41 20 54 45 4D 50 AA 31 00 A3 0F |...STA TEMP.1...| 000007A0: C8 05 3B 00 C5 0F D2 05 3B 20 49 4E 53 54 41 4C |..;.....; INSTAL| 000007B0: 45 52 41 20 49 52 51 AB 52 55 54 49 4E 20 27 46 |ERA IRQ.RUTIN 'F| 000007C0: 4C 41 53 48 27 00 CB 0F DC 05 3B 00 DA 0F E6 05 |LASH'.....;.....| 000007D0: 4C 44 41 20 23 B3 49 52 51 32 00 E8 0F F0 05 53 |LDA #.IRQ2.....S| 000007E0: 54 41 20 24 30 33 31 34 00 F7 0F FA 05 4C 44 41 |TA $0314.....LDA| 000007F0: 20 23 B1 49 52 51 32 00 05 10 04 06 53 54 41 20 | #.IRQ2.....STA | 00000800: 24 30 33 31 35 00 13 10 0E 06 4C 44 41 20 35 33 |$0315.....LDA 53| 00000810: 32 36 35 00 1E 10 18 06 AF 20 23 32 33 39 00 2C |265...... #239.,| 00000820: 10 22 06 53 54 41 20 35 33 32 36 35 00 34 10 2C |.".STA 53265.4.,| 00000830: 06 43 4C 49 00 3A 10 36 06 3B 00 5E 10 40 06 3B |.CLI.:.6.;.^.@.;| 00000840: 20 49 4E 53 54 41 4C 45 52 41 20 4E 59 20 57 41 | INSTALERA NY WA| 00000850: 52 4D AB 53 54 41 52 54 20 56 45 4B A4 52 00 64 |RM.START VEK.R.d| 00000860: 10 4A 06 3B 00 74 10 54 06 4C 44 41 20 23 B3 57 |.J.;.t.T.LDA #.W| 00000870: 41 52 4D 31 00 82 10 5E 06 53 54 41 20 24 30 33 |ARM1...^.STA $03| 00000880: 30 32 00 92 10 68 06 4C 44 41 20 23 B1 57 41 52 |02...h.LDA #.WAR| 00000890: 4D 31 00 A0 10 72 06 53 54 41 20 24 30 33 30 33 |M1...r.STA $0303| 000008A0: 00 A6 10 7C 06 3B 00 C4 10 86 06 3B 20 42 5C 52 |...|.;.....; B\R| 000008B0: 4A 41 20 4D 45 44 20 42 45 52 5B 4B 4E 49 4E 47 |JA MED BER[KNING| 000008C0: 41 52 4E 41 00 CA 10 90 06 3B 00 E5 10 9A 06 4A |ARNA.....;.....J| 000008D0: 53 52 20 97 3B 20 46 5C 52 53 54 41 20 53 54 52 |SR .; F\RSTA STR| 000008E0: 5B 4E 47 45 4E 00 F0 10 A4 06 4C 44 41 20 23 30 |[NGEN.....LDA #0| 000008F0: 00 FE 10 AE 06 4A 53 52 20 50 4C 41 43 45 00 0A |.....JSR PLACE..| 00000900: 11 B8 06 4C 44 41 20 23 33 32 00 18 11 C2 06 53 |...LDA #32.....S| 00000910: 54 41 20 24 30 32 30 31 00 23 11 CC 06 4C 44 41 |TA $0201.#...LDA| 00000920: 20 23 34 00 2E 11 D6 06 53 54 41 20 24 46 00 39 | #4.....STA $F.9| 00000930: 11 E0 06 53 54 58 20 24 42 00 55 11 EA 06 4A 4D |...STX $B.U...JM| 00000940: 50 20 85 3B 20 41 4E 52 4F 50 41 20 52 4F 4D AB |P .; ANROPA ROM.| 00000950: 52 55 54 49 4E 00 6A 11 EB 06 57 41 52 4D 31 20 |RUTIN.j...WARM1 | 00000960: 4C 44 41 20 23 B3 57 41 52 4D 00 78 11 EC 06 53 |LDA #.WARM.x...S| 00000970: 54 41 20 24 30 33 30 32 00 87 11 ED 06 4C 44 41 |TA $0302.....LDA| 00000980: 20 23 B1 57 41 52 4D 00 95 11 EE 06 53 54 41 20 | #.WARM.....STA | 00000990: 24 30 33 30 33 00 A2 11 EF 06 4C 44 41 20 23 31 |$0303.....LDA #1| 000009A0: 35 33 00 AF 11 F0 06 53 54 41 20 A4 4B 45 4E 00 |53.....STA .KEN.| 000009B0: BA 11 F4 06 4C 44 58 20 23 30 00 D7 11 FE 06 4C |....LDX #0.....L| 000009C0: 44 41 20 23 31 34 37 3B 20 4B 4F 44 20 46 5C 52 |DA #147; KOD F\R| 000009D0: 20 9C AD 48 4F 4D 45 00 E5 11 08 07 4A 53 52 20 | ..HOME.....JSR | 000009E0: 50 4C 41 43 45 00 F3 11 12 07 4C 44 41 20 35 33 |PLACE.....LDA 53| 000009F0: 32 37 32 00 FF 11 1C 07 43 4D 50 20 23 32 32 00 |272.....CMP #22.| 00000A00: 0C 12 26 07 42 43 53 20 46 52 41 4D 00 26 12 30 |..&.BCS FRAM.&.0| 00000A10: 07 4C 44 41 20 23 31 34 3B 20 20 4B 4F 44 20 47 |.LDA #14; KOD G| 00000A20: 45 4D 45 4E 45 52 00 34 12 3A 07 42 4E 45 20 46 |EMENER.4.:.BNE F| 00000A30: 52 41 4D 32 00 54 12 44 07 46 52 41 4D 20 4C 44 |RAM2.T.D.FRAM LD| 00000A40: 41 20 23 31 34 32 3B 20 4B 4F 44 20 56 45 52 53 |A #142; KOD VERS| 00000A50: 41 4C 45 52 00 68 12 4E 07 46 52 41 4D 32 20 4A |ALER.h.N.FRAM2 J| 00000A60: 53 52 20 50 4C 41 43 45 00 88 12 58 07 4A 53 52 |SR PLACE...X.JSR| 00000A70: 20 4E 45 58 58 54 3B 20 4B 4F 4C 4C 41 20 A4 4D | NEXXT; KOLLA .M| 00000A80: 4D 41 20 52 41 44 45 52 00 96 12 62 07 4C 44 41 |MA RADER...b.LDA| 00000A90: 20 41 4E 54 41 4C 00 A3 12 6C 07 43 4D 50 20 23 | ANTAL...l.CMP #| 00000AA0: 32 35 35 00 B1 12 76 07 42 4E 45 20 46 52 41 4D |255...v.BNE FRAM| 00000AB0: 33 00 D2 12 80 07 4A 4D 50 20 80 3B 20 48 4F 50 |3.....JMP .; HOP| 00000AC0: 50 41 20 54 49 4C 4C 20 41 56 53 4C 55 54 4E 49 |PA TILL AVSLUTNI| 00000AD0: 4E 47 00 E6 12 8A 07 46 52 41 4D 33 20 4C 44 41 |NG.....FRAM3 LDA| 00000AE0: 20 41 4E 54 41 4C 00 F4 12 94 07 42 45 51 20 53 | ANTAL.....BEQ S| 00000AF0: 4F 4C 91 47 00 01 13 9E 07 4A 53 52 20 44 4F 57 |OL.G.....JSR DOW| 00000B00: 4E 00 0D 13 A8 07 4C 44 41 20 23 33 34 00 1B 13 |N.....LDA #34...| 00000B10: B2 07 4A 53 52 20 50 4C 41 43 45 00 29 13 BC 07 |..JSR PLACE.)...| 00000B20: 4A 53 52 20 43 4F 55 4E 54 00 37 13 C6 07 4A 53 |JSR COUNT.7...JS| 00000B30: 52 20 4D 45 4D B0 59 00 4B 13 D0 07 53 4F 4C 91 |R MEM.Y.K...SOL.| 00000B40: 47 20 4C 44 41 20 41 4E 54 41 4C 00 57 13 DA 07 |G LDA ANTAL.W...| 00000B50: 53 54 41 20 52 41 44 00 68 13 E4 07 4E 59 52 41 |STA RAD.h...NYRA| 00000B60: 44 20 4C 44 41 20 23 30 00 77 13 EE 07 53 54 41 |D LDA #0.w...STA| 00000B70: 20 4B 4F 4C 55 4D 4E 00 9E 13 F8 07 4A 53 52 20 | KOLUMN.....JSR | 00000B80: 43 41 4C 43 55 4C 41 54 45 3B 20 42 45 52 5B 4B |CALCULATE; BER[K| 00000B90: 4E 41 20 43 55 52 2E 20 41 44 52 45 53 53 00 C2 |NA CUR. ADRESS..| 00000BA0: 13 02 08 43 4C 43 3B 20 42 45 52 5B 4B 4E 41 20 |...CLC; BER[KNA | 00000BB0: B9 53 49 54 49 91 20 49 20 46 5B 52 47 47 52 49 |.SITI. I F[RGGRI| 00000BC0: 44 44 00 D1 13 0C 08 4C 44 41 20 53 43 52 45 45 |DD.....LDA SCREE| 00000BD0: 4E 00 DF 13 16 08 41 44 43 20 23 B3 44 8B 46 00 |N.....ADC #.D.F.| 00000BE0: EE 13 20 08 53 54 41 20 43 4F 43 41 52 54 00 FF |.. .STA COCART..| 00000BF0: 13 2A 08 4C 44 41 20 53 43 52 45 45 4E AA 31 00 |.*.LDA SCREEN.1.| 00000C00: 0D 14 34 08 41 44 43 20 23 B1 44 8B 46 00 1E 14 |..4.ADC #.D.F...| 00000C10: 3E 08 53 54 41 20 43 4F 43 41 52 54 AA 31 00 2B |>.STA COCART.1.+| 00000C20: 14 48 08 4A 53 52 20 46 49 4E 44 00 36 14 52 08 |.H.JSR FIND.6.R.| 00000C30: 4C 44 58 20 23 30 00 47 14 5C 08 4E 59 4B 4F 4C |LDX #0.G.\.NYKOL| 00000C40: 20 4C 44 59 20 23 30 00 56 14 66 08 53 54 41 20 | LDY #0.V.f.STA | 00000C50: 4B 4F 4C 55 4D 4E 00 69 14 70 08 4C 44 41 20 28 |KOLUMN.i.p.LDA (| 00000C60: 53 43 52 45 45 4E 29 2C 59 00 78 14 7A 08 53 54 |SCREEN),Y.x.z.ST| 00000C70: 41 20 54 45 43 4B 45 4E 00 84 14 84 08 43 4D 50 |A TECKEN.....CMP| 00000C80: 20 23 33 32 00 92 14 8E 08 42 45 51 20 53 4B 55 | #32.....BEQ SKU| 00000C90: 54 54 00 A5 14 98 08 4C 44 41 20 28 43 4F 43 41 |TT.....LDA (COCA| 00000CA0: 52 54 29 2C 59 00 B2 14 A2 08 43 4D 50 20 43 4F |RT),Y.....CMP CO| 00000CB0: 4C B0 00 C0 14 AC 08 42 45 51 20 53 4B 55 54 54 |L......BEQ SKUTT| 00000CC0: 00 CD 14 B6 08 53 54 41 20 43 4F 4C B0 00 DC 14 |.....STA COL....| 00000CD0: C0 08 4A 53 52 20 43 4F 4C 4F 55 52 00 EA 14 CA |..JSR COLOUR....| 00000CE0: 08 4A 53 52 20 50 4C 41 43 45 00 FD 14 D4 08 53 |.JSR PLACE.....S| 00000CF0: 4B 55 54 54 20 4A 53 52 20 43 48 41 52 00 0B 15 |KUTT JSR CHAR...| 00000D00: DE 08 4A 53 52 20 50 4C 41 43 45 00 2A 15 E8 08 |..JSR PLACE.*...| 00000D10: 43 50 58 20 23 37 31 3B 20 5B 52 20 42 55 46 46 |CPX #71; [R BUFF| 00000D20: 45 52 54 45 4E 20 46 55 4C 4C 00 36 15 F2 08 42 |ERTEN FULL.6...B| 00000D30: 43 53 20 4E 49 58 00 4F 15 FC 08 4C 44 41 20 23 |CS NIX.O...LDA #| 00000D40: 33 34 3B 20 43 49 54 41 54 54 45 43 4B 45 4E 00 |34; CITATTECKEN.| 00000D50: 5D 15 06 09 4A 53 52 20 50 4C 41 43 45 00 73 15 |]...JSR PLACE.s.| 00000D60: 10 09 4C 44 41 20 23 35 39 3B 20 53 45 4D 49 4B |..LDA #59; SEMIK| 00000D70: 4F 4C 91 00 81 15 1A 09 4A 53 52 20 50 4C 41 43 |OL......JSR PLAC| 00000D80: 45 00 8F 15 24 09 4A 53 52 20 43 4F 55 4E 54 00 |E...$.JSR COUNT.| 00000D90: 9D 15 2E 09 4A 53 52 20 4D 45 4D B0 59 00 B0 15 |....JSR MEM.Y...| 00000DA0: 38 09 4E 49 58 20 49 4E 43 20 4B 4F 4C 55 4D 4E |8.NIX INC KOLUMN| 00000DB0: 00 BF 15 42 09 4C 44 59 20 4B 4F 4C 55 4D 4E 00 |...B.LDY KOLUMN.| 00000DC0: CD 15 4C 09 43 50 59 20 53 49 53 54 41 00 EF 15 |..L.CPY SISTA...| 00000DD0: 56 09 42 4E 45 20 4E 59 4B 4F 4C 3B 20 55 50 50 |V.BNE NYKOL; UPP| 00000DE0: 20 54 49 4C 4C 20 4E 59 20 4B 4F 4C 55 4D 4E 00 | TILL NY KOLUMN.| 00000DF0: 0B 16 60 09 4C 44 41 20 53 43 52 45 45 4E AA 31 |..`.LDA SCREEN.1| 00000E00: 3A 53 54 41 20 54 45 4D 50 AA 31 00 23 16 6A 09 |:STA TEMP.1.#.j.| 00000E10: 4C 44 41 20 53 43 52 45 45 4E 3A 53 54 41 20 54 |LDA SCREEN:STA T| 00000E20: 45 4D 50 00 2B 16 74 09 43 4C 43 00 37 16 7E 09 |EMP.+.t.CLC.7.~.| 00000E30: 41 44 43 20 23 34 30 00 46 16 88 09 53 54 41 20 |ADC #40.F...STA | 00000E40: 53 43 52 45 45 4E 00 57 16 92 09 4C 44 41 20 53 |SCREEN.W...LDA S| 00000E50: 43 52 45 45 4E AA 31 00 62 16 9C 09 41 44 43 20 |CREEN.1.b...ADC | 00000E60: 23 30 00 73 16 A6 09 53 54 41 20 53 43 52 45 45 |#0.s...STA SCREE| 00000E70: 4E AA 31 00 81 16 B0 09 4A 53 52 20 4E 45 58 58 |N.1.....JSR NEXX| 00000E80: 54 00 8F 16 BA 09 4C 44 41 20 41 4E 54 41 4C 00 |T.....LDA ANTAL.| 00000E90: B1 16 C4 09 43 4D 50 20 23 32 35 35 3B 20 5B 52 |....CMP #255; [R| 00000EA0: 20 53 49 53 54 41 20 52 41 44 45 4E 20 4E 5D 44 | SISTA RADEN N]D| 00000EB0: 44 00 CD 16 CE 09 42 45 51 20 80 3B 20 48 4F 50 |D.....BEQ .; HOP| 00000EC0: 50 20 54 49 4C 4C 20 41 56 53 4C 55 54 00 E5 16 |P TILL AVSLUT...| 00000ED0: D8 09 4C 44 41 20 54 45 4D 50 3A 53 54 41 20 53 |..LDA TEMP:STA S| 00000EE0: 43 52 45 45 4E 00 FF 16 E2 09 4C 44 41 20 54 45 |CREEN.....LDA TE| 00000EF0: 4D 50 AA 31 3A 53 54 41 20 53 43 52 45 45 4E 00 |MP.1:STA SCREEN.| 00000F00: 0C 17 EC 09 4A 53 52 20 44 4F 57 4E 00 25 17 F6 |....JSR DOWN.%..| 00000F10: 09 4C 44 41 20 23 33 34 3B 20 43 49 54 41 54 54 |.LDA #34; CITATT| 00000F20: 45 43 4B 45 4E 00 33 17 00 0A 4A 53 52 20 50 4C |ECKEN.3...JSR PL| 00000F30: 41 43 45 00 52 17 0A 0A 4C 44 41 20 53 49 53 54 |ACE.R...LDA SIST| 00000F40: 41 3B 20 5B 52 20 52 41 44 45 4E 20 22 46 55 4C |A; [R RADEN "FUL| 00000F50: 4C 22 00 5E 17 14 0A 43 4D 50 20 23 33 39 00 6D |L".^...CMP #39.m| 00000F60: 17 1E 0A 42 4E 45 20 53 4B 55 54 54 39 00 83 17 |...BNE SKUTT9...| 00000F70: 28 0A 4C 44 41 20 23 35 39 3B 20 53 45 4D 49 4B |(.LDA #59; SEMIK| 00000F80: 4F 4C 91 00 91 17 32 0A 4A 53 52 20 50 4C 41 43 |OL....2.JSR PLAC| 00000F90: 45 00 A6 17 3C 0A 53 4B 55 54 54 39 20 4A 53 52 |E...<.SKUTT9 JSR| 00000FA0: 20 43 4F 55 4E 54 00 B4 17 46 0A 4A 53 52 20 4D | COUNT...F.JSR M| 00000FB0: 45 4D B0 59 00 BC 17 50 0A 43 4C 43 00 C8 17 5A |EM.Y...P.CLC...Z| 00000FC0: 0A 4C 44 41 20 52 41 44 00 D6 17 64 0A 41 44 43 |.LDA RAD...d.ADC| 00000FD0: 20 41 4E 54 41 4C 00 E2 17 6E 0A 53 54 41 20 52 | ANTAL...n.STA R| 00000FE0: 41 44 00 EE 17 78 0A 49 4E 43 20 52 41 44 00 FC |AD...x.INC RAD..| 00000FF0: 17 82 0A 4A 4D 50 20 4E 59 52 41 44 00 02 18 8C |...JMP NYRAD....| 00001000: 0A 3B 00 23 18 96 0A 3B 20 4E 5B 52 20 48 45 4C |.;.#...; N[R HEL| 00001010: 4C 41 20 53 4B 5B 52 4D 45 4E 20 5B 52 20 4B 4C |LA SK[RMEN [R KL| 00001020: 41 52 2E 00 29 18 A0 0A 3B 00 44 18 AA 0A 80 20 |AR..)...;.D.... | 00001030: 4C 44 41 20 23 31 39 3B 20 48 4F 4D 45 20 54 45 |LDA #19; HOME TE| 00001040: 43 4B 45 4E 00 52 18 B4 0A 4A 53 52 20 50 4C 41 |CKEN.R...JSR PLA| 00001050: 43 45 00 6C 18 BE 0A 4C 44 41 20 23 33 34 3B 20 |CE.l...LDA #34; | 00001060: 43 49 54 41 54 20 54 45 43 4B 45 4E 00 7A 18 C8 |CITAT TECKEN.z..| 00001070: 0A 4A 53 52 20 50 4C 41 43 45 00 90 18 D2 0A 4C |.JSR PLACE.....L| 00001080: 44 41 20 23 35 39 3B 20 53 45 4D 49 4B 4F 4C 91 |DA #59; SEMIKOL.| 00001090: 00 9E 18 DC 0A 4A 53 52 20 50 4C 41 43 45 00 AC |.....JSR PLACE..| 000010A0: 18 E6 0A 4A 53 52 20 43 4F 55 4E 54 00 BA 18 F0 |...JSR COUNT....| 000010B0: 0A 4A 53 52 20 4D 45 4D B0 59 00 C2 18 FA 0A 42 |.JSR MEM.Y.....B| 000010C0: 52 4B 00 CE 18 B8 0B 2E 46 49 4C 45 20 97 00 00 |RK......FILE ...| 000010D0: 00 |. |
....D... $C000...N..S...X..P.#....O.)... ;.?...; INITIERA LABELS.E. .;._...; BASI C'S ROM RUTINER.E...;.W...KOMMA . $AEFD. ..H..NUM . $B7EB...R.. . $A4A4...W.CALCU LATE . $E56C.....;.C...SCREEN . 209.T... COCART . $FC.Z...;.....RADNR . 680.....P LUSS . 682.....RAD . 214.....KOLUMN . 21 1.(."..KEN . 685.8.,.ANTAL . 686.F.6.RVS . 687.U.@.COL. . 688.E.E.SISTA . 689.V. J.TECKEN . 690...T.PAUSE . 691...^.TEMP . 692...C.D.F . 54272...H.;.F.R.; INITIE RING VID ANROP.L.|.;.....ANROP JSR KOMMA .....JSR .NUM.....STX PLUSS.....LDA $14. ....STA RADNR.!...LDA $15.1.B.STA RADNR. 1.>.L.JSR COPY.M.V.JSR CHANGE.\...JSR IN STAL.D...RTS.J...;.....; KOPIERA BASIC R OM TILL RAM.....;.....COPY SEI.....LDA # $00...&.STA $FE.D.0.LDA #$A0.P.:.STA $FF ...D.LDX #32...N.LDY #0...X.LOOP LDA ($F E),Y...B.STA ($FE),Y...L.INY.!.V.BNE LOO P.)...DEX.7...BEQ KLART.C...INC $FF.P... JMP LOOP.^...KLART CLI.F...RTS.L...;...F .; MOD.IERA .ING LOOP...P.;...Z.CHANGE L DA #$4C.....STA $A48D.....LDA #$80.H...S TA $A48E.U...LDA #$A4.....STA $A48F..... RTS... .;...*.; INSTALERA NY IRQ.RUTIN,U R BASIC...4.;.,.>.INSTAL SEI.:.H.LDA #.I RQ.H.R.STA $0314.V.\.LDA #.IRQ.D.F.STA $ 0315...P.; KOPPLA UR BASIC...Z .LDA $01...... #$FE.....STA $01.....CLI. ....RTS.....;.....; NY IRQ.RUTIN,KOLL AV F..GENTER......;...J.IRQ DEC PAUSE...T. BNE UT.....LDA #6.....STA PAUSE.+...LDA 197.6...CMP #3.[...BEQ F7; HOPPA TILL HU VUD PROGRAM.F...CMP #4.Q...BNE F3..$.IN C 53280.....F3 CMP #5...8.BNE F5...B.INC 53281...L.F5 CMP #6...V.BNE UT.M.`.JMP HCOPY...J.UT JMP $EA31...T.;...~.; IRQ.R UTIN #2 , 'FLASH'.....;.....IRQ2 DEC PAU SE.&...BNE UT2.4...INC 53280.?...LDA #9. M...STA PAUSE.Y.D.UT2 PLA.A.N.TAY.I.X.PL A.Q...TAX.Y...PLA.....RTI.....;.....; HU VUD PROGRAM F\R BER[KNING AV.D...; . RUT IN.STR[NGAR..J...;.U.(.F7 SEI...2.LDA #$ 04...<.STA SCREEN.1...F.LDA #$00...P.STA SCREEN...Z.LDY #18./.D.LOOP1 STA 682,Y. 7.N.DEY.E.X.BNE LOOP1.R...LDA #255._...S TA COL..E...;.S. .LDA 53280.....STA TEMP .....LDA 53281.....STA TEMP.1...H.;.E.R. ; INSTALERA IRQ.RUTIN 'FLASH'.K...;.Z... LDA #.IRQ2.....STA $0314.....LDA #.IRQ2. ....STA $0315.....LDA 53265...... #239., .".STA 53265.4.,.CLI.:.6.;.^.@.; INSTALE RA NY WARM.START VEK.R.D.J.;.T.T.LDA #.W ARM1...^.STA $0302...H.LDA #.WARM1. .R.S TA $0303...|.;.D...; B\RJA MED BER[KNING ARNA.J...;.....JSR .; F\RSTA STR[NGEN... ..LDA #0.....JSR PLACE.....LDA #32...B.S TA $0201.#.L.LDA #4...V.STA $F.9...STX $ B.U...JMP .; ANROPA ROM.RUTIN.J...WARM1 LDA #.WARM.X...STA $0302.....LDA #.WARM. ....STA $0303.....LDA #153.....STA .KEN. ....LDX #0.W...LDA #147; KOD F\R ..HOME. ....JSR PLACE.....LDA 53272.....CMP #22. ..&.BCS FRAM.&.0.LDA #14; KOD GEMENER.4 .:.BNE FRAM2.T.D.FRAM LDA #142; KOD VERS ALER.H.N.FRAM2 JSR PLACE...X.JSR NEXXT; KOLLA .MMA RADER...B.LDA ANTAL...L.CMP # 255...V.BNE FRAM3.R...JMP .; HOPPA TILL AVSLUTNING.....FRAM3 LDA ANTAL.....BEQ S OL.G.....JSR DOWN.....LDA #34.....JSR PL ACE.)...JSR COUNT.7.F.JSR MEM.Y.K.P.SOL. G LDA ANTAL.W.Z.STA RAD.H...NYRAD LDA #0 .W...STA KOLUMN.....JSR CALCULATE; BER[K NA CUR. ADRESS.B...CLC; BER[KNA .SITI. I F[RGGRIDD.Q...LDA SCREEN.....ADC #.D.F. .. .STA COCART...*.LDA SCREEN.1...4.ADC #.D.F...>.STA COCART.1.+.H.JSR FIND.6.R. LDX #0.G.\.NYKOL LDY #0.V.F.STA KOLUMN.I .P.LDA (SCREEN),Y.X.Z.STA TECKEN.....CMP #32.....BEQ SKUTT.....LDA (COCART),Y... ..CMP COL......BEQ SKUTT.M...STA COL.... ..JSR COLOUR...J.JSR PLACE...T.SKUTT JSR CHAR.....JSR PLACE.*...CPX #71; [R BUFF ERTEN FULL.6...BCS NIX.O...LDA #34; CITA TTECKEN.]...JSR PLACE.S...LDA #59; SEMIK OL......JSR PLACE...$.JSR COUNT.....JSR MEM.Y...8.NIX INC KOLUMN...B.LDY KOLUMN. M.L.CPY SISTA...V.BNE NYKOL; UPP TILL NY KOLUMN...`.LDA SCREEN.1:STA TEMP.1.#.J. LDA SCREEN:STA TEMP.+.T.CLC.7.~.ADC #40. F...STA SCREEN.W...LDA SCREEN.1.B...ADC #0.S...STA SCREEN.1.....JSR NEXXT.....LD A ANTAL...D.CMP #255; [R SISTA RADEN N]D D.M.N.BEQ .; HOPP TILL AVSLUT...X.LDA TE MP:STA SCREEN.....LDA TEMP.1:STA SCREEN. ....JSR DOWN.%...LDA #34; CITATTECKEN.3. ..JSR PLACE.R...LDA SISTA; [R RADEN "FUL L".^...CMP #39.M...BNE SKUTT9...(.LDA #5 9; SEMIKOL....2.JSR PLACE...<.SKUTT9 JSR COUNT...F.JSR MEM.Y...P.CLC.H.Z.LDA RAD .V.D.ADC ANTAL...N.STA RAD...X.INC RAD.. ...JMP NYRAD.....;.#...; N[R HELLA SK[RM EN [R KLAR..). .;.D.... LDA #19; HOME TE CKEN.R...JSR PLACE.L...LDA #34; CITAT TE CKEN.Z.H.JSR PLACE...R.LDA #59; SEMIKOL. .....JSR PLACE.....JSR COUNT.....JSR MEM .Y.B...BRK.N....FILE ....
> CLICK IMAGE PREVIEW FOR FULL MODAL