Greed#
General Information
Author: Carsten Strotmann, Winfried Piegsda
Language: C
Compiler/Interpreter: CC65
Published: ABBUC 2004
Download: Greed/agreed2.atr
Title Tune: Greed/greed.mp3 Greed/greed.mid.mov
Atari Greed#
Atari Greed scored 6th place at the 2004 ABBUC Software contest
 |
 |
Instructions #
ATARI Greed
based on the UNIX game "Greed" by Matthew T. Day and Eric S. Raymond.
Written for the 2004 ABBUC Software contest by Winfried Piegsda and Carsten Strotmann.
Goal: Numbers from 1 t 9 will be shown in an area of 38 x 18 fields. The round spot is the pawn in the game. The player must try to collect as many numbers as possible before running out of moves. For every field moved the score will increase by one.
The pawn can be moved by Joystick or Keyboard in six directions. The range of the move will be calculated by the first number to be collected. All possible moves can be displayed by pressing the 'P' key.
There is a time running out for each level. To enter the next level, a predefinded amount (percentage) of the area must be cleaned. The remaining percentage will be displayed in the lower right corner near the score and highscore.
Will the level treshold overshoot a bonus will be added to the score.
The menu can be displayed with the 'ESC' Key.
have fun with Atari Greed
Winfried Piegsda and Carsten Strotmann
Anleitung #
ATARI Greed
basierend auf dem UNIX Spiel "Greed" von Matthew T. Day und Eric S. Raymond.
Programmiert fuer den ABBUC Programmier- wettbewerb 2004 von Winfried Piegsda und Carsten Strotmann.
Ziel des Spiels: Auf einer Flaeche von maximal 38 x 18 Zellen werden Zahlen von 1 bis 9 dargestellt. Ein runder Ball in dieser Flaeche stellt die Spielfigur da. Der Spieler muss versuchen moeglichst viel Punkte zu sammeln, den dem er Felder ueberquert und loescht. Fuer jedes geloeschte Feld wird die Punktzahl erhoeht.
Mit dem Joystick oder der Tastatur kann die Spielfigur in sechs Richtungen bewegt werden. Die Schreittweite in jede Richtung wird durch die direkt an die Spielfigur angrenzende Zahl bestimmt. Die moeglichen Zuege koennen mit der Vorschaufunktion (p - Preview) angezeigt werden.
Fuer jeden Level stehen eine bestimmte Zeit in Minuten zur Verfuegung. Um in einen neuen Level zu wechseln, muss die Mindestanzahl an Feldern abgeraumt werden. Die Prozentzahl der noch zu loeschenden Felder wird in der Statuszeile rechts neben den Punkten und der Hoechstpunktzahl an- gezeigt.
Wir diese Prozentzahl untersschritten so wird ein Bonus am Ende des Levels auf die Punktzahl addiert.
Mit der 'ESC' Taste kann das Menue aufgerufen werden.
Viel Spass mit Atari Greed wuenschen Winfried Piegsda Carsten Strotmann
1.1 Make Scripts
export CC65_LIB=~/develop/cc65/libsrc export CC65_INC=~/develop/cc65/include cl65 -l -O --add-source -m agreed.map -t atari agreed.c dli1.s cp agreed ~/atari/Atari800MacX/Harddrive1/agreed.com
export CC65_LIB=~/develop/cc65/libsrc export CC65_INC=~/develop/cc65/include ca65 -t none level00.s cl65 -t none level00.o -o ~/atari/Atari800MacX/Harddrive1/level00.agl ca65 -t none level01.s cl65 -t none level01.o -o ~/atari/Atari800MacX/Harddrive1/level01.agl ca65 -t none level02.s cl65 -t none level02.o -o ~/atari/Atari800MacX/Harddrive1/level02.agl ca65 -t none level03.s cl65 -t none level03.o -o ~/atari/Atari800MacX/Harddrive1/level03.agl ca65 -t none level04.s cl65 -t none level04.o -o ~/atari/Atari800MacX/Harddrive1/level04.agl ca65 -t none level05.s cl65 -t none level05.o -o ~/atari/Atari800MacX/Harddrive1/level05.agl ca65 -t none level06.s cl65 -t none level06.o -o ~/atari/Atari800MacX/Harddrive1/level06.agl ca65 -t none level07.s cl65 -t none level07.o -o ~/atari/Atari800MacX/Harddrive1/level07.agl ca65 -t none level08.s cl65 -t none level08.o -o ~/atari/Atari800MacX/Harddrive1/level08.agl ca65 -t none level09.s cl65 -t none level09.o -o ~/atari/Atari800MacX/Harddrive1/level09.agl
Modules list:
-------------
atari.o:
CODE Offs = 000000 Size = 00008F
BSS Offs = 000000 Size = 000004
DATA Offs = 000000 Size = 00001A
EXEHDR Offs = 000000 Size = 000006
AUTOSTRT Offs = 000000 Size = 000006
agreed.o:
CODE Offs = 00008F Size = 002534
RODATA Offs = 000000 Size = 0004DD
BSS Offs = 000004 Size = 0003A8
DATA Offs = 00001A Size = 00010D
dli1.o:
CODE Offs = 0025C3 Size = 000C1F
/Users/cas/develop/cc65/libsrc/atari.lib(cgetc.o):
CODE Offs = 0031E2 Size = 000051
/Users/cas/develop/cc65/libsrc/atari.lib(clock.o):
CODE Offs = 003233 Size = 000023
/Users/cas/develop/cc65/libsrc/atari.lib(close.o):
CODE Offs = 003256 Size = 00001E
/Users/cas/develop/cc65/libsrc/atari.lib(ctype.o):
RODATA Offs = 0004DD Size = 000100
/Users/cas/develop/cc65/libsrc/atari.lib(fdtable.o):
CODE Offs = 003274 Size = 0001BA
BSS Offs = 0003AC Size = 000006
/Users/cas/develop/cc65/libsrc/atari.lib(getfd.o):
CODE Offs = 00342E Size = 000029
DATA Offs = 000127 Size = 00002C
/Users/cas/develop/cc65/libsrc/atari.lib(graphics.o):
CODE Offs = 003457 Size = 000081
RODATA Offs = 0005DD Size = 000043
/Users/cas/develop/cc65/libsrc/atari.lib(graphuse.o):
DATA Offs = 000153 Size = 000001
/Users/cas/develop/cc65/libsrc/atari.lib(mul40.o):
CODE Offs = 0034D8 Size = 000020
BSS Offs = 0003B2 Size = 000001
/Users/cas/develop/cc65/libsrc/atari.lib(open.o):
CODE Offs = 0034F8 Size = 0000B7
/Users/cas/develop/cc65/libsrc/atari.lib(read.o):
CODE Offs = 0035AF Size = 00002C
/Users/cas/develop/cc65/libsrc/atari.lib(rwcommon.o):
CODE Offs = 0035DB Size = 000056
/Users/cas/develop/cc65/libsrc/atari.lib(ucase_fn.o):
CODE Offs = 003631 Size = 000061
/Users/cas/develop/cc65/libsrc/atari.lib(write.o):
CODE Offs = 003692 Size = 000028
/Users/cas/develop/cc65/libsrc/atari.lib(_fdesc.o):
CODE Offs = 0036BA Size = 00001C
/Users/cas/develop/cc65/libsrc/atari.lib(_file.o):
DATA Offs = 000154 Size = 000016
/Users/cas/develop/cc65/libsrc/atari.lib(_fopen.o):
CODE Offs = 0036D6 Size = 000080
BSS Offs = 0003B3 Size = 000002
/Users/cas/develop/cc65/libsrc/atari.lib(_hextab.o):
RODATA Offs = 000620 Size = 000010
/Users/cas/develop/cc65/libsrc/atari.lib(_oserror.o):
BSS Offs = 0003B5 Size = 000001
/Users/cas/develop/cc65/libsrc/atari.lib(_printf.o):
CODE Offs = 003756 Size = 0003A1
BSS Offs = 0003B6 Size = 00002B
DATA Offs = 00016A Size = 000003
/Users/cas/develop/cc65/libsrc/atari.lib(errno.o):
BSS Offs = 0003E1 Size = 000002
/Users/cas/develop/cc65/libsrc/atari.lib(fclose.o):
CODE Offs = 003AF7 Size = 000026
/Users/cas/develop/cc65/libsrc/atari.lib(fopen.o):
CODE Offs = 003B1D Size = 00001D
/Users/cas/develop/cc65/libsrc/atari.lib(fread.o):
CODE Offs = 003B3A Size = 000092
BSS Offs = 0003E3 Size = 000002
/Users/cas/develop/cc65/libsrc/atari.lib(fwrite.o):
CODE Offs = 003BCC Size = 000082
BSS Offs = 0003E5 Size = 000002
/Users/cas/develop/cc65/libsrc/atari.lib(ltoa.o):
CODE Offs = 003C4E Size = 0000AF
RODATA Offs = 000630 Size = 00000C
/Users/cas/develop/cc65/libsrc/atari.lib(memcpy.o):
CODE Offs = 003CFD Size = 00003A
/Users/cas/develop/cc65/libsrc/atari.lib(memmove.o):
CODE Offs = 003D37 Size = 00003C
/Users/cas/develop/cc65/libsrc/atari.lib(memset.o):
CODE Offs = 003D73 Size = 00003F
/Users/cas/develop/cc65/libsrc/atari.lib(rand.o):
CODE Offs = 003DB2 Size = 00004C
DATA Offs = 00016D Size = 000004
/Users/cas/develop/cc65/libsrc/atari.lib(sprintf.o):
CODE Offs = 003DFE Size = 00002B
BSS Offs = 0003E7 Size = 000001
/Users/cas/develop/cc65/libsrc/atari.lib(strlen.o):
CODE Offs = 003E29 Size = 000016
/Users/cas/develop/cc65/libsrc/atari.lib(strlower.o):
CODE Offs = 003E3F Size = 000028
/Users/cas/develop/cc65/libsrc/atari.lib(strupper.o):
CODE Offs = 003E67 Size = 000028
/Users/cas/develop/cc65/libsrc/atari.lib(vsprintf.o):
CODE Offs = 003E8F Size = 000076
DATA Offs = 000171 Size = 000008
/Users/cas/develop/cc65/libsrc/atari.lib(zerobss.o):
CODE Offs = 003F05 Size = 000023
/Users/cas/develop/cc65/libsrc/atari.lib(add.o):
CODE Offs = 003F28 Size = 00001A
/Users/cas/develop/cc65/libsrc/atari.lib(addeqsp.o):
CODE Offs = 003F42 Size = 000011
/Users/cas/develop/cc65/libsrc/atari.lib(addysp.o):
CODE Offs = 003F53 Size = 00000E
/Users/cas/develop/cc65/libsrc/atari.lib(and.o):
CODE Offs = 003F61 Size = 000010
/Users/cas/develop/cc65/libsrc/atari.lib(aslax3.o):
CODE Offs = 003F71 Size = 00000E
/Users/cas/develop/cc65/libsrc/atari.lib(axlong.o):
CODE Offs = 003F7F Size = 000012
/Users/cas/develop/cc65/libsrc/atari.lib(bneg.o):
CODE Offs = 003F91 Size = 00000E
/Users/cas/develop/cc65/libsrc/atari.lib(callmain.o):
CODE Offs = 003F9F Size = 000017
BSS Offs = 0003E8 Size = 000004
/Users/cas/develop/cc65/libsrc/atari.lib(condes.o):
CODE Offs = 003FB6 Size = 000038
BSS Offs = 0003EC Size = 000001
DATA Offs = 000179 Size = 000007
/Users/cas/develop/cc65/libsrc/atari.lib(decax1.o):
CODE Offs = 003FEE Size = 000007
/Users/cas/develop/cc65/libsrc/atari.lib(decsp1.o):
CODE Offs = 003FF5 Size = 000009
/Users/cas/develop/cc65/libsrc/atari.lib(decsp2.o):
CODE Offs = 003FFE Size = 00000D
/Users/cas/develop/cc65/libsrc/atari.lib(decsp3.o):
CODE Offs = 00400B Size = 00000D
/Users/cas/develop/cc65/libsrc/atari.lib(decsp4.o):
CODE Offs = 004018 Size = 00000D
/Users/cas/develop/cc65/libsrc/atari.lib(decsp5.o):
CODE Offs = 004025 Size = 00000D
/Users/cas/develop/cc65/libsrc/atari.lib(decsp6.o):
CODE Offs = 004032 Size = 00000D
/Users/cas/develop/cc65/libsrc/atari.lib(decsp8.o):
CODE Offs = 00403F Size = 00000D
/Users/cas/develop/cc65/libsrc/atari.lib(div.o):
CODE Offs = 00404C Size = 000018
/Users/cas/develop/cc65/libsrc/atari.lib(enter.o):
CODE Offs = 004064 Size = 00000E
/Users/cas/develop/cc65/libsrc/atari.lib(ge.o):
CODE Offs = 004072 Size = 00000A
/Users/cas/develop/cc65/libsrc/atari.lib(icmp.o):
CODE Offs = 00407C Size = 00002C
/Users/cas/develop/cc65/libsrc/atari.lib(incax1.o):
CODE Offs = 0040A8 Size = 000007
/Users/cas/develop/cc65/libsrc/atari.lib(incax2.o):
CODE Offs = 0040AF Size = 000007
/Users/cas/develop/cc65/libsrc/atari.lib(incax3.o):
CODE Offs = 0040B6 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(incax5.o):
CODE Offs = 0040BB Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(incax6.o):
CODE Offs = 0040C0 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(incax7.o):
CODE Offs = 0040C5 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(incaxy.o):
CODE Offs = 0040CA Size = 00000B
/Users/cas/develop/cc65/libsrc/atari.lib(incsp1.o):
CODE Offs = 0040D5 Size = 000007
/Users/cas/develop/cc65/libsrc/atari.lib(incsp2.o):
CODE Offs = 0040DC Size = 000016
/Users/cas/develop/cc65/libsrc/atari.lib(incsp3.o):
CODE Offs = 0040F2 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(incsp4.o):
CODE Offs = 0040F7 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(incsp5.o):
CODE Offs = 0040FC Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(incsp6.o):
CODE Offs = 004101 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(incsp7.o):
CODE Offs = 004106 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(incsp8.o):
CODE Offs = 00410B Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(ldaxi.o):
CODE Offs = 004110 Size = 00000D
/Users/cas/develop/cc65/libsrc/atari.lib(ldaxsp.o):
CODE Offs = 00411D Size = 000009
/Users/cas/develop/cc65/libsrc/atari.lib(leasp.o):
CODE Offs = 004126 Size = 000009
/Users/cas/develop/cc65/libsrc/atari.lib(leave.o):
CODE Offs = 00412F Size = 00001D
/Users/cas/develop/cc65/libsrc/atari.lib(lpush.o):
CODE Offs = 00414C Size = 00001E
/Users/cas/develop/cc65/libsrc/atari.lib(lsub.o):
CODE Offs = 00416A Size = 000021
/Users/cas/develop/cc65/libsrc/atari.lib(lt.o):
CODE Offs = 00418B Size = 00000A
/Users/cas/develop/cc65/libsrc/atari.lib(ludiv.o):
CODE Offs = 004195 Size = 000074
/Users/cas/develop/cc65/libsrc/atari.lib(makebool.o):
CODE Offs = 004209 Size = 000031
/Users/cas/develop/cc65/libsrc/atari.lib(mod.o):
CODE Offs = 00423A Size = 000014
/Users/cas/develop/cc65/libsrc/atari.lib(mul.o):
CODE Offs = 00424E Size = 00002C
/Users/cas/develop/cc65/libsrc/atari.lib(mulax5.o):
CODE Offs = 00427A Size = 000014
/Users/cas/develop/cc65/libsrc/atari.lib(mulax7.o):
CODE Offs = 00428E Size = 000019
/Users/cas/develop/cc65/libsrc/atari.lib(neg.o):
CODE Offs = 0042A7 Size = 00000E
/Users/cas/develop/cc65/libsrc/atari.lib(popsreg.o):
CODE Offs = 0042B5 Size = 000010
/Users/cas/develop/cc65/libsrc/atari.lib(push1.o):
CODE Offs = 0042C5 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(push2.o):
CODE Offs = 0042CA Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(push3.o):
CODE Offs = 0042CF Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(push6.o):
CODE Offs = 0042D4 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(push7.o):
CODE Offs = 0042D9 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(pusha.o):
CODE Offs = 0042DE Size = 000016
/Users/cas/develop/cc65/libsrc/atari.lib(pushaff.o):
CODE Offs = 0042F4 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(pushax.o):
CODE Offs = 0042F9 Size = 00001A
/Users/cas/develop/cc65/libsrc/atari.lib(pushc0.o):
CODE Offs = 004313 Size = 000005
/Users/cas/develop/cc65/libsrc/atari.lib(pushw.o):
CODE Offs = 004318 Size = 00000F
/Users/cas/develop/cc65/libsrc/atari.lib(pushwsp.o):
CODE Offs = 004327 Size = 00001C
/Users/cas/develop/cc65/libsrc/atari.lib(return0.o):
CODE Offs = 004343 Size = 000004
/Users/cas/develop/cc65/libsrc/atari.lib(shelp.o):
CODE Offs = 004347 Size = 00001E
/Users/cas/develop/cc65/libsrc/atari.lib(shl.o):
CODE Offs = 004365 Size = 000036
/Users/cas/develop/cc65/libsrc/atari.lib(shrax1.o):
CODE Offs = 00439B Size = 000008
/Users/cas/develop/cc65/libsrc/atari.lib(staspidx.o):
CODE Offs = 0043A3 Size = 000016
/Users/cas/develop/cc65/libsrc/atari.lib(staxsp.o):
CODE Offs = 0043B9 Size = 00000B
/Users/cas/develop/cc65/libsrc/atari.lib(staxspi.o):
CODE Offs = 0043C4 Size = 00001B
/Users/cas/develop/cc65/libsrc/atari.lib(sub.o):
CODE Offs = 0043DF Size = 000015
/Users/cas/develop/cc65/libsrc/atari.lib(subeqsp.o):
CODE Offs = 0043F4 Size = 000015
/Users/cas/develop/cc65/libsrc/atari.lib(subysp.o):
CODE Offs = 004409 Size = 00000D
/Users/cas/develop/cc65/libsrc/atari.lib(toslong.o):
CODE Offs = 004416 Size = 000038
/Users/cas/develop/cc65/libsrc/atari.lib(udiv.o):
CODE Offs = 00444E Size = 000036
/Users/cas/develop/cc65/libsrc/atari.lib(umod.o):
CODE Offs = 004484 Size = 000011
/Users/cas/develop/cc65/libsrc/atari.lib(zeropage.o):
ZEROPAGE Offs = 000000 Size = 00001A
/Users/cas/develop/cc65/libsrc/atari.lib(_cursor.o):
BSS Offs = 0003ED Size = 000001
Segment list:
-------------
Name Start End Size
--------------------------------------------
EXEHDR 000000 000005 000006
ZEROPAGE 000082 00009B 00001A
CODE 002E00 007294 004495
RODATA 007295 0078D6 000642
DATA 0078D7 007A56 000180
BSS 007A57 007E44 0003EE
AUTOSTRT 007E45 007E4A 000006
Exports list:
-------------
__BSS_LOAD__ 007A57 RLA __BSS_RUN__ 007A57 RLA
__BSS_SIZE__ 0003EE REA __CODE_LOAD__ 002E00 RLA
__CONSTRUCTOR_COUNT__ 000002 REA __CONSTRUCTOR_TABLE__ 0078D1 RLA
__DESTRUCTOR_COUNT__ 000001 REA __DESTRUCTOR_TABLE__ 0078D5 RLA
__clocks_per_sec 006046 RLA __ctype 007772 RLA
__do_oserror 006419 RLA __errno 007E38 RLA
__fdesc 0064BA RLA __filetab 007A2B RLA
__fopen 0064D6 RLA __graphmode_used 007A2A RLA
__hextab 0078B5 RLA __inviocb 006427 RLA
__oserror 007E0C RLA __printf 006649 RLA
__rwsetup 0063DB RLA __seterrno 006420 RLA
_cgetc 005FE2 RLA _clock 006033 RLA
_close 006056 RLA _dli01 005E44 RLA
_exit 002E5B RLA _fclose 0068F7 RLA
_fnt14 005743 RLA _fnt7 0053C3 RLA
_fopen 00691D RLA _fread 00693A RLA
_fwrite 0069CC RLA _graphics 006257 RLA
_ltoa 006A6A RLA _main 0051C8 RLA
_memcpy 006AFD RLA _memmove 006B37 RLA
_memset 006B7B RLA _menuflg 005E43 RLA
_open 0062F8 RLA _rand 006BB2 RLA
_read 0063AF RLA _sprintf 006BFE RLA
_srand 006BEF RLA _strlen 006C29 RLA
_strlower 006C3F RLA _strupr 006C67 RLA
_ultoa 006AC1 RLA _vsprintf 006CC6 RLA
_write 006492 RLA addeq0sp 006D42 RLA
addeqysp 006D44 RLA addysp 006D54 RLA
addysp1 006D53 RLA aslax3 006D71 RLA
axlong 006D86 RLA axulong 006D7F RLA
bnegax 006D91 RLA boolge 00701F RLA
boollt 007017 RLA booluge 00702F RLA
callmain 006D9F RLA closeallfiles 0063A0 LAI
clriocb 0060BB RLA cursor 007E44 RLA
decax1 006DEE RLA decsp1 006DF5 RLA
decsp2 006DFE RLA decsp3 006E0B RLA
decsp4 006E18 RLA decsp5 006E25 RLA
decsp6 006E32 RLA decsp8 006E3F RLA
donelib 006DBF RLA enter 006E64 RLA
fd_index 0079FE RLA fd_table 007A0A RLA
fddecusage 0060FC RLA fdt_to_fdi 00622E RLA
fdtoiocb 0060C8 RLA fdtoiocb_down 006074 RLA
findfreeiocb 0060E7 RLA getfd 006245 RLA
incax1 006EA8 RLA incax2 006EAF RLA
incax3 006EB6 RLA incax4 006ECA RLA
incax5 006EBB RLA incax6 006EC0 RLA
incax7 006EC5 RLA incaxy 006ECC RLA
incsp1 006ED5 RLA incsp2 006EE4 RLA
incsp3 006EF2 RLA incsp4 006EF7 RLA
incsp5 006EFC RLA incsp6 006F01 RLA
incsp7 006F06 RLA incsp8 006F0B RLA
initlib 006DB6 RLA initscrmem 0062BD LAI
initsp 002E86 LAI ldax0sp 006F1D RLA
ldaxi 006F10 RLA ldaxysp 006F1F RLA
leaasp 006F26 RLA leave 006F3C RLA
leavey 006F39 RLA memcpy_getparams 006B1D RLA
memcpy_upwards 006B00 RLA mul40 0062D8 RLA
mulax5 00707A RLA mulax7 00708E RLA
negax 0070A7 RLA newfd 00612A RLA
popax 006EDC RLA popsargs 007147 RLA
popsreg 0070B5 RLA ptr1 00008A RLZ
ptr2 00008C RLZ ptr3 00008E RLZ
ptr4 000090 RLZ push0 0070F9 RLA
push1 0070C5 RLA push2 0070CA RLA
push3 0070CF RLA push6 0070D4 RLA
push7 0070D9 RLA pusha 0070E2 RLA
pusha0 0070FB RLA pushaFF 0070F4 RLA
pushax 0070FD RLA pushc0 007113 RLA
pusheax 006F52 RLA pushw 007118 RLA
pushw0sp 007127 RLA pushwysp 007129 RLA
regbank 000096 RLZ regsave 000086 RLZ
return0 007143 RLA shlax3 006D71 RLA
shrax1 00719B RLA sp 000082 RLZ
sreg 000084 RLZ staspidx 0071A3 RLA
stax0sp 0071B9 RLA staxspidx 0071C4 RLA
staxysp 0071BB RLA subeqysp 0071F6 RLA
subysp 007209 RLA tmp1 000092 RLZ
tmp2 000093 RLZ tmp3 000094 RLZ
tmp4 000095 RLZ tosadda0 006D28 RLA
tosaddax 006D2A RLA tosandax 006D63 RLA
tosaslax 007167 RLA tosdiva0 006E4C RLA
tosgea0 006E74 RLA tosicmp 006E7C RLA
toslong 007234 RLA toslta0 006F8D RLA
tosmoda0 00703A RLA tosmula0 00704E RLA
tosmulax 007050 RLA tossuba0 0071DF RLA
tossubax 0071E1 RLA tossubeax 006F6A RLA
tosudivax 007250 RLA tosudiveax 006F95 RLA
tosumoda0 007284 RLA tosumula0 00704E RLA
tosumulax 007050 RLA ucase_fn 006431 RLA
udiv16 00725F RLA zerobss 006D05 RLA
Imports list:
-------------
__BSS_LOAD__ ([linker generated]):
atari.o crt0.s(18)
__BSS_RUN__ ([linker generated]):
zerobss.o zerobss.s(8)
__BSS_SIZE__ ([linker generated]):
zerobss.o zerobss.s(8)
__CODE_LOAD__ ([linker generated]):
atari.o crt0.s(18)
__CONSTRUCTOR_COUNT__ ([linker generated]):
condes.o condes.s(18)
__CONSTRUCTOR_TABLE__ ([linker generated]):
condes.o condes.s(18)
__DESTRUCTOR_COUNT__ ([linker generated]):
condes.o condes.s(19)
__DESTRUCTOR_TABLE__ ([linker generated]):
condes.o condes.s(19)
__clocks_per_sec (clock.o):
agreed.o agreed.s(26)
__ctype (ctype.o):
strupper.o strupper.s(12)
strlower.o strlower.s(12)
__do_oserror (rwcommon.o):
open.o open.s(19)
write.o write.s(5)
read.o read.s(8)
close.o close.s(9)
graphics.o graphics.s(14)
__errno (errno.o):
_fopen.o errno.inc(7)
fwrite.o errno.inc(7)
fread.o errno.inc(7)
fopen.o errno.inc(7)
fclose.o errno.inc(7)
rwcommon.o errno.inc(7)
__fdesc (_fdesc.o):
fopen.o fopen.s(10)
__filetab (_file.o):
_fdesc.o _file.inc(24)
atari.o crt0.s(17)
__fopen (_fopen.o):
fopen.o fopen.s(10)
__graphmode_used (graphuse.o):
graphics.o graphics.s(19)
__hextab (_hextab.o):
ltoa.o ltoa.s(10)
__inviocb (rwcommon.o):
write.o write.s(5)
read.o read.s(8)
close.o close.s(10)
__oserror (_oserror.o):
open.o errno.inc(7)
write.o write.s(5)
read.o read.s(8)
close.o close.s(9)
rwcommon.o errno.inc(7)
graphics.o graphics.s(14)
__printf (_printf.o):
vsprintf.o vsprintf.s(9)
__rwsetup (rwcommon.o):
write.o write.s(5)
read.o read.s(8)
__seterrno (rwcommon.o):
open.o open.s(19)
graphics.o graphics.s(14)
_cgetc (cgetc.o):
agreed.o agreed.s(13)
_clock (clock.o):
agreed.o agreed.s(27)
_close (close.o):
open.o open.s(15)
fclose.o fclose.s(10)
_dli01 (dli1.o):
agreed.o agreed.s(28)
_exit (atari.o):
agreed.o agreed.s(16)
_fclose (fclose.o):
agreed.o agreed.s(17)
_fnt14 (dli1.o):
agreed.o agreed.s(31)
_fnt7 (dli1.o):
agreed.o agreed.s(30)
_fopen (fopen.o):
agreed.o agreed.s(18)
_fread (fread.o):
agreed.o agreed.s(19)
_fwrite (fwrite.o):
agreed.o agreed.s(20)
_graphics (graphics.o):
agreed.o agreed.s(12)
_ltoa (ltoa.o):
_printf.o _printf.s(11)
_main (agreed.o):
callmain.o callmain.s(11)
_memcpy (memcpy.o):
vsprintf.o vsprintf.s(9)
agreed.o agreed.s(23)
_memmove (memmove.o):
agreed.o agreed.s(24)
_memset (memset.o):
agreed.o agreed.s(25)
_menuflg (dli1.o):
agreed.o agreed.s(29)
_open (open.o):
_fopen.o _fopen.s(10)
_rand (rand.o):
agreed.o agreed.s(14)
_read (read.o):
fread.o fread.s(10)
_sprintf (sprintf.o):
agreed.o agreed.s(21)
_srand (rand.o):
agreed.o agreed.s(15)
_strlen (strlen.o):
_printf.o _printf.s(12)
agreed.o agreed.s(22)
_strlower (strlower.o):
_printf.o _printf.s(12)
_strupr (strupper.o):
ucase_fn.o ucase_fn.s(25)
_ultoa (ltoa.o):
_printf.o _printf.s(11)
_vsprintf (vsprintf.o):
sprintf.o sprintf.s(8)
_write (write.o):
fwrite.o fwrite.s(10)
addeq0sp (addeqsp.o):
agreed.o agreed.s(768)
agreed.o agreed.s(904)
agreed.o agreed.s(1082)
agreed.o agreed.s(1280)
agreed.o agreed.s(3514)
agreed.o agreed.s(4211)
agreed.o agreed.s(4778)
agreed.o agreed.s(6132)
addeqysp (addeqsp.o):
agreed.o agreed.s(891)
agreed.o agreed.s(1069)
agreed.o agreed.s(1380)
agreed.o agreed.s(1627)
agreed.o agreed.s(1914)
agreed.o agreed.s(2158)
agreed.o agreed.s(2583)
agreed.o agreed.s(3988)
agreed.o agreed.s(4442)
agreed.o agreed.s(4688)
agreed.o agreed.s(5650)
agreed.o agreed.s(6126)
addysp (addysp.o):
open.o open.s(20)
leave.o leave.s(13)
incsp8.o incsp8.s(8)
incsp7.o incsp7.s(8)
incsp6.o incsp6.s(8)
incsp5.o incsp5.s(8)
incsp4.o incsp4.s(8)
incsp3.o incsp3.s(8)
sprintf.o sprintf.s(8)
fwrite.o fwrite.s(11)
fread.o fread.s(11)
agreed.o agreed.s(1417)
agreed.o agreed.s(1806)
agreed.o agreed.s(2900)
agreed.o agreed.s(3839)
addysp1 (addysp.o):
sub.o sub.s(8)
ludiv.o ludiv.s(8)
lsub.o lsub.s(11)
and.o and.s(8)
aslax3 (aslax3.o):
agreed.o agreed.s(1668)
agreed.o agreed.s(2452)
axlong (axlong.o):
_printf.o _printf.s(9)
axulong (axlong.o):
_printf.o _printf.s(9)
agreed.o agreed.s(3045)
bnegax (bneg.o):
agreed.o agreed.s(5450)
agreed.o agreed.s(6372)
boolge (makebool.o):
ge.o ge.s(8)
boollt (makebool.o):
lt.o lt.s(8)
booluge (makebool.o):
agreed.o agreed.s(1325)
agreed.o agreed.s(1652)
callmain (callmain.o):
atari.o crt0.s(15)
clriocb (fdtable.o):
open.o open.s(16)
graphics.o graphics.s(16)
cursor (_cursor.o):
cgetc.o cgetc.s(10)
decax1 (decax1.o):
agreed.o agreed.s(3572)
agreed.o agreed.s(6362)
agreed.o agreed.s(6699)
decsp1 (decsp1.o):
agreed.o agreed.s(642)
agreed.o agreed.s(2268)
agreed.o agreed.s(3139)
agreed.o agreed.s(3326)
decsp2 (decsp2.o):
toslong.o toslong.s(8)
agreed.o agreed.s(450)
agreed.o agreed.s(1146)
agreed.o agreed.s(1823)
agreed.o agreed.s(1932)
agreed.o agreed.s(1967)
agreed.o agreed.s(3605)
agreed.o agreed.s(3866)
agreed.o agreed.s(4506)
agreed.o agreed.s(6490)
decsp3 (decsp3.o):
agreed.o agreed.s(705)
agreed.o agreed.s(1882)
agreed.o agreed.s(2045)
agreed.o agreed.s(3661)
agreed.o agreed.s(6393)
decsp4 (decsp4.o):
lpush.o lpush.s(11)
sprintf.o sprintf.s(8)
agreed.o agreed.s(802)
agreed.o agreed.s(951)
agreed.o agreed.s(2921)
decsp5 (decsp5.o):
agreed.o agreed.s(2643)
decsp6 (decsp6.o):
_printf.o _printf.s(9)
agreed.o agreed.s(1319)
agreed.o agreed.s(3038)
agreed.o agreed.s(4823)
agreed.o agreed.s(6066)
decsp8 (decsp8.o):
agreed.o agreed.s(1623)
donelib (condes.o):
atari.o crt0.s(15)
enter (enter.o):
agreed.o agreed.s(701)
agreed.o agreed.s(798)
agreed.o agreed.s(947)
agreed.o agreed.s(1142)
agreed.o agreed.s(2245)
agreed.o agreed.s(2639)
agreed.o agreed.s(2917)
agreed.o agreed.s(3565)
agreed.o agreed.s(3601)
agreed.o agreed.s(3856)
agreed.o agreed.s(4287)
agreed.o agreed.s(4496)
agreed.o agreed.s(5127)
agreed.o agreed.s(6355)
fd_index (getfd.o):
fdtable.o fdtable.s(10)
fd_table (getfd.o):
fdtable.o fdtable.s(10)
fddecusage (fdtable.o):
open.o open.s(17)
graphics.o graphics.s(15)
fdt_to_fdi (getfd.o):
fdtable.o fdtable.s(11)
fdtoiocb (fdtable.o):
rwcommon.o rwcommon.s(10)
graphics.o graphics.s(17)
fdtoiocb_down (fdtable.o):
close.o close.s(10)
findfreeiocb (fdtable.o):
open.o open.s(18)
graphics.o graphics.s(13)
getfd (getfd.o):
atari.o crt0.s(17)
incax1 (incax1.o):
agreed.o agreed.s(744)
agreed.o agreed.s(1180)
agreed.o agreed.s(1386)
agreed.o agreed.s(1532)
agreed.o agreed.s(1584)
agreed.o agreed.s(1748)
agreed.o agreed.s(1843)
agreed.o agreed.s(2510)
agreed.o agreed.s(3695)
agreed.o agreed.s(6097)
agreed.o agreed.s(6368)
agreed.o agreed.s(6408)
agreed.o agreed.s(6698)
incax2 (incax2.o):
agreed.o agreed.s(865)
agreed.o agreed.s(1014)
agreed.o agreed.s(1207)
incax3 (incax3.o):
agreed.o agreed.s(847)
agreed.o agreed.s(996)
agreed.o agreed.s(4550)
incax4 (incaxy.o):
agreed.o agreed.s(1167)
incax5 (incax5.o):
agreed.o agreed.s(726)
agreed.o agreed.s(1155)
agreed.o agreed.s(4542)
incax6 (incax6.o):
agreed.o agreed.s(714)
agreed.o agreed.s(823)
agreed.o agreed.s(972)
incax7 (incax7.o):
agreed.o agreed.s(811)
agreed.o agreed.s(960)
incaxy (incaxy.o):
incax7.o incax7.s(8)
incax6.o incax6.s(8)
incax5.o incax5.s(8)
incax3.o incax3.s(8)
agreed.o agreed.s(456)
agreed.o agreed.s(2393)
agreed.o agreed.s(2724)
agreed.o agreed.s(4174)
agreed.o agreed.s(4433)
agreed.o agreed.s(5164)
incsp1 (incsp1.o):
agreed.o agreed.s(433)
agreed.o agreed.s(2330)
agreed.o agreed.s(3309)
agreed.o agreed.s(3486)
incsp2 (incsp2.o):
staxspi.o staxspi.s(8)
staspidx.o staspidx.s(8)
popsreg.o popsreg.s(8)
agreed.o agreed.s(684)
agreed.o agreed.s(2028)
agreed.o agreed.s(3548)
agreed.o agreed.s(6338)
incsp3 (incsp3.o):
agreed.o agreed.s(475)
agreed.o agreed.s(3718)
incsp4 (incsp4.o):
open.o open.s(19)
_fopen.o _fopen.s(11)
rwcommon.o rwcommon.s(8)
agreed.o agreed.s(6806)
incsp5 (incsp5.o):
agreed.o agreed.s(1459)
agreed.o agreed.s(1502)
agreed.o agreed.s(1892)
agreed.o agreed.s(6465)
incsp6 (incsp6.o):
fwrite.o fwrite.s(11)
fread.o fread.s(11)
agreed.o agreed.s(1524)
agreed.o agreed.s(1576)
agreed.o agreed.s(3058)
agreed.o agreed.s(4201)
agreed.o agreed.s(4767)
agreed.o agreed.s(6174)
incsp7 (incsp7.o):
agreed.o agreed.s(2228)
incsp8 (incsp8.o):
agreed.o agreed.s(1835)
agreed.o agreed.s(1948)
agreed.o agreed.s(1983)
agreed.o agreed.s(5110)
initlib (condes.o):
atari.o crt0.s(15)
ldax0sp (ldaxsp.o):
rwcommon.o rwcommon.s(8)
agreed.o agreed.s(466)
agreed.o agreed.s(1236)
agreed.o agreed.s(1519)
agreed.o agreed.s(1571)
agreed.o agreed.s(1830)
agreed.o agreed.s(1949)
agreed.o agreed.s(1984)
agreed.o agreed.s(3507)
agreed.o agreed.s(3709)
agreed.o agreed.s(3910)
agreed.o agreed.s(4519)
ldaxi (ldaxi.o):
agreed.o agreed.s(745)
agreed.o agreed.s(866)
agreed.o agreed.s(1015)
agreed.o agreed.s(1198)
agreed.o agreed.s(2394)
agreed.o agreed.s(4183)
agreed.o agreed.s(4543)
agreed.o agreed.s(6369)
ldaxysp (ldaxsp.o):
open.o open.s(20)
fwrite.o fwrite.s(11)
fread.o fread.s(11)
rwcommon.o rwcommon.s(8)
agreed.o agreed.s(1342)
agreed.o agreed.s(1529)
agreed.o agreed.s(1581)
agreed.o agreed.s(1667)
agreed.o agreed.s(1825)
agreed.o agreed.s(1890)
agreed.o agreed.s(1939)
agreed.o agreed.s(1974)
agreed.o agreed.s(2015)
agreed.o agreed.s(2047)
agreed.o agreed.s(2376)
agreed.o agreed.s(2677)
agreed.o agreed.s(2851)
agreed.o agreed.s(2975)
agreed.o agreed.s(3095)
agreed.o agreed.s(3868)
agreed.o agreed.s(4348)
agreed.o agreed.s(4508)
agreed.o agreed.s(5518)
agreed.o agreed.s(6402)
leaasp (leasp.o):
agreed.o agreed.s(713)
agreed.o agreed.s(810)
agreed.o agreed.s(959)
agreed.o agreed.s(1154)
agreed.o agreed.s(2391)
agreed.o agreed.s(2805)
agreed.o agreed.s(3082)
agreed.o agreed.s(3571)
agreed.o agreed.s(3738)
agreed.o agreed.s(4180)
agreed.o agreed.s(4333)
agreed.o agreed.s(4541)
agreed.o agreed.s(4900)
agreed.o agreed.s(5163)
agreed.o agreed.s(6361)
leave (leave.o):
agreed.o agreed.s(3584)
agreed.o agreed.s(6376)
leavey (leave.o):
agreed.o agreed.s(781)
agreed.o agreed.s(930)
agreed.o agreed.s(1125)
agreed.o agreed.s(1302)
agreed.o agreed.s(2622)
agreed.o agreed.s(2760)
agreed.o agreed.s(2998)
agreed.o agreed.s(3644)
agreed.o agreed.s(4225)
agreed.o agreed.s(4479)
agreed.o agreed.s(4797)
agreed.o agreed.s(6049)
memcpy_getparams (memcpy.o):
memmove.o memmove.s(10)
memcpy_upwards (memcpy.o):
memmove.o memmove.s(10)
mul40 (mul40.o):
cgetc.o cgetc.s(10)
mulax5 (mulax5.o):
agreed.o agreed.s(6426)
mulax7 (mulax7.o):
agreed.o agreed.s(1444)
negax (neg.o):
shelp.o shelp.s(11)
mod.o mod.s(11)
div.o div.s(11)
newfd (fdtable.o):
open.o open.s(17)
graphics.o graphics.s(18)
popax (incsp2.o):
ltoa.o ltoa.s(9)
_printf.o _printf.s(9)
shelp.o shelp.s(11)
vsprintf.o vsprintf.s(8)
memset.o memset.s(17)
memcpy.o memcpy.s(12)
popsargs (shelp.o):
mod.o mod.s(11)
div.o div.s(11)
popsreg (popsreg.o):
umod.o umod.s(8)
udiv.o udiv.s(8)
shl.o shl.s(8)
mul.o mul.s(8)
ptr1 (zeropage.o):
strupper.o strupper.s(13)
strlower.o strlower.s(13)
ltoa.o ltoa.s(11)
_printf.o _printf.s(13)
_fopen.o _fopen.s(12)
umod.o umod.s(9)
udiv.o udiv.s(9)
staxspi.o staxspi.s(9)
staspidx.o staspidx.s(9)
pushw.o pushw.s(9)
mulax7.o mulax7.s(9)
mulax5.o mulax5.s(8)
mod.o mod.s(12)
ludiv.o ludiv.s(9)
ldaxi.o ldaxi.s(8)
zerobss.o zerobss.s(9)
vsprintf.o vsprintf.s(10)
strlen.o strlen.s(8)
sprintf.o sprintf.s(9)
memset.o memset.s(18)
memmove.o memmove.s(11)
memcpy.o memcpy.s(13)
fwrite.o fwrite.s(14)
fread.o fread.s(14)
fclose.o fclose.s(11)
agreed.o agreed.s(10)
ptr2 (zeropage.o):
strupper.o strupper.s(13)
strlower.o strlower.s(13)
ltoa.o ltoa.s(11)
_printf.o _printf.s(13)
ludiv.o ludiv.s(9)
memmove.o memmove.s(11)
memcpy.o memcpy.s(13)
agreed.o agreed.s(10)
ptr3 (zeropage.o):
ltoa.o ltoa.s(11)
ludiv.o ludiv.s(9)
memset.o memset.s(18)
memmove.o memmove.s(11)
memcpy.o memcpy.s(13)
ptr4 (zeropage.o):
ucase_fn.o ucase_fn.s(24)
fdtable.o fdtable.s(9)
umod.o umod.s(9)
udiv.o udiv.s(9)
shelp.o shelp.s(12)
mul.o mul.s(9)
ludiv.o ludiv.s(9)
memmove.o memmove.s(11)
push0 (pushax.o):
agreed.o agreed.s(752)
agreed.o agreed.s(2002)
agreed.o agreed.s(2061)
agreed.o agreed.s(3503)
agreed.o agreed.s(3609)
agreed.o agreed.s(4242)
agreed.o agreed.s(4330)
agreed.o agreed.s(5878)
agreed.o agreed.s(6070)
push1 (push1.o):
_printf.o _printf.s(9)
agreed.o agreed.s(1935)
agreed.o agreed.s(1970)
agreed.o agreed.s(3080)
agreed.o agreed.s(4331)
agreed.o agreed.s(4875)
agreed.o agreed.s(5856)
agreed.o agreed.s(6364)
agreed.o agreed.s(6486)
push2 (push2.o):
agreed.o agreed.s(2799)
agreed.o agreed.s(2931)
agreed.o agreed.s(3519)
agreed.o agreed.s(4885)
push3 (push3.o):
agreed.o agreed.s(3166)
agreed.o agreed.s(3353)
push6 (push6.o):
agreed.o agreed.s(3751)
push7 (push7.o):
agreed.o agreed.s(6452)
pusha (pusha.o):
pushc0.o pushc0.s(8)
agreed.o agreed.s(453)
agreed.o agreed.s(1440)
agreed.o agreed.s(1482)
agreed.o agreed.s(1549)
agreed.o agreed.s(1601)
agreed.o agreed.s(1640)
agreed.o agreed.s(1860)
agreed.o agreed.s(2213)
agreed.o agreed.s(2335)
agreed.o agreed.s(2709)
agreed.o agreed.s(3141)
agreed.o agreed.s(3328)
agreed.o agreed.s(3531)
agreed.o agreed.s(4186)
agreed.o agreed.s(4302)
agreed.o agreed.s(4851)
agreed.o agreed.s(5745)
agreed.o agreed.s(6554)
pusha0 (pushax.o):
push7.o push7.s(8)
push6.o push6.s(8)
push3.o push3.s(8)
push2.o push2.s(8)
push1.o push1.s(8)
agreed.o agreed.s(420)
agreed.o agreed.s(710)
agreed.o agreed.s(807)
agreed.o agreed.s(956)
agreed.o agreed.s(1151)
agreed.o agreed.s(1321)
agreed.o agreed.s(1485)
agreed.o agreed.s(1648)
agreed.o agreed.s(1904)
agreed.o agreed.s(2004)
agreed.o agreed.s(2075)
agreed.o agreed.s(2252)
agreed.o agreed.s(2669)
agreed.o agreed.s(2812)
agreed.o agreed.s(2968)
agreed.o agreed.s(3079)
agreed.o agreed.s(3147)
agreed.o agreed.s(3334)
agreed.o agreed.s(3753)
agreed.o agreed.s(3973)
agreed.o agreed.s(4244)
agreed.o agreed.s(4306)
agreed.o agreed.s(4673)
agreed.o agreed.s(4855)
agreed.o agreed.s(6156)
agreed.o agreed.s(6580)
pushaFF (pushaff.o):
agreed.o agreed.s(3862)
agreed.o agreed.s(4502)
pushax (pushax.o):
_printf.o _printf.s(9)
pushw.o pushw.s(8)
pushaff.o pushaff.s(8)
callmain.o callmain.s(11)
fwrite.o fwrite.s(11)
fread.o fread.s(11)
fopen.o fopen.s(11)
agreed.o agreed.s(708)
agreed.o agreed.s(805)
agreed.o agreed.s(954)
agreed.o agreed.s(1149)
agreed.o agreed.s(1340)
agreed.o agreed.s(1452)
agreed.o agreed.s(1495)
agreed.o agreed.s(1537)
agreed.o agreed.s(1589)
agreed.o agreed.s(1676)
agreed.o agreed.s(1848)
agreed.o agreed.s(2007)
agreed.o agreed.s(2054)
agreed.o agreed.s(2255)
agreed.o agreed.s(2646)
agreed.o agreed.s(2806)
agreed.o agreed.s(2938)
agreed.o agreed.s(3041)
agreed.o agreed.s(3171)
agreed.o agreed.s(3358)
agreed.o agreed.s(3508)
agreed.o agreed.s(3608)
agreed.o agreed.s(3677)
agreed.o agreed.s(3739)
agreed.o agreed.s(3869)
agreed.o agreed.s(4247)
agreed.o agreed.s(4295)
agreed.o agreed.s(4509)
agreed.o agreed.s(4863)
agreed.o agreed.s(5135)
agreed.o agreed.s(6069)
agreed.o agreed.s(6319)
agreed.o agreed.s(6405)
agreed.o agreed.s(6519)
pushc0 (pushc0.o):
agreed.o agreed.s(2682)
agreed.o agreed.s(4300)
agreed.o agreed.s(4832)
agreed.o agreed.s(6191)
pusheax (lpush.o):
_printf.o _printf.s(9)
agreed.o agreed.s(3043)
pushw (pushw.o):
agreed.o agreed.s(3573)
agreed.o agreed.s(6363)
agreed.o agreed.s(6403)
pushw0sp (pushwsp.o):
agreed.o agreed.s(751)
agreed.o agreed.s(872)
agreed.o agreed.s(3675)
agreed.o agreed.s(4546)
agreed.o agreed.s(6114)
pushwysp (pushwsp.o):
fwrite.o fwrite.s(11)
fread.o fread.s(11)
agreed.o agreed.s(874)
agreed.o agreed.s(1050)
agreed.o agreed.s(1368)
agreed.o agreed.s(1435)
agreed.o agreed.s(1477)
agreed.o agreed.s(1539)
agreed.o agreed.s(1591)
agreed.o agreed.s(1850)
agreed.o agreed.s(1888)
agreed.o agreed.s(1934)
agreed.o agreed.s(1969)
agreed.o agreed.s(2023)
agreed.o agreed.s(2060)
agreed.o agreed.s(2414)
agreed.o agreed.s(2664)
agreed.o agreed.s(2838)
agreed.o agreed.s(2963)
agreed.o agreed.s(3069)
agreed.o agreed.s(4142)
agreed.o agreed.s(4401)
agreed.o agreed.s(4538)
agreed.o agreed.s(5713)
agreed.o agreed.s(6116)
regbank (zeropage.o):
_printf.o _printf.s(13)
regsave (zeropage.o):
agreed.o agreed.s(10)
return0 (return0.o):
_fopen.o _fopen.s(11)
_fdesc.o _fdesc.s(9)
shl.o shl.s(8)
fwrite.o fwrite.s(11)
fread.o fread.s(11)
shlax3 (aslax3.o):
agreed.o agreed.s(1707)
shrax1 (shrax1.o):
agreed.o agreed.s(2017)
sp (zeropage.o):
ucase_fn.o ucase_fn.s(24)
_printf.o _printf.s(13)
_fopen.o _fopen.s(12)
fdtable.o fdtable.s(9)
toslong.o toslong.s(9)
subysp.o subysp.s(9)
subeqsp.o subeqsp.s(8)
sub.o sub.s(9)
staxspi.o staxspi.s(9)
staxsp.o staxsp.s(8)
staspidx.o staspidx.s(9)
pushwsp.o pushwsp.s(8)
pushax.o pushax.s(8)
pusha.o pusha.s(8)
popsreg.o popsreg.s(9)
ludiv.o ludiv.s(9)
lsub.o lsub.s(12)
lpush.o lpush.s(12)
leave.o leave.s(14)
leasp.o leasp.s(8)
ldaxsp.o ldaxsp.s(8)
incsp2.o incsp2.s(8)
incsp1.o incsp1.s(8)
icmp.o icmp.s(9)
enter.o enter.s(8)
decsp8.o decsp8.s(8)
decsp6.o decsp6.s(8)
decsp5.o decsp5.s(8)
decsp4.o decsp4.s(8)
decsp3.o decsp3.s(8)
decsp2.o decsp2.s(8)
decsp1.o decsp1.s(8)
and.o and.s(9)
addysp.o addysp.s(8)
addeqsp.o addeqsp.s(8)
add.o add.s(11)
vsprintf.o vsprintf.s(10)
sprintf.o sprintf.s(9)
memset.o memset.s(18)
agreed.o agreed.s(10)
atari.o zeropage.inc(11)
sreg (zeropage.o):
ltoa.o ltoa.s(11)
_printf.o _printf.s(13)
udiv.o udiv.s(9)
shl.o shl.s(9)
shelp.o shelp.s(12)
popsreg.o popsreg.s(9)
mul.o mul.s(9)
ludiv.o ludiv.s(9)
lsub.o lsub.s(12)
lpush.o lpush.s(12)
icmp.o icmp.s(9)
div.o div.s(12)
axlong.o axlong.s(8)
clock.o clock.s(10)
agreed.o agreed.s(10)
staspidx (staspidx.o):
agreed.o agreed.s(2090)
agreed.o agreed.s(3687)
agreed.o agreed.s(6668)
stax0sp (staxsp.o):
agreed.o agreed.s(457)
agreed.o agreed.s(732)
agreed.o agreed.s(836)
agreed.o agreed.s(985)
agreed.o agreed.s(1173)
agreed.o agreed.s(1327)
agreed.o agreed.s(1826)
agreed.o agreed.s(1941)
agreed.o agreed.s(1976)
agreed.o agreed.s(2048)
agreed.o agreed.s(2471)
agreed.o agreed.s(2970)
agreed.o agreed.s(3616)
agreed.o agreed.s(3664)
agreed.o agreed.s(3909)
agreed.o agreed.s(4518)
agreed.o agreed.s(5643)
agreed.o agreed.s(6098)
agreed.o agreed.s(6513)
staxspidx (staxspi.o):
agreed.o agreed.s(2483)
staxysp (staxsp.o):
agreed.o agreed.s(830)
agreed.o agreed.s(979)
agreed.o agreed.s(1359)
agreed.o agreed.s(1534)
agreed.o agreed.s(1586)
agreed.o agreed.s(1670)
agreed.o agreed.s(1845)
agreed.o agreed.s(1886)
agreed.o agreed.s(2374)
agreed.o agreed.s(2651)
agreed.o agreed.s(2825)
agreed.o agreed.s(2950)
agreed.o agreed.s(3050)
agreed.o agreed.s(4346)
agreed.o agreed.s(5151)
agreed.o agreed.s(6080)
agreed.o agreed.s(6397)
agreed.o agreed.s(6761)
subeqysp (subeqsp.o):
agreed.o agreed.s(2116)
agreed.o agreed.s(2443)
agreed.o agreed.s(4053)
agreed.o agreed.s(4753)
agreed.o agreed.s(5727)
subysp (subysp.o):
ucase_fn.o ucase_fn.s(25)
agreed.o agreed.s(2250)
agreed.o agreed.s(2778)
agreed.o agreed.s(3736)
agreed.o agreed.s(4292)
agreed.o agreed.s(5132)
tmp1 (zeropage.o):
ltoa.o ltoa.s(11)
_printf.o _printf.s(13)
fdtable.o fdtable.s(9)
staxspi.o staxspi.s(9)
staspidx.o staspidx.s(9)
shrax1.o shrax1.s(8)
shelp.o shelp.s(12)
mul.o mul.s(9)
mod.o mod.s(12)
incaxy.o incaxy.s(8)
div.o div.s(12)
aslax3.o aslax3.s(8)
memset.o memset.s(18)
memmove.o memmove.s(11)
memcpy.o memcpy.s(13)
fread.o fread.s(14)
graphics.o graphics.s(20)
getfd.o getfd.s(10)
agreed.o agreed.s(10)
tmp2 (zeropage.o):
ucase_fn.o ucase_fn.s(22)
open.o open.s(22)
fdtable.o fdtable.s(9)
shelp.o shelp.s(12)
div.o div.s(12)
rwcommon.o rwcommon.s(7)
graphics.o graphics.s(20)
tmp3 (zeropage.o):
ucase_fn.o ucase_fn.s(24)
open.o open.s(24)
fdtable.o fdtable.s(9)
ludiv.o ludiv.s(9)
rwcommon.o rwcommon.s(7)
graphics.o graphics.s(20)
tmp4 (zeropage.o):
open.o open.s(22)
ludiv.o ludiv.s(9)
mul40.o mul40.s(8)
tosadda0 (add.o):
agreed.o agreed.s(731)
agreed.o agreed.s(828)
agreed.o agreed.s(977)
agreed.o agreed.s(1172)
tosaddax (add.o):
agreed.o agreed.s(721)
agreed.o agreed.s(818)
agreed.o agreed.s(967)
agreed.o agreed.s(1162)
agreed.o agreed.s(1346)
agreed.o agreed.s(1682)
agreed.o agreed.s(4185)
tosandax (and.o):
agreed.o agreed.s(6371)
tosaslax (shl.o):
agreed.o agreed.s(6370)
tosdiva0 (div.o):
agreed.o agreed.s(3071)
tosgea0 (ge.o):
agreed.o agreed.s(3902)
agreed.o agreed.s(4590)
agreed.o agreed.s(6764)
tosicmp (icmp.o):
lt.o lt.s(8)
ge.o ge.s(8)
agreed.o agreed.s(746)
agreed.o agreed.s(867)
agreed.o agreed.s(1016)
agreed.o agreed.s(1199)
agreed.o agreed.s(1372)
agreed.o agreed.s(1891)
agreed.o agreed.s(2262)
agreed.o agreed.s(3057)
agreed.o agreed.s(4544)
agreed.o agreed.s(5755)
agreed.o agreed.s(6582)
toslong (toslong.o):
agreed.o agreed.s(3047)
toslta0 (lt.o):
agreed.o agreed.s(2379)
agreed.o agreed.s(3510)
agreed.o agreed.s(3871)
agreed.o agreed.s(4351)
agreed.o agreed.s(4511)
agreed.o agreed.s(5137)
agreed.o agreed.s(6321)
agreed.o agreed.s(6625)
tosmoda0 (mod.o):
agreed.o agreed.s(3098)
agreed.o agreed.s(3679)
agreed.o agreed.s(6407)
agreed.o agreed.s(6697)
tosmula0 (mul.o):
agreed.o agreed.s(1326)
agreed.o agreed.s(1653)
agreed.o agreed.s(2257)
agreed.o agreed.s(3792)
agreed.o agreed.s(3939)
agreed.o agreed.s(4373)
agreed.o agreed.s(4639)
agreed.o agreed.s(5584)
agreed.o agreed.s(6646)
tosmulax (mul.o):
agreed.o agreed.s(4184)
tossuba0 (sub.o):
agreed.o agreed.s(1279)
agreed.o agreed.s(6456)
tossubax (sub.o):
agreed.o agreed.s(2018)
agreed.o agreed.s(3797)
tossubeax (lsub.o):
agreed.o agreed.s(3048)
tosudivax (udiv.o):
fwrite.o fwrite.s(12)
fread.o fread.s(12)
agreed.o agreed.s(2261)
agreed.o agreed.s(3796)
tosudiveax (ludiv.o):
agreed.o agreed.s(3046)
tosumoda0 (umod.o):
agreed.o agreed.s(2319)
tosumula0 (mul.o):
agreed.o agreed.s(422)
agreed.o agreed.s(720)
agreed.o agreed.s(817)
agreed.o agreed.s(966)
agreed.o agreed.s(1161)
agreed.o agreed.s(1487)
agreed.o agreed.s(4888)
agreed.o agreed.s(6606)
tosumulax (mul.o):
fwrite.o fwrite.s(12)
fread.o fread.s(12)
ucase_fn (ucase_fn.o):
open.o open.s(25)
udiv16 (udiv.o):
umod.o umod.s(8)
mod.o mod.s(11)
div.o div.s(11)
zerobss (zerobss.o):
atari.o crt0.s(16)
CC65 Sourcecode#
/* -*- C
-*- ****************************************************************
*
* ATARI Greed
* Copyright 2003-2004 Carsten Strotmann, Winfried Piegsda.
* based on greed for Unix,
* written by Matthew T. Day and Eric S. Raymond
*
*
*
*
* System : Atari 800XL/130XL/800XE
* Module :
* Object Name : $RCSfile: GameAtariGreed.txt,v $
* Revision : $Revision: 1.3 $
* Date : Fri Oct 30 12:00:00 2004
* Author : Carsten Strotmann, Winfried Piegsda
* Created By : <unknown>
* Created : Sun Dec 7 15:50:35 2003
* Last Modified : <040425.2127>
*
* Description A version of the game "greed" for the cc65 6502 C-Compiler,
* for ATARI 8-bit Microcomputer
*
* Notes
* greed homepage: http://catb.org/~esr/greed/
*
*
****************************************************************************
*/
#include <conio.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#define MAXSCORE 10 /* max number of highscore entries */
#define rnd(x) (int) ((rand() % (x))+1) /* rnd() returns random num between 1 and x */
#define MK 20 /* marker of current screen location */
#define MAXX 38
#define MAXY 18
#define LEVELLINE 1
#define MENULINE 161
#define STATUSLINE 152
#define XOFFSET 1
#define YOFFSET 1
#define SOUNDBASE 8A00
#define TITLEBASE 0xD800
#define SAVEBASE 0xED60
#define SCORENAME 8
#define SCOREFILESIZE (MAXSCORE * (SCORENAME + 1 + sizeof(int))) /* total byte size of high score file */
#define LEVELFILESIZE 130
#define MAXMINUTES 8 // minutes for level
#define GET_WORD(p) (*(p) + ((unsigned) (p)[1] << 8))
extern void dli01(void); /* is provided in dli.s */
extern void dli02(void); /* is provided in dli.s */
extern void dli03(void); /* is provided in dli.s */
extern void dli04(void); /* is provided in dli.s */
extern void dli05(void); /* is provided in dli.s */
extern char menuflg;
extern char fnt7;
extern char fnt14;
static unsigned char dllist[] = { 0x70, 0x70, // 2 * 8 Scanlines of black
0x80, // one scanline with DLI (white line)
0x00, // 1 black Scanline
0x4f, 80, 161, // Gr.8 + load Address
0x0f, 0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, // seven Lines Gr.8 for 6x5 font
0xA0, // two empty scanlines with DLI (fade)
0x70, 0x00, // 9 Scanlines
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 1
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 2
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 3
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 4
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 5
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 6
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 7
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 8
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 9
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 10
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, // 6 Gr.8 Lines, Playfield row 11
0x4f ,0, 176, // 1 Gr.8+Load Memory, Playfield row 11
0x0f, // 1 Gr.8 Lines, Playfield row 11
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 12
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 13
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 14
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 15
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 16
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 17
0x0f, 0x0f, 0x0f, 0x8f,
0x0f, 0x0f, 0x0f, 0x0f, // 8 Gr.8 Lines, Playfield row 18
0x70, // 8 Scanlines
0x00, // 1 Scanline (empty)
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, // 7 Gr.8 Lines, MENULINE 6x5 font
0x70, 0x20, // 11 Scanlines
0x80, // 1 Scanline with DLI (fade)
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f,
0x0f, 0x0f, 0x0f, 0x0f,
0x8f, 0x0f, 0x0f, 0x0f, // 14 Gr.8 Lines, Menu 7x14 font
0x00, // 1 Scanline
0x70, // 8 Scanlines
0x41, 0x00, 0x28 // Jump to start
};
static char highscorefile[]= "D:AGREED.HIG";
static char continuemsg[] = "press key to continue...";
static char helpmsg[] = "Hit '?' for help";
static char fourdigitform[] = " %04d ";
static char levelbuf[130];
static int allmoves = 0;
static int score = 0;
static int levelscore;;
static int highscore = 0;
static unsigned int maxvalue;
static char level = 0, oldlevel = 0;
static char grid[MAXY][MAXX];
static int x,y;
static char havebotmsg = 0;
static char soundflg = 0;
static char exitflg = 0;
static int oldtime, maxtime;
static char scorelist[SCOREFILESIZE];
char* getscorename(char pos)
{
return (&scorelist[pos * (SCORENAME + 1 + sizeof(int))]);
}
int getscorevalue(char pos)
{
char* p;
p = getscorename(pos) + 9;
return (*(p) + ((unsigned) (p)[1] << 8));
}
/* ATARI specific stuff */
void waitvbi(void) // sync with vertical blank interrupt
{
while (!*(char*) 0xD40B)
continue;
}
void enable_os(void)
{
if (*(char*) 0x2A00 == 0x4c) // OS Switch Routine loaded??
{
__asm__( "jsr $2a00" );
}
}
void disable_os(void)
{
if (*(char*) 0x2A00 == 0x4c) // OS Switch Routine loaded??
{
__asm__( "jsr $2a04" );
}
}
void startmusic(void)
{
if (*(char*) 0x8A00 == 0x68) // sound loaded??
{
__asm__( "jsr $8A01" );
}
soundflg = 1;
}
void stopmusic(void)
{
if (*(char*) 0x8A00 == 0x68) // sound loaded??
{
__asm__( "jsr $8A08" );
}
soundflg = 0;
}
static char Asc2Int(unsigned char c)
{
unsigned char x;
x = c & 0x7f;
if (x < 0x20 && x >= 1) c += 0x40;
else if (x > 0x1f && x < 0x60) c -= 0x20;
return c;
}
void clearblock(x, y, xl, yl)
char x;
char y;
char xl;
char xl;
{
char yy;
unsigned char *mptr;
mptr = (char*) ((*(unsigned int*)0x58) + (40 * y) + x);
for (yy = 0; yy < yl; yy++)
{
memset(mptr, 0, xl);
mptr += 40;
}
}
void saveblock(x, y, xl, yl)
char x;
char y;
char xl;
char xl;
{
unsigned char *mptr, *dptr;
mptr = (char*) ((*(unsigned int*)0x58) + (40 * y) + x);
dptr = (char*) SAVEBASE;
disable_os();
for (y = 0; y < yl; y++)
{
memcpy(dptr, mptr, xl);
mptr += 40;
dptr += xl;
}
enable_os();
}
void restoreblock(x, y, xl, yl)
char x;
char y;
char xl;
char xl;
{
unsigned char *mptr, *dptr;
mptr = (char*) ((*(unsigned int*)0x58) + (40 * y) + x);
dptr = (char*) SAVEBASE;
disable_os();
for (y = 0; y < yl; y++)
{
for (y = 0; y < yl; y++)
{
memcpy(mptr, dptr, xl);
mptr += 40;
dptr += xl;
}
}
enable_os();
}
void invertblock(x, y, xl, yl)
char x;
char y;
char xl;
char xl;
{
unsigned char *mptr;
mptr = (char*) ((*(unsigned int*)0x58) + (40 * y) + x);
for (y = 0; y < yl; y++)
{
for (x = 0; x < xl; x++)
{
*mptr ^= 0xFF;
mptr++;
}
mptr += (40 - xl);
}
}
static void gputcxyvar(int x, int y, unsigned char c, unsigned char* chptr, char maxlines )
{
unsigned char *mptr;
int ch;
int inv;
inv = (0xff * (c > 0x7f));
c = c & 0x7f;
mptr = (char*) ((*(unsigned int*)0x58) + y * 40 + x);
for (ch = 0; ch < maxlines; ch++)
{
mptr += 40;
chptr++;
*mptr = (*chptr ^ inv);
}
}
static void gputcxy7(int x, int y, unsigned char c)
{
gputcxyvar(x,y,c, (char*) (&fnt7 + c * 7), 6);
}
static void gputcxy14(int x, int y, unsigned char c)
{
gputcxyvar(x,y,c, (char*) (&fnt14 + c * 14), 13);
}
void gprintxy14 (int x, int y, char* str)
{
while (*str != '\0')
{
gputcxy14(x++,y,*str++);
}
}
void gprintxy7 (int x, int y, char* str)
{
while (*str != '\0')
{
gputcxy7(x++,y,*str++);
}
}
static void gputcxy(int x, int y, unsigned char c)
{
unsigned char *chptr, *mptr, *sptr;
char ch, inv;
x += XOFFSET;
y += YOFFSET;
c = Asc2Int(c);
inv = (0xff * (c > 0x7f));
c = c & 0x7f;
y = y * 8;
sptr = mptr = (char*) ((*(unsigned int*)0x58) + y * 40 + x);
chptr = (char*) ((*(unsigned char*)0x2f4) * 0x100 + (c * 8));
for (ch = 0; ch < 8; ch++)
{
*mptr = (*chptr ^ inv);
mptr += 40;
chptr++;
}
if (inv) // round edges
{
*sptr = (*sptr ^ 0x81);
sptr += 40*7;
*sptr = (*sptr ^ 0x81);
}
}
void gprintxy (int x, int y, char* str)
{
char* s;
s = str;
while (*s != '\0')
{
gputcxy(x++,y,*s++);
}
}
void pause(int ticks)
{
int i;
char rtclk3;
for (i = 0; i < ticks; ++i)
{
rtclk3 = *(char*) 0x14;
while (rtclk3 == *(char*) 0x14) {}
}
}
/* File IO Functions */
int Fread (FILE* F, void* Buf, unsigned Size)
{
size_t Res;
Res = fread (Buf, 1, Size, F);
return Res > 0? Res : 0;
}
int Fwrite (FILE* F, const void* Buf, unsigned Size)
{
size_t Res;
Res = fwrite (Buf, 1, Size, F);
return Res > 0? Res : 0;
}
void statusline(char* str)
{
gprintxy7(0,STATUSLINE," ");
gprintxy7(20 - strlen(str) / 2,STATUSLINE,str);
}
void getname(char x, char y, char* nameptr)
{
char i;
char* str;
str = nameptr;
statusline("please enter your name:");
memset(nameptr,0,8);
i = 0;
gprintxy7(x,y,"_");
while ((*nameptr = cgetc()) != 155)
{
if (++i > 7)
{
--i;
--nameptr;
}
if ((*nameptr) == 126)
{
if (i)
{
--i;
--nameptr;
}
}
else
++nameptr;
*nameptr = '_';
gprintxy7(x,y," ");
gprintxy7(x,y,str);
}
gputcxy7(x+i,y,' ');
*nameptr = '\0';
}
void topscores(newscore)
int newscore;
{
int i, j;
char buf[8];
int* p;
if (levelbuf[2] <= (levelscore * 100 / maxvalue))
{
char c;
c = (levelscore * 100 / maxvalue);
sprintf(levelbuf,"next level! %d bonus!", c);
statusline(levelbuf);
score += c;
level = (++level % 9); // next level
c = cgetc();
}
saveblock(3,12,33,116);
clearblock(3,12,33,116);
gprintxy7(13,16,"highscores");
for (i = 0; i < MAXSCORE; ++i)
{
if (getscorevalue(i) < newscore)
{
if (i < MAXSCORE)
{
for (j = MAXSCORE-1; j >= i; --j)
{
memcpy(getscorename(j+1),getscorename(j), 11);
}
}
getname(13,28+i*8,getscorename(i));
p = (int*) (getscorename(i) + 9);
*p = newscore;
newscore = 0;
}
sprintf(buf,"%2d.",i + 1);
gprintxy7(8,28+i*8,buf);
gprintxy7(13,28+i*8,getscorename(i));
sprintf(buf,fourdigitform,getscorevalue(i));
gprintxy7(25,28+i*8,buf);
}
statusline("Press a key...");
i = cgetc();
restoreblock(3,12,33,116);
statusline(helpmsg);
}
void loadscore()
{
FILE* file;
int rc;
char i;
file = fopen(highscorefile,"r");
if (file)
{
rc = Fread (file, scorelist, SCOREFILESIZE);
fclose(file);
highscore = getscorevalue(0);
}
else
{
statusline("No Highscorefile, creating new file!");
for (i = 0; i <= MAXSCORE; ++i)
{
memset(getscorename(i), ' ',8);
*(getscorename(i) + 9) = 0;
*(getscorename(i) + 10) = 0;
}
i = cgetc();
}
}
void loadlevel(char level)
{
FILE* file;
char filename[14];
int rc;
char i, s;
s = soundflg;
if (s)
stopmusic();
*(char*) 0x22f = 0;
pause(2);
sprintf(filename,"LEVEL%02d.AGL", level);
file = fopen(filename,"r");
if (file)
{
rc = Fread (file, levelbuf, LEVELFILESIZE);
fclose(file);
*(char*) 0x22f = 0x22;
oldlevel = level;
}
else
{
*(char*) 0x22f = 0x22;
statusline("Could not load level!");
i = cgetc();
}
if (s)
startmusic();
}
void savescore()
{
FILE* file;
int rc;
stopmusic();
*(char*) 0x22f = 0;
pause(2);
statusline("Saving Highscorefile...");
file = fopen(highscorefile,"w");
if (file)
{
rc = Fwrite (file, scorelist, SCOREFILESIZE);
fclose(file);
}
else
statusline("Error saving Highscorefile!");
*(char*) 0x22f = 0x22;
}
void resettime(void)
{
*(int*) 0x13 = 0; // reset RTCLOK to zero
}
void showtime(void)
{
int time;
char buf[4];
time = maxtime - (clock() / _clocks_per_sec()); // time in seconds
if (time != oldtime)
{
sprintf(buf," %02d", time / 60); // minutes
gprintxy7(32,LEVELLINE,buf);
sprintf(buf,":%02d", time % 60); // seconds
gprintxy7(35,LEVELLINE,buf);
oldtime = time;
}
}
void help(void)
{
char c;
saveblock(3,12,33,116);
clearblock(3,12,33,116);
gprintxy7(3,20," ATARI greed help ");
gprintxy7(3,28," 'M' = toggle music ");
gprintxy7(3,36," 'Q' = quit game ");
gprintxy7(3,44," 'P' = show possible moves ");
gprintxy7(3,52," 'ESC' = toggle menu ");
gprintxy7(3,64," use joystick or keys to move ");
gprintxy7(3,72," W E R ");
gprintxy7(3,80," \\ | / ");
gprintxy7(3,88," S - + - D ");
gprintxy7(3,96," / | \\ ");
gprintxy7(3,104," Z X C ");
statusline(continuemsg);
c = cgetc();
restoreblock(3,12,33,116);
statusline(helpmsg);
}
void info(void)
{
char c;
saveblock(3,12,33,116);
clearblock(3,12,33,116);
gprintxy7(3,20," ATARI greed ");
gprintxy7(3,28," based on the UNIX game 'greed' ");
gprintxy7(3,36," written by matthew t. day ");
gprintxy7(3,44," and eric s. raymond ");
gprintxy7(3,60," programmed on an apple mac ");
gprintxy7(3,68," by carsten strotmann ");
gprintxy7(3,76," using the cc65 crosscompiler ");
gprintxy7(3,92," sound made by winfried piegsda ");
gprintxy7(3,100," using the pegasus soundmonitor ");
gprintxy7(3,108," graphic design by w. piegsda ");
statusline(continuemsg);
c = cgetc();
restoreblock(3,12,33,116);
statusline(helpmsg);
}
void showmarker(void)
{
int i = 0;
for (; i < 10; ++i);
{
pause(2);
gputcxy(x,y,MK + 0x80);
gputcxy(x,y,MK);
}
}
void botmsg(msg)
char *msg;
{
statusline(msg);
havebotmsg = 1;
}
void quit() {
int ch;
botmsg("Really quit?",0);
if ((ch = cgetc()) != 'y' && ch != 'Y') {
return;
}
exitflg = 1;
}
void earthquake(void)
{
char i;
char *p;
p = (char*) 0x2800;
for (i=0; i < 20; ++i)
{
*p = rnd(7) * 0x10;
pause(rnd(3));
}
*p = 0x70;
}
void showscore(void)
{
char buf[8];
char perc;
sprintf(buf,fourdigitform, score);
gprintxy14(6,MENULINE,buf);
sprintf(buf,fourdigitform, highscore);
gprintxy14(22,MENULINE,buf);
perc = levelbuf[2] - ((levelscore * 100) / maxvalue);
if (perc > 100)
perc = 0;
sprintf(buf,"%3d%%",perc);
gprintxy14(36,MENULINE,buf);
}
void showmoves(on)
int on;
{
int dy = -1;
int dx;
for (; dy <= 1; ++dy) {
if (y+dy < 0 || y+dy >= MAXY) continue;
for (dx = -1; dx <= 1; ++dx) {
int j=y, i=x, d=grid[y+dy][x+dx];
if (!d) continue;
do {
j += dy;
i += dx;
if (j < 0 || i < 0 || j >= MAXY || i >= MAXX || !grid[j][i]) break;
} while (--d);
if (!d) {
int j=y, i=x, d=grid[y+dy][x+dx];
/* The next section chooses inverse-video *
* or not, and then "walks" chosen valid *
* move, reprinting characters with new mode */
do {
j += dy;
i += dx;
gputcxy(i, j, grid[j][i] + '0' + (0x80 * on)); /* print possible moves inverted */
} while (--d);
}
}
}
}
void printscoreline(void)
{
gprintxy14(0,MENULINE,"Score:");
gprintxy14(12,MENULINE,"Highscore:");
gprintxy14(29,MENULINE,"Finish:");
}
void refresh()
{
int y,x;
char levelname[33];
statusline("refreshing screen...");
clearblock(0,8,39,MAXY*8);
memcpy(levelname,(char*) (levelbuf + 3),32);
levelname[32] = '\0';
gprintxy7(0,LEVELLINE,levelname);
printscoreline();
for (y=0; y < MAXY; ++y)
for (x=0; x < MAXX; ++x)
if (grid[y][x])
gputcxy(x,y,grid[y][x] + '0');
showmarker();
showmoves(allmoves);
showscore();
statusline("hit esc for menu");
}
int othermove(bady, badx)
int bady, badx;
{
int dy = -1;
int dx;
for (; dy <= 1; ++dy)
for (dx = -1; dx <= 1; ++dx)
if ((!dy && !dx) || (dy == bady && dx == badx) || y+dy < 0 && x+dx < 0 && y+dy >= MAXY && x+dx >= MAXX)
continue;
else
{
int j = y;
int i = x;
int d = grid[y+dy][x+dx];
if (!d) continue;
do {
j += dy;
i += dx;
if (j < 0 || i < 0 || j >= MAXY || i >= MAXX || !grid[j][i]) break;
} while (--d);
if (!d) return 1;
}
return 0;
}
void menu(void)
{
char c;
char mlen[] = {8,9,4,4,4};
char mchoice = 0;
char moffset = 0;
// set and enable DLI
waitvbi();
menuflg = 1; // switch DLI colors
clearblock(0, MENULINE, 40, 14);
statusline("Choose Menu...");
while (c != 27)
{
gprintxy14(1,MENULINE,"Continue Highscore Info Help Quit");
invertblock((2 * mchoice) + moffset + 1, MENULINE + 1, mlen[mchoice], 14);
c = cgetc();
switch(c)
{
case 30: // cursor left
if (mchoice > 0)
{
--mchoice;
moffset -= mlen[mchoice];
}
break;
case 31: // cursor right
if (mchoice < 4)
{
moffset += mlen[mchoice];
++mchoice;
}
break;
case 155: // enter
switch (mchoice)
{
case 0:
c = 27; // exit menu
break;
case 1:
topscores(score);
break;
case 2:
info();
break;
case 3:
help();
break;
case 4:
quit();
c = 27;
break;
}
break;
}
}
waitvbi();
menuflg = 0;
clearblock(0, MENULINE, 40, 14);
printscoreline();
statusline(helpmsg);
showscore();
}
int tunnel(cmd)
char cmd;
{
int dy, dx, distance;
int i,j,d;
if (oldtime <= 0)
{
statusline ("T I M E O U T !!");
i = cgetc();
return(0); // timeout
}
switch(cmd)
{
case 27: /* ESC */
menu();
if (exitflg)
return(0);
else
return(1);
break;
case 't':
case 'T': /* top scores */
topscores(score);
return(1);
break;
case 'm': /* sound off */
case 'M':
if (soundflg)
{
stopmusic();
statusline("music off");
}
else
{
startmusic();
statusline("music on");
}
return(1);
break;
case 's': /* key left */
case 'S':
case '4':
dy = 0;
dx = -1;
break;
case 'x': /* key down */
case 'X':
case '2':
dy = 1;
dx = 0;
break;
case 'e': /* key up */
case 'E':
case '8':
dy = -1;
dx = 0;
break;
case 'd': /* key right */
case 'D':
case '6':
dy = 0;
dx = 1;
break;
case 'z': /* key left/down */
case 'Z':
case '1':
dy = 1;
dx = -1;
break;
case 'c': /* key right/down */
case 'C':
case '3':
dy = dx = 1;
break;
case 'w': /* key left/up */
case 'W':
case '7':
dy = dx = -1;
break;
case 'r': /* key right/up */
case 'R':
case '9':
dy = -1;
dx = 1;
break;
case 'p':
case 'P':
allmoves = !allmoves;
showmoves(allmoves);
return(1);
case 'q':
case 'Q':
quit();
if (exitflg)
return(0);
else
return(1);
case 'o':
case 'O':
earthquake();
return(1);
case '?':
help();
return(1);
case 'i':
case 'I':
info();
return(1);
case 'a':
case 'A':
refresh();
/* refresh; falls through to return */
default:
return(1);
}
distance = (y + dy >= 0 && x + dx >= 0 && y + dy < MAXY && x + dx < MAXX) ? grid[y+dy][x+dx] : 0;
j = y;
i = x;
d = distance;
do {
j += dy;
i += dx;
if (j >= 0 && i >= 0 && j < MAXY && i < MAXX && grid[j][i])
;
else if (!othermove(dy, dx)) { /* no other good move */
j -= dy;
i -= dx;
gputcxy(x,y,' ');
while (y != j || x != i) {
y += dy;
x += dx;
++score;
++levelscore;
if (score > highscore)
highscore = score;
gputcxy(x,y,' ');
}
gputcxy(x,y,'*');
showscore();
topscores(score);
return(0);
}
else
{
botmsg("Bad move!",1);
return(1);
}
} while (--d);
if (allmoves) showmoves(0);
if (havebotmsg) { /* if old bottom msg exists */
printscoreline();
statusline(helpmsg);
havebotmsg = 0;
}
gputcxy(x,y,' ');
do {
y += dy;
x += dx;
++score;
++levelscore;
if (score > highscore)
highscore = score;
grid[y][x] = 0;
gputcxy(x,y,' ');
} while (--distance);
gputcxy(x,y,MK);
if (allmoves) showmoves(1);
showscore();
return(1);
}
void intro(void)
{
char y;
char x;
unsigned char *chptr;
unsigned char *mptr;
memset((char*) (*(unsigned int*)0x58), 0, 40 * 8); // clear levelname
chptr = (char*) TITLEBASE;
mptr = (char*) ((*(unsigned int*)0x58) + (40*8)+1);
disable_os();
for (y = 0; y < 144; ++y)
{
memcpy(mptr,chptr,MAXX);
chptr += MAXX;
mptr += 40;
}
enable_os();
statusline("ATARI greed version 0.91");
pause(90);
statusline("press key to start game...");
x = cgetc();
}
char getcommand(void)
{
char c = 0;
char j = 0;
while (c == 0)
{
if ((*(char*) 0x2fc) != 0xFF) // key pressed?
{
c = cgetc();
}
j = *(char*) 0x278;
if (j != 0xf) // Joystick?
{
switch(j)
{
case 14:
c = 'e'; // up
break;
case 7:
c = 'd'; // right
break;
case 13:
c = 'x'; // down
break;
case 11:
c = 's'; // left
break;
case 9:
c = 'z'; // left/down
break;
case 5:
c = 'c'; // right/down
break;
case 10:
c = 'w'; // left/up
break;
case 6:
c = 'r'; // right/up
break;
}
}
showtime();
if (oldtime <= 0) c = ' ';
}
return(c);
}
int bittest(val,bit)
int val, bit;
{
return !(val & (1 << bit));
}
char getplayfield(char x, char y)
{
int* p;
char c;
p = (int*) (levelbuf + 35);
while (bittest(*p, c = rnd(9)))
;
p = (int*) (levelbuf + 40 + (y * 5 ) + (x / 8));
return(bittest(*p, 7 - (x % 8)) ? 0 : c);
}
int main(void) {
int val = 1;
int dllist_old;
graphics(8);
highscore = 0;
*(char*) 0x02c6 = 0;
*(char*) 0x02c5 = 0xF;
dllist_old = *(int*) 0x230;
memmove((char*) 0x2800, &dllist, sizeof(dllist));
*(int*) 0x230 = (int) 0x2800;
// set and enable DLI
*(int*) 0x200 = (int) &dli01;
*(char*) 0xd40e = 0xc0;
loadscore();
loadlevel(level);
startmusic();
while(!exitflg)
{
intro();
statusline("starting new game...");
if (level != oldlevel)
loadlevel(level);
score = levelscore = maxvalue = 0;
maxtime = levelbuf[39] * 60; // timeout minutes
srand(*(int*) 0xD20A); /* initalize seed with random number, ATARI specific */
for (y=0; y < MAXY; ++y)
for (x=0; x < MAXX; ++x)
if (grid[y][x] = getplayfield(x,y))
++maxvalue;
while (!getplayfield(y = rnd(MAXY)-1, x = rnd(MAXX)-1))
; /* random initial location */
grid[y][x] = 0; /* eat initial square */
refresh();
resettime();
while((val = tunnel(getcommand())) > 0)
continue;
}
topscores(score);
stopmusic();
savescore();
// disable DLI
*(char*) 0xd40e = 0x60; // NMIEN VBI and RESET on
graphics(0);
exit(0);
}
Assembler Code (ca65)#
Display List Interrupts#
.include "/Users/cas/develop/cc65/asminc/atari.inc" .export _dli01 .export _dli02 .export _dli03 .export _dli04 .export _dli05 .export _menuflg .export _fnt7 .export _fnt14 _fnt7: .incbin "seven.fnt" _fnt14: .incbin "fourteen.fnt" _menuflg: .byte 0 .proc _dli01 pha txa pha nop nop ldx DLI02cnt2 L1: lda DLI02fade2-1,x sta WSYNC sta COLBK sta COLPF2 nop dex bne L1 lda #<_dli02 ldx #>_dli02 sta VDSLST stx VDSLST+1 pla tax pla rti .endproc DLI02fade: .byte $9E, $9C, $9A, $98, $96, $94, $92, $90 DLI02fadem: .byte $0E, $0C, $0A, $08, $06, $04, $02, $00 DLI02cnt: .byte 8 DLI02fade2: .byte $00, $02, $04, $06, $0E DLI02fade2m: .byte $90, $92, $94, $96, $9E DLI02fadepm: .byte $98, $98, $9A, $9C, $9E DLI02cnt2: .byte 5 .proc _dli02 pha txa pha ldx DLI02cnt dex L1: lda _menuflg beq X1 lda DLI02fadem-1,x bne X2 X1: lda DLI02fade-1,x X2: sta WSYNC sta COLBK sta COLPF2 dex bne L1 sta WSYNC sta COLPM0 sta COLPM1 lda #$2C sta HPOSP0 lda #$CC sta HPOSP1 lda #$FF sta GRAFP0 sta GRAFP1 lda %00000010 sta GRACTL ldx DLI02cnt2 L2: lda DLI02fade2-1,x sta WSYNC sta COLPF2 lda DLI02fadepm-1,x sta COLPM0 sta COLPM1 dex bne L2 lda #<_dli03 ldx #>_dli03 sta VDSLST stx VDSLST+1 pla tax pla rti .endproc DLI03fade: .byte $90, $92, $94, $96, $98, $9A, $9C, $9E DLI03fadem: .byte $00, $02, $04, $06, $08, $0A, $0C, $0E DLI03cnt: .byte 8 DLI03fade2m: .byte $9E, $96, $94, $92, $90 DLI03fadepm: .byte $9E, $9C, $9A, $98, $98 DLI03fade2: .byte $0E, $06, $04, $02, $01 DLI03cnt2: .byte 5 .proc _dli03 pha txa pha ldx DLI03cnt2 L1: lda DLI03fade2-1,x sta WSYNC sta COLPF2 lda DLI03fadepm-1,x sta COLPM0 sta COLPM1 dex bne L1 sta WSYNC lda #0 sta HPOSP0 sta HPOSP0 lda #$0 sta GRAFP0 sta GRAFP1 ldx DLI03cnt dex L2: lda _menuflg beq X1 lda DLI03fadem-1,x bne X2 X1: lda DLI03fade-1,x X2: sta WSYNC sta COLBK sta COLPF2 dex bne L2 sta WSYNC stx COLBK stx COLPF2 lda #<_dli04 sta VDSLST lda #>_dli04 sta VDSLST+1 pla tax pla rti .endproc .proc _dli04 pha txa pha ldx DLI02cnt2 L4: lda _menuflg beq X1 lda DLI02fade2m-1,x bne X2 X1: lda DLI02fade2-1,x X2: sta WSYNC sta COLBK sta COLPF2 dex bne L4 stx WSYNC stx COLBK stx COLPF2 lda #<_dli05 sta VDSLST lda #>_dli05 sta VDSLST+1 pla tax pla rti .endproc .proc _dli05 pha txa pha ldx DLI03cnt2 L4: lda _menuflg bne X1 lda DLI03fade2-1,x bne X2 X1: nop nop lda DLI03fade2m-1,x X2: sta WSYNC sta COLBK sta COLPF2 dex bne L4 sta WSYNC stx COLBK stx COLPF2 lda #<_dli01 sta VDSLST lda #>_dli01 sta VDSLST+1 pla tax pla rti .endproc
Access RAM under OS#
; RAMXL ; routines to access RAM under OS-ROM .word $FFFF .word $2a00 .word end-1 .org $2a00 intv = $FFF0 nmiv = $FFFA resv = $FFFC irqv = $FFFE portb = $D301 nmien = $D40E on: jmp os_on x_save: .byte $00 off: jmp os_off ; doirq: stx x_save tax ; a - irq # jsr os_on lda intv,x sta jmpvec+1 lda intv+1,x sta jmpvec+2 lda #>return pha lda #<return pha cli php ; jmpvec: jmp $FFFF ; -- will be overwritten ; return: jsr os_off ldx x_save pla rti ; nmi_han: pha lda #$0A jmp doirq ; irq_han: pha lda #$0E jmp doirq ; os_on: lda portb ora #$01 ; toggle OS bit on sta portb rts ; os_off: lda portb and #$FE ; toggle OS bit off sta portb rts ; install: lda #0 sta nmien sei jsr os_off lda #<nmi_han sta nmiv lda #>nmi_han sta nmiv+1 lda #<irq_han sta irqv lda #>irq_han sta irqv+1 jsr os_on cli lda #$40 sta nmien rts memcpy: src = $f0 dst = $f2 cnt = $f4 ; src = $F0-$F1 ; dst = $F2-$F3 ; cnt = $F4-$F5 ldy #0 L1: lda (src),y sta (dst),y inc src bne L2 inc src+1 L2: inc dst bne L3 inc dst+1 L3: dec cnt bne L1 dec cnt+1 bpl L1 rts movetitle: lda #<titlestart sta src lda #>titlestart sta src+1 lda #<$D800 ; $D800 sta dst lda #>$D800 sta dst+1 lda #<5472 sta cnt lda #>5472 sta cnt+1 jsr install jsr os_off jsr memcpy jsr os_on rts end: ;--------------------------- .word $FFFF .word $3000 .word end2-1 .org $3000 titlestart: .incbin "titelbild.raw" end2: .word $FFFF .word $02e2 .word end3-1 .org $02e2 .word movetitle
Level Files#
Level 1 (Example)#
; level 0 for ATARI Greed ; Version 1.0 ; total length 130 bytes ; Magic Code, 'AG' magic: .byte "AG" ; percent needed to complete level percent: .byte 65 ; Level Title 32 Chars title: .byte "aller anfang ist einfach..." .res $20 - (* - title) ; Possible values (bitfield), 10 bits ; FEDCBA9876543210 values: .word %0000001111111111 ; 0-9 ; Possible goodies (bitfield), 16 Bits ; FEDCBA9876543210 goodies: .word %0000000000000000 ; no goodies ; Time in minutes time: .byte 8 ; 8 Minutes time ; levelmask 5 x 18 bytes (bitfield) levelmask: .incbin "level00.raw"
