_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

IRQ-DCRSH2.6.ASM

FILE INFORMATION

FILENAME(S): IRQ-DCRSH2.6.ASM

FILE TYPE(S): SEQ

FILE SIZE: 10.7K

FIRST SEEN: 2025-12-02 00:16:37

APPEARS ON: 1 disk(s)

FILE HASH

8642d72be246fe3af7490e4473e850f378df066bb05c037403f758b95dd1ffb9

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOADER DISK BY IRQ-DCRSH2.6.ASM SEQ Maestro 5 2 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 33 30 2E 38  2E 31 39 39 35 20 20 20  |6 / 30.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 2D 2D  |I DEV.)    ..;--|
000000D0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000000E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000000F0: 2D 2D 2D 2D DD 0D 3B 44  45 43 52 55 53 48 49 4E  |----..;DECRUSHIN|
00000100: 47 20 57 48 49 4C 45 20  4C 4F 41 44 49 4E 47 20  |G WHILE LOADING |
00000110: 57 49 54 48 20 53 50 45  45 44 2F 58 20 DD 0D 3B  |WITH SPEED/X ..;|
00000120: 41 4C 4C 20 43 52 55 4E  43 48 20 53 50 45 45 44  |ALL CRUNCH SPEED|
00000130: 53 20 28 31 2D 36 29 20  41 52 45 20 41 4C 4C 4F  |S (1-6) ARE ALLO|
00000140: 57 45 44 20 21 20 DD 0D  3B 4F 4E 4C 59 20 54 4F  |WED ! ..;ONLY TO|
00000150: 20 55 53 45 20 57 49 54  48 20 4C 45 56 45 4C 2D  | USE WITH LEVEL-|
00000160: 43 52 55 53 48 45 52 20  42 59 20 4D 4D 53 20 DD  |CRUSHER BY MMS .|
00000170: 0D 3B 3E 20 44 45 43 52  55 53 48 45 52 20 52 4F  |.;> DECRUSHER RO|
00000180: 55 54 49 4E 45 20 43 4F  44 45 44 20 42 59 20 4D  |UTINE CODED BY M|
00000190: 4D 53 2F 54 41 42 4F 4F  DD 0D 3B 2D 2D 2D 2D 2D  |MS/TABOO..;-----|
000001A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000001B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000001C0: 2D DD 0D 3B C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |-..;............|
000001D0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000001E0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 BD 0D 0D 4C 4F 41  |.............LOA|
000001F0: 44 45 52 20 20 20 3D 20  24 31 30 30 30 0D 20 20  |DER   = $1000.  |
00000200: 20 20 20 20 20 20 20 2A  3D 20 4C 4F 41 44 45 52  |       *= LOADER|
00000210: 0D 0D 3B 4A 53 52 20 4C  4F 41 44 45 52 20 20 20  |..;JSR LOADER   |
00000220: 3B 49 4E 49 54 0D 0D 3B  4C 44 41 20 23 31 20 2D  |;INIT..;LDA #1 -|
00000230: 20 23 36 20 20 3B 53 45  54 20 53 50 45 45 44 20  | #6  ;SET SPEED |
00000240: 57 49 54 48 20 54 48 45  20 46 49 4C 45 0D 3B 4A  |WITH THE FILE.;J|
00000250: 53 52 20 4C 4F 41 44 45  52 2B 33 20 3B 57 41 53  |SR LOADER+3 ;WAS|
00000260: 20 43 52 55 4E 43 48 45  44 20 28 31 2D 36 29 0D  | CRUNCHED (1-6).|
00000270: 0D 3B 4C 44 41 20 23 30  20 4F 52 20 23 31 20 3B  |.;LDA #0 OR #1 ;|
00000280: 49 46 20 41 2E 3D 30 20  54 48 45 4E 20 49 4E 20  |IF A.=0 THEN IN |
00000290: 58 2E 20 41 4E 44 0D 20  20 20 20 20 20 20 20 20  |X. AND.         |
000002A0: 20 20 20 20 20 3B 59 2E  20 4D 55 53 54 20 42 45  |     ;Y. MUST BE|
000002B0: 20 54 48 45 20 46 49 52  53 54 20 32 0D 20 20 20  | THE FIRST 2.   |
000002C0: 20 20 20 20 20 20 20 20  20 20 20 3B 43 48 41 52  |           ;CHAR|
000002D0: 53 20 4F 46 20 54 48 45  20 46 49 4C 45 20 4E 41  |S OF THE FILE NA|
000002E0: 4D 45 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |ME.             |
000002F0: 20 3B 49 46 20 41 2E 3D  31 20 54 48 45 4E 20 49  | ;IF A.=1 THEN I|
00000300: 4E 20 58 2E 20 41 4E 44  0D 20 20 20 20 20 20 20  |N X. AND.       |
00000310: 20 20 20 20 20 20 20 3B  59 2E 20 4D 55 53 54 20  |       ;Y. MUST |
00000320: 42 45 20 54 48 45 20 53  54 41 52 54 0D 20 20 20  |BE THE START.   |
00000330: 20 20 20 20 20 20 20 20  20 20 20 3B 54 52 41 43  |           ;TRAC|
00000340: 4B 20 41 4E 44 20 53 45  43 54 4F 52 0D 3B 4C 44  |K AND SECTOR.;LD|
00000350: 58 20 23 22 54 22 20 20  20 20 20 3B 31 2E 20 43  |X #"T"     ;1. C|
00000360: 48 41 52 20 4F 46 20 46  49 4C 45 4E 41 4D 45 0D  |HAR OF FILENAME.|
00000370: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3B 4F  |              ;O|
00000380: 52 20 54 52 41 43 4B 20  4E 4F 2E 0D 3B 4C 44 59  |R TRACK NO..;LDY|
00000390: 20 23 22 43 22 20 20 20  20 20 3B 32 2E 20 43 48  | #"C"     ;2. CH|
000003A0: 41 52 20 4F 46 20 46 49  4C 45 4E 41 4D 45 0D 20  |AR OF FILENAME. |
000003B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 4F 52  |             ;OR|
000003C0: 20 53 45 43 54 4F 52 20  4E 4F 2E 0D 3B 4A 53 52  | SECTOR NO..;JSR|
000003D0: 20 4C 4F 41 44 45 52 2B  36 0D 3B 42 43 53 20 45  | LOADER+6.;BCS E|
000003E0: 52 52 4F 52 20 20 20 20  3B 49 46 20 43 41 52 52  |RROR    ;IF CARR|
000003F0: 59 3D 2E 53 45 43 20 54  48 45 4E 20 45 52 52 4F  |Y=.SEC THEN ERRO|
00000400: 52 0D 3B 52 54 53 0D 0D  3B 54 48 49 53 20 56 45  |R.;RTS..;THIS VE|
00000410: 52 53 49 4F 4E 20 43 41  4E 20 4C 4F 41 44 20 45  |RSION CAN LOAD E|
00000420: 56 45 52 59 20 46 49 4C  45 20 54 59 50 45 0D 3B  |VERY FILE TYPE.;|
00000430: 28 50 52 47 2C 53 45 51  2C 55 53 52 2C 44 45 4C  |(PRG,SEQ,USR,DEL|
00000440: 2C 52 45 4C 2C 2E 2E 2E  29 0D 0D 3B 54 48 45 20  |,REL,...)..;THE |
00000450: 49 52 51 2D 4C 4F 41 44  45 52 20 55 53 45 20 46  |IRQ-LOADER USE F|
00000460: 4F 4C 4C 4F 57 49 4E 47  0D 3B 5A 45 52 4F 50 41  |OLLOWING.;ZEROPA|
00000470: 47 45 20 42 59 54 45 53  2E 2E 2E 0D 0D 49 4C 31  |GE BYTES.....IL1|
00000480: 20 20 20 20 20 20 3D 20  24 42 32 0D 49 4C 32 20  |      = $B2.IL2 |
00000490: 20 20 20 20 20 3D 20 24  42 33 0D 49 4C 33 20 20  |     = $B3.IL3  |
000004A0: 20 20 20 20 3D 20 24 42  34 0D 49 4C 34 20 20 20  |    = $B4.IL4   |
000004B0: 20 20 20 3D 20 24 42 35  0D 49 4C 35 20 20 20 20  |   = $B5.IL5    |
000004C0: 20 20 3D 20 24 42 36 0D  0D 3B 54 48 45 20 44 45  |  = $B6..;THE DE|
000004D0: 50 41 43 4B 45 52 20 55  53 45 20 46 4F 4C 4C 4F  |PACKER USE FOLLO|
000004E0: 57 49 4E 47 0D 3B 5A 45  52 4F 50 41 47 45 20 42  |WING.;ZEROPAGE B|
000004F0: 59 54 45 53 2E 2E 2E 0D  0D 41 30 31 20 20 20 20  |YTES.....A01    |
00000500: 20 20 3D 20 24 30 31 0D  41 39 30 20 20 20 20 20  |  = $01.A90     |
00000510: 20 3D 20 24 39 30 0D 41  46 39 20 20 20 20 20 20  | = $90.AF9      |
00000520: 3D 20 24 30 32 0D 41 46  41 20 20 20 20 20 20 3D  |= $02.AFA      =|
00000530: 20 24 30 33 0D 41 46 42  20 20 20 20 20 20 3D 20  | $03.AFB      = |
00000540: 24 41 45 0D 41 46 43 20  20 20 20 20 20 3D 20 24  |$AE.AFC      = $|
00000550: 41 46 0D 41 46 44 20 20  20 20 20 20 3D 20 24 30  |AF.AFD      = $0|
00000560: 34 0D 41 46 45 20 20 20  20 20 20 3D 20 24 30 35  |4.AFE      = $05|
00000570: 0D 0D 50 46 42 20 20 20  20 20 20 3D 20 24 41 45  |..PFB      = $AE|
00000580: 0D 50 46 44 20 20 20 20  20 20 3D 20 24 30 34 0D  |.PFD      = $04.|
00000590: 0D 20 20 20 20 20 20 20  20 20 4A 4D 50 20 49 4E  |.         JMP IN|
000005A0: 49 54 0D 20 20 20 20 20  20 20 20 20 4A 4D 50 20  |IT.         JMP |
000005B0: 53 45 54 53 50 44 0D 4C  4F 41 44 0D 20 20 20 20  |SETSPD.LOAD.    |
000005C0: 20 20 20 20 20 53 54 58  20 24 42 42 0D 20 20 20  |     STX $BB.   |
000005D0: 20 20 20 20 20 20 53 54  59 20 24 42 43 0D 20 20  |      STY $BC.  |
000005E0: 20 20 20 20 20 20 20 53  54 41 20 4C 4F 41 44 4D  |       STA LOADM|
000005F0: 4F 44 45 0D 20 20 20 20  20 20 20 20 20 4C 44 41  |ODE.         LDA|
00000600: 20 24 44 44 30 30 0D 20  20 20 20 20 20 20 20 20  | $DD00.         |
00000610: 41 4E 44 20 23 24 30 46  0D 20 20 20 20 20 20 20  |AND #$0F.       |
00000620: 20 20 53 54 41 20 49 4C  31 0D 20 20 20 20 20 20  |  STA IL1.      |
00000630: 20 20 20 4C 44 58 20 23  30 0D 4C 41 44 32 0D 20  |   LDX #0.LAD2. |
00000640: 20 20 20 20 20 20 20 20  45 4F 52 20 49 4C 54 41  |        EOR ILTA|
00000650: 42 2C 58 0D 20 20 20 20  20 20 20 20 20 53 54 41  |B,X.         STA|
00000660: 20 49 4C 32 2C 58 0D 20  20 20 20 20 20 20 20 20  | IL2,X.         |
00000670: 49 4E 58 0D 20 20 20 20  20 20 20 20 20 43 50 58  |INX.         CPX|
00000680: 20 23 34 0D 20 20 20 20  20 20 20 20 20 42 4E 45  | #4.         BNE|
00000690: 20 4C 41 44 32 0D 0D 20  20 20 20 20 20 20 20 20  | LAD2..         |
000006A0: 4C 44 41 20 49 4C 33 0D  20 20 20 20 20 20 20 20  |LDA IL3.        |
000006B0: 20 53 54 41 20 24 44 44  30 30 0D 20 20 20 20 20  | STA $DD00.     |
000006C0: 20 20 20 20 4A 53 52 20  4E 57 41 49 54 0D 20 20  |    JSR NWAIT.  |
000006D0: 20 20 20 20 20 20 20 4C  44 41 20 24 42 42 0D 20  |       LDA $BB. |
000006E0: 20 20 20 20 20 20 20 20  4A 53 52 20 53 45 4E 44  |        JSR SEND|
000006F0: 42 0D 20 20 20 20 20 20  20 20 20 4C 44 41 20 24  |B.         LDA $|
00000700: 42 43 0D 20 20 20 20 20  20 20 20 20 4A 53 52 20  |BC.         JSR |
00000710: 53 45 4E 44 42 0D 4C 4F  41 44 4D 4F 44 45 20 3D  |SENDB.LOADMODE =|
00000720: 20 2A 2B 31 0D 20 20 20  20 20 20 20 20 20 4C 44  | *+1.         LD|
00000730: 41 20 23 30 0D 20 20 20  20 20 20 20 20 20 4A 53  |A #0.         JS|
00000740: 52 20 53 45 4E 44 42 0D  0D 20 20 20 20 20 20 20  |R SENDB..       |
00000750: 20 20 4A 53 52 20 4E 57  41 49 54 0D 20 20 20 20  |  JSR NWAIT.    |
00000760: 20 20 20 20 20 4A 53 52  20 44 45 43 52 55 53 48  |     JSR DECRUSH|
00000770: 45 52 0D 20 20 20 20 20  20 20 20 20 52 54 53 0D  |ER.         RTS.|
00000780: 53 45 54 42 59 54 45 0D  20 20 20 20 20 20 20 20  |SETBYTE.        |
00000790: 20 4C 44 59 20 23 30 0D  20 20 20 20 20 20 20 20  | LDY #0.        |
000007A0: 20 42 49 54 20 31 20 20  3B 4F 52 20 49 4E 43 2C  | BIT 1  ;OR INC,|
000007B0: 44 45 43 0D 0D 20 20 20  20 20 20 20 20 20 53 54  |DEC..         ST|
000007C0: 41 20 28 24 41 45 29 2C  59 0D 0D 20 20 20 20 20  |A ($AE),Y..     |
000007D0: 20 20 20 20 42 49 54 20  31 20 20 3B 4F 52 20 49  |    BIT 1  ;OR I|
000007E0: 4E 43 2C 44 45 43 0D 20  20 20 20 20 20 20 20 20  |NC,DEC.         |
000007F0: 49 4E 43 20 24 41 45 0D  20 20 20 20 20 20 20 20  |INC $AE.        |
00000800: 20 42 4E 45 20 53 45 54  42 32 0D 20 20 20 20 20  | BNE SETB2.     |
00000810: 20 20 20 20 49 4E 43 20  24 41 46 0D 53 45 54 42  |    INC $AF.SETB|
00000820: 32 0D 20 20 20 20 20 20  20 20 20 52 54 53 0D 0D  |2.         RTS..|
00000830: 4E 57 41 49 54 20 20 20  20 4C 44 58 20 23 24 33  |NWAIT    LDX #$3|
00000840: 32 0D 4E 57 31 20 20 20  20 20 20 44 45 58 0D 20  |2.NW1      DEX. |
00000850: 20 20 20 20 20 20 20 20  42 4E 45 20 4E 57 31 0D  |        BNE NW1.|
00000860: 4E 57 32 20 20 20 20 20  20 42 49 54 20 24 44 44  |NW2      BIT $DD|
00000870: 30 30 0D 20 20 20 20 20  20 20 20 20 42 56 43 20  |00.         BVC |
00000880: 4E 57 32 0D 20 20 20 20  20 20 20 20 20 4C 44 58  |NW2.         LDX|
00000890: 20 23 24 30 35 0D 4E 57  33 20 20 20 20 20 20 44  | #$05.NW3      D|
000008A0: 45 58 0D 20 20 20 20 20  20 20 20 20 42 4E 45 20  |EX.         BNE |
000008B0: 4E 57 33 0D 20 20 20 20  20 20 20 20 20 52 54 53  |NW3.         RTS|
000008C0: 0D 49 4E 49 54 0D 20 20  20 20 20 20 20 20 20 4C  |.INIT.         L|
000008D0: 44 41 20 23 3C 44 52 56  50 52 47 0D 20 20 20 20  |DA #<DRVPRG.    |
000008E0: 20 20 20 20 20 4C 44 58  20 23 3E 44 52 56 50 52  |     LDX #>DRVPR|
000008F0: 47 0D 20 20 20 20 20 20  20 20 20 53 54 41 20 24  |G.         STA $|
00000900: 46 42 0D 20 20 20 20 20  20 20 20 20 53 54 58 20  |FB.         STX |
00000910: 24 46 43 0D 20 20 20 20  20 20 20 20 20 4C 44 41  |$FC.         LDA|
00000920: 20 23 3C 24 30 34 30 30  0D 20 20 20 20 20 20 20  | #<$0400.       |
00000930: 20 20 4C 44 58 20 23 3E  24 30 34 30 30 0D 20 20  |  LDX #>$0400.  |
00000940: 20 20 20 20 20 20 20 53  54 41 20 24 41 39 0D 20  |       STA $A9. |
00000950: 20 20 20 20 20 20 20 20  53 54 58 20 24 41 41 0D  |        STX $AA.|
00000960: 49 4E 49 54 32 0D 20 20  20 20 20 20 20 20 20 4A  |INIT2.         J|
00000970: 53 52 20 44 52 56 4D 4F  44 0D 20 20 20 20 20 20  |SR DRVMOD.      |
00000980: 20 20 20 4C 44 41 20 23  22 57 22 0D 20 20 20 20  |   LDA #"W".    |
00000990: 20 20 20 20 20 4C 44 58  20 24 41 39 0D 20 20 20  |     LDX $A9.   |
000009A0: 20 20 20 20 20 20 4C 44  59 20 24 41 41 0D 20 20  |      LDY $AA.  |
000009B0: 20 20 20 20 20 20 20 4A  53 52 20 42 59 54 53 33  |       JSR BYTS3|
000009C0: 0D 20 20 20 20 20 20 20  20 20 4C 44 41 20 23 24  |.         LDA #$|
000009D0: 32 30 0D 20 20 20 20 20  20 20 20 20 4A 53 52 20  |20.         JSR |
000009E0: 24 45 44 44 44 0D 20 20  20 20 20 20 20 20 20 54  |$EDDD.         T|
000009F0: 41 58 0D 20 20 20 20 20  20 20 20 20 44 45 58 0D  |AX.         DEX.|
00000A00: 20 20 20 20 20 20 20 20  20 4C 44 59 20 23 24 30  |         LDY #$0|
00000A10: 30 0D 4D 57 31 20 20 20  20 20 20 4C 44 41 20 28  |0.MW1      LDA (|
00000A20: 24 46 42 29 2C 59 0D 20  20 20 20 20 20 20 20 20  |$FB),Y.         |
00000A30: 4A 53 52 20 24 45 44 44  44 0D 20 20 20 20 20 20  |JSR $EDDD.      |
00000A40: 20 20 20 49 4E 43 20 24  46 42 0D 20 20 20 20 20  |   INC $FB.     |
00000A50: 20 20 20 20 42 4E 45 20  4D 57 32 0D 20 20 20 20  |    BNE MW2.    |
00000A60: 20 20 20 20 20 49 4E 43  20 24 46 43 0D 4D 57 32  |     INC $FC.MW2|
00000A70: 20 20 20 20 20 20 44 45  58 0D 20 20 20 20 20 20  |      DEX.      |
00000A80: 20 20 20 42 50 4C 20 4D  57 31 0D 20 20 20 20 20  |   BPL MW1.     |
00000A90: 20 20 20 20 4A 53 52 20  24 45 44 46 45 0D 20 20  |    JSR $EDFE.  |
00000AA0: 20 20 20 20 20 20 20 43  4C 43 0D 20 20 20 20 20  |       CLC.     |
00000AB0: 20 20 20 20 4C 44 41 20  24 41 39 0D 20 20 20 20  |    LDA $A9.    |
00000AC0: 20 20 20 20 20 41 44 43  20 23 24 32 30 0D 20 20  |     ADC #$20.  |
00000AD0: 20 20 20 20 20 20 20 53  54 41 20 24 41 39 0D 20  |       STA $A9. |
00000AE0: 20 20 20 20 20 20 20 20  4C 44 41 20 24 41 41 0D  |        LDA $AA.|
00000AF0: 20 20 20 20 20 20 20 20  20 41 44 43 20 23 30 0D  |         ADC #0.|
00000B00: 20 20 20 20 20 20 20 20  20 53 54 41 20 24 41 41  |         STA $AA|
00000B10: 0D 20 20 20 20 20 20 20  20 20 43 4D 50 20 23 24  |.         CMP #$|
00000B20: 30 38 0D 20 20 20 20 20  20 20 20 20 42 4E 45 20  |08.         BNE |
00000B30: 49 4E 49 54 32 0D 20 20  20 20 20 20 20 20 20 4A  |INIT2.         J|
00000B40: 53 52 20 44 52 56 4D 4F  44 0D 20 20 20 20 20 20  |SR DRVMOD.      |
00000B50: 20 20 20 4C 44 41 20 23  22 45 22 0D 20 20 20 20  |   LDA #"E".    |
00000B60: 20 20 20 20 20 4C 44 58  20 23 3C 24 30 34 30 30  |     LDX #<$0400|
00000B70: 0D 20 20 20 20 20 20 20  20 20 4C 44 59 20 23 3E  |.         LDY #>|
00000B80: 24 30 34 30 30 0D 20 20  20 20 20 20 20 20 20 4A  |$0400.         J|
00000B90: 53 52 20 42 59 54 53 33  0D 20 20 20 20 20 20 20  |SR BYTS3.       |
00000BA0: 20 20 4A 53 52 20 24 45  44 46 45 0D 57 41 49 54  |  JSR $EDFE.WAIT|
00000BB0: 45 52 0D 20 20 20 20 20  20 20 20 20 4C 44 41 20  |ER.         LDA |
00000BC0: 23 24 43 37 0D 20 20 20  20 20 20 20 20 20 53 54  |#$C7.         ST|
00000BD0: 41 20 24 44 44 30 30 0D  20 20 20 20 20 20 20 20  |A $DD00.        |
00000BE0: 20 54 41 58 0D 57 41 49  54 31 0D 20 20 20 20 20  | TAX.WAIT1.     |
00000BF0: 20 20 20 20 50 48 41 0D  20 20 20 20 20 20 20 20  |    PHA.        |
00000C00: 20 50 4C 41 0D 20 20 20  20 20 20 20 20 20 44 45  | PLA.         DE|
00000C10: 58 0D 20 20 20 20 20 20  20 20 20 42 4E 45 20 57  |X.         BNE W|
00000C20: 41 49 54 31 0D 20 20 20  20 20 20 20 20 20 52 54  |AIT1.         RT|
00000C30: 53 0D 44 52 56 4D 4F 44  0D 20 20 20 20 20 20 20  |S.DRVMOD.       |
00000C40: 20 20 4C 44 41 20 23 38  0D 20 20 20 20 20 20 20  |  LDA #8.       |
00000C50: 20 20 4A 53 52 20 24 45  44 30 43 0D 20 20 20 20  |  JSR $ED0C.    |
00000C60: 20 20 20 20 20 4C 44 41  20 23 24 36 46 0D 20 20  |     LDA #$6F.  |
00000C70: 20 20 20 20 20 20 20 4A  53 52 20 24 45 44 42 39  |       JSR $EDB9|
00000C80: 0D 20 20 20 20 20 20 20  20 20 4C 44 41 20 23 22  |.         LDA #"|
00000C90: 4D 22 0D 20 20 20 20 20  20 20 20 20 4C 44 59 20  |M".         LDY |
00000CA0: 23 22 2D 22 0D 20 20 20  20 20 20 20 20 20 4A 4D  |#"-".         JM|
00000CB0: 50 20 42 59 54 53 32 0D  42 59 54 53 33 0D 20 20  |P BYTS2.BYTS3.  |
00000CC0: 20 20 20 20 20 20 20 4A  53 52 20 24 45 44 44 44  |       JSR $EDDD|
00000CD0: 0D 20 20 20 20 20 20 20  20 20 54 58 41 0D 42 59  |.         TXA.BY|
00000CE0: 54 53 32 0D 20 20 20 20  20 20 20 20 20 4A 53 52  |TS2.         JSR|
00000CF0: 20 24 45 44 44 44 0D 20  20 20 20 20 20 20 20 20  | $EDDD.         |
00000D00: 54 59 41 0D 20 20 20 20  20 20 20 20 20 4A 4D 50  |TYA.         JMP|
00000D10: 20 24 45 44 44 44 0D 0D  47 45 54 42 59 54 45 0D  | $EDDD..GETBYTE.|
00000D20: 20 20 20 20 20 20 20 20  20 4C 44 59 20 23 33 0D  |         LDY #3.|
00000D30: 0D 49 4C 34 42 20 20 20  20 20 4C 44 58 20 49 4C  |.IL4B     LDX IL|
00000D40: 34 0D 20 20 20 20 20 20  20 20 20 4C 44 41 20 24  |4.         LDA $|
00000D50: 44 44 30 30 0D 20 20 20  20 20 20 20 20 20 53 54  |DD00.         ST|
00000D60: 58 20 24 44 44 30 30 0D  20 20 20 20 20 20 20 20  |X $DD00.        |
00000D70: 20 41 53 4C 20 41 0D 20  20 20 20 20 20 20 20 20  | ASL A.         |
00000D80: 4C 44 58 20 23 37 0D 49  4C 34 43 0D 20 20 20 20  |LDX #7.IL4C.    |
00000D90: 20 20 20 20 20 44 45 58  0D 20 20 20 20 20 20 20  |     DEX.       |
00000DA0: 20 20 42 4E 45 20 49 4C  34 43 0D 20 20 20 20 20  |  BNE IL4C.     |
00000DB0: 20 20 20 20 52 4F 52 20  24 42 44 0D 20 20 20 20  |    ROR $BD.    |
00000DC0: 20 20 20 20 20 4C 44 58  20 49 4C 35 0D 20 20 20  |     LDX IL5.   |
00000DD0: 20 20 20 20 20 20 4C 44  41 20 24 44 44 30 30 0D  |      LDA $DD00.|
00000DE0: 20 20 20 20 20 20 20 20  20 53 54 58 20 24 44 44  |         STX $DD|
00000DF0: 30 30 0D 20 20 20 20 20  20 20 20 20 41 53 4C 20  |00.         ASL |
00000E00: 41 0D 20 20 20 20 20 20  20 20 20 52 4F 52 20 24  |A.         ROR $|
00000E10: 42 44 0D 20 20 20 20 20  20 20 20 20 44 45 59 0D  |BD.         DEY.|
00000E20: 20 20 20 20 20 20 20 20  20 42 50 4C 20 49 4C 34  |         BPL IL4|
00000E30: 42 0D 20 20 20 20 20 20  20 20 20 4C 44 41 20 24  |B.         LDA $|
00000E40: 42 44 0D 20 20 20 20 20  20 20 20 20 52 54 53 0D  |BD.         RTS.|
00000E50: 53 45 4E 44 42 0D 20 20  20 20 20 20 20 20 20 53  |SENDB.         S|
00000E60: 54 41 20 24 42 44 0D 20  20 20 20 20 20 20 20 20  |TA $BD.         |
00000E70: 4C 44 59 20 23 33 0D 53  45 4E 44 42 32 0D 20 20  |LDY #3.SENDB2.  |
00000E80: 20 20 20 20 20 20 20 4A  53 52 20 49 4C 32 42 0D  |       JSR IL2B.|
00000E90: 20 20 20 20 20 20 20 20  20 44 45 59 0D 20 20 20  |         DEY.   |
00000EA0: 20 20 20 20 20 20 42 50  4C 20 53 45 4E 44 42 32  |      BPL SENDB2|
00000EB0: 0D 20 20 20 20 20 20 20  20 20 52 54 53 0D 0D 49  |.         RTS..I|
00000EC0: 4C 32 42 20 20 20 20 20  4C 44 41 20 49 4C 32 0D  |L2B     LDA IL2.|
00000ED0: 20 20 20 20 20 20 20 20  20 4C 53 52 20 24 42 44  |         LSR $BD|
00000EE0: 0D 20 20 20 20 20 20 20  20 20 42 43 43 20 49 4C  |.         BCC IL|
00000EF0: 32 43 0D 20 20 20 20 20  20 20 20 20 4F 52 41 20  |2C.         ORA |
00000F00: 23 24 32 30 0D 49 4C 32  43 20 20 20 20 20 53 54  |#$20.IL2C     ST|
00000F10: 41 20 24 44 44 30 30 0D  20 20 20 20 20 20 20 20  |A $DD00.        |
00000F20: 20 4C 44 41 20 49 4C 31  0D 20 20 20 20 20 20 20  | LDA IL1.       |
00000F30: 20 20 4C 53 52 20 24 42  44 0D 20 20 20 20 20 20  |  LSR $BD.      |
00000F40: 20 20 20 42 43 43 20 49  4C 32 44 0D 20 20 20 20  |   BCC IL2D.    |
00000F50: 20 20 20 20 20 4F 52 41  20 23 24 32 30 0D 49 4C  |     ORA #$20.IL|
00000F60: 32 44 20 20 20 20 20 53  54 41 20 24 44 44 30 30  |2D     STA $DD00|
00000F70: 0D 20 20 20 20 20 20 20  20 20 52 54 53 0D 49 4C  |.         RTS.IL|
00000F80: 54 41 42 0D 20 20 20 20  20 20 20 20 20 2E 42 59  |TAB.         .BY|
00000F90: 54 45 20 24 31 30 2C 24  33 30 2C 24 42 30 2C 24  |TE $10,$30,$B0,$|
00000FA0: 35 30 0D 0D 0D 44 45 43  52 55 53 48 45 52 0D 49  |50...DECRUSHER.I|
00000FB0: 31 38 20 20 20 20 20 20  4A 53 52 20 4E 45 58 54  |18      JSR NEXT|
00000FC0: 42 59 54 45 32 0D 20 20  20 20 20 20 20 20 20 53  |BYTE2.         S|
00000FD0: 54 41 20 41 46 42 0D 20  20 20 20 20 20 20 20 20  |TA AFB.         |
00000FE0: 4A 53 52 20 4E 45 58 54  42 59 54 45 32 0D 20 20  |JSR NEXTBYTE2.  |
00000FF0: 20 20 20 20 20 20 20 53  54 41 20 41 46 43 0D 0D  |       STA AFC..|
00001000: 20 20 20 20 20 20 20 20  20 4C 44 58 20 23 30 0D  |         LDX #0.|
00001010: 20 20 20 20 20 20 20 20  20 53 54 58 20 41 46 39  |         STX AF9|
00001020: 0D 49 32 36 20 20 20 20  20 20 53 54 58 20 41 46  |.I26      STX AF|
00001030: 45 0D 20 20 20 20 20 20  20 20 20 4C 44 41 20 23  |E.         LDA #|
00001040: 31 0D 20 20 20 20 20 20  20 20 20 4A 53 52 20 49  |1.         JSR I|
00001050: 43 45 0D 20 20 20 20 20  20 20 20 20 42 43 53 20  |CE.         BCS |
00001060: 49 35 42 0D 49 32 46 20  20 20 20 20 20 4A 53 52  |I5B.I2F      JSR|
00001070: 20 49 43 45 0D 20 20 20  20 20 20 20 20 20 42 43  | ICE.         BC|
00001080: 53 20 49 33 43 0D 20 20  20 20 20 20 20 20 20 4A  |S I3C.         J|
00001090: 53 52 20 49 43 45 0D 20  20 20 20 20 20 20 20 20  |SR ICE.         |
000010A0: 52 4F 4C 20 41 0D 20 20  20 20 20 20 20 20 20 52  |ROL A.         R|
000010B0: 4F 4C 20 41 46 45 0D 20  20 20 20 20 20 20 20 20  |OL AFE.         |
000010C0: 42 50 4C 20 49 32 46 0D  49 33 43 20 20 20 20 20  |BPL I2F.I3C     |
000010D0: 20 54 41 58 0D 20 20 20  20 20 20 20 20 20 42 45  | TAX.         BE|
000010E0: 51 20 49 35 33 0D 49 33  46 20 20 20 20 20 20 4A  |Q I53.I3F      J|
000010F0: 53 52 20 4E 45 58 54 42  59 54 45 32 0D 20 20 20  |SR NEXTBYTE2.   |
00001100: 20 20 20 20 20 20 4C 44  59 20 23 30 0D 20 20 20  |      LDY #0.   |
00001110: 20 20 20 20 20 20 42 49  54 20 31 20 20 20 20 20  |      BIT 1     |
00001120: 3B 4F 52 20 49 4E 43 20  31 2F 44 45 43 20 31 0D  |;OR INC 1/DEC 1.|
00001130: 20 20 20 20 20 20 20 20  20 53 54 41 20 28 50 46  |         STA (PF|
00001140: 42 29 2C 59 0D 20 20 20  20 20 20 20 20 20 42 49  |B),Y.         BI|
00001150: 54 20 31 20 20 20 20 20  3B 4F 52 20 49 4E 43 20  |T 1     ;OR INC |
00001160: 31 2F 44 45 43 20 31 0D  20 20 20 20 20 20 20 20  |1/DEC 1.        |
00001170: 20 49 4E 43 20 41 46 42  0D 20 20 20 20 20 20 20  | INC AFB.       |
00001180: 20 20 42 4E 45 20 49 35  30 0D 20 20 20 20 20 20  |  BNE I50.      |
00001190: 20 20 20 49 4E 43 20 41  46 43 0D 49 35 30 20 20  |   INC AFC.I50  |
000011A0: 20 20 20 20 44 45 58 0D  20 20 20 20 20 20 20 20  |    DEX.        |
000011B0: 20 42 4E 45 20 49 33 46  0D 49 35 33 20 20 20 20  | BNE I3F.I53    |
000011C0: 20 20 43 50 58 20 41 46  45 0D 20 20 20 20 20 20  |  CPX AFE.      |
000011D0: 20 20 20 44 45 43 20 41  46 45 0D 20 20 20 20 20  |   DEC AFE.     |
000011E0: 20 20 20 20 42 43 43 20  49 33 46 0D 20 20 20 20  |    BCC I3F.    |
000011F0: 20 20 20 20 20 53 54 58  20 41 46 45 0D 49 35 42  |     STX AFE.I5B|
00001200: 20 20 20 20 20 20 4C 44  41 20 23 31 0D 20 20 20  |      LDA #1.   |
00001210: 20 20 20 20 20 20 4A 53  52 20 49 43 45 0D 20 20  |      JSR ICE.  |
00001220: 20 20 20 20 20 20 20 42  43 43 20 49 36 46 0D 49  |       BCC I6F.I|
00001230: 36 32 20 20 20 20 20 20  4A 53 52 20 49 43 45 0D  |62      JSR ICE.|
00001240: 20 20 20 20 20 20 20 20  20 42 43 53 20 49 37 30  |         BCS I70|
00001250: 0D 20 20 20 20 20 20 20  20 20 4A 53 52 20 49 43  |.         JSR IC|
00001260: 45 0D 20 20 20 20 20 20  20 20 20 52 4F 4C 20 41  |E.         ROL A|
00001270: 0D 20 20 20 20 20 20 20  20 20 42 43 43 20 49 36  |.         BCC I6|
00001280: 32 0D 20 20 20 20 20 20  20 20 20 42 43 53 20 49  |2.         BCS I|
00001290: 31 38 0D 49 36 46 20 20  20 20 20 20 49 4E 58 0D  |18.I6F      INX.|
000012A0: 49 37 30 20 20 20 20 20  20 41 44 43 20 23 31 0D  |I70      ADC #1.|
000012B0: 20 20 20 20 20 20 20 20  20 53 54 41 20 41 46 41  |         STA AFA|
000012C0: 0D 20 20 20 20 20 20 20  20 20 54 58 41 0D 20 20  |.         TXA.  |
000012D0: 20 20 20 20 20 20 20 4A  53 52 20 49 43 45 0D 20  |       JSR ICE. |
000012E0: 20 20 20 20 20 20 20 20  52 4F 4C 20 41 0D 20 20  |        ROL A.  |
000012F0: 20 20 20 20 20 20 20 4A  53 52 20 49 43 45 0D 20  |       JSR ICE. |
00001300: 20 20 20 20 20 20 20 20  52 4F 4C 20 41 0D 20 20  |        ROL A.  |
00001310: 20 20 20 20 20 20 20 54  41 59 0D 20 20 20 20 20  |       TAY.     |
00001320: 20 20 20 20 4C 44 41 20  23 30 0D 49 38 30 20 20  |    LDA #0.I80  |
00001330: 20 20 20 20 4C 44 58 20  46 46 32 2C 59 0D 49 38  |    LDX FF2,Y.I8|
00001340: 33 20 20 20 20 20 20 4A  53 52 20 49 43 45 0D 20  |3      JSR ICE. |
00001350: 20 20 20 20 20 20 20 20  52 4F 4C 20 41 0D 20 20  |        ROL A.  |
00001360: 20 20 20 20 20 20 20 52  4F 4C 20 41 46 45 0D 20  |       ROL AFE. |
00001370: 20 20 20 20 20 20 20 20  44 45 58 0D 20 20 20 20  |        DEX.    |
00001380: 20 20 20 20 20 42 4E 45  20 49 38 33 0D 20 20 20  |     BNE I83.   |
00001390: 20 20 20 20 20 20 44 45  59 0D 20 20 20 20 20 20  |      DEY.      |
000013A0: 20 20 20 42 4D 49 20 49  39 44 0D 20 20 20 20 20  |   BMI I9D.     |
000013B0: 20 20 20 20 43 50 59 20  23 33 0D 20 20 20 20 20  |    CPY #3.     |
000013C0: 20 20 20 20 42 45 51 20  49 39 43 0D 20 20 20 20  |    BEQ I9C.    |
000013D0: 20 20 20 20 20 43 4C 43  0D 20 20 20 20 20 20 20  |     CLC.       |
000013E0: 20 20 41 44 43 20 23 31  0D 20 20 20 20 20 20 20  |  ADC #1.       |
000013F0: 20 20 42 43 43 20 49 38  10 0D 20 20 20 20 20 20  |  BCC I8..      |
00001400: 20 20 20 49 4E 43 20 41  46 45 0D 20 20 20 20 20  |   INC AFE.     |
00001410: 20 20 20 20 42 43 53 20  49 38 10 0D 49 39 43 20  |    BCS I8..I9C |
00001420: 20 20 20 20 20 43 4C 43  0D 49 39 44 20 20 20 20  |     CLC.I9D    |
00001430: 20 20 41 44 43 20 41 46  41 0D 20 20 20 20 20 20  |  ADC AFA.      |
00001440: 20 20 20 42 43 43 20 49  41 33 0D 20 20 20 20 20  |   BCC IA3.     |
00001450: 20 20 20 20 49 4E 43 20  41 46 45 0D 49 41 33 20  |    INC AFE.IA3 |
00001460: 20 20 20 20 20 43 4C 43  0D 20 20 20 20 20 20 20  |     CLC.       |
00001470: 20 20 53 42 43 20 41 46  42 0D 20 20 20 20 20 20  |  SBC AFB.      |
00001480: 20 20 20 45 4F 52 20 23  24 46 46 0D 20 20 20 20  |   EOR #$FF.    |
00001490: 20 20 20 20 20 53 54 41  20 41 46 44 0D 20 20 20  |     STA AFD.   |
000014A0: 20 20 20 20 20 20 4C 44  41 20 41 46 45 0D 20 20  |      LDA AFE.  |
000014B0: 20 20 20 20 20 20 20 53  42 43 20 41 46 43 0D 20  |       SBC AFC. |
000014C0: 20 20 20 20 20 20 20 20  45 4F 52 20 23 24 46 46  |        EOR #$FF|
000014D0: 0D 20 20 20 20 20 20 20  20 20 53 54 41 20 41 46  |.         STA AF|
000014E0: 45 0D 20 20 20 20 20 20  20 20 20 4C 44 59 20 23  |E.         LDY #|
000014F0: 24 30 30 0D 20 20 20 20  20 20 20 20 20 42 49 54  |$00.         BIT|
00001500: 20 31 20 20 20 20 3B 4F  52 20 49 4E 43 20 31 2F  | 1    ;OR INC 1/|
00001510: 44 45 43 20 31 0D 49 42  36 20 20 20 20 20 20 4C  |DEC 1.IB6      L|
00001520: 44 41 20 28 50 46 44 29  2C 59 0D 20 20 20 20 20  |DA (PFD),Y.     |
00001530: 20 20 20 20 53 54 41 20  28 50 46 42 29 2C 59 0D  |    STA (PFB),Y.|
00001540: 20 20 20 20 20 20 20 20  20 49 4E 59 0D 20 20 20  |         INY.   |
00001550: 20 20 20 20 20 20 43 50  59 20 41 46 41 0D 20 20  |      CPY AFA.  |
00001560: 20 20 20 20 20 20 20 42  4E 45 20 49 42 36 0D 20  |       BNE IB6. |
00001570: 20 20 20 20 20 20 20 20  42 49 54 20 31 20 20 20  |        BIT 1   |
00001580: 20 3B 4F 52 20 49 4E 43  20 31 2F 44 45 43 20 31  | ;OR INC 1/DEC 1|
00001590: 0D 20 20 20 20 20 20 20  20 20 54 59 41 0D 20 20  |.         TYA.  |
000015A0: 20 20 20 20 20 20 20 43  4C 43 0D 20 20 20 20 20  |       CLC.     |
000015B0: 20 20 20 20 41 44 43 20  41 46 42 0D 20 20 20 20  |    ADC AFB.    |
000015C0: 20 20 20 20 20 53 54 41  20 41 46 42 0D 20 20 20  |     STA AFB.   |
000015D0: 20 20 20 20 20 20 42 43  43 20 49 43 42 0D 20 20  |      BCC ICB.  |
000015E0: 20 20 20 20 20 20 20 49  4E 43 20 41 46 43 0D 49  |       INC AFC.I|
000015F0: 43 42 20 20 20 20 20 20  4A 4D 50 20 49 32 36 0D  |CB      JMP I26.|
00001600: 49 43 45 20 20 20 20 20  20 41 53 4C 20 41 46 39  |ICE      ASL AF9|
00001610: 0D 20 20 20 20 20 20 20  20 20 42 45 51 20 49 44  |.         BEQ ID|
00001620: 33 0D 20 20 20 20 20 20  20 20 20 52 54 53 0D 49  |3.         RTS.I|
00001630: 44 33 20 20 20 20 20 20  53 54 41 20 42 59 54 41  |D3      STA BYTA|
00001640: 0D 20 20 20 20 20 20 20  20 20 4A 53 52 20 4E 45  |.         JSR NE|
00001650: 58 54 42 59 54 45 32 0D  20 20 20 20 20 20 20 20  |XTBYTE2.        |
00001660: 20 53 45 43 0D 20 20 20  20 20 20 20 20 20 52 4F  | SEC.         RO|
00001670: 4C 20 41 0D 20 20 20 20  20 20 20 20 20 53 54 41  |L A.         STA|
00001680: 20 41 46 39 0D 20 20 20  20 20 20 20 20 20 4C 44  | AF9.         LD|
00001690: 41 20 42 59 54 41 0D 49  31 30 44 43 20 20 20 20  |A BYTA.I10DC    |
000016A0: 52 54 53 0D 44 52 56 45  52 52 32 0D 20 20 20 20  |RTS.DRVERR2.    |
000016B0: 20 20 20 20 20 53 45 43  0D 20 20 20 20 20 20 20  |     SEC.       |
000016C0: 20 20 50 4C 41 0D 20 20  20 20 20 20 20 20 20 50  |  PLA.         P|
000016D0: 4C 41 0D 20 20 20 20 20  20 20 20 20 52 54 53 0D  |LA.         RTS.|
000016E0: 46 49 4C 45 45 4E 44 32  0D 20 20 20 20 20 20 20  |FILEEND2.       |
000016F0: 20 20 43 4C 43 0D 20 20  20 20 20 20 20 20 20 50  |  CLC.         P|
00001700: 4C 41 0D 20 20 20 20 20  20 20 20 20 50 4C 41 0D  |LA.         PLA.|
00001710: 20 20 20 20 20 20 20 20  20 52 54 53 0D 4E 45 58  |         RTS.NEX|
00001720: 54 42 59 54 45 32 0D 20  20 20 20 20 20 20 20 20  |TBYTE2.         |
00001730: 53 54 58 20 42 59 54 58  0D 20 20 20 20 20 20 20  |STX BYTX.       |
00001740: 20 20 53 54 59 20 42 59  54 59 0D 20 20 20 20 20  |  STY BYTY.     |
00001750: 20 20 20 20 4A 53 52 20  47 45 54 42 59 54 45 0D  |    JSR GETBYTE.|
00001760: 20 20 20 20 20 20 20 20  20 43 4D 50 20 23 24 39  |         CMP #$9|
00001770: 39 0D 20 20 20 20 20 20  20 20 20 42 4E 45 20 53  |9.         BNE S|
00001780: 45 54 42 59 54 45 32 0D  20 20 20 20 20 20 20 20  |ETBYTE2.        |
00001790: 20 4A 53 52 20 47 45 54  42 59 54 45 0D 20 20 20  | JSR GETBYTE.   |
000017A0: 20 20 20 20 20 20 43 4D  50 20 23 24 39 39 0D 20  |      CMP #$99. |
000017B0: 20 20 20 20 20 20 20 20  42 45 51 20 53 45 54 42  |        BEQ SETB|
000017C0: 59 54 45 32 0D 20 20 20  20 20 20 20 20 20 43 4D  |YTE2.         CM|
000017D0: 50 20 23 24 46 46 0D 20  20 20 20 20 20 20 20 20  |P #$FF.         |
000017E0: 42 45 51 20 46 49 4C 45  45 4E 44 32 0D 20 20 20  |BEQ FILEEND2.   |
000017F0: 20 20 20 20 20 20 43 4D  50 20 23 24 46 45 0D 20  |      CMP #$FE. |
00001800: 20 20 20 20 20 20 20 20  42 45 51 20 44 52 56 45  |        BEQ DRVE|
00001810: 52 52 32 0D 20 20 20 20  20 20 20 20 20 4A 53 52  |RR2.         JSR|
00001820: 20 4E 57 41 49 54 0D 20  20 20 20 20 20 20 20 20  | NWAIT.         |
00001830: 4C 44 58 20 42 59 54 58  0D 20 20 20 20 20 20 20  |LDX BYTX.       |
00001840: 20 20 4C 44 59 20 42 59  54 59 0D 20 20 20 20 20  |  LDY BYTY.     |
00001850: 20 20 20 20 4A 4D 50 20  4E 45 58 54 42 59 54 45  |    JMP NEXTBYTE|
00001860: 32 0D 53 45 54 42 59 54  45 32 0D 20 20 20 20 20  |2.SETBYTE2.     |
00001870: 20 20 20 20 4C 44 58 20  42 59 54 58 0D 20 20 20  |    LDX BYTX.   |
00001880: 20 20 20 20 20 20 4C 44  59 20 42 59 54 59 0D 20  |      LDY BYTY. |
00001890: 20 20 20 20 20 20 20 20  52 54 53 0D 53 45 54 53  |        RTS.SETS|
000018A0: 50 32 0D 20 20 20 20 20  20 20 20 20 4C 44 58 20  |P2.         LDX |
000018B0: 23 36 0D 20 20 20 20 20  20 20 20 20 4A 4D 50 20  |#6.         JMP |
000018C0: 53 45 54 50 30 0D 53 45  54 53 50 31 0D 20 20 20  |SETP0.SETSP1.   |
000018D0: 20 20 20 20 20 20 4C 44  58 20 23 31 0D 20 20 20  |      LDX #1.   |
000018E0: 20 20 20 20 20 20 4A 4D  50 20 53 45 54 50 30 0D  |      JMP SETP0.|
000018F0: 53 45 54 53 50 44 0D 20  20 20 20 20 20 20 20 20  |SETSPD.         |
00001900: 54 41 58 0D 20 20 20 20  20 20 20 20 20 43 50 58  |TAX.         CPX|
00001910: 20 23 30 0D 20 20 20 20  20 20 20 20 20 42 45 51  | #0.         BEQ|
00001920: 20 53 45 54 53 50 31 0D  20 20 20 20 20 20 20 20  | SETSP1.        |
00001930: 20 43 50 58 20 23 36 0D  20 20 20 20 20 20 20 20  | CPX #6.        |
00001940: 20 42 43 53 20 53 45 54  53 50 32 0D 53 45 54 50  | BCS SETSP2.SETP|
00001950: 30 0D 20 20 20 20 20 20  20 20 20 4C 44 59 20 23  |0.         LDY #|
00001960: 24 46 38 0D 53 45 54 50  31 0D 20 20 20 20 20 20  |$F8.SETP1.      |
00001970: 20 20 20 54 59 41 0D 20  20 20 20 20 20 20 20 20  |   TYA.         |
00001980: 43 4C 43 0D 20 20 20 20  20 20 20 20 20 41 44 43  |CLC.         ADC|
00001990: 20 23 38 0D 20 20 20 20  20 20 20 20 20 54 41 59  | #8.         TAY|
000019A0: 0D 20 20 20 20 20 20 20  20 20 44 45 58 0D 20 20  |.         DEX.  |
000019B0: 20 20 20 20 20 20 20 42  4E 45 20 53 45 54 50 31  |       BNE SETP1|
000019C0: 0D 20 20 20 20 20 20 20  20 20 4C 44 58 20 23 30  |.         LDX #0|
000019D0: 0D 53 45 54 50 32 0D 20  20 20 20 20 20 20 20 20  |.SETP2.         |
000019E0: 4C 44 41 20 53 50 45 45  44 53 2C 59 0D 20 20 20  |LDA SPEEDS,Y.   |
000019F0: 20 20 20 20 20 20 53 54  41 20 46 46 32 2C 58 0D  |      STA FF2,X.|
00001A00: 20 20 20 20 20 20 20 20  20 49 4E 59 0D 20 20 20  |         INY.   |
00001A10: 20 20 20 20 20 20 49 4E  58 0D 20 20 20 20 20 20  |      INX.      |
00001A20: 20 20 20 43 50 58 20 23  38 0D 20 20 20 20 20 20  |   CPX #8.      |
00001A30: 20 20 20 42 4E 45 20 53  45 54 50 32 0D 20 20 20  |   BNE SETP2.   |
00001A40: 20 20 20 20 20 20 52 54  53 0D 0D 42 59 54 41 20  |      RTS..BYTA |
00001A50: 20 20 20 20 2E 42 59 54  45 20 30 0D 42 59 54 58  |    .BYTE 0.BYTX|
00001A60: 20 20 20 20 20 2E 42 59  54 45 20 30 0D 42 59 54  |     .BYTE 0.BYT|
00001A70: 59 20 20 20 20 20 2E 42  59 54 45 20 30 0D 0D 46  |Y     .BYTE 0..F|
00001A80: 46 32 20 20 20 20 20 20  2E 42 59 54 45 20 24 30  |F2      .BYTE $0|
00001A90: 31 2C 24 30 32 2C 24 30  33 2C 24 30 34 0D 20 20  |1,$02,$03,$04.  |
00001AA0: 20 20 20 20 20 20 20 2E  42 59 54 45 20 24 30 35  |       .BYTE $05|
00001AB0: 2C 24 30 36 2C 24 30 37  2C 24 30 38 0D 53 50 45  |,$06,$07,$08.SPE|
00001AC0: 45 44 53 0D 20 20 20 20  20 20 20 20 20 2E 42 59  |EDS.         .BY|
00001AD0: 54 45 20 33 2C 31 2C 32  2C 32 2C 33 2C 31 2C 32  |TE 3,1,2,2,3,1,2|
00001AE0: 2C 32 0D 20 20 20 20 20  20 20 20 20 2E 42 59 54  |,2.         .BYT|
00001AF0: 45 20 33 2C 32 2C 32 2C  32 2C 33 2C 32 2C 32 2C  |E 3,2,2,2,3,2,2,|
00001B00: 32 0D 20 20 20 20 20 20  20 20 20 2E 42 59 54 45  |2.         .BYTE|
00001B10: 20 34 2C 32 2C 32 2C 32  2C 34 2C 32 2C 32 2C 32  | 4,2,2,2,4,2,2,2|
00001B20: 0D 20 20 20 20 20 20 20  20 20 2E 42 59 54 45 20  |.         .BYTE |
00001B30: 34 2C 32 2C 32 2C 33 2C  34 2C 32 2C 32 2C 32 0D  |4,2,2,3,4,2,2,2.|
00001B40: 20 20 20 20 20 20 20 20  20 2E 42 59 54 45 20 34  |         .BYTE 4|
00001B50: 2C 32 2C 33 2C 33 2C 34  2C 32 2C 32 2C 32 0D 20  |,2,3,3,4,2,2,2. |
00001B60: 20 20 20 20 20 20 20 20  2E 42 59 54 45 20 34 2C  |        .BYTE 4,|
00001B70: 33 2C 33 2C 33 2C 34 2C  32 2C 32 2C 32 0D 0D 3B  |3,3,3,4,2,2,2..;|
00001B80: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001B90: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001BA0: 2D 2D 2D 2D 2D 2D 2D 0D  44 52 56 50 52 47 0D 44  |-------.DRVPRG.D|
00001BB0: 56 50 30 0D 20 20 20 20  20 20 20 20 20 4A 53 52  |VP0.         JSR|
00001BC0: 20 24 43 31 30 30 0D 44  56 50 31 20 20 20 20 20  | $C100.DVP1     |
00001BD0: 4C 44 41 20 24 31 38 30  30 0D 20 20 20 20 20 20  |LDA $1800.      |
00001BE0: 20 20 20 41 4E 44 20 23  35 0D 20 20 20 20 20 20  |   AND #5.      |
00001BF0: 20 20 20 42 4E 45 20 44  56 50 31 0D 0D 20 20 20  |   BNE DVP1..   |
00001C00: 20 20 20 20 20 20 4A 53  52 20 44 56 50 38 42 2D  |      JSR DVP8B-|
00001C10: 44 52 56 50 52 47 2B 24  30 34 30 30 0D 0D 3B C0  |DRVPRG+$0400..;.|
00001C20: C0 C0 3E 20 53 45 41 52  43 48 20 49 4E 20 44 49  |..> SEARCH IN DI|
00001C30: 52 20 46 4F 52 20 46 49  4C 45 4E 41 4D 45 0D 0D  |R FOR FILENAME..|
00001C40: 20 20 20 20 20 20 20 20  20 4C 44 59 20 23 31 0D  |         LDY #1.|
00001C50: 44 56 50 32 20 20 20 20  20 4C 44 58 20 23 31 38  |DVP2     LDX #18|
00001C60: 0D 20 20 20 20 20 20 20  20 20 53 54 58 20 36 0D  |.         STX 6.|
00001C70: 20 20 20 20 20 20 20 20  20 53 54 59 20 37 0D 20  |         STY 7. |
00001C80: 20 20 20 20 20 20 20 20  4A 53 52 20 44 56 50 39  |        JSR DVP9|
00001C90: 42 2D 44 52 56 50 52 47  2B 24 30 34 30 30 0D 0D  |B-DRVPRG+$0400..|
00001CA0: 20 20 20 20 20 20 20 20  20 4C 44 59 20 23 32 0D  |         LDY #2.|
00001CB0: 44 56 50 33 20 20 20 20  20 4C 44 41 20 24 30 33  |DVP3     LDA $03|
00001CC0: 30 33 2C 59 20 3B 43 4F  4D 50 41 52 45 20 31 53  |03,Y ;COMPARE 1S|
00001CD0: 54 20 43 48 41 52 0D 43  4D 50 42 31 20 20 20 20  |T CHAR.CMPB1    |
00001CE0: 3D 20 2A 2B 31 0D 20 20  20 20 20 20 20 20 20 43  |= *+1.         C|
00001CF0: 4D 50 20 23 30 0D 20 20  20 20 20 20 20 20 20 42  |MP #0.         B|
00001D00: 4E 45 20 44 56 50 34 0D  0D 20 20 20 20 20 20 20  |NE DVP4..       |
00001D10: 20 20 4C 44 41 20 24 30  33 30 34 2C 59 20 3B 43  |  LDA $0304,Y ;C|
00001D20: 4F 4D 50 41 52 45 20 32  4E 44 20 43 48 41 52 0D  |OMPARE 2ND CHAR.|
00001D30: 43 4D 50 42 32 20 20 20  20 3D 20 2A 2B 31 0D 20  |CMPB2    = *+1. |
00001D40: 20 20 20 20 20 20 20 20  43 4D 50 20 23 30 0D 20  |        CMP #0. |
00001D50: 20 20 20 20 20 20 20 20  42 4E 45 20 44 56 50 34  |        BNE DVP4|
00001D60: 0D 0D 3B 4F 4B 2E 20 46  49 4C 45 4E 41 4D 45 20  |..;OK. FILENAME |
00001D70: 46 4F 55 4E 44 20 2E 2E  2E 0D 0D 20 20 20 20 20  |FOUND .....     |
00001D80: 20 20 20 20 4A 4D 50 20  44 56 50 34 43 2D 44 52  |    JMP DVP4C-DR|
00001D90: 56 50 52 47 2B 24 30 34  30 30 0D 0D 3B C0 C0 C0  |VPRG+$0400..;...|
00001DA0: 3E 20 52 45 41 44 20 4E  45 58 54 20 53 45 43 54  |> READ NEXT SECT|
00001DB0: 4F 52 0D 3B 41 4E 44 20  43 4F 4E 54 49 4E 55 45  |OR.;AND CONTINUE|
00001DC0: 20 53 45 41 52 43 48 49  4E 47 0D 0D 44 56 50 34  | SEARCHING..DVP4|
00001DD0: 20 20 20 20 20 54 59 41  0D 20 20 20 20 20 20 20  |     TYA.       |
00001DE0: 20 20 43 4C 43 0D 20 20  20 20 20 20 20 20 20 41  |  CLC.         A|
00001DF0: 44 43 20 23 24 32 30 0D  20 20 20 20 20 20 20 20  |DC #$20.        |
00001E00: 20 54 41 59 0D 20 20 20  20 20 20 20 20 20 42 43  | TAY.         BC|
00001E10: 43 20 44 56 50 33 0D 0D  20 20 20 20 20 20 20 20  |C DVP3..        |
00001E20: 20 4C 44 59 20 24 30 33  30 31 0D 20 20 20 20 20  | LDY $0301.     |
00001E30: 20 20 20 20 42 50 4C 20  44 56 50 32 0D 44 56 50  |    BPL DVP2.DVP|
00001E40: 34 42 0D 20 20 20 20 20  20 20 20 20 4A 53 52 20  |4B.         JSR |
00001E50: 44 56 50 32 38 2D 44 52  56 50 52 47 2B 24 30 34  |DVP28-DRVPRG+$04|
00001E60: 30 30 0D 20 20 20 20 20  20 20 20 20 4C 44 58 20  |00.         LDX |
00001E70: 23 30 0D 20 20 20 20 20  20 20 20 20 4A 53 52 20  |#0.         JSR |
00001E80: 53 45 4E 44 42 59 54 2D  44 52 56 50 52 47 2B 24  |SENDBYT-DRVPRG+$|
00001E90: 30 34 30 30 0D 0D 20 20  20 20 20 20 20 20 20 4C  |0400..         L|
00001EA0: 44 58 20 23 30 0D 20 20  20 20 20 20 20 20 20 4A  |DX #0.         J|
00001EB0: 53 52 20 53 45 4E 44 42  59 54 2D 44 52 56 50 52  |SR SENDBYT-DRVPR|
00001EC0: 47 2B 24 30 34 30 30 0D  0D 20 20 20 20 20 20 20  |G+$0400..       |
00001ED0: 20 20 4C 44 58 20 23 24  39 39 0D 20 20 20 20 20  |  LDX #$99.     |
00001EE0: 20 20 20 20 4A 53 52 20  53 45 4E 44 42 59 54 2D  |    JSR SENDBYT-|
00001EF0: 44 52 56 50 52 47 2B 24  30 34 30 30 0D 0D 20 20  |DRVPRG+$0400..  |
00001F00: 20 20 20 20 20 20 20 4C  44 58 20 23 24 46 45 0D  |       LDX #$FE.|
00001F10: 20 20 20 20 20 20 20 20  20 4A 53 52 20 53 45 4E  |         JSR SEN|
00001F20: 44 42 59 54 2D 44 52 56  50 52 47 2B 24 30 34 30  |DBYT-DRVPRG+$040|
00001F30: 30 0D 0D 20 20 20 20 20  20 20 20 20 4A 4D 50 20  |0..         JMP |
00001F40: 24 43 31 30 30 0D 44 56  50 34 43 0D 20 20 20 20  |$C100.DVP4C.    |
00001F50: 20 20 20 20 20 4C 44 41  20 24 30 33 30 31 2C 59  |     LDA $0301,Y|
00001F60: 0D 20 20 20 20 20 20 20  20 20 53 54 41 20 36 0D  |.         STA 6.|
00001F70: 20 20 20 20 20 20 20 20  20 4C 44 41 20 24 30 33  |         LDA $03|
00001F80: 30 32 2C 59 0D 20 20 20  20 20 20 20 20 20 53 54  |02,Y.         ST|
00001F90: 41 20 37 0D 44 56 50 34  44 0D 20 20 20 20 20 20  |A 7.DVP4D.      |
00001FA0: 20 20 20 4A 53 52 20 44  56 50 39 42 2D 44 52 56  |   JSR DVP9B-DRV|
00001FB0: 50 52 47 2B 24 30 34 30  30 0D 0D 20 20 20 20 20  |PRG+$0400..     |
00001FC0: 20 20 20 20 4C 44 59 20  23 30 0D 20 20 20 20 20  |    LDY #0.     |
00001FD0: 20 20 20 20 4C 44 41 20  24 30 33 30 30 0D 20 20  |    LDA $0300.  |
00001FE0: 20 20 20 20 20 20 20 53  54 41 20 36 0D 20 20 20  |       STA 6.   |
00001FF0: 20 20 20 20 20 20 42 4E  45 20 44 56 50 35 0D 0D  |      BNE DVP5..|
00002000: 20 20 20 20 20 20 20 20  20 4C 44 59 20 24 30 33  |         LDY $03|
00002010: 30 31 0D 20 20 20 20 20  20 20 20 20 49 4E 59 0D  |01.         INY.|
00002020: 44 56 50 35 20 20 20 20  20 53 54 59 20 24 30 31  |DVP5     STY $01|
00002030: 31 38 0D 20 20 20 20 20  20 20 20 20 4C 44 41 20  |18.         LDA |
00002040: 24 30 33 30 31 0D 20 20  20 20 20 20 20 20 20 53  |$0301.         S|
00002050: 54 41 20 37 0D 20 20 20  20 20 20 20 20 20 4C 44  |TA 7.         LD|
00002060: 59 20 23 32 0D 20 20 20  20 20 20 20 20 20 4A 53  |Y #2.         JS|
00002070: 52 20 44 56 50 32 38 2D  44 52 56 50 52 47 2B 24  |R DVP28-DRVPRG+$|
00002080: 30 34 30 30 0D 44 56 50  36 20 20 20 20 20 4C 44  |0400.DVP6     LD|
00002090: 58 20 24 30 33 30 30 2C  59 0D 20 20 20 20 20 20  |X $0300,Y.      |
000020A0: 20 20 20 43 50 58 20 23  24 39 39 0D 20 20 20 20  |   CPX #$99.    |
000020B0: 20 20 20 20 20 42 4E 45  20 44 56 50 37 0D 0D 20  |     BNE DVP7.. |
000020C0: 20 20 20 20 20 20 20 20  4A 53 52 20 53 45 4E 44  |        JSR SEND|
000020D0: 42 59 54 2D 44 52 56 50  52 47 2B 24 30 34 30 30  |BYT-DRVPRG+$0400|
000020E0: 0D 0D 20 20 20 20 20 20  20 20 20 4C 44 58 20 23  |..         LDX #|
000020F0: 24 39 39 0D 44 56 50 37  20 20 20 20 20 4A 53 52  |$99.DVP7     JSR|
00002100: 20 53 45 4E 44 42 59 54  2D 44 52 56 50 52 47 2B  | SENDBYT-DRVPRG+|
00002110: 24 30 34 30 30 0D 0D 20  20 20 20 20 20 20 20 20  |$0400..         |
00002120: 49 4E 59 0D 20 20 20 20  20 20 20 20 20 43 50 59  |INY.         CPY|
00002130: 20 24 30 31 31 38 0D 20  20 20 20 20 20 20 20 20  | $0118.         |
00002140: 42 4E 45 20 44 56 50 36  0D 0D 20 20 20 20 20 20  |BNE DVP6..      |
00002150: 20 20 20 4C 44 41 20 24  30 33 30 30 0D 20 20 20  |   LDA $0300.   |
00002160: 20 20 20 20 20 20 42 45  51 20 44 56 50 38 0D 0D  |      BEQ DVP8..|
00002170: 20 20 20 20 20 20 20 20  20 4C 44 58 20 23 24 39  |         LDX #$9|
00002180: 39 0D 20 20 20 20 20 20  20 20 20 4A 53 52 20 53  |9.         JSR S|
00002190: 45 4E 44 42 59 54 2D 44  52 56 50 52 47 2B 24 30  |ENDBYT-DRVPRG+$0|
000021A0: 34 30 30 0D 0D 20 20 20  20 20 20 20 20 20 4C 44  |400..         LD|
000021B0: 58 20 23 24 43 33 0D 20  20 20 20 20 20 20 20 20  |X #$C3.         |
000021C0: 4A 53 52 20 53 45 4E 44  42 59 54 2D 44 52 56 50  |JSR SENDBYT-DRVP|
000021D0: 52 47 2B 24 30 34 30 30  0D 0D 20 20 20 20 20 20  |RG+$0400..      |
000021E0: 20 20 20 4A 53 52 20 44  56 50 32 37 2D 44 52 56  |   JSR DVP27-DRV|
000021F0: 50 52 47 2B 24 30 34 30  30 0D 0D 20 20 20 20 20  |PRG+$0400..     |
00002200: 20 20 20 20 4A 4D 50 20  44 56 50 34 44 2D 44 52  |    JMP DVP4D-DR|
00002210: 56 50 52 47 2B 24 30 34  30 30 0D 0D 44 56 50 38  |VPRG+$0400..DVP8|
00002220: 20 20 20 20 20 4C 44 58  20 23 24 39 39 0D 20 20  |     LDX #$99.  |
00002230: 20 20 20 20 20 20 20 4A  53 52 20 53 45 4E 44 42  |       JSR SENDB|
00002240: 59 54 2D 44 52 56 50 52  47 2B 24 30 34 30 30 0D  |YT-DRVPRG+$0400.|
00002250: 0D 20 20 20 20 20 20 20  20 20 4C 44 58 20 23 24  |.         LDX #$|
00002260: 46 46 0D 20 20 20 20 20  20 20 20 20 4A 53 52 20  |FF.         JSR |
00002270: 53 45 4E 44 42 59 54 2D  44 52 56 50 52 47 2B 24  |SENDBYT-DRVPRG+$|
00002280: 30 34 30 30 0D 0D 20 20  20 20 20 20 20 20 20 4A  |0400..         J|
00002290: 4D 50 20 44 56 50 30 2D  44 52 56 50 52 47 2B 24  |MP DVP0-DRVPRG+$|
000022A0: 30 34 30 30 0D 44 56 50  38 42 0D 20 20 20 20 20  |0400.DVP8B.     |
000022B0: 20 20 20 20 4A 53 52 20  44 56 50 32 37 2D 44 52  |    JSR DVP27-DR|
000022C0: 56 50 52 47 2B 24 30 34  30 30 0D 20 20 20 20 20  |VPRG+$0400.     |
000022D0: 20 20 20 20 43 4C 49 0D  20 20 20 20 20 20 20 20  |    CLI.        |
000022E0: 20 4C 44 41 20 23 31 0D  44 56 50 39 20 20 20 20  | LDA #1.DVP9    |
000022F0: 20 42 49 54 20 24 31 38  30 30 0D 20 20 20 20 20  | BIT $1800.     |
00002300: 20 20 20 20 42 45 51 20  44 56 50 39 0D 0D 20 20  |    BEQ DVP9..  |
00002310: 20 20 20 20 20 20 20 53  45 49 0D 20 20 20 20 20  |       SEI.     |
00002320: 20 20 20 20 4C 44 41 20  23 30 0D 20 20 20 20 20  |    LDA #0.     |
00002330: 20 20 20 20 53 54 41 20  24 31 38 30 30 0D 0D 3B  |    STA $1800..;|
00002340: C0 C0 C0 3E 20 52 45 41  44 20 42 59 54 45 53 20  |...> READ BYTES |
00002350: 46 52 4F 4D 20 43 36 34  0D 3B 52 45 41 44 20 31  |FROM C64.;READ 1|
00002360: 53 54 20 43 48 41 52 20  4F 46 20 46 49 4C 45 4E  |ST CHAR OF FILEN|
00002370: 41 4D 45 0D 0D 20 20 20  20 20 20 20 20 20 4A 53  |AME..         JS|
00002380: 52 20 44 56 50 32 33 42  2D 44 52 56 50 52 47 2B  |R DVP23B-DRVPRG+|
00002390: 24 30 34 30 30 0D 20 20  20 20 20 20 20 20 20 53  |$0400.         S|
000023A0: 54 41 20 43 4D 50 42 31  2D 44 52 56 50 52 47 2B  |TA CMPB1-DRVPRG+|
000023B0: 24 30 34 30 30 0D 0D 3B  52 45 41 44 20 32 4E 44  |$0400..;READ 2ND|
000023C0: 20 43 48 41 52 20 4F 46  20 46 49 4C 45 4E 41 4D  | CHAR OF FILENAM|
000023D0: 45 0D 0D 20 20 20 20 20  20 20 20 20 4A 53 52 20  |E..         JSR |
000023E0: 44 56 50 32 33 42 2D 44  52 56 50 52 47 2B 24 30  |DVP23B-DRVPRG+$0|
000023F0: 34 30 30 0D 20 20 20 20  20 20 20 20 20 53 54 41  |400.         STA|
00002400: 20 43 4D 50 42 32 2D 44  52 56 50 52 47 2B 24 30  | CMPB2-DRVPRG+$0|
00002410: 34 30 30 0D 0D 3B 52 45  41 44 20 43 4F 4E 54 52  |400..;READ CONTR|
00002420: 4F 4C 20 42 59 54 45 20  28 44 49 52 20 4F 52 20  |OL BYTE (DIR OR |
00002430: 54 52 41 43 4B 2D 4C 4F  41 44 45 52 29 0D 0D 20  |TRACK-LOADER).. |
00002440: 20 20 20 20 20 20 20 20  4A 53 52 20 44 56 50 32  |        JSR DVP2|
00002450: 33 42 2D 44 52 56 50 52  47 2B 24 30 34 30 30 0D  |3B-DRVPRG+$0400.|
00002460: 20 20 20 20 20 20 20 20  20 54 41 58 0D 20 20 20  |         TAX.   |
00002470: 20 20 20 20 20 20 4A 53  52 20 44 56 50 32 37 2D  |      JSR DVP27-|
00002480: 44 52 56 50 52 47 2B 24  30 34 30 30 0D 20 20 20  |DRVPRG+$0400.   |
00002490: 20 20 20 20 20 20 54 58  41 0D 20 20 20 20 20 20  |      TXA.      |
000024A0: 20 20 20 43 4D 50 20 23  30 20 20 20 20 3B 54 52  |   CMP #0    ;TR|
000024B0: 41 43 4B 2D 4C 4F 41 44  45 52 20 3F 0D 20 20 20  |ACK-LOADER ?.   |
000024C0: 20 20 20 20 20 20 42 45  51 20 44 56 50 39 43 0D  |      BEQ DVP9C.|
000024D0: 0D 3B 53 54 41 52 54 20  54 52 41 43 4B 2C 53 45  |.;START TRACK,SE|
000024E0: 43 54 4F 52 20 4C 4F 41  44 49 4E 47 20 2E 2E 2E  |CTOR LOADING ...|
000024F0: 0D 0D 20 20 20 20 20 20  20 20 20 4C 44 41 20 43  |..         LDA C|
00002500: 4D 50 42 31 2D 44 52 56  50 52 47 2B 24 30 34 30  |MPB1-DRVPRG+$040|
00002510: 30 0D 20 20 20 20 20 20  20 20 20 53 54 41 20 36  |0.         STA 6|
00002520: 0D 20 20 20 20 20 20 20  20 20 4C 44 41 20 43 4D  |.         LDA CM|
00002530: 50 42 32 2D 44 52 56 50  52 47 2B 24 30 34 30 30  |PB2-DRVPRG+$0400|
00002540: 0D 20 20 20 20 20 20 20  20 20 53 54 41 20 37 0D  |.         STA 7.|
00002550: 20 20 20 20 20 20 20 20  20 4A 4D 50 20 44 56 50  |         JMP DVP|
00002560: 34 44 2D 44 52 56 50 52  47 2B 24 30 34 30 30 0D  |4D-DRVPRG+$0400.|
00002570: 44 56 50 39 43 0D 20 20  20 20 20 20 20 20 20 52  |DVP9C.         R|
00002580: 54 53 0D 44 56 50 39 42  0D 20 20 20 20 20 20 20  |TS.DVP9B.       |
00002590: 20 20 4C 44 59 20 23 24  30 41 0D 20 20 20 20 20  |  LDY #$0A.     |
000025A0: 20 20 20 20 53 54 59 20  24 38 42 0D 44 56 50 31  |    STY $8B.DVP1|
000025B0: 30 20 20 20 20 43 4C 49  0D 20 20 20 20 20 20 20  |0    CLI.       |
000025C0: 20 20 4C 44 41 20 23 24  38 30 0D 20 20 20 20 20  |  LDA #$80.     |
000025D0: 20 20 20 20 53 54 41 20  30 0D 44 56 50 31 31 20  |    STA 0.DVP11 |
000025E0: 20 20 20 4C 44 41 20 30  0D 20 20 20 20 20 20 20  |   LDA 0.       |
000025F0: 20 20 42 4D 49 20 44 56  50 31 31 0D 20 20 20 20  |  BMI DVP11.    |
00002600: 20 20 20 20 20 43 4D 50  20 23 31 0D 20 20 20 20  |     CMP #1.    |
00002610: 20 20 20 20 20 42 45 51  20 44 56 50 31 35 0D 20  |     BEQ DVP15. |
00002620: 20 20 20 20 20 20 20 20  44 45 43 20 24 38 42 0D  |        DEC $8B.|
00002630: 20 20 20 20 20 20 20 20  20 4C 44 59 20 24 38 42  |         LDY $8B|
00002640: 0D 20 20 20 20 20 20 20  20 20 42 4D 49 20 44 56  |.         BMI DV|
00002650: 50 31 34 0D 20 20 20 20  20 20 20 20 20 43 50 59  |P14.         CPY|
00002660: 20 23 32 0D 20 20 20 20  20 20 20 20 20 42 4E 45  | #2.         BNE|
00002670: 20 44 56 50 31 32 0D 0D  20 20 20 20 20 20 20 20  | DVP12..        |
00002680: 20 4C 44 41 20 23 24 43  30 0D 20 20 20 20 20 20  | LDA #$C0.      |
00002690: 20 20 20 53 54 41 20 30  0D 44 56 50 31 32 20 20  |   STA 0.DVP12  |
000026A0: 20 20 4C 44 41 20 24 31  36 0D 20 20 20 20 20 20  |  LDA $16.      |
000026B0: 20 20 20 53 54 41 20 24  31 32 0D 20 20 20 20 20  |   STA $12.     |
000026C0: 20 20 20 20 4C 44 41 20  24 31 37 0D 20 20 20 20  |    LDA $17.    |
000026D0: 20 20 20 20 20 53 54 41  20 24 31 33 0D 44 56 50  |     STA $13.DVP|
000026E0: 31 33 20 20 20 20 4C 44  41 20 30 0D 20 20 20 20  |13    LDA 0.    |
000026F0: 20 20 20 20 20 42 4D 49  20 44 56 50 31 33 0D 0D  |     BMI DVP13..|
00002700: 20 20 20 20 20 20 20 20  20 42 50 4C 20 44 56 50  |         BPL DVP|
00002710: 31 30 0D 44 56 50 31 34  20 20 20 20 50 4C 41 0D  |10.DVP14    PLA.|
00002720: 20 20 20 20 20 20 20 20  20 50 4C 41 0D 20 20 20  |         PLA.   |
00002730: 20 20 20 20 20 20 4A 4D  50 20 44 56 50 34 42 2D  |      JMP DVP4B-|
00002740: 44 52 56 50 52 47 2B 24  30 34 30 30 0D 0D 44 56  |DRVPRG+$0400..DV|
00002750: 50 31 35 20 20 20 20 53  45 49 0D 20 20 20 20 20  |P15    SEI.     |
00002760: 20 20 20 20 52 54 53 0D  0D 3B C0 C0 C0 3E 20 53  |    RTS..;...> S|
00002770: 45 4E 44 20 41 20 42 59  54 45 20 54 4F 20 43 36  |END A BYTE TO C6|
00002780: 34 0D 0D 53 45 4E 44 42  59 54 0D 20 20 20 20 20  |4..SENDBYT.     |
00002790: 20 20 20 20 53 54 58 20  24 31 34 0D 20 20 20 20  |    STX $14.    |
000027A0: 20 20 20 20 20 4C 44 41  20 23 34 0D 20 20 20 20  |     LDA #4.    |
000027B0: 20 20 20 20 20 4A 53 52  20 53 42 59 54 32 2D 44  |     JSR SBYT2-D|
000027C0: 52 56 50 52 47 2B 24 30  34 30 30 0D 20 20 20 20  |RVPRG+$0400.    |
000027D0: 20 20 20 20 20 4A 53 52  20 53 42 59 54 32 2D 44  |     JSR SBYT2-D|
000027E0: 52 56 50 52 47 2B 24 30  34 30 30 0D 20 20 20 20  |RVPRG+$0400.    |
000027F0: 20 20 20 20 20 4A 53 52  20 53 42 59 54 32 2D 44  |     JSR SBYT2-D|
00002800: 52 56 50 52 47 2B 24 30  34 30 30 0D 53 42 59 54  |RVPRG+$0400.SBYT|
00002810: 32 0D 20 20 20 20 20 20  20 20 20 4C 53 52 20 24  |2.         LSR $|
00002820: 31 34 0D 20 20 20 20 20  20 20 20 20 4C 44 58 20  |14.         LDX |
00002830: 23 32 0D 20 20 20 20 20  20 20 20 20 42 43 43 20  |#2.         BCC |
00002840: 44 56 50 31 36 0D 20 20  20 20 20 20 20 20 20 4C  |DVP16.         L|
00002850: 44 58 20 23 30 0D 44 56  50 31 36 20 20 20 20 42  |DX #0.DVP16    B|
00002860: 49 54 20 24 31 38 30 30  0D 20 20 20 20 20 20 20  |IT $1800.       |
00002870: 20 20 42 4E 45 20 44 56  50 31 36 0D 20 20 20 20  |  BNE DVP16.    |
00002880: 20 20 20 20 20 53 54 58  20 24 31 38 30 30 0D 20  |     STX $1800. |
00002890: 20 20 20 20 20 20 20 20  4C 53 52 20 24 31 34 0D  |        LSR $14.|
000028A0: 20 20 20 20 20 20 20 20  20 4C 44 58 20 23 32 0D  |         LDX #2.|
000028B0: 20 20 20 20 20 20 20 20  20 42 43 43 20 44 56 50  |         BCC DVP|
000028C0: 31 37 0D 20 20 20 20 20  20 20 20 20 4C 44 58 20  |17.         LDX |
000028D0: 23 30 0D 44 56 50 31 37  20 20 20 20 42 49 54 20  |#0.DVP17    BIT |
000028E0: 24 31 38 30 30 0D 20 20  20 20 20 20 20 20 20 42  |$1800.         B|
000028F0: 45 51 20 44 56 50 31 37  0D 20 20 20 20 20 20 20  |EQ DVP17.       |
00002900: 20 20 53 54 58 20 24 31  38 30 30 0D 20 20 20 20  |  STX $1800.    |
00002910: 20 20 20 20 20 52 54 53  0D 0D 3B C0 C0 C0 3E 20  |     RTS..;...> |
00002920: 52 45 41 44 20 41 20 42  59 54 45 20 46 52 4F 4D  |READ A BYTE FROM|
00002930: 20 43 36 34 0D 0D 44 56  50 32 33 42 0D 20 20 20  | C64..DVP23B.   |
00002940: 20 20 20 20 20 20 4C 44  59 20 23 34 0D 44 56 50  |      LDY #4.DVP|
00002950: 32 34 20 20 20 20 4C 44  41 20 23 34 0D 44 56 50  |24    LDA #4.DVP|
00002960: 32 35 20 20 20 20 42 49  54 20 24 31 38 30 30 0D  |25    BIT $1800.|
00002970: 20 20 20 20 20 20 20 20  20 42 45 51 20 44 56 50  |         BEQ DVP|
00002980: 32 35 0D 0D 20 20 20 20  20 20 20 20 20 4C 44 41  |25..         LDA|
00002990: 20 24 31 38 30 30 0D 20  20 20 20 20 20 20 20 20  | $1800.         |
000029A0: 4C 53 52 20 41 0D 20 20  20 20 20 20 20 20 20 52  |LSR A.         R|
000029B0: 4F 52 20 24 31 34 0D 20  20 20 20 20 20 20 20 20  |OR $14.         |
000029C0: 4C 44 41 20 23 34 0D 44  56 50 32 36 20 20 20 20  |LDA #4.DVP26    |
000029D0: 42 49 54 20 24 31 38 30  30 0D 20 20 20 20 20 20  |BIT $1800.      |
000029E0: 20 20 20 42 4E 45 20 44  56 50 32 36 0D 0D 20 20  |   BNE DVP26..  |
000029F0: 20 20 20 20 20 20 20 4C  44 41 20 24 31 38 30 30  |       LDA $1800|
00002A00: 0D 20 20 20 20 20 20 20  20 20 4C 53 52 20 41 0D  |.         LSR A.|
00002A10: 20 20 20 20 20 20 20 20  20 52 4F 52 20 24 31 34  |         ROR $14|
00002A20: 0D 20 20 20 20 20 20 20  20 20 44 45 59 0D 20 20  |.         DEY.  |
00002A30: 20 20 20 20 20 20 20 42  4E 45 20 44 56 50 32 34  |       BNE DVP24|
00002A40: 0D 0D 20 20 20 20 20 20  20 20 20 4C 44 41 20 24  |..         LDA $|
00002A50: 31 34 0D 20 20 20 20 20  20 20 20 20 52 54 53 0D  |14.         RTS.|
00002A60: 44 56 50 32 37 0D 20 20  20 20 20 20 20 20 20 4C  |DVP27.         L|
00002A70: 44 41 20 23 38 0D 20 20  20 20 20 20 20 20 20 2E  |DA #8.         .|
00002A80: 42 59 54 45 20 24 32 43  0D 44 56 50 32 38 0D 20  |BYTE $2C.DVP28. |
00002A90: 20 20 20 20 20 20 20 20  4C 44 41 20 23 30 0D 20  |        LDA #0. |
00002AA0: 20 20 20 20 20 20 20 20  53 54 41 20 24 31 38 30  |        STA $180|
00002AB0: 30 0D 20 20 20 20 20 20  20 20 20 52 54 53 0D 0D  |0.         RTS..|
00002AC0: 3B 45 4E 44 20 4F 46 20  49 52 51 2D 4C 4F 41 44  |;END OF IRQ-LOAD|
00002AD0: 45 52 0D 0D                                       |ER..            |
;.......................................
.;IRQ-LOADER VERSION V2.6 / 30.8.1995   
..;(C)OPYRIGHT BY SEBASTIAN SZCZYGIEL   
 ..;               EMDEN, GERMANY       
  ..;               (MADROM/LEPSI DEV.) 
   ..;----------------------------------
