6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-28 20:29:46 +00:00
Code Issues Projects Releases Wiki Activity

Fixing telestrat.h

Browse Source
This commit is contained in:
jede 2017-02-02 22:53:28 +01:00
parent ad6e54c2d8
commit d76911d38a
5 changed files with 32 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
include/telestrat.h
View File

@ -1,17 +1,41 @@
/*****************************************************************************/
/* */
/* telestrat.h */
/* */
/* Oric Telestrat system-specific definitions */
/* */
/* */
/* */
/* (C) 2017 Debrune Jérome, <jede@oric.org> */
/* */
/* */
/* This software is provided 'as-is', without any expressed or implied */
/* warranty. In no event will the authors be held liable for any damages */
/* arising from the use of this software. */
/* */
/* Permission is granted to anyone to use this software for any purpose, */
/* including commercial applications, and to alter it and redistribute it */
/* freely, subject to the following restrictions: */
/* */
/* 1. The origin of this software must not be misrepresented; you must not */
/* claim that you wrote the original software. If you use this software */
/* in a product, an acknowledgment in the product documentation would be */
/* appreciated but is not required. */
/* 2. Altered source versions must be plainly marked as such, and must not */
/* be misrepresented as being the original software. */
/* 3. This notice may not be removed or altered from any source */
/* distribution. */
/* */
/*****************************************************************************/
void hires();
void text();
void oups(); void oups();
void ping(); void ping();
void zap(); void zap();
void shoot(); void shoot();
void explode(); void explode();
void paper(char color);
void ink(char color);
void kbdclick1(); void kbdclick1();

2
libsrc/telestrat/close.s
View File

@ -14,5 +14,3 @@
BRK_TELEMON XCLOSE ; launch primitive ROM BRK_TELEMON XCLOSE ; launch primitive ROM
rts rts
.endproc .endproc

2
libsrc/telestrat/mainargs.s
View File

@ -8,7 +8,7 @@
.constructor initmainargs, 24 .constructor initmainargs, 24
.import __argc, __argv .import __argc, __argv
.import ptr1 .import ptr1
.include "telestrat.inc" .include "telestrat.inc"
.macpack generic .macpack generic

4
libsrc/telestrat/open.s
View File

@ -27,9 +27,7 @@ parmok:
sta tmp3 ; save flags sta tmp3 ; save flags
; Get the filename from stack and parse it. Bail out if is not ok ; Get the filename from stack and parse it. Bail out if is not ok
jsr popax ; Get name jsr popax ; Get name
ldy tmp3 ; Get flags again ldy tmp3 ; Get flags again
BRK_TELEMON XOPEN ; launch primitive ROM BRK_TELEMON XOPEN ; launch primitive ROM
rts rts
.endproc .endproc

2
libsrc/telestrat/write.s
View File

@ -53,7 +53,7 @@ L2: ldy #0
cpx #$0A ; Check for \n cpx #$0A ; Check for \n
bne L3 bne L3
BRK_TELEMON XWR0 ; Macro send char to screen (channel 0 in telemon terms) BRK_TELEMON XWR0 ; Macro send char to screen (channel 0 in telemon terms)
lda #$0D ; return to the beggining of the line lda #$0D ; return to the beggining of the line
BRK_TELEMON XWR0 ; Macro ; BRK_TELEMON XWR0 ; Macro ;