P/IBMaker

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_22.ADF » P/IBMaker

P/IBMaker

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_22.ADF
Filename:	P/IBMaker
Read OK:	✔
File size:	01FE bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

Duplicates

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

AEW website » eug » eug_5_25_discs_Eug-22_D-EUG22.dsd » U.IBMAKER
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_22.ADF » P/IBMaker

File contents

   10REM Invisible BOOT maker
   20REM by Richard Dimond
   30REM
   40MODE6
   50PROCassem
   60!&3000=&01170011
   70!&3004=0
   80!&3008=0
   90$fname="!BOOT"
  100*LOAD !BOOT 300C
  110CALL&900
  120addr=&300C+block!10-1
  130!addr=&000D0111
  140OSCLI"SAVE !BOOT 3000 "+STR$~(addr+3)+" 00000000 FFFFFFFF"
  150END
  160DEFPROCassem
  170osfile=&FFDD
  180FORpass=0TO2STEP2
  190P%=&900
  200[OPTpass
  210.read_cat
  220LDA#5
  230LDX#block MOD256
  240LDY#block DIV256
  250JSRosfile
  260RTS
  270.block
  280EQUWfname
  290EQUD0
  300EQUD0
  310EQUD0
  320EQUD0
  330.fname
  340EQUS STRING$(11,CHR$0)
  350]
  360NEXT
  370ENDPROC


� Invisible BOOT maker
� by Richard Dimond
�
(�6
2
�assem
<!&3000=&01170011
F!&3004=0
P!&3008=0
Z$fname="!BOOT"
d*LOAD !BOOT 300C
n	�&900
xaddr=&300C+block!10-1
�!addr=&000D0111
�7�"SAVE !BOOT 3000 "+�~(addr+3)+" 00000000 FFFFFFFF"
��
���assem
�osfile=&FFDD
��pass=0�2�2
�P%=&900
�[OPTpass
�
.read_cat
�	LDA#5
�LDX#block �256
�LDY#block �256
�
JSRosfile
RTS

.block

EQUWfname
"	EQUD0
,	EQUD0
6	EQUD0
@	EQUD0
J
.fname
TEQUS �11,�0)
^]
h�
r�
�

00000000  0d 00 0a 1a f4 20 49 6e  76 69 73 69 62 6c 65 20  |..... Invisible |
00000010  42 4f 4f 54 20 6d 61 6b  65 72 0d 00 14 17 f4 20  |BOOT maker..... |
00000020  62 79 20 52 69 63 68 61  72 64 20 44 69 6d 6f 6e  |by Richard Dimon|
00000030  64 0d 00 1e 05 f4 0d 00  28 06 eb 36 0d 00 32 0a  |d.......(..6..2.|
00000040  f2 61 73 73 65 6d 0d 00  3c 14 21 26 33 30 30 30  |.assem..<.!&3000|
00000050  3d 26 30 31 31 37 30 30  31 31 0d 00 46 0c 21 26  |=&01170011..F.!&|
00000060  33 30 30 34 3d 30 0d 00  50 0c 21 26 33 30 30 38  |3004=0..P.!&3008|
00000070  3d 30 0d 00 5a 12 24 66  6e 61 6d 65 3d 22 21 42  |=0..Z.$fname="!B|
00000080  4f 4f 54 22 0d 00 64 14  2a 4c 4f 41 44 20 21 42  |OOT"..d.*LOAD !B|
00000090  4f 4f 54 20 33 30 30 43  0d 00 6e 09 d6 26 39 30  |OOT 300C..n..&90|
000000a0  30 0d 00 78 19 61 64 64  72 3d 26 33 30 30 43 2b  |0..x.addr=&300C+|
000000b0  62 6c 6f 63 6b 21 31 30  2d 31 0d 00 82 13 21 61  |block!10-1....!a|
000000c0  64 64 72 3d 26 30 30 30  44 30 31 31 31 0d 00 8c  |ddr=&000D0111...|
000000d0  37 ff 22 53 41 56 45 20  21 42 4f 4f 54 20 33 30  |7."SAVE !BOOT 30|
000000e0  30 30 20 22 2b c3 7e 28  61 64 64 72 2b 33 29 2b  |00 "+.~(addr+3)+|
000000f0  22 20 30 30 30 30 30 30  30 30 20 46 46 46 46 46  |" 00000000 FFFFF|
00000100  46 46 46 22 0d 00 96 05  e0 0d 00 a0 0b dd f2 61  |FFF"...........a|
00000110  73 73 65 6d 0d 00 aa 10  6f 73 66 69 6c 65 3d 26  |ssem....osfile=&|
00000120  46 46 44 44 0d 00 b4 0f  e3 70 61 73 73 3d 30 b8  |FFDD.....pass=0.|
00000130  32 88 32 0d 00 be 0b 50  25 3d 26 39 30 30 0d 00  |2.2....P%=&900..|
00000140  c8 0c 5b 4f 50 54 70 61  73 73 0d 00 d2 0d 2e 72  |..[OPTpass.....r|
00000150  65 61 64 5f 63 61 74 0d  00 dc 09 4c 44 41 23 35  |ead_cat....LDA#5|
00000160  0d 00 e6 12 4c 44 58 23  62 6c 6f 63 6b 20 83 32  |....LDX#block .2|
00000170  35 36 0d 00 f0 12 4c 44  59 23 62 6c 6f 63 6b 20  |56....LDY#block |
00000180  81 32 35 36 0d 00 fa 0d  4a 53 52 6f 73 66 69 6c  |.256....JSRosfil|
00000190  65 0d 01 04 07 52 54 53  0d 01 0e 0a 2e 62 6c 6f  |e....RTS.....blo|
000001a0  63 6b 0d 01 18 0d 45 51  55 57 66 6e 61 6d 65 0d  |ck....EQUWfname.|
000001b0  01 22 09 45 51 55 44 30  0d 01 2c 09 45 51 55 44  |.".EQUD0..,.EQUD|
000001c0  30 0d 01 36 09 45 51 55  44 30 0d 01 40 09 45 51  |0..6.EQUD0..@.EQ|
000001d0  55 44 30 0d 01 4a 0a 2e  66 6e 61 6d 65 0d 01 54  |UD0..J..fname..T|
000001e0  10 45 51 55 53 20 c4 31  31 2c bd 30 29 0d 01 5e  |.EQUS .11,.0)..^|
000001f0  05 5d 0d 01 68 05 ed 0d  01 72 05 e1 0d ff        |.]..h....r....|
000001fe

P/IBMaker.m0

P/IBMaker.m1

P/IBMaker.m2

P/IBMaker.m4

P/IBMaker.m5

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