FLOAD.PAL
FILE INFORMATION
FILENAME(S): FLOAD.PAL
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 16:59:35
APPEARS ON: 2 disk(s)
FILE HASH
61f6a575262c8257a6e1679f0fc8203c8243faef7fdd8c9c35fdb9708732c52d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PAL POWER | FLOAD.PAL | PRG | High Voltage Complete C64 Collection | 14 | 9 | DOWNLOAD FILE |
| UTILITIE | FLOAD.PAL | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 22 53 3D 53 41 56 45 22 40 |......."S=SAVE"@|
00000010: 30 3A 46 4C 4F 41 44 2E 50 41 4C 22 2C 38 00 36 |0:FLOAD.PAL",8.6|
00000020: 08 14 00 9F 32 2C 38 2C 31 2C 22 40 30 3A 46 4C |....2,8,1,"@0:FL|
00000030: 4F 41 44 45 52 22 00 3F 08 1E 00 9E 37 30 30 00 |OADER".?....700.|
00000040: 57 08 28 00 2E 4C 53 54 20 38 2C 34 2C 22 4F 42 |W.(..LST 8,4,"OB|
00000050: 4A 45 43 54 41 42 22 00 6F 08 32 00 2E 4C 53 54 |JECTAB".o.2..LST|
00000060: 20 38 2C 34 2C 22 50 41 4C 44 45 46 36 34 22 00 | 8,4,"PALDEF64".|
00000070: 75 08 3C 00 3B 00 81 08 46 00 2E 4F 50 54 20 4F |u.<.;...F..OPT O|
00000080: 32 00 87 08 50 00 3B 00 8D 08 5A 00 3B 00 96 08 |2...P.;...Z.;...|
00000090: 6E 00 2E 42 41 53 00 B0 08 78 00 96 A5 54 28 58 |n..BAS...x...T(X|
000000A0: 29 B2 58 AB 32 35 36 AC B5 28 58 AD 32 35 36 29 |).X.256..(X.256)|
000000B0: 00 D4 08 82 00 99 22 50 41 4C 20 4F 42 4A 45 43 |......"PAL OBJEC|
000000C0: 54 20 52 45 4C 4F 43 41 54 49 4E 47 20 4C 4F 41 |T RELOCATING LOA|
000000D0: 44 45 52 22 00 FF 08 8C 00 99 22 43 4F 50 59 52 |DER"......"COPYR|
000000E0: 49 47 48 54 20 28 43 29 20 31 39 38 32 20 42 59 |IGHT (C) 1982 BY|
000000F0: 20 42 52 41 44 20 54 45 4D 50 4C 45 54 4F 4E 00 | BRAD TEMPLETON.|
00000100: 05 09 96 00 99 00 2C 09 A0 00 99 22 4E 41 4D 45 |......,...."NAME|
00000110: 20 4F 46 20 52 45 4C 4F 43 41 54 41 42 4C 45 20 | OF RELOCATABLE |
00000120: 4F 42 4A 45 43 54 20 46 49 4C 45 22 00 35 09 AA |OBJECT FILE".5..|
00000130: 00 85 20 4E 24 00 5C 09 B4 00 8B CA 28 4E 24 2C |.. N$.\.....(N$,|
00000140: C3 28 4E 24 29 AB 31 2C 31 29 B3 B1 22 2C 22 A7 |.(N$).1,1)..",".|
00000150: 4E 24 B2 4E 24 AA 22 2C 50 2C 52 22 00 6E 09 BE |N$.N$.",P,R".n..|
00000160: 00 99 22 4F 50 45 4E 49 4E 47 20 22 4E 24 00 8A |.."OPENING "N$..|
00000170: 09 C8 00 9F 31 2C 38 2C 34 2C 4E 24 3A 8B 44 53 |....1,8,4,N$:.DS|
00000180: A7 99 44 53 24 3A A0 31 3A 90 00 B4 09 CD 00 9F |..DS$:.1:.......|
00000190: 31 35 2C 38 2C 31 35 3A 84 31 35 2C 45 52 2C 45 |15,8,15:.15,ER,E|
000001A0: 52 24 3A 8B 45 52 A7 99 45 52 24 3A A0 31 3A A0 |R$:.ER..ER$:.1:.|
000001B0: 31 35 3A 90 00 E0 09 D2 00 99 22 45 4E 54 45 52 |15:......."ENTER|
000001C0: 20 54 48 45 20 53 54 41 52 54 20 41 44 44 52 45 | THE START ADDRE|
000001D0: 53 53 20 4F 46 20 57 48 45 52 45 20 54 48 45 22 |SS OF WHERE THE"|
000001E0: 00 06 0A DC 00 99 22 50 52 4F 47 52 41 4D 20 49 |......"PROGRAM I|
000001F0: 53 20 54 4F 20 52 55 4E 2E 20 20 49 46 20 59 4F |S TO RUN. IF YO|
00000200: 55 20 57 49 53 48 00 2E 0A E6 00 99 22 54 48 45 |U WISH......"THE|
00000210: 20 50 52 4F 47 52 41 4D 20 53 45 41 4C 45 44 20 | PROGRAM SEALED |
00000220: 55 4E 44 45 52 20 54 48 45 20 54 4F 50 22 00 55 |UNDER THE TOP".U|
00000230: 0A F0 00 99 22 4F 46 20 4D 45 4D 4F 52 59 20 28 |...."OF MEMORY (|
00000240: 22 3B 32 35 36 AC C2 28 35 36 29 AA C2 28 35 35 |";256..(56)..(55|
00000250: 29 3B 22 29 22 00 69 0A FA 00 99 22 4A 55 53 54 |);")".i...."JUST|
00000260: 20 45 4E 54 45 52 20 30 22 00 72 0A 04 01 85 20 | ENTER 0".r.... |
00000270: 54 52 00 88 0A 0E 01 8B 20 54 52 B2 30 A7 97 32 |TR...... TR.0..2|
00000280: 35 2C 31 3A 89 33 37 30 00 A9 0A 18 01 99 22 45 |5,1:.370......"E|
00000290: 4E 54 45 52 20 41 44 44 52 45 53 53 20 54 4F 20 |NTER ADDRESS TO |
000002A0: 4C 4F 41 44 20 41 54 2E 22 00 CA 0A 22 01 99 22 |LOAD AT."...".."|
000002B0: 45 4E 54 45 52 20 30 20 46 4F 52 20 53 41 4D 45 |ENTER 0 FOR SAME|
000002C0: 20 41 53 20 41 42 4F 56 45 22 00 D3 0A 2C 01 85 | AS ABOVE"...,..|
000002D0: 20 4D 50 00 DD 0A 36 01 97 32 35 2C 30 00 EC 0A | MP...6..25,0...|
000002E0: 40 01 97 32 36 2C A5 54 28 54 52 29 00 FB 0A 4A |@..26,.T(TR)...J|
000002F0: 01 97 32 37 2C 54 52 AD 32 35 36 00 0B 0B 54 01 |..27,TR.256...T.|
00000300: 8B 4D 50 B2 30 A7 4D 50 B2 54 52 00 1A 0B 5E 01 |.MP.0.MP.TR...^.|
00000310: 97 32 38 2C A5 54 28 4D 50 29 00 29 0B 68 01 97 |.28,.T(MP).).h..|
00000320: 32 39 2C 4D 50 AD 32 35 36 00 37 0B 72 01 9E 22 |29,MP.256.7.r.."|
00000330: 4C 4F 41 44 45 52 22 00 3E 0B 7C 01 A0 31 00 60 |LOADER".>.|..1.`|
00000340: 0B 86 01 8B 54 52 B2 30 A7 54 52 B2 32 35 36 AC |....TR.0.TR.256.|
00000350: C2 28 35 36 29 AA C2 28 35 35 29 3A 89 34 31 30 |.(56)..(55):.410|
00000360: 00 73 0B 90 01 8B 20 54 52 B3 B1 4D 50 20 A7 20 |.s.... TR..MP . |
00000370: 34 35 30 00 A0 0B 9A 01 99 22 48 49 54 20 59 20 |450......"HIT Y |
00000380: 54 4F 20 45 58 45 43 55 54 45 2C 20 41 4E 59 20 |TO EXECUTE, ANY |
00000390: 4F 54 48 45 52 20 4B 45 59 20 51 55 49 54 53 22 |OTHER KEY QUITS"|
000003A0: 00 B3 0B A4 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
000003B0: 34 32 30 00 C2 0B AE 01 8B 41 24 B3 B1 22 59 22 |420......A$.."Y"|
000003C0: A7 80 00 CB 0B B8 01 9E 20 54 52 00 D1 0B C2 01 |........ TR.....|
000003D0: 80 00 E6 0B C7 01 3B 80 20 4F 46 20 42 41 53 49 |......;. OF BASI|
000003E0: 43 20 43 4F 44 45 00 EC 0B CC 01 3B 00 FA 0B D1 |C CODE.....;....|
000003F0: 01 4F 4C 44 50 43 20 5F 20 AC 00 04 0C D6 01 AC |.OLDPC _ .......|
00000400: B2 24 31 39 00 17 0C E0 01 53 45 41 4C 46 4C 41 |.$19.....SEALFLA|
00000410: 47 20 AC B2 AC AA 31 00 26 0C EA 01 42 41 53 45 |G ....1.&...BASE|
00000420: 20 AC B2 AC AA 32 00 34 0C F4 01 50 54 52 20 AC | ....2.4...PTR .|
00000430: B2 AC AA 32 00 57 0C FE 01 4D 41 49 4E 42 41 53 |...2.W...MAINBAS|
00000440: 45 20 AC B2 AC AA 32 3B 57 48 45 52 45 20 49 54 |E ....2;WHERE IT|
00000450: 27 53 20 CB 49 4E 47 00 5D 0C 08 02 3B 00 70 0C |'S .ING.]...;.p.|
00000460: 12 02 53 45 54 49 4E 50 20 B2 20 24 46 46 43 36 |..SETINP . $FFC6|
00000470: 00 83 0C 26 02 49 4E 43 48 41 52 20 B2 20 24 46 |...&.INCHAR . $F|
00000480: 46 43 46 00 98 0C 30 02 3B 20 52 45 4C 4F 43 41 |FCF...0.; RELOCA|
00000490: 54 49 4E 47 20 93 45 52 00 9E 0C 3A 02 3B 00 AB |TING .ER...:.;..|
000004A0: 0C 3F 02 AC B2 20 4F 4C 44 50 43 00 B7 0C 44 02 |.?... OLDPC...D.|
000004B0: 93 45 52 20 B2 20 AC 00 BD 0C 4E 02 3B 00 E1 0C |.ER . ....N.;...|
000004C0: 58 02 4A 53 52 20 50 52 45 50 49 4E 50 3B A1 20 |X.JSR PREPINP;. |
000004D0: 46 49 4C 45 20 AF 20 4C 44 20 41 44 44 52 45 53 |FILE . LD ADDRES|
000004E0: 53 00 E7 0C 62 02 3B 00 04 0D 6C 02 4A 53 52 20 |S...b.;...l.JSR |
000004F0: 47 4C 42 59 54 45 3B 55 53 45 4C 45 53 53 20 53 |GLBYTE;USELESS S|
00000500: 54 41 52 54 00 14 0D 76 02 4A 53 52 20 47 4C 42 |TART...v.JSR GLB|
00000510: 59 54 45 3B 00 2D 0D 7B 02 4A 53 52 20 47 4C 42 |YTE;.-.{.JSR GLB|
00000520: 59 54 45 3B 81 4D 41 54 20 42 59 54 45 00 3C 0D |YTE;.MAT BYTE.<.|
00000530: 7C 02 43 4D 50 20 23 81 4D 41 54 31 00 48 0D 7D ||.CMP #.MAT1.H.}|
00000540: 02 42 45 51 20 47 C3 47 00 55 0D 7E 02 4C 44 41 |.BEQ G.G.U.~.LDA|
00000550: 20 23 22 46 22 00 64 0D 7F 02 4A 53 52 20 4F 55 | #"F".d...JSR OU|
00000560: 54 50 55 54 00 75 0D 80 02 4A 53 52 20 46 49 4E |TPUT.u...JSR FIN|
00000570: 49 53 48 55 50 00 7B 0D 85 02 3B 00 8B 0D 8A 02 |ISHUP.{...;.....|
00000580: 3B 4E 4F 57 20 A1 20 C3 47 54 48 00 91 0D 94 02 |;NOW . .GTH.....|
00000590: 3B 00 9D 0D 9D 02 47 C3 47 20 B2 20 AC 00 BC 0D |;.....G.G . ....|
000005A0: 9E 02 4C 44 41 20 53 45 41 4C 46 4C 41 47 3B 22 |..LDA SEALFLAG;"|
000005B0: 53 45 41 4C 20 41 54 20 54 4F 50 3F 00 CB 0D A8 |SEAL AT TOP?....|
000005C0: 02 42 45 51 20 4E 4F 53 45 41 4C 00 DA 0D B2 02 |.BEQ NOSEAL.....|
000005D0: 4A 53 52 20 47 4C 42 59 54 45 00 E4 0D BC 02 53 |JSR GLBYTE.....S|
000005E0: 54 41 20 90 00 F3 0D C6 02 4A 53 52 20 47 4C 42 |TA ......JSR GLB|
000005F0: 59 54 45 00 FF 0D D0 02 53 54 41 20 90 AA 31 00 |YTE.....STA ..1.|
00000600: 0D 0E DA 02 4C 44 41 20 4D 45 4D A4 50 00 15 0E |....LDA MEM.P...|
00000610: E4 02 53 45 43 00 1F 0E EE 02 53 42 43 20 90 00 |..SEC.....SBC ..|
00000620: 2D 0E F8 02 53 54 41 20 4D 45 4D A4 50 00 3A 0E |-...STA MEM.P.:.|
00000630: 02 03 53 54 41 20 42 41 53 45 00 44 0E 0C 03 53 |..STA BASE.D...S|
00000640: 54 41 20 90 00 51 0E 16 03 53 54 41 20 53 42 4F |TA ..Q...STA SBO|
00000650: 54 00 5D 0E 20 03 53 54 41 20 50 54 52 00 6D 0E |T.]. .STA PTR.m.|
00000660: 2A 03 4C 44 41 20 4D 45 4D A4 50 AA 31 00 79 0E |*.LDA MEM.P.1.y.|
00000670: 34 03 53 42 43 20 90 AA 31 00 89 0E 3E 03 53 54 |4.SBC ..1...>.ST|
00000680: 41 20 4D 45 4D A4 50 AA 31 00 98 0E 48 03 53 54 |A MEM.P.1...H.ST|
00000690: 41 20 42 41 53 45 AA 31 00 A4 0E 52 03 53 54 41 |A BASE.1...R.STA|
000006A0: 20 90 AA 31 00 B3 0E 5C 03 53 54 41 20 53 42 4F | ..1...\.STA SBO|
000006B0: 54 AA 31 00 C1 0E 66 03 53 54 41 20 50 54 52 AA |T.1...f.STA PTR.|
000006C0: 31 00 D1 0E 70 03 4A 4D 50 20 44 49 44 53 45 41 |1...p.JMP DIDSEA|
000006D0: 4C 00 D7 0E 7A 03 3B 00 E6 0E 84 03 4E 4F 53 45 |L...z.;.....NOSE|
000006E0: 41 4C 20 B2 20 AC 00 00 0F 8E 03 4A 53 52 20 47 |AL . ......JSR G|
000006F0: 4C 42 59 54 45 3B 49 47 4E B0 45 20 C3 47 54 48 |LBYTE;IGN.E .GTH|
00000700: 00 1A 0F 98 03 4A 53 52 20 47 4C 42 59 54 45 3B |.....JSR GLBYTE;|
00000710: 49 47 4E B0 45 20 C3 47 54 48 00 2F 0F A2 03 3B |IGN.E .GTH./...;|
00000720: 87 59 20 A4 20 42 45 47 49 4E 20 93 49 4E 47 00 |.Y . BEGIN .ING.|
00000730: 35 0F AC 03 3B 00 45 0F B6 03 44 49 44 53 45 41 |5...;.E...DIDSEA|
00000740: 4C 20 B2 20 AC 00 51 0F C0 03 4C 44 41 20 50 54 |L . ..Q...LDA PT|
00000750: 52 00 62 0F CA 03 53 54 41 20 4D 41 49 4E 42 41 |R.b...STA MAINBA|
00000760: 53 45 00 70 0F D4 03 4C 44 41 20 50 54 52 AA 31 |SE.p...LDA PTR.1|
00000770: 00 83 0F DE 03 53 54 41 20 4D 41 49 4E 42 41 53 |.....STA MAINBAS|
00000780: 45 AA 31 00 8E 0F E8 03 4C 44 59 20 23 30 00 A3 |E.1.....LDY #0..|
00000790: 0F F2 03 93 4C 4F 4F 50 20 4A 53 52 20 47 4C 42 |....LOOP JSR GLB|
000007A0: 59 54 45 00 AB 0F FC 03 50 48 41 00 BB 0F 06 04 |YTE.....PHA.....|
000007B0: 43 4D 50 20 23 80 4F 46 46 49 4C 00 C9 0F 10 04 |CMP #.OFFIL.....|
000007C0: 42 45 51 20 44 91 45 4C 44 00 DC 0F 1A 04 43 4D |BEQ D.ELD.....CM|
000007D0: 50 20 23 48 41 53 4F 50 43 4F 44 45 00 FB 0F 24 |P #HASOPCODE...$|
000007E0: 04 42 43 43 20 48 41 53 4E 4F 4F 50 3B 48 41 53 |.BCC HASNOOP;HAS|
000007F0: 20 4E 4F 20 4F 50 20 43 4F 44 45 00 0C 10 2E 04 | NO OP CODE.....|
00000800: 4A 53 52 20 58 46 45 52 42 59 54 45 00 1C 10 38 |JSR XFERBYTE...8|
00000810: 04 48 41 53 4E 4F 4F 50 20 50 4C 41 00 27 10 42 |.HASNOOP PLA.'.B|
00000820: 04 AF 20 23 24 37 46 00 3D 10 4C 04 3B 20 4E 4F |.. #$7F.=.L.; NO|
00000830: 57 20 53 54 41 52 54 20 43 41 53 45 53 00 4D 10 |W START CASES.M.|
00000840: 56 04 43 4D 50 20 23 50 43 4D 4F 56 45 00 5A 10 |V.CMP #PCMOVE.Z.|
00000850: 60 04 42 4E 45 20 A8 50 43 4D 00 75 10 6A 04 3B |`.BNE .PCM.u.j.;|
00000860: 20 50 52 4F 47 52 41 4D 20 43 4F 55 4E 54 45 52 | PROGRAM COUNTER|
00000870: 20 4D 4F 56 45 00 84 10 74 04 4A 53 52 20 47 4C | MOVE...t.JSR GL|
00000880: 42 59 54 45 00 8C 10 7E 04 43 4C 43 00 9D 10 88 |BYTE...~.CLC....|
00000890: 04 41 44 43 20 4D 41 49 4E 42 41 53 45 00 A9 10 |.ADC MAINBASE...|
000008A0: 92 04 53 54 41 20 50 54 52 00 B8 10 9C 04 4A 53 |..STA PTR.....JS|
000008B0: 52 20 47 4C 42 59 54 45 00 CB 10 A6 04 41 44 43 |R GLBYTE.....ADC|
000008C0: 20 4D 41 49 4E 42 41 53 45 AA 31 00 D9 10 B0 04 | MAINBASE.1.....|
000008D0: 53 54 41 20 50 54 52 AA 31 00 E7 10 BA 04 4A 4D |STA PTR.1.....JM|
000008E0: 50 20 93 4C 4F 4F 50 00 ED 10 C4 04 3B 00 FB 10 |P .LOOP.....;...|
000008F0: CE 04 44 91 45 4C 44 20 50 4C 41 00 0C 11 D8 04 |..D.ELD PLA.....|
00000900: 4A 4D 50 20 46 49 4E 49 53 48 55 50 00 12 11 E2 |JMP FINISHUP....|
00000910: 04 3B 00 1F 11 EC 04 A8 50 43 4D 20 B2 20 AC 00 |.;......PCM . ..|
00000920: 2F 11 F6 04 43 4D 50 20 23 52 45 4C 57 B0 44 00 |/...CMP #RELW.D.|
00000930: 3B 11 00 05 42 4E 45 20 A8 52 57 00 51 11 0A 05 |;...BNE .RW.Q...|
00000940: 3B 20 52 45 4C 4F 43 41 54 41 42 4C 45 20 57 B0 |; RELOCATABLE W.|
00000950: 44 00 57 11 14 05 3B 00 66 11 1E 05 4A 53 52 20 |D.W...;.f...JSR |
00000960: 47 4C 42 59 54 45 00 6E 11 28 05 43 4C 43 00 7B |GLBYTE.n.(.CLC.{|
00000970: 11 32 05 41 44 43 20 42 41 53 45 00 8A 11 3C 05 |.2.ADC BASE...<.|
00000980: 4A 53 52 20 4D 45 4D 4F 55 54 00 99 11 46 05 4A |JSR MEMOUT...F.J|
00000990: 53 52 20 47 4C 42 59 54 45 00 A8 11 50 05 41 44 |SR GLBYTE...P.AD|
000009A0: 43 20 42 41 53 45 AA 31 00 B7 11 5A 05 4A 53 52 |C BASE.1...Z.JSR|
000009B0: 20 4D 45 4D 4F 55 54 00 C5 11 64 05 4A 4D 50 20 | MEMOUT...d.JMP |
000009C0: 93 4C 4F 4F 50 00 CB 11 6E 05 3B 00 D7 11 78 05 |.LOOP...n.;...x.|
000009D0: A8 52 57 20 B2 20 AC 00 E9 11 82 05 43 4D 50 20 |.RW . ......CMP |
000009E0: 23 4C 4F 57 52 48 41 4C 46 00 F5 11 8C 05 42 4E |#LOWRHALF.....BN|
000009F0: 45 20 A8 4C 48 00 1A 12 96 05 3B 20 4C 4F 57 45 |E .LH.....; LOWE|
00000A00: 52 20 48 41 4C 46 20 4F 46 20 41 20 52 45 4C 4F |R HALF OF A RELO|
00000A10: 43 41 54 49 4E 47 20 57 B0 44 00 29 12 A0 05 4A |CATING W.D.)...J|
00000A20: 53 52 20 47 4C 42 59 54 45 00 31 12 AA 05 43 4C |SR GLBYTE.1...CL|
00000A30: 43 00 3E 12 B4 05 41 44 43 20 42 41 53 45 00 4D |C.>...ADC BASE.M|
00000A40: 12 BE 05 4A 53 52 20 4D 45 4D 4F 55 54 00 67 12 |...JSR MEMOUT.g.|
00000A50: C8 05 4A 53 52 20 47 4C 42 59 54 45 3B 49 47 4E |..JSR GLBYTE;IGN|
00000A60: B0 45 20 54 48 49 53 00 75 12 D2 05 4A 4D 50 20 |.E THIS.u...JMP |
00000A70: 93 4C 4F 4F 50 00 7B 12 DC 05 3B 00 87 12 E6 05 |.LOOP.{...;.....|
00000A80: A8 4C 48 20 B2 20 AC 00 99 12 F0 05 43 4D 50 20 |.LH . ......CMP |
00000A90: 23 55 50 50 52 48 41 4C 46 00 A5 12 FA 05 42 4E |#UPPRHALF.....BN|
00000AA0: 45 20 A8 55 48 00 CA 12 04 06 3B 20 55 50 50 45 |E .UH.....; UPPE|
00000AB0: 52 20 48 41 4C 46 20 4F 46 20 41 20 52 45 4C 4F |R HALF OF A RELO|
00000AC0: 43 41 54 49 4E 47 20 57 B0 44 00 D9 12 0E 06 4A |CATING W.D.....J|
00000AD0: 53 52 20 47 4C 42 59 54 45 00 E1 12 18 06 43 4C |SR GLBYTE.....CL|
00000AE0: 43 00 EE 12 22 06 41 44 43 20 42 41 53 45 00 FD |C...".ADC BASE..|
00000AF0: 12 2C 06 4A 53 52 20 47 4C 42 59 54 45 00 0C 13 |.,.JSR GLBYTE...|
00000B00: 36 06 41 44 43 20 42 41 53 45 AA 31 00 26 13 40 |6.ADC BASE.1.&.@|
00000B10: 06 4A 53 52 20 4D 45 4D 4F 55 54 3B 55 50 50 45 |.JSR MEMOUT;UPPE|
00000B20: 52 20 48 41 4C 46 00 34 13 4A 06 4A 4D 50 20 93 |R HALF.4.J.JMP .|
00000B30: 4C 4F 4F 50 00 3A 13 54 06 3B 00 46 13 5E 06 A8 |LOOP.:.T.;.F.^..|
00000B40: 55 48 20 B2 20 AC 00 5C 13 68 06 3B 20 4D 55 53 |UH . ..\.h.; MUS|
00000B50: 54 20 42 45 20 B6 20 4D 45 4D B0 59 00 6C 13 72 |T BE . MEM.Y.l.r|
00000B60: 06 43 4D 50 20 23 B6 42 4C 4F 43 4B 00 8A 13 7C |.CMP #.BLOCK...||
00000B70: 06 42 4D 49 20 42 41 44 45 52 52 3B 53 4F 4D 45 |.BMI BADERR;SOME|
00000B80: 54 48 49 4E 47 20 57 52 91 47 00 9C 13 86 06 AF |THING WR.G......|
00000B90: 20 23 B6 42 4C 4F 43 4B AE 24 46 46 00 B2 13 90 | #.BLOCK.$FF....|
00000BA0: 06 3B 4E 4F 57 20 57 45 20 48 41 56 45 20 C3 47 |.;NOW WE HAVE .G|
00000BB0: 54 48 00 BA 13 9A 06 54 41 58 00 D0 13 A4 06 49 |TH.....TAX.....I|
00000BC0: 4E 58 3B A4 20 50 52 4F 50 45 52 20 C3 47 54 48 |NX;. PROPER .GTH|
00000BD0: 00 DE 13 AE 06 42 4D 4F 56 45 20 B2 20 AC 00 EA |.....BMOVE . ...|
00000BE0: 13 B8 06 54 58 41 3A 50 48 41 00 FB 13 C2 06 4A |...TXA:PHA.....J|
00000BF0: 53 52 20 58 46 45 52 42 59 54 45 00 07 14 CC 06 |SR XFERBYTE.....|
00000C00: 50 4C 41 3A 54 41 58 00 0F 14 D6 06 44 45 58 00 |PLA:TAX.....DEX.|
00000C10: 1D 14 E0 06 42 4E 45 20 42 4D 4F 56 45 00 2B 14 |....BNE BMOVE.+.|
00000C20: EA 06 4A 4D 50 20 93 4C 4F 4F 50 00 31 14 F4 06 |..JMP .LOOP.1...|
00000C30: 3B 00 37 14 FE 06 3B 00 46 14 08 07 42 41 44 45 |;.7...;.F...BADE|
00000C40: 52 52 20 B2 20 AC 00 54 14 12 07 42 52 4B 3B 81 |RR . ..T...BRK;.|
00000C50: 20 4E 4F 57 00 5A 14 1C 07 3B 00 78 14 26 07 3B | NOW.Z...;.x.&.;|
00000C60: 20 54 52 41 4E 53 46 45 52 20 41 20 42 59 54 45 | TRANSFER A BYTE|
00000C70: 20 A4 20 4D 45 4D B0 59 00 89 14 30 07 58 46 45 | . MEM.Y...0.XFE|
00000C80: 52 42 59 54 45 20 B2 20 AC 00 98 14 3A 07 4A 53 |RBYTE . ....:.JS|
00000C90: 52 20 47 4C 42 59 54 45 00 A7 14 44 07 4A 53 52 |R GLBYTE...D.JSR|
00000CA0: 20 4D 45 4D 4F 55 54 00 AF 14 4E 07 52 54 53 00 | MEMOUT...N.RTS.|
00000CB0: B5 14 58 07 3B 00 CD 14 62 07 3B 20 50 55 54 20 |..X.;...b.; PUT |
00000CC0: 42 59 54 45 20 49 4E 20 4D 45 4D B0 59 00 D3 14 |BYTE IN MEM.Y...|
00000CD0: 6C 07 3B 00 E2 14 76 07 4D 45 4D 4F 55 54 20 B2 |l.;...v.MEMOUT .|
00000CE0: 20 AC 00 EA 14 80 07 50 48 50 00 F5 14 8A 07 4C | ......PHP.....L|
00000CF0: 44 59 20 23 30 00 05 15 94 07 53 54 41 20 28 50 |DY #0.....STA (P|
00000D00: 54 52 29 2C 59 00 11 15 9E 07 49 4E 43 20 50 54 |TR),Y.....INC PT|
00000D10: 52 00 1E 15 A8 07 42 4E 45 20 44 42 32 50 00 2C |R.....BNE DB2P.,|
00000D20: 15 B2 07 49 4E 43 20 50 54 52 AA 31 00 39 15 BC |...INC PTR.1.9..|
00000D30: 07 44 42 32 50 20 50 4C 50 00 41 15 C6 07 52 54 |.DB2P PLP.A...RT|
00000D40: 53 00 47 15 D0 07 3B 00 4D 15 DA 07 3B 00 5C 15 |S.G...;.M...;.\.|
00000D50: E4 07 3B 50 52 45 50 41 52 45 20 85 00 62 15 EE |..;PREPARE ..b..|
00000D60: 07 3B 00 72 15 F8 07 50 52 45 50 49 4E 50 20 B2 |.;.r...PREPINP .|
00000D70: 20 AC 00 8F 15 02 08 3B 81 20 4E 4F 57 2C 20 87 | ......;. NOW, .|
00000D80: 20 46 49 4C 45 20 23 31 2C 20 4F 55 54 20 A4 00 | FILE #1, OUT ..|
00000D90: A0 15 0C 08 3B A4 50 20 4F 46 20 4D 45 4D B0 59 |....;.P OF MEM.Y|
00000DA0: 00 A6 15 16 08 3B 00 B1 15 20 08 4C 44 58 20 23 |.....;... .LDX #|
00000DB0: 31 00 C0 15 2A 08 4A 53 52 20 53 45 54 49 4E 50 |1...*.JSR SETINP|
00000DC0: 00 CB 15 34 08 4C 44 41 20 23 30 00 D6 15 3E 08 |...4.LDA #0...>.|
00000DD0: 53 54 41 20 53 54 00 DE 15 48 08 52 54 53 00 E4 |STA ST...H.RTS..|
00000DE0: 15 52 08 3B 00 EA 15 5C 08 3B 00 F9 15 66 08 47 |.R.;...\.;...f.G|
00000DF0: 4C 42 59 54 45 20 B2 20 AC 00 01 16 70 08 50 48 |LBYTE . ....p.PH|
00000E00: 50 00 0C 16 7A 08 42 49 54 20 53 54 00 18 16 84 |P...z.BIT ST....|
00000E10: 08 42 56 53 20 45 4F A5 00 23 16 8E 08 4C 44 59 |.BVS EO..#...LDY|
00000E20: 20 23 30 00 2E 16 98 08 53 54 59 20 53 54 00 3F | #0.....STY ST.?|
00000E30: 16 A2 08 54 52 47 41 20 4A 53 52 20 54 45 90 00 |...TRGA JSR TE..|
00000E40: 4E 16 AC 08 4A 53 52 20 49 4E 43 48 41 52 00 59 |N...JSR INCHAR.Y|
00000E50: 16 B6 08 4C 44 59 20 53 54 00 64 16 C0 08 43 50 |...LDY ST.d...CP|
00000E60: 59 20 23 32 00 71 16 CA 08 42 45 51 20 54 52 47 |Y #2.q...BEQ TRG|
00000E70: 41 00 7E 16 D4 08 42 4E 45 20 CB 57 41 59 00 92 |A.~...BNE .WAY..|
00000E80: 16 DE 08 45 4F A5 20 4C 44 41 20 23 80 4F 46 46 |...EO. LDA #.OFF|
00000E90: 49 4C 00 9F 16 E8 08 CB 57 41 59 20 B2 20 AC 00 |IL......WAY . ..|
00000EA0: A7 16 F2 08 50 4C 50 00 AF 16 FC 08 52 54 53 00 |....PLP.....RTS.|
00000EB0: B5 16 06 09 3B 00 C6 16 10 09 46 49 4E 49 53 48 |....;.....FINISH|
00000EC0: 55 50 20 B2 20 AC 00 D5 16 1A 09 4A 53 52 20 52 |UP . ......JSR R|
00000ED0: 53 45 54 49 4F 00 DD 16 24 09 52 54 53 00 00 00 |SETIO...$.RTS...|
......."S=SAVE"@0:FLOAD.PAL",8.6....2,8,
1,"@0:FLOADER".?....700.W.(..LST 8,4,"OB
JECTAB".O.2..LST 8,4,"PALDEF64".U.<.;...
F..OPT O2...P.;...Z.;...N..BAS...X...T(X
).X.256..(X.256).T...."PAL OBJECT RELOCA
TING LOADER"......"COPYRIGHT (C) 1982 BY
BRAD TEMPLETON.......,. .."NAME OF RELO
CATABLE OBJECT FILE".5.... N$.\....J(N$,
C(N$).1,1)..",".N$.N$.",P,R".N...."OPENI
NG "N$...H..1,8,4,N$:.DS..DS$: 1:....M..
15,8,15:.15,ER,ER$:.ER..ER$: 1: 15:....R
.."ENTER THE START ADDRESS OF WHERE THE"
......"PROGRAM IS TO RUN. IF YOU WISH..
...."THE PROGRAM SEALED UNDER THE TOP".U
...."OF MEMORY (";256.B(56).B(55);")".I.
..."JUST ENTER 0".R.... TR...... TR.0..2
5,1:.370......"ENTER ADDRESS TO LOAD AT.
".J.".."ENTER 0 FOR SAME AS ABOVE".S.,..
MP...6..25,0...@..26,.T(TR)...J..27,TR.
256...T..MP.0.MP.TR...^..28,.T(MP).).H..
29,MP.256.7.R.."LOADER".>.|. 1.`....TR.0
.TR.256.B(56).B(55):.410.S.... TR..MP .
450. ...."HIT Y TO EXECUTE, ANY OTHER KE
Y QUITS"......A$:.A$."".420.B....A$.."Y"
...K.... TR.Q.B.....G.;. OF BASIC CODE..
.L.;...Q.OLDPC _ ....V...$19.....SEALFLA
G ....1.&...BASE ....2.4...PTR ....2.W..
.MAINBASE ....2;WHERE IT'S KING.]...;.P.
..SETINP . $FFC6...&.INCHAR . $FFCF...0.
; RELOCATING .ER...:.;...?... OLDPC...D.
.ER . ....N.;...X.JSR PREPINP;. FILE . L
D ADDRESS...B.;...L.JSR GLBYTE;USELESS S
TART...V.JSR GLBYTE;.-.{.JSR GLBYTE;.MAT
BYTE.<.|.CMP #.MAT1.H.}.BEQ GCG.U.~.LDA
#"F".D..JSR OUTPUT.U...JSR FINISHUP.{.
..;.....;NOW . CGTH.....;.....GCG . ....
..LDA SEALFLAG;"SEAL AT TOP?.K...BEQ NOS
EAL.Z...JSR GLBYTE.....STA ....F.JSR GLB
YTE...P.STA ..1...Z.LDA MEM.P.....SEC...
..SBC ..-...STA MEM.P.:...STA BASE.D...S
TA ..Q...STA SBOT.]. .STA PTR.M.*.LDA ME
M.P.1.Y.4.SBC ..1...>.STA MEM.P.1...H.ST
A BASE.1...R.STA ..1...\.STA SBOT.1.A.F.
STA PTR.1.Q.P.JMP DIDSEAL.W.Z.;.....NOSE
AL . ......JSR GLBYTE;IGN.E CGTH.....JSR
GLBYTE;IGN.E CGTH./...;.Y . BEGIN .ING.
5...;.E...DIDSEAL . ..Q...LDA PTR.B.J.ST
A MAINBASE.P.T.LDA PTR.1.....STA MAINBAS
E.1.....LDY #0......LOOP JSR GLBYTE.....
PHA.....CMP #.OFFIL.I...BEQ D.ELD.....CM
P #HASOPCODE...$.BCC HASNOOP;HAS NO OP C
ODE.....JSR XFERBYTE...8.HASNOOP PLA.'.B
.. #$7F.=.L.; NOW START CASES.M.V.CMP #P
CMOVE.Z.`.BNE .PCM.U.J.; PROGRAM COUNTER
MOVE...T.JSR GLBYTE...~.CLC.....ADC MAI
NBASE.....STA PTR.....JSR GLBYTE.K...ADC
MAINBASE.1.Y...STA PTR.1.....JMP .LOOP.
..D.;...N.D.ELD PLA...X.JMP FINISHUP....
.;......PCM . ../...CMP #RELW.D.;...BNE
.RW.Q...; RELOCATABLE W.D.W...;.F...JSR
GLBYTE.N.(.CLC.{.2.ADC BASE...<.JSR MEMO
UT...F.JSR GLBYTE...P.ADC BASE.1...Z.JSR
MEMOUT.E.D.JMP .LOOP.K.N.;.W.X..RW . ..
....CMP #LOWRHALF.....BNE .LH.....; LOWE
R HALF OF A RELOCATING W.D.). .JSR GLBYT
E.1...CLC.>...ADC BASE.M...JSR MEMOUT.G.
H.JSR GLBYTE;IGN.E THIS.U.R.JMP .LOOP.{.
..;......LH . ......CMP #UPPRHALF.....BN
E .UH.J...; UPPER HALF OF A RELOCATING W
.D.Y...JSR GLBYTE.....CLC...".ADC BASE..
.,.JSR GLBYTE...6.ADC BASE.1.&.@.JSR MEM
OUT;UPPER HALF.4.J.JMP .LOOP.:.T.;.F.^..
UH . ..\.H.; MUST BE . MEM.Y.L.R.CMP #.B
LOCK...|.BMI BADERR;SOMETHING WR.G......
#.BLOCK.$FF.....;NOW WE HAVE CGTH.....T
AX.P...INX;. PROPER CGTH.....BMOVE . ...
...TXA:PHA...B.JSR XFERBYTE...L.PLA:TAX.
..V.DEX.....BNE BMOVE.+...JMP .LOOP.1...
;.7...;.F...BADERR . ..T...BRK;. NOW.Z..
.;.X.&.; TRANSFER A BYTE . MEM.Y...0.XFE
RBYTE . ....:.JSR GLBYTE...D.JSR MEMOUT.
..N.RTS...X.;.M.B.; PUT BYTE IN MEM.Y.S.
L.;...V.MEMOUT . ......PHP.....LDY #0...
..STA (PTR),Y.....INC PTR.....BNE DB2P.,
...INC PTR.1.9...DB2P PLP.A.F.RTS.G.P.;.
M.Z.;.\...;PREPARE ..B...;.R...PREPINP .
......;. NOW, . FILE #1, OUT .. ...;.P
OF MEM.Y.....;... .LDX #1...*.JSR SETINP
.K.4.LDA #0.V.>.STA ST...H.RTS...R.;...\
.;...F.GLBYTE . ....P.PHP...Z.BIT ST....
.BVS EO..#...LDY #0.....STY ST.?...TRGA
JSR TE..N...JSR INCHAR.Y...LDY ST.D...CP
Y #2.Q.J.BEQ TRGA.~.T.BNE KWAY.....EO. L
DA #.OFFIL.....KWAY . ......PLP.....RTS.
....;.F...FINISHUP . ..U...JSR RSETIO...
$.RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL