MORSETR.SRC
FILE INFORMATION
FILENAME(S): MORSETR.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
340776c009ccedec14bbca58aa54ff40793c95d3e7a13645fc005d7736dfcbea
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | MORSETR.SRC | PRG | Curtcool, Bo | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 14 00 9E 33 36 38 36 34 00 18 08 1E |.......36864....|
00000010: 00 2E 4F 50 54 20 4F 4F 00 3A 08 28 00 3B 20 20 |..OPT OO.:.(.; |
00000020: 4F 53 43 49 4C 4C 4F 53 43 4F 50 45 20 AD 20 4D |OSCILLOSCOPE . M|
00000030: B0 53 45 54 52 41 45 4E 45 52 00 40 08 32 00 3B |.SETRAENER.@.2.;|
00000040: 00 65 08 3C 00 3B 49 44 45 27 20 37 33 20 4D 41 |.e.<.;IDE' 73 MA|
00000050: 47 41 BF 45 20 4E 4F 56 20 31 39 38 34 20 53 49 |GA.E NOV 1984 SI|
00000060: 44 45 20 36 34 00 84 08 46 00 3B 41 80 52 45 54 |DE 64...F.;A.RET|
00000070: 20 46 52 41 20 56 49 43 AB 32 30 20 54 49 4C 20 | FRA VIC.20 TIL |
00000080: 43 AB 36 34 00 A1 08 50 00 3B 41 46 20 4F 5A 31 |C.64...P.;AF OZ1|
00000090: 42 4D 57 20 4A 41 4E 20 52 41 53 4D 55 53 53 45 |BMW JAN RASMUSSE|
000000A0: 4E 00 B3 08 5A 00 3B 20 30 31 20 4D 41 4A 20 31 |N...Z.; 01 MAJ 1|
000000B0: 39 38 35 00 B9 08 64 00 3B 00 E1 08 6E 00 3B 56 |985...d.;...n.;V|
000000C0: 49 53 45 52 20 4F 4D 20 44 45 52 20 45 52 20 48 |ISER OM DER ER H|
000000D0: 49 47 48 20 45 4C 4C 45 52 20 4C 4F 57 20 50 41 |IGH ELLER LOW PA|
000000E0: 41 00 FE 08 78 00 3B 42 45 4E 20 4C 20 50 41 41 |A...x.;BEN L PAA|
000000F0: 20 55 53 45 52 50 B0 54 20 28 50 42 37 29 00 22 | USERP.T (PB7)."|
00000100: 09 82 00 3B 4C 4F 57 20 4D 45 44 46 30 52 45 52 |...;LOW MEDF0RER|
00000110: 20 45 4E 20 53 54 52 45 47 20 53 41 4D 54 20 A4 | EN STREG SAMT .|
00000120: 4E 45 00 45 09 8C 00 3B 48 41 53 54 49 47 48 45 |NE.E...;HASTIGHE|
00000130: 44 45 4E 20 4F 56 45 52 20 53 4B 41 45 52 4D 45 |DEN OVER SKAERME|
00000140: 4E 20 4B 41 4E 00 68 09 96 00 3B 41 80 52 45 53 |N KAN.h...;A.RES|
00000150: 20 56 45 44 20 41 54 20 54 52 59 4B 4B 45 20 81 | VED AT TRYKKE .|
00000160: 53 4B 45 4C 4C 49 47 45 00 8C 09 A0 00 3B 54 41 |SKELLIGE.....;TA|
00000170: 53 54 45 52 2C 20 C6 49 49 20 56 41 45 52 44 49 |STER, .II VAERDI|
00000180: 45 4E 20 41 46 20 54 41 53 54 45 4E 00 A8 09 AA |EN AF TASTEN....|
00000190: 00 3B 42 45 53 54 45 4D 4D 45 52 20 48 41 53 54 |.;BESTEMMER HAST|
000001A0: 49 47 48 45 44 45 4E 2C 00 C3 09 B4 00 3B 8E B2 |IGHEDEN,.....;..|
000001B0: 48 55 52 54 49 47 54 2C 20 5A B2 4C 41 4E 47 53 |HURTIGT, Z.LANGS|
000001C0: 4F 4D 54 00 C9 09 BE 00 3B 00 DF 09 C8 00 3B 20 |OMT.....;.....; |
000001D0: 20 46 41 53 54 45 20 56 41 45 52 44 49 45 52 00 | FASTE VAERDIER.|
000001E0: E5 09 D2 00 3B 00 19 0A DC 00 43 48 41 52 47 45 |....;.....CHARGE|
000001F0: 4E 20 20 B2 20 24 33 38 30 30 20 20 20 20 20 20 |N . $3800 |
00000200: 20 20 3B 20 4E 59 20 53 54 41 52 54 41 44 52 20 | ; NY STARTADR |
00000210: 81 20 43 48 41 52 47 45 4E 00 4F 0A E6 00 43 32 |. CHARGEN.O...C2|
00000220: 44 44 52 42 20 20 20 B2 20 24 44 44 30 33 20 20 |DDRB . $DD03 |
00000230: 20 20 20 20 20 20 3B 20 83 20 44 49 52 45 43 54 | ; . DIRECT|
00000240: 49 4F 4E 53 20 52 45 47 49 53 54 45 52 20 42 00 |IONS REGISTER B.|
00000250: 76 0A F0 00 43 49 32 50 52 42 20 20 20 B2 20 24 |v...CI2PRB . $|
00000260: 44 44 30 31 20 20 20 20 20 20 20 20 3B 20 83 20 |DD01 ; . |
00000270: 50 4F 52 54 20 42 00 AC 0A FA 00 56 4D 43 53 42 |PORT B.....VMCSB|
00000280: 20 20 20 20 B2 20 24 44 30 31 38 20 20 20 20 20 | . $D018 |
00000290: 20 20 20 3B 20 56 49 43 20 4D 45 4D B0 59 20 9A | ; VIC MEM.Y .|
000002A0: 52 4F 4C 20 52 45 47 49 53 54 45 52 00 CF 0A 04 |ROL REGISTER....|
000002B0: 01 53 43 4E 4B 45 59 20 20 20 B2 20 24 46 46 39 |.SCNKEY . $FF9|
000002C0: 46 20 20 20 20 20 20 20 20 3B 20 45 41 38 37 00 |F ; EA87.|
000002D0: F0 0A 0E 01 A1 49 4E 20 20 20 20 B2 20 24 46 46 |.....IN . $FF|
000002E0: 45 34 20 20 20 20 20 20 20 20 3B 20 46 31 33 45 |E4 ; F13E|
000002F0: 00 05 0B 18 01 43 48 52 4F 55 54 20 20 20 B2 20 |.....CHROUT . |
00000300: 24 46 46 44 32 00 23 0B 22 01 4C 41 53 54 43 48 |$FFD2.#.".LASTCH|
00000310: 41 52 20 B2 20 43 48 41 52 47 45 4E AA 28 33 31 |AR . CHARGEN.(31|
00000320: AC 38 29 00 37 0B 2C 01 A4 4E 45 20 20 20 20 20 |.8).7.,..NE |
00000330: B2 20 35 34 32 37 36 00 5B 0B 36 01 54 41 80 20 |. 54276.[.6.TA. |
00000340: 20 20 20 B2 20 25 30 30 31 30 30 31 30 31 20 20 | . %00100101 |
00000350: 20 20 3B 20 54 41 80 20 4C 59 44 00 83 0B 40 01 | ; TA. LYD...@.|
00000360: 53 4C 55 4B 20 20 20 20 20 B2 20 25 30 30 30 30 |SLUK . %0000|
00000370: 30 30 30 30 20 20 20 20 3B 20 53 4C 55 4B 20 20 |0000 ; SLUK |
00000380: 4C 59 44 00 89 0B 4A 01 3B 00 A8 0B 54 01 AC B2 |LYD...J.;...T...|
00000390: 20 24 43 30 30 30 20 20 20 20 20 20 20 20 3B 20 | $C000 ; |
000003A0: 53 54 41 52 54 41 44 52 00 AE 0B 5E 01 3B 00 CE |STARTADR...^.;..|
000003B0: 0B 68 01 3B 20 20 53 4B 52 49 56 20 54 45 4B 53 |.h.; SKRIV TEKS|
000003C0: 54 20 50 41 41 20 53 4B 41 45 52 4D 45 4E 00 D4 |T PAA SKAERMEN..|
000003D0: 0B 72 01 3B 00 F7 0B 7C 01 4C 44 59 20 23 24 30 |.r.;...|.LDY #$0|
000003E0: 30 20 20 20 20 20 20 20 20 20 20 3B 43 4C 45 41 |0 ;CLEA|
000003F0: 52 20 59 AB 52 45 47 00 24 0C 86 01 53 4B 52 49 |R Y.REG.$...SKRI|
00000400: 56 20 4C 44 41 20 54 45 4B 53 54 2C 59 20 20 20 |V LDA TEKST,Y |
00000410: 20 20 20 20 3B 48 45 4E 54 20 45 54 20 42 4F 47 | ;HENT ET BOG|
00000420: 53 54 41 56 00 45 0C 90 01 4A 53 52 20 43 48 52 |STAV.E...JSR CHR|
00000430: 4F 55 54 20 20 20 20 20 20 20 20 3B 53 4B 52 49 |OUT ;SKRI|
00000440: 56 20 44 45 54 00 4D 0C 9A 01 49 4E 59 00 7A 0C |V DET.M...INY.z.|
00000450: A4 01 43 50 59 20 23 34 39 20 20 20 20 20 20 20 |..CPY #49 |
00000460: 20 20 20 20 3B 48 41 52 20 56 49 20 48 45 4E 54 | ;HAR VI HENT|
00000470: 45 54 20 34 39 20 43 48 41 52 00 88 0C AE 01 42 |ET 49 CHAR.....B|
00000480: 4E 45 20 53 4B 52 49 56 00 8E 0C B8 01 3B 00 A6 |NE SKRIV.....;..|
00000490: 0C C2 01 3B 20 20 53 41 45 54 20 50 B0 54 20 42 |...; SAET P.T B|
000004A0: 20 54 49 4C 20 85 00 AC 0C CC 01 3B 00 B9 0C D6 | TIL ......;....|
000004B0: 01 4C 44 41 20 23 24 30 30 00 C8 0C E0 01 53 54 |.LDA #$00.....ST|
000004C0: 41 20 43 32 44 44 52 42 00 CE 0C EA 01 3B 00 F1 |A C2DDRB.....;..|
000004D0: 0C F4 01 3B 20 20 43 4C 45 41 52 20 4E 59 20 43 |...; CLEAR NY C|
000004E0: 48 41 52 41 4B 54 45 52 20 47 45 4E 45 52 41 A4 |HARAKTER GENERA.|
000004F0: 52 00 F7 0C FE 01 3B 00 04 0D 08 02 4C 44 59 20 |R.....;.....LDY |
00000500: 23 24 30 30 00 11 0D 12 02 4C 44 41 20 23 24 30 |#$00.....LDA #$0|
00000510: 30 00 29 0D 1C 02 43 4C 45 41 52 20 53 54 41 20 |0.)...CLEAR STA |
00000520: 43 48 41 52 47 45 4E 2C 59 00 40 0D 26 02 53 54 |CHARGEN,Y.@.&.ST|
00000530: 41 20 43 48 41 52 47 45 4E AA 24 31 30 30 2C 59 |A CHARGEN.$100,Y|
00000540: 00 57 0D 30 02 53 54 41 20 43 48 41 52 47 45 4E |.W.0.STA CHARGEN|
00000550: AA 24 32 30 30 2C 59 00 6E 0D 3A 02 53 54 41 20 |.$200,Y.n.:.STA |
00000560: 43 48 41 52 47 45 4E AA 24 33 30 30 2C 59 00 85 |CHARGEN.$300,Y..|
00000570: 0D 44 02 53 54 41 20 43 48 41 52 47 45 4E AA 24 |.D.STA CHARGEN.$|
00000580: 34 30 30 2C 59 00 9C 0D 4E 02 53 54 41 20 43 48 |400,Y...N.STA CH|
00000590: 41 52 47 45 4E AA 24 35 30 30 2C 59 00 B3 0D 58 |ARGEN.$500,Y...X|
000005A0: 02 53 54 41 20 43 48 41 52 47 45 4E AA 24 36 30 |.STA CHARGEN.$60|
000005B0: 30 2C 59 00 CA 0D 62 02 53 54 41 20 43 48 41 52 |0,Y...b.STA CHAR|
000005C0: 47 45 4E AA 24 37 30 30 2C 59 00 D2 0D 6C 02 49 |GEN.$700,Y...l.I|
000005D0: 4E 59 00 E0 0D 76 02 42 4E 45 20 43 4C 45 41 52 |NY...v.BNE CLEAR|
000005E0: 00 E6 0D 80 02 3B 00 0C 0E 8A 02 3B 20 20 46 4C |.....;.....; FL|
000005F0: 59 54 20 43 48 41 52 47 45 4E 2E 20 50 4F B5 45 |YT CHARGEN. PO.E|
00000600: 52 20 20 54 49 4C 20 24 33 38 30 30 00 12 0E 94 |R TIL $3800....|
00000610: 02 3B 00 20 0E 9E 02 4C 44 41 20 56 4D 43 53 42 |.;. ...LDA VMCSB|
00000620: 00 2C 0E A8 02 B0 41 20 23 24 30 45 00 3A 0E B2 |.,....A #$0E.:..|
00000630: 02 53 54 41 20 56 4D 43 53 42 00 40 0E BC 02 3B |.STA VMCSB.@...;|
00000640: 00 57 0E C6 02 3B 20 20 49 4E 49 54 20 53 4F 55 |.W...; INIT SOU|
00000650: 4E 44 20 43 48 49 50 00 5D 0E D0 02 3B 00 6A 0E |ND CHIP.]...;.j.|
00000660: DA 02 4C 44 41 20 23 24 30 46 00 90 0E E4 02 53 |..LDA #$0F.....S|
00000670: 54 41 20 35 34 32 39 36 20 20 20 20 20 20 3B 20 |TA 54296 ; |
00000680: 46 49 4C 54 45 52 20 20 AD 20 56 4F 4C 55 4D 45 |FILTER . VOLUME|
00000690: 00 9D 0E EE 02 4C 44 41 20 23 32 31 35 00 C3 0E |.....LDA #215...|
000006A0: F8 02 53 54 41 20 35 34 32 37 32 20 20 20 20 20 |..STA 54272 |
000006B0: 20 3B 20 B8 4B 56 45 4E 53 20 4C 4F 57 20 20 42 | ; .KVENS LOW B|
000006C0: 59 54 45 00 CF 0E 02 03 4C 44 41 20 23 32 38 00 |YTE.....LDA #28.|
000006D0: F5 0E 0C 03 53 54 41 20 35 34 32 37 33 20 20 20 |....STA 54273 |
000006E0: 20 20 20 3B 20 B8 4B 56 45 4E 53 20 48 49 47 48 | ; .KVENS HIGH|
000006F0: 20 42 59 54 45 00 02 0F 16 03 4C 44 41 20 23 24 | BYTE.....LDA #$|
00000700: 30 39 00 27 0F 20 03 53 54 41 20 35 34 32 37 37 |09.'. .STA 54277|
00000710: 20 20 20 20 20 20 3B 20 41 54 54 41 43 4B 20 20 | ; ATTACK |
00000720: AD 20 44 45 43 41 59 00 34 0F 2A 03 4C 44 41 20 |. DECAY.4.*.LDA |
00000730: 23 24 46 32 00 5B 0F 34 03 53 54 41 20 35 34 32 |#$F2.[.4.STA 542|
00000740: 37 38 20 20 20 20 20 20 3B 20 53 55 53 54 41 49 |78 ; SUSTAI|
00000750: 4E 20 AD 20 52 45 4C 45 41 53 45 00 61 0F 3E 03 |N . RELEASE.a.>.|
00000760: 3B 00 7C 0F 48 03 3B 20 20 53 54 41 52 54 20 41 |;.|.H.; START A|
00000770: 46 20 48 4F 56 45 44 4C 30 4B 4B 45 00 82 0F 52 |F HOVEDL0KKE...R|
00000780: 03 3B 00 97 0F 5C 03 42 45 47 49 4E 20 4A 53 52 |.;...\.BEGIN JSR|
00000790: 20 A1 44 45 4C 41 59 00 BF 0F 66 03 4C 44 58 20 | .DELAY...f.LDX |
000007A0: 23 24 30 38 20 20 20 20 20 20 20 20 20 20 20 20 |#$08 |
000007B0: 20 20 3B 53 54 41 52 54 20 4F 46 46 53 45 54 00 | ;START OFFSET.|
000007C0: E9 0F 70 03 4C 44 59 20 23 33 32 20 20 20 20 20 |..p.LDY #32 |
000007D0: 20 20 20 20 20 20 20 20 20 20 3B 33 32 20 43 48 | ;32 CH|
000007E0: 41 52 41 4B 54 45 52 45 52 00 16 10 7A 03 53 54 |ARAKTERER...z.ST|
000007F0: 41 52 54 20 44 45 59 20 20 20 20 20 20 20 20 20 |ART DEY |
00000800: 20 20 20 20 3B 44 45 43 52 20 43 48 41 52 20 54 | ;DECR CHAR T|
00000810: 41 45 4C 4C 45 52 00 27 10 84 03 42 45 51 20 52 |AELLER.'...BEQ R|
00000820: 49 54 45 43 48 41 52 00 52 10 8E 03 4C 44 41 20 |ITECHAR.R...LDA |
00000830: 43 48 41 52 47 45 4E 2C 58 20 20 20 20 20 20 20 |CHARGEN,X |
00000840: 20 20 3B 20 48 45 4E 54 20 43 48 41 52 20 53 50 | ; HENT CHAR SP|
00000850: 45 43 00 5A 10 98 03 43 4C 43 00 88 10 A2 03 52 |EC.Z...CLC.....R|
00000860: 4F 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |OL |
00000870: 20 20 20 20 20 3B 46 4C 59 54 20 4D 53 42 20 54 | ;FLYT MSB T|
00000880: 49 4C 20 43 41 52 52 59 00 B8 10 AC 03 42 43 43 |IL CARRY.....BCC|
00000890: 20 52 45 53 45 54 42 49 54 20 20 20 20 20 20 20 | RESETBIT |
000008A0: 20 20 20 3B 48 4F 50 20 48 56 49 53 20 43 41 52 | ;HOP HVIS CAR|
000008B0: 52 59 20 43 4C 45 41 52 00 CC 10 B6 03 53 45 54 |RY CLEAR.....SET|
000008C0: 42 49 54 20 4A 53 52 20 44 45 43 8F 00 F8 10 C0 |BIT JSR DEC.....|
000008D0: 03 4C 44 41 20 43 48 41 52 47 45 4E 2C 58 20 20 |.LDA CHARGEN,X |
000008E0: 20 20 20 20 20 20 20 3B 54 41 47 20 56 45 4E 53 | ;TAG VENS|
000008F0: 54 52 45 20 43 48 41 52 00 00 11 CA 03 53 45 43 |TRE CHAR.....SEC|
00000900: 00 34 11 D4 03 52 4F 4C 20 20 20 20 20 20 20 20 |.4...ROL |
00000910: 20 20 20 20 20 20 20 20 20 20 20 3B 53 45 54 20 | ;SET |
00000920: 42 49 54 20 30 20 49 20 56 45 4E 53 54 52 45 20 |BIT 0 I VENSTRE |
00000930: 43 48 41 52 00 60 11 DE 03 53 54 41 20 43 48 41 |CHAR.`...STA CHA|
00000940: 52 47 45 4E 2C 58 20 20 20 20 20 20 20 20 20 3B |RGEN,X ;|
00000950: 4F 47 20 53 45 54 20 43 48 41 52 20 49 47 45 4E |OG SET CHAR IGEN|
00000960: 00 6D 11 E8 03 4A 53 52 20 49 4E 43 8F 00 7A 11 |.m...JSR INC..z.|
00000970: F2 03 4A 53 52 20 49 4E 43 8F 00 88 11 FC 03 4A |..JSR INC......J|
00000980: 4D 50 20 53 54 41 52 54 00 9E 11 06 04 52 45 53 |MP START.....RES|
00000990: 45 54 42 49 54 20 4A 53 52 20 44 45 43 8F 00 B0 |ETBIT JSR DEC...|
000009A0: 11 10 04 4C 44 41 20 43 48 41 52 47 45 4E 2C 58 |...LDA CHARGEN,X|
000009B0: 00 B8 11 1A 04 43 4C 43 00 EF 11 24 04 52 4F 4C |.....CLC...$.ROL|
000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009D0: 20 20 20 20 3B 52 45 53 45 54 20 42 49 54 20 30 | ;RESET BIT 0|
000009E0: 20 49 20 56 45 4E 53 54 52 45 20 43 48 41 52 00 | I VENSTRE CHAR.|
000009F0: 18 12 2E 04 53 54 41 20 43 48 41 52 47 45 4E 2C |....STA CHARGEN,|
00000A00: 58 20 20 20 20 20 20 20 20 20 20 3B 4F 47 20 53 |X ;OG S|
00000A10: 4B 52 49 56 20 44 45 4E 00 25 12 38 04 4A 53 52 |KRIV DEN.%.8.JSR|
00000A20: 20 49 4E 43 8F 00 32 12 42 04 4A 53 52 20 49 4E | INC..2.B.JSR IN|
00000A30: 43 8F 00 40 12 4C 04 4A 4D 50 20 53 54 41 52 54 |C..@.L.JMP START|
00000A40: 00 57 12 56 04 52 49 54 45 43 48 41 52 20 4A 53 |.W.V.RITECHAR JS|
00000A50: 52 20 44 45 4C 41 59 00 83 12 60 04 4C 44 41 20 |R DELAY...`.LDA |
00000A60: 43 49 32 50 52 42 20 20 20 20 20 20 20 20 20 20 |CI2PRB |
00000A70: 20 20 20 3B 48 45 4E 54 20 50 B0 54 20 53 49 47 | ;HENT P.T SIG|
00000A80: 4E 41 4C 00 AE 12 6A 04 AF 20 23 24 38 30 20 20 |NAL...j.. #$80 |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 4D 41 | ;MA|
00000AA0: 53 4B 20 42 49 54 20 37 20 28 4D 53 42 29 00 D8 |SK BIT 7 (MSB)..|
00000AB0: 12 74 04 43 4D 50 20 23 24 38 30 20 20 20 20 20 |.t.CMP #$80 |
00000AC0: 20 20 20 20 20 20 20 20 20 20 3B 45 52 20 44 45 | ;ER DE|
00000AD0: 52 20 53 49 47 4E 41 4C 00 E6 12 7E 04 42 45 51 |R SIGNAL...~.BEQ|
00000AE0: 20 52 49 54 45 31 00 11 13 88 04 4C 44 41 20 4C | RITE1.....LDA L|
00000AF0: 41 53 54 43 48 41 52 20 20 20 20 20 20 20 20 20 |ASTCHAR |
00000B00: 20 20 3B 50 49 4E 20 27 4C 27 20 45 52 20 4C 4F | ;PIN 'L' ER LO|
00000B10: 57 00 19 13 92 04 53 45 43 00 21 13 9C 04 52 4F |W.....SEC.!...RO|
00000B20: 4C 00 32 13 A6 04 53 54 41 20 4C 41 53 54 43 48 |L.2...STA LASTCH|
00000B30: 41 52 00 3F 13 B0 04 4C 44 41 20 23 54 41 80 00 |AR.?...LDA #TA..|
00000B40: 62 13 BA 04 53 54 41 20 A4 4E 45 20 20 20 20 20 |b...STA .NE |
00000B50: 20 20 20 20 20 20 20 20 20 20 3B 54 41 80 20 4C | ;TA. L|
00000B60: 59 44 00 70 13 C4 04 4A 4D 50 20 42 45 47 49 4E |YD.p...JMP BEGIN|
00000B70: 00 9C 13 CE 04 52 49 54 45 31 20 4C 44 41 20 4C |.....RITE1 LDA L|
00000B80: 41 53 54 43 48 41 52 20 20 20 20 20 3B 50 49 4E |ASTCHAR ;PIN|
00000B90: 20 27 4C 27 20 45 52 20 48 49 47 48 00 A4 13 D8 | 'L' ER HIGH....|
00000BA0: 04 43 4C 43 00 AC 13 E2 04 52 4F 4C 00 BD 13 EC |.CLC.....ROL....|
00000BB0: 04 53 54 41 20 4C 41 53 54 43 48 41 52 00 CB 13 |.STA LASTCHAR...|
00000BC0: F6 04 4C 44 41 20 23 53 4C 55 4B 00 EF 13 00 05 |..LDA #SLUK.....|
00000BD0: 53 54 41 20 A4 4E 45 20 20 20 20 20 20 20 20 20 |STA .NE |
00000BE0: 20 20 20 20 20 20 3B 53 4C 55 4B 20 4C 59 44 00 | ;SLUK LYD.|
00000BF0: FD 13 0A 05 4A 4D 50 20 42 45 47 49 4E 00 03 14 |....JMP BEGIN...|
00000C00: 14 05 3B 00 10 14 1E 05 44 45 43 8F 20 44 45 58 |..;.....DEC. DEX|
00000C10: 00 18 14 28 05 44 45 58 00 20 14 32 05 44 45 58 |...(.DEX. .2.DEX|
00000C20: 00 28 14 3C 05 44 45 58 00 30 14 46 05 44 45 58 |.(.<.DEX.0.F.DEX|
00000C30: 00 38 14 50 05 44 45 58 00 40 14 5A 05 44 45 58 |.8.P.DEX.@.Z.DEX|
00000C40: 00 48 14 64 05 44 45 58 00 50 14 6E 05 52 54 53 |.H.d.DEX.P.n.RTS|
00000C50: 00 5D 14 78 05 49 4E 43 8F 20 49 4E 58 00 65 14 |.].x.INC. INX.e.|
00000C60: 82 05 49 4E 58 00 6D 14 8C 05 49 4E 58 00 75 14 |..INX.m...INX.u.|
00000C70: 96 05 49 4E 58 00 7D 14 A0 05 49 4E 58 00 85 14 |..INX.}...INX...|
00000C80: AA 05 49 4E 58 00 8D 14 B4 05 49 4E 58 00 95 14 |..INX.....INX...|
00000C90: BE 05 49 4E 58 00 9D 14 C8 05 52 54 53 00 A3 14 |..INX.....RTS...|
00000CA0: D2 05 3B 00 CA 14 DC 05 A1 44 45 4C 41 59 20 4A |..;......DELAY J|
00000CB0: 53 52 20 53 43 4E 4B 45 59 20 20 20 3B 53 43 41 |SR SCNKEY ;SCA|
00000CC0: 4E 20 4B 45 59 42 4F 41 52 44 00 ED 14 E6 05 4A |N KEYBOARD.....J|
00000CD0: 53 52 20 A1 49 4E 20 20 20 20 20 20 20 20 20 20 |SR .IN |
00000CE0: 20 20 20 3B 48 45 4E 54 20 43 48 41 52 00 13 15 | ;HENT CHAR...|
00000CF0: F0 05 43 4D 50 20 23 24 30 30 20 20 20 20 20 20 |..CMP #$00 |
00000D00: 20 20 20 20 20 20 20 20 3B 45 52 20 44 45 54 20 | ;ER DET |
00000D10: 4E 55 4C 00 31 15 FA 05 42 45 51 20 47 54 44 59 |NUL.1...BEQ GTDY|
00000D20: 31 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 4A |1 ;J|
00000D30: 41 00 59 15 04 06 53 54 41 20 44 45 4C 41 59 C5 |A.Y...STA DELAY.|
00000D40: 20 20 20 20 20 20 20 20 20 20 3B 45 4C 4C 45 52 | ;ELLER|
00000D50: 53 20 47 45 4D 20 44 45 4E 00 67 15 0E 06 47 54 |S GEM DEN.g...GT|
00000D60: 44 59 31 20 52 54 53 00 6D 15 18 06 3B 00 7F 15 |DY1 RTS.m...;...|
00000D70: 22 06 3B 20 20 50 41 55 53 45 20 4C 4F 4F 50 00 |".; PAUSE LOOP.|
00000D80: 85 15 2C 06 3B 00 AD 15 36 06 44 45 4C 41 59 20 |..,.;...6.DELAY |
00000D90: 54 58 41 20 20 20 20 20 20 20 20 20 20 20 20 20 |TXA |
00000DA0: 3B 46 4C 59 54 20 58 20 54 49 4C 20 41 00 D2 15 |;FLYT X TIL A...|
00000DB0: 40 06 50 48 41 20 20 20 20 20 20 20 20 20 20 20 |@.PHA |
00000DC0: 20 20 20 20 20 20 20 20 3B 47 45 4D 20 41 20 28 | ;GEM A (|
00000DD0: 58 29 00 FA 15 4A 06 54 59 41 20 20 20 20 20 20 |X)...J.TYA |
00000DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 46 4C | ;FL|
00000DF0: 59 54 20 59 20 54 49 4C 20 41 00 1F 16 54 06 50 |YT Y TIL A...T.P|
00000E00: 48 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |HA |
00000E10: 20 20 20 20 20 3B 47 45 4D 20 41 20 28 59 29 00 | ;GEM A (Y).|
00000E20: 50 16 5E 06 4C 44 58 20 44 45 4C 41 59 C5 20 20 |P.^.LDX DELAY. |
00000E30: 20 20 20 20 20 20 20 20 3B 48 45 4E 54 20 44 45 | ;HENT DE|
00000E40: 4C 41 59 20 56 41 45 52 44 49 20 54 49 4C 20 58 |LAY VAERDI TIL X|
00000E50: 00 7B 16 68 06 44 45 4C 59 31 20 4C 44 59 20 23 |.{.h.DELY1 LDY #|
00000E60: 24 46 46 20 20 20 20 20 20 20 20 3B 49 4E 49 54 |$FF ;INIT|
00000E70: 20 59 20 52 45 47 49 53 54 45 52 00 89 16 72 06 | Y REGISTER...r.|
00000E80: 44 45 4C 59 32 20 44 45 59 00 97 16 7C 06 42 4E |DELY2 DEY...|.BN|
00000E90: 45 20 44 45 4C 59 32 00 9F 16 86 06 44 45 58 00 |E DELY2.....DEX.|
00000EA0: AD 16 90 06 42 4E 45 20 44 45 4C 59 31 00 D0 16 |....BNE DELY1...|
00000EB0: 9A 06 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 |..PLA |
00000EC0: 20 20 20 20 20 20 20 3B 48 45 4E 54 20 28 59 29 | ;HENT (Y)|
00000ED0: 00 D8 16 A4 06 54 41 59 00 FB 16 AE 06 50 4C 41 |.....TAY.....PLA|
00000EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EF0: 20 20 3B 48 45 4E 54 20 28 58 29 00 03 17 B8 06 | ;HENT (X).....|
00000F00: 54 41 58 00 0B 17 C2 06 52 54 53 00 11 17 CC 06 |TAX.....RTS.....|
00000F10: 3B 00 36 17 D6 06 44 45 4C 41 59 C5 20 2E 42 59 |;.6...DELAY. .BY|
00000F20: 54 20 24 31 30 20 20 20 20 3B 44 45 4C 41 59 20 |T $10 ;DELAY |
00000F30: 56 41 45 52 44 49 00 3C 17 E0 06 3B 00 5C 17 EA |VAERDI.<...;.\..|
00000F40: 06 3B 20 20 54 45 4B 53 54 20 54 49 4C 20 4F 50 |.; TEKST TIL OP|
00000F50: 53 54 41 52 54 20 42 49 4C 4C 45 44 00 62 17 F4 |START BILLED.b..|
00000F60: 06 3B 00 83 17 FE 06 54 45 4B 53 54 20 2E 42 59 |.;.....TEKST .BY|
00000F70: 54 20 31 34 37 20 20 20 20 20 20 20 3B 9C 20 48 |T 147 ;. H|
00000F80: 4F 4D 45 00 A8 17 08 07 2E 42 59 54 20 31 37 2C |OME......BYT 17,|
00000F90: 31 37 2C 31 37 2C 31 37 2C 31 37 20 20 3B 43 55 |17,17,17,17 ;CU|
00000FA0: 52 53 B0 20 44 4F 57 4E 00 C0 17 12 07 2E 42 59 |RS. DOWN......BY|
00000FB0: 54 20 31 37 2C 31 37 2C 31 37 2C 31 37 2C 31 37 |T 17,17,17,17,17|
00000FC0: 00 CF 17 1C 07 2E 42 59 54 20 31 37 2C 31 37 00 |......BYT 17,17.|
00000FD0: EC 17 26 07 2E 42 59 54 20 24 32 30 2C 24 32 30 |..&..BYT $20,$20|
00000FE0: 2C 24 32 30 2C 24 32 30 2C 24 34 30 00 0F 18 30 |,$20,$20,$40...0|
00000FF0: 07 2E C6 20 22 41 42 43 44 45 46 47 48 49 4A 4B |... "ABCDEFGHIJK|
00001000: 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 00 |LMNOPQRSTUVWXYZ.|
00001010: 2C 18 3A 07 2E 42 59 54 20 24 35 42 2C 24 35 43 |,.:..BYT $5B,$5C|
00001020: 2C 24 35 44 2C 24 35 45 2C 24 35 46 00 33 18 44 |,$5D,$5E,$5F.3.D|
00001030: 07 2E 80 00 52 18 4E 07 9E 34 39 31 35 32 20 3A |....R.N..49152 :|
00001040: 8F 20 53 54 41 52 54 20 50 52 4F 47 52 41 4D 4D |. START PROGRAMM|
00001050: 45 54 00 00 00 |ET... |
.......36864......OPT OO.:.(.; OSCILLOS
COPE . M.SETRAENER.@.2.;.E.<.;IDE' 73 MA
GA.E NOV 1984 SIDE 64...F.;A.RET FRA VIC
.20 TIL C.64...P.;AF OZ1BMW JAN RASMUSSE
N...Z.; 01 MAJ 1985...D.;...N.;VISER OM
DER ER HIGH ELLER LOW PAA...X.;BEN L PAA
USERP.T (PB7)."...;LOW MEDF0RER EN STRE
G SAMT .NE.E...;HASTIGHEDEN OVER SKAERME
N KAN.H...;A.RES VED AT TRYKKE .SKELLIGE
... .;TASTER, FII VAERDIEN AF TASTEN....
.;BESTEMMER HASTIGHEDEN,.C...;..HURTIGT,
Z.LANGSOMT.I...;...H.; FASTE VAERDIER.
..R.;.....CHARGEN . $3800 ; NY S
TARTADR . CHARGEN.O...C2DDRB . $DD03
; . DIRECTIONS REGISTER B.V...CI2P
RB . $DD01 ; . PORT B.....VMCSB
. $D018 ; VIC MEM.Y .ROL REGI
STER.O...SCNKEY . $FF9F ; EA87.
.....IN . $FFE4 ; F13E.....CHR
OUT . $FFD2.#.".LASTCHAR . CHARGEN.(31
.8).7.,..NE . 54276.[.6.TA. . %00
100101 ; TA. LYD...@.SLUK . %0000
0000 ; SLUK LYD...J.;...T... $C000
; STARTADR...^.;.N.H.; SKRIV TEKS
T PAA SKAERMEN.T.R.;...|.LDY #$00
;CLEAR Y.REG.$...SKRIV LDA TEKST,Y
;HENT ET BOGSTAV.E...JSR CHROUT
;SKRIV DET.M...INY.Z...CPY #49
;HAR VI HENTET 49 CHAR.....BNE SKRIV
.....;...B.; SAET P.T B TIL ....L.;...V
.LDA #$00.H...STA C2DDRB.N...;.....; CL
EAR NY CHARAKTER GENERA.R.....;.....LDY
#$00.....LDA #$00.)...CLEAR STA CHARGEN,
Y.@.&.STA CHARGEN.$100,Y.W.0.STA CHARGEN
.$200,Y.N.:.STA CHARGEN.$300,Y...D.STA C
HARGEN.$400,Y...N.STA CHARGEN.$500,Y...X
.STA CHARGEN.$600,Y.J.B.STA CHARGEN.$700
,Y.R.L.INY...V.BNE CLEAR.....;.....; FL
YT CHARGEN. PO.ER TIL $3800.....;. ...L
DA VMCSB.,....A #$0E.:...STA VMCSB.@...;
.W.F.; INIT SOUND CHIP.].P.;.J.Z.LDA #$
0F.....STA 54296 ; FILTER . VOLUME
.....LDA #215.C...STA 54272 ; .KVEN
S LOW BYTE.O...LDA #28.....STA 54273
; .KVENS HIGH BYTE.....LDA #$09.'. .S
TA 54277 ; ATTACK . DECAY.4.*.LDA
#$F2.[.4.STA 54278 ; SUSTAIN . RELE
ASE.A.>.;.|.H.; START AF HOVEDL0KKE...R
.;...\.BEGIN JSR .DELAY...F.LDX #$08
;START OFFSET...P.LDY #32
;32 CHARAKTERER...Z.START DEY
;DECR CHAR TAELLER.'...BEQ R
ITECHAR.R...LDA CHARGEN,X ; HENT
CHAR SPEC.Z...CLC.....ROL
;FLYT MSB TIL CARRY.....BCC RESETBI
T ;HOP HVIS CARRY CLEAR.L...SET
BIT JSR DEC......LDA CHARGEN,X ;
TAG VENSTRE CHAR...J.SEC.4.T.ROL
;SET BIT 0 I VENSTRE CHAR.`..
.STA CHARGEN,X ;OG SET CHAR IGEN
.M...JSR INC..Z...JSR INC......JMP START
.....RESETBIT JSR DEC......LDA CHARGEN,X
.....CLC...$.ROL ;RES
ET BIT 0 I VENSTRE CHAR.....STA CHARGEN,
X ;OG SKRIV DEN.%.8.JSR INC..2.
B.JSR INC..@.L.JMP START.W.V.RITECHAR JS
R DELAY...`.LDA CI2PRB ;HENT
P.T SIGNAL...J.. #$80 ;MA
SK BIT 7 (MSB).X.T.CMP #$80
;ER DER SIGNAL...~.BEQ RITE1.....LDA L
ASTCHAR ;PIN 'L' ER LOW.....SE
C.!...ROL.2...STA LASTCHAR.?...LDA #TA..
B...STA .NE ;TA. LYD.P.D.J
MP BEGIN...N.RITE1 LDA LASTCHAR ;PIN
'L' ER HIGH...X.CLC.....ROL.....STA LAS
TCHAR.K...LDA #SLUK.....STA .NE
;SLUK LYD.....JMP BEGIN.....;.....
DEC. DEX...(.DEX. .2.DEX.(.<.DEX.0.F.DEX
.8.P.DEX.@.Z.DEX.H.D.DEX.P.N.RTS.].X.INC
. INX.E...INX.M...INX.U...INX.}. .INX...
..INX.....INX.....INX...H.RTS...R.;.J...
.DELAY JSR SCNKEY ;SCAN KEYBOARD.....J
SR .IN ;HENT CHAR.....CMP #$
00 ;ER DET NUL.1...BEQ GTDY
1 ;JA.Y...STA DELAYE
;ELLERS GEM DEN.G...GTDY1 RTS.M...;..
".; PAUSE LOOP...,.;...6.DELAY TXA
;FLYT X TIL A.R.@.PHA
;GEM A (X)...J.TYA
;FLYT Y TIL A...T.PHA
;GEM A (Y).P.^.LDX DELAYE
;HENT DELAY VAERDI TIL X.{.H.DELY1 LDY #
$FF ;INIT Y REGISTER...R.DELY2 DE
Y...|.BNE DELY2.....DEX.....BNE DELY1.P.
..PLA ;HENT (Y).X...TAY
.....PLA ;HENT (X).....
TAX...B.RTS...L.;.6.V.DELAYE .BYT $10
;DELAY VAERDI.<...;.\...; TEKST TIL OP
START BILLED.B...;.....TEKST .BYT 147
;. HOME......BYT 17,17,17,17,17 ;CU
RS. DOWN......BYT 17,17,17,17,17.O....BY
T 17,17...&..BYT $20,$20,$20,$20,$40...0
..F "ABCDEFGHIJKLMNOPQRSTUVWXYZ.,.:..BYT
$5B,$5C,$5D,$5E,$5F.3.D....R.N..49152 :
. START PROGRAMMET...
> CLICK IMAGE PREVIEW FOR FULL MODAL