IRQ-LOAD3.1+.ASM
FILE INFORMATION
FILENAME(S): IRQ-LOAD3.1+.ASM
FILE TYPE(S): SEQ
FILE SIZE: 11.9K
FIRST SEEN: 2025-12-02 00:16:04
APPEARS ON: 3 disk(s)
FILE HASH
85ba36c8ed5304117501a216f8c9017a84d0fd6eb48e3d72c9d08da648242556
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| IRQ DESQUEEZER | IRQ-LOAD3.1+.ASM | SEQ | Maestro | 26 | 4 | DOWNLOAD FILE |
| IRQ LOADERS | IRQ-LOAD3.1+.ASM | SEQ | Maestro | 16 | 2 | DOWNLOAD FILE |
| LOADER DISK BY | IRQ-LOAD3.1+.ASM | SEQ | Maestro | 32 | 7 | 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 33 2E |ADER VERSION V3.| 00000040: 31 2B 2F 20 20 31 2E 34 2E 31 39 39 36 20 20 20 |1+/ 1.4.1996 | 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 20 20 |I DEV.) ..; | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 DD 0D 3B 28 54 48 49 53 20 49 53 20 | ..;(THIS IS | 00000100: 54 48 45 20 46 49 4E 41 4C 20 56 45 52 53 49 4F |THE FINAL VERSIO| 00000110: 4E 21 29 20 20 20 20 20 20 20 20 20 20 DD 0D 3B |N!) ..;| 00000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000140: 2D 2D 2D 2D 2D 2D DD 0D 3B 44 45 43 52 55 53 48 |------..;DECRUSH| 00000150: 49 4E 47 20 57 48 49 4C 45 20 4C 4F 41 44 49 4E |ING WHILE LOADIN| 00000160: 47 20 57 49 54 48 20 53 50 45 45 44 2F 58 20 DD |G WITH SPEED/X .| 00000170: 0D 3B 41 4C 4C 20 43 52 55 4E 43 48 20 53 50 45 |.;ALL CRUNCH SPE| 00000180: 45 44 53 20 28 31 2D 36 29 20 41 52 45 20 41 4C |EDS (1-6) ARE AL| 00000190: 4C 4F 57 45 44 20 21 20 DD 0D 3B 28 4E 45 57 29 |LOWED ! ..;(NEW)| 000001A0: 43 41 4E 20 41 4C 53 4F 20 4C 4F 41 44 20 4E 4F |CAN ALSO LOAD NO| 000001B0: 54 20 43 52 55 4E 43 48 45 44 20 46 49 4C 45 53 |T CRUNCHED FILES| 000001C0: 21 DD 0D 3B 46 4F 52 20 43 52 55 4E 43 48 49 4E |!..;FOR CRUNCHIN| 000001D0: 47 20 55 53 45 20 4C 45 56 45 4C 2D 43 52 55 53 |G USE LEVEL-CRUS| 000001E0: 48 45 52 20 56 31 2F 4D 4D 53 DD 0D 3B 3E 20 44 |HER V1/MMS..;> D| 000001F0: 45 43 52 55 53 48 45 52 20 52 4F 55 54 49 4E 45 |ECRUSHER ROUTINE| 00000200: 20 43 4F 44 45 44 20 42 59 20 4D 4D 53 2F 54 41 | CODED BY MMS/TA| 00000210: 42 4F 4F DD 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |BOO..;----------| 00000220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D DD 0D 3B C0 |------------..;.| 00000240: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000250: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000260: C0 C0 C0 C0 C0 BD 0D 0D 4C 4F 41 44 45 52 20 20 |........LOADER | 00000270: 20 3D 20 24 31 30 30 30 0D 20 20 20 20 20 20 20 | = $1000. | 00000280: 20 20 2A 3D 20 4C 4F 41 44 45 52 0D 0D 3B 4A 53 | *= LOADER..;JS| 00000290: 52 20 4C 4F 41 44 45 52 20 20 20 3B 49 4E 49 54 |R LOADER ;INIT| 000002A0: 20 44 52 49 56 45 20 43 4F 44 45 0D 0D 3B 4C 44 | DRIVE CODE..;LD| 000002B0: 41 20 23 30 20 4F 52 20 23 31 2D 23 36 20 3B 53 |A #0 OR #1-#6 ;S| 000002C0: 45 54 20 53 50 45 45 44 20 57 49 54 48 20 54 48 |ET SPEED WITH TH| 000002D0: 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E. | 000002E0: 20 20 20 3B 46 49 4C 45 20 57 41 53 20 43 52 55 | ;FILE WAS CRU| 000002F0: 4E 43 48 45 44 0D 3B 4A 53 52 20 4C 4F 41 44 45 |NCHED.;JSR LOADE| 00000300: 52 2B 33 20 20 20 20 3B 28 23 31 2D 36 29 2E 20 |R+3 ;(#1-6). | 00000310: 4F 52 20 4C 4F 41 44 20 41 20 4E 4F 54 0D 20 20 |OR LOAD A NOT. | 00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000330: 43 52 55 4E 43 48 45 44 20 46 49 4C 45 20 28 23 |CRUNCHED FILE (#| 00000340: 30 29 0D 0D 3B 4C 44 41 20 23 30 20 4F 52 20 23 |0)..;LDA #0 OR #| 00000350: 31 20 3B 49 46 20 41 2E 3D 30 20 54 48 45 4E 20 |1 ;IF A.=0 THEN | 00000360: 49 4E 20 58 2E 20 41 4E 44 0D 20 20 20 20 20 20 |IN X. AND. | 00000370: 20 20 20 20 20 20 20 20 3B 59 2E 20 4D 55 53 54 | ;Y. MUST| 00000380: 20 42 45 20 54 48 45 20 54 57 4F 0D 20 20 20 20 | BE THE TWO. | 00000390: 20 20 20 20 20 20 20 20 20 20 3B 4C 45 54 54 45 | ;LETTE| 000003A0: 52 53 20 4F 46 20 54 48 45 20 46 49 4C 45 20 4E |RS OF THE FILE N| 000003B0: 41 4D 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 |AME. | 000003C0: 20 20 3B 49 46 20 41 2E 3D 31 20 54 48 45 4E 20 | ;IF A.=1 THEN | 000003D0: 49 4E 20 58 2E 20 41 4E 44 0D 20 20 20 20 20 20 |IN X. AND. | 000003E0: 20 20 20 20 20 20 20 20 3B 59 2E 20 4D 55 53 54 | ;Y. MUST| 000003F0: 20 42 45 20 54 48 45 20 53 54 41 52 54 0D 20 20 | BE THE START. | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 52 41 | ;TRA| 00000410: 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 0D 3B 4C |CK AND SECTOR.;L| 00000420: 44 58 20 23 22 4C 22 20 20 20 20 20 3B 43 48 41 |DX #"L" ;CHA| 00000430: 52 20 4F 4E 45 2F 46 49 4C 45 4E 41 4D 45 0D 20 |R ONE/FILENAME. | 00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 4F 52 | ;OR| 00000450: 20 54 52 41 43 4B 20 4E 4F 2E 0D 3B 4C 44 59 20 | TRACK NO..;LDY | 00000460: 23 22 50 22 20 20 20 20 20 3B 43 48 41 52 20 54 |#"P" ;CHAR T| 00000470: 57 4F 2F 46 49 4C 45 4E 41 4D 45 0D 20 20 20 20 |WO/FILENAME. | 00000480: 20 20 20 20 20 20 20 20 20 20 3B 4F 52 20 53 45 | ;OR SE| 00000490: 43 54 4F 52 20 4E 4F 2E 0D 3B 4A 53 52 20 4C 4F |CTOR NO..;JSR LO| 000004A0: 41 44 45 52 2B 36 20 3B 4C 4F 41 44 20 28 41 4E |ADER+6 ;LOAD (AN| 000004B0: 44 20 44 45 43 52 55 4E 43 48 29 20 46 49 4C 45 |D DECRUNCH) FILE| 000004C0: 0D 3B 52 54 53 0D 0D 3B 28 4E 45 57 29 45 52 52 |.;RTS..;(NEW)ERR| 000004D0: 4F 52 2F 46 49 4C 45 20 4E 4F 54 20 46 4F 55 4E |OR/FILE NOT FOUN| 000004E0: 44 20 43 48 45 43 4B 0D 3B 49 53 4E 27 54 20 4D |D CHECK.;ISN'T M| 000004F0: 4F 52 45 20 50 4F 53 53 49 42 4C 45 21 0D 0D 3B |ORE POSSIBLE!..;| 00000500: 54 48 49 53 20 56 45 52 53 49 4F 4E 20 43 41 4E |THIS VERSION CAN| 00000510: 20 4C 4F 41 44 20 45 56 45 52 59 20 46 49 4C 45 | LOAD EVERY FILE| 00000520: 20 54 59 50 45 0D 3B 28 50 52 47 2C 53 45 51 2C | TYPE.;(PRG,SEQ,| 00000530: 55 53 52 2C 44 45 4C 2C 52 45 4C 2C 2E 2E 2E 29 |USR,DEL,REL,...)| 00000540: 0D 0D 0D 3B 54 48 45 20 49 52 51 2D 4C 4F 41 44 |...;THE IRQ-LOAD| 00000550: 45 52 20 55 53 45 20 46 4F 4C 4C 4F 57 49 4E 47 |ER USE FOLLOWING| 00000560: 0D 3B 5A 45 52 4F 50 41 47 45 20 42 59 54 45 53 |.;ZEROPAGE BYTES| 00000570: 2E 2E 2E 0D 0D 50 41 45 20 20 20 20 20 20 3D 20 |.....PAE = | 00000580: 24 41 45 0D 41 41 45 20 20 20 20 20 20 3D 20 24 |$AE.AAE = $| 00000590: 41 45 0D 41 41 46 20 20 20 20 20 20 3D 20 24 41 |AE.AAF = $A| 000005A0: 46 0D 0D 49 4C 31 20 20 20 20 20 20 3D 20 24 42 |F..IL1 = $B| 000005B0: 32 0D 49 4C 32 20 20 20 20 20 20 3D 20 24 42 33 |2.IL2 = $B3| 000005C0: 0D 49 4C 33 20 20 20 20 20 20 3D 20 24 42 34 0D |.IL3 = $B4.| 000005D0: 49 4C 34 20 20 20 20 20 20 3D 20 24 42 35 0D 49 |IL4 = $B5.I| 000005E0: 4C 35 20 20 20 20 20 20 3D 20 24 42 36 0D 49 4C |L5 = $B6.IL| 000005F0: 36 20 20 20 20 20 20 3D 20 24 42 37 0D 0D 3B 54 |6 = $B7..;T| 00000600: 48 45 20 44 45 50 41 43 4B 45 52 20 55 53 45 20 |HE DEPACKER USE | 00000610: 46 4F 4C 4C 4F 57 49 4E 47 0D 3B 5A 45 52 4F 50 |FOLLOWING.;ZEROP| 00000620: 41 47 45 20 42 59 54 45 53 2E 2E 2E 0D 0D 41 46 |AGE BYTES.....AF| 00000630: 39 20 20 20 20 20 20 3D 20 24 30 32 0D 41 46 41 |9 = $02.AFA| 00000640: 20 20 20 20 20 20 3D 20 24 30 33 0D 0D 50 46 42 | = $03..PFB| 00000650: 20 20 20 20 20 20 3D 20 24 41 45 0D 41 46 42 20 | = $AE.AFB | 00000660: 20 20 20 20 20 3D 20 24 41 45 0D 41 46 43 20 20 | = $AE.AFC | 00000670: 20 20 20 20 3D 20 24 41 46 0D 0D 50 46 44 20 20 | = $AF..PFD | 00000680: 20 20 20 20 3D 20 24 30 34 0D 41 46 44 20 20 20 | = $04.AFD | 00000690: 20 20 20 3D 20 24 30 34 0D 41 46 45 20 20 20 20 | = $04.AFE | 000006A0: 20 20 3D 20 24 30 35 0D 0D 46 4E 50 53 31 20 20 | = $05..FNPS1 | 000006B0: 20 20 3D 20 24 30 33 30 32 2B 31 20 3B 50 4F 53 | = $0302+1 ;POS| 000006C0: 20 43 48 41 52 20 31 0D 46 4E 50 53 32 20 20 20 | CHAR 1.FNPS2 | 000006D0: 20 3D 20 24 30 33 30 32 2B 32 20 3B 50 4F 53 20 | = $0302+2 ;POS | 000006E0: 43 48 41 52 20 32 0D 0D 20 20 20 20 20 20 20 20 |CHAR 2.. | 000006F0: 20 3B 5E 22 46 49 4C 45 4E 41 4D 45 20 20 20 20 | ;^"FILENAME | 00000700: 20 20 20 20 22 0D 20 20 20 20 20 20 20 20 20 3B | ". ;| 00000710: 20 20 31 32 33 34 35 36 37 38 39 30 31 32 33 34 | 12345678901234| 00000720: 35 36 0D 20 20 20 20 20 20 20 20 20 3B 20 20 B7 |56. ; .| 00000730: B7 0D 20 20 20 20 20 20 20 20 20 3B 54 48 45 20 |.. ;THE | 00000740: 4C 4F 41 44 45 52 20 44 45 54 45 43 54 20 54 48 |LOADER DETECT TH| 00000750: 45 20 46 49 4C 45 4E 41 4D 45 0D 20 20 20 20 20 |E FILENAME. | 00000760: 20 20 20 20 3B 4F 4E 20 54 48 45 20 46 49 52 53 | ;ON THE FIRS| 00000770: 54 20 54 57 4F 20 4C 45 54 54 45 52 53 2E 0D 20 |T TWO LETTERS.. | 00000780: 20 20 20 20 20 20 20 20 3B 59 4F 55 20 43 41 4E | ;YOU CAN| 00000790: 20 43 48 41 4E 47 45 20 49 54 2E 0D 20 20 20 20 | CHANGE IT.. | 000007A0: 20 20 20 20 20 3B 46 2E 45 2E 20 43 4F 4D 50 41 | ;F.E. COMPA| 000007B0: 52 45 20 41 4C 57 41 59 53 20 4C 41 53 54 20 54 |RE ALWAYS LAST T| 000007C0: 57 4F 0D 20 20 20 20 20 20 20 20 20 3B 43 48 41 |WO. ;CHA| 000007D0: 52 53 20 46 4E 50 53 31 20 41 4E 44 20 46 4E 50 |RS FNPS1 AND FNP| 000007E0: 53 32 20 54 48 45 4E 2E 2E 2E 0D 0D 20 20 20 20 |S2 THEN..... | 000007F0: 20 20 20 20 20 3B 46 4E 50 53 31 20 3D 20 24 30 | ;FNPS1 = $0| 00000800: 33 30 32 2B 31 35 0D 20 20 20 20 20 20 20 20 20 |302+15. | 00000810: 3B 46 4E 50 53 32 20 3D 20 24 30 33 30 32 2B 31 |;FNPS2 = $0302+1| 00000820: 36 0D 0D 0D 3B C0 C0 C0 20 4C 4F 41 44 45 52 20 |6...;... LOADER | 00000830: 43 4F 44 45 20 42 45 47 49 4E 53 20 48 45 52 45 |CODE BEGINS HERE| 00000840: 0D 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 49 |.. JMP I| 00000850: 4E 49 54 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |NIT. JMP| 00000860: 20 53 45 54 53 50 44 0D 4C 4F 41 44 0D 20 20 20 | SETSPD.LOAD. | 00000870: 20 20 20 20 20 20 53 54 58 20 46 4E 54 52 0D 20 | STX FNTR. | 00000880: 20 20 20 20 20 20 20 20 53 54 59 20 46 4E 53 43 | STY FNSC| 00000890: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4C 4F |. STA LO| 000008A0: 41 44 4D 4F 44 45 0D 20 20 20 20 20 20 20 20 20 |ADMODE. | 000008B0: 4C 44 41 20 24 44 44 30 30 0D 20 20 20 20 20 20 |LDA $DD00. | 000008C0: 20 20 20 41 4E 44 20 23 24 30 46 0D 20 20 20 20 | AND #$0F. | 000008D0: 20 20 20 20 20 53 54 41 20 49 4C 31 0D 20 20 20 | STA IL1. | 000008E0: 20 20 20 20 20 20 4C 44 58 20 23 30 0D 50 44 44 | LDX #0.PDD| 000008F0: 20 20 20 20 20 20 45 4F 52 20 49 4C 54 41 42 2C | EOR ILTAB,| 00000900: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 49 |X. STA I| 00000910: 4C 32 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E |L2,X. IN| 00000920: 58 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 23 |X. CPX #| 00000930: 34 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 50 |4. BNE P| 00000940: 44 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |DD. LDA | 00000950: 49 4C 33 0D 20 20 20 20 20 20 20 20 20 53 54 41 |IL3. STA| 00000960: 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 20 20 | $DD00. | 00000970: 4A 53 52 20 4E 57 41 49 54 0D 20 20 20 20 20 20 |JSR NWAIT. | 00000980: 20 20 20 4C 44 41 20 46 4E 54 52 0D 20 20 20 20 | LDA FNTR. | 00000990: 20 20 20 20 20 4A 53 52 20 53 45 4E 44 42 0D 20 | JSR SENDB. | 000009A0: 20 20 20 20 20 20 20 20 4C 44 41 20 46 4E 53 43 | LDA FNSC| 000009B0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 |. JSR SE| 000009C0: 4E 44 42 0D 4C 4F 41 44 4D 4F 44 45 20 3D 20 2A |NDB.LOADMODE = *| 000009D0: 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |+1. LDA | 000009E0: 23 30 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |#0. JSR | 000009F0: 53 45 4E 44 42 0D 0D 20 20 20 20 20 20 20 20 20 |SENDB.. | 00000A00: 4A 53 52 20 4E 57 41 49 54 0D 20 20 20 20 20 20 |JSR NWAIT. | 00000A10: 20 20 20 4C 44 41 20 53 50 45 45 44 0D 20 20 20 | LDA SPEED. | 00000A20: 20 20 20 20 20 20 42 45 51 20 4E 4F 52 4D 4C 4F | BEQ NORMLO| 00000A30: 41 44 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |AD. JSR | 00000A40: 44 45 43 52 55 53 48 45 52 0D 20 20 20 20 20 20 |DECRUSHER. | 00000A50: 20 20 20 52 54 53 0D 0D 4E 4F 52 4D 4C 4F 41 44 | RTS..NORMLOAD| 00000A60: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 47 45 |. JSR GE| 00000A70: 54 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 53 |TBYTE. S| 00000A80: 54 41 20 41 41 45 0D 20 20 20 20 20 20 20 20 20 |TA AAE. | 00000A90: 4A 53 52 20 47 45 54 42 59 54 45 0D 20 20 20 20 |JSR GETBYTE. | 00000AA0: 20 20 20 20 20 53 54 41 20 41 41 46 0D 4E 45 58 | STA AAF.NEX| 00000AB0: 54 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 4A |TBYTE. J| 00000AC0: 53 52 20 47 45 54 42 59 54 45 0D 20 20 20 20 20 |SR GETBYTE. | 00000AD0: 20 20 20 20 43 4D 50 20 23 24 39 39 0D 20 20 20 | CMP #$99. | 00000AE0: 20 20 20 20 20 20 42 4E 45 20 53 45 54 42 59 54 | BNE SETBYT| 00000AF0: 45 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 47 |E. JSR G| 00000B00: 45 54 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 |ETBYTE. | 00000B10: 43 4D 50 20 23 24 39 39 0D 20 20 20 20 20 20 20 |CMP #$99. | 00000B20: 20 20 42 45 51 20 53 45 54 42 59 54 45 0D 20 20 | BEQ SETBYTE. | 00000B30: 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 46 0D | CMP #$FF.| 00000B40: 20 20 20 20 20 20 20 20 20 42 45 51 20 46 49 4C | BEQ FIL| 00000B50: 45 45 4E 44 0D 20 20 20 20 20 20 20 20 20 43 4D |EEND. CM| 00000B60: 50 20 23 24 46 45 0D 20 20 20 20 20 20 20 20 20 |P #$FE. | 00000B70: 42 45 51 20 46 49 4C 45 45 4E 44 0D 20 20 20 20 |BEQ FILEEND. | 00000B80: 20 20 20 20 20 4A 53 52 20 4E 57 41 49 54 0D 20 | JSR NWAIT. | 00000B90: 20 20 20 20 20 20 20 20 4A 4D 50 20 4E 45 58 54 | JMP NEXT| 00000BA0: 42 59 54 45 0D 53 45 54 42 59 54 45 0D 20 20 20 |BYTE.SETBYTE. | 00000BB0: 20 20 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 | LDY #0. | 00000BC0: 20 20 20 20 20 20 4C 44 58 20 31 20 20 20 20 3B | LDX 1 ;| 00000BD0: 3C 3D 20 20 55 53 45 20 57 48 4F 4C 45 20 52 41 |<= USE WHOLE RA| 00000BE0: 4D 3F 0D 20 20 20 20 20 20 20 20 20 53 45 49 20 |M?. SEI | 00000BF0: 20 20 20 20 20 3B 41 4C 53 4F 20 52 41 4D 20 55 | ;ALSO RAM U| 00000C00: 4E 44 45 52 20 24 44 30 30 30 0D 20 20 20 20 20 |NDER $D000. | 00000C10: 20 20 20 20 53 54 59 20 31 0D 20 20 20 20 20 20 | STY 1. | 00000C20: 20 20 20 53 54 41 20 28 50 41 45 29 2C 59 0D 20 | STA (PAE),Y. | 00000C30: 20 20 20 20 20 20 20 20 53 54 58 20 31 0D 20 20 | STX 1. | 00000C40: 20 20 20 20 20 20 20 43 4C 49 0D 20 20 20 20 20 | CLI. | 00000C50: 20 20 20 20 49 4E 43 20 41 41 45 0D 20 20 20 20 | INC AAE. | 00000C60: 20 20 20 20 20 42 4E 45 20 53 45 54 42 32 0D 20 | BNE SETB2. | 00000C70: 20 20 20 20 20 20 20 20 49 4E 43 20 41 41 46 0D | INC AAF.| 00000C80: 53 45 54 42 32 20 20 20 20 42 4E 45 20 4E 45 58 |SETB2 BNE NEX| 00000C90: 54 42 59 54 45 0D 46 49 4C 45 45 4E 44 0D 20 20 |TBYTE.FILEEND. | 00000CA0: 20 20 20 20 20 20 20 52 54 53 0D 0D 4E 57 41 49 | RTS..NWAI| 00000CB0: 54 20 20 20 20 4C 44 58 20 23 24 33 32 0D 4E 57 |T LDX #$32.NW| 00000CC0: 31 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 |1 DEX. | 00000CD0: 20 20 20 20 42 4E 45 20 4E 57 31 0D 4E 57 32 20 | BNE NW1.NW2 | 00000CE0: 20 20 20 20 20 42 49 54 20 24 44 44 30 30 0D 20 | BIT $DD00. | 00000CF0: 20 20 20 20 20 20 20 20 42 56 43 20 4E 57 32 0D | BVC NW2.| 00000D00: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 | LDX #$0| 00000D10: 35 0D 4E 57 33 20 20 20 20 20 20 44 45 58 0D 20 |5.NW3 DEX. | 00000D20: 20 20 20 20 20 20 20 20 42 4E 45 20 4E 57 33 0D | BNE NW3.| 00000D30: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 49 4E | RTS..IN| 00000D40: 49 54 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |IT. LDA | 00000D50: 23 3C 44 52 56 50 52 47 0D 20 20 20 20 20 20 20 |#<DRVPRG. | 00000D60: 20 20 4C 44 58 20 23 3E 44 52 56 50 52 47 0D 20 | LDX #>DRVPRG. | 00000D70: 20 20 20 20 20 20 20 20 53 54 41 20 49 4C 31 0D | STA IL1.| 00000D80: 20 20 20 20 20 20 20 20 20 53 54 58 20 49 4C 32 | STX IL2| 00000D90: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C |. LDA #<| 00000DA0: 24 30 34 30 30 0D 20 20 20 20 20 20 20 20 20 4C |$0400. L| 00000DB0: 44 58 20 23 3E 24 30 34 30 30 0D 20 20 20 20 20 |DX #>$0400. | 00000DC0: 20 20 20 20 53 54 41 20 49 4C 33 0D 20 20 20 20 | STA IL3. | 00000DD0: 20 20 20 20 20 53 54 58 20 49 4C 34 0D 49 4E 49 | STX IL4.INI| 00000DE0: 54 32 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |T2. JSR | 00000DF0: 44 52 56 4D 4F 44 0D 20 20 20 20 20 20 20 20 20 |DRVMOD. | 00000E00: 4C 44 41 20 23 22 57 22 0D 20 20 20 20 20 20 20 |LDA #"W". | 00000E10: 20 20 4C 44 58 20 49 4C 33 0D 20 20 20 20 20 20 | LDX IL3. | 00000E20: 20 20 20 4C 44 59 20 49 4C 34 0D 20 20 20 20 20 | LDY IL4. | 00000E30: 20 20 20 20 4A 53 52 20 42 59 54 53 33 0D 20 20 | JSR BYTS3. | 00000E40: 20 20 20 20 20 20 20 4C 44 41 20 23 33 34 0D 20 | LDA #34. | 00000E50: 20 20 20 20 20 20 20 20 4A 53 52 20 24 45 44 44 | JSR $EDD| 00000E60: 44 0D 20 20 20 20 20 20 20 20 20 54 41 58 0D 20 |D. TAX. | 00000E70: 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 | DEX. | 00000E80: 20 20 20 20 20 4C 44 59 20 23 24 30 30 0D 4D 57 | LDY #$00.MW| 00000E90: 31 20 20 20 20 20 20 4C 44 41 20 28 49 4C 31 29 |1 LDA (IL1)| 00000EA0: 2C 59 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |,Y. JSR | 00000EB0: 24 45 44 44 44 0D 20 20 20 20 20 20 20 20 20 49 |$EDDD. I| 00000EC0: 4E 43 20 49 4C 31 0D 20 20 20 20 20 20 20 20 20 |NC IL1. | 00000ED0: 42 4E 45 20 4D 57 32 0D 20 20 20 20 20 20 20 20 |BNE MW2. | 00000EE0: 20 49 4E 43 20 49 4C 32 0D 4D 57 32 20 20 20 20 | INC IL2.MW2 | 00000EF0: 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 | DEX. B| 00000F00: 50 4C 20 4D 57 31 0D 20 20 20 20 20 20 20 20 20 |PL MW1. | 00000F10: 4A 53 52 20 24 45 44 46 45 0D 20 20 20 20 20 20 |JSR $EDFE. | 00000F20: 20 20 20 4C 44 41 20 49 4C 33 0D 20 20 20 20 20 | LDA IL3. | 00000F30: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00000F40: 20 41 44 43 20 23 33 34 0D 20 20 20 20 20 20 20 | ADC #34. | 00000F50: 20 20 53 54 41 20 49 4C 33 0D 20 20 20 20 20 20 | STA IL3. | 00000F60: 20 20 20 4C 44 41 20 49 4C 34 0D 20 20 20 20 20 | LDA IL4. | 00000F70: 20 20 20 20 41 44 43 20 23 30 0D 20 20 20 20 20 | ADC #0. | 00000F80: 20 20 20 20 53 54 41 20 49 4C 34 0D 20 20 20 20 | STA IL4. | 00000F90: 20 20 20 20 20 43 4D 50 20 23 37 0D 20 20 20 20 | CMP #7. | 00000FA0: 20 20 20 20 20 42 43 43 20 49 4E 49 54 32 0D 20 | BCC INIT2. | 00000FB0: 20 20 20 20 20 20 20 20 4A 53 52 20 44 52 56 4D | JSR DRVM| 00000FC0: 4F 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |OD. LDA | 00000FD0: 23 22 45 22 0D 20 20 20 20 20 20 20 20 20 4C 44 |#"E". LD| 00000FE0: 58 20 23 3C 24 30 34 30 30 0D 20 20 20 20 20 20 |X #<$0400. | 00000FF0: 20 20 20 4C 44 59 20 23 3E 24 30 34 30 30 0D 20 | LDY #>$0400. | 00001000: 20 20 20 20 20 20 20 20 4A 53 52 20 42 59 54 53 | JSR BYTS| 00001010: 33 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 |3. JSR $| 00001020: 45 44 46 45 0D 20 20 20 20 20 20 20 20 20 4C 44 |EDFE. LD| 00001030: 58 20 23 24 46 46 0D 20 20 20 20 20 20 20 20 20 |X #$FF. | 00001040: 50 48 41 0D 20 20 20 20 20 20 20 20 20 50 4C 41 |PHA. PLA| 00001050: 0D 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 |. DEX. | 00001060: 20 20 20 20 20 20 20 42 4E 45 20 2A 2D 33 0D 20 | BNE *-3. | 00001070: 20 20 20 20 20 20 20 20 52 54 53 0D 0D 44 52 56 | RTS..DRV| 00001080: 4D 4F 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |MOD. LDA| 00001090: 20 23 38 20 3B 3E 20 46 4C 4F 50 50 59 20 38 0D | #8 ;> FLOPPY 8.| 000010A0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 45 44 | JSR $ED| 000010B0: 30 43 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |0C. LDA | 000010C0: 23 24 36 46 0D 20 20 20 20 20 20 20 20 20 4A 53 |#$6F. JS| 000010D0: 52 20 24 45 44 42 39 0D 20 20 20 20 20 20 20 20 |R $EDB9. | 000010E0: 20 4C 44 41 20 23 22 4D 22 0D 20 20 20 20 20 20 | LDA #"M". | 000010F0: 20 20 20 4C 44 59 20 23 22 2D 22 0D 20 20 20 20 | LDY #"-". | 00001100: 20 20 20 20 20 4A 4D 50 20 42 59 54 53 32 0D 42 | JMP BYTS2.B| 00001110: 59 54 53 33 0D 20 20 20 20 20 20 20 20 20 4A 53 |YTS3. JS| 00001120: 52 20 24 45 44 44 44 0D 20 20 20 20 20 20 20 20 |R $EDDD. | 00001130: 20 54 58 41 0D 42 59 54 53 32 0D 20 20 20 20 20 | TXA.BYTS2. | 00001140: 20 20 20 20 4A 53 52 20 24 45 44 44 44 0D 20 20 | JSR $EDDD. | 00001150: 20 20 20 20 20 20 20 54 59 41 0D 20 20 20 20 20 | TYA. | 00001160: 20 20 20 20 4A 4D 50 20 24 45 44 44 44 0D 0D 47 | JMP $EDDD..G| 00001170: 45 54 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 |ETBYTE. | 00001180: 4C 44 59 20 23 33 0D 0D 49 4C 34 42 20 20 20 20 |LDY #3..IL4B | 00001190: 20 4C 44 58 20 49 4C 34 0D 20 20 20 20 20 20 20 | LDX IL4. | 000011A0: 20 20 4C 44 41 20 24 44 44 30 30 0D 20 20 20 20 | LDA $DD00. | 000011B0: 20 20 20 20 20 53 54 58 20 24 44 44 30 30 0D 20 | STX $DD00. | 000011C0: 20 20 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 | ASL A. | 000011D0: 20 20 20 20 20 20 20 4C 44 58 20 23 36 0D 20 20 | LDX #6. | 000011E0: 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 | DEX. | 000011F0: 20 20 20 20 42 4E 45 20 2A 2D 31 0D 20 20 20 20 | BNE *-1. | 00001200: 20 20 20 20 20 52 4F 52 20 49 4C 36 0D 20 20 20 | ROR IL6. | 00001210: 20 20 20 20 20 20 4C 44 58 20 49 4C 35 0D 20 20 | LDX IL5. | 00001220: 20 20 20 20 20 20 20 4C 44 41 20 24 44 44 30 30 | LDA $DD00| 00001230: 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 24 44 |. STX $D| 00001240: 44 30 30 0D 20 20 20 20 20 20 20 20 20 41 53 4C |D00. ASL| 00001250: 20 41 0D 20 20 20 20 20 20 20 20 20 52 4F 52 20 | A. ROR | 00001260: 49 4C 36 0D 20 20 20 20 20 20 20 20 20 44 45 59 |IL6. DEY| 00001270: 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 49 4C |. BPL IL| 00001280: 34 42 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |4B. LDA | 00001290: 49 4C 36 0D 20 20 20 20 20 20 20 20 20 52 54 53 |IL6. RTS| 000012A0: 0D 53 45 4E 44 42 0D 20 20 20 20 20 20 20 20 20 |.SENDB. | 000012B0: 53 54 41 20 49 4C 36 0D 20 20 20 20 20 20 20 20 |STA IL6. | 000012C0: 20 4C 44 59 20 23 33 0D 53 45 4E 44 42 32 0D 20 | LDY #3.SENDB2. | 000012D0: 20 20 20 20 20 20 20 20 4A 53 52 20 49 4C 32 42 | JSR IL2B| 000012E0: 0D 20 20 20 20 20 20 20 20 20 44 45 59 0D 20 20 |. DEY. | 000012F0: 20 20 20 20 20 20 20 42 50 4C 20 53 45 4E 44 42 | BPL SENDB| 00001300: 32 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D |2. RTS..| 00001310: 49 4C 32 42 20 20 20 20 20 4C 44 41 20 49 4C 32 |IL2B LDA IL2| 00001320: 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 49 4C |. LSR IL| 00001330: 36 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 49 |6. BCC I| 00001340: 4C 32 43 0D 20 20 20 20 20 20 20 20 20 4F 52 41 |L2C. ORA| 00001350: 20 23 24 32 30 0D 49 4C 32 43 20 20 20 20 20 53 | #$20.IL2C S| 00001360: 54 41 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 |TA $DD00. | 00001370: 20 20 4C 44 41 20 49 4C 31 0D 20 20 20 20 20 20 | LDA IL1. | 00001380: 20 20 20 4C 53 52 20 49 4C 36 0D 20 20 20 20 20 | LSR IL6. | 00001390: 20 20 20 20 42 43 43 20 49 4C 32 44 0D 20 20 20 | BCC IL2D. | 000013A0: 20 20 20 20 20 20 4F 52 41 20 23 24 32 30 0D 49 | ORA #$20.I| 000013B0: 4C 32 44 20 20 20 20 20 53 54 41 20 24 44 44 30 |L2D STA $DD0| 000013C0: 30 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 49 |0. RTS.I| 000013D0: 4C 54 41 42 0D 20 20 20 20 20 20 20 20 20 2E 42 |LTAB. .B| 000013E0: 59 54 45 20 24 31 30 2C 24 33 30 2C 24 42 30 2C |YTE $10,$30,$B0,| 000013F0: 24 35 30 0D 0D 44 45 43 52 55 53 48 45 52 0D 49 |$50..DECRUSHER.I| 00001400: 31 38 20 20 20 20 20 20 4A 53 52 20 4E 45 58 54 |18 JSR NEXT| 00001410: 42 59 54 45 32 0D 20 20 20 20 20 20 20 20 20 53 |BYTE2. S| 00001420: 54 41 20 41 46 42 0D 20 20 20 20 20 20 20 20 20 |TA AFB. | 00001430: 4A 53 52 20 4E 45 58 54 42 59 54 45 32 0D 20 20 |JSR NEXTBYTE2. | 00001440: 20 20 20 20 20 20 20 53 54 41 20 41 46 43 0D 0D | STA AFC..| 00001450: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D | LDX #0.| 00001460: 20 20 20 20 20 20 20 20 20 53 54 58 20 41 46 39 | STX AF9| 00001470: 0D 49 32 36 20 20 20 20 20 20 53 54 58 20 41 46 |.I26 STX AF| 00001480: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |E. LDA #| 00001490: 31 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 49 |1. JSR I| 000014A0: 43 45 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 |CE. BCS | 000014B0: 49 35 42 0D 49 32 46 20 20 20 20 20 20 4A 53 52 |I5B.I2F JSR| 000014C0: 20 49 43 45 0D 20 20 20 20 20 20 20 20 20 42 43 | ICE. BC| 000014D0: 53 20 49 33 43 0D 20 20 20 20 20 20 20 20 20 4A |S I3C. J| 000014E0: 53 52 20 49 43 45 0D 20 20 20 20 20 20 20 20 20 |SR ICE. | 000014F0: 52 4F 4C 20 41 0D 20 20 20 20 20 20 20 20 20 52 |ROL A. R| 00001500: 4F 4C 20 41 46 45 0D 20 20 20 20 20 20 20 20 20 |OL AFE. | 00001510: 42 50 4C 20 49 32 46 0D 49 33 43 20 20 20 20 20 |BPL I2F.I3C | 00001520: 20 54 41 58 0D 20 20 20 20 20 20 20 20 20 42 45 | TAX. BE| 00001530: 51 20 49 35 33 0D 49 33 46 20 20 20 20 20 20 4A |Q I53.I3F J| 00001540: 53 52 20 4E 45 58 54 42 59 54 45 32 0D 20 20 20 |SR NEXTBYTE2. | 00001550: 20 20 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 | LDY #0. | 00001560: 20 20 20 20 20 20 53 54 41 20 28 50 46 42 29 2C | STA (PFB),| 00001570: 59 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 41 |Y. INC A| 00001580: 46 42 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |FB. BNE | 00001590: 49 35 30 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |I50. INC| 000015A0: 20 41 46 43 0D 49 35 30 20 20 20 20 20 20 44 45 | AFC.I50 DE| 000015B0: 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 49 |X. BNE I| 000015C0: 33 46 0D 49 35 33 20 20 20 20 20 20 43 50 58 20 |3F.I53 CPX | 000015D0: 41 46 45 0D 20 20 20 20 20 20 20 20 20 44 45 43 |AFE. DEC| 000015E0: 20 41 46 45 0D 20 20 20 20 20 20 20 20 20 42 43 | AFE. BC| 000015F0: 43 20 49 33 46 0D 20 20 20 20 20 20 20 20 20 53 |C I3F. S| 00001600: 54 58 20 41 46 45 0D 49 35 42 20 20 20 20 20 20 |TX AFE.I5B | 00001610: 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 |LDA #1. | 00001620: 4A 53 52 20 49 43 45 0D 20 20 20 20 20 20 20 20 |JSR ICE. | 00001630: 20 42 43 43 20 49 36 46 0D 49 36 32 20 20 20 20 | BCC I6F.I62 | 00001640: 20 20 4A 53 52 20 49 43 45 0D 20 20 20 20 20 20 | JSR ICE. | 00001650: 20 20 20 42 43 53 20 49 37 30 0D 20 20 20 20 20 | BCS I70. | 00001660: 20 20 20 20 4A 53 52 20 49 43 45 0D 20 20 20 20 | JSR ICE. | 00001670: 20 20 20 20 20 52 4F 4C 20 41 0D 20 20 20 20 20 | ROL A. | 00001680: 20 20 20 20 42 43 43 20 49 36 32 0D 20 20 20 20 | BCC I62. | 00001690: 20 20 20 20 20 42 43 53 20 49 31 38 0D 49 36 46 | BCS I18.I6F| 000016A0: 20 20 20 20 20 20 49 4E 58 0D 49 37 30 20 20 20 | INX.I70 | 000016B0: 20 20 20 41 44 43 20 23 31 0D 20 20 20 20 20 20 | ADC #1. | 000016C0: 20 20 20 53 54 41 20 41 46 41 0D 20 20 20 20 20 | STA AFA. | 000016D0: 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 | TXA. | 000016E0: 20 4A 53 52 20 49 43 45 0D 20 20 20 20 20 20 20 | JSR ICE. | 000016F0: 20 20 52 4F 4C 20 41 0D 20 20 20 20 20 20 20 20 | ROL A. | 00001700: 20 4A 53 52 20 49 43 45 0D 20 20 20 20 20 20 20 | JSR ICE. | 00001710: 20 20 52 4F 4C 20 41 0D 20 20 20 20 20 20 20 20 | ROL A. | 00001720: 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C 44 | TAY. LD| 00001730: 41 20 23 30 0D 49 38 30 20 20 20 20 20 20 4C 44 |A #0.I80 LD| 00001740: 58 20 46 46 32 2C 59 0D 49 38 33 20 20 20 20 20 |X FF2,Y.I83 | 00001750: 20 4A 53 52 20 49 43 45 0D 20 20 20 20 20 20 20 | JSR ICE. | 00001760: 20 20 52 4F 4C 20 41 0D 20 20 20 20 20 20 20 20 | ROL A. | 00001770: 20 52 4F 4C 20 41 46 45 0D 20 20 20 20 20 20 20 | ROL AFE. | 00001780: 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 | DEX. B| 00001790: 4E 45 20 49 38 33 0D 20 20 20 20 20 20 20 20 20 |NE I83. | 000017A0: 44 45 59 0D 20 20 20 20 20 20 20 20 20 42 4D 49 |DEY. BMI| 000017B0: 20 49 39 44 0D 20 20 20 20 20 20 20 20 20 43 50 | I9D. CP| 000017C0: 59 20 23 33 0D 20 20 20 20 20 20 20 20 20 42 45 |Y #3. BE| 000017D0: 51 20 49 39 43 0D 20 20 20 20 20 20 20 20 20 43 |Q I9C. C| 000017E0: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 000017F0: 23 31 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 |#1. BCC | 00001800: 49 38 30 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |I80. INC| 00001810: 20 41 46 45 0D 20 20 20 20 20 20 20 20 20 42 43 | AFE. BC| 00001820: 53 20 49 38 30 0D 49 39 43 20 20 20 20 20 20 43 |S I80.I9C C| 00001830: 4C 43 0D 49 39 44 20 20 20 20 20 20 41 44 43 20 |LC.I9D ADC | 00001840: 41 46 41 0D 20 20 20 20 20 20 20 20 20 42 43 43 |AFA. BCC| 00001850: 20 49 41 33 0D 20 20 20 20 20 20 20 20 20 49 4E | IA3. IN| 00001860: 43 20 41 46 45 0D 49 41 33 20 20 20 20 20 20 43 |C AFE.IA3 C| 00001870: 4C 43 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 |LC. SBC | 00001880: 41 46 42 0D 20 20 20 20 20 20 20 20 20 45 4F 52 |AFB. EOR| 00001890: 20 23 24 46 46 0D 20 20 20 20 20 20 20 20 20 53 | #$FF. S| 000018A0: 54 41 20 41 46 44 0D 20 20 20 20 20 20 20 20 20 |TA AFD. | 000018B0: 4C 44 41 20 41 46 45 0D 20 20 20 20 20 20 20 20 |LDA AFE. | 000018C0: 20 53 42 43 20 41 46 43 0D 20 20 20 20 20 20 20 | SBC AFC. | 000018D0: 20 20 45 4F 52 20 23 24 46 46 0D 20 20 20 20 20 | EOR #$FF. | 000018E0: 20 20 20 20 53 54 41 20 41 46 45 0D 20 20 20 20 | STA AFE. | 000018F0: 20 20 20 20 20 4C 44 59 20 23 24 30 30 0D 49 42 | LDY #$00.IB| 00001900: 36 20 20 20 20 20 20 4C 44 41 20 28 50 46 44 29 |6 LDA (PFD)| 00001910: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 00001920: 28 50 46 42 29 2C 59 0D 20 20 20 20 20 20 20 20 |(PFB),Y. | 00001930: 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 43 50 | INY. CP| 00001940: 59 20 41 46 41 0D 20 20 20 20 20 20 20 20 20 42 |Y AFA. B| 00001950: 4E 45 20 49 42 36 0D 20 20 20 20 20 20 20 20 20 |NE IB6. | 00001960: 54 59 41 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |TYA. CLC| 00001970: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 41 46 |. ADC AF| 00001980: 42 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 41 |B. STA A| 00001990: 46 42 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 |FB. BCC | 000019A0: 49 43 42 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |ICB. INC| 000019B0: 20 41 46 43 0D 49 43 42 20 20 20 20 20 20 4A 4D | AFC.ICB JM| 000019C0: 50 20 49 32 36 0D 49 43 45 20 20 20 20 20 20 41 |P I26.ICE A| 000019D0: 53 4C 20 41 46 39 0D 20 20 20 20 20 20 20 20 20 |SL AF9. | 000019E0: 42 45 51 20 49 44 33 0D 20 20 20 20 20 20 20 20 |BEQ ID3. | 000019F0: 20 52 54 53 0D 49 44 33 20 20 20 20 20 20 53 54 | RTS.ID3 ST| 00001A00: 41 20 42 59 54 41 0D 20 20 20 20 20 20 20 20 20 |A BYTA. | 00001A10: 4A 53 52 20 4E 45 58 54 42 59 54 45 32 0D 20 20 |JSR NEXTBYTE2. | 00001A20: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. | 00001A30: 20 20 20 20 52 4F 4C 20 41 0D 20 20 20 20 20 20 | ROL A. | 00001A40: 20 20 20 53 54 41 20 41 46 39 0D 20 20 20 20 20 | STA AF9. | 00001A50: 20 20 20 20 4C 44 41 20 42 59 54 41 0D 49 31 30 | LDA BYTA.I10| 00001A60: 44 43 20 20 20 20 52 54 53 0D 46 49 4C 45 45 4E |DC RTS.FILEEN| 00001A70: 44 32 0D 20 20 20 20 20 20 20 20 20 50 4C 41 0D |D2. PLA.| 00001A80: 20 20 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 | PLA. | 00001A90: 20 20 20 20 20 20 52 54 53 0D 4E 45 58 54 42 59 | RTS.NEXTBY| 00001AA0: 54 45 32 0D 20 20 20 20 20 20 20 20 20 53 54 58 |TE2. STX| 00001AB0: 20 42 59 54 58 0D 20 20 20 20 20 20 20 20 20 53 | BYTX. S| 00001AC0: 54 59 20 42 59 54 59 0D 20 20 20 20 20 20 20 20 |TY BYTY. | 00001AD0: 20 4A 53 52 20 47 45 54 42 59 54 45 0D 20 20 20 | JSR GETBYTE. | 00001AE0: 20 20 20 20 20 20 43 4D 50 20 23 24 39 39 0D 20 | CMP #$99. | 00001AF0: 20 20 20 20 20 20 20 20 42 4E 45 20 53 45 54 42 | BNE SETB| 00001B00: 59 54 45 32 0D 20 20 20 20 20 20 20 20 20 4A 53 |YTE2. JS| 00001B10: 52 20 47 45 54 42 59 54 45 0D 20 20 20 20 20 20 |R GETBYTE. | 00001B20: 20 20 20 43 4D 50 20 23 24 39 39 0D 20 20 20 20 | CMP #$99. | 00001B30: 20 20 20 20 20 42 45 51 20 53 45 54 42 59 54 45 | BEQ SETBYTE| 00001B40: 32 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |2. CMP #| 00001B50: 24 46 46 0D 20 20 20 20 20 20 20 20 20 42 45 51 |$FF. BEQ| 00001B60: 20 46 49 4C 45 45 4E 44 32 0D 20 20 20 20 20 20 | FILEEND2. | 00001B70: 20 20 20 43 4D 50 20 23 24 46 45 0D 20 20 20 20 | CMP #$FE. | 00001B80: 20 20 20 20 20 42 45 51 20 46 49 4C 45 45 4E 44 | BEQ FILEEND| 00001B90: 32 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 4E |2. JSR N| 00001BA0: 57 41 49 54 0D 20 20 20 20 20 20 20 20 20 4C 44 |WAIT. LD| 00001BB0: 58 20 42 59 54 58 0D 20 20 20 20 20 20 20 20 20 |X BYTX. | 00001BC0: 4C 44 59 20 42 59 54 59 0D 20 20 20 20 20 20 20 |LDY BYTY. | 00001BD0: 20 20 4A 4D 50 20 4E 45 58 54 42 59 54 45 32 0D | JMP NEXTBYTE2.| 00001BE0: 53 45 54 42 59 54 45 32 0D 20 20 20 20 20 20 20 |SETBYTE2. | 00001BF0: 20 20 4C 44 58 20 42 59 54 58 0D 20 20 20 20 20 | LDX BYTX. | 00001C00: 20 20 20 20 4C 44 59 20 42 59 54 59 0D 20 20 20 | LDY BYTY. | 00001C10: 20 20 20 20 20 20 52 54 53 0D 53 45 54 53 50 32 | RTS.SETSP2| 00001C20: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 36 |. LDX #6| 00001C30: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 45 |. JMP SE| 00001C40: 54 50 30 0D 53 45 54 53 50 31 0D 20 20 20 20 20 |TP0.SETSP1. | 00001C50: 20 20 20 20 4C 44 58 20 23 31 0D 20 20 20 20 20 | LDX #1. | 00001C60: 20 20 20 20 4A 4D 50 20 53 45 54 50 30 0D 53 45 | JMP SETP0.SE| 00001C70: 54 53 50 44 0D 20 20 20 20 20 20 20 20 20 53 54 |TSPD. ST| 00001C80: 41 20 53 50 45 45 44 0D 20 20 20 20 20 20 20 20 |A SPEED. | 00001C90: 20 54 41 58 0D 20 20 20 20 20 20 20 20 20 43 50 | TAX. CP| 00001CA0: 58 20 23 30 0D 20 20 20 20 20 20 20 20 20 42 45 |X #0. BE| 00001CB0: 51 20 53 45 54 53 50 31 0D 20 20 20 20 20 20 20 |Q SETSP1. | 00001CC0: 20 20 43 50 58 20 23 36 0D 20 20 20 20 20 20 20 | CPX #6. | 00001CD0: 20 20 42 43 53 20 53 45 54 53 50 32 0D 53 45 54 | BCS SETSP2.SET| 00001CE0: 50 30 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |P0. LDY | 00001CF0: 23 24 46 38 0D 53 45 54 50 31 0D 20 20 20 20 20 |#$F8.SETP1. | 00001D00: 20 20 20 20 54 59 41 0D 20 20 20 20 20 20 20 20 | TYA. | 00001D10: 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 | CLC. AD| 00001D20: 43 20 23 38 0D 20 20 20 20 20 20 20 20 20 54 41 |C #8. TA| 00001D30: 59 0D 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 |Y. DEX. | 00001D40: 20 20 20 20 20 20 20 20 42 4E 45 20 53 45 54 50 | BNE SETP| 00001D50: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |1. LDX #| 00001D60: 30 0D 53 45 54 50 32 0D 20 20 20 20 20 20 20 20 |0.SETP2. | 00001D70: 20 4C 44 41 20 53 50 45 45 44 53 2C 59 0D 20 20 | LDA SPEEDS,Y. | 00001D80: 20 20 20 20 20 20 20 53 54 41 20 46 46 32 2C 58 | STA FF2,X| 00001D90: 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |. INY. | 00001DA0: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. | 00001DB0: 20 20 20 20 43 50 58 20 23 38 0D 20 20 20 20 20 | CPX #8. | 00001DC0: 20 20 20 20 42 4E 45 20 53 45 54 50 32 0D 20 20 | BNE SETP2. | 00001DD0: 20 20 20 20 20 20 20 52 54 53 0D 0D 46 4E 54 52 | RTS..FNTR| 00001DE0: 20 20 20 20 20 2E 42 59 54 45 20 30 0D 46 4E 53 | .BYTE 0.FNS| 00001DF0: 43 20 20 20 20 20 2E 42 59 54 45 20 30 0D 53 50 |C .BYTE 0.SP| 00001E00: 45 45 44 20 20 20 20 2E 42 59 54 45 20 30 0D 42 |EED .BYTE 0.B| 00001E10: 59 54 41 20 20 20 20 20 2E 42 59 54 45 20 30 0D |YTA .BYTE 0.| 00001E20: 42 59 54 58 20 20 20 20 20 2E 42 59 54 45 20 30 |BYTX .BYTE 0| 00001E30: 0D 42 59 54 59 20 20 20 20 20 2E 42 59 54 45 20 |.BYTY .BYTE | 00001E40: 30 0D 0D 46 46 32 20 20 20 20 20 20 2E 42 59 54 |0..FF2 .BYT| 00001E50: 45 20 24 30 31 2C 24 30 32 2C 24 30 33 2C 24 30 |E $01,$02,$03,$0| 00001E60: 34 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |4. .BYTE| 00001E70: 20 24 30 35 2C 24 30 36 2C 24 30 37 2C 24 30 38 | $05,$06,$07,$08| 00001E80: 0D 53 50 45 45 44 53 0D 20 20 20 20 20 20 20 20 |.SPEEDS. | 00001E90: 20 2E 42 59 54 45 20 33 2C 31 2C 32 2C 32 2C 33 | .BYTE 3,1,2,2,3| 00001EA0: 2C 31 2C 32 2C 32 0D 20 20 20 20 20 20 20 20 20 |,1,2,2. | 00001EB0: 2E 42 59 54 45 20 33 2C 32 2C 32 2C 32 2C 33 2C |.BYTE 3,2,2,2,3,| 00001EC0: 32 2C 32 2C 32 0D 20 20 20 20 20 20 20 20 20 2E |2,2,2. .| 00001ED0: 42 59 54 45 20 34 2C 32 2C 32 2C 32 2C 34 2C 32 |BYTE 4,2,2,2,4,2| 00001EE0: 2C 32 2C 32 0D 20 20 20 20 20 20 20 20 20 2E 42 |,2,2. .B| 00001EF0: 59 54 45 20 34 2C 32 2C 32 2C 33 2C 34 2C 32 2C |YTE 4,2,2,3,4,2,| 00001F00: 32 2C 32 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |2,2. .BY| 00001F10: 54 45 20 34 2C 32 2C 33 2C 33 2C 34 2C 32 2C 32 |TE 4,2,3,3,4,2,2| 00001F20: 2C 32 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |,2. .BYT| 00001F30: 45 20 34 2C 33 2C 33 2C 33 2C 34 2C 32 2C 32 2C |E 4,3,3,3,4,2,2,| 00001F40: 32 0D 0D 0D 3B C0 C0 C0 20 43 4F 44 45 20 46 4F |2...;... CODE FO| 00001F50: 52 20 31 35 34 31 20 46 4C 4F 50 50 59 0D 3B 20 |R 1541 FLOPPY.; | 00001F60: 20 20 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 | ....| 00001F70: A3 A3 A3 A3 A3 A3 A3 0D 3B 41 46 54 45 52 20 4F |........;AFTER O| 00001F80: 4E 45 20 27 4A 53 52 20 49 4E 49 54 27 20 59 4F |NE 'JSR INIT' YO| 00001F90: 55 20 44 4F 4E 27 54 20 4E 45 45 44 0D 3B 54 48 |U DON'T NEED.;TH| 00001FA0: 49 53 20 52 4F 55 54 49 4E 45 20 4D 4F 52 45 2E |IS ROUTINE MORE.| 00001FB0: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00001FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 44 52 56 50 52 47 |---------.DRVPRG| 00001FE0: 0D 44 56 50 30 0D 20 20 20 20 20 20 20 20 20 4C |.DVP0. L| 00001FF0: 44 41 20 23 38 0D 20 20 20 20 20 20 20 20 20 4F |DA #8. O| 00002000: 52 41 20 24 31 43 30 30 0D 20 20 20 20 20 20 20 |RA $1C00. | 00002010: 20 20 53 54 41 20 24 31 43 30 30 0D 44 56 50 31 | STA $1C00.DVP1| 00002020: 20 20 20 20 20 4C 44 41 20 24 31 38 30 30 0D 20 | LDA $1800. | 00002030: 20 20 20 20 20 20 20 20 41 4E 44 20 23 35 0D 20 | AND #5. | 00002040: 20 20 20 20 20 20 20 20 42 4E 45 20 44 56 50 31 | BNE DVP1| 00002050: 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 44 |.. JSR D| 00002060: 56 50 38 42 2D 44 52 56 50 52 47 2B 24 30 34 30 |VP8B-DRVPRG+$040| 00002070: 30 0D 0D 3B C0 C0 C0 3E 20 53 45 41 52 43 48 20 |0..;...> SEARCH | 00002080: 49 4E 20 44 49 52 20 46 4F 52 20 46 49 4C 45 4E |IN DIR FOR FILEN| 00002090: 41 4D 45 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |AME.. LD| 000020A0: 59 20 23 31 0D 44 56 50 32 20 20 20 20 20 4C 44 |Y #1.DVP2 LD| 000020B0: 58 20 23 31 38 0D 20 20 20 20 20 20 20 20 20 53 |X #18. S| 000020C0: 54 58 20 36 0D 20 20 20 20 20 20 20 20 20 53 54 |TX 6. ST| 000020D0: 59 20 37 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |Y 7. JSR| 000020E0: 20 44 56 50 39 42 2D 44 52 56 50 52 47 2B 24 30 | DVP9B-DRVPRG+$0| 000020F0: 34 30 30 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |400.. LD| 00002100: 59 20 23 32 0D 44 56 50 33 20 20 20 20 20 4C 44 |Y #2.DVP3 LD| 00002110: 41 20 46 4E 50 53 31 2C 59 20 3B 43 4F 4D 50 41 |A FNPS1,Y ;COMPA| 00002120: 52 45 20 31 53 54 20 43 48 41 52 0D 43 4D 50 42 |RE 1ST CHAR.CMPB| 00002130: 31 20 20 20 20 3D 20 2A 2B 31 0D 20 20 20 20 20 |1 = *+1. | 00002140: 20 20 20 20 43 4D 50 20 23 30 0D 20 20 20 20 20 | CMP #0. | 00002150: 20 20 20 20 42 4E 45 20 44 56 50 34 0D 0D 20 20 | BNE DVP4.. | 00002160: 20 20 20 20 20 20 20 4C 44 41 20 46 4E 50 53 32 | LDA FNPS2| 00002170: 2C 59 20 3B 43 4F 4D 50 41 52 45 20 32 4E 44 20 |,Y ;COMPARE 2ND | 00002180: 43 48 41 52 0D 43 4D 50 42 32 20 20 20 20 3D 20 |CHAR.CMPB2 = | 00002190: 2A 2B 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |*+1. CMP| 000021A0: 20 23 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 | #0. BNE| 000021B0: 20 44 56 50 34 0D 0D 3B 4F 4B 2E 20 46 49 4C 45 | DVP4..;OK. FILE| 000021C0: 4E 41 4D 45 20 46 4F 55 4E 44 20 2E 2E 2E 0D 0D |NAME FOUND .....| 000021D0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 44 56 50 | JMP DVP| 000021E0: 34 43 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D |4C-DRVPRG+$0400.| 000021F0: 0D 3B C0 C0 C0 3E 20 52 45 41 44 20 4E 45 58 54 |.;...> READ NEXT| 00002200: 20 53 45 43 54 4F 52 0D 3B 41 4E 44 20 43 4F 4E | SECTOR.;AND CON| 00002210: 54 49 4E 55 45 20 53 45 41 52 43 48 49 4E 47 0D |TINUE SEARCHING.| 00002220: 44 56 50 34 20 20 20 20 20 54 59 41 0D 20 20 20 |DVP4 TYA. | 00002230: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00002240: 20 20 20 41 44 43 20 23 24 32 30 0D 20 20 20 20 | ADC #$20. | 00002250: 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 | TAY. | 00002260: 20 20 42 43 43 20 44 56 50 33 0D 0D 20 20 20 20 | BCC DVP3.. | 00002270: 20 20 20 20 20 4C 44 59 20 24 30 33 30 31 0D 20 | LDY $0301. | 00002280: 20 20 20 20 20 20 20 20 42 50 4C 20 44 56 50 32 | BPL DVP2| 00002290: 0D 44 56 50 34 42 0D 20 20 20 20 20 20 20 20 20 |.DVP4B. | 000022A0: 4A 53 52 20 44 56 50 32 38 2D 44 52 56 50 52 47 |JSR DVP28-DRVPRG| 000022B0: 2B 24 30 34 30 30 0D 20 20 20 20 20 20 20 20 20 |+$0400. | 000022C0: 4C 44 58 20 23 30 0D 20 20 20 20 20 20 20 20 20 |LDX #0. | 000022D0: 4A 53 52 20 53 45 4E 44 42 59 54 2D 44 52 56 50 |JSR SENDBYT-DRVP| 000022E0: 52 47 2B 24 30 34 30 30 0D 0D 20 20 20 20 20 20 |RG+$0400.. | 000022F0: 20 20 20 4C 44 58 20 23 30 0D 20 20 20 20 20 20 | LDX #0. | 00002300: 20 20 20 4A 53 52 20 53 45 4E 44 42 59 54 2D 44 | JSR SENDBYT-D| 00002310: 52 56 50 52 47 2B 24 30 34 30 30 0D 0D 20 20 20 |RVPRG+$0400.. | 00002320: 20 20 20 20 20 20 4C 44 58 20 23 24 39 39 0D 20 | LDX #$99. | 00002330: 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 4E 44 | JSR SEND| 00002340: 42 59 54 2D 44 52 56 50 52 47 2B 24 30 34 30 30 |BYT-DRVPRG+$0400| 00002350: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |.. LDX #| 00002360: 24 46 45 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |$FE. JSR| 00002370: 20 53 45 4E 44 42 59 54 2D 44 52 56 50 52 47 2B | SENDBYT-DRVPRG+| 00002380: 24 30 34 30 30 0D 0D 20 20 20 20 20 20 20 20 20 |$0400.. | 00002390: 52 54 53 0D 44 56 50 34 43 0D 20 20 20 20 20 20 |RTS.DVP4C. | 000023A0: 20 20 20 4C 44 41 20 24 30 33 30 31 2C 59 0D 20 | LDA $0301,Y. | 000023B0: 20 20 20 20 20 20 20 20 53 54 41 20 36 0D 20 20 | STA 6. | 000023C0: 20 20 20 20 20 20 20 4C 44 41 20 24 30 33 30 32 | LDA $0302| 000023D0: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 000023E0: 37 0D 44 56 50 34 44 0D 20 20 20 20 20 20 20 20 |7.DVP4D. | 000023F0: 20 4A 53 52 20 44 56 50 39 42 2D 44 52 56 50 52 | JSR DVP9B-DRVPR| 00002400: 47 2B 24 30 34 30 30 0D 0D 20 20 20 20 20 20 20 |G+$0400.. | 00002410: 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 | LDY #0. | 00002420: 20 20 4C 44 41 20 24 30 33 30 30 0D 20 20 20 20 | LDA $0300. | 00002430: 20 20 20 20 20 53 54 41 20 36 0D 20 20 20 20 20 | STA 6. | 00002440: 20 20 20 20 42 4E 45 20 44 56 50 35 0D 0D 20 20 | BNE DVP5.. | 00002450: 20 20 20 20 20 20 20 4C 44 59 20 24 30 33 30 31 | LDY $0301| 00002460: 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 44 56 |. INY.DV| 00002470: 50 35 20 20 20 20 20 53 54 59 20 24 30 31 31 38 |P5 STY $0118| 00002480: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 |. LDA $0| 00002490: 33 30 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |301. STA| 000024A0: 20 37 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 | 7. LDY | 000024B0: 23 32 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |#2. JSR | 000024C0: 44 56 50 32 38 2D 44 52 56 50 52 47 2B 24 30 34 |DVP28-DRVPRG+$04| 000024D0: 30 30 0D 44 56 50 36 20 20 20 20 20 4C 44 58 20 |00.DVP6 LDX | 000024E0: 24 30 33 30 30 2C 59 0D 20 20 20 20 20 20 20 20 |$0300,Y. | 000024F0: 20 43 50 58 20 23 24 39 39 0D 20 20 20 20 20 20 | CPX #$99. | 00002500: 20 20 20 42 4E 45 20 44 56 50 37 0D 0D 20 20 20 | BNE DVP7.. | 00002510: 20 20 20 20 20 20 4A 53 52 20 53 45 4E 44 42 59 | JSR SENDBY| 00002520: 54 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D 0D |T-DRVPRG+$0400..| 00002530: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 39 | LDX #$9| 00002540: 39 0D 44 56 50 37 20 20 20 20 20 4A 53 52 20 53 |9.DVP7 JSR S| 00002550: 45 4E 44 42 59 54 2D 44 52 56 50 52 47 2B 24 30 |ENDBYT-DRVPRG+$0| 00002560: 34 30 30 0D 0D 20 20 20 20 20 20 20 20 20 49 4E |400.. IN| 00002570: 59 0D 20 20 20 20 20 20 20 20 20 43 50 59 20 24 |Y. CPY $| 00002580: 30 31 31 38 0D 20 20 20 20 20 20 20 20 20 42 4E |0118. BN| 00002590: 45 20 44 56 50 36 0D 0D 20 20 20 20 20 20 20 20 |E DVP6.. | 000025A0: 20 4C 44 41 20 24 30 33 30 30 0D 20 20 20 20 20 | LDA $0300. | 000025B0: 20 20 20 20 42 45 51 20 44 56 50 38 0D 0D 20 20 | BEQ DVP8.. | 000025C0: 20 20 20 20 20 20 20 4C 44 58 20 23 24 39 39 0D | LDX #$99.| 000025D0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 4E | JSR SEN| 000025E0: 44 42 59 54 2D 44 52 56 50 52 47 2B 24 30 34 30 |DBYT-DRVPRG+$040| 000025F0: 30 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |0.. LDX | 00002600: 23 24 43 33 0D 20 20 20 20 20 20 20 20 20 4A 53 |#$C3. JS| 00002610: 52 20 53 45 4E 44 42 59 54 2D 44 52 56 50 52 47 |R SENDBYT-DRVPRG| 00002620: 2B 24 30 34 30 30 0D 0D 20 20 20 20 20 20 20 20 |+$0400.. | 00002630: 20 4A 53 52 20 44 56 50 32 37 2D 44 52 56 50 52 | JSR DVP27-DRVPR| 00002640: 47 2B 24 30 34 30 30 0D 0D 20 20 20 20 20 20 20 |G+$0400.. | 00002650: 20 20 4A 4D 50 20 44 56 50 34 44 2D 44 52 56 50 | JMP DVP4D-DRVP| 00002660: 52 47 2B 24 30 34 30 30 0D 0D 44 56 50 38 20 20 |RG+$0400..DVP8 | 00002670: 20 20 20 4C 44 58 20 23 24 39 39 0D 20 20 20 20 | LDX #$99. | 00002680: 20 20 20 20 20 4A 53 52 20 53 45 4E 44 42 59 54 | JSR SENDBYT| 00002690: 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D 0D 20 |-DRVPRG+$0400.. | 000026A0: 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 46 46 | LDX #$FF| 000026B0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 |. JSR SE| 000026C0: 4E 44 42 59 54 2D 44 52 56 50 52 47 2B 24 30 34 |NDBYT-DRVPRG+$04| 000026D0: 30 30 0D 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |00.. JMP| 000026E0: 20 44 56 50 30 2D 44 52 56 50 52 47 2B 24 30 34 | DVP0-DRVPRG+$04| 000026F0: 30 30 0D 44 56 50 38 42 0D 20 20 20 20 20 20 20 |00.DVP8B. | 00002700: 20 20 4A 53 52 20 44 56 50 32 37 2D 44 52 56 50 | JSR DVP27-DRVP| 00002710: 52 47 2B 24 30 34 30 30 0D 20 20 20 20 20 20 20 |RG+$0400. | 00002720: 20 20 43 4C 49 0D 20 20 20 20 20 20 20 20 20 4C | CLI. L| 00002730: 44 41 20 23 31 0D 44 56 50 39 20 20 20 20 20 42 |DA #1.DVP9 B| 00002740: 49 54 20 24 31 38 30 30 0D 20 20 20 20 20 20 20 |IT $1800. | 00002750: 20 20 42 45 51 20 44 56 50 39 0D 0D 20 20 20 20 | BEQ DVP9.. | 00002760: 20 20 20 20 20 53 45 49 0D 20 20 20 20 20 20 20 | SEI. | 00002770: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. | 00002780: 20 20 53 54 41 20 24 31 38 30 30 0D 0D 3B C0 C0 | STA $1800..;..| 00002790: C0 3E 20 52 45 41 44 20 42 59 54 45 53 20 46 52 |.> READ BYTES FR| 000027A0: 4F 4D 20 43 36 34 0D 3B 52 45 41 44 20 31 53 54 |OM C64.;READ 1ST| 000027B0: 20 43 48 41 52 20 4F 46 20 46 49 4C 45 4E 41 4D | CHAR OF FILENAM| 000027C0: 45 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |E.. JSR | 000027D0: 44 56 50 32 33 42 2D 44 52 56 50 52 47 2B 24 30 |DVP23B-DRVPRG+$0| 000027E0: 34 30 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 |400. STA| 000027F0: 20 43 4D 50 42 31 2D 44 52 56 50 52 47 2B 24 30 | CMPB1-DRVPRG+$0| 00002800: 34 30 30 0D 0D 3B 52 45 41 44 20 32 4E 44 20 43 |400..;READ 2ND C| 00002810: 48 41 52 20 4F 46 20 46 49 4C 45 4E 41 4D 45 0D |HAR OF FILENAME.| 00002820: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 44 56 |. JSR DV| 00002830: 50 32 33 42 2D 44 52 56 50 52 47 2B 24 30 34 30 |P23B-DRVPRG+$040| 00002840: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 |0. STA C| 00002850: 4D 50 42 32 2D 44 52 56 50 52 47 2B 24 30 34 30 |MPB2-DRVPRG+$040| 00002860: 30 0D 0D 3B 52 45 41 44 20 43 4F 4E 54 52 4F 4C |0..;READ CONTROL| 00002870: 20 42 59 54 45 20 28 44 49 52 20 4F 52 20 54 52 | BYTE (DIR OR TR| 00002880: 41 43 4B 2D 4C 4F 41 44 45 52 29 0D 0D 20 20 20 |ACK-LOADER).. | 00002890: 20 20 20 20 20 20 4A 53 52 20 44 56 50 32 33 42 | JSR DVP23B| 000028A0: 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D 20 20 |-DRVPRG+$0400. | 000028B0: 20 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 | TAX. | 000028C0: 20 20 20 20 4A 53 52 20 44 56 50 32 37 2D 44 52 | JSR DVP27-DR| 000028D0: 56 50 52 47 2B 24 30 34 30 30 0D 20 20 20 20 20 |VPRG+$0400. | 000028E0: 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 | TXA. | 000028F0: 20 43 4D 50 20 23 30 20 20 20 20 3B 54 52 41 43 | CMP #0 ;TRAC| 00002900: 4B 2D 4C 4F 41 44 45 52 20 3F 0D 20 20 20 20 20 |K-LOADER ?. | 00002910: 20 20 20 20 42 45 51 20 44 56 50 39 43 0D 0D 3B | BEQ DVP9C..;| 00002920: 53 54 41 52 54 20 54 52 41 43 4B 2C 53 45 43 54 |START TRACK,SECT| 00002930: 4F 52 20 4C 4F 41 44 49 4E 47 20 2E 2E 2E 0D 0D |OR LOADING .....| 00002940: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4D 50 | LDA CMP| 00002950: 42 31 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D |B1-DRVPRG+$0400.| 00002960: 20 20 20 20 20 20 20 20 20 53 54 41 20 36 0D 20 | STA 6. | 00002970: 20 20 20 20 20 20 20 20 4C 44 41 20 43 4D 50 42 | LDA CMPB| 00002980: 32 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D 20 |2-DRVPRG+$0400. | 00002990: 20 20 20 20 20 20 20 20 53 54 41 20 37 0D 20 20 | STA 7. | 000029A0: 20 20 20 20 20 20 20 4A 4D 50 20 44 56 50 34 44 | JMP DVP4D| 000029B0: 2D 44 52 56 50 52 47 2B 24 30 34 30 30 0D 44 56 |-DRVPRG+$0400.DV| 000029C0: 50 39 43 0D 20 20 20 20 20 20 20 20 20 52 54 53 |P9C. RTS| 000029D0: 0D 44 56 50 39 42 0D 20 20 20 20 20 20 20 20 20 |.DVP9B. | 000029E0: 4C 44 59 20 23 24 30 41 0D 20 20 20 20 20 20 20 |LDY #$0A. | 000029F0: 20 20 53 54 59 20 24 38 42 0D 44 56 50 31 30 20 | STY $8B.DVP10 | 00002A00: 20 20 20 43 4C 49 0D 20 20 20 20 20 20 20 20 20 | CLI. | 00002A10: 4C 44 41 20 23 24 38 30 0D 20 20 20 20 20 20 20 |LDA #$80. | 00002A20: 20 20 53 54 41 20 30 0D 44 56 50 31 31 20 20 20 | STA 0.DVP11 | 00002A30: 20 4C 44 41 20 30 0D 20 20 20 20 20 20 20 20 20 | LDA 0. | 00002A40: 42 4D 49 20 44 56 50 31 31 0D 20 20 20 20 20 20 |BMI DVP11. | 00002A50: 20 20 20 43 4D 50 20 23 31 0D 20 20 20 20 20 20 | CMP #1. | 00002A60: 20 20 20 42 45 51 20 44 56 50 31 35 0D 20 20 20 | BEQ DVP15. | 00002A70: 20 20 20 20 20 20 44 45 43 20 24 38 42 0D 20 20 | DEC $8B. | 00002A80: 20 20 20 20 20 20 20 4C 44 59 20 24 38 42 0D 20 | LDY $8B. | 00002A90: 20 20 20 20 20 20 20 20 42 4D 49 20 44 56 50 31 | BMI DVP1| 00002AA0: 34 0D 20 20 20 20 20 20 20 20 20 43 50 59 20 23 |4. CPY #| 00002AB0: 32 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 44 |2. BNE D| 00002AC0: 56 50 31 32 0D 0D 20 20 20 20 20 20 20 20 20 4C |VP12.. L| 00002AD0: 44 41 20 23 24 43 30 0D 20 20 20 20 20 20 20 20 |DA #$C0. | 00002AE0: 20 53 54 41 20 30 0D 44 56 50 31 32 20 20 20 20 | STA 0.DVP12 | 00002AF0: 4C 44 41 20 24 31 36 0D 20 20 20 20 20 20 20 20 |LDA $16. | 00002B00: 20 53 54 41 20 24 31 32 0D 20 20 20 20 20 20 20 | STA $12. | 00002B10: 20 20 4C 44 41 20 24 31 37 0D 20 20 20 20 20 20 | LDA $17. | 00002B20: 20 20 20 53 54 41 20 24 31 33 0D 44 56 50 31 33 | STA $13.DVP13| 00002B30: 20 20 20 20 4C 44 41 20 30 0D 20 20 20 20 20 20 | LDA 0. | 00002B40: 20 20 20 42 4D 49 20 44 56 50 31 33 0D 0D 20 20 | BMI DVP13.. | 00002B50: 20 20 20 20 20 20 20 42 50 4C 20 44 56 50 31 30 | BPL DVP10| 00002B60: 0D 44 56 50 31 34 20 20 20 20 50 4C 41 0D 20 20 |.DVP14 PLA. | 00002B70: 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 | PLA. | 00002B80: 20 20 20 20 4A 4D 50 20 44 56 50 34 42 2D 44 52 | JMP DVP4B-DR| 00002B90: 56 50 52 47 2B 24 30 34 30 30 0D 0D 44 56 50 31 |VPRG+$0400..DVP1| 00002BA0: 35 20 20 20 20 53 45 49 0D 20 20 20 20 20 20 20 |5 SEI. | 00002BB0: 20 20 52 54 53 0D 0D 3B C0 C0 C0 3E 20 53 45 4E | RTS..;...> SEN| 00002BC0: 44 20 41 20 42 59 54 45 20 54 4F 20 43 36 34 0D |D A BYTE TO C64.| 00002BD0: 0D 53 45 4E 44 42 59 54 0D 20 20 20 20 20 20 20 |.SENDBYT. | 00002BE0: 20 20 44 45 43 20 43 4F 55 4E 54 2D 44 52 56 50 | DEC COUNT-DRVP| 00002BF0: 52 47 2B 24 30 34 30 30 0D 20 20 20 20 20 20 20 |RG+$0400. | 00002C00: 20 20 42 4E 45 20 53 42 59 54 31 0D 20 20 20 20 | BNE SBYT1. | 00002C10: 20 20 20 20 20 53 54 58 20 43 4F 55 4E 54 2D 44 | STX COUNT-D| 00002C20: 52 56 50 52 47 2B 24 30 34 30 30 0D 20 20 20 20 |RVPRG+$0400. | 00002C30: 20 20 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 | LDA #8. | 00002C40: 20 20 20 20 20 45 4F 52 20 24 31 43 30 30 0D 20 | EOR $1C00. | 00002C50: 20 20 20 20 20 20 20 20 53 54 41 20 24 31 43 30 | STA $1C0| 00002C60: 30 0D 53 42 59 54 31 0D 20 20 20 20 20 20 20 20 |0.SBYT1. | 00002C70: 20 53 54 58 20 24 31 34 0D 20 20 20 20 20 20 20 | STX $14. | 00002C80: 20 20 4C 44 41 20 23 34 0D 20 20 20 20 20 20 20 | LDA #4. | 00002C90: 20 20 4A 53 52 20 53 42 59 54 32 2D 44 52 56 50 | JSR SBYT2-DRVP| 00002CA0: 52 47 2B 24 30 34 30 30 0D 20 20 20 20 20 20 20 |RG+$0400. | 00002CB0: 20 20 4A 53 52 20 53 42 59 54 32 2D 44 52 56 50 | JSR SBYT2-DRVP| 00002CC0: 52 47 2B 24 30 34 30 30 0D 20 20 20 20 20 20 20 |RG+$0400. | 00002CD0: 20 20 4A 53 52 20 53 42 59 54 32 2D 44 52 56 50 | JSR SBYT2-DRVP| 00002CE0: 52 47 2B 24 30 34 30 30 0D 53 42 59 54 32 0D 20 |RG+$0400.SBYT2. | 00002CF0: 20 20 20 20 20 20 20 20 4C 53 52 20 24 31 34 0D | LSR $14.| 00002D00: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 32 0D | LDX #2.| 00002D10: 20 20 20 20 20 20 20 20 20 42 43 43 20 44 56 50 | BCC DVP| 00002D20: 31 36 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |16. LDX | 00002D30: 23 30 0D 44 56 50 31 36 20 20 20 20 42 49 54 20 |#0.DVP16 BIT | 00002D40: 24 31 38 30 30 0D 20 20 20 20 20 20 20 20 20 42 |$1800. B| 00002D50: 4E 45 20 44 56 50 31 36 0D 20 20 20 20 20 20 20 |NE DVP16. | 00002D60: 20 20 53 54 58 20 24 31 38 30 30 0D 20 20 20 20 | STX $1800. | 00002D70: 20 20 20 20 20 4C 53 52 20 24 31 34 0D 20 20 20 | LSR $14. | 00002D80: 20 20 20 20 20 20 4C 44 58 20 23 32 0D 20 20 20 | LDX #2. | 00002D90: 20 20 20 20 20 20 42 43 43 20 44 56 50 31 37 0D | BCC DVP17.| 00002DA0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D | LDX #0.| 00002DB0: 44 56 50 31 37 20 20 20 20 42 49 54 20 24 31 38 |DVP17 BIT $18| 00002DC0: 30 30 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |00. BEQ | 00002DD0: 44 56 50 31 37 0D 20 20 20 20 20 20 20 20 20 53 |DVP17. S| 00002DE0: 54 58 20 24 31 38 30 30 0D 0D 20 20 20 20 20 20 |TX $1800.. | 00002DF0: 20 20 20 52 54 53 0D 0D 3B C0 C0 C0 3E 20 52 45 | RTS..;...> RE| 00002E00: 41 44 20 41 20 42 59 54 45 20 46 52 4F 4D 20 43 |AD A BYTE FROM C| 00002E10: 36 34 0D 0D 44 56 50 32 33 42 0D 20 20 20 20 20 |64..DVP23B. | 00002E20: 20 20 20 20 4C 44 59 20 23 34 0D 44 56 50 32 34 | LDY #4.DVP24| 00002E30: 20 20 20 20 4C 44 41 20 23 34 0D 44 56 50 32 35 | LDA #4.DVP25| 00002E40: 20 20 20 20 42 49 54 20 24 31 38 30 30 0D 20 20 | BIT $1800. | 00002E50: 20 20 20 20 20 20 20 42 45 51 20 44 56 50 32 35 | BEQ DVP25| 00002E60: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |.. LDA $| 00002E70: 31 38 30 30 0D 20 20 20 20 20 20 20 20 20 4C 53 |1800. LS| 00002E80: 52 20 41 0D 20 20 20 20 20 20 20 20 20 52 4F 52 |R A. ROR| 00002E90: 20 24 31 34 0D 20 20 20 20 20 20 20 20 20 4C 44 | $14. LD| 00002EA0: 41 20 23 34 0D 44 56 50 32 36 20 20 20 20 42 49 |A #4.DVP26 BI| 00002EB0: 54 20 24 31 38 30 30 0D 20 20 20 20 20 20 20 20 |T $1800. | 00002EC0: 20 42 4E 45 20 44 56 50 32 36 0D 0D 20 20 20 20 | BNE DVP26.. | 00002ED0: 20 20 20 20 20 4C 44 41 20 24 31 38 30 30 0D 20 | LDA $1800. | 00002EE0: 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 | LSR A. | 00002EF0: 20 20 20 20 20 20 20 52 4F 52 20 24 31 34 0D 20 | ROR $14. | 00002F00: 20 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 | DEY. | 00002F10: 20 20 20 20 20 42 4E 45 20 44 56 50 32 34 0D 0D | BNE DVP24..| 00002F20: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 31 34 | LDA $14| 00002F30: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 43 4F |. RTS.CO| 00002F40: 55 4E 54 20 20 20 20 2E 42 59 54 45 20 30 0D 44 |UNT .BYTE 0.D| 00002F50: 56 50 32 37 0D 20 20 20 20 20 20 20 20 20 4C 44 |VP27. LD| 00002F60: 41 20 23 38 0D 20 20 20 20 20 20 20 20 20 2E 42 |A #8. .B| 00002F70: 59 54 45 20 24 32 43 20 3B 42 49 54 0D 44 56 50 |YTE $2C ;BIT.DVP| 00002F80: 32 38 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 |28 LDA #0. | 00002F90: 20 20 20 20 20 20 53 54 41 20 24 31 38 30 30 0D | STA $1800.| 00002FA0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B 45 | RTS..;E| 00002FB0: 4E 44 20 4F 46 20 49 52 51 2D 4C 4F 41 44 45 52 |ND OF IRQ-LOADER| 00002FC0: 0D 0D |.. |
;.......................................
.;IRQ-LOADER VERSION V3.1+/ 1.4.1996
..;(C)OPYRIGHT BY SEBASTIAN SZCZYGIEL
..; EMDEN, GERMANY
..; (MADROM/LEPSI DEV.)
..;
..;(THIS IS THE FINAL VERSION!)
..;--------------------------------
------..;DECRUSHING WHILE LOADING WITH S
PEED/X ..;ALL CRUNCH SPEEDS (1-6) ARE AL
LOWED ! ..;(NEW)CAN ALSO LOAD NOT CRUNCH
ED FILES!..;FOR CRUNCHING USE LEVEL-CRUS
HER V1/MMS..;> DECRUSHER ROUTINE CODED B
Y MMS/TABOO..;--------------------------
------------..;.........................
................LOADER = $1000.
*= LOADER..;JSR LOADER ;INIT DRIVE C
ODE..;LDA #0 OR #1-#6 ;SET SPEED WITH TH
E. ;FILE WAS CRUNCHED.;J
SR LOADER+3 ;(#1-6). OR LOAD A NOT.
;CRUNCHED FILE (#0)..;LDA
#0 OR #1 ;IF A.=0 THEN IN X. AND.
;Y. MUST BE THE TWO.
;LETTERS OF THE FILE NAME.
;IF A.=1 THEN IN X. AND.
;Y. MUST BE THE START. ;TRA
CK AND SECTOR.;LDX #"L" ;CHAR ONE/FI
LENAME. ;OR TRACK NO..;LDY
#"P" ;CHAR TWO/FILENAME.
;OR SECTOR NO..;JSR LOADER+6 ;LOAD (AN
D DECRUNCH) FILE.;RTS..;(NEW)ERROR/FILE
NOT FOUND CHECK.;ISN'T MORE POSSIBLE!..;
THIS VERSION CAN LOAD EVERY FILE TYPE.;(
PRG,SEQ,USR,DEL,REL,...)...;THE IRQ-LOAD
ER USE FOLLOWING.;ZEROPAGE BYTES.....PAE
= $AE.AAE = $AE.AAF = $A
F..IL1 = $B2.IL2 = $B3.IL3
= $B4.IL4 = $B5.IL5 = $B6.IL
6 = $B7..;THE DEPACKER USE FOLLOWIN
G.;ZEROPAGE BYTES.....AF9 = $02.AFA
= $03..PFB = $AE.AFB = $
AE.AFC = $AF..PFD = $04.AFD
= $04.AFE = $05..FNPS1 = $030
2+1 ;POS CHAR 1.FNPS2 = $0302+2 ;POS
CHAR 2.. ;^"FILENAME ".
; 1234567890123456. ; .
.. ;THE LOADER DETECT THE FILENA
ME. ;ON THE FIRST TWO LETTERS..
;YOU CAN CHANGE IT.. ;F.
E. COMPARE ALWAYS LAST TWO. ;CHA
RS FNPS1 AND FNPS2 THEN..... ;FN
PS1 = $0302+15. ;FNPS2 = $0302+1
6...;... LOADER CODE BEGINS HERE..
JMP INIT. JMP SETSPD.LOAD.
STX FNTR. STY FNSC.
STA LOADMODE. LDA $DD00.
AND #$0F. STA IL1. LD
X #0.PDD EOR ILTAB,X. STA I
L2,X. INX. CPX #4.
BNE PDD. LDA IL3. STA
$DD00. JSR NWAIT. LDA F
NTR. JSR SENDB. LDA FNSC
. JSR SENDB.LOADMODE = *+1.
LDA #0. JSR SENDB..
JSR NWAIT. LDA SPEED. BE
Q NORMLOAD. JSR DECRUSHER.
RTS..NORMLOAD. JSR GETBYTE.
STA AAE. JSR GETBYTE.
STA AAF.NEXTBYTE. JSR GETBY
TE. CMP #$99. BNE SETBYT
E. JSR GETBYTE. CMP #$99
. BEQ SETBYTE. CMP #$FF.
BEQ FILEEND. CMP #$FE.
BEQ FILEEND. JSR NWAIT.
JMP NEXTBYTE.SETBYTE. LD
Y #0. LDX 1 ;<= USE WHOLE RA
M?. SEI ;ALSO RAM UNDER $D0
00. STY 1. STA (PAE),Y.
STX 1. CLI. INC
AAE. BNE SETB2. INC AAF.
SETB2 BNE NEXTBYTE.FILEEND. R
TS..NWAIT LDX #$32.NW1 DEX.
BNE NW1.NW2 BIT $DD00.
BVC NW2. LDX #$05.NW3 DEX.
BNE NW3. RTS..INIT.
LDA #<DRVPRG. LDX #>DRVPRG.
STA IL1. STX IL2.
LDA #<$0400. LDX #>$0400.
STA IL3. STX IL4.INIT2.
JSR DRVMOD. LDA #"W".
LDX IL3. LDY IL4. JSR
BYTS3. LDA #34. JSR $EDD
D. TAX. DEX. LDY
#$00.MW1 LDA (IL1),Y. JSR
$EDDD. INC IL1. BNE MW2.
INC IL2.MW2 DEX. B
PL MW1. JSR $EDFE. LDA I
L3. CLC. ADC #34.
STA IL3. LDA IL4. ADC
#0. STA IL4. CMP #7.
BCC INIT2. JSR DRVMOD.
LDA #"E". LDX #<$0400.
LDY #>$0400. JSR BYTS3.
JSR $EDFE. LDX #$FF.
PHA. PLA. DEX. B
NE *-3. RTS..DRVMOD. LDA
#8 ;> FLOPPY 8. JSR $ED0C.
LDA #$6F. JSR $EDB9.
LDA #"M". LDY #"-". JMP
BYTS2.BYTS3. JSR $EDDD.
TXA.BYTS2. JSR $EDDD. T
YA. JMP $EDDD..GETBYTE.
LDY #3..IL4B LDX IL4. LDA $D
D00. STX $DD00. ASL A.
LDX #6. DEX. BNE
*-1. ROR IL6. LDX IL5.
LDA $DD00. STX $DD00.
ASL A. ROR IL6. DEY
. BPL IL4B. LDA IL6.
RTS.SENDB. STA IL6.
LDY #3.SENDB2. JSR IL2B.
DEY. BPL SENDB2. RTS..
IL2B LDA IL2. LSR IL6.
BCC IL2C. ORA #$20.IL2C S
TA $DD00. LDA IL1. LSR I
L6. BCC IL2D. ORA #$20.I
L2D STA $DD00. RTS.ILTAB.
.BYTE $10,$30,$B0,$50..DECRUSHER.I
18 JSR NEXTBYTE2. STA AFB.
JSR NEXTBYTE2. STA AFC..
LDX #0. STX AF9.I26
STX AFE. LDA #1. JSR I
CE. BCS I5B.I2F JSR ICE.
BCS I3C. JSR ICE.
ROL A. ROL AFE. BPL I2F.
I3C TAX. BEQ I53.I3F J
SR NEXTBYTE2. LDY #0. ST
A (PFB),Y. INC AFB. BNE
I50. INC AFC.I50 DEX.
BNE I3F.I53 CPX AFE. DEC
AFE. BCC I3F. STX AFE.I
5B LDA #1. JSR ICE.
BCC I6F.I62 JSR ICE. BCS I
70. JSR ICE. ROL A.
BCC I62. BCS I18.I6F IN
X.I70 ADC #1. STA AFA.
TXA. JSR ICE. ROL A.
JSR ICE. ROL A.
TAY. LDA #0.I80 LDX FF2,Y.
I83 JSR ICE. ROL A.
ROL AFE. DEX. BNE I83.
DEY. BMI I9D. CP
Y #3. BEQ I9C. CLC.
ADC #1. BCC I80. INC
AFE. BCS I80.I9C CLC.I9D
ADC AFA. BCC IA3. IN
C AFE.IA3 CLC. SBC AFB.
EOR #$FF. STA AFD.
LDA AFE. SBC AFC. EOR #$
FF. STA AFE. LDY #$00.IB
6 LDA (PFD),Y. STA (PFB),Y.
INY. CPY AFA. B
NE IB6. TYA. CLC.
ADC AFB. STA AFB. BCC
ICB. INC AFC.ICB JMP I26.IC
E ASL AF9. BEQ ID3.
RTS.ID3 STA BYTA. JSR NEXT
BYTE2. SEC. ROL A.
STA AF9. LDA BYTA.I10DC RT
S.FILEEND2. PLA. PLA.
RTS.NEXTBYTE2. STX BYTX.
STY BYTY. JSR GETBYTE.
CMP #$99. BNE SETBYTE2.
JSR GETBYTE. CMP #$99.
BEQ SETBYTE2. CMP #$FF.
BEQ FILEEND2. CMP #$FE.
BEQ FILEEND2. JSR NWAIT.
LDX BYTX. LDY BYTY.
JMP NEXTBYTE2.SETBYTE2. LDX BY
TX. LDY BYTY. RTS.SETSP2
. LDX #6. JMP SETP0.SETS
P1. LDX #1. JMP SETP0.SE
TSPD. STA SPEED. TAX.
CPX #0. BEQ SETSP1.
CPX #6. BCS SETSP2.SETP0.
LDY #$F8.SETP1. TYA.
CLC. ADC #8. TAY.
DEX. BNE SETP1. LDX #
0.SETP2. LDA SPEEDS,Y. S
TA FF2,X. INY. INX.
CPX #8. BNE SETP2. R
TS..FNTR .BYTE 0.FNSC .BYTE 0.SP
EED .BYTE 0.BYTA .BYTE 0.BYTX
.BYTE 0.BYTY .BYTE 0..FF2 .BYT
E $01,$02,$03,$04. .BYTE $05,$06
,$07,$08.SPEEDS. .BYTE 3,1,2,2,3
,1,2,2. .BYTE 3,2,2,2,3,2,2,2.
.BYTE 4,2,2,2,4,2,2,2. .B
YTE 4,2,2,3,4,2,2,2. .BYTE 4,2,3
,3,4,2,2,2. .BYTE 4,3,3,3,4,2,2,
2...;... CODE FOR 1541 FLOPPY.;
............;AFTER ONE 'JSR INIT' YO
U DON'T NEED.;THIS ROUTINE MORE..;------
---------------------------------.DRVPRG
.DVP0. LDA #8. ORA $1C00
. STA $1C00.DVP1 LDA $1800.
AND #5. BNE DVP1..
JSR DVP8B-DRVPRG+$0400..;...> SEARCH
IN DIR FOR FILENAME.. LDY #1.DVP
2 LDX #18. STX 6. ST
Y 7. JSR DVP9B-DRVPRG+$0400..
LDY #2.DVP3 LDA FNPS1,Y ;COMPA
RE 1ST CHAR.CMPB1 = *+1. CMP
#0. BNE DVP4.. LDA FNPS2
,Y ;COMPARE 2ND CHAR.CMPB2 = *+1.
CMP #0. BNE DVP4..;OK. FILE
NAME FOUND ..... JMP DVP4C-DRVPR
G+$0400..;...> READ NEXT SECTOR.;AND CON
TINUE SEARCHING.DVP4 TYA. CL
C. ADC #$20. TAY.
BCC DVP3.. LDY $0301.
BPL DVP2.DVP4B. JSR DVP28-DRVPRG
+$0400. LDX #0. JSR SEND
BYT-DRVPRG+$0400.. LDX #0.
JSR SENDBYT-DRVPRG+$0400.. LD
X #$99. JSR SENDBYT-DRVPRG+$0400
.. LDX #$FE. JSR SENDBYT
-DRVPRG+$0400.. RTS.DVP4C.
LDA $0301,Y. STA 6. L
DA $0302,Y. STA 7.DVP4D.
JSR DVP9B-DRVPRG+$0400.. LDY #0
. LDA $0300. STA 6.
BNE DVP5.. LDY $0301.
INY.DVP5 STY $0118. LDA $0
301. STA 7. LDY #2.
JSR DVP28-DRVPRG+$0400.DVP6 LDX
$0300,Y. CPX #$99. BNE D
VP7.. JSR SENDBYT-DRVPRG+$0400..
LDX #$99.DVP7 JSR SENDBYT-D
RVPRG+$0400.. INY. CPY $
0118. BNE DVP6.. LDA $03
00. 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 SE
NDBYT-DRVPRG+$0400.. JMP DVP0-DR
VPRG+$0400.DVP8B. JSR DVP27-DRVP
RG+$0400. CLI. LDA #1.DV
P9 BIT $1800. BEQ DVP9..
SEI. LDA #0. STA $1
800..;...> READ BYTES FROM C64.;READ 1ST
CHAR OF FILENAME.. JSR DVP23B-D
RVPRG+$0400. STA CMPB1-DRVPRG+$0
400..;READ 2ND CHAR OF FILENAME..
JSR DVP23B-DRVPRG+$0400. STA C
MPB2-DRVPRG+$0400..;READ CONTROL BYTE (D
IR OR TRACK-LOADER).. JSR DVP23B
-DRVPRG+$0400. TAX. JSR
DVP27-DRVPRG+$0400. TXA.
CMP #0 ;TRACK-LOADER ?. BEQ
DVP9C..;START TRACK,SECTOR LOADING .....
LDA CMPB1-DRVPRG+$0400.
STA 6. LDA CMPB2-DRVPRG+$0400.
STA 7. JMP DVP4D-DRVPRG+
$0400.DVP9C. RTS.DVP9B.
LDY #$0A. STY $8B.DVP10 CLI.
LDA #$80. STA 0.DVP11
LDA 0. BMI DVP11. CMP #
1. BEQ DVP15. DEC $8B.
LDY $8B. BMI DVP14.
CPY #2. BNE DVP12.. L
DA #$C0. STA 0.DVP12 LDA $16.
STA $12. LDA $17.
STA $13.DVP13 LDA 0. BMI D
VP13.. BPL DVP10.DVP14 PLA.
PLA. JMP DVP4B-DRVPRG+$04
00..DVP15 SEI. RTS..;...> SEN
D A BYTE TO C64..SENDBYT. DEC CO
UNT-DRVPRG+$0400. BNE SBYT1.
STX COUNT-DRVPRG+$0400. LDA
#8. EOR $1C00. STA $1C0
0.SBYT1. STX $14. LDA #4
. JSR SBYT2-DRVPRG+$0400.
JSR SBYT2-DRVPRG+$0400. JSR SB
YT2-DRVPRG+$0400.SBYT2. LSR $14.
LDX #2. BCC DVP16.
LDX #0.DVP16 BIT $1800. B
NE DVP16. STX $1800. LSR
$14. LDX #2. BCC DVP17.
LDX #0.DVP17 BIT $1800.
BEQ DVP17. STX $1800..
RTS..;...> READ A BYTE FROM C64..DVP2
3B. 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.COUNT .BYTE 0.DVP27.
LDA #8. .BYTE $2C ;BIT.DVP
28 LDA #0. STA $1800.
RTS..;END OF IRQ-LOADER..
> CLICK IMAGE PREVIEW FOR FULL MODAL