MA-PETLIB 470C
FILE INFORMATION
FILENAME(S): MA-PETLIB 470C
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:24:01
APPEARS ON: 1 disk(s)
FILE HASH
2a287877a489d2ce3e4cc9f586098c4bb167afdf7a5fb2f33f836e19c34353c1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 29 2 | MA-PETLIB 470C | PRG | DuncanTwain | 8 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: AA 00 30 9F 3E 00 00 10 3B 20 20 20 20 2A 2A 2A |..0.>...; ***| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A AA 10 10 3B 20 20 20 20 2A 2A 20 20 20 |***...; ** | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 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: 2A AA 20 10 3B 20 20 20 20 2A 2A 20 20 20 20 20 |*. .; ** | 00000090: 20 20 20 20 20 20 20 20 20 20 50 45 54 2E 34 20 | PET.4 | 000000A0: 4C 49 42 52 41 52 59 20 46 49 4C 45 20 20 20 20 |LIBRARY FILE | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A AA | *.| 000000C0: 30 10 3B 20 20 20 20 2A 2A 20 20 20 20 20 20 20 |0.; ** | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 2A AA 40 10 | *.@.| 00000100: 3B 20 20 20 20 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 2A 2A 2A 2A 2A AA 50 10 89 60 |***********.P..`| 00000140: 10 89 70 10 89 80 10 3B 20 20 20 20 20 20 20 20 |..p....; | 00000150: 43 4F 4E 54 41 49 4E 45 44 20 49 4E 20 54 48 49 |CONTAINED IN THI| 00000160: 53 20 46 49 4C 45 20 49 53 20 53 4F 4D 45 20 50 |S FILE IS SOME P| 00000170: 45 54 20 52 4F 4D 20 4C 4F 43 41 54 49 4F 4E D3 |ET ROM LOCATION.| 00000180: 90 10 3B 20 20 20 20 20 20 20 20 57 48 49 43 48 |..; WHICH| 00000190: 20 4D 41 59 20 42 45 20 4F 46 20 49 4E 54 45 52 | MAY BE OF INTER| 000001A0: 45 53 54 20 54 4F 20 54 48 4F 53 45 20 4F 46 20 |EST TO THOSE OF | 000001B0: 59 4F 55 20 57 48 4F 20 41 52 C5 00 11 3B 20 20 |YOU WHO AR...; | 000001C0: 20 20 20 20 20 20 44 45 56 45 4C 4F 50 49 4E 47 | DEVELOPING| 000001D0: 20 50 52 4F 47 52 41 4D 53 20 57 48 49 43 48 20 | PROGRAMS WHICH | 000001E0: 49 4E 54 45 52 46 41 43 45 20 57 49 54 48 20 54 |INTERFACE WITH T| 000001F0: 48 45 20 50 45 D4 10 11 89 20 11 89 30 11 89 40 |HE PE.... ..0..@| 00000200: 11 89 50 11 3B 20 47 45 4E 45 52 41 4C 20 53 55 |..P.; GENERAL SU| 00000210: 42 52 4F 55 54 49 4E 45 53 BA 60 11 3B 20 2D 2D |BROUTINES.`.; --| 00000220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000230: 2D AD 70 11 89 80 11 40 57 52 54 20 2E 44 45 20 |-.p....@WRT .DE | 00000240: 24 46 46 44 32 20 3B 57 52 49 54 45 20 41 53 43 |$FFD2 ;WRITE ASC| 00000250: 49 49 20 43 48 41 52 2E 20 49 4E 20 52 28 41 29 |II CHAR. IN R(A)| 00000260: 20 54 4F 20 53 43 52 45 45 CE 90 11 40 52 44 54 | TO SCREE...@RDT| 00000270: 20 2E 44 45 20 24 46 46 43 46 20 3B 52 45 41 44 | .DE $FFCF ;READ| 00000280: 20 41 53 43 49 49 20 43 48 41 52 2E 20 46 52 4F | ASCII CHAR. FRO| 00000290: 4D 20 4B 45 59 42 4F 41 52 44 20 54 4F 20 52 28 |M KEYBOARD TO R(| 000002A0: 41 A9 00 12 40 47 45 54 20 2E 44 45 20 24 46 46 |A...@GET .DE $FF| 000002B0: 45 34 20 3B 47 45 54 20 43 48 41 52 2E 20 49 46 |E4 ;GET CHAR. IF| 000002C0: 20 41 4E 59 2C 20 45 4C 53 45 20 52 28 41 29 3D | ANY, ELSE R(A)=| 000002D0: 30 B0 10 12 40 43 52 4C 46 20 2E 44 45 20 24 44 |0...@CRLF .DE $D| 000002E0: 35 33 34 20 3B 57 52 49 54 45 20 41 20 43 52 20 |534 ;WRITE A CR | 000002F0: 4C C6 20 12 40 53 50 41 43 45 49 4E 43 36 2C 3F |L. .@SPACEINC6,?| 00000300: 00 0C 15 ED 00 81 49 B2 30 A4 4C 4C 3A 8B 56 24 |......I.0.LL:.V$| 00000310: B3 B1 22 22 A7 8B C8 28 4C 24 28 49 29 2C 31 29 |..""...(L$(I),1)| 00000320: B3 B1 56 24 A7 32 33 39 00 3F 15 EE 00 45 B2 4C |..V$.239.?...E.L| 00000330: 28 49 29 3A 8D 31 38 33 3A 98 32 30 30 2C 4C 24 |(I):.183:.200,L$| 00000340: 28 49 29 A6 38 AB C3 28 4C 24 28 49 29 29 29 45 |(I).8..(L$(I)))E| 00000350: 24 A6 38 AB C3 28 45 24 29 29 3B 00 4F 15 EF 00 |$.8..(E$));.O...| 00000360: 82 3A 8D 32 34 30 3A 89 31 30 38 00 6B 15 F0 00 |.:.240:.108.k...| 00000370: 8B 44 B2 38 A7 98 32 30 30 2C C7 28 31 33 29 C7 |.D.8..200,.(13).| 00000380: 28 33 34 29 3B 3A 8E 00 76 15 F1 00 98 32 30 30 |(34);:..v....200| 00000390: 3A 8E 00 99 15 F2 00 49 B2 5A 5A 3A 8D 32 34 34 |:......I.ZZ:.244| 000003A0: 3A 8B 5A 5A A7 81 49 B2 30 A4 5A 5A AB 31 3A 8D |:.ZZ..I.0.ZZ.1:.| 000003B0: 32 34 34 3A 82 00 A7 15 F3 00 8D 32 34 30 3A 89 |244:.......240:.| 000003C0: 31 30 38 00 DD 15 F4 00 45 B2 5A 25 28 49 29 3A |108.....E.Z%(I):| 000003D0: 8D 31 38 33 3A 98 32 30 30 2C 5A 24 28 49 29 A6 |.183:.200,Z$(I).| 000003E0: 38 AB C3 28 5A 24 28 49 29 29 29 45 24 A6 38 AB |8..(Z$(I)))E$.8.| 000003F0: C3 28 45 24 29 29 3B 3A 8E 00 F5 15 F5 00 81 49 |.(E$));:.......I| 00000400: B2 30 A4 50 50 3A 45 B2 50 28 49 29 3A 8D 31 38 |.0.PP:E.P(I):.18| 00000410: 33 00 21 16 F6 00 98 32 30 30 2C 50 24 28 49 29 |3.!....200,P$(I)| 00000420: A6 38 AB C3 28 50 24 28 49 29 29 29 45 24 A6 38 |.8..(P$(I)))E$.8| 00000430: AB C3 28 45 24 29 29 3B 3A 89 32 33 39 00 58 16 |..(E$));:.239.X.| 00000440: F7 00 53 B2 32 3A 85 22 4E 41 4D 45 2C 41 44 52 |..S.2:."NAME,ADR| 00000450: 45 53 53 22 3B 56 24 2C 45 24 3A 8B 56 24 B3 B1 |ESS";V$,E$:.V$..| 00000460: 22 45 4E 44 22 A7 8D 31 37 39 3A 8D 32 31 31 3A |"END"..179:.211:| 00000470: 89 32 34 37 00 61 16 F8 00 89 31 30 38 00 70 16 |.247.a....108.p.| 00000480: F9 00 8B 4C 4C B3 B2 30 A7 31 30 38 00 A5 16 FA |...LL..0.108....| 00000490: 00 81 49 B2 31 A4 4C 4C 3A 45 B2 4C 28 49 29 3A |..I.1.LL:E.L(I):| 000004A0: 45 37 24 B2 4C 24 28 49 29 3A 8D 32 35 38 3A 8B |E7$.L$(I):.258:.| 000004B0: 49 A7 4C 24 28 49 29 B2 45 24 3A 82 3A 89 31 30 |I.L$(I).E$:.:.10| 000004C0: 38 00 B5 16 FB 00 49 B2 4C 4C 3A 82 3A 89 31 30 |8.....I.LL:.:.10| 000004D0: 38 00 C4 16 FC 00 8B 50 50 B3 B2 30 A7 31 30 38 |8......PP..0.108| 000004E0: 00 F9 16 FD 00 81 49 B2 31 A4 50 50 3A 45 B2 50 |......I.1.PP:E.P| 000004F0: 28 49 29 3A 45 37 24 B2 50 24 28 49 29 3A 8D 32 |(I):E7$.P$(I):.2| 00000500: 35 38 3A 8B 49 A7 50 24 28 49 29 B2 45 24 3A 82 |58:.I.P$(I).E$:.| 00000510: 3A 89 31 30 38 00 09 17 FE 00 49 B2 50 50 3A 82 |:.108.....I.PP:.| 00000520: 3A 89 31 30 38 00 18 17 FF 00 8B 5A 5A B3 B2 30 |:.108......ZZ..0| 00000530: A7 31 30 38 00 54 17 00 01 81 49 B2 30 A4 5A 5A |.108.T....I.0.ZZ| 00000540: AB 31 3A 45 B2 5A 25 28 49 29 3A 45 37 24 B2 5A |.1:E.Z%(I):E7$.Z| 00000550: 24 28 49 29 3A 8D 32 35 38 3A 8B 49 B3 B1 5A 5A |$(I):.258:.I..ZZ| 00000560: A7 5A 24 28 49 29 B2 45 24 3A 82 3A 89 31 30 38 |.Z$(I).E$:.:.108| 00000570: 00 64 17 01 01 49 B2 5A 5A 3A 82 3A 89 31 30 38 |.d...I.ZZ:.:.108| 00000580: 00 94 17 02 01 8D 31 38 33 3A 99 45 24 2C 45 37 |......183:.E$,E7| 00000590: 24 2C 3A 85 22 20 20 A0 9D 9D 9D 22 3B 45 24 3A |$,:." ....";E$:| 000005A0: 8B 45 24 B2 22 A0 22 A7 45 24 B2 45 37 24 3A 8E |.E$.".".E$.E7$:.| 000005B0: 00 A5 17 03 01 8B C3 28 45 24 29 B1 36 A7 49 B2 |.......(E$).6.I.| 000005C0: 30 00 AB 17 04 01 8E 00 C1 17 05 01 99 22 93 43 |0............".C| 000005D0: 4F 4D 4D 41 4E 44 53 20 41 52 45 3A 11 00 EA 17 |OMMANDS ARE:....| 000005E0: 06 01 99 22 20 3E 3E 12 48 45 4C 50 92 3C 3C 20 |..." >>.HELP.<< | 000005F0: 2D 20 54 4F 20 53 48 4F 57 20 54 48 49 53 20 54 |- TO SHOW THIS T| 00000600: 41 42 4C 45 20 21 00 13 18 07 01 99 22 20 20 20 |ABLE !......" | 00000610: 12 43 4F 4E 54 92 20 20 20 2D 20 43 4F 4E 54 49 |.CONT. - CONTI| 00000620: 4E 55 45 20 44 49 53 53 45 4D 42 4C 49 4E 47 00 |NUE DISSEMBLING.| 00000630: 43 18 08 01 99 22 20 20 20 12 45 58 49 54 92 20 |C...." .EXIT. | 00000640: 28 4F 52 20 3C 52 45 54 55 52 4E 3E 29 20 2D 20 |(OR <RETURN>) - | 00000650: 41 4C 54 45 52 20 4F 55 54 50 55 54 44 45 56 00 |ALTER OUTPUTDEV.| 00000660: 70 18 09 01 99 22 20 20 20 12 54 4F 50 92 20 20 |p...." .TOP. | 00000670: 20 20 2D 20 53 48 4F 57 20 26 20 41 4C 54 45 52 | - SHOW & ALTER| 00000680: 20 54 4F 50 20 41 44 44 52 45 53 53 00 98 18 0A | TOP ADDRESS....| 00000690: 01 99 22 20 20 20 12 4F 46 46 53 45 54 92 20 2D |.." .OFFSET. -| 000006A0: 20 53 48 4F 57 20 26 20 41 4C 54 45 52 20 4F 46 | SHOW & ALTER OF| 000006B0: 46 53 45 54 00 BB 18 0B 01 99 22 11 20 20 20 12 |FSET......". .| 000006C0: 41 53 43 49 49 92 20 20 2D 20 2E 42 59 20 27 2E |ASCII. - .BY '.| 000006D0: 2E 2E 20 4F 4E 4C 59 00 DF 18 0C 01 99 22 20 20 |.. ONLY......" | 000006E0: 20 12 4E 4F 52 4D 41 4C 92 20 2D 20 42 41 43 4B | .NORMAL. - BACK| 000006F0: 20 46 52 4F 4D 20 41 53 43 49 49 00 08 19 0D 01 | FROM ASCII.....| 00000700: 99 22 11 20 20 20 12 4E 4F 43 4F 44 45 92 20 2D |.". .NOCODE. -| 00000710: 20 53 4B 49 50 20 41 44 44 52 45 53 53 20 26 20 | SKIP ADDRESS & | 00000720: 43 4F 44 45 00 2D 19 0E 01 99 22 20 20 20 12 45 |CODE.-...." .E| 00000730: 58 50 41 4E 44 92 20 2D 20 42 41 43 4B 20 46 52 |XPAND. - BACK FR| 00000740: 4F 4D 20 4E 4F 43 4F 44 45 00 5F 19 0F 01 99 22 |OM NOCODE._...."| 00000750: 11 20 20 20 12 50 5A 92 2C 12 50 57 92 2C 12 50 |. .PZ.,.PW.,.P| 00000760: 4D 92 2C 12 50 4C 92 2C 12 50 4A 92 20 2D 20 50 |M.,.PL.,.PJ. - P| 00000770: 52 49 4E 54 20 4C 41 42 45 4C 53 00 91 19 10 01 |RINT LABELS.....| 00000780: 99 22 20 20 20 12 5A 4C 41 42 45 4C 92 2C 12 57 |." .ZLABEL.,.W| 00000790: 4C 41 42 45 4C 92 2C 12 4D 4C 41 42 45 4C 92 20 |LABEL.,.MLABEL. | 000007A0: 2D 20 41 4C 54 45 52 20 4E 41 4D 45 53 00 BE 19 |- ALTER NAMES...| 000007B0: 11 01 99 22 20 20 20 12 45 4E 54 52 59 92 20 28 |..." .ENTRY. (| 000007C0: 2D 2D 2D 20 12 45 4E 44 92 29 20 2D 20 45 4E 54 |--- .END.) - ENT| 000007D0: 45 52 20 57 4C 41 42 45 4C 53 00 F2 19 12 01 99 |ER WLABELS......| 000007E0: 22 11 20 20 20 12 30 30 92 2E 2E 12 46 46 92 20 |". .00....FF. | 000007F0: 26 20 12 30 31 30 30 92 2E 2E 12 46 46 46 46 92 |& .0100....FFFF.| 00000800: 20 53 54 41 52 54 20 41 44 44 52 45 53 53 00 1E | START ADDRESS..| 00000810: 1A 13 01 99 22 20 20 20 28 4E 4F 20 34 20 44 49 |...." (NO 4 DI| 00000820: 47 49 54 53 20 57 49 54 48 20 32 20 4C 45 41 44 |GITS WITH 2 LEAD| 00000830: 49 4E 47 20 5A 45 52 4F 53 29 00 28 1A 14 01 99 |ING ZEROS).(....| 00000840: 3A 99 3A 8E 00 4C 1A 15 01 85 22 44 52 49 56 45 |:.:..L...."DRIVE| 00000850: 2C 46 49 4C 45 4E 41 4D 45 20 20 A0 9D 9D 9D 22 |,FILENAME ...."| 00000860: 3B 44 52 24 2C 46 49 24 00 5E 1A 16 01 9F 31 35 |;DR$,FI$.^....15| 00000870: 30 2C 34 2C 31 35 2C 22 45 22 00 7A 1A 17 01 9F |0,4,15,"E".z....| 00000880: 36 2C 38 2C 39 2C 44 52 24 AA 22 3A 22 AA 46 49 |6,8,9,DR$.":".FI| 00000890: 24 AA 22 2C 52 22 00 A3 1A 18 01 84 36 2C 50 4F |$.",R"......6,PO| 000008A0: 24 3A 54 53 B2 53 54 3A 98 31 35 30 2C 50 4F 24 |$:TS.ST:.150,PO$| 000008B0: 3A 99 50 4F 24 3A 8B 54 53 B2 30 A7 32 38 30 00 |:.PO$:.TS.0.280.| 000008C0: AF 1A 19 01 A0 31 35 30 3A A0 36 00 B5 1A 1A 01 |.....150:.6.....| 000008D0: 80 00 00 00 |.... |
..0.>...; ***************************
***************************...; **
*. .; ** PET.4
LIBRARY FILE *.0.; *
*
*.@.; *******************
***********************************.P..`
..P....; CONTAINED IN THIS FILE I
S SOME PET ROM LOCATIONS..; WHICH
MAY BE OF INTEREST TO THOSE OF YOU WHO
ARE..; DEVELOPING PROGRAMS WHICH
INTERFACE WITH THE PET... ..0..@..P.; GE
NERAL SUBROUTINES.`.; ------------------
-.P....@WRT .DE $FFD2 ;WRITE ASCII CHAR.
IN R(A) TO SCREEN..@RDT .DE $FFCF ;READ
ASCII CHAR. FROM KEYBOARD TO R(A...@GET
.DE $FFE4 ;GET CHAR. IF ANY, ELSE R(A)=
0...@CRLF .DE $D534 ;WRITE A CR LF .@SPA
CEINC6,?......I.0.LL:.V$..""..H(L$(I),1)
..V$.239.?...E.L(I):.183:.200,L$(I).8.C(
L$(I)))E$.8.C(E$));.O....:.240:.108.K...
.D.8..200,G(13)G(34);:..V....200:......I
.ZZ:.244:.ZZ..I.0.ZZ.1:.244:.......240:.
108.....E.Z%(I):.183:.200,Z$(I).8.C(Z$(I
)))E$.8.C(E$));:.......I.0.PP:E.P(I):.18
3.!....200,P$(I).8.C(P$(I)))E$.8.C(E$));
:.239.X...S.2:."NAME,ADRESS";V$,E$:.V$..
"END"..179:.211:.247.A....108.P....LL..0
.108......I.1.LL:E.L(I):E7$.L$(I):.258:.
I.L$(I).E$:.:.108.....I.LL:.:.108.D....P
P..0.108......I.1.PP:E.P(I):E7$.P$(I):.2
58:.I.P$(I).E$:.:.108.....I.PP:.:.108...
...ZZ..0.108.T....I.0.ZZ.1:E.Z%(I):E7$.Z
$(I):.258:.I..ZZ.Z$(I).E$:.:.108.D...I.Z
Z:.:.108......183:.E$,E7$,:." ...";E$:
.E$." ".E$.E7$:.......C(E$).6.I.0.......
A....".COMMANDS ARE:......." >>.HELP.<<
- TO SHOW THIS TABLE !......" .CONT.
- CONTINUE DISSEMBLING.C...." .EXIT.
(OR <RETURN>) - ALTER OUTPUTDEV.P...."
.TOP. - SHOW & ALTER TOP ADDRESS....
.." .OFFSET. - SHOW & ALTER OFFSET....
..". .ASCII. - .BY '... ONLY......"
.NORMAL. - BACK FROM ASCII......". .N
OCODE. - SKIP ADDRESS & CODE.-...." .E
XPAND. - BACK FROM NOCODE._....". .PZ.
,.PW.,.PM.,.PL.,.PJ. - PRINT LABELS.....
." .ZLABEL.,.WLABEL.,.MLABEL. - ALTER
NAMES......" .ENTRY. (--- .END.) - ENT
ER WLABELS......". .00....FF. & .0100.
...FFFF. START ADDRESS......" (NO 4 DI
GITS WITH 2 LEADING ZEROS).(....:.:..L..
.."DRIVE,FILENAME ...";DR$,FI$.^....15
0,4,15,"E".Z....6,8,9,DR$.":".FI$.",R"..
....6,PO$:TS.ST:.150,PO$:.PO$:.TS.0.280.
.... 150: 6.........
> CLICK IMAGE PREVIEW FOR FULL MODAL