----..;DECRUSHING WHILE LOADING WITH SPE
ED/X ..;ALL CRUNCH SPEEDS (1-6) ARE ALLO
WED ! ..;ONLY TO USE WITH LEVEL-CRUSHER 
BY MMS ..;> DECRUSHER ROUTINE CODED BY M
MS/TABOO..;-----------------------------
---------..;............................
.............LOADER   = $1000.         *
= LOADER..;JSR LOADER   ;INIT..;LDA #1 -
 #6  ;SET SPEED WITH THE FILE.;JSR LOADE
R+3 ;WAS CRUNCHED (1-6)..;LDA #0 OR #1 ;
IF A.=0 THEN IN X. AND.              ;Y.
 MUST BE THE FIRST 2.              ;CHAR
S OF THE FILE NAME.              ;IF A.=
1 THEN IN X. AND.              ;Y. MUST 
BE THE START.              ;TRACK AND SE
CTOR.;LDX #"T"     ;1. CHAR OF FILENAME.
              ;OR TRACK NO..;LDY #"C"   
  ;2. CHAR OF FILENAME.              ;OR
 SECTOR NO..;JSR LOADER+6.;BCS ERROR    
;IF CARRY=.SEC THEN ERROR.;RTS..;THIS VE
RSION CAN LOAD EVERY FILE TYPE.;(PRG,SEQ
,USR,DEL,REL,...)..;THE IRQ-LOADER USE F
OLLOWING.;ZEROPAGE BYTES.....IL1      = 
$B2.IL2      = $B3.IL3      = $B4.IL4   
   = $B5.IL5      = $B6..;THE DEPACKER U
SE FOLLOWING.;ZEROPAGE BYTES.....A01    
  = $01.A90      = $90.AF9      = $02.AF
A      = $03.AFB      = $AE.AFC      = $
AF.AFD      = $04.AFE      = $05..PFB   
   = $AE.PFD      = $04..         JMP IN
IT.         JMP SETSPD.LOAD.         STX
 $BB.         STY $BC.         STA LOADM
ODE.         LDA $DD00.         AND #$0F
.         STA IL1.         LDX #0.LAD2. 
        EOR ILTAB,X.         STA IL2,X. 
        INX.         CPX #4.         BNE
 LAD2..         LDA IL3.         STA $DD
00.         JSR NWAIT.         LDA $BB. 
        JSR SENDB.         LDA $BC.     
    JSR SENDB.LOADMODE = *+1.         LD
A #0.         JSR SENDB..         JSR NW
AIT.         JSR DECRUSHER.         RTS.
SETBYTE.         LDY #0.         BIT 1  
;OR INC,DEC..         STA ($AE),Y..     
    BIT 1  ;OR INC,DEC.         INC $AE.
         BNE SETB2.         INC $AF.SETB
2.         RTS..NWAIT    LDX #$32.NW1   
   DEX.         BNE NW1.NW2      BIT $DD
00.         BVC NW2.         LDX #$05.NW
3      DEX.         BNE NW3.         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.         LDY $AA.  
       JSR BYTS3.         LDA #$20.     
    JSR $EDDD.         TAX.         DEX.
         LDY #$00.MW1      LDA ($FB),Y. 
        JSR $EDDD.         INC $FB.     
    BNE MW2.         INC $FC.MW2      DE
X.         BPL MW1.         JSR $EDFE.  
       CLC.         LDA $A9.         ADC
 #$20.         STA $A9.         LDA $AA.
         ADC #0.         STA $AA.       
  CMP #$08.         BNE INIT2.         J
SR DRVMOD.         LDA #"E".         LDX
 #<$0400.         LDY #>$0400.         J
SR BYTS3.         JSR $EDFE.WAITER.     
    LDA #$C7.         STA $DD00.        
 TAX.WAIT1.         PHA.         PLA.   
      DEX.         BNE WAIT1.         RT
S.DRVMOD.         LDA #8.         JSR $E
D0C.         LDA #$6F.         JSR $EDB9
.         LDA #"M".         LDY #"-".   
      JMP BYTS2.BYTS3.         JSR $EDDD
.         TXA.BYTS2.         JSR $EDDD. 
        TYA.         JMP $EDDD..GETBYTE.
         LDY #3..IL4B     LDX IL4.      
   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 IL4B.      
   LDA $BD.         RTS.SENDB.         S
TA $BD.         LDY #3.SENDB2.         J
SR IL2B.         DEY.         BPL SENDB2
.         RTS..IL2B     LDA IL2.        
 LSR $BD.         BCC IL2C.         ORA 
#$20.IL2C     STA $DD00.         LDA IL1
.         LSR $BD.         BCC IL2D.    
     ORA #$20.IL2D     STA $DD00.       
  RTS.ILTAB.         .BYTE $10,$30,$B0,$
50...DECRUSHER.I18      JSR NEXTBYTE2.  
       STA AFB.         JSR NEXTBYTE2.  
       STA AFC..         LDX #0.        
 STX AF9.I26      STX AFE.         LDA #
1.         JSR ICE.         BCS I5B.I2F 
     JSR ICE.         BCS I3C.         J
SR ICE.         ROL A.         ROL AFE. 
        BPL I2F.I3C      TAX.         BE
Q I53.I3F      JSR NEXTBYTE2.         LD
Y #0.         BIT 1     ;OR INC 1/DEC 1.
         STA (PFB),Y.         BIT 1     
;OR INC 1/DEC 1.         INC AFB.       
  BNE I50.         INC AFC.I50      DEX.
         BNE I3F.I53      CPX AFE.      
   DEC AFE.         BCC I3F.         STX
 AFE.I5B      LDA #1.         JSR ICE.  
       BCC I6F.I62      JSR ICE.        
 BCS I70.         JSR ICE.         ROL A
.         BCC I62.         BCS I18.I6F  
    INX.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.     
    CPY #3.         BEQ I9C.         CLC
.         ADC #1.         BCC I8..      
   INC AFE.         BCS I8..I9C      CLC
.I9D      ADC AFA.         BCC IA3.     
    INC AFE.IA3      CLC.         SBC AF
B.         EOR #$FF.         STA AFD.   
      LDA AFE.         SBC AFC.         
EOR #$FF.         STA AFE.         LDY #
$00.         BIT 1    ;OR INC 1/DEC 1.IB
6      LDA (PFD),Y.         STA (PFB),Y.
         INY.         CPY AFA.         B
NE IB6.         BIT 1    ;OR INC 1/DEC 1
.         TYA.         CLC.         ADC 
AFB.         STA AFB.         BCC ICB.  
       INC AFC.ICB      JMP I26.ICE     
 ASL AF9.         BEQ ID3.         RTS.I
D3      STA BYTA.         JSR NEXTBYTE2.
         SEC.         ROL A.         STA
 AF9.         LDA BYTA.I10DC    RTS.DRVE
RR2.         SEC.         PLA.         P
LA.         RTS.FILEEND2.         CLC.  
       PLA.         PLA.         RTS.NEX
TBYTE2.         STX BYTX.         STY BY
TY.         JSR GETBYTE.         CMP #$9
9.         BNE SETBYTE2.         JSR GET
BYTE.         CMP #$99.         BEQ SETB
YTE2.         CMP #$FF.         BEQ FILE
END2.         CMP #$FE.         BEQ DRVE
RR2.         JSR NWAIT.         LDX BYTX
.         LDY BYTY.         JMP NEXTBYTE
2.SETBYTE2.         LDX BYTX.         LD
Y BYTY.         RTS.SETSP2.         LDX 
#6.         JMP SETP0.SETSP1.         LD
X #1.         JMP SETP0.SETSPD.         
TAX.         CPX #0.         BEQ SETSP1.
         CPX #6.         BCS SETSP2.SETP
0.         LDY #$F8.SETP1.         TYA. 
        CLC.         ADC #8.         TAY
.         DEX.         BNE SETP1.       
  LDX #0.SETP2.         LDA SPEEDS,Y.   
      STA FF2,X.         INY.         IN
X.         CPX #8.         BNE SETP2.   
      RTS..BYTA     .BYTE 0.BYTX     .BY
TE 0.BYTY     .BYTE 0..FF2      .BYTE $0
1,$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.         .BYTE 
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..;
---------------------------------------.
DRVPRG.DVP0.         JSR $C100.DVP1     
LDA $1800.         AND #5.         BNE D
VP1..         JSR DVP8B-DRVPRG+$0400..;.
..> SEARCH IN DIR FOR FILENAME..        
 LDY #1.DVP2     LDX #18.         STX 6.
         STY 7.         JSR DVP9B-DRVPRG
+$0400..         LDY #2.DVP3     LDA $03
03,Y ;COMPARE 1ST CHAR.CMPB1    = *+1.  
       CMP #0.         BNE DVP4..       
  LDA $0304,Y ;COMPARE 2ND CHAR.CMPB2   
 = *+1.         CMP #0.         BNE DVP4
..;OK. FILENAME FOUND .....         JMP 
DVP4C-DRVPRG+$0400..;...> READ NEXT SECT
OR.;AND CONTINUE SEARCHING..DVP4     TYA
.         CLC.         ADC #$20.        
 TAY.         BCC DVP3..         LDY $03
01.         BPL DVP2.DVP4B.         JSR 
DVP28-DRVPRG+$0400.         LDX #0.     
    JSR SENDBYT-DRVPRG+$0400..         L
DX #0.         JSR SENDBYT-DRVPRG+$0400.
.         LDX #$99.         JSR SENDBYT-
DRVPRG+$0400..         LDX #$FE.        
 JSR SENDBYT-DRVPRG+$0400..         JMP 
$C100.DVP4C.         LDA $0301,Y.       
  STA 6.         LDA $0302,Y.         ST
A 7.DVP4D.         JSR DVP9B-DRVPRG+$040
0..         LDY #0.         LDA $0300.  
       STA 6.         BNE DVP5..        
 LDY $0301.         INY.DVP5     STY $01
18.         LDA $0301.         STA 7.   
      LDY #2.         JSR DVP28-DRVPRG+$
0400.DVP6     LDX $0300,Y.         CPX #
$99.         BNE DVP7..         JSR SEND
BYT-DRVPRG+$0400..         LDX #$99.DVP7
     JSR SENDBYT-DRVPRG+$0400..         
INY.         CPY $0118.         BNE DVP6
..         LDA $0300.         BEQ DVP8..
         LDX #$99.         JSR SENDBYT-D
RVPRG+$0400..         LDX #$C3.         
JSR SENDBYT-DRVPRG+$0400..         JSR D
VP27-DRVPRG+$0400..         JMP DVP4D-DR
VPRG+$0400..DVP8     LDX #$99.         J
SR SENDBYT-DRVPRG+$0400..         LDX #$
FF.         JSR SENDBYT-DRVPRG+$0400..  
       JMP DVP0-DRVPRG+$0400.DVP8B.     
    JSR DVP27-DRVPRG+$0400.         CLI.
         LDA #1.DVP9     BIT $1800.     
    BEQ DVP9..         SEI.         LDA 
#0.         STA $1800..;...> READ BYTES 
FROM C64.;READ 1ST CHAR OF FILENAME..   
      JSR DVP23B-DRVPRG+$0400.         S
TA CMPB1-DRVPRG+$0400..;READ 2ND CHAR OF
 FILENAME..         JSR DVP23B-DRVPRG+$0
400.         STA CMPB2-DRVPRG+$0400..;RE
AD CONTROL BYTE (DIR OR TRACK-LOADER).. 
        JSR DVP23B-DRVPRG+$0400.        
 TAX.         JSR DVP27-DRVPRG+$0400.   
      TXA.         CMP #0    ;TRACK-LOAD
ER ?.         BEQ DVP9C..;START TRACK,SE
CTOR LOADING .....         LDA CMPB1-DRV
PRG+$0400.         STA 6.         LDA CM
PB2-DRVPRG+$0400.         STA 7.        
 JMP DVP4D-DRVPRG+$0400.DVP9C.         R
TS.DVP9B.         LDY #$0A.         STY 
$8B.DVP10    CLI.         LDA #$80.     
    STA 0.DVP11    LDA 0.         BMI DV
P11.         CMP #1.         BEQ DVP15. 
        DEC $8B.         LDY $8B.       
  BMI DVP14.         CPY #2.         BNE
 DVP12..         LDA #$C0.         STA 0
.DVP12    LDA $16.         STA $12.     
    LDA $17.         STA $13.DVP13    LD
A 0.         BMI DVP13..         BPL DVP
10.DVP14    PLA.         PLA.         JM
P DVP4B-DRVPRG+$0400..DVP15    SEI.     
    RTS..;...> SEND A BYTE TO C64..SENDB
YT.         STX $14.         LDA #4.    
     JSR SBYT2-DRVPRG+$0400.         JSR
 SBYT2-DRVPRG+$0400.         JSR SBYT2-D
RVPRG+$0400.SBYT2.         LSR $14.     
    LDX #2.         BCC DVP16.         L
DX #0.DVP16    BIT $1800.         BNE DV
P16.         STX $1800.         LSR $14.
         LDX #2.         BCC DVP17.     
    LDX #0.DVP17    BIT $1800.         B
EQ DVP17.         STX $1800.         RTS
..;...> READ A BYTE FROM C64..DVP23B.   
      LDY #4.DVP24    LDA #4.DVP25    BI
T $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..;END OF IRQ-LOAD
ER..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL