IRQ-LOAD.SRC
FILE INFORMATION
FILENAME(S): IRQ-LOAD.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 01:12:59
APPEARS ON: 1 disk(s)
FILE HASH
29bb0edd352680e05941bda5001baa5443840a9f342cfafa22e920f534c7a679
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10203 SEITE A | IRQ-LOAD.SRC | PRG | C64er | 10 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 7C 2F 8A 2F 00 00 2E 42 41 20 24 34 30 30 30 00 ||/./...BA $4000.|
00000010: 90 2F 01 00 3B 00 96 2F 02 00 3B 00 9C 2F 03 00 |./..;../..;../..|
00000020: 3B 00 C6 2F 04 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |;../..;*********|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 2F 05 00 |***********../..|
00000050: 3B 2A 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 49 |;* *** I|
00000060: 52 51 4C 4F 41 44 20 2A 2A 2A 20 20 20 20 20 20 |RQLOAD *** |
00000070: 20 20 20 20 2A 00 1A 30 06 00 3B 2A 20 55 4E 49 | *..0..;* UNI|
00000080: 56 45 52 53 45 4C 4C 45 52 20 20 49 52 51 2D 4C |VERSELLER IRQ-L|
00000090: 41 44 45 52 20 56 4F 4E 20 44 49 53 4B 20 2A 00 |ADER VON DISK *.|
000000A0: 44 30 07 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |D0..;***********|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4A 30 08 00 3B 00 |*********.J0..;.|
000000D0: 70 30 09 00 3B 20 20 20 20 49 4E 20 31 39 39 31 |p0..; IN 1991|
000000E0: A0 42 59 20 4D 49 43 48 41 45 4C 20 56 4F 4E 20 |.BY MICHAEL VON |
000000F0: 48 55 53 45 4E 00 76 30 0A 00 3B 00 9C 30 0B 00 |HUSEN.v0..;..0..|
00000100: 3B 20 20 20 20 28 4D 49 43 52 41 4C 20 4F 46 20 |; (MICRAL OF |
00000110: 5A 4F 4F 4D 2F 42 52 45 4D 45 52 48 41 56 45 4E |ZOOM/BREMERHAVEN|
00000120: 29 00 A2 30 0C 00 3B 00 CD 30 0D 00 3B 3D 3D 3D |)..0..;..0..;===|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000150: 3D 3D 00 D3 30 0E 00 3B 00 EF 30 0F 00 3B 56 41 |==..0..;..0..;VA|
00000160: 52 49 41 42 4C 45 4E 20 26 20 4B 4F 4E 53 54 41 |RIABLEN & KONSTA|
00000170: 4E 54 45 4E 00 F5 30 10 00 3B 00 0D 31 11 00 2E |NTEN..0..;..1...|
00000180: 45 51 20 41 4E 46 41 44 20 20 20 20 20 3D 20 31 |EQ ANFAD = 1|
00000190: 36 36 00 25 31 12 00 2E 45 51 20 45 4E 44 41 44 |66.%1...EQ ENDAD|
000001A0: 20 20 20 20 20 3D 20 31 36 38 00 3D 31 13 00 2E | = 168.=1...|
000001B0: 45 51 20 53 54 20 20 20 20 20 20 20 20 3D 20 24 |EQ ST = $|
000001C0: 39 30 00 57 31 14 00 2E 45 51 20 53 45 54 4E 41 |90.W1...EQ SETNA|
000001D0: 4D 20 20 20 20 3D 20 24 46 46 42 44 00 71 31 15 |M = $FFBD.q1.|
000001E0: 00 2E 45 51 20 53 45 54 4C 46 53 20 20 20 20 3D |..EQ SETLFS =|
000001F0: 20 24 46 46 42 41 00 8B 31 16 00 2E 45 51 20 4F | $FFBA..1...EQ O|
00000200: 50 45 4E 20 20 20 20 20 20 3D 20 24 46 46 43 30 |PEN = $FFC0|
00000210: 00 A5 31 17 00 2E 45 51 20 43 48 4B 49 4E 20 20 |..1...EQ CHKIN |
00000220: 20 20 20 3D 20 24 46 46 43 36 00 BF 31 18 00 2E | = $FFC6..1...|
00000230: 45 51 20 43 4C 4F 53 45 20 20 20 20 20 3D 20 24 |EQ CLOSE = $|
00000240: 46 46 43 33 00 D9 31 19 00 2E 45 51 20 43 4C 52 |FFC3..1...EQ CLR|
00000250: 43 48 20 20 20 20 20 3D 20 24 46 46 43 43 00 DF |CH = $FFCC..|
00000260: 31 1A 00 3B 00 0A 32 1B 00 3B 3D 3D 3D 3D 3D 3D |1..;..2..;======|
00000270: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000280: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00000290: 10 32 1C 00 3B 00 16 32 1D 00 3B 00 23 32 1E 00 |.2..;..2..;.#2..|
000002A0: 3B 20 27 4F 50 45 4E 27 00 29 32 1F 00 3B 00 40 |; 'OPEN'.)2..;.@|
000002B0: 32 20 00 20 4C 44 41 4C 45 4E 47 3B 46 49 4C 45 |2 . LDALENG;FILE|
000002C0: 4E 41 4D 45 4E 00 5A 32 21 00 20 4C 44 58 23 3C |NAMEN.Z2!. LDX#<|
000002D0: 28 46 49 4C 45 4E 41 4D 45 29 3B 46 55 45 52 00 |(FILENAME);FUER.|
000002E0: 74 32 22 00 20 4C 44 59 23 3E 28 46 49 4C 45 4E |t2". LDY#>(FILEN|
000002F0: 41 4D 45 29 3B 4F 50 45 4E 00 8A 32 23 00 20 4A |AME);OPEN..2#. J|
00000300: 53 52 53 45 54 4E 41 4D 3B 53 45 54 5A 45 4E 00 |SRSETNAM;SETZEN.|
00000310: 90 32 24 00 3B 00 A6 32 25 00 20 4C 44 41 23 31 |.2$.;..2%. LDA#1|
00000320: 3B 4B 41 4E 2E 4E 55 4D 4D 45 52 00 B8 32 26 00 |;KAN.NUMMER..2&.|
00000330: 20 4C 44 58 23 38 3B 46 4C 4F 50 50 59 00 D0 32 | LDX#8;FLOPPY..2|
00000340: 27 00 20 4C 44 59 23 30 3B 53 45 4B 2E 41 44 44 |'. LDY#0;SEK.ADD|
00000350: 52 45 53 53 45 00 E6 32 28 00 20 4A 53 52 53 45 |RESSE..2(. JSRSE|
00000360: 54 4C 46 53 3B 53 45 54 5A 45 4E 00 EC 32 29 00 |TLFS;SETZEN..2).|
00000370: 3B 00 12 33 2A 00 20 4A 53 52 4F 50 45 4E 3B 57 |;..3*. JSROPEN;W|
00000380: 49 45 20 4F 50 45 4E 31 2C 38 2C 30 2C 22 46 49 |IE OPEN1,8,0,"FI|
00000390: 4C 45 4E 41 4D 45 22 00 18 33 2B 00 3B 00 43 33 |LENAME"..3+.;.C3|
000003A0: 2C 00 3B 20 57 41 52 54 45 53 43 48 4C 45 49 46 |,.; WARTESCHLEIF|
000003B0: 45 20 42 49 53 20 46 4C 4F 50 50 59 20 53 45 4E |E BIS FLOPPY SEN|
000003C0: 44 45 42 45 52 45 49 54 00 49 33 2D 00 3B 00 54 |DEBEREIT.I3-.;.T|
000003D0: 33 2E 00 20 4C 44 58 23 30 00 5F 33 2F 00 20 4C |3.. LDX#0._3/. L|
000003E0: 44 59 23 30 00 6F 33 30 00 4C 4F 4F 50 20 4A 53 |DY#0.o30.LOOP JS|
000003F0: 52 52 54 53 00 7B 33 31 00 20 4A 53 52 52 54 53 |RRTS.{31. JSRRTS|
00000400: 00 87 33 32 00 20 4A 53 52 52 54 53 00 90 33 33 |..32. JSRRTS..33|
00000410: 00 20 44 45 58 00 9D 33 34 00 20 42 4E 45 4C 4F |. DEX..34. BNELO|
00000420: 4F 50 00 A6 33 35 00 20 44 45 59 00 B3 33 36 00 |OP..35. DEY..36.|
00000430: 20 42 4E 45 4C 4F 4F 50 00 B9 33 37 00 3B 00 D6 | BNELOOP..37.;..|
00000440: 33 38 00 3B 20 41 55 46 20 45 49 4E 47 41 42 45 |38.; AUF EINGABE|
00000450: 20 55 4D 53 43 48 41 4C 54 45 4E 00 DC 33 39 00 | UMSCHALTEN..39.|
00000460: 3B 00 E7 33 3A 00 20 4C 44 58 23 31 00 F5 33 3B |;..3:. LDX#1..3;|
00000470: 00 20 4A 53 52 43 48 4B 49 4E 00 FB 33 3C 00 3B |. JSRCHKIN..3<.;|
00000480: 00 14 34 3D 00 3B 20 53 54 41 52 54 41 44 52 45 |..4=.; STARTADRE|
00000490: 53 53 45 20 48 4F 4C 45 4E 00 32 34 3E 00 3B 20 |SSE HOLEN.24>.; |
000004A0: 28 55 4E 44 20 41 4C 53 20 5A 45 49 47 45 52 20 |(UND ALS ZEIGER |
000004B0: 53 45 54 5A 45 4E 29 00 38 34 3F 00 3B 00 51 34 |SETZEN).84?.;.Q4|
000004C0: 40 00 20 4A 53 52 4E 45 57 49 4E 3B 44 49 45 20 |@. JSRNEWIN;DIE |
000004D0: 45 52 53 54 45 4E 00 66 34 41 00 20 53 54 41 41 |ERSTEN.f4A. STAA|
000004E0: 4E 46 41 44 3B 42 45 49 44 45 4E 00 7F 34 42 00 |NFAD;BEIDEN..4B.|
000004F0: 20 53 54 41 45 4E 44 41 44 3B 42 59 54 45 53 20 | STAENDAD;BYTES |
00000500: 53 49 4E 44 00 9B 34 43 00 20 4A 53 52 4E 45 57 |SIND..4C. JSRNEW|
00000510: 49 4E 3B 53 54 41 52 54 41 44 44 52 45 53 53 45 |IN;STARTADDRESSE|
00000520: 00 B5 34 44 00 20 53 54 41 41 4E 46 41 44 2B 31 |..4D. STAANFAD+1|
00000530: 3B 44 45 53 20 46 49 4C 45 53 00 D3 34 45 00 20 |;DES FILES..4E. |
00000540: 53 54 41 45 4E 44 41 44 2B 31 3B 49 4D 20 53 50 |STAENDAD+1;IM SP|
00000550: 45 49 43 48 45 52 20 21 00 D9 34 46 00 3B 00 04 |EICHER !..4F.;..|
00000560: 35 47 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |5G.;============|
00000570: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000580: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 0A 35 48 00 3B 00 |=========..5H.;.|
00000590: 30 35 49 00 3B 20 44 41 54 45 4E 20 49 4E 20 44 |05I.; DATEN IN D|
000005A0: 45 4E 20 53 50 45 49 43 48 45 52 20 53 43 48 52 |EN SPEICHER SCHR|
000005B0: 45 49 42 45 4E 00 36 35 4A 00 3B 00 49 35 4B 00 |EIBEN.65J.;.I5K.|
000005C0: 20 4C 44 59 23 30 3B 53 4F 4C 41 4E 47 45 00 68 | LDY#0;SOLANGE.h|
000005D0: 35 4C 00 45 49 4E 47 41 42 45 20 4A 53 52 4E 45 |5L.EINGABE JSRNE|
000005E0: 57 49 4E 3B 42 59 54 45 53 20 56 4F 4D 00 82 35 |WIN;BYTES VOM..5|
000005F0: 4D 00 20 53 54 41 28 45 4E 44 41 44 29 2C 59 3B |M. STA(ENDAD),Y;|
00000600: 49 45 43 2D 42 55 53 00 9A 35 4E 00 20 49 4E 43 |IEC-BUS..5N. INC|
00000610: 45 4E 44 41 44 3B 48 4F 4C 45 4E 20 55 4E 44 00 |ENDAD;HOLEN UND.|
00000620: AE 35 4F 00 20 42 4E 45 53 4B 49 50 3B 49 4E 20 |.5O. BNESKIP;IN |
00000630: 52 41 4D 00 C8 35 50 00 20 49 4E 43 45 4E 44 41 |RAM..5P. INCENDA|
00000640: 44 2B 31 3B 53 43 48 52 45 49 42 45 4E 00 DE 35 |D+1;SCHREIBEN..5|
00000650: 51 00 53 4B 49 50 20 4C 44 41 53 54 3B 42 49 53 |Q.SKIP LDAST;BIS|
00000660: 20 53 54 00 F3 35 52 00 20 42 45 51 45 49 4E 47 | ST..5R. BEQEING|
00000670: 41 42 45 3B 3C 3E 20 30 00 F9 35 53 00 3B 00 07 |ABE;<> 0..5S.;..|
00000680: 36 54 00 3B 20 27 43 4C 4F 53 45 27 00 0D 36 55 |6T.; 'CLOSE'..6U|
00000690: 00 3B 00 1C 36 56 00 20 4C 44 41 23 31 3B 57 49 |.;..6V. LDA#1;WI|
000006A0: 45 00 32 36 57 00 20 4A 53 52 43 4C 4F 53 45 3B |E.26W. JSRCLOSE;|
000006B0: 43 4C 4F 53 45 20 31 00 38 36 58 00 3B 00 3E 36 |CLOSE 1.86X.;.>6|
000006C0: 59 00 3B 00 52 36 5A 00 20 4A 53 52 43 4C 52 43 |Y.;.R6Z. JSRCLRC|
000006D0: 48 3B 27 43 4C 52 27 00 58 36 5B 00 3B 00 63 36 |H;'CLR'.X6[.;.c6|
000006E0: 5C 00 3B 20 45 4E 44 45 00 69 36 5D 00 3B 00 75 |\.; ENDE.i6].;.u|
000006F0: 36 5E 00 52 54 53 20 52 54 53 00 7B 36 5F 00 3B |6^.RTS RTS.{6_.;|
00000700: 00 81 36 60 00 3B 00 AC 36 61 00 3B 3D 3D 3D 3D |..6`.;..6a.;====|
00000710: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000720: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000730: 3D 00 B2 36 62 00 3B 00 B8 36 63 00 3B 00 D8 36 |=..6b.;..6c.;..6|
00000740: 64 00 4C 45 4E 47 20 2E 42 59 38 3B 4C 41 45 4E |d.LENG .BY8;LAEN|
00000750: 47 45 20 44 45 53 20 4E 41 4D 45 4E 53 00 FC 36 |GE DES NAMENS..6|
00000760: 65 00 46 49 4C 45 4E 41 4D 45 20 2E 54 58 22 46 |e.FILENAME .TX"F|
00000770: 49 4C 45 4E 41 4D 45 22 3B 46 49 4C 45 4E 41 4D |ILENAME";FILENAM|
00000780: 45 00 02 37 66 00 3B 00 08 37 67 00 3B 00 0E 37 |E..7f.;..7g.;..7|
00000790: 68 00 3B 00 39 37 69 00 3B 3D 3D 3D 3D 3D 3D 3D |h.;.97i.;=======|
000007A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000007B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 3F |==============.?|
000007C0: 37 6A 00 3B 00 5B 37 6B 00 3B 21 20 4E 45 55 45 |7j.;.[7k.;! NEUE|
000007D0: 20 49 45 43 49 4E 20 52 4F 55 54 49 4E 45 20 21 | IECIN ROUTINE !|
000007E0: 00 61 37 6C 00 3B 00 67 37 6D 00 3B 00 83 37 6E |.a7l.;.g7m.;..7n|
000007F0: 00 4E 45 57 49 4E 20 4C 44 41 23 24 30 30 3B 42 |.NEWIN LDA#$00;B|
00000800: 49 54 5A 41 48 4C 45 52 00 98 37 6F 00 20 53 54 |ITZAHLER..7o. ST|
00000810: 41 24 41 35 3B 4C 4F 45 53 43 48 45 4E 00 B4 37 |A$A5;LOESCHEN..7|
00000820: 70 00 20 4A 53 52 24 45 45 38 35 3B 43 4C 4F 43 |p. JSR$EE85;CLOC|
00000830: 4B 20 41 55 46 20 4C 4F 57 00 D3 37 71 00 57 41 |K AUF LOW..7q.WA|
00000840: 49 54 4C 4F 20 4A 53 52 24 45 45 41 39 3B 57 41 |ITLO JSR$EEA9;WA|
00000850: 52 54 45 4E 2C 42 49 53 00 EE 37 72 00 20 42 50 |RTEN,BIS..7r. BP|
00000860: 4C 57 41 49 54 4C 4F 3B 43 4C 4F 43 4B 20 49 4E |LWAITLO;CLOCK IN|
00000870: 20 48 49 00 01 38 73 00 20 53 45 49 3B 4A 45 54 | HI..8s. SEI;JET|
00000880: 5A 54 20 53 45 49 00 1F 38 74 00 20 4A 4D 50 24 |ZT SEI..8t. JMP$|
00000890: 45 45 32 30 3B 55 4E 44 20 52 45 53 54 52 4F 55 |EE20;UND RESTROU|
000008A0: 54 49 4E 45 00 00 00 |TINE... |
|/./...BA $4000../..;../..;../..;.F/..;*
***********************************../..
;* *** IRQLOAD *** *..0
..;* UNIVERSELLER IRQ-LADER VON DISK *.
D0..;***********************************
*.J0..;.P0..; IN 1991 BY MICHAEL VON
HUSEN.V0..;..0..; (MICRAL OF ZOOM/BRE
MERHAVEN)..0..;.M0..;===================
==================.S0..;..0..;VARIABLEN
& KONSTANTEN..0..;..1...EQ ANFAD = 1
66.%1...EQ ENDAD = 168.=1...EQ ST
= $90.W1...EQ SETNAM = $FFBD.Q1.
..EQ SETLFS = $FFBA..1...EQ OPEN
= $FFC0..1...EQ CHKIN = $FFC6..1...
EQ CLOSE = $FFC3.Y1...EQ CLRCH =
$FFCC..1..;..2..;======================
===============..2..;..2..;.#2..; 'OPEN'
.)2..;.@2 . LDALENG;FILENAMEN.Z2!. LDX#<
(FILENAME);FUER.T2". LDY#>(FILENAME);OPE
N..2#. JSRSETNAM;SETZEN..2$.;..2%. LDA#1
;KAN.NUMMER..2&. LDX#8;FLOPPY.P2'. LDY#0
;SEK.ADDRESSE..2(. JSRSETLFS;SETZEN..2).
;..3*. JSROPEN;WIE OPEN1,8,0,"FILENAME".
.3+.;.C3,.; WARTESCHLEIFE BIS FLOPPY SEN
DEBEREIT.I3-.;.T3.. LDX#0._3/. LDY#0.O30
.LOOP JSRRTS.{31. JSRRTS..32. JSRRTS..33
. DEX..34. BNELOOP..35. DEY..36. BNELOOP
..37.;.V38.; AUF EINGABE UMSCHALTEN..39.
;..3:. LDX#1..3;. JSRCHKIN..3<.;..4=.; S
TARTADRESSE HOLEN.24>.; (UND ALS ZEIGER
SETZEN).84?.;.Q4@. JSRNEWIN;DIE ERSTEN.F
4A. STAANFAD;BEIDEN.4B. STAENDAD;BYTES
SIND..4C. JSRNEWIN;STARTADDRESSE..4D. ST
AANFAD+1;DES FILES.S4E. STAENDAD+1;IM SP
EICHER !.Y4F.;..5G.;====================
=================..5H.;.05I.; DATEN IN D
EN SPEICHER SCHREIBEN.65J.;.I5K. LDY#0;S
OLANGE.H5L.EINGABE JSRNEWIN;BYTES VOM..5
M. STA(ENDAD),Y;IEC-BUS..5N. INCENDAD;HO
LEN UND..5O. BNESKIP;IN RAM.H5P. INCENDA
D+1;SCHREIBEN..5Q.SKIP LDAST;BIS ST..5R.
BEQEINGABE;<> 0..5S.;..6T.; 'CLOSE'..6U
.;..6V. LDA#1;WIE.26W. JSRCLOSE;CLOSE 1.
86X.;.>6Y.;.R6Z. JSRCLRCH;'CLR'.X6[.;.C6
\.; ENDE.I6].;.U6^.RTS RTS.{6_.;..6`.;..
6A.;====================================
=..6B.;..6C.;.X6D.LENG .BY8;LAENGE DES N
AMENS..6E.FILENAME .TX"FILENAME";FILENAM
E..7F.;..7G.;..7H.;.97I.;===============
======================.?7J.;.[7K.;! NEUE
IECIN ROUTINE !.A7L.;.G7M.;..7N.NEWIN L
DA#$00;BITZAHLER..7O. STA$A5;LOESCHEN..7
P. JSR$EE85;CLOCK AUF LOW.S7Q.WAITLO JSR
$EEA9;WARTEN,BIS..7R. BPLWAITLO;CLOCK IN
HI..8S. SEI;JETZT SEI..8T. JMP$EE20;UND
RESTROUTINE...
> CLICK IMAGE PREVIEW FOR FULL MODAL