+/*****************************************************************************/
+/* */
+/* 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 ping();
void zap();
void shoot();
void explode();
-void paper(char color);
-void ink(char color);
-
void kbdclick1();
sta tmp3 ; save flags
; Get the filename from stack and parse it. Bail out if is not ok
jsr popax ; Get name
- ldy tmp3 ; Get flags again
+ ldy tmp3 ; Get flags again
BRK_TELEMON XOPEN ; launch primitive ROM
rts
.endproc
-
-
\ No newline at end of file
cpx #$0A ; Check for \n
bne L3
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 ;