home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / ref / equate.k85 < prev    next >
INI File  |  2006-10-19  |  12KB  |  264 lines

  1. [72637,1710]
  2. K85ROM.01                 06-May-87 5750               Accesses: 72
  3.  
  4. The following is a list of the addresses of various BASIC functions 
  5. and commands.  The first column is the name of the command/function, 
  6. the second is the Model 100 address, and the third is the address in 
  7. the Kyotronic 85 (Model 100 look-a-like).
  8.  
  9. I garnered this information from a disassembly of the Ky85 ROM and a 
  10. partial disassembly of the M100 rom I found on DL8.  Amazingly, the 
  11. table of BASIC keywords and the table listing the addresses of the 
  12. machine code are in the same place on the Ky85 as on the M100.
  13.  
  14. Hopefully, more information will follow as I get further into 
  15. disassembling the Ky85 ROM.
  16.  
  17. So far, I owe a great debt to Robert D. Covington, whose disassembly 
  18. of the M100 ROM is invaluable to me.
  19.  
  20. Dave Anderson [72637,1710]
  21. April 6, 1987
  22. -----------------------------------------------------
  23. BASIC KEYWORD           !        Addresses          !
  24.                         !  M100        !            !
  25. -----------------------------------------------------
  26. END                     !       409F   !     407B   !
  27. FOR                     !       0726   !     072D   !
  28. NEXT                    !       4174   !     4150   !
  29. DATA                    !       096E   !     09A5   !
  30. INPUT                   !       0CA3   !     0CAA   !
  31. DIM                     !       478B   !     4741   !
  32. READ                    !       0CD9   !     0CE0   !
  33. LET                     !       09C3   !     09CA   !
  34. GOTO                    !       0936   !     093D   !
  35. RUN                     !       09F0   !     0916   !
  36. IF                      !       0B1A   !     0B21   !
  37. RESTORE                 !       407F   !     405B   !
  38. GOSUB                   !       091E   !     0925   !
  39. RETURN                  !       0966   !     096D   !
  40. REM                     !       09A0   !     09A7   !
  41. STOP                    !       409A   !     4076   !
  42. WIDTH                   !       1DC3   !     1D86   !
  43. ELSE                    !       09A0   !     09A7   !
  44. LINE                    !       0C45   !     0C4C   !
  45. EDIT                    !       5E51   !     5B59   !
  46. ERROR                   !       0B0F   !     0B16   !
  47. RESUME                  !       0AB0   !     0AB7   !
  48. OUT                     !       110C   !     1113   !
  49. ON                      !       0A2F   !     0A36   !
  50. DSKO$                   !       5071   !     5020   !
  51. OPEN                    !       4CCB   !     4C81   !
  52. CLOSE                   !       4E28   !     4DDE   !
  53. LOAD                    !       4D70   !     4D26   !
  54. MERGE                   !       4D71   !     4D27   !
  55. FILES                   !       1F3A   !     1F05   !
  56. SAVE                    !       4DCF   !     4D85   !
  57. LFILES                  !       506F   !     501E   !
  58. LPRINT                  !       0B4E   !     0B55   !
  59. DEF                     !       0872   !     0879   !
  60. POKE                    !       12B8   !     1294   !
  61. PRINT                   !       0B56   !     0B5D   !
  62. CONT                    !       40DA   !     40B6   !
  63. LIST                    !       1140   !     1147   !
  64. LLIST                   !       113B   !     1142   !
  65. CLEAR                   !       40F9   !     40D5   !
  66. CLOAD                   !       2377   !     234F   !
  67. CSAVE                   !       2280   !     2258   !
  68. TIME$                   !       19AB   !     1975   !
  69. DATE$                   !       19BD   !     1987   !
  70. DAY$                    !       19F1   !     19BD   !
  71. COM                     !       1A9E   !     1A6A   !
  72. MDM                     !       1A9E   !     1A6A   !
  73. KEY                     !       1BB8   !     1B81   !
  74. CLS                     !       4231   !     420D   !
  75. BEEP                    !       4229   !     4205   !
  76. SOUND                   !       1DC5   !     1D8E   !
  77. LCOPY                   !       1E5E   !     1E29   !
  78. PSET                    !       1C57   !     1C20   !
  79. PRESET                  !       1C66   !     1C2F   !
  80. MOTOR                   !       1DEC   !     1DB5   !
  81. MAX                     !       7F0B   !     7BBB   !
  82. POWER                   !       1419   !     1422   !
  83. CALL                    !       1DFA   !     1DC3   !
  84. MENU                    !       5797   !     54A4   !
  85. IPL                     !       1A78   !     1A44   !
  86. NAME                    !       2037   !     2008   !
  87. KILL                    !       1F91   !     1F63   !
  88. SCREEN                  !       1E22   !     1DEB   !
  89. NEW                     !       20FE   !     20CF   !
  90. TAB(                    !       7979   !     7979   !
  91. TO                      !       7C7C   !     7C7C   !
  92. USING                   !       507F   !     507F   !
  93. VARPTR                  !       3C46   !     3C46   !
  94. STRING$                 !       2832   !     2832   !
  95. INSTR                   !       7B7A   !     7B7A   !
  96. DSKI$                   !       35BA   !     3593   !
  97. -----------------------------------------------------
  98. In case you haven't noticed yet, all of the addresses are given in 
  99. hexadecimal.
  100.  
  101. Other misc. notes:
  102.  
  103. The keyword table, keyword address table and BASIC error messages 
  104. are at the same locations in ROM.
  105.  
  106.                 Start           Stop
  107. Keyword table   0080            0261
  108. Keyword address
  109.         table   0262            02F2
  110. Error msgs      031C            035A
  111.  
  112. ------------------------------------------
  113. BASIC Messages
  114.                 M100            Ky85
  115. ' Error',00h    03EA            03F2
  116. ' in ',00h      03F1            03F9
  117. 'Ok',cr,lf,00h  03F6            03FD
  118. 'Break',00h     03FB            0402
  119.  
  120. So far, this is all I've found (one night's worth of work, really).  
  121. Next, the fun stuff begins; comparing M100 BASIC code to Ky85 code.
  122. Stay tuned!
  123.  
  124. [76703,4062]
  125. KYOINF.002                26-Apr-87 2097               Accesses: 129
  126.  
  127.  
  128. #: 146112 S15/Kyotronics 85
  129.     21-Apr-87  15:05:55
  130. Sb: #Kyotronic 85
  131. Fm: Tony Anderson 76703,4062
  132. To: All
  133.  
  134. I have spoken to Dave Williamson at D.L. Liquidators in Wichita, about the
  135. Kyotronic-85, and have gleaned the following additional information, which
  136. will be of interest to the growning Kyo-group.
  137.  
  138. The Kyotronic-85's were manufactured about 2 1/2 years ago, for the Asian and
  139. European Markets.  Only 40,000 units were made.  D.L. Liquidators imported
  140. 1500 units from Hong Kong, and there are virtually no more to be had in blocks
  141. of more than a few machines.  The largest single block still around is 1500
  142. units in the hands of the Chinese Government, who are not interested in
  143. letting go of them.
  144.  
  145. D.L. has contacted the company that originally manufactured them, and there is
  146. little-to-no interest in tooling up again to produce more units.  There is a
  147. remote possibility that D.L. may try to get the rights to the computer, and
  148. have another manufacturer make them.  This would involve a minimum of 10,000
  149. units or so, and costs would be more than the original units, produced in late
  150. 1984.  It would involve considerable capital expense, so don't look for it in
  151. the immediate future.
  152.  
  153. Of the 1500 originally obtained, only a handfull are left.  So if you want
  154. one, best hurry!
  155.  
  156. There is a possibility that a new ROM will be produced for the American
  157. market, providing rights can be obtained for so few units; and would probably
  158. involve an upgrade fee for installing it.
  159.  
  160. Ultra Soft Innovations (Canada) is reportedly producing a version of DISK
  161. POWER for the Kyo-TDD disk drive combination, and a machine-specific version
  162. of TEXT POWER. - To be announced soon.  (Read it here first!)
  163.  
  164. Next month, D.L.'s advertising in Computer Shopper will feature the TravelCOM
  165. external modem for the Kyo (and others), at $99.95.  And reportedly, there are
  166. some additional programming efforts toward producing additional software for
  167. the Kyo.
  168.  
  169. Dave will soon be online here, and hopefully will have some additional tips
  170. for the benefit of the Kyo group.
  171.  
  172. [71266,125]
  173. KYROM1.EQU                27-Jul-87 2990               Accesses: 45
  174.  
  175. KYROM1.EQU
  176. ----------
  177.  
  178. Copyright 1987 -- P.C. Wheeler
  179.  
  180. This is from the front end of one of my (successful!) ASM files for
  181. the KC-85.  More data will follow as I accumulate it, hopefully with
  182. more structure.
  183. ;
  184. ;ROM equates for Kyo-85 (M100 vals in comments in parens)
  185. ;
  186. CLRFNK  EQU     $5784   ;($5A79) clr f-key tbl
  187. MOV1    EQU     $576D   ;($5A62) DE --> HL
  188. LOCK    EQU     $421B   ;($423F) scroll lock
  189. CLS     EQU     $420D   ;($4231) clear screen
  190. DSPFIL  EQU     $567D   ;($5970) dsp fil on mnu
  191. SETCRS  EQU     $56D6   ;($59C9) set cursor mnu
  192. EMPTY   EQU     $5825   ;($5B1A) '-.-' msg
  193. PRTSTR  EQU     $5763   ;($5A58) string to lcd
  194. SETCUR  EQU     $4258   ;($427C) set curs posit
  195. FREMEM  EQU     $7B5C   ;($7EAC) free bytes
  196. SHOWTD  EQU     $5A78   ;($5D70) time-date
  197. KYREAD  EQU     $6EF2   ;($7242) scn kbd
  198. BEEP    EQU     $4205   ;($4229) beep
  199. MENU    EQU     $54A4   ;($5797) menu
  200. ROM2    EQU     $55D0   ;($58C3) unk
  201. ROM5    EQU     $55F8   ;($58EB) unk
  202. ROM4    EQU     $55EF   ;($58E2) unk
  203. ROM3    EQU     $55E8   ;($58DB) unk
  204. ROM1    EQU     $55C3   ;($58B6) unk
  205. SETSER  EQU     $17C8   ;($17E6) com on
  206. SPCMSG  EQU     $5C53   ;($5F4B) '..Space Bar.'
  207. WTSPC   EQU     $5C37   ;($5F2F) wait space bar
  208. SETINT  EQU     $730A   ;($765C) set int to 1Dh
  209. RCVX    EQU     $6A75   ;($6D6D) ck rs for char
  210. RV232C  EQU     $6A86   ;($6D7E) chr fm rcv que
  211. SD232C  EQU     $6B3A   ;($6E32) snd w x-on-off
  212. PRTINT  EQU     $39AD   ;($39D4) prt 16 bit int
  213. CRLF    EQU     $41FE   ;($4222) prt crlf
  214. MPYINT  EQU     $36FE   ;($3725) mpy signd int
  215. FREMSG  EQU     $7C48   ;($7F98) 'bytes free'
  216. ADDR2   EQU     $57EF   ;($5AE4) file ads + 1
  217. ADDR    EQU     $57EE   ;($5AE3) get file ads
  218. ERAEOL  EQU     $4239   ;($425D) erase to eol
  219. INLIN   EQU     $45F8   ;($4644) get kbd line
  220. ROM6    EQU     $05FA   ;($05F3) unk
  221. ROM7    EQU     $207A   ;($20A9) unk
  222. DELCHR  EQU     $68A7   ;($6B9F) delete char
  223. ROM8    EQU     $2104   ;($2134) unk
  224. ROM9    EQU     $2119   ;($2146) unk
  225. KILTX2  EQU     $1F90   ;($1FBF) kill file + 1
  226. ROM10   EQU     $1FAA   ;($1FD9) unk
  227. ROM11   EQU     $1FE8   ;($2017) unk
  228. MAKHOL  EQU     $6875   ;($6B6D) ins spaces
  229. ROM12   EQU     $4DD8   ;($4E22) unk
  230. ROM13   EQU     $2211   ;($2239) unk
  231. GETCH   EQU     $12D4   ;($12CB) wait for chr
  232. TOUPR   EQU     $0FF0   ;($0FE9) lc to uc
  233. ROM14   EQU     $56F2   ;($59E5) unk
  234. ROM15   EQU     $209D   ;($20CC) unk
  235. ;
  236. ;RAM equates
  237. ;
  238. CSRY    EQU     $F640   ;($F639) Hor curs posit
  239. CSRX    EQU     $F641   ;($F63A) Ver curs posit
  240. ERROR   EQU     $F659   ;($F652) Bas error trap
  241. STAT    EQU     $F662   ;($F65B) Comm stat
  242. LINENO  EQU     $F681   ;($F67A) FFFF if no pgm
  243. LINBUF  EQU     $F68C   ;($F685) Bfr for kb lin
  244. UNSAV   EQU     $F98B   ;($F99A) Unsav BA addr
  245. EDITBA  EQU     $F9A0   ;($F9AF) edit attr byte
  246. LBLON   EQU     $FAB4   ;($FAAD) lbl lin enable
  247. RAM1    EQU     $FAD4   ;($FACE) unknown
  248. RAM2    EQU     $FADE   ;($FAD8) unknown
  249. STDO    EQU     $FBC0   ;($FBAE) strt DO store
  250. STCO    EQU     $FBC2   ;($FBB0) strt CO store
  251. TOPFIL  EQU     $FBC4   ;($FBB2) end of top fil
  252. STAR    EQU     $FBC6   ;($FBB4) strt arr store
  253. STUN    EQU     $FBC8   ;($FBB6) 1st unusd byte
  254. CURBA   EQU     $FCA5   ;($FC93) current BA pgm
  255. RAM3    EQU     $FCB9   ;($FCA7) unknown
  256. ALT1    EQU     $FDA1   ;($FDA1) BEGALT + E1h
  257. ALT2    EQU     $FDD7   ;($FDD7) BEGALT + 117h
  258. ALT3    EQU     $FDEE   ;($FDEE) BEGALT + 12Eh
  259. ALT4    EQU     $FDEF   ;($FDEF) BEGALT + 12Fh
  260. KBUFN   EQU     $FF6B   ;($FFAA) chrs in kb buf
  261.  
  262. Phil Wheeler -- 71266,125
  263. 7/27/87
  264.