APAGE
FILE INFORMATION
FILENAME(S): APAGE
FILE TYPE(S): SEQ
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 16:59:23
APPEARS ON: 1 disk(s)
FILE HASH
17e24199081336d7e0c278c90202b7e1fc3d63bc07b91cfa47e7a7327d31bcd7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 1581 1 2 | APAGE | SEQ | High Voltage Complete C64 Collection | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 0D 20 20 20 0D 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 20 20 20 20 50 41 | PA| 00000050: 47 45 20 20 20 20 20 31 0D 20 20 20 20 20 20 20 |GE 1. | 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 20 20 20 20 30 3A 42 55 52 53 54 20 53 55 42 | 0:BURST SUB| 000000A0: 53 2E 53 52 43 2C 53 2C 52 0D 20 20 20 0D 20 20 |S.SRC,S,R. . | 000000B0: 20 45 52 52 4F 52 20 41 44 44 52 20 20 43 4F 44 | ERROR ADDR COD| 000000C0: 45 20 20 20 20 20 20 20 20 20 20 53 45 51 20 20 |E SEQ | 000000D0: 20 53 4F 55 52 43 45 20 53 54 41 54 45 4D 45 4E | SOURCE STATEMEN| 000000E0: 54 0D 20 20 20 0D 20 20 20 20 20 20 20 3B 2A 2A |T. . ;**| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000130: 2A 2A 2A 2A 2A 2A 0D 20 20 20 20 20 20 20 3B 2A |******. ;*| 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 20 20 20 20 2A 0D 20 20 20 20 20 20 20 3B | *. ;| 00000190: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D | -----| 000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 |------------- | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 20 20 20 20 20 20 2A 0D 20 20 20 20 20 20 20 | *. | 000001E0: 3B 2A 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;* ------------| 000001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 C2 D5 D2 D3 |---------- ....| 00000200: D4 20 20 D3 D5 C2 D2 CF D5 D4 C9 CE C5 D3 20 20 |. ........... | 00000210: 2D 2D 20 28 52 45 56 20 32 29 20 2D 2D 2D 2D 2D |-- (REV 2) -----| 00000220: 2D 2D 2D 2D 2D 2D 20 20 2A 0D 20 20 20 20 20 20 |------ *. | 00000230: 20 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;* | 00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D | ---| 00000250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 |--------------- | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000270: 20 20 20 20 20 20 20 20 20 2A 0D 20 20 20 20 20 | *. | 00000280: 20 20 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 | ;* | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002C0: 20 20 20 20 20 20 20 20 20 20 2A 0D 20 20 20 20 | *. | 000002D0: 20 20 20 3B 2A 20 D4 48 45 53 45 20 41 53 53 45 | ;* .HESE ASSE| 000002E0: 4D 42 4C 59 20 4C 41 4E 47 55 41 47 45 20 52 4F |MBLY LANGUAGE RO| 000002F0: 55 54 49 4E 45 53 20 41 52 45 20 50 52 4F 56 49 |UTINES ARE PROVI| 00000300: 44 45 44 20 46 4F 52 20 59 4F 55 52 20 43 4F 4E |DED FOR YOUR CON| 00000310: 56 45 4E 49 45 4E 43 45 2E 20 20 2A 0D 20 20 20 |VENIENCE. *. | 00000320: 20 20 20 20 3B 2A 20 C6 4F 52 20 4D 4F 53 54 20 | ;* .OR MOST | 00000330: 55 53 45 52 53 2C 20 54 48 45 20 C2 D5 D2 D3 D4 |USERS, THE .....| 00000340: 20 43 4F 4D 4D 41 4E 44 53 20 41 52 45 20 56 45 | COMMANDS ARE VE| 00000350: 52 59 20 43 52 59 50 54 49 43 2C 20 52 45 51 55 |RY CRYPTIC, REQU| 00000360: 49 52 49 4E 47 20 59 4F 55 20 20 20 2A 0D 20 20 |IRING YOU *. | 00000370: 20 20 20 20 20 3B 2A 20 54 4F 20 57 52 49 54 45 | ;* TO WRITE| 00000380: 20 59 4F 55 52 20 4F 57 4E 20 41 53 53 45 4D 42 | YOUR OWN ASSEMB| 00000390: 4C 59 20 4C 41 4E 47 55 41 47 45 20 50 52 4F 47 |LY LANGUAGE PROG| 000003A0: 52 41 4D 53 20 54 4F 20 4D 41 4B 45 20 55 53 45 |RAMS TO MAKE USE| 000003B0: 20 4F 46 20 54 48 45 4D 2E 20 20 20 20 2A 0D 20 | OF THEM. *. | 000003C0: 20 20 20 20 20 20 3B 2A 20 D4 48 45 20 53 45 54 | ;* .HE SET| 000003D0: 20 4F 46 20 41 53 53 45 4D 42 4C 59 20 4C 41 4E | OF ASSEMBLY LAN| 000003E0: 47 55 41 47 45 20 53 55 42 52 4F 55 54 49 4E 45 |GUAGE SUBROUTINE| 000003F0: 53 20 50 52 4F 56 49 44 45 44 20 49 4E 20 54 48 |S PROVIDED IN TH| 00000400: 49 53 20 4C 49 53 54 49 4E 47 20 20 20 20 2A 0D |IS LISTING *.| 00000410: 20 20 20 20 20 20 20 3B 2A 20 41 52 45 20 44 45 | ;* ARE DE| 00000420: 53 49 47 4E 45 44 20 54 4F 20 41 4C 4C 4F 57 20 |SIGNED TO ALLOW | 00000430: 41 4E 59 4F 4E 45 20 54 4F 20 4D 41 4B 45 20 55 |ANYONE TO MAKE U| 00000440: 53 45 20 4F 46 20 54 48 45 20 C2 D5 D2 D3 D4 20 |SE OF THE ..... | 00000450: 52 4F 55 54 49 4E 45 53 20 56 45 52 59 20 20 2A |ROUTINES VERY *| 00000460: 0D 20 20 20 20 20 20 20 3B 2A 20 45 41 53 49 4C |. ;* EASIL| 00000470: 59 2E 20 20 C1 20 C2 C1 D3 C9 C3 20 50 52 4F 47 |Y. . ..... PROG| 00000480: 52 41 4D 20 4E 45 45 44 53 20 53 49 4D 50 4C 59 |RAM NEEDS SIMPLY| 00000490: 20 54 4F 20 D0 CF CB C5 20 54 48 45 20 41 50 50 | TO .... THE APP| 000004A0: 52 4F 50 52 49 41 54 45 20 56 41 4C 55 45 53 20 |ROPRIATE VALUES | 000004B0: 2A 0D 20 20 20 20 20 20 20 3B 2A 20 49 4E 54 4F |*. ;* INTO| 000004C0: 20 54 48 45 20 56 41 52 49 41 42 4C 45 20 4C 4F | THE VARIABLE LO| 000004D0: 43 41 54 49 4F 4E 53 20 53 48 4F 57 4E 20 42 45 |CATIONS SHOWN BE| 000004E0: 4C 4F 57 2C 20 41 4E 44 20 54 48 45 4E 20 D3 D9 |LOW, AND THEN ..| 000004F0: D3 20 54 4F 20 54 48 45 20 44 45 53 49 52 45 44 |. TO THE DESIRED| 00000500: 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 52 4F 55 | *. ;* ROU| 00000510: 54 49 4E 45 2E 20 20 C1 4C 4C 20 4F 46 20 54 48 |TINE. .LL OF TH| 00000520: 45 20 C2 D5 D2 D3 D4 20 50 52 4F 54 4F 43 4F 4C |E ..... PROTOCOL| 00000530: 20 41 4E 44 20 48 41 4E 44 53 48 41 4B 49 4E 47 | AND HANDSHAKING| 00000540: 20 49 53 20 44 4F 4E 45 20 46 4F 52 20 59 4F 55 | IS DONE FOR YOU| 00000550: 2E 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 D4 48 |. *. ;* .H| 00000560: 45 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 4D 20 |E ..... PROGRAM | 00000570: 43 41 4E 20 54 48 45 4E 20 D0 C5 C5 CB 20 41 4E |CAN THEN .... AN| 00000580: 59 20 56 41 4C 55 45 53 20 52 45 54 55 52 4E 45 |Y VALUES RETURNE| 00000590: 44 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |D. | 000005A0: 20 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 20 | *. ;* | 000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005F0: 20 20 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 | *. ;* | 00000600: D4 48 45 20 52 4F 55 54 49 4E 45 53 20 49 4E 20 |.HE ROUTINES IN | 00000610: 54 48 49 53 20 4C 49 53 54 49 4E 47 20 54 48 41 |THIS LISTING THA| 00000620: 54 20 52 45 51 55 49 52 45 20 44 41 54 41 20 42 |T REQUIRE DATA B| 00000630: 55 46 46 45 52 20 53 54 4F 52 41 47 45 20 41 52 |UFFER STORAGE AR| 00000640: 45 41 53 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A |EAS *. ;*| 00000650: 20 41 52 45 20 50 41 53 53 45 44 20 54 48 45 20 | ARE PASSED THE | 00000660: 4C 4F 43 41 54 49 4F 4E 20 4F 46 20 54 48 45 20 |LOCATION OF THE | 00000670: 42 55 46 46 45 52 20 49 4E 20 C2 D5 C6 CC CF C3 |BUFFER IN ......| 00000680: 2E 20 20 C2 D5 C6 CC CF C3 20 50 4F 49 4E 54 53 |. ...... POINTS| 00000690: 20 54 4F 20 20 20 2A 0D 20 20 20 20 20 20 20 3B | TO *. ;| 000006A0: 2A 20 D2 C1 CD 20 4C 4F 43 41 54 49 4F 4E 20 49 |* ... LOCATION I| 000006B0: 4E 20 D2 C1 CD 20 42 41 4E 4B 20 30 20 4F 46 20 |N ... BANK 0 OF | 000006C0: 54 48 45 20 53 54 41 52 54 20 4F 46 20 54 48 45 |THE START OF THE| 000006D0: 20 42 55 46 46 45 52 2E 20 20 D3 49 4E 43 45 20 | BUFFER. .INCE | 000006E0: 54 48 45 20 20 20 20 2A 0D 20 20 20 20 20 20 20 |THE *. | 000006F0: 3B 2A 20 CB C5 D2 CE C5 CC 20 41 4E 44 20 C9 2F |;* ...... AND ./| 00000700: CF 20 41 52 45 20 4E 45 45 44 45 44 2C 20 D2 C1 |. ARE NEEDED, ..| 00000710: CD 20 45 58 49 53 54 53 20 4F 4E 4C 59 20 55 50 |. EXISTS ONLY UP| 00000720: 20 54 4F 20 24 C3 30 30 30 2E 20 20 D3 4F 2C 20 | TO $.000. .O, | 00000730: 59 4F 55 20 41 52 45 20 2A 0D 20 20 20 20 20 20 |YOU ARE *. | 00000740: 20 3B 2A 20 46 52 45 45 20 54 4F 20 55 53 45 20 | ;* FREE TO USE | 00000750: 41 4E 59 20 D2 C1 CD 20 50 41 53 54 20 59 4F 55 |ANY ... PAST YOU| 00000760: 52 20 C2 C1 D3 C9 C3 20 54 45 58 54 20 50 52 4F |R ..... TEXT PRO| 00000770: 47 52 41 4D 2C 20 55 50 20 54 4F 20 24 C3 30 30 |GRAM, UP TO $.00| 00000780: 30 20 28 C2 C1 D3 C9 C3 20 2A 0D 20 20 20 20 20 |0 (..... *. | 00000790: 20 20 3B 2A 20 54 45 58 54 20 4E 4F 52 4D 41 4C | ;* TEXT NORMAL| 000007A0: 4C 59 20 53 54 41 52 54 53 20 41 54 20 24 31 C3 |LY STARTS AT $1.| 000007B0: 30 30 2E 20 20 C9 46 20 42 49 54 2D 4D 41 50 20 |00. .F BIT-MAP | 000007C0: 47 52 41 50 48 49 43 53 20 41 52 45 20 45 4E 41 |GRAPHICS ARE ENA| 000007D0: 42 4C 45 44 2C 20 20 20 20 20 2A 0D 20 20 20 20 |BLED, *. | 000007E0: 20 20 20 3B 2A 20 54 48 45 4E 20 C2 C1 D3 C9 C3 | ;* THEN .....| 000007F0: 20 54 45 58 54 20 53 54 41 52 54 53 20 41 54 20 | TEXT STARTS AT | 00000800: 24 34 30 30 30 29 2E 20 20 C9 46 20 59 4F 55 20 |$4000). .F YOU | 00000810: 57 41 4E 54 20 54 4F 20 D0 C5 C5 CB 20 41 4E 44 |WANT TO .... AND| 00000820: 20 D0 CF CB C5 20 54 48 49 53 20 2A 0D 20 20 20 | .... THIS *. | 00000830: 20 20 20 20 3B 2A 20 4D 45 4D 4F 52 59 20 46 52 | ;* MEMORY FR| 00000840: 4F 4D 20 C2 C1 D3 C9 C3 2C 20 42 45 20 53 55 52 |OM ....., BE SUR| 00000850: 45 20 54 4F 20 45 58 45 43 55 54 45 20 54 48 45 |E TO EXECUTE THE| 00000860: 20 27 C2 C1 CE CB 20 30 27 20 43 4F 4D 4D 41 4E | '.... 0' COMMAN| 00000870: 44 2E 20 20 D4 48 49 53 20 20 20 20 2A 0D 20 20 |D. .HIS *. | 00000880: 20 20 20 20 20 3B 2A 20 54 45 4C 4C 53 20 C2 C1 | ;* TELLS ..| 00000890: D3 C9 C3 20 54 4F 20 D0 C5 C5 CB 20 41 4E 44 20 |... TO .... AND | 000008A0: D0 CF CB C5 20 54 4F 20 54 48 45 20 D2 C1 CD 20 |.... TO THE ... | 000008B0: 55 4E 44 45 52 20 54 48 45 20 C2 C1 D3 C9 C3 20 |UNDER THE ..... | 000008C0: D2 CF CD 53 2E 20 20 20 20 20 20 20 20 2A 0D 20 |...S. *. | 000008D0: 20 20 20 20 20 20 3B 2A 20 C9 46 20 59 4F 55 20 | ;* .F YOU | 000008E0: 57 41 4E 54 20 54 4F 20 4D 41 4B 45 20 59 4F 55 |WANT TO MAKE YOU| 000008F0: 52 20 50 52 4F 47 52 41 4D 20 52 45 41 4C 20 49 |R PROGRAM REAL I| 00000900: 4E 54 45 4C 4C 49 47 49 45 4E 54 2C 20 54 48 45 |NTELLIGIENT, THE| 00000910: 52 45 20 41 52 45 20 20 20 20 20 20 20 20 2A 0D |RE ARE *.| 00000920: 20 20 20 20 20 20 20 3B 2A 20 50 4F 49 4E 54 45 | ;* POINTE| 00000930: 52 53 20 54 4F 20 54 48 45 20 42 45 47 49 4E 4E |RS TO THE BEGINN| 00000940: 49 4E 47 20 41 4E 44 20 45 4E 44 20 4F 46 20 C2 |ING AND END OF .| 00000950: C1 D3 C9 C3 20 54 45 58 54 20 28 24 30 30 32 C4 |.... TEXT ($002.| 00000960: 20 41 4E 44 20 24 31 32 31 30 2C 20 20 20 20 2A | AND $1210, *| 00000970: 0D 20 20 20 20 20 20 20 3B 2A 20 52 45 53 50 45 |. ;* RESPE| 00000980: 43 54 49 56 45 4C 59 29 2E 20 20 C1 53 20 41 20 |CTIVELY). .S A | 00000990: 47 45 4E 45 52 41 4C 20 52 55 4C 45 2C 20 57 4F |GENERAL RULE, WO| 000009A0: 52 4B 20 59 4F 55 52 20 57 41 59 20 42 41 43 4B |RK YOUR WAY BACK| 000009B0: 20 46 52 4F 4D 20 24 C3 30 30 30 2C 20 20 20 20 | FROM $.000, | 000009C0: 2A 0D 20 20 20 20 20 20 20 3B 2A 20 41 4E 44 20 |*. ;* AND | 000009D0: 59 4F 55 27 4C 4C 20 42 45 20 CF CB 2E 20 20 20 |YOU'LL BE ... | 000009E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A10: 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 20 20 20 | *. ;* | 00000A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A60: 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 D4 4F | *. ;* .O| 00000A70: 20 55 53 45 20 54 48 45 53 45 20 52 4F 55 54 49 | USE THESE ROUTI| 00000A80: 4E 45 53 2C 20 59 4F 55 52 20 C2 C1 D3 C9 C3 20 |NES, YOUR ..... | 00000A90: 50 52 4F 47 52 41 4D 20 4D 55 53 54 20 C2 CC CF |PROGRAM MUST ...| 00000AA0: C1 C4 20 54 48 45 20 46 49 4C 45 20 20 20 20 20 |.. THE FILE | 00000AB0: 20 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 27 | *. ;* '| 00000AC0: C2 D5 D2 D3 D4 20 D3 D5 C2 D3 2E C2 C9 CE 27 20 |..... ........' | 00000AD0: 42 45 46 4F 52 45 20 54 48 45 59 20 43 41 4E 20 |BEFORE THEY CAN | 00000AE0: 42 45 20 55 53 45 44 2E 20 20 D4 48 45 59 20 4C |BE USED. .HEY L| 00000AF0: 4F 41 44 20 41 54 20 24 31 33 30 30 2C 20 53 4F |OAD AT $1300, SO| 00000B00: 20 20 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 | *. ;* | 00000B10: 54 48 45 59 20 41 52 45 20 49 4E 20 41 20 53 41 |THEY ARE IN A SA| 00000B20: 46 45 20 50 4C 41 43 45 20 42 45 4C 4F 57 20 C2 |FE PLACE BELOW .| 00000B30: C1 D3 C9 C3 20 54 45 58 54 20 41 52 45 41 2E 20 |.... TEXT AREA. | 00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B50: 20 20 20 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A | *. ;*| 00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BA0: 20 20 20 20 20 20 2A 0D 20 20 20 20 20 20 20 3B | *. ;| 00000BB0: 2A 20 D4 48 45 52 45 20 49 53 20 4E 4F 20 C2 D5 |* .HERE IS NO ..| 00000BC0: D2 D3 D4 20 C6 CF D2 CD C1 D4 20 52 4F 55 54 49 |... ...... ROUTI| 00000BD0: 4E 45 20 50 52 4F 56 49 44 45 44 2E 20 20 C2 D5 |NE PROVIDED. ..| 00000BE0: D2 D3 D4 20 46 4F 52 4D 41 54 53 20 43 41 4E 20 |... FORMATS CAN | 00000BF0: 42 45 20 20 20 20 20 2A 0D 20 20 20 20 20 20 20 |BE *. | 00000C00: 3B 2A 20 41 43 43 4F 4D 50 4C 49 53 48 45 44 20 |;* ACCOMPLISHED | 00000C10: 45 41 53 49 4C 59 20 46 52 4F 4D 20 C2 C1 D3 C9 |EASILY FROM ....| 00000C20: C3 2E 20 20 C6 4F 52 20 45 58 41 4D 50 4C 45 2C |.. .OR EXAMPLE,| 00000C30: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 C2 | THE FOLLOWING .| 00000C40: C1 D3 C9 C3 20 20 20 20 2A 0D 20 20 20 20 20 20 |.... *. | 00000C50: 20 3B 2A 20 43 4F 4D 4D 41 4E 44 53 20 57 49 4C | ;* COMMANDS WIL| 00000C60: 4C 20 46 4F 52 4D 41 54 20 50 48 59 53 49 43 41 |L FORMAT PHYSICA| 00000C70: 4C 20 54 52 41 43 4B 53 20 31 30 20 54 48 52 4F |L TRACKS 10 THRO| 00000C80: 55 47 48 20 32 30 20 4F 46 20 54 48 45 20 44 49 |UGH 20 OF THE DI| 00000C90: 53 4B 20 57 49 54 48 20 20 2A 0D 20 20 20 20 20 |SK WITH *. | 00000CA0: 20 20 3B 2A 20 35 20 31 30 32 34 20 42 59 54 45 | ;* 5 1024 BYTE| 00000CB0: 20 53 45 43 54 4F 52 53 3A 20 20 20 20 20 20 20 | SECTORS: | 00000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CE0: 20 20 20 20 20 20 20 20 20 20 2A 0D 20 20 20 20 | *. | 00000CF0: 20 20 20 3B 2A 20 20 20 20 20 20 20 20 20 20 20 | ;* | 00000D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D30: 20 20 20 20 20 20 20 20 20 20 20 2A 0D 20 20 20 | *. | 00000D40: 20 20 20 20 3B 2A 20 20 20 20 20 CF D0 C5 CE 20 | ;* .... | 00000D50: 31 2C 38 2C 31 35 20 20 20 20 20 20 20 20 20 20 |1,8,15 | 00000D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D80: 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 20 20 | *. | 00000D90: 20 20 20 20 20 3B 2A 20 20 20 20 20 D0 D2 C9 CE | ;* ....| 00000DA0: D4 23 31 2C 22 D5 30 22 3B C3 C8 D2 24 28 33 29 |.#1,".0";...$(3)| 00000DB0: 3B C3 C8 D2 24 28 32 30 29 3B C3 C8 D2 24 28 35 |;...$(20);...$(5| 00000DC0: 29 3B C3 C8 D2 24 28 31 30 29 3B 20 20 20 20 20 |);...$(10); | 00000DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 20 | *. | 00000DE0: 20 20 20 20 20 20 3B 2A 20 20 20 20 20 20 20 20 | ;* | 00000DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D | *.| 00000E30: 20 20 20 20 20 20 20 3B 2A 20 CE 4F 54 45 20 54 | ;* .OTE T| 00000E40: 48 45 20 55 53 45 20 4F 46 20 54 48 45 20 53 45 |HE USE OF THE SE| 00000E50: 4D 49 43 4F 4C 4F 4E 20 28 3B 29 20 41 54 20 54 |MICOLON (;) AT T| 00000E60: 48 45 20 45 4E 44 20 4F 46 20 54 48 45 20 53 54 |HE END OF THE ST| 00000E70: 41 54 45 4D 45 4E 54 2E 20 20 D4 48 49 53 20 2A |ATEMENT. .HIS *| 00000E80: 0D 20 20 20 20 20 20 20 3B 2A 20 49 53 20 56 45 |. ;* IS VE| 00000E90: 52 59 20 49 4D 50 4F 52 54 41 4E 54 21 20 20 C9 |RY IMPORTANT! .| 00000EA0: 46 20 54 48 45 52 45 20 57 41 53 20 4E 4F 20 53 |F THERE WAS NO S| 00000EB0: 45 4D 49 43 4F 4C 4F 4E 2C 20 54 48 45 20 C3 31 |EMICOLON, THE .1| 00000EC0: 32 38 20 57 4F 55 4C 44 20 20 20 20 20 20 20 20 |28 WOULD | 00000ED0: 2A 0D 20 20 20 20 20 20 20 3B 2A 20 53 45 4E 44 |*. ;* SEND| 00000EE0: 20 41 20 43 41 52 52 49 41 47 45 20 52 45 54 55 | A CARRIAGE RETU| 00000EF0: 52 4E 20 41 46 54 45 52 20 54 48 45 20 4C 41 53 |RN AFTER THE LAS| 00000F00: 54 20 50 41 52 41 4D 45 54 45 52 2E 20 20 D3 49 |T PARAMETER. .I| 00000F10: 4E 43 45 20 54 48 45 20 31 35 38 31 20 20 20 20 |NCE THE 1581 | 00000F20: 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 43 4F 55 | *. ;* COU| 00000F30: 4E 54 53 20 54 48 45 20 4E 55 4D 42 45 52 20 4F |NTS THE NUMBER O| 00000F40: 46 20 42 59 54 45 53 20 53 45 4E 54 20 54 4F 20 |F BYTES SENT TO | 00000F50: 44 45 54 45 52 4D 49 4E 45 20 54 48 45 20 4E 55 |DETERMINE THE NU| 00000F60: 4D 42 45 52 20 4F 46 20 4F 50 54 49 4F 4E 41 4C |MBER OF OPTIONAL| 00000F70: 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 50 41 | *. ;* PA| 00000F80: 52 41 4D 45 54 45 52 53 20 54 48 41 54 20 41 52 |RAMETERS THAT AR| 00000F90: 45 20 42 45 49 4E 47 20 53 45 4E 54 2C 20 49 54 |E BEING SENT, IT| 00000FA0: 20 57 4F 55 4C 44 20 4D 49 53 49 4E 54 45 52 50 | WOULD MISINTERP| 00000FB0: 52 45 54 20 54 48 45 20 43 41 52 52 49 41 47 45 |RET THE CARRIAGE| 00000FC0: 20 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 52 | *. ;* R| 00000FD0: 45 54 55 52 4E 20 41 53 20 54 48 45 20 4E 45 58 |ETURN AS THE NEX| 00000FE0: 54 20 4F 50 54 49 4F 4E 41 4C 20 50 41 52 41 4D |T OPTIONAL PARAM| 00000FF0: 45 54 45 52 2E 20 20 C9 4E 20 54 48 49 53 20 43 |ETER. .N THIS C| 00001000: 41 53 45 2C 20 49 54 20 57 4F 55 4C 44 20 42 45 |ASE, IT WOULD BE| 00001010: 20 20 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A 20 | *. ;* | 00001020: 46 49 4C 4C 20 42 59 54 45 2E 20 20 C1 4E 59 20 |FILL BYTE. .NY | 00001030: 46 4F 52 4D 41 54 54 49 4E 47 20 45 52 52 4F 52 |FORMATTING ERROR| 00001040: 53 20 43 41 4E 20 42 45 20 43 48 45 43 4B 45 44 |S CAN BE CHECKED| 00001050: 20 56 49 41 20 54 48 45 20 43 4F 4D 4D 41 4E 44 | VIA THE COMMAND| 00001060: 20 20 20 20 20 2A 0D 20 20 20 20 20 20 20 3B 2A | *. ;*| 00001070: 20 43 48 41 4E 4E 45 4C 2E 20 20 20 20 20 20 20 | CHANNEL. | 00001080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010B0: 20 20 20 20 20 20 2A 0D 20 20 20 20 20 20 20 3B | *. ;| 000010C0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 000010D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001100: 20 20 20 20 20 20 20 2A 0D 20 20 20 20 20 20 20 | *. | 00001110: 3B 2A 20 D3 49 4E 43 45 20 54 48 45 20 C2 D5 D2 |;* .INCE THE ...| 00001120: D3 D4 20 43 4F 4D 4D 41 4E 44 53 20 4D 41 4B 45 |.. COMMANDS MAKE| 00001130: 20 55 53 45 20 4F 46 20 54 48 45 20 43 4F 4D 4D | USE OF THE COMM| 00001140: 41 4E 44 20 43 48 41 4E 4E 45 4C 20 54 4F 20 54 |AND CHANNEL TO T| 00001150: 48 45 20 20 20 20 20 20 2A 0D 20 20 20 20 20 20 |HE *. | 00001160: 20 3B 2A 20 44 52 49 56 45 2C 20 54 48 45 20 43 | ;* DRIVE, THE C| 00001170: 4F 4D 4D 41 4E 44 20 43 48 41 4E 4E 45 4C 20 4D |OMMAND CHANNEL M| 00001180: 55 53 54 20 46 49 52 53 54 20 42 45 20 CF D0 C5 |UST FIRST BE ...| 00001190: CE 45 44 20 49 4E 20 59 4F 55 52 20 C2 C1 D3 C9 |.ED IN YOUR ....| 000011A0: C3 20 20 20 20 20 20 20 20 2A 0D 20 20 20 20 20 |. *. | 000011B0: 20 20 3B 2A 20 50 52 4F 47 52 41 4D 2E 20 20 D4 | ;* PROGRAM. .| 000011C0: 48 45 20 4C 4F 47 49 43 41 4C 20 46 49 4C 45 20 |HE LOGICAL FILE | 000011D0: 4E 55 4D 42 45 52 20 57 48 49 43 48 20 59 4F 55 |NUMBER WHICH YOU| 000011E0: 20 41 53 53 49 47 4E 45 44 20 54 4F 20 54 48 45 | ASSIGNED TO THE| 000011F0: 20 43 4F 4D 4D 41 4E 44 20 20 2A 0D 20 20 20 20 | COMMAND *. | 00001200: 20 20 20 3B 2A 20 43 48 41 4E 4E 45 4C 20 53 48 | ;* CHANNEL SH| 00001210: 4F 55 4C 44 20 42 45 20 50 4F 4B 45 44 20 54 4F |OULD BE POKED TO| 00001220: 20 CC C6 20 42 45 46 4F 52 45 20 43 41 4C 4C 49 | .. BEFORE CALLI| 00001230: 4E 47 20 41 4E 59 20 4F 46 20 54 48 45 53 45 20 |NG ANY OF THESE | 00001240: 52 4F 55 54 49 4E 45 53 2E 20 20 2A 0D 20 20 20 |ROUTINES. *. | 00001250: 20 20 20 20 3B 2A 20 20 20 20 20 20 20 20 20 20 | ;* | 00001260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001290: 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 20 20 | *. | 000012A0: 20 20 20 20 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ;**********| 000012B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000012C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000012D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000012E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0C |**************..| 000012F0: 0D |. |
. .
PA
GE 1.
0:BURST SUB
S.SRC,S,R. . ERROR ADDR CODE
SEQ SOURCE STATEMENT. . ;**
****************************************
******************************. ;*
*. ;
* -------------
----- *.
;* ---------------------- BURST SUBRO
UTINES -- (REV 2) ----------- *.
;* -----------
------- *.
;*
*.
;* THESE ASSEMBLY LANGUAGE ROUTINES A
RE PROVIDED FOR YOUR CONVENIENCE. *.
;* FOR MOST USERS, THE BURST COMMAND
S ARE VERY CRYPTIC, REQUIRING YOU *.
;* TO WRITE YOUR OWN ASSEMBLY LANGU
AGE PROGRAMS TO MAKE USE OF THEM. *.
;* THE SET OF ASSEMBLY LANGUAGE SU
BROUTINES PROVIDED IN THIS LISTING *.
;* ARE DESIGNED TO ALLOW ANYONE T
O MAKE USE OF THE BURST ROUTINES VERY *
. ;* EASILY. A BASIC PROGRAM NEED
S SIMPLY TO POKE THE APPROPRIATE VALUES
*. ;* INTO THE VARIABLE LOCATIONS
SHOWN BELOW, AND THEN SYS TO THE DESIRED
*. ;* ROUTINE. ALL OF THE BURST
PROTOCOL AND HANDSHAKING IS DONE FOR YOU
. *. ;* THE BASIC PROGRAM CAN THEN
PEEK ANY VALUES RETURNED.
*. ;*
*. ;* THE ROUTINES IN THIS LIS
TING THAT REQUIRE DATA BUFFER STORAGE AR
EAS *. ;* ARE PASSED THE LOCATION
OF THE BUFFER IN BUFLOC. BUFLOC POINTS
TO *. ;* RAM LOCATION IN RAM BA
NK 0 OF THE START OF THE BUFFER. SINCE
THE *. ;* KERNEL AND I/O ARE NE
EDED, RAM EXISTS ONLY UP TO $C000. SO,
YOU ARE *. ;* FREE TO USE ANY RAM
PAST YOUR BASIC TEXT PROGRAM, UP TO $C00
0 (BASIC *. ;* TEXT NORMALLY START
S AT $1C00. IF BIT-MAP GRAPHICS ARE ENA
BLED, *. ;* THEN BASIC TEXT ST
ARTS AT $4000). IF YOU WANT TO PEEK AND
POKE THIS *. ;* MEMORY FROM BASIC
, BE SURE TO EXECUTE THE 'BANK 0' COMMAN
D. THIS *. ;* TELLS BASIC TO P
EEK AND POKE TO THE RAM UNDER THE BASIC
ROMS. *. ;* IF YOU WANT TO
MAKE YOUR PROGRAM REAL INTELLIGIENT, THE
RE ARE *. ;* POINTERS TO TH
E BEGINNING AND END OF BASIC TEXT ($002D
AND $1210, *. ;* RESPECTIVELY)
. AS A GENERAL RULE, WORK YOUR WAY BACK
FROM $C000, *. ;* AND YOU'LL B
E OK.
*. ;*
*. ;* TO USE THE
SE ROUTINES, YOUR BASIC PROGRAM MUST BLO
AD THE FILE *. ;* 'BURST SU
BS.BIN' BEFORE THEY CAN BE USED. THEY L
OAD AT $1300, SO *. ;* THEY ARE
IN A SAFE PLACE BELOW BASIC TEXT AREA.
*. ;*
*. ;* THERE
IS NO BURST FORMAT ROUTINE PROVIDED. BU
RST FORMATS CAN BE *. ;* ACCOM
PLISHED EASILY FROM BASIC. FOR EXAMPLE,
THE FOLLOWING BASIC *. ;* COMM
ANDS WILL FORMAT PHYSICAL TRACKS 10 THRO
UGH 20 OF THE DISK WITH *. ;* 5 1
024 BYTE SECTORS:
*. ;*
*. ;*
OPEN 1,8,15
*. ;*
PRINT#1,"U0";CHR$(3);CHR$(20);CHR$(5
);CHR$(10); *. ;*
*. ;
* NOTE THE USE OF THE SEMICOLON (;) AT T
HE END OF THE STATEMENT. THIS *.
;* IS VERY IMPORTANT! IF THERE WAS NO S
EMICOLON, THE C128 WOULD *.
;* SEND A CARRIAGE RETURN AFTER THE LAS
T PARAMETER. SINCE THE 1581 *.
;* COUNTS THE NUMBER OF BYTES SENT TO
DETERMINE THE NUMBER OF OPTIONAL *.
;* PARAMETERS THAT ARE BEING SENT, IT
WOULD MISINTERPRET THE CARRIAGE *.
;* RETURN AS THE NEXT OPTIONAL PARAM
ETER. IN THIS CASE, IT WOULD BE *.
;* FILL BYTE. ANY FORMATTING ERROR
S CAN BE CHECKED VIA THE COMMAND *.
;* CHANNEL.
*.
;*
*
. ;* SINCE THE BURST COMMANDS MAKE
USE OF THE COMMAND CHANNEL TO THE
*. ;* DRIVE, THE COMMAND CHANNEL M
UST FIRST BE OPENED IN YOUR BASIC
*. ;* PROGRAM. THE LOGICAL FILE
NUMBER WHICH YOU ASSIGNED TO THE COMMAND
*. ;* CHANNEL SHOULD BE POKED TO
LF BEFORE CALLING ANY OF THESE ROUTINES
. *. ;*
*. ;**************************
****************************************
******...
> CLICK IMAGE PREVIEW FOR FULL MODAL