home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
ref
/
equate.k85
< prev
next >
Wrap
INI File
|
2006-10-19
|
12KB
|
264 lines
[72637,1710]
K85ROM.01 06-May-87 5750 Accesses: 72
The following is a list of the addresses of various BASIC functions
and commands. The first column is the name of the command/function,
the second is the Model 100 address, and the third is the address in
the Kyotronic 85 (Model 100 look-a-like).
I garnered this information from a disassembly of the Ky85 ROM and a
partial disassembly of the M100 rom I found on DL8. Amazingly, the
table of BASIC keywords and the table listing the addresses of the
machine code are in the same place on the Ky85 as on the M100.
Hopefully, more information will follow as I get further into
disassembling the Ky85 ROM.
So far, I owe a great debt to Robert D. Covington, whose disassembly
of the M100 ROM is invaluable to me.
Dave Anderson [72637,1710]
April 6, 1987
-----------------------------------------------------
BASIC KEYWORD ! Addresses !
! M100 ! !
-----------------------------------------------------
END ! 409F ! 407B !
FOR ! 0726 ! 072D !
NEXT ! 4174 ! 4150 !
DATA ! 096E ! 09A5 !
INPUT ! 0CA3 ! 0CAA !
DIM ! 478B ! 4741 !
READ ! 0CD9 ! 0CE0 !
LET ! 09C3 ! 09CA !
GOTO ! 0936 ! 093D !
RUN ! 09F0 ! 0916 !
IF ! 0B1A ! 0B21 !
RESTORE ! 407F ! 405B !
GOSUB ! 091E ! 0925 !
RETURN ! 0966 ! 096D !
REM ! 09A0 ! 09A7 !
STOP ! 409A ! 4076 !
WIDTH ! 1DC3 ! 1D86 !
ELSE ! 09A0 ! 09A7 !
LINE ! 0C45 ! 0C4C !
EDIT ! 5E51 ! 5B59 !
ERROR ! 0B0F ! 0B16 !
RESUME ! 0AB0 ! 0AB7 !
OUT ! 110C ! 1113 !
ON ! 0A2F ! 0A36 !
DSKO$ ! 5071 ! 5020 !
OPEN ! 4CCB ! 4C81 !
CLOSE ! 4E28 ! 4DDE !
LOAD ! 4D70 ! 4D26 !
MERGE ! 4D71 ! 4D27 !
FILES ! 1F3A ! 1F05 !
SAVE ! 4DCF ! 4D85 !
LFILES ! 506F ! 501E !
LPRINT ! 0B4E ! 0B55 !
DEF ! 0872 ! 0879 !
POKE ! 12B8 ! 1294 !
PRINT ! 0B56 ! 0B5D !
CONT ! 40DA ! 40B6 !
LIST ! 1140 ! 1147 !
LLIST ! 113B ! 1142 !
CLEAR ! 40F9 ! 40D5 !
CLOAD ! 2377 ! 234F !
CSAVE ! 2280 ! 2258 !
TIME$ ! 19AB ! 1975 !
DATE$ ! 19BD ! 1987 !
DAY$ ! 19F1 ! 19BD !
COM ! 1A9E ! 1A6A !
MDM ! 1A9E ! 1A6A !
KEY ! 1BB8 ! 1B81 !
CLS ! 4231 ! 420D !
BEEP ! 4229 ! 4205 !
SOUND ! 1DC5 ! 1D8E !
LCOPY ! 1E5E ! 1E29 !
PSET ! 1C57 ! 1C20 !
PRESET ! 1C66 ! 1C2F !
MOTOR ! 1DEC ! 1DB5 !
MAX ! 7F0B ! 7BBB !
POWER ! 1419 ! 1422 !
CALL ! 1DFA ! 1DC3 !
MENU ! 5797 ! 54A4 !
IPL ! 1A78 ! 1A44 !
NAME ! 2037 ! 2008 !
KILL ! 1F91 ! 1F63 !
SCREEN ! 1E22 ! 1DEB !
NEW ! 20FE ! 20CF !
TAB( ! 7979 ! 7979 !
TO ! 7C7C ! 7C7C !
USING ! 507F ! 507F !
VARPTR ! 3C46 ! 3C46 !
STRING$ ! 2832 ! 2832 !
INSTR ! 7B7A ! 7B7A !
DSKI$ ! 35BA ! 3593 !
-----------------------------------------------------
In case you haven't noticed yet, all of the addresses are given in
hexadecimal.
Other misc. notes:
The keyword table, keyword address table and BASIC error messages
are at the same locations in ROM.
Start Stop
Keyword table 0080 0261
Keyword address
table 0262 02F2
Error msgs 031C 035A
------------------------------------------
BASIC Messages
M100 Ky85
' Error',00h 03EA 03F2
' in ',00h 03F1 03F9
'Ok',cr,lf,00h 03F6 03FD
'Break',00h 03FB 0402
So far, this is all I've found (one night's worth of work, really).
Next, the fun stuff begins; comparing M100 BASIC code to Ky85 code.
Stay tuned!
[76703,4062]
KYOINF.002 26-Apr-87 2097 Accesses: 129
#: 146112 S15/Kyotronics 85
21-Apr-87 15:05:55
Sb: #Kyotronic 85
Fm: Tony Anderson 76703,4062
To: All
I have spoken to Dave Williamson at D.L. Liquidators in Wichita, about the
Kyotronic-85, and have gleaned the following additional information, which
will be of interest to the growning Kyo-group.
The Kyotronic-85's were manufactured about 2 1/2 years ago, for the Asian and
European Markets. Only 40,000 units were made. D.L. Liquidators imported
1500 units from Hong Kong, and there are virtually no more to be had in blocks
of more than a few machines. The largest single block still around is 1500
units in the hands of the Chinese Government, who are not interested in
letting go of them.
D.L. has contacted the company that originally manufactured them, and there is
little-to-no interest in tooling up again to produce more units. There is a
remote possibility that D.L. may try to get the rights to the computer, and
have another manufacturer make them. This would involve a minimum of 10,000
units or so, and costs would be more than the original units, produced in late
1984. It would involve considerable capital expense, so don't look for it in
the immediate future.
Of the 1500 originally obtained, only a handfull are left. So if you want
one, best hurry!
There is a possibility that a new ROM will be produced for the American
market, providing rights can be obtained for so few units; and would probably
involve an upgrade fee for installing it.
Ultra Soft Innovations (Canada) is reportedly producing a version of DISK
POWER for the Kyo-TDD disk drive combination, and a machine-specific version
of TEXT POWER. - To be announced soon. (Read it here first!)
Next month, D.L.'s advertising in Computer Shopper will feature the TravelCOM
external modem for the Kyo (and others), at $99.95. And reportedly, there are
some additional programming efforts toward producing additional software for
the Kyo.
Dave will soon be online here, and hopefully will have some additional tips
for the benefit of the Kyo group.
[71266,125]
KYROM1.EQU 27-Jul-87 2990 Accesses: 45
KYROM1.EQU
----------
Copyright 1987 -- P.C. Wheeler
This is from the front end of one of my (successful!) ASM files for
the KC-85. More data will follow as I accumulate it, hopefully with
more structure.
;
;ROM equates for Kyo-85 (M100 vals in comments in parens)
;
CLRFNK EQU $5784 ;($5A79) clr f-key tbl
MOV1 EQU $576D ;($5A62) DE --> HL
LOCK EQU $421B ;($423F) scroll lock
CLS EQU $420D ;($4231) clear screen
DSPFIL EQU $567D ;($5970) dsp fil on mnu
SETCRS EQU $56D6 ;($59C9) set cursor mnu
EMPTY EQU $5825 ;($5B1A) '-.-' msg
PRTSTR EQU $5763 ;($5A58) string to lcd
SETCUR EQU $4258 ;($427C) set curs posit
FREMEM EQU $7B5C ;($7EAC) free bytes
SHOWTD EQU $5A78 ;($5D70) time-date
KYREAD EQU $6EF2 ;($7242) scn kbd
BEEP EQU $4205 ;($4229) beep
MENU EQU $54A4 ;($5797) menu
ROM2 EQU $55D0 ;($58C3) unk
ROM5 EQU $55F8 ;($58EB) unk
ROM4 EQU $55EF ;($58E2) unk
ROM3 EQU $55E8 ;($58DB) unk
ROM1 EQU $55C3 ;($58B6) unk
SETSER EQU $17C8 ;($17E6) com on
SPCMSG EQU $5C53 ;($5F4B) '..Space Bar.'
WTSPC EQU $5C37 ;($5F2F) wait space bar
SETINT EQU $730A ;($765C) set int to 1Dh
RCVX EQU $6A75 ;($6D6D) ck rs for char
RV232C EQU $6A86 ;($6D7E) chr fm rcv que
SD232C EQU $6B3A ;($6E32) snd w x-on-off
PRTINT EQU $39AD ;($39D4) prt 16 bit int
CRLF EQU $41FE ;($4222) prt crlf
MPYINT EQU $36FE ;($3725) mpy signd int
FREMSG EQU $7C48 ;($7F98) 'bytes free'
ADDR2 EQU $57EF ;($5AE4) file ads + 1
ADDR EQU $57EE ;($5AE3) get file ads
ERAEOL EQU $4239 ;($425D) erase to eol
INLIN EQU $45F8 ;($4644) get kbd line
ROM6 EQU $05FA ;($05F3) unk
ROM7 EQU $207A ;($20A9) unk
DELCHR EQU $68A7 ;($6B9F) delete char
ROM8 EQU $2104 ;($2134) unk
ROM9 EQU $2119 ;($2146) unk
KILTX2 EQU $1F90 ;($1FBF) kill file + 1
ROM10 EQU $1FAA ;($1FD9) unk
ROM11 EQU $1FE8 ;($2017) unk
MAKHOL EQU $6875 ;($6B6D) ins spaces
ROM12 EQU $4DD8 ;($4E22) unk
ROM13 EQU $2211 ;($2239) unk
GETCH EQU $12D4 ;($12CB) wait for chr
TOUPR EQU $0FF0 ;($0FE9) lc to uc
ROM14 EQU $56F2 ;($59E5) unk
ROM15 EQU $209D ;($20CC) unk
;
;RAM equates
;
CSRY EQU $F640 ;($F639) Hor curs posit
CSRX EQU $F641 ;($F63A) Ver curs posit
ERROR EQU $F659 ;($F652) Bas error trap
STAT EQU $F662 ;($F65B) Comm stat
LINENO EQU $F681 ;($F67A) FFFF if no pgm
LINBUF EQU $F68C ;($F685) Bfr for kb lin
UNSAV EQU $F98B ;($F99A) Unsav BA addr
EDITBA EQU $F9A0 ;($F9AF) edit attr byte
LBLON EQU $FAB4 ;($FAAD) lbl lin enable
RAM1 EQU $FAD4 ;($FACE) unknown
RAM2 EQU $FADE ;($FAD8) unknown
STDO EQU $FBC0 ;($FBAE) strt DO store
STCO EQU $FBC2 ;($FBB0) strt CO store
TOPFIL EQU $FBC4 ;($FBB2) end of top fil
STAR EQU $FBC6 ;($FBB4) strt arr store
STUN EQU $FBC8 ;($FBB6) 1st unusd byte
CURBA EQU $FCA5 ;($FC93) current BA pgm
RAM3 EQU $FCB9 ;($FCA7) unknown
ALT1 EQU $FDA1 ;($FDA1) BEGALT + E1h
ALT2 EQU $FDD7 ;($FDD7) BEGALT + 117h
ALT3 EQU $FDEE ;($FDEE) BEGALT + 12Eh
ALT4 EQU $FDEF ;($FDEF) BEGALT + 12Fh
KBUFN EQU $FF6B ;($FFAA) chrs in kb buf
Phil Wheeler -- 71266,125
7/27/87