home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / ref / equate.200 < prev    next >
Text File  |  2006-10-19  |  14KB  |  512 lines

  1. This is a modified version of Phil Wheeler's current EQUATE.HEX file,
  2. with the hex addresses converted to decimal, conversion by Tony Anderson.
  3.  
  4.  
  5. EQUATE.HEX -- Collected Model 100/120 to Tandy 200 ROM/RAM Equates
  6.               Phil Wheeler -- 71266,125
  7. ------------------------------------------------------------------
  8.  
  9. This file is a collection of ROM/RAM address translations I have identified
  10. in converting programs from the Model 100 to the 200 or vise versa. See
  11. other files e.g., 100RAM.RDC & 100ROM.RD* for functionality info.
  12.  
  13.     **Updated: 8/3/88**
  14.  
  15. ******** Addresses with labels and EQU are well-tested ********
  16. **** Some others are from published sources and not tested ****
  17.  
  18. ;                M100    T200
  19. ;                ----    ----
  20. null    equ         7       7 (point to a 00h)
  21. inrh    equ       428     428
  22. snerr   equ      1094    1137
  23. d0err   equ      1097    1140
  24. overr   equ      1109    1152
  25. moerr   equ      1112    1155
  26.                  1117    1160
  27. reterr  equ      1147    1190
  28.                  1281    1324
  29.                  1282    1325
  30.                  1520    1563
  31.                  1523    1566
  32. Tokenz  equ      1606    1649
  33.                  2267    2310
  34. GetVal  equ      2283    2326
  35. ulerr   equ      2381    2424
  36. Caps    equ      4073    4116
  37. DcxH    equ      4165    4207
  38. iderr   equ      4335    4377
  39. EVALEX  EQU      4398    4440
  40. print   equ      4514    4556
  41. ChGet   equ      4811    4855
  42.                  5045    5086
  43. CHSNS   EQU      5083    5154
  44. ioerr   equ      5268    5548
  45.                  5342    5621
  46.                  5354    5633
  47. SETSER  EQU      6118    6429
  48.                  6148    6152
  49.                  6415    6782
  50. inxh    equ      6558    6913
  51.                  6965    7353
  52.                  6980    7368
  53.                  7089    9879
  54. SaveBA  equ      7963   10763
  55. Files   equ      7994   10794
  56. KILASC  EQU      8126   10932
  57.                  8127   10933
  58.                  8153   10958
  59.                  8215   11020
  60. FINDCO  EQU      8329   11174
  61. L208F   EQU      8335   11180
  62. FindDO  equ      8352   11197
  63. findfl  equ      8367   11212 :find all type of file, with extension
  64.                  8396   11241
  65. nxtdir  equ      8405   11250
  66.                  8447   11292
  67.                  8500   11344
  68. Resfpt  equ      8518   11362
  69. GetLen  equ      8698   11587
  70. opendo  equ      8710   11635
  71. MAKTXT  EQU      8719   11644
  72.                  8761   11692
  73. swapnm  equ      8780   11711
  74.                  9030   12467
  75.                  9205   12645
  76.                  9498   12938
  77.                  9533   12962
  78. mvhbi   equ      9538   12967
  79.                  9636   13065
  80. prparm  equ      9643   13072
  81. PRTNUL  EQU     10161   13591
  82. mvhci   equ     11997   15445
  83. coparm  equ     13392   16801
  84. L3457   EQU     13399   16808
  85. mvdbi   equ     13417   16826 :[DE]->[HL]xB
  86.                 14072   17484
  87.                 14117   17529
  88.                 14206   17618
  89. prnhl   equ     14804   18187
  90. omerr   equ     16162   19517
  91. setmax  equ     16175   19530
  92. CRLF    EQU     16930   20286
  93. BEEP    EQU     16937   20293
  94. CLS     equ     16945   20301
  95. SCLHLT  EQU     16959   20318
  96. UNLOCK  EQU     16964   20323
  97. CURSON  EQU     16969   20328
  98. CUROFF  EQU     16974   20333
  99.                 16989   20348
  100. Setcur  equ     17020   20379
  101.                 17034   20393
  102. SETDSP  EQU     17061   20420
  103. DSPFNK  EQU     17064   20423
  104. L45D3   EQU     17875   21499
  105. InpA    equ     17982   21744
  106. InpB    equ     17988   21750 (Input w/o '?')
  107. InxD    equ     18130   21895
  108. bserr   equ     18678   22442
  109. wrbyt   equ     19268   23045
  110. PRTTAB  EQU     19285   23060
  111. CRLFc   equ     19384   23159
  112. FNAME   EQU     19467   23242
  113.                 19585   23360
  114. select  equ     19647   23422
  115. open    equ     19730   23505
  116. close1  equ     19768   23543
  117.                 19801   23576
  118.                 20002   23777
  119. close   equ     20007   23782
  120. rdbyt   equ     20090   23862
  121.                 20106   23878
  122. zerob   equ     20234   24001
  123. fferr   equ     20567   24334
  124. CALMSG  EQU     21060   24898
  125. DISCON  EQU     21179   25018
  126. CONECT  EQU     21220   25063
  127. Delay2s equ     21264   25102
  128. TMDELA  EQU     21270   25108
  129. DIALER  EQU     21293   25131
  130. PREV    EQU     21795   25757
  131. DUPLEX  EQU     21822   25784
  132. DUPDSP  EQU     21828   25790
  133. ECHOTG  EQU     21840   25802
  134. ECHDSP  EQU     21846   25808
  135. WATDSP  EQU     21858   25820
  136. CHGDSP  EQU     21867   25829
  137. UPLDR   EQU     21920   25882
  138. DWNLDR  EQU     22159   26137
  139. L56C5   EQU     22213   26210
  140. UPLMSG  EQU     22361   26470
  141. DWNMSG  EQU     22376   26485
  142. ABTMSG  EQU     22385   26494
  143. FNTFND  EQU     22396   26505
  144. DISMSG  EQU     22406   26515
  145. printc  equ     22417   26526 :print @ clm 1
  146. menu    equ     22423   26532
  147.                 22710   27215
  148.                 22723   27228
  149.                 22747   27244
  150.                 22754   27251
  151.                 22763   27260
  152. L5970   EQU     22896   27825
  153.                 22985   27985
  154.                 23013   28013
  155. PRTBUF  EQU     23128   28150
  156.                 23138   28166
  157.                 23161   28189
  158. DefFnk  equ     23164   28192
  159. FNKSB   EQU     23198   28226
  160. FNDFL0  EQU     23206   28234
  161. CHKF    equ     23211   28239
  162. InrC    equ     23254   28278
  163. FADDR   equ     23267   28300
  164.                 23268   28301
  165.                 23322   26693
  166. FNDTXT  EQU     23615   28738
  167. INCRDE  EQU     23661   28790
  168. CHKBYT  EQU     23668   28797
  169. L5CAE   EQU     23726   28855
  170. FNDTBL  EQU     23851   28979
  171. STKINI  EQU     23891   29003
  172. restak  equ     23901   29013
  173. L5DB1   EQU     23985   29020
  174. L5DBC   EQU     23996   29035
  175. L5DC5   EQU     24005   29044
  176.                 24367   29413
  177.                 24395   29441
  178. om      equ     24753   29842 :'Memory full' string
  179. mclear  equ     25446   30535 :[HL]=0 x BC
  180. L6370   EQU     25456   30545
  181. L6383   EQU     25475   30564
  182. getend  equ     27437   33384 :point HL to chr$(26)
  183. inschr  equ     27489   33436
  184. insert  equ     27501   33448
  185. DELETE  EQU     27551   33498
  186. mvhbci  equ     27611   33558
  187. mvhbcd  equ     27622   33569
  188. Basic   equ     27721   33679
  189. LoadBL  equ     27804   33756 (Load BA label)
  190. L6CA7   EQU     27815   33773
  191. RCVX    EQU     28013   34056
  192. RV232C  EQU     28030   34073
  193. CTRLQ   EQU     28171   34312
  194. SD232C  EQU     28210   34371
  195. SNDCOM  EQU     28218   34383
  196. CLSCOM  EQU     28363   34741
  197.                 28869   35195
  198.                 28962   35288
  199.                 29124   35461
  200.                 29171   35508
  201.                 29172   35509
  202.                 29181   35518
  203.                 29250   35587
  204. KEYX    EQU     29296   35633
  205. break   equ     29343   35689
  206. rkgff   equ     29361   35707
  207.                 29592   36068
  208.                 30300   36768
  209. tick    equ     30326   36809
  210. FRERAM  EQU     32428   39677
  211. maxfil  equ     32555   39905
  212.                 32664   40014
  213. NULSUB  EQU     32755   40104
  214. ;---------------------------------------
  215. MaxRAM  equ     62960   61104
  216. RS75HK  EQU     62975   61122
  217. CALPPS  EQU     63019   61172
  218. FnkMac  equ     63020   61177
  219.                 63033   61190
  220.                 63034   61191
  221.                 63037   61194
  222. SCLFLG  EQU     63038   61195
  223. LF650   EQU     63056   61234
  224. Errtrp  equ     63058   61236
  225.                 63062   61239
  226. DUPFLG  EQU     63064   61241
  227. LF659   EQU     63065   61242
  228. COMLF   EQU     63066   61243
  229. SERPRM  EQU     63067   61244
  230.                 63098   61285
  231. LF67B   EQU     63099   61286
  232. CurBas  equ     63100   61287
  233. inpbfr  equ     63105   61292
  234. inpbuf  equ     63109   61296
  235. KEYDSP  EQU     63369   61556
  236. LF7D9   EQU     63449   61636
  237. CSRITP  EQU     63791   61983
  238.                 63794   61986
  239.                 63898   62101
  240.                 63919   62122
  241.                 64173   61194
  242. LOMEM   EQU     64192   62702
  243. CAPTUR  EQU     64194   62704
  244. LFAC3   EQU     64195   62705
  245. LFAC6   EQU     64198   62708
  246. Top     equ     64206   62715
  247. Len     equ     64208   62717
  248. Exe     equ     64210   62719
  249.                 64216   62725
  250.                 64218   62727
  251.                 64220   62729
  252.                 64240   62751
  253.                 64244   62755
  254.                 64256   62767
  255.                 64264   62775
  256.                 64266   62777
  257.                 64300   62813
  258.                 64306   62819
  259.                 64308   62821
  260.                 64310   62823
  261.                 64312   62825
  262. stkval  equ     64413   63056
  263. DOAREA  EQU     64430   63073
  264.                 64432   63075
  265. varspc  equ     64434   63077
  266. varend  equ     64436   63079
  267. frespc  equ     64438   63081
  268. numstr  equ     64488   63131 :number string stored here when 18187 is called
  269. SEEDRD  EQU     64634   63277
  270. devout  equ     64652   63295
  271.                 64658   63301
  272. FLNM    EQU     64659   63302
  273.                 64665   63308
  274.                 64668   63311
  275.                 64679   63322
  276. WkSpc   equ     64704   63574 [alt LCD buffer]
  277.                 64929   63433
  278.                 64981   63701
  279.                 64983   63537
  280.                 65006   63560
  281.                 65007   63561
  282. ENDLCD  EQU     65344   64752
  283. XONOFF  EQU     65346   64754
  284. KBSITP  EQU     65423   64771
  285. pkgff   equ     65433   64781
  286. KEYGPC  EQU     65442   64790
  287.                 65444   64792
  288.                 65445   64793
  289.                 65447   64795
  290.                 65448   64796
  291.                 65450   64798
  292.                 65523   65185
  293. ;BELL   EQU     code     8271
  294. ;KILL   EQU     code    11052
  295.  
  296.  
  297. ;------- M100 RAM Code Routines (below)
  298. ;
  299. ;len    equ     XXXXX   27340 [see M100 code at end] print 'Length='
  300. ;Kill   equ     XXXXX   11052 [see M100 code at end]
  301. ;prnlen equ     XXXXX   27281 [see M100 code at end] prints 'xxxxx Bytes'
  302. ;bell   equ     XXXCX    8271 [see M100 code at end] uses Sound
  303. ;sound  equ     XXXXX   36774 [see M100 code at end] Sound E,D
  304. ;SaveCO equ     XXXXX   12390 [see M100 code at end] Save CO file
  305.  
  306. ----------------------------------
  307. BELL Code for M100
  308. ----------------------------------
  309.  
  310. bell    mvi     d,0
  311.         mvi     e,28
  312.         stc
  313.         jmp     sound
  314.  
  315. ----------------------------------
  316. SOUND and PRNLEN/LEN Code for M100
  317. ----------------------------------
  318.  
  319. getadr  equ     23267   ;get start adr of file
  320. rom1    equ      1524
  321. prnhl   equ     14804
  322. wrbyt   equ     19268
  323. ram1    equ     63034
  324. rom2    equ     30300
  325. rom3    equ     30326
  326. rom4    equ     30295
  327.  
  328. prnlen: mov     a,m
  329.         call    getadr
  330.         cpi     160
  331.         jz      prn1
  332.         cpi     176
  333.         jz      prn2
  334.         cpi     240
  335.         jz      prn2
  336.         cpi     192
  337.         jz      prn3
  338.         push    0
  339.         xchg
  340.         call    rom1
  341.         pop     d
  342.         mov     a,l
  343.         sub     e
  344.         mov     e,a
  345.         mov     a,h
  346.         sbb     d
  347.         mov     d,a
  348.         dcx     d
  349.         jmp     len
  350.  
  351. prn3:   mvi     a,26
  352.         lxi     d,65535
  353. prn4:   cmp     m
  354.         inx     0
  355.         inx     d
  356.         jnz     prn4
  357.         jmp     len
  358.  
  359. prn1:   inx     0
  360.         inx     0
  361.         mov     e,m
  362.         inx     0
  363.         mov     d,m
  364. len:    xchg
  365.         push    0
  366.         call    prn5
  367.         db      'Length: ',0
  368.         call    prnhl
  369.         call    prn5
  370.         db      ' Byte',0
  371.         pop     0
  372.         mov     a,l
  373.         dcr     a
  374.         ora     0
  375.         mvi     a,115
  376.         cnz     wrbyt
  377. prn2:   lda     ram1
  378.         cpi     23
  379.         rnc
  380.         mvi     a,32
  381.         rst     4
  382.         jmp     prn2
  383.  
  384. prn5:   xthl
  385.         call    prn6
  386.         xthl
  387.         ret
  388.  
  389. prn6:   mov     a,m
  390.         inx     0
  391.         ora     a
  392.         rz
  393.         rst     4
  394.         jmp     prn6
  395.  
  396. ;-------------------
  397.  
  398. sound:  push    psw
  399.         push    d
  400.         call    rom2
  401.         mov     b,d
  402. snd2:   call    rom3
  403.         mov     c,e
  404.         call    rom4
  405.         dcr     b
  406.         jnz     snd2
  407.         pop     d
  408.         call    snd3
  409.         pop     psw
  410.         jmp     snd4
  411.  
  412. snd3:   in      186
  413.         ori     32
  414.         out     186
  415.         ret
  416.  
  417. snd4:   mvi     a,9
  418.         sim
  419.         ret
  420.  
  421.  
  422. ----------------------------------------
  423. Model 100 code for Bell, SaveCO and Kill
  424. ----------------------------------------
  425.  
  426. ;Another Bell routine (as used by James Yi in 200 programs)
  427. ;----------------------------------------------------------
  428.  
  429. BELL:   DI
  430.         MVI     D,0
  431. S2      MVI     E,40
  432. S1      DCR     E
  433.         JNZ     S1
  434.         CALL    TICK    ;in Equate list
  435.         DCR     D
  436.         JNZ     S2
  437.         EI
  438.         RET
  439.  
  440. ;SaveCO Routine (minor patch of ROM code)
  441. ;----------------------------------------
  442.  
  443. SAVECO  CALL    8329    ;M100 ROM call drops into Basic with OK prompt,
  444.         CNZ     8153    ;terminating the M/L program which is running.
  445.         CALL    8420    ;Only last two lines differ form M100 ROM code.
  446.         PUSH    0
  447.         LHLD    64432
  448.         PUSH    0
  449.         LHLD    64208
  450.         MOV     A,H
  451.         ORA     L
  452.         JZ      16151
  453.         PUSH    0
  454.         LXI     B,6
  455.         DAD     B
  456.         MOV     B,H
  457.         MOV     C,L
  458.         LHLD    64434
  459.         SHLD    64409
  460.         CNC     27501
  461.         JC      16151
  462.         XCHG
  463.         LXI     H,64206
  464.         CALL    9536
  465.         LHLD    64206
  466.         POP     B
  467.         CALL    27611
  468.         POP     0
  469.         SHLD    64432
  470.         POP     0
  471.         MVI     A,160
  472.         XCHG
  473.         LHLD    64409
  474.         XCHG
  475.         CALL    8761
  476.         CALL    8518
  477.         LHLD    64398   ;not in M100 ROM
  478.         RET             ;this is a JMP in M100 ROM routine
  479.  
  480. ;Small Stuff
  481. ;-----------
  482.  
  483. InrB    inr     b
  484.         ret
  485.  
  486. InrA    inr     a
  487.         ret
  488.  
  489. exit    jmp     menu
  490.  
  491.  
  492. ;Kill Routine (emulates T200 code)
  493. ;No corresponding code found (by me) in M100 ROM
  494. ;-----------------------------------------------
  495.  
  496. Killc0  equ     8127
  497. Kill80  equ     8215
  498. Kill00  equ     8153
  499.  
  500. Kill    mov     a,m
  501.         inx     0
  502.         mov     e,m
  503.         inx     0
  504.         mov     d,m
  505.         dcx     0
  506.         dcx     0
  507.         cpi     192
  508.         jz      killc0
  509.         cpi     128
  510.         jz      kill80
  511.         jmp     kill00
  512.