MLOAD.PAL
FILE INFORMATION
FILENAME(S): MLOAD.PAL
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-12-02 00:02:02
APPEARS ON: 1 disk(s)
FILE HASH
d5a86963935a7d9023e1c1aafe998f6c73a069bfd3bc856f7f4036c79350ebac
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | MLOAD.PAL | PRG | earthshaker | 11 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1E 04 0A 00 8F 22 53 3D 53 41 56 45 22 40 |......."S=SAVE"@|
00000010: 30 3A 4D 4C 4F 41 44 2E 50 41 4C 22 2C 38 00 36 |0:MLOAD.PAL",8.6|
00000020: 04 14 00 9F 32 2C 38 2C 31 2C 22 40 31 3A 4D 4C |....2,8,1,"@1:ML|
00000030: 4F 41 44 45 52 22 00 3F 04 1E 00 9E 37 30 30 00 |OADER".?....700.|
00000040: 57 04 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 04 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: 87 04 3C 00 3B 93 20 50 41 4C 96 32 20 8B 20 42 |..<.;. PAL.2 . B|
00000080: 41 53 20 20 32 2E 30 00 8D 04 46 00 3B 00 99 04 |AS 2.0...F.;...|
00000090: 50 00 2E 4F 50 54 20 4F 32 00 9F 04 5A 00 3B 00 |P..OPT O2...Z.;.|
000000A0: A5 04 64 00 3B 00 AF 04 6E 00 AC B2 24 31 39 00 |..d.;...n...$19.|
000000B0: E8 04 78 00 53 45 41 4C 46 4C 41 47 20 AC B2 AC |..x.SEALFLAG ...|
000000C0: AA 31 3B 53 48 4F 55 4C 44 20 50 52 4F 47 20 42 |.1;SHOULD PROG B|
000000D0: 45 20 53 45 41 4C 45 44 20 20 41 54 20 A4 50 20 |E SEALED AT .P |
000000E0: 4F 46 20 4D 45 4D B0 59 00 0B 05 82 00 52 45 4C |OF MEM.Y.....REL|
000000F0: 42 20 AC B2 AC AA 31 3B 52 45 4C 4F 43 41 54 49 |B ....1;RELOCATI|
00000100: 91 20 54 59 50 45 20 42 59 54 45 00 29 05 8C 00 |. TYPE BYTE.)...|
00000110: 42 41 53 45 20 AC B2 AC AA 32 3B 42 41 53 45 20 |BASE ....2;BASE |
00000120: 4F 46 20 8A 20 41 52 45 41 00 4B 05 96 00 50 54 |OF . AREA.K...PT|
00000130: 52 20 AC B2 AC AA 32 3B 57 48 45 52 45 20 49 4E |R ....2;WHERE IN|
00000140: 20 4D 45 4D B0 59 20 57 45 20 93 00 6B 05 A0 00 | MEM.Y WE ..k...|
00000150: 4F 42 50 54 52 20 AC B2 AC AA 32 3B 50 4F B5 45 |OBPTR ....2;PO.E|
00000160: 52 20 B5 4F 20 4F 42 4A 45 43 54 00 88 05 AA 00 |R .O OBJECT.....|
00000170: 42 41 53 80 20 B2 20 24 32 44 3B 80 20 4F 46 20 |BAS. . $2D;. OF |
00000180: 93 45 44 20 46 49 4C 45 00 98 05 AF 00 B7 4A 4D |.ED FILE......JM|
00000190: 50 20 B2 20 24 33 31 30 00 9E 05 B4 00 3B 00 B3 |P . $310.....;..|
000001A0: 05 BE 00 3B 20 52 45 4C 4F 43 41 54 49 4E 47 20 |...; RELOCATING |
000001B0: 93 45 52 00 B9 05 C8 00 3B 00 D8 05 D2 00 3B 54 |.ER.....;.....;T|
000001C0: 48 45 20 42 41 53 49 43 20 43 41 4C 4C 49 4E 47 |HE BASIC CALLING|
000001D0: 20 50 52 4F 47 52 41 4D 00 E3 05 DC 00 AC B2 24 | PROGRAM.......$|
000001E0: 38 30 31 00 F5 05 E6 00 2E 57 B0 44 20 5A 45 52 |801......W.D ZER|
000001F0: 4F 53 2C 31 30 00 0A 06 F0 00 2E 42 59 54 45 20 |OS,10......BYTE |
00000200: 24 39 45 3B 9E 20 A4 4B 45 4E 00 18 06 FA 00 2E |$9E;. .KEN......|
00000210: C6 20 22 32 30 36 31 22 00 2E 06 04 01 2E 42 59 |. "2061"......BY|
00000220: 54 45 20 30 3B 54 45 52 4D 49 4E 41 A4 52 00 3F |TE 0;TERMINA.R.?|
00000230: 06 0E 01 5A 45 52 4F 53 20 2E 57 B0 44 20 30 00 |...ZEROS .W.D 0.|
00000240: 4B 06 18 01 93 45 52 20 B2 20 AC 00 51 06 22 01 |K....ER . ..Q.".|
00000250: 3B 00 75 06 2C 01 4A 53 52 20 50 52 45 50 49 4E |;.u.,.JSR PREPIN|
00000260: 50 3B A1 20 46 49 4C 45 20 AF 20 4C 44 20 41 44 |P;. FILE . LD AD|
00000270: 44 52 45 53 53 00 7B 06 36 01 3B 00 98 06 40 01 |DRESS.{.6.;...@.|
00000280: 4A 53 52 20 47 4C 42 59 54 45 3B 55 53 45 4C 45 |JSR GLBYTE;USELE|
00000290: 53 53 20 53 54 41 52 54 00 A8 06 4A 01 4A 53 52 |SS START...J.JSR|
000002A0: 20 47 4C 42 59 54 45 3B 00 C1 06 4B 01 4A 53 52 | GLBYTE;...K.JSR|
000002B0: 20 47 4C 42 59 54 45 3B 81 4D 41 54 20 43 4F 44 | GLBYTE;.MAT COD|
000002C0: 45 00 D0 06 4C 01 43 4D 50 20 23 81 4D 41 54 31 |E...L.CMP #.MAT1|
000002D0: 00 DC 06 4D 01 42 45 51 20 47 C3 47 00 FA 06 4E |...M.BEQ G.G...N|
000002E0: 01 3B 53 49 47 4E 41 4C 20 45 52 52 B0 20 4F 46 |.;SIGNAL ERR. OF|
000002F0: 20 53 4F 4D 45 20 4B 49 4E 44 00 07 07 4F 01 4C | SOME KIND...O.L|
00000300: 44 41 20 23 22 46 22 00 16 07 50 01 4A 53 52 20 |DA #"F"...P.JSR |
00000310: 4F 55 54 50 55 54 00 1E 07 51 01 52 54 53 00 24 |OUTPUT...Q.RTS.$|
00000320: 07 54 01 3B 00 34 07 5E 01 3B 4E 4F 57 20 A1 20 |.T.;.4.^.;NOW . |
00000330: C3 47 54 48 00 3A 07 68 01 3B 00 46 07 71 01 47 |.GTH.:.h.;.F.q.G|
00000340: C3 47 20 B2 20 AC 00 63 07 72 01 4C 44 41 20 53 |.G . ..c.r.LDA S|
00000350: 45 41 4C 46 4C 41 47 3B 53 45 41 4C 20 41 54 20 |EALFLAG;SEAL AT |
00000360: A4 50 99 00 72 07 7C 01 42 45 51 20 4E 4F 53 45 |.P..r.|.BEQ NOSE|
00000370: 41 4C 00 81 07 86 01 4A 53 52 20 47 4C 42 59 54 |AL.....JSR GLBYT|
00000380: 45 00 8B 07 90 01 53 54 41 20 90 00 9A 07 9A 01 |E.....STA ......|
00000390: 4A 53 52 20 47 4C 42 59 54 45 00 A6 07 A4 01 53 |JSR GLBYTE.....S|
000003A0: 54 41 20 90 AA 31 00 B4 07 AE 01 4C 44 41 20 4D |TA ..1.....LDA M|
000003B0: 45 4D A4 50 00 BC 07 B8 01 53 45 43 00 C6 07 C2 |EM.P.....SEC....|
000003C0: 01 53 42 43 20 90 00 D4 07 CC 01 53 54 41 20 4D |.SBC ......STA M|
000003D0: 45 4D A4 50 00 E1 07 D6 01 53 54 41 20 42 41 53 |EM.P.....STA BAS|
000003E0: 45 00 EE 07 E0 01 53 54 41 20 53 42 4F 54 00 F8 |E.....STA SBOT..|
000003F0: 07 EA 01 53 54 41 20 90 00 08 08 F4 01 4C 44 41 |...STA ......LDA|
00000400: 20 4D 45 4D A4 50 AA 31 00 14 08 FE 01 53 42 43 | MEM.P.1.....SBC|
00000410: 20 90 AA 31 00 24 08 08 02 53 54 41 20 4D 45 4D | ..1.$...STA MEM|
00000420: A4 50 AA 31 00 33 08 12 02 53 54 41 20 42 41 53 |.P.1.3...STA BAS|
00000430: 45 AA 31 00 42 08 1C 02 53 54 41 20 53 42 4F 54 |E.1.B...STA SBOT|
00000440: AA 31 00 4E 08 26 02 53 54 41 20 90 AA 31 00 54 |.1.N.&.STA ..1.T|
00000450: 08 30 02 3B 00 63 08 3A 02 4E 4F 53 45 41 4C 20 |.0.;.c.:.NOSEAL |
00000460: B2 20 AC 00 70 08 44 02 4C 44 41 20 42 41 53 45 |. ..p.D.LDA BASE|
00000470: 00 7C 08 4E 02 53 54 41 20 50 54 52 00 8B 08 58 |.|.N.STA PTR...X|
00000480: 02 4C 44 41 20 42 41 53 45 AA 31 00 99 08 62 02 |.LDA BASE.1...b.|
00000490: 53 54 41 20 50 54 52 AA 31 00 AE 08 6C 02 3B 87 |STA PTR.1...l.;.|
000004A0: 59 20 A4 20 42 45 47 49 4E 20 93 49 4E 47 00 B4 |Y . BEGIN .ING..|
000004B0: 08 76 02 3B 00 BF 08 80 02 4C 44 59 20 23 30 00 |.v.;.....LDY #0.|
000004C0: D4 08 8A 02 93 4C 4F 4F 50 20 4A 53 52 20 47 4C |.....LOOP JSR GL|
000004D0: 42 59 54 45 00 DD 08 94 02 3B 42 52 4B 00 EA 08 |BYTE.....;BRK...|
000004E0: 9E 02 53 54 41 20 52 45 4C 42 00 FA 08 A8 02 43 |..STA RELB.....C|
000004F0: 4D 50 20 23 80 4F 46 46 49 4C 00 08 09 B2 02 42 |MP #.OFFIL.....B|
00000500: 45 51 20 44 91 45 4C 44 00 1B 09 BC 02 43 4D 50 |EQ D.ELD.....CMP|
00000510: 20 23 48 41 53 4F 50 43 4F 44 45 00 3A 09 C6 02 | #HASOPCODE.:...|
00000520: 42 43 43 20 48 41 53 4E 4F 4F 50 3B 48 41 53 20 |BCC HASNOOP;HAS |
00000530: 4E 4F 20 4F 50 20 43 4F 44 45 00 4B 09 D0 02 4A |NO OP CODE.K...J|
00000540: 53 52 20 58 46 45 52 42 59 54 45 00 60 09 DA 02 |SR XFERBYTE.`...|
00000550: 48 41 53 4E 4F 4F 50 20 4C 44 41 20 52 45 4C 42 |HASNOOP LDA RELB|
00000560: 00 6B 09 E4 02 AF 20 23 24 37 46 00 81 09 EE 02 |.k.... #$7F.....|
00000570: 3B 20 4E 4F 57 20 53 54 41 52 54 20 43 41 53 45 |; NOW START CASE|
00000580: 53 00 91 09 F8 02 43 4D 50 20 23 50 43 4D 4F 56 |S.....CMP #PCMOV|
00000590: 45 00 9E 09 02 03 42 4E 45 20 A8 50 43 4D 00 B9 |E.....BNE .PCM..|
000005A0: 09 0C 03 3B 20 50 52 4F 47 52 41 4D 20 43 4F 55 |...; PROGRAM COU|
000005B0: 4E 54 45 52 20 4D 4F 56 45 00 C8 09 16 03 4A 53 |NTER MOVE.....JS|
000005C0: 52 20 47 4C 42 59 54 45 00 D0 09 20 03 43 4C 43 |R GLBYTE... .CLC|
000005D0: 00 DD 09 2A 03 41 44 43 20 42 41 53 45 00 E9 09 |...*.ADC BASE...|
000005E0: 34 03 53 54 41 20 50 54 52 00 F8 09 3E 03 4A 53 |4.STA PTR...>.JS|
000005F0: 52 20 47 4C 42 59 54 45 00 07 0A 48 03 41 44 43 |R GLBYTE...H.ADC|
00000600: 20 42 41 53 45 AA 31 00 15 0A 52 03 53 54 41 20 | BASE.1...R.STA |
00000610: 50 54 52 AA 31 00 23 0A 5C 03 4A 4D 50 20 93 4C |PTR.1.#.\.JMP .L|
00000620: 4F 4F 50 00 29 0A 66 03 3B 00 40 0A 70 03 44 91 |OOP.).f.;.@.p.D.|
00000630: 45 4C 44 20 4A 4D 50 20 46 49 4E 49 53 48 55 50 |ELD JMP FINISHUP|
00000640: 00 46 0A 7A 03 3B 00 53 0A 84 03 A8 50 43 4D 20 |.F.z.;.S....PCM |
00000650: B2 20 AC 00 63 0A 8E 03 43 4D 50 20 23 52 45 4C |. ..c...CMP #REL|
00000660: 57 B0 44 00 6F 0A 98 03 42 4E 45 20 A8 52 57 00 |W.D.o...BNE .RW.|
00000670: 85 0A A2 03 3B 20 52 45 4C 4F 43 41 54 41 42 4C |....; RELOCATABL|
00000680: 45 20 57 B0 44 00 8B 0A AC 03 3B 00 9A 0A B6 03 |E W.D.....;.....|
00000690: 4A 53 52 20 47 4C 42 59 54 45 00 A2 0A C0 03 43 |JSR GLBYTE.....C|
000006A0: 4C 43 00 AF 0A CA 03 41 44 43 20 42 41 53 45 00 |LC.....ADC BASE.|
000006B0: BE 0A D4 03 4A 53 52 20 4D 45 4D 4F 55 54 00 CD |....JSR MEMOUT..|
000006C0: 0A DE 03 4A 53 52 20 47 4C 42 59 54 45 00 DC 0A |...JSR GLBYTE...|
000006D0: E8 03 41 44 43 20 42 41 53 45 AA 31 00 EB 0A F2 |..ADC BASE.1....|
000006E0: 03 4A 53 52 20 4D 45 4D 4F 55 54 00 F9 0A FC 03 |.JSR MEMOUT.....|
000006F0: 4A 4D 50 20 93 4C 4F 4F 50 00 FF 0A 06 04 3B 00 |JMP .LOOP.....;.|
00000700: 0B 0B 10 04 A8 52 57 20 B2 20 AC 00 1D 0B 1A 04 |.....RW . ......|
00000710: 43 4D 50 20 23 4C 4F 57 52 48 41 4C 46 00 29 0B |CMP #LOWRHALF.).|
00000720: 24 04 42 4E 45 20 A8 4C 48 00 4E 0B 2E 04 3B 20 |$.BNE .LH.N...; |
00000730: 4C 4F 57 45 52 20 48 41 4C 46 20 4F 46 20 41 20 |LOWER HALF OF A |
00000740: 52 45 4C 4F 43 41 54 49 4E 47 20 57 B0 44 00 5D |RELOCATING W.D.]|
00000750: 0B 38 04 4A 53 52 20 47 4C 42 59 54 45 00 65 0B |.8.JSR GLBYTE.e.|
00000760: 42 04 43 4C 43 00 72 0B 4C 04 41 44 43 20 42 41 |B.CLC.r.L.ADC BA|
00000770: 53 45 00 81 0B 56 04 4A 53 52 20 4D 45 4D 4F 55 |SE...V.JSR MEMOU|
00000780: 54 00 9B 0B 60 04 4A 53 52 20 47 4C 42 59 54 45 |T...`.JSR GLBYTE|
00000790: 3B 49 47 4E B0 45 20 54 48 49 53 00 A9 0B 6A 04 |;IGN.E THIS...j.|
000007A0: 4A 4D 50 20 93 4C 4F 4F 50 00 AF 0B 74 04 3B 00 |JMP .LOOP...t.;.|
000007B0: BB 0B 7E 04 A8 4C 48 20 B2 20 AC 00 CD 0B 88 04 |..~..LH . ......|
000007C0: 43 4D 50 20 23 55 50 50 52 48 41 4C 46 00 D9 0B |CMP #UPPRHALF...|
000007D0: 92 04 42 4E 45 20 A8 55 48 00 FE 0B 9C 04 3B 20 |..BNE .UH.....; |
000007E0: 55 50 50 45 52 20 48 41 4C 46 20 4F 46 20 41 20 |UPPER HALF OF A |
000007F0: 52 45 4C 4F 43 41 54 49 4E 47 20 57 B0 44 00 0D |RELOCATING W.D..|
00000800: 0C A6 04 4A 53 52 20 47 4C 42 59 54 45 00 15 0C |...JSR GLBYTE...|
00000810: B0 04 43 4C 43 00 22 0C BA 04 41 44 43 20 42 41 |..CLC."...ADC BA|
00000820: 53 45 00 31 0C C4 04 4A 53 52 20 47 4C 42 59 54 |SE.1...JSR GLBYT|
00000830: 45 00 40 0C CE 04 41 44 43 20 42 41 53 45 AA 31 |E.@...ADC BASE.1|
00000840: 00 5A 0C D8 04 4A 53 52 20 4D 45 4D 4F 55 54 3B |.Z...JSR MEMOUT;|
00000850: 55 50 50 45 52 20 48 41 4C 46 00 68 0C E2 04 4A |UPPER HALF.h...J|
00000860: 4D 50 20 93 4C 4F 4F 50 00 6E 0C EC 04 3B 00 7A |MP .LOOP.n...;.z|
00000870: 0C F6 04 A8 55 48 20 B2 20 AC 00 90 0C 00 05 3B |....UH . ......;|
00000880: 20 4D 55 53 54 20 42 45 20 B6 20 4D 45 4D B0 59 | MUST BE . MEM.Y|
00000890: 00 A0 0C 0A 05 43 4D 50 20 23 B6 42 4C 4F 43 4B |.....CMP #.BLOCK|
000008A0: 00 BE 0C 14 05 42 4D 49 20 42 41 44 45 52 52 3B |.....BMI BADERR;|
000008B0: 53 4F 4D 45 54 48 49 4E 47 20 57 52 91 47 00 D0 |SOMETHING WR.G..|
000008C0: 0C 1E 05 AF 20 23 B6 42 4C 4F 43 4B AE 24 46 46 |.... #.BLOCK.$FF|
000008D0: 00 E6 0C 28 05 3B 4E 4F 57 20 57 45 20 48 41 56 |...(.;NOW WE HAV|
000008E0: 45 20 C3 47 54 48 00 EE 0C 32 05 54 41 58 00 04 |E .GTH...2.TAX..|
000008F0: 0D 3C 05 49 4E 58 3B A4 20 50 52 4F 50 45 52 20 |.<.INX;. PROPER |
00000900: C3 47 54 48 00 12 0D 46 05 42 4D 4F 56 45 20 B2 |.GTH...F.BMOVE .|
00000910: 20 AC 00 23 0D 50 05 4A 53 52 20 58 46 45 52 42 | ..#.P.JSR XFERB|
00000920: 59 54 45 00 2B 0D 5A 05 44 45 58 00 39 0D 64 05 |YTE.+.Z.DEX.9.d.|
00000930: 42 4E 45 20 42 4D 4F 56 45 00 47 0D 6E 05 4A 4D |BNE BMOVE.G.n.JM|
00000940: 50 20 93 4C 4F 4F 50 00 4D 0D 78 05 3B 00 53 0D |P .LOOP.M.x.;.S.|
00000950: 82 05 3B 00 62 0D 8C 05 42 41 44 45 52 52 20 B2 |..;.b...BADERR .|
00000960: 20 AC 00 70 0D 96 05 42 52 4B 3B 81 20 4E 4F 57 | ..p...BRK;. NOW|
00000970: 00 76 0D A0 05 3B 00 94 0D AA 05 3B 20 54 52 41 |.v...;.....; TRA|
00000980: 4E 53 46 45 52 20 41 20 42 59 54 45 20 A4 20 4D |NSFER A BYTE . M|
00000990: 45 4D B0 59 00 A5 0D B4 05 58 46 45 52 42 59 54 |EM.Y.....XFERBYT|
000009A0: 45 20 B2 20 AC 00 B4 0D BE 05 4A 53 52 20 47 4C |E . ......JSR GL|
000009B0: 42 59 54 45 00 C3 0D C8 05 4A 53 52 20 4D 45 4D |BYTE.....JSR MEM|
000009C0: 4F 55 54 00 CB 0D D2 05 52 54 53 00 D1 0D DC 05 |OUT.....RTS.....|
000009D0: 3B 00 E9 0D E6 05 3B 20 50 55 54 20 42 59 54 45 |;.....; PUT BYTE|
000009E0: 20 49 4E 20 4D 45 4D B0 59 00 EF 0D F0 05 3B 00 | IN MEM.Y.....;.|
000009F0: FE 0D FA 05 4D 45 4D 4F 55 54 20 B2 20 AC 00 06 |....MEMOUT . ...|
00000A00: 0E 04 06 50 48 50 00 11 0E 0E 06 4C 44 59 20 23 |...PHP.....LDY #|
00000A10: 30 00 21 0E 18 06 53 54 41 20 28 50 54 52 29 2C |0.!...STA (PTR),|
00000A20: 59 00 2D 0E 22 06 49 4E 43 20 50 54 52 00 3A 0E |Y.-.".INC PTR.:.|
00000A30: 2C 06 42 4E 45 20 44 42 32 50 00 48 0E 36 06 49 |,.BNE DB2P.H.6.I|
00000A40: 4E 43 20 50 54 52 AA 31 00 55 0E 40 06 44 42 32 |NC PTR.1.U.@.DB2|
00000A50: 50 20 50 4C 50 00 5D 0E 4A 06 52 54 53 00 63 0E |P PLP.].J.RTS.c.|
00000A60: 54 06 3B 00 69 0E 5E 06 3B 00 78 0E 68 06 3B 50 |T.;.i.^.;.x.h.;P|
00000A70: 52 45 50 41 52 45 20 85 00 7E 0E 72 06 3B 00 8E |REPARE ..~.r.;..|
00000A80: 0E 7C 06 50 52 45 50 49 4E 50 20 B2 20 AC 00 AC |.|.PREPINP . ...|
00000A90: 0E 86 06 3B 81 20 4E 4F 57 2C 20 87 20 46 49 4C |...;. NOW, . FIL|
00000AA0: 45 20 46 52 4F 4D 20 4D 45 4D B0 59 00 C0 0E 90 |E FROM MEM.Y....|
00000AB0: 06 3B B5 4F 20 A4 50 20 4F 46 20 4D 45 4D B0 59 |.;.O .P OF MEM.Y|
00000AC0: 00 C6 0E 9A 06 3B 00 D6 0E A4 06 4C 44 41 20 23 |.....;.....LDA #|
00000AD0: B3 50 52 4F 47 80 00 E4 0E AE 06 53 54 41 20 4F |.PROG......STA O|
00000AE0: 42 50 54 52 00 F4 0E B8 06 4C 44 41 20 23 B1 50 |BPTR.....LDA #.P|
00000AF0: 52 4F 47 80 00 04 0F C2 06 53 54 41 20 4F 42 50 |ROG......STA OBP|
00000B00: 54 52 AA 31 00 0F 0F CC 06 4C 44 41 20 23 31 00 |TR.1.....LDA #1.|
00000B10: 20 0F D6 06 53 54 41 20 53 45 41 4C 46 4C 41 47 | ...STA SEALFLAG|
00000B20: 00 28 0F E0 06 52 54 53 00 2E 0F EA 06 3B 00 34 |.(...RTS.....;.4|
00000B30: 0F F4 06 3B 00 43 0F FE 06 47 4C 42 59 54 45 20 |...;.C...GLBYTE |
00000B40: B2 20 AC 00 4B 0F 08 07 50 48 50 00 59 0F 12 07 |. ..K...PHP.Y...|
00000B50: 4C 44 41 20 4F 42 50 54 52 00 66 0F 1C 07 43 4D |LDA OBPTR.f...CM|
00000B60: 50 20 42 41 53 80 00 76 0F 26 07 4C 44 41 20 4F |P BAS..v.&.LDA O|
00000B70: 42 50 54 52 AA 31 00 85 0F 30 07 53 42 43 20 42 |BPTR.1...0.SBC B|
00000B80: 41 53 80 AA 31 00 91 0F 3A 07 42 43 53 20 45 4F |AS..1...:.BCS EO|
00000B90: A5 00 9C 0F 44 07 4C 44 59 20 23 30 00 AE 0F 4E |....D.LDY #0...N|
00000BA0: 07 4C 44 41 20 28 4F 42 50 54 52 29 2C 59 00 BC |.LDA (OBPTR),Y..|
00000BB0: 0F 58 07 49 4E 43 20 4F 42 50 54 52 00 C9 0F 62 |.X.INC OBPTR...b|
00000BC0: 07 42 4E 45 20 CB 57 41 59 00 D9 0F 6C 07 49 4E |.BNE .WAY...l.IN|
00000BD0: 43 20 4F 42 50 54 52 AA 31 00 E6 0F 76 07 4A 4D |C OBPTR.1...v.JM|
00000BE0: 50 20 CB 57 41 59 00 FA 0F 80 07 45 4F A5 20 4C |P .WAY.....EO. L|
00000BF0: 44 41 20 23 80 4F 46 46 49 4C 00 07 10 8A 07 CB |DA #.OFFIL......|
00000C00: 57 41 59 20 50 4C 50 00 0F 10 94 07 52 54 53 00 |WAY PLP.....RTS.|
00000C10: 15 10 9E 07 3B 00 26 10 A8 07 46 49 4E 49 53 48 |....;.&...FINISH|
00000C20: 55 50 20 B2 20 AC 00 33 10 A9 07 4C 44 41 20 42 |UP . ..3...LDA B|
00000C30: 41 53 45 00 42 10 AA 07 53 54 41 20 B7 4A 4D 50 |ASE.B...STA .JMP|
00000C40: AA 31 00 51 10 AB 07 4C 44 41 20 42 41 53 45 AA |.1.Q...LDA BASE.|
00000C50: 31 00 60 10 AC 07 53 54 41 20 B7 4A 4D 50 AA 32 |1.`...STA .JMP.2|
00000C60: 00 6F 10 B2 07 4A 4D 50 20 28 42 41 53 45 29 00 |.o...JMP (BASE).|
00000C70: 7D 10 BC 07 50 52 4F 47 80 20 B2 20 AC 00 84 10 |}...PROG. . ....|
00000C80: C6 07 2E 80 00 00 00 02 |........ |
......."S=SAVE"@0:MLOAD.PAL",8.6....2,8,
1,"@1:MLOADER".?....700.W.(..LST 8,4,"OB
JECTAB".O.2..LST 8,4,"PALDEF64"...<.;. P
AL.2 . BAS 2.0...F.;...P..OPT O2...Z.;.
..D.;...N...$19...X.SEALFLAG ....1;SHOUL
D PROG BE SEALED AT .P OF MEM.Y.....REL
B ....1;RELOCATI. TYPE BYTE.)...BASE ...
.2;BASE OF . AREA.K...PTR ....2;WHERE IN
MEM.Y WE ..K. .OBPTR ....2;PO.ER .O OBJ
ECT.....BAS. . $2D;. OF .ED FILE......JM
P . $310.....;.....; RELOCATING .ER...H.
;.X.R.;THE BASIC CALLING PROGRAM.......$
801......W.D ZEROS,10......BYTE $9E;. .K
EN......F "2061"......BYTE 0;TERMINA.R.?
...ZEROS .W.D 0.K....ER . ..Q.".;.U.,.JS
R PREPINP;. FILE . LD ADDRESS.{.6.;...@.
JSR GLBYTE;USELESS START...J.JSR GLBYTE;
.A.K.JSR GLBYTE;.MAT CODE.P.L.CMP #.MAT1
...M.BEQ GCG...N.;SIGNAL ERR. OF SOME KI
ND...O.LDA #"F"...P.JSR OUTPUT...Q.RTS.$
.T.;.4.^.;NOW . CGTH.:.H.;.F.Q.GCG . ..C
.R.LDA SEALFLAG;SEAL AT .P..R.|.BEQ NOSE
AL.....JSR GLBYTE.....STA ......JSR GLBY
TE.....STA ..1.....LDA MEM.P.....SEC.F.B
.SBC ..T.L.STA MEM.P...V.STA BASE.....ST
A SBOT.....STA ......LDA MEM.P.1.....SBC
..1.$...STA MEM.P.1.3...STA BASE.1.B...
STA SBOT.1.N.&.STA ..1.T.0.;.C.:.NOSEAL
. ..P.D.LDA BASE.|.N.STA PTR...X.LDA BAS
E.1...B.STA PTR.1...L.;.Y . BEGIN .ING..
.V.;.....LDY #0.T....LOOP JSR GLBYTE....
.;BRK.....STA RELB.....CMP #.OFFIL.....B
EQ D.ELD.....CMP #HASOPCODE.:.F.BCC HASN
OOP;HAS NO OP CODE.K.P.JSR XFERBYTE.`.Z.
HASNOOP LDA RELB.K.... #$7F.....; NOW ST
ART CASES.....CMP #PCMOVE.....BNE .PCM..
...; PROGRAM COUNTER MOVE.H...JSR GLBYTE
.P. .CLC...*.ADC BASE...4.STA PTR...>.JS
R GLBYTE...H.ADC BASE.1...R.STA PTR.1.#.
\.JMP .LOOP.).F.;.@.P.D.ELD JMP FINISHUP
.F.Z.;.S....PCM . ..C...CMP #RELW.D.O...
BNE .RW.....; RELOCATABLE W.D.....;.....
JSR GLBYTE.....CLC...J.ADC BASE...T.JSR
MEMOUT.M...JSR GLBYTE.....ADC BASE.1....
.JSR MEMOUT.....JMP .LOOP.....;......RW
. ......CMP #LOWRHALF.).$.BNE .LH.N...;
LOWER HALF OF A RELOCATING W.D.].8.JSR G
LBYTE.E.B.CLC.R.L.ADC BASE...V.JSR MEMOU
T...`.JSR GLBYTE;IGN.E THIS...J.JMP .LOO
P...T.;...~..LH . ..M...CMP #UPPRHALF.Y.
..BNE .UH.....; UPPER HALF OF A RELOCATI
NG W.D.....JSR GLBYTE.....CLC."...ADC BA
SE.1.D.JSR GLBYTE.@.N.ADC BASE.1.Z.X.JSR
MEMOUT;UPPER HALF.H...JMP .LOOP.N...;.Z
....UH . ......; MUST BE . MEM.Y. ...CMP
#.BLOCK.....BMI BADERR;SOMETHING WR.G.P
.... #.BLOCK.$FF...(.;NOW WE HAVE CGTH..
.2.TAX...<.INX;. PROPER CGTH...F.BMOVE .
..#.P.JSR XFERBYTE.+.Z.DEX.9.D.BNE BMOV
E.G.N.JMP .LOOP.M.X.;.S...;.B...BADERR .
..P...BRK;. NOW.V. .;.....; TRANSFER A
BYTE . MEM.Y.....XFERBYTE . ......JSR GL
BYTE.C.H.JSR MEMOUT.K.R.RTS.Q...;.....;
PUT BYTE IN MEM.Y.....;.....MEMOUT . ...
...PHP.....LDY #0.!...STA (PTR),Y.-.".IN
C PTR.:.,.BNE DB2P.H.6.INC PTR.1.U.@.DB2
P PLP.].J.RTS.C.T.;.I.^.;.X.H.;PREPARE .
.~.R.;...|.PREPINP . ......;. NOW, . FIL
E FROM MEM.Y.....;.O .P OF MEM.Y.F...;.V
...LDA #.PROG......STA OBPTR.....LDA #.P
ROG....B.STA OBPTR.1...L.LDA #1. .V.STA
SEALFLAG.(...RTS.....;.4...;.C...GLBYTE
. ..K...PHP.Y...LDA OBPTR.F...CMP BAS..V
.&.LDA OBPTR.1...0.SBC BAS..1...:.BCS EO
....D.LDY #0...N.LDA (OBPTR),Y...X.INC O
BPTR.I.B.BNE KWAY.Y.L.INC OBPTR.1...V.JM
P KWAY.....EO. LDA #.OFFIL.....KWAY PLP.
....RTS.....;.&...FINISHUP . ..3...LDA B
ASE.B...STA .JMP.1.Q...LDA BASE.1.`...ST
A .JMP.2.O...JMP (BASE).}...PROG. . ....
F.......
> CLICK IMAGE PREVIEW FOR FULL MODAL