Home » Personal collection » Acorn DFS disks » dfs_box04_disk09b_rgs_robotics_1.scp » PICKUP
PICKUP
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 DFS disks » dfs_box04_disk09b_rgs_robotics_1.scp |
| Filename: | PICKUP |
| Read OK: | ❌ |
| File size: | 13C1 bytes |
| Load address: | FF1900 |
| Exec address: | FF8023 |
File contents
� INTERFACE DRIVER 1 � FISCHER COMPUTING <--> ACORN BBC COMPUTER 1 � COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 ^ � Use the following commands to control your FISCHERTECHNIK model with your Acorn Model B # � ( � * * COMMANDS * * - � -=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=-nstead of "M1" you may also use M2, M3 or M4 _ � - FNUSR (E1) dL � Returns a '0' or a '1' depending on the current state of the switch iD � Instead of 'E1' you may also use any of the keys 'E2' to 'E8' n � - FNUSR (EX) sO � Returns a value depending on the current position of the potentiometer xS � Instead of 'EX' you can also use 'EY' to obtain a value from potentiometer Y } � drr=&62 � � up=&60 � � til=&68 � � tih=&69 � � tic=&6B � � avar=&80 � � mask=&81 � � buff=&82 � � a-=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=-3,HALT% :� MAGNET OFF � � NOMINAL_VALUE=ARM(2) � �DxE � �TdD ! � POSITIONAL CONTROL ROUTINE � D=�USR(EY)-NOMINAL_VALUE ( � D>0 � � M1,CW% 2 � D<0 � � M1,CCW% < � D=0 � � F � D=�(D) P � D>3 � � �T^E Z � M1,HALT% d � �T^E n � x% � POSITIONAL CONTROL ROUTINE ARM � � D=�USR(EX)-NOMINAL_VALUE � � D>0 � � M2,CW% � � D<0 � � M2,CCW% � � D=0 � � � � D=�(D) � � D>20 � � �DxE � � M2,HALT% � �DxE � � �
00000000 0d 00 0a 17 20 f4 20 49 4e 54 45 52 46 41 43 45 |.... . INTERFACE| 00000010 20 44 52 49 56 45 52 0d 00 0f 31 20 f4 20 46 49 | DRIVER...1 . FI| 00000020 53 43 48 45 52 20 43 4f 4d 50 55 54 49 4e 47 20 |SCHER COMPUTING | 00000030 3c 2d 2d 3e 20 41 43 4f 52 4e 20 20 42 42 43 20 |<--> ACORN BBC | 00000040 43 4f 4d 50 55 54 45 52 0d 00 14 31 20 f4 20 43 |COMPUTER...1 . C| 00000050 4f 50 59 52 49 47 48 54 20 28 43 29 20 41 52 54 |OPYRIGHT (C) ART| 00000060 55 52 20 46 49 53 43 48 45 52 20 46 4f 52 53 43 |UR FISCHER FORSC| 00000070 48 55 4e 47 20 31 39 38 34 0d 00 1e 5e 20 f4 20 |HUNG 1984...^ . | 00000080 55 73 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e |Use the followin| 00000090 67 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 63 6f |g commands to co| 000000a0 6e 74 72 6f 6c 20 79 6f 75 72 20 46 49 53 43 48 |ntrol your FISCH| 000000b0 45 52 54 45 43 48 4e 49 4b 20 6d 6f 64 65 6c 20 |ERTECHNIK model | 000000c0 77 69 74 68 20 79 6f 75 72 20 41 63 6f 72 6e 20 |with your Acorn | 000000d0 4d 6f 64 65 6c 20 42 0d 00 23 07 20 f4 20 0d 00 |Model B..#. . ..| 000000e0 28 1b 20 f4 20 20 20 20 20 2a 20 2a 20 43 4f 4d |(. . * * COM| 000000f0 4d 41 4e 44 53 20 2a 20 2a 0d 00 2d 07 20 f4 20 |MANDS * *..-. . | 00000100 2d 3d 5b 42 41 44 20 53 45 43 54 4f 52 5d 3d 2d |-=[BAD SECTOR]=-| * 00000200 6e 73 74 65 61 64 20 6f 66 20 22 4d 31 22 20 79 |nstead of "M1" y| 00000210 6f 75 20 6d 61 79 20 61 6c 73 6f 20 75 73 65 20 |ou may also use | 00000220 4d 32 2c 20 4d 33 20 6f 72 20 4d 34 0d 00 5f 14 |M2, M3 or M4.._.| 00000230 20 f4 20 2d 20 46 4e 55 53 52 20 28 45 31 29 20 | . - FNUSR (E1) | 00000240 0d 00 64 4c 20 f4 20 20 20 52 65 74 75 72 6e 73 |..dL . Returns| 00000250 20 61 20 27 30 27 20 6f 72 20 61 20 27 31 27 20 | a '0' or a '1' | 00000260 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 |depending on the| 00000270 20 63 75 72 72 65 6e 74 20 73 74 61 74 65 20 6f | current state o| 00000280 66 20 74 68 65 20 73 77 69 74 63 68 0d 00 69 44 |f the switch..iD| 00000290 20 f4 20 49 6e 73 74 65 61 64 20 6f 66 20 27 45 | . Instead of 'E| 000002a0 31 27 20 79 6f 75 20 6d 61 79 20 61 6c 73 6f 20 |1' you may also | 000002b0 75 73 65 20 61 6e 79 20 6f 66 20 74 68 65 20 6b |use any of the k| 000002c0 65 79 73 20 27 45 32 27 20 74 6f 20 27 45 38 27 |eys 'E2' to 'E8'| 000002d0 0d 00 6e 13 20 f4 20 2d 20 46 4e 55 53 52 20 28 |..n. . - FNUSR (| 000002e0 45 58 29 0d 00 73 4f 20 f4 20 20 20 52 65 74 75 |EX)..sO . Retu| 000002f0 72 6e 73 20 61 20 76 61 6c 75 65 20 64 65 70 65 |rns a value depe| 00000300 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 63 75 72 |nding on the cur| 00000310 72 65 6e 74 20 70 6f 73 69 74 69 6f 6e 20 6f 66 |rent position of| 00000320 20 74 68 65 20 70 6f 74 65 6e 74 69 6f 6d 65 74 | the potentiomet| 00000330 65 72 0d 00 78 53 20 f4 20 49 6e 73 74 65 61 64 |er..xS . Instead| 00000340 20 6f 66 20 27 45 58 27 20 79 6f 75 20 63 61 6e | of 'EX' you can| 00000350 20 61 6c 73 6f 20 75 73 65 20 27 45 59 27 20 74 | also use 'EY' t| 00000360 6f 20 6f 62 74 61 69 6e 20 61 20 76 61 6c 75 65 |o obtain a value| 00000370 20 66 72 6f 6d 20 70 6f 74 65 6e 74 69 6f 6d 65 | from potentiome| 00000380 74 65 72 20 59 0d 00 7d 0e 20 e9 20 64 72 72 3d |ter Y..}. . drr=| 00000390 26 36 32 0d 00 82 0d 20 e9 20 75 70 3d 26 36 30 |&62.... . up=&60| 000003a0 0d 00 87 0e 20 e9 20 74 69 6c 3d 26 36 38 0d 00 |.... . til=&68..| 000003b0 8c 0e 20 e9 20 74 69 68 3d 26 36 39 0d 00 91 0e |.. . tih=&69....| 000003c0 20 e9 20 74 69 63 3d 26 36 42 0d 00 96 0f 20 e9 | . tic=&6B.... .| 000003d0 20 61 76 61 72 3d 26 38 30 0d 00 9b 0f 20 e9 20 | avar=&80.... . | 000003e0 6d 61 73 6b 3d 26 38 31 0d 00 a0 10 20 e9 20 62 |mask=&81.... . b| 000003f0 75 66 66 3d 26 38 32 20 0d 00 a5 10 20 e9 20 61 |uff=&82 .... . a| 00000400 2d 3d 5b 42 41 44 20 53 45 43 54 4f 52 5d 3d 2d |-=[BAD SECTOR]=-| * 00001200 33 2c 48 41 4c 54 25 20 3a f4 20 4d 41 47 4e 45 |3,HALT% :. MAGNE| 00001210 54 20 4f 46 46 0d 04 f6 1d 20 e9 20 4e 4f 4d 49 |T OFF.... . NOMI| 00001220 4e 41 4c 5f 56 41 4c 55 45 3d 41 52 4d 28 32 29 |NAL_VALUE=ARM(2)| 00001230 20 20 0d 05 00 0c 20 e4 20 8d 44 78 45 20 0d 05 | .... . .DxE ..| 00001240 0a 0b 20 e5 20 8d 54 64 44 0d 05 14 21 20 f4 20 |.. . .TdD...! . | 00001250 50 4f 53 49 54 49 4f 4e 41 4c 20 43 4f 4e 54 52 |POSITIONAL CONTR| 00001260 4f 4c 20 52 4f 55 54 49 4e 45 0d 05 1e 1f 20 e9 |OL ROUTINE.... .| 00001270 20 44 3d a4 55 53 52 28 45 59 29 2d 4e 4f 4d 49 | D=.USR(EY)-NOMI| 00001280 4e 41 4c 5f 56 41 4c 55 45 0d 05 28 16 20 e7 20 |NAL_VALUE..(. . | 00001290 44 3e 30 20 8c 20 d6 20 4d 31 2c 43 57 25 20 0d |D>0 . . M1,CW% .| 000012a0 05 32 16 20 e7 20 44 3c 30 20 8c 20 d6 20 4d 31 |.2. . D<0 . . M1| 000012b0 2c 43 43 57 25 0d 05 3c 0e 20 e7 20 44 3d 30 20 |,CCW%..<. . D=0 | 000012c0 8c 20 f8 0d 05 46 0c e9 20 44 3d 94 28 44 29 0d |. ...F.. D=.(D).| 000012d0 05 50 13 20 e7 20 44 3e 33 20 8c 20 e5 20 8d 54 |.P. . D>3 . . .T| 000012e0 5e 45 0d 05 5a 0f 20 d6 20 4d 31 2c 48 41 4c 54 |^E..Z. . M1,HALT| 000012f0 25 0d 05 64 0b 20 e5 20 8d 54 5e 45 0d 05 6e 06 |%..d. . .T^E..n.| 00001300 20 f8 0d 05 78 25 20 f4 20 50 4f 53 49 54 49 4f | ...x% . POSITIO| 00001310 4e 41 4c 20 43 4f 4e 54 52 4f 4c 20 52 4f 55 54 |NAL CONTROL ROUT| 00001320 49 4e 45 20 41 52 4d 0d 05 82 1f 20 e9 20 44 3d |INE ARM.... . D=| 00001330 a4 55 53 52 28 45 58 29 2d 4e 4f 4d 49 4e 41 4c |.USR(EX)-NOMINAL| 00001340 5f 56 41 4c 55 45 0d 05 8c 15 20 e7 20 44 3e 30 |_VALUE.... . D>0| 00001350 20 8c 20 d6 20 4d 32 2c 43 57 25 0d 05 96 16 20 | . . M2,CW%.... | 00001360 e7 20 44 3c 30 20 8c 20 d6 20 4d 32 2c 43 43 57 |. D<0 . . M2,CCW| 00001370 25 0d 05 a0 0e 20 e7 20 44 3d 30 20 8c 20 f8 0d |%.... . D=0 . ..| 00001380 05 aa 0d 20 e9 20 44 3d 94 28 44 29 0d 05 b4 14 |... . D=.(D)....| 00001390 20 e7 20 44 3e 32 30 20 8c 20 e5 20 8d 44 78 45 | . D>20 . . .DxE| 000013a0 0d 05 be 0f 20 d6 20 4d 32 2c 48 41 4c 54 25 0d |.... . M2,HALT%.| 000013b0 05 c8 0a 20 e5 8d 44 78 45 0d 05 d2 06 20 f8 0d |... ..DxE.... ..| 000013c0 ff |.| 000013c1
PICKUP.m0
PICKUP.m1
PICKUP.m2
PICKUP.m4
PICKUP.m5
.