Home » Archimedes archive » Acorn User » AU 1995-03.adf » !StarInfo_StarInfo » Bagnall/QT+/!QuickType/Libraries/DataBlock
Bagnall/QT+/!QuickType/Libraries/DataBlock
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 » Archimedes archive » Acorn User » AU 1995-03.adf » !StarInfo_StarInfo |
| Filename: | Bagnall/QT+/!QuickType/Libraries/DataBlock |
| Read OK: | ✔ |
| File size: | 014A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM datablock - assists in setting up parameter blocks
2REM Supports
3REM PROCw - dumps five words into consecutive addresses
4REM PROCs - dumps a string at ptr (CR terminated)
5
6DEFPROCw(ptr%,a%,b%,c%,d%,e%,f%)
7!ptr%=a% : ptr%!4=b% : ptr%!8=c%
8ptr%!12=d% : ptr%!16=e% : ptr%!20=f%:ENDPROC
9
10DEFPROCs(ptr%,s$):$(ptr%)=s$:ENDPROC
8� datablock - assists in setting up parameter blocks � Supports ;� PROCw - dumps five words into consecutive addresses 5� PROCs - dumps a string at ptr (CR terminated) ��w(ptr%,a%,b%,c%,d%,e%,f%) $!ptr%=a% : ptr%!4=b% : ptr%!8=c% *ptr%!12=d% : ptr%!16=e% : ptr%!20=f%:� ��s(ptr%,s$):$(ptr%)=s$:� �
00000000 0d 00 01 38 f4 20 64 61 74 61 62 6c 6f 63 6b 20 |...8. datablock | 00000010 2d 20 61 73 73 69 73 74 73 20 69 6e 20 73 65 74 |- assists in set| 00000020 74 69 6e 67 20 75 70 20 70 61 72 61 6d 65 74 65 |ting up paramete| 00000030 72 20 62 6c 6f 63 6b 73 0d 00 02 0e f4 20 53 75 |r blocks..... Su| 00000040 70 70 6f 72 74 73 0d 00 03 3b f4 20 20 20 50 52 |pports...;. PR| 00000050 4f 43 77 20 2d 20 64 75 6d 70 73 20 66 69 76 65 |OCw - dumps five| 00000060 20 77 6f 72 64 73 20 69 6e 74 6f 20 63 6f 6e 73 | words into cons| 00000070 65 63 75 74 69 76 65 20 61 64 64 72 65 73 73 65 |ecutive addresse| 00000080 73 0d 00 04 35 f4 20 20 20 50 52 4f 43 73 20 2d |s...5. PROCs -| 00000090 20 64 75 6d 70 73 20 61 20 73 74 72 69 6e 67 20 | dumps a string | 000000a0 61 74 20 70 74 72 20 28 43 52 20 74 65 72 6d 69 |at ptr (CR termi| 000000b0 6e 61 74 65 64 29 0d 00 05 04 0d 00 06 1f dd f2 |nated)..........| 000000c0 77 28 70 74 72 25 2c 61 25 2c 62 25 2c 63 25 2c |w(ptr%,a%,b%,c%,| 000000d0 64 25 2c 65 25 2c 66 25 29 0d 00 07 24 21 70 74 |d%,e%,f%)...$!pt| 000000e0 72 25 3d 61 25 20 3a 20 70 74 72 25 21 34 3d 62 |r%=a% : ptr%!4=b| 000000f0 25 20 3a 20 70 74 72 25 21 38 3d 63 25 0d 00 08 |% : ptr%!8=c%...| 00000100 2a 70 74 72 25 21 31 32 3d 64 25 20 3a 20 70 74 |*ptr%!12=d% : pt| 00000110 72 25 21 31 36 3d 65 25 20 3a 20 70 74 72 25 21 |r%!16=e% : ptr%!| 00000120 32 30 3d 66 25 3a e1 0d 00 09 04 0d 00 0a 1d dd |20=f%:..........| 00000130 f2 73 28 70 74 72 25 2c 73 24 29 3a 24 28 70 74 |.s(ptr%,s$):$(pt| 00000140 72 25 29 3d 73 24 3a e1 0d ff |r%)=s$:...| 0000014a
.