LZ: compiling z-shell
[Prev][Next][Index][Thread]
LZ: compiling z-shell
-
Subject: LZ: compiling z-shell
-
From: Erika Rogers <erika@ici.net>
-
Date: Sun, 25 Aug 1996 23:41:19 -0400
-
In-Reply-To: <>
This is a multi-part message in MIME format.
--------------404947FB6027
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I tried to compile this zshell program that I found in some lessons I
doownloaded, but it didn't work. Anyone know why? I included the files -
first.asm and first.lst.
Erika
--------------404947FB6027
Content-Type: text/html; charset=us-ascii; name="calculator.html"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="calculator.html"
Content-Base: "http://www.ici.net/cust_pages/erika/ca
lculator.html"
<BASE HREF="http://www.ici.net/cust_pages/erika/calculator.html">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE> TI-92 Calculator Programs</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.0b6Gold (Win95; I) [Netscape]">
</HEAD>
<BODY>
<CENTER><P><B><FONT SIZE=+3> TI-92 <BR>
<IMG SRC="ti92.jpg" HEIGHT=191 WIDTH=266><BR>
</FONT></B>Here are a few TI-92 Games that I have written and a few that
I did not write.</P></CENTER>
<CENTER><P><A HREF="memory.zip"><IMG SRC="memwin.gif" BORDER=2 HEIGHT=132 WIDTH=244></A> <A HREF="memory.zip"><IMG SRC="memedit.gif" BORDER=2 HEIGHT=132 WIDTH=244></A></P></CENTER>
<CENTER><P><IMG SRC="new6.gif" HEIGHT=41 WIDTH=40>Click <A HREF="memory.zip">here</A>
to download both the Memory program and a program that</P></CENTER>
<CENTER><P>can be used to edit the cards used in the game.</P></CENTER>
<CENTER><P><A HREF="othello.zip"><IMG SRC="othello.gif" BORDER=2 HEIGHT=132 WIDTH=244></A></P></CENTER>
<CENTER><P><IMG SRC="new6.gif" HEIGHT=41 WIDTH=40>Click <A HREF="othello.zip">here</A>
to download the beta version of Othello.</P></CENTER>
<CENTER><P>If you have any suggestions, please <A HREF="mailto:erika@ici.net">e-mail</A>
me.</P></CENTER>
<CENTER><P>And here are a few games and other programs that I did not write.</P></CENTER>
<CENTER><P><IMG SRC="getit.gif" HEIGHT=12 WIDTH=34> This Week's feature<IMG SRC="getit.gif" HEIGHT=12 WIDTH=34></P></CENTER>
<CENTER><P><A HREF="sol.zip"><IMG SRC="sol.gif" BORDER=2 HEIGHT=132 WIDTH=244></A></P></CENTER>
<CENTER><P>Soliataire is a great game for the TI-92!</P></CENTER>
<CENTER><P>Click <A HREF="sol.zip">here</A> to download.</P></CENTER>
<CENTER><TABLE BORDER=1 >
<TR>
<TD><A HREF="titris.zip">Tetris</A></TD>
</TR>
<TR>
<TD><A HREF="bjack18.uue">Black Jack</A></TD>
</TR>
<TR>
<TD><A HREF="mine.zip">Minesweeper</A></TD>
</TR>
<TR>
<TD><A HREF="chat.zip">Full Duplex Chat</A></TD>
</TR>
<TR>
<TD><A HREF="pms16.uue">Professional Menu System</A></TD>
</TR>
<TR>
<TD><A HREF="ped.zip">PED</A> - graphics editor</TD>
</TR>
<TR>
<TD><A HREF="power4.zip">Power 4</A> - Connect 4</TD>
</TR>
<TR>
<TD><A HREF="poker.zip">Poker</A></TD>
</TR>
<TR>
<TD><A HREF="unitconv.zip">Unit Conversion</A></TD>
</TR>
<TR>
<TD><A HREF="base.zip">Base Conversion</A></TD>
</TR>
</TABLE></CENTER>
<CENTER><P>I am currently working on a list of TI-92 pages. If you have
one or know of one not on my list, please <A HREF="mailto:erika@ici.net">e-mail</A>
me.</P></CENTER>
<CENTER><P>Click <A HREF="calclink.html">here</A> to see the list.</P></CENTER>
<CENTER><P>You need a graph link to get these programs into your calculator.</P></CENTER>
<CENTER><P>It costs $55 if you buy it from TI but you can make your own
easily for about $5.</P></CENTER>
<CENTER><P>You can download the plans and software at <A HREF="http://www.ticalc.org">TICALC.ORG.</A></P></CENTER>
<CENTER><P>***WARNING***</P></CENTER>
<CENTER><P>The Parellel Port link may not work on Pentiums.</P></CENTER>
<CENTER><P>I haven't gotten mine to work and have heard that others have
had this problem</P></CENTER>
<CENTER><P>(It works on my 486).</P></CENTER>
<CENTER><P><IMG SRC="/cgi-bin/Count.cgi?dd=P|df=erika2.dat" ALT="Counter" ></P></CENTER>
<CENTER><P><BR>
</P></CENTER>
</BODY>
</HTML>
--------------404947FB6027
Content-Type: text/plain; charset=us-ascii; name="erika.asm"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="erika.asm"
#include "TI-85.H"
.org 0
.db "First",0
ROM_CALL(CLEARLCD)
ld HL, 4
ld (CURSOR_ROW), HL
ld HL, 2
ld (CURSOR_COL), HL
ld HL, (PROGRAM_ADDR)
ld DE, Message
add HL, DE
ROM_CALL(D_ZT_STR)
GetLoop:
call GET_KEY
or A
jr z, GetLoop
ret
Message:
.db "Erika Rogers",0
.end
--------------404947FB6027
Content-Type: text/plain; charset=iso-8859-1; name="Erika.lst"
Content-Transfer-Encoding: 8bit
Content-Disposition: inline; filename="Erika.lst"
0001 0000 #include "TI-85.H"
0001+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0002+ 0000 ; 複複� 複� � � 複複� � �
0003+ 0000 ; 輻 � � � � � � �
0004+ 0000 ; 輻 賽霜 幡賽� 幡� � �
0005+ 0000 ; 白複� 霜複� � � 白複� 白複� 白複�
0006+ 0000 ; Version 4.0 - November 1995
0007+ 0000 ; Copyright 1995
0008+ 0000 ; Dan Eble (eble.2@osu.edu)
0009+ 0000 ; Magnus Hagander (e95_mha@e.kth.se)
0010+ 0000 ; Rob Taylor (rtaylor@rtaylor.u-net.com)
0011+ 0000 ;
0012+ 0000 ; Extended header file (C) 20/12 1995
0013+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0014+ 0000
0015+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0016+ 0000 ; #DEFINEs for relative calls and jumps included in ZShell
0017+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0018+ 0000 #DEFINE ROM_CALL(index) call $8C09 \ .db index
0019+ 0000 #DEFINE CALL_Z(addr) call $8C0C \ .dw addr
0020+ 0000 #DEFINE CALL_(addr) call $8C0F \ .dw addr
0021+ 0000 #DEFINE CALL_NZ(addr) call $8C12 \ .dw addr
0022+ 0000 #DEFINE CALL_C(addr) call $8C18 \ .dw addr
0023+ 0000 #DEFINE CALL_NC(addr) call $8C1E \ .dw addr
0024+ 0000 #DEFINE JUMP_Z(addr) call $8C24 \ .dw addr
0025+ 0000 #DEFINE JUMP_(addr) call $8C27 \ .dw addr
0026+ 0000 #DEFINE JUMP_NZ(addr) call $8C2A \ .dw addr
0027+ 0000 #DEFINE JUMP_C(addr) call $8C30 \ .dw addr
0028+ 0000 #DEFINE JUMP_NC(addr) call $8C36 \ .dw addr
0029+ 0000
0030+ 0000
0031+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0032+ 0000 ; #DEFINEs for conditional ROM_CALL:s. The functionality will be
0033+ 0000 ; implemented in your own program, not in ZShell.
0034+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0035+ 0000 #DEFINE ROM_CALL_C(index) .db $30,$04 \ call $8c09 \ .db index
0036+ 0000 #DEFINE ROM_CALL_NC(index) .db $38,$04 \ call $8c09 \ .db index
0037+ 0000 #DEFINE ROM_CALL_Z(index) .db $20,$04 \ call $8c09 \ .db index
0038+ 0000 #DEFINE ROM_CALL_NZ(index) .db $28,$04 \ call $8c09 \ .db index
0039+ 0000
0040+ 0000
0041+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0042+ 0000 ; ZShell Specific Data areas
0043+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0044+ 0000 PROGRAM_ADDR =$8C3C ; program address
0045+ 0000 ROM_VERS =$8C3E ; ROM version byte
0046+ 0000 ZSHELL_VER =$8C3F ; ZShell version number
0047+ 0000 ZS_BITS =$8C40 ; bit 0 set : checksum again
0048+ 0000 ; bit 1 set : get out without screen
0049+ 0000
0050+ 0000
0051+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0052+ 0000 ; Call addresses
0053+ 0000 ; These addresses are in the same location in all ROM versions, and can
0054+ 0000 ; therefor be accessed through a direct call.
0055+ 0000 ; There is no need to use the ROM_CALL function.
0056+ 0000 ; Instead, use e.g. "call LD_HL_MHL", without using any macro.
0057+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0058+ 0000 LD_HL_MHL =$0033 ; HL=(HL), A=L
0059+ 0000 CP_HL_DE =$008E ; CP HL,DE (modifies flags only)
0060+ 0000 UNPACK_HL =$009A ; unpacks one digit of HL into %A
0061+ 0000 STORE_KEY =$01B1 ; store immediate keystroke from %A
0062+ 0000 GET_KEY =$01BE ; get immediate keystroke into %A
0063+ 0000
0064+ 0000
0065+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0066+ 0000 ; Call Indexes
0067+ 0000 ; These indexes are used in the ROM_CALL macro to call functios that
0068+ 0000 ; are in the TI-85's ROM.
0069+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0070+ 0000 TX_CHARPUT =$00 ; xlated display of %A on screen, normal text style
0071+ 0000 D_LT_STR =$01 ; display length-byte normal text string
0072+ 0000 M_CHARPUT =$02 ; display %A on screen, menu style
0073+ 0000 D_ZM_STR =$03 ; display zero-terminated string, menu style
0074+ 0000 D_LM_STR =$04 ; display length-byte string, menu style
0075+ 0000 GET_T_CUR =$05 ; HL = absolute address of text cursor
0076+ 0000 SCROLL_UP =$06 ; scroll text screen up
0077+ 0000 TR_CHARPUT =$07 ; raw display of %A on screen, normal text style
0078+ 0000 CLEARLCD =$08 ; clear LCD, but not text or graphics memory
0079+ 0000 D_HL_DECI =$09 ; disp. HL as 5-byte, right just., blank-pad. decimal
0080+ 0000 CLEARTEXT =$0A ; clear LCD and text memory (affected by 1,(IY+13))
0081+ 0000 D_ZT_STR =$0B ; display zero-terminated normal text string
0082+ 0000 BUSY_OFF =$0C ; turn off "busy" indicataor
0083+ 0000 BUSY_ON =$0D ; turn on "busy" indicator
0084+ 0000 FIND_PIXEL =$80 ; Find location in RAM for a pixel on the GFX screen
0085+ 0000 ; WARNING! Page must be set to 4 before this function
0086+ 0000 ; is called! Do "ld a,4" and "out (5),a" do to that.
0087+ 0000
0088+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0089+ 0000 ; Data Locations
0090+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0091+ 0000 KEY_0 =$8000 ; translated scancode of last key, but 0 if gotten
0092+ 0000 KEY_1 =$8001 ; translated scancode of key down now
0093+ 0000 KEY_2 =$8002 ; same as 8001, but $FF if more than one key is down
0094+ 0000 KEY_STAT =$8004 ; bit 2 set = key down now
0095+ 0000 LAST_KEY =$8006 ; last key pressed
0096+ 0000 CONTRAST =$8007 ; contrast
0097+ 0000 CURSOR_ROW =$800C ; text cursor row
0098+ 0000 CURSOR_COL =$800D ; text cursor column
0099+ 0000 CURSOR_LET =$800E ; letter under text cursor
0100+ 0000 BUSY_COUNTER =$8080 ; counter for busy indicator
0101+ 0000 BUSY_BITMAP =$8081 ; bitmap for busy indicator
0102+ 0000 CURR_INPUT =$80C6 ; -> current home-screen input
0103+ 0000 BYTES_USED =$80CC ; # of used user memory (Add to 80C8 to find first
0104+ 0000 ; byte of free memory)
0105+ 0000 TEXT_MEM =$80DF ; text memory
0106+ 0000 CURSOR_ROW2 =$800C ; text cursor row
0107+ 0000 CURSOR_COL2 =$800D ; text cursor column
0108+ 0000 CHECKSUM =$81BE ; memory checksum from 8BF7 to FA6F
0109+ 0000 CURSOR_X =$8333 ; x value of cursor
0110+ 0000 CURSOR_Y =$8334 ; y value of cursor
0111+ 0000 _IY_TABLE =$8346 ; where IY usually points
0112+ 0000 GRAPH_MEM =$8641 ; graphics memory
0113+ 0000 TEXT_MEM2 =$8A6B ; secondary text memory
0114+ 0000 USER_MEM =$8B1B ; -> start of user memory
0115+ 0000 FIXED_POINT =$8B3A ; fixed-point decimal place (FFh for floating point)
0116+ 0000 VAT_END =$8BEB ; -> one byte before end of VAT (backwards)
0117+ 0000 VAT_START =$FA6F ; start of VAT
0118+ 0000 VIDEO_MEM =$FC00 ; video memory
0119+ 0000
0120+ 0000
0121+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0122+ 0000 ; Key Scancode definitions
0123+ 0000 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴
0124+ 0000 ; Function Character
0125+ 0000 K_NOKEY =$00 ;No key
0126+ 0000 K_DOWN =$01 ;Down
0127+ 0000 K_LEFT =$02 ;Left
0128+ 0000 K_RIGHT =$03 ;Right
0129+ 0000 K_UP =$04 ;Up
0130+ 0000 K_ENTER =$09 ;Enter
0131+ 0000 K_PLUS =$0A ;+ X
0132+ 0000 K_MINUS =$0B ;- T
0133+ 0000 K_STAR =$0C ;* O
0134+ 0000 K_SLASH =$0D ;/ J
0135+ 0000 K_RAISE =$0E ;^ E
0136+ 0000 K_CLEAR =$0F ;Clear
0137+ 0000 K_SIGN =$11 ;(-) Space
0138+ 0000 K_3 =$12 ;3 W
0139+ 0000 K_6 =$13 ;6 S
0140+ 0000 K_9 =$14 ;9 N
0141+ 0000 K_RIGHTPAR =$15 ;) I
0142+ 0000 K_TAN =$16 ;Tan D
0143+ 0000 K_CUSTOM =$17 ;Custom
0144+ 0000 K_DOT =$19 ;. Z
0145+ 0000 K_2 =$1A ;2 V
0146+ 0000 K_5 =$1B ;5 R
0147+ 0000 K_8 =$1C ;8 M
0148+ 0000 K_LEFTPAR =$1D ;( H
0149+ 0000 K_COS =$1E ;Cos C
0150+ 0000 K_PRGM =$1F ;Prgm
0151+ 0000 K_DEL =$20 ;Del
0152+ 0000 K_0 =$21 ;0 Y
0153+ 0000 K_1 =$22 ;1 U
0154+ 0000 K_4 =$23 ;4 Q
0155+ 0000 K_7 =$24 ;7 L
0156+ 0000 K_EE =$25 ;EE G
0157+ 0000 K_SIN =$26 ;Sin B
0158+ 0000 K_STAT =$27 ;Stat
0159+ 0000 K_XVAR =$28 ;x-Var x
0160+ 0000 K_ON =$29 ;On
0161+ 0000 K_STO =$2A ;Sto =
0162+ 0000 K_COMMA =$2B ;, P
0163+ 0000 K_SQUARE =$2C ;x^2 K
0164+ 0000 K_LN =$2D ;Ln F
0165+ 0000 K_LOG =$2E ;Log A
0166+ 0000 K_GRAPH =$2F ;Graph
0167+ 0000 K_ALPHA =$30 ;Alpha
0168+ 0000 K_F5 =$31 ;F5
0169+ 0000 K_F4 =$32 ;F4
0170+ 0000 K_F3 =$33 ;F3
0171+ 0000 K_F2 =$34 ;F2
0172+ 0000 K_F1 =$35 ;F1
0173+ 0000 K_SECOND =$36 ;2nd
0174+ 0000 K_EXIT =$37 ;EXIT
0175+ 0000 K_MORE =$38 ;MORE
0002 0000
0003 0000 .org 0
0004 0000 466972737400.db "First",0
0005 0006
0006 0006 ;; Main Program
0007 0006
0008 0006 ROM_CALL(CLEARLCD) ;clear screen
erika.asm line 0008: Label not found: (call)
erika.asm line 0008: label value misalligned. (call)
erika.asm line 0008: unrecognized directive. (call)
0008 0006 08
0009 0007
0010 0007 ld HL, 3
erika.asm line 0010: Label not found: (ld)
erika.asm line 0010: label value misalligned. (ld)
erika.asm line 0010: unrecognized instruction. (ld)
0011 0007 ld (CURSOR_ROW), HL
erika.asm line 0011: Label not found: (ld)
erika.asm line 0011: label value misalligned. (ld)
erika.asm line 0011: unrecognized directive. (ld)
0012 0007 ld HL, 3
erika.asm line 0012: Label not found: (ld)
erika.asm line 0012: label value misalligned. (ld)
erika.asm line 0012: unrecognized instruction. (ld)
0013 0007 ld (CURSOR_COL), HL ;set cursor position to 3,3
erika.asm line 0013: Label not found: (ld)
erika.asm line 0013: label value misalligned. (ld)
erika.asm line 0013: unrecognized directive. (ld)
0014 0007
0015 0007 ld HL, (PROGRAM_ADDR)
erika.asm line 0015: Label not found: (ld)
erika.asm line 0015: label value misalligned. (ld)
erika.asm line 0015: unrecognized instruction. (ld)
0016 0007 ld DE, Message
erika.asm line 0016: Label not found: (ld)
erika.asm line 0016: label value misalligned. (ld)
erika.asm line 0016: unrecognized instruction. (ld)
0017 0007 add HL, DE
erika.asm line 0017: Label not found: (add)
erika.asm line 0017: label value misalligned. (add)
erika.asm line 0017: unrecognized instruction. (add)
0018 0007 ROM_CALL(D_ZT_STR) ;Print "Erika Rogers on the screen"
erika.asm line 0018: Label not found: (call)
erika.asm line 0018: label value misalligned. (call)
erika.asm line 0018: unrecognized directive. (call)
0018 0007 0B
0019 0008
0020 0008 GetLoop:
0021 0008 CD BE 01 call GET_KEY
0022 000B B7 or A
0023 000C 28 FA jr z, GetLoop
0024 000E
0025 000E C9 ret
0026 000F
0027 000F ;; String Data
0028 000F Message:
0029 000F 4572696B6120 .db "Erika Rogers",0
0029 0015 526F6765727300
0030 001C
0031 001C .end
tasm: Number of errors = 27
--------------404947FB6027--