P/LOADER

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_29.ADF » P/LOADER

P/LOADER

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_29.ADF
Filename:	P/LOADER
Read OK:	✔
File size:	04A5 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

File contents

   10REM Simple loader program
   20REM (C)1996 SPROW
   30MODE4:PRINT"Searching"
   40IF INKEY(-256)=253 THENPROCmaster:END ELSEPROCnotmaster:END
   50:
   60DEFPROCmaster
   70FORS%=7TO4 STEP-1
   80REM IFFNnotfree(S%)=FALSE THENOSCLI"SRLOAD R.SNAPIT 8000 "+STR$(S%):OSCLI"INSERT "+STR$(S%):PRINT:PRINT"Press CTRL-BREAK to initialise":ENDPROC
   81IFFNnotfree(S%)=FALSE THENOSCLI"SRLOAD SNAPIT 8000 "+STR$(S%):OSCLI"INSERT "+STR$(S%):PRINT:PRINT"Press CTRL-BREAK to initialise":ENDPROC
   90NEXT
  100PRINT:PRINT"No free sideways ram banks":ENDPROC
  110:
  120DEFPROCnotmaster
  130FORS%=15TO0 STEP-1
  140IFFNanyswram(S%)=TRUE THENPROCloader
  150NEXT
  160PRINT:PRINT"No free sideways ram banks":ENDPROC
  170:
  180DEFPROCloader
  190IFFNnotfree(S%)=TRUE THENENDPROC
  200OSCLI"LOAD R.SNAPIT 8000"
  210PRINT:PRINT"Press BREAK to initialise":END
  220:
  230DEFFNanyswram(socket)
  240CLEAR:DIM writeable% 128
  250P%=writeable%
  260FORX=0TO2STEP2
  270[OPTX
  280SEI:LDA&F4:PHA:LDA#socket:STA&F4:STA&FE30:\Set ROM reg to socket#
  290LDA&8000:PHA:CLC:ADC#1:STAcopy
  300.writeto
  310STA&8000:LDA&8000:CMPcopy
  320BEQtrue
  330.false
  340PLA:PLA:STA&F4:STA&FE30:LDA#0:RTS
  350.true
  360PLA:STA&8000:PLA:STA&F4:STA&FE30:LDA#1:RTS:]
  370NEXT
  380=USRwriteable% AND&FF
  390:
  400DEFFNnotfree(socket)
  410A%=170:X%=0:Y%=255:R%=USR&FFF4:REM Read pointer to start of ROM info table
  420X%=(R% AND &FF00)DIV&100
  430Y%=(R% AND &FF0000)DIV&10000
  440=?((256*Y%)+X%+socket)


� Simple loader program
� (C)1996 SPROW
�4:�"Searching"
(*� �(-256)=253 ��master:� ��notmaster:�
2:
<��master
F�S%=7�4 �-1
P�� IFFNnotfree(S%)=FALSE THENOSCLI"SRLOAD R.SNAPIT 8000 "+STR$(S%):OSCLI"INSERT "+STR$(S%):PRINT:PRINT"Press CTRL-BREAK to initialise":ENDPROC
Qh�notfree(S%)=� ��"SRLOAD SNAPIT 8000 "+�(S%):�"INSERT "+�(S%):�:�"Press CTRL-BREAK to initialise":�
Z�
d%�:�"No free sideways ram banks":�
n:
x��notmaster
��S%=15�0 �-1
��anyswram(S%)=� ��loader
��
�%�:�"No free sideways ram banks":�
�:
���loader
��notfree(S%)=� ��
��"LOAD R.SNAPIT 8000"
�$�:�"Press BREAK to initialise":�
�:
�ݤanyswram(socket)
��:� writeable% 128
�P%=writeable%
�X=0�2�2
	[OPTX
ESEI:LDA&F4:PHA:LDA#socket:STA&F4:STA&FE30:\Set ROM reg to socket#
""LDA&8000:PHA:CLC:ADC#1:STAcopy
,.writeto
6STA&8000:LDA&8000:CMPcopy
@BEQtrue
J
.false
T%PLA:PLA:STA&F4:STA&FE30:LDA#0:RTS
^	.true
h0PLA:STA&8000:PLA:STA&F4:STA&FE30:LDA#1:RTS:]
r�
|=�writeable% �&FF
�:
�ݤnotfree(socket)
�JA%=170:X%=0:Y%=255:R%=�&FFF4:� Read pointer to start of ROM info table
�X%=(R% � &FF00)�&100
�Y%=(R% � &FF0000)�&10000
�=?((256*Y%)+X%+socket)
�

00000000  0d 00 0a 1b f4 20 53 69  6d 70 6c 65 20 6c 6f 61  |..... Simple loa|
00000010  64 65 72 20 70 72 6f 67  72 61 6d 0d 00 14 13 f4  |der program.....|
00000020  20 28 43 29 31 39 39 36  20 53 50 52 4f 57 0d 00  | (C)1996 SPROW..|
00000030  1e 13 eb 34 3a f1 22 53  65 61 72 63 68 69 6e 67  |...4:."Searching|
00000040  22 0d 00 28 2a e7 20 a6  28 2d 32 35 36 29 3d 32  |"..(*. .(-256)=2|
00000050  35 33 20 8c f2 6d 61 73  74 65 72 3a e0 20 8b f2  |53 ..master:. ..|
00000060  6e 6f 74 6d 61 73 74 65  72 3a e0 0d 00 32 05 3a  |notmaster:...2.:|
00000070  0d 00 3c 0c dd f2 6d 61  73 74 65 72 0d 00 46 0f  |..<...master..F.|
00000080  e3 53 25 3d 37 b8 34 20  88 2d 31 0d 00 50 91 f4  |.S%=7.4 .-1..P..|
00000090  20 49 46 46 4e 6e 6f 74  66 72 65 65 28 53 25 29  | IFFNnotfree(S%)|
000000a0  3d 46 41 4c 53 45 20 54  48 45 4e 4f 53 43 4c 49  |=FALSE THENOSCLI|
000000b0  22 53 52 4c 4f 41 44 20  52 2e 53 4e 41 50 49 54  |"SRLOAD R.SNAPIT|
000000c0  20 38 30 30 30 20 22 2b  53 54 52 24 28 53 25 29  | 8000 "+STR$(S%)|
000000d0  3a 4f 53 43 4c 49 22 49  4e 53 45 52 54 20 22 2b  |:OSCLI"INSERT "+|
000000e0  53 54 52 24 28 53 25 29  3a 50 52 49 4e 54 3a 50  |STR$(S%):PRINT:P|
000000f0  52 49 4e 54 22 50 72 65  73 73 20 43 54 52 4c 2d  |RINT"Press CTRL-|
00000100  42 52 45 41 4b 20 74 6f  20 69 6e 69 74 69 61 6c  |BREAK to initial|
00000110  69 73 65 22 3a 45 4e 44  50 52 4f 43 0d 00 51 68  |ise":ENDPROC..Qh|
00000120  e7 a4 6e 6f 74 66 72 65  65 28 53 25 29 3d a3 20  |..notfree(S%)=. |
00000130  8c ff 22 53 52 4c 4f 41  44 20 53 4e 41 50 49 54  |.."SRLOAD SNAPIT|
00000140  20 38 30 30 30 20 22 2b  c3 28 53 25 29 3a ff 22  | 8000 "+.(S%):."|
00000150  49 4e 53 45 52 54 20 22  2b c3 28 53 25 29 3a f1  |INSERT "+.(S%):.|
00000160  3a f1 22 50 72 65 73 73  20 43 54 52 4c 2d 42 52  |:."Press CTRL-BR|
00000170  45 41 4b 20 74 6f 20 69  6e 69 74 69 61 6c 69 73  |EAK to initialis|
00000180  65 22 3a e1 0d 00 5a 05  ed 0d 00 64 25 f1 3a f1  |e":...Z....d%.:.|
00000190  22 4e 6f 20 66 72 65 65  20 73 69 64 65 77 61 79  |"No free sideway|
000001a0  73 20 72 61 6d 20 62 61  6e 6b 73 22 3a e1 0d 00  |s ram banks":...|
000001b0  6e 05 3a 0d 00 78 0f dd  f2 6e 6f 74 6d 61 73 74  |n.:..x...notmast|
000001c0  65 72 0d 00 82 10 e3 53  25 3d 31 35 b8 30 20 88  |er.....S%=15.0 .|
000001d0  2d 31 0d 00 8c 1d e7 a4  61 6e 79 73 77 72 61 6d  |-1......anyswram|
000001e0  28 53 25 29 3d b9 20 8c  f2 6c 6f 61 64 65 72 0d  |(S%)=. ..loader.|
000001f0  00 96 05 ed 0d 00 a0 25  f1 3a f1 22 4e 6f 20 66  |.......%.:."No f|
00000200  72 65 65 20 73 69 64 65  77 61 79 73 20 72 61 6d  |ree sideways ram|
00000210  20 62 61 6e 6b 73 22 3a  e1 0d 00 aa 05 3a 0d 00  | banks":.....:..|
00000220  b4 0c dd f2 6c 6f 61 64  65 72 0d 00 be 16 e7 a4  |....loader......|
00000230  6e 6f 74 66 72 65 65 28  53 25 29 3d b9 20 8c e1  |notfree(S%)=. ..|
00000240  0d 00 c8 19 ff 22 4c 4f  41 44 20 52 2e 53 4e 41  |....."LOAD R.SNA|
00000250  50 49 54 20 38 30 30 30  22 0d 00 d2 24 f1 3a f1  |PIT 8000"...$.:.|
00000260  22 50 72 65 73 73 20 42  52 45 41 4b 20 74 6f 20  |"Press BREAK to |
00000270  69 6e 69 74 69 61 6c 69  73 65 22 3a e0 0d 00 dc  |initialise":....|
00000280  05 3a 0d 00 e6 16 dd a4  61 6e 79 73 77 72 61 6d  |.:......anyswram|
00000290  28 73 6f 63 6b 65 74 29  0d 00 f0 16 d8 3a de 20  |(socket).....:. |
000002a0  77 72 69 74 65 61 62 6c  65 25 20 31 32 38 0d 00  |writeable% 128..|
000002b0  fa 11 50 25 3d 77 72 69  74 65 61 62 6c 65 25 0d  |..P%=writeable%.|
000002c0  01 04 0c e3 58 3d 30 b8  32 88 32 0d 01 0e 09 5b  |....X=0.2.2....[|
000002d0  4f 50 54 58 0d 01 18 45  53 45 49 3a 4c 44 41 26  |OPTX...ESEI:LDA&|
000002e0  46 34 3a 50 48 41 3a 4c  44 41 23 73 6f 63 6b 65  |F4:PHA:LDA#socke|
000002f0  74 3a 53 54 41 26 46 34  3a 53 54 41 26 46 45 33  |t:STA&F4:STA&FE3|
00000300  30 3a 5c 53 65 74 20 52  4f 4d 20 72 65 67 20 74  |0:\Set ROM reg t|
00000310  6f 20 73 6f 63 6b 65 74  23 0d 01 22 22 4c 44 41  |o socket#..""LDA|
00000320  26 38 30 30 30 3a 50 48  41 3a 43 4c 43 3a 41 44  |&8000:PHA:CLC:AD|
00000330  43 23 31 3a 53 54 41 63  6f 70 79 0d 01 2c 0c 2e  |C#1:STAcopy..,..|
00000340  77 72 69 74 65 74 6f 0d  01 36 1d 53 54 41 26 38  |writeto..6.STA&8|
00000350  30 30 30 3a 4c 44 41 26  38 30 30 30 3a 43 4d 50  |000:LDA&8000:CMP|
00000360  63 6f 70 79 0d 01 40 0b  42 45 51 74 72 75 65 0d  |copy..@.BEQtrue.|
00000370  01 4a 0a 2e 66 61 6c 73  65 0d 01 54 25 50 4c 41  |.J..false..T%PLA|
00000380  3a 50 4c 41 3a 53 54 41  26 46 34 3a 53 54 41 26  |:PLA:STA&F4:STA&|
00000390  46 45 33 30 3a 4c 44 41  23 30 3a 52 54 53 0d 01  |FE30:LDA#0:RTS..|
000003a0  5e 09 2e 74 72 75 65 0d  01 68 30 50 4c 41 3a 53  |^..true..h0PLA:S|
000003b0  54 41 26 38 30 30 30 3a  50 4c 41 3a 53 54 41 26  |TA&8000:PLA:STA&|
000003c0  46 34 3a 53 54 41 26 46  45 33 30 3a 4c 44 41 23  |F4:STA&FE30:LDA#|
000003d0  31 3a 52 54 53 3a 5d 0d  01 72 05 ed 0d 01 7c 15  |1:RTS:]..r....|.|
000003e0  3d ba 77 72 69 74 65 61  62 6c 65 25 20 80 26 46  |=.writeable% .&F|
000003f0  46 0d 01 86 05 3a 0d 01  90 15 dd a4 6e 6f 74 66  |F....:......notf|
00000400  72 65 65 28 73 6f 63 6b  65 74 29 0d 01 9a 4a 41  |ree(socket)...JA|
00000410  25 3d 31 37 30 3a 58 25  3d 30 3a 59 25 3d 32 35  |%=170:X%=0:Y%=25|
00000420  35 3a 52 25 3d ba 26 46  46 46 34 3a f4 20 52 65  |5:R%=.&FFF4:. Re|
00000430  61 64 20 70 6f 69 6e 74  65 72 20 74 6f 20 73 74  |ad pointer to st|
00000440  61 72 74 20 6f 66 20 52  4f 4d 20 69 6e 66 6f 20  |art of ROM info |
00000450  74 61 62 6c 65 0d 01 a4  18 58 25 3d 28 52 25 20  |table....X%=(R% |
00000460  80 20 26 46 46 30 30 29  81 26 31 30 30 0d 01 ae  |. &FF00).&100...|
00000470  1c 59 25 3d 28 52 25 20  80 20 26 46 46 30 30 30  |.Y%=(R% . &FF000|
00000480  30 29 81 26 31 30 30 30  30 0d 01 b8 1a 3d 3f 28  |0).&10000....=?(|
00000490  28 32 35 36 2a 59 25 29  2b 58 25 2b 73 6f 63 6b  |(256*Y%)+X%+sock|
000004a0  65 74 29 0d ff                                    |et)..|
000004a5

P/LOADER.m0

P/LOADER.m1

P/LOADER.m2

P/LOADER.m4

P/LOADER.m5

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