GULP COPY.PAL
FILE INFORMATION
FILENAME(S): GULP COPY.PAL
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 21:12:53
APPEARS ON: 1 disk(s)
FILE HASH
64b3d9497e89b38734047a3a6dc19576ba5774caed38b7ca1c8ff2646aa73b1b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | GULP COPY.PAL | PRG | DuncanTwain | 6 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1F 04 E8 03 8F 20 53 41 56 45 22 30 3A 47 |....... SAVE"0:G| 00000010: 55 4C 50 20 43 4F 50 59 2E 50 41 4C 22 2C 38 00 |ULP COPY.PAL",8.| 00000020: 48 04 F2 03 8F 20 2A 2A 20 35 31 32 4B 20 47 55 |H.... ** 512K GU| 00000030: 4C 50 20 42 49 54 20 43 4F 50 59 20 46 4F 52 20 |LP BIT COPY FOR | 00000040: 54 48 45 20 43 31 32 38 00 66 04 FC 03 9F 20 38 |THE C128.f.... 8| 00000050: 2C 38 2C 31 2C 22 30 3A 47 55 4C 50 20 43 4F 50 |,8,1,"0:GULP COP| 00000060: 59 2E 4F 42 4A 22 00 70 04 06 04 9E 20 37 30 30 |Y.OBJ".p.... 700| 00000070: 00 7C 04 10 04 2E 4F 50 54 20 4F 38 00 88 04 1A |.|....OPT O8....| 00000080: 04 AC B2 24 30 42 30 30 00 8E 04 24 04 3B 00 BB |...$0B00...$.;..| 00000090: 04 2E 04 52 41 4D 50 54 52 20 B2 20 24 46 41 20 |...RAMPTR . $FA | 000000A0: 20 20 3B 20 28 50 54 52 29 2C 59 20 54 48 52 4F | ; (PTR),Y THRO| 000000B0: 55 47 48 20 52 41 4D 20 81 20 83 00 EB 04 38 04 |UGH RAM . ....8.| 000000C0: 4E 55 4D 53 45 43 20 B2 20 24 46 43 20 20 20 3B |NUMSEC . $FC ;| 000000D0: 20 4E 55 4D 42 45 52 20 4F 46 20 53 45 43 A4 52 | NUMBER OF SEC.R| 000000E0: 53 20 A4 20 87 AD 57 52 49 54 45 00 17 05 42 04 |S . ..WRITE...B.| 000000F0: 54 53 54 42 49 54 20 B2 20 24 46 45 20 20 20 3B |TSTBIT . $FE ;| 00000100: 20 54 45 53 54 20 53 45 52 49 41 4C 20 50 B0 54 | TEST SERIAL P.T| 00000110: 20 53 54 41 54 55 53 00 3E 05 4C 04 44 4C 53 44 | STATUS.>.L.DLSD| 00000120: 52 20 20 B2 20 24 44 43 30 43 20 3B 20 53 45 52 |R . $DC0C ; SER| 00000130: 49 41 4C 20 83 20 52 45 47 49 53 54 45 52 00 69 |IAL . REGISTER.i| 00000140: 05 56 04 44 4C 49 43 52 20 20 B2 20 24 44 43 30 |.V.DLICR . $DC0| 00000150: 44 20 3B 20 B5 45 52 52 55 50 54 20 9A 52 4F 4C |D ; .ERRUPT .ROL| 00000160: 20 52 45 47 49 53 54 45 52 00 94 05 60 04 44 32 | REGISTER...`.D2| 00000170: 50 52 41 20 20 B2 20 24 44 44 30 30 20 3B 20 53 |PRA . $DD00 ; S| 00000180: 45 52 49 41 4C 20 50 B0 54 20 36 35 32 36 20 43 |ERIAL P.T 6526 C| 00000190: 49 41 20 32 00 C3 05 6A 04 44 4D 41 9D 20 B2 20 |IA 2...j.DMA. . | 000001A0: 24 44 46 30 31 20 3B 20 44 4D 41 20 9A 52 4F 4C |$DF01 ; DMA .ROL| 000001B0: 4C 45 52 20 53 54 41 54 55 53 20 52 45 47 49 53 |LER STATUS REGIS| 000001C0: 54 45 52 00 F7 05 74 04 44 4D 41 41 44 4C 20 B2 |TER...t.DMAADL .| 000001D0: 20 24 44 46 30 32 20 3B 20 4C 53 42 20 4F 46 20 | $DF02 ; LSB OF | 000001E0: B5 45 52 4E 41 4C 20 41 44 44 52 45 53 53 20 A4 |.ERNAL ADDRESS .| 000001F0: 20 41 43 43 45 53 53 00 30 06 7E 04 44 4D 41 4C | ACCESS.0.~.DMAL| 00000200: 4F 20 20 B2 20 24 44 46 30 34 20 3B 20 4C 53 42 |O . $DF04 ; LSB| 00000210: 20 4F 46 20 45 58 54 45 52 4E 41 4C 20 BD 41 4E | OF EXTERNAL .AN| 00000220: 53 49 91 20 52 41 4D 20 A4 20 41 43 43 45 53 53 |SI. RAM . ACCESS| 00000230: 00 5B 06 88 04 44 4D 41 42 4E 4B 20 B2 20 24 44 |.[...DMABNK . $D| 00000240: 46 30 36 20 3B 20 36 34 4B 20 45 58 54 45 52 4E |F06 ; 64K EXTERN| 00000250: 41 4C 20 52 41 4D 20 42 41 4E 4B 00 82 06 92 04 |AL RAM BANK.....| 00000260: 44 4D 41 44 41 4C 20 B2 20 24 44 46 30 37 20 3B |DMADAL . $DF07 ;| 00000270: 20 4C 53 42 20 4F 46 20 42 59 54 45 20 43 4F 55 | LSB OF BYTE COU| 00000280: 4E 54 00 9F 06 9C 04 4D 4D 55 43 91 20 B2 20 24 |NT.....MMUC. . $| 00000290: 46 46 30 30 20 3B 20 4D 4D 55 20 9A 52 4F 4C 00 |FF00 ; MMU .ROL.| 000002A0: DD 06 A6 04 53 50 4E 53 50 54 20 B2 20 24 46 46 |....SPNSPT . $FF| 000002B0: 34 37 20 3B 20 53 50 49 4E AB 53 50 4F 55 54 20 |47 ; SPIN.SPOUT | 000002C0: 20 53 45 54 20 55 50 20 46 41 53 54 20 53 45 52 | SET UP FAST SER| 000002D0: 49 41 4C 20 50 B0 54 20 81 20 49 AD 4F 00 03 07 |IAL P.T . I.O...| 000002E0: B0 04 9C 43 48 4E 20 B2 20 24 46 46 43 43 20 3B |...CHN . $FFCC ;| 000002F0: 20 43 4C 45 41 52 20 41 4C 4C 20 43 48 41 4E 4E | CLEAR ALL CHANN| 00000300: 45 4C 53 00 09 07 BA 04 3B 00 28 07 C4 04 2E 42 |ELS.....;.(....B| 00000310: 59 54 45 20 37 36 2C 20 B3 45 4E 54 52 59 31 2C |YTE 76, .ENTRY1,| 00000320: 20 B1 45 4E 54 52 59 31 00 47 07 CE 04 2E 42 59 | .ENTRY1.G....BY| 00000330: 54 45 20 37 36 2C 20 B3 45 4E 54 52 59 32 2C 20 |TE 76, .ENTRY2, | 00000340: B1 45 4E 54 52 59 32 00 66 07 D8 04 2E 42 59 54 |.ENTRY2.f....BYT| 00000350: 45 20 37 36 2C 20 B3 45 4E 54 52 59 33 2C 20 B1 |E 76, .ENTRY3, .| 00000360: 45 4E 54 52 59 33 00 6C 07 E2 04 3B 00 97 07 EC |ENTRY3.l...;....| 00000370: 04 3B 20 AC AC 20 45 4E 54 52 59 20 50 4F B5 20 |.; .. ENTRY PO. | 00000380: 23 31 20 AB 20 57 52 49 54 45 20 83 20 54 4F 20 |#1 . WRITE . TO | 00000390: 44 49 53 4B 20 2A 2A 00 A6 07 F6 04 45 4E 54 52 |DISK **.....ENTR| 000003A0: 59 31 20 B2 20 AC 00 C6 07 00 05 53 54 41 20 52 |Y1 . ......STA R| 000003B0: 41 4D 50 54 52 AA 31 20 3B 20 48 49 47 48 20 52 |AMPTR.1 ; HIGH R| 000003C0: 41 4D 20 50 54 52 00 EE 07 0A 05 53 54 58 20 4E |AM PTR.....STX N| 000003D0: 55 4D 53 45 43 20 20 20 3B 20 23 20 53 45 43 A4 |UMSEC ; # SEC.| 000003E0: 52 53 20 A4 20 57 52 49 54 45 20 4F 55 54 00 F8 |RS . WRITE OUT..| 000003F0: 07 14 05 53 45 49 20 20 00 0B 08 1E 05 4C 44 41 |...SEI .....LDA| 00000400: 20 23 25 30 31 30 30 30 30 30 30 00 1B 08 28 05 | #%01000000...(.| 00000410: 53 54 41 20 54 53 54 42 49 54 20 00 27 08 32 05 |STA TSTBIT .'.2.| 00000420: 4C 44 59 20 23 30 20 00 2D 08 3C 05 3B 00 3A 08 |LDY #0 .-.<.;.:.| 00000430: 46 05 4D B0 45 31 20 B2 20 AC 00 42 08 50 05 53 |F.M.E1 . ..B.P.S| 00000440: 45 43 00 6B 08 5A 05 4A 53 52 20 53 50 4E 53 50 |EC.k.Z.JSR SPNSP| 00000450: 54 20 3B 20 53 45 54 20 55 50 20 46 41 53 54 20 |T ; SET UP FAST | 00000460: 53 45 52 49 41 4C 20 50 B0 54 20 00 71 08 64 05 |SERIAL P.T .q.d.| 00000470: 3B 00 80 08 6E 05 57 41 54 46 53 54 20 B2 20 AC |;...n.WATFST . .| 00000480: 00 A6 08 78 05 4C 44 41 20 44 32 50 52 41 20 3B |...x.LDA D2PRA ;| 00000490: 20 53 45 52 49 41 4C 20 50 B0 54 20 36 35 32 36 | SERIAL P.T 6526| 000004A0: 20 43 49 41 20 32 00 CA 08 82 05 43 4D 50 20 44 | CIA 2.....CMP D| 000004B0: 32 50 52 41 20 3B 20 92 20 81 20 43 48 41 4E 47 |2PRA ; . . CHANG| 000004C0: 45 20 4F 46 20 53 54 41 54 45 00 D9 08 8C 05 42 |E OF STATE.....B| 000004D0: 4E 45 20 57 41 54 46 53 54 00 DF 08 96 05 3B 00 |NE WATFST.....;.| 000004E0: FA 08 A0 05 45 B0 20 54 53 54 42 49 54 20 3B 20 |....E. TSTBIT ; | 000004F0: 54 45 53 54 20 53 54 41 54 45 00 0B 09 AA 05 AF |TEST STATE......| 00000500: 20 23 25 30 31 30 30 30 30 30 30 00 1A 09 B4 05 | #%01000000.....| 00000510: 42 45 51 20 57 41 54 46 53 54 00 20 09 BE 05 3B |BEQ WATFST. ...;| 00000520: 00 4A 09 C8 05 4C 44 58 20 23 25 30 30 31 31 31 |.J...LDX #%00111| 00000530: 31 31 31 20 3B 20 53 45 54 20 81 20 52 41 4D 20 |111 ; SET . RAM | 00000540: 30 20 AF 20 4B 45 52 4E 41 4C 00 64 09 D2 05 53 |0 . KERNAL.d...S| 00000550: 54 58 20 4D 4D 55 43 91 20 3B 20 4D 4D 55 20 9A |TX MMUC. ; MMU .| 00000560: 52 4F 4C 20 00 84 09 DC 05 4C 44 41 20 28 52 41 |ROL .....LDA (RA| 00000570: 4D 50 54 52 29 2C 59 20 3B 20 A1 20 46 52 4F 4D |MPTR),Y ; . FROM| 00000580: 20 52 41 4D 00 A2 09 E6 05 4C 44 58 20 23 30 20 | RAM.....LDX #0 | 00000590: 3B 20 53 45 54 20 42 41 43 4B 20 A4 20 4E B0 4D |; SET BACK . N.M| 000005A0: 41 4C 00 BC 09 F0 05 53 54 58 20 4D 4D 55 43 91 |AL.....STX MMUC.| 000005B0: 20 3B 20 4D 4D 55 20 9A 52 4F 4C 20 00 DE 09 FA | ; MMU .ROL ....| 000005C0: 05 53 54 41 20 44 4C 53 44 52 20 3B 20 53 45 52 |.STA DLSDR ; SER| 000005D0: 49 41 4C 20 83 20 52 45 47 49 53 54 45 52 00 ED |IAL . REGISTER..| 000005E0: 09 04 06 4C 44 41 20 54 53 54 42 49 54 00 0C 0A |...LDA TSTBIT...| 000005F0: 0E 06 45 B0 20 23 25 30 31 30 30 30 30 30 30 20 |..E. #%01000000 | 00000600: 3B 20 46 4C 49 50 20 53 54 41 54 45 00 1B 0A 18 |; FLIP STATE....| 00000610: 06 53 54 41 20 54 53 54 42 49 54 00 27 0A 22 06 |.STA TSTBIT.'.".| 00000620: 4C 44 41 20 23 38 20 00 2D 0A 2C 06 3B 00 38 0A |LDA #8 .-.,.;.8.| 00000630: 36 06 92 31 20 B2 20 AC 00 5E 0A 40 06 42 49 54 |6..1 . ..^.@.BIT| 00000640: 20 44 4C 49 43 52 20 3B 20 B5 45 52 52 55 50 54 | DLICR ; .ERRUPT| 00000650: 20 9A 52 4F 4C 20 52 45 47 49 53 54 45 52 00 6A | .ROL REGISTER.j| 00000660: 0A 4A 06 42 45 51 20 92 31 20 00 70 0A 54 06 3B |.J.BEQ .1 .p.T.;| 00000670: 00 7A 0A 5E 06 49 4E 59 20 20 00 89 0A 68 06 42 |.z.^.INY ...h.B| 00000680: 4E 45 20 57 41 54 46 53 54 00 8F 0A 72 06 3B 00 |NE WATFST...r.;.| 00000690: 99 0A 7C 06 43 4C 43 20 20 00 C2 0A 86 06 4A 53 |..|.CLC .....JS| 000006A0: 52 20 53 50 4E 53 50 54 20 3B 20 53 45 54 20 55 |R SPNSPT ; SET U| 000006B0: 50 20 46 41 53 54 20 53 45 52 49 41 4C 20 50 B0 |P FAST SERIAL P.| 000006C0: 54 20 00 E9 0A 90 06 42 49 54 20 44 4C 49 43 52 |T .....BIT DLICR| 000006D0: 20 3B 20 B5 45 52 52 55 50 54 20 9A 52 4F 4C 20 | ; .ERRUPT .ROL | 000006E0: 52 45 47 49 53 54 45 52 20 00 10 0B 9A 06 4C 44 |REGISTER .....LD| 000006F0: 41 20 44 32 50 52 41 20 3B 20 53 45 52 49 41 4C |A D2PRA ; SERIAL| 00000700: 20 50 B0 54 20 36 35 32 36 20 43 49 41 20 32 20 | P.T 6526 CIA 2 | 00000710: 00 22 0B A4 06 B0 41 20 23 25 30 30 30 31 30 30 |."....A #%000100| 00000720: 30 30 00 30 0B AE 06 53 54 41 20 44 32 50 52 41 |00.0...STA D2PRA| 00000730: 00 3C 0B B8 06 4C 44 41 20 23 38 20 00 42 0B C2 |.<...LDA #8 .B..| 00000740: 06 3B 00 4D 0B CC 06 92 32 20 B2 20 AC 00 73 0B |.;.M....2 . ..s.| 00000750: D6 06 42 49 54 20 44 4C 49 43 52 20 3B 20 B5 45 |..BIT DLICR ; .E| 00000760: 52 52 55 50 54 20 9A 52 4F 4C 20 52 45 47 49 53 |RRUPT .ROL REGIS| 00000770: 54 45 52 00 7F 0B E0 06 42 45 51 20 92 32 20 00 |TER.....BEQ .2 .| 00000780: 85 0B EA 06 3B 00 AC 0B F4 06 4C 44 41 20 44 32 |....;.....LDA D2| 00000790: 50 52 41 20 3B 20 53 45 52 49 41 4C 20 50 B0 54 |PRA ; SERIAL P.T| 000007A0: 20 36 35 32 36 20 43 49 41 20 32 20 00 BD 0B FE | 6526 CIA 2 ....| 000007B0: 06 AF 20 23 25 31 31 31 30 31 31 31 31 00 CB 0B |.. #%11101111...| 000007C0: 08 07 53 54 41 20 44 32 50 52 41 00 DB 0B 12 07 |..STA D2PRA.....| 000007D0: 44 45 43 20 4E 55 4D 53 45 43 20 00 EA 0B 1C 07 |DEC NUMSEC .....| 000007E0: 42 45 51 20 42 41 43 4B 31 20 00 F0 0B 26 07 3B |BEQ BACK1 ...&.;| 000007F0: 00 02 0C 30 07 49 4E 43 20 52 41 4D 50 54 52 AA |...0.INC RAMPTR.| 00000800: 31 20 00 10 0C 3A 07 4A 4D 50 20 4D B0 45 31 20 |1 ...:.JMP M.E1 | 00000810: 00 16 0C 44 07 3B 00 24 0C 4E 07 42 41 43 4B 31 |...D.;.$.N.BACK1| 00000820: 20 B2 20 AC 00 2C 0C 58 07 43 4C 49 00 4F 0C 62 | . ..,.X.CLI.O.b| 00000830: 07 4A 53 52 20 9C 43 48 4E 20 3B 20 43 4C 45 41 |.JSR .CHN ; CLEA| 00000840: 52 20 41 4C 4C 20 43 48 41 4E 4E 45 4C 53 20 00 |R ALL CHANNELS .| 00000850: 59 0C 6C 07 52 54 53 20 20 00 5F 0C 76 07 3B 00 |Y.l.RTS ._.v.;.| 00000860: 88 0C 80 07 3B 20 AC AC 20 45 4E 54 52 59 20 50 |....; .. ENTRY P| 00000870: 4F B5 20 23 32 20 AB 20 A1 20 83 20 46 52 4F 4D |O. #2 . . . FROM| 00000880: 20 44 49 53 4B 20 2A 2A 00 97 0C 8A 07 45 4E 54 | DISK **.....ENT| 00000890: 52 59 32 20 B2 20 AC 00 A9 0C 94 07 53 54 41 20 |RY2 . ......STA | 000008A0: 52 41 4D 50 54 52 AA 31 20 00 B9 0C 9E 07 53 54 |RAMPTR.1 .....ST| 000008B0: 58 20 4E 55 4D 53 45 43 20 00 C9 0C A8 07 53 54 |X NUMSEC .....ST| 000008C0: 59 20 52 41 4D 50 54 52 20 00 D5 0C B2 07 4C 44 |Y RAMPTR .....LD| 000008D0: 59 20 23 30 20 00 DF 0C BC 07 53 45 49 20 20 00 |Y #0 .....SEI .| 000008E0: 06 0D C6 07 42 49 54 20 44 4C 49 43 52 20 3B 20 |....BIT DLICR ; | 000008F0: B5 45 52 52 55 50 54 20 9A 52 4F 4C 20 52 45 47 |.ERRUPT .ROL REG| 00000900: 49 53 54 45 52 20 00 2E 0D D0 07 4A 53 52 20 A1 |ISTER .....JSR .| 00000910: 31 20 3B 20 A1 20 83 20 46 52 4F 4D 20 44 49 53 |1 ; . . FROM DIS| 00000920: 4B 20 57 49 54 48 4F 55 54 20 57 41 49 54 00 34 |K WITHOUT WAIT.4| 00000930: 0D DA 07 3B 00 41 0D E4 07 4D B0 45 32 20 B2 20 |...;.A...M.E2 . | 00000940: AC 00 5E 0D EE 07 4A 53 52 20 44 53 4B A1 20 3B |..^...JSR DSK. ;| 00000950: 20 A1 20 83 20 46 52 4F 4D 20 44 49 53 4B 00 64 | . . FROM DISK.d| 00000960: 0D F8 07 3B 00 70 0D 02 08 A1 4D B0 20 B2 20 AC |...;.p....M. . .| 00000970: 00 8D 0D 0C 08 4A 53 52 20 44 53 4B A1 20 3B 20 |.....JSR DSK. ; | 00000980: A1 20 83 20 46 52 4F 4D 20 44 49 53 4B 00 B8 0D |. . FROM DISK...| 00000990: 16 08 4C 44 58 20 23 25 30 30 31 31 31 31 31 31 |..LDX #%00111111| 000009A0: 20 3B 20 46 4C 49 50 20 A4 20 52 41 4D 20 30 20 | ; FLIP . RAM 0 | 000009B0: AF 20 4B 45 52 4E 41 4C 00 D2 0D 20 08 53 54 58 |. KERNAL... .STX| 000009C0: 20 4D 4D 55 43 91 20 3B 20 4D 4D 55 20 9A 52 4F | MMUC. ; MMU .RO| 000009D0: 4C 20 00 F8 0D 2A 08 53 54 41 20 28 52 41 4D 50 |L ...*.STA (RAMP| 000009E0: 54 52 29 2C 59 20 3B 20 53 A4 52 45 20 42 59 54 |TR),Y ; S.RE BYT| 000009F0: 45 20 49 4E 20 52 41 4D 00 12 0E 34 08 4C 44 58 |E IN RAM...4.LDX| 00000A00: 20 23 30 20 3B 20 42 41 43 4B 20 A4 20 4E B0 4D | #0 ; BACK . N.M| 00000A10: 41 4C 00 20 0E 3E 08 53 54 58 20 4D 4D 55 43 91 |AL. .>.STX MMUC.| 00000A20: 00 28 0E 48 08 49 4E 59 00 35 0E 52 08 42 4E 45 |.(.H.INY.5.R.BNE| 00000A30: 20 A1 4D B0 20 00 3B 0E 5C 08 3B 00 62 0E 66 08 | .M. .;.\.;.b.f.| 00000A40: 44 45 43 20 4E 55 4D 53 45 43 20 3B 20 44 45 43 |DEC NUMSEC ; DEC| 00000A50: 52 45 41 53 45 20 23 20 53 45 43 A4 52 53 20 A4 |REASE # SEC.RS .| 00000A60: 20 CB 00 85 0E 70 08 42 45 51 20 42 41 43 4B 32 | ....p.BEQ BACK2| 00000A70: 20 20 3B 20 8B 20 53 45 43 A4 52 53 20 46 49 4E | ; . SEC.RS FIN| 00000A80: 49 20 A7 20 8E 00 8B 0E 7A 08 3B 00 9C 0E 84 08 |I . ....z.;.....| 00000A90: 49 4E 43 20 52 41 4D 50 54 52 AA 31 00 AA 0E 8E |INC RAMPTR.1....| 00000AA0: 08 4A 4D 50 20 4D B0 45 32 20 00 B0 0E 98 08 3B |.JMP M.E2 .....;| 00000AB0: 00 BE 0E A2 08 42 41 43 4B 32 20 B2 20 AC 00 C6 |.....BACK2 . ...| 00000AC0: 0E AC 08 43 4C 49 00 E9 0E B6 08 4A 53 52 20 9C |...CLI.....JSR .| 00000AD0: 43 48 4E 20 3B 20 43 4C 45 41 52 20 41 4C 4C 20 |CHN ; CLEAR ALL | 00000AE0: 43 48 41 4E 4E 45 4C 53 20 00 F1 0E C0 08 52 54 |CHANNELS .....RT| 00000AF0: 53 00 F7 0E CA 08 3B 00 04 0F D4 08 44 53 4B A1 |S.....;.....DSK.| 00000B00: 20 B2 20 AC 00 0F 0F DE 08 4C 44 41 20 23 38 00 | . ......LDA #8.| 00000B10: 15 0F E8 08 3B 00 20 0F F2 08 92 33 20 B2 20 AC |....;. ....3 . .| 00000B20: 00 46 0F FC 08 42 49 54 20 44 4C 49 43 52 20 3B |.F...BIT DLICR ;| 00000B30: 20 B5 45 52 52 55 50 54 20 9A 52 4F 4C 20 52 45 | .ERRUPT .ROL RE| 00000B40: 47 49 53 54 45 52 00 51 0F 06 09 42 45 51 20 92 |GISTER.Q...BEQ .| 00000B50: 33 00 57 0F 10 09 3B 00 62 0F 1A 09 A1 31 20 B2 |3.W...;.b....1 .| 00000B60: 20 AC 00 88 0F 24 09 4C 44 41 20 44 32 50 52 41 | ....$.LDA D2PRA| 00000B70: 20 3B 20 53 45 52 49 41 4C 20 50 B0 54 20 36 35 | ; SERIAL P.T 65| 00000B80: 32 36 20 43 49 41 20 32 00 9A 0F 2E 09 45 B0 20 |26 CIA 2.....E. | 00000B90: 23 25 30 30 30 31 30 30 30 30 00 A8 0F 38 09 53 |#%00010000...8.S| 00000BA0: 54 41 20 44 32 50 52 41 00 CA 0F 42 09 4C 44 41 |TA D2PRA...B.LDA| 00000BB0: 20 44 4C 53 44 52 20 3B 20 53 45 52 49 41 4C 20 | DLSDR ; SERIAL | 00000BC0: 83 20 52 45 47 49 53 54 45 52 00 E2 0F 4C 09 52 |. REGISTER...L.R| 00000BD0: 54 53 20 3B 20 CB 54 20 83 20 2D 20 52 45 54 55 |TS ; .T . - RETU| 00000BE0: 52 4E 00 E8 0F 56 09 3B 00 1A 10 60 09 3B 20 AC |RN...V.;...`.; .| 00000BF0: AC 20 45 4E 54 52 59 20 50 4F B5 20 23 33 20 AB |. ENTRY PO. #3 .| 00000C00: 20 49 4E 49 54 49 41 4C 49 5A 45 20 43 91 46 49 | INITIALIZE C.FI| 00000C10: 47 55 52 41 54 49 91 20 AC AC 00 29 10 6A 09 45 |GURATI. ...).j.E| 00000C20: 4E 54 52 59 33 20 B2 20 AC 00 58 10 74 09 53 54 |NTRY3 . ..X.t.ST| 00000C30: 41 20 44 4D 41 42 4E 4B 20 3B 20 36 34 4B 20 45 |A DMABNK ; 64K E| 00000C40: 58 54 45 52 4E 41 4C 20 52 41 4D 20 42 41 4E 4B |XTERNAL RAM BANK| 00000C50: 20 28 30 20 B0 20 34 29 00 8F 10 7E 09 53 54 58 | (0 . 4)...~.STX| 00000C60: 20 44 4D 41 9D 20 3B 20 44 4D 41 20 9A 52 4F 4C | DMA. ; DMA .ROL| 00000C70: 4C 45 52 20 53 54 41 54 55 53 20 52 45 47 49 53 |LER STATUS REGIS| 00000C80: 54 45 52 20 28 31 32 38 20 B0 20 31 32 39 29 00 |TER (128 . 129).| 00000C90: 9A 10 88 09 4C 44 41 20 23 30 00 CB 10 92 09 53 |....LDA #0.....S| 00000CA0: 54 41 20 44 4D 41 41 44 4C 20 20 3B 20 4C 53 42 |TA DMAADL ; LSB| 00000CB0: 20 4F 46 20 B5 45 52 4E 41 4C 20 41 44 44 52 45 | OF .ERNAL ADDRE| 00000CC0: 53 53 20 A4 20 41 43 43 45 53 53 00 01 11 9C 09 |SS . ACCESS.....| 00000CD0: 53 54 41 20 44 4D 41 4C 4F 20 20 20 3B 20 4C 53 |STA DMALO ; LS| 00000CE0: 42 20 4F 46 20 45 58 54 45 52 4E 41 4C 20 BD 41 |B OF EXTERNAL .A| 00000CF0: 4E 53 49 91 20 52 41 4D 20 A4 20 41 43 43 45 53 |NSI. RAM . ACCES| 00000D00: 53 00 37 11 A6 09 53 54 41 20 44 4D 41 4C 4F AA |S.7...STA DMALO.| 00000D10: 31 20 3B 20 4D 53 42 20 4F 46 20 45 58 54 45 52 |1 ; MSB OF EXTER| 00000D20: 4E 41 4C 20 BD 41 4E 53 49 91 20 52 41 4D 20 A4 |NAL .ANSI. RAM .| 00000D30: 20 41 43 43 45 53 53 00 5B 11 B0 09 53 54 41 20 | ACCESS.[...STA | 00000D40: 44 4D 41 44 41 4C 20 20 3B 20 4C 53 42 20 4F 46 |DMADAL ; LSB OF| 00000D50: 20 42 59 54 45 20 43 4F 55 4E 54 00 68 11 BA 09 | BYTE COUNT.h...| 00000D60: 4C 44 41 20 23 24 33 34 00 9A 11 C4 09 53 54 41 |LDA #$34.....STA| 00000D70: 20 44 4D 41 41 44 4C AA 31 20 3B 20 4D 53 42 20 | DMAADL.1 ; MSB | 00000D80: 4F 46 20 B5 45 52 4E 41 4C 20 41 44 44 52 45 53 |OF .ERNAL ADDRES| 00000D90: 53 20 A4 20 41 43 43 45 53 53 00 A7 11 CE 09 4C |S . ACCESS.....L| 00000DA0: 44 41 20 23 24 43 38 00 CD 11 D8 09 53 54 41 20 |DA #$C8.....STA | 00000DB0: 44 4D 41 44 41 4C AA 31 20 3B 20 4D 53 42 20 4F |DMADAL.1 ; MSB O| 00000DC0: 46 20 42 59 54 45 20 43 4F 55 4E 54 20 00 F7 11 |F BYTE COUNT ...| 00000DD0: E2 09 4C 44 58 20 23 25 30 30 31 31 31 31 31 31 |..LDX #%00111111| 00000DE0: 20 3B 20 53 45 54 20 81 20 52 41 4D 20 30 20 AF | ; SET . RAM 0 .| 00000DF0: 20 4B 45 52 4E 41 4C 00 10 12 EC 09 53 54 58 20 | KERNAL.....STX | 00000E00: 4D 4D 55 43 91 20 3B 20 4D 4D 55 20 9A 52 4F 4C |MMUC. ; MMU .ROL| 00000E10: 00 2C 12 F6 09 4C 44 58 20 23 30 20 3B 20 A7 20 |.,...LDX #0 ; . | 00000E20: 42 41 43 4B 20 A4 20 4E B0 4D 41 4C 00 45 12 00 |BACK . N.MAL.E..| 00000E30: 0A 53 54 58 20 4D 4D 55 43 91 20 3B 20 4D 4D 55 |.STX MMUC. ; MMU| 00000E40: 20 9A 52 4F 4C 00 4D 12 0A 0A 52 54 53 00 53 12 | .ROL.M...RTS.S.| 00000E50: 14 0A 3B 00 5A 12 1E 0A 2E 80 00 00 00 |..;.Z........ |
....... SAVE"0:GULP COPY.PAL",8.H.... ** 512K GULP BIT COPY FOR THE C128.F.... 8 ,8,1,"0:GULP COPY.OBJ".P.... 700.|....OP T O8.......$0B00...$.;.....RAMPTR . $FA ; (PTR),Y THROUGH RAM . ....8.NUMSEC . $FC ; NUMBER OF SEC.RS . ..WRITE...B. TSTBIT . $FE ; TEST SERIAL P.T STATUS. >.L.DLSDR . $DC0C ; SERIAL . REGISTER.I .V.DLICR . $DC0D ; .ERRUPT .ROL REGISTE R...`.D2PRA . $DD00 ; SERIAL P.T 6526 C IA 2.C.J.DMA. . $DF01 ; DMA .ROLLER STAT US REGISTER...T.DMAADL . $DF02 ; LSB OF .ERNAL ADDRESS . ACCESS.0.~.DMALO . $DF 04 ; LSB OF EXTERNAL .ANSI. RAM . ACCESS .[...DMABNK . $DF06 ; 64K EXTERNAL RAM B ANK.....DMADAL . $DF07 ; LSB OF BYTE COU NT.....MMUC. . $FF00 ; MMU .ROL.....SPNS PT . $FF47 ; SPIN.SPOUT SET UP FAST SER IAL P.T . I.O......CHN . $FFCC ; CLEAR A LL CHANNELS.....;.(.D..BYTE 76, .ENTRY1, .ENTRY1.G.N..BYTE 76, .ENTRY2, .ENTRY2. F.X..BYTE 76, .ENTRY3, .ENTRY3.L...;.... .; .. ENTRY PO. #1 . WRITE . TO DISK **. ....ENTRY1 . ..F...STA RAMPTR.1 ; HIGH R AM PTR.....STX NUMSEC ; # SEC.RS . WRI TE OUT.....SEI .....LDA #%01000000...(. STA TSTBIT .'.2.LDY #0 .-.<.;.:.F.M.E1 . ..B.P.SEC.K.Z.JSR SPNSPT ; SET UP FAST SERIAL P.T .Q.D.;...N.WATFST . ....X.LDA D2PRA ; SERIAL P.T 6526 CIA 2.J...CMP D 2PRA ; . . CHANGE OF STATE.Y...BNE WATFS T.....;... .E. TSTBIT ; TEST STATE...... #%01000000.....BEQ WATFST. ...;.J.H.LDX #%00111111 ; SET . RAM 0 . KERNAL.D.R.S TX MMUC. ; MMU .ROL .....LDA (RAMPTR),Y ; . FROM RAM.....LDX #0 ; SET BACK . N.M AL.....STX MMUC. ; MMU .ROL .....STA DLS DR ; SERIAL . REGISTER.....LDA TSTBIT... ..E. #%01000000 ; FLIP STATE.....STA TST BIT.'.".LDA #8 .-.,.;.8.6..1 . ..^.@.BIT DLICR ; .ERRUPT .ROL REGISTER.J.J.BEQ . 1 .P.T.;.Z.^.INY ...H.BNE WATFST...R.;. ..|.CLC .B...JSR SPNSPT ; SET UP FAST S ERIAL P.T .....BIT DLICR ; .ERRUPT .ROL REGISTER .....LDA D2PRA ; SERIAL P.T 652 6 CIA 2 ."....A #%00010000.0...STA D2PRA .<...LDA #8 .B.B.;.M.L..2 . ..S.V.BIT DL ICR ; .ERRUPT .ROL REGISTER....BEQ .2 . ....;.....LDA D2PRA ; SERIAL P.T 6526 CI A 2 ...... #%11101111.K...STA D2PRA..... DEC NUMSEC .....BEQ BACK1 ...&.;...0.INC RAMPTR.1 ...:.JMP M.E1 ...D.;.$.N.BACK1 . ..,.X.CLI.O.B.JSR .CHN ; CLEAR ALL CH ANNELS .Y.L.RTS ._.V.;.....; .. ENTRY P O. #2 . . . FROM DISK **.....ENTRY2 . .. ....STA RAMPTR.1 .....STX NUMSEC .I...ST Y RAMPTR .U...LDY #0 .....SEI ...F.BIT DLICR ; .ERRUPT .ROL REGISTER ...P.JSR . 1 ; . . FROM DISK WITHOUT WAIT.4.Z.;.A.. .M.E2 . ..^...JSR DSK. ; . . FROM DISK.D ...;.P....M. . ......JSR DSK. ; . . FROM DISK.....LDX #%00111111 ; FLIP . RAM 0 . KERNAL.R. .STX MMUC. ; MMU .ROL ...*.S TA (RAMPTR),Y ; S.RE BYTE IN RAM...4.LDX #0 ; BACK . N.MAL. .>.STX MMUC..(.H.INY .5.R.BNE .M. .;.\.;.B.F.DEC NUMSEC ; DEC REASE # SEC.RS . K...P.BEQ BACK2 ; . SE C.RS FINI . ....Z.;.....INC RAMPTR.1.... .JMP M.E2 .....;.....BACK2 . ..F...CLI.. ...JSR .CHN ; CLEAR ALL CHANNELS .....RT S...J.;...T.DSK. . ......LDA #8.....;. . ...3 . ..F...BIT DLICR ; .ERRUPT .ROL RE GISTER.Q...BEQ .3.W...;.B....1 . ....$.L DA D2PRA ; SERIAL P.T 6526 CIA 2.....E. #%00010000...8.STA D2PRA.J.B.LDA DLSDR ; SERIAL . REGISTER...L.RTS ; KT . - RETU RN...V.;...`.; .. ENTRY PO. #3 . INITIAL IZE C.FIGURATI. ...).J.ENTRY3 . ..X.T.ST A DMABNK ; 64K EXTERNAL RAM BANK (0 . 4) ...~.STX DMA. ; DMA .ROLLER STATUS REGIS TER (128 . 129).....LDA #0.K...STA DMAAD L ; LSB OF .ERNAL ADDRESS . ACCESS..... STA DMALO ; LSB OF EXTERNAL .ANSI. RAM . ACCESS.7...STA DMALO.1 ; MSB OF EXTER NAL .ANSI. RAM . ACCESS.[...STA DMADAL ; LSB OF BYTE COUNT.H...LDA #$34...D.STA DMAADL.1 ; MSB OF .ERNAL ADDRESS . ACCE SS...N.LDA #$C8.M.X.STA DMADAL.1 ; MSB O F BYTE COUNT .....LDX #%00111111 ; SET . RAM 0 . KERNAL.....STX MMUC. ; MMU .ROL .,...LDX #0 ; . BACK . N.MAL.E...STX MMU C. ; MMU .ROL.M...RTS.S...;.Z........
> CLICK IMAGE PREVIEW FOR FULL MODAL