Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars » Rambles/!Split/Resources/ToggleDRAG
Rambles/!Split/Resources/ToggleDRAG
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 1997-01 B.adf » Regulars |
| Filename: | Rambles/!Split/Resources/ToggleDRAG |
| Read OK: | ✔ |
| File size: | 00DD bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Toggle state of 'DragASprite' bit in CMOS 20 30REM Read byte 40SYS "OS_Byte",161,&1C TO ,,byte% 50REM EOR byte with mask for bit 1 60byte% = byte% EOR %10 70REM Write byte back again 80SYS "OS_Byte",162,&1C,byte% 90END
/� Toggle state of 'DragASprite' bit in CMOS
� Read byte
("ș "OS_Byte",161,&1C � ,,byte%
2"� EOR byte with mask for bit 1
<byte% = byte% � %10
F� Write byte back again
P ș "OS_Byte",162,&1C,byte%
Z�
� 00000000 0d 00 0a 2f f4 20 54 6f 67 67 6c 65 20 73 74 61 |.../. Toggle sta|
00000010 74 65 20 6f 66 20 27 44 72 61 67 41 53 70 72 69 |te of 'DragASpri|
00000020 74 65 27 20 62 69 74 20 69 6e 20 43 4d 4f 53 0d |te' bit in CMOS.|
00000030 00 14 04 0d 00 1e 0f f4 20 52 65 61 64 20 62 79 |........ Read by|
00000040 74 65 0d 00 28 22 c8 99 20 22 4f 53 5f 42 79 74 |te..(".. "OS_Byt|
00000050 65 22 2c 31 36 31 2c 26 31 43 20 b8 20 2c 2c 62 |e",161,&1C . ,,b|
00000060 79 74 65 25 0d 00 32 22 f4 20 45 4f 52 20 62 79 |yte%..2". EOR by|
00000070 74 65 20 77 69 74 68 20 6d 61 73 6b 20 66 6f 72 |te with mask for|
00000080 20 62 69 74 20 31 0d 00 3c 17 62 79 74 65 25 20 | bit 1..<.byte% |
00000090 3d 20 62 79 74 65 25 20 82 20 25 31 30 0d 00 46 |= byte% . %10..F|
000000a0 1b f4 20 57 72 69 74 65 20 62 79 74 65 20 62 61 |.. Write byte ba|
000000b0 63 6b 20 61 67 61 69 6e 0d 00 50 1e c8 99 20 22 |ck again..P... "|
000000c0 4f 53 5f 42 79 74 65 22 2c 31 36 32 2c 26 31 43 |OS_Byte",162,&1C|
000000d0 2c 62 79 74 65 25 0d 00 5a 05 e0 0d ff |,byte%..Z....|
000000dd 
.