MAIN
FILE INFORMATION
FILENAME(S): MAIN
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-12-01 01:08:51
APPEARS ON: 1 disk(s)
FILE HASH
f33b43686481e4ba25cc1bb45bc1d50bc2e86cb31b7b58762d237d45aabe8e08
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLER FILER | MAIN | PRG | hedning, loot | 16 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 3B 20 4D 41 49 4E 2E 00 2E 08 |....d.; MAIN....|
00000010: 6E 00 3B 20 48 55 56 55 44 20 50 52 4F 47 52 41 |n.; HUVUD PROGRA|
00000020: 4D 20 4D 45 44 20 55 54 53 4B 52 8B 54 2E 00 34 |M MED UTSKR.T..4|
00000030: 08 78 00 3B 00 3C 08 7D 00 53 45 49 00 47 08 82 |.x.;.<.}.SEI.G..|
00000040: 00 4C 44 41 20 23 30 00 56 08 8C 00 53 54 41 20 |.LDA #0.V...STA |
00000050: 54 45 43 4B 45 4E 00 6A 08 96 00 4E 59 54 45 43 |TECKEN.j...NYTEC|
00000060: 4B 45 4E 20 4C 44 41 20 23 30 00 74 08 A0 00 53 |KEN LDA #0.t...S|
00000070: 54 41 20 49 00 84 08 AA 00 4D B0 45 49 20 4C 44 |TA I.....M.EI LD|
00000080: 41 20 23 30 00 8E 08 B4 00 53 54 41 20 4A 00 9B |A #0.....STA J..|
00000090: 08 BE 00 4C 44 41 20 23 31 32 38 00 AA 08 C8 00 |...LDA #128.....|
000000A0: 53 54 41 20 53 55 4D 4D 41 31 00 B9 08 D2 00 53 |STA SUMMA1.....S|
000000B0: 54 41 20 53 55 4D 4D 41 32 00 C9 08 DC 00 4D B0 |TA SUMMA2.....M.|
000000C0: 45 4A 20 4C 44 41 20 23 30 00 ED 08 E6 00 53 54 |EJ LDA #0.....ST|
000000D0: 41 20 35 36 33 33 34 3B 20 54 55 52 4E 20 4F 46 |A 56334; TURN OF|
000000E0: 46 20 43 42 4D 20 B5 45 52 52 55 50 54 00 F9 08 |F CBM .ERRUPT...|
000000F0: F0 00 4C 44 41 20 23 35 31 00 22 09 FA 00 53 54 |..LDA #51."...ST|
00000100: 41 20 24 30 31 3B 20 53 57 49 54 43 48 20 4F 55 |A $01; SWITCH OU|
00000110: 54 20 49 AD 4F 2C 49 4E 20 43 48 41 52 2E 20 52 |T I.O,IN CHAR. R|
00000120: 4F 4D 00 28 09 FF 00 3B 00 51 09 04 01 4C 44 41 |OM.(...;.Q...LDA|
00000130: 20 23 30 3B 20 42 45 52 5B 4B 4E 41 20 54 45 43 | #0; BER[KNA TEC|
00000140: 4B 45 4E AC 38 20 B2 B1 20 52 45 53 55 4C 54 41 |KEN.8 .. RESULTA|
00000150: 54 00 64 09 0E 01 53 54 41 20 52 45 53 55 4C 54 |T.d...STA RESULT|
00000160: 41 54 AA 31 00 73 09 18 01 4C 44 41 20 54 45 43 |AT.1.s...LDA TEC|
00000170: 4B 45 4E 00 84 09 22 01 53 54 41 20 52 45 53 55 |KEN...".STA RESU|
00000180: 4C 54 41 54 00 95 09 2C 01 41 53 4C 20 52 45 53 |LTAT...,.ASL RES|
00000190: 55 4C 54 41 54 00 A8 09 36 01 52 4F 4C 20 52 45 |ULTAT...6.ROL RE|
000001A0: 53 55 4C 54 41 54 AA 31 00 B9 09 40 01 41 53 4C |SULTAT.1...@.ASL|
000001B0: 20 52 45 53 55 4C 54 41 54 00 CC 09 4A 01 52 4F | RESULTAT...J.RO|
000001C0: 4C 20 52 45 53 55 4C 54 41 54 AA 31 00 DD 09 54 |L RESULTAT.1...T|
000001D0: 01 41 53 4C 20 52 45 53 55 4C 54 41 54 00 F8 09 |.ASL RESULTAT...|
000001E0: 5E 01 52 4F 4C 20 52 45 53 55 4C 54 41 54 AA 31 |^.ROL RESULTAT.1|
000001F0: 3B 20 20 20 20 20 20 25 00 FE 09 7C 01 3B 00 1A |; %...|.;..|
00000200: 0A 86 01 43 4C 43 3B 20 42 45 52 5B 4B 4E 41 20 |...CLC; BER[KNA |
00000210: 52 45 53 55 4C 54 41 54 AA 4A 00 24 0A 90 01 4C |RESULTAT.J.$...L|
00000220: 44 41 20 4A 00 35 0A 9A 01 41 44 43 20 52 45 53 |DA J.5...ADC RES|
00000230: 55 4C 54 41 54 00 46 0A A4 01 53 54 41 20 52 45 |ULTAT.F...STA RE|
00000240: 53 55 4C 54 41 54 00 51 0A AE 01 4C 44 41 20 23 |SULTAT.Q...LDA #|
00000250: 30 00 64 0A B8 01 41 44 43 20 52 45 53 55 4C 54 |0.d...ADC RESULT|
00000260: 41 54 AA 31 00 7F 0A C2 01 53 54 41 20 52 45 53 |AT.1.....STA RES|
00000270: 55 4C 54 41 54 AA 31 3B 20 20 20 20 20 20 25 00 |ULTAT.1; %.|
00000280: 85 0A CC 01 3B 00 B2 0A D6 01 43 4C 43 3B 20 42 |....;.....CLC; B|
00000290: 45 52 5B 4B 4E 41 20 52 45 53 55 4C 54 41 54 28 |ER[KNA RESULTAT(|
000002A0: 54 45 43 4B 45 4E AC 38 AA 4A 29 AA 43 4F 4D 50 |TECKEN.8.J).COMP|
000002B0: 41 52 00 C3 0A E0 01 4C 44 41 20 52 45 53 55 4C |AR.....LDA RESUL|
000002C0: 54 41 54 00 D2 0A EA 01 41 44 43 20 43 4F 4D 50 |TAT.....ADC COMP|
000002D0: 41 52 00 DF 0A F4 01 53 54 41 20 54 45 4D 50 00 |AR.....STA TEMP.|
000002E0: F2 0A 26 02 4C 44 41 20 52 45 53 55 4C 54 41 54 |..&.LDA RESULTAT|
000002F0: AA 31 00 03 0B 30 02 41 44 43 20 43 4F 4D 50 41 |.1...0.ADC COMPA|
00000300: 52 AA 31 00 1E 0B 3A 02 53 54 41 20 54 45 4D 50 |R.1...:.STA TEMP|
00000310: AA 31 3B 20 20 20 20 20 20 20 20 20 20 25 00 24 |.1; %.$|
00000320: 0B 44 02 3B 00 42 0B 4E 02 4C 44 59 20 23 30 3B |.D.;.B.N.LDY #0;|
00000330: 20 A1 20 43 41 4C 43 55 4C 41 54 45 44 20 42 59 | . CALCULATED BY|
00000340: 54 45 00 53 0B 58 02 4C 44 41 20 28 54 45 4D 50 |TE.S.X.LDA (TEMP|
00000350: 29 2C 59 00 6E 0B 62 02 53 54 41 20 42 59 54 45 |),Y.n.b.STA BYTE|
00000360: 31 3B 20 20 20 20 20 20 20 20 20 20 20 25 00 74 |1; %.t|
00000370: 0B 6C 02 3B 00 97 0B 76 02 43 4C 43 3B 20 42 45 |.l.;...v.CLC; BE|
00000380: 52 5B 4B 4E 41 20 53 54 41 52 54 41 44 44 AA 52 |R[KNA STARTADD.R|
00000390: 45 53 55 4C 54 41 54 00 A8 0B 80 02 4C 44 41 20 |ESULTAT.....LDA |
000003A0: 52 45 53 55 4C 54 41 54 00 B9 0B 8A 02 41 44 43 |RESULTAT.....ADC|
000003B0: 20 53 54 41 52 54 41 44 44 00 C6 0B 94 02 53 54 | STARTADD.....ST|
000003C0: 41 20 54 45 4D 50 00 D9 0B 9E 02 4C 44 41 20 52 |A TEMP.....LDA R|
000003D0: 45 53 55 4C 54 41 54 AA 31 00 EC 0B A8 02 41 44 |ESULTAT.1.....AD|
000003E0: 43 20 53 54 41 52 54 41 44 44 AA 31 00 07 0C B2 |C STARTADD.1....|
000003F0: 02 53 54 41 20 54 45 4D 50 AA 31 3B 20 20 20 20 |.STA TEMP.1; |
00000400: 20 20 20 20 20 20 25 00 0D 0C BC 02 3B 00 34 0C | %.....;.4.|
00000410: C6 02 4C 44 59 20 23 30 3B 20 A1 20 43 41 4C 43 |..LDY #0; . CALC|
00000420: 55 4C 41 54 45 44 20 42 59 54 45 20 B2 B1 20 42 |ULATED BYTE .. B|
00000430: 59 54 45 32 00 45 0C D0 02 4C 44 41 20 28 54 45 |YTE2.E...LDA (TE|
00000440: 4D 50 29 2C 59 00 60 0C DA 02 53 54 41 20 42 59 |MP),Y.`...STA BY|
00000450: 54 45 32 3B 20 20 20 20 20 20 20 20 20 20 20 25 |TE2; %|
00000460: 00 66 0C E4 02 3B 00 72 0C EE 02 4C 44 41 20 23 |.f...;.r...LDA #|
00000470: 35 35 00 8D 0C F8 02 53 54 41 20 24 30 31 3B 20 |55.....STA $01; |
00000480: 53 57 49 54 43 48 20 49 4E 20 49 AD 4F 00 98 0C |SWITCH IN I.O...|
00000490: 02 03 4C 44 41 20 23 31 00 BA 0C 0C 03 53 54 41 |..LDA #1.....STA|
000004A0: 20 35 36 33 33 34 3B 20 45 4E 41 42 4C 45 20 43 | 56334; ENABLE C|
000004B0: 42 4D 20 B5 45 52 52 55 50 54 00 C0 0C 16 03 3B |BM .ERRUPT.....;|
000004C0: 00 D8 0C 20 03 4C 44 41 20 23 31 3B 20 42 45 52 |... .LDA #1; BER|
000004D0: 5B 4B 4E 41 20 32 AE 49 00 E3 0C 2A 03 4C 44 59 |[KNA 2.I...*.LDY|
000004E0: 20 23 30 00 F3 0C 34 03 4C 4F 4F 50 49 20 43 50 | #0...4.LOOPI CP|
000004F0: 59 20 49 00 FF 0C 3E 03 42 43 53 20 55 54 49 00 |Y I...>.BCS UTI.|
00000500: 07 0D 48 03 41 53 4C 00 0F 0D 52 03 49 4E 59 00 |..H.ASL...R.INY.|
00000510: 1D 0D 5C 03 4A 4D 50 20 4C 4F 4F 50 49 00 38 0D |..\.JMP LOOPI.8.|
00000520: 66 03 55 54 49 20 53 54 41 20 49 AE 32 3B 20 20 |f.UTI STA I.2; |
00000530: 20 20 20 20 20 20 20 25 00 3E 0D 70 03 3B 00 61 | %.>.p.;.a|
00000540: 0D 7A 03 4C 44 41 20 42 59 54 45 31 3B 20 4D 41 |.z.LDA BYTE1; MA|
00000550: 53 4B 41 20 42 59 54 45 31 20 B2 B1 20 42 49 54 |SKA BYTE1 .. BIT|
00000560: 31 00 6B 0D 84 03 AF 20 49 AE 32 00 78 0D 8E 03 |1.k.... I.2.x...|
00000570: 53 54 41 20 42 49 54 31 00 7E 0D 98 03 3B 00 A1 |STA BIT1.~...;..|
00000580: 0D A2 03 4C 44 41 20 42 59 54 45 32 3B 20 4D 41 |...LDA BYTE2; MA|
00000590: 53 4B 41 20 42 59 54 45 32 20 B2 B1 20 42 49 54 |SKA BYTE2 .. BIT|
000005A0: 32 00 AB 0D AC 03 AF 20 49 AE 32 00 C6 0D B6 03 |2...... I.2.....|
000005B0: 53 54 41 20 42 49 54 32 3B 20 20 20 20 20 20 20 |STA BIT2; |
000005C0: 20 20 20 20 20 25 00 CC 0D C0 03 3B 00 F0 0D CA | %.....;....|
000005D0: 03 4C 44 41 20 23 30 3B 20 42 45 52 5B 4B 4E 41 |.LDA #0; BER[KNA|
000005E0: 20 22 49 4E 54 28 42 49 54 31 2F 32 5E 49 29 22 | "INT(BIT1/2^I)"|
000005F0: 00 FD 0D D4 03 53 54 41 20 54 45 4D 50 00 05 0E |.....STA TEMP...|
00000600: DE 03 43 4C 43 00 12 0E E8 03 4C 44 41 20 42 49 |..CLC.....LDA BI|
00000610: 54 31 00 1E 0E F2 03 43 4D 50 20 49 AE 32 00 2B |T1.....CMP I.2.+|
00000620: 0E FC 03 52 4F 4C 20 54 45 4D 50 00 38 0E 06 04 |...ROL TEMP.8...|
00000630: 4C 44 41 20 54 45 4D 50 00 52 0E 10 04 53 54 41 |LDA TEMP.R...STA|
00000640: 20 42 49 54 31 3B 20 20 20 20 20 20 20 20 20 20 | BIT1; |
00000650: 20 25 00 58 0E 1A 04 3B 00 7C 0E 24 04 4C 44 41 | %.X...;.|.$.LDA|
00000660: 20 23 30 3B 20 42 45 52 5B 4B 4E 41 20 22 49 4E | #0; BER[KNA "IN|
00000670: 54 28 42 49 54 32 2F 32 5E 49 29 22 00 89 0E 2E |T(BIT2/2^I)"....|
00000680: 04 53 54 41 20 54 45 4D 50 00 91 0E 38 04 43 4C |.STA TEMP...8.CL|
00000690: 43 00 9E 0E 42 04 4C 44 41 20 42 49 54 32 00 AA |C...B.LDA BIT2..|
000006A0: 0E 4C 04 43 4D 50 20 49 AE 32 00 B7 0E 56 04 52 |.L.CMP I.2...V.R|
000006B0: 4F 4C 20 54 45 4D 50 00 C4 0E 60 04 4C 44 41 20 |OL TEMP...`.LDA |
000006C0: 54 45 4D 50 00 DE 0E 6A 04 53 54 41 20 42 49 54 |TEMP...j.STA BIT|
000006D0: 32 3B 20 20 20 20 20 20 20 20 20 20 20 25 00 E4 |2; %..|
000006E0: 0E 74 04 3B 00 FC 0E 7E 04 4C 44 41 20 23 31 3B |.t.;...~.LDA #1;|
000006F0: 20 42 45 52 5B 4B 4E 41 20 32 AE 4A 00 07 0F 88 | BER[KNA 2.J....|
00000700: 04 4C 44 59 20 23 30 00 17 0F 92 04 4C 4F 4F 50 |.LDY #0.....LOOP|
00000710: 4A 20 43 50 59 20 4A 00 23 0F 9C 04 42 43 53 20 |J CPY J.#...BCS |
00000720: 55 54 4A 00 2B 0F A6 04 41 53 4C 00 33 0F B0 04 |UTJ.+...ASL.3...|
00000730: 49 4E 59 00 41 0F BA 04 4A 4D 50 20 4C 4F 4F 50 |INY.A...JMP LOOP|
00000740: 4A 00 5B 0F C4 04 55 54 4A 20 53 54 41 20 4A AE |J.[...UTJ STA J.|
00000750: 32 3B 20 20 20 20 20 20 20 20 25 00 61 0F CE 04 |2; %.a...|
00000760: 3B 00 89 0F D8 04 4C 44 41 20 42 49 54 31 3B 20 |;.....LDA BIT1; |
00000770: 42 45 52 5B 4B 4E 41 20 22 42 49 54 32 2A 32 5E |BER[KNA "BIT2*2^|
00000780: 4A 2B 53 55 4D 4D 41 31 22 00 97 0F E2 04 42 45 |J+SUMMA1".....BE|
00000790: 51 20 4F 56 45 52 31 00 9F 0F EC 04 43 4C 43 00 |Q OVER1.....CLC.|
000007A0: AB 0F F6 04 4C 44 41 20 4A AE 32 00 BA 0F 00 05 |....LDA J.2.....|
000007B0: 41 44 43 20 53 55 4D 4D 41 31 00 D4 0F 0A 05 53 |ADC SUMMA1.....S|
000007C0: 54 41 20 53 55 4D 4D 41 31 3B 20 20 20 20 20 20 |TA SUMMA1; |
000007D0: 20 20 20 25 00 DA 0F 14 05 3B 00 00 10 1E 05 4F | %.....;.....O|
000007E0: 56 45 52 31 20 4C 44 41 20 42 49 54 32 3B 20 22 |VER1 LDA BIT2; "|
000007F0: 42 49 54 32 2A 32 5E 4A 2B 53 55 4D 4D 41 32 22 |BIT2*2^J+SUMMA2"|
00000800: 00 0E 10 28 05 42 45 51 20 4F 56 45 52 32 00 16 |...(.BEQ OVER2..|
00000810: 10 32 05 43 4C 43 00 22 10 3C 05 4C 44 41 20 4A |.2.CLC.".<.LDA J|
00000820: AE 32 00 31 10 46 05 41 44 43 20 53 55 4D 4D 41 |.2.1.F.ADC SUMMA|
00000830: 32 00 4B 10 50 05 53 54 41 20 53 55 4D 4D 41 32 |2.K.P.STA SUMMA2|
00000840: 3B 20 20 20 20 20 20 20 20 20 25 00 51 10 5A 05 |; %.Q.Z.|
00000850: 3B 00 6B 10 64 05 4F 56 45 52 32 20 49 4E 43 20 |;.k.d.OVER2 INC |
00000860: 4A 3B 20 22 4E 45 58 54 20 4A 22 00 75 10 6E 05 |J; "NEXT J".u.n.|
00000870: 4C 44 41 20 4A 00 80 10 78 05 43 4D 50 20 23 37 |LDA J...x.CMP #7|
00000880: 00 8C 10 82 05 42 45 51 20 4E 4F 4A 00 A5 10 8C |.....BEQ NOJ....|
00000890: 05 4A 4D 50 20 4D B0 45 4A 3B 20 20 20 20 20 20 |.JMP M.EJ; |
000008A0: 20 20 20 20 25 00 AB 10 91 05 3B 00 C9 10 96 05 | %.....;.....|
000008B0: 4E 4F 4A 20 53 45 43 3B 20 4C 41 47 52 41 20 55 |NOJ SEC; LAGRA U|
000008C0: 4E 44 41 20 53 55 4D 4D B0 00 D4 10 A0 05 4C 44 |NDA SUMM......LD|
000008D0: 41 20 23 37 00 DE 10 AA 05 53 42 43 20 49 00 E6 |A #7.....SBC I..|
000008E0: 10 B4 05 54 41 59 00 F5 10 BE 05 4C 44 41 20 53 |...TAY.....LDA S|
000008F0: 55 4D 4D 41 31 00 04 11 C8 05 53 54 41 20 55 54 |UMMA1.....STA UT|
00000900: 31 31 2C 59 00 13 11 D2 05 4C 44 41 20 53 55 4D |11,Y.....LDA SUM|
00000910: 4D 41 32 00 2D 11 DC 05 53 54 41 20 55 54 32 31 |MA2.-...STA UT21|
00000920: 2C 59 3B 20 20 20 20 20 20 20 20 20 25 00 33 11 |,Y; %.3.|
00000930: E6 05 3B 00 47 11 F0 05 49 4E 43 20 49 3B 20 22 |..;.G...INC I; "|
00000940: 4E 45 58 54 20 49 22 00 51 11 FA 05 4C 44 41 20 |NEXT I".Q...LDA |
00000950: 49 00 5C 11 04 06 43 4D 50 20 23 38 00 68 11 0E |I.\...CMP #8.h..|
00000960: 06 42 45 51 20 4E 4F 49 00 75 11 18 06 4A 4D 50 |.BEQ NOI.u...JMP|
00000970: 20 4D B0 45 49 00 7B 11 1D 06 3B 00 9B 11 22 06 | M.EI.{...;...".|
00000980: 4E 4F 49 20 4C 44 41 20 23 24 33 30 3B 20 41 43 |NOI LDA #$30; AC|
00000990: 53 49 49 20 46 5C 52 20 22 30 22 00 AA 11 2C 06 |SII F\R "0"...,.|
000009A0: 4C 44 58 20 54 45 43 4B 45 4E 00 B7 11 36 06 43 |LDX TECKEN...6.C|
000009B0: 50 58 20 23 31 30 30 00 C6 11 40 06 42 43 53 20 |PX #100...@.BCS |
000009C0: 4F 56 45 52 31 31 00 D0 11 4A 06 4A 53 52 20 99 |OVER11...J.JSR .|
000009D0: 00 E3 11 54 06 4F 56 45 52 31 31 20 43 50 58 20 |...T.OVER11 CPX |
000009E0: 23 31 30 00 F2 11 5E 06 42 43 53 20 4F 56 45 52 |#10...^.BCS OVER|
000009F0: 31 32 00 FC 11 68 06 4A 53 52 20 99 00 0E 12 72 |12...h.JSR ....r|
00000A00: 06 4F 56 45 52 31 32 20 4C 44 41 20 23 30 00 1D |.OVER12 LDA #0..|
00000A10: 12 7C 06 4C 44 58 20 54 45 43 4B 45 4E 00 38 12 |.|.LDX TECKEN.8.|
00000A20: 86 06 4A 53 52 20 4F 55 54 3B 20 20 20 20 20 20 |..JSR OUT; |
00000A30: 20 20 20 20 20 20 20 25 00 3E 12 9E 07 3B 00 4B | %.>...;.K|
00000A40: 12 A8 07 4C 44 59 20 23 32 35 35 00 5A 12 B2 07 |...LDY #255.Z...|
00000A50: 4E 59 43 48 41 52 20 49 4E 59 00 68 12 BC 07 4C |NYCHAR INY.h...L|
00000A60: 44 41 20 55 54 31 2C 59 00 72 12 C6 07 4A 53 52 |DA UT1,Y.r...JSR|
00000A70: 20 99 00 7E 12 D0 07 43 4D 50 20 23 31 33 00 8D | ..~...CMP #13..|
00000A80: 12 DA 07 42 4E 45 20 4E 59 43 48 41 52 00 93 12 |...BNE NYCHAR...|
00000A90: E4 07 3B 00 A2 12 EE 07 49 4E 43 20 54 45 43 4B |..;.....INC TECK|
00000AA0: 45 4E 00 B0 12 F8 07 42 45 51 20 4B 4C 41 52 54 |EN.....BEQ KLART|
00000AB0: 00 C1 12 02 08 4A 4D 50 20 4E 59 54 45 43 4B 45 |.....JMP NYTECKE|
00000AC0: 4E 00 D5 12 0C 08 4B 4C 41 52 54 20 4A 53 52 20 |N.....KLART JSR |
00000AD0: 43 4C 41 4C 4C 00 DD 12 11 08 43 4C 49 00 E5 12 |CLALL.....CLI...|
00000AE0: 16 08 52 54 53 00 EB 12 20 08 3B 00 FA 12 2A 08 |..RTS... .;...*.|
00000AF0: 2E 46 49 4C 45 20 C5 44 45 43 00 00 00 |.FILE .DEC... |
....D.; MAIN....N.; HUVUD PROGRAM MED UT
SKR.T..4.X.;.<.}.SEI.G...LDA #0.V...STA
TECKEN.J...NYTECKEN LDA #0.T. .STA I....
.M.EI LDA #0.....STA J.....LDA #128...H.
STA SUMMA1...R.STA SUMMA2.I...M.EJ LDA #
0.....STA 56334; TURN OFF CBM .ERRUPT...
..LDA #51."...STA $01; SWITCH OUT I.O,IN
CHAR. ROM.(...;.Q...LDA #0; BER[KNA TEC
KEN.8 .. RESULTAT.D...STA RESULTAT.1.S..
.LDA TECKEN...".STA RESULTAT...,.ASL RES
ULTAT...6.ROL RESULTAT.1...@.ASL RESULTA
T.L.J.ROL RESULTAT.1...T.ASL RESULTAT...
^.ROL RESULTAT.1; %...|.;.....CLC;
BER[KNA RESULTAT.J.$...LDA J.5...ADC RES
ULTAT.F...STA RESULTAT.Q...LDA #0.D...AD
C RESULTAT.1..B.STA RESULTAT.1; %.
..L.;...V.CLC; BER[KNA RESULTAT(TECKEN.8
.J).COMPAR.C...LDA RESULTAT.R...ADC COMP
AR.....STA TEMP...&.LDA RESULTAT.1...0.A
DC COMPAR.1...:.STA TEMP.1; %.$
.D.;.B.N.LDY #0; . CALCULATED BYTE.S.X.L
DA (TEMP),Y.N.B.STA BYTE1; %.T
.L.;...V.CLC; BER[KNA STARTADD.RESULTAT.
....LDA RESULTAT.....ADC STARTADD.F...ST
A TEMP.Y...LDA RESULTAT.1.....ADC STARTA
DD.1.....STA TEMP.1; %.....;.4.
F.LDY #0; . CALCULATED BYTE .. BYTE2.E.P
.LDA (TEMP),Y.`.Z.STA BYTE2; %
.F...;.R...LDA #55.....STA $01; SWITCH I
N I.O.....LDA #1.....STA 56334; ENABLE C
BM .ERRUPT.....;.X. .LDA #1; BER[KNA 2.I
...*.LDY #0...4.LOOPI CPY I...>.BCS UTI.
..H.ASL...R.INY...\.JMP LOOPI.8.F.UTI ST
A I.2; %.>.P.;.A.Z.LDA BYTE1; MA
SKA BYTE1 .. BIT1.K.... I.2.X...STA BIT1
.~...;.....LDA BYTE2; MASKA BYTE2 .. BIT
2...... I.2.F...STA BIT2; %.L
...;...J.LDA #0; BER[KNA "INT(BIT1/2^I)"
...T.STA TEMP.....CLC.....LDA BIT1.....C
MP I.2.+...ROL TEMP.8...LDA TEMP.R...STA
BIT1; %.X...;.|.$.LDA #0; BER
[KNA "INT(BIT2/2^I)".....STA TEMP...8.CL
C...B.LDA BIT2...L.CMP I.2...V.ROL TEMP.
D.`.LDA TEMP...J.STA BIT2; %..
.T.;...~.LDA #1; BER[KNA 2.J.....LDY #0.
....LOOPJ CPY J.#...BCS UTJ.+...ASL.3...
INY.A...JMP LOOPJ.[.D.UTJ STA J.2;
%.A.N.;...X.LDA BIT1; BER[KNA "BIT2*2^
J+SUMMA1".....BEQ OVER1.....CLC.....LDA
J.2.....ADC SUMMA1.T...STA SUMMA1;
%.Z...;.....OVER1 LDA BIT2; "BIT2*2^J
+SUMMA2"...(.BEQ OVER2...2.CLC.".<.LDA J
.2.1.F.ADC SUMMA2.K.P.STA SUMMA2;
%.Q.Z.;.K.D.OVER2 INC J; "NEXT J".U.N.
LDA J...X.CMP #7.....BEQ NOJ.....JMP M.E
J; %.....;.I...NOJ SEC; LAGRA U
NDA SUMM..T. .LDA #7.....SBC I.....TAY..
...LDA SUMMA1...H.STA UT11,Y...R.LDA SUM
MA2.-...STA UT21,Y; %.3...;.G...
INC I; "NEXT I".Q...LDA I.\...CMP #8.H..
.BEQ NOI.U...JMP M.EI.{...;...".NOI LDA
#$30; ACSII F\R "0"...,.LDX TECKEN...6.C
PX #100.F.@.BCS OVER11.P.J.JSR ....T.OVE
R11 CPX #10...^.BCS OVER12...H.JSR ....R
.OVER12 LDA #0...|.LDX TECKEN.8...JSR OU
T; %.>...;.K...LDY #255.Z...
NYCHAR INY.H...LDA UT1,Y.R.F.JSR ..~.P.C
MP #13...Z.BNE NYCHAR.....;.....INC TECK
EN.....BEQ KLART.A...JMP NYTECKEN.U...KL
ART JSR CLALL.....CLI.....RTS... .;...*.
.FILE EDEC...
> CLICK IMAGE PREVIEW FOR FULL MODAL