IRQ-LOAD 2.6.ASM
FILE INFORMATION
FILENAME(S): IRQ-LOAD 2.6.ASM
FILE TYPE(S): SEQ
FILE SIZE: 7.9K
FIRST SEEN: 2025-12-02 00:16:04
APPEARS ON: 3 disk(s)
FILE HASH
907e37c00271148b6955b09387af33ada2b85c214f5c641f2a3ca61e5c6485cf
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| IRQ DESQUEEZER | IRQ-LOAD 2.6.ASM | SEQ | Maestro | 24 | 3 | DOWNLOAD FILE |
| IRQ LOADERS | IRQ-LOAD 2.6.ASM | SEQ | Maestro | 17 | 0 | DOWNLOAD FILE |
| LOADER DISK BY | IRQ-LOAD 2.6.ASM | SEQ | Maestro | 30 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |;...............| 00000010: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000020: C0 C0 C0 C0 C0 C0 C0 AE 0D 3B 49 52 51 2D 4C 4F |.........;IRQ-LO| 00000030: 41 44 45 52 20 56 45 52 53 49 4F 4E 20 56 32 2E |ADER VERSION V2.| 00000040: 36 20 2F 20 32 33 2E 38 2E 31 39 39 35 20 20 20 |6 / 23.8.1995 | 00000050: DD 0D 3B 28 43 29 4F 50 59 52 49 47 48 54 20 42 |..;(C)OPYRIGHT B| 00000060: 59 20 53 45 42 41 53 54 49 41 4E 20 53 5A 43 5A |Y SEBASTIAN SZCZ| 00000070: 59 47 49 45 4C 20 20 20 20 DD 0D 3B 20 20 20 20 |YGIEL ..; | 00000080: 20 20 20 20 20 20 20 20 20 20 20 45 4D 44 45 4E | EMDEN| 00000090: 2C 20 47 45 52 4D 41 4E 59 20 20 20 20 20 20 20 |, GERMANY | 000000A0: 20 20 DD 0D 3B 20 20 20 20 20 20 20 20 20 20 20 | ..; | 000000B0: 20 20 20 20 28 4D 41 44 52 4F 4D 2F 4C 45 50 53 | (MADROM/LEPS| 000000C0: 49 20 44 45 56 2E 29 20 20 20 20 DD 0D 3B C0 C0 |I DEV.) ..;..| 000000D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000000E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000000F0: C0 C0 C0 C0 BD 0D 0D 4C 4F 41 44 45 52 20 20 20 |.......LOADER | 00000100: 3D 20 24 31 30 30 30 0D 20 20 20 20 20 20 20 20 |= $1000. | 00000110: 20 2A 3D 20 4C 4F 41 44 45 52 0D 0D 3B 4A 53 52 | *= LOADER..;JSR| 00000120: 20 4C 4F 41 44 45 52 20 20 20 3B 49 4E 49 54 0D | LOADER ;INIT.| 00000130: 3B 4C 44 41 20 23 30 20 4F 52 20 23 31 20 3B 49 |;LDA #0 OR #1 ;I| 00000140: 46 20 41 2E 3D 31 20 54 48 45 4E 20 49 4E 20 58 |F A.=1 THEN IN X| 00000150: 2E 41 4E 44 20 59 2E 0D 20 20 20 20 20 20 20 20 |.AND Y.. | 00000160: 20 20 20 20 20 20 3B 4D 55 53 54 20 42 45 20 54 | ;MUST BE T| 00000170: 48 45 20 4E 45 57 20 4C 4F 41 44 2D 0D 20 20 20 |HE NEW LOAD-. | 00000180: 20 20 20 20 20 20 20 20 20 20 20 3B 41 44 44 52 | ;ADDR| 00000190: 45 53 53 0D 3B 4A 53 52 20 4C 4F 41 44 45 52 2B |ESS.;JSR LOADER+| 000001A0: 33 0D 3B 4C 44 41 20 23 30 20 4F 52 20 23 31 20 |3.;LDA #0 OR #1 | 000001B0: 3B 49 46 20 41 2E 3D 30 20 54 48 45 4E 20 49 4E |;IF A.=0 THEN IN| 000001C0: 20 58 2E 20 41 4E 44 0D 20 20 20 20 20 20 20 20 | X. AND. | 000001D0: 20 20 20 20 20 20 3B 59 2E 20 4D 55 53 54 20 42 | ;Y. MUST B| 000001E0: 45 20 54 48 45 20 46 49 52 53 54 20 32 0D 20 20 |E THE FIRST 2. | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 43 48 41 | ;CHA| 00000200: 52 53 20 4F 46 20 54 48 45 20 46 49 4C 45 20 4E |RS OF THE FILE N| 00000210: 41 4D 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 |AME. | 00000220: 20 20 3B 49 46 20 41 2E 3D 31 20 54 48 45 4E 20 | ;IF A.=1 THEN | 00000230: 49 4E 20 58 2E 20 41 4E 44 0D 20 20 20 20 20 20 |IN X. AND. | 00000240: 20 20 20 20 20 20 20 20 3B 59 2E 20 4D 55 53 54 | ;Y. MUST| 00000250: 20 42 45 20 54 48 45 20 53 54 41 52 54 0D 20 20 | BE THE START. | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 52 41 | ;TRA| 00000270: 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 0D 3B 4C |CK AND SECTOR.;L| 00000280: 44 58 20 23 22 54 22 20 20 20 20 20 3B 31 2E 20 |DX #"T" ;1. | 00000290: 43 48 41 52 20 4F 46 20 46 49 4C 45 4E 41 4D 45 |CHAR OF FILENAME| 000002A0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |. ;| 000002B0: 4F 52 20 54 52 41 43 4B 20 4E 4F 2E 0D 3B 4C 44 |OR TRACK NO..;LD| 000002C0: 59 20 23 22 43 22 20 20 20 20 20 3B 32 2E 20 43 |Y #"C" ;2. C| 000002D0: 48 41 52 20 4F 46 20 46 49 4C 45 4E 41 4D 45 0D |HAR OF FILENAME.| 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 4F | ;O| 000002F0: 52 20 53 45 43 54 4F 52 20 4E 4F 2E 0D 3B 4A 53 |R SECTOR NO..;JS| 00000300: 52 20 4C 4F 41 44 45 52 2B 36 0D 3B 42 43 53 20 |R LOADER+6.;BCS | 00000310: 45 52 52 4F 52 20 20 20 20 3B 49 46 20 43 41 52 |ERROR ;IF CAR| 00000320: 52 59 3D 2E 53 45 43 20 54 48 45 4E 20 45 52 52 |RY=.SEC THEN ERR| 00000330: 4F 52 0D 3B 52 54 53 0D 0D 3B 54 48 49 53 20 56 |OR.;RTS..;THIS V| 00000340: 45 52 53 49 4F 4E 20 43 41 4E 20 4C 4F 41 44 20 |ERSION CAN LOAD | 00000350: 45 56 45 52 59 20 46 49 4C 45 20 54 59 50 45 0D |EVERY FILE TYPE.| 00000360: 3B 28 50 52 47 2C 53 45 51 2C 55 53 52 2C 44 45 |;(PRG,SEQ,USR,DE| 00000370: 4C 2C 52 45 4C 2C 2E 2E 2E 29 0D 0D 49 4C 31 20 |L,REL,...)..IL1 | 00000380: 20 20 20 20 20 3D 20 24 42 32 0D 49 4C 32 20 20 | = $B2.IL2 | 00000390: 20 20 20 20 3D 20 24 42 33 0D 49 4C 33 20 20 20 | = $B3.IL3 | 000003A0: 20 20 20 3D 20 24 42 34 0D 49 4C 34 20 20 20 20 | = $B4.IL4 | 000003B0: 20 20 3D 20 24 42 35 0D 49 4C 35 20 20 20 20 20 | = $B5.IL5 | 000003C0: 20 3D 20 24 42 36 0D 0D 20 20 20 20 20 20 20 20 | = $B6.. | 000003D0: 20 4A 4D 50 20 49 4E 49 54 0D 20 20 20 20 20 20 | JMP INIT. | 000003E0: 20 20 20 4A 4D 50 20 53 45 54 41 44 52 0D 4C 4F | JMP SETADR.LO| 000003F0: 41 44 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |AD. STX | 00000400: 24 42 42 0D 20 20 20 20 20 20 20 20 20 53 54 59 |$BB. STY| 00000410: 20 24 42 43 0D 20 20 20 20 20 20 20 20 20 53 54 | $BC. ST| 00000420: 41 20 4C 4F 41 44 4D 4F 44 45 0D 20 20 20 20 20 |A LOADMODE. | 00000430: 20 20 20 20 4C 44 41 20 24 44 44 30 30 0D 20 20 | LDA $DD00. | 00000440: 20 20 20 20 20 20 20 41 4E 44 20 23 24 30 46 0D | AND #$0F.| 00000450: 20 20 20 20 20 20 20 20 20 53 54 41 20 49 4C 31 | STA IL1| 00000460: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 |. LDX #0| 00000470: 0D 4C 41 44 32 0D 20 20 20 20 20 20 20 20 20 45 |.LAD2. E| 00000480: 4F 52 20 49 4C 54 41 42 2C 58 0D 20 20 20 20 20 |OR ILTAB,X. | 00000490: 20 20 20 20 53 54 41 20 49 4C 32 2C 58 0D 20 20 | STA IL2,X. | 000004A0: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. | 000004B0: 20 20 20 20 43 50 58 20 23 34 0D 20 20 20 20 20 | CPX #4. | 000004C0: 20 20 20 20 42 4E 45 20 4C 41 44 32 0D 0D 20 20 | BNE LAD2.. | 000004D0: 20 20 20 20 20 20 20 4C 44 41 20 49 4C 33 0D 20 | LDA IL3. | 000004E0: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 44 30 | STA $DD0| 000004F0: 30 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 4E |0. JSR N| 00000500: 57 41 49 54 0D 20 20 20 20 20 20 20 20 20 4C 44 |WAIT. LD| 00000510: 41 20 24 42 42 0D 20 20 20 20 20 20 20 20 20 4A |A $BB. J| 00000520: 53 52 20 53 45 4E 44 42 0D 20 20 20 20 20 20 20 |SR SENDB. | 00000530: 20 20 4C 44 41 20 24 42 43 0D 20 20 20 20 20 20 | LDA $BC. | 00000540: 20 20 20 4A 53 52 20 53 45 4E 44 42 0D 4C 4F 41 | JSR SENDB.LOA| 00000550: 44 4D 4F 44 45 20 3D 20 2A 2B 31 0D 20 20 20 20 |DMODE = *+1. | 00000560: 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 | LDA #0. | 00000570: 20 20 20 20 20 4A 53 52 20 53 45 4E 44 42 0D 0D | JSR SENDB..| 00000580: 20 20 20 20 20 20 20 20 20 4A 53 52 20 4E 57 41 | JSR NWA| 00000590: 49 54 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |IT. JSR | 000005A0: 47 45 54 42 59 54 45 0D 41 44 52 4C 4F 57 20 20 |GETBYTE.ADRLOW | 000005B0: 20 53 54 41 20 24 41 45 0D 20 20 20 20 20 20 20 | STA $AE. | 000005C0: 20 20 4A 53 52 20 47 45 54 42 59 54 45 0D 41 44 | JSR GETBYTE.AD| 000005D0: 52 48 49 47 48 20 20 53 54 41 20 24 41 46 0D 4E |RHIGH STA $AF.N| 000005E0: 45 58 54 42 59 54 45 0D 20 20 20 20 20 20 20 20 |EXTBYTE. | 000005F0: 20 4A 53 52 20 47 45 54 42 59 54 45 0D 20 20 20 | JSR GETBYTE. | 00000600: 20 20 20 20 20 20 43 4D 50 20 23 24 39 39 0D 20 | CMP #$99. | 00000610: 20 20 20 20 20 20 20 20 42 4E 45 20 53 45 54 42 | BNE SETB| 00000620: 59 54 45 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |YTE. JSR| 00000630: 20 47 45 54 42 59 54 45 0D 20 20 20 20 20 20 20 | GETBYTE. | 00000640: 20 20 43 4D 50 20 23 24 39 39 0D 20 20 20 20 20 | CMP #$99. | 00000650: 20 20 20 20 42 45 51 20 53 45 54 42 59 54 45 0D | BEQ SETBYTE.| 00000660: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 | CMP #$F| 00000670: 46 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 46 |F. BEQ F| 00000680: 49 4C 45 45 4E 44 0D 20 20 20 20 20 20 20 20 20 |ILEEND. | 00000690: 43 4D 50 20 23 24 46 45 0D 20 20 20 20 20 20 20 |CMP #$FE. | 000006A0: 20 20 42 45 51 20 44 52 56 45 52 52 0D 20 20 20 | BEQ DRVERR. | 000006B0: 20 20 20 20 20 20 4A 53 52 20 4E 57 41 49 54 0D | JSR NWAIT.| 000006C0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4E 45 58 | JMP NEX| 000006D0: 54 42 59 54 45 0D 44 52 56 45 52 52 0D 20 20 20 |TBYTE.DRVERR. | 000006E0: 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 | SEC. | 000006F0: 20 20 20 52 54 53 0D 53 45 54 42 59 54 45 0D 20 | RTS.SETBYTE. | 00000700: 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 0D 20 | LDY #0. | 00000710: 20 20 20 20 20 20 20 20 42 49 54 20 24 30 31 20 | BIT $01 | 00000720: 20 3B 4F 52 20 49 4E 43 2C 44 45 43 0D 0D 20 20 | ;OR INC,DEC.. | 00000730: 20 20 20 20 20 20 20 53 54 41 20 28 24 41 45 29 | STA ($AE)| 00000740: 2C 59 0D 0D 20 20 20 20 20 20 20 20 20 42 49 54 |,Y.. BIT| 00000750: 20 24 30 31 20 20 3B 4F 52 20 49 4E 43 2C 44 45 | $01 ;OR INC,DE| 00000760: 43 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 |C. INC $| 00000770: 41 45 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |AE. BNE | 00000780: 53 45 54 42 32 0D 20 20 20 20 20 20 20 20 20 49 |SETB2. I| 00000790: 4E 43 20 24 41 46 0D 53 45 54 42 32 20 20 20 20 |NC $AF.SETB2 | 000007A0: 42 4E 45 20 4E 45 58 54 42 59 54 45 0D 46 49 4C |BNE NEXTBYTE.FIL| 000007B0: 45 45 4E 44 0D 20 20 20 20 20 20 20 20 20 43 4C |EEND. CL| 000007C0: 43 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D |C. RTS..| 000007D0: 4E 57 41 49 54 20 20 20 20 4C 44 58 20 23 24 33 |NWAIT LDX #$3| 000007E0: 32 0D 4E 57 31 20 20 20 20 20 20 44 45 58 0D 20 |2.NW1 DEX. | 000007F0: 20 20 20 20 20 20 20 20 42 4E 45 20 4E 57 31 0D | BNE NW1.| 00000800: 4E 57 32 20 20 20 20 20 20 42 49 54 20 24 44 44 |NW2 BIT $DD| 00000810: 30 30 0D 20 20 20 20 20 20 20 20 20 42 56 43 20 |00. BVC | 00000820: 4E 57 32 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |NW2. LDX| 00000830: 20 23 24 30 35 0D 4E 57 33 20 20 20 20 20 20 44 | #$05.NW3 D| 00000840: 45 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |EX. BNE | 00000850: 4E 57 33 0D 20 20 20 20 20 20 20 20 20 52 54 53 |NW3. RTS| 00000860: 0D 53 45 54 41 44 52 0D 20 20 20 20 20 20 20 20 |.SETADR. | 00000870: 20 42 4E 45 20 53 45 54 41 44 52 4E 45 55 0D 20 | BNE SETADRNEU. | 00000880: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 38 35 | LDA #$85| 00000890: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 41 44 |. STA AD| 000008A0: 52 4C 4F 57 0D 20 20 20 20 20 20 20 20 20 53 54 |RLOW. ST| 000008B0: 41 20 41 44 52 48 49 47 48 0D 20 20 20 20 20 20 |A ADRHIGH. | 000008C0: 20 20 20 52 54 53 0D 53 45 54 41 44 52 4E 45 55 | RTS.SETADRNEU| 000008D0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 000008E0: 32 34 20 3B 42 49 54 0D 20 20 20 20 20 20 20 20 |24 ;BIT. | 000008F0: 20 53 54 41 20 41 44 52 4C 4F 57 0D 20 20 20 20 | STA ADRLOW. | 00000900: 20 20 20 20 20 53 54 41 20 41 44 52 48 49 47 48 | STA ADRHIGH| 00000910: 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 24 41 |. STX $A| 00000920: 45 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 24 |E. STY $| 00000930: 41 46 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |AF. RTS.| 00000940: 0D 49 4E 49 54 0D 20 20 20 20 20 20 20 20 20 4C |.INIT. L| 00000950: 44 41 20 23 3C 44 52 56 50 52 47 0D 20 20 20 20 |DA #<DRVPRG. | 00000960: 20 20 20 20 20 4C 44 58 20 23 3E 44 52 56 50 52 | LDX #>DRVPR| 00000970: 47 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |G. STA $| 00000980: 46 42 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |FB. STX | 00000990: 24 46 43 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$FC. LDA| 000009A0: 20 23 3C 24 30 34 30 30 0D 20 20 20 20 20 20 20 | #<$0400. | 000009B0: 20 20 4C 44 58 20 23 3E 24 30 34 30 30 0D 20 20 | LDX #>$0400. | 000009C0: 20 20 20 20 20 20 20 53 54 41 20 24 41 39 0D 20 | STA $A9. | 000009D0: 20 20 20 20 20 20 20 20 53 54 58 20 24 41 41 0D | STX $AA.| 000009E0: 49 4E 49 54 32 0D 20 20 20 20 20 20 20 20 20 4A |INIT2. J| 000009F0: 53 52 20 44 52 56 4D 4F 44 0D 20 20 20 20 20 20 |SR DRVMOD. | 00000A00: 20 20 20 4C 44 41 20 23 22 57 22 0D 20 20 20 20 | LDA #"W". | 00000A10: 20 20 20 20 20 4C 44 58 20 24 41 39 0D 20 20 20 | LDX $A9. | 00000A20: 20 20 20 20 20 20 4C 44 59 20 24 41 41 0D 20 20 | LDY $AA. | 00000A30: 20 20 20 20 20 20 20 4A 53 52 20 42 59 54 53 33 | JSR BYTS3| 00000A40: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 00000A50: 32 30 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |20. JSR | 00000A60: 24 45 44 44 44 0D 20 20 20 20 20 20 20 20 20 54 |$EDDD. T| 00000A70: 41 58 0D 20 20 20 20 20 20 20 20 20 44 45 58 0D |AX. DEX.| 00000A80: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 | LDY #$0| 00000A90: 30 0D 4D 57 31 20 20 20 20 20 20 4C 44 41 20 28 |0.MW1 LDA (| 00000AA0: 24 46 42 29 2C 59 0D 20 20 20 20 20 20 20 20 20 |$FB),Y. | 00000AB0: 4A 53 52 20 24 45 44 44 44 0D 20 20 20 20 20 20 |JSR $EDDD. | 00000AC0: 20 20 20 49 4E 43 20 24 46 42 0D 20 20 20 20 20 | INC $FB. | 00000AD0: 20 20 20 20 42 4E 45 20 4D 57 32 0D 20 20 20 20 | BNE MW2. | 00000AE0: 20 20 20 20 20 49 4E 43 20 24 46 43 0D 4D 57 32 | INC $FC.MW2| 00000AF0: 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 | DEX. | 00000B00: 20 20 20 42 50 4C 20 4D 57 31 0D 20 20 20 20 20 | BPL MW1. | 00000B10: 20 20 20 20 4A 53 52 20 24 45 44 46 45 0D 20 20 | JSR $EDFE. | 00000B20: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00000B30: 20 20 20 20 4C 44 41 20 24 41 39 0D 20 20 20 20 | LDA $A9. | 00000B40: 20 20 20 20 20 41 44 43 20 23 24 32 30 0D 20 20 | ADC #$20. | 00000B50: 20 20 20 20 20 20 20 53 54 41 20 24 41 39 0D 20 | STA $A9. | 00000B60: 20 20 20 20 20 20 20 20 4C 44 41 20 24 41 41 0D | LDA $AA.| 00000B70: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 30 0D | ADC #0.| 00000B80: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 41 41 | STA $AA| 00000B90: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 00000BA0: 30 38 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |08. BNE | 00000BB0: 49 4E 49 54 32 0D 20 20 20 20 20 20 20 20 20 4A |INIT2. J| 00000BC0: 53 52 20 44 52 56 4D 4F 44 0D 20 20 20 20 20 20 |SR DRVMOD. | 00000BD0: 20 20 20 4C 44 41 20 23 22 45 22 0D 20 20 20 20 | LDA #"E". | 00000BE0: 20 20 20 20 20 4C 44 58 20 23 3C 24 30 34 30 30 | LDX #<$0400| 00000BF0: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E |. LDY #>| 00000C00: 24 30 34 30 30 0D 20 20 20 20 20 20 20 20 20 4A |$0400. J| 00000C10: 53 52 20 42 59 54 53 33 0D 20 20 20 20 20 20 20 |SR BYTS3. | 00000C20: 20 20 4A 53 52 20 24 45 44 46 45 0D 57 41 49 54 | JSR $EDFE.WAIT| 00000C30: 45 52 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |ER. LDA | 00000C40: 23 24 43 37 0D 20 20 20 20 20 20 20 20 20 53 54 |#$C7. ST| 00000C50: 41 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 20 |A $DD00. | 00000C60: 20 54 41 58 0D 57 41 49 54 31 0D 20 20 20 20 20 | TAX.WAIT1. | 00000C70: 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 | PHA. | 00000C80: 20 50 4C 41 0D 20 20 20 20 20 20 20 20 20 44 45 | PLA. DE| 00000C90: 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 57 |X. BNE W| 00000CA0: 41 49 54 31 0D 20 20 20 20 20 20 20 20 20 52 54 |AIT1. RT| 00000CB0: 53 0D 44 52 56 4D 4F 44 0D 20 20 20 20 20 20 20 |S.DRVMOD. | 00000CC0: 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 20 20 | LDA #8. | 00000CD0: 20 20 4A 53 52 20 24 45 44 30 43 0D 20 20 20 20 | JSR $ED0C. | 00000CE0: 20 20 20 20 20 4C 44 41 20 23 24 36 46 0D 20 20 | LDA #$6F. | 00000CF0: 20 20 20 20 20 20 20 4A 53 52 20 24 45 44 42 39 | JSR $EDB9| 00000D00: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 22 |. LDA #"| 00000D10: 4D 22 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |M". LDY | 00000D20: 23 22 2D 22 0D 20 20 20 20 20 20 20 20 20 4A 4D |#"-". JM| 00000D30: 50 20 42 59 54 53 32 0D 42 59 54 53 33 0D 20 20 |P BYTS2.BYTS3. | 00000D40: 20 20 20 20 20 20 20 4A 53 52 20 24 45 44 44 44 | JSR $EDDD| 00000D50: 0D 20 20 20 20 20 20 20 20 20 54 58 41 0D 42 59 |. TXA.BY| 00000D60: 54 53 32 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |TS2. JSR| 00000D70: 20 24 45 44 44 44 0D 20 20 20 20 20 20 20 20 20 | $EDDD. | 00000D80: 54 59 41 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |TYA. JMP| 00000D90: 20 24 45 44 44 44 0D 0D 47 45 54 42 59 54 45 0D | $EDDD..GETBYTE.| 00000DA0: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 33 0D | LDY #3.| 00000DB0: 0D 49 4C 34 42 20 20 20 20 20 4C 44 58 20 49 4C |.IL4B LDX IL| 00000DC0: 34 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |4. LDA $| 00000DD0: 44 44 30 30 0D 20 20 20 20 20 20 20 20 20 53 54 |DD00. ST| 00000DE0: 58 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 20 |X $DD00. | 00000DF0: 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ASL A. | 00000E00: 4C 44 58 20 23 37 0D 49 4C 34 43 0D 20 20 20 20 |LDX #7.IL4C. | 00000E10: 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 20 | DEX. | 00000E20: 20 20 42 4E 45 20 49 4C 34 43 0D 20 20 20 20 20 | BNE IL4C. | 00000E30: 20 20 20 20 52 4F 52 20 24 42 44 0D 20 20 20 20 | ROR $BD. | 00000E40: 20 20 20 20 20 4C 44 58 20 49 4C 35 0D 20 20 20 | LDX IL5. | 00000E50: 20 20 20 20 20 20 4C 44 41 20 24 44 44 30 30 0D | LDA $DD00.| 00000E60: 20 20 20 20 20 20 20 20 20 53 54 58 20 24 44 44 | STX $DD| 00000E70: 30 30 0D 20 20 20 20 20 20 20 20 20 41 53 4C 20 |00. ASL | 00000E80: 41 0D 20 20 20 20 20 20 20 20 20 52 4F 52 20 24 |A. ROR $| 00000E90: 42 44 0D 20 20 20 20 20 20 20 20 20 44 45 59 0D |BD. DEY.| 00000EA0: 20 20 20 20 20 20 20 20 20 42 50 4C 20 49 4C 34 | BPL IL4| 00000EB0: 42 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |B. LDA $| 00000EC0: 42 44 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |BD. RTS.| 00000ED0: 53 45 4E 44 42 0D 20 20 20 20 20 20 20 20 20 53 |SENDB. S| 00000EE0: 54 41 20 24 42 44 0D 20 20 20 20 20 20 20 20 20 |TA $BD. | 00000EF0: 4C 44 59 20 23 33 0D 53 45 4E 44 42 32 0D 20 20 |LDY #3.SENDB2. | 00000F00: 20 20 20 20 20 20 20 4A 53 52 20 49 4C 32 42 0D | JSR IL2B.| 00000F10: 20 20 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 | DEY. | 00000F20: 20 20 20 20 20 20 42 50 4C 20 53 45 4E 44 42 32 | BPL SENDB2| 00000F30: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 49 |. RTS..I| 00000F40: 4C 32 42 20 20 20 20 20 4C 44 41 20 49 4C 32 0D |L2B LDA IL2.| 00000F50: 20 20 20 20 20 20 20 20 20 4C 53 52 20 24 42 44 | LSR $BD| 00000F60: 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 49 4C |. BCC IL| 00000F70: 32 43 0D 20 20 20 20 20 20 20 20 20 4F 52 41 20 |2C. ORA | 00000F80: 23 24 32 30 0D 49 4C 32 43 20 20 20 20 20 53 54 |#$20.IL2C ST| 00000F90: 41 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 20 |A $DD00. | 00000FA0: 20 4C 44 41 20 49 4C 31 0D 20 20 20 20 20 20 20 | LDA IL1. | 00000FB0: 20 20 4C 53 52 20 24 42 44 0D 20 20 20 20 20 20 | LSR $BD. | 00000FC0: 20 20 20 42 43 43 20 49 4C 32 44 0D 20 20 20 20 | BCC IL2D. | 00000FD0: 20 20 20 20 20 4F 52 41 20 23 24 32 30 0D 49 4C | ORA #$20.IL| 00000FE0: 32 44 20 20 20 20 20 53 54 41 20 24 44 44 30 30 |2D STA $DD00| 00000FF0: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 49 4C |. RTS.IL| 00001000: 54 41 42 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |TAB. .BY| 00001010: 54 45 20 24 31 30 2C 24 33 30 2C 24 42 30 2C 24 |TE $10,$30,$B0,$| 00001020: 35 30 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |50..;-----------| 00001030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 44 52 56 |------------.DRV| 00001050: 50 52 47 0D 44 56 50 30 0D 20 20 20 20 20 20 20 |PRG.DVP0. | 00001060: 20 20 4A 53 52 20 24 43 31 30 30 0D 44 56 50 31 | JSR $C100.DVP1| 00001070: 20 20 20 20 20 4C 44 41 20 24 31 38 30 30 0D 20 | LDA $1800. | 00001080: 20 20 20 20 20 20 20 20 41 4E 44 20 23 35 0D 20 | AND #5. | 00001090: 20 20 20 20 20 20 20 20 42 4E 45 20 44 56 50 31 | BNE DVP1| 000010A0: 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 44 |.. JSR D| 000010B0: 56 50 38 42 2D 44 52 56 50 52 47 2B 24 30 34 30 |VP8B-DRVPRG+$040| 000010C0: 30 0D 0D 3B C0 C0 C0 3E 20 53 45 41 52 43 48 20 |0..;...> SEARCH | 000010D0: 49 4E 20 44 49 52 20 46 4F 52 20 46 49 4C 45 4E |IN DIR FOR FILEN| 000010E0: 41 4D 45 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |AME.. LD| 000010F0: 59 20 23 31 0D 44 56 50 32 20 20 20 20 20 4C 44 |Y #1.DVP2 LD| 00001100: 58 20 23 31 38 0D 20 20 20 20 20 20 20 20 20 53 |X #18. S| 00001110: 54 58 20 36 0D 20 20 20 20 20 20 20 20 20 53 54 |TX 6. ST| 00001120: 59 20 37 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |Y 7. JSR| 00001130: 20 44 56 50 39 42 2D 44 52 56 50 52 47 2B 24 30 | DVP9B-DRVPRG+$0| 00001140: 34 30 30 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |400.. LD| 00001150: 59 20 23 32 0D 44 56 50 33 20 20 20 20 20 4C 44 |Y #2.DVP3 LD| 00001160: 41 20 24 30 33 30 33 2C 59 20 3B 43 4F 4D 50 41 |A $0303,Y ;COMPA| 00001170: 52 45 20 31 53 54 20 43 48 41 52 0D 43 4D 50 42 |RE 1ST CHAR.CMPB| 00001180: 31 20 20 20 20 3D 20 2A 2B 31 0D 20 20 20 20 20 |1 = *+1. | 00001190: 20 20 20 20 43 4D 50 20 23 30 0D 20 20 20 20 20 | CMP #0. | 000011A0: 20 20 20 20 42 4E 45 20 44 56 50 34 0D 0D 20 20 | BNE DVP4.. | 000011B0: 20 20 20 20 20 20 20 4C 44 41 20 24 30 33 30 34 | LDA $0304| 000011C0: 2C 59 20 3B 43 4F 4D 50 41 52 45 20 32 4E 44 20 |,Y ;COMPARE 2ND | 000011D0: 43 48 41 52 0D 43 4D 50 42 32 20 20 20 20 3D 20 |CHAR.CMPB2 = | 000011E0: 2A 2B 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |*+1. CMP| 000011F0: 20 23 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 | #0. BNE| 00001200: 20 44 56 50 34 0D 0D 3B 4F 4B 2E 20 46 49 4C 45 | DVP4..;OK. FILE| 00001210: 4E 41 4D 45 20 46 4F 55 4E 44 20 2E 2E 2E 0D 0D |NAME FOUND .....| 00001220: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 44 56 50 | JMP DVP| 00001230: 34 43 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D |4C-DRVPRG+$0400.| 00001240: 0D 3B C0 C0 C0 3E 20 52 45 41 44 20 4E 45 58 54 |.;...> READ NEXT| 00001250: 20 53 45 43 54 4F 52 0D 3B 41 4E 44 20 43 4F 4E | SECTOR.;AND CON| 00001260: 54 49 4E 55 45 20 53 45 41 52 43 48 49 4E 47 0D |TINUE SEARCHING.| 00001270: 0D 44 56 50 34 20 20 20 20 20 54 59 41 0D 20 20 |.DVP4 TYA. | 00001280: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00001290: 20 20 20 20 41 44 43 20 23 24 32 30 0D 20 20 20 | ADC #$20. | 000012A0: 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 | TAY. | 000012B0: 20 20 20 42 43 43 20 44 56 50 33 0D 0D 20 20 20 | BCC DVP3.. | 000012C0: 20 20 20 20 20 20 4C 44 59 20 24 30 33 30 31 0D | LDY $0301.| 000012D0: 20 20 20 20 20 20 20 20 20 42 50 4C 20 44 56 50 | BPL DVP| 000012E0: 32 0D 44 56 50 34 42 0D 20 20 20 20 20 20 20 20 |2.DVP4B. | 000012F0: 20 4A 53 52 20 44 56 50 32 38 2D 44 52 56 50 52 | JSR DVP28-DRVPR| 00001300: 47 2B 24 30 34 30 30 0D 20 20 20 20 20 20 20 20 |G+$0400. | 00001310: 20 4C 44 58 20 23 30 0D 20 20 20 20 20 20 20 20 | LDX #0. | 00001320: 20 4A 53 52 20 53 45 4E 44 42 59 54 2D 44 52 56 | JSR SENDBYT-DRV| 00001330: 50 52 47 2B 24 30 34 30 30 0D 0D 20 20 20 20 20 |PRG+$0400.. | 00001340: 20 20 20 20 4C 44 58 20 23 30 0D 20 20 20 20 20 | LDX #0. | 00001350: 20 20 20 20 4A 53 52 20 53 45 4E 44 42 59 54 2D | JSR SENDBYT-| 00001360: 44 52 56 50 52 47 2B 24 30 34 30 30 0D 0D 20 20 |DRVPRG+$0400.. | 00001370: 20 20 20 20 20 20 20 4C 44 58 20 23 24 39 39 0D | LDX #$99.| 00001380: 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 4E | JSR SEN| 00001390: 44 42 59 54 2D 44 52 56 50 52 47 2B 24 30 34 30 |DBYT-DRVPRG+$040| 000013A0: 30 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |0.. LDX | 000013B0: 23 24 46 45 0D 20 20 20 20 20 20 20 20 20 4A 53 |#$FE. JS| 000013C0: 52 20 53 45 4E 44 42 59 54 2D 44 52 56 50 52 47 |R SENDBYT-DRVPRG| 000013D0: 2B 24 30 34 30 30 0D 0D 20 20 20 20 20 20 20 20 |+$0400.. | 000013E0: 20 4A 4D 50 20 24 43 31 30 30 0D 44 56 50 34 43 | JMP $C100.DVP4C| 000013F0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 |. LDA $0| 00001400: 33 30 31 2C 59 0D 20 20 20 20 20 20 20 20 20 53 |301,Y. S| 00001410: 54 41 20 36 0D 20 20 20 20 20 20 20 20 20 4C 44 |TA 6. LD| 00001420: 41 20 24 30 33 30 32 2C 59 0D 20 20 20 20 20 20 |A $0302,Y. | 00001430: 20 20 20 53 54 41 20 37 0D 44 56 50 34 44 0D 20 | STA 7.DVP4D. | 00001440: 20 20 20 20 20 20 20 20 4A 53 52 20 44 56 50 39 | JSR DVP9| 00001450: 42 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D 0D |B-DRVPRG+$0400..| 00001460: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 0D | LDY #0.| 00001470: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 33 | LDA $03| 00001480: 30 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |00. STA | 00001490: 36 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 44 |6. BNE D| 000014A0: 56 50 35 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |VP5.. LD| 000014B0: 59 20 24 30 33 30 31 0D 20 20 20 20 20 20 20 20 |Y $0301. | 000014C0: 20 49 4E 59 0D 44 56 50 35 20 20 20 20 20 53 54 | INY.DVP5 ST| 000014D0: 59 20 24 30 31 31 38 0D 20 20 20 20 20 20 20 20 |Y $0118. | 000014E0: 20 4C 44 41 20 24 30 33 30 31 0D 20 20 20 20 20 | LDA $0301. | 000014F0: 20 20 20 20 53 54 41 20 37 0D 20 20 20 20 20 20 | STA 7. | 00001500: 20 20 20 4C 44 59 20 23 32 0D 20 20 20 20 20 20 | LDY #2. | 00001510: 20 20 20 4A 53 52 20 44 56 50 32 38 2D 44 52 56 | JSR DVP28-DRV| 00001520: 50 52 47 2B 24 30 34 30 30 0D 44 56 50 36 20 20 |PRG+$0400.DVP6 | 00001530: 20 20 20 4C 44 58 20 24 30 33 30 30 2C 59 0D 20 | LDX $0300,Y. | 00001540: 20 20 20 20 20 20 20 20 43 50 58 20 23 24 39 39 | CPX #$99| 00001550: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 44 56 |. BNE DV| 00001560: 50 37 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |P7.. JSR| 00001570: 20 53 45 4E 44 42 59 54 2D 44 52 56 50 52 47 2B | SENDBYT-DRVPRG+| 00001580: 24 30 34 30 30 0D 0D 20 20 20 20 20 20 20 20 20 |$0400.. | 00001590: 4C 44 58 20 23 24 39 39 0D 44 56 50 37 20 20 20 |LDX #$99.DVP7 | 000015A0: 20 20 4A 53 52 20 53 45 4E 44 42 59 54 2D 44 52 | JSR SENDBYT-DR| 000015B0: 56 50 52 47 2B 24 30 34 30 30 0D 0D 20 20 20 20 |VPRG+$0400.. | 000015C0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 000015D0: 20 20 43 50 59 20 24 30 31 31 38 0D 20 20 20 20 | CPY $0118. | 000015E0: 20 20 20 20 20 42 4E 45 20 44 56 50 36 0D 0D 20 | BNE DVP6.. | 000015F0: 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 33 30 | LDA $030| 00001600: 30 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 44 |0. BEQ D| 00001610: 56 50 38 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |VP8.. LD| 00001620: 58 20 23 24 39 39 0D 20 20 20 20 20 20 20 20 20 |X #$99. | 00001630: 4A 53 52 20 53 45 4E 44 42 59 54 2D 44 52 56 50 |JSR SENDBYT-DRVP| 00001640: 52 47 2B 24 30 34 30 30 0D 0D 20 20 20 20 20 20 |RG+$0400.. | 00001650: 20 20 20 4C 44 58 20 23 24 43 33 0D 20 20 20 20 | LDX #$C3. | 00001660: 20 20 20 20 20 4A 53 52 20 53 45 4E 44 42 59 54 | JSR SENDBYT| 00001670: 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D 0D 20 |-DRVPRG+$0400.. | 00001680: 20 20 20 20 20 20 20 20 4A 53 52 20 44 56 50 32 | JSR DVP2| 00001690: 37 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D 0D |7-DRVPRG+$0400..| 000016A0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 44 56 50 | JMP DVP| 000016B0: 34 44 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D |4D-DRVPRG+$0400.| 000016C0: 0D 44 56 50 38 20 20 20 20 20 4C 44 58 20 23 24 |.DVP8 LDX #$| 000016D0: 39 39 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |99. JSR | 000016E0: 53 45 4E 44 42 59 54 2D 44 52 56 50 52 47 2B 24 |SENDBYT-DRVPRG+$| 000016F0: 30 34 30 30 0D 0D 20 20 20 20 20 20 20 20 20 4C |0400.. L| 00001700: 44 58 20 23 24 46 46 0D 20 20 20 20 20 20 20 20 |DX #$FF. | 00001710: 20 4A 53 52 20 53 45 4E 44 42 59 54 2D 44 52 56 | JSR SENDBYT-DRV| 00001720: 50 52 47 2B 24 30 34 30 30 0D 0D 20 20 20 20 20 |PRG+$0400.. | 00001730: 20 20 20 20 4A 4D 50 20 44 56 50 30 2D 44 52 56 | JMP DVP0-DRV| 00001740: 50 52 47 2B 24 30 34 30 30 0D 44 56 50 38 42 0D |PRG+$0400.DVP8B.| 00001750: 20 20 20 20 20 20 20 20 20 4A 53 52 20 44 56 50 | JSR DVP| 00001760: 32 37 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D |27-DRVPRG+$0400.| 00001770: 20 20 20 20 20 20 20 20 20 43 4C 49 0D 20 20 20 | CLI. | 00001780: 20 20 20 20 20 20 4C 44 41 20 23 31 0D 44 56 50 | LDA #1.DVP| 00001790: 39 20 20 20 20 20 42 49 54 20 24 31 38 30 30 0D |9 BIT $1800.| 000017A0: 20 20 20 20 20 20 20 20 20 42 45 51 20 44 56 50 | BEQ DVP| 000017B0: 39 0D 0D 20 20 20 20 20 20 20 20 20 53 45 49 0D |9.. SEI.| 000017C0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 000017D0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 31 38 | STA $18| 000017E0: 30 30 0D 0D 3B C0 C0 C0 3E 20 52 45 41 44 20 42 |00..;...> READ B| 000017F0: 59 54 45 53 20 46 52 4F 4D 20 43 36 34 0D 3B 52 |YTES FROM C64.;R| 00001800: 45 41 44 20 31 53 54 20 43 48 41 52 20 4F 46 20 |EAD 1ST CHAR OF | 00001810: 46 49 4C 45 4E 41 4D 45 0D 0D 20 20 20 20 20 20 |FILENAME.. | 00001820: 20 20 20 4A 53 52 20 44 56 50 32 33 42 2D 44 52 | JSR DVP23B-DR| 00001830: 56 50 52 47 2B 24 30 34 30 30 0D 20 20 20 20 20 |VPRG+$0400. | 00001840: 20 20 20 20 53 54 41 20 43 4D 50 42 31 2D 44 52 | STA CMPB1-DR| 00001850: 56 50 52 47 2B 24 30 34 30 30 0D 0D 3B 52 45 41 |VPRG+$0400..;REA| 00001860: 44 20 32 4E 44 20 43 48 41 52 20 4F 46 20 46 49 |D 2ND CHAR OF FI| 00001870: 4C 45 4E 41 4D 45 0D 0D 20 20 20 20 20 20 20 20 |LENAME.. | 00001880: 20 4A 53 52 20 44 56 50 32 33 42 2D 44 52 56 50 | JSR DVP23B-DRVP| 00001890: 52 47 2B 24 30 34 30 30 0D 20 20 20 20 20 20 20 |RG+$0400. | 000018A0: 20 20 53 54 41 20 43 4D 50 42 32 2D 44 52 56 50 | STA CMPB2-DRVP| 000018B0: 52 47 2B 24 30 34 30 30 0D 0D 3B 52 45 41 44 20 |RG+$0400..;READ | 000018C0: 43 4F 4E 54 52 4F 4C 20 42 59 54 45 20 28 44 49 |CONTROL BYTE (DI| 000018D0: 52 20 4F 52 20 54 52 41 43 4B 2D 4C 4F 41 44 45 |R OR TRACK-LOADE| 000018E0: 52 29 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |R).. JSR| 000018F0: 20 44 56 50 32 33 42 2D 44 52 56 50 52 47 2B 24 | DVP23B-DRVPRG+$| 00001900: 30 34 30 30 0D 20 20 20 20 20 20 20 20 20 54 41 |0400. TA| 00001910: 58 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 44 |X. JSR D| 00001920: 56 50 32 37 2D 44 52 56 50 52 47 2B 24 30 34 30 |VP27-DRVPRG+$040| 00001930: 30 0D 20 20 20 20 20 20 20 20 20 54 58 41 0D 20 |0. TXA. | 00001940: 20 20 20 20 20 20 20 20 43 4D 50 20 23 30 20 20 | CMP #0 | 00001950: 20 20 3B 54 52 41 43 4B 2D 4C 4F 41 44 45 52 20 | ;TRACK-LOADER | 00001960: 3F 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 44 |?. BEQ D| 00001970: 56 50 39 43 0D 0D 3B 53 54 41 52 54 20 54 52 41 |VP9C..;START TRA| 00001980: 43 4B 2C 53 45 43 54 4F 52 20 4C 4F 41 44 49 4E |CK,SECTOR LOADIN| 00001990: 47 20 2E 2E 2E 0D 0D 20 20 20 20 20 20 20 20 20 |G ..... | 000019A0: 4C 44 41 20 43 4D 50 42 31 2D 44 52 56 50 52 47 |LDA CMPB1-DRVPRG| 000019B0: 2B 24 30 34 30 30 0D 20 20 20 20 20 20 20 20 20 |+$0400. | 000019C0: 53 54 41 20 36 0D 20 20 20 20 20 20 20 20 20 4C |STA 6. L| 000019D0: 44 41 20 43 4D 50 42 32 2D 44 52 56 50 52 47 2B |DA CMPB2-DRVPRG+| 000019E0: 24 30 34 30 30 0D 20 20 20 20 20 20 20 20 20 53 |$0400. S| 000019F0: 54 41 20 37 0D 20 20 20 20 20 20 20 20 20 4A 4D |TA 7. JM| 00001A00: 50 20 44 56 50 34 44 2D 44 52 56 50 52 47 2B 24 |P DVP4D-DRVPRG+$| 00001A10: 30 34 30 30 0D 44 56 50 39 43 0D 20 20 20 20 20 |0400.DVP9C. | 00001A20: 20 20 20 20 52 54 53 0D 44 56 50 39 42 0D 20 20 | RTS.DVP9B. | 00001A30: 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 41 0D | LDY #$0A.| 00001A40: 20 20 20 20 20 20 20 20 20 53 54 59 20 24 38 42 | STY $8B| 00001A50: 0D 44 56 50 31 30 20 20 20 20 43 4C 49 0D 20 20 |.DVP10 CLI. | 00001A60: 20 20 20 20 20 20 20 4C 44 41 20 23 24 38 30 0D | LDA #$80.| 00001A70: 20 20 20 20 20 20 20 20 20 53 54 41 20 30 0D 44 | STA 0.D| 00001A80: 56 50 31 31 20 20 20 20 4C 44 41 20 30 0D 20 20 |VP11 LDA 0. | 00001A90: 20 20 20 20 20 20 20 42 4D 49 20 44 56 50 31 31 | BMI DVP11| 00001AA0: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 |. CMP #1| 00001AB0: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 44 56 |. BEQ DV| 00001AC0: 50 31 35 0D 20 20 20 20 20 20 20 20 20 44 45 43 |P15. DEC| 00001AD0: 20 24 38 42 0D 20 20 20 20 20 20 20 20 20 4C 44 | $8B. LD| 00001AE0: 59 20 24 38 42 0D 20 20 20 20 20 20 20 20 20 42 |Y $8B. B| 00001AF0: 4D 49 20 44 56 50 31 34 0D 20 20 20 20 20 20 20 |MI DVP14. | 00001B00: 20 20 43 50 59 20 23 32 0D 20 20 20 20 20 20 20 | CPY #2. | 00001B10: 20 20 42 4E 45 20 44 56 50 31 32 0D 0D 20 20 20 | BNE DVP12.. | 00001B20: 20 20 20 20 20 20 4C 44 41 20 23 24 43 30 0D 20 | LDA #$C0. | 00001B30: 20 20 20 20 20 20 20 20 53 54 41 20 30 0D 44 56 | STA 0.DV| 00001B40: 50 31 32 20 20 20 20 4C 44 41 20 24 31 36 0D 20 |P12 LDA $16. | 00001B50: 20 20 20 20 20 20 20 20 53 54 41 20 24 31 32 0D | STA $12.| 00001B60: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 31 37 | LDA $17| 00001B70: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 31 |. STA $1| 00001B80: 33 0D 44 56 50 31 33 20 20 20 20 4C 44 41 20 30 |3.DVP13 LDA 0| 00001B90: 0D 20 20 20 20 20 20 20 20 20 42 4D 49 20 44 56 |. BMI DV| 00001BA0: 50 31 33 0D 0D 20 20 20 20 20 20 20 20 20 42 50 |P13.. BP| 00001BB0: 4C 20 44 56 50 31 30 0D 44 56 50 31 34 20 20 20 |L DVP10.DVP14 | 00001BC0: 20 50 4C 41 0D 20 20 20 20 20 20 20 20 20 50 4C | PLA. PL| 00001BD0: 41 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 44 |A. JMP D| 00001BE0: 56 50 34 42 2D 44 52 56 50 52 47 2B 24 30 34 30 |VP4B-DRVPRG+$040| 00001BF0: 30 0D 0D 44 56 50 31 35 20 20 20 20 53 45 49 0D |0..DVP15 SEI.| 00001C00: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B C0 | RTS..;.| 00001C10: C0 C0 3E 20 53 45 4E 44 20 41 20 42 59 54 45 20 |..> SEND A BYTE | 00001C20: 54 4F 20 43 36 34 0D 0D 53 45 4E 44 42 59 54 0D |TO C64..SENDBYT.| 00001C30: 20 20 20 20 20 20 20 20 20 53 54 58 20 24 31 34 | STX $14| 00001C40: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 34 |. LDA #4| 00001C50: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 42 |. JSR SB| 00001C60: 59 54 32 2D 44 52 56 50 52 47 2B 24 30 34 30 30 |YT2-DRVPRG+$0400| 00001C70: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 42 |. JSR SB| 00001C80: 59 54 32 2D 44 52 56 50 52 47 2B 24 30 34 30 30 |YT2-DRVPRG+$0400| 00001C90: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 42 |. JSR SB| 00001CA0: 59 54 32 2D 44 52 56 50 52 47 2B 24 30 34 30 30 |YT2-DRVPRG+$0400| 00001CB0: 0D 53 42 59 54 32 0D 20 20 20 20 20 20 20 20 20 |.SBYT2. | 00001CC0: 4C 53 52 20 24 31 34 0D 20 20 20 20 20 20 20 20 |LSR $14. | 00001CD0: 20 4C 44 58 20 23 32 0D 20 20 20 20 20 20 20 20 | LDX #2. | 00001CE0: 20 42 43 43 20 44 56 50 31 36 0D 20 20 20 20 20 | BCC DVP16. | 00001CF0: 20 20 20 20 4C 44 58 20 23 30 0D 44 56 50 31 36 | LDX #0.DVP16| 00001D00: 20 20 20 20 42 49 54 20 24 31 38 30 30 0D 20 20 | BIT $1800. | 00001D10: 20 20 20 20 20 20 20 42 4E 45 20 44 56 50 31 36 | BNE DVP16| 00001D20: 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 24 31 |. STX $1| 00001D30: 38 30 30 0D 20 20 20 20 20 20 20 20 20 4C 53 52 |800. LSR| 00001D40: 20 24 31 34 0D 20 20 20 20 20 20 20 20 20 4C 44 | $14. LD| 00001D50: 58 20 23 32 0D 20 20 20 20 20 20 20 20 20 42 43 |X #2. BC| 00001D60: 43 20 44 56 50 31 37 0D 20 20 20 20 20 20 20 20 |C DVP17. | 00001D70: 20 4C 44 58 20 23 30 0D 44 56 50 31 37 20 20 20 | LDX #0.DVP17 | 00001D80: 20 42 49 54 20 24 31 38 30 30 0D 20 20 20 20 20 | BIT $1800. | 00001D90: 20 20 20 20 42 45 51 20 44 56 50 31 37 0D 20 20 | BEQ DVP17. | 00001DA0: 20 20 20 20 20 20 20 53 54 58 20 24 31 38 30 30 | STX $1800| 00001DB0: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B |. RTS..;| 00001DC0: C0 C0 C0 3E 20 52 45 41 44 20 41 20 42 59 54 45 |...> READ A BYTE| 00001DD0: 20 46 52 4F 4D 20 43 36 34 0D 0D 44 56 50 32 33 | FROM C64..DVP23| 00001DE0: 42 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |B. LDY #| 00001DF0: 34 0D 44 56 50 32 34 20 20 20 20 4C 44 41 20 23 |4.DVP24 LDA #| 00001E00: 34 0D 44 56 50 32 35 20 20 20 20 42 49 54 20 24 |4.DVP25 BIT $| 00001E10: 31 38 30 30 0D 20 20 20 20 20 20 20 20 20 42 45 |1800. BE| 00001E20: 51 20 44 56 50 32 35 0D 0D 20 20 20 20 20 20 20 |Q DVP25.. | 00001E30: 20 20 4C 44 41 20 24 31 38 30 30 0D 20 20 20 20 | LDA $1800. | 00001E40: 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 | LSR A. | 00001E50: 20 20 20 20 52 4F 52 20 24 31 34 0D 20 20 20 20 | ROR $14. | 00001E60: 20 20 20 20 20 4C 44 41 20 23 34 0D 44 56 50 32 | LDA #4.DVP2| 00001E70: 36 20 20 20 20 42 49 54 20 24 31 38 30 30 0D 20 |6 BIT $1800. | 00001E80: 20 20 20 20 20 20 20 20 42 4E 45 20 44 56 50 32 | BNE DVP2| 00001E90: 36 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |6.. LDA | 00001EA0: 24 31 38 30 30 0D 20 20 20 20 20 20 20 20 20 4C |$1800. L| 00001EB0: 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 52 4F |SR A. RO| 00001EC0: 52 20 24 31 34 0D 20 20 20 20 20 20 20 20 20 44 |R $14. D| 00001ED0: 45 59 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |EY. BNE | 00001EE0: 44 56 50 32 34 0D 0D 20 20 20 20 20 20 20 20 20 |DVP24.. | 00001EF0: 4C 44 41 20 24 31 34 0D 20 20 20 20 20 20 20 20 |LDA $14. | 00001F00: 20 52 54 53 0D 44 56 50 32 37 0D 20 20 20 20 20 | RTS.DVP27. | 00001F10: 20 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 | LDA #8. | 00001F20: 20 20 20 20 2E 42 59 54 45 20 24 32 43 0D 44 56 | .BYTE $2C.DV| 00001F30: 50 32 38 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |P28. LDA| 00001F40: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 00001F50: 20 24 31 38 30 30 0D 20 20 20 20 20 20 20 20 20 | $1800. | 00001F60: 52 54 53 0D 0D 3B 45 4E 44 20 4F 46 20 49 52 51 |RTS..;END OF IRQ| 00001F70: 2D 4C 4F 41 44 45 52 0D 0D |-LOADER.. |
;.......................................
.;IRQ-LOADER VERSION V2.6 / 23.8.1995
..;(C)OPYRIGHT BY SEBASTIAN SZCZYGIEL
..; EMDEN, GERMANY
..; (MADROM/LEPSI DEV.)
..;..................................
.......LOADER = $1000. *= LOAD
ER..;JSR LOADER ;INIT.;LDA #0 OR #1 ;I
F A.=1 THEN IN X.AND Y.. ;M
UST BE THE NEW LOAD-. ;ADDR
ESS.;JSR LOADER+3.;LDA #0 OR #1 ;IF A.=0
THEN IN X. AND. ;Y. MUST B
E THE FIRST 2. ;CHARS OF TH
E FILE NAME. ;IF A.=1 THEN
IN X. AND. ;Y. MUST BE THE
START. ;TRACK AND SECTOR.;L
DX #"T" ;1. CHAR OF FILENAME.
;OR TRACK NO..;LDY #"C" ;2. C
HAR OF FILENAME. ;OR SECTOR
NO..;JSR LOADER+6.;BCS ERROR ;IF CAR
RY=.SEC THEN ERROR.;RTS..;THIS VERSION C
AN LOAD EVERY FILE TYPE.;(PRG,SEQ,USR,DE
L,REL,...)..IL1 = $B2.IL2 = $B
3.IL3 = $B4.IL4 = $B5.IL5
= $B6.. JMP INIT. JMP S
ETADR.LOAD. STX $BB. STY
$BC. STA LOADMODE. LDA
$DD00. AND #$0F. STA IL1
. LDX #0.LAD2. EOR ILTAB
,X. STA IL2,X. INX.
CPX #4. BNE LAD2.. L
DA IL3. STA $DD00. JSR N
WAIT. LDA $BB. JSR SENDB
. LDA $BC. JSR SENDB.LOA
DMODE = *+1. LDA #0. JSR
SENDB.. JSR NWAIT. JSR
GETBYTE.ADRLOW STA $AE. JSR GE
TBYTE.ADRHIGH STA $AF.NEXTBYTE.
JSR GETBYTE. CMP #$99.
BNE SETBYTE. JSR GETBYTE.
CMP #$99. BEQ SETBYTE.
CMP #$FF. BEQ FILEEND.
CMP #$FE. BEQ DRVERR. JS
R NWAIT. JMP NEXTBYTE.DRVERR.
SEC. RTS.SETBYTE.
LDY #0. BIT $01 ;OR INC,DEC..
STA ($AE),Y.. BIT $01 ;O
R INC,DEC. INC $AE. BNE
SETB2. INC $AF.SETB2 BNE NEXT
BYTE.FILEEND. CLC. RTS..
NWAIT LDX #$32.NW1 DEX.
BNE NW1.NW2 BIT $DD00. BVC
NW2. LDX #$05.NW3 DEX.
BNE NW3. RTS.SETADR.
BNE SETADRNEU. LDA #$85.
STA ADRLOW. STA ADRHIGH.
RTS.SETADRNEU. LDA #$24 ;BIT.
STA ADRLOW. STA ADRHIGH
. STX $AE. STY $AF.
RTS..INIT. LDA #<DRVPRG.
LDX #>DRVPRG. STA $FB.
STX $FC. LDA #<$0400.
LDX #>$0400. STA $A9.
STX $AA.INIT2. JSR DRVMOD.
LDA #"W". LDX $A9. LD
Y $AA. JSR BYTS3. LDA #$
20. JSR $EDDD. TAX.
DEX. LDY #$00.MW1 LDA (
$FB),Y. JSR $EDDD. INC $
FB. BNE MW2. INC $FC.MW2
DEX. BPL MW1. JSR
$EDFE. CLC. LDA $A9.
ADC #$20. STA $A9.
LDA $AA. ADC #0. STA $AA
. CMP #$08. BNE INIT2.
JSR DRVMOD. LDA #"E".
LDX #<$0400. LDY #>$0400.
JSR BYTS3. JSR $EDFE.WAIT
ER. LDA #$C7. STA $DD00.
TAX.WAIT1. PHA.
PLA. DEX. BNE WAIT1.
RTS.DRVMOD. LDA #8.
JSR $ED0C. LDA #$6F. J
SR $EDB9. LDA #"M". LDY
#"-". JMP BYTS2.BYTS3. J
SR $EDDD. TXA.BYTS2. JSR
$EDDD. TYA. JMP $EDDD..
GETBYTE. LDY #3..IL4B LDX IL
4. LDA $DD00. STX $DD00.
ASL A. LDX #7.IL4C.
DEX. BNE IL4C. ROR
$BD. LDX IL5. LDA $DD00.
STX $DD00. ASL A.
ROR $BD. DEY. BPL IL4
B. LDA $BD. RTS.SENDB.
STA $BD. LDY #3.SENDB2.
JSR IL2B. DEY. BP
L SENDB2. RTS..IL2B LDA IL2.
LSR $BD. BCC IL2C.
ORA #$20.IL2C STA $DD00.
LDA IL1. LSR $BD. BCC I
L2D. ORA #$20.IL2D STA $DD00
. RTS.ILTAB. .BYTE $10,$
30,$B0,$50..;---------------------------
------------.DRVPRG.DVP0. JSR $C
100.DVP1 LDA $1800. AND #5.
BNE DVP1.. JSR DVP8B-DRV
PRG+$0400..;...> SEARCH IN DIR FOR FILEN
AME.. LDY #1.DVP2 LDX #18.
STX 6. STY 7. JSR
DVP9B-DRVPRG+$0400.. LDY #2.DVP
3 LDA $0303,Y ;COMPARE 1ST CHAR.CMPB
1 = *+1. CMP #0. BNE
DVP4.. LDA $0304,Y ;COMPARE 2ND
CHAR.CMPB2 = *+1. CMP #0.
BNE DVP4..;OK. FILENAME FOUND .....
JMP DVP4C-DRVPRG+$0400..;...> R
EAD NEXT SECTOR.;AND CONTINUE SEARCHING.
.DVP4 TYA. CLC. ADC
#$20. TAY. BCC DVP3..
LDY $0301. BPL DVP2.DVP4B.
JSR DVP28-DRVPRG+$0400.
LDX #0. JSR SENDBYT-DRVPRG+$040
0.. LDX #0. JSR SENDBYT-
DRVPRG+$0400.. LDX #$99.
JSR SENDBYT-DRVPRG+$0400.. LDX
#$FE. JSR SENDBYT-DRVPRG+$0400..
JMP $C100.DVP4C. LDA $0
301,Y. STA 6. LDA $0302,
Y. STA 7.DVP4D. JSR DVP9
B-DRVPRG+$0400.. LDY #0.
LDA $0300. STA 6. BNE D
VP5.. LDY $0301. INY.DVP
5 STY $0118. LDA $0301.
STA 7. LDY #2. JSR D
VP28-DRVPRG+$0400.DVP6 LDX $0300,Y.
CPX #$99. BNE DVP7..
JSR SENDBYT-DRVPRG+$0400..
LDX #$99.DVP7 JSR SENDBYT-DRVPRG+$04
00.. INY. CPY $0118.
BNE DVP6.. LDA $0300.
BEQ DVP8.. LDX #$99.
JSR SENDBYT-DRVPRG+$0400.. LDX #
$C3. JSR SENDBYT-DRVPRG+$0400..
JSR DVP27-DRVPRG+$0400..
JMP DVP4D-DRVPRG+$0400..DVP8 LDX #$
99. JSR SENDBYT-DRVPRG+$0400..
LDX #$FF. JSR SENDBYT-DRV
PRG+$0400.. JMP DVP0-DRVPRG+$040
0.DVP8B. JSR DVP27-DRVPRG+$0400.
CLI. LDA #1.DVP9 BI
T $1800. BEQ DVP9.. SEI.
LDA #0. STA $1800..;...
> READ BYTES FROM C64.;READ 1ST CHAR OF
FILENAME.. JSR DVP23B-DRVPRG+$04
00. STA CMPB1-DRVPRG+$0400..;REA
D 2ND CHAR OF FILENAME.. JSR DVP
23B-DRVPRG+$0400. STA CMPB2-DRVP
RG+$0400..;READ CONTROL BYTE (DIR OR TRA
CK-LOADER).. JSR DVP23B-DRVPRG+$
0400. TAX. JSR DVP27-DRV
PRG+$0400. TXA. CMP #0
;TRACK-LOADER ?. BEQ DVP9C..;S
TART TRACK,SECTOR LOADING .....
LDA CMPB1-DRVPRG+$0400. STA 6.
LDA CMPB2-DRVPRG+$0400. S
TA 7. JMP DVP4D-DRVPRG+$0400.DVP
9C. RTS.DVP9B. LDY #$0A.
STY $8B.DVP10 CLI. L
DA #$80. STA 0.DVP11 LDA 0.
BMI DVP11. CMP #1.
BEQ DVP15. DEC $8B. LD
Y $8B. BMI DVP14. CPY #2
. BNE DVP12.. LDA #$C0.
STA 0.DVP12 LDA $16.
STA $12. LDA $17. STA $1
3.DVP13 LDA 0. BMI DVP13..
BPL DVP10.DVP14 PLA. PL
A. JMP DVP4B-DRVPRG+$0400..DVP15
SEI. RTS..;...> SEND A BYTE
TO C64..SENDBYT. STX $14.
LDA #4. JSR SBYT2-DRVPRG+$0400
. JSR SBYT2-DRVPRG+$0400.
JSR SBYT2-DRVPRG+$0400.SBYT2.
LSR $14. LDX #2. BCC DVP
16. LDX #0.DVP16 BIT $1800.
BNE DVP16. STX $1800.
LSR $14. LDX #2. BC
C DVP17. LDX #0.DVP17 BIT $18
00. BEQ DVP17. STX $1800
. RTS..;...> READ A BYTE FROM C6
4..DVP23B. LDY #4.DVP24 LDA #
4.DVP25 BIT $1800. BEQ DVP25.
. LDA $1800. LSR A.
ROR $14. LDA #4.DVP26 BIT
$1800. BNE DVP26.. LDA
$1800. LSR A. ROR $14.
DEY. BNE DVP24..
LDA $14. RTS.DVP27. LDA
#8. .BYTE $2C.DVP28. LDA
#0. STA $1800. RTS..;EN
D OF IRQ-LOADER..
> CLICK IMAGE PREVIEW FOR FULL MODAL