NEULIST $5000.SR
FILE INFORMATION
FILENAME(S): NEULIST $5000.SR
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 3 disk(s)
FILE HASH
754d0febd05940ac7d33dd4428104c358431947223b2abfa1d69de610fa5a405
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | NEULIST $5000.SR | PRG | Treasure Chest - ToGuMi | 9 | 3 | DOWNLOAD FILE |
| SONDERHEFT ASS | NEULIST $5000.SR | PRG | C64er | 9 | 3 | DOWNLOAD FILE |
| SONDERHEFT ASS | NEULIST $5000.SR | PRG | DuncanTwain | 9 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E4 1F 64 00 3B 2E 4C 49 31 2C 34 00 F0 1F |....d.;.LI1,4...|
00000010: 6E 00 3B 2E 53 59 31 2C 34 00 0D 20 78 00 3B 2E |n.;.SY1,4.. x.;.|
00000020: 4F 42 22 4E 45 55 4C 49 53 54 2E 4F 42 4A 20 24 |OB"NEULIST.OBJ $|
00000030: 35 2C 50 2C 57 22 00 34 20 82 00 3B 2D 2D 2D 2D |5,P,W".4 ..;----|
00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 5D 20 |-------------.] |
00000060: 8C 00 3B 20 50 52 4F 47 52 41 4D 4D 20 3A 20 4C |..; PROGRAMM : L|
00000070: 49 53 54 2D 52 4F 55 54 49 4E 45 20 56 45 52 41 |IST-ROUTINE VERA|
00000080: 45 4E 44 45 52 54 00 7B 20 8E 00 3B 20 4E 41 4D |ENDERT.{ ..; NAM|
00000090: 45 3A 20 4E 45 55 4C 49 53 54 2E 24 35 30 30 30 |E: NEULIST.$5000|
000000A0: 2E 53 52 43 00 95 20 90 00 3B 20 49 4E 49 54 20 |.SRC.. ..; INIT |
000000B0: 4D 49 54 20 53 59 53 20 35 2A 34 30 39 36 00 A5 |MIT SYS 5*4096..|
000000C0: 20 96 00 3B 20 4D 49 54 20 46 37 20 41 4E 00 BE | ..; MIT F7 AN..|
000000D0: 20 A0 00 3B 20 4D 49 54 20 46 31 20 41 55 53 53 | ..; MIT F1 AUSS|
000000E0: 43 48 41 4C 54 45 4E 00 E3 20 AA 00 3B 20 52 55 |CHALTEN.. ..; RU|
000000F0: 45 43 4B 54 20 46 4F 52 2E 2E 4E 45 58 54 2D 53 |ECKT FOR..NEXT-S|
00000100: 43 48 4C 45 49 46 45 4E 20 45 49 4E 00 08 21 B4 |CHLEIFEN EIN..!.|
00000110: 00 3B 20 55 4E 44 20 46 4F 52 2E 2E 4E 45 58 54 |.; UND FOR..NEXT|
00000120: 20 41 55 46 20 44 52 55 43 4B 45 52 20 46 45 54 | AUF DRUCKER FET|
00000130: 54 00 2F 21 BE 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |T./!..;---------|
00000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000150: 2D 2D 2D 2D 2D 2D 2D 2D 00 5E 21 C8 00 2E 45 51 |--------.^!...EQ|
00000160: 20 5A 41 45 48 4C 45 52 3D 20 24 46 45 3B 41 4E | ZAEHLER= $FE;AN|
00000170: 5A 41 48 4C 20 46 4F 52 2D 53 43 48 41 43 48 54 |ZAHL FOR-SCHACHT|
00000180: 45 4C 55 4E 47 45 4E 00 85 21 D2 00 2E 45 51 20 |ELUNGEN..!...EQ |
00000190: 43 48 52 4F 55 54 20 3D 20 24 46 46 44 32 3B 41 |CHROUT = $FFD2;A|
000001A0: 55 53 47 41 42 45 20 5A 45 49 43 48 45 4E 00 AB |USGABE ZEICHEN..|
000001B0: 21 D4 00 2E 45 51 20 53 54 52 4F 55 54 20 3D 20 |!...EQ STROUT = |
000001C0: 24 41 42 31 45 3B 41 55 53 47 41 42 45 20 53 54 |$AB1E;AUSGABE ST|
000001D0: 52 49 4E 47 00 D1 21 DC 00 2E 45 51 20 49 52 51 |RING..!...EQ IRQ|
000001E0: 56 45 43 20 3D 20 24 30 33 31 34 3B 56 45 4B 54 |VEC = $0314;VEKT|
000001F0: 4F 52 20 41 55 46 20 49 52 51 00 EC 21 E6 00 2E |OR AUF IRQ..!...|
00000200: 45 51 20 49 52 51 20 20 20 20 3D 20 24 45 41 33 |EQ IRQ = $EA3|
00000210: 31 3B 49 52 51 00 13 22 F0 00 2E 45 51 20 43 54 |1;IRQ.."...EQ CT|
00000220: 52 4C 20 20 20 3D 20 24 30 32 38 44 20 3B 46 4C |RL = $028D ;FL|
00000230: 41 47 20 46 55 45 52 20 43 54 52 4C 00 38 22 FA |AG FUER CTRL.8".|
00000240: 00 2E 45 51 20 4B 45 59 20 20 20 20 3D 20 24 30 |..EQ KEY = $0|
00000250: 30 43 42 20 3B 4C 45 54 5A 54 45 20 54 41 53 54 |0CB ;LETZTE TAST|
00000260: 45 00 5F 22 04 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |E._"..;---------|
00000270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000280: 2D 2D 2D 2D 2D 2D 2D 2D 00 7B 22 0E 01 2E 42 41 |--------.{"...BA|
00000290: 20 24 35 30 30 30 20 3B 53 54 41 52 54 41 44 52 | $5000 ;STARTADR|
000002A0: 45 53 53 45 00 A2 22 18 01 3B 2D 2D 2D 2D 2D 2D |ESSE.."..;------|
000002B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 CE 22 22 01 |-----------.."".|
000002D0: 3B 49 4E 54 45 52 52 55 50 54 20 41 55 46 20 45 |;INTERRUPT AUF E|
000002E0: 49 47 45 4E 45 20 52 4F 55 54 49 4E 45 20 56 45 |IGENE ROUTINE VE|
000002F0: 52 42 49 45 47 45 4E 00 D7 22 2C 01 20 53 45 49 |RBIEGEN..",. SEI|
00000300: 00 E9 22 36 01 20 4C 44 41 23 3C 28 53 54 41 52 |.."6. LDA#<(STAR|
00000310: 54 29 00 00 23 40 01 20 53 54 41 49 52 51 56 45 |T)..#@. STAIRQVE|
00000320: 43 3B 4C 4F 2D 42 59 54 45 00 12 23 4A 01 20 4C |C;LO-BYTE..#J. L|
00000330: 44 41 23 3E 28 53 54 41 52 54 29 00 2B 23 54 01 |DA#>(START).+#T.|
00000340: 20 53 54 41 49 52 51 56 45 43 2B 31 3B 48 49 2D | STAIRQVEC+1;HI-|
00000350: 42 59 54 45 00 34 23 5E 01 20 43 4C 49 00 3D 23 |BYTE.4#^. CLI.=#|
00000360: 68 01 20 52 54 53 00 63 23 6A 01 3B 2D 2D 2D 2D |h. RTS.c#j.;----|
00000370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 82 23 6C |------------..#l|
00000390: 01 53 54 41 52 54 20 4C 44 41 4B 45 59 3B 57 45 |.START LDAKEY;WE|
000003A0: 4C 43 48 45 20 54 41 53 54 45 3F 00 94 23 6E 01 |LCHE TASTE?..#n.|
000003B0: 46 37 20 43 4D 50 23 33 3B 46 37 20 3F 00 A4 23 |F7 CMP#3;F7 ?..#|
000003C0: 6F 01 20 42 4E 45 46 31 3B 4E 45 49 4E 00 C5 23 |o. BNEF1;NEIN..#|
000003D0: 70 01 20 4A 53 52 4C 49 53 54 4E 45 55 3B 4E 45 |p. JSRLISTNEU;NE|
000003E0: 55 45 20 4C 49 53 54 52 4F 55 54 49 4E 45 00 D7 |UE LISTROUTINE..|
000003F0: 23 71 01 46 31 20 43 4D 50 23 34 3B 46 31 20 3F |#q.F1 CMP#4;F1 ?|
00000400: 00 EB 23 72 01 20 42 4E 45 4F 4C 44 49 52 51 3B |..#r. BNEOLDIRQ;|
00000410: 4E 45 49 4E 00 0C 24 73 01 20 4A 53 52 4C 49 53 |NEIN..$s. JSRLIS|
00000420: 54 41 4C 54 3B 41 4C 54 45 20 4C 49 53 54 52 4F |TALT;ALTE LISTRO|
00000430: 55 54 49 4E 45 00 1E 24 74 01 4F 4C 44 49 52 51 |UTINE..$t.OLDIRQ|
00000440: 20 4A 4D 50 49 52 51 00 24 24 75 01 3B 00 4A 24 | JMPIRQ.$$u.;.J$|
00000450: 76 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |v.;-------------|
00000460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000470: 2D 2D 2D 00 50 24 7C 01 3B 00 7C 24 86 01 3B 20 |---.P$|.;.|$..; |
00000480: 20 20 20 20 4C 49 53 54 56 45 4B 54 4F 52 20 41 | LISTVEKTOR A|
00000490: 55 46 20 45 49 47 45 4E 45 20 4C 49 53 54 52 4F |UF EIGENE LISTRO|
000004A0: 55 54 49 4E 45 00 9C 24 8B 01 3B 20 20 20 20 20 |UTINE..$..; |
000004B0: 53 54 41 52 54 20 42 45 49 20 4C 41 42 45 4C 22 |START BEI LABEL"|
000004C0: 4C 49 53 54 22 00 B4 24 90 01 4C 49 53 54 4E 45 |LIST"..$..LISTNE|
000004D0: 55 20 4C 44 41 23 3C 28 4C 49 53 54 29 00 D0 24 |U LDA#<(LIST)..$|
000004E0: 9A 01 20 53 54 41 24 30 33 30 36 3B 4C 49 53 54 |.. STA$0306;LIST|
000004F0: 56 45 4B 54 4F 52 20 4C 4F 00 E9 24 A4 01 20 4C |VEKTOR LO..$.. L|
00000500: 44 41 23 3E 28 4C 49 53 54 29 3B 48 49 2D 42 59 |DA#>(LIST);HI-BY|
00000510: 54 45 00 F7 24 AE 01 20 53 54 41 24 30 33 30 37 |TE..$.. STA$0307|
00000520: 00 02 25 B8 01 20 4C 44 41 23 30 00 12 25 C2 01 |..%.. LDA#0..%..|
00000530: 20 53 54 41 5A 41 45 48 4C 45 52 00 26 25 C4 01 | STAZAEHLER.&%..|
00000540: 20 4C 44 41 23 24 46 36 3B 42 4C 41 55 45 52 00 | LDA#$F6;BLAUER.|
00000550: 3B 25 C5 01 20 53 54 41 24 44 30 32 30 3B 52 41 |;%.. STA$D020;RA|
00000560: 48 4D 45 4E 00 44 25 CC 01 20 52 54 53 00 4A 25 |HMEN.D%.. RTS.J%|
00000570: D6 01 3B 00 50 25 E0 01 3B 00 6D 25 E5 01 3B 41 |..;.P%..;.m%..;A|
00000580: 4C 54 45 4E 20 4C 49 53 54 56 45 4B 54 4F 52 20 |LTEN LISTVEKTOR |
00000590: 28 41 37 31 41 29 00 8A 25 E6 01 3B 57 49 45 44 |(A71A)..%..;WIED|
000005A0: 45 52 48 45 52 53 54 45 4C 4C 45 4E 20 4D 49 54 |ERHERSTELLEN MIT|
000005B0: 20 46 31 00 9E 25 EA 01 4C 49 53 54 41 4C 54 20 | F1..%..LISTALT |
000005C0: 4C 44 41 23 24 31 41 00 AC 25 F4 01 20 53 54 41 |LDA#$1A..%.. STA|
000005D0: 24 30 33 30 36 00 B9 25 FE 01 20 4C 44 41 23 24 |$0306..%.. LDA#$|
000005E0: 41 37 00 C7 25 08 02 20 53 54 41 24 30 33 30 37 |A7..%.. STA$0307|
000005F0: 00 DB 25 0A 02 20 4C 44 41 23 24 46 42 3B 47 52 |..%.. LDA#$FB;GR|
00000600: 41 55 45 52 00 F0 25 0B 02 20 53 54 41 24 44 30 |AUER..%.. STA$D0|
00000610: 32 30 3B 52 41 48 4D 45 4E 00 F9 25 12 02 20 52 |20;RAHMEN..%.. R|
00000620: 54 53 00 1F 26 1C 02 3B 2A 2A 2A 2A 2A 2A 2A 2A |TS..&..;********|
00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 00 2B 26 E8 03 3B 2E 4C |********.+&..;.L|
00000650: 49 31 2C 34 00 38 26 F2 03 4C 49 53 54 20 50 48 |I1,4.8&..LIST PH|
00000660: 41 00 4A 26 FC 03 20 4A 53 52 4E 4F 52 4D 44 52 |A.J&.. JSRNORMDR|
00000670: 55 43 4B 00 5D 26 88 04 20 43 4D 50 23 24 38 32 |UCK.]&.. CMP#$82|
00000680: 3B 4E 45 58 54 3F 00 6E 26 92 04 20 42 4E 45 4C |;NEXT?.n&.. BNEL|
00000690: 49 31 3B 4E 45 49 4E 00 84 26 9C 04 20 44 45 43 |I1;NEIN..&.. DEC|
000006A0: 5A 41 45 48 4C 45 52 3B 4E 3D 4E 2D 31 00 96 26 |ZAEHLER;N=N-1..&|
000006B0: 9E 04 20 4A 53 52 46 45 54 54 44 52 55 43 4B 00 |.. JSRFETTDRUCK.|
000006C0: B2 26 A6 04 4C 49 31 20 43 50 59 23 34 3B 5A 45 |.&..LI1 CPY#4;ZE|
000006D0: 49 4C 45 4E 41 4E 46 41 4E 47 3F 00 BE 26 B0 04 |ILENANFANG?..&..|
000006E0: 20 42 4E 45 4C 49 32 00 CF 26 B5 04 20 4A 53 52 | BNELI2..&.. JSR|
000006F0: 42 4C 41 4E 4B 4F 55 54 00 E0 26 B7 04 20 4A 53 |BLANKOUT..&.. JS|
00000700: 52 42 4C 41 4E 4B 4F 55 54 00 F6 26 BA 04 4C 49 |RBLANKOUT..&..LI|
00000710: 32 20 43 4D 50 23 24 38 31 3B 46 4F 52 20 3F 00 |2 CMP#$81;FOR ?.|
00000720: 04 27 C4 04 20 42 4E 45 4C 49 4F 55 54 00 16 27 |.'.. BNELIOUT..'|
00000730: C6 04 20 4A 53 52 46 45 54 54 44 52 55 43 4B 00 |.. JSRFETTDRUCK.|
00000740: 2C 27 D8 04 20 49 4E 43 5A 41 45 48 4C 45 52 3B |,'.. INCZAEHLER;|
00000750: 4E 3D 4E 2B 31 00 3A 27 32 05 4C 49 4F 55 54 20 |N=N+1.:'2.LIOUT |
00000760: 50 4C 41 00 4D 27 3C 05 20 4A 4D 50 24 41 37 31 |PLA.M'<. JMP$A71|
00000770: 41 3B 4C 49 53 54 00 53 27 46 05 3B 00 78 27 50 |A;LIST.S'F.;.x'P|
00000780: 05 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
00000790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007A0: 2D 00 8A 27 DC 05 46 45 54 54 44 52 55 43 4B 20 |-..'..FETTDRUCK |
000007B0: 50 48 41 00 9F 27 E6 05 20 4C 44 41 24 39 41 3B |PHA..'.. LDA$9A;|
000007C0: 43 4D 44 20 3D 20 34 3F 00 AA 27 F0 05 20 43 4D |CMD = 4?..'.. CM|
000007D0: 50 23 34 00 BD 27 FA 05 20 42 4E 45 46 45 4F 55 |P#4..'.. BNEFEOU|
000007E0: 54 3B 4E 45 49 4E 00 C6 27 04 06 20 54 59 41 00 |T;NEIN..'.. TYA.|
000007F0: CF 27 0E 06 20 50 48 41 00 E8 27 18 06 20 4C 44 |.'.. PHA..'.. LD|
00000800: 41 23 3C 28 46 45 54 54 29 3B 44 52 55 43 4B 45 |A#<(FETT);DRUCKE|
00000810: 52 00 FD 27 22 06 20 4C 44 59 23 3E 28 46 45 54 |R..'". LDY#>(FET|
00000820: 54 29 3B 41 55 46 00 16 28 2C 06 20 4A 53 52 53 |T);AUF..(,. JSRS|
00000830: 54 52 4F 55 54 3B 46 45 54 54 44 52 55 43 4B 00 |TROUT;FETTDRUCK.|
00000840: 1F 28 36 06 20 50 4C 41 00 28 28 40 06 20 54 41 |.(6. PLA.((@. TA|
00000850: 59 00 36 28 4A 06 46 45 4F 55 54 20 50 4C 41 00 |Y.6(J.FEOUT PLA.|
00000860: 3F 28 54 06 20 52 54 53 00 5E 28 5E 06 46 45 54 |?(T. RTS.^(^.FET|
00000870: 54 20 2E 42 59 32 37 2C 22 45 22 2C 30 3B 46 45 |T .BY27,"E",0;FE|
00000880: 54 54 44 52 55 43 4B 00 83 28 68 06 3B 2D 2D 2D |TTDRUCK..(h.;---|
00000890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 95 28 A4 |------------..(.|
000008B0: 06 4E 4F 52 4D 44 52 55 43 4B 20 50 48 41 00 A7 |.NORMDRUCK PHA..|
000008C0: 28 AE 06 20 4C 44 41 24 39 41 3B 43 4D 44 34 3F |(.. LDA$9A;CMD4?|
000008D0: 00 B2 28 B8 06 20 43 4D 50 23 34 00 C5 28 C2 06 |..(.. CMP#4..(..|
000008E0: 20 42 4E 45 4E 4F 4F 55 54 3B 4E 45 49 4E 00 CE | BNENOOUT;NEIN..|
000008F0: 28 CC 06 20 54 59 41 00 D7 28 D6 06 20 50 48 41 |(.. TYA..(.. PHA|
00000900: 00 F2 28 E0 06 20 4C 44 41 23 3C 28 4E 4F 52 4D |..(.. LDA#<(NORM|
00000910: 29 3B 46 45 54 54 44 52 55 43 4B 00 03 29 EA 06 |);FETTDRUCK..)..|
00000920: 20 4C 44 59 23 3E 28 4E 4F 52 4D 29 00 12 29 F4 | LDY#>(NORM)..).|
00000930: 06 20 4A 53 52 53 54 52 4F 55 54 00 1B 29 FE 06 |. JSRSTROUT..)..|
00000940: 20 50 4C 41 00 24 29 08 07 20 54 41 59 00 32 29 | PLA.$).. TAY.2)|
00000950: 12 07 4E 4F 4F 55 54 20 50 4C 41 00 3B 29 1C 07 |..NOOUT PLA.;)..|
00000960: 20 52 54 53 00 5E 29 26 07 4E 4F 52 4D 20 2E 42 | RTS.^)&.NORM .B|
00000970: 59 32 37 2C 22 46 22 2C 30 3B 46 45 54 54 44 52 |Y27,"F",0;FETTDR|
00000980: 55 43 4B 20 41 55 53 00 83 29 30 07 3B 2D 2D 2D |UCK AUS..)0.;---|
00000990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000009A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A7 29 D0 |------------..).|
000009B0: 07 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
000009C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000009D0: 00 D0 29 DA 07 42 4C 41 4E 4B 4F 55 54 20 4C 44 |..)..BLANKOUT LD|
000009E0: 58 5A 41 45 48 4C 45 52 3B 41 55 53 47 41 42 45 |XZAEHLER;AUSGABE|
000009F0: 20 4E 20 42 4C 41 4E 4B 53 00 E7 29 DF 07 20 42 | N BLANKS..).. B|
00000A00: 50 4C 42 4C 31 3B 57 45 4E 4E 20 3C 20 31 32 38 |PLBL1;WENN < 128|
00000A10: 00 F7 29 E0 07 20 49 4E 43 5A 41 45 48 4C 45 52 |..).. INCZAEHLER|
00000A20: 00 11 2A E1 07 20 42 4D 49 42 4C 41 4E 4B 4F 55 |..*.. BMIBLANKOU|
00000A30: 54 3B 57 45 4E 4E 3E 31 32 38 00 22 2A E4 07 42 |T;WENN>128."*..B|
00000A40: 4C 31 20 42 45 51 42 4C 4F 55 54 00 3C 2A EE 07 |L1 BEQBLOUT.<*..|
00000A50: 20 4A 53 52 42 4C 41 4E 4B 3B 4C 45 45 52 5A 45 | JSRBLANK;LEERZE|
00000A60: 49 43 48 45 4E 00 45 2A 02 08 20 44 45 58 00 51 |ICHEN.E*.. DEX.Q|
00000A70: 2A 0C 08 20 4A 4D 50 42 4C 31 00 5F 2A 16 08 42 |*.. JMPBL1._*..B|
00000A80: 4C 4F 55 54 20 52 54 53 00 65 2A 20 08 3B 00 89 |LOUT RTS.e* .;..|
00000A90: 2A 2A 08 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |**.;------------|
00000AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000AB0: 2D 2D 00 A4 2A 34 08 43 52 20 50 48 41 3B 20 5A |--..*4.CR PHA; Z|
00000AC0: 45 49 4C 45 4E 56 4F 52 53 43 48 55 42 00 B7 2A |EILENVORSCHUB..*|
00000AD0: 3E 08 20 4C 44 41 23 31 33 3B 52 45 54 55 52 4E |>. LDA#13;RETURN|
00000AE0: 00 C6 2A 48 08 20 4A 53 52 43 48 52 4F 55 54 00 |..*H. JSRCHROUT.|
00000AF0: CF 2A 52 08 20 50 4C 41 00 D8 2A 5C 08 20 52 54 |.*R. PLA..*\. RT|
00000B00: 53 00 F9 2A 66 08 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |S..*f.;---------|
00000B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B20: 2D 2D 00 FF 2A 70 08 3B 00 19 2B 7A 08 42 4C 41 |--..*p.;..+z.BLA|
00000B30: 4E 4B 20 50 48 41 3B 4C 45 45 52 5A 45 49 43 48 |NK PHA;LEERZEICH|
00000B40: 45 4E 00 26 2B 84 08 20 4C 44 41 23 22 20 22 00 |EN.&+.. LDA#" ".|
00000B50: 35 2B 8E 08 20 4A 53 52 43 48 52 4F 55 54 00 3E |5+.. JSRCHROUT.>|
00000B60: 2B 98 08 20 50 4C 41 00 47 2B A2 08 20 52 54 53 |+.. PLA.G+.. RTS|
00000B70: 00 4D 2B AC 08 3B 00 70 2B B6 08 3B 2D 2D 2D 2D |.M+..;.p+..;----|
00000B80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 78 2B 0F 27 2E 45 |---------.x+.'.E|
00000BA0: 4E 00 03 00 |N... |
X...D.;.LI1,4...N.;.SY1,4.. X.;.OB"NEULI
ST.OBJ $5,P,W".4 ..;--------------------
-------------.] ..; PROGRAMM : LIST-ROUT
INE VERAENDERT.{ ..; NAME: NEULIST.$5000
.SRC.. ..; INIT MIT SYS 5*4096.. ..; MIT
F7 AN.. .; MIT F1 AUSSCHALTEN.. ..; RU
ECKT FOR..NEXT-SCHLEIFEN EIN..!..; UND F
OR..NEXT AUF DRUCKER FETT./!..;---------
------------------------.^!H..EQ ZAEHLER
= $FE;ANZAHL FOR-SCHACHTELUNGEN..!R..EQ
CHROUT = $FFD2;AUSGABE ZEICHEN..!T..EQ S
TROUT = $AB1E;AUSGABE STRING.Q!...EQ IRQ
VEC = $0314;VEKTOR AUF IRQ..!...EQ IRQ
= $EA31;IRQ.."...EQ CTRL = $028D ;FL
AG FUER CTRL.8"...EQ KEY = $00CB ;LET
ZTE TASTE._"..;-------------------------
--------.{"...BA $5000 ;STARTADRESSE..".
.;---------------------------------.N"".
;INTERRUPT AUF EIGENE ROUTINE VERBIEGEN.
W",. SEI.."6. LDA#<(START)..#@. STAIRQVE
C;LO-BYTE..#J. LDA#>(START).+#T. STAIRQV
EC+1;HI-BYTE.4#^. CLI.=#H. RTS.C#J.;----
----------------------------..#L.START L
DAKEY;WELCHE TASTE?..#N.F7 CMP#3;F7 ?..#
O. BNEF1;NEIN.E#P. JSRLISTNEU;NEUE LISTR
OUTINE.W#Q.F1 CMP#4;F1 ?..#R. BNEOLDIRQ;
NEIN..$S. JSRLISTALT;ALTE LISTROUTINE..$
T.OLDIRQ JMPIRQ.$$U.;.J$V.;-------------
-------------------.P$|.;.|$..; LIST
VEKTOR AUF EIGENE LISTROUTINE..$..;
START BEI LABEL"LIST"..$..LISTNEU LDA#<(
LIST).P$.. STA$0306;LISTVEKTOR LO..$.. L
DA#>(LIST);HI-BYTE..$.. STA$0307..%.. LD
A#0..%B. STAZAEHLER.&%D. LDA#$F6;BLAUER.
;%E. STA$D020;RAHMEN.D%L. RTS.J%V.;.P%..
;.M%..;ALTEN LISTVEKTOR (A71A)..%..;WIED
ERHERSTELLEN MIT F1..%..LISTALT LDA#$1A.
.%.. STA$0306..%.. LDA#$A7.G%.. STA$0307
..%.. LDA#$FB;GRAUER..%.. STA$D020;RAHME
N..%.. RTS..&..;************************
********.+&..;.LI1,4.8&..LIST PHA.J&.. J
SRNORMDRUCK.]&.. CMP#$82;NEXT?.N&.. BNEL
I1;NEIN..&.. DECZAEHLER;N=N-1..&.. JSRFE
TTDRUCK..&..LI1 CPY#4;ZEILENANFANG?..&..
BNELI2.O&.. JSRBLANKOUT..&.. JSRBLANKOU
T..&..LI2 CMP#$81;FOR ?..'D. BNELIOUT..'
F. JSRFETTDRUCK.,'X. INCZAEHLER;N=N+1.:'
2.LIOUT PLA.M'<. JMP$A71A;LIST.S'F.;.X'P
.;-------------------------------..'..FE
TTDRUCK PHA..'.. LDA$9A;CMD = 4?..'.. CM
P#4..'.. BNEFEOUT;NEIN.F'.. TYA.O'.. PHA
..'.. LDA#<(FETT);DRUCKER..'". LDY#>(FET
T);AUF..(,. JSRSTROUT;FETTDRUCK..(6. PLA
.((@. TAY.6(J.FEOUT PLA.?(T. RTS.^(^.FET
T .BY27,"E",0;FETTDRUCK..(H.;-----------
--------------------..(..NORMDRUCK PHA..
(.. LDA$9A;CMD4?..(.. CMP#4.E(B. BNENOOU
T;NEIN.N(L. TYA.W(V. PHA..(.. LDA#<(NORM
);FETTDRUCK..).. LDY#>(NORM)..).. JSRSTR
OUT..).. PLA.$).. TAY.2)..NOOUT PLA.;)..
RTS.^)&.NORM .BY27,"F",0;FETTDRUCK AUS.
.)0.;-------------------------------..)P
.;------------------------------.P)Z.BLA
NKOUT LDXZAEHLER;AUSGABE N BLANKS..).. B
PLBL1;WENN < 128..).. INCZAEHLER..*.. BM
IBLANKOUT;WENN>128."*..BL1 BEQBLOUT.<*..
JSRBLANK;LEERZEICHEN.E*.. DEX.Q*.. JMPB
L1._*..BLOUT RTS.E* .;..**.;------------
------------------..*4.CR PHA; ZEILENVOR
SCHUB..*>. LDA#13;RETURN.F*H. JSRCHROUT.
O*R. PLA.X*\. RTS..*F.;-----------------
----------..*P.;..+Z.BLANK PHA;LEERZEICH
EN.&+.. LDA#" ".5+.. JSRCHROUT.>+.. PLA.
G+.. RTS.M+..;.P+..;--------------------
---------.X+.'.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL