DPAGE
FILE INFORMATION
FILENAME(S): DPAGE
FILE TYPE(S): SEQ
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 16:59:23
APPEARS ON: 1 disk(s)
FILE HASH
cdd65aea7e3622fe4e4e6ac8fec1460561d492de7e127beb168d221f7efab48f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 1581 1 2 | DPAGE | SEQ | High Voltage Complete C64 Collection | 6 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 50 41 47 45 20 20 | PAGE | 00000050: 20 20 20 34 0D 20 20 20 20 20 20 20 20 20 20 20 | 4. | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 30 3A 42 55 52 53 54 20 53 55 42 53 2E 53 52 | 0:BURST SUBS.SR| 000000A0: 43 2C 53 2C 52 0D 0D 45 52 52 4F 52 20 41 44 44 |C,S,R..ERROR ADD| 000000B0: 52 20 20 43 4F 44 45 20 20 20 20 20 20 20 20 20 |R CODE | 000000C0: 20 53 45 51 20 20 20 53 4F 55 52 43 45 20 53 54 | SEQ SOURCE ST| 000000D0: 41 54 45 4D 45 4E 54 0D 0D 20 31 33 35 45 20 20 |ATEMENT.. 135E | 000000E0: 20 CC D2 C5 C1 C4 20 20 20 20 20 20 20 3B CC 4F | ..... ;.O| 000000F0: 47 49 43 41 4C 20 53 45 43 54 4F 52 20 52 45 41 |GICAL SECTOR REA| 00000100: 44 20 46 52 4F 4D 20 54 48 45 20 44 45 56 49 43 |D FROM THE DEVIC| 00000110: 45 20 49 4E 44 49 43 41 54 45 44 20 42 59 20 CC |E INDICATED BY .| 00000120: C6 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00000130: 20 20 20 20 20 20 20 3B D4 48 45 20 54 52 41 43 | ;.HE TRAC| 00000140: 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 41 52 45 |K AND SECTOR ARE| 00000150: 20 49 4E 20 D4 D2 C1 C3 CB 2C 20 D3 C5 C3 D4 CF | IN ....., .....| 00000160: D2 2E 20 D4 48 45 20 4C 4F 43 41 54 49 4F 4E 0D |.. .HE LOCATION.| 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 20 20 3B D3 54 41 54 55 53 20 42 59 54 45 | ;.TATUS BYTE| 00000190: 20 46 52 4F 4D 20 44 52 49 56 45 20 49 53 20 52 | FROM DRIVE IS R| 000001A0: 45 54 55 52 4E 45 44 20 49 4E 20 D3 D4 C1 D4 D5 |ETURNED IN .....| 000001B0: D3 2E 0D 20 20 20 20 20 0D 20 31 33 35 45 20 41 |... . 135E A| 000001C0: 39 20 38 30 20 20 20 20 20 20 4C 44 41 20 20 23 |9 80 LDA #| 000001D0: 4C 42 55 52 53 54 52 44 20 20 20 3B 4C 4F 47 49 |LBURSTRD ;LOGI| 000001E0: 43 41 4C 20 42 55 52 53 54 20 52 45 41 44 20 43 |CAL BURST READ C| 000001F0: 4F 4D 4D 41 4E 44 0D 20 31 33 36 30 20 38 44 20 |OMMAND. 1360 8D | 00000200: 31 33 31 20 20 20 20 20 53 54 41 20 20 43 4D 44 |131 STA CMD| 00000210: 4C 49 4E 45 2B 32 20 20 20 0D 20 31 33 36 33 20 |LINE+2 . 1363 | 00000220: 41 39 20 30 31 20 20 20 20 20 20 4C 44 41 20 23 |A9 01 LDA #| 00000230: 24 30 31 0D 20 31 33 36 35 20 38 44 20 31 33 30 |$01. 1365 8D 130| 00000240: 20 20 20 20 20 53 54 41 20 D3 C5 C3 D3 C9 DA C5 | STA .......| 00000250: 20 20 20 20 20 20 3B CC 4F 47 49 43 41 4C 20 53 | ;.OGICAL S| 00000260: 45 43 54 4F 52 20 53 49 5A 45 20 49 53 20 41 4C |ECTOR SIZE IS AL| 00000270: 57 41 59 53 20 32 35 36 20 42 59 54 45 53 2E 0D |WAYS 256 BYTES..| 00000280: 20 31 33 36 38 20 34 43 20 31 33 37 20 20 20 20 | 1368 4C 137 | 00000290: 20 4A 4D 50 20 D2 C5 C1 C4 0D 20 20 20 20 20 20 | JMP ..... | 000002A0: 20 20 20 20 20 20 0D 20 31 33 36 42 20 20 20 D0 | . 136B .| 000002B0: D2 C5 C1 C4 20 20 20 20 20 20 20 3B D0 48 59 53 |.... ;.HYS| 000002C0: 49 43 41 4C 20 53 45 43 54 4F 52 20 52 45 41 44 |ICAL SECTOR READ| 000002D0: 20 46 52 4F 4D 20 44 45 56 49 43 45 20 49 4E 44 | FROM DEVICE IND| 000002E0: 49 43 41 54 45 44 20 42 59 20 CC C6 2E 0D 20 20 |ICATED BY .... | 000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000300: 20 20 3B D4 48 45 20 54 52 41 43 4B 20 41 4E 44 | ;.HE TRACK AND| 00000310: 20 53 45 43 54 4F 52 20 41 52 45 20 49 4E 20 D4 | SECTOR ARE IN .| 00000320: D2 C1 C3 CB 2C 20 D3 C5 C3 D4 CF D2 2E 20 D4 48 |...., ....... .H| 00000330: 45 20 4C 4F 43 41 54 49 4F 4E 0D 20 20 20 20 20 |E LOCATION. | 00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000350: 4F 46 20 53 54 41 52 54 20 4F 46 20 54 48 45 20 |OF START OF THE | 00000360: C3 31 32 38 20 42 55 46 46 45 52 20 54 4F 20 50 |.128 BUFFER TO P| 00000370: 55 54 20 54 48 45 20 52 45 41 44 20 44 41 54 41 |UT THE READ DATA| 00000380: 20 49 4E 20 C2 D5 C6 CC CF C3 2E 0D 20 20 20 20 | IN ........ | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 3B D4 48 45 20 50 48 59 53 49 43 41 4C 20 53 45 |;.HE PHYSICAL SE| 000003B0: 43 54 4F 52 20 53 49 5A 45 20 49 4E 20 D3 C5 C3 |CTOR SIZE IN ...| 000003C0: D3 C9 DA C5 20 28 31 3D 32 35 36 2C 32 3D 35 31 |.... (1=256,2=51| 000003D0: 32 2C 34 3D 31 30 32 34 29 2E 0D 20 20 20 20 20 |2,4=1024).. | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 000003F0: CE 55 4D 42 45 52 20 4F 46 20 53 45 43 54 4F 52 |.UMBER OF SECTOR| 00000400: 53 20 49 4E 20 CE D5 CD D3 C5 C3 2E 20 0D 20 20 |S IN ....... . | 00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000420: 20 20 3B D0 48 59 53 49 43 41 4C 20 53 49 44 45 | ;.HYSICAL SIDE| 00000430: 20 4F 46 20 54 48 45 20 44 49 53 4B 20 49 4E 20 | OF THE DISK IN | 00000440: D3 C9 C4 C5 20 28 30 20 4F 52 20 31 29 2E 0D 20 |.... (0 OR 1).. | 00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000460: 20 20 20 3B D3 54 41 54 55 53 20 42 59 54 45 20 | ;.TATUS BYTE | 00000470: 46 52 4F 4D 20 44 52 49 56 45 20 49 53 20 52 45 |FROM DRIVE IS RE| 00000480: 54 55 52 4E 45 44 20 49 4E 20 D3 D4 C1 D4 D5 D3 |TURNED IN ......| 00000490: 2E 0D 20 20 20 20 20 0D 20 31 33 36 42 20 41 39 |.. . 136B A9| 000004A0: 20 30 30 20 20 20 20 20 20 4C 44 41 20 23 D0 C2 | 00 LDA #..| 000004B0: D5 D2 D3 D4 D2 C4 20 20 20 20 3B D0 48 59 53 49 |...... ;.HYSI| 000004C0: 43 41 4C 20 42 55 52 53 54 20 52 45 41 44 20 43 |CAL BURST READ C| 000004D0: 4F 4D 4D 41 4E 44 2E 0D 20 31 33 36 44 20 41 45 |OMMAND.. 136D AE| 000004E0: 20 31 33 30 20 20 20 20 20 4C 44 58 20 D3 C9 C4 | 130 LDX ...| 000004F0: C5 20 20 20 20 20 20 20 20 20 3B 20 C3 48 45 43 |. ; .HEC| 00000500: 4B 20 57 48 49 43 48 20 53 49 44 45 20 54 4F 20 |K WHICH SIDE TO | 00000510: 52 45 41 44 20 46 52 4F 4D 2E 0D 20 31 33 37 30 |READ FROM.. 1370| 00000520: 20 46 30 20 30 32 20 20 20 20 20 20 42 45 51 20 | F0 02 BEQ | 00000530: 31 24 0D 20 31 33 37 32 20 30 39 20 31 30 20 20 |1$. 1372 09 10 | 00000540: 20 20 20 20 4F 52 41 20 23 24 31 30 20 20 20 20 | ORA #$10 | 00000550: 20 20 20 20 20 3B 20 C9 46 20 53 49 44 45 20 31 | ; .F SIDE 1| 00000560: 2C 20 54 48 45 4E 20 53 45 54 20 42 49 54 20 49 |, THEN SET BIT I| 00000570: 4E 20 54 48 45 20 43 4F 4D 4D 41 4E 44 20 42 59 |N THE COMMAND BY| 00000580: 54 45 2E 0D 20 31 33 37 34 20 38 44 20 31 33 31 |TE.. 1374 8D 131| 00000590: 20 20 20 31 24 20 20 20 20 20 20 53 54 41 20 20 | 1$ STA | 000005A0: 43 4D 44 4C 49 4E 45 2B 32 0D 20 20 20 0D 20 20 |CMDLINE+2. . | 000005B0: 20 0D 20 31 33 37 37 20 20 20 D2 C5 C1 C4 0D 20 | . 1377 ..... | 000005C0: 20 20 20 20 20 20 20 20 20 20 20 0D 20 31 33 37 | . 137| 000005D0: 37 20 41 44 20 46 46 30 20 20 20 20 20 4C 44 41 |7 AD FF0 LDA| 000005E0: 20 24 46 46 30 30 20 20 20 20 20 20 20 20 3B D3 | $FF00 ;.| 000005F0: 41 56 45 20 4F 4C 44 20 CD CD D5 20 53 45 54 55 |AVE OLD ... SETU| 00000600: 50 2E 0D 20 31 33 37 41 20 34 38 20 20 20 20 20 |P.. 137A 48 | 00000610: 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 | PHA. | 00000620: 20 20 20 20 0D 20 31 33 37 42 20 41 39 20 30 45 | . 137B A9 0E| 00000630: 20 20 20 20 20 20 4C 44 41 20 23 24 30 45 20 20 | LDA #$0E | 00000640: 20 20 20 20 20 20 20 3B D3 45 54 20 CD CD D5 20 | ;.ET ... | 00000650: 46 4F 52 20 D2 C1 CD 30 2C CB C5 D2 CE C5 CC 2C |FOR ...0,......,| 00000660: C9 2F CF 2E 0D 20 31 33 37 44 20 38 44 20 46 46 |./... 137D 8D FF| 00000670: 30 20 20 20 20 20 53 54 41 20 24 46 46 30 30 0D |0 STA $FF00.| 00000680: 20 20 20 20 20 20 20 20 20 20 20 20 0D 20 31 33 | . 13| 00000690: 38 30 20 32 30 20 31 36 37 20 20 20 20 20 4A 53 |80 20 167 JS| 000006A0: 52 20 D3 C5 D4 D5 30 20 20 20 20 20 20 20 20 3B |R ....0 ;| 000006B0: D0 55 54 20 22 D5 30 22 20 41 54 20 53 54 41 52 |.UT ".0" AT STAR| 000006C0: 54 20 4F 46 20 43 4F 4D 4D 41 4E 44 20 53 54 52 |T OF COMMAND STR| 000006D0: 49 4E 47 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |ING.. | 000006E0: 20 0D 20 31 33 38 33 20 41 44 20 31 33 30 20 20 | . 1383 AD 130 | 000006F0: 20 20 20 4C 44 41 20 D4 D2 C1 C3 CB 20 20 20 20 | LDA ..... | 00000700: 20 20 20 0D 20 31 33 38 36 20 38 44 20 31 33 31 | . 1386 8D 131| 00000710: 20 20 20 20 20 53 54 41 20 C3 CD C4 CC C9 CE C5 | STA .......| 00000720: 2B 33 20 20 20 20 3B 20 54 52 41 43 4B 0D 20 31 |+3 ; TRACK. 1| 00000730: 33 38 39 20 41 44 20 31 33 30 20 20 20 20 20 4C |389 AD 130 L| 00000740: 44 41 20 D3 C5 C3 D4 CF D2 0D 20 31 33 38 43 20 |DA ....... 138C | 00000750: 38 44 20 31 33 31 20 20 20 20 20 53 54 41 20 C3 |8D 131 STA .| 00000760: CD C4 CC C9 CE C5 2B 34 20 20 20 20 3B 20 53 45 |......+4 ; SE| 00000770: 43 54 4F 52 0D 20 31 33 38 46 20 41 44 20 31 33 |CTOR. 138F AD 13| 00000780: 30 20 20 20 20 20 4C 44 41 20 CE D5 CD D3 C5 C3 |0 LDA ......| 00000790: 0D 20 31 33 39 32 20 38 44 20 31 33 31 20 20 20 |. 1392 8D 131 | 000007A0: 20 20 53 54 41 20 C3 CD C4 CC C9 CE C5 2B 35 20 | STA .......+5 | 000007B0: 20 20 20 3B 20 CE 55 4D 42 45 52 20 4F 46 20 53 | ; .UMBER OF S| 000007C0: 45 43 54 4F 52 53 20 54 4F 20 52 45 41 44 2E 0D |ECTORS TO READ..| 000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 0D 20 31 33 | . 13| 000007E0: 39 35 20 41 39 20 30 36 20 20 20 20 20 20 4C 44 |95 A9 06 LD| 000007F0: 41 20 23 24 30 36 20 20 20 20 20 20 20 20 20 3B |A #$06 ;| 00000800: 20 CC 45 4E 47 54 48 20 4F 46 20 43 4F 4D 4D 41 | .ENGTH OF COMMA| 00000810: 4E 44 20 53 54 52 49 4E 47 2E 0D 20 31 33 39 37 |ND STRING.. 1397| 00000820: 20 38 44 20 31 33 31 20 20 20 20 20 53 54 41 20 | 8D 131 STA | 00000830: C3 CD C4 CC C5 CE 0D 20 31 33 39 41 20 32 30 20 |....... 139A 20 | 00000840: 31 36 36 20 20 20 20 20 4A 53 52 20 20 53 45 4E |166 JSR SEN| 00000850: 44 43 4D 44 20 20 20 20 20 3B 20 53 45 4E 44 20 |DCMD ; SEND | 00000860: 43 4D 44 20 53 54 52 49 4E 47 0D 20 20 20 20 20 |CMD STRING. | 00000870: 20 20 20 20 20 20 20 0D 20 31 33 39 44 20 41 44 | . 139D AD| 00000880: 20 31 33 30 20 20 20 20 20 4C 44 41 20 20 C2 D5 | 130 LDA ..| 00000890: C6 CC CF C3 20 20 20 20 20 20 3B 20 D3 45 54 20 |.... ; .ET | 000008A0: 55 50 20 5A 45 52 4F 20 50 41 47 45 20 49 4E 44 |UP ZERO PAGE IND| 000008B0: 49 52 45 43 54 20 50 4F 49 4E 54 45 52 2E 0D 20 |IRECT POINTER.. | 000008C0: 31 33 41 30 20 38 35 20 46 41 20 20 20 20 20 20 |13A0 85 FA | 000008D0: 53 54 41 20 20 C2 D5 C6 C6 C5 D2 0D 20 31 33 41 |STA ....... 13A| 000008E0: 32 20 41 44 20 31 33 30 20 20 20 20 20 4C 44 41 |2 AD 130 LDA| 000008F0: 20 20 C2 D5 C6 CC CF C3 2B 31 0D 20 31 33 41 35 | ......+1. 13A5| 00000900: 20 38 35 20 46 42 20 20 20 20 20 20 53 54 41 20 | 85 FB STA | 00000910: 20 C2 D5 C6 C6 C5 D2 2B 31 0D 20 20 20 20 20 20 | ......+1. | 00000920: 20 20 20 20 20 20 0D 20 31 33 41 37 20 41 30 20 | . 13A7 A0 | 00000930: 30 30 20 20 20 20 20 20 4C 44 59 20 20 23 30 20 |00 LDY #0 | 00000940: 20 20 20 20 20 20 20 20 20 3B 20 43 4C 45 41 52 | ; CLEAR| 00000950: 20 54 48 45 20 27 45 4D 50 54 59 20 53 45 43 54 | THE 'EMPTY SECT| 00000960: 4F 52 28 53 29 27 20 46 4C 41 47 2E 0D 20 31 33 |OR(S)' FLAG.. 13| 00000970: 41 39 20 38 43 20 31 33 30 20 20 20 20 20 53 54 |A9 8C 130 ST| 00000980: 59 20 20 46 4C 41 47 0D 20 20 20 20 20 20 20 20 |Y FLAG. | 00000990: 20 20 20 20 0D 20 31 33 41 43 20 37 38 20 20 20 | . 13AC 78 | 000009A0: 20 20 20 20 20 20 53 45 49 20 20 20 20 20 20 20 | SEI | 000009B0: 20 20 20 20 20 20 20 3B 20 CE 4F 20 49 52 51 27 | ; .O IRQ'| 000009C0: 53 20 41 4C 4C 4F 57 45 44 20 44 55 52 49 4E 47 |S ALLOWED DURING| 000009D0: 20 48 41 4E 44 53 48 41 4B 45 2E 0D 20 20 20 20 | HANDSHAKE.. | 000009E0: 20 20 20 20 20 20 20 20 0D 20 31 33 41 44 20 32 | . 13AD 2| 000009F0: 43 20 44 43 30 20 20 20 20 20 42 49 54 20 20 44 |C DC0 BIT D| 00000A00: 31 49 43 52 20 20 20 20 20 20 20 3B 20 43 4C 45 |1ICR ; CLE| 00000A10: 41 52 20 50 45 4E 44 49 4E 47 0D 0C 0D |AR PENDING... |
....
PAGE
4.
0:BURST SUBS.SR
C,S,R..ERROR ADDR CODE SEQ S
OURCE STATEMENT.. 135E LREAD ;LO
GICAL SECTOR READ FROM THE DEVICE INDICA
TED BY LF.. ;THE TRAC
K AND SECTOR ARE IN TRACK, SECTOR. THE L
OCATION. ;STATUS BYTE
FROM DRIVE IS RETURNED IN STATUS..
. 135E A9 80 LDA #LBURSTRD ;LOGI
CAL BURST READ COMMAND. 1360 8D 131
STA CMDLINE+2 . 1363 A9 01 LDA #
$01. 1365 8D 130 STA SECSIZE ;L
OGICAL SECTOR SIZE IS ALWAYS 256 BYTES..
1368 4C 137 JMP READ. .
136B PREAD ;PHYSICAL SECTOR READ
FROM DEVICE INDICATED BY LF..
;THE TRACK AND SECTOR ARE IN T
RACK, SECTOR. THE LOCATION.
;OF START OF THE C128 BUFFER TO P
UT THE READ DATA IN BUFLOC..
;THE PHYSICAL SECTOR SIZE IN SEC
SIZE (1=256,2=512,4=1024)..
;NUMBER OF SECTORS IN NUMSEC. .
;PHYSICAL SIDE OF THE
DISK IN SIDE (0 OR 1)..
;STATUS BYTE FROM DRIVE IS RETURNED I
N STATUS.. . 136B A9 00 LDA #PB
URSTRD ;PHYSICAL BURST READ COMMAND..
136D AE 130 LDX SIDE ; CHEC
K WHICH SIDE TO READ FROM.. 1370 F0 02
BEQ 1$. 1372 09 10 ORA #$10
; IF SIDE 1, THEN SET BIT IN THE CO
MMAND BYTE.. 1374 8D 131 1$ STA
CMDLINE+2. . . 1377 READ.
. 1377 AD FF0 LDA $FF00 ;S
AVE OLD MMU SETUP.. 137A 48 PHA.
. 137B A9 0E LDA #$0E
;SET MMU FOR RAM0,KERNEL,I/O.. 13
7D 8D FF0 STA $FF00. . 13
80 20 167 JSR SETU0 ;PUT "U0"
AT START OF COMMAND STRING..
. 1383 AD 130 LDA TRACK . 138
6 8D 131 STA CMDLINE+3 ; TRACK. 1
389 AD 130 LDA SECTOR. 138C 8D 131
STA CMDLINE+4 ; SECTOR. 138F AD 13
0 LDA NUMSEC. 1392 8D 131 STA CM
DLINE+5 ; NUMBER OF SECTORS TO READ..
. 1395 A9 06 LDA #$06
; LENGTH OF COMMAND STRING.. 1397
8D 131 STA CMDLEN. 139A 20 166
JSR SENDCMD ; SEND CMD STRING.
. 139D AD 130 LDA BUFLOC
; SET UP ZERO PAGE INDIRECT POINTER..
13A0 85 FA STA BUFFER. 13A2 AD 130
LDA BUFLOC+1. 13A5 85 FB STA
BUFFER+1. . 13A7 A0 00
LDY #0 ; CLEAR THE 'EMPTY SECT
OR(S)' FLAG.. 13A9 8C 130 STY FLAG.
. 13AC 78 SEI
; NO IRQ'S ALLOWED DURING HANDSHA
KE.. . 13AD 2C DC0 BIT D
1ICR ; CLEAR PENDING...
> CLICK IMAGE PREVIEW FOR FULL MODAL