INTER.SRC
FILE INFORMATION
FILENAME(S): INTER.SRC
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 21:23:14
APPEARS ON: 1 disk(s)
FILE HASH
5ab10bde660bc9c6157c3e2897f397c6fed6d6baf62ed0b0eaacef15a46bc4a2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 1 1 | INTER.SRC | PRG | DuncanTwain | 24 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 5A 00 9E 20 38 AC 34 30 39 36 00 1C |....Z.. 8.4096..|
00000010: 08 64 00 2E 4F 50 54 20 50 2C 4F 4F 00 31 08 6E |.d..OPT P,OO.1.n|
00000020: 00 2E 54 49 54 20 22 42 41 53 49 43 2D 49 52 51 |..TIT "BASIC-IRQ|
00000030: 22 00 53 08 78 00 2E 53 59 4D 20 3B 20 53 59 4D |".S.x..SYM ; SYM|
00000040: 42 4F 4C 54 41 42 45 4C 4C 45 20 41 55 53 47 45 |BOLTABELLE AUSGE|
00000050: 42 45 4E 00 59 08 82 00 3B 00 79 08 8C 00 3B 20 |BEN.Y...;.y...; |
00000060: B5 45 52 52 55 50 54 52 4F 55 54 49 4E 45 20 46 |.ERRUPTROUTINE F|
00000070: 55 45 52 20 42 41 53 49 43 00 7F 08 96 00 3B 00 |UER BASIC.....;.|
00000080: B1 08 A0 00 45 58 45 43 20 B2 20 24 33 30 38 20 |....EXEC . $308 |
00000090: 3B 20 56 45 4B A4 52 20 46 55 45 52 20 53 54 41 |; VEK.R FUER STA|
000000A0: 54 45 4D 45 4E 54 20 41 55 53 46 55 45 48 52 45 |TEMENT AUSFUEHRE|
000000B0: 4E 00 CC 08 AA 00 4E 4D 49 20 B2 20 24 33 31 38 |N.....NMI . $318|
000000C0: 20 3B 20 4E 4D 49 AB 56 45 4B A4 52 00 E3 08 B4 | ; NMI.VEK.R....|
000000D0: 00 90 20 B2 20 24 33 32 38 20 3B 20 90 AB 56 45 |.. . $328 ; ..VE|
000000E0: 4B A4 52 00 E9 08 BE 00 3B 00 FA 08 C8 00 43 49 |K.R.....;.....CI|
000000F0: 41 32 20 B2 20 24 44 44 30 30 00 18 09 D2 00 54 |A2 . $DD00.....T|
00000100: 49 4D 45 52 41 20 B2 20 43 49 41 32 AA 34 20 3B |IMERA . CIA2.4 ;|
00000110: 20 54 49 4D 45 52 20 41 00 36 09 DC 00 54 49 4D | TIMER A.6...TIM|
00000120: 45 52 42 20 B2 20 43 49 41 32 AA 36 20 3B 20 54 |ERB . CIA2.6 ; T|
00000130: 49 4D 45 52 20 42 00 60 09 E6 00 49 43 52 20 B2 |IMER B.`...ICR .|
00000140: 20 43 49 41 32 AA 31 33 20 3B 20 B5 45 52 52 55 | CIA2.13 ; .ERRU|
00000150: 50 54 20 9A 52 4F 4C 20 52 45 47 49 53 54 45 52 |PT .ROL REGISTER|
00000160: 00 84 09 F0 00 43 52 41 20 B2 20 43 49 41 32 AA |.....CRA . CIA2.|
00000170: 31 34 20 3B 20 9A 52 4F 4C 20 52 45 47 49 53 54 |14 ; .ROL REGIST|
00000180: 45 52 20 41 00 A8 09 FA 00 43 52 42 20 B2 20 43 |ER A.....CRB . C|
00000190: 49 41 32 AA 31 35 20 3B 20 9A 52 4F 4C 20 52 45 |IA2.15 ; .ROL RE|
000001A0: 47 49 53 54 45 52 20 42 00 AE 09 04 01 3B 00 D4 |GISTER B.....;..|
000001B0: 09 0E 01 9A 4E 4D 49 20 B2 20 24 46 45 35 36 20 |....NMI . $FE56 |
000001C0: 3B 20 41 4C 54 45 4E 20 4E 4D 49 20 81 54 53 45 |; ALTEN NMI .TSE|
000001D0: 54 5A 45 4E 00 DA 09 18 01 3B 00 04 0A 22 01 46 |TZEN.....;...".F|
000001E0: 55 45 4E 46 5A 49 47 20 B2 20 31 39 37 30 35 20 |UENFZIG . 19705 |
000001F0: 3B 20 B2 20 32 30 20 4D 49 4C 4C 49 53 45 4B 55 |; . 20 MILLISEKU|
00000200: 4E 44 45 4E 00 11 0A 2C 01 4C 4F 20 B2 20 24 31 |NDEN...,.LO . $1|
00000210: 34 00 1F 0A 36 01 48 49 20 B2 20 4C 4F AA 31 00 |4...6.HI . LO.1.|
00000220: 31 0A 40 01 4C 49 4E 45 41 44 52 20 B2 20 24 35 |1.@.LINEADR . $5|
00000230: 46 00 42 0A 4A 01 4C 49 4E 45 4E 4F 20 B2 20 24 |F.B.J.LINENO . $|
00000240: 33 39 00 51 0A 54 01 43 48 52 A1 20 B2 20 24 37 |39.Q.T.CHR. . $7|
00000250: 33 00 64 0A 5E 01 43 48 52 CB 54 20 B2 20 43 48 |3.d.^.CHR.T . CH|
00000260: 52 A1 AA 36 00 79 0A 68 01 54 58 54 50 54 52 20 |R..6.y.h.TXTPTR |
00000270: B2 20 43 48 52 CB 54 AA 31 00 8E 0A 72 01 8D 20 |. CHR.T.1...r.. |
00000280: B2 20 24 38 44 20 3B 20 8D AB A4 4B 45 4E 00 A1 |. $8D ; ...KEN..|
00000290: 0A 7C 01 53 59 4E 54 41 58 20 B2 20 24 41 46 30 |.|.SYNTAX . $AF0|
000002A0: 38 00 B2 0A 86 01 55 4E 96 44 20 B2 20 24 41 38 |8.....UN.D . $A8|
000002B0: 45 33 00 C2 0A 90 01 B5 45 52 20 B2 20 24 41 37 |E3......ER . $A7|
000002C0: 41 45 00 D6 0A 9A 01 49 4C 4C 51 55 41 4E 20 B2 |AE.....ILLQUAN .|
000002D0: 20 24 42 32 34 38 00 E7 0A A4 01 A1 4C 49 4E 20 | $B248......LIN |
000002E0: B2 20 24 41 39 36 42 00 F8 0A AE 01 A1 41 44 52 |. $A96B......ADR|
000002F0: 20 B2 20 24 41 36 31 33 00 0B 0B B8 01 43 48 4B | . $A613.....CHK|
00000300: 43 4F 4D 20 B2 20 24 41 45 46 44 00 1F 0B C2 01 |COM . $AEFD.....|
00000310: 45 58 45 43 4F 4C 44 20 B2 20 24 41 37 45 37 00 |EXECOLD . $A7E7.|
00000320: 32 0B CC 01 46 52 4D 4E 55 4D 20 B2 20 24 41 44 |2...FRMNUM . $AD|
00000330: 38 41 00 44 0B D6 01 B5 45 47 45 52 20 B2 20 24 |8A.D....EGER . $|
00000340: 42 37 46 37 00 5A 0B E0 01 54 45 53 54 53 54 41 |B7F7.Z...TESTSTA|
00000350: 43 4B 20 B2 20 24 41 33 46 42 00 6D 0B EA 01 54 |CK . $A3FB.m...T|
00000360: 45 53 A4 4C 44 20 B2 20 24 46 36 45 44 00 80 0B |ES.LD . $F6ED...|
00000370: F4 01 4E 4D 49 4F 4C 44 20 B2 20 24 46 45 34 37 |..NMIOLD . $FE47|
00000380: 00 86 0B FE 01 3B 00 93 0B 08 02 AC B2 20 24 43 |.....;....... $C|
00000390: 43 30 30 00 AC 0B 12 02 49 4E 49 54 20 4C 44 41 |C00.....INIT LDA|
000003A0: 20 23 B3 20 54 45 53 54 53 54 41 54 00 C0 0B 1C | #. TESTSTAT....|
000003B0: 02 4C 44 59 20 23 B1 20 54 45 53 54 53 54 41 54 |.LDY #. TESTSTAT|
000003C0: 00 CD 0B 26 02 53 54 41 20 45 58 45 43 00 DC 0B |...&.STA EXEC...|
000003D0: 30 02 53 54 59 20 45 58 45 43 AA 31 00 E7 0B 3A |0.STY EXEC.1...:|
000003E0: 02 4C 44 41 20 23 30 00 04 0C 44 02 53 54 41 20 |.LDA #0...D.STA |
000003F0: 46 4C 41 47 20 3B 20 46 4C 41 47 20 4C 4F 45 53 |FLAG ; FLAG LOES|
00000400: 43 48 45 4E 00 0C 0C 4E 02 52 54 53 00 12 0C 58 |CHEN...N.RTS...X|
00000410: 02 3B 00 40 0C 62 02 54 45 53 54 53 54 41 54 20 |.;.@.b.TESTSTAT |
00000420: 4A 53 52 20 43 48 52 A1 20 3B 20 4E 41 45 43 48 |JSR CHR. ; NAECH|
00000430: 53 54 45 53 20 5A 45 49 43 48 45 4E 20 48 4F C3 |STES ZEICHEN HO.|
00000440: 00 4D 0C 6C 02 43 4D 50 20 23 22 21 22 00 5A 0C |.M.l.CMP #"!".Z.|
00000450: 76 02 42 45 51 20 54 53 54 8D 00 80 0C 80 02 4A |v.BEQ TST......J|
00000460: 53 52 20 43 48 52 CB 54 20 3B 20 46 4C 41 47 53 |SR CHR.T ; FLAGS|
00000470: 20 57 49 45 44 45 52 20 48 45 52 53 54 45 4C C3 | WIEDER HERSTEL.|
00000480: 00 9F 0C 8A 02 4A 4D 50 20 45 58 45 43 4F 4C 44 |.....JMP EXECOLD|
00000490: 20 3B 20 4E B0 4D 41 4C 20 57 45 49 54 45 52 00 | ; N.MAL WEITER.|
000004A0: A5 0C 94 02 3B 00 CB 0C 9E 02 54 53 54 8D 20 4A |....;.....TST. J|
000004B0: 53 52 20 43 48 52 A1 20 3B 20 4E 41 45 43 48 53 |SR CHR. ; NAECHS|
000004C0: 54 45 53 20 5A 45 49 43 48 45 4E 00 D6 0C A8 02 |TES ZEICHEN.....|
000004D0: 43 4D 50 20 23 8D 00 E6 0C B2 02 42 45 51 20 4F |CMP #......BEQ O|
000004E0: 4B 20 3B 20 4A 41 00 03 0D BC 02 4A 4D 50 20 53 |K ; JA.....JMP S|
000004F0: 59 4E 54 41 58 20 3B 20 53 59 4E 54 41 58 20 45 |YNTAX ; SYNTAX E|
00000500: 52 52 B0 00 13 0D C6 02 4F 4B 20 4A 53 52 20 43 |RR......OK JSR C|
00000510: 48 52 A1 00 31 0D D0 02 42 45 51 20 49 52 51 4F |HR..1...BEQ IRQO|
00000520: 46 46 20 3B 20 49 52 51 20 B6 43 48 41 4C 54 45 |FF ; IRQ .CHALTE|
00000530: 4E 00 4F 0D DA 02 4A 53 52 20 A1 4C 49 4E 20 3B |N.O...JSR .LIN ;|
00000540: 20 5A 45 49 C3 4E 55 4D 4D 45 52 20 48 4F C3 00 | ZEI.NUMMER HO..|
00000550: 74 0D E4 02 4A 53 52 20 A1 41 44 52 20 3B 20 41 |t...JSR .ADR ; A|
00000560: 44 52 45 53 53 45 20 44 45 52 20 5A 45 49 4C 45 |DRESSE DER ZEILE|
00000570: 20 48 4F C3 00 82 0D EE 02 42 43 53 20 46 4F 55 | HO......BCS FOU|
00000580: 4E 44 00 A1 0D F8 02 4A 4D 50 20 55 4E 96 44 20 |ND.....JMP UN.D |
00000590: 3B 20 55 4E 96 27 44 20 53 54 41 54 45 4D 45 4E |; UN.'D STATEMEN|
000005A0: 54 00 B7 0D 02 03 46 4F 55 4E 44 20 4C 44 41 20 |T.....FOUND LDA |
000005B0: 4C 49 4E 45 41 44 52 00 C2 0D 0C 03 53 42 43 20 |LINEADR.....SBC |
000005C0: 23 31 00 E3 0D 16 03 53 54 41 20 4C 49 4E 45 53 |#1.....STA LINES|
000005D0: 54 52 20 3B 20 41 44 52 45 53 53 45 20 4D 45 52 |TR ; ADRESSE MER|
000005E0: 4B 45 4E 00 F5 0D 20 03 4C 44 41 20 4C 49 4E 45 |KEN... .LDA LINE|
000005F0: 41 44 52 AA 31 00 00 0E 2A 03 53 42 43 20 23 30 |ADR.1...*.SBC #0|
00000600: 00 12 0E 34 03 53 54 41 20 4C 49 4E 45 53 54 52 |...4.STA LINESTR|
00000610: AA 31 00 31 0E 3E 03 4A 53 52 20 43 48 4B 43 4F |.1.1.>.JSR CHKCO|
00000620: 4D 20 3B 20 4B 4F 4D 4D 41 20 50 52 55 45 46 45 |M ; KOMMA PRUEFE|
00000630: 4E 00 4B 0E 48 03 4A 53 52 20 46 52 4D 4E 55 4D |N.K.H.JSR FRMNUM|
00000640: 20 3B 20 57 45 52 54 20 48 4F C3 00 66 0E 52 03 | ; WERT HO..f.R.|
00000650: 4A 53 52 20 B5 45 47 45 52 20 3B 20 4E 41 43 48 |JSR .EGER ; NACH|
00000660: 20 B5 45 47 45 52 00 71 0E 5C 03 4C 44 41 20 4C | .EGER.q.\.LDA L|
00000670: 4F 00 7B 0E 66 03 B0 41 20 48 49 00 87 0E 70 03 |O.{.f..A HI...p.|
00000680: 42 4E 45 20 4F 4B 31 00 9E 0E 7A 03 4A 4D 50 20 |BNE OK1...z.JMP |
00000690: 49 4C 4C 51 55 41 4E 20 3B 20 4E 55 4C 4C 00 AD |ILLQUAN ; NULL..|
000006A0: 0E 84 03 4F 4B 31 20 4C 44 41 20 48 49 00 BE 0E |...OK1 LDA HI...|
000006B0: 8E 03 53 54 41 20 54 49 4D 45 52 42 AA 31 00 C9 |..STA TIMERB.1..|
000006C0: 0E 98 03 4C 44 41 20 4C 4F 00 D8 0E A2 03 53 54 |...LDA LO.....ST|
000006D0: 41 20 54 49 4D 45 52 42 00 EC 0E AC 03 4C 44 41 |A TIMERB.....LDA|
000006E0: 20 23 B1 20 46 55 45 4E 46 5A 49 47 00 FD 0E B6 | #. FUENFZIG....|
000006F0: 03 53 54 41 20 54 49 4D 45 52 41 AA 31 00 11 0F |.STA TIMERA.1...|
00000700: C0 03 4C 44 41 20 23 B3 20 46 55 45 4E 46 5A 49 |..LDA #. FUENFZI|
00000710: 47 00 20 0F CA 03 53 54 41 20 54 49 4D 45 52 41 |G. ...STA TIMERA|
00000720: 00 45 0F D4 03 4C 44 41 20 23 25 30 30 30 31 30 |.E...LDA #%00010|
00000730: 30 30 31 20 3B 20 54 49 4D 45 52 20 41 20 53 54 |001 ; TIMER A ST|
00000740: 41 52 54 45 4E 00 51 0F DE 03 53 54 41 20 43 52 |ARTEN.Q...STA CR|
00000750: 41 00 76 0F E8 03 4C 44 41 20 23 25 30 31 30 31 |A.v...LDA #%0101|
00000760: 30 30 30 31 20 3B 20 54 49 4D 45 52 20 42 20 53 |0001 ; TIMER B S|
00000770: 54 41 52 54 45 4E 00 82 0F F2 03 53 54 41 20 43 |TARTEN.....STA C|
00000780: 52 42 00 9D 0F FC 03 4C 44 41 20 49 43 52 20 3B |RB.....LDA ICR ;|
00000790: 20 49 43 52 20 4C 4F 45 53 43 48 45 4E 00 C3 0F | ICR LOESCHEN...|
000007A0: 06 04 4C 44 41 20 23 25 31 30 30 30 30 30 31 30 |..LDA #%10000010|
000007B0: 20 3B 20 4E 4D 49 20 46 55 45 52 20 54 49 4D 45 | ; NMI FUER TIME|
000007C0: 52 20 42 00 CF 0F 10 04 53 54 41 20 49 43 52 00 |R B.....STA ICR.|
000007D0: E3 0F 1A 04 4C 44 41 20 23 B3 20 54 45 53 54 54 |....LDA #. TESTT|
000007E0: 49 4D 45 00 F7 0F 24 04 4C 44 59 20 23 B1 20 54 |IME...$.LDY #. T|
000007F0: 45 53 54 54 49 4D 45 00 12 10 2E 04 53 54 41 20 |ESTTIME.....STA |
00000800: 90 20 3B 20 90 AB 56 45 4B A4 52 20 53 45 54 5A |. ; ..VEK.R SETZ|
00000810: 45 4E 00 1E 10 38 04 53 54 59 20 90 AA 31 00 31 |EN...8.STY ..1.1|
00000820: 10 42 04 4C 44 41 20 23 B3 20 4E 4D 49 52 4F 55 |.B.LDA #. NMIROU|
00000830: 54 00 44 10 4C 04 4C 44 59 20 23 B1 20 4E 4D 49 |T.D.L.LDY #. NMI|
00000840: 52 4F 55 54 00 63 10 56 04 53 54 41 20 4E 4D 49 |ROUT.c.V.STA NMI|
00000850: 20 3B 20 4E 4D 49 AB 56 45 4B A4 52 20 53 45 54 | ; NMI.VEK.R SET|
00000860: 5A 45 4E 00 71 10 60 04 53 54 59 20 4E 4D 49 AA |ZEN.q.`.STY NMI.|
00000870: 31 00 94 10 6A 04 4A 4D 50 20 B5 45 52 20 3B 20 |1...j.JMP .ER ; |
00000880: 5A 55 52 20 B5 45 52 50 52 45 54 45 52 53 43 48 |ZUR .ERPRETERSCH|
00000890: 4C 45 8B 45 00 9A 10 74 04 3B 00 B4 10 7E 04 49 |LE.E...t.;...~.I|
000008A0: 52 51 4F 46 46 20 4C 44 41 20 23 25 30 31 31 31 |RQOFF LDA #%0111|
000008B0: 31 31 31 31 00 D4 10 88 04 53 54 41 20 49 43 52 |1111.....STA ICR|
000008C0: 20 3B 20 41 4C 4C 45 20 B5 45 52 52 55 50 54 53 | ; ALLE .ERRUPTS|
000008D0: 20 41 55 53 00 E6 10 92 04 4C 44 41 20 23 B3 20 | AUS.....LDA #. |
000008E0: 54 45 53 A4 4C 44 00 F8 10 9C 04 4C 44 59 20 23 |TES.LD.....LDY #|
000008F0: B1 20 54 45 53 A4 4C 44 00 1B 11 A6 04 53 54 41 |. TES.LD.....STA|
00000900: 20 90 20 3B 20 90 AB 56 45 4B A4 52 20 41 55 46 | . ; ..VEK.R AUF|
00000910: 20 41 4C 54 45 4E 20 57 45 52 54 00 27 11 B0 04 | ALTEN WERT.'...|
00000920: 53 54 59 20 90 AA 31 00 39 11 BA 04 4C 44 41 20 |STY ..1.9...LDA |
00000930: 23 B3 20 4E 4D 49 4F 4C 44 00 4B 11 C4 04 4C 44 |#. NMIOLD.K...LD|
00000940: 59 20 23 B1 20 4E 4D 49 4F 4C 44 00 6B 11 CE 04 |Y #. NMIOLD.k...|
00000950: 53 54 41 20 4E 4D 49 3B 20 4E 4D 49 20 41 55 46 |STA NMI; NMI AUF|
00000960: 20 41 4C 54 45 4E 20 57 45 52 54 00 79 11 D8 04 | ALTEN WERT.y...|
00000970: 53 54 59 20 4E 4D 49 AA 31 00 9C 11 E2 04 4A 4D |STY NMI.1.....JM|
00000980: 50 20 B5 45 52 20 3B 20 5A 55 52 20 B5 45 52 50 |P .ER ; ZUR .ERP|
00000990: 52 45 54 45 52 53 43 48 4C 45 8B 45 00 A2 11 EC |RETERSCHLE.E....|
000009A0: 04 3B 00 B2 11 F6 04 4E 4D 49 52 4F 55 54 20 50 |.;.....NMIROUT P|
000009B0: 48 41 00 C0 11 00 05 54 58 41 20 3A 20 50 48 41 |HA.....TXA : PHA|
000009C0: 00 CE 11 0A 05 54 59 41 20 3A 20 50 48 41 00 DA |.....TYA : PHA..|
000009D0: 11 14 05 4C 44 59 20 49 43 52 00 E2 11 1E 05 54 |...LDY ICR.....T|
000009E0: 59 41 00 02 12 28 05 AF 20 23 25 31 30 20 3B 20 |YA...(.. #%10 ; |
000009F0: 54 49 4D 45 52 20 42 20 41 42 47 45 4C 41 55 46 |TIMER B ABGELAUF|
00000A00: 45 4E 00 12 12 32 05 42 4E 45 20 54 49 4D 45 4F |EN...2.BNE TIMEO|
00000A10: 55 54 00 1F 12 3C 05 4A 4D 50 20 9A 4E 4D 49 00 |UT...<.JMP .NMI.|
00000A20: 25 12 46 05 3B 00 48 12 50 05 54 49 4D 45 4F 55 |%.F.;.H.P.TIMEOU|
00000A30: 54 20 49 4E 43 20 46 4C 41 47 20 3B 20 46 4C 41 |T INC FLAG ; FLA|
00000A40: 47 20 53 45 54 5A 45 4E 00 56 12 5A 05 50 4C 41 |G SETZEN.V.Z.PLA|
00000A50: 20 3A 20 54 41 59 00 64 12 64 05 50 4C 41 20 3A | : TAY.d.d.PLA :|
00000A60: 20 54 41 58 00 72 12 6E 05 50 4C 41 20 3A 20 52 | TAX.r.n.PLA : R|
00000A70: 54 49 00 78 12 78 05 3B 00 8E 12 82 05 54 45 53 |TI.x.x.;.....TES|
00000A80: 54 54 49 4D 45 20 4C 44 41 20 46 4C 41 47 00 9E |TTIME LDA FLAG..|
00000A90: 12 8C 05 42 4E 45 20 54 49 4D 45 49 52 51 00 AD |...BNE TIMEIRQ..|
00000AA0: 12 96 05 4A 4D 50 20 54 45 53 A4 4C 44 00 B3 12 |...JMP TES.LD...|
00000AB0: A0 05 3B 00 DF 12 AA 05 54 49 4D 45 49 52 51 20 |..;.....TIMEIRQ |
00000AC0: 44 45 43 20 46 4C 41 47 20 3B 20 46 4C 41 47 20 |DEC FLAG ; FLAG |
00000AD0: 57 49 45 44 45 52 20 4C 4F 45 53 43 48 45 4E 00 |WIEDER LOESCHEN.|
00000AE0: 0A 13 B4 05 50 4C 41 20 3A 20 50 4C 41 20 3B 20 |....PLA : PLA ; |
00000AF0: 52 55 45 43 4B 53 50 8A 47 41 44 52 45 53 53 45 |RUECKSP.GADRESSE|
00000B00: 20 56 4F 4D 20 53 54 41 43 4B 00 15 13 BE 05 4C | VOM STACK.....L|
00000B10: 44 41 20 23 33 00 46 13 C8 05 4A 53 52 20 54 45 |DA #3.F...JSR TE|
00000B20: 53 54 53 54 41 43 4B 20 3B 20 4E 4F 43 48 20 47 |STSTACK ; NOCH G|
00000B30: 45 4E 55 45 47 80 20 50 4C 41 54 5A 20 41 55 46 |ENUEG. PLATZ AUF|
00000B40: 20 53 54 41 43 4B 00 57 13 D2 05 4C 44 41 20 54 | STACK.W...LDA T|
00000B50: 58 54 50 54 52 AA 31 00 76 13 DC 05 50 48 41 20 |XTPTR.1.v...PHA |
00000B60: 3B 20 43 48 52 A1 AB 50 4F B5 45 52 20 41 55 46 |; CHR..PO.ER AUF|
00000B70: 20 53 54 41 43 4B 00 85 13 E6 05 4C 44 41 20 54 | STACK.....LDA T|
00000B80: 58 54 50 54 52 00 8D 13 F0 05 50 48 41 00 9E 13 |XTPTR.....PHA...|
00000B90: FA 05 4C 44 41 20 4C 49 4E 45 4E 4F AA 31 00 BD |..LDA LINENO.1..|
00000BA0: 13 04 06 50 48 41 20 3B 20 5A 45 49 C3 4E 55 4D |...PHA ; ZEI.NUM|
00000BB0: 4D 45 52 20 41 55 46 20 53 54 41 43 4B 00 CC 13 |MER AUF STACK...|
00000BC0: 0E 06 4C 44 41 20 4C 49 4E 45 4E 4F 00 D4 13 18 |..LDA LINENO....|
00000BD0: 06 50 48 41 00 DF 13 22 06 4C 44 41 20 23 8D 00 |.PHA...".LDA #..|
00000BE0: FA 13 2C 06 50 48 41 20 3B 20 8D AB 4B 4F 44 45 |..,.PHA ; ..KODE|
00000BF0: 20 41 55 46 20 53 54 41 43 4B 00 0A 14 36 06 4C | AUF STACK...6.L|
00000C00: 44 41 20 4C 49 4E 45 53 54 52 00 32 14 40 06 53 |DA LINESTR.2.@.S|
00000C10: 54 41 20 54 58 54 50 54 52 20 3B 20 41 44 52 45 |TA TXTPTR ; ADRE|
00000C20: 53 53 45 20 44 45 52 20 53 55 42 52 4F 55 54 49 |SSE DER SUBROUTI|
00000C30: 4E 45 00 44 14 4A 06 4C 44 41 20 4C 49 4E 45 53 |NE.D.J.LDA LINES|
00000C40: 54 52 AA 31 00 55 14 54 06 53 54 41 20 54 58 54 |TR.1.U.T.STA TXT|
00000C50: 50 54 52 AA 31 00 79 14 5E 06 4A 4D 50 20 B5 45 |PTR.1.y.^.JMP .E|
00000C60: 52 AA 33 3B 20 5A 55 52 20 B5 45 52 50 52 45 54 |R.3; ZUR .ERPRET|
00000C70: 45 52 53 43 48 4C 45 8B 45 00 7F 14 68 06 3B 00 |ERSCHLE.E...h.;.|
00000C80: 8F 14 72 06 46 4C 41 47 20 AC B2 20 AC AA 31 00 |..r.FLAG .. ..1.|
00000C90: A2 14 7C 06 4C 49 4E 45 53 54 52 20 AC B2 20 AC |..|.LINESTR .. .|
00000CA0: AA 32 00 A9 14 86 06 2E 80 00 AF 14 90 06 80 00 |.2..............|
00000CB0: BF 14 9A 06 21 8D 20 31 37 32 30 2C 31 30 30 00 |....!. 1720,100.|
00000CC0: D8 14 A4 06 99 49 3A 49 B2 49 AA 31 3A 8B 49 B3 |.....I:I.I.1:.I.|
00000CD0: 31 30 30 89 31 37 30 30 00 E1 14 AE 06 21 8D 3A |100.1700.....!.:|
00000CE0: 80 00 FB 14 B8 06 99 22 93 22 4A 22 9D 2E 49 52 |......."."J"..IR|
00000CF0: 51 21 22 3A 4A B2 4A AA 31 3A 8E 00 00 00 |Q!":J.J.1:.... |
....Z.. 8.4096...D..OPT P,OO.1.N..TIT "B
ASIC-IRQ".S.X..SYM ; SYMBOLTABELLE AUSGE
BEN.Y...;.Y...; .ERRUPTROUTINE FUER BASI
C....;... .EXEC . $308 ; VEK.R FUER STA
TEMENT AUSFUEHREN.L...NMI . $318 ; NMI.V
EK.R...... . $328 ; ..VEK.R.....;...H.CI
A2 . $DD00...R.TIMERA . CIA2.4 ; TIMER A
.6...TIMERB . CIA2.6 ; TIMER B.`...ICR .
CIA2.13 ; .ERRUPT .ROL REGISTER.....CRA
. CIA2.14 ; .ROL REGISTER A.....CRB . C
IA2.15 ; .ROL REGISTER B.....;.T....NMI
. $FE56 ; ALTEN NMI .TSETZEN.Z...;...".F
UENFZIG . 19705 ; . 20 MILLISEKUNDEN...,
.LO . $14...6.HI . LO.1.1.@.LINEADR . $5
F.B.J.LINENO . $39.Q.T.CHR. . $73.D.^.CH
RKT . CHR..6.Y.H.TXTPTR . CHRKT.1...R..
. $8D ; ...KEN...|.SYNTAX . $AF08.....UN
.D . $A8E3.B....ER . $A7AE.V...ILLQUAN .
$B248......LIN . $A96B......ADR . $A613
.....CHKCOM . $AEFD...B.EXECOLD . $A7E7.
2.L.FRMNUM . $AD8A.D.V..EGER . $B7F7.Z..
.TESTSTACK . $A3FB.M...TES.LD . $F6ED...
..NMIOLD . $FE47.....;....... $CC00.....
INIT LDA #. TESTSTAT.....LDY #. TESTSTAT
.M.&.STA EXEC...0.STY EXEC.1...:.LDA #0.
..D.STA FLAG ; FLAG LOESCHEN...N.RTS...X
.;.@.B.TESTSTAT JSR CHR. ; NAECHSTES ZEI
CHEN HOC.M.L.CMP #"!".Z.V.BEQ TST......J
SR CHRKT ; FLAGS WIEDER HERSTELC.....JMP
EXECOLD ; N.MAL WEITER.....;.K...TST. J
SR CHR. ; NAECHSTES ZEICHEN.V...CMP #...
...BEQ OK ; JA.....JMP SYNTAX ; SYNTAX E
RR....F.OK JSR CHR..1.P.BEQ IRQOFF ; IRQ
.CHALTEN.O.Z.JSR .LIN ; ZEICNUMMER HOC.
T...JSR .ADR ; ADRESSE DER ZEILE HOC....
.BCS FOUND.....JMP UN.D ; UN.'D STATEMEN
T.....FOUND LDA LINEADR.B...SBC #1.....S
TA LINESTR ; ADRESSE MERKEN... .LDA LINE
ADR.1...*.SBC #0...4.STA LINESTR.1.1.>.J
SR CHKCOM ; KOMMA PRUEFEN.K.H.JSR FRMNUM
; WERT HOC.F.R.JSR .EGER ; NACH .EGER.Q
.\.LDA LO.{.F..A HI...P.BNE OK1...Z.JMP
ILLQUAN ; NULL.....OK1 LDA HI.....STA TI
MERB.1.I...LDA LO.X...STA TIMERB.....LDA
#. FUENFZIG.....STA TIMERA.1.....LDA #.
FUENFZIG. .J.STA TIMERA.E.T.LDA #%00010
001 ; TIMER A STARTEN.Q...STA CRA.V...LD
A #%01010001 ; TIMER B STARTEN.....STA C
RB.....LDA ICR ; ICR LOESCHEN.C...LDA #%
10000010 ; NMI FUER TIMER B.O...STA ICR.
....LDA #. TESTTIME...$.LDY #. TESTTIME.
....STA . ; ..VEK.R SETZEN...8.STY ..1.1
.B.LDA #. NMIROUT.D.L.LDY #. NMIROUT.C.V
.STA NMI ; NMI.VEK.R SETZEN.Q.`.STY NMI.
1...J.JMP .ER ; ZUR .ERPRETERSCHLE.E...T
.;...~.IRQOFF LDA #%01111111.T...STA ICR
; ALLE .ERRUPTS AUS.....LDA #. TES.LD..
...LDY #. TES.LD.....STA . ; ..VEK.R AUF
ALTEN WERT.'...STY ..1.9...LDA #. NMIOL
D.K.D.LDY #. NMIOLD.K.N.STA NMI; NMI AUF
ALTEN WERT.Y.X.STY NMI.1.....JMP .ER ;
ZUR .ERPRETERSCHLE.E.....;.....NMIROUT P
HA.....TXA : PHA.N...TYA : PHA.Z...LDY I
CR.....TYA...(.. #%10 ; TIMER B ABGELAUF
EN...2.BNE TIMEOUT...<.JMP .NMI.%.F.;.H.
P.TIMEOUT INC FLAG ; FLAG SETZEN.V.Z.PLA
: TAY.D.D.PLA : TAX.R.N.PLA : RTI.X.X.;
.....TESTTIME LDA FLAG.....BNE TIMEIRQ..
...JMP TES.LD... .;.....TIMEIRQ DEC FLAG
; FLAG WIEDER LOESCHEN.....PLA : PLA ;
RUECKSP.GADRESSE VOM STACK.....LDA #3.F.
H.JSR TESTSTACK ; NOCH GENUEG. PLATZ AUF
STACK.W.R.LDA TXTPTR.1.V...PHA ; CHR..P
O.ER AUF STACK.....LDA TXTPTR.....PHA...
..LDA LINENO.1.....PHA ; ZEICNUMMER AUF
STACK.L...LDA LINENO.T...PHA...".LDA #..
..,.PHA ; ..KODE AUF STACK...6.LDA LINES
TR.2.@.STA TXTPTR ; ADRESSE DER SUBROUTI
NE.D.J.LDA LINESTR.1.U.T.STA TXTPTR.1.Y.
^.JMP .ER.3; ZUR .ERPRETERSCHLE.E..H.;.
..R.FLAG .. ..1...|.LINESTR .. ..2......
............!. 1720,100.X....I:I.I.1:.I.
100.1700.....!.:......."."J"..IRQ!":J.J.
1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL