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

P/SHVLOAD

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/SHVLOAD
Read OK:
File size: 0179 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10REMDIV16 COLOUR MODE 1 LOADER
   20*KEY10O.|MG.40|M
   30CALL!-4
   40:
   50ON ERROR PROCerror
   60*TV0,1
   70MODE1:MODE129
   80VDU23,1,0|
   90*16C1SRC
  100*FX108,0
  110*L. SHVPIC1 3000
  120*FX108,1
  130*L. SHVPIC2 3000
  140*FX14,4
  150REPEATUNTILFALSE
  160DEFPROCerror
  170*FX108,0
  180*FX113,1
  190COLOUR3
  200*FX112,2
  210PRINT"Interrupted for error ";ERR;" at line ";ERL
  220*FX112,1
  230VDU11
  240PRINT"Interrupted for error ";ERR;" at line ";ERL
  250END
  260ENDPROC

�16 COLOUR MODE 1 LOADER
*KEY10O.|MG.40|M
�!-4
(:
2� � �error
<
*TV0,1
F�1:�129
P�23,1,0|
Z*16C1SRC
d*FX108,0
n*L. SHVPIC1 3000
x*FX108,1
�*L. SHVPIC2 3000
�*FX14,4
����
���error
�*FX108,0
�*FX113,1
��3
�*FX112,2
�-�"Interrupted for error ";�;" at line ";�
�*FX112,1
��11
�-�"Interrupted for error ";�;" at line ";�
��
�
�
00000000  0d 00 0a 1d f4 81 31 36  20 43 4f 4c 4f 55 52 20  |......16 COLOUR |
00000010  4d 4f 44 45 20 31 20 4c  4f 41 44 45 52 0d 00 14  |MODE 1 LOADER...|
00000020  14 2a 4b 45 59 31 30 4f  2e 7c 4d 47 2e 34 30 7c  |.*KEY10O.|MG.40||
00000030  4d 0d 00 1e 08 d6 21 2d  34 0d 00 28 05 3a 0d 00  |M.....!-4..(.:..|
00000040  32 0e ee 20 85 20 f2 65  72 72 6f 72 0d 00 3c 0a  |2.. . .error..<.|
00000050  2a 54 56 30 2c 31 0d 00  46 0b eb 31 3a eb 31 32  |*TV0,1..F..1:.12|
00000060  39 0d 00 50 0c ef 32 33  2c 31 2c 30 7c 0d 00 5a  |9..P..23,1,0|..Z|
00000070  0c 2a 31 36 43 31 53 52  43 0d 00 64 0c 2a 46 58  |.*16C1SRC..d.*FX|
00000080  31 30 38 2c 30 0d 00 6e  14 2a 4c 2e 20 53 48 56  |108,0..n.*L. SHV|
00000090  50 49 43 31 20 33 30 30  30 0d 00 78 0c 2a 46 58  |PIC1 3000..x.*FX|
000000a0  31 30 38 2c 31 0d 00 82  14 2a 4c 2e 20 53 48 56  |108,1....*L. SHV|
000000b0  50 49 43 32 20 33 30 30  30 0d 00 8c 0b 2a 46 58  |PIC2 3000....*FX|
000000c0  31 34 2c 34 0d 00 96 07  f5 fd a3 0d 00 a0 0b dd  |14,4............|
000000d0  f2 65 72 72 6f 72 0d 00  aa 0c 2a 46 58 31 30 38  |.error....*FX108|
000000e0  2c 30 0d 00 b4 0c 2a 46  58 31 31 33 2c 31 0d 00  |,0....*FX113,1..|
000000f0  be 06 fb 33 0d 00 c8 0c  2a 46 58 31 31 32 2c 32  |...3....*FX112,2|
00000100  0d 00 d2 2d f1 22 49 6e  74 65 72 72 75 70 74 65  |...-."Interrupte|
00000110  64 20 66 6f 72 20 65 72  72 6f 72 20 22 3b 9f 3b  |d for error ";.;|
00000120  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 0d 00 dc  |" at line ";....|
00000130  0c 2a 46 58 31 31 32 2c  31 0d 00 e6 07 ef 31 31  |.*FX112,1.....11|
00000140  0d 00 f0 2d f1 22 49 6e  74 65 72 72 75 70 74 65  |...-."Interrupte|
00000150  64 20 66 6f 72 20 65 72  72 6f 72 20 22 3b 9f 3b  |d for error ";.;|
00000160  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 0d 00 fa  |" at line ";....|
00000170  05 e0 0d 01 04 05 e1 0d  ff                       |.........|
00000179
P/SHVLOAD.m0
P/SHVLOAD.m1
P/SHVLOAD.m2
P/SHVLOAD.m4
P/SHVLOAD.m5