Difference between revisions of "ACU January-February 1985 - Type-ins"

From CPCWiki - THE Amstrad CPC encyclopedia!
Jump to: navigation, search
(→‎RSX Article)
 
(44 intermediate revisions by the same user not shown)
Line 1: Line 1:
 
Return to [[ACU Type Ins|ACU Type-Ins]]
 
Return to [[ACU Type Ins|ACU Type-Ins]]
−
 
 
__TOC__
 
__TOC__
 
=Downloads=
 
=Downloads=
−
[[media:acu_january_february_1985.zip|Disk Image]]
+
[[media:acu8501.zip|Disk Image]]
−
   
+
=Cover image=
−
=Cover Image=
+
[[image:acu8501.png]]
−
[[image:acu_jan_feb_1985_cover.png]]
+
−
 
+
 
=Amthello=
 
=Amthello=
−
To run Amthello, type:<br/>
 
 
RUN"AMTHELLO"<br/>
 
RUN"AMTHELLO"<br/>
−
<gallery widths="384px" heights="270px" perrow="2">
+
[[image:acu8501amthello1.png|384px]]
−
image:amthello1.png
+
[[image:acu8501amthello2.png|384px]]<br/><br/>
−
image:amthello2.png
+
[[image:acu8501amthello3.png|384px]]
−
image:amthello3.png
+
−
</gallery>
+
−
 
+
 
=Deep Thought=
 
=Deep Thought=
−
To run Deep Thought, type:<br/>
 
 
RUN"DEEP"<br/>
 
RUN"DEEP"<br/>
−
<gallery widths="384px" heights="270px" perrow="2">
+
[[image:acu8501deeptht1.png|384px]]
−
image:deeptht1.png
+
[[image:acu8501deeptht2.png|384px]]<br/><br/>
−
image:deeptht2.png
+
[[image:acu8501deeptht3.png|384px]]
−
image:deeptht3.png
+
−
</gallery>
+
−
 
+
 
=Inter-Clock=
 
=Inter-Clock=
−
To run Inter-Clock, type:<br/>
 
 
RUN"CLOCK"<br/>
 
RUN"CLOCK"<br/>
−
<gallery widths="384px" heights="270px" perrow="2">
+
[[image:acu8501intclck1.png|384px]]
−
image:intclck1.png
+
[[image:acu8501intclck2.png|384px]]
−
image:intclck2.png
+
−
</gallery>
+
−
 
+
 
=Jack and the Beanstalk=
 
=Jack and the Beanstalk=
−
To run Jack and the Beanstalk, type:<br/>
 
 
RUN"JACK"<br/>
 
RUN"JACK"<br/>
−
<gallery widths="384px" heights="270px" perrow="2">
+
[[image:acu8501jackbn1.png|384px]]
−
image:jackbn1.png
+
[[image:acu8501jackbn2.png|384px]]
−
image:jackbn2.png
+
<br/><br/>
−
</gallery>
+
Map (part 1) by '''tastefulmrship'''.<br/>
−
 
+
[[image:acu8501jackmap1.png|384px]]
−
Map (part 1) by '''tastefulmrship'''.
+
<br/><br/>
−
<gallery widths="394px" heights="600px" perrow="1">
+
Map (part 2) by '''tastefulmrship'''.<br/>
−
image:jackbeanstalk_map1.png
+
[[image:acu8501jackmap2.png|384px]]
−
</gallery>
+
<br/><br/>
−
 
+
Guide (part 1) by '''tastefulmrship'''.<br/>
−
Map (part 2) by '''tastefulmrship'''.
+
−
<gallery widths="711px" heights="599px" perrow="1">
+
−
image:jackbeanstalk_map2.png
+
−
</gallery>
+
−
 
+
−
Guide by '''tastefulmrship'''.
+
−
 
+
 
Full list of words recognised by the adventure:
 
Full list of words recognised by the adventure:
−
 
 
<pre>
 
<pre>
 
SAVE - LOAD - QUIT - SCORE - INVENTORY
 
SAVE - LOAD - QUIT - SCORE - INVENTORY
Line 64: Line 40:
 
GET - TAKE - GRAB - DROP - LEAVE - PUT - GIVE - CHOP - CUT
 
GET - TAKE - GRAB - DROP - LEAVE - PUT - GIVE - CHOP - CUT
 
</pre>
 
</pre>
−
 
+
Guide (part 2) by '''tastefulmrship'''.<br/>
 
Complete Solution:
 
Complete Solution:
−
 
 
<pre>
 
<pre>
 
W, TAKE PAPER, READ PAPER, DROP PAPER, E, S, DOWN, S, E, TAKE CHEESE,
 
W, TAKE PAPER, READ PAPER, DROP PAPER, E, S, DOWN, S, E, TAKE CHEESE,
Line 87: Line 62:
 
DROP HARP, S, DOWN, S, S, S, S, S, E, N, N, CHOP
 
DROP HARP, S, DOWN, S, S, S, S, S, E, N, N, CHOP
 
</pre>
 
</pre>
−
 
+
=M-Machine Scheduling=
−
=RSX Article=
+
RUN"SCHEDULE"<br/>
−
 
+
[[image:acu8501mmschedule1.png|384px]]
−
The |GETCHAR command reads the code for a character at position x,y in window n.<br/><br/>
+
[[image:acu8501mmschedule2.png|384px]]<br/><br/>
−
The BASIC file RSXLIST2.BAS needed to create the |GETCHAR command is provided on the disk, for users without an assembler.<br/>
+
[[image:acu8501mmschedule3.png|384px]]
−
See Amstrad Computer User, January/February 1985, pages 29-34 for more details.<br/><br/>
+
[[image:acu8501mmschedule4.png|384px]]<br/><br/>
−
To see an example of this command in action, type:<br/>
+
[[image:acu8501mmschedule5.png|384px]]
 +
[[image:acu8501mmschedule6.png|384px]]<br/><br/>
 +
[[image:acu8501mmschedule7.png|384px]]
 +
[[image:acu8501mmschedule8.png|384px]]
 +
=RSX and the CPC464=
 +
Other file(s) associated with this article:<br/>
 +
- RSXASSEM.ASM<br/>
 +
- RSXLIST2.BAS<br/>
 +
- RSXLIST4.BAS<br/>
 +
- RSXCODE1.BIN<br/>
 +
See Amstrad Computer User, January/February 1985, page 29 for more details.<br/><br/>
 
RUN"RSXLIST4"<br/>
 
RUN"RSXLIST4"<br/>
−
<gallery widths="384px" heights="270px" perrow="2">
+
[[image:acu8501getchar2.png|384px]]
−
image:getchar1.png
+
=Trench=
−
image:getchar2.png
+
RUN"TRENCH"<br/>
−
</gallery>
+
[[image:acu8501trench1.png|384px]]
−
 
+
−
The z80 assembler code for the |GETCHAR command, provided here for completeness.
+
−
 
+
−
<pre>
+
−
ORG &8000
+
−
; RSX to add |GETCHAR,return_char%,stream_num
+
−
.KL_LOG_EXT EQU &BCD1
+
−
.TXT_OUTPUT EQU &BB5A
+
−
.TXT_SWAP_STREAMS EQU &BBB7
+
−
.TXT_RD_CHAR EQU &BB60
+
−
 
+
−
.entry EQU $
+
−
LD HL,&E9E1
+
−
LD (&30),HL
+
−
RST &30
+
−
 
+
−
.this EX DE,HL
+
−
LD HL,rel_tab-this
+
−
ADD HL,DE ; HL has absolute address of rel_table
+
−
 
+
−
.loop LD C,(HL)
+
−
INC HL
+
−
LD B,(HL) ; BC has first entry in table
+
−
LD A,C
+
−
OR B
+
−
JR Z,done ; entry was 0000 so exit loop
+
−
PUSH HL ; stack current table pointer
+
−
LD H,B
+
−
LD L,C
+
−
ADD HL,DE ; make table entry absolute
+
−
PUSH HL ; and stack this value
+
−
LD C,(HL)
+
−
INC HL
+
−
LD B,(HL) ; get contents pointed to by entry
+
−
LD H,B
+
−
LD L,C
+
−
ADD HL,DE ; make this absolute
+
−
LD B,H
+
−
LD C,L
+
−
POP HL ; retrieve absolute entry value
+
−
LD (HL),C
+
−
INC HL
+
−
LD (HL),B ; store calculated absolute value at this address
+
−
POP HL ; get address of previous table entry
+
−
INC HL ; make HL point at next
+
−
JR loop
+
−
 
+
−
.done EQU $
+
−
 
+
−
.r01 LD BC,rsx_tab-this
+
−
.r02 LD HL,work-this
+
−
JP KL_LOG_EXT ; log-on new command
+
−
 
+
−
.rsx_tab EQU $
+
−
 
+
−
.r03 DEFW nam_tab-this
+
−
.r04 JP scr-this
+
−
 
+
−
.nam_tab EQU $
+
−
DEFM "GETCHA"
+
−
DEFB "R"+&80 ; final character has sign bit set
+
−
DEFB 0 ; finish table with zero byte
+
−
 
+
−
.scr EQU $
+
−
CP 2
+
−
JR NZ,error
+
−
LD L,(IX+2) ; pick up integer variable address
+
−
LD H,(IX+3)
+
−
PUSH HL ; and save it on the stack
+
−
LD B,(IX+0) ; get stream number
+
−
LD C,0
+
−
PUSH BC
+
−
CALL TXT_SWAP_STREAMS ; swap to desired stream
+
−
POP BC
+
−
CALL TXT_RD_CHAR ; pick up the character
+
−
POP HL
+
−
LD (HL),A ; store character in low byte of integer variable
+
−
SBC A,A ; subtract carry (give 0 if clear, 1 if set)
+
−
INC A
+
−
INC HL
+
−
LD (HL),A
+
−
 
+
−
.ss CALL TXT_SWAP_STREAMS
+
−
RET
+
−
 
+
−
.error EQU $
+
−
 
+
−
.r05 LD HL,msg-this ; haven't got two parameters
+
−
 
+
−
.pmess LD A,(HL)
+
−
INC HL
+
−
CALL TXT_OUTPUT
+
−
CP 10
+
−
JR NZ,pmess
+
−
RET
+
−
 
+
−
.work DEFS 4
+
−
 
+
−
.msg DEFM "Bad Command"
+
−
DEFB 13,10
+
−
 
+
−
.rel_tab EQU $
+
−
DEFW r01-this+1
+
−
DEFW r02-this+1
+
−
DEFW r03-this
+
−
DEFW r04-this+1
+
−
DEFW r05-this+1
+
−
DEFW 0
+
−
</pre>
+
−
 
+
 
[[Category:Type Ins]]
 
[[Category:Type Ins]]

Latest revision as of 09:36, 24 January 2010

Return to ACU Type-Ins

Downloads

Disk Image

Cover image

Acu8501.png

Amthello

RUN"AMTHELLO"
Acu8501amthello1.png Acu8501amthello2.png

Acu8501amthello3.png

Deep Thought

RUN"DEEP"
Acu8501deeptht1.png Acu8501deeptht2.png

Acu8501deeptht3.png

Inter-Clock

RUN"CLOCK"
Acu8501intclck1.png Acu8501intclck2.png

Jack and the Beanstalk

RUN"JACK"
Acu8501jackbn1.png Acu8501jackbn2.png

Map (part 1) by tastefulmrship.
Acu8501jackmap1.png

Map (part 2) by tastefulmrship.
Acu8501jackmap2.png

Guide (part 1) by tastefulmrship.
Full list of words recognised by the adventure: 

SAVE - LOAD - QUIT - SCORE - INVENTORY
GO - N - S - E - W - UP - DOWN - IN - OUT
HIDE - WAIT - LOOK - SEARCH - HELP
READ - WEAR - REMOVE - SOW - PLANT - EAT - DRINK - PULL - RUB - SWIM
UNLOCK - OPEN - KILL - STAB - ATTACK
GET - TAKE - GRAB - DROP - LEAVE - PUT - GIVE - CHOP - CUT

Guide (part 2) by tastefulmrship.
Complete Solution: 

W, TAKE PAPER, READ PAPER, DROP PAPER, E, S, DOWN, S, E, TAKE CHEESE,
W, S, E, TAKE COW, W, S, S, S, E, E, IN, GIVE COW, TAKE BEANS, OUT,
W, N, N, SOW BEANS, DROP BEANS, UP, S, E, S, IN, S, OPEN DOOR, S, S,
E, N, E, E, E, S, PULL LEVER, S, E, E, IN, TAKE KEY, N, HELP, GIVE CHEESE,
DROP CHEESE, TAKE DRESS, OUT, S, W, S, UNLOCK GATE, DROP KEY, S, S, S,
HELP, HIDE, OVEN, WAIT, OUT, TAKE GOOSE, N, N, N, N, W, W, N, N, W, W,
W, S, W, N, N, N, OUT, N, W, N, DOWN, S, S, W, N, N, N, N, N, UP, N,
DROP GOOSE, S, DOWN, S, S, S, S, S, E, N, N, UP, S, W, S, S, E, IN,
TAKE OUTFIT, WEAR OUTFIT, OUT, W, N, N, E, E, S, IN, S, S, S, E, N, E,
E, E, S, S, E, E, S, S, S, S, HIDE, CUPBOARD, WAIT, OUT, TAKE MONEY, N,
N, N, N, W, W, N, N, E, IN, N, E, N, E, N, TAKE SWORD, S, W, S, W, S, OUT,
W, W, W, W, S, W, N, N, N, OUT, N, W, N, DOWN, S, S, W, N, ATTACK WITCH,
DROP SWORD, N, N, N, N, UP, N, DROP MONEY, S, DOWN, S, S, S, W,
UNLOCK SHED, 10130127, IN, TAKE AXE, OUT, E, S, S, E, N, N, UP, S, E, S,
IN, S, S, S, E, N, E, E, E, S, S, E, E, S, S, REMOVE OUTFIT, WEAR DRESS,
S, S, HIDE, COPPER, WAIT, OUT, TAKE HARP, N, N, N, N, W, W, N, N, W, W, W,
S, W, N, N, N, OUT, W, N, W, N, DOWN, S, S, W, N, N, N, N, N, UP, N,
DROP HARP, S, DOWN, S, S, S, S, S, E, N, N, CHOP

M-Machine Scheduling

RUN"SCHEDULE"
Acu8501mmschedule1.png Acu8501mmschedule2.png

Acu8501mmschedule3.png Acu8501mmschedule4.png

Acu8501mmschedule5.png Acu8501mmschedule6.png

Acu8501mmschedule7.png Acu8501mmschedule8.png

RSX and the CPC464

Other file(s) associated with this article:
- RSXASSEM.ASM
- RSXLIST2.BAS
- RSXLIST4.BAS
- RSXCODE1.BIN
See Amstrad Computer User, January/February 1985, page 29 for more details.

RUN"RSXLIST4"
Acu8501getchar2.png

Trench

RUN"TRENCH"
Acu8501trench1.png

Retrieved from "https://www.cpcwiki.eu/index.php?title=ACU_January-February_1985_-_Type-ins&oldid=39524"