Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » Regulars » StarInfo/Harris/
StarInfo/Harris/
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-Xmas B.adf » Regulars |
| Filename: | StarInfo/Harris/ |
| Read OK: | ✔ |
| File size: | 07BE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM 256 byte program
2N$ = "$.Projects.256bytes.�"
3DIM code% 256
4REM: Registers
5REM: R0-R3 are scratch
6code = 4
7guess = 5
8pegs = 6
9mask = 7
10count = 8
11attempt = 9
12workspace = 12
13
14L% = code% + 256
15FOR opt% = 8 TO 11 STEP 3
16 P% = code%
17[ OPT opt%
18 STMFD R13!,{R14}
19 SWI 256+12
20 SWI 256+181
21 SWI "XOS_ReadMonotonicTime"
22 MOV R1,#79
23 MUL R0,R1,R0
24 MOV R0,R0,LSL #16
25 MOV R0,R0,LSR #16 ; low 16 bits only 0..65535
26 CMP R0,#10240 ; must be exactly 5 digits long
27 ADDLT R0,R0,#10240
28 ADD R1,workspace,#3
29 MOV R2,#8
30 SWI "XOS_ConvertCardinal2" ; low 4 digits at R12+4
31 MOV attempt,#0
32 .getguess
33 SWI "XOS_NewLine" ; prompt
34 SWI 256+ASC(":")
35 ADD R0,workspace,#12
36 MOV R1,#4
37 MOV R2,#48
38 MOV R3,#57
39 SWI "XOS_ReadLine"
40 BCS quit
41 SWI "XOS_WriteS"
42 DCB 11
43 DCB 9
44 DCB 9
45 DCB 9
46 DCB 9
47 DCB 9
48 DCB 9
49 DCB 0
50 ADD attempt,attempt,#1
51 LDR guess,[workspace,#12]
52 LDR code,[workspace,#4]
53 MOV pegs,#4
54 MOV count,#4
55 MOV R0,#143
56 .pegloop
57 EOR R3,guess,code
58 MOV mask,#255
59 .andtst
60 TST R3,mask
61 SWIEQ "XOS_WriteC"
62 BICEQ code,code,mask
63 ORREQ guess,guess,mask
64 SUBEQS pegs,pegs,#1
65 TEQEQ R0,#143
66 BEQ guessed
67 MOVS mask,mask,LSL #8
68 BNE andtst
69 MOV R0,#ASC("o")
70 MOV code,code,ROR #8
71 SUBS count,count,#1
72 BNE pegloop
73 B getguess
74 .guessed
75 MOV R1,workspace
76 MOV R0,attempt
77 MOV R2,#8
78 SWI "XOS_ConvertCardinal4"
79 SWI "XOS_Write0"
80 SWI "XOS_WriteS"
81 EQUS " attempt"
82 DCB 0
83 ALIGN
84 CMP attempt,#1
85 SWINE 256+ASC("s")
86.quit
87 LDMFD R13!,{R15}^
88.end%
89]
90NEXT
91SYS "OS_File",10,N$,&FFF,,code%,end%
92OSCLI "SetType " + N$ + " utility"
� 256 byte program
N$ = "$.Projects.256bytes.�"
� code% 256
�: Registers
�: R0-R3 are scratch
code = 4
guess = 5
pegs = 6
mask = 7
count = 8
attempt = 9
workspace = 12
L% = code% + 256
� opt% = 8 � 11 � 3
P% = code%
[ OPT opt%
STMFD R13!,{R14}
SWI 256+12
SWI 256+181
! SWI "XOS_ReadMonotonicTime"
MOV R1,#79
MUL R0,R1,R0
MOV R0,R0,LSL #16
: MOV R0,R0,LSR #16 ; low 16 bits only 0..65535
> CMP R0,#10240 ; must be exactly 5 digits long
ADDLT R0,R0,#10240
ADD R1,workspace,#3
MOV R2,#8
8 SWI "XOS_ConvertCardinal2" ; low 4 digits at R12+4
MOV attempt,#0
.getguess
!) SWI "XOS_NewLine" ; prompt
" SWI 256+�(":")
# ADD R0,workspace,#12
$ MOV R1,#4
% MOV R2,#48
& MOV R3,#57
' SWI "XOS_ReadLine"
( BCS quit
) SWI "XOS_WriteS"
* DCB 11
+
DCB 9
,
DCB 9
-
DCB 9
.
DCB 9
/
DCB 9
0
DCB 9
1
DCB 0
2 ADD attempt,attempt,#1
3! LDR guess,[workspace,#12]
4 LDR code,[workspace,#4]
5 MOV pegs,#4
6 MOV count,#4
7 MOV R0,#143
8 .pegloop
9 � R3,guess,code
: MOV mask,#255
; .andtst
< TST R3,mask
= SWIEQ "XOS_WriteC"
> BICEQ code,code,mask
? �REQ guess,guess,mask
@ SUBEQS pegs,pegs,#1
A TEQEQ R0,#143
B BEQ guessed
C MOVS mask,mask,LSL #8
D BNE andtst
E MOV R0,#�("o")
F MOV code,code,ROR #8
G SUBS count,count,#1
H BNE pegloop
I B getguess
J .guessed
K MOV R1,workspace
L MOV R0,attempt
M MOV R2,#8
N" SWI "XOS_ConvertCardinal4"
O SWI "XOS_Write0"
P SWI "XOS_WriteS"
Q EQUS " attempt"
R
DCB 0
S
ALIGN
T CMP attempt,#1
U SWINE 256+�("s")
V .quit
W LDMFD R13!,{R15}^
X .end%
Y]
Z�
['ș "OS_File",10,N$,&FFF,,code%,end%
\"� "SetType " + N$ + " utility"
� 00000000 0d 00 01 16 f4 20 32 35 36 20 62 79 74 65 20 70 |..... 256 byte p|
00000010 72 6f 67 72 61 6d 0d 00 02 20 4e 24 20 3d 20 22 |rogram... N$ = "|
00000020 24 2e 50 72 6f 6a 65 63 74 73 2e 32 35 36 62 79 |$.Projects.256by|
00000030 74 65 73 2e b5 22 0d 00 03 0f de 20 63 6f 64 65 |tes.."..... code|
00000040 25 20 32 35 36 0d 00 04 10 f4 3a 20 52 65 67 69 |% 256.....: Regi|
00000050 73 74 65 72 73 0d 00 05 18 f4 3a 20 52 30 2d 52 |sters.....: R0-R|
00000060 33 20 61 72 65 20 73 63 72 61 74 63 68 0d 00 06 |3 are scratch...|
00000070 0c 63 6f 64 65 20 3d 20 34 0d 00 07 0d 67 75 65 |.code = 4....gue|
00000080 73 73 20 3d 20 35 0d 00 08 0c 70 65 67 73 20 3d |ss = 5....pegs =|
00000090 20 36 0d 00 09 0c 6d 61 73 6b 20 3d 20 37 0d 00 | 6....mask = 7..|
000000a0 0a 0d 63 6f 75 6e 74 20 3d 20 38 0d 00 0b 0f 61 |..count = 8....a|
000000b0 74 74 65 6d 70 74 20 3d 20 39 0d 00 0c 12 77 6f |ttempt = 9....wo|
000000c0 72 6b 73 70 61 63 65 20 3d 20 31 32 0d 00 0d 04 |rkspace = 12....|
000000d0 0d 00 0e 14 4c 25 20 3d 20 63 6f 64 65 25 20 2b |....L% = code% +|
000000e0 20 32 35 36 0d 00 0f 17 e3 20 6f 70 74 25 20 3d | 256..... opt% =|
000000f0 20 38 20 b8 20 31 31 20 88 20 33 0d 00 10 0f 20 | 8 . 11 . 3.... |
00000100 50 25 20 3d 20 63 6f 64 65 25 0d 00 11 0e 5b 20 |P% = code%....[ |
00000110 4f 50 54 20 6f 70 74 25 0d 00 12 16 20 20 53 54 |OPT opt%.... ST|
00000120 4d 46 44 20 52 31 33 21 2c 7b 52 31 34 7d 0d 00 |MFD R13!,{R14}..|
00000130 13 10 20 20 53 57 49 20 32 35 36 2b 31 32 0d 00 |.. SWI 256+12..|
00000140 14 11 20 20 53 57 49 20 32 35 36 2b 31 38 31 0d |.. SWI 256+181.|
00000150 00 15 21 20 20 53 57 49 20 22 58 4f 53 5f 52 65 |..! SWI "XOS_Re|
00000160 61 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 22 |adMonotonicTime"|
00000170 0d 00 16 10 20 20 4d 4f 56 20 52 31 2c 23 37 39 |.... MOV R1,#79|
00000180 0d 00 17 12 20 20 4d 55 4c 20 52 30 2c 52 31 2c |.... MUL R0,R1,|
00000190 52 30 0d 00 18 17 20 20 4d 4f 56 20 52 30 2c 52 |R0.... MOV R0,R|
000001a0 30 2c 4c 53 4c 20 23 31 36 0d 00 19 3a 20 20 4d |0,LSL #16...: M|
000001b0 4f 56 20 52 30 2c 52 30 2c 4c 53 52 20 23 31 36 |OV R0,R0,LSR #16|
000001c0 20 20 20 20 20 20 20 20 3b 20 6c 6f 77 20 31 36 | ; low 16|
000001d0 20 62 69 74 73 20 6f 6e 6c 79 20 30 2e 2e 36 35 | bits only 0..65|
000001e0 35 33 35 0d 00 1a 3e 20 20 43 4d 50 20 52 30 2c |535...> CMP R0,|
000001f0 23 31 30 32 34 30 20 20 20 20 20 20 20 20 20 20 |#10240 |
00000200 20 20 3b 20 6d 75 73 74 20 62 65 20 65 78 61 63 | ; must be exac|
00000210 74 6c 79 20 35 20 64 69 67 69 74 73 20 6c 6f 6e |tly 5 digits lon|
00000220 67 0d 00 1b 18 20 20 41 44 44 4c 54 20 52 30 2c |g.... ADDLT R0,|
00000230 52 30 2c 23 31 30 32 34 30 0d 00 1c 19 20 20 41 |R0,#10240.... A|
00000240 44 44 20 52 31 2c 77 6f 72 6b 73 70 61 63 65 2c |DD R1,workspace,|
00000250 23 33 0d 00 1d 0f 20 20 4d 4f 56 20 52 32 2c 23 |#3.... MOV R2,#|
00000260 38 0d 00 1e 38 20 20 53 57 49 20 22 58 4f 53 5f |8...8 SWI "XOS_|
00000270 43 6f 6e 76 65 72 74 43 61 72 64 69 6e 61 6c 32 |ConvertCardinal2|
00000280 22 20 3b 20 6c 6f 77 20 34 20 64 69 67 69 74 73 |" ; low 4 digits|
00000290 20 61 74 20 52 31 32 2b 34 0d 00 1f 14 20 20 4d | at R12+4.... M|
000002a0 4f 56 20 61 74 74 65 6d 70 74 2c 23 30 0d 00 20 |OV attempt,#0.. |
000002b0 0f 20 20 2e 67 65 74 67 75 65 73 73 0d 00 21 29 |. .getguess..!)|
000002c0 20 20 20 20 53 57 49 20 22 58 4f 53 5f 4e 65 77 | SWI "XOS_New|
000002d0 4c 69 6e 65 22 20 20 20 20 20 20 20 20 3b 20 70 |Line" ; p|
000002e0 72 6f 6d 70 74 0d 00 22 16 20 20 20 20 53 57 49 |rompt..". SWI|
000002f0 20 32 35 36 2b 97 28 22 3a 22 29 0d 00 23 1c 20 | 256+.(":")..#. |
00000300 20 20 20 41 44 44 20 52 30 2c 77 6f 72 6b 73 70 | ADD R0,worksp|
00000310 61 63 65 2c 23 31 32 0d 00 24 11 20 20 20 20 4d |ace,#12..$. M|
00000320 4f 56 20 52 31 2c 23 34 0d 00 25 12 20 20 20 20 |OV R1,#4..%. |
00000330 4d 4f 56 20 52 32 2c 23 34 38 0d 00 26 12 20 20 |MOV R2,#48..&. |
00000340 20 20 4d 4f 56 20 52 33 2c 23 35 37 0d 00 27 1a | MOV R3,#57..'.|
00000350 20 20 20 20 53 57 49 20 22 58 4f 53 5f 52 65 61 | SWI "XOS_Rea|
00000360 64 4c 69 6e 65 22 0d 00 28 10 20 20 20 20 42 43 |dLine"..(. BC|
00000370 53 20 71 75 69 74 0d 00 29 18 20 20 20 20 53 57 |S quit..). SW|
00000380 49 20 22 58 4f 53 5f 57 72 69 74 65 53 22 0d 00 |I "XOS_WriteS"..|
00000390 2a 0e 20 20 20 20 44 43 42 20 31 31 0d 00 2b 0d |*. DCB 11..+.|
000003a0 20 20 20 20 44 43 42 20 39 0d 00 2c 0d 20 20 20 | DCB 9..,. |
000003b0 20 44 43 42 20 39 0d 00 2d 0d 20 20 20 20 44 43 | DCB 9..-. DC|
000003c0 42 20 39 0d 00 2e 0d 20 20 20 20 44 43 42 20 39 |B 9.... DCB 9|
000003d0 0d 00 2f 0d 20 20 20 20 44 43 42 20 39 0d 00 30 |../. DCB 9..0|
000003e0 0d 20 20 20 20 44 43 42 20 39 0d 00 31 0d 20 20 |. DCB 9..1. |
000003f0 20 20 44 43 42 20 30 0d 00 32 1e 20 20 20 20 41 | DCB 0..2. A|
00000400 44 44 20 61 74 74 65 6d 70 74 2c 61 74 74 65 6d |DD attempt,attem|
00000410 70 74 2c 23 31 0d 00 33 21 20 20 20 20 4c 44 52 |pt,#1..3! LDR|
00000420 20 67 75 65 73 73 2c 5b 77 6f 72 6b 73 70 61 63 | guess,[workspac|
00000430 65 2c 23 31 32 5d 0d 00 34 1f 20 20 20 20 4c 44 |e,#12]..4. LD|
00000440 52 20 63 6f 64 65 2c 5b 77 6f 72 6b 73 70 61 63 |R code,[workspac|
00000450 65 2c 23 34 5d 0d 00 35 13 20 20 20 20 4d 4f 56 |e,#4]..5. MOV|
00000460 20 70 65 67 73 2c 23 34 0d 00 36 14 20 20 20 20 | pegs,#4..6. |
00000470 4d 4f 56 20 63 6f 75 6e 74 2c 23 34 0d 00 37 13 |MOV count,#4..7.|
00000480 20 20 20 20 4d 4f 56 20 52 30 2c 23 31 34 33 0d | MOV R0,#143.|
00000490 00 38 10 20 20 20 20 2e 70 65 67 6c 6f 6f 70 0d |.8. .pegloop.|
000004a0 00 39 19 20 20 20 20 20 20 82 20 52 33 2c 67 75 |.9. . R3,gu|
000004b0 65 73 73 2c 63 6f 64 65 0d 00 3a 17 20 20 20 20 |ess,code..:. |
000004c0 20 20 4d 4f 56 20 6d 61 73 6b 2c 23 32 35 35 0d | MOV mask,#255.|
000004d0 00 3b 0f 20 20 20 20 2e 61 6e 64 74 73 74 0d 00 |.;. .andtst..|
000004e0 3c 15 20 20 20 20 20 20 54 53 54 20 52 33 2c 6d |<. TST R3,m|
000004f0 61 73 6b 0d 00 3d 1c 20 20 20 20 20 20 53 57 49 |ask..=. SWI|
00000500 45 51 20 22 58 4f 53 5f 57 72 69 74 65 43 22 0d |EQ "XOS_WriteC".|
00000510 00 3e 1e 20 20 20 20 20 20 42 49 43 45 51 20 63 |.>. BICEQ c|
00000520 6f 64 65 2c 63 6f 64 65 2c 6d 61 73 6b 0d 00 3f |ode,code,mask..?|
00000530 1f 20 20 20 20 20 20 84 52 45 51 20 67 75 65 73 |. .REQ gues|
00000540 73 2c 67 75 65 73 73 2c 6d 61 73 6b 0d 00 40 1d |s,guess,mask..@.|
00000550 20 20 20 20 20 20 53 55 42 45 51 53 20 70 65 67 | SUBEQS peg|
00000560 73 2c 70 65 67 73 2c 23 31 0d 00 41 17 20 20 20 |s,pegs,#1..A. |
00000570 20 20 20 54 45 51 45 51 20 52 30 2c 23 31 34 33 | TEQEQ R0,#143|
00000580 0d 00 42 15 20 20 20 20 20 20 42 45 51 20 67 75 |..B. BEQ gu|
00000590 65 73 73 65 64 0d 00 43 1f 20 20 20 20 20 20 4d |essed..C. M|
000005a0 4f 56 53 20 6d 61 73 6b 2c 6d 61 73 6b 2c 4c 53 |OVS mask,mask,LS|
000005b0 4c 20 23 38 0d 00 44 14 20 20 20 20 20 20 42 4e |L #8..D. BN|
000005c0 45 20 61 6e 64 74 73 74 0d 00 45 18 20 20 20 20 |E andtst..E. |
000005d0 20 20 4d 4f 56 20 52 30 2c 23 97 28 22 6f 22 29 | MOV R0,#.("o")|
000005e0 0d 00 46 1e 20 20 20 20 20 20 4d 4f 56 20 63 6f |..F. MOV co|
000005f0 64 65 2c 63 6f 64 65 2c 52 4f 52 20 23 38 0d 00 |de,code,ROR #8..|
00000600 47 1d 20 20 20 20 20 20 53 55 42 53 20 63 6f 75 |G. SUBS cou|
00000610 6e 74 2c 63 6f 75 6e 74 2c 23 31 0d 00 48 15 20 |nt,count,#1..H. |
00000620 20 20 20 20 20 42 4e 45 20 70 65 67 6c 6f 6f 70 | BNE pegloop|
00000630 0d 00 49 12 20 20 20 20 42 20 67 65 74 67 75 65 |..I. B getgue|
00000640 73 73 0d 00 4a 0e 20 20 2e 67 75 65 73 73 65 64 |ss..J. .guessed|
00000650 0d 00 4b 18 20 20 20 20 4d 4f 56 20 52 31 2c 77 |..K. MOV R1,w|
00000660 6f 72 6b 73 70 61 63 65 0d 00 4c 16 20 20 20 20 |orkspace..L. |
00000670 4d 4f 56 20 52 30 2c 61 74 74 65 6d 70 74 0d 00 |MOV R0,attempt..|
00000680 4d 11 20 20 20 20 4d 4f 56 20 52 32 2c 23 38 0d |M. MOV R2,#8.|
00000690 00 4e 22 20 20 20 20 53 57 49 20 22 58 4f 53 5f |.N" SWI "XOS_|
000006a0 43 6f 6e 76 65 72 74 43 61 72 64 69 6e 61 6c 34 |ConvertCardinal4|
000006b0 22 0d 00 4f 18 20 20 20 20 53 57 49 20 22 58 4f |"..O. SWI "XO|
000006c0 53 5f 57 72 69 74 65 30 22 0d 00 50 18 20 20 20 |S_Write0"..P. |
000006d0 20 53 57 49 20 22 58 4f 53 5f 57 72 69 74 65 53 | SWI "XOS_WriteS|
000006e0 22 0d 00 51 17 20 20 20 20 45 51 55 53 20 22 20 |"..Q. EQUS " |
000006f0 61 74 74 65 6d 70 74 22 0d 00 52 0d 20 20 20 20 |attempt"..R. |
00000700 44 43 42 20 30 0d 00 53 0d 20 20 20 20 41 4c 49 |DCB 0..S. ALI|
00000710 47 4e 0d 00 54 16 20 20 20 20 43 4d 50 20 61 74 |GN..T. CMP at|
00000720 74 65 6d 70 74 2c 23 31 0d 00 55 18 20 20 20 20 |tempt,#1..U. |
00000730 53 57 49 4e 45 20 32 35 36 2b 97 28 22 73 22 29 |SWINE 256+.("s")|
00000740 0d 00 56 09 2e 71 75 69 74 0d 00 57 17 20 20 4c |..V..quit..W. L|
00000750 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 35 7d 5e |DMFD R13!,{R15}^|
00000760 0d 00 58 09 2e 65 6e 64 25 0d 00 59 05 5d 0d 00 |..X..end%..Y.]..|
00000770 5a 05 ed 0d 00 5b 27 c8 99 20 22 4f 53 5f 46 69 |Z....['.. "OS_Fi|
00000780 6c 65 22 2c 31 30 2c 4e 24 2c 26 46 46 46 2c 2c |le",10,N$,&FFF,,|
00000790 63 6f 64 65 25 2c 65 6e 64 25 0d 00 5c 22 ff 20 |code%,end%..\". |
000007a0 22 53 65 74 54 79 70 65 20 22 20 2b 20 4e 24 20 |"SetType " + N$ |
000007b0 2b 20 22 20 75 74 69 6c 69 74 79 22 0d ff |+ " utility"..|
000007be 
.