P/UNLOCK

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » P/UNLOCK

P/UNLOCK

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF
Filename:	P/UNLOCK
Read OK:	✔
File size:	0151 bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » eug » eug_5_25_discs_Eug-18_D-EUG18.dsd » U.UNLOCKR
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » P/UNLOCK

File contents

   10REM***********************
   20REM Tape file unlocker
   30REM re-locate as needed
   40REM (C) H. M. GUPPY
   50REM     June 1989
   60REM***********************
   70REM
   80HIMEM=HIMEM-&22
   90FOR I%=0 TO 2 STEP 2
  100P%=HIMEM
  110[OPT I%
  120PHP:PHA:TXA:PHA:TYA:PHA
  130LDA&3CA
  140AND #&FE
  150STA&3CA
  160PLA:TAY:PLA:TAX:PLA:PLP:RTS
  170]
  180NEXT
  190?&220=&DE
  200?&221=&5F
  210*FX14,4


�***********************
� Tape file unlocker
� re-locate as needed
(� (C) H. M. GUPPY
2�     June 1989
<�***********************
F�
P�=�-&22
Z� I%=0 � 2 � 2
dP%=�
n[OPT I%
xPHP:PHA:TXA:PHA:TYA:PHA
�LDA&3CA
�
� #&FE
�STA&3CA
�PLA:TAY:PLA:TAX:PLA:PLP:RTS
�]
��
�
?&220=&DE
�
?&221=&5F
�*FX14,4
�

00000000  0d 00 0a 1c f4 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.....***********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 14 18  |************....|
00000020  f4 20 54 61 70 65 20 66  69 6c 65 20 75 6e 6c 6f  |. Tape file unlo|
00000030  63 6b 65 72 0d 00 1e 19  f4 20 72 65 2d 6c 6f 63  |cker..... re-loc|
00000040  61 74 65 20 61 73 20 6e  65 65 64 65 64 0d 00 28  |ate as needed..(|
00000050  15 f4 20 28 43 29 20 48  2e 20 4d 2e 20 47 55 50  |.. (C) H. M. GUP|
00000060  50 59 0d 00 32 13 f4 20  20 20 20 20 4a 75 6e 65  |PY..2..     June|
00000070  20 31 39 38 39 0d 00 3c  1c f4 2a 2a 2a 2a 2a 2a  | 1989..<..******|
00000080  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000090  2a 0d 00 46 05 f4 0d 00  50 0b d3 3d 93 2d 26 32  |*..F....P..=.-&2|
000000a0  32 0d 00 5a 12 e3 20 49  25 3d 30 20 b8 20 32 20  |2..Z.. I%=0 . 2 |
000000b0  88 20 32 0d 00 64 08 50  25 3d 93 0d 00 6e 0b 5b  |. 2..d.P%=...n.[|
000000c0  4f 50 54 20 49 25 0d 00  78 1b 50 48 50 3a 50 48  |OPT I%..x.PHP:PH|
000000d0  41 3a 54 58 41 3a 50 48  41 3a 54 59 41 3a 50 48  |A:TXA:PHA:TYA:PH|
000000e0  41 0d 00 82 0b 4c 44 41  26 33 43 41 0d 00 8c 0a  |A....LDA&3CA....|
000000f0  80 20 23 26 46 45 0d 00  96 0b 53 54 41 26 33 43  |. #&FE....STA&3C|
00000100  41 0d 00 a0 1f 50 4c 41  3a 54 41 59 3a 50 4c 41  |A....PLA:TAY:PLA|
00000110  3a 54 41 58 3a 50 4c 41  3a 50 4c 50 3a 52 54 53  |:TAX:PLA:PLP:RTS|
00000120  0d 00 aa 05 5d 0d 00 b4  05 ed 0d 00 be 0d 3f 26  |....].........?&|
00000130  32 32 30 3d 26 44 45 0d  00 c8 0d 3f 26 32 32 31  |220=&DE....?&221|
00000140  3d 26 35 46 0d 00 d2 0b  2a 46 58 31 34 2c 34 0d  |=&5F....*FX14,4.|
00000150  ff                                                |.|
00000151

P/UNLOCK.m0

P/UNLOCK.m1

P/UNLOCK.m2

P/UNLOCK.m4

P/UNLOCK.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .